2009-12-01 Basile Starynkevitch <basile@starynkevitch.net>

	* gcc/Makefile.in (upgrade-warmelt, upgrade-bigmelt): recoded entirely
	the commands to consider secondarily generated C files.
	{{regenerated, and added secondary C files}}
	* gcc/melt/warmelt-first.0+1.c: regenerated & added.
	* gcc/melt/warmelt-first.0+2.c: regenerated & added.
	* gcc/melt/warmelt-first.0.c: regenerated.
	* gcc/melt/warmelt-genobj.0+1.c: regenerated & added.
	* gcc/melt/warmelt-genobj.0+2.c: regenerated & added.
	* gcc/melt/warmelt-genobj.0+3.c: regenerated & added.
	* gcc/melt/warmelt-genobj.0.c: regenerated.
	* gcc/melt/warmelt-macro.0+1.c: regenerated & added.
	* gcc/melt/warmelt-macro.0+2.c: regenerated & added.
	* gcc/melt/warmelt-macro.0.c: regenerated.
	* gcc/melt/warmelt-normal.0+1.c: regenerated & added.
	* gcc/melt/warmelt-normal.0+2.c: regenerated & added.
	* gcc/melt/warmelt-normal.0.c: regenerated.
	* gcc/melt/warmelt-normatch.0.c: regenerated.
	* gcc/melt/warmelt-outobj.0+1.c: regenerated & added.
	* gcc/melt/warmelt-outobj.0+2.c: regenerated & added.
	* gcc/melt/warmelt-outobj.0+3.c: regenerated & added.
	* gcc/melt/warmelt-outobj.0.c: regenerated.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@154866 138bc75d-0d04-0410-961f-82ee72b054a4

20 files changed, 259752 insertions, 250018 deletions

diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT
index 4d440372339..fc6bac96111 100644
--- a/gcc/ChangeLog.MELT
+++ b/gcc/ChangeLog.MELT
@@ -1,3 +1,27 @@
+2009-12-01  Basile Starynkevitch  <basile@starynkevitch.net>
+
+	* Makefile.in (upgrade-warmelt, upgrade-bigmelt): recoded entirely
+	the commands to consider secondarily generated C files.
+	{{regenerated, and added secondary C files}}
+	* melt/warmelt-first.0+1.c: regenerated & added.
+	* melt/warmelt-first.0+2.c: regenerated & added.
+	* melt/warmelt-first.0.c: regenerated.
+	* melt/warmelt-genobj.0+1.c: regenerated & added.
+	* melt/warmelt-genobj.0+2.c: regenerated & added.
+	* melt/warmelt-genobj.0+3.c: regenerated & added.
+	* melt/warmelt-genobj.0.c: regenerated.
+	* melt/warmelt-macro.0+1.c: regenerated & added.
+	* melt/warmelt-macro.0+2.c: regenerated & added.
+	* melt/warmelt-macro.0.c: regenerated.
+	* melt/warmelt-normal.0+1.c: regenerated & added.
+	* melt/warmelt-normal.0+2.c: regenerated & added.
+	* melt/warmelt-normal.0.c: regenerated.
+	* melt/warmelt-normatch.0.c: regenerated.
+	* melt/warmelt-outobj.0+1.c: regenerated & added.
+	* melt/warmelt-outobj.0+2.c: regenerated & added.
+	* melt/warmelt-outobj.0+3.c: regenerated & added.
+	* melt/warmelt-outobj.0.c: regenerated.
+
 2009-11-30  Basile Starynkevitch  <basile@starynkevitch.net>
 
 	* doc/melt.texi (Invoking MELT): documenting -fmelt-single-c-file
diff --git a/gcc/Makefile.in b/gcc/Makefile.in
index e36535bbe51..80ed24b278c 100644
--- a/gcc/Makefile.in
+++ b/gcc/Makefile.in
@@ -5172,27 +5172,41 @@ install-melt-meltfiles: installdirs $(WARMELT_SRCFILES) $(ANAMELT_SRCFILES)
 .PHONY: upgrade-warmelt upgrade-bigmelt
 
 upgrade-warmelt: $(WARMELT_BASE3SO)
-	$(MAKE) Makefile
-	@echo upgrade-warmelt show diff of "warmelt-*2.c & warmelt-*3.c"
-	for f in $(WARMELT_BASE); do \
-	  diff $$f.2.c $$f.3.c || true; \
+	$(MAKE) Makefile warmelt3.modlis
+## build warmelt-first.0*.c
+	@echo upgrade-warmelt building warmelt-first-0.c and secondary files
+	rm -f warmelt-first.0*.c 
+	$(MELTCCINIT1) $(meltarg_init)="@warmelt3" \
+	      $(meltarg_arg)=$(melt_source_dir)/warmelt-first.melt \
+	      $(meltarg_output)=warmelt-first.0.c  empty-file-for-melt.c
+	rm -f $(srcdir)/melt/warmelt-first.0*.c
+	for f in warmelt-first.0*.c; do \
+	  grep -v '^#line' $$f | unifdef -UMELTGCC_NOLINENUMBERING  > $(srcdir)/melt/$$f-tmp; \
+	  $(SHELL) $(srcdir)/../move-if-change  $(srcdir)/melt/$$f-tmp  $(srcdir)/melt/$$f; \
 	done
-	for f in $(WARMELT_BASE); do \
-	  grep -v '^#line' $$f.3.c | unifdef -UMELTGCC_NOLINENUMBERING | sed -e 's:$$f.3:$$f-0:' > $$f.0.c-tmp ; \
-	  $(SHELL) $(srcdir)/../move-if-change $$f.0.c-tmp $(srcdir)/melt/$$f.0.c; \
+## build other warmelt-*.0*.c
+	for r in $(WARMELT_REST); do \
+	  rm -f $$r.0*.c ; \
+	  echo upgrade-warmelt generating $$r.0 C files; \
+	  $(MELTCCFILE1) $(meltarg_init)="@warmelt3" \
+	      $(meltarg_arg)=$(srcdir)/melt/$$r.melt \
+	      $(meltarg_output)=$$r.0.c  empty-file-for-melt.c ; \
+	  rm -f $(srcdir)/melt/$$r.0*.c; \
+	  for f in $$r.0*.c ; do \
+	    grep -v '^#line' $$f | unifdef -UMELTGCC_NOLINENUMBERING  > $(srcdir)/melt/$$f-tmp; \
+	    $(SHELL) $(srcdir)/../move-if-change  $(srcdir)/melt/$$f-tmp  $(srcdir)/melt/$$f; \
+          done; \
 	done
+## rebuild warmelt1 to be sure
+	@echo upgrade-warmelt rebuilding warmelt1
+	$(MAKE)  warmelt1.modlis $(WARMELT_BASE1SO)
+	@echo upgrade-warmelt complete
+
 
 upgrade-bigmelt: warmeltallbig
 	$(MAKE) Makefile
 	$(MAKE)  $(WARMELT_BASE3SO)
-	@echo upgrade-bigmelt show diff of "warmelt-*2.c & warmelt-*3.c"
-	for f in $(WARMELT_BASE); do \
-	  diff $$f.2.c $$f.3.c || true; \
-	done
-	for f in $(WARMELT_BASE); do \
-	  grep -v '^#line' $$f.3.c | unifdef -UMELTGCC_NOLINENUMBERING | sed -e 's:$$f.3:$$f.0:' > $$f.0.c-tmp ; \
-	  $(SHELL) $(srcdir)/../move-if-change $$f.0.c-tmp $(srcdir)/melt/$$f.0.c; \
-	done
+	$(MAKE) upgrade-warmelt
 
 
 ## one of the intall-melt-headers-{tar,cpio,cp} targets below is
diff --git a/gcc/melt/warmelt-first.0+1.c b/gcc/melt/warmelt-first.0+1.c
new file mode 100644
index 00000000000..de56d63ff85
--- /dev/null
+++ b/gcc/melt/warmelt-first.0+1.c
@@ -0,0 +1,8402 @@
+/* GCC MELT GENERATED FILE warmelt-first.0+1.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #1 */
+#include "run-melt.h"
+
+/**** warmelt-first.0+1.c declarations ****/
+#define MELT_HAS_INITIAL_ENVIRONMENT 0
+
+/**!!** ***
+    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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_first_COMPARE_NAMED_ALPHA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_first_INSTALL_CTYPE_DESCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_first_ADD_NEW_SYMBOL_TOKEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_first_ADD_NEW_KEYWORD_TOKEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_first_INTERN_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_first_INTERN_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_first_CLONE_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_first_INITFRESH_CONTENVMAKER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_first_INITVALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_first_INITVALUE_IMPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_first_INITMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_first_INITPATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_first_INIT_EXITFINALIZER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_first_AT_EXIT_FIRST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_first_AT_EXIT_LAST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_first_INIT_UNITSTARTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_first_AT_START_UNIT_FIRST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_first_AT_START_UNIT_LAST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_first_INIT_UNITFINISHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_first_AT_FINISH_UNIT_FIRST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_first_AT_FINISH_UNIT_LAST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_first_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_first_DEBUGMSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_first_MAPOBJECT_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_first_MAPOBJECT_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_first_MAPSTRING_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_first_MAPSTRING_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_first_LIST_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_first_LIST_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_first_LIST_APPEND2LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_first_LIST_MAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_first_LIST_FIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_first_LIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_first_MULTIPLE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_first_MULTIPLE_MAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_first_MULTIPLE_TO_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_first_CLOSURE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_first_ROUTINE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_first_LIST1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_first_LIST2(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_first_LIST3(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_first_LIST4(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_first_LIST5(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_first_LIST6(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_first_INSTALL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_first_DBG_OUTOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_first_DBG_OUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_first_DBGOUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_first_DBGOUT_NULL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_first_DBGOUT_STRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_first_DBGOUT_LIST_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_first_DBGOUT_BOX_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_first_COMPARE_OBJ_RANKED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_first_FRESH_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_first_FIND_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_first_FIND_ENV_DEBUG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_first_FIND_ENCLOSING_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_first_PUT_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_first_OVERWRITE_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_first_DEBUG_MSG_FUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_first_POST_INITIALIZATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-first.0+1.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_41_warmelt_first_LIST_FIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_41_warmelt_first_LIST_FIND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST_FIND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3273:/ getarg");
+ /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3273:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.X__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.X__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3273:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3273:/ block");
+/*block*/{
+ /*_#IS_LIST__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
+ MELT_LOCATION("warmelt-first.melt:3274:/ cond");
+ /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3274:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3274:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:3275:/ block");
+   /*block*/{
+    /*_.CURPAIR__V7*/ curfptr[6] = 
+     (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
+    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
+    MELT_LOCATION("warmelt-first.melt:3276:/ cond");
+    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:3276:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:3276:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:3277:/ loop");
+      /*loop*/{ labloop_LISLOOP_2:;MELT_LOCATION("warmelt-first.melt:3277:/ loopbody");
+      
+       MELT_LOCATION("warmelt-first.melt:3277:/ block");
+       /*block*/{
+        /*_#IS_PAIR__L3*/ curfnum[2] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])) == OBMAG_PAIR);;
+        /*_#NOT__L4*/ curfnum[3] = 
+         (!(/*_#IS_PAIR__L3*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3278:/ cond");
+        /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3278:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3278:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3278:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3278:/ compute");
+           /*_.LISLOOP__V10*/ curfptr[9] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3278:/ exit");
+           /*exit*/{
+            goto labexit_LISLOOP_2;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        MELT_LOCATION("warmelt-first.melt:3279:/ block");
+        /*block*/{
+         /*_.CURELEM__V12*/ curfptr[11] = 
+          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
+         MELT_LOCATION("warmelt-first.melt:3280:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-first.melt:3280:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.X__V3*/ curfptr[2];
+          /*_.T__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ curfptr[3]), (melt_ptr_t)(/*_.CURELEM__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-first.melt:3281:/ cond");
+         /*cond*/ if (/*_.T__V13*/ curfptr[12]) /*then*/ {
+         MELT_LOCATION("warmelt-first.melt:3281:/ cond.then");
+         MELT_LOCATION("warmelt-first.melt:3281:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3281:/ block");
+           /*block*/{
+            /*_.RETVAL___V1*/ curfptr[0] = /*_.T__V13*/ curfptr[12];;
+            MELT_LOCATION("warmelt-first.melt:3281:/ finalreturn");
+            ;
+            /*finalret*/ goto labend_rout ;}
+           ;
+           /*_.IF___V14*/ curfptr[13] = /*_.RETURN___V15*/ curfptr[14];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3281:/ clear");
+           /*clear*/ /*_.RETURN___V15*/ curfptr[14] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-first.melt:3281:/ cond.else");
+         
+          /*_.IF___V14*/ curfptr[13] = NULL;;
+          }
+         ;
+         /*_.PAIR_TAIL__V16*/ curfptr[14] = 
+          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
+         MELT_LOCATION("warmelt-first.melt:3282:/ compute");
+         /*_.CURPAIR__V7*/ curfptr[6] = /*_.SETQ___V17*/ curfptr[16] = /*_.PAIR_TAIL__V16*/ curfptr[14];;
+         /*_.LET___V11*/ curfptr[10] = /*_.SETQ___V17*/ curfptr[16];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3279:/ clear");
+         /*clear*/ /*_.CURELEM__V12*/ curfptr[11] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3279:/ clear");
+         /*clear*/ /*_.T__V13*/ curfptr[12] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3279:/ clear");
+         /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3279:/ clear");
+         /*clear*/ /*_.PAIR_TAIL__V16*/ curfptr[14] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3279:/ clear");
+         /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3277:/ clear");
+        /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3277:/ clear");
+        /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3277:/ clear");
+        /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;}
+       ;
+       ;
+        goto labloop_LISLOOP_2;
+        labexit_LISLOOP_2:;MELT_LOCATION("warmelt-first.melt:3277:/ loopepilog");
+      /*loopepilog*/
+       /*_.FOREVER___V9*/ curfptr[8] = /*_.LISLOOP__V10*/ curfptr[9];;
+       }
+      ;
+      /*_.IFELSE___V8*/ curfptr[7] = /*_.FOREVER___V9*/ curfptr[8];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3276:/ clear");
+      /*clear*/ /*_.FOREVER___V9*/ curfptr[8] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-first.melt:3276:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:3276:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:3284:/ loop");
+      /*loop*/{ labloop_MEMLOOP_1:;MELT_LOCATION("warmelt-first.melt:3284:/ loopbody");
+      
+       MELT_LOCATION("warmelt-first.melt:3284:/ block");
+       /*block*/{
+        /*_#IS_PAIR__L5*/ curfnum[2] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])) == OBMAG_PAIR);;
+        /*_#NOT__L6*/ curfnum[3] = 
+         (!(/*_#IS_PAIR__L5*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3285:/ cond");
+        /*cond*/ if (/*_#NOT__L6*/ curfnum[3]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3285:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3285:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3285:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3285:/ compute");
+           /*_.MEMLOOP__V19*/ curfptr[12] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3285:/ exit");
+           /*exit*/{
+            goto labexit_MEMLOOP_1;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        MELT_LOCATION("warmelt-first.melt:3286:/ block");
+        /*block*/{
+         /*_.CURELEM__V21*/ curfptr[14] = 
+          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
+         /*_#__L7*/ curfnum[6] = 
+          ((/*_.CURELEM__V21*/ curfptr[14]) == (/*_.X__V3*/ curfptr[2]));;
+         MELT_LOCATION("warmelt-first.melt:3287:/ cond");
+         /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
+         MELT_LOCATION("warmelt-first.melt:3287:/ cond.then");
+         MELT_LOCATION("warmelt-first.melt:3287:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3287:/ block");
+           /*block*/{
+            /*_.RETVAL___V1*/ curfptr[0] = /*_.CURELEM__V21*/ curfptr[14];;
+            MELT_LOCATION("warmelt-first.melt:3287:/ finalreturn");
+            ;
+            /*finalret*/ goto labend_rout ;}
+           ;
+           /*_.IF___V22*/ curfptr[16] = /*_.RETURN___V23*/ curfptr[10];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3287:/ clear");
+           /*clear*/ /*_.RETURN___V23*/ curfptr[10] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-first.melt:3287:/ cond.else");
+         
+          /*_.IF___V22*/ curfptr[16] = NULL;;
+          }
+         ;
+         /*_.PAIR_TAIL__V24*/ curfptr[8] = 
+          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
+         MELT_LOCATION("warmelt-first.melt:3288:/ compute");
+         /*_.CURPAIR__V7*/ curfptr[6] = /*_.SETQ___V25*/ curfptr[10] = /*_.PAIR_TAIL__V24*/ curfptr[8];;
+         /*_.LET___V20*/ curfptr[13] = /*_.SETQ___V25*/ curfptr[10];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3286:/ clear");
+         /*clear*/ /*_.CURELEM__V21*/ curfptr[14] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3286:/ clear");
+         /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3286:/ clear");
+         /*clear*/ /*_.IF___V22*/ curfptr[16] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3286:/ clear");
+         /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[8] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3286:/ clear");
+         /*clear*/ /*_.SETQ___V25*/ curfptr[10] = 0 ;}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3284:/ clear");
+        /*clear*/ /*_#IS_PAIR__L5*/ curfnum[2] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3284:/ clear");
+        /*clear*/ /*_#NOT__L6*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3284:/ clear");
+        /*clear*/ /*_.LET___V20*/ curfptr[13] = 0 ;}
+       ;
+       ;
+        goto labloop_MEMLOOP_1;
+        labexit_MEMLOOP_1:;MELT_LOCATION("warmelt-first.melt:3284:/ loopepilog");
+      /*loopepilog*/
+       /*_.FOREVER___V18*/ curfptr[11] = /*_.MEMLOOP__V19*/ curfptr[12];;
+       }
+      ;
+      /*_.IFELSE___V8*/ curfptr[7] = /*_.FOREVER___V18*/ curfptr[11];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3276:/ clear");
+      /*clear*/ /*_.FOREVER___V18*/ curfptr[11] = 0 ;}
+     ;
+     }
+    ;
+    /*_.LET___V6*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3275:/ clear");
+    /*clear*/ /*_.CURPAIR__V7*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3275:/ clear");
+    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3275:/ clear");
+    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+   ;
+   /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3274:/ clear");
+   /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3274:/ cond.else");
+ 
+  /*_.IF___V5*/ curfptr[4] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3273:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-first.melt:3273:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3273:/ clear");
+ /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3273:/ clear");
+ /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST_FIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_41_warmelt_first_LIST_FIND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_42_warmelt_first_LIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_42_warmelt_first_LIST_TO_MULTIPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST_TO_MULTIPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3294:/ getarg");
+ /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3294:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DISC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DISC__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3294:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3294:/ block");
+/*block*/{
+ /*_#NULL__L1*/ curfnum[0] = 
+  ((/*_.DISC__V3*/ curfptr[2]) == NULL);;
+ MELT_LOCATION("warmelt-first.melt:3295:/ cond");
+ /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3295:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3295:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:3295:/ compute");
+   /*_.DISC__V3*/ curfptr[2] = /*_.SETQ___V6*/ curfptr[5] = (/*!DISCR_MULTIPLE*/ curfrout->tabval[0]);;
+   /*_.IF___V5*/ curfptr[4] = /*_.SETQ___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3295:/ clear");
+   /*clear*/ /*_.SETQ___V6*/ curfptr[5] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3295:/ cond.else");
+ 
+  /*_.IF___V5*/ curfptr[4] = NULL;;
+  }
+ ;
+ /*_#IS_LIST__L2*/ curfnum[1] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
+ MELT_LOCATION("warmelt-first.melt:3296:/ cond");
+ /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3296:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3296:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:3297:/ block");
+   /*block*/{
+    /*_#LN__L3*/ curfnum[2] = 
+     (melt_list_length((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
+    /*_.TUP__V9*/ curfptr[8] = 
+     (meltgc_new_multiple((meltobject_ptr_t)(/*_.DISC__V3*/ curfptr[2]), (/*_#LN__L3*/ curfnum[2])));;
+    /*_.IXB__V10*/ curfptr[9] = 
+     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));;
+    /*_.CURPAIR__V11*/ curfptr[10] = 
+     (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
+    MELT_LOCATION("warmelt-first.melt:3303:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3303:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (3));
+     ;
+     MELT_LOCATION("warmelt-first.melt:3303:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[0] = (melt_ptr_t)(/*_.IXB__V10*/ curfptr[9]);
+     ;
+     MELT_LOCATION("warmelt-first.melt:3303:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[1] = (melt_ptr_t)(/*_.F__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-first.melt:3303:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[2] = (melt_ptr_t)(/*_.TUP__V9*/ curfptr[8]);
+     ;
+     /*_.LAMBDA___V12*/ curfptr[11] = /*_.LAMBDA___V13*/ curfptr[12];;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3301:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:3301:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ curfptr[11];
+     /*_.LIST_EVERY__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LIS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.LET___V8*/ curfptr[7] = /*_.TUP__V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3297:/ clear");
+    /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3297:/ clear");
+    /*clear*/ /*_.TUP__V9*/ curfptr[8] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3297:/ clear");
+    /*clear*/ /*_.IXB__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3297:/ clear");
+    /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3297:/ clear");
+    /*clear*/ /*_.LAMBDA___V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3297:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V14*/ curfptr[13] = 0 ;}
+   ;
+   /*_.IF___V7*/ curfptr[5] = /*_.LET___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3296:/ clear");
+   /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3296:/ cond.else");
+ 
+  /*_.IF___V7*/ curfptr[5] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3294:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-first.melt:3294:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3294:/ clear");
+ /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3294:/ clear");
+ /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3294:/ clear");
+ /*clear*/ /*_#IS_LIST__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3294:/ clear");
+ /*clear*/ /*_.IF___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST_TO_MULTIPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_42_warmelt_first_LIST_TO_MULTIPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_43_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_43_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3303:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3303:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3304:/ block");
+ /*block*/{
+  /*_#IX__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~IXB*/ curfclos->tabval[0]))));;
+  /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+   (melt_magic_discr((melt_ptr_t)((/*~F*/ curfclos->tabval[1]))) == OBMAG_CLOSURE);;
+  MELT_LOCATION("warmelt-first.melt:3305:/ cond");
+  /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3305:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3305:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3305:/ apply");
+    /*apply*/{
+     /*_.F__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*~F*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.TC__V3*/ curfptr[2] = /*_.F__V4*/ curfptr[3];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3305:/ clear");
+    /*clear*/ /*_.F__V4*/ curfptr[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3305:/ cond.else");
+  
+   /*_.TC__V3*/ curfptr[2] = /*_.C__V2*/ curfptr[1];;
+   }
+  ;
+  /*_#I__L3*/ curfnum[2] = 
+   ((/*_#IX__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3307:/ locexp");
+  melt_put_int((melt_ptr_t)((/*~IXB*/ curfclos->tabval[0])), (/*_#I__L3*/ curfnum[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3308:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.TC__V3*/ curfptr[2]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3304:/ clear");
+  /*clear*/ /*_#IX__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3304:/ clear");
+  /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3304:/ clear");
+  /*clear*/ /*_.TC__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3304:/ clear");
+  /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_43_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PAIRLIST_TO_MULTIPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3314:/ getarg");
+ /*_.PAIR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3314:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DISC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DISC__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3314:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3314:/ block");
+/*block*/{
+ /*_#NULL__L1*/ curfnum[0] = 
+  ((/*_.DISC__V3*/ curfptr[2]) == NULL);;
+ MELT_LOCATION("warmelt-first.melt:3320:/ cond");
+ /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3320:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3320:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:3320:/ compute");
+   /*_.DISC__V3*/ curfptr[2] = /*_.SETQ___V6*/ curfptr[5] = (/*!DISCR_MULTIPLE*/ curfrout->tabval[0]);;
+   /*_.IF___V5*/ curfptr[4] = /*_.SETQ___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3320:/ clear");
+   /*clear*/ /*_.SETQ___V6*/ curfptr[5] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3320:/ cond.else");
+ 
+  /*_.IF___V5*/ curfptr[4] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3321:/ block");
+ /*block*/{
+  /*_#LN__L2*/ curfnum[1] = 0;;
+  MELT_LOCATION("warmelt-first.melt:3322:/ block");
+  /*block*/{
+   /*_.CURPAIR__V9*/ curfptr[8] = /*_.PAIR__V2*/ curfptr[1];;
+   MELT_LOCATION("warmelt-first.melt:3323:/ loop");
+   /*loop*/{ labloop_LOOPLN_1:;MELT_LOCATION("warmelt-first.melt:3323:/ loopbody");
+   
+    MELT_LOCATION("warmelt-first.melt:3323:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L3*/ curfnum[2] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[8])) == OBMAG_PAIR);;
+     /*_#NOT__L4*/ curfnum[3] = 
+      (!(/*_#IS_PAIR__L3*/ curfnum[2]));;
+     MELT_LOCATION("warmelt-first.melt:3324:/ cond");
+     /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:3324:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:3324:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3324:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3324:/ compute");
+        /*_.LOOPLN__V11*/ curfptr[10] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3324:/ exit");
+        /*exit*/{
+         goto labexit_LOOPLN_1;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     /*_#I__L5*/ curfnum[4] = 
+      ((/*_#LN__L2*/ curfnum[1]) + (1));;
+     MELT_LOCATION("warmelt-first.melt:3325:/ compute");
+     /*_#LN__L2*/ curfnum[1] = /*_#SETQ___L6*/ curfnum[5] = /*_#I__L5*/ curfnum[4];;
+     /*_.PAIR_TAIL__V12*/ curfptr[11] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[8])));;
+     MELT_LOCATION("warmelt-first.melt:3326:/ compute");
+     /*_.CURPAIR__V9*/ curfptr[8] = /*_.SETQ___V13*/ curfptr[12] = /*_.PAIR_TAIL__V12*/ curfptr[11];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3323:/ clear");
+     /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3323:/ clear");
+     /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3323:/ clear");
+     /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3323:/ clear");
+     /*clear*/ /*_#SETQ___L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3323:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V12*/ curfptr[11] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3323:/ clear");
+     /*clear*/ /*_.SETQ___V13*/ curfptr[12] = 0 ;}
+    ;
+    ;
+     goto labloop_LOOPLN_1;
+     labexit_LOOPLN_1:;MELT_LOCATION("warmelt-first.melt:3323:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V10*/ curfptr[9] = /*_.LOOPLN__V11*/ curfptr[10];;
+    }
+   ;
+   /*_.LET___V8*/ curfptr[7] = /*_.FOREVER___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3322:/ clear");
+   /*clear*/ /*_.CURPAIR__V9*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3322:/ clear");
+   /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-first.melt:3327:/ block");
+  /*block*/{
+   /*_.TUP__V15*/ curfptr[12] = 
+    (meltgc_new_multiple((meltobject_ptr_t)(/*_.DISC__V3*/ curfptr[2]), (/*_#LN__L2*/ curfnum[1])));;
+   /*_#IX__L7*/ curfnum[2] = 0;;
+   /*_.CURPAIR__V16*/ curfptr[8] = /*_.PAIR__V2*/ curfptr[1];;
+   MELT_LOCATION("warmelt-first.melt:3331:/ loop");
+   /*loop*/{ labloop_LOOPFI_1:;MELT_LOCATION("warmelt-first.melt:3331:/ loopbody");
+   
+    MELT_LOCATION("warmelt-first.melt:3331:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L8*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V16*/ curfptr[8])) == OBMAG_PAIR);;
+     /*_#NOT__L9*/ curfnum[4] = 
+      (!(/*_#IS_PAIR__L8*/ curfnum[3]));;
+     MELT_LOCATION("warmelt-first.melt:3332:/ cond");
+     /*cond*/ if (/*_#NOT__L9*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:3332:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:3332:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3332:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3332:/ compute");
+        /*_.LOOPFI__V18*/ curfptr[17] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3332:/ exit");
+        /*exit*/{
+         goto labexit_LOOPFI_1;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-first.melt:3333:/ block");
+     /*block*/{
+      /*_.C__V20*/ curfptr[19] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ curfptr[8])));;
+      /*_#IS_CLOSURE__L10*/ curfnum[5] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
+      MELT_LOCATION("warmelt-first.melt:3334:/ cond");
+      /*cond*/ if (/*_#IS_CLOSURE__L10*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:3334:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:3334:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3334:/ apply");
+        /*apply*/{
+         /*_.F__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ curfptr[3]), (melt_ptr_t)(/*_.C__V20*/ curfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.TC__V21*/ curfptr[20] = /*_.F__V22*/ curfptr[21];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3334:/ clear");
+        /*clear*/ /*_.F__V22*/ curfptr[21] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-first.melt:3334:/ cond.else");
+      
+       /*_.TC__V21*/ curfptr[20] = /*_.C__V20*/ curfptr[19];;
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3335:/ locexp");
+      meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V15*/ curfptr[12]), (/*_#IX__L7*/ curfnum[2]), (melt_ptr_t)(/*_.TC__V21*/ curfptr[20]));}
+      ;
+      /*_#I__L11*/ curfnum[10] = 
+       ((/*_#IX__L7*/ curfnum[2]) + (1));;
+      MELT_LOCATION("warmelt-first.melt:3336:/ compute");
+      /*_#IX__L7*/ curfnum[2] = /*_#SETQ___L12*/ curfnum[11] = /*_#I__L11*/ curfnum[10];;
+      /*_.PAIR_TAIL__V23*/ curfptr[21] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ curfptr[8])));;
+      MELT_LOCATION("warmelt-first.melt:3337:/ compute");
+      /*_.CURPAIR__V16*/ curfptr[8] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[21];;
+      /*_.LET___V19*/ curfptr[18] = /*_.SETQ___V24*/ curfptr[23];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_.C__V20*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_#IS_CLOSURE__L10*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_.TC__V21*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_#SETQ___L12*/ curfnum[11] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[21] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3333:/ clear");
+      /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3331:/ clear");
+     /*clear*/ /*_#IS_PAIR__L8*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3331:/ clear");
+     /*clear*/ /*_#NOT__L9*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3331:/ clear");
+     /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
+    ;
+    ;
+     goto labloop_LOOPFI_1;
+     labexit_LOOPFI_1:;MELT_LOCATION("warmelt-first.melt:3331:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V17*/ curfptr[9] = /*_.LOOPFI__V18*/ curfptr[17];;
+    }
+   ;
+   MELT_LOCATION("warmelt-first.melt:3338:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V15*/ curfptr[12];;
+    MELT_LOCATION("warmelt-first.melt:3338:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V14*/ curfptr[11] = /*_.RETURN___V25*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
+   /*clear*/ /*_.TUP__V15*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
+   /*clear*/ /*_#IX__L7*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
+   /*clear*/ /*_.CURPAIR__V16*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
+   /*clear*/ /*_.FOREVER___V17*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
+   /*clear*/ /*_.RETURN___V25*/ curfptr[19] = 0 ;}
+  ;
+  /*_.LET___V7*/ curfptr[5] = /*_.LET___V14*/ curfptr[11];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3321:/ clear");
+  /*clear*/ /*_#LN__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3321:/ clear");
+  /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3321:/ clear");
+  /*clear*/ /*_.LET___V14*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3314:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-first.melt:3314:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3314:/ clear");
+ /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3314:/ clear");
+ /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3314:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PAIRLIST_TO_MULTIPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_45_warmelt_first_MULTIPLE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_first_MULTIPLE_EVERY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MULTIPLE_EVERY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3379:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3379:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3379:/ block");
+/*block*/{
+ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+ MELT_LOCATION("warmelt-first.melt:3382:/ cond");
+ /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3382:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3382:/ block");
+  /*block*/{
+   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
+   MELT_LOCATION("warmelt-first.melt:3383:/ cond");
+   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3383:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3383:/ block");
+    /*block*/{
+     /*citerblock FOREACH_IN_MULTIPLE*/ {
+      /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
+   for (/*_#IX__L3*/ curfnum[2] = 0;  
+	(/*_#IX__L3*/ curfnum[2] >= 0) && (/*_#IX__L3*/ curfnum[2] <  cit1__EACHTUP_ln);  
+	/*_#IX__L3*/ curfnum[2]++) {
+   /*_.COMP__V4*/ curfptr[3] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  /*_#IX__L3*/ curfnum[2]);
+   
+     
+      MELT_LOCATION("warmelt-first.melt:3387:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-first.melt:3387:/ apply.arg");
+       argtab[0].bp_long = /*_#IX__L3*/ curfnum[2];
+       /*_.F__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.COMP__V4*/ curfptr[3]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      if (/*_#IX__L3*/ curfnum[2]<0) break;
+   } /* end cit1__EACHTUP */ 
+     
+      /*citerepilog*/
+      MELT_LOCATION("warmelt-first.melt:3384:/ clear");
+      /*clear*/ /*_.COMP__V4*/ curfptr[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3384:/ clear");
+      /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3384:/ clear");
+      /*clear*/ /*_.F__V5*/ curfptr[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3382:/ clear");
+   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3379:/ clear");
+ /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MULTIPLE_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_45_warmelt_first_MULTIPLE_EVERY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MULTIPLE_BACKWARD_EVERY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3390:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3390:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3390:/ block");
+/*block*/{
+ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+ MELT_LOCATION("warmelt-first.melt:3393:/ cond");
+ /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3393:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3393:/ block");
+  /*block*/{
+   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
+   MELT_LOCATION("warmelt-first.melt:3394:/ cond");
+   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3394:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3394:/ block");
+    /*block*/{
+     /*citerblock FOREACH_IN_MULTIPLE_BACKWARD*/ {
+      /* start cit1__EACHTUPBACK: */
+   long  cit1__EACHTUPBACK_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
+   long  cit1__EACHTUPBACK_ix = 0;
+   for (cit1__EACHTUPBACK_ix = cit1__EACHTUPBACK_ln - 1;  
+	cit1__EACHTUPBACK_ix >= 0;  
+	cit1__EACHTUPBACK_ix--) {
+   /*_.COMP__V4*/ curfptr[3] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  cit1__EACHTUPBACK_ix);
+   /*_#IX__L3*/ curfnum[2]  =  cit1__EACHTUPBACK_ix;
+     
+      MELT_LOCATION("warmelt-first.melt:3398:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-first.melt:3398:/ apply.arg");
+       argtab[0].bp_long = /*_#IX__L3*/ curfnum[2];
+       /*_.F__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.COMP__V4*/ curfptr[3]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      } /* end cit1__EACHTUPBACK */ 
+     
+      /*citerepilog*/
+      MELT_LOCATION("warmelt-first.melt:3395:/ clear");
+      /*clear*/ /*_.COMP__V4*/ curfptr[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3395:/ clear");
+      /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3395:/ clear");
+      /*clear*/ /*_.F__V5*/ curfptr[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE_BACKWARD*/
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3393:/ clear");
+   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3390:/ clear");
+ /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MULTIPLE_BACKWARD_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MULTIPLE_EVERY_BOTH", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3402:/ getarg");
+ /*_.TUP1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3402:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TUP2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3402:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3402:/ block");
+/*block*/{
+ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.TUP1__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+ MELT_LOCATION("warmelt-first.melt:3405:/ cond");
+ /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3405:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3405:/ block");
+  /*block*/{
+   /*_#IS_MULTIPLE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2])) == OBMAG_MULTIPLE);;
+   MELT_LOCATION("warmelt-first.melt:3406:/ cond");
+   /*cond*/ if (/*_#IS_MULTIPLE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3406:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3406:/ block");
+    /*block*/{
+     /*_#IS_CLOSURE__L3*/ curfnum[2] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
+     MELT_LOCATION("warmelt-first.melt:3407:/ cond");
+     /*cond*/ if (/*_#IS_CLOSURE__L3*/ curfnum[2]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:3407:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:3407:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3408:/ block");
+       /*block*/{
+        /*_#LN1__L4*/ curfnum[3] = 
+         (melt_multiple_length((melt_ptr_t)(/*_.TUP1__V2*/ curfptr[1])));;
+        /*_#LN2__L5*/ curfnum[4] = 
+         (melt_multiple_length((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2])));;
+        /*_#IX__L6*/ curfnum[5] = 0;;
+        MELT_LOCATION("warmelt-first.melt:3411:/ loop");
+        /*loop*/{ labloop_TUPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3411:/ loopbody");
+        
+         MELT_LOCATION("warmelt-first.melt:3411:/ block");
+         /*block*/{
+          /*_#I__L7*/ curfnum[6] = 
+           ((/*_#IX__L6*/ curfnum[5]) >= (/*_#LN1__L4*/ curfnum[3]));;
+          MELT_LOCATION("warmelt-first.melt:3412:/ cond");
+          /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+          MELT_LOCATION("warmelt-first.melt:3412:/ cond.then");
+          MELT_LOCATION("warmelt-first.melt:3412:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-first.melt:3412:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-first.melt:3412:/ compute");
+             /*_.TUPLOOP__V10*/ curfptr[9] = NULL;;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:3412:/ exit");
+             /*exit*/{
+              goto labexit_TUPLOOP_1;}
+             ;}
+            ;
+            /*epilog*/}
+           ;
+          } /*noelse*/
+          ;
+          /*_#I__L8*/ curfnum[7] = 
+           ((/*_#IX__L6*/ curfnum[5]) >= (/*_#LN2__L5*/ curfnum[4]));;
+          MELT_LOCATION("warmelt-first.melt:3413:/ cond");
+          /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
+          MELT_LOCATION("warmelt-first.melt:3413:/ cond.then");
+          MELT_LOCATION("warmelt-first.melt:3413:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-first.melt:3413:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-first.melt:3413:/ compute");
+             /*_.TUPLOOP__V10*/ curfptr[9] = NULL;;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:3413:/ exit");
+             /*exit*/{
+              goto labexit_TUPLOOP_1;}
+             ;}
+            ;
+            /*epilog*/}
+           ;
+          } /*noelse*/
+          ;
+          /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 
+           (melt_multiple_nth((melt_ptr_t)(/*_.TUP1__V2*/ curfptr[1]), (/*_#IX__L6*/ curfnum[5])));;
+          /*_.MULTIPLE_NTH__V12*/ curfptr[11] = 
+           (melt_multiple_nth((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2]), (/*_#IX__L6*/ curfnum[5])));;
+          MELT_LOCATION("warmelt-first.melt:3414:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[2];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-first.melt:3414:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MULTIPLE_NTH__V12*/ curfptr[11];
+           MELT_LOCATION("warmelt-first.melt:3414:/ apply.arg");
+           argtab[1].bp_long = /*_#IX__L6*/ curfnum[5];
+           /*_.F__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ curfptr[3]), (melt_ptr_t)(/*_.MULTIPLE_NTH__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_#I__L9*/ curfnum[8] = 
+           ((/*_#IX__L6*/ curfnum[5]) + (1));;
+          MELT_LOCATION("warmelt-first.melt:3415:/ compute");
+          /*_#IX__L6*/ curfnum[5] = /*_#SETQ___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_.MULTIPLE_NTH__V12*/ curfptr[11] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_.F__V13*/ curfptr[12] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:3411:/ clear");
+          /*clear*/ /*_#SETQ___L10*/ curfnum[9] = 0 ;}
+         ;
+         ;
+          goto labloop_TUPLOOP_1;
+          labexit_TUPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3411:/ loopepilog");
+        /*loopepilog*/
+         /*_.FOREVER___V9*/ curfptr[8] = /*_.TUPLOOP__V10*/ curfptr[9];;
+         }
+        ;
+        /*_.LET___V8*/ curfptr[7] = /*_.FOREVER___V9*/ curfptr[8];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3408:/ clear");
+        /*clear*/ /*_#LN1__L4*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3408:/ clear");
+        /*clear*/ /*_#LN2__L5*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3408:/ clear");
+        /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3408:/ clear");
+        /*clear*/ /*_.FOREVER___V9*/ curfptr[8] = 0 ;}
+       ;
+       /*_.IF___V7*/ curfptr[6] = /*_.LET___V8*/ curfptr[7];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3407:/ clear");
+       /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:3407:/ cond.else");
+     
+      /*_.IF___V7*/ curfptr[6] = NULL;;
+      }
+     ;
+     /*_.IF___V6*/ curfptr[5] = /*_.IF___V7*/ curfptr[6];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3406:/ clear");
+     /*clear*/ /*_#IS_CLOSURE__L3*/ curfnum[2] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3406:/ clear");
+     /*clear*/ /*_.IF___V7*/ curfptr[6] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:3406:/ cond.else");
+   
+    /*_.IF___V6*/ curfptr[5] = NULL;;
+    }
+   ;
+   /*_.IF___V5*/ curfptr[4] = /*_.IF___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3405:/ clear");
+   /*clear*/ /*_#IS_MULTIPLE__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3405:/ clear");
+   /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3405:/ cond.else");
+ 
+  /*_.IF___V5*/ curfptr[4] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3402:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-first.melt:3402:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3402:/ clear");
+ /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3402:/ clear");
+ /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MULTIPLE_EVERY_BOTH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MULTIPLE_ITERATE_TEST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3419:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3419:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3419:/ block");
+/*block*/{
+ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+ MELT_LOCATION("warmelt-first.melt:3423:/ cond");
+ /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3423:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3423:/ block");
+  /*block*/{
+   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
+   MELT_LOCATION("warmelt-first.melt:3424:/ cond");
+   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3424:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3424:/ block");
+    /*block*/{
+     /*citerblock FOREACH_IN_MULTIPLE*/ {
+      /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
+   for (/*_#IX__L3*/ curfnum[2] = 0;  
+	(/*_#IX__L3*/ curfnum[2] >= 0) && (/*_#IX__L3*/ curfnum[2] <  cit1__EACHTUP_ln);  
+	/*_#IX__L3*/ curfnum[2]++) {
+   /*_.COMP__V4*/ curfptr[3] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  /*_#IX__L3*/ curfnum[2]);
+   
+     
+      MELT_LOCATION("warmelt-first.melt:3428:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3428:/ multiapply");
+       /*multiapply 2args, 1x.res*/ {
+        union meltparam_un argtab[1];
+        
+        union meltparam_un restab[1];
+        memset(&restab, 0, sizeof(restab));
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-first.melt:3428:/ multiapply.arg");
+        argtab[0].bp_long = /*_#IX__L3*/ curfnum[2];
+        MELT_LOCATION("warmelt-first.melt:3428:/ multiapply.xres");
+        restab[0].bp_aptr = (melt_ptr_t*) &/*_.OTHER__V7*/ curfptr[6];
+        MELT_LOCATION("warmelt-first.melt:3428:/ multiapply.appl");
+        /*_.TEST__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.COMP__V4*/ curfptr[3]), (BPARSTR_LONG ""), argtab, (BPARSTR_PTR ""), restab);
+        }
+       ;
+       MELT_LOCATION("warmelt-first.melt:3428:/ block");
+       /*block*/{
+        /*_#NULL__L4*/ curfnum[3] = 
+         ((/*_.TEST__V6*/ curfptr[5]) == NULL);;
+        MELT_LOCATION("warmelt-first.melt:3431:/ cond");
+        /*cond*/ if (/*_#NULL__L4*/ curfnum[3]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3431:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3431:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3431:/ block");
+          /*block*/{
+           /*_.RETVAL___V1*/ curfptr[0] = /*_.COMP__V4*/ curfptr[3];;
+           MELT_LOCATION("warmelt-first.melt:3431:/ putxtraresult");
+           if (!xrestab_ || !xresdescr_) goto labend_rout;
+           if (xresdescr_[0] != BPAR_LONG) goto labend_rout;
+           if (xrestab_[0].bp_longptr) *(xrestab_[0].bp_longptr) = (/*_#IX__L3*/ curfnum[2]);
+           ;
+           MELT_LOCATION("warmelt-first.melt:3431:/ putxtraresult");
+           if (!xrestab_ || !xresdescr_) goto labend_rout;
+           if (xresdescr_[1] != BPAR_PTR) goto labend_rout;
+           if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.OTHER__V7*/ curfptr[6]);
+           ;
+           MELT_LOCATION("warmelt-first.melt:3431:/ finalreturn");
+           ;
+           /*finalret*/ goto labend_rout ;}
+          ;
+          /*_.IF___V8*/ curfptr[7] = /*_.RETURN___V9*/ curfptr[8];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3431:/ clear");
+          /*clear*/ /*_.RETURN___V9*/ curfptr[8] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-first.melt:3431:/ cond.else");
+        
+         /*_.IF___V8*/ curfptr[7] = NULL;;
+         }
+        ;
+        /*_.MULTI___V5*/ curfptr[4] = /*_.IF___V8*/ curfptr[7];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3428:/ clear");
+        /*clear*/ /*_#NULL__L4*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3428:/ clear");
+        /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3428:/ clear");
+       /*clear*/ /*_.OTHER__V7*/ curfptr[6] = 0 ;}
+      ;
+      if (/*_#IX__L3*/ curfnum[2]<0) break;
+   } /* end cit1__EACHTUP */ 
+     
+      /*citerepilog*/
+      MELT_LOCATION("warmelt-first.melt:3425:/ clear");
+      /*clear*/ /*_.COMP__V4*/ curfptr[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3425:/ clear");
+      /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3425:/ clear");
+      /*clear*/ /*_.MULTI___V5*/ curfptr[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3423:/ clear");
+   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3419:/ clear");
+ /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MULTIPLE_ITERATE_TEST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_49_warmelt_first_MULTIPLE_MAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_first_MULTIPLE_MAP_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MULTIPLE_MAP", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3434:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3434:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3434:/ block");
+/*block*/{
+ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+ MELT_LOCATION("warmelt-first.melt:3437:/ cond");
+ /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3437:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3437:/ block");
+  /*block*/{
+   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
+   MELT_LOCATION("warmelt-first.melt:3438:/ cond");
+   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3438:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3438:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3439:/ block");
+     /*block*/{
+      /*_#LN__L3*/ curfnum[2] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])));;
+      /*_#IX__L4*/ curfnum[3] = 0;;
+      /*_.RES__V7*/ curfptr[6] = 
+       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (/*_#LN__L3*/ curfnum[2])));;
+      MELT_LOCATION("warmelt-first.melt:3443:/ loop");
+      /*loop*/{ labloop_TUPLOOP_2:;MELT_LOCATION("warmelt-first.melt:3443:/ loopbody");
+      
+       MELT_LOCATION("warmelt-first.melt:3443:/ block");
+       /*block*/{
+        /*_#I__L5*/ curfnum[4] = 
+         ((/*_#IX__L4*/ curfnum[3]) >= (/*_#LN__L3*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3444:/ cond");
+        /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3444:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3444:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3444:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3444:/ compute");
+           /*_.TUPLOOP__V9*/ curfptr[8] = /*_.RES__V7*/ curfptr[6];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3444:/ exit");
+           /*exit*/{
+            goto labexit_TUPLOOP_2;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        MELT_LOCATION("warmelt-first.melt:3445:/ block");
+        /*block*/{
+         /*_.CURCOMP__V10*/ curfptr[9] = 
+          (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#IX__L4*/ curfnum[3])));;
+         MELT_LOCATION("warmelt-first.melt:3446:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-first.melt:3446:/ apply.arg");
+          argtab[0].bp_long = /*_#IX__L4*/ curfnum[3];
+          /*_.F__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURCOMP__V10*/ curfptr[9]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3446:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.RES__V7*/ curfptr[6]), (/*_#IX__L4*/ curfnum[3]), (melt_ptr_t)(/*_.F__V11*/ curfptr[10]));}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3445:/ clear");
+         /*clear*/ /*_.CURCOMP__V10*/ curfptr[9] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3445:/ clear");
+         /*clear*/ /*_.F__V11*/ curfptr[10] = 0 ;}
+        ;
+        /*_#I__L6*/ curfnum[5] = 
+         ((/*_#IX__L4*/ curfnum[3]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3447:/ compute");
+        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L7*/ curfnum[6] = /*_#I__L6*/ curfnum[5];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3443:/ clear");
+        /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3443:/ clear");
+        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3443:/ clear");
+        /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;}
+       ;
+       ;
+        goto labloop_TUPLOOP_2;
+        labexit_TUPLOOP_2:;MELT_LOCATION("warmelt-first.melt:3443:/ loopepilog");
+      /*loopepilog*/
+       /*_.FOREVER___V8*/ curfptr[7] = /*_.TUPLOOP__V9*/ curfptr[8];;
+       }
+      ;
+      /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V8*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3439:/ clear");
+      /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3439:/ clear");
+      /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3439:/ clear");
+      /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3439:/ clear");
+      /*clear*/ /*_.FOREVER___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3438:/ clear");
+     /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:3438:/ cond.else");
+   
+    /*_.IF___V5*/ curfptr[4] = NULL;;
+    }
+   ;
+   /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3437:/ clear");
+   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3437:/ clear");
+   /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3437:/ cond.else");
+ 
+  /*_.IF___V4*/ curfptr[3] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3434:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:3434:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3434:/ clear");
+ /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3434:/ clear");
+ /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MULTIPLE_MAP", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_49_warmelt_first_MULTIPLE_MAP*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_50_warmelt_first_MULTIPLE_TO_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_first_MULTIPLE_TO_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MULTIPLE_TO_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3451:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3451:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DISC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DISC__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3451:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TRANSF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TRANSF__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3451:/ block");
+/*block*/{
+ /*_#NULL__L1*/ curfnum[0] = 
+  ((/*_.DISC__V3*/ curfptr[2]) == NULL);;
+ MELT_LOCATION("warmelt-first.melt:3455:/ cond");
+ /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3455:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3455:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:3455:/ compute");
+   /*_.DISC__V3*/ curfptr[2] = /*_.SETQ___V6*/ curfptr[5] = (/*!DISCR_LIST*/ curfrout->tabval[0]);;
+   /*_.IF___V5*/ curfptr[4] = /*_.SETQ___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3455:/ clear");
+   /*clear*/ /*_.SETQ___V6*/ curfptr[5] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3455:/ cond.else");
+ 
+  /*_.IF___V5*/ curfptr[4] = NULL;;
+  }
+ ;
+ /*_#IS_MULTIPLE__L2*/ curfnum[1] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+ MELT_LOCATION("warmelt-first.melt:3456:/ cond");
+ /*cond*/ if (/*_#IS_MULTIPLE__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3456:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3456:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:3457:/ block");
+   /*block*/{
+    /*_.LIS__V9*/ curfptr[8] = 
+     (meltgc_new_list((meltobject_ptr_t)(/*_.DISC__V3*/ curfptr[2])));;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
+   for (/*_#IX__L3*/ curfnum[2] = 0;  
+	(/*_#IX__L3*/ curfnum[2] >= 0) && (/*_#IX__L3*/ curfnum[2] <  cit1__EACHTUP_ln);  
+	/*_#IX__L3*/ curfnum[2]++) {
+   /*_.COMP__V10*/ curfptr[9] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  /*_#IX__L3*/ curfnum[2]);
+   
+    
+     /*_#IS_CLOSURE__L4*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.TRANSF__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
+     MELT_LOCATION("warmelt-first.melt:3461:/ cond");
+     /*cond*/ if (/*_#IS_CLOSURE__L4*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:3461:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:3461:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3462:/ apply");
+       /*apply*/{
+        /*_.TRANSF__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)(/*_.TRANSF__V4*/ curfptr[3]), (melt_ptr_t)(/*_.COMP__V10*/ curfptr[9]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+        }
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3462:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.TRANSF__V11*/ curfptr[10]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3461:/ clear");
+       /*clear*/ /*_.TRANSF__V11*/ curfptr[10] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:3461:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:3461:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3463:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.COMP__V10*/ curfptr[9]));}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     if (/*_#IX__L3*/ curfnum[2]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-first.melt:3458:/ clear");
+     /*clear*/ /*_.COMP__V10*/ curfptr[9] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3458:/ clear");
+     /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3458:/ clear");
+     /*clear*/ /*_#IS_CLOSURE__L4*/ curfnum[3] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    MELT_LOCATION("warmelt-first.melt:3464:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.LIS__V9*/ curfptr[8];;
+     MELT_LOCATION("warmelt-first.melt:3464:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V8*/ curfptr[7] = /*_.RETURN___V12*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3457:/ clear");
+    /*clear*/ /*_.LIS__V9*/ curfptr[8] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3457:/ clear");
+    /*clear*/ /*_.RETURN___V12*/ curfptr[10] = 0 ;}
+   ;
+   /*_.IF___V7*/ curfptr[5] = /*_.LET___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3456:/ clear");
+   /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3456:/ cond.else");
+ 
+  /*_.IF___V7*/ curfptr[5] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3451:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-first.melt:3451:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3451:/ clear");
+ /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3451:/ clear");
+ /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3451:/ clear");
+ /*clear*/ /*_#IS_MULTIPLE__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3451:/ clear");
+ /*clear*/ /*_.IF___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MULTIPLE_TO_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_50_warmelt_first_MULTIPLE_TO_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_51_warmelt_first_CLOSURE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_first_CLOSURE_EVERY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("CLOSURE_EVERY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3469:/ getarg");
+ /*_.CLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3469:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3469:/ block");
+/*block*/{
+ /*_#IS_CLOSURE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.CLO__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
+ MELT_LOCATION("warmelt-first.melt:3471:/ cond");
+ /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3471:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3471:/ block");
+  /*block*/{
+   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
+   MELT_LOCATION("warmelt-first.melt:3472:/ cond");
+   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3472:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3472:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3473:/ block");
+     /*block*/{
+      /*_#LN__L3*/ curfnum[2] = 
+       (melt_closure_size((melt_ptr_t)(/*_.CLO__V2*/ curfptr[1])));;
+      /*_#IX__L4*/ curfnum[3] = 0;;
+      MELT_LOCATION("warmelt-first.melt:3475:/ loop");
+      /*loop*/{ labloop_CLOLOOP_1:;MELT_LOCATION("warmelt-first.melt:3475:/ loopbody");
+      
+       MELT_LOCATION("warmelt-first.melt:3475:/ block");
+       /*block*/{
+        /*_#I__L5*/ curfnum[4] = 
+         ((/*_#IX__L4*/ curfnum[3]) >= (/*_#LN__L3*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3476:/ cond");
+        /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3476:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3476:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3476:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3476:/ compute");
+           /*_.CLOLOOP__V8*/ curfptr[7] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3476:/ exit");
+           /*exit*/{
+            goto labexit_CLOLOOP_1;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*_.CLOSURE_NTH__V9*/ curfptr[8] = 
+         (melt_closure_nth((melt_ptr_t)(/*_.CLO__V2*/ curfptr[1]), (int)(/*_#IX__L4*/ curfnum[3])));;
+        MELT_LOCATION("warmelt-first.melt:3477:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-first.melt:3477:/ apply.arg");
+         argtab[0].bp_long = /*_#IX__L4*/ curfnum[3];
+         /*_.F__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CLOSURE_NTH__V9*/ curfptr[8]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#I__L6*/ curfnum[5] = 
+         ((/*_#IX__L4*/ curfnum[3]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3478:/ compute");
+        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L7*/ curfnum[6] = /*_#I__L6*/ curfnum[5];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3475:/ clear");
+        /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3475:/ clear");
+        /*clear*/ /*_.CLOSURE_NTH__V9*/ curfptr[8] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3475:/ clear");
+        /*clear*/ /*_.F__V10*/ curfptr[9] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3475:/ clear");
+        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3475:/ clear");
+        /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;}
+       ;
+       ;
+        goto labloop_CLOLOOP_1;
+        labexit_CLOLOOP_1:;MELT_LOCATION("warmelt-first.melt:3475:/ loopepilog");
+      /*loopepilog*/
+       /*_.FOREVER___V7*/ curfptr[6] = /*_.CLOLOOP__V8*/ curfptr[7];;
+       }
+      ;
+      /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V7*/ curfptr[6];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3473:/ clear");
+      /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3473:/ clear");
+      /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3473:/ clear");
+      /*clear*/ /*_.FOREVER___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3472:/ clear");
+     /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:3472:/ cond.else");
+   
+    /*_.IF___V5*/ curfptr[4] = NULL;;
+    }
+   ;
+   /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3471:/ clear");
+   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3471:/ clear");
+   /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3471:/ cond.else");
+ 
+  /*_.IF___V4*/ curfptr[3] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3469:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:3469:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3469:/ clear");
+ /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3469:/ clear");
+ /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("CLOSURE_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_51_warmelt_first_CLOSURE_EVERY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_52_warmelt_first_ROUTINE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_first_ROUTINE_EVERY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("ROUTINE_EVERY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3482:/ getarg");
+ /*_.ROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3482:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3482:/ block");
+/*block*/{
+ /*_#IS_ROUTINE__L1*/ curfnum[0] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1])) == OBMAG_ROUTINE);;
+ MELT_LOCATION("warmelt-first.melt:3484:/ cond");
+ /*cond*/ if (/*_#IS_ROUTINE__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3484:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3484:/ block");
+  /*block*/{
+   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
+   MELT_LOCATION("warmelt-first.melt:3485:/ cond");
+   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3485:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3485:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3486:/ block");
+     /*block*/{
+      /*_#LN__L3*/ curfnum[2] = 
+       (melt_routine_size((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1])));;
+      /*_#IX__L4*/ curfnum[3] = 0;;
+      MELT_LOCATION("warmelt-first.melt:3488:/ loop");
+      /*loop*/{ labloop_ROULOOP_1:;MELT_LOCATION("warmelt-first.melt:3488:/ loopbody");
+      
+       MELT_LOCATION("warmelt-first.melt:3488:/ block");
+       /*block*/{
+        /*_#I__L5*/ curfnum[4] = 
+         ((/*_#IX__L4*/ curfnum[3]) >= (/*_#LN__L3*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3489:/ cond");
+        /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3489:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3489:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3489:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3489:/ compute");
+           /*_.ROULOOP__V8*/ curfptr[7] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3489:/ exit");
+           /*exit*/{
+            goto labexit_ROULOOP_1;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*_.ROUTINE_NTH__V9*/ curfptr[8] = 
+         (melt_routine_nth((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (int) (/*_#IX__L4*/ curfnum[3])));;
+        MELT_LOCATION("warmelt-first.melt:3490:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-first.melt:3490:/ apply.arg");
+         argtab[0].bp_long = /*_#IX__L4*/ curfnum[3];
+         /*_.F__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.ROUTINE_NTH__V9*/ curfptr[8]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#I__L6*/ curfnum[5] = 
+         ((/*_#IX__L4*/ curfnum[3]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3491:/ compute");
+        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L7*/ curfnum[6] = /*_#I__L6*/ curfnum[5];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3488:/ clear");
+        /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3488:/ clear");
+        /*clear*/ /*_.ROUTINE_NTH__V9*/ curfptr[8] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3488:/ clear");
+        /*clear*/ /*_.F__V10*/ curfptr[9] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3488:/ clear");
+        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3488:/ clear");
+        /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;}
+       ;
+       ;
+        goto labloop_ROULOOP_1;
+        labexit_ROULOOP_1:;MELT_LOCATION("warmelt-first.melt:3488:/ loopepilog");
+      /*loopepilog*/
+       /*_.FOREVER___V7*/ curfptr[6] = /*_.ROULOOP__V8*/ curfptr[7];;
+       }
+      ;
+      /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V7*/ curfptr[6];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3486:/ clear");
+      /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3486:/ clear");
+      /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3486:/ clear");
+      /*clear*/ /*_.FOREVER___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3485:/ clear");
+     /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:3485:/ cond.else");
+   
+    /*_.IF___V5*/ curfptr[4] = NULL;;
+    }
+   ;
+   /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3484:/ clear");
+   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3484:/ clear");
+   /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:3484:/ cond.else");
+ 
+  /*_.IF___V4*/ curfptr[3] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3482:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:3482:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3482:/ clear");
+ /*clear*/ /*_#IS_ROUTINE__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3482:/ clear");
+ /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("ROUTINE_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_52_warmelt_first_ROUTINE_EVERY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_53_warmelt_first_LIST1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_first_LIST1_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST1", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3494:/ getarg");
+ /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3494:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3496:/ block");
+ /*block*/{
+  /*_.LIS__V4*/ curfptr[3] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3498:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V4*/ curfptr[3]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.LIS__V4*/ curfptr[3];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3496:/ clear");
+  /*clear*/ /*_.LIS__V4*/ curfptr[3] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3494:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-first.melt:3494:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3494:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST1", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_53_warmelt_first_LIST1*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_54_warmelt_first_LIST2(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_first_LIST2_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST2", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3502:/ getarg");
+ /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3502:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3502:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3504:/ block");
+ /*block*/{
+  /*_.LIS__V5*/ curfptr[4] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3506:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V5*/ curfptr[4]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3507:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V5*/ curfptr[4]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
+  ;
+  /*_.LET___V4*/ curfptr[3] = /*_.LIS__V5*/ curfptr[4];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3504:/ clear");
+  /*clear*/ /*_.LIS__V5*/ curfptr[4] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3502:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:3502:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3502:/ clear");
+ /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST2", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_54_warmelt_first_LIST2*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_55_warmelt_first_LIST3(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_first_LIST3_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST3", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3511:/ getarg");
+ /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3511:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3511:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3511:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3513:/ block");
+ /*block*/{
+  /*_.LIS__V6*/ curfptr[5] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3515:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V6*/ curfptr[5]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3516:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V6*/ curfptr[5]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3517:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V6*/ curfptr[5]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
+  ;
+  /*_.LET___V5*/ curfptr[4] = /*_.LIS__V6*/ curfptr[5];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3513:/ clear");
+  /*clear*/ /*_.LIS__V6*/ curfptr[5] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3511:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-first.melt:3511:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3511:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST3", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_55_warmelt_first_LIST3*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_56_warmelt_first_LIST4(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_first_LIST4_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST4", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3521:/ getarg");
+ /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3521:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3521:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:3521:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V4__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V4__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3521:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3523:/ block");
+ /*block*/{
+  /*_.LIS__V7*/ curfptr[6] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3525:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3526:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3527:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3528:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V4__V5*/ curfptr[4]));}
+  ;
+  /*_.LET___V6*/ curfptr[5] = /*_.LIS__V7*/ curfptr[6];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3523:/ clear");
+  /*clear*/ /*_.LIS__V7*/ curfptr[6] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3521:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[5];;
+  MELT_LOCATION("warmelt-first.melt:3521:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3521:/ clear");
+ /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST4", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_56_warmelt_first_LIST4*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_57_warmelt_first_LIST5(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_first_LIST5_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST5", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3532:/ getarg");
+ /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3532:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3532:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:3532:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V4__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V4__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-first.melt:3532:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V5__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V5__V6*/ curfptr[5])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3532:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3534:/ block");
+ /*block*/{
+  /*_.LIS__V8*/ curfptr[7] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3536:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3537:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3538:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3539:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V4__V5*/ curfptr[4]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3540:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V5__V6*/ curfptr[5]));}
+  ;
+  /*_.LET___V7*/ curfptr[6] = /*_.LIS__V8*/ curfptr[7];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3534:/ clear");
+  /*clear*/ /*_.LIS__V8*/ curfptr[7] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3532:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:3532:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3532:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST5", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_57_warmelt_first_LIST5*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_58_warmelt_first_LIST6(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_first_LIST6_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LIST6", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ getarg");
+ /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V4__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V4__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V5__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V5__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.V6__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.V6__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3544:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3546:/ block");
+ /*block*/{
+  /*_.LIS__V9*/ curfptr[8] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3548:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3549:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3550:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3551:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V4__V5*/ curfptr[4]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3552:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V5__V6*/ curfptr[5]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3553:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V6__V7*/ curfptr[6]));}
+  ;
+  /*_.LET___V8*/ curfptr[7] = /*_.LIS__V9*/ curfptr[8];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3546:/ clear");
+  /*clear*/ /*_.LIS__V9*/ curfptr[8] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3544:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[7];;
+  MELT_LOCATION("warmelt-first.melt:3544:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3544:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LIST6", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_58_warmelt_first_LIST6*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_59_warmelt_first_INSTALL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_first_INSTALL_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("INSTALL_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3558:/ getarg");
+ /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3558:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SEL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SEL__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3558:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FUN__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3558:/ block");
+/*block*/{
+ /*_#IS_A__L1*/ curfnum[0] = 
+  melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-first.melt:3560:/ cond");
+ /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:3560:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3560:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEL__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:3561:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3561:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3561:/ block");
+    /*block*/{
+     /*_#IS_CLOSURE__L3*/ curfnum[2] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.FUN__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
+     MELT_LOCATION("warmelt-first.melt:3562:/ cond");
+     /*cond*/ if (/*_#IS_CLOSURE__L3*/ curfnum[2]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:3562:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:3562:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3563:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3565:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 2, "DISC_METHODICT");/*_.MAPDICT__V5*/ curfptr[4] = slot; };
+        ;
+        /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.MAPDICT__V5*/ curfptr[4])) == OBMAG_MAPOBJECTS);;
+        MELT_LOCATION("warmelt-first.melt:3566:/ cond");
+        /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[3]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3566:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3566:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:3567:/ locexp");
+          meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MAPDICT__V5*/ curfptr[4]), 
+			   (meltobject_ptr_t) (/*_.SEL__V3*/ curfptr[2]), 
+			   (melt_ptr_t)(/*_.FUN__V4*/ curfptr[3]));}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-first.melt:3566:/ cond.else");
+        
+         MELT_LOCATION("warmelt-first.melt:3566:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3568:/ block");
+          /*block*/{
+           /*_.NEWMAPDICT__V6*/ curfptr[5] = 
+            (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_METHOD_MAP*/ curfrout->tabval[2])), (35)));;
+           MELT_LOCATION("warmelt-first.melt:3569:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-first.melt:3569:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @DISC_METHODICT", melt_magic_discr((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.CLA__V2*/ curfptr[1]), (2), (/*_.NEWMAPDICT__V6*/ curfptr[5]), "DISC_METHODICT");
+            ;
+            MELT_LOCATION("warmelt-first.melt:3569:/ touch");
+            meltgc_touch(/*_.CLA__V2*/ curfptr[1]);
+            ;
+            /*epilog*/}
+           ;
+           
+           {
+           MELT_LOCATION("warmelt-first.melt:3570:/ locexp");
+           meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.NEWMAPDICT__V6*/ curfptr[5]), 
+			   (meltobject_ptr_t) (/*_.SEL__V3*/ curfptr[2]), 
+			   (melt_ptr_t)(/*_.FUN__V4*/ curfptr[3]));}
+           ;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3568:/ clear");
+           /*clear*/ /*_.NEWMAPDICT__V6*/ curfptr[5] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3563:/ clear");
+        /*clear*/ /*_.MAPDICT__V5*/ curfptr[4] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3563:/ clear");
+        /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3561:/ clear");
+     /*clear*/ /*_#IS_CLOSURE__L3*/ curfnum[2] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3560:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3558:/ clear");
+ /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("INSTALL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_59_warmelt_first_INSTALL_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_60_warmelt_first_DBG_OUTOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_first_DBG_OUTOBJECT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBG_OUTOBJECT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3596:/ getarg");
+ /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3596:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3596:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3596:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3599:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3599:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3599:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3599:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3599:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3599:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3599:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3599)?(3599):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3599:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3599:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3599:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3600:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:3600:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 1, "DBGI_OCCMAP");/*_.OCCMAP__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#IS_MAPOBJECT__L3*/ curfnum[1] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.OCCMAP__V7*/ curfptr[6])) == OBMAG_MAPOBJECTS);;
+  MELT_LOCATION("warmelt-first.melt:3601:/ cond");
+  /*cond*/ if (/*_#IS_MAPOBJECT__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3601:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3601:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3602:/ block");
+    /*block*/{
+     /*_.OCC__V10*/ curfptr[9] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OCCMAP__V7*/ curfptr[6]), (meltobject_ptr_t)(/*_.OBJ__V2*/ curfptr[1]));;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:3603:/ locexp");
+     melt_check_call_frames(MELT_ANYWHERE,  "in dbg_outobject");;}
+     ;
+     /*_#IS_INTEGERBOX__L4*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.OCC__V10*/ curfptr[9])) == OBMAG_INT);;
+     MELT_LOCATION("warmelt-first.melt:3604:/ cond");
+     /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:3604:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:3604:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3606:/ msend");
+       /*msend*/{
+        union meltparam_un argtab[2];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-first.melt:3606:/ ojbmsend.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-first.melt:3606:/ ojbmsend.arg");
+        argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+        /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_#GET_INT__L5*/ curfnum[4] = 
+        (melt_get_int((melt_ptr_t)(/*_.OCC__V10*/ curfptr[9])));;
+       /*_#I__L6*/ curfnum[5] = 
+        ((/*_#GET_INT__L5*/ curfnum[4]) + (1));;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3607:/ locexp");
+       melt_put_int((melt_ptr_t)(/*_.OCC__V10*/ curfptr[9]), (/*_#I__L6*/ curfnum[5]));}
+       ;
+       MELT_LOCATION("warmelt-first.melt:3605:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3604:/ clear");
+       /*clear*/ /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3604:/ clear");
+       /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3604:/ clear");
+       /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:3604:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:3604:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:3609:/ block");
+       /*block*/{
+        /*_.NEWOCC__V14*/ curfptr[13] = 
+         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (1)));;
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:3610:/ locexp");
+        meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.OCCMAP__V7*/ curfptr[6]), 
+			   (meltobject_ptr_t) (/*_.OBJ__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.NEWOCC__V14*/ curfptr[13]));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:3611:/ locexp");
+        melt_check_call_frames(MELT_ANYWHERE,  "in dbg_outobject output");;}
+        ;
+        MELT_LOCATION("warmelt-first.melt:3612:/ msend");
+        /*msend*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-first.melt:3612:/ ojbmsend.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-first.melt:3612:/ ojbmsend.arg");
+         argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+         /*_.DBG_OUTPUT__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.LET___V13*/ curfptr[11] = /*_.DBG_OUTPUT__V15*/ curfptr[14];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3609:/ clear");
+        /*clear*/ /*_.NEWOCC__V14*/ curfptr[13] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3609:/ clear");
+        /*clear*/ /*_.DBG_OUTPUT__V15*/ curfptr[14] = 0 ;}
+       ;
+       /*_.IFELSE___V11*/ curfptr[10] = /*_.LET___V13*/ curfptr[11];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3604:/ clear");
+       /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+      ;
+      }
+     ;
+     /*_.LET___V9*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3602:/ clear");
+     /*clear*/ /*_.OCC__V10*/ curfptr[9] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3602:/ clear");
+     /*clear*/ /*_#IS_INTEGERBOX__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3602:/ clear");
+     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+    ;
+    /*_.IF___V8*/ curfptr[7] = /*_.LET___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3601:/ clear");
+    /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3601:/ cond.else");
+  
+   /*_.IF___V8*/ curfptr[7] = NULL;;
+   }
+  ;
+  /*_.LET___V6*/ curfptr[4] = /*_.IF___V8*/ curfptr[7];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3600:/ clear");
+  /*clear*/ /*_.OCCMAP__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3600:/ clear");
+  /*clear*/ /*_#IS_MAPOBJECT__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3600:/ clear");
+  /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3596:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
+  MELT_LOCATION("warmelt-first.melt:3596:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3596:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3596:/ clear");
+ /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBG_OUTOBJECT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_60_warmelt_first_DBG_OUTOBJECT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_61_warmelt_first_DBG_OUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_first_DBG_OUT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBG_OUT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3616:/ getarg");
+ /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3616:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3616:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3616:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3619:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3619:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3619:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3619:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3619:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3619:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3619:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3619)?(3619):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3619:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3619:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3619:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-first.melt:3620:/ locexp");
+ melt_check_call_frames(MELT_ANYWHERE,  "start dbg_out");;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3621:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:3621:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
+  ;
+  /*_.DISCR__V8*/ curfptr[7] = 
+   (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3624:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#GET_INT__L3*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[8])));;
+  /*_#NEED_DBGLIM__L4*/ curfnum[3] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L3*/ curfnum[1]));;
+  MELT_LOCATION("warmelt-first.melt:3624:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3624:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3624:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L5*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-first.melt:3625:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:3625:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:3625:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:3628:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-first.melt:3628:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-first.melt:3628:/ apply.arg");
+       argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+       /*_.DBG_OUTOBJECT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-first.melt:3626:/ block");
+      /*block*/{
+       /*_.PROGN___V13*/ curfptr[12] = /*_.DBG_OUTOBJECT__V12*/ curfptr[11];;}
+      ;
+      /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V13*/ curfptr[12];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3625:/ clear");
+      /*clear*/ /*_.DBG_OUTOBJECT__V12*/ curfptr[11] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3625:/ clear");
+      /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-first.melt:3625:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:3625:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:3630:/ cond");
+      /*cond*/ if (/*_.OBJ__V2*/ curfptr[1]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:3630:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:3630:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3633:/ msend");
+        /*msend*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-first.melt:3633:/ ojbmsend.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-first.melt:3633:/ ojbmsend.arg");
+         argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+         /*_.DBG_OUTPUT__V15*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-first.melt:3631:/ block");
+        /*block*/{
+         /*_.PROGN___V16*/ curfptr[15] = /*_.DBG_OUTPUT__V15*/ curfptr[12];;}
+        ;
+        /*_.IFELSE___V14*/ curfptr[11] = /*_.PROGN___V16*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3630:/ clear");
+        /*clear*/ /*_.DBG_OUTPUT__V15*/ curfptr[12] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3630:/ clear");
+        /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-first.melt:3630:/ cond.else");
+      
+       MELT_LOCATION("warmelt-first.melt:3630:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3635:/ cond");
+        /*cond*/ if (/*_.OUT__V7*/ curfptr[6]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3635:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3635:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-first.melt:3635:/ locexp");
+           meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "()"));}
+           ;
+           /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-first.melt:3635:/ cond.else");
+        
+         /*_.IFELSE___V14*/ curfptr[11] = NULL;;
+         }
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3625:/ clear");
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3624:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3624:/ clear");
+    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3624:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3624:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3637:/ cond");
+    /*cond*/ if (/*_.OUT__V7*/ curfptr[6]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:3637:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:3637:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3638:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( ".."));}
+       ;
+       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } else {MELT_LOCATION("warmelt-first.melt:3637:/ cond.else");
+    
+     /*_.IFELSE___V10*/ curfptr[9] = NULL;;
+     }
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  /*_.LET___V6*/ curfptr[4] = /*_.IFELSE___V10*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3621:/ clear");
+  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3621:/ clear");
+  /*clear*/ /*_.DISCR__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3621:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3621:/ clear");
+  /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3621:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3621:/ clear");
+  /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3616:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
+  MELT_LOCATION("warmelt-first.melt:3616:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3616:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3616:/ clear");
+ /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBG_OUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_61_warmelt_first_DBG_OUT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_62_warmelt_first_DBGOUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_first_DBGOUT_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 22
+  long varnum[22];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3642:/ getarg");
+ /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3642:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3642:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:3642:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#FROMRANK__L2*/ curfnum[1] = xargtab_[2].bp_long;
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-first.melt:3642:/ getarg");
+ if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs;
+ /*_#TORANK__L3*/ curfnum[2] = xargtab_[3].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3642:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3645:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3645:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[3] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3645:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3645:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3645:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3645:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3645:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3645)?(3645):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3645:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3645:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3645:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3646:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3646:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L5*/ curfnum[3] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:3646:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[3]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3646:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3646:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3646:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3646:/ locexp");
+      melt_assert_failed(( "check obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3646)?(3646):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3646:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3646:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3646:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3647:/ block");
+ /*block*/{
+  /*_#NBF__L6*/ curfnum[3] = 
+   ((long)melt_object_length((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
+  /*_.CLA__V9*/ curfptr[8] = 
+   (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
+  /*_#IX__L7*/ curfnum[6] = /*_#FROMRANK__L2*/ curfnum[1];;
+  /*_#FLDCNT__L8*/ curfnum[7] = 0;;
+  MELT_LOCATION("warmelt-first.melt:3651:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V9*/ curfptr[8]), 6, "CLASS_FIELDS");/*_.CLAFIELDSEQ__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:3652:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V11*/ curfptr[10] = slot; };
+  ;
+  /*_#I__L9*/ curfnum[8] = 
+   ((/*_#IX__L7*/ curfnum[6]) < (0));;
+  MELT_LOCATION("warmelt-first.melt:3654:/ cond");
+  /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3654:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3654:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3654:/ compute");
+    /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L11*/ curfnum[10] = 0;;
+    /*_#IF___L10*/ curfnum[9] = /*_#SETQ___L11*/ curfnum[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3654:/ clear");
+    /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3654:/ cond.else");
+  
+   /*_#IF___L10*/ curfnum[9] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3655:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#GET_INT__L12*/ curfnum[10] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ curfptr[11])));;
+  /*_#NEED_DBGLIM__L13*/ curfnum[12] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L12*/ curfnum[10]));;
+  MELT_LOCATION("warmelt-first.melt:3655:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L13*/ curfnum[12]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3655:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3655:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3656:/ loop");
+    /*loop*/{ labloop_FLDLOOP_1:;MELT_LOCATION("warmelt-first.melt:3656:/ loopbody");
+    
+     MELT_LOCATION("warmelt-first.melt:3656:/ block");
+     /*block*/{
+      /*_#I__L14*/ curfnum[13] = 
+       ((/*_#IX__L7*/ curfnum[6]) >= (/*_#NBF__L6*/ curfnum[3]));;
+      MELT_LOCATION("warmelt-first.melt:3657:/ cond");
+      /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:3657:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:3657:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3658:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:3658:/ compute");
+         /*_.FLDLOOP__V15*/ curfptr[14] = NULL;;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3658:/ exit");
+         /*exit*/{
+          goto labexit_FLDLOOP_1;}
+         ;}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_#I__L15*/ curfnum[14] = 
+       ((/*_#TORANK__L3*/ curfnum[2]) > (0));;
+      MELT_LOCATION("warmelt-first.melt:3659:/ cond");
+      /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:3659:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:3659:/ block");
+       /*block*/{
+        /*_#I__L16*/ curfnum[15] = 
+         ((/*_#IX__L7*/ curfnum[6]) > (/*_#TORANK__L3*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3659:/ cond");
+        /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3659:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3659:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3661:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3661:/ compute");
+           /*_.FLDLOOP__V15*/ curfptr[14] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3661:/ exit");
+           /*exit*/{
+            goto labexit_FLDLOOP_1;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3659:/ clear");
+        /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;}
+       ;
+      } /*noelse*/
+      ;
+      MELT_LOCATION("warmelt-first.melt:3662:/ block");
+      /*block*/{
+       /*_.CURFLD__V16*/ curfptr[15] = 
+        (melt_multiple_nth((melt_ptr_t)(/*_.CLAFIELDSEQ__V10*/ curfptr[9]), (/*_#IX__L7*/ curfnum[6])));;
+       /*_.CURVAL__V17*/ curfptr[16] = 
+        (melt_field_object((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (/*_#IX__L7*/ curfnum[6])));;
+       MELT_LOCATION("warmelt-first.melt:3665:/ cond");
+       /*cond*/ if (/*_.CURVAL__V17*/ curfptr[16]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:3665:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:3665:/ block");
+        /*block*/{
+         /*_#IRAW__L17*/ curfnum[15] = 
+          ((/*_#FLDCNT__L8*/ curfnum[7]) % (2));;
+         MELT_LOCATION("warmelt-first.melt:3667:/ cond");
+         /*cond*/ if (/*_#IRAW__L17*/ curfnum[15]) /*then*/ {
+         MELT_LOCATION("warmelt-first.melt:3667:/ cond.then");
+         MELT_LOCATION("warmelt-first.melt:3667:/ block");
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-first.melt:3667:/ locexp");
+           meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+           ;
+           /*epilog*/}
+          ;
+         } /*noelse*/
+         ;
+         /*_#I__L18*/ curfnum[17] = 
+          ((/*_#FLDCNT__L8*/ curfnum[7]) + (1));;
+         MELT_LOCATION("warmelt-first.melt:3668:/ compute");
+         /*_#FLDCNT__L8*/ curfnum[7] = /*_#SETQ___L19*/ curfnum[18] = /*_#I__L18*/ curfnum[17];;
+         MELT_LOCATION("warmelt-first.melt:3669:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3669:/ locexp");
+         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3670:/ locexp");
+         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), ( "="));}
+         ;
+         /*_#I__L20*/ curfnum[19] = 
+          ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+         MELT_LOCATION("warmelt-first.melt:3671:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[2];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-first.melt:3671:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-first.melt:3671:/ apply.arg");
+          argtab[1].bp_long = /*_#I__L20*/ curfnum[19];
+          /*_.DBG_OUT__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURVAL__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3672:/ locexp");
+         meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+         ;
+         MELT_LOCATION("warmelt-first.melt:3666:/ block");
+         /*block*/{}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3665:/ clear");
+         /*clear*/ /*_#IRAW__L17*/ curfnum[15] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3665:/ clear");
+         /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3665:/ clear");
+         /*clear*/ /*_#SETQ___L19*/ curfnum[18] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3665:/ clear");
+         /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3665:/ clear");
+         /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3665:/ clear");
+         /*clear*/ /*_.DBG_OUT__V19*/ curfptr[18] = 0 ;}
+        ;
+       } /*noelse*/
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3662:/ clear");
+       /*clear*/ /*_.CURFLD__V16*/ curfptr[15] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3662:/ clear");
+       /*clear*/ /*_.CURVAL__V17*/ curfptr[16] = 0 ;}
+      ;
+      /*_#I__L21*/ curfnum[15] = 
+       ((/*_#IX__L7*/ curfnum[6]) + (1));;
+      MELT_LOCATION("warmelt-first.melt:3674:/ compute");
+      /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L22*/ curfnum[17] = /*_#I__L21*/ curfnum[15];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3656:/ clear");
+      /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3656:/ clear");
+      /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3656:/ clear");
+      /*clear*/ /*_#I__L21*/ curfnum[15] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3656:/ clear");
+      /*clear*/ /*_#SETQ___L22*/ curfnum[17] = 0 ;}
+     ;
+     ;
+      goto labloop_FLDLOOP_1;
+      labexit_FLDLOOP_1:;MELT_LOCATION("warmelt-first.melt:3656:/ loopepilog");
+    /*loopepilog*/
+     /*_.FOREVER___V14*/ curfptr[13] = /*_.FLDLOOP__V15*/ curfptr[14];;
+     }
+    ;
+    /*_.IF___V13*/ curfptr[12] = /*_.FOREVER___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3655:/ clear");
+    /*clear*/ /*_.FOREVER___V14*/ curfptr[13] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3655:/ cond.else");
+  
+   /*_.IF___V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.IF___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#NBF__L6*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_.CLA__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#FLDCNT__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_.CLAFIELDSEQ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_.OUT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#IF___L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L13*/ curfnum[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3647:/ clear");
+  /*clear*/ /*_.IF___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3642:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:3642:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3642:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3642:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3642:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_62_warmelt_first_DBGOUT_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 20
+  long varnum[20];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3679:/ getarg");
+ /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3679:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3679:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:3679:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#FROMRANK__L2*/ curfnum[1] = xargtab_[2].bp_long;
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-first.melt:3679:/ getarg");
+ if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs;
+ /*_#TORANK__L3*/ curfnum[2] = xargtab_[3].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3679:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3683:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3683:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[3] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3683:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3683:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3683:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3683:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3683:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3683)?(3683):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3683:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3683:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3683:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3684:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3684:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L5*/ curfnum[3] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:3684:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[3]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3684:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3684:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3684:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3684:/ locexp");
+      melt_assert_failed(( "check obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3684)?(3684):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3684:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3684:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3684:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3685:/ block");
+ /*block*/{
+  /*_#NBF__L6*/ curfnum[3] = 
+   ((long)melt_object_length((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
+  /*_.CLA__V9*/ curfptr[8] = 
+   (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
+  /*_#IX__L7*/ curfnum[6] = /*_#FROMRANK__L2*/ curfnum[1];;
+  MELT_LOCATION("warmelt-first.melt:3688:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V9*/ curfptr[8]), 6, "CLASS_FIELDS");/*_.CLAFIELDSEQ__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:3689:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V11*/ curfptr[10] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:3691:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:3691:/ block");
+   /*block*/{
+    /*_#IS_OUT__L8*/ curfnum[7] = 
+      (melt_is_out ((melt_ptr_t) /*_.OUT__V11*/ curfptr[10])) ;;
+    MELT_LOCATION("warmelt-first.melt:3691:/ cond");
+    /*cond*/ if (/*_#IS_OUT__L8*/ curfnum[7]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:3691:/ cond.then");
+    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:3691:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:3691:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3691:/ locexp");
+       melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3691)?(3691):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3691:/ clear");
+    /*clear*/ /*_#IS_OUT__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3691:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:3691:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#I__L9*/ curfnum[7] = 
+   ((/*_#IX__L7*/ curfnum[6]) < (0));;
+  MELT_LOCATION("warmelt-first.melt:3692:/ cond");
+  /*cond*/ if (/*_#I__L9*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3692:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3692:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3692:/ compute");
+    /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L11*/ curfnum[10] = 0;;
+    /*_#IF___L10*/ curfnum[9] = /*_#SETQ___L11*/ curfnum[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3692:/ clear");
+    /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3692:/ cond.else");
+  
+   /*_#IF___L10*/ curfnum[9] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3693:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V14*/ curfptr[12] = slot; };
+  ;
+  /*_#GET_INT__L12*/ curfnum[10] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ curfptr[12])));;
+  /*_#NEED_DBGLIM__L13*/ curfnum[12] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L12*/ curfnum[10]));;
+  MELT_LOCATION("warmelt-first.melt:3693:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L13*/ curfnum[12]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3693:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3693:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3694:/ loop");
+    /*loop*/{ labloop_FLDLOOP_2:;MELT_LOCATION("warmelt-first.melt:3694:/ loopbody");
+    
+     MELT_LOCATION("warmelt-first.melt:3694:/ block");
+     /*block*/{
+      /*_#I__L14*/ curfnum[13] = 
+       ((/*_#IX__L7*/ curfnum[6]) >= (/*_#NBF__L6*/ curfnum[3]));;
+      MELT_LOCATION("warmelt-first.melt:3695:/ cond");
+      /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:3695:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:3695:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:3696:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:3696:/ compute");
+         /*_.FLDLOOP__V17*/ curfptr[16] = NULL;;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3696:/ exit");
+         /*exit*/{
+          goto labexit_FLDLOOP_2;}
+         ;}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_#I__L15*/ curfnum[14] = 
+       ((/*_#TORANK__L3*/ curfnum[2]) > (0));;
+      MELT_LOCATION("warmelt-first.melt:3697:/ cond");
+      /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:3697:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:3697:/ block");
+       /*block*/{
+        /*_#I__L16*/ curfnum[15] = 
+         ((/*_#IX__L7*/ curfnum[6]) > (/*_#TORANK__L3*/ curfnum[2]));;
+        MELT_LOCATION("warmelt-first.melt:3697:/ cond");
+        /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3697:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3697:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3699:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3699:/ compute");
+           /*_.FLDLOOP__V17*/ curfptr[16] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3699:/ exit");
+           /*exit*/{
+            goto labexit_FLDLOOP_2;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3697:/ clear");
+        /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;}
+       ;
+      } /*noelse*/
+      ;
+      MELT_LOCATION("warmelt-first.melt:3700:/ block");
+      /*block*/{
+       /*_.CURFLD__V18*/ curfptr[17] = 
+        (melt_multiple_nth((melt_ptr_t)(/*_.CLAFIELDSEQ__V10*/ curfptr[9]), (/*_#IX__L7*/ curfnum[6])));;
+       /*_.CURVAL__V19*/ curfptr[18] = 
+        (melt_field_object((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (/*_#IX__L7*/ curfnum[6])));;
+       MELT_LOCATION("warmelt-first.melt:3703:/ cond");
+       /*cond*/ if (/*_.CURVAL__V19*/ curfptr[18]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:3703:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:3703:/ block");
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3705:/ locexp");
+         meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+         ;
+         MELT_LOCATION("warmelt-first.melt:3707:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[19] = slot; };
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3706:/ locexp");
+         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[19])));}
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3708:/ locexp");
+         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), ( "="));}
+         ;
+         /*_#I__L18*/ curfnum[17] = 
+          ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+         MELT_LOCATION("warmelt-first.melt:3709:/ msend");
+         /*msend*/{
+          union meltparam_un argtab[2];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-first.melt:3709:/ ojbmsend.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-first.melt:3709:/ ojbmsend.arg");
+          argtab[1].bp_long = /*_#I__L18*/ curfnum[17];
+          /*_.DBG_OUTPUTAGAIN__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.CURVAL__V19*/ curfptr[18]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3710:/ locexp");
+         meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+         ;
+         MELT_LOCATION("warmelt-first.melt:3704:/ block");
+         /*block*/{}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3703:/ clear");
+         /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[19] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3703:/ clear");
+         /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3703:/ clear");
+         /*clear*/ /*_.DBG_OUTPUTAGAIN__V21*/ curfptr[20] = 0 ;}
+        ;
+       } /*noelse*/
+       ;
+       /*_#I__L19*/ curfnum[17] = 
+        ((/*_#IX__L7*/ curfnum[6]) + (1));;
+       MELT_LOCATION("warmelt-first.melt:3712:/ compute");
+       /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L20*/ curfnum[19] = /*_#I__L19*/ curfnum[17];;
+       /*_#LET___L17*/ curfnum[15] = /*_#SETQ___L20*/ curfnum[19];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3700:/ clear");
+       /*clear*/ /*_.CURFLD__V18*/ curfptr[17] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3700:/ clear");
+       /*clear*/ /*_.CURVAL__V19*/ curfptr[18] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3700:/ clear");
+       /*clear*/ /*_#I__L19*/ curfnum[17] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3700:/ clear");
+       /*clear*/ /*_#SETQ___L20*/ curfnum[19] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3694:/ clear");
+      /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3694:/ clear");
+      /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3694:/ clear");
+      /*clear*/ /*_#LET___L17*/ curfnum[15] = 0 ;}
+     ;
+     ;
+      goto labloop_FLDLOOP_2;
+      labexit_FLDLOOP_2:;MELT_LOCATION("warmelt-first.melt:3694:/ loopepilog");
+    /*loopepilog*/
+     /*_.FOREVER___V16*/ curfptr[15] = /*_.FLDLOOP__V17*/ curfptr[16];;
+     }
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.FOREVER___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3693:/ clear");
+    /*clear*/ /*_.FOREVER___V16*/ curfptr[15] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3693:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.IF___V15*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_#NBF__L6*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_.CLA__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_.CLAFIELDSEQ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_.OUT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_#IF___L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L13*/ curfnum[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3685:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:3679:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:3679:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3679:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3679:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3679:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_64_warmelt_first_DBGOUT_NULL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_first_DBGOUT_NULL_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_NULL_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3717:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3717:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3717:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3717:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:3718:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:3718:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V4*/ curfptr[3] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3720:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V4*/ curfptr[3]), ( "()"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3718:/ clear");
+  /*clear*/ /*_.OUT__V4*/ curfptr[3] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_NULL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_64_warmelt_first_DBGOUT_NULL_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_65_warmelt_first_DBGOUT_STRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_first_DBGOUT_STRING_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_STRING_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3725:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3725:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3725:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3725:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3726:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3726:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3726:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3726:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3726:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3726:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3726:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3726)?(3726):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3726:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3726:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3726:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3727:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3728:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_STRING*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3730:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3730:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3730:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3732:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " \""));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3733:/ locexp");
+    meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3734:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "\""));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3731:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3730:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3730:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3737:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3738:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3738:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3739:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "\""));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3740:/ locexp");
+    meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3741:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "\""));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3736:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3730:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3727:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3727:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3727:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3725:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_STRING_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_65_warmelt_first_DBGOUT_STRING_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_INTEGER_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3749:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3749:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3749:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3749:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3750:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3750:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3750:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3750:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3750:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3750:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3750:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3750)?(3750):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3750:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3750:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3750:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3751:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3752:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_INTEGER*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3754:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3754:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3754:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3756:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " #"));}
+    ;
+    /*_#GET_INT__L4*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3757:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L4*/ curfnum[3]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3755:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3754:/ clear");
+    /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3754:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3754:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3759:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3760:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3760:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3761:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));}
+    ;
+    /*_#GET_INT__L5*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3762:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L5*/ curfnum[3]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3758:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3754:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3754:/ clear");
+    /*clear*/ /*_#GET_INT__L5*/ curfnum[3] = 0 ;}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3751:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3751:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3751:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3749:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_INTEGER_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_MIXINT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3769:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3769:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3769:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3769:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3770:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3770:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3770:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3770:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3770:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3770:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3770:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3770)?(3770):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3770:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3770:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3770:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3771:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3772:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MIXED_INTEGER*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3774:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3774:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3774:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3776:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " #["));}
+    ;
+    /*_#GET_INT__L4*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3777:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L4*/ curfnum[3]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3775:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3774:/ clear");
+    /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3774:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3774:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3779:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3780:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3780:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3781:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#["));}
+    ;
+    /*_#GET_INT__L5*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3782:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L5*/ curfnum[3]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3778:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3774:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3774:/ clear");
+    /*clear*/ /*_#GET_INT__L5*/ curfnum[3] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3784:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; };
+  ;
+  /*_#GET_INT__L6*/ curfnum[3] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));;
+  /*_#NEED_DBGLIM__L7*/ curfnum[6] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[3]));;
+  MELT_LOCATION("warmelt-first.melt:3784:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3784:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3784:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3786:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ","));}
+    ;
+    /*_.MIXINT_VAL__V11*/ curfptr[10] = 
+     (melt_val_mixint((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:3787:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:3787:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:3787:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L8*/ curfnum[7];
+     /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MIXINT_VAL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-first.melt:3785:/ block");
+    /*block*/{
+     /*_.PROGN___V13*/ curfptr[12] = /*_.DBG_OUT__V12*/ curfptr[11];;}
+    ;
+    /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3784:/ clear");
+    /*clear*/ /*_.MIXINT_VAL__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3784:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3784:/ clear");
+    /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3784:/ clear");
+    /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3784:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3784:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:3789:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ",.."));}
+     ;
+     /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3791:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "]"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
+  /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3769:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_MIXINT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_MIXLOC_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3796:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3796:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3796:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3796:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3797:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3797:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3797:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3797:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3797:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3797:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3797:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3797)?(3797):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3797:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3797:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3797:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3798:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3798:/ block");
+  /*block*/{
+   /*_#IS_MIXLOC__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])) == OBMAG_MIXLOC);;
+   MELT_LOCATION("warmelt-first.melt:3798:/ cond");
+   /*cond*/ if (/*_#IS_MIXLOC__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3798:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3798:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3798:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3798:/ locexp");
+      melt_assert_failed(( "check self mixloc"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3798)?(3798):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3798:/ clear");
+   /*clear*/ /*_#IS_MIXLOC__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3798:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3798:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3799:/ block");
+ /*block*/{
+  /*_.DIS__V8*/ curfptr[6] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3800:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#__L4*/ curfnum[1] = 
+   ((/*_.DIS__V8*/ curfptr[6]) == ((/*!DISCR_MIXED_LOCATION*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3802:/ cond");
+  /*cond*/ if (/*_#__L4*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3802:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3802:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3804:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( " #!["));}
+    ;
+    /*_#GET_INT__L5*/ curfnum[4] = 
+     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3805:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), (/*_#GET_INT__L5*/ curfnum[4]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3803:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3802:/ clear");
+    /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3802:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3802:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3807:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3808:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3808:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3809:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "#!["));}
+    ;
+    /*_#GET_INT__L6*/ curfnum[4] = 
+     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3810:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), (/*_#GET_INT__L6*/ curfnum[4]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3806:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3802:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3802:/ clear");
+    /*clear*/ /*_#GET_INT__L6*/ curfnum[4] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3812:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = slot; };
+  ;
+  /*_#GET_INT__L7*/ curfnum[4] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[9])));;
+  /*_#NEED_DBGLIM__L8*/ curfnum[7] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L7*/ curfnum[4]));;
+  MELT_LOCATION("warmelt-first.melt:3812:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3812:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3812:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3814:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ","));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3815:/ locexp");
+    /*add2sbufmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])) == OBMAG_MIXLOC)
+  meltgc_strbuf_printf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), "{%s:%d}",
+		       LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.SELF__V2*/ curfptr[1])),
+		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.SELF__V2*/ curfptr[1]))); ;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3813:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3812:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3812:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3817:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ",.."));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3819:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "]"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3799:/ clear");
+  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3799:/ clear");
+  /*clear*/ /*_.SBUF__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3799:/ clear");
+  /*clear*/ /*_#__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3799:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3799:/ clear");
+  /*clear*/ /*_#GET_INT__L7*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3799:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L8*/ curfnum[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3796:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3796:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_MIXLOC_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_MIXBIGINT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3825:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3825:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3825:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3825:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3826:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3826:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3826:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3826:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3826:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3826:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3826:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3826)?(3826):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3826:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3826:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3826:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3827:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3827:/ block");
+  /*block*/{
+   /*_#IS_MIXBIGINT__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])) == OBMAG_MIXBIGINT);;
+   MELT_LOCATION("warmelt-first.melt:3827:/ cond");
+   /*cond*/ if (/*_#IS_MIXBIGINT__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3827:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3827:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3827:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3827:/ locexp");
+      melt_assert_failed(( "check self mixbigint"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3827)?(3827):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3827:/ clear");
+   /*clear*/ /*_#IS_MIXBIGINT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3827:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3827:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3828:/ block");
+ /*block*/{
+  /*_.DIS__V8*/ curfptr[6] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3829:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V9*/ curfptr[8] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3831:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( " |"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:3832:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3832:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3833:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "#!["));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:3834:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[10] = slot; };
+  ;
+  /*_#GET_INT__L4*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[10])));;
+  /*_#NEED_DBGLIM__L5*/ curfnum[4] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[1]));;
+  MELT_LOCATION("warmelt-first.melt:3834:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3834:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3834:/ block");
+   /*block*/{
+    /*_.MIXBIGINT_VAL__V12*/ curfptr[11] = 
+     melt_val_mixbigint(/*_.SELF__V2*/ curfptr[1]);;
+    /*_#I__L6*/ curfnum[5] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:3836:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:3836:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:3836:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
+     /*_.DBG_OUT__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.MIXBIGINT_VAL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3837:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ","));}
+    ;
+    /*_#I__L7*/ curfnum[6] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3838:/ locexp");
+    meltgc_ppstrbuf_mixbigint(/*_.SBUF__V9*/ curfptr[8],/*_#I__L7*/ curfnum[6],/*_.SELF__V2*/ curfptr[1]);;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3835:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3834:/ clear");
+    /*clear*/ /*_.MIXBIGINT_VAL__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3834:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3834:/ clear");
+    /*clear*/ /*_.DBG_OUT__V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3834:/ clear");
+    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3834:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3834:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3840:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ",.."));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3842:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "]"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3828:/ clear");
+  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3828:/ clear");
+  /*clear*/ /*_.SBUF__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3828:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3828:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3828:/ clear");
+  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3828:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3825:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3825:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_MIXBIGINT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 17
+  long varnum[17];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_MULTIPLE_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3847:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3847:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3847:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3847:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3848:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3848:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3848:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3848:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3848:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3848:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3848:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3848)?(3848):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3848:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3848:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3848:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3849:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3850:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3852:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3852:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3852:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3853:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3852:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3852:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3855:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3856:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3856:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3857:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "*"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3854:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3852:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3858:/ block");
+  /*block*/{
+   /*_#LN__L4*/ curfnum[3] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:3859:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#LN__L4*/ curfnum[3]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:3860:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "["));}
+   ;
+   /*_#NEED_DBG__L5*/ curfnum[4] = 
+    (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) <= MELTDBG_MAXDEPTH);;
+   MELT_LOCATION("warmelt-first.melt:3861:/ cond");
+   /*cond*/ if (/*_#NEED_DBG__L5*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3861:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3861:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3862:/ block");
+     /*block*/{
+      /*_#IX__L6*/ curfnum[5] = 0;;
+      MELT_LOCATION("warmelt-first.melt:3863:/ loop");
+      /*loop*/{ labloop_COMPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3863:/ loopbody");
+      
+       MELT_LOCATION("warmelt-first.melt:3863:/ block");
+       /*block*/{
+        /*_#I__L7*/ curfnum[6] = 
+         ((/*_#IX__L6*/ curfnum[5]) >= (/*_#LN__L4*/ curfnum[3]));;
+        MELT_LOCATION("warmelt-first.melt:3864:/ cond");
+        /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3864:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3864:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3864:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3864:/ compute");
+           /*_.COMPLOOP__V12*/ curfptr[11] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3864:/ exit");
+           /*exit*/{
+            goto labexit_COMPLOOP_1;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:3865:/ locexp");
+        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+        ;
+        MELT_LOCATION("warmelt-first.melt:3866:/ block");
+        /*block*/{
+         /*_#CURULEN__L8*/ curfnum[7] = 
+          melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
+         /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 
+          (melt_multiple_nth((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (/*_#IX__L6*/ curfnum[5])));;
+         /*_#I__L9*/ curfnum[8] = 
+          ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+         MELT_LOCATION("warmelt-first.melt:3867:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[2];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-first.melt:3867:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-first.melt:3867:/ apply.arg");
+          argtab[1].bp_long = /*_#I__L9*/ curfnum[8];
+          /*_.DBG_OUT__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MULTIPLE_NTH__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_#STRBUF_USEDLENGTH__L10*/ curfnum[9] = 
+          melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
+         /*_#I__L11*/ curfnum[10] = 
+          ((/*_#STRBUF_USEDLENGTH__L10*/ curfnum[9]) - (/*_#CURULEN__L8*/ curfnum[7]));;
+         /*_#I__L12*/ curfnum[11] = 
+          ((/*_#I__L11*/ curfnum[10]) > (100));;
+         MELT_LOCATION("warmelt-first.melt:3868:/ cond");
+         /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
+         MELT_LOCATION("warmelt-first.melt:3868:/ cond.then");
+         MELT_LOCATION("warmelt-first.melt:3868:/ block");
+          /*block*/{
+           /*_#I__L13*/ curfnum[12] = 
+            ((/*_#LN__L4*/ curfnum[3]) - (1));;
+           /*_#I__L14*/ curfnum[13] = 
+            ((/*_#IX__L6*/ curfnum[5]) < (/*_#I__L13*/ curfnum[12]));;
+           MELT_LOCATION("warmelt-first.melt:3868:/ cond");
+           /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
+           MELT_LOCATION("warmelt-first.melt:3868:/ cond.then");
+           MELT_LOCATION("warmelt-first.melt:3868:/ block");
+            /*block*/{
+             /*_#I__L15*/ curfnum[14] = 
+              ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+             
+             {
+             MELT_LOCATION("warmelt-first.melt:3870:/ locexp");
+             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#I__L15*/ curfnum[14]), 0);}
+             ;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:3868:/ clear");
+             /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
+            ;
+           } /*noelse*/
+           ;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3868:/ clear");
+           /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
+           MELT_LOCATION("warmelt-first.melt:3868:/ clear");
+           /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;}
+          ;
+         } /*noelse*/
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_#CURULEN__L8*/ curfnum[7] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_.DBG_OUT__V14*/ curfptr[13] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_#STRBUF_USEDLENGTH__L10*/ curfnum[9] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:3866:/ clear");
+         /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
+        ;
+        /*_#I__L16*/ curfnum[14] = 
+         ((/*_#IX__L6*/ curfnum[5]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3871:/ compute");
+        /*_#IX__L6*/ curfnum[5] = /*_#SETQ___L17*/ curfnum[12] = /*_#I__L16*/ curfnum[14];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3863:/ clear");
+        /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3863:/ clear");
+        /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3863:/ clear");
+        /*clear*/ /*_#SETQ___L17*/ curfnum[12] = 0 ;}
+       ;
+       ;
+        goto labloop_COMPLOOP_1;
+        labexit_COMPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3863:/ loopepilog");
+      /*loopepilog*/
+       /*_.FOREVER___V11*/ curfptr[10] = /*_.COMPLOOP__V12*/ curfptr[11];;
+       }
+      ;
+      /*_.LET___V10*/ curfptr[9] = /*_.FOREVER___V11*/ curfptr[10];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:3862:/ clear");
+      /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:3862:/ clear");
+      /*clear*/ /*_.FOREVER___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*_.IFELSE___V9*/ curfptr[7] = /*_.LET___V10*/ curfptr[9];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3861:/ clear");
+     /*clear*/ /*_.LET___V10*/ curfptr[9] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:3861:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3861:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3873:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".."));}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:3875:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "]"));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3858:/ clear");
+   /*clear*/ /*_#LN__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3858:/ clear");
+   /*clear*/ /*_#NEED_DBG__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3858:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3849:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3849:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3849:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3847:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_MULTIPLE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_ROUTINE_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3881:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3881:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3881:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3881:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3882:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3882:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3882:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3882:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3882:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3882:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3882:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3882)?(3882):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3882:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3882:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3882:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3883:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3884:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#I__L3*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V8*/ curfptr[7] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
+  /*_#__L4*/ curfnum[3] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_ROUTINE*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-first.melt:3887:/ cond");
+  /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3887:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3887:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3888:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *rou[%"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3887:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3887:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3890:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3891:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3891:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3892:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "[%"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3889:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3887:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3893:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_routine_descrstr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));}
+  ;
+  /*_#I__L5*/ curfnum[4] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) < (2));;
+  MELT_LOCATION("warmelt-first.melt:3894:/ cond");
+  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3894:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3894:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3896:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3896:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V12*/ curfptr[11] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (3));
+     ;
+     MELT_LOCATION("warmelt-first.melt:3896:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[0] = (melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]);
+     ;
+     MELT_LOCATION("warmelt-first.melt:3896:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[1] = (melt_ptr_t)(/*_.BOXDEPTHP1__V8*/ curfptr[7]);
+     ;
+     MELT_LOCATION("warmelt-first.melt:3896:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]);
+     ;
+     /*_.LAMBDA___V11*/ curfptr[10] = /*_.LAMBDA___V12*/ curfptr[11];;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3895:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:3895:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V11*/ curfptr[10];
+     /*_.ROUTINE_EVERY__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!ROUTINE_EVERY*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V10*/ curfptr[8] = /*_.ROUTINE_EVERY__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3894:/ clear");
+    /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3894:/ clear");
+    /*clear*/ /*_.ROUTINE_EVERY__V13*/ curfptr[12] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3894:/ cond.else");
+  
+   /*_.IF___V10*/ curfptr[8] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3901:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "%]"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
+  /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3881:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_ROUTINE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_72_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3896:/ getarg");
+ /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3896:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3896:/ block");
+/*block*/{
+ /*_#GET_INT__L2*/ curfnum[1] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[1]))));;
+ 
+ {
+ MELT_LOCATION("warmelt-first.melt:3897:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[0])), (/*_#GET_INT__L2*/ curfnum[1]), 64);}
+ ;
+ /*_#GET_INT__L3*/ curfnum[2] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[1]))));;
+ MELT_LOCATION("warmelt-first.melt:3898:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-first.melt:3898:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]);
+  MELT_LOCATION("warmelt-first.melt:3898:/ apply.arg");
+  argtab[1].bp_long = /*_#GET_INT__L3*/ curfnum[2];
+  /*_.DBG_OUT__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:3896:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.DBG_OUT__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-first.melt:3896:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3896:/ clear");
+ /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3896:/ clear");
+ /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:3896:/ clear");
+ /*clear*/ /*_.DBG_OUT__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_72_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 18
+  long varnum[18];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_CLOSURE_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3908:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3908:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3908:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3908:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3909:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3909:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3909:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3909:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3909:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3909:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3909:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3909)?(3909):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3909:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3909:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3909:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3910:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3911:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#OLDMAXDEPTH__L3*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V7*/ curfptr[6])));;
+  MELT_LOCATION("warmelt-first.melt:3912:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#__L4*/ curfnum[3] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_CLOSURE*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3913:/ cond");
+  /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3913:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3913:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3914:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( " *clo<"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3913:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3913:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3916:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3917:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3917:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3918:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( "*clo<"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3915:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3913:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3919:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[8] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3919:/ locexp");
+  melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[8]), (3));}
+  ;
+  /*_.CLOSURE_ROUTINE__V11*/ curfptr[10] = 
+   (melt_closure_routine((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3920:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-first.melt:3920:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-first.melt:3920:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOSURE_ROUTINE__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3921:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3921:/ locexp");
+  melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12]), (/*_#OLDMAXDEPTH__L3*/ curfnum[1]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:3922:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V14*/ curfptr[13] = slot; };
+  ;
+  /*_#GET_INT__L5*/ curfnum[4] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ curfptr[13])));;
+  /*_#NEED_DBGLIM__L6*/ curfnum[5] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));;
+  MELT_LOCATION("warmelt-first.melt:3922:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3922:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3922:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:3923:/ block");
+    /*block*/{
+     /*_#IX__L7*/ curfnum[6] = 0;;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:3924:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( "/"));}
+     ;
+     /*_#CLOSURE_SIZE__L8*/ curfnum[7] = 
+      (melt_closure_size((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:3925:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), (/*_#CLOSURE_SIZE__L8*/ curfnum[7]));}
+     ;
+     MELT_LOCATION("warmelt-first.melt:3926:/ loop");
+     /*loop*/{ labloop_OUTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3926:/ loopbody");
+     
+      MELT_LOCATION("warmelt-first.melt:3926:/ block");
+      /*block*/{
+       /*_#CLOSURE_SIZE__L9*/ curfnum[8] = 
+        (melt_closure_size((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+       /*_#I__L10*/ curfnum[9] = 
+        ((/*_#IX__L7*/ curfnum[6]) >= (/*_#CLOSURE_SIZE__L9*/ curfnum[8]));;
+       MELT_LOCATION("warmelt-first.melt:3927:/ cond");
+       /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:3927:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:3927:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:3928:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3928:/ compute");
+          /*_.OUTLOOP__V18*/ curfptr[17] = NULL;;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3928:/ exit");
+          /*exit*/{
+           goto labexit_OUTLOOP_1;}
+          ;}
+         ;
+         /*epilog*/}
+        ;
+       } /*noelse*/
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3929:/ locexp");
+       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+       ;
+       MELT_LOCATION("warmelt-first.melt:3930:/ block");
+       /*block*/{
+        /*_#CURULEN__L11*/ curfnum[10] = 
+         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]));;
+        /*_.CLOSURE_NTH__V19*/ curfptr[18] = 
+         (melt_closure_nth((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (int)(/*_#IX__L7*/ curfnum[6])));;
+        /*_#I__L12*/ curfnum[11] = 
+         ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3931:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-first.melt:3931:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-first.melt:3931:/ apply.arg");
+         argtab[1].bp_long = /*_#I__L12*/ curfnum[11];
+         /*_.DBG_OUT__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOSURE_NTH__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#STRBUF_USEDLENGTH__L13*/ curfnum[12] = 
+         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]));;
+        /*_#I__L14*/ curfnum[13] = 
+         ((/*_#STRBUF_USEDLENGTH__L13*/ curfnum[12]) - (/*_#CURULEN__L11*/ curfnum[10]));;
+        /*_#I__L15*/ curfnum[14] = 
+         ((/*_#I__L14*/ curfnum[13]) > (100));;
+        MELT_LOCATION("warmelt-first.melt:3932:/ cond");
+        /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3932:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3932:/ block");
+         /*block*/{
+          /*_#I__L16*/ curfnum[15] = 
+           ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:3933:/ locexp");
+          meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), (/*_#I__L16*/ curfnum[15]), 0);}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3932:/ clear");
+          /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_#CURULEN__L11*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_.CLOSURE_NTH__V19*/ curfptr[18] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_.DBG_OUT__V20*/ curfptr[19] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_#STRBUF_USEDLENGTH__L13*/ curfnum[12] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3930:/ clear");
+        /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
+       ;
+       /*_#I__L17*/ curfnum[15] = 
+        ((/*_#IX__L7*/ curfnum[6]) + (1));;
+       MELT_LOCATION("warmelt-first.melt:3934:/ compute");
+       /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L18*/ curfnum[10] = /*_#I__L17*/ curfnum[15];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3926:/ clear");
+       /*clear*/ /*_#CLOSURE_SIZE__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3926:/ clear");
+       /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3926:/ clear");
+       /*clear*/ /*_#I__L17*/ curfnum[15] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3926:/ clear");
+       /*clear*/ /*_#SETQ___L18*/ curfnum[10] = 0 ;}
+      ;
+      ;
+       goto labloop_OUTLOOP_1;
+       labexit_OUTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3926:/ loopepilog");
+     /*loopepilog*/
+      /*_.FOREVER___V17*/ curfptr[16] = /*_.OUTLOOP__V18*/ curfptr[17];;
+      }
+     ;
+     /*_.LET___V16*/ curfptr[15] = /*_.FOREVER___V17*/ curfptr[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3923:/ clear");
+     /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3923:/ clear");
+     /*clear*/ /*_#CLOSURE_SIZE__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:3923:/ clear");
+     /*clear*/ /*_.FOREVER___V17*/ curfptr[16] = 0 ;}
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.LET___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3922:/ clear");
+    /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3922:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3936:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( ">"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_#OLDMAXDEPTH__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.SBUF__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.CLOSURE_ROUTINE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3908:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_CLOSURE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_74_warmelt_first_DBGOUT_LIST_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_first_DBGOUT_LIST_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 18
+  long varnum[18];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_LIST_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3944:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3944:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3944:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3944:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3945:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3945:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3945:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3945:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3945:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3945:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3945:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3945)?(3945):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3945:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3945:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3945:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3946:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3947:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_LIST*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3948:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3948:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3948:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3949:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *li("));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3948:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3948:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3951:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3952:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3952:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3953:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "("));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3950:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3948:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3954:/ block");
+  /*block*/{
+   /*_.CURPAIR__V9*/ curfptr[7] = 
+    (melt_list_first((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+   /*_#IX__L4*/ curfnum[3] = 0;;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:3958:/ locexp");
+   melt_check_call_frames(MELT_ANYWHERE,  "before loop dbgout_list_method");;}
+   ;
+   MELT_LOCATION("warmelt-first.melt:3959:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = slot; };
+   ;
+   /*_#GET_INT__L5*/ curfnum[4] = 
+    (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[9])));;
+   /*_#NEED_DBGLIM__L6*/ curfnum[5] = 
+    (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));;
+   MELT_LOCATION("warmelt-first.melt:3959:/ cond");
+   /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3959:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3959:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:3960:/ loop");
+     /*loop*/{ labloop_LISTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3960:/ loopbody");
+     
+      MELT_LOCATION("warmelt-first.melt:3960:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3961:/ locexp");
+       melt_check_call_frames(MELT_ANYWHERE,  "start loop dbgout_list_method");;}
+       ;
+       /*_#I__L7*/ curfnum[6] = 
+        ((/*_#IX__L4*/ curfnum[3]) > (300));;
+       MELT_LOCATION("warmelt-first.melt:3962:/ cond");
+       /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:3962:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:3962:/ block");
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:3964:/ locexp");
+         meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "..."));}
+         ;
+         MELT_LOCATION("warmelt-first.melt:3965:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3965:/ compute");
+          /*_.LISTLOOP__V13*/ curfptr[12] = NULL;;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3965:/ exit");
+          /*exit*/{
+           goto labexit_LISTLOOP_1;}
+          ;}
+         ;
+         MELT_LOCATION("warmelt-first.melt:3963:/ block");
+         /*block*/{}
+         ;
+         /*epilog*/}
+        ;
+       } /*noelse*/
+       ;
+       /*_#IS_PAIR__L8*/ curfnum[7] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[7])) == OBMAG_PAIR);;
+       /*_#NOT__L9*/ curfnum[8] = 
+        (!(/*_#IS_PAIR__L8*/ curfnum[7]));;
+       MELT_LOCATION("warmelt-first.melt:3966:/ cond");
+       /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:3966:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:3966:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:3966:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3966:/ compute");
+          /*_.LISTLOOP__V13*/ curfptr[12] = NULL;;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3966:/ exit");
+          /*exit*/{
+           goto labexit_LISTLOOP_1;}
+          ;}
+         ;
+         /*epilog*/}
+        ;
+       } /*noelse*/
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:3967:/ locexp");
+       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+       ;
+       MELT_LOCATION("warmelt-first.melt:3968:/ block");
+       /*block*/{
+        /*_#CURULEN__L10*/ curfnum[9] = 
+         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
+        /*_.PAIR_HEAD__V14*/ curfptr[13] = 
+         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[7])));;
+        /*_#I__L11*/ curfnum[10] = 
+         ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3969:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-first.melt:3969:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-first.melt:3969:/ apply.arg");
+         argtab[1].bp_long = /*_#I__L11*/ curfnum[10];
+         /*_.DBG_OUT__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_HEAD__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.PAIR_TAIL__V16*/ curfptr[15] = 
+         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[7])));;
+        MELT_LOCATION("warmelt-first.melt:3970:/ compute");
+        /*_.CURPAIR__V9*/ curfptr[7] = /*_.SETQ___V17*/ curfptr[16] = /*_.PAIR_TAIL__V16*/ curfptr[15];;
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:3971:/ locexp");
+        melt_check_call_frames(MELT_ANYWHERE,  "near endloop dbgout_list_method");;}
+        ;
+        /*_#NULL__L12*/ curfnum[11] = 
+         ((/*_.CURPAIR__V9*/ curfptr[7]) == NULL);;
+        MELT_LOCATION("warmelt-first.melt:3972:/ cond");
+        /*cond*/ if (/*_#NULL__L12*/ curfnum[11]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3972:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3972:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:3973:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:3973:/ compute");
+           /*_.LISTLOOP__V13*/ curfptr[12] = NULL;;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:3973:/ exit");
+           /*exit*/{
+            goto labexit_LISTLOOP_1;}
+           ;}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*_#I__L13*/ curfnum[12] = 
+         ((/*_#IX__L4*/ curfnum[3]) + (1));;
+        MELT_LOCATION("warmelt-first.melt:3974:/ compute");
+        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L14*/ curfnum[13] = /*_#I__L13*/ curfnum[12];;
+        /*_#STRBUF_USEDLENGTH__L15*/ curfnum[14] = 
+         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
+        /*_#I__L16*/ curfnum[15] = 
+         ((/*_#STRBUF_USEDLENGTH__L15*/ curfnum[14]) - (/*_#CURULEN__L10*/ curfnum[9]));;
+        /*_#I__L17*/ curfnum[16] = 
+         ((/*_#I__L16*/ curfnum[15]) > (100));;
+        MELT_LOCATION("warmelt-first.melt:3975:/ cond");
+        /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:3975:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3975:/ block");
+         /*block*/{
+          /*_#I__L18*/ curfnum[17] = 
+           ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:3976:/ locexp");
+          meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#I__L18*/ curfnum[17]), 0);}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:3975:/ clear");
+          /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#CURULEN__L10*/ curfnum[9] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_.PAIR_HEAD__V14*/ curfptr[13] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_.DBG_OUT__V15*/ curfptr[14] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_.PAIR_TAIL__V16*/ curfptr[15] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#NULL__L12*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#STRBUF_USEDLENGTH__L15*/ curfnum[14] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:3968:/ clear");
+        /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:3960:/ clear");
+       /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3960:/ clear");
+       /*clear*/ /*_#IS_PAIR__L8*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:3960:/ clear");
+       /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;}
+      ;
+      ;
+       goto labloop_LISTLOOP_1;
+       labexit_LISTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3960:/ loopepilog");
+     /*loopepilog*/
+      /*_.FOREVER___V12*/ curfptr[11] = /*_.LISTLOOP__V13*/ curfptr[12];;
+      }
+     ;
+     /*_.IF___V11*/ curfptr[10] = /*_.FOREVER___V12*/ curfptr[11];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:3959:/ clear");
+     /*clear*/ /*_.FOREVER___V12*/ curfptr[11] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:3959:/ cond.else");
+   
+    /*_.IF___V11*/ curfptr[10] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:3978:/ locexp");
+   melt_check_call_frames(MELT_ANYWHERE,  "end dbgout_list_method");;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:3979:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ")"));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3954:/ clear");
+   /*clear*/ /*_.CURPAIR__V9*/ curfptr[7] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3954:/ clear");
+   /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3954:/ clear");
+   /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3954:/ clear");
+   /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3954:/ clear");
+   /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3954:/ clear");
+   /*clear*/ /*_.IF___V11*/ curfptr[10] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3946:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3946:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3946:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3944:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_LIST_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_74_warmelt_first_DBGOUT_LIST_METHOD*/
+
+
+
+/**** end of warmelt-first.0+1.c ****/
diff --git a/gcc/melt/warmelt-first.0+2.c b/gcc/melt/warmelt-first.0+2.c
new file mode 100644
index 00000000000..b86ea4d862c
--- /dev/null
+++ b/gcc/melt/warmelt-first.0+2.c
@@ -0,0 +1,11577 @@
+/* GCC MELT GENERATED FILE warmelt-first.0+2.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #2 */
+#include "run-melt.h"
+
+/**** warmelt-first.0+2.c declarations ****/
+#define MELT_HAS_INITIAL_ENVIRONMENT 0
+
+/**!!** ***
+    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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_first_COMPARE_NAMED_ALPHA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_first_INSTALL_CTYPE_DESCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_first_ADD_NEW_SYMBOL_TOKEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_first_ADD_NEW_KEYWORD_TOKEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_first_INTERN_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_first_INTERN_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_first_CLONE_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_first_INITFRESH_CONTENVMAKER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_first_INITVALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_first_INITVALUE_IMPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_first_INITMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_first_INITPATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_first_INIT_EXITFINALIZER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_first_AT_EXIT_FIRST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_first_AT_EXIT_LAST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_first_INIT_UNITSTARTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_first_AT_START_UNIT_FIRST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_first_AT_START_UNIT_LAST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_first_INIT_UNITFINISHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_first_AT_FINISH_UNIT_FIRST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_first_AT_FINISH_UNIT_LAST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_first_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_first_DEBUGMSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_first_MAPOBJECT_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_first_MAPOBJECT_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_first_MAPSTRING_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_first_MAPSTRING_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_first_LIST_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_first_LIST_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_first_LIST_APPEND2LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_first_LIST_MAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_first_LIST_FIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_first_LIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_first_MULTIPLE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_first_MULTIPLE_MAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_first_MULTIPLE_TO_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_first_CLOSURE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_first_ROUTINE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_first_LIST1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_first_LIST2(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_first_LIST3(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_first_LIST4(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_first_LIST5(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_first_LIST6(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_first_INSTALL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_first_DBG_OUTOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_first_DBG_OUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_first_DBGOUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_first_DBGOUT_NULL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_first_DBGOUT_STRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_first_DBGOUT_LIST_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_first_DBGOUT_BOX_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_first_COMPARE_OBJ_RANKED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_first_FRESH_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_first_FIND_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_first_FIND_ENV_DEBUG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_first_FIND_ENCLOSING_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_first_PUT_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_first_OVERWRITE_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_first_DEBUG_MSG_FUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_first_POST_INITIALIZATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-first.0+2.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_PAIR_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:3984:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:3984:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:3984:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:3984:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:3985:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:3985:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:3985:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:3985:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:3985:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:3985:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:3985:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (3985)?(3985):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:3985:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:3985:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:3985:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:3986:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:3987:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_PAIR*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:3988:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3988:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3988:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3989:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *pa(."));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3988:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:3988:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3991:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3992:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3992:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3993:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "(."));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:3990:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3988:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:3994:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; };
+  ;
+  /*_#GET_INT__L4*/ curfnum[3] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));;
+  /*_#NEED_DBGLIM__L5*/ curfnum[4] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[3]));;
+  MELT_LOCATION("warmelt-first.melt:3994:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:3994:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3994:/ block");
+   /*block*/{
+    /*_.PAIR_HEAD__V11*/ curfptr[10] = 
+     (melt_pair_head((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    /*_#I__L6*/ curfnum[5] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:3996:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:3996:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:3996:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
+     /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_HEAD__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:3997:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+    ;
+    /*_.PAIR_TAIL__V13*/ curfptr[12] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+    /*_#I__L7*/ curfnum[6] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:3998:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:3998:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:3998:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L7*/ curfnum[6];
+     /*_.DBG_OUT__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_TAIL__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-first.melt:3995:/ block");
+    /*block*/{
+     /*_.PROGN___V15*/ curfptr[14] = /*_.DBG_OUT__V14*/ curfptr[13];;}
+    ;
+    /*_.IF___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_.PAIR_HEAD__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_.DBG_OUT__V14*/ curfptr[13] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:3994:/ clear");
+    /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:3994:/ cond.else");
+  
+   /*_.IF___V10*/ curfptr[9] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:3999:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".)"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
+  /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:3984:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_PAIR_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_76_warmelt_first_DBGOUT_BOX_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_first_DBGOUT_BOX_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_BOX_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4004:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4004:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4004:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4004:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4005:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4005:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4005:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4005:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4005:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4005:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4005:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4005)?(4005):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4005:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4005:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4005:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4006:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4007:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_BOX*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:4008:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4008:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4008:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4009:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *box[<"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4008:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:4008:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4011:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4012:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4012:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4013:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "[<"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4010:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4008:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:4014:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; };
+  ;
+  /*_#GET_INT__L4*/ curfnum[3] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));;
+  /*_#NEED_DBGLIM__L5*/ curfnum[4] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[3]));;
+  MELT_LOCATION("warmelt-first.melt:4014:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4014:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4014:/ block");
+   /*block*/{
+    /*_.BOX_CONTENT__V11*/ curfptr[10] = 
+     melt_box_content((meltbox_ptr_t)(/*_.SELF__V2*/ curfptr[1]));;
+    /*_#I__L6*/ curfnum[5] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:4015:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4015:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:4015:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
+     /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BOX_CONTENT__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V10*/ curfptr[9] = /*_.DBG_OUT__V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4014:/ clear");
+    /*clear*/ /*_.BOX_CONTENT__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4014:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4014:/ clear");
+    /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4014:/ cond.else");
+  
+   /*_.IF___V10*/ curfptr[9] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4016:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ">]"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
+  /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4004:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_BOX_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_76_warmelt_first_DBGOUT_BOX_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_77_warmelt_first_COMPARE_OBJ_RANKED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_first_COMPARE_OBJ_RANKED_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 76
+  void* varptr[76];
+#define CURFRAM_NBVARNUM 25
+  long varnum[25];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<76; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 76;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPARE_OBJ_RANKED", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ /*_.X1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BXRK1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BXRK1__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.X2__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.X2__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BXRK2__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BXRK2__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VLESS__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VLESS__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VEQ__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VEQ__V7*/ curfptr[6])) != NULL);
+ 
+ 
+ /*getarg#6*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ getarg");
+ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VGREAT__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VGREAT__V8*/ curfptr[7])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4023:/ block");
+/*block*/{
+ /*_#__L1*/ curfnum[0] = 
+  ((/*_.X1__V2*/ curfptr[1]) == (/*_.X2__V4*/ curfptr[3]));;
+ MELT_LOCATION("warmelt-first.melt:4024:/ cond");
+ /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4024:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4024:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4025:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
+    MELT_LOCATION("warmelt-first.melt:4025:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.IFELSE___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4024:/ clear");
+   /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4024:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4024:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4026:/ block");
+   /*block*/{
+    /*_.X1DIS__V12*/ curfptr[11] = 
+     (melt_discr((melt_ptr_t)(/*_.X1__V2*/ curfptr[1])));;
+    /*_.X2DIS__V13*/ curfptr[12] = 
+     (melt_discr((melt_ptr_t)(/*_.X2__V4*/ curfptr[3])));;
+    /*_#RK1__L2*/ curfnum[1] = 
+     (melt_get_int((melt_ptr_t)(/*_.BXRK1__V3*/ curfptr[2])));;
+    /*_#RK2__L3*/ curfnum[2] = 
+     (melt_get_int((melt_ptr_t)(/*_.BXRK2__V5*/ curfptr[4])));;
+    /*_#__L4*/ curfnum[3] = 
+     ((/*_.X1DIS__V12*/ curfptr[11]) != (/*_.X2DIS__V13*/ curfptr[12]));;
+    MELT_LOCATION("warmelt-first.melt:4031:/ cond");
+    /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4031:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:4031:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4032:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.X1DIS__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; };
+      ;
+      MELT_LOCATION("warmelt-first.melt:4033:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.X2DIS__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
+      ;
+      /*_#STRING___L5*/ curfnum[4] = 
+       melt_string_less((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14]), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));;
+      MELT_LOCATION("warmelt-first.melt:4032:/ cond");
+      /*cond*/ if (/*_#STRING___L5*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4032:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:4032:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:4034:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+         MELT_LOCATION("warmelt-first.melt:4034:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V18*/ curfptr[17];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4032:/ clear");
+        /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-first.melt:4032:/ cond.else");
+      
+       MELT_LOCATION("warmelt-first.melt:4032:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:4035:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+         MELT_LOCATION("warmelt-first.melt:4035:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V19*/ curfptr[17];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4032:/ clear");
+        /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V17*/ curfptr[16];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4031:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4031:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4031:/ clear");
+      /*clear*/ /*_#STRING___L5*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4031:/ clear");
+      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-first.melt:4031:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4031:/ block");
+     /*block*/{
+      /*_#IS_A__L6*/ curfnum[4] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[0])));;
+      MELT_LOCATION("warmelt-first.melt:4037:/ cond");
+      /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4037:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:4037:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:4038:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:4038:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V22*/ curfptr[15] = slot; };
+         ;
+         MELT_LOCATION("warmelt-first.melt:4039:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.N2__V23*/ curfptr[16] = slot; };
+         ;
+         /*_#STRING___L7*/ curfnum[6] = 
+          melt_string_less((melt_ptr_t)(/*_.N1__V22*/ curfptr[15]), (melt_ptr_t)(/*_.N2__V23*/ curfptr[16]));;
+         MELT_LOCATION("warmelt-first.melt:4040:/ cond");
+         /*cond*/ if (/*_#STRING___L7*/ curfnum[6]) /*then*/ {
+         MELT_LOCATION("warmelt-first.melt:4040:/ cond.then");
+         MELT_LOCATION("warmelt-first.melt:4040:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:4041:/ block");
+           /*block*/{
+            /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+            MELT_LOCATION("warmelt-first.melt:4041:/ finalreturn");
+            ;
+            /*finalret*/ goto labend_rout ;}
+           ;
+           /*_.IFELSE___V24*/ curfptr[23] = /*_.RETURN___V25*/ curfptr[24];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:4040:/ clear");
+           /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-first.melt:4040:/ cond.else");
+         
+          MELT_LOCATION("warmelt-first.melt:4040:/ block");
+          /*block*/{
+           /*_#STRING___L8*/ curfnum[7] = 
+            melt_string_less((melt_ptr_t)(/*_.N2__V23*/ curfptr[16]), (melt_ptr_t)(/*_.N1__V22*/ curfptr[15]));;
+           MELT_LOCATION("warmelt-first.melt:4042:/ cond");
+           /*cond*/ if (/*_#STRING___L8*/ curfnum[7]) /*then*/ {
+           MELT_LOCATION("warmelt-first.melt:4042:/ cond.then");
+           MELT_LOCATION("warmelt-first.melt:4042:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-first.melt:4043:/ block");
+             /*block*/{
+              /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+              MELT_LOCATION("warmelt-first.melt:4043:/ finalreturn");
+              ;
+              /*finalret*/ goto labend_rout ;}
+             ;
+             /*_.IFELSE___V26*/ curfptr[24] = /*_.RETURN___V27*/ curfptr[26];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:4042:/ clear");
+             /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;}
+            ;
+           } else {MELT_LOCATION("warmelt-first.melt:4042:/ cond.else");
+           
+            MELT_LOCATION("warmelt-first.melt:4042:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-first.melt:4045:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-first.melt:4046:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 3, "CSYM_URANK");/*_.YR1__V29*/ curfptr[28] = slot; };
+              ;
+              MELT_LOCATION("warmelt-first.melt:4047:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 3, "CSYM_URANK");/*_.YR2__V30*/ curfptr[29] = slot; };
+              ;
+              /*_#NR1__L9*/ curfnum[8] = 
+               (melt_get_int((melt_ptr_t)(/*_.YR1__V29*/ curfptr[28])));;
+              /*_#NR2__L10*/ curfnum[9] = 
+               (melt_get_int((melt_ptr_t)(/*_.YR2__V30*/ curfptr[29])));;
+              /*_#I__L11*/ curfnum[10] = 
+               ((/*_#NR1__L9*/ curfnum[8]) < (/*_#NR2__L10*/ curfnum[9]));;
+              MELT_LOCATION("warmelt-first.melt:4051:/ cond");
+              /*cond*/ if (/*_#I__L11*/ curfnum[10]) /*then*/ {
+              MELT_LOCATION("warmelt-first.melt:4051:/ cond.then");
+              MELT_LOCATION("warmelt-first.melt:4051:/ block");
+               /*block*/{
+                MELT_LOCATION("warmelt-first.melt:4052:/ block");
+                /*block*/{
+                 /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+                 MELT_LOCATION("warmelt-first.melt:4052:/ finalreturn");
+                 ;
+                 /*finalret*/ goto labend_rout ;}
+                ;
+                /*_.IFELSE___V31*/ curfptr[30] = /*_.RETURN___V32*/ curfptr[31];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-first.melt:4051:/ clear");
+                /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ;}
+               ;
+              } else {MELT_LOCATION("warmelt-first.melt:4051:/ cond.else");
+              
+               MELT_LOCATION("warmelt-first.melt:4051:/ block");
+               /*block*/{
+                /*_#I__L12*/ curfnum[11] = 
+                 ((/*_#NR1__L9*/ curfnum[8]) > (/*_#NR2__L10*/ curfnum[9]));;
+                MELT_LOCATION("warmelt-first.melt:4053:/ cond");
+                /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
+                MELT_LOCATION("warmelt-first.melt:4053:/ cond.then");
+                MELT_LOCATION("warmelt-first.melt:4053:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-first.melt:4054:/ block");
+                  /*block*/{
+                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+                   MELT_LOCATION("warmelt-first.melt:4054:/ finalreturn");
+                   ;
+                   /*finalret*/ goto labend_rout ;}
+                  ;
+                  /*_.IFELSE___V33*/ curfptr[31] = /*_.RETURN___V34*/ curfptr[33];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-first.melt:4053:/ clear");
+                  /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ;}
+                 ;
+                } else {MELT_LOCATION("warmelt-first.melt:4053:/ cond.else");
+                
+                 MELT_LOCATION("warmelt-first.melt:4053:/ block");
+                 /*block*/{
+                  
+                  #if ENABLE_CHECKING
+                   MELT_LOCATION("warmelt-first.melt:4057:/ cppif.then");
+                  MELT_LOCATION("warmelt-first.melt:4057:/ block");
+                   /*block*/{
+                    MELT_LOCATION("warmelt-first.melt:4057:/ cond");
+                    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+                    MELT_LOCATION("warmelt-first.melt:4057:/ cond.then");
+                    /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);;
+                    } else {MELT_LOCATION("warmelt-first.melt:4057:/ cond.else");
+                    
+                     MELT_LOCATION("warmelt-first.melt:4057:/ block");
+                     /*block*/{
+                      /*block*/{
+                       
+                       {
+                       MELT_LOCATION("warmelt-first.melt:4057:/ locexp");
+                       melt_assert_failed(( "corrupted same cloned symbols"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4057)?(4057):__LINE__, __FUNCTION__);
+;}
+                       ;
+                       /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
+                      ;
+                      /*epilog*/}
+                     ;
+                     }
+                    ;
+                    /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];;
+                    /*epilog*/
+                    MELT_LOCATION("warmelt-first.melt:4057:/ clear");
+                    /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
+                   
+                   #else /*ENABLE_CHECKING*/
+                   MELT_LOCATION("warmelt-first.melt:4057:/ cppif.else");
+                  /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
+                   #endif /*ENABLE_CHECKING*/
+                   ;
+                  MELT_LOCATION("warmelt-first.melt:4058:/ block");
+                  /*block*/{
+                   /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+                   MELT_LOCATION("warmelt-first.melt:4058:/ finalreturn");
+                   ;
+                   /*finalret*/ goto labend_rout ;}
+                  ;
+                  MELT_LOCATION("warmelt-first.melt:4055:/ block");
+                  /*block*/{
+                   /*_.PROGN___V38*/ curfptr[37] = /*_.RETURN___V37*/ curfptr[35];;}
+                  ;
+                  /*_.IFELSE___V33*/ curfptr[31] = /*_.PROGN___V38*/ curfptr[37];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-first.melt:4053:/ clear");
+                  /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;
+                  MELT_LOCATION("warmelt-first.melt:4053:/ clear");
+                  /*clear*/ /*_.RETURN___V37*/ curfptr[35] = 0 ;
+                  MELT_LOCATION("warmelt-first.melt:4053:/ clear");
+                  /*clear*/ /*_.PROGN___V38*/ curfptr[37] = 0 ;}
+                 ;
+                 }
+                ;
+                /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[31];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-first.melt:4051:/ clear");
+                /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
+                MELT_LOCATION("warmelt-first.melt:4051:/ clear");
+                /*clear*/ /*_.IFELSE___V33*/ curfptr[31] = 0 ;}
+               ;
+               }
+              ;
+              /*_.LET___V28*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[30];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-first.melt:4045:/ clear");
+              /*clear*/ /*_.YR1__V29*/ curfptr[28] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4045:/ clear");
+              /*clear*/ /*_.YR2__V30*/ curfptr[29] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4045:/ clear");
+              /*clear*/ /*_#NR1__L9*/ curfnum[8] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4045:/ clear");
+              /*clear*/ /*_#NR2__L10*/ curfnum[9] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4045:/ clear");
+              /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4045:/ clear");
+              /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+             ;
+             MELT_LOCATION("warmelt-first.melt:4044:/ block");
+             /*block*/{
+              /*_.PROGN___V39*/ curfptr[33] = /*_.LET___V28*/ curfptr[26];;}
+             ;
+             /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V39*/ curfptr[33];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:4042:/ clear");
+             /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;
+             MELT_LOCATION("warmelt-first.melt:4042:/ clear");
+             /*clear*/ /*_.PROGN___V39*/ curfptr[33] = 0 ;}
+            ;
+            }
+           ;
+           /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[24];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:4040:/ clear");
+           /*clear*/ /*_#STRING___L8*/ curfnum[7] = 0 ;
+           MELT_LOCATION("warmelt-first.melt:4040:/ clear");
+           /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;}
+          ;
+          }
+         ;
+         /*_.LET___V21*/ curfptr[14] = /*_.IFELSE___V24*/ curfptr[23];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:4038:/ clear");
+         /*clear*/ /*_.N1__V22*/ curfptr[15] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:4038:/ clear");
+         /*clear*/ /*_.N2__V23*/ curfptr[16] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:4038:/ clear");
+         /*clear*/ /*_#STRING___L7*/ curfnum[6] = 0 ;
+         MELT_LOCATION("warmelt-first.melt:4038:/ clear");
+         /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+        ;
+        /*_.IFELSE___V20*/ curfptr[17] = /*_.LET___V21*/ curfptr[14];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4037:/ clear");
+        /*clear*/ /*_.LET___V21*/ curfptr[14] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-first.melt:4037:/ cond.else");
+      
+       MELT_LOCATION("warmelt-first.melt:4037:/ block");
+       /*block*/{
+        /*_#IS_A__L13*/ curfnum[11] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
+        MELT_LOCATION("warmelt-first.melt:4061:/ cond");
+        /*cond*/ if (/*_#IS_A__L13*/ curfnum[11]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:4061:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:4061:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-first.melt:4062:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-first.melt:4062:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V42*/ curfptr[31] = slot; };
+           ;
+           MELT_LOCATION("warmelt-first.melt:4063:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.N2__V43*/ curfptr[28] = slot; };
+           ;
+           /*_#STRING___L14*/ curfnum[8] = 
+            melt_string_less((melt_ptr_t)(/*_.N1__V42*/ curfptr[31]), (melt_ptr_t)(/*_.N2__V43*/ curfptr[28]));;
+           MELT_LOCATION("warmelt-first.melt:4065:/ cond");
+           /*cond*/ if (/*_#STRING___L14*/ curfnum[8]) /*then*/ {
+           MELT_LOCATION("warmelt-first.melt:4065:/ cond.then");
+           MELT_LOCATION("warmelt-first.melt:4065:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-first.melt:4066:/ block");
+             /*block*/{
+              /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+              MELT_LOCATION("warmelt-first.melt:4066:/ finalreturn");
+              ;
+              /*finalret*/ goto labend_rout ;}
+             ;
+             /*_.IFELSE___V44*/ curfptr[29] = /*_.RETURN___V45*/ curfptr[30];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:4065:/ clear");
+             /*clear*/ /*_.RETURN___V45*/ curfptr[30] = 0 ;}
+            ;
+           } else {MELT_LOCATION("warmelt-first.melt:4065:/ cond.else");
+           
+            MELT_LOCATION("warmelt-first.melt:4065:/ block");
+            /*block*/{
+             /*_#STRING___L15*/ curfnum[9] = 
+              melt_string_less((melt_ptr_t)(/*_.N2__V43*/ curfptr[28]), (melt_ptr_t)(/*_.N1__V42*/ curfptr[31]));;
+             MELT_LOCATION("warmelt-first.melt:4067:/ cond");
+             /*cond*/ if (/*_#STRING___L15*/ curfnum[9]) /*then*/ {
+             MELT_LOCATION("warmelt-first.melt:4067:/ cond.then");
+             MELT_LOCATION("warmelt-first.melt:4067:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-first.melt:4068:/ block");
+               /*block*/{
+                /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+                MELT_LOCATION("warmelt-first.melt:4068:/ finalreturn");
+                ;
+                /*finalret*/ goto labend_rout ;}
+               ;
+               /*_.IFELSE___V46*/ curfptr[26] = /*_.RETURN___V47*/ curfptr[33];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-first.melt:4067:/ clear");
+               /*clear*/ /*_.RETURN___V47*/ curfptr[33] = 0 ;}
+              ;
+             } else {MELT_LOCATION("warmelt-first.melt:4067:/ cond.else");
+             
+              MELT_LOCATION("warmelt-first.melt:4067:/ block");
+              /*block*/{
+               /*_#I__L16*/ curfnum[10] = 
+                ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));;
+               MELT_LOCATION("warmelt-first.melt:4069:/ cond");
+               /*cond*/ if (/*_#I__L16*/ curfnum[10]) /*then*/ {
+               MELT_LOCATION("warmelt-first.melt:4069:/ cond.then");
+               MELT_LOCATION("warmelt-first.melt:4069:/ block");
+                /*block*/{
+                 MELT_LOCATION("warmelt-first.melt:4070:/ block");
+                 /*block*/{
+                  /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+                  MELT_LOCATION("warmelt-first.melt:4070:/ finalreturn");
+                  ;
+                  /*finalret*/ goto labend_rout ;}
+                 ;
+                 /*_.IFELSE___V48*/ curfptr[24] = /*_.RETURN___V49*/ curfptr[15];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-first.melt:4069:/ clear");
+                 /*clear*/ /*_.RETURN___V49*/ curfptr[15] = 0 ;}
+                ;
+               } else {MELT_LOCATION("warmelt-first.melt:4069:/ cond.else");
+               
+                MELT_LOCATION("warmelt-first.melt:4069:/ block");
+                /*block*/{
+                 /*_#I__L17*/ curfnum[7] = 
+                  ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));;
+                 MELT_LOCATION("warmelt-first.melt:4071:/ cond");
+                 /*cond*/ if (/*_#I__L17*/ curfnum[7]) /*then*/ {
+                 MELT_LOCATION("warmelt-first.melt:4071:/ cond.then");
+                 MELT_LOCATION("warmelt-first.melt:4071:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-first.melt:4072:/ block");
+                   /*block*/{
+                    /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+                    MELT_LOCATION("warmelt-first.melt:4072:/ finalreturn");
+                    ;
+                    /*finalret*/ goto labend_rout ;}
+                   ;
+                   /*_.IFELSE___V50*/ curfptr[16] = /*_.RETURN___V51*/ curfptr[23];;
+                   /*epilog*/
+                   MELT_LOCATION("warmelt-first.melt:4071:/ clear");
+                   /*clear*/ /*_.RETURN___V51*/ curfptr[23] = 0 ;}
+                  ;
+                 } else {MELT_LOCATION("warmelt-first.melt:4071:/ cond.else");
+                 
+                  MELT_LOCATION("warmelt-first.melt:4071:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-first.melt:4074:/ block");
+                   /*block*/{
+                    /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
+                    MELT_LOCATION("warmelt-first.melt:4074:/ finalreturn");
+                    ;
+                    /*finalret*/ goto labend_rout ;}
+                   ;
+                   MELT_LOCATION("warmelt-first.melt:4073:/ block");
+                   /*block*/{
+                    /*_.PROGN___V53*/ curfptr[30] = /*_.RETURN___V52*/ curfptr[14];;}
+                   ;
+                   /*_.IFELSE___V50*/ curfptr[16] = /*_.PROGN___V53*/ curfptr[30];;
+                   /*epilog*/
+                   MELT_LOCATION("warmelt-first.melt:4071:/ clear");
+                   /*clear*/ /*_.RETURN___V52*/ curfptr[14] = 0 ;
+                   MELT_LOCATION("warmelt-first.melt:4071:/ clear");
+                   /*clear*/ /*_.PROGN___V53*/ curfptr[30] = 0 ;}
+                  ;
+                  }
+                 ;
+                 /*_.IFELSE___V48*/ curfptr[24] = /*_.IFELSE___V50*/ curfptr[16];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-first.melt:4069:/ clear");
+                 /*clear*/ /*_#I__L17*/ curfnum[7] = 0 ;
+                 MELT_LOCATION("warmelt-first.melt:4069:/ clear");
+                 /*clear*/ /*_.IFELSE___V50*/ curfptr[16] = 0 ;}
+                ;
+                }
+               ;
+               /*_.IFELSE___V46*/ curfptr[26] = /*_.IFELSE___V48*/ curfptr[24];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-first.melt:4067:/ clear");
+               /*clear*/ /*_#I__L16*/ curfnum[10] = 0 ;
+               MELT_LOCATION("warmelt-first.melt:4067:/ clear");
+               /*clear*/ /*_.IFELSE___V48*/ curfptr[24] = 0 ;}
+              ;
+              }
+             ;
+             /*_.IFELSE___V44*/ curfptr[29] = /*_.IFELSE___V46*/ curfptr[26];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:4065:/ clear");
+             /*clear*/ /*_#STRING___L15*/ curfnum[9] = 0 ;
+             MELT_LOCATION("warmelt-first.melt:4065:/ clear");
+             /*clear*/ /*_.IFELSE___V46*/ curfptr[26] = 0 ;}
+            ;
+            }
+           ;
+           /*_.LET___V41*/ curfptr[37] = /*_.IFELSE___V44*/ curfptr[29];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-first.melt:4062:/ clear");
+           /*clear*/ /*_.N1__V42*/ curfptr[31] = 0 ;
+           MELT_LOCATION("warmelt-first.melt:4062:/ clear");
+           /*clear*/ /*_.N2__V43*/ curfptr[28] = 0 ;
+           MELT_LOCATION("warmelt-first.melt:4062:/ clear");
+           /*clear*/ /*_#STRING___L14*/ curfnum[8] = 0 ;
+           MELT_LOCATION("warmelt-first.melt:4062:/ clear");
+           /*clear*/ /*_.IFELSE___V44*/ curfptr[29] = 0 ;}
+          ;
+          /*_.IFELSE___V40*/ curfptr[35] = /*_.LET___V41*/ curfptr[37];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:4061:/ clear");
+          /*clear*/ /*_.LET___V41*/ curfptr[37] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-first.melt:4061:/ cond.else");
+        
+         MELT_LOCATION("warmelt-first.melt:4061:/ block");
+         /*block*/{
+          /*_#IS_A__L18*/ curfnum[6] = 
+           melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])));;
+          MELT_LOCATION("warmelt-first.melt:4077:/ cond");
+          /*cond*/ if (/*_#IS_A__L18*/ curfnum[6]) /*then*/ {
+          MELT_LOCATION("warmelt-first.melt:4077:/ cond.then");
+          MELT_LOCATION("warmelt-first.melt:4077:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-first.melt:4078:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-first.melt:4078:/ getslot");
+             { melt_ptr_t slot=0;
+              melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 0, "BINDER");/*_.BSY1__V56*/ curfptr[23] = slot; };
+             ;
+             MELT_LOCATION("warmelt-first.melt:4079:/ getslot");
+             { melt_ptr_t slot=0;
+              melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 0, "BINDER");/*_.BSY2__V57*/ curfptr[14] = slot; };
+             ;
+             MELT_LOCATION("warmelt-first.melt:4080:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[6];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg");
+              argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BXRK1__V3*/ curfptr[2];
+              MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg");
+              argtab[1].bp_aptr = (melt_ptr_t*) &/*_.BSY2__V57*/ curfptr[14];
+              MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg");
+              argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BXRK2__V5*/ curfptr[4];
+              MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg");
+              argtab[3].bp_aptr = (melt_ptr_t*) &/*_.VLESS__V6*/ curfptr[5];
+              MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg");
+              argtab[4].bp_aptr = (melt_ptr_t*) &/*_.VEQ__V7*/ curfptr[6];
+              MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg");
+              argtab[5].bp_aptr = (melt_ptr_t*) &/*_.VGREAT__V8*/ curfptr[7];
+              /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BSY1__V56*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             MELT_LOCATION("warmelt-first.melt:4080:/ block");
+             /*block*/{
+              /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30];;
+              MELT_LOCATION("warmelt-first.melt:4080:/ finalreturn");
+              ;
+              /*finalret*/ goto labend_rout ;}
+             ;
+             /*_.LET___V55*/ curfptr[15] = /*_.RETURN___V59*/ curfptr[16];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-first.melt:4078:/ clear");
+             /*clear*/ /*_.BSY1__V56*/ curfptr[23] = 0 ;
+             MELT_LOCATION("warmelt-first.melt:4078:/ clear");
+             /*clear*/ /*_.BSY2__V57*/ curfptr[14] = 0 ;
+             MELT_LOCATION("warmelt-first.melt:4078:/ clear");
+             /*clear*/ /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30] = 0 ;
+             MELT_LOCATION("warmelt-first.melt:4078:/ clear");
+             /*clear*/ /*_.RETURN___V59*/ curfptr[16] = 0 ;}
+            ;
+            /*_.IFELSE___V54*/ curfptr[33] = /*_.LET___V55*/ curfptr[15];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-first.melt:4077:/ clear");
+            /*clear*/ /*_.LET___V55*/ curfptr[15] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-first.melt:4077:/ cond.else");
+          
+           MELT_LOCATION("warmelt-first.melt:4077:/ block");
+           /*block*/{
+            /*_#IS_STRING__L19*/ curfnum[7] = 
+             (melt_magic_discr((melt_ptr_t)(/*_.X1__V2*/ curfptr[1])) == OBMAG_STRING);;
+            MELT_LOCATION("warmelt-first.melt:4081:/ cond");
+            /*cond*/ if (/*_#IS_STRING__L19*/ curfnum[7]) /*then*/ {
+            MELT_LOCATION("warmelt-first.melt:4081:/ cond.then");
+            MELT_LOCATION("warmelt-first.melt:4081:/ block");
+             /*block*/{
+              /*_#STRING___L20*/ curfnum[10] = 
+               melt_string_less((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)(/*_.X2__V4*/ curfptr[3]));;
+              MELT_LOCATION("warmelt-first.melt:4082:/ cond");
+              /*cond*/ if (/*_#STRING___L20*/ curfnum[10]) /*then*/ {
+              MELT_LOCATION("warmelt-first.melt:4082:/ cond.then");
+              MELT_LOCATION("warmelt-first.melt:4082:/ block");
+               /*block*/{
+                MELT_LOCATION("warmelt-first.melt:4083:/ block");
+                /*block*/{
+                 /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+                 MELT_LOCATION("warmelt-first.melt:4083:/ finalreturn");
+                 ;
+                 /*finalret*/ goto labend_rout ;}
+                ;
+                /*_.IFELSE___V61*/ curfptr[26] = /*_.RETURN___V62*/ curfptr[31];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-first.melt:4082:/ clear");
+                /*clear*/ /*_.RETURN___V62*/ curfptr[31] = 0 ;}
+               ;
+              } else {MELT_LOCATION("warmelt-first.melt:4082:/ cond.else");
+              
+               MELT_LOCATION("warmelt-first.melt:4082:/ block");
+               /*block*/{
+                /*_#STRING___L21*/ curfnum[9] = 
+                 melt_string_less((melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), (melt_ptr_t)(/*_.X1__V2*/ curfptr[1]));;
+                MELT_LOCATION("warmelt-first.melt:4084:/ cond");
+                /*cond*/ if (/*_#STRING___L21*/ curfnum[9]) /*then*/ {
+                MELT_LOCATION("warmelt-first.melt:4084:/ cond.then");
+                MELT_LOCATION("warmelt-first.melt:4084:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-first.melt:4085:/ block");
+                  /*block*/{
+                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+                   MELT_LOCATION("warmelt-first.melt:4085:/ finalreturn");
+                   ;
+                   /*finalret*/ goto labend_rout ;}
+                  ;
+                  /*_.IFELSE___V63*/ curfptr[28] = /*_.RETURN___V64*/ curfptr[29];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-first.melt:4084:/ clear");
+                  /*clear*/ /*_.RETURN___V64*/ curfptr[29] = 0 ;}
+                 ;
+                } else {MELT_LOCATION("warmelt-first.melt:4084:/ cond.else");
+                
+                 MELT_LOCATION("warmelt-first.melt:4084:/ block");
+                 /*block*/{
+                  /*_#I__L22*/ curfnum[8] = 
+                   ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));;
+                  MELT_LOCATION("warmelt-first.melt:4086:/ cond");
+                  /*cond*/ if (/*_#I__L22*/ curfnum[8]) /*then*/ {
+                  MELT_LOCATION("warmelt-first.melt:4086:/ cond.then");
+                  MELT_LOCATION("warmelt-first.melt:4086:/ block");
+                   /*block*/{
+                    MELT_LOCATION("warmelt-first.melt:4087:/ block");
+                    /*block*/{
+                     /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+                     MELT_LOCATION("warmelt-first.melt:4087:/ finalreturn");
+                     ;
+                     /*finalret*/ goto labend_rout ;}
+                    ;
+                    /*_.IFELSE___V65*/ curfptr[37] = /*_.RETURN___V66*/ curfptr[23];;
+                    /*epilog*/
+                    MELT_LOCATION("warmelt-first.melt:4086:/ clear");
+                    /*clear*/ /*_.RETURN___V66*/ curfptr[23] = 0 ;}
+                   ;
+                  } else {MELT_LOCATION("warmelt-first.melt:4086:/ cond.else");
+                  
+                   MELT_LOCATION("warmelt-first.melt:4086:/ block");
+                   /*block*/{
+                    /*_#I__L23*/ curfnum[22] = 
+                     ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));;
+                    MELT_LOCATION("warmelt-first.melt:4088:/ cond");
+                    /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ {
+                    MELT_LOCATION("warmelt-first.melt:4088:/ cond.then");
+                    MELT_LOCATION("warmelt-first.melt:4088:/ block");
+                     /*block*/{
+                      MELT_LOCATION("warmelt-first.melt:4089:/ block");
+                      /*block*/{
+                       /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+                       MELT_LOCATION("warmelt-first.melt:4089:/ finalreturn");
+                       ;
+                       /*finalret*/ goto labend_rout ;}
+                      ;
+                      /*_.IFELSE___V67*/ curfptr[14] = /*_.RETURN___V68*/ curfptr[30];;
+                      /*epilog*/
+                      MELT_LOCATION("warmelt-first.melt:4088:/ clear");
+                      /*clear*/ /*_.RETURN___V68*/ curfptr[30] = 0 ;}
+                     ;
+                    } else {MELT_LOCATION("warmelt-first.melt:4088:/ cond.else");
+                    
+                     MELT_LOCATION("warmelt-first.melt:4088:/ block");
+                     /*block*/{
+                      MELT_LOCATION("warmelt-first.melt:4091:/ block");
+                      /*block*/{
+                       /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
+                       MELT_LOCATION("warmelt-first.melt:4091:/ finalreturn");
+                       ;
+                       /*finalret*/ goto labend_rout ;}
+                      ;
+                      MELT_LOCATION("warmelt-first.melt:4090:/ block");
+                      /*block*/{
+                       /*_.PROGN___V70*/ curfptr[15] = /*_.RETURN___V69*/ curfptr[16];;}
+                      ;
+                      /*_.IFELSE___V67*/ curfptr[14] = /*_.PROGN___V70*/ curfptr[15];;
+                      /*epilog*/
+                      MELT_LOCATION("warmelt-first.melt:4088:/ clear");
+                      /*clear*/ /*_.RETURN___V69*/ curfptr[16] = 0 ;
+                      MELT_LOCATION("warmelt-first.melt:4088:/ clear");
+                      /*clear*/ /*_.PROGN___V70*/ curfptr[15] = 0 ;}
+                     ;
+                     }
+                    ;
+                    /*_.IFELSE___V65*/ curfptr[37] = /*_.IFELSE___V67*/ curfptr[14];;
+                    /*epilog*/
+                    MELT_LOCATION("warmelt-first.melt:4086:/ clear");
+                    /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
+                    MELT_LOCATION("warmelt-first.melt:4086:/ clear");
+                    /*clear*/ /*_.IFELSE___V67*/ curfptr[14] = 0 ;}
+                   ;
+                   }
+                  ;
+                  /*_.IFELSE___V63*/ curfptr[28] = /*_.IFELSE___V65*/ curfptr[37];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-first.melt:4084:/ clear");
+                  /*clear*/ /*_#I__L22*/ curfnum[8] = 0 ;
+                  MELT_LOCATION("warmelt-first.melt:4084:/ clear");
+                  /*clear*/ /*_.IFELSE___V65*/ curfptr[37] = 0 ;}
+                 ;
+                 }
+                ;
+                /*_.IFELSE___V61*/ curfptr[26] = /*_.IFELSE___V63*/ curfptr[28];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-first.melt:4082:/ clear");
+                /*clear*/ /*_#STRING___L21*/ curfnum[9] = 0 ;
+                MELT_LOCATION("warmelt-first.melt:4082:/ clear");
+                /*clear*/ /*_.IFELSE___V63*/ curfptr[28] = 0 ;}
+               ;
+               }
+              ;
+              /*_.IFELSE___V60*/ curfptr[24] = /*_.IFELSE___V61*/ curfptr[26];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-first.melt:4081:/ clear");
+              /*clear*/ /*_#STRING___L20*/ curfnum[10] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4081:/ clear");
+              /*clear*/ /*_.IFELSE___V61*/ curfptr[26] = 0 ;}
+             ;
+            } else {MELT_LOCATION("warmelt-first.melt:4081:/ cond.else");
+            
+             MELT_LOCATION("warmelt-first.melt:4081:/ block");
+             /*block*/{
+              /*_#I__L24*/ curfnum[22] = 
+               ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));;
+              MELT_LOCATION("warmelt-first.melt:4092:/ cond");
+              /*cond*/ if (/*_#I__L24*/ curfnum[22]) /*then*/ {
+              MELT_LOCATION("warmelt-first.melt:4092:/ cond.then");
+              MELT_LOCATION("warmelt-first.melt:4092:/ block");
+               /*block*/{
+                MELT_LOCATION("warmelt-first.melt:4093:/ block");
+                /*block*/{
+                 /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
+                 MELT_LOCATION("warmelt-first.melt:4093:/ finalreturn");
+                 ;
+                 /*finalret*/ goto labend_rout ;}
+                ;
+                /*_.IFELSE___V71*/ curfptr[31] = /*_.RETURN___V72*/ curfptr[29];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-first.melt:4092:/ clear");
+                /*clear*/ /*_.RETURN___V72*/ curfptr[29] = 0 ;}
+               ;
+              } else {MELT_LOCATION("warmelt-first.melt:4092:/ cond.else");
+              
+               MELT_LOCATION("warmelt-first.melt:4092:/ block");
+               /*block*/{
+                /*_#I__L25*/ curfnum[8] = 
+                 ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));;
+                MELT_LOCATION("warmelt-first.melt:4094:/ cond");
+                /*cond*/ if (/*_#I__L25*/ curfnum[8]) /*then*/ {
+                MELT_LOCATION("warmelt-first.melt:4094:/ cond.then");
+                MELT_LOCATION("warmelt-first.melt:4094:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-first.melt:4095:/ block");
+                  /*block*/{
+                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
+                   MELT_LOCATION("warmelt-first.melt:4095:/ finalreturn");
+                   ;
+                   /*finalret*/ goto labend_rout ;}
+                  ;
+                  /*_.IFELSE___V73*/ curfptr[23] = /*_.RETURN___V74*/ curfptr[30];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-first.melt:4094:/ clear");
+                  /*clear*/ /*_.RETURN___V74*/ curfptr[30] = 0 ;}
+                 ;
+                } else {MELT_LOCATION("warmelt-first.melt:4094:/ cond.else");
+                
+                 MELT_LOCATION("warmelt-first.melt:4094:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-first.melt:4097:/ block");
+                  /*block*/{
+                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
+                   MELT_LOCATION("warmelt-first.melt:4097:/ finalreturn");
+                   ;
+                   /*finalret*/ goto labend_rout ;}
+                  ;
+                  MELT_LOCATION("warmelt-first.melt:4096:/ block");
+                  /*block*/{
+                   /*_.PROGN___V76*/ curfptr[15] = /*_.RETURN___V75*/ curfptr[16];;}
+                  ;
+                  /*_.IFELSE___V73*/ curfptr[23] = /*_.PROGN___V76*/ curfptr[15];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-first.melt:4094:/ clear");
+                  /*clear*/ /*_.RETURN___V75*/ curfptr[16] = 0 ;
+                  MELT_LOCATION("warmelt-first.melt:4094:/ clear");
+                  /*clear*/ /*_.PROGN___V76*/ curfptr[15] = 0 ;}
+                 ;
+                 }
+                ;
+                /*_.IFELSE___V71*/ curfptr[31] = /*_.IFELSE___V73*/ curfptr[23];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-first.melt:4092:/ clear");
+                /*clear*/ /*_#I__L25*/ curfnum[8] = 0 ;
+                MELT_LOCATION("warmelt-first.melt:4092:/ clear");
+                /*clear*/ /*_.IFELSE___V73*/ curfptr[23] = 0 ;}
+               ;
+               }
+              ;
+              /*_.IFELSE___V60*/ curfptr[24] = /*_.IFELSE___V71*/ curfptr[31];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-first.melt:4081:/ clear");
+              /*clear*/ /*_#I__L24*/ curfnum[22] = 0 ;
+              MELT_LOCATION("warmelt-first.melt:4081:/ clear");
+              /*clear*/ /*_.IFELSE___V71*/ curfptr[31] = 0 ;}
+             ;
+             }
+            ;
+            /*_.IFELSE___V54*/ curfptr[33] = /*_.IFELSE___V60*/ curfptr[24];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-first.melt:4077:/ clear");
+            /*clear*/ /*_#IS_STRING__L19*/ curfnum[7] = 0 ;
+            MELT_LOCATION("warmelt-first.melt:4077:/ clear");
+            /*clear*/ /*_.IFELSE___V60*/ curfptr[24] = 0 ;}
+           ;
+           }
+          ;
+          /*_.IFELSE___V40*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[33];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-first.melt:4061:/ clear");
+          /*clear*/ /*_#IS_A__L18*/ curfnum[6] = 0 ;
+          MELT_LOCATION("warmelt-first.melt:4061:/ clear");
+          /*clear*/ /*_.IFELSE___V54*/ curfptr[33] = 0 ;}
+         ;
+         }
+        ;
+        /*_.IFELSE___V20*/ curfptr[17] = /*_.IFELSE___V40*/ curfptr[35];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4037:/ clear");
+        /*clear*/ /*_#IS_A__L13*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:4037:/ clear");
+        /*clear*/ /*_.IFELSE___V40*/ curfptr[35] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V20*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4031:/ clear");
+      /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4031:/ clear");
+      /*clear*/ /*_.IFELSE___V20*/ curfptr[17] = 0 ;}
+     ;
+     }
+    ;
+    /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4026:/ clear");
+    /*clear*/ /*_.X1DIS__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4026:/ clear");
+    /*clear*/ /*_.X2DIS__V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4026:/ clear");
+    /*clear*/ /*_#RK1__L2*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4026:/ clear");
+    /*clear*/ /*_#RK2__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4026:/ clear");
+    /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4026:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   ;
+   /*_.IFELSE___V9*/ curfptr[8] = /*_.LET___V11*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4024:/ clear");
+   /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4023:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V9*/ curfptr[8];;
+  MELT_LOCATION("warmelt-first.melt:4023:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4023:/ clear");
+ /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4023:/ clear");
+ /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPARE_OBJ_RANKED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_77_warmelt_first_COMPARE_OBJ_RANKED*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_MAPOBJECT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4103:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4103:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4103:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4103:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4104:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4104:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4104:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4104:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4104:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4104:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4104:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4104)?(4104):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4104:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4104:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4104:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4105:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4106:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4106:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4106:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4106:/ cond.else");
+  
+   /*_.OUT__V7*/ curfptr[6] = NULL;;
+   }
+  ;
+  /*_#MAPCOUNT__L3*/ curfnum[1] = 
+   (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4109:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4109:/ block");
+   /*block*/{
+    /*_#IS_OUT__L4*/ curfnum[3] = 
+      (melt_is_out ((melt_ptr_t) /*_.OUT__V7*/ curfptr[6])) ;;
+    MELT_LOCATION("warmelt-first.melt:4109:/ cond");
+    /*cond*/ if (/*_#IS_OUT__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4109:/ cond.then");
+    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:4109:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4109:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4109:/ locexp");
+       melt_assert_failed(( "check out at start"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4109)?(4109):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4109:/ clear");
+    /*clear*/ /*_#IS_OUT__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4109:/ clear");
+    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4109:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#__L5*/ curfnum[3] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:4110:/ cond");
+  /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4110:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4110:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4111:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " {"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4110:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:4110:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4113:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4114:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4114:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4115:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "{"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4112:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4110:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4116:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 
+   (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4117:/ locexp");
+  meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#MAPOBJECT_COUNT__L6*/ curfnum[5]));}
+  ;
+  /*_#I__L7*/ curfnum[6] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
+  MELT_LOCATION("warmelt-first.melt:4118:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[8] = slot; };
+  ;
+  /*_#GET_INT__L8*/ curfnum[7] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[8])));;
+  /*_#NEED_DBGLIM__L9*/ curfnum[8] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#I__L7*/ curfnum[6])>=0 && (/*_#I__L7*/ curfnum[6]) < (/*_#GET_INT__L8*/ curfnum[7]));;
+  MELT_LOCATION("warmelt-first.melt:4118:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L9*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4118:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4118:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4119:/ block");
+    /*block*/{
+     /*_#I__L10*/ curfnum[9] = 
+      ((2) + (/*_#DEPTH__L1*/ curfnum[0]));;
+     /*_.NEXTDEPTHBOX__V12*/ curfptr[11] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L10*/ curfnum[9])));;
+     /*_.COUNTBOX__V13*/ curfptr[12] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (0)));;
+     /*_.BOXEDONE__V14*/ curfptr[13] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (1)));;
+     /*_.BOXEDZERO__V15*/ curfptr[14] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (0)));;
+     /*_.BOXEDMINUSONE__V16*/ curfptr[15] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (-1)));;
+     /*_.TUPL__V17*/ curfptr[16] = 
+      (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#MAPCOUNT__L3*/ curfnum[1])));;
+     MELT_LOCATION("warmelt-first.melt:4130:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4130:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
+      ;
+      MELT_LOCATION("warmelt-first.melt:4130:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V13*/ curfptr[12]);
+      ;
+      MELT_LOCATION("warmelt-first.melt:4130:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16]);
+      ;
+      /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4128:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4128:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17];
+      /*_.MAPOBJECT_EVERY__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-first.melt:4139:/ cppif.then");
+     MELT_LOCATION("warmelt-first.melt:4139:/ block");
+      /*block*/{
+       /*_#IS_MULTIPLE__L11*/ curfnum[10] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16])) == OBMAG_MULTIPLE);;
+       MELT_LOCATION("warmelt-first.melt:4139:/ cond");
+       /*cond*/ if (/*_#IS_MULTIPLE__L11*/ curfnum[10]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:4139:/ cond.then");
+       /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-first.melt:4139:/ cond.else");
+       
+        MELT_LOCATION("warmelt-first.melt:4139:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:4139:/ locexp");
+          melt_assert_failed(( "check tupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4139)?(4139):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V21*/ curfptr[20] = /*_.IFELSE___V22*/ curfptr[21];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4139:/ clear");
+       /*clear*/ /*_#IS_MULTIPLE__L11*/ curfnum[10] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4139:/ clear");
+       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-first.melt:4139:/ cppif.else");
+     /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-first.melt:4141:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4144:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4144:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3));
+       ;
+       MELT_LOCATION("warmelt-first.melt:4144:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V16*/ curfptr[15]);
+       ;
+       MELT_LOCATION("warmelt-first.melt:4144:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V15*/ curfptr[14]);
+       ;
+       MELT_LOCATION("warmelt-first.melt:4144:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V14*/ curfptr[13]);
+       ;
+       /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;}
+      ;
+      /*_.SORTUPL__V26*/ curfptr[25] = 
+       meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16]), (melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])));;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-first.melt:4157:/ cppif.then");
+      MELT_LOCATION("warmelt-first.melt:4157:/ block");
+       /*block*/{
+        /*_#IS_MULTIPLE__L12*/ curfnum[10] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V26*/ curfptr[25])) == OBMAG_MULTIPLE);;
+        MELT_LOCATION("warmelt-first.melt:4157:/ cond");
+        /*cond*/ if (/*_#IS_MULTIPLE__L12*/ curfnum[10]) /*then*/ {
+        MELT_LOCATION("warmelt-first.melt:4157:/ cond.then");
+        /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-first.melt:4157:/ cond.else");
+        
+         MELT_LOCATION("warmelt-first.melt:4157:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-first.melt:4157:/ locexp");
+           melt_assert_failed(( "check sortupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4157)?(4157):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4157:/ clear");
+        /*clear*/ /*_#IS_MULTIPLE__L12*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-first.melt:4157:/ clear");
+        /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-first.melt:4157:/ cppif.else");
+      /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-first.melt:4160:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4160:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (3));
+       ;
+       MELT_LOCATION("warmelt-first.melt:4160:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V12*/ curfptr[11]);
+       ;
+       MELT_LOCATION("warmelt-first.melt:4160:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]);
+       ;
+       MELT_LOCATION("warmelt-first.melt:4160:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]);
+       ;
+       /*_.LAMBDA___V29*/ curfptr[27] = /*_.LAMBDA___V30*/ curfptr[29];;}
+      ;
+      MELT_LOCATION("warmelt-first.melt:4158:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-first.melt:4158:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[27];
+       /*_.MULTIPLE_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.SORTUPL__V26*/ curfptr[25]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.LET___V23*/ curfptr[21] = /*_.MULTIPLE_EVERY__V31*/ curfptr[30];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4141:/ clear");
+      /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4141:/ clear");
+      /*clear*/ /*_.SORTUPL__V26*/ curfptr[25] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4141:/ clear");
+      /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4141:/ clear");
+      /*clear*/ /*_.LAMBDA___V29*/ curfptr[27] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4141:/ clear");
+      /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4178:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "}"));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.NEXTDEPTHBOX__V12*/ curfptr[11] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.COUNTBOX__V13*/ curfptr[12] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.BOXEDONE__V14*/ curfptr[13] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.BOXEDZERO__V15*/ curfptr[14] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.BOXEDMINUSONE__V16*/ curfptr[15] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.TUPL__V17*/ curfptr[16] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.MAPOBJECT_EVERY__V20*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4119:/ clear");
+     /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_#MAPCOUNT__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4105:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L9*/ curfnum[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4103:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_MAPOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_79_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4130:/ getarg");
+ /*_.AT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4130:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4130:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4131:/ block");
+ /*block*/{
+  /*_#CURCOUNT__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
+  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));;
+  /*_.ENT__V5*/ curfptr[4] = 
+   (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.AT__V2*/ curfptr[1]),  (melt_ptr_t)(/*_.VA__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4136:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));}
+  ;
+  /*_#I__L2*/ curfnum[1] = 
+   ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4137:/ locexp");
+  melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4131:/ clear");
+  /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4131:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4131:/ clear");
+  /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4131:/ clear");
+  /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_79_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_80_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4144:/ getarg");
+ /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4144:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4144:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4145:/ block");
+ /*block*/{
+  /*_.E1AT__V5*/ curfptr[4] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));;
+  /*_.E1VA__V6*/ curfptr[5] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));;
+  /*_.E1RK__V7*/ curfptr[6] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));;
+  /*_.E2AT__V8*/ curfptr[7] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));;
+  /*_.E2VA__V9*/ curfptr[8] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));;
+  /*_.E2RK__V10*/ curfptr[9] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));;
+  MELT_LOCATION("warmelt-first.melt:4152:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[6];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6];
+   MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7];
+   MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9];
+   MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg");
+   argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]);
+   /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4145:/ clear");
+  /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4144:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:4144:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4144:/ clear");
+ /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_80_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_81_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4160:/ getarg");
+ /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4160:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4160:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4161:/ block");
+ /*block*/{
+  /*_.ELAT__V3*/ curfptr[2] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));;
+  /*_.ELVA__V4*/ curfptr[3] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (1)));;
+  MELT_LOCATION("warmelt-first.melt:4163:/ block");
+  /*block*/{
+   /*_#NEXTDEPTH__L2*/ curfnum[1] = 
+    (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ curfclos->tabval[0]))));;
+   MELT_LOCATION("warmelt-first.melt:4164:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V5*/ curfptr[4] = slot; };
+   ;
+   /*_#OLDMAXDEPTH__L3*/ curfnum[2] = 
+    (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V5*/ curfptr[4])));;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4167:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4167:/ block");
+    /*block*/{
+     /*_#IS_OUT__L4*/ curfnum[3] = 
+       (melt_is_out ((melt_ptr_t) (/*~OUT*/ curfclos->tabval[2]))) ;;
+     MELT_LOCATION("warmelt-first.melt:4167:/ cond");
+     /*cond*/ if (/*_#IS_OUT__L4*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4167:/ cond.then");
+     /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-first.melt:4167:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4167:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4167:/ locexp");
+        melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4167)?(4167):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4167:/ clear");
+     /*clear*/ /*_#IS_OUT__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4167:/ clear");
+     /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4167:/ cppif.else");
+   /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4168:/ locexp");
+   meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4169:/ locexp");
+   meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( "**"));}
+   ;
+   MELT_LOCATION("warmelt-first.melt:4170:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V8*/ curfptr[6] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4170:/ locexp");
+   melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V8*/ curfptr[6]), (0));}
+   ;
+   MELT_LOCATION("warmelt-first.melt:4171:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4171:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[1]);
+    MELT_LOCATION("warmelt-first.melt:4171:/ apply.arg");
+    argtab[1].bp_long = /*_#NEXTDEPTH__L2*/ curfnum[1];
+    /*_.DBG_OUTOBJECT__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ELAT__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-first.melt:4172:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4172:/ locexp");
+   melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[9]), (/*_#OLDMAXDEPTH__L3*/ curfnum[2]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4173:/ locexp");
+   meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( " =="));}
+   ;
+   /*_#I__L5*/ curfnum[3] = 
+    ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (1));;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4174:/ locexp");
+   meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), (/*_#I__L5*/ curfnum[3]), 64);}
+   ;
+   /*_#I__L6*/ curfnum[5] = 
+    ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (2));;
+   MELT_LOCATION("warmelt-first.melt:4175:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4175:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[1]);
+    MELT_LOCATION("warmelt-first.melt:4175:/ apply.arg");
+    argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
+    /*_.DBG_OUT__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ELVA__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4176:/ locexp");
+   meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( "; "));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_#NEXTDEPTH__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_.DBGI_MAXDEPTH__V5*/ curfptr[4] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_#OLDMAXDEPTH__L3*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_.DBGI_MAXDEPTH__V8*/ curfptr[6] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_.DBG_OUTOBJECT__V9*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_#I__L5*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4163:/ clear");
+   /*clear*/ /*_.DBG_OUT__V11*/ curfptr[10] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4161:/ clear");
+  /*clear*/ /*_.ELAT__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4161:/ clear");
+  /*clear*/ /*_.ELVA__V4*/ curfptr[3] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_81_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4184:/ getarg");
+ /*_.MAPO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4184:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4187:/ block");
+ /*block*/{
+  /*_#MAPCOUNT__L1*/ curfnum[0] = 
+   (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MAPO__V2*/ curfptr[1])));;
+  /*_.COUNTBOX__V4*/ curfptr[3] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (0)));;
+  /*_.BOXEDONE__V5*/ curfptr[4] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (1)));;
+  /*_.BOXEDZERO__V6*/ curfptr[5] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (0)));;
+  /*_.BOXEDMINUSONE__V7*/ curfptr[6] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (-1)));;
+  /*_.TUPL__V8*/ curfptr[7] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])), (/*_#MAPCOUNT__L1*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-first.melt:4198:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4198:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2));
+   ;
+   MELT_LOCATION("warmelt-first.melt:4198:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:4198:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V8*/ curfptr[7]);
+   ;
+   /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4196:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-first.melt:4196:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8];
+   /*_.MAPOBJECT_EVERY__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MAPO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:4208:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4211:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4211:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
+    ;
+    MELT_LOCATION("warmelt-first.melt:4211:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V7*/ curfptr[6]);
+    ;
+    MELT_LOCATION("warmelt-first.melt:4211:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V6*/ curfptr[5]);
+    ;
+    MELT_LOCATION("warmelt-first.melt:4211:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V5*/ curfptr[4]);
+    ;
+    /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
+   ;
+   /*_.SORTUPL__V15*/ curfptr[14] = 
+    meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V8*/ curfptr[7]), (melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4224:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4224:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (0));
+    ;
+    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+   ;
+   MELT_LOCATION("warmelt-first.melt:4224:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+    /*_.MULTIPLE_MAP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SORTUPL__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LET___V12*/ curfptr[11] = /*_.MULTIPLE_MAP__V18*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4208:/ clear");
+   /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4208:/ clear");
+   /*clear*/ /*_.SORTUPL__V15*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4208:/ clear");
+   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4208:/ clear");
+   /*clear*/ /*_.MULTIPLE_MAP__V18*/ curfptr[17] = 0 ;}
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.LET___V12*/ curfptr[11];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_#MAPCOUNT__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.COUNTBOX__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.BOXEDONE__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.BOXEDZERO__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.BOXEDMINUSONE__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.TUPL__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.MAPOBJECT_EVERY__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4187:/ clear");
+  /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4184:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-first.melt:4184:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4184:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_83_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4198:/ getarg");
+ /*_.AT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4198:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4198:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4199:/ block");
+ /*block*/{
+  /*_#CURCOUNT__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
+  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));;
+  /*_.ENT__V5*/ curfptr[4] = 
+   (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.AT__V2*/ curfptr[1]),  (melt_ptr_t)(/*_.VA__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4204:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));}
+  ;
+  /*_#I__L2*/ curfnum[1] = 
+   ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4205:/ locexp");
+  melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4199:/ clear");
+  /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4199:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4199:/ clear");
+  /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4199:/ clear");
+  /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_83_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_84_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4211:/ getarg");
+ /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4211:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4211:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4212:/ block");
+ /*block*/{
+  /*_.E1AT__V5*/ curfptr[4] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));;
+  /*_.E1VA__V6*/ curfptr[5] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));;
+  /*_.E1RK__V7*/ curfptr[6] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));;
+  /*_.E2AT__V8*/ curfptr[7] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));;
+  /*_.E2VA__V9*/ curfptr[8] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));;
+  /*_.E2RK__V10*/ curfptr[9] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));;
+  MELT_LOCATION("warmelt-first.melt:4219:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[6];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6];
+   MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7];
+   MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9];
+   MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg");
+   argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]);
+   /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4212:/ clear");
+  /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4211:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:4211:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4211:/ clear");
+ /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_84_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_85_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4224:/ getarg");
+ /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4224:/ block");
+/*block*/{
+ /*_.MULTIPLE_NTH__V3*/ curfptr[2] = 
+  (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));;
+ MELT_LOCATION("warmelt-first.melt:4224:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_NTH__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-first.melt:4224:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4224:/ clear");
+ /*clear*/ /*_.MULTIPLE_NTH__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_85_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 28
+  void* varptr[28];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<28; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 28;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_MAPSTRING_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4232:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4232:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4232:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4232:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4233:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4233:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4233:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4233:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4233:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4233:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4233:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4233)?(4233):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4233:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4233:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4233:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4234:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4235:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#IX__L3*/ curfnum[1] = 0;;
+  /*_#MAPCOUNT__L4*/ curfnum[3] = 
+   (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.SELF__V2*/ curfptr[1])));;
+  /*_#I__L5*/ curfnum[4] = 
+   ((2) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  /*_.NEXTDEPTHBOX__V8*/ curfptr[7] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L5*/ curfnum[4])));;
+  /*_.COUNTBOX__V9*/ curfptr[8] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));;
+  /*_.BOXEDONE__V10*/ curfptr[9] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (1)));;
+  /*_.BOXEDZERO__V11*/ curfptr[10] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));;
+  /*_.BOXEDMINUSONE__V12*/ curfptr[11] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (-1)));;
+  /*_.TUPL__V13*/ curfptr[12] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MAPCOUNT__L4*/ curfnum[3])));;
+  /*_#__L6*/ curfnum[5] = 
+   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-first.melt:4245:/ cond");
+  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4245:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4245:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4246:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " <("));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4245:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:4245:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4248:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4249:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4249:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4250:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "<("));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4247:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4245:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4251:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4252:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#MAPCOUNT__L4*/ curfnum[3]));}
+  ;
+  /*_#I__L7*/ curfnum[6] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
+  /*_#NEED_DBG__L8*/ curfnum[7] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#I__L7*/ curfnum[6])>=0 && (/*_#I__L7*/ curfnum[6]) <= MELTDBG_MAXDEPTH);;
+  MELT_LOCATION("warmelt-first.melt:4253:/ cond");
+  /*cond*/ if (/*_#NEED_DBG__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4253:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4253:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4258:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4258:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
+     ;
+     MELT_LOCATION("warmelt-first.melt:4258:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V9*/ curfptr[8]);
+     ;
+     MELT_LOCATION("warmelt-first.melt:4258:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V13*/ curfptr[12]);
+     ;
+     /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4256:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4256:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+     /*_.MAPSTRING_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MAPSTRING_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-first.melt:4268:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4271:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4271:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3));
+      ;
+      MELT_LOCATION("warmelt-first.melt:4271:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V12*/ curfptr[11]);
+      ;
+      MELT_LOCATION("warmelt-first.melt:4271:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V11*/ curfptr[10]);
+      ;
+      MELT_LOCATION("warmelt-first.melt:4271:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V10*/ curfptr[9]);
+      ;
+      /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+     ;
+     /*_.SORTUPL__V22*/ curfptr[21] = 
+      meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V13*/ curfptr[12]), (melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-first.melt:4284:/ cppif.then");
+     MELT_LOCATION("warmelt-first.melt:4284:/ block");
+      /*block*/{
+       /*_#IS_MULTIPLE__L9*/ curfnum[8] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V22*/ curfptr[21])) == OBMAG_MULTIPLE);;
+       MELT_LOCATION("warmelt-first.melt:4284:/ cond");
+       /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:4284:/ cond.then");
+       /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-first.melt:4284:/ cond.else");
+       
+        MELT_LOCATION("warmelt-first.melt:4284:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:4284:/ locexp");
+          melt_assert_failed(( "check sortupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4284)?(4284):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4284:/ clear");
+       /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4284:/ clear");
+       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-first.melt:4284:/ cppif.else");
+     /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-first.melt:4287:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4287:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
+      ;
+      MELT_LOCATION("warmelt-first.melt:4287:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V8*/ curfptr[7]);
+      ;
+      MELT_LOCATION("warmelt-first.melt:4287:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]);
+      ;
+      MELT_LOCATION("warmelt-first.melt:4287:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]);
+      ;
+      /*_.LAMBDA___V25*/ curfptr[23] = /*_.LAMBDA___V26*/ curfptr[25];;}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4285:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4285:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[23];
+      /*_.MULTIPLE_EVERY__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.SORTUPL__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.LET___V19*/ curfptr[18] = /*_.MULTIPLE_EVERY__V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4268:/ clear");
+     /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4268:/ clear");
+     /*clear*/ /*_.SORTUPL__V22*/ curfptr[21] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4268:/ clear");
+     /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4268:/ clear");
+     /*clear*/ /*_.LAMBDA___V25*/ curfptr[23] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4268:/ clear");
+     /*clear*/ /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4254:/ block");
+    /*block*/{
+     /*_.PROGN___V28*/ curfptr[19] = /*_.LET___V19*/ curfptr[18];;}
+    ;
+    /*_.IF___V15*/ curfptr[13] = /*_.PROGN___V28*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4253:/ clear");
+    /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4253:/ clear");
+    /*clear*/ /*_.MAPSTRING_EVERY__V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4253:/ clear");
+    /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4253:/ clear");
+    /*clear*/ /*_.PROGN___V28*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4253:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[13] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4301:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " )>"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_#IX__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_#MAPCOUNT__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.NEXTDEPTHBOX__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.COUNTBOX__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.BOXEDONE__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.BOXEDZERO__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.BOXEDMINUSONE__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.TUPL__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_#NEED_DBG__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4234:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[13] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4232:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_MAPSTRING_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_87_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4258:/ getarg");
+ /*_.STR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4258:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4258:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4259:/ block");
+ /*block*/{
+  /*_#CURCOUNT__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
+  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));;
+  /*_.ENT__V5*/ curfptr[4] = 
+   (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STR__V2*/ curfptr[1]),  (melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4264:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));}
+  ;
+  /*_#I__L2*/ curfnum[1] = 
+   ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4265:/ locexp");
+  melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4259:/ clear");
+  /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4259:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4259:/ clear");
+  /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4259:/ clear");
+  /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_87_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_88_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4271:/ getarg");
+ /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4271:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4271:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4272:/ block");
+ /*block*/{
+  /*_.E1AT__V5*/ curfptr[4] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));;
+  /*_.E1VA__V6*/ curfptr[5] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));;
+  /*_.E1RK__V7*/ curfptr[6] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));;
+  /*_.E2AT__V8*/ curfptr[7] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));;
+  /*_.E2VA__V9*/ curfptr[8] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));;
+  /*_.E2RK__V10*/ curfptr[9] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));;
+  MELT_LOCATION("warmelt-first.melt:4279:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[6];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6];
+   MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7];
+   MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9];
+   MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg");
+   argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]);
+   /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4272:/ clear");
+  /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4271:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:4271:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4271:/ clear");
+ /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_88_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_89_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_first_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4287:/ getarg");
+ /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4287:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4287:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4288:/ block");
+ /*block*/{
+  /*_.CURSTR__V4*/ curfptr[3] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));;
+  /*_.CURVAL__V5*/ curfptr[4] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (1)));;
+  /*_#NEXTDEPTH__L2*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ curfclos->tabval[0]))));;
+  /*_#IS_STRING__L3*/ curfnum[2] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURSTR__V4*/ curfptr[3])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-first.melt:4292:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4292:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4292:/ block");
+   /*block*/{
+    /*_#NOTNULL__L5*/ curfnum[4] = 
+     ((/*_.CURVAL__V5*/ curfptr[4]) != NULL);;
+    /*_#IF___L4*/ curfnum[3] = /*_#NOTNULL__L5*/ curfnum[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4292:/ clear");
+    /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4292:/ cond.else");
+  
+   /*_#IF___L4*/ curfnum[3] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:4292:/ cond");
+  /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4292:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4292:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4294:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4295:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), ( "!*"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4296:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4296:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-first.melt:4296:/ apply.arg");
+     argtab[1].bp_long = /*_#NEXTDEPTH__L2*/ curfnum[1];
+     /*_.DBG_OUT__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTR__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4297:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), ( " => "));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4298:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 64);}
+    ;
+    /*_#I__L6*/ curfnum[4] = 
+     ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (2));;
+    MELT_LOCATION("warmelt-first.melt:4299:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4299:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-first.melt:4299:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L6*/ curfnum[4];
+     /*_.DBG_OUT__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVAL__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-first.melt:4293:/ block");
+    /*block*/{
+     /*_.PROGN___V9*/ curfptr[8] = /*_.DBG_OUT__V8*/ curfptr[7];;}
+    ;
+    /*_.IF___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4292:/ clear");
+    /*clear*/ /*_.DBG_OUT__V7*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4292:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4292:/ clear");
+    /*clear*/ /*_.DBG_OUT__V8*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4292:/ clear");
+    /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4292:/ cond.else");
+  
+   /*_.IF___V6*/ curfptr[5] = NULL;;
+   }
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.IF___V6*/ curfptr[5];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4288:/ clear");
+  /*clear*/ /*_.CURSTR__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4288:/ clear");
+  /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4288:/ clear");
+  /*clear*/ /*_#NEXTDEPTH__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4288:/ clear");
+  /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4288:/ clear");
+  /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4288:/ clear");
+  /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4287:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-first.melt:4287:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4287:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_89_warmelt_first_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_ANYOBJECT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4306:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4306:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4306:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4306:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4307:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4307:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4307:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4307:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4307:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4307:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4307:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4307)?(4307):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4307:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4307:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4307:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4308:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4309:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4310:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "|"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4311:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4311:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4312:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L3*/ curfnum[1] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4313:/ locexp");
+  meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OBJ_HASH__L3*/ curfnum[1]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4314:/ block");
+  /*block*/{
+   /*_#ONUM__L4*/ curfnum[3] = 
+    (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+   /*_#OSERIAL__L5*/ curfnum[4] = 
+    (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+   MELT_LOCATION("warmelt-first.melt:4317:/ cond");
+   /*cond*/ if (/*_#ONUM__L4*/ curfnum[3]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4317:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4317:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4319:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4320:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#ONUM__L4*/ curfnum[3]));}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4318:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-first.melt:4321:/ cond");
+   /*cond*/ if (/*_#OSERIAL__L5*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4321:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4321:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4323:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "##"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4324:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OSERIAL__L5*/ curfnum[4]));}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4322:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4314:/ clear");
+   /*clear*/ /*_#ONUM__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4314:/ clear");
+   /*clear*/ /*_#OSERIAL__L5*/ curfnum[4] = 0 ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4326:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "{"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4327:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#GET_INT__L6*/ curfnum[3] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[8])));;
+  /*_#NEED_DBGLIM__L7*/ curfnum[4] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[3]));;
+  MELT_LOCATION("warmelt-first.melt:4327:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4327:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4327:/ block");
+   /*block*/{
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:4328:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L8*/ curfnum[7];
+     MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg");
+     argtab[2].bp_long = 0;
+     MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg");
+     argtab[3].bp_long = 0;
+     /*_.DBGOUT_FIELDS__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V10*/ curfptr[9] = /*_.DBGOUT_FIELDS__V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4327:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4327:/ clear");
+    /*clear*/ /*_.DBGOUT_FIELDS__V11*/ curfptr[10] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4327:/ cond.else");
+  
+   /*_.IF___V10*/ curfptr[9] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4330:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "}"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4308:/ clear");
+  /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4306:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_ANYOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_ANYRECV_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4335:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4335:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4335:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4335:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4336:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4336:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4336:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4336:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4336:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4336:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4336:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4336)?(4336):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4336:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4336:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4336:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4337:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4338:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4339:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " ?."));}
+  ;
+  /*_#IS_A__L3*/ curfnum[1] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:4340:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4340:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4340:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4340:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4340:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4340:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4341:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".? "));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4337:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4337:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4337:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4335:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_ANYRECV_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_ANYOBJECT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4346:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4346:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4346:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4346:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4347:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4347:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4347:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4347:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4347:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4347:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4347:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4347)?(4347):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4347:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4347:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4347:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4348:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4349:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#ONUM__L3*/ curfnum[1] = 
+   (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  /*_#OSERIAL__L4*/ curfnum[3] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4353:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " ^^|"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4354:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4354:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4355:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L5*/ curfnum[4] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4356:/ locexp");
+  meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4357:/ cond");
+  /*cond*/ if (/*_#ONUM__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4357:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4357:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4359:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4360:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#ONUM__L3*/ curfnum[1]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4358:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-first.melt:4361:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4361:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4361:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4363:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4364:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[3]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4362:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
+  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
+  /*clear*/ /*_#ONUM__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
+  /*clear*/ /*_#OSERIAL__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4346:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_ANYOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_NAMEDOBJECT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4370:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4370:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4370:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4370:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4371:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4371:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4371:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4371:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4371:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4371:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4371:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4371)?(4371):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4371:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4371:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4371:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4372:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4373:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4374:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4375:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 0, "PROP_TABLE");/*_.OPROP__V9*/ curfptr[8] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4377:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4377:/ block");
+   /*block*/{
+    /*_#IS_OUT__L3*/ curfnum[1] = 
+      (melt_is_out ((melt_ptr_t) /*_.OUT__V7*/ curfptr[6])) ;;
+    MELT_LOCATION("warmelt-first.melt:4377:/ cond");
+    /*cond*/ if (/*_#IS_OUT__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4377:/ cond.then");
+    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:4377:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4377:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4377:/ locexp");
+       melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4377)?(4377):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4377:/ clear");
+    /*clear*/ /*_#IS_OUT__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4377:/ clear");
+    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4377:/ cppif.else");
+  /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4378:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "`"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4379:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4380:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "|"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4381:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[10] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4381:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[10])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4382:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L4*/ curfnum[1] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4383:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OBJ_HASH__L4*/ curfnum[1]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4384:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#GET_INT__L5*/ curfnum[4] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12])));;
+  /*_#NEED_DBGLIM__L6*/ curfnum[5] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));;
+  MELT_LOCATION("warmelt-first.melt:4384:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4384:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4384:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4385:/ block");
+    /*block*/{
+     /*_#ONUM__L7*/ curfnum[6] = 
+      (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+     /*_#OSERIAL__L8*/ curfnum[7] = 
+      (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+     MELT_LOCATION("warmelt-first.melt:4387:/ cond");
+     /*cond*/ if (/*_#ONUM__L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4387:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4387:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4389:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "#"));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4390:/ locexp");
+       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#ONUM__L7*/ curfnum[6]));}
+       ;
+       MELT_LOCATION("warmelt-first.melt:4388:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-first.melt:4391:/ cond");
+     /*cond*/ if (/*_#OSERIAL__L8*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4391:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4391:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4393:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "##"));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4394:/ locexp");
+       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OSERIAL__L8*/ curfnum[7]));}
+       ;
+       MELT_LOCATION("warmelt-first.melt:4392:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4395:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "{"));}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4396:/ cond");
+     /*cond*/ if (/*_.OPROP__V9*/ curfptr[8]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4396:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4396:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4398:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "prop="));}
+       ;
+       /*_#I__L9*/ curfnum[8] = 
+        ((/*_#DEPTH__L1*/ curfnum[0]) + (3));;
+       MELT_LOCATION("warmelt-first.melt:4399:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[2];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-first.melt:4399:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-first.melt:4399:/ apply.arg");
+        argtab[1].bp_long = /*_#I__L9*/ curfnum[8];
+        /*_.DBG_OUT__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPROP__V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       MELT_LOCATION("warmelt-first.melt:4397:/ block");
+       /*block*/{
+        /*_.PROGN___V16*/ curfptr[15] = /*_.DBG_OUT__V15*/ curfptr[14];;}
+       ;
+       /*_.IF___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4396:/ clear");
+       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4396:/ clear");
+       /*clear*/ /*_.DBG_OUT__V15*/ curfptr[14] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4396:/ clear");
+       /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:4396:/ cond.else");
+     
+      /*_.IF___V14*/ curfptr[13] = NULL;;
+      }
+     ;
+     /*_#I__L10*/ curfnum[8] = 
+      ((/*_#DEPTH__L1*/ curfnum[0]) + (3));;
+     MELT_LOCATION("warmelt-first.melt:4401:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg");
+      argtab[1].bp_long = /*_#I__L10*/ curfnum[8];
+      MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg");
+      argtab[2].bp_long = 2;
+      MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg");
+      argtab[3].bp_long = 0;
+      /*_.DBGOUT_FIELDS__V17*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4402:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "}"));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4385:/ clear");
+     /*clear*/ /*_#ONUM__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4385:/ clear");
+     /*clear*/ /*_#OSERIAL__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4385:/ clear");
+     /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4385:/ clear");
+     /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4385:/ clear");
+     /*clear*/ /*_.DBGOUT_FIELDS__V17*/ curfptr[14] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.OPROP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4370:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_NAMEDOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_NAMEDOBJECT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4409:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4409:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4409:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4409:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4410:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4410:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4410:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4410:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4410:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4410:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4410:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4410)?(4410):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4410:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4410:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4410:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4411:/ block");
+ /*block*/{
+  /*_.DIS__V6*/ curfptr[4] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4412:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4413:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#OSERIAL__L3*/ curfnum[1] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4416:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " ^^`"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4417:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4418:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "|"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4419:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4419:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4420:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L4*/ curfnum[3] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4421:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OBJ_HASH__L4*/ curfnum[3]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4422:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4422:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4422:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4424:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4425:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OSERIAL__L3*/ curfnum[1]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4423:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
+  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
+  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
+  /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
+  /*clear*/ /*_#OSERIAL__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[3] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4409:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_NAMEDOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_SYMBOL_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4431:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4431:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4431:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4431:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4432:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4432:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4432:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4432:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4432:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4432:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4432:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4432)?(4432):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4432:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4432:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4432:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4433:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4433:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4433:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4433:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4433:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4433:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4433:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4433)?(4433):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4433:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4433:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4433:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L4*/ curfnum[1] = 
+  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
+ MELT_LOCATION("warmelt-first.melt:4434:/ cond");
+ /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4434:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4434:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4435:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4435:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4435:/ apply.arg");
+    argtab[1].bp_long = 0;
+    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4434:/ clear");
+   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4434:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4434:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4436:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4436:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4436:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_SYMBOL_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4434:/ clear");
+   /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4431:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4431:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4431:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4431:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4431:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4431:/ clear");
+ /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_SYMBOL_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4439:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4439:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4439:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4439:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4440:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4440:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4440:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4440:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4440:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4440:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4440:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4440)?(4440):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4440:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4440:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4440:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4441:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4441:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4441:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4441:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4441:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4441:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4441:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4441)?(4441):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4441:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4441:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4441:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4442:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:4442:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V8*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4443:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#OSERIAL__L4*/ curfnum[1] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4446:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( " $"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4447:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V9*/ curfptr[8])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4448:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L5*/ curfnum[4] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4449:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4450:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4450:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4450:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4452:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4453:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[1]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4451:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4442:/ clear");
+  /*clear*/ /*_.OUT__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4442:/ clear");
+  /*clear*/ /*_.ONAM__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4442:/ clear");
+  /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4442:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4439:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4439:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_CLASS_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4459:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4459:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4459:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4459:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4460:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4460:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4460:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4460:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4460:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4460:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4460:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4460)?(4460):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4460:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4460:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4460:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4461:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4461:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4461:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4461:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4461:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4461:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4461:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4461)?(4461):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4461:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4461:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4461:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L4*/ curfnum[1] = 
+  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
+ MELT_LOCATION("warmelt-first.melt:4462:/ cond");
+ /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4462:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4462:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4463:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4463:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4463:/ apply.arg");
+    argtab[1].bp_long = 0;
+    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4462:/ clear");
+   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4462:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4462:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4464:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4464:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4464:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4462:/ clear");
+   /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4459:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4459:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4459:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4459:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4459:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4459:/ clear");
+ /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_CLASS_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_KEYWORD_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4468:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4468:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4468:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4468:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4469:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4469:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4469:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4469:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4469:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4469:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4469:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4469)?(4469):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4469:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4469:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4469:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4470:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4470:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4470:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4470:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4470:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4470:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4470:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4470)?(4470):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4470:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4470:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4470:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L4*/ curfnum[1] = 
+  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
+ MELT_LOCATION("warmelt-first.melt:4471:/ cond");
+ /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4471:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4471:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4472:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4472:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4472:/ apply.arg");
+    argtab[1].bp_long = 0;
+    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4471:/ clear");
+   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4471:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4471:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4473:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4473:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4473:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_KEYWORD_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4471:/ clear");
+   /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4468:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4468:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4468:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4468:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4468:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4468:/ clear");
+ /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_KEYWORD_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_KEYWORD_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4476:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4476:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4476:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4476:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4477:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4477:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4477:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4477:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4477:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4477:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4477:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4477)?(4477):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4477:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4477:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4477:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4478:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4478:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4478:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4478:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4478:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4478:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4478:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4478)?(4478):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4478:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4478:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4478:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4479:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:4479:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V8*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4480:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#OSERIAL__L4*/ curfnum[1] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4483:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( " $:"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4484:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V9*/ curfptr[8])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4485:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L5*/ curfnum[4] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4486:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4487:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4487:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4487:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4489:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4490:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[1]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4488:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4479:/ clear");
+  /*clear*/ /*_.OUT__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4479:/ clear");
+  /*clear*/ /*_.ONAM__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4479:/ clear");
+  /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4479:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4476:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4476:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_KEYWORD_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_CLONED_SYMBOL_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4496:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4496:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4496:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4496:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4497:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4497:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4497:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4497:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4497:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4497:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4497:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4497)?(4497):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4497:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4497:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4497:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4498:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4498:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4498:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4498:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4498:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4498:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4498:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4498)?(4498):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4498:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4498:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4498:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L4*/ curfnum[1] = 
+  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
+ MELT_LOCATION("warmelt-first.melt:4499:/ cond");
+ /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4499:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4499:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4500:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4500:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4500:/ apply.arg");
+    argtab[1].bp_long = 0;
+    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4499:/ clear");
+   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4499:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4499:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4501:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4501:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4501:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4499:/ clear");
+   /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4496:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4496:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4496:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4496:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4496:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4496:/ clear");
+ /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_CLONED_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4505:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4505:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4505:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4505:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4506:/ block");
+ /*block*/{
+  /*_.DIS__V4*/ curfptr[3] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4507:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V5*/ curfptr[4] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4508:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 3, "CSYM_URANK");/*_.OURANK__V6*/ curfptr[5] = slot; };
+  ;
+  /*_#LRK__L2*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.OURANK__V6*/ curfptr[5])));;
+  /*_#OSERIAL__L3*/ curfnum[2] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4511:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V7*/ curfptr[6] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4512:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( " $$"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4513:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ curfptr[6])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4514:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( ":"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4515:/ locexp");
+  meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#LRK__L2*/ curfnum[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4516:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L4*/ curfnum[3] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4517:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OBJ_HASH__L4*/ curfnum[3]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4518:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L3*/ curfnum[2]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4518:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4518:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4520:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4521:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OSERIAL__L3*/ curfnum[2]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4519:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_.DIS__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_.OUT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_.OURANK__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_#LRK__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_#OSERIAL__L3*/ curfnum[2] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_.ONAM__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4506:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[3] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 21
+  long varnum[21];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_ENVIRONMENT_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4528:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4528:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4528:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4528:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4529:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4529:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4529:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4529:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4529:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4529:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4529:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4529)?(4529):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4529:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4529:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4529:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4530:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4530:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4530:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4530:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4530:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4530:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4530:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4530)?(4530):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4530:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4530:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4530:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4531:/ block");
+ /*block*/{
+  /*_.DIS__V8*/ curfptr[6] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4532:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#OSERIAL__L4*/ curfnum[1] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  /*_#ONUM__L5*/ curfnum[4] = 
+   (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  /*_#__L6*/ curfnum[5] = 
+   ((/*_.DIS__V8*/ curfptr[6]) == ((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-first.melt:4536:/ cond");
+  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4536:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4536:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4537:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "env"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4536:/ cond.else");
+  
+   MELT_LOCATION("warmelt-first.melt:4536:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4539:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "|"));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4540:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4540:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4538:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4536:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4542:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L7*/ curfnum[6] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4543:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OBJ_HASH__L7*/ curfnum[6]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4544:/ cond");
+  /*cond*/ if (/*_#ONUM__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4544:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4544:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4546:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "#"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4547:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#ONUM__L5*/ curfnum[4]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4545:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-first.melt:4548:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4548:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4548:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4550:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4551:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OSERIAL__L4*/ curfnum[1]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4549:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4552:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "{"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4553:/ block");
+  /*block*/{
+   /*_#OFFPREV__L8*/ curfnum[7] = 
+    (melt_get_int((melt_ptr_t)((/*!ENV_PREV*/ curfrout->tabval[2]))));;
+   MELT_LOCATION("warmelt-first.melt:4554:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = slot; };
+   ;
+   /*_#OLDMAXDEPTH__L9*/ curfnum[8] = 
+    (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[9])));;
+   /*_#I__L10*/ curfnum[9] = 
+    (melt_idiv((/*_#OLDMAXDEPTH__L9*/ curfnum[8]), (2)));;
+   /*_#NEWMAXDEPTH__L11*/ curfnum[10] = 
+    ((/*_#I__L10*/ curfnum[9]) - (1));;
+   /*_#I__L12*/ curfnum[11] = 
+    ((/*_#NEWMAXDEPTH__L11*/ curfnum[10]) < (0));;
+   MELT_LOCATION("warmelt-first.melt:4557:/ cond");
+   /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4557:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4557:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4557:/ compute");
+     /*_#NEWMAXDEPTH__L11*/ curfnum[10] = /*_#SETQ___L14*/ curfnum[13] = 0;;
+     /*_#IF___L13*/ curfnum[12] = /*_#SETQ___L14*/ curfnum[13];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4557:/ clear");
+     /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:4557:/ cond.else");
+   
+    /*_#IF___L13*/ curfnum[12] = 0;;
+    }
+   ;
+   /*_#NEED_DBGLIM__L15*/ curfnum[13] = 
+    (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#OLDMAXDEPTH__L9*/ curfnum[8]));;
+   MELT_LOCATION("warmelt-first.melt:4558:/ cond");
+   /*cond*/ if (/*_#NEED_DBGLIM__L15*/ curfnum[13]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4558:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4558:/ block");
+    /*block*/{
+     /*_#I__L16*/ curfnum[15] = 
+      ((/*_#DEPTH__L1*/ curfnum[0]) > (0));;
+     MELT_LOCATION("warmelt-first.melt:4560:/ cond");
+     /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4560:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4560:/ block");
+      /*block*/{
+       /*_#I__L17*/ curfnum[16] = 
+        ((/*_#OLDMAXDEPTH__L9*/ curfnum[8]) > (3));;
+       MELT_LOCATION("warmelt-first.melt:4560:/ cond");
+       /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:4560:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:4560:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:4561:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = slot; };
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:4561:/ locexp");
+         melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ curfptr[11]), (/*_#NEWMAXDEPTH__L11*/ curfnum[10]));}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:4560:/ clear");
+         /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = 0 ;}
+        ;
+       } /*noelse*/
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4560:/ clear");
+       /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;}
+      ;
+     } /*noelse*/
+     ;
+     /*_#I__L18*/ curfnum[16] = 
+      ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+     MELT_LOCATION("warmelt-first.melt:4562:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg");
+      argtab[1].bp_long = /*_#I__L18*/ curfnum[16];
+      MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg");
+      argtab[2].bp_long = 0;
+      MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg");
+      argtab[3].bp_long = /*_#OFFPREV__L8*/ curfnum[7];
+      /*_.DBGOUT_FIELDS__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_#I__L19*/ curfnum[18] = 
+      ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
+     /*_#NEED_DBGLIM__L20*/ curfnum[19] = 
+      (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#I__L19*/ curfnum[18])>=0 && (/*_#I__L19*/ curfnum[18]) < (/*_#NEWMAXDEPTH__L11*/ curfnum[10]));;
+     MELT_LOCATION("warmelt-first.melt:4563:/ cond");
+     /*cond*/ if (/*_#NEED_DBGLIM__L20*/ curfnum[19]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4563:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4563:/ block");
+      /*block*/{
+       /*_#I__L21*/ curfnum[20] = 
+        ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
+       MELT_LOCATION("warmelt-first.melt:4564:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg");
+        argtab[1].bp_long = /*_#I__L21*/ curfnum[20];
+        MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg");
+        argtab[2].bp_long = /*_#OFFPREV__L8*/ curfnum[7];
+        MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg");
+        argtab[3].bp_long = 0;
+        /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_FIELDS*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFELSE___V14*/ curfptr[13] = /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4563:/ clear");
+       /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4563:/ clear");
+       /*clear*/ /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:4563:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4563:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4565:/ locexp");
+        meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( ".._.."));}
+        ;
+        /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     MELT_LOCATION("warmelt-first.melt:4566:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V16*/ curfptr[14] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4566:/ locexp");
+     melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V16*/ curfptr[14]), (/*_#OLDMAXDEPTH__L9*/ curfnum[8]));}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4559:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_.DBGOUT_FIELDS__V13*/ curfptr[11] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_#NEED_DBGLIM__L20*/ curfnum[19] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4558:/ clear");
+     /*clear*/ /*_.DBGI_MAXDEPTH__V16*/ curfptr[14] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#OFFPREV__L8*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#OLDMAXDEPTH__L9*/ curfnum[8] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#NEWMAXDEPTH__L11*/ curfnum[10] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4553:/ clear");
+   /*clear*/ /*_#NEED_DBGLIM__L15*/ curfnum[13] = 0 ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4568:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "}"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4531:/ clear");
+  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4531:/ clear");
+  /*clear*/ /*_.OUT__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4531:/ clear");
+  /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4531:/ clear");
+  /*clear*/ /*_#ONUM__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4531:/ clear");
+  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4531:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L7*/ curfnum[6] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4528:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4528:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_ENVIRONMENT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_CTYPE_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4574:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4574:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4574:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4574:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4575:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4575:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4575:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4575:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4575:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4575:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4575:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4575)?(4575):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4575:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4575:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4575:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4576:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4576:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4576:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4576:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4576:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4576:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4576:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4576)?(4576):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4576:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4576:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4576:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L4*/ curfnum[1] = 
+  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
+ MELT_LOCATION("warmelt-first.melt:4577:/ cond");
+ /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4577:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4577:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4578:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4578:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4578:/ apply.arg");
+    argtab[1].bp_long = 0;
+    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4577:/ clear");
+   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4577:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4577:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4579:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4579:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-first.melt:4579:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CTYPE_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4577:/ clear");
+   /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4574:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4574:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4574:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4574:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4574:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4574:/ clear");
+ /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_CTYPE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUTAGAIN_CTYPE_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4583:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4583:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4583:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4583:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4584:/ block");
+ /*block*/{
+  /*_.DIS__V4*/ curfptr[3] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4585:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V5*/ curfptr[4] = slot; };
+  ;
+  /*_#OSERIAL__L2*/ curfnum[1] = 
+   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4587:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V6*/ curfptr[5] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4588:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( " $!"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4589:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V6*/ curfptr[5])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4590:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "!/"));}
+  ;
+  /*_#OBJ_HASH__L3*/ curfnum[2] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4591:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OBJ_HASH__L3*/ curfnum[2]));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4592:/ cond");
+  /*cond*/ if (/*_#OSERIAL__L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4592:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4592:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4594:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "##"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4595:/ locexp");
+    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OSERIAL__L2*/ curfnum[1]));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4593:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4584:/ clear");
+  /*clear*/ /*_.DIS__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4584:/ clear");
+  /*clear*/ /*_.OUT__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4584:/ clear");
+  /*clear*/ /*_#OSERIAL__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4584:/ clear");
+  /*clear*/ /*_.ONAM__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4584:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L3*/ curfnum[2] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUTAGAIN_CTYPE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_105_warmelt_first_FRESH_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_first_FRESH_ENV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FRESH_ENV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4604:/ getarg");
+ /*_.PARENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4604:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESCR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESCR__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4604:/ block");
+/*block*/{
+ /*_#NULL__L1*/ curfnum[0] = 
+  ((/*_.PARENV__V2*/ curfptr[1]) == NULL);;
+ MELT_LOCATION("warmelt-first.melt:4608:/ cond");
+ /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4608:/ cond.then");
+ /*_#OR___L2*/ curfnum[1] = /*_#NULL__L1*/ curfnum[0];;
+ } else {MELT_LOCATION("warmelt-first.melt:4608:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-first.melt:4608:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[2] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PARENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   /*_#OR___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4608:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4608:/ cond");
+ /*cond*/ if (/*_#OR___L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4608:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4608:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4609:/ cond");
+   /*cond*/ if (/*_.DESCR__V3*/ curfptr[2]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4609:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4609:/ block");
+    /*block*/{
+     /*_.MAKE_MAPOBJECT__V6*/ curfptr[5] = 
+      (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (26)));;
+     MELT_LOCATION("warmelt-first.melt:4610:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4610:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DESCRIBED_ENVIRONMENT*/ curfrout->tabval[1])), (4), "CLASS_DESCRIBED_ENVIRONMENT");/*_.INST__V8*/ curfptr[7] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-first.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @ENV_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), (/*_.MAKE_MAPOBJECT__V6*/ curfptr[5]), "ENV_BIND");
+      ;
+      MELT_LOCATION("warmelt-first.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @ENV_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.PARENV__V2*/ curfptr[1]), "ENV_PREV");
+      ;
+      MELT_LOCATION("warmelt-first.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @DENV_DESCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (3), (/*_.DESCR__V3*/ curfptr[2]), "DENV_DESCR");
+      ;
+      /*_.INST___V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
+     ;
+     /*_.IFELSE___V5*/ curfptr[4] = /*_.INST___V7*/ curfptr[6];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4609:/ clear");
+     /*clear*/ /*_.MAKE_MAPOBJECT__V6*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4609:/ clear");
+     /*clear*/ /*_.INST___V7*/ curfptr[6] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:4609:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4609:/ block");
+    /*block*/{
+     /*_.MAKE_MAPOBJECT__V9*/ curfptr[5] = 
+      (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (6)));;
+     MELT_LOCATION("warmelt-first.melt:4614:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4614:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])), (3), "CLASS_ENVIRONMENT");/*_.INST__V11*/ curfptr[10] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-first.melt:4614:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @ENV_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (0), (/*_.MAKE_MAPOBJECT__V9*/ curfptr[5]), "ENV_BIND");
+      ;
+      MELT_LOCATION("warmelt-first.melt:4614:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @ENV_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.PARENV__V2*/ curfptr[1]), "ENV_PREV");
+      ;
+      /*_.INST___V10*/ curfptr[6] = /*_.INST__V11*/ curfptr[10];;}
+     ;
+     /*_.IFELSE___V5*/ curfptr[4] = /*_.INST___V10*/ curfptr[6];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4609:/ clear");
+     /*clear*/ /*_.MAKE_MAPOBJECT__V9*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4609:/ clear");
+     /*clear*/ /*_.INST___V10*/ curfptr[6] = 0 ;}
+    ;
+    }
+   ;
+   /*_.IF___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4608:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-first.melt:4608:/ cond.else");
+ 
+  /*_.IF___V4*/ curfptr[3] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4604:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
+  MELT_LOCATION("warmelt-first.melt:4604:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4604:/ clear");
+ /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4604:/ clear");
+ /*clear*/ /*_#OR___L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4604:/ clear");
+ /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FRESH_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_105_warmelt_first_FRESH_ENV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_106_warmelt_first_FIND_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_first_FIND_ENV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FIND_ENV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4626:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4626:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4626:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4628:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4628:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4628:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4628:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4628:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4628:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4628:/ locexp");
+      melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4628)?(4628):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4628:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4628:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4628:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4629:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4629:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:4629:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4629:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4629:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4629:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4629:/ locexp");
+      melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4629)?(4629):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4629:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4629:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4629:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4630:/ loop");
+ /*loop*/{ labloop_FINDLOOP_1:;MELT_LOCATION("warmelt-first.melt:4630:/ loopbody");
+ 
+  MELT_LOCATION("warmelt-first.melt:4630:/ block");
+  /*block*/{
+   /*_#NULL__L3*/ curfnum[0] = 
+    ((/*_.ENV__V2*/ curfptr[1]) == NULL);;
+   MELT_LOCATION("warmelt-first.melt:4632:/ cond");
+   /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4632:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4632:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4633:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4633:/ compute");
+      /*_.FINDLOOP__V9*/ curfptr[8] = (/*nil*/NULL);;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4633:/ exit");
+      /*exit*/{
+       goto labexit_FINDLOOP_1;}
+      ;}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4634:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4634:/ block");
+    /*block*/{
+     /*_#IS_OBJECT__L4*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+     MELT_LOCATION("warmelt-first.melt:4634:/ cond");
+     /*cond*/ if (/*_#IS_OBJECT__L4*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4634:/ cond.then");
+     /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-first.melt:4634:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4634:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4634:/ locexp");
+        melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4634)?(4634):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4634:/ clear");
+     /*clear*/ /*_#IS_OBJECT__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4634:/ clear");
+     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4634:/ cppif.else");
+   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4635:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4635:/ block");
+    /*block*/{
+     /*_#IS_A__L5*/ curfnum[3] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+     MELT_LOCATION("warmelt-first.melt:4635:/ cond");
+     /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4635:/ cond.then");
+     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-first.melt:4635:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4635:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4635:/ locexp");
+        melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4635)?(4635):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4635:/ clear");
+     /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4635:/ clear");
+     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4635:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-first.melt:4636:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4637:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ curfptr[12] = slot; };
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-first.melt:4638:/ cppif.then");
+    MELT_LOCATION("warmelt-first.melt:4638:/ block");
+     /*block*/{
+      /*_#IS_MAPOBJECT__L6*/ curfnum[3] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ curfptr[12])) == OBMAG_MAPOBJECTS);;
+      MELT_LOCATION("warmelt-first.melt:4638:/ cond");
+      /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ curfnum[3]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4638:/ cond.then");
+      /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-first.melt:4638:/ cond.else");
+      
+       MELT_LOCATION("warmelt-first.melt:4638:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:4638:/ locexp");
+         melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4638)?(4638):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4638:/ clear");
+      /*clear*/ /*_#IS_MAPOBJECT__L6*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4638:/ clear");
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-first.melt:4638:/ cppif.else");
+    /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-first.melt:4639:/ block");
+    /*block*/{
+     /*_.BND__V17*/ curfptr[15] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V14*/ curfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));;
+     MELT_LOCATION("warmelt-first.melt:4641:/ cond");
+     /*cond*/ if (/*_.BND__V17*/ curfptr[15]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4641:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4641:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4642:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:4642:/ compute");
+        /*_.FINDLOOP__V9*/ curfptr[8] = /*_.BND__V17*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4642:/ exit");
+        /*exit*/{
+         goto labexit_FINDLOOP_1;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4639:/ clear");
+     /*clear*/ /*_.BND__V17*/ curfptr[15] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4636:/ clear");
+    /*clear*/ /*_.BINDMAP__V14*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4636:/ clear");
+    /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;}
+   ;
+   MELT_LOCATION("warmelt-first.melt:4644:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V18*/ curfptr[15] = slot; };
+   ;
+   MELT_LOCATION("warmelt-first.melt:4644:/ compute");
+   /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V19*/ curfptr[12] = /*_.ENV_PREV__V18*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4630:/ clear");
+   /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4630:/ clear");
+   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4630:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4630:/ clear");
+   /*clear*/ /*_.ENV_PREV__V18*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4630:/ clear");
+   /*clear*/ /*_.SETQ___V19*/ curfptr[12] = 0 ;}
+  ;
+  ;
+   goto labloop_FINDLOOP_1;
+   labexit_FINDLOOP_1:;MELT_LOCATION("warmelt-first.melt:4630:/ loopepilog");
+ /*loopepilog*/
+  /*_.FOREVER___V8*/ curfptr[6] = /*_.FINDLOOP__V9*/ curfptr[8];;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4626:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.FOREVER___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4626:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4626:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4626:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4626:/ clear");
+ /*clear*/ /*_.FOREVER___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FIND_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_106_warmelt_first_FIND_ENV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_107_warmelt_first_FIND_ENV_DEBUG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_first_FIND_ENV_DEBUG_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 29
+  void* varptr[29];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<29; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 29;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FIND_ENV_DEBUG", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4649:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4649:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4649:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4650:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4650:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4650:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4650:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4650:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4650:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4650:/ locexp");
+      melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4650)?(4650):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4650:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4650:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4650:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4651:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4651:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:4651:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4651:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4651:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4651:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4651:/ locexp");
+      melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4651)?(4651):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4651:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4651:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4651:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4652:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4652:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-first.melt:4652:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg");
+    argtab[0].bp_cstring =  "find_env_debug initial env";
+    MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-first.melt";
+    MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg");
+    argtab[3].bp_long = 4652;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4652:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4652:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4652:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4653:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4653:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-first.melt:4653:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg");
+    argtab[0].bp_cstring =  "find_env_debug binder";
+    MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-first.melt";
+    MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg");
+    argtab[3].bp_long = 4653;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4653:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4653:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4653:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4654:/ loop");
+ /*loop*/{ labloop_FINDLOOP_2:;MELT_LOCATION("warmelt-first.melt:4654:/ loopbody");
+ 
+  MELT_LOCATION("warmelt-first.melt:4654:/ block");
+  /*block*/{
+   /*_#NULL__L5*/ curfnum[0] = 
+    ((/*_.ENV__V2*/ curfptr[1]) == NULL);;
+   MELT_LOCATION("warmelt-first.melt:4656:/ cond");
+   /*cond*/ if (/*_#NULL__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4656:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4656:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4657:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4657:/ compute");
+      /*_.FINDLOOP__V13*/ curfptr[12] = (/*nil*/NULL);;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4657:/ exit");
+      /*exit*/{
+       goto labexit_FINDLOOP_2;}
+      ;}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4658:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4658:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-first.melt:4658:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
+      argtab[0].bp_cstring =  "find_env_debug current env";
+      MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-first.melt";
+      MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
+      argtab[3].bp_long = 4658;
+      /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4658:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4658:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4658:/ cppif.else");
+   /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4659:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4659:/ block");
+    /*block*/{
+     /*_#IS_OBJECT__L7*/ curfnum[5] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+     MELT_LOCATION("warmelt-first.melt:4659:/ cond");
+     /*cond*/ if (/*_#IS_OBJECT__L7*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4659:/ cond.then");
+     /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-first.melt:4659:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4659:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4659:/ locexp");
+        melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4659)?(4659):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4659:/ clear");
+     /*clear*/ /*_#IS_OBJECT__L7*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4659:/ clear");
+     /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4659:/ cppif.else");
+   /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4660:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4660:/ block");
+    /*block*/{
+     /*_#IS_A__L8*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+     MELT_LOCATION("warmelt-first.melt:4660:/ cond");
+     /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4660:/ cond.then");
+     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-first.melt:4660:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4660:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4660:/ locexp");
+        melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4660)?(4660):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4660:/ clear");
+     /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4660:/ clear");
+     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4660:/ cppif.else");
+   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-first.melt:4661:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-first.melt:4662:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V20*/ curfptr[18] = slot; };
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-first.melt:4663:/ cppif.then");
+    MELT_LOCATION("warmelt-first.melt:4663:/ block");
+     /*block*/{
+      /*_#IS_MAPOBJECT__L9*/ curfnum[5] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V20*/ curfptr[18])) == OBMAG_MAPOBJECTS);;
+      MELT_LOCATION("warmelt-first.melt:4663:/ cond");
+      /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4663:/ cond.then");
+      /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-first.melt:4663:/ cond.else");
+      
+       MELT_LOCATION("warmelt-first.melt:4663:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:4663:/ locexp");
+         melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4663)?(4663):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V21*/ curfptr[20] = /*_.IFELSE___V22*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4663:/ clear");
+      /*clear*/ /*_#IS_MAPOBJECT__L9*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4663:/ clear");
+      /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-first.melt:4663:/ cppif.else");
+    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-first.melt:4664:/ block");
+    /*block*/{
+     /*_.BND__V23*/ curfptr[21] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V20*/ curfptr[18]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-first.melt:4666:/ cppif.then");
+     MELT_LOCATION("warmelt-first.melt:4666:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-first.melt:4666:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg");
+        argtab[0].bp_cstring =  "find_env_debug current bnd";
+        MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
+        MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-first.melt";
+        MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg");
+        argtab[3].bp_long = 4666;
+        /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BND__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4666:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4666:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-first.melt:4666:/ cppif.else");
+     /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-first.melt:4667:/ cond");
+     /*cond*/ if (/*_.BND__V23*/ curfptr[21]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4667:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4667:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4668:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:4668:/ compute");
+        /*_.FINDLOOP__V13*/ curfptr[12] = /*_.BND__V23*/ curfptr[21];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4668:/ exit");
+        /*exit*/{
+         goto labexit_FINDLOOP_2;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4664:/ clear");
+     /*clear*/ /*_.BND__V23*/ curfptr[21] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4664:/ clear");
+     /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4661:/ clear");
+    /*clear*/ /*_.BINDMAP__V20*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4661:/ clear");
+    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4670:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4670:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-first.melt:4670:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg");
+      argtab[0].bp_cstring =  "find_env_debug at end of loop binder";
+      MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5];
+      MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-first.melt";
+      MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg");
+      argtab[3].bp_long = 4670;
+      /*_.DEBUG_MSG_FUN__V27*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4670:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4670:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[21] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4670:/ cppif.else");
+   /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-first.melt:4671:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V28*/ curfptr[23] = slot; };
+   ;
+   MELT_LOCATION("warmelt-first.melt:4671:/ compute");
+   /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V29*/ curfptr[18] = /*_.ENV_PREV__V28*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_#NULL__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_.ENV_PREV__V28*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4654:/ clear");
+   /*clear*/ /*_.SETQ___V29*/ curfptr[18] = 0 ;}
+  ;
+  ;
+   goto labloop_FINDLOOP_2;
+   labexit_FINDLOOP_2:;MELT_LOCATION("warmelt-first.melt:4654:/ loopepilog");
+ /*loopepilog*/
+  /*_.FOREVER___V12*/ curfptr[10] = /*_.FINDLOOP__V13*/ curfptr[12];;
+  }
+ ;
+ MELT_LOCATION("warmelt-first.melt:4649:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.FOREVER___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-first.melt:4649:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4649:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4649:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4649:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4649:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4649:/ clear");
+ /*clear*/ /*_.FOREVER___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FIND_ENV_DEBUG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_107_warmelt_first_FIND_ENV_DEBUG*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_108_warmelt_first_FIND_ENCLOSING_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_first_FIND_ENCLOSING_ENV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FIND_ENCLOSING_ENV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4676:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4676:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4676:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4679:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4679:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4679:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4679:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4679:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4679:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4679:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4679)?(4679):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4679:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4679:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4679:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4680:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4680:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:4680:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4680:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4680:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4680:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4680:/ locexp");
+      melt_assert_failed(( "check binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4680)?(4680):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4680:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4680:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4680:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4681:/ block");
+ /*block*/{
+  /*_.PROCLIST__V9*/ curfptr[8] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));;
+  MELT_LOCATION("warmelt-first.melt:4682:/ loop");
+  /*loop*/{ labloop_FINDLOOP_3:;MELT_LOCATION("warmelt-first.melt:4682:/ loopbody");
+  
+   MELT_LOCATION("warmelt-first.melt:4682:/ block");
+   /*block*/{
+    /*_#IS_NOT_A__L3*/ curfnum[0] = 
+     !melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+    MELT_LOCATION("warmelt-first.melt:4683:/ cond");
+    /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4683:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:4683:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4683:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4683:/ compute");
+       /*_.FINDLOOP__V11*/ curfptr[10] = NULL;;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4683:/ exit");
+       /*exit*/{
+        goto labexit_FINDLOOP_3;}
+       ;}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-first.melt:4684:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4684:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V13*/ curfptr[12] = slot; };
+     ;
+     MELT_LOCATION("warmelt-first.melt:4685:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 2, "ENV_PROC");/*_.EPROC__V14*/ curfptr[13] = slot; };
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-first.melt:4687:/ cppif.then");
+     MELT_LOCATION("warmelt-first.melt:4687:/ block");
+      /*block*/{
+       /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V13*/ curfptr[12])) == OBMAG_MAPOBJECTS);;
+       MELT_LOCATION("warmelt-first.melt:4687:/ cond");
+       /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[3]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:4687:/ cond.then");
+       /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-first.melt:4687:/ cond.else");
+       
+        MELT_LOCATION("warmelt-first.melt:4687:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:4687:/ locexp");
+          melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4687)?(4687):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4687:/ clear");
+       /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4687:/ clear");
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-first.melt:4687:/ cppif.else");
+     /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-first.melt:4688:/ block");
+     /*block*/{
+      /*_.BND__V18*/ curfptr[17] = 
+       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V13*/ curfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));;
+      MELT_LOCATION("warmelt-first.melt:4689:/ cond");
+      /*cond*/ if (/*_.BND__V18*/ curfptr[17]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4689:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:4689:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-first.melt:4689:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = /*_.BND__V18*/ curfptr[17];;
+         MELT_LOCATION("warmelt-first.melt:4689:/ putxtraresult");
+         if (!xrestab_ || !xresdescr_) goto labend_rout;
+         if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+         if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.PROCLIST__V9*/ curfptr[8]);
+         ;
+         MELT_LOCATION("warmelt-first.melt:4689:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        /*_.IF___V19*/ curfptr[18] = /*_.RETURN___V20*/ curfptr[19];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-first.melt:4689:/ clear");
+        /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-first.melt:4689:/ cond.else");
+      
+       /*_.IF___V19*/ curfptr[18] = NULL;;
+       }
+      ;
+      /*_.LET___V17*/ curfptr[15] = /*_.IF___V19*/ curfptr[18];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4688:/ clear");
+      /*clear*/ /*_.BND__V18*/ curfptr[17] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4688:/ clear");
+      /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4690:/ cond");
+     /*cond*/ if (/*_.EPROC__V14*/ curfptr[13]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4690:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4690:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4690:/ locexp");
+       meltgc_prepend_list((melt_ptr_t)(/*_.PROCLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.EPROC__V14*/ curfptr[13]));}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-first.melt:4691:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V21*/ curfptr[19] = slot; };
+     ;
+     MELT_LOCATION("warmelt-first.melt:4691:/ compute");
+     /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V22*/ curfptr[17] = /*_.ENV_PREV__V21*/ curfptr[19];;
+     /*_.LET___V12*/ curfptr[11] = /*_.SETQ___V22*/ curfptr[17];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4684:/ clear");
+     /*clear*/ /*_.BINDMAP__V13*/ curfptr[12] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4684:/ clear");
+     /*clear*/ /*_.EPROC__V14*/ curfptr[13] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4684:/ clear");
+     /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4684:/ clear");
+     /*clear*/ /*_.LET___V17*/ curfptr[15] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4684:/ clear");
+     /*clear*/ /*_.ENV_PREV__V21*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4684:/ clear");
+     /*clear*/ /*_.SETQ___V22*/ curfptr[17] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4682:/ clear");
+    /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4682:/ clear");
+    /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;}
+   ;
+   ;
+    goto labloop_FINDLOOP_3;
+    labexit_FINDLOOP_3:;MELT_LOCATION("warmelt-first.melt:4682:/ loopepilog");
+  /*loopepilog*/
+   /*_.FOREVER___V10*/ curfptr[9] = /*_.FINDLOOP__V11*/ curfptr[10];;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.FOREVER___V10*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4681:/ clear");
+  /*clear*/ /*_.PROCLIST__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4681:/ clear");
+  /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4676:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4676:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4676:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4676:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4676:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FIND_ENCLOSING_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_108_warmelt_first_FIND_ENCLOSING_ENV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_109_warmelt_first_PUT_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_first_PUT_ENV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 13
+  long varnum[13];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUT_ENV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4695:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4695:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDING__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4695:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4698:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4698:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:4698:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4698:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4698:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4698:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4698:/ locexp");
+      melt_assert_failed(( "check binding is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4698)?(4698):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4698:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4698:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4698:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4699:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4699:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-first.melt:4699:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4699:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4699:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4699:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4699:/ locexp");
+      melt_assert_failed(( "check env is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4699)?(4699):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4699:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4699:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4699:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4700:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4700:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4700:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4700:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4700:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4700:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4700:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4700)?(4700):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4700:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4700:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4700:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#IS_A__L4*/ curfnum[0] = 
+  melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
+ /*_#NOT__L5*/ curfnum[4] = 
+  (!(/*_#IS_A__L4*/ curfnum[0]));;
+ MELT_LOCATION("warmelt-first.melt:4701:/ cond");
+ /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4701:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4701:/ block");
+  /*block*/{
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-first.melt:4703:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:4703:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-first.melt:4703:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg");
+      argtab[0].bp_cstring =  "put_env invalid binding";
+      MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-first.melt";
+      MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg");
+      argtab[3].bp_long = 4703;
+      /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4703:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4703:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-first.melt:4703:/ cppif.else");
+   /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   {
+   MELT_LOCATION("warmelt-first.melt:4704:/ locexp");
+    
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "put_env invalid binding"), (15));
+#endif
+;}
+   ;
+   MELT_LOCATION("warmelt-first.melt:4702:/ block");
+   /*block*/{}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4701:/ clear");
+   /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4705:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4705:/ block");
+  /*block*/{
+   /*_#IS_A__L7*/ curfnum[5] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4705:/ cond");
+   /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4705:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4705:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4705:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4705:/ locexp");
+      melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4705)?(4705):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4705:/ clear");
+   /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4705:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4705:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4706:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:4706:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4707:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDERV__V15*/ curfptr[14] = slot; };
+  ;
+  /*_#IS_OBJECT__L8*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)((/*!BINDER*/ curfrout->tabval[3]))) == OBMAG_OBJECT);;
+  /*_#NOT__L9*/ curfnum[8] = 
+   (!(/*_#IS_OBJECT__L8*/ curfnum[5]));;
+  MELT_LOCATION("warmelt-first.melt:4709:/ cond");
+  /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4709:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4709:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-first.melt:4711:/ cppif.then");
+    MELT_LOCATION("warmelt-first.melt:4711:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
+       callcount;;
+      MELT_LOCATION("warmelt-first.melt:4711:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg");
+       argtab[0].bp_cstring =  "put_env bad binder in binding";
+       MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
+       MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-first.melt";
+       MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg");
+       argtab[3].bp_long = 4711;
+       /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4711:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4711:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-first.melt:4711:/ cppif.else");
+    /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-first.melt:4712:/ cppif.then");
+    MELT_LOCATION("warmelt-first.melt:4712:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 
+       callcount;;
+      MELT_LOCATION("warmelt-first.melt:4712:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg");
+       argtab[0].bp_cstring =  "put_env bad binderv";
+       MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9];
+       MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-first.melt";
+       MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg");
+       argtab[3].bp_long = 4712;
+       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDERV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4712:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4712:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-first.melt:4712:/ cppif.else");
+    /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4713:/ locexp");
+     
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "put_env  bad binder in binding"), (5));
+#endif
+;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4710:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4709:/ clear");
+    /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4709:/ clear");
+    /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4714:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4714:/ block");
+   /*block*/{
+    /*_#IS_MAPOBJECT__L12*/ curfnum[9] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ curfptr[8])) == OBMAG_MAPOBJECTS);;
+    MELT_LOCATION("warmelt-first.melt:4714:/ cond");
+    /*cond*/ if (/*_#IS_MAPOBJECT__L12*/ curfnum[9]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4714:/ cond.then");
+    /*_.IFELSE___V21*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:4714:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4714:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4714:/ locexp");
+       melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4714)?(4714):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V21*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4714:/ clear");
+    /*clear*/ /*_#IS_MAPOBJECT__L12*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4714:/ clear");
+    /*clear*/ /*_.IFELSE___V21*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4714:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4715:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4715:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L13*/ curfnum[9] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V15*/ curfptr[14])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-first.melt:4715:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L13*/ curfnum[9]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4715:/ cond.then");
+    /*_.IFELSE___V23*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:4715:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4715:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4715:/ locexp");
+       melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4715)?(4715):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[16] = /*_.IFELSE___V23*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4715:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L13*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4715:/ clear");
+    /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4715:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4716:/ locexp");
+  meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V14*/ curfptr[8]), 
+			   (meltobject_ptr_t) (/*_.BINDERV__V15*/ curfptr[14]), 
+			   (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4706:/ clear");
+  /*clear*/ /*_.BINDMAP__V14*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4706:/ clear");
+  /*clear*/ /*_.BINDERV__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4706:/ clear");
+  /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4706:/ clear");
+  /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4706:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4706:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[16] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4695:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4695:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4695:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4695:/ clear");
+ /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4695:/ clear");
+ /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4695:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUT_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_109_warmelt_first_PUT_ENV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_110_warmelt_first_OVERWRITE_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_first_OVERWRITE_ENV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OVERWRITE_ENV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4720:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4720:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDING__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4720:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4724:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4724:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4724:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4724:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4724:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4724:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4724:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4724)?(4724):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4724:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4724:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4724:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4725:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4725:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4725:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4725:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4725:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4725:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4725:/ locexp");
+      melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4725)?(4725):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4725:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4725:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4725:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4726:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-first.melt:4726:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDERV__V9*/ curfptr[8] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4727:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4727:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L3*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V9*/ curfptr[8])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-first.melt:4727:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4727:/ cond.then");
+    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:4727:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4727:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4727:/ locexp");
+       melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4727)?(4727):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4727:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4727:/ clear");
+    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4727:/ cppif.else");
+  /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-first.melt:4728:/ loop");
+  /*loop*/{ labloop_FINDLOOP_4:;MELT_LOCATION("warmelt-first.melt:4728:/ loopbody");
+  
+   MELT_LOCATION("warmelt-first.melt:4728:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+    /*_#NOT__L5*/ curfnum[4] = 
+     (!(/*_#IS_A__L4*/ curfnum[0]));;
+    MELT_LOCATION("warmelt-first.melt:4729:/ cond");
+    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4729:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:4729:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4729:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4729:/ compute");
+       /*_.FINDLOOP__V13*/ curfptr[12] = NULL;;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4729:/ exit");
+       /*exit*/{
+        goto labexit_FINDLOOP_4;}
+       ;}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-first.melt:4730:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4730:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V15*/ curfptr[14] = slot; };
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-first.melt:4731:/ cppif.then");
+     MELT_LOCATION("warmelt-first.melt:4731:/ block");
+      /*block*/{
+       /*_#IS_MAPOBJECT__L6*/ curfnum[5] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V15*/ curfptr[14])) == OBMAG_MAPOBJECTS);;
+       MELT_LOCATION("warmelt-first.melt:4731:/ cond");
+       /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ curfnum[5]) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:4731:/ cond.then");
+       /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-first.melt:4731:/ cond.else");
+       
+        MELT_LOCATION("warmelt-first.melt:4731:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-first.melt:4731:/ locexp");
+          melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4731)?(4731):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4731:/ clear");
+       /*clear*/ /*_#IS_MAPOBJECT__L6*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4731:/ clear");
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-first.melt:4731:/ cppif.else");
+     /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-first.melt:4732:/ block");
+     /*block*/{
+      /*_.OLDBINDING__V18*/ curfptr[16] = 
+       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V15*/ curfptr[14]), (meltobject_ptr_t)((/*!BINDER*/ curfrout->tabval[2])));;
+      MELT_LOCATION("warmelt-first.melt:4733:/ cond");
+      /*cond*/ if (/*_.OLDBINDING__V18*/ curfptr[16]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4733:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:4733:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4735:/ locexp");
+        meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V15*/ curfptr[14]), 
+			   (meltobject_ptr_t) (/*_.BINDERV__V9*/ curfptr[8]), 
+			   (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]));}
+        ;
+        MELT_LOCATION("warmelt-first.melt:4736:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-first.melt:4736:/ compute");
+         /*_.FINDLOOP__V13*/ curfptr[12] = /*_.OLDBINDING__V18*/ curfptr[16];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-first.melt:4736:/ exit");
+         /*exit*/{
+          goto labexit_FINDLOOP_4;}
+         ;}
+        ;
+        MELT_LOCATION("warmelt-first.melt:4734:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4732:/ clear");
+      /*clear*/ /*_.OLDBINDING__V18*/ curfptr[16] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4738:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V19*/ curfptr[16] = slot; };
+     ;
+     MELT_LOCATION("warmelt-first.melt:4738:/ compute");
+     /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V20*/ curfptr[19] = /*_.ENV_PREV__V19*/ curfptr[16];;
+     /*_.LET___V14*/ curfptr[13] = /*_.SETQ___V20*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4730:/ clear");
+     /*clear*/ /*_.BINDMAP__V15*/ curfptr[14] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4730:/ clear");
+     /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4730:/ clear");
+     /*clear*/ /*_.ENV_PREV__V19*/ curfptr[16] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4730:/ clear");
+     /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4728:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4728:/ clear");
+    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4728:/ clear");
+    /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
+   ;
+   ;
+    goto labloop_FINDLOOP_4;
+    labexit_FINDLOOP_4:;MELT_LOCATION("warmelt-first.melt:4728:/ loopepilog");
+  /*loopepilog*/
+   /*_.FOREVER___V12*/ curfptr[10] = /*_.FINDLOOP__V13*/ curfptr[12];;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.FOREVER___V12*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4726:/ clear");
+  /*clear*/ /*_.BINDERV__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4726:/ clear");
+  /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4726:/ clear");
+  /*clear*/ /*_.FOREVER___V12*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-first.melt:4720:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-first.melt:4720:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4720:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4720:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4720:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OVERWRITE_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_110_warmelt_first_OVERWRITE_ENV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_111_warmelt_first_DEBUG_MSG_FUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_first_DEBUG_MSG_FUN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+const char* loc_CSTRING__o0;
+const char* loc_CSTRING__o1;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DEBUG_MSG_FUN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4743:/ getarg");
+ /*_.VAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4743:/ getarg");
+ if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
+ /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4743:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#COUNT__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-first.melt:4743:/ getarg");
+ if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs;
+ /*_?*/ curfram__.loc_CSTRING__o1 = xargtab_[2].bp_cstring;
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-first.melt:4743:/ getarg");
+ if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs;
+ /*_#LINENO__L2*/ curfnum[1] = xargtab_[3].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4743:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-first.melt:4747:/ locexp");
+ ++melt_dbgcounter;}
+ ;
+ /*_#NEED_DBG__L3*/ curfnum[2] = 
+  (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);;
+ MELT_LOCATION("warmelt-first.melt:4748:/ cond");
+ /*cond*/ if (/*_#NEED_DBG__L3*/ curfnum[2]) /*then*/ {
+ MELT_LOCATION("warmelt-first.melt:4748:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:4748:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4749:/ block");
+   /*block*/{
+    /*_#DBGCOUNTER__L4*/ curfnum[3] = 0;;
+    MELT_LOCATION("warmelt-first.melt:4750:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[1])))) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4750:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:4750:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), 20, "SYSDATA_DUMPFILE");/*_.OUT__V3*/ curfptr[2] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-first.melt:4750:/ cond.else");
+    
+     /*_.OUT__V3*/ curfptr[2] = NULL;;
+     }
+    ;
+    /*_.OCCMAP__V4*/ curfptr[3] = 
+     (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (50)));;
+    /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 
+     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (17)));;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4754:/ locexp");
+    /*_#DBGCOUNTER__L4*/ curfnum[3] = melt_dbgcounter;}
+    ;
+    /*_#NULL__L5*/ curfnum[4] = 
+     ((/*_.OUT__V3*/ curfptr[2]) == NULL);;
+    MELT_LOCATION("warmelt-first.melt:4757:/ cond");
+    /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4757:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:4757:/ block");
+     /*block*/{
+      /*_.MAKE_STRBUF__V7*/ curfptr[6] = 
+       meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+      MELT_LOCATION("warmelt-first.melt:4758:/ compute");
+      /*_.OUT__V3*/ curfptr[2] = /*_.SETQ___V8*/ curfptr[7] = /*_.MAKE_STRBUF__V7*/ curfptr[6];;
+      /*_.IF___V6*/ curfptr[5] = /*_.SETQ___V8*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4757:/ clear");
+      /*clear*/ /*_.MAKE_STRBUF__V7*/ curfptr[6] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4757:/ clear");
+      /*clear*/ /*_.SETQ___V8*/ curfptr[7] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-first.melt:4757:/ cond.else");
+    
+     /*_.IF___V6*/ curfptr[5] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-first.melt:4759:/ cppif.then");
+    MELT_LOCATION("warmelt-first.melt:4759:/ block");
+     /*block*/{
+      /*_#IS_OUT__L6*/ curfnum[5] = 
+        (melt_is_out ((melt_ptr_t) /*_.OUT__V3*/ curfptr[2])) ;;
+      MELT_LOCATION("warmelt-first.melt:4759:/ cond");
+      /*cond*/ if (/*_#IS_OUT__L6*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-first.melt:4759:/ cond.then");
+      /*_.IFELSE___V10*/ curfptr[7] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-first.melt:4759:/ cond.else");
+      
+       MELT_LOCATION("warmelt-first.melt:4759:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-first.melt:4759:/ locexp");
+         melt_assert_failed(( "check good out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4759)?(4759):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V9*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4759:/ clear");
+      /*clear*/ /*_#IS_OUT__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4759:/ clear");
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-first.melt:4759:/ cppif.else");
+    /*_.IFCPP___V9*/ curfptr[6] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-first.melt:4760:/ block");
+    /*block*/{
+     /*_#NULLOUTFILE__L7*/ curfnum[5] = 0;;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4761:/ locexp");
+      
+		      if (melt_is_file(/*_.OUT__V3*/ curfptr[2]))
+		      /*_#NULLOUTFILE__L7*/ curfnum[5] = (melt_get_file(/*_.OUT__V3*/ curfptr[2])==NULL)?1:0	;
+		      ;}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4765:/ cond");
+     /*cond*/ if (/*_#NULLOUTFILE__L7*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4765:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4765:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4767:/ locexp");
+        
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "debug_msg_fun null output file"), (5));
+#endif
+;}
+       ;
+       MELT_LOCATION("warmelt-first.melt:4768:/ cond");
+       /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[1])))) /*then*/ {
+       MELT_LOCATION("warmelt-first.melt:4768:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:4768:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), 19, "SYSDATA_STDERR");/*_.SYSDATA_STDERR__V13*/ curfptr[12] = slot; };
+        ;
+       } else {MELT_LOCATION("warmelt-first.melt:4768:/ cond.else");
+       
+        /*_.SYSDATA_STDERR__V13*/ curfptr[12] = NULL;;
+        }
+       ;
+       MELT_LOCATION("warmelt-first.melt:4768:/ compute");
+       /*_.OUT__V3*/ curfptr[2] = /*_.SETQ___V14*/ curfptr[13] = /*_.SYSDATA_STDERR__V13*/ curfptr[12];;
+       MELT_LOCATION("warmelt-first.melt:4766:/ block");
+       /*block*/{
+        /*_.PROGN___V15*/ curfptr[14] = /*_.SETQ___V14*/ curfptr[13];;}
+       ;
+       /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V15*/ curfptr[14];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4765:/ clear");
+       /*clear*/ /*_.SYSDATA_STDERR__V13*/ curfptr[12] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4765:/ clear");
+       /*clear*/ /*_.SETQ___V14*/ curfptr[13] = 0 ;
+       MELT_LOCATION("warmelt-first.melt:4765:/ clear");
+       /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:4765:/ cond.else");
+     
+      /*_.IF___V12*/ curfptr[11] = NULL;;
+      }
+     ;
+     /*_.LET___V11*/ curfptr[7] = /*_.IF___V12*/ curfptr[11];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4760:/ clear");
+     /*clear*/ /*_#NULLOUTFILE__L7*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4760:/ clear");
+     /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4770:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4771:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4771:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[5])), (3), "CLASS_DEBUG_INFORMATION");/*_.INST__V17*/ curfptr[13] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-first.melt:4771:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (0), (/*_.OUT__V3*/ curfptr[2]), "DBGI_OUT");
+      ;
+      MELT_LOCATION("warmelt-first.melt:4771:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (1), (/*_.OCCMAP__V4*/ curfptr[3]), "DBGI_OCCMAP");
+      ;
+      MELT_LOCATION("warmelt-first.melt:4771:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (2), (/*_.BOXEDMAXDEPTH__V5*/ curfptr[4]), "DBGI_MAXDEPTH");
+      ;
+      /*_.DBGI__V16*/ curfptr[12] = /*_.INST__V17*/ curfptr[13];;}
+     ;
+     /*_#FRAMDEPTH__L8*/ curfnum[5] = 
+      (melt_curframdepth());;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4777:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "!!!!****####"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4778:/ locexp");
+     meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#DBGCOUNTER__L4*/ curfnum[3]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4779:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "#^"));}
+     ;
+     /*_#I__L9*/ curfnum[8] = 
+      ((/*_#FRAMDEPTH__L8*/ curfnum[5]) - (1));;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4780:/ locexp");
+     meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#I__L9*/ curfnum[8]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4781:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));}
+     ;
+     MELT_LOCATION("warmelt-first.melt:4782:/ cond");
+     /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o1) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4782:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4782:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4784:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o1));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4785:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4786:/ locexp");
+       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#LINENO__L2*/ curfnum[1]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4787:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));}
+       ;
+       MELT_LOCATION("warmelt-first.melt:4783:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4789:/ locexp");
+     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o0));}
+     ;
+     /*_#I__L10*/ curfnum[9] = 
+      ((/*_#COUNT__L1*/ curfnum[0]) > (0));;
+     MELT_LOCATION("warmelt-first.melt:4790:/ cond");
+     /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4790:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4790:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4792:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( " !"));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4793:/ locexp");
+       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#COUNT__L1*/ curfnum[0]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4794:/ locexp");
+       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ": "));}
+       ;
+       MELT_LOCATION("warmelt-first.melt:4791:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-first.melt:4796:/ cond");
+     /*cond*/ if (/*_.VAL__V2*/ curfptr[1]) /*then*/ {
+     MELT_LOCATION("warmelt-first.melt:4796:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:4796:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-first.melt:4797:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[2];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-first.melt:4797:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V16*/ curfptr[12];
+        MELT_LOCATION("warmelt-first.melt:4797:/ apply.arg");
+        argtab[1].bp_long = 0;
+        /*_.DBG_OUT__V19*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.VAL__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFELSE___V18*/ curfptr[14] = /*_.DBG_OUT__V19*/ curfptr[11];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-first.melt:4796:/ clear");
+       /*clear*/ /*_.DBG_OUT__V19*/ curfptr[11] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-first.melt:4796:/ cond.else");
+     
+      MELT_LOCATION("warmelt-first.melt:4796:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-first.melt:4798:/ locexp");
+        meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "() ;;;NIL!!!"));}
+        ;
+        /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-first.melt:4800:/ locexp");
+     meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (0), 0);}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-first.melt:4770:/ clear");
+     /*clear*/ /*_.DBGI__V16*/ curfptr[12] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4770:/ clear");
+     /*clear*/ /*_#FRAMDEPTH__L8*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4770:/ clear");
+     /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4770:/ clear");
+     /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-first.melt:4770:/ clear");
+     /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;}
+    ;
+    /*_#IS_STRBUF__L11*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+    MELT_LOCATION("warmelt-first.melt:4802:/ cond");
+    /*cond*/ if (/*_#IS_STRBUF__L11*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4802:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:4802:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4804:/ locexp");
+      
+			  fprintf (stderr, "\n**debug_msg thru strbuffer:\n%s\n",
+					   melt_strbuf_str (/*_.OUT__V3*/ curfptr[2])) ;
+			  fflush (stderr) ;
+			  ;}
+      ;
+      MELT_LOCATION("warmelt-first.melt:4803:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_#DBGCOUNTER__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_.OUT__V3*/ curfptr[2] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_.OCCMAP__V4*/ curfptr[3] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_.IFCPP___V9*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_.LET___V11*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4749:/ clear");
+    /*clear*/ /*_#IS_STRBUF__L11*/ curfnum[5] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4743:/ clear");
+ /*clear*/ /*_#NEED_DBG__L3*/ curfnum[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DEBUG_MSG_FUN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_111_warmelt_first_DEBUG_MSG_FUN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DBGOUT_ANYBINDING_METHOD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4813:/ getarg");
+ /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4813:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-first.melt:4813:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4813:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4814:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4814:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-first.melt:4814:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4814:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4814:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4814:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4814:/ locexp");
+      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4814)?(4814):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4814:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4814:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4814:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-first.melt:4815:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:4815:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-first.melt:4815:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4815:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-first.melt:4815:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4815:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4815:/ locexp");
+      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4815)?(4815):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4815:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4815:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-first.melt:4815:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-first.melt:4816:/ block");
+ /*block*/{
+  /*_.DIS__V8*/ curfptr[6] = 
+   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-first.melt:4817:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-first.melt:4818:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDERV__V10*/ curfptr[9] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4820:/ locexp");
+  meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4821:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "[~"));}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4822:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V11*/ curfptr[10] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4822:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V11*/ curfptr[10])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4823:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "/"));}
+  ;
+  /*_#OBJ_HASH__L4*/ curfnum[1] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4824:/ locexp");
+  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OBJ_HASH__L4*/ curfnum[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4825:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( ":"));}
+  ;
+  /*_#I__L5*/ curfnum[4] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
+  MELT_LOCATION("warmelt-first.melt:4826:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-first.melt:4826:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-first.melt:4826:/ ojbmsend.arg");
+   argtab[1].bp_long = /*_#I__L5*/ curfnum[4];
+   /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.BINDERV__V10*/ curfptr[9]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-first.melt:4827:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#GET_INT__L6*/ curfnum[5] = 
+   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12])));;
+  /*_#NEED_DBGLIM__L7*/ curfnum[6] = 
+   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
+		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[5]));;
+  MELT_LOCATION("warmelt-first.melt:4827:/ cond");
+  /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4827:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4827:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4829:/ locexp");
+    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "; "));}
+    ;
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-first.melt:4830:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg");
+     argtab[1].bp_long = /*_#I__L8*/ curfnum[7];
+     MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg");
+     argtab[2].bp_long = 1;
+     MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg");
+     argtab[3].bp_long = 0;
+     /*_.DBGOUT_FIELDS__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-first.melt:4828:/ block");
+    /*block*/{
+     /*_.PROGN___V16*/ curfptr[15] = /*_.DBGOUT_FIELDS__V15*/ curfptr[14];;}
+    ;
+    /*_.IF___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4827:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4827:/ clear");
+    /*clear*/ /*_.DBGOUT_FIELDS__V15*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4827:/ clear");
+    /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4827:/ cond.else");
+  
+   /*_.IF___V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-first.melt:4832:/ locexp");
+  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "~]"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.OUT__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.BINDERV__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4816:/ clear");
+  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-first.melt:4813:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-first.melt:4813:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DBGOUT_ANYBINDING_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_113_warmelt_first_POST_INITIALIZATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_first_POST_INITIALIZATION_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+const char* loc_CSTRING__o0;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("POST_INITIALIZATION", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-first.melt:4849:/ getarg");
+ /*_.UNUSEDARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-first.melt:4849:/ getarg");
+ if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
+ /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-first.melt:4849:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-first.melt:4850:/ block");
+ /*block*/{
+  /*_.CURMODENVCONT__V3*/ curfptr[2] = 
+   /*quasi.cur.mod.env.cont */
+(/*!konst_0*/ curfrout->tabval[0]);;
+  /*_#IS_A__L1*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[1])));;
+  /*_#NOT__L2*/ curfnum[1] = 
+   (!(/*_#IS_A__L1*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-first.melt:4851:/ cond");
+  /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4851:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4851:/ block");
+   /*block*/{
+    /*_.DISCRIM__V5*/ curfptr[4] = 
+     (melt_discr((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2])));;
+    MELT_LOCATION("warmelt-first.melt:4854:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V5*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-first.melt:4853:/ locexp");
+    warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "post_initialization strange curmodenvcont of discr"), 
+	       melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5])));}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4855:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-first.melt:4855:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-first.melt:4852:/ block");
+    /*block*/{
+     /*_.PROGN___V8*/ curfptr[7] = /*_.RETURN___V7*/ curfptr[6];;}
+    ;
+    /*_.IF___V4*/ curfptr[3] = /*_.PROGN___V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4851:/ clear");
+    /*clear*/ /*_.DISCRIM__V5*/ curfptr[4] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4851:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4851:/ clear");
+    /*clear*/ /*_.RETURN___V7*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4851:/ clear");
+    /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-first.melt:4851:/ cond.else");
+  
+   /*_.IF___V4*/ curfptr[3] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4857:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4857:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
+     callcount;;
+    MELT_LOCATION("warmelt-first.melt:4857:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg");
+     argtab[0].bp_cstring =  "post_initialization curmodenvcont at start";
+     MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
+     MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-first.melt";
+     MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg");
+     argtab[3].bp_long = 4857;
+     /*_.DEBUG_MSG_FUN__V10*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[5];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4857:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4857:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[5] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4857:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[4] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-first.melt:4859:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:4859:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[2] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-first.melt:4859:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ {
+    MELT_LOCATION("warmelt-first.melt:4859:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[7] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-first.melt:4859:/ cond.else");
+    
+     MELT_LOCATION("warmelt-first.melt:4859:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-first.melt:4859:/ locexp");
+       melt_assert_failed(( "check curmodenvcont"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
+  (4859)?(4859):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[7] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[6] = /*_.IFELSE___V12*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-first.melt:4859:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4859:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[7] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-first.melt:4859:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[6] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-first.melt:4860:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-first.melt:4860:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), 0, "CONTAINER_VALUE");/*_.CURMODENV__V13*/ curfptr[5] = slot; };
+   ;
+   /*_#IS_A__L5*/ curfnum[2] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-first.melt:4861:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-first.melt:4861:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:4861:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4862:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-first.melt:4862:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5]), 0, "ENV_BIND");/*_.CURBINDMAP__V14*/ curfptr[7] = slot; };
+      ;
+      /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 
+       (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.CURBINDMAP__V14*/ curfptr[7])));;
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4864:/ locexp");
+      inform(UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s * %ld",  melt_dbgcounter, ( "post_initialization boundvars num"), (/*_#MAPOBJECT_COUNT__L6*/ curfnum[5]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4862:/ clear");
+      /*clear*/ /*_.CURBINDMAP__V14*/ curfptr[7] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4862:/ clear");
+      /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+   } else {MELT_LOCATION("warmelt-first.melt:4861:/ cond.else");
+   
+    MELT_LOCATION("warmelt-first.melt:4861:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-first.melt:4867:/ block");
+     /*block*/{
+      /*_.CURMENVDISCR__V15*/ curfptr[7] = 
+       (melt_discr((melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5])));;
+      MELT_LOCATION("warmelt-first.melt:4869:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMENVDISCR__V15*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-first.melt:4868:/ locexp");
+      inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "post_initialization strange curmodenv of discr"), 
+			     melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-first.melt:4867:/ clear");
+      /*clear*/ /*_.CURMENVDISCR__V15*/ curfptr[7] = 0 ;
+      MELT_LOCATION("warmelt-first.melt:4867:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-first.melt:4860:/ clear");
+   /*clear*/ /*_.CURMODENV__V13*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4860:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-first.melt:4850:/ clear");
+  /*clear*/ /*_.CURMODENVCONT__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4850:/ clear");
+  /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4850:/ clear");
+  /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4850:/ clear");
+  /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4850:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4850:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[6] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("POST_INITIALIZATION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_113_warmelt_first_POST_INITIALIZATION*/
+
+
+
+/**** end of warmelt-first.0+2.c ****/
diff --git a/gcc/melt/warmelt-first.0.c b/gcc/melt/warmelt-first.0.c
index 95f6238521d..9be1464d64b 100644
--- a/gcc/melt/warmelt-first.0.c
+++ b/gcc/melt/warmelt-first.0.c
@@ -1,14 +1,14 @@
-/* GCC MELT GENERATED FILE warmelt-first.3.c - DO NOT EDIT */
+/* GCC MELT GENERATED FILE warmelt-first.0.c - DO NOT EDIT */
 
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.5.0 20091124 (experimental) [melt-branch revision 154669]";
+ "4.5.0 20091130 (experimental) [melt-branch revision 154718]";
 #endif
 
 #include "run-melt.h"
 
-/**** warmelt-first.3.c declarations ****/
+/**** warmelt-first.0.c declarations ****/
 #define MELT_HAS_INITIAL_ENVIRONMENT 0
 
 /**!!** ***
@@ -603,7 +603,7 @@ void mark_module_melt(void*);
 void* initial_frame_melt;
 
 
-/**** warmelt-first.3.c implementations ****/
+/**** warmelt-first.0.c implementations ****/
 
 
 
@@ -652,11 +652,11 @@ melt_trace_start("COMPARE_NAMED_ALPHA", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:1458:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:1453:/ getarg");
  /*_.N1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:1458:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:1453:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.N2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.N2__V3*/ curfptr[2])) != NULL);
@@ -665,141 +665,141 @@ melt_trace_start("COMPARE_NAMED_ALPHA", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:1458:/ block");
+MELT_LOCATION("warmelt-first.melt:1453:/ block");
 /*block*/{
  /*_#__L1*/ curfnum[0] = 
   ((/*_.N1__V2*/ curfptr[1]) == (/*_.N2__V3*/ curfptr[2]));;
- MELT_LOCATION("warmelt-first.melt:1462:/ cond");
+ MELT_LOCATION("warmelt-first.melt:1457:/ cond");
  /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:1462:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:1457:/ cond.then");
  /*_.IFELSE___V4*/ curfptr[3] = (/*!konst_0*/ curfrout->tabval[0]);;
- } else {MELT_LOCATION("warmelt-first.melt:1462:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:1457:/ cond.else");
  
-  MELT_LOCATION("warmelt-first.melt:1462:/ block");
+  MELT_LOCATION("warmelt-first.melt:1457:/ block");
   /*block*/{
    /*_#IS_NOT_A__L2*/ curfnum[1] = 
     !melt_is_instance_of((melt_ptr_t)(/*_.N1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:1463:/ cond");
+   MELT_LOCATION("warmelt-first.melt:1458:/ cond");
    /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:1463:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:1458:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*!konst_2*/ curfrout->tabval[2]);;
-   } else {MELT_LOCATION("warmelt-first.melt:1463:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:1458:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:1463:/ block");
+    MELT_LOCATION("warmelt-first.melt:1458:/ block");
     /*block*/{
      /*_#IS_NOT_A__L3*/ curfnum[2] = 
       !melt_is_instance_of((melt_ptr_t)(/*_.N2__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-     MELT_LOCATION("warmelt-first.melt:1465:/ cond");
+     MELT_LOCATION("warmelt-first.melt:1460:/ cond");
      /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:1465:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:1460:/ cond.then");
      /*_.IFELSE___V6*/ curfptr[5] = (/*!konst_3*/ curfrout->tabval[3]);;
-     } else {MELT_LOCATION("warmelt-first.melt:1465:/ cond.else");
+     } else {MELT_LOCATION("warmelt-first.melt:1460:/ cond.else");
      
-      MELT_LOCATION("warmelt-first.melt:1465:/ block");
+      MELT_LOCATION("warmelt-first.melt:1460:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-first.melt:1468:/ block");
+       MELT_LOCATION("warmelt-first.melt:1463:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-first.melt:1468:/ getslot");
+        MELT_LOCATION("warmelt-first.melt:1463:/ getslot");
         { melt_ptr_t slot=0;
          melt_object_get_field(slot,(melt_ptr_t)(/*_.N1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SN1__V8*/ curfptr[7] = slot; };
         ;
-        MELT_LOCATION("warmelt-first.melt:1469:/ getslot");
+        MELT_LOCATION("warmelt-first.melt:1464:/ getslot");
         { melt_ptr_t slot=0;
          melt_object_get_field(slot,(melt_ptr_t)(/*_.N2__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.SN2__V9*/ curfptr[8] = slot; };
         ;
         /*_#STRING___L4*/ curfnum[3] = 
          melt_string_less((melt_ptr_t)(/*_.SN1__V8*/ curfptr[7]), (melt_ptr_t)(/*_.SN2__V9*/ curfptr[8]));;
-        MELT_LOCATION("warmelt-first.melt:1471:/ cond");
+        MELT_LOCATION("warmelt-first.melt:1466:/ cond");
         /*cond*/ if (/*_#STRING___L4*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:1471:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:1466:/ cond.then");
         /*_.IFELSE___V10*/ curfptr[9] = (/*!konst_4*/ curfrout->tabval[4]);;
-        } else {MELT_LOCATION("warmelt-first.melt:1471:/ cond.else");
+        } else {MELT_LOCATION("warmelt-first.melt:1466:/ cond.else");
         
-         MELT_LOCATION("warmelt-first.melt:1471:/ block");
+         MELT_LOCATION("warmelt-first.melt:1466:/ block");
          /*block*/{
           /*_#STRING___L5*/ curfnum[4] = 
            melt_string_less((melt_ptr_t)(/*_.SN2__V9*/ curfptr[8]), (melt_ptr_t)(/*_.SN1__V8*/ curfptr[7]));;
-          MELT_LOCATION("warmelt-first.melt:1473:/ cond");
+          MELT_LOCATION("warmelt-first.melt:1468:/ cond");
           /*cond*/ if (/*_#STRING___L5*/ curfnum[4]) /*then*/ {
-          MELT_LOCATION("warmelt-first.melt:1473:/ cond.then");
+          MELT_LOCATION("warmelt-first.melt:1468:/ cond.then");
           /*_.IFELSE___V11*/ curfptr[10] = (/*!konst_5*/ curfrout->tabval[5]);;
-          } else {MELT_LOCATION("warmelt-first.melt:1473:/ cond.else");
+          } else {MELT_LOCATION("warmelt-first.melt:1468:/ cond.else");
           
-           MELT_LOCATION("warmelt-first.melt:1473:/ block");
+           MELT_LOCATION("warmelt-first.melt:1468:/ block");
            /*block*/{
-            MELT_LOCATION("warmelt-first.melt:1475:/ block");
+            MELT_LOCATION("warmelt-first.melt:1470:/ block");
             /*block*/{
              /*_.PROGN___V12*/ curfptr[11] = (/*!konst_6*/ curfrout->tabval[6]);;}
             ;
             /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V12*/ curfptr[11];;
             /*epilog*/
-            MELT_LOCATION("warmelt-first.melt:1473:/ clear");
+            MELT_LOCATION("warmelt-first.melt:1468:/ clear");
             /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
            ;
            }
           ;
           /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:1471:/ clear");
+          MELT_LOCATION("warmelt-first.melt:1466:/ clear");
           /*clear*/ /*_#STRING___L5*/ curfnum[4] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:1471:/ clear");
+          MELT_LOCATION("warmelt-first.melt:1466:/ clear");
           /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
          ;
          }
         ;
         /*_.LET___V7*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[9];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:1468:/ clear");
+        MELT_LOCATION("warmelt-first.melt:1463:/ clear");
         /*clear*/ /*_.SN1__V8*/ curfptr[7] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:1468:/ clear");
+        MELT_LOCATION("warmelt-first.melt:1463:/ clear");
         /*clear*/ /*_.SN2__V9*/ curfptr[8] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:1468:/ clear");
+        MELT_LOCATION("warmelt-first.melt:1463:/ clear");
         /*clear*/ /*_#STRING___L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:1468:/ clear");
+        MELT_LOCATION("warmelt-first.melt:1463:/ clear");
         /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
        ;
-       MELT_LOCATION("warmelt-first.melt:1467:/ block");
+       MELT_LOCATION("warmelt-first.melt:1462:/ block");
        /*block*/{
         /*_.PROGN___V13*/ curfptr[11] = /*_.LET___V7*/ curfptr[6];;}
        ;
        /*_.IFELSE___V6*/ curfptr[5] = /*_.PROGN___V13*/ curfptr[11];;
        /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:1465:/ clear");
+       MELT_LOCATION("warmelt-first.melt:1460:/ clear");
        /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:1465:/ clear");
+       MELT_LOCATION("warmelt-first.melt:1460:/ clear");
        /*clear*/ /*_.PROGN___V13*/ curfptr[11] = 0 ;}
       ;
       }
      ;
      /*_.IFELSE___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:1463:/ clear");
+     MELT_LOCATION("warmelt-first.melt:1458:/ clear");
      /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:1463:/ clear");
+     MELT_LOCATION("warmelt-first.melt:1458:/ clear");
      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
     ;
     }
    ;
    /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:1462:/ clear");
+   MELT_LOCATION("warmelt-first.melt:1457:/ clear");
    /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:1462:/ clear");
+   MELT_LOCATION("warmelt-first.melt:1457:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   ;
   }
  ;
- MELT_LOCATION("warmelt-first.melt:1458:/ block");
+ MELT_LOCATION("warmelt-first.melt:1453:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:1458:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:1453:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:1458:/ clear");
+ MELT_LOCATION("warmelt-first.melt:1453:/ clear");
  /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:1458:/ clear");
+ MELT_LOCATION("warmelt-first.melt:1453:/ clear");
  /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -861,40 +861,40 @@ melt_trace_start("INSTALL_CTYPE_DESCR", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2321:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2316:/ getarg");
  /*_.CTYP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2321:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2316:/ getarg");
  if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2321:/ block");
+MELT_LOCATION("warmelt-first.melt:2316:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2325:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2325:/ block");
+  MELT_LOCATION("warmelt-first.melt:2320:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2320:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2325:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2320:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2325:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2320:/ cond.then");
    /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2325:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2320:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2325:/ block");
+    MELT_LOCATION("warmelt-first.melt:2320:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2325:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2320:/ locexp");
       melt_assert_failed(( "check ctyp"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2325)?(2325):__LINE__, __FUNCTION__);
+  (2320)?(2320):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
@@ -905,49 +905,49 @@ MELT_LOCATION("warmelt-first.melt:2321:/ block");
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2325:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2320:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2325:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2320:/ clear");
    /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2325:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2320:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2326:/ getslot");
+ MELT_LOCATION("warmelt-first.melt:2321:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V2*/ curfptr[1]), 9, "CTYPE_DESCR");/*_.CTYPE_DESCR__V5*/ curfptr[3] = slot; };
  ;
- MELT_LOCATION("warmelt-first.melt:2326:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2321:/ cond");
  /*cond*/ if (/*_.CTYPE_DESCR__V5*/ curfptr[3]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2326:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2326:/ block");
+ MELT_LOCATION("warmelt-first.melt:2321:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2321:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2327:/ block");
+   MELT_LOCATION("warmelt-first.melt:2322:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-first.melt:2327:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:2322:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.IF___V6*/ curfptr[5] = /*_.RETURN___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2326:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2321:/ clear");
    /*clear*/ /*_.RETURN___V7*/ curfptr[6] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:2326:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2321:/ cond.else");
  
   /*_.IF___V6*/ curfptr[5] = NULL;;
   }
  ;
- MELT_LOCATION("warmelt-first.melt:2328:/ block");
+ MELT_LOCATION("warmelt-first.melt:2323:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2328:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2323:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V2*/ curfptr[1]), 2, "CTYPE_KEYWORD");/*_.CKW__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2329:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2324:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V2*/ curfptr[1]), 10, "CTYPE_ALTKEYWORD");/*_.ALTKW__V10*/ curfptr[9] = slot; };
   ;
@@ -955,25 +955,25 @@ MELT_LOCATION("warmelt-first.melt:2321:/ block");
    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[1])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2332:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2332:/ block");
+   MELT_LOCATION("warmelt-first.melt:2327:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2327:/ block");
    /*block*/{
     /*_#IS_A__L2*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.CKW__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-first.melt:2332:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2327:/ cond");
     /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2332:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2327:/ cond.then");
     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2332:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2327:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2332:/ block");
+     MELT_LOCATION("warmelt-first.melt:2327:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2332:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2327:/ locexp");
        melt_assert_failed(( "check ctype ckw"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2332)?(2332):__LINE__, __FUNCTION__);
+  (2327)?(2327):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
@@ -984,46 +984,46 @@ MELT_LOCATION("warmelt-first.melt:2321:/ block");
     ;
     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2332:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2327:/ clear");
     /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2332:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2327:/ clear");
     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2332:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2327:/ cppif.else");
   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-first.melt:2333:/ block");
+  MELT_LOCATION("warmelt-first.melt:2328:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2333:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2328:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @SYMB_DATA", melt_magic_discr((melt_ptr_t)(/*_.CKW__V9*/ curfptr[8])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.CKW__V9*/ curfptr[8]), (2), (/*_.CTYP__V2*/ curfptr[1]), "SYMB_DATA");
    ;
-   MELT_LOCATION("warmelt-first.melt:2333:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2328:/ touch");
    meltgc_touch(/*_.CKW__V9*/ curfptr[8]);
    ;
    /*epilog*/}
   ;
   /*_#IS_A__L3*/ curfnum[0] = 
    melt_is_instance_of((melt_ptr_t)(/*_.ALTKW__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-first.melt:2334:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2329:/ cond");
   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2334:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2334:/ block");
+  MELT_LOCATION("warmelt-first.melt:2329:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2329:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2335:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2330:/ cond");
     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ALTKW__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])))) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2335:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:2335:/ block");
+    MELT_LOCATION("warmelt-first.melt:2330:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2330:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-first.melt:2335:/ putslot");
+      MELT_LOCATION("warmelt-first.melt:2330:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @SYMB_DATA", melt_magic_discr((melt_ptr_t)(/*_.ALTKW__V10*/ curfptr[9])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.ALTKW__V10*/ curfptr[9]), (2), (/*_.CTYP__V2*/ curfptr[1]), "SYMB_DATA");
       ;
-      MELT_LOCATION("warmelt-first.melt:2335:/ touch");
+      MELT_LOCATION("warmelt-first.melt:2330:/ touch");
       meltgc_touch(/*_.ALTKW__V10*/ curfptr[9]);
       ;
       /*epilog*/}
@@ -1036,32 +1036,32 @@ MELT_LOCATION("warmelt-first.melt:2321:/ block");
   ;
   /*_.LET___V8*/ curfptr[6] = /*_.DS__V11*/ curfptr[10];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2328:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2323:/ clear");
   /*clear*/ /*_.CKW__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2328:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2323:/ clear");
   /*clear*/ /*_.ALTKW__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2328:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2323:/ clear");
   /*clear*/ /*_.DS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2328:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2323:/ clear");
   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2328:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2323:/ clear");
   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2321:/ block");
+ MELT_LOCATION("warmelt-first.melt:2316:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:2321:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2316:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2321:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2316:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2321:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2316:/ clear");
  /*clear*/ /*_.CTYPE_DESCR__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2321:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2316:/ clear");
  /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2321:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2316:/ clear");
  /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -1122,11 +1122,11 @@ melt_trace_start("ADD_NEW_SYMBOL_TOKEN", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2559:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2554:/ getarg");
  /*_.SYDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2559:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2554:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.STR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.STR__V3*/ curfptr[2])) != NULL);
@@ -1135,29 +1135,29 @@ melt_trace_start("ADD_NEW_SYMBOL_TOKEN", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2559:/ block");
+MELT_LOCATION("warmelt-first.melt:2554:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2560:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2560:/ block");
+  MELT_LOCATION("warmelt-first.melt:2555:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2555:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.SYDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2560:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2555:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2560:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2555:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2560:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2555:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2560:/ block");
+    MELT_LOCATION("warmelt-first.melt:2555:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2560:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2555:/ locexp");
       melt_assert_failed(( "check syda"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2560)?(2560):__LINE__, __FUNCTION__);
+  (2555)?(2555):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -1168,59 +1168,59 @@ MELT_LOCATION("warmelt-first.melt:2559:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2560:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2555:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2560:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2555:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2560:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2555:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2561:/ block");
+ MELT_LOCATION("warmelt-first.melt:2556:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2561:/ block");
+  MELT_LOCATION("warmelt-first.melt:2556:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2561:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:2556:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), (3), "CLASS_SYMBOL");/*_.INST__V8*/ curfptr[7] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-first.melt:2561:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2556:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.STR__V3*/ curfptr[2]), "NAMED_NAME");
    ;
    /*_.SY__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2562:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2557:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYDA__V2*/ curfptr[1]), 6, "SYSDATA_SYMBOLDICT");/*_.SYDICT__V9*/ curfptr[8] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:2564:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:2559:/ locexp");
   meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.SYDICT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.STR__V3*/ curfptr[2])), (melt_ptr_t)(/*_.SY__V7*/ curfptr[6]));}
   ;
   /*_.LET___V6*/ curfptr[4] = /*_.SY__V7*/ curfptr[6];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2561:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2556:/ clear");
   /*clear*/ /*_.SY__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2561:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2556:/ clear");
   /*clear*/ /*_.SYDICT__V9*/ curfptr[8] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2559:/ block");
+ MELT_LOCATION("warmelt-first.melt:2554:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:2559:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2554:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2559:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2554:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2559:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2554:/ clear");
  /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -1281,11 +1281,11 @@ melt_trace_start("ADD_NEW_KEYWORD_TOKEN", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2568:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2563:/ getarg");
  /*_.SYDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2568:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2563:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.STR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.STR__V3*/ curfptr[2])) != NULL);
@@ -1294,29 +1294,29 @@ melt_trace_start("ADD_NEW_KEYWORD_TOKEN", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2568:/ block");
+MELT_LOCATION("warmelt-first.melt:2563:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2569:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2569:/ block");
+  MELT_LOCATION("warmelt-first.melt:2564:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2564:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.SYDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2569:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2564:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2569:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2564:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2569:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2564:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2569:/ block");
+    MELT_LOCATION("warmelt-first.melt:2564:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2569:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2564:/ locexp");
       melt_assert_failed(( "check syda"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2569)?(2569):__LINE__, __FUNCTION__);
+  (2564)?(2564):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -1327,59 +1327,59 @@ MELT_LOCATION("warmelt-first.melt:2568:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2569:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2564:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2569:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2564:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2569:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2564:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2570:/ block");
+ MELT_LOCATION("warmelt-first.melt:2565:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2570:/ block");
+  MELT_LOCATION("warmelt-first.melt:2565:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2570:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:2565:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])), (3), "CLASS_KEYWORD");/*_.INST__V8*/ curfptr[7] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-first.melt:2570:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2565:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.STR__V3*/ curfptr[2]), "NAMED_NAME");
    ;
    /*_.KW__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2571:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2566:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYDA__V2*/ curfptr[1]), 7, "SYSDATA_KEYWDICT");/*_.KWDICT__V9*/ curfptr[8] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:2573:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:2568:/ locexp");
   meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.KWDICT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.STR__V3*/ curfptr[2])), (melt_ptr_t)(/*_.KW__V7*/ curfptr[6]));}
   ;
   /*_.LET___V6*/ curfptr[4] = /*_.KW__V7*/ curfptr[6];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2570:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2565:/ clear");
   /*clear*/ /*_.KW__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2570:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2565:/ clear");
   /*clear*/ /*_.KWDICT__V9*/ curfptr[8] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2568:/ block");
+ MELT_LOCATION("warmelt-first.melt:2563:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:2568:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2563:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2568:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2563:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2568:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2563:/ clear");
  /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -1440,11 +1440,11 @@ melt_trace_start("INTERN_SYMBOL", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2577:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2572:/ getarg");
  /*_.INIDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2577:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2572:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
@@ -1453,29 +1453,29 @@ melt_trace_start("INTERN_SYMBOL", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2577:/ block");
+MELT_LOCATION("warmelt-first.melt:2572:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2578:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2578:/ block");
+  MELT_LOCATION("warmelt-first.melt:2573:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2573:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.INIDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2578:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2573:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2578:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2573:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2578:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2573:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2578:/ block");
+    MELT_LOCATION("warmelt-first.melt:2573:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2578:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2573:/ locexp");
       melt_assert_failed(( "check inidat"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2578)?(2578):__LINE__, __FUNCTION__);
+  (2573)?(2573):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -1486,37 +1486,37 @@ MELT_LOCATION("warmelt-first.melt:2577:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2578:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2573:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2578:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2573:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2578:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2573:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2579:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2579:/ block");
+  MELT_LOCATION("warmelt-first.melt:2574:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2574:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:2579:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2574:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2579:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2574:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2579:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2574:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2579:/ block");
+    MELT_LOCATION("warmelt-first.melt:2574:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2579:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2574:/ locexp");
       melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2579)?(2579):__LINE__, __FUNCTION__);
+  (2574)?(2574):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -1527,76 +1527,76 @@ MELT_LOCATION("warmelt-first.melt:2577:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2579:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2574:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2579:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2574:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2579:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2574:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2580:/ block");
+ MELT_LOCATION("warmelt-first.melt:2575:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2580:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2575:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.SYNAME__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2581:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2576:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIDAT__V2*/ curfptr[1]), 6, "SYSDATA_SYMBOLDICT");/*_.SYDICT__V10*/ curfptr[9] = slot; };
   ;
   /*_.OLDSY__V11*/ curfptr[10] = 
    (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.SYDICT__V10*/ curfptr[9]), melt_string_str((melt_ptr_t)(/*_.SYNAME__V9*/ curfptr[8]))));;
-  MELT_LOCATION("warmelt-first.melt:2583:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2578:/ cond");
   /*cond*/ if (/*_.OLDSY__V11*/ curfptr[10]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2583:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2578:/ cond.then");
   /*_.IFELSE___V12*/ curfptr[11] = /*_.OLDSY__V11*/ curfptr[10];;
-  } else {MELT_LOCATION("warmelt-first.melt:2583:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2578:/ cond.else");
   
-   MELT_LOCATION("warmelt-first.melt:2583:/ block");
+   MELT_LOCATION("warmelt-first.melt:2578:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:2586:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2581:/ locexp");
     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.SYDICT__V10*/ curfptr[9]), melt_string_str((melt_ptr_t)(/*_.SYNAME__V9*/ curfptr[8])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]));}
     ;
-    MELT_LOCATION("warmelt-first.melt:2585:/ block");
+    MELT_LOCATION("warmelt-first.melt:2580:/ block");
     /*block*/{
      /*_.PROGN___V13*/ curfptr[12] = /*_.SYMB__V3*/ curfptr[2];;}
     ;
     /*_.IFELSE___V12*/ curfptr[11] = /*_.PROGN___V13*/ curfptr[12];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2583:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2578:/ clear");
     /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
    ;
    }
   ;
   /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V12*/ curfptr[11];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2580:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2575:/ clear");
   /*clear*/ /*_.SYNAME__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2580:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2575:/ clear");
   /*clear*/ /*_.SYDICT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2580:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2575:/ clear");
   /*clear*/ /*_.OLDSY__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2580:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2575:/ clear");
   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2577:/ block");
+ MELT_LOCATION("warmelt-first.melt:2572:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:2577:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2572:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2577:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2572:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2577:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2572:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2577:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2572:/ clear");
  /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -1657,11 +1657,11 @@ melt_trace_start("INTERN_KEYWORD", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2593:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2588:/ getarg");
  /*_.INIDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2593:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2588:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.KEYW__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.KEYW__V3*/ curfptr[2])) != NULL);
@@ -1670,29 +1670,29 @@ melt_trace_start("INTERN_KEYWORD", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2593:/ block");
+MELT_LOCATION("warmelt-first.melt:2588:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2594:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2594:/ block");
+  MELT_LOCATION("warmelt-first.melt:2589:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2589:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.INIDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2594:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2589:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2594:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2589:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2594:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2589:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2594:/ block");
+    MELT_LOCATION("warmelt-first.melt:2589:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2594:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2589:/ locexp");
       melt_assert_failed(( "check inidat"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2594)?(2594):__LINE__, __FUNCTION__);
+  (2589)?(2589):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -1703,37 +1703,37 @@ MELT_LOCATION("warmelt-first.melt:2593:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2594:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2589:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2594:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2589:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2594:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2589:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2595:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2595:/ block");
+  MELT_LOCATION("warmelt-first.melt:2590:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2590:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.KEYW__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:2595:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2590:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2595:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2590:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2595:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2590:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2595:/ block");
+    MELT_LOCATION("warmelt-first.melt:2590:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2595:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2590:/ locexp");
       melt_assert_failed(( "check keyw"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2595)?(2595):__LINE__, __FUNCTION__);
+  (2590)?(2590):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -1744,76 +1744,76 @@ MELT_LOCATION("warmelt-first.melt:2593:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2595:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2590:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2595:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2590:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2595:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2590:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2596:/ block");
+ MELT_LOCATION("warmelt-first.melt:2591:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2596:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2591:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.KEYW__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.KWNAME__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2597:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2592:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIDAT__V2*/ curfptr[1]), 7, "SYSDATA_KEYWDICT");/*_.KWDICT__V10*/ curfptr[9] = slot; };
   ;
   /*_.OLDKW__V11*/ curfptr[10] = 
    (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.KWDICT__V10*/ curfptr[9]), melt_string_str((melt_ptr_t)(/*_.KWNAME__V9*/ curfptr[8]))));;
-  MELT_LOCATION("warmelt-first.melt:2599:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2594:/ cond");
   /*cond*/ if (/*_.OLDKW__V11*/ curfptr[10]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2599:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2594:/ cond.then");
   /*_.IFELSE___V12*/ curfptr[11] = /*_.OLDKW__V11*/ curfptr[10];;
-  } else {MELT_LOCATION("warmelt-first.melt:2599:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2594:/ cond.else");
   
-   MELT_LOCATION("warmelt-first.melt:2599:/ block");
+   MELT_LOCATION("warmelt-first.melt:2594:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:2601:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2596:/ locexp");
     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.KWDICT__V10*/ curfptr[9]), melt_string_str((melt_ptr_t)(/*_.KWNAME__V9*/ curfptr[8])), (melt_ptr_t)(/*_.KEYW__V3*/ curfptr[2]));}
     ;
-    MELT_LOCATION("warmelt-first.melt:2601:/ block");
+    MELT_LOCATION("warmelt-first.melt:2596:/ block");
     /*block*/{
      /*_.PROGN___V13*/ curfptr[12] = /*_.KEYW__V3*/ curfptr[2];;}
     ;
     /*_.IFELSE___V12*/ curfptr[11] = /*_.PROGN___V13*/ curfptr[12];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2599:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2594:/ clear");
     /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
    ;
    }
   ;
   /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V12*/ curfptr[11];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2596:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2591:/ clear");
   /*clear*/ /*_.KWNAME__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2596:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2591:/ clear");
   /*clear*/ /*_.KWDICT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2596:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2591:/ clear");
   /*clear*/ /*_.OLDKW__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2596:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2591:/ clear");
   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2593:/ block");
+ MELT_LOCATION("warmelt-first.melt:2588:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:2593:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2588:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2593:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2588:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2593:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2588:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2593:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2588:/ clear");
  /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -1875,75 +1875,75 @@ melt_trace_start("CLONE_SYMBOL", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2609:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2604:/ getarg");
  /*_.SYMB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2609:/ block");
+MELT_LOCATION("warmelt-first.melt:2604:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2611:/ block");
+ MELT_LOCATION("warmelt-first.melt:2606:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2611:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2606:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!CONTAINER_CLONEMAPSTRING*/ curfrout->tabval[0])), 0, "CONTAINER_VALUE");/*_.MAPSTR__V4*/ curfptr[3] = slot; };
   ;
   /*_#IS_STRING__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.SYMB__V2*/ curfptr[1])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-first.melt:2614:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2609:/ cond");
   /*cond*/ if (/*_#IS_STRING__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2614:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2609:/ cond.then");
   /*_.SYNAM__V5*/ curfptr[4] = /*_.SYMB__V2*/ curfptr[1];;
-  } else {MELT_LOCATION("warmelt-first.melt:2614:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2609:/ cond.else");
   
-   MELT_LOCATION("warmelt-first.melt:2614:/ block");
+   MELT_LOCATION("warmelt-first.melt:2609:/ block");
    /*block*/{
     /*_#IS_A__L2*/ curfnum[1] = 
      melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-first.melt:2616:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2611:/ cond");
     /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2616:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:2616:/ block");
+    MELT_LOCATION("warmelt-first.melt:2611:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2611:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-first.melt:2617:/ getslot");
+      MELT_LOCATION("warmelt-first.melt:2612:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ curfptr[6] = slot; };
       ;
       /*_.IFELSE___V6*/ curfptr[5] = /*_.NAMED_NAME__V7*/ curfptr[6];;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:2616:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2611:/ clear");
       /*clear*/ /*_.NAMED_NAME__V7*/ curfptr[6] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-first.melt:2616:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2611:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2616:/ block");
+     MELT_LOCATION("warmelt-first.melt:2611:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-first.melt:2619:/ block");
+      MELT_LOCATION("warmelt-first.melt:2614:/ block");
       /*block*/{
        /*_.DISCRIM__V9*/ curfptr[8] = 
         (melt_discr((melt_ptr_t)(/*_.SYMB__V2*/ curfptr[1])));;
-       MELT_LOCATION("warmelt-first.melt:2619:/ cond");
+       MELT_LOCATION("warmelt-first.melt:2614:/ cond");
        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:2619:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:2619:/ getslot");
+       MELT_LOCATION("warmelt-first.melt:2614:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:2614:/ getslot");
         { melt_ptr_t slot=0;
          melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V9*/ curfptr[8]), 1, "NAMED_NAME");/*_.DISCRINAM__V10*/ curfptr[9] = slot; };
         ;
-       } else {MELT_LOCATION("warmelt-first.melt:2619:/ cond.else");
+       } else {MELT_LOCATION("warmelt-first.melt:2614:/ cond.else");
        
         /*_.DISCRINAM__V10*/ curfptr[9] = NULL;;
         }
        ;
        
        {
-       MELT_LOCATION("warmelt-first.melt:2621:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2616:/ locexp");
        warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "clone_symbol got invalid argument of discriminant"), 
 	       melt_string_str((melt_ptr_t)(/*_.DISCRINAM__V10*/ curfptr[9])));}
        ;
        
        {
-       MELT_LOCATION("warmelt-first.melt:2623:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2618:/ locexp");
         
 #if ENABLE_CHECKING
   if (flag_melt_debug)
@@ -1953,50 +1953,50 @@ MELT_LOCATION("warmelt-first.melt:2609:/ block");
        ;
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-first.melt:2624:/ cppif.then");
-       MELT_LOCATION("warmelt-first.melt:2624:/ block");
+        MELT_LOCATION("warmelt-first.melt:2619:/ cppif.then");
+       MELT_LOCATION("warmelt-first.melt:2619:/ block");
         /*block*/{
          /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
           callcount;;
-         MELT_LOCATION("warmelt-first.melt:2624:/ apply");
+         MELT_LOCATION("warmelt-first.melt:2619:/ apply");
          /*apply*/{
           union meltparam_un argtab[4];
           memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-first.melt:2624:/ apply.arg");
+          MELT_LOCATION("warmelt-first.melt:2619:/ apply.arg");
           argtab[0].bp_cstring =  "clone_symbol bad symb";
-          MELT_LOCATION("warmelt-first.melt:2624:/ apply.arg");
+          MELT_LOCATION("warmelt-first.melt:2619:/ apply.arg");
           argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
-          MELT_LOCATION("warmelt-first.melt:2624:/ apply.arg");
+          MELT_LOCATION("warmelt-first.melt:2619:/ apply.arg");
           argtab[2].bp_cstring =  "warmelt-first.melt";
-          MELT_LOCATION("warmelt-first.melt:2624:/ apply.arg");
-          argtab[3].bp_long = 2624;
+          MELT_LOCATION("warmelt-first.melt:2619:/ apply.arg");
+          argtab[3].bp_long = 2619;
           /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
           }
          ;
          /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
          /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:2624:/ clear");
+         MELT_LOCATION("warmelt-first.melt:2619:/ clear");
          /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:2624:/ clear");
+         MELT_LOCATION("warmelt-first.melt:2619:/ clear");
          /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-first.melt:2624:/ cppif.else");
+        MELT_LOCATION("warmelt-first.melt:2619:/ cppif.else");
        /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
        
        {
-       MELT_LOCATION("warmelt-first.melt:2625:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2620:/ locexp");
        debugvalue(( "clone_symbol symn not named or string"), ((void*)(/*_.SYMB__V2*/ curfptr[1])));}
        ;
-       MELT_LOCATION("warmelt-first.melt:2626:/ block");
+       MELT_LOCATION("warmelt-first.melt:2621:/ block");
        /*block*/{
         /*_?*/ curfram__.loc_CSTRING__o0 = 
          (char*)0;;
         
         {
-        MELT_LOCATION("warmelt-first.melt:2629:/ locexp");
+        MELT_LOCATION("warmelt-first.melt:2624:/ locexp");
         
 		      static char clonambuf[100];
 		      const char *s = melt_string_str (/*_.DISCRINAM__V10*/ curfptr[9]);
@@ -2013,40 +2013,40 @@ MELT_LOCATION("warmelt-first.melt:2609:/ block");
          (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
         /*_.LET___V13*/ curfptr[11] = /*_.MAKE_STRINGCONST__V14*/ curfptr[13];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:2626:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2621:/ clear");
         /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
-        MELT_LOCATION("warmelt-first.melt:2626:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2621:/ clear");
         /*clear*/ /*_.MAKE_STRINGCONST__V14*/ curfptr[13] = 0 ;}
        ;
        /*_.LET___V8*/ curfptr[6] = /*_.LET___V13*/ curfptr[11];;
        /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:2619:/ clear");
+       MELT_LOCATION("warmelt-first.melt:2614:/ clear");
        /*clear*/ /*_.DISCRIM__V9*/ curfptr[8] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:2619:/ clear");
+       MELT_LOCATION("warmelt-first.melt:2614:/ clear");
        /*clear*/ /*_.DISCRINAM__V10*/ curfptr[9] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:2619:/ clear");
+       MELT_LOCATION("warmelt-first.melt:2614:/ clear");
        /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:2619:/ clear");
+       MELT_LOCATION("warmelt-first.melt:2614:/ clear");
        /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
       ;
-      MELT_LOCATION("warmelt-first.melt:2618:/ block");
+      MELT_LOCATION("warmelt-first.melt:2613:/ block");
       /*block*/{
        /*_.PROGN___V15*/ curfptr[13] = /*_.LET___V8*/ curfptr[6];;}
       ;
       /*_.IFELSE___V6*/ curfptr[5] = /*_.PROGN___V15*/ curfptr[13];;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:2616:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2611:/ clear");
       /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:2616:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2611:/ clear");
       /*clear*/ /*_.PROGN___V15*/ curfptr[13] = 0 ;}
      ;
      }
     ;
     /*_.SYNAM__V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2614:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2609:/ clear");
     /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2614:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2609:/ clear");
     /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
    ;
    }
@@ -2055,25 +2055,25 @@ MELT_LOCATION("warmelt-first.melt:2609:/ block");
    (melt_get_mapstrings((struct meltmapstrings_st*)(/*_.MAPSTR__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.SYNAM__V5*/ curfptr[4]))));;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2645:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2645:/ block");
+   MELT_LOCATION("warmelt-first.melt:2640:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2640:/ block");
    /*block*/{
     /*_#IS_STRING__L4*/ curfnum[2] = 
      (melt_magic_discr((melt_ptr_t)(/*_.SYNAM__V5*/ curfptr[4])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-first.melt:2645:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2640:/ cond");
     /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2645:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2640:/ cond.then");
     /*_.IFELSE___V18*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2645:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2640:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2645:/ block");
+     MELT_LOCATION("warmelt-first.melt:2640:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2645:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2640:/ locexp");
        melt_assert_failed(( "check synam"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2645)?(2645):__LINE__, __FUNCTION__);
+  (2640)?(2640):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V18*/ curfptr[10] = 0 ;}
@@ -2084,13 +2084,13 @@ MELT_LOCATION("warmelt-first.melt:2609:/ block");
     ;
     /*_.IFCPP___V17*/ curfptr[9] = /*_.IFELSE___V18*/ curfptr[10];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2645:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2640:/ clear");
     /*clear*/ /*_#IS_STRING__L4*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2645:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2640:/ clear");
     /*clear*/ /*_.IFELSE___V18*/ curfptr[10] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2645:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2640:/ cppif.else");
   /*_.IFCPP___V17*/ curfptr[9] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
@@ -2098,59 +2098,59 @@ MELT_LOCATION("warmelt-first.melt:2609:/ block");
    (melt_magic_discr((melt_ptr_t)(/*_.BOXI__V16*/ curfptr[8])) == OBMAG_INT);;
   /*_#NOT__L6*/ curfnum[2] = 
    (!(/*_#IS_INTEGERBOX__L5*/ curfnum[1]));;
-  MELT_LOCATION("warmelt-first.melt:2646:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2641:/ cond");
   /*cond*/ if (/*_#NOT__L6*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2646:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2646:/ block");
+  MELT_LOCATION("warmelt-first.melt:2641:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2641:/ block");
    /*block*/{
     /*_.MAKE_INTEGERBOX__V19*/ curfptr[11] = 
      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (0)));;
-    MELT_LOCATION("warmelt-first.melt:2648:/ compute");
+    MELT_LOCATION("warmelt-first.melt:2643:/ compute");
     /*_.BOXI__V16*/ curfptr[8] = /*_.SETQ___V20*/ curfptr[6] = /*_.MAKE_INTEGERBOX__V19*/ curfptr[11];;
     
     {
-    MELT_LOCATION("warmelt-first.melt:2649:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2644:/ locexp");
     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.MAPSTR__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.SYNAM__V5*/ curfptr[4])), (melt_ptr_t)(/*_.BOXI__V16*/ curfptr[8]));}
     ;
-    MELT_LOCATION("warmelt-first.melt:2647:/ block");
+    MELT_LOCATION("warmelt-first.melt:2642:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2646:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2641:/ clear");
     /*clear*/ /*_.MAKE_INTEGERBOX__V19*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2646:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2641:/ clear");
     /*clear*/ /*_.SETQ___V20*/ curfptr[6] = 0 ;}
    ;
   } /*noelse*/
   ;
-  MELT_LOCATION("warmelt-first.melt:2650:/ block");
+  MELT_LOCATION("warmelt-first.melt:2645:/ block");
   /*block*/{
    /*_#I__L7*/ curfnum[6] = 
     (melt_get_int((melt_ptr_t)(/*_.BOXI__V16*/ curfptr[8])));;
    /*_#I__L8*/ curfnum[7] = 
     ((/*_#I__L7*/ curfnum[6]) + (1));;
-   MELT_LOCATION("warmelt-first.melt:2651:/ compute");
+   MELT_LOCATION("warmelt-first.melt:2646:/ compute");
    /*_#I__L7*/ curfnum[6] = /*_#SETQ___L9*/ curfnum[8] = /*_#I__L8*/ curfnum[7];;
    
    {
-   MELT_LOCATION("warmelt-first.melt:2652:/ locexp");
+   MELT_LOCATION("warmelt-first.melt:2647:/ locexp");
    melt_put_int((melt_ptr_t)(/*_.BOXI__V16*/ curfptr[8]), (/*_#I__L7*/ curfnum[6]));}
    ;
    /*_.MAKE_INTEGERBOX__V22*/ curfptr[5] = 
     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#I__L7*/ curfnum[6])));;
-   MELT_LOCATION("warmelt-first.melt:2653:/ block");
+   MELT_LOCATION("warmelt-first.melt:2648:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2653:/ rawallocobj");
+    MELT_LOCATION("warmelt-first.melt:2648:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[5])), (4), "CLASS_CLONED_SYMBOL");/*_.INST__V24*/ curfptr[11] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-first.melt:2653:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2648:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[11])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V24*/ curfptr[11]), (1), (/*_.SYNAM__V5*/ curfptr[4]), "NAMED_NAME");
     ;
-    MELT_LOCATION("warmelt-first.melt:2653:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2648:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @CSYM_URANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[11])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V24*/ curfptr[11]), (3), (/*_.MAKE_INTEGERBOX__V22*/ curfptr[5]), "CSYM_URANK");
@@ -2159,45 +2159,45 @@ MELT_LOCATION("warmelt-first.melt:2609:/ block");
    ;
    /*_.LET___V21*/ curfptr[13] = /*_.INST___V23*/ curfptr[10];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2650:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2645:/ clear");
    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2650:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2645:/ clear");
    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2650:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2645:/ clear");
    /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2650:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2645:/ clear");
    /*clear*/ /*_.MAKE_INTEGERBOX__V22*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2650:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2645:/ clear");
    /*clear*/ /*_.INST___V23*/ curfptr[10] = 0 ;}
   ;
   /*_.LET___V3*/ curfptr[2] = /*_.LET___V21*/ curfptr[13];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_.MAPSTR__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_#IS_STRING__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_.SYNAM__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_.BOXI__V16*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_.IFCPP___V17*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_#NOT__L6*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2611:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2606:/ clear");
   /*clear*/ /*_.LET___V21*/ curfptr[13] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2609:/ block");
+ MELT_LOCATION("warmelt-first.melt:2604:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:2609:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2604:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2609:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2604:/ clear");
  /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -2259,29 +2259,29 @@ melt_trace_start("INITFRESH_CONTENVMAKER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2662:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2657:/ getarg");
  /*_.PREVENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2662:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2657:/ getarg");
  if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2662:/ block");
+MELT_LOCATION("warmelt-first.melt:2657:/ block");
 /*block*/{
  /*_#NEED_DBG__L1*/ curfnum[0] = 
   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);;
- MELT_LOCATION("warmelt-first.melt:2663:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2658:/ cond");
  /*cond*/ if (/*_#NEED_DBG__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2663:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2663:/ block");
+ MELT_LOCATION("warmelt-first.melt:2658:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2658:/ block");
   /*block*/{
    
    {
-   MELT_LOCATION("warmelt-first.melt:2664:/ locexp");
+   MELT_LOCATION("warmelt-first.melt:2659:/ locexp");
     
 #if ENABLE_CHECKING
   if (flag_melt_debug)
@@ -2293,77 +2293,77 @@ MELT_LOCATION("warmelt-first.melt:2662:/ block");
   ;
  } /*noelse*/
  ;
- MELT_LOCATION("warmelt-first.melt:2665:/ block");
+ MELT_LOCATION("warmelt-first.melt:2660:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2666:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2661:/ cond");
   /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o0) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2666:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2666:/ block");
+  MELT_LOCATION("warmelt-first.melt:2661:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2661:/ block");
    /*block*/{
     /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 
      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[0])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
     /*_.DESCR__V4*/ curfptr[3] = /*_.MAKE_STRINGCONST__V5*/ curfptr[4];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2666:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2661:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-first.melt:2666:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2661:/ cond.else");
   
    /*_.DESCR__V4*/ curfptr[3] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2667:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2662:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2667:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2662:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESCR__V4*/ curfptr[3];
    /*_.NEWENV__V6*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PREVENV__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2668:/ block");
+  MELT_LOCATION("warmelt-first.melt:2663:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2668:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:2663:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[2])), (1), "CLASS_CONTAINER");/*_.INST__V8*/ curfptr[7] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-first.melt:2668:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2663:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), (/*_.NEWENV__V6*/ curfptr[4]), "CONTAINER_VALUE");
    ;
    /*_.NEWCONT__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2672:/ block");
+  MELT_LOCATION("warmelt-first.melt:2667:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.NEWCONT__V7*/ curfptr[6];;
-   MELT_LOCATION("warmelt-first.melt:2672:/ finalreturn");
+   MELT_LOCATION("warmelt-first.melt:2667:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V3*/ curfptr[2] = /*_.RETURN___V9*/ curfptr[8];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2665:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2660:/ clear");
   /*clear*/ /*_.DESCR__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2665:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2660:/ clear");
   /*clear*/ /*_.NEWENV__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2665:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2660:/ clear");
   /*clear*/ /*_.NEWCONT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2665:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2660:/ clear");
   /*clear*/ /*_.RETURN___V9*/ curfptr[8] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2662:/ block");
+ MELT_LOCATION("warmelt-first.melt:2657:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:2662:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2657:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2662:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2657:/ clear");
  /*clear*/ /*_#NEED_DBG__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2662:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2657:/ clear");
  /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -2424,18 +2424,18 @@ melt_trace_start("INITVALUE_EXPORTER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2676:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2671:/ getarg");
  /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2676:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2671:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:2676:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2671:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.CONTENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.CONTENV__V4*/ curfptr[3])) != NULL);
@@ -2444,83 +2444,83 @@ melt_trace_start("INITVALUE_EXPORTER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2676:/ block");
+MELT_LOCATION("warmelt-first.melt:2671:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2682:/ block");
+ MELT_LOCATION("warmelt-first.melt:2677:/ block");
  /*block*/{
   /*_.PARENV__V6*/ curfptr[5] = (/*!konst_0*/ curfrout->tabval[0]);;
   /*_#NULL__L1*/ curfnum[0] = 
    ((/*_.CONTENV__V4*/ curfptr[3]) == NULL);;
-  MELT_LOCATION("warmelt-first.melt:2683:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2678:/ cond");
   /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2683:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2683:/ block");
+  MELT_LOCATION("warmelt-first.melt:2678:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2678:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2685:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2680:/ cond");
     /*cond*/ if (/*_.PARENV__V6*/ curfptr[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2685:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:2685:/ block");
+    MELT_LOCATION("warmelt-first.melt:2680:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2680:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-first.melt:2686:/ getslot");
+      MELT_LOCATION("warmelt-first.melt:2681:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
       ;
       
       {
-      MELT_LOCATION("warmelt-first.melt:2686:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2681:/ locexp");
       warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "exporting value too early with null environment container"), 
 	       melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
       ;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:2685:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2680:/ clear");
       /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
      ;
     } /*noelse*/
     ;
-    MELT_LOCATION("warmelt-first.melt:2687:/ block");
+    MELT_LOCATION("warmelt-first.melt:2682:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-first.melt:2687:/ finalreturn");
+     MELT_LOCATION("warmelt-first.melt:2682:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
-    MELT_LOCATION("warmelt-first.melt:2684:/ block");
+    MELT_LOCATION("warmelt-first.melt:2679:/ block");
     /*block*/{
      /*_.PROGN___V10*/ curfptr[9] = /*_.RETURN___V9*/ curfptr[7];;}
     ;
     /*_.IF___V7*/ curfptr[6] = /*_.PROGN___V10*/ curfptr[9];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2683:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2678:/ clear");
     /*clear*/ /*_.RETURN___V9*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2683:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2678:/ clear");
     /*clear*/ /*_.PROGN___V10*/ curfptr[9] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-first.melt:2683:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2678:/ cond.else");
   
    /*_.IF___V7*/ curfptr[6] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2689:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2689:/ block");
+   MELT_LOCATION("warmelt-first.melt:2684:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2684:/ block");
    /*block*/{
     /*_#IS_A__L2*/ curfnum[1] = 
      melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-first.melt:2689:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2684:/ cond");
     /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2689:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2684:/ cond.then");
     /*_.IFELSE___V12*/ curfptr[9] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2689:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2684:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2689:/ block");
+     MELT_LOCATION("warmelt-first.melt:2684:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2689:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2684:/ locexp");
        melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2689)?(2689):__LINE__, __FUNCTION__);
+  (2684)?(2684):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V12*/ curfptr[9] = 0 ;}
@@ -2531,37 +2531,37 @@ MELT_LOCATION("warmelt-first.melt:2676:/ block");
     ;
     /*_.IFCPP___V11*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[9];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2689:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2684:/ clear");
     /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2689:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2684:/ clear");
     /*clear*/ /*_.IFELSE___V12*/ curfptr[9] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2689:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2684:/ cppif.else");
   /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2690:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2690:/ block");
+   MELT_LOCATION("warmelt-first.melt:2685:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2685:/ block");
    /*block*/{
     /*_#IS_A__L3*/ curfnum[1] = 
      melt_is_instance_of((melt_ptr_t)(/*_.CONTENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-first.melt:2690:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2685:/ cond");
     /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2690:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2685:/ cond.then");
     /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2690:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2685:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2690:/ block");
+     MELT_LOCATION("warmelt-first.melt:2685:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2690:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2685:/ locexp");
        melt_assert_failed(( "check contenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2690)?(2690):__LINE__, __FUNCTION__);
+  (2685)?(2685):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
@@ -2572,94 +2572,94 @@ MELT_LOCATION("warmelt-first.melt:2676:/ block");
     ;
     /*_.IFCPP___V13*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2690:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2685:/ clear");
     /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2690:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2685:/ clear");
     /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2690:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2685:/ cppif.else");
   /*_.IFCPP___V13*/ curfptr[9] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-first.melt:2691:/ block");
+  MELT_LOCATION("warmelt-first.melt:2686:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2691:/ getslot");
+   MELT_LOCATION("warmelt-first.melt:2686:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.CONTENV__V4*/ curfptr[3]), 0, "CONTAINER_VALUE");/*_.ENV__V16*/ curfptr[15] = slot; };
    ;
    /*_#NULL__L4*/ curfnum[1] = 
     ((/*_.ENV__V16*/ curfptr[15]) == NULL);;
-   MELT_LOCATION("warmelt-first.melt:2692:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2687:/ cond");
    /*cond*/ if (/*_#NULL__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2692:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2687:/ cond.then");
    /*_.IF___V17*/ curfptr[16] = /*_.PARENV__V6*/ curfptr[5];;
-   } else {MELT_LOCATION("warmelt-first.melt:2692:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2687:/ cond.else");
    
     /*_.IF___V17*/ curfptr[16] = NULL;;
     }
    ;
-   MELT_LOCATION("warmelt-first.melt:2692:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2687:/ cond");
    /*cond*/ if (/*_.IF___V17*/ curfptr[16]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2692:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:2692:/ block");
+   MELT_LOCATION("warmelt-first.melt:2687:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2687:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-first.melt:2694:/ getslot");
+     MELT_LOCATION("warmelt-first.melt:2689:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-first.melt:2694:/ locexp");
+     MELT_LOCATION("warmelt-first.melt:2689:/ locexp");
      inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "exporting value too early with null environment"), 
 			     melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18])));}
      ;
-     MELT_LOCATION("warmelt-first.melt:2695:/ block");
+     MELT_LOCATION("warmelt-first.melt:2690:/ block");
      /*block*/{
       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-      MELT_LOCATION("warmelt-first.melt:2695:/ finalreturn");
+      MELT_LOCATION("warmelt-first.melt:2690:/ finalreturn");
       ;
       /*finalret*/ goto labend_rout ;}
      ;
-     MELT_LOCATION("warmelt-first.melt:2693:/ block");
+     MELT_LOCATION("warmelt-first.melt:2688:/ block");
      /*block*/{
       /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;}
      ;
      /*_.IF___V18*/ curfptr[17] = /*_.PROGN___V21*/ curfptr[20];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2692:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2687:/ clear");
      /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2692:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2687:/ clear");
      /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2692:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2687:/ clear");
      /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-first.melt:2692:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2687:/ cond.else");
    
     /*_.IF___V18*/ curfptr[17] = NULL;;
     }
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:2697:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:2697:/ block");
+    MELT_LOCATION("warmelt-first.melt:2692:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:2692:/ block");
     /*block*/{
      /*_#IS_A__L5*/ curfnum[4] = 
       melt_is_instance_of((melt_ptr_t)(/*_.ENV__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-     MELT_LOCATION("warmelt-first.melt:2697:/ cond");
+     MELT_LOCATION("warmelt-first.melt:2692:/ cond");
      /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:2697:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:2692:/ cond.then");
      /*_.IFELSE___V23*/ curfptr[19] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-first.melt:2697:/ cond.else");
+     } else {MELT_LOCATION("warmelt-first.melt:2692:/ cond.else");
      
-      MELT_LOCATION("warmelt-first.melt:2697:/ block");
+      MELT_LOCATION("warmelt-first.melt:2692:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-first.melt:2697:/ locexp");
+        MELT_LOCATION("warmelt-first.melt:2692:/ locexp");
         melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2697)?(2697):__LINE__, __FUNCTION__);
+  (2692)?(2692):__LINE__, __FUNCTION__);
 ;}
         ;
         /*clear*/ /*_.IFELSE___V23*/ curfptr[19] = 0 ;}
@@ -2670,449 +2670,449 @@ MELT_LOCATION("warmelt-first.melt:2676:/ block");
      ;
      /*_.IFCPP___V22*/ curfptr[18] = /*_.IFELSE___V23*/ curfptr[19];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2697:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2692:/ clear");
      /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2697:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2692:/ clear");
      /*clear*/ /*_.IFELSE___V23*/ curfptr[19] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:2697:/ cppif.else");
+    MELT_LOCATION("warmelt-first.melt:2692:/ cppif.else");
    /*_.IFCPP___V22*/ curfptr[18] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-first.melt:2698:/ block");
+   MELT_LOCATION("warmelt-first.melt:2693:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2699:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2694:/ cond");
     /*cond*/ if (/*_.PARENV__V6*/ curfptr[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2699:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:2699:/ block");
+    MELT_LOCATION("warmelt-first.melt:2694:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2694:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-first.melt:2699:/ apply");
+      MELT_LOCATION("warmelt-first.melt:2694:/ apply");
       /*apply*/{
        union meltparam_un argtab[1];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:2699:/ apply.arg");
+       MELT_LOCATION("warmelt-first.melt:2694:/ apply.arg");
        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYM__V2*/ curfptr[1];
        /*_.FIND_ENV__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.PARENV__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.PREVBIND__V25*/ curfptr[19] = /*_.FIND_ENV__V26*/ curfptr[25];;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:2699:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2694:/ clear");
       /*clear*/ /*_.FIND_ENV__V26*/ curfptr[25] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-first.melt:2699:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2694:/ cond.else");
     
      /*_.PREVBIND__V25*/ curfptr[19] = NULL;;
      }
     ;
-    MELT_LOCATION("warmelt-first.melt:2700:/ block");
+    MELT_LOCATION("warmelt-first.melt:2695:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-first.melt:2700:/ rawallocobj");
+     MELT_LOCATION("warmelt-first.melt:2695:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[5])), (2), "CLASS_VALUE_BINDING");/*_.INST__V28*/ curfptr[27] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-first.melt:2700:/ putslot");
+     MELT_LOCATION("warmelt-first.melt:2695:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.SYM__V2*/ curfptr[1]), "BINDER");
      ;
-     MELT_LOCATION("warmelt-first.melt:2700:/ putslot");
+     MELT_LOCATION("warmelt-first.melt:2695:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @VBIND_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.VAL__V3*/ curfptr[2]), "VBIND_VALUE");
      ;
      /*_.VALBIND__V27*/ curfptr[25] = /*_.INST__V28*/ curfptr[27];;}
     ;
-    MELT_LOCATION("warmelt-first.melt:2705:/ getslot");
+    MELT_LOCATION("warmelt-first.melt:2700:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYMNAM__V29*/ curfptr[28] = slot; };
     ;
     /*_#NULL__L6*/ curfnum[4] = 
      ((/*_.PREVBIND__V25*/ curfptr[19]) == NULL);;
-    MELT_LOCATION("warmelt-first.melt:2708:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2703:/ cond");
     /*cond*/ if (/*_#NULL__L6*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2708:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2703:/ cond.then");
     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2708:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2703:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2708:/ block");
+     MELT_LOCATION("warmelt-first.melt:2703:/ block");
      /*block*/{
       /*_#IS_A__L7*/ curfnum[6] = 
        melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[6])));;
-      MELT_LOCATION("warmelt-first.melt:2709:/ cond");
+      MELT_LOCATION("warmelt-first.melt:2704:/ cond");
       /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:2709:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:2709:/ block");
+      MELT_LOCATION("warmelt-first.melt:2704:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:2704:/ block");
        /*block*/{
         /*_#IS_A__L9*/ curfnum[8] = 
          melt_is_instance_of((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ curfrout->tabval[7])));;
         /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:2709:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2704:/ clear");
         /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
        ;
-      } else {MELT_LOCATION("warmelt-first.melt:2709:/ cond.else");
+      } else {MELT_LOCATION("warmelt-first.melt:2704:/ cond.else");
       
        /*_#IF___L8*/ curfnum[7] = 0;;
        }
       ;
-      MELT_LOCATION("warmelt-first.melt:2709:/ cond");
+      MELT_LOCATION("warmelt-first.melt:2704:/ cond");
       /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:2709:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:2709:/ block");
+      MELT_LOCATION("warmelt-first.melt:2704:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:2704:/ block");
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-first.melt:2712:/ locexp");
+        MELT_LOCATION("warmelt-first.melt:2707:/ locexp");
         warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound selector"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
         ;
-        MELT_LOCATION("warmelt-first.melt:2713:/ block");
+        MELT_LOCATION("warmelt-first.melt:2708:/ block");
         /*block*/{
          /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-         MELT_LOCATION("warmelt-first.melt:2713:/ finalreturn");
+         MELT_LOCATION("warmelt-first.melt:2708:/ finalreturn");
          ;
          /*finalret*/ goto labend_rout ;}
         ;
-        MELT_LOCATION("warmelt-first.melt:2709:/ block");
+        MELT_LOCATION("warmelt-first.melt:2704:/ block");
         /*block*/{
          /*_.PROGN___V33*/ curfptr[32] = /*_.RETURN___V32*/ curfptr[31];;}
         ;
         /*_.IFELSE___V31*/ curfptr[30] = /*_.PROGN___V33*/ curfptr[32];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:2709:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2704:/ clear");
         /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:2709:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2704:/ clear");
         /*clear*/ /*_.PROGN___V33*/ curfptr[32] = 0 ;}
        ;
-      } else {MELT_LOCATION("warmelt-first.melt:2709:/ cond.else");
+      } else {MELT_LOCATION("warmelt-first.melt:2704:/ cond.else");
       
-       MELT_LOCATION("warmelt-first.melt:2709:/ block");
+       MELT_LOCATION("warmelt-first.melt:2704:/ block");
        /*block*/{
         /*_#IS_A__L10*/ curfnum[8] = 
          melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[8])));;
-        MELT_LOCATION("warmelt-first.melt:2714:/ cond");
+        MELT_LOCATION("warmelt-first.melt:2709:/ cond");
         /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:2714:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:2714:/ block");
+        MELT_LOCATION("warmelt-first.melt:2709:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:2709:/ block");
          /*block*/{
           /*_#IS_OBJECT__L12*/ curfnum[11] = 
            (melt_magic_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) == OBMAG_OBJECT);;
           /*_#IF___L11*/ curfnum[10] = /*_#IS_OBJECT__L12*/ curfnum[11];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:2714:/ clear");
+          MELT_LOCATION("warmelt-first.melt:2709:/ clear");
           /*clear*/ /*_#IS_OBJECT__L12*/ curfnum[11] = 0 ;}
          ;
-        } else {MELT_LOCATION("warmelt-first.melt:2714:/ cond.else");
+        } else {MELT_LOCATION("warmelt-first.melt:2709:/ cond.else");
         
          /*_#IF___L11*/ curfnum[10] = 0;;
          }
         ;
-        MELT_LOCATION("warmelt-first.melt:2714:/ cond");
+        MELT_LOCATION("warmelt-first.melt:2709:/ cond");
         /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:2714:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:2714:/ block");
+        MELT_LOCATION("warmelt-first.melt:2709:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:2709:/ block");
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-first.melt:2717:/ locexp");
+          MELT_LOCATION("warmelt-first.melt:2712:/ locexp");
           warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound instance"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
           ;
-          MELT_LOCATION("warmelt-first.melt:2718:/ block");
+          MELT_LOCATION("warmelt-first.melt:2713:/ block");
           /*block*/{
            /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-           MELT_LOCATION("warmelt-first.melt:2718:/ finalreturn");
+           MELT_LOCATION("warmelt-first.melt:2713:/ finalreturn");
            ;
            /*finalret*/ goto labend_rout ;}
           ;
-          MELT_LOCATION("warmelt-first.melt:2714:/ block");
+          MELT_LOCATION("warmelt-first.melt:2709:/ block");
           /*block*/{
            /*_.PROGN___V36*/ curfptr[35] = /*_.RETURN___V35*/ curfptr[32];;}
           ;
           /*_.IFELSE___V34*/ curfptr[31] = /*_.PROGN___V36*/ curfptr[35];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:2714:/ clear");
+          MELT_LOCATION("warmelt-first.melt:2709:/ clear");
           /*clear*/ /*_.RETURN___V35*/ curfptr[32] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:2714:/ clear");
+          MELT_LOCATION("warmelt-first.melt:2709:/ clear");
           /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
          ;
-        } else {MELT_LOCATION("warmelt-first.melt:2714:/ cond.else");
+        } else {MELT_LOCATION("warmelt-first.melt:2709:/ cond.else");
         
-         MELT_LOCATION("warmelt-first.melt:2714:/ block");
+         MELT_LOCATION("warmelt-first.melt:2709:/ block");
          /*block*/{
           /*_#IS_A__L13*/ curfnum[11] = 
            melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[9])));;
-          MELT_LOCATION("warmelt-first.melt:2719:/ cond");
+          MELT_LOCATION("warmelt-first.melt:2714:/ cond");
           /*cond*/ if (/*_#IS_A__L13*/ curfnum[11]) /*then*/ {
-          MELT_LOCATION("warmelt-first.melt:2719:/ cond.then");
-          MELT_LOCATION("warmelt-first.melt:2719:/ block");
+          MELT_LOCATION("warmelt-first.melt:2714:/ cond.then");
+          MELT_LOCATION("warmelt-first.melt:2714:/ block");
            /*block*/{
             /*_#IS_A__L15*/ curfnum[14] = 
              melt_is_instance_of((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[10])));;
             /*_#IF___L14*/ curfnum[13] = /*_#IS_A__L15*/ curfnum[14];;
             /*epilog*/
-            MELT_LOCATION("warmelt-first.melt:2719:/ clear");
+            MELT_LOCATION("warmelt-first.melt:2714:/ clear");
             /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ;}
            ;
-          } else {MELT_LOCATION("warmelt-first.melt:2719:/ cond.else");
+          } else {MELT_LOCATION("warmelt-first.melt:2714:/ cond.else");
           
            /*_#IF___L14*/ curfnum[13] = 0;;
            }
           ;
-          MELT_LOCATION("warmelt-first.melt:2719:/ cond");
+          MELT_LOCATION("warmelt-first.melt:2714:/ cond");
           /*cond*/ if (/*_#IF___L14*/ curfnum[13]) /*then*/ {
-          MELT_LOCATION("warmelt-first.melt:2719:/ cond.then");
-          MELT_LOCATION("warmelt-first.melt:2719:/ block");
+          MELT_LOCATION("warmelt-first.melt:2714:/ cond.then");
+          MELT_LOCATION("warmelt-first.melt:2714:/ block");
            /*block*/{
             
             {
-            MELT_LOCATION("warmelt-first.melt:2722:/ locexp");
+            MELT_LOCATION("warmelt-first.melt:2717:/ locexp");
             warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound primitive"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
             ;
-            MELT_LOCATION("warmelt-first.melt:2723:/ block");
+            MELT_LOCATION("warmelt-first.melt:2718:/ block");
             /*block*/{
              /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-             MELT_LOCATION("warmelt-first.melt:2723:/ finalreturn");
+             MELT_LOCATION("warmelt-first.melt:2718:/ finalreturn");
              ;
              /*finalret*/ goto labend_rout ;}
             ;
-            MELT_LOCATION("warmelt-first.melt:2719:/ block");
+            MELT_LOCATION("warmelt-first.melt:2714:/ block");
             /*block*/{
              /*_.PROGN___V39*/ curfptr[38] = /*_.RETURN___V38*/ curfptr[35];;}
             ;
             /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V39*/ curfptr[38];;
             /*epilog*/
-            MELT_LOCATION("warmelt-first.melt:2719:/ clear");
+            MELT_LOCATION("warmelt-first.melt:2714:/ clear");
             /*clear*/ /*_.RETURN___V38*/ curfptr[35] = 0 ;
-            MELT_LOCATION("warmelt-first.melt:2719:/ clear");
+            MELT_LOCATION("warmelt-first.melt:2714:/ clear");
             /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
            ;
-          } else {MELT_LOCATION("warmelt-first.melt:2719:/ cond.else");
+          } else {MELT_LOCATION("warmelt-first.melt:2714:/ cond.else");
           
-           MELT_LOCATION("warmelt-first.melt:2719:/ block");
+           MELT_LOCATION("warmelt-first.melt:2714:/ block");
            /*block*/{
             /*_#IS_A__L16*/ curfnum[14] = 
              melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[11])));;
-            MELT_LOCATION("warmelt-first.melt:2724:/ cond");
+            MELT_LOCATION("warmelt-first.melt:2719:/ cond");
             /*cond*/ if (/*_#IS_A__L16*/ curfnum[14]) /*then*/ {
-            MELT_LOCATION("warmelt-first.melt:2724:/ cond.then");
-            MELT_LOCATION("warmelt-first.melt:2724:/ block");
+            MELT_LOCATION("warmelt-first.melt:2719:/ cond.then");
+            MELT_LOCATION("warmelt-first.melt:2719:/ block");
              /*block*/{
               /*_#IS_CLOSURE__L18*/ curfnum[17] = 
                (melt_magic_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
               /*_#IF___L17*/ curfnum[16] = /*_#IS_CLOSURE__L18*/ curfnum[17];;
               /*epilog*/
-              MELT_LOCATION("warmelt-first.melt:2724:/ clear");
+              MELT_LOCATION("warmelt-first.melt:2719:/ clear");
               /*clear*/ /*_#IS_CLOSURE__L18*/ curfnum[17] = 0 ;}
              ;
-            } else {MELT_LOCATION("warmelt-first.melt:2724:/ cond.else");
+            } else {MELT_LOCATION("warmelt-first.melt:2719:/ cond.else");
             
              /*_#IF___L17*/ curfnum[16] = 0;;
              }
             ;
-            MELT_LOCATION("warmelt-first.melt:2724:/ cond");
+            MELT_LOCATION("warmelt-first.melt:2719:/ cond");
             /*cond*/ if (/*_#IF___L17*/ curfnum[16]) /*then*/ {
-            MELT_LOCATION("warmelt-first.melt:2724:/ cond.then");
-            MELT_LOCATION("warmelt-first.melt:2724:/ block");
+            MELT_LOCATION("warmelt-first.melt:2719:/ cond.then");
+            MELT_LOCATION("warmelt-first.melt:2719:/ block");
              /*block*/{
               
               {
-              MELT_LOCATION("warmelt-first.melt:2727:/ locexp");
+              MELT_LOCATION("warmelt-first.melt:2722:/ locexp");
               warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound function"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
               ;
-              MELT_LOCATION("warmelt-first.melt:2728:/ block");
+              MELT_LOCATION("warmelt-first.melt:2723:/ block");
               /*block*/{
                /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-               MELT_LOCATION("warmelt-first.melt:2728:/ finalreturn");
+               MELT_LOCATION("warmelt-first.melt:2723:/ finalreturn");
                ;
                /*finalret*/ goto labend_rout ;}
               ;
-              MELT_LOCATION("warmelt-first.melt:2724:/ block");
+              MELT_LOCATION("warmelt-first.melt:2719:/ block");
               /*block*/{
                /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[38];;}
               ;
               /*_.IFELSE___V40*/ curfptr[35] = /*_.PROGN___V42*/ curfptr[41];;
               /*epilog*/
-              MELT_LOCATION("warmelt-first.melt:2724:/ clear");
+              MELT_LOCATION("warmelt-first.melt:2719:/ clear");
               /*clear*/ /*_.RETURN___V41*/ curfptr[38] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:2724:/ clear");
+              MELT_LOCATION("warmelt-first.melt:2719:/ clear");
               /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;}
              ;
-            } else {MELT_LOCATION("warmelt-first.melt:2724:/ cond.else");
+            } else {MELT_LOCATION("warmelt-first.melt:2719:/ cond.else");
             
-             MELT_LOCATION("warmelt-first.melt:2724:/ block");
+             MELT_LOCATION("warmelt-first.melt:2719:/ block");
              /*block*/{
               /*_#IS_A__L19*/ curfnum[17] = 
                melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[12])));;
-              MELT_LOCATION("warmelt-first.melt:2729:/ cond");
+              MELT_LOCATION("warmelt-first.melt:2724:/ cond");
               /*cond*/ if (/*_#IS_A__L19*/ curfnum[17]) /*then*/ {
-              MELT_LOCATION("warmelt-first.melt:2729:/ cond.then");
-              MELT_LOCATION("warmelt-first.melt:2729:/ block");
+              MELT_LOCATION("warmelt-first.melt:2724:/ cond.then");
+              MELT_LOCATION("warmelt-first.melt:2724:/ block");
                /*block*/{
                 /*_#IS_A__L21*/ curfnum[20] = 
                  melt_is_instance_of((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));;
                 /*_#IF___L20*/ curfnum[19] = /*_#IS_A__L21*/ curfnum[20];;
                 /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:2729:/ clear");
+                MELT_LOCATION("warmelt-first.melt:2724:/ clear");
                 /*clear*/ /*_#IS_A__L21*/ curfnum[20] = 0 ;}
                ;
-              } else {MELT_LOCATION("warmelt-first.melt:2729:/ cond.else");
+              } else {MELT_LOCATION("warmelt-first.melt:2724:/ cond.else");
               
                /*_#IF___L20*/ curfnum[19] = 0;;
                }
               ;
-              MELT_LOCATION("warmelt-first.melt:2729:/ cond");
+              MELT_LOCATION("warmelt-first.melt:2724:/ cond");
               /*cond*/ if (/*_#IF___L20*/ curfnum[19]) /*then*/ {
-              MELT_LOCATION("warmelt-first.melt:2729:/ cond.then");
-              MELT_LOCATION("warmelt-first.melt:2729:/ block");
+              MELT_LOCATION("warmelt-first.melt:2724:/ cond.then");
+              MELT_LOCATION("warmelt-first.melt:2724:/ block");
                /*block*/{
                 
                 {
-                MELT_LOCATION("warmelt-first.melt:2732:/ locexp");
+                MELT_LOCATION("warmelt-first.melt:2727:/ locexp");
                 warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound class"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
                 ;
-                MELT_LOCATION("warmelt-first.melt:2733:/ block");
+                MELT_LOCATION("warmelt-first.melt:2728:/ block");
                 /*block*/{
                  /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-                 MELT_LOCATION("warmelt-first.melt:2733:/ finalreturn");
+                 MELT_LOCATION("warmelt-first.melt:2728:/ finalreturn");
                  ;
                  /*finalret*/ goto labend_rout ;}
                 ;
-                MELT_LOCATION("warmelt-first.melt:2729:/ block");
+                MELT_LOCATION("warmelt-first.melt:2724:/ block");
                 /*block*/{
                  /*_.PROGN___V45*/ curfptr[44] = /*_.RETURN___V44*/ curfptr[41];;}
                 ;
                 /*_.IFELSE___V43*/ curfptr[38] = /*_.PROGN___V45*/ curfptr[44];;
                 /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:2729:/ clear");
+                MELT_LOCATION("warmelt-first.melt:2724:/ clear");
                 /*clear*/ /*_.RETURN___V44*/ curfptr[41] = 0 ;
-                MELT_LOCATION("warmelt-first.melt:2729:/ clear");
+                MELT_LOCATION("warmelt-first.melt:2724:/ clear");
                 /*clear*/ /*_.PROGN___V45*/ curfptr[44] = 0 ;}
                ;
-              } else {MELT_LOCATION("warmelt-first.melt:2729:/ cond.else");
+              } else {MELT_LOCATION("warmelt-first.melt:2724:/ cond.else");
               
-               MELT_LOCATION("warmelt-first.melt:2729:/ block");
+               MELT_LOCATION("warmelt-first.melt:2724:/ block");
                /*block*/{
                 /*_#IS_A__L22*/ curfnum[20] = 
                  melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[14])));;
-                MELT_LOCATION("warmelt-first.melt:2734:/ cond");
+                MELT_LOCATION("warmelt-first.melt:2729:/ cond");
                 /*cond*/ if (/*_#IS_A__L22*/ curfnum[20]) /*then*/ {
-                MELT_LOCATION("warmelt-first.melt:2734:/ cond.then");
-                MELT_LOCATION("warmelt-first.melt:2734:/ block");
+                MELT_LOCATION("warmelt-first.melt:2729:/ cond.then");
+                MELT_LOCATION("warmelt-first.melt:2729:/ block");
                  /*block*/{
                   /*_#IS_A__L24*/ curfnum[23] = 
                    melt_is_instance_of((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));;
                   /*_#IF___L23*/ curfnum[22] = /*_#IS_A__L24*/ curfnum[23];;
                   /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:2734:/ clear");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ clear");
                   /*clear*/ /*_#IS_A__L24*/ curfnum[23] = 0 ;}
                  ;
-                } else {MELT_LOCATION("warmelt-first.melt:2734:/ cond.else");
+                } else {MELT_LOCATION("warmelt-first.melt:2729:/ cond.else");
                 
                  /*_#IF___L23*/ curfnum[22] = 0;;
                  }
                 ;
-                MELT_LOCATION("warmelt-first.melt:2734:/ cond");
+                MELT_LOCATION("warmelt-first.melt:2729:/ cond");
                 /*cond*/ if (/*_#IF___L23*/ curfnum[22]) /*then*/ {
-                MELT_LOCATION("warmelt-first.melt:2734:/ cond.then");
-                MELT_LOCATION("warmelt-first.melt:2734:/ block");
+                MELT_LOCATION("warmelt-first.melt:2729:/ cond.then");
+                MELT_LOCATION("warmelt-first.melt:2729:/ block");
                  /*block*/{
                   
                   {
-                  MELT_LOCATION("warmelt-first.melt:2737:/ locexp");
+                  MELT_LOCATION("warmelt-first.melt:2732:/ locexp");
                   warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound field"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
                   ;
-                  MELT_LOCATION("warmelt-first.melt:2738:/ block");
+                  MELT_LOCATION("warmelt-first.melt:2733:/ block");
                   /*block*/{
                    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-                   MELT_LOCATION("warmelt-first.melt:2738:/ finalreturn");
+                   MELT_LOCATION("warmelt-first.melt:2733:/ finalreturn");
                    ;
                    /*finalret*/ goto labend_rout ;}
                   ;
-                  MELT_LOCATION("warmelt-first.melt:2734:/ block");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ block");
                   /*block*/{
                    /*_.PROGN___V48*/ curfptr[47] = /*_.RETURN___V47*/ curfptr[44];;}
                   ;
                   /*_.IFELSE___V46*/ curfptr[41] = /*_.PROGN___V48*/ curfptr[47];;
                   /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:2734:/ clear");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ clear");
                   /*clear*/ /*_.RETURN___V47*/ curfptr[44] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:2734:/ clear");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ clear");
                   /*clear*/ /*_.PROGN___V48*/ curfptr[47] = 0 ;}
                  ;
-                } else {MELT_LOCATION("warmelt-first.melt:2734:/ cond.else");
+                } else {MELT_LOCATION("warmelt-first.melt:2729:/ cond.else");
                 
-                 MELT_LOCATION("warmelt-first.melt:2734:/ block");
+                 MELT_LOCATION("warmelt-first.melt:2729:/ block");
                  /*block*/{
                   /*_#IS_A__L25*/ curfnum[23] = 
                    melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[8])));;
-                  MELT_LOCATION("warmelt-first.melt:2740:/ cond");
+                  MELT_LOCATION("warmelt-first.melt:2735:/ cond");
                   /*cond*/ if (/*_#IS_A__L25*/ curfnum[23]) /*then*/ {
-                  MELT_LOCATION("warmelt-first.melt:2740:/ cond.then");
-                  MELT_LOCATION("warmelt-first.melt:2740:/ block");
+                  MELT_LOCATION("warmelt-first.melt:2735:/ cond.then");
+                  MELT_LOCATION("warmelt-first.melt:2735:/ block");
                    /*block*/{
                     /*_#IS_OBJECT__L27*/ curfnum[26] = 
                      (melt_magic_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) == OBMAG_OBJECT);;
                     /*_#IF___L26*/ curfnum[25] = /*_#IS_OBJECT__L27*/ curfnum[26];;
                     /*epilog*/
-                    MELT_LOCATION("warmelt-first.melt:2740:/ clear");
+                    MELT_LOCATION("warmelt-first.melt:2735:/ clear");
                     /*clear*/ /*_#IS_OBJECT__L27*/ curfnum[26] = 0 ;}
                    ;
-                  } else {MELT_LOCATION("warmelt-first.melt:2740:/ cond.else");
+                  } else {MELT_LOCATION("warmelt-first.melt:2735:/ cond.else");
                   
                    /*_#IF___L26*/ curfnum[25] = 0;;
                    }
                   ;
-                  MELT_LOCATION("warmelt-first.melt:2740:/ cond");
+                  MELT_LOCATION("warmelt-first.melt:2735:/ cond");
                   /*cond*/ if (/*_#IF___L26*/ curfnum[25]) /*then*/ {
-                  MELT_LOCATION("warmelt-first.melt:2740:/ cond.then");
-                  MELT_LOCATION("warmelt-first.melt:2740:/ block");
+                  MELT_LOCATION("warmelt-first.melt:2735:/ cond.then");
+                  MELT_LOCATION("warmelt-first.melt:2735:/ block");
                    /*block*/{
                     
                     {
-                    MELT_LOCATION("warmelt-first.melt:2743:/ locexp");
+                    MELT_LOCATION("warmelt-first.melt:2738:/ locexp");
                     warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound instance"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
                     ;
-                    MELT_LOCATION("warmelt-first.melt:2744:/ block");
+                    MELT_LOCATION("warmelt-first.melt:2739:/ block");
                     /*block*/{
                      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-                     MELT_LOCATION("warmelt-first.melt:2744:/ finalreturn");
+                     MELT_LOCATION("warmelt-first.melt:2739:/ finalreturn");
                      ;
                      /*finalret*/ goto labend_rout ;}
                     ;
-                    MELT_LOCATION("warmelt-first.melt:2740:/ block");
+                    MELT_LOCATION("warmelt-first.melt:2735:/ block");
                     /*block*/{
                      /*_.PROGN___V51*/ curfptr[50] = /*_.RETURN___V50*/ curfptr[47];;}
                     ;
                     /*_.IFELSE___V49*/ curfptr[44] = /*_.PROGN___V51*/ curfptr[50];;
                     /*epilog*/
-                    MELT_LOCATION("warmelt-first.melt:2740:/ clear");
+                    MELT_LOCATION("warmelt-first.melt:2735:/ clear");
                     /*clear*/ /*_.RETURN___V50*/ curfptr[47] = 0 ;
-                    MELT_LOCATION("warmelt-first.melt:2740:/ clear");
+                    MELT_LOCATION("warmelt-first.melt:2735:/ clear");
                     /*clear*/ /*_.PROGN___V51*/ curfptr[50] = 0 ;}
                    ;
-                  } else {MELT_LOCATION("warmelt-first.melt:2740:/ cond.else");
+                  } else {MELT_LOCATION("warmelt-first.melt:2735:/ cond.else");
                   
-                   MELT_LOCATION("warmelt-first.melt:2740:/ block");
+                   MELT_LOCATION("warmelt-first.melt:2735:/ block");
                    /*block*/{
                     /*_#IS_A__L28*/ curfnum[26] = 
                      melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[5])));;
-                    MELT_LOCATION("warmelt-first.melt:2746:/ cond");
+                    MELT_LOCATION("warmelt-first.melt:2741:/ cond");
                     /*cond*/ if (/*_#IS_A__L28*/ curfnum[26]) /*then*/ {
-                    MELT_LOCATION("warmelt-first.melt:2746:/ cond.then");
-                    MELT_LOCATION("warmelt-first.melt:2746:/ block");
+                    MELT_LOCATION("warmelt-first.melt:2741:/ cond.then");
+                    MELT_LOCATION("warmelt-first.melt:2741:/ block");
                      /*block*/{
-                      MELT_LOCATION("warmelt-first.melt:2747:/ block");
+                      MELT_LOCATION("warmelt-first.melt:2742:/ block");
                       /*block*/{
-                       MELT_LOCATION("warmelt-first.melt:2747:/ getslot");
+                       MELT_LOCATION("warmelt-first.melt:2742:/ getslot");
                        { melt_ptr_t slot=0;
                         melt_object_get_field(slot,(melt_ptr_t)(/*_.PREVBIND__V25*/ curfptr[19]), 1, "VBIND_VALUE");/*_.PREVAL__V54*/ curfptr[53] = slot; };
                        ;
@@ -3122,182 +3122,182 @@ MELT_LOCATION("warmelt-first.melt:2676:/ block");
                         (melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])));;
                        /*_#__L29*/ curfnum[28] = 
                         ((/*_.PREVDISCR__V55*/ curfptr[54]) == (/*_.CURDISCR__V56*/ curfptr[55]));;
-                       MELT_LOCATION("warmelt-first.melt:2751:/ cond");
+                       MELT_LOCATION("warmelt-first.melt:2746:/ cond");
                        /*cond*/ if (/*_#__L29*/ curfnum[28]) /*then*/ {
-                       MELT_LOCATION("warmelt-first.melt:2751:/ cond.then");
-                       MELT_LOCATION("warmelt-first.melt:2751:/ block");
+                       MELT_LOCATION("warmelt-first.melt:2746:/ cond.then");
+                       MELT_LOCATION("warmelt-first.melt:2746:/ block");
                         /*block*/{
                          
                          {
-                         MELT_LOCATION("warmelt-first.melt:2753:/ locexp");
+                         MELT_LOCATION("warmelt-first.melt:2748:/ locexp");
                          warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "not exporting previous bound homogenous value"), 
 	       melt_string_str((melt_ptr_t)(/*_.SYMNAM__V29*/ curfptr[28])));}
                          ;
-                         MELT_LOCATION("warmelt-first.melt:2755:/ getslot");
+                         MELT_LOCATION("warmelt-first.melt:2750:/ getslot");
                          { melt_ptr_t slot=0;
                           melt_object_get_field(slot,(melt_ptr_t)(/*_.PREVDISCR__V55*/ curfptr[54]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ curfptr[57] = slot; };
                          ;
                          
                          {
-                         MELT_LOCATION("warmelt-first.melt:2754:/ locexp");
+                         MELT_LOCATION("warmelt-first.melt:2749:/ locexp");
                          warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "common value discrim"), 
 	       melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V58*/ curfptr[57])));}
                          ;
-                         MELT_LOCATION("warmelt-first.melt:2756:/ block");
+                         MELT_LOCATION("warmelt-first.melt:2751:/ block");
                          /*block*/{
                           /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-                          MELT_LOCATION("warmelt-first.melt:2756:/ finalreturn");
+                          MELT_LOCATION("warmelt-first.melt:2751:/ finalreturn");
                           ;
                           /*finalret*/ goto labend_rout ;}
                          ;
-                         MELT_LOCATION("warmelt-first.melt:2752:/ block");
+                         MELT_LOCATION("warmelt-first.melt:2747:/ block");
                          /*block*/{
                           /*_.PROGN___V60*/ curfptr[59] = /*_.RETURN___V59*/ curfptr[58];;}
                          ;
                          /*_.IF___V57*/ curfptr[56] = /*_.PROGN___V60*/ curfptr[59];;
                          /*epilog*/
-                         MELT_LOCATION("warmelt-first.melt:2751:/ clear");
+                         MELT_LOCATION("warmelt-first.melt:2746:/ clear");
                          /*clear*/ /*_.NAMED_NAME__V58*/ curfptr[57] = 0 ;
-                         MELT_LOCATION("warmelt-first.melt:2751:/ clear");
+                         MELT_LOCATION("warmelt-first.melt:2746:/ clear");
                          /*clear*/ /*_.RETURN___V59*/ curfptr[58] = 0 ;
-                         MELT_LOCATION("warmelt-first.melt:2751:/ clear");
+                         MELT_LOCATION("warmelt-first.melt:2746:/ clear");
                          /*clear*/ /*_.PROGN___V60*/ curfptr[59] = 0 ;}
                         ;
-                       } else {MELT_LOCATION("warmelt-first.melt:2751:/ cond.else");
+                       } else {MELT_LOCATION("warmelt-first.melt:2746:/ cond.else");
                        
                         /*_.IF___V57*/ curfptr[56] = NULL;;
                         }
                        ;
                        /*_.LET___V53*/ curfptr[50] = /*_.IF___V57*/ curfptr[56];;
                        /*epilog*/
-                       MELT_LOCATION("warmelt-first.melt:2747:/ clear");
+                       MELT_LOCATION("warmelt-first.melt:2742:/ clear");
                        /*clear*/ /*_.PREVAL__V54*/ curfptr[53] = 0 ;
-                       MELT_LOCATION("warmelt-first.melt:2747:/ clear");
+                       MELT_LOCATION("warmelt-first.melt:2742:/ clear");
                        /*clear*/ /*_.PREVDISCR__V55*/ curfptr[54] = 0 ;
-                       MELT_LOCATION("warmelt-first.melt:2747:/ clear");
+                       MELT_LOCATION("warmelt-first.melt:2742:/ clear");
                        /*clear*/ /*_.CURDISCR__V56*/ curfptr[55] = 0 ;
-                       MELT_LOCATION("warmelt-first.melt:2747:/ clear");
+                       MELT_LOCATION("warmelt-first.melt:2742:/ clear");
                        /*clear*/ /*_#__L29*/ curfnum[28] = 0 ;
-                       MELT_LOCATION("warmelt-first.melt:2747:/ clear");
+                       MELT_LOCATION("warmelt-first.melt:2742:/ clear");
                        /*clear*/ /*_.IF___V57*/ curfptr[56] = 0 ;}
                       ;
                       /*_.IFELSE___V52*/ curfptr[47] = /*_.LET___V53*/ curfptr[50];;
                       /*epilog*/
-                      MELT_LOCATION("warmelt-first.melt:2746:/ clear");
+                      MELT_LOCATION("warmelt-first.melt:2741:/ clear");
                       /*clear*/ /*_.LET___V53*/ curfptr[50] = 0 ;}
                      ;
-                    } else {MELT_LOCATION("warmelt-first.melt:2746:/ cond.else");
+                    } else {MELT_LOCATION("warmelt-first.melt:2741:/ cond.else");
                     
                      /*_.IFELSE___V52*/ curfptr[47] = NULL;;
                      }
                     ;
                     /*_.IFELSE___V49*/ curfptr[44] = /*_.IFELSE___V52*/ curfptr[47];;
                     /*epilog*/
-                    MELT_LOCATION("warmelt-first.melt:2740:/ clear");
+                    MELT_LOCATION("warmelt-first.melt:2735:/ clear");
                     /*clear*/ /*_#IS_A__L28*/ curfnum[26] = 0 ;
-                    MELT_LOCATION("warmelt-first.melt:2740:/ clear");
+                    MELT_LOCATION("warmelt-first.melt:2735:/ clear");
                     /*clear*/ /*_.IFELSE___V52*/ curfptr[47] = 0 ;}
                    ;
                    }
                   ;
                   /*_.IFELSE___V46*/ curfptr[41] = /*_.IFELSE___V49*/ curfptr[44];;
                   /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:2734:/ clear");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ clear");
                   /*clear*/ /*_#IS_A__L25*/ curfnum[23] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:2734:/ clear");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ clear");
                   /*clear*/ /*_#IF___L26*/ curfnum[25] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:2734:/ clear");
+                  MELT_LOCATION("warmelt-first.melt:2729:/ clear");
                   /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;}
                  ;
                  }
                 ;
                 /*_.IFELSE___V43*/ curfptr[38] = /*_.IFELSE___V46*/ curfptr[41];;
                 /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:2729:/ clear");
+                MELT_LOCATION("warmelt-first.melt:2724:/ clear");
                 /*clear*/ /*_#IS_A__L22*/ curfnum[20] = 0 ;
-                MELT_LOCATION("warmelt-first.melt:2729:/ clear");
+                MELT_LOCATION("warmelt-first.melt:2724:/ clear");
                 /*clear*/ /*_#IF___L23*/ curfnum[22] = 0 ;
-                MELT_LOCATION("warmelt-first.melt:2729:/ clear");
+                MELT_LOCATION("warmelt-first.melt:2724:/ clear");
                 /*clear*/ /*_.IFELSE___V46*/ curfptr[41] = 0 ;}
                ;
                }
               ;
               /*_.IFELSE___V40*/ curfptr[35] = /*_.IFELSE___V43*/ curfptr[38];;
               /*epilog*/
-              MELT_LOCATION("warmelt-first.melt:2724:/ clear");
+              MELT_LOCATION("warmelt-first.melt:2719:/ clear");
               /*clear*/ /*_#IS_A__L19*/ curfnum[17] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:2724:/ clear");
+              MELT_LOCATION("warmelt-first.melt:2719:/ clear");
               /*clear*/ /*_#IF___L20*/ curfnum[19] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:2724:/ clear");
+              MELT_LOCATION("warmelt-first.melt:2719:/ clear");
               /*clear*/ /*_.IFELSE___V43*/ curfptr[38] = 0 ;}
              ;
              }
             ;
             /*_.IFELSE___V37*/ curfptr[32] = /*_.IFELSE___V40*/ curfptr[35];;
             /*epilog*/
-            MELT_LOCATION("warmelt-first.melt:2719:/ clear");
+            MELT_LOCATION("warmelt-first.melt:2714:/ clear");
             /*clear*/ /*_#IS_A__L16*/ curfnum[14] = 0 ;
-            MELT_LOCATION("warmelt-first.melt:2719:/ clear");
+            MELT_LOCATION("warmelt-first.melt:2714:/ clear");
             /*clear*/ /*_#IF___L17*/ curfnum[16] = 0 ;
-            MELT_LOCATION("warmelt-first.melt:2719:/ clear");
+            MELT_LOCATION("warmelt-first.melt:2714:/ clear");
             /*clear*/ /*_.IFELSE___V40*/ curfptr[35] = 0 ;}
            ;
            }
           ;
           /*_.IFELSE___V34*/ curfptr[31] = /*_.IFELSE___V37*/ curfptr[32];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:2714:/ clear");
+          MELT_LOCATION("warmelt-first.melt:2709:/ clear");
           /*clear*/ /*_#IS_A__L13*/ curfnum[11] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:2714:/ clear");
+          MELT_LOCATION("warmelt-first.melt:2709:/ clear");
           /*clear*/ /*_#IF___L14*/ curfnum[13] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:2714:/ clear");
+          MELT_LOCATION("warmelt-first.melt:2709:/ clear");
           /*clear*/ /*_.IFELSE___V37*/ curfptr[32] = 0 ;}
          ;
          }
         ;
         /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V34*/ curfptr[31];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:2709:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2704:/ clear");
         /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:2709:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2704:/ clear");
         /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:2709:/ clear");
+        MELT_LOCATION("warmelt-first.melt:2704:/ clear");
         /*clear*/ /*_.IFELSE___V34*/ curfptr[31] = 0 ;}
        ;
        }
       ;
       /*_.IFELSE___V30*/ curfptr[29] = /*_.IFELSE___V31*/ curfptr[30];;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:2708:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2703:/ clear");
       /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:2708:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2703:/ clear");
       /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:2708:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2703:/ clear");
       /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
      ;
      }
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-first.melt:2759:/ cppif.then");
-    MELT_LOCATION("warmelt-first.melt:2759:/ block");
+     MELT_LOCATION("warmelt-first.melt:2754:/ cppif.then");
+    MELT_LOCATION("warmelt-first.melt:2754:/ block");
      /*block*/{
       /*_#IS_A__L30*/ curfnum[28] = 
        melt_is_instance_of((melt_ptr_t)(/*_.VALBIND__V27*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[15])));;
-      MELT_LOCATION("warmelt-first.melt:2759:/ cond");
+      MELT_LOCATION("warmelt-first.melt:2754:/ cond");
       /*cond*/ if (/*_#IS_A__L30*/ curfnum[28]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:2759:/ cond.then");
+      MELT_LOCATION("warmelt-first.melt:2754:/ cond.then");
       /*_.IFELSE___V62*/ curfptr[58] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-first.melt:2759:/ cond.else");
+      } else {MELT_LOCATION("warmelt-first.melt:2754:/ cond.else");
       
-       MELT_LOCATION("warmelt-first.melt:2759:/ block");
+       MELT_LOCATION("warmelt-first.melt:2754:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-first.melt:2759:/ locexp");
+         MELT_LOCATION("warmelt-first.melt:2754:/ locexp");
          melt_assert_failed(( "check valbind"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2759)?(2759):__LINE__, __FUNCTION__);
+  (2754)?(2754):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V62*/ curfptr[58] = 0 ;}
@@ -3308,90 +3308,90 @@ MELT_LOCATION("warmelt-first.melt:2676:/ block");
       ;
       /*_.IFCPP___V61*/ curfptr[57] = /*_.IFELSE___V62*/ curfptr[58];;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:2759:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2754:/ clear");
       /*clear*/ /*_#IS_A__L30*/ curfnum[28] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:2759:/ clear");
+      MELT_LOCATION("warmelt-first.melt:2754:/ clear");
       /*clear*/ /*_.IFELSE___V62*/ curfptr[58] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-first.melt:2759:/ cppif.else");
+     MELT_LOCATION("warmelt-first.melt:2754:/ cppif.else");
     /*_.IFCPP___V61*/ curfptr[57] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-first.melt:2760:/ apply");
+    MELT_LOCATION("warmelt-first.melt:2755:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:2760:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2755:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALBIND__V27*/ curfptr[25];
      /*_.PUT_ENV__V63*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.ENV__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-first.melt:2761:/ block");
+    MELT_LOCATION("warmelt-first.melt:2756:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-first.melt:2761:/ finalreturn");
+     MELT_LOCATION("warmelt-first.melt:2756:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
     /*_.LET___V24*/ curfptr[20] = /*_.RETURN___V64*/ curfptr[53];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.PREVBIND__V25*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.VALBIND__V27*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.SYMNAM__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_#NULL__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.IFCPP___V61*/ curfptr[57] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.PUT_ENV__V63*/ curfptr[59] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2698:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2693:/ clear");
     /*clear*/ /*_.RETURN___V64*/ curfptr[53] = 0 ;}
    ;
    /*_.LET___V15*/ curfptr[13] = /*_.LET___V24*/ curfptr[20];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2691:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2686:/ clear");
    /*clear*/ /*_.ENV__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2691:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2686:/ clear");
    /*clear*/ /*_#NULL__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2691:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2686:/ clear");
    /*clear*/ /*_.IF___V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2691:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2686:/ clear");
    /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2691:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2686:/ clear");
    /*clear*/ /*_.IFCPP___V22*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2691:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2686:/ clear");
    /*clear*/ /*_.LET___V24*/ curfptr[20] = 0 ;}
   ;
   /*_.LET___V5*/ curfptr[4] = /*_.LET___V15*/ curfptr[13];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2682:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2677:/ clear");
   /*clear*/ /*_.PARENV__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2682:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2677:/ clear");
   /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2682:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2677:/ clear");
   /*clear*/ /*_.IF___V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2682:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2677:/ clear");
   /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2682:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2677:/ clear");
   /*clear*/ /*_.IFCPP___V13*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2682:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2677:/ clear");
   /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2676:/ block");
+ MELT_LOCATION("warmelt-first.melt:2671:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:2676:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2671:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2676:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2671:/ clear");
  /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;}
 
 ;
@@ -3454,81 +3454,81 @@ melt_trace_start("INITVALUE_IMPORTER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2766:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2761:/ getarg");
  /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2766:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2761:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.PARENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.PARENV__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:2766:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2761:/ getarg");
  if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:2766:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2761:/ getarg");
  if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o1 = xargtab_[2].bp_cstring;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2766:/ block");
+MELT_LOCATION("warmelt-first.melt:2761:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-first.melt:2767:/ locexp");
+ MELT_LOCATION("warmelt-first.melt:2762:/ locexp");
   /* ENSUREMODNAM__1 */ if (!/*_?*/ curfram__.loc_CSTRING__o1) /*_?*/ curfram__.loc_CSTRING__o1 = "???"; 
 	      ;}
  ;
  /*_#IS_NOT_A__L1*/ curfnum[0] = 
   !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-first.melt:2769:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2764:/ cond");
  /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2769:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2769:/ block");
+ MELT_LOCATION("warmelt-first.melt:2764:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2764:/ block");
   /*block*/{
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:2771:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:2771:/ block");
+    MELT_LOCATION("warmelt-first.melt:2766:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:2766:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
       callcount;;
-     MELT_LOCATION("warmelt-first.melt:2771:/ apply");
+     MELT_LOCATION("warmelt-first.melt:2766:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:2771:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2766:/ apply.arg");
       argtab[0].bp_cstring =  "initvalue_importer bad symb";
-      MELT_LOCATION("warmelt-first.melt:2771:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2766:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-      MELT_LOCATION("warmelt-first.melt:2771:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2766:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-first.melt";
-      MELT_LOCATION("warmelt-first.melt:2771:/ apply.arg");
-      argtab[3].bp_long = 2771;
+      MELT_LOCATION("warmelt-first.melt:2766:/ apply.arg");
+      argtab[3].bp_long = 2766;
       /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2771:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2766:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2771:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2766:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:2771:/ cppif.else");
+    MELT_LOCATION("warmelt-first.melt:2766:/ cppif.else");
    /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    
    {
-   MELT_LOCATION("warmelt-first.melt:2773:/ locexp");
+   MELT_LOCATION("warmelt-first.melt:2768:/ locexp");
     /* ERRFAILIMPORT__1 */ 
 		    if (/*_?*/ curfram__.loc_CSTRING__o0)
 		      error ("MELT [%s]: imported symbol %s not found",
@@ -3537,52 +3537,52 @@ MELT_LOCATION("warmelt-first.melt:2766:/ block");
 		      error ("MELT [%s]: importing non symbol", /*_?*/ curfram__.loc_CSTRING__o1);
 		    ;}
    ;
-   MELT_LOCATION("warmelt-first.melt:2780:/ block");
+   MELT_LOCATION("warmelt-first.melt:2775:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-first.melt:2780:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:2775:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
-   MELT_LOCATION("warmelt-first.melt:2770:/ block");
+   MELT_LOCATION("warmelt-first.melt:2765:/ block");
    /*block*/{
     /*_.PROGN___V8*/ curfptr[7] = /*_.RETURN___V7*/ curfptr[5];;}
    ;
    /*_.IF___V4*/ curfptr[3] = /*_.PROGN___V8*/ curfptr[7];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2769:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2764:/ clear");
    /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2769:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2764:/ clear");
    /*clear*/ /*_.RETURN___V7*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2769:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2764:/ clear");
    /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:2769:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2764:/ cond.else");
  
   /*_.IF___V4*/ curfptr[3] = NULL;;
   }
  ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2782:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2782:/ block");
+  MELT_LOCATION("warmelt-first.melt:2777:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2777:/ block");
   /*block*/{
    /*_#IS_A__L3*/ curfnum[1] = 
     melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2782:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2777:/ cond");
    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2782:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2777:/ cond.then");
    /*_.IFELSE___V10*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2782:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2777:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2782:/ block");
+    MELT_LOCATION("warmelt-first.melt:2777:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2782:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2777:/ locexp");
       melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2782)?(2782):__LINE__, __FUNCTION__);
+  (2777)?(2777):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V10*/ curfptr[5] = 0 ;}
@@ -3593,37 +3593,37 @@ MELT_LOCATION("warmelt-first.melt:2766:/ block");
    ;
    /*_.IFCPP___V9*/ curfptr[4] = /*_.IFELSE___V10*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2782:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2777:/ clear");
    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2782:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2777:/ clear");
    /*clear*/ /*_.IFELSE___V10*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2782:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2777:/ cppif.else");
  /*_.IFCPP___V9*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2783:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2783:/ block");
+  MELT_LOCATION("warmelt-first.melt:2778:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2778:/ block");
   /*block*/{
    /*_#IS_A__L4*/ curfnum[1] = 
     melt_is_instance_of((melt_ptr_t)(/*_.PARENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-first.melt:2783:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2778:/ cond");
    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2783:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2778:/ cond.then");
    /*_.IFELSE___V12*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2783:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2778:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2783:/ block");
+    MELT_LOCATION("warmelt-first.melt:2778:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2783:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2778:/ locexp");
       melt_assert_failed(( "check parenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2783)?(2783):__LINE__, __FUNCTION__);
+  (2778)?(2778):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V12*/ curfptr[5] = 0 ;}
@@ -3634,83 +3634,83 @@ MELT_LOCATION("warmelt-first.melt:2766:/ block");
    ;
    /*_.IFCPP___V11*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2783:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2778:/ clear");
    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2783:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2778:/ clear");
    /*clear*/ /*_.IFELSE___V12*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2783:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2778:/ cppif.else");
  /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2784:/ block");
+ MELT_LOCATION("warmelt-first.melt:2779:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2784:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2779:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2784:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2779:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYM__V2*/ curfptr[1];
    /*_.VALBIND__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PARENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*_#IS_NOT_A__L5*/ curfnum[1] = 
    !melt_is_instance_of((melt_ptr_t)(/*_.VALBIND__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-first.melt:2786:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2781:/ cond");
   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2786:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2786:/ block");
+  MELT_LOCATION("warmelt-first.melt:2781:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2781:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2787:/ block");
+    MELT_LOCATION("warmelt-first.melt:2782:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-first.melt:2787:/ cond");
+     MELT_LOCATION("warmelt-first.melt:2782:/ cond");
      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:2787:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:2787:/ getslot");
+     MELT_LOCATION("warmelt-first.melt:2782:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:2782:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYMNAM__V17*/ curfptr[16] = slot; };
       ;
-     } else {MELT_LOCATION("warmelt-first.melt:2787:/ cond.else");
+     } else {MELT_LOCATION("warmelt-first.melt:2782:/ cond.else");
      
       /*_.SYMNAM__V17*/ curfptr[16] = NULL;;
       }
      ;
      /*_.BINDISCR__V18*/ curfptr[17] = 
       (melt_discr((melt_ptr_t)(/*_.VALBIND__V14*/ curfptr[13])));;
-     MELT_LOCATION("warmelt-first.melt:2789:/ cond");
+     MELT_LOCATION("warmelt-first.melt:2784:/ cond");
      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDISCR__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:2789:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:2789:/ getslot");
+     MELT_LOCATION("warmelt-first.melt:2784:/ cond.then");
+     MELT_LOCATION("warmelt-first.melt:2784:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDISCR__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.BINDISCRNAM__V19*/ curfptr[18] = slot; };
       ;
-     } else {MELT_LOCATION("warmelt-first.melt:2789:/ cond.else");
+     } else {MELT_LOCATION("warmelt-first.melt:2784:/ cond.else");
      
       /*_.BINDISCRNAM__V19*/ curfptr[18] = NULL;;
       }
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-first.melt:2791:/ cppif.then");
-     MELT_LOCATION("warmelt-first.melt:2791:/ block");
+      MELT_LOCATION("warmelt-first.melt:2786:/ cppif.then");
+     MELT_LOCATION("warmelt-first.melt:2786:/ block");
       /*block*/{
        /*_#IS_STRING__L6*/ curfnum[5] = 
         (melt_magic_discr((melt_ptr_t)(/*_.SYMNAM__V17*/ curfptr[16])) == OBMAG_STRING);;
-       MELT_LOCATION("warmelt-first.melt:2791:/ cond");
+       MELT_LOCATION("warmelt-first.melt:2786:/ cond");
        /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[5]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:2791:/ cond.then");
+       MELT_LOCATION("warmelt-first.melt:2786:/ cond.then");
        /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-first.melt:2791:/ cond.else");
+       } else {MELT_LOCATION("warmelt-first.melt:2786:/ cond.else");
        
-        MELT_LOCATION("warmelt-first.melt:2791:/ block");
+        MELT_LOCATION("warmelt-first.melt:2786:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-first.melt:2791:/ locexp");
+          MELT_LOCATION("warmelt-first.melt:2786:/ locexp");
           melt_assert_failed(( "check symnam"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2791)?(2791):__LINE__, __FUNCTION__);
+  (2786)?(2786):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
@@ -3721,19 +3721,19 @@ MELT_LOCATION("warmelt-first.melt:2766:/ block");
        ;
        /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
        /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:2791:/ clear");
+       MELT_LOCATION("warmelt-first.melt:2786:/ clear");
        /*clear*/ /*_#IS_STRING__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:2791:/ clear");
+       MELT_LOCATION("warmelt-first.melt:2786:/ clear");
        /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-first.melt:2791:/ cppif.else");
+      MELT_LOCATION("warmelt-first.melt:2786:/ cppif.else");
      /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      {
-     MELT_LOCATION("warmelt-first.melt:2793:/ locexp");
+     MELT_LOCATION("warmelt-first.melt:2788:/ locexp");
       /* ERRBADIMPORT__1 */
 		      const char* ERRBADIMPORT__1_str = melt_string_str ((melt_ptr_t)/*_.SYMNAM__V17*/ curfptr[16]);
 		      error ("MELT [%s]: imported symbol %s has unexpected binding of %s",
@@ -3742,57 +3742,57 @@ MELT_LOCATION("warmelt-first.melt:2766:/ block");
 			     melt_string_str ((melt_ptr_t)/*_.BINDISCRNAM__V19*/ curfptr[18]));
 		    ;}
      ;
-     MELT_LOCATION("warmelt-first.melt:2800:/ block");
+     MELT_LOCATION("warmelt-first.melt:2795:/ block");
      /*block*/{
       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-      MELT_LOCATION("warmelt-first.melt:2800:/ finalreturn");
+      MELT_LOCATION("warmelt-first.melt:2795:/ finalreturn");
       ;
       /*finalret*/ goto labend_rout ;}
      ;
      /*_.LET___V16*/ curfptr[15] = /*_.RETURN___V22*/ curfptr[20];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2787:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2782:/ clear");
      /*clear*/ /*_.SYMNAM__V17*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2787:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2782:/ clear");
      /*clear*/ /*_.BINDISCR__V18*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2787:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2782:/ clear");
      /*clear*/ /*_.BINDISCRNAM__V19*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2787:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2782:/ clear");
      /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2787:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2782:/ clear");
      /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
     ;
     /*_.IF___V15*/ curfptr[14] = /*_.LET___V16*/ curfptr[15];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2786:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2781:/ clear");
     /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-first.melt:2786:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2781:/ cond.else");
   
    /*_.IF___V15*/ curfptr[14] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2802:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2802:/ block");
+   MELT_LOCATION("warmelt-first.melt:2797:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2797:/ block");
    /*block*/{
     /*_#IS_A__L7*/ curfnum[5] = 
      melt_is_instance_of((melt_ptr_t)(/*_.VALBIND__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-first.melt:2802:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2797:/ cond");
     /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2802:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2797:/ cond.then");
     /*_.IFELSE___V24*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2802:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2797:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2802:/ block");
+     MELT_LOCATION("warmelt-first.melt:2797:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2802:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2797:/ locexp");
        melt_assert_failed(( "check valbind"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2802)?(2802):__LINE__, __FUNCTION__);
+  (2797)?(2797):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V24*/ curfptr[17] = 0 ;}
@@ -3803,59 +3803,59 @@ MELT_LOCATION("warmelt-first.melt:2766:/ block");
     ;
     /*_.IFCPP___V23*/ curfptr[16] = /*_.IFELSE___V24*/ curfptr[17];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2802:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2797:/ clear");
     /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2802:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2797:/ clear");
     /*clear*/ /*_.IFELSE___V24*/ curfptr[17] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2802:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2797:/ cppif.else");
   /*_.IFCPP___V23*/ curfptr[16] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-first.melt:2803:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2798:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.VALBIND__V14*/ curfptr[13]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V25*/ curfptr[18] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2803:/ block");
+  MELT_LOCATION("warmelt-first.melt:2798:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.VBIND_VALUE__V25*/ curfptr[18];;
-   MELT_LOCATION("warmelt-first.melt:2803:/ finalreturn");
+   MELT_LOCATION("warmelt-first.melt:2798:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V13*/ curfptr[5] = /*_.RETURN___V26*/ curfptr[19];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2784:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2779:/ clear");
   /*clear*/ /*_.VALBIND__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2784:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2779:/ clear");
   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2784:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2779:/ clear");
   /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2784:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2779:/ clear");
   /*clear*/ /*_.IFCPP___V23*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2784:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2779:/ clear");
   /*clear*/ /*_.VBIND_VALUE__V25*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2784:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2779:/ clear");
   /*clear*/ /*_.RETURN___V26*/ curfptr[19] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2766:/ block");
+ MELT_LOCATION("warmelt-first.melt:2761:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[5];;
-  MELT_LOCATION("warmelt-first.melt:2766:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2761:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2766:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2761:/ clear");
  /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2766:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2761:/ clear");
  /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2766:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2761:/ clear");
  /*clear*/ /*_.IFCPP___V9*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2766:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2761:/ clear");
  /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2766:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2761:/ clear");
  /*clear*/ /*_.LET___V13*/ curfptr[5] = 0 ;}
 
 ;
@@ -3916,18 +3916,18 @@ melt_trace_start("INITMACRO_EXPORTER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2807:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2802:/ getarg");
  /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2807:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2802:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:2807:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2802:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.CONTENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.CONTENV__V4*/ curfptr[3])) != NULL);
@@ -3936,29 +3936,29 @@ melt_trace_start("INITMACRO_EXPORTER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2807:/ block");
+MELT_LOCATION("warmelt-first.melt:2802:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2808:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2808:/ block");
+  MELT_LOCATION("warmelt-first.melt:2803:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2803:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:2808:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2803:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2808:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2803:/ cond.then");
    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2808:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2803:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2808:/ block");
+    MELT_LOCATION("warmelt-first.melt:2803:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2808:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2803:/ locexp");
       melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2808)?(2808):__LINE__, __FUNCTION__);
+  (2803)?(2803):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
@@ -3969,88 +3969,88 @@ MELT_LOCATION("warmelt-first.melt:2807:/ block");
    ;
    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2808:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2803:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2808:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2803:/ clear");
    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2808:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2803:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  /*_#NULL__L2*/ curfnum[0] = 
   ((/*_.CONTENV__V4*/ curfptr[3]) == NULL);;
- MELT_LOCATION("warmelt-first.melt:2809:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2804:/ cond");
  /*cond*/ if (/*_#NULL__L2*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2809:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2809:/ block");
+ MELT_LOCATION("warmelt-first.melt:2804:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2804:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2811:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2806:/ cond");
    /*cond*/ if ((/*!konst_1*/ curfrout->tabval[1])) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2811:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:2811:/ block");
+   MELT_LOCATION("warmelt-first.melt:2806:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2806:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-first.melt:2813:/ getslot");
+     MELT_LOCATION("warmelt-first.melt:2808:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-first.melt:2812:/ locexp");
+     MELT_LOCATION("warmelt-first.melt:2807:/ locexp");
      warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "exporting macro too early with null environment container"), 
 	       melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2811:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2806:/ clear");
      /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
     ;
    } /*noelse*/
    ;
-   MELT_LOCATION("warmelt-first.melt:2814:/ block");
+   MELT_LOCATION("warmelt-first.melt:2809:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-first.melt:2814:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:2809:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
-   MELT_LOCATION("warmelt-first.melt:2810:/ block");
+   MELT_LOCATION("warmelt-first.melt:2805:/ block");
    /*block*/{
     /*_.PROGN___V10*/ curfptr[9] = /*_.RETURN___V9*/ curfptr[7];;}
    ;
    /*_.IF___V7*/ curfptr[5] = /*_.PROGN___V10*/ curfptr[9];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2809:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2804:/ clear");
    /*clear*/ /*_.RETURN___V9*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2809:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2804:/ clear");
    /*clear*/ /*_.PROGN___V10*/ curfptr[9] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:2809:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2804:/ cond.else");
  
   /*_.IF___V7*/ curfptr[5] = NULL;;
   }
  ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2816:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2816:/ block");
+  MELT_LOCATION("warmelt-first.melt:2811:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2811:/ block");
   /*block*/{
    /*_#IS_A__L3*/ curfnum[2] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CONTENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-first.melt:2816:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2811:/ cond");
    /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2816:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2811:/ cond.then");
    /*_.IFELSE___V12*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2816:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2811:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2816:/ block");
+    MELT_LOCATION("warmelt-first.melt:2811:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2816:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2811:/ locexp");
       melt_assert_failed(( "check contenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2816)?(2816):__LINE__, __FUNCTION__);
+  (2811)?(2811):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V12*/ curfptr[9] = 0 ;}
@@ -4061,85 +4061,85 @@ MELT_LOCATION("warmelt-first.melt:2807:/ block");
    ;
    /*_.IFCPP___V11*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[9];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2816:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2811:/ clear");
    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2816:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2811:/ clear");
    /*clear*/ /*_.IFELSE___V12*/ curfptr[9] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2816:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2811:/ cppif.else");
  /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2817:/ block");
+ MELT_LOCATION("warmelt-first.melt:2812:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2817:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2812:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.CONTENV__V4*/ curfptr[3]), 0, "CONTAINER_VALUE");/*_.ENV__V14*/ curfptr[13] = slot; };
   ;
   /*_#NULL__L4*/ curfnum[2] = 
    ((/*_.ENV__V14*/ curfptr[13]) == NULL);;
-  MELT_LOCATION("warmelt-first.melt:2819:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2814:/ cond");
   /*cond*/ if (/*_#NULL__L4*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2819:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2819:/ block");
+  MELT_LOCATION("warmelt-first.melt:2814:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2814:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2822:/ getslot");
+    MELT_LOCATION("warmelt-first.melt:2817:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:2821:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2816:/ locexp");
     inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "exporting macro too early with null environment"), 
 			     melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])));}
     ;
-    MELT_LOCATION("warmelt-first.melt:2823:/ block");
+    MELT_LOCATION("warmelt-first.melt:2818:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-first.melt:2823:/ finalreturn");
+     MELT_LOCATION("warmelt-first.melt:2818:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
-    MELT_LOCATION("warmelt-first.melt:2820:/ block");
+    MELT_LOCATION("warmelt-first.melt:2815:/ block");
     /*block*/{
      /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;}
     ;
     /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2819:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2814:/ clear");
     /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2819:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2814:/ clear");
     /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2819:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2814:/ clear");
     /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-first.melt:2819:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2814:/ cond.else");
   
    /*_.IF___V15*/ curfptr[14] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2825:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2825:/ block");
+   MELT_LOCATION("warmelt-first.melt:2820:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2820:/ block");
    /*block*/{
     /*_#IS_A__L5*/ curfnum[4] = 
      melt_is_instance_of((melt_ptr_t)(/*_.ENV__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-first.melt:2825:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2820:/ cond");
     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2825:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2820:/ cond.then");
     /*_.IFELSE___V20*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2825:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2820:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2825:/ block");
+     MELT_LOCATION("warmelt-first.melt:2820:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2825:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2820:/ locexp");
        melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2825)?(2825):__LINE__, __FUNCTION__);
+  (2820)?(2820):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V20*/ curfptr[16] = 0 ;}
@@ -4150,37 +4150,37 @@ MELT_LOCATION("warmelt-first.melt:2807:/ block");
     ;
     /*_.IFCPP___V19*/ curfptr[15] = /*_.IFELSE___V20*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2825:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2820:/ clear");
     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2825:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2820:/ clear");
     /*clear*/ /*_.IFELSE___V20*/ curfptr[16] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2825:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2820:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[15] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2826:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2826:/ block");
+   MELT_LOCATION("warmelt-first.melt:2821:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2821:/ block");
    /*block*/{
     /*_#IS_CLOSURE__L6*/ curfnum[4] = 
      (melt_magic_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-    MELT_LOCATION("warmelt-first.melt:2826:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2821:/ cond");
     /*cond*/ if (/*_#IS_CLOSURE__L6*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2826:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2821:/ cond.then");
     /*_.IFELSE___V22*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2826:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2821:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2826:/ block");
+     MELT_LOCATION("warmelt-first.melt:2821:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2826:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2821:/ locexp");
        melt_assert_failed(( "check val is closure"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2826)?(2826):__LINE__, __FUNCTION__);
+  (2821)?(2821):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V22*/ curfptr[16] = 0 ;}
@@ -4191,130 +4191,130 @@ MELT_LOCATION("warmelt-first.melt:2807:/ block");
     ;
     /*_.IFCPP___V21*/ curfptr[17] = /*_.IFELSE___V22*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2826:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2821:/ clear");
     /*clear*/ /*_#IS_CLOSURE__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2826:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2821:/ clear");
     /*clear*/ /*_.IFELSE___V22*/ curfptr[16] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2826:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2821:/ cppif.else");
   /*_.IFCPP___V21*/ curfptr[17] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-first.melt:2827:/ block");
+  MELT_LOCATION("warmelt-first.melt:2822:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2827:/ block");
+   MELT_LOCATION("warmelt-first.melt:2822:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2827:/ rawallocobj");
+    MELT_LOCATION("warmelt-first.melt:2822:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MACRO_BINDING*/ curfrout->tabval[4])), (2), "CLASS_MACRO_BINDING");/*_.INST__V25*/ curfptr[24] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-first.melt:2827:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2822:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), (/*_.SYM__V2*/ curfptr[1]), "BINDER");
     ;
-    MELT_LOCATION("warmelt-first.melt:2827:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2822:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @MBIND_EXPANSER", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (1), (/*_.VAL__V3*/ curfptr[2]), "MBIND_EXPANSER");
     ;
     /*_.MACBIND__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;}
    ;
-   MELT_LOCATION("warmelt-first.melt:2832:/ apply");
+   MELT_LOCATION("warmelt-first.melt:2827:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:2832:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2827:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MACBIND__V24*/ curfptr[23];
     /*_.PUT_ENV__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:2833:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:2833:/ block");
+    MELT_LOCATION("warmelt-first.melt:2828:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:2828:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
       callcount;;
-     MELT_LOCATION("warmelt-first.melt:2833:/ apply");
+     MELT_LOCATION("warmelt-first.melt:2828:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:2833:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2828:/ apply.arg");
       argtab[0].bp_cstring =  "initmacro_exporter macbind";
-      MELT_LOCATION("warmelt-first.melt:2833:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2828:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
-      MELT_LOCATION("warmelt-first.melt:2833:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2828:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-first.melt";
-      MELT_LOCATION("warmelt-first.melt:2833:/ apply.arg");
-      argtab[3].bp_long = 2833;
+      MELT_LOCATION("warmelt-first.melt:2828:/ apply.arg");
+      argtab[3].bp_long = 2828;
       /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MACBIND__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2833:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2828:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2833:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2828:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:2833:/ cppif.else");
+    MELT_LOCATION("warmelt-first.melt:2828:/ cppif.else");
    /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-first.melt:2834:/ block");
+   MELT_LOCATION("warmelt-first.melt:2829:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-first.melt:2834:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:2829:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.LET___V23*/ curfptr[16] = /*_.RETURN___V29*/ curfptr[27];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2827:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2822:/ clear");
    /*clear*/ /*_.MACBIND__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2827:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2822:/ clear");
    /*clear*/ /*_.PUT_ENV__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2827:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2822:/ clear");
    /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2827:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2822:/ clear");
    /*clear*/ /*_.RETURN___V29*/ curfptr[27] = 0 ;}
   ;
   /*_.LET___V13*/ curfptr[9] = /*_.LET___V23*/ curfptr[16];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2817:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2812:/ clear");
   /*clear*/ /*_.ENV__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2817:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2812:/ clear");
   /*clear*/ /*_#NULL__L4*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2817:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2812:/ clear");
   /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2817:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2812:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2817:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2812:/ clear");
   /*clear*/ /*_.IFCPP___V21*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2817:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2812:/ clear");
   /*clear*/ /*_.LET___V23*/ curfptr[16] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2807:/ block");
+ MELT_LOCATION("warmelt-first.melt:2802:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[9];;
-  MELT_LOCATION("warmelt-first.melt:2807:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2802:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2807:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2802:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2807:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2802:/ clear");
  /*clear*/ /*_#NULL__L2*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2807:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2802:/ clear");
  /*clear*/ /*_.IF___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2807:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2802:/ clear");
  /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2807:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2802:/ clear");
  /*clear*/ /*_.LET___V13*/ curfptr[9] = 0 ;}
 
 ;
@@ -4375,25 +4375,25 @@ melt_trace_start("INITPATMACRO_EXPORTER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2838:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2833:/ getarg");
  /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:2838:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2833:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.MACVAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.MACVAL__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:2838:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2833:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.PATVAL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.PATVAL__V4*/ curfptr[3])) != NULL);
  
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:2838:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2833:/ getarg");
  if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
  /*_.CONTENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.CONTENV__V5*/ curfptr[4])) != NULL);
@@ -4402,63 +4402,63 @@ melt_trace_start("INITPATMACRO_EXPORTER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2838:/ block");
+MELT_LOCATION("warmelt-first.melt:2833:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2839:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2839:/ block");
+  MELT_LOCATION("warmelt-first.melt:2834:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2834:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-first.melt:2839:/ apply");
+   MELT_LOCATION("warmelt-first.melt:2834:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:2839:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2834:/ apply.arg");
     argtab[0].bp_cstring =  "initpatmacro_exporter sym";
-    MELT_LOCATION("warmelt-first.melt:2839:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2834:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-first.melt:2839:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2834:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-first.melt";
-    MELT_LOCATION("warmelt-first.melt:2839:/ apply.arg");
-    argtab[3].bp_long = 2839;
+    MELT_LOCATION("warmelt-first.melt:2834:/ apply.arg");
+    argtab[3].bp_long = 2834;
     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2839:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2834:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2839:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2834:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2839:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2834:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2840:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2840:/ block");
+  MELT_LOCATION("warmelt-first.melt:2835:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2835:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:2840:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2835:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2840:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2835:/ cond.then");
    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2840:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2835:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2840:/ block");
+    MELT_LOCATION("warmelt-first.melt:2835:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2840:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2835:/ locexp");
       melt_assert_failed(( "check sym"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2840)?(2840):__LINE__, __FUNCTION__);
+  (2835)?(2835):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
@@ -4469,67 +4469,67 @@ MELT_LOCATION("warmelt-first.melt:2838:/ block");
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2840:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2835:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2840:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2835:/ clear");
    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2840:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2835:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  /*_#NULL__L3*/ curfnum[0] = 
   ((/*_.CONTENV__V5*/ curfptr[4]) == NULL);;
- MELT_LOCATION("warmelt-first.melt:2841:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2836:/ cond");
  /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2841:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2841:/ block");
+ MELT_LOCATION("warmelt-first.melt:2836:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2836:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2846:/ block");
+   MELT_LOCATION("warmelt-first.melt:2841:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-first.melt:2846:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:2841:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
-   MELT_LOCATION("warmelt-first.melt:2842:/ block");
+   MELT_LOCATION("warmelt-first.melt:2837:/ block");
    /*block*/{
     /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[10];;}
    ;
    /*_.IF___V10*/ curfptr[8] = /*_.PROGN___V12*/ curfptr[11];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2841:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2836:/ clear");
    /*clear*/ /*_.RETURN___V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2841:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2836:/ clear");
    /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:2841:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2836:/ cond.else");
  
   /*_.IF___V10*/ curfptr[8] = NULL;;
   }
  ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2848:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2848:/ block");
+  MELT_LOCATION("warmelt-first.melt:2843:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2843:/ block");
   /*block*/{
    /*_#IS_A__L4*/ curfnum[3] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CONTENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-first.melt:2848:/ cond");
+   MELT_LOCATION("warmelt-first.melt:2843:/ cond");
    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:2848:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:2843:/ cond.then");
    /*_.IFELSE___V14*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:2848:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:2843:/ cond.else");
    
-    MELT_LOCATION("warmelt-first.melt:2848:/ block");
+    MELT_LOCATION("warmelt-first.melt:2843:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:2848:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:2843:/ locexp");
       melt_assert_failed(( "check contenv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2848)?(2848):__LINE__, __FUNCTION__);
+  (2843)?(2843):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
@@ -4540,85 +4540,85 @@ MELT_LOCATION("warmelt-first.melt:2838:/ block");
    ;
    /*_.IFCPP___V13*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2848:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2843:/ clear");
    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2848:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2843:/ clear");
    /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2848:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2843:/ cppif.else");
  /*_.IFCPP___V13*/ curfptr[10] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2849:/ block");
+ MELT_LOCATION("warmelt-first.melt:2844:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2849:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2844:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.CONTENV__V5*/ curfptr[4]), 0, "CONTAINER_VALUE");/*_.ENV__V16*/ curfptr[15] = slot; };
   ;
   /*_#NULL__L5*/ curfnum[3] = 
    ((/*_.ENV__V16*/ curfptr[15]) == NULL);;
-  MELT_LOCATION("warmelt-first.melt:2850:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2845:/ cond");
   /*cond*/ if (/*_#NULL__L5*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2850:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2850:/ block");
+  MELT_LOCATION("warmelt-first.melt:2845:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2845:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2853:/ getslot");
+    MELT_LOCATION("warmelt-first.melt:2848:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:2852:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2847:/ locexp");
     inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "exporting patmacro too early with null environment"), 
 			     melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
     ;
-    MELT_LOCATION("warmelt-first.melt:2854:/ block");
+    MELT_LOCATION("warmelt-first.melt:2849:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-first.melt:2854:/ finalreturn");
+     MELT_LOCATION("warmelt-first.melt:2849:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
-    MELT_LOCATION("warmelt-first.melt:2851:/ block");
+    MELT_LOCATION("warmelt-first.melt:2846:/ block");
     /*block*/{
      /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[18];;}
     ;
     /*_.IF___V17*/ curfptr[16] = /*_.PROGN___V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2850:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2845:/ clear");
     /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2850:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2845:/ clear");
     /*clear*/ /*_.RETURN___V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2850:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2845:/ clear");
     /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-first.melt:2850:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:2845:/ cond.else");
   
    /*_.IF___V17*/ curfptr[16] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2856:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2856:/ block");
+   MELT_LOCATION("warmelt-first.melt:2851:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2851:/ block");
    /*block*/{
     /*_#IS_A__L6*/ curfnum[5] = 
      melt_is_instance_of((melt_ptr_t)(/*_.ENV__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-first.melt:2856:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2851:/ cond");
     /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2856:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2851:/ cond.then");
     /*_.IFELSE___V22*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2856:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2851:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2856:/ block");
+     MELT_LOCATION("warmelt-first.melt:2851:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2856:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2851:/ locexp");
        melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2856)?(2856):__LINE__, __FUNCTION__);
+  (2851)?(2851):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V22*/ curfptr[18] = 0 ;}
@@ -4629,37 +4629,37 @@ MELT_LOCATION("warmelt-first.melt:2838:/ block");
     ;
     /*_.IFCPP___V21*/ curfptr[17] = /*_.IFELSE___V22*/ curfptr[18];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2856:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2851:/ clear");
     /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2856:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2851:/ clear");
     /*clear*/ /*_.IFELSE___V22*/ curfptr[18] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2856:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2851:/ cppif.else");
   /*_.IFCPP___V21*/ curfptr[17] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2857:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2857:/ block");
+   MELT_LOCATION("warmelt-first.melt:2852:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2852:/ block");
    /*block*/{
     /*_#IS_CLOSURE__L7*/ curfnum[5] = 
      (melt_magic_discr((melt_ptr_t)(/*_.MACVAL__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-    MELT_LOCATION("warmelt-first.melt:2857:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2852:/ cond");
     /*cond*/ if (/*_#IS_CLOSURE__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2857:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2852:/ cond.then");
     /*_.IFELSE___V24*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2857:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2852:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2857:/ block");
+     MELT_LOCATION("warmelt-first.melt:2852:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2857:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2852:/ locexp");
        melt_assert_failed(( "check macval is closure"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2857)?(2857):__LINE__, __FUNCTION__);
+  (2852)?(2852):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V24*/ curfptr[18] = 0 ;}
@@ -4670,37 +4670,37 @@ MELT_LOCATION("warmelt-first.melt:2838:/ block");
     ;
     /*_.IFCPP___V23*/ curfptr[19] = /*_.IFELSE___V24*/ curfptr[18];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2857:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2852:/ clear");
     /*clear*/ /*_#IS_CLOSURE__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2857:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2852:/ clear");
     /*clear*/ /*_.IFELSE___V24*/ curfptr[18] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2857:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2852:/ cppif.else");
   /*_.IFCPP___V23*/ curfptr[19] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2858:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2858:/ block");
+   MELT_LOCATION("warmelt-first.melt:2853:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2853:/ block");
    /*block*/{
     /*_#IS_CLOSURE__L8*/ curfnum[5] = 
      (melt_magic_discr((melt_ptr_t)(/*_.PATVAL__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
-    MELT_LOCATION("warmelt-first.melt:2858:/ cond");
+    MELT_LOCATION("warmelt-first.melt:2853:/ cond");
     /*cond*/ if (/*_#IS_CLOSURE__L8*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:2858:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:2853:/ cond.then");
     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:2858:/ cond.else");
+    } else {MELT_LOCATION("warmelt-first.melt:2853:/ cond.else");
     
-     MELT_LOCATION("warmelt-first.melt:2858:/ block");
+     MELT_LOCATION("warmelt-first.melt:2853:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-first.melt:2858:/ locexp");
+       MELT_LOCATION("warmelt-first.melt:2853:/ locexp");
        melt_assert_failed(( "check patval is closure"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (2858)?(2858):__LINE__, __FUNCTION__);
+  (2853)?(2853):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
@@ -4711,139 +4711,139 @@ MELT_LOCATION("warmelt-first.melt:2838:/ block");
     ;
     /*_.IFCPP___V25*/ curfptr[18] = /*_.IFELSE___V26*/ curfptr[25];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2858:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2853:/ clear");
     /*clear*/ /*_#IS_CLOSURE__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2858:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2853:/ clear");
     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2858:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2853:/ cppif.else");
   /*_.IFCPP___V25*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-first.melt:2859:/ block");
+  MELT_LOCATION("warmelt-first.melt:2854:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2859:/ block");
+   MELT_LOCATION("warmelt-first.melt:2854:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:2859:/ rawallocobj");
+    MELT_LOCATION("warmelt-first.melt:2854:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_PATMACRO_BINDING*/ curfrout->tabval[4])), (3), "CLASS_PATMACRO_BINDING");/*_.INST__V29*/ curfptr[28] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-first.melt:2859:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2854:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.SYM__V2*/ curfptr[1]), "BINDER");
     ;
-    MELT_LOCATION("warmelt-first.melt:2859:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2854:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @MBIND_EXPANSER", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.MACVAL__V3*/ curfptr[2]), "MBIND_EXPANSER");
     ;
-    MELT_LOCATION("warmelt-first.melt:2859:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:2854:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @PATBIND_EXPANSER", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.PATVAL__V4*/ curfptr[3]), "PATBIND_EXPANSER");
     ;
     /*_.MACBIND__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
    ;
-   MELT_LOCATION("warmelt-first.melt:2865:/ apply");
+   MELT_LOCATION("warmelt-first.melt:2860:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:2865:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2860:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MACBIND__V28*/ curfptr[27];
     /*_.PUT_ENV__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:2866:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:2866:/ block");
+    MELT_LOCATION("warmelt-first.melt:2861:/ cppif.then");
+   MELT_LOCATION("warmelt-first.melt:2861:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
       callcount;;
-     MELT_LOCATION("warmelt-first.melt:2866:/ apply");
+     MELT_LOCATION("warmelt-first.melt:2861:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:2866:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2861:/ apply.arg");
       argtab[0].bp_cstring =  "initpatmacro_exporter macbind";
-      MELT_LOCATION("warmelt-first.melt:2866:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2861:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
-      MELT_LOCATION("warmelt-first.melt:2866:/ apply.arg");
+      MELT_LOCATION("warmelt-first.melt:2861:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-first.melt";
-      MELT_LOCATION("warmelt-first.melt:2866:/ apply.arg");
-      argtab[3].bp_long = 2866;
+      MELT_LOCATION("warmelt-first.melt:2861:/ apply.arg");
+      argtab[3].bp_long = 2861;
       /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MACBIND__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:2866:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2861:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:2866:/ clear");
+     MELT_LOCATION("warmelt-first.melt:2861:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:2866:/ cppif.else");
+    MELT_LOCATION("warmelt-first.melt:2861:/ cppif.else");
    /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-first.melt:2867:/ block");
+   MELT_LOCATION("warmelt-first.melt:2862:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-first.melt:2867:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:2862:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.LET___V27*/ curfptr[25] = /*_.RETURN___V33*/ curfptr[31];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2859:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2854:/ clear");
    /*clear*/ /*_.MACBIND__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2859:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2854:/ clear");
    /*clear*/ /*_.PUT_ENV__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2859:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2854:/ clear");
    /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2859:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2854:/ clear");
    /*clear*/ /*_.RETURN___V33*/ curfptr[31] = 0 ;}
   ;
   /*_.LET___V15*/ curfptr[11] = /*_.LET___V27*/ curfptr[25];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_.ENV__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_#NULL__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_.IF___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_.IFCPP___V21*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_.IFCPP___V23*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_.IFCPP___V25*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2849:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2844:/ clear");
   /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2838:/ block");
+ MELT_LOCATION("warmelt-first.melt:2833:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[11];;
-  MELT_LOCATION("warmelt-first.melt:2838:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2833:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2838:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2833:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2838:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2833:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2838:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2833:/ clear");
  /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2838:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2833:/ clear");
  /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2838:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2833:/ clear");
  /*clear*/ /*_.IFCPP___V13*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2838:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2833:/ clear");
  /*clear*/ /*_.LET___V15*/ curfptr[11] = 0 ;}
 
 ;
@@ -4906,70 +4906,70 @@ melt_trace_start("INIT_EXITFINALIZER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2888:/ block");
+MELT_LOCATION("warmelt-first.melt:2883:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2889:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2889:/ block");
+  MELT_LOCATION("warmelt-first.melt:2884:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2884:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-first.melt:2889:/ apply");
+   MELT_LOCATION("warmelt-first.melt:2884:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:2889:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2884:/ apply.arg");
     argtab[0].bp_cstring =  "init_exitfinalizer final_delayed_queue at start";
-    MELT_LOCATION("warmelt-first.melt:2889:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2884:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-first.melt:2889:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2884:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-first.melt";
-    MELT_LOCATION("warmelt-first.melt:2889:/ apply.arg");
-    argtab[3].bp_long = 2889;
+    MELT_LOCATION("warmelt-first.melt:2884:/ apply.arg");
+    argtab[3].bp_long = 2884;
     /*_.DEBUG_MSG_FUN__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V2*/ curfptr[1] = /*_.DEBUG_MSG_FUN__V3*/ curfptr[2];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2889:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2884:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2889:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2884:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V3*/ curfptr[2] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2889:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2884:/ cppif.else");
  /*_.IFCPP___V2*/ curfptr[1] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2890:/ block");
+ MELT_LOCATION("warmelt-first.melt:2885:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2890:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2885:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[1])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V5*/ curfptr[4] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2891:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2886:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[1])), 3, "DELQU_LAST");/*_.LASTLIST__V6*/ curfptr[5] = slot; };
   ;
   /*_.REVLASTLIST__V7*/ curfptr[6] = 
    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-first.melt:2893:/ block");
+  MELT_LOCATION("warmelt-first.melt:2888:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2893:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:2888:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[3])), (1), "CLASS_CONTAINER");/*_.INST__V9*/ curfptr[8] =
     newobj; };
    ;
    /*_.RESCONT__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2898:/ block");
+  MELT_LOCATION("warmelt-first.melt:2893:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2898:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:2893:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:2898:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:2893:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
@@ -4977,22 +4977,22 @@ MELT_LOCATION("warmelt-first.melt:2888:/ block");
    ;
    /*_.LAMBDA___V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2896:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2891:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2896:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2891:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[9];
    /*_.LIST_EVERY__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.FIRSTLIST__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2907:/ block");
+  MELT_LOCATION("warmelt-first.melt:2902:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2907:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:2902:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:2907:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:2902:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
@@ -5000,22 +5000,22 @@ MELT_LOCATION("warmelt-first.melt:2888:/ block");
    ;
    /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2905:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2900:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2905:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2900:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
    /*_.LIST_EVERY__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LASTLIST__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2912:/ block");
+  MELT_LOCATION("warmelt-first.melt:2907:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2912:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:2907:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:2912:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:2907:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
@@ -5023,85 +5023,85 @@ MELT_LOCATION("warmelt-first.melt:2888:/ block");
    ;
    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2910:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2905:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2910:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2905:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
    /*_.LIST_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.REVLASTLIST__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2918:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2918:/ block");
+   MELT_LOCATION("warmelt-first.melt:2913:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2913:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-first.melt:2918:/ apply");
+    MELT_LOCATION("warmelt-first.melt:2913:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:2918:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2913:/ apply.arg");
      argtab[0].bp_cstring =  "init_exitfinalizer ending rescont";
-     MELT_LOCATION("warmelt-first.melt:2918:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2913:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-     MELT_LOCATION("warmelt-first.melt:2918:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2913:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-first.melt";
-     MELT_LOCATION("warmelt-first.melt:2918:/ apply.arg");
-     argtab[3].bp_long = 2918;
+     MELT_LOCATION("warmelt-first.melt:2913:/ apply.arg");
+     argtab[3].bp_long = 2913;
      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESCONT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2918:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2913:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2918:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2913:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2918:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2913:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_.LET___V4*/ curfptr[2] = /*_.IFCPP___V19*/ curfptr[18];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.FIRSTLIST__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LASTLIST__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.REVLASTLIST__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.RESCONT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LAMBDA___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LIST_EVERY__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2890:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2885:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2888:/ block");
+ MELT_LOCATION("warmelt-first.melt:2883:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:2888:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2883:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2888:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2883:/ clear");
  /*clear*/ /*_.IFCPP___V2*/ curfptr[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2888:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2883:/ clear");
  /*clear*/ /*_.LET___V4*/ curfptr[2] = 0 ;}
 
 ;
@@ -5162,45 +5162,45 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2898:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2893:/ getarg");
  /*_.FIRSTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2898:/ block");
+MELT_LOCATION("warmelt-first.melt:2893:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2899:/ block");
+ MELT_LOCATION("warmelt-first.melt:2894:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2899:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2894:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ curfptr[2] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2900:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2895:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2900:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2895:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[0]);
    /*_.NEXTRES__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ curfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2902:/ block");
+  MELT_LOCATION("warmelt-first.melt:2897:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2902:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2897:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0]))) == OBMAG_OBJECT);
    melt_putfield_object(((/*~RESCONT*/ curfclos->tabval[0])), (0), (/*_.NEXTRES__V4*/ curfptr[3]), "CONTAINER_VALUE");
    ;
-   MELT_LOCATION("warmelt-first.melt:2902:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2897:/ touch");
    meltgc_touch((/*~RESCONT*/ curfclos->tabval[0]));
    ;
    /*epilog*/}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2899:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2894:/ clear");
   /*clear*/ /*_.PREVRES__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2899:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2894:/ clear");
   /*clear*/ /*_.NEXTRES__V4*/ curfptr[3] = 0 ;}
  ;
  /*epilog*/}
@@ -5263,24 +5263,24 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2907:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2902:/ getarg");
  /*_.LASTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2907:/ block");
+MELT_LOCATION("warmelt-first.melt:2902:/ block");
 /*block*/{
  /*_#IS_CLOSURE__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
- MELT_LOCATION("warmelt-first.melt:2908:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2903:/ cond");
  /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2908:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2908:/ block");
+ MELT_LOCATION("warmelt-first.melt:2903:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2903:/ block");
   /*block*/{
    
    {
-   MELT_LOCATION("warmelt-first.melt:2908:/ locexp");
+   MELT_LOCATION("warmelt-first.melt:2903:/ locexp");
    meltgc_prepend_list((melt_ptr_t)((/*~REVLASTLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1]));}
    ;
    /*epilog*/}
@@ -5288,7 +5288,7 @@ MELT_LOCATION("warmelt-first.melt:2907:/ block");
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2907:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2902:/ clear");
  /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -5349,45 +5349,45 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2912:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2907:/ getarg");
  /*_.LASTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2912:/ block");
+MELT_LOCATION("warmelt-first.melt:2907:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2913:/ block");
+ MELT_LOCATION("warmelt-first.melt:2908:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2913:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2908:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ curfptr[2] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2914:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2909:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2914:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2909:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[0]);
    /*_.NEXTRES__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2916:/ block");
+  MELT_LOCATION("warmelt-first.melt:2911:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2916:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2911:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0]))) == OBMAG_OBJECT);
    melt_putfield_object(((/*~RESCONT*/ curfclos->tabval[0])), (0), (/*_.NEXTRES__V4*/ curfptr[3]), "CONTAINER_VALUE");
    ;
-   MELT_LOCATION("warmelt-first.melt:2916:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2911:/ touch");
    meltgc_touch((/*~RESCONT*/ curfclos->tabval[0]));
    ;
    /*epilog*/}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2913:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2908:/ clear");
   /*clear*/ /*_.PREVRES__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2913:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2908:/ clear");
   /*clear*/ /*_.NEXTRES__V4*/ curfptr[3] = 0 ;}
  ;
  /*epilog*/}
@@ -5450,30 +5450,30 @@ melt_trace_start("AT_EXIT_FIRST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2922:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2917:/ getarg");
  /*_.FUN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2922:/ block");
+MELT_LOCATION("warmelt-first.melt:2917:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2925:/ block");
+ MELT_LOCATION("warmelt-first.melt:2920:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2925:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2920:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[0])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V3*/ curfptr[2] = slot; };
   ;
   /*_#IS_CLOSURE__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:2927:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2922:/ cond");
   /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2927:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2927:/ block");
+  MELT_LOCATION("warmelt-first.melt:2922:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2922:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:2927:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2922:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.FIRSTLIST__V3*/ curfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ curfptr[1]));}
     ;
     /*epilog*/}
@@ -5481,9 +5481,9 @@ MELT_LOCATION("warmelt-first.melt:2922:/ block");
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2925:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2920:/ clear");
   /*clear*/ /*_.FIRSTLIST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2925:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2920:/ clear");
   /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/}
@@ -5546,30 +5546,30 @@ melt_trace_start("AT_EXIT_LAST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2930:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2925:/ getarg");
  /*_.FUN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2930:/ block");
+MELT_LOCATION("warmelt-first.melt:2925:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2933:/ block");
+ MELT_LOCATION("warmelt-first.melt:2928:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2933:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2928:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINAL_DELAYED_QUEUE*/ curfrout->tabval[0])), 3, "DELQU_LAST");/*_.LASTLIST__V3*/ curfptr[2] = slot; };
   ;
   /*_#IS_CLOSURE__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:2935:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2930:/ cond");
   /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2935:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2935:/ block");
+  MELT_LOCATION("warmelt-first.melt:2930:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2930:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:2935:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2930:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.LASTLIST__V3*/ curfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ curfptr[1]));}
     ;
     /*epilog*/}
@@ -5577,9 +5577,9 @@ MELT_LOCATION("warmelt-first.melt:2930:/ block");
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2933:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2928:/ clear");
   /*clear*/ /*_.LASTLIST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2933:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2928:/ clear");
   /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/}
@@ -5644,70 +5644,70 @@ melt_trace_start("INIT_UNITSTARTER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2946:/ block");
+MELT_LOCATION("warmelt-first.melt:2941:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:2947:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:2947:/ block");
+  MELT_LOCATION("warmelt-first.melt:2942:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2942:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-first.melt:2947:/ apply");
+   MELT_LOCATION("warmelt-first.melt:2942:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:2947:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2942:/ apply.arg");
     argtab[0].bp_cstring =  "init_unitstarter start_unit_delayed_queue at start";
-    MELT_LOCATION("warmelt-first.melt:2947:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2942:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-first.melt:2947:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2942:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-first.melt";
-    MELT_LOCATION("warmelt-first.melt:2947:/ apply.arg");
-    argtab[3].bp_long = 2947;
+    MELT_LOCATION("warmelt-first.melt:2942:/ apply.arg");
+    argtab[3].bp_long = 2942;
     /*_.DEBUG_MSG_FUN__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V2*/ curfptr[1] = /*_.DEBUG_MSG_FUN__V3*/ curfptr[2];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:2947:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2942:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:2947:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2942:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V3*/ curfptr[2] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:2947:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2942:/ cppif.else");
  /*_.IFCPP___V2*/ curfptr[1] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:2948:/ block");
+ MELT_LOCATION("warmelt-first.melt:2943:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2948:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2943:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[1])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V5*/ curfptr[4] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2949:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2944:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[1])), 3, "DELQU_LAST");/*_.LASTLIST__V6*/ curfptr[5] = slot; };
   ;
   /*_.REVLASTLIST__V7*/ curfptr[6] = 
    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-first.melt:2951:/ block");
+  MELT_LOCATION("warmelt-first.melt:2946:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2951:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:2946:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[3])), (1), "CLASS_CONTAINER");/*_.INST__V9*/ curfptr[8] =
     newobj; };
    ;
    /*_.RESCONT__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2956:/ block");
+  MELT_LOCATION("warmelt-first.melt:2951:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2956:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:2951:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:2956:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:2951:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
@@ -5715,22 +5715,22 @@ MELT_LOCATION("warmelt-first.melt:2946:/ block");
    ;
    /*_.LAMBDA___V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2954:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2949:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2954:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2949:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[9];
    /*_.LIST_EVERY__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.FIRSTLIST__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2965:/ block");
+  MELT_LOCATION("warmelt-first.melt:2960:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2965:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:2960:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:2965:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:2960:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
@@ -5738,22 +5738,22 @@ MELT_LOCATION("warmelt-first.melt:2946:/ block");
    ;
    /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2963:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2958:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2963:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2958:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
    /*_.LIST_EVERY__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LASTLIST__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2970:/ block");
+  MELT_LOCATION("warmelt-first.melt:2965:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2970:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:2965:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:2970:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:2965:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
@@ -5761,85 +5761,85 @@ MELT_LOCATION("warmelt-first.melt:2946:/ block");
    ;
    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:2968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2963:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2963:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
    /*_.LIST_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.REVLASTLIST__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:2976:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:2976:/ block");
+   MELT_LOCATION("warmelt-first.melt:2971:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:2971:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-first.melt:2976:/ apply");
+    MELT_LOCATION("warmelt-first.melt:2971:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:2976:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2971:/ apply.arg");
      argtab[0].bp_cstring =  "init_unitstarter ending rescont";
-     MELT_LOCATION("warmelt-first.melt:2976:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2971:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-     MELT_LOCATION("warmelt-first.melt:2976:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:2971:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-first.melt";
-     MELT_LOCATION("warmelt-first.melt:2976:/ apply.arg");
-     argtab[3].bp_long = 2976;
+     MELT_LOCATION("warmelt-first.melt:2971:/ apply.arg");
+     argtab[3].bp_long = 2971;
      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESCONT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:2976:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2971:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:2976:/ clear");
+    MELT_LOCATION("warmelt-first.melt:2971:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:2976:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:2971:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_.LET___V4*/ curfptr[2] = /*_.IFCPP___V19*/ curfptr[18];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.FIRSTLIST__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LASTLIST__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.REVLASTLIST__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.RESCONT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LAMBDA___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LIST_EVERY__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2948:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2943:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:2946:/ block");
+ MELT_LOCATION("warmelt-first.melt:2941:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:2946:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2941:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2946:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2941:/ clear");
  /*clear*/ /*_.IFCPP___V2*/ curfptr[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:2946:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2941:/ clear");
  /*clear*/ /*_.LET___V4*/ curfptr[2] = 0 ;}
 
 ;
@@ -5900,45 +5900,45 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2956:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2951:/ getarg");
  /*_.FIRSTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2956:/ block");
+MELT_LOCATION("warmelt-first.melt:2951:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2957:/ block");
+ MELT_LOCATION("warmelt-first.melt:2952:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2957:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2952:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ curfptr[2] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2958:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2953:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2958:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2953:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0]);
    /*_.NEXTRES__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ curfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2960:/ block");
+  MELT_LOCATION("warmelt-first.melt:2955:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2960:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2955:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0]))) == OBMAG_OBJECT);
    melt_putfield_object(((/*~RESCONT*/ curfclos->tabval[0])), (0), (/*_.NEXTRES__V4*/ curfptr[3]), "CONTAINER_VALUE");
    ;
-   MELT_LOCATION("warmelt-first.melt:2960:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2955:/ touch");
    meltgc_touch((/*~RESCONT*/ curfclos->tabval[0]));
    ;
    /*epilog*/}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2957:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2952:/ clear");
   /*clear*/ /*_.PREVRES__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2957:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2952:/ clear");
   /*clear*/ /*_.NEXTRES__V4*/ curfptr[3] = 0 ;}
  ;
  /*epilog*/}
@@ -6001,24 +6001,24 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2965:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2960:/ getarg");
  /*_.LASTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2965:/ block");
+MELT_LOCATION("warmelt-first.melt:2960:/ block");
 /*block*/{
  /*_#IS_CLOSURE__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
- MELT_LOCATION("warmelt-first.melt:2966:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2961:/ cond");
  /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:2966:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:2966:/ block");
+ MELT_LOCATION("warmelt-first.melt:2961:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:2961:/ block");
   /*block*/{
    
    {
-   MELT_LOCATION("warmelt-first.melt:2966:/ locexp");
+   MELT_LOCATION("warmelt-first.melt:2961:/ locexp");
    meltgc_prepend_list((melt_ptr_t)((/*~REVLASTLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1]));}
    ;
    /*epilog*/}
@@ -6026,7 +6026,7 @@ MELT_LOCATION("warmelt-first.melt:2965:/ block");
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:2965:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2960:/ clear");
  /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -6087,45 +6087,45 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2970:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2965:/ getarg");
  /*_.LASTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2970:/ block");
+MELT_LOCATION("warmelt-first.melt:2965:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2971:/ block");
+ MELT_LOCATION("warmelt-first.melt:2966:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2971:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2966:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ curfptr[2] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:2972:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2967:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2972:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2967:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0]);
    /*_.NEXTRES__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:2974:/ block");
+  MELT_LOCATION("warmelt-first.melt:2969:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2974:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2969:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0]))) == OBMAG_OBJECT);
    melt_putfield_object(((/*~RESCONT*/ curfclos->tabval[0])), (0), (/*_.NEXTRES__V4*/ curfptr[3]), "CONTAINER_VALUE");
    ;
-   MELT_LOCATION("warmelt-first.melt:2974:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2969:/ touch");
    meltgc_touch((/*~RESCONT*/ curfclos->tabval[0]));
    ;
    /*epilog*/}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2971:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2966:/ clear");
   /*clear*/ /*_.PREVRES__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2971:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2966:/ clear");
   /*clear*/ /*_.NEXTRES__V4*/ curfptr[3] = 0 ;}
  ;
  /*epilog*/}
@@ -6188,30 +6188,30 @@ melt_trace_start("AT_START_UNIT_FIRST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2980:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2975:/ getarg");
  /*_.FUN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2980:/ block");
+MELT_LOCATION("warmelt-first.melt:2975:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2982:/ block");
+ MELT_LOCATION("warmelt-first.melt:2977:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2982:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2977:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V3*/ curfptr[2] = slot; };
   ;
   /*_#IS_CLOSURE__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:2984:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2979:/ cond");
   /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2984:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2984:/ block");
+  MELT_LOCATION("warmelt-first.melt:2979:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2979:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:2984:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2979:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.FIRSTLIST__V3*/ curfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ curfptr[1]));}
     ;
     /*epilog*/}
@@ -6219,9 +6219,9 @@ MELT_LOCATION("warmelt-first.melt:2980:/ block");
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2982:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2977:/ clear");
   /*clear*/ /*_.FIRSTLIST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2982:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2977:/ clear");
   /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/}
@@ -6284,30 +6284,30 @@ melt_trace_start("AT_START_UNIT_LAST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:2987:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:2982:/ getarg");
  /*_.FUN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:2987:/ block");
+MELT_LOCATION("warmelt-first.melt:2982:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:2989:/ block");
+ MELT_LOCATION("warmelt-first.melt:2984:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2989:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2984:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0])), 3, "DELQU_LAST");/*_.LASTLIST__V3*/ curfptr[2] = slot; };
   ;
   /*_#IS_CLOSURE__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:2991:/ cond");
+  MELT_LOCATION("warmelt-first.melt:2986:/ cond");
   /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:2991:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:2991:/ block");
+  MELT_LOCATION("warmelt-first.melt:2986:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:2986:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:2991:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:2986:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.LASTLIST__V3*/ curfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ curfptr[1]));}
     ;
     /*epilog*/}
@@ -6315,9 +6315,9 @@ MELT_LOCATION("warmelt-first.melt:2987:/ block");
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2989:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2984:/ clear");
   /*clear*/ /*_.LASTLIST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:2989:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2984:/ clear");
   /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/}
@@ -6382,70 +6382,70 @@ melt_trace_start("INIT_UNITFINISHER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3002:/ block");
+MELT_LOCATION("warmelt-first.melt:2997:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3003:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3003:/ block");
+  MELT_LOCATION("warmelt-first.melt:2998:/ cppif.then");
+ MELT_LOCATION("warmelt-first.melt:2998:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-first.melt:3003:/ apply");
+   MELT_LOCATION("warmelt-first.melt:2998:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:3003:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2998:/ apply.arg");
     argtab[0].bp_cstring =  "init_unitfinisher finish_unit_delayed_queue at start";
-    MELT_LOCATION("warmelt-first.melt:3003:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2998:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-first.melt:3003:/ apply.arg");
+    MELT_LOCATION("warmelt-first.melt:2998:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-first.melt";
-    MELT_LOCATION("warmelt-first.melt:3003:/ apply.arg");
-    argtab[3].bp_long = 3003;
+    MELT_LOCATION("warmelt-first.melt:2998:/ apply.arg");
+    argtab[3].bp_long = 2998;
     /*_.DEBUG_MSG_FUN__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V2*/ curfptr[1] = /*_.DEBUG_MSG_FUN__V3*/ curfptr[2];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3003:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2998:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3003:/ clear");
+   MELT_LOCATION("warmelt-first.melt:2998:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V3*/ curfptr[2] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3003:/ cppif.else");
+  MELT_LOCATION("warmelt-first.melt:2998:/ cppif.else");
  /*_.IFCPP___V2*/ curfptr[1] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-first.melt:3004:/ block");
+ MELT_LOCATION("warmelt-first.melt:2999:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3004:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:2999:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[1])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V5*/ curfptr[4] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:3005:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:3000:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[1])), 3, "DELQU_LAST");/*_.LASTLIST__V6*/ curfptr[5] = slot; };
   ;
   /*_.REVLASTLIST__V7*/ curfptr[6] = 
    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-first.melt:3007:/ block");
+  MELT_LOCATION("warmelt-first.melt:3002:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3007:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:3002:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[3])), (1), "CLASS_CONTAINER");/*_.INST__V9*/ curfptr[8] =
     newobj; };
    ;
    /*_.RESCONT__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:3012:/ block");
+  MELT_LOCATION("warmelt-first.melt:3007:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3012:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:3007:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:3012:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:3007:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
@@ -6453,22 +6453,22 @@ MELT_LOCATION("warmelt-first.melt:3002:/ block");
    ;
    /*_.LAMBDA___V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:3010:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3005:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3010:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3005:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[9];
    /*_.LIST_EVERY__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.FIRSTLIST__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:3021:/ block");
+  MELT_LOCATION("warmelt-first.melt:3016:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3021:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:3016:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:3021:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:3016:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
@@ -6476,22 +6476,22 @@ MELT_LOCATION("warmelt-first.melt:3002:/ block");
    ;
    /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:3019:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3014:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3019:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3014:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
    /*_.LIST_EVERY__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LASTLIST__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:3026:/ block");
+  MELT_LOCATION("warmelt-first.melt:3021:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3026:/ newclosure");
+   MELT_LOCATION("warmelt-first.melt:3021:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
    ;
-   MELT_LOCATION("warmelt-first.melt:3026:/ putclosedv");
+   MELT_LOCATION("warmelt-first.melt:3021:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
@@ -6499,85 +6499,85 @@ MELT_LOCATION("warmelt-first.melt:3002:/ block");
    ;
    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
   ;
-  MELT_LOCATION("warmelt-first.melt:3024:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3019:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3024:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3019:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
    /*_.LIST_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.REVLASTLIST__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:3032:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:3032:/ block");
+   MELT_LOCATION("warmelt-first.melt:3027:/ cppif.then");
+  MELT_LOCATION("warmelt-first.melt:3027:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-first.melt:3032:/ apply");
+    MELT_LOCATION("warmelt-first.melt:3027:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:3032:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:3027:/ apply.arg");
      argtab[0].bp_cstring =  "init_unitfinisher ending rescont";
-     MELT_LOCATION("warmelt-first.melt:3032:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:3027:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-     MELT_LOCATION("warmelt-first.melt:3032:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:3027:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-first.melt";
-     MELT_LOCATION("warmelt-first.melt:3032:/ apply.arg");
-     argtab[3].bp_long = 3032;
+     MELT_LOCATION("warmelt-first.melt:3027:/ apply.arg");
+     argtab[3].bp_long = 3027;
      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESCONT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3032:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3027:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3032:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3027:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:3032:/ cppif.else");
+   MELT_LOCATION("warmelt-first.melt:3027:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_.LET___V4*/ curfptr[2] = /*_.IFCPP___V19*/ curfptr[18];;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.FIRSTLIST__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LASTLIST__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.REVLASTLIST__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.RESCONT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LAMBDA___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LIST_EVERY__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3004:/ clear");
+  MELT_LOCATION("warmelt-first.melt:2999:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;}
  ;
- MELT_LOCATION("warmelt-first.melt:3002:/ block");
+ MELT_LOCATION("warmelt-first.melt:2997:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:3002:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:2997:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3002:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2997:/ clear");
  /*clear*/ /*_.IFCPP___V2*/ curfptr[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3002:/ clear");
+ MELT_LOCATION("warmelt-first.melt:2997:/ clear");
  /*clear*/ /*_.LET___V4*/ curfptr[2] = 0 ;}
 
 ;
@@ -6638,45 +6638,45 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3012:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3007:/ getarg");
  /*_.FIRSTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3012:/ block");
+MELT_LOCATION("warmelt-first.melt:3007:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:3013:/ block");
+ MELT_LOCATION("warmelt-first.melt:3008:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3013:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:3008:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ curfptr[2] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:3014:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3009:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3014:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3009:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0]);
    /*_.NEXTRES__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ curfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:3016:/ block");
+  MELT_LOCATION("warmelt-first.melt:3011:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3016:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3011:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0]))) == OBMAG_OBJECT);
    melt_putfield_object(((/*~RESCONT*/ curfclos->tabval[0])), (0), (/*_.NEXTRES__V4*/ curfptr[3]), "CONTAINER_VALUE");
    ;
-   MELT_LOCATION("warmelt-first.melt:3016:/ touch");
+   MELT_LOCATION("warmelt-first.melt:3011:/ touch");
    meltgc_touch((/*~RESCONT*/ curfclos->tabval[0]));
    ;
    /*epilog*/}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3013:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3008:/ clear");
   /*clear*/ /*_.PREVRES__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3013:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3008:/ clear");
   /*clear*/ /*_.NEXTRES__V4*/ curfptr[3] = 0 ;}
  ;
  /*epilog*/}
@@ -6739,24 +6739,24 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3021:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3016:/ getarg");
  /*_.LASTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3021:/ block");
+MELT_LOCATION("warmelt-first.melt:3016:/ block");
 /*block*/{
  /*_#IS_CLOSURE__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
- MELT_LOCATION("warmelt-first.melt:3022:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3017:/ cond");
  /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3022:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3022:/ block");
+ MELT_LOCATION("warmelt-first.melt:3017:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3017:/ block");
   /*block*/{
    
    {
-   MELT_LOCATION("warmelt-first.melt:3022:/ locexp");
+   MELT_LOCATION("warmelt-first.melt:3017:/ locexp");
    meltgc_prepend_list((melt_ptr_t)((/*~REVLASTLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1]));}
    ;
    /*epilog*/}
@@ -6764,7 +6764,7 @@ MELT_LOCATION("warmelt-first.melt:3021:/ block");
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3021:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3016:/ clear");
  /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -6825,45 +6825,45 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3026:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3021:/ getarg");
  /*_.LASTPROC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3026:/ block");
+MELT_LOCATION("warmelt-first.melt:3021:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:3027:/ block");
+ MELT_LOCATION("warmelt-first.melt:3022:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3027:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:3022:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0])), 0, "CONTAINER_VALUE");/*_.PREVRES__V3*/ curfptr[2] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:3028:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3023:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3028:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3023:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0]);
    /*_.NEXTRES__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ curfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:3030:/ block");
+  MELT_LOCATION("warmelt-first.melt:3025:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3030:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3025:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @CONTAINER_VALUE", melt_magic_discr((melt_ptr_t)((/*~RESCONT*/ curfclos->tabval[0]))) == OBMAG_OBJECT);
    melt_putfield_object(((/*~RESCONT*/ curfclos->tabval[0])), (0), (/*_.NEXTRES__V4*/ curfptr[3]), "CONTAINER_VALUE");
    ;
-   MELT_LOCATION("warmelt-first.melt:3030:/ touch");
+   MELT_LOCATION("warmelt-first.melt:3025:/ touch");
    meltgc_touch((/*~RESCONT*/ curfclos->tabval[0]));
    ;
    /*epilog*/}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3027:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3022:/ clear");
   /*clear*/ /*_.PREVRES__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3027:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3022:/ clear");
   /*clear*/ /*_.NEXTRES__V4*/ curfptr[3] = 0 ;}
  ;
  /*epilog*/}
@@ -6926,30 +6926,30 @@ melt_trace_start("AT_FINISH_UNIT_FIRST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3036:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3031:/ getarg");
  /*_.FUN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3036:/ block");
+MELT_LOCATION("warmelt-first.melt:3031:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:3039:/ block");
+ MELT_LOCATION("warmelt-first.melt:3034:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3039:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:3034:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0])), 2, "DELQU_FIRST");/*_.FIRSTLIST__V3*/ curfptr[2] = slot; };
   ;
   /*_#IS_CLOSURE__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:3041:/ cond");
+  MELT_LOCATION("warmelt-first.melt:3036:/ cond");
   /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3041:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3041:/ block");
+  MELT_LOCATION("warmelt-first.melt:3036:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3036:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:3041:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3036:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.FIRSTLIST__V3*/ curfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ curfptr[1]));}
     ;
     /*epilog*/}
@@ -6957,9 +6957,9 @@ MELT_LOCATION("warmelt-first.melt:3036:/ block");
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3039:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3034:/ clear");
   /*clear*/ /*_.FIRSTLIST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3039:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3034:/ clear");
   /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/}
@@ -7022,30 +7022,30 @@ melt_trace_start("AT_FINISH_UNIT_LAST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3044:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3039:/ getarg");
  /*_.FUN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3044:/ block");
+MELT_LOCATION("warmelt-first.melt:3039:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:3047:/ block");
+ MELT_LOCATION("warmelt-first.melt:3042:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3047:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:3042:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ curfrout->tabval[0])), 3, "DELQU_LAST");/*_.LASTLIST__V3*/ curfptr[2] = slot; };
   ;
   /*_#IS_CLOSURE__L1*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:3049:/ cond");
+  MELT_LOCATION("warmelt-first.melt:3044:/ cond");
   /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3049:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3049:/ block");
+  MELT_LOCATION("warmelt-first.melt:3044:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3044:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:3049:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3044:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.LASTLIST__V3*/ curfptr[2]), (melt_ptr_t)(/*_.FUN__V2*/ curfptr[1]));}
     ;
     /*epilog*/}
@@ -7053,9 +7053,9 @@ MELT_LOCATION("warmelt-first.melt:3044:/ block");
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3047:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3042:/ clear");
   /*clear*/ /*_.LASTLIST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3047:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3042:/ clear");
   /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/}
@@ -7119,25 +7119,25 @@ melt_trace_start("DISPLAY_DEBUG_MESSAGE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3055:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3050:/ getarg");
  /*_.VAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3055:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3050:/ getarg");
  if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3055:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3050:/ getarg");
  if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
  /*_#COUNT__L1*/ curfnum[0] = xargtab_[1].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3055:/ block");
+MELT_LOCATION("warmelt-first.melt:3050:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-first.melt:3057:/ block");
+ MELT_LOCATION("warmelt-first.melt:3052:/ block");
  /*block*/{
   /*_#DBGCOUNTER__L2*/ curfnum[1] = 0;;
   /*_.SBUF__V3*/ curfptr[2] = 
@@ -7146,24 +7146,24 @@ MELT_LOCATION("warmelt-first.melt:3055:/ block");
    (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[1])), (50)));;
   /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 
    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (14)));;
-  MELT_LOCATION("warmelt-first.melt:3061:/ block");
+  MELT_LOCATION("warmelt-first.melt:3056:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3061:/ rawallocobj");
+   MELT_LOCATION("warmelt-first.melt:3056:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[3])), (3), "CLASS_DEBUG_INFORMATION");/*_.INST__V7*/ curfptr[6] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-first.melt:3061:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3056:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (0), (/*_.SBUF__V3*/ curfptr[2]), "DBGI_OUT");
    ;
-   MELT_LOCATION("warmelt-first.melt:3061:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3056:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (1), (/*_.OCCMAP__V4*/ curfptr[3]), "DBGI_OCCMAP");
    ;
-   MELT_LOCATION("warmelt-first.melt:3061:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3056:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.BOXEDMAXDEPTH__V5*/ curfptr[4]), "DBGI_MAXDEPTH");
@@ -7172,12 +7172,12 @@ MELT_LOCATION("warmelt-first.melt:3055:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:3066:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3061:/ locexp");
   /*_#DBGCOUNTER__L2*/ curfnum[1]= ++melt_dbgcounter;}
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:3067:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3062:/ locexp");
   melt_putnum(stderr,( "!*!#"), (/*_#DBGCOUNTER__L2*/ curfnum[1]), ( "/"));}
   ;
   /*_#THE_FRAMEDEPTH__L3*/ curfnum[2] = 
@@ -7186,69 +7186,69 @@ MELT_LOCATION("warmelt-first.melt:3055:/ block");
    ((/*_#THE_FRAMEDEPTH__L3*/ curfnum[2]) - (1));;
   
   {
-  MELT_LOCATION("warmelt-first.melt:3068:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3063:/ locexp");
   melt_putnum(stderr,( ""), (/*_#I__L4*/ curfnum[3]), ( ":"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:3069:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3064:/ locexp");
   melt_puts(stderr,(/*_?*/ curfram__.loc_CSTRING__o0));}
   ;
   /*_#I__L5*/ curfnum[4] = 
    ((/*_#COUNT__L1*/ curfnum[0]) > (0));;
-  MELT_LOCATION("warmelt-first.melt:3070:/ cond");
+  MELT_LOCATION("warmelt-first.melt:3065:/ cond");
   /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3070:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3070:/ block");
+  MELT_LOCATION("warmelt-first.melt:3065:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:3065:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-first.melt:3070:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3065:/ locexp");
     melt_putnum(stderr,( " !"), (/*_#COUNT__L1*/ curfnum[0]), ( ": "));}
     ;
     /*epilog*/}
    ;
   } /*noelse*/
   ;
-  MELT_LOCATION("warmelt-first.melt:3071:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3066:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3071:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3066:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-first.melt:3071:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:3066:/ apply.arg");
    argtab[1].bp_long = 0;
    /*_.DBG_OUTPUT__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTPUT*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.VAL__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:3072:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3067:/ locexp");
   melt_putstrbuf(stderr,(melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-first.melt:3073:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3068:/ locexp");
   melt_newlineflush(stderr);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_#DBGCOUNTER__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_.SBUF__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_.OCCMAP__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_.DBGI__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_#THE_FRAMEDEPTH__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3057:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3052:/ clear");
   /*clear*/ /*_.DBG_OUTPUT__V8*/ curfptr[7] = 0 ;}
  ;
  /*epilog*/}
@@ -7312,32 +7312,32 @@ melt_trace_start("DEBUGMSG", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3079:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3074:/ getarg");
  /*_.VAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3079:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3074:/ getarg");
  if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3079:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3074:/ getarg");
  if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
  /*_#COUNT__L1*/ curfnum[0] = xargtab_[1].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3079:/ block");
+MELT_LOCATION("warmelt-first.melt:3074:/ block");
 /*block*/{
  /*_#NEED_DBG__L2*/ curfnum[1] = 
   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);;
- MELT_LOCATION("warmelt-first.melt:3080:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3075:/ cond");
  /*cond*/ if (/*_#NEED_DBG__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3080:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3080:/ block");
+ MELT_LOCATION("warmelt-first.melt:3075:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3075:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3081:/ block");
+   MELT_LOCATION("warmelt-first.melt:3076:/ block");
    /*block*/{
     /*_#DBGCOUNTER__L3*/ curfnum[2] = 0;;
     /*_.SBUF__V3*/ curfptr[2] = 
@@ -7346,24 +7346,24 @@ MELT_LOCATION("warmelt-first.melt:3079:/ block");
      (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[1])), (53)));;
     /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 
      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (10)));;
-    MELT_LOCATION("warmelt-first.melt:3085:/ block");
+    MELT_LOCATION("warmelt-first.melt:3080:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3085:/ rawallocobj");
+     MELT_LOCATION("warmelt-first.melt:3080:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[3])), (3), "CLASS_DEBUG_INFORMATION");/*_.INST__V7*/ curfptr[6] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-first.melt:3085:/ putslot");
+     MELT_LOCATION("warmelt-first.melt:3080:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (0), (/*_.SBUF__V3*/ curfptr[2]), "DBGI_OUT");
      ;
-     MELT_LOCATION("warmelt-first.melt:3085:/ putslot");
+     MELT_LOCATION("warmelt-first.melt:3080:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (1), (/*_.OCCMAP__V4*/ curfptr[3]), "DBGI_OCCMAP");
      ;
-     MELT_LOCATION("warmelt-first.melt:3085:/ putslot");
+     MELT_LOCATION("warmelt-first.melt:3080:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.BOXEDMAXDEPTH__V5*/ curfptr[4]), "DBGI_MAXDEPTH");
@@ -7372,12 +7372,12 @@ MELT_LOCATION("warmelt-first.melt:3079:/ block");
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:3090:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3085:/ locexp");
     /*_#DBGCOUNTER__L3*/ curfnum[2]= ++melt_dbgcounter;}
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:3091:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3086:/ locexp");
     melt_putnum(dump_file,( "!!!***###"), (/*_#DBGCOUNTER__L3*/ curfnum[2]), ( "/"));}
     ;
     /*_#THE_FRAMEDEPTH__L4*/ curfnum[3] = 
@@ -7386,69 +7386,69 @@ MELT_LOCATION("warmelt-first.melt:3079:/ block");
      ((/*_#THE_FRAMEDEPTH__L4*/ curfnum[3]) - (1));;
     
     {
-    MELT_LOCATION("warmelt-first.melt:3092:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3087:/ locexp");
     melt_putnum(dump_file,( ""), (/*_#I__L5*/ curfnum[4]), ( ":"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:3093:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3088:/ locexp");
     melt_puts(dump_file,(/*_?*/ curfram__.loc_CSTRING__o0));}
     ;
     /*_#I__L6*/ curfnum[5] = 
      ((/*_#COUNT__L1*/ curfnum[0]) > (0));;
-    MELT_LOCATION("warmelt-first.melt:3094:/ cond");
+    MELT_LOCATION("warmelt-first.melt:3089:/ cond");
     /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:3094:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:3094:/ block");
+    MELT_LOCATION("warmelt-first.melt:3089:/ cond.then");
+    MELT_LOCATION("warmelt-first.melt:3089:/ block");
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-first.melt:3094:/ locexp");
+      MELT_LOCATION("warmelt-first.melt:3089:/ locexp");
       melt_putnum(dump_file,( " !"), (/*_#COUNT__L1*/ curfnum[0]), ( ": "));}
       ;
       /*epilog*/}
      ;
     } /*noelse*/
     ;
-    MELT_LOCATION("warmelt-first.melt:3095:/ apply");
+    MELT_LOCATION("warmelt-first.melt:3090:/ apply");
     /*apply*/{
      union meltparam_un argtab[2];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:3095:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:3090:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V6*/ curfptr[5];
-     MELT_LOCATION("warmelt-first.melt:3095:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:3090:/ apply.arg");
      argtab[1].bp_long = 0;
      /*_.DBG_OUT__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.VAL__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:3096:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3091:/ locexp");
     melt_putstrbuf(dump_file,(melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]));}
     ;
     
     {
-    MELT_LOCATION("warmelt-first.melt:3097:/ locexp");
+    MELT_LOCATION("warmelt-first.melt:3092:/ locexp");
     melt_newlineflush(dump_file);}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_#DBGCOUNTER__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_.SBUF__V3*/ curfptr[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_.OCCMAP__V4*/ curfptr[3] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_.DBGI__V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_#THE_FRAMEDEPTH__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3081:/ clear");
+    MELT_LOCATION("warmelt-first.melt:3076:/ clear");
     /*clear*/ /*_.DBG_OUT__V8*/ curfptr[7] = 0 ;}
    ;
    /*epilog*/}
@@ -7456,7 +7456,7 @@ MELT_LOCATION("warmelt-first.melt:3079:/ block");
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3079:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3074:/ clear");
  /*clear*/ /*_#NEED_DBG__L2*/ curfnum[1] = 0 ;}
 
 ;
@@ -7517,11 +7517,11 @@ melt_trace_start("MAPOBJECT_EVERY", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3136:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3131:/ getarg");
  /*_.MAP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3136:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3131:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -7530,21 +7530,21 @@ melt_trace_start("MAPOBJECT_EVERY", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3136:/ block");
+MELT_LOCATION("warmelt-first.melt:3131:/ block");
 /*block*/{
  /*_#IS_MAPOBJECT__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.MAP__V2*/ curfptr[1])) == OBMAG_MAPOBJECTS);;
- MELT_LOCATION("warmelt-first.melt:3140:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3135:/ cond");
  /*cond*/ if (/*_#IS_MAPOBJECT__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3140:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3140:/ block");
+ MELT_LOCATION("warmelt-first.melt:3135:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3135:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3141:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3136:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3141:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3141:/ block");
+   MELT_LOCATION("warmelt-first.melt:3136:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3136:/ block");
     /*block*/{
      /*citerblock FOREACH_IN_MAPOBJECT*/ {
       /*cit1__EACHOBMAP :*/ int cit1__EACHOBMAP_ix=0, cit1__EACHOBMAP_siz=0;
@@ -7562,11 +7562,11 @@ MELT_LOCATION("warmelt-first.melt:3136:/ block");
     if (!/*_.CURVAL__V5*/ curfptr[4]) continue; 
 
      
-      MELT_LOCATION("warmelt-first.melt:3145:/ apply");
+      MELT_LOCATION("warmelt-first.melt:3140:/ apply");
       /*apply*/{
        union meltparam_un argtab[1];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:3145:/ apply.arg");
+       MELT_LOCATION("warmelt-first.melt:3140:/ apply.arg");
        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVAL__V5*/ curfptr[4];
        /*_.F__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURAT__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
        }
@@ -7577,11 +7577,11 @@ MELT_LOCATION("warmelt-first.melt:3136:/ block");
 
      
       /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3142:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3137:/ clear");
       /*clear*/ /*_.CURAT__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3142:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3137:/ clear");
       /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3142:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3137:/ clear");
       /*clear*/ /*_.F__V6*/ curfptr[5] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/
      ;
      /*epilog*/}
@@ -7589,13 +7589,13 @@ MELT_LOCATION("warmelt-first.melt:3136:/ block");
    } /*noelse*/
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3140:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3135:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3136:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3131:/ clear");
  /*clear*/ /*_#IS_MAPOBJECT__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -7656,11 +7656,11 @@ melt_trace_start("MAPOBJECT_ITERATE_TEST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3151:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3146:/ getarg");
  /*_.MAP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3151:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3146:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -7669,21 +7669,21 @@ melt_trace_start("MAPOBJECT_ITERATE_TEST", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3151:/ block");
+MELT_LOCATION("warmelt-first.melt:3146:/ block");
 /*block*/{
  /*_#IS_MAPOBJECT__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.MAP__V2*/ curfptr[1])) == OBMAG_MAPOBJECTS);;
- MELT_LOCATION("warmelt-first.melt:3158:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3153:/ cond");
  /*cond*/ if (/*_#IS_MAPOBJECT__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3158:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3158:/ block");
+ MELT_LOCATION("warmelt-first.melt:3153:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3153:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3159:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3154:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3159:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3159:/ block");
+   MELT_LOCATION("warmelt-first.melt:3154:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3154:/ block");
     /*block*/{
      /*citerblock FOREACH_IN_MAPOBJECT*/ {
       /*cit1__EACHOBMAP :*/ int cit1__EACHOBMAP_ix=0, cit1__EACHOBMAP_siz=0;
@@ -7701,68 +7701,68 @@ MELT_LOCATION("warmelt-first.melt:3151:/ block");
     if (!/*_.CURVAL__V5*/ curfptr[4]) continue; 
 
      
-      MELT_LOCATION("warmelt-first.melt:3163:/ block");
+      MELT_LOCATION("warmelt-first.melt:3158:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3163:/ multiapply");
+       MELT_LOCATION("warmelt-first.melt:3158:/ multiapply");
        /*multiapply 2args, 1x.res*/ {
         union meltparam_un argtab[1];
         
         union meltparam_un restab[1];
         memset(&restab, 0, sizeof(restab));
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:3163:/ multiapply.arg");
+        MELT_LOCATION("warmelt-first.melt:3158:/ multiapply.arg");
         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVAL__V5*/ curfptr[4];
-        MELT_LOCATION("warmelt-first.melt:3163:/ multiapply.xres");
+        MELT_LOCATION("warmelt-first.melt:3158:/ multiapply.xres");
         restab[0].bp_aptr = (melt_ptr_t*) &/*_.OTHER__V8*/ curfptr[7];
-        MELT_LOCATION("warmelt-first.melt:3163:/ multiapply.appl");
+        MELT_LOCATION("warmelt-first.melt:3158:/ multiapply.appl");
         /*_.TEST__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURAT__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
         }
        ;
-       MELT_LOCATION("warmelt-first.melt:3163:/ block");
+       MELT_LOCATION("warmelt-first.melt:3158:/ block");
        /*block*/{
         /*_#NULL__L3*/ curfnum[2] = 
          ((/*_.TEST__V7*/ curfptr[6]) == NULL);;
-        MELT_LOCATION("warmelt-first.melt:3166:/ cond");
+        MELT_LOCATION("warmelt-first.melt:3161:/ cond");
         /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3166:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3166:/ block");
+        MELT_LOCATION("warmelt-first.melt:3161:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3161:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3167:/ block");
+          MELT_LOCATION("warmelt-first.melt:3162:/ block");
           /*block*/{
            /*_.RETVAL___V1*/ curfptr[0] = /*_.CURAT__V4*/ curfptr[3];;
-           MELT_LOCATION("warmelt-first.melt:3167:/ putxtraresult");
+           MELT_LOCATION("warmelt-first.melt:3162:/ putxtraresult");
            if (!xrestab_ || !xresdescr_) goto labend_rout;
            if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
            if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.CURVAL__V5*/ curfptr[4]);
            ;
-           MELT_LOCATION("warmelt-first.melt:3167:/ putxtraresult");
+           MELT_LOCATION("warmelt-first.melt:3162:/ putxtraresult");
            if (!xrestab_ || !xresdescr_) goto labend_rout;
            if (xresdescr_[1] != BPAR_PTR) goto labend_rout;
            if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.OTHER__V8*/ curfptr[7]);
            ;
-           MELT_LOCATION("warmelt-first.melt:3167:/ finalreturn");
+           MELT_LOCATION("warmelt-first.melt:3162:/ finalreturn");
            ;
            /*finalret*/ goto labend_rout ;}
           ;
           /*_.IF___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3166:/ clear");
+          MELT_LOCATION("warmelt-first.melt:3161:/ clear");
           /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
          ;
-        } else {MELT_LOCATION("warmelt-first.melt:3166:/ cond.else");
+        } else {MELT_LOCATION("warmelt-first.melt:3161:/ cond.else");
         
          /*_.IF___V9*/ curfptr[8] = NULL;;
          }
         ;
         /*_.MULTI___V6*/ curfptr[5] = /*_.IF___V9*/ curfptr[8];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3163:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3158:/ clear");
         /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3163:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3158:/ clear");
         /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3163:/ clear");
+       MELT_LOCATION("warmelt-first.melt:3158:/ clear");
        /*clear*/ /*_.OTHER__V8*/ curfptr[7] = 0 ;}
       ;
       /* end cit1__EACHOBMAP */
@@ -7771,11 +7771,11 @@ MELT_LOCATION("warmelt-first.melt:3151:/ block");
 
      
       /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3160:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3155:/ clear");
       /*clear*/ /*_.CURAT__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3160:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3155:/ clear");
       /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3160:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3155:/ clear");
       /*clear*/ /*_.MULTI___V6*/ curfptr[5] = 0 ;} /*endciterblock FOREACH_IN_MAPOBJECT*/
      ;
      /*epilog*/}
@@ -7783,13 +7783,13 @@ MELT_LOCATION("warmelt-first.melt:3151:/ block");
    } /*noelse*/
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3158:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3153:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3151:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3146:/ clear");
  /*clear*/ /*_#IS_MAPOBJECT__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -7850,11 +7850,11 @@ melt_trace_start("MAPSTRING_EVERY", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3171:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3166:/ getarg");
  /*_.MAP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3171:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3166:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -7863,21 +7863,21 @@ melt_trace_start("MAPSTRING_EVERY", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3171:/ block");
+MELT_LOCATION("warmelt-first.melt:3166:/ block");
 /*block*/{
  /*_#IS_MAPSTRING__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.MAP__V2*/ curfptr[1])) == OBMAG_MAPSTRINGS);;
- MELT_LOCATION("warmelt-first.melt:3175:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3170:/ cond");
  /*cond*/ if (/*_#IS_MAPSTRING__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3175:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3175:/ block");
+ MELT_LOCATION("warmelt-first.melt:3170:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3170:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3176:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3171:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3176:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3176:/ block");
+   MELT_LOCATION("warmelt-first.melt:3171:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3171:/ block");
     /*block*/{
      /*citerblock FOREACH_IN_MAPSTRING*/ {
       /*cit1__EACHSTRMAP :*/ int cit1__EACHSTRMAP_ix=0, cit1__EACHSTRMAP_siz=0;
@@ -7908,11 +7908,11 @@ MELT_LOCATION("warmelt-first.melt:3171:/ block");
     cit1__EACHSTRMAP_nam = (const char*)0;
 
      
-      MELT_LOCATION("warmelt-first.melt:3180:/ apply");
+      MELT_LOCATION("warmelt-first.melt:3175:/ apply");
       /*apply*/{
        union meltparam_un argtab[1];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:3180:/ apply.arg");
+       MELT_LOCATION("warmelt-first.melt:3175:/ apply.arg");
        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVAL__V5*/ curfptr[4];
        /*_.F__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURAT__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
        }
@@ -7923,11 +7923,11 @@ MELT_LOCATION("warmelt-first.melt:3171:/ block");
 
      
       /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3177:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3172:/ clear");
       /*clear*/ /*_.CURAT__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3177:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3172:/ clear");
       /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3177:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3172:/ clear");
       /*clear*/ /*_.F__V6*/ curfptr[5] = 0 ;} /*endciterblock FOREACH_IN_MAPSTRING*/
      ;
      /*epilog*/}
@@ -7935,13 +7935,13 @@ MELT_LOCATION("warmelt-first.melt:3171:/ block");
    } /*noelse*/
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3175:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3170:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3171:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3166:/ clear");
  /*clear*/ /*_#IS_MAPSTRING__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -8002,11 +8002,11 @@ melt_trace_start("MAPSTRING_ITERATE_TEST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3184:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3179:/ getarg");
  /*_.MAP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3184:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3179:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -8015,21 +8015,21 @@ melt_trace_start("MAPSTRING_ITERATE_TEST", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3184:/ block");
+MELT_LOCATION("warmelt-first.melt:3179:/ block");
 /*block*/{
  /*_#IS_MAPSTRING__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.MAP__V2*/ curfptr[1])) == OBMAG_MAPSTRINGS);;
- MELT_LOCATION("warmelt-first.melt:3189:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3184:/ cond");
  /*cond*/ if (/*_#IS_MAPSTRING__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3189:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3189:/ block");
+ MELT_LOCATION("warmelt-first.melt:3184:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3184:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3190:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3185:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3190:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3190:/ block");
+   MELT_LOCATION("warmelt-first.melt:3185:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3185:/ block");
     /*block*/{
      /*citerblock FOREACH_IN_MAPSTRING*/ {
       /*cit1__EACHSTRMAP :*/ int cit1__EACHSTRMAP_ix=0, cit1__EACHSTRMAP_siz=0;
@@ -8060,68 +8060,68 @@ MELT_LOCATION("warmelt-first.melt:3184:/ block");
     cit1__EACHSTRMAP_nam = (const char*)0;
 
      
-      MELT_LOCATION("warmelt-first.melt:3194:/ block");
+      MELT_LOCATION("warmelt-first.melt:3189:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3194:/ multiapply");
+       MELT_LOCATION("warmelt-first.melt:3189:/ multiapply");
        /*multiapply 2args, 1x.res*/ {
         union meltparam_un argtab[1];
         
         union meltparam_un restab[1];
         memset(&restab, 0, sizeof(restab));
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:3194:/ multiapply.arg");
+        MELT_LOCATION("warmelt-first.melt:3189:/ multiapply.arg");
         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVAL__V5*/ curfptr[4];
-        MELT_LOCATION("warmelt-first.melt:3194:/ multiapply.xres");
+        MELT_LOCATION("warmelt-first.melt:3189:/ multiapply.xres");
         restab[0].bp_aptr = (melt_ptr_t*) &/*_.OTHER__V8*/ curfptr[7];
-        MELT_LOCATION("warmelt-first.melt:3194:/ multiapply.appl");
+        MELT_LOCATION("warmelt-first.melt:3189:/ multiapply.appl");
         /*_.TEST__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURAT__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
         }
        ;
-       MELT_LOCATION("warmelt-first.melt:3194:/ block");
+       MELT_LOCATION("warmelt-first.melt:3189:/ block");
        /*block*/{
         /*_#NULL__L3*/ curfnum[2] = 
          ((/*_.TEST__V7*/ curfptr[6]) == NULL);;
-        MELT_LOCATION("warmelt-first.melt:3197:/ cond");
+        MELT_LOCATION("warmelt-first.melt:3192:/ cond");
         /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3197:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3197:/ block");
+        MELT_LOCATION("warmelt-first.melt:3192:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3192:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3198:/ block");
+          MELT_LOCATION("warmelt-first.melt:3193:/ block");
           /*block*/{
            /*_.RETVAL___V1*/ curfptr[0] = /*_.CURAT__V4*/ curfptr[3];;
-           MELT_LOCATION("warmelt-first.melt:3198:/ putxtraresult");
+           MELT_LOCATION("warmelt-first.melt:3193:/ putxtraresult");
            if (!xrestab_ || !xresdescr_) goto labend_rout;
            if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
            if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.CURVAL__V5*/ curfptr[4]);
            ;
-           MELT_LOCATION("warmelt-first.melt:3198:/ putxtraresult");
+           MELT_LOCATION("warmelt-first.melt:3193:/ putxtraresult");
            if (!xrestab_ || !xresdescr_) goto labend_rout;
            if (xresdescr_[1] != BPAR_PTR) goto labend_rout;
            if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.OTHER__V8*/ curfptr[7]);
            ;
-           MELT_LOCATION("warmelt-first.melt:3198:/ finalreturn");
+           MELT_LOCATION("warmelt-first.melt:3193:/ finalreturn");
            ;
            /*finalret*/ goto labend_rout ;}
           ;
           /*_.IF___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3197:/ clear");
+          MELT_LOCATION("warmelt-first.melt:3192:/ clear");
           /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
          ;
-        } else {MELT_LOCATION("warmelt-first.melt:3197:/ cond.else");
+        } else {MELT_LOCATION("warmelt-first.melt:3192:/ cond.else");
         
          /*_.IF___V9*/ curfptr[8] = NULL;;
          }
         ;
         /*_.MULTI___V6*/ curfptr[5] = /*_.IF___V9*/ curfptr[8];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3194:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3189:/ clear");
         /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3194:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3189:/ clear");
         /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3194:/ clear");
+       MELT_LOCATION("warmelt-first.melt:3189:/ clear");
        /*clear*/ /*_.OTHER__V8*/ curfptr[7] = 0 ;}
       ;
       /* end cit1__EACHSTRMAP */
@@ -8130,11 +8130,11 @@ MELT_LOCATION("warmelt-first.melt:3184:/ block");
 
      
       /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3191:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3186:/ clear");
       /*clear*/ /*_.CURAT__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3191:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3186:/ clear");
       /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3191:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3186:/ clear");
       /*clear*/ /*_.MULTI___V6*/ curfptr[5] = 0 ;} /*endciterblock FOREACH_IN_MAPSTRING*/
      ;
      /*epilog*/}
@@ -8142,13 +8142,13 @@ MELT_LOCATION("warmelt-first.melt:3184:/ block");
    } /*noelse*/
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3189:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3184:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3184:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3179:/ clear");
  /*clear*/ /*_#IS_MAPSTRING__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -8209,11 +8209,11 @@ melt_trace_start("LIST_EVERY", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3222:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3217:/ getarg");
  /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3222:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3217:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -8222,21 +8222,21 @@ melt_trace_start("LIST_EVERY", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3222:/ block");
+MELT_LOCATION("warmelt-first.melt:3217:/ block");
 /*block*/{
  /*_#IS_LIST__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
- MELT_LOCATION("warmelt-first.melt:3224:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3219:/ cond");
  /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3224:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3224:/ block");
+ MELT_LOCATION("warmelt-first.melt:3219:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3219:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3225:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3220:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3225:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3225:/ block");
+   MELT_LOCATION("warmelt-first.melt:3220:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3220:/ block");
     /*block*/{
      /*citerblock FOREACH_IN_LIST*/ {
      /* start cit1__EACHLIST */
@@ -8245,7 +8245,7 @@ MELT_LOCATION("warmelt-first.melt:3222:/ block");
         /*_.CURPAIR__V4*/ curfptr[3] = melt_pair_tail(/*_.CURPAIR__V4*/ curfptr[3])) {
 	/*_.CURCOMP__V5*/ curfptr[4] = melt_pair_head(/*_.CURPAIR__V4*/ curfptr[3]); 
      
-      MELT_LOCATION("warmelt-first.melt:3229:/ apply");
+      MELT_LOCATION("warmelt-first.melt:3224:/ apply");
       /*apply*/{
        /*_.F__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURCOMP__V5*/ curfptr[4]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
        }
@@ -8253,11 +8253,11 @@ MELT_LOCATION("warmelt-first.melt:3222:/ block");
       } /* end cit1__EACHLIST */
      
       /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3226:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3221:/ clear");
       /*clear*/ /*_.CURPAIR__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3226:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3221:/ clear");
       /*clear*/ /*_.CURCOMP__V5*/ curfptr[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3226:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3221:/ clear");
       /*clear*/ /*_.F__V6*/ curfptr[5] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
      ;
      /*epilog*/}
@@ -8265,13 +8265,13 @@ MELT_LOCATION("warmelt-first.melt:3222:/ block");
    } /*noelse*/
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3224:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3219:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3222:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3217:/ clear");
  /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -8332,11 +8332,11 @@ melt_trace_start("LIST_ITERATE_TEST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3233:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3228:/ getarg");
  /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3233:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3228:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -8345,21 +8345,21 @@ melt_trace_start("LIST_ITERATE_TEST", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3233:/ block");
+MELT_LOCATION("warmelt-first.melt:3228:/ block");
 /*block*/{
  /*_#IS_LIST__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
- MELT_LOCATION("warmelt-first.melt:3237:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3232:/ cond");
  /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3237:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3237:/ block");
+ MELT_LOCATION("warmelt-first.melt:3232:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3232:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3238:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3233:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3238:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3238:/ block");
+   MELT_LOCATION("warmelt-first.melt:3233:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3233:/ block");
     /*block*/{
      /*citerblock FOREACH_IN_LIST*/ {
      /* start cit1__EACHLIST */
@@ -8368,73 +8368,73 @@ MELT_LOCATION("warmelt-first.melt:3233:/ block");
         /*_.CURPAIR__V4*/ curfptr[3] = melt_pair_tail(/*_.CURPAIR__V4*/ curfptr[3])) {
 	/*_.CURCOMP__V5*/ curfptr[4] = melt_pair_head(/*_.CURPAIR__V4*/ curfptr[3]); 
      
-      MELT_LOCATION("warmelt-first.melt:3242:/ block");
+      MELT_LOCATION("warmelt-first.melt:3237:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3242:/ multiapply");
+       MELT_LOCATION("warmelt-first.melt:3237:/ multiapply");
        /*multiapply 2args, 1x.res*/ {
         union meltparam_un argtab[1];
         
         union meltparam_un restab[1];
         memset(&restab, 0, sizeof(restab));
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:3242:/ multiapply.arg");
+        MELT_LOCATION("warmelt-first.melt:3237:/ multiapply.arg");
         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURPAIR__V4*/ curfptr[3];
-        MELT_LOCATION("warmelt-first.melt:3242:/ multiapply.xres");
+        MELT_LOCATION("warmelt-first.melt:3237:/ multiapply.xres");
         restab[0].bp_aptr = (melt_ptr_t*) &/*_.OTHER__V8*/ curfptr[7];
-        MELT_LOCATION("warmelt-first.melt:3242:/ multiapply.appl");
+        MELT_LOCATION("warmelt-first.melt:3237:/ multiapply.appl");
         /*_.TEST__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURCOMP__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
         }
        ;
-       MELT_LOCATION("warmelt-first.melt:3242:/ block");
+       MELT_LOCATION("warmelt-first.melt:3237:/ block");
        /*block*/{
         /*_#NULL__L3*/ curfnum[2] = 
          ((/*_.TEST__V7*/ curfptr[6]) == NULL);;
-        MELT_LOCATION("warmelt-first.melt:3245:/ cond");
+        MELT_LOCATION("warmelt-first.melt:3240:/ cond");
         /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3245:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3245:/ block");
+        MELT_LOCATION("warmelt-first.melt:3240:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3240:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3245:/ block");
+          MELT_LOCATION("warmelt-first.melt:3240:/ block");
           /*block*/{
            /*_.RETVAL___V1*/ curfptr[0] = /*_.CURCOMP__V5*/ curfptr[4];;
-           MELT_LOCATION("warmelt-first.melt:3245:/ putxtraresult");
+           MELT_LOCATION("warmelt-first.melt:3240:/ putxtraresult");
            if (!xrestab_ || !xresdescr_) goto labend_rout;
            if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
            if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.OTHER__V8*/ curfptr[7]);
            ;
-           MELT_LOCATION("warmelt-first.melt:3245:/ finalreturn");
+           MELT_LOCATION("warmelt-first.melt:3240:/ finalreturn");
            ;
            /*finalret*/ goto labend_rout ;}
           ;
           /*_.IF___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
           /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3245:/ clear");
+          MELT_LOCATION("warmelt-first.melt:3240:/ clear");
           /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
          ;
-        } else {MELT_LOCATION("warmelt-first.melt:3245:/ cond.else");
+        } else {MELT_LOCATION("warmelt-first.melt:3240:/ cond.else");
         
          /*_.IF___V9*/ curfptr[8] = NULL;;
          }
         ;
         /*_.MULTI___V6*/ curfptr[5] = /*_.IF___V9*/ curfptr[8];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3242:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3237:/ clear");
         /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3242:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3237:/ clear");
         /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3242:/ clear");
+       MELT_LOCATION("warmelt-first.melt:3237:/ clear");
        /*clear*/ /*_.OTHER__V8*/ curfptr[7] = 0 ;}
       ;
       } /* end cit1__EACHLIST */
      
       /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3239:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3234:/ clear");
       /*clear*/ /*_.CURPAIR__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3239:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3234:/ clear");
       /*clear*/ /*_.CURCOMP__V5*/ curfptr[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3239:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3234:/ clear");
       /*clear*/ /*_.MULTI___V6*/ curfptr[5] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
      ;
      /*epilog*/}
@@ -8442,13 +8442,13 @@ MELT_LOCATION("warmelt-first.melt:3233:/ block");
    } /*noelse*/
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3237:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3232:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3233:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3228:/ clear");
  /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -8509,11 +8509,11 @@ melt_trace_start("LIST_APPEND2LIST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3249:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3244:/ getarg");
  /*_.DLIST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3249:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3244:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SLIST__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SLIST__V3*/ curfptr[2])) != NULL);
@@ -8522,30 +8522,30 @@ melt_trace_start("LIST_APPEND2LIST", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3249:/ block");
+MELT_LOCATION("warmelt-first.melt:3244:/ block");
 /*block*/{
  /*_#IS_LIST__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.SLIST__V3*/ curfptr[2])) == OBMAG_LIST);;
  /*_#NOT__L2*/ curfnum[1] = 
   (!(/*_#IS_LIST__L1*/ curfnum[0]));;
- MELT_LOCATION("warmelt-first.melt:3253:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3248:/ cond");
  /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3253:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3253:/ block");
+ MELT_LOCATION("warmelt-first.melt:3248:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3248:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3253:/ block");
+   MELT_LOCATION("warmelt-first.melt:3248:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = /*_.DLIST__V2*/ curfptr[1];;
-    MELT_LOCATION("warmelt-first.melt:3253:/ finalreturn");
+    MELT_LOCATION("warmelt-first.melt:3248:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.IF___V4*/ curfptr[3] = /*_.RETURN___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3253:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3248:/ clear");
    /*clear*/ /*_.RETURN___V5*/ curfptr[4] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:3253:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:3248:/ cond.else");
  
   /*_.IF___V4*/ curfptr[3] = NULL;;
   }
@@ -8554,23 +8554,23 @@ MELT_LOCATION("warmelt-first.melt:3249:/ block");
   (melt_magic_discr((melt_ptr_t)(/*_.DLIST__V2*/ curfptr[1])) == OBMAG_LIST);;
  /*_#NOT__L4*/ curfnum[3] = 
   (!(/*_#IS_LIST__L3*/ curfnum[2]));;
- MELT_LOCATION("warmelt-first.melt:3254:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3249:/ cond");
  /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3254:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3254:/ block");
+ MELT_LOCATION("warmelt-first.melt:3249:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3249:/ block");
   /*block*/{
    /*_.MAKE_LIST__V7*/ curfptr[6] = 
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-   MELT_LOCATION("warmelt-first.melt:3254:/ compute");
+   MELT_LOCATION("warmelt-first.melt:3249:/ compute");
    /*_.DLIST__V2*/ curfptr[1] = /*_.SETQ___V8*/ curfptr[7] = /*_.MAKE_LIST__V7*/ curfptr[6];;
    /*_.IF___V6*/ curfptr[4] = /*_.SETQ___V8*/ curfptr[7];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3254:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3249:/ clear");
    /*clear*/ /*_.MAKE_LIST__V7*/ curfptr[6] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3254:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3249:/ clear");
    /*clear*/ /*_.SETQ___V8*/ curfptr[7] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:3254:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:3249:/ cond.else");
  
   /*_.IF___V6*/ curfptr[4] = NULL;;
   }
@@ -8584,45 +8584,45 @@ MELT_LOCATION("warmelt-first.melt:3249:/ block");
  
   
   {
-  MELT_LOCATION("warmelt-first.melt:3258:/ locexp");
+  MELT_LOCATION("warmelt-first.melt:3253:/ locexp");
   meltgc_append_list((melt_ptr_t)(/*_.DLIST__V2*/ curfptr[1]), (melt_ptr_t)(/*_.CURCOMP__V10*/ curfptr[7]));}
   ;
   } /* end cit1__EACHLIST */
  
   /*citerepilog*/
-  MELT_LOCATION("warmelt-first.melt:3255:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3250:/ clear");
   /*clear*/ /*_.CURPAIR__V9*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3255:/ clear");
+  MELT_LOCATION("warmelt-first.melt:3250:/ clear");
   /*clear*/ /*_.CURCOMP__V10*/ curfptr[7] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
  ;
- MELT_LOCATION("warmelt-first.melt:3259:/ block");
+ MELT_LOCATION("warmelt-first.melt:3254:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.DLIST__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-first.melt:3259:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:3254:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
- MELT_LOCATION("warmelt-first.melt:3249:/ block");
+ MELT_LOCATION("warmelt-first.melt:3244:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V11*/ curfptr[10];;
-  MELT_LOCATION("warmelt-first.melt:3249:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:3244:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_#IS_LIST__L3*/ curfnum[2] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_.IF___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3249:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3244:/ clear");
  /*clear*/ /*_.RETURN___V11*/ curfptr[10] = 0 ;}
 
 ;
@@ -8683,11 +8683,11 @@ melt_trace_start("LIST_MAP", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3264:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3259:/ getarg");
  /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3264:/ getarg");
+ MELT_LOCATION("warmelt-first.melt:3259:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
@@ -8696,48 +8696,48 @@ melt_trace_start("LIST_MAP", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-first.melt:3264:/ block");
+MELT_LOCATION("warmelt-first.melt:3259:/ block");
 /*block*/{
  /*_#IS_LIST__L1*/ curfnum[0] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
- MELT_LOCATION("warmelt-first.melt:3265:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3260:/ cond");
  /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3265:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3265:/ block");
+ MELT_LOCATION("warmelt-first.melt:3260:/ cond.then");
+ MELT_LOCATION("warmelt-first.melt:3260:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3266:/ cond");
+   MELT_LOCATION("warmelt-first.melt:3261:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3266:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3266:/ block");
+   MELT_LOCATION("warmelt-first.melt:3261:/ cond.then");
+   MELT_LOCATION("warmelt-first.melt:3261:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3267:/ block");
+     MELT_LOCATION("warmelt-first.melt:3262:/ block");
      /*block*/{
       /*_.RESLIS__V7*/ curfptr[6] = 
        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
       /*_.CURPAIR__V8*/ curfptr[7] = 
        (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
-      MELT_LOCATION("warmelt-first.melt:3269:/ loop");
-      /*loop*/{ labloop_LISLOOP_1:;MELT_LOCATION("warmelt-first.melt:3269:/ loopbody");
+      MELT_LOCATION("warmelt-first.melt:3264:/ loop");
+      /*loop*/{ labloop_LISLOOP_1:;MELT_LOCATION("warmelt-first.melt:3264:/ loopbody");
       
-       MELT_LOCATION("warmelt-first.melt:3269:/ block");
+       MELT_LOCATION("warmelt-first.melt:3264:/ block");
        /*block*/{
         /*_#IS_PAIR__L3*/ curfnum[2] = 
          (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V8*/ curfptr[7])) == OBMAG_PAIR);;
         /*_#NOT__L4*/ curfnum[3] = 
          (!(/*_#IS_PAIR__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3270:/ cond");
+        MELT_LOCATION("warmelt-first.melt:3265:/ cond");
         /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3270:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3270:/ block");
+        MELT_LOCATION("warmelt-first.melt:3265:/ cond.then");
+        MELT_LOCATION("warmelt-first.melt:3265:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3270:/ block");
+          MELT_LOCATION("warmelt-first.melt:3265:/ block");
           /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3270:/ compute");
+           MELT_LOCATION("warmelt-first.melt:3265:/ compute");
            /*_.LISLOOP__V10*/ curfptr[9] = /*_.RESLIS__V7*/ curfptr[6];;
            /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3270:/ exit");
+           MELT_LOCATION("warmelt-first.melt:3265:/ exit");
            /*exit*/{
             goto labexit_LISLOOP_1;}
            ;}
@@ -8746,89 +8746,89 @@ MELT_LOCATION("warmelt-first.melt:3264:/ block");
          ;
         } /*noelse*/
         ;
-        MELT_LOCATION("warmelt-first.melt:3271:/ block");
+        MELT_LOCATION("warmelt-first.melt:3266:/ block");
         /*block*/{
          /*_.CURELEM__V11*/ curfptr[10] = 
           (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V8*/ curfptr[7])));;
-         MELT_LOCATION("warmelt-first.melt:3272:/ apply");
+         MELT_LOCATION("warmelt-first.melt:3267:/ apply");
          /*apply*/{
           /*_.F__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURELEM__V11*/ curfptr[10]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
           }
          ;
          
          {
-         MELT_LOCATION("warmelt-first.melt:3272:/ locexp");
+         MELT_LOCATION("warmelt-first.melt:3267:/ locexp");
          meltgc_append_list((melt_ptr_t)(/*_.RESLIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.F__V12*/ curfptr[11]));}
          ;
          /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3271:/ clear");
+         MELT_LOCATION("warmelt-first.melt:3266:/ clear");
          /*clear*/ /*_.CURELEM__V11*/ curfptr[10] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3271:/ clear");
+         MELT_LOCATION("warmelt-first.melt:3266:/ clear");
          /*clear*/ /*_.F__V12*/ curfptr[11] = 0 ;}
         ;
         /*_.PAIR_TAIL__V13*/ curfptr[10] = 
          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V8*/ curfptr[7])));;
-        MELT_LOCATION("warmelt-first.melt:3273:/ compute");
+        MELT_LOCATION("warmelt-first.melt:3268:/ compute");
         /*_.CURPAIR__V8*/ curfptr[7] = /*_.SETQ___V14*/ curfptr[11] = /*_.PAIR_TAIL__V13*/ curfptr[10];;
         /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3269:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3264:/ clear");
         /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3269:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3264:/ clear");
         /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3269:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3264:/ clear");
         /*clear*/ /*_.PAIR_TAIL__V13*/ curfptr[10] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3269:/ clear");
+        MELT_LOCATION("warmelt-first.melt:3264:/ clear");
         /*clear*/ /*_.SETQ___V14*/ curfptr[11] = 0 ;}
        ;
        ;
         goto labloop_LISLOOP_1;
-        labexit_LISLOOP_1:;MELT_LOCATION("warmelt-first.melt:3269:/ loopepilog");
+        labexit_LISLOOP_1:;MELT_LOCATION("warmelt-first.melt:3264:/ loopepilog");
       /*loopepilog*/
        /*_.FOREVER___V9*/ curfptr[8] = /*_.LISLOOP__V10*/ curfptr[9];;
        }
       ;
       /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V9*/ curfptr[8];;
       /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3267:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3262:/ clear");
       /*clear*/ /*_.RESLIS__V7*/ curfptr[6] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3267:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3262:/ clear");
       /*clear*/ /*_.CURPAIR__V8*/ curfptr[7] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3267:/ clear");
+      MELT_LOCATION("warmelt-first.melt:3262:/ clear");
       /*clear*/ /*_.FOREVER___V9*/ curfptr[8] = 0 ;}
      ;
      /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
      /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3266:/ clear");
+     MELT_LOCATION("warmelt-first.melt:3261:/ clear");
      /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-first.melt:3266:/ cond.else");
+   } else {MELT_LOCATION("warmelt-first.melt:3261:/ cond.else");
    
     /*_.IF___V5*/ curfptr[4] = NULL;;
     }
    ;
    /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3265:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3260:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3265:/ clear");
+   MELT_LOCATION("warmelt-first.melt:3260:/ clear");
    /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-first.melt:3265:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:3260:/ cond.else");
  
   /*_.IF___V4*/ curfptr[3] = NULL;;
   }
  ;
- MELT_LOCATION("warmelt-first.melt:3264:/ block");
+ MELT_LOCATION("warmelt-first.melt:3259:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:3264:/ finalreturn");
+  MELT_LOCATION("warmelt-first.melt:3259:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3264:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3259:/ clear");
  /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3264:/ clear");
+ MELT_LOCATION("warmelt-first.melt:3259:/ clear");
  /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -8843,18779 +8843,6 @@ melt_trace_end("LIST_MAP", callcount);  melt_topframe = (struct callframe_melt_s
 
 
 
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_41_warmelt_first_LIST_FIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_41_warmelt_first_LIST_FIND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST_FIND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3278:/ getarg");
- /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3278:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.X__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.X__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3278:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3278:/ block");
-/*block*/{
- /*_#IS_LIST__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
- MELT_LOCATION("warmelt-first.melt:3279:/ cond");
- /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3279:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3279:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3280:/ block");
-   /*block*/{
-    /*_.CURPAIR__V7*/ curfptr[6] = 
-     (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
-    /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
-    MELT_LOCATION("warmelt-first.melt:3281:/ cond");
-    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:3281:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:3281:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:3282:/ loop");
-      /*loop*/{ labloop_LISLOOP_2:;MELT_LOCATION("warmelt-first.melt:3282:/ loopbody");
-      
-       MELT_LOCATION("warmelt-first.melt:3282:/ block");
-       /*block*/{
-        /*_#IS_PAIR__L3*/ curfnum[2] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])) == OBMAG_PAIR);;
-        /*_#NOT__L4*/ curfnum[3] = 
-         (!(/*_#IS_PAIR__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3283:/ cond");
-        /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3283:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3283:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3283:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3283:/ compute");
-           /*_.LISLOOP__V10*/ curfptr[9] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3283:/ exit");
-           /*exit*/{
-            goto labexit_LISLOOP_2;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        MELT_LOCATION("warmelt-first.melt:3284:/ block");
-        /*block*/{
-         /*_.CURELEM__V12*/ curfptr[11] = 
-          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
-         MELT_LOCATION("warmelt-first.melt:3285:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-first.melt:3285:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.X__V3*/ curfptr[2];
-          /*_.T__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ curfptr[3]), (melt_ptr_t)(/*_.CURELEM__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-first.melt:3286:/ cond");
-         /*cond*/ if (/*_.T__V13*/ curfptr[12]) /*then*/ {
-         MELT_LOCATION("warmelt-first.melt:3286:/ cond.then");
-         MELT_LOCATION("warmelt-first.melt:3286:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3286:/ block");
-           /*block*/{
-            /*_.RETVAL___V1*/ curfptr[0] = /*_.T__V13*/ curfptr[12];;
-            MELT_LOCATION("warmelt-first.melt:3286:/ finalreturn");
-            ;
-            /*finalret*/ goto labend_rout ;}
-           ;
-           /*_.IF___V14*/ curfptr[13] = /*_.RETURN___V15*/ curfptr[14];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3286:/ clear");
-           /*clear*/ /*_.RETURN___V15*/ curfptr[14] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-first.melt:3286:/ cond.else");
-         
-          /*_.IF___V14*/ curfptr[13] = NULL;;
-          }
-         ;
-         /*_.PAIR_TAIL__V16*/ curfptr[14] = 
-          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
-         MELT_LOCATION("warmelt-first.melt:3287:/ compute");
-         /*_.CURPAIR__V7*/ curfptr[6] = /*_.SETQ___V17*/ curfptr[16] = /*_.PAIR_TAIL__V16*/ curfptr[14];;
-         /*_.LET___V11*/ curfptr[10] = /*_.SETQ___V17*/ curfptr[16];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3284:/ clear");
-         /*clear*/ /*_.CURELEM__V12*/ curfptr[11] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3284:/ clear");
-         /*clear*/ /*_.T__V13*/ curfptr[12] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3284:/ clear");
-         /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3284:/ clear");
-         /*clear*/ /*_.PAIR_TAIL__V16*/ curfptr[14] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3284:/ clear");
-         /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3282:/ clear");
-        /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3282:/ clear");
-        /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3282:/ clear");
-        /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;}
-       ;
-       ;
-        goto labloop_LISLOOP_2;
-        labexit_LISLOOP_2:;MELT_LOCATION("warmelt-first.melt:3282:/ loopepilog");
-      /*loopepilog*/
-       /*_.FOREVER___V9*/ curfptr[8] = /*_.LISLOOP__V10*/ curfptr[9];;
-       }
-      ;
-      /*_.IFELSE___V8*/ curfptr[7] = /*_.FOREVER___V9*/ curfptr[8];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3281:/ clear");
-      /*clear*/ /*_.FOREVER___V9*/ curfptr[8] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-first.melt:3281:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:3281:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:3289:/ loop");
-      /*loop*/{ labloop_MEMLOOP_1:;MELT_LOCATION("warmelt-first.melt:3289:/ loopbody");
-      
-       MELT_LOCATION("warmelt-first.melt:3289:/ block");
-       /*block*/{
-        /*_#IS_PAIR__L5*/ curfnum[2] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])) == OBMAG_PAIR);;
-        /*_#NOT__L6*/ curfnum[3] = 
-         (!(/*_#IS_PAIR__L5*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3290:/ cond");
-        /*cond*/ if (/*_#NOT__L6*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3290:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3290:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3290:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3290:/ compute");
-           /*_.MEMLOOP__V19*/ curfptr[12] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3290:/ exit");
-           /*exit*/{
-            goto labexit_MEMLOOP_1;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        MELT_LOCATION("warmelt-first.melt:3291:/ block");
-        /*block*/{
-         /*_.CURELEM__V21*/ curfptr[14] = 
-          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
-         /*_#__L7*/ curfnum[6] = 
-          ((/*_.CURELEM__V21*/ curfptr[14]) == (/*_.X__V3*/ curfptr[2]));;
-         MELT_LOCATION("warmelt-first.melt:3292:/ cond");
-         /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
-         MELT_LOCATION("warmelt-first.melt:3292:/ cond.then");
-         MELT_LOCATION("warmelt-first.melt:3292:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3292:/ block");
-           /*block*/{
-            /*_.RETVAL___V1*/ curfptr[0] = /*_.CURELEM__V21*/ curfptr[14];;
-            MELT_LOCATION("warmelt-first.melt:3292:/ finalreturn");
-            ;
-            /*finalret*/ goto labend_rout ;}
-           ;
-           /*_.IF___V22*/ curfptr[16] = /*_.RETURN___V23*/ curfptr[10];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3292:/ clear");
-           /*clear*/ /*_.RETURN___V23*/ curfptr[10] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-first.melt:3292:/ cond.else");
-         
-          /*_.IF___V22*/ curfptr[16] = NULL;;
-          }
-         ;
-         /*_.PAIR_TAIL__V24*/ curfptr[8] = 
-          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V7*/ curfptr[6])));;
-         MELT_LOCATION("warmelt-first.melt:3293:/ compute");
-         /*_.CURPAIR__V7*/ curfptr[6] = /*_.SETQ___V25*/ curfptr[10] = /*_.PAIR_TAIL__V24*/ curfptr[8];;
-         /*_.LET___V20*/ curfptr[13] = /*_.SETQ___V25*/ curfptr[10];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3291:/ clear");
-         /*clear*/ /*_.CURELEM__V21*/ curfptr[14] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3291:/ clear");
-         /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3291:/ clear");
-         /*clear*/ /*_.IF___V22*/ curfptr[16] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3291:/ clear");
-         /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[8] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3291:/ clear");
-         /*clear*/ /*_.SETQ___V25*/ curfptr[10] = 0 ;}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3289:/ clear");
-        /*clear*/ /*_#IS_PAIR__L5*/ curfnum[2] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3289:/ clear");
-        /*clear*/ /*_#NOT__L6*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3289:/ clear");
-        /*clear*/ /*_.LET___V20*/ curfptr[13] = 0 ;}
-       ;
-       ;
-        goto labloop_MEMLOOP_1;
-        labexit_MEMLOOP_1:;MELT_LOCATION("warmelt-first.melt:3289:/ loopepilog");
-      /*loopepilog*/
-       /*_.FOREVER___V18*/ curfptr[11] = /*_.MEMLOOP__V19*/ curfptr[12];;
-       }
-      ;
-      /*_.IFELSE___V8*/ curfptr[7] = /*_.FOREVER___V18*/ curfptr[11];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3281:/ clear");
-      /*clear*/ /*_.FOREVER___V18*/ curfptr[11] = 0 ;}
-     ;
-     }
-    ;
-    /*_.LET___V6*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3280:/ clear");
-    /*clear*/ /*_.CURPAIR__V7*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3280:/ clear");
-    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3280:/ clear");
-    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-   ;
-   /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3279:/ clear");
-   /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3279:/ cond.else");
- 
-  /*_.IF___V5*/ curfptr[4] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3278:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:3278:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3278:/ clear");
- /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3278:/ clear");
- /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST_FIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_41_warmelt_first_LIST_FIND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_42_warmelt_first_LIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_42_warmelt_first_LIST_TO_MULTIPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST_TO_MULTIPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3299:/ getarg");
- /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3299:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DISC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DISC__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3299:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3299:/ block");
-/*block*/{
- /*_#NULL__L1*/ curfnum[0] = 
-  ((/*_.DISC__V3*/ curfptr[2]) == NULL);;
- MELT_LOCATION("warmelt-first.melt:3300:/ cond");
- /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3300:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3300:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3300:/ compute");
-   /*_.DISC__V3*/ curfptr[2] = /*_.SETQ___V6*/ curfptr[5] = (/*!DISCR_MULTIPLE*/ curfrout->tabval[0]);;
-   /*_.IF___V5*/ curfptr[4] = /*_.SETQ___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3300:/ clear");
-   /*clear*/ /*_.SETQ___V6*/ curfptr[5] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3300:/ cond.else");
- 
-  /*_.IF___V5*/ curfptr[4] = NULL;;
-  }
- ;
- /*_#IS_LIST__L2*/ curfnum[1] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST);;
- MELT_LOCATION("warmelt-first.melt:3301:/ cond");
- /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3301:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3301:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3302:/ block");
-   /*block*/{
-    /*_#LN__L3*/ curfnum[2] = 
-     (melt_list_length((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
-    /*_.TUP__V9*/ curfptr[8] = 
-     (meltgc_new_multiple((meltobject_ptr_t)(/*_.DISC__V3*/ curfptr[2]), (/*_#LN__L3*/ curfnum[2])));;
-    /*_.IXB__V10*/ curfptr[9] = 
-     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));;
-    /*_.CURPAIR__V11*/ curfptr[10] = 
-     (melt_list_first((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])));;
-    MELT_LOCATION("warmelt-first.melt:3308:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3308:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (3));
-     ;
-     MELT_LOCATION("warmelt-first.melt:3308:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[0] = (melt_ptr_t)(/*_.IXB__V10*/ curfptr[9]);
-     ;
-     MELT_LOCATION("warmelt-first.melt:3308:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[1] = (melt_ptr_t)(/*_.F__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-first.melt:3308:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[2] = (melt_ptr_t)(/*_.TUP__V9*/ curfptr[8]);
-     ;
-     /*_.LAMBDA___V12*/ curfptr[11] = /*_.LAMBDA___V13*/ curfptr[12];;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3306:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:3306:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ curfptr[11];
-     /*_.LIST_EVERY__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LIS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.LET___V8*/ curfptr[7] = /*_.TUP__V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3302:/ clear");
-    /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3302:/ clear");
-    /*clear*/ /*_.TUP__V9*/ curfptr[8] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3302:/ clear");
-    /*clear*/ /*_.IXB__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3302:/ clear");
-    /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3302:/ clear");
-    /*clear*/ /*_.LAMBDA___V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3302:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V14*/ curfptr[13] = 0 ;}
-   ;
-   /*_.IF___V7*/ curfptr[5] = /*_.LET___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3301:/ clear");
-   /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3301:/ cond.else");
- 
-  /*_.IF___V7*/ curfptr[5] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3299:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-first.melt:3299:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3299:/ clear");
- /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3299:/ clear");
- /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3299:/ clear");
- /*clear*/ /*_#IS_LIST__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3299:/ clear");
- /*clear*/ /*_.IF___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST_TO_MULTIPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_42_warmelt_first_LIST_TO_MULTIPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_43_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_43_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3308:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3308:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3309:/ block");
- /*block*/{
-  /*_#IX__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~IXB*/ curfclos->tabval[0]))));;
-  /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-   (melt_magic_discr((melt_ptr_t)((/*~F*/ curfclos->tabval[1]))) == OBMAG_CLOSURE);;
-  MELT_LOCATION("warmelt-first.melt:3310:/ cond");
-  /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3310:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3310:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3310:/ apply");
-    /*apply*/{
-     /*_.F__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*~F*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.TC__V3*/ curfptr[2] = /*_.F__V4*/ curfptr[3];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3310:/ clear");
-    /*clear*/ /*_.F__V4*/ curfptr[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3310:/ cond.else");
-  
-   /*_.TC__V3*/ curfptr[2] = /*_.C__V2*/ curfptr[1];;
-   }
-  ;
-  /*_#I__L3*/ curfnum[2] = 
-   ((/*_#IX__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3312:/ locexp");
-  melt_put_int((melt_ptr_t)((/*~IXB*/ curfclos->tabval[0])), (/*_#I__L3*/ curfnum[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3313:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.TC__V3*/ curfptr[2]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3309:/ clear");
-  /*clear*/ /*_#IX__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3309:/ clear");
-  /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3309:/ clear");
-  /*clear*/ /*_.TC__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3309:/ clear");
-  /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_43_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PAIRLIST_TO_MULTIPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3319:/ getarg");
- /*_.PAIR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3319:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DISC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DISC__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3319:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3319:/ block");
-/*block*/{
- /*_#NULL__L1*/ curfnum[0] = 
-  ((/*_.DISC__V3*/ curfptr[2]) == NULL);;
- MELT_LOCATION("warmelt-first.melt:3325:/ cond");
- /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3325:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3325:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3325:/ compute");
-   /*_.DISC__V3*/ curfptr[2] = /*_.SETQ___V6*/ curfptr[5] = (/*!DISCR_MULTIPLE*/ curfrout->tabval[0]);;
-   /*_.IF___V5*/ curfptr[4] = /*_.SETQ___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3325:/ clear");
-   /*clear*/ /*_.SETQ___V6*/ curfptr[5] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3325:/ cond.else");
- 
-  /*_.IF___V5*/ curfptr[4] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3326:/ block");
- /*block*/{
-  /*_#LN__L2*/ curfnum[1] = 0;;
-  MELT_LOCATION("warmelt-first.melt:3327:/ block");
-  /*block*/{
-   /*_.CURPAIR__V9*/ curfptr[8] = /*_.PAIR__V2*/ curfptr[1];;
-   MELT_LOCATION("warmelt-first.melt:3328:/ loop");
-   /*loop*/{ labloop_LOOPLN_1:;MELT_LOCATION("warmelt-first.melt:3328:/ loopbody");
-   
-    MELT_LOCATION("warmelt-first.melt:3328:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L3*/ curfnum[2] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[8])) == OBMAG_PAIR);;
-     /*_#NOT__L4*/ curfnum[3] = 
-      (!(/*_#IS_PAIR__L3*/ curfnum[2]));;
-     MELT_LOCATION("warmelt-first.melt:3329:/ cond");
-     /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:3329:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:3329:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3329:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3329:/ compute");
-        /*_.LOOPLN__V11*/ curfptr[10] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3329:/ exit");
-        /*exit*/{
-         goto labexit_LOOPLN_1;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     /*_#I__L5*/ curfnum[4] = 
-      ((/*_#LN__L2*/ curfnum[1]) + (1));;
-     MELT_LOCATION("warmelt-first.melt:3330:/ compute");
-     /*_#LN__L2*/ curfnum[1] = /*_#SETQ___L6*/ curfnum[5] = /*_#I__L5*/ curfnum[4];;
-     /*_.PAIR_TAIL__V12*/ curfptr[11] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[8])));;
-     MELT_LOCATION("warmelt-first.melt:3331:/ compute");
-     /*_.CURPAIR__V9*/ curfptr[8] = /*_.SETQ___V13*/ curfptr[12] = /*_.PAIR_TAIL__V12*/ curfptr[11];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3328:/ clear");
-     /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3328:/ clear");
-     /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3328:/ clear");
-     /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3328:/ clear");
-     /*clear*/ /*_#SETQ___L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3328:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V12*/ curfptr[11] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3328:/ clear");
-     /*clear*/ /*_.SETQ___V13*/ curfptr[12] = 0 ;}
-    ;
-    ;
-     goto labloop_LOOPLN_1;
-     labexit_LOOPLN_1:;MELT_LOCATION("warmelt-first.melt:3328:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V10*/ curfptr[9] = /*_.LOOPLN__V11*/ curfptr[10];;
-    }
-   ;
-   /*_.LET___V8*/ curfptr[7] = /*_.FOREVER___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
-   /*clear*/ /*_.CURPAIR__V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3327:/ clear");
-   /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-first.melt:3332:/ block");
-  /*block*/{
-   /*_.TUP__V15*/ curfptr[12] = 
-    (meltgc_new_multiple((meltobject_ptr_t)(/*_.DISC__V3*/ curfptr[2]), (/*_#LN__L2*/ curfnum[1])));;
-   /*_#IX__L7*/ curfnum[2] = 0;;
-   /*_.CURPAIR__V16*/ curfptr[8] = /*_.PAIR__V2*/ curfptr[1];;
-   MELT_LOCATION("warmelt-first.melt:3336:/ loop");
-   /*loop*/{ labloop_LOOPFI_1:;MELT_LOCATION("warmelt-first.melt:3336:/ loopbody");
-   
-    MELT_LOCATION("warmelt-first.melt:3336:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L8*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V16*/ curfptr[8])) == OBMAG_PAIR);;
-     /*_#NOT__L9*/ curfnum[4] = 
-      (!(/*_#IS_PAIR__L8*/ curfnum[3]));;
-     MELT_LOCATION("warmelt-first.melt:3337:/ cond");
-     /*cond*/ if (/*_#NOT__L9*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:3337:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:3337:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3337:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3337:/ compute");
-        /*_.LOOPFI__V18*/ curfptr[17] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3337:/ exit");
-        /*exit*/{
-         goto labexit_LOOPFI_1;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-first.melt:3338:/ block");
-     /*block*/{
-      /*_.C__V20*/ curfptr[19] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V16*/ curfptr[8])));;
-      /*_#IS_CLOSURE__L10*/ curfnum[5] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
-      MELT_LOCATION("warmelt-first.melt:3339:/ cond");
-      /*cond*/ if (/*_#IS_CLOSURE__L10*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:3339:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:3339:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3339:/ apply");
-        /*apply*/{
-         /*_.F__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ curfptr[3]), (melt_ptr_t)(/*_.C__V20*/ curfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.TC__V21*/ curfptr[20] = /*_.F__V22*/ curfptr[21];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3339:/ clear");
-        /*clear*/ /*_.F__V22*/ curfptr[21] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-first.melt:3339:/ cond.else");
-      
-       /*_.TC__V21*/ curfptr[20] = /*_.C__V20*/ curfptr[19];;
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3340:/ locexp");
-      meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V15*/ curfptr[12]), (/*_#IX__L7*/ curfnum[2]), (melt_ptr_t)(/*_.TC__V21*/ curfptr[20]));}
-      ;
-      /*_#I__L11*/ curfnum[10] = 
-       ((/*_#IX__L7*/ curfnum[2]) + (1));;
-      MELT_LOCATION("warmelt-first.melt:3341:/ compute");
-      /*_#IX__L7*/ curfnum[2] = /*_#SETQ___L12*/ curfnum[11] = /*_#I__L11*/ curfnum[10];;
-      /*_.PAIR_TAIL__V23*/ curfptr[21] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V16*/ curfptr[8])));;
-      MELT_LOCATION("warmelt-first.melt:3342:/ compute");
-      /*_.CURPAIR__V16*/ curfptr[8] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[21];;
-      /*_.LET___V19*/ curfptr[18] = /*_.SETQ___V24*/ curfptr[23];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_.C__V20*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_#IS_CLOSURE__L10*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_.TC__V21*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_#SETQ___L12*/ curfnum[11] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[21] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3338:/ clear");
-      /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3336:/ clear");
-     /*clear*/ /*_#IS_PAIR__L8*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3336:/ clear");
-     /*clear*/ /*_#NOT__L9*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3336:/ clear");
-     /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
-    ;
-    ;
-     goto labloop_LOOPFI_1;
-     labexit_LOOPFI_1:;MELT_LOCATION("warmelt-first.melt:3336:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V17*/ curfptr[9] = /*_.LOOPFI__V18*/ curfptr[17];;
-    }
-   ;
-   MELT_LOCATION("warmelt-first.melt:3343:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V15*/ curfptr[12];;
-    MELT_LOCATION("warmelt-first.melt:3343:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V14*/ curfptr[11] = /*_.RETURN___V25*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3332:/ clear");
-   /*clear*/ /*_.TUP__V15*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3332:/ clear");
-   /*clear*/ /*_#IX__L7*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3332:/ clear");
-   /*clear*/ /*_.CURPAIR__V16*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3332:/ clear");
-   /*clear*/ /*_.FOREVER___V17*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3332:/ clear");
-   /*clear*/ /*_.RETURN___V25*/ curfptr[19] = 0 ;}
-  ;
-  /*_.LET___V7*/ curfptr[5] = /*_.LET___V14*/ curfptr[11];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3326:/ clear");
-  /*clear*/ /*_#LN__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3326:/ clear");
-  /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3326:/ clear");
-  /*clear*/ /*_.LET___V14*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3319:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-first.melt:3319:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3319:/ clear");
- /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3319:/ clear");
- /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3319:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PAIRLIST_TO_MULTIPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_45_warmelt_first_MULTIPLE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_first_MULTIPLE_EVERY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MULTIPLE_EVERY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3384:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3384:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3384:/ block");
-/*block*/{
- /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
- MELT_LOCATION("warmelt-first.melt:3387:/ cond");
- /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3387:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3387:/ block");
-  /*block*/{
-   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3388:/ cond");
-   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3388:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3388:/ block");
-    /*block*/{
-     /*citerblock FOREACH_IN_MULTIPLE*/ {
-      /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
-   for (/*_#IX__L3*/ curfnum[2] = 0;  
-	(/*_#IX__L3*/ curfnum[2] >= 0) && (/*_#IX__L3*/ curfnum[2] <  cit1__EACHTUP_ln);  
-	/*_#IX__L3*/ curfnum[2]++) {
-   /*_.COMP__V4*/ curfptr[3] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  /*_#IX__L3*/ curfnum[2]);
-   
-     
-      MELT_LOCATION("warmelt-first.melt:3392:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:3392:/ apply.arg");
-       argtab[0].bp_long = /*_#IX__L3*/ curfnum[2];
-       /*_.F__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.COMP__V4*/ curfptr[3]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      if (/*_#IX__L3*/ curfnum[2]<0) break;
-   } /* end cit1__EACHTUP */ 
-     
-      /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3389:/ clear");
-      /*clear*/ /*_.COMP__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3389:/ clear");
-      /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3389:/ clear");
-      /*clear*/ /*_.F__V5*/ curfptr[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3387:/ clear");
-   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3384:/ clear");
- /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MULTIPLE_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_45_warmelt_first_MULTIPLE_EVERY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MULTIPLE_BACKWARD_EVERY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3395:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3395:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3395:/ block");
-/*block*/{
- /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
- MELT_LOCATION("warmelt-first.melt:3398:/ cond");
- /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3398:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3398:/ block");
-  /*block*/{
-   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3399:/ cond");
-   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3399:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3399:/ block");
-    /*block*/{
-     /*citerblock FOREACH_IN_MULTIPLE_BACKWARD*/ {
-      /* start cit1__EACHTUPBACK: */
-   long  cit1__EACHTUPBACK_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
-   long  cit1__EACHTUPBACK_ix = 0;
-   for (cit1__EACHTUPBACK_ix = cit1__EACHTUPBACK_ln - 1;  
-	cit1__EACHTUPBACK_ix >= 0;  
-	cit1__EACHTUPBACK_ix--) {
-   /*_.COMP__V4*/ curfptr[3] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  cit1__EACHTUPBACK_ix);
-   /*_#IX__L3*/ curfnum[2]  =  cit1__EACHTUPBACK_ix;
-     
-      MELT_LOCATION("warmelt-first.melt:3403:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:3403:/ apply.arg");
-       argtab[0].bp_long = /*_#IX__L3*/ curfnum[2];
-       /*_.F__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.COMP__V4*/ curfptr[3]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      } /* end cit1__EACHTUPBACK */ 
-     
-      /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3400:/ clear");
-      /*clear*/ /*_.COMP__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3400:/ clear");
-      /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3400:/ clear");
-      /*clear*/ /*_.F__V5*/ curfptr[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE_BACKWARD*/
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3398:/ clear");
-   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3395:/ clear");
- /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MULTIPLE_BACKWARD_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MULTIPLE_EVERY_BOTH", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3407:/ getarg");
- /*_.TUP1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3407:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.TUP2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3407:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3407:/ block");
-/*block*/{
- /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.TUP1__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
- MELT_LOCATION("warmelt-first.melt:3410:/ cond");
- /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3410:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3410:/ block");
-  /*block*/{
-   /*_#IS_MULTIPLE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2])) == OBMAG_MULTIPLE);;
-   MELT_LOCATION("warmelt-first.melt:3411:/ cond");
-   /*cond*/ if (/*_#IS_MULTIPLE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3411:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3411:/ block");
-    /*block*/{
-     /*_#IS_CLOSURE__L3*/ curfnum[2] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.F__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
-     MELT_LOCATION("warmelt-first.melt:3412:/ cond");
-     /*cond*/ if (/*_#IS_CLOSURE__L3*/ curfnum[2]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:3412:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:3412:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3413:/ block");
-       /*block*/{
-        /*_#LN1__L4*/ curfnum[3] = 
-         (melt_multiple_length((melt_ptr_t)(/*_.TUP1__V2*/ curfptr[1])));;
-        /*_#LN2__L5*/ curfnum[4] = 
-         (melt_multiple_length((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2])));;
-        /*_#IX__L6*/ curfnum[5] = 0;;
-        MELT_LOCATION("warmelt-first.melt:3416:/ loop");
-        /*loop*/{ labloop_TUPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3416:/ loopbody");
-        
-         MELT_LOCATION("warmelt-first.melt:3416:/ block");
-         /*block*/{
-          /*_#I__L7*/ curfnum[6] = 
-           ((/*_#IX__L6*/ curfnum[5]) >= (/*_#LN1__L4*/ curfnum[3]));;
-          MELT_LOCATION("warmelt-first.melt:3417:/ cond");
-          /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-          MELT_LOCATION("warmelt-first.melt:3417:/ cond.then");
-          MELT_LOCATION("warmelt-first.melt:3417:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-first.melt:3417:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-first.melt:3417:/ compute");
-             /*_.TUPLOOP__V10*/ curfptr[9] = NULL;;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:3417:/ exit");
-             /*exit*/{
-              goto labexit_TUPLOOP_1;}
-             ;}
-            ;
-            /*epilog*/}
-           ;
-          } /*noelse*/
-          ;
-          /*_#I__L8*/ curfnum[7] = 
-           ((/*_#IX__L6*/ curfnum[5]) >= (/*_#LN2__L5*/ curfnum[4]));;
-          MELT_LOCATION("warmelt-first.melt:3418:/ cond");
-          /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
-          MELT_LOCATION("warmelt-first.melt:3418:/ cond.then");
-          MELT_LOCATION("warmelt-first.melt:3418:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-first.melt:3418:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-first.melt:3418:/ compute");
-             /*_.TUPLOOP__V10*/ curfptr[9] = NULL;;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:3418:/ exit");
-             /*exit*/{
-              goto labexit_TUPLOOP_1;}
-             ;}
-            ;
-            /*epilog*/}
-           ;
-          } /*noelse*/
-          ;
-          /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 
-           (melt_multiple_nth((melt_ptr_t)(/*_.TUP1__V2*/ curfptr[1]), (/*_#IX__L6*/ curfnum[5])));;
-          /*_.MULTIPLE_NTH__V12*/ curfptr[11] = 
-           (melt_multiple_nth((melt_ptr_t)(/*_.TUP2__V3*/ curfptr[2]), (/*_#IX__L6*/ curfnum[5])));;
-          MELT_LOCATION("warmelt-first.melt:3419:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[2];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-first.melt:3419:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MULTIPLE_NTH__V12*/ curfptr[11];
-           MELT_LOCATION("warmelt-first.melt:3419:/ apply.arg");
-           argtab[1].bp_long = /*_#IX__L6*/ curfnum[5];
-           /*_.F__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V4*/ curfptr[3]), (melt_ptr_t)(/*_.MULTIPLE_NTH__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_#I__L9*/ curfnum[8] = 
-           ((/*_#IX__L6*/ curfnum[5]) + (1));;
-          MELT_LOCATION("warmelt-first.melt:3420:/ compute");
-          /*_#IX__L6*/ curfnum[5] = /*_#SETQ___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_.MULTIPLE_NTH__V12*/ curfptr[11] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_.F__V13*/ curfptr[12] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:3416:/ clear");
-          /*clear*/ /*_#SETQ___L10*/ curfnum[9] = 0 ;}
-         ;
-         ;
-          goto labloop_TUPLOOP_1;
-          labexit_TUPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3416:/ loopepilog");
-        /*loopepilog*/
-         /*_.FOREVER___V9*/ curfptr[8] = /*_.TUPLOOP__V10*/ curfptr[9];;
-         }
-        ;
-        /*_.LET___V8*/ curfptr[7] = /*_.FOREVER___V9*/ curfptr[8];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3413:/ clear");
-        /*clear*/ /*_#LN1__L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3413:/ clear");
-        /*clear*/ /*_#LN2__L5*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3413:/ clear");
-        /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3413:/ clear");
-        /*clear*/ /*_.FOREVER___V9*/ curfptr[8] = 0 ;}
-       ;
-       /*_.IF___V7*/ curfptr[6] = /*_.LET___V8*/ curfptr[7];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3412:/ clear");
-       /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:3412:/ cond.else");
-     
-      /*_.IF___V7*/ curfptr[6] = NULL;;
-      }
-     ;
-     /*_.IF___V6*/ curfptr[5] = /*_.IF___V7*/ curfptr[6];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3411:/ clear");
-     /*clear*/ /*_#IS_CLOSURE__L3*/ curfnum[2] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3411:/ clear");
-     /*clear*/ /*_.IF___V7*/ curfptr[6] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:3411:/ cond.else");
-   
-    /*_.IF___V6*/ curfptr[5] = NULL;;
-    }
-   ;
-   /*_.IF___V5*/ curfptr[4] = /*_.IF___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3410:/ clear");
-   /*clear*/ /*_#IS_MULTIPLE__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3410:/ clear");
-   /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3410:/ cond.else");
- 
-  /*_.IF___V5*/ curfptr[4] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3407:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:3407:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3407:/ clear");
- /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3407:/ clear");
- /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MULTIPLE_EVERY_BOTH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MULTIPLE_ITERATE_TEST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3424:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3424:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3424:/ block");
-/*block*/{
- /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
- MELT_LOCATION("warmelt-first.melt:3428:/ cond");
- /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3428:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3428:/ block");
-  /*block*/{
-   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3429:/ cond");
-   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3429:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3429:/ block");
-    /*block*/{
-     /*citerblock FOREACH_IN_MULTIPLE*/ {
-      /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
-   for (/*_#IX__L3*/ curfnum[2] = 0;  
-	(/*_#IX__L3*/ curfnum[2] >= 0) && (/*_#IX__L3*/ curfnum[2] <  cit1__EACHTUP_ln);  
-	/*_#IX__L3*/ curfnum[2]++) {
-   /*_.COMP__V4*/ curfptr[3] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  /*_#IX__L3*/ curfnum[2]);
-   
-     
-      MELT_LOCATION("warmelt-first.melt:3433:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3433:/ multiapply");
-       /*multiapply 2args, 1x.res*/ {
-        union meltparam_un argtab[1];
-        
-        union meltparam_un restab[1];
-        memset(&restab, 0, sizeof(restab));
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:3433:/ multiapply.arg");
-        argtab[0].bp_long = /*_#IX__L3*/ curfnum[2];
-        MELT_LOCATION("warmelt-first.melt:3433:/ multiapply.xres");
-        restab[0].bp_aptr = (melt_ptr_t*) &/*_.OTHER__V7*/ curfptr[6];
-        MELT_LOCATION("warmelt-first.melt:3433:/ multiapply.appl");
-        /*_.TEST__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.COMP__V4*/ curfptr[3]), (BPARSTR_LONG ""), argtab, (BPARSTR_PTR ""), restab);
-        }
-       ;
-       MELT_LOCATION("warmelt-first.melt:3433:/ block");
-       /*block*/{
-        /*_#NULL__L4*/ curfnum[3] = 
-         ((/*_.TEST__V6*/ curfptr[5]) == NULL);;
-        MELT_LOCATION("warmelt-first.melt:3436:/ cond");
-        /*cond*/ if (/*_#NULL__L4*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3436:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3436:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3436:/ block");
-          /*block*/{
-           /*_.RETVAL___V1*/ curfptr[0] = /*_.COMP__V4*/ curfptr[3];;
-           MELT_LOCATION("warmelt-first.melt:3436:/ putxtraresult");
-           if (!xrestab_ || !xresdescr_) goto labend_rout;
-           if (xresdescr_[0] != BPAR_LONG) goto labend_rout;
-           if (xrestab_[0].bp_longptr) *(xrestab_[0].bp_longptr) = (/*_#IX__L3*/ curfnum[2]);
-           ;
-           MELT_LOCATION("warmelt-first.melt:3436:/ putxtraresult");
-           if (!xrestab_ || !xresdescr_) goto labend_rout;
-           if (xresdescr_[1] != BPAR_PTR) goto labend_rout;
-           if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.OTHER__V7*/ curfptr[6]);
-           ;
-           MELT_LOCATION("warmelt-first.melt:3436:/ finalreturn");
-           ;
-           /*finalret*/ goto labend_rout ;}
-          ;
-          /*_.IF___V8*/ curfptr[7] = /*_.RETURN___V9*/ curfptr[8];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3436:/ clear");
-          /*clear*/ /*_.RETURN___V9*/ curfptr[8] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-first.melt:3436:/ cond.else");
-        
-         /*_.IF___V8*/ curfptr[7] = NULL;;
-         }
-        ;
-        /*_.MULTI___V5*/ curfptr[4] = /*_.IF___V8*/ curfptr[7];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3433:/ clear");
-        /*clear*/ /*_#NULL__L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3433:/ clear");
-        /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3433:/ clear");
-       /*clear*/ /*_.OTHER__V7*/ curfptr[6] = 0 ;}
-      ;
-      if (/*_#IX__L3*/ curfnum[2]<0) break;
-   } /* end cit1__EACHTUP */ 
-     
-      /*citerepilog*/
-      MELT_LOCATION("warmelt-first.melt:3430:/ clear");
-      /*clear*/ /*_.COMP__V4*/ curfptr[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3430:/ clear");
-      /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3430:/ clear");
-      /*clear*/ /*_.MULTI___V5*/ curfptr[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3428:/ clear");
-   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3424:/ clear");
- /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MULTIPLE_ITERATE_TEST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_49_warmelt_first_MULTIPLE_MAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_first_MULTIPLE_MAP_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MULTIPLE_MAP", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3439:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3439:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3439:/ block");
-/*block*/{
- /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
- MELT_LOCATION("warmelt-first.melt:3442:/ cond");
- /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3442:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3442:/ block");
-  /*block*/{
-   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3443:/ cond");
-   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3443:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3443:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3444:/ block");
-     /*block*/{
-      /*_#LN__L3*/ curfnum[2] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])));;
-      /*_#IX__L4*/ curfnum[3] = 0;;
-      /*_.RES__V7*/ curfptr[6] = 
-       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (/*_#LN__L3*/ curfnum[2])));;
-      MELT_LOCATION("warmelt-first.melt:3448:/ loop");
-      /*loop*/{ labloop_TUPLOOP_2:;MELT_LOCATION("warmelt-first.melt:3448:/ loopbody");
-      
-       MELT_LOCATION("warmelt-first.melt:3448:/ block");
-       /*block*/{
-        /*_#I__L5*/ curfnum[4] = 
-         ((/*_#IX__L4*/ curfnum[3]) >= (/*_#LN__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3449:/ cond");
-        /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3449:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3449:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3449:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3449:/ compute");
-           /*_.TUPLOOP__V9*/ curfptr[8] = /*_.RES__V7*/ curfptr[6];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3449:/ exit");
-           /*exit*/{
-            goto labexit_TUPLOOP_2;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        MELT_LOCATION("warmelt-first.melt:3450:/ block");
-        /*block*/{
-         /*_.CURCOMP__V10*/ curfptr[9] = 
-          (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#IX__L4*/ curfnum[3])));;
-         MELT_LOCATION("warmelt-first.melt:3451:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-first.melt:3451:/ apply.arg");
-          argtab[0].bp_long = /*_#IX__L4*/ curfnum[3];
-          /*_.F__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CURCOMP__V10*/ curfptr[9]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3451:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.RES__V7*/ curfptr[6]), (/*_#IX__L4*/ curfnum[3]), (melt_ptr_t)(/*_.F__V11*/ curfptr[10]));}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3450:/ clear");
-         /*clear*/ /*_.CURCOMP__V10*/ curfptr[9] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3450:/ clear");
-         /*clear*/ /*_.F__V11*/ curfptr[10] = 0 ;}
-        ;
-        /*_#I__L6*/ curfnum[5] = 
-         ((/*_#IX__L4*/ curfnum[3]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3452:/ compute");
-        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L7*/ curfnum[6] = /*_#I__L6*/ curfnum[5];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3448:/ clear");
-        /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3448:/ clear");
-        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3448:/ clear");
-        /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;}
-       ;
-       ;
-        goto labloop_TUPLOOP_2;
-        labexit_TUPLOOP_2:;MELT_LOCATION("warmelt-first.melt:3448:/ loopepilog");
-      /*loopepilog*/
-       /*_.FOREVER___V8*/ curfptr[7] = /*_.TUPLOOP__V9*/ curfptr[8];;
-       }
-      ;
-      /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V8*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3444:/ clear");
-      /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3444:/ clear");
-      /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3444:/ clear");
-      /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3444:/ clear");
-      /*clear*/ /*_.FOREVER___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3443:/ clear");
-     /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:3443:/ cond.else");
-   
-    /*_.IF___V5*/ curfptr[4] = NULL;;
-    }
-   ;
-   /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3442:/ clear");
-   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3442:/ clear");
-   /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3442:/ cond.else");
- 
-  /*_.IF___V4*/ curfptr[3] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3439:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:3439:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3439:/ clear");
- /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3439:/ clear");
- /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MULTIPLE_MAP", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_49_warmelt_first_MULTIPLE_MAP*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_50_warmelt_first_MULTIPLE_TO_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_first_MULTIPLE_TO_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MULTIPLE_TO_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3456:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3456:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DISC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DISC__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3456:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TRANSF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TRANSF__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3456:/ block");
-/*block*/{
- /*_#NULL__L1*/ curfnum[0] = 
-  ((/*_.DISC__V3*/ curfptr[2]) == NULL);;
- MELT_LOCATION("warmelt-first.melt:3460:/ cond");
- /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3460:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3460:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3460:/ compute");
-   /*_.DISC__V3*/ curfptr[2] = /*_.SETQ___V6*/ curfptr[5] = (/*!DISCR_LIST*/ curfrout->tabval[0]);;
-   /*_.IF___V5*/ curfptr[4] = /*_.SETQ___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3460:/ clear");
-   /*clear*/ /*_.SETQ___V6*/ curfptr[5] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3460:/ cond.else");
- 
-  /*_.IF___V5*/ curfptr[4] = NULL;;
-  }
- ;
- /*_#IS_MULTIPLE__L2*/ curfnum[1] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
- MELT_LOCATION("warmelt-first.melt:3461:/ cond");
- /*cond*/ if (/*_#IS_MULTIPLE__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3461:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3461:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:3462:/ block");
-   /*block*/{
-    /*_.LIS__V9*/ curfptr[8] = 
-     (meltgc_new_list((meltobject_ptr_t)(/*_.DISC__V3*/ curfptr[2])));;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.TUP__V2*/ curfptr[1]);
-   for (/*_#IX__L3*/ curfnum[2] = 0;  
-	(/*_#IX__L3*/ curfnum[2] >= 0) && (/*_#IX__L3*/ curfnum[2] <  cit1__EACHTUP_ln);  
-	/*_#IX__L3*/ curfnum[2]++) {
-   /*_.COMP__V10*/ curfptr[9] = melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]),  /*_#IX__L3*/ curfnum[2]);
-   
-    
-     /*_#IS_CLOSURE__L4*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.TRANSF__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
-     MELT_LOCATION("warmelt-first.melt:3466:/ cond");
-     /*cond*/ if (/*_#IS_CLOSURE__L4*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:3466:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:3466:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3467:/ apply");
-       /*apply*/{
-        /*_.TRANSF__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)(/*_.TRANSF__V4*/ curfptr[3]), (melt_ptr_t)(/*_.COMP__V10*/ curfptr[9]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-        }
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3467:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.TRANSF__V11*/ curfptr[10]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3466:/ clear");
-       /*clear*/ /*_.TRANSF__V11*/ curfptr[10] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:3466:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:3466:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3468:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.COMP__V10*/ curfptr[9]));}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     if (/*_#IX__L3*/ curfnum[2]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-first.melt:3463:/ clear");
-     /*clear*/ /*_.COMP__V10*/ curfptr[9] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3463:/ clear");
-     /*clear*/ /*_#IX__L3*/ curfnum[2] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3463:/ clear");
-     /*clear*/ /*_#IS_CLOSURE__L4*/ curfnum[3] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    MELT_LOCATION("warmelt-first.melt:3469:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.LIS__V9*/ curfptr[8];;
-     MELT_LOCATION("warmelt-first.melt:3469:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V8*/ curfptr[7] = /*_.RETURN___V12*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3462:/ clear");
-    /*clear*/ /*_.LIS__V9*/ curfptr[8] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3462:/ clear");
-    /*clear*/ /*_.RETURN___V12*/ curfptr[10] = 0 ;}
-   ;
-   /*_.IF___V7*/ curfptr[5] = /*_.LET___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3461:/ clear");
-   /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3461:/ cond.else");
- 
-  /*_.IF___V7*/ curfptr[5] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3456:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-first.melt:3456:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3456:/ clear");
- /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3456:/ clear");
- /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3456:/ clear");
- /*clear*/ /*_#IS_MULTIPLE__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3456:/ clear");
- /*clear*/ /*_.IF___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MULTIPLE_TO_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_50_warmelt_first_MULTIPLE_TO_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_51_warmelt_first_CLOSURE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_first_CLOSURE_EVERY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("CLOSURE_EVERY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3474:/ getarg");
- /*_.CLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3474:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3474:/ block");
-/*block*/{
- /*_#IS_CLOSURE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.CLO__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
- MELT_LOCATION("warmelt-first.melt:3476:/ cond");
- /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3476:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3476:/ block");
-  /*block*/{
-   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3477:/ cond");
-   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3477:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3477:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3478:/ block");
-     /*block*/{
-      /*_#LN__L3*/ curfnum[2] = 
-       (melt_closure_size((melt_ptr_t)(/*_.CLO__V2*/ curfptr[1])));;
-      /*_#IX__L4*/ curfnum[3] = 0;;
-      MELT_LOCATION("warmelt-first.melt:3480:/ loop");
-      /*loop*/{ labloop_CLOLOOP_1:;MELT_LOCATION("warmelt-first.melt:3480:/ loopbody");
-      
-       MELT_LOCATION("warmelt-first.melt:3480:/ block");
-       /*block*/{
-        /*_#I__L5*/ curfnum[4] = 
-         ((/*_#IX__L4*/ curfnum[3]) >= (/*_#LN__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3481:/ cond");
-        /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3481:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3481:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3481:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3481:/ compute");
-           /*_.CLOLOOP__V8*/ curfptr[7] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3481:/ exit");
-           /*exit*/{
-            goto labexit_CLOLOOP_1;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*_.CLOSURE_NTH__V9*/ curfptr[8] = 
-         (melt_closure_nth((melt_ptr_t)(/*_.CLO__V2*/ curfptr[1]), (int)(/*_#IX__L4*/ curfnum[3])));;
-        MELT_LOCATION("warmelt-first.melt:3482:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-first.melt:3482:/ apply.arg");
-         argtab[0].bp_long = /*_#IX__L4*/ curfnum[3];
-         /*_.F__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.CLOSURE_NTH__V9*/ curfptr[8]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#I__L6*/ curfnum[5] = 
-         ((/*_#IX__L4*/ curfnum[3]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3483:/ compute");
-        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L7*/ curfnum[6] = /*_#I__L6*/ curfnum[5];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3480:/ clear");
-        /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3480:/ clear");
-        /*clear*/ /*_.CLOSURE_NTH__V9*/ curfptr[8] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3480:/ clear");
-        /*clear*/ /*_.F__V10*/ curfptr[9] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3480:/ clear");
-        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3480:/ clear");
-        /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;}
-       ;
-       ;
-        goto labloop_CLOLOOP_1;
-        labexit_CLOLOOP_1:;MELT_LOCATION("warmelt-first.melt:3480:/ loopepilog");
-      /*loopepilog*/
-       /*_.FOREVER___V7*/ curfptr[6] = /*_.CLOLOOP__V8*/ curfptr[7];;
-       }
-      ;
-      /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V7*/ curfptr[6];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3478:/ clear");
-      /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3478:/ clear");
-      /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3478:/ clear");
-      /*clear*/ /*_.FOREVER___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3477:/ clear");
-     /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:3477:/ cond.else");
-   
-    /*_.IF___V5*/ curfptr[4] = NULL;;
-    }
-   ;
-   /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3476:/ clear");
-   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3476:/ clear");
-   /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3476:/ cond.else");
- 
-  /*_.IF___V4*/ curfptr[3] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3474:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:3474:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3474:/ clear");
- /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3474:/ clear");
- /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("CLOSURE_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_51_warmelt_first_CLOSURE_EVERY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_52_warmelt_first_ROUTINE_EVERY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_first_ROUTINE_EVERY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("ROUTINE_EVERY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3487:/ getarg");
- /*_.ROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3487:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.F__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3487:/ block");
-/*block*/{
- /*_#IS_ROUTINE__L1*/ curfnum[0] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1])) == OBMAG_ROUTINE);;
- MELT_LOCATION("warmelt-first.melt:3489:/ cond");
- /*cond*/ if (/*_#IS_ROUTINE__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3489:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3489:/ block");
-  /*block*/{
-   /*_#IS_CLOSURE__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.F__V3*/ curfptr[2])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-first.melt:3490:/ cond");
-   /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3490:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3490:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3491:/ block");
-     /*block*/{
-      /*_#LN__L3*/ curfnum[2] = 
-       (melt_routine_size((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1])));;
-      /*_#IX__L4*/ curfnum[3] = 0;;
-      MELT_LOCATION("warmelt-first.melt:3493:/ loop");
-      /*loop*/{ labloop_ROULOOP_1:;MELT_LOCATION("warmelt-first.melt:3493:/ loopbody");
-      
-       MELT_LOCATION("warmelt-first.melt:3493:/ block");
-       /*block*/{
-        /*_#I__L5*/ curfnum[4] = 
-         ((/*_#IX__L4*/ curfnum[3]) >= (/*_#LN__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3494:/ cond");
-        /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3494:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3494:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3494:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3494:/ compute");
-           /*_.ROULOOP__V8*/ curfptr[7] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3494:/ exit");
-           /*exit*/{
-            goto labexit_ROULOOP_1;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*_.ROUTINE_NTH__V9*/ curfptr[8] = 
-         (melt_routine_nth((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (int) (/*_#IX__L4*/ curfnum[3])));;
-        MELT_LOCATION("warmelt-first.melt:3495:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-first.melt:3495:/ apply.arg");
-         argtab[0].bp_long = /*_#IX__L4*/ curfnum[3];
-         /*_.F__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)(/*_.F__V3*/ curfptr[2]), (melt_ptr_t)(/*_.ROUTINE_NTH__V9*/ curfptr[8]), (BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#I__L6*/ curfnum[5] = 
-         ((/*_#IX__L4*/ curfnum[3]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3496:/ compute");
-        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L7*/ curfnum[6] = /*_#I__L6*/ curfnum[5];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3493:/ clear");
-        /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3493:/ clear");
-        /*clear*/ /*_.ROUTINE_NTH__V9*/ curfptr[8] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3493:/ clear");
-        /*clear*/ /*_.F__V10*/ curfptr[9] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3493:/ clear");
-        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3493:/ clear");
-        /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;}
-       ;
-       ;
-        goto labloop_ROULOOP_1;
-        labexit_ROULOOP_1:;MELT_LOCATION("warmelt-first.melt:3493:/ loopepilog");
-      /*loopepilog*/
-       /*_.FOREVER___V7*/ curfptr[6] = /*_.ROULOOP__V8*/ curfptr[7];;
-       }
-      ;
-      /*_.LET___V6*/ curfptr[5] = /*_.FOREVER___V7*/ curfptr[6];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3491:/ clear");
-      /*clear*/ /*_#LN__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3491:/ clear");
-      /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3491:/ clear");
-      /*clear*/ /*_.FOREVER___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*_.IF___V5*/ curfptr[4] = /*_.LET___V6*/ curfptr[5];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3490:/ clear");
-     /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:3490:/ cond.else");
-   
-    /*_.IF___V5*/ curfptr[4] = NULL;;
-    }
-   ;
-   /*_.IF___V4*/ curfptr[3] = /*_.IF___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3489:/ clear");
-   /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3489:/ clear");
-   /*clear*/ /*_.IF___V5*/ curfptr[4] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:3489:/ cond.else");
- 
-  /*_.IF___V4*/ curfptr[3] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3487:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:3487:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3487:/ clear");
- /*clear*/ /*_#IS_ROUTINE__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3487:/ clear");
- /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("ROUTINE_EVERY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_52_warmelt_first_ROUTINE_EVERY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_53_warmelt_first_LIST1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_first_LIST1_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST1", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3499:/ getarg");
- /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3499:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3501:/ block");
- /*block*/{
-  /*_.LIS__V4*/ curfptr[3] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3503:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V4*/ curfptr[3]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.LIS__V4*/ curfptr[3];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3501:/ clear");
-  /*clear*/ /*_.LIS__V4*/ curfptr[3] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3499:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:3499:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3499:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST1", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_53_warmelt_first_LIST1*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_54_warmelt_first_LIST2(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_first_LIST2_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST2", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3507:/ getarg");
- /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3507:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3507:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3509:/ block");
- /*block*/{
-  /*_.LIS__V5*/ curfptr[4] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3511:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V5*/ curfptr[4]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3512:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V5*/ curfptr[4]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
-  ;
-  /*_.LET___V4*/ curfptr[3] = /*_.LIS__V5*/ curfptr[4];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3509:/ clear");
-  /*clear*/ /*_.LIS__V5*/ curfptr[4] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3507:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:3507:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3507:/ clear");
- /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST2", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_54_warmelt_first_LIST2*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_55_warmelt_first_LIST3(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_first_LIST3_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST3", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3516:/ getarg");
- /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3516:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3516:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3516:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3518:/ block");
- /*block*/{
-  /*_.LIS__V6*/ curfptr[5] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3520:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V6*/ curfptr[5]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3521:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V6*/ curfptr[5]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3522:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V6*/ curfptr[5]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
-  ;
-  /*_.LET___V5*/ curfptr[4] = /*_.LIS__V6*/ curfptr[5];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3518:/ clear");
-  /*clear*/ /*_.LIS__V6*/ curfptr[5] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3516:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:3516:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3516:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST3", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_55_warmelt_first_LIST3*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_56_warmelt_first_LIST4(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_first_LIST4_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST4", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3526:/ getarg");
- /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3526:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3526:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:3526:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.V4__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V4__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3526:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3528:/ block");
- /*block*/{
-  /*_.LIS__V7*/ curfptr[6] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3530:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3531:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3532:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3533:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V7*/ curfptr[6]), (melt_ptr_t)(/*_.V4__V5*/ curfptr[4]));}
-  ;
-  /*_.LET___V6*/ curfptr[5] = /*_.LIS__V7*/ curfptr[6];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3528:/ clear");
-  /*clear*/ /*_.LIS__V7*/ curfptr[6] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3526:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[5];;
-  MELT_LOCATION("warmelt-first.melt:3526:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3526:/ clear");
- /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST4", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_56_warmelt_first_LIST4*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_57_warmelt_first_LIST5(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_first_LIST5_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST5", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3537:/ getarg");
- /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3537:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3537:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:3537:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.V4__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V4__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-first.melt:3537:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.V5__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V5__V6*/ curfptr[5])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3537:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3539:/ block");
- /*block*/{
-  /*_.LIS__V8*/ curfptr[7] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3541:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3542:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3543:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3544:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V4__V5*/ curfptr[4]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3545:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V8*/ curfptr[7]), (melt_ptr_t)(/*_.V5__V6*/ curfptr[5]));}
-  ;
-  /*_.LET___V7*/ curfptr[6] = /*_.LIS__V8*/ curfptr[7];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3539:/ clear");
-  /*clear*/ /*_.LIS__V8*/ curfptr[7] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3537:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:3537:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3537:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST5", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_57_warmelt_first_LIST5*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_58_warmelt_first_LIST6(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_first_LIST6_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LIST6", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3549:/ getarg");
- /*_.V1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3549:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.V2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V2__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3549:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.V3__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V3__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:3549:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.V4__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V4__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-first.melt:3549:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.V5__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V5__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-first.melt:3549:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.V6__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.V6__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3549:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3551:/ block");
- /*block*/{
-  /*_.LIS__V9*/ curfptr[8] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3553:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V1__V2*/ curfptr[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3554:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V2__V3*/ curfptr[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3555:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V3__V4*/ curfptr[3]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3556:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V4__V5*/ curfptr[4]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3557:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V5__V6*/ curfptr[5]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3558:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.LIS__V9*/ curfptr[8]), (melt_ptr_t)(/*_.V6__V7*/ curfptr[6]));}
-  ;
-  /*_.LET___V8*/ curfptr[7] = /*_.LIS__V9*/ curfptr[8];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3551:/ clear");
-  /*clear*/ /*_.LIS__V9*/ curfptr[8] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3549:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[7];;
-  MELT_LOCATION("warmelt-first.melt:3549:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3549:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LIST6", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_58_warmelt_first_LIST6*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_59_warmelt_first_INSTALL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_first_INSTALL_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("INSTALL_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3563:/ getarg");
- /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3563:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SEL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SEL__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3563:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.FUN__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FUN__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3563:/ block");
-/*block*/{
- /*_#IS_A__L1*/ curfnum[0] = 
-  melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-first.melt:3565:/ cond");
- /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:3565:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:3565:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEL__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SELECTOR*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:3566:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3566:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3566:/ block");
-    /*block*/{
-     /*_#IS_CLOSURE__L3*/ curfnum[2] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.FUN__V4*/ curfptr[3])) == OBMAG_CLOSURE);;
-     MELT_LOCATION("warmelt-first.melt:3567:/ cond");
-     /*cond*/ if (/*_#IS_CLOSURE__L3*/ curfnum[2]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:3567:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:3567:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3568:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3570:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 2, "DISC_METHODICT");/*_.MAPDICT__V5*/ curfptr[4] = slot; };
-        ;
-        /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.MAPDICT__V5*/ curfptr[4])) == OBMAG_MAPOBJECTS);;
-        MELT_LOCATION("warmelt-first.melt:3571:/ cond");
-        /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3571:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3571:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:3572:/ locexp");
-          meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MAPDICT__V5*/ curfptr[4]), 
-			   (meltobject_ptr_t) (/*_.SEL__V3*/ curfptr[2]), 
-			   (melt_ptr_t)(/*_.FUN__V4*/ curfptr[3]));}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-first.melt:3571:/ cond.else");
-        
-         MELT_LOCATION("warmelt-first.melt:3571:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3573:/ block");
-          /*block*/{
-           /*_.NEWMAPDICT__V6*/ curfptr[5] = 
-            (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_METHOD_MAP*/ curfrout->tabval[2])), (35)));;
-           MELT_LOCATION("warmelt-first.melt:3574:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-first.melt:3574:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @DISC_METHODICT", melt_magic_discr((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.CLA__V2*/ curfptr[1]), (2), (/*_.NEWMAPDICT__V6*/ curfptr[5]), "DISC_METHODICT");
-            ;
-            MELT_LOCATION("warmelt-first.melt:3574:/ touch");
-            meltgc_touch(/*_.CLA__V2*/ curfptr[1]);
-            ;
-            /*epilog*/}
-           ;
-           
-           {
-           MELT_LOCATION("warmelt-first.melt:3575:/ locexp");
-           meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.NEWMAPDICT__V6*/ curfptr[5]), 
-			   (meltobject_ptr_t) (/*_.SEL__V3*/ curfptr[2]), 
-			   (melt_ptr_t)(/*_.FUN__V4*/ curfptr[3]));}
-           ;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3573:/ clear");
-           /*clear*/ /*_.NEWMAPDICT__V6*/ curfptr[5] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3568:/ clear");
-        /*clear*/ /*_.MAPDICT__V5*/ curfptr[4] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3568:/ clear");
-        /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3566:/ clear");
-     /*clear*/ /*_#IS_CLOSURE__L3*/ curfnum[2] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3565:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3563:/ clear");
- /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("INSTALL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_59_warmelt_first_INSTALL_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_60_warmelt_first_DBG_OUTOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_first_DBG_OUTOBJECT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBG_OUTOBJECT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3601:/ getarg");
- /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3601:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3601:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3601:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3604:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3604:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3604:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3604:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3604:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3604:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3604:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3604)?(3604):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3604:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3604:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3604:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3605:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3605:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 1, "DBGI_OCCMAP");/*_.OCCMAP__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#IS_MAPOBJECT__L3*/ curfnum[1] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.OCCMAP__V7*/ curfptr[6])) == OBMAG_MAPOBJECTS);;
-  MELT_LOCATION("warmelt-first.melt:3606:/ cond");
-  /*cond*/ if (/*_#IS_MAPOBJECT__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3606:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3606:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3607:/ block");
-    /*block*/{
-     /*_.OCC__V10*/ curfptr[9] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OCCMAP__V7*/ curfptr[6]), (meltobject_ptr_t)(/*_.OBJ__V2*/ curfptr[1]));;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:3608:/ locexp");
-     melt_check_call_frames(MELT_ANYWHERE,  "in dbg_outobject");;}
-     ;
-     /*_#IS_INTEGERBOX__L4*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.OCC__V10*/ curfptr[9])) == OBMAG_INT);;
-     MELT_LOCATION("warmelt-first.melt:3609:/ cond");
-     /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:3609:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:3609:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3611:/ msend");
-       /*msend*/{
-        union meltparam_un argtab[2];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:3611:/ ojbmsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-first.melt:3611:/ ojbmsend.arg");
-        argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-        /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_#GET_INT__L5*/ curfnum[4] = 
-        (melt_get_int((melt_ptr_t)(/*_.OCC__V10*/ curfptr[9])));;
-       /*_#I__L6*/ curfnum[5] = 
-        ((/*_#GET_INT__L5*/ curfnum[4]) + (1));;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3612:/ locexp");
-       melt_put_int((melt_ptr_t)(/*_.OCC__V10*/ curfptr[9]), (/*_#I__L6*/ curfnum[5]));}
-       ;
-       MELT_LOCATION("warmelt-first.melt:3610:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3609:/ clear");
-       /*clear*/ /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3609:/ clear");
-       /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3609:/ clear");
-       /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:3609:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:3609:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:3614:/ block");
-       /*block*/{
-        /*_.NEWOCC__V14*/ curfptr[13] = 
-         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (1)));;
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:3615:/ locexp");
-        meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.OCCMAP__V7*/ curfptr[6]), 
-			   (meltobject_ptr_t) (/*_.OBJ__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.NEWOCC__V14*/ curfptr[13]));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:3616:/ locexp");
-        melt_check_call_frames(MELT_ANYWHERE,  "in dbg_outobject output");;}
-        ;
-        MELT_LOCATION("warmelt-first.melt:3617:/ msend");
-        /*msend*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-first.melt:3617:/ ojbmsend.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-first.melt:3617:/ ojbmsend.arg");
-         argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-         /*_.DBG_OUTPUT__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.LET___V13*/ curfptr[11] = /*_.DBG_OUTPUT__V15*/ curfptr[14];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3614:/ clear");
-        /*clear*/ /*_.NEWOCC__V14*/ curfptr[13] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3614:/ clear");
-        /*clear*/ /*_.DBG_OUTPUT__V15*/ curfptr[14] = 0 ;}
-       ;
-       /*_.IFELSE___V11*/ curfptr[10] = /*_.LET___V13*/ curfptr[11];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3609:/ clear");
-       /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-      ;
-      }
-     ;
-     /*_.LET___V9*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3607:/ clear");
-     /*clear*/ /*_.OCC__V10*/ curfptr[9] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3607:/ clear");
-     /*clear*/ /*_#IS_INTEGERBOX__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3607:/ clear");
-     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-    ;
-    /*_.IF___V8*/ curfptr[7] = /*_.LET___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3606:/ clear");
-    /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3606:/ cond.else");
-  
-   /*_.IF___V8*/ curfptr[7] = NULL;;
-   }
-  ;
-  /*_.LET___V6*/ curfptr[4] = /*_.IF___V8*/ curfptr[7];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3605:/ clear");
-  /*clear*/ /*_.OCCMAP__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3605:/ clear");
-  /*clear*/ /*_#IS_MAPOBJECT__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3605:/ clear");
-  /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3601:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:3601:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3601:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3601:/ clear");
- /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBG_OUTOBJECT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_60_warmelt_first_DBG_OUTOBJECT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_61_warmelt_first_DBG_OUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_first_DBG_OUT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBG_OUT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3621:/ getarg");
- /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3621:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3621:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3621:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3624:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3624:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3624:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3624:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3624:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3624:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3624:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3624)?(3624):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3624:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3624:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3624:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-first.melt:3625:/ locexp");
- melt_check_call_frames(MELT_ANYWHERE,  "start dbg_out");;}
- ;
- MELT_LOCATION("warmelt-first.melt:3626:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3626:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
-  ;
-  /*_.DISCR__V8*/ curfptr[7] = 
-   (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3629:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#GET_INT__L3*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[8])));;
-  /*_#NEED_DBGLIM__L4*/ curfnum[3] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L3*/ curfnum[1]));;
-  MELT_LOCATION("warmelt-first.melt:3629:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3629:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3629:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L5*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-first.melt:3630:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:3630:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:3630:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:3633:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:3633:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-first.melt:3633:/ apply.arg");
-       argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-       /*_.DBG_OUTOBJECT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-first.melt:3631:/ block");
-      /*block*/{
-       /*_.PROGN___V13*/ curfptr[12] = /*_.DBG_OUTOBJECT__V12*/ curfptr[11];;}
-      ;
-      /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V13*/ curfptr[12];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3630:/ clear");
-      /*clear*/ /*_.DBG_OUTOBJECT__V12*/ curfptr[11] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3630:/ clear");
-      /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-first.melt:3630:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:3630:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:3635:/ cond");
-      /*cond*/ if (/*_.OBJ__V2*/ curfptr[1]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:3635:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:3635:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3638:/ msend");
-        /*msend*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-first.melt:3638:/ ojbmsend.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-first.melt:3638:/ ojbmsend.arg");
-         argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-         /*_.DBG_OUTPUT__V15*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-first.melt:3636:/ block");
-        /*block*/{
-         /*_.PROGN___V16*/ curfptr[15] = /*_.DBG_OUTPUT__V15*/ curfptr[12];;}
-        ;
-        /*_.IFELSE___V14*/ curfptr[11] = /*_.PROGN___V16*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3635:/ clear");
-        /*clear*/ /*_.DBG_OUTPUT__V15*/ curfptr[12] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3635:/ clear");
-        /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-first.melt:3635:/ cond.else");
-      
-       MELT_LOCATION("warmelt-first.melt:3635:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3640:/ cond");
-        /*cond*/ if (/*_.OUT__V7*/ curfptr[6]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3640:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3640:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-first.melt:3640:/ locexp");
-           meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "()"));}
-           ;
-           /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-first.melt:3640:/ cond.else");
-        
-         /*_.IFELSE___V14*/ curfptr[11] = NULL;;
-         }
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3630:/ clear");
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3629:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3629:/ clear");
-    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3629:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3629:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3642:/ cond");
-    /*cond*/ if (/*_.OUT__V7*/ curfptr[6]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:3642:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:3642:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3643:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( ".."));}
-       ;
-       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } else {MELT_LOCATION("warmelt-first.melt:3642:/ cond.else");
-    
-     /*_.IFELSE___V10*/ curfptr[9] = NULL;;
-     }
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  /*_.LET___V6*/ curfptr[4] = /*_.IFELSE___V10*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3626:/ clear");
-  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3626:/ clear");
-  /*clear*/ /*_.DISCR__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3626:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3626:/ clear");
-  /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3626:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3626:/ clear");
-  /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3621:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-first.melt:3621:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3621:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3621:/ clear");
- /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBG_OUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_61_warmelt_first_DBG_OUT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_62_warmelt_first_DBGOUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_first_DBGOUT_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 22
-  long varnum[22];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3647:/ getarg");
- /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3647:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3647:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:3647:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#FROMRANK__L2*/ curfnum[1] = xargtab_[2].bp_long;
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-first.melt:3647:/ getarg");
- if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs;
- /*_#TORANK__L3*/ curfnum[2] = xargtab_[3].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3647:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3650:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3650:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[3] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3650:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3650:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3650:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3650:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3650:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3650)?(3650):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3650:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3650:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3650:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3651:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3651:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L5*/ curfnum[3] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:3651:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3651:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3651:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3651:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3651:/ locexp");
-      melt_assert_failed(( "check obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3651)?(3651):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3651:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3651:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3651:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3652:/ block");
- /*block*/{
-  /*_#NBF__L6*/ curfnum[3] = 
-   ((long)melt_object_length((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
-  /*_.CLA__V9*/ curfptr[8] = 
-   (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
-  /*_#IX__L7*/ curfnum[6] = /*_#FROMRANK__L2*/ curfnum[1];;
-  /*_#FLDCNT__L8*/ curfnum[7] = 0;;
-  MELT_LOCATION("warmelt-first.melt:3656:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V9*/ curfptr[8]), 6, "CLASS_FIELDS");/*_.CLAFIELDSEQ__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:3657:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V11*/ curfptr[10] = slot; };
-  ;
-  /*_#I__L9*/ curfnum[8] = 
-   ((/*_#IX__L7*/ curfnum[6]) < (0));;
-  MELT_LOCATION("warmelt-first.melt:3659:/ cond");
-  /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3659:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3659:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3659:/ compute");
-    /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L11*/ curfnum[10] = 0;;
-    /*_#IF___L10*/ curfnum[9] = /*_#SETQ___L11*/ curfnum[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3659:/ clear");
-    /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3659:/ cond.else");
-  
-   /*_#IF___L10*/ curfnum[9] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3660:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#GET_INT__L12*/ curfnum[10] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ curfptr[11])));;
-  /*_#NEED_DBGLIM__L13*/ curfnum[12] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L12*/ curfnum[10]));;
-  MELT_LOCATION("warmelt-first.melt:3660:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L13*/ curfnum[12]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3660:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3660:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3661:/ loop");
-    /*loop*/{ labloop_FLDLOOP_1:;MELT_LOCATION("warmelt-first.melt:3661:/ loopbody");
-    
-     MELT_LOCATION("warmelt-first.melt:3661:/ block");
-     /*block*/{
-      /*_#I__L14*/ curfnum[13] = 
-       ((/*_#IX__L7*/ curfnum[6]) >= (/*_#NBF__L6*/ curfnum[3]));;
-      MELT_LOCATION("warmelt-first.melt:3662:/ cond");
-      /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:3662:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:3662:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3663:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:3663:/ compute");
-         /*_.FLDLOOP__V15*/ curfptr[14] = NULL;;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3663:/ exit");
-         /*exit*/{
-          goto labexit_FLDLOOP_1;}
-         ;}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_#I__L15*/ curfnum[14] = 
-       ((/*_#TORANK__L3*/ curfnum[2]) > (0));;
-      MELT_LOCATION("warmelt-first.melt:3664:/ cond");
-      /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:3664:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:3664:/ block");
-       /*block*/{
-        /*_#I__L16*/ curfnum[15] = 
-         ((/*_#IX__L7*/ curfnum[6]) > (/*_#TORANK__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3664:/ cond");
-        /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3664:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3664:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3666:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3666:/ compute");
-           /*_.FLDLOOP__V15*/ curfptr[14] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3666:/ exit");
-           /*exit*/{
-            goto labexit_FLDLOOP_1;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3664:/ clear");
-        /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;}
-       ;
-      } /*noelse*/
-      ;
-      MELT_LOCATION("warmelt-first.melt:3667:/ block");
-      /*block*/{
-       /*_.CURFLD__V16*/ curfptr[15] = 
-        (melt_multiple_nth((melt_ptr_t)(/*_.CLAFIELDSEQ__V10*/ curfptr[9]), (/*_#IX__L7*/ curfnum[6])));;
-       /*_.CURVAL__V17*/ curfptr[16] = 
-        (melt_field_object((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (/*_#IX__L7*/ curfnum[6])));;
-       MELT_LOCATION("warmelt-first.melt:3670:/ cond");
-       /*cond*/ if (/*_.CURVAL__V17*/ curfptr[16]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:3670:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:3670:/ block");
-        /*block*/{
-         /*_#IRAW__L17*/ curfnum[15] = 
-          ((/*_#FLDCNT__L8*/ curfnum[7]) % (2));;
-         MELT_LOCATION("warmelt-first.melt:3672:/ cond");
-         /*cond*/ if (/*_#IRAW__L17*/ curfnum[15]) /*then*/ {
-         MELT_LOCATION("warmelt-first.melt:3672:/ cond.then");
-         MELT_LOCATION("warmelt-first.melt:3672:/ block");
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-first.melt:3672:/ locexp");
-           meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-           ;
-           /*epilog*/}
-          ;
-         } /*noelse*/
-         ;
-         /*_#I__L18*/ curfnum[17] = 
-          ((/*_#FLDCNT__L8*/ curfnum[7]) + (1));;
-         MELT_LOCATION("warmelt-first.melt:3673:/ compute");
-         /*_#FLDCNT__L8*/ curfnum[7] = /*_#SETQ___L19*/ curfnum[18] = /*_#I__L18*/ curfnum[17];;
-         MELT_LOCATION("warmelt-first.melt:3674:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3674:/ locexp");
-         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3675:/ locexp");
-         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), ( "="));}
-         ;
-         /*_#I__L20*/ curfnum[19] = 
-          ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-         MELT_LOCATION("warmelt-first.melt:3676:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[2];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-first.melt:3676:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-first.melt:3676:/ apply.arg");
-          argtab[1].bp_long = /*_#I__L20*/ curfnum[19];
-          /*_.DBG_OUT__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURVAL__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3677:/ locexp");
-         meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-         ;
-         MELT_LOCATION("warmelt-first.melt:3671:/ block");
-         /*block*/{}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3670:/ clear");
-         /*clear*/ /*_#IRAW__L17*/ curfnum[15] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3670:/ clear");
-         /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3670:/ clear");
-         /*clear*/ /*_#SETQ___L19*/ curfnum[18] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3670:/ clear");
-         /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3670:/ clear");
-         /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3670:/ clear");
-         /*clear*/ /*_.DBG_OUT__V19*/ curfptr[18] = 0 ;}
-        ;
-       } /*noelse*/
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3667:/ clear");
-       /*clear*/ /*_.CURFLD__V16*/ curfptr[15] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3667:/ clear");
-       /*clear*/ /*_.CURVAL__V17*/ curfptr[16] = 0 ;}
-      ;
-      /*_#I__L21*/ curfnum[15] = 
-       ((/*_#IX__L7*/ curfnum[6]) + (1));;
-      MELT_LOCATION("warmelt-first.melt:3679:/ compute");
-      /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L22*/ curfnum[17] = /*_#I__L21*/ curfnum[15];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3661:/ clear");
-      /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3661:/ clear");
-      /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3661:/ clear");
-      /*clear*/ /*_#I__L21*/ curfnum[15] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3661:/ clear");
-      /*clear*/ /*_#SETQ___L22*/ curfnum[17] = 0 ;}
-     ;
-     ;
-      goto labloop_FLDLOOP_1;
-      labexit_FLDLOOP_1:;MELT_LOCATION("warmelt-first.melt:3661:/ loopepilog");
-    /*loopepilog*/
-     /*_.FOREVER___V14*/ curfptr[13] = /*_.FLDLOOP__V15*/ curfptr[14];;
-     }
-    ;
-    /*_.IF___V13*/ curfptr[12] = /*_.FOREVER___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3660:/ clear");
-    /*clear*/ /*_.FOREVER___V14*/ curfptr[13] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3660:/ cond.else");
-  
-   /*_.IF___V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.IF___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#NBF__L6*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_.CLA__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#FLDCNT__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_.CLAFIELDSEQ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_.OUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#IF___L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L13*/ curfnum[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3652:/ clear");
-  /*clear*/ /*_.IF___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3647:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:3647:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3647:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3647:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3647:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_62_warmelt_first_DBGOUT_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 20
-  long varnum[20];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3684:/ getarg");
- /*_.OBJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3684:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3684:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:3684:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#FROMRANK__L2*/ curfnum[1] = xargtab_[2].bp_long;
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-first.melt:3684:/ getarg");
- if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs;
- /*_#TORANK__L3*/ curfnum[2] = xargtab_[3].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3684:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3688:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3688:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[3] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3688:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3688:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3688:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3688:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3688:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3688)?(3688):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3688:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3688:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3688:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3689:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3689:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L5*/ curfnum[3] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:3689:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3689:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3689:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3689:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3689:/ locexp");
-      melt_assert_failed(( "check obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3689)?(3689):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3689:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3689:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3689:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3690:/ block");
- /*block*/{
-  /*_#NBF__L6*/ curfnum[3] = 
-   ((long)melt_object_length((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
-  /*_.CLA__V9*/ curfptr[8] = 
-   (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1])));;
-  /*_#IX__L7*/ curfnum[6] = /*_#FROMRANK__L2*/ curfnum[1];;
-  MELT_LOCATION("warmelt-first.melt:3693:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V9*/ curfptr[8]), 6, "CLASS_FIELDS");/*_.CLAFIELDSEQ__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:3694:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V11*/ curfptr[10] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:3696:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:3696:/ block");
-   /*block*/{
-    /*_#IS_OUT__L8*/ curfnum[7] = 
-      (melt_is_out ((melt_ptr_t) /*_.OUT__V11*/ curfptr[10])) ;;
-    MELT_LOCATION("warmelt-first.melt:3696:/ cond");
-    /*cond*/ if (/*_#IS_OUT__L8*/ curfnum[7]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:3696:/ cond.then");
-    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:3696:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:3696:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3696:/ locexp");
-       melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3696)?(3696):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3696:/ clear");
-    /*clear*/ /*_#IS_OUT__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3696:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:3696:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#I__L9*/ curfnum[7] = 
-   ((/*_#IX__L7*/ curfnum[6]) < (0));;
-  MELT_LOCATION("warmelt-first.melt:3697:/ cond");
-  /*cond*/ if (/*_#I__L9*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3697:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3697:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3697:/ compute");
-    /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L11*/ curfnum[10] = 0;;
-    /*_#IF___L10*/ curfnum[9] = /*_#SETQ___L11*/ curfnum[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3697:/ clear");
-    /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3697:/ cond.else");
-  
-   /*_#IF___L10*/ curfnum[9] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3698:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V14*/ curfptr[12] = slot; };
-  ;
-  /*_#GET_INT__L12*/ curfnum[10] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ curfptr[12])));;
-  /*_#NEED_DBGLIM__L13*/ curfnum[12] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L12*/ curfnum[10]));;
-  MELT_LOCATION("warmelt-first.melt:3698:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L13*/ curfnum[12]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3698:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3698:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3699:/ loop");
-    /*loop*/{ labloop_FLDLOOP_2:;MELT_LOCATION("warmelt-first.melt:3699:/ loopbody");
-    
-     MELT_LOCATION("warmelt-first.melt:3699:/ block");
-     /*block*/{
-      /*_#I__L14*/ curfnum[13] = 
-       ((/*_#IX__L7*/ curfnum[6]) >= (/*_#NBF__L6*/ curfnum[3]));;
-      MELT_LOCATION("warmelt-first.melt:3700:/ cond");
-      /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:3700:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:3700:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:3701:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:3701:/ compute");
-         /*_.FLDLOOP__V17*/ curfptr[16] = NULL;;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3701:/ exit");
-         /*exit*/{
-          goto labexit_FLDLOOP_2;}
-         ;}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_#I__L15*/ curfnum[14] = 
-       ((/*_#TORANK__L3*/ curfnum[2]) > (0));;
-      MELT_LOCATION("warmelt-first.melt:3702:/ cond");
-      /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:3702:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:3702:/ block");
-       /*block*/{
-        /*_#I__L16*/ curfnum[15] = 
-         ((/*_#IX__L7*/ curfnum[6]) > (/*_#TORANK__L3*/ curfnum[2]));;
-        MELT_LOCATION("warmelt-first.melt:3702:/ cond");
-        /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3702:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3702:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3704:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3704:/ compute");
-           /*_.FLDLOOP__V17*/ curfptr[16] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3704:/ exit");
-           /*exit*/{
-            goto labexit_FLDLOOP_2;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3702:/ clear");
-        /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;}
-       ;
-      } /*noelse*/
-      ;
-      MELT_LOCATION("warmelt-first.melt:3705:/ block");
-      /*block*/{
-       /*_.CURFLD__V18*/ curfptr[17] = 
-        (melt_multiple_nth((melt_ptr_t)(/*_.CLAFIELDSEQ__V10*/ curfptr[9]), (/*_#IX__L7*/ curfnum[6])));;
-       /*_.CURVAL__V19*/ curfptr[18] = 
-        (melt_field_object((melt_ptr_t)(/*_.OBJ__V2*/ curfptr[1]), (/*_#IX__L7*/ curfnum[6])));;
-       MELT_LOCATION("warmelt-first.melt:3708:/ cond");
-       /*cond*/ if (/*_.CURVAL__V19*/ curfptr[18]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:3708:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:3708:/ block");
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3710:/ locexp");
-         meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-         ;
-         MELT_LOCATION("warmelt-first.melt:3712:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[19] = slot; };
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3711:/ locexp");
-         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[19])));}
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3713:/ locexp");
-         meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), ( "="));}
-         ;
-         /*_#I__L18*/ curfnum[17] = 
-          ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-         MELT_LOCATION("warmelt-first.melt:3714:/ msend");
-         /*msend*/{
-          union meltparam_un argtab[2];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-first.melt:3714:/ ojbmsend.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-first.melt:3714:/ ojbmsend.arg");
-          argtab[1].bp_long = /*_#I__L18*/ curfnum[17];
-          /*_.DBG_OUTPUTAGAIN__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.CURVAL__V19*/ curfptr[18]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3715:/ locexp");
-         meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ curfptr[10]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-         ;
-         MELT_LOCATION("warmelt-first.melt:3709:/ block");
-         /*block*/{}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3708:/ clear");
-         /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[19] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3708:/ clear");
-         /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3708:/ clear");
-         /*clear*/ /*_.DBG_OUTPUTAGAIN__V21*/ curfptr[20] = 0 ;}
-        ;
-       } /*noelse*/
-       ;
-       /*_#I__L19*/ curfnum[17] = 
-        ((/*_#IX__L7*/ curfnum[6]) + (1));;
-       MELT_LOCATION("warmelt-first.melt:3717:/ compute");
-       /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L20*/ curfnum[19] = /*_#I__L19*/ curfnum[17];;
-       /*_#LET___L17*/ curfnum[15] = /*_#SETQ___L20*/ curfnum[19];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3705:/ clear");
-       /*clear*/ /*_.CURFLD__V18*/ curfptr[17] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3705:/ clear");
-       /*clear*/ /*_.CURVAL__V19*/ curfptr[18] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3705:/ clear");
-       /*clear*/ /*_#I__L19*/ curfnum[17] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3705:/ clear");
-       /*clear*/ /*_#SETQ___L20*/ curfnum[19] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3699:/ clear");
-      /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3699:/ clear");
-      /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3699:/ clear");
-      /*clear*/ /*_#LET___L17*/ curfnum[15] = 0 ;}
-     ;
-     ;
-      goto labloop_FLDLOOP_2;
-      labexit_FLDLOOP_2:;MELT_LOCATION("warmelt-first.melt:3699:/ loopepilog");
-    /*loopepilog*/
-     /*_.FOREVER___V16*/ curfptr[15] = /*_.FLDLOOP__V17*/ curfptr[16];;
-     }
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.FOREVER___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3698:/ clear");
-    /*clear*/ /*_.FOREVER___V16*/ curfptr[15] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3698:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.IF___V15*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_#NBF__L6*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_.CLA__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_.CLAFIELDSEQ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_.OUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_#IF___L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L13*/ curfnum[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3690:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:3684:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:3684:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3684:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3684:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3684:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_64_warmelt_first_DBGOUT_NULL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_first_DBGOUT_NULL_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_NULL_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3722:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3722:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3722:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3722:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:3723:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3723:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V4*/ curfptr[3] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3725:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V4*/ curfptr[3]), ( "()"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3723:/ clear");
-  /*clear*/ /*_.OUT__V4*/ curfptr[3] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_NULL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_64_warmelt_first_DBGOUT_NULL_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_65_warmelt_first_DBGOUT_STRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_first_DBGOUT_STRING_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_STRING_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3730:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3730:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3730:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3730:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3731:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3731:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3731:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3731:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3731:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3731:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3731:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3731)?(3731):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3731:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3731:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3731:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3732:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3733:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_STRING*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3735:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3735:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3735:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3737:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " \""));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3738:/ locexp");
-    meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3739:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "\""));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3736:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3735:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3735:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3742:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3743:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3743:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3744:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "\""));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3745:/ locexp");
-    meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3746:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "\""));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3741:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3735:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3732:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3732:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3732:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3730:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_STRING_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_65_warmelt_first_DBGOUT_STRING_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_INTEGER_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3754:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3754:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3754:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3754:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3755:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3755:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3755:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3755:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3755:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3755:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3755:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3755)?(3755):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3755:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3755:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3755:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3756:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3757:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_INTEGER*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3759:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3759:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3759:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3761:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " #"));}
-    ;
-    /*_#GET_INT__L4*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3762:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L4*/ curfnum[3]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3760:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3759:/ clear");
-    /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3759:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3759:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3764:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3765:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3765:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3766:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));}
-    ;
-    /*_#GET_INT__L5*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3767:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L5*/ curfnum[3]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3763:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3759:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3759:/ clear");
-    /*clear*/ /*_#GET_INT__L5*/ curfnum[3] = 0 ;}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3756:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3756:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3756:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3754:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_INTEGER_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_MIXINT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3774:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3774:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3774:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3774:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3775:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3775:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3775:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3775:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3775:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3775:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3775:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3775)?(3775):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3775:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3775:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3775:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3776:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3777:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MIXED_INTEGER*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3779:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3779:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3779:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3781:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " #["));}
-    ;
-    /*_#GET_INT__L4*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3782:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L4*/ curfnum[3]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3780:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3779:/ clear");
-    /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3779:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3779:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3784:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3785:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3785:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3786:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#["));}
-    ;
-    /*_#GET_INT__L5*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3787:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#GET_INT__L5*/ curfnum[3]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3783:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3779:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3779:/ clear");
-    /*clear*/ /*_#GET_INT__L5*/ curfnum[3] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3789:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; };
-  ;
-  /*_#GET_INT__L6*/ curfnum[3] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));;
-  /*_#NEED_DBGLIM__L7*/ curfnum[6] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[3]));;
-  MELT_LOCATION("warmelt-first.melt:3789:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3789:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3789:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3791:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ","));}
-    ;
-    /*_.MIXINT_VAL__V11*/ curfptr[10] = 
-     (melt_val_mixint((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:3792:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:3792:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:3792:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L8*/ curfnum[7];
-     /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MIXINT_VAL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-first.melt:3790:/ block");
-    /*block*/{
-     /*_.PROGN___V13*/ curfptr[12] = /*_.DBG_OUT__V12*/ curfptr[11];;}
-    ;
-    /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3789:/ clear");
-    /*clear*/ /*_.MIXINT_VAL__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3789:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3789:/ clear");
-    /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3789:/ clear");
-    /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3789:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3789:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:3794:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ",.."));}
-     ;
-     /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3796:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "]"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3776:/ clear");
-  /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3774:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_MIXINT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_MIXLOC_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3801:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3801:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3801:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3801:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3802:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3802:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3802:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3802:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3802:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3802:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3802:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3802)?(3802):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3802:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3802:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3802:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3803:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3803:/ block");
-  /*block*/{
-   /*_#IS_MIXLOC__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])) == OBMAG_MIXLOC);;
-   MELT_LOCATION("warmelt-first.melt:3803:/ cond");
-   /*cond*/ if (/*_#IS_MIXLOC__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3803:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3803:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3803:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3803:/ locexp");
-      melt_assert_failed(( "check self mixloc"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3803)?(3803):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3803:/ clear");
-   /*clear*/ /*_#IS_MIXLOC__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3803:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3803:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3804:/ block");
- /*block*/{
-  /*_.DIS__V8*/ curfptr[6] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3805:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#__L4*/ curfnum[1] = 
-   ((/*_.DIS__V8*/ curfptr[6]) == ((/*!DISCR_MIXED_LOCATION*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3807:/ cond");
-  /*cond*/ if (/*_#__L4*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3807:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3807:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3809:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( " #!["));}
-    ;
-    /*_#GET_INT__L5*/ curfnum[4] = 
-     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3810:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), (/*_#GET_INT__L5*/ curfnum[4]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3808:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3807:/ clear");
-    /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3807:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3807:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3812:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3813:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3813:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3814:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "#!["));}
-    ;
-    /*_#GET_INT__L6*/ curfnum[4] = 
-     (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3815:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), (/*_#GET_INT__L6*/ curfnum[4]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3811:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3807:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3807:/ clear");
-    /*clear*/ /*_#GET_INT__L6*/ curfnum[4] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3817:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = slot; };
-  ;
-  /*_#GET_INT__L7*/ curfnum[4] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[9])));;
-  /*_#NEED_DBGLIM__L8*/ curfnum[7] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L7*/ curfnum[4]));;
-  MELT_LOCATION("warmelt-first.melt:3817:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3817:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3817:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3819:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ","));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3820:/ locexp");
-    /*add2sbufmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])) == OBMAG_MIXLOC)
-  meltgc_strbuf_printf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), "{%s:%d}",
-		       LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.SELF__V2*/ curfptr[1])),
-		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.SELF__V2*/ curfptr[1]))); ;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3818:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3817:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3817:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3822:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ",.."));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3824:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "]"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3804:/ clear");
-  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3804:/ clear");
-  /*clear*/ /*_.SBUF__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3804:/ clear");
-  /*clear*/ /*_#__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3804:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3804:/ clear");
-  /*clear*/ /*_#GET_INT__L7*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3804:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L8*/ curfnum[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3801:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3801:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_MIXLOC_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_MIXBIGINT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3830:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3830:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3830:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3830:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3831:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3831:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3831:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3831:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3831:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3831:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3831:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3831)?(3831):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3831:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3831:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3831:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3832:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3832:/ block");
-  /*block*/{
-   /*_#IS_MIXBIGINT__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])) == OBMAG_MIXBIGINT);;
-   MELT_LOCATION("warmelt-first.melt:3832:/ cond");
-   /*cond*/ if (/*_#IS_MIXBIGINT__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3832:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3832:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3832:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3832:/ locexp");
-      melt_assert_failed(( "check self mixbigint"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3832)?(3832):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3832:/ clear");
-   /*clear*/ /*_#IS_MIXBIGINT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3832:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3832:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3833:/ block");
- /*block*/{
-  /*_.DIS__V8*/ curfptr[6] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3834:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V9*/ curfptr[8] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3836:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( " |"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:3837:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3837:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3838:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "#!["));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:3839:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[10] = slot; };
-  ;
-  /*_#GET_INT__L4*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[10])));;
-  /*_#NEED_DBGLIM__L5*/ curfnum[4] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[1]));;
-  MELT_LOCATION("warmelt-first.melt:3839:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3839:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3839:/ block");
-   /*block*/{
-    /*_.MIXBIGINT_VAL__V12*/ curfptr[11] = 
-     melt_val_mixbigint(/*_.SELF__V2*/ curfptr[1]);;
-    /*_#I__L6*/ curfnum[5] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:3841:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:3841:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:3841:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
-     /*_.DBG_OUT__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.MIXBIGINT_VAL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3842:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ","));}
-    ;
-    /*_#I__L7*/ curfnum[6] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3843:/ locexp");
-    meltgc_ppstrbuf_mixbigint(/*_.SBUF__V9*/ curfptr[8],/*_#I__L7*/ curfnum[6],/*_.SELF__V2*/ curfptr[1]);;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3840:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3839:/ clear");
-    /*clear*/ /*_.MIXBIGINT_VAL__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3839:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3839:/ clear");
-    /*clear*/ /*_.DBG_OUT__V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3839:/ clear");
-    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3839:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3839:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3845:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( ",.."));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3847:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ curfptr[8]), ( "]"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3833:/ clear");
-  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3833:/ clear");
-  /*clear*/ /*_.SBUF__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3833:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3833:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3833:/ clear");
-  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3833:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3830:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3830:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_MIXBIGINT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 17
-  long varnum[17];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_MULTIPLE_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3852:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3852:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3852:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3852:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3853:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3853:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3853:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3853:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3853:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3853:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3853:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3853)?(3853):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3853:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3853:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3853:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3854:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3855:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3857:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3857:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3857:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3858:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3857:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3857:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3860:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3861:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3861:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3862:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "*"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3859:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3857:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3863:/ block");
-  /*block*/{
-   /*_#LN__L4*/ curfnum[3] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:3864:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#LN__L4*/ curfnum[3]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:3865:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "["));}
-   ;
-   /*_#NEED_DBG__L5*/ curfnum[4] = 
-    (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) <= MELTDBG_MAXDEPTH);;
-   MELT_LOCATION("warmelt-first.melt:3866:/ cond");
-   /*cond*/ if (/*_#NEED_DBG__L5*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3866:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3866:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3867:/ block");
-     /*block*/{
-      /*_#IX__L6*/ curfnum[5] = 0;;
-      MELT_LOCATION("warmelt-first.melt:3868:/ loop");
-      /*loop*/{ labloop_COMPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3868:/ loopbody");
-      
-       MELT_LOCATION("warmelt-first.melt:3868:/ block");
-       /*block*/{
-        /*_#I__L7*/ curfnum[6] = 
-         ((/*_#IX__L6*/ curfnum[5]) >= (/*_#LN__L4*/ curfnum[3]));;
-        MELT_LOCATION("warmelt-first.melt:3869:/ cond");
-        /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3869:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3869:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3869:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3869:/ compute");
-           /*_.COMPLOOP__V12*/ curfptr[11] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3869:/ exit");
-           /*exit*/{
-            goto labexit_COMPLOOP_1;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:3870:/ locexp");
-        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-        ;
-        MELT_LOCATION("warmelt-first.melt:3871:/ block");
-        /*block*/{
-         /*_#CURULEN__L8*/ curfnum[7] = 
-          melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
-         /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 
-          (melt_multiple_nth((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (/*_#IX__L6*/ curfnum[5])));;
-         /*_#I__L9*/ curfnum[8] = 
-          ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-         MELT_LOCATION("warmelt-first.melt:3872:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[2];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-first.melt:3872:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-first.melt:3872:/ apply.arg");
-          argtab[1].bp_long = /*_#I__L9*/ curfnum[8];
-          /*_.DBG_OUT__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MULTIPLE_NTH__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_#STRBUF_USEDLENGTH__L10*/ curfnum[9] = 
-          melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
-         /*_#I__L11*/ curfnum[10] = 
-          ((/*_#STRBUF_USEDLENGTH__L10*/ curfnum[9]) - (/*_#CURULEN__L8*/ curfnum[7]));;
-         /*_#I__L12*/ curfnum[11] = 
-          ((/*_#I__L11*/ curfnum[10]) > (100));;
-         MELT_LOCATION("warmelt-first.melt:3873:/ cond");
-         /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
-         MELT_LOCATION("warmelt-first.melt:3873:/ cond.then");
-         MELT_LOCATION("warmelt-first.melt:3873:/ block");
-          /*block*/{
-           /*_#I__L13*/ curfnum[12] = 
-            ((/*_#LN__L4*/ curfnum[3]) - (1));;
-           /*_#I__L14*/ curfnum[13] = 
-            ((/*_#IX__L6*/ curfnum[5]) < (/*_#I__L13*/ curfnum[12]));;
-           MELT_LOCATION("warmelt-first.melt:3873:/ cond");
-           /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
-           MELT_LOCATION("warmelt-first.melt:3873:/ cond.then");
-           MELT_LOCATION("warmelt-first.melt:3873:/ block");
-            /*block*/{
-             /*_#I__L15*/ curfnum[14] = 
-              ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-             
-             {
-             MELT_LOCATION("warmelt-first.melt:3875:/ locexp");
-             meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#I__L15*/ curfnum[14]), 0);}
-             ;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:3873:/ clear");
-             /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
-            ;
-           } /*noelse*/
-           ;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3873:/ clear");
-           /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
-           MELT_LOCATION("warmelt-first.melt:3873:/ clear");
-           /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;}
-          ;
-         } /*noelse*/
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_#CURULEN__L8*/ curfnum[7] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_.DBG_OUT__V14*/ curfptr[13] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_#STRBUF_USEDLENGTH__L10*/ curfnum[9] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:3871:/ clear");
-         /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
-        ;
-        /*_#I__L16*/ curfnum[14] = 
-         ((/*_#IX__L6*/ curfnum[5]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3876:/ compute");
-        /*_#IX__L6*/ curfnum[5] = /*_#SETQ___L17*/ curfnum[12] = /*_#I__L16*/ curfnum[14];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3868:/ clear");
-        /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3868:/ clear");
-        /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3868:/ clear");
-        /*clear*/ /*_#SETQ___L17*/ curfnum[12] = 0 ;}
-       ;
-       ;
-        goto labloop_COMPLOOP_1;
-        labexit_COMPLOOP_1:;MELT_LOCATION("warmelt-first.melt:3868:/ loopepilog");
-      /*loopepilog*/
-       /*_.FOREVER___V11*/ curfptr[10] = /*_.COMPLOOP__V12*/ curfptr[11];;
-       }
-      ;
-      /*_.LET___V10*/ curfptr[9] = /*_.FOREVER___V11*/ curfptr[10];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:3867:/ clear");
-      /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:3867:/ clear");
-      /*clear*/ /*_.FOREVER___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*_.IFELSE___V9*/ curfptr[7] = /*_.LET___V10*/ curfptr[9];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3866:/ clear");
-     /*clear*/ /*_.LET___V10*/ curfptr[9] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:3866:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3866:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3878:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".."));}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:3880:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "]"));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3863:/ clear");
-   /*clear*/ /*_#LN__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3863:/ clear");
-   /*clear*/ /*_#NEED_DBG__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3863:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3854:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3854:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3854:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3852:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_MULTIPLE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_ROUTINE_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3886:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3886:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3886:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3886:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3887:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3887:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3887:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3887:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3887:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3887:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3887:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3887)?(3887):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3887:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3887:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3887:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3888:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3889:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#I__L3*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V8*/ curfptr[7] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
-  /*_#__L4*/ curfnum[3] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_ROUTINE*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-first.melt:3892:/ cond");
-  /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3892:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3892:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3893:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *rou[%"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3892:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3892:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3895:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3896:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3896:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3897:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "[%"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3894:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3892:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3898:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_routine_descrstr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));}
-  ;
-  /*_#I__L5*/ curfnum[4] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) < (2));;
-  MELT_LOCATION("warmelt-first.melt:3899:/ cond");
-  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3899:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3899:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3901:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3901:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V12*/ curfptr[11] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (3));
-     ;
-     MELT_LOCATION("warmelt-first.melt:3901:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[0] = (melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]);
-     ;
-     MELT_LOCATION("warmelt-first.melt:3901:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[1] = (melt_ptr_t)(/*_.BOXDEPTHP1__V8*/ curfptr[7]);
-     ;
-     MELT_LOCATION("warmelt-first.melt:3901:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]);
-     ;
-     /*_.LAMBDA___V11*/ curfptr[10] = /*_.LAMBDA___V12*/ curfptr[11];;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3900:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:3900:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V11*/ curfptr[10];
-     /*_.ROUTINE_EVERY__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!ROUTINE_EVERY*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V10*/ curfptr[8] = /*_.ROUTINE_EVERY__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3899:/ clear");
-    /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3899:/ clear");
-    /*clear*/ /*_.ROUTINE_EVERY__V13*/ curfptr[12] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3899:/ cond.else");
-  
-   /*_.IF___V10*/ curfptr[8] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3906:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "%]"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3888:/ clear");
-  /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3886:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_ROUTINE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_72_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3901:/ getarg");
- /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3901:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3901:/ block");
-/*block*/{
- /*_#GET_INT__L2*/ curfnum[1] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[1]))));;
- 
- {
- MELT_LOCATION("warmelt-first.melt:3902:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[0])), (/*_#GET_INT__L2*/ curfnum[1]), 64);}
- ;
- /*_#GET_INT__L3*/ curfnum[2] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[1]))));;
- MELT_LOCATION("warmelt-first.melt:3903:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-first.melt:3903:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]);
-  MELT_LOCATION("warmelt-first.melt:3903:/ apply.arg");
-  argtab[1].bp_long = /*_#GET_INT__L3*/ curfnum[2];
-  /*_.DBG_OUT__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:3901:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.DBG_OUT__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:3901:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3901:/ clear");
- /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3901:/ clear");
- /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;
- MELT_LOCATION("warmelt-first.melt:3901:/ clear");
- /*clear*/ /*_.DBG_OUT__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_72_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 18
-  long varnum[18];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_CLOSURE_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3913:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3913:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3913:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3913:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3914:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3914:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3914:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3914:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3914:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3914:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3914:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3914)?(3914):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3914:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3914:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3914:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3915:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3916:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#OLDMAXDEPTH__L3*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V7*/ curfptr[6])));;
-  MELT_LOCATION("warmelt-first.melt:3917:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#__L4*/ curfnum[3] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_CLOSURE*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3918:/ cond");
-  /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3918:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3918:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3919:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( " *clo<"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3918:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3918:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3921:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3922:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3922:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3923:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( "*clo<"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3920:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3918:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3924:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[8] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3924:/ locexp");
-  melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[8]), (3));}
-  ;
-  /*_.CLOSURE_ROUTINE__V11*/ curfptr[10] = 
-   (melt_closure_routine((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3925:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3925:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-first.melt:3925:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOSURE_ROUTINE__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3926:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3926:/ locexp");
-  melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12]), (/*_#OLDMAXDEPTH__L3*/ curfnum[1]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:3927:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V14*/ curfptr[13] = slot; };
-  ;
-  /*_#GET_INT__L5*/ curfnum[4] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ curfptr[13])));;
-  /*_#NEED_DBGLIM__L6*/ curfnum[5] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));;
-  MELT_LOCATION("warmelt-first.melt:3927:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3927:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3927:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:3928:/ block");
-    /*block*/{
-     /*_#IX__L7*/ curfnum[6] = 0;;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:3929:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( "/"));}
-     ;
-     /*_#CLOSURE_SIZE__L8*/ curfnum[7] = 
-      (melt_closure_size((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:3930:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), (/*_#CLOSURE_SIZE__L8*/ curfnum[7]));}
-     ;
-     MELT_LOCATION("warmelt-first.melt:3931:/ loop");
-     /*loop*/{ labloop_OUTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3931:/ loopbody");
-     
-      MELT_LOCATION("warmelt-first.melt:3931:/ block");
-      /*block*/{
-       /*_#CLOSURE_SIZE__L9*/ curfnum[8] = 
-        (melt_closure_size((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-       /*_#I__L10*/ curfnum[9] = 
-        ((/*_#IX__L7*/ curfnum[6]) >= (/*_#CLOSURE_SIZE__L9*/ curfnum[8]));;
-       MELT_LOCATION("warmelt-first.melt:3932:/ cond");
-       /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:3932:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:3932:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:3933:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3933:/ compute");
-          /*_.OUTLOOP__V18*/ curfptr[17] = NULL;;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3933:/ exit");
-          /*exit*/{
-           goto labexit_OUTLOOP_1;}
-          ;}
-         ;
-         /*epilog*/}
-        ;
-       } /*noelse*/
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3934:/ locexp");
-       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-       ;
-       MELT_LOCATION("warmelt-first.melt:3935:/ block");
-       /*block*/{
-        /*_#CURULEN__L11*/ curfnum[10] = 
-         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]));;
-        /*_.CLOSURE_NTH__V19*/ curfptr[18] = 
-         (melt_closure_nth((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (int)(/*_#IX__L7*/ curfnum[6])));;
-        /*_#I__L12*/ curfnum[11] = 
-         ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3936:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-first.melt:3936:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-first.melt:3936:/ apply.arg");
-         argtab[1].bp_long = /*_#I__L12*/ curfnum[11];
-         /*_.DBG_OUT__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOSURE_NTH__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#STRBUF_USEDLENGTH__L13*/ curfnum[12] = 
-         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]));;
-        /*_#I__L14*/ curfnum[13] = 
-         ((/*_#STRBUF_USEDLENGTH__L13*/ curfnum[12]) - (/*_#CURULEN__L11*/ curfnum[10]));;
-        /*_#I__L15*/ curfnum[14] = 
-         ((/*_#I__L14*/ curfnum[13]) > (100));;
-        MELT_LOCATION("warmelt-first.melt:3937:/ cond");
-        /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3937:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3937:/ block");
-         /*block*/{
-          /*_#I__L16*/ curfnum[15] = 
-           ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:3938:/ locexp");
-          meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), (/*_#I__L16*/ curfnum[15]), 0);}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3937:/ clear");
-          /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_#CURULEN__L11*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_.CLOSURE_NTH__V19*/ curfptr[18] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_.DBG_OUT__V20*/ curfptr[19] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_#STRBUF_USEDLENGTH__L13*/ curfnum[12] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3935:/ clear");
-        /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
-       ;
-       /*_#I__L17*/ curfnum[15] = 
-        ((/*_#IX__L7*/ curfnum[6]) + (1));;
-       MELT_LOCATION("warmelt-first.melt:3939:/ compute");
-       /*_#IX__L7*/ curfnum[6] = /*_#SETQ___L18*/ curfnum[10] = /*_#I__L17*/ curfnum[15];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3931:/ clear");
-       /*clear*/ /*_#CLOSURE_SIZE__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3931:/ clear");
-       /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3931:/ clear");
-       /*clear*/ /*_#I__L17*/ curfnum[15] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3931:/ clear");
-       /*clear*/ /*_#SETQ___L18*/ curfnum[10] = 0 ;}
-      ;
-      ;
-       goto labloop_OUTLOOP_1;
-       labexit_OUTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3931:/ loopepilog");
-     /*loopepilog*/
-      /*_.FOREVER___V17*/ curfptr[16] = /*_.OUTLOOP__V18*/ curfptr[17];;
-      }
-     ;
-     /*_.LET___V16*/ curfptr[15] = /*_.FOREVER___V17*/ curfptr[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3928:/ clear");
-     /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3928:/ clear");
-     /*clear*/ /*_#CLOSURE_SIZE__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:3928:/ clear");
-     /*clear*/ /*_.FOREVER___V17*/ curfptr[16] = 0 ;}
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.LET___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3927:/ clear");
-    /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3927:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:3941:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ curfptr[7]), ( ">"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_#OLDMAXDEPTH__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.SBUF__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.CLOSURE_ROUTINE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3915:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3913:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_CLOSURE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_74_warmelt_first_DBGOUT_LIST_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_first_DBGOUT_LIST_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 18
-  long varnum[18];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_LIST_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3949:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3949:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3949:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3949:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3950:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3950:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3950:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3950:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3950:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3950:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3950:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3950)?(3950):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3950:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3950:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3950:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3951:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3952:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_LIST*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3953:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3953:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3953:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3954:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *li("));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3953:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3953:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3956:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3957:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3957:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3958:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "("));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3955:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3953:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3959:/ block");
-  /*block*/{
-   /*_.CURPAIR__V9*/ curfptr[7] = 
-    (melt_list_first((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-   /*_#IX__L4*/ curfnum[3] = 0;;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:3963:/ locexp");
-   melt_check_call_frames(MELT_ANYWHERE,  "before loop dbgout_list_method");;}
-   ;
-   MELT_LOCATION("warmelt-first.melt:3964:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = slot; };
-   ;
-   /*_#GET_INT__L5*/ curfnum[4] = 
-    (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[9])));;
-   /*_#NEED_DBGLIM__L6*/ curfnum[5] = 
-    (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));;
-   MELT_LOCATION("warmelt-first.melt:3964:/ cond");
-   /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3964:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:3964:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:3965:/ loop");
-     /*loop*/{ labloop_LISTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3965:/ loopbody");
-     
-      MELT_LOCATION("warmelt-first.melt:3965:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3966:/ locexp");
-       melt_check_call_frames(MELT_ANYWHERE,  "start loop dbgout_list_method");;}
-       ;
-       /*_#I__L7*/ curfnum[6] = 
-        ((/*_#IX__L4*/ curfnum[3]) > (300));;
-       MELT_LOCATION("warmelt-first.melt:3967:/ cond");
-       /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:3967:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:3967:/ block");
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:3969:/ locexp");
-         meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "..."));}
-         ;
-         MELT_LOCATION("warmelt-first.melt:3970:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3970:/ compute");
-          /*_.LISTLOOP__V13*/ curfptr[12] = NULL;;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3970:/ exit");
-          /*exit*/{
-           goto labexit_LISTLOOP_1;}
-          ;}
-         ;
-         MELT_LOCATION("warmelt-first.melt:3968:/ block");
-         /*block*/{}
-         ;
-         /*epilog*/}
-        ;
-       } /*noelse*/
-       ;
-       /*_#IS_PAIR__L8*/ curfnum[7] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[7])) == OBMAG_PAIR);;
-       /*_#NOT__L9*/ curfnum[8] = 
-        (!(/*_#IS_PAIR__L8*/ curfnum[7]));;
-       MELT_LOCATION("warmelt-first.melt:3971:/ cond");
-       /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:3971:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:3971:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:3971:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3971:/ compute");
-          /*_.LISTLOOP__V13*/ curfptr[12] = NULL;;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3971:/ exit");
-          /*exit*/{
-           goto labexit_LISTLOOP_1;}
-          ;}
-         ;
-         /*epilog*/}
-        ;
-       } /*noelse*/
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:3972:/ locexp");
-       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-       ;
-       MELT_LOCATION("warmelt-first.melt:3973:/ block");
-       /*block*/{
-        /*_#CURULEN__L10*/ curfnum[9] = 
-         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
-        /*_.PAIR_HEAD__V14*/ curfptr[13] = 
-         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[7])));;
-        /*_#I__L11*/ curfnum[10] = 
-         ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3974:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-first.melt:3974:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-first.melt:3974:/ apply.arg");
-         argtab[1].bp_long = /*_#I__L11*/ curfnum[10];
-         /*_.DBG_OUT__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_HEAD__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.PAIR_TAIL__V16*/ curfptr[15] = 
-         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V9*/ curfptr[7])));;
-        MELT_LOCATION("warmelt-first.melt:3975:/ compute");
-        /*_.CURPAIR__V9*/ curfptr[7] = /*_.SETQ___V17*/ curfptr[16] = /*_.PAIR_TAIL__V16*/ curfptr[15];;
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:3976:/ locexp");
-        melt_check_call_frames(MELT_ANYWHERE,  "near endloop dbgout_list_method");;}
-        ;
-        /*_#NULL__L12*/ curfnum[11] = 
-         ((/*_.CURPAIR__V9*/ curfptr[7]) == NULL);;
-        MELT_LOCATION("warmelt-first.melt:3977:/ cond");
-        /*cond*/ if (/*_#NULL__L12*/ curfnum[11]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3977:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3977:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:3978:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:3978:/ compute");
-           /*_.LISTLOOP__V13*/ curfptr[12] = NULL;;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:3978:/ exit");
-           /*exit*/{
-            goto labexit_LISTLOOP_1;}
-           ;}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*_#I__L13*/ curfnum[12] = 
-         ((/*_#IX__L4*/ curfnum[3]) + (1));;
-        MELT_LOCATION("warmelt-first.melt:3979:/ compute");
-        /*_#IX__L4*/ curfnum[3] = /*_#SETQ___L14*/ curfnum[13] = /*_#I__L13*/ curfnum[12];;
-        /*_#STRBUF_USEDLENGTH__L15*/ curfnum[14] = 
-         melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]));;
-        /*_#I__L16*/ curfnum[15] = 
-         ((/*_#STRBUF_USEDLENGTH__L15*/ curfnum[14]) - (/*_#CURULEN__L10*/ curfnum[9]));;
-        /*_#I__L17*/ curfnum[16] = 
-         ((/*_#I__L16*/ curfnum[15]) > (100));;
-        MELT_LOCATION("warmelt-first.melt:3980:/ cond");
-        /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:3980:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:3980:/ block");
-         /*block*/{
-          /*_#I__L18*/ curfnum[17] = 
-           ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:3981:/ locexp");
-          meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#I__L18*/ curfnum[17]), 0);}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:3980:/ clear");
-          /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#CURULEN__L10*/ curfnum[9] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_.PAIR_HEAD__V14*/ curfptr[13] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_.DBG_OUT__V15*/ curfptr[14] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_.PAIR_TAIL__V16*/ curfptr[15] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#NULL__L12*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#STRBUF_USEDLENGTH__L15*/ curfnum[14] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:3973:/ clear");
-        /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:3965:/ clear");
-       /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3965:/ clear");
-       /*clear*/ /*_#IS_PAIR__L8*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:3965:/ clear");
-       /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;}
-      ;
-      ;
-       goto labloop_LISTLOOP_1;
-       labexit_LISTLOOP_1:;MELT_LOCATION("warmelt-first.melt:3965:/ loopepilog");
-     /*loopepilog*/
-      /*_.FOREVER___V12*/ curfptr[11] = /*_.LISTLOOP__V13*/ curfptr[12];;
-      }
-     ;
-     /*_.IF___V11*/ curfptr[10] = /*_.FOREVER___V12*/ curfptr[11];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:3964:/ clear");
-     /*clear*/ /*_.FOREVER___V12*/ curfptr[11] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:3964:/ cond.else");
-   
-    /*_.IF___V11*/ curfptr[10] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:3983:/ locexp");
-   melt_check_call_frames(MELT_ANYWHERE,  "end dbgout_list_method");;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:3984:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ")"));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3959:/ clear");
-   /*clear*/ /*_.CURPAIR__V9*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3959:/ clear");
-   /*clear*/ /*_#IX__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3959:/ clear");
-   /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3959:/ clear");
-   /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3959:/ clear");
-   /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3959:/ clear");
-   /*clear*/ /*_.IF___V11*/ curfptr[10] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3951:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3951:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3951:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3949:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_LIST_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_74_warmelt_first_DBGOUT_LIST_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_PAIR_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:3989:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:3989:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:3989:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:3989:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:3990:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:3990:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:3990:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:3990:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:3990:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:3990:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:3990:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (3990)?(3990):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:3990:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:3990:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:3990:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:3991:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:3992:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_PAIR*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:3993:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3993:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3993:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3994:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *pa(."));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3993:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:3993:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3996:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3997:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3997:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:3998:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "(."));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:3995:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3993:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:3999:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; };
-  ;
-  /*_#GET_INT__L4*/ curfnum[3] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));;
-  /*_#NEED_DBGLIM__L5*/ curfnum[4] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[3]));;
-  MELT_LOCATION("warmelt-first.melt:3999:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:3999:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:3999:/ block");
-   /*block*/{
-    /*_.PAIR_HEAD__V11*/ curfptr[10] = 
-     (melt_pair_head((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    /*_#I__L6*/ curfnum[5] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:4001:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4001:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:4001:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
-     /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_HEAD__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4002:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-    ;
-    /*_.PAIR_TAIL__V13*/ curfptr[12] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-    /*_#I__L7*/ curfnum[6] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:4003:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4003:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:4003:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L7*/ curfnum[6];
-     /*_.DBG_OUT__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_TAIL__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-first.melt:4000:/ block");
-    /*block*/{
-     /*_.PROGN___V15*/ curfptr[14] = /*_.DBG_OUT__V14*/ curfptr[13];;}
-    ;
-    /*_.IF___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_.PAIR_HEAD__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_.DBG_OUT__V14*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:3999:/ clear");
-    /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:3999:/ cond.else");
-  
-   /*_.IF___V10*/ curfptr[9] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4004:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".)"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:3991:/ clear");
-  /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:3989:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_PAIR_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_76_warmelt_first_DBGOUT_BOX_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_first_DBGOUT_BOX_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_BOX_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4009:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4009:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4009:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4009:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4010:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4010:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4010:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4010:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4010:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4010:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4010:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4010)?(4010):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4010:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4010:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4010:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4011:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4012:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_BOX*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:4013:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4013:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4013:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4014:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *box[<"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4013:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:4013:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4016:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4017:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4017:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4018:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "[<"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4015:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4013:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:4019:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; };
-  ;
-  /*_#GET_INT__L4*/ curfnum[3] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));;
-  /*_#NEED_DBGLIM__L5*/ curfnum[4] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[3]));;
-  MELT_LOCATION("warmelt-first.melt:4019:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4019:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4019:/ block");
-   /*block*/{
-    /*_.BOX_CONTENT__V11*/ curfptr[10] = 
-     melt_box_content((meltbox_ptr_t)(/*_.SELF__V2*/ curfptr[1]));;
-    /*_#I__L6*/ curfnum[5] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:4020:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4020:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:4020:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
-     /*_.DBG_OUT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BOX_CONTENT__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V10*/ curfptr[9] = /*_.DBG_OUT__V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4019:/ clear");
-    /*clear*/ /*_.BOX_CONTENT__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4019:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4019:/ clear");
-    /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4019:/ cond.else");
-  
-   /*_.IF___V10*/ curfptr[9] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4021:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ">]"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4011:/ clear");
-  /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4009:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_BOX_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_76_warmelt_first_DBGOUT_BOX_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_77_warmelt_first_COMPARE_OBJ_RANKED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_first_COMPARE_OBJ_RANKED_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 76
-  void* varptr[76];
-#define CURFRAM_NBVARNUM 25
-  long varnum[25];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<76; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 76;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPARE_OBJ_RANKED", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- /*_.X1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.BXRK1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BXRK1__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.X2__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.X2__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.BXRK2__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BXRK2__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.VLESS__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VLESS__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.VEQ__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VEQ__V7*/ curfptr[6])) != NULL);
- 
- 
- /*getarg#6*/
- MELT_LOCATION("warmelt-first.melt:4028:/ getarg");
- if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
- /*_.VGREAT__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VGREAT__V8*/ curfptr[7])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4028:/ block");
-/*block*/{
- /*_#__L1*/ curfnum[0] = 
-  ((/*_.X1__V2*/ curfptr[1]) == (/*_.X2__V4*/ curfptr[3]));;
- MELT_LOCATION("warmelt-first.melt:4029:/ cond");
- /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4029:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4029:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4030:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
-    MELT_LOCATION("warmelt-first.melt:4030:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.IFELSE___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4029:/ clear");
-   /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4029:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4029:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4031:/ block");
-   /*block*/{
-    /*_.X1DIS__V12*/ curfptr[11] = 
-     (melt_discr((melt_ptr_t)(/*_.X1__V2*/ curfptr[1])));;
-    /*_.X2DIS__V13*/ curfptr[12] = 
-     (melt_discr((melt_ptr_t)(/*_.X2__V4*/ curfptr[3])));;
-    /*_#RK1__L2*/ curfnum[1] = 
-     (melt_get_int((melt_ptr_t)(/*_.BXRK1__V3*/ curfptr[2])));;
-    /*_#RK2__L3*/ curfnum[2] = 
-     (melt_get_int((melt_ptr_t)(/*_.BXRK2__V5*/ curfptr[4])));;
-    /*_#__L4*/ curfnum[3] = 
-     ((/*_.X1DIS__V12*/ curfptr[11]) != (/*_.X2DIS__V13*/ curfptr[12]));;
-    MELT_LOCATION("warmelt-first.melt:4036:/ cond");
-    /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4036:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:4036:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4037:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.X1DIS__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; };
-      ;
-      MELT_LOCATION("warmelt-first.melt:4038:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.X2DIS__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
-      ;
-      /*_#STRING___L5*/ curfnum[4] = 
-       melt_string_less((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14]), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));;
-      MELT_LOCATION("warmelt-first.melt:4037:/ cond");
-      /*cond*/ if (/*_#STRING___L5*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4037:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:4037:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:4039:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-         MELT_LOCATION("warmelt-first.melt:4039:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V18*/ curfptr[17];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4037:/ clear");
-        /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-first.melt:4037:/ cond.else");
-      
-       MELT_LOCATION("warmelt-first.melt:4037:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:4040:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-         MELT_LOCATION("warmelt-first.melt:4040:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V19*/ curfptr[17];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4037:/ clear");
-        /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V17*/ curfptr[16];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4036:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4036:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4036:/ clear");
-      /*clear*/ /*_#STRING___L5*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4036:/ clear");
-      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-first.melt:4036:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4036:/ block");
-     /*block*/{
-      /*_#IS_A__L6*/ curfnum[4] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[0])));;
-      MELT_LOCATION("warmelt-first.melt:4042:/ cond");
-      /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4042:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:4042:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:4043:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:4043:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V22*/ curfptr[15] = slot; };
-         ;
-         MELT_LOCATION("warmelt-first.melt:4044:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.N2__V23*/ curfptr[16] = slot; };
-         ;
-         /*_#STRING___L7*/ curfnum[6] = 
-          melt_string_less((melt_ptr_t)(/*_.N1__V22*/ curfptr[15]), (melt_ptr_t)(/*_.N2__V23*/ curfptr[16]));;
-         MELT_LOCATION("warmelt-first.melt:4045:/ cond");
-         /*cond*/ if (/*_#STRING___L7*/ curfnum[6]) /*then*/ {
-         MELT_LOCATION("warmelt-first.melt:4045:/ cond.then");
-         MELT_LOCATION("warmelt-first.melt:4045:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:4046:/ block");
-           /*block*/{
-            /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-            MELT_LOCATION("warmelt-first.melt:4046:/ finalreturn");
-            ;
-            /*finalret*/ goto labend_rout ;}
-           ;
-           /*_.IFELSE___V24*/ curfptr[23] = /*_.RETURN___V25*/ curfptr[24];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:4045:/ clear");
-           /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-first.melt:4045:/ cond.else");
-         
-          MELT_LOCATION("warmelt-first.melt:4045:/ block");
-          /*block*/{
-           /*_#STRING___L8*/ curfnum[7] = 
-            melt_string_less((melt_ptr_t)(/*_.N2__V23*/ curfptr[16]), (melt_ptr_t)(/*_.N1__V22*/ curfptr[15]));;
-           MELT_LOCATION("warmelt-first.melt:4047:/ cond");
-           /*cond*/ if (/*_#STRING___L8*/ curfnum[7]) /*then*/ {
-           MELT_LOCATION("warmelt-first.melt:4047:/ cond.then");
-           MELT_LOCATION("warmelt-first.melt:4047:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-first.melt:4048:/ block");
-             /*block*/{
-              /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-              MELT_LOCATION("warmelt-first.melt:4048:/ finalreturn");
-              ;
-              /*finalret*/ goto labend_rout ;}
-             ;
-             /*_.IFELSE___V26*/ curfptr[24] = /*_.RETURN___V27*/ curfptr[26];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:4047:/ clear");
-             /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;}
-            ;
-           } else {MELT_LOCATION("warmelt-first.melt:4047:/ cond.else");
-           
-            MELT_LOCATION("warmelt-first.melt:4047:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-first.melt:4050:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-first.melt:4051:/ getslot");
-              { melt_ptr_t slot=0;
-               melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 3, "CSYM_URANK");/*_.YR1__V29*/ curfptr[28] = slot; };
-              ;
-              MELT_LOCATION("warmelt-first.melt:4052:/ getslot");
-              { melt_ptr_t slot=0;
-               melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 3, "CSYM_URANK");/*_.YR2__V30*/ curfptr[29] = slot; };
-              ;
-              /*_#NR1__L9*/ curfnum[8] = 
-               (melt_get_int((melt_ptr_t)(/*_.YR1__V29*/ curfptr[28])));;
-              /*_#NR2__L10*/ curfnum[9] = 
-               (melt_get_int((melt_ptr_t)(/*_.YR2__V30*/ curfptr[29])));;
-              /*_#I__L11*/ curfnum[10] = 
-               ((/*_#NR1__L9*/ curfnum[8]) < (/*_#NR2__L10*/ curfnum[9]));;
-              MELT_LOCATION("warmelt-first.melt:4056:/ cond");
-              /*cond*/ if (/*_#I__L11*/ curfnum[10]) /*then*/ {
-              MELT_LOCATION("warmelt-first.melt:4056:/ cond.then");
-              MELT_LOCATION("warmelt-first.melt:4056:/ block");
-               /*block*/{
-                MELT_LOCATION("warmelt-first.melt:4057:/ block");
-                /*block*/{
-                 /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-                 MELT_LOCATION("warmelt-first.melt:4057:/ finalreturn");
-                 ;
-                 /*finalret*/ goto labend_rout ;}
-                ;
-                /*_.IFELSE___V31*/ curfptr[30] = /*_.RETURN___V32*/ curfptr[31];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:4056:/ clear");
-                /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ;}
-               ;
-              } else {MELT_LOCATION("warmelt-first.melt:4056:/ cond.else");
-              
-               MELT_LOCATION("warmelt-first.melt:4056:/ block");
-               /*block*/{
-                /*_#I__L12*/ curfnum[11] = 
-                 ((/*_#NR1__L9*/ curfnum[8]) > (/*_#NR2__L10*/ curfnum[9]));;
-                MELT_LOCATION("warmelt-first.melt:4058:/ cond");
-                /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
-                MELT_LOCATION("warmelt-first.melt:4058:/ cond.then");
-                MELT_LOCATION("warmelt-first.melt:4058:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-first.melt:4059:/ block");
-                  /*block*/{
-                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-                   MELT_LOCATION("warmelt-first.melt:4059:/ finalreturn");
-                   ;
-                   /*finalret*/ goto labend_rout ;}
-                  ;
-                  /*_.IFELSE___V33*/ curfptr[31] = /*_.RETURN___V34*/ curfptr[33];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:4058:/ clear");
-                  /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ;}
-                 ;
-                } else {MELT_LOCATION("warmelt-first.melt:4058:/ cond.else");
-                
-                 MELT_LOCATION("warmelt-first.melt:4058:/ block");
-                 /*block*/{
-                  
-                  #if ENABLE_CHECKING
-                   MELT_LOCATION("warmelt-first.melt:4062:/ cppif.then");
-                  MELT_LOCATION("warmelt-first.melt:4062:/ block");
-                   /*block*/{
-                    MELT_LOCATION("warmelt-first.melt:4062:/ cond");
-                    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-                    MELT_LOCATION("warmelt-first.melt:4062:/ cond.then");
-                    /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);;
-                    } else {MELT_LOCATION("warmelt-first.melt:4062:/ cond.else");
-                    
-                     MELT_LOCATION("warmelt-first.melt:4062:/ block");
-                     /*block*/{
-                      /*block*/{
-                       
-                       {
-                       MELT_LOCATION("warmelt-first.melt:4062:/ locexp");
-                       melt_assert_failed(( "corrupted same cloned symbols"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4062)?(4062):__LINE__, __FUNCTION__);
-;}
-                       ;
-                       /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
-                      ;
-                      /*epilog*/}
-                     ;
-                     }
-                    ;
-                    /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];;
-                    /*epilog*/
-                    MELT_LOCATION("warmelt-first.melt:4062:/ clear");
-                    /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
-                   
-                   #else /*ENABLE_CHECKING*/
-                   MELT_LOCATION("warmelt-first.melt:4062:/ cppif.else");
-                  /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
-                   #endif /*ENABLE_CHECKING*/
-                   ;
-                  MELT_LOCATION("warmelt-first.melt:4063:/ block");
-                  /*block*/{
-                   /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-                   MELT_LOCATION("warmelt-first.melt:4063:/ finalreturn");
-                   ;
-                   /*finalret*/ goto labend_rout ;}
-                  ;
-                  MELT_LOCATION("warmelt-first.melt:4060:/ block");
-                  /*block*/{
-                   /*_.PROGN___V38*/ curfptr[37] = /*_.RETURN___V37*/ curfptr[35];;}
-                  ;
-                  /*_.IFELSE___V33*/ curfptr[31] = /*_.PROGN___V38*/ curfptr[37];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:4058:/ clear");
-                  /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:4058:/ clear");
-                  /*clear*/ /*_.RETURN___V37*/ curfptr[35] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:4058:/ clear");
-                  /*clear*/ /*_.PROGN___V38*/ curfptr[37] = 0 ;}
-                 ;
-                 }
-                ;
-                /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[31];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:4056:/ clear");
-                /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
-                MELT_LOCATION("warmelt-first.melt:4056:/ clear");
-                /*clear*/ /*_.IFELSE___V33*/ curfptr[31] = 0 ;}
-               ;
-               }
-              ;
-              /*_.LET___V28*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[30];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-first.melt:4050:/ clear");
-              /*clear*/ /*_.YR1__V29*/ curfptr[28] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4050:/ clear");
-              /*clear*/ /*_.YR2__V30*/ curfptr[29] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4050:/ clear");
-              /*clear*/ /*_#NR1__L9*/ curfnum[8] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4050:/ clear");
-              /*clear*/ /*_#NR2__L10*/ curfnum[9] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4050:/ clear");
-              /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4050:/ clear");
-              /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-             ;
-             MELT_LOCATION("warmelt-first.melt:4049:/ block");
-             /*block*/{
-              /*_.PROGN___V39*/ curfptr[33] = /*_.LET___V28*/ curfptr[26];;}
-             ;
-             /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V39*/ curfptr[33];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:4047:/ clear");
-             /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;
-             MELT_LOCATION("warmelt-first.melt:4047:/ clear");
-             /*clear*/ /*_.PROGN___V39*/ curfptr[33] = 0 ;}
-            ;
-            }
-           ;
-           /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[24];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:4045:/ clear");
-           /*clear*/ /*_#STRING___L8*/ curfnum[7] = 0 ;
-           MELT_LOCATION("warmelt-first.melt:4045:/ clear");
-           /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;}
-          ;
-          }
-         ;
-         /*_.LET___V21*/ curfptr[14] = /*_.IFELSE___V24*/ curfptr[23];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:4043:/ clear");
-         /*clear*/ /*_.N1__V22*/ curfptr[15] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:4043:/ clear");
-         /*clear*/ /*_.N2__V23*/ curfptr[16] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:4043:/ clear");
-         /*clear*/ /*_#STRING___L7*/ curfnum[6] = 0 ;
-         MELT_LOCATION("warmelt-first.melt:4043:/ clear");
-         /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-        ;
-        /*_.IFELSE___V20*/ curfptr[17] = /*_.LET___V21*/ curfptr[14];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4042:/ clear");
-        /*clear*/ /*_.LET___V21*/ curfptr[14] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-first.melt:4042:/ cond.else");
-      
-       MELT_LOCATION("warmelt-first.melt:4042:/ block");
-       /*block*/{
-        /*_#IS_A__L13*/ curfnum[11] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-        MELT_LOCATION("warmelt-first.melt:4066:/ cond");
-        /*cond*/ if (/*_#IS_A__L13*/ curfnum[11]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:4066:/ cond.then");
-        MELT_LOCATION("warmelt-first.melt:4066:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-first.melt:4067:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-first.melt:4067:/ getslot");
-           { melt_ptr_t slot=0;
-            melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V42*/ curfptr[31] = slot; };
-           ;
-           MELT_LOCATION("warmelt-first.melt:4068:/ getslot");
-           { melt_ptr_t slot=0;
-            melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.N2__V43*/ curfptr[28] = slot; };
-           ;
-           /*_#STRING___L14*/ curfnum[8] = 
-            melt_string_less((melt_ptr_t)(/*_.N1__V42*/ curfptr[31]), (melt_ptr_t)(/*_.N2__V43*/ curfptr[28]));;
-           MELT_LOCATION("warmelt-first.melt:4070:/ cond");
-           /*cond*/ if (/*_#STRING___L14*/ curfnum[8]) /*then*/ {
-           MELT_LOCATION("warmelt-first.melt:4070:/ cond.then");
-           MELT_LOCATION("warmelt-first.melt:4070:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-first.melt:4071:/ block");
-             /*block*/{
-              /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-              MELT_LOCATION("warmelt-first.melt:4071:/ finalreturn");
-              ;
-              /*finalret*/ goto labend_rout ;}
-             ;
-             /*_.IFELSE___V44*/ curfptr[29] = /*_.RETURN___V45*/ curfptr[30];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:4070:/ clear");
-             /*clear*/ /*_.RETURN___V45*/ curfptr[30] = 0 ;}
-            ;
-           } else {MELT_LOCATION("warmelt-first.melt:4070:/ cond.else");
-           
-            MELT_LOCATION("warmelt-first.melt:4070:/ block");
-            /*block*/{
-             /*_#STRING___L15*/ curfnum[9] = 
-              melt_string_less((melt_ptr_t)(/*_.N2__V43*/ curfptr[28]), (melt_ptr_t)(/*_.N1__V42*/ curfptr[31]));;
-             MELT_LOCATION("warmelt-first.melt:4072:/ cond");
-             /*cond*/ if (/*_#STRING___L15*/ curfnum[9]) /*then*/ {
-             MELT_LOCATION("warmelt-first.melt:4072:/ cond.then");
-             MELT_LOCATION("warmelt-first.melt:4072:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-first.melt:4073:/ block");
-               /*block*/{
-                /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-                MELT_LOCATION("warmelt-first.melt:4073:/ finalreturn");
-                ;
-                /*finalret*/ goto labend_rout ;}
-               ;
-               /*_.IFELSE___V46*/ curfptr[26] = /*_.RETURN___V47*/ curfptr[33];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-first.melt:4072:/ clear");
-               /*clear*/ /*_.RETURN___V47*/ curfptr[33] = 0 ;}
-              ;
-             } else {MELT_LOCATION("warmelt-first.melt:4072:/ cond.else");
-             
-              MELT_LOCATION("warmelt-first.melt:4072:/ block");
-              /*block*/{
-               /*_#I__L16*/ curfnum[10] = 
-                ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));;
-               MELT_LOCATION("warmelt-first.melt:4074:/ cond");
-               /*cond*/ if (/*_#I__L16*/ curfnum[10]) /*then*/ {
-               MELT_LOCATION("warmelt-first.melt:4074:/ cond.then");
-               MELT_LOCATION("warmelt-first.melt:4074:/ block");
-                /*block*/{
-                 MELT_LOCATION("warmelt-first.melt:4075:/ block");
-                 /*block*/{
-                  /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-                  MELT_LOCATION("warmelt-first.melt:4075:/ finalreturn");
-                  ;
-                  /*finalret*/ goto labend_rout ;}
-                 ;
-                 /*_.IFELSE___V48*/ curfptr[24] = /*_.RETURN___V49*/ curfptr[15];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-first.melt:4074:/ clear");
-                 /*clear*/ /*_.RETURN___V49*/ curfptr[15] = 0 ;}
-                ;
-               } else {MELT_LOCATION("warmelt-first.melt:4074:/ cond.else");
-               
-                MELT_LOCATION("warmelt-first.melt:4074:/ block");
-                /*block*/{
-                 /*_#I__L17*/ curfnum[7] = 
-                  ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));;
-                 MELT_LOCATION("warmelt-first.melt:4076:/ cond");
-                 /*cond*/ if (/*_#I__L17*/ curfnum[7]) /*then*/ {
-                 MELT_LOCATION("warmelt-first.melt:4076:/ cond.then");
-                 MELT_LOCATION("warmelt-first.melt:4076:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-first.melt:4077:/ block");
-                   /*block*/{
-                    /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-                    MELT_LOCATION("warmelt-first.melt:4077:/ finalreturn");
-                    ;
-                    /*finalret*/ goto labend_rout ;}
-                   ;
-                   /*_.IFELSE___V50*/ curfptr[16] = /*_.RETURN___V51*/ curfptr[23];;
-                   /*epilog*/
-                   MELT_LOCATION("warmelt-first.melt:4076:/ clear");
-                   /*clear*/ /*_.RETURN___V51*/ curfptr[23] = 0 ;}
-                  ;
-                 } else {MELT_LOCATION("warmelt-first.melt:4076:/ cond.else");
-                 
-                  MELT_LOCATION("warmelt-first.melt:4076:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-first.melt:4079:/ block");
-                   /*block*/{
-                    /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
-                    MELT_LOCATION("warmelt-first.melt:4079:/ finalreturn");
-                    ;
-                    /*finalret*/ goto labend_rout ;}
-                   ;
-                   MELT_LOCATION("warmelt-first.melt:4078:/ block");
-                   /*block*/{
-                    /*_.PROGN___V53*/ curfptr[30] = /*_.RETURN___V52*/ curfptr[14];;}
-                   ;
-                   /*_.IFELSE___V50*/ curfptr[16] = /*_.PROGN___V53*/ curfptr[30];;
-                   /*epilog*/
-                   MELT_LOCATION("warmelt-first.melt:4076:/ clear");
-                   /*clear*/ /*_.RETURN___V52*/ curfptr[14] = 0 ;
-                   MELT_LOCATION("warmelt-first.melt:4076:/ clear");
-                   /*clear*/ /*_.PROGN___V53*/ curfptr[30] = 0 ;}
-                  ;
-                  }
-                 ;
-                 /*_.IFELSE___V48*/ curfptr[24] = /*_.IFELSE___V50*/ curfptr[16];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-first.melt:4074:/ clear");
-                 /*clear*/ /*_#I__L17*/ curfnum[7] = 0 ;
-                 MELT_LOCATION("warmelt-first.melt:4074:/ clear");
-                 /*clear*/ /*_.IFELSE___V50*/ curfptr[16] = 0 ;}
-                ;
-                }
-               ;
-               /*_.IFELSE___V46*/ curfptr[26] = /*_.IFELSE___V48*/ curfptr[24];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-first.melt:4072:/ clear");
-               /*clear*/ /*_#I__L16*/ curfnum[10] = 0 ;
-               MELT_LOCATION("warmelt-first.melt:4072:/ clear");
-               /*clear*/ /*_.IFELSE___V48*/ curfptr[24] = 0 ;}
-              ;
-              }
-             ;
-             /*_.IFELSE___V44*/ curfptr[29] = /*_.IFELSE___V46*/ curfptr[26];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:4070:/ clear");
-             /*clear*/ /*_#STRING___L15*/ curfnum[9] = 0 ;
-             MELT_LOCATION("warmelt-first.melt:4070:/ clear");
-             /*clear*/ /*_.IFELSE___V46*/ curfptr[26] = 0 ;}
-            ;
-            }
-           ;
-           /*_.LET___V41*/ curfptr[37] = /*_.IFELSE___V44*/ curfptr[29];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-first.melt:4067:/ clear");
-           /*clear*/ /*_.N1__V42*/ curfptr[31] = 0 ;
-           MELT_LOCATION("warmelt-first.melt:4067:/ clear");
-           /*clear*/ /*_.N2__V43*/ curfptr[28] = 0 ;
-           MELT_LOCATION("warmelt-first.melt:4067:/ clear");
-           /*clear*/ /*_#STRING___L14*/ curfnum[8] = 0 ;
-           MELT_LOCATION("warmelt-first.melt:4067:/ clear");
-           /*clear*/ /*_.IFELSE___V44*/ curfptr[29] = 0 ;}
-          ;
-          /*_.IFELSE___V40*/ curfptr[35] = /*_.LET___V41*/ curfptr[37];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:4066:/ clear");
-          /*clear*/ /*_.LET___V41*/ curfptr[37] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-first.melt:4066:/ cond.else");
-        
-         MELT_LOCATION("warmelt-first.melt:4066:/ block");
-         /*block*/{
-          /*_#IS_A__L18*/ curfnum[6] = 
-           melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])));;
-          MELT_LOCATION("warmelt-first.melt:4082:/ cond");
-          /*cond*/ if (/*_#IS_A__L18*/ curfnum[6]) /*then*/ {
-          MELT_LOCATION("warmelt-first.melt:4082:/ cond.then");
-          MELT_LOCATION("warmelt-first.melt:4082:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-first.melt:4083:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-first.melt:4083:/ getslot");
-             { melt_ptr_t slot=0;
-              melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 0, "BINDER");/*_.BSY1__V56*/ curfptr[23] = slot; };
-             ;
-             MELT_LOCATION("warmelt-first.melt:4084:/ getslot");
-             { melt_ptr_t slot=0;
-              melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 0, "BINDER");/*_.BSY2__V57*/ curfptr[14] = slot; };
-             ;
-             MELT_LOCATION("warmelt-first.melt:4085:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[6];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-first.melt:4085:/ apply.arg");
-              argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BXRK1__V3*/ curfptr[2];
-              MELT_LOCATION("warmelt-first.melt:4085:/ apply.arg");
-              argtab[1].bp_aptr = (melt_ptr_t*) &/*_.BSY2__V57*/ curfptr[14];
-              MELT_LOCATION("warmelt-first.melt:4085:/ apply.arg");
-              argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BXRK2__V5*/ curfptr[4];
-              MELT_LOCATION("warmelt-first.melt:4085:/ apply.arg");
-              argtab[3].bp_aptr = (melt_ptr_t*) &/*_.VLESS__V6*/ curfptr[5];
-              MELT_LOCATION("warmelt-first.melt:4085:/ apply.arg");
-              argtab[4].bp_aptr = (melt_ptr_t*) &/*_.VEQ__V7*/ curfptr[6];
-              MELT_LOCATION("warmelt-first.melt:4085:/ apply.arg");
-              argtab[5].bp_aptr = (melt_ptr_t*) &/*_.VGREAT__V8*/ curfptr[7];
-              /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BSY1__V56*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             MELT_LOCATION("warmelt-first.melt:4085:/ block");
-             /*block*/{
-              /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30];;
-              MELT_LOCATION("warmelt-first.melt:4085:/ finalreturn");
-              ;
-              /*finalret*/ goto labend_rout ;}
-             ;
-             /*_.LET___V55*/ curfptr[15] = /*_.RETURN___V59*/ curfptr[16];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-first.melt:4083:/ clear");
-             /*clear*/ /*_.BSY1__V56*/ curfptr[23] = 0 ;
-             MELT_LOCATION("warmelt-first.melt:4083:/ clear");
-             /*clear*/ /*_.BSY2__V57*/ curfptr[14] = 0 ;
-             MELT_LOCATION("warmelt-first.melt:4083:/ clear");
-             /*clear*/ /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30] = 0 ;
-             MELT_LOCATION("warmelt-first.melt:4083:/ clear");
-             /*clear*/ /*_.RETURN___V59*/ curfptr[16] = 0 ;}
-            ;
-            /*_.IFELSE___V54*/ curfptr[33] = /*_.LET___V55*/ curfptr[15];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-first.melt:4082:/ clear");
-            /*clear*/ /*_.LET___V55*/ curfptr[15] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-first.melt:4082:/ cond.else");
-          
-           MELT_LOCATION("warmelt-first.melt:4082:/ block");
-           /*block*/{
-            /*_#IS_STRING__L19*/ curfnum[7] = 
-             (melt_magic_discr((melt_ptr_t)(/*_.X1__V2*/ curfptr[1])) == OBMAG_STRING);;
-            MELT_LOCATION("warmelt-first.melt:4086:/ cond");
-            /*cond*/ if (/*_#IS_STRING__L19*/ curfnum[7]) /*then*/ {
-            MELT_LOCATION("warmelt-first.melt:4086:/ cond.then");
-            MELT_LOCATION("warmelt-first.melt:4086:/ block");
-             /*block*/{
-              /*_#STRING___L20*/ curfnum[10] = 
-               melt_string_less((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)(/*_.X2__V4*/ curfptr[3]));;
-              MELT_LOCATION("warmelt-first.melt:4087:/ cond");
-              /*cond*/ if (/*_#STRING___L20*/ curfnum[10]) /*then*/ {
-              MELT_LOCATION("warmelt-first.melt:4087:/ cond.then");
-              MELT_LOCATION("warmelt-first.melt:4087:/ block");
-               /*block*/{
-                MELT_LOCATION("warmelt-first.melt:4088:/ block");
-                /*block*/{
-                 /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-                 MELT_LOCATION("warmelt-first.melt:4088:/ finalreturn");
-                 ;
-                 /*finalret*/ goto labend_rout ;}
-                ;
-                /*_.IFELSE___V61*/ curfptr[26] = /*_.RETURN___V62*/ curfptr[31];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:4087:/ clear");
-                /*clear*/ /*_.RETURN___V62*/ curfptr[31] = 0 ;}
-               ;
-              } else {MELT_LOCATION("warmelt-first.melt:4087:/ cond.else");
-              
-               MELT_LOCATION("warmelt-first.melt:4087:/ block");
-               /*block*/{
-                /*_#STRING___L21*/ curfnum[9] = 
-                 melt_string_less((melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), (melt_ptr_t)(/*_.X1__V2*/ curfptr[1]));;
-                MELT_LOCATION("warmelt-first.melt:4089:/ cond");
-                /*cond*/ if (/*_#STRING___L21*/ curfnum[9]) /*then*/ {
-                MELT_LOCATION("warmelt-first.melt:4089:/ cond.then");
-                MELT_LOCATION("warmelt-first.melt:4089:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-first.melt:4090:/ block");
-                  /*block*/{
-                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-                   MELT_LOCATION("warmelt-first.melt:4090:/ finalreturn");
-                   ;
-                   /*finalret*/ goto labend_rout ;}
-                  ;
-                  /*_.IFELSE___V63*/ curfptr[28] = /*_.RETURN___V64*/ curfptr[29];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:4089:/ clear");
-                  /*clear*/ /*_.RETURN___V64*/ curfptr[29] = 0 ;}
-                 ;
-                } else {MELT_LOCATION("warmelt-first.melt:4089:/ cond.else");
-                
-                 MELT_LOCATION("warmelt-first.melt:4089:/ block");
-                 /*block*/{
-                  /*_#I__L22*/ curfnum[8] = 
-                   ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));;
-                  MELT_LOCATION("warmelt-first.melt:4091:/ cond");
-                  /*cond*/ if (/*_#I__L22*/ curfnum[8]) /*then*/ {
-                  MELT_LOCATION("warmelt-first.melt:4091:/ cond.then");
-                  MELT_LOCATION("warmelt-first.melt:4091:/ block");
-                   /*block*/{
-                    MELT_LOCATION("warmelt-first.melt:4092:/ block");
-                    /*block*/{
-                     /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-                     MELT_LOCATION("warmelt-first.melt:4092:/ finalreturn");
-                     ;
-                     /*finalret*/ goto labend_rout ;}
-                    ;
-                    /*_.IFELSE___V65*/ curfptr[37] = /*_.RETURN___V66*/ curfptr[23];;
-                    /*epilog*/
-                    MELT_LOCATION("warmelt-first.melt:4091:/ clear");
-                    /*clear*/ /*_.RETURN___V66*/ curfptr[23] = 0 ;}
-                   ;
-                  } else {MELT_LOCATION("warmelt-first.melt:4091:/ cond.else");
-                  
-                   MELT_LOCATION("warmelt-first.melt:4091:/ block");
-                   /*block*/{
-                    /*_#I__L23*/ curfnum[22] = 
-                     ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));;
-                    MELT_LOCATION("warmelt-first.melt:4093:/ cond");
-                    /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ {
-                    MELT_LOCATION("warmelt-first.melt:4093:/ cond.then");
-                    MELT_LOCATION("warmelt-first.melt:4093:/ block");
-                     /*block*/{
-                      MELT_LOCATION("warmelt-first.melt:4094:/ block");
-                      /*block*/{
-                       /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-                       MELT_LOCATION("warmelt-first.melt:4094:/ finalreturn");
-                       ;
-                       /*finalret*/ goto labend_rout ;}
-                      ;
-                      /*_.IFELSE___V67*/ curfptr[14] = /*_.RETURN___V68*/ curfptr[30];;
-                      /*epilog*/
-                      MELT_LOCATION("warmelt-first.melt:4093:/ clear");
-                      /*clear*/ /*_.RETURN___V68*/ curfptr[30] = 0 ;}
-                     ;
-                    } else {MELT_LOCATION("warmelt-first.melt:4093:/ cond.else");
-                    
-                     MELT_LOCATION("warmelt-first.melt:4093:/ block");
-                     /*block*/{
-                      MELT_LOCATION("warmelt-first.melt:4096:/ block");
-                      /*block*/{
-                       /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
-                       MELT_LOCATION("warmelt-first.melt:4096:/ finalreturn");
-                       ;
-                       /*finalret*/ goto labend_rout ;}
-                      ;
-                      MELT_LOCATION("warmelt-first.melt:4095:/ block");
-                      /*block*/{
-                       /*_.PROGN___V70*/ curfptr[15] = /*_.RETURN___V69*/ curfptr[16];;}
-                      ;
-                      /*_.IFELSE___V67*/ curfptr[14] = /*_.PROGN___V70*/ curfptr[15];;
-                      /*epilog*/
-                      MELT_LOCATION("warmelt-first.melt:4093:/ clear");
-                      /*clear*/ /*_.RETURN___V69*/ curfptr[16] = 0 ;
-                      MELT_LOCATION("warmelt-first.melt:4093:/ clear");
-                      /*clear*/ /*_.PROGN___V70*/ curfptr[15] = 0 ;}
-                     ;
-                     }
-                    ;
-                    /*_.IFELSE___V65*/ curfptr[37] = /*_.IFELSE___V67*/ curfptr[14];;
-                    /*epilog*/
-                    MELT_LOCATION("warmelt-first.melt:4091:/ clear");
-                    /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
-                    MELT_LOCATION("warmelt-first.melt:4091:/ clear");
-                    /*clear*/ /*_.IFELSE___V67*/ curfptr[14] = 0 ;}
-                   ;
-                   }
-                  ;
-                  /*_.IFELSE___V63*/ curfptr[28] = /*_.IFELSE___V65*/ curfptr[37];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:4089:/ clear");
-                  /*clear*/ /*_#I__L22*/ curfnum[8] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:4089:/ clear");
-                  /*clear*/ /*_.IFELSE___V65*/ curfptr[37] = 0 ;}
-                 ;
-                 }
-                ;
-                /*_.IFELSE___V61*/ curfptr[26] = /*_.IFELSE___V63*/ curfptr[28];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:4087:/ clear");
-                /*clear*/ /*_#STRING___L21*/ curfnum[9] = 0 ;
-                MELT_LOCATION("warmelt-first.melt:4087:/ clear");
-                /*clear*/ /*_.IFELSE___V63*/ curfptr[28] = 0 ;}
-               ;
-               }
-              ;
-              /*_.IFELSE___V60*/ curfptr[24] = /*_.IFELSE___V61*/ curfptr[26];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-first.melt:4086:/ clear");
-              /*clear*/ /*_#STRING___L20*/ curfnum[10] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4086:/ clear");
-              /*clear*/ /*_.IFELSE___V61*/ curfptr[26] = 0 ;}
-             ;
-            } else {MELT_LOCATION("warmelt-first.melt:4086:/ cond.else");
-            
-             MELT_LOCATION("warmelt-first.melt:4086:/ block");
-             /*block*/{
-              /*_#I__L24*/ curfnum[22] = 
-               ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));;
-              MELT_LOCATION("warmelt-first.melt:4097:/ cond");
-              /*cond*/ if (/*_#I__L24*/ curfnum[22]) /*then*/ {
-              MELT_LOCATION("warmelt-first.melt:4097:/ cond.then");
-              MELT_LOCATION("warmelt-first.melt:4097:/ block");
-               /*block*/{
-                MELT_LOCATION("warmelt-first.melt:4098:/ block");
-                /*block*/{
-                 /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];;
-                 MELT_LOCATION("warmelt-first.melt:4098:/ finalreturn");
-                 ;
-                 /*finalret*/ goto labend_rout ;}
-                ;
-                /*_.IFELSE___V71*/ curfptr[31] = /*_.RETURN___V72*/ curfptr[29];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:4097:/ clear");
-                /*clear*/ /*_.RETURN___V72*/ curfptr[29] = 0 ;}
-               ;
-              } else {MELT_LOCATION("warmelt-first.melt:4097:/ cond.else");
-              
-               MELT_LOCATION("warmelt-first.melt:4097:/ block");
-               /*block*/{
-                /*_#I__L25*/ curfnum[8] = 
-                 ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));;
-                MELT_LOCATION("warmelt-first.melt:4099:/ cond");
-                /*cond*/ if (/*_#I__L25*/ curfnum[8]) /*then*/ {
-                MELT_LOCATION("warmelt-first.melt:4099:/ cond.then");
-                MELT_LOCATION("warmelt-first.melt:4099:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-first.melt:4100:/ block");
-                  /*block*/{
-                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];;
-                   MELT_LOCATION("warmelt-first.melt:4100:/ finalreturn");
-                   ;
-                   /*finalret*/ goto labend_rout ;}
-                  ;
-                  /*_.IFELSE___V73*/ curfptr[23] = /*_.RETURN___V74*/ curfptr[30];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:4099:/ clear");
-                  /*clear*/ /*_.RETURN___V74*/ curfptr[30] = 0 ;}
-                 ;
-                } else {MELT_LOCATION("warmelt-first.melt:4099:/ cond.else");
-                
-                 MELT_LOCATION("warmelt-first.melt:4099:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-first.melt:4102:/ block");
-                  /*block*/{
-                   /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];;
-                   MELT_LOCATION("warmelt-first.melt:4102:/ finalreturn");
-                   ;
-                   /*finalret*/ goto labend_rout ;}
-                  ;
-                  MELT_LOCATION("warmelt-first.melt:4101:/ block");
-                  /*block*/{
-                   /*_.PROGN___V76*/ curfptr[15] = /*_.RETURN___V75*/ curfptr[16];;}
-                  ;
-                  /*_.IFELSE___V73*/ curfptr[23] = /*_.PROGN___V76*/ curfptr[15];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-first.melt:4099:/ clear");
-                  /*clear*/ /*_.RETURN___V75*/ curfptr[16] = 0 ;
-                  MELT_LOCATION("warmelt-first.melt:4099:/ clear");
-                  /*clear*/ /*_.PROGN___V76*/ curfptr[15] = 0 ;}
-                 ;
-                 }
-                ;
-                /*_.IFELSE___V71*/ curfptr[31] = /*_.IFELSE___V73*/ curfptr[23];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-first.melt:4097:/ clear");
-                /*clear*/ /*_#I__L25*/ curfnum[8] = 0 ;
-                MELT_LOCATION("warmelt-first.melt:4097:/ clear");
-                /*clear*/ /*_.IFELSE___V73*/ curfptr[23] = 0 ;}
-               ;
-               }
-              ;
-              /*_.IFELSE___V60*/ curfptr[24] = /*_.IFELSE___V71*/ curfptr[31];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-first.melt:4086:/ clear");
-              /*clear*/ /*_#I__L24*/ curfnum[22] = 0 ;
-              MELT_LOCATION("warmelt-first.melt:4086:/ clear");
-              /*clear*/ /*_.IFELSE___V71*/ curfptr[31] = 0 ;}
-             ;
-             }
-            ;
-            /*_.IFELSE___V54*/ curfptr[33] = /*_.IFELSE___V60*/ curfptr[24];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-first.melt:4082:/ clear");
-            /*clear*/ /*_#IS_STRING__L19*/ curfnum[7] = 0 ;
-            MELT_LOCATION("warmelt-first.melt:4082:/ clear");
-            /*clear*/ /*_.IFELSE___V60*/ curfptr[24] = 0 ;}
-           ;
-           }
-          ;
-          /*_.IFELSE___V40*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[33];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-first.melt:4066:/ clear");
-          /*clear*/ /*_#IS_A__L18*/ curfnum[6] = 0 ;
-          MELT_LOCATION("warmelt-first.melt:4066:/ clear");
-          /*clear*/ /*_.IFELSE___V54*/ curfptr[33] = 0 ;}
-         ;
-         }
-        ;
-        /*_.IFELSE___V20*/ curfptr[17] = /*_.IFELSE___V40*/ curfptr[35];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4042:/ clear");
-        /*clear*/ /*_#IS_A__L13*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:4042:/ clear");
-        /*clear*/ /*_.IFELSE___V40*/ curfptr[35] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V20*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4036:/ clear");
-      /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4036:/ clear");
-      /*clear*/ /*_.IFELSE___V20*/ curfptr[17] = 0 ;}
-     ;
-     }
-    ;
-    /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4031:/ clear");
-    /*clear*/ /*_.X1DIS__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4031:/ clear");
-    /*clear*/ /*_.X2DIS__V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4031:/ clear");
-    /*clear*/ /*_#RK1__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4031:/ clear");
-    /*clear*/ /*_#RK2__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4031:/ clear");
-    /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4031:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   ;
-   /*_.IFELSE___V9*/ curfptr[8] = /*_.LET___V11*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4029:/ clear");
-   /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4028:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V9*/ curfptr[8];;
-  MELT_LOCATION("warmelt-first.melt:4028:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4028:/ clear");
- /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4028:/ clear");
- /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPARE_OBJ_RANKED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_77_warmelt_first_COMPARE_OBJ_RANKED*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_MAPOBJECT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4108:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4108:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4108:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4108:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4109:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4109:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4109:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4109:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4109:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4109:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4109:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4109)?(4109):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4109:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4109:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4109:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4110:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4111:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4111:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4111:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4111:/ cond.else");
-  
-   /*_.OUT__V7*/ curfptr[6] = NULL;;
-   }
-  ;
-  /*_#MAPCOUNT__L3*/ curfnum[1] = 
-   (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4114:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4114:/ block");
-   /*block*/{
-    /*_#IS_OUT__L4*/ curfnum[3] = 
-      (melt_is_out ((melt_ptr_t) /*_.OUT__V7*/ curfptr[6])) ;;
-    MELT_LOCATION("warmelt-first.melt:4114:/ cond");
-    /*cond*/ if (/*_#IS_OUT__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4114:/ cond.then");
-    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:4114:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4114:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4114:/ locexp");
-       melt_assert_failed(( "check out at start"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4114)?(4114):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4114:/ clear");
-    /*clear*/ /*_#IS_OUT__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4114:/ clear");
-    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4114:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#__L5*/ curfnum[3] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:4115:/ cond");
-  /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4115:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4115:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4116:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " {"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4115:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:4115:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4118:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4119:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4119:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4120:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "{"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4117:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4115:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4121:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 
-   (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4122:/ locexp");
-  meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#MAPOBJECT_COUNT__L6*/ curfnum[5]));}
-  ;
-  /*_#I__L7*/ curfnum[6] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
-  MELT_LOCATION("warmelt-first.melt:4123:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[8] = slot; };
-  ;
-  /*_#GET_INT__L8*/ curfnum[7] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[8])));;
-  /*_#NEED_DBGLIM__L9*/ curfnum[8] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#I__L7*/ curfnum[6])>=0 && (/*_#I__L7*/ curfnum[6]) < (/*_#GET_INT__L8*/ curfnum[7]));;
-  MELT_LOCATION("warmelt-first.melt:4123:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L9*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4123:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4123:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4124:/ block");
-    /*block*/{
-     /*_#I__L10*/ curfnum[9] = 
-      ((2) + (/*_#DEPTH__L1*/ curfnum[0]));;
-     /*_.NEXTDEPTHBOX__V12*/ curfptr[11] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L10*/ curfnum[9])));;
-     /*_.COUNTBOX__V13*/ curfptr[12] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (0)));;
-     /*_.BOXEDONE__V14*/ curfptr[13] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (1)));;
-     /*_.BOXEDZERO__V15*/ curfptr[14] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (0)));;
-     /*_.BOXEDMINUSONE__V16*/ curfptr[15] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (-1)));;
-     /*_.TUPL__V17*/ curfptr[16] = 
-      (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#MAPCOUNT__L3*/ curfnum[1])));;
-     MELT_LOCATION("warmelt-first.melt:4135:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4135:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
-      ;
-      MELT_LOCATION("warmelt-first.melt:4135:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V13*/ curfptr[12]);
-      ;
-      MELT_LOCATION("warmelt-first.melt:4135:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16]);
-      ;
-      /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4133:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4133:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17];
-      /*_.MAPOBJECT_EVERY__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-first.melt:4144:/ cppif.then");
-     MELT_LOCATION("warmelt-first.melt:4144:/ block");
-      /*block*/{
-       /*_#IS_MULTIPLE__L11*/ curfnum[10] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16])) == OBMAG_MULTIPLE);;
-       MELT_LOCATION("warmelt-first.melt:4144:/ cond");
-       /*cond*/ if (/*_#IS_MULTIPLE__L11*/ curfnum[10]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:4144:/ cond.then");
-       /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-first.melt:4144:/ cond.else");
-       
-        MELT_LOCATION("warmelt-first.melt:4144:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:4144:/ locexp");
-          melt_assert_failed(( "check tupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4144)?(4144):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V21*/ curfptr[20] = /*_.IFELSE___V22*/ curfptr[21];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4144:/ clear");
-       /*clear*/ /*_#IS_MULTIPLE__L11*/ curfnum[10] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4144:/ clear");
-       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-first.melt:4144:/ cppif.else");
-     /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-first.melt:4146:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4149:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4149:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3));
-       ;
-       MELT_LOCATION("warmelt-first.melt:4149:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V16*/ curfptr[15]);
-       ;
-       MELT_LOCATION("warmelt-first.melt:4149:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V15*/ curfptr[14]);
-       ;
-       MELT_LOCATION("warmelt-first.melt:4149:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V14*/ curfptr[13]);
-       ;
-       /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;}
-      ;
-      /*_.SORTUPL__V26*/ curfptr[25] = 
-       meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16]), (melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])));;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-first.melt:4162:/ cppif.then");
-      MELT_LOCATION("warmelt-first.melt:4162:/ block");
-       /*block*/{
-        /*_#IS_MULTIPLE__L12*/ curfnum[10] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V26*/ curfptr[25])) == OBMAG_MULTIPLE);;
-        MELT_LOCATION("warmelt-first.melt:4162:/ cond");
-        /*cond*/ if (/*_#IS_MULTIPLE__L12*/ curfnum[10]) /*then*/ {
-        MELT_LOCATION("warmelt-first.melt:4162:/ cond.then");
-        /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-first.melt:4162:/ cond.else");
-        
-         MELT_LOCATION("warmelt-first.melt:4162:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-first.melt:4162:/ locexp");
-           melt_assert_failed(( "check sortupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4162)?(4162):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4162:/ clear");
-        /*clear*/ /*_#IS_MULTIPLE__L12*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-first.melt:4162:/ clear");
-        /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-first.melt:4162:/ cppif.else");
-      /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-first.melt:4165:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4165:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (3));
-       ;
-       MELT_LOCATION("warmelt-first.melt:4165:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V12*/ curfptr[11]);
-       ;
-       MELT_LOCATION("warmelt-first.melt:4165:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]);
-       ;
-       MELT_LOCATION("warmelt-first.melt:4165:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]);
-       ;
-       /*_.LAMBDA___V29*/ curfptr[27] = /*_.LAMBDA___V30*/ curfptr[29];;}
-      ;
-      MELT_LOCATION("warmelt-first.melt:4163:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:4163:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[27];
-       /*_.MULTIPLE_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.SORTUPL__V26*/ curfptr[25]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.LET___V23*/ curfptr[21] = /*_.MULTIPLE_EVERY__V31*/ curfptr[30];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4146:/ clear");
-      /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4146:/ clear");
-      /*clear*/ /*_.SORTUPL__V26*/ curfptr[25] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4146:/ clear");
-      /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4146:/ clear");
-      /*clear*/ /*_.LAMBDA___V29*/ curfptr[27] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4146:/ clear");
-      /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4183:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "}"));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.NEXTDEPTHBOX__V12*/ curfptr[11] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.COUNTBOX__V13*/ curfptr[12] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.BOXEDONE__V14*/ curfptr[13] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.BOXEDZERO__V15*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.BOXEDMINUSONE__V16*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.TUPL__V17*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.MAPOBJECT_EVERY__V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4124:/ clear");
-     /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_#MAPCOUNT__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4110:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L9*/ curfnum[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4108:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_MAPOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_79_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4135:/ getarg");
- /*_.AT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4135:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.VA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4135:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4136:/ block");
- /*block*/{
-  /*_#CURCOUNT__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
-  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));;
-  /*_.ENT__V5*/ curfptr[4] = 
-   (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.AT__V2*/ curfptr[1]),  (melt_ptr_t)(/*_.VA__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4141:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));}
-  ;
-  /*_#I__L2*/ curfnum[1] = 
-   ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4142:/ locexp");
-  melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4136:/ clear");
-  /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4136:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4136:/ clear");
-  /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4136:/ clear");
-  /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_79_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_80_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4149:/ getarg");
- /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4149:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4149:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4150:/ block");
- /*block*/{
-  /*_.E1AT__V5*/ curfptr[4] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));;
-  /*_.E1VA__V6*/ curfptr[5] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));;
-  /*_.E1RK__V7*/ curfptr[6] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));;
-  /*_.E2AT__V8*/ curfptr[7] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));;
-  /*_.E2VA__V9*/ curfptr[8] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));;
-  /*_.E2RK__V10*/ curfptr[9] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));;
-  MELT_LOCATION("warmelt-first.melt:4157:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[6];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4157:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6];
-   MELT_LOCATION("warmelt-first.melt:4157:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7];
-   MELT_LOCATION("warmelt-first.melt:4157:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9];
-   MELT_LOCATION("warmelt-first.melt:4157:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-first.melt:4157:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-first.melt:4157:/ apply.arg");
-   argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]);
-   /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4150:/ clear");
-  /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4149:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:4149:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4149:/ clear");
- /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_80_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_81_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4165:/ getarg");
- /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4165:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4165:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4166:/ block");
- /*block*/{
-  /*_.ELAT__V3*/ curfptr[2] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));;
-  /*_.ELVA__V4*/ curfptr[3] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (1)));;
-  MELT_LOCATION("warmelt-first.melt:4168:/ block");
-  /*block*/{
-   /*_#NEXTDEPTH__L2*/ curfnum[1] = 
-    (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ curfclos->tabval[0]))));;
-   MELT_LOCATION("warmelt-first.melt:4169:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V5*/ curfptr[4] = slot; };
-   ;
-   /*_#OLDMAXDEPTH__L3*/ curfnum[2] = 
-    (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V5*/ curfptr[4])));;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4172:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4172:/ block");
-    /*block*/{
-     /*_#IS_OUT__L4*/ curfnum[3] = 
-       (melt_is_out ((melt_ptr_t) (/*~OUT*/ curfclos->tabval[2]))) ;;
-     MELT_LOCATION("warmelt-first.melt:4172:/ cond");
-     /*cond*/ if (/*_#IS_OUT__L4*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4172:/ cond.then");
-     /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-first.melt:4172:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4172:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4172:/ locexp");
-        melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4172)?(4172):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4172:/ clear");
-     /*clear*/ /*_#IS_OUT__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4172:/ clear");
-     /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4172:/ cppif.else");
-   /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4173:/ locexp");
-   meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4174:/ locexp");
-   meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( "**"));}
-   ;
-   MELT_LOCATION("warmelt-first.melt:4175:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V8*/ curfptr[6] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4175:/ locexp");
-   melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V8*/ curfptr[6]), (0));}
-   ;
-   MELT_LOCATION("warmelt-first.melt:4176:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4176:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[1]);
-    MELT_LOCATION("warmelt-first.melt:4176:/ apply.arg");
-    argtab[1].bp_long = /*_#NEXTDEPTH__L2*/ curfnum[1];
-    /*_.DBG_OUTOBJECT__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ELAT__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-first.melt:4177:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4177:/ locexp");
-   melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[9]), (/*_#OLDMAXDEPTH__L3*/ curfnum[2]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4178:/ locexp");
-   meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( " =="));}
-   ;
-   /*_#I__L5*/ curfnum[3] = 
-    ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (1));;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4179:/ locexp");
-   meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), (/*_#I__L5*/ curfnum[3]), 64);}
-   ;
-   /*_#I__L6*/ curfnum[5] = 
-    ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (2));;
-   MELT_LOCATION("warmelt-first.melt:4180:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4180:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[1]);
-    MELT_LOCATION("warmelt-first.melt:4180:/ apply.arg");
-    argtab[1].bp_long = /*_#I__L6*/ curfnum[5];
-    /*_.DBG_OUT__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ELVA__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4181:/ locexp");
-   meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( "; "));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_#NEXTDEPTH__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_.DBGI_MAXDEPTH__V5*/ curfptr[4] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_#OLDMAXDEPTH__L3*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_.DBGI_MAXDEPTH__V8*/ curfptr[6] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_.DBG_OUTOBJECT__V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_#I__L5*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4168:/ clear");
-   /*clear*/ /*_.DBG_OUT__V11*/ curfptr[10] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4166:/ clear");
-  /*clear*/ /*_.ELAT__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4166:/ clear");
-  /*clear*/ /*_.ELVA__V4*/ curfptr[3] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_81_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4189:/ getarg");
- /*_.MAPO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4189:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4192:/ block");
- /*block*/{
-  /*_#MAPCOUNT__L1*/ curfnum[0] = 
-   (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MAPO__V2*/ curfptr[1])));;
-  /*_.COUNTBOX__V4*/ curfptr[3] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (0)));;
-  /*_.BOXEDONE__V5*/ curfptr[4] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (1)));;
-  /*_.BOXEDZERO__V6*/ curfptr[5] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (0)));;
-  /*_.BOXEDMINUSONE__V7*/ curfptr[6] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (-1)));;
-  /*_.TUPL__V8*/ curfptr[7] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])), (/*_#MAPCOUNT__L1*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-first.melt:4203:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4203:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2));
-   ;
-   MELT_LOCATION("warmelt-first.melt:4203:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:4203:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V8*/ curfptr[7]);
-   ;
-   /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4201:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4201:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8];
-   /*_.MAPOBJECT_EVERY__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MAPO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:4213:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4216:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4216:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
-    ;
-    MELT_LOCATION("warmelt-first.melt:4216:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V7*/ curfptr[6]);
-    ;
-    MELT_LOCATION("warmelt-first.melt:4216:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V6*/ curfptr[5]);
-    ;
-    MELT_LOCATION("warmelt-first.melt:4216:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V5*/ curfptr[4]);
-    ;
-    /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
-   ;
-   /*_.SORTUPL__V15*/ curfptr[14] = 
-    meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V8*/ curfptr[7]), (melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4229:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4229:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (0));
-    ;
-    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-   ;
-   MELT_LOCATION("warmelt-first.melt:4229:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4229:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-    /*_.MULTIPLE_MAP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SORTUPL__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LET___V12*/ curfptr[11] = /*_.MULTIPLE_MAP__V18*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4213:/ clear");
-   /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4213:/ clear");
-   /*clear*/ /*_.SORTUPL__V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4213:/ clear");
-   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4213:/ clear");
-   /*clear*/ /*_.MULTIPLE_MAP__V18*/ curfptr[17] = 0 ;}
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.LET___V12*/ curfptr[11];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_#MAPCOUNT__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.COUNTBOX__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.BOXEDONE__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.BOXEDZERO__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.BOXEDMINUSONE__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.TUPL__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.MAPOBJECT_EVERY__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4192:/ clear");
-  /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4189:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:4189:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4189:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_83_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4203:/ getarg");
- /*_.AT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4203:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.VA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4203:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4204:/ block");
- /*block*/{
-  /*_#CURCOUNT__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
-  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));;
-  /*_.ENT__V5*/ curfptr[4] = 
-   (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.AT__V2*/ curfptr[1]),  (melt_ptr_t)(/*_.VA__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4209:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));}
-  ;
-  /*_#I__L2*/ curfnum[1] = 
-   ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4210:/ locexp");
-  melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4204:/ clear");
-  /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4204:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4204:/ clear");
-  /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4204:/ clear");
-  /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_83_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_84_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4216:/ getarg");
- /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4216:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4216:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4217:/ block");
- /*block*/{
-  /*_.E1AT__V5*/ curfptr[4] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));;
-  /*_.E1VA__V6*/ curfptr[5] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));;
-  /*_.E1RK__V7*/ curfptr[6] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));;
-  /*_.E2AT__V8*/ curfptr[7] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));;
-  /*_.E2VA__V9*/ curfptr[8] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));;
-  /*_.E2RK__V10*/ curfptr[9] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));;
-  MELT_LOCATION("warmelt-first.melt:4224:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[6];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6];
-   MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7];
-   MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9];
-   MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg");
-   argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]);
-   /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4217:/ clear");
-  /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4216:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:4216:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4216:/ clear");
- /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_84_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_85_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4229:/ getarg");
- /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4229:/ block");
-/*block*/{
- /*_.MULTIPLE_NTH__V3*/ curfptr[2] = 
-  (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));;
- MELT_LOCATION("warmelt-first.melt:4229:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_NTH__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:4229:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4229:/ clear");
- /*clear*/ /*_.MULTIPLE_NTH__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_85_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 28
-  void* varptr[28];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<28; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 28;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_MAPSTRING_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4237:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4237:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4237:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4237:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4238:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4238:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4238:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4238:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4238:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4238:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4238:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4238)?(4238):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4238:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4238:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4238:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4239:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4240:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#IX__L3*/ curfnum[1] = 0;;
-  /*_#MAPCOUNT__L4*/ curfnum[3] = 
-   (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.SELF__V2*/ curfptr[1])));;
-  /*_#I__L5*/ curfnum[4] = 
-   ((2) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  /*_.NEXTDEPTHBOX__V8*/ curfptr[7] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L5*/ curfnum[4])));;
-  /*_.COUNTBOX__V9*/ curfptr[8] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));;
-  /*_.BOXEDONE__V10*/ curfptr[9] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (1)));;
-  /*_.BOXEDZERO__V11*/ curfptr[10] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));;
-  /*_.BOXEDMINUSONE__V12*/ curfptr[11] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (-1)));;
-  /*_.TUPL__V13*/ curfptr[12] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MAPCOUNT__L4*/ curfnum[3])));;
-  /*_#__L6*/ curfnum[5] = 
-   ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-first.melt:4250:/ cond");
-  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4250:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4250:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4251:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " <("));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4250:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:4250:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4253:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4254:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4254:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4255:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "<("));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4252:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4250:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4256:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4257:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#MAPCOUNT__L4*/ curfnum[3]));}
-  ;
-  /*_#I__L7*/ curfnum[6] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
-  /*_#NEED_DBG__L8*/ curfnum[7] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#I__L7*/ curfnum[6])>=0 && (/*_#I__L7*/ curfnum[6]) <= MELTDBG_MAXDEPTH);;
-  MELT_LOCATION("warmelt-first.melt:4258:/ cond");
-  /*cond*/ if (/*_#NEED_DBG__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4258:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4258:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4263:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4263:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
-     ;
-     MELT_LOCATION("warmelt-first.melt:4263:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V9*/ curfptr[8]);
-     ;
-     MELT_LOCATION("warmelt-first.melt:4263:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V13*/ curfptr[12]);
-     ;
-     /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4261:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4261:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-     /*_.MAPSTRING_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MAPSTRING_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-first.melt:4273:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4276:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4276:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3));
-      ;
-      MELT_LOCATION("warmelt-first.melt:4276:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V12*/ curfptr[11]);
-      ;
-      MELT_LOCATION("warmelt-first.melt:4276:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V11*/ curfptr[10]);
-      ;
-      MELT_LOCATION("warmelt-first.melt:4276:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V10*/ curfptr[9]);
-      ;
-      /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-     ;
-     /*_.SORTUPL__V22*/ curfptr[21] = 
-      meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V13*/ curfptr[12]), (melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-first.melt:4289:/ cppif.then");
-     MELT_LOCATION("warmelt-first.melt:4289:/ block");
-      /*block*/{
-       /*_#IS_MULTIPLE__L9*/ curfnum[8] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V22*/ curfptr[21])) == OBMAG_MULTIPLE);;
-       MELT_LOCATION("warmelt-first.melt:4289:/ cond");
-       /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:4289:/ cond.then");
-       /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-first.melt:4289:/ cond.else");
-       
-        MELT_LOCATION("warmelt-first.melt:4289:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:4289:/ locexp");
-          melt_assert_failed(( "check sortupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4289)?(4289):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4289:/ clear");
-       /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4289:/ clear");
-       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-first.melt:4289:/ cppif.else");
-     /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-first.melt:4292:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4292:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
-      ;
-      MELT_LOCATION("warmelt-first.melt:4292:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V8*/ curfptr[7]);
-      ;
-      MELT_LOCATION("warmelt-first.melt:4292:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]);
-      ;
-      MELT_LOCATION("warmelt-first.melt:4292:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]);
-      ;
-      /*_.LAMBDA___V25*/ curfptr[23] = /*_.LAMBDA___V26*/ curfptr[25];;}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4290:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4290:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[23];
-      /*_.MULTIPLE_EVERY__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.SORTUPL__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.LET___V19*/ curfptr[18] = /*_.MULTIPLE_EVERY__V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4273:/ clear");
-     /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4273:/ clear");
-     /*clear*/ /*_.SORTUPL__V22*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4273:/ clear");
-     /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4273:/ clear");
-     /*clear*/ /*_.LAMBDA___V25*/ curfptr[23] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4273:/ clear");
-     /*clear*/ /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4259:/ block");
-    /*block*/{
-     /*_.PROGN___V28*/ curfptr[19] = /*_.LET___V19*/ curfptr[18];;}
-    ;
-    /*_.IF___V15*/ curfptr[13] = /*_.PROGN___V28*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4258:/ clear");
-    /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4258:/ clear");
-    /*clear*/ /*_.MAPSTRING_EVERY__V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4258:/ clear");
-    /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4258:/ clear");
-    /*clear*/ /*_.PROGN___V28*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4258:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[13] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4306:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " )>"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_#IX__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_#MAPCOUNT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.NEXTDEPTHBOX__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.COUNTBOX__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.BOXEDONE__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.BOXEDZERO__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.BOXEDMINUSONE__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.TUPL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_#NEED_DBG__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4239:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[13] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4237:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_MAPSTRING_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_87_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4263:/ getarg");
- /*_.STR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4263:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4263:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4264:/ block");
- /*block*/{
-  /*_#CURCOUNT__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
-  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));;
-  /*_.ENT__V5*/ curfptr[4] = 
-   (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STR__V2*/ curfptr[1]),  (melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4269:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));}
-  ;
-  /*_#I__L2*/ curfnum[1] = 
-   ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4270:/ locexp");
-  melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4264:/ clear");
-  /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4264:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4264:/ clear");
-  /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4264:/ clear");
-  /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_87_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_88_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4276:/ getarg");
- /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4276:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4276:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4277:/ block");
- /*block*/{
-  /*_.E1AT__V5*/ curfptr[4] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));;
-  /*_.E1VA__V6*/ curfptr[5] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));;
-  /*_.E1RK__V7*/ curfptr[6] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));;
-  /*_.E2AT__V8*/ curfptr[7] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));;
-  /*_.E2VA__V9*/ curfptr[8] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));;
-  /*_.E2RK__V10*/ curfptr[9] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));;
-  MELT_LOCATION("warmelt-first.melt:4284:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[6];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4284:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6];
-   MELT_LOCATION("warmelt-first.melt:4284:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7];
-   MELT_LOCATION("warmelt-first.melt:4284:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9];
-   MELT_LOCATION("warmelt-first.melt:4284:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-first.melt:4284:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-first.melt:4284:/ apply.arg");
-   argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]);
-   /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4277:/ clear");
-  /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4276:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:4276:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4276:/ clear");
- /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_88_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_89_warmelt_first_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_first_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4292:/ getarg");
- /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4292:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4292:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4293:/ block");
- /*block*/{
-  /*_.CURSTR__V4*/ curfptr[3] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));;
-  /*_.CURVAL__V5*/ curfptr[4] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (1)));;
-  /*_#NEXTDEPTH__L2*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ curfclos->tabval[0]))));;
-  /*_#IS_STRING__L3*/ curfnum[2] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURSTR__V4*/ curfptr[3])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-first.melt:4297:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4297:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4297:/ block");
-   /*block*/{
-    /*_#NOTNULL__L5*/ curfnum[4] = 
-     ((/*_.CURVAL__V5*/ curfptr[4]) != NULL);;
-    /*_#IF___L4*/ curfnum[3] = /*_#NOTNULL__L5*/ curfnum[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4297:/ clear");
-    /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4297:/ cond.else");
-  
-   /*_#IF___L4*/ curfnum[3] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:4297:/ cond");
-  /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4297:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4297:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4299:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4300:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), ( "!*"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4301:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4301:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-first.melt:4301:/ apply.arg");
-     argtab[1].bp_long = /*_#NEXTDEPTH__L2*/ curfnum[1];
-     /*_.DBG_OUT__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTR__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4302:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), ( " => "));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4303:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 64);}
-    ;
-    /*_#I__L6*/ curfnum[4] = 
-     ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (2));;
-    MELT_LOCATION("warmelt-first.melt:4304:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4304:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-first.melt:4304:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L6*/ curfnum[4];
-     /*_.DBG_OUT__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVAL__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-first.melt:4298:/ block");
-    /*block*/{
-     /*_.PROGN___V9*/ curfptr[8] = /*_.DBG_OUT__V8*/ curfptr[7];;}
-    ;
-    /*_.IF___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4297:/ clear");
-    /*clear*/ /*_.DBG_OUT__V7*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4297:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4297:/ clear");
-    /*clear*/ /*_.DBG_OUT__V8*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4297:/ clear");
-    /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4297:/ cond.else");
-  
-   /*_.IF___V6*/ curfptr[5] = NULL;;
-   }
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.IF___V6*/ curfptr[5];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4293:/ clear");
-  /*clear*/ /*_.CURSTR__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4293:/ clear");
-  /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4293:/ clear");
-  /*clear*/ /*_#NEXTDEPTH__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4293:/ clear");
-  /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4293:/ clear");
-  /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4293:/ clear");
-  /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4292:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-first.melt:4292:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4292:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_89_warmelt_first_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_ANYOBJECT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4311:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4311:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4311:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4311:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4312:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4312:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4312:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4312:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4312:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4312:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4312:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4312)?(4312):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4312:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4312:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4312:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4313:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4314:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4315:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "|"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4316:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4316:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4317:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L3*/ curfnum[1] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4318:/ locexp");
-  meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OBJ_HASH__L3*/ curfnum[1]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4319:/ block");
-  /*block*/{
-   /*_#ONUM__L4*/ curfnum[3] = 
-    (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-   /*_#OSERIAL__L5*/ curfnum[4] = 
-    (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-   MELT_LOCATION("warmelt-first.melt:4322:/ cond");
-   /*cond*/ if (/*_#ONUM__L4*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4322:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4322:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4324:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4325:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#ONUM__L4*/ curfnum[3]));}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4323:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-first.melt:4326:/ cond");
-   /*cond*/ if (/*_#OSERIAL__L5*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4326:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4326:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4328:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "##"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4329:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OSERIAL__L5*/ curfnum[4]));}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4327:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4319:/ clear");
-   /*clear*/ /*_#ONUM__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4319:/ clear");
-   /*clear*/ /*_#OSERIAL__L5*/ curfnum[4] = 0 ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4331:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "{"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4332:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#GET_INT__L6*/ curfnum[3] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[8])));;
-  /*_#NEED_DBGLIM__L7*/ curfnum[4] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[3]));;
-  MELT_LOCATION("warmelt-first.melt:4332:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4332:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4332:/ block");
-   /*block*/{
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:4333:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4333:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:4333:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L8*/ curfnum[7];
-     MELT_LOCATION("warmelt-first.melt:4333:/ apply.arg");
-     argtab[2].bp_long = 0;
-     MELT_LOCATION("warmelt-first.melt:4333:/ apply.arg");
-     argtab[3].bp_long = 0;
-     /*_.DBGOUT_FIELDS__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V10*/ curfptr[9] = /*_.DBGOUT_FIELDS__V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4332:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4332:/ clear");
-    /*clear*/ /*_.DBGOUT_FIELDS__V11*/ curfptr[10] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4332:/ cond.else");
-  
-   /*_.IF___V10*/ curfptr[9] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4335:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "}"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4313:/ clear");
-  /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4311:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_ANYOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_ANYRECV_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4340:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4340:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4340:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4340:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4341:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4341:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4341:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4341:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4341:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4341:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4341:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4341)?(4341):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4341:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4341:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4341:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4342:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4343:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4344:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " ?."));}
-  ;
-  /*_#IS_A__L3*/ curfnum[1] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:4345:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4345:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4345:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4345:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4345:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4345:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4346:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".? "));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4342:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4342:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4342:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4340:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_ANYRECV_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_ANYOBJECT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4351:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4351:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4351:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4351:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4352:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4352:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4352:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4352:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4352:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4352:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4352:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4352)?(4352):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4352:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4352:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4352:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4353:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4354:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#ONUM__L3*/ curfnum[1] = 
-   (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  /*_#OSERIAL__L4*/ curfnum[3] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4358:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " ^^|"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4359:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4359:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4360:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L5*/ curfnum[4] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4361:/ locexp");
-  meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4362:/ cond");
-  /*cond*/ if (/*_#ONUM__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4362:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4362:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4364:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4365:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#ONUM__L3*/ curfnum[1]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4363:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-first.melt:4366:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4366:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4366:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4368:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4369:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[3]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4367:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4353:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4353:/ clear");
-  /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4353:/ clear");
-  /*clear*/ /*_#ONUM__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4353:/ clear");
-  /*clear*/ /*_#OSERIAL__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4353:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4353:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4351:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_ANYOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_NAMEDOBJECT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4375:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4375:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4375:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4375:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4376:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4376:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4376:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4376:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4376:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4376:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4376:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4376)?(4376):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4376:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4376:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4376:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4377:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4378:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4379:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4380:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 0, "PROP_TABLE");/*_.OPROP__V9*/ curfptr[8] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4382:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4382:/ block");
-   /*block*/{
-    /*_#IS_OUT__L3*/ curfnum[1] = 
-      (melt_is_out ((melt_ptr_t) /*_.OUT__V7*/ curfptr[6])) ;;
-    MELT_LOCATION("warmelt-first.melt:4382:/ cond");
-    /*cond*/ if (/*_#IS_OUT__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4382:/ cond.then");
-    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:4382:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4382:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4382:/ locexp");
-       melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4382)?(4382):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4382:/ clear");
-    /*clear*/ /*_#IS_OUT__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4382:/ clear");
-    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4382:/ cppif.else");
-  /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4383:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "`"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4384:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4385:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "|"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4386:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[10] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4386:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[10])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4387:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L4*/ curfnum[1] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4388:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OBJ_HASH__L4*/ curfnum[1]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4389:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#GET_INT__L5*/ curfnum[4] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12])));;
-  /*_#NEED_DBGLIM__L6*/ curfnum[5] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));;
-  MELT_LOCATION("warmelt-first.melt:4389:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4389:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4389:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4390:/ block");
-    /*block*/{
-     /*_#ONUM__L7*/ curfnum[6] = 
-      (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-     /*_#OSERIAL__L8*/ curfnum[7] = 
-      (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-     MELT_LOCATION("warmelt-first.melt:4392:/ cond");
-     /*cond*/ if (/*_#ONUM__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4392:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4392:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4394:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "#"));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4395:/ locexp");
-       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#ONUM__L7*/ curfnum[6]));}
-       ;
-       MELT_LOCATION("warmelt-first.melt:4393:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-first.melt:4396:/ cond");
-     /*cond*/ if (/*_#OSERIAL__L8*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4396:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4396:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4398:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "##"));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4399:/ locexp");
-       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OSERIAL__L8*/ curfnum[7]));}
-       ;
-       MELT_LOCATION("warmelt-first.melt:4397:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4400:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "{"));}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4401:/ cond");
-     /*cond*/ if (/*_.OPROP__V9*/ curfptr[8]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4401:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4401:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4403:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "prop="));}
-       ;
-       /*_#I__L9*/ curfnum[8] = 
-        ((/*_#DEPTH__L1*/ curfnum[0]) + (3));;
-       MELT_LOCATION("warmelt-first.melt:4404:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[2];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:4404:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-first.melt:4404:/ apply.arg");
-        argtab[1].bp_long = /*_#I__L9*/ curfnum[8];
-        /*_.DBG_OUT__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPROP__V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       MELT_LOCATION("warmelt-first.melt:4402:/ block");
-       /*block*/{
-        /*_.PROGN___V16*/ curfptr[15] = /*_.DBG_OUT__V15*/ curfptr[14];;}
-       ;
-       /*_.IF___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4401:/ clear");
-       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4401:/ clear");
-       /*clear*/ /*_.DBG_OUT__V15*/ curfptr[14] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4401:/ clear");
-       /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:4401:/ cond.else");
-     
-      /*_.IF___V14*/ curfptr[13] = NULL;;
-      }
-     ;
-     /*_#I__L10*/ curfnum[8] = 
-      ((/*_#DEPTH__L1*/ curfnum[0]) + (3));;
-     MELT_LOCATION("warmelt-first.melt:4406:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4406:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-first.melt:4406:/ apply.arg");
-      argtab[1].bp_long = /*_#I__L10*/ curfnum[8];
-      MELT_LOCATION("warmelt-first.melt:4406:/ apply.arg");
-      argtab[2].bp_long = 2;
-      MELT_LOCATION("warmelt-first.melt:4406:/ apply.arg");
-      argtab[3].bp_long = 0;
-      /*_.DBGOUT_FIELDS__V17*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4407:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "}"));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4390:/ clear");
-     /*clear*/ /*_#ONUM__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4390:/ clear");
-     /*clear*/ /*_#OSERIAL__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4390:/ clear");
-     /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4390:/ clear");
-     /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4390:/ clear");
-     /*clear*/ /*_.DBGOUT_FIELDS__V17*/ curfptr[14] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.OPROP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4377:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4375:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_NAMEDOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_NAMEDOBJECT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4414:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4414:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4414:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4414:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4415:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4415:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4415:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4415:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4415:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4415:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4415:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4415)?(4415):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4415:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4415:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4415:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4416:/ block");
- /*block*/{
-  /*_.DIS__V6*/ curfptr[4] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4417:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4418:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#OSERIAL__L3*/ curfnum[1] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4421:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " ^^`"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4422:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4423:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "|"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4424:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4424:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4425:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L4*/ curfnum[3] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4426:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OBJ_HASH__L4*/ curfnum[3]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4427:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4427:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4427:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4429:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4430:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OSERIAL__L3*/ curfnum[1]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4428:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4416:/ clear");
-  /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4416:/ clear");
-  /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4416:/ clear");
-  /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4416:/ clear");
-  /*clear*/ /*_#OSERIAL__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4416:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4416:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[3] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4414:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_NAMEDOBJECT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_SYMBOL_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4436:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4436:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4436:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4436:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4437:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4437:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4437:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4437:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4437:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4437:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4437:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4437)?(4437):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4437:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4437:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4437:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4438:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4438:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4438:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4438:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4438:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4438:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4438:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4438)?(4438):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4438:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4438:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4438:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L4*/ curfnum[1] = 
-  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
- MELT_LOCATION("warmelt-first.melt:4439:/ cond");
- /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4439:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4439:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4440:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4440:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4440:/ apply.arg");
-    argtab[1].bp_long = 0;
-    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4439:/ clear");
-   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4439:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4439:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4441:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4441:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4441:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_SYMBOL_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4439:/ clear");
-   /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4436:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4436:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4436:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4436:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4436:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4436:/ clear");
- /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_SYMBOL_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4444:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4444:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4444:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4444:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4445:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4445:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4445:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4445:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4445:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4445:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4445:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4445)?(4445):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4445:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4445:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4445:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4446:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4446:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4446:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4446:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4446:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4446:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4446:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4446)?(4446):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4446:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4446:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4446:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4447:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4447:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V8*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4448:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#OSERIAL__L4*/ curfnum[1] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4451:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( " $"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4452:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V9*/ curfptr[8])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4453:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L5*/ curfnum[4] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4454:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4455:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4455:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4455:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4457:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4458:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[1]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4456:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4447:/ clear");
-  /*clear*/ /*_.OUT__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4447:/ clear");
-  /*clear*/ /*_.ONAM__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4447:/ clear");
-  /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4447:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4444:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4444:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_CLASS_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4464:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4464:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4464:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4464:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4465:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4465:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4465:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4465:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4465:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4465:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4465:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4465)?(4465):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4465:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4465:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4465:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4466:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4466:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4466:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4466:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4466:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4466:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4466:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4466)?(4466):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4466:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4466:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4466:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L4*/ curfnum[1] = 
-  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
- MELT_LOCATION("warmelt-first.melt:4467:/ cond");
- /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4467:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4467:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4468:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4468:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4468:/ apply.arg");
-    argtab[1].bp_long = 0;
-    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4467:/ clear");
-   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4467:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4467:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4469:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4469:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4469:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4467:/ clear");
-   /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4464:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4464:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4464:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4464:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4464:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4464:/ clear");
- /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_CLASS_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_KEYWORD_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4473:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4473:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4473:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4473:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4474:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4474:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4474:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4474:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4474:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4474:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4474:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4474)?(4474):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4474:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4474:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4474:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4475:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4475:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4475:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4475:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4475:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4475:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4475:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4475)?(4475):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4475:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4475:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4475:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L4*/ curfnum[1] = 
-  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
- MELT_LOCATION("warmelt-first.melt:4476:/ cond");
- /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4476:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4476:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4477:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4477:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4477:/ apply.arg");
-    argtab[1].bp_long = 0;
-    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4476:/ clear");
-   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4476:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4476:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4478:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4478:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4478:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_KEYWORD_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4476:/ clear");
-   /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4473:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4473:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4473:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4473:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4473:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4473:/ clear");
- /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_KEYWORD_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_KEYWORD_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4481:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4481:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4481:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4481:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4482:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4482:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4482:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4482:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4482:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4482:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4482:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4482)?(4482):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4482:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4482:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4482:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4483:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4483:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4483:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4483:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4483:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4483:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4483:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4483)?(4483):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4483:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4483:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4483:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4484:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4484:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V8*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4485:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#OSERIAL__L4*/ curfnum[1] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4488:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( " $:"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4489:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V9*/ curfptr[8])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4490:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L5*/ curfnum[4] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4491:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4492:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4492:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4492:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4494:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4495:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[1]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4493:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4484:/ clear");
-  /*clear*/ /*_.OUT__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4484:/ clear");
-  /*clear*/ /*_.ONAM__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4484:/ clear");
-  /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4484:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4481:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4481:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_KEYWORD_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_CLONED_SYMBOL_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4501:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4501:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4501:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4501:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4502:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4502:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4502:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4502:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4502:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4502:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4502:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4502)?(4502):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4502:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4502:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4502:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4503:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4503:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4503:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4503:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4503:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4503:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4503:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4503)?(4503):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4503:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4503:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4503:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L4*/ curfnum[1] = 
-  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
- MELT_LOCATION("warmelt-first.melt:4504:/ cond");
- /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4504:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4504:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4505:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4505:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4505:/ apply.arg");
-    argtab[1].bp_long = 0;
-    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4504:/ clear");
-   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4504:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4504:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4506:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4506:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4506:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4504:/ clear");
-   /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4501:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4501:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4501:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4501:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4501:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4501:/ clear");
- /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_CLONED_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4510:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4510:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4510:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4510:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4511:/ block");
- /*block*/{
-  /*_.DIS__V4*/ curfptr[3] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4512:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V5*/ curfptr[4] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4513:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 3, "CSYM_URANK");/*_.OURANK__V6*/ curfptr[5] = slot; };
-  ;
-  /*_#LRK__L2*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.OURANK__V6*/ curfptr[5])));;
-  /*_#OSERIAL__L3*/ curfnum[2] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4516:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V7*/ curfptr[6] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4517:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( " $$"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4518:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ curfptr[6])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4519:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( ":"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4520:/ locexp");
-  meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#LRK__L2*/ curfnum[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4521:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L4*/ curfnum[3] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4522:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OBJ_HASH__L4*/ curfnum[3]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4523:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4523:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4523:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4525:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4526:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OSERIAL__L3*/ curfnum[2]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4524:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_.DIS__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_.OUT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_.OURANK__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_#LRK__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_#OSERIAL__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_.ONAM__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4511:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[3] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 21
-  long varnum[21];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_ENVIRONMENT_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4533:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4533:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4533:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4533:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4534:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4534:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4534:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4534:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4534:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4534:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4534:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4534)?(4534):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4534:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4534:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4534:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4535:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4535:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4535:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4535:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4535:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4535:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4535:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4535)?(4535):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4535:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4535:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4535:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4536:/ block");
- /*block*/{
-  /*_.DIS__V8*/ curfptr[6] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4537:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#OSERIAL__L4*/ curfnum[1] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  /*_#ONUM__L5*/ curfnum[4] = 
-   (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  /*_#__L6*/ curfnum[5] = 
-   ((/*_.DIS__V8*/ curfptr[6]) == ((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-first.melt:4541:/ cond");
-  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4541:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4541:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4542:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "env"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4541:/ cond.else");
-  
-   MELT_LOCATION("warmelt-first.melt:4541:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4544:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "|"));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4545:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4545:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4543:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4541:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4547:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L7*/ curfnum[6] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4548:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OBJ_HASH__L7*/ curfnum[6]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4549:/ cond");
-  /*cond*/ if (/*_#ONUM__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4549:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4549:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4551:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "#"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4552:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#ONUM__L5*/ curfnum[4]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4550:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-first.melt:4553:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4553:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4553:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4555:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4556:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OSERIAL__L4*/ curfnum[1]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4554:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4557:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "{"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4558:/ block");
-  /*block*/{
-   /*_#OFFPREV__L8*/ curfnum[7] = 
-    (melt_get_int((melt_ptr_t)((/*!ENV_PREV*/ curfrout->tabval[2]))));;
-   MELT_LOCATION("warmelt-first.melt:4559:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = slot; };
-   ;
-   /*_#OLDMAXDEPTH__L9*/ curfnum[8] = 
-    (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[9])));;
-   /*_#I__L10*/ curfnum[9] = 
-    (melt_idiv((/*_#OLDMAXDEPTH__L9*/ curfnum[8]), (2)));;
-   /*_#NEWMAXDEPTH__L11*/ curfnum[10] = 
-    ((/*_#I__L10*/ curfnum[9]) - (1));;
-   /*_#I__L12*/ curfnum[11] = 
-    ((/*_#NEWMAXDEPTH__L11*/ curfnum[10]) < (0));;
-   MELT_LOCATION("warmelt-first.melt:4562:/ cond");
-   /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4562:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4562:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4562:/ compute");
-     /*_#NEWMAXDEPTH__L11*/ curfnum[10] = /*_#SETQ___L14*/ curfnum[13] = 0;;
-     /*_#IF___L13*/ curfnum[12] = /*_#SETQ___L14*/ curfnum[13];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4562:/ clear");
-     /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:4562:/ cond.else");
-   
-    /*_#IF___L13*/ curfnum[12] = 0;;
-    }
-   ;
-   /*_#NEED_DBGLIM__L15*/ curfnum[13] = 
-    (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#OLDMAXDEPTH__L9*/ curfnum[8]));;
-   MELT_LOCATION("warmelt-first.melt:4563:/ cond");
-   /*cond*/ if (/*_#NEED_DBGLIM__L15*/ curfnum[13]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4563:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4563:/ block");
-    /*block*/{
-     /*_#I__L16*/ curfnum[15] = 
-      ((/*_#DEPTH__L1*/ curfnum[0]) > (0));;
-     MELT_LOCATION("warmelt-first.melt:4565:/ cond");
-     /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4565:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4565:/ block");
-      /*block*/{
-       /*_#I__L17*/ curfnum[16] = 
-        ((/*_#OLDMAXDEPTH__L9*/ curfnum[8]) > (3));;
-       MELT_LOCATION("warmelt-first.melt:4565:/ cond");
-       /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:4565:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:4565:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:4566:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = slot; };
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:4566:/ locexp");
-         melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ curfptr[11]), (/*_#NEWMAXDEPTH__L11*/ curfnum[10]));}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:4565:/ clear");
-         /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = 0 ;}
-        ;
-       } /*noelse*/
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4565:/ clear");
-       /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;}
-      ;
-     } /*noelse*/
-     ;
-     /*_#I__L18*/ curfnum[16] = 
-      ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-     MELT_LOCATION("warmelt-first.melt:4567:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4567:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-first.melt:4567:/ apply.arg");
-      argtab[1].bp_long = /*_#I__L18*/ curfnum[16];
-      MELT_LOCATION("warmelt-first.melt:4567:/ apply.arg");
-      argtab[2].bp_long = 0;
-      MELT_LOCATION("warmelt-first.melt:4567:/ apply.arg");
-      argtab[3].bp_long = /*_#OFFPREV__L8*/ curfnum[7];
-      /*_.DBGOUT_FIELDS__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_#I__L19*/ curfnum[18] = 
-      ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
-     /*_#NEED_DBGLIM__L20*/ curfnum[19] = 
-      (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#I__L19*/ curfnum[18])>=0 && (/*_#I__L19*/ curfnum[18]) < (/*_#NEWMAXDEPTH__L11*/ curfnum[10]));;
-     MELT_LOCATION("warmelt-first.melt:4568:/ cond");
-     /*cond*/ if (/*_#NEED_DBGLIM__L20*/ curfnum[19]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4568:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4568:/ block");
-      /*block*/{
-       /*_#I__L21*/ curfnum[20] = 
-        ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
-       MELT_LOCATION("warmelt-first.melt:4569:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:4569:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-first.melt:4569:/ apply.arg");
-        argtab[1].bp_long = /*_#I__L21*/ curfnum[20];
-        MELT_LOCATION("warmelt-first.melt:4569:/ apply.arg");
-        argtab[2].bp_long = /*_#OFFPREV__L8*/ curfnum[7];
-        MELT_LOCATION("warmelt-first.melt:4569:/ apply.arg");
-        argtab[3].bp_long = 0;
-        /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_FIELDS*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFELSE___V14*/ curfptr[13] = /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4568:/ clear");
-       /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4568:/ clear");
-       /*clear*/ /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:4568:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4568:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4570:/ locexp");
-        meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( ".._.."));}
-        ;
-        /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     MELT_LOCATION("warmelt-first.melt:4571:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V16*/ curfptr[14] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4571:/ locexp");
-     melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V16*/ curfptr[14]), (/*_#OLDMAXDEPTH__L9*/ curfnum[8]));}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4564:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_.DBGOUT_FIELDS__V13*/ curfptr[11] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_#NEED_DBGLIM__L20*/ curfnum[19] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4563:/ clear");
-     /*clear*/ /*_.DBGI_MAXDEPTH__V16*/ curfptr[14] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#OFFPREV__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#OLDMAXDEPTH__L9*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#NEWMAXDEPTH__L11*/ curfnum[10] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4558:/ clear");
-   /*clear*/ /*_#NEED_DBGLIM__L15*/ curfnum[13] = 0 ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4573:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "}"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4536:/ clear");
-  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4536:/ clear");
-  /*clear*/ /*_.OUT__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4536:/ clear");
-  /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4536:/ clear");
-  /*clear*/ /*_#ONUM__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4536:/ clear");
-  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4536:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L7*/ curfnum[6] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4533:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4533:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_ENVIRONMENT_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_CTYPE_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4579:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4579:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4579:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4579:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4580:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4580:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4580:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4580:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4580:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4580:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4580:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4580)?(4580):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4580:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4580:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4580:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4581:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4581:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4581:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4581:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4581:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4581:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4581:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4581)?(4581):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4581:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4581:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4581:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L4*/ curfnum[1] = 
-  ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));;
- MELT_LOCATION("warmelt-first.melt:4582:/ cond");
- /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4582:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4582:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4583:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4583:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4583:/ apply.arg");
-    argtab[1].bp_long = 0;
-    /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4582:/ clear");
-   /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4582:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4582:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4584:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4584:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-first.melt:4584:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CTYPE_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4582:/ clear");
-   /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4579:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4579:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4579:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4579:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4579:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4579:/ clear");
- /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_CTYPE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUTAGAIN_CTYPE_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4588:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4588:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4588:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4588:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4589:/ block");
- /*block*/{
-  /*_.DIS__V4*/ curfptr[3] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4590:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V5*/ curfptr[4] = slot; };
-  ;
-  /*_#OSERIAL__L2*/ curfnum[1] = 
-   (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4592:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V6*/ curfptr[5] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4593:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( " $!"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4594:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V6*/ curfptr[5])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4595:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "!/"));}
-  ;
-  /*_#OBJ_HASH__L3*/ curfnum[2] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4596:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OBJ_HASH__L3*/ curfnum[2]));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4597:/ cond");
-  /*cond*/ if (/*_#OSERIAL__L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4597:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4597:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4599:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "##"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4600:/ locexp");
-    meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OSERIAL__L2*/ curfnum[1]));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4598:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4589:/ clear");
-  /*clear*/ /*_.DIS__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4589:/ clear");
-  /*clear*/ /*_.OUT__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4589:/ clear");
-  /*clear*/ /*_#OSERIAL__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4589:/ clear");
-  /*clear*/ /*_.ONAM__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4589:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L3*/ curfnum[2] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUTAGAIN_CTYPE_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_105_warmelt_first_FRESH_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_first_FRESH_ENV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FRESH_ENV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4609:/ getarg");
- /*_.PARENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4609:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESCR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESCR__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4609:/ block");
-/*block*/{
- /*_#NULL__L1*/ curfnum[0] = 
-  ((/*_.PARENV__V2*/ curfptr[1]) == NULL);;
- MELT_LOCATION("warmelt-first.melt:4613:/ cond");
- /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4613:/ cond.then");
- /*_#OR___L2*/ curfnum[1] = /*_#NULL__L1*/ curfnum[0];;
- } else {MELT_LOCATION("warmelt-first.melt:4613:/ cond.else");
- 
-  MELT_LOCATION("warmelt-first.melt:4613:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[2] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PARENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   /*_#OR___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4613:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4613:/ cond");
- /*cond*/ if (/*_#OR___L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4613:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4613:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4614:/ cond");
-   /*cond*/ if (/*_.DESCR__V3*/ curfptr[2]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4614:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4614:/ block");
-    /*block*/{
-     /*_.MAKE_MAPOBJECT__V6*/ curfptr[5] = 
-      (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (26)));;
-     MELT_LOCATION("warmelt-first.melt:4615:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4615:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DESCRIBED_ENVIRONMENT*/ curfrout->tabval[1])), (4), "CLASS_DESCRIBED_ENVIRONMENT");/*_.INST__V8*/ curfptr[7] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-first.melt:4615:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @ENV_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), (/*_.MAKE_MAPOBJECT__V6*/ curfptr[5]), "ENV_BIND");
-      ;
-      MELT_LOCATION("warmelt-first.melt:4615:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @ENV_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.PARENV__V2*/ curfptr[1]), "ENV_PREV");
-      ;
-      MELT_LOCATION("warmelt-first.melt:4615:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @DENV_DESCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (3), (/*_.DESCR__V3*/ curfptr[2]), "DENV_DESCR");
-      ;
-      /*_.INST___V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
-     ;
-     /*_.IFELSE___V5*/ curfptr[4] = /*_.INST___V7*/ curfptr[6];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4614:/ clear");
-     /*clear*/ /*_.MAKE_MAPOBJECT__V6*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4614:/ clear");
-     /*clear*/ /*_.INST___V7*/ curfptr[6] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:4614:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4614:/ block");
-    /*block*/{
-     /*_.MAKE_MAPOBJECT__V9*/ curfptr[5] = 
-      (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (6)));;
-     MELT_LOCATION("warmelt-first.melt:4619:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4619:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])), (3), "CLASS_ENVIRONMENT");/*_.INST__V11*/ curfptr[10] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-first.melt:4619:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @ENV_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (0), (/*_.MAKE_MAPOBJECT__V9*/ curfptr[5]), "ENV_BIND");
-      ;
-      MELT_LOCATION("warmelt-first.melt:4619:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @ENV_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.PARENV__V2*/ curfptr[1]), "ENV_PREV");
-      ;
-      /*_.INST___V10*/ curfptr[6] = /*_.INST__V11*/ curfptr[10];;}
-     ;
-     /*_.IFELSE___V5*/ curfptr[4] = /*_.INST___V10*/ curfptr[6];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4614:/ clear");
-     /*clear*/ /*_.MAKE_MAPOBJECT__V9*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4614:/ clear");
-     /*clear*/ /*_.INST___V10*/ curfptr[6] = 0 ;}
-    ;
-    }
-   ;
-   /*_.IF___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4613:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-first.melt:4613:/ cond.else");
- 
-  /*_.IF___V4*/ curfptr[3] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4609:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];;
-  MELT_LOCATION("warmelt-first.melt:4609:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4609:/ clear");
- /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4609:/ clear");
- /*clear*/ /*_#OR___L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4609:/ clear");
- /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FRESH_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_105_warmelt_first_FRESH_ENV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_106_warmelt_first_FIND_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_first_FIND_ENV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FIND_ENV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4631:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4631:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4631:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4633:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4633:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4633:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4633:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4633:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4633:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4633:/ locexp");
-      melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4633)?(4633):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4633:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4633:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4633:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4634:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4634:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:4634:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4634:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4634:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4634:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4634:/ locexp");
-      melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4634)?(4634):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4634:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4634:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4634:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4635:/ loop");
- /*loop*/{ labloop_FINDLOOP_1:;MELT_LOCATION("warmelt-first.melt:4635:/ loopbody");
- 
-  MELT_LOCATION("warmelt-first.melt:4635:/ block");
-  /*block*/{
-   /*_#NULL__L3*/ curfnum[0] = 
-    ((/*_.ENV__V2*/ curfptr[1]) == NULL);;
-   MELT_LOCATION("warmelt-first.melt:4637:/ cond");
-   /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4637:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4637:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4638:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4638:/ compute");
-      /*_.FINDLOOP__V9*/ curfptr[8] = (/*nil*/NULL);;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4638:/ exit");
-      /*exit*/{
-       goto labexit_FINDLOOP_1;}
-      ;}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4639:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4639:/ block");
-    /*block*/{
-     /*_#IS_OBJECT__L4*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-     MELT_LOCATION("warmelt-first.melt:4639:/ cond");
-     /*cond*/ if (/*_#IS_OBJECT__L4*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4639:/ cond.then");
-     /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-first.melt:4639:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4639:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4639:/ locexp");
-        melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4639)?(4639):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4639:/ clear");
-     /*clear*/ /*_#IS_OBJECT__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4639:/ clear");
-     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4639:/ cppif.else");
-   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4640:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4640:/ block");
-    /*block*/{
-     /*_#IS_A__L5*/ curfnum[3] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-     MELT_LOCATION("warmelt-first.melt:4640:/ cond");
-     /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4640:/ cond.then");
-     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-first.melt:4640:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4640:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4640:/ locexp");
-        melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4640)?(4640):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4640:/ clear");
-     /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4640:/ clear");
-     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4640:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-first.melt:4641:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4642:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ curfptr[12] = slot; };
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-first.melt:4643:/ cppif.then");
-    MELT_LOCATION("warmelt-first.melt:4643:/ block");
-     /*block*/{
-      /*_#IS_MAPOBJECT__L6*/ curfnum[3] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ curfptr[12])) == OBMAG_MAPOBJECTS);;
-      MELT_LOCATION("warmelt-first.melt:4643:/ cond");
-      /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ curfnum[3]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4643:/ cond.then");
-      /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-first.melt:4643:/ cond.else");
-      
-       MELT_LOCATION("warmelt-first.melt:4643:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:4643:/ locexp");
-         melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4643)?(4643):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4643:/ clear");
-      /*clear*/ /*_#IS_MAPOBJECT__L6*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4643:/ clear");
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-first.melt:4643:/ cppif.else");
-    /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-first.melt:4644:/ block");
-    /*block*/{
-     /*_.BND__V17*/ curfptr[15] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V14*/ curfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));;
-     MELT_LOCATION("warmelt-first.melt:4646:/ cond");
-     /*cond*/ if (/*_.BND__V17*/ curfptr[15]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4646:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4646:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4647:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:4647:/ compute");
-        /*_.FINDLOOP__V9*/ curfptr[8] = /*_.BND__V17*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4647:/ exit");
-        /*exit*/{
-         goto labexit_FINDLOOP_1;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4644:/ clear");
-     /*clear*/ /*_.BND__V17*/ curfptr[15] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4641:/ clear");
-    /*clear*/ /*_.BINDMAP__V14*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4641:/ clear");
-    /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;}
-   ;
-   MELT_LOCATION("warmelt-first.melt:4649:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V18*/ curfptr[15] = slot; };
-   ;
-   MELT_LOCATION("warmelt-first.melt:4649:/ compute");
-   /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V19*/ curfptr[12] = /*_.ENV_PREV__V18*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4635:/ clear");
-   /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4635:/ clear");
-   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4635:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4635:/ clear");
-   /*clear*/ /*_.ENV_PREV__V18*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4635:/ clear");
-   /*clear*/ /*_.SETQ___V19*/ curfptr[12] = 0 ;}
-  ;
-  ;
-   goto labloop_FINDLOOP_1;
-   labexit_FINDLOOP_1:;MELT_LOCATION("warmelt-first.melt:4635:/ loopepilog");
- /*loopepilog*/
-  /*_.FOREVER___V8*/ curfptr[6] = /*_.FINDLOOP__V9*/ curfptr[8];;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4631:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.FOREVER___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4631:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4631:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4631:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4631:/ clear");
- /*clear*/ /*_.FOREVER___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FIND_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_106_warmelt_first_FIND_ENV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_107_warmelt_first_FIND_ENV_DEBUG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_first_FIND_ENV_DEBUG_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 29
-  void* varptr[29];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<29; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 29;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FIND_ENV_DEBUG", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4654:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4654:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4654:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4655:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4655:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4655:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4655:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4655:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4655:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4655:/ locexp");
-      melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4655)?(4655):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4655:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4655:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4655:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4656:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4656:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:4656:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4656:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4656:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4656:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4656:/ locexp");
-      melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4656)?(4656):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4656:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4656:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4656:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4657:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4657:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-first.melt:4657:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4657:/ apply.arg");
-    argtab[0].bp_cstring =  "find_env_debug initial env";
-    MELT_LOCATION("warmelt-first.melt:4657:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-first.melt:4657:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-first.melt";
-    MELT_LOCATION("warmelt-first.melt:4657:/ apply.arg");
-    argtab[3].bp_long = 4657;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4657:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4657:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4657:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4658:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4658:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-first.melt:4658:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
-    argtab[0].bp_cstring =  "find_env_debug binder";
-    MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-first.melt";
-    MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg");
-    argtab[3].bp_long = 4658;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4658:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4658:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4658:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4659:/ loop");
- /*loop*/{ labloop_FINDLOOP_2:;MELT_LOCATION("warmelt-first.melt:4659:/ loopbody");
- 
-  MELT_LOCATION("warmelt-first.melt:4659:/ block");
-  /*block*/{
-   /*_#NULL__L5*/ curfnum[0] = 
-    ((/*_.ENV__V2*/ curfptr[1]) == NULL);;
-   MELT_LOCATION("warmelt-first.melt:4661:/ cond");
-   /*cond*/ if (/*_#NULL__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4661:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4661:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4662:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4662:/ compute");
-      /*_.FINDLOOP__V13*/ curfptr[12] = (/*nil*/NULL);;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4662:/ exit");
-      /*exit*/{
-       goto labexit_FINDLOOP_2;}
-      ;}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4663:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4663:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-first.melt:4663:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4663:/ apply.arg");
-      argtab[0].bp_cstring =  "find_env_debug current env";
-      MELT_LOCATION("warmelt-first.melt:4663:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-first.melt:4663:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-first.melt";
-      MELT_LOCATION("warmelt-first.melt:4663:/ apply.arg");
-      argtab[3].bp_long = 4663;
-      /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4663:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4663:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4663:/ cppif.else");
-   /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4664:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4664:/ block");
-    /*block*/{
-     /*_#IS_OBJECT__L7*/ curfnum[5] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-     MELT_LOCATION("warmelt-first.melt:4664:/ cond");
-     /*cond*/ if (/*_#IS_OBJECT__L7*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4664:/ cond.then");
-     /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-first.melt:4664:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4664:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4664:/ locexp");
-        melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4664)?(4664):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4664:/ clear");
-     /*clear*/ /*_#IS_OBJECT__L7*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4664:/ clear");
-     /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4664:/ cppif.else");
-   /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4665:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4665:/ block");
-    /*block*/{
-     /*_#IS_A__L8*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-     MELT_LOCATION("warmelt-first.melt:4665:/ cond");
-     /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4665:/ cond.then");
-     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-first.melt:4665:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4665:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4665:/ locexp");
-        melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4665)?(4665):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4665:/ clear");
-     /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4665:/ clear");
-     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4665:/ cppif.else");
-   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-first.melt:4666:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4667:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V20*/ curfptr[18] = slot; };
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-first.melt:4668:/ cppif.then");
-    MELT_LOCATION("warmelt-first.melt:4668:/ block");
-     /*block*/{
-      /*_#IS_MAPOBJECT__L9*/ curfnum[5] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V20*/ curfptr[18])) == OBMAG_MAPOBJECTS);;
-      MELT_LOCATION("warmelt-first.melt:4668:/ cond");
-      /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4668:/ cond.then");
-      /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-first.melt:4668:/ cond.else");
-      
-       MELT_LOCATION("warmelt-first.melt:4668:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:4668:/ locexp");
-         melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4668)?(4668):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V21*/ curfptr[20] = /*_.IFELSE___V22*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4668:/ clear");
-      /*clear*/ /*_#IS_MAPOBJECT__L9*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4668:/ clear");
-      /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-first.melt:4668:/ cppif.else");
-    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-first.melt:4669:/ block");
-    /*block*/{
-     /*_.BND__V23*/ curfptr[21] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V20*/ curfptr[18]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-first.melt:4671:/ cppif.then");
-     MELT_LOCATION("warmelt-first.melt:4671:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-first.melt:4671:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:4671:/ apply.arg");
-        argtab[0].bp_cstring =  "find_env_debug current bnd";
-        MELT_LOCATION("warmelt-first.melt:4671:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
-        MELT_LOCATION("warmelt-first.melt:4671:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-first.melt";
-        MELT_LOCATION("warmelt-first.melt:4671:/ apply.arg");
-        argtab[3].bp_long = 4671;
-        /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BND__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4671:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4671:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-first.melt:4671:/ cppif.else");
-     /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-first.melt:4672:/ cond");
-     /*cond*/ if (/*_.BND__V23*/ curfptr[21]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4672:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4672:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4673:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:4673:/ compute");
-        /*_.FINDLOOP__V13*/ curfptr[12] = /*_.BND__V23*/ curfptr[21];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4673:/ exit");
-        /*exit*/{
-         goto labexit_FINDLOOP_2;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4669:/ clear");
-     /*clear*/ /*_.BND__V23*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4669:/ clear");
-     /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4666:/ clear");
-    /*clear*/ /*_.BINDMAP__V20*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4666:/ clear");
-    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4675:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4675:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-first.melt:4675:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4675:/ apply.arg");
-      argtab[0].bp_cstring =  "find_env_debug at end of loop binder";
-      MELT_LOCATION("warmelt-first.melt:4675:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5];
-      MELT_LOCATION("warmelt-first.melt:4675:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-first.melt";
-      MELT_LOCATION("warmelt-first.melt:4675:/ apply.arg");
-      argtab[3].bp_long = 4675;
-      /*_.DEBUG_MSG_FUN__V27*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4675:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4675:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[21] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4675:/ cppif.else");
-   /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-first.melt:4676:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V28*/ curfptr[23] = slot; };
-   ;
-   MELT_LOCATION("warmelt-first.melt:4676:/ compute");
-   /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V29*/ curfptr[18] = /*_.ENV_PREV__V28*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_#NULL__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_.ENV_PREV__V28*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4659:/ clear");
-   /*clear*/ /*_.SETQ___V29*/ curfptr[18] = 0 ;}
-  ;
-  ;
-   goto labloop_FINDLOOP_2;
-   labexit_FINDLOOP_2:;MELT_LOCATION("warmelt-first.melt:4659:/ loopepilog");
- /*loopepilog*/
-  /*_.FOREVER___V12*/ curfptr[10] = /*_.FINDLOOP__V13*/ curfptr[12];;
-  }
- ;
- MELT_LOCATION("warmelt-first.melt:4654:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.FOREVER___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-first.melt:4654:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4654:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4654:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4654:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4654:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4654:/ clear");
- /*clear*/ /*_.FOREVER___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FIND_ENV_DEBUG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_107_warmelt_first_FIND_ENV_DEBUG*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_108_warmelt_first_FIND_ENCLOSING_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_first_FIND_ENCLOSING_ENV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FIND_ENCLOSING_ENV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4681:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4681:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4681:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4684:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4684:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4684:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4684:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4684:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4684:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4684:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4684)?(4684):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4684:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4684:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4684:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4685:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4685:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:4685:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4685:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4685:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4685:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4685:/ locexp");
-      melt_assert_failed(( "check binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4685)?(4685):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4685:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4685:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4685:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4686:/ block");
- /*block*/{
-  /*_.PROCLIST__V9*/ curfptr[8] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));;
-  MELT_LOCATION("warmelt-first.melt:4687:/ loop");
-  /*loop*/{ labloop_FINDLOOP_3:;MELT_LOCATION("warmelt-first.melt:4687:/ loopbody");
-  
-   MELT_LOCATION("warmelt-first.melt:4687:/ block");
-   /*block*/{
-    /*_#IS_NOT_A__L3*/ curfnum[0] = 
-     !melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-    MELT_LOCATION("warmelt-first.melt:4688:/ cond");
-    /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4688:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:4688:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4688:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4688:/ compute");
-       /*_.FINDLOOP__V11*/ curfptr[10] = NULL;;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4688:/ exit");
-       /*exit*/{
-        goto labexit_FINDLOOP_3;}
-       ;}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-first.melt:4689:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4689:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V13*/ curfptr[12] = slot; };
-     ;
-     MELT_LOCATION("warmelt-first.melt:4690:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 2, "ENV_PROC");/*_.EPROC__V14*/ curfptr[13] = slot; };
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-first.melt:4692:/ cppif.then");
-     MELT_LOCATION("warmelt-first.melt:4692:/ block");
-      /*block*/{
-       /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V13*/ curfptr[12])) == OBMAG_MAPOBJECTS);;
-       MELT_LOCATION("warmelt-first.melt:4692:/ cond");
-       /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[3]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:4692:/ cond.then");
-       /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-first.melt:4692:/ cond.else");
-       
-        MELT_LOCATION("warmelt-first.melt:4692:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:4692:/ locexp");
-          melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4692)?(4692):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4692:/ clear");
-       /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4692:/ clear");
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-first.melt:4692:/ cppif.else");
-     /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-first.melt:4693:/ block");
-     /*block*/{
-      /*_.BND__V18*/ curfptr[17] = 
-       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V13*/ curfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));;
-      MELT_LOCATION("warmelt-first.melt:4694:/ cond");
-      /*cond*/ if (/*_.BND__V18*/ curfptr[17]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4694:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:4694:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-first.melt:4694:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = /*_.BND__V18*/ curfptr[17];;
-         MELT_LOCATION("warmelt-first.melt:4694:/ putxtraresult");
-         if (!xrestab_ || !xresdescr_) goto labend_rout;
-         if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-         if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.PROCLIST__V9*/ curfptr[8]);
-         ;
-         MELT_LOCATION("warmelt-first.melt:4694:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        /*_.IF___V19*/ curfptr[18] = /*_.RETURN___V20*/ curfptr[19];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-first.melt:4694:/ clear");
-        /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-first.melt:4694:/ cond.else");
-      
-       /*_.IF___V19*/ curfptr[18] = NULL;;
-       }
-      ;
-      /*_.LET___V17*/ curfptr[15] = /*_.IF___V19*/ curfptr[18];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4693:/ clear");
-      /*clear*/ /*_.BND__V18*/ curfptr[17] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4693:/ clear");
-      /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4695:/ cond");
-     /*cond*/ if (/*_.EPROC__V14*/ curfptr[13]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4695:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4695:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4695:/ locexp");
-       meltgc_prepend_list((melt_ptr_t)(/*_.PROCLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.EPROC__V14*/ curfptr[13]));}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-first.melt:4696:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V21*/ curfptr[19] = slot; };
-     ;
-     MELT_LOCATION("warmelt-first.melt:4696:/ compute");
-     /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V22*/ curfptr[17] = /*_.ENV_PREV__V21*/ curfptr[19];;
-     /*_.LET___V12*/ curfptr[11] = /*_.SETQ___V22*/ curfptr[17];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4689:/ clear");
-     /*clear*/ /*_.BINDMAP__V13*/ curfptr[12] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4689:/ clear");
-     /*clear*/ /*_.EPROC__V14*/ curfptr[13] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4689:/ clear");
-     /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4689:/ clear");
-     /*clear*/ /*_.LET___V17*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4689:/ clear");
-     /*clear*/ /*_.ENV_PREV__V21*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4689:/ clear");
-     /*clear*/ /*_.SETQ___V22*/ curfptr[17] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4687:/ clear");
-    /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4687:/ clear");
-    /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;}
-   ;
-   ;
-    goto labloop_FINDLOOP_3;
-    labexit_FINDLOOP_3:;MELT_LOCATION("warmelt-first.melt:4687:/ loopepilog");
-  /*loopepilog*/
-   /*_.FOREVER___V10*/ curfptr[9] = /*_.FINDLOOP__V11*/ curfptr[10];;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.FOREVER___V10*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4686:/ clear");
-  /*clear*/ /*_.PROCLIST__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4686:/ clear");
-  /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4681:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4681:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4681:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4681:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4681:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FIND_ENCLOSING_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_108_warmelt_first_FIND_ENCLOSING_ENV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_109_warmelt_first_PUT_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_first_PUT_ENV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 13
-  long varnum[13];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUT_ENV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4700:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4700:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDING__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4700:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4703:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4703:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:4703:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4703:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4703:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4703:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4703:/ locexp");
-      melt_assert_failed(( "check binding is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4703)?(4703):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4703:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4703:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4703:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4704:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4704:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-first.melt:4704:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4704:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4704:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4704:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4704:/ locexp");
-      melt_assert_failed(( "check env is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4704)?(4704):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4704:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4704:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4704:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4705:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4705:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4705:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4705:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4705:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4705:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4705:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4705)?(4705):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4705:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4705:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4705:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#IS_A__L4*/ curfnum[0] = 
-  melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
- /*_#NOT__L5*/ curfnum[4] = 
-  (!(/*_#IS_A__L4*/ curfnum[0]));;
- MELT_LOCATION("warmelt-first.melt:4706:/ cond");
- /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4706:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4706:/ block");
-  /*block*/{
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-first.melt:4708:/ cppif.then");
-   MELT_LOCATION("warmelt-first.melt:4708:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-first.melt:4708:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-first.melt:4708:/ apply.arg");
-      argtab[0].bp_cstring =  "put_env invalid binding";
-      MELT_LOCATION("warmelt-first.melt:4708:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-first.melt:4708:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-first.melt";
-      MELT_LOCATION("warmelt-first.melt:4708:/ apply.arg");
-      argtab[3].bp_long = 4708;
-      /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4708:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4708:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-first.melt:4708:/ cppif.else");
-   /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   {
-   MELT_LOCATION("warmelt-first.melt:4709:/ locexp");
-    
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "put_env invalid binding"), (15));
-#endif
-;}
-   ;
-   MELT_LOCATION("warmelt-first.melt:4707:/ block");
-   /*block*/{}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4706:/ clear");
-   /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;}
-  ;
- } /*noelse*/
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4710:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4710:/ block");
-  /*block*/{
-   /*_#IS_A__L7*/ curfnum[5] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4710:/ cond");
-   /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4710:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4710:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4710:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4710:/ locexp");
-      melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4710)?(4710):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4710:/ clear");
-   /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4710:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4710:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4711:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4711:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4712:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDERV__V15*/ curfptr[14] = slot; };
-  ;
-  /*_#IS_OBJECT__L8*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)((/*!BINDER*/ curfrout->tabval[3]))) == OBMAG_OBJECT);;
-  /*_#NOT__L9*/ curfnum[8] = 
-   (!(/*_#IS_OBJECT__L8*/ curfnum[5]));;
-  MELT_LOCATION("warmelt-first.melt:4714:/ cond");
-  /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4714:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4714:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-first.melt:4716:/ cppif.then");
-    MELT_LOCATION("warmelt-first.melt:4716:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
-       callcount;;
-      MELT_LOCATION("warmelt-first.melt:4716:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:4716:/ apply.arg");
-       argtab[0].bp_cstring =  "put_env bad binder in binding";
-       MELT_LOCATION("warmelt-first.melt:4716:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
-       MELT_LOCATION("warmelt-first.melt:4716:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-first.melt";
-       MELT_LOCATION("warmelt-first.melt:4716:/ apply.arg");
-       argtab[3].bp_long = 4716;
-       /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4716:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4716:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-first.melt:4716:/ cppif.else");
-    /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-first.melt:4717:/ cppif.then");
-    MELT_LOCATION("warmelt-first.melt:4717:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 
-       callcount;;
-      MELT_LOCATION("warmelt-first.melt:4717:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-first.melt:4717:/ apply.arg");
-       argtab[0].bp_cstring =  "put_env bad binderv";
-       MELT_LOCATION("warmelt-first.melt:4717:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9];
-       MELT_LOCATION("warmelt-first.melt:4717:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-first.melt";
-       MELT_LOCATION("warmelt-first.melt:4717:/ apply.arg");
-       argtab[3].bp_long = 4717;
-       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDERV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4717:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4717:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-first.melt:4717:/ cppif.else");
-    /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4718:/ locexp");
-     
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "put_env  bad binder in binding"), (5));
-#endif
-;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4715:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4714:/ clear");
-    /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4714:/ clear");
-    /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4719:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4719:/ block");
-   /*block*/{
-    /*_#IS_MAPOBJECT__L12*/ curfnum[9] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ curfptr[8])) == OBMAG_MAPOBJECTS);;
-    MELT_LOCATION("warmelt-first.melt:4719:/ cond");
-    /*cond*/ if (/*_#IS_MAPOBJECT__L12*/ curfnum[9]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4719:/ cond.then");
-    /*_.IFELSE___V21*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:4719:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4719:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4719:/ locexp");
-       melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4719)?(4719):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V21*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4719:/ clear");
-    /*clear*/ /*_#IS_MAPOBJECT__L12*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4719:/ clear");
-    /*clear*/ /*_.IFELSE___V21*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4719:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4720:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4720:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L13*/ curfnum[9] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V15*/ curfptr[14])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-first.melt:4720:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L13*/ curfnum[9]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4720:/ cond.then");
-    /*_.IFELSE___V23*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:4720:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4720:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4720:/ locexp");
-       melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4720)?(4720):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[16] = /*_.IFELSE___V23*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4720:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L13*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4720:/ clear");
-    /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4720:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4721:/ locexp");
-  meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V14*/ curfptr[8]), 
-			   (meltobject_ptr_t) (/*_.BINDERV__V15*/ curfptr[14]), 
-			   (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4711:/ clear");
-  /*clear*/ /*_.BINDMAP__V14*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4711:/ clear");
-  /*clear*/ /*_.BINDERV__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4711:/ clear");
-  /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4711:/ clear");
-  /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4711:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4711:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[16] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4700:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4700:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4700:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4700:/ clear");
- /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4700:/ clear");
- /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4700:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUT_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_109_warmelt_first_PUT_ENV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_110_warmelt_first_OVERWRITE_ENV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_first_OVERWRITE_ENV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OVERWRITE_ENV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4725:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4725:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDING__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4725:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4729:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4729:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4729:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4729:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4729:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4729:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4729:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4729)?(4729):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4729:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4729:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4729:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4730:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4730:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4730:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4730:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4730:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4730:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4730:/ locexp");
-      melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4730)?(4730):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4730:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4730:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4730:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4731:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4731:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDERV__V9*/ curfptr[8] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4732:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4732:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L3*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V9*/ curfptr[8])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-first.melt:4732:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4732:/ cond.then");
-    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:4732:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4732:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4732:/ locexp");
-       melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4732)?(4732):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4732:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4732:/ clear");
-    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4732:/ cppif.else");
-  /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-first.melt:4733:/ loop");
-  /*loop*/{ labloop_FINDLOOP_4:;MELT_LOCATION("warmelt-first.melt:4733:/ loopbody");
-  
-   MELT_LOCATION("warmelt-first.melt:4733:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-    /*_#NOT__L5*/ curfnum[4] = 
-     (!(/*_#IS_A__L4*/ curfnum[0]));;
-    MELT_LOCATION("warmelt-first.melt:4734:/ cond");
-    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4734:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:4734:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4734:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4734:/ compute");
-       /*_.FINDLOOP__V13*/ curfptr[12] = NULL;;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4734:/ exit");
-       /*exit*/{
-        goto labexit_FINDLOOP_4;}
-       ;}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-first.melt:4735:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4735:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V15*/ curfptr[14] = slot; };
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-first.melt:4736:/ cppif.then");
-     MELT_LOCATION("warmelt-first.melt:4736:/ block");
-      /*block*/{
-       /*_#IS_MAPOBJECT__L6*/ curfnum[5] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V15*/ curfptr[14])) == OBMAG_MAPOBJECTS);;
-       MELT_LOCATION("warmelt-first.melt:4736:/ cond");
-       /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ curfnum[5]) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:4736:/ cond.then");
-       /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-first.melt:4736:/ cond.else");
-       
-        MELT_LOCATION("warmelt-first.melt:4736:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-first.melt:4736:/ locexp");
-          melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4736)?(4736):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4736:/ clear");
-       /*clear*/ /*_#IS_MAPOBJECT__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4736:/ clear");
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-first.melt:4736:/ cppif.else");
-     /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-first.melt:4737:/ block");
-     /*block*/{
-      /*_.OLDBINDING__V18*/ curfptr[16] = 
-       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V15*/ curfptr[14]), (meltobject_ptr_t)((/*!BINDER*/ curfrout->tabval[2])));;
-      MELT_LOCATION("warmelt-first.melt:4738:/ cond");
-      /*cond*/ if (/*_.OLDBINDING__V18*/ curfptr[16]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4738:/ cond.then");
-      MELT_LOCATION("warmelt-first.melt:4738:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4740:/ locexp");
-        meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V15*/ curfptr[14]), 
-			   (meltobject_ptr_t) (/*_.BINDERV__V9*/ curfptr[8]), 
-			   (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]));}
-        ;
-        MELT_LOCATION("warmelt-first.melt:4741:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-first.melt:4741:/ compute");
-         /*_.FINDLOOP__V13*/ curfptr[12] = /*_.OLDBINDING__V18*/ curfptr[16];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-first.melt:4741:/ exit");
-         /*exit*/{
-          goto labexit_FINDLOOP_4;}
-         ;}
-        ;
-        MELT_LOCATION("warmelt-first.melt:4739:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4737:/ clear");
-      /*clear*/ /*_.OLDBINDING__V18*/ curfptr[16] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4743:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V19*/ curfptr[16] = slot; };
-     ;
-     MELT_LOCATION("warmelt-first.melt:4743:/ compute");
-     /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V20*/ curfptr[19] = /*_.ENV_PREV__V19*/ curfptr[16];;
-     /*_.LET___V14*/ curfptr[13] = /*_.SETQ___V20*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4735:/ clear");
-     /*clear*/ /*_.BINDMAP__V15*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4735:/ clear");
-     /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4735:/ clear");
-     /*clear*/ /*_.ENV_PREV__V19*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4735:/ clear");
-     /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4733:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4733:/ clear");
-    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4733:/ clear");
-    /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
-   ;
-   ;
-    goto labloop_FINDLOOP_4;
-    labexit_FINDLOOP_4:;MELT_LOCATION("warmelt-first.melt:4733:/ loopepilog");
-  /*loopepilog*/
-   /*_.FOREVER___V12*/ curfptr[10] = /*_.FINDLOOP__V13*/ curfptr[12];;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.FOREVER___V12*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4731:/ clear");
-  /*clear*/ /*_.BINDERV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4731:/ clear");
-  /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4731:/ clear");
-  /*clear*/ /*_.FOREVER___V12*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-first.melt:4725:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-first.melt:4725:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4725:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4725:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4725:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OVERWRITE_ENV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_110_warmelt_first_OVERWRITE_ENV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_111_warmelt_first_DEBUG_MSG_FUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_first_DEBUG_MSG_FUN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-const char* loc_CSTRING__o0;
-const char* loc_CSTRING__o1;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DEBUG_MSG_FUN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4748:/ getarg");
- /*_.VAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4748:/ getarg");
- if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
- /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4748:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#COUNT__L1*/ curfnum[0] = xargtab_[1].bp_long;
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-first.melt:4748:/ getarg");
- if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs;
- /*_?*/ curfram__.loc_CSTRING__o1 = xargtab_[2].bp_cstring;
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-first.melt:4748:/ getarg");
- if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs;
- /*_#LINENO__L2*/ curfnum[1] = xargtab_[3].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4748:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-first.melt:4752:/ locexp");
- ++melt_dbgcounter;}
- ;
- /*_#NEED_DBG__L3*/ curfnum[2] = 
-  (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);;
- MELT_LOCATION("warmelt-first.melt:4753:/ cond");
- /*cond*/ if (/*_#NEED_DBG__L3*/ curfnum[2]) /*then*/ {
- MELT_LOCATION("warmelt-first.melt:4753:/ cond.then");
- MELT_LOCATION("warmelt-first.melt:4753:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4754:/ block");
-   /*block*/{
-    /*_#DBGCOUNTER__L4*/ curfnum[3] = 0;;
-    MELT_LOCATION("warmelt-first.melt:4755:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[1])))) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4755:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:4755:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), 20, "SYSDATA_DUMPFILE");/*_.OUT__V3*/ curfptr[2] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-first.melt:4755:/ cond.else");
-    
-     /*_.OUT__V3*/ curfptr[2] = NULL;;
-     }
-    ;
-    /*_.OCCMAP__V4*/ curfptr[3] = 
-     (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (50)));;
-    /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 
-     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (17)));;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4759:/ locexp");
-    /*_#DBGCOUNTER__L4*/ curfnum[3] = melt_dbgcounter;}
-    ;
-    /*_#NULL__L5*/ curfnum[4] = 
-     ((/*_.OUT__V3*/ curfptr[2]) == NULL);;
-    MELT_LOCATION("warmelt-first.melt:4762:/ cond");
-    /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4762:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:4762:/ block");
-     /*block*/{
-      /*_.MAKE_STRBUF__V7*/ curfptr[6] = 
-       meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-      MELT_LOCATION("warmelt-first.melt:4763:/ compute");
-      /*_.OUT__V3*/ curfptr[2] = /*_.SETQ___V8*/ curfptr[7] = /*_.MAKE_STRBUF__V7*/ curfptr[6];;
-      /*_.IF___V6*/ curfptr[5] = /*_.SETQ___V8*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4762:/ clear");
-      /*clear*/ /*_.MAKE_STRBUF__V7*/ curfptr[6] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4762:/ clear");
-      /*clear*/ /*_.SETQ___V8*/ curfptr[7] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-first.melt:4762:/ cond.else");
-    
-     /*_.IF___V6*/ curfptr[5] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-first.melt:4764:/ cppif.then");
-    MELT_LOCATION("warmelt-first.melt:4764:/ block");
-     /*block*/{
-      /*_#IS_OUT__L6*/ curfnum[5] = 
-        (melt_is_out ((melt_ptr_t) /*_.OUT__V3*/ curfptr[2])) ;;
-      MELT_LOCATION("warmelt-first.melt:4764:/ cond");
-      /*cond*/ if (/*_#IS_OUT__L6*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-first.melt:4764:/ cond.then");
-      /*_.IFELSE___V10*/ curfptr[7] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-first.melt:4764:/ cond.else");
-      
-       MELT_LOCATION("warmelt-first.melt:4764:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-first.melt:4764:/ locexp");
-         melt_assert_failed(( "check good out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4764)?(4764):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V9*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4764:/ clear");
-      /*clear*/ /*_#IS_OUT__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4764:/ clear");
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-first.melt:4764:/ cppif.else");
-    /*_.IFCPP___V9*/ curfptr[6] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-first.melt:4765:/ block");
-    /*block*/{
-     /*_#NULLOUTFILE__L7*/ curfnum[5] = 0;;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4766:/ locexp");
-      
-		      if (melt_is_file(/*_.OUT__V3*/ curfptr[2]))
-		      /*_#NULLOUTFILE__L7*/ curfnum[5] = (melt_get_file(/*_.OUT__V3*/ curfptr[2])==NULL)?1:0	;
-		      ;}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4770:/ cond");
-     /*cond*/ if (/*_#NULLOUTFILE__L7*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4770:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4770:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4772:/ locexp");
-        
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "debug_msg_fun null output file"), (5));
-#endif
-;}
-       ;
-       MELT_LOCATION("warmelt-first.melt:4773:/ cond");
-       /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[1])))) /*then*/ {
-       MELT_LOCATION("warmelt-first.melt:4773:/ cond.then");
-       MELT_LOCATION("warmelt-first.melt:4773:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), 19, "SYSDATA_STDERR");/*_.SYSDATA_STDERR__V13*/ curfptr[12] = slot; };
-        ;
-       } else {MELT_LOCATION("warmelt-first.melt:4773:/ cond.else");
-       
-        /*_.SYSDATA_STDERR__V13*/ curfptr[12] = NULL;;
-        }
-       ;
-       MELT_LOCATION("warmelt-first.melt:4773:/ compute");
-       /*_.OUT__V3*/ curfptr[2] = /*_.SETQ___V14*/ curfptr[13] = /*_.SYSDATA_STDERR__V13*/ curfptr[12];;
-       MELT_LOCATION("warmelt-first.melt:4771:/ block");
-       /*block*/{
-        /*_.PROGN___V15*/ curfptr[14] = /*_.SETQ___V14*/ curfptr[13];;}
-       ;
-       /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V15*/ curfptr[14];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4770:/ clear");
-       /*clear*/ /*_.SYSDATA_STDERR__V13*/ curfptr[12] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4770:/ clear");
-       /*clear*/ /*_.SETQ___V14*/ curfptr[13] = 0 ;
-       MELT_LOCATION("warmelt-first.melt:4770:/ clear");
-       /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:4770:/ cond.else");
-     
-      /*_.IF___V12*/ curfptr[11] = NULL;;
-      }
-     ;
-     /*_.LET___V11*/ curfptr[7] = /*_.IF___V12*/ curfptr[11];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4765:/ clear");
-     /*clear*/ /*_#NULLOUTFILE__L7*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4765:/ clear");
-     /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4775:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4776:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4776:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[5])), (3), "CLASS_DEBUG_INFORMATION");/*_.INST__V17*/ curfptr[13] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-first.melt:4776:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (0), (/*_.OUT__V3*/ curfptr[2]), "DBGI_OUT");
-      ;
-      MELT_LOCATION("warmelt-first.melt:4776:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (1), (/*_.OCCMAP__V4*/ curfptr[3]), "DBGI_OCCMAP");
-      ;
-      MELT_LOCATION("warmelt-first.melt:4776:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (2), (/*_.BOXEDMAXDEPTH__V5*/ curfptr[4]), "DBGI_MAXDEPTH");
-      ;
-      /*_.DBGI__V16*/ curfptr[12] = /*_.INST__V17*/ curfptr[13];;}
-     ;
-     /*_#FRAMDEPTH__L8*/ curfnum[5] = 
-      (melt_curframdepth());;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4782:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "!!!!****####"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4783:/ locexp");
-     meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#DBGCOUNTER__L4*/ curfnum[3]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4784:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "#^"));}
-     ;
-     /*_#I__L9*/ curfnum[8] = 
-      ((/*_#FRAMDEPTH__L8*/ curfnum[5]) - (1));;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4785:/ locexp");
-     meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#I__L9*/ curfnum[8]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4786:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));}
-     ;
-     MELT_LOCATION("warmelt-first.melt:4787:/ cond");
-     /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o1) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4787:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4787:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4789:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o1));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4790:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4791:/ locexp");
-       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#LINENO__L2*/ curfnum[1]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4792:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));}
-       ;
-       MELT_LOCATION("warmelt-first.melt:4788:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4794:/ locexp");
-     meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o0));}
-     ;
-     /*_#I__L10*/ curfnum[9] = 
-      ((/*_#COUNT__L1*/ curfnum[0]) > (0));;
-     MELT_LOCATION("warmelt-first.melt:4795:/ cond");
-     /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4795:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4795:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4797:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( " !"));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4798:/ locexp");
-       meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#COUNT__L1*/ curfnum[0]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4799:/ locexp");
-       meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ": "));}
-       ;
-       MELT_LOCATION("warmelt-first.melt:4796:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-first.melt:4801:/ cond");
-     /*cond*/ if (/*_.VAL__V2*/ curfptr[1]) /*then*/ {
-     MELT_LOCATION("warmelt-first.melt:4801:/ cond.then");
-     MELT_LOCATION("warmelt-first.melt:4801:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-first.melt:4802:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[2];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-first.melt:4802:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V16*/ curfptr[12];
-        MELT_LOCATION("warmelt-first.melt:4802:/ apply.arg");
-        argtab[1].bp_long = 0;
-        /*_.DBG_OUT__V19*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.VAL__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFELSE___V18*/ curfptr[14] = /*_.DBG_OUT__V19*/ curfptr[11];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-first.melt:4801:/ clear");
-       /*clear*/ /*_.DBG_OUT__V19*/ curfptr[11] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-first.melt:4801:/ cond.else");
-     
-      MELT_LOCATION("warmelt-first.melt:4801:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-first.melt:4803:/ locexp");
-        meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "() ;;;NIL!!!"));}
-        ;
-        /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-first.melt:4805:/ locexp");
-     meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (0), 0);}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-first.melt:4775:/ clear");
-     /*clear*/ /*_.DBGI__V16*/ curfptr[12] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4775:/ clear");
-     /*clear*/ /*_#FRAMDEPTH__L8*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4775:/ clear");
-     /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4775:/ clear");
-     /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-first.melt:4775:/ clear");
-     /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;}
-    ;
-    /*_#IS_STRBUF__L11*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-    MELT_LOCATION("warmelt-first.melt:4807:/ cond");
-    /*cond*/ if (/*_#IS_STRBUF__L11*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4807:/ cond.then");
-    MELT_LOCATION("warmelt-first.melt:4807:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4809:/ locexp");
-      
-			  fprintf (stderr, "\n**debug_msg thru strbuffer:\n%s\n",
-					   melt_strbuf_str (/*_.OUT__V3*/ curfptr[2])) ;
-			  fflush (stderr) ;
-			  ;}
-      ;
-      MELT_LOCATION("warmelt-first.melt:4808:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_#DBGCOUNTER__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_.OUT__V3*/ curfptr[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_.OCCMAP__V4*/ curfptr[3] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_.IFCPP___V9*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_.LET___V11*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4754:/ clear");
-    /*clear*/ /*_#IS_STRBUF__L11*/ curfnum[5] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4748:/ clear");
- /*clear*/ /*_#NEED_DBG__L3*/ curfnum[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DEBUG_MSG_FUN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_111_warmelt_first_DEBUG_MSG_FUN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DBGOUT_ANYBINDING_METHOD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4818:/ getarg");
- /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4818:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-first.melt:4818:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4818:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4819:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4819:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-first.melt:4819:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4819:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4819:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4819:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4819:/ locexp");
-      melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4819)?(4819):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4819:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4819:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4819:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-first.melt:4820:/ cppif.then");
- MELT_LOCATION("warmelt-first.melt:4820:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-first.melt:4820:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4820:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-first.melt:4820:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4820:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4820:/ locexp");
-      melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4820)?(4820):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4820:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4820:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-first.melt:4820:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-first.melt:4821:/ block");
- /*block*/{
-  /*_.DIS__V8*/ curfptr[6] = 
-   (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-first.melt:4822:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-first.melt:4823:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDERV__V10*/ curfptr[9] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4825:/ locexp");
-  meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#DEPTH__L1*/ curfnum[0]), 64);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4826:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "[~"));}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4827:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V11*/ curfptr[10] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4827:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V11*/ curfptr[10])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4828:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "/"));}
-  ;
-  /*_#OBJ_HASH__L4*/ curfnum[1] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4829:/ locexp");
-  meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OBJ_HASH__L4*/ curfnum[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4830:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( ":"));}
-  ;
-  /*_#I__L5*/ curfnum[4] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (2));;
-  MELT_LOCATION("warmelt-first.melt:4831:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4831:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-first.melt:4831:/ ojbmsend.arg");
-   argtab[1].bp_long = /*_#I__L5*/ curfnum[4];
-   /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.BINDERV__V10*/ curfptr[9]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:4832:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#GET_INT__L6*/ curfnum[5] = 
-   (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12])));;
-  /*_#NEED_DBGLIM__L7*/ curfnum[6] = 
-   (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount
-		     && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[5]));;
-  MELT_LOCATION("warmelt-first.melt:4832:/ cond");
-  /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4832:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4832:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4834:/ locexp");
-    meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "; "));}
-    ;
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-first.melt:4835:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4835:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-first.melt:4835:/ apply.arg");
-     argtab[1].bp_long = /*_#I__L8*/ curfnum[7];
-     MELT_LOCATION("warmelt-first.melt:4835:/ apply.arg");
-     argtab[2].bp_long = 1;
-     MELT_LOCATION("warmelt-first.melt:4835:/ apply.arg");
-     argtab[3].bp_long = 0;
-     /*_.DBGOUT_FIELDS__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-first.melt:4833:/ block");
-    /*block*/{
-     /*_.PROGN___V16*/ curfptr[15] = /*_.DBGOUT_FIELDS__V15*/ curfptr[14];;}
-    ;
-    /*_.IF___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4832:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4832:/ clear");
-    /*clear*/ /*_.DBGOUT_FIELDS__V15*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4832:/ clear");
-    /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4832:/ cond.else");
-  
-   /*_.IF___V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-first.melt:4837:/ locexp");
-  meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "~]"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.OUT__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.BINDERV__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4821:/ clear");
-  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-first.melt:4818:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-first.melt:4818:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DBGOUT_ANYBINDING_METHOD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_113_warmelt_first_POST_INITIALIZATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_first_POST_INITIALIZATION_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-const char* loc_CSTRING__o0;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("POST_INITIALIZATION", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-first.melt:4854:/ getarg");
- /*_.UNUSEDARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-first.melt:4854:/ getarg");
- if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
- /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-first.melt:4854:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-first.melt:4855:/ block");
- /*block*/{
-  /*_.CURMODENVCONT__V3*/ curfptr[2] = 
-   /*quasi.cur.mod.env.cont */
-(/*!konst_0*/ curfrout->tabval[0]);;
-  /*_#IS_A__L1*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[1])));;
-  /*_#NOT__L2*/ curfnum[1] = 
-   (!(/*_#IS_A__L1*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-first.melt:4856:/ cond");
-  /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4856:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4856:/ block");
-   /*block*/{
-    /*_.DISCRIM__V5*/ curfptr[4] = 
-     (melt_discr((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2])));;
-    MELT_LOCATION("warmelt-first.melt:4859:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V5*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-first.melt:4858:/ locexp");
-    warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "post_initialization strange curmodenvcont of discr"), 
-	       melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5])));}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4860:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-first.melt:4860:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-first.melt:4857:/ block");
-    /*block*/{
-     /*_.PROGN___V8*/ curfptr[7] = /*_.RETURN___V7*/ curfptr[6];;}
-    ;
-    /*_.IF___V4*/ curfptr[3] = /*_.PROGN___V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4856:/ clear");
-    /*clear*/ /*_.DISCRIM__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4856:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4856:/ clear");
-    /*clear*/ /*_.RETURN___V7*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4856:/ clear");
-    /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-first.melt:4856:/ cond.else");
-  
-   /*_.IF___V4*/ curfptr[3] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4862:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4862:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
-     callcount;;
-    MELT_LOCATION("warmelt-first.melt:4862:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4862:/ apply.arg");
-     argtab[0].bp_cstring =  "post_initialization curmodenvcont at start";
-     MELT_LOCATION("warmelt-first.melt:4862:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
-     MELT_LOCATION("warmelt-first.melt:4862:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-first.melt";
-     MELT_LOCATION("warmelt-first.melt:4862:/ apply.arg");
-     argtab[3].bp_long = 4862;
-     /*_.DEBUG_MSG_FUN__V10*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[5];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4862:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4862:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[5] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4862:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[4] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-first.melt:4864:/ cppif.then");
-  MELT_LOCATION("warmelt-first.melt:4864:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[2] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-first.melt:4864:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-first.melt:4864:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[7] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-first.melt:4864:/ cond.else");
-    
-     MELT_LOCATION("warmelt-first.melt:4864:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-first.melt:4864:/ locexp");
-       melt_assert_failed(( "check curmodenvcont"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__,
-  (4864)?(4864):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[7] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[6] = /*_.IFELSE___V12*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4864:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4864:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[7] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-first.melt:4864:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[6] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-first.melt:4865:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-first.melt:4865:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), 0, "CONTAINER_VALUE");/*_.CURMODENV__V13*/ curfptr[5] = slot; };
-   ;
-   /*_#IS_A__L5*/ curfnum[2] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-first.melt:4866:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-first.melt:4866:/ cond.then");
-   MELT_LOCATION("warmelt-first.melt:4866:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4867:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-first.melt:4867:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5]), 0, "ENV_BIND");/*_.CURBINDMAP__V14*/ curfptr[7] = slot; };
-      ;
-      /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 
-       (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.CURBINDMAP__V14*/ curfptr[7])));;
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4869:/ locexp");
-      inform(UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s * %ld",  melt_dbgcounter, ( "post_initialization boundvars num"), (/*_#MAPOBJECT_COUNT__L6*/ curfnum[5]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4867:/ clear");
-      /*clear*/ /*_.CURBINDMAP__V14*/ curfptr[7] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4867:/ clear");
-      /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-   } else {MELT_LOCATION("warmelt-first.melt:4866:/ cond.else");
-   
-    MELT_LOCATION("warmelt-first.melt:4866:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-first.melt:4872:/ block");
-     /*block*/{
-      /*_.CURMENVDISCR__V15*/ curfptr[7] = 
-       (melt_discr((melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5])));;
-      MELT_LOCATION("warmelt-first.melt:4874:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMENVDISCR__V15*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-first.melt:4873:/ locexp");
-      inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "post_initialization strange curmodenv of discr"), 
-			     melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-first.melt:4872:/ clear");
-      /*clear*/ /*_.CURMENVDISCR__V15*/ curfptr[7] = 0 ;
-      MELT_LOCATION("warmelt-first.melt:4872:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4865:/ clear");
-   /*clear*/ /*_.CURMODENV__V13*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4865:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4855:/ clear");
-  /*clear*/ /*_.CURMODENVCONT__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4855:/ clear");
-  /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4855:/ clear");
-  /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4855:/ clear");
-  /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4855:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4855:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[6] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("POST_INITIALIZATION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_113_warmelt_first_POST_INITIALIZATION*/
-
-
-
 typedef 
  struct frame_start_module_melt_st { unsigned nbvar;
 #if ENABLE_CHECKING
@@ -27624,8 +8851,8 @@ typedef
   struct meltclosure_st *noinitialclos;
   struct excepth_melt_st *exh;
   struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4551
-  void* varptr[4551];
+#define CURFRAM_NBVARPTR 4543
+  void* varptr[4543];
 /*no varnum*/
 #define CURFRAM_NBVARNUM /*none*/0
 /*others*/
@@ -28389,7 +9616,7 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini
   struct MELT_OBJECT_STRUCT(8) dobj_749__CLASS_MODULE_CONTEXT;
   struct MELT_STRING_STRUCT(20) dstr_750__CLASS_MODULE_CON;
   struct MELT_MULTIPLE_STRUCT(1) dtup_751__CLASS_MODULE_CONTEXT;
-  struct MELT_MULTIPLE_STRUCT(6) dtup_752__CLASS_MODULE_CONTEXT;
+  struct MELT_MULTIPLE_STRUCT(4) dtup_752__CLASS_MODULE_CONTEXT;
   struct MELT_OBJECT_STRUCT(3) dsym_753__MOCX_MODULENAME;
   struct MELT_STRING_STRUCT(15) dstr_754__MOCX_MODULENAME;
   struct MELT_OBJECT_STRUCT(4) dobj_755__MOCX_MODULENAME;
@@ -28406,3700 +9633,3692 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini
   struct MELT_STRING_STRUCT(15) dstr_766__MOCX_INITIALENV;
   struct MELT_OBJECT_STRUCT(4) dobj_767__MOCX_INITIALENV;
   struct MELT_STRING_STRUCT(15) dstr_768__MOCX_INITIALENV;
-  struct MELT_OBJECT_STRUCT(3) dsym_769__MOCX_FUNCOUNT;
-  struct MELT_STRING_STRUCT(13) dstr_770__MOCX_FUNCOUNT;
-  struct MELT_OBJECT_STRUCT(4) dobj_771__MOCX_FUNCOUNT;
-  struct MELT_STRING_STRUCT(13) dstr_772__MOCX_FUNCOUNT;
-  struct MELT_OBJECT_STRUCT(3) dsym_773__MOCX_FILETUPLE;
-  struct MELT_STRING_STRUCT(14) dstr_774__MOCX_FILETUPLE;
-  struct MELT_OBJECT_STRUCT(4) dobj_775__MOCX_FILETUPLE;
-  struct MELT_STRING_STRUCT(14) dstr_776__MOCX_FILETUPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_777__CLASS_NORMALIZATION_CONTEXT;
-  struct MELT_STRING_STRUCT(27) dstr_778__CLASS_NORMALIZAT;
-  struct MELT_OBJECT_STRUCT(8) dobj_779__CLASS_NORMALIZATION_CONTEXT;
-  struct MELT_STRING_STRUCT(27) dstr_780__CLASS_NORMALIZAT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_781__CLASS_NORMALIZATION_CONTEXT;
-  struct MELT_MULTIPLE_STRUCT(15) dtup_782__CLASS_NORMALIZATION_CONTEXT;
-  struct MELT_OBJECT_STRUCT(3) dsym_783__NCTX_INITPROC;
-  struct MELT_STRING_STRUCT(13) dstr_784__NCTX_INITPROC;
-  struct MELT_OBJECT_STRUCT(4) dobj_785__NCTX_INITPROC;
-  struct MELT_STRING_STRUCT(13) dstr_786__NCTX_INITPROC;
-  struct MELT_OBJECT_STRUCT(3) dsym_787__NCTX_PROCLIST;
-  struct MELT_STRING_STRUCT(13) dstr_788__NCTX_PROCLIST;
-  struct MELT_OBJECT_STRUCT(4) dobj_789__NCTX_PROCLIST;
-  struct MELT_STRING_STRUCT(13) dstr_790__NCTX_PROCLIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_791__NCTX_DATALIST;
-  struct MELT_STRING_STRUCT(13) dstr_792__NCTX_DATALIST;
-  struct MELT_OBJECT_STRUCT(4) dobj_793__NCTX_DATALIST;
-  struct MELT_STRING_STRUCT(13) dstr_794__NCTX_DATALIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_795__NCTX_VALUELIST;
-  struct MELT_STRING_STRUCT(14) dstr_796__NCTX_VALUELIST;
-  struct MELT_OBJECT_STRUCT(4) dobj_797__NCTX_VALUELIST;
-  struct MELT_STRING_STRUCT(14) dstr_798__NCTX_VALUELIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_799__NCTX_SYMBMAP;
-  struct MELT_STRING_STRUCT(12) dstr_800__NCTX_SYMBMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_801__NCTX_SYMBMAP;
-  struct MELT_STRING_STRUCT(12) dstr_802__NCTX_SYMBMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_803__NCTX_KEYWMAP;
-  struct MELT_STRING_STRUCT(12) dstr_804__NCTX_KEYWMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_805__NCTX_KEYWMAP;
-  struct MELT_STRING_STRUCT(12) dstr_806__NCTX_KEYWMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_807__NCTX_SYMBCACHEMAP;
-  struct MELT_STRING_STRUCT(17) dstr_808__NCTX_SYMBCACHEMA;
-  struct MELT_OBJECT_STRUCT(4) dobj_809__NCTX_SYMBCACHEMAP;
-  struct MELT_STRING_STRUCT(17) dstr_810__NCTX_SYMBCACHEMA;
-  struct MELT_OBJECT_STRUCT(3) dsym_811__NCTX_PREDEFMAP;
-  struct MELT_STRING_STRUCT(14) dstr_812__NCTX_PREDEFMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_813__NCTX_PREDEFMAP;
-  struct MELT_STRING_STRUCT(14) dstr_814__NCTX_PREDEFMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_815__NCTX_VALMAP;
-  struct MELT_STRING_STRUCT(11) dstr_816__NCTX_VALMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_817__NCTX_VALMAP;
-  struct MELT_STRING_STRUCT(11) dstr_818__NCTX_VALMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_819__NCTX_VALBINDMAP;
-  struct MELT_STRING_STRUCT(15) dstr_820__NCTX_VALBINDMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_821__NCTX_VALBINDMAP;
-  struct MELT_STRING_STRUCT(15) dstr_822__NCTX_VALBINDMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_823__NCTX_CURPROC;
-  struct MELT_STRING_STRUCT(12) dstr_824__NCTX_CURPROC;
-  struct MELT_OBJECT_STRUCT(4) dobj_825__NCTX_CURPROC;
-  struct MELT_STRING_STRUCT(12) dstr_826__NCTX_CURPROC;
-  struct MELT_OBJECT_STRUCT(3) dsym_827__NCTX_MODULCONTEXT;
-  struct MELT_STRING_STRUCT(17) dstr_828__NCTX_MODULCONTEX;
-  struct MELT_OBJECT_STRUCT(4) dobj_829__NCTX_MODULCONTEXT;
-  struct MELT_STRING_STRUCT(17) dstr_830__NCTX_MODULCONTEX;
-  struct MELT_OBJECT_STRUCT(3) dsym_831__NCTX_QDATCURMODENVBOX;
-  struct MELT_STRING_STRUCT(21) dstr_832__NCTX_QDATCURMODE;
-  struct MELT_OBJECT_STRUCT(4) dobj_833__NCTX_QDATCURMODENVBOX;
-  struct MELT_STRING_STRUCT(21) dstr_834__NCTX_QDATCURMODE;
-  struct MELT_OBJECT_STRUCT(3) dsym_835__NCTX_QDATPARMODENV;
-  struct MELT_STRING_STRUCT(18) dstr_836__NCTX_QDATPARMODE;
-  struct MELT_OBJECT_STRUCT(4) dobj_837__NCTX_QDATPARMODENV;
-  struct MELT_STRING_STRUCT(18) dstr_838__NCTX_QDATPARMODE;
-  struct MELT_OBJECT_STRUCT(3) dsym_839__NCTX_PROCURMODENVLIST;
-  struct MELT_STRING_STRUCT(21) dstr_840__NCTX_PROCURMODEN;
-  struct MELT_OBJECT_STRUCT(4) dobj_841__NCTX_PROCURMODENVLIST;
-  struct MELT_STRING_STRUCT(21) dstr_842__NCTX_PROCURMODEN;
-  struct MELT_OBJECT_STRUCT(3) dsym_843__CLASS_C_GENERATION_CONTEXT;
-  struct MELT_STRING_STRUCT(26) dstr_844__CLASS_C_GENERATI;
-  struct MELT_OBJECT_STRUCT(8) dobj_845__CLASS_C_GENERATION_CONTEXT;
-  struct MELT_STRING_STRUCT(26) dstr_846__CLASS_C_GENERATI;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_847__CLASS_C_GENERATION_CONTEXT;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_848__CLASS_C_GENERATION_CONTEXT;
-  struct MELT_OBJECT_STRUCT(3) dsym_849__GNCX_OBJROUT;
-  struct MELT_STRING_STRUCT(12) dstr_850__GNCX_OBJROUT;
-  struct MELT_OBJECT_STRUCT(4) dobj_851__GNCX_OBJROUT;
-  struct MELT_STRING_STRUCT(12) dstr_852__GNCX_OBJROUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_853__GNCX_LOCMAP;
-  struct MELT_STRING_STRUCT(11) dstr_854__GNCX_LOCMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_855__GNCX_LOCMAP;
-  struct MELT_STRING_STRUCT(11) dstr_856__GNCX_LOCMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_857__GNCX_FREEPTRLIST;
-  struct MELT_STRING_STRUCT(16) dstr_858__GNCX_FREEPTRLIST;
-  struct MELT_OBJECT_STRUCT(4) dobj_859__GNCX_FREEPTRLIST;
-  struct MELT_STRING_STRUCT(16) dstr_860__GNCX_FREEPTRLIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_861__GNCX_FREELONGLIST;
-  struct MELT_STRING_STRUCT(17) dstr_862__GNCX_FREELONGLIS;
-  struct MELT_OBJECT_STRUCT(4) dobj_863__GNCX_FREELONGLIST;
-  struct MELT_STRING_STRUCT(17) dstr_864__GNCX_FREELONGLIS;
-  struct MELT_OBJECT_STRUCT(3) dsym_865__GNCX_FREEOTHERMAPS;
-  struct MELT_STRING_STRUCT(18) dstr_866__GNCX_FREEOTHERMA;
-  struct MELT_OBJECT_STRUCT(4) dobj_867__GNCX_FREEOTHERMAPS;
-  struct MELT_STRING_STRUCT(18) dstr_868__GNCX_FREEOTHERMA;
-  struct MELT_OBJECT_STRUCT(3) dsym_869__GNCX_RETLOC;
-  struct MELT_STRING_STRUCT(11) dstr_870__GNCX_RETLOC;
-  struct MELT_OBJECT_STRUCT(4) dobj_871__GNCX_RETLOC;
-  struct MELT_STRING_STRUCT(11) dstr_872__GNCX_RETLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_873__GNCX_COMPICACHE;
-  struct MELT_STRING_STRUCT(15) dstr_874__GNCX_COMPICACHE;
-  struct MELT_OBJECT_STRUCT(4) dobj_875__GNCX_COMPICACHE;
-  struct MELT_STRING_STRUCT(15) dstr_876__GNCX_COMPICACHE;
-  struct MELT_OBJECT_STRUCT(3) dsym_877__GNCX_MODULCONTEXT;
-  struct MELT_STRING_STRUCT(17) dstr_878__GNCX_MODULCONTEX;
-  struct MELT_OBJECT_STRUCT(4) dobj_879__GNCX_MODULCONTEXT;
-  struct MELT_STRING_STRUCT(17) dstr_880__GNCX_MODULCONTEX;
-  struct MELT_OBJECT_STRUCT(3) dsym_881__GNCX_MATCHMAP;
-  struct MELT_STRING_STRUCT(13) dstr_882__GNCX_MATCHMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_883__GNCX_MATCHMAP;
-  struct MELT_STRING_STRUCT(13) dstr_884__GNCX_MATCHMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_885__CLASS_INITIAL_GENERATION_CONTEXT;
-  struct MELT_STRING_STRUCT(32) dstr_886__CLASS_INITIAL_GE;
-  struct MELT_OBJECT_STRUCT(8) dobj_887__CLASS_INITIAL_GENERATION_CONTEXT;
-  struct MELT_STRING_STRUCT(32) dstr_888__CLASS_INITIAL_GE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_889__CLASS_INITIAL_GENERATION_CONTEXT;
-  struct MELT_MULTIPLE_STRUCT(13) dtup_890__CLASS_INITIAL_GENERATION_CONTEXT;
-  struct MELT_OBJECT_STRUCT(3) dsym_891__IGNCX_PREVENVLOC;
-  struct MELT_STRING_STRUCT(16) dstr_892__IGNCX_PREVENVLOC;
-  struct MELT_OBJECT_STRUCT(4) dobj_893__IGNCX_PREVENVLOC;
-  struct MELT_STRING_STRUCT(16) dstr_894__IGNCX_PREVENVLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_895__IGNCX_CONTENVLOC;
-  struct MELT_STRING_STRUCT(16) dstr_896__IGNCX_CONTENVLOC;
-  struct MELT_OBJECT_STRUCT(4) dobj_897__IGNCX_CONTENVLOC;
-  struct MELT_STRING_STRUCT(16) dstr_898__IGNCX_CONTENVLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_899__IGNCX_PROCURMODENVLIST;
-  struct MELT_STRING_STRUCT(22) dstr_900__IGNCX_PROCURMODE;
-  struct MELT_OBJECT_STRUCT(4) dobj_901__IGNCX_PROCURMODENVLIST;
-  struct MELT_STRING_STRUCT(22) dstr_902__IGNCX_PROCURMODE;
-  struct MELT_OBJECT_STRUCT(3) dsym_903__IGNCX_IMPORTMAP;
-  struct MELT_STRING_STRUCT(15) dstr_904__IGNCX_IMPORTMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_905__IGNCX_IMPORTMAP;
-  struct MELT_STRING_STRUCT(15) dstr_906__IGNCX_IMPORTMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_907__CLASS_GENERATED_C_CODE;
-  struct MELT_STRING_STRUCT(22) dstr_908__CLASS_GENERATED_;
-  struct MELT_OBJECT_STRUCT(8) dobj_909__CLASS_GENERATED_C_CODE;
-  struct MELT_STRING_STRUCT(22) dstr_910__CLASS_GENERATED_;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_911__CLASS_GENERATED_C_CODE;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_912__CLASS_GENERATED_C_CODE;
-  struct MELT_OBJECT_STRUCT(3) dsym_913__IGNORE;
-  struct MELT_STRING_STRUCT(6) dstr_914__IGNORE;
-  struct MELT_OBJECT_STRUCT(5) dobj_915__IGNORE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_916__IGNORE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_917__IGNORE;
-  struct MELT_OBJECT_STRUCT(3) dsym_918__V;
-  struct MELT_STRING_STRUCT(1) dstr_919__V;
-  struct MELT_OBJECT_STRUCT(2) dobj_920;
-  struct MELT_STRING_STRUCT(17) dstr_921__ignore_void_;
-  struct MELT_STRING_STRUCT(1) dstr_922__;
-  struct MELT_STRING_STRUCT(6) dstr_923__IGNORE;
-  struct MELT_OBJECT_STRUCT(3) dsym_924__VOID;
-  struct MELT_STRING_STRUCT(4) dstr_925__VOID;
-  struct MELT_OBJECT_STRUCT(5) dobj_926__VOID;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_927__VOID;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_928__VOID;
-  struct MELT_STRING_STRUCT(9) dstr_929__void_0;
-  struct MELT_STRING_STRUCT(4) dstr_930__VOID;
-  struct MELT_OBJECT_STRUCT(3) dsym_931__STRINGCONST2VAL;
-  struct MELT_STRING_STRUCT(15) dstr_932__STRINGCONST2VAL;
-  struct MELT_OBJECT_STRUCT(5) dobj_933__STRINGCONST2VAL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_934__STRINGCONST2VAL;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_935__STRINGCONST2VAL;
-  struct MELT_OBJECT_STRUCT(3) dsym_936__DISCR;
-  struct MELT_STRING_STRUCT(5) dstr_937__DISCR;
-  struct MELT_OBJECT_STRUCT(2) dobj_938;
-  struct MELT_OBJECT_STRUCT(3) dsym_939__STRC;
-  struct MELT_STRING_STRUCT(4) dstr_940__STRC;
-  struct MELT_OBJECT_STRUCT(2) dobj_941;
-  struct MELT_STRING_STRUCT(37) dstr_942__meltgc_new_strin;
-  struct MELT_STRING_STRUCT(4) dstr_943__;
-  struct MELT_STRING_STRUCT(2) dstr_944__;
-  struct MELT_STRING_STRUCT(15) dstr_945__STRINGCONST2VAL;
-  struct MELT_OBJECT_STRUCT(3) dsym_946__IS_A;
-  struct MELT_STRING_STRUCT(4) dstr_947__IS_A;
-  struct MELT_OBJECT_STRUCT(5) dobj_948__IS_A;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_949__IS_A;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_950__IS_A;
-  struct MELT_OBJECT_STRUCT(3) dsym_951__OBJ;
-  struct MELT_STRING_STRUCT(3) dstr_952__OBJ;
-  struct MELT_OBJECT_STRUCT(2) dobj_953;
-  struct MELT_OBJECT_STRUCT(3) dsym_954__CLA;
-  struct MELT_STRING_STRUCT(3) dstr_955__CLA;
-  struct MELT_OBJECT_STRUCT(2) dobj_956;
-  struct MELT_STRING_STRUCT(33) dstr_957__melt_is_instance;
-  struct MELT_STRING_STRUCT(16) dstr_958__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_959__;
-  struct MELT_STRING_STRUCT(4) dstr_960__IS_A;
-  struct MELT_OBJECT_STRUCT(3) dsym_961__IS_NOT_A;
-  struct MELT_STRING_STRUCT(8) dstr_962__IS_NOT_A;
-  struct MELT_OBJECT_STRUCT(5) dobj_963__IS_NOT_A;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_964__IS_NOT_A;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_965__IS_NOT_A;
-  struct MELT_OBJECT_STRUCT(2) dobj_966;
-  struct MELT_OBJECT_STRUCT(2) dobj_967;
-  struct MELT_STRING_STRUCT(34) dstr_968__melt_is_instanc;
-  struct MELT_STRING_STRUCT(16) dstr_969__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_970__;
-  struct MELT_STRING_STRUCT(8) dstr_971__IS_NOT_A;
-  struct MELT_OBJECT_STRUCT(3) dsym_972__IS_OBJECT;
-  struct MELT_STRING_STRUCT(9) dstr_973__IS_OBJECT;
-  struct MELT_OBJECT_STRUCT(5) dobj_974__IS_OBJECT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_975__IS_OBJECT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_976__IS_OBJECT;
-  struct MELT_OBJECT_STRUCT(2) dobj_977;
-  struct MELT_STRING_STRUCT(31) dstr_978__melt_magic_disc;
-  struct MELT_STRING_STRUCT(19) dstr_979__OBMAG_OBJE;
-  struct MELT_STRING_STRUCT(9) dstr_980__IS_OBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_981__IS_NOT_OBJECT;
-  struct MELT_STRING_STRUCT(13) dstr_982__IS_NOT_OBJECT;
-  struct MELT_OBJECT_STRUCT(5) dobj_983__IS_NOT_OBJECT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_984__IS_NOT_OBJECT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_985__IS_NOT_OBJECT;
-  struct MELT_OBJECT_STRUCT(2) dobj_986;
-  struct MELT_STRING_STRUCT(31) dstr_987__melt_magic_disc;
-  struct MELT_STRING_STRUCT(19) dstr_988__OBMAG_OBJE;
-  struct MELT_STRING_STRUCT(13) dstr_989__IS_NOT_OBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_990__GET_GLOBPREDEF;
-  struct MELT_STRING_STRUCT(14) dstr_991__GET_GLOBPREDEF;
-  struct MELT_OBJECT_STRUCT(5) dobj_992__GET_GLOBPREDEF;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_993__GET_GLOBPREDEF;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_994__GET_GLOBPREDEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_995__IX;
-  struct MELT_STRING_STRUCT(2) dstr_996__IX;
-  struct MELT_OBJECT_STRUCT(2) dobj_997;
-  struct MELT_STRING_STRUCT(17) dstr_998__melt_globpredef;
-  struct MELT_STRING_STRUCT(2) dstr_999__;
-  struct MELT_STRING_STRUCT(14) dstr_1000__GET_GLOBPREDEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_1001__DISCRIM;
-  struct MELT_STRING_STRUCT(7) dstr_1002__DISCRIM;
-  struct MELT_OBJECT_STRUCT(5) dobj_1003__DISCRIM;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1004__DISCRIM;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1005__DISCRIM;
-  struct MELT_OBJECT_STRUCT(2) dobj_1006;
-  struct MELT_STRING_STRUCT(25) dstr_1007__melt_discr_mel;
-  struct MELT_STRING_STRUCT(3) dstr_1008__;
-  struct MELT_STRING_STRUCT(7) dstr_1009__DISCRIM;
-  struct MELT_OBJECT_STRUCT(3) dsym_1010__GET_INT;
-  struct MELT_STRING_STRUCT(7) dstr_1011__GET_INT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1012__GET_INT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1013__GET_INT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1014__GET_INT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1015;
-  struct MELT_STRING_STRUCT(27) dstr_1016__melt_get_int_m;
-  struct MELT_STRING_STRUCT(3) dstr_1017__;
-  struct MELT_STRING_STRUCT(7) dstr_1018__GET_INT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1019__PUT_INT;
-  struct MELT_STRING_STRUCT(7) dstr_1020__PUT_INT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1021__PUT_INT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1022__PUT_INT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1023__PUT_INT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1024;
-  struct MELT_OBJECT_STRUCT(3) dsym_1025__I;
-  struct MELT_STRING_STRUCT(1) dstr_1026__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1027;
-  struct MELT_STRING_STRUCT(26) dstr_1028__melt_put_int_me;
-  struct MELT_STRING_STRUCT(4) dstr_1029__;
-  struct MELT_STRING_STRUCT(2) dstr_1030__;
-  struct MELT_STRING_STRUCT(7) dstr_1031__PUT_INT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1032__OBJ_HASH;
-  struct MELT_STRING_STRUCT(8) dstr_1033__OBJ_HASH;
-  struct MELT_OBJECT_STRUCT(5) dobj_1034__OBJ_HASH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1035__OBJ_HASH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1036__OBJ_HASH;
-  struct MELT_OBJECT_STRUCT(2) dobj_1037;
-  struct MELT_STRING_STRUCT(28) dstr_1038__melt_obj_hash_;
-  struct MELT_STRING_STRUCT(3) dstr_1039__;
-  struct MELT_STRING_STRUCT(8) dstr_1040__OBJ_HASH;
-  struct MELT_OBJECT_STRUCT(3) dsym_1041__OBJ_LEN;
-  struct MELT_STRING_STRUCT(7) dstr_1042__OBJ_LEN;
-  struct MELT_OBJECT_STRUCT(5) dobj_1043__OBJ_LEN;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1044__OBJ_LEN;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1045__OBJ_LEN;
-  struct MELT_OBJECT_STRUCT(2) dobj_1046;
-  struct MELT_STRING_STRUCT(27) dstr_1047__melt_obj_len_m;
-  struct MELT_STRING_STRUCT(3) dstr_1048__;
-  struct MELT_STRING_STRUCT(7) dstr_1049__OBJ_LEN;
-  struct MELT_OBJECT_STRUCT(3) dsym_1050__OBJ_NUM;
-  struct MELT_STRING_STRUCT(7) dstr_1051__OBJ_NUM;
-  struct MELT_OBJECT_STRUCT(5) dobj_1052__OBJ_NUM;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1053__OBJ_NUM;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1054__OBJ_NUM;
-  struct MELT_OBJECT_STRUCT(2) dobj_1055;
-  struct MELT_STRING_STRUCT(27) dstr_1056__melt_obj_num_m;
-  struct MELT_STRING_STRUCT(3) dstr_1057__;
-  struct MELT_STRING_STRUCT(7) dstr_1058__OBJ_NUM;
-  struct MELT_OBJECT_STRUCT(3) dsym_1059__OBJ_SERIAL;
-  struct MELT_STRING_STRUCT(10) dstr_1060__OBJ_SERIAL;
-  struct MELT_OBJECT_STRUCT(5) dobj_1061__OBJ_SERIAL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1062__OBJ_SERIAL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1063__OBJ_SERIAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1064;
-  struct MELT_STRING_STRUCT(30) dstr_1065__melt_obj_serial;
-  struct MELT_STRING_STRUCT(3) dstr_1066__;
-  struct MELT_STRING_STRUCT(10) dstr_1067__OBJ_SERIAL;
-  struct MELT_OBJECT_STRUCT(3) dsym_1068__NONZERO_HASH;
-  struct MELT_STRING_STRUCT(12) dstr_1069__NONZERO_HASH;
-  struct MELT_OBJECT_STRUCT(5) dobj_1070__NONZERO_HASH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1071__NONZERO_HASH;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1072__NONZERO_HASH;
-  struct MELT_STRING_STRUCT(20) dstr_1073__melt_nonzerohas;
-  struct MELT_STRING_STRUCT(12) dstr_1074__NONZERO_HASH;
-  struct MELT_OBJECT_STRUCT(3) dsym_1075__;
-  struct MELT_STRING_STRUCT(2) dstr_1076__;
-  struct MELT_OBJECT_STRUCT(5) dobj_1077__;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1078__;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1079__;
-  struct MELT_OBJECT_STRUCT(3) dsym_1080__A;
-  struct MELT_STRING_STRUCT(1) dstr_1081__A;
-  struct MELT_OBJECT_STRUCT(2) dobj_1082;
-  struct MELT_OBJECT_STRUCT(3) dsym_1083__B;
-  struct MELT_STRING_STRUCT(1) dstr_1084__B;
-  struct MELT_OBJECT_STRUCT(2) dobj_1085;
-  struct MELT_STRING_STRUCT(2) dstr_1086__;
-  struct MELT_STRING_STRUCT(6) dstr_1087__;
-  struct MELT_STRING_STRUCT(2) dstr_1088__;
+  struct MELT_OBJECT_STRUCT(3) dsym_769__CLASS_NORMALIZATION_CONTEXT;
+  struct MELT_STRING_STRUCT(27) dstr_770__CLASS_NORMALIZAT;
+  struct MELT_OBJECT_STRUCT(8) dobj_771__CLASS_NORMALIZATION_CONTEXT;
+  struct MELT_STRING_STRUCT(27) dstr_772__CLASS_NORMALIZAT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_773__CLASS_NORMALIZATION_CONTEXT;
+  struct MELT_MULTIPLE_STRUCT(15) dtup_774__CLASS_NORMALIZATION_CONTEXT;
+  struct MELT_OBJECT_STRUCT(3) dsym_775__NCTX_INITPROC;
+  struct MELT_STRING_STRUCT(13) dstr_776__NCTX_INITPROC;
+  struct MELT_OBJECT_STRUCT(4) dobj_777__NCTX_INITPROC;
+  struct MELT_STRING_STRUCT(13) dstr_778__NCTX_INITPROC;
+  struct MELT_OBJECT_STRUCT(3) dsym_779__NCTX_PROCLIST;
+  struct MELT_STRING_STRUCT(13) dstr_780__NCTX_PROCLIST;
+  struct MELT_OBJECT_STRUCT(4) dobj_781__NCTX_PROCLIST;
+  struct MELT_STRING_STRUCT(13) dstr_782__NCTX_PROCLIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_783__NCTX_DATALIST;
+  struct MELT_STRING_STRUCT(13) dstr_784__NCTX_DATALIST;
+  struct MELT_OBJECT_STRUCT(4) dobj_785__NCTX_DATALIST;
+  struct MELT_STRING_STRUCT(13) dstr_786__NCTX_DATALIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_787__NCTX_VALUELIST;
+  struct MELT_STRING_STRUCT(14) dstr_788__NCTX_VALUELIST;
+  struct MELT_OBJECT_STRUCT(4) dobj_789__NCTX_VALUELIST;
+  struct MELT_STRING_STRUCT(14) dstr_790__NCTX_VALUELIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_791__NCTX_SYMBMAP;
+  struct MELT_STRING_STRUCT(12) dstr_792__NCTX_SYMBMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_793__NCTX_SYMBMAP;
+  struct MELT_STRING_STRUCT(12) dstr_794__NCTX_SYMBMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_795__NCTX_KEYWMAP;
+  struct MELT_STRING_STRUCT(12) dstr_796__NCTX_KEYWMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_797__NCTX_KEYWMAP;
+  struct MELT_STRING_STRUCT(12) dstr_798__NCTX_KEYWMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_799__NCTX_SYMBCACHEMAP;
+  struct MELT_STRING_STRUCT(17) dstr_800__NCTX_SYMBCACHEMA;
+  struct MELT_OBJECT_STRUCT(4) dobj_801__NCTX_SYMBCACHEMAP;
+  struct MELT_STRING_STRUCT(17) dstr_802__NCTX_SYMBCACHEMA;
+  struct MELT_OBJECT_STRUCT(3) dsym_803__NCTX_PREDEFMAP;
+  struct MELT_STRING_STRUCT(14) dstr_804__NCTX_PREDEFMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_805__NCTX_PREDEFMAP;
+  struct MELT_STRING_STRUCT(14) dstr_806__NCTX_PREDEFMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_807__NCTX_VALMAP;
+  struct MELT_STRING_STRUCT(11) dstr_808__NCTX_VALMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_809__NCTX_VALMAP;
+  struct MELT_STRING_STRUCT(11) dstr_810__NCTX_VALMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_811__NCTX_VALBINDMAP;
+  struct MELT_STRING_STRUCT(15) dstr_812__NCTX_VALBINDMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_813__NCTX_VALBINDMAP;
+  struct MELT_STRING_STRUCT(15) dstr_814__NCTX_VALBINDMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_815__NCTX_CURPROC;
+  struct MELT_STRING_STRUCT(12) dstr_816__NCTX_CURPROC;
+  struct MELT_OBJECT_STRUCT(4) dobj_817__NCTX_CURPROC;
+  struct MELT_STRING_STRUCT(12) dstr_818__NCTX_CURPROC;
+  struct MELT_OBJECT_STRUCT(3) dsym_819__NCTX_MODULCONTEXT;
+  struct MELT_STRING_STRUCT(17) dstr_820__NCTX_MODULCONTEX;
+  struct MELT_OBJECT_STRUCT(4) dobj_821__NCTX_MODULCONTEXT;
+  struct MELT_STRING_STRUCT(17) dstr_822__NCTX_MODULCONTEX;
+  struct MELT_OBJECT_STRUCT(3) dsym_823__NCTX_QDATCURMODENVBOX;
+  struct MELT_STRING_STRUCT(21) dstr_824__NCTX_QDATCURMODE;
+  struct MELT_OBJECT_STRUCT(4) dobj_825__NCTX_QDATCURMODENVBOX;
+  struct MELT_STRING_STRUCT(21) dstr_826__NCTX_QDATCURMODE;
+  struct MELT_OBJECT_STRUCT(3) dsym_827__NCTX_QDATPARMODENV;
+  struct MELT_STRING_STRUCT(18) dstr_828__NCTX_QDATPARMODE;
+  struct MELT_OBJECT_STRUCT(4) dobj_829__NCTX_QDATPARMODENV;
+  struct MELT_STRING_STRUCT(18) dstr_830__NCTX_QDATPARMODE;
+  struct MELT_OBJECT_STRUCT(3) dsym_831__NCTX_PROCURMODENVLIST;
+  struct MELT_STRING_STRUCT(21) dstr_832__NCTX_PROCURMODEN;
+  struct MELT_OBJECT_STRUCT(4) dobj_833__NCTX_PROCURMODENVLIST;
+  struct MELT_STRING_STRUCT(21) dstr_834__NCTX_PROCURMODEN;
+  struct MELT_OBJECT_STRUCT(3) dsym_835__CLASS_C_GENERATION_CONTEXT;
+  struct MELT_STRING_STRUCT(26) dstr_836__CLASS_C_GENERATI;
+  struct MELT_OBJECT_STRUCT(8) dobj_837__CLASS_C_GENERATION_CONTEXT;
+  struct MELT_STRING_STRUCT(26) dstr_838__CLASS_C_GENERATI;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_839__CLASS_C_GENERATION_CONTEXT;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_840__CLASS_C_GENERATION_CONTEXT;
+  struct MELT_OBJECT_STRUCT(3) dsym_841__GNCX_OBJROUT;
+  struct MELT_STRING_STRUCT(12) dstr_842__GNCX_OBJROUT;
+  struct MELT_OBJECT_STRUCT(4) dobj_843__GNCX_OBJROUT;
+  struct MELT_STRING_STRUCT(12) dstr_844__GNCX_OBJROUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_845__GNCX_LOCMAP;
+  struct MELT_STRING_STRUCT(11) dstr_846__GNCX_LOCMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_847__GNCX_LOCMAP;
+  struct MELT_STRING_STRUCT(11) dstr_848__GNCX_LOCMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_849__GNCX_FREEPTRLIST;
+  struct MELT_STRING_STRUCT(16) dstr_850__GNCX_FREEPTRLIST;
+  struct MELT_OBJECT_STRUCT(4) dobj_851__GNCX_FREEPTRLIST;
+  struct MELT_STRING_STRUCT(16) dstr_852__GNCX_FREEPTRLIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_853__GNCX_FREELONGLIST;
+  struct MELT_STRING_STRUCT(17) dstr_854__GNCX_FREELONGLIS;
+  struct MELT_OBJECT_STRUCT(4) dobj_855__GNCX_FREELONGLIST;
+  struct MELT_STRING_STRUCT(17) dstr_856__GNCX_FREELONGLIS;
+  struct MELT_OBJECT_STRUCT(3) dsym_857__GNCX_FREEOTHERMAPS;
+  struct MELT_STRING_STRUCT(18) dstr_858__GNCX_FREEOTHERMA;
+  struct MELT_OBJECT_STRUCT(4) dobj_859__GNCX_FREEOTHERMAPS;
+  struct MELT_STRING_STRUCT(18) dstr_860__GNCX_FREEOTHERMA;
+  struct MELT_OBJECT_STRUCT(3) dsym_861__GNCX_RETLOC;
+  struct MELT_STRING_STRUCT(11) dstr_862__GNCX_RETLOC;
+  struct MELT_OBJECT_STRUCT(4) dobj_863__GNCX_RETLOC;
+  struct MELT_STRING_STRUCT(11) dstr_864__GNCX_RETLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_865__GNCX_COMPICACHE;
+  struct MELT_STRING_STRUCT(15) dstr_866__GNCX_COMPICACHE;
+  struct MELT_OBJECT_STRUCT(4) dobj_867__GNCX_COMPICACHE;
+  struct MELT_STRING_STRUCT(15) dstr_868__GNCX_COMPICACHE;
+  struct MELT_OBJECT_STRUCT(3) dsym_869__GNCX_MODULCONTEXT;
+  struct MELT_STRING_STRUCT(17) dstr_870__GNCX_MODULCONTEX;
+  struct MELT_OBJECT_STRUCT(4) dobj_871__GNCX_MODULCONTEXT;
+  struct MELT_STRING_STRUCT(17) dstr_872__GNCX_MODULCONTEX;
+  struct MELT_OBJECT_STRUCT(3) dsym_873__GNCX_MATCHMAP;
+  struct MELT_STRING_STRUCT(13) dstr_874__GNCX_MATCHMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_875__GNCX_MATCHMAP;
+  struct MELT_STRING_STRUCT(13) dstr_876__GNCX_MATCHMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_877__CLASS_INITIAL_GENERATION_CONTEXT;
+  struct MELT_STRING_STRUCT(32) dstr_878__CLASS_INITIAL_GE;
+  struct MELT_OBJECT_STRUCT(8) dobj_879__CLASS_INITIAL_GENERATION_CONTEXT;
+  struct MELT_STRING_STRUCT(32) dstr_880__CLASS_INITIAL_GE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_881__CLASS_INITIAL_GENERATION_CONTEXT;
+  struct MELT_MULTIPLE_STRUCT(13) dtup_882__CLASS_INITIAL_GENERATION_CONTEXT;
+  struct MELT_OBJECT_STRUCT(3) dsym_883__IGNCX_PREVENVLOC;
+  struct MELT_STRING_STRUCT(16) dstr_884__IGNCX_PREVENVLOC;
+  struct MELT_OBJECT_STRUCT(4) dobj_885__IGNCX_PREVENVLOC;
+  struct MELT_STRING_STRUCT(16) dstr_886__IGNCX_PREVENVLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_887__IGNCX_CONTENVLOC;
+  struct MELT_STRING_STRUCT(16) dstr_888__IGNCX_CONTENVLOC;
+  struct MELT_OBJECT_STRUCT(4) dobj_889__IGNCX_CONTENVLOC;
+  struct MELT_STRING_STRUCT(16) dstr_890__IGNCX_CONTENVLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_891__IGNCX_PROCURMODENVLIST;
+  struct MELT_STRING_STRUCT(22) dstr_892__IGNCX_PROCURMODE;
+  struct MELT_OBJECT_STRUCT(4) dobj_893__IGNCX_PROCURMODENVLIST;
+  struct MELT_STRING_STRUCT(22) dstr_894__IGNCX_PROCURMODE;
+  struct MELT_OBJECT_STRUCT(3) dsym_895__IGNCX_IMPORTMAP;
+  struct MELT_STRING_STRUCT(15) dstr_896__IGNCX_IMPORTMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_897__IGNCX_IMPORTMAP;
+  struct MELT_STRING_STRUCT(15) dstr_898__IGNCX_IMPORTMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_899__CLASS_GENERATED_C_CODE;
+  struct MELT_STRING_STRUCT(22) dstr_900__CLASS_GENERATED_;
+  struct MELT_OBJECT_STRUCT(8) dobj_901__CLASS_GENERATED_C_CODE;
+  struct MELT_STRING_STRUCT(22) dstr_902__CLASS_GENERATED_;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_903__CLASS_GENERATED_C_CODE;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_904__CLASS_GENERATED_C_CODE;
+  struct MELT_OBJECT_STRUCT(3) dsym_905__IGNORE;
+  struct MELT_STRING_STRUCT(6) dstr_906__IGNORE;
+  struct MELT_OBJECT_STRUCT(5) dobj_907__IGNORE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_908__IGNORE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_909__IGNORE;
+  struct MELT_OBJECT_STRUCT(3) dsym_910__V;
+  struct MELT_STRING_STRUCT(1) dstr_911__V;
+  struct MELT_OBJECT_STRUCT(2) dobj_912;
+  struct MELT_STRING_STRUCT(17) dstr_913__ignore_void_;
+  struct MELT_STRING_STRUCT(1) dstr_914__;
+  struct MELT_STRING_STRUCT(6) dstr_915__IGNORE;
+  struct MELT_OBJECT_STRUCT(3) dsym_916__VOID;
+  struct MELT_STRING_STRUCT(4) dstr_917__VOID;
+  struct MELT_OBJECT_STRUCT(5) dobj_918__VOID;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_919__VOID;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_920__VOID;
+  struct MELT_STRING_STRUCT(9) dstr_921__void_0;
+  struct MELT_STRING_STRUCT(4) dstr_922__VOID;
+  struct MELT_OBJECT_STRUCT(3) dsym_923__STRINGCONST2VAL;
+  struct MELT_STRING_STRUCT(15) dstr_924__STRINGCONST2VAL;
+  struct MELT_OBJECT_STRUCT(5) dobj_925__STRINGCONST2VAL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_926__STRINGCONST2VAL;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_927__STRINGCONST2VAL;
+  struct MELT_OBJECT_STRUCT(3) dsym_928__DISCR;
+  struct MELT_STRING_STRUCT(5) dstr_929__DISCR;
+  struct MELT_OBJECT_STRUCT(2) dobj_930;
+  struct MELT_OBJECT_STRUCT(3) dsym_931__STRC;
+  struct MELT_STRING_STRUCT(4) dstr_932__STRC;
+  struct MELT_OBJECT_STRUCT(2) dobj_933;
+  struct MELT_STRING_STRUCT(37) dstr_934__meltgc_new_strin;
+  struct MELT_STRING_STRUCT(4) dstr_935__;
+  struct MELT_STRING_STRUCT(2) dstr_936__;
+  struct MELT_STRING_STRUCT(15) dstr_937__STRINGCONST2VAL;
+  struct MELT_OBJECT_STRUCT(3) dsym_938__IS_A;
+  struct MELT_STRING_STRUCT(4) dstr_939__IS_A;
+  struct MELT_OBJECT_STRUCT(5) dobj_940__IS_A;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_941__IS_A;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_942__IS_A;
+  struct MELT_OBJECT_STRUCT(3) dsym_943__OBJ;
+  struct MELT_STRING_STRUCT(3) dstr_944__OBJ;
+  struct MELT_OBJECT_STRUCT(2) dobj_945;
+  struct MELT_OBJECT_STRUCT(3) dsym_946__CLA;
+  struct MELT_STRING_STRUCT(3) dstr_947__CLA;
+  struct MELT_OBJECT_STRUCT(2) dobj_948;
+  struct MELT_STRING_STRUCT(33) dstr_949__melt_is_instance;
+  struct MELT_STRING_STRUCT(16) dstr_950__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_951__;
+  struct MELT_STRING_STRUCT(4) dstr_952__IS_A;
+  struct MELT_OBJECT_STRUCT(3) dsym_953__IS_NOT_A;
+  struct MELT_STRING_STRUCT(8) dstr_954__IS_NOT_A;
+  struct MELT_OBJECT_STRUCT(5) dobj_955__IS_NOT_A;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_956__IS_NOT_A;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_957__IS_NOT_A;
+  struct MELT_OBJECT_STRUCT(2) dobj_958;
+  struct MELT_OBJECT_STRUCT(2) dobj_959;
+  struct MELT_STRING_STRUCT(34) dstr_960__melt_is_instanc;
+  struct MELT_STRING_STRUCT(16) dstr_961__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_962__;
+  struct MELT_STRING_STRUCT(8) dstr_963__IS_NOT_A;
+  struct MELT_OBJECT_STRUCT(3) dsym_964__IS_OBJECT;
+  struct MELT_STRING_STRUCT(9) dstr_965__IS_OBJECT;
+  struct MELT_OBJECT_STRUCT(5) dobj_966__IS_OBJECT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_967__IS_OBJECT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_968__IS_OBJECT;
+  struct MELT_OBJECT_STRUCT(2) dobj_969;
+  struct MELT_STRING_STRUCT(31) dstr_970__melt_magic_disc;
+  struct MELT_STRING_STRUCT(19) dstr_971__OBMAG_OBJE;
+  struct MELT_STRING_STRUCT(9) dstr_972__IS_OBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_973__IS_NOT_OBJECT;
+  struct MELT_STRING_STRUCT(13) dstr_974__IS_NOT_OBJECT;
+  struct MELT_OBJECT_STRUCT(5) dobj_975__IS_NOT_OBJECT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_976__IS_NOT_OBJECT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_977__IS_NOT_OBJECT;
+  struct MELT_OBJECT_STRUCT(2) dobj_978;
+  struct MELT_STRING_STRUCT(31) dstr_979__melt_magic_disc;
+  struct MELT_STRING_STRUCT(19) dstr_980__OBMAG_OBJE;
+  struct MELT_STRING_STRUCT(13) dstr_981__IS_NOT_OBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_982__GET_GLOBPREDEF;
+  struct MELT_STRING_STRUCT(14) dstr_983__GET_GLOBPREDEF;
+  struct MELT_OBJECT_STRUCT(5) dobj_984__GET_GLOBPREDEF;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_985__GET_GLOBPREDEF;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_986__GET_GLOBPREDEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_987__IX;
+  struct MELT_STRING_STRUCT(2) dstr_988__IX;
+  struct MELT_OBJECT_STRUCT(2) dobj_989;
+  struct MELT_STRING_STRUCT(17) dstr_990__melt_globpredef;
+  struct MELT_STRING_STRUCT(2) dstr_991__;
+  struct MELT_STRING_STRUCT(14) dstr_992__GET_GLOBPREDEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_993__DISCRIM;
+  struct MELT_STRING_STRUCT(7) dstr_994__DISCRIM;
+  struct MELT_OBJECT_STRUCT(5) dobj_995__DISCRIM;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_996__DISCRIM;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_997__DISCRIM;
+  struct MELT_OBJECT_STRUCT(2) dobj_998;
+  struct MELT_STRING_STRUCT(25) dstr_999__melt_discr_mel;
+  struct MELT_STRING_STRUCT(3) dstr_1000__;
+  struct MELT_STRING_STRUCT(7) dstr_1001__DISCRIM;
+  struct MELT_OBJECT_STRUCT(3) dsym_1002__GET_INT;
+  struct MELT_STRING_STRUCT(7) dstr_1003__GET_INT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1004__GET_INT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1005__GET_INT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1006__GET_INT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1007;
+  struct MELT_STRING_STRUCT(27) dstr_1008__melt_get_int_m;
+  struct MELT_STRING_STRUCT(3) dstr_1009__;
+  struct MELT_STRING_STRUCT(7) dstr_1010__GET_INT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1011__PUT_INT;
+  struct MELT_STRING_STRUCT(7) dstr_1012__PUT_INT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1013__PUT_INT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1014__PUT_INT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1015__PUT_INT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1016;
+  struct MELT_OBJECT_STRUCT(3) dsym_1017__I;
+  struct MELT_STRING_STRUCT(1) dstr_1018__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1019;
+  struct MELT_STRING_STRUCT(26) dstr_1020__melt_put_int_me;
+  struct MELT_STRING_STRUCT(4) dstr_1021__;
+  struct MELT_STRING_STRUCT(2) dstr_1022__;
+  struct MELT_STRING_STRUCT(7) dstr_1023__PUT_INT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1024__OBJ_HASH;
+  struct MELT_STRING_STRUCT(8) dstr_1025__OBJ_HASH;
+  struct MELT_OBJECT_STRUCT(5) dobj_1026__OBJ_HASH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1027__OBJ_HASH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1028__OBJ_HASH;
+  struct MELT_OBJECT_STRUCT(2) dobj_1029;
+  struct MELT_STRING_STRUCT(28) dstr_1030__melt_obj_hash_;
+  struct MELT_STRING_STRUCT(3) dstr_1031__;
+  struct MELT_STRING_STRUCT(8) dstr_1032__OBJ_HASH;
+  struct MELT_OBJECT_STRUCT(3) dsym_1033__OBJ_LEN;
+  struct MELT_STRING_STRUCT(7) dstr_1034__OBJ_LEN;
+  struct MELT_OBJECT_STRUCT(5) dobj_1035__OBJ_LEN;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1036__OBJ_LEN;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1037__OBJ_LEN;
+  struct MELT_OBJECT_STRUCT(2) dobj_1038;
+  struct MELT_STRING_STRUCT(27) dstr_1039__melt_obj_len_m;
+  struct MELT_STRING_STRUCT(3) dstr_1040__;
+  struct MELT_STRING_STRUCT(7) dstr_1041__OBJ_LEN;
+  struct MELT_OBJECT_STRUCT(3) dsym_1042__OBJ_NUM;
+  struct MELT_STRING_STRUCT(7) dstr_1043__OBJ_NUM;
+  struct MELT_OBJECT_STRUCT(5) dobj_1044__OBJ_NUM;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1045__OBJ_NUM;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1046__OBJ_NUM;
+  struct MELT_OBJECT_STRUCT(2) dobj_1047;
+  struct MELT_STRING_STRUCT(27) dstr_1048__melt_obj_num_m;
+  struct MELT_STRING_STRUCT(3) dstr_1049__;
+  struct MELT_STRING_STRUCT(7) dstr_1050__OBJ_NUM;
+  struct MELT_OBJECT_STRUCT(3) dsym_1051__OBJ_SERIAL;
+  struct MELT_STRING_STRUCT(10) dstr_1052__OBJ_SERIAL;
+  struct MELT_OBJECT_STRUCT(5) dobj_1053__OBJ_SERIAL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1054__OBJ_SERIAL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1055__OBJ_SERIAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1056;
+  struct MELT_STRING_STRUCT(30) dstr_1057__melt_obj_serial;
+  struct MELT_STRING_STRUCT(3) dstr_1058__;
+  struct MELT_STRING_STRUCT(10) dstr_1059__OBJ_SERIAL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1060__NONZERO_HASH;
+  struct MELT_STRING_STRUCT(12) dstr_1061__NONZERO_HASH;
+  struct MELT_OBJECT_STRUCT(5) dobj_1062__NONZERO_HASH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1063__NONZERO_HASH;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1064__NONZERO_HASH;
+  struct MELT_STRING_STRUCT(20) dstr_1065__melt_nonzerohas;
+  struct MELT_STRING_STRUCT(12) dstr_1066__NONZERO_HASH;
+  struct MELT_OBJECT_STRUCT(3) dsym_1067__;
+  struct MELT_STRING_STRUCT(2) dstr_1068__;
+  struct MELT_OBJECT_STRUCT(5) dobj_1069__;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1070__;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1071__;
+  struct MELT_OBJECT_STRUCT(3) dsym_1072__A;
+  struct MELT_STRING_STRUCT(1) dstr_1073__A;
+  struct MELT_OBJECT_STRUCT(2) dobj_1074;
+  struct MELT_OBJECT_STRUCT(3) dsym_1075__B;
+  struct MELT_STRING_STRUCT(1) dstr_1076__B;
+  struct MELT_OBJECT_STRUCT(2) dobj_1077;
+  struct MELT_STRING_STRUCT(2) dstr_1078__;
+  struct MELT_STRING_STRUCT(6) dstr_1079__;
+  struct MELT_STRING_STRUCT(2) dstr_1080__;
+  struct MELT_STRING_STRUCT(2) dstr_1081__;
+  struct MELT_OBJECT_STRUCT(3) dsym_1082__;
+  struct MELT_STRING_STRUCT(2) dstr_1083__;
+  struct MELT_OBJECT_STRUCT(5) dobj_1084__;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1085__;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1086__;
+  struct MELT_OBJECT_STRUCT(2) dobj_1087;
+  struct MELT_OBJECT_STRUCT(2) dobj_1088;
   struct MELT_STRING_STRUCT(2) dstr_1089__;
-  struct MELT_OBJECT_STRUCT(3) dsym_1090__;
+  struct MELT_STRING_STRUCT(6) dstr_1090__;
   struct MELT_STRING_STRUCT(2) dstr_1091__;
-  struct MELT_OBJECT_STRUCT(5) dobj_1092__;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1093__;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1094__;
-  struct MELT_OBJECT_STRUCT(2) dobj_1095;
-  struct MELT_OBJECT_STRUCT(2) dobj_1096;
-  struct MELT_STRING_STRUCT(2) dstr_1097__;
-  struct MELT_STRING_STRUCT(6) dstr_1098__;
-  struct MELT_STRING_STRUCT(2) dstr_1099__;
-  struct MELT_STRING_STRUCT(2) dstr_1100__;
-  struct MELT_OBJECT_STRUCT(3) dsym_1101__THE_CALLCOUNT;
-  struct MELT_STRING_STRUCT(13) dstr_1102__THE_CALLCOUNT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1103__THE_CALLCOUNT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1104__THE_CALLCOUNT;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1105__THE_CALLCOUNT;
-  struct MELT_STRING_STRUCT(9) dstr_1106__callcount;
-  struct MELT_STRING_STRUCT(13) dstr_1107__THE_CALLCOUNT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1108__THE_FRAMEDEPTH;
-  struct MELT_STRING_STRUCT(14) dstr_1109__THE_FRAMEDEPTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_1110__THE_FRAMEDEPTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1111__THE_FRAMEDEPTH;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1112__THE_FRAMEDEPTH;
-  struct MELT_STRING_STRUCT(21) dstr_1113__melt_curframdep;
-  struct MELT_STRING_STRUCT(14) dstr_1114__THE_FRAMEDEPTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  struct MELT_STRING_STRUCT(34) dstr_1116__OUT_CPLUGIN_COMP;
-  struct MELT_OBJECT_STRUCT(5) dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1118__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1119__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  struct MELT_STRING_STRUCT(41) dstr_1120__melt_puts_stderr;
-  struct MELT_STRING_STRUCT(34) dstr_1121__OUT_CPLUGIN_COMP;
-  struct MELT_OBJECT_STRUCT(3) dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  struct MELT_STRING_STRUCT(28) dstr_1123__OUT_CPLUGIN_MD5_;
-  struct MELT_OBJECT_STRUCT(5) dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1125__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1126__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  struct MELT_STRING_STRUCT(26) dstr_1127__melt_puts_stderr;
-  struct MELT_STRING_STRUCT(28) dstr_1128__OUT_CPLUGIN_MD5_;
-  struct MELT_OBJECT_STRUCT(3) dsym_1129__MINOR_GARBCOLL;
-  struct MELT_STRING_STRUCT(14) dstr_1130__MINOR_GARBCOLL;
-  struct MELT_OBJECT_STRUCT(5) dobj_1131__MINOR_GARBCOLL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1132__MINOR_GARBCOLL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1133__MINOR_GARBCOLL;
-  struct MELT_OBJECT_STRUCT(3) dsym_1134__SIZ;
-  struct MELT_STRING_STRUCT(3) dstr_1135__SIZ;
-  struct MELT_OBJECT_STRUCT(2) dobj_1136;
-  struct MELT_STRING_STRUCT(15) dstr_1137__melt_garbcoll_;
-  struct MELT_STRING_STRUCT(22) dstr_1138__MELT_MINOR_OR;
-  struct MELT_STRING_STRUCT(14) dstr_1139__MINOR_GARBCOLL;
-  struct MELT_OBJECT_STRUCT(3) dsym_1140__FULL_GARBCOLL;
-  struct MELT_STRING_STRUCT(13) dstr_1141__FULL_GARBCOLL;
-  struct MELT_OBJECT_STRUCT(5) dobj_1142__FULL_GARBCOLL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1143__FULL_GARBCOLL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1144__FULL_GARBCOLL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1145;
-  struct MELT_STRING_STRUCT(15) dstr_1146__melt_garbcoll_;
-  struct MELT_STRING_STRUCT(18) dstr_1147__MELT_NEED_FUL;
-  struct MELT_STRING_STRUCT(13) dstr_1148__FULL_GARBCOLL;
-  struct MELT_OBJECT_STRUCT(3) dsym_1149__GET_SYMBOLSTR;
-  struct MELT_STRING_STRUCT(13) dstr_1150__GET_SYMBOLSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1151__GET_SYMBOLSTR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1152__GET_SYMBOLSTR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1153__GET_SYMBOLSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1154__STRV;
-  struct MELT_STRING_STRUCT(4) dstr_1155__STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_1156;
-  struct MELT_STRING_STRUCT(50) dstr_1157__meltgc_named_sym;
-  struct MELT_STRING_STRUCT(13) dstr_1158__MELT_GET_;
-  struct MELT_STRING_STRUCT(13) dstr_1159__GET_SYMBOLSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1160__CREATE_SYMBOLSTR;
-  struct MELT_STRING_STRUCT(16) dstr_1161__CREATE_SYMBOLSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1162__CREATE_SYMBOLSTR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1163__CREATE_SYMBOLSTR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1164__CREATE_SYMBOLSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1165;
-  struct MELT_STRING_STRUCT(49) dstr_1166__meltgc_named_sym;
-  struct MELT_STRING_STRUCT(16) dstr_1167__MELT_CREATE_;
-  struct MELT_STRING_STRUCT(16) dstr_1168__CREATE_SYMBOLSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1169__GET_KEYWORDSTR;
-  struct MELT_STRING_STRUCT(14) dstr_1170__GET_KEYWORDSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1171__GET_KEYWORDSTR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1172__GET_KEYWORDSTR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1173__GET_KEYWORDSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1174;
-  struct MELT_STRING_STRUCT(51) dstr_1175__meltgc_named_key;
-  struct MELT_STRING_STRUCT(13) dstr_1176__MELT_GET_;
-  struct MELT_STRING_STRUCT(14) dstr_1177__GET_KEYWORDSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1178__CREATE_KEYWORDSTR;
-  struct MELT_STRING_STRUCT(17) dstr_1179__CREATE_KEYWORDST;
-  struct MELT_OBJECT_STRUCT(5) dobj_1180__CREATE_KEYWORDSTR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1181__CREATE_KEYWORDSTR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1182__CREATE_KEYWORDSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1183;
-  struct MELT_STRING_STRUCT(51) dstr_1184__meltgc_named_key;
-  struct MELT_STRING_STRUCT(16) dstr_1185__MELT_CREATE_;
-  struct MELT_STRING_STRUCT(17) dstr_1186__CREATE_KEYWORDST;
-  struct MELT_OBJECT_STRUCT(3) dsym_1187__ASSERT_FAILED;
-  struct MELT_STRING_STRUCT(13) dstr_1188__ASSERT_FAILED;
-  struct MELT_OBJECT_STRUCT(5) dobj_1189__ASSERT_FAILED;
-  struct MELT_MULTIPLE_STRUCT(11) dtup_1190__ASSERT_FAILED;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1191__ASSERT_FAILED;
-  struct MELT_OBJECT_STRUCT(3) dsym_1192__MSG;
-  struct MELT_STRING_STRUCT(3) dstr_1193__MSG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1194;
-  struct MELT_OBJECT_STRUCT(3) dsym_1195__FILENAME;
-  struct MELT_STRING_STRUCT(8) dstr_1196__FILENAME;
-  struct MELT_OBJECT_STRUCT(2) dobj_1197;
-  struct MELT_OBJECT_STRUCT(3) dsym_1198__LINENO;
-  struct MELT_STRING_STRUCT(6) dstr_1199__LINENO;
-  struct MELT_OBJECT_STRUCT(2) dobj_1200;
-  struct MELT_STRING_STRUCT(20) dstr_1201__melt_assert_fail;
-  struct MELT_STRING_STRUCT(3) dstr_1202__;
-  struct MELT_STRING_STRUCT(3) dstr_1203__;
-  struct MELT_STRING_STRUCT(15) dstr_1204__FILE_;
-  struct MELT_STRING_STRUCT(3) dstr_1205__;
-  struct MELT_STRING_STRUCT(27) dstr_1206__LINE_FU;
-  struct MELT_STRING_STRUCT(13) dstr_1207__ASSERT_FAILED;
-  struct MELT_OBJECT_STRUCT(3) dsym_1208__CHECKCALLSTACK_MSG;
-  struct MELT_STRING_STRUCT(18) dstr_1209__CHECKCALLSTACK_M;
-  struct MELT_OBJECT_STRUCT(5) dobj_1210__CHECKCALLSTACK_MSG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1211__CHECKCALLSTACK_MSG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1212__CHECKCALLSTACK_MSG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1213;
-  struct MELT_STRING_STRUCT(38) dstr_1214__melt_check_call_;
-  struct MELT_STRING_STRUCT(2) dstr_1215__;
-  struct MELT_STRING_STRUCT(18) dstr_1216__CHECKCALLSTACK_M;
-  struct MELT_OBJECT_STRUCT(3) dsym_1217__CBREAK_MSG;
-  struct MELT_STRING_STRUCT(10) dstr_1218__CBREAK_MSG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1219__CBREAK_MSG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1220__CBREAK_MSG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1221__CBREAK_MSG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1222;
-  struct MELT_STRING_STRUCT(12) dstr_1223__melt_cbreak_;
-  struct MELT_STRING_STRUCT(1) dstr_1224__;
-  struct MELT_STRING_STRUCT(10) dstr_1225__CBREAK_MSG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1226__I;
-  struct MELT_STRING_STRUCT(2) dstr_1227__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1228__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1229__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1230__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1231;
-  struct MELT_OBJECT_STRUCT(2) dobj_1232;
-  struct MELT_STRING_STRUCT(2) dstr_1233__;
-  struct MELT_STRING_STRUCT(5) dstr_1234__;
-  struct MELT_STRING_STRUCT(2) dstr_1235__;
-  struct MELT_STRING_STRUCT(2) dstr_1236__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1237__I;
-  struct MELT_STRING_STRUCT(3) dstr_1238__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1239__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1240__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1241__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1242;
-  struct MELT_OBJECT_STRUCT(2) dobj_1243;
-  struct MELT_STRING_STRUCT(2) dstr_1244__;
-  struct MELT_STRING_STRUCT(6) dstr_1245__;
-  struct MELT_STRING_STRUCT(2) dstr_1246__;
-  struct MELT_STRING_STRUCT(3) dstr_1247__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1248__I;
-  struct MELT_STRING_STRUCT(3) dstr_1249__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1250__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1251__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1252__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1253;
-  struct MELT_OBJECT_STRUCT(2) dobj_1254;
-  struct MELT_STRING_STRUCT(2) dstr_1255__;
-  struct MELT_STRING_STRUCT(6) dstr_1256__;
-  struct MELT_STRING_STRUCT(2) dstr_1257__;
-  struct MELT_STRING_STRUCT(3) dstr_1258__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1259__I;
-  struct MELT_STRING_STRUCT(2) dstr_1260__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1261__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1262__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1263__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1264;
-  struct MELT_OBJECT_STRUCT(2) dobj_1265;
-  struct MELT_STRING_STRUCT(2) dstr_1266__;
-  struct MELT_STRING_STRUCT(5) dstr_1267__;
-  struct MELT_STRING_STRUCT(2) dstr_1268__;
-  struct MELT_STRING_STRUCT(2) dstr_1269__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1270__I;
-  struct MELT_STRING_STRUCT(3) dstr_1271__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1272__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1273__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1274__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1275;
-  struct MELT_OBJECT_STRUCT(2) dobj_1276;
-  struct MELT_STRING_STRUCT(2) dstr_1277__;
-  struct MELT_STRING_STRUCT(6) dstr_1278__;
-  struct MELT_STRING_STRUCT(2) dstr_1279__;
-  struct MELT_STRING_STRUCT(3) dstr_1280__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1281__I;
-  struct MELT_STRING_STRUCT(3) dstr_1282__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1283__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1284__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1285__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1286;
-  struct MELT_OBJECT_STRUCT(2) dobj_1287;
-  struct MELT_STRING_STRUCT(2) dstr_1288__;
-  struct MELT_STRING_STRUCT(6) dstr_1289__;
-  struct MELT_STRING_STRUCT(2) dstr_1290__;
-  struct MELT_STRING_STRUCT(3) dstr_1291__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1292__I;
-  struct MELT_STRING_STRUCT(2) dstr_1293__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1294__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1295__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1296__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1297;
-  struct MELT_OBJECT_STRUCT(2) dobj_1298;
-  struct MELT_STRING_STRUCT(2) dstr_1299__;
-  struct MELT_STRING_STRUCT(5) dstr_1300__;
-  struct MELT_STRING_STRUCT(2) dstr_1301__;
-  struct MELT_STRING_STRUCT(2) dstr_1302__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1303__I;
-  struct MELT_STRING_STRUCT(2) dstr_1304__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1305__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1306__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1307__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1308;
-  struct MELT_OBJECT_STRUCT(2) dobj_1309;
-  struct MELT_STRING_STRUCT(2) dstr_1310__;
-  struct MELT_STRING_STRUCT(5) dstr_1311__;
-  struct MELT_STRING_STRUCT(2) dstr_1312__;
-  struct MELT_STRING_STRUCT(2) dstr_1313__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1314__I;
-  struct MELT_STRING_STRUCT(2) dstr_1315__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1316__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1317__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1318__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1319;
-  struct MELT_OBJECT_STRUCT(2) dobj_1320;
-  struct MELT_STRING_STRUCT(2) dstr_1321__;
-  struct MELT_STRING_STRUCT(5) dstr_1322__;
-  struct MELT_STRING_STRUCT(2) dstr_1323__;
-  struct MELT_STRING_STRUCT(2) dstr_1324__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1325__ANDI;
-  struct MELT_STRING_STRUCT(4) dstr_1326__ANDI;
-  struct MELT_OBJECT_STRUCT(5) dobj_1327__ANDI;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1328__ANDI;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1329__ANDI;
-  struct MELT_OBJECT_STRUCT(2) dobj_1330;
-  struct MELT_OBJECT_STRUCT(2) dobj_1331;
-  struct MELT_STRING_STRUCT(2) dstr_1332__;
-  struct MELT_STRING_STRUCT(5) dstr_1333__;
-  struct MELT_STRING_STRUCT(2) dstr_1334__;
-  struct MELT_STRING_STRUCT(4) dstr_1335__ANDI;
-  struct MELT_OBJECT_STRUCT(3) dsym_1336__ORI;
-  struct MELT_STRING_STRUCT(3) dstr_1337__ORI;
-  struct MELT_OBJECT_STRUCT(5) dobj_1338__ORI;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1339__ORI;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1340__ORI;
-  struct MELT_OBJECT_STRUCT(2) dobj_1341;
-  struct MELT_OBJECT_STRUCT(2) dobj_1342;
-  struct MELT_STRING_STRUCT(2) dstr_1343__;
-  struct MELT_STRING_STRUCT(5) dstr_1344__;
-  struct MELT_STRING_STRUCT(2) dstr_1345__;
-  struct MELT_STRING_STRUCT(3) dstr_1346__ORI;
-  struct MELT_OBJECT_STRUCT(3) dsym_1347__XORI;
-  struct MELT_STRING_STRUCT(4) dstr_1348__XORI;
-  struct MELT_OBJECT_STRUCT(5) dobj_1349__XORI;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1350__XORI;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1351__XORI;
-  struct MELT_OBJECT_STRUCT(2) dobj_1352;
-  struct MELT_OBJECT_STRUCT(2) dobj_1353;
-  struct MELT_STRING_STRUCT(2) dstr_1354__;
-  struct MELT_STRING_STRUCT(5) dstr_1355__;
-  struct MELT_STRING_STRUCT(2) dstr_1356__;
-  struct MELT_STRING_STRUCT(4) dstr_1357__XORI;
-  struct MELT_OBJECT_STRUCT(3) dsym_1358__NEGI;
-  struct MELT_STRING_STRUCT(4) dstr_1359__NEGI;
-  struct MELT_OBJECT_STRUCT(5) dobj_1360__NEGI;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1361__NEGI;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1362__NEGI;
-  struct MELT_OBJECT_STRUCT(2) dobj_1363;
-  struct MELT_STRING_STRUCT(3) dstr_1364__;
-  struct MELT_STRING_STRUCT(2) dstr_1365__;
-  struct MELT_STRING_STRUCT(4) dstr_1366__NEGI;
-  struct MELT_OBJECT_STRUCT(3) dsym_1367__NOTI;
-  struct MELT_STRING_STRUCT(4) dstr_1368__NOTI;
-  struct MELT_OBJECT_STRUCT(5) dobj_1369__NOTI;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1370__NOTI;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1371__NOTI;
-  struct MELT_OBJECT_STRUCT(2) dobj_1372;
-  struct MELT_STRING_STRUCT(3) dstr_1373__;
-  struct MELT_STRING_STRUCT(2) dstr_1374__;
-  struct MELT_STRING_STRUCT(4) dstr_1375__NOTI;
-  struct MELT_OBJECT_STRUCT(3) dsym_1376__I;
-  struct MELT_STRING_STRUCT(2) dstr_1377__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1378__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1379__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1380__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1381;
-  struct MELT_OBJECT_STRUCT(2) dobj_1382;
-  struct MELT_STRING_STRUCT(12) dstr_1383__melt_idiv_;
-  struct MELT_STRING_STRUCT(4) dstr_1384__;
-  struct MELT_STRING_STRUCT(3) dstr_1385__;
-  struct MELT_STRING_STRUCT(2) dstr_1386__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1387__I;
-  struct MELT_STRING_STRUCT(2) dstr_1388__I;
-  struct MELT_OBJECT_STRUCT(5) dobj_1389__I;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1390__I;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1391__I;
-  struct MELT_OBJECT_STRUCT(2) dobj_1392;
-  struct MELT_OBJECT_STRUCT(2) dobj_1393;
-  struct MELT_STRING_STRUCT(12) dstr_1394__melt_imod_;
-  struct MELT_STRING_STRUCT(4) dstr_1395__;
-  struct MELT_STRING_STRUCT(3) dstr_1396__;
-  struct MELT_STRING_STRUCT(2) dstr_1397__I;
-  struct MELT_OBJECT_STRUCT(3) dsym_1398__IRAW;
-  struct MELT_STRING_STRUCT(5) dstr_1399__IRAW;
-  struct MELT_OBJECT_STRUCT(5) dobj_1400__IRAW;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1401__IRAW;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1402__IRAW;
-  struct MELT_OBJECT_STRUCT(2) dobj_1403;
-  struct MELT_OBJECT_STRUCT(2) dobj_1404;
-  struct MELT_STRING_STRUCT(2) dstr_1405__;
-  struct MELT_STRING_STRUCT(5) dstr_1406__;
-  struct MELT_STRING_STRUCT(2) dstr_1407__;
-  struct MELT_STRING_STRUCT(5) dstr_1408__IRAW;
-  struct MELT_OBJECT_STRUCT(3) dsym_1409__IRAW;
-  struct MELT_STRING_STRUCT(5) dstr_1410__IRAW;
-  struct MELT_OBJECT_STRUCT(5) dobj_1411__IRAW;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1412__IRAW;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1413__IRAW;
-  struct MELT_OBJECT_STRUCT(2) dobj_1414;
-  struct MELT_OBJECT_STRUCT(2) dobj_1415;
-  struct MELT_STRING_STRUCT(2) dstr_1416__;
-  struct MELT_STRING_STRUCT(5) dstr_1417__;
-  struct MELT_STRING_STRUCT(2) dstr_1418__;
-  struct MELT_STRING_STRUCT(5) dstr_1419__IRAW;
-  struct MELT_OBJECT_STRUCT(3) dsym_1420__NOT;
-  struct MELT_STRING_STRUCT(3) dstr_1421__NOT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1422__NOT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1423__NOT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1424__NOT;
+  struct MELT_STRING_STRUCT(2) dstr_1092__;
+  struct MELT_OBJECT_STRUCT(3) dsym_1093__THE_CALLCOUNT;
+  struct MELT_STRING_STRUCT(13) dstr_1094__THE_CALLCOUNT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1095__THE_CALLCOUNT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1096__THE_CALLCOUNT;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1097__THE_CALLCOUNT;
+  struct MELT_STRING_STRUCT(9) dstr_1098__callcount;
+  struct MELT_STRING_STRUCT(13) dstr_1099__THE_CALLCOUNT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1100__THE_FRAMEDEPTH;
+  struct MELT_STRING_STRUCT(14) dstr_1101__THE_FRAMEDEPTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_1102__THE_FRAMEDEPTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1103__THE_FRAMEDEPTH;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1104__THE_FRAMEDEPTH;
+  struct MELT_STRING_STRUCT(21) dstr_1105__melt_curframdep;
+  struct MELT_STRING_STRUCT(14) dstr_1106__THE_FRAMEDEPTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  struct MELT_STRING_STRUCT(34) dstr_1108__OUT_CPLUGIN_COMP;
+  struct MELT_OBJECT_STRUCT(5) dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1110__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1111__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  struct MELT_STRING_STRUCT(41) dstr_1112__melt_puts_stderr;
+  struct MELT_STRING_STRUCT(34) dstr_1113__OUT_CPLUGIN_COMP;
+  struct MELT_OBJECT_STRUCT(3) dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  struct MELT_STRING_STRUCT(28) dstr_1115__OUT_CPLUGIN_MD5_;
+  struct MELT_OBJECT_STRUCT(5) dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1117__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1118__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  struct MELT_STRING_STRUCT(26) dstr_1119__melt_puts_stderr;
+  struct MELT_STRING_STRUCT(28) dstr_1120__OUT_CPLUGIN_MD5_;
+  struct MELT_OBJECT_STRUCT(3) dsym_1121__MINOR_GARBCOLL;
+  struct MELT_STRING_STRUCT(14) dstr_1122__MINOR_GARBCOLL;
+  struct MELT_OBJECT_STRUCT(5) dobj_1123__MINOR_GARBCOLL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1124__MINOR_GARBCOLL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1125__MINOR_GARBCOLL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1126__SIZ;
+  struct MELT_STRING_STRUCT(3) dstr_1127__SIZ;
+  struct MELT_OBJECT_STRUCT(2) dobj_1128;
+  struct MELT_STRING_STRUCT(15) dstr_1129__melt_garbcoll_;
+  struct MELT_STRING_STRUCT(22) dstr_1130__MELT_MINOR_OR;
+  struct MELT_STRING_STRUCT(14) dstr_1131__MINOR_GARBCOLL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1132__FULL_GARBCOLL;
+  struct MELT_STRING_STRUCT(13) dstr_1133__FULL_GARBCOLL;
+  struct MELT_OBJECT_STRUCT(5) dobj_1134__FULL_GARBCOLL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1135__FULL_GARBCOLL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1136__FULL_GARBCOLL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1137;
+  struct MELT_STRING_STRUCT(15) dstr_1138__melt_garbcoll_;
+  struct MELT_STRING_STRUCT(18) dstr_1139__MELT_NEED_FUL;
+  struct MELT_STRING_STRUCT(13) dstr_1140__FULL_GARBCOLL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1141__GET_SYMBOLSTR;
+  struct MELT_STRING_STRUCT(13) dstr_1142__GET_SYMBOLSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1143__GET_SYMBOLSTR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1144__GET_SYMBOLSTR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1145__GET_SYMBOLSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1146__STRV;
+  struct MELT_STRING_STRUCT(4) dstr_1147__STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_1148;
+  struct MELT_STRING_STRUCT(50) dstr_1149__meltgc_named_sym;
+  struct MELT_STRING_STRUCT(13) dstr_1150__MELT_GET_;
+  struct MELT_STRING_STRUCT(13) dstr_1151__GET_SYMBOLSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1152__CREATE_SYMBOLSTR;
+  struct MELT_STRING_STRUCT(16) dstr_1153__CREATE_SYMBOLSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1154__CREATE_SYMBOLSTR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1155__CREATE_SYMBOLSTR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1156__CREATE_SYMBOLSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1157;
+  struct MELT_STRING_STRUCT(49) dstr_1158__meltgc_named_sym;
+  struct MELT_STRING_STRUCT(16) dstr_1159__MELT_CREATE_;
+  struct MELT_STRING_STRUCT(16) dstr_1160__CREATE_SYMBOLSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1161__GET_KEYWORDSTR;
+  struct MELT_STRING_STRUCT(14) dstr_1162__GET_KEYWORDSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1163__GET_KEYWORDSTR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1164__GET_KEYWORDSTR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1165__GET_KEYWORDSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1166;
+  struct MELT_STRING_STRUCT(51) dstr_1167__meltgc_named_key;
+  struct MELT_STRING_STRUCT(13) dstr_1168__MELT_GET_;
+  struct MELT_STRING_STRUCT(14) dstr_1169__GET_KEYWORDSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1170__CREATE_KEYWORDSTR;
+  struct MELT_STRING_STRUCT(17) dstr_1171__CREATE_KEYWORDST;
+  struct MELT_OBJECT_STRUCT(5) dobj_1172__CREATE_KEYWORDSTR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1173__CREATE_KEYWORDSTR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1174__CREATE_KEYWORDSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1175;
+  struct MELT_STRING_STRUCT(51) dstr_1176__meltgc_named_key;
+  struct MELT_STRING_STRUCT(16) dstr_1177__MELT_CREATE_;
+  struct MELT_STRING_STRUCT(17) dstr_1178__CREATE_KEYWORDST;
+  struct MELT_OBJECT_STRUCT(3) dsym_1179__ASSERT_FAILED;
+  struct MELT_STRING_STRUCT(13) dstr_1180__ASSERT_FAILED;
+  struct MELT_OBJECT_STRUCT(5) dobj_1181__ASSERT_FAILED;
+  struct MELT_MULTIPLE_STRUCT(11) dtup_1182__ASSERT_FAILED;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1183__ASSERT_FAILED;
+  struct MELT_OBJECT_STRUCT(3) dsym_1184__MSG;
+  struct MELT_STRING_STRUCT(3) dstr_1185__MSG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1186;
+  struct MELT_OBJECT_STRUCT(3) dsym_1187__FILENAME;
+  struct MELT_STRING_STRUCT(8) dstr_1188__FILENAME;
+  struct MELT_OBJECT_STRUCT(2) dobj_1189;
+  struct MELT_OBJECT_STRUCT(3) dsym_1190__LINENO;
+  struct MELT_STRING_STRUCT(6) dstr_1191__LINENO;
+  struct MELT_OBJECT_STRUCT(2) dobj_1192;
+  struct MELT_STRING_STRUCT(20) dstr_1193__melt_assert_fail;
+  struct MELT_STRING_STRUCT(3) dstr_1194__;
+  struct MELT_STRING_STRUCT(3) dstr_1195__;
+  struct MELT_STRING_STRUCT(15) dstr_1196__FILE_;
+  struct MELT_STRING_STRUCT(3) dstr_1197__;
+  struct MELT_STRING_STRUCT(27) dstr_1198__LINE_FU;
+  struct MELT_STRING_STRUCT(13) dstr_1199__ASSERT_FAILED;
+  struct MELT_OBJECT_STRUCT(3) dsym_1200__CHECKCALLSTACK_MSG;
+  struct MELT_STRING_STRUCT(18) dstr_1201__CHECKCALLSTACK_M;
+  struct MELT_OBJECT_STRUCT(5) dobj_1202__CHECKCALLSTACK_MSG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1203__CHECKCALLSTACK_MSG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1204__CHECKCALLSTACK_MSG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1205;
+  struct MELT_STRING_STRUCT(38) dstr_1206__melt_check_call_;
+  struct MELT_STRING_STRUCT(2) dstr_1207__;
+  struct MELT_STRING_STRUCT(18) dstr_1208__CHECKCALLSTACK_M;
+  struct MELT_OBJECT_STRUCT(3) dsym_1209__CBREAK_MSG;
+  struct MELT_STRING_STRUCT(10) dstr_1210__CBREAK_MSG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1211__CBREAK_MSG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1212__CBREAK_MSG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1213__CBREAK_MSG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1214;
+  struct MELT_STRING_STRUCT(12) dstr_1215__melt_cbreak_;
+  struct MELT_STRING_STRUCT(1) dstr_1216__;
+  struct MELT_STRING_STRUCT(10) dstr_1217__CBREAK_MSG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1218__I;
+  struct MELT_STRING_STRUCT(2) dstr_1219__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1220__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1221__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1222__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1223;
+  struct MELT_OBJECT_STRUCT(2) dobj_1224;
+  struct MELT_STRING_STRUCT(2) dstr_1225__;
+  struct MELT_STRING_STRUCT(5) dstr_1226__;
+  struct MELT_STRING_STRUCT(2) dstr_1227__;
+  struct MELT_STRING_STRUCT(2) dstr_1228__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1229__I;
+  struct MELT_STRING_STRUCT(3) dstr_1230__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1231__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1232__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1233__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1234;
+  struct MELT_OBJECT_STRUCT(2) dobj_1235;
+  struct MELT_STRING_STRUCT(2) dstr_1236__;
+  struct MELT_STRING_STRUCT(6) dstr_1237__;
+  struct MELT_STRING_STRUCT(2) dstr_1238__;
+  struct MELT_STRING_STRUCT(3) dstr_1239__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1240__I;
+  struct MELT_STRING_STRUCT(3) dstr_1241__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1242__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1243__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1244__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1245;
+  struct MELT_OBJECT_STRUCT(2) dobj_1246;
+  struct MELT_STRING_STRUCT(2) dstr_1247__;
+  struct MELT_STRING_STRUCT(6) dstr_1248__;
+  struct MELT_STRING_STRUCT(2) dstr_1249__;
+  struct MELT_STRING_STRUCT(3) dstr_1250__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1251__I;
+  struct MELT_STRING_STRUCT(2) dstr_1252__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1253__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1254__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1255__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1256;
+  struct MELT_OBJECT_STRUCT(2) dobj_1257;
+  struct MELT_STRING_STRUCT(2) dstr_1258__;
+  struct MELT_STRING_STRUCT(5) dstr_1259__;
+  struct MELT_STRING_STRUCT(2) dstr_1260__;
+  struct MELT_STRING_STRUCT(2) dstr_1261__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1262__I;
+  struct MELT_STRING_STRUCT(3) dstr_1263__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1264__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1265__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1266__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1267;
+  struct MELT_OBJECT_STRUCT(2) dobj_1268;
+  struct MELT_STRING_STRUCT(2) dstr_1269__;
+  struct MELT_STRING_STRUCT(6) dstr_1270__;
+  struct MELT_STRING_STRUCT(2) dstr_1271__;
+  struct MELT_STRING_STRUCT(3) dstr_1272__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1273__I;
+  struct MELT_STRING_STRUCT(3) dstr_1274__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1275__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1276__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1277__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1278;
+  struct MELT_OBJECT_STRUCT(2) dobj_1279;
+  struct MELT_STRING_STRUCT(2) dstr_1280__;
+  struct MELT_STRING_STRUCT(6) dstr_1281__;
+  struct MELT_STRING_STRUCT(2) dstr_1282__;
+  struct MELT_STRING_STRUCT(3) dstr_1283__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1284__I;
+  struct MELT_STRING_STRUCT(2) dstr_1285__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1286__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1287__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1288__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1289;
+  struct MELT_OBJECT_STRUCT(2) dobj_1290;
+  struct MELT_STRING_STRUCT(2) dstr_1291__;
+  struct MELT_STRING_STRUCT(5) dstr_1292__;
+  struct MELT_STRING_STRUCT(2) dstr_1293__;
+  struct MELT_STRING_STRUCT(2) dstr_1294__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1295__I;
+  struct MELT_STRING_STRUCT(2) dstr_1296__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1297__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1298__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1299__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1300;
+  struct MELT_OBJECT_STRUCT(2) dobj_1301;
+  struct MELT_STRING_STRUCT(2) dstr_1302__;
+  struct MELT_STRING_STRUCT(5) dstr_1303__;
+  struct MELT_STRING_STRUCT(2) dstr_1304__;
+  struct MELT_STRING_STRUCT(2) dstr_1305__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1306__I;
+  struct MELT_STRING_STRUCT(2) dstr_1307__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1308__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1309__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1310__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1311;
+  struct MELT_OBJECT_STRUCT(2) dobj_1312;
+  struct MELT_STRING_STRUCT(2) dstr_1313__;
+  struct MELT_STRING_STRUCT(5) dstr_1314__;
+  struct MELT_STRING_STRUCT(2) dstr_1315__;
+  struct MELT_STRING_STRUCT(2) dstr_1316__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1317__ANDI;
+  struct MELT_STRING_STRUCT(4) dstr_1318__ANDI;
+  struct MELT_OBJECT_STRUCT(5) dobj_1319__ANDI;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1320__ANDI;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1321__ANDI;
+  struct MELT_OBJECT_STRUCT(2) dobj_1322;
+  struct MELT_OBJECT_STRUCT(2) dobj_1323;
+  struct MELT_STRING_STRUCT(2) dstr_1324__;
+  struct MELT_STRING_STRUCT(5) dstr_1325__;
+  struct MELT_STRING_STRUCT(2) dstr_1326__;
+  struct MELT_STRING_STRUCT(4) dstr_1327__ANDI;
+  struct MELT_OBJECT_STRUCT(3) dsym_1328__ORI;
+  struct MELT_STRING_STRUCT(3) dstr_1329__ORI;
+  struct MELT_OBJECT_STRUCT(5) dobj_1330__ORI;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1331__ORI;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1332__ORI;
+  struct MELT_OBJECT_STRUCT(2) dobj_1333;
+  struct MELT_OBJECT_STRUCT(2) dobj_1334;
+  struct MELT_STRING_STRUCT(2) dstr_1335__;
+  struct MELT_STRING_STRUCT(5) dstr_1336__;
+  struct MELT_STRING_STRUCT(2) dstr_1337__;
+  struct MELT_STRING_STRUCT(3) dstr_1338__ORI;
+  struct MELT_OBJECT_STRUCT(3) dsym_1339__XORI;
+  struct MELT_STRING_STRUCT(4) dstr_1340__XORI;
+  struct MELT_OBJECT_STRUCT(5) dobj_1341__XORI;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1342__XORI;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1343__XORI;
+  struct MELT_OBJECT_STRUCT(2) dobj_1344;
+  struct MELT_OBJECT_STRUCT(2) dobj_1345;
+  struct MELT_STRING_STRUCT(2) dstr_1346__;
+  struct MELT_STRING_STRUCT(5) dstr_1347__;
+  struct MELT_STRING_STRUCT(2) dstr_1348__;
+  struct MELT_STRING_STRUCT(4) dstr_1349__XORI;
+  struct MELT_OBJECT_STRUCT(3) dsym_1350__NEGI;
+  struct MELT_STRING_STRUCT(4) dstr_1351__NEGI;
+  struct MELT_OBJECT_STRUCT(5) dobj_1352__NEGI;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1353__NEGI;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1354__NEGI;
+  struct MELT_OBJECT_STRUCT(2) dobj_1355;
+  struct MELT_STRING_STRUCT(3) dstr_1356__;
+  struct MELT_STRING_STRUCT(2) dstr_1357__;
+  struct MELT_STRING_STRUCT(4) dstr_1358__NEGI;
+  struct MELT_OBJECT_STRUCT(3) dsym_1359__NOTI;
+  struct MELT_STRING_STRUCT(4) dstr_1360__NOTI;
+  struct MELT_OBJECT_STRUCT(5) dobj_1361__NOTI;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1362__NOTI;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1363__NOTI;
+  struct MELT_OBJECT_STRUCT(2) dobj_1364;
+  struct MELT_STRING_STRUCT(3) dstr_1365__;
+  struct MELT_STRING_STRUCT(2) dstr_1366__;
+  struct MELT_STRING_STRUCT(4) dstr_1367__NOTI;
+  struct MELT_OBJECT_STRUCT(3) dsym_1368__I;
+  struct MELT_STRING_STRUCT(2) dstr_1369__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1370__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1371__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1372__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1373;
+  struct MELT_OBJECT_STRUCT(2) dobj_1374;
+  struct MELT_STRING_STRUCT(12) dstr_1375__melt_idiv_;
+  struct MELT_STRING_STRUCT(4) dstr_1376__;
+  struct MELT_STRING_STRUCT(3) dstr_1377__;
+  struct MELT_STRING_STRUCT(2) dstr_1378__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1379__I;
+  struct MELT_STRING_STRUCT(2) dstr_1380__I;
+  struct MELT_OBJECT_STRUCT(5) dobj_1381__I;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1382__I;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1383__I;
+  struct MELT_OBJECT_STRUCT(2) dobj_1384;
+  struct MELT_OBJECT_STRUCT(2) dobj_1385;
+  struct MELT_STRING_STRUCT(12) dstr_1386__melt_imod_;
+  struct MELT_STRING_STRUCT(4) dstr_1387__;
+  struct MELT_STRING_STRUCT(3) dstr_1388__;
+  struct MELT_STRING_STRUCT(2) dstr_1389__I;
+  struct MELT_OBJECT_STRUCT(3) dsym_1390__IRAW;
+  struct MELT_STRING_STRUCT(5) dstr_1391__IRAW;
+  struct MELT_OBJECT_STRUCT(5) dobj_1392__IRAW;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1393__IRAW;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1394__IRAW;
+  struct MELT_OBJECT_STRUCT(2) dobj_1395;
+  struct MELT_OBJECT_STRUCT(2) dobj_1396;
+  struct MELT_STRING_STRUCT(2) dstr_1397__;
+  struct MELT_STRING_STRUCT(5) dstr_1398__;
+  struct MELT_STRING_STRUCT(2) dstr_1399__;
+  struct MELT_STRING_STRUCT(5) dstr_1400__IRAW;
+  struct MELT_OBJECT_STRUCT(3) dsym_1401__IRAW;
+  struct MELT_STRING_STRUCT(5) dstr_1402__IRAW;
+  struct MELT_OBJECT_STRUCT(5) dobj_1403__IRAW;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1404__IRAW;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1405__IRAW;
+  struct MELT_OBJECT_STRUCT(2) dobj_1406;
+  struct MELT_OBJECT_STRUCT(2) dobj_1407;
+  struct MELT_STRING_STRUCT(2) dstr_1408__;
+  struct MELT_STRING_STRUCT(5) dstr_1409__;
+  struct MELT_STRING_STRUCT(2) dstr_1410__;
+  struct MELT_STRING_STRUCT(5) dstr_1411__IRAW;
+  struct MELT_OBJECT_STRUCT(3) dsym_1412__NOT;
+  struct MELT_STRING_STRUCT(3) dstr_1413__NOT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1414__NOT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1415__NOT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1416__NOT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1417;
+  struct MELT_STRING_STRUCT(3) dstr_1418__;
+  struct MELT_STRING_STRUCT(2) dstr_1419__;
+  struct MELT_STRING_STRUCT(3) dstr_1420__NOT;
+  struct MELT_OBJECT_STRUCT(7) dobj_1421__FOREACH_LONG_UPTO;
+  struct MELT_STRING_STRUCT(17) dstr_1422__FOREACH_LONG_UPT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1423__IMIN;
+  struct MELT_STRING_STRUCT(4) dstr_1424__IMIN;
   struct MELT_OBJECT_STRUCT(2) dobj_1425;
-  struct MELT_STRING_STRUCT(3) dstr_1426__;
-  struct MELT_STRING_STRUCT(2) dstr_1427__;
-  struct MELT_STRING_STRUCT(3) dstr_1428__NOT;
-  struct MELT_OBJECT_STRUCT(7) dobj_1429__FOREACH_LONG_UPTO;
-  struct MELT_STRING_STRUCT(17) dstr_1430__FOREACH_LONG_UPT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1431__IMIN;
-  struct MELT_STRING_STRUCT(4) dstr_1432__IMIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_1433;
-  struct MELT_OBJECT_STRUCT(3) dsym_1434__IMAX;
-  struct MELT_STRING_STRUCT(4) dstr_1435__IMAX;
-  struct MELT_OBJECT_STRUCT(2) dobj_1436;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1437__FOREACH_LONG_UPTO;
-  struct MELT_OBJECT_STRUCT(3) dsym_1438__EACHLONG;
-  struct MELT_STRING_STRUCT(8) dstr_1439__EACHLONG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1440;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1441__FOREACH_LONG_UPTO;
-  struct MELT_STRING_STRUCT(8) dstr_1442__start_;
-  struct MELT_STRING_STRUCT(13) dstr_1443__long_;
-  struct MELT_STRING_STRUCT(8) dstr_1444__min_;
-  struct MELT_STRING_STRUCT(11) dstr_1445__long_;
-  struct MELT_STRING_STRUCT(7) dstr_1446__max_;
-  struct MELT_STRING_STRUCT(11) dstr_1447__long_;
-  struct MELT_STRING_STRUCT(19) dstr_1448__cur_0_fo;
-  struct MELT_STRING_STRUCT(7) dstr_1449__cur_;
-  struct MELT_STRING_STRUCT(15) dstr_1450__min_;
-  struct MELT_STRING_STRUCT(8) dstr_1451__cur_;
-  struct MELT_STRING_STRUCT(8) dstr_1452__max_;
-  struct MELT_STRING_STRUCT(16) dstr_1453__cur_;
-  struct MELT_STRING_STRUCT(3) dstr_1454__;
-  struct MELT_STRING_STRUCT(10) dstr_1455__cur_;
-  struct MELT_MULTIPLE_STRUCT(27) dtup_1456__FOREACH_LONG_UPTO;
-  struct MELT_STRING_STRUCT(20) dstr_1457__end_eachlon;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1458__FOREACH_LONG_UPTO;
-  struct MELT_OBJECT_STRUCT(3) dsym_1459__NULL;
-  struct MELT_STRING_STRUCT(4) dstr_1460__NULL;
-  struct MELT_OBJECT_STRUCT(5) dobj_1461__NULL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1462__NULL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1463__NULL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1464;
-  struct MELT_STRING_STRUCT(2) dstr_1465__;
-  struct MELT_STRING_STRUCT(10) dstr_1466__NULL_;
-  struct MELT_STRING_STRUCT(4) dstr_1467__NULL;
-  struct MELT_OBJECT_STRUCT(3) dsym_1468__NOTNULL;
-  struct MELT_STRING_STRUCT(7) dstr_1469__NOTNULL;
-  struct MELT_OBJECT_STRUCT(5) dobj_1470__NOTNULL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1471__NOTNULL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1472__NOTNULL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1473;
-  struct MELT_STRING_STRUCT(2) dstr_1474__;
-  struct MELT_STRING_STRUCT(10) dstr_1475__NULL_;
-  struct MELT_STRING_STRUCT(7) dstr_1476__NOTNULL;
-  struct MELT_OBJECT_STRUCT(3) dsym_1477__ZEROP;
-  struct MELT_STRING_STRUCT(5) dstr_1478__ZEROP;
-  struct MELT_OBJECT_STRUCT(5) dobj_1479__ZEROP;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1480__ZEROP;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1481__ZEROP;
-  struct MELT_OBJECT_STRUCT(2) dobj_1482;
-  struct MELT_STRING_STRUCT(2) dstr_1483__;
-  struct MELT_STRING_STRUCT(8) dstr_1484__OL_;
-  struct MELT_STRING_STRUCT(5) dstr_1485__ZEROP;
-  struct MELT_OBJECT_STRUCT(3) dsym_1486__NEED_DBG;
-  struct MELT_STRING_STRUCT(8) dstr_1487__NEED_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1488__NEED_DBG;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1489__NEED_DBG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1490__NEED_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1491__DEPTH;
-  struct MELT_STRING_STRUCT(5) dstr_1492__DEPTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_1493;
-  struct MELT_STRING_STRUCT(61) dstr_1494__flag_melt_debug;
-  struct MELT_STRING_STRUCT(9) dstr_1495__0_;
-  struct MELT_STRING_STRUCT(22) dstr_1496__MELTDBG_MAX;
-  struct MELT_STRING_STRUCT(8) dstr_1497__NEED_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1498__NEED_DBGLIM;
-  struct MELT_STRING_STRUCT(11) dstr_1499__NEED_DBGLIM;
-  struct MELT_OBJECT_STRUCT(5) dobj_1500__NEED_DBGLIM;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_1501__NEED_DBGLIM;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1502__NEED_DBGLIM;
-  struct MELT_OBJECT_STRUCT(2) dobj_1503;
-  struct MELT_OBJECT_STRUCT(3) dsym_1504__LIMIT;
-  struct MELT_STRING_STRUCT(5) dstr_1505__LIMIT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1506;
-  struct MELT_STRING_STRUCT(68) dstr_1507__flag_melt_debug;
-  struct MELT_STRING_STRUCT(9) dstr_1508__0_;
-  struct MELT_STRING_STRUCT(5) dstr_1509__;
-  struct MELT_STRING_STRUCT(2) dstr_1510__;
-  struct MELT_STRING_STRUCT(11) dstr_1511__NEED_DBGLIM;
-  struct MELT_OBJECT_STRUCT(3) dsym_1512__OUTCSTRING_DBG;
-  struct MELT_STRING_STRUCT(14) dstr_1513__OUTCSTRING_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1514__OUTCSTRING_DBG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1515__OUTCSTRING_DBG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1516__OUTCSTRING_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1517__S;
-  struct MELT_STRING_STRUCT(1) dstr_1518__S;
-  struct MELT_OBJECT_STRUCT(2) dobj_1519;
-  struct MELT_STRING_STRUCT(21) dstr_1520__melt_puts_dump_f;
-  struct MELT_STRING_STRUCT(2) dstr_1521__;
-  struct MELT_STRING_STRUCT(14) dstr_1522__OUTCSTRING_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1523__OUTNUM_DBG;
-  struct MELT_STRING_STRUCT(10) dstr_1524__OUTNUM_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1525__OUTNUM_DBG;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_1526__OUTNUM_DBG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1527__OUTNUM_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1528__PREF;
-  struct MELT_STRING_STRUCT(4) dstr_1529__PREF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1530;
-  struct MELT_OBJECT_STRUCT(3) dsym_1531__L;
-  struct MELT_STRING_STRUCT(1) dstr_1532__L;
-  struct MELT_OBJECT_STRUCT(2) dobj_1533;
-  struct MELT_OBJECT_STRUCT(3) dsym_1534__SUF;
-  struct MELT_STRING_STRUCT(3) dstr_1535__SUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1536;
-  struct MELT_STRING_STRUCT(23) dstr_1537__melt_putnum_dump;
-  struct MELT_STRING_STRUCT(4) dstr_1538__;
-  struct MELT_STRING_STRUCT(4) dstr_1539__;
-  struct MELT_STRING_STRUCT(2) dstr_1540__;
-  struct MELT_STRING_STRUCT(10) dstr_1541__OUTNUM_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1542__OUTSTR_DBG;
-  struct MELT_STRING_STRUCT(10) dstr_1543__OUTSTR_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1544__OUTSTR_DBG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1545__OUTSTR_DBG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1546__OUTSTR_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1547__STR;
-  struct MELT_STRING_STRUCT(3) dstr_1548__STR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1549;
-  struct MELT_STRING_STRUCT(35) dstr_1550__melt_putstr_dump;
-  struct MELT_STRING_STRUCT(2) dstr_1551__;
-  struct MELT_STRING_STRUCT(10) dstr_1552__OUTSTR_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1553__OUTSTRBUF_DBG;
-  struct MELT_STRING_STRUCT(13) dstr_1554__OUTSTRBUF_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1555__OUTSTRBUF_DBG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1556__OUTSTRBUF_DBG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1557__OUTSTRBUF_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1558__SBUF;
-  struct MELT_STRING_STRUCT(4) dstr_1559__SBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1560;
-  struct MELT_STRING_STRUCT(38) dstr_1561__melt_putstrbuf_d;
-  struct MELT_STRING_STRUCT(2) dstr_1562__;
-  struct MELT_STRING_STRUCT(13) dstr_1563__OUTSTRBUF_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1564__OUTNEWLINE_DBG;
-  struct MELT_STRING_STRUCT(14) dstr_1565__OUTNEWLINE_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1566__OUTNEWLINE_DBG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1567__OUTNEWLINE_DBG;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1568__OUTNEWLINE_DBG;
-  struct MELT_STRING_STRUCT(28) dstr_1569__melt_newlineflus;
-  struct MELT_STRING_STRUCT(14) dstr_1570__OUTNEWLINE_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1571__OUTNUM_ERR;
-  struct MELT_STRING_STRUCT(10) dstr_1572__OUTNUM_ERR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1573__OUTNUM_ERR;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_1574__OUTNUM_ERR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1575__OUTNUM_ERR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1576;
-  struct MELT_OBJECT_STRUCT(2) dobj_1577;
-  struct MELT_OBJECT_STRUCT(2) dobj_1578;
-  struct MELT_STRING_STRUCT(20) dstr_1579__melt_putnum_stde;
-  struct MELT_STRING_STRUCT(4) dstr_1580__;
-  struct MELT_STRING_STRUCT(4) dstr_1581__;
-  struct MELT_STRING_STRUCT(2) dstr_1582__;
-  struct MELT_STRING_STRUCT(10) dstr_1583__OUTNUM_ERR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1584__OUTCSTRING_ERR;
-  struct MELT_STRING_STRUCT(14) dstr_1585__OUTCSTRING_ERR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1586__OUTCSTRING_ERR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1587__OUTCSTRING_ERR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1588__OUTCSTRING_ERR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1589;
-  struct MELT_STRING_STRUCT(18) dstr_1590__melt_puts_stderr;
-  struct MELT_STRING_STRUCT(2) dstr_1591__;
-  struct MELT_STRING_STRUCT(14) dstr_1592__OUTCSTRING_ERR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1593__OUTSTRBUF_ERR;
-  struct MELT_STRING_STRUCT(13) dstr_1594__OUTSTRBUF_ERR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1595__OUTSTRBUF_ERR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1596__OUTSTRBUF_ERR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1597__OUTSTRBUF_ERR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1598;
-  struct MELT_STRING_STRUCT(35) dstr_1599__melt_putstrbuf_s;
-  struct MELT_STRING_STRUCT(2) dstr_1600__;
-  struct MELT_STRING_STRUCT(13) dstr_1601__OUTSTRBUF_ERR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1602__OUTNEWLINE_ERR;
-  struct MELT_STRING_STRUCT(14) dstr_1603__OUTNEWLINE_ERR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1604__OUTNEWLINE_ERR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1605__OUTNEWLINE_ERR;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1606__OUTNEWLINE_ERR;
-  struct MELT_STRING_STRUCT(25) dstr_1607__melt_newlineflus;
-  struct MELT_STRING_STRUCT(14) dstr_1608__OUTNEWLINE_ERR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1609__OUTSTR_ERR;
-  struct MELT_STRING_STRUCT(10) dstr_1610__OUTSTR_ERR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1611__OUTSTR_ERR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1612__OUTSTR_ERR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1613__OUTSTR_ERR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1614;
-  struct MELT_STRING_STRUCT(33) dstr_1615__melt_putstr_stde;
-  struct MELT_STRING_STRUCT(2) dstr_1616__;
-  struct MELT_STRING_STRUCT(10) dstr_1617__OUTSTR_ERR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1618__MESSAGE_DBG;
-  struct MELT_STRING_STRUCT(11) dstr_1619__MESSAGE_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1620__MESSAGE_DBG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1621__MESSAGE_DBG;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1622__MESSAGE_DBG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1623;
-  struct MELT_STRING_STRUCT(12) dstr_1624__debugeputs_;
-  struct MELT_STRING_STRUCT(2) dstr_1625__;
-  struct MELT_STRING_STRUCT(11) dstr_1626__MESSAGE_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1627__MESSAGENUM_DBG;
-  struct MELT_STRING_STRUCT(14) dstr_1628__MESSAGENUM_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1629__MESSAGENUM_DBG;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1630__MESSAGENUM_DBG;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1631__MESSAGENUM_DBG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1632;
-  struct MELT_OBJECT_STRUCT(2) dobj_1633;
-  struct MELT_STRING_STRUCT(10) dstr_1634__debugnum_;
-  struct MELT_STRING_STRUCT(4) dstr_1635__;
-  struct MELT_STRING_STRUCT(2) dstr_1636__;
-  struct MELT_STRING_STRUCT(14) dstr_1637__MESSAGENUM_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1638__MESSAGEVAL_DBG;
-  struct MELT_STRING_STRUCT(14) dstr_1639__MESSAGEVAL_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1640__MESSAGEVAL_DBG;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1641__MESSAGEVAL_DBG;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1642__MESSAGEVAL_DBG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1643;
-  struct MELT_OBJECT_STRUCT(3) dsym_1644__VAL;
-  struct MELT_STRING_STRUCT(3) dstr_1645__VAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1646;
-  struct MELT_STRING_STRUCT(12) dstr_1647__debugvalue_;
-  struct MELT_STRING_STRUCT(12) dstr_1648__void_;
-  struct MELT_STRING_STRUCT(3) dstr_1649__;
-  struct MELT_STRING_STRUCT(14) dstr_1650__MESSAGEVAL_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1651__LONGBACKTRACE_DBG;
-  struct MELT_STRING_STRUCT(17) dstr_1652__LONGBACKTRACE_DB;
-  struct MELT_OBJECT_STRUCT(5) dobj_1653__LONGBACKTRACE_DBG;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1654__LONGBACKTRACE_DBG;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1655__LONGBACKTRACE_DBG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1656;
-  struct MELT_OBJECT_STRUCT(3) dsym_1657__MAXDEPTH;
-  struct MELT_STRING_STRUCT(8) dstr_1658__MAXDEPTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_1659;
-  struct MELT_STRING_STRUCT(16) dstr_1660__debugbacktrace_;
-  struct MELT_STRING_STRUCT(19) dstr_1661__int_maxdept;
-  struct MELT_STRING_STRUCT(17) dstr_1662__LONGBACKTRACE_DB;
-  struct MELT_OBJECT_STRUCT(3) dsym_1663__SHORTBACKTRACE_DBG;
-  struct MELT_STRING_STRUCT(18) dstr_1664__SHORTBACKTRACE_D;
-  struct MELT_OBJECT_STRUCT(5) dobj_1665__SHORTBACKTRACE_DBG;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1666__SHORTBACKTRACE_DBG;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1667__SHORTBACKTRACE_DBG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1668;
-  struct MELT_OBJECT_STRUCT(2) dobj_1669;
-  struct MELT_STRING_STRUCT(73) dstr_1670__if_ENABLE_CHE;
-  struct MELT_STRING_STRUCT(4) dstr_1671__;
-  struct MELT_STRING_STRUCT(11) dstr_1672__endif_;
-  struct MELT_STRING_STRUCT(18) dstr_1673__SHORTBACKTRACE_D;
-  struct MELT_OBJECT_STRUCT(3) dsym_1674__CHECKVAL_DBG;
-  struct MELT_STRING_STRUCT(12) dstr_1675__CHECKVAL_DBG;
-  struct MELT_OBJECT_STRUCT(5) dobj_1676__CHECKVAL_DBG;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1677__CHECKVAL_DBG;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1678__CHECKVAL_DBG;
-  struct MELT_OBJECT_STRUCT(2) dobj_1679;
-  struct MELT_OBJECT_STRUCT(2) dobj_1680;
-  struct MELT_STRING_STRUCT(25) dstr_1681__melt_checked_ass;
-  struct MELT_STRING_STRUCT(3) dstr_1682__;
-  struct MELT_STRING_STRUCT(2) dstr_1683__;
-  struct MELT_STRING_STRUCT(12) dstr_1684__CHECKVAL_DBG;
-  struct MELT_OBJECT_STRUCT(3) dsym_1685__DEBUGCSTRING;
-  struct MELT_STRING_STRUCT(12) dstr_1686__DEBUGCSTRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_1687__DEBUGCSTRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1688__DEBUGCSTRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1689__DEBUGCSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_1690;
-  struct MELT_OBJECT_STRUCT(2) dobj_1691;
-  struct MELT_STRING_STRUCT(37) dstr_1692__debugeprintf_de;
-  struct MELT_STRING_STRUCT(2) dstr_1693__;
-  struct MELT_STRING_STRUCT(1) dstr_1694__;
-  struct MELT_STRING_STRUCT(12) dstr_1695__DEBUGCSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_1696__THE_NULL_CSTRING;
-  struct MELT_STRING_STRUCT(16) dstr_1697__THE_NULL_CSTRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_1698__THE_NULL_CSTRING;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1699__THE_NULL_CSTRING;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_1700__THE_NULL_CSTRING;
-  struct MELT_STRING_STRUCT(8) dstr_1701__char_0;
-  struct MELT_STRING_STRUCT(16) dstr_1702__THE_NULL_CSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_1703__MAKE_STRBUF;
-  struct MELT_STRING_STRUCT(11) dstr_1704__MAKE_STRBUF;
-  struct MELT_OBJECT_STRUCT(5) dobj_1705__MAKE_STRBUF;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1706__MAKE_STRBUF;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1707__MAKE_STRBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1708;
-  struct MELT_STRING_STRUCT(37) dstr_1709__meltgc_new_strbu;
-  struct MELT_STRING_STRUCT(12) dstr_1710__char_0_;
-  struct MELT_STRING_STRUCT(11) dstr_1711__MAKE_STRBUF;
-  struct MELT_OBJECT_STRUCT(3) dsym_1712__STRBUF_USEDLENGTH;
-  struct MELT_STRING_STRUCT(17) dstr_1713__STRBUF_USEDLENGT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1714__STRBUF_USEDLENGTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1715__STRBUF_USEDLENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1716__STRBUF_USEDLENGTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_1717;
-  struct MELT_STRING_STRUCT(36) dstr_1718__melt_strbuf_used;
-  struct MELT_STRING_STRUCT(2) dstr_1719__;
-  struct MELT_STRING_STRUCT(17) dstr_1720__STRBUF_USEDLENGT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1721__IS_STRBUF;
-  struct MELT_STRING_STRUCT(9) dstr_1722__IS_STRBUF;
-  struct MELT_OBJECT_STRUCT(5) dobj_1723__IS_STRBUF;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1724__IS_STRBUF;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1725__IS_STRBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1726;
-  struct MELT_STRING_STRUCT(31) dstr_1727__melt_magic_disc;
-  struct MELT_STRING_STRUCT(19) dstr_1728__OBMAG_STRB;
-  struct MELT_STRING_STRUCT(9) dstr_1729__IS_STRBUF;
-  struct MELT_OBJECT_STRUCT(3) dsym_1730__IS_OUT;
-  struct MELT_STRING_STRUCT(6) dstr_1731__IS_OUT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1732__IS_OUT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1733__IS_OUT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_1734__IS_OUT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1735;
-  struct MELT_STRING_STRUCT(28) dstr_1736__melt_is_out_;
-  struct MELT_STRING_STRUCT(3) dstr_1737__;
-  struct MELT_STRING_STRUCT(6) dstr_1738__IS_OUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1739__ADD2SBUF_STRCONST;
-  struct MELT_STRING_STRUCT(17) dstr_1740__ADD2SBUF_STRCONS;
-  struct MELT_OBJECT_STRUCT(5) dobj_1741__ADD2SBUF_STRCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1742__ADD2SBUF_STRCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1743__ADD2SBUF_STRCONST;
-  struct MELT_OBJECT_STRUCT(2) dobj_1744;
-  struct MELT_OBJECT_STRUCT(2) dobj_1745;
-  struct MELT_STRING_STRUCT(31) dstr_1746__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(4) dstr_1747__;
-  struct MELT_STRING_STRUCT(2) dstr_1748__;
-  struct MELT_STRING_STRUCT(17) dstr_1749__ADD2SBUF_STRCONS;
-  struct MELT_OBJECT_STRUCT(3) dsym_1750__ADD2SBUF_STRING;
-  struct MELT_STRING_STRUCT(15) dstr_1751__ADD2SBUF_STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_1752__ADD2SBUF_STRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1753__ADD2SBUF_STRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1754__ADD2SBUF_STRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_1755;
-  struct MELT_OBJECT_STRUCT(2) dobj_1756;
-  struct MELT_STRING_STRUCT(31) dstr_1757__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(32) dstr_1758__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_1759__;
-  struct MELT_STRING_STRUCT(15) dstr_1760__ADD2SBUF_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_1761__ADD2SBUF_MIXLOC;
-  struct MELT_STRING_STRUCT(15) dstr_1762__ADD2SBUF_MIXLOC;
-  struct MELT_OBJECT_STRUCT(5) dobj_1763__ADD2SBUF_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_1764__ADD2SBUF_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1765__ADD2SBUF_MIXLOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_1766;
-  struct MELT_OBJECT_STRUCT(3) dsym_1767__MIXL;
-  struct MELT_STRING_STRUCT(4) dstr_1768__MIXL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1769;
-  struct MELT_STRING_STRUCT(53) dstr_1770__add2sbufmixloc;
-  struct MELT_STRING_STRUCT(56) dstr_1771__OBMAG_MIXL;
-  struct MELT_STRING_STRUCT(70) dstr_1772__s_d_;
-  struct MELT_STRING_STRUCT(60) dstr_1773__LOC;
-  struct MELT_STRING_STRUCT(5) dstr_1774__;
-  struct MELT_STRING_STRUCT(15) dstr_1775__ADD2SBUF_MIXLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_1776__ADD2SBUF_SHORT_MIXLOC;
-  struct MELT_STRING_STRUCT(21) dstr_1777__ADD2SBUF_SHORT_M;
-  struct MELT_OBJECT_STRUCT(5) dobj_1778__ADD2SBUF_SHORT_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_1779__ADD2SBUF_SHORT_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1780__ADD2SBUF_SHORT_MIXLOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_1781;
-  struct MELT_OBJECT_STRUCT(2) dobj_1782;
-  struct MELT_STRING_STRUCT(60) dstr_1783__add2sbufshortm;
-  struct MELT_STRING_STRUCT(56) dstr_1784__OBMAG_MIXL;
-  struct MELT_STRING_STRUCT(81) dstr_1785__s_d_;
-  struct MELT_STRING_STRUCT(75) dstr_1786__L;
-  struct MELT_STRING_STRUCT(21) dstr_1787__ADD2SBUF_SHORT_M;
-  struct MELT_OBJECT_STRUCT(3) dsym_1788__ADD2SBUF_TEXI_MIXLOC;
-  struct MELT_STRING_STRUCT(20) dstr_1789__ADD2SBUF_TEXI_MI;
-  struct MELT_OBJECT_STRUCT(5) dobj_1790__ADD2SBUF_TEXI_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_1791__ADD2SBUF_TEXI_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1792__ADD2SBUF_TEXI_MIXLOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_1793;
-  struct MELT_OBJECT_STRUCT(2) dobj_1794;
-  struct MELT_STRING_STRUCT(57) dstr_1795__add2sbufteximi;
-  struct MELT_STRING_STRUCT(57) dstr_1796__OBMAG_MIXL;
-  struct MELT_STRING_STRUCT(97) dstr_1797__file_file_;
-  struct MELT_STRING_STRUCT(62) dstr_1798__L;
-  struct MELT_STRING_STRUCT(5) dstr_1799__;
-  struct MELT_STRING_STRUCT(20) dstr_1800__ADD2SBUF_TEXI_MI;
-  struct MELT_OBJECT_STRUCT(3) dsym_1801__ADD2SBUF_INDENT;
-  struct MELT_STRING_STRUCT(15) dstr_1802__ADD2SBUF_INDENT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1803__ADD2SBUF_INDENT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1804__ADD2SBUF_INDENT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1805__ADD2SBUF_INDENT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1806;
-  struct MELT_OBJECT_STRUCT(2) dobj_1807;
-  struct MELT_STRING_STRUCT(38) dstr_1808__meltgc_strbuf_ad;
-  struct MELT_STRING_STRUCT(4) dstr_1809__;
-  struct MELT_STRING_STRUCT(6) dstr_1810__64_;
-  struct MELT_STRING_STRUCT(15) dstr_1811__ADD2SBUF_INDENT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1812__ADD2SBUF_INDENTNL;
-  struct MELT_STRING_STRUCT(17) dstr_1813__ADD2SBUF_INDENTN;
-  struct MELT_OBJECT_STRUCT(5) dobj_1814__ADD2SBUF_INDENTNL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1815__ADD2SBUF_INDENTNL;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1816__ADD2SBUF_INDENTNL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1817;
-  struct MELT_OBJECT_STRUCT(2) dobj_1818;
-  struct MELT_STRING_STRUCT(38) dstr_1819__meltgc_strbuf_ad;
-  struct MELT_STRING_STRUCT(4) dstr_1820__;
-  struct MELT_STRING_STRUCT(5) dstr_1821__0_;
-  struct MELT_STRING_STRUCT(17) dstr_1822__ADD2SBUF_INDENTN;
-  struct MELT_OBJECT_STRUCT(3) dsym_1823__ADD2SBUF_SBUF;
-  struct MELT_STRING_STRUCT(13) dstr_1824__ADD2SBUF_SBUF;
-  struct MELT_OBJECT_STRUCT(5) dobj_1825__ADD2SBUF_SBUF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1826__ADD2SBUF_SBUF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1827__ADD2SBUF_SBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1828;
-  struct MELT_OBJECT_STRUCT(3) dsym_1829__ASBUF;
-  struct MELT_STRING_STRUCT(5) dstr_1830__ASBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1831;
-  struct MELT_STRING_STRUCT(31) dstr_1832__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(19) dstr_1833__melt_strbuf_s;
-  struct MELT_STRING_STRUCT(2) dstr_1834__;
-  struct MELT_STRING_STRUCT(13) dstr_1835__ADD2SBUF_SBUF;
-  struct MELT_OBJECT_STRUCT(3) dsym_1836__ADD2SBUF_CENCSTRING;
-  struct MELT_STRING_STRUCT(19) dstr_1837__ADD2SBUF_CENCSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1838__ADD2SBUF_CENCSTRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1839__ADD2SBUF_CENCSTRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1840__ADD2SBUF_CENCSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_1841;
-  struct MELT_OBJECT_STRUCT(2) dobj_1842;
-  struct MELT_STRING_STRUCT(36) dstr_1843__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(32) dstr_1844__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_1845__;
-  struct MELT_STRING_STRUCT(19) dstr_1846__ADD2SBUF_CENCSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1847__ADD2SBUF_CENCSTRBUF;
-  struct MELT_STRING_STRUCT(19) dstr_1848__ADD2SBUF_CENCSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1849__ADD2SBUF_CENCSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1850__ADD2SBUF_CENCSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1851__ADD2SBUF_CENCSTRBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1852;
-  struct MELT_OBJECT_STRUCT(2) dobj_1853;
-  struct MELT_STRING_STRUCT(36) dstr_1854__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(32) dstr_1855__melt_strbuf_s;
-  struct MELT_STRING_STRUCT(3) dstr_1856__;
-  struct MELT_STRING_STRUCT(19) dstr_1857__ADD2SBUF_CENCSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1858__ADD2SBUF_CCOMSTRING;
-  struct MELT_STRING_STRUCT(19) dstr_1859__ADD2SBUF_CCOMSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1860__ADD2SBUF_CCOMSTRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1861__ADD2SBUF_CCOMSTRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1862__ADD2SBUF_CCOMSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_1863;
-  struct MELT_OBJECT_STRUCT(2) dobj_1864;
-  struct MELT_STRING_STRUCT(40) dstr_1865__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(32) dstr_1866__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_1867__;
-  struct MELT_STRING_STRUCT(19) dstr_1868__ADD2SBUF_CCOMSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1869__ADD2SBUF_CCOMSTRBUF;
-  struct MELT_STRING_STRUCT(19) dstr_1870__ADD2SBUF_CCOMSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_1871__ADD2SBUF_CCOMSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1872__ADD2SBUF_CCOMSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1873__ADD2SBUF_CCOMSTRBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_1874;
-  struct MELT_OBJECT_STRUCT(2) dobj_1875;
-  struct MELT_STRING_STRUCT(40) dstr_1876__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(43) dstr_1877__me;
-  struct MELT_STRING_STRUCT(3) dstr_1878__;
-  struct MELT_STRING_STRUCT(19) dstr_1879__ADD2SBUF_CCOMSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_1880__ADD2SBUF_CCOMCONST;
-  struct MELT_STRING_STRUCT(18) dstr_1881__ADD2SBUF_CCOMCON;
-  struct MELT_OBJECT_STRUCT(5) dobj_1882__ADD2SBUF_CCOMCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1883__ADD2SBUF_CCOMCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1884__ADD2SBUF_CCOMCONST;
-  struct MELT_OBJECT_STRUCT(2) dobj_1885;
-  struct MELT_OBJECT_STRUCT(3) dsym_1886__CSTR;
-  struct MELT_STRING_STRUCT(4) dstr_1887__CSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1888;
-  struct MELT_STRING_STRUCT(28) dstr_1889__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(3) dstr_1890__;
-  struct MELT_STRING_STRUCT(1) dstr_1891__;
-  struct MELT_STRING_STRUCT(18) dstr_1892__ADD2SBUF_CCOMCON;
-  struct MELT_OBJECT_STRUCT(3) dsym_1893__ADD2SBUF_CIDENT;
-  struct MELT_STRING_STRUCT(15) dstr_1894__ADD2SBUF_CIDENT;
-  struct MELT_OBJECT_STRUCT(5) dobj_1895__ADD2SBUF_CIDENT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1896__ADD2SBUF_CIDENT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1897__ADD2SBUF_CIDENT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1898;
-  struct MELT_OBJECT_STRUCT(2) dobj_1899;
-  struct MELT_STRING_STRUCT(38) dstr_1900__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(34) dstr_1901__melt_string;
-  struct MELT_STRING_STRUCT(3) dstr_1902__;
-  struct MELT_STRING_STRUCT(15) dstr_1903__ADD2SBUF_CIDENT;
-  struct MELT_OBJECT_STRUCT(3) dsym_1904__ADD2SBUF_CIDENTPREFIX;
-  struct MELT_STRING_STRUCT(21) dstr_1905__ADD2SBUF_CIDENTP;
-  struct MELT_OBJECT_STRUCT(5) dobj_1906__ADD2SBUF_CIDENTPREFIX;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_1907__ADD2SBUF_CIDENTPREFIX;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_1908__ADD2SBUF_CIDENTPREFIX;
-  struct MELT_OBJECT_STRUCT(2) dobj_1909;
-  struct MELT_OBJECT_STRUCT(2) dobj_1910;
-  struct MELT_OBJECT_STRUCT(3) dsym_1911__PREFLEN;
-  struct MELT_STRING_STRUCT(7) dstr_1912__PREFLEN;
-  struct MELT_OBJECT_STRUCT(2) dobj_1913;
-  struct MELT_STRING_STRUCT(44) dstr_1914__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(32) dstr_1915__melt_string_s;
-  struct MELT_STRING_STRUCT(5) dstr_1916__;
-  struct MELT_STRING_STRUCT(2) dstr_1917__;
-  struct MELT_STRING_STRUCT(21) dstr_1918__ADD2SBUF_CIDENTP;
-  struct MELT_OBJECT_STRUCT(3) dsym_1919__ADD2SBUF_LONGDEC;
-  struct MELT_STRING_STRUCT(16) dstr_1920__ADD2SBUF_LONGDEC;
-  struct MELT_OBJECT_STRUCT(5) dobj_1921__ADD2SBUF_LONGDEC;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1922__ADD2SBUF_LONGDEC;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1923__ADD2SBUF_LONGDEC;
-  struct MELT_OBJECT_STRUCT(2) dobj_1924;
-  struct MELT_OBJECT_STRUCT(3) dsym_1925__NUM;
-  struct MELT_STRING_STRUCT(3) dstr_1926__NUM;
-  struct MELT_OBJECT_STRUCT(2) dobj_1927;
-  struct MELT_STRING_STRUCT(35) dstr_1928__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(4) dstr_1929__;
-  struct MELT_STRING_STRUCT(2) dstr_1930__;
-  struct MELT_STRING_STRUCT(16) dstr_1931__ADD2SBUF_LONGDEC;
-  struct MELT_OBJECT_STRUCT(3) dsym_1932__ADD2SBUF_LONGHEX;
-  struct MELT_STRING_STRUCT(16) dstr_1933__ADD2SBUF_LONGHEX;
-  struct MELT_OBJECT_STRUCT(5) dobj_1934__ADD2SBUF_LONGHEX;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1935__ADD2SBUF_LONGHEX;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1936__ADD2SBUF_LONGHEX;
-  struct MELT_OBJECT_STRUCT(2) dobj_1937;
-  struct MELT_OBJECT_STRUCT(2) dobj_1938;
-  struct MELT_STRING_STRUCT(35) dstr_1939__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(4) dstr_1940__;
-  struct MELT_STRING_STRUCT(2) dstr_1941__;
-  struct MELT_STRING_STRUCT(16) dstr_1942__ADD2SBUF_LONGHEX;
-  struct MELT_OBJECT_STRUCT(3) dsym_1943__ADD2SBUF_ROUTINEDESCR;
-  struct MELT_STRING_STRUCT(21) dstr_1944__ADD2SBUF_ROUTINE;
-  struct MELT_OBJECT_STRUCT(5) dobj_1945__ADD2SBUF_ROUTINEDESCR;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1946__ADD2SBUF_ROUTINEDESCR;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1947__ADD2SBUF_ROUTINEDESCR;
-  struct MELT_OBJECT_STRUCT(2) dobj_1948;
-  struct MELT_OBJECT_STRUCT(3) dsym_1949__ROUT;
-  struct MELT_STRING_STRUCT(4) dstr_1950__ROUT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1951;
-  struct MELT_STRING_STRUCT(31) dstr_1952__meltgc_add_strbu;
-  struct MELT_STRING_STRUCT(38) dstr_1953__melt_routine_;
-  struct MELT_STRING_STRUCT(3) dstr_1954__;
-  struct MELT_STRING_STRUCT(21) dstr_1955__ADD2SBUF_ROUTINE;
-  struct MELT_OBJECT_STRUCT(3) dsym_1956__OUTPUT_SBUF_STRCONST;
-  struct MELT_STRING_STRUCT(20) dstr_1957__OUTPUT_SBUF_STRC;
-  struct MELT_OBJECT_STRUCT(5) dobj_1958__OUTPUT_SBUF_STRCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1959__OUTPUT_SBUF_STRCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1960__OUTPUT_SBUF_STRCONST;
-  struct MELT_OBJECT_STRUCT(2) dobj_1961;
-  struct MELT_OBJECT_STRUCT(3) dsym_1962__NAM;
-  struct MELT_STRING_STRUCT(3) dstr_1963__NAM;
-  struct MELT_OBJECT_STRUCT(2) dobj_1964;
-  struct MELT_STRING_STRUCT(29) dstr_1965__melt_output_str;
-  struct MELT_STRING_STRUCT(4) dstr_1966__;
-  struct MELT_STRING_STRUCT(3) dstr_1967__;
-  struct MELT_STRING_STRUCT(20) dstr_1968__OUTPUT_SBUF_STRC;
-  struct MELT_OBJECT_STRUCT(3) dsym_1969__OUTPUT_SBUF_STRVAL;
-  struct MELT_STRING_STRUCT(18) dstr_1970__OUTPUT_SBUF_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_1971__OUTPUT_SBUF_STRVAL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1972__OUTPUT_SBUF_STRVAL;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1973__OUTPUT_SBUF_STRVAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_1974;
-  struct MELT_OBJECT_STRUCT(3) dsym_1975__VNAM;
-  struct MELT_STRING_STRUCT(4) dstr_1976__VNAM;
-  struct MELT_OBJECT_STRUCT(2) dobj_1977;
-  struct MELT_STRING_STRUCT(29) dstr_1978__melt_output_str;
-  struct MELT_STRING_STRUCT(19) dstr_1979__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_1980__;
-  struct MELT_STRING_STRUCT(18) dstr_1981__OUTPUT_SBUF_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_1982__ADD2OUT_STRCONST;
-  struct MELT_STRING_STRUCT(16) dstr_1983__ADD2OUT_STRCONST;
-  struct MELT_OBJECT_STRUCT(5) dobj_1984__ADD2OUT_STRCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1985__ADD2OUT_STRCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1986__ADD2OUT_STRCONST;
-  struct MELT_OBJECT_STRUCT(3) dsym_1987__OUT;
-  struct MELT_STRING_STRUCT(3) dstr_1988__OUT;
-  struct MELT_OBJECT_STRUCT(2) dobj_1989;
-  struct MELT_OBJECT_STRUCT(2) dobj_1990;
-  struct MELT_STRING_STRUCT(28) dstr_1991__meltgc_add_out_;
-  struct MELT_STRING_STRUCT(4) dstr_1992__;
-  struct MELT_STRING_STRUCT(2) dstr_1993__;
-  struct MELT_STRING_STRUCT(16) dstr_1994__ADD2OUT_STRCONST;
-  struct MELT_OBJECT_STRUCT(3) dsym_1995__ADD2OUT_STRING;
-  struct MELT_STRING_STRUCT(14) dstr_1996__ADD2OUT_STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_1997__ADD2OUT_STRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_1998__ADD2OUT_STRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_1999__ADD2OUT_STRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2000;
-  struct MELT_OBJECT_STRUCT(2) dobj_2001;
-  struct MELT_STRING_STRUCT(28) dstr_2002__meltgc_add_out_;
-  struct MELT_STRING_STRUCT(32) dstr_2003__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_2004__;
-  struct MELT_STRING_STRUCT(14) dstr_2005__ADD2OUT_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2006__ADD2OUT_MIXLOC;
-  struct MELT_STRING_STRUCT(14) dstr_2007__ADD2OUT_MIXLOC;
-  struct MELT_OBJECT_STRUCT(5) dobj_2008__ADD2OUT_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2009__ADD2OUT_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2010__ADD2OUT_MIXLOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_2011;
-  struct MELT_OBJECT_STRUCT(2) dobj_2012;
-  struct MELT_STRING_STRUCT(54) dstr_2013__add2outmixloc_;
-  struct MELT_STRING_STRUCT(125) dstr_2014__OBMAG_MIXL;
-  struct MELT_STRING_STRUCT(54) dstr_2015__LOCATION_;
-  struct MELT_STRING_STRUCT(5) dstr_2016__;
-  struct MELT_STRING_STRUCT(14) dstr_2017__ADD2OUT_MIXLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_2018__ADD2OUT_INDENT;
-  struct MELT_STRING_STRUCT(14) dstr_2019__ADD2OUT_INDENT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2020__ADD2OUT_INDENT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2021__ADD2OUT_INDENT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2022__ADD2OUT_INDENT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2023;
-  struct MELT_OBJECT_STRUCT(2) dobj_2024;
-  struct MELT_STRING_STRUCT(35) dstr_2025__meltgc_out_add_i;
-  struct MELT_STRING_STRUCT(4) dstr_2026__;
-  struct MELT_STRING_STRUCT(6) dstr_2027__64_;
-  struct MELT_STRING_STRUCT(14) dstr_2028__ADD2OUT_INDENT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2029__ADD2OUT_INDENTNL;
-  struct MELT_STRING_STRUCT(16) dstr_2030__ADD2OUT_INDENTNL;
-  struct MELT_OBJECT_STRUCT(5) dobj_2031__ADD2OUT_INDENTNL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2032__ADD2OUT_INDENTNL;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2033__ADD2OUT_INDENTNL;
-  struct MELT_OBJECT_STRUCT(2) dobj_2034;
-  struct MELT_OBJECT_STRUCT(2) dobj_2035;
-  struct MELT_STRING_STRUCT(35) dstr_2036__meltgc_out_add_i;
-  struct MELT_STRING_STRUCT(4) dstr_2037__;
-  struct MELT_STRING_STRUCT(5) dstr_2038__0_;
-  struct MELT_STRING_STRUCT(16) dstr_2039__ADD2OUT_INDENTNL;
-  struct MELT_OBJECT_STRUCT(3) dsym_2040__ADD2OUT_SBUF;
-  struct MELT_STRING_STRUCT(12) dstr_2041__ADD2OUT_SBUF;
-  struct MELT_OBJECT_STRUCT(5) dobj_2042__ADD2OUT_SBUF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2043__ADD2OUT_SBUF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2044__ADD2OUT_SBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_2045;
-  struct MELT_OBJECT_STRUCT(2) dobj_2046;
-  struct MELT_STRING_STRUCT(28) dstr_2047__meltgc_add_out_;
-  struct MELT_STRING_STRUCT(16) dstr_2048__melt_out_str_;
-  struct MELT_STRING_STRUCT(2) dstr_2049__;
-  struct MELT_STRING_STRUCT(12) dstr_2050__ADD2OUT_SBUF;
-  struct MELT_OBJECT_STRUCT(3) dsym_2051__ADD2OUT_CENCSTRING;
-  struct MELT_STRING_STRUCT(18) dstr_2052__ADD2OUT_CENCSTRI;
-  struct MELT_OBJECT_STRUCT(5) dobj_2053__ADD2OUT_CENCSTRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2054__ADD2OUT_CENCSTRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2055__ADD2OUT_CENCSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2056;
-  struct MELT_OBJECT_STRUCT(2) dobj_2057;
-  struct MELT_STRING_STRUCT(33) dstr_2058__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(32) dstr_2059__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_2060__;
-  struct MELT_STRING_STRUCT(18) dstr_2061__ADD2OUT_CENCSTRI;
-  struct MELT_OBJECT_STRUCT(3) dsym_2062__ADD2OUT_CENCSTRBUF;
-  struct MELT_STRING_STRUCT(18) dstr_2063__ADD2OUT_CENCSTRB;
-  struct MELT_OBJECT_STRUCT(5) dobj_2064__ADD2OUT_CENCSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2065__ADD2OUT_CENCSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2066__ADD2OUT_CENCSTRBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_2067;
-  struct MELT_OBJECT_STRUCT(2) dobj_2068;
-  struct MELT_STRING_STRUCT(33) dstr_2069__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(29) dstr_2070__melt_out_str_;
-  struct MELT_STRING_STRUCT(3) dstr_2071__;
-  struct MELT_STRING_STRUCT(18) dstr_2072__ADD2OUT_CENCSTRB;
-  struct MELT_OBJECT_STRUCT(3) dsym_2073__ADD2OUT_CCOMSTRING;
-  struct MELT_STRING_STRUCT(18) dstr_2074__ADD2OUT_CCOMSTRI;
-  struct MELT_OBJECT_STRUCT(5) dobj_2075__ADD2OUT_CCOMSTRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2076__ADD2OUT_CCOMSTRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2077__ADD2OUT_CCOMSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2078;
-  struct MELT_OBJECT_STRUCT(2) dobj_2079;
-  struct MELT_STRING_STRUCT(37) dstr_2080__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(32) dstr_2081__melt_string_s;
-  struct MELT_STRING_STRUCT(3) dstr_2082__;
-  struct MELT_STRING_STRUCT(18) dstr_2083__ADD2OUT_CCOMSTRI;
-  struct MELT_OBJECT_STRUCT(3) dsym_2084__ADD2OUT_CCOMSTRBUF;
-  struct MELT_STRING_STRUCT(18) dstr_2085__ADD2OUT_CCOMSTRB;
-  struct MELT_OBJECT_STRUCT(5) dobj_2086__ADD2OUT_CCOMSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2087__ADD2OUT_CCOMSTRBUF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2088__ADD2OUT_CCOMSTRBUF;
-  struct MELT_OBJECT_STRUCT(2) dobj_2089;
-  struct MELT_OBJECT_STRUCT(2) dobj_2090;
-  struct MELT_STRING_STRUCT(37) dstr_2091__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(29) dstr_2092__melt_out_str_;
-  struct MELT_STRING_STRUCT(3) dstr_2093__;
-  struct MELT_STRING_STRUCT(18) dstr_2094__ADD2OUT_CCOMSTRB;
-  struct MELT_OBJECT_STRUCT(3) dsym_2095__ADD2OUT_CCOMCONST;
-  struct MELT_STRING_STRUCT(17) dstr_2096__ADD2OUT_CCOMCONS;
-  struct MELT_OBJECT_STRUCT(5) dobj_2097__ADD2OUT_CCOMCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2098__ADD2OUT_CCOMCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2099__ADD2OUT_CCOMCONST;
-  struct MELT_OBJECT_STRUCT(2) dobj_2100;
-  struct MELT_OBJECT_STRUCT(2) dobj_2101;
-  struct MELT_STRING_STRUCT(25) dstr_2102__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(3) dstr_2103__;
-  struct MELT_STRING_STRUCT(1) dstr_2104__;
-  struct MELT_STRING_STRUCT(17) dstr_2105__ADD2OUT_CCOMCONS;
-  struct MELT_OBJECT_STRUCT(3) dsym_2106__ADD2OUT_CIDENT;
-  struct MELT_STRING_STRUCT(14) dstr_2107__ADD2OUT_CIDENT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2108__ADD2OUT_CIDENT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2109__ADD2OUT_CIDENT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2110__ADD2OUT_CIDENT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2111;
-  struct MELT_OBJECT_STRUCT(2) dobj_2112;
-  struct MELT_STRING_STRUCT(35) dstr_2113__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(38) dstr_2114__melt_st;
-  struct MELT_STRING_STRUCT(3) dstr_2115__;
-  struct MELT_STRING_STRUCT(14) dstr_2116__ADD2OUT_CIDENT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2117__ADD2OUT_CIDENTPREFIX;
-  struct MELT_STRING_STRUCT(20) dstr_2118__ADD2OUT_CIDENTPR;
-  struct MELT_OBJECT_STRUCT(5) dobj_2119__ADD2OUT_CIDENTPREFIX;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2120__ADD2OUT_CIDENTPREFIX;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2121__ADD2OUT_CIDENTPREFIX;
-  struct MELT_OBJECT_STRUCT(2) dobj_2122;
-  struct MELT_OBJECT_STRUCT(2) dobj_2123;
-  struct MELT_OBJECT_STRUCT(2) dobj_2124;
-  struct MELT_STRING_STRUCT(41) dstr_2125__meltgc_add_out_c;
-  struct MELT_STRING_STRUCT(37) dstr_2126__melt_str;
-  struct MELT_STRING_STRUCT(10) dstr_2127__;
-  struct MELT_STRING_STRUCT(2) dstr_2128__;
-  struct MELT_STRING_STRUCT(20) dstr_2129__ADD2OUT_CIDENTPR;
-  struct MELT_OBJECT_STRUCT(3) dsym_2130__ADD2OUT_LONGDEC;
-  struct MELT_STRING_STRUCT(15) dstr_2131__ADD2OUT_LONGDEC;
-  struct MELT_OBJECT_STRUCT(5) dobj_2132__ADD2OUT_LONGDEC;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2133__ADD2OUT_LONGDEC;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2134__ADD2OUT_LONGDEC;
-  struct MELT_OBJECT_STRUCT(2) dobj_2135;
-  struct MELT_OBJECT_STRUCT(2) dobj_2136;
-  struct MELT_STRING_STRUCT(32) dstr_2137__meltgc_add_out_d;
-  struct MELT_STRING_STRUCT(4) dstr_2138__;
-  struct MELT_STRING_STRUCT(2) dstr_2139__;
-  struct MELT_STRING_STRUCT(15) dstr_2140__ADD2OUT_LONGDEC;
-  struct MELT_OBJECT_STRUCT(3) dsym_2141__ADD2OUT_LONGHEX;
-  struct MELT_STRING_STRUCT(15) dstr_2142__ADD2OUT_LONGHEX;
-  struct MELT_OBJECT_STRUCT(5) dobj_2143__ADD2OUT_LONGHEX;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2144__ADD2OUT_LONGHEX;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2145__ADD2OUT_LONGHEX;
-  struct MELT_OBJECT_STRUCT(2) dobj_2146;
-  struct MELT_OBJECT_STRUCT(2) dobj_2147;
-  struct MELT_STRING_STRUCT(32) dstr_2148__meltgc_add_out_h;
-  struct MELT_STRING_STRUCT(4) dstr_2149__;
-  struct MELT_STRING_STRUCT(2) dstr_2150__;
-  struct MELT_STRING_STRUCT(15) dstr_2151__ADD2OUT_LONGHEX;
-  struct MELT_OBJECT_STRUCT(3) dsym_2152__ADD2OUT_ROUTINEDESCR;
-  struct MELT_STRING_STRUCT(20) dstr_2153__ADD2OUT_ROUTINED;
-  struct MELT_OBJECT_STRUCT(5) dobj_2154__ADD2OUT_ROUTINEDESCR;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2155__ADD2OUT_ROUTINEDESCR;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2156__ADD2OUT_ROUTINEDESCR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2157;
-  struct MELT_OBJECT_STRUCT(2) dobj_2158;
-  struct MELT_STRING_STRUCT(28) dstr_2159__meltgc_add_out_;
-  struct MELT_STRING_STRUCT(44) dstr_2160__melt_ro;
-  struct MELT_STRING_STRUCT(3) dstr_2161__;
-  struct MELT_STRING_STRUCT(20) dstr_2162__ADD2OUT_ROUTINED;
-  struct MELT_OBJECT_STRUCT(3) dsym_2163__IS_STRING;
-  struct MELT_STRING_STRUCT(9) dstr_2164__IS_STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_2165__IS_STRING;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2166__IS_STRING;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2167__IS_STRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2168;
-  struct MELT_STRING_STRUCT(31) dstr_2169__melt_magic_disc;
-  struct MELT_STRING_STRUCT(19) dstr_2170__OBMAG_STRI;
-  struct MELT_STRING_STRUCT(9) dstr_2171__IS_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2172__S;
-  struct MELT_STRING_STRUCT(3) dstr_2173__S;
-  struct MELT_OBJECT_STRUCT(5) dobj_2174__S;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2175__S;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2176__S;
-  struct MELT_OBJECT_STRUCT(3) dsym_2177__S1;
-  struct MELT_STRING_STRUCT(2) dstr_2178__S1;
-  struct MELT_OBJECT_STRUCT(2) dobj_2179;
-  struct MELT_OBJECT_STRUCT(3) dsym_2180__S2;
-  struct MELT_STRING_STRUCT(2) dstr_2181__S2;
-  struct MELT_OBJECT_STRUCT(2) dobj_2182;
-  struct MELT_STRING_STRUCT(30) dstr_2183__melt_string_same;
-  struct MELT_STRING_STRUCT(16) dstr_2184__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2185__;
-  struct MELT_STRING_STRUCT(3) dstr_2186__S;
-  struct MELT_OBJECT_STRUCT(3) dsym_2187__S;
-  struct MELT_STRING_STRUCT(3) dstr_2188__S;
-  struct MELT_OBJECT_STRUCT(5) dobj_2189__S;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2190__S;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2191__S;
-  struct MELT_OBJECT_STRUCT(2) dobj_2192;
-  struct MELT_OBJECT_STRUCT(2) dobj_2193;
-  struct MELT_STRING_STRUCT(31) dstr_2194__melt_string_sam;
-  struct MELT_STRING_STRUCT(16) dstr_2195__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2196__;
-  struct MELT_STRING_STRUCT(3) dstr_2197__S;
-  struct MELT_OBJECT_STRUCT(3) dsym_2198__MAKE_STRING;
-  struct MELT_STRING_STRUCT(11) dstr_2199__MAKE_STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_2200__MAKE_STRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2201__MAKE_STRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2202__MAKE_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2203__DIS;
-  struct MELT_STRING_STRUCT(3) dstr_2204__DIS;
-  struct MELT_OBJECT_STRUCT(2) dobj_2205;
-  struct MELT_OBJECT_STRUCT(2) dobj_2206;
-  struct MELT_STRING_STRUCT(41) dstr_2207__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(38) dstr_2208__melt_st;
-  struct MELT_STRING_STRUCT(4) dstr_2209__;
-  struct MELT_STRING_STRUCT(11) dstr_2210__MAKE_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2211__MAKE_STRINGCONST;
-  struct MELT_STRING_STRUCT(16) dstr_2212__MAKE_STRINGCONST;
-  struct MELT_OBJECT_STRUCT(5) dobj_2213__MAKE_STRINGCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2214__MAKE_STRINGCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2215__MAKE_STRINGCONST;
-  struct MELT_OBJECT_STRUCT(2) dobj_2216;
-  struct MELT_OBJECT_STRUCT(2) dobj_2217;
-  struct MELT_STRING_STRUCT(41) dstr_2218__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(4) dstr_2219__;
-  struct MELT_STRING_STRUCT(3) dstr_2220__;
-  struct MELT_STRING_STRUCT(16) dstr_2221__MAKE_STRINGCONST;
-  struct MELT_OBJECT_STRUCT(3) dsym_2222__IS_STRINGCONST;
-  struct MELT_STRING_STRUCT(14) dstr_2223__IS_STRINGCONST;
-  struct MELT_OBJECT_STRUCT(5) dobj_2224__IS_STRINGCONST;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2225__IS_STRINGCONST;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2226__IS_STRINGCONST;
-  struct MELT_OBJECT_STRUCT(2) dobj_2227;
-  struct MELT_OBJECT_STRUCT(3) dsym_2228__CS;
-  struct MELT_STRING_STRUCT(2) dstr_2229__CS;
-  struct MELT_OBJECT_STRUCT(2) dobj_2230;
-  struct MELT_STRING_STRUCT(35) dstr_2231__melt_is_string_;
-  struct MELT_STRING_STRUCT(4) dstr_2232__;
-  struct MELT_STRING_STRUCT(3) dstr_2233__;
-  struct MELT_STRING_STRUCT(14) dstr_2234__IS_STRINGCONST;
-  struct MELT_OBJECT_STRUCT(3) dsym_2235__STRING_LENGTH;
-  struct MELT_STRING_STRUCT(13) dstr_2236__STRING_LENGTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_2237__STRING_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2238__STRING_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2239__STRING_LENGTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_2240;
-  struct MELT_STRING_STRUCT(32) dstr_2241__melt_string_leng;
-  struct MELT_STRING_STRUCT(2) dstr_2242__;
-  struct MELT_STRING_STRUCT(13) dstr_2243__STRING_LENGTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2244__STRING_;
-  struct MELT_STRING_STRUCT(7) dstr_2245__STRING_;
-  struct MELT_OBJECT_STRUCT(5) dobj_2246__STRING_;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2247__STRING_;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2248__STRING_;
-  struct MELT_OBJECT_STRUCT(2) dobj_2249;
-  struct MELT_OBJECT_STRUCT(2) dobj_2250;
-  struct MELT_STRING_STRUCT(18) dstr_2251__melt_string_same;
-  struct MELT_STRING_STRUCT(4) dstr_2252__;
-  struct MELT_STRING_STRUCT(2) dstr_2253__;
-  struct MELT_STRING_STRUCT(7) dstr_2254__STRING_;
-  struct MELT_OBJECT_STRUCT(3) dsym_2255__STRING_;
-  struct MELT_STRING_STRUCT(7) dstr_2256__STRING_;
-  struct MELT_OBJECT_STRUCT(5) dobj_2257__STRING_;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2258__STRING_;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2259__STRING_;
-  struct MELT_OBJECT_STRUCT(2) dobj_2260;
-  struct MELT_OBJECT_STRUCT(2) dobj_2261;
-  struct MELT_STRING_STRUCT(30) dstr_2262__melt_string_less;
-  struct MELT_STRING_STRUCT(16) dstr_2263__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2264__;
-  struct MELT_STRING_STRUCT(7) dstr_2265__STRING_;
-  struct MELT_OBJECT_STRUCT(3) dsym_2266__STRING_;
-  struct MELT_STRING_STRUCT(7) dstr_2267__STRING_;
-  struct MELT_OBJECT_STRUCT(5) dobj_2268__STRING_;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2269__STRING_;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2270__STRING_;
-  struct MELT_OBJECT_STRUCT(2) dobj_2271;
-  struct MELT_OBJECT_STRUCT(2) dobj_2272;
-  struct MELT_STRING_STRUCT(30) dstr_2273__melt_string_less;
-  struct MELT_STRING_STRUCT(16) dstr_2274__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2275__;
-  struct MELT_STRING_STRUCT(7) dstr_2276__STRING_;
-  struct MELT_OBJECT_STRUCT(3) dsym_2277__SPLIT_STRING_SPACE;
-  struct MELT_STRING_STRUCT(18) dstr_2278__SPLIT_STRING_SPA;
-  struct MELT_OBJECT_STRUCT(5) dobj_2279__SPLIT_STRING_SPACE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2280__SPLIT_STRING_SPACE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2281__SPLIT_STRING_SPACE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2282;
-  struct MELT_OBJECT_STRUCT(2) dobj_2283;
-  struct MELT_STRING_STRUCT(24) dstr_2284__meltgc_new_split;
-  struct MELT_STRING_STRUCT(20) dstr_2285__melt_ptr;
-  struct MELT_STRING_STRUCT(1) dstr_2286__;
-  struct MELT_STRING_STRUCT(18) dstr_2287__SPLIT_STRING_SPA;
-  struct MELT_OBJECT_STRUCT(3) dsym_2288__SPLIT_STRING_COMMA;
-  struct MELT_STRING_STRUCT(18) dstr_2289__SPLIT_STRING_COM;
-  struct MELT_OBJECT_STRUCT(5) dobj_2290__SPLIT_STRING_COMMA;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2291__SPLIT_STRING_COMMA;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2292__SPLIT_STRING_COMMA;
-  struct MELT_OBJECT_STRUCT(2) dobj_2293;
-  struct MELT_OBJECT_STRUCT(2) dobj_2294;
-  struct MELT_STRING_STRUCT(24) dstr_2295__meltgc_new_split;
-  struct MELT_STRING_STRUCT(20) dstr_2296__melt_ptr;
-  struct MELT_STRING_STRUCT(1) dstr_2297__;
-  struct MELT_STRING_STRUCT(18) dstr_2298__SPLIT_STRING_COM;
-  struct MELT_OBJECT_STRUCT(3) dsym_2299__SPLIT_STRING_COLON;
-  struct MELT_STRING_STRUCT(18) dstr_2300__SPLIT_STRING_COL;
-  struct MELT_OBJECT_STRUCT(5) dobj_2301__SPLIT_STRING_COLON;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2302__SPLIT_STRING_COLON;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2303__SPLIT_STRING_COLON;
-  struct MELT_OBJECT_STRUCT(2) dobj_2304;
-  struct MELT_OBJECT_STRUCT(2) dobj_2305;
-  struct MELT_STRING_STRUCT(24) dstr_2306__meltgc_new_split;
-  struct MELT_STRING_STRUCT(19) dstr_2307__melt_ptr;
-  struct MELT_STRING_STRUCT(1) dstr_2308__;
-  struct MELT_STRING_STRUCT(18) dstr_2309__SPLIT_STRING_COL;
-  struct MELT_OBJECT_STRUCT(3) dsym_2310__STRBUF2STRING;
-  struct MELT_STRING_STRUCT(13) dstr_2311__STRBUF2STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_2312__STRBUF2STRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2313__STRBUF2STRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2314__STRBUF2STRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2315;
-  struct MELT_OBJECT_STRUCT(2) dobj_2316;
-  struct MELT_STRING_STRUCT(41) dstr_2317__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(32) dstr_2318__melt_strbuf_s;
-  struct MELT_STRING_STRUCT(4) dstr_2319__;
-  struct MELT_STRING_STRUCT(13) dstr_2320__STRBUF2STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2321__MAKE_STRING_NAKEDBASENAME;
-  struct MELT_STRING_STRUCT(25) dstr_2322__MAKE_STRING_NAKE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2323__MAKE_STRING_NAKEDBASENAME;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2324__MAKE_STRING_NAKEDBASENAME;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2325__MAKE_STRING_NAKEDBASENAME;
-  struct MELT_OBJECT_STRUCT(2) dobj_2326;
-  struct MELT_OBJECT_STRUCT(2) dobj_2327;
-  struct MELT_STRING_STRUCT(52) dstr_2328__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(32) dstr_2329__melt_string_s;
-  struct MELT_STRING_STRUCT(4) dstr_2330__;
-  struct MELT_STRING_STRUCT(25) dstr_2331__MAKE_STRING_NAKE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED;
-  struct MELT_STRING_STRUCT(29) dstr_2333__MAKE_STRING_TEMP;
-  struct MELT_OBJECT_STRUCT(5) dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2335__MAKE_STRING_TEMPNAME_SUFFIXED;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2336__MAKE_STRING_TEMPNAME_SUFFIXED;
-  struct MELT_OBJECT_STRUCT(2) dobj_2337;
-  struct MELT_OBJECT_STRUCT(2) dobj_2338;
-  struct MELT_OBJECT_STRUCT(3) dsym_2339__SUFF;
-  struct MELT_STRING_STRUCT(4) dstr_2340__SUFF;
-  struct MELT_OBJECT_STRUCT(2) dobj_2341;
-  struct MELT_STRING_STRUCT(56) dstr_2342__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(39) dstr_2343__melt_s;
-  struct MELT_STRING_STRUCT(12) dstr_2344__;
-  struct MELT_STRING_STRUCT(3) dstr_2345__;
-  struct MELT_STRING_STRUCT(29) dstr_2346__MAKE_STRING_TEMP;
-  struct MELT_OBJECT_STRUCT(3) dsym_2347__LOAD_MELT_MODULE;
-  struct MELT_STRING_STRUCT(16) dstr_2348__LOAD_MELT_MODULE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2349__LOAD_MELT_MODULE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2350__LOAD_MELT_MODULE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2351__LOAD_MELT_MODULE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2352__ENV;
-  struct MELT_STRING_STRUCT(3) dstr_2353__ENV;
-  struct MELT_OBJECT_STRUCT(2) dobj_2354;
-  struct MELT_OBJECT_STRUCT(2) dobj_2355;
-  struct MELT_STRING_STRUCT(38) dstr_2356__meltgc_load_mel;
-  struct MELT_STRING_STRUCT(34) dstr_2357__melt_string;
-  struct MELT_STRING_STRUCT(4) dstr_2358__;
-  struct MELT_STRING_STRUCT(16) dstr_2359__LOAD_MELT_MODULE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2360__GENERATE_MELT_MODULE;
-  struct MELT_STRING_STRUCT(20) dstr_2361__GENERATE_MELT_MO;
-  struct MELT_OBJECT_STRUCT(5) dobj_2362__GENERATE_MELT_MODULE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2363__GENERATE_MELT_MODULE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2364__GENERATE_MELT_MODULE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2365__SRC;
-  struct MELT_STRING_STRUCT(3) dstr_2366__SRC;
-  struct MELT_OBJECT_STRUCT(2) dobj_2367;
-  struct MELT_OBJECT_STRUCT(3) dsym_2368__OUTNAM;
-  struct MELT_STRING_STRUCT(6) dstr_2369__OUTNAM;
-  struct MELT_OBJECT_STRUCT(2) dobj_2370;
-  struct MELT_STRING_STRUCT(28) dstr_2371__meltgc_generate_;
-  struct MELT_STRING_STRUCT(1) dstr_2372__;
-  struct MELT_STRING_STRUCT(2) dstr_2373__;
-  struct MELT_STRING_STRUCT(20) dstr_2374__GENERATE_MELT_MO;
-  struct MELT_OBJECT_STRUCT(3) dsym_2375__OBJECT_LENGTH;
-  struct MELT_STRING_STRUCT(13) dstr_2376__OBJECT_LENGTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_2377__OBJECT_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2378__OBJECT_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2379__OBJECT_LENGTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2380__OB;
-  struct MELT_STRING_STRUCT(2) dstr_2381__OB;
-  struct MELT_OBJECT_STRUCT(2) dobj_2382;
-  struct MELT_STRING_STRUCT(39) dstr_2383__long_melt_obje;
-  struct MELT_STRING_STRUCT(3) dstr_2384__;
-  struct MELT_STRING_STRUCT(13) dstr_2385__OBJECT_LENGTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2386__OBJECT_NTH_FIELD;
-  struct MELT_STRING_STRUCT(16) dstr_2387__OBJECT_NTH_FIELD;
-  struct MELT_OBJECT_STRUCT(5) dobj_2388__OBJECT_NTH_FIELD;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2389__OBJECT_NTH_FIELD;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2390__OBJECT_NTH_FIELD;
-  struct MELT_OBJECT_STRUCT(2) dobj_2391;
-  struct MELT_OBJECT_STRUCT(3) dsym_2392__N;
-  struct MELT_STRING_STRUCT(1) dstr_2393__N;
-  struct MELT_OBJECT_STRUCT(2) dobj_2394;
-  struct MELT_STRING_STRUCT(32) dstr_2395__melt_field_obje;
-  struct MELT_STRING_STRUCT(4) dstr_2396__;
-  struct MELT_STRING_STRUCT(3) dstr_2397__;
-  struct MELT_STRING_STRUCT(16) dstr_2398__OBJECT_NTH_FIELD;
-  struct MELT_OBJECT_STRUCT(3) dsym_2399__SUBCLASS_OF;
-  struct MELT_STRING_STRUCT(11) dstr_2400__SUBCLASS_OF;
-  struct MELT_OBJECT_STRUCT(5) dobj_2401__SUBCLASS_OF;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2402__SUBCLASS_OF;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2403__SUBCLASS_OF;
-  struct MELT_OBJECT_STRUCT(3) dsym_2404__CL1;
-  struct MELT_STRING_STRUCT(3) dstr_2405__CL1;
-  struct MELT_OBJECT_STRUCT(2) dobj_2406;
-  struct MELT_OBJECT_STRUCT(3) dsym_2407__CL2;
-  struct MELT_STRING_STRUCT(3) dstr_2408__CL2;
-  struct MELT_OBJECT_STRUCT(2) dobj_2409;
-  struct MELT_STRING_STRUCT(39) dstr_2410__melt_is_subclass;
-  struct MELT_STRING_STRUCT(22) dstr_2411__meltobject_p;
-  struct MELT_STRING_STRUCT(2) dstr_2412__;
-  struct MELT_STRING_STRUCT(11) dstr_2413__SUBCLASS_OF;
-  struct MELT_OBJECT_STRUCT(3) dsym_2414__SUBCLASS_OR_EQ;
-  struct MELT_STRING_STRUCT(14) dstr_2415__SUBCLASS_OR_EQ;
-  struct MELT_OBJECT_STRUCT(5) dobj_2416__SUBCLASS_OR_EQ;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_2417__SUBCLASS_OR_EQ;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2418__SUBCLASS_OR_EQ;
-  struct MELT_OBJECT_STRUCT(2) dobj_2419;
-  struct MELT_OBJECT_STRUCT(2) dobj_2420;
-  struct MELT_STRING_STRUCT(2) dstr_2421__;
-  struct MELT_STRING_STRUCT(4) dstr_2422__;
-  struct MELT_STRING_STRUCT(44) dstr_2423__melt_is_sub;
-  struct MELT_STRING_STRUCT(22) dstr_2424__meltobject_p;
-  struct MELT_STRING_STRUCT(3) dstr_2425__;
-  struct MELT_STRING_STRUCT(14) dstr_2426__SUBCLASS_OR_EQ;
-  struct MELT_OBJECT_STRUCT(3) dsym_2427__IS_MULTIPLE;
-  struct MELT_STRING_STRUCT(11) dstr_2428__IS_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2429__IS_MULTIPLE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2430__IS_MULTIPLE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2431__IS_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2432__MUL;
-  struct MELT_STRING_STRUCT(3) dstr_2433__MUL;
-  struct MELT_OBJECT_STRUCT(2) dobj_2434;
-  struct MELT_STRING_STRUCT(31) dstr_2435__melt_magic_disc;
-  struct MELT_STRING_STRUCT(21) dstr_2436__OBMAG_MULT;
-  struct MELT_STRING_STRUCT(11) dstr_2437__IS_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2438__IS_MULTIPLE_OR_NULL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1426__IMAX;
+  struct MELT_STRING_STRUCT(4) dstr_1427__IMAX;
+  struct MELT_OBJECT_STRUCT(2) dobj_1428;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1429__FOREACH_LONG_UPTO;
+  struct MELT_OBJECT_STRUCT(3) dsym_1430__EACHLONG;
+  struct MELT_STRING_STRUCT(8) dstr_1431__EACHLONG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1432;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1433__FOREACH_LONG_UPTO;
+  struct MELT_STRING_STRUCT(8) dstr_1434__start_;
+  struct MELT_STRING_STRUCT(13) dstr_1435__long_;
+  struct MELT_STRING_STRUCT(8) dstr_1436__min_;
+  struct MELT_STRING_STRUCT(11) dstr_1437__long_;
+  struct MELT_STRING_STRUCT(7) dstr_1438__max_;
+  struct MELT_STRING_STRUCT(11) dstr_1439__long_;
+  struct MELT_STRING_STRUCT(19) dstr_1440__cur_0_fo;
+  struct MELT_STRING_STRUCT(7) dstr_1441__cur_;
+  struct MELT_STRING_STRUCT(15) dstr_1442__min_;
+  struct MELT_STRING_STRUCT(8) dstr_1443__cur_;
+  struct MELT_STRING_STRUCT(8) dstr_1444__max_;
+  struct MELT_STRING_STRUCT(16) dstr_1445__cur_;
+  struct MELT_STRING_STRUCT(3) dstr_1446__;
+  struct MELT_STRING_STRUCT(10) dstr_1447__cur_;
+  struct MELT_MULTIPLE_STRUCT(27) dtup_1448__FOREACH_LONG_UPTO;
+  struct MELT_STRING_STRUCT(20) dstr_1449__end_eachlon;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1450__FOREACH_LONG_UPTO;
+  struct MELT_OBJECT_STRUCT(3) dsym_1451__NULL;
+  struct MELT_STRING_STRUCT(4) dstr_1452__NULL;
+  struct MELT_OBJECT_STRUCT(5) dobj_1453__NULL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1454__NULL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1455__NULL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1456;
+  struct MELT_STRING_STRUCT(2) dstr_1457__;
+  struct MELT_STRING_STRUCT(10) dstr_1458__NULL_;
+  struct MELT_STRING_STRUCT(4) dstr_1459__NULL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1460__NOTNULL;
+  struct MELT_STRING_STRUCT(7) dstr_1461__NOTNULL;
+  struct MELT_OBJECT_STRUCT(5) dobj_1462__NOTNULL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1463__NOTNULL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1464__NOTNULL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1465;
+  struct MELT_STRING_STRUCT(2) dstr_1466__;
+  struct MELT_STRING_STRUCT(10) dstr_1467__NULL_;
+  struct MELT_STRING_STRUCT(7) dstr_1468__NOTNULL;
+  struct MELT_OBJECT_STRUCT(3) dsym_1469__ZEROP;
+  struct MELT_STRING_STRUCT(5) dstr_1470__ZEROP;
+  struct MELT_OBJECT_STRUCT(5) dobj_1471__ZEROP;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1472__ZEROP;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1473__ZEROP;
+  struct MELT_OBJECT_STRUCT(2) dobj_1474;
+  struct MELT_STRING_STRUCT(2) dstr_1475__;
+  struct MELT_STRING_STRUCT(8) dstr_1476__OL_;
+  struct MELT_STRING_STRUCT(5) dstr_1477__ZEROP;
+  struct MELT_OBJECT_STRUCT(3) dsym_1478__NEED_DBG;
+  struct MELT_STRING_STRUCT(8) dstr_1479__NEED_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1480__NEED_DBG;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1481__NEED_DBG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1482__NEED_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1483__DEPTH;
+  struct MELT_STRING_STRUCT(5) dstr_1484__DEPTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_1485;
+  struct MELT_STRING_STRUCT(61) dstr_1486__flag_melt_debug;
+  struct MELT_STRING_STRUCT(9) dstr_1487__0_;
+  struct MELT_STRING_STRUCT(22) dstr_1488__MELTDBG_MAX;
+  struct MELT_STRING_STRUCT(8) dstr_1489__NEED_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1490__NEED_DBGLIM;
+  struct MELT_STRING_STRUCT(11) dstr_1491__NEED_DBGLIM;
+  struct MELT_OBJECT_STRUCT(5) dobj_1492__NEED_DBGLIM;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_1493__NEED_DBGLIM;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1494__NEED_DBGLIM;
+  struct MELT_OBJECT_STRUCT(2) dobj_1495;
+  struct MELT_OBJECT_STRUCT(3) dsym_1496__LIMIT;
+  struct MELT_STRING_STRUCT(5) dstr_1497__LIMIT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1498;
+  struct MELT_STRING_STRUCT(68) dstr_1499__flag_melt_debug;
+  struct MELT_STRING_STRUCT(9) dstr_1500__0_;
+  struct MELT_STRING_STRUCT(5) dstr_1501__;
+  struct MELT_STRING_STRUCT(2) dstr_1502__;
+  struct MELT_STRING_STRUCT(11) dstr_1503__NEED_DBGLIM;
+  struct MELT_OBJECT_STRUCT(3) dsym_1504__OUTCSTRING_DBG;
+  struct MELT_STRING_STRUCT(14) dstr_1505__OUTCSTRING_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1506__OUTCSTRING_DBG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1507__OUTCSTRING_DBG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1508__OUTCSTRING_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1509__S;
+  struct MELT_STRING_STRUCT(1) dstr_1510__S;
+  struct MELT_OBJECT_STRUCT(2) dobj_1511;
+  struct MELT_STRING_STRUCT(21) dstr_1512__melt_puts_dump_f;
+  struct MELT_STRING_STRUCT(2) dstr_1513__;
+  struct MELT_STRING_STRUCT(14) dstr_1514__OUTCSTRING_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1515__OUTNUM_DBG;
+  struct MELT_STRING_STRUCT(10) dstr_1516__OUTNUM_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1517__OUTNUM_DBG;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_1518__OUTNUM_DBG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1519__OUTNUM_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1520__PREF;
+  struct MELT_STRING_STRUCT(4) dstr_1521__PREF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1522;
+  struct MELT_OBJECT_STRUCT(3) dsym_1523__L;
+  struct MELT_STRING_STRUCT(1) dstr_1524__L;
+  struct MELT_OBJECT_STRUCT(2) dobj_1525;
+  struct MELT_OBJECT_STRUCT(3) dsym_1526__SUF;
+  struct MELT_STRING_STRUCT(3) dstr_1527__SUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1528;
+  struct MELT_STRING_STRUCT(23) dstr_1529__melt_putnum_dump;
+  struct MELT_STRING_STRUCT(4) dstr_1530__;
+  struct MELT_STRING_STRUCT(4) dstr_1531__;
+  struct MELT_STRING_STRUCT(2) dstr_1532__;
+  struct MELT_STRING_STRUCT(10) dstr_1533__OUTNUM_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1534__OUTSTR_DBG;
+  struct MELT_STRING_STRUCT(10) dstr_1535__OUTSTR_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1536__OUTSTR_DBG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1537__OUTSTR_DBG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1538__OUTSTR_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1539__STR;
+  struct MELT_STRING_STRUCT(3) dstr_1540__STR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1541;
+  struct MELT_STRING_STRUCT(35) dstr_1542__melt_putstr_dump;
+  struct MELT_STRING_STRUCT(2) dstr_1543__;
+  struct MELT_STRING_STRUCT(10) dstr_1544__OUTSTR_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1545__OUTSTRBUF_DBG;
+  struct MELT_STRING_STRUCT(13) dstr_1546__OUTSTRBUF_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1547__OUTSTRBUF_DBG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1548__OUTSTRBUF_DBG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1549__OUTSTRBUF_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1550__SBUF;
+  struct MELT_STRING_STRUCT(4) dstr_1551__SBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1552;
+  struct MELT_STRING_STRUCT(38) dstr_1553__melt_putstrbuf_d;
+  struct MELT_STRING_STRUCT(2) dstr_1554__;
+  struct MELT_STRING_STRUCT(13) dstr_1555__OUTSTRBUF_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1556__OUTNEWLINE_DBG;
+  struct MELT_STRING_STRUCT(14) dstr_1557__OUTNEWLINE_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1558__OUTNEWLINE_DBG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1559__OUTNEWLINE_DBG;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1560__OUTNEWLINE_DBG;
+  struct MELT_STRING_STRUCT(28) dstr_1561__melt_newlineflus;
+  struct MELT_STRING_STRUCT(14) dstr_1562__OUTNEWLINE_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1563__OUTNUM_ERR;
+  struct MELT_STRING_STRUCT(10) dstr_1564__OUTNUM_ERR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1565__OUTNUM_ERR;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_1566__OUTNUM_ERR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1567__OUTNUM_ERR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1568;
+  struct MELT_OBJECT_STRUCT(2) dobj_1569;
+  struct MELT_OBJECT_STRUCT(2) dobj_1570;
+  struct MELT_STRING_STRUCT(20) dstr_1571__melt_putnum_stde;
+  struct MELT_STRING_STRUCT(4) dstr_1572__;
+  struct MELT_STRING_STRUCT(4) dstr_1573__;
+  struct MELT_STRING_STRUCT(2) dstr_1574__;
+  struct MELT_STRING_STRUCT(10) dstr_1575__OUTNUM_ERR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1576__OUTCSTRING_ERR;
+  struct MELT_STRING_STRUCT(14) dstr_1577__OUTCSTRING_ERR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1578__OUTCSTRING_ERR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1579__OUTCSTRING_ERR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1580__OUTCSTRING_ERR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1581;
+  struct MELT_STRING_STRUCT(18) dstr_1582__melt_puts_stderr;
+  struct MELT_STRING_STRUCT(2) dstr_1583__;
+  struct MELT_STRING_STRUCT(14) dstr_1584__OUTCSTRING_ERR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1585__OUTSTRBUF_ERR;
+  struct MELT_STRING_STRUCT(13) dstr_1586__OUTSTRBUF_ERR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1587__OUTSTRBUF_ERR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1588__OUTSTRBUF_ERR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1589__OUTSTRBUF_ERR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1590;
+  struct MELT_STRING_STRUCT(35) dstr_1591__melt_putstrbuf_s;
+  struct MELT_STRING_STRUCT(2) dstr_1592__;
+  struct MELT_STRING_STRUCT(13) dstr_1593__OUTSTRBUF_ERR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1594__OUTNEWLINE_ERR;
+  struct MELT_STRING_STRUCT(14) dstr_1595__OUTNEWLINE_ERR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1596__OUTNEWLINE_ERR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1597__OUTNEWLINE_ERR;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1598__OUTNEWLINE_ERR;
+  struct MELT_STRING_STRUCT(25) dstr_1599__melt_newlineflus;
+  struct MELT_STRING_STRUCT(14) dstr_1600__OUTNEWLINE_ERR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1601__OUTSTR_ERR;
+  struct MELT_STRING_STRUCT(10) dstr_1602__OUTSTR_ERR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1603__OUTSTR_ERR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1604__OUTSTR_ERR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1605__OUTSTR_ERR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1606;
+  struct MELT_STRING_STRUCT(33) dstr_1607__melt_putstr_stde;
+  struct MELT_STRING_STRUCT(2) dstr_1608__;
+  struct MELT_STRING_STRUCT(10) dstr_1609__OUTSTR_ERR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1610__MESSAGE_DBG;
+  struct MELT_STRING_STRUCT(11) dstr_1611__MESSAGE_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1612__MESSAGE_DBG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1613__MESSAGE_DBG;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1614__MESSAGE_DBG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1615;
+  struct MELT_STRING_STRUCT(12) dstr_1616__debugeputs_;
+  struct MELT_STRING_STRUCT(2) dstr_1617__;
+  struct MELT_STRING_STRUCT(11) dstr_1618__MESSAGE_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1619__MESSAGENUM_DBG;
+  struct MELT_STRING_STRUCT(14) dstr_1620__MESSAGENUM_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1621__MESSAGENUM_DBG;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1622__MESSAGENUM_DBG;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1623__MESSAGENUM_DBG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1624;
+  struct MELT_OBJECT_STRUCT(2) dobj_1625;
+  struct MELT_STRING_STRUCT(10) dstr_1626__debugnum_;
+  struct MELT_STRING_STRUCT(4) dstr_1627__;
+  struct MELT_STRING_STRUCT(2) dstr_1628__;
+  struct MELT_STRING_STRUCT(14) dstr_1629__MESSAGENUM_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1630__MESSAGEVAL_DBG;
+  struct MELT_STRING_STRUCT(14) dstr_1631__MESSAGEVAL_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1632__MESSAGEVAL_DBG;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1633__MESSAGEVAL_DBG;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1634__MESSAGEVAL_DBG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1635;
+  struct MELT_OBJECT_STRUCT(3) dsym_1636__VAL;
+  struct MELT_STRING_STRUCT(3) dstr_1637__VAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1638;
+  struct MELT_STRING_STRUCT(12) dstr_1639__debugvalue_;
+  struct MELT_STRING_STRUCT(12) dstr_1640__void_;
+  struct MELT_STRING_STRUCT(3) dstr_1641__;
+  struct MELT_STRING_STRUCT(14) dstr_1642__MESSAGEVAL_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1643__LONGBACKTRACE_DBG;
+  struct MELT_STRING_STRUCT(17) dstr_1644__LONGBACKTRACE_DB;
+  struct MELT_OBJECT_STRUCT(5) dobj_1645__LONGBACKTRACE_DBG;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1646__LONGBACKTRACE_DBG;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1647__LONGBACKTRACE_DBG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1648;
+  struct MELT_OBJECT_STRUCT(3) dsym_1649__MAXDEPTH;
+  struct MELT_STRING_STRUCT(8) dstr_1650__MAXDEPTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_1651;
+  struct MELT_STRING_STRUCT(16) dstr_1652__debugbacktrace_;
+  struct MELT_STRING_STRUCT(19) dstr_1653__int_maxdept;
+  struct MELT_STRING_STRUCT(17) dstr_1654__LONGBACKTRACE_DB;
+  struct MELT_OBJECT_STRUCT(3) dsym_1655__SHORTBACKTRACE_DBG;
+  struct MELT_STRING_STRUCT(18) dstr_1656__SHORTBACKTRACE_D;
+  struct MELT_OBJECT_STRUCT(5) dobj_1657__SHORTBACKTRACE_DBG;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1658__SHORTBACKTRACE_DBG;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1659__SHORTBACKTRACE_DBG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1660;
+  struct MELT_OBJECT_STRUCT(2) dobj_1661;
+  struct MELT_STRING_STRUCT(73) dstr_1662__if_ENABLE_CHE;
+  struct MELT_STRING_STRUCT(4) dstr_1663__;
+  struct MELT_STRING_STRUCT(11) dstr_1664__endif_;
+  struct MELT_STRING_STRUCT(18) dstr_1665__SHORTBACKTRACE_D;
+  struct MELT_OBJECT_STRUCT(3) dsym_1666__CHECKVAL_DBG;
+  struct MELT_STRING_STRUCT(12) dstr_1667__CHECKVAL_DBG;
+  struct MELT_OBJECT_STRUCT(5) dobj_1668__CHECKVAL_DBG;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1669__CHECKVAL_DBG;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1670__CHECKVAL_DBG;
+  struct MELT_OBJECT_STRUCT(2) dobj_1671;
+  struct MELT_OBJECT_STRUCT(2) dobj_1672;
+  struct MELT_STRING_STRUCT(25) dstr_1673__melt_checked_ass;
+  struct MELT_STRING_STRUCT(3) dstr_1674__;
+  struct MELT_STRING_STRUCT(2) dstr_1675__;
+  struct MELT_STRING_STRUCT(12) dstr_1676__CHECKVAL_DBG;
+  struct MELT_OBJECT_STRUCT(3) dsym_1677__DEBUGCSTRING;
+  struct MELT_STRING_STRUCT(12) dstr_1678__DEBUGCSTRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_1679__DEBUGCSTRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1680__DEBUGCSTRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1681__DEBUGCSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_1682;
+  struct MELT_OBJECT_STRUCT(2) dobj_1683;
+  struct MELT_STRING_STRUCT(37) dstr_1684__debugeprintf_de;
+  struct MELT_STRING_STRUCT(2) dstr_1685__;
+  struct MELT_STRING_STRUCT(1) dstr_1686__;
+  struct MELT_STRING_STRUCT(12) dstr_1687__DEBUGCSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_1688__THE_NULL_CSTRING;
+  struct MELT_STRING_STRUCT(16) dstr_1689__THE_NULL_CSTRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_1690__THE_NULL_CSTRING;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1691__THE_NULL_CSTRING;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_1692__THE_NULL_CSTRING;
+  struct MELT_STRING_STRUCT(8) dstr_1693__char_0;
+  struct MELT_STRING_STRUCT(16) dstr_1694__THE_NULL_CSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_1695__MAKE_STRBUF;
+  struct MELT_STRING_STRUCT(11) dstr_1696__MAKE_STRBUF;
+  struct MELT_OBJECT_STRUCT(5) dobj_1697__MAKE_STRBUF;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1698__MAKE_STRBUF;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1699__MAKE_STRBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1700;
+  struct MELT_STRING_STRUCT(37) dstr_1701__meltgc_new_strbu;
+  struct MELT_STRING_STRUCT(12) dstr_1702__char_0_;
+  struct MELT_STRING_STRUCT(11) dstr_1703__MAKE_STRBUF;
+  struct MELT_OBJECT_STRUCT(3) dsym_1704__STRBUF_USEDLENGTH;
+  struct MELT_STRING_STRUCT(17) dstr_1705__STRBUF_USEDLENGT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1706__STRBUF_USEDLENGTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1707__STRBUF_USEDLENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1708__STRBUF_USEDLENGTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_1709;
+  struct MELT_STRING_STRUCT(36) dstr_1710__melt_strbuf_used;
+  struct MELT_STRING_STRUCT(2) dstr_1711__;
+  struct MELT_STRING_STRUCT(17) dstr_1712__STRBUF_USEDLENGT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1713__IS_STRBUF;
+  struct MELT_STRING_STRUCT(9) dstr_1714__IS_STRBUF;
+  struct MELT_OBJECT_STRUCT(5) dobj_1715__IS_STRBUF;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1716__IS_STRBUF;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1717__IS_STRBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1718;
+  struct MELT_STRING_STRUCT(31) dstr_1719__melt_magic_disc;
+  struct MELT_STRING_STRUCT(19) dstr_1720__OBMAG_STRB;
+  struct MELT_STRING_STRUCT(9) dstr_1721__IS_STRBUF;
+  struct MELT_OBJECT_STRUCT(3) dsym_1722__IS_OUT;
+  struct MELT_STRING_STRUCT(6) dstr_1723__IS_OUT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1724__IS_OUT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1725__IS_OUT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_1726__IS_OUT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1727;
+  struct MELT_STRING_STRUCT(28) dstr_1728__melt_is_out_;
+  struct MELT_STRING_STRUCT(3) dstr_1729__;
+  struct MELT_STRING_STRUCT(6) dstr_1730__IS_OUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1731__ADD2SBUF_STRCONST;
+  struct MELT_STRING_STRUCT(17) dstr_1732__ADD2SBUF_STRCONS;
+  struct MELT_OBJECT_STRUCT(5) dobj_1733__ADD2SBUF_STRCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1734__ADD2SBUF_STRCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1735__ADD2SBUF_STRCONST;
+  struct MELT_OBJECT_STRUCT(2) dobj_1736;
+  struct MELT_OBJECT_STRUCT(2) dobj_1737;
+  struct MELT_STRING_STRUCT(31) dstr_1738__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(4) dstr_1739__;
+  struct MELT_STRING_STRUCT(2) dstr_1740__;
+  struct MELT_STRING_STRUCT(17) dstr_1741__ADD2SBUF_STRCONS;
+  struct MELT_OBJECT_STRUCT(3) dsym_1742__ADD2SBUF_STRING;
+  struct MELT_STRING_STRUCT(15) dstr_1743__ADD2SBUF_STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_1744__ADD2SBUF_STRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1745__ADD2SBUF_STRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1746__ADD2SBUF_STRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_1747;
+  struct MELT_OBJECT_STRUCT(2) dobj_1748;
+  struct MELT_STRING_STRUCT(31) dstr_1749__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(32) dstr_1750__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_1751__;
+  struct MELT_STRING_STRUCT(15) dstr_1752__ADD2SBUF_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_1753__ADD2SBUF_MIXLOC;
+  struct MELT_STRING_STRUCT(15) dstr_1754__ADD2SBUF_MIXLOC;
+  struct MELT_OBJECT_STRUCT(5) dobj_1755__ADD2SBUF_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_1756__ADD2SBUF_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1757__ADD2SBUF_MIXLOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_1758;
+  struct MELT_OBJECT_STRUCT(3) dsym_1759__MIXL;
+  struct MELT_STRING_STRUCT(4) dstr_1760__MIXL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1761;
+  struct MELT_STRING_STRUCT(53) dstr_1762__add2sbufmixloc;
+  struct MELT_STRING_STRUCT(56) dstr_1763__OBMAG_MIXL;
+  struct MELT_STRING_STRUCT(70) dstr_1764__s_d_;
+  struct MELT_STRING_STRUCT(60) dstr_1765__LOC;
+  struct MELT_STRING_STRUCT(5) dstr_1766__;
+  struct MELT_STRING_STRUCT(15) dstr_1767__ADD2SBUF_MIXLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_1768__ADD2SBUF_SHORT_MIXLOC;
+  struct MELT_STRING_STRUCT(21) dstr_1769__ADD2SBUF_SHORT_M;
+  struct MELT_OBJECT_STRUCT(5) dobj_1770__ADD2SBUF_SHORT_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_1771__ADD2SBUF_SHORT_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1772__ADD2SBUF_SHORT_MIXLOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_1773;
+  struct MELT_OBJECT_STRUCT(2) dobj_1774;
+  struct MELT_STRING_STRUCT(60) dstr_1775__add2sbufshortm;
+  struct MELT_STRING_STRUCT(56) dstr_1776__OBMAG_MIXL;
+  struct MELT_STRING_STRUCT(81) dstr_1777__s_d_;
+  struct MELT_STRING_STRUCT(75) dstr_1778__L;
+  struct MELT_STRING_STRUCT(21) dstr_1779__ADD2SBUF_SHORT_M;
+  struct MELT_OBJECT_STRUCT(3) dsym_1780__ADD2SBUF_TEXI_MIXLOC;
+  struct MELT_STRING_STRUCT(20) dstr_1781__ADD2SBUF_TEXI_MI;
+  struct MELT_OBJECT_STRUCT(5) dobj_1782__ADD2SBUF_TEXI_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_1783__ADD2SBUF_TEXI_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1784__ADD2SBUF_TEXI_MIXLOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_1785;
+  struct MELT_OBJECT_STRUCT(2) dobj_1786;
+  struct MELT_STRING_STRUCT(57) dstr_1787__add2sbufteximi;
+  struct MELT_STRING_STRUCT(57) dstr_1788__OBMAG_MIXL;
+  struct MELT_STRING_STRUCT(97) dstr_1789__file_file_;
+  struct MELT_STRING_STRUCT(62) dstr_1790__L;
+  struct MELT_STRING_STRUCT(5) dstr_1791__;
+  struct MELT_STRING_STRUCT(20) dstr_1792__ADD2SBUF_TEXI_MI;
+  struct MELT_OBJECT_STRUCT(3) dsym_1793__ADD2SBUF_INDENT;
+  struct MELT_STRING_STRUCT(15) dstr_1794__ADD2SBUF_INDENT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1795__ADD2SBUF_INDENT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1796__ADD2SBUF_INDENT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1797__ADD2SBUF_INDENT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1798;
+  struct MELT_OBJECT_STRUCT(2) dobj_1799;
+  struct MELT_STRING_STRUCT(38) dstr_1800__meltgc_strbuf_ad;
+  struct MELT_STRING_STRUCT(4) dstr_1801__;
+  struct MELT_STRING_STRUCT(6) dstr_1802__64_;
+  struct MELT_STRING_STRUCT(15) dstr_1803__ADD2SBUF_INDENT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1804__ADD2SBUF_INDENTNL;
+  struct MELT_STRING_STRUCT(17) dstr_1805__ADD2SBUF_INDENTN;
+  struct MELT_OBJECT_STRUCT(5) dobj_1806__ADD2SBUF_INDENTNL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1807__ADD2SBUF_INDENTNL;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1808__ADD2SBUF_INDENTNL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1809;
+  struct MELT_OBJECT_STRUCT(2) dobj_1810;
+  struct MELT_STRING_STRUCT(38) dstr_1811__meltgc_strbuf_ad;
+  struct MELT_STRING_STRUCT(4) dstr_1812__;
+  struct MELT_STRING_STRUCT(5) dstr_1813__0_;
+  struct MELT_STRING_STRUCT(17) dstr_1814__ADD2SBUF_INDENTN;
+  struct MELT_OBJECT_STRUCT(3) dsym_1815__ADD2SBUF_SBUF;
+  struct MELT_STRING_STRUCT(13) dstr_1816__ADD2SBUF_SBUF;
+  struct MELT_OBJECT_STRUCT(5) dobj_1817__ADD2SBUF_SBUF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1818__ADD2SBUF_SBUF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1819__ADD2SBUF_SBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1820;
+  struct MELT_OBJECT_STRUCT(3) dsym_1821__ASBUF;
+  struct MELT_STRING_STRUCT(5) dstr_1822__ASBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1823;
+  struct MELT_STRING_STRUCT(31) dstr_1824__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(19) dstr_1825__melt_strbuf_s;
+  struct MELT_STRING_STRUCT(2) dstr_1826__;
+  struct MELT_STRING_STRUCT(13) dstr_1827__ADD2SBUF_SBUF;
+  struct MELT_OBJECT_STRUCT(3) dsym_1828__ADD2SBUF_CENCSTRING;
+  struct MELT_STRING_STRUCT(19) dstr_1829__ADD2SBUF_CENCSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1830__ADD2SBUF_CENCSTRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1831__ADD2SBUF_CENCSTRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1832__ADD2SBUF_CENCSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_1833;
+  struct MELT_OBJECT_STRUCT(2) dobj_1834;
+  struct MELT_STRING_STRUCT(36) dstr_1835__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(32) dstr_1836__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_1837__;
+  struct MELT_STRING_STRUCT(19) dstr_1838__ADD2SBUF_CENCSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1839__ADD2SBUF_CENCSTRBUF;
+  struct MELT_STRING_STRUCT(19) dstr_1840__ADD2SBUF_CENCSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1841__ADD2SBUF_CENCSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1842__ADD2SBUF_CENCSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1843__ADD2SBUF_CENCSTRBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1844;
+  struct MELT_OBJECT_STRUCT(2) dobj_1845;
+  struct MELT_STRING_STRUCT(36) dstr_1846__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(32) dstr_1847__melt_strbuf_s;
+  struct MELT_STRING_STRUCT(3) dstr_1848__;
+  struct MELT_STRING_STRUCT(19) dstr_1849__ADD2SBUF_CENCSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1850__ADD2SBUF_CCOMSTRING;
+  struct MELT_STRING_STRUCT(19) dstr_1851__ADD2SBUF_CCOMSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1852__ADD2SBUF_CCOMSTRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1853__ADD2SBUF_CCOMSTRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1854__ADD2SBUF_CCOMSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_1855;
+  struct MELT_OBJECT_STRUCT(2) dobj_1856;
+  struct MELT_STRING_STRUCT(40) dstr_1857__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(32) dstr_1858__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_1859__;
+  struct MELT_STRING_STRUCT(19) dstr_1860__ADD2SBUF_CCOMSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1861__ADD2SBUF_CCOMSTRBUF;
+  struct MELT_STRING_STRUCT(19) dstr_1862__ADD2SBUF_CCOMSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_1863__ADD2SBUF_CCOMSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1864__ADD2SBUF_CCOMSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1865__ADD2SBUF_CCOMSTRBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_1866;
+  struct MELT_OBJECT_STRUCT(2) dobj_1867;
+  struct MELT_STRING_STRUCT(40) dstr_1868__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(43) dstr_1869__me;
+  struct MELT_STRING_STRUCT(3) dstr_1870__;
+  struct MELT_STRING_STRUCT(19) dstr_1871__ADD2SBUF_CCOMSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_1872__ADD2SBUF_CCOMCONST;
+  struct MELT_STRING_STRUCT(18) dstr_1873__ADD2SBUF_CCOMCON;
+  struct MELT_OBJECT_STRUCT(5) dobj_1874__ADD2SBUF_CCOMCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1875__ADD2SBUF_CCOMCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1876__ADD2SBUF_CCOMCONST;
+  struct MELT_OBJECT_STRUCT(2) dobj_1877;
+  struct MELT_OBJECT_STRUCT(3) dsym_1878__CSTR;
+  struct MELT_STRING_STRUCT(4) dstr_1879__CSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1880;
+  struct MELT_STRING_STRUCT(28) dstr_1881__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(3) dstr_1882__;
+  struct MELT_STRING_STRUCT(1) dstr_1883__;
+  struct MELT_STRING_STRUCT(18) dstr_1884__ADD2SBUF_CCOMCON;
+  struct MELT_OBJECT_STRUCT(3) dsym_1885__ADD2SBUF_CIDENT;
+  struct MELT_STRING_STRUCT(15) dstr_1886__ADD2SBUF_CIDENT;
+  struct MELT_OBJECT_STRUCT(5) dobj_1887__ADD2SBUF_CIDENT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1888__ADD2SBUF_CIDENT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1889__ADD2SBUF_CIDENT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1890;
+  struct MELT_OBJECT_STRUCT(2) dobj_1891;
+  struct MELT_STRING_STRUCT(38) dstr_1892__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(34) dstr_1893__melt_string;
+  struct MELT_STRING_STRUCT(3) dstr_1894__;
+  struct MELT_STRING_STRUCT(15) dstr_1895__ADD2SBUF_CIDENT;
+  struct MELT_OBJECT_STRUCT(3) dsym_1896__ADD2SBUF_CIDENTPREFIX;
+  struct MELT_STRING_STRUCT(21) dstr_1897__ADD2SBUF_CIDENTP;
+  struct MELT_OBJECT_STRUCT(5) dobj_1898__ADD2SBUF_CIDENTPREFIX;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_1899__ADD2SBUF_CIDENTPREFIX;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_1900__ADD2SBUF_CIDENTPREFIX;
+  struct MELT_OBJECT_STRUCT(2) dobj_1901;
+  struct MELT_OBJECT_STRUCT(2) dobj_1902;
+  struct MELT_OBJECT_STRUCT(3) dsym_1903__PREFLEN;
+  struct MELT_STRING_STRUCT(7) dstr_1904__PREFLEN;
+  struct MELT_OBJECT_STRUCT(2) dobj_1905;
+  struct MELT_STRING_STRUCT(44) dstr_1906__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(32) dstr_1907__melt_string_s;
+  struct MELT_STRING_STRUCT(5) dstr_1908__;
+  struct MELT_STRING_STRUCT(2) dstr_1909__;
+  struct MELT_STRING_STRUCT(21) dstr_1910__ADD2SBUF_CIDENTP;
+  struct MELT_OBJECT_STRUCT(3) dsym_1911__ADD2SBUF_LONGDEC;
+  struct MELT_STRING_STRUCT(16) dstr_1912__ADD2SBUF_LONGDEC;
+  struct MELT_OBJECT_STRUCT(5) dobj_1913__ADD2SBUF_LONGDEC;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1914__ADD2SBUF_LONGDEC;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1915__ADD2SBUF_LONGDEC;
+  struct MELT_OBJECT_STRUCT(2) dobj_1916;
+  struct MELT_OBJECT_STRUCT(3) dsym_1917__NUM;
+  struct MELT_STRING_STRUCT(3) dstr_1918__NUM;
+  struct MELT_OBJECT_STRUCT(2) dobj_1919;
+  struct MELT_STRING_STRUCT(35) dstr_1920__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(4) dstr_1921__;
+  struct MELT_STRING_STRUCT(2) dstr_1922__;
+  struct MELT_STRING_STRUCT(16) dstr_1923__ADD2SBUF_LONGDEC;
+  struct MELT_OBJECT_STRUCT(3) dsym_1924__ADD2SBUF_LONGHEX;
+  struct MELT_STRING_STRUCT(16) dstr_1925__ADD2SBUF_LONGHEX;
+  struct MELT_OBJECT_STRUCT(5) dobj_1926__ADD2SBUF_LONGHEX;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1927__ADD2SBUF_LONGHEX;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1928__ADD2SBUF_LONGHEX;
+  struct MELT_OBJECT_STRUCT(2) dobj_1929;
+  struct MELT_OBJECT_STRUCT(2) dobj_1930;
+  struct MELT_STRING_STRUCT(35) dstr_1931__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(4) dstr_1932__;
+  struct MELT_STRING_STRUCT(2) dstr_1933__;
+  struct MELT_STRING_STRUCT(16) dstr_1934__ADD2SBUF_LONGHEX;
+  struct MELT_OBJECT_STRUCT(3) dsym_1935__ADD2SBUF_ROUTINEDESCR;
+  struct MELT_STRING_STRUCT(21) dstr_1936__ADD2SBUF_ROUTINE;
+  struct MELT_OBJECT_STRUCT(5) dobj_1937__ADD2SBUF_ROUTINEDESCR;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1938__ADD2SBUF_ROUTINEDESCR;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1939__ADD2SBUF_ROUTINEDESCR;
+  struct MELT_OBJECT_STRUCT(2) dobj_1940;
+  struct MELT_OBJECT_STRUCT(3) dsym_1941__ROUT;
+  struct MELT_STRING_STRUCT(4) dstr_1942__ROUT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1943;
+  struct MELT_STRING_STRUCT(31) dstr_1944__meltgc_add_strbu;
+  struct MELT_STRING_STRUCT(38) dstr_1945__melt_routine_;
+  struct MELT_STRING_STRUCT(3) dstr_1946__;
+  struct MELT_STRING_STRUCT(21) dstr_1947__ADD2SBUF_ROUTINE;
+  struct MELT_OBJECT_STRUCT(3) dsym_1948__OUTPUT_SBUF_STRCONST;
+  struct MELT_STRING_STRUCT(20) dstr_1949__OUTPUT_SBUF_STRC;
+  struct MELT_OBJECT_STRUCT(5) dobj_1950__OUTPUT_SBUF_STRCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1951__OUTPUT_SBUF_STRCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1952__OUTPUT_SBUF_STRCONST;
+  struct MELT_OBJECT_STRUCT(2) dobj_1953;
+  struct MELT_OBJECT_STRUCT(3) dsym_1954__NAM;
+  struct MELT_STRING_STRUCT(3) dstr_1955__NAM;
+  struct MELT_OBJECT_STRUCT(2) dobj_1956;
+  struct MELT_STRING_STRUCT(29) dstr_1957__melt_output_str;
+  struct MELT_STRING_STRUCT(4) dstr_1958__;
+  struct MELT_STRING_STRUCT(3) dstr_1959__;
+  struct MELT_STRING_STRUCT(20) dstr_1960__OUTPUT_SBUF_STRC;
+  struct MELT_OBJECT_STRUCT(3) dsym_1961__OUTPUT_SBUF_STRVAL;
+  struct MELT_STRING_STRUCT(18) dstr_1962__OUTPUT_SBUF_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_1963__OUTPUT_SBUF_STRVAL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1964__OUTPUT_SBUF_STRVAL;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1965__OUTPUT_SBUF_STRVAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_1966;
+  struct MELT_OBJECT_STRUCT(3) dsym_1967__VNAM;
+  struct MELT_STRING_STRUCT(4) dstr_1968__VNAM;
+  struct MELT_OBJECT_STRUCT(2) dobj_1969;
+  struct MELT_STRING_STRUCT(29) dstr_1970__melt_output_str;
+  struct MELT_STRING_STRUCT(19) dstr_1971__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_1972__;
+  struct MELT_STRING_STRUCT(18) dstr_1973__OUTPUT_SBUF_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_1974__ADD2OUT_STRCONST;
+  struct MELT_STRING_STRUCT(16) dstr_1975__ADD2OUT_STRCONST;
+  struct MELT_OBJECT_STRUCT(5) dobj_1976__ADD2OUT_STRCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1977__ADD2OUT_STRCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1978__ADD2OUT_STRCONST;
+  struct MELT_OBJECT_STRUCT(3) dsym_1979__OUT;
+  struct MELT_STRING_STRUCT(3) dstr_1980__OUT;
+  struct MELT_OBJECT_STRUCT(2) dobj_1981;
+  struct MELT_OBJECT_STRUCT(2) dobj_1982;
+  struct MELT_STRING_STRUCT(28) dstr_1983__meltgc_add_out_;
+  struct MELT_STRING_STRUCT(4) dstr_1984__;
+  struct MELT_STRING_STRUCT(2) dstr_1985__;
+  struct MELT_STRING_STRUCT(16) dstr_1986__ADD2OUT_STRCONST;
+  struct MELT_OBJECT_STRUCT(3) dsym_1987__ADD2OUT_STRING;
+  struct MELT_STRING_STRUCT(14) dstr_1988__ADD2OUT_STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_1989__ADD2OUT_STRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_1990__ADD2OUT_STRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_1991__ADD2OUT_STRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_1992;
+  struct MELT_OBJECT_STRUCT(2) dobj_1993;
+  struct MELT_STRING_STRUCT(28) dstr_1994__meltgc_add_out_;
+  struct MELT_STRING_STRUCT(32) dstr_1995__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_1996__;
+  struct MELT_STRING_STRUCT(14) dstr_1997__ADD2OUT_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_1998__ADD2OUT_MIXLOC;
+  struct MELT_STRING_STRUCT(14) dstr_1999__ADD2OUT_MIXLOC;
+  struct MELT_OBJECT_STRUCT(5) dobj_2000__ADD2OUT_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2001__ADD2OUT_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2002__ADD2OUT_MIXLOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_2003;
+  struct MELT_OBJECT_STRUCT(2) dobj_2004;
+  struct MELT_STRING_STRUCT(54) dstr_2005__add2outmixloc_;
+  struct MELT_STRING_STRUCT(125) dstr_2006__OBMAG_MIXL;
+  struct MELT_STRING_STRUCT(54) dstr_2007__LOCATION_;
+  struct MELT_STRING_STRUCT(5) dstr_2008__;
+  struct MELT_STRING_STRUCT(14) dstr_2009__ADD2OUT_MIXLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_2010__ADD2OUT_INDENT;
+  struct MELT_STRING_STRUCT(14) dstr_2011__ADD2OUT_INDENT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2012__ADD2OUT_INDENT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2013__ADD2OUT_INDENT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2014__ADD2OUT_INDENT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2015;
+  struct MELT_OBJECT_STRUCT(2) dobj_2016;
+  struct MELT_STRING_STRUCT(35) dstr_2017__meltgc_out_add_i;
+  struct MELT_STRING_STRUCT(4) dstr_2018__;
+  struct MELT_STRING_STRUCT(6) dstr_2019__64_;
+  struct MELT_STRING_STRUCT(14) dstr_2020__ADD2OUT_INDENT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2021__ADD2OUT_INDENTNL;
+  struct MELT_STRING_STRUCT(16) dstr_2022__ADD2OUT_INDENTNL;
+  struct MELT_OBJECT_STRUCT(5) dobj_2023__ADD2OUT_INDENTNL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2024__ADD2OUT_INDENTNL;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2025__ADD2OUT_INDENTNL;
+  struct MELT_OBJECT_STRUCT(2) dobj_2026;
+  struct MELT_OBJECT_STRUCT(2) dobj_2027;
+  struct MELT_STRING_STRUCT(35) dstr_2028__meltgc_out_add_i;
+  struct MELT_STRING_STRUCT(4) dstr_2029__;
+  struct MELT_STRING_STRUCT(5) dstr_2030__0_;
+  struct MELT_STRING_STRUCT(16) dstr_2031__ADD2OUT_INDENTNL;
+  struct MELT_OBJECT_STRUCT(3) dsym_2032__ADD2OUT_SBUF;
+  struct MELT_STRING_STRUCT(12) dstr_2033__ADD2OUT_SBUF;
+  struct MELT_OBJECT_STRUCT(5) dobj_2034__ADD2OUT_SBUF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2035__ADD2OUT_SBUF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2036__ADD2OUT_SBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_2037;
+  struct MELT_OBJECT_STRUCT(2) dobj_2038;
+  struct MELT_STRING_STRUCT(28) dstr_2039__meltgc_add_out_;
+  struct MELT_STRING_STRUCT(16) dstr_2040__melt_out_str_;
+  struct MELT_STRING_STRUCT(2) dstr_2041__;
+  struct MELT_STRING_STRUCT(12) dstr_2042__ADD2OUT_SBUF;
+  struct MELT_OBJECT_STRUCT(3) dsym_2043__ADD2OUT_CENCSTRING;
+  struct MELT_STRING_STRUCT(18) dstr_2044__ADD2OUT_CENCSTRI;
+  struct MELT_OBJECT_STRUCT(5) dobj_2045__ADD2OUT_CENCSTRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2046__ADD2OUT_CENCSTRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2047__ADD2OUT_CENCSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_2048;
+  struct MELT_OBJECT_STRUCT(2) dobj_2049;
+  struct MELT_STRING_STRUCT(33) dstr_2050__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(32) dstr_2051__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_2052__;
+  struct MELT_STRING_STRUCT(18) dstr_2053__ADD2OUT_CENCSTRI;
+  struct MELT_OBJECT_STRUCT(3) dsym_2054__ADD2OUT_CENCSTRBUF;
+  struct MELT_STRING_STRUCT(18) dstr_2055__ADD2OUT_CENCSTRB;
+  struct MELT_OBJECT_STRUCT(5) dobj_2056__ADD2OUT_CENCSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2057__ADD2OUT_CENCSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2058__ADD2OUT_CENCSTRBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_2059;
+  struct MELT_OBJECT_STRUCT(2) dobj_2060;
+  struct MELT_STRING_STRUCT(33) dstr_2061__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(29) dstr_2062__melt_out_str_;
+  struct MELT_STRING_STRUCT(3) dstr_2063__;
+  struct MELT_STRING_STRUCT(18) dstr_2064__ADD2OUT_CENCSTRB;
+  struct MELT_OBJECT_STRUCT(3) dsym_2065__ADD2OUT_CCOMSTRING;
+  struct MELT_STRING_STRUCT(18) dstr_2066__ADD2OUT_CCOMSTRI;
+  struct MELT_OBJECT_STRUCT(5) dobj_2067__ADD2OUT_CCOMSTRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2068__ADD2OUT_CCOMSTRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2069__ADD2OUT_CCOMSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_2070;
+  struct MELT_OBJECT_STRUCT(2) dobj_2071;
+  struct MELT_STRING_STRUCT(37) dstr_2072__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(32) dstr_2073__melt_string_s;
+  struct MELT_STRING_STRUCT(3) dstr_2074__;
+  struct MELT_STRING_STRUCT(18) dstr_2075__ADD2OUT_CCOMSTRI;
+  struct MELT_OBJECT_STRUCT(3) dsym_2076__ADD2OUT_CCOMSTRBUF;
+  struct MELT_STRING_STRUCT(18) dstr_2077__ADD2OUT_CCOMSTRB;
+  struct MELT_OBJECT_STRUCT(5) dobj_2078__ADD2OUT_CCOMSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2079__ADD2OUT_CCOMSTRBUF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2080__ADD2OUT_CCOMSTRBUF;
+  struct MELT_OBJECT_STRUCT(2) dobj_2081;
+  struct MELT_OBJECT_STRUCT(2) dobj_2082;
+  struct MELT_STRING_STRUCT(37) dstr_2083__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(29) dstr_2084__melt_out_str_;
+  struct MELT_STRING_STRUCT(3) dstr_2085__;
+  struct MELT_STRING_STRUCT(18) dstr_2086__ADD2OUT_CCOMSTRB;
+  struct MELT_OBJECT_STRUCT(3) dsym_2087__ADD2OUT_CCOMCONST;
+  struct MELT_STRING_STRUCT(17) dstr_2088__ADD2OUT_CCOMCONS;
+  struct MELT_OBJECT_STRUCT(5) dobj_2089__ADD2OUT_CCOMCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2090__ADD2OUT_CCOMCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2091__ADD2OUT_CCOMCONST;
+  struct MELT_OBJECT_STRUCT(2) dobj_2092;
+  struct MELT_OBJECT_STRUCT(2) dobj_2093;
+  struct MELT_STRING_STRUCT(25) dstr_2094__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(3) dstr_2095__;
+  struct MELT_STRING_STRUCT(1) dstr_2096__;
+  struct MELT_STRING_STRUCT(17) dstr_2097__ADD2OUT_CCOMCONS;
+  struct MELT_OBJECT_STRUCT(3) dsym_2098__ADD2OUT_CIDENT;
+  struct MELT_STRING_STRUCT(14) dstr_2099__ADD2OUT_CIDENT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2100__ADD2OUT_CIDENT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2101__ADD2OUT_CIDENT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2102__ADD2OUT_CIDENT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2103;
+  struct MELT_OBJECT_STRUCT(2) dobj_2104;
+  struct MELT_STRING_STRUCT(35) dstr_2105__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(38) dstr_2106__melt_st;
+  struct MELT_STRING_STRUCT(3) dstr_2107__;
+  struct MELT_STRING_STRUCT(14) dstr_2108__ADD2OUT_CIDENT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2109__ADD2OUT_CIDENTPREFIX;
+  struct MELT_STRING_STRUCT(20) dstr_2110__ADD2OUT_CIDENTPR;
+  struct MELT_OBJECT_STRUCT(5) dobj_2111__ADD2OUT_CIDENTPREFIX;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2112__ADD2OUT_CIDENTPREFIX;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2113__ADD2OUT_CIDENTPREFIX;
+  struct MELT_OBJECT_STRUCT(2) dobj_2114;
+  struct MELT_OBJECT_STRUCT(2) dobj_2115;
+  struct MELT_OBJECT_STRUCT(2) dobj_2116;
+  struct MELT_STRING_STRUCT(41) dstr_2117__meltgc_add_out_c;
+  struct MELT_STRING_STRUCT(37) dstr_2118__melt_str;
+  struct MELT_STRING_STRUCT(10) dstr_2119__;
+  struct MELT_STRING_STRUCT(2) dstr_2120__;
+  struct MELT_STRING_STRUCT(20) dstr_2121__ADD2OUT_CIDENTPR;
+  struct MELT_OBJECT_STRUCT(3) dsym_2122__ADD2OUT_LONGDEC;
+  struct MELT_STRING_STRUCT(15) dstr_2123__ADD2OUT_LONGDEC;
+  struct MELT_OBJECT_STRUCT(5) dobj_2124__ADD2OUT_LONGDEC;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2125__ADD2OUT_LONGDEC;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2126__ADD2OUT_LONGDEC;
+  struct MELT_OBJECT_STRUCT(2) dobj_2127;
+  struct MELT_OBJECT_STRUCT(2) dobj_2128;
+  struct MELT_STRING_STRUCT(32) dstr_2129__meltgc_add_out_d;
+  struct MELT_STRING_STRUCT(4) dstr_2130__;
+  struct MELT_STRING_STRUCT(2) dstr_2131__;
+  struct MELT_STRING_STRUCT(15) dstr_2132__ADD2OUT_LONGDEC;
+  struct MELT_OBJECT_STRUCT(3) dsym_2133__ADD2OUT_LONGHEX;
+  struct MELT_STRING_STRUCT(15) dstr_2134__ADD2OUT_LONGHEX;
+  struct MELT_OBJECT_STRUCT(5) dobj_2135__ADD2OUT_LONGHEX;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2136__ADD2OUT_LONGHEX;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2137__ADD2OUT_LONGHEX;
+  struct MELT_OBJECT_STRUCT(2) dobj_2138;
+  struct MELT_OBJECT_STRUCT(2) dobj_2139;
+  struct MELT_STRING_STRUCT(32) dstr_2140__meltgc_add_out_h;
+  struct MELT_STRING_STRUCT(4) dstr_2141__;
+  struct MELT_STRING_STRUCT(2) dstr_2142__;
+  struct MELT_STRING_STRUCT(15) dstr_2143__ADD2OUT_LONGHEX;
+  struct MELT_OBJECT_STRUCT(3) dsym_2144__ADD2OUT_ROUTINEDESCR;
+  struct MELT_STRING_STRUCT(20) dstr_2145__ADD2OUT_ROUTINED;
+  struct MELT_OBJECT_STRUCT(5) dobj_2146__ADD2OUT_ROUTINEDESCR;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2147__ADD2OUT_ROUTINEDESCR;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2148__ADD2OUT_ROUTINEDESCR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2149;
+  struct MELT_OBJECT_STRUCT(2) dobj_2150;
+  struct MELT_STRING_STRUCT(28) dstr_2151__meltgc_add_out_;
+  struct MELT_STRING_STRUCT(44) dstr_2152__melt_ro;
+  struct MELT_STRING_STRUCT(3) dstr_2153__;
+  struct MELT_STRING_STRUCT(20) dstr_2154__ADD2OUT_ROUTINED;
+  struct MELT_OBJECT_STRUCT(3) dsym_2155__IS_STRING;
+  struct MELT_STRING_STRUCT(9) dstr_2156__IS_STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_2157__IS_STRING;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2158__IS_STRING;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2159__IS_STRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_2160;
+  struct MELT_STRING_STRUCT(31) dstr_2161__melt_magic_disc;
+  struct MELT_STRING_STRUCT(19) dstr_2162__OBMAG_STRI;
+  struct MELT_STRING_STRUCT(9) dstr_2163__IS_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_2164__S;
+  struct MELT_STRING_STRUCT(3) dstr_2165__S;
+  struct MELT_OBJECT_STRUCT(5) dobj_2166__S;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2167__S;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2168__S;
+  struct MELT_OBJECT_STRUCT(3) dsym_2169__S1;
+  struct MELT_STRING_STRUCT(2) dstr_2170__S1;
+  struct MELT_OBJECT_STRUCT(2) dobj_2171;
+  struct MELT_OBJECT_STRUCT(3) dsym_2172__S2;
+  struct MELT_STRING_STRUCT(2) dstr_2173__S2;
+  struct MELT_OBJECT_STRUCT(2) dobj_2174;
+  struct MELT_STRING_STRUCT(30) dstr_2175__melt_string_same;
+  struct MELT_STRING_STRUCT(16) dstr_2176__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2177__;
+  struct MELT_STRING_STRUCT(3) dstr_2178__S;
+  struct MELT_OBJECT_STRUCT(3) dsym_2179__S;
+  struct MELT_STRING_STRUCT(3) dstr_2180__S;
+  struct MELT_OBJECT_STRUCT(5) dobj_2181__S;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2182__S;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2183__S;
+  struct MELT_OBJECT_STRUCT(2) dobj_2184;
+  struct MELT_OBJECT_STRUCT(2) dobj_2185;
+  struct MELT_STRING_STRUCT(31) dstr_2186__melt_string_sam;
+  struct MELT_STRING_STRUCT(16) dstr_2187__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2188__;
+  struct MELT_STRING_STRUCT(3) dstr_2189__S;
+  struct MELT_OBJECT_STRUCT(3) dsym_2190__MAKE_STRING;
+  struct MELT_STRING_STRUCT(11) dstr_2191__MAKE_STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_2192__MAKE_STRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2193__MAKE_STRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2194__MAKE_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_2195__DIS;
+  struct MELT_STRING_STRUCT(3) dstr_2196__DIS;
+  struct MELT_OBJECT_STRUCT(2) dobj_2197;
+  struct MELT_OBJECT_STRUCT(2) dobj_2198;
+  struct MELT_STRING_STRUCT(41) dstr_2199__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(38) dstr_2200__melt_st;
+  struct MELT_STRING_STRUCT(4) dstr_2201__;
+  struct MELT_STRING_STRUCT(11) dstr_2202__MAKE_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_2203__MAKE_STRINGCONST;
+  struct MELT_STRING_STRUCT(16) dstr_2204__MAKE_STRINGCONST;
+  struct MELT_OBJECT_STRUCT(5) dobj_2205__MAKE_STRINGCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2206__MAKE_STRINGCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2207__MAKE_STRINGCONST;
+  struct MELT_OBJECT_STRUCT(2) dobj_2208;
+  struct MELT_OBJECT_STRUCT(2) dobj_2209;
+  struct MELT_STRING_STRUCT(41) dstr_2210__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(4) dstr_2211__;
+  struct MELT_STRING_STRUCT(3) dstr_2212__;
+  struct MELT_STRING_STRUCT(16) dstr_2213__MAKE_STRINGCONST;
+  struct MELT_OBJECT_STRUCT(3) dsym_2214__IS_STRINGCONST;
+  struct MELT_STRING_STRUCT(14) dstr_2215__IS_STRINGCONST;
+  struct MELT_OBJECT_STRUCT(5) dobj_2216__IS_STRINGCONST;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2217__IS_STRINGCONST;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2218__IS_STRINGCONST;
+  struct MELT_OBJECT_STRUCT(2) dobj_2219;
+  struct MELT_OBJECT_STRUCT(3) dsym_2220__CS;
+  struct MELT_STRING_STRUCT(2) dstr_2221__CS;
+  struct MELT_OBJECT_STRUCT(2) dobj_2222;
+  struct MELT_STRING_STRUCT(35) dstr_2223__melt_is_string_;
+  struct MELT_STRING_STRUCT(4) dstr_2224__;
+  struct MELT_STRING_STRUCT(3) dstr_2225__;
+  struct MELT_STRING_STRUCT(14) dstr_2226__IS_STRINGCONST;
+  struct MELT_OBJECT_STRUCT(3) dsym_2227__STRING_LENGTH;
+  struct MELT_STRING_STRUCT(13) dstr_2228__STRING_LENGTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_2229__STRING_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2230__STRING_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2231__STRING_LENGTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_2232;
+  struct MELT_STRING_STRUCT(32) dstr_2233__melt_string_leng;
+  struct MELT_STRING_STRUCT(2) dstr_2234__;
+  struct MELT_STRING_STRUCT(13) dstr_2235__STRING_LENGTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2236__STRING_;
+  struct MELT_STRING_STRUCT(7) dstr_2237__STRING_;
+  struct MELT_OBJECT_STRUCT(5) dobj_2238__STRING_;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2239__STRING_;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2240__STRING_;
+  struct MELT_OBJECT_STRUCT(2) dobj_2241;
+  struct MELT_OBJECT_STRUCT(2) dobj_2242;
+  struct MELT_STRING_STRUCT(18) dstr_2243__melt_string_same;
+  struct MELT_STRING_STRUCT(4) dstr_2244__;
+  struct MELT_STRING_STRUCT(2) dstr_2245__;
+  struct MELT_STRING_STRUCT(7) dstr_2246__STRING_;
+  struct MELT_OBJECT_STRUCT(3) dsym_2247__STRING_;
+  struct MELT_STRING_STRUCT(7) dstr_2248__STRING_;
+  struct MELT_OBJECT_STRUCT(5) dobj_2249__STRING_;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2250__STRING_;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2251__STRING_;
+  struct MELT_OBJECT_STRUCT(2) dobj_2252;
+  struct MELT_OBJECT_STRUCT(2) dobj_2253;
+  struct MELT_STRING_STRUCT(30) dstr_2254__melt_string_less;
+  struct MELT_STRING_STRUCT(16) dstr_2255__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2256__;
+  struct MELT_STRING_STRUCT(7) dstr_2257__STRING_;
+  struct MELT_OBJECT_STRUCT(3) dsym_2258__STRING_;
+  struct MELT_STRING_STRUCT(7) dstr_2259__STRING_;
+  struct MELT_OBJECT_STRUCT(5) dobj_2260__STRING_;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2261__STRING_;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2262__STRING_;
+  struct MELT_OBJECT_STRUCT(2) dobj_2263;
+  struct MELT_OBJECT_STRUCT(2) dobj_2264;
+  struct MELT_STRING_STRUCT(30) dstr_2265__melt_string_less;
+  struct MELT_STRING_STRUCT(16) dstr_2266__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2267__;
+  struct MELT_STRING_STRUCT(7) dstr_2268__STRING_;
+  struct MELT_OBJECT_STRUCT(3) dsym_2269__SPLIT_STRING_SPACE;
+  struct MELT_STRING_STRUCT(18) dstr_2270__SPLIT_STRING_SPA;
+  struct MELT_OBJECT_STRUCT(5) dobj_2271__SPLIT_STRING_SPACE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2272__SPLIT_STRING_SPACE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2273__SPLIT_STRING_SPACE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2274;
+  struct MELT_OBJECT_STRUCT(2) dobj_2275;
+  struct MELT_STRING_STRUCT(24) dstr_2276__meltgc_new_split;
+  struct MELT_STRING_STRUCT(20) dstr_2277__melt_ptr;
+  struct MELT_STRING_STRUCT(1) dstr_2278__;
+  struct MELT_STRING_STRUCT(18) dstr_2279__SPLIT_STRING_SPA;
+  struct MELT_OBJECT_STRUCT(3) dsym_2280__SPLIT_STRING_COMMA;
+  struct MELT_STRING_STRUCT(18) dstr_2281__SPLIT_STRING_COM;
+  struct MELT_OBJECT_STRUCT(5) dobj_2282__SPLIT_STRING_COMMA;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2283__SPLIT_STRING_COMMA;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2284__SPLIT_STRING_COMMA;
+  struct MELT_OBJECT_STRUCT(2) dobj_2285;
+  struct MELT_OBJECT_STRUCT(2) dobj_2286;
+  struct MELT_STRING_STRUCT(24) dstr_2287__meltgc_new_split;
+  struct MELT_STRING_STRUCT(20) dstr_2288__melt_ptr;
+  struct MELT_STRING_STRUCT(1) dstr_2289__;
+  struct MELT_STRING_STRUCT(18) dstr_2290__SPLIT_STRING_COM;
+  struct MELT_OBJECT_STRUCT(3) dsym_2291__SPLIT_STRING_COLON;
+  struct MELT_STRING_STRUCT(18) dstr_2292__SPLIT_STRING_COL;
+  struct MELT_OBJECT_STRUCT(5) dobj_2293__SPLIT_STRING_COLON;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2294__SPLIT_STRING_COLON;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2295__SPLIT_STRING_COLON;
+  struct MELT_OBJECT_STRUCT(2) dobj_2296;
+  struct MELT_OBJECT_STRUCT(2) dobj_2297;
+  struct MELT_STRING_STRUCT(24) dstr_2298__meltgc_new_split;
+  struct MELT_STRING_STRUCT(19) dstr_2299__melt_ptr;
+  struct MELT_STRING_STRUCT(1) dstr_2300__;
+  struct MELT_STRING_STRUCT(18) dstr_2301__SPLIT_STRING_COL;
+  struct MELT_OBJECT_STRUCT(3) dsym_2302__STRBUF2STRING;
+  struct MELT_STRING_STRUCT(13) dstr_2303__STRBUF2STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_2304__STRBUF2STRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2305__STRBUF2STRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2306__STRBUF2STRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_2307;
+  struct MELT_OBJECT_STRUCT(2) dobj_2308;
+  struct MELT_STRING_STRUCT(41) dstr_2309__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(32) dstr_2310__melt_strbuf_s;
+  struct MELT_STRING_STRUCT(4) dstr_2311__;
+  struct MELT_STRING_STRUCT(13) dstr_2312__STRBUF2STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_2313__MAKE_STRING_NAKEDBASENAME;
+  struct MELT_STRING_STRUCT(25) dstr_2314__MAKE_STRING_NAKE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2315__MAKE_STRING_NAKEDBASENAME;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2316__MAKE_STRING_NAKEDBASENAME;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2317__MAKE_STRING_NAKEDBASENAME;
+  struct MELT_OBJECT_STRUCT(2) dobj_2318;
+  struct MELT_OBJECT_STRUCT(2) dobj_2319;
+  struct MELT_STRING_STRUCT(52) dstr_2320__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(32) dstr_2321__melt_string_s;
+  struct MELT_STRING_STRUCT(4) dstr_2322__;
+  struct MELT_STRING_STRUCT(25) dstr_2323__MAKE_STRING_NAKE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED;
+  struct MELT_STRING_STRUCT(29) dstr_2325__MAKE_STRING_TEMP;
+  struct MELT_OBJECT_STRUCT(5) dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2327__MAKE_STRING_TEMPNAME_SUFFIXED;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2328__MAKE_STRING_TEMPNAME_SUFFIXED;
+  struct MELT_OBJECT_STRUCT(2) dobj_2329;
+  struct MELT_OBJECT_STRUCT(2) dobj_2330;
+  struct MELT_OBJECT_STRUCT(3) dsym_2331__SUFF;
+  struct MELT_STRING_STRUCT(4) dstr_2332__SUFF;
+  struct MELT_OBJECT_STRUCT(2) dobj_2333;
+  struct MELT_STRING_STRUCT(56) dstr_2334__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(39) dstr_2335__melt_s;
+  struct MELT_STRING_STRUCT(12) dstr_2336__;
+  struct MELT_STRING_STRUCT(3) dstr_2337__;
+  struct MELT_STRING_STRUCT(29) dstr_2338__MAKE_STRING_TEMP;
+  struct MELT_OBJECT_STRUCT(3) dsym_2339__LOAD_MELT_MODULE;
+  struct MELT_STRING_STRUCT(16) dstr_2340__LOAD_MELT_MODULE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2341__LOAD_MELT_MODULE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2342__LOAD_MELT_MODULE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2343__LOAD_MELT_MODULE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2344__ENV;
+  struct MELT_STRING_STRUCT(3) dstr_2345__ENV;
+  struct MELT_OBJECT_STRUCT(2) dobj_2346;
+  struct MELT_OBJECT_STRUCT(2) dobj_2347;
+  struct MELT_STRING_STRUCT(38) dstr_2348__meltgc_load_mel;
+  struct MELT_STRING_STRUCT(34) dstr_2349__melt_string;
+  struct MELT_STRING_STRUCT(4) dstr_2350__;
+  struct MELT_STRING_STRUCT(16) dstr_2351__LOAD_MELT_MODULE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2352__GENERATE_MELT_MODULE;
+  struct MELT_STRING_STRUCT(20) dstr_2353__GENERATE_MELT_MO;
+  struct MELT_OBJECT_STRUCT(5) dobj_2354__GENERATE_MELT_MODULE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2355__GENERATE_MELT_MODULE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2356__GENERATE_MELT_MODULE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2357__SRC;
+  struct MELT_STRING_STRUCT(3) dstr_2358__SRC;
+  struct MELT_OBJECT_STRUCT(2) dobj_2359;
+  struct MELT_OBJECT_STRUCT(3) dsym_2360__OUTNAM;
+  struct MELT_STRING_STRUCT(6) dstr_2361__OUTNAM;
+  struct MELT_OBJECT_STRUCT(2) dobj_2362;
+  struct MELT_STRING_STRUCT(28) dstr_2363__meltgc_generate_;
+  struct MELT_STRING_STRUCT(1) dstr_2364__;
+  struct MELT_STRING_STRUCT(2) dstr_2365__;
+  struct MELT_STRING_STRUCT(20) dstr_2366__GENERATE_MELT_MO;
+  struct MELT_OBJECT_STRUCT(3) dsym_2367__OBJECT_LENGTH;
+  struct MELT_STRING_STRUCT(13) dstr_2368__OBJECT_LENGTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_2369__OBJECT_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2370__OBJECT_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2371__OBJECT_LENGTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2372__OB;
+  struct MELT_STRING_STRUCT(2) dstr_2373__OB;
+  struct MELT_OBJECT_STRUCT(2) dobj_2374;
+  struct MELT_STRING_STRUCT(39) dstr_2375__long_melt_obje;
+  struct MELT_STRING_STRUCT(3) dstr_2376__;
+  struct MELT_STRING_STRUCT(13) dstr_2377__OBJECT_LENGTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2378__OBJECT_NTH_FIELD;
+  struct MELT_STRING_STRUCT(16) dstr_2379__OBJECT_NTH_FIELD;
+  struct MELT_OBJECT_STRUCT(5) dobj_2380__OBJECT_NTH_FIELD;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2381__OBJECT_NTH_FIELD;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2382__OBJECT_NTH_FIELD;
+  struct MELT_OBJECT_STRUCT(2) dobj_2383;
+  struct MELT_OBJECT_STRUCT(3) dsym_2384__N;
+  struct MELT_STRING_STRUCT(1) dstr_2385__N;
+  struct MELT_OBJECT_STRUCT(2) dobj_2386;
+  struct MELT_STRING_STRUCT(32) dstr_2387__melt_field_obje;
+  struct MELT_STRING_STRUCT(4) dstr_2388__;
+  struct MELT_STRING_STRUCT(3) dstr_2389__;
+  struct MELT_STRING_STRUCT(16) dstr_2390__OBJECT_NTH_FIELD;
+  struct MELT_OBJECT_STRUCT(3) dsym_2391__SUBCLASS_OF;
+  struct MELT_STRING_STRUCT(11) dstr_2392__SUBCLASS_OF;
+  struct MELT_OBJECT_STRUCT(5) dobj_2393__SUBCLASS_OF;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2394__SUBCLASS_OF;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2395__SUBCLASS_OF;
+  struct MELT_OBJECT_STRUCT(3) dsym_2396__CL1;
+  struct MELT_STRING_STRUCT(3) dstr_2397__CL1;
+  struct MELT_OBJECT_STRUCT(2) dobj_2398;
+  struct MELT_OBJECT_STRUCT(3) dsym_2399__CL2;
+  struct MELT_STRING_STRUCT(3) dstr_2400__CL2;
+  struct MELT_OBJECT_STRUCT(2) dobj_2401;
+  struct MELT_STRING_STRUCT(39) dstr_2402__melt_is_subclass;
+  struct MELT_STRING_STRUCT(22) dstr_2403__meltobject_p;
+  struct MELT_STRING_STRUCT(2) dstr_2404__;
+  struct MELT_STRING_STRUCT(11) dstr_2405__SUBCLASS_OF;
+  struct MELT_OBJECT_STRUCT(3) dsym_2406__SUBCLASS_OR_EQ;
+  struct MELT_STRING_STRUCT(14) dstr_2407__SUBCLASS_OR_EQ;
+  struct MELT_OBJECT_STRUCT(5) dobj_2408__SUBCLASS_OR_EQ;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_2409__SUBCLASS_OR_EQ;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2410__SUBCLASS_OR_EQ;
+  struct MELT_OBJECT_STRUCT(2) dobj_2411;
+  struct MELT_OBJECT_STRUCT(2) dobj_2412;
+  struct MELT_STRING_STRUCT(2) dstr_2413__;
+  struct MELT_STRING_STRUCT(4) dstr_2414__;
+  struct MELT_STRING_STRUCT(44) dstr_2415__melt_is_sub;
+  struct MELT_STRING_STRUCT(22) dstr_2416__meltobject_p;
+  struct MELT_STRING_STRUCT(3) dstr_2417__;
+  struct MELT_STRING_STRUCT(14) dstr_2418__SUBCLASS_OR_EQ;
+  struct MELT_OBJECT_STRUCT(3) dsym_2419__IS_MULTIPLE;
+  struct MELT_STRING_STRUCT(11) dstr_2420__IS_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2421__IS_MULTIPLE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2422__IS_MULTIPLE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2423__IS_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2424__MUL;
+  struct MELT_STRING_STRUCT(3) dstr_2425__MUL;
+  struct MELT_OBJECT_STRUCT(2) dobj_2426;
+  struct MELT_STRING_STRUCT(31) dstr_2427__melt_magic_disc;
+  struct MELT_STRING_STRUCT(21) dstr_2428__OBMAG_MULT;
+  struct MELT_STRING_STRUCT(11) dstr_2429__IS_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2430__IS_MULTIPLE_OR_NULL;
+  struct MELT_STRING_STRUCT(19) dstr_2431__IS_MULTIPLE_OR_N;
+  struct MELT_OBJECT_STRUCT(5) dobj_2432__IS_MULTIPLE_OR_NULL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2433__IS_MULTIPLE_OR_NULL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2434__IS_MULTIPLE_OR_NULL;
+  struct MELT_OBJECT_STRUCT(2) dobj_2435;
+  struct MELT_STRING_STRUCT(2) dstr_2436__;
+  struct MELT_STRING_STRUCT(51) dstr_2437__NULL_me;
+  struct MELT_STRING_STRUCT(22) dstr_2438__OBMAG_MULT;
   struct MELT_STRING_STRUCT(19) dstr_2439__IS_MULTIPLE_OR_N;
-  struct MELT_OBJECT_STRUCT(5) dobj_2440__IS_MULTIPLE_OR_NULL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2441__IS_MULTIPLE_OR_NULL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2442__IS_MULTIPLE_OR_NULL;
-  struct MELT_OBJECT_STRUCT(2) dobj_2443;
-  struct MELT_STRING_STRUCT(2) dstr_2444__;
-  struct MELT_STRING_STRUCT(51) dstr_2445__NULL_me;
-  struct MELT_STRING_STRUCT(22) dstr_2446__OBMAG_MULT;
-  struct MELT_STRING_STRUCT(19) dstr_2447__IS_MULTIPLE_OR_N;
-  struct MELT_OBJECT_STRUCT(3) dsym_2448__MAKE_MULTIPLE;
-  struct MELT_STRING_STRUCT(13) dstr_2449__MAKE_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2450__MAKE_MULTIPLE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2451__MAKE_MULTIPLE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2452__MAKE_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2453;
-  struct MELT_OBJECT_STRUCT(3) dsym_2454__LN;
-  struct MELT_STRING_STRUCT(2) dstr_2455__LN;
-  struct MELT_OBJECT_STRUCT(2) dobj_2456;
-  struct MELT_STRING_STRUCT(40) dstr_2457__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(4) dstr_2458__;
-  struct MELT_STRING_STRUCT(3) dstr_2459__;
-  struct MELT_STRING_STRUCT(13) dstr_2460__MAKE_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2461__MAKE_TUPLE1;
-  struct MELT_STRING_STRUCT(11) dstr_2462__MAKE_TUPLE1;
-  struct MELT_OBJECT_STRUCT(5) dobj_2463__MAKE_TUPLE1;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2464__MAKE_TUPLE1;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2465__MAKE_TUPLE1;
-  struct MELT_OBJECT_STRUCT(2) dobj_2466;
-  struct MELT_OBJECT_STRUCT(3) dsym_2467__V1;
-  struct MELT_STRING_STRUCT(2) dstr_2468__V1;
-  struct MELT_OBJECT_STRUCT(2) dobj_2469;
-  struct MELT_STRING_STRUCT(37) dstr_2470__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2471__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_2472__;
-  struct MELT_STRING_STRUCT(11) dstr_2473__MAKE_TUPLE1;
-  struct MELT_OBJECT_STRUCT(3) dsym_2474__MAKE_TUPLE2;
-  struct MELT_STRING_STRUCT(11) dstr_2475__MAKE_TUPLE2;
-  struct MELT_OBJECT_STRUCT(5) dobj_2476__MAKE_TUPLE2;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2477__MAKE_TUPLE2;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2478__MAKE_TUPLE2;
-  struct MELT_OBJECT_STRUCT(2) dobj_2479;
-  struct MELT_OBJECT_STRUCT(2) dobj_2480;
-  struct MELT_OBJECT_STRUCT(3) dsym_2481__V2;
-  struct MELT_STRING_STRUCT(2) dstr_2482__V2;
-  struct MELT_OBJECT_STRUCT(2) dobj_2483;
-  struct MELT_STRING_STRUCT(37) dstr_2484__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2485__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2486__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_2487__;
-  struct MELT_STRING_STRUCT(11) dstr_2488__MAKE_TUPLE2;
-  struct MELT_OBJECT_STRUCT(3) dsym_2489__MAKE_TUPLE3;
-  struct MELT_STRING_STRUCT(11) dstr_2490__MAKE_TUPLE3;
-  struct MELT_OBJECT_STRUCT(5) dobj_2491__MAKE_TUPLE3;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_2492__MAKE_TUPLE3;
-  struct MELT_MULTIPLE_STRUCT(4) dtup_2493__MAKE_TUPLE3;
-  struct MELT_OBJECT_STRUCT(2) dobj_2494;
-  struct MELT_OBJECT_STRUCT(2) dobj_2495;
-  struct MELT_OBJECT_STRUCT(2) dobj_2496;
-  struct MELT_OBJECT_STRUCT(3) dsym_2497__V3;
-  struct MELT_STRING_STRUCT(2) dstr_2498__V3;
-  struct MELT_OBJECT_STRUCT(2) dobj_2499;
-  struct MELT_STRING_STRUCT(37) dstr_2500__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2501__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2502__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2503__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_2504__;
-  struct MELT_STRING_STRUCT(11) dstr_2505__MAKE_TUPLE3;
-  struct MELT_OBJECT_STRUCT(3) dsym_2506__MAKE_TUPLE4;
-  struct MELT_STRING_STRUCT(11) dstr_2507__MAKE_TUPLE4;
-  struct MELT_OBJECT_STRUCT(5) dobj_2508__MAKE_TUPLE4;
-  struct MELT_MULTIPLE_STRUCT(11) dtup_2509__MAKE_TUPLE4;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2510__MAKE_TUPLE4;
-  struct MELT_OBJECT_STRUCT(2) dobj_2511;
-  struct MELT_OBJECT_STRUCT(2) dobj_2512;
-  struct MELT_OBJECT_STRUCT(2) dobj_2513;
-  struct MELT_OBJECT_STRUCT(2) dobj_2514;
-  struct MELT_OBJECT_STRUCT(3) dsym_2515__V4;
-  struct MELT_STRING_STRUCT(2) dstr_2516__V4;
-  struct MELT_OBJECT_STRUCT(2) dobj_2517;
-  struct MELT_STRING_STRUCT(37) dstr_2518__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2519__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(26) dstr_2520__me;
-  struct MELT_STRING_STRUCT(17) dstr_2521__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2522__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_2523__;
-  struct MELT_STRING_STRUCT(11) dstr_2524__MAKE_TUPLE4;
-  struct MELT_OBJECT_STRUCT(3) dsym_2525__MAKE_TUPLE5;
-  struct MELT_STRING_STRUCT(11) dstr_2526__MAKE_TUPLE5;
-  struct MELT_OBJECT_STRUCT(5) dobj_2527__MAKE_TUPLE5;
-  struct MELT_MULTIPLE_STRUCT(13) dtup_2528__MAKE_TUPLE5;
-  struct MELT_MULTIPLE_STRUCT(6) dtup_2529__MAKE_TUPLE5;
-  struct MELT_OBJECT_STRUCT(2) dobj_2530;
-  struct MELT_OBJECT_STRUCT(2) dobj_2531;
-  struct MELT_OBJECT_STRUCT(2) dobj_2532;
-  struct MELT_OBJECT_STRUCT(2) dobj_2533;
-  struct MELT_OBJECT_STRUCT(2) dobj_2534;
-  struct MELT_OBJECT_STRUCT(3) dsym_2535__V5;
-  struct MELT_STRING_STRUCT(2) dstr_2536__V5;
-  struct MELT_OBJECT_STRUCT(2) dobj_2537;
-  struct MELT_STRING_STRUCT(37) dstr_2538__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2539__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(26) dstr_2540__me;
-  struct MELT_STRING_STRUCT(17) dstr_2541__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2542__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(24) dstr_2543__melt;
-  struct MELT_STRING_STRUCT(3) dstr_2544__;
-  struct MELT_STRING_STRUCT(11) dstr_2545__MAKE_TUPLE5;
-  struct MELT_OBJECT_STRUCT(3) dsym_2546__MAKE_TUPLE6;
-  struct MELT_STRING_STRUCT(11) dstr_2547__MAKE_TUPLE6;
-  struct MELT_OBJECT_STRUCT(5) dobj_2548__MAKE_TUPLE6;
-  struct MELT_MULTIPLE_STRUCT(15) dtup_2549__MAKE_TUPLE6;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2550__MAKE_TUPLE6;
+  struct MELT_OBJECT_STRUCT(3) dsym_2440__MAKE_MULTIPLE;
+  struct MELT_STRING_STRUCT(13) dstr_2441__MAKE_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2442__MAKE_MULTIPLE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2443__MAKE_MULTIPLE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2444__MAKE_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2445;
+  struct MELT_OBJECT_STRUCT(3) dsym_2446__LN;
+  struct MELT_STRING_STRUCT(2) dstr_2447__LN;
+  struct MELT_OBJECT_STRUCT(2) dobj_2448;
+  struct MELT_STRING_STRUCT(40) dstr_2449__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(4) dstr_2450__;
+  struct MELT_STRING_STRUCT(3) dstr_2451__;
+  struct MELT_STRING_STRUCT(13) dstr_2452__MAKE_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2453__MAKE_TUPLE1;
+  struct MELT_STRING_STRUCT(11) dstr_2454__MAKE_TUPLE1;
+  struct MELT_OBJECT_STRUCT(5) dobj_2455__MAKE_TUPLE1;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2456__MAKE_TUPLE1;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2457__MAKE_TUPLE1;
+  struct MELT_OBJECT_STRUCT(2) dobj_2458;
+  struct MELT_OBJECT_STRUCT(3) dsym_2459__V1;
+  struct MELT_STRING_STRUCT(2) dstr_2460__V1;
+  struct MELT_OBJECT_STRUCT(2) dobj_2461;
+  struct MELT_STRING_STRUCT(37) dstr_2462__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2463__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_2464__;
+  struct MELT_STRING_STRUCT(11) dstr_2465__MAKE_TUPLE1;
+  struct MELT_OBJECT_STRUCT(3) dsym_2466__MAKE_TUPLE2;
+  struct MELT_STRING_STRUCT(11) dstr_2467__MAKE_TUPLE2;
+  struct MELT_OBJECT_STRUCT(5) dobj_2468__MAKE_TUPLE2;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2469__MAKE_TUPLE2;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2470__MAKE_TUPLE2;
+  struct MELT_OBJECT_STRUCT(2) dobj_2471;
+  struct MELT_OBJECT_STRUCT(2) dobj_2472;
+  struct MELT_OBJECT_STRUCT(3) dsym_2473__V2;
+  struct MELT_STRING_STRUCT(2) dstr_2474__V2;
+  struct MELT_OBJECT_STRUCT(2) dobj_2475;
+  struct MELT_STRING_STRUCT(37) dstr_2476__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2477__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2478__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_2479__;
+  struct MELT_STRING_STRUCT(11) dstr_2480__MAKE_TUPLE2;
+  struct MELT_OBJECT_STRUCT(3) dsym_2481__MAKE_TUPLE3;
+  struct MELT_STRING_STRUCT(11) dstr_2482__MAKE_TUPLE3;
+  struct MELT_OBJECT_STRUCT(5) dobj_2483__MAKE_TUPLE3;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_2484__MAKE_TUPLE3;
+  struct MELT_MULTIPLE_STRUCT(4) dtup_2485__MAKE_TUPLE3;
+  struct MELT_OBJECT_STRUCT(2) dobj_2486;
+  struct MELT_OBJECT_STRUCT(2) dobj_2487;
+  struct MELT_OBJECT_STRUCT(2) dobj_2488;
+  struct MELT_OBJECT_STRUCT(3) dsym_2489__V3;
+  struct MELT_STRING_STRUCT(2) dstr_2490__V3;
+  struct MELT_OBJECT_STRUCT(2) dobj_2491;
+  struct MELT_STRING_STRUCT(37) dstr_2492__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2493__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2494__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2495__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_2496__;
+  struct MELT_STRING_STRUCT(11) dstr_2497__MAKE_TUPLE3;
+  struct MELT_OBJECT_STRUCT(3) dsym_2498__MAKE_TUPLE4;
+  struct MELT_STRING_STRUCT(11) dstr_2499__MAKE_TUPLE4;
+  struct MELT_OBJECT_STRUCT(5) dobj_2500__MAKE_TUPLE4;
+  struct MELT_MULTIPLE_STRUCT(11) dtup_2501__MAKE_TUPLE4;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2502__MAKE_TUPLE4;
+  struct MELT_OBJECT_STRUCT(2) dobj_2503;
+  struct MELT_OBJECT_STRUCT(2) dobj_2504;
+  struct MELT_OBJECT_STRUCT(2) dobj_2505;
+  struct MELT_OBJECT_STRUCT(2) dobj_2506;
+  struct MELT_OBJECT_STRUCT(3) dsym_2507__V4;
+  struct MELT_STRING_STRUCT(2) dstr_2508__V4;
+  struct MELT_OBJECT_STRUCT(2) dobj_2509;
+  struct MELT_STRING_STRUCT(37) dstr_2510__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2511__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(26) dstr_2512__me;
+  struct MELT_STRING_STRUCT(17) dstr_2513__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2514__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_2515__;
+  struct MELT_STRING_STRUCT(11) dstr_2516__MAKE_TUPLE4;
+  struct MELT_OBJECT_STRUCT(3) dsym_2517__MAKE_TUPLE5;
+  struct MELT_STRING_STRUCT(11) dstr_2518__MAKE_TUPLE5;
+  struct MELT_OBJECT_STRUCT(5) dobj_2519__MAKE_TUPLE5;
+  struct MELT_MULTIPLE_STRUCT(13) dtup_2520__MAKE_TUPLE5;
+  struct MELT_MULTIPLE_STRUCT(6) dtup_2521__MAKE_TUPLE5;
+  struct MELT_OBJECT_STRUCT(2) dobj_2522;
+  struct MELT_OBJECT_STRUCT(2) dobj_2523;
+  struct MELT_OBJECT_STRUCT(2) dobj_2524;
+  struct MELT_OBJECT_STRUCT(2) dobj_2525;
+  struct MELT_OBJECT_STRUCT(2) dobj_2526;
+  struct MELT_OBJECT_STRUCT(3) dsym_2527__V5;
+  struct MELT_STRING_STRUCT(2) dstr_2528__V5;
+  struct MELT_OBJECT_STRUCT(2) dobj_2529;
+  struct MELT_STRING_STRUCT(37) dstr_2530__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2531__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(26) dstr_2532__me;
+  struct MELT_STRING_STRUCT(17) dstr_2533__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2534__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(24) dstr_2535__melt;
+  struct MELT_STRING_STRUCT(3) dstr_2536__;
+  struct MELT_STRING_STRUCT(11) dstr_2537__MAKE_TUPLE5;
+  struct MELT_OBJECT_STRUCT(3) dsym_2538__MAKE_TUPLE6;
+  struct MELT_STRING_STRUCT(11) dstr_2539__MAKE_TUPLE6;
+  struct MELT_OBJECT_STRUCT(5) dobj_2540__MAKE_TUPLE6;
+  struct MELT_MULTIPLE_STRUCT(15) dtup_2541__MAKE_TUPLE6;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2542__MAKE_TUPLE6;
+  struct MELT_OBJECT_STRUCT(2) dobj_2543;
+  struct MELT_OBJECT_STRUCT(2) dobj_2544;
+  struct MELT_OBJECT_STRUCT(2) dobj_2545;
+  struct MELT_OBJECT_STRUCT(2) dobj_2546;
+  struct MELT_OBJECT_STRUCT(2) dobj_2547;
+  struct MELT_OBJECT_STRUCT(2) dobj_2548;
+  struct MELT_OBJECT_STRUCT(3) dsym_2549__V6;
+  struct MELT_STRING_STRUCT(2) dstr_2550__V6;
   struct MELT_OBJECT_STRUCT(2) dobj_2551;
-  struct MELT_OBJECT_STRUCT(2) dobj_2552;
-  struct MELT_OBJECT_STRUCT(2) dobj_2553;
-  struct MELT_OBJECT_STRUCT(2) dobj_2554;
-  struct MELT_OBJECT_STRUCT(2) dobj_2555;
-  struct MELT_OBJECT_STRUCT(2) dobj_2556;
-  struct MELT_OBJECT_STRUCT(3) dsym_2557__V6;
-  struct MELT_STRING_STRUCT(2) dstr_2558__V6;
-  struct MELT_OBJECT_STRUCT(2) dobj_2559;
-  struct MELT_STRING_STRUCT(37) dstr_2560__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2561__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(26) dstr_2562__me;
-  struct MELT_STRING_STRUCT(17) dstr_2563__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2564__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(24) dstr_2565__melt;
-  struct MELT_STRING_STRUCT(17) dstr_2566__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_2567__;
-  struct MELT_STRING_STRUCT(11) dstr_2568__MAKE_TUPLE6;
-  struct MELT_OBJECT_STRUCT(3) dsym_2569__MAKE_TUPLE7;
-  struct MELT_STRING_STRUCT(11) dstr_2570__MAKE_TUPLE7;
-  struct MELT_OBJECT_STRUCT(5) dobj_2571__MAKE_TUPLE7;
-  struct MELT_MULTIPLE_STRUCT(17) dtup_2572__MAKE_TUPLE7;
-  struct MELT_MULTIPLE_STRUCT(8) dtup_2573__MAKE_TUPLE7;
-  struct MELT_OBJECT_STRUCT(2) dobj_2574;
+  struct MELT_STRING_STRUCT(37) dstr_2552__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2553__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(26) dstr_2554__me;
+  struct MELT_STRING_STRUCT(17) dstr_2555__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2556__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(24) dstr_2557__melt;
+  struct MELT_STRING_STRUCT(17) dstr_2558__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_2559__;
+  struct MELT_STRING_STRUCT(11) dstr_2560__MAKE_TUPLE6;
+  struct MELT_OBJECT_STRUCT(3) dsym_2561__MAKE_TUPLE7;
+  struct MELT_STRING_STRUCT(11) dstr_2562__MAKE_TUPLE7;
+  struct MELT_OBJECT_STRUCT(5) dobj_2563__MAKE_TUPLE7;
+  struct MELT_MULTIPLE_STRUCT(17) dtup_2564__MAKE_TUPLE7;
+  struct MELT_MULTIPLE_STRUCT(8) dtup_2565__MAKE_TUPLE7;
+  struct MELT_OBJECT_STRUCT(2) dobj_2566;
+  struct MELT_OBJECT_STRUCT(2) dobj_2567;
+  struct MELT_OBJECT_STRUCT(2) dobj_2568;
+  struct MELT_OBJECT_STRUCT(2) dobj_2569;
+  struct MELT_OBJECT_STRUCT(2) dobj_2570;
+  struct MELT_OBJECT_STRUCT(2) dobj_2571;
+  struct MELT_OBJECT_STRUCT(2) dobj_2572;
+  struct MELT_OBJECT_STRUCT(3) dsym_2573__V7;
+  struct MELT_STRING_STRUCT(2) dstr_2574__V7;
   struct MELT_OBJECT_STRUCT(2) dobj_2575;
-  struct MELT_OBJECT_STRUCT(2) dobj_2576;
-  struct MELT_OBJECT_STRUCT(2) dobj_2577;
-  struct MELT_OBJECT_STRUCT(2) dobj_2578;
-  struct MELT_OBJECT_STRUCT(2) dobj_2579;
-  struct MELT_OBJECT_STRUCT(2) dobj_2580;
-  struct MELT_OBJECT_STRUCT(3) dsym_2581__V7;
-  struct MELT_STRING_STRUCT(2) dstr_2582__V7;
-  struct MELT_OBJECT_STRUCT(2) dobj_2583;
-  struct MELT_STRING_STRUCT(37) dstr_2584__meltgc_new_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2585__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(26) dstr_2586__me;
-  struct MELT_STRING_STRUCT(17) dstr_2587__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2588__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(24) dstr_2589__melt;
-  struct MELT_STRING_STRUCT(17) dstr_2590__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(17) dstr_2591__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_2592__;
-  struct MELT_STRING_STRUCT(11) dstr_2593__MAKE_TUPLE7;
-  struct MELT_OBJECT_STRUCT(3) dsym_2594__SUBSEQ_MULTIPLE;
-  struct MELT_STRING_STRUCT(15) dstr_2595__SUBSEQ_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2596__SUBSEQ_MULTIPLE;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2597__SUBSEQ_MULTIPLE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2598__SUBSEQ_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2599;
-  struct MELT_OBJECT_STRUCT(3) dsym_2600__STARTIX;
-  struct MELT_STRING_STRUCT(7) dstr_2601__STARTIX;
-  struct MELT_OBJECT_STRUCT(2) dobj_2602;
-  struct MELT_OBJECT_STRUCT(3) dsym_2603__ENDIX;
-  struct MELT_STRING_STRUCT(5) dstr_2604__ENDIX;
-  struct MELT_OBJECT_STRUCT(2) dobj_2605;
-  struct MELT_STRING_STRUCT(41) dstr_2606__meltgc_new_subs;
-  struct MELT_STRING_STRUCT(15) dstr_2607__int_;
-  struct MELT_STRING_STRUCT(9) dstr_2608__int_;
-  struct MELT_STRING_STRUCT(3) dstr_2609__;
-  struct MELT_STRING_STRUCT(15) dstr_2610__SUBSEQ_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2611__MULTIPLE_NTH;
-  struct MELT_STRING_STRUCT(12) dstr_2612__MULTIPLE_NTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_2613__MULTIPLE_NTH;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2614__MULTIPLE_NTH;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2615__MULTIPLE_NTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_2616;
-  struct MELT_OBJECT_STRUCT(2) dobj_2617;
-  struct MELT_STRING_STRUCT(32) dstr_2618__melt_multiple_n;
-  struct MELT_STRING_STRUCT(4) dstr_2619__;
-  struct MELT_STRING_STRUCT(3) dstr_2620__;
-  struct MELT_STRING_STRUCT(12) dstr_2621__MULTIPLE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2622__MULTIPLE_LENGTH;
-  struct MELT_STRING_STRUCT(15) dstr_2623__MULTIPLE_LENGTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_2624__MULTIPLE_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2625__MULTIPLE_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2626__MULTIPLE_LENGTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_2627;
-  struct MELT_STRING_STRUCT(35) dstr_2628__melt_multiple_l;
-  struct MELT_STRING_STRUCT(3) dstr_2629__;
-  struct MELT_STRING_STRUCT(15) dstr_2630__MULTIPLE_LENGTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2631__MULTIPLE_PUT_NTH;
-  struct MELT_STRING_STRUCT(16) dstr_2632__MULTIPLE_PUT_NTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_2633__MULTIPLE_PUT_NTH;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2634__MULTIPLE_PUT_NTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2635__MULTIPLE_PUT_NTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_2636;
-  struct MELT_OBJECT_STRUCT(2) dobj_2637;
-  struct MELT_OBJECT_STRUCT(2) dobj_2638;
-  struct MELT_STRING_STRUCT(37) dstr_2639__meltgc_multiple_;
-  struct MELT_STRING_STRUCT(4) dstr_2640__;
-  struct MELT_STRING_STRUCT(16) dstr_2641__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2642__;
-  struct MELT_STRING_STRUCT(16) dstr_2643__MULTIPLE_PUT_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2644__MULTIPLE_SORT;
-  struct MELT_STRING_STRUCT(13) dstr_2645__MULTIPLE_SORT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2646__MULTIPLE_SORT;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2647__MULTIPLE_SORT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2648__MULTIPLE_SORT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2649;
-  struct MELT_OBJECT_STRUCT(3) dsym_2650__CMP;
-  struct MELT_STRING_STRUCT(3) dstr_2651__CMP;
-  struct MELT_OBJECT_STRUCT(2) dobj_2652;
-  struct MELT_OBJECT_STRUCT(3) dsym_2653__DISCRM;
-  struct MELT_STRING_STRUCT(6) dstr_2654__DISCRM;
-  struct MELT_OBJECT_STRUCT(2) dobj_2655;
-  struct MELT_STRING_STRUCT(34) dstr_2656__meltgc_sort_mult;
-  struct MELT_STRING_STRUCT(16) dstr_2657__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(16) dstr_2658__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2659__;
-  struct MELT_STRING_STRUCT(13) dstr_2660__MULTIPLE_SORT;
-  struct MELT_ROUTINE_STRUCT(7) drout_2661__COMPARE_NAMED_ALPHA;
-  struct MELT_CLOSURE_STRUCT(0) dclo_2662__COMPARE_NAMED_ALPHA;
-  struct meltint_st dint_2663__;
-  struct meltint_st dint_2664__;
-  struct meltint_st dint_2665__;
-  struct meltint_st dint_2666__;
-  struct meltint_st dint_2667__;
-  struct meltint_st dint_2668__;
-  struct MELT_OBJECT_STRUCT(9) dobj_2669__TUPLE_NTH;
-  struct MELT_STRING_STRUCT(9) dstr_2670__TUPLE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2671__MATCHEDRK;
-  struct MELT_STRING_STRUCT(9) dstr_2672__MATCHEDRK;
-  struct MELT_OBJECT_STRUCT(2) dobj_2673;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2674__TUPLE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2675__MATCHEDTUP;
-  struct MELT_STRING_STRUCT(10) dstr_2676__MATCHEDTUP;
-  struct MELT_OBJECT_STRUCT(2) dobj_2677;
-  struct MELT_OBJECT_STRUCT(3) dsym_2678__OUTCOMP;
-  struct MELT_STRING_STRUCT(7) dstr_2679__OUTCOMP;
-  struct MELT_OBJECT_STRUCT(2) dobj_2680;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2681__TUPLE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_2682__TUPNTH;
-  struct MELT_STRING_STRUCT(6) dstr_2683__TUPNTH;
-  struct MELT_STRING_STRUCT(2) dstr_2684__;
-  struct MELT_STRING_STRUCT(45) dstr_2685__melt_is_mu;
-  struct MELT_STRING_STRUCT(12) dstr_2686__1_int_;
-  struct MELT_STRING_STRUCT(3) dstr_2687__;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2688__TUPLE_NTH;
-  struct MELT_STRING_STRUCT(2) dstr_2689__;
-  struct MELT_STRING_STRUCT(5) dstr_2690__;
-  struct MELT_STRING_STRUCT(34) dstr_2691__melt_multiple;
-  struct MELT_STRING_STRUCT(8) dstr_2692__int_;
-  struct MELT_STRING_STRUCT(7) dstr_2693__;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_2694__TUPLE_NTH;
-  struct MELT_OBJECT_STRUCT(9) dobj_2695__CSTRING_SAME;
-  struct MELT_STRING_STRUCT(12) dstr_2696__CSTRING_SAME;
-  struct MELT_OBJECT_STRUCT(2) dobj_2697;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2698__CSTRING_SAME;
-  struct MELT_OBJECT_STRUCT(2) dobj_2699;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_2700__CSTRING_SAME;
-  struct MELT_OBJECT_STRUCT(3) dsym_2701__STRSAM;
-  struct MELT_STRING_STRUCT(6) dstr_2702__STRSAM;
-  struct MELT_STRING_STRUCT(2) dstr_2703__;
-  struct MELT_STRING_STRUCT(9) dstr_2704__test_;
-  struct MELT_STRING_STRUCT(4) dstr_2705__;
-  struct MELT_STRING_STRUCT(12) dstr_2706__strcmp_;
-  struct MELT_STRING_STRUCT(2) dstr_2707__;
-  struct MELT_STRING_STRUCT(3) dstr_2708__;
-  struct MELT_MULTIPLE_STRUCT(11) dtup_2709__CSTRING_SAME;
-  struct MELT_OBJECT_STRUCT(3) dsym_2710__CSTRING_LENGTH;
+  struct MELT_STRING_STRUCT(37) dstr_2576__meltgc_new_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2577__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(26) dstr_2578__me;
+  struct MELT_STRING_STRUCT(17) dstr_2579__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2580__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(24) dstr_2581__melt;
+  struct MELT_STRING_STRUCT(17) dstr_2582__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(17) dstr_2583__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_2584__;
+  struct MELT_STRING_STRUCT(11) dstr_2585__MAKE_TUPLE7;
+  struct MELT_OBJECT_STRUCT(3) dsym_2586__SUBSEQ_MULTIPLE;
+  struct MELT_STRING_STRUCT(15) dstr_2587__SUBSEQ_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2588__SUBSEQ_MULTIPLE;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2589__SUBSEQ_MULTIPLE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2590__SUBSEQ_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2591;
+  struct MELT_OBJECT_STRUCT(3) dsym_2592__STARTIX;
+  struct MELT_STRING_STRUCT(7) dstr_2593__STARTIX;
+  struct MELT_OBJECT_STRUCT(2) dobj_2594;
+  struct MELT_OBJECT_STRUCT(3) dsym_2595__ENDIX;
+  struct MELT_STRING_STRUCT(5) dstr_2596__ENDIX;
+  struct MELT_OBJECT_STRUCT(2) dobj_2597;
+  struct MELT_STRING_STRUCT(41) dstr_2598__meltgc_new_subs;
+  struct MELT_STRING_STRUCT(15) dstr_2599__int_;
+  struct MELT_STRING_STRUCT(9) dstr_2600__int_;
+  struct MELT_STRING_STRUCT(3) dstr_2601__;
+  struct MELT_STRING_STRUCT(15) dstr_2602__SUBSEQ_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2603__MULTIPLE_NTH;
+  struct MELT_STRING_STRUCT(12) dstr_2604__MULTIPLE_NTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_2605__MULTIPLE_NTH;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2606__MULTIPLE_NTH;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2607__MULTIPLE_NTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_2608;
+  struct MELT_OBJECT_STRUCT(2) dobj_2609;
+  struct MELT_STRING_STRUCT(32) dstr_2610__melt_multiple_n;
+  struct MELT_STRING_STRUCT(4) dstr_2611__;
+  struct MELT_STRING_STRUCT(3) dstr_2612__;
+  struct MELT_STRING_STRUCT(12) dstr_2613__MULTIPLE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2614__MULTIPLE_LENGTH;
+  struct MELT_STRING_STRUCT(15) dstr_2615__MULTIPLE_LENGTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_2616__MULTIPLE_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2617__MULTIPLE_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2618__MULTIPLE_LENGTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_2619;
+  struct MELT_STRING_STRUCT(35) dstr_2620__melt_multiple_l;
+  struct MELT_STRING_STRUCT(3) dstr_2621__;
+  struct MELT_STRING_STRUCT(15) dstr_2622__MULTIPLE_LENGTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2623__MULTIPLE_PUT_NTH;
+  struct MELT_STRING_STRUCT(16) dstr_2624__MULTIPLE_PUT_NTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_2625__MULTIPLE_PUT_NTH;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2626__MULTIPLE_PUT_NTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2627__MULTIPLE_PUT_NTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_2628;
+  struct MELT_OBJECT_STRUCT(2) dobj_2629;
+  struct MELT_OBJECT_STRUCT(2) dobj_2630;
+  struct MELT_STRING_STRUCT(37) dstr_2631__meltgc_multiple_;
+  struct MELT_STRING_STRUCT(4) dstr_2632__;
+  struct MELT_STRING_STRUCT(16) dstr_2633__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2634__;
+  struct MELT_STRING_STRUCT(16) dstr_2635__MULTIPLE_PUT_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2636__MULTIPLE_SORT;
+  struct MELT_STRING_STRUCT(13) dstr_2637__MULTIPLE_SORT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2638__MULTIPLE_SORT;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2639__MULTIPLE_SORT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2640__MULTIPLE_SORT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2641;
+  struct MELT_OBJECT_STRUCT(3) dsym_2642__CMP;
+  struct MELT_STRING_STRUCT(3) dstr_2643__CMP;
+  struct MELT_OBJECT_STRUCT(2) dobj_2644;
+  struct MELT_OBJECT_STRUCT(3) dsym_2645__DISCRM;
+  struct MELT_STRING_STRUCT(6) dstr_2646__DISCRM;
+  struct MELT_OBJECT_STRUCT(2) dobj_2647;
+  struct MELT_STRING_STRUCT(34) dstr_2648__meltgc_sort_mult;
+  struct MELT_STRING_STRUCT(16) dstr_2649__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(16) dstr_2650__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2651__;
+  struct MELT_STRING_STRUCT(13) dstr_2652__MULTIPLE_SORT;
+  struct MELT_ROUTINE_STRUCT(7) drout_2653__COMPARE_NAMED_ALPHA;
+  struct MELT_CLOSURE_STRUCT(0) dclo_2654__COMPARE_NAMED_ALPHA;
+  struct meltint_st dint_2655__;
+  struct meltint_st dint_2656__;
+  struct meltint_st dint_2657__;
+  struct meltint_st dint_2658__;
+  struct meltint_st dint_2659__;
+  struct meltint_st dint_2660__;
+  struct MELT_OBJECT_STRUCT(9) dobj_2661__TUPLE_NTH;
+  struct MELT_STRING_STRUCT(9) dstr_2662__TUPLE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2663__MATCHEDRK;
+  struct MELT_STRING_STRUCT(9) dstr_2664__MATCHEDRK;
+  struct MELT_OBJECT_STRUCT(2) dobj_2665;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2666__TUPLE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2667__MATCHEDTUP;
+  struct MELT_STRING_STRUCT(10) dstr_2668__MATCHEDTUP;
+  struct MELT_OBJECT_STRUCT(2) dobj_2669;
+  struct MELT_OBJECT_STRUCT(3) dsym_2670__OUTCOMP;
+  struct MELT_STRING_STRUCT(7) dstr_2671__OUTCOMP;
+  struct MELT_OBJECT_STRUCT(2) dobj_2672;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2673__TUPLE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_2674__TUPNTH;
+  struct MELT_STRING_STRUCT(6) dstr_2675__TUPNTH;
+  struct MELT_STRING_STRUCT(2) dstr_2676__;
+  struct MELT_STRING_STRUCT(45) dstr_2677__melt_is_mu;
+  struct MELT_STRING_STRUCT(12) dstr_2678__1_int_;
+  struct MELT_STRING_STRUCT(3) dstr_2679__;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2680__TUPLE_NTH;
+  struct MELT_STRING_STRUCT(2) dstr_2681__;
+  struct MELT_STRING_STRUCT(5) dstr_2682__;
+  struct MELT_STRING_STRUCT(34) dstr_2683__melt_multiple;
+  struct MELT_STRING_STRUCT(8) dstr_2684__int_;
+  struct MELT_STRING_STRUCT(7) dstr_2685__;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_2686__TUPLE_NTH;
+  struct MELT_OBJECT_STRUCT(9) dobj_2687__CSTRING_SAME;
+  struct MELT_STRING_STRUCT(12) dstr_2688__CSTRING_SAME;
+  struct MELT_OBJECT_STRUCT(2) dobj_2689;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2690__CSTRING_SAME;
+  struct MELT_OBJECT_STRUCT(2) dobj_2691;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_2692__CSTRING_SAME;
+  struct MELT_OBJECT_STRUCT(3) dsym_2693__STRSAM;
+  struct MELT_STRING_STRUCT(6) dstr_2694__STRSAM;
+  struct MELT_STRING_STRUCT(2) dstr_2695__;
+  struct MELT_STRING_STRUCT(9) dstr_2696__test_;
+  struct MELT_STRING_STRUCT(4) dstr_2697__;
+  struct MELT_STRING_STRUCT(12) dstr_2698__strcmp_;
+  struct MELT_STRING_STRUCT(2) dstr_2699__;
+  struct MELT_STRING_STRUCT(3) dstr_2700__;
+  struct MELT_MULTIPLE_STRUCT(11) dtup_2701__CSTRING_SAME;
+  struct MELT_OBJECT_STRUCT(3) dsym_2702__CSTRING_LENGTH;
+  struct MELT_STRING_STRUCT(14) dstr_2703__CSTRING_LENGTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_2704__CSTRING_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2705__CSTRING_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2706__CSTRING_LENGTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_2707;
+  struct MELT_STRING_STRUCT(2) dstr_2708__;
+  struct MELT_STRING_STRUCT(9) dstr_2709__strlen_;
+  struct MELT_STRING_STRUCT(4) dstr_2710__0_;
   struct MELT_STRING_STRUCT(14) dstr_2711__CSTRING_LENGTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_2712__CSTRING_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2713__CSTRING_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2714__CSTRING_LENGTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_2715;
-  struct MELT_STRING_STRUCT(2) dstr_2716__;
-  struct MELT_STRING_STRUCT(9) dstr_2717__strlen_;
-  struct MELT_STRING_STRUCT(4) dstr_2718__0_;
-  struct MELT_STRING_STRUCT(14) dstr_2719__CSTRING_LENGTH;
-  struct MELT_OBJECT_STRUCT(9) dobj_2720__TUPLE_SIZED;
-  struct MELT_STRING_STRUCT(11) dstr_2721__TUPLE_SIZED;
-  struct MELT_OBJECT_STRUCT(2) dobj_2722;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2723__TUPLE_SIZED;
-  struct MELT_OBJECT_STRUCT(3) dsym_2724__TUP;
-  struct MELT_STRING_STRUCT(3) dstr_2725__TUP;
-  struct MELT_OBJECT_STRUCT(2) dobj_2726;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_2727__TUPLE_SIZED;
-  struct MELT_OBJECT_STRUCT(3) dsym_2728__TUPSIZ;
-  struct MELT_STRING_STRUCT(6) dstr_2729__TUPSIZ;
-  struct MELT_STRING_STRUCT(41) dstr_2730__melt_is_multipl;
-  struct MELT_STRING_STRUCT(10) dstr_2731__int_;
-  struct MELT_STRING_STRUCT(3) dstr_2732__;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2733__TUPLE_SIZED;
-  struct MELT_OBJECT_STRUCT(3) dsym_2734__IS_MAPOBJECT;
-  struct MELT_STRING_STRUCT(12) dstr_2735__IS_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2736__IS_MAPOBJECT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2737__IS_MAPOBJECT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2738__IS_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2739__MAP;
-  struct MELT_STRING_STRUCT(3) dstr_2740__MAP;
-  struct MELT_OBJECT_STRUCT(2) dobj_2741;
-  struct MELT_STRING_STRUCT(31) dstr_2742__melt_magic_disc;
-  struct MELT_STRING_STRUCT(23) dstr_2743__OBMAG_MAPO;
-  struct MELT_STRING_STRUCT(12) dstr_2744__IS_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2745__MAPOBJECT_SIZE;
-  struct MELT_STRING_STRUCT(14) dstr_2746__MAPOBJECT_SIZE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2747__MAPOBJECT_SIZE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2748__MAPOBJECT_SIZE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2749__MAPOBJECT_SIZE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2750;
-  struct MELT_STRING_STRUCT(45) dstr_2751__melt_size_mapob;
-  struct MELT_STRING_STRUCT(3) dstr_2752__;
-  struct MELT_STRING_STRUCT(14) dstr_2753__MAPOBJECT_SIZE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2754__MAPOBJECT_COUNT;
-  struct MELT_STRING_STRUCT(15) dstr_2755__MAPOBJECT_COUNT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2756__MAPOBJECT_COUNT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2757__MAPOBJECT_COUNT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2758__MAPOBJECT_COUNT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2759;
-  struct MELT_STRING_STRUCT(46) dstr_2760__melt_count_mapo;
-  struct MELT_STRING_STRUCT(3) dstr_2761__;
-  struct MELT_STRING_STRUCT(15) dstr_2762__MAPOBJECT_COUNT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2763__MAPOBJECT_NTH_ATTR;
-  struct MELT_STRING_STRUCT(18) dstr_2764__MAPOBJECT_NTH_AT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2765__MAPOBJECT_NTH_ATTR;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2766__MAPOBJECT_NTH_ATTR;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2767__MAPOBJECT_NTH_ATTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2768;
-  struct MELT_OBJECT_STRUCT(2) dobj_2769;
-  struct MELT_STRING_STRUCT(48) dstr_2770__melt_nthattr_ma;
-  struct MELT_STRING_STRUCT(9) dstr_2771__int_;
-  struct MELT_STRING_STRUCT(3) dstr_2772__;
-  struct MELT_STRING_STRUCT(18) dstr_2773__MAPOBJECT_NTH_AT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2774__MAPOBJECT_NTH_VAL;
-  struct MELT_STRING_STRUCT(17) dstr_2775__MAPOBJECT_NTH_VA;
-  struct MELT_OBJECT_STRUCT(5) dobj_2776__MAPOBJECT_NTH_VAL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2777__MAPOBJECT_NTH_VAL;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2778__MAPOBJECT_NTH_VAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_2779;
-  struct MELT_OBJECT_STRUCT(2) dobj_2780;
-  struct MELT_STRING_STRUCT(47) dstr_2781__melt_nthval_map;
-  struct MELT_STRING_STRUCT(9) dstr_2782__int_;
-  struct MELT_STRING_STRUCT(3) dstr_2783__;
-  struct MELT_STRING_STRUCT(17) dstr_2784__MAPOBJECT_NTH_VA;
-  struct MELT_OBJECT_STRUCT(3) dsym_2785__MAPOBJECT_GET;
-  struct MELT_STRING_STRUCT(13) dstr_2786__MAPOBJECT_GET;
-  struct MELT_OBJECT_STRUCT(5) dobj_2787__MAPOBJECT_GET;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2788__MAPOBJECT_GET;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2789__MAPOBJECT_GET;
-  struct MELT_OBJECT_STRUCT(2) dobj_2790;
-  struct MELT_OBJECT_STRUCT(3) dsym_2791__ATTR;
-  struct MELT_STRING_STRUCT(4) dstr_2792__ATTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2793;
-  struct MELT_STRING_STRUCT(43) dstr_2794__melt_get_mapobje;
-  struct MELT_STRING_STRUCT(22) dstr_2795__meltobject_p;
-  struct MELT_STRING_STRUCT(2) dstr_2796__;
-  struct MELT_STRING_STRUCT(13) dstr_2797__MAPOBJECT_GET;
-  struct MELT_OBJECT_STRUCT(3) dsym_2798__MAKE_MAPOBJECT;
-  struct MELT_STRING_STRUCT(14) dstr_2799__MAKE_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2800__MAKE_MAPOBJECT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2801__MAKE_MAPOBJECT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2802__MAKE_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2803;
-  struct MELT_OBJECT_STRUCT(3) dsym_2804__LEN;
-  struct MELT_STRING_STRUCT(3) dstr_2805__LEN;
-  struct MELT_OBJECT_STRUCT(2) dobj_2806;
-  struct MELT_STRING_STRUCT(44) dstr_2807__meltgc_new_mapo;
-  struct MELT_STRING_STRUCT(4) dstr_2808__;
-  struct MELT_STRING_STRUCT(3) dstr_2809__;
-  struct MELT_STRING_STRUCT(14) dstr_2810__MAKE_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2811__MAPOBJECT_PUT;
-  struct MELT_STRING_STRUCT(13) dstr_2812__MAPOBJECT_PUT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2813__MAPOBJECT_PUT;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2814__MAPOBJECT_PUT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2815__MAPOBJECT_PUT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2816;
-  struct MELT_OBJECT_STRUCT(3) dsym_2817__KEY;
-  struct MELT_STRING_STRUCT(3) dstr_2818__KEY;
-  struct MELT_OBJECT_STRUCT(2) dobj_2819;
-  struct MELT_OBJECT_STRUCT(2) dobj_2820;
-  struct MELT_STRING_STRUCT(47) dstr_2821__meltgc_put_mapob;
-  struct MELT_STRING_STRUCT(30) dstr_2822__melto;
-  struct MELT_STRING_STRUCT(23) dstr_2823__melt_;
-  struct MELT_STRING_STRUCT(2) dstr_2824__;
-  struct MELT_STRING_STRUCT(13) dstr_2825__MAPOBJECT_PUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2826__MAPOBJECT_REMOVE;
-  struct MELT_STRING_STRUCT(16) dstr_2827__MAPOBJECT_REMOVE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2828__MAPOBJECT_REMOVE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2829__MAPOBJECT_REMOVE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2830__MAPOBJECT_REMOVE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2831;
-  struct MELT_OBJECT_STRUCT(2) dobj_2832;
-  struct MELT_STRING_STRUCT(50) dstr_2833__meltgc_remove_ma;
-  struct MELT_STRING_STRUCT(32) dstr_2834__me;
-  struct MELT_STRING_STRUCT(2) dstr_2835__;
-  struct MELT_STRING_STRUCT(16) dstr_2836__MAPOBJECT_REMOVE;
-  struct MELT_OBJECT_STRUCT(7) dobj_2837__FOREACH_IN_MAPOBJECT;
-  struct MELT_STRING_STRUCT(20) dstr_2838__FOREACH_IN_MAPOB;
-  struct MELT_OBJECT_STRUCT(3) dsym_2839__OBJMAP;
-  struct MELT_STRING_STRUCT(6) dstr_2840__OBJMAP;
-  struct MELT_OBJECT_STRUCT(2) dobj_2841;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2842__FOREACH_IN_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2843__EACHOBMAP;
-  struct MELT_STRING_STRUCT(9) dstr_2844__EACHOBMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_2845__CURAT;
-  struct MELT_STRING_STRUCT(5) dstr_2846__CURAT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2847;
-  struct MELT_OBJECT_STRUCT(3) dsym_2848__CURVA;
-  struct MELT_STRING_STRUCT(5) dstr_2849__CURVA;
-  struct MELT_OBJECT_STRUCT(2) dobj_2850;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2851__FOREACH_IN_MAPOBJECT;
-  struct MELT_STRING_STRUCT(3) dstr_2852__;
-  struct MELT_STRING_STRUCT(9) dstr_2853__int_;
-  struct MELT_STRING_STRUCT(7) dstr_2854__ix_0_;
-  struct MELT_STRING_STRUCT(15) dstr_2855__siz_0_for_;
-  struct MELT_STRING_STRUCT(31) dstr_2856__ix_0_;
-  struct MELT_STRING_STRUCT(65) dstr_2857__siz_the_size_at;
-  struct MELT_STRING_STRUCT(11) dstr_2858__ix_0_;
-  struct MELT_STRING_STRUCT(27) dstr_2859__siz_melt_size_;
-  struct MELT_STRING_STRUCT(15) dstr_2860__0_;
-  struct MELT_STRING_STRUCT(6) dstr_2861__ix_;
-  struct MELT_STRING_STRUCT(13) dstr_2862__siz_;
-  struct MELT_STRING_STRUCT(13) dstr_2863__ix_;
-  struct MELT_STRING_STRUCT(13) dstr_2864__NULL_;
-  struct MELT_STRING_STRUCT(13) dstr_2865__NULL_;
-  struct MELT_STRING_STRUCT(26) dstr_2866__meltmapobje;
-  struct MELT_STRING_STRUCT(9) dstr_2867__entab_;
-  struct MELT_STRING_STRUCT(19) dstr_2868__ix_e_at_i;
-  struct MELT_STRING_STRUCT(26) dstr_2869__HTAB_DELETED;
-  struct MELT_STRING_STRUCT(31) dstr_2870__NULL_continu;
-  struct MELT_STRING_STRUCT(16) dstr_2871__continue_;
-  struct MELT_STRING_STRUCT(26) dstr_2872__meltmapobje;
-  struct MELT_STRING_STRUCT(9) dstr_2873__entab_;
-  struct MELT_STRING_STRUCT(20) dstr_2874__ix_e_va_i;
-  struct MELT_STRING_STRUCT(13) dstr_2875__continue_;
-  struct MELT_MULTIPLE_STRUCT(47) dtup_2876__FOREACH_IN_MAPOBJECT;
-  struct MELT_STRING_STRUCT(8) dstr_2877__end_;
-  struct MELT_STRING_STRUCT(8) dstr_2878__;
-  struct MELT_STRING_STRUCT(15) dstr_2879__NULL_;
-  struct MELT_STRING_STRUCT(12) dstr_2880__NULL_;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2881__FOREACH_IN_MAPOBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2882__IS_MAPSTRING;
-  struct MELT_STRING_STRUCT(12) dstr_2883__IS_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_2884__IS_MAPSTRING;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2885__IS_MAPSTRING;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2886__IS_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2887;
-  struct MELT_STRING_STRUCT(31) dstr_2888__melt_magic_disc;
-  struct MELT_STRING_STRUCT(23) dstr_2889__OBMAG_MAPS;
-  struct MELT_STRING_STRUCT(12) dstr_2890__IS_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2891__MAPSTRING_SIZE;
-  struct MELT_STRING_STRUCT(14) dstr_2892__MAPSTRING_SIZE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2893__MAPSTRING_SIZE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2894__MAPSTRING_SIZE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2895__MAPSTRING_SIZE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2896;
-  struct MELT_STRING_STRUCT(50) dstr_2897__melt_size_mapst;
-  struct MELT_STRING_STRUCT(3) dstr_2898__;
-  struct MELT_STRING_STRUCT(14) dstr_2899__MAPSTRING_SIZE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2900__MAPSTRING_COUNT;
-  struct MELT_STRING_STRUCT(15) dstr_2901__MAPSTRING_COUNT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2902__MAPSTRING_COUNT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2903__MAPSTRING_COUNT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_2904__MAPSTRING_COUNT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2905;
-  struct MELT_STRING_STRUCT(51) dstr_2906__melt_count_maps;
-  struct MELT_STRING_STRUCT(3) dstr_2907__;
-  struct MELT_STRING_STRUCT(15) dstr_2908__MAPSTRING_COUNT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2909__MAPSTRING_RAWGET;
-  struct MELT_STRING_STRUCT(16) dstr_2910__MAPSTRING_RAWGET;
-  struct MELT_OBJECT_STRUCT(5) dobj_2911__MAPSTRING_RAWGET;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2912__MAPSTRING_RAWGET;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2913__MAPSTRING_RAWGET;
-  struct MELT_OBJECT_STRUCT(2) dobj_2914;
-  struct MELT_OBJECT_STRUCT(2) dobj_2915;
-  struct MELT_STRING_STRUCT(49) dstr_2916__melt_get_mapstr;
-  struct MELT_STRING_STRUCT(4) dstr_2917__;
-  struct MELT_STRING_STRUCT(3) dstr_2918__;
-  struct MELT_STRING_STRUCT(16) dstr_2919__MAPSTRING_RAWGET;
-  struct MELT_OBJECT_STRUCT(3) dsym_2920__MAKE_MAPSTRING;
-  struct MELT_STRING_STRUCT(14) dstr_2921__MAKE_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_2922__MAKE_MAPSTRING;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2923__MAKE_MAPSTRING;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2924__MAKE_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(2) dobj_2925;
-  struct MELT_OBJECT_STRUCT(2) dobj_2926;
-  struct MELT_STRING_STRUCT(44) dstr_2927__meltgc_new_maps;
-  struct MELT_STRING_STRUCT(4) dstr_2928__;
-  struct MELT_STRING_STRUCT(3) dstr_2929__;
-  struct MELT_STRING_STRUCT(14) dstr_2930__MAKE_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_2931__MAPSTRING_RAWPUT;
-  struct MELT_STRING_STRUCT(16) dstr_2932__MAPSTRING_RAWPUT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2933__MAPSTRING_RAWPUT;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2934__MAPSTRING_RAWPUT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2935__MAPSTRING_RAWPUT;
-  struct MELT_OBJECT_STRUCT(2) dobj_2936;
-  struct MELT_OBJECT_STRUCT(2) dobj_2937;
-  struct MELT_OBJECT_STRUCT(2) dobj_2938;
-  struct MELT_STRING_STRUCT(53) dstr_2939__meltgc_put_mapst;
-  struct MELT_STRING_STRUCT(4) dstr_2940__;
-  struct MELT_STRING_STRUCT(17) dstr_2941__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2942__;
-  struct MELT_STRING_STRUCT(16) dstr_2943__MAPSTRING_RAWPUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_2944__MAPSTRING_PUTSTR;
-  struct MELT_STRING_STRUCT(16) dstr_2945__MAPSTRING_PUTSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_2946__MAPSTRING_PUTSTR;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2947__MAPSTRING_PUTSTR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2948__MAPSTRING_PUTSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2949;
-  struct MELT_OBJECT_STRUCT(3) dsym_2950__KEYSTR;
-  struct MELT_STRING_STRUCT(6) dstr_2951__KEYSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2952;
-  struct MELT_OBJECT_STRUCT(2) dobj_2953;
-  struct MELT_STRING_STRUCT(52) dstr_2954__meltgc_put_mapst;
-  struct MELT_STRING_STRUCT(32) dstr_2955__melt_string_s;
-  struct MELT_STRING_STRUCT(17) dstr_2956__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_2957__;
-  struct MELT_STRING_STRUCT(16) dstr_2958__MAPSTRING_PUTSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_2959__MAPSTRING_GETSTR;
-  struct MELT_STRING_STRUCT(16) dstr_2960__MAPSTRING_GETSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_2961__MAPSTRING_GETSTR;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2962__MAPSTRING_GETSTR;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2963__MAPSTRING_GETSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2964;
-  struct MELT_OBJECT_STRUCT(2) dobj_2965;
-  struct MELT_STRING_STRUCT(49) dstr_2966__melt_get_mapstr;
-  struct MELT_STRING_STRUCT(32) dstr_2967__melt_string_s;
-  struct MELT_STRING_STRUCT(4) dstr_2968__;
-  struct MELT_STRING_STRUCT(16) dstr_2969__MAPSTRING_GETSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_2970__MAPSTRING_RAWREMOVE;
-  struct MELT_STRING_STRUCT(19) dstr_2971__MAPSTRING_RAWREM;
-  struct MELT_OBJECT_STRUCT(5) dobj_2972__MAPSTRING_RAWREMOVE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2973__MAPSTRING_RAWREMOVE;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2974__MAPSTRING_RAWREMOVE;
-  struct MELT_OBJECT_STRUCT(2) dobj_2975;
-  struct MELT_OBJECT_STRUCT(2) dobj_2976;
-  struct MELT_STRING_STRUCT(54) dstr_2977__meltgc_remove_ma;
-  struct MELT_STRING_STRUCT(4) dstr_2978__;
-  struct MELT_STRING_STRUCT(2) dstr_2979__;
-  struct MELT_STRING_STRUCT(19) dstr_2980__MAPSTRING_RAWREM;
-  struct MELT_OBJECT_STRUCT(3) dsym_2981__MAPSTRING_REMOVESTR;
-  struct MELT_STRING_STRUCT(19) dstr_2982__MAPSTRING_REMOVE;
-  struct MELT_OBJECT_STRUCT(5) dobj_2983__MAPSTRING_REMOVESTR;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_2984__MAPSTRING_REMOVESTR;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_2985__MAPSTRING_REMOVESTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2986;
-  struct MELT_OBJECT_STRUCT(2) dobj_2987;
-  struct MELT_STRING_STRUCT(54) dstr_2988__meltgc_remove_ma;
-  struct MELT_STRING_STRUCT(31) dstr_2989__melt_string_s;
-  struct MELT_STRING_STRUCT(2) dstr_2990__;
-  struct MELT_STRING_STRUCT(19) dstr_2991__MAPSTRING_REMOVE;
-  struct MELT_OBJECT_STRUCT(3) dsym_2992__MAPSTRING_NTH_ATTRSTR;
-  struct MELT_STRING_STRUCT(21) dstr_2993__MAPSTRING_NTH_AT;
-  struct MELT_OBJECT_STRUCT(5) dobj_2994__MAPSTRING_NTH_ATTRSTR;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_2995__MAPSTRING_NTH_ATTRSTR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_2996__MAPSTRING_NTH_ATTRSTR;
-  struct MELT_OBJECT_STRUCT(2) dobj_2997;
-  struct MELT_OBJECT_STRUCT(3) dsym_2998__SDICR;
-  struct MELT_STRING_STRUCT(5) dstr_2999__SDICR;
-  struct MELT_OBJECT_STRUCT(2) dobj_3000;
-  struct MELT_OBJECT_STRUCT(2) dobj_3001;
-  struct MELT_STRING_STRUCT(41) dstr_3002__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(65) dstr_3003__melt_n;
-  struct MELT_STRING_STRUCT(9) dstr_3004__int_;
-  struct MELT_STRING_STRUCT(4) dstr_3005__;
-  struct MELT_STRING_STRUCT(21) dstr_3006__MAPSTRING_NTH_AT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3007__MAPSTRING_NTH_VAL;
-  struct MELT_STRING_STRUCT(17) dstr_3008__MAPSTRING_NTH_VA;
-  struct MELT_OBJECT_STRUCT(5) dobj_3009__MAPSTRING_NTH_VAL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3010__MAPSTRING_NTH_VAL;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3011__MAPSTRING_NTH_VAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3012;
-  struct MELT_OBJECT_STRUCT(2) dobj_3013;
-  struct MELT_STRING_STRUCT(52) dstr_3014__melt_nthval_map;
-  struct MELT_STRING_STRUCT(9) dstr_3015__int_;
-  struct MELT_STRING_STRUCT(3) dstr_3016__;
-  struct MELT_STRING_STRUCT(17) dstr_3017__MAPSTRING_NTH_VA;
-  struct MELT_OBJECT_STRUCT(7) dobj_3018__FOREACH_IN_MAPSTRING;
-  struct MELT_STRING_STRUCT(20) dstr_3019__FOREACH_IN_MAPST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3020__STRMAP;
-  struct MELT_STRING_STRUCT(6) dstr_3021__STRMAP;
-  struct MELT_OBJECT_STRUCT(2) dobj_3022;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3023__FOREACH_IN_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_3024__EACHSTRMAP;
-  struct MELT_STRING_STRUCT(10) dstr_3025__EACHSTRMAP;
-  struct MELT_OBJECT_STRUCT(2) dobj_3026;
-  struct MELT_OBJECT_STRUCT(2) dobj_3027;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3028__FOREACH_IN_MAPSTRING;
-  struct MELT_STRING_STRUCT(3) dstr_3029__;
-  struct MELT_STRING_STRUCT(9) dstr_3030__int_;
-  struct MELT_STRING_STRUCT(7) dstr_3031__ix_0_;
-  struct MELT_STRING_STRUCT(15) dstr_3032__siz_0_for_;
-  struct MELT_STRING_STRUCT(31) dstr_3033__ix_0_;
-  struct MELT_STRING_STRUCT(65) dstr_3034__siz_the_size_at;
-  struct MELT_STRING_STRUCT(11) dstr_3035__ix_0_;
-  struct MELT_STRING_STRUCT(27) dstr_3036__siz_melt_size_;
-  struct MELT_STRING_STRUCT(15) dstr_3037__0_;
-  struct MELT_STRING_STRUCT(6) dstr_3038__ix_;
-  struct MELT_STRING_STRUCT(13) dstr_3039__siz_;
-  struct MELT_STRING_STRUCT(25) dstr_3040__ix_con;
-  struct MELT_STRING_STRUCT(29) dstr_3041__str_NULL_;
-  struct MELT_STRING_STRUCT(17) dstr_3042__nam_NULL_;
-  struct MELT_STRING_STRUCT(13) dstr_3043__NULL_;
-  struct MELT_STRING_STRUCT(13) dstr_3044__NULL_;
-  struct MELT_STRING_STRUCT(35) dstr_3045__str_struct_;
-  struct MELT_STRING_STRUCT(9) dstr_3046__entab_;
-  struct MELT_STRING_STRUCT(19) dstr_3047__ix_e_at_i;
-  struct MELT_STRING_STRUCT(30) dstr_3048__str_HTAB_DEL;
-  struct MELT_STRING_STRUCT(31) dstr_3049__NULL_continu;
-  struct MELT_STRING_STRUCT(20) dstr_3050__str_continue_;
-  struct MELT_STRING_STRUCT(31) dstr_3051__struct_melt;
-  struct MELT_STRING_STRUCT(9) dstr_3052__entab_;
-  struct MELT_STRING_STRUCT(20) dstr_3053__ix_e_va_i;
-  struct MELT_STRING_STRUCT(41) dstr_3054__continue_;
-  struct MELT_STRING_STRUCT(35) dstr_3055__MELT_PREDEF_C;
-  struct MELT_STRING_STRUCT(39) dstr_3056__melt_object_n;
-  struct MELT_STRING_STRUCT(34) dstr_3057__FNAMED_NAME_;
-  struct MELT_STRING_STRUCT(37) dstr_3058__nam_melt_stri;
-  struct MELT_STRING_STRUCT(28) dstr_3059__char_0_;
-  struct MELT_STRING_STRUCT(6) dstr_3060__nam_;
-  struct MELT_STRING_STRUCT(13) dstr_3061__str_;
-  struct MELT_STRING_STRUCT(3) dstr_3062__;
-  struct MELT_STRING_STRUCT(19) dstr_3063__else_;
+  struct MELT_OBJECT_STRUCT(9) dobj_2712__TUPLE_SIZED;
+  struct MELT_STRING_STRUCT(11) dstr_2713__TUPLE_SIZED;
+  struct MELT_OBJECT_STRUCT(2) dobj_2714;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2715__TUPLE_SIZED;
+  struct MELT_OBJECT_STRUCT(3) dsym_2716__TUP;
+  struct MELT_STRING_STRUCT(3) dstr_2717__TUP;
+  struct MELT_OBJECT_STRUCT(2) dobj_2718;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_2719__TUPLE_SIZED;
+  struct MELT_OBJECT_STRUCT(3) dsym_2720__TUPSIZ;
+  struct MELT_STRING_STRUCT(6) dstr_2721__TUPSIZ;
+  struct MELT_STRING_STRUCT(41) dstr_2722__melt_is_multipl;
+  struct MELT_STRING_STRUCT(10) dstr_2723__int_;
+  struct MELT_STRING_STRUCT(3) dstr_2724__;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2725__TUPLE_SIZED;
+  struct MELT_OBJECT_STRUCT(3) dsym_2726__IS_MAPOBJECT;
+  struct MELT_STRING_STRUCT(12) dstr_2727__IS_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2728__IS_MAPOBJECT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2729__IS_MAPOBJECT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2730__IS_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2731__MAP;
+  struct MELT_STRING_STRUCT(3) dstr_2732__MAP;
+  struct MELT_OBJECT_STRUCT(2) dobj_2733;
+  struct MELT_STRING_STRUCT(31) dstr_2734__melt_magic_disc;
+  struct MELT_STRING_STRUCT(23) dstr_2735__OBMAG_MAPO;
+  struct MELT_STRING_STRUCT(12) dstr_2736__IS_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2737__MAPOBJECT_SIZE;
+  struct MELT_STRING_STRUCT(14) dstr_2738__MAPOBJECT_SIZE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2739__MAPOBJECT_SIZE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2740__MAPOBJECT_SIZE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2741__MAPOBJECT_SIZE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2742;
+  struct MELT_STRING_STRUCT(45) dstr_2743__melt_size_mapob;
+  struct MELT_STRING_STRUCT(3) dstr_2744__;
+  struct MELT_STRING_STRUCT(14) dstr_2745__MAPOBJECT_SIZE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2746__MAPOBJECT_COUNT;
+  struct MELT_STRING_STRUCT(15) dstr_2747__MAPOBJECT_COUNT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2748__MAPOBJECT_COUNT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2749__MAPOBJECT_COUNT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2750__MAPOBJECT_COUNT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2751;
+  struct MELT_STRING_STRUCT(46) dstr_2752__melt_count_mapo;
+  struct MELT_STRING_STRUCT(3) dstr_2753__;
+  struct MELT_STRING_STRUCT(15) dstr_2754__MAPOBJECT_COUNT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2755__MAPOBJECT_NTH_ATTR;
+  struct MELT_STRING_STRUCT(18) dstr_2756__MAPOBJECT_NTH_AT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2757__MAPOBJECT_NTH_ATTR;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2758__MAPOBJECT_NTH_ATTR;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2759__MAPOBJECT_NTH_ATTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2760;
+  struct MELT_OBJECT_STRUCT(2) dobj_2761;
+  struct MELT_STRING_STRUCT(48) dstr_2762__melt_nthattr_ma;
+  struct MELT_STRING_STRUCT(9) dstr_2763__int_;
+  struct MELT_STRING_STRUCT(3) dstr_2764__;
+  struct MELT_STRING_STRUCT(18) dstr_2765__MAPOBJECT_NTH_AT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2766__MAPOBJECT_NTH_VAL;
+  struct MELT_STRING_STRUCT(17) dstr_2767__MAPOBJECT_NTH_VA;
+  struct MELT_OBJECT_STRUCT(5) dobj_2768__MAPOBJECT_NTH_VAL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2769__MAPOBJECT_NTH_VAL;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2770__MAPOBJECT_NTH_VAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_2771;
+  struct MELT_OBJECT_STRUCT(2) dobj_2772;
+  struct MELT_STRING_STRUCT(47) dstr_2773__melt_nthval_map;
+  struct MELT_STRING_STRUCT(9) dstr_2774__int_;
+  struct MELT_STRING_STRUCT(3) dstr_2775__;
+  struct MELT_STRING_STRUCT(17) dstr_2776__MAPOBJECT_NTH_VA;
+  struct MELT_OBJECT_STRUCT(3) dsym_2777__MAPOBJECT_GET;
+  struct MELT_STRING_STRUCT(13) dstr_2778__MAPOBJECT_GET;
+  struct MELT_OBJECT_STRUCT(5) dobj_2779__MAPOBJECT_GET;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2780__MAPOBJECT_GET;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2781__MAPOBJECT_GET;
+  struct MELT_OBJECT_STRUCT(2) dobj_2782;
+  struct MELT_OBJECT_STRUCT(3) dsym_2783__ATTR;
+  struct MELT_STRING_STRUCT(4) dstr_2784__ATTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2785;
+  struct MELT_STRING_STRUCT(43) dstr_2786__melt_get_mapobje;
+  struct MELT_STRING_STRUCT(22) dstr_2787__meltobject_p;
+  struct MELT_STRING_STRUCT(2) dstr_2788__;
+  struct MELT_STRING_STRUCT(13) dstr_2789__MAPOBJECT_GET;
+  struct MELT_OBJECT_STRUCT(3) dsym_2790__MAKE_MAPOBJECT;
+  struct MELT_STRING_STRUCT(14) dstr_2791__MAKE_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2792__MAKE_MAPOBJECT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2793__MAKE_MAPOBJECT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2794__MAKE_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2795;
+  struct MELT_OBJECT_STRUCT(3) dsym_2796__LEN;
+  struct MELT_STRING_STRUCT(3) dstr_2797__LEN;
+  struct MELT_OBJECT_STRUCT(2) dobj_2798;
+  struct MELT_STRING_STRUCT(44) dstr_2799__meltgc_new_mapo;
+  struct MELT_STRING_STRUCT(4) dstr_2800__;
+  struct MELT_STRING_STRUCT(3) dstr_2801__;
+  struct MELT_STRING_STRUCT(14) dstr_2802__MAKE_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2803__MAPOBJECT_PUT;
+  struct MELT_STRING_STRUCT(13) dstr_2804__MAPOBJECT_PUT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2805__MAPOBJECT_PUT;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2806__MAPOBJECT_PUT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2807__MAPOBJECT_PUT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2808;
+  struct MELT_OBJECT_STRUCT(3) dsym_2809__KEY;
+  struct MELT_STRING_STRUCT(3) dstr_2810__KEY;
+  struct MELT_OBJECT_STRUCT(2) dobj_2811;
+  struct MELT_OBJECT_STRUCT(2) dobj_2812;
+  struct MELT_STRING_STRUCT(47) dstr_2813__meltgc_put_mapob;
+  struct MELT_STRING_STRUCT(30) dstr_2814__melto;
+  struct MELT_STRING_STRUCT(23) dstr_2815__melt_;
+  struct MELT_STRING_STRUCT(2) dstr_2816__;
+  struct MELT_STRING_STRUCT(13) dstr_2817__MAPOBJECT_PUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2818__MAPOBJECT_REMOVE;
+  struct MELT_STRING_STRUCT(16) dstr_2819__MAPOBJECT_REMOVE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2820__MAPOBJECT_REMOVE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2821__MAPOBJECT_REMOVE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2822__MAPOBJECT_REMOVE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2823;
+  struct MELT_OBJECT_STRUCT(2) dobj_2824;
+  struct MELT_STRING_STRUCT(50) dstr_2825__meltgc_remove_ma;
+  struct MELT_STRING_STRUCT(32) dstr_2826__me;
+  struct MELT_STRING_STRUCT(2) dstr_2827__;
+  struct MELT_STRING_STRUCT(16) dstr_2828__MAPOBJECT_REMOVE;
+  struct MELT_OBJECT_STRUCT(7) dobj_2829__FOREACH_IN_MAPOBJECT;
+  struct MELT_STRING_STRUCT(20) dstr_2830__FOREACH_IN_MAPOB;
+  struct MELT_OBJECT_STRUCT(3) dsym_2831__OBJMAP;
+  struct MELT_STRING_STRUCT(6) dstr_2832__OBJMAP;
+  struct MELT_OBJECT_STRUCT(2) dobj_2833;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2834__FOREACH_IN_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2835__EACHOBMAP;
+  struct MELT_STRING_STRUCT(9) dstr_2836__EACHOBMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_2837__CURAT;
+  struct MELT_STRING_STRUCT(5) dstr_2838__CURAT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2839;
+  struct MELT_OBJECT_STRUCT(3) dsym_2840__CURVA;
+  struct MELT_STRING_STRUCT(5) dstr_2841__CURVA;
+  struct MELT_OBJECT_STRUCT(2) dobj_2842;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2843__FOREACH_IN_MAPOBJECT;
+  struct MELT_STRING_STRUCT(3) dstr_2844__;
+  struct MELT_STRING_STRUCT(9) dstr_2845__int_;
+  struct MELT_STRING_STRUCT(7) dstr_2846__ix_0_;
+  struct MELT_STRING_STRUCT(15) dstr_2847__siz_0_for_;
+  struct MELT_STRING_STRUCT(31) dstr_2848__ix_0_;
+  struct MELT_STRING_STRUCT(65) dstr_2849__siz_the_size_at;
+  struct MELT_STRING_STRUCT(11) dstr_2850__ix_0_;
+  struct MELT_STRING_STRUCT(27) dstr_2851__siz_melt_size_;
+  struct MELT_STRING_STRUCT(15) dstr_2852__0_;
+  struct MELT_STRING_STRUCT(6) dstr_2853__ix_;
+  struct MELT_STRING_STRUCT(13) dstr_2854__siz_;
+  struct MELT_STRING_STRUCT(13) dstr_2855__ix_;
+  struct MELT_STRING_STRUCT(13) dstr_2856__NULL_;
+  struct MELT_STRING_STRUCT(13) dstr_2857__NULL_;
+  struct MELT_STRING_STRUCT(26) dstr_2858__meltmapobje;
+  struct MELT_STRING_STRUCT(9) dstr_2859__entab_;
+  struct MELT_STRING_STRUCT(19) dstr_2860__ix_e_at_i;
+  struct MELT_STRING_STRUCT(26) dstr_2861__HTAB_DELETED;
+  struct MELT_STRING_STRUCT(31) dstr_2862__NULL_continu;
+  struct MELT_STRING_STRUCT(16) dstr_2863__continue_;
+  struct MELT_STRING_STRUCT(26) dstr_2864__meltmapobje;
+  struct MELT_STRING_STRUCT(9) dstr_2865__entab_;
+  struct MELT_STRING_STRUCT(20) dstr_2866__ix_e_va_i;
+  struct MELT_STRING_STRUCT(13) dstr_2867__continue_;
+  struct MELT_MULTIPLE_STRUCT(47) dtup_2868__FOREACH_IN_MAPOBJECT;
+  struct MELT_STRING_STRUCT(8) dstr_2869__end_;
+  struct MELT_STRING_STRUCT(8) dstr_2870__;
+  struct MELT_STRING_STRUCT(15) dstr_2871__NULL_;
+  struct MELT_STRING_STRUCT(12) dstr_2872__NULL_;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2873__FOREACH_IN_MAPOBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2874__IS_MAPSTRING;
+  struct MELT_STRING_STRUCT(12) dstr_2875__IS_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_2876__IS_MAPSTRING;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2877__IS_MAPSTRING;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2878__IS_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_2879;
+  struct MELT_STRING_STRUCT(31) dstr_2880__melt_magic_disc;
+  struct MELT_STRING_STRUCT(23) dstr_2881__OBMAG_MAPS;
+  struct MELT_STRING_STRUCT(12) dstr_2882__IS_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_2883__MAPSTRING_SIZE;
+  struct MELT_STRING_STRUCT(14) dstr_2884__MAPSTRING_SIZE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2885__MAPSTRING_SIZE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2886__MAPSTRING_SIZE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2887__MAPSTRING_SIZE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2888;
+  struct MELT_STRING_STRUCT(50) dstr_2889__melt_size_mapst;
+  struct MELT_STRING_STRUCT(3) dstr_2890__;
+  struct MELT_STRING_STRUCT(14) dstr_2891__MAPSTRING_SIZE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2892__MAPSTRING_COUNT;
+  struct MELT_STRING_STRUCT(15) dstr_2893__MAPSTRING_COUNT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2894__MAPSTRING_COUNT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2895__MAPSTRING_COUNT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_2896__MAPSTRING_COUNT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2897;
+  struct MELT_STRING_STRUCT(51) dstr_2898__melt_count_maps;
+  struct MELT_STRING_STRUCT(3) dstr_2899__;
+  struct MELT_STRING_STRUCT(15) dstr_2900__MAPSTRING_COUNT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2901__MAPSTRING_RAWGET;
+  struct MELT_STRING_STRUCT(16) dstr_2902__MAPSTRING_RAWGET;
+  struct MELT_OBJECT_STRUCT(5) dobj_2903__MAPSTRING_RAWGET;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2904__MAPSTRING_RAWGET;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2905__MAPSTRING_RAWGET;
+  struct MELT_OBJECT_STRUCT(2) dobj_2906;
+  struct MELT_OBJECT_STRUCT(2) dobj_2907;
+  struct MELT_STRING_STRUCT(49) dstr_2908__melt_get_mapstr;
+  struct MELT_STRING_STRUCT(4) dstr_2909__;
+  struct MELT_STRING_STRUCT(3) dstr_2910__;
+  struct MELT_STRING_STRUCT(16) dstr_2911__MAPSTRING_RAWGET;
+  struct MELT_OBJECT_STRUCT(3) dsym_2912__MAKE_MAPSTRING;
+  struct MELT_STRING_STRUCT(14) dstr_2913__MAKE_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_2914__MAKE_MAPSTRING;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2915__MAKE_MAPSTRING;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2916__MAKE_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(2) dobj_2917;
+  struct MELT_OBJECT_STRUCT(2) dobj_2918;
+  struct MELT_STRING_STRUCT(44) dstr_2919__meltgc_new_maps;
+  struct MELT_STRING_STRUCT(4) dstr_2920__;
+  struct MELT_STRING_STRUCT(3) dstr_2921__;
+  struct MELT_STRING_STRUCT(14) dstr_2922__MAKE_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_2923__MAPSTRING_RAWPUT;
+  struct MELT_STRING_STRUCT(16) dstr_2924__MAPSTRING_RAWPUT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2925__MAPSTRING_RAWPUT;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2926__MAPSTRING_RAWPUT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2927__MAPSTRING_RAWPUT;
+  struct MELT_OBJECT_STRUCT(2) dobj_2928;
+  struct MELT_OBJECT_STRUCT(2) dobj_2929;
+  struct MELT_OBJECT_STRUCT(2) dobj_2930;
+  struct MELT_STRING_STRUCT(53) dstr_2931__meltgc_put_mapst;
+  struct MELT_STRING_STRUCT(4) dstr_2932__;
+  struct MELT_STRING_STRUCT(17) dstr_2933__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2934__;
+  struct MELT_STRING_STRUCT(16) dstr_2935__MAPSTRING_RAWPUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2936__MAPSTRING_PUTSTR;
+  struct MELT_STRING_STRUCT(16) dstr_2937__MAPSTRING_PUTSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_2938__MAPSTRING_PUTSTR;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2939__MAPSTRING_PUTSTR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2940__MAPSTRING_PUTSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2941;
+  struct MELT_OBJECT_STRUCT(3) dsym_2942__KEYSTR;
+  struct MELT_STRING_STRUCT(6) dstr_2943__KEYSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2944;
+  struct MELT_OBJECT_STRUCT(2) dobj_2945;
+  struct MELT_STRING_STRUCT(52) dstr_2946__meltgc_put_mapst;
+  struct MELT_STRING_STRUCT(32) dstr_2947__melt_string_s;
+  struct MELT_STRING_STRUCT(17) dstr_2948__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_2949__;
+  struct MELT_STRING_STRUCT(16) dstr_2950__MAPSTRING_PUTSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_2951__MAPSTRING_GETSTR;
+  struct MELT_STRING_STRUCT(16) dstr_2952__MAPSTRING_GETSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_2953__MAPSTRING_GETSTR;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2954__MAPSTRING_GETSTR;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2955__MAPSTRING_GETSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2956;
+  struct MELT_OBJECT_STRUCT(2) dobj_2957;
+  struct MELT_STRING_STRUCT(49) dstr_2958__melt_get_mapstr;
+  struct MELT_STRING_STRUCT(32) dstr_2959__melt_string_s;
+  struct MELT_STRING_STRUCT(4) dstr_2960__;
+  struct MELT_STRING_STRUCT(16) dstr_2961__MAPSTRING_GETSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_2962__MAPSTRING_RAWREMOVE;
+  struct MELT_STRING_STRUCT(19) dstr_2963__MAPSTRING_RAWREM;
+  struct MELT_OBJECT_STRUCT(5) dobj_2964__MAPSTRING_RAWREMOVE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2965__MAPSTRING_RAWREMOVE;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2966__MAPSTRING_RAWREMOVE;
+  struct MELT_OBJECT_STRUCT(2) dobj_2967;
+  struct MELT_OBJECT_STRUCT(2) dobj_2968;
+  struct MELT_STRING_STRUCT(54) dstr_2969__meltgc_remove_ma;
+  struct MELT_STRING_STRUCT(4) dstr_2970__;
+  struct MELT_STRING_STRUCT(2) dstr_2971__;
+  struct MELT_STRING_STRUCT(19) dstr_2972__MAPSTRING_RAWREM;
+  struct MELT_OBJECT_STRUCT(3) dsym_2973__MAPSTRING_REMOVESTR;
+  struct MELT_STRING_STRUCT(19) dstr_2974__MAPSTRING_REMOVE;
+  struct MELT_OBJECT_STRUCT(5) dobj_2975__MAPSTRING_REMOVESTR;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_2976__MAPSTRING_REMOVESTR;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_2977__MAPSTRING_REMOVESTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2978;
+  struct MELT_OBJECT_STRUCT(2) dobj_2979;
+  struct MELT_STRING_STRUCT(54) dstr_2980__meltgc_remove_ma;
+  struct MELT_STRING_STRUCT(31) dstr_2981__melt_string_s;
+  struct MELT_STRING_STRUCT(2) dstr_2982__;
+  struct MELT_STRING_STRUCT(19) dstr_2983__MAPSTRING_REMOVE;
+  struct MELT_OBJECT_STRUCT(3) dsym_2984__MAPSTRING_NTH_ATTRSTR;
+  struct MELT_STRING_STRUCT(21) dstr_2985__MAPSTRING_NTH_AT;
+  struct MELT_OBJECT_STRUCT(5) dobj_2986__MAPSTRING_NTH_ATTRSTR;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_2987__MAPSTRING_NTH_ATTRSTR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_2988__MAPSTRING_NTH_ATTRSTR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2989;
+  struct MELT_OBJECT_STRUCT(3) dsym_2990__SDICR;
+  struct MELT_STRING_STRUCT(5) dstr_2991__SDICR;
+  struct MELT_OBJECT_STRUCT(2) dobj_2992;
+  struct MELT_OBJECT_STRUCT(2) dobj_2993;
+  struct MELT_STRING_STRUCT(41) dstr_2994__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(65) dstr_2995__melt_n;
+  struct MELT_STRING_STRUCT(9) dstr_2996__int_;
+  struct MELT_STRING_STRUCT(4) dstr_2997__;
+  struct MELT_STRING_STRUCT(21) dstr_2998__MAPSTRING_NTH_AT;
+  struct MELT_OBJECT_STRUCT(3) dsym_2999__MAPSTRING_NTH_VAL;
+  struct MELT_STRING_STRUCT(17) dstr_3000__MAPSTRING_NTH_VA;
+  struct MELT_OBJECT_STRUCT(5) dobj_3001__MAPSTRING_NTH_VAL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3002__MAPSTRING_NTH_VAL;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3003__MAPSTRING_NTH_VAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3004;
+  struct MELT_OBJECT_STRUCT(2) dobj_3005;
+  struct MELT_STRING_STRUCT(52) dstr_3006__melt_nthval_map;
+  struct MELT_STRING_STRUCT(9) dstr_3007__int_;
+  struct MELT_STRING_STRUCT(3) dstr_3008__;
+  struct MELT_STRING_STRUCT(17) dstr_3009__MAPSTRING_NTH_VA;
+  struct MELT_OBJECT_STRUCT(7) dobj_3010__FOREACH_IN_MAPSTRING;
+  struct MELT_STRING_STRUCT(20) dstr_3011__FOREACH_IN_MAPST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3012__STRMAP;
+  struct MELT_STRING_STRUCT(6) dstr_3013__STRMAP;
+  struct MELT_OBJECT_STRUCT(2) dobj_3014;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3015__FOREACH_IN_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_3016__EACHSTRMAP;
+  struct MELT_STRING_STRUCT(10) dstr_3017__EACHSTRMAP;
+  struct MELT_OBJECT_STRUCT(2) dobj_3018;
+  struct MELT_OBJECT_STRUCT(2) dobj_3019;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3020__FOREACH_IN_MAPSTRING;
+  struct MELT_STRING_STRUCT(3) dstr_3021__;
+  struct MELT_STRING_STRUCT(9) dstr_3022__int_;
+  struct MELT_STRING_STRUCT(7) dstr_3023__ix_0_;
+  struct MELT_STRING_STRUCT(15) dstr_3024__siz_0_for_;
+  struct MELT_STRING_STRUCT(31) dstr_3025__ix_0_;
+  struct MELT_STRING_STRUCT(65) dstr_3026__siz_the_size_at;
+  struct MELT_STRING_STRUCT(11) dstr_3027__ix_0_;
+  struct MELT_STRING_STRUCT(27) dstr_3028__siz_melt_size_;
+  struct MELT_STRING_STRUCT(15) dstr_3029__0_;
+  struct MELT_STRING_STRUCT(6) dstr_3030__ix_;
+  struct MELT_STRING_STRUCT(13) dstr_3031__siz_;
+  struct MELT_STRING_STRUCT(25) dstr_3032__ix_con;
+  struct MELT_STRING_STRUCT(29) dstr_3033__str_NULL_;
+  struct MELT_STRING_STRUCT(17) dstr_3034__nam_NULL_;
+  struct MELT_STRING_STRUCT(13) dstr_3035__NULL_;
+  struct MELT_STRING_STRUCT(13) dstr_3036__NULL_;
+  struct MELT_STRING_STRUCT(35) dstr_3037__str_struct_;
+  struct MELT_STRING_STRUCT(9) dstr_3038__entab_;
+  struct MELT_STRING_STRUCT(19) dstr_3039__ix_e_at_i;
+  struct MELT_STRING_STRUCT(30) dstr_3040__str_HTAB_DEL;
+  struct MELT_STRING_STRUCT(31) dstr_3041__NULL_continu;
+  struct MELT_STRING_STRUCT(20) dstr_3042__str_continue_;
+  struct MELT_STRING_STRUCT(31) dstr_3043__struct_melt;
+  struct MELT_STRING_STRUCT(9) dstr_3044__entab_;
+  struct MELT_STRING_STRUCT(20) dstr_3045__ix_e_va_i;
+  struct MELT_STRING_STRUCT(41) dstr_3046__continue_;
+  struct MELT_STRING_STRUCT(35) dstr_3047__MELT_PREDEF_C;
+  struct MELT_STRING_STRUCT(39) dstr_3048__melt_object_n;
+  struct MELT_STRING_STRUCT(34) dstr_3049__FNAMED_NAME_;
+  struct MELT_STRING_STRUCT(37) dstr_3050__nam_melt_stri;
+  struct MELT_STRING_STRUCT(28) dstr_3051__char_0_;
+  struct MELT_STRING_STRUCT(6) dstr_3052__nam_;
+  struct MELT_STRING_STRUCT(13) dstr_3053__str_;
+  struct MELT_STRING_STRUCT(3) dstr_3054__;
+  struct MELT_STRING_STRUCT(19) dstr_3055__else_;
+  struct MELT_STRING_STRUCT(15) dstr_3056__NULL_;
+  struct MELT_STRING_STRUCT(72) dstr_3057__meltgc_new_s;
+  struct MELT_STRING_STRUCT(17) dstr_3058__str_;
+  struct MELT_STRING_STRUCT(27) dstr_3059__str_const_ch;
+  struct MELT_STRING_STRUCT(23) dstr_3060__nam_const_ch;
+  struct MELT_MULTIPLE_STRUCT(79) dtup_3061__FOREACH_IN_MAPSTRING;
+  struct MELT_STRING_STRUCT(8) dstr_3062__end_;
+  struct MELT_STRING_STRUCT(8) dstr_3063__;
   struct MELT_STRING_STRUCT(15) dstr_3064__NULL_;
-  struct MELT_STRING_STRUCT(72) dstr_3065__meltgc_new_s;
-  struct MELT_STRING_STRUCT(17) dstr_3066__str_;
-  struct MELT_STRING_STRUCT(27) dstr_3067__str_const_ch;
-  struct MELT_STRING_STRUCT(23) dstr_3068__nam_const_ch;
-  struct MELT_MULTIPLE_STRUCT(79) dtup_3069__FOREACH_IN_MAPSTRING;
-  struct MELT_STRING_STRUCT(8) dstr_3070__end_;
-  struct MELT_STRING_STRUCT(8) dstr_3071__;
-  struct MELT_STRING_STRUCT(15) dstr_3072__NULL_;
-  struct MELT_STRING_STRUCT(12) dstr_3073__NULL_;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3074__FOREACH_IN_MAPSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_3075__IS_ROUTINE;
-  struct MELT_STRING_STRUCT(10) dstr_3076__IS_ROUTINE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3077__IS_ROUTINE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3078__IS_ROUTINE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3079__IS_ROUTINE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3080__ROU;
-  struct MELT_STRING_STRUCT(3) dstr_3081__ROU;
-  struct MELT_OBJECT_STRUCT(2) dobj_3082;
-  struct MELT_STRING_STRUCT(31) dstr_3083__melt_magic_disc;
-  struct MELT_STRING_STRUCT(20) dstr_3084__OBMAG_ROUT;
-  struct MELT_STRING_STRUCT(10) dstr_3085__IS_ROUTINE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3086__ROUTINE_DESCR;
-  struct MELT_STRING_STRUCT(13) dstr_3087__ROUTINE_DESCR;
-  struct MELT_OBJECT_STRUCT(5) dobj_3088__ROUTINE_DESCR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3089__ROUTINE_DESCR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3090__ROUTINE_DESCR;
-  struct MELT_OBJECT_STRUCT(2) dobj_3091;
-  struct MELT_STRING_STRUCT(57) dstr_3092__meltgc_new_stri;
-  struct MELT_STRING_STRUCT(4) dstr_3093__;
-  struct MELT_STRING_STRUCT(13) dstr_3094__ROUTINE_DESCR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3095__ROUTINE_SIZE;
-  struct MELT_STRING_STRUCT(12) dstr_3096__ROUTINE_SIZE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3097__ROUTINE_SIZE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3098__ROUTINE_SIZE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3099__ROUTINE_SIZE;
-  struct MELT_OBJECT_STRUCT(2) dobj_3100;
-  struct MELT_STRING_STRUCT(32) dstr_3101__melt_routine_si;
-  struct MELT_STRING_STRUCT(3) dstr_3102__;
-  struct MELT_STRING_STRUCT(12) dstr_3103__ROUTINE_SIZE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3104__ROUTINE_NTH;
-  struct MELT_STRING_STRUCT(11) dstr_3105__ROUTINE_NTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_3106__ROUTINE_NTH;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3107__ROUTINE_NTH;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3108__ROUTINE_NTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_3109;
-  struct MELT_OBJECT_STRUCT(2) dobj_3110;
-  struct MELT_STRING_STRUCT(31) dstr_3111__melt_routine_nt;
-  struct MELT_STRING_STRUCT(10) dstr_3112__int_;
-  struct MELT_STRING_STRUCT(3) dstr_3113__;
-  struct MELT_STRING_STRUCT(11) dstr_3114__ROUTINE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_3115__IS_CLOSURE;
-  struct MELT_STRING_STRUCT(10) dstr_3116__IS_CLOSURE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3117__IS_CLOSURE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3118__IS_CLOSURE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3119__IS_CLOSURE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3120__CLO;
-  struct MELT_STRING_STRUCT(3) dstr_3121__CLO;
-  struct MELT_OBJECT_STRUCT(2) dobj_3122;
-  struct MELT_STRING_STRUCT(31) dstr_3123__melt_magic_disc;
-  struct MELT_STRING_STRUCT(20) dstr_3124__OBMAG_CLOS;
-  struct MELT_STRING_STRUCT(10) dstr_3125__IS_CLOSURE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3126__CLOSURE_SIZE;
-  struct MELT_STRING_STRUCT(12) dstr_3127__CLOSURE_SIZE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3128__CLOSURE_SIZE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3129__CLOSURE_SIZE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3130__CLOSURE_SIZE;
-  struct MELT_OBJECT_STRUCT(2) dobj_3131;
-  struct MELT_STRING_STRUCT(32) dstr_3132__melt_closure_si;
-  struct MELT_STRING_STRUCT(3) dstr_3133__;
-  struct MELT_STRING_STRUCT(12) dstr_3134__CLOSURE_SIZE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3135__CLOSURE_ROUTINE;
-  struct MELT_STRING_STRUCT(15) dstr_3136__CLOSURE_ROUTINE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3137__CLOSURE_ROUTINE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3138__CLOSURE_ROUTINE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3139__CLOSURE_ROUTINE;
-  struct MELT_OBJECT_STRUCT(2) dobj_3140;
-  struct MELT_STRING_STRUCT(35) dstr_3141__melt_closure_ro;
-  struct MELT_STRING_STRUCT(3) dstr_3142__;
-  struct MELT_STRING_STRUCT(15) dstr_3143__CLOSURE_ROUTINE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3144__CLOSURE_NTH;
-  struct MELT_STRING_STRUCT(11) dstr_3145__CLOSURE_NTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_3146__CLOSURE_NTH;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3147__CLOSURE_NTH;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3148__CLOSURE_NTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_3149;
-  struct MELT_OBJECT_STRUCT(2) dobj_3150;
-  struct MELT_STRING_STRUCT(31) dstr_3151__melt_closure_nt;
-  struct MELT_STRING_STRUCT(9) dstr_3152__int_;
-  struct MELT_STRING_STRUCT(3) dstr_3153__;
-  struct MELT_STRING_STRUCT(11) dstr_3154__CLOSURE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_3155__IS_INTEGERBOX;
-  struct MELT_STRING_STRUCT(13) dstr_3156__IS_INTEGERBOX;
-  struct MELT_OBJECT_STRUCT(5) dobj_3157__IS_INTEGERBOX;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3158__IS_INTEGERBOX;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3159__IS_INTEGERBOX;
-  struct MELT_OBJECT_STRUCT(3) dsym_3160__IB;
-  struct MELT_STRING_STRUCT(2) dstr_3161__IB;
-  struct MELT_OBJECT_STRUCT(2) dobj_3162;
-  struct MELT_STRING_STRUCT(31) dstr_3163__melt_magic_disc;
-  struct MELT_STRING_STRUCT(16) dstr_3164__OBMAG_INT_;
-  struct MELT_STRING_STRUCT(13) dstr_3165__IS_INTEGERBOX;
-  struct MELT_OBJECT_STRUCT(3) dsym_3166__MAKE_INTEGERBOX;
-  struct MELT_STRING_STRUCT(15) dstr_3167__MAKE_INTEGERBOX;
-  struct MELT_OBJECT_STRUCT(5) dobj_3168__MAKE_INTEGERBOX;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3169__MAKE_INTEGERBOX;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3170__MAKE_INTEGERBOX;
-  struct MELT_OBJECT_STRUCT(2) dobj_3171;
-  struct MELT_OBJECT_STRUCT(2) dobj_3172;
-  struct MELT_STRING_STRUCT(35) dstr_3173__meltgc_new_int_;
-  struct MELT_STRING_STRUCT(4) dstr_3174__;
-  struct MELT_STRING_STRUCT(3) dstr_3175__;
-  struct MELT_STRING_STRUCT(15) dstr_3176__MAKE_INTEGERBOX;
-  struct MELT_OBJECT_STRUCT(9) dobj_3177__INTEGERBOX_OF;
-  struct MELT_STRING_STRUCT(13) dstr_3178__INTEGERBOX_OF;
-  struct MELT_MULTIPLE_STRUCT(0) dtup_3179__INTEGERBOX_OF;
-  struct MELT_OBJECT_STRUCT(3) dsym_3180__BX;
-  struct MELT_STRING_STRUCT(2) dstr_3181__BX;
-  struct MELT_OBJECT_STRUCT(2) dobj_3182;
-  struct MELT_OBJECT_STRUCT(3) dsym_3183__ICT;
-  struct MELT_STRING_STRUCT(3) dstr_3184__ICT;
-  struct MELT_OBJECT_STRUCT(2) dobj_3185;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3186__INTEGERBOX_OF;
-  struct MELT_OBJECT_STRUCT(3) dsym_3187__IBOXOF;
-  struct MELT_STRING_STRUCT(6) dstr_3188__IBOXOF;
-  struct MELT_STRING_STRUCT(4) dstr_3189__;
-  struct MELT_STRING_STRUCT(5) dstr_3190__;
-  struct MELT_STRING_STRUCT(21) dstr_3191__melt_magic_d;
-  struct MELT_STRING_STRUCT(15) dstr_3192__OBMAG_INT_;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3193__INTEGERBOX_OF;
-  struct MELT_STRING_STRUCT(4) dstr_3194__;
-  struct MELT_STRING_STRUCT(5) dstr_3195__;
-  struct MELT_STRING_STRUCT(24) dstr_3196__struct_melt;
-  struct MELT_STRING_STRUCT(8) dstr_3197__val_;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3198__INTEGERBOX_OF;
-  struct MELT_OBJECT_STRUCT(3) dsym_3199__IS_BOX;
-  struct MELT_STRING_STRUCT(6) dstr_3200__IS_BOX;
-  struct MELT_OBJECT_STRUCT(5) dobj_3201__IS_BOX;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3202__IS_BOX;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3203__IS_BOX;
-  struct MELT_OBJECT_STRUCT(3) dsym_3204__BOX;
-  struct MELT_STRING_STRUCT(3) dstr_3205__BOX;
-  struct MELT_OBJECT_STRUCT(2) dobj_3206;
-  struct MELT_STRING_STRUCT(31) dstr_3207__melt_magic_disc;
-  struct MELT_STRING_STRUCT(16) dstr_3208__OBMAG_BOX_;
-  struct MELT_STRING_STRUCT(6) dstr_3209__IS_BOX;
-  struct MELT_OBJECT_STRUCT(3) dsym_3210__BOX_CONTENT;
-  struct MELT_STRING_STRUCT(11) dstr_3211__BOX_CONTENT;
-  struct MELT_OBJECT_STRUCT(5) dobj_3212__BOX_CONTENT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3213__BOX_CONTENT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3214__BOX_CONTENT;
-  struct MELT_OBJECT_STRUCT(2) dobj_3215;
-  struct MELT_STRING_STRUCT(33) dstr_3216__melt_box_content;
-  struct MELT_STRING_STRUCT(2) dstr_3217__;
-  struct MELT_STRING_STRUCT(11) dstr_3218__BOX_CONTENT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3219__BOX_PUT;
-  struct MELT_STRING_STRUCT(7) dstr_3220__BOX_PUT;
-  struct MELT_OBJECT_STRUCT(5) dobj_3221__BOX_PUT;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3222__BOX_PUT;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3223__BOX_PUT;
-  struct MELT_OBJECT_STRUCT(2) dobj_3224;
-  struct MELT_OBJECT_STRUCT(2) dobj_3225;
-  struct MELT_STRING_STRUCT(28) dstr_3226__meltgc_box_put_;
-  struct MELT_STRING_STRUCT(16) dstr_3227__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3228__;
-  struct MELT_STRING_STRUCT(7) dstr_3229__BOX_PUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3230__MAKE_BOX;
-  struct MELT_STRING_STRUCT(8) dstr_3231__MAKE_BOX;
-  struct MELT_OBJECT_STRUCT(5) dobj_3232__MAKE_BOX;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3233__MAKE_BOX;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3234__MAKE_BOX;
-  struct MELT_OBJECT_STRUCT(2) dobj_3235;
-  struct MELT_OBJECT_STRUCT(3) dsym_3236__VALB;
-  struct MELT_STRING_STRUCT(4) dstr_3237__VALB;
-  struct MELT_OBJECT_STRUCT(2) dobj_3238;
-  struct MELT_STRING_STRUCT(34) dstr_3239__meltgc_new_box_;
-  struct MELT_STRING_STRUCT(16) dstr_3240__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3241__;
-  struct MELT_STRING_STRUCT(8) dstr_3242__MAKE_BOX;
-  struct MELT_OBJECT_STRUCT(3) dsym_3243__IS_LIST;
-  struct MELT_STRING_STRUCT(7) dstr_3244__IS_LIST;
-  struct MELT_OBJECT_STRUCT(5) dobj_3245__IS_LIST;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3246__IS_LIST;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3247__IS_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3248__LI;
-  struct MELT_STRING_STRUCT(2) dstr_3249__LI;
-  struct MELT_OBJECT_STRUCT(2) dobj_3250;
-  struct MELT_STRING_STRUCT(31) dstr_3251__melt_magic_disc;
-  struct MELT_STRING_STRUCT(17) dstr_3252__OBMAG_LIST;
-  struct MELT_STRING_STRUCT(7) dstr_3253__IS_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3254__IS_LIST_OR_NULL;
+  struct MELT_STRING_STRUCT(12) dstr_3065__NULL_;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3066__FOREACH_IN_MAPSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_3067__IS_ROUTINE;
+  struct MELT_STRING_STRUCT(10) dstr_3068__IS_ROUTINE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3069__IS_ROUTINE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3070__IS_ROUTINE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3071__IS_ROUTINE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3072__ROU;
+  struct MELT_STRING_STRUCT(3) dstr_3073__ROU;
+  struct MELT_OBJECT_STRUCT(2) dobj_3074;
+  struct MELT_STRING_STRUCT(31) dstr_3075__melt_magic_disc;
+  struct MELT_STRING_STRUCT(20) dstr_3076__OBMAG_ROUT;
+  struct MELT_STRING_STRUCT(10) dstr_3077__IS_ROUTINE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3078__ROUTINE_DESCR;
+  struct MELT_STRING_STRUCT(13) dstr_3079__ROUTINE_DESCR;
+  struct MELT_OBJECT_STRUCT(5) dobj_3080__ROUTINE_DESCR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3081__ROUTINE_DESCR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3082__ROUTINE_DESCR;
+  struct MELT_OBJECT_STRUCT(2) dobj_3083;
+  struct MELT_STRING_STRUCT(57) dstr_3084__meltgc_new_stri;
+  struct MELT_STRING_STRUCT(4) dstr_3085__;
+  struct MELT_STRING_STRUCT(13) dstr_3086__ROUTINE_DESCR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3087__ROUTINE_SIZE;
+  struct MELT_STRING_STRUCT(12) dstr_3088__ROUTINE_SIZE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3089__ROUTINE_SIZE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3090__ROUTINE_SIZE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3091__ROUTINE_SIZE;
+  struct MELT_OBJECT_STRUCT(2) dobj_3092;
+  struct MELT_STRING_STRUCT(32) dstr_3093__melt_routine_si;
+  struct MELT_STRING_STRUCT(3) dstr_3094__;
+  struct MELT_STRING_STRUCT(12) dstr_3095__ROUTINE_SIZE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3096__ROUTINE_NTH;
+  struct MELT_STRING_STRUCT(11) dstr_3097__ROUTINE_NTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_3098__ROUTINE_NTH;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3099__ROUTINE_NTH;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3100__ROUTINE_NTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_3101;
+  struct MELT_OBJECT_STRUCT(2) dobj_3102;
+  struct MELT_STRING_STRUCT(31) dstr_3103__melt_routine_nt;
+  struct MELT_STRING_STRUCT(10) dstr_3104__int_;
+  struct MELT_STRING_STRUCT(3) dstr_3105__;
+  struct MELT_STRING_STRUCT(11) dstr_3106__ROUTINE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_3107__IS_CLOSURE;
+  struct MELT_STRING_STRUCT(10) dstr_3108__IS_CLOSURE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3109__IS_CLOSURE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3110__IS_CLOSURE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3111__IS_CLOSURE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3112__CLO;
+  struct MELT_STRING_STRUCT(3) dstr_3113__CLO;
+  struct MELT_OBJECT_STRUCT(2) dobj_3114;
+  struct MELT_STRING_STRUCT(31) dstr_3115__melt_magic_disc;
+  struct MELT_STRING_STRUCT(20) dstr_3116__OBMAG_CLOS;
+  struct MELT_STRING_STRUCT(10) dstr_3117__IS_CLOSURE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3118__CLOSURE_SIZE;
+  struct MELT_STRING_STRUCT(12) dstr_3119__CLOSURE_SIZE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3120__CLOSURE_SIZE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3121__CLOSURE_SIZE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3122__CLOSURE_SIZE;
+  struct MELT_OBJECT_STRUCT(2) dobj_3123;
+  struct MELT_STRING_STRUCT(32) dstr_3124__melt_closure_si;
+  struct MELT_STRING_STRUCT(3) dstr_3125__;
+  struct MELT_STRING_STRUCT(12) dstr_3126__CLOSURE_SIZE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3127__CLOSURE_ROUTINE;
+  struct MELT_STRING_STRUCT(15) dstr_3128__CLOSURE_ROUTINE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3129__CLOSURE_ROUTINE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3130__CLOSURE_ROUTINE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3131__CLOSURE_ROUTINE;
+  struct MELT_OBJECT_STRUCT(2) dobj_3132;
+  struct MELT_STRING_STRUCT(35) dstr_3133__melt_closure_ro;
+  struct MELT_STRING_STRUCT(3) dstr_3134__;
+  struct MELT_STRING_STRUCT(15) dstr_3135__CLOSURE_ROUTINE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3136__CLOSURE_NTH;
+  struct MELT_STRING_STRUCT(11) dstr_3137__CLOSURE_NTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_3138__CLOSURE_NTH;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3139__CLOSURE_NTH;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3140__CLOSURE_NTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_3141;
+  struct MELT_OBJECT_STRUCT(2) dobj_3142;
+  struct MELT_STRING_STRUCT(31) dstr_3143__melt_closure_nt;
+  struct MELT_STRING_STRUCT(9) dstr_3144__int_;
+  struct MELT_STRING_STRUCT(3) dstr_3145__;
+  struct MELT_STRING_STRUCT(11) dstr_3146__CLOSURE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_3147__IS_INTEGERBOX;
+  struct MELT_STRING_STRUCT(13) dstr_3148__IS_INTEGERBOX;
+  struct MELT_OBJECT_STRUCT(5) dobj_3149__IS_INTEGERBOX;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3150__IS_INTEGERBOX;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3151__IS_INTEGERBOX;
+  struct MELT_OBJECT_STRUCT(3) dsym_3152__IB;
+  struct MELT_STRING_STRUCT(2) dstr_3153__IB;
+  struct MELT_OBJECT_STRUCT(2) dobj_3154;
+  struct MELT_STRING_STRUCT(31) dstr_3155__melt_magic_disc;
+  struct MELT_STRING_STRUCT(16) dstr_3156__OBMAG_INT_;
+  struct MELT_STRING_STRUCT(13) dstr_3157__IS_INTEGERBOX;
+  struct MELT_OBJECT_STRUCT(3) dsym_3158__MAKE_INTEGERBOX;
+  struct MELT_STRING_STRUCT(15) dstr_3159__MAKE_INTEGERBOX;
+  struct MELT_OBJECT_STRUCT(5) dobj_3160__MAKE_INTEGERBOX;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3161__MAKE_INTEGERBOX;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3162__MAKE_INTEGERBOX;
+  struct MELT_OBJECT_STRUCT(2) dobj_3163;
+  struct MELT_OBJECT_STRUCT(2) dobj_3164;
+  struct MELT_STRING_STRUCT(35) dstr_3165__meltgc_new_int_;
+  struct MELT_STRING_STRUCT(4) dstr_3166__;
+  struct MELT_STRING_STRUCT(3) dstr_3167__;
+  struct MELT_STRING_STRUCT(15) dstr_3168__MAKE_INTEGERBOX;
+  struct MELT_OBJECT_STRUCT(9) dobj_3169__INTEGERBOX_OF;
+  struct MELT_STRING_STRUCT(13) dstr_3170__INTEGERBOX_OF;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_3171__INTEGERBOX_OF;
+  struct MELT_OBJECT_STRUCT(3) dsym_3172__BX;
+  struct MELT_STRING_STRUCT(2) dstr_3173__BX;
+  struct MELT_OBJECT_STRUCT(2) dobj_3174;
+  struct MELT_OBJECT_STRUCT(3) dsym_3175__ICT;
+  struct MELT_STRING_STRUCT(3) dstr_3176__ICT;
+  struct MELT_OBJECT_STRUCT(2) dobj_3177;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3178__INTEGERBOX_OF;
+  struct MELT_OBJECT_STRUCT(3) dsym_3179__IBOXOF;
+  struct MELT_STRING_STRUCT(6) dstr_3180__IBOXOF;
+  struct MELT_STRING_STRUCT(4) dstr_3181__;
+  struct MELT_STRING_STRUCT(5) dstr_3182__;
+  struct MELT_STRING_STRUCT(21) dstr_3183__melt_magic_d;
+  struct MELT_STRING_STRUCT(15) dstr_3184__OBMAG_INT_;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3185__INTEGERBOX_OF;
+  struct MELT_STRING_STRUCT(4) dstr_3186__;
+  struct MELT_STRING_STRUCT(5) dstr_3187__;
+  struct MELT_STRING_STRUCT(24) dstr_3188__struct_melt;
+  struct MELT_STRING_STRUCT(8) dstr_3189__val_;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3190__INTEGERBOX_OF;
+  struct MELT_OBJECT_STRUCT(3) dsym_3191__IS_BOX;
+  struct MELT_STRING_STRUCT(6) dstr_3192__IS_BOX;
+  struct MELT_OBJECT_STRUCT(5) dobj_3193__IS_BOX;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3194__IS_BOX;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3195__IS_BOX;
+  struct MELT_OBJECT_STRUCT(3) dsym_3196__BOX;
+  struct MELT_STRING_STRUCT(3) dstr_3197__BOX;
+  struct MELT_OBJECT_STRUCT(2) dobj_3198;
+  struct MELT_STRING_STRUCT(31) dstr_3199__melt_magic_disc;
+  struct MELT_STRING_STRUCT(16) dstr_3200__OBMAG_BOX_;
+  struct MELT_STRING_STRUCT(6) dstr_3201__IS_BOX;
+  struct MELT_OBJECT_STRUCT(3) dsym_3202__BOX_CONTENT;
+  struct MELT_STRING_STRUCT(11) dstr_3203__BOX_CONTENT;
+  struct MELT_OBJECT_STRUCT(5) dobj_3204__BOX_CONTENT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3205__BOX_CONTENT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3206__BOX_CONTENT;
+  struct MELT_OBJECT_STRUCT(2) dobj_3207;
+  struct MELT_STRING_STRUCT(33) dstr_3208__melt_box_content;
+  struct MELT_STRING_STRUCT(2) dstr_3209__;
+  struct MELT_STRING_STRUCT(11) dstr_3210__BOX_CONTENT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3211__BOX_PUT;
+  struct MELT_STRING_STRUCT(7) dstr_3212__BOX_PUT;
+  struct MELT_OBJECT_STRUCT(5) dobj_3213__BOX_PUT;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3214__BOX_PUT;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3215__BOX_PUT;
+  struct MELT_OBJECT_STRUCT(2) dobj_3216;
+  struct MELT_OBJECT_STRUCT(2) dobj_3217;
+  struct MELT_STRING_STRUCT(28) dstr_3218__meltgc_box_put_;
+  struct MELT_STRING_STRUCT(16) dstr_3219__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3220__;
+  struct MELT_STRING_STRUCT(7) dstr_3221__BOX_PUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3222__MAKE_BOX;
+  struct MELT_STRING_STRUCT(8) dstr_3223__MAKE_BOX;
+  struct MELT_OBJECT_STRUCT(5) dobj_3224__MAKE_BOX;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3225__MAKE_BOX;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3226__MAKE_BOX;
+  struct MELT_OBJECT_STRUCT(2) dobj_3227;
+  struct MELT_OBJECT_STRUCT(3) dsym_3228__VALB;
+  struct MELT_STRING_STRUCT(4) dstr_3229__VALB;
+  struct MELT_OBJECT_STRUCT(2) dobj_3230;
+  struct MELT_STRING_STRUCT(34) dstr_3231__meltgc_new_box_;
+  struct MELT_STRING_STRUCT(16) dstr_3232__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3233__;
+  struct MELT_STRING_STRUCT(8) dstr_3234__MAKE_BOX;
+  struct MELT_OBJECT_STRUCT(3) dsym_3235__IS_LIST;
+  struct MELT_STRING_STRUCT(7) dstr_3236__IS_LIST;
+  struct MELT_OBJECT_STRUCT(5) dobj_3237__IS_LIST;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3238__IS_LIST;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3239__IS_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3240__LI;
+  struct MELT_STRING_STRUCT(2) dstr_3241__LI;
+  struct MELT_OBJECT_STRUCT(2) dobj_3242;
+  struct MELT_STRING_STRUCT(31) dstr_3243__melt_magic_disc;
+  struct MELT_STRING_STRUCT(17) dstr_3244__OBMAG_LIST;
+  struct MELT_STRING_STRUCT(7) dstr_3245__IS_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3246__IS_LIST_OR_NULL;
+  struct MELT_STRING_STRUCT(15) dstr_3247__IS_LIST_OR_NULL;
+  struct MELT_OBJECT_STRUCT(5) dobj_3248__IS_LIST_OR_NULL;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3249__IS_LIST_OR_NULL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3250__IS_LIST_OR_NULL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3251;
+  struct MELT_STRING_STRUCT(2) dstr_3252__;
+  struct MELT_STRING_STRUCT(57) dstr_3253__NULL_;
+  struct MELT_STRING_STRUCT(18) dstr_3254__OBMAG_LIST;
   struct MELT_STRING_STRUCT(15) dstr_3255__IS_LIST_OR_NULL;
-  struct MELT_OBJECT_STRUCT(5) dobj_3256__IS_LIST_OR_NULL;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3257__IS_LIST_OR_NULL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3258__IS_LIST_OR_NULL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3259;
-  struct MELT_STRING_STRUCT(2) dstr_3260__;
-  struct MELT_STRING_STRUCT(57) dstr_3261__NULL_;
-  struct MELT_STRING_STRUCT(18) dstr_3262__OBMAG_LIST;
-  struct MELT_STRING_STRUCT(15) dstr_3263__IS_LIST_OR_NULL;
-  struct MELT_OBJECT_STRUCT(3) dsym_3264__LIST_FIRST;
-  struct MELT_STRING_STRUCT(10) dstr_3265__LIST_FIRST;
-  struct MELT_OBJECT_STRUCT(5) dobj_3266__LIST_FIRST;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3267__LIST_FIRST;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3268__LIST_FIRST;
-  struct MELT_OBJECT_STRUCT(2) dobj_3269;
-  struct MELT_STRING_STRUCT(30) dstr_3270__melt_list_first;
-  struct MELT_STRING_STRUCT(3) dstr_3271__;
-  struct MELT_STRING_STRUCT(10) dstr_3272__LIST_FIRST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3273__LIST_LAST;
-  struct MELT_STRING_STRUCT(9) dstr_3274__LIST_LAST;
-  struct MELT_OBJECT_STRUCT(5) dobj_3275__LIST_LAST;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3276__LIST_LAST;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3277__LIST_LAST;
-  struct MELT_OBJECT_STRUCT(2) dobj_3278;
-  struct MELT_STRING_STRUCT(29) dstr_3279__melt_list_last_;
-  struct MELT_STRING_STRUCT(3) dstr_3280__;
-  struct MELT_STRING_STRUCT(9) dstr_3281__LIST_LAST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3282__LIST_LENGTH;
-  struct MELT_STRING_STRUCT(11) dstr_3283__LIST_LENGTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_3284__LIST_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3285__LIST_LENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3286__LIST_LENGTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_3287;
-  struct MELT_STRING_STRUCT(31) dstr_3288__melt_list_lengt;
-  struct MELT_STRING_STRUCT(3) dstr_3289__;
-  struct MELT_STRING_STRUCT(11) dstr_3290__LIST_LENGTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_3291__LIST_APPEND;
-  struct MELT_STRING_STRUCT(11) dstr_3292__LIST_APPEND;
-  struct MELT_OBJECT_STRUCT(5) dobj_3293__LIST_APPEND;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3294__LIST_APPEND;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3295__LIST_APPEND;
-  struct MELT_OBJECT_STRUCT(2) dobj_3296;
-  struct MELT_OBJECT_STRUCT(3) dsym_3297__EL;
-  struct MELT_STRING_STRUCT(2) dstr_3298__EL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3299;
-  struct MELT_STRING_STRUCT(32) dstr_3300__meltgc_append_li;
-  struct MELT_STRING_STRUCT(16) dstr_3301__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3302__;
-  struct MELT_STRING_STRUCT(11) dstr_3303__LIST_APPEND;
-  struct MELT_OBJECT_STRUCT(3) dsym_3304__LIST_PREPEND;
-  struct MELT_STRING_STRUCT(12) dstr_3305__LIST_PREPEND;
-  struct MELT_OBJECT_STRUCT(5) dobj_3306__LIST_PREPEND;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3307__LIST_PREPEND;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3308__LIST_PREPEND;
-  struct MELT_OBJECT_STRUCT(2) dobj_3309;
-  struct MELT_OBJECT_STRUCT(2) dobj_3310;
-  struct MELT_STRING_STRUCT(33) dstr_3311__meltgc_prepend_l;
-  struct MELT_STRING_STRUCT(16) dstr_3312__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3313__;
-  struct MELT_STRING_STRUCT(12) dstr_3314__LIST_PREPEND;
-  struct MELT_OBJECT_STRUCT(3) dsym_3315__LIST_POPFIRST;
-  struct MELT_STRING_STRUCT(13) dstr_3316__LIST_POPFIRST;
-  struct MELT_OBJECT_STRUCT(5) dobj_3317__LIST_POPFIRST;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3318__LIST_POPFIRST;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3319__LIST_POPFIRST;
-  struct MELT_OBJECT_STRUCT(2) dobj_3320;
-  struct MELT_STRING_STRUCT(35) dstr_3321__meltgc_popfirst;
-  struct MELT_STRING_STRUCT(3) dstr_3322__;
-  struct MELT_STRING_STRUCT(13) dstr_3323__LIST_POPFIRST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3324__MAKE_LIST;
-  struct MELT_STRING_STRUCT(9) dstr_3325__MAKE_LIST;
-  struct MELT_OBJECT_STRUCT(5) dobj_3326__MAKE_LIST;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3327__MAKE_LIST;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3328__MAKE_LIST;
-  struct MELT_OBJECT_STRUCT(2) dobj_3329;
-  struct MELT_STRING_STRUCT(36) dstr_3330__meltgc_new_list;
-  struct MELT_STRING_STRUCT(3) dstr_3331__;
-  struct MELT_STRING_STRUCT(9) dstr_3332__MAKE_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3333__IS_PAIR;
-  struct MELT_STRING_STRUCT(7) dstr_3334__IS_PAIR;
-  struct MELT_OBJECT_STRUCT(5) dobj_3335__IS_PAIR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3336__IS_PAIR;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3337__IS_PAIR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3338__PA;
-  struct MELT_STRING_STRUCT(2) dstr_3339__PA;
-  struct MELT_OBJECT_STRUCT(2) dobj_3340;
-  struct MELT_STRING_STRUCT(31) dstr_3341__melt_magic_disc;
-  struct MELT_STRING_STRUCT(17) dstr_3342__OBMAG_PAIR;
-  struct MELT_STRING_STRUCT(7) dstr_3343__IS_PAIR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3344__PAIR_HEAD;
-  struct MELT_STRING_STRUCT(9) dstr_3345__PAIR_HEAD;
-  struct MELT_OBJECT_STRUCT(5) dobj_3346__PAIR_HEAD;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3347__PAIR_HEAD;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3348__PAIR_HEAD;
-  struct MELT_OBJECT_STRUCT(2) dobj_3349;
-  struct MELT_STRING_STRUCT(29) dstr_3350__melt_pair_head_;
-  struct MELT_STRING_STRUCT(3) dstr_3351__;
-  struct MELT_STRING_STRUCT(9) dstr_3352__PAIR_HEAD;
-  struct MELT_OBJECT_STRUCT(3) dsym_3353__PAIR_TAIL;
-  struct MELT_STRING_STRUCT(9) dstr_3354__PAIR_TAIL;
-  struct MELT_OBJECT_STRUCT(5) dobj_3355__PAIR_TAIL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3356__PAIR_TAIL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3357__PAIR_TAIL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3358;
-  struct MELT_STRING_STRUCT(29) dstr_3359__melt_pair_tail_;
-  struct MELT_STRING_STRUCT(3) dstr_3360__;
-  struct MELT_STRING_STRUCT(9) dstr_3361__PAIR_TAIL;
-  struct MELT_OBJECT_STRUCT(3) dsym_3362__PAIR_SET_HEAD;
-  struct MELT_STRING_STRUCT(13) dstr_3363__PAIR_SET_HEAD;
-  struct MELT_OBJECT_STRUCT(5) dobj_3364__PAIR_SET_HEAD;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3365__PAIR_SET_HEAD;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3366__PAIR_SET_HEAD;
-  struct MELT_OBJECT_STRUCT(2) dobj_3367;
-  struct MELT_OBJECT_STRUCT(3) dsym_3368__HD;
-  struct MELT_STRING_STRUCT(2) dstr_3369__HD;
-  struct MELT_OBJECT_STRUCT(2) dobj_3370;
-  struct MELT_STRING_STRUCT(34) dstr_3371__meltgc_pair_set_;
-  struct MELT_STRING_STRUCT(4) dstr_3372__;
-  struct MELT_STRING_STRUCT(2) dstr_3373__;
-  struct MELT_STRING_STRUCT(13) dstr_3374__PAIR_SET_HEAD;
-  struct MELT_OBJECT_STRUCT(3) dsym_3375__PAIR_LISTLENGTH;
-  struct MELT_STRING_STRUCT(15) dstr_3376__PAIR_LISTLENGTH;
-  struct MELT_OBJECT_STRUCT(5) dobj_3377__PAIR_LISTLENGTH;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3378__PAIR_LISTLENGTH;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3379__PAIR_LISTLENGTH;
-  struct MELT_OBJECT_STRUCT(2) dobj_3380;
-  struct MELT_STRING_STRUCT(35) dstr_3381__melt_pair_listl;
-  struct MELT_STRING_STRUCT(3) dstr_3382__;
-  struct MELT_STRING_STRUCT(15) dstr_3383__PAIR_LISTLENGTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_3384__MAKE_PAIR;
-  struct MELT_STRING_STRUCT(9) dstr_3385__MAKE_PAIR;
-  struct MELT_OBJECT_STRUCT(5) dobj_3386__MAKE_PAIR;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3387__MAKE_PAIR;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3388__MAKE_PAIR;
-  struct MELT_OBJECT_STRUCT(2) dobj_3389;
-  struct MELT_OBJECT_STRUCT(2) dobj_3390;
-  struct MELT_OBJECT_STRUCT(3) dsym_3391__TL;
-  struct MELT_STRING_STRUCT(2) dstr_3392__TL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3393;
-  struct MELT_STRING_STRUCT(36) dstr_3394__meltgc_new_pair;
-  struct MELT_STRING_STRUCT(16) dstr_3395__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(16) dstr_3396__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(3) dstr_3397__;
-  struct MELT_STRING_STRUCT(9) dstr_3398__MAKE_PAIR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3399__IS_MIXINT;
-  struct MELT_STRING_STRUCT(9) dstr_3400__IS_MIXINT;
-  struct MELT_OBJECT_STRUCT(5) dobj_3401__IS_MIXINT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3402__IS_MIXINT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3403__IS_MIXINT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3404__MI;
-  struct MELT_STRING_STRUCT(2) dstr_3405__MI;
-  struct MELT_OBJECT_STRUCT(2) dobj_3406;
-  struct MELT_STRING_STRUCT(31) dstr_3407__melt_magic_disc;
-  struct MELT_STRING_STRUCT(19) dstr_3408__OBMAG_MIXI;
-  struct MELT_STRING_STRUCT(9) dstr_3409__IS_MIXINT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3410__MIXINT_VAL;
-  struct MELT_STRING_STRUCT(10) dstr_3411__MIXINT_VAL;
-  struct MELT_OBJECT_STRUCT(5) dobj_3412__MIXINT_VAL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3413__MIXINT_VAL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3414__MIXINT_VAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3415;
-  struct MELT_STRING_STRUCT(30) dstr_3416__melt_val_mixint;
-  struct MELT_STRING_STRUCT(3) dstr_3417__;
-  struct MELT_STRING_STRUCT(10) dstr_3418__MIXINT_VAL;
-  struct MELT_OBJECT_STRUCT(3) dsym_3419__MAKE_MIXINT;
-  struct MELT_STRING_STRUCT(11) dstr_3420__MAKE_MIXINT;
-  struct MELT_OBJECT_STRUCT(5) dobj_3421__MAKE_MIXINT;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3422__MAKE_MIXINT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3423__MAKE_MIXINT;
-  struct MELT_OBJECT_STRUCT(2) dobj_3424;
-  struct MELT_OBJECT_STRUCT(2) dobj_3425;
-  struct MELT_OBJECT_STRUCT(2) dobj_3426;
-  struct MELT_STRING_STRUCT(38) dstr_3427__meltgc_new_mixi;
-  struct MELT_STRING_STRUCT(16) dstr_3428__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(4) dstr_3429__;
-  struct MELT_STRING_STRUCT(3) dstr_3430__;
-  struct MELT_STRING_STRUCT(11) dstr_3431__MAKE_MIXINT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3432__IS_MIXLOC;
-  struct MELT_STRING_STRUCT(9) dstr_3433__IS_MIXLOC;
-  struct MELT_OBJECT_STRUCT(5) dobj_3434__IS_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3435__IS_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3436__IS_MIXLOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_3437;
-  struct MELT_STRING_STRUCT(31) dstr_3438__melt_magic_disc;
-  struct MELT_STRING_STRUCT(19) dstr_3439__OBMAG_MIXL;
-  struct MELT_STRING_STRUCT(9) dstr_3440__IS_MIXLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_3441__MIXLOC_VAL;
-  struct MELT_STRING_STRUCT(10) dstr_3442__MIXLOC_VAL;
-  struct MELT_OBJECT_STRUCT(5) dobj_3443__MIXLOC_VAL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3444__MIXLOC_VAL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3445__MIXLOC_VAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3446;
-  struct MELT_STRING_STRUCT(30) dstr_3447__melt_val_mixloc;
-  struct MELT_STRING_STRUCT(3) dstr_3448__;
-  struct MELT_STRING_STRUCT(10) dstr_3449__MIXLOC_VAL;
-  struct MELT_OBJECT_STRUCT(3) dsym_3450__MIXLOC_LOCATION;
-  struct MELT_STRING_STRUCT(15) dstr_3451__MIXLOC_LOCATION;
-  struct MELT_OBJECT_STRUCT(5) dobj_3452__MIXLOC_LOCATION;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3453__MIXLOC_LOCATION;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3454__MIXLOC_LOCATION;
-  struct MELT_OBJECT_STRUCT(2) dobj_3455;
-  struct MELT_STRING_STRUCT(42) dstr_3456__long_melt_loc;
-  struct MELT_STRING_STRUCT(3) dstr_3457__;
-  struct MELT_STRING_STRUCT(15) dstr_3458__MIXLOC_LOCATION;
-  struct MELT_OBJECT_STRUCT(3) dsym_3459__MIXLOC_LOCLINE;
-  struct MELT_STRING_STRUCT(14) dstr_3460__MIXLOC_LOCLINE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3461__MIXLOC_LOCLINE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3462__MIXLOC_LOCLINE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3463__MIXLOC_LOCLINE;
-  struct MELT_OBJECT_STRUCT(2) dobj_3464;
-  struct MELT_STRING_STRUCT(48) dstr_3465__LOCATION_LINE_m;
-  struct MELT_STRING_STRUCT(3) dstr_3466__;
-  struct MELT_STRING_STRUCT(14) dstr_3467__MIXLOC_LOCLINE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3468__MIXLOC_LOCFILE;
-  struct MELT_STRING_STRUCT(14) dstr_3469__MIXLOC_LOCFILE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3470__MIXLOC_LOCFILE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3471__MIXLOC_LOCFILE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3472__MIXLOC_LOCFILE;
-  struct MELT_OBJECT_STRUCT(2) dobj_3473;
-  struct MELT_STRING_STRUCT(48) dstr_3474__LOCATION_FILE_m;
-  struct MELT_STRING_STRUCT(3) dstr_3475__;
-  struct MELT_STRING_STRUCT(14) dstr_3476__MIXLOC_LOCFILE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3477__MAKE_MIXLOC;
-  struct MELT_STRING_STRUCT(11) dstr_3478__MAKE_MIXLOC;
-  struct MELT_OBJECT_STRUCT(5) dobj_3479__MAKE_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(9) dtup_3480__MAKE_MIXLOC;
-  struct MELT_MULTIPLE_STRUCT(4) dtup_3481__MAKE_MIXLOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_3482;
-  struct MELT_OBJECT_STRUCT(2) dobj_3483;
-  struct MELT_OBJECT_STRUCT(2) dobj_3484;
-  struct MELT_OBJECT_STRUCT(3) dsym_3485__LOC;
-  struct MELT_STRING_STRUCT(3) dstr_3486__LOC;
-  struct MELT_OBJECT_STRUCT(2) dobj_3487;
-  struct MELT_STRING_STRUCT(38) dstr_3488__meltgc_new_mixl;
-  struct MELT_STRING_STRUCT(16) dstr_3489__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(14) dstr_3490__;
-  struct MELT_STRING_STRUCT(16) dstr_3491__location_t_;
-  struct MELT_STRING_STRUCT(3) dstr_3492__;
-  struct MELT_STRING_STRUCT(11) dstr_3493__MAKE_MIXLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_3494__IS_MIXBIGINT;
-  struct MELT_STRING_STRUCT(12) dstr_3495__IS_MIXBIGINT;
-  struct MELT_OBJECT_STRUCT(5) dobj_3496__IS_MIXBIGINT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3497__IS_MIXBIGINT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3498__IS_MIXBIGINT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3499__MB;
-  struct MELT_STRING_STRUCT(2) dstr_3500__MB;
-  struct MELT_OBJECT_STRUCT(2) dobj_3501;
-  struct MELT_STRING_STRUCT(31) dstr_3502__melt_magic_disc;
-  struct MELT_STRING_STRUCT(22) dstr_3503__OBMAG_MIXB;
-  struct MELT_STRING_STRUCT(12) dstr_3504__IS_MIXBIGINT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3505__MIXBIGINT_VAL;
-  struct MELT_STRING_STRUCT(13) dstr_3506__MIXBIGINT_VAL;
-  struct MELT_OBJECT_STRUCT(5) dobj_3507__MIXBIGINT_VAL;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3508__MIXBIGINT_VAL;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3509__MIXBIGINT_VAL;
-  struct MELT_OBJECT_STRUCT(2) dobj_3510;
-  struct MELT_STRING_STRUCT(19) dstr_3511__melt_val_mixbigi;
-  struct MELT_STRING_STRUCT(1) dstr_3512__;
-  struct MELT_STRING_STRUCT(13) dstr_3513__MIXBIGINT_VAL;
-  struct MELT_OBJECT_STRUCT(3) dsym_3514__PPSTRBUF_MIXBIGINT;
-  struct MELT_STRING_STRUCT(18) dstr_3515__PPSTRBUF_MIXBIGI;
-  struct MELT_OBJECT_STRUCT(5) dobj_3516__PPSTRBUF_MIXBIGINT;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3517__PPSTRBUF_MIXBIGINT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3518__PPSTRBUF_MIXBIGINT;
-  struct MELT_OBJECT_STRUCT(2) dobj_3519;
-  struct MELT_OBJECT_STRUCT(3) dsym_3520__INDENT;
-  struct MELT_STRING_STRUCT(6) dstr_3521__INDENT;
-  struct MELT_OBJECT_STRUCT(2) dobj_3522;
-  struct MELT_OBJECT_STRUCT(2) dobj_3523;
-  struct MELT_STRING_STRUCT(26) dstr_3524__meltgc_ppstrbuf_;
-  struct MELT_STRING_STRUCT(1) dstr_3525__;
-  struct MELT_STRING_STRUCT(1) dstr_3526__;
-  struct MELT_STRING_STRUCT(2) dstr_3527__;
-  struct MELT_STRING_STRUCT(18) dstr_3528__PPSTRBUF_MIXBIGI;
-  struct MELT_OBJECT_STRUCT(3) dsym_3529__READ_FILE;
-  struct MELT_STRING_STRUCT(9) dstr_3530__READ_FILE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3531__READ_FILE;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3532__READ_FILE;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3533__READ_FILE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3534__FILNAM;
-  struct MELT_STRING_STRUCT(6) dstr_3535__FILNAM;
-  struct MELT_OBJECT_STRUCT(2) dobj_3536;
-  struct MELT_STRING_STRUCT(48) dstr_3537__meltgc_read_fil;
-  struct MELT_STRING_STRUCT(14) dstr_3538__char_0_;
-  struct MELT_STRING_STRUCT(9) dstr_3539__READ_FILE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3540__ERROR_STRV;
-  struct MELT_STRING_STRUCT(10) dstr_3541__ERROR_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3542__ERROR_STRV;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3543__ERROR_STRV;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3544__ERROR_STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_3545;
-  struct MELT_OBJECT_STRUCT(3) dsym_3546__CMSG;
-  struct MELT_STRING_STRUCT(4) dstr_3547__CMSG;
-  struct MELT_OBJECT_STRUCT(2) dobj_3548;
-  struct MELT_OBJECT_STRUCT(2) dobj_3549;
-  struct MELT_STRING_STRUCT(28) dstr_3550__melt_error_str_;
-  struct MELT_STRING_STRUCT(4) dstr_3551__;
-  struct MELT_STRING_STRUCT(16) dstr_3552__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3553__;
-  struct MELT_STRING_STRUCT(10) dstr_3554__ERROR_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3555__ERROR_PLAIN;
-  struct MELT_STRING_STRUCT(11) dstr_3556__ERROR_PLAIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3557__ERROR_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3558__ERROR_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3559__ERROR_PLAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_3560;
-  struct MELT_OBJECT_STRUCT(2) dobj_3561;
-  struct MELT_STRING_STRUCT(28) dstr_3562__melt_error_str_;
-  struct MELT_STRING_STRUCT(4) dstr_3563__;
-  struct MELT_STRING_STRUCT(17) dstr_3564__melt_ptr_t_0;
-  struct MELT_STRING_STRUCT(11) dstr_3565__ERROR_PLAIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3566__WARNING_STRV;
-  struct MELT_STRING_STRUCT(12) dstr_3567__WARNING_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3568__WARNING_STRV;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3569__WARNING_STRV;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3570__WARNING_STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_3571;
-  struct MELT_OBJECT_STRUCT(2) dobj_3572;
-  struct MELT_OBJECT_STRUCT(2) dobj_3573;
-  struct MELT_STRING_STRUCT(33) dstr_3574__melt_warning_str;
-  struct MELT_STRING_STRUCT(4) dstr_3575__;
-  struct MELT_STRING_STRUCT(16) dstr_3576__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3577__;
-  struct MELT_STRING_STRUCT(12) dstr_3578__WARNING_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3579__WARNING_PLAIN;
-  struct MELT_STRING_STRUCT(13) dstr_3580__WARNING_PLAIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3581__WARNING_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3582__WARNING_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3583__WARNING_PLAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_3584;
-  struct MELT_OBJECT_STRUCT(2) dobj_3585;
-  struct MELT_STRING_STRUCT(33) dstr_3586__melt_warning_str;
-  struct MELT_STRING_STRUCT(4) dstr_3587__;
-  struct MELT_STRING_STRUCT(17) dstr_3588__melt_ptr_t_0;
-  struct MELT_STRING_STRUCT(13) dstr_3589__WARNING_PLAIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3590__WARNINGMSG_PLAIN;
-  struct MELT_STRING_STRUCT(16) dstr_3591__WARNINGMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3592__WARNINGMSG_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3593__WARNINGMSG_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3594__WARNINGMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_3595;
-  struct MELT_STRING_STRUCT(62) dstr_3596__warning_0_MELT;
-  struct MELT_STRING_STRUCT(2) dstr_3597__;
-  struct MELT_STRING_STRUCT(16) dstr_3598__WARNINGMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3599__WARNINGMSG_STRV;
-  struct MELT_STRING_STRUCT(15) dstr_3600__WARNINGMSG_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3601__WARNINGMSG_STRV;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3602__WARNINGMSG_STRV;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3603__WARNINGMSG_STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_3604;
-  struct MELT_OBJECT_STRUCT(2) dobj_3605;
-  struct MELT_STRING_STRUCT(68) dstr_3606__warning_0_MEL;
-  struct MELT_STRING_STRUCT(41) dstr_3607__melt;
-  struct MELT_STRING_STRUCT(3) dstr_3608__;
-  struct MELT_STRING_STRUCT(15) dstr_3609__WARNINGMSG_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3610__ERRORMSG_PLAIN;
-  struct MELT_STRING_STRUCT(14) dstr_3611__ERRORMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3612__ERRORMSG_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3613__ERRORMSG_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3614__ERRORMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_3615;
-  struct MELT_STRING_STRUCT(56) dstr_3616__error_MELT_ERR;
-  struct MELT_STRING_STRUCT(2) dstr_3617__;
-  struct MELT_STRING_STRUCT(14) dstr_3618__ERRORMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3619__ERRORMSG_STRV;
-  struct MELT_STRING_STRUCT(13) dstr_3620__ERRORMSG_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3621__ERRORMSG_STRV;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3622__ERRORMSG_STRV;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3623__ERRORMSG_STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_3624;
-  struct MELT_OBJECT_STRUCT(2) dobj_3625;
-  struct MELT_STRING_STRUCT(60) dstr_3626__error_MELT_ERRO;
-  struct MELT_STRING_STRUCT(35) dstr_3627__melt_strin;
-  struct MELT_STRING_STRUCT(3) dstr_3628__;
-  struct MELT_STRING_STRUCT(13) dstr_3629__ERRORMSG_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3630__INFORM_STRV;
-  struct MELT_STRING_STRUCT(11) dstr_3631__INFORM_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3632__INFORM_STRV;
-  struct MELT_MULTIPLE_STRUCT(7) dtup_3633__INFORM_STRV;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3634__INFORM_STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_3635;
-  struct MELT_OBJECT_STRUCT(2) dobj_3636;
-  struct MELT_OBJECT_STRUCT(2) dobj_3637;
-  struct MELT_STRING_STRUCT(29) dstr_3638__melt_inform_str_;
-  struct MELT_STRING_STRUCT(4) dstr_3639__;
-  struct MELT_STRING_STRUCT(16) dstr_3640__melt_ptr_t_;
-  struct MELT_STRING_STRUCT(2) dstr_3641__;
-  struct MELT_STRING_STRUCT(11) dstr_3642__INFORM_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3643__INFORM_PLAIN;
-  struct MELT_STRING_STRUCT(12) dstr_3644__INFORM_PLAIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3645__INFORM_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3646__INFORM_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3647__INFORM_PLAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_3648;
-  struct MELT_OBJECT_STRUCT(2) dobj_3649;
-  struct MELT_STRING_STRUCT(29) dstr_3650__melt_inform_str_;
-  struct MELT_STRING_STRUCT(4) dstr_3651__;
-  struct MELT_STRING_STRUCT(17) dstr_3652__melt_ptr_t_0;
-  struct MELT_STRING_STRUCT(12) dstr_3653__INFORM_PLAIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3654__INFORMSG_STRV;
-  struct MELT_STRING_STRUCT(13) dstr_3655__INFORMSG_STRV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3656__INFORMSG_STRV;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3657__INFORMSG_STRV;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3658__INFORMSG_STRV;
-  struct MELT_OBJECT_STRUCT(2) dobj_3659;
-  struct MELT_OBJECT_STRUCT(2) dobj_3660;
-  struct MELT_STRING_STRUCT(76) dstr_3661__inform_UNKNOWN_L;
-  struct MELT_STRING_STRUCT(41) dstr_3662__melt;
-  struct MELT_STRING_STRUCT(3) dstr_3663__;
-  struct MELT_STRING_STRUCT(13) dstr_3664__INFORMSG_STRV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3665__INFORMSG_PLAIN;
-  struct MELT_STRING_STRUCT(14) dstr_3666__INFORMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3667__INFORMSG_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_3668__INFORMSG_PLAIN;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_3669__INFORMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_3670;
-  struct MELT_STRING_STRUCT(70) dstr_3671__inform_UNKNOWN_L;
-  struct MELT_STRING_STRUCT(2) dstr_3672__;
-  struct MELT_STRING_STRUCT(14) dstr_3673__INFORMSG_PLAIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3674__INFORMSG_LONG;
-  struct MELT_STRING_STRUCT(13) dstr_3675__INFORMSG_LONG;
-  struct MELT_OBJECT_STRUCT(5) dobj_3676__INFORMSG_LONG;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_3677__INFORMSG_LONG;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_3678__INFORMSG_LONG;
-  struct MELT_OBJECT_STRUCT(2) dobj_3679;
-  struct MELT_OBJECT_STRUCT(2) dobj_3680;
-  struct MELT_STRING_STRUCT(76) dstr_3681__inform_UNKNOWN_L;
-  struct MELT_STRING_STRUCT(4) dstr_3682__;
-  struct MELT_STRING_STRUCT(2) dstr_3683__;
-  struct MELT_STRING_STRUCT(13) dstr_3684__INFORMSG_LONG;
-  struct MELT_OBJECT_STRUCT(3) dsym_3685__DISCR_NAME_STRING;
-  struct MELT_STRING_STRUCT(17) dstr_3686__DISCR_NAME_STRIN;
-  struct MELT_OBJECT_STRUCT(5) dobj_3687__DISCR_NAME_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_3688__DISCR_STRING;
-  struct MELT_STRING_STRUCT(12) dstr_3689__DISCR_STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_3690__DISCR_STRING;
-  struct MELT_STRING_STRUCT(12) dstr_3691__DISCR_STRING;
-  struct MELT_STRING_STRUCT(17) dstr_3692__DISCR_NAME_STRIN;
-  struct MELT_OBJECT_STRUCT(3) dsym_3693__DISCR_VERBATIM_STRING;
-  struct MELT_STRING_STRUCT(21) dstr_3694__DISCR_VERBATIM_S;
-  struct MELT_OBJECT_STRUCT(5) dobj_3695__DISCR_VERBATIM_STRING;
-  struct MELT_STRING_STRUCT(21) dstr_3696__DISCR_VERBATIM_S;
-  struct MELT_OBJECT_STRUCT(3) dsym_3697__DISCR_ANY_RECEIVER;
-  struct MELT_STRING_STRUCT(18) dstr_3698__DISCR_ANY_RECEIV;
-  struct MELT_OBJECT_STRUCT(5) dobj_3699__DISCR_ANY_RECEIVER;
-  struct MELT_STRING_STRUCT(18) dstr_3700__DISCR_ANY_RECEIV;
-  struct MELT_OBJECT_STRUCT(3) dsym_3701__DISCR_NULL_RECEIVER;
-  struct MELT_STRING_STRUCT(19) dstr_3702__DISCR_NULL_RECEI;
-  struct MELT_OBJECT_STRUCT(5) dobj_3703__DISCR_NULL_RECEIVER;
-  struct MELT_STRING_STRUCT(19) dstr_3704__DISCR_NULL_RECEI;
-  struct MELT_OBJECT_STRUCT(3) dsym_3705__DISCR_STRBUF;
-  struct MELT_STRING_STRUCT(12) dstr_3706__DISCR_STRBUF;
-  struct MELT_OBJECT_STRUCT(5) dobj_3707__DISCR_STRBUF;
-  struct MELT_STRING_STRUCT(12) dstr_3708__DISCR_STRBUF;
-  struct MELT_OBJECT_STRUCT(3) dsym_3709__DISCR_INTEGER;
-  struct MELT_STRING_STRUCT(13) dstr_3710__DISCR_INTEGER;
-  struct MELT_OBJECT_STRUCT(5) dobj_3711__DISCR_INTEGER;
-  struct MELT_STRING_STRUCT(13) dstr_3712__DISCR_INTEGER;
-  struct MELT_OBJECT_STRUCT(3) dsym_3713__DISCR_CONSTANT_INTEGER;
-  struct MELT_STRING_STRUCT(22) dstr_3714__DISCR_CONSTANT_I;
-  struct MELT_OBJECT_STRUCT(5) dobj_3715__DISCR_CONSTANT_INTEGER;
-  struct MELT_STRING_STRUCT(22) dstr_3716__DISCR_CONSTANT_I;
-  struct MELT_OBJECT_STRUCT(3) dsym_3717__DISCR_LIST;
-  struct MELT_STRING_STRUCT(10) dstr_3718__DISCR_LIST;
-  struct MELT_OBJECT_STRUCT(5) dobj_3719__DISCR_LIST;
-  struct MELT_STRING_STRUCT(10) dstr_3720__DISCR_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_3721__DISCR_PAIR;
-  struct MELT_STRING_STRUCT(10) dstr_3722__DISCR_PAIR;
-  struct MELT_OBJECT_STRUCT(5) dobj_3723__DISCR_PAIR;
-  struct MELT_STRING_STRUCT(10) dstr_3724__DISCR_PAIR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3725__DISCR_MULTIPLE;
-  struct MELT_STRING_STRUCT(14) dstr_3726__DISCR_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3727__DISCR_MULTIPLE;
-  struct MELT_STRING_STRUCT(14) dstr_3728__DISCR_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3729__DISCR_FIELD_SEQUENCE;
-  struct MELT_STRING_STRUCT(20) dstr_3730__DISCR_FIELD_SEQU;
-  struct MELT_OBJECT_STRUCT(5) dobj_3731__DISCR_FIELD_SEQUENCE;
-  struct MELT_STRING_STRUCT(20) dstr_3732__DISCR_FIELD_SEQU;
-  struct MELT_OBJECT_STRUCT(3) dsym_3733__DISCR_BOX;
-  struct MELT_STRING_STRUCT(9) dstr_3734__DISCR_BOX;
-  struct MELT_OBJECT_STRUCT(5) dobj_3735__DISCR_BOX;
-  struct MELT_STRING_STRUCT(9) dstr_3736__DISCR_BOX;
-  struct MELT_OBJECT_STRUCT(3) dsym_3737__DISCR_TREE;
-  struct MELT_STRING_STRUCT(10) dstr_3738__DISCR_TREE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3739__DISCR_TREE;
-  struct MELT_STRING_STRUCT(10) dstr_3740__DISCR_TREE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3741__DISCR_GIMPLE;
-  struct MELT_STRING_STRUCT(12) dstr_3742__DISCR_GIMPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3743__DISCR_GIMPLE;
-  struct MELT_STRING_STRUCT(12) dstr_3744__DISCR_GIMPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3745__DISCR_GIMPLE_SEQ;
-  struct MELT_STRING_STRUCT(16) dstr_3746__DISCR_GIMPLE_SEQ;
-  struct MELT_OBJECT_STRUCT(5) dobj_3747__DISCR_GIMPLE_SEQ;
-  struct MELT_STRING_STRUCT(16) dstr_3748__DISCR_GIMPLE_SEQ;
-  struct MELT_OBJECT_STRUCT(3) dsym_3749__DISCR_EDGE;
-  struct MELT_STRING_STRUCT(10) dstr_3750__DISCR_EDGE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3751__DISCR_EDGE;
-  struct MELT_STRING_STRUCT(10) dstr_3752__DISCR_EDGE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3753__DISCR_BASIC_BLOCK;
-  struct MELT_STRING_STRUCT(17) dstr_3754__DISCR_BASIC_BLOC;
-  struct MELT_OBJECT_STRUCT(5) dobj_3755__DISCR_BASIC_BLOCK;
-  struct MELT_STRING_STRUCT(17) dstr_3756__DISCR_BASIC_BLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_3757__DISCR_MAP_OBJECTS;
-  struct MELT_STRING_STRUCT(17) dstr_3758__DISCR_MAP_OBJECT;
-  struct MELT_OBJECT_STRUCT(5) dobj_3759__DISCR_MAP_OBJECTS;
-  struct MELT_STRING_STRUCT(17) dstr_3760__DISCR_MAP_OBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_3761__DISCR_MAP_STRINGS;
-  struct MELT_STRING_STRUCT(17) dstr_3762__DISCR_MAP_STRING;
-  struct MELT_OBJECT_STRUCT(5) dobj_3763__DISCR_MAP_STRINGS;
-  struct MELT_STRING_STRUCT(17) dstr_3764__DISCR_MAP_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_3765__DISCR_MAP_TREES;
-  struct MELT_STRING_STRUCT(15) dstr_3766__DISCR_MAP_TREES;
-  struct MELT_OBJECT_STRUCT(5) dobj_3767__DISCR_MAP_TREES;
-  struct MELT_STRING_STRUCT(15) dstr_3768__DISCR_MAP_TREES;
-  struct MELT_OBJECT_STRUCT(3) dsym_3769__DISCR_MAP_GIMPLES;
-  struct MELT_STRING_STRUCT(17) dstr_3770__DISCR_MAP_GIMPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3771__DISCR_MAP_GIMPLES;
-  struct MELT_STRING_STRUCT(17) dstr_3772__DISCR_MAP_GIMPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3773__DISCR_MAP_GIMPLE_SEQS;
-  struct MELT_STRING_STRUCT(21) dstr_3774__DISCR_MAP_GIMPLE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3775__DISCR_MAP_GIMPLE_SEQS;
-  struct MELT_STRING_STRUCT(21) dstr_3776__DISCR_MAP_GIMPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3777__DISCR_MAP_EDGES;
-  struct MELT_STRING_STRUCT(15) dstr_3778__DISCR_MAP_EDGES;
-  struct MELT_OBJECT_STRUCT(5) dobj_3779__DISCR_MAP_EDGES;
-  struct MELT_STRING_STRUCT(15) dstr_3780__DISCR_MAP_EDGES;
-  struct MELT_OBJECT_STRUCT(3) dsym_3781__DISCR_MAP_BASIC_BLOCKS;
-  struct MELT_STRING_STRUCT(22) dstr_3782__DISCR_MAP_BASIC_;
-  struct MELT_OBJECT_STRUCT(5) dobj_3783__DISCR_MAP_BASIC_BLOCKS;
-  struct MELT_STRING_STRUCT(22) dstr_3784__DISCR_MAP_BASIC_;
-  struct MELT_OBJECT_STRUCT(3) dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM;
-  struct MELT_STRING_STRUCT(27) dstr_3786__DISCR_PPL_CONSTR;
-  struct MELT_OBJECT_STRUCT(5) dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM;
-  struct MELT_STRING_STRUCT(27) dstr_3788__DISCR_PPL_CONSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3789__DISCR_PPL_POLYHEDRON;
-  struct MELT_STRING_STRUCT(20) dstr_3790__DISCR_PPL_POLYHE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3791__DISCR_PPL_POLYHEDRON;
-  struct MELT_STRING_STRUCT(20) dstr_3792__DISCR_PPL_POLYHE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3793__DISCR_FILE;
-  struct MELT_STRING_STRUCT(10) dstr_3794__DISCR_FILE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3795__DISCR_FILE;
-  struct MELT_STRING_STRUCT(10) dstr_3796__DISCR_FILE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3797__DISCR_RAWFILE;
-  struct MELT_STRING_STRUCT(13) dstr_3798__DISCR_RAWFILE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3799__DISCR_RAWFILE;
-  struct MELT_STRING_STRUCT(13) dstr_3800__DISCR_RAWFILE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3801__DISCR_CLASS_SEQUENCE;
-  struct MELT_STRING_STRUCT(20) dstr_3802__DISCR_CLASS_SEQU;
-  struct MELT_OBJECT_STRUCT(5) dobj_3803__DISCR_CLASS_SEQUENCE;
-  struct MELT_STRING_STRUCT(20) dstr_3804__DISCR_CLASS_SEQU;
-  struct MELT_OBJECT_STRUCT(3) dsym_3805__DISCR_METHOD_MAP;
-  struct MELT_STRING_STRUCT(16) dstr_3806__DISCR_METHOD_MAP;
-  struct MELT_OBJECT_STRUCT(5) dobj_3807__DISCR_METHOD_MAP;
-  struct MELT_STRING_STRUCT(16) dstr_3808__DISCR_METHOD_MAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_3809__DISCR_CHARACTER_INTEGER;
-  struct MELT_STRING_STRUCT(23) dstr_3810__DISCR_CHARACTER_;
-  struct MELT_OBJECT_STRUCT(5) dobj_3811__DISCR_CHARACTER_INTEGER;
-  struct MELT_STRING_STRUCT(23) dstr_3812__DISCR_CHARACTER_;
-  struct MELT_OBJECT_STRUCT(3) dsym_3813__DISCR_MIXED_INTEGER;
-  struct MELT_STRING_STRUCT(19) dstr_3814__DISCR_MIXED_INTE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3815__DISCR_MIXED_INTEGER;
-  struct MELT_STRING_STRUCT(19) dstr_3816__DISCR_MIXED_INTE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3817__DISCR_MIXED_BIGINT;
-  struct MELT_STRING_STRUCT(18) dstr_3818__DISCR_MIXED_BIGI;
-  struct MELT_OBJECT_STRUCT(5) dobj_3819__DISCR_MIXED_BIGINT;
-  struct MELT_STRING_STRUCT(18) dstr_3820__DISCR_MIXED_BIGI;
-  struct MELT_OBJECT_STRUCT(3) dsym_3821__DISCR_MIXED_LOCATION;
-  struct MELT_STRING_STRUCT(20) dstr_3822__DISCR_MIXED_LOCA;
-  struct MELT_OBJECT_STRUCT(5) dobj_3823__DISCR_MIXED_LOCATION;
-  struct MELT_STRING_STRUCT(20) dstr_3824__DISCR_MIXED_LOCA;
-  struct MELT_OBJECT_STRUCT(3) dsym_3825__DISCR_CLOSURE;
-  struct MELT_STRING_STRUCT(13) dstr_3826__DISCR_CLOSURE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3827__DISCR_CLOSURE;
-  struct MELT_STRING_STRUCT(13) dstr_3828__DISCR_CLOSURE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3829__DISCR_ROUTINE;
-  struct MELT_STRING_STRUCT(13) dstr_3830__DISCR_ROUTINE;
-  struct MELT_OBJECT_STRUCT(5) dobj_3831__DISCR_ROUTINE;
-  struct MELT_STRING_STRUCT(13) dstr_3832__DISCR_ROUTINE;
-  struct MELT_ROUTINE_STRUCT(4) drout_3833__INSTALL_CTYPE_DESCR;
-  struct MELT_CLOSURE_STRUCT(0) dclo_3834__INSTALL_CTYPE_DESCR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3835__CTYPE_VALUE;
-  struct MELT_STRING_STRUCT(11) dstr_3836__CTYPE_VALUE;
-  struct MELT_OBJECT_STRUCT(11) dobj_3837__CTYPE_VALUE;
-  struct MELT_STRING_STRUCT(11) dstr_3838__CTYPE_VALUE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3839__VALUE;
-  struct MELT_STRING_STRUCT(5) dstr_3840__VALUE;
-  struct MELT_STRING_STRUCT(10) dstr_3841__melt_ptr_t;
-  struct MELT_STRING_STRUCT(8) dstr_3842__BPAR_PTR;
-  struct MELT_STRING_STRUCT(11) dstr_3843__BPARSTR_PTR;
-  struct MELT_STRING_STRUCT(7) dstr_3844__bp_aptr;
-  struct MELT_STRING_STRUCT(7) dstr_3845__bp_aptr;
-  struct MELT_STRING_STRUCT(17) dstr_3846__gt_ggc_mx_melt_u;
-  struct MELT_OBJECT_STRUCT(3) dsym_3847__CTYPE_LONG;
-  struct MELT_STRING_STRUCT(10) dstr_3848__CTYPE_LONG;
-  struct MELT_OBJECT_STRUCT(11) dobj_3849__CTYPE_LONG;
-  struct MELT_STRING_STRUCT(10) dstr_3850__CTYPE_LONG;
-  struct MELT_OBJECT_STRUCT(3) dsym_3851__LONG;
-  struct MELT_STRING_STRUCT(4) dstr_3852__LONG;
-  struct MELT_STRING_STRUCT(4) dstr_3853__long;
-  struct MELT_STRING_STRUCT(9) dstr_3854__BPAR_LONG;
-  struct MELT_STRING_STRUCT(12) dstr_3855__BPARSTR_LONG;
-  struct MELT_STRING_STRUCT(7) dstr_3856__bp_long;
-  struct MELT_STRING_STRUCT(10) dstr_3857__bp_longptr;
-  struct MELT_OBJECT_STRUCT(3) dsym_3858__CTYPE_TREE;
-  struct MELT_STRING_STRUCT(10) dstr_3859__CTYPE_TREE;
-  struct MELT_OBJECT_STRUCT(11) dobj_3860__CTYPE_TREE;
-  struct MELT_STRING_STRUCT(10) dstr_3861__CTYPE_TREE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3862__TREE;
-  struct MELT_STRING_STRUCT(4) dstr_3863__TREE;
-  struct MELT_STRING_STRUCT(4) dstr_3864__tree;
-  struct MELT_STRING_STRUCT(9) dstr_3865__BPAR_TREE;
-  struct MELT_STRING_STRUCT(12) dstr_3866__BPARSTR_TREE;
-  struct MELT_STRING_STRUCT(7) dstr_3867__bp_tree;
-  struct MELT_STRING_STRUCT(10) dstr_3868__bp_treeptr;
-  struct MELT_STRING_STRUCT(19) dstr_3869__gt_ggc_mx_tree_n;
-  struct MELT_OBJECT_STRUCT(3) dsym_3870__CTYPE_GIMPLE;
-  struct MELT_STRING_STRUCT(12) dstr_3871__CTYPE_GIMPLE;
-  struct MELT_OBJECT_STRUCT(11) dobj_3872__CTYPE_GIMPLE;
-  struct MELT_STRING_STRUCT(12) dstr_3873__CTYPE_GIMPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3874__GIMPLE;
-  struct MELT_STRING_STRUCT(6) dstr_3875__GIMPLE;
-  struct MELT_STRING_STRUCT(6) dstr_3876__gimple;
-  struct MELT_STRING_STRUCT(11) dstr_3877__BPAR_GIMPLE;
-  struct MELT_STRING_STRUCT(14) dstr_3878__BPARSTR_GIMPLE;
-  struct MELT_STRING_STRUCT(9) dstr_3879__bp_gimple;
-  struct MELT_STRING_STRUCT(12) dstr_3880__bp_gimpleptr;
-  struct MELT_STRING_STRUCT(28) dstr_3881__gt_ggc_mx_gimple;
-  struct MELT_OBJECT_STRUCT(3) dsym_3882__CTYPE_GIMPLE_SEQ;
-  struct MELT_STRING_STRUCT(16) dstr_3883__CTYPE_GIMPLE_SEQ;
-  struct MELT_OBJECT_STRUCT(11) dobj_3884__CTYPE_GIMPLE_SEQ;
-  struct MELT_STRING_STRUCT(16) dstr_3885__CTYPE_GIMPLE_SEQ;
-  struct MELT_OBJECT_STRUCT(3) dsym_3886__GIMPLE_SEQ;
-  struct MELT_STRING_STRUCT(10) dstr_3887__GIMPLE_SEQ;
-  struct MELT_STRING_STRUCT(10) dstr_3888__gimple_seq;
-  struct MELT_STRING_STRUCT(14) dstr_3889__BPAR_GIMPLESEQ;
-  struct MELT_STRING_STRUCT(17) dstr_3890__BPARSTR_GIMPLESE;
-  struct MELT_STRING_STRUCT(12) dstr_3891__bp_gimpleseq;
-  struct MELT_STRING_STRUCT(15) dstr_3892__bp_gimpleseqptr;
-  struct MELT_STRING_STRUCT(22) dstr_3893__gt_ggc_mx_gimple;
-  struct MELT_OBJECT_STRUCT(3) dsym_3894__CTYPE_BASIC_BLOCK;
-  struct MELT_STRING_STRUCT(17) dstr_3895__CTYPE_BASIC_BLOC;
-  struct MELT_OBJECT_STRUCT(11) dobj_3896__CTYPE_BASIC_BLOCK;
-  struct MELT_STRING_STRUCT(17) dstr_3897__CTYPE_BASIC_BLOC;
-  struct MELT_OBJECT_STRUCT(3) dsym_3898__BASIC_BLOCK;
-  struct MELT_STRING_STRUCT(11) dstr_3899__BASIC_BLOCK;
-  struct MELT_STRING_STRUCT(11) dstr_3900__basic_block;
-  struct MELT_STRING_STRUCT(7) dstr_3901__BPAR_BB;
-  struct MELT_STRING_STRUCT(10) dstr_3902__BPARSTR_BB;
-  struct MELT_STRING_STRUCT(5) dstr_3903__bp_bb;
-  struct MELT_STRING_STRUCT(8) dstr_3904__bp_bbptr;
-  struct MELT_STRING_STRUCT(25) dstr_3905__gt_ggc_mx_basic_;
-  struct MELT_OBJECT_STRUCT(3) dsym_3906__CTYPE_EDGE;
-  struct MELT_STRING_STRUCT(10) dstr_3907__CTYPE_EDGE;
-  struct MELT_OBJECT_STRUCT(11) dobj_3908__CTYPE_EDGE;
-  struct MELT_STRING_STRUCT(10) dstr_3909__CTYPE_EDGE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3910__EDGE;
-  struct MELT_STRING_STRUCT(4) dstr_3911__EDGE;
-  struct MELT_STRING_STRUCT(4) dstr_3912__edge;
-  struct MELT_STRING_STRUCT(9) dstr_3913__BPAR_EDGE;
-  struct MELT_STRING_STRUCT(12) dstr_3914__BPARSTR_EDGE;
-  struct MELT_STRING_STRUCT(7) dstr_3915__bp_edge;
-  struct MELT_STRING_STRUCT(10) dstr_3916__bp_edgeptr;
-  struct MELT_STRING_STRUCT(18) dstr_3917__gt_ggc_mx_edge_d;
-  struct MELT_OBJECT_STRUCT(3) dsym_3918__CTYPE_PPL_COEFFICIENT;
-  struct MELT_STRING_STRUCT(21) dstr_3919__CTYPE_PPL_COEFFI;
-  struct MELT_OBJECT_STRUCT(11) dobj_3920__CTYPE_PPL_COEFFICIENT;
-  struct MELT_STRING_STRUCT(21) dstr_3921__CTYPE_PPL_COEFFI;
-  struct MELT_OBJECT_STRUCT(3) dsym_3922__PPL_COEFFICIENT;
-  struct MELT_STRING_STRUCT(15) dstr_3923__PPL_COEFFICIENT;
-  struct MELT_STRING_STRUCT(17) dstr_3924__ppl_Coefficient_;
-  struct MELT_STRING_STRUCT(20) dstr_3925__BPAR_PPL_COEFFIC;
-  struct MELT_STRING_STRUCT(23) dstr_3926__BPARSTR_PPL_COEF;
-  struct MELT_STRING_STRUCT(18) dstr_3927__bp_ppl_coefficie;
-  struct MELT_STRING_STRUCT(21) dstr_3928__bp_ppl_coefficie;
-  struct MELT_OBJECT_STRUCT(3) dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION;
-  struct MELT_STRING_STRUCT(27) dstr_3930__CTYPE_PPL_LINEAR;
-  struct MELT_OBJECT_STRUCT(11) dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION;
-  struct MELT_STRING_STRUCT(27) dstr_3932__CTYPE_PPL_LINEAR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3933__PPL_LINEAR_EXPRESSION;
-  struct MELT_STRING_STRUCT(21) dstr_3934__PPL_LINEAR_EXPRE;
-  struct MELT_STRING_STRUCT(23) dstr_3935__ppl_Linear_Expre;
-  struct MELT_STRING_STRUCT(26) dstr_3936__BPAR_PPL_LINEAR_;
-  struct MELT_STRING_STRUCT(29) dstr_3937__BPARSTR_PPL_LINE;
-  struct MELT_STRING_STRUCT(24) dstr_3938__bp_ppl_linear_ex;
-  struct MELT_STRING_STRUCT(27) dstr_3939__bp_ppl_linear_ex;
-  struct MELT_OBJECT_STRUCT(3) dsym_3940__CTYPE_PPL_CONSTRAINT;
-  struct MELT_STRING_STRUCT(20) dstr_3941__CTYPE_PPL_CONSTR;
-  struct MELT_OBJECT_STRUCT(11) dobj_3942__CTYPE_PPL_CONSTRAINT;
-  struct MELT_STRING_STRUCT(20) dstr_3943__CTYPE_PPL_CONSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3944__PPL_CONSTRAINT;
-  struct MELT_STRING_STRUCT(14) dstr_3945__PPL_CONSTRAINT;
-  struct MELT_STRING_STRUCT(16) dstr_3946__ppl_Constraint_t;
-  struct MELT_STRING_STRUCT(19) dstr_3947__BPAR_PPL_CONSTRA;
-  struct MELT_STRING_STRUCT(22) dstr_3948__BPARSTR_PPL_CONS;
-  struct MELT_STRING_STRUCT(17) dstr_3949__bp_ppl_constrain;
-  struct MELT_STRING_STRUCT(20) dstr_3950__bp_ppl_constrain;
-  struct MELT_OBJECT_STRUCT(3) dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM;
-  struct MELT_STRING_STRUCT(27) dstr_3952__CTYPE_PPL_CONSTR;
-  struct MELT_OBJECT_STRUCT(11) dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM;
-  struct MELT_STRING_STRUCT(27) dstr_3954__CTYPE_PPL_CONSTR;
-  struct MELT_OBJECT_STRUCT(3) dsym_3955__PPL_CONSTRAINT_SYSTEM;
-  struct MELT_STRING_STRUCT(21) dstr_3956__PPL_CONSTRAINT_S;
-  struct MELT_STRING_STRUCT(23) dstr_3957__ppl_Constraint_S;
-  struct MELT_STRING_STRUCT(26) dstr_3958__BPAR_PPL_CONSTRA;
-  struct MELT_STRING_STRUCT(29) dstr_3959__BPARSTR_PPL_CONS;
-  struct MELT_STRING_STRUCT(24) dstr_3960__bp_ppl_constrain;
-  struct MELT_STRING_STRUCT(27) dstr_3961__bp_ppl_constrain;
-  struct MELT_OBJECT_STRUCT(3) dsym_3962__CTYPE_PPL_POLYHEDRON;
-  struct MELT_STRING_STRUCT(20) dstr_3963__CTYPE_PPL_POLYHE;
-  struct MELT_OBJECT_STRUCT(11) dobj_3964__CTYPE_PPL_POLYHEDRON;
-  struct MELT_STRING_STRUCT(20) dstr_3965__CTYPE_PPL_POLYHE;
-  struct MELT_OBJECT_STRUCT(3) dsym_3966__PPL_POLYHEDRON;
-  struct MELT_STRING_STRUCT(14) dstr_3967__PPL_POLYHEDRON;
-  struct MELT_STRING_STRUCT(16) dstr_3968__ppl_Polyhedron_t;
-  struct MELT_STRING_STRUCT(19) dstr_3969__BPAR_PPL_POLYHED;
-  struct MELT_STRING_STRUCT(22) dstr_3970__BPARSTR_PPL_POLY;
-  struct MELT_STRING_STRUCT(17) dstr_3971__bp_ppl_polyhedro;
-  struct MELT_STRING_STRUCT(20) dstr_3972__bp_ppl_polyhedro;
-  struct MELT_OBJECT_STRUCT(3) dsym_3973__CTYPE_VOID;
-  struct MELT_STRING_STRUCT(10) dstr_3974__CTYPE_VOID;
-  struct MELT_OBJECT_STRUCT(11) dobj_3975__CTYPE_VOID;
-  struct MELT_STRING_STRUCT(10) dstr_3976__CTYPE_VOID;
-  struct MELT_OBJECT_STRUCT(3) dsym_3977__VOID;
-  struct MELT_STRING_STRUCT(4) dstr_3978__VOID;
-  struct MELT_STRING_STRUCT(4) dstr_3979__void;
-  struct MELT_OBJECT_STRUCT(3) dsym_3980__CTYPE_CSTRING;
-  struct MELT_STRING_STRUCT(13) dstr_3981__CTYPE_CSTRING;
-  struct MELT_OBJECT_STRUCT(11) dobj_3982__CTYPE_CSTRING;
-  struct MELT_STRING_STRUCT(13) dstr_3983__CTYPE_CSTRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_3984__CSTRING;
-  struct MELT_STRING_STRUCT(7) dstr_3985__CSTRING;
-  struct MELT_STRING_STRUCT(12) dstr_3986__BPAR_CSTRING;
-  struct MELT_STRING_STRUCT(15) dstr_3987__BPARSTR_CSTRING;
-  struct MELT_STRING_STRUCT(10) dstr_3988__bp_cstring;
-  struct MELT_ROUTINE_STRUCT(2) drout_3989__ADD_NEW_SYMBOL_TOKEN;
-  struct MELT_CLOSURE_STRUCT(0) dclo_3990__ADD_NEW_SYMBOL_TOKEN;
-  struct MELT_ROUTINE_STRUCT(2) drout_3991__ADD_NEW_KEYWORD_TOKEN;
-  struct MELT_CLOSURE_STRUCT(0) dclo_3992__ADD_NEW_KEYWORD_TOKEN;
-  struct MELT_ROUTINE_STRUCT(2) drout_3993__INTERN_SYMBOL;
-  struct MELT_CLOSURE_STRUCT(0) dclo_3994__INTERN_SYMBOL;
-  struct MELT_ROUTINE_STRUCT(2) drout_3995__INTERN_KEYWORD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_3996__INTERN_KEYWORD;
-  struct MELT_OBJECT_STRUCT(3) dsym_3997__CONTAINER_CLONEMAPSTRING;
-  struct MELT_STRING_STRUCT(24) dstr_3998__CONTAINER_CLONEM;
-  struct MELT_OBJECT_STRUCT(1) dobj_3999__CONTAINER_CLONEMAPSTRING;
-  struct MELT_ROUTINE_STRUCT(6) drout_4000__CLONE_SYMBOL;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4001__CLONE_SYMBOL;
-  struct MELT_ROUTINE_STRUCT(3) drout_4002__INITFRESH_CONTENVMAKER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4003__INITFRESH_CONTENVMAKER;
-  struct MELT_ROUTINE_STRUCT(17) drout_4004__INITVALUE_EXPORTER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4005__INITVALUE_EXPORTER;
-  struct MELT_ROUTINE_STRUCT(6) drout_4006__INITVALUE_IMPORTER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4007__INITVALUE_IMPORTER;
-  struct MELT_ROUTINE_STRUCT(7) drout_4008__INITMACRO_EXPORTER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4009__INITMACRO_EXPORTER;
-  struct MELT_ROUTINE_STRUCT(6) drout_4010__INITPATMACRO_EXPORTER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4011__INITPATMACRO_EXPORTER;
-  struct MELT_OBJECT_STRUCT(3) dsym_4012__CLASS_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(19) dstr_4013__CLASS_DELAYED_QU;
-  struct MELT_OBJECT_STRUCT(8) dobj_4014__CLASS_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(19) dstr_4015__CLASS_DELAYED_QU;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_4016__CLASS_DELAYED_QUEUE;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_4017__CLASS_DELAYED_QUEUE;
-  struct MELT_OBJECT_STRUCT(3) dsym_4018__DELQU_FIRST;
-  struct MELT_STRING_STRUCT(11) dstr_4019__DELQU_FIRST;
-  struct MELT_OBJECT_STRUCT(4) dobj_4020__DELQU_FIRST;
-  struct MELT_STRING_STRUCT(11) dstr_4021__DELQU_FIRST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4022__DELQU_LAST;
-  struct MELT_STRING_STRUCT(10) dstr_4023__DELQU_LAST;
-  struct MELT_OBJECT_STRUCT(4) dobj_4024__DELQU_LAST;
-  struct MELT_STRING_STRUCT(10) dstr_4025__DELQU_LAST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4026__DELQU_DATA;
-  struct MELT_STRING_STRUCT(10) dstr_4027__DELQU_DATA;
-  struct MELT_OBJECT_STRUCT(4) dobj_4028__DELQU_DATA;
-  struct MELT_STRING_STRUCT(10) dstr_4029__DELQU_DATA;
-  struct MELT_OBJECT_STRUCT(3) dsym_4030__FINAL_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(19) dstr_4031__FINAL_DELAYED_QU;
-  struct MELT_OBJECT_STRUCT(5) dobj_4032__FINAL_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(19) dstr_4033__final_delayed_qu;
-  struct MELT_ROUTINE_STRUCT(10) drout_4034__INIT_EXITFINALIZER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4035__INIT_EXITFINALIZER;
-  struct MELT_ROUTINE_STRUCT(1) drout_4036__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(0) drout_4037__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4038__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4039__AT_EXIT_FIRST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4040__AT_EXIT_FIRST;
-  struct MELT_ROUTINE_STRUCT(1) drout_4041__AT_EXIT_LAST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4042__AT_EXIT_LAST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4043__START_UNIT_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(24) dstr_4044__START_UNIT_DELAY;
-  struct MELT_OBJECT_STRUCT(5) dobj_4045__START_UNIT_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(24) dstr_4046__start_unit_delay;
-  struct MELT_ROUTINE_STRUCT(10) drout_4047__INIT_UNITSTARTER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4048__INIT_UNITSTARTER;
-  struct MELT_ROUTINE_STRUCT(1) drout_4049__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(0) drout_4050__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4051__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4052__AT_START_UNIT_FIRST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4053__AT_START_UNIT_FIRST;
-  struct MELT_ROUTINE_STRUCT(1) drout_4054__AT_START_UNIT_LAST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4055__AT_START_UNIT_LAST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4056__FINISH_UNIT_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(25) dstr_4057__FINISH_UNIT_DELA;
-  struct MELT_OBJECT_STRUCT(5) dobj_4058__FINISH_UNIT_DELAYED_QUEUE;
-  struct MELT_STRING_STRUCT(25) dstr_4059__finish_unit_dela;
-  struct MELT_ROUTINE_STRUCT(10) drout_4060__INIT_UNITFINISHER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4061__INIT_UNITFINISHER;
-  struct MELT_ROUTINE_STRUCT(1) drout_4062__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(0) drout_4063__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4064__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4065__AT_FINISH_UNIT_FIRST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4066__AT_FINISH_UNIT_FIRST;
-  struct MELT_ROUTINE_STRUCT(1) drout_4067__AT_FINISH_UNIT_LAST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4068__AT_FINISH_UNIT_LAST;
-  struct MELT_ROUTINE_STRUCT(5) drout_4069__DISPLAY_DEBUG_MESSAGE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4070__DISPLAY_DEBUG_MESSAGE;
-  struct MELT_ROUTINE_STRUCT(5) drout_4071__DEBUGMSG;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4072__DEBUGMSG;
-  struct MELT_OBJECT_STRUCT(3) dsym_4073__INITIAL_SYSTEM_DATA;
-  struct MELT_STRING_STRUCT(19) dstr_4074__INITIAL_SYSTEM_D;
-  struct MELT_OBJECT_STRUCT(27) dobj_4075__INITIAL_SYSTEM_DATA;
-  struct MELT_STRING_STRUCT(19) dstr_4076__INITIAL_SYSTEM_D;
-  struct MELT_ROUTINE_STRUCT(0) drout_4077__MAPOBJECT_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4078__MAPOBJECT_EVERY;
-  struct MELT_ROUTINE_STRUCT(0) drout_4079__MAPOBJECT_ITERATE_TEST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4080__MAPOBJECT_ITERATE_TEST;
-  struct MELT_ROUTINE_STRUCT(0) drout_4081__MAPSTRING_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4082__MAPSTRING_EVERY;
-  struct MELT_ROUTINE_STRUCT(0) drout_4083__MAPSTRING_ITERATE_TEST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4084__MAPSTRING_ITERATE_TEST;
-  struct MELT_OBJECT_STRUCT(7) dobj_4085__FOREACH_IN_LIST;
-  struct MELT_STRING_STRUCT(15) dstr_4086__FOREACH_IN_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4087__LIS;
-  struct MELT_STRING_STRUCT(3) dstr_4088__LIS;
-  struct MELT_OBJECT_STRUCT(2) dobj_4089;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_4090__FOREACH_IN_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4091__EACHLIST;
-  struct MELT_STRING_STRUCT(8) dstr_4092__EACHLIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4093__CURPAIR;
-  struct MELT_STRING_STRUCT(7) dstr_4094__CURPAIR;
-  struct MELT_OBJECT_STRUCT(2) dobj_4095;
-  struct MELT_OBJECT_STRUCT(3) dsym_4096__CURCOMP;
-  struct MELT_STRING_STRUCT(7) dstr_4097__CURCOMP;
-  struct MELT_OBJECT_STRUCT(2) dobj_4098;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_4099__FOREACH_IN_LIST;
-  struct MELT_STRING_STRUCT(9) dstr_4100__start_;
-  struct MELT_STRING_STRUCT(12) dstr_4101__for_;
-  struct MELT_STRING_STRUCT(19) dstr_4102__melt_list_fir;
-  struct MELT_STRING_STRUCT(21) dstr_4103__melt_magic_d;
-  struct MELT_STRING_STRUCT(25) dstr_4104__OBMAG_PAIR_;
-  struct MELT_STRING_STRUCT(18) dstr_4105__melt_pair_tai;
-  struct MELT_STRING_STRUCT(6) dstr_4106__;
-  struct MELT_STRING_STRUCT(18) dstr_4107__melt_pair_hea;
-  struct MELT_STRING_STRUCT(3) dstr_4108__;
-  struct MELT_MULTIPLE_STRUCT(17) dtup_4109__FOREACH_IN_LIST;
-  struct MELT_STRING_STRUCT(10) dstr_4110__end_;
-  struct MELT_STRING_STRUCT(3) dstr_4111__;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_4112__FOREACH_IN_LIST;
-  struct MELT_ROUTINE_STRUCT(0) drout_4113__LIST_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4114__LIST_EVERY;
-  struct MELT_ROUTINE_STRUCT(0) drout_4115__LIST_ITERATE_TEST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4116__LIST_ITERATE_TEST;
-  struct MELT_ROUTINE_STRUCT(1) drout_4117__LIST_APPEND2LIST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4118__LIST_APPEND2LIST;
-  struct MELT_ROUTINE_STRUCT(1) drout_4119__LIST_MAP;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4120__LIST_MAP;
-  struct MELT_ROUTINE_STRUCT(0) drout_4121__LIST_FIND;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4122__LIST_FIND;
-  struct MELT_ROUTINE_STRUCT(4) drout_4123__LIST_TO_MULTIPLE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4124__LIST_TO_MULTIPLE;
-  struct MELT_ROUTINE_STRUCT(0) drout_4125__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4126__PAIRLIST_TO_MULTIPLE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4127__PAIRLIST_TO_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(7) dobj_4128__FOREACH_IN_MULTIPLE;
-  struct MELT_STRING_STRUCT(19) dstr_4129__FOREACH_IN_MULTI;
-  struct MELT_OBJECT_STRUCT(2) dobj_4130;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_4131__FOREACH_IN_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_4132__EACHTUP;
-  struct MELT_STRING_STRUCT(7) dstr_4133__EACHTUP;
-  struct MELT_OBJECT_STRUCT(3) dsym_4134__COMP;
-  struct MELT_STRING_STRUCT(4) dstr_4135__COMP;
-  struct MELT_OBJECT_STRUCT(2) dobj_4136;
-  struct MELT_OBJECT_STRUCT(2) dobj_4137;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_4138__FOREACH_IN_MULTIPLE;
-  struct MELT_STRING_STRUCT(10) dstr_4139__start_;
-  struct MELT_STRING_STRUCT(14) dstr_4140__long_;
-  struct MELT_STRING_STRUCT(39) dstr_4141__ln_melt_multi;
-  struct MELT_STRING_STRUCT(11) dstr_4142__for_;
-  struct MELT_STRING_STRUCT(10) dstr_4143__0_;
-  struct MELT_STRING_STRUCT(11) dstr_4144__0_;
-  struct MELT_STRING_STRUCT(4) dstr_4145__;
-  struct MELT_STRING_STRUCT(9) dstr_4146__ln_;
-  struct MELT_STRING_STRUCT(9) dstr_4147__;
-  struct MELT_STRING_STRUCT(34) dstr_4148__melt_multiple;
-  struct MELT_STRING_STRUCT(4) dstr_4149__;
-  struct MELT_STRING_STRUCT(6) dstr_4150__;
-  struct MELT_MULTIPLE_STRUCT(23) dtup_4151__FOREACH_IN_MULTIPLE;
-  struct MELT_STRING_STRUCT(5) dstr_4152__if_;
-  struct MELT_STRING_STRUCT(23) dstr_4153__0_break_;
-  struct MELT_STRING_STRUCT(4) dstr_4154__;
-  struct MELT_MULTIPLE_STRUCT(5) dtup_4155__FOREACH_IN_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(7) dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD;
-  struct MELT_STRING_STRUCT(28) dstr_4157__FOREACH_IN_MULTI;
-  struct MELT_OBJECT_STRUCT(2) dobj_4158;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_4159__FOREACH_IN_MULTIPLE_BACKWARD;
-  struct MELT_OBJECT_STRUCT(3) dsym_4160__EACHTUPBACK;
-  struct MELT_STRING_STRUCT(11) dstr_4161__EACHTUPBACK;
-  struct MELT_OBJECT_STRUCT(2) dobj_4162;
-  struct MELT_OBJECT_STRUCT(2) dobj_4163;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_4164__FOREACH_IN_MULTIPLE_BACKWARD;
-  struct MELT_STRING_STRUCT(10) dstr_4165__start_;
-  struct MELT_STRING_STRUCT(14) dstr_4166__long_;
-  struct MELT_STRING_STRUCT(39) dstr_4167__ln_melt_multi;
-  struct MELT_STRING_STRUCT(12) dstr_4168__long_;
-  struct MELT_STRING_STRUCT(17) dstr_4169__ix_0_for_;
-  struct MELT_STRING_STRUCT(6) dstr_4170__ix_;
-  struct MELT_STRING_STRUCT(12) dstr_4171__ln_1_;
-  struct MELT_STRING_STRUCT(13) dstr_4172__ix_0_;
-  struct MELT_STRING_STRUCT(12) dstr_4173__ix_;
-  struct MELT_STRING_STRUCT(34) dstr_4174__melt_multiple;
-  struct MELT_STRING_STRUCT(4) dstr_4175__;
-  struct MELT_STRING_STRUCT(9) dstr_4176__ix_;
-  struct MELT_STRING_STRUCT(5) dstr_4177__;
-  struct MELT_STRING_STRUCT(4) dstr_4178__ix_;
-  struct MELT_MULTIPLE_STRUCT(27) dtup_4179__FOREACH_IN_MULTIPLE_BACKWARD;
-  struct MELT_STRING_STRUCT(10) dstr_4180__end_;
-  struct MELT_STRING_STRUCT(4) dstr_4181__;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_4182__FOREACH_IN_MULTIPLE_BACKWARD;
-  struct MELT_ROUTINE_STRUCT(0) drout_4183__MULTIPLE_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4184__MULTIPLE_EVERY;
-  struct MELT_ROUTINE_STRUCT(0) drout_4185__MULTIPLE_BACKWARD_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4186__MULTIPLE_BACKWARD_EVERY;
-  struct MELT_ROUTINE_STRUCT(0) drout_4187__MULTIPLE_EVERY_BOTH;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4188__MULTIPLE_EVERY_BOTH;
-  struct MELT_ROUTINE_STRUCT(0) drout_4189__MULTIPLE_ITERATE_TEST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4190__MULTIPLE_ITERATE_TEST;
-  struct MELT_ROUTINE_STRUCT(1) drout_4191__MULTIPLE_MAP;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4192__MULTIPLE_MAP;
-  struct MELT_ROUTINE_STRUCT(1) drout_4193__MULTIPLE_TO_LIST;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4194__MULTIPLE_TO_LIST;
-  struct MELT_ROUTINE_STRUCT(0) drout_4195__CLOSURE_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4196__CLOSURE_EVERY;
-  struct MELT_ROUTINE_STRUCT(0) drout_4197__ROUTINE_EVERY;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4198__ROUTINE_EVERY;
-  struct MELT_ROUTINE_STRUCT(1) drout_4199__LIST1;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4200__LIST1;
-  struct MELT_ROUTINE_STRUCT(1) drout_4201__LIST2;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4202__LIST2;
-  struct MELT_ROUTINE_STRUCT(1) drout_4203__LIST3;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4204__LIST3;
-  struct MELT_ROUTINE_STRUCT(1) drout_4205__LIST4;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4206__LIST4;
-  struct MELT_ROUTINE_STRUCT(1) drout_4207__LIST5;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4208__LIST5;
-  struct MELT_ROUTINE_STRUCT(1) drout_4209__LIST6;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4210__LIST6;
-  struct MELT_ROUTINE_STRUCT(3) drout_4211__INSTALL_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4212__INSTALL_METHOD;
-  struct MELT_OBJECT_STRUCT(3) dsym_4213__DBG_OUTPUT;
-  struct MELT_STRING_STRUCT(10) dstr_4214__DBG_OUTPUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4215__RECV;
-  struct MELT_STRING_STRUCT(4) dstr_4216__RECV;
-  struct MELT_OBJECT_STRUCT(2) dobj_4217;
-  struct MELT_OBJECT_STRUCT(3) dsym_4218__DBGINFO;
-  struct MELT_STRING_STRUCT(7) dstr_4219__DBGINFO;
+  struct MELT_OBJECT_STRUCT(3) dsym_3256__LIST_FIRST;
+  struct MELT_STRING_STRUCT(10) dstr_3257__LIST_FIRST;
+  struct MELT_OBJECT_STRUCT(5) dobj_3258__LIST_FIRST;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3259__LIST_FIRST;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3260__LIST_FIRST;
+  struct MELT_OBJECT_STRUCT(2) dobj_3261;
+  struct MELT_STRING_STRUCT(30) dstr_3262__melt_list_first;
+  struct MELT_STRING_STRUCT(3) dstr_3263__;
+  struct MELT_STRING_STRUCT(10) dstr_3264__LIST_FIRST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3265__LIST_LAST;
+  struct MELT_STRING_STRUCT(9) dstr_3266__LIST_LAST;
+  struct MELT_OBJECT_STRUCT(5) dobj_3267__LIST_LAST;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3268__LIST_LAST;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3269__LIST_LAST;
+  struct MELT_OBJECT_STRUCT(2) dobj_3270;
+  struct MELT_STRING_STRUCT(29) dstr_3271__melt_list_last_;
+  struct MELT_STRING_STRUCT(3) dstr_3272__;
+  struct MELT_STRING_STRUCT(9) dstr_3273__LIST_LAST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3274__LIST_LENGTH;
+  struct MELT_STRING_STRUCT(11) dstr_3275__LIST_LENGTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_3276__LIST_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3277__LIST_LENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3278__LIST_LENGTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_3279;
+  struct MELT_STRING_STRUCT(31) dstr_3280__melt_list_lengt;
+  struct MELT_STRING_STRUCT(3) dstr_3281__;
+  struct MELT_STRING_STRUCT(11) dstr_3282__LIST_LENGTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_3283__LIST_APPEND;
+  struct MELT_STRING_STRUCT(11) dstr_3284__LIST_APPEND;
+  struct MELT_OBJECT_STRUCT(5) dobj_3285__LIST_APPEND;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3286__LIST_APPEND;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3287__LIST_APPEND;
+  struct MELT_OBJECT_STRUCT(2) dobj_3288;
+  struct MELT_OBJECT_STRUCT(3) dsym_3289__EL;
+  struct MELT_STRING_STRUCT(2) dstr_3290__EL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3291;
+  struct MELT_STRING_STRUCT(32) dstr_3292__meltgc_append_li;
+  struct MELT_STRING_STRUCT(16) dstr_3293__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3294__;
+  struct MELT_STRING_STRUCT(11) dstr_3295__LIST_APPEND;
+  struct MELT_OBJECT_STRUCT(3) dsym_3296__LIST_PREPEND;
+  struct MELT_STRING_STRUCT(12) dstr_3297__LIST_PREPEND;
+  struct MELT_OBJECT_STRUCT(5) dobj_3298__LIST_PREPEND;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3299__LIST_PREPEND;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3300__LIST_PREPEND;
+  struct MELT_OBJECT_STRUCT(2) dobj_3301;
+  struct MELT_OBJECT_STRUCT(2) dobj_3302;
+  struct MELT_STRING_STRUCT(33) dstr_3303__meltgc_prepend_l;
+  struct MELT_STRING_STRUCT(16) dstr_3304__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3305__;
+  struct MELT_STRING_STRUCT(12) dstr_3306__LIST_PREPEND;
+  struct MELT_OBJECT_STRUCT(3) dsym_3307__LIST_POPFIRST;
+  struct MELT_STRING_STRUCT(13) dstr_3308__LIST_POPFIRST;
+  struct MELT_OBJECT_STRUCT(5) dobj_3309__LIST_POPFIRST;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3310__LIST_POPFIRST;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3311__LIST_POPFIRST;
+  struct MELT_OBJECT_STRUCT(2) dobj_3312;
+  struct MELT_STRING_STRUCT(35) dstr_3313__meltgc_popfirst;
+  struct MELT_STRING_STRUCT(3) dstr_3314__;
+  struct MELT_STRING_STRUCT(13) dstr_3315__LIST_POPFIRST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3316__MAKE_LIST;
+  struct MELT_STRING_STRUCT(9) dstr_3317__MAKE_LIST;
+  struct MELT_OBJECT_STRUCT(5) dobj_3318__MAKE_LIST;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3319__MAKE_LIST;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3320__MAKE_LIST;
+  struct MELT_OBJECT_STRUCT(2) dobj_3321;
+  struct MELT_STRING_STRUCT(36) dstr_3322__meltgc_new_list;
+  struct MELT_STRING_STRUCT(3) dstr_3323__;
+  struct MELT_STRING_STRUCT(9) dstr_3324__MAKE_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3325__IS_PAIR;
+  struct MELT_STRING_STRUCT(7) dstr_3326__IS_PAIR;
+  struct MELT_OBJECT_STRUCT(5) dobj_3327__IS_PAIR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3328__IS_PAIR;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3329__IS_PAIR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3330__PA;
+  struct MELT_STRING_STRUCT(2) dstr_3331__PA;
+  struct MELT_OBJECT_STRUCT(2) dobj_3332;
+  struct MELT_STRING_STRUCT(31) dstr_3333__melt_magic_disc;
+  struct MELT_STRING_STRUCT(17) dstr_3334__OBMAG_PAIR;
+  struct MELT_STRING_STRUCT(7) dstr_3335__IS_PAIR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3336__PAIR_HEAD;
+  struct MELT_STRING_STRUCT(9) dstr_3337__PAIR_HEAD;
+  struct MELT_OBJECT_STRUCT(5) dobj_3338__PAIR_HEAD;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3339__PAIR_HEAD;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3340__PAIR_HEAD;
+  struct MELT_OBJECT_STRUCT(2) dobj_3341;
+  struct MELT_STRING_STRUCT(29) dstr_3342__melt_pair_head_;
+  struct MELT_STRING_STRUCT(3) dstr_3343__;
+  struct MELT_STRING_STRUCT(9) dstr_3344__PAIR_HEAD;
+  struct MELT_OBJECT_STRUCT(3) dsym_3345__PAIR_TAIL;
+  struct MELT_STRING_STRUCT(9) dstr_3346__PAIR_TAIL;
+  struct MELT_OBJECT_STRUCT(5) dobj_3347__PAIR_TAIL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3348__PAIR_TAIL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3349__PAIR_TAIL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3350;
+  struct MELT_STRING_STRUCT(29) dstr_3351__melt_pair_tail_;
+  struct MELT_STRING_STRUCT(3) dstr_3352__;
+  struct MELT_STRING_STRUCT(9) dstr_3353__PAIR_TAIL;
+  struct MELT_OBJECT_STRUCT(3) dsym_3354__PAIR_SET_HEAD;
+  struct MELT_STRING_STRUCT(13) dstr_3355__PAIR_SET_HEAD;
+  struct MELT_OBJECT_STRUCT(5) dobj_3356__PAIR_SET_HEAD;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3357__PAIR_SET_HEAD;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3358__PAIR_SET_HEAD;
+  struct MELT_OBJECT_STRUCT(2) dobj_3359;
+  struct MELT_OBJECT_STRUCT(3) dsym_3360__HD;
+  struct MELT_STRING_STRUCT(2) dstr_3361__HD;
+  struct MELT_OBJECT_STRUCT(2) dobj_3362;
+  struct MELT_STRING_STRUCT(34) dstr_3363__meltgc_pair_set_;
+  struct MELT_STRING_STRUCT(4) dstr_3364__;
+  struct MELT_STRING_STRUCT(2) dstr_3365__;
+  struct MELT_STRING_STRUCT(13) dstr_3366__PAIR_SET_HEAD;
+  struct MELT_OBJECT_STRUCT(3) dsym_3367__PAIR_LISTLENGTH;
+  struct MELT_STRING_STRUCT(15) dstr_3368__PAIR_LISTLENGTH;
+  struct MELT_OBJECT_STRUCT(5) dobj_3369__PAIR_LISTLENGTH;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3370__PAIR_LISTLENGTH;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3371__PAIR_LISTLENGTH;
+  struct MELT_OBJECT_STRUCT(2) dobj_3372;
+  struct MELT_STRING_STRUCT(35) dstr_3373__melt_pair_listl;
+  struct MELT_STRING_STRUCT(3) dstr_3374__;
+  struct MELT_STRING_STRUCT(15) dstr_3375__PAIR_LISTLENGTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_3376__MAKE_PAIR;
+  struct MELT_STRING_STRUCT(9) dstr_3377__MAKE_PAIR;
+  struct MELT_OBJECT_STRUCT(5) dobj_3378__MAKE_PAIR;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3379__MAKE_PAIR;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3380__MAKE_PAIR;
+  struct MELT_OBJECT_STRUCT(2) dobj_3381;
+  struct MELT_OBJECT_STRUCT(2) dobj_3382;
+  struct MELT_OBJECT_STRUCT(3) dsym_3383__TL;
+  struct MELT_STRING_STRUCT(2) dstr_3384__TL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3385;
+  struct MELT_STRING_STRUCT(36) dstr_3386__meltgc_new_pair;
+  struct MELT_STRING_STRUCT(16) dstr_3387__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(16) dstr_3388__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(3) dstr_3389__;
+  struct MELT_STRING_STRUCT(9) dstr_3390__MAKE_PAIR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3391__IS_MIXINT;
+  struct MELT_STRING_STRUCT(9) dstr_3392__IS_MIXINT;
+  struct MELT_OBJECT_STRUCT(5) dobj_3393__IS_MIXINT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3394__IS_MIXINT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3395__IS_MIXINT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3396__MI;
+  struct MELT_STRING_STRUCT(2) dstr_3397__MI;
+  struct MELT_OBJECT_STRUCT(2) dobj_3398;
+  struct MELT_STRING_STRUCT(31) dstr_3399__melt_magic_disc;
+  struct MELT_STRING_STRUCT(19) dstr_3400__OBMAG_MIXI;
+  struct MELT_STRING_STRUCT(9) dstr_3401__IS_MIXINT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3402__MIXINT_VAL;
+  struct MELT_STRING_STRUCT(10) dstr_3403__MIXINT_VAL;
+  struct MELT_OBJECT_STRUCT(5) dobj_3404__MIXINT_VAL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3405__MIXINT_VAL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3406__MIXINT_VAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3407;
+  struct MELT_STRING_STRUCT(30) dstr_3408__melt_val_mixint;
+  struct MELT_STRING_STRUCT(3) dstr_3409__;
+  struct MELT_STRING_STRUCT(10) dstr_3410__MIXINT_VAL;
+  struct MELT_OBJECT_STRUCT(3) dsym_3411__MAKE_MIXINT;
+  struct MELT_STRING_STRUCT(11) dstr_3412__MAKE_MIXINT;
+  struct MELT_OBJECT_STRUCT(5) dobj_3413__MAKE_MIXINT;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3414__MAKE_MIXINT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3415__MAKE_MIXINT;
+  struct MELT_OBJECT_STRUCT(2) dobj_3416;
+  struct MELT_OBJECT_STRUCT(2) dobj_3417;
+  struct MELT_OBJECT_STRUCT(2) dobj_3418;
+  struct MELT_STRING_STRUCT(38) dstr_3419__meltgc_new_mixi;
+  struct MELT_STRING_STRUCT(16) dstr_3420__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(4) dstr_3421__;
+  struct MELT_STRING_STRUCT(3) dstr_3422__;
+  struct MELT_STRING_STRUCT(11) dstr_3423__MAKE_MIXINT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3424__IS_MIXLOC;
+  struct MELT_STRING_STRUCT(9) dstr_3425__IS_MIXLOC;
+  struct MELT_OBJECT_STRUCT(5) dobj_3426__IS_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3427__IS_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3428__IS_MIXLOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_3429;
+  struct MELT_STRING_STRUCT(31) dstr_3430__melt_magic_disc;
+  struct MELT_STRING_STRUCT(19) dstr_3431__OBMAG_MIXL;
+  struct MELT_STRING_STRUCT(9) dstr_3432__IS_MIXLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_3433__MIXLOC_VAL;
+  struct MELT_STRING_STRUCT(10) dstr_3434__MIXLOC_VAL;
+  struct MELT_OBJECT_STRUCT(5) dobj_3435__MIXLOC_VAL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3436__MIXLOC_VAL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3437__MIXLOC_VAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3438;
+  struct MELT_STRING_STRUCT(30) dstr_3439__melt_val_mixloc;
+  struct MELT_STRING_STRUCT(3) dstr_3440__;
+  struct MELT_STRING_STRUCT(10) dstr_3441__MIXLOC_VAL;
+  struct MELT_OBJECT_STRUCT(3) dsym_3442__MIXLOC_LOCATION;
+  struct MELT_STRING_STRUCT(15) dstr_3443__MIXLOC_LOCATION;
+  struct MELT_OBJECT_STRUCT(5) dobj_3444__MIXLOC_LOCATION;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3445__MIXLOC_LOCATION;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3446__MIXLOC_LOCATION;
+  struct MELT_OBJECT_STRUCT(2) dobj_3447;
+  struct MELT_STRING_STRUCT(42) dstr_3448__long_melt_loc;
+  struct MELT_STRING_STRUCT(3) dstr_3449__;
+  struct MELT_STRING_STRUCT(15) dstr_3450__MIXLOC_LOCATION;
+  struct MELT_OBJECT_STRUCT(3) dsym_3451__MIXLOC_LOCLINE;
+  struct MELT_STRING_STRUCT(14) dstr_3452__MIXLOC_LOCLINE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3453__MIXLOC_LOCLINE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3454__MIXLOC_LOCLINE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3455__MIXLOC_LOCLINE;
+  struct MELT_OBJECT_STRUCT(2) dobj_3456;
+  struct MELT_STRING_STRUCT(48) dstr_3457__LOCATION_LINE_m;
+  struct MELT_STRING_STRUCT(3) dstr_3458__;
+  struct MELT_STRING_STRUCT(14) dstr_3459__MIXLOC_LOCLINE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3460__MIXLOC_LOCFILE;
+  struct MELT_STRING_STRUCT(14) dstr_3461__MIXLOC_LOCFILE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3462__MIXLOC_LOCFILE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3463__MIXLOC_LOCFILE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3464__MIXLOC_LOCFILE;
+  struct MELT_OBJECT_STRUCT(2) dobj_3465;
+  struct MELT_STRING_STRUCT(48) dstr_3466__LOCATION_FILE_m;
+  struct MELT_STRING_STRUCT(3) dstr_3467__;
+  struct MELT_STRING_STRUCT(14) dstr_3468__MIXLOC_LOCFILE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3469__MAKE_MIXLOC;
+  struct MELT_STRING_STRUCT(11) dstr_3470__MAKE_MIXLOC;
+  struct MELT_OBJECT_STRUCT(5) dobj_3471__MAKE_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_3472__MAKE_MIXLOC;
+  struct MELT_MULTIPLE_STRUCT(4) dtup_3473__MAKE_MIXLOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_3474;
+  struct MELT_OBJECT_STRUCT(2) dobj_3475;
+  struct MELT_OBJECT_STRUCT(2) dobj_3476;
+  struct MELT_OBJECT_STRUCT(3) dsym_3477__LOC;
+  struct MELT_STRING_STRUCT(3) dstr_3478__LOC;
+  struct MELT_OBJECT_STRUCT(2) dobj_3479;
+  struct MELT_STRING_STRUCT(38) dstr_3480__meltgc_new_mixl;
+  struct MELT_STRING_STRUCT(16) dstr_3481__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(14) dstr_3482__;
+  struct MELT_STRING_STRUCT(16) dstr_3483__location_t_;
+  struct MELT_STRING_STRUCT(3) dstr_3484__;
+  struct MELT_STRING_STRUCT(11) dstr_3485__MAKE_MIXLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_3486__IS_MIXBIGINT;
+  struct MELT_STRING_STRUCT(12) dstr_3487__IS_MIXBIGINT;
+  struct MELT_OBJECT_STRUCT(5) dobj_3488__IS_MIXBIGINT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3489__IS_MIXBIGINT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3490__IS_MIXBIGINT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3491__MB;
+  struct MELT_STRING_STRUCT(2) dstr_3492__MB;
+  struct MELT_OBJECT_STRUCT(2) dobj_3493;
+  struct MELT_STRING_STRUCT(31) dstr_3494__melt_magic_disc;
+  struct MELT_STRING_STRUCT(22) dstr_3495__OBMAG_MIXB;
+  struct MELT_STRING_STRUCT(12) dstr_3496__IS_MIXBIGINT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3497__MIXBIGINT_VAL;
+  struct MELT_STRING_STRUCT(13) dstr_3498__MIXBIGINT_VAL;
+  struct MELT_OBJECT_STRUCT(5) dobj_3499__MIXBIGINT_VAL;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3500__MIXBIGINT_VAL;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3501__MIXBIGINT_VAL;
+  struct MELT_OBJECT_STRUCT(2) dobj_3502;
+  struct MELT_STRING_STRUCT(19) dstr_3503__melt_val_mixbigi;
+  struct MELT_STRING_STRUCT(1) dstr_3504__;
+  struct MELT_STRING_STRUCT(13) dstr_3505__MIXBIGINT_VAL;
+  struct MELT_OBJECT_STRUCT(3) dsym_3506__PPSTRBUF_MIXBIGINT;
+  struct MELT_STRING_STRUCT(18) dstr_3507__PPSTRBUF_MIXBIGI;
+  struct MELT_OBJECT_STRUCT(5) dobj_3508__PPSTRBUF_MIXBIGINT;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3509__PPSTRBUF_MIXBIGINT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3510__PPSTRBUF_MIXBIGINT;
+  struct MELT_OBJECT_STRUCT(2) dobj_3511;
+  struct MELT_OBJECT_STRUCT(3) dsym_3512__INDENT;
+  struct MELT_STRING_STRUCT(6) dstr_3513__INDENT;
+  struct MELT_OBJECT_STRUCT(2) dobj_3514;
+  struct MELT_OBJECT_STRUCT(2) dobj_3515;
+  struct MELT_STRING_STRUCT(26) dstr_3516__meltgc_ppstrbuf_;
+  struct MELT_STRING_STRUCT(1) dstr_3517__;
+  struct MELT_STRING_STRUCT(1) dstr_3518__;
+  struct MELT_STRING_STRUCT(2) dstr_3519__;
+  struct MELT_STRING_STRUCT(18) dstr_3520__PPSTRBUF_MIXBIGI;
+  struct MELT_OBJECT_STRUCT(3) dsym_3521__READ_FILE;
+  struct MELT_STRING_STRUCT(9) dstr_3522__READ_FILE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3523__READ_FILE;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3524__READ_FILE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3525__READ_FILE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3526__FILNAM;
+  struct MELT_STRING_STRUCT(6) dstr_3527__FILNAM;
+  struct MELT_OBJECT_STRUCT(2) dobj_3528;
+  struct MELT_STRING_STRUCT(48) dstr_3529__meltgc_read_fil;
+  struct MELT_STRING_STRUCT(14) dstr_3530__char_0_;
+  struct MELT_STRING_STRUCT(9) dstr_3531__READ_FILE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3532__ERROR_STRV;
+  struct MELT_STRING_STRUCT(10) dstr_3533__ERROR_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3534__ERROR_STRV;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3535__ERROR_STRV;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3536__ERROR_STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_3537;
+  struct MELT_OBJECT_STRUCT(3) dsym_3538__CMSG;
+  struct MELT_STRING_STRUCT(4) dstr_3539__CMSG;
+  struct MELT_OBJECT_STRUCT(2) dobj_3540;
+  struct MELT_OBJECT_STRUCT(2) dobj_3541;
+  struct MELT_STRING_STRUCT(28) dstr_3542__melt_error_str_;
+  struct MELT_STRING_STRUCT(4) dstr_3543__;
+  struct MELT_STRING_STRUCT(16) dstr_3544__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3545__;
+  struct MELT_STRING_STRUCT(10) dstr_3546__ERROR_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3547__ERROR_PLAIN;
+  struct MELT_STRING_STRUCT(11) dstr_3548__ERROR_PLAIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3549__ERROR_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3550__ERROR_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3551__ERROR_PLAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_3552;
+  struct MELT_OBJECT_STRUCT(2) dobj_3553;
+  struct MELT_STRING_STRUCT(28) dstr_3554__melt_error_str_;
+  struct MELT_STRING_STRUCT(4) dstr_3555__;
+  struct MELT_STRING_STRUCT(17) dstr_3556__melt_ptr_t_0;
+  struct MELT_STRING_STRUCT(11) dstr_3557__ERROR_PLAIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3558__WARNING_STRV;
+  struct MELT_STRING_STRUCT(12) dstr_3559__WARNING_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3560__WARNING_STRV;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3561__WARNING_STRV;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3562__WARNING_STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_3563;
+  struct MELT_OBJECT_STRUCT(2) dobj_3564;
+  struct MELT_OBJECT_STRUCT(2) dobj_3565;
+  struct MELT_STRING_STRUCT(33) dstr_3566__melt_warning_str;
+  struct MELT_STRING_STRUCT(4) dstr_3567__;
+  struct MELT_STRING_STRUCT(16) dstr_3568__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3569__;
+  struct MELT_STRING_STRUCT(12) dstr_3570__WARNING_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3571__WARNING_PLAIN;
+  struct MELT_STRING_STRUCT(13) dstr_3572__WARNING_PLAIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3573__WARNING_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3574__WARNING_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3575__WARNING_PLAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_3576;
+  struct MELT_OBJECT_STRUCT(2) dobj_3577;
+  struct MELT_STRING_STRUCT(33) dstr_3578__melt_warning_str;
+  struct MELT_STRING_STRUCT(4) dstr_3579__;
+  struct MELT_STRING_STRUCT(17) dstr_3580__melt_ptr_t_0;
+  struct MELT_STRING_STRUCT(13) dstr_3581__WARNING_PLAIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3582__WARNINGMSG_PLAIN;
+  struct MELT_STRING_STRUCT(16) dstr_3583__WARNINGMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3584__WARNINGMSG_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3585__WARNINGMSG_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3586__WARNINGMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_3587;
+  struct MELT_STRING_STRUCT(62) dstr_3588__warning_0_MELT;
+  struct MELT_STRING_STRUCT(2) dstr_3589__;
+  struct MELT_STRING_STRUCT(16) dstr_3590__WARNINGMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3591__WARNINGMSG_STRV;
+  struct MELT_STRING_STRUCT(15) dstr_3592__WARNINGMSG_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3593__WARNINGMSG_STRV;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3594__WARNINGMSG_STRV;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3595__WARNINGMSG_STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_3596;
+  struct MELT_OBJECT_STRUCT(2) dobj_3597;
+  struct MELT_STRING_STRUCT(68) dstr_3598__warning_0_MEL;
+  struct MELT_STRING_STRUCT(41) dstr_3599__melt;
+  struct MELT_STRING_STRUCT(3) dstr_3600__;
+  struct MELT_STRING_STRUCT(15) dstr_3601__WARNINGMSG_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3602__ERRORMSG_PLAIN;
+  struct MELT_STRING_STRUCT(14) dstr_3603__ERRORMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3604__ERRORMSG_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3605__ERRORMSG_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3606__ERRORMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_3607;
+  struct MELT_STRING_STRUCT(56) dstr_3608__error_MELT_ERR;
+  struct MELT_STRING_STRUCT(2) dstr_3609__;
+  struct MELT_STRING_STRUCT(14) dstr_3610__ERRORMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3611__ERRORMSG_STRV;
+  struct MELT_STRING_STRUCT(13) dstr_3612__ERRORMSG_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3613__ERRORMSG_STRV;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3614__ERRORMSG_STRV;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3615__ERRORMSG_STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_3616;
+  struct MELT_OBJECT_STRUCT(2) dobj_3617;
+  struct MELT_STRING_STRUCT(60) dstr_3618__error_MELT_ERRO;
+  struct MELT_STRING_STRUCT(35) dstr_3619__melt_strin;
+  struct MELT_STRING_STRUCT(3) dstr_3620__;
+  struct MELT_STRING_STRUCT(13) dstr_3621__ERRORMSG_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3622__INFORM_STRV;
+  struct MELT_STRING_STRUCT(11) dstr_3623__INFORM_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3624__INFORM_STRV;
+  struct MELT_MULTIPLE_STRUCT(7) dtup_3625__INFORM_STRV;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3626__INFORM_STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_3627;
+  struct MELT_OBJECT_STRUCT(2) dobj_3628;
+  struct MELT_OBJECT_STRUCT(2) dobj_3629;
+  struct MELT_STRING_STRUCT(29) dstr_3630__melt_inform_str_;
+  struct MELT_STRING_STRUCT(4) dstr_3631__;
+  struct MELT_STRING_STRUCT(16) dstr_3632__melt_ptr_t_;
+  struct MELT_STRING_STRUCT(2) dstr_3633__;
+  struct MELT_STRING_STRUCT(11) dstr_3634__INFORM_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3635__INFORM_PLAIN;
+  struct MELT_STRING_STRUCT(12) dstr_3636__INFORM_PLAIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3637__INFORM_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3638__INFORM_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3639__INFORM_PLAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_3640;
+  struct MELT_OBJECT_STRUCT(2) dobj_3641;
+  struct MELT_STRING_STRUCT(29) dstr_3642__melt_inform_str_;
+  struct MELT_STRING_STRUCT(4) dstr_3643__;
+  struct MELT_STRING_STRUCT(17) dstr_3644__melt_ptr_t_0;
+  struct MELT_STRING_STRUCT(12) dstr_3645__INFORM_PLAIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3646__INFORMSG_STRV;
+  struct MELT_STRING_STRUCT(13) dstr_3647__INFORMSG_STRV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3648__INFORMSG_STRV;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3649__INFORMSG_STRV;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3650__INFORMSG_STRV;
+  struct MELT_OBJECT_STRUCT(2) dobj_3651;
+  struct MELT_OBJECT_STRUCT(2) dobj_3652;
+  struct MELT_STRING_STRUCT(76) dstr_3653__inform_UNKNOWN_L;
+  struct MELT_STRING_STRUCT(41) dstr_3654__melt;
+  struct MELT_STRING_STRUCT(3) dstr_3655__;
+  struct MELT_STRING_STRUCT(13) dstr_3656__INFORMSG_STRV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3657__INFORMSG_PLAIN;
+  struct MELT_STRING_STRUCT(14) dstr_3658__INFORMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3659__INFORMSG_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_3660__INFORMSG_PLAIN;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_3661__INFORMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_3662;
+  struct MELT_STRING_STRUCT(70) dstr_3663__inform_UNKNOWN_L;
+  struct MELT_STRING_STRUCT(2) dstr_3664__;
+  struct MELT_STRING_STRUCT(14) dstr_3665__INFORMSG_PLAIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3666__INFORMSG_LONG;
+  struct MELT_STRING_STRUCT(13) dstr_3667__INFORMSG_LONG;
+  struct MELT_OBJECT_STRUCT(5) dobj_3668__INFORMSG_LONG;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_3669__INFORMSG_LONG;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_3670__INFORMSG_LONG;
+  struct MELT_OBJECT_STRUCT(2) dobj_3671;
+  struct MELT_OBJECT_STRUCT(2) dobj_3672;
+  struct MELT_STRING_STRUCT(76) dstr_3673__inform_UNKNOWN_L;
+  struct MELT_STRING_STRUCT(4) dstr_3674__;
+  struct MELT_STRING_STRUCT(2) dstr_3675__;
+  struct MELT_STRING_STRUCT(13) dstr_3676__INFORMSG_LONG;
+  struct MELT_OBJECT_STRUCT(3) dsym_3677__DISCR_NAME_STRING;
+  struct MELT_STRING_STRUCT(17) dstr_3678__DISCR_NAME_STRIN;
+  struct MELT_OBJECT_STRUCT(5) dobj_3679__DISCR_NAME_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_3680__DISCR_STRING;
+  struct MELT_STRING_STRUCT(12) dstr_3681__DISCR_STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_3682__DISCR_STRING;
+  struct MELT_STRING_STRUCT(12) dstr_3683__DISCR_STRING;
+  struct MELT_STRING_STRUCT(17) dstr_3684__DISCR_NAME_STRIN;
+  struct MELT_OBJECT_STRUCT(3) dsym_3685__DISCR_VERBATIM_STRING;
+  struct MELT_STRING_STRUCT(21) dstr_3686__DISCR_VERBATIM_S;
+  struct MELT_OBJECT_STRUCT(5) dobj_3687__DISCR_VERBATIM_STRING;
+  struct MELT_STRING_STRUCT(21) dstr_3688__DISCR_VERBATIM_S;
+  struct MELT_OBJECT_STRUCT(3) dsym_3689__DISCR_ANY_RECEIVER;
+  struct MELT_STRING_STRUCT(18) dstr_3690__DISCR_ANY_RECEIV;
+  struct MELT_OBJECT_STRUCT(5) dobj_3691__DISCR_ANY_RECEIVER;
+  struct MELT_STRING_STRUCT(18) dstr_3692__DISCR_ANY_RECEIV;
+  struct MELT_OBJECT_STRUCT(3) dsym_3693__DISCR_NULL_RECEIVER;
+  struct MELT_STRING_STRUCT(19) dstr_3694__DISCR_NULL_RECEI;
+  struct MELT_OBJECT_STRUCT(5) dobj_3695__DISCR_NULL_RECEIVER;
+  struct MELT_STRING_STRUCT(19) dstr_3696__DISCR_NULL_RECEI;
+  struct MELT_OBJECT_STRUCT(3) dsym_3697__DISCR_STRBUF;
+  struct MELT_STRING_STRUCT(12) dstr_3698__DISCR_STRBUF;
+  struct MELT_OBJECT_STRUCT(5) dobj_3699__DISCR_STRBUF;
+  struct MELT_STRING_STRUCT(12) dstr_3700__DISCR_STRBUF;
+  struct MELT_OBJECT_STRUCT(3) dsym_3701__DISCR_INTEGER;
+  struct MELT_STRING_STRUCT(13) dstr_3702__DISCR_INTEGER;
+  struct MELT_OBJECT_STRUCT(5) dobj_3703__DISCR_INTEGER;
+  struct MELT_STRING_STRUCT(13) dstr_3704__DISCR_INTEGER;
+  struct MELT_OBJECT_STRUCT(3) dsym_3705__DISCR_CONSTANT_INTEGER;
+  struct MELT_STRING_STRUCT(22) dstr_3706__DISCR_CONSTANT_I;
+  struct MELT_OBJECT_STRUCT(5) dobj_3707__DISCR_CONSTANT_INTEGER;
+  struct MELT_STRING_STRUCT(22) dstr_3708__DISCR_CONSTANT_I;
+  struct MELT_OBJECT_STRUCT(3) dsym_3709__DISCR_LIST;
+  struct MELT_STRING_STRUCT(10) dstr_3710__DISCR_LIST;
+  struct MELT_OBJECT_STRUCT(5) dobj_3711__DISCR_LIST;
+  struct MELT_STRING_STRUCT(10) dstr_3712__DISCR_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_3713__DISCR_PAIR;
+  struct MELT_STRING_STRUCT(10) dstr_3714__DISCR_PAIR;
+  struct MELT_OBJECT_STRUCT(5) dobj_3715__DISCR_PAIR;
+  struct MELT_STRING_STRUCT(10) dstr_3716__DISCR_PAIR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3717__DISCR_MULTIPLE;
+  struct MELT_STRING_STRUCT(14) dstr_3718__DISCR_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3719__DISCR_MULTIPLE;
+  struct MELT_STRING_STRUCT(14) dstr_3720__DISCR_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3721__DISCR_FIELD_SEQUENCE;
+  struct MELT_STRING_STRUCT(20) dstr_3722__DISCR_FIELD_SEQU;
+  struct MELT_OBJECT_STRUCT(5) dobj_3723__DISCR_FIELD_SEQUENCE;
+  struct MELT_STRING_STRUCT(20) dstr_3724__DISCR_FIELD_SEQU;
+  struct MELT_OBJECT_STRUCT(3) dsym_3725__DISCR_BOX;
+  struct MELT_STRING_STRUCT(9) dstr_3726__DISCR_BOX;
+  struct MELT_OBJECT_STRUCT(5) dobj_3727__DISCR_BOX;
+  struct MELT_STRING_STRUCT(9) dstr_3728__DISCR_BOX;
+  struct MELT_OBJECT_STRUCT(3) dsym_3729__DISCR_TREE;
+  struct MELT_STRING_STRUCT(10) dstr_3730__DISCR_TREE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3731__DISCR_TREE;
+  struct MELT_STRING_STRUCT(10) dstr_3732__DISCR_TREE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3733__DISCR_GIMPLE;
+  struct MELT_STRING_STRUCT(12) dstr_3734__DISCR_GIMPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3735__DISCR_GIMPLE;
+  struct MELT_STRING_STRUCT(12) dstr_3736__DISCR_GIMPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3737__DISCR_GIMPLE_SEQ;
+  struct MELT_STRING_STRUCT(16) dstr_3738__DISCR_GIMPLE_SEQ;
+  struct MELT_OBJECT_STRUCT(5) dobj_3739__DISCR_GIMPLE_SEQ;
+  struct MELT_STRING_STRUCT(16) dstr_3740__DISCR_GIMPLE_SEQ;
+  struct MELT_OBJECT_STRUCT(3) dsym_3741__DISCR_EDGE;
+  struct MELT_STRING_STRUCT(10) dstr_3742__DISCR_EDGE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3743__DISCR_EDGE;
+  struct MELT_STRING_STRUCT(10) dstr_3744__DISCR_EDGE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3745__DISCR_BASIC_BLOCK;
+  struct MELT_STRING_STRUCT(17) dstr_3746__DISCR_BASIC_BLOC;
+  struct MELT_OBJECT_STRUCT(5) dobj_3747__DISCR_BASIC_BLOCK;
+  struct MELT_STRING_STRUCT(17) dstr_3748__DISCR_BASIC_BLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_3749__DISCR_MAP_OBJECTS;
+  struct MELT_STRING_STRUCT(17) dstr_3750__DISCR_MAP_OBJECT;
+  struct MELT_OBJECT_STRUCT(5) dobj_3751__DISCR_MAP_OBJECTS;
+  struct MELT_STRING_STRUCT(17) dstr_3752__DISCR_MAP_OBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_3753__DISCR_MAP_STRINGS;
+  struct MELT_STRING_STRUCT(17) dstr_3754__DISCR_MAP_STRING;
+  struct MELT_OBJECT_STRUCT(5) dobj_3755__DISCR_MAP_STRINGS;
+  struct MELT_STRING_STRUCT(17) dstr_3756__DISCR_MAP_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_3757__DISCR_MAP_TREES;
+  struct MELT_STRING_STRUCT(15) dstr_3758__DISCR_MAP_TREES;
+  struct MELT_OBJECT_STRUCT(5) dobj_3759__DISCR_MAP_TREES;
+  struct MELT_STRING_STRUCT(15) dstr_3760__DISCR_MAP_TREES;
+  struct MELT_OBJECT_STRUCT(3) dsym_3761__DISCR_MAP_GIMPLES;
+  struct MELT_STRING_STRUCT(17) dstr_3762__DISCR_MAP_GIMPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3763__DISCR_MAP_GIMPLES;
+  struct MELT_STRING_STRUCT(17) dstr_3764__DISCR_MAP_GIMPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3765__DISCR_MAP_GIMPLE_SEQS;
+  struct MELT_STRING_STRUCT(21) dstr_3766__DISCR_MAP_GIMPLE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3767__DISCR_MAP_GIMPLE_SEQS;
+  struct MELT_STRING_STRUCT(21) dstr_3768__DISCR_MAP_GIMPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3769__DISCR_MAP_EDGES;
+  struct MELT_STRING_STRUCT(15) dstr_3770__DISCR_MAP_EDGES;
+  struct MELT_OBJECT_STRUCT(5) dobj_3771__DISCR_MAP_EDGES;
+  struct MELT_STRING_STRUCT(15) dstr_3772__DISCR_MAP_EDGES;
+  struct MELT_OBJECT_STRUCT(3) dsym_3773__DISCR_MAP_BASIC_BLOCKS;
+  struct MELT_STRING_STRUCT(22) dstr_3774__DISCR_MAP_BASIC_;
+  struct MELT_OBJECT_STRUCT(5) dobj_3775__DISCR_MAP_BASIC_BLOCKS;
+  struct MELT_STRING_STRUCT(22) dstr_3776__DISCR_MAP_BASIC_;
+  struct MELT_OBJECT_STRUCT(3) dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM;
+  struct MELT_STRING_STRUCT(27) dstr_3778__DISCR_PPL_CONSTR;
+  struct MELT_OBJECT_STRUCT(5) dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM;
+  struct MELT_STRING_STRUCT(27) dstr_3780__DISCR_PPL_CONSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3781__DISCR_PPL_POLYHEDRON;
+  struct MELT_STRING_STRUCT(20) dstr_3782__DISCR_PPL_POLYHE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3783__DISCR_PPL_POLYHEDRON;
+  struct MELT_STRING_STRUCT(20) dstr_3784__DISCR_PPL_POLYHE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3785__DISCR_FILE;
+  struct MELT_STRING_STRUCT(10) dstr_3786__DISCR_FILE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3787__DISCR_FILE;
+  struct MELT_STRING_STRUCT(10) dstr_3788__DISCR_FILE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3789__DISCR_RAWFILE;
+  struct MELT_STRING_STRUCT(13) dstr_3790__DISCR_RAWFILE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3791__DISCR_RAWFILE;
+  struct MELT_STRING_STRUCT(13) dstr_3792__DISCR_RAWFILE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3793__DISCR_CLASS_SEQUENCE;
+  struct MELT_STRING_STRUCT(20) dstr_3794__DISCR_CLASS_SEQU;
+  struct MELT_OBJECT_STRUCT(5) dobj_3795__DISCR_CLASS_SEQUENCE;
+  struct MELT_STRING_STRUCT(20) dstr_3796__DISCR_CLASS_SEQU;
+  struct MELT_OBJECT_STRUCT(3) dsym_3797__DISCR_METHOD_MAP;
+  struct MELT_STRING_STRUCT(16) dstr_3798__DISCR_METHOD_MAP;
+  struct MELT_OBJECT_STRUCT(5) dobj_3799__DISCR_METHOD_MAP;
+  struct MELT_STRING_STRUCT(16) dstr_3800__DISCR_METHOD_MAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_3801__DISCR_CHARACTER_INTEGER;
+  struct MELT_STRING_STRUCT(23) dstr_3802__DISCR_CHARACTER_;
+  struct MELT_OBJECT_STRUCT(5) dobj_3803__DISCR_CHARACTER_INTEGER;
+  struct MELT_STRING_STRUCT(23) dstr_3804__DISCR_CHARACTER_;
+  struct MELT_OBJECT_STRUCT(3) dsym_3805__DISCR_MIXED_INTEGER;
+  struct MELT_STRING_STRUCT(19) dstr_3806__DISCR_MIXED_INTE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3807__DISCR_MIXED_INTEGER;
+  struct MELT_STRING_STRUCT(19) dstr_3808__DISCR_MIXED_INTE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3809__DISCR_MIXED_BIGINT;
+  struct MELT_STRING_STRUCT(18) dstr_3810__DISCR_MIXED_BIGI;
+  struct MELT_OBJECT_STRUCT(5) dobj_3811__DISCR_MIXED_BIGINT;
+  struct MELT_STRING_STRUCT(18) dstr_3812__DISCR_MIXED_BIGI;
+  struct MELT_OBJECT_STRUCT(3) dsym_3813__DISCR_MIXED_LOCATION;
+  struct MELT_STRING_STRUCT(20) dstr_3814__DISCR_MIXED_LOCA;
+  struct MELT_OBJECT_STRUCT(5) dobj_3815__DISCR_MIXED_LOCATION;
+  struct MELT_STRING_STRUCT(20) dstr_3816__DISCR_MIXED_LOCA;
+  struct MELT_OBJECT_STRUCT(3) dsym_3817__DISCR_CLOSURE;
+  struct MELT_STRING_STRUCT(13) dstr_3818__DISCR_CLOSURE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3819__DISCR_CLOSURE;
+  struct MELT_STRING_STRUCT(13) dstr_3820__DISCR_CLOSURE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3821__DISCR_ROUTINE;
+  struct MELT_STRING_STRUCT(13) dstr_3822__DISCR_ROUTINE;
+  struct MELT_OBJECT_STRUCT(5) dobj_3823__DISCR_ROUTINE;
+  struct MELT_STRING_STRUCT(13) dstr_3824__DISCR_ROUTINE;
+  struct MELT_ROUTINE_STRUCT(4) drout_3825__INSTALL_CTYPE_DESCR;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3826__INSTALL_CTYPE_DESCR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3827__CTYPE_VALUE;
+  struct MELT_STRING_STRUCT(11) dstr_3828__CTYPE_VALUE;
+  struct MELT_OBJECT_STRUCT(11) dobj_3829__CTYPE_VALUE;
+  struct MELT_STRING_STRUCT(11) dstr_3830__CTYPE_VALUE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3831__VALUE;
+  struct MELT_STRING_STRUCT(5) dstr_3832__VALUE;
+  struct MELT_STRING_STRUCT(10) dstr_3833__melt_ptr_t;
+  struct MELT_STRING_STRUCT(8) dstr_3834__BPAR_PTR;
+  struct MELT_STRING_STRUCT(11) dstr_3835__BPARSTR_PTR;
+  struct MELT_STRING_STRUCT(7) dstr_3836__bp_aptr;
+  struct MELT_STRING_STRUCT(7) dstr_3837__bp_aptr;
+  struct MELT_STRING_STRUCT(17) dstr_3838__gt_ggc_mx_melt_u;
+  struct MELT_OBJECT_STRUCT(3) dsym_3839__CTYPE_LONG;
+  struct MELT_STRING_STRUCT(10) dstr_3840__CTYPE_LONG;
+  struct MELT_OBJECT_STRUCT(11) dobj_3841__CTYPE_LONG;
+  struct MELT_STRING_STRUCT(10) dstr_3842__CTYPE_LONG;
+  struct MELT_OBJECT_STRUCT(3) dsym_3843__LONG;
+  struct MELT_STRING_STRUCT(4) dstr_3844__LONG;
+  struct MELT_STRING_STRUCT(4) dstr_3845__long;
+  struct MELT_STRING_STRUCT(9) dstr_3846__BPAR_LONG;
+  struct MELT_STRING_STRUCT(12) dstr_3847__BPARSTR_LONG;
+  struct MELT_STRING_STRUCT(7) dstr_3848__bp_long;
+  struct MELT_STRING_STRUCT(10) dstr_3849__bp_longptr;
+  struct MELT_OBJECT_STRUCT(3) dsym_3850__CTYPE_TREE;
+  struct MELT_STRING_STRUCT(10) dstr_3851__CTYPE_TREE;
+  struct MELT_OBJECT_STRUCT(11) dobj_3852__CTYPE_TREE;
+  struct MELT_STRING_STRUCT(10) dstr_3853__CTYPE_TREE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3854__TREE;
+  struct MELT_STRING_STRUCT(4) dstr_3855__TREE;
+  struct MELT_STRING_STRUCT(4) dstr_3856__tree;
+  struct MELT_STRING_STRUCT(9) dstr_3857__BPAR_TREE;
+  struct MELT_STRING_STRUCT(12) dstr_3858__BPARSTR_TREE;
+  struct MELT_STRING_STRUCT(7) dstr_3859__bp_tree;
+  struct MELT_STRING_STRUCT(10) dstr_3860__bp_treeptr;
+  struct MELT_STRING_STRUCT(19) dstr_3861__gt_ggc_mx_tree_n;
+  struct MELT_OBJECT_STRUCT(3) dsym_3862__CTYPE_GIMPLE;
+  struct MELT_STRING_STRUCT(12) dstr_3863__CTYPE_GIMPLE;
+  struct MELT_OBJECT_STRUCT(11) dobj_3864__CTYPE_GIMPLE;
+  struct MELT_STRING_STRUCT(12) dstr_3865__CTYPE_GIMPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3866__GIMPLE;
+  struct MELT_STRING_STRUCT(6) dstr_3867__GIMPLE;
+  struct MELT_STRING_STRUCT(6) dstr_3868__gimple;
+  struct MELT_STRING_STRUCT(11) dstr_3869__BPAR_GIMPLE;
+  struct MELT_STRING_STRUCT(14) dstr_3870__BPARSTR_GIMPLE;
+  struct MELT_STRING_STRUCT(9) dstr_3871__bp_gimple;
+  struct MELT_STRING_STRUCT(12) dstr_3872__bp_gimpleptr;
+  struct MELT_STRING_STRUCT(28) dstr_3873__gt_ggc_mx_gimple;
+  struct MELT_OBJECT_STRUCT(3) dsym_3874__CTYPE_GIMPLE_SEQ;
+  struct MELT_STRING_STRUCT(16) dstr_3875__CTYPE_GIMPLE_SEQ;
+  struct MELT_OBJECT_STRUCT(11) dobj_3876__CTYPE_GIMPLE_SEQ;
+  struct MELT_STRING_STRUCT(16) dstr_3877__CTYPE_GIMPLE_SEQ;
+  struct MELT_OBJECT_STRUCT(3) dsym_3878__GIMPLE_SEQ;
+  struct MELT_STRING_STRUCT(10) dstr_3879__GIMPLE_SEQ;
+  struct MELT_STRING_STRUCT(10) dstr_3880__gimple_seq;
+  struct MELT_STRING_STRUCT(14) dstr_3881__BPAR_GIMPLESEQ;
+  struct MELT_STRING_STRUCT(17) dstr_3882__BPARSTR_GIMPLESE;
+  struct MELT_STRING_STRUCT(12) dstr_3883__bp_gimpleseq;
+  struct MELT_STRING_STRUCT(15) dstr_3884__bp_gimpleseqptr;
+  struct MELT_STRING_STRUCT(22) dstr_3885__gt_ggc_mx_gimple;
+  struct MELT_OBJECT_STRUCT(3) dsym_3886__CTYPE_BASIC_BLOCK;
+  struct MELT_STRING_STRUCT(17) dstr_3887__CTYPE_BASIC_BLOC;
+  struct MELT_OBJECT_STRUCT(11) dobj_3888__CTYPE_BASIC_BLOCK;
+  struct MELT_STRING_STRUCT(17) dstr_3889__CTYPE_BASIC_BLOC;
+  struct MELT_OBJECT_STRUCT(3) dsym_3890__BASIC_BLOCK;
+  struct MELT_STRING_STRUCT(11) dstr_3891__BASIC_BLOCK;
+  struct MELT_STRING_STRUCT(11) dstr_3892__basic_block;
+  struct MELT_STRING_STRUCT(7) dstr_3893__BPAR_BB;
+  struct MELT_STRING_STRUCT(10) dstr_3894__BPARSTR_BB;
+  struct MELT_STRING_STRUCT(5) dstr_3895__bp_bb;
+  struct MELT_STRING_STRUCT(8) dstr_3896__bp_bbptr;
+  struct MELT_STRING_STRUCT(25) dstr_3897__gt_ggc_mx_basic_;
+  struct MELT_OBJECT_STRUCT(3) dsym_3898__CTYPE_EDGE;
+  struct MELT_STRING_STRUCT(10) dstr_3899__CTYPE_EDGE;
+  struct MELT_OBJECT_STRUCT(11) dobj_3900__CTYPE_EDGE;
+  struct MELT_STRING_STRUCT(10) dstr_3901__CTYPE_EDGE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3902__EDGE;
+  struct MELT_STRING_STRUCT(4) dstr_3903__EDGE;
+  struct MELT_STRING_STRUCT(4) dstr_3904__edge;
+  struct MELT_STRING_STRUCT(9) dstr_3905__BPAR_EDGE;
+  struct MELT_STRING_STRUCT(12) dstr_3906__BPARSTR_EDGE;
+  struct MELT_STRING_STRUCT(7) dstr_3907__bp_edge;
+  struct MELT_STRING_STRUCT(10) dstr_3908__bp_edgeptr;
+  struct MELT_STRING_STRUCT(18) dstr_3909__gt_ggc_mx_edge_d;
+  struct MELT_OBJECT_STRUCT(3) dsym_3910__CTYPE_PPL_COEFFICIENT;
+  struct MELT_STRING_STRUCT(21) dstr_3911__CTYPE_PPL_COEFFI;
+  struct MELT_OBJECT_STRUCT(11) dobj_3912__CTYPE_PPL_COEFFICIENT;
+  struct MELT_STRING_STRUCT(21) dstr_3913__CTYPE_PPL_COEFFI;
+  struct MELT_OBJECT_STRUCT(3) dsym_3914__PPL_COEFFICIENT;
+  struct MELT_STRING_STRUCT(15) dstr_3915__PPL_COEFFICIENT;
+  struct MELT_STRING_STRUCT(17) dstr_3916__ppl_Coefficient_;
+  struct MELT_STRING_STRUCT(20) dstr_3917__BPAR_PPL_COEFFIC;
+  struct MELT_STRING_STRUCT(23) dstr_3918__BPARSTR_PPL_COEF;
+  struct MELT_STRING_STRUCT(18) dstr_3919__bp_ppl_coefficie;
+  struct MELT_STRING_STRUCT(21) dstr_3920__bp_ppl_coefficie;
+  struct MELT_OBJECT_STRUCT(3) dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION;
+  struct MELT_STRING_STRUCT(27) dstr_3922__CTYPE_PPL_LINEAR;
+  struct MELT_OBJECT_STRUCT(11) dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION;
+  struct MELT_STRING_STRUCT(27) dstr_3924__CTYPE_PPL_LINEAR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3925__PPL_LINEAR_EXPRESSION;
+  struct MELT_STRING_STRUCT(21) dstr_3926__PPL_LINEAR_EXPRE;
+  struct MELT_STRING_STRUCT(23) dstr_3927__ppl_Linear_Expre;
+  struct MELT_STRING_STRUCT(26) dstr_3928__BPAR_PPL_LINEAR_;
+  struct MELT_STRING_STRUCT(29) dstr_3929__BPARSTR_PPL_LINE;
+  struct MELT_STRING_STRUCT(24) dstr_3930__bp_ppl_linear_ex;
+  struct MELT_STRING_STRUCT(27) dstr_3931__bp_ppl_linear_ex;
+  struct MELT_OBJECT_STRUCT(3) dsym_3932__CTYPE_PPL_CONSTRAINT;
+  struct MELT_STRING_STRUCT(20) dstr_3933__CTYPE_PPL_CONSTR;
+  struct MELT_OBJECT_STRUCT(11) dobj_3934__CTYPE_PPL_CONSTRAINT;
+  struct MELT_STRING_STRUCT(20) dstr_3935__CTYPE_PPL_CONSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3936__PPL_CONSTRAINT;
+  struct MELT_STRING_STRUCT(14) dstr_3937__PPL_CONSTRAINT;
+  struct MELT_STRING_STRUCT(16) dstr_3938__ppl_Constraint_t;
+  struct MELT_STRING_STRUCT(19) dstr_3939__BPAR_PPL_CONSTRA;
+  struct MELT_STRING_STRUCT(22) dstr_3940__BPARSTR_PPL_CONS;
+  struct MELT_STRING_STRUCT(17) dstr_3941__bp_ppl_constrain;
+  struct MELT_STRING_STRUCT(20) dstr_3942__bp_ppl_constrain;
+  struct MELT_OBJECT_STRUCT(3) dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM;
+  struct MELT_STRING_STRUCT(27) dstr_3944__CTYPE_PPL_CONSTR;
+  struct MELT_OBJECT_STRUCT(11) dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM;
+  struct MELT_STRING_STRUCT(27) dstr_3946__CTYPE_PPL_CONSTR;
+  struct MELT_OBJECT_STRUCT(3) dsym_3947__PPL_CONSTRAINT_SYSTEM;
+  struct MELT_STRING_STRUCT(21) dstr_3948__PPL_CONSTRAINT_S;
+  struct MELT_STRING_STRUCT(23) dstr_3949__ppl_Constraint_S;
+  struct MELT_STRING_STRUCT(26) dstr_3950__BPAR_PPL_CONSTRA;
+  struct MELT_STRING_STRUCT(29) dstr_3951__BPARSTR_PPL_CONS;
+  struct MELT_STRING_STRUCT(24) dstr_3952__bp_ppl_constrain;
+  struct MELT_STRING_STRUCT(27) dstr_3953__bp_ppl_constrain;
+  struct MELT_OBJECT_STRUCT(3) dsym_3954__CTYPE_PPL_POLYHEDRON;
+  struct MELT_STRING_STRUCT(20) dstr_3955__CTYPE_PPL_POLYHE;
+  struct MELT_OBJECT_STRUCT(11) dobj_3956__CTYPE_PPL_POLYHEDRON;
+  struct MELT_STRING_STRUCT(20) dstr_3957__CTYPE_PPL_POLYHE;
+  struct MELT_OBJECT_STRUCT(3) dsym_3958__PPL_POLYHEDRON;
+  struct MELT_STRING_STRUCT(14) dstr_3959__PPL_POLYHEDRON;
+  struct MELT_STRING_STRUCT(16) dstr_3960__ppl_Polyhedron_t;
+  struct MELT_STRING_STRUCT(19) dstr_3961__BPAR_PPL_POLYHED;
+  struct MELT_STRING_STRUCT(22) dstr_3962__BPARSTR_PPL_POLY;
+  struct MELT_STRING_STRUCT(17) dstr_3963__bp_ppl_polyhedro;
+  struct MELT_STRING_STRUCT(20) dstr_3964__bp_ppl_polyhedro;
+  struct MELT_OBJECT_STRUCT(3) dsym_3965__CTYPE_VOID;
+  struct MELT_STRING_STRUCT(10) dstr_3966__CTYPE_VOID;
+  struct MELT_OBJECT_STRUCT(11) dobj_3967__CTYPE_VOID;
+  struct MELT_STRING_STRUCT(10) dstr_3968__CTYPE_VOID;
+  struct MELT_OBJECT_STRUCT(3) dsym_3969__VOID;
+  struct MELT_STRING_STRUCT(4) dstr_3970__VOID;
+  struct MELT_STRING_STRUCT(4) dstr_3971__void;
+  struct MELT_OBJECT_STRUCT(3) dsym_3972__CTYPE_CSTRING;
+  struct MELT_STRING_STRUCT(13) dstr_3973__CTYPE_CSTRING;
+  struct MELT_OBJECT_STRUCT(11) dobj_3974__CTYPE_CSTRING;
+  struct MELT_STRING_STRUCT(13) dstr_3975__CTYPE_CSTRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_3976__CSTRING;
+  struct MELT_STRING_STRUCT(7) dstr_3977__CSTRING;
+  struct MELT_STRING_STRUCT(12) dstr_3978__BPAR_CSTRING;
+  struct MELT_STRING_STRUCT(15) dstr_3979__BPARSTR_CSTRING;
+  struct MELT_STRING_STRUCT(10) dstr_3980__bp_cstring;
+  struct MELT_ROUTINE_STRUCT(2) drout_3981__ADD_NEW_SYMBOL_TOKEN;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3982__ADD_NEW_SYMBOL_TOKEN;
+  struct MELT_ROUTINE_STRUCT(2) drout_3983__ADD_NEW_KEYWORD_TOKEN;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3984__ADD_NEW_KEYWORD_TOKEN;
+  struct MELT_ROUTINE_STRUCT(2) drout_3985__INTERN_SYMBOL;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3986__INTERN_SYMBOL;
+  struct MELT_ROUTINE_STRUCT(2) drout_3987__INTERN_KEYWORD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3988__INTERN_KEYWORD;
+  struct MELT_OBJECT_STRUCT(3) dsym_3989__CONTAINER_CLONEMAPSTRING;
+  struct MELT_STRING_STRUCT(24) dstr_3990__CONTAINER_CLONEM;
+  struct MELT_OBJECT_STRUCT(1) dobj_3991__CONTAINER_CLONEMAPSTRING;
+  struct MELT_ROUTINE_STRUCT(6) drout_3992__CLONE_SYMBOL;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3993__CLONE_SYMBOL;
+  struct MELT_ROUTINE_STRUCT(3) drout_3994__INITFRESH_CONTENVMAKER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3995__INITFRESH_CONTENVMAKER;
+  struct MELT_ROUTINE_STRUCT(17) drout_3996__INITVALUE_EXPORTER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3997__INITVALUE_EXPORTER;
+  struct MELT_ROUTINE_STRUCT(6) drout_3998__INITVALUE_IMPORTER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_3999__INITVALUE_IMPORTER;
+  struct MELT_ROUTINE_STRUCT(7) drout_4000__INITMACRO_EXPORTER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4001__INITMACRO_EXPORTER;
+  struct MELT_ROUTINE_STRUCT(6) drout_4002__INITPATMACRO_EXPORTER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4003__INITPATMACRO_EXPORTER;
+  struct MELT_OBJECT_STRUCT(3) dsym_4004__CLASS_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(19) dstr_4005__CLASS_DELAYED_QU;
+  struct MELT_OBJECT_STRUCT(8) dobj_4006__CLASS_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(19) dstr_4007__CLASS_DELAYED_QU;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_4008__CLASS_DELAYED_QUEUE;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_4009__CLASS_DELAYED_QUEUE;
+  struct MELT_OBJECT_STRUCT(3) dsym_4010__DELQU_FIRST;
+  struct MELT_STRING_STRUCT(11) dstr_4011__DELQU_FIRST;
+  struct MELT_OBJECT_STRUCT(4) dobj_4012__DELQU_FIRST;
+  struct MELT_STRING_STRUCT(11) dstr_4013__DELQU_FIRST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4014__DELQU_LAST;
+  struct MELT_STRING_STRUCT(10) dstr_4015__DELQU_LAST;
+  struct MELT_OBJECT_STRUCT(4) dobj_4016__DELQU_LAST;
+  struct MELT_STRING_STRUCT(10) dstr_4017__DELQU_LAST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4018__DELQU_DATA;
+  struct MELT_STRING_STRUCT(10) dstr_4019__DELQU_DATA;
+  struct MELT_OBJECT_STRUCT(4) dobj_4020__DELQU_DATA;
+  struct MELT_STRING_STRUCT(10) dstr_4021__DELQU_DATA;
+  struct MELT_OBJECT_STRUCT(3) dsym_4022__FINAL_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(19) dstr_4023__FINAL_DELAYED_QU;
+  struct MELT_OBJECT_STRUCT(5) dobj_4024__FINAL_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(19) dstr_4025__final_delayed_qu;
+  struct MELT_ROUTINE_STRUCT(10) drout_4026__INIT_EXITFINALIZER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4027__INIT_EXITFINALIZER;
+  struct MELT_ROUTINE_STRUCT(1) drout_4028__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(0) drout_4029__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4030__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4031__AT_EXIT_FIRST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4032__AT_EXIT_FIRST;
+  struct MELT_ROUTINE_STRUCT(1) drout_4033__AT_EXIT_LAST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4034__AT_EXIT_LAST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4035__START_UNIT_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(24) dstr_4036__START_UNIT_DELAY;
+  struct MELT_OBJECT_STRUCT(5) dobj_4037__START_UNIT_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(24) dstr_4038__start_unit_delay;
+  struct MELT_ROUTINE_STRUCT(10) drout_4039__INIT_UNITSTARTER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4040__INIT_UNITSTARTER;
+  struct MELT_ROUTINE_STRUCT(1) drout_4041__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(0) drout_4042__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4043__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4044__AT_START_UNIT_FIRST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4045__AT_START_UNIT_FIRST;
+  struct MELT_ROUTINE_STRUCT(1) drout_4046__AT_START_UNIT_LAST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4047__AT_START_UNIT_LAST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4048__FINISH_UNIT_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(25) dstr_4049__FINISH_UNIT_DELA;
+  struct MELT_OBJECT_STRUCT(5) dobj_4050__FINISH_UNIT_DELAYED_QUEUE;
+  struct MELT_STRING_STRUCT(25) dstr_4051__finish_unit_dela;
+  struct MELT_ROUTINE_STRUCT(10) drout_4052__INIT_UNITFINISHER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4053__INIT_UNITFINISHER;
+  struct MELT_ROUTINE_STRUCT(1) drout_4054__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(0) drout_4055__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4056__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4057__AT_FINISH_UNIT_FIRST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4058__AT_FINISH_UNIT_FIRST;
+  struct MELT_ROUTINE_STRUCT(1) drout_4059__AT_FINISH_UNIT_LAST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4060__AT_FINISH_UNIT_LAST;
+  struct MELT_ROUTINE_STRUCT(5) drout_4061__DISPLAY_DEBUG_MESSAGE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4062__DISPLAY_DEBUG_MESSAGE;
+  struct MELT_ROUTINE_STRUCT(5) drout_4063__DEBUGMSG;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4064__DEBUGMSG;
+  struct MELT_OBJECT_STRUCT(3) dsym_4065__INITIAL_SYSTEM_DATA;
+  struct MELT_STRING_STRUCT(19) dstr_4066__INITIAL_SYSTEM_D;
+  struct MELT_OBJECT_STRUCT(27) dobj_4067__INITIAL_SYSTEM_DATA;
+  struct MELT_STRING_STRUCT(19) dstr_4068__INITIAL_SYSTEM_D;
+  struct MELT_ROUTINE_STRUCT(0) drout_4069__MAPOBJECT_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4070__MAPOBJECT_EVERY;
+  struct MELT_ROUTINE_STRUCT(0) drout_4071__MAPOBJECT_ITERATE_TEST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4072__MAPOBJECT_ITERATE_TEST;
+  struct MELT_ROUTINE_STRUCT(0) drout_4073__MAPSTRING_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4074__MAPSTRING_EVERY;
+  struct MELT_ROUTINE_STRUCT(0) drout_4075__MAPSTRING_ITERATE_TEST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4076__MAPSTRING_ITERATE_TEST;
+  struct MELT_OBJECT_STRUCT(7) dobj_4077__FOREACH_IN_LIST;
+  struct MELT_STRING_STRUCT(15) dstr_4078__FOREACH_IN_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4079__LIS;
+  struct MELT_STRING_STRUCT(3) dstr_4080__LIS;
+  struct MELT_OBJECT_STRUCT(2) dobj_4081;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_4082__FOREACH_IN_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4083__EACHLIST;
+  struct MELT_STRING_STRUCT(8) dstr_4084__EACHLIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4085__CURPAIR;
+  struct MELT_STRING_STRUCT(7) dstr_4086__CURPAIR;
+  struct MELT_OBJECT_STRUCT(2) dobj_4087;
+  struct MELT_OBJECT_STRUCT(3) dsym_4088__CURCOMP;
+  struct MELT_STRING_STRUCT(7) dstr_4089__CURCOMP;
+  struct MELT_OBJECT_STRUCT(2) dobj_4090;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_4091__FOREACH_IN_LIST;
+  struct MELT_STRING_STRUCT(9) dstr_4092__start_;
+  struct MELT_STRING_STRUCT(12) dstr_4093__for_;
+  struct MELT_STRING_STRUCT(19) dstr_4094__melt_list_fir;
+  struct MELT_STRING_STRUCT(21) dstr_4095__melt_magic_d;
+  struct MELT_STRING_STRUCT(25) dstr_4096__OBMAG_PAIR_;
+  struct MELT_STRING_STRUCT(18) dstr_4097__melt_pair_tai;
+  struct MELT_STRING_STRUCT(6) dstr_4098__;
+  struct MELT_STRING_STRUCT(18) dstr_4099__melt_pair_hea;
+  struct MELT_STRING_STRUCT(3) dstr_4100__;
+  struct MELT_MULTIPLE_STRUCT(17) dtup_4101__FOREACH_IN_LIST;
+  struct MELT_STRING_STRUCT(10) dstr_4102__end_;
+  struct MELT_STRING_STRUCT(3) dstr_4103__;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_4104__FOREACH_IN_LIST;
+  struct MELT_ROUTINE_STRUCT(0) drout_4105__LIST_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4106__LIST_EVERY;
+  struct MELT_ROUTINE_STRUCT(0) drout_4107__LIST_ITERATE_TEST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4108__LIST_ITERATE_TEST;
+  struct MELT_ROUTINE_STRUCT(1) drout_4109__LIST_APPEND2LIST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4110__LIST_APPEND2LIST;
+  struct MELT_ROUTINE_STRUCT(1) drout_4111__LIST_MAP;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4112__LIST_MAP;
+  struct MELT_ROUTINE_STRUCT(0) drout_4113__LIST_FIND;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4114__LIST_FIND;
+  struct MELT_ROUTINE_STRUCT(4) drout_4115__LIST_TO_MULTIPLE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4116__LIST_TO_MULTIPLE;
+  struct MELT_ROUTINE_STRUCT(0) drout_4117__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4118__PAIRLIST_TO_MULTIPLE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4119__PAIRLIST_TO_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(7) dobj_4120__FOREACH_IN_MULTIPLE;
+  struct MELT_STRING_STRUCT(19) dstr_4121__FOREACH_IN_MULTI;
+  struct MELT_OBJECT_STRUCT(2) dobj_4122;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_4123__FOREACH_IN_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_4124__EACHTUP;
+  struct MELT_STRING_STRUCT(7) dstr_4125__EACHTUP;
+  struct MELT_OBJECT_STRUCT(3) dsym_4126__COMP;
+  struct MELT_STRING_STRUCT(4) dstr_4127__COMP;
+  struct MELT_OBJECT_STRUCT(2) dobj_4128;
+  struct MELT_OBJECT_STRUCT(2) dobj_4129;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_4130__FOREACH_IN_MULTIPLE;
+  struct MELT_STRING_STRUCT(10) dstr_4131__start_;
+  struct MELT_STRING_STRUCT(14) dstr_4132__long_;
+  struct MELT_STRING_STRUCT(39) dstr_4133__ln_melt_multi;
+  struct MELT_STRING_STRUCT(11) dstr_4134__for_;
+  struct MELT_STRING_STRUCT(10) dstr_4135__0_;
+  struct MELT_STRING_STRUCT(11) dstr_4136__0_;
+  struct MELT_STRING_STRUCT(4) dstr_4137__;
+  struct MELT_STRING_STRUCT(9) dstr_4138__ln_;
+  struct MELT_STRING_STRUCT(9) dstr_4139__;
+  struct MELT_STRING_STRUCT(34) dstr_4140__melt_multiple;
+  struct MELT_STRING_STRUCT(4) dstr_4141__;
+  struct MELT_STRING_STRUCT(6) dstr_4142__;
+  struct MELT_MULTIPLE_STRUCT(23) dtup_4143__FOREACH_IN_MULTIPLE;
+  struct MELT_STRING_STRUCT(5) dstr_4144__if_;
+  struct MELT_STRING_STRUCT(23) dstr_4145__0_break_;
+  struct MELT_STRING_STRUCT(4) dstr_4146__;
+  struct MELT_MULTIPLE_STRUCT(5) dtup_4147__FOREACH_IN_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(7) dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD;
+  struct MELT_STRING_STRUCT(28) dstr_4149__FOREACH_IN_MULTI;
+  struct MELT_OBJECT_STRUCT(2) dobj_4150;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_4151__FOREACH_IN_MULTIPLE_BACKWARD;
+  struct MELT_OBJECT_STRUCT(3) dsym_4152__EACHTUPBACK;
+  struct MELT_STRING_STRUCT(11) dstr_4153__EACHTUPBACK;
+  struct MELT_OBJECT_STRUCT(2) dobj_4154;
+  struct MELT_OBJECT_STRUCT(2) dobj_4155;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_4156__FOREACH_IN_MULTIPLE_BACKWARD;
+  struct MELT_STRING_STRUCT(10) dstr_4157__start_;
+  struct MELT_STRING_STRUCT(14) dstr_4158__long_;
+  struct MELT_STRING_STRUCT(39) dstr_4159__ln_melt_multi;
+  struct MELT_STRING_STRUCT(12) dstr_4160__long_;
+  struct MELT_STRING_STRUCT(17) dstr_4161__ix_0_for_;
+  struct MELT_STRING_STRUCT(6) dstr_4162__ix_;
+  struct MELT_STRING_STRUCT(12) dstr_4163__ln_1_;
+  struct MELT_STRING_STRUCT(13) dstr_4164__ix_0_;
+  struct MELT_STRING_STRUCT(12) dstr_4165__ix_;
+  struct MELT_STRING_STRUCT(34) dstr_4166__melt_multiple;
+  struct MELT_STRING_STRUCT(4) dstr_4167__;
+  struct MELT_STRING_STRUCT(9) dstr_4168__ix_;
+  struct MELT_STRING_STRUCT(5) dstr_4169__;
+  struct MELT_STRING_STRUCT(4) dstr_4170__ix_;
+  struct MELT_MULTIPLE_STRUCT(27) dtup_4171__FOREACH_IN_MULTIPLE_BACKWARD;
+  struct MELT_STRING_STRUCT(10) dstr_4172__end_;
+  struct MELT_STRING_STRUCT(4) dstr_4173__;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_4174__FOREACH_IN_MULTIPLE_BACKWARD;
+  struct MELT_ROUTINE_STRUCT(0) drout_4175__MULTIPLE_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4176__MULTIPLE_EVERY;
+  struct MELT_ROUTINE_STRUCT(0) drout_4177__MULTIPLE_BACKWARD_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4178__MULTIPLE_BACKWARD_EVERY;
+  struct MELT_ROUTINE_STRUCT(0) drout_4179__MULTIPLE_EVERY_BOTH;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4180__MULTIPLE_EVERY_BOTH;
+  struct MELT_ROUTINE_STRUCT(0) drout_4181__MULTIPLE_ITERATE_TEST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4182__MULTIPLE_ITERATE_TEST;
+  struct MELT_ROUTINE_STRUCT(1) drout_4183__MULTIPLE_MAP;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4184__MULTIPLE_MAP;
+  struct MELT_ROUTINE_STRUCT(1) drout_4185__MULTIPLE_TO_LIST;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4186__MULTIPLE_TO_LIST;
+  struct MELT_ROUTINE_STRUCT(0) drout_4187__CLOSURE_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4188__CLOSURE_EVERY;
+  struct MELT_ROUTINE_STRUCT(0) drout_4189__ROUTINE_EVERY;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4190__ROUTINE_EVERY;
+  struct MELT_ROUTINE_STRUCT(1) drout_4191__LIST1;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4192__LIST1;
+  struct MELT_ROUTINE_STRUCT(1) drout_4193__LIST2;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4194__LIST2;
+  struct MELT_ROUTINE_STRUCT(1) drout_4195__LIST3;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4196__LIST3;
+  struct MELT_ROUTINE_STRUCT(1) drout_4197__LIST4;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4198__LIST4;
+  struct MELT_ROUTINE_STRUCT(1) drout_4199__LIST5;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4200__LIST5;
+  struct MELT_ROUTINE_STRUCT(1) drout_4201__LIST6;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4202__LIST6;
+  struct MELT_ROUTINE_STRUCT(3) drout_4203__INSTALL_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4204__INSTALL_METHOD;
+  struct MELT_OBJECT_STRUCT(3) dsym_4205__DBG_OUTPUT;
+  struct MELT_STRING_STRUCT(10) dstr_4206__DBG_OUTPUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4207__RECV;
+  struct MELT_STRING_STRUCT(4) dstr_4208__RECV;
+  struct MELT_OBJECT_STRUCT(2) dobj_4209;
+  struct MELT_OBJECT_STRUCT(3) dsym_4210__DBGINFO;
+  struct MELT_STRING_STRUCT(7) dstr_4211__DBGINFO;
+  struct MELT_OBJECT_STRUCT(2) dobj_4212;
+  struct MELT_OBJECT_STRUCT(2) dobj_4213;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_4214__DBG_OUTPUT;
+  struct MELT_OBJECT_STRUCT(4) dobj_4215__DBG_OUTPUT;
+  struct MELT_STRING_STRUCT(10) dstr_4216__DBG_OUTPUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4217__DBG_OUTPUTAGAIN;
+  struct MELT_STRING_STRUCT(15) dstr_4218__DBG_OUTPUTAGAIN;
+  struct MELT_OBJECT_STRUCT(2) dobj_4219;
   struct MELT_OBJECT_STRUCT(2) dobj_4220;
   struct MELT_OBJECT_STRUCT(2) dobj_4221;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_4222__DBG_OUTPUT;
-  struct MELT_OBJECT_STRUCT(4) dobj_4223__DBG_OUTPUT;
-  struct MELT_STRING_STRUCT(10) dstr_4224__DBG_OUTPUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4225__DBG_OUTPUTAGAIN;
-  struct MELT_STRING_STRUCT(15) dstr_4226__DBG_OUTPUTAGAIN;
-  struct MELT_OBJECT_STRUCT(2) dobj_4227;
-  struct MELT_OBJECT_STRUCT(2) dobj_4228;
-  struct MELT_OBJECT_STRUCT(2) dobj_4229;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_4230__DBG_OUTPUTAGAIN;
-  struct MELT_OBJECT_STRUCT(4) dobj_4231__DBG_OUTPUTAGAIN;
-  struct MELT_STRING_STRUCT(15) dstr_4232__DBG_OUTPUTAGAIN;
-  struct MELT_ROUTINE_STRUCT(4) drout_4233__DBG_OUTOBJECT;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4234__DBG_OUTOBJECT;
-  struct MELT_ROUTINE_STRUCT(3) drout_4235__DBG_OUT;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4236__DBG_OUT;
-  struct MELT_ROUTINE_STRUCT(2) drout_4237__DBGOUT_FIELDS;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4238__DBGOUT_FIELDS;
-  struct MELT_ROUTINE_STRUCT(2) drout_4239__DBGOUTAGAIN_FIELDS;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4240__DBGOUTAGAIN_FIELDS;
-  struct MELT_ROUTINE_STRUCT(0) drout_4241__DBGOUT_NULL_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4242__DBGOUT_NULL_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4243__DBGOUT_STRING_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4244__DBGOUT_STRING_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4245__DBGOUT_INTEGER_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4246__DBGOUT_INTEGER_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4247__DBGOUT_MIXINT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4248__DBGOUT_MIXINT_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4249__DBGOUT_MIXLOC_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4250__DBGOUT_MIXLOC_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4251__DBGOUT_MIXBIGINT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4252__DBGOUT_MIXBIGINT_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4253__DBGOUT_MULTIPLE_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4254__DBGOUT_MULTIPLE_METHOD;
-  struct MELT_ROUTINE_STRUCT(6) drout_4255__DBGOUT_ROUTINE_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4256__DBGOUT_ROUTINE_METHOD;
-  struct MELT_ROUTINE_STRUCT(1) drout_4257__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(3) drout_4258__DBGOUT_CLOSURE_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4259__DBGOUT_CLOSURE_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4260__DBGOUT_LIST_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4261__DBGOUT_LIST_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4262__DBGOUT_PAIR_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4263__DBGOUT_PAIR_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4264__DBGOUT_BOX_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4265__DBGOUT_BOX_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4266__COMPARE_OBJ_RANKED;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4267__COMPARE_OBJ_RANKED;
-  struct MELT_ROUTINE_STRUCT(14) drout_4268__DBGOUT_MAPOBJECT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4269__DBGOUT_MAPOBJECT_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4270__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4271__LAMBDA_;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_4222__DBG_OUTPUTAGAIN;
+  struct MELT_OBJECT_STRUCT(4) dobj_4223__DBG_OUTPUTAGAIN;
+  struct MELT_STRING_STRUCT(15) dstr_4224__DBG_OUTPUTAGAIN;
+  struct MELT_ROUTINE_STRUCT(4) drout_4225__DBG_OUTOBJECT;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4226__DBG_OUTOBJECT;
+  struct MELT_ROUTINE_STRUCT(3) drout_4227__DBG_OUT;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4228__DBG_OUT;
+  struct MELT_ROUTINE_STRUCT(2) drout_4229__DBGOUT_FIELDS;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4230__DBGOUT_FIELDS;
+  struct MELT_ROUTINE_STRUCT(2) drout_4231__DBGOUTAGAIN_FIELDS;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4232__DBGOUTAGAIN_FIELDS;
+  struct MELT_ROUTINE_STRUCT(0) drout_4233__DBGOUT_NULL_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4234__DBGOUT_NULL_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4235__DBGOUT_STRING_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4236__DBGOUT_STRING_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4237__DBGOUT_INTEGER_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4238__DBGOUT_INTEGER_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4239__DBGOUT_MIXINT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4240__DBGOUT_MIXINT_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4241__DBGOUT_MIXLOC_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4242__DBGOUT_MIXLOC_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4243__DBGOUT_MIXBIGINT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4244__DBGOUT_MIXBIGINT_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4245__DBGOUT_MULTIPLE_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4246__DBGOUT_MULTIPLE_METHOD;
+  struct MELT_ROUTINE_STRUCT(6) drout_4247__DBGOUT_ROUTINE_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4248__DBGOUT_ROUTINE_METHOD;
+  struct MELT_ROUTINE_STRUCT(1) drout_4249__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(3) drout_4250__DBGOUT_CLOSURE_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4251__DBGOUT_CLOSURE_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4252__DBGOUT_LIST_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4253__DBGOUT_LIST_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4254__DBGOUT_PAIR_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4255__DBGOUT_PAIR_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4256__DBGOUT_BOX_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4257__DBGOUT_BOX_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4258__COMPARE_OBJ_RANKED;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4259__COMPARE_OBJ_RANKED;
+  struct MELT_ROUTINE_STRUCT(14) drout_4260__DBGOUT_MAPOBJECT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4261__DBGOUT_MAPOBJECT_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4262__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4263__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(2) drout_4264__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(10) drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4266__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
+  struct MELT_ROUTINE_STRUCT(2) drout_4267__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4268__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(0) drout_4269__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(13) drout_4270__DBGOUT_MAPSTRING_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4271__DBGOUT_MAPSTRING_METHOD;
   struct MELT_ROUTINE_STRUCT(2) drout_4272__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(10) drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4274__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
-  struct MELT_ROUTINE_STRUCT(2) drout_4275__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4276__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(0) drout_4277__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(13) drout_4278__DBGOUT_MAPSTRING_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4279__DBGOUT_MAPSTRING_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4280__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4281__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_4282__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(2) drout_4283__DBGOUT_ANYOBJECT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4284__DBGOUT_ANYOBJECT_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4285__DBGOUT_ANYRECV_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4286__DBGOUT_ANYRECV_METHOD;
-  struct MELT_ROUTINE_STRUCT(1) drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4288__DBGOUTAGAIN_ANYOBJECT_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4289__DBGOUT_NAMEDOBJECT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4290__DBGOUT_NAMEDOBJECT_METHOD;
-  struct MELT_OBJECT_STRUCT(3) dsym_4291__DBGOUT_NAMEDOBJECT_METHOD;
-  struct MELT_STRING_STRUCT(25) dstr_4292__DBGOUT_NAMEDOBJE;
-  struct MELT_ROUTINE_STRUCT(1) drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4294__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4295__DBGOUT_SYMBOL_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4296__DBGOUT_SYMBOL_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4297__DBGOUTAGAIN_SYMBOL_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4298__DBGOUTAGAIN_SYMBOL_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4299__DBGOUT_CLASS_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4300__DBGOUT_CLASS_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4301__DBGOUT_KEYWORD_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4302__DBGOUT_KEYWORD_METHOD;
-  struct MELT_ROUTINE_STRUCT(2) drout_4303__DBGOUTAGAIN_KEYWORD_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4304__DBGOUTAGAIN_KEYWORD_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4305__DBGOUT_CLONED_SYMBOL_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4306__DBGOUT_CLONED_SYMBOL_METHOD;
-  struct MELT_ROUTINE_STRUCT(0) drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4308__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
-  struct MELT_ROUTINE_STRUCT(5) drout_4309__DBGOUT_ENVIRONMENT_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4310__DBGOUT_ENVIRONMENT_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4311__DBGOUT_CTYPE_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4312__DBGOUT_CTYPE_METHOD;
-  struct MELT_ROUTINE_STRUCT(0) drout_4313__DBGOUTAGAIN_CTYPE_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4314__DBGOUTAGAIN_CTYPE_METHOD;
-  struct MELT_ROUTINE_STRUCT(3) drout_4315__FRESH_ENV;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4316__FRESH_ENV;
-  struct MELT_OBJECT_STRUCT(3) dsym_4317__INITIAL_ENVIRONMENT;
-  struct MELT_STRING_STRUCT(19) dstr_4318__INITIAL_ENVIRONM;
-  struct MELT_OBJECT_STRUCT(4) dobj_4319__INITIAL_ENVIRONMENT;
-  struct MELT_STRING_STRUCT(19) dstr_4320__Initial_Environm;
-  struct MELT_ROUTINE_STRUCT(1) drout_4321__FIND_ENV;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4322__FIND_ENV;
-  struct MELT_ROUTINE_STRUCT(2) drout_4323__FIND_ENV_DEBUG;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4324__FIND_ENV_DEBUG;
-  struct MELT_ROUTINE_STRUCT(2) drout_4325__FIND_ENCLOSING_ENV;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4326__FIND_ENCLOSING_ENV;
-  struct MELT_ROUTINE_STRUCT(4) drout_4327__PUT_ENV;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4328__PUT_ENV;
-  struct MELT_ROUTINE_STRUCT(3) drout_4329__OVERWRITE_ENV;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4330__OVERWRITE_ENV;
-  struct MELT_ROUTINE_STRUCT(7) drout_4331__DEBUG_MSG_FUN;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4332__DEBUG_MSG_FUN;
-  struct MELT_ROUTINE_STRUCT(4) drout_4333__DBGOUT_ANYBINDING_METHOD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4334__DBGOUT_ANYBINDING_METHOD;
-  struct MELT_ROUTINE_STRUCT(4) drout_4335__POST_INITIALIZATION;
-  struct MELT_CLOSURE_STRUCT(0) dclo_4336__POST_INITIALIZATION;
-  struct MELT_OBJECT_STRUCT(3) dsym_4337__LIST_FIND;
-  struct MELT_STRING_STRUCT(9) dstr_4338__LIST_FIND;
-  struct MELT_OBJECT_STRUCT(3) dsym_4339__AT_EXIT_FIRST;
-  struct MELT_STRING_STRUCT(13) dstr_4340__AT_EXIT_FIRST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4341__AT_EXIT_LAST;
-  struct MELT_STRING_STRUCT(12) dstr_4342__AT_EXIT_LAST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4343__AT_FINISH_UNIT_FIRST;
-  struct MELT_STRING_STRUCT(20) dstr_4344__AT_FINISH_UNIT_F;
-  struct MELT_OBJECT_STRUCT(3) dsym_4345__AT_FINISH_UNIT_LAST;
-  struct MELT_STRING_STRUCT(19) dstr_4346__AT_FINISH_UNIT_L;
-  struct MELT_OBJECT_STRUCT(3) dsym_4347__AT_START_UNIT_FIRST;
-  struct MELT_STRING_STRUCT(19) dstr_4348__AT_START_UNIT_FI;
-  struct MELT_OBJECT_STRUCT(3) dsym_4349__AT_START_UNIT_LAST;
-  struct MELT_STRING_STRUCT(18) dstr_4350__AT_START_UNIT_LA;
-  struct MELT_OBJECT_STRUCT(3) dsym_4351__CLONE_SYMBOL;
-  struct MELT_STRING_STRUCT(12) dstr_4352__CLONE_SYMBOL;
-  struct MELT_OBJECT_STRUCT(3) dsym_4353__CLOSURE_EVERY;
-  struct MELT_STRING_STRUCT(13) dstr_4354__CLOSURE_EVERY;
-  struct MELT_OBJECT_STRUCT(3) dsym_4355__COMPARE_NAMED_ALPHA;
-  struct MELT_STRING_STRUCT(19) dstr_4356__COMPARE_NAMED_AL;
-  struct MELT_OBJECT_STRUCT(3) dsym_4357__COMPARE_OBJ_RANKED;
-  struct MELT_STRING_STRUCT(18) dstr_4358__COMPARE_OBJ_RANK;
-  struct MELT_OBJECT_STRUCT(3) dsym_4359__CSTRING_SAME;
-  struct MELT_STRING_STRUCT(12) dstr_4360__CSTRING_SAME;
-  struct MELT_OBJECT_STRUCT(3) dsym_4361__DBG_OUT;
-  struct MELT_STRING_STRUCT(7) dstr_4362__DBG_OUT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4363__DBG_OUTOBJECT;
-  struct MELT_STRING_STRUCT(13) dstr_4364__DBG_OUTOBJECT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4365__DBGOUT_FIELDS;
-  struct MELT_STRING_STRUCT(13) dstr_4366__DBGOUT_FIELDS;
-  struct MELT_OBJECT_STRUCT(3) dsym_4367__DBGOUTAGAIN_FIELDS;
-  struct MELT_STRING_STRUCT(18) dstr_4368__DBGOUTAGAIN_FIEL;
-  struct MELT_OBJECT_STRUCT(3) dsym_4369__DEBUG_MSG_FUN;
-  struct MELT_STRING_STRUCT(13) dstr_4370__DEBUG_MSG_FUN;
-  struct MELT_OBJECT_STRUCT(3) dsym_4371__DEBUGMSG;
-  struct MELT_STRING_STRUCT(8) dstr_4372__DEBUGMSG;
-  struct MELT_OBJECT_STRUCT(3) dsym_4373__DISPLAY_DEBUG_MESSAGE;
-  struct MELT_STRING_STRUCT(21) dstr_4374__DISPLAY_DEBUG_ME;
-  struct MELT_OBJECT_STRUCT(3) dsym_4375__FIND_ENCLOSING_ENV;
-  struct MELT_STRING_STRUCT(18) dstr_4376__FIND_ENCLOSING_E;
-  struct MELT_OBJECT_STRUCT(3) dsym_4377__FIND_ENV;
-  struct MELT_STRING_STRUCT(8) dstr_4378__FIND_ENV;
-  struct MELT_OBJECT_STRUCT(3) dsym_4379__FIND_ENV_DEBUG;
-  struct MELT_STRING_STRUCT(14) dstr_4380__FIND_ENV_DEBUG;
-  struct MELT_OBJECT_STRUCT(3) dsym_4381__FRESH_ENV;
-  struct MELT_STRING_STRUCT(9) dstr_4382__FRESH_ENV;
-  struct MELT_OBJECT_STRUCT(3) dsym_4383__INSTALL_CTYPE_DESCR;
-  struct MELT_STRING_STRUCT(19) dstr_4384__INSTALL_CTYPE_DE;
-  struct MELT_OBJECT_STRUCT(3) dsym_4385__INSTALL_METHOD;
-  struct MELT_STRING_STRUCT(14) dstr_4386__INSTALL_METHOD;
-  struct MELT_OBJECT_STRUCT(3) dsym_4387__LIST1;
-  struct MELT_STRING_STRUCT(5) dstr_4388__LIST1;
-  struct MELT_OBJECT_STRUCT(3) dsym_4389__LIST2;
-  struct MELT_STRING_STRUCT(5) dstr_4390__LIST2;
-  struct MELT_OBJECT_STRUCT(3) dsym_4391__LIST3;
-  struct MELT_STRING_STRUCT(5) dstr_4392__LIST3;
-  struct MELT_OBJECT_STRUCT(3) dsym_4393__LIST4;
-  struct MELT_STRING_STRUCT(5) dstr_4394__LIST4;
-  struct MELT_OBJECT_STRUCT(3) dsym_4395__LIST5;
-  struct MELT_STRING_STRUCT(5) dstr_4396__LIST5;
-  struct MELT_OBJECT_STRUCT(3) dsym_4397__LIST6;
-  struct MELT_STRING_STRUCT(5) dstr_4398__LIST6;
-  struct MELT_OBJECT_STRUCT(3) dsym_4399__LIST_APPEND2LIST;
-  struct MELT_STRING_STRUCT(16) dstr_4400__LIST_APPEND2LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4401__LIST_EVERY;
-  struct MELT_STRING_STRUCT(10) dstr_4402__LIST_EVERY;
-  struct MELT_OBJECT_STRUCT(3) dsym_4403__LIST_ITERATE_TEST;
-  struct MELT_STRING_STRUCT(17) dstr_4404__LIST_ITERATE_TES;
-  struct MELT_OBJECT_STRUCT(3) dsym_4405__LIST_MAP;
-  struct MELT_STRING_STRUCT(8) dstr_4406__LIST_MAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_4407__LIST_TO_MULTIPLE;
-  struct MELT_STRING_STRUCT(16) dstr_4408__LIST_TO_MULTIPLE;
-  struct MELT_OBJECT_STRUCT(3) dsym_4409__MAPOBJECT_EVERY;
-  struct MELT_STRING_STRUCT(15) dstr_4410__MAPOBJECT_EVERY;
-  struct MELT_OBJECT_STRUCT(3) dsym_4411__MAPOBJECT_ITERATE_TEST;
-  struct MELT_STRING_STRUCT(22) dstr_4412__MAPOBJECT_ITERAT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
-  struct MELT_STRING_STRUCT(32) dstr_4414__MAPOBJECT_SORTED;
-  struct MELT_OBJECT_STRUCT(3) dsym_4415__MAPSTRING_EVERY;
-  struct MELT_STRING_STRUCT(15) dstr_4416__MAPSTRING_EVERY;
-  struct MELT_OBJECT_STRUCT(3) dsym_4417__MAPSTRING_ITERATE_TEST;
-  struct MELT_STRING_STRUCT(22) dstr_4418__MAPSTRING_ITERAT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4419__MULTIPLE_BACKWARD_EVERY;
-  struct MELT_STRING_STRUCT(23) dstr_4420__MULTIPLE_BACKWAR;
-  struct MELT_OBJECT_STRUCT(3) dsym_4421__MULTIPLE_EVERY;
-  struct MELT_STRING_STRUCT(14) dstr_4422__MULTIPLE_EVERY;
-  struct MELT_OBJECT_STRUCT(3) dsym_4423__MULTIPLE_EVERY_BOTH;
-  struct MELT_STRING_STRUCT(19) dstr_4424__MULTIPLE_EVERY_B;
-  struct MELT_OBJECT_STRUCT(3) dsym_4425__MULTIPLE_ITERATE_TEST;
-  struct MELT_STRING_STRUCT(21) dstr_4426__MULTIPLE_ITERATE;
-  struct MELT_OBJECT_STRUCT(3) dsym_4427__MULTIPLE_MAP;
-  struct MELT_STRING_STRUCT(12) dstr_4428__MULTIPLE_MAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_4429__MULTIPLE_TO_LIST;
-  struct MELT_STRING_STRUCT(16) dstr_4430__MULTIPLE_TO_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4431__OVERWRITE_ENV;
-  struct MELT_STRING_STRUCT(13) dstr_4432__OVERWRITE_ENV;
-  struct MELT_OBJECT_STRUCT(3) dsym_4433__PAIRLIST_TO_MULTIPLE;
-  struct MELT_STRING_STRUCT(20) dstr_4434__PAIRLIST_TO_MULT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4435__POST_INITIALIZATION;
-  struct MELT_STRING_STRUCT(19) dstr_4436__POST_INITIALIZAT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4437__PUT_ENV;
-  struct MELT_STRING_STRUCT(7) dstr_4438__PUT_ENV;
-  struct MELT_OBJECT_STRUCT(3) dsym_4439__ROUTINE_EVERY;
-  struct MELT_STRING_STRUCT(13) dstr_4440__ROUTINE_EVERY;
-  struct MELT_OBJECT_STRUCT(3) dsym_4441__TUPLE_NTH;
-  struct MELT_STRING_STRUCT(9) dstr_4442__TUPLE_NTH;
-  struct MELT_OBJECT_STRUCT(3) dsym_4443__TUPLE_SIZED;
-  struct MELT_STRING_STRUCT(11) dstr_4444__TUPLE_SIZED;
-  struct MELT_OBJECT_STRUCT(3) dsym_4445__FOREACH_IN_LIST;
-  struct MELT_STRING_STRUCT(15) dstr_4446__FOREACH_IN_LIST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4447__FOREACH_IN_MAPOBJECT;
-  struct MELT_STRING_STRUCT(20) dstr_4448__FOREACH_IN_MAPOB;
-  struct MELT_OBJECT_STRUCT(3) dsym_4449__FOREACH_IN_MAPSTRING;
-  struct MELT_STRING_STRUCT(20) dstr_4450__FOREACH_IN_MAPST;
-  struct MELT_OBJECT_STRUCT(3) dsym_4451__FOREACH_IN_MULTIPLE;
-  struct MELT_STRING_STRUCT(19) dstr_4452__FOREACH_IN_MULTI;
-  struct MELT_OBJECT_STRUCT(3) dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD;
-  struct MELT_STRING_STRUCT(28) dstr_4454__FOREACH_IN_MULTI;
-  struct MELT_OBJECT_STRUCT(3) dsym_4455__FOREACH_LONG_UPTO;
-  struct MELT_STRING_STRUCT(17) dstr_4456__FOREACH_LONG_UPT;
-  struct MELT_OBJECT_STRUCT(3) dsym_4457__INTEGERBOX_OF;
-  struct MELT_STRING_STRUCT(13) dstr_4458__INTEGERBOX_OF;
-  struct MELT_OBJECT_STRUCT(3) dsym_4459__TRUE;
-  struct MELT_STRING_STRUCT(4) dstr_4460__TRUE;
-  struct MELT_OBJECT_STRUCT(3) dsym_4461__DISPLAYDEBUGMSG;
-  struct MELT_STRING_STRUCT(15) dstr_4462__DISPLAYDEBUGMSG;
+  struct MELT_ROUTINE_STRUCT(1) drout_4273__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_4274__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(2) drout_4275__DBGOUT_ANYOBJECT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4276__DBGOUT_ANYOBJECT_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4277__DBGOUT_ANYRECV_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4278__DBGOUT_ANYRECV_METHOD;
+  struct MELT_ROUTINE_STRUCT(1) drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4280__DBGOUTAGAIN_ANYOBJECT_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4281__DBGOUT_NAMEDOBJECT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4282__DBGOUT_NAMEDOBJECT_METHOD;
+  struct MELT_OBJECT_STRUCT(3) dsym_4283__DBGOUT_NAMEDOBJECT_METHOD;
+  struct MELT_STRING_STRUCT(25) dstr_4284__DBGOUT_NAMEDOBJE;
+  struct MELT_ROUTINE_STRUCT(1) drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4286__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4287__DBGOUT_SYMBOL_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4288__DBGOUT_SYMBOL_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4289__DBGOUTAGAIN_SYMBOL_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4290__DBGOUTAGAIN_SYMBOL_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4291__DBGOUT_CLASS_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4292__DBGOUT_CLASS_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4293__DBGOUT_KEYWORD_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4294__DBGOUT_KEYWORD_METHOD;
+  struct MELT_ROUTINE_STRUCT(2) drout_4295__DBGOUTAGAIN_KEYWORD_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4296__DBGOUTAGAIN_KEYWORD_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4297__DBGOUT_CLONED_SYMBOL_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4298__DBGOUT_CLONED_SYMBOL_METHOD;
+  struct MELT_ROUTINE_STRUCT(0) drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4300__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
+  struct MELT_ROUTINE_STRUCT(5) drout_4301__DBGOUT_ENVIRONMENT_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4302__DBGOUT_ENVIRONMENT_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4303__DBGOUT_CTYPE_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4304__DBGOUT_CTYPE_METHOD;
+  struct MELT_ROUTINE_STRUCT(0) drout_4305__DBGOUTAGAIN_CTYPE_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4306__DBGOUTAGAIN_CTYPE_METHOD;
+  struct MELT_ROUTINE_STRUCT(3) drout_4307__FRESH_ENV;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4308__FRESH_ENV;
+  struct MELT_OBJECT_STRUCT(3) dsym_4309__INITIAL_ENVIRONMENT;
+  struct MELT_STRING_STRUCT(19) dstr_4310__INITIAL_ENVIRONM;
+  struct MELT_OBJECT_STRUCT(4) dobj_4311__INITIAL_ENVIRONMENT;
+  struct MELT_STRING_STRUCT(19) dstr_4312__Initial_Environm;
+  struct MELT_ROUTINE_STRUCT(1) drout_4313__FIND_ENV;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4314__FIND_ENV;
+  struct MELT_ROUTINE_STRUCT(2) drout_4315__FIND_ENV_DEBUG;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4316__FIND_ENV_DEBUG;
+  struct MELT_ROUTINE_STRUCT(2) drout_4317__FIND_ENCLOSING_ENV;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4318__FIND_ENCLOSING_ENV;
+  struct MELT_ROUTINE_STRUCT(4) drout_4319__PUT_ENV;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4320__PUT_ENV;
+  struct MELT_ROUTINE_STRUCT(3) drout_4321__OVERWRITE_ENV;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4322__OVERWRITE_ENV;
+  struct MELT_ROUTINE_STRUCT(7) drout_4323__DEBUG_MSG_FUN;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4324__DEBUG_MSG_FUN;
+  struct MELT_ROUTINE_STRUCT(4) drout_4325__DBGOUT_ANYBINDING_METHOD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4326__DBGOUT_ANYBINDING_METHOD;
+  struct MELT_ROUTINE_STRUCT(4) drout_4327__POST_INITIALIZATION;
+  struct MELT_CLOSURE_STRUCT(0) dclo_4328__POST_INITIALIZATION;
+  struct MELT_OBJECT_STRUCT(3) dsym_4329__LIST_FIND;
+  struct MELT_STRING_STRUCT(9) dstr_4330__LIST_FIND;
+  struct MELT_OBJECT_STRUCT(3) dsym_4331__AT_EXIT_FIRST;
+  struct MELT_STRING_STRUCT(13) dstr_4332__AT_EXIT_FIRST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4333__AT_EXIT_LAST;
+  struct MELT_STRING_STRUCT(12) dstr_4334__AT_EXIT_LAST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4335__AT_FINISH_UNIT_FIRST;
+  struct MELT_STRING_STRUCT(20) dstr_4336__AT_FINISH_UNIT_F;
+  struct MELT_OBJECT_STRUCT(3) dsym_4337__AT_FINISH_UNIT_LAST;
+  struct MELT_STRING_STRUCT(19) dstr_4338__AT_FINISH_UNIT_L;
+  struct MELT_OBJECT_STRUCT(3) dsym_4339__AT_START_UNIT_FIRST;
+  struct MELT_STRING_STRUCT(19) dstr_4340__AT_START_UNIT_FI;
+  struct MELT_OBJECT_STRUCT(3) dsym_4341__AT_START_UNIT_LAST;
+  struct MELT_STRING_STRUCT(18) dstr_4342__AT_START_UNIT_LA;
+  struct MELT_OBJECT_STRUCT(3) dsym_4343__CLONE_SYMBOL;
+  struct MELT_STRING_STRUCT(12) dstr_4344__CLONE_SYMBOL;
+  struct MELT_OBJECT_STRUCT(3) dsym_4345__CLOSURE_EVERY;
+  struct MELT_STRING_STRUCT(13) dstr_4346__CLOSURE_EVERY;
+  struct MELT_OBJECT_STRUCT(3) dsym_4347__COMPARE_NAMED_ALPHA;
+  struct MELT_STRING_STRUCT(19) dstr_4348__COMPARE_NAMED_AL;
+  struct MELT_OBJECT_STRUCT(3) dsym_4349__COMPARE_OBJ_RANKED;
+  struct MELT_STRING_STRUCT(18) dstr_4350__COMPARE_OBJ_RANK;
+  struct MELT_OBJECT_STRUCT(3) dsym_4351__CSTRING_SAME;
+  struct MELT_STRING_STRUCT(12) dstr_4352__CSTRING_SAME;
+  struct MELT_OBJECT_STRUCT(3) dsym_4353__DBG_OUT;
+  struct MELT_STRING_STRUCT(7) dstr_4354__DBG_OUT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4355__DBG_OUTOBJECT;
+  struct MELT_STRING_STRUCT(13) dstr_4356__DBG_OUTOBJECT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4357__DBGOUT_FIELDS;
+  struct MELT_STRING_STRUCT(13) dstr_4358__DBGOUT_FIELDS;
+  struct MELT_OBJECT_STRUCT(3) dsym_4359__DBGOUTAGAIN_FIELDS;
+  struct MELT_STRING_STRUCT(18) dstr_4360__DBGOUTAGAIN_FIEL;
+  struct MELT_OBJECT_STRUCT(3) dsym_4361__DEBUG_MSG_FUN;
+  struct MELT_STRING_STRUCT(13) dstr_4362__DEBUG_MSG_FUN;
+  struct MELT_OBJECT_STRUCT(3) dsym_4363__DEBUGMSG;
+  struct MELT_STRING_STRUCT(8) dstr_4364__DEBUGMSG;
+  struct MELT_OBJECT_STRUCT(3) dsym_4365__DISPLAY_DEBUG_MESSAGE;
+  struct MELT_STRING_STRUCT(21) dstr_4366__DISPLAY_DEBUG_ME;
+  struct MELT_OBJECT_STRUCT(3) dsym_4367__FIND_ENCLOSING_ENV;
+  struct MELT_STRING_STRUCT(18) dstr_4368__FIND_ENCLOSING_E;
+  struct MELT_OBJECT_STRUCT(3) dsym_4369__FIND_ENV;
+  struct MELT_STRING_STRUCT(8) dstr_4370__FIND_ENV;
+  struct MELT_OBJECT_STRUCT(3) dsym_4371__FIND_ENV_DEBUG;
+  struct MELT_STRING_STRUCT(14) dstr_4372__FIND_ENV_DEBUG;
+  struct MELT_OBJECT_STRUCT(3) dsym_4373__FRESH_ENV;
+  struct MELT_STRING_STRUCT(9) dstr_4374__FRESH_ENV;
+  struct MELT_OBJECT_STRUCT(3) dsym_4375__INSTALL_CTYPE_DESCR;
+  struct MELT_STRING_STRUCT(19) dstr_4376__INSTALL_CTYPE_DE;
+  struct MELT_OBJECT_STRUCT(3) dsym_4377__INSTALL_METHOD;
+  struct MELT_STRING_STRUCT(14) dstr_4378__INSTALL_METHOD;
+  struct MELT_OBJECT_STRUCT(3) dsym_4379__LIST1;
+  struct MELT_STRING_STRUCT(5) dstr_4380__LIST1;
+  struct MELT_OBJECT_STRUCT(3) dsym_4381__LIST2;
+  struct MELT_STRING_STRUCT(5) dstr_4382__LIST2;
+  struct MELT_OBJECT_STRUCT(3) dsym_4383__LIST3;
+  struct MELT_STRING_STRUCT(5) dstr_4384__LIST3;
+  struct MELT_OBJECT_STRUCT(3) dsym_4385__LIST4;
+  struct MELT_STRING_STRUCT(5) dstr_4386__LIST4;
+  struct MELT_OBJECT_STRUCT(3) dsym_4387__LIST5;
+  struct MELT_STRING_STRUCT(5) dstr_4388__LIST5;
+  struct MELT_OBJECT_STRUCT(3) dsym_4389__LIST6;
+  struct MELT_STRING_STRUCT(5) dstr_4390__LIST6;
+  struct MELT_OBJECT_STRUCT(3) dsym_4391__LIST_APPEND2LIST;
+  struct MELT_STRING_STRUCT(16) dstr_4392__LIST_APPEND2LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4393__LIST_EVERY;
+  struct MELT_STRING_STRUCT(10) dstr_4394__LIST_EVERY;
+  struct MELT_OBJECT_STRUCT(3) dsym_4395__LIST_ITERATE_TEST;
+  struct MELT_STRING_STRUCT(17) dstr_4396__LIST_ITERATE_TES;
+  struct MELT_OBJECT_STRUCT(3) dsym_4397__LIST_MAP;
+  struct MELT_STRING_STRUCT(8) dstr_4398__LIST_MAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_4399__LIST_TO_MULTIPLE;
+  struct MELT_STRING_STRUCT(16) dstr_4400__LIST_TO_MULTIPLE;
+  struct MELT_OBJECT_STRUCT(3) dsym_4401__MAPOBJECT_EVERY;
+  struct MELT_STRING_STRUCT(15) dstr_4402__MAPOBJECT_EVERY;
+  struct MELT_OBJECT_STRUCT(3) dsym_4403__MAPOBJECT_ITERATE_TEST;
+  struct MELT_STRING_STRUCT(22) dstr_4404__MAPOBJECT_ITERAT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
+  struct MELT_STRING_STRUCT(32) dstr_4406__MAPOBJECT_SORTED;
+  struct MELT_OBJECT_STRUCT(3) dsym_4407__MAPSTRING_EVERY;
+  struct MELT_STRING_STRUCT(15) dstr_4408__MAPSTRING_EVERY;
+  struct MELT_OBJECT_STRUCT(3) dsym_4409__MAPSTRING_ITERATE_TEST;
+  struct MELT_STRING_STRUCT(22) dstr_4410__MAPSTRING_ITERAT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4411__MULTIPLE_BACKWARD_EVERY;
+  struct MELT_STRING_STRUCT(23) dstr_4412__MULTIPLE_BACKWAR;
+  struct MELT_OBJECT_STRUCT(3) dsym_4413__MULTIPLE_EVERY;
+  struct MELT_STRING_STRUCT(14) dstr_4414__MULTIPLE_EVERY;
+  struct MELT_OBJECT_STRUCT(3) dsym_4415__MULTIPLE_EVERY_BOTH;
+  struct MELT_STRING_STRUCT(19) dstr_4416__MULTIPLE_EVERY_B;
+  struct MELT_OBJECT_STRUCT(3) dsym_4417__MULTIPLE_ITERATE_TEST;
+  struct MELT_STRING_STRUCT(21) dstr_4418__MULTIPLE_ITERATE;
+  struct MELT_OBJECT_STRUCT(3) dsym_4419__MULTIPLE_MAP;
+  struct MELT_STRING_STRUCT(12) dstr_4420__MULTIPLE_MAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_4421__MULTIPLE_TO_LIST;
+  struct MELT_STRING_STRUCT(16) dstr_4422__MULTIPLE_TO_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4423__OVERWRITE_ENV;
+  struct MELT_STRING_STRUCT(13) dstr_4424__OVERWRITE_ENV;
+  struct MELT_OBJECT_STRUCT(3) dsym_4425__PAIRLIST_TO_MULTIPLE;
+  struct MELT_STRING_STRUCT(20) dstr_4426__PAIRLIST_TO_MULT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4427__POST_INITIALIZATION;
+  struct MELT_STRING_STRUCT(19) dstr_4428__POST_INITIALIZAT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4429__PUT_ENV;
+  struct MELT_STRING_STRUCT(7) dstr_4430__PUT_ENV;
+  struct MELT_OBJECT_STRUCT(3) dsym_4431__ROUTINE_EVERY;
+  struct MELT_STRING_STRUCT(13) dstr_4432__ROUTINE_EVERY;
+  struct MELT_OBJECT_STRUCT(3) dsym_4433__TUPLE_NTH;
+  struct MELT_STRING_STRUCT(9) dstr_4434__TUPLE_NTH;
+  struct MELT_OBJECT_STRUCT(3) dsym_4435__TUPLE_SIZED;
+  struct MELT_STRING_STRUCT(11) dstr_4436__TUPLE_SIZED;
+  struct MELT_OBJECT_STRUCT(3) dsym_4437__FOREACH_IN_LIST;
+  struct MELT_STRING_STRUCT(15) dstr_4438__FOREACH_IN_LIST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4439__FOREACH_IN_MAPOBJECT;
+  struct MELT_STRING_STRUCT(20) dstr_4440__FOREACH_IN_MAPOB;
+  struct MELT_OBJECT_STRUCT(3) dsym_4441__FOREACH_IN_MAPSTRING;
+  struct MELT_STRING_STRUCT(20) dstr_4442__FOREACH_IN_MAPST;
+  struct MELT_OBJECT_STRUCT(3) dsym_4443__FOREACH_IN_MULTIPLE;
+  struct MELT_STRING_STRUCT(19) dstr_4444__FOREACH_IN_MULTI;
+  struct MELT_OBJECT_STRUCT(3) dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD;
+  struct MELT_STRING_STRUCT(28) dstr_4446__FOREACH_IN_MULTI;
+  struct MELT_OBJECT_STRUCT(3) dsym_4447__FOREACH_LONG_UPTO;
+  struct MELT_STRING_STRUCT(17) dstr_4448__FOREACH_LONG_UPT;
+  struct MELT_OBJECT_STRUCT(3) dsym_4449__INTEGERBOX_OF;
+  struct MELT_STRING_STRUCT(13) dstr_4450__INTEGERBOX_OF;
+  struct MELT_OBJECT_STRUCT(3) dsym_4451__TRUE;
+  struct MELT_STRING_STRUCT(4) dstr_4452__TRUE;
+  struct MELT_OBJECT_STRUCT(3) dsym_4453__DISPLAYDEBUGMSG;
+  struct MELT_STRING_STRUCT(15) dstr_4454__DISPLAYDEBUGMSG;
  long spare_;
 } *cdat = NULL;
  cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0);
@@ -32280,331 +13499,331 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini
   MELTPREDEFIX(predefinited,CLASS_MELT_MODE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CLASS_MELT_MODE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:1978:/ inipredef");
- /*inipredef dobj_3687__DISCR_NAME_STRING*/
- if (!MELT_PREDEF(DISCR_NAME_STRING)) MELT_STORE_PREDEF(DISCR_NAME_STRING, (melt_ptr_t)&cdat->dobj_3687__DISCR_NAME_STRING);
+ MELT_LOCATION("warmelt-first.melt:1973:/ inipredef");
+ /*inipredef dobj_3679__DISCR_NAME_STRING*/
+ if (!MELT_PREDEF(DISCR_NAME_STRING)) MELT_STORE_PREDEF(DISCR_NAME_STRING, (melt_ptr_t)&cdat->dobj_3679__DISCR_NAME_STRING);
  else {
   MELTPREDEFIX(predefinited,DISCR_NAME_STRING) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_NAME_STRING", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:1987:/ inipredef");
- /*inipredef dobj_3690__DISCR_STRING*/
- if (!MELT_PREDEF(DISCR_STRING)) MELT_STORE_PREDEF(DISCR_STRING, (melt_ptr_t)&cdat->dobj_3690__DISCR_STRING);
+ MELT_LOCATION("warmelt-first.melt:1982:/ inipredef");
+ /*inipredef dobj_3682__DISCR_STRING*/
+ if (!MELT_PREDEF(DISCR_STRING)) MELT_STORE_PREDEF(DISCR_STRING, (melt_ptr_t)&cdat->dobj_3682__DISCR_STRING);
  else {
   MELTPREDEFIX(predefinited,DISCR_STRING) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_STRING", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:1998:/ inipredef");
- /*inipredef dobj_3695__DISCR_VERBATIM_STRING*/
- if (!MELT_PREDEF(DISCR_VERBATIM_STRING)) MELT_STORE_PREDEF(DISCR_VERBATIM_STRING, (melt_ptr_t)&cdat->dobj_3695__DISCR_VERBATIM_STRING);
+ MELT_LOCATION("warmelt-first.melt:1993:/ inipredef");
+ /*inipredef dobj_3687__DISCR_VERBATIM_STRING*/
+ if (!MELT_PREDEF(DISCR_VERBATIM_STRING)) MELT_STORE_PREDEF(DISCR_VERBATIM_STRING, (melt_ptr_t)&cdat->dobj_3687__DISCR_VERBATIM_STRING);
  else {
   MELTPREDEFIX(predefinited,DISCR_VERBATIM_STRING) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_VERBATIM_STRING", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2016:/ inipredef");
- /*inipredef dobj_3703__DISCR_NULL_RECEIVER*/
- if (!MELT_PREDEF(DISCR_NULL_RECEIVER)) MELT_STORE_PREDEF(DISCR_NULL_RECEIVER, (melt_ptr_t)&cdat->dobj_3703__DISCR_NULL_RECEIVER);
+ MELT_LOCATION("warmelt-first.melt:2011:/ inipredef");
+ /*inipredef dobj_3695__DISCR_NULL_RECEIVER*/
+ if (!MELT_PREDEF(DISCR_NULL_RECEIVER)) MELT_STORE_PREDEF(DISCR_NULL_RECEIVER, (melt_ptr_t)&cdat->dobj_3695__DISCR_NULL_RECEIVER);
  else {
   MELTPREDEFIX(predefinited,DISCR_NULL_RECEIVER) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_NULL_RECEIVER", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2023:/ inipredef");
- /*inipredef dobj_3707__DISCR_STRBUF*/
- if (!MELT_PREDEF(DISCR_STRBUF)) MELT_STORE_PREDEF(DISCR_STRBUF, (melt_ptr_t)&cdat->dobj_3707__DISCR_STRBUF);
+ MELT_LOCATION("warmelt-first.melt:2018:/ inipredef");
+ /*inipredef dobj_3699__DISCR_STRBUF*/
+ if (!MELT_PREDEF(DISCR_STRBUF)) MELT_STORE_PREDEF(DISCR_STRBUF, (melt_ptr_t)&cdat->dobj_3699__DISCR_STRBUF);
  else {
   MELTPREDEFIX(predefinited,DISCR_STRBUF) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_STRBUF", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2031:/ inipredef");
- /*inipredef dobj_3711__DISCR_INTEGER*/
- if (!MELT_PREDEF(DISCR_INTEGER)) MELT_STORE_PREDEF(DISCR_INTEGER, (melt_ptr_t)&cdat->dobj_3711__DISCR_INTEGER);
+ MELT_LOCATION("warmelt-first.melt:2026:/ inipredef");
+ /*inipredef dobj_3703__DISCR_INTEGER*/
+ if (!MELT_PREDEF(DISCR_INTEGER)) MELT_STORE_PREDEF(DISCR_INTEGER, (melt_ptr_t)&cdat->dobj_3703__DISCR_INTEGER);
  else {
   MELTPREDEFIX(predefinited,DISCR_INTEGER) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_INTEGER", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2039:/ inipredef");
- /*inipredef dobj_3715__DISCR_CONSTANT_INTEGER*/
- if (!MELT_PREDEF(DISCR_CONSTANT_INTEGER)) MELT_STORE_PREDEF(DISCR_CONSTANT_INTEGER, (melt_ptr_t)&cdat->dobj_3715__DISCR_CONSTANT_INTEGER);
+ MELT_LOCATION("warmelt-first.melt:2034:/ inipredef");
+ /*inipredef dobj_3707__DISCR_CONSTANT_INTEGER*/
+ if (!MELT_PREDEF(DISCR_CONSTANT_INTEGER)) MELT_STORE_PREDEF(DISCR_CONSTANT_INTEGER, (melt_ptr_t)&cdat->dobj_3707__DISCR_CONSTANT_INTEGER);
  else {
   MELTPREDEFIX(predefinited,DISCR_CONSTANT_INTEGER) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CONSTANT_INTEGER", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2050:/ inipredef");
- /*inipredef dobj_3719__DISCR_LIST*/
- if (!MELT_PREDEF(DISCR_LIST)) MELT_STORE_PREDEF(DISCR_LIST, (melt_ptr_t)&cdat->dobj_3719__DISCR_LIST);
+ MELT_LOCATION("warmelt-first.melt:2045:/ inipredef");
+ /*inipredef dobj_3711__DISCR_LIST*/
+ if (!MELT_PREDEF(DISCR_LIST)) MELT_STORE_PREDEF(DISCR_LIST, (melt_ptr_t)&cdat->dobj_3711__DISCR_LIST);
  else {
   MELTPREDEFIX(predefinited,DISCR_LIST) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_LIST", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2058:/ inipredef");
- /*inipredef dobj_3723__DISCR_PAIR*/
- if (!MELT_PREDEF(DISCR_PAIR)) MELT_STORE_PREDEF(DISCR_PAIR, (melt_ptr_t)&cdat->dobj_3723__DISCR_PAIR);
+ MELT_LOCATION("warmelt-first.melt:2053:/ inipredef");
+ /*inipredef dobj_3715__DISCR_PAIR*/
+ if (!MELT_PREDEF(DISCR_PAIR)) MELT_STORE_PREDEF(DISCR_PAIR, (melt_ptr_t)&cdat->dobj_3715__DISCR_PAIR);
  else {
   MELTPREDEFIX(predefinited,DISCR_PAIR) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_PAIR", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2066:/ inipredef");
- /*inipredef dobj_3727__DISCR_MULTIPLE*/
- if (!MELT_PREDEF(DISCR_MULTIPLE)) MELT_STORE_PREDEF(DISCR_MULTIPLE, (melt_ptr_t)&cdat->dobj_3727__DISCR_MULTIPLE);
+ MELT_LOCATION("warmelt-first.melt:2061:/ inipredef");
+ /*inipredef dobj_3719__DISCR_MULTIPLE*/
+ if (!MELT_PREDEF(DISCR_MULTIPLE)) MELT_STORE_PREDEF(DISCR_MULTIPLE, (melt_ptr_t)&cdat->dobj_3719__DISCR_MULTIPLE);
  else {
   MELTPREDEFIX(predefinited,DISCR_MULTIPLE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MULTIPLE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2075:/ inipredef");
- /*inipredef dobj_3731__DISCR_FIELD_SEQUENCE*/
- if (!MELT_PREDEF(DISCR_FIELD_SEQUENCE)) MELT_STORE_PREDEF(DISCR_FIELD_SEQUENCE, (melt_ptr_t)&cdat->dobj_3731__DISCR_FIELD_SEQUENCE);
+ MELT_LOCATION("warmelt-first.melt:2070:/ inipredef");
+ /*inipredef dobj_3723__DISCR_FIELD_SEQUENCE*/
+ if (!MELT_PREDEF(DISCR_FIELD_SEQUENCE)) MELT_STORE_PREDEF(DISCR_FIELD_SEQUENCE, (melt_ptr_t)&cdat->dobj_3723__DISCR_FIELD_SEQUENCE);
  else {
   MELTPREDEFIX(predefinited,DISCR_FIELD_SEQUENCE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_FIELD_SEQUENCE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2086:/ inipredef");
- /*inipredef dobj_3735__DISCR_BOX*/
- if (!MELT_PREDEF(DISCR_BOX)) MELT_STORE_PREDEF(DISCR_BOX, (melt_ptr_t)&cdat->dobj_3735__DISCR_BOX);
+ MELT_LOCATION("warmelt-first.melt:2081:/ inipredef");
+ /*inipredef dobj_3727__DISCR_BOX*/
+ if (!MELT_PREDEF(DISCR_BOX)) MELT_STORE_PREDEF(DISCR_BOX, (melt_ptr_t)&cdat->dobj_3727__DISCR_BOX);
  else {
   MELTPREDEFIX(predefinited,DISCR_BOX) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_BOX", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2095:/ inipredef");
- /*inipredef dobj_3739__DISCR_TREE*/
- if (!MELT_PREDEF(DISCR_TREE)) MELT_STORE_PREDEF(DISCR_TREE, (melt_ptr_t)&cdat->dobj_3739__DISCR_TREE);
+ MELT_LOCATION("warmelt-first.melt:2090:/ inipredef");
+ /*inipredef dobj_3731__DISCR_TREE*/
+ if (!MELT_PREDEF(DISCR_TREE)) MELT_STORE_PREDEF(DISCR_TREE, (melt_ptr_t)&cdat->dobj_3731__DISCR_TREE);
  else {
   MELTPREDEFIX(predefinited,DISCR_TREE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_TREE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2103:/ inipredef");
- /*inipredef dobj_3743__DISCR_GIMPLE*/
- if (!MELT_PREDEF(DISCR_GIMPLE)) MELT_STORE_PREDEF(DISCR_GIMPLE, (melt_ptr_t)&cdat->dobj_3743__DISCR_GIMPLE);
+ MELT_LOCATION("warmelt-first.melt:2098:/ inipredef");
+ /*inipredef dobj_3735__DISCR_GIMPLE*/
+ if (!MELT_PREDEF(DISCR_GIMPLE)) MELT_STORE_PREDEF(DISCR_GIMPLE, (melt_ptr_t)&cdat->dobj_3735__DISCR_GIMPLE);
  else {
   MELTPREDEFIX(predefinited,DISCR_GIMPLE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_GIMPLE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2111:/ inipredef");
- /*inipredef dobj_3747__DISCR_GIMPLE_SEQ*/
- if (!MELT_PREDEF(DISCR_GIMPLE_SEQ)) MELT_STORE_PREDEF(DISCR_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_3747__DISCR_GIMPLE_SEQ);
+ MELT_LOCATION("warmelt-first.melt:2106:/ inipredef");
+ /*inipredef dobj_3739__DISCR_GIMPLE_SEQ*/
+ if (!MELT_PREDEF(DISCR_GIMPLE_SEQ)) MELT_STORE_PREDEF(DISCR_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_3739__DISCR_GIMPLE_SEQ);
  else {
   MELTPREDEFIX(predefinited,DISCR_GIMPLE_SEQ) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_GIMPLE_SEQ", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2119:/ inipredef");
- /*inipredef dobj_3751__DISCR_EDGE*/
- if (!MELT_PREDEF(DISCR_EDGE)) MELT_STORE_PREDEF(DISCR_EDGE, (melt_ptr_t)&cdat->dobj_3751__DISCR_EDGE);
+ MELT_LOCATION("warmelt-first.melt:2114:/ inipredef");
+ /*inipredef dobj_3743__DISCR_EDGE*/
+ if (!MELT_PREDEF(DISCR_EDGE)) MELT_STORE_PREDEF(DISCR_EDGE, (melt_ptr_t)&cdat->dobj_3743__DISCR_EDGE);
  else {
   MELTPREDEFIX(predefinited,DISCR_EDGE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_EDGE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2126:/ inipredef");
- /*inipredef dobj_3755__DISCR_BASIC_BLOCK*/
- if (!MELT_PREDEF(DISCR_BASIC_BLOCK)) MELT_STORE_PREDEF(DISCR_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_3755__DISCR_BASIC_BLOCK);
+ MELT_LOCATION("warmelt-first.melt:2121:/ inipredef");
+ /*inipredef dobj_3747__DISCR_BASIC_BLOCK*/
+ if (!MELT_PREDEF(DISCR_BASIC_BLOCK)) MELT_STORE_PREDEF(DISCR_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_3747__DISCR_BASIC_BLOCK);
  else {
   MELTPREDEFIX(predefinited,DISCR_BASIC_BLOCK) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_BASIC_BLOCK", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2135:/ inipredef");
- /*inipredef dobj_3759__DISCR_MAP_OBJECTS*/
- if (!MELT_PREDEF(DISCR_MAP_OBJECTS)) MELT_STORE_PREDEF(DISCR_MAP_OBJECTS, (melt_ptr_t)&cdat->dobj_3759__DISCR_MAP_OBJECTS);
+ MELT_LOCATION("warmelt-first.melt:2130:/ inipredef");
+ /*inipredef dobj_3751__DISCR_MAP_OBJECTS*/
+ if (!MELT_PREDEF(DISCR_MAP_OBJECTS)) MELT_STORE_PREDEF(DISCR_MAP_OBJECTS, (melt_ptr_t)&cdat->dobj_3751__DISCR_MAP_OBJECTS);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_OBJECTS) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_OBJECTS", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2144:/ inipredef");
- /*inipredef dobj_3763__DISCR_MAP_STRINGS*/
- if (!MELT_PREDEF(DISCR_MAP_STRINGS)) MELT_STORE_PREDEF(DISCR_MAP_STRINGS, (melt_ptr_t)&cdat->dobj_3763__DISCR_MAP_STRINGS);
+ MELT_LOCATION("warmelt-first.melt:2139:/ inipredef");
+ /*inipredef dobj_3755__DISCR_MAP_STRINGS*/
+ if (!MELT_PREDEF(DISCR_MAP_STRINGS)) MELT_STORE_PREDEF(DISCR_MAP_STRINGS, (melt_ptr_t)&cdat->dobj_3755__DISCR_MAP_STRINGS);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_STRINGS) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_STRINGS", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2153:/ inipredef");
- /*inipredef dobj_3767__DISCR_MAP_TREES*/
- if (!MELT_PREDEF(DISCR_MAP_TREES)) MELT_STORE_PREDEF(DISCR_MAP_TREES, (melt_ptr_t)&cdat->dobj_3767__DISCR_MAP_TREES);
+ MELT_LOCATION("warmelt-first.melt:2148:/ inipredef");
+ /*inipredef dobj_3759__DISCR_MAP_TREES*/
+ if (!MELT_PREDEF(DISCR_MAP_TREES)) MELT_STORE_PREDEF(DISCR_MAP_TREES, (melt_ptr_t)&cdat->dobj_3759__DISCR_MAP_TREES);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_TREES) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_TREES", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2162:/ inipredef");
- /*inipredef dobj_3771__DISCR_MAP_GIMPLES*/
- if (!MELT_PREDEF(DISCR_MAP_GIMPLES)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLES, (melt_ptr_t)&cdat->dobj_3771__DISCR_MAP_GIMPLES);
+ MELT_LOCATION("warmelt-first.melt:2157:/ inipredef");
+ /*inipredef dobj_3763__DISCR_MAP_GIMPLES*/
+ if (!MELT_PREDEF(DISCR_MAP_GIMPLES)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLES, (melt_ptr_t)&cdat->dobj_3763__DISCR_MAP_GIMPLES);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLES) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_GIMPLES", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2171:/ inipredef");
- /*inipredef dobj_3775__DISCR_MAP_GIMPLE_SEQS*/
- if (!MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLE_SEQS, (melt_ptr_t)&cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS);
+ MELT_LOCATION("warmelt-first.melt:2166:/ inipredef");
+ /*inipredef dobj_3767__DISCR_MAP_GIMPLE_SEQS*/
+ if (!MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)) MELT_STORE_PREDEF(DISCR_MAP_GIMPLE_SEQS, (melt_ptr_t)&cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLE_SEQS) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_GIMPLE_SEQS", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2180:/ inipredef");
- /*inipredef dobj_3779__DISCR_MAP_EDGES*/
- if (!MELT_PREDEF(DISCR_MAP_EDGES)) MELT_STORE_PREDEF(DISCR_MAP_EDGES, (melt_ptr_t)&cdat->dobj_3779__DISCR_MAP_EDGES);
+ MELT_LOCATION("warmelt-first.melt:2175:/ inipredef");
+ /*inipredef dobj_3771__DISCR_MAP_EDGES*/
+ if (!MELT_PREDEF(DISCR_MAP_EDGES)) MELT_STORE_PREDEF(DISCR_MAP_EDGES, (melt_ptr_t)&cdat->dobj_3771__DISCR_MAP_EDGES);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_EDGES) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_EDGES", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2189:/ inipredef");
- /*inipredef dobj_3783__DISCR_MAP_BASIC_BLOCKS*/
- if (!MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)) MELT_STORE_PREDEF(DISCR_MAP_BASIC_BLOCKS, (melt_ptr_t)&cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS);
+ MELT_LOCATION("warmelt-first.melt:2184:/ inipredef");
+ /*inipredef dobj_3775__DISCR_MAP_BASIC_BLOCKS*/
+ if (!MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)) MELT_STORE_PREDEF(DISCR_MAP_BASIC_BLOCKS, (melt_ptr_t)&cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS);
  else {
   MELTPREDEFIX(predefinited,DISCR_MAP_BASIC_BLOCKS) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MAP_BASIC_BLOCKS", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2236:/ inipredef");
- /*inipredef dobj_3803__DISCR_CLASS_SEQUENCE*/
- if (!MELT_PREDEF(DISCR_CLASS_SEQUENCE)) MELT_STORE_PREDEF(DISCR_CLASS_SEQUENCE, (melt_ptr_t)&cdat->dobj_3803__DISCR_CLASS_SEQUENCE);
+ MELT_LOCATION("warmelt-first.melt:2231:/ inipredef");
+ /*inipredef dobj_3795__DISCR_CLASS_SEQUENCE*/
+ if (!MELT_PREDEF(DISCR_CLASS_SEQUENCE)) MELT_STORE_PREDEF(DISCR_CLASS_SEQUENCE, (melt_ptr_t)&cdat->dobj_3795__DISCR_CLASS_SEQUENCE);
  else {
   MELTPREDEFIX(predefinited,DISCR_CLASS_SEQUENCE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CLASS_SEQUENCE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2247:/ inipredef");
- /*inipredef dobj_3807__DISCR_METHOD_MAP*/
- if (!MELT_PREDEF(DISCR_METHOD_MAP)) MELT_STORE_PREDEF(DISCR_METHOD_MAP, (melt_ptr_t)&cdat->dobj_3807__DISCR_METHOD_MAP);
+ MELT_LOCATION("warmelt-first.melt:2242:/ inipredef");
+ /*inipredef dobj_3799__DISCR_METHOD_MAP*/
+ if (!MELT_PREDEF(DISCR_METHOD_MAP)) MELT_STORE_PREDEF(DISCR_METHOD_MAP, (melt_ptr_t)&cdat->dobj_3799__DISCR_METHOD_MAP);
  else {
   MELTPREDEFIX(predefinited,DISCR_METHOD_MAP) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_METHOD_MAP", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2258:/ inipredef");
- /*inipredef dobj_3811__DISCR_CHARACTER_INTEGER*/
- if (!MELT_PREDEF(DISCR_CHARACTER_INTEGER)) MELT_STORE_PREDEF(DISCR_CHARACTER_INTEGER, (melt_ptr_t)&cdat->dobj_3811__DISCR_CHARACTER_INTEGER);
+ MELT_LOCATION("warmelt-first.melt:2253:/ inipredef");
+ /*inipredef dobj_3803__DISCR_CHARACTER_INTEGER*/
+ if (!MELT_PREDEF(DISCR_CHARACTER_INTEGER)) MELT_STORE_PREDEF(DISCR_CHARACTER_INTEGER, (melt_ptr_t)&cdat->dobj_3803__DISCR_CHARACTER_INTEGER);
  else {
   MELTPREDEFIX(predefinited,DISCR_CHARACTER_INTEGER) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CHARACTER_INTEGER", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2269:/ inipredef");
- /*inipredef dobj_3815__DISCR_MIXED_INTEGER*/
- if (!MELT_PREDEF(DISCR_MIXED_INTEGER)) MELT_STORE_PREDEF(DISCR_MIXED_INTEGER, (melt_ptr_t)&cdat->dobj_3815__DISCR_MIXED_INTEGER);
+ MELT_LOCATION("warmelt-first.melt:2264:/ inipredef");
+ /*inipredef dobj_3807__DISCR_MIXED_INTEGER*/
+ if (!MELT_PREDEF(DISCR_MIXED_INTEGER)) MELT_STORE_PREDEF(DISCR_MIXED_INTEGER, (melt_ptr_t)&cdat->dobj_3807__DISCR_MIXED_INTEGER);
  else {
   MELTPREDEFIX(predefinited,DISCR_MIXED_INTEGER) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MIXED_INTEGER", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2279:/ inipredef");
- /*inipredef dobj_3819__DISCR_MIXED_BIGINT*/
- if (!MELT_PREDEF(DISCR_MIXED_BIGINT)) MELT_STORE_PREDEF(DISCR_MIXED_BIGINT, (melt_ptr_t)&cdat->dobj_3819__DISCR_MIXED_BIGINT);
+ MELT_LOCATION("warmelt-first.melt:2274:/ inipredef");
+ /*inipredef dobj_3811__DISCR_MIXED_BIGINT*/
+ if (!MELT_PREDEF(DISCR_MIXED_BIGINT)) MELT_STORE_PREDEF(DISCR_MIXED_BIGINT, (melt_ptr_t)&cdat->dobj_3811__DISCR_MIXED_BIGINT);
  else {
   MELTPREDEFIX(predefinited,DISCR_MIXED_BIGINT) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MIXED_BIGINT", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2290:/ inipredef");
- /*inipredef dobj_3823__DISCR_MIXED_LOCATION*/
- if (!MELT_PREDEF(DISCR_MIXED_LOCATION)) MELT_STORE_PREDEF(DISCR_MIXED_LOCATION, (melt_ptr_t)&cdat->dobj_3823__DISCR_MIXED_LOCATION);
+ MELT_LOCATION("warmelt-first.melt:2285:/ inipredef");
+ /*inipredef dobj_3815__DISCR_MIXED_LOCATION*/
+ if (!MELT_PREDEF(DISCR_MIXED_LOCATION)) MELT_STORE_PREDEF(DISCR_MIXED_LOCATION, (melt_ptr_t)&cdat->dobj_3815__DISCR_MIXED_LOCATION);
  else {
   MELTPREDEFIX(predefinited,DISCR_MIXED_LOCATION) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_MIXED_LOCATION", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2300:/ inipredef");
- /*inipredef dobj_3827__DISCR_CLOSURE*/
- if (!MELT_PREDEF(DISCR_CLOSURE)) MELT_STORE_PREDEF(DISCR_CLOSURE, (melt_ptr_t)&cdat->dobj_3827__DISCR_CLOSURE);
+ MELT_LOCATION("warmelt-first.melt:2295:/ inipredef");
+ /*inipredef dobj_3819__DISCR_CLOSURE*/
+ if (!MELT_PREDEF(DISCR_CLOSURE)) MELT_STORE_PREDEF(DISCR_CLOSURE, (melt_ptr_t)&cdat->dobj_3819__DISCR_CLOSURE);
  else {
   MELTPREDEFIX(predefinited,DISCR_CLOSURE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_CLOSURE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2309:/ inipredef");
- /*inipredef dobj_3831__DISCR_ROUTINE*/
- if (!MELT_PREDEF(DISCR_ROUTINE)) MELT_STORE_PREDEF(DISCR_ROUTINE, (melt_ptr_t)&cdat->dobj_3831__DISCR_ROUTINE);
+ MELT_LOCATION("warmelt-first.melt:2304:/ inipredef");
+ /*inipredef dobj_3823__DISCR_ROUTINE*/
+ if (!MELT_PREDEF(DISCR_ROUTINE)) MELT_STORE_PREDEF(DISCR_ROUTINE, (melt_ptr_t)&cdat->dobj_3823__DISCR_ROUTINE);
  else {
   MELTPREDEFIX(predefinited,DISCR_ROUTINE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "DISCR_ROUTINE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2345:/ inipredef");
- /*inipredef dobj_3837__CTYPE_VALUE*/
- if (!MELT_PREDEF(CTYPE_VALUE)) MELT_STORE_PREDEF(CTYPE_VALUE, (melt_ptr_t)&cdat->dobj_3837__CTYPE_VALUE);
+ MELT_LOCATION("warmelt-first.melt:2340:/ inipredef");
+ /*inipredef dobj_3829__CTYPE_VALUE*/
+ if (!MELT_PREDEF(CTYPE_VALUE)) MELT_STORE_PREDEF(CTYPE_VALUE, (melt_ptr_t)&cdat->dobj_3829__CTYPE_VALUE);
  else {
   MELTPREDEFIX(predefinited,CTYPE_VALUE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_VALUE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2361:/ inipredef");
- /*inipredef dobj_3849__CTYPE_LONG*/
- if (!MELT_PREDEF(CTYPE_LONG)) MELT_STORE_PREDEF(CTYPE_LONG, (melt_ptr_t)&cdat->dobj_3849__CTYPE_LONG);
+ MELT_LOCATION("warmelt-first.melt:2356:/ inipredef");
+ /*inipredef dobj_3841__CTYPE_LONG*/
+ if (!MELT_PREDEF(CTYPE_LONG)) MELT_STORE_PREDEF(CTYPE_LONG, (melt_ptr_t)&cdat->dobj_3841__CTYPE_LONG);
  else {
   MELTPREDEFIX(predefinited,CTYPE_LONG) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_LONG", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2375:/ inipredef");
- /*inipredef dobj_3860__CTYPE_TREE*/
- if (!MELT_PREDEF(CTYPE_TREE)) MELT_STORE_PREDEF(CTYPE_TREE, (melt_ptr_t)&cdat->dobj_3860__CTYPE_TREE);
+ MELT_LOCATION("warmelt-first.melt:2370:/ inipredef");
+ /*inipredef dobj_3852__CTYPE_TREE*/
+ if (!MELT_PREDEF(CTYPE_TREE)) MELT_STORE_PREDEF(CTYPE_TREE, (melt_ptr_t)&cdat->dobj_3852__CTYPE_TREE);
  else {
   MELTPREDEFIX(predefinited,CTYPE_TREE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_TREE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2390:/ inipredef");
- /*inipredef dobj_3872__CTYPE_GIMPLE*/
- if (!MELT_PREDEF(CTYPE_GIMPLE)) MELT_STORE_PREDEF(CTYPE_GIMPLE, (melt_ptr_t)&cdat->dobj_3872__CTYPE_GIMPLE);
+ MELT_LOCATION("warmelt-first.melt:2385:/ inipredef");
+ /*inipredef dobj_3864__CTYPE_GIMPLE*/
+ if (!MELT_PREDEF(CTYPE_GIMPLE)) MELT_STORE_PREDEF(CTYPE_GIMPLE, (melt_ptr_t)&cdat->dobj_3864__CTYPE_GIMPLE);
  else {
   MELTPREDEFIX(predefinited,CTYPE_GIMPLE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_GIMPLE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2405:/ inipredef");
- /*inipredef dobj_3884__CTYPE_GIMPLE_SEQ*/
- if (!MELT_PREDEF(CTYPE_GIMPLE_SEQ)) MELT_STORE_PREDEF(CTYPE_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_3884__CTYPE_GIMPLE_SEQ);
+ MELT_LOCATION("warmelt-first.melt:2400:/ inipredef");
+ /*inipredef dobj_3876__CTYPE_GIMPLE_SEQ*/
+ if (!MELT_PREDEF(CTYPE_GIMPLE_SEQ)) MELT_STORE_PREDEF(CTYPE_GIMPLE_SEQ, (melt_ptr_t)&cdat->dobj_3876__CTYPE_GIMPLE_SEQ);
  else {
   MELTPREDEFIX(predefinited,CTYPE_GIMPLE_SEQ) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_GIMPLE_SEQ", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2422:/ inipredef");
- /*inipredef dobj_3896__CTYPE_BASIC_BLOCK*/
- if (!MELT_PREDEF(CTYPE_BASIC_BLOCK)) MELT_STORE_PREDEF(CTYPE_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_3896__CTYPE_BASIC_BLOCK);
+ MELT_LOCATION("warmelt-first.melt:2417:/ inipredef");
+ /*inipredef dobj_3888__CTYPE_BASIC_BLOCK*/
+ if (!MELT_PREDEF(CTYPE_BASIC_BLOCK)) MELT_STORE_PREDEF(CTYPE_BASIC_BLOCK, (melt_ptr_t)&cdat->dobj_3888__CTYPE_BASIC_BLOCK);
  else {
   MELTPREDEFIX(predefinited,CTYPE_BASIC_BLOCK) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_BASIC_BLOCK", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2439:/ inipredef");
- /*inipredef dobj_3908__CTYPE_EDGE*/
- if (!MELT_PREDEF(CTYPE_EDGE)) MELT_STORE_PREDEF(CTYPE_EDGE, (melt_ptr_t)&cdat->dobj_3908__CTYPE_EDGE);
+ MELT_LOCATION("warmelt-first.melt:2434:/ inipredef");
+ /*inipredef dobj_3900__CTYPE_EDGE*/
+ if (!MELT_PREDEF(CTYPE_EDGE)) MELT_STORE_PREDEF(CTYPE_EDGE, (melt_ptr_t)&cdat->dobj_3900__CTYPE_EDGE);
  else {
   MELTPREDEFIX(predefinited,CTYPE_EDGE) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_EDGE", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2455:/ inipredef");
- /*inipredef dobj_3920__CTYPE_PPL_COEFFICIENT*/
- if (!MELT_PREDEF(CTYPE_PPL_COEFFICIENT)) MELT_STORE_PREDEF(CTYPE_PPL_COEFFICIENT, (melt_ptr_t)&cdat->dobj_3920__CTYPE_PPL_COEFFICIENT);
+ MELT_LOCATION("warmelt-first.melt:2450:/ inipredef");
+ /*inipredef dobj_3912__CTYPE_PPL_COEFFICIENT*/
+ if (!MELT_PREDEF(CTYPE_PPL_COEFFICIENT)) MELT_STORE_PREDEF(CTYPE_PPL_COEFFICIENT, (melt_ptr_t)&cdat->dobj_3912__CTYPE_PPL_COEFFICIENT);
  else {
   MELTPREDEFIX(predefinited,CTYPE_PPL_COEFFICIENT) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_COEFFICIENT", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2470:/ inipredef");
- /*inipredef dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION*/
- if (!MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)) MELT_STORE_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION, (melt_ptr_t)&cdat->dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION);
+ MELT_LOCATION("warmelt-first.melt:2465:/ inipredef");
+ /*inipredef dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION*/
+ if (!MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)) MELT_STORE_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION, (melt_ptr_t)&cdat->dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION);
  else {
   MELTPREDEFIX(predefinited,CTYPE_PPL_LINEAR_EXPRESSION) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_LINEAR_EXPRESSION", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2485:/ inipredef");
- /*inipredef dobj_3942__CTYPE_PPL_CONSTRAINT*/
- if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT, (melt_ptr_t)&cdat->dobj_3942__CTYPE_PPL_CONSTRAINT);
+ MELT_LOCATION("warmelt-first.melt:2480:/ inipredef");
+ /*inipredef dobj_3934__CTYPE_PPL_CONSTRAINT*/
+ if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT, (melt_ptr_t)&cdat->dobj_3934__CTYPE_PPL_CONSTRAINT);
  else {
   MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_CONSTRAINT", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2500:/ inipredef");
- /*inipredef dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM*/
- if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM, (melt_ptr_t)&cdat->dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM);
+ MELT_LOCATION("warmelt-first.melt:2495:/ inipredef");
+ /*inipredef dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM*/
+ if (!MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)) MELT_STORE_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM, (melt_ptr_t)&cdat->dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM);
  else {
   MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT_SYSTEM) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_CONSTRAINT_SYSTEM", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2515:/ inipredef");
- /*inipredef dobj_3964__CTYPE_PPL_POLYHEDRON*/
- if (!MELT_PREDEF(CTYPE_PPL_POLYHEDRON)) MELT_STORE_PREDEF(CTYPE_PPL_POLYHEDRON, (melt_ptr_t)&cdat->dobj_3964__CTYPE_PPL_POLYHEDRON);
+ MELT_LOCATION("warmelt-first.melt:2510:/ inipredef");
+ /*inipredef dobj_3956__CTYPE_PPL_POLYHEDRON*/
+ if (!MELT_PREDEF(CTYPE_PPL_POLYHEDRON)) MELT_STORE_PREDEF(CTYPE_PPL_POLYHEDRON, (melt_ptr_t)&cdat->dobj_3956__CTYPE_PPL_POLYHEDRON);
  else {
   MELTPREDEFIX(predefinited,CTYPE_PPL_POLYHEDRON) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_PPL_POLYHEDRON", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2531:/ inipredef");
- /*inipredef dobj_3975__CTYPE_VOID*/
- if (!MELT_PREDEF(CTYPE_VOID)) MELT_STORE_PREDEF(CTYPE_VOID, (melt_ptr_t)&cdat->dobj_3975__CTYPE_VOID);
+ MELT_LOCATION("warmelt-first.melt:2526:/ inipredef");
+ /*inipredef dobj_3967__CTYPE_VOID*/
+ if (!MELT_PREDEF(CTYPE_VOID)) MELT_STORE_PREDEF(CTYPE_VOID, (melt_ptr_t)&cdat->dobj_3967__CTYPE_VOID);
  else {
   MELTPREDEFIX(predefinited,CTYPE_VOID) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_VOID", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:2543:/ inipredef");
- /*inipredef dobj_3982__CTYPE_CSTRING*/
- if (!MELT_PREDEF(CTYPE_CSTRING)) MELT_STORE_PREDEF(CTYPE_CSTRING, (melt_ptr_t)&cdat->dobj_3982__CTYPE_CSTRING);
+ MELT_LOCATION("warmelt-first.melt:2538:/ inipredef");
+ /*inipredef dobj_3974__CTYPE_CSTRING*/
+ if (!MELT_PREDEF(CTYPE_CSTRING)) MELT_STORE_PREDEF(CTYPE_CSTRING, (melt_ptr_t)&cdat->dobj_3974__CTYPE_CSTRING);
  else {
   MELTPREDEFIX(predefinited,CTYPE_CSTRING) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "CTYPE_CSTRING", __FILE__, __LINE__);
   };
- MELT_LOCATION("warmelt-first.melt:3101:/ inipredef");
- /*inipredef dobj_4075__INITIAL_SYSTEM_DATA*/
- if (!MELT_PREDEF(INITIAL_SYSTEM_DATA)) MELT_STORE_PREDEF(INITIAL_SYSTEM_DATA, (melt_ptr_t)&cdat->dobj_4075__INITIAL_SYSTEM_DATA);
+ MELT_LOCATION("warmelt-first.melt:3096:/ inipredef");
+ /*inipredef dobj_4067__INITIAL_SYSTEM_DATA*/
+ if (!MELT_PREDEF(INITIAL_SYSTEM_DATA)) MELT_STORE_PREDEF(INITIAL_SYSTEM_DATA, (melt_ptr_t)&cdat->dobj_4067__INITIAL_SYSTEM_DATA);
  else {
   MELTPREDEFIX(predefinited,INITIAL_SYSTEM_DATA) = 1;
   fnotice(stderr, "MELT: predefined %s already defined <%s:%d>\n", "INITIAL_SYSTEM_DATA", __FILE__, __LINE__);
@@ -32633,7 +13852,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1__CLASS_ROOT));
   melt_assertmsg("iniobj checkdiscr dobj_3__CLASS_ROOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_3__CLASS_ROOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_3__CLASS_ROOT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_3__CLASS_ROOT.obj_hash = 607630909;
+  cdat->dobj_3__CLASS_ROOT.obj_hash = 717291926;
   cdat->dobj_3__CLASS_ROOT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3__CLASS_ROOT));
  
@@ -32672,7 +13891,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_7__CLASS_PROPED));
   melt_assertmsg("iniobj checkdiscr dobj_9__CLASS_PROPED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_9__CLASS_PROPED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_9__CLASS_PROPED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_9__CLASS_PROPED.obj_hash = 75626357;
+  cdat->dobj_9__CLASS_PROPED.obj_hash = 105104317;
   cdat->dobj_9__CLASS_PROPED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_9__CLASS_PROPED));
  
@@ -32708,7 +13927,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_13__PROP_TABLE));
   melt_assertmsg("iniobj checkdiscr dobj_15__PROP_TABLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_15__PROP_TABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_15__PROP_TABLE.obj_num = 0;
-  cdat->dobj_15__PROP_TABLE.obj_hash = 712779950;
+  cdat->dobj_15__PROP_TABLE.obj_hash = 365149441;
   cdat->dobj_15__PROP_TABLE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_15__PROP_TABLE));
  
@@ -32739,7 +13958,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_17__CLASS_CONTAINER));
   melt_assertmsg("iniobj checkdiscr dobj_19__CLASS_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_19__CLASS_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_19__CLASS_CONTAINER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_19__CLASS_CONTAINER.obj_hash = 969821637;
+  cdat->dobj_19__CLASS_CONTAINER.obj_hash = 297605838;
   cdat->dobj_19__CLASS_CONTAINER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_19__CLASS_CONTAINER));
  
@@ -32775,7 +13994,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_23__CONTAINER_VALUE));
   melt_assertmsg("iniobj checkdiscr dobj_25__CONTAINER_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_25__CONTAINER_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_25__CONTAINER_VALUE.obj_num = 0;
-  cdat->dobj_25__CONTAINER_VALUE.obj_hash = 657110779;
+  cdat->dobj_25__CONTAINER_VALUE.obj_hash = 498020064;
   cdat->dobj_25__CONTAINER_VALUE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_25__CONTAINER_VALUE));
  
@@ -32806,7 +14025,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_27__CLASS_NAMED));
   melt_assertmsg("iniobj checkdiscr dobj_29__CLASS_NAMED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_29__CLASS_NAMED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_29__CLASS_NAMED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_29__CLASS_NAMED.obj_hash = 233336413;
+  cdat->dobj_29__CLASS_NAMED.obj_hash = 601090464;
   cdat->dobj_29__CLASS_NAMED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_29__CLASS_NAMED));
  
@@ -32842,7 +14061,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_33__NAMED_NAME));
   melt_assertmsg("iniobj checkdiscr dobj_35__NAMED_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_35__NAMED_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_35__NAMED_NAME.obj_num = 1;
-  cdat->dobj_35__NAMED_NAME.obj_hash = 196507126;
+  cdat->dobj_35__NAMED_NAME.obj_hash = 728541094;
   cdat->dobj_35__NAMED_NAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_35__NAMED_NAME));
  
@@ -32873,7 +14092,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_37__CLASS_DISCRIMINANT));
   melt_assertmsg("iniobj checkdiscr dobj_39__CLASS_DISCRIMINANT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_39__CLASS_DISCRIMINANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_39__CLASS_DISCRIMINANT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_39__CLASS_DISCRIMINANT.obj_hash = 99787194;
+  cdat->dobj_39__CLASS_DISCRIMINANT.obj_hash = 841556176;
   cdat->dobj_39__CLASS_DISCRIMINANT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_39__CLASS_DISCRIMINANT));
  
@@ -32909,7 +14128,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_43__DISC_METHODICT));
   melt_assertmsg("iniobj checkdiscr dobj_45__DISC_METHODICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_45__DISC_METHODICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_45__DISC_METHODICT.obj_num = 2;
-  cdat->dobj_45__DISC_METHODICT.obj_hash = 607458638;
+  cdat->dobj_45__DISC_METHODICT.obj_hash = 764808224;
   cdat->dobj_45__DISC_METHODICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_45__DISC_METHODICT));
  
@@ -32937,7 +14156,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_47__DISC_SENDER));
   melt_assertmsg("iniobj checkdiscr dobj_49__DISC_SENDER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_49__DISC_SENDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_49__DISC_SENDER.obj_num = 3;
-  cdat->dobj_49__DISC_SENDER.obj_hash = 731947973;
+  cdat->dobj_49__DISC_SENDER.obj_hash = 714739379;
   cdat->dobj_49__DISC_SENDER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_49__DISC_SENDER));
  
@@ -32965,7 +14184,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_51__DISC_SUPER));
   melt_assertmsg("iniobj checkdiscr dobj_53__DISC_SUPER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_53__DISC_SUPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_53__DISC_SUPER.obj_num = 4;
-  cdat->dobj_53__DISC_SUPER.obj_hash = 1060160655;
+  cdat->dobj_53__DISC_SUPER.obj_hash = 683337464;
   cdat->dobj_53__DISC_SUPER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_53__DISC_SUPER));
  
@@ -32996,7 +14215,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_55__CLASS_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_57__CLASS_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_57__CLASS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_57__CLASS_CLASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_57__CLASS_CLASS.obj_hash = 94359466;
+  cdat->dobj_57__CLASS_CLASS.obj_hash = 574745153;
   cdat->dobj_57__CLASS_CLASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_57__CLASS_CLASS));
  
@@ -33032,7 +14251,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_61__CLASS_ANCESTORS));
   melt_assertmsg("iniobj checkdiscr dobj_63__CLASS_ANCESTORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_63__CLASS_ANCESTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_63__CLASS_ANCESTORS.obj_num = 5;
-  cdat->dobj_63__CLASS_ANCESTORS.obj_hash = 773128720;
+  cdat->dobj_63__CLASS_ANCESTORS.obj_hash = 7066931;
   cdat->dobj_63__CLASS_ANCESTORS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_63__CLASS_ANCESTORS));
  
@@ -33060,7 +14279,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_65__CLASS_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_67__CLASS_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_67__CLASS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_67__CLASS_FIELDS.obj_num = 6;
-  cdat->dobj_67__CLASS_FIELDS.obj_hash = 35849622;
+  cdat->dobj_67__CLASS_FIELDS.obj_hash = 256836134;
   cdat->dobj_67__CLASS_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_67__CLASS_FIELDS));
  
@@ -33088,7 +14307,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_69__CLASS_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_71__CLASS_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_71__CLASS_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_71__CLASS_DATA.obj_num = 7;
-  cdat->dobj_71__CLASS_DATA.obj_hash = 293272388;
+  cdat->dobj_71__CLASS_DATA.obj_hash = 204680480;
   cdat->dobj_71__CLASS_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_71__CLASS_DATA));
  
@@ -33119,7 +14338,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_73__CLASS_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_75__CLASS_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_75__CLASS_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_75__CLASS_FIELD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_75__CLASS_FIELD.obj_hash = 1035484257;
+  cdat->dobj_75__CLASS_FIELD.obj_hash = 137530003;
   cdat->dobj_75__CLASS_FIELD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_75__CLASS_FIELD));
  
@@ -33155,7 +14374,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_79__FLD_OWNCLASS));
   melt_assertmsg("iniobj checkdiscr dobj_81__FLD_OWNCLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_81__FLD_OWNCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_81__FLD_OWNCLASS.obj_num = 2;
-  cdat->dobj_81__FLD_OWNCLASS.obj_hash = 732318710;
+  cdat->dobj_81__FLD_OWNCLASS.obj_hash = 527322436;
   cdat->dobj_81__FLD_OWNCLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_81__FLD_OWNCLASS));
  
@@ -33183,7 +14402,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_83__FLD_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_85__FLD_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_85__FLD_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_85__FLD_DATA.obj_num = 3;
-  cdat->dobj_85__FLD_DATA.obj_hash = 1004824268;
+  cdat->dobj_85__FLD_DATA.obj_hash = 67761813;
   cdat->dobj_85__FLD_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_85__FLD_DATA));
  
@@ -33214,7 +14433,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_87__CLASS_PRIMITIVE));
   melt_assertmsg("iniobj checkdiscr dobj_89__CLASS_PRIMITIVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_89__CLASS_PRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_89__CLASS_PRIMITIVE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_89__CLASS_PRIMITIVE.obj_hash = 54747884;
+  cdat->dobj_89__CLASS_PRIMITIVE.obj_hash = 692540004;
   cdat->dobj_89__CLASS_PRIMITIVE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_89__CLASS_PRIMITIVE));
  
@@ -33250,7 +14469,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_93__PRIM_FORMALS));
   melt_assertmsg("iniobj checkdiscr dobj_95__PRIM_FORMALS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_95__PRIM_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_95__PRIM_FORMALS.obj_num = 2;
-  cdat->dobj_95__PRIM_FORMALS.obj_hash = 514687389;
+  cdat->dobj_95__PRIM_FORMALS.obj_hash = 812999841;
   cdat->dobj_95__PRIM_FORMALS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_95__PRIM_FORMALS));
  
@@ -33278,7 +14497,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_97__PRIM_TYPE));
   melt_assertmsg("iniobj checkdiscr dobj_99__PRIM_TYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_99__PRIM_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_99__PRIM_TYPE.obj_num = 3;
-  cdat->dobj_99__PRIM_TYPE.obj_hash = 1035900674;
+  cdat->dobj_99__PRIM_TYPE.obj_hash = 787011186;
   cdat->dobj_99__PRIM_TYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_99__PRIM_TYPE));
  
@@ -33306,7 +14525,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_101__PRIM_EXPANSION));
   melt_assertmsg("iniobj checkdiscr dobj_103__PRIM_EXPANSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_103__PRIM_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_103__PRIM_EXPANSION.obj_num = 4;
-  cdat->dobj_103__PRIM_EXPANSION.obj_hash = 492669898;
+  cdat->dobj_103__PRIM_EXPANSION.obj_hash = 503049094;
   cdat->dobj_103__PRIM_EXPANSION.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_103__PRIM_EXPANSION));
  
@@ -33337,7 +14556,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_105__CLASS_CITERATOR));
   melt_assertmsg("iniobj checkdiscr dobj_107__CLASS_CITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_107__CLASS_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_107__CLASS_CITERATOR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_107__CLASS_CITERATOR.obj_hash = 375269516;
+  cdat->dobj_107__CLASS_CITERATOR.obj_hash = 846620190;
   cdat->dobj_107__CLASS_CITERATOR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_107__CLASS_CITERATOR));
  
@@ -33373,7 +14592,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_111__CITER_START_FORMALS)
   melt_assertmsg("iniobj checkdiscr dobj_113__CITER_START_FORMALS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_113__CITER_START_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_113__CITER_START_FORMALS.obj_num = 2;
-  cdat->dobj_113__CITER_START_FORMALS.obj_hash = 761889257;
+  cdat->dobj_113__CITER_START_FORMALS.obj_hash = 173175190;
   cdat->dobj_113__CITER_START_FORMALS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_113__CITER_START_FORMALS));
  
@@ -33401,7 +14620,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_115__CITER_STATE));
   melt_assertmsg("iniobj checkdiscr dobj_117__CITER_STATE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_117__CITER_STATE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_117__CITER_STATE.obj_num = 3;
-  cdat->dobj_117__CITER_STATE.obj_hash = 911113922;
+  cdat->dobj_117__CITER_STATE.obj_hash = 172332011;
   cdat->dobj_117__CITER_STATE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_117__CITER_STATE));
  
@@ -33429,7 +14648,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_119__CITER_BODY_FORMALS))
   melt_assertmsg("iniobj checkdiscr dobj_121__CITER_BODY_FORMALS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_121__CITER_BODY_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_121__CITER_BODY_FORMALS.obj_num = 4;
-  cdat->dobj_121__CITER_BODY_FORMALS.obj_hash = 421179882;
+  cdat->dobj_121__CITER_BODY_FORMALS.obj_hash = 232128240;
   cdat->dobj_121__CITER_BODY_FORMALS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_121__CITER_BODY_FORMALS));
  
@@ -33457,7 +14676,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_123__CITER_EXPBEFORE));
   melt_assertmsg("iniobj checkdiscr dobj_125__CITER_EXPBEFORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_125__CITER_EXPBEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_125__CITER_EXPBEFORE.obj_num = 5;
-  cdat->dobj_125__CITER_EXPBEFORE.obj_hash = 536765565;
+  cdat->dobj_125__CITER_EXPBEFORE.obj_hash = 300102334;
   cdat->dobj_125__CITER_EXPBEFORE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_125__CITER_EXPBEFORE));
  
@@ -33485,7 +14704,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_127__CITER_EXPAFTER));
   melt_assertmsg("iniobj checkdiscr dobj_129__CITER_EXPAFTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_129__CITER_EXPAFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_129__CITER_EXPAFTER.obj_num = 6;
-  cdat->dobj_129__CITER_EXPAFTER.obj_hash = 152909009;
+  cdat->dobj_129__CITER_EXPAFTER.obj_hash = 378821806;
   cdat->dobj_129__CITER_EXPAFTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_129__CITER_EXPAFTER));
  
@@ -33513,7 +14732,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_131__CLASS_ANY_MATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_133__CLASS_ANY_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_133__CLASS_ANY_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_133__CLASS_ANY_MATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_133__CLASS_ANY_MATCHER.obj_hash = 585610110;
+  cdat->dobj_133__CLASS_ANY_MATCHER.obj_hash = 953383194;
   cdat->dobj_133__CLASS_ANY_MATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_133__CLASS_ANY_MATCHER));
  
@@ -33549,7 +14768,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_137__AMATCH_IN));
   melt_assertmsg("iniobj checkdiscr dobj_139__AMATCH_IN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_139__AMATCH_IN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_139__AMATCH_IN.obj_num = 2;
-  cdat->dobj_139__AMATCH_IN.obj_hash = 736841947;
+  cdat->dobj_139__AMATCH_IN.obj_hash = 262631587;
   cdat->dobj_139__AMATCH_IN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_139__AMATCH_IN));
  
@@ -33577,7 +14796,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_141__AMATCH_MATCHBIND));
   melt_assertmsg("iniobj checkdiscr dobj_143__AMATCH_MATCHBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_143__AMATCH_MATCHBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_143__AMATCH_MATCHBIND.obj_num = 3;
-  cdat->dobj_143__AMATCH_MATCHBIND.obj_hash = 959045026;
+  cdat->dobj_143__AMATCH_MATCHBIND.obj_hash = 727757174;
   cdat->dobj_143__AMATCH_MATCHBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_143__AMATCH_MATCHBIND));
  
@@ -33605,7 +14824,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_145__AMATCH_OUT));
   melt_assertmsg("iniobj checkdiscr dobj_147__AMATCH_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_147__AMATCH_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_147__AMATCH_OUT.obj_num = 4;
-  cdat->dobj_147__AMATCH_OUT.obj_hash = 965871797;
+  cdat->dobj_147__AMATCH_OUT.obj_hash = 463809908;
   cdat->dobj_147__AMATCH_OUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_147__AMATCH_OUT));
  
@@ -33636,7 +14855,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_149__CLASS_CMATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_151__CLASS_CMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_151__CLASS_CMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_151__CLASS_CMATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_151__CLASS_CMATCHER.obj_hash = 1053984317;
+  cdat->dobj_151__CLASS_CMATCHER.obj_hash = 259596194;
   cdat->dobj_151__CLASS_CMATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_151__CLASS_CMATCHER));
  
@@ -33672,7 +14891,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_155__CMATCH_STATE));
   melt_assertmsg("iniobj checkdiscr dobj_157__CMATCH_STATE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_157__CMATCH_STATE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_157__CMATCH_STATE.obj_num = 5;
-  cdat->dobj_157__CMATCH_STATE.obj_hash = 677373500;
+  cdat->dobj_157__CMATCH_STATE.obj_hash = 583190494;
   cdat->dobj_157__CMATCH_STATE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_157__CMATCH_STATE));
  
@@ -33700,7 +14919,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_159__CMATCH_EXPTEST));
   melt_assertmsg("iniobj checkdiscr dobj_161__CMATCH_EXPTEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_161__CMATCH_EXPTEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_161__CMATCH_EXPTEST.obj_num = 6;
-  cdat->dobj_161__CMATCH_EXPTEST.obj_hash = 457584225;
+  cdat->dobj_161__CMATCH_EXPTEST.obj_hash = 355797150;
   cdat->dobj_161__CMATCH_EXPTEST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_161__CMATCH_EXPTEST));
  
@@ -33728,7 +14947,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_163__CMATCH_EXPFILL));
   melt_assertmsg("iniobj checkdiscr dobj_165__CMATCH_EXPFILL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_165__CMATCH_EXPFILL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_165__CMATCH_EXPFILL.obj_num = 7;
-  cdat->dobj_165__CMATCH_EXPFILL.obj_hash = 623703006;
+  cdat->dobj_165__CMATCH_EXPFILL.obj_hash = 297459223;
   cdat->dobj_165__CMATCH_EXPFILL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_165__CMATCH_EXPFILL));
  
@@ -33756,7 +14975,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_167__CMATCH_EXPOPER));
   melt_assertmsg("iniobj checkdiscr dobj_169__CMATCH_EXPOPER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_169__CMATCH_EXPOPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_169__CMATCH_EXPOPER.obj_num = 8;
-  cdat->dobj_169__CMATCH_EXPOPER.obj_hash = 711360745;
+  cdat->dobj_169__CMATCH_EXPOPER.obj_hash = 1062326654;
   cdat->dobj_169__CMATCH_EXPOPER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_169__CMATCH_EXPOPER));
  
@@ -33787,7 +15006,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_171__CLASS_FUNMATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_173__CLASS_FUNMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_173__CLASS_FUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_173__CLASS_FUNMATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_173__CLASS_FUNMATCHER.obj_hash = 648063814;
+  cdat->dobj_173__CLASS_FUNMATCHER.obj_hash = 537533177;
   cdat->dobj_173__CLASS_FUNMATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_173__CLASS_FUNMATCHER));
  
@@ -33823,7 +15042,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__FMATCH_MATCHF));
   melt_assertmsg("iniobj checkdiscr dobj_179__FMATCH_MATCHF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_179__FMATCH_MATCHF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_179__FMATCH_MATCHF.obj_num = 5;
-  cdat->dobj_179__FMATCH_MATCHF.obj_hash = 1060003163;
+  cdat->dobj_179__FMATCH_MATCHF.obj_hash = 52048122;
   cdat->dobj_179__FMATCH_MATCHF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_179__FMATCH_MATCHF));
  
@@ -33851,7 +15070,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_181__FMATCH_APPLYF));
   melt_assertmsg("iniobj checkdiscr dobj_183__FMATCH_APPLYF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_183__FMATCH_APPLYF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_183__FMATCH_APPLYF.obj_num = 6;
-  cdat->dobj_183__FMATCH_APPLYF.obj_hash = 1071554812;
+  cdat->dobj_183__FMATCH_APPLYF.obj_hash = 330082408;
   cdat->dobj_183__FMATCH_APPLYF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_183__FMATCH_APPLYF));
  
@@ -33879,7 +15098,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_185__FMATCH_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_187__FMATCH_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_187__FMATCH_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_187__FMATCH_DATA.obj_num = 7;
-  cdat->dobj_187__FMATCH_DATA.obj_hash = 307088301;
+  cdat->dobj_187__FMATCH_DATA.obj_hash = 476645828;
   cdat->dobj_187__FMATCH_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_187__FMATCH_DATA));
  
@@ -33910,7 +15129,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_189__CLASS_LOCATED));
   melt_assertmsg("iniobj checkdiscr dobj_191__CLASS_LOCATED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_191__CLASS_LOCATED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_191__CLASS_LOCATED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_191__CLASS_LOCATED.obj_hash = 1064820;
+  cdat->dobj_191__CLASS_LOCATED.obj_hash = 122168338;
   cdat->dobj_191__CLASS_LOCATED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_191__CLASS_LOCATED));
  
@@ -33946,7 +15165,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_195__LOCA_LOCATION));
   melt_assertmsg("iniobj checkdiscr dobj_197__LOCA_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_197__LOCA_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_197__LOCA_LOCATION.obj_num = 1;
-  cdat->dobj_197__LOCA_LOCATION.obj_hash = 807573762;
+  cdat->dobj_197__LOCA_LOCATION.obj_hash = 235766939;
   cdat->dobj_197__LOCA_LOCATION.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_197__LOCA_LOCATION));
  
@@ -33977,7 +15196,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_199__CLASS_SEXPR));
   melt_assertmsg("iniobj checkdiscr dobj_201__CLASS_SEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_201__CLASS_SEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_201__CLASS_SEXPR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_201__CLASS_SEXPR.obj_hash = 643396121;
+  cdat->dobj_201__CLASS_SEXPR.obj_hash = 827493280;
   cdat->dobj_201__CLASS_SEXPR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_201__CLASS_SEXPR));
  
@@ -34013,7 +15232,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_205__SEXP_CONTENTS));
   melt_assertmsg("iniobj checkdiscr dobj_207__SEXP_CONTENTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_207__SEXP_CONTENTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_207__SEXP_CONTENTS.obj_num = 2;
-  cdat->dobj_207__SEXP_CONTENTS.obj_hash = 687303963;
+  cdat->dobj_207__SEXP_CONTENTS.obj_hash = 1022505134;
   cdat->dobj_207__SEXP_CONTENTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_207__SEXP_CONTENTS));
  
@@ -34044,7 +15263,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_209__CLASS_SELECTOR));
   melt_assertmsg("iniobj checkdiscr dobj_211__CLASS_SELECTOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_211__CLASS_SELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_211__CLASS_SELECTOR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_211__CLASS_SELECTOR.obj_hash = 984132380;
+  cdat->dobj_211__CLASS_SELECTOR.obj_hash = 569696358;
   cdat->dobj_211__CLASS_SELECTOR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_211__CLASS_SELECTOR));
  
@@ -34080,7 +15299,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_215__SEL_SIGNATURE));
   melt_assertmsg("iniobj checkdiscr dobj_217__SEL_SIGNATURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_217__SEL_SIGNATURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_217__SEL_SIGNATURE.obj_num = 2;
-  cdat->dobj_217__SEL_SIGNATURE.obj_hash = 886453110;
+  cdat->dobj_217__SEL_SIGNATURE.obj_hash = 918351260;
   cdat->dobj_217__SEL_SIGNATURE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_217__SEL_SIGNATURE));
  
@@ -34108,7 +15327,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_219__SEL_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_221__SEL_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_221__SEL_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_221__SEL_DATA.obj_num = 3;
-  cdat->dobj_221__SEL_DATA.obj_hash = 791924172;
+  cdat->dobj_221__SEL_DATA.obj_hash = 640392750;
   cdat->dobj_221__SEL_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_221__SEL_DATA));
  
@@ -34139,7 +15358,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_223__CLASS_SYMBOL));
   melt_assertmsg("iniobj checkdiscr dobj_225__CLASS_SYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_225__CLASS_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_225__CLASS_SYMBOL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_225__CLASS_SYMBOL.obj_hash = 593834260;
+  cdat->dobj_225__CLASS_SYMBOL.obj_hash = 460663811;
   cdat->dobj_225__CLASS_SYMBOL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_225__CLASS_SYMBOL));
  
@@ -34175,7 +15394,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_229__SYMB_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_231__SYMB_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_231__SYMB_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_231__SYMB_DATA.obj_num = 2;
-  cdat->dobj_231__SYMB_DATA.obj_hash = 275363937;
+  cdat->dobj_231__SYMB_DATA.obj_hash = 781516700;
   cdat->dobj_231__SYMB_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_231__SYMB_DATA));
  
@@ -34203,7 +15422,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_233__CLASS_CLONED_SYMBOL)
   melt_assertmsg("iniobj checkdiscr dobj_235__CLASS_CLONED_SYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_235__CLASS_CLONED_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_235__CLASS_CLONED_SYMBOL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_235__CLASS_CLONED_SYMBOL.obj_hash = 564453234;
+  cdat->dobj_235__CLASS_CLONED_SYMBOL.obj_hash = 245025412;
   cdat->dobj_235__CLASS_CLONED_SYMBOL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_235__CLASS_CLONED_SYMBOL));
  
@@ -34239,7 +15458,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_239__CSYM_URANK));
   melt_assertmsg("iniobj checkdiscr dobj_241__CSYM_URANK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_241__CSYM_URANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_241__CSYM_URANK.obj_num = 3;
-  cdat->dobj_241__CSYM_URANK.obj_hash = 587963734;
+  cdat->dobj_241__CSYM_URANK.obj_hash = 598193795;
   cdat->dobj_241__CSYM_URANK.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_241__CSYM_URANK));
  
@@ -34270,7 +15489,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_243__CLASS_KEYWORD));
   melt_assertmsg("iniobj checkdiscr dobj_245__CLASS_KEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_245__CLASS_KEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_245__CLASS_KEYWORD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_245__CLASS_KEYWORD.obj_hash = 118732472;
+  cdat->dobj_245__CLASS_KEYWORD.obj_hash = 201284068;
   cdat->dobj_245__CLASS_KEYWORD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_245__CLASS_KEYWORD));
  
@@ -34309,7 +15528,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_249__CLASS_CTYPE));
   melt_assertmsg("iniobj checkdiscr dobj_251__CLASS_CTYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_251__CLASS_CTYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_251__CLASS_CTYPE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_251__CLASS_CTYPE.obj_hash = 269084762;
+  cdat->dobj_251__CLASS_CTYPE.obj_hash = 818189340;
   cdat->dobj_251__CLASS_CTYPE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_251__CLASS_CTYPE));
  
@@ -34345,7 +15564,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_255__CTYPE_KEYWORD));
   melt_assertmsg("iniobj checkdiscr dobj_257__CTYPE_KEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_257__CTYPE_KEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_257__CTYPE_KEYWORD.obj_num = 2;
-  cdat->dobj_257__CTYPE_KEYWORD.obj_hash = 878742930;
+  cdat->dobj_257__CTYPE_KEYWORD.obj_hash = 574000879;
   cdat->dobj_257__CTYPE_KEYWORD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_257__CTYPE_KEYWORD));
  
@@ -34373,7 +15592,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_259__CTYPE_CNAME));
   melt_assertmsg("iniobj checkdiscr dobj_261__CTYPE_CNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_261__CTYPE_CNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_261__CTYPE_CNAME.obj_num = 3;
-  cdat->dobj_261__CTYPE_CNAME.obj_hash = 243582580;
+  cdat->dobj_261__CTYPE_CNAME.obj_hash = 946404557;
   cdat->dobj_261__CTYPE_CNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_261__CTYPE_CNAME));
  
@@ -34401,7 +15620,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_263__CTYPE_PARCHAR));
   melt_assertmsg("iniobj checkdiscr dobj_265__CTYPE_PARCHAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_265__CTYPE_PARCHAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_265__CTYPE_PARCHAR.obj_num = 4;
-  cdat->dobj_265__CTYPE_PARCHAR.obj_hash = 874536251;
+  cdat->dobj_265__CTYPE_PARCHAR.obj_hash = 476718833;
   cdat->dobj_265__CTYPE_PARCHAR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_265__CTYPE_PARCHAR));
  
@@ -34429,7 +15648,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_267__CTYPE_PARSTRING));
   melt_assertmsg("iniobj checkdiscr dobj_269__CTYPE_PARSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_269__CTYPE_PARSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_269__CTYPE_PARSTRING.obj_num = 5;
-  cdat->dobj_269__CTYPE_PARSTRING.obj_hash = 213611010;
+  cdat->dobj_269__CTYPE_PARSTRING.obj_hash = 921715828;
   cdat->dobj_269__CTYPE_PARSTRING.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_269__CTYPE_PARSTRING));
  
@@ -34457,7 +15676,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_271__CTYPE_ARGFIELD));
   melt_assertmsg("iniobj checkdiscr dobj_273__CTYPE_ARGFIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_273__CTYPE_ARGFIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_273__CTYPE_ARGFIELD.obj_num = 6;
-  cdat->dobj_273__CTYPE_ARGFIELD.obj_hash = 620348118;
+  cdat->dobj_273__CTYPE_ARGFIELD.obj_hash = 1030521444;
   cdat->dobj_273__CTYPE_ARGFIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_273__CTYPE_ARGFIELD));
  
@@ -34485,7 +15704,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_275__CTYPE_RESFIELD));
   melt_assertmsg("iniobj checkdiscr dobj_277__CTYPE_RESFIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_277__CTYPE_RESFIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_277__CTYPE_RESFIELD.obj_num = 7;
-  cdat->dobj_277__CTYPE_RESFIELD.obj_hash = 930358222;
+  cdat->dobj_277__CTYPE_RESFIELD.obj_hash = 219167704;
   cdat->dobj_277__CTYPE_RESFIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_277__CTYPE_RESFIELD));
  
@@ -34513,7 +15732,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_279__CTYPE_MARKER));
   melt_assertmsg("iniobj checkdiscr dobj_281__CTYPE_MARKER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_281__CTYPE_MARKER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_281__CTYPE_MARKER.obj_num = 8;
-  cdat->dobj_281__CTYPE_MARKER.obj_hash = 1039243141;
+  cdat->dobj_281__CTYPE_MARKER.obj_hash = 628609642;
   cdat->dobj_281__CTYPE_MARKER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_281__CTYPE_MARKER));
  
@@ -34541,7 +15760,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_283__CTYPE_DESCR));
   melt_assertmsg("iniobj checkdiscr dobj_285__CTYPE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_285__CTYPE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_285__CTYPE_DESCR.obj_num = 9;
-  cdat->dobj_285__CTYPE_DESCR.obj_hash = 353175796;
+  cdat->dobj_285__CTYPE_DESCR.obj_hash = 1031284758;
   cdat->dobj_285__CTYPE_DESCR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_285__CTYPE_DESCR));
  
@@ -34569,7 +15788,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_287__CTYPE_ALTKEYWORD));
   melt_assertmsg("iniobj checkdiscr dobj_289__CTYPE_ALTKEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_289__CTYPE_ALTKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_289__CTYPE_ALTKEYWORD.obj_num = 10;
-  cdat->dobj_289__CTYPE_ALTKEYWORD.obj_hash = 86456672;
+  cdat->dobj_289__CTYPE_ALTKEYWORD.obj_hash = 48123166;
   cdat->dobj_289__CTYPE_ALTKEYWORD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_289__CTYPE_ALTKEYWORD));
  
@@ -34600,7 +15819,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_291__CLASS_SYSTEM_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_293__CLASS_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_293__CLASS_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_293__CLASS_SYSTEM_DATA.obj_num = OBMAG_OBJECT;
-  cdat->dobj_293__CLASS_SYSTEM_DATA.obj_hash = 848232015;
+  cdat->dobj_293__CLASS_SYSTEM_DATA.obj_hash = 755239242;
   cdat->dobj_293__CLASS_SYSTEM_DATA.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_293__CLASS_SYSTEM_DATA));
  
@@ -34636,7 +15855,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_297__SYSDATA_MODE_DICT));
   melt_assertmsg("iniobj checkdiscr dobj_299__SYSDATA_MODE_DICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_299__SYSDATA_MODE_DICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_299__SYSDATA_MODE_DICT.obj_num = 2;
-  cdat->dobj_299__SYSDATA_MODE_DICT.obj_hash = 148520198;
+  cdat->dobj_299__SYSDATA_MODE_DICT.obj_hash = 161059117;
   cdat->dobj_299__SYSDATA_MODE_DICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_299__SYSDATA_MODE_DICT));
  
@@ -34664,7 +15883,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_301__SYSDATA_CONT_FRESH_E
   melt_assertmsg("iniobj checkdiscr dobj_303__SYSDATA_CONT_FRESH_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_303__SYSDATA_CONT_FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_303__SYSDATA_CONT_FRESH_ENV.obj_num = 3;
-  cdat->dobj_303__SYSDATA_CONT_FRESH_ENV.obj_hash = 280940227;
+  cdat->dobj_303__SYSDATA_CONT_FRESH_ENV.obj_hash = 760339958;
   cdat->dobj_303__SYSDATA_CONT_FRESH_ENV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_303__SYSDATA_CONT_FRESH_ENV));
  
@@ -34692,7 +15911,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_305__SYSDATA_VALUE_EXPORT
   melt_assertmsg("iniobj checkdiscr dobj_307__SYSDATA_VALUE_EXPORTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_307__SYSDATA_VALUE_EXPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_307__SYSDATA_VALUE_EXPORTER.obj_num = 4;
-  cdat->dobj_307__SYSDATA_VALUE_EXPORTER.obj_hash = 492027033;
+  cdat->dobj_307__SYSDATA_VALUE_EXPORTER.obj_hash = 1032649657;
   cdat->dobj_307__SYSDATA_VALUE_EXPORTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_307__SYSDATA_VALUE_EXPORTER));
  
@@ -34720,7 +15939,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_309__SYSDATA_MACRO_EXPORT
   melt_assertmsg("iniobj checkdiscr dobj_311__SYSDATA_MACRO_EXPORTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_311__SYSDATA_MACRO_EXPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_311__SYSDATA_MACRO_EXPORTER.obj_num = 5;
-  cdat->dobj_311__SYSDATA_MACRO_EXPORTER.obj_hash = 837872625;
+  cdat->dobj_311__SYSDATA_MACRO_EXPORTER.obj_hash = 934480604;
   cdat->dobj_311__SYSDATA_MACRO_EXPORTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_311__SYSDATA_MACRO_EXPORTER));
  
@@ -34748,7 +15967,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_313__SYSDATA_SYMBOLDICT))
   melt_assertmsg("iniobj checkdiscr dobj_315__SYSDATA_SYMBOLDICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_315__SYSDATA_SYMBOLDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_315__SYSDATA_SYMBOLDICT.obj_num = 6;
-  cdat->dobj_315__SYSDATA_SYMBOLDICT.obj_hash = 102024541;
+  cdat->dobj_315__SYSDATA_SYMBOLDICT.obj_hash = 641246964;
   cdat->dobj_315__SYSDATA_SYMBOLDICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_315__SYSDATA_SYMBOLDICT));
  
@@ -34776,7 +15995,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_317__SYSDATA_KEYWDICT));
   melt_assertmsg("iniobj checkdiscr dobj_319__SYSDATA_KEYWDICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_319__SYSDATA_KEYWDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_319__SYSDATA_KEYWDICT.obj_num = 7;
-  cdat->dobj_319__SYSDATA_KEYWDICT.obj_hash = 543677744;
+  cdat->dobj_319__SYSDATA_KEYWDICT.obj_hash = 348082004;
   cdat->dobj_319__SYSDATA_KEYWDICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_319__SYSDATA_KEYWDICT));
  
@@ -34804,7 +16023,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_321__SYSDATA_ADDSYMBOL));
   melt_assertmsg("iniobj checkdiscr dobj_323__SYSDATA_ADDSYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_323__SYSDATA_ADDSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_323__SYSDATA_ADDSYMBOL.obj_num = 8;
-  cdat->dobj_323__SYSDATA_ADDSYMBOL.obj_hash = 751895215;
+  cdat->dobj_323__SYSDATA_ADDSYMBOL.obj_hash = 309605951;
   cdat->dobj_323__SYSDATA_ADDSYMBOL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_323__SYSDATA_ADDSYMBOL));
  
@@ -34832,7 +16051,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_325__SYSDATA_ADDKEYW));
   melt_assertmsg("iniobj checkdiscr dobj_327__SYSDATA_ADDKEYW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_327__SYSDATA_ADDKEYW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_327__SYSDATA_ADDKEYW.obj_num = 9;
-  cdat->dobj_327__SYSDATA_ADDKEYW.obj_hash = 594893002;
+  cdat->dobj_327__SYSDATA_ADDKEYW.obj_hash = 792271270;
   cdat->dobj_327__SYSDATA_ADDKEYW.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_327__SYSDATA_ADDKEYW));
  
@@ -34860,7 +16079,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_329__SYSDATA_INTERNSYMBOL
   melt_assertmsg("iniobj checkdiscr dobj_331__SYSDATA_INTERNSYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_331__SYSDATA_INTERNSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_331__SYSDATA_INTERNSYMBOL.obj_num = 10;
-  cdat->dobj_331__SYSDATA_INTERNSYMBOL.obj_hash = 932697725;
+  cdat->dobj_331__SYSDATA_INTERNSYMBOL.obj_hash = 414876548;
   cdat->dobj_331__SYSDATA_INTERNSYMBOL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_331__SYSDATA_INTERNSYMBOL));
  
@@ -34888,7 +16107,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_333__SYSDATA_INTERNKEYW))
   melt_assertmsg("iniobj checkdiscr dobj_335__SYSDATA_INTERNKEYW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_335__SYSDATA_INTERNKEYW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_335__SYSDATA_INTERNKEYW.obj_num = 11;
-  cdat->dobj_335__SYSDATA_INTERNKEYW.obj_hash = 827755773;
+  cdat->dobj_335__SYSDATA_INTERNKEYW.obj_hash = 203542544;
   cdat->dobj_335__SYSDATA_INTERNKEYW.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_335__SYSDATA_INTERNKEYW));
  
@@ -34916,7 +16135,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_337__SYSDATA_VALUE_IMPORT
   melt_assertmsg("iniobj checkdiscr dobj_339__SYSDATA_VALUE_IMPORTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_339__SYSDATA_VALUE_IMPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_339__SYSDATA_VALUE_IMPORTER.obj_num = 12;
-  cdat->dobj_339__SYSDATA_VALUE_IMPORTER.obj_hash = 533225237;
+  cdat->dobj_339__SYSDATA_VALUE_IMPORTER.obj_hash = 722838804;
   cdat->dobj_339__SYSDATA_VALUE_IMPORTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_339__SYSDATA_VALUE_IMPORTER));
  
@@ -34944,7 +16163,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_341__SYSDATA_PASS_DICT));
   melt_assertmsg("iniobj checkdiscr dobj_343__SYSDATA_PASS_DICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_343__SYSDATA_PASS_DICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_343__SYSDATA_PASS_DICT.obj_num = 13;
-  cdat->dobj_343__SYSDATA_PASS_DICT.obj_hash = 944027419;
+  cdat->dobj_343__SYSDATA_PASS_DICT.obj_hash = 92432358;
   cdat->dobj_343__SYSDATA_PASS_DICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_343__SYSDATA_PASS_DICT));
  
@@ -34972,7 +16191,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_345__SYSDATA_EXIT_FINALIZ
   melt_assertmsg("iniobj checkdiscr dobj_347__SYSDATA_EXIT_FINALIZER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_347__SYSDATA_EXIT_FINALIZER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_347__SYSDATA_EXIT_FINALIZER.obj_num = 14;
-  cdat->dobj_347__SYSDATA_EXIT_FINALIZER.obj_hash = 612812824;
+  cdat->dobj_347__SYSDATA_EXIT_FINALIZER.obj_hash = 504118927;
   cdat->dobj_347__SYSDATA_EXIT_FINALIZER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_347__SYSDATA_EXIT_FINALIZER));
  
@@ -35000,7 +16219,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_349__SYSDATA_MELTATTR_DEF
   melt_assertmsg("iniobj checkdiscr dobj_351__SYSDATA_MELTATTR_DEFINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_351__SYSDATA_MELTATTR_DEFINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_351__SYSDATA_MELTATTR_DEFINER.obj_num = 15;
-  cdat->dobj_351__SYSDATA_MELTATTR_DEFINER.obj_hash = 679267025;
+  cdat->dobj_351__SYSDATA_MELTATTR_DEFINER.obj_hash = 699075796;
   cdat->dobj_351__SYSDATA_MELTATTR_DEFINER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_351__SYSDATA_MELTATTR_DEFINER));
  
@@ -35028,7 +16247,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_353__SYSDATA_PATMACRO_EXP
   melt_assertmsg("iniobj checkdiscr dobj_355__SYSDATA_PATMACRO_EXPORTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_355__SYSDATA_PATMACRO_EXPORTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_355__SYSDATA_PATMACRO_EXPORTER.obj_num = 16;
-  cdat->dobj_355__SYSDATA_PATMACRO_EXPORTER.obj_hash = 354973837;
+  cdat->dobj_355__SYSDATA_PATMACRO_EXPORTER.obj_hash = 386248444;
   cdat->dobj_355__SYSDATA_PATMACRO_EXPORTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_355__SYSDATA_PATMACRO_EXPORTER));
  
@@ -35056,7 +16275,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_357__SYSDATA_DEBUGMSG));
   melt_assertmsg("iniobj checkdiscr dobj_359__SYSDATA_DEBUGMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__SYSDATA_DEBUGMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__SYSDATA_DEBUGMSG.obj_num = 17;
-  cdat->dobj_359__SYSDATA_DEBUGMSG.obj_hash = 590023556;
+  cdat->dobj_359__SYSDATA_DEBUGMSG.obj_hash = 450279999;
   cdat->dobj_359__SYSDATA_DEBUGMSG.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_359__SYSDATA_DEBUGMSG));
  
@@ -35084,7 +16303,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_361__SYSDATA_STDOUT));
   melt_assertmsg("iniobj checkdiscr dobj_363__SYSDATA_STDOUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_363__SYSDATA_STDOUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_363__SYSDATA_STDOUT.obj_num = 18;
-  cdat->dobj_363__SYSDATA_STDOUT.obj_hash = 814993425;
+  cdat->dobj_363__SYSDATA_STDOUT.obj_hash = 388091385;
   cdat->dobj_363__SYSDATA_STDOUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_363__SYSDATA_STDOUT));
  
@@ -35112,7 +16331,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_365__SYSDATA_STDERR));
   melt_assertmsg("iniobj checkdiscr dobj_367__SYSDATA_STDERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_367__SYSDATA_STDERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_367__SYSDATA_STDERR.obj_num = 19;
-  cdat->dobj_367__SYSDATA_STDERR.obj_hash = 819173847;
+  cdat->dobj_367__SYSDATA_STDERR.obj_hash = 164350154;
   cdat->dobj_367__SYSDATA_STDERR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_367__SYSDATA_STDERR));
  
@@ -35140,7 +16359,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_369__SYSDATA_DUMPFILE));
   melt_assertmsg("iniobj checkdiscr dobj_371__SYSDATA_DUMPFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_371__SYSDATA_DUMPFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_371__SYSDATA_DUMPFILE.obj_num = 20;
-  cdat->dobj_371__SYSDATA_DUMPFILE.obj_hash = 74007852;
+  cdat->dobj_371__SYSDATA_DUMPFILE.obj_hash = 89786892;
   cdat->dobj_371__SYSDATA_DUMPFILE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_371__SYSDATA_DUMPFILE));
  
@@ -35168,7 +16387,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_373__SYSDATA_UNIT_STARTER
   melt_assertmsg("iniobj checkdiscr dobj_375__SYSDATA_UNIT_STARTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_375__SYSDATA_UNIT_STARTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_375__SYSDATA_UNIT_STARTER.obj_num = 21;
-  cdat->dobj_375__SYSDATA_UNIT_STARTER.obj_hash = 723457865;
+  cdat->dobj_375__SYSDATA_UNIT_STARTER.obj_hash = 794857973;
   cdat->dobj_375__SYSDATA_UNIT_STARTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_375__SYSDATA_UNIT_STARTER));
  
@@ -35196,7 +16415,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_377__SYSDATA_UNIT_FINISHE
   melt_assertmsg("iniobj checkdiscr dobj_379__SYSDATA_UNIT_FINISHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_379__SYSDATA_UNIT_FINISHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_379__SYSDATA_UNIT_FINISHER.obj_num = 22;
-  cdat->dobj_379__SYSDATA_UNIT_FINISHER.obj_hash = 353818304;
+  cdat->dobj_379__SYSDATA_UNIT_FINISHER.obj_hash = 957143575;
   cdat->dobj_379__SYSDATA_UNIT_FINISHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_379__SYSDATA_UNIT_FINISHER));
  
@@ -35224,7 +16443,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_381__SYSDATA_SPARE1));
   melt_assertmsg("iniobj checkdiscr dobj_383__SYSDATA_SPARE1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_383__SYSDATA_SPARE1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_383__SYSDATA_SPARE1.obj_num = 23;
-  cdat->dobj_383__SYSDATA_SPARE1.obj_hash = 570597884;
+  cdat->dobj_383__SYSDATA_SPARE1.obj_hash = 81488863;
   cdat->dobj_383__SYSDATA_SPARE1.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_383__SYSDATA_SPARE1));
  
@@ -35252,7 +16471,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_385__SYSDATA_SPARE2));
   melt_assertmsg("iniobj checkdiscr dobj_387__SYSDATA_SPARE2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_387__SYSDATA_SPARE2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_387__SYSDATA_SPARE2.obj_num = 24;
-  cdat->dobj_387__SYSDATA_SPARE2.obj_hash = 1003741851;
+  cdat->dobj_387__SYSDATA_SPARE2.obj_hash = 703697898;
   cdat->dobj_387__SYSDATA_SPARE2.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_387__SYSDATA_SPARE2));
  
@@ -35280,7 +16499,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_389__SYSDATA_SPARE3));
   melt_assertmsg("iniobj checkdiscr dobj_391__SYSDATA_SPARE3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_391__SYSDATA_SPARE3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_391__SYSDATA_SPARE3.obj_num = 25;
-  cdat->dobj_391__SYSDATA_SPARE3.obj_hash = 489458320;
+  cdat->dobj_391__SYSDATA_SPARE3.obj_hash = 337076012;
   cdat->dobj_391__SYSDATA_SPARE3.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_391__SYSDATA_SPARE3));
  
@@ -35308,7 +16527,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_393__SYSDATA_SPARE4));
   melt_assertmsg("iniobj checkdiscr dobj_395__SYSDATA_SPARE4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_395__SYSDATA_SPARE4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_395__SYSDATA_SPARE4.obj_num = 26;
-  cdat->dobj_395__SYSDATA_SPARE4.obj_hash = 403870507;
+  cdat->dobj_395__SYSDATA_SPARE4.obj_hash = 453106163;
   cdat->dobj_395__SYSDATA_SPARE4.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_395__SYSDATA_SPARE4));
  
@@ -35336,7 +16555,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_397__CLASS_DEBUG_INFORMAT
   melt_assertmsg("iniobj checkdiscr dobj_399__CLASS_DEBUG_INFORMATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_399__CLASS_DEBUG_INFORMATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_399__CLASS_DEBUG_INFORMATION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_399__CLASS_DEBUG_INFORMATION.obj_hash = 460164025;
+  cdat->dobj_399__CLASS_DEBUG_INFORMATION.obj_hash = 773215430;
   cdat->dobj_399__CLASS_DEBUG_INFORMATION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_399__CLASS_DEBUG_INFORMATION));
  
@@ -35372,7 +16591,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_403__DBGI_OUT));
   melt_assertmsg("iniobj checkdiscr dobj_405__DBGI_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_405__DBGI_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_405__DBGI_OUT.obj_num = 0;
-  cdat->dobj_405__DBGI_OUT.obj_hash = 813489866;
+  cdat->dobj_405__DBGI_OUT.obj_hash = 312597588;
   cdat->dobj_405__DBGI_OUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_405__DBGI_OUT));
  
@@ -35400,7 +16619,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_407__DBGI_OCCMAP));
   melt_assertmsg("iniobj checkdiscr dobj_409__DBGI_OCCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_409__DBGI_OCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_409__DBGI_OCCMAP.obj_num = 1;
-  cdat->dobj_409__DBGI_OCCMAP.obj_hash = 551614835;
+  cdat->dobj_409__DBGI_OCCMAP.obj_hash = 360994264;
   cdat->dobj_409__DBGI_OCCMAP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_409__DBGI_OCCMAP));
  
@@ -35428,7 +16647,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_411__DBGI_MAXDEPTH));
   melt_assertmsg("iniobj checkdiscr dobj_413__DBGI_MAXDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_413__DBGI_MAXDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_413__DBGI_MAXDEPTH.obj_num = 2;
-  cdat->dobj_413__DBGI_MAXDEPTH.obj_hash = 133019611;
+  cdat->dobj_413__DBGI_MAXDEPTH.obj_hash = 77239420;
   cdat->dobj_413__DBGI_MAXDEPTH.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_413__DBGI_MAXDEPTH));
  
@@ -35459,7 +16678,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_415__CLASS_ENVIRONMENT));
   melt_assertmsg("iniobj checkdiscr dobj_417__CLASS_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_417__CLASS_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_417__CLASS_ENVIRONMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_417__CLASS_ENVIRONMENT.obj_hash = 309089754;
+  cdat->dobj_417__CLASS_ENVIRONMENT.obj_hash = 727644681;
   cdat->dobj_417__CLASS_ENVIRONMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_417__CLASS_ENVIRONMENT));
  
@@ -35495,7 +16714,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_421__ENV_BIND));
   melt_assertmsg("iniobj checkdiscr dobj_423__ENV_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_423__ENV_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_423__ENV_BIND.obj_num = 0;
-  cdat->dobj_423__ENV_BIND.obj_hash = 507869220;
+  cdat->dobj_423__ENV_BIND.obj_hash = 201632416;
   cdat->dobj_423__ENV_BIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_423__ENV_BIND));
  
@@ -35523,7 +16742,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_425__ENV_PREV));
   melt_assertmsg("iniobj checkdiscr dobj_427__ENV_PREV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_427__ENV_PREV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_427__ENV_PREV.obj_num = 1;
-  cdat->dobj_427__ENV_PREV.obj_hash = 530560083;
+  cdat->dobj_427__ENV_PREV.obj_hash = 525614075;
   cdat->dobj_427__ENV_PREV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_427__ENV_PREV));
  
@@ -35551,7 +16770,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_429__ENV_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_431__ENV_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_431__ENV_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_431__ENV_PROC.obj_num = 2;
-  cdat->dobj_431__ENV_PROC.obj_hash = 668127998;
+  cdat->dobj_431__ENV_PROC.obj_hash = 989528498;
   cdat->dobj_431__ENV_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_431__ENV_PROC));
  
@@ -35579,7 +16798,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_433__CLASS_DESCRIBED_ENVI
   melt_assertmsg("iniobj checkdiscr dobj_435__CLASS_DESCRIBED_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_435__CLASS_DESCRIBED_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_435__CLASS_DESCRIBED_ENVIRONMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_435__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 801992354;
+  cdat->dobj_435__CLASS_DESCRIBED_ENVIRONMENT.obj_hash = 393929100;
   cdat->dobj_435__CLASS_DESCRIBED_ENVIRONMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_435__CLASS_DESCRIBED_ENVIRONMENT));
  
@@ -35615,7 +16834,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_439__DENV_DESCR));
   melt_assertmsg("iniobj checkdiscr dobj_441__DENV_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_441__DENV_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_441__DENV_DESCR.obj_num = 3;
-  cdat->dobj_441__DENV_DESCR.obj_hash = 183436315;
+  cdat->dobj_441__DENV_DESCR.obj_hash = 488654048;
   cdat->dobj_441__DENV_DESCR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_441__DENV_DESCR));
  
@@ -35643,7 +16862,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_443__CLASS_ANY_BINDING));
   melt_assertmsg("iniobj checkdiscr dobj_445__CLASS_ANY_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_445__CLASS_ANY_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_445__CLASS_ANY_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_445__CLASS_ANY_BINDING.obj_hash = 1014915268;
+  cdat->dobj_445__CLASS_ANY_BINDING.obj_hash = 639591015;
   cdat->dobj_445__CLASS_ANY_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_445__CLASS_ANY_BINDING));
  
@@ -35679,7 +16898,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_449__BINDER));
   melt_assertmsg("iniobj checkdiscr dobj_451__BINDER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_451__BINDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_451__BINDER.obj_num = 0;
-  cdat->dobj_451__BINDER.obj_hash = 389294186;
+  cdat->dobj_451__BINDER.obj_hash = 127809402;
   cdat->dobj_451__BINDER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_451__BINDER));
  
@@ -35707,7 +16926,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_453__CLASS_EXPORTED_BINDI
   melt_assertmsg("iniobj checkdiscr dobj_455__CLASS_EXPORTED_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_455__CLASS_EXPORTED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_455__CLASS_EXPORTED_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_455__CLASS_EXPORTED_BINDING.obj_hash = 217576178;
+  cdat->dobj_455__CLASS_EXPORTED_BINDING.obj_hash = 60258024;
   cdat->dobj_455__CLASS_EXPORTED_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_455__CLASS_EXPORTED_BINDING));
  
@@ -35743,7 +16962,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_459__CLASS_MACRO_BINDING)
   melt_assertmsg("iniobj checkdiscr dobj_461__CLASS_MACRO_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_461__CLASS_MACRO_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_461__CLASS_MACRO_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_461__CLASS_MACRO_BINDING.obj_hash = 839629157;
+  cdat->dobj_461__CLASS_MACRO_BINDING.obj_hash = 418577400;
   cdat->dobj_461__CLASS_MACRO_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_461__CLASS_MACRO_BINDING));
  
@@ -35779,7 +16998,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_465__MBIND_EXPANSER));
   melt_assertmsg("iniobj checkdiscr dobj_467__MBIND_EXPANSER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_467__MBIND_EXPANSER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_467__MBIND_EXPANSER.obj_num = 1;
-  cdat->dobj_467__MBIND_EXPANSER.obj_hash = 1045991714;
+  cdat->dobj_467__MBIND_EXPANSER.obj_hash = 689742497;
   cdat->dobj_467__MBIND_EXPANSER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_467__MBIND_EXPANSER));
  
@@ -35807,7 +17026,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_469__CLASS_PATMACRO_BINDI
   melt_assertmsg("iniobj checkdiscr dobj_471__CLASS_PATMACRO_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_471__CLASS_PATMACRO_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_471__CLASS_PATMACRO_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_471__CLASS_PATMACRO_BINDING.obj_hash = 651731706;
+  cdat->dobj_471__CLASS_PATMACRO_BINDING.obj_hash = 291086367;
   cdat->dobj_471__CLASS_PATMACRO_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_471__CLASS_PATMACRO_BINDING));
  
@@ -35843,7 +17062,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_475__PATBIND_EXPANSER));
   melt_assertmsg("iniobj checkdiscr dobj_477__PATBIND_EXPANSER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_477__PATBIND_EXPANSER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_477__PATBIND_EXPANSER.obj_num = 2;
-  cdat->dobj_477__PATBIND_EXPANSER.obj_hash = 323691394;
+  cdat->dobj_477__PATBIND_EXPANSER.obj_hash = 405171939;
   cdat->dobj_477__PATBIND_EXPANSER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_477__PATBIND_EXPANSER));
  
@@ -35871,7 +17090,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_479__CLASS_VALUE_BINDING)
   melt_assertmsg("iniobj checkdiscr dobj_481__CLASS_VALUE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_481__CLASS_VALUE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_481__CLASS_VALUE_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_481__CLASS_VALUE_BINDING.obj_hash = 342456716;
+  cdat->dobj_481__CLASS_VALUE_BINDING.obj_hash = 377187196;
   cdat->dobj_481__CLASS_VALUE_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_481__CLASS_VALUE_BINDING));
  
@@ -35907,7 +17126,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_485__VBIND_VALUE));
   melt_assertmsg("iniobj checkdiscr dobj_487__VBIND_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_487__VBIND_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_487__VBIND_VALUE.obj_num = 1;
-  cdat->dobj_487__VBIND_VALUE.obj_hash = 1021886035;
+  cdat->dobj_487__VBIND_VALUE.obj_hash = 696800399;
   cdat->dobj_487__VBIND_VALUE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_487__VBIND_VALUE));
  
@@ -35938,7 +17157,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_489__CLASS_FORMAL_BINDING
   melt_assertmsg("iniobj checkdiscr dobj_491__CLASS_FORMAL_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_491__CLASS_FORMAL_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_491__CLASS_FORMAL_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_491__CLASS_FORMAL_BINDING.obj_hash = 362581398;
+  cdat->dobj_491__CLASS_FORMAL_BINDING.obj_hash = 491410343;
   cdat->dobj_491__CLASS_FORMAL_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_491__CLASS_FORMAL_BINDING));
  
@@ -35974,7 +17193,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_495__FBIND_TYPE));
   melt_assertmsg("iniobj checkdiscr dobj_497__FBIND_TYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_497__FBIND_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_497__FBIND_TYPE.obj_num = 1;
-  cdat->dobj_497__FBIND_TYPE.obj_hash = 802924283;
+  cdat->dobj_497__FBIND_TYPE.obj_hash = 879661864;
   cdat->dobj_497__FBIND_TYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_497__FBIND_TYPE));
  
@@ -36002,7 +17221,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_499__CLASS_FIXED_BINDING)
   melt_assertmsg("iniobj checkdiscr dobj_501__CLASS_FIXED_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_501__CLASS_FIXED_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_501__CLASS_FIXED_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_501__CLASS_FIXED_BINDING.obj_hash = 819942634;
+  cdat->dobj_501__CLASS_FIXED_BINDING.obj_hash = 987375382;
   cdat->dobj_501__CLASS_FIXED_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_501__CLASS_FIXED_BINDING));
  
@@ -36038,7 +17257,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_505__FIXBIND_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_507__FIXBIND_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_507__FIXBIND_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_507__FIXBIND_DATA.obj_num = 1;
-  cdat->dobj_507__FIXBIND_DATA.obj_hash = 956502767;
+  cdat->dobj_507__FIXBIND_DATA.obj_hash = 57211335;
   cdat->dobj_507__FIXBIND_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_507__FIXBIND_DATA));
  
@@ -36066,7 +17285,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_509__CLASS_SELECTOR_BINDI
   melt_assertmsg("iniobj checkdiscr dobj_511__CLASS_SELECTOR_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_511__CLASS_SELECTOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_511__CLASS_SELECTOR_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_511__CLASS_SELECTOR_BINDING.obj_hash = 776719450;
+  cdat->dobj_511__CLASS_SELECTOR_BINDING.obj_hash = 721420472;
   cdat->dobj_511__CLASS_SELECTOR_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_511__CLASS_SELECTOR_BINDING));
  
@@ -36102,7 +17321,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_515__SBIND_SELECTORDEF));
   melt_assertmsg("iniobj checkdiscr dobj_517__SBIND_SELECTORDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_517__SBIND_SELECTORDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_517__SBIND_SELECTORDEF.obj_num = 2;
-  cdat->dobj_517__SBIND_SELECTORDEF.obj_hash = 544166637;
+  cdat->dobj_517__SBIND_SELECTORDEF.obj_hash = 829715526;
   cdat->dobj_517__SBIND_SELECTORDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_517__SBIND_SELECTORDEF));
  
@@ -36130,7 +17349,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_519__CLASS_PRIMITIVE_BIND
   melt_assertmsg("iniobj checkdiscr dobj_521__CLASS_PRIMITIVE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_521__CLASS_PRIMITIVE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_521__CLASS_PRIMITIVE_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_521__CLASS_PRIMITIVE_BINDING.obj_hash = 758138965;
+  cdat->dobj_521__CLASS_PRIMITIVE_BINDING.obj_hash = 72901276;
   cdat->dobj_521__CLASS_PRIMITIVE_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_521__CLASS_PRIMITIVE_BINDING));
  
@@ -36166,7 +17385,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_525__PBIND_PRIMDEF));
   melt_assertmsg("iniobj checkdiscr dobj_527__PBIND_PRIMDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_527__PBIND_PRIMDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_527__PBIND_PRIMDEF.obj_num = 2;
-  cdat->dobj_527__PBIND_PRIMDEF.obj_hash = 1049903109;
+  cdat->dobj_527__PBIND_PRIMDEF.obj_hash = 803066456;
   cdat->dobj_527__PBIND_PRIMDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_527__PBIND_PRIMDEF));
  
@@ -36194,7 +17413,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_529__PBIND_PRIMITIVE));
   melt_assertmsg("iniobj checkdiscr dobj_531__PBIND_PRIMITIVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_531__PBIND_PRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_531__PBIND_PRIMITIVE.obj_num = 3;
-  cdat->dobj_531__PBIND_PRIMITIVE.obj_hash = 636027275;
+  cdat->dobj_531__PBIND_PRIMITIVE.obj_hash = 303909067;
   cdat->dobj_531__PBIND_PRIMITIVE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_531__PBIND_PRIMITIVE));
  
@@ -36222,7 +17441,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_533__CLASS_CITERATOR_BIND
   melt_assertmsg("iniobj checkdiscr dobj_535__CLASS_CITERATOR_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_535__CLASS_CITERATOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_535__CLASS_CITERATOR_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_535__CLASS_CITERATOR_BINDING.obj_hash = 498686630;
+  cdat->dobj_535__CLASS_CITERATOR_BINDING.obj_hash = 255285387;
   cdat->dobj_535__CLASS_CITERATOR_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_535__CLASS_CITERATOR_BINDING));
  
@@ -36258,7 +17477,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_539__CBIND_CITERDEF));
   melt_assertmsg("iniobj checkdiscr dobj_541__CBIND_CITERDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_541__CBIND_CITERDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_541__CBIND_CITERDEF.obj_num = 2;
-  cdat->dobj_541__CBIND_CITERDEF.obj_hash = 603181712;
+  cdat->dobj_541__CBIND_CITERDEF.obj_hash = 815525042;
   cdat->dobj_541__CBIND_CITERDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_541__CBIND_CITERDEF));
  
@@ -36286,7 +17505,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_543__CBIND_CITERATOR));
   melt_assertmsg("iniobj checkdiscr dobj_545__CBIND_CITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_545__CBIND_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_545__CBIND_CITERATOR.obj_num = 3;
-  cdat->dobj_545__CBIND_CITERATOR.obj_hash = 917060639;
+  cdat->dobj_545__CBIND_CITERATOR.obj_hash = 321995484;
   cdat->dobj_545__CBIND_CITERATOR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_545__CBIND_CITERATOR));
  
@@ -36314,7 +17533,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_547__CLASS_FUNCTION_BINDI
   melt_assertmsg("iniobj checkdiscr dobj_549__CLASS_FUNCTION_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_549__CLASS_FUNCTION_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_549__CLASS_FUNCTION_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_549__CLASS_FUNCTION_BINDING.obj_hash = 708524597;
+  cdat->dobj_549__CLASS_FUNCTION_BINDING.obj_hash = 645403697;
   cdat->dobj_549__CLASS_FUNCTION_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_549__CLASS_FUNCTION_BINDING));
  
@@ -36350,7 +17569,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_553__FUBIND_DEFUN));
   melt_assertmsg("iniobj checkdiscr dobj_555__FUBIND_DEFUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_555__FUBIND_DEFUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_555__FUBIND_DEFUN.obj_num = 2;
-  cdat->dobj_555__FUBIND_DEFUN.obj_hash = 104342922;
+  cdat->dobj_555__FUBIND_DEFUN.obj_hash = 805396658;
   cdat->dobj_555__FUBIND_DEFUN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_555__FUBIND_DEFUN));
  
@@ -36378,7 +17597,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_557__CLASS_CLASS_BINDING)
   melt_assertmsg("iniobj checkdiscr dobj_559__CLASS_CLASS_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_559__CLASS_CLASS_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_559__CLASS_CLASS_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_559__CLASS_CLASS_BINDING.obj_hash = 258946712;
+  cdat->dobj_559__CLASS_CLASS_BINDING.obj_hash = 621496198;
   cdat->dobj_559__CLASS_CLASS_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_559__CLASS_CLASS_BINDING));
  
@@ -36414,7 +17633,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_563__CBIND_DEFCLASS));
   melt_assertmsg("iniobj checkdiscr dobj_565__CBIND_DEFCLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_565__CBIND_DEFCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_565__CBIND_DEFCLASS.obj_num = 2;
-  cdat->dobj_565__CBIND_DEFCLASS.obj_hash = 370485485;
+  cdat->dobj_565__CBIND_DEFCLASS.obj_hash = 584147286;
   cdat->dobj_565__CBIND_DEFCLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_565__CBIND_DEFCLASS));
  
@@ -36442,7 +17661,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_567__CBIND_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_569__CBIND_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_569__CBIND_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_569__CBIND_CLASS.obj_num = 3;
-  cdat->dobj_569__CBIND_CLASS.obj_hash = 349778216;
+  cdat->dobj_569__CBIND_CLASS.obj_hash = 1037071214;
   cdat->dobj_569__CBIND_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_569__CBIND_CLASS));
  
@@ -36470,7 +17689,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_571__CLASS_FIELD_BINDING)
   melt_assertmsg("iniobj checkdiscr dobj_573__CLASS_FIELD_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_573__CLASS_FIELD_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_573__CLASS_FIELD_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_573__CLASS_FIELD_BINDING.obj_hash = 596218329;
+  cdat->dobj_573__CLASS_FIELD_BINDING.obj_hash = 256877309;
   cdat->dobj_573__CLASS_FIELD_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_573__CLASS_FIELD_BINDING));
  
@@ -36506,7 +17725,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_577__FLBIND_CLABIND));
   melt_assertmsg("iniobj checkdiscr dobj_579__FLBIND_CLABIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_579__FLBIND_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_579__FLBIND_CLABIND.obj_num = 2;
-  cdat->dobj_579__FLBIND_CLABIND.obj_hash = 503680452;
+  cdat->dobj_579__FLBIND_CLABIND.obj_hash = 842922068;
   cdat->dobj_579__FLBIND_CLABIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_579__FLBIND_CLABIND));
  
@@ -36534,7 +17753,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_581__FLBIND_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_583__FLBIND_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_583__FLBIND_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_583__FLBIND_FIELD.obj_num = 3;
-  cdat->dobj_583__FLBIND_FIELD.obj_hash = 752603105;
+  cdat->dobj_583__FLBIND_FIELD.obj_hash = 133767100;
   cdat->dobj_583__FLBIND_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_583__FLBIND_FIELD));
  
@@ -36562,7 +17781,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_585__CLASS_INSTANCE_BINDI
   melt_assertmsg("iniobj checkdiscr dobj_587__CLASS_INSTANCE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_587__CLASS_INSTANCE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_587__CLASS_INSTANCE_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_587__CLASS_INSTANCE_BINDING.obj_hash = 247138858;
+  cdat->dobj_587__CLASS_INSTANCE_BINDING.obj_hash = 397119067;
   cdat->dobj_587__CLASS_INSTANCE_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_587__CLASS_INSTANCE_BINDING));
  
@@ -36598,7 +17817,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_591__IBIND_ICLASS));
   melt_assertmsg("iniobj checkdiscr dobj_593__IBIND_ICLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_593__IBIND_ICLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_593__IBIND_ICLASS.obj_num = 2;
-  cdat->dobj_593__IBIND_ICLASS.obj_hash = 682818320;
+  cdat->dobj_593__IBIND_ICLASS.obj_hash = 420684382;
   cdat->dobj_593__IBIND_ICLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_593__IBIND_ICLASS));
  
@@ -36626,7 +17845,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_595__CLASS_CMATCHER_BINDI
   melt_assertmsg("iniobj checkdiscr dobj_597__CLASS_CMATCHER_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_597__CLASS_CMATCHER_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_597__CLASS_CMATCHER_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_597__CLASS_CMATCHER_BINDING.obj_hash = 792089799;
+  cdat->dobj_597__CLASS_CMATCHER_BINDING.obj_hash = 30438546;
   cdat->dobj_597__CLASS_CMATCHER_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_597__CLASS_CMATCHER_BINDING));
  
@@ -36662,7 +17881,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_601__CMBIND_MATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_603__CMBIND_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_603__CMBIND_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_603__CMBIND_MATCHER.obj_num = 2;
-  cdat->dobj_603__CMBIND_MATCHER.obj_hash = 606372504;
+  cdat->dobj_603__CMBIND_MATCHER.obj_hash = 216629263;
   cdat->dobj_603__CMBIND_MATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_603__CMBIND_MATCHER));
  
@@ -36690,7 +17909,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_605__CLASS_FUNMATCHER_BIN
   melt_assertmsg("iniobj checkdiscr dobj_607__CLASS_FUNMATCHER_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_607__CLASS_FUNMATCHER_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_607__CLASS_FUNMATCHER_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_607__CLASS_FUNMATCHER_BINDING.obj_hash = 162298496;
+  cdat->dobj_607__CLASS_FUNMATCHER_BINDING.obj_hash = 254684669;
   cdat->dobj_607__CLASS_FUNMATCHER_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_607__CLASS_FUNMATCHER_BINDING));
  
@@ -36726,7 +17945,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_611__FMBIND_FUNMATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_613__FMBIND_FUNMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_613__FMBIND_FUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_613__FMBIND_FUNMATCHER.obj_num = 2;
-  cdat->dobj_613__FMBIND_FUNMATCHER.obj_hash = 641783591;
+  cdat->dobj_613__FMBIND_FUNMATCHER.obj_hash = 109468832;
   cdat->dobj_613__FMBIND_FUNMATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_613__FMBIND_FUNMATCHER));
  
@@ -36754,7 +17973,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_615__FMBIND_DEFUNMATCHER)
   melt_assertmsg("iniobj checkdiscr dobj_617__FMBIND_DEFUNMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_617__FMBIND_DEFUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_617__FMBIND_DEFUNMATCHER.obj_num = 3;
-  cdat->dobj_617__FMBIND_DEFUNMATCHER.obj_hash = 843010991;
+  cdat->dobj_617__FMBIND_DEFUNMATCHER.obj_hash = 562680196;
   cdat->dobj_617__FMBIND_DEFUNMATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_617__FMBIND_DEFUNMATCHER));
  
@@ -36782,7 +18001,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_619__CLASS_LET_BINDING));
   melt_assertmsg("iniobj checkdiscr dobj_621__CLASS_LET_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_621__CLASS_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_621__CLASS_LET_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_621__CLASS_LET_BINDING.obj_hash = 740741330;
+  cdat->dobj_621__CLASS_LET_BINDING.obj_hash = 771768005;
   cdat->dobj_621__CLASS_LET_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_621__CLASS_LET_BINDING));
  
@@ -36818,7 +18037,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_625__LETBIND_TYPE));
   melt_assertmsg("iniobj checkdiscr dobj_627__LETBIND_TYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_627__LETBIND_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_627__LETBIND_TYPE.obj_num = 1;
-  cdat->dobj_627__LETBIND_TYPE.obj_hash = 145520861;
+  cdat->dobj_627__LETBIND_TYPE.obj_hash = 980817085;
   cdat->dobj_627__LETBIND_TYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_627__LETBIND_TYPE));
  
@@ -36846,7 +18065,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_629__LETBIND_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_631__LETBIND_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_631__LETBIND_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_631__LETBIND_EXPR.obj_num = 2;
-  cdat->dobj_631__LETBIND_EXPR.obj_hash = 644861115;
+  cdat->dobj_631__LETBIND_EXPR.obj_hash = 201815655;
   cdat->dobj_631__LETBIND_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_631__LETBIND_EXPR));
  
@@ -36874,7 +18093,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_633__LETBIND_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_635__LETBIND_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_635__LETBIND_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_635__LETBIND_LOC.obj_num = 3;
-  cdat->dobj_635__LETBIND_LOC.obj_hash = 69799452;
+  cdat->dobj_635__LETBIND_LOC.obj_hash = 307124340;
   cdat->dobj_635__LETBIND_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_635__LETBIND_LOC));
  
@@ -36902,7 +18121,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_637__CLASS_LETREC_BINDING
   melt_assertmsg("iniobj checkdiscr dobj_639__CLASS_LETREC_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_639__CLASS_LETREC_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_639__CLASS_LETREC_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_639__CLASS_LETREC_BINDING.obj_hash = 484209570;
+  cdat->dobj_639__CLASS_LETREC_BINDING.obj_hash = 722469247;
   cdat->dobj_639__CLASS_LETREC_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_639__CLASS_LETREC_BINDING));
  
@@ -36938,7 +18157,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_643__CLASS_NORMAL_LET_BIN
   melt_assertmsg("iniobj checkdiscr dobj_645__CLASS_NORMAL_LET_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_645__CLASS_NORMAL_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_645__CLASS_NORMAL_LET_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_645__CLASS_NORMAL_LET_BINDING.obj_hash = 649071987;
+  cdat->dobj_645__CLASS_NORMAL_LET_BINDING.obj_hash = 1005056270;
   cdat->dobj_645__CLASS_NORMAL_LET_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_645__CLASS_NORMAL_LET_BINDING));
  
@@ -36974,7 +18193,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_649__CLASS_LABEL_BINDING)
   melt_assertmsg("iniobj checkdiscr dobj_651__CLASS_LABEL_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_651__CLASS_LABEL_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_651__CLASS_LABEL_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_651__CLASS_LABEL_BINDING.obj_hash = 541949821;
+  cdat->dobj_651__CLASS_LABEL_BINDING.obj_hash = 480737902;
   cdat->dobj_651__CLASS_LABEL_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_651__CLASS_LABEL_BINDING));
  
@@ -37010,7 +18229,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_655__LABIND_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_657__LABIND_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_657__LABIND_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_657__LABIND_LOC.obj_num = 1;
-  cdat->dobj_657__LABIND_LOC.obj_hash = 75589281;
+  cdat->dobj_657__LABIND_LOC.obj_hash = 835109550;
   cdat->dobj_657__LABIND_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_657__LABIND_LOC));
  
@@ -37038,7 +18257,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_659__LABIND_CLONSY));
   melt_assertmsg("iniobj checkdiscr dobj_661__LABIND_CLONSY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_661__LABIND_CLONSY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_661__LABIND_CLONSY.obj_num = 2;
-  cdat->dobj_661__LABIND_CLONSY.obj_hash = 1042788559;
+  cdat->dobj_661__LABIND_CLONSY.obj_hash = 138606937;
   cdat->dobj_661__LABIND_CLONSY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_661__LABIND_CLONSY));
  
@@ -37066,7 +18285,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_663__LABIND_RES));
   melt_assertmsg("iniobj checkdiscr dobj_665__LABIND_RES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_665__LABIND_RES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_665__LABIND_RES.obj_num = 3;
-  cdat->dobj_665__LABIND_RES.obj_hash = 1022560703;
+  cdat->dobj_665__LABIND_RES.obj_hash = 344533284;
   cdat->dobj_665__LABIND_RES.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_665__LABIND_RES));
  
@@ -37097,7 +18316,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_667__CLASS_GCC_PASS));
   melt_assertmsg("iniobj checkdiscr dobj_669__CLASS_GCC_PASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_669__CLASS_GCC_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_669__CLASS_GCC_PASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_669__CLASS_GCC_PASS.obj_hash = 658896012;
+  cdat->dobj_669__CLASS_GCC_PASS.obj_hash = 770366800;
   cdat->dobj_669__CLASS_GCC_PASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_669__CLASS_GCC_PASS));
  
@@ -37133,7 +18352,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_673__GCCPASS_GATE));
   melt_assertmsg("iniobj checkdiscr dobj_675__GCCPASS_GATE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_675__GCCPASS_GATE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_675__GCCPASS_GATE.obj_num = 2;
-  cdat->dobj_675__GCCPASS_GATE.obj_hash = 564295215;
+  cdat->dobj_675__GCCPASS_GATE.obj_hash = 195924319;
   cdat->dobj_675__GCCPASS_GATE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_675__GCCPASS_GATE));
  
@@ -37161,7 +18380,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_677__GCCPASS_EXEC));
   melt_assertmsg("iniobj checkdiscr dobj_679__GCCPASS_EXEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_679__GCCPASS_EXEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_679__GCCPASS_EXEC.obj_num = 3;
-  cdat->dobj_679__GCCPASS_EXEC.obj_hash = 975744419;
+  cdat->dobj_679__GCCPASS_EXEC.obj_hash = 1066839838;
   cdat->dobj_679__GCCPASS_EXEC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_679__GCCPASS_EXEC));
  
@@ -37189,7 +18408,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_681__GCCPASS_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_683__GCCPASS_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_683__GCCPASS_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_683__GCCPASS_DATA.obj_num = 4;
-  cdat->dobj_683__GCCPASS_DATA.obj_hash = 56749770;
+  cdat->dobj_683__GCCPASS_DATA.obj_hash = 769613170;
   cdat->dobj_683__GCCPASS_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_683__GCCPASS_DATA));
  
@@ -37217,7 +18436,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_685__GCCPASS_PROPERTIES_R
   melt_assertmsg("iniobj checkdiscr dobj_687__GCCPASS_PROPERTIES_REQUIRED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_687__GCCPASS_PROPERTIES_REQUIRED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_687__GCCPASS_PROPERTIES_REQUIRED.obj_num = 5;
-  cdat->dobj_687__GCCPASS_PROPERTIES_REQUIRED.obj_hash = 761498159;
+  cdat->dobj_687__GCCPASS_PROPERTIES_REQUIRED.obj_hash = 100169699;
   cdat->dobj_687__GCCPASS_PROPERTIES_REQUIRED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_687__GCCPASS_PROPERTIES_REQUIRED));
  
@@ -37245,7 +18464,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_689__GCCPASS_PROPERTIES_P
   melt_assertmsg("iniobj checkdiscr dobj_691__GCCPASS_PROPERTIES_PROVIDED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_691__GCCPASS_PROPERTIES_PROVIDED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_691__GCCPASS_PROPERTIES_PROVIDED.obj_num = 6;
-  cdat->dobj_691__GCCPASS_PROPERTIES_PROVIDED.obj_hash = 1043373623;
+  cdat->dobj_691__GCCPASS_PROPERTIES_PROVIDED.obj_hash = 1038032854;
   cdat->dobj_691__GCCPASS_PROPERTIES_PROVIDED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_691__GCCPASS_PROPERTIES_PROVIDED));
  
@@ -37273,7 +18492,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_693__GCCPASS_PROPERTIES_D
   melt_assertmsg("iniobj checkdiscr dobj_695__GCCPASS_PROPERTIES_DESTROYED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_695__GCCPASS_PROPERTIES_DESTROYED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_695__GCCPASS_PROPERTIES_DESTROYED.obj_num = 7;
-  cdat->dobj_695__GCCPASS_PROPERTIES_DESTROYED.obj_hash = 242417744;
+  cdat->dobj_695__GCCPASS_PROPERTIES_DESTROYED.obj_hash = 1072063931;
   cdat->dobj_695__GCCPASS_PROPERTIES_DESTROYED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_695__GCCPASS_PROPERTIES_DESTROYED));
  
@@ -37301,7 +18520,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_697__GCCPASS_TODO_FLAGS_S
   melt_assertmsg("iniobj checkdiscr dobj_699__GCCPASS_TODO_FLAGS_START", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__GCCPASS_TODO_FLAGS_START.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__GCCPASS_TODO_FLAGS_START.obj_num = 8;
-  cdat->dobj_699__GCCPASS_TODO_FLAGS_START.obj_hash = 1032640956;
+  cdat->dobj_699__GCCPASS_TODO_FLAGS_START.obj_hash = 640132563;
   cdat->dobj_699__GCCPASS_TODO_FLAGS_START.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_699__GCCPASS_TODO_FLAGS_START));
  
@@ -37329,7 +18548,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_701__GCCPASS_TODO_FLAGS_F
   melt_assertmsg("iniobj checkdiscr dobj_703__GCCPASS_TODO_FLAGS_FINISH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_703__GCCPASS_TODO_FLAGS_FINISH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_703__GCCPASS_TODO_FLAGS_FINISH.obj_num = 9;
-  cdat->dobj_703__GCCPASS_TODO_FLAGS_FINISH.obj_hash = 4165521;
+  cdat->dobj_703__GCCPASS_TODO_FLAGS_FINISH.obj_hash = 42348596;
   cdat->dobj_703__GCCPASS_TODO_FLAGS_FINISH.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_703__GCCPASS_TODO_FLAGS_FINISH));
  
@@ -37360,7 +18579,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_705__CLASS_GCC_GIMPLE_PAS
   melt_assertmsg("iniobj checkdiscr dobj_707__CLASS_GCC_GIMPLE_PASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_707__CLASS_GCC_GIMPLE_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_707__CLASS_GCC_GIMPLE_PASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_707__CLASS_GCC_GIMPLE_PASS.obj_hash = 982204262;
+  cdat->dobj_707__CLASS_GCC_GIMPLE_PASS.obj_hash = 626721023;
   cdat->dobj_707__CLASS_GCC_GIMPLE_PASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_707__CLASS_GCC_GIMPLE_PASS));
  
@@ -37399,7 +18618,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_711__CLASS_GCC_RTL_PASS))
   melt_assertmsg("iniobj checkdiscr dobj_713__CLASS_GCC_RTL_PASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_713__CLASS_GCC_RTL_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_713__CLASS_GCC_RTL_PASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_713__CLASS_GCC_RTL_PASS.obj_hash = 954646031;
+  cdat->dobj_713__CLASS_GCC_RTL_PASS.obj_hash = 830678423;
   cdat->dobj_713__CLASS_GCC_RTL_PASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_713__CLASS_GCC_RTL_PASS));
  
@@ -37438,7 +18657,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_717__CLASS_GCC_SIMPLE_IPA
   melt_assertmsg("iniobj checkdiscr dobj_719__CLASS_GCC_SIMPLE_IPA_PASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_719__CLASS_GCC_SIMPLE_IPA_PASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_719__CLASS_GCC_SIMPLE_IPA_PASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_719__CLASS_GCC_SIMPLE_IPA_PASS.obj_hash = 222304524;
+  cdat->dobj_719__CLASS_GCC_SIMPLE_IPA_PASS.obj_hash = 669256154;
   cdat->dobj_719__CLASS_GCC_SIMPLE_IPA_PASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_719__CLASS_GCC_SIMPLE_IPA_PASS));
  
@@ -37477,7 +18696,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_723__CLASS_MELT_MODE));
   melt_assertmsg("iniobj checkdiscr dobj_725__CLASS_MELT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_725__CLASS_MELT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_725__CLASS_MELT_MODE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_725__CLASS_MELT_MODE.obj_hash = 431882393;
+  cdat->dobj_725__CLASS_MELT_MODE.obj_hash = 327915492;
   cdat->dobj_725__CLASS_MELT_MODE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_725__CLASS_MELT_MODE));
  
@@ -37513,7 +18732,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_729__MELTMODE_HELP));
   melt_assertmsg("iniobj checkdiscr dobj_731__MELTMODE_HELP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_731__MELTMODE_HELP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_731__MELTMODE_HELP.obj_num = 2;
-  cdat->dobj_731__MELTMODE_HELP.obj_hash = 369089831;
+  cdat->dobj_731__MELTMODE_HELP.obj_hash = 629923359;
   cdat->dobj_731__MELTMODE_HELP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_731__MELTMODE_HELP));
  
@@ -37541,7 +18760,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_733__MELTMODE_FUN));
   melt_assertmsg("iniobj checkdiscr dobj_735__MELTMODE_FUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_735__MELTMODE_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_735__MELTMODE_FUN.obj_num = 3;
-  cdat->dobj_735__MELTMODE_FUN.obj_hash = 922070570;
+  cdat->dobj_735__MELTMODE_FUN.obj_hash = 842776237;
   cdat->dobj_735__MELTMODE_FUN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_735__MELTMODE_FUN));
  
@@ -37569,7 +18788,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_737__MELTMODE_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_739__MELTMODE_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_739__MELTMODE_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_739__MELTMODE_DATA.obj_num = 4;
-  cdat->dobj_739__MELTMODE_DATA.obj_hash = 195459233;
+  cdat->dobj_739__MELTMODE_DATA.obj_hash = 1062756753;
   cdat->dobj_739__MELTMODE_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_739__MELTMODE_DATA));
  
@@ -37597,7 +18816,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_741__CLASS_SOURCE));
   melt_assertmsg("iniobj checkdiscr dobj_743__CLASS_SOURCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_743__CLASS_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_743__CLASS_SOURCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_743__CLASS_SOURCE.obj_hash = 259972732;
+  cdat->dobj_743__CLASS_SOURCE.obj_hash = 1031466450;
   cdat->dobj_743__CLASS_SOURCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_743__CLASS_SOURCE));
  
@@ -37633,7 +18852,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_747__CLASS_MODULE_CONTEXT
   melt_assertmsg("iniobj checkdiscr dobj_749__CLASS_MODULE_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_749__CLASS_MODULE_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_749__CLASS_MODULE_CONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_749__CLASS_MODULE_CONTEXT.obj_hash = 551559061;
+  cdat->dobj_749__CLASS_MODULE_CONTEXT.obj_hash = 413887752;
   cdat->dobj_749__CLASS_MODULE_CONTEXT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_749__CLASS_MODULE_CONTEXT));
  
@@ -37647,11 +18866,11 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_749__CLASS_MODULE_CONTEXT
   cdat->dtup_751__CLASS_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
   cdat->dtup_751__CLASS_MODULE_CONTEXT.nbval = 1;
  /*inimult dtup_752__CLASS_MODULE_CONTEXT*/
- /*_.VALTUP___V770*/ curfptr[769] = (void*)&cdat->dtup_752__CLASS_MODULE_CONTEXT;
+ /*_.VALTUP___V766*/ curfptr[765] = (void*)&cdat->dtup_752__CLASS_MODULE_CONTEXT;
   cdat->dtup_752__CLASS_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_752__CLASS_MODULE_CONTEXT.nbval = 6;
+  cdat->dtup_752__CLASS_MODULE_CONTEXT.nbval = 4;
  /*iniobj dsym_753__MOCX_MODULENAME*/
- if (!/*_.VALDATA___V771*/ curfptr[770]) /*_.VALDATA___V771*/ curfptr[770] = (void*)&cdat->dsym_753__MOCX_MODULENAME;
+ if (!/*_.VALDATA___V767*/ curfptr[766]) /*_.VALDATA___V767*/ curfptr[766] = (void*)&cdat->dsym_753__MOCX_MODULENAME;
   melt_assertmsg("iniobj checkdiscr dsym_753__MOCX_MODULENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_753__MOCX_MODULENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_753__MOCX_MODULENAME.obj_hash = 432469487;
@@ -37659,7 +18878,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_749__CLASS_MODULE_CONTEXT
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_753__MOCX_MODULENAME));
  
  /*inistring dstr_754__MOCX_MODULENAME*/
- /*_.VALSTR___V772*/ curfptr[771] = (void*)&cdat->dstr_754__MOCX_MODULENAME;
+ /*_.VALSTR___V768*/ curfptr[767] = (void*)&cdat->dstr_754__MOCX_MODULENAME;
   cdat->dstr_754__MOCX_MODULENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_754__MOCX_MODULENAME.val, "MOCX_MODULENAME", sizeof(cdat->dstr_754__MOCX_MODULENAME.val)-1);
  
@@ -37669,7 +18888,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_753__MOCX_MODULENAME));
   melt_assertmsg("iniobj checkdiscr dobj_755__MOCX_MODULENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_755__MOCX_MODULENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_755__MOCX_MODULENAME.obj_num = 0;
-  cdat->dobj_755__MOCX_MODULENAME.obj_hash = 485576182;
+  cdat->dobj_755__MOCX_MODULENAME.obj_hash = 833262934;
   cdat->dobj_755__MOCX_MODULENAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_755__MOCX_MODULENAME));
  
@@ -37679,7 +18898,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_755__MOCX_MODULENAME));
   strncpy(cdat->dstr_756__MOCX_MODULENAME.val, "MOCX_MODULENAME", sizeof(cdat->dstr_756__MOCX_MODULENAME.val)-1);
  
  /*iniobj dsym_757__MOCX_EXPFIELDICT*/
- if (!/*_.VALDATA___V773*/ curfptr[772]) /*_.VALDATA___V773*/ curfptr[772] = (void*)&cdat->dsym_757__MOCX_EXPFIELDICT;
+ if (!/*_.VALDATA___V769*/ curfptr[768]) /*_.VALDATA___V769*/ curfptr[768] = (void*)&cdat->dsym_757__MOCX_EXPFIELDICT;
   melt_assertmsg("iniobj checkdiscr dsym_757__MOCX_EXPFIELDICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_757__MOCX_EXPFIELDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_757__MOCX_EXPFIELDICT.obj_hash = 248927698;
@@ -37687,7 +18906,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_755__MOCX_MODULENAME));
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_757__MOCX_EXPFIELDICT));
  
  /*inistring dstr_758__MOCX_EXPFIELDICT*/
- /*_.VALSTR___V774*/ curfptr[773] = (void*)&cdat->dstr_758__MOCX_EXPFIELDICT;
+ /*_.VALSTR___V770*/ curfptr[769] = (void*)&cdat->dstr_758__MOCX_EXPFIELDICT;
   cdat->dstr_758__MOCX_EXPFIELDICT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_758__MOCX_EXPFIELDICT.val, "MOCX_EXPFIELDICT", sizeof(cdat->dstr_758__MOCX_EXPFIELDICT.val)-1);
  
@@ -37697,7 +18916,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_757__MOCX_EXPFIELDICT));
   melt_assertmsg("iniobj checkdiscr dobj_759__MOCX_EXPFIELDICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_759__MOCX_EXPFIELDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_759__MOCX_EXPFIELDICT.obj_num = 1;
-  cdat->dobj_759__MOCX_EXPFIELDICT.obj_hash = 685636572;
+  cdat->dobj_759__MOCX_EXPFIELDICT.obj_hash = 259390728;
   cdat->dobj_759__MOCX_EXPFIELDICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_759__MOCX_EXPFIELDICT));
  
@@ -37707,7 +18926,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_759__MOCX_EXPFIELDICT));
   strncpy(cdat->dstr_760__MOCX_EXPFIELDICT.val, "MOCX_EXPFIELDICT", sizeof(cdat->dstr_760__MOCX_EXPFIELDICT.val)-1);
  
  /*iniobj dsym_761__MOCX_EXPCLASSDICT*/
- if (!/*_.VALDATA___V775*/ curfptr[774]) /*_.VALDATA___V775*/ curfptr[774] = (void*)&cdat->dsym_761__MOCX_EXPCLASSDICT;
+ if (!/*_.VALDATA___V771*/ curfptr[770]) /*_.VALDATA___V771*/ curfptr[770] = (void*)&cdat->dsym_761__MOCX_EXPCLASSDICT;
   melt_assertmsg("iniobj checkdiscr dsym_761__MOCX_EXPCLASSDICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_761__MOCX_EXPCLASSDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_761__MOCX_EXPCLASSDICT.obj_hash = 383633164;
@@ -37715,7 +18934,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_759__MOCX_EXPFIELDICT));
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_761__MOCX_EXPCLASSDICT));
  
  /*inistring dstr_762__MOCX_EXPCLASSDIC*/
- /*_.VALSTR___V776*/ curfptr[775] = (void*)&cdat->dstr_762__MOCX_EXPCLASSDIC;
+ /*_.VALSTR___V772*/ curfptr[771] = (void*)&cdat->dstr_762__MOCX_EXPCLASSDIC;
   cdat->dstr_762__MOCX_EXPCLASSDIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_762__MOCX_EXPCLASSDIC.val, "MOCX_EXPCLASSDICT", sizeof(cdat->dstr_762__MOCX_EXPCLASSDIC.val)-1);
  
@@ -37725,7 +18944,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_761__MOCX_EXPCLASSDICT));
   melt_assertmsg("iniobj checkdiscr dobj_763__MOCX_EXPCLASSDICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_763__MOCX_EXPCLASSDICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_763__MOCX_EXPCLASSDICT.obj_num = 2;
-  cdat->dobj_763__MOCX_EXPCLASSDICT.obj_hash = 334781030;
+  cdat->dobj_763__MOCX_EXPCLASSDICT.obj_hash = 514361406;
   cdat->dobj_763__MOCX_EXPCLASSDICT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_763__MOCX_EXPCLASSDICT));
  
@@ -37735,7 +18954,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_763__MOCX_EXPCLASSDICT));
   strncpy(cdat->dstr_764__MOCX_EXPCLASSDIC.val, "MOCX_EXPCLASSDICT", sizeof(cdat->dstr_764__MOCX_EXPCLASSDIC.val)-1);
  
  /*iniobj dsym_765__MOCX_INITIALENV*/
- if (!/*_.VALDATA___V777*/ curfptr[776]) /*_.VALDATA___V777*/ curfptr[776] = (void*)&cdat->dsym_765__MOCX_INITIALENV;
+ if (!/*_.VALDATA___V773*/ curfptr[772]) /*_.VALDATA___V773*/ curfptr[772] = (void*)&cdat->dsym_765__MOCX_INITIALENV;
   melt_assertmsg("iniobj checkdiscr dsym_765__MOCX_INITIALENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_765__MOCX_INITIALENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
   cdat->dsym_765__MOCX_INITIALENV.obj_hash = 768168529;
@@ -37743,7 +18962,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_763__MOCX_EXPCLASSDICT));
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_765__MOCX_INITIALENV));
  
  /*inistring dstr_766__MOCX_INITIALENV*/
- /*_.VALSTR___V778*/ curfptr[777] = (void*)&cdat->dstr_766__MOCX_INITIALENV;
+ /*_.VALSTR___V774*/ curfptr[773] = (void*)&cdat->dstr_766__MOCX_INITIALENV;
   cdat->dstr_766__MOCX_INITIALENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_766__MOCX_INITIALENV.val, "MOCX_INITIALENV", sizeof(cdat->dstr_766__MOCX_INITIALENV.val)-1);
  
@@ -37753,7 +18972,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_765__MOCX_INITIALENV));
   melt_assertmsg("iniobj checkdiscr dobj_767__MOCX_INITIALENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_767__MOCX_INITIALENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_767__MOCX_INITIALENV.obj_num = 3;
-  cdat->dobj_767__MOCX_INITIALENV.obj_hash = 594527652;
+  cdat->dobj_767__MOCX_INITIALENV.obj_hash = 133234183;
   cdat->dobj_767__MOCX_INITIALENV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_767__MOCX_INITIALENV));
  
@@ -37762,23418 +18981,23362 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_767__MOCX_INITIALENV));
   cdat->dstr_768__MOCX_INITIALENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_768__MOCX_INITIALENV.val, "MOCX_INITIALENV", sizeof(cdat->dstr_768__MOCX_INITIALENV.val)-1);
  
- /*iniobj dsym_769__MOCX_FUNCOUNT*/
- if (!/*_.VALDATA___V779*/ curfptr[778]) /*_.VALDATA___V779*/ curfptr[778] = (void*)&cdat->dsym_769__MOCX_FUNCOUNT;
-  melt_assertmsg("iniobj checkdiscr dsym_769__MOCX_FUNCOUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_769__MOCX_FUNCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_769__MOCX_FUNCOUNT.obj_hash = 1063312107;
-  cdat->dsym_769__MOCX_FUNCOUNT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_769__MOCX_FUNCOUNT));
- 
- /*inistring dstr_770__MOCX_FUNCOUNT*/
- /*_.VALSTR___V780*/ curfptr[779] = (void*)&cdat->dstr_770__MOCX_FUNCOUNT;
-  cdat->dstr_770__MOCX_FUNCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_770__MOCX_FUNCOUNT.val, "MOCX_FUNCOUNT", sizeof(cdat->dstr_770__MOCX_FUNCOUNT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ iniobj");
- /*iniobj dobj_771__MOCX_FUNCOUNT*/
- if (!/*_.VALDATA___V766*/ curfptr[765]) /*_.VALDATA___V766*/ curfptr[765] = (void*)&cdat->dobj_771__MOCX_FUNCOUNT;
-  melt_assertmsg("iniobj checkdiscr dobj_771__MOCX_FUNCOUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_771__MOCX_FUNCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_771__MOCX_FUNCOUNT.obj_num = 4;
-  cdat->dobj_771__MOCX_FUNCOUNT.obj_hash = 56382684;
-  cdat->dobj_771__MOCX_FUNCOUNT.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_771__MOCX_FUNCOUNT));
- 
- /*inistring dstr_772__MOCX_FUNCOUNT*/
- /*_.VALSTR___V767*/ curfptr[766] = (void*)&cdat->dstr_772__MOCX_FUNCOUNT;
-  cdat->dstr_772__MOCX_FUNCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_772__MOCX_FUNCOUNT.val, "MOCX_FUNCOUNT", sizeof(cdat->dstr_772__MOCX_FUNCOUNT.val)-1);
- 
- /*iniobj dsym_773__MOCX_FILETUPLE*/
- if (!/*_.VALDATA___V781*/ curfptr[780]) /*_.VALDATA___V781*/ curfptr[780] = (void*)&cdat->dsym_773__MOCX_FILETUPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_773__MOCX_FILETUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_773__MOCX_FILETUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_773__MOCX_FILETUPLE.obj_hash = 941611895;
-  cdat->dsym_773__MOCX_FILETUPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_773__MOCX_FILETUPLE));
- 
- /*inistring dstr_774__MOCX_FILETUPLE*/
- /*_.VALSTR___V782*/ curfptr[781] = (void*)&cdat->dstr_774__MOCX_FILETUPLE;
-  cdat->dstr_774__MOCX_FILETUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_774__MOCX_FILETUPLE.val, "MOCX_FILETUPLE", sizeof(cdat->dstr_774__MOCX_FILETUPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ iniobj");
- /*iniobj dobj_775__MOCX_FILETUPLE*/
- if (!/*_.VALDATA___V768*/ curfptr[767]) /*_.VALDATA___V768*/ curfptr[767] = (void*)&cdat->dobj_775__MOCX_FILETUPLE;
-  melt_assertmsg("iniobj checkdiscr dobj_775__MOCX_FILETUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_775__MOCX_FILETUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_775__MOCX_FILETUPLE.obj_num = 5;
-  cdat->dobj_775__MOCX_FILETUPLE.obj_hash = 280876578;
-  cdat->dobj_775__MOCX_FILETUPLE.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_775__MOCX_FILETUPLE));
- 
- /*inistring dstr_776__MOCX_FILETUPLE*/
- /*_.VALSTR___V769*/ curfptr[768] = (void*)&cdat->dstr_776__MOCX_FILETUPLE;
-  cdat->dstr_776__MOCX_FILETUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_776__MOCX_FILETUPLE.val, "MOCX_FILETUPLE", sizeof(cdat->dstr_776__MOCX_FILETUPLE.val)-1);
- 
- /*iniobj dsym_777__CLASS_NORMALIZATION_CONTEXT*/
- if (!/*_.VALDATA___V783*/ curfptr[782]) /*_.VALDATA___V783*/ curfptr[782] = (void*)&cdat->dsym_777__CLASS_NORMALIZATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_777__CLASS_NORMALIZATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_777__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_777__CLASS_NORMALIZATION_CONTEXT.obj_hash = 429657178;
-  cdat->dsym_777__CLASS_NORMALIZATION_CONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_777__CLASS_NORMALIZATION_CONTEXT));
- 
- /*inistring dstr_778__CLASS_NORMALIZAT*/
- /*_.VALSTR___V784*/ curfptr[783] = (void*)&cdat->dstr_778__CLASS_NORMALIZAT;
-  cdat->dstr_778__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_778__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof(cdat->dstr_778__CLASS_NORMALIZAT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_779__CLASS_NORMALIZATION_CONTEXT*/
- if (!/*_.VALDATA___V785*/ curfptr[784]) /*_.VALDATA___V785*/ curfptr[784] = (void*)&cdat->dobj_779__CLASS_NORMALIZATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dobj_779__CLASS_NORMALIZATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_779__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_779__CLASS_NORMALIZATION_CONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_779__CLASS_NORMALIZATION_CONTEXT.obj_hash = 9939931;
-  cdat->dobj_779__CLASS_NORMALIZATION_CONTEXT.obj_len = 8;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_779__CLASS_NORMALIZATION_CONTEXT));
- 
- /*inistring dstr_780__CLASS_NORMALIZAT*/
- /*_.VALSTR___V786*/ curfptr[785] = (void*)&cdat->dstr_780__CLASS_NORMALIZAT;
-  cdat->dstr_780__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_780__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof(cdat->dstr_780__CLASS_NORMALIZAT.val)-1);
- 
- /*inimult dtup_781__CLASS_NORMALIZATION_CONTEXT*/
- /*_.VALTUP___V787*/ curfptr[786] = (void*)&cdat->dtup_781__CLASS_NORMALIZATION_CONTEXT;
-  cdat->dtup_781__CLASS_NORMALIZATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
-  cdat->dtup_781__CLASS_NORMALIZATION_CONTEXT.nbval = 1;
- /*inimult dtup_782__CLASS_NORMALIZATION_CONTEXT*/
- /*_.VALTUP___V818*/ curfptr[817] = (void*)&cdat->dtup_782__CLASS_NORMALIZATION_CONTEXT;
-  cdat->dtup_782__CLASS_NORMALIZATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_782__CLASS_NORMALIZATION_CONTEXT.nbval = 15;
- /*iniobj dsym_783__NCTX_INITPROC*/
- if (!/*_.VALDATA___V819*/ curfptr[818]) /*_.VALDATA___V819*/ curfptr[818] = (void*)&cdat->dsym_783__NCTX_INITPROC;
-  melt_assertmsg("iniobj checkdiscr dsym_783__NCTX_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_783__NCTX_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_783__NCTX_INITPROC.obj_hash = 931641377;
-  cdat->dsym_783__NCTX_INITPROC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_783__NCTX_INITPROC));
- 
- /*inistring dstr_784__NCTX_INITPROC*/
- /*_.VALSTR___V820*/ curfptr[819] = (void*)&cdat->dstr_784__NCTX_INITPROC;
-  cdat->dstr_784__NCTX_INITPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_784__NCTX_INITPROC.val, "NCTX_INITPROC", sizeof(cdat->dstr_784__NCTX_INITPROC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_785__NCTX_INITPROC*/
- if (!/*_.VALDATA___V788*/ curfptr[787]) /*_.VALDATA___V788*/ curfptr[787] = (void*)&cdat->dobj_785__NCTX_INITPROC;
-  melt_assertmsg("iniobj checkdiscr dobj_785__NCTX_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_785__NCTX_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_785__NCTX_INITPROC.obj_num = 0;
-  cdat->dobj_785__NCTX_INITPROC.obj_hash = 72638950;
-  cdat->dobj_785__NCTX_INITPROC.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_785__NCTX_INITPROC));
- 
- /*inistring dstr_786__NCTX_INITPROC*/
- /*_.VALSTR___V789*/ curfptr[788] = (void*)&cdat->dstr_786__NCTX_INITPROC;
-  cdat->dstr_786__NCTX_INITPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_786__NCTX_INITPROC.val, "NCTX_INITPROC", sizeof(cdat->dstr_786__NCTX_INITPROC.val)-1);
- 
- /*iniobj dsym_787__NCTX_PROCLIST*/
- if (!/*_.VALDATA___V821*/ curfptr[820]) /*_.VALDATA___V821*/ curfptr[820] = (void*)&cdat->dsym_787__NCTX_PROCLIST;
-  melt_assertmsg("iniobj checkdiscr dsym_787__NCTX_PROCLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_787__NCTX_PROCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_787__NCTX_PROCLIST.obj_hash = 640423318;
-  cdat->dsym_787__NCTX_PROCLIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_787__NCTX_PROCLIST));
- 
- /*inistring dstr_788__NCTX_PROCLIST*/
- /*_.VALSTR___V822*/ curfptr[821] = (void*)&cdat->dstr_788__NCTX_PROCLIST;
-  cdat->dstr_788__NCTX_PROCLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_788__NCTX_PROCLIST.val, "NCTX_PROCLIST", sizeof(cdat->dstr_788__NCTX_PROCLIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_789__NCTX_PROCLIST*/
- if (!/*_.VALDATA___V790*/ curfptr[789]) /*_.VALDATA___V790*/ curfptr[789] = (void*)&cdat->dobj_789__NCTX_PROCLIST;
-  melt_assertmsg("iniobj checkdiscr dobj_789__NCTX_PROCLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_789__NCTX_PROCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_789__NCTX_PROCLIST.obj_num = 1;
-  cdat->dobj_789__NCTX_PROCLIST.obj_hash = 835187481;
-  cdat->dobj_789__NCTX_PROCLIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_789__NCTX_PROCLIST));
- 
- /*inistring dstr_790__NCTX_PROCLIST*/
- /*_.VALSTR___V791*/ curfptr[790] = (void*)&cdat->dstr_790__NCTX_PROCLIST;
-  cdat->dstr_790__NCTX_PROCLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_790__NCTX_PROCLIST.val, "NCTX_PROCLIST", sizeof(cdat->dstr_790__NCTX_PROCLIST.val)-1);
- 
- /*iniobj dsym_791__NCTX_DATALIST*/
- if (!/*_.VALDATA___V823*/ curfptr[822]) /*_.VALDATA___V823*/ curfptr[822] = (void*)&cdat->dsym_791__NCTX_DATALIST;
-  melt_assertmsg("iniobj checkdiscr dsym_791__NCTX_DATALIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_791__NCTX_DATALIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_791__NCTX_DATALIST.obj_hash = 918485831;
-  cdat->dsym_791__NCTX_DATALIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_791__NCTX_DATALIST));
- 
- /*inistring dstr_792__NCTX_DATALIST*/
- /*_.VALSTR___V824*/ curfptr[823] = (void*)&cdat->dstr_792__NCTX_DATALIST;
-  cdat->dstr_792__NCTX_DATALIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_792__NCTX_DATALIST.val, "NCTX_DATALIST", sizeof(cdat->dstr_792__NCTX_DATALIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_793__NCTX_DATALIST*/
- if (!/*_.VALDATA___V792*/ curfptr[791]) /*_.VALDATA___V792*/ curfptr[791] = (void*)&cdat->dobj_793__NCTX_DATALIST;
-  melt_assertmsg("iniobj checkdiscr dobj_793__NCTX_DATALIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_793__NCTX_DATALIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_793__NCTX_DATALIST.obj_num = 2;
-  cdat->dobj_793__NCTX_DATALIST.obj_hash = 302380381;
-  cdat->dobj_793__NCTX_DATALIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_793__NCTX_DATALIST));
- 
- /*inistring dstr_794__NCTX_DATALIST*/
- /*_.VALSTR___V793*/ curfptr[792] = (void*)&cdat->dstr_794__NCTX_DATALIST;
-  cdat->dstr_794__NCTX_DATALIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_794__NCTX_DATALIST.val, "NCTX_DATALIST", sizeof(cdat->dstr_794__NCTX_DATALIST.val)-1);
- 
- /*iniobj dsym_795__NCTX_VALUELIST*/
- if (!/*_.VALDATA___V825*/ curfptr[824]) /*_.VALDATA___V825*/ curfptr[824] = (void*)&cdat->dsym_795__NCTX_VALUELIST;
-  melt_assertmsg("iniobj checkdiscr dsym_795__NCTX_VALUELIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_795__NCTX_VALUELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_795__NCTX_VALUELIST.obj_hash = 809990982;
-  cdat->dsym_795__NCTX_VALUELIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_795__NCTX_VALUELIST));
- 
- /*inistring dstr_796__NCTX_VALUELIST*/
- /*_.VALSTR___V826*/ curfptr[825] = (void*)&cdat->dstr_796__NCTX_VALUELIST;
-  cdat->dstr_796__NCTX_VALUELIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_796__NCTX_VALUELIST.val, "NCTX_VALUELIST", sizeof(cdat->dstr_796__NCTX_VALUELIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_797__NCTX_VALUELIST*/
- if (!/*_.VALDATA___V794*/ curfptr[793]) /*_.VALDATA___V794*/ curfptr[793] = (void*)&cdat->dobj_797__NCTX_VALUELIST;
-  melt_assertmsg("iniobj checkdiscr dobj_797__NCTX_VALUELIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_797__NCTX_VALUELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_797__NCTX_VALUELIST.obj_num = 3;
-  cdat->dobj_797__NCTX_VALUELIST.obj_hash = 942860775;
-  cdat->dobj_797__NCTX_VALUELIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_797__NCTX_VALUELIST));
- 
- /*inistring dstr_798__NCTX_VALUELIST*/
- /*_.VALSTR___V795*/ curfptr[794] = (void*)&cdat->dstr_798__NCTX_VALUELIST;
-  cdat->dstr_798__NCTX_VALUELIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_798__NCTX_VALUELIST.val, "NCTX_VALUELIST", sizeof(cdat->dstr_798__NCTX_VALUELIST.val)-1);
- 
- /*iniobj dsym_799__NCTX_SYMBMAP*/
- if (!/*_.VALDATA___V827*/ curfptr[826]) /*_.VALDATA___V827*/ curfptr[826] = (void*)&cdat->dsym_799__NCTX_SYMBMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_799__NCTX_SYMBMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_799__NCTX_SYMBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_799__NCTX_SYMBMAP.obj_hash = 45968134;
-  cdat->dsym_799__NCTX_SYMBMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_799__NCTX_SYMBMAP));
- 
- /*inistring dstr_800__NCTX_SYMBMAP*/
- /*_.VALSTR___V828*/ curfptr[827] = (void*)&cdat->dstr_800__NCTX_SYMBMAP;
-  cdat->dstr_800__NCTX_SYMBMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_800__NCTX_SYMBMAP.val, "NCTX_SYMBMAP", sizeof(cdat->dstr_800__NCTX_SYMBMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_801__NCTX_SYMBMAP*/
- if (!/*_.VALDATA___V796*/ curfptr[795]) /*_.VALDATA___V796*/ curfptr[795] = (void*)&cdat->dobj_801__NCTX_SYMBMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_801__NCTX_SYMBMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_801__NCTX_SYMBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_801__NCTX_SYMBMAP.obj_num = 4;
-  cdat->dobj_801__NCTX_SYMBMAP.obj_hash = 341600603;
-  cdat->dobj_801__NCTX_SYMBMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_801__NCTX_SYMBMAP));
- 
- /*inistring dstr_802__NCTX_SYMBMAP*/
- /*_.VALSTR___V797*/ curfptr[796] = (void*)&cdat->dstr_802__NCTX_SYMBMAP;
-  cdat->dstr_802__NCTX_SYMBMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_802__NCTX_SYMBMAP.val, "NCTX_SYMBMAP", sizeof(cdat->dstr_802__NCTX_SYMBMAP.val)-1);
- 
- /*iniobj dsym_803__NCTX_KEYWMAP*/
- if (!/*_.VALDATA___V829*/ curfptr[828]) /*_.VALDATA___V829*/ curfptr[828] = (void*)&cdat->dsym_803__NCTX_KEYWMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_803__NCTX_KEYWMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_803__NCTX_KEYWMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_803__NCTX_KEYWMAP.obj_hash = 188636916;
-  cdat->dsym_803__NCTX_KEYWMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_803__NCTX_KEYWMAP));
- 
- /*inistring dstr_804__NCTX_KEYWMAP*/
- /*_.VALSTR___V830*/ curfptr[829] = (void*)&cdat->dstr_804__NCTX_KEYWMAP;
-  cdat->dstr_804__NCTX_KEYWMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_804__NCTX_KEYWMAP.val, "NCTX_KEYWMAP", sizeof(cdat->dstr_804__NCTX_KEYWMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_805__NCTX_KEYWMAP*/
- if (!/*_.VALDATA___V798*/ curfptr[797]) /*_.VALDATA___V798*/ curfptr[797] = (void*)&cdat->dobj_805__NCTX_KEYWMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_805__NCTX_KEYWMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_805__NCTX_KEYWMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_805__NCTX_KEYWMAP.obj_num = 5;
-  cdat->dobj_805__NCTX_KEYWMAP.obj_hash = 243456841;
-  cdat->dobj_805__NCTX_KEYWMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_805__NCTX_KEYWMAP));
- 
- /*inistring dstr_806__NCTX_KEYWMAP*/
- /*_.VALSTR___V799*/ curfptr[798] = (void*)&cdat->dstr_806__NCTX_KEYWMAP;
-  cdat->dstr_806__NCTX_KEYWMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_806__NCTX_KEYWMAP.val, "NCTX_KEYWMAP", sizeof(cdat->dstr_806__NCTX_KEYWMAP.val)-1);
- 
- /*iniobj dsym_807__NCTX_SYMBCACHEMAP*/
- if (!/*_.VALDATA___V831*/ curfptr[830]) /*_.VALDATA___V831*/ curfptr[830] = (void*)&cdat->dsym_807__NCTX_SYMBCACHEMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_807__NCTX_SYMBCACHEMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_807__NCTX_SYMBCACHEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_807__NCTX_SYMBCACHEMAP.obj_hash = 333021817;
-  cdat->dsym_807__NCTX_SYMBCACHEMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_807__NCTX_SYMBCACHEMAP));
- 
- /*inistring dstr_808__NCTX_SYMBCACHEMA*/
- /*_.VALSTR___V832*/ curfptr[831] = (void*)&cdat->dstr_808__NCTX_SYMBCACHEMA;
-  cdat->dstr_808__NCTX_SYMBCACHEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_808__NCTX_SYMBCACHEMA.val, "NCTX_SYMBCACHEMAP", sizeof(cdat->dstr_808__NCTX_SYMBCACHEMA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_809__NCTX_SYMBCACHEMAP*/
- if (!/*_.VALDATA___V800*/ curfptr[799]) /*_.VALDATA___V800*/ curfptr[799] = (void*)&cdat->dobj_809__NCTX_SYMBCACHEMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_809__NCTX_SYMBCACHEMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_809__NCTX_SYMBCACHEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_809__NCTX_SYMBCACHEMAP.obj_num = 6;
-  cdat->dobj_809__NCTX_SYMBCACHEMAP.obj_hash = 483811793;
-  cdat->dobj_809__NCTX_SYMBCACHEMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_809__NCTX_SYMBCACHEMAP));
- 
- /*inistring dstr_810__NCTX_SYMBCACHEMA*/
- /*_.VALSTR___V801*/ curfptr[800] = (void*)&cdat->dstr_810__NCTX_SYMBCACHEMA;
-  cdat->dstr_810__NCTX_SYMBCACHEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_810__NCTX_SYMBCACHEMA.val, "NCTX_SYMBCACHEMAP", sizeof(cdat->dstr_810__NCTX_SYMBCACHEMA.val)-1);
- 
- /*iniobj dsym_811__NCTX_PREDEFMAP*/
- if (!/*_.VALDATA___V833*/ curfptr[832]) /*_.VALDATA___V833*/ curfptr[832] = (void*)&cdat->dsym_811__NCTX_PREDEFMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_811__NCTX_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_811__NCTX_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_811__NCTX_PREDEFMAP.obj_hash = 984795698;
-  cdat->dsym_811__NCTX_PREDEFMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_811__NCTX_PREDEFMAP));
- 
- /*inistring dstr_812__NCTX_PREDEFMAP*/
- /*_.VALSTR___V834*/ curfptr[833] = (void*)&cdat->dstr_812__NCTX_PREDEFMAP;
-  cdat->dstr_812__NCTX_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_812__NCTX_PREDEFMAP.val, "NCTX_PREDEFMAP", sizeof(cdat->dstr_812__NCTX_PREDEFMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_813__NCTX_PREDEFMAP*/
- if (!/*_.VALDATA___V802*/ curfptr[801]) /*_.VALDATA___V802*/ curfptr[801] = (void*)&cdat->dobj_813__NCTX_PREDEFMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_813__NCTX_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_813__NCTX_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_813__NCTX_PREDEFMAP.obj_num = 7;
-  cdat->dobj_813__NCTX_PREDEFMAP.obj_hash = 921577225;
-  cdat->dobj_813__NCTX_PREDEFMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_813__NCTX_PREDEFMAP));
- 
- /*inistring dstr_814__NCTX_PREDEFMAP*/
- /*_.VALSTR___V803*/ curfptr[802] = (void*)&cdat->dstr_814__NCTX_PREDEFMAP;
-  cdat->dstr_814__NCTX_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_814__NCTX_PREDEFMAP.val, "NCTX_PREDEFMAP", sizeof(cdat->dstr_814__NCTX_PREDEFMAP.val)-1);
- 
- /*iniobj dsym_815__NCTX_VALMAP*/
- if (!/*_.VALDATA___V835*/ curfptr[834]) /*_.VALDATA___V835*/ curfptr[834] = (void*)&cdat->dsym_815__NCTX_VALMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_815__NCTX_VALMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_815__NCTX_VALMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_815__NCTX_VALMAP.obj_hash = 319308378;
-  cdat->dsym_815__NCTX_VALMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_815__NCTX_VALMAP));
- 
- /*inistring dstr_816__NCTX_VALMAP*/
- /*_.VALSTR___V836*/ curfptr[835] = (void*)&cdat->dstr_816__NCTX_VALMAP;
-  cdat->dstr_816__NCTX_VALMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_816__NCTX_VALMAP.val, "NCTX_VALMAP", sizeof(cdat->dstr_816__NCTX_VALMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_817__NCTX_VALMAP*/
- if (!/*_.VALDATA___V804*/ curfptr[803]) /*_.VALDATA___V804*/ curfptr[803] = (void*)&cdat->dobj_817__NCTX_VALMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_817__NCTX_VALMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_817__NCTX_VALMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_817__NCTX_VALMAP.obj_num = 8;
-  cdat->dobj_817__NCTX_VALMAP.obj_hash = 703782711;
-  cdat->dobj_817__NCTX_VALMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_817__NCTX_VALMAP));
- 
- /*inistring dstr_818__NCTX_VALMAP*/
- /*_.VALSTR___V805*/ curfptr[804] = (void*)&cdat->dstr_818__NCTX_VALMAP;
-  cdat->dstr_818__NCTX_VALMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_818__NCTX_VALMAP.val, "NCTX_VALMAP", sizeof(cdat->dstr_818__NCTX_VALMAP.val)-1);
- 
- /*iniobj dsym_819__NCTX_VALBINDMAP*/
- if (!/*_.VALDATA___V837*/ curfptr[836]) /*_.VALDATA___V837*/ curfptr[836] = (void*)&cdat->dsym_819__NCTX_VALBINDMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_819__NCTX_VALBINDMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_819__NCTX_VALBINDMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_819__NCTX_VALBINDMAP.obj_hash = 625617508;
-  cdat->dsym_819__NCTX_VALBINDMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_819__NCTX_VALBINDMAP));
- 
- /*inistring dstr_820__NCTX_VALBINDMAP*/
- /*_.VALSTR___V838*/ curfptr[837] = (void*)&cdat->dstr_820__NCTX_VALBINDMAP;
-  cdat->dstr_820__NCTX_VALBINDMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_820__NCTX_VALBINDMAP.val, "NCTX_VALBINDMAP", sizeof(cdat->dstr_820__NCTX_VALBINDMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_821__NCTX_VALBINDMAP*/
- if (!/*_.VALDATA___V806*/ curfptr[805]) /*_.VALDATA___V806*/ curfptr[805] = (void*)&cdat->dobj_821__NCTX_VALBINDMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_821__NCTX_VALBINDMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_821__NCTX_VALBINDMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_821__NCTX_VALBINDMAP.obj_num = 9;
-  cdat->dobj_821__NCTX_VALBINDMAP.obj_hash = 613056936;
-  cdat->dobj_821__NCTX_VALBINDMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_821__NCTX_VALBINDMAP));
- 
- /*inistring dstr_822__NCTX_VALBINDMAP*/
- /*_.VALSTR___V807*/ curfptr[806] = (void*)&cdat->dstr_822__NCTX_VALBINDMAP;
-  cdat->dstr_822__NCTX_VALBINDMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_822__NCTX_VALBINDMAP.val, "NCTX_VALBINDMAP", sizeof(cdat->dstr_822__NCTX_VALBINDMAP.val)-1);
- 
- /*iniobj dsym_823__NCTX_CURPROC*/
- if (!/*_.VALDATA___V839*/ curfptr[838]) /*_.VALDATA___V839*/ curfptr[838] = (void*)&cdat->dsym_823__NCTX_CURPROC;
-  melt_assertmsg("iniobj checkdiscr dsym_823__NCTX_CURPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_823__NCTX_CURPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_823__NCTX_CURPROC.obj_hash = 506573601;
-  cdat->dsym_823__NCTX_CURPROC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_823__NCTX_CURPROC));
- 
- /*inistring dstr_824__NCTX_CURPROC*/
- /*_.VALSTR___V840*/ curfptr[839] = (void*)&cdat->dstr_824__NCTX_CURPROC;
-  cdat->dstr_824__NCTX_CURPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_824__NCTX_CURPROC.val, "NCTX_CURPROC", sizeof(cdat->dstr_824__NCTX_CURPROC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_825__NCTX_CURPROC*/
- if (!/*_.VALDATA___V808*/ curfptr[807]) /*_.VALDATA___V808*/ curfptr[807] = (void*)&cdat->dobj_825__NCTX_CURPROC;
-  melt_assertmsg("iniobj checkdiscr dobj_825__NCTX_CURPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_825__NCTX_CURPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_825__NCTX_CURPROC.obj_num = 10;
-  cdat->dobj_825__NCTX_CURPROC.obj_hash = 446011789;
-  cdat->dobj_825__NCTX_CURPROC.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_825__NCTX_CURPROC));
- 
- /*inistring dstr_826__NCTX_CURPROC*/
- /*_.VALSTR___V809*/ curfptr[808] = (void*)&cdat->dstr_826__NCTX_CURPROC;
-  cdat->dstr_826__NCTX_CURPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_826__NCTX_CURPROC.val, "NCTX_CURPROC", sizeof(cdat->dstr_826__NCTX_CURPROC.val)-1);
- 
- /*iniobj dsym_827__NCTX_MODULCONTEXT*/
- if (!/*_.VALDATA___V841*/ curfptr[840]) /*_.VALDATA___V841*/ curfptr[840] = (void*)&cdat->dsym_827__NCTX_MODULCONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_827__NCTX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_827__NCTX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_827__NCTX_MODULCONTEXT.obj_hash = 568616506;
-  cdat->dsym_827__NCTX_MODULCONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_827__NCTX_MODULCONTEXT));
- 
- /*inistring dstr_828__NCTX_MODULCONTEX*/
- /*_.VALSTR___V842*/ curfptr[841] = (void*)&cdat->dstr_828__NCTX_MODULCONTEX;
-  cdat->dstr_828__NCTX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_828__NCTX_MODULCONTEX.val, "NCTX_MODULCONTEXT", sizeof(cdat->dstr_828__NCTX_MODULCONTEX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_829__NCTX_MODULCONTEXT*/
- if (!/*_.VALDATA___V810*/ curfptr[809]) /*_.VALDATA___V810*/ curfptr[809] = (void*)&cdat->dobj_829__NCTX_MODULCONTEXT;
-  melt_assertmsg("iniobj checkdiscr dobj_829__NCTX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_829__NCTX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_829__NCTX_MODULCONTEXT.obj_num = 11;
-  cdat->dobj_829__NCTX_MODULCONTEXT.obj_hash = 549718239;
-  cdat->dobj_829__NCTX_MODULCONTEXT.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_829__NCTX_MODULCONTEXT));
- 
- /*inistring dstr_830__NCTX_MODULCONTEX*/
- /*_.VALSTR___V811*/ curfptr[810] = (void*)&cdat->dstr_830__NCTX_MODULCONTEX;
-  cdat->dstr_830__NCTX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_830__NCTX_MODULCONTEX.val, "NCTX_MODULCONTEXT", sizeof(cdat->dstr_830__NCTX_MODULCONTEX.val)-1);
- 
- /*iniobj dsym_831__NCTX_QDATCURMODENVBOX*/
- if (!/*_.VALDATA___V843*/ curfptr[842]) /*_.VALDATA___V843*/ curfptr[842] = (void*)&cdat->dsym_831__NCTX_QDATCURMODENVBOX;
-  melt_assertmsg("iniobj checkdiscr dsym_831__NCTX_QDATCURMODENVBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_831__NCTX_QDATCURMODENVBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_831__NCTX_QDATCURMODENVBOX.obj_hash = 848974803;
-  cdat->dsym_831__NCTX_QDATCURMODENVBOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_831__NCTX_QDATCURMODENVBOX));
- 
- /*inistring dstr_832__NCTX_QDATCURMODE*/
- /*_.VALSTR___V844*/ curfptr[843] = (void*)&cdat->dstr_832__NCTX_QDATCURMODE;
-  cdat->dstr_832__NCTX_QDATCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_832__NCTX_QDATCURMODE.val, "NCTX_QDATCURMODENVBOX", sizeof(cdat->dstr_832__NCTX_QDATCURMODE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_833__NCTX_QDATCURMODENVBOX*/
- if (!/*_.VALDATA___V812*/ curfptr[811]) /*_.VALDATA___V812*/ curfptr[811] = (void*)&cdat->dobj_833__NCTX_QDATCURMODENVBOX;
-  melt_assertmsg("iniobj checkdiscr dobj_833__NCTX_QDATCURMODENVBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_833__NCTX_QDATCURMODENVBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_833__NCTX_QDATCURMODENVBOX.obj_num = 12;
-  cdat->dobj_833__NCTX_QDATCURMODENVBOX.obj_hash = 778817772;
-  cdat->dobj_833__NCTX_QDATCURMODENVBOX.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_833__NCTX_QDATCURMODENVBOX));
- 
- /*inistring dstr_834__NCTX_QDATCURMODE*/
- /*_.VALSTR___V813*/ curfptr[812] = (void*)&cdat->dstr_834__NCTX_QDATCURMODE;
-  cdat->dstr_834__NCTX_QDATCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_834__NCTX_QDATCURMODE.val, "NCTX_QDATCURMODENVBOX", sizeof(cdat->dstr_834__NCTX_QDATCURMODE.val)-1);
- 
- /*iniobj dsym_835__NCTX_QDATPARMODENV*/
- if (!/*_.VALDATA___V845*/ curfptr[844]) /*_.VALDATA___V845*/ curfptr[844] = (void*)&cdat->dsym_835__NCTX_QDATPARMODENV;
-  melt_assertmsg("iniobj checkdiscr dsym_835__NCTX_QDATPARMODENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_835__NCTX_QDATPARMODENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_835__NCTX_QDATPARMODENV.obj_hash = 412523905;
-  cdat->dsym_835__NCTX_QDATPARMODENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_835__NCTX_QDATPARMODENV));
- 
- /*inistring dstr_836__NCTX_QDATPARMODE*/
- /*_.VALSTR___V846*/ curfptr[845] = (void*)&cdat->dstr_836__NCTX_QDATPARMODE;
-  cdat->dstr_836__NCTX_QDATPARMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_836__NCTX_QDATPARMODE.val, "NCTX_QDATPARMODENV", sizeof(cdat->dstr_836__NCTX_QDATPARMODE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_837__NCTX_QDATPARMODENV*/
- if (!/*_.VALDATA___V814*/ curfptr[813]) /*_.VALDATA___V814*/ curfptr[813] = (void*)&cdat->dobj_837__NCTX_QDATPARMODENV;
-  melt_assertmsg("iniobj checkdiscr dobj_837__NCTX_QDATPARMODENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_837__NCTX_QDATPARMODENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_837__NCTX_QDATPARMODENV.obj_num = 13;
-  cdat->dobj_837__NCTX_QDATPARMODENV.obj_hash = 647812816;
-  cdat->dobj_837__NCTX_QDATPARMODENV.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_837__NCTX_QDATPARMODENV));
- 
- /*inistring dstr_838__NCTX_QDATPARMODE*/
- /*_.VALSTR___V815*/ curfptr[814] = (void*)&cdat->dstr_838__NCTX_QDATPARMODE;
-  cdat->dstr_838__NCTX_QDATPARMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_838__NCTX_QDATPARMODE.val, "NCTX_QDATPARMODENV", sizeof(cdat->dstr_838__NCTX_QDATPARMODE.val)-1);
- 
- /*iniobj dsym_839__NCTX_PROCURMODENVLIST*/
- if (!/*_.VALDATA___V847*/ curfptr[846]) /*_.VALDATA___V847*/ curfptr[846] = (void*)&cdat->dsym_839__NCTX_PROCURMODENVLIST;
-  melt_assertmsg("iniobj checkdiscr dsym_839__NCTX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_839__NCTX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_839__NCTX_PROCURMODENVLIST.obj_hash = 1041665231;
-  cdat->dsym_839__NCTX_PROCURMODENVLIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_839__NCTX_PROCURMODENVLIST));
- 
- /*inistring dstr_840__NCTX_PROCURMODEN*/
- /*_.VALSTR___V848*/ curfptr[847] = (void*)&cdat->dstr_840__NCTX_PROCURMODEN;
-  cdat->dstr_840__NCTX_PROCURMODEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_840__NCTX_PROCURMODEN.val, "NCTX_PROCURMODENVLIST", sizeof(cdat->dstr_840__NCTX_PROCURMODEN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ iniobj");
- /*iniobj dobj_841__NCTX_PROCURMODENVLIST*/
- if (!/*_.VALDATA___V816*/ curfptr[815]) /*_.VALDATA___V816*/ curfptr[815] = (void*)&cdat->dobj_841__NCTX_PROCURMODENVLIST;
-  melt_assertmsg("iniobj checkdiscr dobj_841__NCTX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_841__NCTX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_841__NCTX_PROCURMODENVLIST.obj_num = 14;
-  cdat->dobj_841__NCTX_PROCURMODENVLIST.obj_hash = 645877191;
-  cdat->dobj_841__NCTX_PROCURMODENVLIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_841__NCTX_PROCURMODENVLIST));
- 
- /*inistring dstr_842__NCTX_PROCURMODEN*/
- /*_.VALSTR___V817*/ curfptr[816] = (void*)&cdat->dstr_842__NCTX_PROCURMODEN;
-  cdat->dstr_842__NCTX_PROCURMODEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_842__NCTX_PROCURMODEN.val, "NCTX_PROCURMODENVLIST", sizeof(cdat->dstr_842__NCTX_PROCURMODEN.val)-1);
- 
- /*iniobj dsym_843__CLASS_C_GENERATION_CONTEXT*/
- if (!/*_.VALDATA___V849*/ curfptr[848]) /*_.VALDATA___V849*/ curfptr[848] = (void*)&cdat->dsym_843__CLASS_C_GENERATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_843__CLASS_C_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_843__CLASS_C_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_843__CLASS_C_GENERATION_CONTEXT.obj_hash = 748328565;
-  cdat->dsym_843__CLASS_C_GENERATION_CONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_843__CLASS_C_GENERATION_CONTEXT));
- 
- /*inistring dstr_844__CLASS_C_GENERATI*/
- /*_.VALSTR___V850*/ curfptr[849] = (void*)&cdat->dstr_844__CLASS_C_GENERATI;
-  cdat->dstr_844__CLASS_C_GENERATI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_844__CLASS_C_GENERATI.val, "CLASS_C_GENERATION_CONTEXT", sizeof(cdat->dstr_844__CLASS_C_GENERATI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_845__CLASS_C_GENERATION_CONTEXT*/
- if (!/*_.VALDATA___V851*/ curfptr[850]) /*_.VALDATA___V851*/ curfptr[850] = (void*)&cdat->dobj_845__CLASS_C_GENERATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dobj_845__CLASS_C_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_845__CLASS_C_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_845__CLASS_C_GENERATION_CONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_845__CLASS_C_GENERATION_CONTEXT.obj_hash = 482068737;
-  cdat->dobj_845__CLASS_C_GENERATION_CONTEXT.obj_len = 8;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_845__CLASS_C_GENERATION_CONTEXT));
- 
- /*inistring dstr_846__CLASS_C_GENERATI*/
- /*_.VALSTR___V852*/ curfptr[851] = (void*)&cdat->dstr_846__CLASS_C_GENERATI;
-  cdat->dstr_846__CLASS_C_GENERATI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_846__CLASS_C_GENERATI.val, "CLASS_C_GENERATION_CONTEXT", sizeof(cdat->dstr_846__CLASS_C_GENERATI.val)-1);
- 
- /*inimult dtup_847__CLASS_C_GENERATION_CONTEXT*/
- /*_.VALTUP___V853*/ curfptr[852] = (void*)&cdat->dtup_847__CLASS_C_GENERATION_CONTEXT;
-  cdat->dtup_847__CLASS_C_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
-  cdat->dtup_847__CLASS_C_GENERATION_CONTEXT.nbval = 1;
- /*inimult dtup_848__CLASS_C_GENERATION_CONTEXT*/
- /*_.VALTUP___V872*/ curfptr[871] = (void*)&cdat->dtup_848__CLASS_C_GENERATION_CONTEXT;
-  cdat->dtup_848__CLASS_C_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_848__CLASS_C_GENERATION_CONTEXT.nbval = 9;
- /*iniobj dsym_849__GNCX_OBJROUT*/
- if (!/*_.VALDATA___V873*/ curfptr[872]) /*_.VALDATA___V873*/ curfptr[872] = (void*)&cdat->dsym_849__GNCX_OBJROUT;
-  melt_assertmsg("iniobj checkdiscr dsym_849__GNCX_OBJROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_849__GNCX_OBJROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_849__GNCX_OBJROUT.obj_hash = 993336124;
-  cdat->dsym_849__GNCX_OBJROUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_849__GNCX_OBJROUT));
- 
- /*inistring dstr_850__GNCX_OBJROUT*/
- /*_.VALSTR___V874*/ curfptr[873] = (void*)&cdat->dstr_850__GNCX_OBJROUT;
-  cdat->dstr_850__GNCX_OBJROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_850__GNCX_OBJROUT.val, "GNCX_OBJROUT", sizeof(cdat->dstr_850__GNCX_OBJROUT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_851__GNCX_OBJROUT*/
- if (!/*_.VALDATA___V854*/ curfptr[853]) /*_.VALDATA___V854*/ curfptr[853] = (void*)&cdat->dobj_851__GNCX_OBJROUT;
-  melt_assertmsg("iniobj checkdiscr dobj_851__GNCX_OBJROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_851__GNCX_OBJROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_851__GNCX_OBJROUT.obj_num = 0;
-  cdat->dobj_851__GNCX_OBJROUT.obj_hash = 528603676;
-  cdat->dobj_851__GNCX_OBJROUT.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_851__GNCX_OBJROUT));
- 
- /*inistring dstr_852__GNCX_OBJROUT*/
- /*_.VALSTR___V855*/ curfptr[854] = (void*)&cdat->dstr_852__GNCX_OBJROUT;
-  cdat->dstr_852__GNCX_OBJROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_852__GNCX_OBJROUT.val, "GNCX_OBJROUT", sizeof(cdat->dstr_852__GNCX_OBJROUT.val)-1);
- 
- /*iniobj dsym_853__GNCX_LOCMAP*/
- if (!/*_.VALDATA___V875*/ curfptr[874]) /*_.VALDATA___V875*/ curfptr[874] = (void*)&cdat->dsym_853__GNCX_LOCMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_853__GNCX_LOCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_853__GNCX_LOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_853__GNCX_LOCMAP.obj_hash = 599632775;
-  cdat->dsym_853__GNCX_LOCMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_853__GNCX_LOCMAP));
- 
- /*inistring dstr_854__GNCX_LOCMAP*/
- /*_.VALSTR___V876*/ curfptr[875] = (void*)&cdat->dstr_854__GNCX_LOCMAP;
-  cdat->dstr_854__GNCX_LOCMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_854__GNCX_LOCMAP.val, "GNCX_LOCMAP", sizeof(cdat->dstr_854__GNCX_LOCMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_855__GNCX_LOCMAP*/
- if (!/*_.VALDATA___V856*/ curfptr[855]) /*_.VALDATA___V856*/ curfptr[855] = (void*)&cdat->dobj_855__GNCX_LOCMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_855__GNCX_LOCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_855__GNCX_LOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_855__GNCX_LOCMAP.obj_num = 1;
-  cdat->dobj_855__GNCX_LOCMAP.obj_hash = 924952211;
-  cdat->dobj_855__GNCX_LOCMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_855__GNCX_LOCMAP));
- 
- /*inistring dstr_856__GNCX_LOCMAP*/
- /*_.VALSTR___V857*/ curfptr[856] = (void*)&cdat->dstr_856__GNCX_LOCMAP;
-  cdat->dstr_856__GNCX_LOCMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_856__GNCX_LOCMAP.val, "GNCX_LOCMAP", sizeof(cdat->dstr_856__GNCX_LOCMAP.val)-1);
- 
- /*iniobj dsym_857__GNCX_FREEPTRLIST*/
- if (!/*_.VALDATA___V877*/ curfptr[876]) /*_.VALDATA___V877*/ curfptr[876] = (void*)&cdat->dsym_857__GNCX_FREEPTRLIST;
-  melt_assertmsg("iniobj checkdiscr dsym_857__GNCX_FREEPTRLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_857__GNCX_FREEPTRLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_857__GNCX_FREEPTRLIST.obj_hash = 903403556;
-  cdat->dsym_857__GNCX_FREEPTRLIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_857__GNCX_FREEPTRLIST));
- 
- /*inistring dstr_858__GNCX_FREEPTRLIST*/
- /*_.VALSTR___V878*/ curfptr[877] = (void*)&cdat->dstr_858__GNCX_FREEPTRLIST;
-  cdat->dstr_858__GNCX_FREEPTRLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_858__GNCX_FREEPTRLIST.val, "GNCX_FREEPTRLIST", sizeof(cdat->dstr_858__GNCX_FREEPTRLIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_859__GNCX_FREEPTRLIST*/
- if (!/*_.VALDATA___V858*/ curfptr[857]) /*_.VALDATA___V858*/ curfptr[857] = (void*)&cdat->dobj_859__GNCX_FREEPTRLIST;
-  melt_assertmsg("iniobj checkdiscr dobj_859__GNCX_FREEPTRLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_859__GNCX_FREEPTRLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_859__GNCX_FREEPTRLIST.obj_num = 2;
-  cdat->dobj_859__GNCX_FREEPTRLIST.obj_hash = 23487340;
-  cdat->dobj_859__GNCX_FREEPTRLIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_859__GNCX_FREEPTRLIST));
- 
- /*inistring dstr_860__GNCX_FREEPTRLIST*/
- /*_.VALSTR___V859*/ curfptr[858] = (void*)&cdat->dstr_860__GNCX_FREEPTRLIST;
-  cdat->dstr_860__GNCX_FREEPTRLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_860__GNCX_FREEPTRLIST.val, "GNCX_FREEPTRLIST", sizeof(cdat->dstr_860__GNCX_FREEPTRLIST.val)-1);
- 
- /*iniobj dsym_861__GNCX_FREELONGLIST*/
- if (!/*_.VALDATA___V879*/ curfptr[878]) /*_.VALDATA___V879*/ curfptr[878] = (void*)&cdat->dsym_861__GNCX_FREELONGLIST;
-  melt_assertmsg("iniobj checkdiscr dsym_861__GNCX_FREELONGLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_861__GNCX_FREELONGLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_861__GNCX_FREELONGLIST.obj_hash = 264114485;
-  cdat->dsym_861__GNCX_FREELONGLIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_861__GNCX_FREELONGLIST));
- 
- /*inistring dstr_862__GNCX_FREELONGLIS*/
- /*_.VALSTR___V880*/ curfptr[879] = (void*)&cdat->dstr_862__GNCX_FREELONGLIS;
-  cdat->dstr_862__GNCX_FREELONGLIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_862__GNCX_FREELONGLIS.val, "GNCX_FREELONGLIST", sizeof(cdat->dstr_862__GNCX_FREELONGLIS.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_863__GNCX_FREELONGLIST*/
- if (!/*_.VALDATA___V860*/ curfptr[859]) /*_.VALDATA___V860*/ curfptr[859] = (void*)&cdat->dobj_863__GNCX_FREELONGLIST;
-  melt_assertmsg("iniobj checkdiscr dobj_863__GNCX_FREELONGLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_863__GNCX_FREELONGLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_863__GNCX_FREELONGLIST.obj_num = 3;
-  cdat->dobj_863__GNCX_FREELONGLIST.obj_hash = 532872241;
-  cdat->dobj_863__GNCX_FREELONGLIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_863__GNCX_FREELONGLIST));
- 
- /*inistring dstr_864__GNCX_FREELONGLIS*/
- /*_.VALSTR___V861*/ curfptr[860] = (void*)&cdat->dstr_864__GNCX_FREELONGLIS;
-  cdat->dstr_864__GNCX_FREELONGLIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_864__GNCX_FREELONGLIS.val, "GNCX_FREELONGLIST", sizeof(cdat->dstr_864__GNCX_FREELONGLIS.val)-1);
- 
- /*iniobj dsym_865__GNCX_FREEOTHERMAPS*/
- if (!/*_.VALDATA___V881*/ curfptr[880]) /*_.VALDATA___V881*/ curfptr[880] = (void*)&cdat->dsym_865__GNCX_FREEOTHERMAPS;
-  melt_assertmsg("iniobj checkdiscr dsym_865__GNCX_FREEOTHERMAPS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_865__GNCX_FREEOTHERMAPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_865__GNCX_FREEOTHERMAPS.obj_hash = 1003093597;
-  cdat->dsym_865__GNCX_FREEOTHERMAPS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_865__GNCX_FREEOTHERMAPS));
- 
- /*inistring dstr_866__GNCX_FREEOTHERMA*/
- /*_.VALSTR___V882*/ curfptr[881] = (void*)&cdat->dstr_866__GNCX_FREEOTHERMA;
-  cdat->dstr_866__GNCX_FREEOTHERMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_866__GNCX_FREEOTHERMA.val, "GNCX_FREEOTHERMAPS", sizeof(cdat->dstr_866__GNCX_FREEOTHERMA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_867__GNCX_FREEOTHERMAPS*/
- if (!/*_.VALDATA___V862*/ curfptr[861]) /*_.VALDATA___V862*/ curfptr[861] = (void*)&cdat->dobj_867__GNCX_FREEOTHERMAPS;
-  melt_assertmsg("iniobj checkdiscr dobj_867__GNCX_FREEOTHERMAPS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_867__GNCX_FREEOTHERMAPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_867__GNCX_FREEOTHERMAPS.obj_num = 4;
-  cdat->dobj_867__GNCX_FREEOTHERMAPS.obj_hash = 998387447;
-  cdat->dobj_867__GNCX_FREEOTHERMAPS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_867__GNCX_FREEOTHERMAPS));
- 
- /*inistring dstr_868__GNCX_FREEOTHERMA*/
- /*_.VALSTR___V863*/ curfptr[862] = (void*)&cdat->dstr_868__GNCX_FREEOTHERMA;
-  cdat->dstr_868__GNCX_FREEOTHERMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_868__GNCX_FREEOTHERMA.val, "GNCX_FREEOTHERMAPS", sizeof(cdat->dstr_868__GNCX_FREEOTHERMA.val)-1);
- 
- /*iniobj dsym_869__GNCX_RETLOC*/
- if (!/*_.VALDATA___V883*/ curfptr[882]) /*_.VALDATA___V883*/ curfptr[882] = (void*)&cdat->dsym_869__GNCX_RETLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_869__GNCX_RETLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_869__GNCX_RETLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_869__GNCX_RETLOC.obj_hash = 570188544;
-  cdat->dsym_869__GNCX_RETLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_869__GNCX_RETLOC));
- 
- /*inistring dstr_870__GNCX_RETLOC*/
- /*_.VALSTR___V884*/ curfptr[883] = (void*)&cdat->dstr_870__GNCX_RETLOC;
-  cdat->dstr_870__GNCX_RETLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_870__GNCX_RETLOC.val, "GNCX_RETLOC", sizeof(cdat->dstr_870__GNCX_RETLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_871__GNCX_RETLOC*/
- if (!/*_.VALDATA___V864*/ curfptr[863]) /*_.VALDATA___V864*/ curfptr[863] = (void*)&cdat->dobj_871__GNCX_RETLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_871__GNCX_RETLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_871__GNCX_RETLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_871__GNCX_RETLOC.obj_num = 5;
-  cdat->dobj_871__GNCX_RETLOC.obj_hash = 239611913;
-  cdat->dobj_871__GNCX_RETLOC.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_871__GNCX_RETLOC));
- 
- /*inistring dstr_872__GNCX_RETLOC*/
- /*_.VALSTR___V865*/ curfptr[864] = (void*)&cdat->dstr_872__GNCX_RETLOC;
-  cdat->dstr_872__GNCX_RETLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_872__GNCX_RETLOC.val, "GNCX_RETLOC", sizeof(cdat->dstr_872__GNCX_RETLOC.val)-1);
- 
- /*iniobj dsym_873__GNCX_COMPICACHE*/
- if (!/*_.VALDATA___V885*/ curfptr[884]) /*_.VALDATA___V885*/ curfptr[884] = (void*)&cdat->dsym_873__GNCX_COMPICACHE;
-  melt_assertmsg("iniobj checkdiscr dsym_873__GNCX_COMPICACHE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_873__GNCX_COMPICACHE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_873__GNCX_COMPICACHE.obj_hash = 1019986423;
-  cdat->dsym_873__GNCX_COMPICACHE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_873__GNCX_COMPICACHE));
- 
- /*inistring dstr_874__GNCX_COMPICACHE*/
- /*_.VALSTR___V886*/ curfptr[885] = (void*)&cdat->dstr_874__GNCX_COMPICACHE;
-  cdat->dstr_874__GNCX_COMPICACHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_874__GNCX_COMPICACHE.val, "GNCX_COMPICACHE", sizeof(cdat->dstr_874__GNCX_COMPICACHE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_875__GNCX_COMPICACHE*/
- if (!/*_.VALDATA___V866*/ curfptr[865]) /*_.VALDATA___V866*/ curfptr[865] = (void*)&cdat->dobj_875__GNCX_COMPICACHE;
-  melt_assertmsg("iniobj checkdiscr dobj_875__GNCX_COMPICACHE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_875__GNCX_COMPICACHE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_875__GNCX_COMPICACHE.obj_num = 6;
-  cdat->dobj_875__GNCX_COMPICACHE.obj_hash = 167882849;
-  cdat->dobj_875__GNCX_COMPICACHE.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_875__GNCX_COMPICACHE));
- 
- /*inistring dstr_876__GNCX_COMPICACHE*/
- /*_.VALSTR___V867*/ curfptr[866] = (void*)&cdat->dstr_876__GNCX_COMPICACHE;
-  cdat->dstr_876__GNCX_COMPICACHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_876__GNCX_COMPICACHE.val, "GNCX_COMPICACHE", sizeof(cdat->dstr_876__GNCX_COMPICACHE.val)-1);
- 
- /*iniobj dsym_877__GNCX_MODULCONTEXT*/
- if (!/*_.VALDATA___V887*/ curfptr[886]) /*_.VALDATA___V887*/ curfptr[886] = (void*)&cdat->dsym_877__GNCX_MODULCONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_877__GNCX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_877__GNCX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_877__GNCX_MODULCONTEXT.obj_hash = 723165498;
-  cdat->dsym_877__GNCX_MODULCONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_877__GNCX_MODULCONTEXT));
- 
- /*inistring dstr_878__GNCX_MODULCONTEX*/
- /*_.VALSTR___V888*/ curfptr[887] = (void*)&cdat->dstr_878__GNCX_MODULCONTEX;
-  cdat->dstr_878__GNCX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_878__GNCX_MODULCONTEX.val, "GNCX_MODULCONTEXT", sizeof(cdat->dstr_878__GNCX_MODULCONTEX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_879__GNCX_MODULCONTEXT*/
- if (!/*_.VALDATA___V868*/ curfptr[867]) /*_.VALDATA___V868*/ curfptr[867] = (void*)&cdat->dobj_879__GNCX_MODULCONTEXT;
-  melt_assertmsg("iniobj checkdiscr dobj_879__GNCX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_879__GNCX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_879__GNCX_MODULCONTEXT.obj_num = 7;
-  cdat->dobj_879__GNCX_MODULCONTEXT.obj_hash = 213641733;
-  cdat->dobj_879__GNCX_MODULCONTEXT.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_879__GNCX_MODULCONTEXT));
- 
- /*inistring dstr_880__GNCX_MODULCONTEX*/
- /*_.VALSTR___V869*/ curfptr[868] = (void*)&cdat->dstr_880__GNCX_MODULCONTEX;
-  cdat->dstr_880__GNCX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_880__GNCX_MODULCONTEX.val, "GNCX_MODULCONTEXT", sizeof(cdat->dstr_880__GNCX_MODULCONTEX.val)-1);
- 
- /*iniobj dsym_881__GNCX_MATCHMAP*/
- if (!/*_.VALDATA___V889*/ curfptr[888]) /*_.VALDATA___V889*/ curfptr[888] = (void*)&cdat->dsym_881__GNCX_MATCHMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_881__GNCX_MATCHMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_881__GNCX_MATCHMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_881__GNCX_MATCHMAP.obj_hash = 1017022868;
-  cdat->dsym_881__GNCX_MATCHMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_881__GNCX_MATCHMAP));
- 
- /*inistring dstr_882__GNCX_MATCHMAP*/
- /*_.VALSTR___V890*/ curfptr[889] = (void*)&cdat->dstr_882__GNCX_MATCHMAP;
-  cdat->dstr_882__GNCX_MATCHMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_882__GNCX_MATCHMAP.val, "GNCX_MATCHMAP", sizeof(cdat->dstr_882__GNCX_MATCHMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ iniobj");
- /*iniobj dobj_883__GNCX_MATCHMAP*/
- if (!/*_.VALDATA___V870*/ curfptr[869]) /*_.VALDATA___V870*/ curfptr[869] = (void*)&cdat->dobj_883__GNCX_MATCHMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_883__GNCX_MATCHMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_883__GNCX_MATCHMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_883__GNCX_MATCHMAP.obj_num = 8;
-  cdat->dobj_883__GNCX_MATCHMAP.obj_hash = 922462907;
-  cdat->dobj_883__GNCX_MATCHMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_883__GNCX_MATCHMAP));
- 
- /*inistring dstr_884__GNCX_MATCHMAP*/
- /*_.VALSTR___V871*/ curfptr[870] = (void*)&cdat->dstr_884__GNCX_MATCHMAP;
-  cdat->dstr_884__GNCX_MATCHMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_884__GNCX_MATCHMAP.val, "GNCX_MATCHMAP", sizeof(cdat->dstr_884__GNCX_MATCHMAP.val)-1);
- 
- /*iniobj dsym_885__CLASS_INITIAL_GENERATION_CONTEXT*/
- if (!/*_.VALDATA___V891*/ curfptr[890]) /*_.VALDATA___V891*/ curfptr[890] = (void*)&cdat->dsym_885__CLASS_INITIAL_GENERATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_885__CLASS_INITIAL_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_885__CLASS_INITIAL_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_885__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 132112963;
-  cdat->dsym_885__CLASS_INITIAL_GENERATION_CONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_885__CLASS_INITIAL_GENERATION_CONTEXT));
- 
- /*inistring dstr_886__CLASS_INITIAL_GE*/
- /*_.VALSTR___V892*/ curfptr[891] = (void*)&cdat->dstr_886__CLASS_INITIAL_GE;
-  cdat->dstr_886__CLASS_INITIAL_GE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_886__CLASS_INITIAL_GE.val, "CLASS_INITIAL_GENERATION_CONTEXT", sizeof(cdat->dstr_886__CLASS_INITIAL_GE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ iniobj");
- /*iniobj dobj_887__CLASS_INITIAL_GENERATION_CONTEXT*/
- if (!/*_.VALDATA___V893*/ curfptr[892]) /*_.VALDATA___V893*/ curfptr[892] = (void*)&cdat->dobj_887__CLASS_INITIAL_GENERATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dobj_887__CLASS_INITIAL_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_887__CLASS_INITIAL_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_887__CLASS_INITIAL_GENERATION_CONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_887__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 1022942772;
-  cdat->dobj_887__CLASS_INITIAL_GENERATION_CONTEXT.obj_len = 8;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_887__CLASS_INITIAL_GENERATION_CONTEXT));
- 
- /*inistring dstr_888__CLASS_INITIAL_GE*/
- /*_.VALSTR___V894*/ curfptr[893] = (void*)&cdat->dstr_888__CLASS_INITIAL_GE;
-  cdat->dstr_888__CLASS_INITIAL_GE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_888__CLASS_INITIAL_GE.val, "CLASS_INITIAL_GENERATION_CONTEXT", sizeof(cdat->dstr_888__CLASS_INITIAL_GE.val)-1);
- 
- /*inimult dtup_889__CLASS_INITIAL_GENERATION_CONTEXT*/
- /*_.VALTUP___V895*/ curfptr[894] = (void*)&cdat->dtup_889__CLASS_INITIAL_GENERATION_CONTEXT;
-  cdat->dtup_889__CLASS_INITIAL_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
-  cdat->dtup_889__CLASS_INITIAL_GENERATION_CONTEXT.nbval = 2;
- /*inimult dtup_890__CLASS_INITIAL_GENERATION_CONTEXT*/
- /*_.VALTUP___V904*/ curfptr[903] = (void*)&cdat->dtup_890__CLASS_INITIAL_GENERATION_CONTEXT;
-  cdat->dtup_890__CLASS_INITIAL_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_890__CLASS_INITIAL_GENERATION_CONTEXT.nbval = 13;
- /*iniobj dsym_891__IGNCX_PREVENVLOC*/
- if (!/*_.VALDATA___V905*/ curfptr[904]) /*_.VALDATA___V905*/ curfptr[904] = (void*)&cdat->dsym_891__IGNCX_PREVENVLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_891__IGNCX_PREVENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_891__IGNCX_PREVENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_891__IGNCX_PREVENVLOC.obj_hash = 234174900;
-  cdat->dsym_891__IGNCX_PREVENVLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_891__IGNCX_PREVENVLOC));
- 
- /*inistring dstr_892__IGNCX_PREVENVLOC*/
- /*_.VALSTR___V906*/ curfptr[905] = (void*)&cdat->dstr_892__IGNCX_PREVENVLOC;
-  cdat->dstr_892__IGNCX_PREVENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_892__IGNCX_PREVENVLOC.val, "IGNCX_PREVENVLOC", sizeof(cdat->dstr_892__IGNCX_PREVENVLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ iniobj");
- /*iniobj dobj_893__IGNCX_PREVENVLOC*/
- if (!/*_.VALDATA___V896*/ curfptr[895]) /*_.VALDATA___V896*/ curfptr[895] = (void*)&cdat->dobj_893__IGNCX_PREVENVLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_893__IGNCX_PREVENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_893__IGNCX_PREVENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_893__IGNCX_PREVENVLOC.obj_num = 9;
-  cdat->dobj_893__IGNCX_PREVENVLOC.obj_hash = 669047633;
-  cdat->dobj_893__IGNCX_PREVENVLOC.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_893__IGNCX_PREVENVLOC));
- 
- /*inistring dstr_894__IGNCX_PREVENVLOC*/
- /*_.VALSTR___V897*/ curfptr[896] = (void*)&cdat->dstr_894__IGNCX_PREVENVLOC;
-  cdat->dstr_894__IGNCX_PREVENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_894__IGNCX_PREVENVLOC.val, "IGNCX_PREVENVLOC", sizeof(cdat->dstr_894__IGNCX_PREVENVLOC.val)-1);
- 
- /*iniobj dsym_895__IGNCX_CONTENVLOC*/
- if (!/*_.VALDATA___V907*/ curfptr[906]) /*_.VALDATA___V907*/ curfptr[906] = (void*)&cdat->dsym_895__IGNCX_CONTENVLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_895__IGNCX_CONTENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_895__IGNCX_CONTENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_895__IGNCX_CONTENVLOC.obj_hash = 619813837;
-  cdat->dsym_895__IGNCX_CONTENVLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_895__IGNCX_CONTENVLOC));
- 
- /*inistring dstr_896__IGNCX_CONTENVLOC*/
- /*_.VALSTR___V908*/ curfptr[907] = (void*)&cdat->dstr_896__IGNCX_CONTENVLOC;
-  cdat->dstr_896__IGNCX_CONTENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_896__IGNCX_CONTENVLOC.val, "IGNCX_CONTENVLOC", sizeof(cdat->dstr_896__IGNCX_CONTENVLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ iniobj");
- /*iniobj dobj_897__IGNCX_CONTENVLOC*/
- if (!/*_.VALDATA___V898*/ curfptr[897]) /*_.VALDATA___V898*/ curfptr[897] = (void*)&cdat->dobj_897__IGNCX_CONTENVLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_897__IGNCX_CONTENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_897__IGNCX_CONTENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_897__IGNCX_CONTENVLOC.obj_num = 10;
-  cdat->dobj_897__IGNCX_CONTENVLOC.obj_hash = 784196888;
-  cdat->dobj_897__IGNCX_CONTENVLOC.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_897__IGNCX_CONTENVLOC));
- 
- /*inistring dstr_898__IGNCX_CONTENVLOC*/
- /*_.VALSTR___V899*/ curfptr[898] = (void*)&cdat->dstr_898__IGNCX_CONTENVLOC;
-  cdat->dstr_898__IGNCX_CONTENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_898__IGNCX_CONTENVLOC.val, "IGNCX_CONTENVLOC", sizeof(cdat->dstr_898__IGNCX_CONTENVLOC.val)-1);
- 
- /*iniobj dsym_899__IGNCX_PROCURMODENVLIST*/
- if (!/*_.VALDATA___V909*/ curfptr[908]) /*_.VALDATA___V909*/ curfptr[908] = (void*)&cdat->dsym_899__IGNCX_PROCURMODENVLIST;
-  melt_assertmsg("iniobj checkdiscr dsym_899__IGNCX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_899__IGNCX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_899__IGNCX_PROCURMODENVLIST.obj_hash = 312890765;
-  cdat->dsym_899__IGNCX_PROCURMODENVLIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_899__IGNCX_PROCURMODENVLIST));
- 
- /*inistring dstr_900__IGNCX_PROCURMODE*/
- /*_.VALSTR___V910*/ curfptr[909] = (void*)&cdat->dstr_900__IGNCX_PROCURMODE;
-  cdat->dstr_900__IGNCX_PROCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_900__IGNCX_PROCURMODE.val, "IGNCX_PROCURMODENVLIST", sizeof(cdat->dstr_900__IGNCX_PROCURMODE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ iniobj");
- /*iniobj dobj_901__IGNCX_PROCURMODENVLIST*/
- if (!/*_.VALDATA___V900*/ curfptr[899]) /*_.VALDATA___V900*/ curfptr[899] = (void*)&cdat->dobj_901__IGNCX_PROCURMODENVLIST;
-  melt_assertmsg("iniobj checkdiscr dobj_901__IGNCX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_901__IGNCX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_901__IGNCX_PROCURMODENVLIST.obj_num = 11;
-  cdat->dobj_901__IGNCX_PROCURMODENVLIST.obj_hash = 542889744;
-  cdat->dobj_901__IGNCX_PROCURMODENVLIST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_901__IGNCX_PROCURMODENVLIST));
- 
- /*inistring dstr_902__IGNCX_PROCURMODE*/
- /*_.VALSTR___V901*/ curfptr[900] = (void*)&cdat->dstr_902__IGNCX_PROCURMODE;
-  cdat->dstr_902__IGNCX_PROCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_902__IGNCX_PROCURMODE.val, "IGNCX_PROCURMODENVLIST", sizeof(cdat->dstr_902__IGNCX_PROCURMODE.val)-1);
- 
- /*iniobj dsym_903__IGNCX_IMPORTMAP*/
- if (!/*_.VALDATA___V911*/ curfptr[910]) /*_.VALDATA___V911*/ curfptr[910] = (void*)&cdat->dsym_903__IGNCX_IMPORTMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_903__IGNCX_IMPORTMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_903__IGNCX_IMPORTMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_903__IGNCX_IMPORTMAP.obj_hash = 366316746;
-  cdat->dsym_903__IGNCX_IMPORTMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_903__IGNCX_IMPORTMAP));
- 
- /*inistring dstr_904__IGNCX_IMPORTMAP*/
- /*_.VALSTR___V912*/ curfptr[911] = (void*)&cdat->dstr_904__IGNCX_IMPORTMAP;
-  cdat->dstr_904__IGNCX_IMPORTMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_904__IGNCX_IMPORTMAP.val, "IGNCX_IMPORTMAP", sizeof(cdat->dstr_904__IGNCX_IMPORTMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ iniobj");
- /*iniobj dobj_905__IGNCX_IMPORTMAP*/
- if (!/*_.VALDATA___V902*/ curfptr[901]) /*_.VALDATA___V902*/ curfptr[901] = (void*)&cdat->dobj_905__IGNCX_IMPORTMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_905__IGNCX_IMPORTMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_905__IGNCX_IMPORTMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_905__IGNCX_IMPORTMAP.obj_num = 12;
-  cdat->dobj_905__IGNCX_IMPORTMAP.obj_hash = 864489681;
-  cdat->dobj_905__IGNCX_IMPORTMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_905__IGNCX_IMPORTMAP));
- 
- /*inistring dstr_906__IGNCX_IMPORTMAP*/
- /*_.VALSTR___V903*/ curfptr[902] = (void*)&cdat->dstr_906__IGNCX_IMPORTMAP;
-  cdat->dstr_906__IGNCX_IMPORTMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_906__IGNCX_IMPORTMAP.val, "IGNCX_IMPORTMAP", sizeof(cdat->dstr_906__IGNCX_IMPORTMAP.val)-1);
- 
- /*iniobj dsym_907__CLASS_GENERATED_C_CODE*/
- if (!/*_.VALDATA___V913*/ curfptr[912]) /*_.VALDATA___V913*/ curfptr[912] = (void*)&cdat->dsym_907__CLASS_GENERATED_C_CODE;
-  melt_assertmsg("iniobj checkdiscr dsym_907__CLASS_GENERATED_C_CODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_907__CLASS_GENERATED_C_CODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_907__CLASS_GENERATED_C_CODE.obj_hash = 860736875;
-  cdat->dsym_907__CLASS_GENERATED_C_CODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_907__CLASS_GENERATED_C_CODE));
- 
- /*inistring dstr_908__CLASS_GENERATED_*/
- /*_.VALSTR___V914*/ curfptr[913] = (void*)&cdat->dstr_908__CLASS_GENERATED_;
-  cdat->dstr_908__CLASS_GENERATED_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_908__CLASS_GENERATED_.val, "CLASS_GENERATED_C_CODE", sizeof(cdat->dstr_908__CLASS_GENERATED_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:755:/ iniobj");
- /*iniobj dobj_909__CLASS_GENERATED_C_CODE*/
- if (!/*_.VALDATA___V915*/ curfptr[914]) /*_.VALDATA___V915*/ curfptr[914] = (void*)&cdat->dobj_909__CLASS_GENERATED_C_CODE;
-  melt_assertmsg("iniobj checkdiscr dobj_909__CLASS_GENERATED_C_CODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_909__CLASS_GENERATED_C_CODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_909__CLASS_GENERATED_C_CODE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_909__CLASS_GENERATED_C_CODE.obj_hash = 1057130831;
-  cdat->dobj_909__CLASS_GENERATED_C_CODE.obj_len = 8;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_909__CLASS_GENERATED_C_CODE));
- 
- /*inistring dstr_910__CLASS_GENERATED_*/
- /*_.VALSTR___V916*/ curfptr[915] = (void*)&cdat->dstr_910__CLASS_GENERATED_;
-  cdat->dstr_910__CLASS_GENERATED_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_910__CLASS_GENERATED_.val, "CLASS_GENERATED_C_CODE", sizeof(cdat->dstr_910__CLASS_GENERATED_.val)-1);
- 
- /*inimult dtup_911__CLASS_GENERATED_C_CODE*/
- /*_.VALTUP___V917*/ curfptr[916] = (void*)&cdat->dtup_911__CLASS_GENERATED_C_CODE;
-  cdat->dtup_911__CLASS_GENERATED_C_CODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
-  cdat->dtup_911__CLASS_GENERATED_C_CODE.nbval = 1;
- /*inimult dtup_912__CLASS_GENERATED_C_CODE*/
- /*_.VALTUP___V918*/ curfptr[917] = (void*)&cdat->dtup_912__CLASS_GENERATED_C_CODE;
-  cdat->dtup_912__CLASS_GENERATED_C_CODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_912__CLASS_GENERATED_C_CODE.nbval = 0;
- /*iniobj dsym_913__IGNORE*/
- if (!/*_.VALDATA___V919*/ curfptr[918]) /*_.VALDATA___V919*/ curfptr[918] = (void*)&cdat->dsym_913__IGNORE;
-  melt_assertmsg("iniobj checkdiscr dsym_913__IGNORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_913__IGNORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_913__IGNORE.obj_hash = 40367397;
-  cdat->dsym_913__IGNORE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_913__IGNORE));
- 
- /*inistring dstr_914__IGNORE*/
- /*_.VALSTR___V920*/ curfptr[919] = (void*)&cdat->dstr_914__IGNORE;
-  cdat->dstr_914__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_914__IGNORE.val, "IGNORE", sizeof(cdat->dstr_914__IGNORE.val)-1);
+ /*iniobj dsym_769__CLASS_NORMALIZATION_CONTEXT*/
+ if (!/*_.VALDATA___V775*/ curfptr[774]) /*_.VALDATA___V775*/ curfptr[774] = (void*)&cdat->dsym_769__CLASS_NORMALIZATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_769__CLASS_NORMALIZATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_769__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_769__CLASS_NORMALIZATION_CONTEXT.obj_hash = 429657178;
+  cdat->dsym_769__CLASS_NORMALIZATION_CONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_769__CLASS_NORMALIZATION_CONTEXT));
+ 
+ /*inistring dstr_770__CLASS_NORMALIZAT*/
+ /*_.VALSTR___V776*/ curfptr[775] = (void*)&cdat->dstr_770__CLASS_NORMALIZAT;
+  cdat->dstr_770__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_770__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof(cdat->dstr_770__CLASS_NORMALIZAT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_771__CLASS_NORMALIZATION_CONTEXT*/
+ if (!/*_.VALDATA___V777*/ curfptr[776]) /*_.VALDATA___V777*/ curfptr[776] = (void*)&cdat->dobj_771__CLASS_NORMALIZATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dobj_771__CLASS_NORMALIZATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_771__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_771__CLASS_NORMALIZATION_CONTEXT.obj_num = OBMAG_OBJECT;
+  cdat->dobj_771__CLASS_NORMALIZATION_CONTEXT.obj_hash = 288519426;
+  cdat->dobj_771__CLASS_NORMALIZATION_CONTEXT.obj_len = 8;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_771__CLASS_NORMALIZATION_CONTEXT));
+ 
+ /*inistring dstr_772__CLASS_NORMALIZAT*/
+ /*_.VALSTR___V778*/ curfptr[777] = (void*)&cdat->dstr_772__CLASS_NORMALIZAT;
+  cdat->dstr_772__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_772__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof(cdat->dstr_772__CLASS_NORMALIZAT.val)-1);
+ 
+ /*inimult dtup_773__CLASS_NORMALIZATION_CONTEXT*/
+ /*_.VALTUP___V779*/ curfptr[778] = (void*)&cdat->dtup_773__CLASS_NORMALIZATION_CONTEXT;
+  cdat->dtup_773__CLASS_NORMALIZATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
+  cdat->dtup_773__CLASS_NORMALIZATION_CONTEXT.nbval = 1;
+ /*inimult dtup_774__CLASS_NORMALIZATION_CONTEXT*/
+ /*_.VALTUP___V810*/ curfptr[809] = (void*)&cdat->dtup_774__CLASS_NORMALIZATION_CONTEXT;
+  cdat->dtup_774__CLASS_NORMALIZATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
+  cdat->dtup_774__CLASS_NORMALIZATION_CONTEXT.nbval = 15;
+ /*iniobj dsym_775__NCTX_INITPROC*/
+ if (!/*_.VALDATA___V811*/ curfptr[810]) /*_.VALDATA___V811*/ curfptr[810] = (void*)&cdat->dsym_775__NCTX_INITPROC;
+  melt_assertmsg("iniobj checkdiscr dsym_775__NCTX_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_775__NCTX_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_775__NCTX_INITPROC.obj_hash = 931641377;
+  cdat->dsym_775__NCTX_INITPROC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_775__NCTX_INITPROC));
+ 
+ /*inistring dstr_776__NCTX_INITPROC*/
+ /*_.VALSTR___V812*/ curfptr[811] = (void*)&cdat->dstr_776__NCTX_INITPROC;
+  cdat->dstr_776__NCTX_INITPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_776__NCTX_INITPROC.val, "NCTX_INITPROC", sizeof(cdat->dstr_776__NCTX_INITPROC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_777__NCTX_INITPROC*/
+ if (!/*_.VALDATA___V780*/ curfptr[779]) /*_.VALDATA___V780*/ curfptr[779] = (void*)&cdat->dobj_777__NCTX_INITPROC;
+  melt_assertmsg("iniobj checkdiscr dobj_777__NCTX_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_777__NCTX_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_777__NCTX_INITPROC.obj_num = 0;
+  cdat->dobj_777__NCTX_INITPROC.obj_hash = 589035499;
+  cdat->dobj_777__NCTX_INITPROC.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_777__NCTX_INITPROC));
+ 
+ /*inistring dstr_778__NCTX_INITPROC*/
+ /*_.VALSTR___V781*/ curfptr[780] = (void*)&cdat->dstr_778__NCTX_INITPROC;
+  cdat->dstr_778__NCTX_INITPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_778__NCTX_INITPROC.val, "NCTX_INITPROC", sizeof(cdat->dstr_778__NCTX_INITPROC.val)-1);
+ 
+ /*iniobj dsym_779__NCTX_PROCLIST*/
+ if (!/*_.VALDATA___V813*/ curfptr[812]) /*_.VALDATA___V813*/ curfptr[812] = (void*)&cdat->dsym_779__NCTX_PROCLIST;
+  melt_assertmsg("iniobj checkdiscr dsym_779__NCTX_PROCLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_779__NCTX_PROCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_779__NCTX_PROCLIST.obj_hash = 640423318;
+  cdat->dsym_779__NCTX_PROCLIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_779__NCTX_PROCLIST));
+ 
+ /*inistring dstr_780__NCTX_PROCLIST*/
+ /*_.VALSTR___V814*/ curfptr[813] = (void*)&cdat->dstr_780__NCTX_PROCLIST;
+  cdat->dstr_780__NCTX_PROCLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_780__NCTX_PROCLIST.val, "NCTX_PROCLIST", sizeof(cdat->dstr_780__NCTX_PROCLIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_781__NCTX_PROCLIST*/
+ if (!/*_.VALDATA___V782*/ curfptr[781]) /*_.VALDATA___V782*/ curfptr[781] = (void*)&cdat->dobj_781__NCTX_PROCLIST;
+  melt_assertmsg("iniobj checkdiscr dobj_781__NCTX_PROCLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_781__NCTX_PROCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_781__NCTX_PROCLIST.obj_num = 1;
+  cdat->dobj_781__NCTX_PROCLIST.obj_hash = 968602700;
+  cdat->dobj_781__NCTX_PROCLIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_781__NCTX_PROCLIST));
+ 
+ /*inistring dstr_782__NCTX_PROCLIST*/
+ /*_.VALSTR___V783*/ curfptr[782] = (void*)&cdat->dstr_782__NCTX_PROCLIST;
+  cdat->dstr_782__NCTX_PROCLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_782__NCTX_PROCLIST.val, "NCTX_PROCLIST", sizeof(cdat->dstr_782__NCTX_PROCLIST.val)-1);
+ 
+ /*iniobj dsym_783__NCTX_DATALIST*/
+ if (!/*_.VALDATA___V815*/ curfptr[814]) /*_.VALDATA___V815*/ curfptr[814] = (void*)&cdat->dsym_783__NCTX_DATALIST;
+  melt_assertmsg("iniobj checkdiscr dsym_783__NCTX_DATALIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_783__NCTX_DATALIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_783__NCTX_DATALIST.obj_hash = 918485831;
+  cdat->dsym_783__NCTX_DATALIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_783__NCTX_DATALIST));
+ 
+ /*inistring dstr_784__NCTX_DATALIST*/
+ /*_.VALSTR___V816*/ curfptr[815] = (void*)&cdat->dstr_784__NCTX_DATALIST;
+  cdat->dstr_784__NCTX_DATALIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_784__NCTX_DATALIST.val, "NCTX_DATALIST", sizeof(cdat->dstr_784__NCTX_DATALIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_785__NCTX_DATALIST*/
+ if (!/*_.VALDATA___V784*/ curfptr[783]) /*_.VALDATA___V784*/ curfptr[783] = (void*)&cdat->dobj_785__NCTX_DATALIST;
+  melt_assertmsg("iniobj checkdiscr dobj_785__NCTX_DATALIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_785__NCTX_DATALIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_785__NCTX_DATALIST.obj_num = 2;
+  cdat->dobj_785__NCTX_DATALIST.obj_hash = 352339828;
+  cdat->dobj_785__NCTX_DATALIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_785__NCTX_DATALIST));
+ 
+ /*inistring dstr_786__NCTX_DATALIST*/
+ /*_.VALSTR___V785*/ curfptr[784] = (void*)&cdat->dstr_786__NCTX_DATALIST;
+  cdat->dstr_786__NCTX_DATALIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_786__NCTX_DATALIST.val, "NCTX_DATALIST", sizeof(cdat->dstr_786__NCTX_DATALIST.val)-1);
+ 
+ /*iniobj dsym_787__NCTX_VALUELIST*/
+ if (!/*_.VALDATA___V817*/ curfptr[816]) /*_.VALDATA___V817*/ curfptr[816] = (void*)&cdat->dsym_787__NCTX_VALUELIST;
+  melt_assertmsg("iniobj checkdiscr dsym_787__NCTX_VALUELIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_787__NCTX_VALUELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_787__NCTX_VALUELIST.obj_hash = 809990982;
+  cdat->dsym_787__NCTX_VALUELIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_787__NCTX_VALUELIST));
+ 
+ /*inistring dstr_788__NCTX_VALUELIST*/
+ /*_.VALSTR___V818*/ curfptr[817] = (void*)&cdat->dstr_788__NCTX_VALUELIST;
+  cdat->dstr_788__NCTX_VALUELIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_788__NCTX_VALUELIST.val, "NCTX_VALUELIST", sizeof(cdat->dstr_788__NCTX_VALUELIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_789__NCTX_VALUELIST*/
+ if (!/*_.VALDATA___V786*/ curfptr[785]) /*_.VALDATA___V786*/ curfptr[785] = (void*)&cdat->dobj_789__NCTX_VALUELIST;
+  melt_assertmsg("iniobj checkdiscr dobj_789__NCTX_VALUELIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_789__NCTX_VALUELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_789__NCTX_VALUELIST.obj_num = 3;
+  cdat->dobj_789__NCTX_VALUELIST.obj_hash = 307274018;
+  cdat->dobj_789__NCTX_VALUELIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_789__NCTX_VALUELIST));
+ 
+ /*inistring dstr_790__NCTX_VALUELIST*/
+ /*_.VALSTR___V787*/ curfptr[786] = (void*)&cdat->dstr_790__NCTX_VALUELIST;
+  cdat->dstr_790__NCTX_VALUELIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_790__NCTX_VALUELIST.val, "NCTX_VALUELIST", sizeof(cdat->dstr_790__NCTX_VALUELIST.val)-1);
+ 
+ /*iniobj dsym_791__NCTX_SYMBMAP*/
+ if (!/*_.VALDATA___V819*/ curfptr[818]) /*_.VALDATA___V819*/ curfptr[818] = (void*)&cdat->dsym_791__NCTX_SYMBMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_791__NCTX_SYMBMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_791__NCTX_SYMBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_791__NCTX_SYMBMAP.obj_hash = 45968134;
+  cdat->dsym_791__NCTX_SYMBMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_791__NCTX_SYMBMAP));
+ 
+ /*inistring dstr_792__NCTX_SYMBMAP*/
+ /*_.VALSTR___V820*/ curfptr[819] = (void*)&cdat->dstr_792__NCTX_SYMBMAP;
+  cdat->dstr_792__NCTX_SYMBMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_792__NCTX_SYMBMAP.val, "NCTX_SYMBMAP", sizeof(cdat->dstr_792__NCTX_SYMBMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_793__NCTX_SYMBMAP*/
+ if (!/*_.VALDATA___V788*/ curfptr[787]) /*_.VALDATA___V788*/ curfptr[787] = (void*)&cdat->dobj_793__NCTX_SYMBMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_793__NCTX_SYMBMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_793__NCTX_SYMBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_793__NCTX_SYMBMAP.obj_num = 4;
+  cdat->dobj_793__NCTX_SYMBMAP.obj_hash = 846313027;
+  cdat->dobj_793__NCTX_SYMBMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_793__NCTX_SYMBMAP));
+ 
+ /*inistring dstr_794__NCTX_SYMBMAP*/
+ /*_.VALSTR___V789*/ curfptr[788] = (void*)&cdat->dstr_794__NCTX_SYMBMAP;
+  cdat->dstr_794__NCTX_SYMBMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_794__NCTX_SYMBMAP.val, "NCTX_SYMBMAP", sizeof(cdat->dstr_794__NCTX_SYMBMAP.val)-1);
+ 
+ /*iniobj dsym_795__NCTX_KEYWMAP*/
+ if (!/*_.VALDATA___V821*/ curfptr[820]) /*_.VALDATA___V821*/ curfptr[820] = (void*)&cdat->dsym_795__NCTX_KEYWMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_795__NCTX_KEYWMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_795__NCTX_KEYWMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_795__NCTX_KEYWMAP.obj_hash = 188636916;
+  cdat->dsym_795__NCTX_KEYWMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_795__NCTX_KEYWMAP));
+ 
+ /*inistring dstr_796__NCTX_KEYWMAP*/
+ /*_.VALSTR___V822*/ curfptr[821] = (void*)&cdat->dstr_796__NCTX_KEYWMAP;
+  cdat->dstr_796__NCTX_KEYWMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_796__NCTX_KEYWMAP.val, "NCTX_KEYWMAP", sizeof(cdat->dstr_796__NCTX_KEYWMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_797__NCTX_KEYWMAP*/
+ if (!/*_.VALDATA___V790*/ curfptr[789]) /*_.VALDATA___V790*/ curfptr[789] = (void*)&cdat->dobj_797__NCTX_KEYWMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_797__NCTX_KEYWMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_797__NCTX_KEYWMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_797__NCTX_KEYWMAP.obj_num = 5;
+  cdat->dobj_797__NCTX_KEYWMAP.obj_hash = 771620617;
+  cdat->dobj_797__NCTX_KEYWMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_797__NCTX_KEYWMAP));
+ 
+ /*inistring dstr_798__NCTX_KEYWMAP*/
+ /*_.VALSTR___V791*/ curfptr[790] = (void*)&cdat->dstr_798__NCTX_KEYWMAP;
+  cdat->dstr_798__NCTX_KEYWMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_798__NCTX_KEYWMAP.val, "NCTX_KEYWMAP", sizeof(cdat->dstr_798__NCTX_KEYWMAP.val)-1);
+ 
+ /*iniobj dsym_799__NCTX_SYMBCACHEMAP*/
+ if (!/*_.VALDATA___V823*/ curfptr[822]) /*_.VALDATA___V823*/ curfptr[822] = (void*)&cdat->dsym_799__NCTX_SYMBCACHEMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_799__NCTX_SYMBCACHEMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_799__NCTX_SYMBCACHEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_799__NCTX_SYMBCACHEMAP.obj_hash = 333021817;
+  cdat->dsym_799__NCTX_SYMBCACHEMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_799__NCTX_SYMBCACHEMAP));
+ 
+ /*inistring dstr_800__NCTX_SYMBCACHEMA*/
+ /*_.VALSTR___V824*/ curfptr[823] = (void*)&cdat->dstr_800__NCTX_SYMBCACHEMA;
+  cdat->dstr_800__NCTX_SYMBCACHEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_800__NCTX_SYMBCACHEMA.val, "NCTX_SYMBCACHEMAP", sizeof(cdat->dstr_800__NCTX_SYMBCACHEMA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_801__NCTX_SYMBCACHEMAP*/
+ if (!/*_.VALDATA___V792*/ curfptr[791]) /*_.VALDATA___V792*/ curfptr[791] = (void*)&cdat->dobj_801__NCTX_SYMBCACHEMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_801__NCTX_SYMBCACHEMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_801__NCTX_SYMBCACHEMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_801__NCTX_SYMBCACHEMAP.obj_num = 6;
+  cdat->dobj_801__NCTX_SYMBCACHEMAP.obj_hash = 235627289;
+  cdat->dobj_801__NCTX_SYMBCACHEMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_801__NCTX_SYMBCACHEMAP));
+ 
+ /*inistring dstr_802__NCTX_SYMBCACHEMA*/
+ /*_.VALSTR___V793*/ curfptr[792] = (void*)&cdat->dstr_802__NCTX_SYMBCACHEMA;
+  cdat->dstr_802__NCTX_SYMBCACHEMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_802__NCTX_SYMBCACHEMA.val, "NCTX_SYMBCACHEMAP", sizeof(cdat->dstr_802__NCTX_SYMBCACHEMA.val)-1);
+ 
+ /*iniobj dsym_803__NCTX_PREDEFMAP*/
+ if (!/*_.VALDATA___V825*/ curfptr[824]) /*_.VALDATA___V825*/ curfptr[824] = (void*)&cdat->dsym_803__NCTX_PREDEFMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_803__NCTX_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_803__NCTX_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_803__NCTX_PREDEFMAP.obj_hash = 984795698;
+  cdat->dsym_803__NCTX_PREDEFMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_803__NCTX_PREDEFMAP));
+ 
+ /*inistring dstr_804__NCTX_PREDEFMAP*/
+ /*_.VALSTR___V826*/ curfptr[825] = (void*)&cdat->dstr_804__NCTX_PREDEFMAP;
+  cdat->dstr_804__NCTX_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_804__NCTX_PREDEFMAP.val, "NCTX_PREDEFMAP", sizeof(cdat->dstr_804__NCTX_PREDEFMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_805__NCTX_PREDEFMAP*/
+ if (!/*_.VALDATA___V794*/ curfptr[793]) /*_.VALDATA___V794*/ curfptr[793] = (void*)&cdat->dobj_805__NCTX_PREDEFMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_805__NCTX_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_805__NCTX_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_805__NCTX_PREDEFMAP.obj_num = 7;
+  cdat->dobj_805__NCTX_PREDEFMAP.obj_hash = 840478978;
+  cdat->dobj_805__NCTX_PREDEFMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_805__NCTX_PREDEFMAP));
+ 
+ /*inistring dstr_806__NCTX_PREDEFMAP*/
+ /*_.VALSTR___V795*/ curfptr[794] = (void*)&cdat->dstr_806__NCTX_PREDEFMAP;
+  cdat->dstr_806__NCTX_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_806__NCTX_PREDEFMAP.val, "NCTX_PREDEFMAP", sizeof(cdat->dstr_806__NCTX_PREDEFMAP.val)-1);
+ 
+ /*iniobj dsym_807__NCTX_VALMAP*/
+ if (!/*_.VALDATA___V827*/ curfptr[826]) /*_.VALDATA___V827*/ curfptr[826] = (void*)&cdat->dsym_807__NCTX_VALMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_807__NCTX_VALMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_807__NCTX_VALMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_807__NCTX_VALMAP.obj_hash = 319308378;
+  cdat->dsym_807__NCTX_VALMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_807__NCTX_VALMAP));
+ 
+ /*inistring dstr_808__NCTX_VALMAP*/
+ /*_.VALSTR___V828*/ curfptr[827] = (void*)&cdat->dstr_808__NCTX_VALMAP;
+  cdat->dstr_808__NCTX_VALMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_808__NCTX_VALMAP.val, "NCTX_VALMAP", sizeof(cdat->dstr_808__NCTX_VALMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_809__NCTX_VALMAP*/
+ if (!/*_.VALDATA___V796*/ curfptr[795]) /*_.VALDATA___V796*/ curfptr[795] = (void*)&cdat->dobj_809__NCTX_VALMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_809__NCTX_VALMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_809__NCTX_VALMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_809__NCTX_VALMAP.obj_num = 8;
+  cdat->dobj_809__NCTX_VALMAP.obj_hash = 590629350;
+  cdat->dobj_809__NCTX_VALMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_809__NCTX_VALMAP));
+ 
+ /*inistring dstr_810__NCTX_VALMAP*/
+ /*_.VALSTR___V797*/ curfptr[796] = (void*)&cdat->dstr_810__NCTX_VALMAP;
+  cdat->dstr_810__NCTX_VALMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_810__NCTX_VALMAP.val, "NCTX_VALMAP", sizeof(cdat->dstr_810__NCTX_VALMAP.val)-1);
+ 
+ /*iniobj dsym_811__NCTX_VALBINDMAP*/
+ if (!/*_.VALDATA___V829*/ curfptr[828]) /*_.VALDATA___V829*/ curfptr[828] = (void*)&cdat->dsym_811__NCTX_VALBINDMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_811__NCTX_VALBINDMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_811__NCTX_VALBINDMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_811__NCTX_VALBINDMAP.obj_hash = 625617508;
+  cdat->dsym_811__NCTX_VALBINDMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_811__NCTX_VALBINDMAP));
+ 
+ /*inistring dstr_812__NCTX_VALBINDMAP*/
+ /*_.VALSTR___V830*/ curfptr[829] = (void*)&cdat->dstr_812__NCTX_VALBINDMAP;
+  cdat->dstr_812__NCTX_VALBINDMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_812__NCTX_VALBINDMAP.val, "NCTX_VALBINDMAP", sizeof(cdat->dstr_812__NCTX_VALBINDMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_813__NCTX_VALBINDMAP*/
+ if (!/*_.VALDATA___V798*/ curfptr[797]) /*_.VALDATA___V798*/ curfptr[797] = (void*)&cdat->dobj_813__NCTX_VALBINDMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_813__NCTX_VALBINDMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_813__NCTX_VALBINDMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_813__NCTX_VALBINDMAP.obj_num = 9;
+  cdat->dobj_813__NCTX_VALBINDMAP.obj_hash = 613625563;
+  cdat->dobj_813__NCTX_VALBINDMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_813__NCTX_VALBINDMAP));
+ 
+ /*inistring dstr_814__NCTX_VALBINDMAP*/
+ /*_.VALSTR___V799*/ curfptr[798] = (void*)&cdat->dstr_814__NCTX_VALBINDMAP;
+  cdat->dstr_814__NCTX_VALBINDMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_814__NCTX_VALBINDMAP.val, "NCTX_VALBINDMAP", sizeof(cdat->dstr_814__NCTX_VALBINDMAP.val)-1);
+ 
+ /*iniobj dsym_815__NCTX_CURPROC*/
+ if (!/*_.VALDATA___V831*/ curfptr[830]) /*_.VALDATA___V831*/ curfptr[830] = (void*)&cdat->dsym_815__NCTX_CURPROC;
+  melt_assertmsg("iniobj checkdiscr dsym_815__NCTX_CURPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_815__NCTX_CURPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_815__NCTX_CURPROC.obj_hash = 506573601;
+  cdat->dsym_815__NCTX_CURPROC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_815__NCTX_CURPROC));
+ 
+ /*inistring dstr_816__NCTX_CURPROC*/
+ /*_.VALSTR___V832*/ curfptr[831] = (void*)&cdat->dstr_816__NCTX_CURPROC;
+  cdat->dstr_816__NCTX_CURPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_816__NCTX_CURPROC.val, "NCTX_CURPROC", sizeof(cdat->dstr_816__NCTX_CURPROC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_817__NCTX_CURPROC*/
+ if (!/*_.VALDATA___V800*/ curfptr[799]) /*_.VALDATA___V800*/ curfptr[799] = (void*)&cdat->dobj_817__NCTX_CURPROC;
+  melt_assertmsg("iniobj checkdiscr dobj_817__NCTX_CURPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_817__NCTX_CURPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_817__NCTX_CURPROC.obj_num = 10;
+  cdat->dobj_817__NCTX_CURPROC.obj_hash = 293684005;
+  cdat->dobj_817__NCTX_CURPROC.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_817__NCTX_CURPROC));
+ 
+ /*inistring dstr_818__NCTX_CURPROC*/
+ /*_.VALSTR___V801*/ curfptr[800] = (void*)&cdat->dstr_818__NCTX_CURPROC;
+  cdat->dstr_818__NCTX_CURPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_818__NCTX_CURPROC.val, "NCTX_CURPROC", sizeof(cdat->dstr_818__NCTX_CURPROC.val)-1);
+ 
+ /*iniobj dsym_819__NCTX_MODULCONTEXT*/
+ if (!/*_.VALDATA___V833*/ curfptr[832]) /*_.VALDATA___V833*/ curfptr[832] = (void*)&cdat->dsym_819__NCTX_MODULCONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_819__NCTX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_819__NCTX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_819__NCTX_MODULCONTEXT.obj_hash = 568616506;
+  cdat->dsym_819__NCTX_MODULCONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_819__NCTX_MODULCONTEXT));
+ 
+ /*inistring dstr_820__NCTX_MODULCONTEX*/
+ /*_.VALSTR___V834*/ curfptr[833] = (void*)&cdat->dstr_820__NCTX_MODULCONTEX;
+  cdat->dstr_820__NCTX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_820__NCTX_MODULCONTEX.val, "NCTX_MODULCONTEXT", sizeof(cdat->dstr_820__NCTX_MODULCONTEX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_821__NCTX_MODULCONTEXT*/
+ if (!/*_.VALDATA___V802*/ curfptr[801]) /*_.VALDATA___V802*/ curfptr[801] = (void*)&cdat->dobj_821__NCTX_MODULCONTEXT;
+  melt_assertmsg("iniobj checkdiscr dobj_821__NCTX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_821__NCTX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_821__NCTX_MODULCONTEXT.obj_num = 11;
+  cdat->dobj_821__NCTX_MODULCONTEXT.obj_hash = 619234577;
+  cdat->dobj_821__NCTX_MODULCONTEXT.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_821__NCTX_MODULCONTEXT));
+ 
+ /*inistring dstr_822__NCTX_MODULCONTEX*/
+ /*_.VALSTR___V803*/ curfptr[802] = (void*)&cdat->dstr_822__NCTX_MODULCONTEX;
+  cdat->dstr_822__NCTX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_822__NCTX_MODULCONTEX.val, "NCTX_MODULCONTEXT", sizeof(cdat->dstr_822__NCTX_MODULCONTEX.val)-1);
+ 
+ /*iniobj dsym_823__NCTX_QDATCURMODENVBOX*/
+ if (!/*_.VALDATA___V835*/ curfptr[834]) /*_.VALDATA___V835*/ curfptr[834] = (void*)&cdat->dsym_823__NCTX_QDATCURMODENVBOX;
+  melt_assertmsg("iniobj checkdiscr dsym_823__NCTX_QDATCURMODENVBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_823__NCTX_QDATCURMODENVBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_823__NCTX_QDATCURMODENVBOX.obj_hash = 848974803;
+  cdat->dsym_823__NCTX_QDATCURMODENVBOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_823__NCTX_QDATCURMODENVBOX));
+ 
+ /*inistring dstr_824__NCTX_QDATCURMODE*/
+ /*_.VALSTR___V836*/ curfptr[835] = (void*)&cdat->dstr_824__NCTX_QDATCURMODE;
+  cdat->dstr_824__NCTX_QDATCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_824__NCTX_QDATCURMODE.val, "NCTX_QDATCURMODENVBOX", sizeof(cdat->dstr_824__NCTX_QDATCURMODE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_825__NCTX_QDATCURMODENVBOX*/
+ if (!/*_.VALDATA___V804*/ curfptr[803]) /*_.VALDATA___V804*/ curfptr[803] = (void*)&cdat->dobj_825__NCTX_QDATCURMODENVBOX;
+  melt_assertmsg("iniobj checkdiscr dobj_825__NCTX_QDATCURMODENVBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_825__NCTX_QDATCURMODENVBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_825__NCTX_QDATCURMODENVBOX.obj_num = 12;
+  cdat->dobj_825__NCTX_QDATCURMODENVBOX.obj_hash = 628186834;
+  cdat->dobj_825__NCTX_QDATCURMODENVBOX.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_825__NCTX_QDATCURMODENVBOX));
+ 
+ /*inistring dstr_826__NCTX_QDATCURMODE*/
+ /*_.VALSTR___V805*/ curfptr[804] = (void*)&cdat->dstr_826__NCTX_QDATCURMODE;
+  cdat->dstr_826__NCTX_QDATCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_826__NCTX_QDATCURMODE.val, "NCTX_QDATCURMODENVBOX", sizeof(cdat->dstr_826__NCTX_QDATCURMODE.val)-1);
+ 
+ /*iniobj dsym_827__NCTX_QDATPARMODENV*/
+ if (!/*_.VALDATA___V837*/ curfptr[836]) /*_.VALDATA___V837*/ curfptr[836] = (void*)&cdat->dsym_827__NCTX_QDATPARMODENV;
+  melt_assertmsg("iniobj checkdiscr dsym_827__NCTX_QDATPARMODENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_827__NCTX_QDATPARMODENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_827__NCTX_QDATPARMODENV.obj_hash = 412523905;
+  cdat->dsym_827__NCTX_QDATPARMODENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_827__NCTX_QDATPARMODENV));
+ 
+ /*inistring dstr_828__NCTX_QDATPARMODE*/
+ /*_.VALSTR___V838*/ curfptr[837] = (void*)&cdat->dstr_828__NCTX_QDATPARMODE;
+  cdat->dstr_828__NCTX_QDATPARMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_828__NCTX_QDATPARMODE.val, "NCTX_QDATPARMODENV", sizeof(cdat->dstr_828__NCTX_QDATPARMODE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_829__NCTX_QDATPARMODENV*/
+ if (!/*_.VALDATA___V806*/ curfptr[805]) /*_.VALDATA___V806*/ curfptr[805] = (void*)&cdat->dobj_829__NCTX_QDATPARMODENV;
+  melt_assertmsg("iniobj checkdiscr dobj_829__NCTX_QDATPARMODENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_829__NCTX_QDATPARMODENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_829__NCTX_QDATPARMODENV.obj_num = 13;
+  cdat->dobj_829__NCTX_QDATPARMODENV.obj_hash = 44869984;
+  cdat->dobj_829__NCTX_QDATPARMODENV.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_829__NCTX_QDATPARMODENV));
+ 
+ /*inistring dstr_830__NCTX_QDATPARMODE*/
+ /*_.VALSTR___V807*/ curfptr[806] = (void*)&cdat->dstr_830__NCTX_QDATPARMODE;
+  cdat->dstr_830__NCTX_QDATPARMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_830__NCTX_QDATPARMODE.val, "NCTX_QDATPARMODENV", sizeof(cdat->dstr_830__NCTX_QDATPARMODE.val)-1);
+ 
+ /*iniobj dsym_831__NCTX_PROCURMODENVLIST*/
+ if (!/*_.VALDATA___V839*/ curfptr[838]) /*_.VALDATA___V839*/ curfptr[838] = (void*)&cdat->dsym_831__NCTX_PROCURMODENVLIST;
+  melt_assertmsg("iniobj checkdiscr dsym_831__NCTX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_831__NCTX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_831__NCTX_PROCURMODENVLIST.obj_hash = 1041665231;
+  cdat->dsym_831__NCTX_PROCURMODENVLIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_831__NCTX_PROCURMODENVLIST));
+ 
+ /*inistring dstr_832__NCTX_PROCURMODEN*/
+ /*_.VALSTR___V840*/ curfptr[839] = (void*)&cdat->dstr_832__NCTX_PROCURMODEN;
+  cdat->dstr_832__NCTX_PROCURMODEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_832__NCTX_PROCURMODEN.val, "NCTX_PROCURMODENVLIST", sizeof(cdat->dstr_832__NCTX_PROCURMODEN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ iniobj");
+ /*iniobj dobj_833__NCTX_PROCURMODENVLIST*/
+ if (!/*_.VALDATA___V808*/ curfptr[807]) /*_.VALDATA___V808*/ curfptr[807] = (void*)&cdat->dobj_833__NCTX_PROCURMODENVLIST;
+  melt_assertmsg("iniobj checkdiscr dobj_833__NCTX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_833__NCTX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_833__NCTX_PROCURMODENVLIST.obj_num = 14;
+  cdat->dobj_833__NCTX_PROCURMODENVLIST.obj_hash = 732607753;
+  cdat->dobj_833__NCTX_PROCURMODENVLIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_833__NCTX_PROCURMODENVLIST));
+ 
+ /*inistring dstr_834__NCTX_PROCURMODEN*/
+ /*_.VALSTR___V809*/ curfptr[808] = (void*)&cdat->dstr_834__NCTX_PROCURMODEN;
+  cdat->dstr_834__NCTX_PROCURMODEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_834__NCTX_PROCURMODEN.val, "NCTX_PROCURMODENVLIST", sizeof(cdat->dstr_834__NCTX_PROCURMODEN.val)-1);
+ 
+ /*iniobj dsym_835__CLASS_C_GENERATION_CONTEXT*/
+ if (!/*_.VALDATA___V841*/ curfptr[840]) /*_.VALDATA___V841*/ curfptr[840] = (void*)&cdat->dsym_835__CLASS_C_GENERATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_835__CLASS_C_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_835__CLASS_C_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_835__CLASS_C_GENERATION_CONTEXT.obj_hash = 748328565;
+  cdat->dsym_835__CLASS_C_GENERATION_CONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_835__CLASS_C_GENERATION_CONTEXT));
+ 
+ /*inistring dstr_836__CLASS_C_GENERATI*/
+ /*_.VALSTR___V842*/ curfptr[841] = (void*)&cdat->dstr_836__CLASS_C_GENERATI;
+  cdat->dstr_836__CLASS_C_GENERATI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_836__CLASS_C_GENERATI.val, "CLASS_C_GENERATION_CONTEXT", sizeof(cdat->dstr_836__CLASS_C_GENERATI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_837__CLASS_C_GENERATION_CONTEXT*/
+ if (!/*_.VALDATA___V843*/ curfptr[842]) /*_.VALDATA___V843*/ curfptr[842] = (void*)&cdat->dobj_837__CLASS_C_GENERATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dobj_837__CLASS_C_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_837__CLASS_C_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_837__CLASS_C_GENERATION_CONTEXT.obj_num = OBMAG_OBJECT;
+  cdat->dobj_837__CLASS_C_GENERATION_CONTEXT.obj_hash = 465717347;
+  cdat->dobj_837__CLASS_C_GENERATION_CONTEXT.obj_len = 8;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_837__CLASS_C_GENERATION_CONTEXT));
+ 
+ /*inistring dstr_838__CLASS_C_GENERATI*/
+ /*_.VALSTR___V844*/ curfptr[843] = (void*)&cdat->dstr_838__CLASS_C_GENERATI;
+  cdat->dstr_838__CLASS_C_GENERATI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_838__CLASS_C_GENERATI.val, "CLASS_C_GENERATION_CONTEXT", sizeof(cdat->dstr_838__CLASS_C_GENERATI.val)-1);
+ 
+ /*inimult dtup_839__CLASS_C_GENERATION_CONTEXT*/
+ /*_.VALTUP___V845*/ curfptr[844] = (void*)&cdat->dtup_839__CLASS_C_GENERATION_CONTEXT;
+  cdat->dtup_839__CLASS_C_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
+  cdat->dtup_839__CLASS_C_GENERATION_CONTEXT.nbval = 1;
+ /*inimult dtup_840__CLASS_C_GENERATION_CONTEXT*/
+ /*_.VALTUP___V864*/ curfptr[863] = (void*)&cdat->dtup_840__CLASS_C_GENERATION_CONTEXT;
+  cdat->dtup_840__CLASS_C_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
+  cdat->dtup_840__CLASS_C_GENERATION_CONTEXT.nbval = 9;
+ /*iniobj dsym_841__GNCX_OBJROUT*/
+ if (!/*_.VALDATA___V865*/ curfptr[864]) /*_.VALDATA___V865*/ curfptr[864] = (void*)&cdat->dsym_841__GNCX_OBJROUT;
+  melt_assertmsg("iniobj checkdiscr dsym_841__GNCX_OBJROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_841__GNCX_OBJROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_841__GNCX_OBJROUT.obj_hash = 993336124;
+  cdat->dsym_841__GNCX_OBJROUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_841__GNCX_OBJROUT));
+ 
+ /*inistring dstr_842__GNCX_OBJROUT*/
+ /*_.VALSTR___V866*/ curfptr[865] = (void*)&cdat->dstr_842__GNCX_OBJROUT;
+  cdat->dstr_842__GNCX_OBJROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_842__GNCX_OBJROUT.val, "GNCX_OBJROUT", sizeof(cdat->dstr_842__GNCX_OBJROUT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_843__GNCX_OBJROUT*/
+ if (!/*_.VALDATA___V846*/ curfptr[845]) /*_.VALDATA___V846*/ curfptr[845] = (void*)&cdat->dobj_843__GNCX_OBJROUT;
+  melt_assertmsg("iniobj checkdiscr dobj_843__GNCX_OBJROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_843__GNCX_OBJROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_843__GNCX_OBJROUT.obj_num = 0;
+  cdat->dobj_843__GNCX_OBJROUT.obj_hash = 508740479;
+  cdat->dobj_843__GNCX_OBJROUT.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_843__GNCX_OBJROUT));
+ 
+ /*inistring dstr_844__GNCX_OBJROUT*/
+ /*_.VALSTR___V847*/ curfptr[846] = (void*)&cdat->dstr_844__GNCX_OBJROUT;
+  cdat->dstr_844__GNCX_OBJROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_844__GNCX_OBJROUT.val, "GNCX_OBJROUT", sizeof(cdat->dstr_844__GNCX_OBJROUT.val)-1);
+ 
+ /*iniobj dsym_845__GNCX_LOCMAP*/
+ if (!/*_.VALDATA___V867*/ curfptr[866]) /*_.VALDATA___V867*/ curfptr[866] = (void*)&cdat->dsym_845__GNCX_LOCMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_845__GNCX_LOCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_845__GNCX_LOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_845__GNCX_LOCMAP.obj_hash = 599632775;
+  cdat->dsym_845__GNCX_LOCMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_845__GNCX_LOCMAP));
+ 
+ /*inistring dstr_846__GNCX_LOCMAP*/
+ /*_.VALSTR___V868*/ curfptr[867] = (void*)&cdat->dstr_846__GNCX_LOCMAP;
+  cdat->dstr_846__GNCX_LOCMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_846__GNCX_LOCMAP.val, "GNCX_LOCMAP", sizeof(cdat->dstr_846__GNCX_LOCMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_847__GNCX_LOCMAP*/
+ if (!/*_.VALDATA___V848*/ curfptr[847]) /*_.VALDATA___V848*/ curfptr[847] = (void*)&cdat->dobj_847__GNCX_LOCMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_847__GNCX_LOCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_847__GNCX_LOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_847__GNCX_LOCMAP.obj_num = 1;
+  cdat->dobj_847__GNCX_LOCMAP.obj_hash = 851184149;
+  cdat->dobj_847__GNCX_LOCMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_847__GNCX_LOCMAP));
+ 
+ /*inistring dstr_848__GNCX_LOCMAP*/
+ /*_.VALSTR___V849*/ curfptr[848] = (void*)&cdat->dstr_848__GNCX_LOCMAP;
+  cdat->dstr_848__GNCX_LOCMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_848__GNCX_LOCMAP.val, "GNCX_LOCMAP", sizeof(cdat->dstr_848__GNCX_LOCMAP.val)-1);
+ 
+ /*iniobj dsym_849__GNCX_FREEPTRLIST*/
+ if (!/*_.VALDATA___V869*/ curfptr[868]) /*_.VALDATA___V869*/ curfptr[868] = (void*)&cdat->dsym_849__GNCX_FREEPTRLIST;
+  melt_assertmsg("iniobj checkdiscr dsym_849__GNCX_FREEPTRLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_849__GNCX_FREEPTRLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_849__GNCX_FREEPTRLIST.obj_hash = 903403556;
+  cdat->dsym_849__GNCX_FREEPTRLIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_849__GNCX_FREEPTRLIST));
+ 
+ /*inistring dstr_850__GNCX_FREEPTRLIST*/
+ /*_.VALSTR___V870*/ curfptr[869] = (void*)&cdat->dstr_850__GNCX_FREEPTRLIST;
+  cdat->dstr_850__GNCX_FREEPTRLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_850__GNCX_FREEPTRLIST.val, "GNCX_FREEPTRLIST", sizeof(cdat->dstr_850__GNCX_FREEPTRLIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_851__GNCX_FREEPTRLIST*/
+ if (!/*_.VALDATA___V850*/ curfptr[849]) /*_.VALDATA___V850*/ curfptr[849] = (void*)&cdat->dobj_851__GNCX_FREEPTRLIST;
+  melt_assertmsg("iniobj checkdiscr dobj_851__GNCX_FREEPTRLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_851__GNCX_FREEPTRLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_851__GNCX_FREEPTRLIST.obj_num = 2;
+  cdat->dobj_851__GNCX_FREEPTRLIST.obj_hash = 91704859;
+  cdat->dobj_851__GNCX_FREEPTRLIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_851__GNCX_FREEPTRLIST));
+ 
+ /*inistring dstr_852__GNCX_FREEPTRLIST*/
+ /*_.VALSTR___V851*/ curfptr[850] = (void*)&cdat->dstr_852__GNCX_FREEPTRLIST;
+  cdat->dstr_852__GNCX_FREEPTRLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_852__GNCX_FREEPTRLIST.val, "GNCX_FREEPTRLIST", sizeof(cdat->dstr_852__GNCX_FREEPTRLIST.val)-1);
+ 
+ /*iniobj dsym_853__GNCX_FREELONGLIST*/
+ if (!/*_.VALDATA___V871*/ curfptr[870]) /*_.VALDATA___V871*/ curfptr[870] = (void*)&cdat->dsym_853__GNCX_FREELONGLIST;
+  melt_assertmsg("iniobj checkdiscr dsym_853__GNCX_FREELONGLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_853__GNCX_FREELONGLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_853__GNCX_FREELONGLIST.obj_hash = 264114485;
+  cdat->dsym_853__GNCX_FREELONGLIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_853__GNCX_FREELONGLIST));
+ 
+ /*inistring dstr_854__GNCX_FREELONGLIS*/
+ /*_.VALSTR___V872*/ curfptr[871] = (void*)&cdat->dstr_854__GNCX_FREELONGLIS;
+  cdat->dstr_854__GNCX_FREELONGLIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_854__GNCX_FREELONGLIS.val, "GNCX_FREELONGLIST", sizeof(cdat->dstr_854__GNCX_FREELONGLIS.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_855__GNCX_FREELONGLIST*/
+ if (!/*_.VALDATA___V852*/ curfptr[851]) /*_.VALDATA___V852*/ curfptr[851] = (void*)&cdat->dobj_855__GNCX_FREELONGLIST;
+  melt_assertmsg("iniobj checkdiscr dobj_855__GNCX_FREELONGLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_855__GNCX_FREELONGLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_855__GNCX_FREELONGLIST.obj_num = 3;
+  cdat->dobj_855__GNCX_FREELONGLIST.obj_hash = 86390111;
+  cdat->dobj_855__GNCX_FREELONGLIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_855__GNCX_FREELONGLIST));
+ 
+ /*inistring dstr_856__GNCX_FREELONGLIS*/
+ /*_.VALSTR___V853*/ curfptr[852] = (void*)&cdat->dstr_856__GNCX_FREELONGLIS;
+  cdat->dstr_856__GNCX_FREELONGLIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_856__GNCX_FREELONGLIS.val, "GNCX_FREELONGLIST", sizeof(cdat->dstr_856__GNCX_FREELONGLIS.val)-1);
+ 
+ /*iniobj dsym_857__GNCX_FREEOTHERMAPS*/
+ if (!/*_.VALDATA___V873*/ curfptr[872]) /*_.VALDATA___V873*/ curfptr[872] = (void*)&cdat->dsym_857__GNCX_FREEOTHERMAPS;
+  melt_assertmsg("iniobj checkdiscr dsym_857__GNCX_FREEOTHERMAPS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_857__GNCX_FREEOTHERMAPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_857__GNCX_FREEOTHERMAPS.obj_hash = 1003093597;
+  cdat->dsym_857__GNCX_FREEOTHERMAPS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_857__GNCX_FREEOTHERMAPS));
+ 
+ /*inistring dstr_858__GNCX_FREEOTHERMA*/
+ /*_.VALSTR___V874*/ curfptr[873] = (void*)&cdat->dstr_858__GNCX_FREEOTHERMA;
+  cdat->dstr_858__GNCX_FREEOTHERMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_858__GNCX_FREEOTHERMA.val, "GNCX_FREEOTHERMAPS", sizeof(cdat->dstr_858__GNCX_FREEOTHERMA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_859__GNCX_FREEOTHERMAPS*/
+ if (!/*_.VALDATA___V854*/ curfptr[853]) /*_.VALDATA___V854*/ curfptr[853] = (void*)&cdat->dobj_859__GNCX_FREEOTHERMAPS;
+  melt_assertmsg("iniobj checkdiscr dobj_859__GNCX_FREEOTHERMAPS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_859__GNCX_FREEOTHERMAPS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_859__GNCX_FREEOTHERMAPS.obj_num = 4;
+  cdat->dobj_859__GNCX_FREEOTHERMAPS.obj_hash = 287893476;
+  cdat->dobj_859__GNCX_FREEOTHERMAPS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_859__GNCX_FREEOTHERMAPS));
+ 
+ /*inistring dstr_860__GNCX_FREEOTHERMA*/
+ /*_.VALSTR___V855*/ curfptr[854] = (void*)&cdat->dstr_860__GNCX_FREEOTHERMA;
+  cdat->dstr_860__GNCX_FREEOTHERMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_860__GNCX_FREEOTHERMA.val, "GNCX_FREEOTHERMAPS", sizeof(cdat->dstr_860__GNCX_FREEOTHERMA.val)-1);
+ 
+ /*iniobj dsym_861__GNCX_RETLOC*/
+ if (!/*_.VALDATA___V875*/ curfptr[874]) /*_.VALDATA___V875*/ curfptr[874] = (void*)&cdat->dsym_861__GNCX_RETLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_861__GNCX_RETLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_861__GNCX_RETLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_861__GNCX_RETLOC.obj_hash = 570188544;
+  cdat->dsym_861__GNCX_RETLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_861__GNCX_RETLOC));
+ 
+ /*inistring dstr_862__GNCX_RETLOC*/
+ /*_.VALSTR___V876*/ curfptr[875] = (void*)&cdat->dstr_862__GNCX_RETLOC;
+  cdat->dstr_862__GNCX_RETLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_862__GNCX_RETLOC.val, "GNCX_RETLOC", sizeof(cdat->dstr_862__GNCX_RETLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_863__GNCX_RETLOC*/
+ if (!/*_.VALDATA___V856*/ curfptr[855]) /*_.VALDATA___V856*/ curfptr[855] = (void*)&cdat->dobj_863__GNCX_RETLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_863__GNCX_RETLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_863__GNCX_RETLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_863__GNCX_RETLOC.obj_num = 5;
+  cdat->dobj_863__GNCX_RETLOC.obj_hash = 579337269;
+  cdat->dobj_863__GNCX_RETLOC.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_863__GNCX_RETLOC));
+ 
+ /*inistring dstr_864__GNCX_RETLOC*/
+ /*_.VALSTR___V857*/ curfptr[856] = (void*)&cdat->dstr_864__GNCX_RETLOC;
+  cdat->dstr_864__GNCX_RETLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_864__GNCX_RETLOC.val, "GNCX_RETLOC", sizeof(cdat->dstr_864__GNCX_RETLOC.val)-1);
+ 
+ /*iniobj dsym_865__GNCX_COMPICACHE*/
+ if (!/*_.VALDATA___V877*/ curfptr[876]) /*_.VALDATA___V877*/ curfptr[876] = (void*)&cdat->dsym_865__GNCX_COMPICACHE;
+  melt_assertmsg("iniobj checkdiscr dsym_865__GNCX_COMPICACHE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_865__GNCX_COMPICACHE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_865__GNCX_COMPICACHE.obj_hash = 1019986423;
+  cdat->dsym_865__GNCX_COMPICACHE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_865__GNCX_COMPICACHE));
+ 
+ /*inistring dstr_866__GNCX_COMPICACHE*/
+ /*_.VALSTR___V878*/ curfptr[877] = (void*)&cdat->dstr_866__GNCX_COMPICACHE;
+  cdat->dstr_866__GNCX_COMPICACHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_866__GNCX_COMPICACHE.val, "GNCX_COMPICACHE", sizeof(cdat->dstr_866__GNCX_COMPICACHE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_867__GNCX_COMPICACHE*/
+ if (!/*_.VALDATA___V858*/ curfptr[857]) /*_.VALDATA___V858*/ curfptr[857] = (void*)&cdat->dobj_867__GNCX_COMPICACHE;
+  melt_assertmsg("iniobj checkdiscr dobj_867__GNCX_COMPICACHE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_867__GNCX_COMPICACHE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_867__GNCX_COMPICACHE.obj_num = 6;
+  cdat->dobj_867__GNCX_COMPICACHE.obj_hash = 127882086;
+  cdat->dobj_867__GNCX_COMPICACHE.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_867__GNCX_COMPICACHE));
+ 
+ /*inistring dstr_868__GNCX_COMPICACHE*/
+ /*_.VALSTR___V859*/ curfptr[858] = (void*)&cdat->dstr_868__GNCX_COMPICACHE;
+  cdat->dstr_868__GNCX_COMPICACHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_868__GNCX_COMPICACHE.val, "GNCX_COMPICACHE", sizeof(cdat->dstr_868__GNCX_COMPICACHE.val)-1);
+ 
+ /*iniobj dsym_869__GNCX_MODULCONTEXT*/
+ if (!/*_.VALDATA___V879*/ curfptr[878]) /*_.VALDATA___V879*/ curfptr[878] = (void*)&cdat->dsym_869__GNCX_MODULCONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_869__GNCX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_869__GNCX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_869__GNCX_MODULCONTEXT.obj_hash = 723165498;
+  cdat->dsym_869__GNCX_MODULCONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_869__GNCX_MODULCONTEXT));
+ 
+ /*inistring dstr_870__GNCX_MODULCONTEX*/
+ /*_.VALSTR___V880*/ curfptr[879] = (void*)&cdat->dstr_870__GNCX_MODULCONTEX;
+  cdat->dstr_870__GNCX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_870__GNCX_MODULCONTEX.val, "GNCX_MODULCONTEXT", sizeof(cdat->dstr_870__GNCX_MODULCONTEX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_871__GNCX_MODULCONTEXT*/
+ if (!/*_.VALDATA___V860*/ curfptr[859]) /*_.VALDATA___V860*/ curfptr[859] = (void*)&cdat->dobj_871__GNCX_MODULCONTEXT;
+  melt_assertmsg("iniobj checkdiscr dobj_871__GNCX_MODULCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_871__GNCX_MODULCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_871__GNCX_MODULCONTEXT.obj_num = 7;
+  cdat->dobj_871__GNCX_MODULCONTEXT.obj_hash = 964197573;
+  cdat->dobj_871__GNCX_MODULCONTEXT.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_871__GNCX_MODULCONTEXT));
+ 
+ /*inistring dstr_872__GNCX_MODULCONTEX*/
+ /*_.VALSTR___V861*/ curfptr[860] = (void*)&cdat->dstr_872__GNCX_MODULCONTEX;
+  cdat->dstr_872__GNCX_MODULCONTEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_872__GNCX_MODULCONTEX.val, "GNCX_MODULCONTEXT", sizeof(cdat->dstr_872__GNCX_MODULCONTEX.val)-1);
+ 
+ /*iniobj dsym_873__GNCX_MATCHMAP*/
+ if (!/*_.VALDATA___V881*/ curfptr[880]) /*_.VALDATA___V881*/ curfptr[880] = (void*)&cdat->dsym_873__GNCX_MATCHMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_873__GNCX_MATCHMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_873__GNCX_MATCHMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_873__GNCX_MATCHMAP.obj_hash = 1017022868;
+  cdat->dsym_873__GNCX_MATCHMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_873__GNCX_MATCHMAP));
+ 
+ /*inistring dstr_874__GNCX_MATCHMAP*/
+ /*_.VALSTR___V882*/ curfptr[881] = (void*)&cdat->dstr_874__GNCX_MATCHMAP;
+  cdat->dstr_874__GNCX_MATCHMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_874__GNCX_MATCHMAP.val, "GNCX_MATCHMAP", sizeof(cdat->dstr_874__GNCX_MATCHMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ iniobj");
+ /*iniobj dobj_875__GNCX_MATCHMAP*/
+ if (!/*_.VALDATA___V862*/ curfptr[861]) /*_.VALDATA___V862*/ curfptr[861] = (void*)&cdat->dobj_875__GNCX_MATCHMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_875__GNCX_MATCHMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_875__GNCX_MATCHMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_875__GNCX_MATCHMAP.obj_num = 8;
+  cdat->dobj_875__GNCX_MATCHMAP.obj_hash = 2128969;
+  cdat->dobj_875__GNCX_MATCHMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_875__GNCX_MATCHMAP));
+ 
+ /*inistring dstr_876__GNCX_MATCHMAP*/
+ /*_.VALSTR___V863*/ curfptr[862] = (void*)&cdat->dstr_876__GNCX_MATCHMAP;
+  cdat->dstr_876__GNCX_MATCHMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_876__GNCX_MATCHMAP.val, "GNCX_MATCHMAP", sizeof(cdat->dstr_876__GNCX_MATCHMAP.val)-1);
+ 
+ /*iniobj dsym_877__CLASS_INITIAL_GENERATION_CONTEXT*/
+ if (!/*_.VALDATA___V883*/ curfptr[882]) /*_.VALDATA___V883*/ curfptr[882] = (void*)&cdat->dsym_877__CLASS_INITIAL_GENERATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_877__CLASS_INITIAL_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_877__CLASS_INITIAL_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_877__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 132112963;
+  cdat->dsym_877__CLASS_INITIAL_GENERATION_CONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_877__CLASS_INITIAL_GENERATION_CONTEXT));
+ 
+ /*inistring dstr_878__CLASS_INITIAL_GE*/
+ /*_.VALSTR___V884*/ curfptr[883] = (void*)&cdat->dstr_878__CLASS_INITIAL_GE;
+  cdat->dstr_878__CLASS_INITIAL_GE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_878__CLASS_INITIAL_GE.val, "CLASS_INITIAL_GENERATION_CONTEXT", sizeof(cdat->dstr_878__CLASS_INITIAL_GE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:732:/ iniobj");
+ /*iniobj dobj_879__CLASS_INITIAL_GENERATION_CONTEXT*/
+ if (!/*_.VALDATA___V885*/ curfptr[884]) /*_.VALDATA___V885*/ curfptr[884] = (void*)&cdat->dobj_879__CLASS_INITIAL_GENERATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dobj_879__CLASS_INITIAL_GENERATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_879__CLASS_INITIAL_GENERATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_879__CLASS_INITIAL_GENERATION_CONTEXT.obj_num = OBMAG_OBJECT;
+  cdat->dobj_879__CLASS_INITIAL_GENERATION_CONTEXT.obj_hash = 404044411;
+  cdat->dobj_879__CLASS_INITIAL_GENERATION_CONTEXT.obj_len = 8;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_879__CLASS_INITIAL_GENERATION_CONTEXT));
+ 
+ /*inistring dstr_880__CLASS_INITIAL_GE*/
+ /*_.VALSTR___V886*/ curfptr[885] = (void*)&cdat->dstr_880__CLASS_INITIAL_GE;
+  cdat->dstr_880__CLASS_INITIAL_GE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_880__CLASS_INITIAL_GE.val, "CLASS_INITIAL_GENERATION_CONTEXT", sizeof(cdat->dstr_880__CLASS_INITIAL_GE.val)-1);
+ 
+ /*inimult dtup_881__CLASS_INITIAL_GENERATION_CONTEXT*/
+ /*_.VALTUP___V887*/ curfptr[886] = (void*)&cdat->dtup_881__CLASS_INITIAL_GENERATION_CONTEXT;
+  cdat->dtup_881__CLASS_INITIAL_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
+  cdat->dtup_881__CLASS_INITIAL_GENERATION_CONTEXT.nbval = 2;
+ /*inimult dtup_882__CLASS_INITIAL_GENERATION_CONTEXT*/
+ /*_.VALTUP___V896*/ curfptr[895] = (void*)&cdat->dtup_882__CLASS_INITIAL_GENERATION_CONTEXT;
+  cdat->dtup_882__CLASS_INITIAL_GENERATION_CONTEXT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
+  cdat->dtup_882__CLASS_INITIAL_GENERATION_CONTEXT.nbval = 13;
+ /*iniobj dsym_883__IGNCX_PREVENVLOC*/
+ if (!/*_.VALDATA___V897*/ curfptr[896]) /*_.VALDATA___V897*/ curfptr[896] = (void*)&cdat->dsym_883__IGNCX_PREVENVLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_883__IGNCX_PREVENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_883__IGNCX_PREVENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_883__IGNCX_PREVENVLOC.obj_hash = 234174900;
+  cdat->dsym_883__IGNCX_PREVENVLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_883__IGNCX_PREVENVLOC));
+ 
+ /*inistring dstr_884__IGNCX_PREVENVLOC*/
+ /*_.VALSTR___V898*/ curfptr[897] = (void*)&cdat->dstr_884__IGNCX_PREVENVLOC;
+  cdat->dstr_884__IGNCX_PREVENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_884__IGNCX_PREVENVLOC.val, "IGNCX_PREVENVLOC", sizeof(cdat->dstr_884__IGNCX_PREVENVLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:732:/ iniobj");
+ /*iniobj dobj_885__IGNCX_PREVENVLOC*/
+ if (!/*_.VALDATA___V888*/ curfptr[887]) /*_.VALDATA___V888*/ curfptr[887] = (void*)&cdat->dobj_885__IGNCX_PREVENVLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_885__IGNCX_PREVENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_885__IGNCX_PREVENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_885__IGNCX_PREVENVLOC.obj_num = 9;
+  cdat->dobj_885__IGNCX_PREVENVLOC.obj_hash = 988008930;
+  cdat->dobj_885__IGNCX_PREVENVLOC.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_885__IGNCX_PREVENVLOC));
+ 
+ /*inistring dstr_886__IGNCX_PREVENVLOC*/
+ /*_.VALSTR___V889*/ curfptr[888] = (void*)&cdat->dstr_886__IGNCX_PREVENVLOC;
+  cdat->dstr_886__IGNCX_PREVENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_886__IGNCX_PREVENVLOC.val, "IGNCX_PREVENVLOC", sizeof(cdat->dstr_886__IGNCX_PREVENVLOC.val)-1);
+ 
+ /*iniobj dsym_887__IGNCX_CONTENVLOC*/
+ if (!/*_.VALDATA___V899*/ curfptr[898]) /*_.VALDATA___V899*/ curfptr[898] = (void*)&cdat->dsym_887__IGNCX_CONTENVLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_887__IGNCX_CONTENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_887__IGNCX_CONTENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_887__IGNCX_CONTENVLOC.obj_hash = 619813837;
+  cdat->dsym_887__IGNCX_CONTENVLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_887__IGNCX_CONTENVLOC));
+ 
+ /*inistring dstr_888__IGNCX_CONTENVLOC*/
+ /*_.VALSTR___V900*/ curfptr[899] = (void*)&cdat->dstr_888__IGNCX_CONTENVLOC;
+  cdat->dstr_888__IGNCX_CONTENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_888__IGNCX_CONTENVLOC.val, "IGNCX_CONTENVLOC", sizeof(cdat->dstr_888__IGNCX_CONTENVLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:732:/ iniobj");
+ /*iniobj dobj_889__IGNCX_CONTENVLOC*/
+ if (!/*_.VALDATA___V890*/ curfptr[889]) /*_.VALDATA___V890*/ curfptr[889] = (void*)&cdat->dobj_889__IGNCX_CONTENVLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_889__IGNCX_CONTENVLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_889__IGNCX_CONTENVLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_889__IGNCX_CONTENVLOC.obj_num = 10;
+  cdat->dobj_889__IGNCX_CONTENVLOC.obj_hash = 427308090;
+  cdat->dobj_889__IGNCX_CONTENVLOC.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_889__IGNCX_CONTENVLOC));
+ 
+ /*inistring dstr_890__IGNCX_CONTENVLOC*/
+ /*_.VALSTR___V891*/ curfptr[890] = (void*)&cdat->dstr_890__IGNCX_CONTENVLOC;
+  cdat->dstr_890__IGNCX_CONTENVLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_890__IGNCX_CONTENVLOC.val, "IGNCX_CONTENVLOC", sizeof(cdat->dstr_890__IGNCX_CONTENVLOC.val)-1);
+ 
+ /*iniobj dsym_891__IGNCX_PROCURMODENVLIST*/
+ if (!/*_.VALDATA___V901*/ curfptr[900]) /*_.VALDATA___V901*/ curfptr[900] = (void*)&cdat->dsym_891__IGNCX_PROCURMODENVLIST;
+  melt_assertmsg("iniobj checkdiscr dsym_891__IGNCX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_891__IGNCX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_891__IGNCX_PROCURMODENVLIST.obj_hash = 312890765;
+  cdat->dsym_891__IGNCX_PROCURMODENVLIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_891__IGNCX_PROCURMODENVLIST));
+ 
+ /*inistring dstr_892__IGNCX_PROCURMODE*/
+ /*_.VALSTR___V902*/ curfptr[901] = (void*)&cdat->dstr_892__IGNCX_PROCURMODE;
+  cdat->dstr_892__IGNCX_PROCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_892__IGNCX_PROCURMODE.val, "IGNCX_PROCURMODENVLIST", sizeof(cdat->dstr_892__IGNCX_PROCURMODE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:732:/ iniobj");
+ /*iniobj dobj_893__IGNCX_PROCURMODENVLIST*/
+ if (!/*_.VALDATA___V892*/ curfptr[891]) /*_.VALDATA___V892*/ curfptr[891] = (void*)&cdat->dobj_893__IGNCX_PROCURMODENVLIST;
+  melt_assertmsg("iniobj checkdiscr dobj_893__IGNCX_PROCURMODENVLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_893__IGNCX_PROCURMODENVLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_893__IGNCX_PROCURMODENVLIST.obj_num = 11;
+  cdat->dobj_893__IGNCX_PROCURMODENVLIST.obj_hash = 830954130;
+  cdat->dobj_893__IGNCX_PROCURMODENVLIST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_893__IGNCX_PROCURMODENVLIST));
+ 
+ /*inistring dstr_894__IGNCX_PROCURMODE*/
+ /*_.VALSTR___V893*/ curfptr[892] = (void*)&cdat->dstr_894__IGNCX_PROCURMODE;
+  cdat->dstr_894__IGNCX_PROCURMODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_894__IGNCX_PROCURMODE.val, "IGNCX_PROCURMODENVLIST", sizeof(cdat->dstr_894__IGNCX_PROCURMODE.val)-1);
+ 
+ /*iniobj dsym_895__IGNCX_IMPORTMAP*/
+ if (!/*_.VALDATA___V903*/ curfptr[902]) /*_.VALDATA___V903*/ curfptr[902] = (void*)&cdat->dsym_895__IGNCX_IMPORTMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_895__IGNCX_IMPORTMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_895__IGNCX_IMPORTMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_895__IGNCX_IMPORTMAP.obj_hash = 366316746;
+  cdat->dsym_895__IGNCX_IMPORTMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_895__IGNCX_IMPORTMAP));
+ 
+ /*inistring dstr_896__IGNCX_IMPORTMAP*/
+ /*_.VALSTR___V904*/ curfptr[903] = (void*)&cdat->dstr_896__IGNCX_IMPORTMAP;
+  cdat->dstr_896__IGNCX_IMPORTMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_896__IGNCX_IMPORTMAP.val, "IGNCX_IMPORTMAP", sizeof(cdat->dstr_896__IGNCX_IMPORTMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:732:/ iniobj");
+ /*iniobj dobj_897__IGNCX_IMPORTMAP*/
+ if (!/*_.VALDATA___V894*/ curfptr[893]) /*_.VALDATA___V894*/ curfptr[893] = (void*)&cdat->dobj_897__IGNCX_IMPORTMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_897__IGNCX_IMPORTMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_897__IGNCX_IMPORTMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_897__IGNCX_IMPORTMAP.obj_num = 12;
+  cdat->dobj_897__IGNCX_IMPORTMAP.obj_hash = 730899957;
+  cdat->dobj_897__IGNCX_IMPORTMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_897__IGNCX_IMPORTMAP));
+ 
+ /*inistring dstr_898__IGNCX_IMPORTMAP*/
+ /*_.VALSTR___V895*/ curfptr[894] = (void*)&cdat->dstr_898__IGNCX_IMPORTMAP;
+  cdat->dstr_898__IGNCX_IMPORTMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_898__IGNCX_IMPORTMAP.val, "IGNCX_IMPORTMAP", sizeof(cdat->dstr_898__IGNCX_IMPORTMAP.val)-1);
+ 
+ /*iniobj dsym_899__CLASS_GENERATED_C_CODE*/
+ if (!/*_.VALDATA___V905*/ curfptr[904]) /*_.VALDATA___V905*/ curfptr[904] = (void*)&cdat->dsym_899__CLASS_GENERATED_C_CODE;
+  melt_assertmsg("iniobj checkdiscr dsym_899__CLASS_GENERATED_C_CODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_899__CLASS_GENERATED_C_CODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_899__CLASS_GENERATED_C_CODE.obj_hash = 860736875;
+  cdat->dsym_899__CLASS_GENERATED_C_CODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_899__CLASS_GENERATED_C_CODE));
+ 
+ /*inistring dstr_900__CLASS_GENERATED_*/
+ /*_.VALSTR___V906*/ curfptr[905] = (void*)&cdat->dstr_900__CLASS_GENERATED_;
+  cdat->dstr_900__CLASS_GENERATED_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_900__CLASS_GENERATED_.val, "CLASS_GENERATED_C_CODE", sizeof(cdat->dstr_900__CLASS_GENERATED_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:750:/ iniobj");
+ /*iniobj dobj_901__CLASS_GENERATED_C_CODE*/
+ if (!/*_.VALDATA___V907*/ curfptr[906]) /*_.VALDATA___V907*/ curfptr[906] = (void*)&cdat->dobj_901__CLASS_GENERATED_C_CODE;
+  melt_assertmsg("iniobj checkdiscr dobj_901__CLASS_GENERATED_C_CODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_901__CLASS_GENERATED_C_CODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_901__CLASS_GENERATED_C_CODE.obj_num = OBMAG_OBJECT;
+  cdat->dobj_901__CLASS_GENERATED_C_CODE.obj_hash = 516732865;
+  cdat->dobj_901__CLASS_GENERATED_C_CODE.obj_len = 8;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_901__CLASS_GENERATED_C_CODE));
+ 
+ /*inistring dstr_902__CLASS_GENERATED_*/
+ /*_.VALSTR___V908*/ curfptr[907] = (void*)&cdat->dstr_902__CLASS_GENERATED_;
+  cdat->dstr_902__CLASS_GENERATED_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_902__CLASS_GENERATED_.val, "CLASS_GENERATED_C_CODE", sizeof(cdat->dstr_902__CLASS_GENERATED_.val)-1);
+ 
+ /*inimult dtup_903__CLASS_GENERATED_C_CODE*/
+ /*_.VALTUP___V909*/ curfptr[908] = (void*)&cdat->dtup_903__CLASS_GENERATED_C_CODE;
+  cdat->dtup_903__CLASS_GENERATED_C_CODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
+  cdat->dtup_903__CLASS_GENERATED_C_CODE.nbval = 1;
+ /*inimult dtup_904__CLASS_GENERATED_C_CODE*/
+ /*_.VALTUP___V910*/ curfptr[909] = (void*)&cdat->dtup_904__CLASS_GENERATED_C_CODE;
+  cdat->dtup_904__CLASS_GENERATED_C_CODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
+  cdat->dtup_904__CLASS_GENERATED_C_CODE.nbval = 0;
+ /*iniobj dsym_905__IGNORE*/
+ if (!/*_.VALDATA___V911*/ curfptr[910]) /*_.VALDATA___V911*/ curfptr[910] = (void*)&cdat->dsym_905__IGNORE;
+  melt_assertmsg("iniobj checkdiscr dsym_905__IGNORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_905__IGNORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_905__IGNORE.obj_hash = 40367397;
+  cdat->dsym_905__IGNORE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_905__IGNORE));
+ 
+ /*inistring dstr_906__IGNORE*/
+ /*_.VALSTR___V912*/ curfptr[911] = (void*)&cdat->dstr_906__IGNORE;
+  cdat->dstr_906__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_906__IGNORE.val, "IGNORE", sizeof(cdat->dstr_906__IGNORE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:768:/ iniobj");
+ /*iniobj dobj_907__IGNORE*/
+ if (!/*_.VALDATA___V913*/ curfptr[912]) /*_.VALDATA___V913*/ curfptr[912] = (void*)&cdat->dobj_907__IGNORE;
+  melt_assertmsg("iniobj checkdiscr dobj_907__IGNORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_907__IGNORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_907__IGNORE.obj_hash = 975932617;
+  cdat->dobj_907__IGNORE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_907__IGNORE));
+ 
+ /*inimult dtup_908__IGNORE*/
+ /*_.VALTUP___V921*/ curfptr[920] = (void*)&cdat->dtup_908__IGNORE;
+  cdat->dtup_908__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_908__IGNORE.nbval = 3;
+ /*inimult dtup_909__IGNORE*/
+ /*_.VALTUP___V918*/ curfptr[917] = (void*)&cdat->dtup_909__IGNORE;
+  cdat->dtup_909__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_909__IGNORE.nbval = 1;
+ /*iniobj dsym_910__V*/
+ if (!/*_.VALDATA___V916*/ curfptr[915]) /*_.VALDATA___V916*/ curfptr[915] = (void*)&cdat->dsym_910__V;
+  melt_assertmsg("iniobj checkdiscr dsym_910__V", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_910__V.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_910__V.obj_hash = 16163707;
+  cdat->dsym_910__V.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_910__V));
+ 
+ /*inistring dstr_911__V*/
+ /*_.VALSTR___V917*/ curfptr[916] = (void*)&cdat->dstr_911__V;
+  cdat->dstr_911__V.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_911__V.val, "V", sizeof(cdat->dstr_911__V.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:768:/ iniobj");
+ /*iniobj dobj_912*/
+ if (!/*_.VALDATA___V915*/ curfptr[914]) /*_.VALDATA___V915*/ curfptr[914] = (void*)&cdat->dobj_912;
+  melt_assertmsg("iniobj checkdiscr dobj_912", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_912.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_912.obj_num = 0;
+  cdat->dobj_912.obj_hash = 782109948;
+  cdat->dobj_912.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_912));
+ 
+ /*inistring dstr_913__ignore_void_*/
+ /*_.VALSTR___V919*/ curfptr[918] = (void*)&cdat->dstr_913__ignore_void_;
+  cdat->dstr_913__ignore_void_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_913__ignore_void_.val, "/*ignore*/(void)(", sizeof(cdat->dstr_913__ignore_void_.val)-1);
+ 
+ /*inistring dstr_914__*/
+ /*_.VALSTR___V920*/ curfptr[919] = (void*)&cdat->dstr_914__;
+  cdat->dstr_914__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_914__.val, ")", sizeof(cdat->dstr_914__.val)-1);
+ 
+ /*inistring dstr_915__IGNORE*/
+ /*_.VALSTR___V914*/ curfptr[913] = (void*)&cdat->dstr_915__IGNORE;
+  cdat->dstr_915__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_915__IGNORE.val, "IGNORE", sizeof(cdat->dstr_915__IGNORE.val)-1);
+ 
+ /*iniobj dsym_916__VOID*/
+ if (!/*_.VALDATA___V922*/ curfptr[921]) /*_.VALDATA___V922*/ curfptr[921] = (void*)&cdat->dsym_916__VOID;
+  melt_assertmsg("iniobj checkdiscr dsym_916__VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_916__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_916__VOID.obj_hash = 667258433;
+  cdat->dsym_916__VOID.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_916__VOID));
+ 
+ /*inistring dstr_917__VOID*/
+ /*_.VALSTR___V923*/ curfptr[922] = (void*)&cdat->dstr_917__VOID;
+  cdat->dstr_917__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_917__VOID.val, "VOID", sizeof(cdat->dstr_917__VOID.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:773:/ iniobj");
- /*iniobj dobj_915__IGNORE*/
- if (!/*_.VALDATA___V921*/ curfptr[920]) /*_.VALDATA___V921*/ curfptr[920] = (void*)&cdat->dobj_915__IGNORE;
-  melt_assertmsg("iniobj checkdiscr dobj_915__IGNORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_915__IGNORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_915__IGNORE.obj_hash = 108948377;
-  cdat->dobj_915__IGNORE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_915__IGNORE));
- 
- /*inimult dtup_916__IGNORE*/
- /*_.VALTUP___V929*/ curfptr[928] = (void*)&cdat->dtup_916__IGNORE;
-  cdat->dtup_916__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_916__IGNORE.nbval = 3;
- /*inimult dtup_917__IGNORE*/
- /*_.VALTUP___V926*/ curfptr[925] = (void*)&cdat->dtup_917__IGNORE;
-  cdat->dtup_917__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_917__IGNORE.nbval = 1;
- /*iniobj dsym_918__V*/
- if (!/*_.VALDATA___V924*/ curfptr[923]) /*_.VALDATA___V924*/ curfptr[923] = (void*)&cdat->dsym_918__V;
-  melt_assertmsg("iniobj checkdiscr dsym_918__V", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_918__V.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_918__V.obj_hash = 16163707;
-  cdat->dsym_918__V.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_918__V));
- 
- /*inistring dstr_919__V*/
- /*_.VALSTR___V925*/ curfptr[924] = (void*)&cdat->dstr_919__V;
-  cdat->dstr_919__V.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_919__V.val, "V", sizeof(cdat->dstr_919__V.val)-1);
+ /*iniobj dobj_918__VOID*/
+ if (!/*_.VALDATA___V924*/ curfptr[923]) /*_.VALDATA___V924*/ curfptr[923] = (void*)&cdat->dobj_918__VOID;
+  melt_assertmsg("iniobj checkdiscr dobj_918__VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_918__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_918__VOID.obj_hash = 86573167;
+  cdat->dobj_918__VOID.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_918__VOID));
+ 
+ /*inimult dtup_919__VOID*/
+ /*_.VALTUP___V928*/ curfptr[927] = (void*)&cdat->dtup_919__VOID;
+  cdat->dtup_919__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_919__VOID.nbval = 1;
+ /*inimult dtup_920__VOID*/
+ /*_.VALTUP___V926*/ curfptr[925] = (void*)&cdat->dtup_920__VOID;
+  cdat->dtup_920__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_920__VOID.nbval = 0;
+ /*inistring dstr_921__void_0*/
+ /*_.VALSTR___V927*/ curfptr[926] = (void*)&cdat->dstr_921__void_0;
+  cdat->dstr_921__void_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_921__void_0.val, "/*void*/0", sizeof(cdat->dstr_921__void_0.val)-1);
+ 
+ /*inistring dstr_922__VOID*/
+ /*_.VALSTR___V925*/ curfptr[924] = (void*)&cdat->dstr_922__VOID;
+  cdat->dstr_922__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_922__VOID.val, "VOID", sizeof(cdat->dstr_922__VOID.val)-1);
+ 
+ /*iniobj dsym_923__STRINGCONST2VAL*/
+ if (!/*_.VALDATA___V929*/ curfptr[928]) /*_.VALDATA___V929*/ curfptr[928] = (void*)&cdat->dsym_923__STRINGCONST2VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_923__STRINGCONST2VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_923__STRINGCONST2VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_923__STRINGCONST2VAL.obj_hash = 35474858;
+  cdat->dsym_923__STRINGCONST2VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_923__STRINGCONST2VAL));
+ 
+ /*inistring dstr_924__STRINGCONST2VAL*/
+ /*_.VALSTR___V930*/ curfptr[929] = (void*)&cdat->dstr_924__STRINGCONST2VAL;
+  cdat->dstr_924__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_924__STRINGCONST2VAL.val, "STRINGCONST2VAL", sizeof(cdat->dstr_924__STRINGCONST2VAL.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:773:/ iniobj");
- /*iniobj dobj_920*/
- if (!/*_.VALDATA___V923*/ curfptr[922]) /*_.VALDATA___V923*/ curfptr[922] = (void*)&cdat->dobj_920;
-  melt_assertmsg("iniobj checkdiscr dobj_920", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_920.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_920.obj_num = 0;
-  cdat->dobj_920.obj_hash = 152834130;
-  cdat->dobj_920.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_920));
- 
- /*inistring dstr_921__ignore_void_*/
- /*_.VALSTR___V927*/ curfptr[926] = (void*)&cdat->dstr_921__ignore_void_;
-  cdat->dstr_921__ignore_void_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_921__ignore_void_.val, "/*ignore*/(void)(", sizeof(cdat->dstr_921__ignore_void_.val)-1);
- 
- /*inistring dstr_922__*/
- /*_.VALSTR___V928*/ curfptr[927] = (void*)&cdat->dstr_922__;
-  cdat->dstr_922__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_922__.val, ")", sizeof(cdat->dstr_922__.val)-1);
- 
- /*inistring dstr_923__IGNORE*/
- /*_.VALSTR___V922*/ curfptr[921] = (void*)&cdat->dstr_923__IGNORE;
-  cdat->dstr_923__IGNORE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_923__IGNORE.val, "IGNORE", sizeof(cdat->dstr_923__IGNORE.val)-1);
- 
- /*iniobj dsym_924__VOID*/
- if (!/*_.VALDATA___V930*/ curfptr[929]) /*_.VALDATA___V930*/ curfptr[929] = (void*)&cdat->dsym_924__VOID;
-  melt_assertmsg("iniobj checkdiscr dsym_924__VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_924__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_924__VOID.obj_hash = 667258433;
-  cdat->dsym_924__VOID.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_924__VOID));
- 
- /*inistring dstr_925__VOID*/
- /*_.VALSTR___V931*/ curfptr[930] = (void*)&cdat->dstr_925__VOID;
-  cdat->dstr_925__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_925__VOID.val, "VOID", sizeof(cdat->dstr_925__VOID.val)-1);
+ MELT_LOCATION("warmelt-first.melt:778:/ iniobj");
+ /*iniobj dobj_925__STRINGCONST2VAL*/
+ if (!/*_.VALDATA___V931*/ curfptr[930]) /*_.VALDATA___V931*/ curfptr[930] = (void*)&cdat->dobj_925__STRINGCONST2VAL;
+  melt_assertmsg("iniobj checkdiscr dobj_925__STRINGCONST2VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_925__STRINGCONST2VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_925__STRINGCONST2VAL.obj_hash = 674376052;
+  cdat->dobj_925__STRINGCONST2VAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_925__STRINGCONST2VAL));
+ 
+ /*inimult dtup_926__STRINGCONST2VAL*/
+ /*_.VALTUP___V943*/ curfptr[942] = (void*)&cdat->dtup_926__STRINGCONST2VAL;
+  cdat->dtup_926__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_926__STRINGCONST2VAL.nbval = 5;
+ /*inimult dtup_927__STRINGCONST2VAL*/
+ /*_.VALTUP___V939*/ curfptr[938] = (void*)&cdat->dtup_927__STRINGCONST2VAL;
+  cdat->dtup_927__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_927__STRINGCONST2VAL.nbval = 2;
+ /*iniobj dsym_928__DISCR*/
+ if (!/*_.VALDATA___V934*/ curfptr[933]) /*_.VALDATA___V934*/ curfptr[933] = (void*)&cdat->dsym_928__DISCR;
+  melt_assertmsg("iniobj checkdiscr dsym_928__DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_928__DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_928__DISCR.obj_hash = 95458406;
+  cdat->dsym_928__DISCR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_928__DISCR));
+ 
+ /*inistring dstr_929__DISCR*/
+ /*_.VALSTR___V935*/ curfptr[934] = (void*)&cdat->dstr_929__DISCR;
+  cdat->dstr_929__DISCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_929__DISCR.val, "DISCR", sizeof(cdat->dstr_929__DISCR.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:778:/ iniobj");
- /*iniobj dobj_926__VOID*/
- if (!/*_.VALDATA___V932*/ curfptr[931]) /*_.VALDATA___V932*/ curfptr[931] = (void*)&cdat->dobj_926__VOID;
-  melt_assertmsg("iniobj checkdiscr dobj_926__VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_926__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_926__VOID.obj_hash = 503268568;
-  cdat->dobj_926__VOID.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_926__VOID));
- 
- /*inimult dtup_927__VOID*/
- /*_.VALTUP___V936*/ curfptr[935] = (void*)&cdat->dtup_927__VOID;
-  cdat->dtup_927__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_927__VOID.nbval = 1;
- /*inimult dtup_928__VOID*/
- /*_.VALTUP___V934*/ curfptr[933] = (void*)&cdat->dtup_928__VOID;
-  cdat->dtup_928__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_928__VOID.nbval = 0;
- /*inistring dstr_929__void_0*/
- /*_.VALSTR___V935*/ curfptr[934] = (void*)&cdat->dstr_929__void_0;
-  cdat->dstr_929__void_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_929__void_0.val, "/*void*/0", sizeof(cdat->dstr_929__void_0.val)-1);
- 
- /*inistring dstr_930__VOID*/
- /*_.VALSTR___V933*/ curfptr[932] = (void*)&cdat->dstr_930__VOID;
-  cdat->dstr_930__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_930__VOID.val, "VOID", sizeof(cdat->dstr_930__VOID.val)-1);
- 
- /*iniobj dsym_931__STRINGCONST2VAL*/
- if (!/*_.VALDATA___V937*/ curfptr[936]) /*_.VALDATA___V937*/ curfptr[936] = (void*)&cdat->dsym_931__STRINGCONST2VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_931__STRINGCONST2VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_931__STRINGCONST2VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_931__STRINGCONST2VAL.obj_hash = 35474858;
-  cdat->dsym_931__STRINGCONST2VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_931__STRINGCONST2VAL));
- 
- /*inistring dstr_932__STRINGCONST2VAL*/
- /*_.VALSTR___V938*/ curfptr[937] = (void*)&cdat->dstr_932__STRINGCONST2VAL;
-  cdat->dstr_932__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_932__STRINGCONST2VAL.val, "STRINGCONST2VAL", sizeof(cdat->dstr_932__STRINGCONST2VAL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:783:/ iniobj");
- /*iniobj dobj_933__STRINGCONST2VAL*/
- if (!/*_.VALDATA___V939*/ curfptr[938]) /*_.VALDATA___V939*/ curfptr[938] = (void*)&cdat->dobj_933__STRINGCONST2VAL;
-  melt_assertmsg("iniobj checkdiscr dobj_933__STRINGCONST2VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_933__STRINGCONST2VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_933__STRINGCONST2VAL.obj_hash = 323131377;
-  cdat->dobj_933__STRINGCONST2VAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_933__STRINGCONST2VAL));
- 
- /*inimult dtup_934__STRINGCONST2VAL*/
- /*_.VALTUP___V951*/ curfptr[950] = (void*)&cdat->dtup_934__STRINGCONST2VAL;
-  cdat->dtup_934__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_934__STRINGCONST2VAL.nbval = 5;
- /*inimult dtup_935__STRINGCONST2VAL*/
- /*_.VALTUP___V947*/ curfptr[946] = (void*)&cdat->dtup_935__STRINGCONST2VAL;
-  cdat->dtup_935__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_935__STRINGCONST2VAL.nbval = 2;
- /*iniobj dsym_936__DISCR*/
- if (!/*_.VALDATA___V942*/ curfptr[941]) /*_.VALDATA___V942*/ curfptr[941] = (void*)&cdat->dsym_936__DISCR;
-  melt_assertmsg("iniobj checkdiscr dsym_936__DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_936__DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_936__DISCR.obj_hash = 95458406;
-  cdat->dsym_936__DISCR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_936__DISCR));
- 
- /*inistring dstr_937__DISCR*/
- /*_.VALSTR___V943*/ curfptr[942] = (void*)&cdat->dstr_937__DISCR;
-  cdat->dstr_937__DISCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_937__DISCR.val, "DISCR", sizeof(cdat->dstr_937__DISCR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:783:/ iniobj");
- /*iniobj dobj_938*/
- if (!/*_.VALDATA___V941*/ curfptr[940]) /*_.VALDATA___V941*/ curfptr[940] = (void*)&cdat->dobj_938;
-  melt_assertmsg("iniobj checkdiscr dobj_938", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_938.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_938.obj_num = 0;
-  cdat->dobj_938.obj_hash = 965222402;
-  cdat->dobj_938.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_938));
- 
- /*iniobj dsym_939__STRC*/
- if (!/*_.VALDATA___V945*/ curfptr[944]) /*_.VALDATA___V945*/ curfptr[944] = (void*)&cdat->dsym_939__STRC;
-  melt_assertmsg("iniobj checkdiscr dsym_939__STRC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_939__STRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_939__STRC.obj_hash = 18499245;
-  cdat->dsym_939__STRC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_939__STRC));
- 
- /*inistring dstr_940__STRC*/
- /*_.VALSTR___V946*/ curfptr[945] = (void*)&cdat->dstr_940__STRC;
-  cdat->dstr_940__STRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_940__STRC.val, "STRC", sizeof(cdat->dstr_940__STRC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:783:/ iniobj");
- /*iniobj dobj_941*/
- if (!/*_.VALDATA___V944*/ curfptr[943]) /*_.VALDATA___V944*/ curfptr[943] = (void*)&cdat->dobj_941;
-  melt_assertmsg("iniobj checkdiscr dobj_941", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_941.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_941.obj_num = 1;
-  cdat->dobj_941.obj_hash = 781918585;
-  cdat->dobj_941.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_941));
- 
- /*inistring dstr_942__meltgc_new_strin*/
- /*_.VALSTR___V948*/ curfptr[947] = (void*)&cdat->dstr_942__meltgc_new_strin;
-  cdat->dstr_942__meltgc_new_strin.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_942__meltgc_new_strin.val, "meltgc_new_string((meltobject_ptr_t)(", sizeof(cdat->dstr_942__meltgc_new_strin.val)-1);
- 
- /*inistring dstr_943__*/
- /*_.VALSTR___V949*/ curfptr[948] = (void*)&cdat->dstr_943__;
-  cdat->dstr_943__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_943__.val, "), (", sizeof(cdat->dstr_943__.val)-1);
- 
- /*inistring dstr_944__*/
- /*_.VALSTR___V950*/ curfptr[949] = (void*)&cdat->dstr_944__;
-  cdat->dstr_944__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_944__.val, "))", sizeof(cdat->dstr_944__.val)-1);
- 
- /*inistring dstr_945__STRINGCONST2VAL*/
- /*_.VALSTR___V940*/ curfptr[939] = (void*)&cdat->dstr_945__STRINGCONST2VAL;
-  cdat->dstr_945__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_945__STRINGCONST2VAL.val, "STRINGCONST2VAL", sizeof(cdat->dstr_945__STRINGCONST2VAL.val)-1);
- 
- /*iniobj dsym_946__IS_A*/
- if (!/*_.VALDATA___V952*/ curfptr[951]) /*_.VALDATA___V952*/ curfptr[951] = (void*)&cdat->dsym_946__IS_A;
-  melt_assertmsg("iniobj checkdiscr dsym_946__IS_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_946__IS_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_946__IS_A.obj_hash = 732555866;
-  cdat->dsym_946__IS_A.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_946__IS_A));
- 
- /*inistring dstr_947__IS_A*/
- /*_.VALSTR___V953*/ curfptr[952] = (void*)&cdat->dstr_947__IS_A;
-  cdat->dstr_947__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_947__IS_A.val, "IS_A", sizeof(cdat->dstr_947__IS_A.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:789:/ iniobj");
- /*iniobj dobj_948__IS_A*/
- if (!/*_.VALDATA___V954*/ curfptr[953]) /*_.VALDATA___V954*/ curfptr[953] = (void*)&cdat->dobj_948__IS_A;
-  melt_assertmsg("iniobj checkdiscr dobj_948__IS_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_948__IS_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_948__IS_A.obj_hash = 576123041;
-  cdat->dobj_948__IS_A.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_948__IS_A));
- 
- /*inimult dtup_949__IS_A*/
- /*_.VALTUP___V966*/ curfptr[965] = (void*)&cdat->dtup_949__IS_A;
-  cdat->dtup_949__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_949__IS_A.nbval = 5;
- /*inimult dtup_950__IS_A*/
- /*_.VALTUP___V962*/ curfptr[961] = (void*)&cdat->dtup_950__IS_A;
-  cdat->dtup_950__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_950__IS_A.nbval = 2;
- /*iniobj dsym_951__OBJ*/
- if (!/*_.VALDATA___V957*/ curfptr[956]) /*_.VALDATA___V957*/ curfptr[956] = (void*)&cdat->dsym_951__OBJ;
-  melt_assertmsg("iniobj checkdiscr dsym_951__OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_951__OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_951__OBJ.obj_hash = 123734377;
-  cdat->dsym_951__OBJ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_951__OBJ));
- 
- /*inistring dstr_952__OBJ*/
- /*_.VALSTR___V958*/ curfptr[957] = (void*)&cdat->dstr_952__OBJ;
-  cdat->dstr_952__OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_952__OBJ.val, "OBJ", sizeof(cdat->dstr_952__OBJ.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:789:/ iniobj");
- /*iniobj dobj_953*/
- if (!/*_.VALDATA___V956*/ curfptr[955]) /*_.VALDATA___V956*/ curfptr[955] = (void*)&cdat->dobj_953;
-  melt_assertmsg("iniobj checkdiscr dobj_953", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_953.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_953.obj_num = 0;
-  cdat->dobj_953.obj_hash = 928902969;
-  cdat->dobj_953.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_953));
- 
- /*iniobj dsym_954__CLA*/
- if (!/*_.VALDATA___V960*/ curfptr[959]) /*_.VALDATA___V960*/ curfptr[959] = (void*)&cdat->dsym_954__CLA;
-  melt_assertmsg("iniobj checkdiscr dsym_954__CLA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_954__CLA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_954__CLA.obj_hash = 63658;
-  cdat->dsym_954__CLA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_954__CLA));
- 
- /*inistring dstr_955__CLA*/
- /*_.VALSTR___V961*/ curfptr[960] = (void*)&cdat->dstr_955__CLA;
-  cdat->dstr_955__CLA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_955__CLA.val, "CLA", sizeof(cdat->dstr_955__CLA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:789:/ iniobj");
- /*iniobj dobj_956*/
- if (!/*_.VALDATA___V959*/ curfptr[958]) /*_.VALDATA___V959*/ curfptr[958] = (void*)&cdat->dobj_956;
-  melt_assertmsg("iniobj checkdiscr dobj_956", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_956.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_956.obj_num = 1;
-  cdat->dobj_956.obj_hash = 494424974;
-  cdat->dobj_956.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_956));
- 
- /*inistring dstr_957__melt_is_instance*/
- /*_.VALSTR___V963*/ curfptr[962] = (void*)&cdat->dstr_957__melt_is_instance;
-  cdat->dstr_957__melt_is_instance.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_957__melt_is_instance.val, "melt_is_instance_of((melt_ptr_t)(", sizeof(cdat->dstr_957__melt_is_instance.val)-1);
- 
- /*inistring dstr_958__melt_ptr_t_*/
- /*_.VALSTR___V964*/ curfptr[963] = (void*)&cdat->dstr_958__melt_ptr_t_;
-  cdat->dstr_958__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_958__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_958__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_959__*/
- /*_.VALSTR___V965*/ curfptr[964] = (void*)&cdat->dstr_959__;
-  cdat->dstr_959__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_959__.val, "))", sizeof(cdat->dstr_959__.val)-1);
- 
- /*inistring dstr_960__IS_A*/
- /*_.VALSTR___V955*/ curfptr[954] = (void*)&cdat->dstr_960__IS_A;
-  cdat->dstr_960__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_960__IS_A.val, "IS_A", sizeof(cdat->dstr_960__IS_A.val)-1);
- 
- /*iniobj dsym_961__IS_NOT_A*/
- if (!/*_.VALDATA___V967*/ curfptr[966]) /*_.VALDATA___V967*/ curfptr[966] = (void*)&cdat->dsym_961__IS_NOT_A;
-  melt_assertmsg("iniobj checkdiscr dsym_961__IS_NOT_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_961__IS_NOT_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_961__IS_NOT_A.obj_hash = 368723648;
-  cdat->dsym_961__IS_NOT_A.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_961__IS_NOT_A));
- 
- /*inistring dstr_962__IS_NOT_A*/
- /*_.VALSTR___V968*/ curfptr[967] = (void*)&cdat->dstr_962__IS_NOT_A;
-  cdat->dstr_962__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_962__IS_NOT_A.val, "IS_NOT_A", sizeof(cdat->dstr_962__IS_NOT_A.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:796:/ iniobj");
- /*iniobj dobj_963__IS_NOT_A*/
- if (!/*_.VALDATA___V969*/ curfptr[968]) /*_.VALDATA___V969*/ curfptr[968] = (void*)&cdat->dobj_963__IS_NOT_A;
-  melt_assertmsg("iniobj checkdiscr dobj_963__IS_NOT_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_963__IS_NOT_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_963__IS_NOT_A.obj_hash = 137225451;
-  cdat->dobj_963__IS_NOT_A.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_963__IS_NOT_A));
- 
- /*inimult dtup_964__IS_NOT_A*/
- /*_.VALTUP___V977*/ curfptr[976] = (void*)&cdat->dtup_964__IS_NOT_A;
-  cdat->dtup_964__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_964__IS_NOT_A.nbval = 5;
- /*inimult dtup_965__IS_NOT_A*/
- /*_.VALTUP___V973*/ curfptr[972] = (void*)&cdat->dtup_965__IS_NOT_A;
-  cdat->dtup_965__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_965__IS_NOT_A.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:796:/ iniobj");
- /*iniobj dobj_966*/
- if (!/*_.VALDATA___V971*/ curfptr[970]) /*_.VALDATA___V971*/ curfptr[970] = (void*)&cdat->dobj_966;
-  melt_assertmsg("iniobj checkdiscr dobj_966", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_966.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_966.obj_num = 0;
-  cdat->dobj_966.obj_hash = 510922560;
-  cdat->dobj_966.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_966));
- 
- MELT_LOCATION("warmelt-first.melt:796:/ iniobj");
- /*iniobj dobj_967*/
- if (!/*_.VALDATA___V972*/ curfptr[971]) /*_.VALDATA___V972*/ curfptr[971] = (void*)&cdat->dobj_967;
-  melt_assertmsg("iniobj checkdiscr dobj_967", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_967.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_967.obj_num = 1;
-  cdat->dobj_967.obj_hash = 983114222;
-  cdat->dobj_967.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_967));
- 
- /*inistring dstr_968__melt_is_instanc*/
- /*_.VALSTR___V974*/ curfptr[973] = (void*)&cdat->dstr_968__melt_is_instanc;
-  cdat->dstr_968__melt_is_instanc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_968__melt_is_instanc.val, "!melt_is_instance_of((melt_ptr_t)(", sizeof(cdat->dstr_968__melt_is_instanc.val)-1);
- 
- /*inistring dstr_969__melt_ptr_t_*/
- /*_.VALSTR___V975*/ curfptr[974] = (void*)&cdat->dstr_969__melt_ptr_t_;
-  cdat->dstr_969__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_969__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_969__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_970__*/
- /*_.VALSTR___V976*/ curfptr[975] = (void*)&cdat->dstr_970__;
-  cdat->dstr_970__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_970__.val, "))", sizeof(cdat->dstr_970__.val)-1);
- 
- /*inistring dstr_971__IS_NOT_A*/
- /*_.VALSTR___V970*/ curfptr[969] = (void*)&cdat->dstr_971__IS_NOT_A;
-  cdat->dstr_971__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_971__IS_NOT_A.val, "IS_NOT_A", sizeof(cdat->dstr_971__IS_NOT_A.val)-1);
- 
- /*iniobj dsym_972__IS_OBJECT*/
- if (!/*_.VALDATA___V978*/ curfptr[977]) /*_.VALDATA___V978*/ curfptr[977] = (void*)&cdat->dsym_972__IS_OBJECT;
-  melt_assertmsg("iniobj checkdiscr dsym_972__IS_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_972__IS_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_972__IS_OBJECT.obj_hash = 480792275;
-  cdat->dsym_972__IS_OBJECT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_972__IS_OBJECT));
- 
- /*inistring dstr_973__IS_OBJECT*/
- /*_.VALSTR___V979*/ curfptr[978] = (void*)&cdat->dstr_973__IS_OBJECT;
-  cdat->dstr_973__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_973__IS_OBJECT.val, "IS_OBJECT", sizeof(cdat->dstr_973__IS_OBJECT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:802:/ iniobj");
- /*iniobj dobj_974__IS_OBJECT*/
- if (!/*_.VALDATA___V980*/ curfptr[979]) /*_.VALDATA___V980*/ curfptr[979] = (void*)&cdat->dobj_974__IS_OBJECT;
-  melt_assertmsg("iniobj checkdiscr dobj_974__IS_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_974__IS_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_974__IS_OBJECT.obj_hash = 507255104;
-  cdat->dobj_974__IS_OBJECT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_974__IS_OBJECT));
- 
- /*inimult dtup_975__IS_OBJECT*/
- /*_.VALTUP___V986*/ curfptr[985] = (void*)&cdat->dtup_975__IS_OBJECT;
-  cdat->dtup_975__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_975__IS_OBJECT.nbval = 3;
- /*inimult dtup_976__IS_OBJECT*/
- /*_.VALTUP___V983*/ curfptr[982] = (void*)&cdat->dtup_976__IS_OBJECT;
-  cdat->dtup_976__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_976__IS_OBJECT.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:802:/ iniobj");
- /*iniobj dobj_977*/
- if (!/*_.VALDATA___V982*/ curfptr[981]) /*_.VALDATA___V982*/ curfptr[981] = (void*)&cdat->dobj_977;
-  melt_assertmsg("iniobj checkdiscr dobj_977", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_977.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_977.obj_num = 0;
-  cdat->dobj_977.obj_hash = 1063825776;
-  cdat->dobj_977.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_977));
- 
- /*inistring dstr_978__melt_magic_disc*/
- /*_.VALSTR___V984*/ curfptr[983] = (void*)&cdat->dstr_978__melt_magic_disc;
-  cdat->dstr_978__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_978__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_978__melt_magic_disc.val)-1);
- 
- /*inistring dstr_979__OBMAG_OBJE*/
- /*_.VALSTR___V985*/ curfptr[984] = (void*)&cdat->dstr_979__OBMAG_OBJE;
-  cdat->dstr_979__OBMAG_OBJE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_979__OBMAG_OBJE.val, ")) == OBMAG_OBJECT)", sizeof(cdat->dstr_979__OBMAG_OBJE.val)-1);
- 
- /*inistring dstr_980__IS_OBJECT*/
- /*_.VALSTR___V981*/ curfptr[980] = (void*)&cdat->dstr_980__IS_OBJECT;
-  cdat->dstr_980__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_980__IS_OBJECT.val, "IS_OBJECT", sizeof(cdat->dstr_980__IS_OBJECT.val)-1);
- 
- /*iniobj dsym_981__IS_NOT_OBJECT*/
- if (!/*_.VALDATA___V987*/ curfptr[986]) /*_.VALDATA___V987*/ curfptr[986] = (void*)&cdat->dsym_981__IS_NOT_OBJECT;
-  melt_assertmsg("iniobj checkdiscr dsym_981__IS_NOT_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_981__IS_NOT_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_981__IS_NOT_OBJECT.obj_hash = 616371880;
-  cdat->dsym_981__IS_NOT_OBJECT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_981__IS_NOT_OBJECT));
- 
- /*inistring dstr_982__IS_NOT_OBJECT*/
- /*_.VALSTR___V988*/ curfptr[987] = (void*)&cdat->dstr_982__IS_NOT_OBJECT;
-  cdat->dstr_982__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_982__IS_NOT_OBJECT.val, "IS_NOT_OBJECT", sizeof(cdat->dstr_982__IS_NOT_OBJECT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:806:/ iniobj");
- /*iniobj dobj_983__IS_NOT_OBJECT*/
- if (!/*_.VALDATA___V989*/ curfptr[988]) /*_.VALDATA___V989*/ curfptr[988] = (void*)&cdat->dobj_983__IS_NOT_OBJECT;
-  melt_assertmsg("iniobj checkdiscr dobj_983__IS_NOT_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_983__IS_NOT_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_983__IS_NOT_OBJECT.obj_hash = 206166365;
-  cdat->dobj_983__IS_NOT_OBJECT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_983__IS_NOT_OBJECT));
- 
- /*inimult dtup_984__IS_NOT_OBJECT*/
- /*_.VALTUP___V995*/ curfptr[994] = (void*)&cdat->dtup_984__IS_NOT_OBJECT;
-  cdat->dtup_984__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_984__IS_NOT_OBJECT.nbval = 3;
- /*inimult dtup_985__IS_NOT_OBJECT*/
- /*_.VALTUP___V992*/ curfptr[991] = (void*)&cdat->dtup_985__IS_NOT_OBJECT;
-  cdat->dtup_985__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_985__IS_NOT_OBJECT.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:806:/ iniobj");
- /*iniobj dobj_986*/
- if (!/*_.VALDATA___V991*/ curfptr[990]) /*_.VALDATA___V991*/ curfptr[990] = (void*)&cdat->dobj_986;
-  melt_assertmsg("iniobj checkdiscr dobj_986", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_986.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_986.obj_num = 0;
-  cdat->dobj_986.obj_hash = 14368555;
-  cdat->dobj_986.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_986));
- 
- /*inistring dstr_987__melt_magic_disc*/
- /*_.VALSTR___V993*/ curfptr[992] = (void*)&cdat->dstr_987__melt_magic_disc;
-  cdat->dstr_987__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_987__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_987__melt_magic_disc.val)-1);
- 
- /*inistring dstr_988__OBMAG_OBJE*/
- /*_.VALSTR___V994*/ curfptr[993] = (void*)&cdat->dstr_988__OBMAG_OBJE;
-  cdat->dstr_988__OBMAG_OBJE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_988__OBMAG_OBJE.val, ")) != OBMAG_OBJECT)", sizeof(cdat->dstr_988__OBMAG_OBJE.val)-1);
- 
- /*inistring dstr_989__IS_NOT_OBJECT*/
- /*_.VALSTR___V990*/ curfptr[989] = (void*)&cdat->dstr_989__IS_NOT_OBJECT;
-  cdat->dstr_989__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_989__IS_NOT_OBJECT.val, "IS_NOT_OBJECT", sizeof(cdat->dstr_989__IS_NOT_OBJECT.val)-1);
- 
- /*iniobj dsym_990__GET_GLOBPREDEF*/
- if (!/*_.VALDATA___V996*/ curfptr[995]) /*_.VALDATA___V996*/ curfptr[995] = (void*)&cdat->dsym_990__GET_GLOBPREDEF;
-  melt_assertmsg("iniobj checkdiscr dsym_990__GET_GLOBPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_990__GET_GLOBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_990__GET_GLOBPREDEF.obj_hash = 844364001;
-  cdat->dsym_990__GET_GLOBPREDEF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_990__GET_GLOBPREDEF));
- 
- /*inistring dstr_991__GET_GLOBPREDEF*/
- /*_.VALSTR___V997*/ curfptr[996] = (void*)&cdat->dstr_991__GET_GLOBPREDEF;
-  cdat->dstr_991__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_991__GET_GLOBPREDEF.val, "GET_GLOBPREDEF", sizeof(cdat->dstr_991__GET_GLOBPREDEF.val)-1);
+ /*iniobj dobj_930*/
+ if (!/*_.VALDATA___V933*/ curfptr[932]) /*_.VALDATA___V933*/ curfptr[932] = (void*)&cdat->dobj_930;
+  melt_assertmsg("iniobj checkdiscr dobj_930", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_930.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_930.obj_num = 0;
+  cdat->dobj_930.obj_hash = 785454267;
+  cdat->dobj_930.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_930));
+ 
+ /*iniobj dsym_931__STRC*/
+ if (!/*_.VALDATA___V937*/ curfptr[936]) /*_.VALDATA___V937*/ curfptr[936] = (void*)&cdat->dsym_931__STRC;
+  melt_assertmsg("iniobj checkdiscr dsym_931__STRC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_931__STRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_931__STRC.obj_hash = 18499245;
+  cdat->dsym_931__STRC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_931__STRC));
+ 
+ /*inistring dstr_932__STRC*/
+ /*_.VALSTR___V938*/ curfptr[937] = (void*)&cdat->dstr_932__STRC;
+  cdat->dstr_932__STRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_932__STRC.val, "STRC", sizeof(cdat->dstr_932__STRC.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:812:/ iniobj");
- /*iniobj dobj_992__GET_GLOBPREDEF*/
- if (!/*_.VALDATA___V998*/ curfptr[997]) /*_.VALDATA___V998*/ curfptr[997] = (void*)&cdat->dobj_992__GET_GLOBPREDEF;
-  melt_assertmsg("iniobj checkdiscr dobj_992__GET_GLOBPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_992__GET_GLOBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_992__GET_GLOBPREDEF.obj_hash = 36124856;
-  cdat->dobj_992__GET_GLOBPREDEF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_992__GET_GLOBPREDEF));
- 
- /*inimult dtup_993__GET_GLOBPREDEF*/
- /*_.VALTUP___V1006*/ curfptr[1005] = (void*)&cdat->dtup_993__GET_GLOBPREDEF;
-  cdat->dtup_993__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_993__GET_GLOBPREDEF.nbval = 3;
- /*inimult dtup_994__GET_GLOBPREDEF*/
- /*_.VALTUP___V1003*/ curfptr[1002] = (void*)&cdat->dtup_994__GET_GLOBPREDEF;
-  cdat->dtup_994__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_994__GET_GLOBPREDEF.nbval = 1;
- /*iniobj dsym_995__IX*/
- if (!/*_.VALDATA___V1001*/ curfptr[1000]) /*_.VALDATA___V1001*/ curfptr[1000] = (void*)&cdat->dsym_995__IX;
-  melt_assertmsg("iniobj checkdiscr dsym_995__IX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_995__IX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_995__IX.obj_hash = 57004009;
-  cdat->dsym_995__IX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_995__IX));
- 
- /*inistring dstr_996__IX*/
- /*_.VALSTR___V1002*/ curfptr[1001] = (void*)&cdat->dstr_996__IX;
-  cdat->dstr_996__IX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_996__IX.val, "IX", sizeof(cdat->dstr_996__IX.val)-1);
+ MELT_LOCATION("warmelt-first.melt:778:/ iniobj");
+ /*iniobj dobj_933*/
+ if (!/*_.VALDATA___V936*/ curfptr[935]) /*_.VALDATA___V936*/ curfptr[935] = (void*)&cdat->dobj_933;
+  melt_assertmsg("iniobj checkdiscr dobj_933", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_933.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_933.obj_num = 1;
+  cdat->dobj_933.obj_hash = 942276459;
+  cdat->dobj_933.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_933));
+ 
+ /*inistring dstr_934__meltgc_new_strin*/
+ /*_.VALSTR___V940*/ curfptr[939] = (void*)&cdat->dstr_934__meltgc_new_strin;
+  cdat->dstr_934__meltgc_new_strin.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_934__meltgc_new_strin.val, "meltgc_new_string((meltobject_ptr_t)(", sizeof(cdat->dstr_934__meltgc_new_strin.val)-1);
+ 
+ /*inistring dstr_935__*/
+ /*_.VALSTR___V941*/ curfptr[940] = (void*)&cdat->dstr_935__;
+  cdat->dstr_935__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_935__.val, "), (", sizeof(cdat->dstr_935__.val)-1);
+ 
+ /*inistring dstr_936__*/
+ /*_.VALSTR___V942*/ curfptr[941] = (void*)&cdat->dstr_936__;
+  cdat->dstr_936__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_936__.val, "))", sizeof(cdat->dstr_936__.val)-1);
+ 
+ /*inistring dstr_937__STRINGCONST2VAL*/
+ /*_.VALSTR___V932*/ curfptr[931] = (void*)&cdat->dstr_937__STRINGCONST2VAL;
+  cdat->dstr_937__STRINGCONST2VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_937__STRINGCONST2VAL.val, "STRINGCONST2VAL", sizeof(cdat->dstr_937__STRINGCONST2VAL.val)-1);
+ 
+ /*iniobj dsym_938__IS_A*/
+ if (!/*_.VALDATA___V944*/ curfptr[943]) /*_.VALDATA___V944*/ curfptr[943] = (void*)&cdat->dsym_938__IS_A;
+  melt_assertmsg("iniobj checkdiscr dsym_938__IS_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_938__IS_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_938__IS_A.obj_hash = 732555866;
+  cdat->dsym_938__IS_A.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_938__IS_A));
+ 
+ /*inistring dstr_939__IS_A*/
+ /*_.VALSTR___V945*/ curfptr[944] = (void*)&cdat->dstr_939__IS_A;
+  cdat->dstr_939__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_939__IS_A.val, "IS_A", sizeof(cdat->dstr_939__IS_A.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:784:/ iniobj");
+ /*iniobj dobj_940__IS_A*/
+ if (!/*_.VALDATA___V946*/ curfptr[945]) /*_.VALDATA___V946*/ curfptr[945] = (void*)&cdat->dobj_940__IS_A;
+  melt_assertmsg("iniobj checkdiscr dobj_940__IS_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_940__IS_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_940__IS_A.obj_hash = 38211462;
+  cdat->dobj_940__IS_A.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_940__IS_A));
+ 
+ /*inimult dtup_941__IS_A*/
+ /*_.VALTUP___V958*/ curfptr[957] = (void*)&cdat->dtup_941__IS_A;
+  cdat->dtup_941__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_941__IS_A.nbval = 5;
+ /*inimult dtup_942__IS_A*/
+ /*_.VALTUP___V954*/ curfptr[953] = (void*)&cdat->dtup_942__IS_A;
+  cdat->dtup_942__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_942__IS_A.nbval = 2;
+ /*iniobj dsym_943__OBJ*/
+ if (!/*_.VALDATA___V949*/ curfptr[948]) /*_.VALDATA___V949*/ curfptr[948] = (void*)&cdat->dsym_943__OBJ;
+  melt_assertmsg("iniobj checkdiscr dsym_943__OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_943__OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_943__OBJ.obj_hash = 123734377;
+  cdat->dsym_943__OBJ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_943__OBJ));
+ 
+ /*inistring dstr_944__OBJ*/
+ /*_.VALSTR___V950*/ curfptr[949] = (void*)&cdat->dstr_944__OBJ;
+  cdat->dstr_944__OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_944__OBJ.val, "OBJ", sizeof(cdat->dstr_944__OBJ.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:784:/ iniobj");
+ /*iniobj dobj_945*/
+ if (!/*_.VALDATA___V948*/ curfptr[947]) /*_.VALDATA___V948*/ curfptr[947] = (void*)&cdat->dobj_945;
+  melt_assertmsg("iniobj checkdiscr dobj_945", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_945.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_945.obj_num = 0;
+  cdat->dobj_945.obj_hash = 629688778;
+  cdat->dobj_945.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_945));
+ 
+ /*iniobj dsym_946__CLA*/
+ if (!/*_.VALDATA___V952*/ curfptr[951]) /*_.VALDATA___V952*/ curfptr[951] = (void*)&cdat->dsym_946__CLA;
+  melt_assertmsg("iniobj checkdiscr dsym_946__CLA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_946__CLA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_946__CLA.obj_hash = 63658;
+  cdat->dsym_946__CLA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_946__CLA));
+ 
+ /*inistring dstr_947__CLA*/
+ /*_.VALSTR___V953*/ curfptr[952] = (void*)&cdat->dstr_947__CLA;
+  cdat->dstr_947__CLA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_947__CLA.val, "CLA", sizeof(cdat->dstr_947__CLA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:784:/ iniobj");
+ /*iniobj dobj_948*/
+ if (!/*_.VALDATA___V951*/ curfptr[950]) /*_.VALDATA___V951*/ curfptr[950] = (void*)&cdat->dobj_948;
+  melt_assertmsg("iniobj checkdiscr dobj_948", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_948.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_948.obj_num = 1;
+  cdat->dobj_948.obj_hash = 315932291;
+  cdat->dobj_948.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_948));
+ 
+ /*inistring dstr_949__melt_is_instance*/
+ /*_.VALSTR___V955*/ curfptr[954] = (void*)&cdat->dstr_949__melt_is_instance;
+  cdat->dstr_949__melt_is_instance.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_949__melt_is_instance.val, "melt_is_instance_of((melt_ptr_t)(", sizeof(cdat->dstr_949__melt_is_instance.val)-1);
+ 
+ /*inistring dstr_950__melt_ptr_t_*/
+ /*_.VALSTR___V956*/ curfptr[955] = (void*)&cdat->dstr_950__melt_ptr_t_;
+  cdat->dstr_950__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_950__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_950__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_951__*/
+ /*_.VALSTR___V957*/ curfptr[956] = (void*)&cdat->dstr_951__;
+  cdat->dstr_951__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_951__.val, "))", sizeof(cdat->dstr_951__.val)-1);
+ 
+ /*inistring dstr_952__IS_A*/
+ /*_.VALSTR___V947*/ curfptr[946] = (void*)&cdat->dstr_952__IS_A;
+  cdat->dstr_952__IS_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_952__IS_A.val, "IS_A", sizeof(cdat->dstr_952__IS_A.val)-1);
+ 
+ /*iniobj dsym_953__IS_NOT_A*/
+ if (!/*_.VALDATA___V959*/ curfptr[958]) /*_.VALDATA___V959*/ curfptr[958] = (void*)&cdat->dsym_953__IS_NOT_A;
+  melt_assertmsg("iniobj checkdiscr dsym_953__IS_NOT_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_953__IS_NOT_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_953__IS_NOT_A.obj_hash = 368723648;
+  cdat->dsym_953__IS_NOT_A.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_953__IS_NOT_A));
+ 
+ /*inistring dstr_954__IS_NOT_A*/
+ /*_.VALSTR___V960*/ curfptr[959] = (void*)&cdat->dstr_954__IS_NOT_A;
+  cdat->dstr_954__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_954__IS_NOT_A.val, "IS_NOT_A", sizeof(cdat->dstr_954__IS_NOT_A.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:791:/ iniobj");
+ /*iniobj dobj_955__IS_NOT_A*/
+ if (!/*_.VALDATA___V961*/ curfptr[960]) /*_.VALDATA___V961*/ curfptr[960] = (void*)&cdat->dobj_955__IS_NOT_A;
+  melt_assertmsg("iniobj checkdiscr dobj_955__IS_NOT_A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_955__IS_NOT_A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_955__IS_NOT_A.obj_hash = 841309439;
+  cdat->dobj_955__IS_NOT_A.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_955__IS_NOT_A));
+ 
+ /*inimult dtup_956__IS_NOT_A*/
+ /*_.VALTUP___V969*/ curfptr[968] = (void*)&cdat->dtup_956__IS_NOT_A;
+  cdat->dtup_956__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_956__IS_NOT_A.nbval = 5;
+ /*inimult dtup_957__IS_NOT_A*/
+ /*_.VALTUP___V965*/ curfptr[964] = (void*)&cdat->dtup_957__IS_NOT_A;
+  cdat->dtup_957__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_957__IS_NOT_A.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:791:/ iniobj");
+ /*iniobj dobj_958*/
+ if (!/*_.VALDATA___V963*/ curfptr[962]) /*_.VALDATA___V963*/ curfptr[962] = (void*)&cdat->dobj_958;
+  melt_assertmsg("iniobj checkdiscr dobj_958", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_958.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_958.obj_num = 0;
+  cdat->dobj_958.obj_hash = 618217858;
+  cdat->dobj_958.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_958));
+ 
+ MELT_LOCATION("warmelt-first.melt:791:/ iniobj");
+ /*iniobj dobj_959*/
+ if (!/*_.VALDATA___V964*/ curfptr[963]) /*_.VALDATA___V964*/ curfptr[963] = (void*)&cdat->dobj_959;
+  melt_assertmsg("iniobj checkdiscr dobj_959", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_959.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_959.obj_num = 1;
+  cdat->dobj_959.obj_hash = 597451694;
+  cdat->dobj_959.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_959));
+ 
+ /*inistring dstr_960__melt_is_instanc*/
+ /*_.VALSTR___V966*/ curfptr[965] = (void*)&cdat->dstr_960__melt_is_instanc;
+  cdat->dstr_960__melt_is_instanc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_960__melt_is_instanc.val, "!melt_is_instance_of((melt_ptr_t)(", sizeof(cdat->dstr_960__melt_is_instanc.val)-1);
+ 
+ /*inistring dstr_961__melt_ptr_t_*/
+ /*_.VALSTR___V967*/ curfptr[966] = (void*)&cdat->dstr_961__melt_ptr_t_;
+  cdat->dstr_961__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_961__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_961__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_962__*/
+ /*_.VALSTR___V968*/ curfptr[967] = (void*)&cdat->dstr_962__;
+  cdat->dstr_962__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_962__.val, "))", sizeof(cdat->dstr_962__.val)-1);
+ 
+ /*inistring dstr_963__IS_NOT_A*/
+ /*_.VALSTR___V962*/ curfptr[961] = (void*)&cdat->dstr_963__IS_NOT_A;
+  cdat->dstr_963__IS_NOT_A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_963__IS_NOT_A.val, "IS_NOT_A", sizeof(cdat->dstr_963__IS_NOT_A.val)-1);
+ 
+ /*iniobj dsym_964__IS_OBJECT*/
+ if (!/*_.VALDATA___V970*/ curfptr[969]) /*_.VALDATA___V970*/ curfptr[969] = (void*)&cdat->dsym_964__IS_OBJECT;
+  melt_assertmsg("iniobj checkdiscr dsym_964__IS_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_964__IS_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_964__IS_OBJECT.obj_hash = 480792275;
+  cdat->dsym_964__IS_OBJECT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_964__IS_OBJECT));
+ 
+ /*inistring dstr_965__IS_OBJECT*/
+ /*_.VALSTR___V971*/ curfptr[970] = (void*)&cdat->dstr_965__IS_OBJECT;
+  cdat->dstr_965__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_965__IS_OBJECT.val, "IS_OBJECT", sizeof(cdat->dstr_965__IS_OBJECT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:797:/ iniobj");
+ /*iniobj dobj_966__IS_OBJECT*/
+ if (!/*_.VALDATA___V972*/ curfptr[971]) /*_.VALDATA___V972*/ curfptr[971] = (void*)&cdat->dobj_966__IS_OBJECT;
+  melt_assertmsg("iniobj checkdiscr dobj_966__IS_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_966__IS_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_966__IS_OBJECT.obj_hash = 217125367;
+  cdat->dobj_966__IS_OBJECT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_966__IS_OBJECT));
+ 
+ /*inimult dtup_967__IS_OBJECT*/
+ /*_.VALTUP___V978*/ curfptr[977] = (void*)&cdat->dtup_967__IS_OBJECT;
+  cdat->dtup_967__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_967__IS_OBJECT.nbval = 3;
+ /*inimult dtup_968__IS_OBJECT*/
+ /*_.VALTUP___V975*/ curfptr[974] = (void*)&cdat->dtup_968__IS_OBJECT;
+  cdat->dtup_968__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_968__IS_OBJECT.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:797:/ iniobj");
+ /*iniobj dobj_969*/
+ if (!/*_.VALDATA___V974*/ curfptr[973]) /*_.VALDATA___V974*/ curfptr[973] = (void*)&cdat->dobj_969;
+  melt_assertmsg("iniobj checkdiscr dobj_969", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_969.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_969.obj_num = 0;
+  cdat->dobj_969.obj_hash = 386582340;
+  cdat->dobj_969.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_969));
+ 
+ /*inistring dstr_970__melt_magic_disc*/
+ /*_.VALSTR___V976*/ curfptr[975] = (void*)&cdat->dstr_970__melt_magic_disc;
+  cdat->dstr_970__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_970__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_970__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_971__OBMAG_OBJE*/
+ /*_.VALSTR___V977*/ curfptr[976] = (void*)&cdat->dstr_971__OBMAG_OBJE;
+  cdat->dstr_971__OBMAG_OBJE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_971__OBMAG_OBJE.val, ")) == OBMAG_OBJECT)", sizeof(cdat->dstr_971__OBMAG_OBJE.val)-1);
+ 
+ /*inistring dstr_972__IS_OBJECT*/
+ /*_.VALSTR___V973*/ curfptr[972] = (void*)&cdat->dstr_972__IS_OBJECT;
+  cdat->dstr_972__IS_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_972__IS_OBJECT.val, "IS_OBJECT", sizeof(cdat->dstr_972__IS_OBJECT.val)-1);
+ 
+ /*iniobj dsym_973__IS_NOT_OBJECT*/
+ if (!/*_.VALDATA___V979*/ curfptr[978]) /*_.VALDATA___V979*/ curfptr[978] = (void*)&cdat->dsym_973__IS_NOT_OBJECT;
+  melt_assertmsg("iniobj checkdiscr dsym_973__IS_NOT_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_973__IS_NOT_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_973__IS_NOT_OBJECT.obj_hash = 616371880;
+  cdat->dsym_973__IS_NOT_OBJECT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_973__IS_NOT_OBJECT));
+ 
+ /*inistring dstr_974__IS_NOT_OBJECT*/
+ /*_.VALSTR___V980*/ curfptr[979] = (void*)&cdat->dstr_974__IS_NOT_OBJECT;
+  cdat->dstr_974__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_974__IS_NOT_OBJECT.val, "IS_NOT_OBJECT", sizeof(cdat->dstr_974__IS_NOT_OBJECT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:801:/ iniobj");
+ /*iniobj dobj_975__IS_NOT_OBJECT*/
+ if (!/*_.VALDATA___V981*/ curfptr[980]) /*_.VALDATA___V981*/ curfptr[980] = (void*)&cdat->dobj_975__IS_NOT_OBJECT;
+  melt_assertmsg("iniobj checkdiscr dobj_975__IS_NOT_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_975__IS_NOT_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_975__IS_NOT_OBJECT.obj_hash = 501577827;
+  cdat->dobj_975__IS_NOT_OBJECT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_975__IS_NOT_OBJECT));
+ 
+ /*inimult dtup_976__IS_NOT_OBJECT*/
+ /*_.VALTUP___V987*/ curfptr[986] = (void*)&cdat->dtup_976__IS_NOT_OBJECT;
+  cdat->dtup_976__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_976__IS_NOT_OBJECT.nbval = 3;
+ /*inimult dtup_977__IS_NOT_OBJECT*/
+ /*_.VALTUP___V984*/ curfptr[983] = (void*)&cdat->dtup_977__IS_NOT_OBJECT;
+  cdat->dtup_977__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_977__IS_NOT_OBJECT.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:801:/ iniobj");
+ /*iniobj dobj_978*/
+ if (!/*_.VALDATA___V983*/ curfptr[982]) /*_.VALDATA___V983*/ curfptr[982] = (void*)&cdat->dobj_978;
+  melt_assertmsg("iniobj checkdiscr dobj_978", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_978.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_978.obj_num = 0;
+  cdat->dobj_978.obj_hash = 977050709;
+  cdat->dobj_978.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_978));
+ 
+ /*inistring dstr_979__melt_magic_disc*/
+ /*_.VALSTR___V985*/ curfptr[984] = (void*)&cdat->dstr_979__melt_magic_disc;
+  cdat->dstr_979__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_979__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_979__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_980__OBMAG_OBJE*/
+ /*_.VALSTR___V986*/ curfptr[985] = (void*)&cdat->dstr_980__OBMAG_OBJE;
+  cdat->dstr_980__OBMAG_OBJE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_980__OBMAG_OBJE.val, ")) != OBMAG_OBJECT)", sizeof(cdat->dstr_980__OBMAG_OBJE.val)-1);
+ 
+ /*inistring dstr_981__IS_NOT_OBJECT*/
+ /*_.VALSTR___V982*/ curfptr[981] = (void*)&cdat->dstr_981__IS_NOT_OBJECT;
+  cdat->dstr_981__IS_NOT_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_981__IS_NOT_OBJECT.val, "IS_NOT_OBJECT", sizeof(cdat->dstr_981__IS_NOT_OBJECT.val)-1);
+ 
+ /*iniobj dsym_982__GET_GLOBPREDEF*/
+ if (!/*_.VALDATA___V988*/ curfptr[987]) /*_.VALDATA___V988*/ curfptr[987] = (void*)&cdat->dsym_982__GET_GLOBPREDEF;
+  melt_assertmsg("iniobj checkdiscr dsym_982__GET_GLOBPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_982__GET_GLOBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_982__GET_GLOBPREDEF.obj_hash = 844364001;
+  cdat->dsym_982__GET_GLOBPREDEF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_982__GET_GLOBPREDEF));
+ 
+ /*inistring dstr_983__GET_GLOBPREDEF*/
+ /*_.VALSTR___V989*/ curfptr[988] = (void*)&cdat->dstr_983__GET_GLOBPREDEF;
+  cdat->dstr_983__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_983__GET_GLOBPREDEF.val, "GET_GLOBPREDEF", sizeof(cdat->dstr_983__GET_GLOBPREDEF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:807:/ iniobj");
+ /*iniobj dobj_984__GET_GLOBPREDEF*/
+ if (!/*_.VALDATA___V990*/ curfptr[989]) /*_.VALDATA___V990*/ curfptr[989] = (void*)&cdat->dobj_984__GET_GLOBPREDEF;
+  melt_assertmsg("iniobj checkdiscr dobj_984__GET_GLOBPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_984__GET_GLOBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_984__GET_GLOBPREDEF.obj_hash = 371480992;
+  cdat->dobj_984__GET_GLOBPREDEF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_984__GET_GLOBPREDEF));
+ 
+ /*inimult dtup_985__GET_GLOBPREDEF*/
+ /*_.VALTUP___V998*/ curfptr[997] = (void*)&cdat->dtup_985__GET_GLOBPREDEF;
+  cdat->dtup_985__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_985__GET_GLOBPREDEF.nbval = 3;
+ /*inimult dtup_986__GET_GLOBPREDEF*/
+ /*_.VALTUP___V995*/ curfptr[994] = (void*)&cdat->dtup_986__GET_GLOBPREDEF;
+  cdat->dtup_986__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_986__GET_GLOBPREDEF.nbval = 1;
+ /*iniobj dsym_987__IX*/
+ if (!/*_.VALDATA___V993*/ curfptr[992]) /*_.VALDATA___V993*/ curfptr[992] = (void*)&cdat->dsym_987__IX;
+  melt_assertmsg("iniobj checkdiscr dsym_987__IX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_987__IX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_987__IX.obj_hash = 57004009;
+  cdat->dsym_987__IX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_987__IX));
+ 
+ /*inistring dstr_988__IX*/
+ /*_.VALSTR___V994*/ curfptr[993] = (void*)&cdat->dstr_988__IX;
+  cdat->dstr_988__IX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_988__IX.val, "IX", sizeof(cdat->dstr_988__IX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:807:/ iniobj");
+ /*iniobj dobj_989*/
+ if (!/*_.VALDATA___V992*/ curfptr[991]) /*_.VALDATA___V992*/ curfptr[991] = (void*)&cdat->dobj_989;
+  melt_assertmsg("iniobj checkdiscr dobj_989", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_989.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_989.obj_num = 0;
+  cdat->dobj_989.obj_hash = 826285996;
+  cdat->dobj_989.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_989));
+ 
+ /*inistring dstr_990__melt_globpredef*/
+ /*_.VALSTR___V996*/ curfptr[995] = (void*)&cdat->dstr_990__melt_globpredef;
+  cdat->dstr_990__melt_globpredef.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_990__melt_globpredef.val, "(melt_globpredef(", sizeof(cdat->dstr_990__melt_globpredef.val)-1);
+ 
+ /*inistring dstr_991__*/
+ /*_.VALSTR___V997*/ curfptr[996] = (void*)&cdat->dstr_991__;
+  cdat->dstr_991__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_991__.val, "))", sizeof(cdat->dstr_991__.val)-1);
+ 
+ /*inistring dstr_992__GET_GLOBPREDEF*/
+ /*_.VALSTR___V991*/ curfptr[990] = (void*)&cdat->dstr_992__GET_GLOBPREDEF;
+  cdat->dstr_992__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_992__GET_GLOBPREDEF.val, "GET_GLOBPREDEF", sizeof(cdat->dstr_992__GET_GLOBPREDEF.val)-1);
+ 
+ /*iniobj dsym_993__DISCRIM*/
+ if (!/*_.VALDATA___V999*/ curfptr[998]) /*_.VALDATA___V999*/ curfptr[998] = (void*)&cdat->dsym_993__DISCRIM;
+  melt_assertmsg("iniobj checkdiscr dsym_993__DISCRIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_993__DISCRIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_993__DISCRIM.obj_hash = 608204218;
+  cdat->dsym_993__DISCRIM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_993__DISCRIM));
+ 
+ /*inistring dstr_994__DISCRIM*/
+ /*_.VALSTR___V1000*/ curfptr[999] = (void*)&cdat->dstr_994__DISCRIM;
+  cdat->dstr_994__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_994__DISCRIM.val, "DISCRIM", sizeof(cdat->dstr_994__DISCRIM.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:812:/ iniobj");
- /*iniobj dobj_997*/
- if (!/*_.VALDATA___V1000*/ curfptr[999]) /*_.VALDATA___V1000*/ curfptr[999] = (void*)&cdat->dobj_997;
-  melt_assertmsg("iniobj checkdiscr dobj_997", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_997.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_997.obj_num = 0;
-  cdat->dobj_997.obj_hash = 569699508;
-  cdat->dobj_997.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_997));
- 
- /*inistring dstr_998__melt_globpredef*/
- /*_.VALSTR___V1004*/ curfptr[1003] = (void*)&cdat->dstr_998__melt_globpredef;
-  cdat->dstr_998__melt_globpredef.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_998__melt_globpredef.val, "(melt_globpredef(", sizeof(cdat->dstr_998__melt_globpredef.val)-1);
- 
- /*inistring dstr_999__*/
- /*_.VALSTR___V1005*/ curfptr[1004] = (void*)&cdat->dstr_999__;
-  cdat->dstr_999__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_999__.val, "))", sizeof(cdat->dstr_999__.val)-1);
- 
- /*inistring dstr_1000__GET_GLOBPREDEF*/
- /*_.VALSTR___V999*/ curfptr[998] = (void*)&cdat->dstr_1000__GET_GLOBPREDEF;
-  cdat->dstr_1000__GET_GLOBPREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1000__GET_GLOBPREDEF.val, "GET_GLOBPREDEF", sizeof(cdat->dstr_1000__GET_GLOBPREDEF.val)-1);
- 
- /*iniobj dsym_1001__DISCRIM*/
- if (!/*_.VALDATA___V1007*/ curfptr[1006]) /*_.VALDATA___V1007*/ curfptr[1006] = (void*)&cdat->dsym_1001__DISCRIM;
-  melt_assertmsg("iniobj checkdiscr dsym_1001__DISCRIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1001__DISCRIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1001__DISCRIM.obj_hash = 608204218;
-  cdat->dsym_1001__DISCRIM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1001__DISCRIM));
- 
- /*inistring dstr_1002__DISCRIM*/
- /*_.VALSTR___V1008*/ curfptr[1007] = (void*)&cdat->dstr_1002__DISCRIM;
-  cdat->dstr_1002__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1002__DISCRIM.val, "DISCRIM", sizeof(cdat->dstr_1002__DISCRIM.val)-1);
+ /*iniobj dobj_995__DISCRIM*/
+ if (!/*_.VALDATA___V1001*/ curfptr[1000]) /*_.VALDATA___V1001*/ curfptr[1000] = (void*)&cdat->dobj_995__DISCRIM;
+  melt_assertmsg("iniobj checkdiscr dobj_995__DISCRIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_995__DISCRIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_995__DISCRIM.obj_hash = 259557783;
+  cdat->dobj_995__DISCRIM.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_995__DISCRIM));
+ 
+ /*inimult dtup_996__DISCRIM*/
+ /*_.VALTUP___V1007*/ curfptr[1006] = (void*)&cdat->dtup_996__DISCRIM;
+  cdat->dtup_996__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_996__DISCRIM.nbval = 3;
+ /*inimult dtup_997__DISCRIM*/
+ /*_.VALTUP___V1004*/ curfptr[1003] = (void*)&cdat->dtup_997__DISCRIM;
+  cdat->dtup_997__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_997__DISCRIM.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:812:/ iniobj");
+ /*iniobj dobj_998*/
+ if (!/*_.VALDATA___V1003*/ curfptr[1002]) /*_.VALDATA___V1003*/ curfptr[1002] = (void*)&cdat->dobj_998;
+  melt_assertmsg("iniobj checkdiscr dobj_998", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_998.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_998.obj_num = 0;
+  cdat->dobj_998.obj_hash = 739664101;
+  cdat->dobj_998.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_998));
+ 
+ /*inistring dstr_999__melt_discr_mel*/
+ /*_.VALSTR___V1005*/ curfptr[1004] = (void*)&cdat->dstr_999__melt_discr_mel;
+  cdat->dstr_999__melt_discr_mel.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_999__melt_discr_mel.val, "(melt_discr((melt_ptr_t)(", sizeof(cdat->dstr_999__melt_discr_mel.val)-1);
+ 
+ /*inistring dstr_1000__*/
+ /*_.VALSTR___V1006*/ curfptr[1005] = (void*)&cdat->dstr_1000__;
+  cdat->dstr_1000__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1000__.val, ")))", sizeof(cdat->dstr_1000__.val)-1);
+ 
+ /*inistring dstr_1001__DISCRIM*/
+ /*_.VALSTR___V1002*/ curfptr[1001] = (void*)&cdat->dstr_1001__DISCRIM;
+  cdat->dstr_1001__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1001__DISCRIM.val, "DISCRIM", sizeof(cdat->dstr_1001__DISCRIM.val)-1);
+ 
+ /*iniobj dsym_1002__GET_INT*/
+ if (!/*_.VALDATA___V1008*/ curfptr[1007]) /*_.VALDATA___V1008*/ curfptr[1007] = (void*)&cdat->dsym_1002__GET_INT;
+  melt_assertmsg("iniobj checkdiscr dsym_1002__GET_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1002__GET_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1002__GET_INT.obj_hash = 330332949;
+  cdat->dsym_1002__GET_INT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1002__GET_INT));
+ 
+ /*inistring dstr_1003__GET_INT*/
+ /*_.VALSTR___V1009*/ curfptr[1008] = (void*)&cdat->dstr_1003__GET_INT;
+  cdat->dstr_1003__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1003__GET_INT.val, "GET_INT", sizeof(cdat->dstr_1003__GET_INT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:817:/ iniobj");
- /*iniobj dobj_1003__DISCRIM*/
- if (!/*_.VALDATA___V1009*/ curfptr[1008]) /*_.VALDATA___V1009*/ curfptr[1008] = (void*)&cdat->dobj_1003__DISCRIM;
-  melt_assertmsg("iniobj checkdiscr dobj_1003__DISCRIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1003__DISCRIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1003__DISCRIM.obj_hash = 1062901026;
-  cdat->dobj_1003__DISCRIM.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1003__DISCRIM));
- 
- /*inimult dtup_1004__DISCRIM*/
- /*_.VALTUP___V1015*/ curfptr[1014] = (void*)&cdat->dtup_1004__DISCRIM;
-  cdat->dtup_1004__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1004__DISCRIM.nbval = 3;
- /*inimult dtup_1005__DISCRIM*/
- /*_.VALTUP___V1012*/ curfptr[1011] = (void*)&cdat->dtup_1005__DISCRIM;
-  cdat->dtup_1005__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1005__DISCRIM.nbval = 1;
+ /*iniobj dobj_1004__GET_INT*/
+ if (!/*_.VALDATA___V1010*/ curfptr[1009]) /*_.VALDATA___V1010*/ curfptr[1009] = (void*)&cdat->dobj_1004__GET_INT;
+  melt_assertmsg("iniobj checkdiscr dobj_1004__GET_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1004__GET_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1004__GET_INT.obj_hash = 423242563;
+  cdat->dobj_1004__GET_INT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1004__GET_INT));
+ 
+ /*inimult dtup_1005__GET_INT*/
+ /*_.VALTUP___V1016*/ curfptr[1015] = (void*)&cdat->dtup_1005__GET_INT;
+  cdat->dtup_1005__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1005__GET_INT.nbval = 3;
+ /*inimult dtup_1006__GET_INT*/
+ /*_.VALTUP___V1013*/ curfptr[1012] = (void*)&cdat->dtup_1006__GET_INT;
+  cdat->dtup_1006__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1006__GET_INT.nbval = 1;
  MELT_LOCATION("warmelt-first.melt:817:/ iniobj");
- /*iniobj dobj_1006*/
- if (!/*_.VALDATA___V1011*/ curfptr[1010]) /*_.VALDATA___V1011*/ curfptr[1010] = (void*)&cdat->dobj_1006;
-  melt_assertmsg("iniobj checkdiscr dobj_1006", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1006.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1006.obj_num = 0;
-  cdat->dobj_1006.obj_hash = 583309433;
-  cdat->dobj_1006.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1006));
- 
- /*inistring dstr_1007__melt_discr_mel*/
- /*_.VALSTR___V1013*/ curfptr[1012] = (void*)&cdat->dstr_1007__melt_discr_mel;
-  cdat->dstr_1007__melt_discr_mel.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1007__melt_discr_mel.val, "(melt_discr((melt_ptr_t)(", sizeof(cdat->dstr_1007__melt_discr_mel.val)-1);
- 
- /*inistring dstr_1008__*/
- /*_.VALSTR___V1014*/ curfptr[1013] = (void*)&cdat->dstr_1008__;
-  cdat->dstr_1008__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1008__.val, ")))", sizeof(cdat->dstr_1008__.val)-1);
- 
- /*inistring dstr_1009__DISCRIM*/
- /*_.VALSTR___V1010*/ curfptr[1009] = (void*)&cdat->dstr_1009__DISCRIM;
-  cdat->dstr_1009__DISCRIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1009__DISCRIM.val, "DISCRIM", sizeof(cdat->dstr_1009__DISCRIM.val)-1);
- 
- /*iniobj dsym_1010__GET_INT*/
- if (!/*_.VALDATA___V1016*/ curfptr[1015]) /*_.VALDATA___V1016*/ curfptr[1015] = (void*)&cdat->dsym_1010__GET_INT;
-  melt_assertmsg("iniobj checkdiscr dsym_1010__GET_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1010__GET_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1010__GET_INT.obj_hash = 330332949;
-  cdat->dsym_1010__GET_INT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1010__GET_INT));
- 
- /*inistring dstr_1011__GET_INT*/
- /*_.VALSTR___V1017*/ curfptr[1016] = (void*)&cdat->dstr_1011__GET_INT;
-  cdat->dstr_1011__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1011__GET_INT.val, "GET_INT", sizeof(cdat->dstr_1011__GET_INT.val)-1);
+ /*iniobj dobj_1007*/
+ if (!/*_.VALDATA___V1012*/ curfptr[1011]) /*_.VALDATA___V1012*/ curfptr[1011] = (void*)&cdat->dobj_1007;
+  melt_assertmsg("iniobj checkdiscr dobj_1007", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1007.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1007.obj_num = 0;
+  cdat->dobj_1007.obj_hash = 231004341;
+  cdat->dobj_1007.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1007));
+ 
+ /*inistring dstr_1008__melt_get_int_m*/
+ /*_.VALSTR___V1014*/ curfptr[1013] = (void*)&cdat->dstr_1008__melt_get_int_m;
+  cdat->dstr_1008__melt_get_int_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1008__melt_get_int_m.val, "(melt_get_int((melt_ptr_t)(", sizeof(cdat->dstr_1008__melt_get_int_m.val)-1);
+ 
+ /*inistring dstr_1009__*/
+ /*_.VALSTR___V1015*/ curfptr[1014] = (void*)&cdat->dstr_1009__;
+  cdat->dstr_1009__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1009__.val, ")))", sizeof(cdat->dstr_1009__.val)-1);
+ 
+ /*inistring dstr_1010__GET_INT*/
+ /*_.VALSTR___V1011*/ curfptr[1010] = (void*)&cdat->dstr_1010__GET_INT;
+  cdat->dstr_1010__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1010__GET_INT.val, "GET_INT", sizeof(cdat->dstr_1010__GET_INT.val)-1);
+ 
+ /*iniobj dsym_1011__PUT_INT*/
+ if (!/*_.VALDATA___V1017*/ curfptr[1016]) /*_.VALDATA___V1017*/ curfptr[1016] = (void*)&cdat->dsym_1011__PUT_INT;
+  melt_assertmsg("iniobj checkdiscr dsym_1011__PUT_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1011__PUT_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1011__PUT_INT.obj_hash = 266064506;
+  cdat->dsym_1011__PUT_INT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1011__PUT_INT));
+ 
+ /*inistring dstr_1012__PUT_INT*/
+ /*_.VALSTR___V1018*/ curfptr[1017] = (void*)&cdat->dstr_1012__PUT_INT;
+  cdat->dstr_1012__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1012__PUT_INT.val, "PUT_INT", sizeof(cdat->dstr_1012__PUT_INT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:822:/ iniobj");
- /*iniobj dobj_1012__GET_INT*/
- if (!/*_.VALDATA___V1018*/ curfptr[1017]) /*_.VALDATA___V1018*/ curfptr[1017] = (void*)&cdat->dobj_1012__GET_INT;
-  melt_assertmsg("iniobj checkdiscr dobj_1012__GET_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1012__GET_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1012__GET_INT.obj_hash = 999863692;
-  cdat->dobj_1012__GET_INT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1012__GET_INT));
- 
- /*inimult dtup_1013__GET_INT*/
- /*_.VALTUP___V1024*/ curfptr[1023] = (void*)&cdat->dtup_1013__GET_INT;
-  cdat->dtup_1013__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1013__GET_INT.nbval = 3;
- /*inimult dtup_1014__GET_INT*/
- /*_.VALTUP___V1021*/ curfptr[1020] = (void*)&cdat->dtup_1014__GET_INT;
-  cdat->dtup_1014__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1014__GET_INT.nbval = 1;
+ /*iniobj dobj_1013__PUT_INT*/
+ if (!/*_.VALDATA___V1019*/ curfptr[1018]) /*_.VALDATA___V1019*/ curfptr[1018] = (void*)&cdat->dobj_1013__PUT_INT;
+  melt_assertmsg("iniobj checkdiscr dobj_1013__PUT_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1013__PUT_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1013__PUT_INT.obj_hash = 604039449;
+  cdat->dobj_1013__PUT_INT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1013__PUT_INT));
+ 
+ /*inimult dtup_1014__PUT_INT*/
+ /*_.VALTUP___V1029*/ curfptr[1028] = (void*)&cdat->dtup_1014__PUT_INT;
+  cdat->dtup_1014__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1014__PUT_INT.nbval = 5;
+ /*inimult dtup_1015__PUT_INT*/
+ /*_.VALTUP___V1025*/ curfptr[1024] = (void*)&cdat->dtup_1015__PUT_INT;
+  cdat->dtup_1015__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1015__PUT_INT.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:822:/ iniobj");
- /*iniobj dobj_1015*/
- if (!/*_.VALDATA___V1020*/ curfptr[1019]) /*_.VALDATA___V1020*/ curfptr[1019] = (void*)&cdat->dobj_1015;
-  melt_assertmsg("iniobj checkdiscr dobj_1015", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1015.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1015.obj_num = 0;
-  cdat->dobj_1015.obj_hash = 250160469;
-  cdat->dobj_1015.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1015));
- 
- /*inistring dstr_1016__melt_get_int_m*/
- /*_.VALSTR___V1022*/ curfptr[1021] = (void*)&cdat->dstr_1016__melt_get_int_m;
-  cdat->dstr_1016__melt_get_int_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1016__melt_get_int_m.val, "(melt_get_int((melt_ptr_t)(", sizeof(cdat->dstr_1016__melt_get_int_m.val)-1);
- 
- /*inistring dstr_1017__*/
- /*_.VALSTR___V1023*/ curfptr[1022] = (void*)&cdat->dstr_1017__;
-  cdat->dstr_1017__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1017__.val, ")))", sizeof(cdat->dstr_1017__.val)-1);
- 
- /*inistring dstr_1018__GET_INT*/
- /*_.VALSTR___V1019*/ curfptr[1018] = (void*)&cdat->dstr_1018__GET_INT;
-  cdat->dstr_1018__GET_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1018__GET_INT.val, "GET_INT", sizeof(cdat->dstr_1018__GET_INT.val)-1);
- 
- /*iniobj dsym_1019__PUT_INT*/
- if (!/*_.VALDATA___V1025*/ curfptr[1024]) /*_.VALDATA___V1025*/ curfptr[1024] = (void*)&cdat->dsym_1019__PUT_INT;
-  melt_assertmsg("iniobj checkdiscr dsym_1019__PUT_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1019__PUT_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1019__PUT_INT.obj_hash = 266064506;
-  cdat->dsym_1019__PUT_INT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1019__PUT_INT));
- 
- /*inistring dstr_1020__PUT_INT*/
- /*_.VALSTR___V1026*/ curfptr[1025] = (void*)&cdat->dstr_1020__PUT_INT;
-  cdat->dstr_1020__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1020__PUT_INT.val, "PUT_INT", sizeof(cdat->dstr_1020__PUT_INT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:827:/ iniobj");
- /*iniobj dobj_1021__PUT_INT*/
- if (!/*_.VALDATA___V1027*/ curfptr[1026]) /*_.VALDATA___V1027*/ curfptr[1026] = (void*)&cdat->dobj_1021__PUT_INT;
-  melt_assertmsg("iniobj checkdiscr dobj_1021__PUT_INT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1021__PUT_INT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1021__PUT_INT.obj_hash = 861957483;
-  cdat->dobj_1021__PUT_INT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1021__PUT_INT));
- 
- /*inimult dtup_1022__PUT_INT*/
- /*_.VALTUP___V1037*/ curfptr[1036] = (void*)&cdat->dtup_1022__PUT_INT;
-  cdat->dtup_1022__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1022__PUT_INT.nbval = 5;
- /*inimult dtup_1023__PUT_INT*/
- /*_.VALTUP___V1033*/ curfptr[1032] = (void*)&cdat->dtup_1023__PUT_INT;
-  cdat->dtup_1023__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1023__PUT_INT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:827:/ iniobj");
- /*iniobj dobj_1024*/
- if (!/*_.VALDATA___V1029*/ curfptr[1028]) /*_.VALDATA___V1029*/ curfptr[1028] = (void*)&cdat->dobj_1024;
-  melt_assertmsg("iniobj checkdiscr dobj_1024", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1024.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1024.obj_num = 0;
-  cdat->dobj_1024.obj_hash = 696609103;
-  cdat->dobj_1024.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1024));
- 
- /*iniobj dsym_1025__I*/
- if (!/*_.VALDATA___V1031*/ curfptr[1030]) /*_.VALDATA___V1031*/ curfptr[1030] = (void*)&cdat->dsym_1025__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1025__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1025__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1025__I.obj_hash = 100956650;
-  cdat->dsym_1025__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1025__I));
- 
- /*inistring dstr_1026__I*/
- /*_.VALSTR___V1032*/ curfptr[1031] = (void*)&cdat->dstr_1026__I;
-  cdat->dstr_1026__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1026__I.val, "I", sizeof(cdat->dstr_1026__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:827:/ iniobj");
- /*iniobj dobj_1027*/
- if (!/*_.VALDATA___V1030*/ curfptr[1029]) /*_.VALDATA___V1030*/ curfptr[1029] = (void*)&cdat->dobj_1027;
-  melt_assertmsg("iniobj checkdiscr dobj_1027", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1027.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1027.obj_num = 1;
-  cdat->dobj_1027.obj_hash = 434869170;
-  cdat->dobj_1027.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1027));
- 
- /*inistring dstr_1028__melt_put_int_me*/
- /*_.VALSTR___V1034*/ curfptr[1033] = (void*)&cdat->dstr_1028__melt_put_int_me;
-  cdat->dstr_1028__melt_put_int_me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1028__melt_put_int_me.val, "melt_put_int((melt_ptr_t)(", sizeof(cdat->dstr_1028__melt_put_int_me.val)-1);
- 
- /*inistring dstr_1029__*/
- /*_.VALSTR___V1035*/ curfptr[1034] = (void*)&cdat->dstr_1029__;
-  cdat->dstr_1029__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1029__.val, "), (", sizeof(cdat->dstr_1029__.val)-1);
- 
- /*inistring dstr_1030__*/
- /*_.VALSTR___V1036*/ curfptr[1035] = (void*)&cdat->dstr_1030__;
-  cdat->dstr_1030__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1030__.val, "))", sizeof(cdat->dstr_1030__.val)-1);
- 
- /*inistring dstr_1031__PUT_INT*/
- /*_.VALSTR___V1028*/ curfptr[1027] = (void*)&cdat->dstr_1031__PUT_INT;
-  cdat->dstr_1031__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1031__PUT_INT.val, "PUT_INT", sizeof(cdat->dstr_1031__PUT_INT.val)-1);
- 
- /*iniobj dsym_1032__OBJ_HASH*/
- if (!/*_.VALDATA___V1038*/ curfptr[1037]) /*_.VALDATA___V1038*/ curfptr[1037] = (void*)&cdat->dsym_1032__OBJ_HASH;
-  melt_assertmsg("iniobj checkdiscr dsym_1032__OBJ_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1032__OBJ_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1032__OBJ_HASH.obj_hash = 147240164;
-  cdat->dsym_1032__OBJ_HASH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1032__OBJ_HASH));
- 
- /*inistring dstr_1033__OBJ_HASH*/
- /*_.VALSTR___V1039*/ curfptr[1038] = (void*)&cdat->dstr_1033__OBJ_HASH;
-  cdat->dstr_1033__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1033__OBJ_HASH.val, "OBJ_HASH", sizeof(cdat->dstr_1033__OBJ_HASH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:833:/ iniobj");
- /*iniobj dobj_1034__OBJ_HASH*/
- if (!/*_.VALDATA___V1040*/ curfptr[1039]) /*_.VALDATA___V1040*/ curfptr[1039] = (void*)&cdat->dobj_1034__OBJ_HASH;
-  melt_assertmsg("iniobj checkdiscr dobj_1034__OBJ_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1034__OBJ_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1034__OBJ_HASH.obj_hash = 61542266;
-  cdat->dobj_1034__OBJ_HASH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1034__OBJ_HASH));
- 
- /*inimult dtup_1035__OBJ_HASH*/
- /*_.VALTUP___V1046*/ curfptr[1045] = (void*)&cdat->dtup_1035__OBJ_HASH;
-  cdat->dtup_1035__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1035__OBJ_HASH.nbval = 3;
- /*inimult dtup_1036__OBJ_HASH*/
- /*_.VALTUP___V1043*/ curfptr[1042] = (void*)&cdat->dtup_1036__OBJ_HASH;
-  cdat->dtup_1036__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1036__OBJ_HASH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:833:/ iniobj");
- /*iniobj dobj_1037*/
- if (!/*_.VALDATA___V1042*/ curfptr[1041]) /*_.VALDATA___V1042*/ curfptr[1041] = (void*)&cdat->dobj_1037;
-  melt_assertmsg("iniobj checkdiscr dobj_1037", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1037.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1037.obj_num = 0;
-  cdat->dobj_1037.obj_hash = 735940597;
-  cdat->dobj_1037.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1037));
- 
- /*inistring dstr_1038__melt_obj_hash_*/
- /*_.VALSTR___V1044*/ curfptr[1043] = (void*)&cdat->dstr_1038__melt_obj_hash_;
-  cdat->dstr_1038__melt_obj_hash_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1038__melt_obj_hash_.val, "(melt_obj_hash((melt_ptr_t)(", sizeof(cdat->dstr_1038__melt_obj_hash_.val)-1);
- 
- /*inistring dstr_1039__*/
- /*_.VALSTR___V1045*/ curfptr[1044] = (void*)&cdat->dstr_1039__;
-  cdat->dstr_1039__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1039__.val, ")))", sizeof(cdat->dstr_1039__.val)-1);
- 
- /*inistring dstr_1040__OBJ_HASH*/
- /*_.VALSTR___V1041*/ curfptr[1040] = (void*)&cdat->dstr_1040__OBJ_HASH;
-  cdat->dstr_1040__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1040__OBJ_HASH.val, "OBJ_HASH", sizeof(cdat->dstr_1040__OBJ_HASH.val)-1);
- 
- /*iniobj dsym_1041__OBJ_LEN*/
- if (!/*_.VALDATA___V1047*/ curfptr[1046]) /*_.VALDATA___V1047*/ curfptr[1046] = (void*)&cdat->dsym_1041__OBJ_LEN;
-  melt_assertmsg("iniobj checkdiscr dsym_1041__OBJ_LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1041__OBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1041__OBJ_LEN.obj_hash = 933389776;
-  cdat->dsym_1041__OBJ_LEN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1041__OBJ_LEN));
- 
- /*inistring dstr_1042__OBJ_LEN*/
- /*_.VALSTR___V1048*/ curfptr[1047] = (void*)&cdat->dstr_1042__OBJ_LEN;
-  cdat->dstr_1042__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1042__OBJ_LEN.val, "OBJ_LEN", sizeof(cdat->dstr_1042__OBJ_LEN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:837:/ iniobj");
- /*iniobj dobj_1043__OBJ_LEN*/
- if (!/*_.VALDATA___V1049*/ curfptr[1048]) /*_.VALDATA___V1049*/ curfptr[1048] = (void*)&cdat->dobj_1043__OBJ_LEN;
-  melt_assertmsg("iniobj checkdiscr dobj_1043__OBJ_LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1043__OBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1043__OBJ_LEN.obj_hash = 257052092;
-  cdat->dobj_1043__OBJ_LEN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1043__OBJ_LEN));
- 
- /*inimult dtup_1044__OBJ_LEN*/
- /*_.VALTUP___V1055*/ curfptr[1054] = (void*)&cdat->dtup_1044__OBJ_LEN;
-  cdat->dtup_1044__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1044__OBJ_LEN.nbval = 3;
- /*inimult dtup_1045__OBJ_LEN*/
- /*_.VALTUP___V1052*/ curfptr[1051] = (void*)&cdat->dtup_1045__OBJ_LEN;
-  cdat->dtup_1045__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1045__OBJ_LEN.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:837:/ iniobj");
- /*iniobj dobj_1046*/
- if (!/*_.VALDATA___V1051*/ curfptr[1050]) /*_.VALDATA___V1051*/ curfptr[1050] = (void*)&cdat->dobj_1046;
-  melt_assertmsg("iniobj checkdiscr dobj_1046", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1046.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1046.obj_num = 0;
-  cdat->dobj_1046.obj_hash = 957999486;
-  cdat->dobj_1046.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1046));
- 
- /*inistring dstr_1047__melt_obj_len_m*/
- /*_.VALSTR___V1053*/ curfptr[1052] = (void*)&cdat->dstr_1047__melt_obj_len_m;
-  cdat->dstr_1047__melt_obj_len_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1047__melt_obj_len_m.val, "(melt_obj_len((melt_ptr_t)(", sizeof(cdat->dstr_1047__melt_obj_len_m.val)-1);
- 
- /*inistring dstr_1048__*/
- /*_.VALSTR___V1054*/ curfptr[1053] = (void*)&cdat->dstr_1048__;
-  cdat->dstr_1048__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1048__.val, ")))", sizeof(cdat->dstr_1048__.val)-1);
- 
- /*inistring dstr_1049__OBJ_LEN*/
- /*_.VALSTR___V1050*/ curfptr[1049] = (void*)&cdat->dstr_1049__OBJ_LEN;
-  cdat->dstr_1049__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1049__OBJ_LEN.val, "OBJ_LEN", sizeof(cdat->dstr_1049__OBJ_LEN.val)-1);
- 
- /*iniobj dsym_1050__OBJ_NUM*/
- if (!/*_.VALDATA___V1056*/ curfptr[1055]) /*_.VALDATA___V1056*/ curfptr[1055] = (void*)&cdat->dsym_1050__OBJ_NUM;
-  melt_assertmsg("iniobj checkdiscr dsym_1050__OBJ_NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1050__OBJ_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1050__OBJ_NUM.obj_hash = 537004636;
-  cdat->dsym_1050__OBJ_NUM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1050__OBJ_NUM));
- 
- /*inistring dstr_1051__OBJ_NUM*/
- /*_.VALSTR___V1057*/ curfptr[1056] = (void*)&cdat->dstr_1051__OBJ_NUM;
-  cdat->dstr_1051__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1051__OBJ_NUM.val, "OBJ_NUM", sizeof(cdat->dstr_1051__OBJ_NUM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:841:/ iniobj");
- /*iniobj dobj_1052__OBJ_NUM*/
- if (!/*_.VALDATA___V1058*/ curfptr[1057]) /*_.VALDATA___V1058*/ curfptr[1057] = (void*)&cdat->dobj_1052__OBJ_NUM;
-  melt_assertmsg("iniobj checkdiscr dobj_1052__OBJ_NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1052__OBJ_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1052__OBJ_NUM.obj_hash = 664152372;
-  cdat->dobj_1052__OBJ_NUM.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1052__OBJ_NUM));
- 
- /*inimult dtup_1053__OBJ_NUM*/
- /*_.VALTUP___V1064*/ curfptr[1063] = (void*)&cdat->dtup_1053__OBJ_NUM;
-  cdat->dtup_1053__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1053__OBJ_NUM.nbval = 3;
- /*inimult dtup_1054__OBJ_NUM*/
- /*_.VALTUP___V1061*/ curfptr[1060] = (void*)&cdat->dtup_1054__OBJ_NUM;
-  cdat->dtup_1054__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1054__OBJ_NUM.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:841:/ iniobj");
- /*iniobj dobj_1055*/
- if (!/*_.VALDATA___V1060*/ curfptr[1059]) /*_.VALDATA___V1060*/ curfptr[1059] = (void*)&cdat->dobj_1055;
-  melt_assertmsg("iniobj checkdiscr dobj_1055", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1055.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1055.obj_num = 0;
-  cdat->dobj_1055.obj_hash = 526248229;
-  cdat->dobj_1055.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1055));
- 
- /*inistring dstr_1056__melt_obj_num_m*/
- /*_.VALSTR___V1062*/ curfptr[1061] = (void*)&cdat->dstr_1056__melt_obj_num_m;
-  cdat->dstr_1056__melt_obj_num_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1056__melt_obj_num_m.val, "(melt_obj_num((melt_ptr_t)(", sizeof(cdat->dstr_1056__melt_obj_num_m.val)-1);
- 
- /*inistring dstr_1057__*/
- /*_.VALSTR___V1063*/ curfptr[1062] = (void*)&cdat->dstr_1057__;
-  cdat->dstr_1057__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1057__.val, ")))", sizeof(cdat->dstr_1057__.val)-1);
- 
- /*inistring dstr_1058__OBJ_NUM*/
- /*_.VALSTR___V1059*/ curfptr[1058] = (void*)&cdat->dstr_1058__OBJ_NUM;
-  cdat->dstr_1058__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1058__OBJ_NUM.val, "OBJ_NUM", sizeof(cdat->dstr_1058__OBJ_NUM.val)-1);
- 
- /*iniobj dsym_1059__OBJ_SERIAL*/
- if (!/*_.VALDATA___V1065*/ curfptr[1064]) /*_.VALDATA___V1065*/ curfptr[1064] = (void*)&cdat->dsym_1059__OBJ_SERIAL;
-  melt_assertmsg("iniobj checkdiscr dsym_1059__OBJ_SERIAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1059__OBJ_SERIAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1059__OBJ_SERIAL.obj_hash = 588848276;
-  cdat->dsym_1059__OBJ_SERIAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1059__OBJ_SERIAL));
- 
- /*inistring dstr_1060__OBJ_SERIAL*/
- /*_.VALSTR___V1066*/ curfptr[1065] = (void*)&cdat->dstr_1060__OBJ_SERIAL;
-  cdat->dstr_1060__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1060__OBJ_SERIAL.val, "OBJ_SERIAL", sizeof(cdat->dstr_1060__OBJ_SERIAL.val)-1);
+ /*iniobj dobj_1016*/
+ if (!/*_.VALDATA___V1021*/ curfptr[1020]) /*_.VALDATA___V1021*/ curfptr[1020] = (void*)&cdat->dobj_1016;
+  melt_assertmsg("iniobj checkdiscr dobj_1016", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1016.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1016.obj_num = 0;
+  cdat->dobj_1016.obj_hash = 280834392;
+  cdat->dobj_1016.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1016));
+ 
+ /*iniobj dsym_1017__I*/
+ if (!/*_.VALDATA___V1023*/ curfptr[1022]) /*_.VALDATA___V1023*/ curfptr[1022] = (void*)&cdat->dsym_1017__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1017__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1017__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1017__I.obj_hash = 100956650;
+  cdat->dsym_1017__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1017__I));
+ 
+ /*inistring dstr_1018__I*/
+ /*_.VALSTR___V1024*/ curfptr[1023] = (void*)&cdat->dstr_1018__I;
+  cdat->dstr_1018__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1018__I.val, "I", sizeof(cdat->dstr_1018__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:822:/ iniobj");
+ /*iniobj dobj_1019*/
+ if (!/*_.VALDATA___V1022*/ curfptr[1021]) /*_.VALDATA___V1022*/ curfptr[1021] = (void*)&cdat->dobj_1019;
+  melt_assertmsg("iniobj checkdiscr dobj_1019", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1019.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1019.obj_num = 1;
+  cdat->dobj_1019.obj_hash = 229903435;
+  cdat->dobj_1019.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1019));
+ 
+ /*inistring dstr_1020__melt_put_int_me*/
+ /*_.VALSTR___V1026*/ curfptr[1025] = (void*)&cdat->dstr_1020__melt_put_int_me;
+  cdat->dstr_1020__melt_put_int_me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1020__melt_put_int_me.val, "melt_put_int((melt_ptr_t)(", sizeof(cdat->dstr_1020__melt_put_int_me.val)-1);
+ 
+ /*inistring dstr_1021__*/
+ /*_.VALSTR___V1027*/ curfptr[1026] = (void*)&cdat->dstr_1021__;
+  cdat->dstr_1021__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1021__.val, "), (", sizeof(cdat->dstr_1021__.val)-1);
+ 
+ /*inistring dstr_1022__*/
+ /*_.VALSTR___V1028*/ curfptr[1027] = (void*)&cdat->dstr_1022__;
+  cdat->dstr_1022__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1022__.val, "))", sizeof(cdat->dstr_1022__.val)-1);
+ 
+ /*inistring dstr_1023__PUT_INT*/
+ /*_.VALSTR___V1020*/ curfptr[1019] = (void*)&cdat->dstr_1023__PUT_INT;
+  cdat->dstr_1023__PUT_INT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1023__PUT_INT.val, "PUT_INT", sizeof(cdat->dstr_1023__PUT_INT.val)-1);
+ 
+ /*iniobj dsym_1024__OBJ_HASH*/
+ if (!/*_.VALDATA___V1030*/ curfptr[1029]) /*_.VALDATA___V1030*/ curfptr[1029] = (void*)&cdat->dsym_1024__OBJ_HASH;
+  melt_assertmsg("iniobj checkdiscr dsym_1024__OBJ_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1024__OBJ_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1024__OBJ_HASH.obj_hash = 147240164;
+  cdat->dsym_1024__OBJ_HASH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1024__OBJ_HASH));
+ 
+ /*inistring dstr_1025__OBJ_HASH*/
+ /*_.VALSTR___V1031*/ curfptr[1030] = (void*)&cdat->dstr_1025__OBJ_HASH;
+  cdat->dstr_1025__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1025__OBJ_HASH.val, "OBJ_HASH", sizeof(cdat->dstr_1025__OBJ_HASH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:828:/ iniobj");
+ /*iniobj dobj_1026__OBJ_HASH*/
+ if (!/*_.VALDATA___V1032*/ curfptr[1031]) /*_.VALDATA___V1032*/ curfptr[1031] = (void*)&cdat->dobj_1026__OBJ_HASH;
+  melt_assertmsg("iniobj checkdiscr dobj_1026__OBJ_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1026__OBJ_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1026__OBJ_HASH.obj_hash = 246518686;
+  cdat->dobj_1026__OBJ_HASH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1026__OBJ_HASH));
+ 
+ /*inimult dtup_1027__OBJ_HASH*/
+ /*_.VALTUP___V1038*/ curfptr[1037] = (void*)&cdat->dtup_1027__OBJ_HASH;
+  cdat->dtup_1027__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1027__OBJ_HASH.nbval = 3;
+ /*inimult dtup_1028__OBJ_HASH*/
+ /*_.VALTUP___V1035*/ curfptr[1034] = (void*)&cdat->dtup_1028__OBJ_HASH;
+  cdat->dtup_1028__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1028__OBJ_HASH.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:828:/ iniobj");
+ /*iniobj dobj_1029*/
+ if (!/*_.VALDATA___V1034*/ curfptr[1033]) /*_.VALDATA___V1034*/ curfptr[1033] = (void*)&cdat->dobj_1029;
+  melt_assertmsg("iniobj checkdiscr dobj_1029", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1029.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1029.obj_num = 0;
+  cdat->dobj_1029.obj_hash = 132208231;
+  cdat->dobj_1029.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1029));
+ 
+ /*inistring dstr_1030__melt_obj_hash_*/
+ /*_.VALSTR___V1036*/ curfptr[1035] = (void*)&cdat->dstr_1030__melt_obj_hash_;
+  cdat->dstr_1030__melt_obj_hash_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1030__melt_obj_hash_.val, "(melt_obj_hash((melt_ptr_t)(", sizeof(cdat->dstr_1030__melt_obj_hash_.val)-1);
+ 
+ /*inistring dstr_1031__*/
+ /*_.VALSTR___V1037*/ curfptr[1036] = (void*)&cdat->dstr_1031__;
+  cdat->dstr_1031__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1031__.val, ")))", sizeof(cdat->dstr_1031__.val)-1);
+ 
+ /*inistring dstr_1032__OBJ_HASH*/
+ /*_.VALSTR___V1033*/ curfptr[1032] = (void*)&cdat->dstr_1032__OBJ_HASH;
+  cdat->dstr_1032__OBJ_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1032__OBJ_HASH.val, "OBJ_HASH", sizeof(cdat->dstr_1032__OBJ_HASH.val)-1);
+ 
+ /*iniobj dsym_1033__OBJ_LEN*/
+ if (!/*_.VALDATA___V1039*/ curfptr[1038]) /*_.VALDATA___V1039*/ curfptr[1038] = (void*)&cdat->dsym_1033__OBJ_LEN;
+  melt_assertmsg("iniobj checkdiscr dsym_1033__OBJ_LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1033__OBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1033__OBJ_LEN.obj_hash = 933389776;
+  cdat->dsym_1033__OBJ_LEN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1033__OBJ_LEN));
+ 
+ /*inistring dstr_1034__OBJ_LEN*/
+ /*_.VALSTR___V1040*/ curfptr[1039] = (void*)&cdat->dstr_1034__OBJ_LEN;
+  cdat->dstr_1034__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1034__OBJ_LEN.val, "OBJ_LEN", sizeof(cdat->dstr_1034__OBJ_LEN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:832:/ iniobj");
+ /*iniobj dobj_1035__OBJ_LEN*/
+ if (!/*_.VALDATA___V1041*/ curfptr[1040]) /*_.VALDATA___V1041*/ curfptr[1040] = (void*)&cdat->dobj_1035__OBJ_LEN;
+  melt_assertmsg("iniobj checkdiscr dobj_1035__OBJ_LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1035__OBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1035__OBJ_LEN.obj_hash = 37162889;
+  cdat->dobj_1035__OBJ_LEN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1035__OBJ_LEN));
+ 
+ /*inimult dtup_1036__OBJ_LEN*/
+ /*_.VALTUP___V1047*/ curfptr[1046] = (void*)&cdat->dtup_1036__OBJ_LEN;
+  cdat->dtup_1036__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1036__OBJ_LEN.nbval = 3;
+ /*inimult dtup_1037__OBJ_LEN*/
+ /*_.VALTUP___V1044*/ curfptr[1043] = (void*)&cdat->dtup_1037__OBJ_LEN;
+  cdat->dtup_1037__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1037__OBJ_LEN.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:832:/ iniobj");
+ /*iniobj dobj_1038*/
+ if (!/*_.VALDATA___V1043*/ curfptr[1042]) /*_.VALDATA___V1043*/ curfptr[1042] = (void*)&cdat->dobj_1038;
+  melt_assertmsg("iniobj checkdiscr dobj_1038", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1038.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1038.obj_num = 0;
+  cdat->dobj_1038.obj_hash = 929808610;
+  cdat->dobj_1038.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1038));
+ 
+ /*inistring dstr_1039__melt_obj_len_m*/
+ /*_.VALSTR___V1045*/ curfptr[1044] = (void*)&cdat->dstr_1039__melt_obj_len_m;
+  cdat->dstr_1039__melt_obj_len_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1039__melt_obj_len_m.val, "(melt_obj_len((melt_ptr_t)(", sizeof(cdat->dstr_1039__melt_obj_len_m.val)-1);
+ 
+ /*inistring dstr_1040__*/
+ /*_.VALSTR___V1046*/ curfptr[1045] = (void*)&cdat->dstr_1040__;
+  cdat->dstr_1040__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1040__.val, ")))", sizeof(cdat->dstr_1040__.val)-1);
+ 
+ /*inistring dstr_1041__OBJ_LEN*/
+ /*_.VALSTR___V1042*/ curfptr[1041] = (void*)&cdat->dstr_1041__OBJ_LEN;
+  cdat->dstr_1041__OBJ_LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1041__OBJ_LEN.val, "OBJ_LEN", sizeof(cdat->dstr_1041__OBJ_LEN.val)-1);
+ 
+ /*iniobj dsym_1042__OBJ_NUM*/
+ if (!/*_.VALDATA___V1048*/ curfptr[1047]) /*_.VALDATA___V1048*/ curfptr[1047] = (void*)&cdat->dsym_1042__OBJ_NUM;
+  melt_assertmsg("iniobj checkdiscr dsym_1042__OBJ_NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1042__OBJ_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1042__OBJ_NUM.obj_hash = 537004636;
+  cdat->dsym_1042__OBJ_NUM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1042__OBJ_NUM));
+ 
+ /*inistring dstr_1043__OBJ_NUM*/
+ /*_.VALSTR___V1049*/ curfptr[1048] = (void*)&cdat->dstr_1043__OBJ_NUM;
+  cdat->dstr_1043__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1043__OBJ_NUM.val, "OBJ_NUM", sizeof(cdat->dstr_1043__OBJ_NUM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:836:/ iniobj");
+ /*iniobj dobj_1044__OBJ_NUM*/
+ if (!/*_.VALDATA___V1050*/ curfptr[1049]) /*_.VALDATA___V1050*/ curfptr[1049] = (void*)&cdat->dobj_1044__OBJ_NUM;
+  melt_assertmsg("iniobj checkdiscr dobj_1044__OBJ_NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1044__OBJ_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1044__OBJ_NUM.obj_hash = 792440579;
+  cdat->dobj_1044__OBJ_NUM.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1044__OBJ_NUM));
+ 
+ /*inimult dtup_1045__OBJ_NUM*/
+ /*_.VALTUP___V1056*/ curfptr[1055] = (void*)&cdat->dtup_1045__OBJ_NUM;
+  cdat->dtup_1045__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1045__OBJ_NUM.nbval = 3;
+ /*inimult dtup_1046__OBJ_NUM*/
+ /*_.VALTUP___V1053*/ curfptr[1052] = (void*)&cdat->dtup_1046__OBJ_NUM;
+  cdat->dtup_1046__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1046__OBJ_NUM.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:836:/ iniobj");
+ /*iniobj dobj_1047*/
+ if (!/*_.VALDATA___V1052*/ curfptr[1051]) /*_.VALDATA___V1052*/ curfptr[1051] = (void*)&cdat->dobj_1047;
+  melt_assertmsg("iniobj checkdiscr dobj_1047", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1047.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1047.obj_num = 0;
+  cdat->dobj_1047.obj_hash = 433592795;
+  cdat->dobj_1047.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1047));
+ 
+ /*inistring dstr_1048__melt_obj_num_m*/
+ /*_.VALSTR___V1054*/ curfptr[1053] = (void*)&cdat->dstr_1048__melt_obj_num_m;
+  cdat->dstr_1048__melt_obj_num_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1048__melt_obj_num_m.val, "(melt_obj_num((melt_ptr_t)(", sizeof(cdat->dstr_1048__melt_obj_num_m.val)-1);
+ 
+ /*inistring dstr_1049__*/
+ /*_.VALSTR___V1055*/ curfptr[1054] = (void*)&cdat->dstr_1049__;
+  cdat->dstr_1049__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1049__.val, ")))", sizeof(cdat->dstr_1049__.val)-1);
+ 
+ /*inistring dstr_1050__OBJ_NUM*/
+ /*_.VALSTR___V1051*/ curfptr[1050] = (void*)&cdat->dstr_1050__OBJ_NUM;
+  cdat->dstr_1050__OBJ_NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1050__OBJ_NUM.val, "OBJ_NUM", sizeof(cdat->dstr_1050__OBJ_NUM.val)-1);
+ 
+ /*iniobj dsym_1051__OBJ_SERIAL*/
+ if (!/*_.VALDATA___V1057*/ curfptr[1056]) /*_.VALDATA___V1057*/ curfptr[1056] = (void*)&cdat->dsym_1051__OBJ_SERIAL;
+  melt_assertmsg("iniobj checkdiscr dsym_1051__OBJ_SERIAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1051__OBJ_SERIAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1051__OBJ_SERIAL.obj_hash = 588848276;
+  cdat->dsym_1051__OBJ_SERIAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1051__OBJ_SERIAL));
+ 
+ /*inistring dstr_1052__OBJ_SERIAL*/
+ /*_.VALSTR___V1058*/ curfptr[1057] = (void*)&cdat->dstr_1052__OBJ_SERIAL;
+  cdat->dstr_1052__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1052__OBJ_SERIAL.val, "OBJ_SERIAL", sizeof(cdat->dstr_1052__OBJ_SERIAL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:840:/ iniobj");
+ /*iniobj dobj_1053__OBJ_SERIAL*/
+ if (!/*_.VALDATA___V1059*/ curfptr[1058]) /*_.VALDATA___V1059*/ curfptr[1058] = (void*)&cdat->dobj_1053__OBJ_SERIAL;
+  melt_assertmsg("iniobj checkdiscr dobj_1053__OBJ_SERIAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1053__OBJ_SERIAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1053__OBJ_SERIAL.obj_hash = 653674337;
+  cdat->dobj_1053__OBJ_SERIAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1053__OBJ_SERIAL));
+ 
+ /*inimult dtup_1054__OBJ_SERIAL*/
+ /*_.VALTUP___V1065*/ curfptr[1064] = (void*)&cdat->dtup_1054__OBJ_SERIAL;
+  cdat->dtup_1054__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1054__OBJ_SERIAL.nbval = 3;
+ /*inimult dtup_1055__OBJ_SERIAL*/
+ /*_.VALTUP___V1062*/ curfptr[1061] = (void*)&cdat->dtup_1055__OBJ_SERIAL;
+  cdat->dtup_1055__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1055__OBJ_SERIAL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:840:/ iniobj");
+ /*iniobj dobj_1056*/
+ if (!/*_.VALDATA___V1061*/ curfptr[1060]) /*_.VALDATA___V1061*/ curfptr[1060] = (void*)&cdat->dobj_1056;
+  melt_assertmsg("iniobj checkdiscr dobj_1056", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1056.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1056.obj_num = 0;
+  cdat->dobj_1056.obj_hash = 781775663;
+  cdat->dobj_1056.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1056));
+ 
+ /*inistring dstr_1057__melt_obj_serial*/
+ /*_.VALSTR___V1063*/ curfptr[1062] = (void*)&cdat->dstr_1057__melt_obj_serial;
+  cdat->dstr_1057__melt_obj_serial.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1057__melt_obj_serial.val, "(melt_obj_serial((melt_ptr_t)(", sizeof(cdat->dstr_1057__melt_obj_serial.val)-1);
+ 
+ /*inistring dstr_1058__*/
+ /*_.VALSTR___V1064*/ curfptr[1063] = (void*)&cdat->dstr_1058__;
+  cdat->dstr_1058__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1058__.val, ")))", sizeof(cdat->dstr_1058__.val)-1);
+ 
+ /*inistring dstr_1059__OBJ_SERIAL*/
+ /*_.VALSTR___V1060*/ curfptr[1059] = (void*)&cdat->dstr_1059__OBJ_SERIAL;
+  cdat->dstr_1059__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1059__OBJ_SERIAL.val, "OBJ_SERIAL", sizeof(cdat->dstr_1059__OBJ_SERIAL.val)-1);
+ 
+ /*iniobj dsym_1060__NONZERO_HASH*/
+ if (!/*_.VALDATA___V1066*/ curfptr[1065]) /*_.VALDATA___V1066*/ curfptr[1065] = (void*)&cdat->dsym_1060__NONZERO_HASH;
+  melt_assertmsg("iniobj checkdiscr dsym_1060__NONZERO_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1060__NONZERO_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1060__NONZERO_HASH.obj_hash = 1008930877;
+  cdat->dsym_1060__NONZERO_HASH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1060__NONZERO_HASH));
+ 
+ /*inistring dstr_1061__NONZERO_HASH*/
+ /*_.VALSTR___V1067*/ curfptr[1066] = (void*)&cdat->dstr_1061__NONZERO_HASH;
+  cdat->dstr_1061__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1061__NONZERO_HASH.val, "NONZERO_HASH", sizeof(cdat->dstr_1061__NONZERO_HASH.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:845:/ iniobj");
- /*iniobj dobj_1061__OBJ_SERIAL*/
- if (!/*_.VALDATA___V1067*/ curfptr[1066]) /*_.VALDATA___V1067*/ curfptr[1066] = (void*)&cdat->dobj_1061__OBJ_SERIAL;
-  melt_assertmsg("iniobj checkdiscr dobj_1061__OBJ_SERIAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1061__OBJ_SERIAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1061__OBJ_SERIAL.obj_hash = 296960381;
-  cdat->dobj_1061__OBJ_SERIAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1061__OBJ_SERIAL));
- 
- /*inimult dtup_1062__OBJ_SERIAL*/
- /*_.VALTUP___V1073*/ curfptr[1072] = (void*)&cdat->dtup_1062__OBJ_SERIAL;
-  cdat->dtup_1062__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1062__OBJ_SERIAL.nbval = 3;
- /*inimult dtup_1063__OBJ_SERIAL*/
- /*_.VALTUP___V1070*/ curfptr[1069] = (void*)&cdat->dtup_1063__OBJ_SERIAL;
-  cdat->dtup_1063__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1063__OBJ_SERIAL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:845:/ iniobj");
- /*iniobj dobj_1064*/
- if (!/*_.VALDATA___V1069*/ curfptr[1068]) /*_.VALDATA___V1069*/ curfptr[1068] = (void*)&cdat->dobj_1064;
-  melt_assertmsg("iniobj checkdiscr dobj_1064", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1064.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1064.obj_num = 0;
-  cdat->dobj_1064.obj_hash = 924988568;
-  cdat->dobj_1064.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1064));
- 
- /*inistring dstr_1065__melt_obj_serial*/
- /*_.VALSTR___V1071*/ curfptr[1070] = (void*)&cdat->dstr_1065__melt_obj_serial;
-  cdat->dstr_1065__melt_obj_serial.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1065__melt_obj_serial.val, "(melt_obj_serial((melt_ptr_t)(", sizeof(cdat->dstr_1065__melt_obj_serial.val)-1);
- 
- /*inistring dstr_1066__*/
- /*_.VALSTR___V1072*/ curfptr[1071] = (void*)&cdat->dstr_1066__;
-  cdat->dstr_1066__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1066__.val, ")))", sizeof(cdat->dstr_1066__.val)-1);
- 
- /*inistring dstr_1067__OBJ_SERIAL*/
- /*_.VALSTR___V1068*/ curfptr[1067] = (void*)&cdat->dstr_1067__OBJ_SERIAL;
-  cdat->dstr_1067__OBJ_SERIAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1067__OBJ_SERIAL.val, "OBJ_SERIAL", sizeof(cdat->dstr_1067__OBJ_SERIAL.val)-1);
- 
- /*iniobj dsym_1068__NONZERO_HASH*/
- if (!/*_.VALDATA___V1074*/ curfptr[1073]) /*_.VALDATA___V1074*/ curfptr[1073] = (void*)&cdat->dsym_1068__NONZERO_HASH;
-  melt_assertmsg("iniobj checkdiscr dsym_1068__NONZERO_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1068__NONZERO_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1068__NONZERO_HASH.obj_hash = 1008930877;
-  cdat->dsym_1068__NONZERO_HASH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1068__NONZERO_HASH));
- 
- /*inistring dstr_1069__NONZERO_HASH*/
- /*_.VALSTR___V1075*/ curfptr[1074] = (void*)&cdat->dstr_1069__NONZERO_HASH;
-  cdat->dstr_1069__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1069__NONZERO_HASH.val, "NONZERO_HASH", sizeof(cdat->dstr_1069__NONZERO_HASH.val)-1);
+ /*iniobj dobj_1062__NONZERO_HASH*/
+ if (!/*_.VALDATA___V1068*/ curfptr[1067]) /*_.VALDATA___V1068*/ curfptr[1067] = (void*)&cdat->dobj_1062__NONZERO_HASH;
+  melt_assertmsg("iniobj checkdiscr dobj_1062__NONZERO_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1062__NONZERO_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1062__NONZERO_HASH.obj_hash = 375421967;
+  cdat->dobj_1062__NONZERO_HASH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1062__NONZERO_HASH));
+ 
+ /*inimult dtup_1063__NONZERO_HASH*/
+ /*_.VALTUP___V1072*/ curfptr[1071] = (void*)&cdat->dtup_1063__NONZERO_HASH;
+  cdat->dtup_1063__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1063__NONZERO_HASH.nbval = 1;
+ /*inimult dtup_1064__NONZERO_HASH*/
+ /*_.VALTUP___V1070*/ curfptr[1069] = (void*)&cdat->dtup_1064__NONZERO_HASH;
+  cdat->dtup_1064__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1064__NONZERO_HASH.nbval = 0;
+ /*inistring dstr_1065__melt_nonzerohas*/
+ /*_.VALSTR___V1071*/ curfptr[1070] = (void*)&cdat->dstr_1065__melt_nonzerohas;
+  cdat->dstr_1065__melt_nonzerohas.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1065__melt_nonzerohas.val, "(melt_nonzerohash())", sizeof(cdat->dstr_1065__melt_nonzerohas.val)-1);
+ 
+ /*inistring dstr_1066__NONZERO_HASH*/
+ /*_.VALSTR___V1069*/ curfptr[1068] = (void*)&cdat->dstr_1066__NONZERO_HASH;
+  cdat->dstr_1066__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1066__NONZERO_HASH.val, "NONZERO_HASH", sizeof(cdat->dstr_1066__NONZERO_HASH.val)-1);
+ 
+ /*iniobj dsym_1067__*/
+ if (!/*_.VALDATA___V1073*/ curfptr[1072]) /*_.VALDATA___V1073*/ curfptr[1072] = (void*)&cdat->dsym_1067__;
+  melt_assertmsg("iniobj checkdiscr dsym_1067__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1067__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1067__.obj_hash = 387349754;
+  cdat->dsym_1067__.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1067__));
+ 
+ /*inistring dstr_1068__*/
+ /*_.VALSTR___V1074*/ curfptr[1073] = (void*)&cdat->dstr_1068__;
+  cdat->dstr_1068__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1068__.val, "==", sizeof(cdat->dstr_1068__.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:850:/ iniobj");
- /*iniobj dobj_1070__NONZERO_HASH*/
- if (!/*_.VALDATA___V1076*/ curfptr[1075]) /*_.VALDATA___V1076*/ curfptr[1075] = (void*)&cdat->dobj_1070__NONZERO_HASH;
-  melt_assertmsg("iniobj checkdiscr dobj_1070__NONZERO_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1070__NONZERO_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1070__NONZERO_HASH.obj_hash = 228878399;
-  cdat->dobj_1070__NONZERO_HASH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1070__NONZERO_HASH));
- 
- /*inimult dtup_1071__NONZERO_HASH*/
- /*_.VALTUP___V1080*/ curfptr[1079] = (void*)&cdat->dtup_1071__NONZERO_HASH;
-  cdat->dtup_1071__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1071__NONZERO_HASH.nbval = 1;
- /*inimult dtup_1072__NONZERO_HASH*/
- /*_.VALTUP___V1078*/ curfptr[1077] = (void*)&cdat->dtup_1072__NONZERO_HASH;
-  cdat->dtup_1072__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1072__NONZERO_HASH.nbval = 0;
- /*inistring dstr_1073__melt_nonzerohas*/
- /*_.VALSTR___V1079*/ curfptr[1078] = (void*)&cdat->dstr_1073__melt_nonzerohas;
-  cdat->dstr_1073__melt_nonzerohas.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1073__melt_nonzerohas.val, "(melt_nonzerohash())", sizeof(cdat->dstr_1073__melt_nonzerohas.val)-1);
- 
- /*inistring dstr_1074__NONZERO_HASH*/
- /*_.VALSTR___V1077*/ curfptr[1076] = (void*)&cdat->dstr_1074__NONZERO_HASH;
-  cdat->dstr_1074__NONZERO_HASH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1074__NONZERO_HASH.val, "NONZERO_HASH", sizeof(cdat->dstr_1074__NONZERO_HASH.val)-1);
- 
- /*iniobj dsym_1075__*/
- if (!/*_.VALDATA___V1081*/ curfptr[1080]) /*_.VALDATA___V1081*/ curfptr[1080] = (void*)&cdat->dsym_1075__;
-  melt_assertmsg("iniobj checkdiscr dsym_1075__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1075__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1075__.obj_hash = 387349754;
-  cdat->dsym_1075__.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1075__));
- 
- /*inistring dstr_1076__*/
- /*_.VALSTR___V1082*/ curfptr[1081] = (void*)&cdat->dstr_1076__;
-  cdat->dstr_1076__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1076__.val, "==", sizeof(cdat->dstr_1076__.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:855:/ iniobj");
- /*iniobj dobj_1077__*/
- if (!/*_.VALDATA___V1083*/ curfptr[1082]) /*_.VALDATA___V1083*/ curfptr[1082] = (void*)&cdat->dobj_1077__;
-  melt_assertmsg("iniobj checkdiscr dobj_1077__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1077__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1077__.obj_hash = 263904512;
-  cdat->dobj_1077__.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1077__));
- 
- /*inimult dtup_1078__*/
- /*_.VALTUP___V1095*/ curfptr[1094] = (void*)&cdat->dtup_1078__;
-  cdat->dtup_1078__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1078__.nbval = 5;
- /*inimult dtup_1079__*/
- /*_.VALTUP___V1091*/ curfptr[1090] = (void*)&cdat->dtup_1079__;
-  cdat->dtup_1079__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1079__.nbval = 2;
- /*iniobj dsym_1080__A*/
- if (!/*_.VALDATA___V1086*/ curfptr[1085]) /*_.VALDATA___V1086*/ curfptr[1085] = (void*)&cdat->dsym_1080__A;
-  melt_assertmsg("iniobj checkdiscr dsym_1080__A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1080__A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1080__A.obj_hash = 16202693;
-  cdat->dsym_1080__A.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1080__A));
- 
- /*inistring dstr_1081__A*/
- /*_.VALSTR___V1087*/ curfptr[1086] = (void*)&cdat->dstr_1081__A;
-  cdat->dstr_1081__A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1081__A.val, "A", sizeof(cdat->dstr_1081__A.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:855:/ iniobj");
- /*iniobj dobj_1082*/
- if (!/*_.VALDATA___V1085*/ curfptr[1084]) /*_.VALDATA___V1085*/ curfptr[1084] = (void*)&cdat->dobj_1082;
-  melt_assertmsg("iniobj checkdiscr dobj_1082", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1082.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1082.obj_num = 0;
-  cdat->dobj_1082.obj_hash = 767621322;
-  cdat->dobj_1082.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1082));
- 
- /*iniobj dsym_1083__B*/
- if (!/*_.VALDATA___V1089*/ curfptr[1088]) /*_.VALDATA___V1089*/ curfptr[1088] = (void*)&cdat->dsym_1083__B;
-  melt_assertmsg("iniobj checkdiscr dsym_1083__B", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1083__B.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1083__B.obj_hash = 12245345;
-  cdat->dsym_1083__B.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1083__B));
- 
- /*inistring dstr_1084__B*/
- /*_.VALSTR___V1090*/ curfptr[1089] = (void*)&cdat->dstr_1084__B;
-  cdat->dstr_1084__B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1084__B.val, "B", sizeof(cdat->dstr_1084__B.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:855:/ iniobj");
- /*iniobj dobj_1085*/
- if (!/*_.VALDATA___V1088*/ curfptr[1087]) /*_.VALDATA___V1088*/ curfptr[1087] = (void*)&cdat->dobj_1085;
-  melt_assertmsg("iniobj checkdiscr dobj_1085", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1085.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1085.obj_num = 1;
-  cdat->dobj_1085.obj_hash = 70415296;
-  cdat->dobj_1085.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1085));
- 
- /*inistring dstr_1086__*/
- /*_.VALSTR___V1092*/ curfptr[1091] = (void*)&cdat->dstr_1086__;
-  cdat->dstr_1086__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1086__.val, "((", sizeof(cdat->dstr_1086__.val)-1);
- 
- /*inistring dstr_1087__*/
- /*_.VALSTR___V1093*/ curfptr[1092] = (void*)&cdat->dstr_1087__;
-  cdat->dstr_1087__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1087__.val, ") == (", sizeof(cdat->dstr_1087__.val)-1);
- 
- /*inistring dstr_1088__*/
- /*_.VALSTR___V1094*/ curfptr[1093] = (void*)&cdat->dstr_1088__;
-  cdat->dstr_1088__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1088__.val, "))", sizeof(cdat->dstr_1088__.val)-1);
+ /*iniobj dobj_1069__*/
+ if (!/*_.VALDATA___V1075*/ curfptr[1074]) /*_.VALDATA___V1075*/ curfptr[1074] = (void*)&cdat->dobj_1069__;
+  melt_assertmsg("iniobj checkdiscr dobj_1069__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1069__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1069__.obj_hash = 273712499;
+  cdat->dobj_1069__.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1069__));
+ 
+ /*inimult dtup_1070__*/
+ /*_.VALTUP___V1087*/ curfptr[1086] = (void*)&cdat->dtup_1070__;
+  cdat->dtup_1070__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1070__.nbval = 5;
+ /*inimult dtup_1071__*/
+ /*_.VALTUP___V1083*/ curfptr[1082] = (void*)&cdat->dtup_1071__;
+  cdat->dtup_1071__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1071__.nbval = 2;
+ /*iniobj dsym_1072__A*/
+ if (!/*_.VALDATA___V1078*/ curfptr[1077]) /*_.VALDATA___V1078*/ curfptr[1077] = (void*)&cdat->dsym_1072__A;
+  melt_assertmsg("iniobj checkdiscr dsym_1072__A", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1072__A.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1072__A.obj_hash = 16202693;
+  cdat->dsym_1072__A.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1072__A));
+ 
+ /*inistring dstr_1073__A*/
+ /*_.VALSTR___V1079*/ curfptr[1078] = (void*)&cdat->dstr_1073__A;
+  cdat->dstr_1073__A.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1073__A.val, "A", sizeof(cdat->dstr_1073__A.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:850:/ iniobj");
+ /*iniobj dobj_1074*/
+ if (!/*_.VALDATA___V1077*/ curfptr[1076]) /*_.VALDATA___V1077*/ curfptr[1076] = (void*)&cdat->dobj_1074;
+  melt_assertmsg("iniobj checkdiscr dobj_1074", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1074.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1074.obj_num = 0;
+  cdat->dobj_1074.obj_hash = 58886507;
+  cdat->dobj_1074.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1074));
+ 
+ /*iniobj dsym_1075__B*/
+ if (!/*_.VALDATA___V1081*/ curfptr[1080]) /*_.VALDATA___V1081*/ curfptr[1080] = (void*)&cdat->dsym_1075__B;
+  melt_assertmsg("iniobj checkdiscr dsym_1075__B", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1075__B.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1075__B.obj_hash = 12245345;
+  cdat->dsym_1075__B.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1075__B));
+ 
+ /*inistring dstr_1076__B*/
+ /*_.VALSTR___V1082*/ curfptr[1081] = (void*)&cdat->dstr_1076__B;
+  cdat->dstr_1076__B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1076__B.val, "B", sizeof(cdat->dstr_1076__B.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:850:/ iniobj");
+ /*iniobj dobj_1077*/
+ if (!/*_.VALDATA___V1080*/ curfptr[1079]) /*_.VALDATA___V1080*/ curfptr[1079] = (void*)&cdat->dobj_1077;
+  melt_assertmsg("iniobj checkdiscr dobj_1077", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1077.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1077.obj_num = 1;
+  cdat->dobj_1077.obj_hash = 884579959;
+  cdat->dobj_1077.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1077));
+ 
+ /*inistring dstr_1078__*/
+ /*_.VALSTR___V1084*/ curfptr[1083] = (void*)&cdat->dstr_1078__;
+  cdat->dstr_1078__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1078__.val, "((", sizeof(cdat->dstr_1078__.val)-1);
+ 
+ /*inistring dstr_1079__*/
+ /*_.VALSTR___V1085*/ curfptr[1084] = (void*)&cdat->dstr_1079__;
+  cdat->dstr_1079__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1079__.val, ") == (", sizeof(cdat->dstr_1079__.val)-1);
+ 
+ /*inistring dstr_1080__*/
+ /*_.VALSTR___V1086*/ curfptr[1085] = (void*)&cdat->dstr_1080__;
+  cdat->dstr_1080__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1080__.val, "))", sizeof(cdat->dstr_1080__.val)-1);
+ 
+ /*inistring dstr_1081__*/
+ /*_.VALSTR___V1076*/ curfptr[1075] = (void*)&cdat->dstr_1081__;
+  cdat->dstr_1081__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1081__.val, "==", sizeof(cdat->dstr_1081__.val)-1);
+ 
+ /*iniobj dsym_1082__*/
+ if (!/*_.VALDATA___V1088*/ curfptr[1087]) /*_.VALDATA___V1088*/ curfptr[1087] = (void*)&cdat->dsym_1082__;
+  melt_assertmsg("iniobj checkdiscr dsym_1082__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1082__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1082__.obj_hash = 809990982;
+  cdat->dsym_1082__.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1082__));
+ 
+ /*inistring dstr_1083__*/
+ /*_.VALSTR___V1089*/ curfptr[1088] = (void*)&cdat->dstr_1083__;
+  cdat->dstr_1083__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1083__.val, "!=", sizeof(cdat->dstr_1083__.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:853:/ iniobj");
+ /*iniobj dobj_1084__*/
+ if (!/*_.VALDATA___V1090*/ curfptr[1089]) /*_.VALDATA___V1090*/ curfptr[1089] = (void*)&cdat->dobj_1084__;
+  melt_assertmsg("iniobj checkdiscr dobj_1084__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1084__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1084__.obj_hash = 342550113;
+  cdat->dobj_1084__.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1084__));
+ 
+ /*inimult dtup_1085__*/
+ /*_.VALTUP___V1098*/ curfptr[1097] = (void*)&cdat->dtup_1085__;
+  cdat->dtup_1085__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1085__.nbval = 5;
+ /*inimult dtup_1086__*/
+ /*_.VALTUP___V1094*/ curfptr[1093] = (void*)&cdat->dtup_1086__;
+  cdat->dtup_1086__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1086__.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:853:/ iniobj");
+ /*iniobj dobj_1087*/
+ if (!/*_.VALDATA___V1092*/ curfptr[1091]) /*_.VALDATA___V1092*/ curfptr[1091] = (void*)&cdat->dobj_1087;
+  melt_assertmsg("iniobj checkdiscr dobj_1087", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1087.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1087.obj_num = 0;
+  cdat->dobj_1087.obj_hash = 1025583322;
+  cdat->dobj_1087.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1087));
+ 
+ MELT_LOCATION("warmelt-first.melt:853:/ iniobj");
+ /*iniobj dobj_1088*/
+ if (!/*_.VALDATA___V1093*/ curfptr[1092]) /*_.VALDATA___V1093*/ curfptr[1092] = (void*)&cdat->dobj_1088;
+  melt_assertmsg("iniobj checkdiscr dobj_1088", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1088.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1088.obj_num = 1;
+  cdat->dobj_1088.obj_hash = 420831273;
+  cdat->dobj_1088.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1088));
  
  /*inistring dstr_1089__*/
- /*_.VALSTR___V1084*/ curfptr[1083] = (void*)&cdat->dstr_1089__;
-  cdat->dstr_1089__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1089__.val, "==", sizeof(cdat->dstr_1089__.val)-1);
- 
- /*iniobj dsym_1090__*/
- if (!/*_.VALDATA___V1096*/ curfptr[1095]) /*_.VALDATA___V1096*/ curfptr[1095] = (void*)&cdat->dsym_1090__;
-  melt_assertmsg("iniobj checkdiscr dsym_1090__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1090__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1090__.obj_hash = 809990982;
-  cdat->dsym_1090__.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1090__));
+ /*_.VALSTR___V1095*/ curfptr[1094] = (void*)&cdat->dstr_1089__;
+  cdat->dstr_1089__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1089__.val, "((", sizeof(cdat->dstr_1089__.val)-1);
+ 
+ /*inistring dstr_1090__*/
+ /*_.VALSTR___V1096*/ curfptr[1095] = (void*)&cdat->dstr_1090__;
+  cdat->dstr_1090__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1090__.val, ") != (", sizeof(cdat->dstr_1090__.val)-1);
  
  /*inistring dstr_1091__*/
  /*_.VALSTR___V1097*/ curfptr[1096] = (void*)&cdat->dstr_1091__;
-  cdat->dstr_1091__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1091__.val, "!=", sizeof(cdat->dstr_1091__.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:858:/ iniobj");
- /*iniobj dobj_1092__*/
- if (!/*_.VALDATA___V1098*/ curfptr[1097]) /*_.VALDATA___V1098*/ curfptr[1097] = (void*)&cdat->dobj_1092__;
-  melt_assertmsg("iniobj checkdiscr dobj_1092__", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1092__.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1092__.obj_hash = 362970514;
-  cdat->dobj_1092__.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1092__));
- 
- /*inimult dtup_1093__*/
- /*_.VALTUP___V1106*/ curfptr[1105] = (void*)&cdat->dtup_1093__;
-  cdat->dtup_1093__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1093__.nbval = 5;
- /*inimult dtup_1094__*/
- /*_.VALTUP___V1102*/ curfptr[1101] = (void*)&cdat->dtup_1094__;
-  cdat->dtup_1094__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1094__.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:858:/ iniobj");
- /*iniobj dobj_1095*/
- if (!/*_.VALDATA___V1100*/ curfptr[1099]) /*_.VALDATA___V1100*/ curfptr[1099] = (void*)&cdat->dobj_1095;
-  melt_assertmsg("iniobj checkdiscr dobj_1095", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1095.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1095.obj_num = 0;
-  cdat->dobj_1095.obj_hash = 2977276;
-  cdat->dobj_1095.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1095));
- 
- MELT_LOCATION("warmelt-first.melt:858:/ iniobj");
- /*iniobj dobj_1096*/
- if (!/*_.VALDATA___V1101*/ curfptr[1100]) /*_.VALDATA___V1101*/ curfptr[1100] = (void*)&cdat->dobj_1096;
-  melt_assertmsg("iniobj checkdiscr dobj_1096", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1096.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1096.obj_num = 1;
-  cdat->dobj_1096.obj_hash = 656488805;
-  cdat->dobj_1096.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1096));
- 
- /*inistring dstr_1097__*/
- /*_.VALSTR___V1103*/ curfptr[1102] = (void*)&cdat->dstr_1097__;
-  cdat->dstr_1097__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1097__.val, "((", sizeof(cdat->dstr_1097__.val)-1);
- 
- /*inistring dstr_1098__*/
- /*_.VALSTR___V1104*/ curfptr[1103] = (void*)&cdat->dstr_1098__;
-  cdat->dstr_1098__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1098__.val, ") != (", sizeof(cdat->dstr_1098__.val)-1);
- 
- /*inistring dstr_1099__*/
- /*_.VALSTR___V1105*/ curfptr[1104] = (void*)&cdat->dstr_1099__;
-  cdat->dstr_1099__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1099__.val, "))", sizeof(cdat->dstr_1099__.val)-1);
- 
- /*inistring dstr_1100__*/
- /*_.VALSTR___V1099*/ curfptr[1098] = (void*)&cdat->dstr_1100__;
-  cdat->dstr_1100__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1100__.val, "!=", sizeof(cdat->dstr_1100__.val)-1);
- 
- /*iniobj dsym_1101__THE_CALLCOUNT*/
- if (!/*_.VALDATA___V1107*/ curfptr[1106]) /*_.VALDATA___V1107*/ curfptr[1106] = (void*)&cdat->dsym_1101__THE_CALLCOUNT;
-  melt_assertmsg("iniobj checkdiscr dsym_1101__THE_CALLCOUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1101__THE_CALLCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1101__THE_CALLCOUNT.obj_hash = 366316746;
-  cdat->dsym_1101__THE_CALLCOUNT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1101__THE_CALLCOUNT));
- 
- /*inistring dstr_1102__THE_CALLCOUNT*/
- /*_.VALSTR___V1108*/ curfptr[1107] = (void*)&cdat->dstr_1102__THE_CALLCOUNT;
-  cdat->dstr_1102__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1102__THE_CALLCOUNT.val, "THE_CALLCOUNT", sizeof(cdat->dstr_1102__THE_CALLCOUNT.val)-1);
+  cdat->dstr_1091__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1091__.val, "))", sizeof(cdat->dstr_1091__.val)-1);
+ 
+ /*inistring dstr_1092__*/
+ /*_.VALSTR___V1091*/ curfptr[1090] = (void*)&cdat->dstr_1092__;
+  cdat->dstr_1092__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1092__.val, "!=", sizeof(cdat->dstr_1092__.val)-1);
+ 
+ /*iniobj dsym_1093__THE_CALLCOUNT*/
+ if (!/*_.VALDATA___V1099*/ curfptr[1098]) /*_.VALDATA___V1099*/ curfptr[1098] = (void*)&cdat->dsym_1093__THE_CALLCOUNT;
+  melt_assertmsg("iniobj checkdiscr dsym_1093__THE_CALLCOUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1093__THE_CALLCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1093__THE_CALLCOUNT.obj_hash = 366316746;
+  cdat->dsym_1093__THE_CALLCOUNT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1093__THE_CALLCOUNT));
+ 
+ /*inistring dstr_1094__THE_CALLCOUNT*/
+ /*_.VALSTR___V1100*/ curfptr[1099] = (void*)&cdat->dstr_1094__THE_CALLCOUNT;
+  cdat->dstr_1094__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1094__THE_CALLCOUNT.val, "THE_CALLCOUNT", sizeof(cdat->dstr_1094__THE_CALLCOUNT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:859:/ iniobj");
+ /*iniobj dobj_1095__THE_CALLCOUNT*/
+ if (!/*_.VALDATA___V1101*/ curfptr[1100]) /*_.VALDATA___V1101*/ curfptr[1100] = (void*)&cdat->dobj_1095__THE_CALLCOUNT;
+  melt_assertmsg("iniobj checkdiscr dobj_1095__THE_CALLCOUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1095__THE_CALLCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1095__THE_CALLCOUNT.obj_hash = 1058701440;
+  cdat->dobj_1095__THE_CALLCOUNT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1095__THE_CALLCOUNT));
+ 
+ /*inimult dtup_1096__THE_CALLCOUNT*/
+ /*_.VALTUP___V1105*/ curfptr[1104] = (void*)&cdat->dtup_1096__THE_CALLCOUNT;
+  cdat->dtup_1096__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1096__THE_CALLCOUNT.nbval = 1;
+ /*inimult dtup_1097__THE_CALLCOUNT*/
+ /*_.VALTUP___V1103*/ curfptr[1102] = (void*)&cdat->dtup_1097__THE_CALLCOUNT;
+  cdat->dtup_1097__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1097__THE_CALLCOUNT.nbval = 0;
+ /*inistring dstr_1098__callcount*/
+ /*_.VALSTR___V1104*/ curfptr[1103] = (void*)&cdat->dstr_1098__callcount;
+  cdat->dstr_1098__callcount.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1098__callcount.val, "callcount", sizeof(cdat->dstr_1098__callcount.val)-1);
+ 
+ /*inistring dstr_1099__THE_CALLCOUNT*/
+ /*_.VALSTR___V1102*/ curfptr[1101] = (void*)&cdat->dstr_1099__THE_CALLCOUNT;
+  cdat->dstr_1099__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1099__THE_CALLCOUNT.val, "THE_CALLCOUNT", sizeof(cdat->dstr_1099__THE_CALLCOUNT.val)-1);
+ 
+ /*iniobj dsym_1100__THE_FRAMEDEPTH*/
+ if (!/*_.VALDATA___V1106*/ curfptr[1105]) /*_.VALDATA___V1106*/ curfptr[1105] = (void*)&cdat->dsym_1100__THE_FRAMEDEPTH;
+  melt_assertmsg("iniobj checkdiscr dsym_1100__THE_FRAMEDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1100__THE_FRAMEDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1100__THE_FRAMEDEPTH.obj_hash = 998558919;
+  cdat->dsym_1100__THE_FRAMEDEPTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1100__THE_FRAMEDEPTH));
+ 
+ /*inistring dstr_1101__THE_FRAMEDEPTH*/
+ /*_.VALSTR___V1107*/ curfptr[1106] = (void*)&cdat->dstr_1101__THE_FRAMEDEPTH;
+  cdat->dstr_1101__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1101__THE_FRAMEDEPTH.val, "THE_FRAMEDEPTH", sizeof(cdat->dstr_1101__THE_FRAMEDEPTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:861:/ iniobj");
+ /*iniobj dobj_1102__THE_FRAMEDEPTH*/
+ if (!/*_.VALDATA___V1108*/ curfptr[1107]) /*_.VALDATA___V1108*/ curfptr[1107] = (void*)&cdat->dobj_1102__THE_FRAMEDEPTH;
+  melt_assertmsg("iniobj checkdiscr dobj_1102__THE_FRAMEDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1102__THE_FRAMEDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1102__THE_FRAMEDEPTH.obj_hash = 736271631;
+  cdat->dobj_1102__THE_FRAMEDEPTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1102__THE_FRAMEDEPTH));
+ 
+ /*inimult dtup_1103__THE_FRAMEDEPTH*/
+ /*_.VALTUP___V1112*/ curfptr[1111] = (void*)&cdat->dtup_1103__THE_FRAMEDEPTH;
+  cdat->dtup_1103__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1103__THE_FRAMEDEPTH.nbval = 1;
+ /*inimult dtup_1104__THE_FRAMEDEPTH*/
+ /*_.VALTUP___V1110*/ curfptr[1109] = (void*)&cdat->dtup_1104__THE_FRAMEDEPTH;
+  cdat->dtup_1104__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1104__THE_FRAMEDEPTH.nbval = 0;
+ /*inistring dstr_1105__melt_curframdep*/
+ /*_.VALSTR___V1111*/ curfptr[1110] = (void*)&cdat->dstr_1105__melt_curframdep;
+  cdat->dstr_1105__melt_curframdep.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1105__melt_curframdep.val, "(melt_curframdepth())", sizeof(cdat->dstr_1105__melt_curframdep.val)-1);
+ 
+ /*inistring dstr_1106__THE_FRAMEDEPTH*/
+ /*_.VALSTR___V1109*/ curfptr[1108] = (void*)&cdat->dstr_1106__THE_FRAMEDEPTH;
+  cdat->dstr_1106__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1106__THE_FRAMEDEPTH.val, "THE_FRAMEDEPTH", sizeof(cdat->dstr_1106__THE_FRAMEDEPTH.val)-1);
+ 
+ /*iniobj dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
+ if (!/*_.VALDATA___V1113*/ curfptr[1112]) /*_.VALDATA___V1113*/ curfptr[1112] = (void*)&cdat->dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_hash = 831993304;
+  cdat->dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1107__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR));
+ 
+ /*inistring dstr_1108__OUT_CPLUGIN_COMP*/
+ /*_.VALSTR___V1114*/ curfptr[1113] = (void*)&cdat->dstr_1108__OUT_CPLUGIN_COMP;
+  cdat->dstr_1108__OUT_CPLUGIN_COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1108__OUT_CPLUGIN_COMP.val, "OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", sizeof(cdat->dstr_1108__OUT_CPLUGIN_COMP.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:864:/ iniobj");
- /*iniobj dobj_1103__THE_CALLCOUNT*/
- if (!/*_.VALDATA___V1109*/ curfptr[1108]) /*_.VALDATA___V1109*/ curfptr[1108] = (void*)&cdat->dobj_1103__THE_CALLCOUNT;
-  melt_assertmsg("iniobj checkdiscr dobj_1103__THE_CALLCOUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1103__THE_CALLCOUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1103__THE_CALLCOUNT.obj_hash = 176866643;
-  cdat->dobj_1103__THE_CALLCOUNT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1103__THE_CALLCOUNT));
- 
- /*inimult dtup_1104__THE_CALLCOUNT*/
- /*_.VALTUP___V1113*/ curfptr[1112] = (void*)&cdat->dtup_1104__THE_CALLCOUNT;
-  cdat->dtup_1104__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1104__THE_CALLCOUNT.nbval = 1;
- /*inimult dtup_1105__THE_CALLCOUNT*/
- /*_.VALTUP___V1111*/ curfptr[1110] = (void*)&cdat->dtup_1105__THE_CALLCOUNT;
-  cdat->dtup_1105__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1105__THE_CALLCOUNT.nbval = 0;
- /*inistring dstr_1106__callcount*/
- /*_.VALSTR___V1112*/ curfptr[1111] = (void*)&cdat->dstr_1106__callcount;
-  cdat->dstr_1106__callcount.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1106__callcount.val, "callcount", sizeof(cdat->dstr_1106__callcount.val)-1);
- 
- /*inistring dstr_1107__THE_CALLCOUNT*/
- /*_.VALSTR___V1110*/ curfptr[1109] = (void*)&cdat->dstr_1107__THE_CALLCOUNT;
-  cdat->dstr_1107__THE_CALLCOUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1107__THE_CALLCOUNT.val, "THE_CALLCOUNT", sizeof(cdat->dstr_1107__THE_CALLCOUNT.val)-1);
- 
- /*iniobj dsym_1108__THE_FRAMEDEPTH*/
- if (!/*_.VALDATA___V1114*/ curfptr[1113]) /*_.VALDATA___V1114*/ curfptr[1113] = (void*)&cdat->dsym_1108__THE_FRAMEDEPTH;
-  melt_assertmsg("iniobj checkdiscr dsym_1108__THE_FRAMEDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1108__THE_FRAMEDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1108__THE_FRAMEDEPTH.obj_hash = 998558919;
-  cdat->dsym_1108__THE_FRAMEDEPTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1108__THE_FRAMEDEPTH));
- 
- /*inistring dstr_1109__THE_FRAMEDEPTH*/
- /*_.VALSTR___V1115*/ curfptr[1114] = (void*)&cdat->dstr_1109__THE_FRAMEDEPTH;
-  cdat->dstr_1109__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1109__THE_FRAMEDEPTH.val, "THE_FRAMEDEPTH", sizeof(cdat->dstr_1109__THE_FRAMEDEPTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:866:/ iniobj");
- /*iniobj dobj_1110__THE_FRAMEDEPTH*/
- if (!/*_.VALDATA___V1116*/ curfptr[1115]) /*_.VALDATA___V1116*/ curfptr[1115] = (void*)&cdat->dobj_1110__THE_FRAMEDEPTH;
-  melt_assertmsg("iniobj checkdiscr dobj_1110__THE_FRAMEDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1110__THE_FRAMEDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1110__THE_FRAMEDEPTH.obj_hash = 393629071;
-  cdat->dobj_1110__THE_FRAMEDEPTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1110__THE_FRAMEDEPTH));
- 
- /*inimult dtup_1111__THE_FRAMEDEPTH*/
- /*_.VALTUP___V1120*/ curfptr[1119] = (void*)&cdat->dtup_1111__THE_FRAMEDEPTH;
-  cdat->dtup_1111__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1111__THE_FRAMEDEPTH.nbval = 1;
- /*inimult dtup_1112__THE_FRAMEDEPTH*/
- /*_.VALTUP___V1118*/ curfptr[1117] = (void*)&cdat->dtup_1112__THE_FRAMEDEPTH;
-  cdat->dtup_1112__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1112__THE_FRAMEDEPTH.nbval = 0;
- /*inistring dstr_1113__melt_curframdep*/
- /*_.VALSTR___V1119*/ curfptr[1118] = (void*)&cdat->dstr_1113__melt_curframdep;
-  cdat->dstr_1113__melt_curframdep.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1113__melt_curframdep.val, "(melt_curframdepth())", sizeof(cdat->dstr_1113__melt_curframdep.val)-1);
- 
- /*inistring dstr_1114__THE_FRAMEDEPTH*/
- /*_.VALSTR___V1117*/ curfptr[1116] = (void*)&cdat->dstr_1114__THE_FRAMEDEPTH;
-  cdat->dstr_1114__THE_FRAMEDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1114__THE_FRAMEDEPTH.val, "THE_FRAMEDEPTH", sizeof(cdat->dstr_1114__THE_FRAMEDEPTH.val)-1);
- 
- /*iniobj dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
- if (!/*_.VALDATA___V1121*/ curfptr[1120]) /*_.VALDATA___V1121*/ curfptr[1120] = (void*)&cdat->dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_hash = 831993304;
-  cdat->dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1115__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR));
- 
- /*inistring dstr_1116__OUT_CPLUGIN_COMP*/
- /*_.VALSTR___V1122*/ curfptr[1121] = (void*)&cdat->dstr_1116__OUT_CPLUGIN_COMP;
-  cdat->dstr_1116__OUT_CPLUGIN_COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1116__OUT_CPLUGIN_COMP.val, "OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", sizeof(cdat->dstr_1116__OUT_CPLUGIN_COMP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:869:/ iniobj");
- /*iniobj dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
- if (!/*_.VALDATA___V1123*/ curfptr[1122]) /*_.VALDATA___V1123*/ curfptr[1122] = (void*)&cdat->dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_hash = 1016308859;
-  cdat->dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1117__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR));
- 
- /*inimult dtup_1118__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
- /*_.VALTUP___V1127*/ curfptr[1126] = (void*)&cdat->dtup_1118__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  cdat->dtup_1118__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1118__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.nbval = 1;
- /*inimult dtup_1119__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
- /*_.VALTUP___V1125*/ curfptr[1124] = (void*)&cdat->dtup_1119__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
-  cdat->dtup_1119__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1119__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.nbval = 0;
- /*inistring dstr_1120__melt_puts_stderr*/
- /*_.VALSTR___V1126*/ curfptr[1125] = (void*)&cdat->dstr_1120__melt_puts_stderr;
-  cdat->dstr_1120__melt_puts_stderr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1120__melt_puts_stderr.val, "melt_puts(stderr,melt_compiled_timestamp)", sizeof(cdat->dstr_1120__melt_puts_stderr.val)-1);
- 
- /*inistring dstr_1121__OUT_CPLUGIN_COMP*/
- /*_.VALSTR___V1124*/ curfptr[1123] = (void*)&cdat->dstr_1121__OUT_CPLUGIN_COMP;
-  cdat->dstr_1121__OUT_CPLUGIN_COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1121__OUT_CPLUGIN_COMP.val, "OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", sizeof(cdat->dstr_1121__OUT_CPLUGIN_COMP.val)-1);
- 
- /*iniobj dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
- if (!/*_.VALDATA___V1128*/ curfptr[1127]) /*_.VALDATA___V1128*/ curfptr[1127] = (void*)&cdat->dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_hash = 140933283;
-  cdat->dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1122__OUT_CPLUGIN_MD5_CHECKSUM_ERR));
- 
- /*inistring dstr_1123__OUT_CPLUGIN_MD5_*/
- /*_.VALSTR___V1129*/ curfptr[1128] = (void*)&cdat->dstr_1123__OUT_CPLUGIN_MD5_;
-  cdat->dstr_1123__OUT_CPLUGIN_MD5_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1123__OUT_CPLUGIN_MD5_.val, "OUT_CPLUGIN_MD5_CHECKSUM_ERR", sizeof(cdat->dstr_1123__OUT_CPLUGIN_MD5_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:870:/ iniobj");
- /*iniobj dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
- if (!/*_.VALDATA___V1130*/ curfptr[1129]) /*_.VALDATA___V1130*/ curfptr[1129] = (void*)&cdat->dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_hash = 1053924079;
-  cdat->dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1124__OUT_CPLUGIN_MD5_CHECKSUM_ERR));
- 
- /*inimult dtup_1125__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
- /*_.VALTUP___V1134*/ curfptr[1133] = (void*)&cdat->dtup_1125__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  cdat->dtup_1125__OUT_CPLUGIN_MD5_CHECKSUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1125__OUT_CPLUGIN_MD5_CHECKSUM_ERR.nbval = 1;
- /*inimult dtup_1126__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
- /*_.VALTUP___V1132*/ curfptr[1131] = (void*)&cdat->dtup_1126__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
-  cdat->dtup_1126__OUT_CPLUGIN_MD5_CHECKSUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1126__OUT_CPLUGIN_MD5_CHECKSUM_ERR.nbval = 0;
- /*inistring dstr_1127__melt_puts_stderr*/
- /*_.VALSTR___V1133*/ curfptr[1132] = (void*)&cdat->dstr_1127__melt_puts_stderr;
-  cdat->dstr_1127__melt_puts_stderr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1127__melt_puts_stderr.val, "melt_puts(stderr,melt_md5)", sizeof(cdat->dstr_1127__melt_puts_stderr.val)-1);
- 
- /*inistring dstr_1128__OUT_CPLUGIN_MD5_*/
- /*_.VALSTR___V1131*/ curfptr[1130] = (void*)&cdat->dstr_1128__OUT_CPLUGIN_MD5_;
-  cdat->dstr_1128__OUT_CPLUGIN_MD5_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1128__OUT_CPLUGIN_MD5_.val, "OUT_CPLUGIN_MD5_CHECKSUM_ERR", sizeof(cdat->dstr_1128__OUT_CPLUGIN_MD5_.val)-1);
- 
- /*iniobj dsym_1129__MINOR_GARBCOLL*/
- if (!/*_.VALDATA___V1135*/ curfptr[1134]) /*_.VALDATA___V1135*/ curfptr[1134] = (void*)&cdat->dsym_1129__MINOR_GARBCOLL;
-  melt_assertmsg("iniobj checkdiscr dsym_1129__MINOR_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1129__MINOR_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1129__MINOR_GARBCOLL.obj_hash = 614408054;
-  cdat->dsym_1129__MINOR_GARBCOLL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1129__MINOR_GARBCOLL));
- 
- /*inistring dstr_1130__MINOR_GARBCOLL*/
- /*_.VALSTR___V1136*/ curfptr[1135] = (void*)&cdat->dstr_1130__MINOR_GARBCOLL;
-  cdat->dstr_1130__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1130__MINOR_GARBCOLL.val, "MINOR_GARBCOLL", sizeof(cdat->dstr_1130__MINOR_GARBCOLL.val)-1);
+ /*iniobj dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
+ if (!/*_.VALDATA___V1115*/ curfptr[1114]) /*_.VALDATA___V1115*/ curfptr[1114] = (void*)&cdat->dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_hash = 381736805;
+  cdat->dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1109__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR));
+ 
+ /*inimult dtup_1110__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
+ /*_.VALTUP___V1119*/ curfptr[1118] = (void*)&cdat->dtup_1110__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  cdat->dtup_1110__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1110__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.nbval = 1;
+ /*inimult dtup_1111__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
+ /*_.VALTUP___V1117*/ curfptr[1116] = (void*)&cdat->dtup_1111__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR;
+  cdat->dtup_1111__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1111__OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR.nbval = 0;
+ /*inistring dstr_1112__melt_puts_stderr*/
+ /*_.VALSTR___V1118*/ curfptr[1117] = (void*)&cdat->dstr_1112__melt_puts_stderr;
+  cdat->dstr_1112__melt_puts_stderr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1112__melt_puts_stderr.val, "melt_puts(stderr,melt_compiled_timestamp)", sizeof(cdat->dstr_1112__melt_puts_stderr.val)-1);
+ 
+ /*inistring dstr_1113__OUT_CPLUGIN_COMP*/
+ /*_.VALSTR___V1116*/ curfptr[1115] = (void*)&cdat->dstr_1113__OUT_CPLUGIN_COMP;
+  cdat->dstr_1113__OUT_CPLUGIN_COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1113__OUT_CPLUGIN_COMP.val, "OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", sizeof(cdat->dstr_1113__OUT_CPLUGIN_COMP.val)-1);
+ 
+ /*iniobj dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
+ if (!/*_.VALDATA___V1120*/ curfptr[1119]) /*_.VALDATA___V1120*/ curfptr[1119] = (void*)&cdat->dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_hash = 140933283;
+  cdat->dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1114__OUT_CPLUGIN_MD5_CHECKSUM_ERR));
+ 
+ /*inistring dstr_1115__OUT_CPLUGIN_MD5_*/
+ /*_.VALSTR___V1121*/ curfptr[1120] = (void*)&cdat->dstr_1115__OUT_CPLUGIN_MD5_;
+  cdat->dstr_1115__OUT_CPLUGIN_MD5_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1115__OUT_CPLUGIN_MD5_.val, "OUT_CPLUGIN_MD5_CHECKSUM_ERR", sizeof(cdat->dstr_1115__OUT_CPLUGIN_MD5_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:865:/ iniobj");
+ /*iniobj dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
+ if (!/*_.VALDATA___V1122*/ curfptr[1121]) /*_.VALDATA___V1122*/ curfptr[1121] = (void*)&cdat->dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_hash = 287798803;
+  cdat->dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1116__OUT_CPLUGIN_MD5_CHECKSUM_ERR));
+ 
+ /*inimult dtup_1117__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
+ /*_.VALTUP___V1126*/ curfptr[1125] = (void*)&cdat->dtup_1117__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  cdat->dtup_1117__OUT_CPLUGIN_MD5_CHECKSUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1117__OUT_CPLUGIN_MD5_CHECKSUM_ERR.nbval = 1;
+ /*inimult dtup_1118__OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
+ /*_.VALTUP___V1124*/ curfptr[1123] = (void*)&cdat->dtup_1118__OUT_CPLUGIN_MD5_CHECKSUM_ERR;
+  cdat->dtup_1118__OUT_CPLUGIN_MD5_CHECKSUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1118__OUT_CPLUGIN_MD5_CHECKSUM_ERR.nbval = 0;
+ /*inistring dstr_1119__melt_puts_stderr*/
+ /*_.VALSTR___V1125*/ curfptr[1124] = (void*)&cdat->dstr_1119__melt_puts_stderr;
+  cdat->dstr_1119__melt_puts_stderr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1119__melt_puts_stderr.val, "melt_puts(stderr,melt_md5)", sizeof(cdat->dstr_1119__melt_puts_stderr.val)-1);
+ 
+ /*inistring dstr_1120__OUT_CPLUGIN_MD5_*/
+ /*_.VALSTR___V1123*/ curfptr[1122] = (void*)&cdat->dstr_1120__OUT_CPLUGIN_MD5_;
+  cdat->dstr_1120__OUT_CPLUGIN_MD5_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1120__OUT_CPLUGIN_MD5_.val, "OUT_CPLUGIN_MD5_CHECKSUM_ERR", sizeof(cdat->dstr_1120__OUT_CPLUGIN_MD5_.val)-1);
+ 
+ /*iniobj dsym_1121__MINOR_GARBCOLL*/
+ if (!/*_.VALDATA___V1127*/ curfptr[1126]) /*_.VALDATA___V1127*/ curfptr[1126] = (void*)&cdat->dsym_1121__MINOR_GARBCOLL;
+  melt_assertmsg("iniobj checkdiscr dsym_1121__MINOR_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1121__MINOR_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1121__MINOR_GARBCOLL.obj_hash = 614408054;
+  cdat->dsym_1121__MINOR_GARBCOLL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1121__MINOR_GARBCOLL));
+ 
+ /*inistring dstr_1122__MINOR_GARBCOLL*/
+ /*_.VALSTR___V1128*/ curfptr[1127] = (void*)&cdat->dstr_1122__MINOR_GARBCOLL;
+  cdat->dstr_1122__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1122__MINOR_GARBCOLL.val, "MINOR_GARBCOLL", sizeof(cdat->dstr_1122__MINOR_GARBCOLL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:868:/ iniobj");
+ /*iniobj dobj_1123__MINOR_GARBCOLL*/
+ if (!/*_.VALDATA___V1129*/ curfptr[1128]) /*_.VALDATA___V1129*/ curfptr[1128] = (void*)&cdat->dobj_1123__MINOR_GARBCOLL;
+  melt_assertmsg("iniobj checkdiscr dobj_1123__MINOR_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1123__MINOR_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1123__MINOR_GARBCOLL.obj_hash = 403278157;
+  cdat->dobj_1123__MINOR_GARBCOLL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1123__MINOR_GARBCOLL));
+ 
+ /*inimult dtup_1124__MINOR_GARBCOLL*/
+ /*_.VALTUP___V1137*/ curfptr[1136] = (void*)&cdat->dtup_1124__MINOR_GARBCOLL;
+  cdat->dtup_1124__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1124__MINOR_GARBCOLL.nbval = 3;
+ /*inimult dtup_1125__MINOR_GARBCOLL*/
+ /*_.VALTUP___V1134*/ curfptr[1133] = (void*)&cdat->dtup_1125__MINOR_GARBCOLL;
+  cdat->dtup_1125__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1125__MINOR_GARBCOLL.nbval = 1;
+ /*iniobj dsym_1126__SIZ*/
+ if (!/*_.VALDATA___V1132*/ curfptr[1131]) /*_.VALDATA___V1132*/ curfptr[1131] = (void*)&cdat->dsym_1126__SIZ;
+  melt_assertmsg("iniobj checkdiscr dsym_1126__SIZ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1126__SIZ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1126__SIZ.obj_hash = 2526359;
+  cdat->dsym_1126__SIZ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1126__SIZ));
+ 
+ /*inistring dstr_1127__SIZ*/
+ /*_.VALSTR___V1133*/ curfptr[1132] = (void*)&cdat->dstr_1127__SIZ;
+  cdat->dstr_1127__SIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1127__SIZ.val, "SIZ", sizeof(cdat->dstr_1127__SIZ.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:868:/ iniobj");
+ /*iniobj dobj_1128*/
+ if (!/*_.VALDATA___V1131*/ curfptr[1130]) /*_.VALDATA___V1131*/ curfptr[1130] = (void*)&cdat->dobj_1128;
+  melt_assertmsg("iniobj checkdiscr dobj_1128", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1128.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1128.obj_num = 0;
+  cdat->dobj_1128.obj_hash = 482707914;
+  cdat->dobj_1128.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1128));
+ 
+ /*inistring dstr_1129__melt_garbcoll_*/
+ /*_.VALSTR___V1135*/ curfptr[1134] = (void*)&cdat->dstr_1129__melt_garbcoll_;
+  cdat->dstr_1129__melt_garbcoll_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1129__melt_garbcoll_.val, "melt_garbcoll((", sizeof(cdat->dstr_1129__melt_garbcoll_.val)-1);
+ 
+ /*inistring dstr_1130__MELT_MINOR_OR*/
+ /*_.VALSTR___V1136*/ curfptr[1135] = (void*)&cdat->dstr_1130__MELT_MINOR_OR;
+  cdat->dstr_1130__MELT_MINOR_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1130__MELT_MINOR_OR.val, "), MELT_MINOR_OR_FULL)", sizeof(cdat->dstr_1130__MELT_MINOR_OR.val)-1);
+ 
+ /*inistring dstr_1131__MINOR_GARBCOLL*/
+ /*_.VALSTR___V1130*/ curfptr[1129] = (void*)&cdat->dstr_1131__MINOR_GARBCOLL;
+  cdat->dstr_1131__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1131__MINOR_GARBCOLL.val, "MINOR_GARBCOLL", sizeof(cdat->dstr_1131__MINOR_GARBCOLL.val)-1);
+ 
+ /*iniobj dsym_1132__FULL_GARBCOLL*/
+ if (!/*_.VALDATA___V1138*/ curfptr[1137]) /*_.VALDATA___V1138*/ curfptr[1137] = (void*)&cdat->dsym_1132__FULL_GARBCOLL;
+  melt_assertmsg("iniobj checkdiscr dsym_1132__FULL_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1132__FULL_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1132__FULL_GARBCOLL.obj_hash = 904349259;
+  cdat->dsym_1132__FULL_GARBCOLL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1132__FULL_GARBCOLL));
+ 
+ /*inistring dstr_1133__FULL_GARBCOLL*/
+ /*_.VALSTR___V1139*/ curfptr[1138] = (void*)&cdat->dstr_1133__FULL_GARBCOLL;
+  cdat->dstr_1133__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1133__FULL_GARBCOLL.val, "FULL_GARBCOLL", sizeof(cdat->dstr_1133__FULL_GARBCOLL.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:873:/ iniobj");
- /*iniobj dobj_1131__MINOR_GARBCOLL*/
- if (!/*_.VALDATA___V1137*/ curfptr[1136]) /*_.VALDATA___V1137*/ curfptr[1136] = (void*)&cdat->dobj_1131__MINOR_GARBCOLL;
-  melt_assertmsg("iniobj checkdiscr dobj_1131__MINOR_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1131__MINOR_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1131__MINOR_GARBCOLL.obj_hash = 259452263;
-  cdat->dobj_1131__MINOR_GARBCOLL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1131__MINOR_GARBCOLL));
- 
- /*inimult dtup_1132__MINOR_GARBCOLL*/
- /*_.VALTUP___V1145*/ curfptr[1144] = (void*)&cdat->dtup_1132__MINOR_GARBCOLL;
-  cdat->dtup_1132__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1132__MINOR_GARBCOLL.nbval = 3;
- /*inimult dtup_1133__MINOR_GARBCOLL*/
- /*_.VALTUP___V1142*/ curfptr[1141] = (void*)&cdat->dtup_1133__MINOR_GARBCOLL;
-  cdat->dtup_1133__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1133__MINOR_GARBCOLL.nbval = 1;
- /*iniobj dsym_1134__SIZ*/
- if (!/*_.VALDATA___V1140*/ curfptr[1139]) /*_.VALDATA___V1140*/ curfptr[1139] = (void*)&cdat->dsym_1134__SIZ;
-  melt_assertmsg("iniobj checkdiscr dsym_1134__SIZ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1134__SIZ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1134__SIZ.obj_hash = 2526359;
-  cdat->dsym_1134__SIZ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1134__SIZ));
- 
- /*inistring dstr_1135__SIZ*/
- /*_.VALSTR___V1141*/ curfptr[1140] = (void*)&cdat->dstr_1135__SIZ;
-  cdat->dstr_1135__SIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1135__SIZ.val, "SIZ", sizeof(cdat->dstr_1135__SIZ.val)-1);
- 
+ /*iniobj dobj_1134__FULL_GARBCOLL*/
+ if (!/*_.VALDATA___V1140*/ curfptr[1139]) /*_.VALDATA___V1140*/ curfptr[1139] = (void*)&cdat->dobj_1134__FULL_GARBCOLL;
+  melt_assertmsg("iniobj checkdiscr dobj_1134__FULL_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1134__FULL_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1134__FULL_GARBCOLL.obj_hash = 501822162;
+  cdat->dobj_1134__FULL_GARBCOLL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1134__FULL_GARBCOLL));
+ 
+ /*inimult dtup_1135__FULL_GARBCOLL*/
+ /*_.VALTUP___V1146*/ curfptr[1145] = (void*)&cdat->dtup_1135__FULL_GARBCOLL;
+  cdat->dtup_1135__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1135__FULL_GARBCOLL.nbval = 3;
+ /*inimult dtup_1136__FULL_GARBCOLL*/
+ /*_.VALTUP___V1143*/ curfptr[1142] = (void*)&cdat->dtup_1136__FULL_GARBCOLL;
+  cdat->dtup_1136__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1136__FULL_GARBCOLL.nbval = 1;
  MELT_LOCATION("warmelt-first.melt:873:/ iniobj");
- /*iniobj dobj_1136*/
- if (!/*_.VALDATA___V1139*/ curfptr[1138]) /*_.VALDATA___V1139*/ curfptr[1138] = (void*)&cdat->dobj_1136;
-  melt_assertmsg("iniobj checkdiscr dobj_1136", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1136.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1136.obj_num = 0;
-  cdat->dobj_1136.obj_hash = 640407031;
-  cdat->dobj_1136.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1136));
- 
- /*inistring dstr_1137__melt_garbcoll_*/
- /*_.VALSTR___V1143*/ curfptr[1142] = (void*)&cdat->dstr_1137__melt_garbcoll_;
-  cdat->dstr_1137__melt_garbcoll_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1137__melt_garbcoll_.val, "melt_garbcoll((", sizeof(cdat->dstr_1137__melt_garbcoll_.val)-1);
- 
- /*inistring dstr_1138__MELT_MINOR_OR*/
- /*_.VALSTR___V1144*/ curfptr[1143] = (void*)&cdat->dstr_1138__MELT_MINOR_OR;
-  cdat->dstr_1138__MELT_MINOR_OR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1138__MELT_MINOR_OR.val, "), MELT_MINOR_OR_FULL)", sizeof(cdat->dstr_1138__MELT_MINOR_OR.val)-1);
- 
- /*inistring dstr_1139__MINOR_GARBCOLL*/
- /*_.VALSTR___V1138*/ curfptr[1137] = (void*)&cdat->dstr_1139__MINOR_GARBCOLL;
-  cdat->dstr_1139__MINOR_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1139__MINOR_GARBCOLL.val, "MINOR_GARBCOLL", sizeof(cdat->dstr_1139__MINOR_GARBCOLL.val)-1);
- 
- /*iniobj dsym_1140__FULL_GARBCOLL*/
- if (!/*_.VALDATA___V1146*/ curfptr[1145]) /*_.VALDATA___V1146*/ curfptr[1145] = (void*)&cdat->dsym_1140__FULL_GARBCOLL;
-  melt_assertmsg("iniobj checkdiscr dsym_1140__FULL_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1140__FULL_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1140__FULL_GARBCOLL.obj_hash = 904349259;
-  cdat->dsym_1140__FULL_GARBCOLL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1140__FULL_GARBCOLL));
- 
- /*inistring dstr_1141__FULL_GARBCOLL*/
- /*_.VALSTR___V1147*/ curfptr[1146] = (void*)&cdat->dstr_1141__FULL_GARBCOLL;
-  cdat->dstr_1141__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1141__FULL_GARBCOLL.val, "FULL_GARBCOLL", sizeof(cdat->dstr_1141__FULL_GARBCOLL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:878:/ iniobj");
- /*iniobj dobj_1142__FULL_GARBCOLL*/
- if (!/*_.VALDATA___V1148*/ curfptr[1147]) /*_.VALDATA___V1148*/ curfptr[1147] = (void*)&cdat->dobj_1142__FULL_GARBCOLL;
-  melt_assertmsg("iniobj checkdiscr dobj_1142__FULL_GARBCOLL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1142__FULL_GARBCOLL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1142__FULL_GARBCOLL.obj_hash = 742528452;
-  cdat->dobj_1142__FULL_GARBCOLL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1142__FULL_GARBCOLL));
- 
- /*inimult dtup_1143__FULL_GARBCOLL*/
- /*_.VALTUP___V1154*/ curfptr[1153] = (void*)&cdat->dtup_1143__FULL_GARBCOLL;
-  cdat->dtup_1143__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1143__FULL_GARBCOLL.nbval = 3;
- /*inimult dtup_1144__FULL_GARBCOLL*/
- /*_.VALTUP___V1151*/ curfptr[1150] = (void*)&cdat->dtup_1144__FULL_GARBCOLL;
-  cdat->dtup_1144__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1144__FULL_GARBCOLL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:878:/ iniobj");
- /*iniobj dobj_1145*/
- if (!/*_.VALDATA___V1150*/ curfptr[1149]) /*_.VALDATA___V1150*/ curfptr[1149] = (void*)&cdat->dobj_1145;
-  melt_assertmsg("iniobj checkdiscr dobj_1145", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1145.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1145.obj_num = 0;
-  cdat->dobj_1145.obj_hash = 460864153;
-  cdat->dobj_1145.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1145));
- 
- /*inistring dstr_1146__melt_garbcoll_*/
- /*_.VALSTR___V1152*/ curfptr[1151] = (void*)&cdat->dstr_1146__melt_garbcoll_;
-  cdat->dstr_1146__melt_garbcoll_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1146__melt_garbcoll_.val, "melt_garbcoll((", sizeof(cdat->dstr_1146__melt_garbcoll_.val)-1);
- 
- /*inistring dstr_1147__MELT_NEED_FUL*/
- /*_.VALSTR___V1153*/ curfptr[1152] = (void*)&cdat->dstr_1147__MELT_NEED_FUL;
-  cdat->dstr_1147__MELT_NEED_FUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1147__MELT_NEED_FUL.val, "), MELT_NEED_FULL)", sizeof(cdat->dstr_1147__MELT_NEED_FUL.val)-1);
- 
- /*inistring dstr_1148__FULL_GARBCOLL*/
- /*_.VALSTR___V1149*/ curfptr[1148] = (void*)&cdat->dstr_1148__FULL_GARBCOLL;
-  cdat->dstr_1148__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1148__FULL_GARBCOLL.val, "FULL_GARBCOLL", sizeof(cdat->dstr_1148__FULL_GARBCOLL.val)-1);
- 
- /*iniobj dsym_1149__GET_SYMBOLSTR*/
- if (!/*_.VALDATA___V1155*/ curfptr[1154]) /*_.VALDATA___V1155*/ curfptr[1154] = (void*)&cdat->dsym_1149__GET_SYMBOLSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_1149__GET_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1149__GET_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1149__GET_SYMBOLSTR.obj_hash = 925875016;
-  cdat->dsym_1149__GET_SYMBOLSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1149__GET_SYMBOLSTR));
- 
- /*inistring dstr_1150__GET_SYMBOLSTR*/
- /*_.VALSTR___V1156*/ curfptr[1155] = (void*)&cdat->dstr_1150__GET_SYMBOLSTR;
-  cdat->dstr_1150__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1150__GET_SYMBOLSTR.val, "GET_SYMBOLSTR", sizeof(cdat->dstr_1150__GET_SYMBOLSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:884:/ iniobj");
- /*iniobj dobj_1151__GET_SYMBOLSTR*/
- if (!/*_.VALDATA___V1157*/ curfptr[1156]) /*_.VALDATA___V1157*/ curfptr[1156] = (void*)&cdat->dobj_1151__GET_SYMBOLSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_1151__GET_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1151__GET_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1151__GET_SYMBOLSTR.obj_hash = 250642446;
-  cdat->dobj_1151__GET_SYMBOLSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1151__GET_SYMBOLSTR));
- 
- /*inimult dtup_1152__GET_SYMBOLSTR*/
- /*_.VALTUP___V1165*/ curfptr[1164] = (void*)&cdat->dtup_1152__GET_SYMBOLSTR;
-  cdat->dtup_1152__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1152__GET_SYMBOLSTR.nbval = 3;
- /*inimult dtup_1153__GET_SYMBOLSTR*/
- /*_.VALTUP___V1162*/ curfptr[1161] = (void*)&cdat->dtup_1153__GET_SYMBOLSTR;
-  cdat->dtup_1153__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1153__GET_SYMBOLSTR.nbval = 1;
- /*iniobj dsym_1154__STRV*/
- if (!/*_.VALDATA___V1160*/ curfptr[1159]) /*_.VALDATA___V1160*/ curfptr[1159] = (void*)&cdat->dsym_1154__STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_1154__STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1154__STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1154__STRV.obj_hash = 118443394;
-  cdat->dsym_1154__STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1154__STRV));
- 
- /*inistring dstr_1155__STRV*/
- /*_.VALSTR___V1161*/ curfptr[1160] = (void*)&cdat->dstr_1155__STRV;
-  cdat->dstr_1155__STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1155__STRV.val, "STRV", sizeof(cdat->dstr_1155__STRV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:884:/ iniobj");
- /*iniobj dobj_1156*/
- if (!/*_.VALDATA___V1159*/ curfptr[1158]) /*_.VALDATA___V1159*/ curfptr[1158] = (void*)&cdat->dobj_1156;
-  melt_assertmsg("iniobj checkdiscr dobj_1156", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1156.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1156.obj_num = 0;
-  cdat->dobj_1156.obj_hash = 816516359;
-  cdat->dobj_1156.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1156));
- 
- /*inistring dstr_1157__meltgc_named_sym*/
- /*_.VALSTR___V1163*/ curfptr[1162] = (void*)&cdat->dstr_1157__meltgc_named_sym;
-  cdat->dstr_1157__meltgc_named_sym.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1157__meltgc_named_sym.val, "meltgc_named_symbol( melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1157__meltgc_named_sym.val)-1);
- 
- /*inistring dstr_1158__MELT_GET_*/
- /*_.VALSTR___V1164*/ curfptr[1163] = (void*)&cdat->dstr_1158__MELT_GET_;
-  cdat->dstr_1158__MELT_GET_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1158__MELT_GET_.val, ")), MELT_GET)", sizeof(cdat->dstr_1158__MELT_GET_.val)-1);
- 
- /*inistring dstr_1159__GET_SYMBOLSTR*/
- /*_.VALSTR___V1158*/ curfptr[1157] = (void*)&cdat->dstr_1159__GET_SYMBOLSTR;
-  cdat->dstr_1159__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1159__GET_SYMBOLSTR.val, "GET_SYMBOLSTR", sizeof(cdat->dstr_1159__GET_SYMBOLSTR.val)-1);
- 
- /*iniobj dsym_1160__CREATE_SYMBOLSTR*/
- if (!/*_.VALDATA___V1166*/ curfptr[1165]) /*_.VALDATA___V1166*/ curfptr[1165] = (void*)&cdat->dsym_1160__CREATE_SYMBOLSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_1160__CREATE_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1160__CREATE_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1160__CREATE_SYMBOLSTR.obj_hash = 552059518;
-  cdat->dsym_1160__CREATE_SYMBOLSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1160__CREATE_SYMBOLSTR));
- 
- /*inistring dstr_1161__CREATE_SYMBOLSTR*/
- /*_.VALSTR___V1167*/ curfptr[1166] = (void*)&cdat->dstr_1161__CREATE_SYMBOLSTR;
-  cdat->dstr_1161__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1161__CREATE_SYMBOLSTR.val, "CREATE_SYMBOLSTR", sizeof(cdat->dstr_1161__CREATE_SYMBOLSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:887:/ iniobj");
- /*iniobj dobj_1162__CREATE_SYMBOLSTR*/
- if (!/*_.VALDATA___V1168*/ curfptr[1167]) /*_.VALDATA___V1168*/ curfptr[1167] = (void*)&cdat->dobj_1162__CREATE_SYMBOLSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_1162__CREATE_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1162__CREATE_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1162__CREATE_SYMBOLSTR.obj_hash = 15464532;
-  cdat->dobj_1162__CREATE_SYMBOLSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1162__CREATE_SYMBOLSTR));
- 
- /*inimult dtup_1163__CREATE_SYMBOLSTR*/
- /*_.VALTUP___V1174*/ curfptr[1173] = (void*)&cdat->dtup_1163__CREATE_SYMBOLSTR;
-  cdat->dtup_1163__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1163__CREATE_SYMBOLSTR.nbval = 3;
- /*inimult dtup_1164__CREATE_SYMBOLSTR*/
- /*_.VALTUP___V1171*/ curfptr[1170] = (void*)&cdat->dtup_1164__CREATE_SYMBOLSTR;
-  cdat->dtup_1164__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1164__CREATE_SYMBOLSTR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:887:/ iniobj");
- /*iniobj dobj_1165*/
- if (!/*_.VALDATA___V1170*/ curfptr[1169]) /*_.VALDATA___V1170*/ curfptr[1169] = (void*)&cdat->dobj_1165;
-  melt_assertmsg("iniobj checkdiscr dobj_1165", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1165.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1165.obj_num = 0;
-  cdat->dobj_1165.obj_hash = 294093304;
-  cdat->dobj_1165.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1165));
- 
- /*inistring dstr_1166__meltgc_named_sym*/
- /*_.VALSTR___V1172*/ curfptr[1171] = (void*)&cdat->dstr_1166__meltgc_named_sym;
-  cdat->dstr_1166__meltgc_named_sym.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1166__meltgc_named_sym.val, "meltgc_named_symbol(melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1166__meltgc_named_sym.val)-1);
- 
- /*inistring dstr_1167__MELT_CREATE_*/
- /*_.VALSTR___V1173*/ curfptr[1172] = (void*)&cdat->dstr_1167__MELT_CREATE_;
-  cdat->dstr_1167__MELT_CREATE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1167__MELT_CREATE_.val, ")), MELT_CREATE)", sizeof(cdat->dstr_1167__MELT_CREATE_.val)-1);
- 
- /*inistring dstr_1168__CREATE_SYMBOLSTR*/
- /*_.VALSTR___V1169*/ curfptr[1168] = (void*)&cdat->dstr_1168__CREATE_SYMBOLSTR;
-  cdat->dstr_1168__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1168__CREATE_SYMBOLSTR.val, "CREATE_SYMBOLSTR", sizeof(cdat->dstr_1168__CREATE_SYMBOLSTR.val)-1);
- 
- /*iniobj dsym_1169__GET_KEYWORDSTR*/
- if (!/*_.VALDATA___V1175*/ curfptr[1174]) /*_.VALDATA___V1175*/ curfptr[1174] = (void*)&cdat->dsym_1169__GET_KEYWORDSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_1169__GET_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1169__GET_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1169__GET_KEYWORDSTR.obj_hash = 439563811;
-  cdat->dsym_1169__GET_KEYWORDSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1169__GET_KEYWORDSTR));
- 
- /*inistring dstr_1170__GET_KEYWORDSTR*/
- /*_.VALSTR___V1176*/ curfptr[1175] = (void*)&cdat->dstr_1170__GET_KEYWORDSTR;
-  cdat->dstr_1170__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1170__GET_KEYWORDSTR.val, "GET_KEYWORDSTR", sizeof(cdat->dstr_1170__GET_KEYWORDSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:893:/ iniobj");
- /*iniobj dobj_1171__GET_KEYWORDSTR*/
- if (!/*_.VALDATA___V1177*/ curfptr[1176]) /*_.VALDATA___V1177*/ curfptr[1176] = (void*)&cdat->dobj_1171__GET_KEYWORDSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_1171__GET_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1171__GET_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1171__GET_KEYWORDSTR.obj_hash = 339999759;
-  cdat->dobj_1171__GET_KEYWORDSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1171__GET_KEYWORDSTR));
- 
- /*inimult dtup_1172__GET_KEYWORDSTR*/
- /*_.VALTUP___V1183*/ curfptr[1182] = (void*)&cdat->dtup_1172__GET_KEYWORDSTR;
-  cdat->dtup_1172__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1172__GET_KEYWORDSTR.nbval = 3;
- /*inimult dtup_1173__GET_KEYWORDSTR*/
- /*_.VALTUP___V1180*/ curfptr[1179] = (void*)&cdat->dtup_1173__GET_KEYWORDSTR;
-  cdat->dtup_1173__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1173__GET_KEYWORDSTR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:893:/ iniobj");
- /*iniobj dobj_1174*/
- if (!/*_.VALDATA___V1179*/ curfptr[1178]) /*_.VALDATA___V1179*/ curfptr[1178] = (void*)&cdat->dobj_1174;
-  melt_assertmsg("iniobj checkdiscr dobj_1174", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1174.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1174.obj_num = 0;
-  cdat->dobj_1174.obj_hash = 361405768;
-  cdat->dobj_1174.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1174));
- 
- /*inistring dstr_1175__meltgc_named_key*/
- /*_.VALSTR___V1181*/ curfptr[1180] = (void*)&cdat->dstr_1175__meltgc_named_key;
-  cdat->dstr_1175__meltgc_named_key.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1175__meltgc_named_key.val, "meltgc_named_keyword( melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1175__meltgc_named_key.val)-1);
- 
- /*inistring dstr_1176__MELT_GET_*/
- /*_.VALSTR___V1182*/ curfptr[1181] = (void*)&cdat->dstr_1176__MELT_GET_;
-  cdat->dstr_1176__MELT_GET_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1176__MELT_GET_.val, ")), MELT_GET)", sizeof(cdat->dstr_1176__MELT_GET_.val)-1);
- 
- /*inistring dstr_1177__GET_KEYWORDSTR*/
- /*_.VALSTR___V1178*/ curfptr[1177] = (void*)&cdat->dstr_1177__GET_KEYWORDSTR;
-  cdat->dstr_1177__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1177__GET_KEYWORDSTR.val, "GET_KEYWORDSTR", sizeof(cdat->dstr_1177__GET_KEYWORDSTR.val)-1);
- 
- /*iniobj dsym_1178__CREATE_KEYWORDSTR*/
- if (!/*_.VALDATA___V1184*/ curfptr[1183]) /*_.VALDATA___V1184*/ curfptr[1183] = (void*)&cdat->dsym_1178__CREATE_KEYWORDSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_1178__CREATE_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1178__CREATE_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1178__CREATE_KEYWORDSTR.obj_hash = 1035757816;
-  cdat->dsym_1178__CREATE_KEYWORDSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1178__CREATE_KEYWORDSTR));
- 
- /*inistring dstr_1179__CREATE_KEYWORDST*/
- /*_.VALSTR___V1185*/ curfptr[1184] = (void*)&cdat->dstr_1179__CREATE_KEYWORDST;
-  cdat->dstr_1179__CREATE_KEYWORDST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1179__CREATE_KEYWORDST.val, "CREATE_KEYWORDSTR", sizeof(cdat->dstr_1179__CREATE_KEYWORDST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:896:/ iniobj");
- /*iniobj dobj_1180__CREATE_KEYWORDSTR*/
- if (!/*_.VALDATA___V1186*/ curfptr[1185]) /*_.VALDATA___V1186*/ curfptr[1185] = (void*)&cdat->dobj_1180__CREATE_KEYWORDSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_1180__CREATE_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1180__CREATE_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1180__CREATE_KEYWORDSTR.obj_hash = 962576617;
-  cdat->dobj_1180__CREATE_KEYWORDSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1180__CREATE_KEYWORDSTR));
- 
- /*inimult dtup_1181__CREATE_KEYWORDSTR*/
- /*_.VALTUP___V1192*/ curfptr[1191] = (void*)&cdat->dtup_1181__CREATE_KEYWORDSTR;
-  cdat->dtup_1181__CREATE_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1181__CREATE_KEYWORDSTR.nbval = 3;
- /*inimult dtup_1182__CREATE_KEYWORDSTR*/
- /*_.VALTUP___V1189*/ curfptr[1188] = (void*)&cdat->dtup_1182__CREATE_KEYWORDSTR;
-  cdat->dtup_1182__CREATE_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1182__CREATE_KEYWORDSTR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:896:/ iniobj");
- /*iniobj dobj_1183*/
- if (!/*_.VALDATA___V1188*/ curfptr[1187]) /*_.VALDATA___V1188*/ curfptr[1187] = (void*)&cdat->dobj_1183;
-  melt_assertmsg("iniobj checkdiscr dobj_1183", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1183.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1183.obj_num = 0;
-  cdat->dobj_1183.obj_hash = 919600975;
-  cdat->dobj_1183.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1183));
- 
- /*inistring dstr_1184__meltgc_named_key*/
- /*_.VALSTR___V1190*/ curfptr[1189] = (void*)&cdat->dstr_1184__meltgc_named_key;
-  cdat->dstr_1184__meltgc_named_key.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1184__meltgc_named_key.val, "meltgc_named_keyword( melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1184__meltgc_named_key.val)-1);
- 
- /*inistring dstr_1185__MELT_CREATE_*/
- /*_.VALSTR___V1191*/ curfptr[1190] = (void*)&cdat->dstr_1185__MELT_CREATE_;
-  cdat->dstr_1185__MELT_CREATE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1185__MELT_CREATE_.val, ")), MELT_CREATE)", sizeof(cdat->dstr_1185__MELT_CREATE_.val)-1);
- 
- /*inistring dstr_1186__CREATE_KEYWORDST*/
- /*_.VALSTR___V1187*/ curfptr[1186] = (void*)&cdat->dstr_1186__CREATE_KEYWORDST;
-  cdat->dstr_1186__CREATE_KEYWORDST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1186__CREATE_KEYWORDST.val, "CREATE_KEYWORDSTR", sizeof(cdat->dstr_1186__CREATE_KEYWORDST.val)-1);
- 
- /*iniobj dsym_1187__ASSERT_FAILED*/
- if (!/*_.VALDATA___V1193*/ curfptr[1192]) /*_.VALDATA___V1193*/ curfptr[1192] = (void*)&cdat->dsym_1187__ASSERT_FAILED;
-  melt_assertmsg("iniobj checkdiscr dsym_1187__ASSERT_FAILED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1187__ASSERT_FAILED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1187__ASSERT_FAILED.obj_hash = 201548028;
-  cdat->dsym_1187__ASSERT_FAILED.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1187__ASSERT_FAILED));
- 
- /*inistring dstr_1188__ASSERT_FAILED*/
- /*_.VALSTR___V1194*/ curfptr[1193] = (void*)&cdat->dstr_1188__ASSERT_FAILED;
-  cdat->dstr_1188__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1188__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof(cdat->dstr_1188__ASSERT_FAILED.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:904:/ iniobj");
- /*iniobj dobj_1189__ASSERT_FAILED*/
- if (!/*_.VALDATA___V1195*/ curfptr[1194]) /*_.VALDATA___V1195*/ curfptr[1194] = (void*)&cdat->dobj_1189__ASSERT_FAILED;
-  melt_assertmsg("iniobj checkdiscr dobj_1189__ASSERT_FAILED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1189__ASSERT_FAILED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1189__ASSERT_FAILED.obj_hash = 356446544;
-  cdat->dobj_1189__ASSERT_FAILED.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1189__ASSERT_FAILED));
- 
- /*inimult dtup_1190__ASSERT_FAILED*/
- /*_.VALTUP___V1213*/ curfptr[1212] = (void*)&cdat->dtup_1190__ASSERT_FAILED;
-  cdat->dtup_1190__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1190__ASSERT_FAILED.nbval = 11;
- /*inimult dtup_1191__ASSERT_FAILED*/
- /*_.VALTUP___V1206*/ curfptr[1205] = (void*)&cdat->dtup_1191__ASSERT_FAILED;
-  cdat->dtup_1191__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1191__ASSERT_FAILED.nbval = 3;
- /*iniobj dsym_1192__MSG*/
- if (!/*_.VALDATA___V1198*/ curfptr[1197]) /*_.VALDATA___V1198*/ curfptr[1197] = (void*)&cdat->dsym_1192__MSG;
-  melt_assertmsg("iniobj checkdiscr dsym_1192__MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1192__MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1192__MSG.obj_hash = 97118120;
-  cdat->dsym_1192__MSG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1192__MSG));
- 
- /*inistring dstr_1193__MSG*/
- /*_.VALSTR___V1199*/ curfptr[1198] = (void*)&cdat->dstr_1193__MSG;
-  cdat->dstr_1193__MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1193__MSG.val, "MSG", sizeof(cdat->dstr_1193__MSG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:904:/ iniobj");
- /*iniobj dobj_1194*/
- if (!/*_.VALDATA___V1197*/ curfptr[1196]) /*_.VALDATA___V1197*/ curfptr[1196] = (void*)&cdat->dobj_1194;
-  melt_assertmsg("iniobj checkdiscr dobj_1194", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1194.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1194.obj_num = 0;
-  cdat->dobj_1194.obj_hash = 214605640;
-  cdat->dobj_1194.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1194));
- 
- /*iniobj dsym_1195__FILENAME*/
- if (!/*_.VALDATA___V1201*/ curfptr[1200]) /*_.VALDATA___V1201*/ curfptr[1200] = (void*)&cdat->dsym_1195__FILENAME;
-  melt_assertmsg("iniobj checkdiscr dsym_1195__FILENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1195__FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1195__FILENAME.obj_hash = 109653219;
-  cdat->dsym_1195__FILENAME.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1195__FILENAME));
- 
- /*inistring dstr_1196__FILENAME*/
- /*_.VALSTR___V1202*/ curfptr[1201] = (void*)&cdat->dstr_1196__FILENAME;
-  cdat->dstr_1196__FILENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1196__FILENAME.val, "FILENAME", sizeof(cdat->dstr_1196__FILENAME.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:904:/ iniobj");
- /*iniobj dobj_1197*/
- if (!/*_.VALDATA___V1200*/ curfptr[1199]) /*_.VALDATA___V1200*/ curfptr[1199] = (void*)&cdat->dobj_1197;
-  melt_assertmsg("iniobj checkdiscr dobj_1197", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1197.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1197.obj_num = 1;
-  cdat->dobj_1197.obj_hash = 1051342823;
-  cdat->dobj_1197.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1197));
- 
- /*iniobj dsym_1198__LINENO*/
- if (!/*_.VALDATA___V1204*/ curfptr[1203]) /*_.VALDATA___V1204*/ curfptr[1203] = (void*)&cdat->dsym_1198__LINENO;
-  melt_assertmsg("iniobj checkdiscr dsym_1198__LINENO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1198__LINENO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1198__LINENO.obj_hash = 590813330;
-  cdat->dsym_1198__LINENO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1198__LINENO));
- 
- /*inistring dstr_1199__LINENO*/
- /*_.VALSTR___V1205*/ curfptr[1204] = (void*)&cdat->dstr_1199__LINENO;
-  cdat->dstr_1199__LINENO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1199__LINENO.val, "LINENO", sizeof(cdat->dstr_1199__LINENO.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:904:/ iniobj");
- /*iniobj dobj_1200*/
- if (!/*_.VALDATA___V1203*/ curfptr[1202]) /*_.VALDATA___V1203*/ curfptr[1202] = (void*)&cdat->dobj_1200;
-  melt_assertmsg("iniobj checkdiscr dobj_1200", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1200.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1200.obj_num = 2;
-  cdat->dobj_1200.obj_hash = 976822960;
-  cdat->dobj_1200.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1200));
- 
- /*inistring dstr_1201__melt_assert_fail*/
- /*_.VALSTR___V1207*/ curfptr[1206] = (void*)&cdat->dstr_1201__melt_assert_fail;
-  cdat->dstr_1201__melt_assert_fail.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1201__melt_assert_fail.val, "melt_assert_failed((", sizeof(cdat->dstr_1201__melt_assert_fail.val)-1);
- 
- /*inistring dstr_1202__*/
- /*_.VALSTR___V1208*/ curfptr[1207] = (void*)&cdat->dstr_1202__;
-  cdat->dstr_1202__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1202__.val, "),(", sizeof(cdat->dstr_1202__.val)-1);
- 
- /*inistring dstr_1203__*/
- /*_.VALSTR___V1209*/ curfptr[1208] = (void*)&cdat->dstr_1203__;
-  cdat->dstr_1203__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1203__.val, ")?(", sizeof(cdat->dstr_1203__.val)-1);
- 
- /*inistring dstr_1204__FILE_*/
- /*_.VALSTR___V1210*/ curfptr[1209] = (void*)&cdat->dstr_1204__FILE_;
-  cdat->dstr_1204__FILE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1204__FILE_.val, "):__FILE__,\n  (", sizeof(cdat->dstr_1204__FILE_.val)-1);
- 
- /*inistring dstr_1205__*/
- /*_.VALSTR___V1211*/ curfptr[1210] = (void*)&cdat->dstr_1205__;
-  cdat->dstr_1205__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1205__.val, ")?(", sizeof(cdat->dstr_1205__.val)-1);
- 
- /*inistring dstr_1206__LINE_FU*/
- /*_.VALSTR___V1212*/ curfptr[1211] = (void*)&cdat->dstr_1206__LINE_FU;
-  cdat->dstr_1206__LINE_FU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1206__LINE_FU.val, "):__LINE__, __FUNCTION__);\n", sizeof(cdat->dstr_1206__LINE_FU.val)-1);
- 
- /*inistring dstr_1207__ASSERT_FAILED*/
- /*_.VALSTR___V1196*/ curfptr[1195] = (void*)&cdat->dstr_1207__ASSERT_FAILED;
-  cdat->dstr_1207__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1207__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof(cdat->dstr_1207__ASSERT_FAILED.val)-1);
- 
- /*iniobj dsym_1208__CHECKCALLSTACK_MSG*/
- if (!/*_.VALDATA___V1214*/ curfptr[1213]) /*_.VALDATA___V1214*/ curfptr[1213] = (void*)&cdat->dsym_1208__CHECKCALLSTACK_MSG;
-  melt_assertmsg("iniobj checkdiscr dsym_1208__CHECKCALLSTACK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1208__CHECKCALLSTACK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1208__CHECKCALLSTACK_MSG.obj_hash = 498174313;
-  cdat->dsym_1208__CHECKCALLSTACK_MSG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1208__CHECKCALLSTACK_MSG));
- 
- /*inistring dstr_1209__CHECKCALLSTACK_M*/
- /*_.VALSTR___V1215*/ curfptr[1214] = (void*)&cdat->dstr_1209__CHECKCALLSTACK_M;
-  cdat->dstr_1209__CHECKCALLSTACK_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1209__CHECKCALLSTACK_M.val, "CHECKCALLSTACK_MSG", sizeof(cdat->dstr_1209__CHECKCALLSTACK_M.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:911:/ iniobj");
- /*iniobj dobj_1210__CHECKCALLSTACK_MSG*/
- if (!/*_.VALDATA___V1216*/ curfptr[1215]) /*_.VALDATA___V1216*/ curfptr[1215] = (void*)&cdat->dobj_1210__CHECKCALLSTACK_MSG;
-  melt_assertmsg("iniobj checkdiscr dobj_1210__CHECKCALLSTACK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1210__CHECKCALLSTACK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1210__CHECKCALLSTACK_MSG.obj_hash = 457882599;
-  cdat->dobj_1210__CHECKCALLSTACK_MSG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1210__CHECKCALLSTACK_MSG));
- 
- /*inimult dtup_1211__CHECKCALLSTACK_MSG*/
- /*_.VALTUP___V1222*/ curfptr[1221] = (void*)&cdat->dtup_1211__CHECKCALLSTACK_MSG;
-  cdat->dtup_1211__CHECKCALLSTACK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1211__CHECKCALLSTACK_MSG.nbval = 3;
- /*inimult dtup_1212__CHECKCALLSTACK_MSG*/
- /*_.VALTUP___V1219*/ curfptr[1218] = (void*)&cdat->dtup_1212__CHECKCALLSTACK_MSG;
-  cdat->dtup_1212__CHECKCALLSTACK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1212__CHECKCALLSTACK_MSG.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:911:/ iniobj");
- /*iniobj dobj_1213*/
- if (!/*_.VALDATA___V1218*/ curfptr[1217]) /*_.VALDATA___V1218*/ curfptr[1217] = (void*)&cdat->dobj_1213;
-  melt_assertmsg("iniobj checkdiscr dobj_1213", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1213.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1213.obj_num = 0;
-  cdat->dobj_1213.obj_hash = 247155340;
-  cdat->dobj_1213.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1213));
- 
- /*inistring dstr_1214__melt_check_call_*/
- /*_.VALSTR___V1220*/ curfptr[1219] = (void*)&cdat->dstr_1214__melt_check_call_;
-  cdat->dstr_1214__melt_check_call_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1214__melt_check_call_.val, "melt_check_call_frames(MELT_ANYWHERE, ", sizeof(cdat->dstr_1214__melt_check_call_.val)-1);
- 
- /*inistring dstr_1215__*/
- /*_.VALSTR___V1221*/ curfptr[1220] = (void*)&cdat->dstr_1215__;
-  cdat->dstr_1215__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1215__.val, ");", sizeof(cdat->dstr_1215__.val)-1);
- 
- /*inistring dstr_1216__CHECKCALLSTACK_M*/
- /*_.VALSTR___V1217*/ curfptr[1216] = (void*)&cdat->dstr_1216__CHECKCALLSTACK_M;
-  cdat->dstr_1216__CHECKCALLSTACK_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1216__CHECKCALLSTACK_M.val, "CHECKCALLSTACK_MSG", sizeof(cdat->dstr_1216__CHECKCALLSTACK_M.val)-1);
- 
- /*iniobj dsym_1217__CBREAK_MSG*/
- if (!/*_.VALDATA___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*)&cdat->dsym_1217__CBREAK_MSG;
-  melt_assertmsg("iniobj checkdiscr dsym_1217__CBREAK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1217__CBREAK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1217__CBREAK_MSG.obj_hash = 336826642;
-  cdat->dsym_1217__CBREAK_MSG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1217__CBREAK_MSG));
- 
- /*inistring dstr_1218__CBREAK_MSG*/
- /*_.VALSTR___V1224*/ curfptr[1223] = (void*)&cdat->dstr_1218__CBREAK_MSG;
-  cdat->dstr_1218__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1218__CBREAK_MSG.val, "CBREAK_MSG", sizeof(cdat->dstr_1218__CBREAK_MSG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:918:/ iniobj");
- /*iniobj dobj_1219__CBREAK_MSG*/
- if (!/*_.VALDATA___V1225*/ curfptr[1224]) /*_.VALDATA___V1225*/ curfptr[1224] = (void*)&cdat->dobj_1219__CBREAK_MSG;
-  melt_assertmsg("iniobj checkdiscr dobj_1219__CBREAK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1219__CBREAK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1219__CBREAK_MSG.obj_hash = 1012949695;
-  cdat->dobj_1219__CBREAK_MSG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1219__CBREAK_MSG));
- 
- /*inimult dtup_1220__CBREAK_MSG*/
- /*_.VALTUP___V1231*/ curfptr[1230] = (void*)&cdat->dtup_1220__CBREAK_MSG;
-  cdat->dtup_1220__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1220__CBREAK_MSG.nbval = 3;
- /*inimult dtup_1221__CBREAK_MSG*/
- /*_.VALTUP___V1228*/ curfptr[1227] = (void*)&cdat->dtup_1221__CBREAK_MSG;
-  cdat->dtup_1221__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1221__CBREAK_MSG.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:918:/ iniobj");
- /*iniobj dobj_1222*/
- if (!/*_.VALDATA___V1227*/ curfptr[1226]) /*_.VALDATA___V1227*/ curfptr[1226] = (void*)&cdat->dobj_1222;
-  melt_assertmsg("iniobj checkdiscr dobj_1222", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1222.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1222.obj_num = 0;
-  cdat->dobj_1222.obj_hash = 651769020;
-  cdat->dobj_1222.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1222));
- 
- /*inistring dstr_1223__melt_cbreak_*/
- /*_.VALSTR___V1229*/ curfptr[1228] = (void*)&cdat->dstr_1223__melt_cbreak_;
-  cdat->dstr_1223__melt_cbreak_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1223__melt_cbreak_.val, "melt_cbreak(", sizeof(cdat->dstr_1223__melt_cbreak_.val)-1);
- 
- /*inistring dstr_1224__*/
- /*_.VALSTR___V1230*/ curfptr[1229] = (void*)&cdat->dstr_1224__;
-  cdat->dstr_1224__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1224__.val, ")", sizeof(cdat->dstr_1224__.val)-1);
- 
- /*inistring dstr_1225__CBREAK_MSG*/
- /*_.VALSTR___V1226*/ curfptr[1225] = (void*)&cdat->dstr_1225__CBREAK_MSG;
-  cdat->dstr_1225__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1225__CBREAK_MSG.val, "CBREAK_MSG", sizeof(cdat->dstr_1225__CBREAK_MSG.val)-1);
- 
- /*iniobj dsym_1226__I*/
- if (!/*_.VALDATA___V1232*/ curfptr[1231]) /*_.VALDATA___V1232*/ curfptr[1231] = (void*)&cdat->dsym_1226__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1226__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1226__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1226__I.obj_hash = 974250157;
-  cdat->dsym_1226__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1226__I));
- 
- /*inistring dstr_1227__I*/
- /*_.VALSTR___V1233*/ curfptr[1232] = (void*)&cdat->dstr_1227__I;
-  cdat->dstr_1227__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1227__I.val, "<I", sizeof(cdat->dstr_1227__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:924:/ iniobj");
- /*iniobj dobj_1228__I*/
- if (!/*_.VALDATA___V1234*/ curfptr[1233]) /*_.VALDATA___V1234*/ curfptr[1233] = (void*)&cdat->dobj_1228__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1228__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1228__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1228__I.obj_hash = 388493318;
-  cdat->dobj_1228__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1228__I));
- 
- /*inimult dtup_1229__I*/
- /*_.VALTUP___V1242*/ curfptr[1241] = (void*)&cdat->dtup_1229__I;
-  cdat->dtup_1229__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1229__I.nbval = 5;
- /*inimult dtup_1230__I*/
- /*_.VALTUP___V1238*/ curfptr[1237] = (void*)&cdat->dtup_1230__I;
-  cdat->dtup_1230__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1230__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:924:/ iniobj");
- /*iniobj dobj_1231*/
- if (!/*_.VALDATA___V1236*/ curfptr[1235]) /*_.VALDATA___V1236*/ curfptr[1235] = (void*)&cdat->dobj_1231;
-  melt_assertmsg("iniobj checkdiscr dobj_1231", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1231.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1231.obj_num = 0;
-  cdat->dobj_1231.obj_hash = 737230235;
-  cdat->dobj_1231.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1231));
- 
- MELT_LOCATION("warmelt-first.melt:924:/ iniobj");
- /*iniobj dobj_1232*/
- if (!/*_.VALDATA___V1237*/ curfptr[1236]) /*_.VALDATA___V1237*/ curfptr[1236] = (void*)&cdat->dobj_1232;
-  melt_assertmsg("iniobj checkdiscr dobj_1232", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1232.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1232.obj_num = 1;
-  cdat->dobj_1232.obj_hash = 667312111;
-  cdat->dobj_1232.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1232));
- 
- /*inistring dstr_1233__*/
- /*_.VALSTR___V1239*/ curfptr[1238] = (void*)&cdat->dstr_1233__;
-  cdat->dstr_1233__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1233__.val, "((", sizeof(cdat->dstr_1233__.val)-1);
- 
- /*inistring dstr_1234__*/
- /*_.VALSTR___V1240*/ curfptr[1239] = (void*)&cdat->dstr_1234__;
-  cdat->dstr_1234__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1234__.val, ") < (", sizeof(cdat->dstr_1234__.val)-1);
- 
- /*inistring dstr_1235__*/
- /*_.VALSTR___V1241*/ curfptr[1240] = (void*)&cdat->dstr_1235__;
-  cdat->dstr_1235__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1235__.val, "))", sizeof(cdat->dstr_1235__.val)-1);
- 
- /*inistring dstr_1236__I*/
- /*_.VALSTR___V1235*/ curfptr[1234] = (void*)&cdat->dstr_1236__I;
-  cdat->dstr_1236__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1236__I.val, "<I", sizeof(cdat->dstr_1236__I.val)-1);
- 
- /*iniobj dsym_1237__I*/
- if (!/*_.VALDATA___V1243*/ curfptr[1242]) /*_.VALDATA___V1243*/ curfptr[1242] = (void*)&cdat->dsym_1237__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1237__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1237__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1237__I.obj_hash = 113283346;
-  cdat->dsym_1237__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1237__I));
- 
- /*inistring dstr_1238__I*/
- /*_.VALSTR___V1244*/ curfptr[1243] = (void*)&cdat->dstr_1238__I;
-  cdat->dstr_1238__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1238__I.val, "<=I", sizeof(cdat->dstr_1238__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:926:/ iniobj");
- /*iniobj dobj_1239__I*/
- if (!/*_.VALDATA___V1245*/ curfptr[1244]) /*_.VALDATA___V1245*/ curfptr[1244] = (void*)&cdat->dobj_1239__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1239__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1239__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1239__I.obj_hash = 673663361;
-  cdat->dobj_1239__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1239__I));
- 
- /*inimult dtup_1240__I*/
- /*_.VALTUP___V1253*/ curfptr[1252] = (void*)&cdat->dtup_1240__I;
-  cdat->dtup_1240__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1240__I.nbval = 5;
- /*inimult dtup_1241__I*/
- /*_.VALTUP___V1249*/ curfptr[1248] = (void*)&cdat->dtup_1241__I;
-  cdat->dtup_1241__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1241__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:926:/ iniobj");
- /*iniobj dobj_1242*/
- if (!/*_.VALDATA___V1247*/ curfptr[1246]) /*_.VALDATA___V1247*/ curfptr[1246] = (void*)&cdat->dobj_1242;
-  melt_assertmsg("iniobj checkdiscr dobj_1242", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1242.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1242.obj_num = 0;
-  cdat->dobj_1242.obj_hash = 305551869;
-  cdat->dobj_1242.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1242));
- 
- MELT_LOCATION("warmelt-first.melt:926:/ iniobj");
- /*iniobj dobj_1243*/
- if (!/*_.VALDATA___V1248*/ curfptr[1247]) /*_.VALDATA___V1248*/ curfptr[1247] = (void*)&cdat->dobj_1243;
-  melt_assertmsg("iniobj checkdiscr dobj_1243", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1243.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1243.obj_num = 1;
-  cdat->dobj_1243.obj_hash = 179684693;
-  cdat->dobj_1243.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1243));
- 
- /*inistring dstr_1244__*/
- /*_.VALSTR___V1250*/ curfptr[1249] = (void*)&cdat->dstr_1244__;
-  cdat->dstr_1244__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1244__.val, "((", sizeof(cdat->dstr_1244__.val)-1);
- 
- /*inistring dstr_1245__*/
- /*_.VALSTR___V1251*/ curfptr[1250] = (void*)&cdat->dstr_1245__;
-  cdat->dstr_1245__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1245__.val, ") <= (", sizeof(cdat->dstr_1245__.val)-1);
- 
- /*inistring dstr_1246__*/
- /*_.VALSTR___V1252*/ curfptr[1251] = (void*)&cdat->dstr_1246__;
-  cdat->dstr_1246__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1246__.val, "))", sizeof(cdat->dstr_1246__.val)-1);
- 
- /*inistring dstr_1247__I*/
- /*_.VALSTR___V1246*/ curfptr[1245] = (void*)&cdat->dstr_1247__I;
-  cdat->dstr_1247__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1247__I.val, "<=I", sizeof(cdat->dstr_1247__I.val)-1);
- 
- /*iniobj dsym_1248__I*/
- if (!/*_.VALDATA___V1254*/ curfptr[1253]) /*_.VALDATA___V1254*/ curfptr[1253] = (void*)&cdat->dsym_1248__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1248__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1248__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1248__I.obj_hash = 147589638;
-  cdat->dsym_1248__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1248__I));
- 
- /*inistring dstr_1249__I*/
- /*_.VALSTR___V1255*/ curfptr[1254] = (void*)&cdat->dstr_1249__I;
-  cdat->dstr_1249__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1249__I.val, "==I", sizeof(cdat->dstr_1249__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:928:/ iniobj");
- /*iniobj dobj_1250__I*/
- if (!/*_.VALDATA___V1256*/ curfptr[1255]) /*_.VALDATA___V1256*/ curfptr[1255] = (void*)&cdat->dobj_1250__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1250__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1250__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1250__I.obj_hash = 1069375672;
-  cdat->dobj_1250__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1250__I));
- 
- /*inimult dtup_1251__I*/
- /*_.VALTUP___V1264*/ curfptr[1263] = (void*)&cdat->dtup_1251__I;
-  cdat->dtup_1251__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1251__I.nbval = 5;
- /*inimult dtup_1252__I*/
- /*_.VALTUP___V1260*/ curfptr[1259] = (void*)&cdat->dtup_1252__I;
-  cdat->dtup_1252__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1252__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:928:/ iniobj");
- /*iniobj dobj_1253*/
- if (!/*_.VALDATA___V1258*/ curfptr[1257]) /*_.VALDATA___V1258*/ curfptr[1257] = (void*)&cdat->dobj_1253;
-  melt_assertmsg("iniobj checkdiscr dobj_1253", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1253.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1253.obj_num = 0;
-  cdat->dobj_1253.obj_hash = 622521444;
-  cdat->dobj_1253.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1253));
- 
- MELT_LOCATION("warmelt-first.melt:928:/ iniobj");
- /*iniobj dobj_1254*/
- if (!/*_.VALDATA___V1259*/ curfptr[1258]) /*_.VALDATA___V1259*/ curfptr[1258] = (void*)&cdat->dobj_1254;
-  melt_assertmsg("iniobj checkdiscr dobj_1254", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1254.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1254.obj_num = 1;
-  cdat->dobj_1254.obj_hash = 963726061;
-  cdat->dobj_1254.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1254));
- 
- /*inistring dstr_1255__*/
- /*_.VALSTR___V1261*/ curfptr[1260] = (void*)&cdat->dstr_1255__;
-  cdat->dstr_1255__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1255__.val, "((", sizeof(cdat->dstr_1255__.val)-1);
- 
- /*inistring dstr_1256__*/
- /*_.VALSTR___V1262*/ curfptr[1261] = (void*)&cdat->dstr_1256__;
-  cdat->dstr_1256__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1256__.val, ") == (", sizeof(cdat->dstr_1256__.val)-1);
- 
- /*inistring dstr_1257__*/
- /*_.VALSTR___V1263*/ curfptr[1262] = (void*)&cdat->dstr_1257__;
-  cdat->dstr_1257__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1257__.val, "))", sizeof(cdat->dstr_1257__.val)-1);
- 
- /*inistring dstr_1258__I*/
- /*_.VALSTR___V1257*/ curfptr[1256] = (void*)&cdat->dstr_1258__I;
-  cdat->dstr_1258__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1258__I.val, "==I", sizeof(cdat->dstr_1258__I.val)-1);
- 
- /*iniobj dsym_1259__I*/
- if (!/*_.VALDATA___V1265*/ curfptr[1264]) /*_.VALDATA___V1265*/ curfptr[1264] = (void*)&cdat->dsym_1259__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1259__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1259__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1259__I.obj_hash = 325503317;
-  cdat->dsym_1259__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1259__I));
- 
- /*inistring dstr_1260__I*/
- /*_.VALSTR___V1266*/ curfptr[1265] = (void*)&cdat->dstr_1260__I;
-  cdat->dstr_1260__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1260__I.val, ">I", sizeof(cdat->dstr_1260__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:930:/ iniobj");
- /*iniobj dobj_1261__I*/
- if (!/*_.VALDATA___V1267*/ curfptr[1266]) /*_.VALDATA___V1267*/ curfptr[1266] = (void*)&cdat->dobj_1261__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1261__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1261__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1261__I.obj_hash = 632900551;
-  cdat->dobj_1261__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1261__I));
- 
- /*inimult dtup_1262__I*/
- /*_.VALTUP___V1275*/ curfptr[1274] = (void*)&cdat->dtup_1262__I;
-  cdat->dtup_1262__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1262__I.nbval = 5;
- /*inimult dtup_1263__I*/
- /*_.VALTUP___V1271*/ curfptr[1270] = (void*)&cdat->dtup_1263__I;
-  cdat->dtup_1263__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1263__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:930:/ iniobj");
- /*iniobj dobj_1264*/
- if (!/*_.VALDATA___V1269*/ curfptr[1268]) /*_.VALDATA___V1269*/ curfptr[1268] = (void*)&cdat->dobj_1264;
-  melt_assertmsg("iniobj checkdiscr dobj_1264", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1264.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1264.obj_num = 0;
-  cdat->dobj_1264.obj_hash = 248244686;
-  cdat->dobj_1264.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1264));
- 
- MELT_LOCATION("warmelt-first.melt:930:/ iniobj");
- /*iniobj dobj_1265*/
- if (!/*_.VALDATA___V1270*/ curfptr[1269]) /*_.VALDATA___V1270*/ curfptr[1269] = (void*)&cdat->dobj_1265;
-  melt_assertmsg("iniobj checkdiscr dobj_1265", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1265.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1265.obj_num = 1;
-  cdat->dobj_1265.obj_hash = 740178954;
-  cdat->dobj_1265.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1265));
- 
- /*inistring dstr_1266__*/
- /*_.VALSTR___V1272*/ curfptr[1271] = (void*)&cdat->dstr_1266__;
-  cdat->dstr_1266__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1266__.val, "((", sizeof(cdat->dstr_1266__.val)-1);
- 
- /*inistring dstr_1267__*/
- /*_.VALSTR___V1273*/ curfptr[1272] = (void*)&cdat->dstr_1267__;
-  cdat->dstr_1267__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1267__.val, ") > (", sizeof(cdat->dstr_1267__.val)-1);
- 
- /*inistring dstr_1268__*/
- /*_.VALSTR___V1274*/ curfptr[1273] = (void*)&cdat->dstr_1268__;
-  cdat->dstr_1268__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1268__.val, "))", sizeof(cdat->dstr_1268__.val)-1);
- 
- /*inistring dstr_1269__I*/
- /*_.VALSTR___V1268*/ curfptr[1267] = (void*)&cdat->dstr_1269__I;
-  cdat->dstr_1269__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1269__I.val, ">I", sizeof(cdat->dstr_1269__I.val)-1);
- 
- /*iniobj dsym_1270__I*/
- if (!/*_.VALDATA___V1276*/ curfptr[1275]) /*_.VALDATA___V1276*/ curfptr[1275] = (void*)&cdat->dsym_1270__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1270__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1270__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1270__I.obj_hash = 430182895;
-  cdat->dsym_1270__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1270__I));
- 
- /*inistring dstr_1271__I*/
- /*_.VALSTR___V1277*/ curfptr[1276] = (void*)&cdat->dstr_1271__I;
-  cdat->dstr_1271__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1271__I.val, ">=I", sizeof(cdat->dstr_1271__I.val)-1);
+ /*iniobj dobj_1137*/
+ if (!/*_.VALDATA___V1142*/ curfptr[1141]) /*_.VALDATA___V1142*/ curfptr[1141] = (void*)&cdat->dobj_1137;
+  melt_assertmsg("iniobj checkdiscr dobj_1137", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1137.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1137.obj_num = 0;
+  cdat->dobj_1137.obj_hash = 335584991;
+  cdat->dobj_1137.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1137));
+ 
+ /*inistring dstr_1138__melt_garbcoll_*/
+ /*_.VALSTR___V1144*/ curfptr[1143] = (void*)&cdat->dstr_1138__melt_garbcoll_;
+  cdat->dstr_1138__melt_garbcoll_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1138__melt_garbcoll_.val, "melt_garbcoll((", sizeof(cdat->dstr_1138__melt_garbcoll_.val)-1);
+ 
+ /*inistring dstr_1139__MELT_NEED_FUL*/
+ /*_.VALSTR___V1145*/ curfptr[1144] = (void*)&cdat->dstr_1139__MELT_NEED_FUL;
+  cdat->dstr_1139__MELT_NEED_FUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1139__MELT_NEED_FUL.val, "), MELT_NEED_FULL)", sizeof(cdat->dstr_1139__MELT_NEED_FUL.val)-1);
+ 
+ /*inistring dstr_1140__FULL_GARBCOLL*/
+ /*_.VALSTR___V1141*/ curfptr[1140] = (void*)&cdat->dstr_1140__FULL_GARBCOLL;
+  cdat->dstr_1140__FULL_GARBCOLL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1140__FULL_GARBCOLL.val, "FULL_GARBCOLL", sizeof(cdat->dstr_1140__FULL_GARBCOLL.val)-1);
+ 
+ /*iniobj dsym_1141__GET_SYMBOLSTR*/
+ if (!/*_.VALDATA___V1147*/ curfptr[1146]) /*_.VALDATA___V1147*/ curfptr[1146] = (void*)&cdat->dsym_1141__GET_SYMBOLSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_1141__GET_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1141__GET_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1141__GET_SYMBOLSTR.obj_hash = 925875016;
+  cdat->dsym_1141__GET_SYMBOLSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1141__GET_SYMBOLSTR));
+ 
+ /*inistring dstr_1142__GET_SYMBOLSTR*/
+ /*_.VALSTR___V1148*/ curfptr[1147] = (void*)&cdat->dstr_1142__GET_SYMBOLSTR;
+  cdat->dstr_1142__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1142__GET_SYMBOLSTR.val, "GET_SYMBOLSTR", sizeof(cdat->dstr_1142__GET_SYMBOLSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:879:/ iniobj");
+ /*iniobj dobj_1143__GET_SYMBOLSTR*/
+ if (!/*_.VALDATA___V1149*/ curfptr[1148]) /*_.VALDATA___V1149*/ curfptr[1148] = (void*)&cdat->dobj_1143__GET_SYMBOLSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_1143__GET_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1143__GET_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1143__GET_SYMBOLSTR.obj_hash = 216774809;
+  cdat->dobj_1143__GET_SYMBOLSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1143__GET_SYMBOLSTR));
+ 
+ /*inimult dtup_1144__GET_SYMBOLSTR*/
+ /*_.VALTUP___V1157*/ curfptr[1156] = (void*)&cdat->dtup_1144__GET_SYMBOLSTR;
+  cdat->dtup_1144__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1144__GET_SYMBOLSTR.nbval = 3;
+ /*inimult dtup_1145__GET_SYMBOLSTR*/
+ /*_.VALTUP___V1154*/ curfptr[1153] = (void*)&cdat->dtup_1145__GET_SYMBOLSTR;
+  cdat->dtup_1145__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1145__GET_SYMBOLSTR.nbval = 1;
+ /*iniobj dsym_1146__STRV*/
+ if (!/*_.VALDATA___V1152*/ curfptr[1151]) /*_.VALDATA___V1152*/ curfptr[1151] = (void*)&cdat->dsym_1146__STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_1146__STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1146__STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1146__STRV.obj_hash = 118443394;
+  cdat->dsym_1146__STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1146__STRV));
+ 
+ /*inistring dstr_1147__STRV*/
+ /*_.VALSTR___V1153*/ curfptr[1152] = (void*)&cdat->dstr_1147__STRV;
+  cdat->dstr_1147__STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1147__STRV.val, "STRV", sizeof(cdat->dstr_1147__STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:879:/ iniobj");
+ /*iniobj dobj_1148*/
+ if (!/*_.VALDATA___V1151*/ curfptr[1150]) /*_.VALDATA___V1151*/ curfptr[1150] = (void*)&cdat->dobj_1148;
+  melt_assertmsg("iniobj checkdiscr dobj_1148", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1148.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1148.obj_num = 0;
+  cdat->dobj_1148.obj_hash = 790441757;
+  cdat->dobj_1148.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1148));
+ 
+ /*inistring dstr_1149__meltgc_named_sym*/
+ /*_.VALSTR___V1155*/ curfptr[1154] = (void*)&cdat->dstr_1149__meltgc_named_sym;
+  cdat->dstr_1149__meltgc_named_sym.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1149__meltgc_named_sym.val, "meltgc_named_symbol( melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1149__meltgc_named_sym.val)-1);
+ 
+ /*inistring dstr_1150__MELT_GET_*/
+ /*_.VALSTR___V1156*/ curfptr[1155] = (void*)&cdat->dstr_1150__MELT_GET_;
+  cdat->dstr_1150__MELT_GET_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1150__MELT_GET_.val, ")), MELT_GET)", sizeof(cdat->dstr_1150__MELT_GET_.val)-1);
+ 
+ /*inistring dstr_1151__GET_SYMBOLSTR*/
+ /*_.VALSTR___V1150*/ curfptr[1149] = (void*)&cdat->dstr_1151__GET_SYMBOLSTR;
+  cdat->dstr_1151__GET_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1151__GET_SYMBOLSTR.val, "GET_SYMBOLSTR", sizeof(cdat->dstr_1151__GET_SYMBOLSTR.val)-1);
+ 
+ /*iniobj dsym_1152__CREATE_SYMBOLSTR*/
+ if (!/*_.VALDATA___V1158*/ curfptr[1157]) /*_.VALDATA___V1158*/ curfptr[1157] = (void*)&cdat->dsym_1152__CREATE_SYMBOLSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_1152__CREATE_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1152__CREATE_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1152__CREATE_SYMBOLSTR.obj_hash = 552059518;
+  cdat->dsym_1152__CREATE_SYMBOLSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1152__CREATE_SYMBOLSTR));
+ 
+ /*inistring dstr_1153__CREATE_SYMBOLSTR*/
+ /*_.VALSTR___V1159*/ curfptr[1158] = (void*)&cdat->dstr_1153__CREATE_SYMBOLSTR;
+  cdat->dstr_1153__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1153__CREATE_SYMBOLSTR.val, "CREATE_SYMBOLSTR", sizeof(cdat->dstr_1153__CREATE_SYMBOLSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:882:/ iniobj");
+ /*iniobj dobj_1154__CREATE_SYMBOLSTR*/
+ if (!/*_.VALDATA___V1160*/ curfptr[1159]) /*_.VALDATA___V1160*/ curfptr[1159] = (void*)&cdat->dobj_1154__CREATE_SYMBOLSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_1154__CREATE_SYMBOLSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1154__CREATE_SYMBOLSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1154__CREATE_SYMBOLSTR.obj_hash = 262678611;
+  cdat->dobj_1154__CREATE_SYMBOLSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1154__CREATE_SYMBOLSTR));
+ 
+ /*inimult dtup_1155__CREATE_SYMBOLSTR*/
+ /*_.VALTUP___V1166*/ curfptr[1165] = (void*)&cdat->dtup_1155__CREATE_SYMBOLSTR;
+  cdat->dtup_1155__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1155__CREATE_SYMBOLSTR.nbval = 3;
+ /*inimult dtup_1156__CREATE_SYMBOLSTR*/
+ /*_.VALTUP___V1163*/ curfptr[1162] = (void*)&cdat->dtup_1156__CREATE_SYMBOLSTR;
+  cdat->dtup_1156__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1156__CREATE_SYMBOLSTR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:882:/ iniobj");
+ /*iniobj dobj_1157*/
+ if (!/*_.VALDATA___V1162*/ curfptr[1161]) /*_.VALDATA___V1162*/ curfptr[1161] = (void*)&cdat->dobj_1157;
+  melt_assertmsg("iniobj checkdiscr dobj_1157", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1157.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1157.obj_num = 0;
+  cdat->dobj_1157.obj_hash = 329571323;
+  cdat->dobj_1157.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1157));
+ 
+ /*inistring dstr_1158__meltgc_named_sym*/
+ /*_.VALSTR___V1164*/ curfptr[1163] = (void*)&cdat->dstr_1158__meltgc_named_sym;
+  cdat->dstr_1158__meltgc_named_sym.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1158__meltgc_named_sym.val, "meltgc_named_symbol(melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1158__meltgc_named_sym.val)-1);
+ 
+ /*inistring dstr_1159__MELT_CREATE_*/
+ /*_.VALSTR___V1165*/ curfptr[1164] = (void*)&cdat->dstr_1159__MELT_CREATE_;
+  cdat->dstr_1159__MELT_CREATE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1159__MELT_CREATE_.val, ")), MELT_CREATE)", sizeof(cdat->dstr_1159__MELT_CREATE_.val)-1);
+ 
+ /*inistring dstr_1160__CREATE_SYMBOLSTR*/
+ /*_.VALSTR___V1161*/ curfptr[1160] = (void*)&cdat->dstr_1160__CREATE_SYMBOLSTR;
+  cdat->dstr_1160__CREATE_SYMBOLSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1160__CREATE_SYMBOLSTR.val, "CREATE_SYMBOLSTR", sizeof(cdat->dstr_1160__CREATE_SYMBOLSTR.val)-1);
+ 
+ /*iniobj dsym_1161__GET_KEYWORDSTR*/
+ if (!/*_.VALDATA___V1167*/ curfptr[1166]) /*_.VALDATA___V1167*/ curfptr[1166] = (void*)&cdat->dsym_1161__GET_KEYWORDSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_1161__GET_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1161__GET_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1161__GET_KEYWORDSTR.obj_hash = 439563811;
+  cdat->dsym_1161__GET_KEYWORDSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1161__GET_KEYWORDSTR));
+ 
+ /*inistring dstr_1162__GET_KEYWORDSTR*/
+ /*_.VALSTR___V1168*/ curfptr[1167] = (void*)&cdat->dstr_1162__GET_KEYWORDSTR;
+  cdat->dstr_1162__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1162__GET_KEYWORDSTR.val, "GET_KEYWORDSTR", sizeof(cdat->dstr_1162__GET_KEYWORDSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:888:/ iniobj");
+ /*iniobj dobj_1163__GET_KEYWORDSTR*/
+ if (!/*_.VALDATA___V1169*/ curfptr[1168]) /*_.VALDATA___V1169*/ curfptr[1168] = (void*)&cdat->dobj_1163__GET_KEYWORDSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_1163__GET_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1163__GET_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1163__GET_KEYWORDSTR.obj_hash = 791327717;
+  cdat->dobj_1163__GET_KEYWORDSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1163__GET_KEYWORDSTR));
+ 
+ /*inimult dtup_1164__GET_KEYWORDSTR*/
+ /*_.VALTUP___V1175*/ curfptr[1174] = (void*)&cdat->dtup_1164__GET_KEYWORDSTR;
+  cdat->dtup_1164__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1164__GET_KEYWORDSTR.nbval = 3;
+ /*inimult dtup_1165__GET_KEYWORDSTR*/
+ /*_.VALTUP___V1172*/ curfptr[1171] = (void*)&cdat->dtup_1165__GET_KEYWORDSTR;
+  cdat->dtup_1165__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1165__GET_KEYWORDSTR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:888:/ iniobj");
+ /*iniobj dobj_1166*/
+ if (!/*_.VALDATA___V1171*/ curfptr[1170]) /*_.VALDATA___V1171*/ curfptr[1170] = (void*)&cdat->dobj_1166;
+  melt_assertmsg("iniobj checkdiscr dobj_1166", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1166.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1166.obj_num = 0;
+  cdat->dobj_1166.obj_hash = 449040518;
+  cdat->dobj_1166.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1166));
+ 
+ /*inistring dstr_1167__meltgc_named_key*/
+ /*_.VALSTR___V1173*/ curfptr[1172] = (void*)&cdat->dstr_1167__meltgc_named_key;
+  cdat->dstr_1167__meltgc_named_key.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1167__meltgc_named_key.val, "meltgc_named_keyword( melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1167__meltgc_named_key.val)-1);
+ 
+ /*inistring dstr_1168__MELT_GET_*/
+ /*_.VALSTR___V1174*/ curfptr[1173] = (void*)&cdat->dstr_1168__MELT_GET_;
+  cdat->dstr_1168__MELT_GET_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1168__MELT_GET_.val, ")), MELT_GET)", sizeof(cdat->dstr_1168__MELT_GET_.val)-1);
+ 
+ /*inistring dstr_1169__GET_KEYWORDSTR*/
+ /*_.VALSTR___V1170*/ curfptr[1169] = (void*)&cdat->dstr_1169__GET_KEYWORDSTR;
+  cdat->dstr_1169__GET_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1169__GET_KEYWORDSTR.val, "GET_KEYWORDSTR", sizeof(cdat->dstr_1169__GET_KEYWORDSTR.val)-1);
+ 
+ /*iniobj dsym_1170__CREATE_KEYWORDSTR*/
+ if (!/*_.VALDATA___V1176*/ curfptr[1175]) /*_.VALDATA___V1176*/ curfptr[1175] = (void*)&cdat->dsym_1170__CREATE_KEYWORDSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_1170__CREATE_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1170__CREATE_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1170__CREATE_KEYWORDSTR.obj_hash = 1035757816;
+  cdat->dsym_1170__CREATE_KEYWORDSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1170__CREATE_KEYWORDSTR));
+ 
+ /*inistring dstr_1171__CREATE_KEYWORDST*/
+ /*_.VALSTR___V1177*/ curfptr[1176] = (void*)&cdat->dstr_1171__CREATE_KEYWORDST;
+  cdat->dstr_1171__CREATE_KEYWORDST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1171__CREATE_KEYWORDST.val, "CREATE_KEYWORDSTR", sizeof(cdat->dstr_1171__CREATE_KEYWORDST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:891:/ iniobj");
+ /*iniobj dobj_1172__CREATE_KEYWORDSTR*/
+ if (!/*_.VALDATA___V1178*/ curfptr[1177]) /*_.VALDATA___V1178*/ curfptr[1177] = (void*)&cdat->dobj_1172__CREATE_KEYWORDSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_1172__CREATE_KEYWORDSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1172__CREATE_KEYWORDSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1172__CREATE_KEYWORDSTR.obj_hash = 687851905;
+  cdat->dobj_1172__CREATE_KEYWORDSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1172__CREATE_KEYWORDSTR));
+ 
+ /*inimult dtup_1173__CREATE_KEYWORDSTR*/
+ /*_.VALTUP___V1184*/ curfptr[1183] = (void*)&cdat->dtup_1173__CREATE_KEYWORDSTR;
+  cdat->dtup_1173__CREATE_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1173__CREATE_KEYWORDSTR.nbval = 3;
+ /*inimult dtup_1174__CREATE_KEYWORDSTR*/
+ /*_.VALTUP___V1181*/ curfptr[1180] = (void*)&cdat->dtup_1174__CREATE_KEYWORDSTR;
+  cdat->dtup_1174__CREATE_KEYWORDSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1174__CREATE_KEYWORDSTR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:891:/ iniobj");
+ /*iniobj dobj_1175*/
+ if (!/*_.VALDATA___V1180*/ curfptr[1179]) /*_.VALDATA___V1180*/ curfptr[1179] = (void*)&cdat->dobj_1175;
+  melt_assertmsg("iniobj checkdiscr dobj_1175", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1175.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1175.obj_num = 0;
+  cdat->dobj_1175.obj_hash = 374637021;
+  cdat->dobj_1175.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1175));
+ 
+ /*inistring dstr_1176__meltgc_named_key*/
+ /*_.VALSTR___V1182*/ curfptr[1181] = (void*)&cdat->dstr_1176__meltgc_named_key;
+  cdat->dstr_1176__meltgc_named_key.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1176__meltgc_named_key.val, "meltgc_named_keyword( melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1176__meltgc_named_key.val)-1);
+ 
+ /*inistring dstr_1177__MELT_CREATE_*/
+ /*_.VALSTR___V1183*/ curfptr[1182] = (void*)&cdat->dstr_1177__MELT_CREATE_;
+  cdat->dstr_1177__MELT_CREATE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1177__MELT_CREATE_.val, ")), MELT_CREATE)", sizeof(cdat->dstr_1177__MELT_CREATE_.val)-1);
+ 
+ /*inistring dstr_1178__CREATE_KEYWORDST*/
+ /*_.VALSTR___V1179*/ curfptr[1178] = (void*)&cdat->dstr_1178__CREATE_KEYWORDST;
+  cdat->dstr_1178__CREATE_KEYWORDST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1178__CREATE_KEYWORDST.val, "CREATE_KEYWORDSTR", sizeof(cdat->dstr_1178__CREATE_KEYWORDST.val)-1);
+ 
+ /*iniobj dsym_1179__ASSERT_FAILED*/
+ if (!/*_.VALDATA___V1185*/ curfptr[1184]) /*_.VALDATA___V1185*/ curfptr[1184] = (void*)&cdat->dsym_1179__ASSERT_FAILED;
+  melt_assertmsg("iniobj checkdiscr dsym_1179__ASSERT_FAILED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1179__ASSERT_FAILED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1179__ASSERT_FAILED.obj_hash = 201548028;
+  cdat->dsym_1179__ASSERT_FAILED.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1179__ASSERT_FAILED));
+ 
+ /*inistring dstr_1180__ASSERT_FAILED*/
+ /*_.VALSTR___V1186*/ curfptr[1185] = (void*)&cdat->dstr_1180__ASSERT_FAILED;
+  cdat->dstr_1180__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1180__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof(cdat->dstr_1180__ASSERT_FAILED.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:899:/ iniobj");
+ /*iniobj dobj_1181__ASSERT_FAILED*/
+ if (!/*_.VALDATA___V1187*/ curfptr[1186]) /*_.VALDATA___V1187*/ curfptr[1186] = (void*)&cdat->dobj_1181__ASSERT_FAILED;
+  melt_assertmsg("iniobj checkdiscr dobj_1181__ASSERT_FAILED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1181__ASSERT_FAILED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1181__ASSERT_FAILED.obj_hash = 153898244;
+  cdat->dobj_1181__ASSERT_FAILED.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1181__ASSERT_FAILED));
+ 
+ /*inimult dtup_1182__ASSERT_FAILED*/
+ /*_.VALTUP___V1205*/ curfptr[1204] = (void*)&cdat->dtup_1182__ASSERT_FAILED;
+  cdat->dtup_1182__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1182__ASSERT_FAILED.nbval = 11;
+ /*inimult dtup_1183__ASSERT_FAILED*/
+ /*_.VALTUP___V1198*/ curfptr[1197] = (void*)&cdat->dtup_1183__ASSERT_FAILED;
+  cdat->dtup_1183__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1183__ASSERT_FAILED.nbval = 3;
+ /*iniobj dsym_1184__MSG*/
+ if (!/*_.VALDATA___V1190*/ curfptr[1189]) /*_.VALDATA___V1190*/ curfptr[1189] = (void*)&cdat->dsym_1184__MSG;
+  melt_assertmsg("iniobj checkdiscr dsym_1184__MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1184__MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1184__MSG.obj_hash = 97118120;
+  cdat->dsym_1184__MSG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1184__MSG));
+ 
+ /*inistring dstr_1185__MSG*/
+ /*_.VALSTR___V1191*/ curfptr[1190] = (void*)&cdat->dstr_1185__MSG;
+  cdat->dstr_1185__MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1185__MSG.val, "MSG", sizeof(cdat->dstr_1185__MSG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:899:/ iniobj");
+ /*iniobj dobj_1186*/
+ if (!/*_.VALDATA___V1189*/ curfptr[1188]) /*_.VALDATA___V1189*/ curfptr[1188] = (void*)&cdat->dobj_1186;
+  melt_assertmsg("iniobj checkdiscr dobj_1186", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1186.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1186.obj_num = 0;
+  cdat->dobj_1186.obj_hash = 53966818;
+  cdat->dobj_1186.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1186));
+ 
+ /*iniobj dsym_1187__FILENAME*/
+ if (!/*_.VALDATA___V1193*/ curfptr[1192]) /*_.VALDATA___V1193*/ curfptr[1192] = (void*)&cdat->dsym_1187__FILENAME;
+  melt_assertmsg("iniobj checkdiscr dsym_1187__FILENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1187__FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1187__FILENAME.obj_hash = 109653219;
+  cdat->dsym_1187__FILENAME.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1187__FILENAME));
+ 
+ /*inistring dstr_1188__FILENAME*/
+ /*_.VALSTR___V1194*/ curfptr[1193] = (void*)&cdat->dstr_1188__FILENAME;
+  cdat->dstr_1188__FILENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1188__FILENAME.val, "FILENAME", sizeof(cdat->dstr_1188__FILENAME.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:899:/ iniobj");
+ /*iniobj dobj_1189*/
+ if (!/*_.VALDATA___V1192*/ curfptr[1191]) /*_.VALDATA___V1192*/ curfptr[1191] = (void*)&cdat->dobj_1189;
+  melt_assertmsg("iniobj checkdiscr dobj_1189", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1189.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1189.obj_num = 1;
+  cdat->dobj_1189.obj_hash = 45071888;
+  cdat->dobj_1189.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1189));
+ 
+ /*iniobj dsym_1190__LINENO*/
+ if (!/*_.VALDATA___V1196*/ curfptr[1195]) /*_.VALDATA___V1196*/ curfptr[1195] = (void*)&cdat->dsym_1190__LINENO;
+  melt_assertmsg("iniobj checkdiscr dsym_1190__LINENO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1190__LINENO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1190__LINENO.obj_hash = 590813330;
+  cdat->dsym_1190__LINENO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1190__LINENO));
+ 
+ /*inistring dstr_1191__LINENO*/
+ /*_.VALSTR___V1197*/ curfptr[1196] = (void*)&cdat->dstr_1191__LINENO;
+  cdat->dstr_1191__LINENO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1191__LINENO.val, "LINENO", sizeof(cdat->dstr_1191__LINENO.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:899:/ iniobj");
+ /*iniobj dobj_1192*/
+ if (!/*_.VALDATA___V1195*/ curfptr[1194]) /*_.VALDATA___V1195*/ curfptr[1194] = (void*)&cdat->dobj_1192;
+  melt_assertmsg("iniobj checkdiscr dobj_1192", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1192.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1192.obj_num = 2;
+  cdat->dobj_1192.obj_hash = 62908772;
+  cdat->dobj_1192.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1192));
+ 
+ /*inistring dstr_1193__melt_assert_fail*/
+ /*_.VALSTR___V1199*/ curfptr[1198] = (void*)&cdat->dstr_1193__melt_assert_fail;
+  cdat->dstr_1193__melt_assert_fail.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1193__melt_assert_fail.val, "melt_assert_failed((", sizeof(cdat->dstr_1193__melt_assert_fail.val)-1);
+ 
+ /*inistring dstr_1194__*/
+ /*_.VALSTR___V1200*/ curfptr[1199] = (void*)&cdat->dstr_1194__;
+  cdat->dstr_1194__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1194__.val, "),(", sizeof(cdat->dstr_1194__.val)-1);
+ 
+ /*inistring dstr_1195__*/
+ /*_.VALSTR___V1201*/ curfptr[1200] = (void*)&cdat->dstr_1195__;
+  cdat->dstr_1195__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1195__.val, ")?(", sizeof(cdat->dstr_1195__.val)-1);
+ 
+ /*inistring dstr_1196__FILE_*/
+ /*_.VALSTR___V1202*/ curfptr[1201] = (void*)&cdat->dstr_1196__FILE_;
+  cdat->dstr_1196__FILE_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1196__FILE_.val, "):__FILE__,\n  (", sizeof(cdat->dstr_1196__FILE_.val)-1);
+ 
+ /*inistring dstr_1197__*/
+ /*_.VALSTR___V1203*/ curfptr[1202] = (void*)&cdat->dstr_1197__;
+  cdat->dstr_1197__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1197__.val, ")?(", sizeof(cdat->dstr_1197__.val)-1);
+ 
+ /*inistring dstr_1198__LINE_FU*/
+ /*_.VALSTR___V1204*/ curfptr[1203] = (void*)&cdat->dstr_1198__LINE_FU;
+  cdat->dstr_1198__LINE_FU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1198__LINE_FU.val, "):__LINE__, __FUNCTION__);\n", sizeof(cdat->dstr_1198__LINE_FU.val)-1);
+ 
+ /*inistring dstr_1199__ASSERT_FAILED*/
+ /*_.VALSTR___V1188*/ curfptr[1187] = (void*)&cdat->dstr_1199__ASSERT_FAILED;
+  cdat->dstr_1199__ASSERT_FAILED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1199__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof(cdat->dstr_1199__ASSERT_FAILED.val)-1);
+ 
+ /*iniobj dsym_1200__CHECKCALLSTACK_MSG*/
+ if (!/*_.VALDATA___V1206*/ curfptr[1205]) /*_.VALDATA___V1206*/ curfptr[1205] = (void*)&cdat->dsym_1200__CHECKCALLSTACK_MSG;
+  melt_assertmsg("iniobj checkdiscr dsym_1200__CHECKCALLSTACK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1200__CHECKCALLSTACK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1200__CHECKCALLSTACK_MSG.obj_hash = 498174313;
+  cdat->dsym_1200__CHECKCALLSTACK_MSG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1200__CHECKCALLSTACK_MSG));
+ 
+ /*inistring dstr_1201__CHECKCALLSTACK_M*/
+ /*_.VALSTR___V1207*/ curfptr[1206] = (void*)&cdat->dstr_1201__CHECKCALLSTACK_M;
+  cdat->dstr_1201__CHECKCALLSTACK_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1201__CHECKCALLSTACK_M.val, "CHECKCALLSTACK_MSG", sizeof(cdat->dstr_1201__CHECKCALLSTACK_M.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:906:/ iniobj");
+ /*iniobj dobj_1202__CHECKCALLSTACK_MSG*/
+ if (!/*_.VALDATA___V1208*/ curfptr[1207]) /*_.VALDATA___V1208*/ curfptr[1207] = (void*)&cdat->dobj_1202__CHECKCALLSTACK_MSG;
+  melt_assertmsg("iniobj checkdiscr dobj_1202__CHECKCALLSTACK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1202__CHECKCALLSTACK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1202__CHECKCALLSTACK_MSG.obj_hash = 189966383;
+  cdat->dobj_1202__CHECKCALLSTACK_MSG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1202__CHECKCALLSTACK_MSG));
+ 
+ /*inimult dtup_1203__CHECKCALLSTACK_MSG*/
+ /*_.VALTUP___V1214*/ curfptr[1213] = (void*)&cdat->dtup_1203__CHECKCALLSTACK_MSG;
+  cdat->dtup_1203__CHECKCALLSTACK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1203__CHECKCALLSTACK_MSG.nbval = 3;
+ /*inimult dtup_1204__CHECKCALLSTACK_MSG*/
+ /*_.VALTUP___V1211*/ curfptr[1210] = (void*)&cdat->dtup_1204__CHECKCALLSTACK_MSG;
+  cdat->dtup_1204__CHECKCALLSTACK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1204__CHECKCALLSTACK_MSG.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:906:/ iniobj");
+ /*iniobj dobj_1205*/
+ if (!/*_.VALDATA___V1210*/ curfptr[1209]) /*_.VALDATA___V1210*/ curfptr[1209] = (void*)&cdat->dobj_1205;
+  melt_assertmsg("iniobj checkdiscr dobj_1205", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1205.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1205.obj_num = 0;
+  cdat->dobj_1205.obj_hash = 864607872;
+  cdat->dobj_1205.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1205));
+ 
+ /*inistring dstr_1206__melt_check_call_*/
+ /*_.VALSTR___V1212*/ curfptr[1211] = (void*)&cdat->dstr_1206__melt_check_call_;
+  cdat->dstr_1206__melt_check_call_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1206__melt_check_call_.val, "melt_check_call_frames(MELT_ANYWHERE, ", sizeof(cdat->dstr_1206__melt_check_call_.val)-1);
+ 
+ /*inistring dstr_1207__*/
+ /*_.VALSTR___V1213*/ curfptr[1212] = (void*)&cdat->dstr_1207__;
+  cdat->dstr_1207__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1207__.val, ");", sizeof(cdat->dstr_1207__.val)-1);
+ 
+ /*inistring dstr_1208__CHECKCALLSTACK_M*/
+ /*_.VALSTR___V1209*/ curfptr[1208] = (void*)&cdat->dstr_1208__CHECKCALLSTACK_M;
+  cdat->dstr_1208__CHECKCALLSTACK_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1208__CHECKCALLSTACK_M.val, "CHECKCALLSTACK_MSG", sizeof(cdat->dstr_1208__CHECKCALLSTACK_M.val)-1);
+ 
+ /*iniobj dsym_1209__CBREAK_MSG*/
+ if (!/*_.VALDATA___V1215*/ curfptr[1214]) /*_.VALDATA___V1215*/ curfptr[1214] = (void*)&cdat->dsym_1209__CBREAK_MSG;
+  melt_assertmsg("iniobj checkdiscr dsym_1209__CBREAK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1209__CBREAK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1209__CBREAK_MSG.obj_hash = 336826642;
+  cdat->dsym_1209__CBREAK_MSG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1209__CBREAK_MSG));
+ 
+ /*inistring dstr_1210__CBREAK_MSG*/
+ /*_.VALSTR___V1216*/ curfptr[1215] = (void*)&cdat->dstr_1210__CBREAK_MSG;
+  cdat->dstr_1210__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1210__CBREAK_MSG.val, "CBREAK_MSG", sizeof(cdat->dstr_1210__CBREAK_MSG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:913:/ iniobj");
+ /*iniobj dobj_1211__CBREAK_MSG*/
+ if (!/*_.VALDATA___V1217*/ curfptr[1216]) /*_.VALDATA___V1217*/ curfptr[1216] = (void*)&cdat->dobj_1211__CBREAK_MSG;
+  melt_assertmsg("iniobj checkdiscr dobj_1211__CBREAK_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1211__CBREAK_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1211__CBREAK_MSG.obj_hash = 318071140;
+  cdat->dobj_1211__CBREAK_MSG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1211__CBREAK_MSG));
+ 
+ /*inimult dtup_1212__CBREAK_MSG*/
+ /*_.VALTUP___V1223*/ curfptr[1222] = (void*)&cdat->dtup_1212__CBREAK_MSG;
+  cdat->dtup_1212__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1212__CBREAK_MSG.nbval = 3;
+ /*inimult dtup_1213__CBREAK_MSG*/
+ /*_.VALTUP___V1220*/ curfptr[1219] = (void*)&cdat->dtup_1213__CBREAK_MSG;
+  cdat->dtup_1213__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1213__CBREAK_MSG.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:913:/ iniobj");
+ /*iniobj dobj_1214*/
+ if (!/*_.VALDATA___V1219*/ curfptr[1218]) /*_.VALDATA___V1219*/ curfptr[1218] = (void*)&cdat->dobj_1214;
+  melt_assertmsg("iniobj checkdiscr dobj_1214", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1214.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1214.obj_num = 0;
+  cdat->dobj_1214.obj_hash = 974376500;
+  cdat->dobj_1214.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1214));
+ 
+ /*inistring dstr_1215__melt_cbreak_*/
+ /*_.VALSTR___V1221*/ curfptr[1220] = (void*)&cdat->dstr_1215__melt_cbreak_;
+  cdat->dstr_1215__melt_cbreak_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1215__melt_cbreak_.val, "melt_cbreak(", sizeof(cdat->dstr_1215__melt_cbreak_.val)-1);
+ 
+ /*inistring dstr_1216__*/
+ /*_.VALSTR___V1222*/ curfptr[1221] = (void*)&cdat->dstr_1216__;
+  cdat->dstr_1216__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1216__.val, ")", sizeof(cdat->dstr_1216__.val)-1);
+ 
+ /*inistring dstr_1217__CBREAK_MSG*/
+ /*_.VALSTR___V1218*/ curfptr[1217] = (void*)&cdat->dstr_1217__CBREAK_MSG;
+  cdat->dstr_1217__CBREAK_MSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1217__CBREAK_MSG.val, "CBREAK_MSG", sizeof(cdat->dstr_1217__CBREAK_MSG.val)-1);
+ 
+ /*iniobj dsym_1218__I*/
+ if (!/*_.VALDATA___V1224*/ curfptr[1223]) /*_.VALDATA___V1224*/ curfptr[1223] = (void*)&cdat->dsym_1218__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1218__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1218__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1218__I.obj_hash = 974250157;
+  cdat->dsym_1218__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1218__I));
+ 
+ /*inistring dstr_1219__I*/
+ /*_.VALSTR___V1225*/ curfptr[1224] = (void*)&cdat->dstr_1219__I;
+  cdat->dstr_1219__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1219__I.val, "<I", sizeof(cdat->dstr_1219__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:919:/ iniobj");
+ /*iniobj dobj_1220__I*/
+ if (!/*_.VALDATA___V1226*/ curfptr[1225]) /*_.VALDATA___V1226*/ curfptr[1225] = (void*)&cdat->dobj_1220__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1220__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1220__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1220__I.obj_hash = 826702663;
+  cdat->dobj_1220__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1220__I));
+ 
+ /*inimult dtup_1221__I*/
+ /*_.VALTUP___V1234*/ curfptr[1233] = (void*)&cdat->dtup_1221__I;
+  cdat->dtup_1221__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1221__I.nbval = 5;
+ /*inimult dtup_1222__I*/
+ /*_.VALTUP___V1230*/ curfptr[1229] = (void*)&cdat->dtup_1222__I;
+  cdat->dtup_1222__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1222__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:919:/ iniobj");
+ /*iniobj dobj_1223*/
+ if (!/*_.VALDATA___V1228*/ curfptr[1227]) /*_.VALDATA___V1228*/ curfptr[1227] = (void*)&cdat->dobj_1223;
+  melt_assertmsg("iniobj checkdiscr dobj_1223", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1223.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1223.obj_num = 0;
+  cdat->dobj_1223.obj_hash = 183492515;
+  cdat->dobj_1223.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1223));
+ 
+ MELT_LOCATION("warmelt-first.melt:919:/ iniobj");
+ /*iniobj dobj_1224*/
+ if (!/*_.VALDATA___V1229*/ curfptr[1228]) /*_.VALDATA___V1229*/ curfptr[1228] = (void*)&cdat->dobj_1224;
+  melt_assertmsg("iniobj checkdiscr dobj_1224", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1224.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1224.obj_num = 1;
+  cdat->dobj_1224.obj_hash = 464634188;
+  cdat->dobj_1224.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1224));
+ 
+ /*inistring dstr_1225__*/
+ /*_.VALSTR___V1231*/ curfptr[1230] = (void*)&cdat->dstr_1225__;
+  cdat->dstr_1225__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1225__.val, "((", sizeof(cdat->dstr_1225__.val)-1);
+ 
+ /*inistring dstr_1226__*/
+ /*_.VALSTR___V1232*/ curfptr[1231] = (void*)&cdat->dstr_1226__;
+  cdat->dstr_1226__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1226__.val, ") < (", sizeof(cdat->dstr_1226__.val)-1);
+ 
+ /*inistring dstr_1227__*/
+ /*_.VALSTR___V1233*/ curfptr[1232] = (void*)&cdat->dstr_1227__;
+  cdat->dstr_1227__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1227__.val, "))", sizeof(cdat->dstr_1227__.val)-1);
+ 
+ /*inistring dstr_1228__I*/
+ /*_.VALSTR___V1227*/ curfptr[1226] = (void*)&cdat->dstr_1228__I;
+  cdat->dstr_1228__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1228__I.val, "<I", sizeof(cdat->dstr_1228__I.val)-1);
+ 
+ /*iniobj dsym_1229__I*/
+ if (!/*_.VALDATA___V1235*/ curfptr[1234]) /*_.VALDATA___V1235*/ curfptr[1234] = (void*)&cdat->dsym_1229__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1229__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1229__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1229__I.obj_hash = 113283346;
+  cdat->dsym_1229__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1229__I));
+ 
+ /*inistring dstr_1230__I*/
+ /*_.VALSTR___V1236*/ curfptr[1235] = (void*)&cdat->dstr_1230__I;
+  cdat->dstr_1230__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1230__I.val, "<=I", sizeof(cdat->dstr_1230__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:921:/ iniobj");
+ /*iniobj dobj_1231__I*/
+ if (!/*_.VALDATA___V1237*/ curfptr[1236]) /*_.VALDATA___V1237*/ curfptr[1236] = (void*)&cdat->dobj_1231__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1231__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1231__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1231__I.obj_hash = 766584172;
+  cdat->dobj_1231__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1231__I));
+ 
+ /*inimult dtup_1232__I*/
+ /*_.VALTUP___V1245*/ curfptr[1244] = (void*)&cdat->dtup_1232__I;
+  cdat->dtup_1232__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1232__I.nbval = 5;
+ /*inimult dtup_1233__I*/
+ /*_.VALTUP___V1241*/ curfptr[1240] = (void*)&cdat->dtup_1233__I;
+  cdat->dtup_1233__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1233__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:921:/ iniobj");
+ /*iniobj dobj_1234*/
+ if (!/*_.VALDATA___V1239*/ curfptr[1238]) /*_.VALDATA___V1239*/ curfptr[1238] = (void*)&cdat->dobj_1234;
+  melt_assertmsg("iniobj checkdiscr dobj_1234", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1234.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1234.obj_num = 0;
+  cdat->dobj_1234.obj_hash = 171645820;
+  cdat->dobj_1234.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1234));
+ 
+ MELT_LOCATION("warmelt-first.melt:921:/ iniobj");
+ /*iniobj dobj_1235*/
+ if (!/*_.VALDATA___V1240*/ curfptr[1239]) /*_.VALDATA___V1240*/ curfptr[1239] = (void*)&cdat->dobj_1235;
+  melt_assertmsg("iniobj checkdiscr dobj_1235", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1235.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1235.obj_num = 1;
+  cdat->dobj_1235.obj_hash = 437705730;
+  cdat->dobj_1235.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1235));
+ 
+ /*inistring dstr_1236__*/
+ /*_.VALSTR___V1242*/ curfptr[1241] = (void*)&cdat->dstr_1236__;
+  cdat->dstr_1236__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1236__.val, "((", sizeof(cdat->dstr_1236__.val)-1);
+ 
+ /*inistring dstr_1237__*/
+ /*_.VALSTR___V1243*/ curfptr[1242] = (void*)&cdat->dstr_1237__;
+  cdat->dstr_1237__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1237__.val, ") <= (", sizeof(cdat->dstr_1237__.val)-1);
+ 
+ /*inistring dstr_1238__*/
+ /*_.VALSTR___V1244*/ curfptr[1243] = (void*)&cdat->dstr_1238__;
+  cdat->dstr_1238__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1238__.val, "))", sizeof(cdat->dstr_1238__.val)-1);
+ 
+ /*inistring dstr_1239__I*/
+ /*_.VALSTR___V1238*/ curfptr[1237] = (void*)&cdat->dstr_1239__I;
+  cdat->dstr_1239__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1239__I.val, "<=I", sizeof(cdat->dstr_1239__I.val)-1);
+ 
+ /*iniobj dsym_1240__I*/
+ if (!/*_.VALDATA___V1246*/ curfptr[1245]) /*_.VALDATA___V1246*/ curfptr[1245] = (void*)&cdat->dsym_1240__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1240__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1240__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1240__I.obj_hash = 147589638;
+  cdat->dsym_1240__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1240__I));
+ 
+ /*inistring dstr_1241__I*/
+ /*_.VALSTR___V1247*/ curfptr[1246] = (void*)&cdat->dstr_1241__I;
+  cdat->dstr_1241__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1241__I.val, "==I", sizeof(cdat->dstr_1241__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:923:/ iniobj");
+ /*iniobj dobj_1242__I*/
+ if (!/*_.VALDATA___V1248*/ curfptr[1247]) /*_.VALDATA___V1248*/ curfptr[1247] = (void*)&cdat->dobj_1242__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1242__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1242__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1242__I.obj_hash = 702608579;
+  cdat->dobj_1242__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1242__I));
+ 
+ /*inimult dtup_1243__I*/
+ /*_.VALTUP___V1256*/ curfptr[1255] = (void*)&cdat->dtup_1243__I;
+  cdat->dtup_1243__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1243__I.nbval = 5;
+ /*inimult dtup_1244__I*/
+ /*_.VALTUP___V1252*/ curfptr[1251] = (void*)&cdat->dtup_1244__I;
+  cdat->dtup_1244__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1244__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:923:/ iniobj");
+ /*iniobj dobj_1245*/
+ if (!/*_.VALDATA___V1250*/ curfptr[1249]) /*_.VALDATA___V1250*/ curfptr[1249] = (void*)&cdat->dobj_1245;
+  melt_assertmsg("iniobj checkdiscr dobj_1245", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1245.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1245.obj_num = 0;
+  cdat->dobj_1245.obj_hash = 413765692;
+  cdat->dobj_1245.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1245));
+ 
+ MELT_LOCATION("warmelt-first.melt:923:/ iniobj");
+ /*iniobj dobj_1246*/
+ if (!/*_.VALDATA___V1251*/ curfptr[1250]) /*_.VALDATA___V1251*/ curfptr[1250] = (void*)&cdat->dobj_1246;
+  melt_assertmsg("iniobj checkdiscr dobj_1246", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1246.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1246.obj_num = 1;
+  cdat->dobj_1246.obj_hash = 628105830;
+  cdat->dobj_1246.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1246));
+ 
+ /*inistring dstr_1247__*/
+ /*_.VALSTR___V1253*/ curfptr[1252] = (void*)&cdat->dstr_1247__;
+  cdat->dstr_1247__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1247__.val, "((", sizeof(cdat->dstr_1247__.val)-1);
+ 
+ /*inistring dstr_1248__*/
+ /*_.VALSTR___V1254*/ curfptr[1253] = (void*)&cdat->dstr_1248__;
+  cdat->dstr_1248__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1248__.val, ") == (", sizeof(cdat->dstr_1248__.val)-1);
+ 
+ /*inistring dstr_1249__*/
+ /*_.VALSTR___V1255*/ curfptr[1254] = (void*)&cdat->dstr_1249__;
+  cdat->dstr_1249__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1249__.val, "))", sizeof(cdat->dstr_1249__.val)-1);
+ 
+ /*inistring dstr_1250__I*/
+ /*_.VALSTR___V1249*/ curfptr[1248] = (void*)&cdat->dstr_1250__I;
+  cdat->dstr_1250__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1250__I.val, "==I", sizeof(cdat->dstr_1250__I.val)-1);
+ 
+ /*iniobj dsym_1251__I*/
+ if (!/*_.VALDATA___V1257*/ curfptr[1256]) /*_.VALDATA___V1257*/ curfptr[1256] = (void*)&cdat->dsym_1251__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1251__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1251__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1251__I.obj_hash = 325503317;
+  cdat->dsym_1251__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1251__I));
+ 
+ /*inistring dstr_1252__I*/
+ /*_.VALSTR___V1258*/ curfptr[1257] = (void*)&cdat->dstr_1252__I;
+  cdat->dstr_1252__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1252__I.val, ">I", sizeof(cdat->dstr_1252__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:925:/ iniobj");
+ /*iniobj dobj_1253__I*/
+ if (!/*_.VALDATA___V1259*/ curfptr[1258]) /*_.VALDATA___V1259*/ curfptr[1258] = (void*)&cdat->dobj_1253__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1253__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1253__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1253__I.obj_hash = 595939789;
+  cdat->dobj_1253__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1253__I));
+ 
+ /*inimult dtup_1254__I*/
+ /*_.VALTUP___V1267*/ curfptr[1266] = (void*)&cdat->dtup_1254__I;
+  cdat->dtup_1254__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1254__I.nbval = 5;
+ /*inimult dtup_1255__I*/
+ /*_.VALTUP___V1263*/ curfptr[1262] = (void*)&cdat->dtup_1255__I;
+  cdat->dtup_1255__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1255__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:925:/ iniobj");
+ /*iniobj dobj_1256*/
+ if (!/*_.VALDATA___V1261*/ curfptr[1260]) /*_.VALDATA___V1261*/ curfptr[1260] = (void*)&cdat->dobj_1256;
+  melt_assertmsg("iniobj checkdiscr dobj_1256", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1256.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1256.obj_num = 0;
+  cdat->dobj_1256.obj_hash = 972164685;
+  cdat->dobj_1256.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1256));
+ 
+ MELT_LOCATION("warmelt-first.melt:925:/ iniobj");
+ /*iniobj dobj_1257*/
+ if (!/*_.VALDATA___V1262*/ curfptr[1261]) /*_.VALDATA___V1262*/ curfptr[1261] = (void*)&cdat->dobj_1257;
+  melt_assertmsg("iniobj checkdiscr dobj_1257", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1257.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1257.obj_num = 1;
+  cdat->dobj_1257.obj_hash = 147965213;
+  cdat->dobj_1257.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1257));
+ 
+ /*inistring dstr_1258__*/
+ /*_.VALSTR___V1264*/ curfptr[1263] = (void*)&cdat->dstr_1258__;
+  cdat->dstr_1258__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1258__.val, "((", sizeof(cdat->dstr_1258__.val)-1);
+ 
+ /*inistring dstr_1259__*/
+ /*_.VALSTR___V1265*/ curfptr[1264] = (void*)&cdat->dstr_1259__;
+  cdat->dstr_1259__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1259__.val, ") > (", sizeof(cdat->dstr_1259__.val)-1);
+ 
+ /*inistring dstr_1260__*/
+ /*_.VALSTR___V1266*/ curfptr[1265] = (void*)&cdat->dstr_1260__;
+  cdat->dstr_1260__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1260__.val, "))", sizeof(cdat->dstr_1260__.val)-1);
+ 
+ /*inistring dstr_1261__I*/
+ /*_.VALSTR___V1260*/ curfptr[1259] = (void*)&cdat->dstr_1261__I;
+  cdat->dstr_1261__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1261__I.val, ">I", sizeof(cdat->dstr_1261__I.val)-1);
+ 
+ /*iniobj dsym_1262__I*/
+ if (!/*_.VALDATA___V1268*/ curfptr[1267]) /*_.VALDATA___V1268*/ curfptr[1267] = (void*)&cdat->dsym_1262__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1262__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1262__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1262__I.obj_hash = 430182895;
+  cdat->dsym_1262__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1262__I));
+ 
+ /*inistring dstr_1263__I*/
+ /*_.VALSTR___V1269*/ curfptr[1268] = (void*)&cdat->dstr_1263__I;
+  cdat->dstr_1263__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1263__I.val, ">=I", sizeof(cdat->dstr_1263__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:927:/ iniobj");
+ /*iniobj dobj_1264__I*/
+ if (!/*_.VALDATA___V1270*/ curfptr[1269]) /*_.VALDATA___V1270*/ curfptr[1269] = (void*)&cdat->dobj_1264__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1264__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1264__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1264__I.obj_hash = 248627756;
+  cdat->dobj_1264__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1264__I));
+ 
+ /*inimult dtup_1265__I*/
+ /*_.VALTUP___V1278*/ curfptr[1277] = (void*)&cdat->dtup_1265__I;
+  cdat->dtup_1265__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1265__I.nbval = 5;
+ /*inimult dtup_1266__I*/
+ /*_.VALTUP___V1274*/ curfptr[1273] = (void*)&cdat->dtup_1266__I;
+  cdat->dtup_1266__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1266__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:927:/ iniobj");
+ /*iniobj dobj_1267*/
+ if (!/*_.VALDATA___V1272*/ curfptr[1271]) /*_.VALDATA___V1272*/ curfptr[1271] = (void*)&cdat->dobj_1267;
+  melt_assertmsg("iniobj checkdiscr dobj_1267", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1267.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1267.obj_num = 0;
+  cdat->dobj_1267.obj_hash = 720717458;
+  cdat->dobj_1267.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1267));
+ 
+ MELT_LOCATION("warmelt-first.melt:927:/ iniobj");
+ /*iniobj dobj_1268*/
+ if (!/*_.VALDATA___V1273*/ curfptr[1272]) /*_.VALDATA___V1273*/ curfptr[1272] = (void*)&cdat->dobj_1268;
+  melt_assertmsg("iniobj checkdiscr dobj_1268", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1268.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1268.obj_num = 1;
+  cdat->dobj_1268.obj_hash = 672550840;
+  cdat->dobj_1268.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1268));
+ 
+ /*inistring dstr_1269__*/
+ /*_.VALSTR___V1275*/ curfptr[1274] = (void*)&cdat->dstr_1269__;
+  cdat->dstr_1269__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1269__.val, "((", sizeof(cdat->dstr_1269__.val)-1);
+ 
+ /*inistring dstr_1270__*/
+ /*_.VALSTR___V1276*/ curfptr[1275] = (void*)&cdat->dstr_1270__;
+  cdat->dstr_1270__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1270__.val, ") >= (", sizeof(cdat->dstr_1270__.val)-1);
+ 
+ /*inistring dstr_1271__*/
+ /*_.VALSTR___V1277*/ curfptr[1276] = (void*)&cdat->dstr_1271__;
+  cdat->dstr_1271__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1271__.val, "))", sizeof(cdat->dstr_1271__.val)-1);
+ 
+ /*inistring dstr_1272__I*/
+ /*_.VALSTR___V1271*/ curfptr[1270] = (void*)&cdat->dstr_1272__I;
+  cdat->dstr_1272__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1272__I.val, ">=I", sizeof(cdat->dstr_1272__I.val)-1);
+ 
+ /*iniobj dsym_1273__I*/
+ if (!/*_.VALDATA___V1279*/ curfptr[1278]) /*_.VALDATA___V1279*/ curfptr[1278] = (void*)&cdat->dsym_1273__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1273__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1273__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1273__I.obj_hash = 48223074;
+  cdat->dsym_1273__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1273__I));
+ 
+ /*inistring dstr_1274__I*/
+ /*_.VALSTR___V1280*/ curfptr[1279] = (void*)&cdat->dstr_1274__I;
+  cdat->dstr_1274__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1274__I.val, "!=I", sizeof(cdat->dstr_1274__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:929:/ iniobj");
+ /*iniobj dobj_1275__I*/
+ if (!/*_.VALDATA___V1281*/ curfptr[1280]) /*_.VALDATA___V1281*/ curfptr[1280] = (void*)&cdat->dobj_1275__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1275__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1275__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1275__I.obj_hash = 484356290;
+  cdat->dobj_1275__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1275__I));
+ 
+ /*inimult dtup_1276__I*/
+ /*_.VALTUP___V1289*/ curfptr[1288] = (void*)&cdat->dtup_1276__I;
+  cdat->dtup_1276__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1276__I.nbval = 5;
+ /*inimult dtup_1277__I*/
+ /*_.VALTUP___V1285*/ curfptr[1284] = (void*)&cdat->dtup_1277__I;
+  cdat->dtup_1277__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1277__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:929:/ iniobj");
+ /*iniobj dobj_1278*/
+ if (!/*_.VALDATA___V1283*/ curfptr[1282]) /*_.VALDATA___V1283*/ curfptr[1282] = (void*)&cdat->dobj_1278;
+  melt_assertmsg("iniobj checkdiscr dobj_1278", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1278.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1278.obj_num = 0;
+  cdat->dobj_1278.obj_hash = 854488357;
+  cdat->dobj_1278.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1278));
+ 
+ MELT_LOCATION("warmelt-first.melt:929:/ iniobj");
+ /*iniobj dobj_1279*/
+ if (!/*_.VALDATA___V1284*/ curfptr[1283]) /*_.VALDATA___V1284*/ curfptr[1283] = (void*)&cdat->dobj_1279;
+  melt_assertmsg("iniobj checkdiscr dobj_1279", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1279.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1279.obj_num = 1;
+  cdat->dobj_1279.obj_hash = 505315666;
+  cdat->dobj_1279.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1279));
+ 
+ /*inistring dstr_1280__*/
+ /*_.VALSTR___V1286*/ curfptr[1285] = (void*)&cdat->dstr_1280__;
+  cdat->dstr_1280__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1280__.val, "((", sizeof(cdat->dstr_1280__.val)-1);
+ 
+ /*inistring dstr_1281__*/
+ /*_.VALSTR___V1287*/ curfptr[1286] = (void*)&cdat->dstr_1281__;
+  cdat->dstr_1281__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1281__.val, ") != (", sizeof(cdat->dstr_1281__.val)-1);
+ 
+ /*inistring dstr_1282__*/
+ /*_.VALSTR___V1288*/ curfptr[1287] = (void*)&cdat->dstr_1282__;
+  cdat->dstr_1282__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1282__.val, "))", sizeof(cdat->dstr_1282__.val)-1);
+ 
+ /*inistring dstr_1283__I*/
+ /*_.VALSTR___V1282*/ curfptr[1281] = (void*)&cdat->dstr_1283__I;
+  cdat->dstr_1283__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1283__I.val, "!=I", sizeof(cdat->dstr_1283__I.val)-1);
+ 
+ /*iniobj dsym_1284__I*/
+ if (!/*_.VALDATA___V1290*/ curfptr[1289]) /*_.VALDATA___V1290*/ curfptr[1289] = (void*)&cdat->dsym_1284__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1284__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1284__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1284__I.obj_hash = 970899945;
+  cdat->dsym_1284__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1284__I));
+ 
+ /*inistring dstr_1285__I*/
+ /*_.VALSTR___V1291*/ curfptr[1290] = (void*)&cdat->dstr_1285__I;
+  cdat->dstr_1285__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1285__I.val, "+I", sizeof(cdat->dstr_1285__I.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:932:/ iniobj");
- /*iniobj dobj_1272__I*/
- if (!/*_.VALDATA___V1278*/ curfptr[1277]) /*_.VALDATA___V1278*/ curfptr[1277] = (void*)&cdat->dobj_1272__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1272__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1272__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1272__I.obj_hash = 673503381;
-  cdat->dobj_1272__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1272__I));
- 
- /*inimult dtup_1273__I*/
- /*_.VALTUP___V1286*/ curfptr[1285] = (void*)&cdat->dtup_1273__I;
-  cdat->dtup_1273__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1273__I.nbval = 5;
- /*inimult dtup_1274__I*/
- /*_.VALTUP___V1282*/ curfptr[1281] = (void*)&cdat->dtup_1274__I;
-  cdat->dtup_1274__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1274__I.nbval = 2;
+ /*iniobj dobj_1286__I*/
+ if (!/*_.VALDATA___V1292*/ curfptr[1291]) /*_.VALDATA___V1292*/ curfptr[1291] = (void*)&cdat->dobj_1286__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1286__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1286__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1286__I.obj_hash = 578878081;
+  cdat->dobj_1286__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1286__I));
+ 
+ /*inimult dtup_1287__I*/
+ /*_.VALTUP___V1300*/ curfptr[1299] = (void*)&cdat->dtup_1287__I;
+  cdat->dtup_1287__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1287__I.nbval = 5;
+ /*inimult dtup_1288__I*/
+ /*_.VALTUP___V1296*/ curfptr[1295] = (void*)&cdat->dtup_1288__I;
+  cdat->dtup_1288__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1288__I.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:932:/ iniobj");
- /*iniobj dobj_1275*/
- if (!/*_.VALDATA___V1280*/ curfptr[1279]) /*_.VALDATA___V1280*/ curfptr[1279] = (void*)&cdat->dobj_1275;
-  melt_assertmsg("iniobj checkdiscr dobj_1275", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1275.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1275.obj_num = 0;
-  cdat->dobj_1275.obj_hash = 417084210;
-  cdat->dobj_1275.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1275));
+ /*iniobj dobj_1289*/
+ if (!/*_.VALDATA___V1294*/ curfptr[1293]) /*_.VALDATA___V1294*/ curfptr[1293] = (void*)&cdat->dobj_1289;
+  melt_assertmsg("iniobj checkdiscr dobj_1289", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1289.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1289.obj_num = 0;
+  cdat->dobj_1289.obj_hash = 25609012;
+  cdat->dobj_1289.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1289));
  
  MELT_LOCATION("warmelt-first.melt:932:/ iniobj");
- /*iniobj dobj_1276*/
- if (!/*_.VALDATA___V1281*/ curfptr[1280]) /*_.VALDATA___V1281*/ curfptr[1280] = (void*)&cdat->dobj_1276;
-  melt_assertmsg("iniobj checkdiscr dobj_1276", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1276.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1276.obj_num = 1;
-  cdat->dobj_1276.obj_hash = 887048195;
-  cdat->dobj_1276.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1276));
- 
- /*inistring dstr_1277__*/
- /*_.VALSTR___V1283*/ curfptr[1282] = (void*)&cdat->dstr_1277__;
-  cdat->dstr_1277__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1277__.val, "((", sizeof(cdat->dstr_1277__.val)-1);
- 
- /*inistring dstr_1278__*/
- /*_.VALSTR___V1284*/ curfptr[1283] = (void*)&cdat->dstr_1278__;
-  cdat->dstr_1278__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1278__.val, ") >= (", sizeof(cdat->dstr_1278__.val)-1);
- 
- /*inistring dstr_1279__*/
- /*_.VALSTR___V1285*/ curfptr[1284] = (void*)&cdat->dstr_1279__;
-  cdat->dstr_1279__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1279__.val, "))", sizeof(cdat->dstr_1279__.val)-1);
- 
- /*inistring dstr_1280__I*/
- /*_.VALSTR___V1279*/ curfptr[1278] = (void*)&cdat->dstr_1280__I;
-  cdat->dstr_1280__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1280__I.val, ">=I", sizeof(cdat->dstr_1280__I.val)-1);
- 
- /*iniobj dsym_1281__I*/
- if (!/*_.VALDATA___V1287*/ curfptr[1286]) /*_.VALDATA___V1287*/ curfptr[1286] = (void*)&cdat->dsym_1281__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1281__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1281__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1281__I.obj_hash = 48223074;
-  cdat->dsym_1281__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1281__I));
- 
- /*inistring dstr_1282__I*/
- /*_.VALSTR___V1288*/ curfptr[1287] = (void*)&cdat->dstr_1282__I;
-  cdat->dstr_1282__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1282__I.val, "!=I", sizeof(cdat->dstr_1282__I.val)-1);
+ /*iniobj dobj_1290*/
+ if (!/*_.VALDATA___V1295*/ curfptr[1294]) /*_.VALDATA___V1295*/ curfptr[1294] = (void*)&cdat->dobj_1290;
+  melt_assertmsg("iniobj checkdiscr dobj_1290", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1290.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1290.obj_num = 1;
+  cdat->dobj_1290.obj_hash = 831794761;
+  cdat->dobj_1290.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1290));
+ 
+ /*inistring dstr_1291__*/
+ /*_.VALSTR___V1297*/ curfptr[1296] = (void*)&cdat->dstr_1291__;
+  cdat->dstr_1291__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1291__.val, "((", sizeof(cdat->dstr_1291__.val)-1);
+ 
+ /*inistring dstr_1292__*/
+ /*_.VALSTR___V1298*/ curfptr[1297] = (void*)&cdat->dstr_1292__;
+  cdat->dstr_1292__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1292__.val, ") + (", sizeof(cdat->dstr_1292__.val)-1);
+ 
+ /*inistring dstr_1293__*/
+ /*_.VALSTR___V1299*/ curfptr[1298] = (void*)&cdat->dstr_1293__;
+  cdat->dstr_1293__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1293__.val, "))", sizeof(cdat->dstr_1293__.val)-1);
+ 
+ /*inistring dstr_1294__I*/
+ /*_.VALSTR___V1293*/ curfptr[1292] = (void*)&cdat->dstr_1294__I;
+  cdat->dstr_1294__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1294__I.val, "+I", sizeof(cdat->dstr_1294__I.val)-1);
+ 
+ /*iniobj dsym_1295__I*/
+ if (!/*_.VALDATA___V1301*/ curfptr[1300]) /*_.VALDATA___V1301*/ curfptr[1300] = (void*)&cdat->dsym_1295__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1295__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1295__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1295__I.obj_hash = 200978817;
+  cdat->dsym_1295__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1295__I));
+ 
+ /*inistring dstr_1296__I*/
+ /*_.VALSTR___V1302*/ curfptr[1301] = (void*)&cdat->dstr_1296__I;
+  cdat->dstr_1296__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1296__I.val, "-I", sizeof(cdat->dstr_1296__I.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:934:/ iniobj");
- /*iniobj dobj_1283__I*/
- if (!/*_.VALDATA___V1289*/ curfptr[1288]) /*_.VALDATA___V1289*/ curfptr[1288] = (void*)&cdat->dobj_1283__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1283__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1283__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1283__I.obj_hash = 1043472101;
-  cdat->dobj_1283__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1283__I));
- 
- /*inimult dtup_1284__I*/
- /*_.VALTUP___V1297*/ curfptr[1296] = (void*)&cdat->dtup_1284__I;
-  cdat->dtup_1284__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1284__I.nbval = 5;
- /*inimult dtup_1285__I*/
- /*_.VALTUP___V1293*/ curfptr[1292] = (void*)&cdat->dtup_1285__I;
-  cdat->dtup_1285__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1285__I.nbval = 2;
+ /*iniobj dobj_1297__I*/
+ if (!/*_.VALDATA___V1303*/ curfptr[1302]) /*_.VALDATA___V1303*/ curfptr[1302] = (void*)&cdat->dobj_1297__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1297__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1297__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1297__I.obj_hash = 63768008;
+  cdat->dobj_1297__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1297__I));
+ 
+ /*inimult dtup_1298__I*/
+ /*_.VALTUP___V1311*/ curfptr[1310] = (void*)&cdat->dtup_1298__I;
+  cdat->dtup_1298__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1298__I.nbval = 5;
+ /*inimult dtup_1299__I*/
+ /*_.VALTUP___V1307*/ curfptr[1306] = (void*)&cdat->dtup_1299__I;
+  cdat->dtup_1299__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1299__I.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:934:/ iniobj");
- /*iniobj dobj_1286*/
- if (!/*_.VALDATA___V1291*/ curfptr[1290]) /*_.VALDATA___V1291*/ curfptr[1290] = (void*)&cdat->dobj_1286;
-  melt_assertmsg("iniobj checkdiscr dobj_1286", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1286.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1286.obj_num = 0;
-  cdat->dobj_1286.obj_hash = 410767763;
-  cdat->dobj_1286.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1286));
+ /*iniobj dobj_1300*/
+ if (!/*_.VALDATA___V1305*/ curfptr[1304]) /*_.VALDATA___V1305*/ curfptr[1304] = (void*)&cdat->dobj_1300;
+  melt_assertmsg("iniobj checkdiscr dobj_1300", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1300.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1300.obj_num = 0;
+  cdat->dobj_1300.obj_hash = 611663361;
+  cdat->dobj_1300.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1300));
  
  MELT_LOCATION("warmelt-first.melt:934:/ iniobj");
- /*iniobj dobj_1287*/
- if (!/*_.VALDATA___V1292*/ curfptr[1291]) /*_.VALDATA___V1292*/ curfptr[1291] = (void*)&cdat->dobj_1287;
-  melt_assertmsg("iniobj checkdiscr dobj_1287", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1287.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1287.obj_num = 1;
-  cdat->dobj_1287.obj_hash = 905355828;
-  cdat->dobj_1287.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1287));
- 
- /*inistring dstr_1288__*/
- /*_.VALSTR___V1294*/ curfptr[1293] = (void*)&cdat->dstr_1288__;
-  cdat->dstr_1288__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1288__.val, "((", sizeof(cdat->dstr_1288__.val)-1);
- 
- /*inistring dstr_1289__*/
- /*_.VALSTR___V1295*/ curfptr[1294] = (void*)&cdat->dstr_1289__;
-  cdat->dstr_1289__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1289__.val, ") != (", sizeof(cdat->dstr_1289__.val)-1);
- 
- /*inistring dstr_1290__*/
- /*_.VALSTR___V1296*/ curfptr[1295] = (void*)&cdat->dstr_1290__;
-  cdat->dstr_1290__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1290__.val, "))", sizeof(cdat->dstr_1290__.val)-1);
- 
- /*inistring dstr_1291__I*/
- /*_.VALSTR___V1290*/ curfptr[1289] = (void*)&cdat->dstr_1291__I;
-  cdat->dstr_1291__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1291__I.val, "!=I", sizeof(cdat->dstr_1291__I.val)-1);
- 
- /*iniobj dsym_1292__I*/
- if (!/*_.VALDATA___V1298*/ curfptr[1297]) /*_.VALDATA___V1298*/ curfptr[1297] = (void*)&cdat->dsym_1292__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1292__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1292__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1292__I.obj_hash = 970899945;
-  cdat->dsym_1292__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1292__I));
- 
- /*inistring dstr_1293__I*/
- /*_.VALSTR___V1299*/ curfptr[1298] = (void*)&cdat->dstr_1293__I;
-  cdat->dstr_1293__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1293__I.val, "+I", sizeof(cdat->dstr_1293__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:937:/ iniobj");
- /*iniobj dobj_1294__I*/
- if (!/*_.VALDATA___V1300*/ curfptr[1299]) /*_.VALDATA___V1300*/ curfptr[1299] = (void*)&cdat->dobj_1294__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1294__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1294__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1294__I.obj_hash = 603744499;
-  cdat->dobj_1294__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1294__I));
- 
- /*inimult dtup_1295__I*/
- /*_.VALTUP___V1308*/ curfptr[1307] = (void*)&cdat->dtup_1295__I;
-  cdat->dtup_1295__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1295__I.nbval = 5;
- /*inimult dtup_1296__I*/
- /*_.VALTUP___V1304*/ curfptr[1303] = (void*)&cdat->dtup_1296__I;
-  cdat->dtup_1296__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1296__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:937:/ iniobj");
- /*iniobj dobj_1297*/
- if (!/*_.VALDATA___V1302*/ curfptr[1301]) /*_.VALDATA___V1302*/ curfptr[1301] = (void*)&cdat->dobj_1297;
-  melt_assertmsg("iniobj checkdiscr dobj_1297", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1297.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1297.obj_num = 0;
-  cdat->dobj_1297.obj_hash = 990298950;
-  cdat->dobj_1297.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1297));
- 
- MELT_LOCATION("warmelt-first.melt:937:/ iniobj");
- /*iniobj dobj_1298*/
- if (!/*_.VALDATA___V1303*/ curfptr[1302]) /*_.VALDATA___V1303*/ curfptr[1302] = (void*)&cdat->dobj_1298;
-  melt_assertmsg("iniobj checkdiscr dobj_1298", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1298.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1298.obj_num = 1;
-  cdat->dobj_1298.obj_hash = 236168472;
-  cdat->dobj_1298.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1298));
- 
- /*inistring dstr_1299__*/
- /*_.VALSTR___V1305*/ curfptr[1304] = (void*)&cdat->dstr_1299__;
-  cdat->dstr_1299__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1299__.val, "((", sizeof(cdat->dstr_1299__.val)-1);
- 
- /*inistring dstr_1300__*/
- /*_.VALSTR___V1306*/ curfptr[1305] = (void*)&cdat->dstr_1300__;
-  cdat->dstr_1300__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1300__.val, ") + (", sizeof(cdat->dstr_1300__.val)-1);
- 
- /*inistring dstr_1301__*/
- /*_.VALSTR___V1307*/ curfptr[1306] = (void*)&cdat->dstr_1301__;
-  cdat->dstr_1301__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1301__.val, "))", sizeof(cdat->dstr_1301__.val)-1);
- 
- /*inistring dstr_1302__I*/
- /*_.VALSTR___V1301*/ curfptr[1300] = (void*)&cdat->dstr_1302__I;
-  cdat->dstr_1302__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1302__I.val, "+I", sizeof(cdat->dstr_1302__I.val)-1);
- 
- /*iniobj dsym_1303__I*/
- if (!/*_.VALDATA___V1309*/ curfptr[1308]) /*_.VALDATA___V1309*/ curfptr[1308] = (void*)&cdat->dsym_1303__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1303__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1303__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1303__I.obj_hash = 200978817;
-  cdat->dsym_1303__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1303__I));
- 
- /*inistring dstr_1304__I*/
- /*_.VALSTR___V1310*/ curfptr[1309] = (void*)&cdat->dstr_1304__I;
-  cdat->dstr_1304__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1304__I.val, "-I", sizeof(cdat->dstr_1304__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:939:/ iniobj");
- /*iniobj dobj_1305__I*/
- if (!/*_.VALDATA___V1311*/ curfptr[1310]) /*_.VALDATA___V1311*/ curfptr[1310] = (void*)&cdat->dobj_1305__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1305__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1305__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1305__I.obj_hash = 959256767;
-  cdat->dobj_1305__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1305__I));
- 
- /*inimult dtup_1306__I*/
- /*_.VALTUP___V1319*/ curfptr[1318] = (void*)&cdat->dtup_1306__I;
-  cdat->dtup_1306__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1306__I.nbval = 5;
- /*inimult dtup_1307__I*/
- /*_.VALTUP___V1315*/ curfptr[1314] = (void*)&cdat->dtup_1307__I;
-  cdat->dtup_1307__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1307__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:939:/ iniobj");
- /*iniobj dobj_1308*/
- if (!/*_.VALDATA___V1313*/ curfptr[1312]) /*_.VALDATA___V1313*/ curfptr[1312] = (void*)&cdat->dobj_1308;
-  melt_assertmsg("iniobj checkdiscr dobj_1308", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1308.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1308.obj_num = 0;
-  cdat->dobj_1308.obj_hash = 662739021;
-  cdat->dobj_1308.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1308));
- 
- MELT_LOCATION("warmelt-first.melt:939:/ iniobj");
- /*iniobj dobj_1309*/
- if (!/*_.VALDATA___V1314*/ curfptr[1313]) /*_.VALDATA___V1314*/ curfptr[1313] = (void*)&cdat->dobj_1309;
-  melt_assertmsg("iniobj checkdiscr dobj_1309", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1309.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1309.obj_num = 1;
-  cdat->dobj_1309.obj_hash = 45553292;
-  cdat->dobj_1309.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1309));
- 
- /*inistring dstr_1310__*/
- /*_.VALSTR___V1316*/ curfptr[1315] = (void*)&cdat->dstr_1310__;
-  cdat->dstr_1310__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1310__.val, "((", sizeof(cdat->dstr_1310__.val)-1);
- 
- /*inistring dstr_1311__*/
- /*_.VALSTR___V1317*/ curfptr[1316] = (void*)&cdat->dstr_1311__;
-  cdat->dstr_1311__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1311__.val, ") - (", sizeof(cdat->dstr_1311__.val)-1);
- 
- /*inistring dstr_1312__*/
- /*_.VALSTR___V1318*/ curfptr[1317] = (void*)&cdat->dstr_1312__;
-  cdat->dstr_1312__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1312__.val, "))", sizeof(cdat->dstr_1312__.val)-1);
- 
- /*inistring dstr_1313__I*/
- /*_.VALSTR___V1312*/ curfptr[1311] = (void*)&cdat->dstr_1313__I;
-  cdat->dstr_1313__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1313__I.val, "-I", sizeof(cdat->dstr_1313__I.val)-1);
- 
- /*iniobj dsym_1314__I*/
- if (!/*_.VALDATA___V1320*/ curfptr[1319]) /*_.VALDATA___V1320*/ curfptr[1319] = (void*)&cdat->dsym_1314__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1314__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1314__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1314__I.obj_hash = 974283096;
-  cdat->dsym_1314__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1314__I));
- 
- /*inistring dstr_1315__I*/
- /*_.VALSTR___V1321*/ curfptr[1320] = (void*)&cdat->dstr_1315__I;
-  cdat->dstr_1315__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1315__I.val, "*I", sizeof(cdat->dstr_1315__I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:941:/ iniobj");
- /*iniobj dobj_1316__I*/
- if (!/*_.VALDATA___V1322*/ curfptr[1321]) /*_.VALDATA___V1322*/ curfptr[1321] = (void*)&cdat->dobj_1316__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1316__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1316__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1316__I.obj_hash = 34721777;
-  cdat->dobj_1316__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1316__I));
- 
- /*inimult dtup_1317__I*/
- /*_.VALTUP___V1330*/ curfptr[1329] = (void*)&cdat->dtup_1317__I;
-  cdat->dtup_1317__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1317__I.nbval = 5;
- /*inimult dtup_1318__I*/
- /*_.VALTUP___V1326*/ curfptr[1325] = (void*)&cdat->dtup_1318__I;
-  cdat->dtup_1318__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1318__I.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:941:/ iniobj");
- /*iniobj dobj_1319*/
- if (!/*_.VALDATA___V1324*/ curfptr[1323]) /*_.VALDATA___V1324*/ curfptr[1323] = (void*)&cdat->dobj_1319;
-  melt_assertmsg("iniobj checkdiscr dobj_1319", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1319.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1319.obj_num = 0;
-  cdat->dobj_1319.obj_hash = 232864724;
-  cdat->dobj_1319.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1319));
- 
- MELT_LOCATION("warmelt-first.melt:941:/ iniobj");
- /*iniobj dobj_1320*/
- if (!/*_.VALDATA___V1325*/ curfptr[1324]) /*_.VALDATA___V1325*/ curfptr[1324] = (void*)&cdat->dobj_1320;
-  melt_assertmsg("iniobj checkdiscr dobj_1320", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1320.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1320.obj_num = 1;
-  cdat->dobj_1320.obj_hash = 918178599;
-  cdat->dobj_1320.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1320));
- 
- /*inistring dstr_1321__*/
- /*_.VALSTR___V1327*/ curfptr[1326] = (void*)&cdat->dstr_1321__;
-  cdat->dstr_1321__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1321__.val, "((", sizeof(cdat->dstr_1321__.val)-1);
- 
- /*inistring dstr_1322__*/
- /*_.VALSTR___V1328*/ curfptr[1327] = (void*)&cdat->dstr_1322__;
-  cdat->dstr_1322__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1322__.val, ") * (", sizeof(cdat->dstr_1322__.val)-1);
- 
- /*inistring dstr_1323__*/
- /*_.VALSTR___V1329*/ curfptr[1328] = (void*)&cdat->dstr_1323__;
-  cdat->dstr_1323__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1323__.val, "))", sizeof(cdat->dstr_1323__.val)-1);
- 
- /*inistring dstr_1324__I*/
- /*_.VALSTR___V1323*/ curfptr[1322] = (void*)&cdat->dstr_1324__I;
-  cdat->dstr_1324__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1324__I.val, "*I", sizeof(cdat->dstr_1324__I.val)-1);
- 
- /*iniobj dsym_1325__ANDI*/
- if (!/*_.VALDATA___V1331*/ curfptr[1330]) /*_.VALDATA___V1331*/ curfptr[1330] = (void*)&cdat->dsym_1325__ANDI;
-  melt_assertmsg("iniobj checkdiscr dsym_1325__ANDI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1325__ANDI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1325__ANDI.obj_hash = 614879494;
-  cdat->dsym_1325__ANDI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1325__ANDI));
- 
- /*inistring dstr_1326__ANDI*/
- /*_.VALSTR___V1332*/ curfptr[1331] = (void*)&cdat->dstr_1326__ANDI;
-  cdat->dstr_1326__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1326__ANDI.val, "ANDI", sizeof(cdat->dstr_1326__ANDI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:943:/ iniobj");
- /*iniobj dobj_1327__ANDI*/
- if (!/*_.VALDATA___V1333*/ curfptr[1332]) /*_.VALDATA___V1333*/ curfptr[1332] = (void*)&cdat->dobj_1327__ANDI;
-  melt_assertmsg("iniobj checkdiscr dobj_1327__ANDI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1327__ANDI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1327__ANDI.obj_hash = 896778338;
-  cdat->dobj_1327__ANDI.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1327__ANDI));
- 
- /*inimult dtup_1328__ANDI*/
- /*_.VALTUP___V1341*/ curfptr[1340] = (void*)&cdat->dtup_1328__ANDI;
-  cdat->dtup_1328__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1328__ANDI.nbval = 5;
- /*inimult dtup_1329__ANDI*/
- /*_.VALTUP___V1337*/ curfptr[1336] = (void*)&cdat->dtup_1329__ANDI;
-  cdat->dtup_1329__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1329__ANDI.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:943:/ iniobj");
- /*iniobj dobj_1330*/
- if (!/*_.VALDATA___V1335*/ curfptr[1334]) /*_.VALDATA___V1335*/ curfptr[1334] = (void*)&cdat->dobj_1330;
-  melt_assertmsg("iniobj checkdiscr dobj_1330", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1330.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1330.obj_num = 0;
-  cdat->dobj_1330.obj_hash = 230975697;
-  cdat->dobj_1330.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1330));
- 
- MELT_LOCATION("warmelt-first.melt:943:/ iniobj");
- /*iniobj dobj_1331*/
- if (!/*_.VALDATA___V1336*/ curfptr[1335]) /*_.VALDATA___V1336*/ curfptr[1335] = (void*)&cdat->dobj_1331;
-  melt_assertmsg("iniobj checkdiscr dobj_1331", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1331.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1331.obj_num = 1;
-  cdat->dobj_1331.obj_hash = 358909630;
-  cdat->dobj_1331.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1331));
- 
- /*inistring dstr_1332__*/
- /*_.VALSTR___V1338*/ curfptr[1337] = (void*)&cdat->dstr_1332__;
-  cdat->dstr_1332__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1332__.val, "((", sizeof(cdat->dstr_1332__.val)-1);
- 
- /*inistring dstr_1333__*/
- /*_.VALSTR___V1339*/ curfptr[1338] = (void*)&cdat->dstr_1333__;
-  cdat->dstr_1333__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1333__.val, ") & (", sizeof(cdat->dstr_1333__.val)-1);
- 
- /*inistring dstr_1334__*/
- /*_.VALSTR___V1340*/ curfptr[1339] = (void*)&cdat->dstr_1334__;
-  cdat->dstr_1334__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1334__.val, "))", sizeof(cdat->dstr_1334__.val)-1);
- 
- /*inistring dstr_1335__ANDI*/
- /*_.VALSTR___V1334*/ curfptr[1333] = (void*)&cdat->dstr_1335__ANDI;
-  cdat->dstr_1335__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1335__ANDI.val, "ANDI", sizeof(cdat->dstr_1335__ANDI.val)-1);
- 
- /*iniobj dsym_1336__ORI*/
- if (!/*_.VALDATA___V1342*/ curfptr[1341]) /*_.VALDATA___V1342*/ curfptr[1341] = (void*)&cdat->dsym_1336__ORI;
-  melt_assertmsg("iniobj checkdiscr dsym_1336__ORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1336__ORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1336__ORI.obj_hash = 993961739;
-  cdat->dsym_1336__ORI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1336__ORI));
- 
- /*inistring dstr_1337__ORI*/
- /*_.VALSTR___V1343*/ curfptr[1342] = (void*)&cdat->dstr_1337__ORI;
-  cdat->dstr_1337__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1337__ORI.val, "ORI", sizeof(cdat->dstr_1337__ORI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:945:/ iniobj");
- /*iniobj dobj_1338__ORI*/
- if (!/*_.VALDATA___V1344*/ curfptr[1343]) /*_.VALDATA___V1344*/ curfptr[1343] = (void*)&cdat->dobj_1338__ORI;
-  melt_assertmsg("iniobj checkdiscr dobj_1338__ORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1338__ORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1338__ORI.obj_hash = 69774140;
-  cdat->dobj_1338__ORI.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1338__ORI));
- 
- /*inimult dtup_1339__ORI*/
- /*_.VALTUP___V1352*/ curfptr[1351] = (void*)&cdat->dtup_1339__ORI;
-  cdat->dtup_1339__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1339__ORI.nbval = 5;
- /*inimult dtup_1340__ORI*/
- /*_.VALTUP___V1348*/ curfptr[1347] = (void*)&cdat->dtup_1340__ORI;
-  cdat->dtup_1340__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1340__ORI.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:945:/ iniobj");
- /*iniobj dobj_1341*/
- if (!/*_.VALDATA___V1346*/ curfptr[1345]) /*_.VALDATA___V1346*/ curfptr[1345] = (void*)&cdat->dobj_1341;
-  melt_assertmsg("iniobj checkdiscr dobj_1341", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1341.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1341.obj_num = 0;
-  cdat->dobj_1341.obj_hash = 137914305;
-  cdat->dobj_1341.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1341));
- 
- MELT_LOCATION("warmelt-first.melt:945:/ iniobj");
- /*iniobj dobj_1342*/
- if (!/*_.VALDATA___V1347*/ curfptr[1346]) /*_.VALDATA___V1347*/ curfptr[1346] = (void*)&cdat->dobj_1342;
-  melt_assertmsg("iniobj checkdiscr dobj_1342", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1342.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1342.obj_num = 1;
-  cdat->dobj_1342.obj_hash = 674699261;
-  cdat->dobj_1342.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1342));
- 
- /*inistring dstr_1343__*/
- /*_.VALSTR___V1349*/ curfptr[1348] = (void*)&cdat->dstr_1343__;
-  cdat->dstr_1343__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1343__.val, "((", sizeof(cdat->dstr_1343__.val)-1);
- 
- /*inistring dstr_1344__*/
- /*_.VALSTR___V1350*/ curfptr[1349] = (void*)&cdat->dstr_1344__;
-  cdat->dstr_1344__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1344__.val, ") | (", sizeof(cdat->dstr_1344__.val)-1);
- 
- /*inistring dstr_1345__*/
- /*_.VALSTR___V1351*/ curfptr[1350] = (void*)&cdat->dstr_1345__;
-  cdat->dstr_1345__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1345__.val, "))", sizeof(cdat->dstr_1345__.val)-1);
- 
- /*inistring dstr_1346__ORI*/
- /*_.VALSTR___V1345*/ curfptr[1344] = (void*)&cdat->dstr_1346__ORI;
-  cdat->dstr_1346__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1346__ORI.val, "ORI", sizeof(cdat->dstr_1346__ORI.val)-1);
- 
- /*iniobj dsym_1347__XORI*/
- if (!/*_.VALDATA___V1353*/ curfptr[1352]) /*_.VALDATA___V1353*/ curfptr[1352] = (void*)&cdat->dsym_1347__XORI;
-  melt_assertmsg("iniobj checkdiscr dsym_1347__XORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1347__XORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1347__XORI.obj_hash = 492713902;
-  cdat->dsym_1347__XORI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1347__XORI));
- 
- /*inistring dstr_1348__XORI*/
- /*_.VALSTR___V1354*/ curfptr[1353] = (void*)&cdat->dstr_1348__XORI;
-  cdat->dstr_1348__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1348__XORI.val, "XORI", sizeof(cdat->dstr_1348__XORI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:947:/ iniobj");
- /*iniobj dobj_1349__XORI*/
- if (!/*_.VALDATA___V1355*/ curfptr[1354]) /*_.VALDATA___V1355*/ curfptr[1354] = (void*)&cdat->dobj_1349__XORI;
-  melt_assertmsg("iniobj checkdiscr dobj_1349__XORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1349__XORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1349__XORI.obj_hash = 713340102;
-  cdat->dobj_1349__XORI.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1349__XORI));
- 
- /*inimult dtup_1350__XORI*/
- /*_.VALTUP___V1363*/ curfptr[1362] = (void*)&cdat->dtup_1350__XORI;
-  cdat->dtup_1350__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1350__XORI.nbval = 5;
- /*inimult dtup_1351__XORI*/
- /*_.VALTUP___V1359*/ curfptr[1358] = (void*)&cdat->dtup_1351__XORI;
-  cdat->dtup_1351__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1351__XORI.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:947:/ iniobj");
- /*iniobj dobj_1352*/
- if (!/*_.VALDATA___V1357*/ curfptr[1356]) /*_.VALDATA___V1357*/ curfptr[1356] = (void*)&cdat->dobj_1352;
-  melt_assertmsg("iniobj checkdiscr dobj_1352", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1352.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1352.obj_num = 0;
-  cdat->dobj_1352.obj_hash = 523359110;
-  cdat->dobj_1352.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1352));
- 
- MELT_LOCATION("warmelt-first.melt:947:/ iniobj");
- /*iniobj dobj_1353*/
- if (!/*_.VALDATA___V1358*/ curfptr[1357]) /*_.VALDATA___V1358*/ curfptr[1357] = (void*)&cdat->dobj_1353;
-  melt_assertmsg("iniobj checkdiscr dobj_1353", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1353.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1353.obj_num = 1;
-  cdat->dobj_1353.obj_hash = 198429992;
-  cdat->dobj_1353.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1353));
- 
- /*inistring dstr_1354__*/
- /*_.VALSTR___V1360*/ curfptr[1359] = (void*)&cdat->dstr_1354__;
-  cdat->dstr_1354__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1354__.val, "((", sizeof(cdat->dstr_1354__.val)-1);
- 
- /*inistring dstr_1355__*/
- /*_.VALSTR___V1361*/ curfptr[1360] = (void*)&cdat->dstr_1355__;
-  cdat->dstr_1355__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1355__.val, ") ^ (", sizeof(cdat->dstr_1355__.val)-1);
+ /*iniobj dobj_1301*/
+ if (!/*_.VALDATA___V1306*/ curfptr[1305]) /*_.VALDATA___V1306*/ curfptr[1305] = (void*)&cdat->dobj_1301;
+  melt_assertmsg("iniobj checkdiscr dobj_1301", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1301.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1301.obj_num = 1;
+  cdat->dobj_1301.obj_hash = 114944294;
+  cdat->dobj_1301.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1301));
+ 
+ /*inistring dstr_1302__*/
+ /*_.VALSTR___V1308*/ curfptr[1307] = (void*)&cdat->dstr_1302__;
+  cdat->dstr_1302__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1302__.val, "((", sizeof(cdat->dstr_1302__.val)-1);
+ 
+ /*inistring dstr_1303__*/
+ /*_.VALSTR___V1309*/ curfptr[1308] = (void*)&cdat->dstr_1303__;
+  cdat->dstr_1303__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1303__.val, ") - (", sizeof(cdat->dstr_1303__.val)-1);
+ 
+ /*inistring dstr_1304__*/
+ /*_.VALSTR___V1310*/ curfptr[1309] = (void*)&cdat->dstr_1304__;
+  cdat->dstr_1304__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1304__.val, "))", sizeof(cdat->dstr_1304__.val)-1);
+ 
+ /*inistring dstr_1305__I*/
+ /*_.VALSTR___V1304*/ curfptr[1303] = (void*)&cdat->dstr_1305__I;
+  cdat->dstr_1305__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1305__I.val, "-I", sizeof(cdat->dstr_1305__I.val)-1);
+ 
+ /*iniobj dsym_1306__I*/
+ if (!/*_.VALDATA___V1312*/ curfptr[1311]) /*_.VALDATA___V1312*/ curfptr[1311] = (void*)&cdat->dsym_1306__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1306__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1306__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1306__I.obj_hash = 974283096;
+  cdat->dsym_1306__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1306__I));
+ 
+ /*inistring dstr_1307__I*/
+ /*_.VALSTR___V1313*/ curfptr[1312] = (void*)&cdat->dstr_1307__I;
+  cdat->dstr_1307__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1307__I.val, "*I", sizeof(cdat->dstr_1307__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:936:/ iniobj");
+ /*iniobj dobj_1308__I*/
+ if (!/*_.VALDATA___V1314*/ curfptr[1313]) /*_.VALDATA___V1314*/ curfptr[1313] = (void*)&cdat->dobj_1308__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1308__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1308__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1308__I.obj_hash = 763677293;
+  cdat->dobj_1308__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1308__I));
+ 
+ /*inimult dtup_1309__I*/
+ /*_.VALTUP___V1322*/ curfptr[1321] = (void*)&cdat->dtup_1309__I;
+  cdat->dtup_1309__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1309__I.nbval = 5;
+ /*inimult dtup_1310__I*/
+ /*_.VALTUP___V1318*/ curfptr[1317] = (void*)&cdat->dtup_1310__I;
+  cdat->dtup_1310__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1310__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:936:/ iniobj");
+ /*iniobj dobj_1311*/
+ if (!/*_.VALDATA___V1316*/ curfptr[1315]) /*_.VALDATA___V1316*/ curfptr[1315] = (void*)&cdat->dobj_1311;
+  melt_assertmsg("iniobj checkdiscr dobj_1311", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1311.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1311.obj_num = 0;
+  cdat->dobj_1311.obj_hash = 191521025;
+  cdat->dobj_1311.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1311));
+ 
+ MELT_LOCATION("warmelt-first.melt:936:/ iniobj");
+ /*iniobj dobj_1312*/
+ if (!/*_.VALDATA___V1317*/ curfptr[1316]) /*_.VALDATA___V1317*/ curfptr[1316] = (void*)&cdat->dobj_1312;
+  melt_assertmsg("iniobj checkdiscr dobj_1312", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1312.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1312.obj_num = 1;
+  cdat->dobj_1312.obj_hash = 974672016;
+  cdat->dobj_1312.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1312));
+ 
+ /*inistring dstr_1313__*/
+ /*_.VALSTR___V1319*/ curfptr[1318] = (void*)&cdat->dstr_1313__;
+  cdat->dstr_1313__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1313__.val, "((", sizeof(cdat->dstr_1313__.val)-1);
+ 
+ /*inistring dstr_1314__*/
+ /*_.VALSTR___V1320*/ curfptr[1319] = (void*)&cdat->dstr_1314__;
+  cdat->dstr_1314__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1314__.val, ") * (", sizeof(cdat->dstr_1314__.val)-1);
+ 
+ /*inistring dstr_1315__*/
+ /*_.VALSTR___V1321*/ curfptr[1320] = (void*)&cdat->dstr_1315__;
+  cdat->dstr_1315__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1315__.val, "))", sizeof(cdat->dstr_1315__.val)-1);
+ 
+ /*inistring dstr_1316__I*/
+ /*_.VALSTR___V1315*/ curfptr[1314] = (void*)&cdat->dstr_1316__I;
+  cdat->dstr_1316__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1316__I.val, "*I", sizeof(cdat->dstr_1316__I.val)-1);
+ 
+ /*iniobj dsym_1317__ANDI*/
+ if (!/*_.VALDATA___V1323*/ curfptr[1322]) /*_.VALDATA___V1323*/ curfptr[1322] = (void*)&cdat->dsym_1317__ANDI;
+  melt_assertmsg("iniobj checkdiscr dsym_1317__ANDI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1317__ANDI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1317__ANDI.obj_hash = 614879494;
+  cdat->dsym_1317__ANDI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1317__ANDI));
+ 
+ /*inistring dstr_1318__ANDI*/
+ /*_.VALSTR___V1324*/ curfptr[1323] = (void*)&cdat->dstr_1318__ANDI;
+  cdat->dstr_1318__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1318__ANDI.val, "ANDI", sizeof(cdat->dstr_1318__ANDI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:938:/ iniobj");
+ /*iniobj dobj_1319__ANDI*/
+ if (!/*_.VALDATA___V1325*/ curfptr[1324]) /*_.VALDATA___V1325*/ curfptr[1324] = (void*)&cdat->dobj_1319__ANDI;
+  melt_assertmsg("iniobj checkdiscr dobj_1319__ANDI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1319__ANDI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1319__ANDI.obj_hash = 841011300;
+  cdat->dobj_1319__ANDI.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1319__ANDI));
+ 
+ /*inimult dtup_1320__ANDI*/
+ /*_.VALTUP___V1333*/ curfptr[1332] = (void*)&cdat->dtup_1320__ANDI;
+  cdat->dtup_1320__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1320__ANDI.nbval = 5;
+ /*inimult dtup_1321__ANDI*/
+ /*_.VALTUP___V1329*/ curfptr[1328] = (void*)&cdat->dtup_1321__ANDI;
+  cdat->dtup_1321__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1321__ANDI.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:938:/ iniobj");
+ /*iniobj dobj_1322*/
+ if (!/*_.VALDATA___V1327*/ curfptr[1326]) /*_.VALDATA___V1327*/ curfptr[1326] = (void*)&cdat->dobj_1322;
+  melt_assertmsg("iniobj checkdiscr dobj_1322", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1322.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1322.obj_num = 0;
+  cdat->dobj_1322.obj_hash = 68768021;
+  cdat->dobj_1322.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1322));
+ 
+ MELT_LOCATION("warmelt-first.melt:938:/ iniobj");
+ /*iniobj dobj_1323*/
+ if (!/*_.VALDATA___V1328*/ curfptr[1327]) /*_.VALDATA___V1328*/ curfptr[1327] = (void*)&cdat->dobj_1323;
+  melt_assertmsg("iniobj checkdiscr dobj_1323", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1323.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1323.obj_num = 1;
+  cdat->dobj_1323.obj_hash = 159318130;
+  cdat->dobj_1323.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1323));
+ 
+ /*inistring dstr_1324__*/
+ /*_.VALSTR___V1330*/ curfptr[1329] = (void*)&cdat->dstr_1324__;
+  cdat->dstr_1324__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1324__.val, "((", sizeof(cdat->dstr_1324__.val)-1);
+ 
+ /*inistring dstr_1325__*/
+ /*_.VALSTR___V1331*/ curfptr[1330] = (void*)&cdat->dstr_1325__;
+  cdat->dstr_1325__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1325__.val, ") & (", sizeof(cdat->dstr_1325__.val)-1);
+ 
+ /*inistring dstr_1326__*/
+ /*_.VALSTR___V1332*/ curfptr[1331] = (void*)&cdat->dstr_1326__;
+  cdat->dstr_1326__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1326__.val, "))", sizeof(cdat->dstr_1326__.val)-1);
+ 
+ /*inistring dstr_1327__ANDI*/
+ /*_.VALSTR___V1326*/ curfptr[1325] = (void*)&cdat->dstr_1327__ANDI;
+  cdat->dstr_1327__ANDI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1327__ANDI.val, "ANDI", sizeof(cdat->dstr_1327__ANDI.val)-1);
+ 
+ /*iniobj dsym_1328__ORI*/
+ if (!/*_.VALDATA___V1334*/ curfptr[1333]) /*_.VALDATA___V1334*/ curfptr[1333] = (void*)&cdat->dsym_1328__ORI;
+  melt_assertmsg("iniobj checkdiscr dsym_1328__ORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1328__ORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1328__ORI.obj_hash = 993961739;
+  cdat->dsym_1328__ORI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1328__ORI));
+ 
+ /*inistring dstr_1329__ORI*/
+ /*_.VALSTR___V1335*/ curfptr[1334] = (void*)&cdat->dstr_1329__ORI;
+  cdat->dstr_1329__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1329__ORI.val, "ORI", sizeof(cdat->dstr_1329__ORI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:940:/ iniobj");
+ /*iniobj dobj_1330__ORI*/
+ if (!/*_.VALDATA___V1336*/ curfptr[1335]) /*_.VALDATA___V1336*/ curfptr[1335] = (void*)&cdat->dobj_1330__ORI;
+  melt_assertmsg("iniobj checkdiscr dobj_1330__ORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1330__ORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1330__ORI.obj_hash = 77253379;
+  cdat->dobj_1330__ORI.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1330__ORI));
+ 
+ /*inimult dtup_1331__ORI*/
+ /*_.VALTUP___V1344*/ curfptr[1343] = (void*)&cdat->dtup_1331__ORI;
+  cdat->dtup_1331__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1331__ORI.nbval = 5;
+ /*inimult dtup_1332__ORI*/
+ /*_.VALTUP___V1340*/ curfptr[1339] = (void*)&cdat->dtup_1332__ORI;
+  cdat->dtup_1332__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1332__ORI.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:940:/ iniobj");
+ /*iniobj dobj_1333*/
+ if (!/*_.VALDATA___V1338*/ curfptr[1337]) /*_.VALDATA___V1338*/ curfptr[1337] = (void*)&cdat->dobj_1333;
+  melt_assertmsg("iniobj checkdiscr dobj_1333", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1333.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1333.obj_num = 0;
+  cdat->dobj_1333.obj_hash = 627181292;
+  cdat->dobj_1333.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1333));
+ 
+ MELT_LOCATION("warmelt-first.melt:940:/ iniobj");
+ /*iniobj dobj_1334*/
+ if (!/*_.VALDATA___V1339*/ curfptr[1338]) /*_.VALDATA___V1339*/ curfptr[1338] = (void*)&cdat->dobj_1334;
+  melt_assertmsg("iniobj checkdiscr dobj_1334", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1334.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1334.obj_num = 1;
+  cdat->dobj_1334.obj_hash = 317867061;
+  cdat->dobj_1334.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1334));
+ 
+ /*inistring dstr_1335__*/
+ /*_.VALSTR___V1341*/ curfptr[1340] = (void*)&cdat->dstr_1335__;
+  cdat->dstr_1335__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1335__.val, "((", sizeof(cdat->dstr_1335__.val)-1);
+ 
+ /*inistring dstr_1336__*/
+ /*_.VALSTR___V1342*/ curfptr[1341] = (void*)&cdat->dstr_1336__;
+  cdat->dstr_1336__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1336__.val, ") | (", sizeof(cdat->dstr_1336__.val)-1);
+ 
+ /*inistring dstr_1337__*/
+ /*_.VALSTR___V1343*/ curfptr[1342] = (void*)&cdat->dstr_1337__;
+  cdat->dstr_1337__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1337__.val, "))", sizeof(cdat->dstr_1337__.val)-1);
+ 
+ /*inistring dstr_1338__ORI*/
+ /*_.VALSTR___V1337*/ curfptr[1336] = (void*)&cdat->dstr_1338__ORI;
+  cdat->dstr_1338__ORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1338__ORI.val, "ORI", sizeof(cdat->dstr_1338__ORI.val)-1);
+ 
+ /*iniobj dsym_1339__XORI*/
+ if (!/*_.VALDATA___V1345*/ curfptr[1344]) /*_.VALDATA___V1345*/ curfptr[1344] = (void*)&cdat->dsym_1339__XORI;
+  melt_assertmsg("iniobj checkdiscr dsym_1339__XORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1339__XORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1339__XORI.obj_hash = 492713902;
+  cdat->dsym_1339__XORI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__XORI));
+ 
+ /*inistring dstr_1340__XORI*/
+ /*_.VALSTR___V1346*/ curfptr[1345] = (void*)&cdat->dstr_1340__XORI;
+  cdat->dstr_1340__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1340__XORI.val, "XORI", sizeof(cdat->dstr_1340__XORI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:942:/ iniobj");
+ /*iniobj dobj_1341__XORI*/
+ if (!/*_.VALDATA___V1347*/ curfptr[1346]) /*_.VALDATA___V1347*/ curfptr[1346] = (void*)&cdat->dobj_1341__XORI;
+  melt_assertmsg("iniobj checkdiscr dobj_1341__XORI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1341__XORI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1341__XORI.obj_hash = 1044190952;
+  cdat->dobj_1341__XORI.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1341__XORI));
+ 
+ /*inimult dtup_1342__XORI*/
+ /*_.VALTUP___V1355*/ curfptr[1354] = (void*)&cdat->dtup_1342__XORI;
+  cdat->dtup_1342__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1342__XORI.nbval = 5;
+ /*inimult dtup_1343__XORI*/
+ /*_.VALTUP___V1351*/ curfptr[1350] = (void*)&cdat->dtup_1343__XORI;
+  cdat->dtup_1343__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1343__XORI.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:942:/ iniobj");
+ /*iniobj dobj_1344*/
+ if (!/*_.VALDATA___V1349*/ curfptr[1348]) /*_.VALDATA___V1349*/ curfptr[1348] = (void*)&cdat->dobj_1344;
+  melt_assertmsg("iniobj checkdiscr dobj_1344", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1344.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1344.obj_num = 0;
+  cdat->dobj_1344.obj_hash = 957269635;
+  cdat->dobj_1344.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1344));
+ 
+ MELT_LOCATION("warmelt-first.melt:942:/ iniobj");
+ /*iniobj dobj_1345*/
+ if (!/*_.VALDATA___V1350*/ curfptr[1349]) /*_.VALDATA___V1350*/ curfptr[1349] = (void*)&cdat->dobj_1345;
+  melt_assertmsg("iniobj checkdiscr dobj_1345", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1345.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1345.obj_num = 1;
+  cdat->dobj_1345.obj_hash = 77580321;
+  cdat->dobj_1345.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1345));
+ 
+ /*inistring dstr_1346__*/
+ /*_.VALSTR___V1352*/ curfptr[1351] = (void*)&cdat->dstr_1346__;
+  cdat->dstr_1346__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1346__.val, "((", sizeof(cdat->dstr_1346__.val)-1);
+ 
+ /*inistring dstr_1347__*/
+ /*_.VALSTR___V1353*/ curfptr[1352] = (void*)&cdat->dstr_1347__;
+  cdat->dstr_1347__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1347__.val, ") ^ (", sizeof(cdat->dstr_1347__.val)-1);
+ 
+ /*inistring dstr_1348__*/
+ /*_.VALSTR___V1354*/ curfptr[1353] = (void*)&cdat->dstr_1348__;
+  cdat->dstr_1348__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1348__.val, "))", sizeof(cdat->dstr_1348__.val)-1);
+ 
+ /*inistring dstr_1349__XORI*/
+ /*_.VALSTR___V1348*/ curfptr[1347] = (void*)&cdat->dstr_1349__XORI;
+  cdat->dstr_1349__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1349__XORI.val, "XORI", sizeof(cdat->dstr_1349__XORI.val)-1);
+ 
+ /*iniobj dsym_1350__NEGI*/
+ if (!/*_.VALDATA___V1356*/ curfptr[1355]) /*_.VALDATA___V1356*/ curfptr[1355] = (void*)&cdat->dsym_1350__NEGI;
+  melt_assertmsg("iniobj checkdiscr dsym_1350__NEGI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1350__NEGI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1350__NEGI.obj_hash = 443849175;
+  cdat->dsym_1350__NEGI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1350__NEGI));
+ 
+ /*inistring dstr_1351__NEGI*/
+ /*_.VALSTR___V1357*/ curfptr[1356] = (void*)&cdat->dstr_1351__NEGI;
+  cdat->dstr_1351__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1351__NEGI.val, "NEGI", sizeof(cdat->dstr_1351__NEGI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:944:/ iniobj");
+ /*iniobj dobj_1352__NEGI*/
+ if (!/*_.VALDATA___V1358*/ curfptr[1357]) /*_.VALDATA___V1358*/ curfptr[1357] = (void*)&cdat->dobj_1352__NEGI;
+  melt_assertmsg("iniobj checkdiscr dobj_1352__NEGI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1352__NEGI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1352__NEGI.obj_hash = 991756417;
+  cdat->dobj_1352__NEGI.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1352__NEGI));
+ 
+ /*inimult dtup_1353__NEGI*/
+ /*_.VALTUP___V1364*/ curfptr[1363] = (void*)&cdat->dtup_1353__NEGI;
+  cdat->dtup_1353__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1353__NEGI.nbval = 3;
+ /*inimult dtup_1354__NEGI*/
+ /*_.VALTUP___V1361*/ curfptr[1360] = (void*)&cdat->dtup_1354__NEGI;
+  cdat->dtup_1354__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1354__NEGI.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:944:/ iniobj");
+ /*iniobj dobj_1355*/
+ if (!/*_.VALDATA___V1360*/ curfptr[1359]) /*_.VALDATA___V1360*/ curfptr[1359] = (void*)&cdat->dobj_1355;
+  melt_assertmsg("iniobj checkdiscr dobj_1355", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1355.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1355.obj_num = 0;
+  cdat->dobj_1355.obj_hash = 107241915;
+  cdat->dobj_1355.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1355));
  
  /*inistring dstr_1356__*/
  /*_.VALSTR___V1362*/ curfptr[1361] = (void*)&cdat->dstr_1356__;
   cdat->dstr_1356__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1356__.val, "))", sizeof(cdat->dstr_1356__.val)-1);
- 
- /*inistring dstr_1357__XORI*/
- /*_.VALSTR___V1356*/ curfptr[1355] = (void*)&cdat->dstr_1357__XORI;
-  cdat->dstr_1357__XORI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1357__XORI.val, "XORI", sizeof(cdat->dstr_1357__XORI.val)-1);
- 
- /*iniobj dsym_1358__NEGI*/
- if (!/*_.VALDATA___V1364*/ curfptr[1363]) /*_.VALDATA___V1364*/ curfptr[1363] = (void*)&cdat->dsym_1358__NEGI;
-  melt_assertmsg("iniobj checkdiscr dsym_1358__NEGI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1358__NEGI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1358__NEGI.obj_hash = 443849175;
-  cdat->dsym_1358__NEGI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1358__NEGI));
- 
- /*inistring dstr_1359__NEGI*/
- /*_.VALSTR___V1365*/ curfptr[1364] = (void*)&cdat->dstr_1359__NEGI;
-  cdat->dstr_1359__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1359__NEGI.val, "NEGI", sizeof(cdat->dstr_1359__NEGI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:949:/ iniobj");
- /*iniobj dobj_1360__NEGI*/
- if (!/*_.VALDATA___V1366*/ curfptr[1365]) /*_.VALDATA___V1366*/ curfptr[1365] = (void*)&cdat->dobj_1360__NEGI;
-  melt_assertmsg("iniobj checkdiscr dobj_1360__NEGI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1360__NEGI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1360__NEGI.obj_hash = 237556423;
-  cdat->dobj_1360__NEGI.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1360__NEGI));
- 
- /*inimult dtup_1361__NEGI*/
- /*_.VALTUP___V1372*/ curfptr[1371] = (void*)&cdat->dtup_1361__NEGI;
-  cdat->dtup_1361__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1361__NEGI.nbval = 3;
- /*inimult dtup_1362__NEGI*/
- /*_.VALTUP___V1369*/ curfptr[1368] = (void*)&cdat->dtup_1362__NEGI;
-  cdat->dtup_1362__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1362__NEGI.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:949:/ iniobj");
- /*iniobj dobj_1363*/
- if (!/*_.VALDATA___V1368*/ curfptr[1367]) /*_.VALDATA___V1368*/ curfptr[1367] = (void*)&cdat->dobj_1363;
-  melt_assertmsg("iniobj checkdiscr dobj_1363", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1363.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1363.obj_num = 0;
-  cdat->dobj_1363.obj_hash = 565265253;
-  cdat->dobj_1363.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1363));
- 
- /*inistring dstr_1364__*/
- /*_.VALSTR___V1370*/ curfptr[1369] = (void*)&cdat->dstr_1364__;
-  cdat->dstr_1364__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1364__.val, "(-(", sizeof(cdat->dstr_1364__.val)-1);
+  strncpy(cdat->dstr_1356__.val, "(-(", sizeof(cdat->dstr_1356__.val)-1);
+ 
+ /*inistring dstr_1357__*/
+ /*_.VALSTR___V1363*/ curfptr[1362] = (void*)&cdat->dstr_1357__;
+  cdat->dstr_1357__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1357__.val, "))", sizeof(cdat->dstr_1357__.val)-1);
+ 
+ /*inistring dstr_1358__NEGI*/
+ /*_.VALSTR___V1359*/ curfptr[1358] = (void*)&cdat->dstr_1358__NEGI;
+  cdat->dstr_1358__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1358__NEGI.val, "NEGI", sizeof(cdat->dstr_1358__NEGI.val)-1);
+ 
+ /*iniobj dsym_1359__NOTI*/
+ if (!/*_.VALDATA___V1365*/ curfptr[1364]) /*_.VALDATA___V1365*/ curfptr[1364] = (void*)&cdat->dsym_1359__NOTI;
+  melt_assertmsg("iniobj checkdiscr dsym_1359__NOTI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1359__NOTI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1359__NOTI.obj_hash = 972167097;
+  cdat->dsym_1359__NOTI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1359__NOTI));
+ 
+ /*inistring dstr_1360__NOTI*/
+ /*_.VALSTR___V1366*/ curfptr[1365] = (void*)&cdat->dstr_1360__NOTI;
+  cdat->dstr_1360__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1360__NOTI.val, "NOTI", sizeof(cdat->dstr_1360__NOTI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:946:/ iniobj");
+ /*iniobj dobj_1361__NOTI*/
+ if (!/*_.VALDATA___V1367*/ curfptr[1366]) /*_.VALDATA___V1367*/ curfptr[1366] = (void*)&cdat->dobj_1361__NOTI;
+  melt_assertmsg("iniobj checkdiscr dobj_1361__NOTI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1361__NOTI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1361__NOTI.obj_hash = 758616894;
+  cdat->dobj_1361__NOTI.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1361__NOTI));
+ 
+ /*inimult dtup_1362__NOTI*/
+ /*_.VALTUP___V1373*/ curfptr[1372] = (void*)&cdat->dtup_1362__NOTI;
+  cdat->dtup_1362__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1362__NOTI.nbval = 3;
+ /*inimult dtup_1363__NOTI*/
+ /*_.VALTUP___V1370*/ curfptr[1369] = (void*)&cdat->dtup_1363__NOTI;
+  cdat->dtup_1363__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1363__NOTI.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:946:/ iniobj");
+ /*iniobj dobj_1364*/
+ if (!/*_.VALDATA___V1369*/ curfptr[1368]) /*_.VALDATA___V1369*/ curfptr[1368] = (void*)&cdat->dobj_1364;
+  melt_assertmsg("iniobj checkdiscr dobj_1364", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1364.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1364.obj_num = 0;
+  cdat->dobj_1364.obj_hash = 425136697;
+  cdat->dobj_1364.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1364));
  
  /*inistring dstr_1365__*/
  /*_.VALSTR___V1371*/ curfptr[1370] = (void*)&cdat->dstr_1365__;
   cdat->dstr_1365__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1365__.val, "))", sizeof(cdat->dstr_1365__.val)-1);
- 
- /*inistring dstr_1366__NEGI*/
- /*_.VALSTR___V1367*/ curfptr[1366] = (void*)&cdat->dstr_1366__NEGI;
-  cdat->dstr_1366__NEGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1366__NEGI.val, "NEGI", sizeof(cdat->dstr_1366__NEGI.val)-1);
- 
- /*iniobj dsym_1367__NOTI*/
- if (!/*_.VALDATA___V1373*/ curfptr[1372]) /*_.VALDATA___V1373*/ curfptr[1372] = (void*)&cdat->dsym_1367__NOTI;
-  melt_assertmsg("iniobj checkdiscr dsym_1367__NOTI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1367__NOTI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1367__NOTI.obj_hash = 972167097;
-  cdat->dsym_1367__NOTI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1367__NOTI));
- 
- /*inistring dstr_1368__NOTI*/
- /*_.VALSTR___V1374*/ curfptr[1373] = (void*)&cdat->dstr_1368__NOTI;
-  cdat->dstr_1368__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1368__NOTI.val, "NOTI", sizeof(cdat->dstr_1368__NOTI.val)-1);
+  strncpy(cdat->dstr_1365__.val, "(~(", sizeof(cdat->dstr_1365__.val)-1);
+ 
+ /*inistring dstr_1366__*/
+ /*_.VALSTR___V1372*/ curfptr[1371] = (void*)&cdat->dstr_1366__;
+  cdat->dstr_1366__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1366__.val, "))", sizeof(cdat->dstr_1366__.val)-1);
+ 
+ /*inistring dstr_1367__NOTI*/
+ /*_.VALSTR___V1368*/ curfptr[1367] = (void*)&cdat->dstr_1367__NOTI;
+  cdat->dstr_1367__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1367__NOTI.val, "NOTI", sizeof(cdat->dstr_1367__NOTI.val)-1);
+ 
+ /*iniobj dsym_1368__I*/
+ if (!/*_.VALDATA___V1374*/ curfptr[1373]) /*_.VALDATA___V1374*/ curfptr[1373] = (void*)&cdat->dsym_1368__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1368__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1368__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1368__I.obj_hash = 748620818;
+  cdat->dsym_1368__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1368__I));
+ 
+ /*inistring dstr_1369__I*/
+ /*_.VALSTR___V1375*/ curfptr[1374] = (void*)&cdat->dstr_1369__I;
+  cdat->dstr_1369__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1369__I.val, "/I", sizeof(cdat->dstr_1369__I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:949:/ iniobj");
+ /*iniobj dobj_1370__I*/
+ if (!/*_.VALDATA___V1376*/ curfptr[1375]) /*_.VALDATA___V1376*/ curfptr[1375] = (void*)&cdat->dobj_1370__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1370__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1370__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1370__I.obj_hash = 541577852;
+  cdat->dobj_1370__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1370__I));
+ 
+ /*inimult dtup_1371__I*/
+ /*_.VALTUP___V1384*/ curfptr[1383] = (void*)&cdat->dtup_1371__I;
+  cdat->dtup_1371__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1371__I.nbval = 5;
+ /*inimult dtup_1372__I*/
+ /*_.VALTUP___V1380*/ curfptr[1379] = (void*)&cdat->dtup_1372__I;
+  cdat->dtup_1372__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1372__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:949:/ iniobj");
+ /*iniobj dobj_1373*/
+ if (!/*_.VALDATA___V1378*/ curfptr[1377]) /*_.VALDATA___V1378*/ curfptr[1377] = (void*)&cdat->dobj_1373;
+  melt_assertmsg("iniobj checkdiscr dobj_1373", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1373.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1373.obj_num = 0;
+  cdat->dobj_1373.obj_hash = 755129435;
+  cdat->dobj_1373.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1373));
+ 
+ MELT_LOCATION("warmelt-first.melt:949:/ iniobj");
+ /*iniobj dobj_1374*/
+ if (!/*_.VALDATA___V1379*/ curfptr[1378]) /*_.VALDATA___V1379*/ curfptr[1378] = (void*)&cdat->dobj_1374;
+  melt_assertmsg("iniobj checkdiscr dobj_1374", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1374.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1374.obj_num = 1;
+  cdat->dobj_1374.obj_hash = 249076980;
+  cdat->dobj_1374.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1374));
+ 
+ /*inistring dstr_1375__melt_idiv_*/
+ /*_.VALSTR___V1381*/ curfptr[1380] = (void*)&cdat->dstr_1375__melt_idiv_;
+  cdat->dstr_1375__melt_idiv_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1375__melt_idiv_.val, "(melt_idiv((", sizeof(cdat->dstr_1375__melt_idiv_.val)-1);
+ 
+ /*inistring dstr_1376__*/
+ /*_.VALSTR___V1382*/ curfptr[1381] = (void*)&cdat->dstr_1376__;
+  cdat->dstr_1376__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1376__.val, "), (", sizeof(cdat->dstr_1376__.val)-1);
+ 
+ /*inistring dstr_1377__*/
+ /*_.VALSTR___V1383*/ curfptr[1382] = (void*)&cdat->dstr_1377__;
+  cdat->dstr_1377__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1377__.val, ")))", sizeof(cdat->dstr_1377__.val)-1);
+ 
+ /*inistring dstr_1378__I*/
+ /*_.VALSTR___V1377*/ curfptr[1376] = (void*)&cdat->dstr_1378__I;
+  cdat->dstr_1378__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1378__I.val, "/I", sizeof(cdat->dstr_1378__I.val)-1);
+ 
+ /*iniobj dsym_1379__I*/
+ if (!/*_.VALDATA___V1385*/ curfptr[1384]) /*_.VALDATA___V1385*/ curfptr[1384] = (void*)&cdat->dsym_1379__I;
+  melt_assertmsg("iniobj checkdiscr dsym_1379__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1379__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1379__I.obj_hash = 164268196;
+  cdat->dsym_1379__I.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1379__I));
+ 
+ /*inistring dstr_1380__I*/
+ /*_.VALSTR___V1386*/ curfptr[1385] = (void*)&cdat->dstr_1380__I;
+  cdat->dstr_1380__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1380__I.val, "%I", sizeof(cdat->dstr_1380__I.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:951:/ iniobj");
- /*iniobj dobj_1369__NOTI*/
- if (!/*_.VALDATA___V1375*/ curfptr[1374]) /*_.VALDATA___V1375*/ curfptr[1374] = (void*)&cdat->dobj_1369__NOTI;
-  melt_assertmsg("iniobj checkdiscr dobj_1369__NOTI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1369__NOTI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1369__NOTI.obj_hash = 615237770;
-  cdat->dobj_1369__NOTI.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1369__NOTI));
- 
- /*inimult dtup_1370__NOTI*/
- /*_.VALTUP___V1381*/ curfptr[1380] = (void*)&cdat->dtup_1370__NOTI;
-  cdat->dtup_1370__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1370__NOTI.nbval = 3;
- /*inimult dtup_1371__NOTI*/
- /*_.VALTUP___V1378*/ curfptr[1377] = (void*)&cdat->dtup_1371__NOTI;
-  cdat->dtup_1371__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1371__NOTI.nbval = 1;
+ /*iniobj dobj_1381__I*/
+ if (!/*_.VALDATA___V1387*/ curfptr[1386]) /*_.VALDATA___V1387*/ curfptr[1386] = (void*)&cdat->dobj_1381__I;
+  melt_assertmsg("iniobj checkdiscr dobj_1381__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1381__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1381__I.obj_hash = 664696867;
+  cdat->dobj_1381__I.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1381__I));
+ 
+ /*inimult dtup_1382__I*/
+ /*_.VALTUP___V1395*/ curfptr[1394] = (void*)&cdat->dtup_1382__I;
+  cdat->dtup_1382__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1382__I.nbval = 5;
+ /*inimult dtup_1383__I*/
+ /*_.VALTUP___V1391*/ curfptr[1390] = (void*)&cdat->dtup_1383__I;
+  cdat->dtup_1383__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1383__I.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:951:/ iniobj");
+ /*iniobj dobj_1384*/
+ if (!/*_.VALDATA___V1389*/ curfptr[1388]) /*_.VALDATA___V1389*/ curfptr[1388] = (void*)&cdat->dobj_1384;
+  melt_assertmsg("iniobj checkdiscr dobj_1384", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1384.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1384.obj_num = 0;
+  cdat->dobj_1384.obj_hash = 883741886;
+  cdat->dobj_1384.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1384));
+ 
  MELT_LOCATION("warmelt-first.melt:951:/ iniobj");
- /*iniobj dobj_1372*/
- if (!/*_.VALDATA___V1377*/ curfptr[1376]) /*_.VALDATA___V1377*/ curfptr[1376] = (void*)&cdat->dobj_1372;
-  melt_assertmsg("iniobj checkdiscr dobj_1372", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1372.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1372.obj_num = 0;
-  cdat->dobj_1372.obj_hash = 291225351;
-  cdat->dobj_1372.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1372));
- 
- /*inistring dstr_1373__*/
- /*_.VALSTR___V1379*/ curfptr[1378] = (void*)&cdat->dstr_1373__;
-  cdat->dstr_1373__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1373__.val, "(~(", sizeof(cdat->dstr_1373__.val)-1);
- 
- /*inistring dstr_1374__*/
- /*_.VALSTR___V1380*/ curfptr[1379] = (void*)&cdat->dstr_1374__;
-  cdat->dstr_1374__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1374__.val, "))", sizeof(cdat->dstr_1374__.val)-1);
- 
- /*inistring dstr_1375__NOTI*/
- /*_.VALSTR___V1376*/ curfptr[1375] = (void*)&cdat->dstr_1375__NOTI;
-  cdat->dstr_1375__NOTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1375__NOTI.val, "NOTI", sizeof(cdat->dstr_1375__NOTI.val)-1);
- 
- /*iniobj dsym_1376__I*/
- if (!/*_.VALDATA___V1382*/ curfptr[1381]) /*_.VALDATA___V1382*/ curfptr[1381] = (void*)&cdat->dsym_1376__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1376__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1376__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1376__I.obj_hash = 748620818;
-  cdat->dsym_1376__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1376__I));
- 
- /*inistring dstr_1377__I*/
- /*_.VALSTR___V1383*/ curfptr[1382] = (void*)&cdat->dstr_1377__I;
-  cdat->dstr_1377__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1377__I.val, "/I", sizeof(cdat->dstr_1377__I.val)-1);
+ /*iniobj dobj_1385*/
+ if (!/*_.VALDATA___V1390*/ curfptr[1389]) /*_.VALDATA___V1390*/ curfptr[1389] = (void*)&cdat->dobj_1385;
+  melt_assertmsg("iniobj checkdiscr dobj_1385", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1385.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1385.obj_num = 1;
+  cdat->dobj_1385.obj_hash = 897477345;
+  cdat->dobj_1385.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1385));
+ 
+ /*inistring dstr_1386__melt_imod_*/
+ /*_.VALSTR___V1392*/ curfptr[1391] = (void*)&cdat->dstr_1386__melt_imod_;
+  cdat->dstr_1386__melt_imod_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1386__melt_imod_.val, "(melt_imod((", sizeof(cdat->dstr_1386__melt_imod_.val)-1);
+ 
+ /*inistring dstr_1387__*/
+ /*_.VALSTR___V1393*/ curfptr[1392] = (void*)&cdat->dstr_1387__;
+  cdat->dstr_1387__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1387__.val, "), (", sizeof(cdat->dstr_1387__.val)-1);
+ 
+ /*inistring dstr_1388__*/
+ /*_.VALSTR___V1394*/ curfptr[1393] = (void*)&cdat->dstr_1388__;
+  cdat->dstr_1388__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1388__.val, ")))", sizeof(cdat->dstr_1388__.val)-1);
+ 
+ /*inistring dstr_1389__I*/
+ /*_.VALSTR___V1388*/ curfptr[1387] = (void*)&cdat->dstr_1389__I;
+  cdat->dstr_1389__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1389__I.val, "%I", sizeof(cdat->dstr_1389__I.val)-1);
+ 
+ /*iniobj dsym_1390__IRAW*/
+ if (!/*_.VALDATA___V1396*/ curfptr[1395]) /*_.VALDATA___V1396*/ curfptr[1395] = (void*)&cdat->dsym_1390__IRAW;
+  melt_assertmsg("iniobj checkdiscr dsym_1390__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1390__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1390__IRAW.obj_hash = 446029455;
+  cdat->dsym_1390__IRAW.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1390__IRAW));
+ 
+ /*inistring dstr_1391__IRAW*/
+ /*_.VALSTR___V1397*/ curfptr[1396] = (void*)&cdat->dstr_1391__IRAW;
+  cdat->dstr_1391__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1391__IRAW.val, "/IRAW", sizeof(cdat->dstr_1391__IRAW.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:953:/ iniobj");
+ /*iniobj dobj_1392__IRAW*/
+ if (!/*_.VALDATA___V1398*/ curfptr[1397]) /*_.VALDATA___V1398*/ curfptr[1397] = (void*)&cdat->dobj_1392__IRAW;
+  melt_assertmsg("iniobj checkdiscr dobj_1392__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1392__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1392__IRAW.obj_hash = 947853743;
+  cdat->dobj_1392__IRAW.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1392__IRAW));
+ 
+ /*inimult dtup_1393__IRAW*/
+ /*_.VALTUP___V1406*/ curfptr[1405] = (void*)&cdat->dtup_1393__IRAW;
+  cdat->dtup_1393__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1393__IRAW.nbval = 5;
+ /*inimult dtup_1394__IRAW*/
+ /*_.VALTUP___V1402*/ curfptr[1401] = (void*)&cdat->dtup_1394__IRAW;
+  cdat->dtup_1394__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1394__IRAW.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:953:/ iniobj");
+ /*iniobj dobj_1395*/
+ if (!/*_.VALDATA___V1400*/ curfptr[1399]) /*_.VALDATA___V1400*/ curfptr[1399] = (void*)&cdat->dobj_1395;
+  melt_assertmsg("iniobj checkdiscr dobj_1395", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1395.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1395.obj_num = 0;
+  cdat->dobj_1395.obj_hash = 890822588;
+  cdat->dobj_1395.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1395));
+ 
+ MELT_LOCATION("warmelt-first.melt:953:/ iniobj");
+ /*iniobj dobj_1396*/
+ if (!/*_.VALDATA___V1401*/ curfptr[1400]) /*_.VALDATA___V1401*/ curfptr[1400] = (void*)&cdat->dobj_1396;
+  melt_assertmsg("iniobj checkdiscr dobj_1396", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1396.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1396.obj_num = 1;
+  cdat->dobj_1396.obj_hash = 234441558;
+  cdat->dobj_1396.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1396));
+ 
+ /*inistring dstr_1397__*/
+ /*_.VALSTR___V1403*/ curfptr[1402] = (void*)&cdat->dstr_1397__;
+  cdat->dstr_1397__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1397__.val, "((", sizeof(cdat->dstr_1397__.val)-1);
+ 
+ /*inistring dstr_1398__*/
+ /*_.VALSTR___V1404*/ curfptr[1403] = (void*)&cdat->dstr_1398__;
+  cdat->dstr_1398__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1398__.val, ") / (", sizeof(cdat->dstr_1398__.val)-1);
+ 
+ /*inistring dstr_1399__*/
+ /*_.VALSTR___V1405*/ curfptr[1404] = (void*)&cdat->dstr_1399__;
+  cdat->dstr_1399__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1399__.val, "))", sizeof(cdat->dstr_1399__.val)-1);
+ 
+ /*inistring dstr_1400__IRAW*/
+ /*_.VALSTR___V1399*/ curfptr[1398] = (void*)&cdat->dstr_1400__IRAW;
+  cdat->dstr_1400__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1400__IRAW.val, "/IRAW", sizeof(cdat->dstr_1400__IRAW.val)-1);
+ 
+ /*iniobj dsym_1401__IRAW*/
+ if (!/*_.VALDATA___V1407*/ curfptr[1406]) /*_.VALDATA___V1407*/ curfptr[1406] = (void*)&cdat->dsym_1401__IRAW;
+  melt_assertmsg("iniobj checkdiscr dsym_1401__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1401__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1401__IRAW.obj_hash = 286233476;
+  cdat->dsym_1401__IRAW.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1401__IRAW));
+ 
+ /*inistring dstr_1402__IRAW*/
+ /*_.VALSTR___V1408*/ curfptr[1407] = (void*)&cdat->dstr_1402__IRAW;
+  cdat->dstr_1402__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1402__IRAW.val, "%IRAW", sizeof(cdat->dstr_1402__IRAW.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:954:/ iniobj");
- /*iniobj dobj_1378__I*/
- if (!/*_.VALDATA___V1384*/ curfptr[1383]) /*_.VALDATA___V1384*/ curfptr[1383] = (void*)&cdat->dobj_1378__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1378__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1378__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1378__I.obj_hash = 434074034;
-  cdat->dobj_1378__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1378__I));
- 
- /*inimult dtup_1379__I*/
- /*_.VALTUP___V1392*/ curfptr[1391] = (void*)&cdat->dtup_1379__I;
-  cdat->dtup_1379__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1379__I.nbval = 5;
- /*inimult dtup_1380__I*/
- /*_.VALTUP___V1388*/ curfptr[1387] = (void*)&cdat->dtup_1380__I;
-  cdat->dtup_1380__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1380__I.nbval = 2;
+ /*iniobj dobj_1403__IRAW*/
+ if (!/*_.VALDATA___V1409*/ curfptr[1408]) /*_.VALDATA___V1409*/ curfptr[1408] = (void*)&cdat->dobj_1403__IRAW;
+  melt_assertmsg("iniobj checkdiscr dobj_1403__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1403__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1403__IRAW.obj_hash = 553351866;
+  cdat->dobj_1403__IRAW.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1403__IRAW));
+ 
+ /*inimult dtup_1404__IRAW*/
+ /*_.VALTUP___V1417*/ curfptr[1416] = (void*)&cdat->dtup_1404__IRAW;
+  cdat->dtup_1404__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1404__IRAW.nbval = 5;
+ /*inimult dtup_1405__IRAW*/
+ /*_.VALTUP___V1413*/ curfptr[1412] = (void*)&cdat->dtup_1405__IRAW;
+  cdat->dtup_1405__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1405__IRAW.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:954:/ iniobj");
- /*iniobj dobj_1381*/
- if (!/*_.VALDATA___V1386*/ curfptr[1385]) /*_.VALDATA___V1386*/ curfptr[1385] = (void*)&cdat->dobj_1381;
-  melt_assertmsg("iniobj checkdiscr dobj_1381", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1381.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1381.obj_num = 0;
-  cdat->dobj_1381.obj_hash = 939958237;
-  cdat->dobj_1381.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1381));
+ /*iniobj dobj_1406*/
+ if (!/*_.VALDATA___V1411*/ curfptr[1410]) /*_.VALDATA___V1411*/ curfptr[1410] = (void*)&cdat->dobj_1406;
+  melt_assertmsg("iniobj checkdiscr dobj_1406", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1406.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1406.obj_num = 0;
+  cdat->dobj_1406.obj_hash = 151570197;
+  cdat->dobj_1406.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1406));
  
  MELT_LOCATION("warmelt-first.melt:954:/ iniobj");
- /*iniobj dobj_1382*/
- if (!/*_.VALDATA___V1387*/ curfptr[1386]) /*_.VALDATA___V1387*/ curfptr[1386] = (void*)&cdat->dobj_1382;
-  melt_assertmsg("iniobj checkdiscr dobj_1382", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1382.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1382.obj_num = 1;
-  cdat->dobj_1382.obj_hash = 618575239;
-  cdat->dobj_1382.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1382));
- 
- /*inistring dstr_1383__melt_idiv_*/
- /*_.VALSTR___V1389*/ curfptr[1388] = (void*)&cdat->dstr_1383__melt_idiv_;
-  cdat->dstr_1383__melt_idiv_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1383__melt_idiv_.val, "(melt_idiv((", sizeof(cdat->dstr_1383__melt_idiv_.val)-1);
- 
- /*inistring dstr_1384__*/
- /*_.VALSTR___V1390*/ curfptr[1389] = (void*)&cdat->dstr_1384__;
-  cdat->dstr_1384__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1384__.val, "), (", sizeof(cdat->dstr_1384__.val)-1);
- 
- /*inistring dstr_1385__*/
- /*_.VALSTR___V1391*/ curfptr[1390] = (void*)&cdat->dstr_1385__;
-  cdat->dstr_1385__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1385__.val, ")))", sizeof(cdat->dstr_1385__.val)-1);
- 
- /*inistring dstr_1386__I*/
- /*_.VALSTR___V1385*/ curfptr[1384] = (void*)&cdat->dstr_1386__I;
-  cdat->dstr_1386__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1386__I.val, "/I", sizeof(cdat->dstr_1386__I.val)-1);
- 
- /*iniobj dsym_1387__I*/
- if (!/*_.VALDATA___V1393*/ curfptr[1392]) /*_.VALDATA___V1393*/ curfptr[1392] = (void*)&cdat->dsym_1387__I;
-  melt_assertmsg("iniobj checkdiscr dsym_1387__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1387__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1387__I.obj_hash = 164268196;
-  cdat->dsym_1387__I.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1387__I));
- 
- /*inistring dstr_1388__I*/
- /*_.VALSTR___V1394*/ curfptr[1393] = (void*)&cdat->dstr_1388__I;
-  cdat->dstr_1388__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1388__I.val, "%I", sizeof(cdat->dstr_1388__I.val)-1);
+ /*iniobj dobj_1407*/
+ if (!/*_.VALDATA___V1412*/ curfptr[1411]) /*_.VALDATA___V1412*/ curfptr[1411] = (void*)&cdat->dobj_1407;
+  melt_assertmsg("iniobj checkdiscr dobj_1407", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1407.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1407.obj_num = 1;
+  cdat->dobj_1407.obj_hash = 819262352;
+  cdat->dobj_1407.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1407));
+ 
+ /*inistring dstr_1408__*/
+ /*_.VALSTR___V1414*/ curfptr[1413] = (void*)&cdat->dstr_1408__;
+  cdat->dstr_1408__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1408__.val, "((", sizeof(cdat->dstr_1408__.val)-1);
+ 
+ /*inistring dstr_1409__*/
+ /*_.VALSTR___V1415*/ curfptr[1414] = (void*)&cdat->dstr_1409__;
+  cdat->dstr_1409__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1409__.val, ") % (", sizeof(cdat->dstr_1409__.val)-1);
+ 
+ /*inistring dstr_1410__*/
+ /*_.VALSTR___V1416*/ curfptr[1415] = (void*)&cdat->dstr_1410__;
+  cdat->dstr_1410__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1410__.val, "))", sizeof(cdat->dstr_1410__.val)-1);
+ 
+ /*inistring dstr_1411__IRAW*/
+ /*_.VALSTR___V1410*/ curfptr[1409] = (void*)&cdat->dstr_1411__IRAW;
+  cdat->dstr_1411__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1411__IRAW.val, "%IRAW", sizeof(cdat->dstr_1411__IRAW.val)-1);
+ 
+ /*iniobj dsym_1412__NOT*/
+ if (!/*_.VALDATA___V1418*/ curfptr[1417]) /*_.VALDATA___V1418*/ curfptr[1417] = (void*)&cdat->dsym_1412__NOT;
+  melt_assertmsg("iniobj checkdiscr dsym_1412__NOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1412__NOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1412__NOT.obj_hash = 561820482;
+  cdat->dsym_1412__NOT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1412__NOT));
+ 
+ /*inistring dstr_1413__NOT*/
+ /*_.VALSTR___V1419*/ curfptr[1418] = (void*)&cdat->dstr_1413__NOT;
+  cdat->dstr_1413__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1413__NOT.val, "NOT", sizeof(cdat->dstr_1413__NOT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:956:/ iniobj");
- /*iniobj dobj_1389__I*/
- if (!/*_.VALDATA___V1395*/ curfptr[1394]) /*_.VALDATA___V1395*/ curfptr[1394] = (void*)&cdat->dobj_1389__I;
-  melt_assertmsg("iniobj checkdiscr dobj_1389__I", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1389__I.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1389__I.obj_hash = 477009066;
-  cdat->dobj_1389__I.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1389__I));
- 
- /*inimult dtup_1390__I*/
- /*_.VALTUP___V1403*/ curfptr[1402] = (void*)&cdat->dtup_1390__I;
-  cdat->dtup_1390__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1390__I.nbval = 5;
- /*inimult dtup_1391__I*/
- /*_.VALTUP___V1399*/ curfptr[1398] = (void*)&cdat->dtup_1391__I;
-  cdat->dtup_1391__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1391__I.nbval = 2;
+ /*iniobj dobj_1414__NOT*/
+ if (!/*_.VALDATA___V1420*/ curfptr[1419]) /*_.VALDATA___V1420*/ curfptr[1419] = (void*)&cdat->dobj_1414__NOT;
+  melt_assertmsg("iniobj checkdiscr dobj_1414__NOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1414__NOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1414__NOT.obj_hash = 176205586;
+  cdat->dobj_1414__NOT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1414__NOT));
+ 
+ /*inimult dtup_1415__NOT*/
+ /*_.VALTUP___V1426*/ curfptr[1425] = (void*)&cdat->dtup_1415__NOT;
+  cdat->dtup_1415__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1415__NOT.nbval = 3;
+ /*inimult dtup_1416__NOT*/
+ /*_.VALTUP___V1423*/ curfptr[1422] = (void*)&cdat->dtup_1416__NOT;
+  cdat->dtup_1416__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1416__NOT.nbval = 1;
  MELT_LOCATION("warmelt-first.melt:956:/ iniobj");
- /*iniobj dobj_1392*/
- if (!/*_.VALDATA___V1397*/ curfptr[1396]) /*_.VALDATA___V1397*/ curfptr[1396] = (void*)&cdat->dobj_1392;
-  melt_assertmsg("iniobj checkdiscr dobj_1392", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1392.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1392.obj_num = 0;
-  cdat->dobj_1392.obj_hash = 866887173;
-  cdat->dobj_1392.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1392));
+ /*iniobj dobj_1417*/
+ if (!/*_.VALDATA___V1422*/ curfptr[1421]) /*_.VALDATA___V1422*/ curfptr[1421] = (void*)&cdat->dobj_1417;
+  melt_assertmsg("iniobj checkdiscr dobj_1417", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1417.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1417.obj_num = 0;
+  cdat->dobj_1417.obj_hash = 292472430;
+  cdat->dobj_1417.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1417));
  
- MELT_LOCATION("warmelt-first.melt:956:/ iniobj");
- /*iniobj dobj_1393*/
- if (!/*_.VALDATA___V1398*/ curfptr[1397]) /*_.VALDATA___V1398*/ curfptr[1397] = (void*)&cdat->dobj_1393;
-  melt_assertmsg("iniobj checkdiscr dobj_1393", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1393.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1393.obj_num = 1;
-  cdat->dobj_1393.obj_hash = 571767720;
-  cdat->dobj_1393.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1393));
- 
- /*inistring dstr_1394__melt_imod_*/
- /*_.VALSTR___V1400*/ curfptr[1399] = (void*)&cdat->dstr_1394__melt_imod_;
-  cdat->dstr_1394__melt_imod_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1394__melt_imod_.val, "(melt_imod((", sizeof(cdat->dstr_1394__melt_imod_.val)-1);
- 
- /*inistring dstr_1395__*/
- /*_.VALSTR___V1401*/ curfptr[1400] = (void*)&cdat->dstr_1395__;
-  cdat->dstr_1395__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1395__.val, "), (", sizeof(cdat->dstr_1395__.val)-1);
- 
- /*inistring dstr_1396__*/
- /*_.VALSTR___V1402*/ curfptr[1401] = (void*)&cdat->dstr_1396__;
-  cdat->dstr_1396__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1396__.val, ")))", sizeof(cdat->dstr_1396__.val)-1);
- 
- /*inistring dstr_1397__I*/
- /*_.VALSTR___V1396*/ curfptr[1395] = (void*)&cdat->dstr_1397__I;
-  cdat->dstr_1397__I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1397__I.val, "%I", sizeof(cdat->dstr_1397__I.val)-1);
- 
- /*iniobj dsym_1398__IRAW*/
- if (!/*_.VALDATA___V1404*/ curfptr[1403]) /*_.VALDATA___V1404*/ curfptr[1403] = (void*)&cdat->dsym_1398__IRAW;
-  melt_assertmsg("iniobj checkdiscr dsym_1398__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1398__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1398__IRAW.obj_hash = 446029455;
-  cdat->dsym_1398__IRAW.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1398__IRAW));
- 
- /*inistring dstr_1399__IRAW*/
- /*_.VALSTR___V1405*/ curfptr[1404] = (void*)&cdat->dstr_1399__IRAW;
-  cdat->dstr_1399__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1399__IRAW.val, "/IRAW", sizeof(cdat->dstr_1399__IRAW.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:958:/ iniobj");
- /*iniobj dobj_1400__IRAW*/
- if (!/*_.VALDATA___V1406*/ curfptr[1405]) /*_.VALDATA___V1406*/ curfptr[1405] = (void*)&cdat->dobj_1400__IRAW;
-  melt_assertmsg("iniobj checkdiscr dobj_1400__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1400__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1400__IRAW.obj_hash = 992296693;
-  cdat->dobj_1400__IRAW.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1400__IRAW));
- 
- /*inimult dtup_1401__IRAW*/
- /*_.VALTUP___V1414*/ curfptr[1413] = (void*)&cdat->dtup_1401__IRAW;
-  cdat->dtup_1401__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1401__IRAW.nbval = 5;
- /*inimult dtup_1402__IRAW*/
- /*_.VALTUP___V1410*/ curfptr[1409] = (void*)&cdat->dtup_1402__IRAW;
-  cdat->dtup_1402__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1402__IRAW.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:958:/ iniobj");
- /*iniobj dobj_1403*/
- if (!/*_.VALDATA___V1408*/ curfptr[1407]) /*_.VALDATA___V1408*/ curfptr[1407] = (void*)&cdat->dobj_1403;
-  melt_assertmsg("iniobj checkdiscr dobj_1403", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1403.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1403.obj_num = 0;
-  cdat->dobj_1403.obj_hash = 702563315;
-  cdat->dobj_1403.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1403));
- 
- MELT_LOCATION("warmelt-first.melt:958:/ iniobj");
- /*iniobj dobj_1404*/
- if (!/*_.VALDATA___V1409*/ curfptr[1408]) /*_.VALDATA___V1409*/ curfptr[1408] = (void*)&cdat->dobj_1404;
-  melt_assertmsg("iniobj checkdiscr dobj_1404", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1404.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1404.obj_num = 1;
-  cdat->dobj_1404.obj_hash = 62613353;
-  cdat->dobj_1404.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1404));
- 
- /*inistring dstr_1405__*/
- /*_.VALSTR___V1411*/ curfptr[1410] = (void*)&cdat->dstr_1405__;
-  cdat->dstr_1405__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1405__.val, "((", sizeof(cdat->dstr_1405__.val)-1);
- 
- /*inistring dstr_1406__*/
- /*_.VALSTR___V1412*/ curfptr[1411] = (void*)&cdat->dstr_1406__;
-  cdat->dstr_1406__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1406__.val, ") / (", sizeof(cdat->dstr_1406__.val)-1);
- 
- /*inistring dstr_1407__*/
- /*_.VALSTR___V1413*/ curfptr[1412] = (void*)&cdat->dstr_1407__;
-  cdat->dstr_1407__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1407__.val, "))", sizeof(cdat->dstr_1407__.val)-1);
- 
- /*inistring dstr_1408__IRAW*/
- /*_.VALSTR___V1407*/ curfptr[1406] = (void*)&cdat->dstr_1408__IRAW;
-  cdat->dstr_1408__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1408__IRAW.val, "/IRAW", sizeof(cdat->dstr_1408__IRAW.val)-1);
- 
- /*iniobj dsym_1409__IRAW*/
- if (!/*_.VALDATA___V1415*/ curfptr[1414]) /*_.VALDATA___V1415*/ curfptr[1414] = (void*)&cdat->dsym_1409__IRAW;
-  melt_assertmsg("iniobj checkdiscr dsym_1409__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1409__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1409__IRAW.obj_hash = 286233476;
-  cdat->dsym_1409__IRAW.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1409__IRAW));
- 
- /*inistring dstr_1410__IRAW*/
- /*_.VALSTR___V1416*/ curfptr[1415] = (void*)&cdat->dstr_1410__IRAW;
-  cdat->dstr_1410__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1410__IRAW.val, "%IRAW", sizeof(cdat->dstr_1410__IRAW.val)-1);
+ /*inistring dstr_1418__*/
+ /*_.VALSTR___V1424*/ curfptr[1423] = (void*)&cdat->dstr_1418__;
+  cdat->dstr_1418__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1418__.val, "(!(", sizeof(cdat->dstr_1418__.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:959:/ iniobj");
- /*iniobj dobj_1411__IRAW*/
- if (!/*_.VALDATA___V1417*/ curfptr[1416]) /*_.VALDATA___V1417*/ curfptr[1416] = (void*)&cdat->dobj_1411__IRAW;
-  melt_assertmsg("iniobj checkdiscr dobj_1411__IRAW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1411__IRAW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1411__IRAW.obj_hash = 605878086;
-  cdat->dobj_1411__IRAW.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1411__IRAW));
- 
- /*inimult dtup_1412__IRAW*/
- /*_.VALTUP___V1425*/ curfptr[1424] = (void*)&cdat->dtup_1412__IRAW;
-  cdat->dtup_1412__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1412__IRAW.nbval = 5;
- /*inimult dtup_1413__IRAW*/
- /*_.VALTUP___V1421*/ curfptr[1420] = (void*)&cdat->dtup_1413__IRAW;
-  cdat->dtup_1413__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1413__IRAW.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:959:/ iniobj");
- /*iniobj dobj_1414*/
- if (!/*_.VALDATA___V1419*/ curfptr[1418]) /*_.VALDATA___V1419*/ curfptr[1418] = (void*)&cdat->dobj_1414;
-  melt_assertmsg("iniobj checkdiscr dobj_1414", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1414.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1414.obj_num = 0;
-  cdat->dobj_1414.obj_hash = 654199175;
-  cdat->dobj_1414.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1414));
+ /*inistring dstr_1419__*/
+ /*_.VALSTR___V1425*/ curfptr[1424] = (void*)&cdat->dstr_1419__;
+  cdat->dstr_1419__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1419__.val, "))", sizeof(cdat->dstr_1419__.val)-1);
+ 
+ /*inistring dstr_1420__NOT*/
+ /*_.VALSTR___V1421*/ curfptr[1420] = (void*)&cdat->dstr_1420__NOT;
+  cdat->dstr_1420__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1420__NOT.val, "NOT", sizeof(cdat->dstr_1420__NOT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:959:/ iniobj");
- /*iniobj dobj_1415*/
- if (!/*_.VALDATA___V1420*/ curfptr[1419]) /*_.VALDATA___V1420*/ curfptr[1419] = (void*)&cdat->dobj_1415;
-  melt_assertmsg("iniobj checkdiscr dobj_1415", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1415.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1415.obj_num = 1;
-  cdat->dobj_1415.obj_hash = 428996832;
-  cdat->dobj_1415.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1415));
- 
- /*inistring dstr_1416__*/
- /*_.VALSTR___V1422*/ curfptr[1421] = (void*)&cdat->dstr_1416__;
-  cdat->dstr_1416__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1416__.val, "((", sizeof(cdat->dstr_1416__.val)-1);
- 
- /*inistring dstr_1417__*/
- /*_.VALSTR___V1423*/ curfptr[1422] = (void*)&cdat->dstr_1417__;
-  cdat->dstr_1417__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1417__.val, ") % (", sizeof(cdat->dstr_1417__.val)-1);
+ /*iniobj dobj_1421__FOREACH_LONG_UPTO*/
+ if (!/*_.VALDATA___V1427*/ curfptr[1426]) /*_.VALDATA___V1427*/ curfptr[1426] = (void*)&cdat->dobj_1421__FOREACH_LONG_UPTO;
+  melt_assertmsg("iniobj checkdiscr dobj_1421__FOREACH_LONG_UPTO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_1421__FOREACH_LONG_UPTO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_1421__FOREACH_LONG_UPTO.obj_hash = 286153921;
+  cdat->dobj_1421__FOREACH_LONG_UPTO.obj_len = 7;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1421__FOREACH_LONG_UPTO));
+ 
+ /*inistring dstr_1422__FOREACH_LONG_UPT*/
+ /*_.VALSTR___V1428*/ curfptr[1427] = (void*)&cdat->dstr_1422__FOREACH_LONG_UPT;
+  cdat->dstr_1422__FOREACH_LONG_UPT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1422__FOREACH_LONG_UPT.val, "FOREACH_LONG_UPTO", sizeof(cdat->dstr_1422__FOREACH_LONG_UPT.val)-1);
+ 
+ /*iniobj dsym_1423__IMIN*/
+ if (!/*_.VALDATA___V1430*/ curfptr[1429]) /*_.VALDATA___V1430*/ curfptr[1429] = (void*)&cdat->dsym_1423__IMIN;
+  melt_assertmsg("iniobj checkdiscr dsym_1423__IMIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1423__IMIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1423__IMIN.obj_hash = 235451612;
+  cdat->dsym_1423__IMIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1423__IMIN));
+ 
+ /*inistring dstr_1424__IMIN*/
+ /*_.VALSTR___V1431*/ curfptr[1430] = (void*)&cdat->dstr_1424__IMIN;
+  cdat->dstr_1424__IMIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1424__IMIN.val, "IMIN", sizeof(cdat->dstr_1424__IMIN.val)-1);
  
- /*inistring dstr_1418__*/
- /*_.VALSTR___V1424*/ curfptr[1423] = (void*)&cdat->dstr_1418__;
-  cdat->dstr_1418__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1418__.val, "))", sizeof(cdat->dstr_1418__.val)-1);
- 
- /*inistring dstr_1419__IRAW*/
- /*_.VALSTR___V1418*/ curfptr[1417] = (void*)&cdat->dstr_1419__IRAW;
-  cdat->dstr_1419__IRAW.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1419__IRAW.val, "%IRAW", sizeof(cdat->dstr_1419__IRAW.val)-1);
- 
- /*iniobj dsym_1420__NOT*/
- if (!/*_.VALDATA___V1426*/ curfptr[1425]) /*_.VALDATA___V1426*/ curfptr[1425] = (void*)&cdat->dsym_1420__NOT;
-  melt_assertmsg("iniobj checkdiscr dsym_1420__NOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1420__NOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1420__NOT.obj_hash = 561820482;
-  cdat->dsym_1420__NOT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1420__NOT));
- 
- /*inistring dstr_1421__NOT*/
- /*_.VALSTR___V1427*/ curfptr[1426] = (void*)&cdat->dstr_1421__NOT;
-  cdat->dstr_1421__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1421__NOT.val, "NOT", sizeof(cdat->dstr_1421__NOT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:961:/ iniobj");
- /*iniobj dobj_1422__NOT*/
- if (!/*_.VALDATA___V1428*/ curfptr[1427]) /*_.VALDATA___V1428*/ curfptr[1427] = (void*)&cdat->dobj_1422__NOT;
-  melt_assertmsg("iniobj checkdiscr dobj_1422__NOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1422__NOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1422__NOT.obj_hash = 222434327;
-  cdat->dobj_1422__NOT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1422__NOT));
- 
- /*inimult dtup_1423__NOT*/
- /*_.VALTUP___V1434*/ curfptr[1433] = (void*)&cdat->dtup_1423__NOT;
-  cdat->dtup_1423__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1423__NOT.nbval = 3;
- /*inimult dtup_1424__NOT*/
- /*_.VALTUP___V1431*/ curfptr[1430] = (void*)&cdat->dtup_1424__NOT;
-  cdat->dtup_1424__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1424__NOT.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:961:/ iniobj");
+ MELT_LOCATION("warmelt-first.melt:959:/ iniobj");
  /*iniobj dobj_1425*/
- if (!/*_.VALDATA___V1430*/ curfptr[1429]) /*_.VALDATA___V1430*/ curfptr[1429] = (void*)&cdat->dobj_1425;
+ if (!/*_.VALDATA___V1429*/ curfptr[1428]) /*_.VALDATA___V1429*/ curfptr[1428] = (void*)&cdat->dobj_1425;
   melt_assertmsg("iniobj checkdiscr dobj_1425", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1425.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1425.obj_num = 0;
-  cdat->dobj_1425.obj_hash = 672111715;
+  cdat->dobj_1425.obj_hash = 132402070;
   cdat->dobj_1425.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1425));
  
- /*inistring dstr_1426__*/
- /*_.VALSTR___V1432*/ curfptr[1431] = (void*)&cdat->dstr_1426__;
-  cdat->dstr_1426__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1426__.val, "(!(", sizeof(cdat->dstr_1426__.val)-1);
- 
- /*inistring dstr_1427__*/
- /*_.VALSTR___V1433*/ curfptr[1432] = (void*)&cdat->dstr_1427__;
-  cdat->dstr_1427__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1427__.val, "))", sizeof(cdat->dstr_1427__.val)-1);
- 
- /*inistring dstr_1428__NOT*/
- /*_.VALSTR___V1429*/ curfptr[1428] = (void*)&cdat->dstr_1428__NOT;
-  cdat->dstr_1428__NOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1428__NOT.val, "NOT", sizeof(cdat->dstr_1428__NOT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:964:/ iniobj");
- /*iniobj dobj_1429__FOREACH_LONG_UPTO*/
- if (!/*_.VALDATA___V1435*/ curfptr[1434]) /*_.VALDATA___V1435*/ curfptr[1434] = (void*)&cdat->dobj_1429__FOREACH_LONG_UPTO;
-  melt_assertmsg("iniobj checkdiscr dobj_1429__FOREACH_LONG_UPTO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_1429__FOREACH_LONG_UPTO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_1429__FOREACH_LONG_UPTO.obj_hash = 223330513;
-  cdat->dobj_1429__FOREACH_LONG_UPTO.obj_len = 7;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1429__FOREACH_LONG_UPTO));
- 
- /*inistring dstr_1430__FOREACH_LONG_UPT*/
- /*_.VALSTR___V1436*/ curfptr[1435] = (void*)&cdat->dstr_1430__FOREACH_LONG_UPT;
-  cdat->dstr_1430__FOREACH_LONG_UPT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1430__FOREACH_LONG_UPT.val, "FOREACH_LONG_UPTO", sizeof(cdat->dstr_1430__FOREACH_LONG_UPT.val)-1);
- 
- /*iniobj dsym_1431__IMIN*/
- if (!/*_.VALDATA___V1438*/ curfptr[1437]) /*_.VALDATA___V1438*/ curfptr[1437] = (void*)&cdat->dsym_1431__IMIN;
-  melt_assertmsg("iniobj checkdiscr dsym_1431__IMIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1431__IMIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1431__IMIN.obj_hash = 235451612;
-  cdat->dsym_1431__IMIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1431__IMIN));
- 
- /*inistring dstr_1432__IMIN*/
- /*_.VALSTR___V1439*/ curfptr[1438] = (void*)&cdat->dstr_1432__IMIN;
-  cdat->dstr_1432__IMIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1432__IMIN.val, "IMIN", sizeof(cdat->dstr_1432__IMIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:964:/ iniobj");
- /*iniobj dobj_1433*/
- if (!/*_.VALDATA___V1437*/ curfptr[1436]) /*_.VALDATA___V1437*/ curfptr[1436] = (void*)&cdat->dobj_1433;
-  melt_assertmsg("iniobj checkdiscr dobj_1433", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1433.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1433.obj_num = 0;
-  cdat->dobj_1433.obj_hash = 128900549;
-  cdat->dobj_1433.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1433));
- 
- /*iniobj dsym_1434__IMAX*/
- if (!/*_.VALDATA___V1441*/ curfptr[1440]) /*_.VALDATA___V1441*/ curfptr[1440] = (void*)&cdat->dsym_1434__IMAX;
-  melt_assertmsg("iniobj checkdiscr dsym_1434__IMAX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1434__IMAX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1434__IMAX.obj_hash = 902474197;
-  cdat->dsym_1434__IMAX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1434__IMAX));
- 
- /*inistring dstr_1435__IMAX*/
- /*_.VALSTR___V1442*/ curfptr[1441] = (void*)&cdat->dstr_1435__IMAX;
-  cdat->dstr_1435__IMAX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1435__IMAX.val, "IMAX", sizeof(cdat->dstr_1435__IMAX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:964:/ iniobj");
- /*iniobj dobj_1436*/
- if (!/*_.VALDATA___V1440*/ curfptr[1439]) /*_.VALDATA___V1440*/ curfptr[1439] = (void*)&cdat->dobj_1436;
-  melt_assertmsg("iniobj checkdiscr dobj_1436", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1436.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1436.obj_num = 1;
-  cdat->dobj_1436.obj_hash = 368808797;
-  cdat->dobj_1436.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1436));
- 
- /*inimult dtup_1437__FOREACH_LONG_UPTO*/
- /*_.VALTUP___V1443*/ curfptr[1442] = (void*)&cdat->dtup_1437__FOREACH_LONG_UPTO;
-  cdat->dtup_1437__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1437__FOREACH_LONG_UPTO.nbval = 2;
- /*iniobj dsym_1438__EACHLONG*/
- if (!/*_.VALDATA___V1444*/ curfptr[1443]) /*_.VALDATA___V1444*/ curfptr[1443] = (void*)&cdat->dsym_1438__EACHLONG;
-  melt_assertmsg("iniobj checkdiscr dsym_1438__EACHLONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1438__EACHLONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1438__EACHLONG.obj_hash = 865550969;
-  cdat->dsym_1438__EACHLONG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1438__EACHLONG));
- 
- /*inistring dstr_1439__EACHLONG*/
- /*_.VALSTR___V1445*/ curfptr[1444] = (void*)&cdat->dstr_1439__EACHLONG;
-  cdat->dstr_1439__EACHLONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1439__EACHLONG.val, "EACHLONG", sizeof(cdat->dstr_1439__EACHLONG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:964:/ iniobj");
- /*iniobj dobj_1440*/
- if (!/*_.VALDATA___V1446*/ curfptr[1445]) /*_.VALDATA___V1446*/ curfptr[1445] = (void*)&cdat->dobj_1440;
-  melt_assertmsg("iniobj checkdiscr dobj_1440", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1440.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1440.obj_num = 0;
-  cdat->dobj_1440.obj_hash = 407971992;
-  cdat->dobj_1440.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1440));
- 
- /*inimult dtup_1441__FOREACH_LONG_UPTO*/
- /*_.VALTUP___V1447*/ curfptr[1446] = (void*)&cdat->dtup_1441__FOREACH_LONG_UPTO;
-  cdat->dtup_1441__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1441__FOREACH_LONG_UPTO.nbval = 1;
- /*inistring dstr_1442__start_*/
- /*_.VALSTR___V1448*/ curfptr[1447] = (void*)&cdat->dstr_1442__start_;
-  cdat->dstr_1442__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1442__start_.val, "/*start ", sizeof(cdat->dstr_1442__start_.val)-1);
- 
- /*inistring dstr_1443__long_*/
- /*_.VALSTR___V1449*/ curfptr[1448] = (void*)&cdat->dstr_1443__long_;
-  cdat->dstr_1443__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1443__long_.val, " */\n    long ", sizeof(cdat->dstr_1443__long_.val)-1);
- 
- /*inistring dstr_1444__min_*/
- /*_.VALSTR___V1450*/ curfptr[1449] = (void*)&cdat->dstr_1444__min_;
-  cdat->dstr_1444__min_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1444__min_.val, "_min =  ", sizeof(cdat->dstr_1444__min_.val)-1);
- 
- /*inistring dstr_1445__long_*/
- /*_.VALSTR___V1451*/ curfptr[1450] = (void*)&cdat->dstr_1445__long_;
-  cdat->dstr_1445__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1445__long_.val, ";\n    long ", sizeof(cdat->dstr_1445__long_.val)-1);
- 
- /*inistring dstr_1446__max_*/
- /*_.VALSTR___V1452*/ curfptr[1451] = (void*)&cdat->dstr_1446__max_;
-  cdat->dstr_1446__max_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1446__max_.val, "_max = ", sizeof(cdat->dstr_1446__max_.val)-1);
- 
- /*inistring dstr_1447__long_*/
- /*_.VALSTR___V1453*/ curfptr[1452] = (void*)&cdat->dstr_1447__long_;
-  cdat->dstr_1447__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1447__long_.val, ";\n    long ", sizeof(cdat->dstr_1447__long_.val)-1);
- 
- /*inistring dstr_1448__cur_0_fo*/
- /*_.VALSTR___V1454*/ curfptr[1453] = (void*)&cdat->dstr_1448__cur_0_fo;
-  cdat->dstr_1448__cur_0_fo.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1448__cur_0_fo.val, "_cur = 0;\n    for (", sizeof(cdat->dstr_1448__cur_0_fo.val)-1);
- 
- /*inistring dstr_1449__cur_*/
- /*_.VALSTR___V1455*/ curfptr[1454] = (void*)&cdat->dstr_1449__cur_;
-  cdat->dstr_1449__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1449__cur_.val, "_cur = ", sizeof(cdat->dstr_1449__cur_.val)-1);
- 
- /*inistring dstr_1450__min_*/
- /*_.VALSTR___V1456*/ curfptr[1455] = (void*)&cdat->dstr_1450__min_;
-  cdat->dstr_1450__min_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1450__min_.val, "_min;\n         ", sizeof(cdat->dstr_1450__min_.val)-1);
- 
- /*inistring dstr_1451__cur_*/
- /*_.VALSTR___V1457*/ curfptr[1456] = (void*)&cdat->dstr_1451__cur_;
-  cdat->dstr_1451__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1451__cur_.val, "_cur <= ", sizeof(cdat->dstr_1451__cur_.val)-1);
- 
- /*inistring dstr_1452__max_*/
- /*_.VALSTR___V1458*/ curfptr[1457] = (void*)&cdat->dstr_1452__max_;
-  cdat->dstr_1452__max_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1452__max_.val, "_max;\n\t ", sizeof(cdat->dstr_1452__max_.val)-1);
- 
- /*inistring dstr_1453__cur_*/
- /*_.VALSTR___V1459*/ curfptr[1458] = (void*)&cdat->dstr_1453__cur_;
-  cdat->dstr_1453__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1453__cur_.val, "_cur ++) {\n\t    ", sizeof(cdat->dstr_1453__cur_.val)-1);
- 
- /*inistring dstr_1454__*/
- /*_.VALSTR___V1460*/ curfptr[1459] = (void*)&cdat->dstr_1454__;
-  cdat->dstr_1454__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1454__.val, " = ", sizeof(cdat->dstr_1454__.val)-1);
- 
- /*inistring dstr_1455__cur_*/
- /*_.VALSTR___V1461*/ curfptr[1460] = (void*)&cdat->dstr_1455__cur_;
-  cdat->dstr_1455__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1455__cur_.val, "_cur\t    \n", sizeof(cdat->dstr_1455__cur_.val)-1);
- 
- /*inimult dtup_1456__FOREACH_LONG_UPTO*/
- /*_.VALTUP___V1462*/ curfptr[1461] = (void*)&cdat->dtup_1456__FOREACH_LONG_UPTO;
-  cdat->dtup_1456__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1456__FOREACH_LONG_UPTO.nbval = 27;
- /*inistring dstr_1457__end_eachlon*/
- /*_.VALSTR___V1463*/ curfptr[1462] = (void*)&cdat->dstr_1457__end_eachlon;
-  cdat->dstr_1457__end_eachlon.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1457__end_eachlon.val, " } /*end eachlong */", sizeof(cdat->dstr_1457__end_eachlon.val)-1);
- 
- /*inimult dtup_1458__FOREACH_LONG_UPTO*/
- /*_.VALTUP___V1464*/ curfptr[1463] = (void*)&cdat->dtup_1458__FOREACH_LONG_UPTO;
-  cdat->dtup_1458__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1458__FOREACH_LONG_UPTO.nbval = 1;
- /*iniobj dsym_1459__NULL*/
- if (!/*_.VALDATA___V1465*/ curfptr[1464]) /*_.VALDATA___V1465*/ curfptr[1464] = (void*)&cdat->dsym_1459__NULL;
-  melt_assertmsg("iniobj checkdiscr dsym_1459__NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1459__NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1459__NULL.obj_hash = 631351833;
-  cdat->dsym_1459__NULL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1459__NULL));
- 
- /*inistring dstr_1460__NULL*/
- /*_.VALSTR___V1466*/ curfptr[1465] = (void*)&cdat->dstr_1460__NULL;
-  cdat->dstr_1460__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1460__NULL.val, "NULL", sizeof(cdat->dstr_1460__NULL.val)-1);
+ /*iniobj dsym_1426__IMAX*/
+ if (!/*_.VALDATA___V1433*/ curfptr[1432]) /*_.VALDATA___V1433*/ curfptr[1432] = (void*)&cdat->dsym_1426__IMAX;
+  melt_assertmsg("iniobj checkdiscr dsym_1426__IMAX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1426__IMAX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1426__IMAX.obj_hash = 902474197;
+  cdat->dsym_1426__IMAX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1426__IMAX));
+ 
+ /*inistring dstr_1427__IMAX*/
+ /*_.VALSTR___V1434*/ curfptr[1433] = (void*)&cdat->dstr_1427__IMAX;
+  cdat->dstr_1427__IMAX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1427__IMAX.val, "IMAX", sizeof(cdat->dstr_1427__IMAX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:959:/ iniobj");
+ /*iniobj dobj_1428*/
+ if (!/*_.VALDATA___V1432*/ curfptr[1431]) /*_.VALDATA___V1432*/ curfptr[1431] = (void*)&cdat->dobj_1428;
+  melt_assertmsg("iniobj checkdiscr dobj_1428", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1428.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1428.obj_num = 1;
+  cdat->dobj_1428.obj_hash = 428312091;
+  cdat->dobj_1428.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1428));
+ 
+ /*inimult dtup_1429__FOREACH_LONG_UPTO*/
+ /*_.VALTUP___V1435*/ curfptr[1434] = (void*)&cdat->dtup_1429__FOREACH_LONG_UPTO;
+  cdat->dtup_1429__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1429__FOREACH_LONG_UPTO.nbval = 2;
+ /*iniobj dsym_1430__EACHLONG*/
+ if (!/*_.VALDATA___V1436*/ curfptr[1435]) /*_.VALDATA___V1436*/ curfptr[1435] = (void*)&cdat->dsym_1430__EACHLONG;
+  melt_assertmsg("iniobj checkdiscr dsym_1430__EACHLONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1430__EACHLONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1430__EACHLONG.obj_hash = 865550969;
+  cdat->dsym_1430__EACHLONG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1430__EACHLONG));
+ 
+ /*inistring dstr_1431__EACHLONG*/
+ /*_.VALSTR___V1437*/ curfptr[1436] = (void*)&cdat->dstr_1431__EACHLONG;
+  cdat->dstr_1431__EACHLONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1431__EACHLONG.val, "EACHLONG", sizeof(cdat->dstr_1431__EACHLONG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:959:/ iniobj");
+ /*iniobj dobj_1432*/
+ if (!/*_.VALDATA___V1438*/ curfptr[1437]) /*_.VALDATA___V1438*/ curfptr[1437] = (void*)&cdat->dobj_1432;
+  melt_assertmsg("iniobj checkdiscr dobj_1432", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1432.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1432.obj_num = 0;
+  cdat->dobj_1432.obj_hash = 75164628;
+  cdat->dobj_1432.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1432));
+ 
+ /*inimult dtup_1433__FOREACH_LONG_UPTO*/
+ /*_.VALTUP___V1439*/ curfptr[1438] = (void*)&cdat->dtup_1433__FOREACH_LONG_UPTO;
+  cdat->dtup_1433__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1433__FOREACH_LONG_UPTO.nbval = 1;
+ /*inistring dstr_1434__start_*/
+ /*_.VALSTR___V1440*/ curfptr[1439] = (void*)&cdat->dstr_1434__start_;
+  cdat->dstr_1434__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1434__start_.val, "/*start ", sizeof(cdat->dstr_1434__start_.val)-1);
+ 
+ /*inistring dstr_1435__long_*/
+ /*_.VALSTR___V1441*/ curfptr[1440] = (void*)&cdat->dstr_1435__long_;
+  cdat->dstr_1435__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1435__long_.val, " */\n    long ", sizeof(cdat->dstr_1435__long_.val)-1);
+ 
+ /*inistring dstr_1436__min_*/
+ /*_.VALSTR___V1442*/ curfptr[1441] = (void*)&cdat->dstr_1436__min_;
+  cdat->dstr_1436__min_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1436__min_.val, "_min =  ", sizeof(cdat->dstr_1436__min_.val)-1);
+ 
+ /*inistring dstr_1437__long_*/
+ /*_.VALSTR___V1443*/ curfptr[1442] = (void*)&cdat->dstr_1437__long_;
+  cdat->dstr_1437__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1437__long_.val, ";\n    long ", sizeof(cdat->dstr_1437__long_.val)-1);
+ 
+ /*inistring dstr_1438__max_*/
+ /*_.VALSTR___V1444*/ curfptr[1443] = (void*)&cdat->dstr_1438__max_;
+  cdat->dstr_1438__max_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1438__max_.val, "_max = ", sizeof(cdat->dstr_1438__max_.val)-1);
+ 
+ /*inistring dstr_1439__long_*/
+ /*_.VALSTR___V1445*/ curfptr[1444] = (void*)&cdat->dstr_1439__long_;
+  cdat->dstr_1439__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1439__long_.val, ";\n    long ", sizeof(cdat->dstr_1439__long_.val)-1);
+ 
+ /*inistring dstr_1440__cur_0_fo*/
+ /*_.VALSTR___V1446*/ curfptr[1445] = (void*)&cdat->dstr_1440__cur_0_fo;
+  cdat->dstr_1440__cur_0_fo.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1440__cur_0_fo.val, "_cur = 0;\n    for (", sizeof(cdat->dstr_1440__cur_0_fo.val)-1);
+ 
+ /*inistring dstr_1441__cur_*/
+ /*_.VALSTR___V1447*/ curfptr[1446] = (void*)&cdat->dstr_1441__cur_;
+  cdat->dstr_1441__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1441__cur_.val, "_cur = ", sizeof(cdat->dstr_1441__cur_.val)-1);
+ 
+ /*inistring dstr_1442__min_*/
+ /*_.VALSTR___V1448*/ curfptr[1447] = (void*)&cdat->dstr_1442__min_;
+  cdat->dstr_1442__min_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1442__min_.val, "_min;\n         ", sizeof(cdat->dstr_1442__min_.val)-1);
+ 
+ /*inistring dstr_1443__cur_*/
+ /*_.VALSTR___V1449*/ curfptr[1448] = (void*)&cdat->dstr_1443__cur_;
+  cdat->dstr_1443__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1443__cur_.val, "_cur <= ", sizeof(cdat->dstr_1443__cur_.val)-1);
+ 
+ /*inistring dstr_1444__max_*/
+ /*_.VALSTR___V1450*/ curfptr[1449] = (void*)&cdat->dstr_1444__max_;
+  cdat->dstr_1444__max_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1444__max_.val, "_max;\n\t ", sizeof(cdat->dstr_1444__max_.val)-1);
+ 
+ /*inistring dstr_1445__cur_*/
+ /*_.VALSTR___V1451*/ curfptr[1450] = (void*)&cdat->dstr_1445__cur_;
+  cdat->dstr_1445__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1445__cur_.val, "_cur ++) {\n\t    ", sizeof(cdat->dstr_1445__cur_.val)-1);
+ 
+ /*inistring dstr_1446__*/
+ /*_.VALSTR___V1452*/ curfptr[1451] = (void*)&cdat->dstr_1446__;
+  cdat->dstr_1446__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1446__.val, " = ", sizeof(cdat->dstr_1446__.val)-1);
+ 
+ /*inistring dstr_1447__cur_*/
+ /*_.VALSTR___V1453*/ curfptr[1452] = (void*)&cdat->dstr_1447__cur_;
+  cdat->dstr_1447__cur_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1447__cur_.val, "_cur\t    \n", sizeof(cdat->dstr_1447__cur_.val)-1);
+ 
+ /*inimult dtup_1448__FOREACH_LONG_UPTO*/
+ /*_.VALTUP___V1454*/ curfptr[1453] = (void*)&cdat->dtup_1448__FOREACH_LONG_UPTO;
+  cdat->dtup_1448__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1448__FOREACH_LONG_UPTO.nbval = 27;
+ /*inistring dstr_1449__end_eachlon*/
+ /*_.VALSTR___V1455*/ curfptr[1454] = (void*)&cdat->dstr_1449__end_eachlon;
+  cdat->dstr_1449__end_eachlon.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1449__end_eachlon.val, " } /*end eachlong */", sizeof(cdat->dstr_1449__end_eachlon.val)-1);
+ 
+ /*inimult dtup_1450__FOREACH_LONG_UPTO*/
+ /*_.VALTUP___V1456*/ curfptr[1455] = (void*)&cdat->dtup_1450__FOREACH_LONG_UPTO;
+  cdat->dtup_1450__FOREACH_LONG_UPTO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1450__FOREACH_LONG_UPTO.nbval = 1;
+ /*iniobj dsym_1451__NULL*/
+ if (!/*_.VALDATA___V1457*/ curfptr[1456]) /*_.VALDATA___V1457*/ curfptr[1456] = (void*)&cdat->dsym_1451__NULL;
+  melt_assertmsg("iniobj checkdiscr dsym_1451__NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1451__NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1451__NULL.obj_hash = 631351833;
+  cdat->dsym_1451__NULL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1451__NULL));
+ 
+ /*inistring dstr_1452__NULL*/
+ /*_.VALSTR___V1458*/ curfptr[1457] = (void*)&cdat->dstr_1452__NULL;
+  cdat->dstr_1452__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1452__NULL.val, "NULL", sizeof(cdat->dstr_1452__NULL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:983:/ iniobj");
+ /*iniobj dobj_1453__NULL*/
+ if (!/*_.VALDATA___V1459*/ curfptr[1458]) /*_.VALDATA___V1459*/ curfptr[1458] = (void*)&cdat->dobj_1453__NULL;
+  melt_assertmsg("iniobj checkdiscr dobj_1453__NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1453__NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1453__NULL.obj_hash = 259620243;
+  cdat->dobj_1453__NULL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1453__NULL));
+ 
+ /*inimult dtup_1454__NULL*/
+ /*_.VALTUP___V1465*/ curfptr[1464] = (void*)&cdat->dtup_1454__NULL;
+  cdat->dtup_1454__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1454__NULL.nbval = 3;
+ /*inimult dtup_1455__NULL*/
+ /*_.VALTUP___V1462*/ curfptr[1461] = (void*)&cdat->dtup_1455__NULL;
+  cdat->dtup_1455__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1455__NULL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:983:/ iniobj");
+ /*iniobj dobj_1456*/
+ if (!/*_.VALDATA___V1461*/ curfptr[1460]) /*_.VALDATA___V1461*/ curfptr[1460] = (void*)&cdat->dobj_1456;
+  melt_assertmsg("iniobj checkdiscr dobj_1456", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1456.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1456.obj_num = 0;
+  cdat->dobj_1456.obj_hash = 946408662;
+  cdat->dobj_1456.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1456));
+ 
+ /*inistring dstr_1457__*/
+ /*_.VALSTR___V1463*/ curfptr[1462] = (void*)&cdat->dstr_1457__;
+  cdat->dstr_1457__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1457__.val, "((", sizeof(cdat->dstr_1457__.val)-1);
+ 
+ /*inistring dstr_1458__NULL_*/
+ /*_.VALSTR___V1464*/ curfptr[1463] = (void*)&cdat->dstr_1458__NULL_;
+  cdat->dstr_1458__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1458__NULL_.val, ") == NULL)", sizeof(cdat->dstr_1458__NULL_.val)-1);
+ 
+ /*inistring dstr_1459__NULL*/
+ /*_.VALSTR___V1460*/ curfptr[1459] = (void*)&cdat->dstr_1459__NULL;
+  cdat->dstr_1459__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1459__NULL.val, "NULL", sizeof(cdat->dstr_1459__NULL.val)-1);
+ 
+ /*iniobj dsym_1460__NOTNULL*/
+ if (!/*_.VALDATA___V1466*/ curfptr[1465]) /*_.VALDATA___V1466*/ curfptr[1465] = (void*)&cdat->dsym_1460__NOTNULL;
+  melt_assertmsg("iniobj checkdiscr dsym_1460__NOTNULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1460__NOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1460__NOTNULL.obj_hash = 844191313;
+  cdat->dsym_1460__NOTNULL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1460__NOTNULL));
+ 
+ /*inistring dstr_1461__NOTNULL*/
+ /*_.VALSTR___V1467*/ curfptr[1466] = (void*)&cdat->dstr_1461__NOTNULL;
+  cdat->dstr_1461__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1461__NOTNULL.val, "NOTNULL", sizeof(cdat->dstr_1461__NOTNULL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:985:/ iniobj");
+ /*iniobj dobj_1462__NOTNULL*/
+ if (!/*_.VALDATA___V1468*/ curfptr[1467]) /*_.VALDATA___V1468*/ curfptr[1467] = (void*)&cdat->dobj_1462__NOTNULL;
+  melt_assertmsg("iniobj checkdiscr dobj_1462__NOTNULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1462__NOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1462__NOTNULL.obj_hash = 519733232;
+  cdat->dobj_1462__NOTNULL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1462__NOTNULL));
+ 
+ /*inimult dtup_1463__NOTNULL*/
+ /*_.VALTUP___V1474*/ curfptr[1473] = (void*)&cdat->dtup_1463__NOTNULL;
+  cdat->dtup_1463__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1463__NOTNULL.nbval = 3;
+ /*inimult dtup_1464__NOTNULL*/
+ /*_.VALTUP___V1471*/ curfptr[1470] = (void*)&cdat->dtup_1464__NOTNULL;
+  cdat->dtup_1464__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1464__NOTNULL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:985:/ iniobj");
+ /*iniobj dobj_1465*/
+ if (!/*_.VALDATA___V1470*/ curfptr[1469]) /*_.VALDATA___V1470*/ curfptr[1469] = (void*)&cdat->dobj_1465;
+  melt_assertmsg("iniobj checkdiscr dobj_1465", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1465.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1465.obj_num = 0;
+  cdat->dobj_1465.obj_hash = 423632189;
+  cdat->dobj_1465.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1465));
+ 
+ /*inistring dstr_1466__*/
+ /*_.VALSTR___V1472*/ curfptr[1471] = (void*)&cdat->dstr_1466__;
+  cdat->dstr_1466__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1466__.val, "((", sizeof(cdat->dstr_1466__.val)-1);
+ 
+ /*inistring dstr_1467__NULL_*/
+ /*_.VALSTR___V1473*/ curfptr[1472] = (void*)&cdat->dstr_1467__NULL_;
+  cdat->dstr_1467__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1467__NULL_.val, ") != NULL)", sizeof(cdat->dstr_1467__NULL_.val)-1);
+ 
+ /*inistring dstr_1468__NOTNULL*/
+ /*_.VALSTR___V1469*/ curfptr[1468] = (void*)&cdat->dstr_1468__NOTNULL;
+  cdat->dstr_1468__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1468__NOTNULL.val, "NOTNULL", sizeof(cdat->dstr_1468__NOTNULL.val)-1);
+ 
+ /*iniobj dsym_1469__ZEROP*/
+ if (!/*_.VALDATA___V1475*/ curfptr[1474]) /*_.VALDATA___V1475*/ curfptr[1474] = (void*)&cdat->dsym_1469__ZEROP;
+  melt_assertmsg("iniobj checkdiscr dsym_1469__ZEROP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1469__ZEROP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1469__ZEROP.obj_hash = 158811856;
+  cdat->dsym_1469__ZEROP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1469__ZEROP));
+ 
+ /*inistring dstr_1470__ZEROP*/
+ /*_.VALSTR___V1476*/ curfptr[1475] = (void*)&cdat->dstr_1470__ZEROP;
+  cdat->dstr_1470__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1470__ZEROP.val, "ZEROP", sizeof(cdat->dstr_1470__ZEROP.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:988:/ iniobj");
- /*iniobj dobj_1461__NULL*/
- if (!/*_.VALDATA___V1467*/ curfptr[1466]) /*_.VALDATA___V1467*/ curfptr[1466] = (void*)&cdat->dobj_1461__NULL;
-  melt_assertmsg("iniobj checkdiscr dobj_1461__NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1461__NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1461__NULL.obj_hash = 97764656;
-  cdat->dobj_1461__NULL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1461__NULL));
- 
- /*inimult dtup_1462__NULL*/
- /*_.VALTUP___V1473*/ curfptr[1472] = (void*)&cdat->dtup_1462__NULL;
-  cdat->dtup_1462__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1462__NULL.nbval = 3;
- /*inimult dtup_1463__NULL*/
- /*_.VALTUP___V1470*/ curfptr[1469] = (void*)&cdat->dtup_1463__NULL;
-  cdat->dtup_1463__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1463__NULL.nbval = 1;
+ /*iniobj dobj_1471__ZEROP*/
+ if (!/*_.VALDATA___V1477*/ curfptr[1476]) /*_.VALDATA___V1477*/ curfptr[1476] = (void*)&cdat->dobj_1471__ZEROP;
+  melt_assertmsg("iniobj checkdiscr dobj_1471__ZEROP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1471__ZEROP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1471__ZEROP.obj_hash = 803662546;
+  cdat->dobj_1471__ZEROP.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1471__ZEROP));
+ 
+ /*inimult dtup_1472__ZEROP*/
+ /*_.VALTUP___V1483*/ curfptr[1482] = (void*)&cdat->dtup_1472__ZEROP;
+  cdat->dtup_1472__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1472__ZEROP.nbval = 3;
+ /*inimult dtup_1473__ZEROP*/
+ /*_.VALTUP___V1480*/ curfptr[1479] = (void*)&cdat->dtup_1473__ZEROP;
+  cdat->dtup_1473__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1473__ZEROP.nbval = 1;
  MELT_LOCATION("warmelt-first.melt:988:/ iniobj");
- /*iniobj dobj_1464*/
- if (!/*_.VALDATA___V1469*/ curfptr[1468]) /*_.VALDATA___V1469*/ curfptr[1468] = (void*)&cdat->dobj_1464;
-  melt_assertmsg("iniobj checkdiscr dobj_1464", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1464.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1464.obj_num = 0;
-  cdat->dobj_1464.obj_hash = 316777060;
-  cdat->dobj_1464.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1464));
- 
- /*inistring dstr_1465__*/
- /*_.VALSTR___V1471*/ curfptr[1470] = (void*)&cdat->dstr_1465__;
-  cdat->dstr_1465__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1465__.val, "((", sizeof(cdat->dstr_1465__.val)-1);
- 
- /*inistring dstr_1466__NULL_*/
- /*_.VALSTR___V1472*/ curfptr[1471] = (void*)&cdat->dstr_1466__NULL_;
-  cdat->dstr_1466__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1466__NULL_.val, ") == NULL)", sizeof(cdat->dstr_1466__NULL_.val)-1);
- 
- /*inistring dstr_1467__NULL*/
- /*_.VALSTR___V1468*/ curfptr[1467] = (void*)&cdat->dstr_1467__NULL;
-  cdat->dstr_1467__NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1467__NULL.val, "NULL", sizeof(cdat->dstr_1467__NULL.val)-1);
- 
- /*iniobj dsym_1468__NOTNULL*/
- if (!/*_.VALDATA___V1474*/ curfptr[1473]) /*_.VALDATA___V1474*/ curfptr[1473] = (void*)&cdat->dsym_1468__NOTNULL;
-  melt_assertmsg("iniobj checkdiscr dsym_1468__NOTNULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1468__NOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1468__NOTNULL.obj_hash = 844191313;
-  cdat->dsym_1468__NOTNULL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1468__NOTNULL));
- 
- /*inistring dstr_1469__NOTNULL*/
- /*_.VALSTR___V1475*/ curfptr[1474] = (void*)&cdat->dstr_1469__NOTNULL;
-  cdat->dstr_1469__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1469__NOTNULL.val, "NOTNULL", sizeof(cdat->dstr_1469__NOTNULL.val)-1);
+ /*iniobj dobj_1474*/
+ if (!/*_.VALDATA___V1479*/ curfptr[1478]) /*_.VALDATA___V1479*/ curfptr[1478] = (void*)&cdat->dobj_1474;
+  melt_assertmsg("iniobj checkdiscr dobj_1474", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1474.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1474.obj_num = 0;
+  cdat->dobj_1474.obj_hash = 460383677;
+  cdat->dobj_1474.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1474));
+ 
+ /*inistring dstr_1475__*/
+ /*_.VALSTR___V1481*/ curfptr[1480] = (void*)&cdat->dstr_1475__;
+  cdat->dstr_1475__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1475__.val, "((", sizeof(cdat->dstr_1475__.val)-1);
+ 
+ /*inistring dstr_1476__OL_*/
+ /*_.VALSTR___V1482*/ curfptr[1481] = (void*)&cdat->dstr_1476__OL_;
+  cdat->dstr_1476__OL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1476__OL_.val, ") == OL)", sizeof(cdat->dstr_1476__OL_.val)-1);
+ 
+ /*inistring dstr_1477__ZEROP*/
+ /*_.VALSTR___V1478*/ curfptr[1477] = (void*)&cdat->dstr_1477__ZEROP;
+  cdat->dstr_1477__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1477__ZEROP.val, "ZEROP", sizeof(cdat->dstr_1477__ZEROP.val)-1);
+ 
+ /*iniobj dsym_1478__NEED_DBG*/
+ if (!/*_.VALDATA___V1484*/ curfptr[1483]) /*_.VALDATA___V1484*/ curfptr[1483] = (void*)&cdat->dsym_1478__NEED_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1478__NEED_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1478__NEED_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1478__NEED_DBG.obj_hash = 655216138;
+  cdat->dsym_1478__NEED_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1478__NEED_DBG));
+ 
+ /*inistring dstr_1479__NEED_DBG*/
+ /*_.VALSTR___V1485*/ curfptr[1484] = (void*)&cdat->dstr_1479__NEED_DBG;
+  cdat->dstr_1479__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1479__NEED_DBG.val, "NEED_DBG", sizeof(cdat->dstr_1479__NEED_DBG.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:990:/ iniobj");
- /*iniobj dobj_1470__NOTNULL*/
- if (!/*_.VALDATA___V1476*/ curfptr[1475]) /*_.VALDATA___V1476*/ curfptr[1475] = (void*)&cdat->dobj_1470__NOTNULL;
-  melt_assertmsg("iniobj checkdiscr dobj_1470__NOTNULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1470__NOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1470__NOTNULL.obj_hash = 226704468;
-  cdat->dobj_1470__NOTNULL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1470__NOTNULL));
- 
- /*inimult dtup_1471__NOTNULL*/
- /*_.VALTUP___V1482*/ curfptr[1481] = (void*)&cdat->dtup_1471__NOTNULL;
-  cdat->dtup_1471__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1471__NOTNULL.nbval = 3;
- /*inimult dtup_1472__NOTNULL*/
- /*_.VALTUP___V1479*/ curfptr[1478] = (void*)&cdat->dtup_1472__NOTNULL;
-  cdat->dtup_1472__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1472__NOTNULL.nbval = 1;
+ /*iniobj dobj_1480__NEED_DBG*/
+ if (!/*_.VALDATA___V1486*/ curfptr[1485]) /*_.VALDATA___V1486*/ curfptr[1485] = (void*)&cdat->dobj_1480__NEED_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1480__NEED_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1480__NEED_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1480__NEED_DBG.obj_hash = 46371629;
+  cdat->dobj_1480__NEED_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1480__NEED_DBG));
+ 
+ /*inimult dtup_1481__NEED_DBG*/
+ /*_.VALTUP___V1495*/ curfptr[1494] = (void*)&cdat->dtup_1481__NEED_DBG;
+  cdat->dtup_1481__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1481__NEED_DBG.nbval = 5;
+ /*inimult dtup_1482__NEED_DBG*/
+ /*_.VALTUP___V1491*/ curfptr[1490] = (void*)&cdat->dtup_1482__NEED_DBG;
+  cdat->dtup_1482__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1482__NEED_DBG.nbval = 1;
+ /*iniobj dsym_1483__DEPTH*/
+ if (!/*_.VALDATA___V1489*/ curfptr[1488]) /*_.VALDATA___V1489*/ curfptr[1488] = (void*)&cdat->dsym_1483__DEPTH;
+  melt_assertmsg("iniobj checkdiscr dsym_1483__DEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1483__DEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1483__DEPTH.obj_hash = 52029444;
+  cdat->dsym_1483__DEPTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1483__DEPTH));
+ 
+ /*inistring dstr_1484__DEPTH*/
+ /*_.VALSTR___V1490*/ curfptr[1489] = (void*)&cdat->dstr_1484__DEPTH;
+  cdat->dstr_1484__DEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1484__DEPTH.val, "DEPTH", sizeof(cdat->dstr_1484__DEPTH.val)-1);
+ 
  MELT_LOCATION("warmelt-first.melt:990:/ iniobj");
- /*iniobj dobj_1473*/
- if (!/*_.VALDATA___V1478*/ curfptr[1477]) /*_.VALDATA___V1478*/ curfptr[1477] = (void*)&cdat->dobj_1473;
-  melt_assertmsg("iniobj checkdiscr dobj_1473", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1473.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1473.obj_num = 0;
-  cdat->dobj_1473.obj_hash = 731651084;
-  cdat->dobj_1473.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1473));
- 
- /*inistring dstr_1474__*/
- /*_.VALSTR___V1480*/ curfptr[1479] = (void*)&cdat->dstr_1474__;
-  cdat->dstr_1474__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1474__.val, "((", sizeof(cdat->dstr_1474__.val)-1);
- 
- /*inistring dstr_1475__NULL_*/
- /*_.VALSTR___V1481*/ curfptr[1480] = (void*)&cdat->dstr_1475__NULL_;
-  cdat->dstr_1475__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1475__NULL_.val, ") != NULL)", sizeof(cdat->dstr_1475__NULL_.val)-1);
- 
- /*inistring dstr_1476__NOTNULL*/
- /*_.VALSTR___V1477*/ curfptr[1476] = (void*)&cdat->dstr_1476__NOTNULL;
-  cdat->dstr_1476__NOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1476__NOTNULL.val, "NOTNULL", sizeof(cdat->dstr_1476__NOTNULL.val)-1);
- 
- /*iniobj dsym_1477__ZEROP*/
- if (!/*_.VALDATA___V1483*/ curfptr[1482]) /*_.VALDATA___V1483*/ curfptr[1482] = (void*)&cdat->dsym_1477__ZEROP;
-  melt_assertmsg("iniobj checkdiscr dsym_1477__ZEROP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1477__ZEROP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1477__ZEROP.obj_hash = 158811856;
-  cdat->dsym_1477__ZEROP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1477__ZEROP));
- 
- /*inistring dstr_1478__ZEROP*/
- /*_.VALSTR___V1484*/ curfptr[1483] = (void*)&cdat->dstr_1478__ZEROP;
-  cdat->dstr_1478__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1478__ZEROP.val, "ZEROP", sizeof(cdat->dstr_1478__ZEROP.val)-1);
+ /*iniobj dobj_1485*/
+ if (!/*_.VALDATA___V1488*/ curfptr[1487]) /*_.VALDATA___V1488*/ curfptr[1487] = (void*)&cdat->dobj_1485;
+  melt_assertmsg("iniobj checkdiscr dobj_1485", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1485.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1485.obj_num = 0;
+  cdat->dobj_1485.obj_hash = 980446976;
+  cdat->dobj_1485.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1485));
+ 
+ /*inistring dstr_1486__flag_melt_debug*/
+ /*_.VALSTR___V1492*/ curfptr[1491] = (void*)&cdat->dstr_1486__flag_melt_debug;
+  cdat->dstr_1486__flag_melt_debug.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1486__flag_melt_debug.val, "(flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (", sizeof(cdat->dstr_1486__flag_melt_debug.val)-1);
+ 
+ /*inistring dstr_1487__0_*/
+ /*_.VALSTR___V1493*/ curfptr[1492] = (void*)&cdat->dstr_1487__0_;
+  cdat->dstr_1487__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1487__0_.val, ")>=0 && (", sizeof(cdat->dstr_1487__0_.val)-1);
+ 
+ /*inistring dstr_1488__MELTDBG_MAX*/
+ /*_.VALSTR___V1494*/ curfptr[1493] = (void*)&cdat->dstr_1488__MELTDBG_MAX;
+  cdat->dstr_1488__MELTDBG_MAX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1488__MELTDBG_MAX.val, ") <= MELTDBG_MAXDEPTH)", sizeof(cdat->dstr_1488__MELTDBG_MAX.val)-1);
+ 
+ /*inistring dstr_1489__NEED_DBG*/
+ /*_.VALSTR___V1487*/ curfptr[1486] = (void*)&cdat->dstr_1489__NEED_DBG;
+  cdat->dstr_1489__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1489__NEED_DBG.val, "NEED_DBG", sizeof(cdat->dstr_1489__NEED_DBG.val)-1);
+ 
+ /*iniobj dsym_1490__NEED_DBGLIM*/
+ if (!/*_.VALDATA___V1496*/ curfptr[1495]) /*_.VALDATA___V1496*/ curfptr[1495] = (void*)&cdat->dsym_1490__NEED_DBGLIM;
+  melt_assertmsg("iniobj checkdiscr dsym_1490__NEED_DBGLIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1490__NEED_DBGLIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1490__NEED_DBGLIM.obj_hash = 458416669;
+  cdat->dsym_1490__NEED_DBGLIM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1490__NEED_DBGLIM));
+ 
+ /*inistring dstr_1491__NEED_DBGLIM*/
+ /*_.VALSTR___V1497*/ curfptr[1496] = (void*)&cdat->dstr_1491__NEED_DBGLIM;
+  cdat->dstr_1491__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1491__NEED_DBGLIM.val, "NEED_DBGLIM", sizeof(cdat->dstr_1491__NEED_DBGLIM.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:993:/ iniobj");
- /*iniobj dobj_1479__ZEROP*/
- if (!/*_.VALDATA___V1485*/ curfptr[1484]) /*_.VALDATA___V1485*/ curfptr[1484] = (void*)&cdat->dobj_1479__ZEROP;
-  melt_assertmsg("iniobj checkdiscr dobj_1479__ZEROP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1479__ZEROP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1479__ZEROP.obj_hash = 740476507;
-  cdat->dobj_1479__ZEROP.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1479__ZEROP));
- 
- /*inimult dtup_1480__ZEROP*/
- /*_.VALTUP___V1491*/ curfptr[1490] = (void*)&cdat->dtup_1480__ZEROP;
-  cdat->dtup_1480__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1480__ZEROP.nbval = 3;
- /*inimult dtup_1481__ZEROP*/
- /*_.VALTUP___V1488*/ curfptr[1487] = (void*)&cdat->dtup_1481__ZEROP;
-  cdat->dtup_1481__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1481__ZEROP.nbval = 1;
+ /*iniobj dobj_1492__NEED_DBGLIM*/
+ if (!/*_.VALDATA___V1498*/ curfptr[1497]) /*_.VALDATA___V1498*/ curfptr[1497] = (void*)&cdat->dobj_1492__NEED_DBGLIM;
+  melt_assertmsg("iniobj checkdiscr dobj_1492__NEED_DBGLIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1492__NEED_DBGLIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1492__NEED_DBGLIM.obj_hash = 865710549;
+  cdat->dobj_1492__NEED_DBGLIM.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1492__NEED_DBGLIM));
+ 
+ /*inimult dtup_1493__NEED_DBGLIM*/
+ /*_.VALTUP___V1509*/ curfptr[1508] = (void*)&cdat->dtup_1493__NEED_DBGLIM;
+  cdat->dtup_1493__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1493__NEED_DBGLIM.nbval = 7;
+ /*inimult dtup_1494__NEED_DBGLIM*/
+ /*_.VALTUP___V1504*/ curfptr[1503] = (void*)&cdat->dtup_1494__NEED_DBGLIM;
+  cdat->dtup_1494__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1494__NEED_DBGLIM.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:993:/ iniobj");
- /*iniobj dobj_1482*/
- if (!/*_.VALDATA___V1487*/ curfptr[1486]) /*_.VALDATA___V1487*/ curfptr[1486] = (void*)&cdat->dobj_1482;
-  melt_assertmsg("iniobj checkdiscr dobj_1482", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1482.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1482.obj_num = 0;
-  cdat->dobj_1482.obj_hash = 842520274;
-  cdat->dobj_1482.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1482));
- 
- /*inistring dstr_1483__*/
- /*_.VALSTR___V1489*/ curfptr[1488] = (void*)&cdat->dstr_1483__;
-  cdat->dstr_1483__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1483__.val, "((", sizeof(cdat->dstr_1483__.val)-1);
- 
- /*inistring dstr_1484__OL_*/
- /*_.VALSTR___V1490*/ curfptr[1489] = (void*)&cdat->dstr_1484__OL_;
-  cdat->dstr_1484__OL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1484__OL_.val, ") == OL)", sizeof(cdat->dstr_1484__OL_.val)-1);
- 
- /*inistring dstr_1485__ZEROP*/
- /*_.VALSTR___V1486*/ curfptr[1485] = (void*)&cdat->dstr_1485__ZEROP;
-  cdat->dstr_1485__ZEROP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1485__ZEROP.val, "ZEROP", sizeof(cdat->dstr_1485__ZEROP.val)-1);
- 
- /*iniobj dsym_1486__NEED_DBG*/
- if (!/*_.VALDATA___V1492*/ curfptr[1491]) /*_.VALDATA___V1492*/ curfptr[1491] = (void*)&cdat->dsym_1486__NEED_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1486__NEED_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1486__NEED_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1486__NEED_DBG.obj_hash = 655216138;
-  cdat->dsym_1486__NEED_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1486__NEED_DBG));
- 
- /*inistring dstr_1487__NEED_DBG*/
- /*_.VALSTR___V1493*/ curfptr[1492] = (void*)&cdat->dstr_1487__NEED_DBG;
-  cdat->dstr_1487__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1487__NEED_DBG.val, "NEED_DBG", sizeof(cdat->dstr_1487__NEED_DBG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:995:/ iniobj");
- /*iniobj dobj_1488__NEED_DBG*/
- if (!/*_.VALDATA___V1494*/ curfptr[1493]) /*_.VALDATA___V1494*/ curfptr[1493] = (void*)&cdat->dobj_1488__NEED_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1488__NEED_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1488__NEED_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1488__NEED_DBG.obj_hash = 973364358;
-  cdat->dobj_1488__NEED_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1488__NEED_DBG));
- 
- /*inimult dtup_1489__NEED_DBG*/
- /*_.VALTUP___V1503*/ curfptr[1502] = (void*)&cdat->dtup_1489__NEED_DBG;
-  cdat->dtup_1489__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1489__NEED_DBG.nbval = 5;
- /*inimult dtup_1490__NEED_DBG*/
- /*_.VALTUP___V1499*/ curfptr[1498] = (void*)&cdat->dtup_1490__NEED_DBG;
-  cdat->dtup_1490__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1490__NEED_DBG.nbval = 1;
- /*iniobj dsym_1491__DEPTH*/
- if (!/*_.VALDATA___V1497*/ curfptr[1496]) /*_.VALDATA___V1497*/ curfptr[1496] = (void*)&cdat->dsym_1491__DEPTH;
-  melt_assertmsg("iniobj checkdiscr dsym_1491__DEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1491__DEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1491__DEPTH.obj_hash = 52029444;
-  cdat->dsym_1491__DEPTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1491__DEPTH));
- 
- /*inistring dstr_1492__DEPTH*/
- /*_.VALSTR___V1498*/ curfptr[1497] = (void*)&cdat->dstr_1492__DEPTH;
-  cdat->dstr_1492__DEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1492__DEPTH.val, "DEPTH", sizeof(cdat->dstr_1492__DEPTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:995:/ iniobj");
- /*iniobj dobj_1493*/
- if (!/*_.VALDATA___V1496*/ curfptr[1495]) /*_.VALDATA___V1496*/ curfptr[1495] = (void*)&cdat->dobj_1493;
-  melt_assertmsg("iniobj checkdiscr dobj_1493", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1493.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1493.obj_num = 0;
-  cdat->dobj_1493.obj_hash = 588138533;
-  cdat->dobj_1493.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1493));
- 
- /*inistring dstr_1494__flag_melt_debug*/
- /*_.VALSTR___V1500*/ curfptr[1499] = (void*)&cdat->dstr_1494__flag_melt_debug;
-  cdat->dstr_1494__flag_melt_debug.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1494__flag_melt_debug.val, "(flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (", sizeof(cdat->dstr_1494__flag_melt_debug.val)-1);
- 
- /*inistring dstr_1495__0_*/
- /*_.VALSTR___V1501*/ curfptr[1500] = (void*)&cdat->dstr_1495__0_;
-  cdat->dstr_1495__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1495__0_.val, ")>=0 && (", sizeof(cdat->dstr_1495__0_.val)-1);
- 
- /*inistring dstr_1496__MELTDBG_MAX*/
- /*_.VALSTR___V1502*/ curfptr[1501] = (void*)&cdat->dstr_1496__MELTDBG_MAX;
-  cdat->dstr_1496__MELTDBG_MAX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1496__MELTDBG_MAX.val, ") <= MELTDBG_MAXDEPTH)", sizeof(cdat->dstr_1496__MELTDBG_MAX.val)-1);
- 
- /*inistring dstr_1497__NEED_DBG*/
- /*_.VALSTR___V1495*/ curfptr[1494] = (void*)&cdat->dstr_1497__NEED_DBG;
-  cdat->dstr_1497__NEED_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1497__NEED_DBG.val, "NEED_DBG", sizeof(cdat->dstr_1497__NEED_DBG.val)-1);
- 
- /*iniobj dsym_1498__NEED_DBGLIM*/
- if (!/*_.VALDATA___V1504*/ curfptr[1503]) /*_.VALDATA___V1504*/ curfptr[1503] = (void*)&cdat->dsym_1498__NEED_DBGLIM;
-  melt_assertmsg("iniobj checkdiscr dsym_1498__NEED_DBGLIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1498__NEED_DBGLIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1498__NEED_DBGLIM.obj_hash = 458416669;
-  cdat->dsym_1498__NEED_DBGLIM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1498__NEED_DBGLIM));
- 
- /*inistring dstr_1499__NEED_DBGLIM*/
- /*_.VALSTR___V1505*/ curfptr[1504] = (void*)&cdat->dstr_1499__NEED_DBGLIM;
-  cdat->dstr_1499__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1499__NEED_DBGLIM.val, "NEED_DBGLIM", sizeof(cdat->dstr_1499__NEED_DBGLIM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:998:/ iniobj");
- /*iniobj dobj_1500__NEED_DBGLIM*/
- if (!/*_.VALDATA___V1506*/ curfptr[1505]) /*_.VALDATA___V1506*/ curfptr[1505] = (void*)&cdat->dobj_1500__NEED_DBGLIM;
-  melt_assertmsg("iniobj checkdiscr dobj_1500__NEED_DBGLIM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1500__NEED_DBGLIM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1500__NEED_DBGLIM.obj_hash = 589738323;
-  cdat->dobj_1500__NEED_DBGLIM.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1500__NEED_DBGLIM));
- 
- /*inimult dtup_1501__NEED_DBGLIM*/
- /*_.VALTUP___V1517*/ curfptr[1516] = (void*)&cdat->dtup_1501__NEED_DBGLIM;
-  cdat->dtup_1501__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1501__NEED_DBGLIM.nbval = 7;
- /*inimult dtup_1502__NEED_DBGLIM*/
- /*_.VALTUP___V1512*/ curfptr[1511] = (void*)&cdat->dtup_1502__NEED_DBGLIM;
-  cdat->dtup_1502__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1502__NEED_DBGLIM.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:998:/ iniobj");
- /*iniobj dobj_1503*/
- if (!/*_.VALDATA___V1508*/ curfptr[1507]) /*_.VALDATA___V1508*/ curfptr[1507] = (void*)&cdat->dobj_1503;
-  melt_assertmsg("iniobj checkdiscr dobj_1503", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1503.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1503.obj_num = 0;
-  cdat->dobj_1503.obj_hash = 285739436;
-  cdat->dobj_1503.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1503));
- 
- /*iniobj dsym_1504__LIMIT*/
- if (!/*_.VALDATA___V1510*/ curfptr[1509]) /*_.VALDATA___V1510*/ curfptr[1509] = (void*)&cdat->dsym_1504__LIMIT;
-  melt_assertmsg("iniobj checkdiscr dsym_1504__LIMIT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1504__LIMIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1504__LIMIT.obj_hash = 133458422;
-  cdat->dsym_1504__LIMIT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1504__LIMIT));
- 
- /*inistring dstr_1505__LIMIT*/
- /*_.VALSTR___V1511*/ curfptr[1510] = (void*)&cdat->dstr_1505__LIMIT;
-  cdat->dstr_1505__LIMIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1505__LIMIT.val, "LIMIT", sizeof(cdat->dstr_1505__LIMIT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:998:/ iniobj");
- /*iniobj dobj_1506*/
- if (!/*_.VALDATA___V1509*/ curfptr[1508]) /*_.VALDATA___V1509*/ curfptr[1508] = (void*)&cdat->dobj_1506;
-  melt_assertmsg("iniobj checkdiscr dobj_1506", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1506.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1506.obj_num = 1;
-  cdat->dobj_1506.obj_hash = 219732984;
-  cdat->dobj_1506.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1506));
- 
- /*inistring dstr_1507__flag_melt_debug*/
- /*_.VALSTR___V1513*/ curfptr[1512] = (void*)&cdat->dstr_1507__flag_melt_debug;
-  cdat->dstr_1507__flag_melt_debug.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1507__flag_melt_debug.val, "(flag_melt_debug && melt_dbgcounter>=melt_debugskipcount\n\t\t     && (", sizeof(cdat->dstr_1507__flag_melt_debug.val)-1);
- 
- /*inistring dstr_1508__0_*/
- /*_.VALSTR___V1514*/ curfptr[1513] = (void*)&cdat->dstr_1508__0_;
-  cdat->dstr_1508__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1508__0_.val, ")>=0 && (", sizeof(cdat->dstr_1508__0_.val)-1);
- 
- /*inistring dstr_1509__*/
- /*_.VALSTR___V1515*/ curfptr[1514] = (void*)&cdat->dstr_1509__;
-  cdat->dstr_1509__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1509__.val, ") < (", sizeof(cdat->dstr_1509__.val)-1);
- 
- /*inistring dstr_1510__*/
- /*_.VALSTR___V1516*/ curfptr[1515] = (void*)&cdat->dstr_1510__;
-  cdat->dstr_1510__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1510__.val, "))", sizeof(cdat->dstr_1510__.val)-1);
- 
- /*inistring dstr_1511__NEED_DBGLIM*/
- /*_.VALSTR___V1507*/ curfptr[1506] = (void*)&cdat->dstr_1511__NEED_DBGLIM;
-  cdat->dstr_1511__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1511__NEED_DBGLIM.val, "NEED_DBGLIM", sizeof(cdat->dstr_1511__NEED_DBGLIM.val)-1);
- 
- /*iniobj dsym_1512__OUTCSTRING_DBG*/
- if (!/*_.VALDATA___V1518*/ curfptr[1517]) /*_.VALDATA___V1518*/ curfptr[1517] = (void*)&cdat->dsym_1512__OUTCSTRING_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1512__OUTCSTRING_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1512__OUTCSTRING_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1512__OUTCSTRING_DBG.obj_hash = 691363518;
-  cdat->dsym_1512__OUTCSTRING_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1512__OUTCSTRING_DBG));
- 
- /*inistring dstr_1513__OUTCSTRING_DBG*/
- /*_.VALSTR___V1519*/ curfptr[1518] = (void*)&cdat->dstr_1513__OUTCSTRING_DBG;
-  cdat->dstr_1513__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1513__OUTCSTRING_DBG.val, "OUTCSTRING_DBG", sizeof(cdat->dstr_1513__OUTCSTRING_DBG.val)-1);
+ /*iniobj dobj_1495*/
+ if (!/*_.VALDATA___V1500*/ curfptr[1499]) /*_.VALDATA___V1500*/ curfptr[1499] = (void*)&cdat->dobj_1495;
+  melt_assertmsg("iniobj checkdiscr dobj_1495", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1495.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1495.obj_num = 0;
+  cdat->dobj_1495.obj_hash = 231200357;
+  cdat->dobj_1495.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1495));
+ 
+ /*iniobj dsym_1496__LIMIT*/
+ if (!/*_.VALDATA___V1502*/ curfptr[1501]) /*_.VALDATA___V1502*/ curfptr[1501] = (void*)&cdat->dsym_1496__LIMIT;
+  melt_assertmsg("iniobj checkdiscr dsym_1496__LIMIT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1496__LIMIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1496__LIMIT.obj_hash = 133458422;
+  cdat->dsym_1496__LIMIT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1496__LIMIT));
+ 
+ /*inistring dstr_1497__LIMIT*/
+ /*_.VALSTR___V1503*/ curfptr[1502] = (void*)&cdat->dstr_1497__LIMIT;
+  cdat->dstr_1497__LIMIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1497__LIMIT.val, "LIMIT", sizeof(cdat->dstr_1497__LIMIT.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ iniobj");
- /*iniobj dobj_1514__OUTCSTRING_DBG*/
- if (!/*_.VALDATA___V1520*/ curfptr[1519]) /*_.VALDATA___V1520*/ curfptr[1519] = (void*)&cdat->dobj_1514__OUTCSTRING_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1514__OUTCSTRING_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1514__OUTCSTRING_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1514__OUTCSTRING_DBG.obj_hash = 26316595;
-  cdat->dobj_1514__OUTCSTRING_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1514__OUTCSTRING_DBG));
- 
- /*inimult dtup_1515__OUTCSTRING_DBG*/
- /*_.VALTUP___V1528*/ curfptr[1527] = (void*)&cdat->dtup_1515__OUTCSTRING_DBG;
-  cdat->dtup_1515__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1515__OUTCSTRING_DBG.nbval = 3;
- /*inimult dtup_1516__OUTCSTRING_DBG*/
- /*_.VALTUP___V1525*/ curfptr[1524] = (void*)&cdat->dtup_1516__OUTCSTRING_DBG;
-  cdat->dtup_1516__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1516__OUTCSTRING_DBG.nbval = 1;
- /*iniobj dsym_1517__S*/
- if (!/*_.VALDATA___V1523*/ curfptr[1522]) /*_.VALDATA___V1523*/ curfptr[1522] = (void*)&cdat->dsym_1517__S;
-  melt_assertmsg("iniobj checkdiscr dsym_1517__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1517__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1517__S.obj_hash = 71583210;
-  cdat->dsym_1517__S.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1517__S));
- 
- /*inistring dstr_1518__S*/
- /*_.VALSTR___V1524*/ curfptr[1523] = (void*)&cdat->dstr_1518__S;
-  cdat->dstr_1518__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1518__S.val, "S", sizeof(cdat->dstr_1518__S.val)-1);
+ MELT_LOCATION("warmelt-first.melt:993:/ iniobj");
+ /*iniobj dobj_1498*/
+ if (!/*_.VALDATA___V1501*/ curfptr[1500]) /*_.VALDATA___V1501*/ curfptr[1500] = (void*)&cdat->dobj_1498;
+  melt_assertmsg("iniobj checkdiscr dobj_1498", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1498.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1498.obj_num = 1;
+  cdat->dobj_1498.obj_hash = 363224309;
+  cdat->dobj_1498.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1498));
+ 
+ /*inistring dstr_1499__flag_melt_debug*/
+ /*_.VALSTR___V1505*/ curfptr[1504] = (void*)&cdat->dstr_1499__flag_melt_debug;
+  cdat->dstr_1499__flag_melt_debug.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1499__flag_melt_debug.val, "(flag_melt_debug && melt_dbgcounter>=melt_debugskipcount\n\t\t     && (", sizeof(cdat->dstr_1499__flag_melt_debug.val)-1);
+ 
+ /*inistring dstr_1500__0_*/
+ /*_.VALSTR___V1506*/ curfptr[1505] = (void*)&cdat->dstr_1500__0_;
+  cdat->dstr_1500__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1500__0_.val, ")>=0 && (", sizeof(cdat->dstr_1500__0_.val)-1);
+ 
+ /*inistring dstr_1501__*/
+ /*_.VALSTR___V1507*/ curfptr[1506] = (void*)&cdat->dstr_1501__;
+  cdat->dstr_1501__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1501__.val, ") < (", sizeof(cdat->dstr_1501__.val)-1);
+ 
+ /*inistring dstr_1502__*/
+ /*_.VALSTR___V1508*/ curfptr[1507] = (void*)&cdat->dstr_1502__;
+  cdat->dstr_1502__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1502__.val, "))", sizeof(cdat->dstr_1502__.val)-1);
+ 
+ /*inistring dstr_1503__NEED_DBGLIM*/
+ /*_.VALSTR___V1499*/ curfptr[1498] = (void*)&cdat->dstr_1503__NEED_DBGLIM;
+  cdat->dstr_1503__NEED_DBGLIM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1503__NEED_DBGLIM.val, "NEED_DBGLIM", sizeof(cdat->dstr_1503__NEED_DBGLIM.val)-1);
+ 
+ /*iniobj dsym_1504__OUTCSTRING_DBG*/
+ if (!/*_.VALDATA___V1510*/ curfptr[1509]) /*_.VALDATA___V1510*/ curfptr[1509] = (void*)&cdat->dsym_1504__OUTCSTRING_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1504__OUTCSTRING_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1504__OUTCSTRING_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1504__OUTCSTRING_DBG.obj_hash = 691363518;
+  cdat->dsym_1504__OUTCSTRING_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1504__OUTCSTRING_DBG));
+ 
+ /*inistring dstr_1505__OUTCSTRING_DBG*/
+ /*_.VALSTR___V1511*/ curfptr[1510] = (void*)&cdat->dstr_1505__OUTCSTRING_DBG;
+  cdat->dstr_1505__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1505__OUTCSTRING_DBG.val, "OUTCSTRING_DBG", sizeof(cdat->dstr_1505__OUTCSTRING_DBG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:997:/ iniobj");
+ /*iniobj dobj_1506__OUTCSTRING_DBG*/
+ if (!/*_.VALDATA___V1512*/ curfptr[1511]) /*_.VALDATA___V1512*/ curfptr[1511] = (void*)&cdat->dobj_1506__OUTCSTRING_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1506__OUTCSTRING_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1506__OUTCSTRING_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1506__OUTCSTRING_DBG.obj_hash = 98428283;
+  cdat->dobj_1506__OUTCSTRING_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1506__OUTCSTRING_DBG));
+ 
+ /*inimult dtup_1507__OUTCSTRING_DBG*/
+ /*_.VALTUP___V1520*/ curfptr[1519] = (void*)&cdat->dtup_1507__OUTCSTRING_DBG;
+  cdat->dtup_1507__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1507__OUTCSTRING_DBG.nbval = 3;
+ /*inimult dtup_1508__OUTCSTRING_DBG*/
+ /*_.VALTUP___V1517*/ curfptr[1516] = (void*)&cdat->dtup_1508__OUTCSTRING_DBG;
+  cdat->dtup_1508__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1508__OUTCSTRING_DBG.nbval = 1;
+ /*iniobj dsym_1509__S*/
+ if (!/*_.VALDATA___V1515*/ curfptr[1514]) /*_.VALDATA___V1515*/ curfptr[1514] = (void*)&cdat->dsym_1509__S;
+  melt_assertmsg("iniobj checkdiscr dsym_1509__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1509__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1509__S.obj_hash = 71583210;
+  cdat->dsym_1509__S.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1509__S));
+ 
+ /*inistring dstr_1510__S*/
+ /*_.VALSTR___V1516*/ curfptr[1515] = (void*)&cdat->dstr_1510__S;
+  cdat->dstr_1510__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1510__S.val, "S", sizeof(cdat->dstr_1510__S.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:997:/ iniobj");
+ /*iniobj dobj_1511*/
+ if (!/*_.VALDATA___V1514*/ curfptr[1513]) /*_.VALDATA___V1514*/ curfptr[1513] = (void*)&cdat->dobj_1511;
+  melt_assertmsg("iniobj checkdiscr dobj_1511", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1511.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1511.obj_num = 0;
+  cdat->dobj_1511.obj_hash = 748853995;
+  cdat->dobj_1511.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1511));
+ 
+ /*inistring dstr_1512__melt_puts_dump_f*/
+ /*_.VALSTR___V1518*/ curfptr[1517] = (void*)&cdat->dstr_1512__melt_puts_dump_f;
+  cdat->dstr_1512__melt_puts_dump_f.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1512__melt_puts_dump_f.val, "melt_puts(dump_file,(", sizeof(cdat->dstr_1512__melt_puts_dump_f.val)-1);
+ 
+ /*inistring dstr_1513__*/
+ /*_.VALSTR___V1519*/ curfptr[1518] = (void*)&cdat->dstr_1513__;
+  cdat->dstr_1513__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1513__.val, "))", sizeof(cdat->dstr_1513__.val)-1);
+ 
+ /*inistring dstr_1514__OUTCSTRING_DBG*/
+ /*_.VALSTR___V1513*/ curfptr[1512] = (void*)&cdat->dstr_1514__OUTCSTRING_DBG;
+  cdat->dstr_1514__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1514__OUTCSTRING_DBG.val, "OUTCSTRING_DBG", sizeof(cdat->dstr_1514__OUTCSTRING_DBG.val)-1);
+ 
+ /*iniobj dsym_1515__OUTNUM_DBG*/
+ if (!/*_.VALDATA___V1521*/ curfptr[1520]) /*_.VALDATA___V1521*/ curfptr[1520] = (void*)&cdat->dsym_1515__OUTNUM_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1515__OUTNUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1515__OUTNUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1515__OUTNUM_DBG.obj_hash = 41936540;
+  cdat->dsym_1515__OUTNUM_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1515__OUTNUM_DBG));
+ 
+ /*inistring dstr_1516__OUTNUM_DBG*/
+ /*_.VALSTR___V1522*/ curfptr[1521] = (void*)&cdat->dstr_1516__OUTNUM_DBG;
+  cdat->dstr_1516__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1516__OUTNUM_DBG.val, "OUTNUM_DBG", sizeof(cdat->dstr_1516__OUTNUM_DBG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:999:/ iniobj");
+ /*iniobj dobj_1517__OUTNUM_DBG*/
+ if (!/*_.VALDATA___V1523*/ curfptr[1522]) /*_.VALDATA___V1523*/ curfptr[1522] = (void*)&cdat->dobj_1517__OUTNUM_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1517__OUTNUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1517__OUTNUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1517__OUTNUM_DBG.obj_hash = 58570086;
+  cdat->dobj_1517__OUTNUM_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1517__OUTNUM_DBG));
+ 
+ /*inimult dtup_1518__OUTNUM_DBG*/
+ /*_.VALTUP___V1539*/ curfptr[1538] = (void*)&cdat->dtup_1518__OUTNUM_DBG;
+  cdat->dtup_1518__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1518__OUTNUM_DBG.nbval = 7;
+ /*inimult dtup_1519__OUTNUM_DBG*/
+ /*_.VALTUP___V1534*/ curfptr[1533] = (void*)&cdat->dtup_1519__OUTNUM_DBG;
+  cdat->dtup_1519__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1519__OUTNUM_DBG.nbval = 3;
+ /*iniobj dsym_1520__PREF*/
+ if (!/*_.VALDATA___V1526*/ curfptr[1525]) /*_.VALDATA___V1526*/ curfptr[1525] = (void*)&cdat->dsym_1520__PREF;
+  melt_assertmsg("iniobj checkdiscr dsym_1520__PREF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1520__PREF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1520__PREF.obj_hash = 96883688;
+  cdat->dsym_1520__PREF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1520__PREF));
+ 
+ /*inistring dstr_1521__PREF*/
+ /*_.VALSTR___V1527*/ curfptr[1526] = (void*)&cdat->dstr_1521__PREF;
+  cdat->dstr_1521__PREF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1521__PREF.val, "PREF", sizeof(cdat->dstr_1521__PREF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:999:/ iniobj");
+ /*iniobj dobj_1522*/
+ if (!/*_.VALDATA___V1525*/ curfptr[1524]) /*_.VALDATA___V1525*/ curfptr[1524] = (void*)&cdat->dobj_1522;
+  melt_assertmsg("iniobj checkdiscr dobj_1522", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1522.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1522.obj_num = 0;
+  cdat->dobj_1522.obj_hash = 663728124;
+  cdat->dobj_1522.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1522));
+ 
+ /*iniobj dsym_1523__L*/
+ if (!/*_.VALDATA___V1529*/ curfptr[1528]) /*_.VALDATA___V1529*/ curfptr[1528] = (void*)&cdat->dsym_1523__L;
+  melt_assertmsg("iniobj checkdiscr dsym_1523__L", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1523__L.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1523__L.obj_hash = 89697773;
+  cdat->dsym_1523__L.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1523__L));
+ 
+ /*inistring dstr_1524__L*/
+ /*_.VALSTR___V1530*/ curfptr[1529] = (void*)&cdat->dstr_1524__L;
+  cdat->dstr_1524__L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1524__L.val, "L", sizeof(cdat->dstr_1524__L.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:999:/ iniobj");
+ /*iniobj dobj_1525*/
+ if (!/*_.VALDATA___V1528*/ curfptr[1527]) /*_.VALDATA___V1528*/ curfptr[1527] = (void*)&cdat->dobj_1525;
+  melt_assertmsg("iniobj checkdiscr dobj_1525", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1525.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1525.obj_num = 1;
+  cdat->dobj_1525.obj_hash = 1006162858;
+  cdat->dobj_1525.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1525));
+ 
+ /*iniobj dsym_1526__SUF*/
+ if (!/*_.VALDATA___V1532*/ curfptr[1531]) /*_.VALDATA___V1532*/ curfptr[1531] = (void*)&cdat->dsym_1526__SUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1526__SUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1526__SUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1526__SUF.obj_hash = 121121391;
+  cdat->dsym_1526__SUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1526__SUF));
+ 
+ /*inistring dstr_1527__SUF*/
+ /*_.VALSTR___V1533*/ curfptr[1532] = (void*)&cdat->dstr_1527__SUF;
+  cdat->dstr_1527__SUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1527__SUF.val, "SUF", sizeof(cdat->dstr_1527__SUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:999:/ iniobj");
+ /*iniobj dobj_1528*/
+ if (!/*_.VALDATA___V1531*/ curfptr[1530]) /*_.VALDATA___V1531*/ curfptr[1530] = (void*)&cdat->dobj_1528;
+  melt_assertmsg("iniobj checkdiscr dobj_1528", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1528.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1528.obj_num = 2;
+  cdat->dobj_1528.obj_hash = 649627200;
+  cdat->dobj_1528.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1528));
+ 
+ /*inistring dstr_1529__melt_putnum_dump*/
+ /*_.VALSTR___V1535*/ curfptr[1534] = (void*)&cdat->dstr_1529__melt_putnum_dump;
+  cdat->dstr_1529__melt_putnum_dump.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1529__melt_putnum_dump.val, "melt_putnum(dump_file,(", sizeof(cdat->dstr_1529__melt_putnum_dump.val)-1);
+ 
+ /*inistring dstr_1530__*/
+ /*_.VALSTR___V1536*/ curfptr[1535] = (void*)&cdat->dstr_1530__;
+  cdat->dstr_1530__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1530__.val, "), (", sizeof(cdat->dstr_1530__.val)-1);
+ 
+ /*inistring dstr_1531__*/
+ /*_.VALSTR___V1537*/ curfptr[1536] = (void*)&cdat->dstr_1531__;
+  cdat->dstr_1531__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1531__.val, "), (", sizeof(cdat->dstr_1531__.val)-1);
+ 
+ /*inistring dstr_1532__*/
+ /*_.VALSTR___V1538*/ curfptr[1537] = (void*)&cdat->dstr_1532__;
+  cdat->dstr_1532__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1532__.val, "))", sizeof(cdat->dstr_1532__.val)-1);
+ 
+ /*inistring dstr_1533__OUTNUM_DBG*/
+ /*_.VALSTR___V1524*/ curfptr[1523] = (void*)&cdat->dstr_1533__OUTNUM_DBG;
+  cdat->dstr_1533__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1533__OUTNUM_DBG.val, "OUTNUM_DBG", sizeof(cdat->dstr_1533__OUTNUM_DBG.val)-1);
+ 
+ /*iniobj dsym_1534__OUTSTR_DBG*/
+ if (!/*_.VALDATA___V1540*/ curfptr[1539]) /*_.VALDATA___V1540*/ curfptr[1539] = (void*)&cdat->dsym_1534__OUTSTR_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1534__OUTSTR_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1534__OUTSTR_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1534__OUTSTR_DBG.obj_hash = 501565237;
+  cdat->dsym_1534__OUTSTR_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1534__OUTSTR_DBG));
+ 
+ /*inistring dstr_1535__OUTSTR_DBG*/
+ /*_.VALSTR___V1541*/ curfptr[1540] = (void*)&cdat->dstr_1535__OUTSTR_DBG;
+  cdat->dstr_1535__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1535__OUTSTR_DBG.val, "OUTSTR_DBG", sizeof(cdat->dstr_1535__OUTSTR_DBG.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1002:/ iniobj");
- /*iniobj dobj_1519*/
- if (!/*_.VALDATA___V1522*/ curfptr[1521]) /*_.VALDATA___V1522*/ curfptr[1521] = (void*)&cdat->dobj_1519;
-  melt_assertmsg("iniobj checkdiscr dobj_1519", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1519.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1519.obj_num = 0;
-  cdat->dobj_1519.obj_hash = 689149631;
-  cdat->dobj_1519.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1519));
- 
- /*inistring dstr_1520__melt_puts_dump_f*/
- /*_.VALSTR___V1526*/ curfptr[1525] = (void*)&cdat->dstr_1520__melt_puts_dump_f;
-  cdat->dstr_1520__melt_puts_dump_f.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1520__melt_puts_dump_f.val, "melt_puts(dump_file,(", sizeof(cdat->dstr_1520__melt_puts_dump_f.val)-1);
- 
- /*inistring dstr_1521__*/
- /*_.VALSTR___V1527*/ curfptr[1526] = (void*)&cdat->dstr_1521__;
-  cdat->dstr_1521__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1521__.val, "))", sizeof(cdat->dstr_1521__.val)-1);
- 
- /*inistring dstr_1522__OUTCSTRING_DBG*/
- /*_.VALSTR___V1521*/ curfptr[1520] = (void*)&cdat->dstr_1522__OUTCSTRING_DBG;
-  cdat->dstr_1522__OUTCSTRING_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1522__OUTCSTRING_DBG.val, "OUTCSTRING_DBG", sizeof(cdat->dstr_1522__OUTCSTRING_DBG.val)-1);
- 
- /*iniobj dsym_1523__OUTNUM_DBG*/
- if (!/*_.VALDATA___V1529*/ curfptr[1528]) /*_.VALDATA___V1529*/ curfptr[1528] = (void*)&cdat->dsym_1523__OUTNUM_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1523__OUTNUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1523__OUTNUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1523__OUTNUM_DBG.obj_hash = 41936540;
-  cdat->dsym_1523__OUTNUM_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1523__OUTNUM_DBG));
- 
- /*inistring dstr_1524__OUTNUM_DBG*/
- /*_.VALSTR___V1530*/ curfptr[1529] = (void*)&cdat->dstr_1524__OUTNUM_DBG;
-  cdat->dstr_1524__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1524__OUTNUM_DBG.val, "OUTNUM_DBG", sizeof(cdat->dstr_1524__OUTNUM_DBG.val)-1);
+ /*iniobj dobj_1536__OUTSTR_DBG*/
+ if (!/*_.VALDATA___V1542*/ curfptr[1541]) /*_.VALDATA___V1542*/ curfptr[1541] = (void*)&cdat->dobj_1536__OUTSTR_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1536__OUTSTR_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1536__OUTSTR_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1536__OUTSTR_DBG.obj_hash = 374351129;
+  cdat->dobj_1536__OUTSTR_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1536__OUTSTR_DBG));
+ 
+ /*inimult dtup_1537__OUTSTR_DBG*/
+ /*_.VALTUP___V1550*/ curfptr[1549] = (void*)&cdat->dtup_1537__OUTSTR_DBG;
+  cdat->dtup_1537__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1537__OUTSTR_DBG.nbval = 3;
+ /*inimult dtup_1538__OUTSTR_DBG*/
+ /*_.VALTUP___V1547*/ curfptr[1546] = (void*)&cdat->dtup_1538__OUTSTR_DBG;
+  cdat->dtup_1538__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1538__OUTSTR_DBG.nbval = 1;
+ /*iniobj dsym_1539__STR*/
+ if (!/*_.VALDATA___V1545*/ curfptr[1544]) /*_.VALDATA___V1545*/ curfptr[1544] = (void*)&cdat->dsym_1539__STR;
+  melt_assertmsg("iniobj checkdiscr dsym_1539__STR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1539__STR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1539__STR.obj_hash = 97600829;
+  cdat->dsym_1539__STR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1539__STR));
+ 
+ /*inistring dstr_1540__STR*/
+ /*_.VALSTR___V1546*/ curfptr[1545] = (void*)&cdat->dstr_1540__STR;
+  cdat->dstr_1540__STR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1540__STR.val, "STR", sizeof(cdat->dstr_1540__STR.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ iniobj");
- /*iniobj dobj_1525__OUTNUM_DBG*/
- if (!/*_.VALDATA___V1531*/ curfptr[1530]) /*_.VALDATA___V1531*/ curfptr[1530] = (void*)&cdat->dobj_1525__OUTNUM_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1525__OUTNUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1525__OUTNUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1525__OUTNUM_DBG.obj_hash = 940448145;
-  cdat->dobj_1525__OUTNUM_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1525__OUTNUM_DBG));
- 
- /*inimult dtup_1526__OUTNUM_DBG*/
- /*_.VALTUP___V1547*/ curfptr[1546] = (void*)&cdat->dtup_1526__OUTNUM_DBG;
-  cdat->dtup_1526__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1526__OUTNUM_DBG.nbval = 7;
- /*inimult dtup_1527__OUTNUM_DBG*/
- /*_.VALTUP___V1542*/ curfptr[1541] = (void*)&cdat->dtup_1527__OUTNUM_DBG;
-  cdat->dtup_1527__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1527__OUTNUM_DBG.nbval = 3;
- /*iniobj dsym_1528__PREF*/
- if (!/*_.VALDATA___V1534*/ curfptr[1533]) /*_.VALDATA___V1534*/ curfptr[1533] = (void*)&cdat->dsym_1528__PREF;
-  melt_assertmsg("iniobj checkdiscr dsym_1528__PREF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1528__PREF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1528__PREF.obj_hash = 96883688;
-  cdat->dsym_1528__PREF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1528__PREF));
- 
- /*inistring dstr_1529__PREF*/
- /*_.VALSTR___V1535*/ curfptr[1534] = (void*)&cdat->dstr_1529__PREF;
-  cdat->dstr_1529__PREF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1529__PREF.val, "PREF", sizeof(cdat->dstr_1529__PREF.val)-1);
+ MELT_LOCATION("warmelt-first.melt:1002:/ iniobj");
+ /*iniobj dobj_1541*/
+ if (!/*_.VALDATA___V1544*/ curfptr[1543]) /*_.VALDATA___V1544*/ curfptr[1543] = (void*)&cdat->dobj_1541;
+  melt_assertmsg("iniobj checkdiscr dobj_1541", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1541.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1541.obj_num = 0;
+  cdat->dobj_1541.obj_hash = 1014237368;
+  cdat->dobj_1541.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1541));
+ 
+ /*inistring dstr_1542__melt_putstr_dump*/
+ /*_.VALSTR___V1548*/ curfptr[1547] = (void*)&cdat->dstr_1542__melt_putstr_dump;
+  cdat->dstr_1542__melt_putstr_dump.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1542__melt_putstr_dump.val, "melt_putstr(dump_file,(melt_ptr_t)(", sizeof(cdat->dstr_1542__melt_putstr_dump.val)-1);
+ 
+ /*inistring dstr_1543__*/
+ /*_.VALSTR___V1549*/ curfptr[1548] = (void*)&cdat->dstr_1543__;
+  cdat->dstr_1543__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1543__.val, "))", sizeof(cdat->dstr_1543__.val)-1);
+ 
+ /*inistring dstr_1544__OUTSTR_DBG*/
+ /*_.VALSTR___V1543*/ curfptr[1542] = (void*)&cdat->dstr_1544__OUTSTR_DBG;
+  cdat->dstr_1544__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1544__OUTSTR_DBG.val, "OUTSTR_DBG", sizeof(cdat->dstr_1544__OUTSTR_DBG.val)-1);
+ 
+ /*iniobj dsym_1545__OUTSTRBUF_DBG*/
+ if (!/*_.VALDATA___V1551*/ curfptr[1550]) /*_.VALDATA___V1551*/ curfptr[1550] = (void*)&cdat->dsym_1545__OUTSTRBUF_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1545__OUTSTRBUF_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1545__OUTSTRBUF_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1545__OUTSTRBUF_DBG.obj_hash = 744841630;
+  cdat->dsym_1545__OUTSTRBUF_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1545__OUTSTRBUF_DBG));
+ 
+ /*inistring dstr_1546__OUTSTRBUF_DBG*/
+ /*_.VALSTR___V1552*/ curfptr[1551] = (void*)&cdat->dstr_1546__OUTSTRBUF_DBG;
+  cdat->dstr_1546__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1546__OUTSTRBUF_DBG.val, "OUTSTRBUF_DBG", sizeof(cdat->dstr_1546__OUTSTRBUF_DBG.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1004:/ iniobj");
- /*iniobj dobj_1530*/
- if (!/*_.VALDATA___V1533*/ curfptr[1532]) /*_.VALDATA___V1533*/ curfptr[1532] = (void*)&cdat->dobj_1530;
-  melt_assertmsg("iniobj checkdiscr dobj_1530", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1530.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1530.obj_num = 0;
-  cdat->dobj_1530.obj_hash = 210585327;
-  cdat->dobj_1530.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1530));
- 
- /*iniobj dsym_1531__L*/
- if (!/*_.VALDATA___V1537*/ curfptr[1536]) /*_.VALDATA___V1537*/ curfptr[1536] = (void*)&cdat->dsym_1531__L;
-  melt_assertmsg("iniobj checkdiscr dsym_1531__L", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1531__L.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1531__L.obj_hash = 89697773;
-  cdat->dsym_1531__L.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1531__L));
- 
- /*inistring dstr_1532__L*/
- /*_.VALSTR___V1538*/ curfptr[1537] = (void*)&cdat->dstr_1532__L;
-  cdat->dstr_1532__L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1532__L.val, "L", sizeof(cdat->dstr_1532__L.val)-1);
+ /*iniobj dobj_1547__OUTSTRBUF_DBG*/
+ if (!/*_.VALDATA___V1553*/ curfptr[1552]) /*_.VALDATA___V1553*/ curfptr[1552] = (void*)&cdat->dobj_1547__OUTSTRBUF_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1547__OUTSTRBUF_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1547__OUTSTRBUF_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1547__OUTSTRBUF_DBG.obj_hash = 30607246;
+  cdat->dobj_1547__OUTSTRBUF_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1547__OUTSTRBUF_DBG));
+ 
+ /*inimult dtup_1548__OUTSTRBUF_DBG*/
+ /*_.VALTUP___V1561*/ curfptr[1560] = (void*)&cdat->dtup_1548__OUTSTRBUF_DBG;
+  cdat->dtup_1548__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1548__OUTSTRBUF_DBG.nbval = 3;
+ /*inimult dtup_1549__OUTSTRBUF_DBG*/
+ /*_.VALTUP___V1558*/ curfptr[1557] = (void*)&cdat->dtup_1549__OUTSTRBUF_DBG;
+  cdat->dtup_1549__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1549__OUTSTRBUF_DBG.nbval = 1;
+ /*iniobj dsym_1550__SBUF*/
+ if (!/*_.VALDATA___V1556*/ curfptr[1555]) /*_.VALDATA___V1556*/ curfptr[1555] = (void*)&cdat->dsym_1550__SBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1550__SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1550__SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1550__SBUF.obj_hash = 120431958;
+  cdat->dsym_1550__SBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1550__SBUF));
+ 
+ /*inistring dstr_1551__SBUF*/
+ /*_.VALSTR___V1557*/ curfptr[1556] = (void*)&cdat->dstr_1551__SBUF;
+  cdat->dstr_1551__SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1551__SBUF.val, "SBUF", sizeof(cdat->dstr_1551__SBUF.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1004:/ iniobj");
- /*iniobj dobj_1533*/
- if (!/*_.VALDATA___V1536*/ curfptr[1535]) /*_.VALDATA___V1536*/ curfptr[1535] = (void*)&cdat->dobj_1533;
-  melt_assertmsg("iniobj checkdiscr dobj_1533", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1533.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1533.obj_num = 1;
-  cdat->dobj_1533.obj_hash = 631883446;
-  cdat->dobj_1533.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1533));
- 
- /*iniobj dsym_1534__SUF*/
- if (!/*_.VALDATA___V1540*/ curfptr[1539]) /*_.VALDATA___V1540*/ curfptr[1539] = (void*)&cdat->dsym_1534__SUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1534__SUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1534__SUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1534__SUF.obj_hash = 121121391;
-  cdat->dsym_1534__SUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1534__SUF));
- 
- /*inistring dstr_1535__SUF*/
- /*_.VALSTR___V1541*/ curfptr[1540] = (void*)&cdat->dstr_1535__SUF;
-  cdat->dstr_1535__SUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1535__SUF.val, "SUF", sizeof(cdat->dstr_1535__SUF.val)-1);
+ /*iniobj dobj_1552*/
+ if (!/*_.VALDATA___V1555*/ curfptr[1554]) /*_.VALDATA___V1555*/ curfptr[1554] = (void*)&cdat->dobj_1552;
+  melt_assertmsg("iniobj checkdiscr dobj_1552", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1552.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1552.obj_num = 0;
+  cdat->dobj_1552.obj_hash = 783788697;
+  cdat->dobj_1552.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1552));
+ 
+ /*inistring dstr_1553__melt_putstrbuf_d*/
+ /*_.VALSTR___V1559*/ curfptr[1558] = (void*)&cdat->dstr_1553__melt_putstrbuf_d;
+  cdat->dstr_1553__melt_putstrbuf_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1553__melt_putstrbuf_d.val, "melt_putstrbuf(dump_file,(melt_ptr_t)(", sizeof(cdat->dstr_1553__melt_putstrbuf_d.val)-1);
+ 
+ /*inistring dstr_1554__*/
+ /*_.VALSTR___V1560*/ curfptr[1559] = (void*)&cdat->dstr_1554__;
+  cdat->dstr_1554__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1554__.val, "))", sizeof(cdat->dstr_1554__.val)-1);
+ 
+ /*inistring dstr_1555__OUTSTRBUF_DBG*/
+ /*_.VALSTR___V1554*/ curfptr[1553] = (void*)&cdat->dstr_1555__OUTSTRBUF_DBG;
+  cdat->dstr_1555__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1555__OUTSTRBUF_DBG.val, "OUTSTRBUF_DBG", sizeof(cdat->dstr_1555__OUTSTRBUF_DBG.val)-1);
+ 
+ /*iniobj dsym_1556__OUTNEWLINE_DBG*/
+ if (!/*_.VALDATA___V1562*/ curfptr[1561]) /*_.VALDATA___V1562*/ curfptr[1561] = (void*)&cdat->dsym_1556__OUTNEWLINE_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1556__OUTNEWLINE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1556__OUTNEWLINE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1556__OUTNEWLINE_DBG.obj_hash = 349746436;
+  cdat->dsym_1556__OUTNEWLINE_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1556__OUTNEWLINE_DBG));
+ 
+ /*inistring dstr_1557__OUTNEWLINE_DBG*/
+ /*_.VALSTR___V1563*/ curfptr[1562] = (void*)&cdat->dstr_1557__OUTNEWLINE_DBG;
+  cdat->dstr_1557__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1557__OUTNEWLINE_DBG.val, "OUTNEWLINE_DBG", sizeof(cdat->dstr_1557__OUTNEWLINE_DBG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1006:/ iniobj");
+ /*iniobj dobj_1558__OUTNEWLINE_DBG*/
+ if (!/*_.VALDATA___V1564*/ curfptr[1563]) /*_.VALDATA___V1564*/ curfptr[1563] = (void*)&cdat->dobj_1558__OUTNEWLINE_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1558__OUTNEWLINE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1558__OUTNEWLINE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1558__OUTNEWLINE_DBG.obj_hash = 581421019;
+  cdat->dobj_1558__OUTNEWLINE_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1558__OUTNEWLINE_DBG));
+ 
+ /*inimult dtup_1559__OUTNEWLINE_DBG*/
+ /*_.VALTUP___V1568*/ curfptr[1567] = (void*)&cdat->dtup_1559__OUTNEWLINE_DBG;
+  cdat->dtup_1559__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1559__OUTNEWLINE_DBG.nbval = 1;
+ /*inimult dtup_1560__OUTNEWLINE_DBG*/
+ /*_.VALTUP___V1566*/ curfptr[1565] = (void*)&cdat->dtup_1560__OUTNEWLINE_DBG;
+  cdat->dtup_1560__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1560__OUTNEWLINE_DBG.nbval = 0;
+ /*inistring dstr_1561__melt_newlineflus*/
+ /*_.VALSTR___V1567*/ curfptr[1566] = (void*)&cdat->dstr_1561__melt_newlineflus;
+  cdat->dstr_1561__melt_newlineflus.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1561__melt_newlineflus.val, "melt_newlineflush(dump_file)", sizeof(cdat->dstr_1561__melt_newlineflus.val)-1);
+ 
+ /*inistring dstr_1562__OUTNEWLINE_DBG*/
+ /*_.VALSTR___V1565*/ curfptr[1564] = (void*)&cdat->dstr_1562__OUTNEWLINE_DBG;
+  cdat->dstr_1562__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1562__OUTNEWLINE_DBG.val, "OUTNEWLINE_DBG", sizeof(cdat->dstr_1562__OUTNEWLINE_DBG.val)-1);
+ 
+ /*iniobj dsym_1563__OUTNUM_ERR*/
+ if (!/*_.VALDATA___V1569*/ curfptr[1568]) /*_.VALDATA___V1569*/ curfptr[1568] = (void*)&cdat->dsym_1563__OUTNUM_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1563__OUTNUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1563__OUTNUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1563__OUTNUM_ERR.obj_hash = 210657088;
+  cdat->dsym_1563__OUTNUM_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1563__OUTNUM_ERR));
+ 
+ /*inistring dstr_1564__OUTNUM_ERR*/
+ /*_.VALSTR___V1570*/ curfptr[1569] = (void*)&cdat->dstr_1564__OUTNUM_ERR;
+  cdat->dstr_1564__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1564__OUTNUM_ERR.val, "OUTNUM_ERR", sizeof(cdat->dstr_1564__OUTNUM_ERR.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ iniobj");
- /*iniobj dobj_1536*/
- if (!/*_.VALDATA___V1539*/ curfptr[1538]) /*_.VALDATA___V1539*/ curfptr[1538] = (void*)&cdat->dobj_1536;
-  melt_assertmsg("iniobj checkdiscr dobj_1536", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1536.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1536.obj_num = 2;
-  cdat->dobj_1536.obj_hash = 208026833;
-  cdat->dobj_1536.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1536));
- 
- /*inistring dstr_1537__melt_putnum_dump*/
- /*_.VALSTR___V1543*/ curfptr[1542] = (void*)&cdat->dstr_1537__melt_putnum_dump;
-  cdat->dstr_1537__melt_putnum_dump.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1537__melt_putnum_dump.val, "melt_putnum(dump_file,(", sizeof(cdat->dstr_1537__melt_putnum_dump.val)-1);
- 
- /*inistring dstr_1538__*/
- /*_.VALSTR___V1544*/ curfptr[1543] = (void*)&cdat->dstr_1538__;
-  cdat->dstr_1538__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1538__.val, "), (", sizeof(cdat->dstr_1538__.val)-1);
- 
- /*inistring dstr_1539__*/
- /*_.VALSTR___V1545*/ curfptr[1544] = (void*)&cdat->dstr_1539__;
-  cdat->dstr_1539__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1539__.val, "), (", sizeof(cdat->dstr_1539__.val)-1);
- 
- /*inistring dstr_1540__*/
- /*_.VALSTR___V1546*/ curfptr[1545] = (void*)&cdat->dstr_1540__;
-  cdat->dstr_1540__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1540__.val, "))", sizeof(cdat->dstr_1540__.val)-1);
- 
- /*inistring dstr_1541__OUTNUM_DBG*/
- /*_.VALSTR___V1532*/ curfptr[1531] = (void*)&cdat->dstr_1541__OUTNUM_DBG;
-  cdat->dstr_1541__OUTNUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1541__OUTNUM_DBG.val, "OUTNUM_DBG", sizeof(cdat->dstr_1541__OUTNUM_DBG.val)-1);
- 
- /*iniobj dsym_1542__OUTSTR_DBG*/
- if (!/*_.VALDATA___V1548*/ curfptr[1547]) /*_.VALDATA___V1548*/ curfptr[1547] = (void*)&cdat->dsym_1542__OUTSTR_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1542__OUTSTR_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1542__OUTSTR_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1542__OUTSTR_DBG.obj_hash = 501565237;
-  cdat->dsym_1542__OUTSTR_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1542__OUTSTR_DBG));
- 
- /*inistring dstr_1543__OUTSTR_DBG*/
- /*_.VALSTR___V1549*/ curfptr[1548] = (void*)&cdat->dstr_1543__OUTSTR_DBG;
-  cdat->dstr_1543__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1543__OUTSTR_DBG.val, "OUTSTR_DBG", sizeof(cdat->dstr_1543__OUTSTR_DBG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1007:/ iniobj");
- /*iniobj dobj_1544__OUTSTR_DBG*/
- if (!/*_.VALDATA___V1550*/ curfptr[1549]) /*_.VALDATA___V1550*/ curfptr[1549] = (void*)&cdat->dobj_1544__OUTSTR_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1544__OUTSTR_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1544__OUTSTR_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1544__OUTSTR_DBG.obj_hash = 110015597;
-  cdat->dobj_1544__OUTSTR_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1544__OUTSTR_DBG));
- 
- /*inimult dtup_1545__OUTSTR_DBG*/
- /*_.VALTUP___V1558*/ curfptr[1557] = (void*)&cdat->dtup_1545__OUTSTR_DBG;
-  cdat->dtup_1545__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1545__OUTSTR_DBG.nbval = 3;
- /*inimult dtup_1546__OUTSTR_DBG*/
- /*_.VALTUP___V1555*/ curfptr[1554] = (void*)&cdat->dtup_1546__OUTSTR_DBG;
-  cdat->dtup_1546__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1546__OUTSTR_DBG.nbval = 1;
- /*iniobj dsym_1547__STR*/
- if (!/*_.VALDATA___V1553*/ curfptr[1552]) /*_.VALDATA___V1553*/ curfptr[1552] = (void*)&cdat->dsym_1547__STR;
-  melt_assertmsg("iniobj checkdiscr dsym_1547__STR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1547__STR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1547__STR.obj_hash = 97600829;
-  cdat->dsym_1547__STR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1547__STR));
- 
- /*inistring dstr_1548__STR*/
- /*_.VALSTR___V1554*/ curfptr[1553] = (void*)&cdat->dstr_1548__STR;
-  cdat->dstr_1548__STR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1548__STR.val, "STR", sizeof(cdat->dstr_1548__STR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1007:/ iniobj");
- /*iniobj dobj_1549*/
- if (!/*_.VALDATA___V1552*/ curfptr[1551]) /*_.VALDATA___V1552*/ curfptr[1551] = (void*)&cdat->dobj_1549;
-  melt_assertmsg("iniobj checkdiscr dobj_1549", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1549.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1549.obj_num = 0;
-  cdat->dobj_1549.obj_hash = 15368018;
-  cdat->dobj_1549.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1549));
- 
- /*inistring dstr_1550__melt_putstr_dump*/
- /*_.VALSTR___V1556*/ curfptr[1555] = (void*)&cdat->dstr_1550__melt_putstr_dump;
-  cdat->dstr_1550__melt_putstr_dump.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1550__melt_putstr_dump.val, "melt_putstr(dump_file,(melt_ptr_t)(", sizeof(cdat->dstr_1550__melt_putstr_dump.val)-1);
- 
- /*inistring dstr_1551__*/
- /*_.VALSTR___V1557*/ curfptr[1556] = (void*)&cdat->dstr_1551__;
-  cdat->dstr_1551__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1551__.val, "))", sizeof(cdat->dstr_1551__.val)-1);
- 
- /*inistring dstr_1552__OUTSTR_DBG*/
- /*_.VALSTR___V1551*/ curfptr[1550] = (void*)&cdat->dstr_1552__OUTSTR_DBG;
-  cdat->dstr_1552__OUTSTR_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1552__OUTSTR_DBG.val, "OUTSTR_DBG", sizeof(cdat->dstr_1552__OUTSTR_DBG.val)-1);
- 
- /*iniobj dsym_1553__OUTSTRBUF_DBG*/
- if (!/*_.VALDATA___V1559*/ curfptr[1558]) /*_.VALDATA___V1559*/ curfptr[1558] = (void*)&cdat->dsym_1553__OUTSTRBUF_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1553__OUTSTRBUF_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1553__OUTSTRBUF_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1553__OUTSTRBUF_DBG.obj_hash = 744841630;
-  cdat->dsym_1553__OUTSTRBUF_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1553__OUTSTRBUF_DBG));
- 
- /*inistring dstr_1554__OUTSTRBUF_DBG*/
- /*_.VALSTR___V1560*/ curfptr[1559] = (void*)&cdat->dstr_1554__OUTSTRBUF_DBG;
-  cdat->dstr_1554__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1554__OUTSTRBUF_DBG.val, "OUTSTRBUF_DBG", sizeof(cdat->dstr_1554__OUTSTRBUF_DBG.val)-1);
+ MELT_LOCATION("warmelt-first.melt:1009:/ iniobj");
+ /*iniobj dobj_1565__OUTNUM_ERR*/
+ if (!/*_.VALDATA___V1571*/ curfptr[1570]) /*_.VALDATA___V1571*/ curfptr[1570] = (void*)&cdat->dobj_1565__OUTNUM_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1565__OUTNUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1565__OUTNUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1565__OUTNUM_ERR.obj_hash = 826962639;
+  cdat->dobj_1565__OUTNUM_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1565__OUTNUM_ERR));
+ 
+ /*inimult dtup_1566__OUTNUM_ERR*/
+ /*_.VALTUP___V1581*/ curfptr[1580] = (void*)&cdat->dtup_1566__OUTNUM_ERR;
+  cdat->dtup_1566__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1566__OUTNUM_ERR.nbval = 7;
+ /*inimult dtup_1567__OUTNUM_ERR*/
+ /*_.VALTUP___V1576*/ curfptr[1575] = (void*)&cdat->dtup_1567__OUTNUM_ERR;
+  cdat->dtup_1567__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1567__OUTNUM_ERR.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1009:/ iniobj");
+ /*iniobj dobj_1568*/
+ if (!/*_.VALDATA___V1573*/ curfptr[1572]) /*_.VALDATA___V1573*/ curfptr[1572] = (void*)&cdat->dobj_1568;
+  melt_assertmsg("iniobj checkdiscr dobj_1568", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1568.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1568.obj_num = 0;
+  cdat->dobj_1568.obj_hash = 966091161;
+  cdat->dobj_1568.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1568));
  
  MELT_LOCATION("warmelt-first.melt:1009:/ iniobj");
- /*iniobj dobj_1555__OUTSTRBUF_DBG*/
- if (!/*_.VALDATA___V1561*/ curfptr[1560]) /*_.VALDATA___V1561*/ curfptr[1560] = (void*)&cdat->dobj_1555__OUTSTRBUF_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1555__OUTSTRBUF_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1555__OUTSTRBUF_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1555__OUTSTRBUF_DBG.obj_hash = 886478813;
-  cdat->dobj_1555__OUTSTRBUF_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1555__OUTSTRBUF_DBG));
- 
- /*inimult dtup_1556__OUTSTRBUF_DBG*/
- /*_.VALTUP___V1569*/ curfptr[1568] = (void*)&cdat->dtup_1556__OUTSTRBUF_DBG;
-  cdat->dtup_1556__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1556__OUTSTRBUF_DBG.nbval = 3;
- /*inimult dtup_1557__OUTSTRBUF_DBG*/
- /*_.VALTUP___V1566*/ curfptr[1565] = (void*)&cdat->dtup_1557__OUTSTRBUF_DBG;
-  cdat->dtup_1557__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1557__OUTSTRBUF_DBG.nbval = 1;
- /*iniobj dsym_1558__SBUF*/
- if (!/*_.VALDATA___V1564*/ curfptr[1563]) /*_.VALDATA___V1564*/ curfptr[1563] = (void*)&cdat->dsym_1558__SBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1558__SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1558__SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1558__SBUF.obj_hash = 120431958;
-  cdat->dsym_1558__SBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1558__SBUF));
- 
- /*inistring dstr_1559__SBUF*/
- /*_.VALSTR___V1565*/ curfptr[1564] = (void*)&cdat->dstr_1559__SBUF;
-  cdat->dstr_1559__SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1559__SBUF.val, "SBUF", sizeof(cdat->dstr_1559__SBUF.val)-1);
+ /*iniobj dobj_1569*/
+ if (!/*_.VALDATA___V1574*/ curfptr[1573]) /*_.VALDATA___V1574*/ curfptr[1573] = (void*)&cdat->dobj_1569;
+  melt_assertmsg("iniobj checkdiscr dobj_1569", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1569.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1569.obj_num = 1;
+  cdat->dobj_1569.obj_hash = 763312742;
+  cdat->dobj_1569.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1569));
  
  MELT_LOCATION("warmelt-first.melt:1009:/ iniobj");
- /*iniobj dobj_1560*/
- if (!/*_.VALDATA___V1563*/ curfptr[1562]) /*_.VALDATA___V1563*/ curfptr[1562] = (void*)&cdat->dobj_1560;
-  melt_assertmsg("iniobj checkdiscr dobj_1560", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1560.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1560.obj_num = 0;
-  cdat->dobj_1560.obj_hash = 129726066;
-  cdat->dobj_1560.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1560));
- 
- /*inistring dstr_1561__melt_putstrbuf_d*/
- /*_.VALSTR___V1567*/ curfptr[1566] = (void*)&cdat->dstr_1561__melt_putstrbuf_d;
-  cdat->dstr_1561__melt_putstrbuf_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1561__melt_putstrbuf_d.val, "melt_putstrbuf(dump_file,(melt_ptr_t)(", sizeof(cdat->dstr_1561__melt_putstrbuf_d.val)-1);
- 
- /*inistring dstr_1562__*/
- /*_.VALSTR___V1568*/ curfptr[1567] = (void*)&cdat->dstr_1562__;
-  cdat->dstr_1562__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1562__.val, "))", sizeof(cdat->dstr_1562__.val)-1);
- 
- /*inistring dstr_1563__OUTSTRBUF_DBG*/
- /*_.VALSTR___V1562*/ curfptr[1561] = (void*)&cdat->dstr_1563__OUTSTRBUF_DBG;
-  cdat->dstr_1563__OUTSTRBUF_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1563__OUTSTRBUF_DBG.val, "OUTSTRBUF_DBG", sizeof(cdat->dstr_1563__OUTSTRBUF_DBG.val)-1);
- 
- /*iniobj dsym_1564__OUTNEWLINE_DBG*/
- if (!/*_.VALDATA___V1570*/ curfptr[1569]) /*_.VALDATA___V1570*/ curfptr[1569] = (void*)&cdat->dsym_1564__OUTNEWLINE_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1564__OUTNEWLINE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1564__OUTNEWLINE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1564__OUTNEWLINE_DBG.obj_hash = 349746436;
-  cdat->dsym_1564__OUTNEWLINE_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1564__OUTNEWLINE_DBG));
- 
- /*inistring dstr_1565__OUTNEWLINE_DBG*/
- /*_.VALSTR___V1571*/ curfptr[1570] = (void*)&cdat->dstr_1565__OUTNEWLINE_DBG;
-  cdat->dstr_1565__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1565__OUTNEWLINE_DBG.val, "OUTNEWLINE_DBG", sizeof(cdat->dstr_1565__OUTNEWLINE_DBG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1011:/ iniobj");
- /*iniobj dobj_1566__OUTNEWLINE_DBG*/
- if (!/*_.VALDATA___V1572*/ curfptr[1571]) /*_.VALDATA___V1572*/ curfptr[1571] = (void*)&cdat->dobj_1566__OUTNEWLINE_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1566__OUTNEWLINE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1566__OUTNEWLINE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1566__OUTNEWLINE_DBG.obj_hash = 182866867;
-  cdat->dobj_1566__OUTNEWLINE_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1566__OUTNEWLINE_DBG));
- 
- /*inimult dtup_1567__OUTNEWLINE_DBG*/
- /*_.VALTUP___V1576*/ curfptr[1575] = (void*)&cdat->dtup_1567__OUTNEWLINE_DBG;
-  cdat->dtup_1567__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1567__OUTNEWLINE_DBG.nbval = 1;
- /*inimult dtup_1568__OUTNEWLINE_DBG*/
- /*_.VALTUP___V1574*/ curfptr[1573] = (void*)&cdat->dtup_1568__OUTNEWLINE_DBG;
-  cdat->dtup_1568__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1568__OUTNEWLINE_DBG.nbval = 0;
- /*inistring dstr_1569__melt_newlineflus*/
- /*_.VALSTR___V1575*/ curfptr[1574] = (void*)&cdat->dstr_1569__melt_newlineflus;
-  cdat->dstr_1569__melt_newlineflus.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1569__melt_newlineflus.val, "melt_newlineflush(dump_file)", sizeof(cdat->dstr_1569__melt_newlineflus.val)-1);
- 
- /*inistring dstr_1570__OUTNEWLINE_DBG*/
- /*_.VALSTR___V1573*/ curfptr[1572] = (void*)&cdat->dstr_1570__OUTNEWLINE_DBG;
-  cdat->dstr_1570__OUTNEWLINE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1570__OUTNEWLINE_DBG.val, "OUTNEWLINE_DBG", sizeof(cdat->dstr_1570__OUTNEWLINE_DBG.val)-1);
- 
- /*iniobj dsym_1571__OUTNUM_ERR*/
- if (!/*_.VALDATA___V1577*/ curfptr[1576]) /*_.VALDATA___V1577*/ curfptr[1576] = (void*)&cdat->dsym_1571__OUTNUM_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1571__OUTNUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1571__OUTNUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1571__OUTNUM_ERR.obj_hash = 210657088;
-  cdat->dsym_1571__OUTNUM_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1571__OUTNUM_ERR));
- 
- /*inistring dstr_1572__OUTNUM_ERR*/
- /*_.VALSTR___V1578*/ curfptr[1577] = (void*)&cdat->dstr_1572__OUTNUM_ERR;
-  cdat->dstr_1572__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1572__OUTNUM_ERR.val, "OUTNUM_ERR", sizeof(cdat->dstr_1572__OUTNUM_ERR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1014:/ iniobj");
- /*iniobj dobj_1573__OUTNUM_ERR*/
- if (!/*_.VALDATA___V1579*/ curfptr[1578]) /*_.VALDATA___V1579*/ curfptr[1578] = (void*)&cdat->dobj_1573__OUTNUM_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1573__OUTNUM_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1573__OUTNUM_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1573__OUTNUM_ERR.obj_hash = 5627474;
-  cdat->dobj_1573__OUTNUM_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1573__OUTNUM_ERR));
- 
- /*inimult dtup_1574__OUTNUM_ERR*/
- /*_.VALTUP___V1589*/ curfptr[1588] = (void*)&cdat->dtup_1574__OUTNUM_ERR;
-  cdat->dtup_1574__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1574__OUTNUM_ERR.nbval = 7;
- /*inimult dtup_1575__OUTNUM_ERR*/
- /*_.VALTUP___V1584*/ curfptr[1583] = (void*)&cdat->dtup_1575__OUTNUM_ERR;
-  cdat->dtup_1575__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1575__OUTNUM_ERR.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1014:/ iniobj");
- /*iniobj dobj_1576*/
- if (!/*_.VALDATA___V1581*/ curfptr[1580]) /*_.VALDATA___V1581*/ curfptr[1580] = (void*)&cdat->dobj_1576;
-  melt_assertmsg("iniobj checkdiscr dobj_1576", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1576.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1576.obj_num = 0;
-  cdat->dobj_1576.obj_hash = 760765960;
-  cdat->dobj_1576.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1576));
- 
- MELT_LOCATION("warmelt-first.melt:1014:/ iniobj");
- /*iniobj dobj_1577*/
- if (!/*_.VALDATA___V1582*/ curfptr[1581]) /*_.VALDATA___V1582*/ curfptr[1581] = (void*)&cdat->dobj_1577;
-  melt_assertmsg("iniobj checkdiscr dobj_1577", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1577.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1577.obj_num = 1;
-  cdat->dobj_1577.obj_hash = 525439165;
-  cdat->dobj_1577.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1577));
- 
- MELT_LOCATION("warmelt-first.melt:1014:/ iniobj");
- /*iniobj dobj_1578*/
- if (!/*_.VALDATA___V1583*/ curfptr[1582]) /*_.VALDATA___V1583*/ curfptr[1582] = (void*)&cdat->dobj_1578;
-  melt_assertmsg("iniobj checkdiscr dobj_1578", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1578.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1578.obj_num = 2;
-  cdat->dobj_1578.obj_hash = 618395530;
-  cdat->dobj_1578.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1578));
- 
- /*inistring dstr_1579__melt_putnum_stde*/
- /*_.VALSTR___V1585*/ curfptr[1584] = (void*)&cdat->dstr_1579__melt_putnum_stde;
-  cdat->dstr_1579__melt_putnum_stde.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1579__melt_putnum_stde.val, "melt_putnum(stderr,(", sizeof(cdat->dstr_1579__melt_putnum_stde.val)-1);
- 
- /*inistring dstr_1580__*/
- /*_.VALSTR___V1586*/ curfptr[1585] = (void*)&cdat->dstr_1580__;
-  cdat->dstr_1580__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1580__.val, "), (", sizeof(cdat->dstr_1580__.val)-1);
- 
- /*inistring dstr_1581__*/
- /*_.VALSTR___V1587*/ curfptr[1586] = (void*)&cdat->dstr_1581__;
-  cdat->dstr_1581__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1581__.val, "), (", sizeof(cdat->dstr_1581__.val)-1);
- 
- /*inistring dstr_1582__*/
- /*_.VALSTR___V1588*/ curfptr[1587] = (void*)&cdat->dstr_1582__;
-  cdat->dstr_1582__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1582__.val, "))", sizeof(cdat->dstr_1582__.val)-1);
- 
- /*inistring dstr_1583__OUTNUM_ERR*/
- /*_.VALSTR___V1580*/ curfptr[1579] = (void*)&cdat->dstr_1583__OUTNUM_ERR;
-  cdat->dstr_1583__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1583__OUTNUM_ERR.val, "OUTNUM_ERR", sizeof(cdat->dstr_1583__OUTNUM_ERR.val)-1);
- 
- /*iniobj dsym_1584__OUTCSTRING_ERR*/
- if (!/*_.VALDATA___V1590*/ curfptr[1589]) /*_.VALDATA___V1590*/ curfptr[1589] = (void*)&cdat->dsym_1584__OUTCSTRING_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1584__OUTCSTRING_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1584__OUTCSTRING_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1584__OUTCSTRING_ERR.obj_hash = 395394604;
-  cdat->dsym_1584__OUTCSTRING_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1584__OUTCSTRING_ERR));
- 
- /*inistring dstr_1585__OUTCSTRING_ERR*/
- /*_.VALSTR___V1591*/ curfptr[1590] = (void*)&cdat->dstr_1585__OUTCSTRING_ERR;
-  cdat->dstr_1585__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1585__OUTCSTRING_ERR.val, "OUTCSTRING_ERR", sizeof(cdat->dstr_1585__OUTCSTRING_ERR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1017:/ iniobj");
- /*iniobj dobj_1586__OUTCSTRING_ERR*/
- if (!/*_.VALDATA___V1592*/ curfptr[1591]) /*_.VALDATA___V1592*/ curfptr[1591] = (void*)&cdat->dobj_1586__OUTCSTRING_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1586__OUTCSTRING_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1586__OUTCSTRING_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1586__OUTCSTRING_ERR.obj_hash = 24537994;
-  cdat->dobj_1586__OUTCSTRING_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1586__OUTCSTRING_ERR));
- 
- /*inimult dtup_1587__OUTCSTRING_ERR*/
- /*_.VALTUP___V1598*/ curfptr[1597] = (void*)&cdat->dtup_1587__OUTCSTRING_ERR;
-  cdat->dtup_1587__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1587__OUTCSTRING_ERR.nbval = 3;
- /*inimult dtup_1588__OUTCSTRING_ERR*/
- /*_.VALTUP___V1595*/ curfptr[1594] = (void*)&cdat->dtup_1588__OUTCSTRING_ERR;
-  cdat->dtup_1588__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1588__OUTCSTRING_ERR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1017:/ iniobj");
- /*iniobj dobj_1589*/
- if (!/*_.VALDATA___V1594*/ curfptr[1593]) /*_.VALDATA___V1594*/ curfptr[1593] = (void*)&cdat->dobj_1589;
-  melt_assertmsg("iniobj checkdiscr dobj_1589", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1589.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1589.obj_num = 0;
-  cdat->dobj_1589.obj_hash = 830068673;
-  cdat->dobj_1589.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1589));
- 
- /*inistring dstr_1590__melt_puts_stderr*/
- /*_.VALSTR___V1596*/ curfptr[1595] = (void*)&cdat->dstr_1590__melt_puts_stderr;
-  cdat->dstr_1590__melt_puts_stderr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1590__melt_puts_stderr.val, "melt_puts(stderr,(", sizeof(cdat->dstr_1590__melt_puts_stderr.val)-1);
- 
- /*inistring dstr_1591__*/
- /*_.VALSTR___V1597*/ curfptr[1596] = (void*)&cdat->dstr_1591__;
-  cdat->dstr_1591__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1591__.val, "))", sizeof(cdat->dstr_1591__.val)-1);
- 
- /*inistring dstr_1592__OUTCSTRING_ERR*/
- /*_.VALSTR___V1593*/ curfptr[1592] = (void*)&cdat->dstr_1592__OUTCSTRING_ERR;
-  cdat->dstr_1592__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1592__OUTCSTRING_ERR.val, "OUTCSTRING_ERR", sizeof(cdat->dstr_1592__OUTCSTRING_ERR.val)-1);
- 
- /*iniobj dsym_1593__OUTSTRBUF_ERR*/
- if (!/*_.VALDATA___V1599*/ curfptr[1598]) /*_.VALDATA___V1599*/ curfptr[1598] = (void*)&cdat->dsym_1593__OUTSTRBUF_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1593__OUTSTRBUF_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1593__OUTSTRBUF_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1593__OUTSTRBUF_ERR.obj_hash = 599482803;
-  cdat->dsym_1593__OUTSTRBUF_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1593__OUTSTRBUF_ERR));
- 
- /*inistring dstr_1594__OUTSTRBUF_ERR*/
- /*_.VALSTR___V1600*/ curfptr[1599] = (void*)&cdat->dstr_1594__OUTSTRBUF_ERR;
-  cdat->dstr_1594__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1594__OUTSTRBUF_ERR.val, "OUTSTRBUF_ERR", sizeof(cdat->dstr_1594__OUTSTRBUF_ERR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1020:/ iniobj");
- /*iniobj dobj_1595__OUTSTRBUF_ERR*/
- if (!/*_.VALDATA___V1601*/ curfptr[1600]) /*_.VALDATA___V1601*/ curfptr[1600] = (void*)&cdat->dobj_1595__OUTSTRBUF_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1595__OUTSTRBUF_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1595__OUTSTRBUF_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1595__OUTSTRBUF_ERR.obj_hash = 555105431;
-  cdat->dobj_1595__OUTSTRBUF_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1595__OUTSTRBUF_ERR));
- 
- /*inimult dtup_1596__OUTSTRBUF_ERR*/
- /*_.VALTUP___V1607*/ curfptr[1606] = (void*)&cdat->dtup_1596__OUTSTRBUF_ERR;
-  cdat->dtup_1596__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1596__OUTSTRBUF_ERR.nbval = 3;
- /*inimult dtup_1597__OUTSTRBUF_ERR*/
- /*_.VALTUP___V1604*/ curfptr[1603] = (void*)&cdat->dtup_1597__OUTSTRBUF_ERR;
-  cdat->dtup_1597__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1597__OUTSTRBUF_ERR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1020:/ iniobj");
- /*iniobj dobj_1598*/
- if (!/*_.VALDATA___V1603*/ curfptr[1602]) /*_.VALDATA___V1603*/ curfptr[1602] = (void*)&cdat->dobj_1598;
-  melt_assertmsg("iniobj checkdiscr dobj_1598", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1598.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1598.obj_num = 0;
-  cdat->dobj_1598.obj_hash = 782289706;
-  cdat->dobj_1598.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1598));
- 
- /*inistring dstr_1599__melt_putstrbuf_s*/
- /*_.VALSTR___V1605*/ curfptr[1604] = (void*)&cdat->dstr_1599__melt_putstrbuf_s;
-  cdat->dstr_1599__melt_putstrbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1599__melt_putstrbuf_s.val, "melt_putstrbuf(stderr,(melt_ptr_t)(", sizeof(cdat->dstr_1599__melt_putstrbuf_s.val)-1);
- 
- /*inistring dstr_1600__*/
- /*_.VALSTR___V1606*/ curfptr[1605] = (void*)&cdat->dstr_1600__;
-  cdat->dstr_1600__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1600__.val, "))", sizeof(cdat->dstr_1600__.val)-1);
- 
- /*inistring dstr_1601__OUTSTRBUF_ERR*/
- /*_.VALSTR___V1602*/ curfptr[1601] = (void*)&cdat->dstr_1601__OUTSTRBUF_ERR;
-  cdat->dstr_1601__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1601__OUTSTRBUF_ERR.val, "OUTSTRBUF_ERR", sizeof(cdat->dstr_1601__OUTSTRBUF_ERR.val)-1);
- 
- /*iniobj dsym_1602__OUTNEWLINE_ERR*/
- if (!/*_.VALDATA___V1608*/ curfptr[1607]) /*_.VALDATA___V1608*/ curfptr[1607] = (void*)&cdat->dsym_1602__OUTNEWLINE_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1602__OUTNEWLINE_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1602__OUTNEWLINE_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1602__OUTNEWLINE_ERR.obj_hash = 111424262;
-  cdat->dsym_1602__OUTNEWLINE_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1602__OUTNEWLINE_ERR));
- 
- /*inistring dstr_1603__OUTNEWLINE_ERR*/
- /*_.VALSTR___V1609*/ curfptr[1608] = (void*)&cdat->dstr_1603__OUTNEWLINE_ERR;
-  cdat->dstr_1603__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1603__OUTNEWLINE_ERR.val, "OUTNEWLINE_ERR", sizeof(cdat->dstr_1603__OUTNEWLINE_ERR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1023:/ iniobj");
- /*iniobj dobj_1604__OUTNEWLINE_ERR*/
- if (!/*_.VALDATA___V1610*/ curfptr[1609]) /*_.VALDATA___V1610*/ curfptr[1609] = (void*)&cdat->dobj_1604__OUTNEWLINE_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1604__OUTNEWLINE_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1604__OUTNEWLINE_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1604__OUTNEWLINE_ERR.obj_hash = 511580258;
-  cdat->dobj_1604__OUTNEWLINE_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1604__OUTNEWLINE_ERR));
- 
- /*inimult dtup_1605__OUTNEWLINE_ERR*/
- /*_.VALTUP___V1614*/ curfptr[1613] = (void*)&cdat->dtup_1605__OUTNEWLINE_ERR;
-  cdat->dtup_1605__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1605__OUTNEWLINE_ERR.nbval = 1;
- /*inimult dtup_1606__OUTNEWLINE_ERR*/
- /*_.VALTUP___V1612*/ curfptr[1611] = (void*)&cdat->dtup_1606__OUTNEWLINE_ERR;
-  cdat->dtup_1606__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1606__OUTNEWLINE_ERR.nbval = 0;
- /*inistring dstr_1607__melt_newlineflus*/
- /*_.VALSTR___V1613*/ curfptr[1612] = (void*)&cdat->dstr_1607__melt_newlineflus;
-  cdat->dstr_1607__melt_newlineflus.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1607__melt_newlineflus.val, "melt_newlineflush(stderr)", sizeof(cdat->dstr_1607__melt_newlineflus.val)-1);
- 
- /*inistring dstr_1608__OUTNEWLINE_ERR*/
- /*_.VALSTR___V1611*/ curfptr[1610] = (void*)&cdat->dstr_1608__OUTNEWLINE_ERR;
-  cdat->dstr_1608__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1608__OUTNEWLINE_ERR.val, "OUTNEWLINE_ERR", sizeof(cdat->dstr_1608__OUTNEWLINE_ERR.val)-1);
- 
- /*iniobj dsym_1609__OUTSTR_ERR*/
- if (!/*_.VALDATA___V1615*/ curfptr[1614]) /*_.VALDATA___V1615*/ curfptr[1614] = (void*)&cdat->dsym_1609__OUTSTR_ERR;
-  melt_assertmsg("iniobj checkdiscr dsym_1609__OUTSTR_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1609__OUTSTR_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1609__OUTSTR_ERR.obj_hash = 948349339;
-  cdat->dsym_1609__OUTSTR_ERR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1609__OUTSTR_ERR));
- 
- /*inistring dstr_1610__OUTSTR_ERR*/
- /*_.VALSTR___V1616*/ curfptr[1615] = (void*)&cdat->dstr_1610__OUTSTR_ERR;
-  cdat->dstr_1610__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1610__OUTSTR_ERR.val, "OUTSTR_ERR", sizeof(cdat->dstr_1610__OUTSTR_ERR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1026:/ iniobj");
- /*iniobj dobj_1611__OUTSTR_ERR*/
- if (!/*_.VALDATA___V1617*/ curfptr[1616]) /*_.VALDATA___V1617*/ curfptr[1616] = (void*)&cdat->dobj_1611__OUTSTR_ERR;
-  melt_assertmsg("iniobj checkdiscr dobj_1611__OUTSTR_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1611__OUTSTR_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1611__OUTSTR_ERR.obj_hash = 752961313;
-  cdat->dobj_1611__OUTSTR_ERR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1611__OUTSTR_ERR));
- 
- /*inimult dtup_1612__OUTSTR_ERR*/
- /*_.VALTUP___V1623*/ curfptr[1622] = (void*)&cdat->dtup_1612__OUTSTR_ERR;
-  cdat->dtup_1612__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1612__OUTSTR_ERR.nbval = 3;
- /*inimult dtup_1613__OUTSTR_ERR*/
- /*_.VALTUP___V1620*/ curfptr[1619] = (void*)&cdat->dtup_1613__OUTSTR_ERR;
-  cdat->dtup_1613__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1613__OUTSTR_ERR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1026:/ iniobj");
- /*iniobj dobj_1614*/
- if (!/*_.VALDATA___V1619*/ curfptr[1618]) /*_.VALDATA___V1619*/ curfptr[1618] = (void*)&cdat->dobj_1614;
-  melt_assertmsg("iniobj checkdiscr dobj_1614", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1614.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1614.obj_num = 0;
-  cdat->dobj_1614.obj_hash = 463209639;
-  cdat->dobj_1614.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1614));
- 
- /*inistring dstr_1615__melt_putstr_stde*/
- /*_.VALSTR___V1621*/ curfptr[1620] = (void*)&cdat->dstr_1615__melt_putstr_stde;
-  cdat->dstr_1615__melt_putstr_stde.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1615__melt_putstr_stde.val, "melt_putstr(stderr, (melt_ptr_t)(", sizeof(cdat->dstr_1615__melt_putstr_stde.val)-1);
- 
- /*inistring dstr_1616__*/
- /*_.VALSTR___V1622*/ curfptr[1621] = (void*)&cdat->dstr_1616__;
-  cdat->dstr_1616__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1616__.val, "))", sizeof(cdat->dstr_1616__.val)-1);
- 
- /*inistring dstr_1617__OUTSTR_ERR*/
- /*_.VALSTR___V1618*/ curfptr[1617] = (void*)&cdat->dstr_1617__OUTSTR_ERR;
-  cdat->dstr_1617__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1617__OUTSTR_ERR.val, "OUTSTR_ERR", sizeof(cdat->dstr_1617__OUTSTR_ERR.val)-1);
- 
- /*iniobj dsym_1618__MESSAGE_DBG*/
- if (!/*_.VALDATA___V1624*/ curfptr[1623]) /*_.VALDATA___V1624*/ curfptr[1623] = (void*)&cdat->dsym_1618__MESSAGE_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1618__MESSAGE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1618__MESSAGE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1618__MESSAGE_DBG.obj_hash = 5092635;
-  cdat->dsym_1618__MESSAGE_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1618__MESSAGE_DBG));
- 
- /*inistring dstr_1619__MESSAGE_DBG*/
- /*_.VALSTR___V1625*/ curfptr[1624] = (void*)&cdat->dstr_1619__MESSAGE_DBG;
-  cdat->dstr_1619__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1619__MESSAGE_DBG.val, "MESSAGE_DBG", sizeof(cdat->dstr_1619__MESSAGE_DBG.val)-1);
+ /*iniobj dobj_1570*/
+ if (!/*_.VALDATA___V1575*/ curfptr[1574]) /*_.VALDATA___V1575*/ curfptr[1574] = (void*)&cdat->dobj_1570;
+  melt_assertmsg("iniobj checkdiscr dobj_1570", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1570.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1570.obj_num = 2;
+  cdat->dobj_1570.obj_hash = 176775989;
+  cdat->dobj_1570.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1570));
+ 
+ /*inistring dstr_1571__melt_putnum_stde*/
+ /*_.VALSTR___V1577*/ curfptr[1576] = (void*)&cdat->dstr_1571__melt_putnum_stde;
+  cdat->dstr_1571__melt_putnum_stde.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1571__melt_putnum_stde.val, "melt_putnum(stderr,(", sizeof(cdat->dstr_1571__melt_putnum_stde.val)-1);
+ 
+ /*inistring dstr_1572__*/
+ /*_.VALSTR___V1578*/ curfptr[1577] = (void*)&cdat->dstr_1572__;
+  cdat->dstr_1572__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1572__.val, "), (", sizeof(cdat->dstr_1572__.val)-1);
+ 
+ /*inistring dstr_1573__*/
+ /*_.VALSTR___V1579*/ curfptr[1578] = (void*)&cdat->dstr_1573__;
+  cdat->dstr_1573__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1573__.val, "), (", sizeof(cdat->dstr_1573__.val)-1);
+ 
+ /*inistring dstr_1574__*/
+ /*_.VALSTR___V1580*/ curfptr[1579] = (void*)&cdat->dstr_1574__;
+  cdat->dstr_1574__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1574__.val, "))", sizeof(cdat->dstr_1574__.val)-1);
+ 
+ /*inistring dstr_1575__OUTNUM_ERR*/
+ /*_.VALSTR___V1572*/ curfptr[1571] = (void*)&cdat->dstr_1575__OUTNUM_ERR;
+  cdat->dstr_1575__OUTNUM_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1575__OUTNUM_ERR.val, "OUTNUM_ERR", sizeof(cdat->dstr_1575__OUTNUM_ERR.val)-1);
+ 
+ /*iniobj dsym_1576__OUTCSTRING_ERR*/
+ if (!/*_.VALDATA___V1582*/ curfptr[1581]) /*_.VALDATA___V1582*/ curfptr[1581] = (void*)&cdat->dsym_1576__OUTCSTRING_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1576__OUTCSTRING_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1576__OUTCSTRING_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1576__OUTCSTRING_ERR.obj_hash = 395394604;
+  cdat->dsym_1576__OUTCSTRING_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1576__OUTCSTRING_ERR));
+ 
+ /*inistring dstr_1577__OUTCSTRING_ERR*/
+ /*_.VALSTR___V1583*/ curfptr[1582] = (void*)&cdat->dstr_1577__OUTCSTRING_ERR;
+  cdat->dstr_1577__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1577__OUTCSTRING_ERR.val, "OUTCSTRING_ERR", sizeof(cdat->dstr_1577__OUTCSTRING_ERR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1012:/ iniobj");
+ /*iniobj dobj_1578__OUTCSTRING_ERR*/
+ if (!/*_.VALDATA___V1584*/ curfptr[1583]) /*_.VALDATA___V1584*/ curfptr[1583] = (void*)&cdat->dobj_1578__OUTCSTRING_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1578__OUTCSTRING_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1578__OUTCSTRING_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1578__OUTCSTRING_ERR.obj_hash = 212613716;
+  cdat->dobj_1578__OUTCSTRING_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1578__OUTCSTRING_ERR));
+ 
+ /*inimult dtup_1579__OUTCSTRING_ERR*/
+ /*_.VALTUP___V1590*/ curfptr[1589] = (void*)&cdat->dtup_1579__OUTCSTRING_ERR;
+  cdat->dtup_1579__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1579__OUTCSTRING_ERR.nbval = 3;
+ /*inimult dtup_1580__OUTCSTRING_ERR*/
+ /*_.VALTUP___V1587*/ curfptr[1586] = (void*)&cdat->dtup_1580__OUTCSTRING_ERR;
+  cdat->dtup_1580__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1580__OUTCSTRING_ERR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1012:/ iniobj");
+ /*iniobj dobj_1581*/
+ if (!/*_.VALDATA___V1586*/ curfptr[1585]) /*_.VALDATA___V1586*/ curfptr[1585] = (void*)&cdat->dobj_1581;
+  melt_assertmsg("iniobj checkdiscr dobj_1581", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1581.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1581.obj_num = 0;
+  cdat->dobj_1581.obj_hash = 101579614;
+  cdat->dobj_1581.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1581));
+ 
+ /*inistring dstr_1582__melt_puts_stderr*/
+ /*_.VALSTR___V1588*/ curfptr[1587] = (void*)&cdat->dstr_1582__melt_puts_stderr;
+  cdat->dstr_1582__melt_puts_stderr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1582__melt_puts_stderr.val, "melt_puts(stderr,(", sizeof(cdat->dstr_1582__melt_puts_stderr.val)-1);
+ 
+ /*inistring dstr_1583__*/
+ /*_.VALSTR___V1589*/ curfptr[1588] = (void*)&cdat->dstr_1583__;
+  cdat->dstr_1583__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1583__.val, "))", sizeof(cdat->dstr_1583__.val)-1);
+ 
+ /*inistring dstr_1584__OUTCSTRING_ERR*/
+ /*_.VALSTR___V1585*/ curfptr[1584] = (void*)&cdat->dstr_1584__OUTCSTRING_ERR;
+  cdat->dstr_1584__OUTCSTRING_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1584__OUTCSTRING_ERR.val, "OUTCSTRING_ERR", sizeof(cdat->dstr_1584__OUTCSTRING_ERR.val)-1);
+ 
+ /*iniobj dsym_1585__OUTSTRBUF_ERR*/
+ if (!/*_.VALDATA___V1591*/ curfptr[1590]) /*_.VALDATA___V1591*/ curfptr[1590] = (void*)&cdat->dsym_1585__OUTSTRBUF_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1585__OUTSTRBUF_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1585__OUTSTRBUF_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1585__OUTSTRBUF_ERR.obj_hash = 599482803;
+  cdat->dsym_1585__OUTSTRBUF_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1585__OUTSTRBUF_ERR));
+ 
+ /*inistring dstr_1586__OUTSTRBUF_ERR*/
+ /*_.VALSTR___V1592*/ curfptr[1591] = (void*)&cdat->dstr_1586__OUTSTRBUF_ERR;
+  cdat->dstr_1586__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1586__OUTSTRBUF_ERR.val, "OUTSTRBUF_ERR", sizeof(cdat->dstr_1586__OUTSTRBUF_ERR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1015:/ iniobj");
+ /*iniobj dobj_1587__OUTSTRBUF_ERR*/
+ if (!/*_.VALDATA___V1593*/ curfptr[1592]) /*_.VALDATA___V1593*/ curfptr[1592] = (void*)&cdat->dobj_1587__OUTSTRBUF_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1587__OUTSTRBUF_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1587__OUTSTRBUF_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1587__OUTSTRBUF_ERR.obj_hash = 823297269;
+  cdat->dobj_1587__OUTSTRBUF_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1587__OUTSTRBUF_ERR));
+ 
+ /*inimult dtup_1588__OUTSTRBUF_ERR*/
+ /*_.VALTUP___V1599*/ curfptr[1598] = (void*)&cdat->dtup_1588__OUTSTRBUF_ERR;
+  cdat->dtup_1588__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1588__OUTSTRBUF_ERR.nbval = 3;
+ /*inimult dtup_1589__OUTSTRBUF_ERR*/
+ /*_.VALTUP___V1596*/ curfptr[1595] = (void*)&cdat->dtup_1589__OUTSTRBUF_ERR;
+  cdat->dtup_1589__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1589__OUTSTRBUF_ERR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1015:/ iniobj");
+ /*iniobj dobj_1590*/
+ if (!/*_.VALDATA___V1595*/ curfptr[1594]) /*_.VALDATA___V1595*/ curfptr[1594] = (void*)&cdat->dobj_1590;
+  melt_assertmsg("iniobj checkdiscr dobj_1590", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1590.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1590.obj_num = 0;
+  cdat->dobj_1590.obj_hash = 387327668;
+  cdat->dobj_1590.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1590));
+ 
+ /*inistring dstr_1591__melt_putstrbuf_s*/
+ /*_.VALSTR___V1597*/ curfptr[1596] = (void*)&cdat->dstr_1591__melt_putstrbuf_s;
+  cdat->dstr_1591__melt_putstrbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1591__melt_putstrbuf_s.val, "melt_putstrbuf(stderr,(melt_ptr_t)(", sizeof(cdat->dstr_1591__melt_putstrbuf_s.val)-1);
+ 
+ /*inistring dstr_1592__*/
+ /*_.VALSTR___V1598*/ curfptr[1597] = (void*)&cdat->dstr_1592__;
+  cdat->dstr_1592__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1592__.val, "))", sizeof(cdat->dstr_1592__.val)-1);
+ 
+ /*inistring dstr_1593__OUTSTRBUF_ERR*/
+ /*_.VALSTR___V1594*/ curfptr[1593] = (void*)&cdat->dstr_1593__OUTSTRBUF_ERR;
+  cdat->dstr_1593__OUTSTRBUF_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1593__OUTSTRBUF_ERR.val, "OUTSTRBUF_ERR", sizeof(cdat->dstr_1593__OUTSTRBUF_ERR.val)-1);
+ 
+ /*iniobj dsym_1594__OUTNEWLINE_ERR*/
+ if (!/*_.VALDATA___V1600*/ curfptr[1599]) /*_.VALDATA___V1600*/ curfptr[1599] = (void*)&cdat->dsym_1594__OUTNEWLINE_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1594__OUTNEWLINE_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1594__OUTNEWLINE_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1594__OUTNEWLINE_ERR.obj_hash = 111424262;
+  cdat->dsym_1594__OUTNEWLINE_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1594__OUTNEWLINE_ERR));
+ 
+ /*inistring dstr_1595__OUTNEWLINE_ERR*/
+ /*_.VALSTR___V1601*/ curfptr[1600] = (void*)&cdat->dstr_1595__OUTNEWLINE_ERR;
+  cdat->dstr_1595__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1595__OUTNEWLINE_ERR.val, "OUTNEWLINE_ERR", sizeof(cdat->dstr_1595__OUTNEWLINE_ERR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1018:/ iniobj");
+ /*iniobj dobj_1596__OUTNEWLINE_ERR*/
+ if (!/*_.VALDATA___V1602*/ curfptr[1601]) /*_.VALDATA___V1602*/ curfptr[1601] = (void*)&cdat->dobj_1596__OUTNEWLINE_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1596__OUTNEWLINE_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1596__OUTNEWLINE_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1596__OUTNEWLINE_ERR.obj_hash = 207778115;
+  cdat->dobj_1596__OUTNEWLINE_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1596__OUTNEWLINE_ERR));
+ 
+ /*inimult dtup_1597__OUTNEWLINE_ERR*/
+ /*_.VALTUP___V1606*/ curfptr[1605] = (void*)&cdat->dtup_1597__OUTNEWLINE_ERR;
+  cdat->dtup_1597__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1597__OUTNEWLINE_ERR.nbval = 1;
+ /*inimult dtup_1598__OUTNEWLINE_ERR*/
+ /*_.VALTUP___V1604*/ curfptr[1603] = (void*)&cdat->dtup_1598__OUTNEWLINE_ERR;
+  cdat->dtup_1598__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1598__OUTNEWLINE_ERR.nbval = 0;
+ /*inistring dstr_1599__melt_newlineflus*/
+ /*_.VALSTR___V1605*/ curfptr[1604] = (void*)&cdat->dstr_1599__melt_newlineflus;
+  cdat->dstr_1599__melt_newlineflus.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1599__melt_newlineflus.val, "melt_newlineflush(stderr)", sizeof(cdat->dstr_1599__melt_newlineflus.val)-1);
+ 
+ /*inistring dstr_1600__OUTNEWLINE_ERR*/
+ /*_.VALSTR___V1603*/ curfptr[1602] = (void*)&cdat->dstr_1600__OUTNEWLINE_ERR;
+  cdat->dstr_1600__OUTNEWLINE_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1600__OUTNEWLINE_ERR.val, "OUTNEWLINE_ERR", sizeof(cdat->dstr_1600__OUTNEWLINE_ERR.val)-1);
+ 
+ /*iniobj dsym_1601__OUTSTR_ERR*/
+ if (!/*_.VALDATA___V1607*/ curfptr[1606]) /*_.VALDATA___V1607*/ curfptr[1606] = (void*)&cdat->dsym_1601__OUTSTR_ERR;
+  melt_assertmsg("iniobj checkdiscr dsym_1601__OUTSTR_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1601__OUTSTR_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1601__OUTSTR_ERR.obj_hash = 948349339;
+  cdat->dsym_1601__OUTSTR_ERR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1601__OUTSTR_ERR));
+ 
+ /*inistring dstr_1602__OUTSTR_ERR*/
+ /*_.VALSTR___V1608*/ curfptr[1607] = (void*)&cdat->dstr_1602__OUTSTR_ERR;
+  cdat->dstr_1602__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1602__OUTSTR_ERR.val, "OUTSTR_ERR", sizeof(cdat->dstr_1602__OUTSTR_ERR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1021:/ iniobj");
+ /*iniobj dobj_1603__OUTSTR_ERR*/
+ if (!/*_.VALDATA___V1609*/ curfptr[1608]) /*_.VALDATA___V1609*/ curfptr[1608] = (void*)&cdat->dobj_1603__OUTSTR_ERR;
+  melt_assertmsg("iniobj checkdiscr dobj_1603__OUTSTR_ERR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1603__OUTSTR_ERR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1603__OUTSTR_ERR.obj_hash = 588266157;
+  cdat->dobj_1603__OUTSTR_ERR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1603__OUTSTR_ERR));
+ 
+ /*inimult dtup_1604__OUTSTR_ERR*/
+ /*_.VALTUP___V1615*/ curfptr[1614] = (void*)&cdat->dtup_1604__OUTSTR_ERR;
+  cdat->dtup_1604__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1604__OUTSTR_ERR.nbval = 3;
+ /*inimult dtup_1605__OUTSTR_ERR*/
+ /*_.VALTUP___V1612*/ curfptr[1611] = (void*)&cdat->dtup_1605__OUTSTR_ERR;
+  cdat->dtup_1605__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1605__OUTSTR_ERR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1021:/ iniobj");
+ /*iniobj dobj_1606*/
+ if (!/*_.VALDATA___V1611*/ curfptr[1610]) /*_.VALDATA___V1611*/ curfptr[1610] = (void*)&cdat->dobj_1606;
+  melt_assertmsg("iniobj checkdiscr dobj_1606", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1606.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1606.obj_num = 0;
+  cdat->dobj_1606.obj_hash = 910188438;
+  cdat->dobj_1606.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1606));
+ 
+ /*inistring dstr_1607__melt_putstr_stde*/
+ /*_.VALSTR___V1613*/ curfptr[1612] = (void*)&cdat->dstr_1607__melt_putstr_stde;
+  cdat->dstr_1607__melt_putstr_stde.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1607__melt_putstr_stde.val, "melt_putstr(stderr, (melt_ptr_t)(", sizeof(cdat->dstr_1607__melt_putstr_stde.val)-1);
+ 
+ /*inistring dstr_1608__*/
+ /*_.VALSTR___V1614*/ curfptr[1613] = (void*)&cdat->dstr_1608__;
+  cdat->dstr_1608__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1608__.val, "))", sizeof(cdat->dstr_1608__.val)-1);
+ 
+ /*inistring dstr_1609__OUTSTR_ERR*/
+ /*_.VALSTR___V1610*/ curfptr[1609] = (void*)&cdat->dstr_1609__OUTSTR_ERR;
+  cdat->dstr_1609__OUTSTR_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1609__OUTSTR_ERR.val, "OUTSTR_ERR", sizeof(cdat->dstr_1609__OUTSTR_ERR.val)-1);
+ 
+ /*iniobj dsym_1610__MESSAGE_DBG*/
+ if (!/*_.VALDATA___V1616*/ curfptr[1615]) /*_.VALDATA___V1616*/ curfptr[1615] = (void*)&cdat->dsym_1610__MESSAGE_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1610__MESSAGE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1610__MESSAGE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1610__MESSAGE_DBG.obj_hash = 5092635;
+  cdat->dsym_1610__MESSAGE_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1610__MESSAGE_DBG));
+ 
+ /*inistring dstr_1611__MESSAGE_DBG*/
+ /*_.VALSTR___V1617*/ curfptr[1616] = (void*)&cdat->dstr_1611__MESSAGE_DBG;
+  cdat->dstr_1611__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1611__MESSAGE_DBG.val, "MESSAGE_DBG", sizeof(cdat->dstr_1611__MESSAGE_DBG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1025:/ iniobj");
+ /*iniobj dobj_1612__MESSAGE_DBG*/
+ if (!/*_.VALDATA___V1618*/ curfptr[1617]) /*_.VALDATA___V1618*/ curfptr[1617] = (void*)&cdat->dobj_1612__MESSAGE_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1612__MESSAGE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1612__MESSAGE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1612__MESSAGE_DBG.obj_hash = 592895653;
+  cdat->dobj_1612__MESSAGE_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1612__MESSAGE_DBG));
+ 
+ /*inimult dtup_1613__MESSAGE_DBG*/
+ /*_.VALTUP___V1624*/ curfptr[1623] = (void*)&cdat->dtup_1613__MESSAGE_DBG;
+  cdat->dtup_1613__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1613__MESSAGE_DBG.nbval = 3;
+ /*inimult dtup_1614__MESSAGE_DBG*/
+ /*_.VALTUP___V1621*/ curfptr[1620] = (void*)&cdat->dtup_1614__MESSAGE_DBG;
+  cdat->dtup_1614__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1614__MESSAGE_DBG.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1025:/ iniobj");
+ /*iniobj dobj_1615*/
+ if (!/*_.VALDATA___V1620*/ curfptr[1619]) /*_.VALDATA___V1620*/ curfptr[1619] = (void*)&cdat->dobj_1615;
+  melt_assertmsg("iniobj checkdiscr dobj_1615", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1615.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1615.obj_num = 0;
+  cdat->dobj_1615.obj_hash = 444147285;
+  cdat->dobj_1615.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1615));
+ 
+ /*inistring dstr_1616__debugeputs_*/
+ /*_.VALSTR___V1622*/ curfptr[1621] = (void*)&cdat->dstr_1616__debugeputs_;
+  cdat->dstr_1616__debugeputs_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1616__debugeputs_.val, "debugeputs((", sizeof(cdat->dstr_1616__debugeputs_.val)-1);
+ 
+ /*inistring dstr_1617__*/
+ /*_.VALSTR___V1623*/ curfptr[1622] = (void*)&cdat->dstr_1617__;
+  cdat->dstr_1617__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1617__.val, "))", sizeof(cdat->dstr_1617__.val)-1);
+ 
+ /*inistring dstr_1618__MESSAGE_DBG*/
+ /*_.VALSTR___V1619*/ curfptr[1618] = (void*)&cdat->dstr_1618__MESSAGE_DBG;
+  cdat->dstr_1618__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1618__MESSAGE_DBG.val, "MESSAGE_DBG", sizeof(cdat->dstr_1618__MESSAGE_DBG.val)-1);
+ 
+ /*iniobj dsym_1619__MESSAGENUM_DBG*/
+ if (!/*_.VALDATA___V1625*/ curfptr[1624]) /*_.VALDATA___V1625*/ curfptr[1624] = (void*)&cdat->dsym_1619__MESSAGENUM_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1619__MESSAGENUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1619__MESSAGENUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1619__MESSAGENUM_DBG.obj_hash = 484943247;
+  cdat->dsym_1619__MESSAGENUM_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1619__MESSAGENUM_DBG));
+ 
+ /*inistring dstr_1620__MESSAGENUM_DBG*/
+ /*_.VALSTR___V1626*/ curfptr[1625] = (void*)&cdat->dstr_1620__MESSAGENUM_DBG;
+  cdat->dstr_1620__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1620__MESSAGENUM_DBG.val, "MESSAGENUM_DBG", sizeof(cdat->dstr_1620__MESSAGENUM_DBG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1027:/ iniobj");
+ /*iniobj dobj_1621__MESSAGENUM_DBG*/
+ if (!/*_.VALDATA___V1627*/ curfptr[1626]) /*_.VALDATA___V1627*/ curfptr[1626] = (void*)&cdat->dobj_1621__MESSAGENUM_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1621__MESSAGENUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1621__MESSAGENUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1621__MESSAGENUM_DBG.obj_hash = 72159977;
+  cdat->dobj_1621__MESSAGENUM_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1621__MESSAGENUM_DBG));
+ 
+ /*inimult dtup_1622__MESSAGENUM_DBG*/
+ /*_.VALTUP___V1635*/ curfptr[1634] = (void*)&cdat->dtup_1622__MESSAGENUM_DBG;
+  cdat->dtup_1622__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1622__MESSAGENUM_DBG.nbval = 5;
+ /*inimult dtup_1623__MESSAGENUM_DBG*/
+ /*_.VALTUP___V1631*/ curfptr[1630] = (void*)&cdat->dtup_1623__MESSAGENUM_DBG;
+  cdat->dtup_1623__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1623__MESSAGENUM_DBG.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1027:/ iniobj");
+ /*iniobj dobj_1624*/
+ if (!/*_.VALDATA___V1629*/ curfptr[1628]) /*_.VALDATA___V1629*/ curfptr[1628] = (void*)&cdat->dobj_1624;
+  melt_assertmsg("iniobj checkdiscr dobj_1624", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1624.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1624.obj_num = 0;
+  cdat->dobj_1624.obj_hash = 726929054;
+  cdat->dobj_1624.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1624));
+ 
+ MELT_LOCATION("warmelt-first.melt:1027:/ iniobj");
+ /*iniobj dobj_1625*/
+ if (!/*_.VALDATA___V1630*/ curfptr[1629]) /*_.VALDATA___V1630*/ curfptr[1629] = (void*)&cdat->dobj_1625;
+  melt_assertmsg("iniobj checkdiscr dobj_1625", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1625.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1625.obj_num = 1;
+  cdat->dobj_1625.obj_hash = 548594920;
+  cdat->dobj_1625.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1625));
+ 
+ /*inistring dstr_1626__debugnum_*/
+ /*_.VALSTR___V1632*/ curfptr[1631] = (void*)&cdat->dstr_1626__debugnum_;
+  cdat->dstr_1626__debugnum_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1626__debugnum_.val, "debugnum((", sizeof(cdat->dstr_1626__debugnum_.val)-1);
+ 
+ /*inistring dstr_1627__*/
+ /*_.VALSTR___V1633*/ curfptr[1632] = (void*)&cdat->dstr_1627__;
+  cdat->dstr_1627__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1627__.val, "), (", sizeof(cdat->dstr_1627__.val)-1);
+ 
+ /*inistring dstr_1628__*/
+ /*_.VALSTR___V1634*/ curfptr[1633] = (void*)&cdat->dstr_1628__;
+  cdat->dstr_1628__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1628__.val, "))", sizeof(cdat->dstr_1628__.val)-1);
+ 
+ /*inistring dstr_1629__MESSAGENUM_DBG*/
+ /*_.VALSTR___V1628*/ curfptr[1627] = (void*)&cdat->dstr_1629__MESSAGENUM_DBG;
+  cdat->dstr_1629__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1629__MESSAGENUM_DBG.val, "MESSAGENUM_DBG", sizeof(cdat->dstr_1629__MESSAGENUM_DBG.val)-1);
+ 
+ /*iniobj dsym_1630__MESSAGEVAL_DBG*/
+ if (!/*_.VALDATA___V1636*/ curfptr[1635]) /*_.VALDATA___V1636*/ curfptr[1635] = (void*)&cdat->dsym_1630__MESSAGEVAL_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1630__MESSAGEVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1630__MESSAGEVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1630__MESSAGEVAL_DBG.obj_hash = 749741803;
+  cdat->dsym_1630__MESSAGEVAL_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1630__MESSAGEVAL_DBG));
+ 
+ /*inistring dstr_1631__MESSAGEVAL_DBG*/
+ /*_.VALSTR___V1637*/ curfptr[1636] = (void*)&cdat->dstr_1631__MESSAGEVAL_DBG;
+  cdat->dstr_1631__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1631__MESSAGEVAL_DBG.val, "MESSAGEVAL_DBG", sizeof(cdat->dstr_1631__MESSAGEVAL_DBG.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1030:/ iniobj");
- /*iniobj dobj_1620__MESSAGE_DBG*/
- if (!/*_.VALDATA___V1626*/ curfptr[1625]) /*_.VALDATA___V1626*/ curfptr[1625] = (void*)&cdat->dobj_1620__MESSAGE_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1620__MESSAGE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1620__MESSAGE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1620__MESSAGE_DBG.obj_hash = 673601548;
-  cdat->dobj_1620__MESSAGE_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1620__MESSAGE_DBG));
- 
- /*inimult dtup_1621__MESSAGE_DBG*/
- /*_.VALTUP___V1632*/ curfptr[1631] = (void*)&cdat->dtup_1621__MESSAGE_DBG;
-  cdat->dtup_1621__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1621__MESSAGE_DBG.nbval = 3;
- /*inimult dtup_1622__MESSAGE_DBG*/
- /*_.VALTUP___V1629*/ curfptr[1628] = (void*)&cdat->dtup_1622__MESSAGE_DBG;
-  cdat->dtup_1622__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1622__MESSAGE_DBG.nbval = 1;
+ /*iniobj dobj_1632__MESSAGEVAL_DBG*/
+ if (!/*_.VALDATA___V1638*/ curfptr[1637]) /*_.VALDATA___V1638*/ curfptr[1637] = (void*)&cdat->dobj_1632__MESSAGEVAL_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1632__MESSAGEVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1632__MESSAGEVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1632__MESSAGEVAL_DBG.obj_hash = 434523272;
+  cdat->dobj_1632__MESSAGEVAL_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1632__MESSAGEVAL_DBG));
+ 
+ /*inimult dtup_1633__MESSAGEVAL_DBG*/
+ /*_.VALTUP___V1648*/ curfptr[1647] = (void*)&cdat->dtup_1633__MESSAGEVAL_DBG;
+  cdat->dtup_1633__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1633__MESSAGEVAL_DBG.nbval = 5;
+ /*inimult dtup_1634__MESSAGEVAL_DBG*/
+ /*_.VALTUP___V1644*/ curfptr[1643] = (void*)&cdat->dtup_1634__MESSAGEVAL_DBG;
+  cdat->dtup_1634__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1634__MESSAGEVAL_DBG.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1030:/ iniobj");
- /*iniobj dobj_1623*/
- if (!/*_.VALDATA___V1628*/ curfptr[1627]) /*_.VALDATA___V1628*/ curfptr[1627] = (void*)&cdat->dobj_1623;
-  melt_assertmsg("iniobj checkdiscr dobj_1623", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1623.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1623.obj_num = 0;
-  cdat->dobj_1623.obj_hash = 16568331;
-  cdat->dobj_1623.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1623));
- 
- /*inistring dstr_1624__debugeputs_*/
- /*_.VALSTR___V1630*/ curfptr[1629] = (void*)&cdat->dstr_1624__debugeputs_;
-  cdat->dstr_1624__debugeputs_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1624__debugeputs_.val, "debugeputs((", sizeof(cdat->dstr_1624__debugeputs_.val)-1);
- 
- /*inistring dstr_1625__*/
- /*_.VALSTR___V1631*/ curfptr[1630] = (void*)&cdat->dstr_1625__;
-  cdat->dstr_1625__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1625__.val, "))", sizeof(cdat->dstr_1625__.val)-1);
- 
- /*inistring dstr_1626__MESSAGE_DBG*/
- /*_.VALSTR___V1627*/ curfptr[1626] = (void*)&cdat->dstr_1626__MESSAGE_DBG;
-  cdat->dstr_1626__MESSAGE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1626__MESSAGE_DBG.val, "MESSAGE_DBG", sizeof(cdat->dstr_1626__MESSAGE_DBG.val)-1);
- 
- /*iniobj dsym_1627__MESSAGENUM_DBG*/
- if (!/*_.VALDATA___V1633*/ curfptr[1632]) /*_.VALDATA___V1633*/ curfptr[1632] = (void*)&cdat->dsym_1627__MESSAGENUM_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1627__MESSAGENUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1627__MESSAGENUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1627__MESSAGENUM_DBG.obj_hash = 484943247;
-  cdat->dsym_1627__MESSAGENUM_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1627__MESSAGENUM_DBG));
- 
- /*inistring dstr_1628__MESSAGENUM_DBG*/
- /*_.VALSTR___V1634*/ curfptr[1633] = (void*)&cdat->dstr_1628__MESSAGENUM_DBG;
-  cdat->dstr_1628__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1628__MESSAGENUM_DBG.val, "MESSAGENUM_DBG", sizeof(cdat->dstr_1628__MESSAGENUM_DBG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1032:/ iniobj");
- /*iniobj dobj_1629__MESSAGENUM_DBG*/
- if (!/*_.VALDATA___V1635*/ curfptr[1634]) /*_.VALDATA___V1635*/ curfptr[1634] = (void*)&cdat->dobj_1629__MESSAGENUM_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1629__MESSAGENUM_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1629__MESSAGENUM_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1629__MESSAGENUM_DBG.obj_hash = 678252540;
-  cdat->dobj_1629__MESSAGENUM_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1629__MESSAGENUM_DBG));
- 
- /*inimult dtup_1630__MESSAGENUM_DBG*/
- /*_.VALTUP___V1643*/ curfptr[1642] = (void*)&cdat->dtup_1630__MESSAGENUM_DBG;
-  cdat->dtup_1630__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1630__MESSAGENUM_DBG.nbval = 5;
- /*inimult dtup_1631__MESSAGENUM_DBG*/
- /*_.VALTUP___V1639*/ curfptr[1638] = (void*)&cdat->dtup_1631__MESSAGENUM_DBG;
-  cdat->dtup_1631__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1631__MESSAGENUM_DBG.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1032:/ iniobj");
- /*iniobj dobj_1632*/
- if (!/*_.VALDATA___V1637*/ curfptr[1636]) /*_.VALDATA___V1637*/ curfptr[1636] = (void*)&cdat->dobj_1632;
-  melt_assertmsg("iniobj checkdiscr dobj_1632", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1632.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1632.obj_num = 0;
-  cdat->dobj_1632.obj_hash = 880246634;
-  cdat->dobj_1632.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1632));
- 
- MELT_LOCATION("warmelt-first.melt:1032:/ iniobj");
- /*iniobj dobj_1633*/
- if (!/*_.VALDATA___V1638*/ curfptr[1637]) /*_.VALDATA___V1638*/ curfptr[1637] = (void*)&cdat->dobj_1633;
-  melt_assertmsg("iniobj checkdiscr dobj_1633", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1633.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1633.obj_num = 1;
-  cdat->dobj_1633.obj_hash = 117258696;
-  cdat->dobj_1633.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1633));
- 
- /*inistring dstr_1634__debugnum_*/
- /*_.VALSTR___V1640*/ curfptr[1639] = (void*)&cdat->dstr_1634__debugnum_;
-  cdat->dstr_1634__debugnum_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1634__debugnum_.val, "debugnum((", sizeof(cdat->dstr_1634__debugnum_.val)-1);
- 
- /*inistring dstr_1635__*/
- /*_.VALSTR___V1641*/ curfptr[1640] = (void*)&cdat->dstr_1635__;
-  cdat->dstr_1635__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1635__.val, "), (", sizeof(cdat->dstr_1635__.val)-1);
- 
- /*inistring dstr_1636__*/
- /*_.VALSTR___V1642*/ curfptr[1641] = (void*)&cdat->dstr_1636__;
-  cdat->dstr_1636__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1636__.val, "))", sizeof(cdat->dstr_1636__.val)-1);
- 
- /*inistring dstr_1637__MESSAGENUM_DBG*/
- /*_.VALSTR___V1636*/ curfptr[1635] = (void*)&cdat->dstr_1637__MESSAGENUM_DBG;
-  cdat->dstr_1637__MESSAGENUM_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1637__MESSAGENUM_DBG.val, "MESSAGENUM_DBG", sizeof(cdat->dstr_1637__MESSAGENUM_DBG.val)-1);
- 
- /*iniobj dsym_1638__MESSAGEVAL_DBG*/
- if (!/*_.VALDATA___V1644*/ curfptr[1643]) /*_.VALDATA___V1644*/ curfptr[1643] = (void*)&cdat->dsym_1638__MESSAGEVAL_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1638__MESSAGEVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1638__MESSAGEVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1638__MESSAGEVAL_DBG.obj_hash = 749741803;
-  cdat->dsym_1638__MESSAGEVAL_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1638__MESSAGEVAL_DBG));
- 
- /*inistring dstr_1639__MESSAGEVAL_DBG*/
- /*_.VALSTR___V1645*/ curfptr[1644] = (void*)&cdat->dstr_1639__MESSAGEVAL_DBG;
-  cdat->dstr_1639__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1639__MESSAGEVAL_DBG.val, "MESSAGEVAL_DBG", sizeof(cdat->dstr_1639__MESSAGEVAL_DBG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1035:/ iniobj");
- /*iniobj dobj_1640__MESSAGEVAL_DBG*/
- if (!/*_.VALDATA___V1646*/ curfptr[1645]) /*_.VALDATA___V1646*/ curfptr[1645] = (void*)&cdat->dobj_1640__MESSAGEVAL_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1640__MESSAGEVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1640__MESSAGEVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1640__MESSAGEVAL_DBG.obj_hash = 422340075;
-  cdat->dobj_1640__MESSAGEVAL_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1640__MESSAGEVAL_DBG));
- 
- /*inimult dtup_1641__MESSAGEVAL_DBG*/
- /*_.VALTUP___V1656*/ curfptr[1655] = (void*)&cdat->dtup_1641__MESSAGEVAL_DBG;
-  cdat->dtup_1641__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1641__MESSAGEVAL_DBG.nbval = 5;
- /*inimult dtup_1642__MESSAGEVAL_DBG*/
- /*_.VALTUP___V1652*/ curfptr[1651] = (void*)&cdat->dtup_1642__MESSAGEVAL_DBG;
-  cdat->dtup_1642__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1642__MESSAGEVAL_DBG.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1035:/ iniobj");
- /*iniobj dobj_1643*/
- if (!/*_.VALDATA___V1648*/ curfptr[1647]) /*_.VALDATA___V1648*/ curfptr[1647] = (void*)&cdat->dobj_1643;
-  melt_assertmsg("iniobj checkdiscr dobj_1643", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1643.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1643.obj_num = 0;
-  cdat->dobj_1643.obj_hash = 774445564;
-  cdat->dobj_1643.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1643));
- 
- /*iniobj dsym_1644__VAL*/
- if (!/*_.VALDATA___V1650*/ curfptr[1649]) /*_.VALDATA___V1650*/ curfptr[1649] = (void*)&cdat->dsym_1644__VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_1644__VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1644__VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1644__VAL.obj_hash = 122845685;
-  cdat->dsym_1644__VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1644__VAL));
- 
- /*inistring dstr_1645__VAL*/
- /*_.VALSTR___V1651*/ curfptr[1650] = (void*)&cdat->dstr_1645__VAL;
-  cdat->dstr_1645__VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1645__VAL.val, "VAL", sizeof(cdat->dstr_1645__VAL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1035:/ iniobj");
- /*iniobj dobj_1646*/
- if (!/*_.VALDATA___V1649*/ curfptr[1648]) /*_.VALDATA___V1649*/ curfptr[1648] = (void*)&cdat->dobj_1646;
-  melt_assertmsg("iniobj checkdiscr dobj_1646", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1646.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1646.obj_num = 1;
-  cdat->dobj_1646.obj_hash = 751068479;
-  cdat->dobj_1646.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1646));
- 
- /*inistring dstr_1647__debugvalue_*/
- /*_.VALSTR___V1653*/ curfptr[1652] = (void*)&cdat->dstr_1647__debugvalue_;
-  cdat->dstr_1647__debugvalue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1647__debugvalue_.val, "debugvalue((", sizeof(cdat->dstr_1647__debugvalue_.val)-1);
- 
- /*inistring dstr_1648__void_*/
- /*_.VALSTR___V1654*/ curfptr[1653] = (void*)&cdat->dstr_1648__void_;
-  cdat->dstr_1648__void_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1648__void_.val, "), ((void*)(", sizeof(cdat->dstr_1648__void_.val)-1);
- 
- /*inistring dstr_1649__*/
- /*_.VALSTR___V1655*/ curfptr[1654] = (void*)&cdat->dstr_1649__;
-  cdat->dstr_1649__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1649__.val, ")))", sizeof(cdat->dstr_1649__.val)-1);
- 
- /*inistring dstr_1650__MESSAGEVAL_DBG*/
- /*_.VALSTR___V1647*/ curfptr[1646] = (void*)&cdat->dstr_1650__MESSAGEVAL_DBG;
-  cdat->dstr_1650__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1650__MESSAGEVAL_DBG.val, "MESSAGEVAL_DBG", sizeof(cdat->dstr_1650__MESSAGEVAL_DBG.val)-1);
- 
- /*iniobj dsym_1651__LONGBACKTRACE_DBG*/
- if (!/*_.VALDATA___V1657*/ curfptr[1656]) /*_.VALDATA___V1657*/ curfptr[1656] = (void*)&cdat->dsym_1651__LONGBACKTRACE_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1651__LONGBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1651__LONGBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1651__LONGBACKTRACE_DBG.obj_hash = 295179358;
-  cdat->dsym_1651__LONGBACKTRACE_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1651__LONGBACKTRACE_DBG));
- 
- /*inistring dstr_1652__LONGBACKTRACE_DB*/
- /*_.VALSTR___V1658*/ curfptr[1657] = (void*)&cdat->dstr_1652__LONGBACKTRACE_DB;
-  cdat->dstr_1652__LONGBACKTRACE_DB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1652__LONGBACKTRACE_DB.val, "LONGBACKTRACE_DBG", sizeof(cdat->dstr_1652__LONGBACKTRACE_DB.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1038:/ iniobj");
- /*iniobj dobj_1653__LONGBACKTRACE_DBG*/
- if (!/*_.VALDATA___V1659*/ curfptr[1658]) /*_.VALDATA___V1659*/ curfptr[1658] = (void*)&cdat->dobj_1653__LONGBACKTRACE_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1653__LONGBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1653__LONGBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1653__LONGBACKTRACE_DBG.obj_hash = 702718157;
-  cdat->dobj_1653__LONGBACKTRACE_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1653__LONGBACKTRACE_DBG));
- 
- /*inimult dtup_1654__LONGBACKTRACE_DBG*/
- /*_.VALTUP___V1668*/ curfptr[1667] = (void*)&cdat->dtup_1654__LONGBACKTRACE_DBG;
-  cdat->dtup_1654__LONGBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1654__LONGBACKTRACE_DBG.nbval = 3;
- /*inimult dtup_1655__LONGBACKTRACE_DBG*/
- /*_.VALTUP___V1665*/ curfptr[1664] = (void*)&cdat->dtup_1655__LONGBACKTRACE_DBG;
-  cdat->dtup_1655__LONGBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1655__LONGBACKTRACE_DBG.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1038:/ iniobj");
- /*iniobj dobj_1656*/
- if (!/*_.VALDATA___V1661*/ curfptr[1660]) /*_.VALDATA___V1661*/ curfptr[1660] = (void*)&cdat->dobj_1656;
-  melt_assertmsg("iniobj checkdiscr dobj_1656", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1656.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1656.obj_num = 0;
-  cdat->dobj_1656.obj_hash = 430425562;
-  cdat->dobj_1656.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1656));
- 
- /*iniobj dsym_1657__MAXDEPTH*/
- if (!/*_.VALDATA___V1663*/ curfptr[1662]) /*_.VALDATA___V1663*/ curfptr[1662] = (void*)&cdat->dsym_1657__MAXDEPTH;
-  melt_assertmsg("iniobj checkdiscr dsym_1657__MAXDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1657__MAXDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1657__MAXDEPTH.obj_hash = 129778328;
-  cdat->dsym_1657__MAXDEPTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1657__MAXDEPTH));
- 
- /*inistring dstr_1658__MAXDEPTH*/
- /*_.VALSTR___V1664*/ curfptr[1663] = (void*)&cdat->dstr_1658__MAXDEPTH;
-  cdat->dstr_1658__MAXDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1658__MAXDEPTH.val, "MAXDEPTH", sizeof(cdat->dstr_1658__MAXDEPTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1038:/ iniobj");
- /*iniobj dobj_1659*/
- if (!/*_.VALDATA___V1662*/ curfptr[1661]) /*_.VALDATA___V1662*/ curfptr[1661] = (void*)&cdat->dobj_1659;
-  melt_assertmsg("iniobj checkdiscr dobj_1659", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1659.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1659.obj_num = 1;
-  cdat->dobj_1659.obj_hash = 688580939;
-  cdat->dobj_1659.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1659));
- 
- /*inistring dstr_1660__debugbacktrace_*/
- /*_.VALSTR___V1666*/ curfptr[1665] = (void*)&cdat->dstr_1660__debugbacktrace_;
-  cdat->dstr_1660__debugbacktrace_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1660__debugbacktrace_.val, "debugbacktrace((", sizeof(cdat->dstr_1660__debugbacktrace_.val)-1);
- 
- /*inistring dstr_1661__int_maxdept*/
- /*_.VALSTR___V1667*/ curfptr[1666] = (void*)&cdat->dstr_1661__int_maxdept;
-  cdat->dstr_1661__int_maxdept.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1661__int_maxdept.val, "), (int)(maxdepth))", sizeof(cdat->dstr_1661__int_maxdept.val)-1);
- 
- /*inistring dstr_1662__LONGBACKTRACE_DB*/
- /*_.VALSTR___V1660*/ curfptr[1659] = (void*)&cdat->dstr_1662__LONGBACKTRACE_DB;
-  cdat->dstr_1662__LONGBACKTRACE_DB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1662__LONGBACKTRACE_DB.val, "LONGBACKTRACE_DBG", sizeof(cdat->dstr_1662__LONGBACKTRACE_DB.val)-1);
- 
- /*iniobj dsym_1663__SHORTBACKTRACE_DBG*/
- if (!/*_.VALDATA___V1669*/ curfptr[1668]) /*_.VALDATA___V1669*/ curfptr[1668] = (void*)&cdat->dsym_1663__SHORTBACKTRACE_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1663__SHORTBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1663__SHORTBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1663__SHORTBACKTRACE_DBG.obj_hash = 665687006;
-  cdat->dsym_1663__SHORTBACKTRACE_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1663__SHORTBACKTRACE_DBG));
- 
- /*inistring dstr_1664__SHORTBACKTRACE_D*/
- /*_.VALSTR___V1670*/ curfptr[1669] = (void*)&cdat->dstr_1664__SHORTBACKTRACE_D;
-  cdat->dstr_1664__SHORTBACKTRACE_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1664__SHORTBACKTRACE_D.val, "SHORTBACKTRACE_DBG", sizeof(cdat->dstr_1664__SHORTBACKTRACE_D.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1041:/ iniobj");
- /*iniobj dobj_1665__SHORTBACKTRACE_DBG*/
- if (!/*_.VALDATA___V1671*/ curfptr[1670]) /*_.VALDATA___V1671*/ curfptr[1670] = (void*)&cdat->dobj_1665__SHORTBACKTRACE_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1665__SHORTBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1665__SHORTBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1665__SHORTBACKTRACE_DBG.obj_hash = 598901088;
-  cdat->dobj_1665__SHORTBACKTRACE_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1665__SHORTBACKTRACE_DBG));
- 
- /*inimult dtup_1666__SHORTBACKTRACE_DBG*/
- /*_.VALTUP___V1679*/ curfptr[1678] = (void*)&cdat->dtup_1666__SHORTBACKTRACE_DBG;
-  cdat->dtup_1666__SHORTBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1666__SHORTBACKTRACE_DBG.nbval = 5;
- /*inimult dtup_1667__SHORTBACKTRACE_DBG*/
- /*_.VALTUP___V1675*/ curfptr[1674] = (void*)&cdat->dtup_1667__SHORTBACKTRACE_DBG;
-  cdat->dtup_1667__SHORTBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1667__SHORTBACKTRACE_DBG.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1041:/ iniobj");
- /*iniobj dobj_1668*/
- if (!/*_.VALDATA___V1673*/ curfptr[1672]) /*_.VALDATA___V1673*/ curfptr[1672] = (void*)&cdat->dobj_1668;
-  melt_assertmsg("iniobj checkdiscr dobj_1668", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1668.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1668.obj_num = 0;
-  cdat->dobj_1668.obj_hash = 90613220;
-  cdat->dobj_1668.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1668));
- 
- MELT_LOCATION("warmelt-first.melt:1041:/ iniobj");
- /*iniobj dobj_1669*/
- if (!/*_.VALDATA___V1674*/ curfptr[1673]) /*_.VALDATA___V1674*/ curfptr[1673] = (void*)&cdat->dobj_1669;
-  melt_assertmsg("iniobj checkdiscr dobj_1669", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1669.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1669.obj_num = 1;
-  cdat->dobj_1669.obj_hash = 521922645;
-  cdat->dobj_1669.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1669));
- 
- /*inistring dstr_1670__if_ENABLE_CHE*/
- /*_.VALSTR___V1676*/ curfptr[1675] = (void*)&cdat->dstr_1670__if_ENABLE_CHE;
-  cdat->dstr_1670__if_ENABLE_CHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1670__if_ENABLE_CHE.val, " \n#if ENABLE_CHECKING\n  if (flag_melt_debug)\n    melt_dbgshortbacktrace((", sizeof(cdat->dstr_1670__if_ENABLE_CHE.val)-1);
- 
- /*inistring dstr_1671__*/
- /*_.VALSTR___V1677*/ curfptr[1676] = (void*)&cdat->dstr_1671__;
-  cdat->dstr_1671__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1671__.val, "), (", sizeof(cdat->dstr_1671__.val)-1);
- 
- /*inistring dstr_1672__endif_*/
- /*_.VALSTR___V1678*/ curfptr[1677] = (void*)&cdat->dstr_1672__endif_;
-  cdat->dstr_1672__endif_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1672__endif_.val, "));\n#endif\n", sizeof(cdat->dstr_1672__endif_.val)-1);
- 
- /*inistring dstr_1673__SHORTBACKTRACE_D*/
- /*_.VALSTR___V1672*/ curfptr[1671] = (void*)&cdat->dstr_1673__SHORTBACKTRACE_D;
-  cdat->dstr_1673__SHORTBACKTRACE_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1673__SHORTBACKTRACE_D.val, "SHORTBACKTRACE_DBG", sizeof(cdat->dstr_1673__SHORTBACKTRACE_D.val)-1);
- 
- /*iniobj dsym_1674__CHECKVAL_DBG*/
- if (!/*_.VALDATA___V1680*/ curfptr[1679]) /*_.VALDATA___V1680*/ curfptr[1679] = (void*)&cdat->dsym_1674__CHECKVAL_DBG;
-  melt_assertmsg("iniobj checkdiscr dsym_1674__CHECKVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1674__CHECKVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1674__CHECKVAL_DBG.obj_hash = 220121357;
-  cdat->dsym_1674__CHECKVAL_DBG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1674__CHECKVAL_DBG));
- 
- /*inistring dstr_1675__CHECKVAL_DBG*/
- /*_.VALSTR___V1681*/ curfptr[1680] = (void*)&cdat->dstr_1675__CHECKVAL_DBG;
-  cdat->dstr_1675__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1675__CHECKVAL_DBG.val, "CHECKVAL_DBG", sizeof(cdat->dstr_1675__CHECKVAL_DBG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1049:/ iniobj");
- /*iniobj dobj_1676__CHECKVAL_DBG*/
- if (!/*_.VALDATA___V1682*/ curfptr[1681]) /*_.VALDATA___V1682*/ curfptr[1681] = (void*)&cdat->dobj_1676__CHECKVAL_DBG;
-  melt_assertmsg("iniobj checkdiscr dobj_1676__CHECKVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1676__CHECKVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1676__CHECKVAL_DBG.obj_hash = 671975425;
-  cdat->dobj_1676__CHECKVAL_DBG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1676__CHECKVAL_DBG));
- 
- /*inimult dtup_1677__CHECKVAL_DBG*/
- /*_.VALTUP___V1690*/ curfptr[1689] = (void*)&cdat->dtup_1677__CHECKVAL_DBG;
-  cdat->dtup_1677__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1677__CHECKVAL_DBG.nbval = 5;
- /*inimult dtup_1678__CHECKVAL_DBG*/
- /*_.VALTUP___V1686*/ curfptr[1685] = (void*)&cdat->dtup_1678__CHECKVAL_DBG;
-  cdat->dtup_1678__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1678__CHECKVAL_DBG.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1049:/ iniobj");
- /*iniobj dobj_1679*/
- if (!/*_.VALDATA___V1684*/ curfptr[1683]) /*_.VALDATA___V1684*/ curfptr[1683] = (void*)&cdat->dobj_1679;
-  melt_assertmsg("iniobj checkdiscr dobj_1679", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1679.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1679.obj_num = 0;
-  cdat->dobj_1679.obj_hash = 602247628;
-  cdat->dobj_1679.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1679));
- 
- MELT_LOCATION("warmelt-first.melt:1049:/ iniobj");
- /*iniobj dobj_1680*/
- if (!/*_.VALDATA___V1685*/ curfptr[1684]) /*_.VALDATA___V1685*/ curfptr[1684] = (void*)&cdat->dobj_1680;
-  melt_assertmsg("iniobj checkdiscr dobj_1680", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1680.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1680.obj_num = 1;
-  cdat->dobj_1680.obj_hash = 1055487215;
-  cdat->dobj_1680.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1680));
- 
- /*inistring dstr_1681__melt_checked_ass*/
- /*_.VALSTR___V1687*/ curfptr[1686] = (void*)&cdat->dstr_1681__melt_checked_ass;
-  cdat->dstr_1681__melt_checked_ass.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1681__melt_checked_ass.val, "melt_checked_assignmsg ((", sizeof(cdat->dstr_1681__melt_checked_ass.val)-1);
- 
- /*inistring dstr_1682__*/
- /*_.VALSTR___V1688*/ curfptr[1687] = (void*)&cdat->dstr_1682__;
-  cdat->dstr_1682__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1682__.val, "),(", sizeof(cdat->dstr_1682__.val)-1);
- 
- /*inistring dstr_1683__*/
- /*_.VALSTR___V1689*/ curfptr[1688] = (void*)&cdat->dstr_1683__;
-  cdat->dstr_1683__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1683__.val, "))", sizeof(cdat->dstr_1683__.val)-1);
- 
- /*inistring dstr_1684__CHECKVAL_DBG*/
- /*_.VALSTR___V1683*/ curfptr[1682] = (void*)&cdat->dstr_1684__CHECKVAL_DBG;
-  cdat->dstr_1684__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1684__CHECKVAL_DBG.val, "CHECKVAL_DBG", sizeof(cdat->dstr_1684__CHECKVAL_DBG.val)-1);
- 
- /*iniobj dsym_1685__DEBUGCSTRING*/
- if (!/*_.VALDATA___V1691*/ curfptr[1690]) /*_.VALDATA___V1691*/ curfptr[1690] = (void*)&cdat->dsym_1685__DEBUGCSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_1685__DEBUGCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1685__DEBUGCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1685__DEBUGCSTRING.obj_hash = 897641084;
-  cdat->dsym_1685__DEBUGCSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1685__DEBUGCSTRING));
- 
- /*inistring dstr_1686__DEBUGCSTRING*/
- /*_.VALSTR___V1692*/ curfptr[1691] = (void*)&cdat->dstr_1686__DEBUGCSTRING;
-  cdat->dstr_1686__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1686__DEBUGCSTRING.val, "DEBUGCSTRING", sizeof(cdat->dstr_1686__DEBUGCSTRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1052:/ iniobj");
- /*iniobj dobj_1687__DEBUGCSTRING*/
- if (!/*_.VALDATA___V1693*/ curfptr[1692]) /*_.VALDATA___V1693*/ curfptr[1692] = (void*)&cdat->dobj_1687__DEBUGCSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_1687__DEBUGCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1687__DEBUGCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1687__DEBUGCSTRING.obj_hash = 400989140;
-  cdat->dobj_1687__DEBUGCSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1687__DEBUGCSTRING));
- 
- /*inimult dtup_1688__DEBUGCSTRING*/
- /*_.VALTUP___V1701*/ curfptr[1700] = (void*)&cdat->dtup_1688__DEBUGCSTRING;
-  cdat->dtup_1688__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1688__DEBUGCSTRING.nbval = 5;
- /*inimult dtup_1689__DEBUGCSTRING*/
- /*_.VALTUP___V1697*/ curfptr[1696] = (void*)&cdat->dtup_1689__DEBUGCSTRING;
-  cdat->dtup_1689__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1689__DEBUGCSTRING.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1052:/ iniobj");
- /*iniobj dobj_1690*/
- if (!/*_.VALDATA___V1695*/ curfptr[1694]) /*_.VALDATA___V1695*/ curfptr[1694] = (void*)&cdat->dobj_1690;
-  melt_assertmsg("iniobj checkdiscr dobj_1690", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1690.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1690.obj_num = 0;
-  cdat->dobj_1690.obj_hash = 781634618;
-  cdat->dobj_1690.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1690));
- 
- MELT_LOCATION("warmelt-first.melt:1052:/ iniobj");
- /*iniobj dobj_1691*/
- if (!/*_.VALDATA___V1696*/ curfptr[1695]) /*_.VALDATA___V1696*/ curfptr[1695] = (void*)&cdat->dobj_1691;
-  melt_assertmsg("iniobj checkdiscr dobj_1691", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1691.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1691.obj_num = 1;
-  cdat->dobj_1691.obj_hash = 220044027;
-  cdat->dobj_1691.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1691));
- 
- /*inistring dstr_1692__debugeprintf_de*/
- /*_.VALSTR___V1698*/ curfptr[1697] = (void*)&cdat->dstr_1692__debugeprintf_de;
-  cdat->dstr_1692__debugeprintf_de.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1692__debugeprintf_de.val, "debugeprintf(\"debugcstring %s \'%s\'\", ", sizeof(cdat->dstr_1692__debugeprintf_de.val)-1);
- 
- /*inistring dstr_1693__*/
- /*_.VALSTR___V1699*/ curfptr[1698] = (void*)&cdat->dstr_1693__;
-  cdat->dstr_1693__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1693__.val, ", ", sizeof(cdat->dstr_1693__.val)-1);
- 
- /*inistring dstr_1694__*/
- /*_.VALSTR___V1700*/ curfptr[1699] = (void*)&cdat->dstr_1694__;
-  cdat->dstr_1694__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1694__.val, ")", sizeof(cdat->dstr_1694__.val)-1);
- 
- /*inistring dstr_1695__DEBUGCSTRING*/
- /*_.VALSTR___V1694*/ curfptr[1693] = (void*)&cdat->dstr_1695__DEBUGCSTRING;
-  cdat->dstr_1695__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1695__DEBUGCSTRING.val, "DEBUGCSTRING", sizeof(cdat->dstr_1695__DEBUGCSTRING.val)-1);
- 
- /*iniobj dsym_1696__THE_NULL_CSTRING*/
- if (!/*_.VALDATA___V1702*/ curfptr[1701]) /*_.VALDATA___V1702*/ curfptr[1701] = (void*)&cdat->dsym_1696__THE_NULL_CSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_1696__THE_NULL_CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1696__THE_NULL_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1696__THE_NULL_CSTRING.obj_hash = 120594345;
-  cdat->dsym_1696__THE_NULL_CSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1696__THE_NULL_CSTRING));
- 
- /*inistring dstr_1697__THE_NULL_CSTRING*/
- /*_.VALSTR___V1703*/ curfptr[1702] = (void*)&cdat->dstr_1697__THE_NULL_CSTRING;
-  cdat->dstr_1697__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1697__THE_NULL_CSTRING.val, "THE_NULL_CSTRING", sizeof(cdat->dstr_1697__THE_NULL_CSTRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1056:/ iniobj");
- /*iniobj dobj_1698__THE_NULL_CSTRING*/
- if (!/*_.VALDATA___V1704*/ curfptr[1703]) /*_.VALDATA___V1704*/ curfptr[1703] = (void*)&cdat->dobj_1698__THE_NULL_CSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_1698__THE_NULL_CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1698__THE_NULL_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1698__THE_NULL_CSTRING.obj_hash = 195450294;
-  cdat->dobj_1698__THE_NULL_CSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1698__THE_NULL_CSTRING));
- 
- /*inimult dtup_1699__THE_NULL_CSTRING*/
- /*_.VALTUP___V1708*/ curfptr[1707] = (void*)&cdat->dtup_1699__THE_NULL_CSTRING;
-  cdat->dtup_1699__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1699__THE_NULL_CSTRING.nbval = 1;
- /*inimult dtup_1700__THE_NULL_CSTRING*/
- /*_.VALTUP___V1706*/ curfptr[1705] = (void*)&cdat->dtup_1700__THE_NULL_CSTRING;
-  cdat->dtup_1700__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1700__THE_NULL_CSTRING.nbval = 0;
- /*inistring dstr_1701__char_0*/
- /*_.VALSTR___V1707*/ curfptr[1706] = (void*)&cdat->dstr_1701__char_0;
-  cdat->dstr_1701__char_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1701__char_0.val, "(char*)0", sizeof(cdat->dstr_1701__char_0.val)-1);
- 
- /*inistring dstr_1702__THE_NULL_CSTRING*/
- /*_.VALSTR___V1705*/ curfptr[1704] = (void*)&cdat->dstr_1702__THE_NULL_CSTRING;
-  cdat->dstr_1702__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1702__THE_NULL_CSTRING.val, "THE_NULL_CSTRING", sizeof(cdat->dstr_1702__THE_NULL_CSTRING.val)-1);
- 
- /*iniobj dsym_1703__MAKE_STRBUF*/
- if (!/*_.VALDATA___V1709*/ curfptr[1708]) /*_.VALDATA___V1709*/ curfptr[1708] = (void*)&cdat->dsym_1703__MAKE_STRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1703__MAKE_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1703__MAKE_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1703__MAKE_STRBUF.obj_hash = 257024388;
-  cdat->dsym_1703__MAKE_STRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1703__MAKE_STRBUF));
- 
- /*inistring dstr_1704__MAKE_STRBUF*/
- /*_.VALSTR___V1710*/ curfptr[1709] = (void*)&cdat->dstr_1704__MAKE_STRBUF;
-  cdat->dstr_1704__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1704__MAKE_STRBUF.val, "MAKE_STRBUF", sizeof(cdat->dstr_1704__MAKE_STRBUF.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1064:/ iniobj");
- /*iniobj dobj_1705__MAKE_STRBUF*/
- if (!/*_.VALDATA___V1711*/ curfptr[1710]) /*_.VALDATA___V1711*/ curfptr[1710] = (void*)&cdat->dobj_1705__MAKE_STRBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_1705__MAKE_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1705__MAKE_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1705__MAKE_STRBUF.obj_hash = 663716420;
-  cdat->dobj_1705__MAKE_STRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1705__MAKE_STRBUF));
- 
- /*inimult dtup_1706__MAKE_STRBUF*/
- /*_.VALTUP___V1717*/ curfptr[1716] = (void*)&cdat->dtup_1706__MAKE_STRBUF;
-  cdat->dtup_1706__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1706__MAKE_STRBUF.nbval = 3;
- /*inimult dtup_1707__MAKE_STRBUF*/
- /*_.VALTUP___V1714*/ curfptr[1713] = (void*)&cdat->dtup_1707__MAKE_STRBUF;
-  cdat->dtup_1707__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1707__MAKE_STRBUF.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1064:/ iniobj");
- /*iniobj dobj_1708*/
- if (!/*_.VALDATA___V1713*/ curfptr[1712]) /*_.VALDATA___V1713*/ curfptr[1712] = (void*)&cdat->dobj_1708;
-  melt_assertmsg("iniobj checkdiscr dobj_1708", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1708.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1708.obj_num = 0;
-  cdat->dobj_1708.obj_hash = 1016809219;
-  cdat->dobj_1708.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1708));
- 
- /*inistring dstr_1709__meltgc_new_strbu*/
- /*_.VALSTR___V1715*/ curfptr[1714] = (void*)&cdat->dstr_1709__meltgc_new_strbu;
-  cdat->dstr_1709__meltgc_new_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1709__meltgc_new_strbu.val, "meltgc_new_strbuf((meltobject_ptr_t)(", sizeof(cdat->dstr_1709__meltgc_new_strbu.val)-1);
- 
- /*inistring dstr_1710__char_0_*/
- /*_.VALSTR___V1716*/ curfptr[1715] = (void*)&cdat->dstr_1710__char_0_;
-  cdat->dstr_1710__char_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1710__char_0_.val, "), (char*)0)", sizeof(cdat->dstr_1710__char_0_.val)-1);
- 
- /*inistring dstr_1711__MAKE_STRBUF*/
- /*_.VALSTR___V1712*/ curfptr[1711] = (void*)&cdat->dstr_1711__MAKE_STRBUF;
-  cdat->dstr_1711__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1711__MAKE_STRBUF.val, "MAKE_STRBUF", sizeof(cdat->dstr_1711__MAKE_STRBUF.val)-1);
- 
- /*iniobj dsym_1712__STRBUF_USEDLENGTH*/
- if (!/*_.VALDATA___V1718*/ curfptr[1717]) /*_.VALDATA___V1718*/ curfptr[1717] = (void*)&cdat->dsym_1712__STRBUF_USEDLENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_1712__STRBUF_USEDLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1712__STRBUF_USEDLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1712__STRBUF_USEDLENGTH.obj_hash = 851116200;
-  cdat->dsym_1712__STRBUF_USEDLENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1712__STRBUF_USEDLENGTH));
- 
- /*inistring dstr_1713__STRBUF_USEDLENGT*/
- /*_.VALSTR___V1719*/ curfptr[1718] = (void*)&cdat->dstr_1713__STRBUF_USEDLENGT;
-  cdat->dstr_1713__STRBUF_USEDLENGT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1713__STRBUF_USEDLENGT.val, "STRBUF_USEDLENGTH", sizeof(cdat->dstr_1713__STRBUF_USEDLENGT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1067:/ iniobj");
- /*iniobj dobj_1714__STRBUF_USEDLENGTH*/
- if (!/*_.VALDATA___V1720*/ curfptr[1719]) /*_.VALDATA___V1720*/ curfptr[1719] = (void*)&cdat->dobj_1714__STRBUF_USEDLENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_1714__STRBUF_USEDLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1714__STRBUF_USEDLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1714__STRBUF_USEDLENGTH.obj_hash = 961429860;
-  cdat->dobj_1714__STRBUF_USEDLENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1714__STRBUF_USEDLENGTH));
- 
- /*inimult dtup_1715__STRBUF_USEDLENGTH*/
- /*_.VALTUP___V1726*/ curfptr[1725] = (void*)&cdat->dtup_1715__STRBUF_USEDLENGTH;
-  cdat->dtup_1715__STRBUF_USEDLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1715__STRBUF_USEDLENGTH.nbval = 3;
- /*inimult dtup_1716__STRBUF_USEDLENGTH*/
- /*_.VALTUP___V1723*/ curfptr[1722] = (void*)&cdat->dtup_1716__STRBUF_USEDLENGTH;
-  cdat->dtup_1716__STRBUF_USEDLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1716__STRBUF_USEDLENGTH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1067:/ iniobj");
- /*iniobj dobj_1717*/
- if (!/*_.VALDATA___V1722*/ curfptr[1721]) /*_.VALDATA___V1722*/ curfptr[1721] = (void*)&cdat->dobj_1717;
-  melt_assertmsg("iniobj checkdiscr dobj_1717", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1717.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1717.obj_num = 0;
-  cdat->dobj_1717.obj_hash = 456565905;
-  cdat->dobj_1717.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1717));
- 
- /*inistring dstr_1718__melt_strbuf_used*/
- /*_.VALSTR___V1724*/ curfptr[1723] = (void*)&cdat->dstr_1718__melt_strbuf_used;
-  cdat->dstr_1718__melt_strbuf_used.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1718__melt_strbuf_used.val, "melt_strbuf_usedlength((melt_ptr_t)(", sizeof(cdat->dstr_1718__melt_strbuf_used.val)-1);
- 
- /*inistring dstr_1719__*/
- /*_.VALSTR___V1725*/ curfptr[1724] = (void*)&cdat->dstr_1719__;
-  cdat->dstr_1719__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1719__.val, "))", sizeof(cdat->dstr_1719__.val)-1);
- 
- /*inistring dstr_1720__STRBUF_USEDLENGT*/
- /*_.VALSTR___V1721*/ curfptr[1720] = (void*)&cdat->dstr_1720__STRBUF_USEDLENGT;
-  cdat->dstr_1720__STRBUF_USEDLENGT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1720__STRBUF_USEDLENGT.val, "STRBUF_USEDLENGTH", sizeof(cdat->dstr_1720__STRBUF_USEDLENGT.val)-1);
- 
- /*iniobj dsym_1721__IS_STRBUF*/
- if (!/*_.VALDATA___V1727*/ curfptr[1726]) /*_.VALDATA___V1727*/ curfptr[1726] = (void*)&cdat->dsym_1721__IS_STRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1721__IS_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1721__IS_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1721__IS_STRBUF.obj_hash = 417428892;
-  cdat->dsym_1721__IS_STRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1721__IS_STRBUF));
- 
- /*inistring dstr_1722__IS_STRBUF*/
- /*_.VALSTR___V1728*/ curfptr[1727] = (void*)&cdat->dstr_1722__IS_STRBUF;
-  cdat->dstr_1722__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1722__IS_STRBUF.val, "IS_STRBUF", sizeof(cdat->dstr_1722__IS_STRBUF.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1071:/ iniobj");
- /*iniobj dobj_1723__IS_STRBUF*/
- if (!/*_.VALDATA___V1729*/ curfptr[1728]) /*_.VALDATA___V1729*/ curfptr[1728] = (void*)&cdat->dobj_1723__IS_STRBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_1723__IS_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1723__IS_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1723__IS_STRBUF.obj_hash = 518518950;
-  cdat->dobj_1723__IS_STRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1723__IS_STRBUF));
- 
- /*inimult dtup_1724__IS_STRBUF*/
- /*_.VALTUP___V1735*/ curfptr[1734] = (void*)&cdat->dtup_1724__IS_STRBUF;
-  cdat->dtup_1724__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1724__IS_STRBUF.nbval = 3;
- /*inimult dtup_1725__IS_STRBUF*/
- /*_.VALTUP___V1732*/ curfptr[1731] = (void*)&cdat->dtup_1725__IS_STRBUF;
-  cdat->dtup_1725__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1725__IS_STRBUF.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1071:/ iniobj");
- /*iniobj dobj_1726*/
- if (!/*_.VALDATA___V1731*/ curfptr[1730]) /*_.VALDATA___V1731*/ curfptr[1730] = (void*)&cdat->dobj_1726;
-  melt_assertmsg("iniobj checkdiscr dobj_1726", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1726.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1726.obj_num = 0;
-  cdat->dobj_1726.obj_hash = 950269474;
-  cdat->dobj_1726.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1726));
- 
- /*inistring dstr_1727__melt_magic_disc*/
- /*_.VALSTR___V1733*/ curfptr[1732] = (void*)&cdat->dstr_1727__melt_magic_disc;
-  cdat->dstr_1727__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1727__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1727__melt_magic_disc.val)-1);
- 
- /*inistring dstr_1728__OBMAG_STRB*/
- /*_.VALSTR___V1734*/ curfptr[1733] = (void*)&cdat->dstr_1728__OBMAG_STRB;
-  cdat->dstr_1728__OBMAG_STRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1728__OBMAG_STRB.val, ")) == OBMAG_STRBUF)", sizeof(cdat->dstr_1728__OBMAG_STRB.val)-1);
- 
- /*inistring dstr_1729__IS_STRBUF*/
- /*_.VALSTR___V1730*/ curfptr[1729] = (void*)&cdat->dstr_1729__IS_STRBUF;
-  cdat->dstr_1729__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1729__IS_STRBUF.val, "IS_STRBUF", sizeof(cdat->dstr_1729__IS_STRBUF.val)-1);
- 
- /*iniobj dsym_1730__IS_OUT*/
- if (!/*_.VALDATA___V1736*/ curfptr[1735]) /*_.VALDATA___V1736*/ curfptr[1735] = (void*)&cdat->dsym_1730__IS_OUT;
-  melt_assertmsg("iniobj checkdiscr dsym_1730__IS_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1730__IS_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1730__IS_OUT.obj_hash = 775193553;
-  cdat->dsym_1730__IS_OUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1730__IS_OUT));
- 
- /*inistring dstr_1731__IS_OUT*/
- /*_.VALSTR___V1737*/ curfptr[1736] = (void*)&cdat->dstr_1731__IS_OUT;
-  cdat->dstr_1731__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1731__IS_OUT.val, "IS_OUT", sizeof(cdat->dstr_1731__IS_OUT.val)-1);
+ /*iniobj dobj_1635*/
+ if (!/*_.VALDATA___V1640*/ curfptr[1639]) /*_.VALDATA___V1640*/ curfptr[1639] = (void*)&cdat->dobj_1635;
+  melt_assertmsg("iniobj checkdiscr dobj_1635", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1635.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1635.obj_num = 0;
+  cdat->dobj_1635.obj_hash = 961423970;
+  cdat->dobj_1635.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1635));
+ 
+ /*iniobj dsym_1636__VAL*/
+ if (!/*_.VALDATA___V1642*/ curfptr[1641]) /*_.VALDATA___V1642*/ curfptr[1641] = (void*)&cdat->dsym_1636__VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_1636__VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1636__VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1636__VAL.obj_hash = 122845685;
+  cdat->dsym_1636__VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1636__VAL));
+ 
+ /*inistring dstr_1637__VAL*/
+ /*_.VALSTR___V1643*/ curfptr[1642] = (void*)&cdat->dstr_1637__VAL;
+  cdat->dstr_1637__VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1637__VAL.val, "VAL", sizeof(cdat->dstr_1637__VAL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1030:/ iniobj");
+ /*iniobj dobj_1638*/
+ if (!/*_.VALDATA___V1641*/ curfptr[1640]) /*_.VALDATA___V1641*/ curfptr[1640] = (void*)&cdat->dobj_1638;
+  melt_assertmsg("iniobj checkdiscr dobj_1638", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1638.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1638.obj_num = 1;
+  cdat->dobj_1638.obj_hash = 52133470;
+  cdat->dobj_1638.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1638));
+ 
+ /*inistring dstr_1639__debugvalue_*/
+ /*_.VALSTR___V1645*/ curfptr[1644] = (void*)&cdat->dstr_1639__debugvalue_;
+  cdat->dstr_1639__debugvalue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1639__debugvalue_.val, "debugvalue((", sizeof(cdat->dstr_1639__debugvalue_.val)-1);
+ 
+ /*inistring dstr_1640__void_*/
+ /*_.VALSTR___V1646*/ curfptr[1645] = (void*)&cdat->dstr_1640__void_;
+  cdat->dstr_1640__void_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1640__void_.val, "), ((void*)(", sizeof(cdat->dstr_1640__void_.val)-1);
+ 
+ /*inistring dstr_1641__*/
+ /*_.VALSTR___V1647*/ curfptr[1646] = (void*)&cdat->dstr_1641__;
+  cdat->dstr_1641__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1641__.val, ")))", sizeof(cdat->dstr_1641__.val)-1);
+ 
+ /*inistring dstr_1642__MESSAGEVAL_DBG*/
+ /*_.VALSTR___V1639*/ curfptr[1638] = (void*)&cdat->dstr_1642__MESSAGEVAL_DBG;
+  cdat->dstr_1642__MESSAGEVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1642__MESSAGEVAL_DBG.val, "MESSAGEVAL_DBG", sizeof(cdat->dstr_1642__MESSAGEVAL_DBG.val)-1);
+ 
+ /*iniobj dsym_1643__LONGBACKTRACE_DBG*/
+ if (!/*_.VALDATA___V1649*/ curfptr[1648]) /*_.VALDATA___V1649*/ curfptr[1648] = (void*)&cdat->dsym_1643__LONGBACKTRACE_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1643__LONGBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1643__LONGBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1643__LONGBACKTRACE_DBG.obj_hash = 295179358;
+  cdat->dsym_1643__LONGBACKTRACE_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1643__LONGBACKTRACE_DBG));
+ 
+ /*inistring dstr_1644__LONGBACKTRACE_DB*/
+ /*_.VALSTR___V1650*/ curfptr[1649] = (void*)&cdat->dstr_1644__LONGBACKTRACE_DB;
+  cdat->dstr_1644__LONGBACKTRACE_DB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1644__LONGBACKTRACE_DB.val, "LONGBACKTRACE_DBG", sizeof(cdat->dstr_1644__LONGBACKTRACE_DB.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1033:/ iniobj");
+ /*iniobj dobj_1645__LONGBACKTRACE_DBG*/
+ if (!/*_.VALDATA___V1651*/ curfptr[1650]) /*_.VALDATA___V1651*/ curfptr[1650] = (void*)&cdat->dobj_1645__LONGBACKTRACE_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1645__LONGBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1645__LONGBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1645__LONGBACKTRACE_DBG.obj_hash = 25925810;
+  cdat->dobj_1645__LONGBACKTRACE_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1645__LONGBACKTRACE_DBG));
+ 
+ /*inimult dtup_1646__LONGBACKTRACE_DBG*/
+ /*_.VALTUP___V1660*/ curfptr[1659] = (void*)&cdat->dtup_1646__LONGBACKTRACE_DBG;
+  cdat->dtup_1646__LONGBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1646__LONGBACKTRACE_DBG.nbval = 3;
+ /*inimult dtup_1647__LONGBACKTRACE_DBG*/
+ /*_.VALTUP___V1657*/ curfptr[1656] = (void*)&cdat->dtup_1647__LONGBACKTRACE_DBG;
+  cdat->dtup_1647__LONGBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1647__LONGBACKTRACE_DBG.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1033:/ iniobj");
+ /*iniobj dobj_1648*/
+ if (!/*_.VALDATA___V1653*/ curfptr[1652]) /*_.VALDATA___V1653*/ curfptr[1652] = (void*)&cdat->dobj_1648;
+  melt_assertmsg("iniobj checkdiscr dobj_1648", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1648.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1648.obj_num = 0;
+  cdat->dobj_1648.obj_hash = 264651935;
+  cdat->dobj_1648.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1648));
+ 
+ /*iniobj dsym_1649__MAXDEPTH*/
+ if (!/*_.VALDATA___V1655*/ curfptr[1654]) /*_.VALDATA___V1655*/ curfptr[1654] = (void*)&cdat->dsym_1649__MAXDEPTH;
+  melt_assertmsg("iniobj checkdiscr dsym_1649__MAXDEPTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1649__MAXDEPTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1649__MAXDEPTH.obj_hash = 129778328;
+  cdat->dsym_1649__MAXDEPTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1649__MAXDEPTH));
+ 
+ /*inistring dstr_1650__MAXDEPTH*/
+ /*_.VALSTR___V1656*/ curfptr[1655] = (void*)&cdat->dstr_1650__MAXDEPTH;
+  cdat->dstr_1650__MAXDEPTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1650__MAXDEPTH.val, "MAXDEPTH", sizeof(cdat->dstr_1650__MAXDEPTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1033:/ iniobj");
+ /*iniobj dobj_1651*/
+ if (!/*_.VALDATA___V1654*/ curfptr[1653]) /*_.VALDATA___V1654*/ curfptr[1653] = (void*)&cdat->dobj_1651;
+  melt_assertmsg("iniobj checkdiscr dobj_1651", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1651.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1651.obj_num = 1;
+  cdat->dobj_1651.obj_hash = 646338430;
+  cdat->dobj_1651.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1651));
+ 
+ /*inistring dstr_1652__debugbacktrace_*/
+ /*_.VALSTR___V1658*/ curfptr[1657] = (void*)&cdat->dstr_1652__debugbacktrace_;
+  cdat->dstr_1652__debugbacktrace_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1652__debugbacktrace_.val, "debugbacktrace((", sizeof(cdat->dstr_1652__debugbacktrace_.val)-1);
+ 
+ /*inistring dstr_1653__int_maxdept*/
+ /*_.VALSTR___V1659*/ curfptr[1658] = (void*)&cdat->dstr_1653__int_maxdept;
+  cdat->dstr_1653__int_maxdept.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1653__int_maxdept.val, "), (int)(maxdepth))", sizeof(cdat->dstr_1653__int_maxdept.val)-1);
+ 
+ /*inistring dstr_1654__LONGBACKTRACE_DB*/
+ /*_.VALSTR___V1652*/ curfptr[1651] = (void*)&cdat->dstr_1654__LONGBACKTRACE_DB;
+  cdat->dstr_1654__LONGBACKTRACE_DB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1654__LONGBACKTRACE_DB.val, "LONGBACKTRACE_DBG", sizeof(cdat->dstr_1654__LONGBACKTRACE_DB.val)-1);
+ 
+ /*iniobj dsym_1655__SHORTBACKTRACE_DBG*/
+ if (!/*_.VALDATA___V1661*/ curfptr[1660]) /*_.VALDATA___V1661*/ curfptr[1660] = (void*)&cdat->dsym_1655__SHORTBACKTRACE_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1655__SHORTBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1655__SHORTBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1655__SHORTBACKTRACE_DBG.obj_hash = 665687006;
+  cdat->dsym_1655__SHORTBACKTRACE_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1655__SHORTBACKTRACE_DBG));
+ 
+ /*inistring dstr_1656__SHORTBACKTRACE_D*/
+ /*_.VALSTR___V1662*/ curfptr[1661] = (void*)&cdat->dstr_1656__SHORTBACKTRACE_D;
+  cdat->dstr_1656__SHORTBACKTRACE_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1656__SHORTBACKTRACE_D.val, "SHORTBACKTRACE_DBG", sizeof(cdat->dstr_1656__SHORTBACKTRACE_D.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1036:/ iniobj");
+ /*iniobj dobj_1657__SHORTBACKTRACE_DBG*/
+ if (!/*_.VALDATA___V1663*/ curfptr[1662]) /*_.VALDATA___V1663*/ curfptr[1662] = (void*)&cdat->dobj_1657__SHORTBACKTRACE_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1657__SHORTBACKTRACE_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1657__SHORTBACKTRACE_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1657__SHORTBACKTRACE_DBG.obj_hash = 737399669;
+  cdat->dobj_1657__SHORTBACKTRACE_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1657__SHORTBACKTRACE_DBG));
+ 
+ /*inimult dtup_1658__SHORTBACKTRACE_DBG*/
+ /*_.VALTUP___V1671*/ curfptr[1670] = (void*)&cdat->dtup_1658__SHORTBACKTRACE_DBG;
+  cdat->dtup_1658__SHORTBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1658__SHORTBACKTRACE_DBG.nbval = 5;
+ /*inimult dtup_1659__SHORTBACKTRACE_DBG*/
+ /*_.VALTUP___V1667*/ curfptr[1666] = (void*)&cdat->dtup_1659__SHORTBACKTRACE_DBG;
+  cdat->dtup_1659__SHORTBACKTRACE_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1659__SHORTBACKTRACE_DBG.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1036:/ iniobj");
+ /*iniobj dobj_1660*/
+ if (!/*_.VALDATA___V1665*/ curfptr[1664]) /*_.VALDATA___V1665*/ curfptr[1664] = (void*)&cdat->dobj_1660;
+  melt_assertmsg("iniobj checkdiscr dobj_1660", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1660.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1660.obj_num = 0;
+  cdat->dobj_1660.obj_hash = 1058026850;
+  cdat->dobj_1660.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1660));
+ 
+ MELT_LOCATION("warmelt-first.melt:1036:/ iniobj");
+ /*iniobj dobj_1661*/
+ if (!/*_.VALDATA___V1666*/ curfptr[1665]) /*_.VALDATA___V1666*/ curfptr[1665] = (void*)&cdat->dobj_1661;
+  melt_assertmsg("iniobj checkdiscr dobj_1661", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1661.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1661.obj_num = 1;
+  cdat->dobj_1661.obj_hash = 404929191;
+  cdat->dobj_1661.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1661));
+ 
+ /*inistring dstr_1662__if_ENABLE_CHE*/
+ /*_.VALSTR___V1668*/ curfptr[1667] = (void*)&cdat->dstr_1662__if_ENABLE_CHE;
+  cdat->dstr_1662__if_ENABLE_CHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1662__if_ENABLE_CHE.val, " \n#if ENABLE_CHECKING\n  if (flag_melt_debug)\n    melt_dbgshortbacktrace((", sizeof(cdat->dstr_1662__if_ENABLE_CHE.val)-1);
+ 
+ /*inistring dstr_1663__*/
+ /*_.VALSTR___V1669*/ curfptr[1668] = (void*)&cdat->dstr_1663__;
+  cdat->dstr_1663__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1663__.val, "), (", sizeof(cdat->dstr_1663__.val)-1);
+ 
+ /*inistring dstr_1664__endif_*/
+ /*_.VALSTR___V1670*/ curfptr[1669] = (void*)&cdat->dstr_1664__endif_;
+  cdat->dstr_1664__endif_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1664__endif_.val, "));\n#endif\n", sizeof(cdat->dstr_1664__endif_.val)-1);
+ 
+ /*inistring dstr_1665__SHORTBACKTRACE_D*/
+ /*_.VALSTR___V1664*/ curfptr[1663] = (void*)&cdat->dstr_1665__SHORTBACKTRACE_D;
+  cdat->dstr_1665__SHORTBACKTRACE_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1665__SHORTBACKTRACE_D.val, "SHORTBACKTRACE_DBG", sizeof(cdat->dstr_1665__SHORTBACKTRACE_D.val)-1);
+ 
+ /*iniobj dsym_1666__CHECKVAL_DBG*/
+ if (!/*_.VALDATA___V1672*/ curfptr[1671]) /*_.VALDATA___V1672*/ curfptr[1671] = (void*)&cdat->dsym_1666__CHECKVAL_DBG;
+  melt_assertmsg("iniobj checkdiscr dsym_1666__CHECKVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1666__CHECKVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1666__CHECKVAL_DBG.obj_hash = 220121357;
+  cdat->dsym_1666__CHECKVAL_DBG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1666__CHECKVAL_DBG));
+ 
+ /*inistring dstr_1667__CHECKVAL_DBG*/
+ /*_.VALSTR___V1673*/ curfptr[1672] = (void*)&cdat->dstr_1667__CHECKVAL_DBG;
+  cdat->dstr_1667__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1667__CHECKVAL_DBG.val, "CHECKVAL_DBG", sizeof(cdat->dstr_1667__CHECKVAL_DBG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1044:/ iniobj");
+ /*iniobj dobj_1668__CHECKVAL_DBG*/
+ if (!/*_.VALDATA___V1674*/ curfptr[1673]) /*_.VALDATA___V1674*/ curfptr[1673] = (void*)&cdat->dobj_1668__CHECKVAL_DBG;
+  melt_assertmsg("iniobj checkdiscr dobj_1668__CHECKVAL_DBG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1668__CHECKVAL_DBG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1668__CHECKVAL_DBG.obj_hash = 544329268;
+  cdat->dobj_1668__CHECKVAL_DBG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1668__CHECKVAL_DBG));
+ 
+ /*inimult dtup_1669__CHECKVAL_DBG*/
+ /*_.VALTUP___V1682*/ curfptr[1681] = (void*)&cdat->dtup_1669__CHECKVAL_DBG;
+  cdat->dtup_1669__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1669__CHECKVAL_DBG.nbval = 5;
+ /*inimult dtup_1670__CHECKVAL_DBG*/
+ /*_.VALTUP___V1678*/ curfptr[1677] = (void*)&cdat->dtup_1670__CHECKVAL_DBG;
+  cdat->dtup_1670__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1670__CHECKVAL_DBG.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1044:/ iniobj");
+ /*iniobj dobj_1671*/
+ if (!/*_.VALDATA___V1676*/ curfptr[1675]) /*_.VALDATA___V1676*/ curfptr[1675] = (void*)&cdat->dobj_1671;
+  melt_assertmsg("iniobj checkdiscr dobj_1671", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1671.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1671.obj_num = 0;
+  cdat->dobj_1671.obj_hash = 453810161;
+  cdat->dobj_1671.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1671));
+ 
+ MELT_LOCATION("warmelt-first.melt:1044:/ iniobj");
+ /*iniobj dobj_1672*/
+ if (!/*_.VALDATA___V1677*/ curfptr[1676]) /*_.VALDATA___V1677*/ curfptr[1676] = (void*)&cdat->dobj_1672;
+  melt_assertmsg("iniobj checkdiscr dobj_1672", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1672.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1672.obj_num = 1;
+  cdat->dobj_1672.obj_hash = 525128564;
+  cdat->dobj_1672.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1672));
+ 
+ /*inistring dstr_1673__melt_checked_ass*/
+ /*_.VALSTR___V1679*/ curfptr[1678] = (void*)&cdat->dstr_1673__melt_checked_ass;
+  cdat->dstr_1673__melt_checked_ass.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1673__melt_checked_ass.val, "melt_checked_assignmsg ((", sizeof(cdat->dstr_1673__melt_checked_ass.val)-1);
+ 
+ /*inistring dstr_1674__*/
+ /*_.VALSTR___V1680*/ curfptr[1679] = (void*)&cdat->dstr_1674__;
+  cdat->dstr_1674__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1674__.val, "),(", sizeof(cdat->dstr_1674__.val)-1);
+ 
+ /*inistring dstr_1675__*/
+ /*_.VALSTR___V1681*/ curfptr[1680] = (void*)&cdat->dstr_1675__;
+  cdat->dstr_1675__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1675__.val, "))", sizeof(cdat->dstr_1675__.val)-1);
+ 
+ /*inistring dstr_1676__CHECKVAL_DBG*/
+ /*_.VALSTR___V1675*/ curfptr[1674] = (void*)&cdat->dstr_1676__CHECKVAL_DBG;
+  cdat->dstr_1676__CHECKVAL_DBG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1676__CHECKVAL_DBG.val, "CHECKVAL_DBG", sizeof(cdat->dstr_1676__CHECKVAL_DBG.val)-1);
+ 
+ /*iniobj dsym_1677__DEBUGCSTRING*/
+ if (!/*_.VALDATA___V1683*/ curfptr[1682]) /*_.VALDATA___V1683*/ curfptr[1682] = (void*)&cdat->dsym_1677__DEBUGCSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_1677__DEBUGCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1677__DEBUGCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1677__DEBUGCSTRING.obj_hash = 897641084;
+  cdat->dsym_1677__DEBUGCSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1677__DEBUGCSTRING));
+ 
+ /*inistring dstr_1678__DEBUGCSTRING*/
+ /*_.VALSTR___V1684*/ curfptr[1683] = (void*)&cdat->dstr_1678__DEBUGCSTRING;
+  cdat->dstr_1678__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1678__DEBUGCSTRING.val, "DEBUGCSTRING", sizeof(cdat->dstr_1678__DEBUGCSTRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1047:/ iniobj");
+ /*iniobj dobj_1679__DEBUGCSTRING*/
+ if (!/*_.VALDATA___V1685*/ curfptr[1684]) /*_.VALDATA___V1685*/ curfptr[1684] = (void*)&cdat->dobj_1679__DEBUGCSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_1679__DEBUGCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1679__DEBUGCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1679__DEBUGCSTRING.obj_hash = 247297230;
+  cdat->dobj_1679__DEBUGCSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1679__DEBUGCSTRING));
+ 
+ /*inimult dtup_1680__DEBUGCSTRING*/
+ /*_.VALTUP___V1693*/ curfptr[1692] = (void*)&cdat->dtup_1680__DEBUGCSTRING;
+  cdat->dtup_1680__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1680__DEBUGCSTRING.nbval = 5;
+ /*inimult dtup_1681__DEBUGCSTRING*/
+ /*_.VALTUP___V1689*/ curfptr[1688] = (void*)&cdat->dtup_1681__DEBUGCSTRING;
+  cdat->dtup_1681__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1681__DEBUGCSTRING.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1047:/ iniobj");
+ /*iniobj dobj_1682*/
+ if (!/*_.VALDATA___V1687*/ curfptr[1686]) /*_.VALDATA___V1687*/ curfptr[1686] = (void*)&cdat->dobj_1682;
+  melt_assertmsg("iniobj checkdiscr dobj_1682", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1682.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1682.obj_num = 0;
+  cdat->dobj_1682.obj_hash = 1017053570;
+  cdat->dobj_1682.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1682));
+ 
+ MELT_LOCATION("warmelt-first.melt:1047:/ iniobj");
+ /*iniobj dobj_1683*/
+ if (!/*_.VALDATA___V1688*/ curfptr[1687]) /*_.VALDATA___V1688*/ curfptr[1687] = (void*)&cdat->dobj_1683;
+  melt_assertmsg("iniobj checkdiscr dobj_1683", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1683.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1683.obj_num = 1;
+  cdat->dobj_1683.obj_hash = 496127718;
+  cdat->dobj_1683.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1683));
+ 
+ /*inistring dstr_1684__debugeprintf_de*/
+ /*_.VALSTR___V1690*/ curfptr[1689] = (void*)&cdat->dstr_1684__debugeprintf_de;
+  cdat->dstr_1684__debugeprintf_de.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1684__debugeprintf_de.val, "debugeprintf(\"debugcstring %s \'%s\'\", ", sizeof(cdat->dstr_1684__debugeprintf_de.val)-1);
+ 
+ /*inistring dstr_1685__*/
+ /*_.VALSTR___V1691*/ curfptr[1690] = (void*)&cdat->dstr_1685__;
+  cdat->dstr_1685__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1685__.val, ", ", sizeof(cdat->dstr_1685__.val)-1);
+ 
+ /*inistring dstr_1686__*/
+ /*_.VALSTR___V1692*/ curfptr[1691] = (void*)&cdat->dstr_1686__;
+  cdat->dstr_1686__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1686__.val, ")", sizeof(cdat->dstr_1686__.val)-1);
+ 
+ /*inistring dstr_1687__DEBUGCSTRING*/
+ /*_.VALSTR___V1686*/ curfptr[1685] = (void*)&cdat->dstr_1687__DEBUGCSTRING;
+  cdat->dstr_1687__DEBUGCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1687__DEBUGCSTRING.val, "DEBUGCSTRING", sizeof(cdat->dstr_1687__DEBUGCSTRING.val)-1);
+ 
+ /*iniobj dsym_1688__THE_NULL_CSTRING*/
+ if (!/*_.VALDATA___V1694*/ curfptr[1693]) /*_.VALDATA___V1694*/ curfptr[1693] = (void*)&cdat->dsym_1688__THE_NULL_CSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_1688__THE_NULL_CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1688__THE_NULL_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1688__THE_NULL_CSTRING.obj_hash = 120594345;
+  cdat->dsym_1688__THE_NULL_CSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1688__THE_NULL_CSTRING));
+ 
+ /*inistring dstr_1689__THE_NULL_CSTRING*/
+ /*_.VALSTR___V1695*/ curfptr[1694] = (void*)&cdat->dstr_1689__THE_NULL_CSTRING;
+  cdat->dstr_1689__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1689__THE_NULL_CSTRING.val, "THE_NULL_CSTRING", sizeof(cdat->dstr_1689__THE_NULL_CSTRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1051:/ iniobj");
+ /*iniobj dobj_1690__THE_NULL_CSTRING*/
+ if (!/*_.VALDATA___V1696*/ curfptr[1695]) /*_.VALDATA___V1696*/ curfptr[1695] = (void*)&cdat->dobj_1690__THE_NULL_CSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_1690__THE_NULL_CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1690__THE_NULL_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1690__THE_NULL_CSTRING.obj_hash = 66817127;
+  cdat->dobj_1690__THE_NULL_CSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1690__THE_NULL_CSTRING));
+ 
+ /*inimult dtup_1691__THE_NULL_CSTRING*/
+ /*_.VALTUP___V1700*/ curfptr[1699] = (void*)&cdat->dtup_1691__THE_NULL_CSTRING;
+  cdat->dtup_1691__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1691__THE_NULL_CSTRING.nbval = 1;
+ /*inimult dtup_1692__THE_NULL_CSTRING*/
+ /*_.VALTUP___V1698*/ curfptr[1697] = (void*)&cdat->dtup_1692__THE_NULL_CSTRING;
+  cdat->dtup_1692__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1692__THE_NULL_CSTRING.nbval = 0;
+ /*inistring dstr_1693__char_0*/
+ /*_.VALSTR___V1699*/ curfptr[1698] = (void*)&cdat->dstr_1693__char_0;
+  cdat->dstr_1693__char_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1693__char_0.val, "(char*)0", sizeof(cdat->dstr_1693__char_0.val)-1);
+ 
+ /*inistring dstr_1694__THE_NULL_CSTRING*/
+ /*_.VALSTR___V1697*/ curfptr[1696] = (void*)&cdat->dstr_1694__THE_NULL_CSTRING;
+  cdat->dstr_1694__THE_NULL_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1694__THE_NULL_CSTRING.val, "THE_NULL_CSTRING", sizeof(cdat->dstr_1694__THE_NULL_CSTRING.val)-1);
+ 
+ /*iniobj dsym_1695__MAKE_STRBUF*/
+ if (!/*_.VALDATA___V1701*/ curfptr[1700]) /*_.VALDATA___V1701*/ curfptr[1700] = (void*)&cdat->dsym_1695__MAKE_STRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1695__MAKE_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1695__MAKE_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1695__MAKE_STRBUF.obj_hash = 257024388;
+  cdat->dsym_1695__MAKE_STRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1695__MAKE_STRBUF));
+ 
+ /*inistring dstr_1696__MAKE_STRBUF*/
+ /*_.VALSTR___V1702*/ curfptr[1701] = (void*)&cdat->dstr_1696__MAKE_STRBUF;
+  cdat->dstr_1696__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1696__MAKE_STRBUF.val, "MAKE_STRBUF", sizeof(cdat->dstr_1696__MAKE_STRBUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1059:/ iniobj");
+ /*iniobj dobj_1697__MAKE_STRBUF*/
+ if (!/*_.VALDATA___V1703*/ curfptr[1702]) /*_.VALDATA___V1703*/ curfptr[1702] = (void*)&cdat->dobj_1697__MAKE_STRBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_1697__MAKE_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1697__MAKE_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1697__MAKE_STRBUF.obj_hash = 530455633;
+  cdat->dobj_1697__MAKE_STRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1697__MAKE_STRBUF));
+ 
+ /*inimult dtup_1698__MAKE_STRBUF*/
+ /*_.VALTUP___V1709*/ curfptr[1708] = (void*)&cdat->dtup_1698__MAKE_STRBUF;
+  cdat->dtup_1698__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1698__MAKE_STRBUF.nbval = 3;
+ /*inimult dtup_1699__MAKE_STRBUF*/
+ /*_.VALTUP___V1706*/ curfptr[1705] = (void*)&cdat->dtup_1699__MAKE_STRBUF;
+  cdat->dtup_1699__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1699__MAKE_STRBUF.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1059:/ iniobj");
+ /*iniobj dobj_1700*/
+ if (!/*_.VALDATA___V1705*/ curfptr[1704]) /*_.VALDATA___V1705*/ curfptr[1704] = (void*)&cdat->dobj_1700;
+  melt_assertmsg("iniobj checkdiscr dobj_1700", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1700.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1700.obj_num = 0;
+  cdat->dobj_1700.obj_hash = 470271267;
+  cdat->dobj_1700.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1700));
+ 
+ /*inistring dstr_1701__meltgc_new_strbu*/
+ /*_.VALSTR___V1707*/ curfptr[1706] = (void*)&cdat->dstr_1701__meltgc_new_strbu;
+  cdat->dstr_1701__meltgc_new_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1701__meltgc_new_strbu.val, "meltgc_new_strbuf((meltobject_ptr_t)(", sizeof(cdat->dstr_1701__meltgc_new_strbu.val)-1);
+ 
+ /*inistring dstr_1702__char_0_*/
+ /*_.VALSTR___V1708*/ curfptr[1707] = (void*)&cdat->dstr_1702__char_0_;
+  cdat->dstr_1702__char_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1702__char_0_.val, "), (char*)0)", sizeof(cdat->dstr_1702__char_0_.val)-1);
+ 
+ /*inistring dstr_1703__MAKE_STRBUF*/
+ /*_.VALSTR___V1704*/ curfptr[1703] = (void*)&cdat->dstr_1703__MAKE_STRBUF;
+  cdat->dstr_1703__MAKE_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1703__MAKE_STRBUF.val, "MAKE_STRBUF", sizeof(cdat->dstr_1703__MAKE_STRBUF.val)-1);
+ 
+ /*iniobj dsym_1704__STRBUF_USEDLENGTH*/
+ if (!/*_.VALDATA___V1710*/ curfptr[1709]) /*_.VALDATA___V1710*/ curfptr[1709] = (void*)&cdat->dsym_1704__STRBUF_USEDLENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_1704__STRBUF_USEDLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1704__STRBUF_USEDLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1704__STRBUF_USEDLENGTH.obj_hash = 851116200;
+  cdat->dsym_1704__STRBUF_USEDLENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1704__STRBUF_USEDLENGTH));
+ 
+ /*inistring dstr_1705__STRBUF_USEDLENGT*/
+ /*_.VALSTR___V1711*/ curfptr[1710] = (void*)&cdat->dstr_1705__STRBUF_USEDLENGT;
+  cdat->dstr_1705__STRBUF_USEDLENGT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1705__STRBUF_USEDLENGT.val, "STRBUF_USEDLENGTH", sizeof(cdat->dstr_1705__STRBUF_USEDLENGT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1062:/ iniobj");
+ /*iniobj dobj_1706__STRBUF_USEDLENGTH*/
+ if (!/*_.VALDATA___V1712*/ curfptr[1711]) /*_.VALDATA___V1712*/ curfptr[1711] = (void*)&cdat->dobj_1706__STRBUF_USEDLENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_1706__STRBUF_USEDLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1706__STRBUF_USEDLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1706__STRBUF_USEDLENGTH.obj_hash = 884262969;
+  cdat->dobj_1706__STRBUF_USEDLENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1706__STRBUF_USEDLENGTH));
+ 
+ /*inimult dtup_1707__STRBUF_USEDLENGTH*/
+ /*_.VALTUP___V1718*/ curfptr[1717] = (void*)&cdat->dtup_1707__STRBUF_USEDLENGTH;
+  cdat->dtup_1707__STRBUF_USEDLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1707__STRBUF_USEDLENGTH.nbval = 3;
+ /*inimult dtup_1708__STRBUF_USEDLENGTH*/
+ /*_.VALTUP___V1715*/ curfptr[1714] = (void*)&cdat->dtup_1708__STRBUF_USEDLENGTH;
+  cdat->dtup_1708__STRBUF_USEDLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1708__STRBUF_USEDLENGTH.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1062:/ iniobj");
+ /*iniobj dobj_1709*/
+ if (!/*_.VALDATA___V1714*/ curfptr[1713]) /*_.VALDATA___V1714*/ curfptr[1713] = (void*)&cdat->dobj_1709;
+  melt_assertmsg("iniobj checkdiscr dobj_1709", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1709.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1709.obj_num = 0;
+  cdat->dobj_1709.obj_hash = 700847289;
+  cdat->dobj_1709.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1709));
+ 
+ /*inistring dstr_1710__melt_strbuf_used*/
+ /*_.VALSTR___V1716*/ curfptr[1715] = (void*)&cdat->dstr_1710__melt_strbuf_used;
+  cdat->dstr_1710__melt_strbuf_used.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1710__melt_strbuf_used.val, "melt_strbuf_usedlength((melt_ptr_t)(", sizeof(cdat->dstr_1710__melt_strbuf_used.val)-1);
+ 
+ /*inistring dstr_1711__*/
+ /*_.VALSTR___V1717*/ curfptr[1716] = (void*)&cdat->dstr_1711__;
+  cdat->dstr_1711__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1711__.val, "))", sizeof(cdat->dstr_1711__.val)-1);
+ 
+ /*inistring dstr_1712__STRBUF_USEDLENGT*/
+ /*_.VALSTR___V1713*/ curfptr[1712] = (void*)&cdat->dstr_1712__STRBUF_USEDLENGT;
+  cdat->dstr_1712__STRBUF_USEDLENGT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1712__STRBUF_USEDLENGT.val, "STRBUF_USEDLENGTH", sizeof(cdat->dstr_1712__STRBUF_USEDLENGT.val)-1);
+ 
+ /*iniobj dsym_1713__IS_STRBUF*/
+ if (!/*_.VALDATA___V1719*/ curfptr[1718]) /*_.VALDATA___V1719*/ curfptr[1718] = (void*)&cdat->dsym_1713__IS_STRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1713__IS_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1713__IS_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1713__IS_STRBUF.obj_hash = 417428892;
+  cdat->dsym_1713__IS_STRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1713__IS_STRBUF));
+ 
+ /*inistring dstr_1714__IS_STRBUF*/
+ /*_.VALSTR___V1720*/ curfptr[1719] = (void*)&cdat->dstr_1714__IS_STRBUF;
+  cdat->dstr_1714__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1714__IS_STRBUF.val, "IS_STRBUF", sizeof(cdat->dstr_1714__IS_STRBUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1066:/ iniobj");
+ /*iniobj dobj_1715__IS_STRBUF*/
+ if (!/*_.VALDATA___V1721*/ curfptr[1720]) /*_.VALDATA___V1721*/ curfptr[1720] = (void*)&cdat->dobj_1715__IS_STRBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_1715__IS_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1715__IS_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1715__IS_STRBUF.obj_hash = 872975089;
+  cdat->dobj_1715__IS_STRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1715__IS_STRBUF));
+ 
+ /*inimult dtup_1716__IS_STRBUF*/
+ /*_.VALTUP___V1727*/ curfptr[1726] = (void*)&cdat->dtup_1716__IS_STRBUF;
+  cdat->dtup_1716__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1716__IS_STRBUF.nbval = 3;
+ /*inimult dtup_1717__IS_STRBUF*/
+ /*_.VALTUP___V1724*/ curfptr[1723] = (void*)&cdat->dtup_1717__IS_STRBUF;
+  cdat->dtup_1717__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1717__IS_STRBUF.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1066:/ iniobj");
+ /*iniobj dobj_1718*/
+ if (!/*_.VALDATA___V1723*/ curfptr[1722]) /*_.VALDATA___V1723*/ curfptr[1722] = (void*)&cdat->dobj_1718;
+  melt_assertmsg("iniobj checkdiscr dobj_1718", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1718.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1718.obj_num = 0;
+  cdat->dobj_1718.obj_hash = 127403881;
+  cdat->dobj_1718.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1718));
+ 
+ /*inistring dstr_1719__melt_magic_disc*/
+ /*_.VALSTR___V1725*/ curfptr[1724] = (void*)&cdat->dstr_1719__melt_magic_disc;
+  cdat->dstr_1719__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1719__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1719__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_1720__OBMAG_STRB*/
+ /*_.VALSTR___V1726*/ curfptr[1725] = (void*)&cdat->dstr_1720__OBMAG_STRB;
+  cdat->dstr_1720__OBMAG_STRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1720__OBMAG_STRB.val, ")) == OBMAG_STRBUF)", sizeof(cdat->dstr_1720__OBMAG_STRB.val)-1);
+ 
+ /*inistring dstr_1721__IS_STRBUF*/
+ /*_.VALSTR___V1722*/ curfptr[1721] = (void*)&cdat->dstr_1721__IS_STRBUF;
+  cdat->dstr_1721__IS_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1721__IS_STRBUF.val, "IS_STRBUF", sizeof(cdat->dstr_1721__IS_STRBUF.val)-1);
+ 
+ /*iniobj dsym_1722__IS_OUT*/
+ if (!/*_.VALDATA___V1728*/ curfptr[1727]) /*_.VALDATA___V1728*/ curfptr[1727] = (void*)&cdat->dsym_1722__IS_OUT;
+  melt_assertmsg("iniobj checkdiscr dsym_1722__IS_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1722__IS_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1722__IS_OUT.obj_hash = 775193553;
+  cdat->dsym_1722__IS_OUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1722__IS_OUT));
+ 
+ /*inistring dstr_1723__IS_OUT*/
+ /*_.VALSTR___V1729*/ curfptr[1728] = (void*)&cdat->dstr_1723__IS_OUT;
+  cdat->dstr_1723__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1723__IS_OUT.val, "IS_OUT", sizeof(cdat->dstr_1723__IS_OUT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1072:/ iniobj");
+ /*iniobj dobj_1724__IS_OUT*/
+ if (!/*_.VALDATA___V1730*/ curfptr[1729]) /*_.VALDATA___V1730*/ curfptr[1729] = (void*)&cdat->dobj_1724__IS_OUT;
+  melt_assertmsg("iniobj checkdiscr dobj_1724__IS_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1724__IS_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1724__IS_OUT.obj_hash = 1071544944;
+  cdat->dobj_1724__IS_OUT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1724__IS_OUT));
+ 
+ /*inimult dtup_1725__IS_OUT*/
+ /*_.VALTUP___V1736*/ curfptr[1735] = (void*)&cdat->dtup_1725__IS_OUT;
+  cdat->dtup_1725__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1725__IS_OUT.nbval = 3;
+ /*inimult dtup_1726__IS_OUT*/
+ /*_.VALTUP___V1733*/ curfptr[1732] = (void*)&cdat->dtup_1726__IS_OUT;
+  cdat->dtup_1726__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1726__IS_OUT.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1072:/ iniobj");
+ /*iniobj dobj_1727*/
+ if (!/*_.VALDATA___V1732*/ curfptr[1731]) /*_.VALDATA___V1732*/ curfptr[1731] = (void*)&cdat->dobj_1727;
+  melt_assertmsg("iniobj checkdiscr dobj_1727", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1727.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1727.obj_num = 0;
+  cdat->dobj_1727.obj_hash = 751568240;
+  cdat->dobj_1727.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1727));
+ 
+ /*inistring dstr_1728__melt_is_out_*/
+ /*_.VALSTR___V1734*/ curfptr[1733] = (void*)&cdat->dstr_1728__melt_is_out_;
+  cdat->dstr_1728__melt_is_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1728__melt_is_out_.val, " (melt_is_out ((melt_ptr_t) ", sizeof(cdat->dstr_1728__melt_is_out_.val)-1);
+ 
+ /*inistring dstr_1729__*/
+ /*_.VALSTR___V1735*/ curfptr[1734] = (void*)&cdat->dstr_1729__;
+  cdat->dstr_1729__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1729__.val, ")) ", sizeof(cdat->dstr_1729__.val)-1);
+ 
+ /*inistring dstr_1730__IS_OUT*/
+ /*_.VALSTR___V1731*/ curfptr[1730] = (void*)&cdat->dstr_1730__IS_OUT;
+  cdat->dstr_1730__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1730__IS_OUT.val, "IS_OUT", sizeof(cdat->dstr_1730__IS_OUT.val)-1);
+ 
+ /*iniobj dsym_1731__ADD2SBUF_STRCONST*/
+ if (!/*_.VALDATA___V1737*/ curfptr[1736]) /*_.VALDATA___V1737*/ curfptr[1736] = (void*)&cdat->dsym_1731__ADD2SBUF_STRCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_1731__ADD2SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1731__ADD2SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1731__ADD2SBUF_STRCONST.obj_hash = 379205960;
+  cdat->dsym_1731__ADD2SBUF_STRCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1731__ADD2SBUF_STRCONST));
+ 
+ /*inistring dstr_1732__ADD2SBUF_STRCONS*/
+ /*_.VALSTR___V1738*/ curfptr[1737] = (void*)&cdat->dstr_1732__ADD2SBUF_STRCONS;
+  cdat->dstr_1732__ADD2SBUF_STRCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1732__ADD2SBUF_STRCONS.val, "ADD2SBUF_STRCONST", sizeof(cdat->dstr_1732__ADD2SBUF_STRCONS.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1077:/ iniobj");
- /*iniobj dobj_1732__IS_OUT*/
- if (!/*_.VALDATA___V1738*/ curfptr[1737]) /*_.VALDATA___V1738*/ curfptr[1737] = (void*)&cdat->dobj_1732__IS_OUT;
-  melt_assertmsg("iniobj checkdiscr dobj_1732__IS_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1732__IS_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1732__IS_OUT.obj_hash = 830983892;
-  cdat->dobj_1732__IS_OUT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1732__IS_OUT));
- 
- /*inimult dtup_1733__IS_OUT*/
- /*_.VALTUP___V1744*/ curfptr[1743] = (void*)&cdat->dtup_1733__IS_OUT;
-  cdat->dtup_1733__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1733__IS_OUT.nbval = 3;
- /*inimult dtup_1734__IS_OUT*/
- /*_.VALTUP___V1741*/ curfptr[1740] = (void*)&cdat->dtup_1734__IS_OUT;
-  cdat->dtup_1734__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1734__IS_OUT.nbval = 1;
+ /*iniobj dobj_1733__ADD2SBUF_STRCONST*/
+ if (!/*_.VALDATA___V1739*/ curfptr[1738]) /*_.VALDATA___V1739*/ curfptr[1738] = (void*)&cdat->dobj_1733__ADD2SBUF_STRCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_1733__ADD2SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1733__ADD2SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1733__ADD2SBUF_STRCONST.obj_hash = 443361309;
+  cdat->dobj_1733__ADD2SBUF_STRCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1733__ADD2SBUF_STRCONST));
+ 
+ /*inimult dtup_1734__ADD2SBUF_STRCONST*/
+ /*_.VALTUP___V1747*/ curfptr[1746] = (void*)&cdat->dtup_1734__ADD2SBUF_STRCONST;
+  cdat->dtup_1734__ADD2SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1734__ADD2SBUF_STRCONST.nbval = 5;
+ /*inimult dtup_1735__ADD2SBUF_STRCONST*/
+ /*_.VALTUP___V1743*/ curfptr[1742] = (void*)&cdat->dtup_1735__ADD2SBUF_STRCONST;
+  cdat->dtup_1735__ADD2SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1735__ADD2SBUF_STRCONST.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1077:/ iniobj");
+ /*iniobj dobj_1736*/
+ if (!/*_.VALDATA___V1741*/ curfptr[1740]) /*_.VALDATA___V1741*/ curfptr[1740] = (void*)&cdat->dobj_1736;
+  melt_assertmsg("iniobj checkdiscr dobj_1736", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1736.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1736.obj_num = 0;
+  cdat->dobj_1736.obj_hash = 614642887;
+  cdat->dobj_1736.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1736));
+ 
  MELT_LOCATION("warmelt-first.melt:1077:/ iniobj");
- /*iniobj dobj_1735*/
- if (!/*_.VALDATA___V1740*/ curfptr[1739]) /*_.VALDATA___V1740*/ curfptr[1739] = (void*)&cdat->dobj_1735;
-  melt_assertmsg("iniobj checkdiscr dobj_1735", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1735.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1735.obj_num = 0;
-  cdat->dobj_1735.obj_hash = 61377676;
-  cdat->dobj_1735.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1735));
- 
- /*inistring dstr_1736__melt_is_out_*/
- /*_.VALSTR___V1742*/ curfptr[1741] = (void*)&cdat->dstr_1736__melt_is_out_;
-  cdat->dstr_1736__melt_is_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1736__melt_is_out_.val, " (melt_is_out ((melt_ptr_t) ", sizeof(cdat->dstr_1736__melt_is_out_.val)-1);
- 
- /*inistring dstr_1737__*/
- /*_.VALSTR___V1743*/ curfptr[1742] = (void*)&cdat->dstr_1737__;
-  cdat->dstr_1737__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1737__.val, ")) ", sizeof(cdat->dstr_1737__.val)-1);
- 
- /*inistring dstr_1738__IS_OUT*/
- /*_.VALSTR___V1739*/ curfptr[1738] = (void*)&cdat->dstr_1738__IS_OUT;
-  cdat->dstr_1738__IS_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1738__IS_OUT.val, "IS_OUT", sizeof(cdat->dstr_1738__IS_OUT.val)-1);
- 
- /*iniobj dsym_1739__ADD2SBUF_STRCONST*/
- if (!/*_.VALDATA___V1745*/ curfptr[1744]) /*_.VALDATA___V1745*/ curfptr[1744] = (void*)&cdat->dsym_1739__ADD2SBUF_STRCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_1739__ADD2SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1739__ADD2SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1739__ADD2SBUF_STRCONST.obj_hash = 379205960;
-  cdat->dsym_1739__ADD2SBUF_STRCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1739__ADD2SBUF_STRCONST));
- 
- /*inistring dstr_1740__ADD2SBUF_STRCONS*/
- /*_.VALSTR___V1746*/ curfptr[1745] = (void*)&cdat->dstr_1740__ADD2SBUF_STRCONS;
-  cdat->dstr_1740__ADD2SBUF_STRCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1740__ADD2SBUF_STRCONS.val, "ADD2SBUF_STRCONST", sizeof(cdat->dstr_1740__ADD2SBUF_STRCONS.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1082:/ iniobj");
- /*iniobj dobj_1741__ADD2SBUF_STRCONST*/
- if (!/*_.VALDATA___V1747*/ curfptr[1746]) /*_.VALDATA___V1747*/ curfptr[1746] = (void*)&cdat->dobj_1741__ADD2SBUF_STRCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_1741__ADD2SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1741__ADD2SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1741__ADD2SBUF_STRCONST.obj_hash = 986524942;
-  cdat->dobj_1741__ADD2SBUF_STRCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1741__ADD2SBUF_STRCONST));
- 
- /*inimult dtup_1742__ADD2SBUF_STRCONST*/
- /*_.VALTUP___V1755*/ curfptr[1754] = (void*)&cdat->dtup_1742__ADD2SBUF_STRCONST;
-  cdat->dtup_1742__ADD2SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1742__ADD2SBUF_STRCONST.nbval = 5;
- /*inimult dtup_1743__ADD2SBUF_STRCONST*/
- /*_.VALTUP___V1751*/ curfptr[1750] = (void*)&cdat->dtup_1743__ADD2SBUF_STRCONST;
-  cdat->dtup_1743__ADD2SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1743__ADD2SBUF_STRCONST.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1082:/ iniobj");
- /*iniobj dobj_1744*/
- if (!/*_.VALDATA___V1749*/ curfptr[1748]) /*_.VALDATA___V1749*/ curfptr[1748] = (void*)&cdat->dobj_1744;
-  melt_assertmsg("iniobj checkdiscr dobj_1744", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1744.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1744.obj_num = 0;
-  cdat->dobj_1744.obj_hash = 519353807;
-  cdat->dobj_1744.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1744));
- 
- MELT_LOCATION("warmelt-first.melt:1082:/ iniobj");
- /*iniobj dobj_1745*/
- if (!/*_.VALDATA___V1750*/ curfptr[1749]) /*_.VALDATA___V1750*/ curfptr[1749] = (void*)&cdat->dobj_1745;
-  melt_assertmsg("iniobj checkdiscr dobj_1745", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1745.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1745.obj_num = 1;
-  cdat->dobj_1745.obj_hash = 226715880;
-  cdat->dobj_1745.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1745));
- 
- /*inistring dstr_1746__meltgc_add_strbu*/
- /*_.VALSTR___V1752*/ curfptr[1751] = (void*)&cdat->dstr_1746__meltgc_add_strbu;
-  cdat->dstr_1746__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1746__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1746__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1747__*/
- /*_.VALSTR___V1753*/ curfptr[1752] = (void*)&cdat->dstr_1747__;
-  cdat->dstr_1747__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1747__.val, "), (", sizeof(cdat->dstr_1747__.val)-1);
- 
- /*inistring dstr_1748__*/
- /*_.VALSTR___V1754*/ curfptr[1753] = (void*)&cdat->dstr_1748__;
-  cdat->dstr_1748__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1748__.val, "))", sizeof(cdat->dstr_1748__.val)-1);
- 
- /*inistring dstr_1749__ADD2SBUF_STRCONS*/
- /*_.VALSTR___V1748*/ curfptr[1747] = (void*)&cdat->dstr_1749__ADD2SBUF_STRCONS;
-  cdat->dstr_1749__ADD2SBUF_STRCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1749__ADD2SBUF_STRCONS.val, "ADD2SBUF_STRCONST", sizeof(cdat->dstr_1749__ADD2SBUF_STRCONS.val)-1);
- 
- /*iniobj dsym_1750__ADD2SBUF_STRING*/
- if (!/*_.VALDATA___V1756*/ curfptr[1755]) /*_.VALDATA___V1756*/ curfptr[1755] = (void*)&cdat->dsym_1750__ADD2SBUF_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_1750__ADD2SBUF_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1750__ADD2SBUF_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1750__ADD2SBUF_STRING.obj_hash = 150650717;
-  cdat->dsym_1750__ADD2SBUF_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1750__ADD2SBUF_STRING));
- 
- /*inistring dstr_1751__ADD2SBUF_STRING*/
- /*_.VALSTR___V1757*/ curfptr[1756] = (void*)&cdat->dstr_1751__ADD2SBUF_STRING;
-  cdat->dstr_1751__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1751__ADD2SBUF_STRING.val, "ADD2SBUF_STRING", sizeof(cdat->dstr_1751__ADD2SBUF_STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1086:/ iniobj");
- /*iniobj dobj_1752__ADD2SBUF_STRING*/
- if (!/*_.VALDATA___V1758*/ curfptr[1757]) /*_.VALDATA___V1758*/ curfptr[1757] = (void*)&cdat->dobj_1752__ADD2SBUF_STRING;
-  melt_assertmsg("iniobj checkdiscr dobj_1752__ADD2SBUF_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1752__ADD2SBUF_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1752__ADD2SBUF_STRING.obj_hash = 43824432;
-  cdat->dobj_1752__ADD2SBUF_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1752__ADD2SBUF_STRING));
- 
- /*inimult dtup_1753__ADD2SBUF_STRING*/
- /*_.VALTUP___V1766*/ curfptr[1765] = (void*)&cdat->dtup_1753__ADD2SBUF_STRING;
-  cdat->dtup_1753__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1753__ADD2SBUF_STRING.nbval = 5;
- /*inimult dtup_1754__ADD2SBUF_STRING*/
- /*_.VALTUP___V1762*/ curfptr[1761] = (void*)&cdat->dtup_1754__ADD2SBUF_STRING;
-  cdat->dtup_1754__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1754__ADD2SBUF_STRING.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1086:/ iniobj");
- /*iniobj dobj_1755*/
- if (!/*_.VALDATA___V1760*/ curfptr[1759]) /*_.VALDATA___V1760*/ curfptr[1759] = (void*)&cdat->dobj_1755;
-  melt_assertmsg("iniobj checkdiscr dobj_1755", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1755.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1755.obj_num = 0;
-  cdat->dobj_1755.obj_hash = 177754016;
-  cdat->dobj_1755.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1755));
- 
- MELT_LOCATION("warmelt-first.melt:1086:/ iniobj");
- /*iniobj dobj_1756*/
- if (!/*_.VALDATA___V1761*/ curfptr[1760]) /*_.VALDATA___V1761*/ curfptr[1760] = (void*)&cdat->dobj_1756;
-  melt_assertmsg("iniobj checkdiscr dobj_1756", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1756.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1756.obj_num = 1;
-  cdat->dobj_1756.obj_hash = 532851535;
-  cdat->dobj_1756.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1756));
- 
- /*inistring dstr_1757__meltgc_add_strbu*/
- /*_.VALSTR___V1763*/ curfptr[1762] = (void*)&cdat->dstr_1757__meltgc_add_strbu;
-  cdat->dstr_1757__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1757__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1757__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1758__melt_string_s*/
- /*_.VALSTR___V1764*/ curfptr[1763] = (void*)&cdat->dstr_1758__melt_string_s;
-  cdat->dstr_1758__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1758__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1758__melt_string_s.val)-1);
- 
- /*inistring dstr_1759__*/
- /*_.VALSTR___V1765*/ curfptr[1764] = (void*)&cdat->dstr_1759__;
-  cdat->dstr_1759__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1759__.val, ")))", sizeof(cdat->dstr_1759__.val)-1);
- 
- /*inistring dstr_1760__ADD2SBUF_STRING*/
- /*_.VALSTR___V1759*/ curfptr[1758] = (void*)&cdat->dstr_1760__ADD2SBUF_STRING;
-  cdat->dstr_1760__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1760__ADD2SBUF_STRING.val, "ADD2SBUF_STRING", sizeof(cdat->dstr_1760__ADD2SBUF_STRING.val)-1);
- 
- /*iniobj dsym_1761__ADD2SBUF_MIXLOC*/
- if (!/*_.VALDATA___V1767*/ curfptr[1766]) /*_.VALDATA___V1767*/ curfptr[1766] = (void*)&cdat->dsym_1761__ADD2SBUF_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_1761__ADD2SBUF_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1761__ADD2SBUF_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1761__ADD2SBUF_MIXLOC.obj_hash = 514120877;
-  cdat->dsym_1761__ADD2SBUF_MIXLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1761__ADD2SBUF_MIXLOC));
- 
- /*inistring dstr_1762__ADD2SBUF_MIXLOC*/
- /*_.VALSTR___V1768*/ curfptr[1767] = (void*)&cdat->dstr_1762__ADD2SBUF_MIXLOC;
-  cdat->dstr_1762__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1762__ADD2SBUF_MIXLOC.val, "ADD2SBUF_MIXLOC", sizeof(cdat->dstr_1762__ADD2SBUF_MIXLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1090:/ iniobj");
- /*iniobj dobj_1763__ADD2SBUF_MIXLOC*/
- if (!/*_.VALDATA___V1769*/ curfptr[1768]) /*_.VALDATA___V1769*/ curfptr[1768] = (void*)&cdat->dobj_1763__ADD2SBUF_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_1763__ADD2SBUF_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1763__ADD2SBUF_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1763__ADD2SBUF_MIXLOC.obj_hash = 825795001;
-  cdat->dobj_1763__ADD2SBUF_MIXLOC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1763__ADD2SBUF_MIXLOC));
- 
- /*inimult dtup_1764__ADD2SBUF_MIXLOC*/
- /*_.VALTUP___V1781*/ curfptr[1780] = (void*)&cdat->dtup_1764__ADD2SBUF_MIXLOC;
-  cdat->dtup_1764__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1764__ADD2SBUF_MIXLOC.nbval = 9;
- /*inimult dtup_1765__ADD2SBUF_MIXLOC*/
- /*_.VALTUP___V1775*/ curfptr[1774] = (void*)&cdat->dtup_1765__ADD2SBUF_MIXLOC;
-  cdat->dtup_1765__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1765__ADD2SBUF_MIXLOC.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1090:/ iniobj");
- /*iniobj dobj_1766*/
- if (!/*_.VALDATA___V1771*/ curfptr[1770]) /*_.VALDATA___V1771*/ curfptr[1770] = (void*)&cdat->dobj_1766;
-  melt_assertmsg("iniobj checkdiscr dobj_1766", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1766.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1766.obj_num = 0;
-  cdat->dobj_1766.obj_hash = 287993187;
-  cdat->dobj_1766.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1766));
- 
- /*iniobj dsym_1767__MIXL*/
- if (!/*_.VALDATA___V1773*/ curfptr[1772]) /*_.VALDATA___V1773*/ curfptr[1772] = (void*)&cdat->dsym_1767__MIXL;
-  melt_assertmsg("iniobj checkdiscr dsym_1767__MIXL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1767__MIXL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1767__MIXL.obj_hash = 555220199;
-  cdat->dsym_1767__MIXL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1767__MIXL));
- 
- /*inistring dstr_1768__MIXL*/
- /*_.VALSTR___V1774*/ curfptr[1773] = (void*)&cdat->dstr_1768__MIXL;
-  cdat->dstr_1768__MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1768__MIXL.val, "MIXL", sizeof(cdat->dstr_1768__MIXL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1090:/ iniobj");
- /*iniobj dobj_1769*/
- if (!/*_.VALDATA___V1772*/ curfptr[1771]) /*_.VALDATA___V1772*/ curfptr[1771] = (void*)&cdat->dobj_1769;
-  melt_assertmsg("iniobj checkdiscr dobj_1769", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1769.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1769.obj_num = 1;
-  cdat->dobj_1769.obj_hash = 831059841;
-  cdat->dobj_1769.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1769));
- 
- /*inistring dstr_1770__add2sbufmixloc*/
- /*_.VALSTR___V1776*/ curfptr[1775] = (void*)&cdat->dstr_1770__add2sbufmixloc;
-  cdat->dstr_1770__add2sbufmixloc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1770__add2sbufmixloc.val, "/*add2sbufmixloc*/ if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1770__add2sbufmixloc.val)-1);
- 
- /*inistring dstr_1771__OBMAG_MIXL*/
- /*_.VALSTR___V1777*/ curfptr[1776] = (void*)&cdat->dstr_1771__OBMAG_MIXL;
-  cdat->dstr_1771__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1771__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC)\n  meltgc_strbuf_printf((melt_ptr_t)(", sizeof(cdat->dstr_1771__OBMAG_MIXL.val)-1);
- 
- /*inistring dstr_1772__s_d_*/
- /*_.VALSTR___V1778*/ curfptr[1777] = (void*)&cdat->dstr_1772__s_d_;
-  cdat->dstr_1772__s_d_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1772__s_d_.val, "), \"{%s:%d}\",\n\t\t       LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1772__s_d_.val)-1);
- 
- /*inistring dstr_1773__LOC*/
- /*_.VALSTR___V1779*/ curfptr[1778] = (void*)&cdat->dstr_1773__LOC;
-  cdat->dstr_1773__LOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1773__LOC.val, ")),\n\t\t       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1773__LOC.val)-1);
- 
- /*inistring dstr_1774__*/
- /*_.VALSTR___V1780*/ curfptr[1779] = (void*)&cdat->dstr_1774__;
-  cdat->dstr_1774__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1774__.val, "))); ", sizeof(cdat->dstr_1774__.val)-1);
- 
- /*inistring dstr_1775__ADD2SBUF_MIXLOC*/
- /*_.VALSTR___V1770*/ curfptr[1769] = (void*)&cdat->dstr_1775__ADD2SBUF_MIXLOC;
-  cdat->dstr_1775__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1775__ADD2SBUF_MIXLOC.val, "ADD2SBUF_MIXLOC", sizeof(cdat->dstr_1775__ADD2SBUF_MIXLOC.val)-1);
- 
- /*iniobj dsym_1776__ADD2SBUF_SHORT_MIXLOC*/
- if (!/*_.VALDATA___V1782*/ curfptr[1781]) /*_.VALDATA___V1782*/ curfptr[1781] = (void*)&cdat->dsym_1776__ADD2SBUF_SHORT_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_1776__ADD2SBUF_SHORT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1776__ADD2SBUF_SHORT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1776__ADD2SBUF_SHORT_MIXLOC.obj_hash = 439836106;
-  cdat->dsym_1776__ADD2SBUF_SHORT_MIXLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1776__ADD2SBUF_SHORT_MIXLOC));
- 
- /*inistring dstr_1777__ADD2SBUF_SHORT_M*/
- /*_.VALSTR___V1783*/ curfptr[1782] = (void*)&cdat->dstr_1777__ADD2SBUF_SHORT_M;
-  cdat->dstr_1777__ADD2SBUF_SHORT_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1777__ADD2SBUF_SHORT_M.val, "ADD2SBUF_SHORT_MIXLOC", sizeof(cdat->dstr_1777__ADD2SBUF_SHORT_M.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1098:/ iniobj");
- /*iniobj dobj_1778__ADD2SBUF_SHORT_MIXLOC*/
- if (!/*_.VALDATA___V1784*/ curfptr[1783]) /*_.VALDATA___V1784*/ curfptr[1783] = (void*)&cdat->dobj_1778__ADD2SBUF_SHORT_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_1778__ADD2SBUF_SHORT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1778__ADD2SBUF_SHORT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1778__ADD2SBUF_SHORT_MIXLOC.obj_hash = 955114681;
-  cdat->dobj_1778__ADD2SBUF_SHORT_MIXLOC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1778__ADD2SBUF_SHORT_MIXLOC));
- 
- /*inimult dtup_1779__ADD2SBUF_SHORT_MIXLOC*/
- /*_.VALTUP___V1793*/ curfptr[1792] = (void*)&cdat->dtup_1779__ADD2SBUF_SHORT_MIXLOC;
-  cdat->dtup_1779__ADD2SBUF_SHORT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1779__ADD2SBUF_SHORT_MIXLOC.nbval = 7;
- /*inimult dtup_1780__ADD2SBUF_SHORT_MIXLOC*/
- /*_.VALTUP___V1788*/ curfptr[1787] = (void*)&cdat->dtup_1780__ADD2SBUF_SHORT_MIXLOC;
-  cdat->dtup_1780__ADD2SBUF_SHORT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1780__ADD2SBUF_SHORT_MIXLOC.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1098:/ iniobj");
- /*iniobj dobj_1781*/
- if (!/*_.VALDATA___V1786*/ curfptr[1785]) /*_.VALDATA___V1786*/ curfptr[1785] = (void*)&cdat->dobj_1781;
-  melt_assertmsg("iniobj checkdiscr dobj_1781", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1781.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1781.obj_num = 0;
-  cdat->dobj_1781.obj_hash = 901793805;
-  cdat->dobj_1781.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1781));
- 
- MELT_LOCATION("warmelt-first.melt:1098:/ iniobj");
- /*iniobj dobj_1782*/
- if (!/*_.VALDATA___V1787*/ curfptr[1786]) /*_.VALDATA___V1787*/ curfptr[1786] = (void*)&cdat->dobj_1782;
-  melt_assertmsg("iniobj checkdiscr dobj_1782", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1782.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1782.obj_num = 1;
-  cdat->dobj_1782.obj_hash = 655535163;
-  cdat->dobj_1782.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1782));
- 
- /*inistring dstr_1783__add2sbufshortm*/
- /*_.VALSTR___V1789*/ curfptr[1788] = (void*)&cdat->dstr_1783__add2sbufshortm;
-  cdat->dstr_1783__add2sbufshortm.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1783__add2sbufshortm.val, "/*add2sbufshortmixloc*/ { if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1783__add2sbufshortm.val)-1);
- 
- /*inistring dstr_1784__OBMAG_MIXL*/
- /*_.VALSTR___V1790*/ curfptr[1789] = (void*)&cdat->dstr_1784__OBMAG_MIXL;
-  cdat->dstr_1784__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1784__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC)\n  meltgc_strbuf_printf((melt_ptr_t)(", sizeof(cdat->dstr_1784__OBMAG_MIXL.val)-1);
- 
- /*inistring dstr_1785__s_d_*/
- /*_.VALSTR___V1791*/ curfptr[1790] = (void*)&cdat->dstr_1785__s_d_;
-  cdat->dstr_1785__s_d_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1785__s_d_.val, "), \"{%s:%d}\", \n\t\t       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1785__s_d_.val)-1);
- 
- /*inistring dstr_1786__L*/
- /*_.VALSTR___V1792*/ curfptr[1791] = (void*)&cdat->dstr_1786__L;
-  cdat->dstr_1786__L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1786__L.val, "))), \n\t\t       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)\" mixl \"))); ", sizeof(cdat->dstr_1786__L.val)-1);
- 
- /*inistring dstr_1787__ADD2SBUF_SHORT_M*/
- /*_.VALSTR___V1785*/ curfptr[1784] = (void*)&cdat->dstr_1787__ADD2SBUF_SHORT_M;
-  cdat->dstr_1787__ADD2SBUF_SHORT_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1787__ADD2SBUF_SHORT_M.val, "ADD2SBUF_SHORT_MIXLOC", sizeof(cdat->dstr_1787__ADD2SBUF_SHORT_M.val)-1);
- 
- /*iniobj dsym_1788__ADD2SBUF_TEXI_MIXLOC*/
- if (!/*_.VALDATA___V1794*/ curfptr[1793]) /*_.VALDATA___V1794*/ curfptr[1793] = (void*)&cdat->dsym_1788__ADD2SBUF_TEXI_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_1788__ADD2SBUF_TEXI_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1788__ADD2SBUF_TEXI_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1788__ADD2SBUF_TEXI_MIXLOC.obj_hash = 702061137;
-  cdat->dsym_1788__ADD2SBUF_TEXI_MIXLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1788__ADD2SBUF_TEXI_MIXLOC));
- 
- /*inistring dstr_1789__ADD2SBUF_TEXI_MI*/
- /*_.VALSTR___V1795*/ curfptr[1794] = (void*)&cdat->dstr_1789__ADD2SBUF_TEXI_MI;
-  cdat->dstr_1789__ADD2SBUF_TEXI_MI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1789__ADD2SBUF_TEXI_MI.val, "ADD2SBUF_TEXI_MIXLOC", sizeof(cdat->dstr_1789__ADD2SBUF_TEXI_MI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1106:/ iniobj");
- /*iniobj dobj_1790__ADD2SBUF_TEXI_MIXLOC*/
- if (!/*_.VALDATA___V1796*/ curfptr[1795]) /*_.VALDATA___V1796*/ curfptr[1795] = (void*)&cdat->dobj_1790__ADD2SBUF_TEXI_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_1790__ADD2SBUF_TEXI_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1790__ADD2SBUF_TEXI_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1790__ADD2SBUF_TEXI_MIXLOC.obj_hash = 514703582;
-  cdat->dobj_1790__ADD2SBUF_TEXI_MIXLOC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1790__ADD2SBUF_TEXI_MIXLOC));
- 
- /*inimult dtup_1791__ADD2SBUF_TEXI_MIXLOC*/
- /*_.VALTUP___V1806*/ curfptr[1805] = (void*)&cdat->dtup_1791__ADD2SBUF_TEXI_MIXLOC;
-  cdat->dtup_1791__ADD2SBUF_TEXI_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1791__ADD2SBUF_TEXI_MIXLOC.nbval = 9;
- /*inimult dtup_1792__ADD2SBUF_TEXI_MIXLOC*/
- /*_.VALTUP___V1800*/ curfptr[1799] = (void*)&cdat->dtup_1792__ADD2SBUF_TEXI_MIXLOC;
-  cdat->dtup_1792__ADD2SBUF_TEXI_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1792__ADD2SBUF_TEXI_MIXLOC.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1106:/ iniobj");
- /*iniobj dobj_1793*/
- if (!/*_.VALDATA___V1798*/ curfptr[1797]) /*_.VALDATA___V1798*/ curfptr[1797] = (void*)&cdat->dobj_1793;
-  melt_assertmsg("iniobj checkdiscr dobj_1793", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1793.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1793.obj_num = 0;
-  cdat->dobj_1793.obj_hash = 956406528;
-  cdat->dobj_1793.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1793));
- 
- MELT_LOCATION("warmelt-first.melt:1106:/ iniobj");
- /*iniobj dobj_1794*/
- if (!/*_.VALDATA___V1799*/ curfptr[1798]) /*_.VALDATA___V1799*/ curfptr[1798] = (void*)&cdat->dobj_1794;
-  melt_assertmsg("iniobj checkdiscr dobj_1794", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1794.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1794.obj_num = 1;
-  cdat->dobj_1794.obj_hash = 286523514;
-  cdat->dobj_1794.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1794));
- 
- /*inistring dstr_1795__add2sbufteximi*/
- /*_.VALSTR___V1801*/ curfptr[1800] = (void*)&cdat->dstr_1795__add2sbufteximi;
-  cdat->dstr_1795__add2sbufteximi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1795__add2sbufteximi.val, "/*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1795__add2sbufteximi.val)-1);
- 
- /*inistring dstr_1796__OBMAG_MIXL*/
- /*_.VALSTR___V1802*/ curfptr[1801] = (void*)&cdat->dstr_1796__OBMAG_MIXL;
-  cdat->dstr_1796__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1796__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC) \n  meltgc_strbuf_printf((melt_ptr_t)(", sizeof(cdat->dstr_1796__OBMAG_MIXL.val)-1);
- 
- /*inistring dstr_1797__file_file_*/
- /*_.VALSTR___V1803*/ curfptr[1802] = (void*)&cdat->dstr_1797__file_file_;
-  cdat->dstr_1797__file_file_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1797__file_file_.val, "), \"file @file{%s}, line %d\", \n\t\t       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1797__file_file_.val)-1);
- 
- /*inistring dstr_1798__L*/
- /*_.VALSTR___V1804*/ curfptr[1803] = (void*)&cdat->dstr_1798__L;
-  cdat->dstr_1798__L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1798__L.val, "))), \n\t\t       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1798__L.val)-1);
- 
- /*inistring dstr_1799__*/
- /*_.VALSTR___V1805*/ curfptr[1804] = (void*)&cdat->dstr_1799__;
-  cdat->dstr_1799__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1799__.val, "))); ", sizeof(cdat->dstr_1799__.val)-1);
- 
- /*inistring dstr_1800__ADD2SBUF_TEXI_MI*/
- /*_.VALSTR___V1797*/ curfptr[1796] = (void*)&cdat->dstr_1800__ADD2SBUF_TEXI_MI;
-  cdat->dstr_1800__ADD2SBUF_TEXI_MI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1800__ADD2SBUF_TEXI_MI.val, "ADD2SBUF_TEXI_MIXLOC", sizeof(cdat->dstr_1800__ADD2SBUF_TEXI_MI.val)-1);
- 
- /*iniobj dsym_1801__ADD2SBUF_INDENT*/
- if (!/*_.VALDATA___V1807*/ curfptr[1806]) /*_.VALDATA___V1807*/ curfptr[1806] = (void*)&cdat->dsym_1801__ADD2SBUF_INDENT;
-  melt_assertmsg("iniobj checkdiscr dsym_1801__ADD2SBUF_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1801__ADD2SBUF_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1801__ADD2SBUF_INDENT.obj_hash = 941133477;
-  cdat->dsym_1801__ADD2SBUF_INDENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1801__ADD2SBUF_INDENT));
- 
- /*inistring dstr_1802__ADD2SBUF_INDENT*/
- /*_.VALSTR___V1808*/ curfptr[1807] = (void*)&cdat->dstr_1802__ADD2SBUF_INDENT;
-  cdat->dstr_1802__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1802__ADD2SBUF_INDENT.val, "ADD2SBUF_INDENT", sizeof(cdat->dstr_1802__ADD2SBUF_INDENT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1114:/ iniobj");
- /*iniobj dobj_1803__ADD2SBUF_INDENT*/
- if (!/*_.VALDATA___V1809*/ curfptr[1808]) /*_.VALDATA___V1809*/ curfptr[1808] = (void*)&cdat->dobj_1803__ADD2SBUF_INDENT;
-  melt_assertmsg("iniobj checkdiscr dobj_1803__ADD2SBUF_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1803__ADD2SBUF_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1803__ADD2SBUF_INDENT.obj_hash = 1049618032;
-  cdat->dobj_1803__ADD2SBUF_INDENT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1803__ADD2SBUF_INDENT));
- 
- /*inimult dtup_1804__ADD2SBUF_INDENT*/
- /*_.VALTUP___V1817*/ curfptr[1816] = (void*)&cdat->dtup_1804__ADD2SBUF_INDENT;
-  cdat->dtup_1804__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1804__ADD2SBUF_INDENT.nbval = 5;
- /*inimult dtup_1805__ADD2SBUF_INDENT*/
- /*_.VALTUP___V1813*/ curfptr[1812] = (void*)&cdat->dtup_1805__ADD2SBUF_INDENT;
-  cdat->dtup_1805__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1805__ADD2SBUF_INDENT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1114:/ iniobj");
- /*iniobj dobj_1806*/
- if (!/*_.VALDATA___V1811*/ curfptr[1810]) /*_.VALDATA___V1811*/ curfptr[1810] = (void*)&cdat->dobj_1806;
-  melt_assertmsg("iniobj checkdiscr dobj_1806", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1806.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1806.obj_num = 0;
-  cdat->dobj_1806.obj_hash = 646875789;
-  cdat->dobj_1806.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1806));
- 
- MELT_LOCATION("warmelt-first.melt:1114:/ iniobj");
- /*iniobj dobj_1807*/
- if (!/*_.VALDATA___V1812*/ curfptr[1811]) /*_.VALDATA___V1812*/ curfptr[1811] = (void*)&cdat->dobj_1807;
-  melt_assertmsg("iniobj checkdiscr dobj_1807", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1807.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1807.obj_num = 1;
-  cdat->dobj_1807.obj_hash = 717865331;
-  cdat->dobj_1807.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1807));
- 
- /*inistring dstr_1808__meltgc_strbuf_ad*/
- /*_.VALSTR___V1814*/ curfptr[1813] = (void*)&cdat->dstr_1808__meltgc_strbuf_ad;
-  cdat->dstr_1808__meltgc_strbuf_ad.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1808__meltgc_strbuf_ad.val, "meltgc_strbuf_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_1808__meltgc_strbuf_ad.val)-1);
- 
- /*inistring dstr_1809__*/
- /*_.VALSTR___V1815*/ curfptr[1814] = (void*)&cdat->dstr_1809__;
-  cdat->dstr_1809__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1809__.val, "), (", sizeof(cdat->dstr_1809__.val)-1);
- 
- /*inistring dstr_1810__64_*/
- /*_.VALSTR___V1816*/ curfptr[1815] = (void*)&cdat->dstr_1810__64_;
-  cdat->dstr_1810__64_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1810__64_.val, "), 64)", sizeof(cdat->dstr_1810__64_.val)-1);
- 
- /*inistring dstr_1811__ADD2SBUF_INDENT*/
- /*_.VALSTR___V1810*/ curfptr[1809] = (void*)&cdat->dstr_1811__ADD2SBUF_INDENT;
-  cdat->dstr_1811__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1811__ADD2SBUF_INDENT.val, "ADD2SBUF_INDENT", sizeof(cdat->dstr_1811__ADD2SBUF_INDENT.val)-1);
- 
- /*iniobj dsym_1812__ADD2SBUF_INDENTNL*/
- if (!/*_.VALDATA___V1818*/ curfptr[1817]) /*_.VALDATA___V1818*/ curfptr[1817] = (void*)&cdat->dsym_1812__ADD2SBUF_INDENTNL;
-  melt_assertmsg("iniobj checkdiscr dsym_1812__ADD2SBUF_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1812__ADD2SBUF_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1812__ADD2SBUF_INDENTNL.obj_hash = 65511433;
-  cdat->dsym_1812__ADD2SBUF_INDENTNL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1812__ADD2SBUF_INDENTNL));
- 
- /*inistring dstr_1813__ADD2SBUF_INDENTN*/
- /*_.VALSTR___V1819*/ curfptr[1818] = (void*)&cdat->dstr_1813__ADD2SBUF_INDENTN;
-  cdat->dstr_1813__ADD2SBUF_INDENTN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1813__ADD2SBUF_INDENTN.val, "ADD2SBUF_INDENTNL", sizeof(cdat->dstr_1813__ADD2SBUF_INDENTN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1120:/ iniobj");
- /*iniobj dobj_1814__ADD2SBUF_INDENTNL*/
- if (!/*_.VALDATA___V1820*/ curfptr[1819]) /*_.VALDATA___V1820*/ curfptr[1819] = (void*)&cdat->dobj_1814__ADD2SBUF_INDENTNL;
-  melt_assertmsg("iniobj checkdiscr dobj_1814__ADD2SBUF_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1814__ADD2SBUF_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1814__ADD2SBUF_INDENTNL.obj_hash = 12748485;
-  cdat->dobj_1814__ADD2SBUF_INDENTNL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1814__ADD2SBUF_INDENTNL));
- 
- /*inimult dtup_1815__ADD2SBUF_INDENTNL*/
- /*_.VALTUP___V1828*/ curfptr[1827] = (void*)&cdat->dtup_1815__ADD2SBUF_INDENTNL;
-  cdat->dtup_1815__ADD2SBUF_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1815__ADD2SBUF_INDENTNL.nbval = 5;
- /*inimult dtup_1816__ADD2SBUF_INDENTNL*/
- /*_.VALTUP___V1824*/ curfptr[1823] = (void*)&cdat->dtup_1816__ADD2SBUF_INDENTNL;
-  cdat->dtup_1816__ADD2SBUF_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1816__ADD2SBUF_INDENTNL.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1120:/ iniobj");
- /*iniobj dobj_1817*/
- if (!/*_.VALDATA___V1822*/ curfptr[1821]) /*_.VALDATA___V1822*/ curfptr[1821] = (void*)&cdat->dobj_1817;
-  melt_assertmsg("iniobj checkdiscr dobj_1817", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1817.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1817.obj_num = 0;
-  cdat->dobj_1817.obj_hash = 634369994;
-  cdat->dobj_1817.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1817));
- 
- MELT_LOCATION("warmelt-first.melt:1120:/ iniobj");
- /*iniobj dobj_1818*/
- if (!/*_.VALDATA___V1823*/ curfptr[1822]) /*_.VALDATA___V1823*/ curfptr[1822] = (void*)&cdat->dobj_1818;
-  melt_assertmsg("iniobj checkdiscr dobj_1818", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1818.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1818.obj_num = 1;
-  cdat->dobj_1818.obj_hash = 583671564;
-  cdat->dobj_1818.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1818));
- 
- /*inistring dstr_1819__meltgc_strbuf_ad*/
- /*_.VALSTR___V1825*/ curfptr[1824] = (void*)&cdat->dstr_1819__meltgc_strbuf_ad;
-  cdat->dstr_1819__meltgc_strbuf_ad.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1819__meltgc_strbuf_ad.val, "meltgc_strbuf_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_1819__meltgc_strbuf_ad.val)-1);
- 
- /*inistring dstr_1820__*/
- /*_.VALSTR___V1826*/ curfptr[1825] = (void*)&cdat->dstr_1820__;
-  cdat->dstr_1820__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1820__.val, "), (", sizeof(cdat->dstr_1820__.val)-1);
- 
- /*inistring dstr_1821__0_*/
- /*_.VALSTR___V1827*/ curfptr[1826] = (void*)&cdat->dstr_1821__0_;
-  cdat->dstr_1821__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1821__0_.val, "), 0)", sizeof(cdat->dstr_1821__0_.val)-1);
- 
- /*inistring dstr_1822__ADD2SBUF_INDENTN*/
- /*_.VALSTR___V1821*/ curfptr[1820] = (void*)&cdat->dstr_1822__ADD2SBUF_INDENTN;
-  cdat->dstr_1822__ADD2SBUF_INDENTN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1822__ADD2SBUF_INDENTN.val, "ADD2SBUF_INDENTNL", sizeof(cdat->dstr_1822__ADD2SBUF_INDENTN.val)-1);
- 
- /*iniobj dsym_1823__ADD2SBUF_SBUF*/
- if (!/*_.VALDATA___V1829*/ curfptr[1828]) /*_.VALDATA___V1829*/ curfptr[1828] = (void*)&cdat->dsym_1823__ADD2SBUF_SBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1823__ADD2SBUF_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1823__ADD2SBUF_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1823__ADD2SBUF_SBUF.obj_hash = 810387895;
-  cdat->dsym_1823__ADD2SBUF_SBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1823__ADD2SBUF_SBUF));
- 
- /*inistring dstr_1824__ADD2SBUF_SBUF*/
- /*_.VALSTR___V1830*/ curfptr[1829] = (void*)&cdat->dstr_1824__ADD2SBUF_SBUF;
-  cdat->dstr_1824__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1824__ADD2SBUF_SBUF.val, "ADD2SBUF_SBUF", sizeof(cdat->dstr_1824__ADD2SBUF_SBUF.val)-1);
+ /*iniobj dobj_1737*/
+ if (!/*_.VALDATA___V1742*/ curfptr[1741]) /*_.VALDATA___V1742*/ curfptr[1741] = (void*)&cdat->dobj_1737;
+  melt_assertmsg("iniobj checkdiscr dobj_1737", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1737.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1737.obj_num = 1;
+  cdat->dobj_1737.obj_hash = 566392136;
+  cdat->dobj_1737.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1737));
+ 
+ /*inistring dstr_1738__meltgc_add_strbu*/
+ /*_.VALSTR___V1744*/ curfptr[1743] = (void*)&cdat->dstr_1738__meltgc_add_strbu;
+  cdat->dstr_1738__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1738__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1738__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1739__*/
+ /*_.VALSTR___V1745*/ curfptr[1744] = (void*)&cdat->dstr_1739__;
+  cdat->dstr_1739__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1739__.val, "), (", sizeof(cdat->dstr_1739__.val)-1);
+ 
+ /*inistring dstr_1740__*/
+ /*_.VALSTR___V1746*/ curfptr[1745] = (void*)&cdat->dstr_1740__;
+  cdat->dstr_1740__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1740__.val, "))", sizeof(cdat->dstr_1740__.val)-1);
+ 
+ /*inistring dstr_1741__ADD2SBUF_STRCONS*/
+ /*_.VALSTR___V1740*/ curfptr[1739] = (void*)&cdat->dstr_1741__ADD2SBUF_STRCONS;
+  cdat->dstr_1741__ADD2SBUF_STRCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1741__ADD2SBUF_STRCONS.val, "ADD2SBUF_STRCONST", sizeof(cdat->dstr_1741__ADD2SBUF_STRCONS.val)-1);
+ 
+ /*iniobj dsym_1742__ADD2SBUF_STRING*/
+ if (!/*_.VALDATA___V1748*/ curfptr[1747]) /*_.VALDATA___V1748*/ curfptr[1747] = (void*)&cdat->dsym_1742__ADD2SBUF_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_1742__ADD2SBUF_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1742__ADD2SBUF_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1742__ADD2SBUF_STRING.obj_hash = 150650717;
+  cdat->dsym_1742__ADD2SBUF_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1742__ADD2SBUF_STRING));
+ 
+ /*inistring dstr_1743__ADD2SBUF_STRING*/
+ /*_.VALSTR___V1749*/ curfptr[1748] = (void*)&cdat->dstr_1743__ADD2SBUF_STRING;
+  cdat->dstr_1743__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1743__ADD2SBUF_STRING.val, "ADD2SBUF_STRING", sizeof(cdat->dstr_1743__ADD2SBUF_STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1081:/ iniobj");
+ /*iniobj dobj_1744__ADD2SBUF_STRING*/
+ if (!/*_.VALDATA___V1750*/ curfptr[1749]) /*_.VALDATA___V1750*/ curfptr[1749] = (void*)&cdat->dobj_1744__ADD2SBUF_STRING;
+  melt_assertmsg("iniobj checkdiscr dobj_1744__ADD2SBUF_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1744__ADD2SBUF_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1744__ADD2SBUF_STRING.obj_hash = 43628963;
+  cdat->dobj_1744__ADD2SBUF_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1744__ADD2SBUF_STRING));
+ 
+ /*inimult dtup_1745__ADD2SBUF_STRING*/
+ /*_.VALTUP___V1758*/ curfptr[1757] = (void*)&cdat->dtup_1745__ADD2SBUF_STRING;
+  cdat->dtup_1745__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1745__ADD2SBUF_STRING.nbval = 5;
+ /*inimult dtup_1746__ADD2SBUF_STRING*/
+ /*_.VALTUP___V1754*/ curfptr[1753] = (void*)&cdat->dtup_1746__ADD2SBUF_STRING;
+  cdat->dtup_1746__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1746__ADD2SBUF_STRING.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1081:/ iniobj");
+ /*iniobj dobj_1747*/
+ if (!/*_.VALDATA___V1752*/ curfptr[1751]) /*_.VALDATA___V1752*/ curfptr[1751] = (void*)&cdat->dobj_1747;
+  melt_assertmsg("iniobj checkdiscr dobj_1747", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1747.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1747.obj_num = 0;
+  cdat->dobj_1747.obj_hash = 875708159;
+  cdat->dobj_1747.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1747));
+ 
+ MELT_LOCATION("warmelt-first.melt:1081:/ iniobj");
+ /*iniobj dobj_1748*/
+ if (!/*_.VALDATA___V1753*/ curfptr[1752]) /*_.VALDATA___V1753*/ curfptr[1752] = (void*)&cdat->dobj_1748;
+  melt_assertmsg("iniobj checkdiscr dobj_1748", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1748.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1748.obj_num = 1;
+  cdat->dobj_1748.obj_hash = 752471238;
+  cdat->dobj_1748.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1748));
+ 
+ /*inistring dstr_1749__meltgc_add_strbu*/
+ /*_.VALSTR___V1755*/ curfptr[1754] = (void*)&cdat->dstr_1749__meltgc_add_strbu;
+  cdat->dstr_1749__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1749__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1749__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1750__melt_string_s*/
+ /*_.VALSTR___V1756*/ curfptr[1755] = (void*)&cdat->dstr_1750__melt_string_s;
+  cdat->dstr_1750__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1750__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1750__melt_string_s.val)-1);
+ 
+ /*inistring dstr_1751__*/
+ /*_.VALSTR___V1757*/ curfptr[1756] = (void*)&cdat->dstr_1751__;
+  cdat->dstr_1751__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1751__.val, ")))", sizeof(cdat->dstr_1751__.val)-1);
+ 
+ /*inistring dstr_1752__ADD2SBUF_STRING*/
+ /*_.VALSTR___V1751*/ curfptr[1750] = (void*)&cdat->dstr_1752__ADD2SBUF_STRING;
+  cdat->dstr_1752__ADD2SBUF_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1752__ADD2SBUF_STRING.val, "ADD2SBUF_STRING", sizeof(cdat->dstr_1752__ADD2SBUF_STRING.val)-1);
+ 
+ /*iniobj dsym_1753__ADD2SBUF_MIXLOC*/
+ if (!/*_.VALDATA___V1759*/ curfptr[1758]) /*_.VALDATA___V1759*/ curfptr[1758] = (void*)&cdat->dsym_1753__ADD2SBUF_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_1753__ADD2SBUF_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1753__ADD2SBUF_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1753__ADD2SBUF_MIXLOC.obj_hash = 514120877;
+  cdat->dsym_1753__ADD2SBUF_MIXLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1753__ADD2SBUF_MIXLOC));
+ 
+ /*inistring dstr_1754__ADD2SBUF_MIXLOC*/
+ /*_.VALSTR___V1760*/ curfptr[1759] = (void*)&cdat->dstr_1754__ADD2SBUF_MIXLOC;
+  cdat->dstr_1754__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1754__ADD2SBUF_MIXLOC.val, "ADD2SBUF_MIXLOC", sizeof(cdat->dstr_1754__ADD2SBUF_MIXLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1085:/ iniobj");
+ /*iniobj dobj_1755__ADD2SBUF_MIXLOC*/
+ if (!/*_.VALDATA___V1761*/ curfptr[1760]) /*_.VALDATA___V1761*/ curfptr[1760] = (void*)&cdat->dobj_1755__ADD2SBUF_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_1755__ADD2SBUF_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1755__ADD2SBUF_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1755__ADD2SBUF_MIXLOC.obj_hash = 365828175;
+  cdat->dobj_1755__ADD2SBUF_MIXLOC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1755__ADD2SBUF_MIXLOC));
+ 
+ /*inimult dtup_1756__ADD2SBUF_MIXLOC*/
+ /*_.VALTUP___V1773*/ curfptr[1772] = (void*)&cdat->dtup_1756__ADD2SBUF_MIXLOC;
+  cdat->dtup_1756__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1756__ADD2SBUF_MIXLOC.nbval = 9;
+ /*inimult dtup_1757__ADD2SBUF_MIXLOC*/
+ /*_.VALTUP___V1767*/ curfptr[1766] = (void*)&cdat->dtup_1757__ADD2SBUF_MIXLOC;
+  cdat->dtup_1757__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1757__ADD2SBUF_MIXLOC.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1085:/ iniobj");
+ /*iniobj dobj_1758*/
+ if (!/*_.VALDATA___V1763*/ curfptr[1762]) /*_.VALDATA___V1763*/ curfptr[1762] = (void*)&cdat->dobj_1758;
+  melt_assertmsg("iniobj checkdiscr dobj_1758", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1758.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1758.obj_num = 0;
+  cdat->dobj_1758.obj_hash = 110194422;
+  cdat->dobj_1758.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1758));
+ 
+ /*iniobj dsym_1759__MIXL*/
+ if (!/*_.VALDATA___V1765*/ curfptr[1764]) /*_.VALDATA___V1765*/ curfptr[1764] = (void*)&cdat->dsym_1759__MIXL;
+  melt_assertmsg("iniobj checkdiscr dsym_1759__MIXL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1759__MIXL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1759__MIXL.obj_hash = 555220199;
+  cdat->dsym_1759__MIXL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1759__MIXL));
+ 
+ /*inistring dstr_1760__MIXL*/
+ /*_.VALSTR___V1766*/ curfptr[1765] = (void*)&cdat->dstr_1760__MIXL;
+  cdat->dstr_1760__MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1760__MIXL.val, "MIXL", sizeof(cdat->dstr_1760__MIXL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1085:/ iniobj");
+ /*iniobj dobj_1761*/
+ if (!/*_.VALDATA___V1764*/ curfptr[1763]) /*_.VALDATA___V1764*/ curfptr[1763] = (void*)&cdat->dobj_1761;
+  melt_assertmsg("iniobj checkdiscr dobj_1761", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1761.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1761.obj_num = 1;
+  cdat->dobj_1761.obj_hash = 812093573;
+  cdat->dobj_1761.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1761));
+ 
+ /*inistring dstr_1762__add2sbufmixloc*/
+ /*_.VALSTR___V1768*/ curfptr[1767] = (void*)&cdat->dstr_1762__add2sbufmixloc;
+  cdat->dstr_1762__add2sbufmixloc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1762__add2sbufmixloc.val, "/*add2sbufmixloc*/ if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1762__add2sbufmixloc.val)-1);
+ 
+ /*inistring dstr_1763__OBMAG_MIXL*/
+ /*_.VALSTR___V1769*/ curfptr[1768] = (void*)&cdat->dstr_1763__OBMAG_MIXL;
+  cdat->dstr_1763__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1763__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC)\n  meltgc_strbuf_printf((melt_ptr_t)(", sizeof(cdat->dstr_1763__OBMAG_MIXL.val)-1);
+ 
+ /*inistring dstr_1764__s_d_*/
+ /*_.VALSTR___V1770*/ curfptr[1769] = (void*)&cdat->dstr_1764__s_d_;
+  cdat->dstr_1764__s_d_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1764__s_d_.val, "), \"{%s:%d}\",\n\t\t       LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1764__s_d_.val)-1);
+ 
+ /*inistring dstr_1765__LOC*/
+ /*_.VALSTR___V1771*/ curfptr[1770] = (void*)&cdat->dstr_1765__LOC;
+  cdat->dstr_1765__LOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1765__LOC.val, ")),\n\t\t       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1765__LOC.val)-1);
+ 
+ /*inistring dstr_1766__*/
+ /*_.VALSTR___V1772*/ curfptr[1771] = (void*)&cdat->dstr_1766__;
+  cdat->dstr_1766__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1766__.val, "))); ", sizeof(cdat->dstr_1766__.val)-1);
+ 
+ /*inistring dstr_1767__ADD2SBUF_MIXLOC*/
+ /*_.VALSTR___V1762*/ curfptr[1761] = (void*)&cdat->dstr_1767__ADD2SBUF_MIXLOC;
+  cdat->dstr_1767__ADD2SBUF_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1767__ADD2SBUF_MIXLOC.val, "ADD2SBUF_MIXLOC", sizeof(cdat->dstr_1767__ADD2SBUF_MIXLOC.val)-1);
+ 
+ /*iniobj dsym_1768__ADD2SBUF_SHORT_MIXLOC*/
+ if (!/*_.VALDATA___V1774*/ curfptr[1773]) /*_.VALDATA___V1774*/ curfptr[1773] = (void*)&cdat->dsym_1768__ADD2SBUF_SHORT_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_1768__ADD2SBUF_SHORT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1768__ADD2SBUF_SHORT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1768__ADD2SBUF_SHORT_MIXLOC.obj_hash = 439836106;
+  cdat->dsym_1768__ADD2SBUF_SHORT_MIXLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1768__ADD2SBUF_SHORT_MIXLOC));
+ 
+ /*inistring dstr_1769__ADD2SBUF_SHORT_M*/
+ /*_.VALSTR___V1775*/ curfptr[1774] = (void*)&cdat->dstr_1769__ADD2SBUF_SHORT_M;
+  cdat->dstr_1769__ADD2SBUF_SHORT_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1769__ADD2SBUF_SHORT_M.val, "ADD2SBUF_SHORT_MIXLOC", sizeof(cdat->dstr_1769__ADD2SBUF_SHORT_M.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1093:/ iniobj");
+ /*iniobj dobj_1770__ADD2SBUF_SHORT_MIXLOC*/
+ if (!/*_.VALDATA___V1776*/ curfptr[1775]) /*_.VALDATA___V1776*/ curfptr[1775] = (void*)&cdat->dobj_1770__ADD2SBUF_SHORT_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_1770__ADD2SBUF_SHORT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1770__ADD2SBUF_SHORT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1770__ADD2SBUF_SHORT_MIXLOC.obj_hash = 440868024;
+  cdat->dobj_1770__ADD2SBUF_SHORT_MIXLOC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1770__ADD2SBUF_SHORT_MIXLOC));
+ 
+ /*inimult dtup_1771__ADD2SBUF_SHORT_MIXLOC*/
+ /*_.VALTUP___V1785*/ curfptr[1784] = (void*)&cdat->dtup_1771__ADD2SBUF_SHORT_MIXLOC;
+  cdat->dtup_1771__ADD2SBUF_SHORT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1771__ADD2SBUF_SHORT_MIXLOC.nbval = 7;
+ /*inimult dtup_1772__ADD2SBUF_SHORT_MIXLOC*/
+ /*_.VALTUP___V1780*/ curfptr[1779] = (void*)&cdat->dtup_1772__ADD2SBUF_SHORT_MIXLOC;
+  cdat->dtup_1772__ADD2SBUF_SHORT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1772__ADD2SBUF_SHORT_MIXLOC.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1093:/ iniobj");
+ /*iniobj dobj_1773*/
+ if (!/*_.VALDATA___V1778*/ curfptr[1777]) /*_.VALDATA___V1778*/ curfptr[1777] = (void*)&cdat->dobj_1773;
+  melt_assertmsg("iniobj checkdiscr dobj_1773", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1773.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1773.obj_num = 0;
+  cdat->dobj_1773.obj_hash = 567896714;
+  cdat->dobj_1773.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1773));
+ 
+ MELT_LOCATION("warmelt-first.melt:1093:/ iniobj");
+ /*iniobj dobj_1774*/
+ if (!/*_.VALDATA___V1779*/ curfptr[1778]) /*_.VALDATA___V1779*/ curfptr[1778] = (void*)&cdat->dobj_1774;
+  melt_assertmsg("iniobj checkdiscr dobj_1774", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1774.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1774.obj_num = 1;
+  cdat->dobj_1774.obj_hash = 632522708;
+  cdat->dobj_1774.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1774));
+ 
+ /*inistring dstr_1775__add2sbufshortm*/
+ /*_.VALSTR___V1781*/ curfptr[1780] = (void*)&cdat->dstr_1775__add2sbufshortm;
+  cdat->dstr_1775__add2sbufshortm.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1775__add2sbufshortm.val, "/*add2sbufshortmixloc*/ { if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1775__add2sbufshortm.val)-1);
+ 
+ /*inistring dstr_1776__OBMAG_MIXL*/
+ /*_.VALSTR___V1782*/ curfptr[1781] = (void*)&cdat->dstr_1776__OBMAG_MIXL;
+  cdat->dstr_1776__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1776__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC)\n  meltgc_strbuf_printf((melt_ptr_t)(", sizeof(cdat->dstr_1776__OBMAG_MIXL.val)-1);
+ 
+ /*inistring dstr_1777__s_d_*/
+ /*_.VALSTR___V1783*/ curfptr[1782] = (void*)&cdat->dstr_1777__s_d_;
+  cdat->dstr_1777__s_d_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1777__s_d_.val, "), \"{%s:%d}\", \n\t\t       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1777__s_d_.val)-1);
+ 
+ /*inistring dstr_1778__L*/
+ /*_.VALSTR___V1784*/ curfptr[1783] = (void*)&cdat->dstr_1778__L;
+  cdat->dstr_1778__L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1778__L.val, "))), \n\t\t       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)\" mixl \"))); ", sizeof(cdat->dstr_1778__L.val)-1);
+ 
+ /*inistring dstr_1779__ADD2SBUF_SHORT_M*/
+ /*_.VALSTR___V1777*/ curfptr[1776] = (void*)&cdat->dstr_1779__ADD2SBUF_SHORT_M;
+  cdat->dstr_1779__ADD2SBUF_SHORT_M.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1779__ADD2SBUF_SHORT_M.val, "ADD2SBUF_SHORT_MIXLOC", sizeof(cdat->dstr_1779__ADD2SBUF_SHORT_M.val)-1);
+ 
+ /*iniobj dsym_1780__ADD2SBUF_TEXI_MIXLOC*/
+ if (!/*_.VALDATA___V1786*/ curfptr[1785]) /*_.VALDATA___V1786*/ curfptr[1785] = (void*)&cdat->dsym_1780__ADD2SBUF_TEXI_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_1780__ADD2SBUF_TEXI_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1780__ADD2SBUF_TEXI_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1780__ADD2SBUF_TEXI_MIXLOC.obj_hash = 702061137;
+  cdat->dsym_1780__ADD2SBUF_TEXI_MIXLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1780__ADD2SBUF_TEXI_MIXLOC));
+ 
+ /*inistring dstr_1781__ADD2SBUF_TEXI_MI*/
+ /*_.VALSTR___V1787*/ curfptr[1786] = (void*)&cdat->dstr_1781__ADD2SBUF_TEXI_MI;
+  cdat->dstr_1781__ADD2SBUF_TEXI_MI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1781__ADD2SBUF_TEXI_MI.val, "ADD2SBUF_TEXI_MIXLOC", sizeof(cdat->dstr_1781__ADD2SBUF_TEXI_MI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1101:/ iniobj");
+ /*iniobj dobj_1782__ADD2SBUF_TEXI_MIXLOC*/
+ if (!/*_.VALDATA___V1788*/ curfptr[1787]) /*_.VALDATA___V1788*/ curfptr[1787] = (void*)&cdat->dobj_1782__ADD2SBUF_TEXI_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_1782__ADD2SBUF_TEXI_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1782__ADD2SBUF_TEXI_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1782__ADD2SBUF_TEXI_MIXLOC.obj_hash = 397650550;
+  cdat->dobj_1782__ADD2SBUF_TEXI_MIXLOC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1782__ADD2SBUF_TEXI_MIXLOC));
+ 
+ /*inimult dtup_1783__ADD2SBUF_TEXI_MIXLOC*/
+ /*_.VALTUP___V1798*/ curfptr[1797] = (void*)&cdat->dtup_1783__ADD2SBUF_TEXI_MIXLOC;
+  cdat->dtup_1783__ADD2SBUF_TEXI_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1783__ADD2SBUF_TEXI_MIXLOC.nbval = 9;
+ /*inimult dtup_1784__ADD2SBUF_TEXI_MIXLOC*/
+ /*_.VALTUP___V1792*/ curfptr[1791] = (void*)&cdat->dtup_1784__ADD2SBUF_TEXI_MIXLOC;
+  cdat->dtup_1784__ADD2SBUF_TEXI_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1784__ADD2SBUF_TEXI_MIXLOC.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1101:/ iniobj");
+ /*iniobj dobj_1785*/
+ if (!/*_.VALDATA___V1790*/ curfptr[1789]) /*_.VALDATA___V1790*/ curfptr[1789] = (void*)&cdat->dobj_1785;
+  melt_assertmsg("iniobj checkdiscr dobj_1785", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1785.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1785.obj_num = 0;
+  cdat->dobj_1785.obj_hash = 906307562;
+  cdat->dobj_1785.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1785));
+ 
+ MELT_LOCATION("warmelt-first.melt:1101:/ iniobj");
+ /*iniobj dobj_1786*/
+ if (!/*_.VALDATA___V1791*/ curfptr[1790]) /*_.VALDATA___V1791*/ curfptr[1790] = (void*)&cdat->dobj_1786;
+  melt_assertmsg("iniobj checkdiscr dobj_1786", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1786.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1786.obj_num = 1;
+  cdat->dobj_1786.obj_hash = 259868920;
+  cdat->dobj_1786.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1786));
+ 
+ /*inistring dstr_1787__add2sbufteximi*/
+ /*_.VALSTR___V1793*/ curfptr[1792] = (void*)&cdat->dstr_1787__add2sbufteximi;
+  cdat->dstr_1787__add2sbufteximi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1787__add2sbufteximi.val, "/*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_1787__add2sbufteximi.val)-1);
+ 
+ /*inistring dstr_1788__OBMAG_MIXL*/
+ /*_.VALSTR___V1794*/ curfptr[1793] = (void*)&cdat->dstr_1788__OBMAG_MIXL;
+  cdat->dstr_1788__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1788__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC) \n  meltgc_strbuf_printf((melt_ptr_t)(", sizeof(cdat->dstr_1788__OBMAG_MIXL.val)-1);
+ 
+ /*inistring dstr_1789__file_file_*/
+ /*_.VALSTR___V1795*/ curfptr[1794] = (void*)&cdat->dstr_1789__file_file_;
+  cdat->dstr_1789__file_file_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1789__file_file_.val, "), \"file @file{%s}, line %d\", \n\t\t       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1789__file_file_.val)-1);
+ 
+ /*inistring dstr_1790__L*/
+ /*_.VALSTR___V1796*/ curfptr[1795] = (void*)&cdat->dstr_1790__L;
+  cdat->dstr_1790__L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1790__L.val, "))), \n\t\t       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_1790__L.val)-1);
+ 
+ /*inistring dstr_1791__*/
+ /*_.VALSTR___V1797*/ curfptr[1796] = (void*)&cdat->dstr_1791__;
+  cdat->dstr_1791__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1791__.val, "))); ", sizeof(cdat->dstr_1791__.val)-1);
+ 
+ /*inistring dstr_1792__ADD2SBUF_TEXI_MI*/
+ /*_.VALSTR___V1789*/ curfptr[1788] = (void*)&cdat->dstr_1792__ADD2SBUF_TEXI_MI;
+  cdat->dstr_1792__ADD2SBUF_TEXI_MI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1792__ADD2SBUF_TEXI_MI.val, "ADD2SBUF_TEXI_MIXLOC", sizeof(cdat->dstr_1792__ADD2SBUF_TEXI_MI.val)-1);
+ 
+ /*iniobj dsym_1793__ADD2SBUF_INDENT*/
+ if (!/*_.VALDATA___V1799*/ curfptr[1798]) /*_.VALDATA___V1799*/ curfptr[1798] = (void*)&cdat->dsym_1793__ADD2SBUF_INDENT;
+  melt_assertmsg("iniobj checkdiscr dsym_1793__ADD2SBUF_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1793__ADD2SBUF_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1793__ADD2SBUF_INDENT.obj_hash = 941133477;
+  cdat->dsym_1793__ADD2SBUF_INDENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1793__ADD2SBUF_INDENT));
+ 
+ /*inistring dstr_1794__ADD2SBUF_INDENT*/
+ /*_.VALSTR___V1800*/ curfptr[1799] = (void*)&cdat->dstr_1794__ADD2SBUF_INDENT;
+  cdat->dstr_1794__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1794__ADD2SBUF_INDENT.val, "ADD2SBUF_INDENT", sizeof(cdat->dstr_1794__ADD2SBUF_INDENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1109:/ iniobj");
+ /*iniobj dobj_1795__ADD2SBUF_INDENT*/
+ if (!/*_.VALDATA___V1801*/ curfptr[1800]) /*_.VALDATA___V1801*/ curfptr[1800] = (void*)&cdat->dobj_1795__ADD2SBUF_INDENT;
+  melt_assertmsg("iniobj checkdiscr dobj_1795__ADD2SBUF_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1795__ADD2SBUF_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1795__ADD2SBUF_INDENT.obj_hash = 638349107;
+  cdat->dobj_1795__ADD2SBUF_INDENT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1795__ADD2SBUF_INDENT));
+ 
+ /*inimult dtup_1796__ADD2SBUF_INDENT*/
+ /*_.VALTUP___V1809*/ curfptr[1808] = (void*)&cdat->dtup_1796__ADD2SBUF_INDENT;
+  cdat->dtup_1796__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1796__ADD2SBUF_INDENT.nbval = 5;
+ /*inimult dtup_1797__ADD2SBUF_INDENT*/
+ /*_.VALTUP___V1805*/ curfptr[1804] = (void*)&cdat->dtup_1797__ADD2SBUF_INDENT;
+  cdat->dtup_1797__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1797__ADD2SBUF_INDENT.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1109:/ iniobj");
+ /*iniobj dobj_1798*/
+ if (!/*_.VALDATA___V1803*/ curfptr[1802]) /*_.VALDATA___V1803*/ curfptr[1802] = (void*)&cdat->dobj_1798;
+  melt_assertmsg("iniobj checkdiscr dobj_1798", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1798.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1798.obj_num = 0;
+  cdat->dobj_1798.obj_hash = 385856408;
+  cdat->dobj_1798.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1798));
+ 
+ MELT_LOCATION("warmelt-first.melt:1109:/ iniobj");
+ /*iniobj dobj_1799*/
+ if (!/*_.VALDATA___V1804*/ curfptr[1803]) /*_.VALDATA___V1804*/ curfptr[1803] = (void*)&cdat->dobj_1799;
+  melt_assertmsg("iniobj checkdiscr dobj_1799", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1799.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1799.obj_num = 1;
+  cdat->dobj_1799.obj_hash = 561792851;
+  cdat->dobj_1799.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1799));
+ 
+ /*inistring dstr_1800__meltgc_strbuf_ad*/
+ /*_.VALSTR___V1806*/ curfptr[1805] = (void*)&cdat->dstr_1800__meltgc_strbuf_ad;
+  cdat->dstr_1800__meltgc_strbuf_ad.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1800__meltgc_strbuf_ad.val, "meltgc_strbuf_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_1800__meltgc_strbuf_ad.val)-1);
+ 
+ /*inistring dstr_1801__*/
+ /*_.VALSTR___V1807*/ curfptr[1806] = (void*)&cdat->dstr_1801__;
+  cdat->dstr_1801__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1801__.val, "), (", sizeof(cdat->dstr_1801__.val)-1);
+ 
+ /*inistring dstr_1802__64_*/
+ /*_.VALSTR___V1808*/ curfptr[1807] = (void*)&cdat->dstr_1802__64_;
+  cdat->dstr_1802__64_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1802__64_.val, "), 64)", sizeof(cdat->dstr_1802__64_.val)-1);
+ 
+ /*inistring dstr_1803__ADD2SBUF_INDENT*/
+ /*_.VALSTR___V1802*/ curfptr[1801] = (void*)&cdat->dstr_1803__ADD2SBUF_INDENT;
+  cdat->dstr_1803__ADD2SBUF_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1803__ADD2SBUF_INDENT.val, "ADD2SBUF_INDENT", sizeof(cdat->dstr_1803__ADD2SBUF_INDENT.val)-1);
+ 
+ /*iniobj dsym_1804__ADD2SBUF_INDENTNL*/
+ if (!/*_.VALDATA___V1810*/ curfptr[1809]) /*_.VALDATA___V1810*/ curfptr[1809] = (void*)&cdat->dsym_1804__ADD2SBUF_INDENTNL;
+  melt_assertmsg("iniobj checkdiscr dsym_1804__ADD2SBUF_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1804__ADD2SBUF_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1804__ADD2SBUF_INDENTNL.obj_hash = 65511433;
+  cdat->dsym_1804__ADD2SBUF_INDENTNL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1804__ADD2SBUF_INDENTNL));
+ 
+ /*inistring dstr_1805__ADD2SBUF_INDENTN*/
+ /*_.VALSTR___V1811*/ curfptr[1810] = (void*)&cdat->dstr_1805__ADD2SBUF_INDENTN;
+  cdat->dstr_1805__ADD2SBUF_INDENTN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1805__ADD2SBUF_INDENTN.val, "ADD2SBUF_INDENTNL", sizeof(cdat->dstr_1805__ADD2SBUF_INDENTN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1115:/ iniobj");
+ /*iniobj dobj_1806__ADD2SBUF_INDENTNL*/
+ if (!/*_.VALDATA___V1812*/ curfptr[1811]) /*_.VALDATA___V1812*/ curfptr[1811] = (void*)&cdat->dobj_1806__ADD2SBUF_INDENTNL;
+  melt_assertmsg("iniobj checkdiscr dobj_1806__ADD2SBUF_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1806__ADD2SBUF_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1806__ADD2SBUF_INDENTNL.obj_hash = 395809443;
+  cdat->dobj_1806__ADD2SBUF_INDENTNL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1806__ADD2SBUF_INDENTNL));
+ 
+ /*inimult dtup_1807__ADD2SBUF_INDENTNL*/
+ /*_.VALTUP___V1820*/ curfptr[1819] = (void*)&cdat->dtup_1807__ADD2SBUF_INDENTNL;
+  cdat->dtup_1807__ADD2SBUF_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1807__ADD2SBUF_INDENTNL.nbval = 5;
+ /*inimult dtup_1808__ADD2SBUF_INDENTNL*/
+ /*_.VALTUP___V1816*/ curfptr[1815] = (void*)&cdat->dtup_1808__ADD2SBUF_INDENTNL;
+  cdat->dtup_1808__ADD2SBUF_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1808__ADD2SBUF_INDENTNL.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1115:/ iniobj");
+ /*iniobj dobj_1809*/
+ if (!/*_.VALDATA___V1814*/ curfptr[1813]) /*_.VALDATA___V1814*/ curfptr[1813] = (void*)&cdat->dobj_1809;
+  melt_assertmsg("iniobj checkdiscr dobj_1809", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1809.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1809.obj_num = 0;
+  cdat->dobj_1809.obj_hash = 181294663;
+  cdat->dobj_1809.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1809));
+ 
+ MELT_LOCATION("warmelt-first.melt:1115:/ iniobj");
+ /*iniobj dobj_1810*/
+ if (!/*_.VALDATA___V1815*/ curfptr[1814]) /*_.VALDATA___V1815*/ curfptr[1814] = (void*)&cdat->dobj_1810;
+  melt_assertmsg("iniobj checkdiscr dobj_1810", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1810.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1810.obj_num = 1;
+  cdat->dobj_1810.obj_hash = 176864576;
+  cdat->dobj_1810.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1810));
+ 
+ /*inistring dstr_1811__meltgc_strbuf_ad*/
+ /*_.VALSTR___V1817*/ curfptr[1816] = (void*)&cdat->dstr_1811__meltgc_strbuf_ad;
+  cdat->dstr_1811__meltgc_strbuf_ad.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1811__meltgc_strbuf_ad.val, "meltgc_strbuf_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_1811__meltgc_strbuf_ad.val)-1);
+ 
+ /*inistring dstr_1812__*/
+ /*_.VALSTR___V1818*/ curfptr[1817] = (void*)&cdat->dstr_1812__;
+  cdat->dstr_1812__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1812__.val, "), (", sizeof(cdat->dstr_1812__.val)-1);
+ 
+ /*inistring dstr_1813__0_*/
+ /*_.VALSTR___V1819*/ curfptr[1818] = (void*)&cdat->dstr_1813__0_;
+  cdat->dstr_1813__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1813__0_.val, "), 0)", sizeof(cdat->dstr_1813__0_.val)-1);
+ 
+ /*inistring dstr_1814__ADD2SBUF_INDENTN*/
+ /*_.VALSTR___V1813*/ curfptr[1812] = (void*)&cdat->dstr_1814__ADD2SBUF_INDENTN;
+  cdat->dstr_1814__ADD2SBUF_INDENTN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1814__ADD2SBUF_INDENTN.val, "ADD2SBUF_INDENTNL", sizeof(cdat->dstr_1814__ADD2SBUF_INDENTN.val)-1);
+ 
+ /*iniobj dsym_1815__ADD2SBUF_SBUF*/
+ if (!/*_.VALDATA___V1821*/ curfptr[1820]) /*_.VALDATA___V1821*/ curfptr[1820] = (void*)&cdat->dsym_1815__ADD2SBUF_SBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1815__ADD2SBUF_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1815__ADD2SBUF_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1815__ADD2SBUF_SBUF.obj_hash = 810387895;
+  cdat->dsym_1815__ADD2SBUF_SBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1815__ADD2SBUF_SBUF));
+ 
+ /*inistring dstr_1816__ADD2SBUF_SBUF*/
+ /*_.VALSTR___V1822*/ curfptr[1821] = (void*)&cdat->dstr_1816__ADD2SBUF_SBUF;
+  cdat->dstr_1816__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1816__ADD2SBUF_SBUF.val, "ADD2SBUF_SBUF", sizeof(cdat->dstr_1816__ADD2SBUF_SBUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ iniobj");
+ /*iniobj dobj_1817__ADD2SBUF_SBUF*/
+ if (!/*_.VALDATA___V1823*/ curfptr[1822]) /*_.VALDATA___V1823*/ curfptr[1822] = (void*)&cdat->dobj_1817__ADD2SBUF_SBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_1817__ADD2SBUF_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1817__ADD2SBUF_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1817__ADD2SBUF_SBUF.obj_hash = 175570896;
+  cdat->dobj_1817__ADD2SBUF_SBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1817__ADD2SBUF_SBUF));
+ 
+ /*inimult dtup_1818__ADD2SBUF_SBUF*/
+ /*_.VALTUP___V1833*/ curfptr[1832] = (void*)&cdat->dtup_1818__ADD2SBUF_SBUF;
+  cdat->dtup_1818__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1818__ADD2SBUF_SBUF.nbval = 5;
+ /*inimult dtup_1819__ADD2SBUF_SBUF*/
+ /*_.VALTUP___V1829*/ curfptr[1828] = (void*)&cdat->dtup_1819__ADD2SBUF_SBUF;
+  cdat->dtup_1819__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1819__ADD2SBUF_SBUF.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1121:/ iniobj");
+ /*iniobj dobj_1820*/
+ if (!/*_.VALDATA___V1825*/ curfptr[1824]) /*_.VALDATA___V1825*/ curfptr[1824] = (void*)&cdat->dobj_1820;
+  melt_assertmsg("iniobj checkdiscr dobj_1820", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1820.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1820.obj_num = 0;
+  cdat->dobj_1820.obj_hash = 264022475;
+  cdat->dobj_1820.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1820));
+ 
+ /*iniobj dsym_1821__ASBUF*/
+ if (!/*_.VALDATA___V1827*/ curfptr[1826]) /*_.VALDATA___V1827*/ curfptr[1826] = (void*)&cdat->dsym_1821__ASBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1821__ASBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1821__ASBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1821__ASBUF.obj_hash = 54079247;
+  cdat->dsym_1821__ASBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1821__ASBUF));
+ 
+ /*inistring dstr_1822__ASBUF*/
+ /*_.VALSTR___V1828*/ curfptr[1827] = (void*)&cdat->dstr_1822__ASBUF;
+  cdat->dstr_1822__ASBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1822__ASBUF.val, "ASBUF", sizeof(cdat->dstr_1822__ASBUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ iniobj");
+ /*iniobj dobj_1823*/
+ if (!/*_.VALDATA___V1826*/ curfptr[1825]) /*_.VALDATA___V1826*/ curfptr[1825] = (void*)&cdat->dobj_1823;
+  melt_assertmsg("iniobj checkdiscr dobj_1823", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1823.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1823.obj_num = 1;
+  cdat->dobj_1823.obj_hash = 418507705;
+  cdat->dobj_1823.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1823));
+ 
+ /*inistring dstr_1824__meltgc_add_strbu*/
+ /*_.VALSTR___V1830*/ curfptr[1829] = (void*)&cdat->dstr_1824__meltgc_add_strbu;
+  cdat->dstr_1824__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1824__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1824__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1825__melt_strbuf_s*/
+ /*_.VALSTR___V1831*/ curfptr[1830] = (void*)&cdat->dstr_1825__melt_strbuf_s;
+  cdat->dstr_1825__melt_strbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1825__melt_strbuf_s.val, "), melt_strbuf_str(", sizeof(cdat->dstr_1825__melt_strbuf_s.val)-1);
+ 
+ /*inistring dstr_1826__*/
+ /*_.VALSTR___V1832*/ curfptr[1831] = (void*)&cdat->dstr_1826__;
+  cdat->dstr_1826__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1826__.val, "))", sizeof(cdat->dstr_1826__.val)-1);
+ 
+ /*inistring dstr_1827__ADD2SBUF_SBUF*/
+ /*_.VALSTR___V1824*/ curfptr[1823] = (void*)&cdat->dstr_1827__ADD2SBUF_SBUF;
+  cdat->dstr_1827__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1827__ADD2SBUF_SBUF.val, "ADD2SBUF_SBUF", sizeof(cdat->dstr_1827__ADD2SBUF_SBUF.val)-1);
+ 
+ /*iniobj dsym_1828__ADD2SBUF_CENCSTRING*/
+ if (!/*_.VALDATA___V1834*/ curfptr[1833]) /*_.VALDATA___V1834*/ curfptr[1833] = (void*)&cdat->dsym_1828__ADD2SBUF_CENCSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_1828__ADD2SBUF_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1828__ADD2SBUF_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1828__ADD2SBUF_CENCSTRING.obj_hash = 997878889;
+  cdat->dsym_1828__ADD2SBUF_CENCSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1828__ADD2SBUF_CENCSTRING));
+ 
+ /*inistring dstr_1829__ADD2SBUF_CENCSTR*/
+ /*_.VALSTR___V1835*/ curfptr[1834] = (void*)&cdat->dstr_1829__ADD2SBUF_CENCSTR;
+  cdat->dstr_1829__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1829__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRING", sizeof(cdat->dstr_1829__ADD2SBUF_CENCSTR.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1126:/ iniobj");
- /*iniobj dobj_1825__ADD2SBUF_SBUF*/
- if (!/*_.VALDATA___V1831*/ curfptr[1830]) /*_.VALDATA___V1831*/ curfptr[1830] = (void*)&cdat->dobj_1825__ADD2SBUF_SBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_1825__ADD2SBUF_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1825__ADD2SBUF_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1825__ADD2SBUF_SBUF.obj_hash = 349455286;
-  cdat->dobj_1825__ADD2SBUF_SBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1825__ADD2SBUF_SBUF));
- 
- /*inimult dtup_1826__ADD2SBUF_SBUF*/
- /*_.VALTUP___V1841*/ curfptr[1840] = (void*)&cdat->dtup_1826__ADD2SBUF_SBUF;
-  cdat->dtup_1826__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1826__ADD2SBUF_SBUF.nbval = 5;
- /*inimult dtup_1827__ADD2SBUF_SBUF*/
- /*_.VALTUP___V1837*/ curfptr[1836] = (void*)&cdat->dtup_1827__ADD2SBUF_SBUF;
-  cdat->dtup_1827__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1827__ADD2SBUF_SBUF.nbval = 2;
+ /*iniobj dobj_1830__ADD2SBUF_CENCSTRING*/
+ if (!/*_.VALDATA___V1836*/ curfptr[1835]) /*_.VALDATA___V1836*/ curfptr[1835] = (void*)&cdat->dobj_1830__ADD2SBUF_CENCSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_1830__ADD2SBUF_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1830__ADD2SBUF_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1830__ADD2SBUF_CENCSTRING.obj_hash = 800960713;
+  cdat->dobj_1830__ADD2SBUF_CENCSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1830__ADD2SBUF_CENCSTRING));
+ 
+ /*inimult dtup_1831__ADD2SBUF_CENCSTRING*/
+ /*_.VALTUP___V1844*/ curfptr[1843] = (void*)&cdat->dtup_1831__ADD2SBUF_CENCSTRING;
+  cdat->dtup_1831__ADD2SBUF_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1831__ADD2SBUF_CENCSTRING.nbval = 5;
+ /*inimult dtup_1832__ADD2SBUF_CENCSTRING*/
+ /*_.VALTUP___V1840*/ curfptr[1839] = (void*)&cdat->dtup_1832__ADD2SBUF_CENCSTRING;
+  cdat->dtup_1832__ADD2SBUF_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1832__ADD2SBUF_CENCSTRING.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1126:/ iniobj");
- /*iniobj dobj_1828*/
- if (!/*_.VALDATA___V1833*/ curfptr[1832]) /*_.VALDATA___V1833*/ curfptr[1832] = (void*)&cdat->dobj_1828;
-  melt_assertmsg("iniobj checkdiscr dobj_1828", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1828.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1828.obj_num = 0;
-  cdat->dobj_1828.obj_hash = 949147674;
-  cdat->dobj_1828.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1828));
- 
- /*iniobj dsym_1829__ASBUF*/
- if (!/*_.VALDATA___V1835*/ curfptr[1834]) /*_.VALDATA___V1835*/ curfptr[1834] = (void*)&cdat->dsym_1829__ASBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1829__ASBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1829__ASBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1829__ASBUF.obj_hash = 54079247;
-  cdat->dsym_1829__ASBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1829__ASBUF));
- 
- /*inistring dstr_1830__ASBUF*/
- /*_.VALSTR___V1836*/ curfptr[1835] = (void*)&cdat->dstr_1830__ASBUF;
-  cdat->dstr_1830__ASBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1830__ASBUF.val, "ASBUF", sizeof(cdat->dstr_1830__ASBUF.val)-1);
+ /*iniobj dobj_1833*/
+ if (!/*_.VALDATA___V1838*/ curfptr[1837]) /*_.VALDATA___V1838*/ curfptr[1837] = (void*)&cdat->dobj_1833;
+  melt_assertmsg("iniobj checkdiscr dobj_1833", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1833.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1833.obj_num = 0;
+  cdat->dobj_1833.obj_hash = 613313065;
+  cdat->dobj_1833.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1833));
  
  MELT_LOCATION("warmelt-first.melt:1126:/ iniobj");
- /*iniobj dobj_1831*/
- if (!/*_.VALDATA___V1834*/ curfptr[1833]) /*_.VALDATA___V1834*/ curfptr[1833] = (void*)&cdat->dobj_1831;
-  melt_assertmsg("iniobj checkdiscr dobj_1831", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1831.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1831.obj_num = 1;
-  cdat->dobj_1831.obj_hash = 653783894;
-  cdat->dobj_1831.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1831));
- 
- /*inistring dstr_1832__meltgc_add_strbu*/
- /*_.VALSTR___V1838*/ curfptr[1837] = (void*)&cdat->dstr_1832__meltgc_add_strbu;
-  cdat->dstr_1832__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1832__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1832__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1833__melt_strbuf_s*/
- /*_.VALSTR___V1839*/ curfptr[1838] = (void*)&cdat->dstr_1833__melt_strbuf_s;
-  cdat->dstr_1833__melt_strbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1833__melt_strbuf_s.val, "), melt_strbuf_str(", sizeof(cdat->dstr_1833__melt_strbuf_s.val)-1);
- 
- /*inistring dstr_1834__*/
- /*_.VALSTR___V1840*/ curfptr[1839] = (void*)&cdat->dstr_1834__;
-  cdat->dstr_1834__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1834__.val, "))", sizeof(cdat->dstr_1834__.val)-1);
- 
- /*inistring dstr_1835__ADD2SBUF_SBUF*/
- /*_.VALSTR___V1832*/ curfptr[1831] = (void*)&cdat->dstr_1835__ADD2SBUF_SBUF;
-  cdat->dstr_1835__ADD2SBUF_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1835__ADD2SBUF_SBUF.val, "ADD2SBUF_SBUF", sizeof(cdat->dstr_1835__ADD2SBUF_SBUF.val)-1);
- 
- /*iniobj dsym_1836__ADD2SBUF_CENCSTRING*/
- if (!/*_.VALDATA___V1842*/ curfptr[1841]) /*_.VALDATA___V1842*/ curfptr[1841] = (void*)&cdat->dsym_1836__ADD2SBUF_CENCSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_1836__ADD2SBUF_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1836__ADD2SBUF_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1836__ADD2SBUF_CENCSTRING.obj_hash = 997878889;
-  cdat->dsym_1836__ADD2SBUF_CENCSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1836__ADD2SBUF_CENCSTRING));
- 
- /*inistring dstr_1837__ADD2SBUF_CENCSTR*/
- /*_.VALSTR___V1843*/ curfptr[1842] = (void*)&cdat->dstr_1837__ADD2SBUF_CENCSTR;
-  cdat->dstr_1837__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1837__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRING", sizeof(cdat->dstr_1837__ADD2SBUF_CENCSTR.val)-1);
+ /*iniobj dobj_1834*/
+ if (!/*_.VALDATA___V1839*/ curfptr[1838]) /*_.VALDATA___V1839*/ curfptr[1838] = (void*)&cdat->dobj_1834;
+  melt_assertmsg("iniobj checkdiscr dobj_1834", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1834.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1834.obj_num = 1;
+  cdat->dobj_1834.obj_hash = 1728774;
+  cdat->dobj_1834.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1834));
+ 
+ /*inistring dstr_1835__meltgc_add_strbu*/
+ /*_.VALSTR___V1841*/ curfptr[1840] = (void*)&cdat->dstr_1835__meltgc_add_strbu;
+  cdat->dstr_1835__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1835__meltgc_add_strbu.val, "meltgc_add_strbuf_cstr((melt_ptr_t)(", sizeof(cdat->dstr_1835__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1836__melt_string_s*/
+ /*_.VALSTR___V1842*/ curfptr[1841] = (void*)&cdat->dstr_1836__melt_string_s;
+  cdat->dstr_1836__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1836__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1836__melt_string_s.val)-1);
+ 
+ /*inistring dstr_1837__*/
+ /*_.VALSTR___V1843*/ curfptr[1842] = (void*)&cdat->dstr_1837__;
+  cdat->dstr_1837__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1837__.val, ")))", sizeof(cdat->dstr_1837__.val)-1);
+ 
+ /*inistring dstr_1838__ADD2SBUF_CENCSTR*/
+ /*_.VALSTR___V1837*/ curfptr[1836] = (void*)&cdat->dstr_1838__ADD2SBUF_CENCSTR;
+  cdat->dstr_1838__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1838__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRING", sizeof(cdat->dstr_1838__ADD2SBUF_CENCSTR.val)-1);
+ 
+ /*iniobj dsym_1839__ADD2SBUF_CENCSTRBUF*/
+ if (!/*_.VALDATA___V1845*/ curfptr[1844]) /*_.VALDATA___V1845*/ curfptr[1844] = (void*)&cdat->dsym_1839__ADD2SBUF_CENCSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1839__ADD2SBUF_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1839__ADD2SBUF_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1839__ADD2SBUF_CENCSTRBUF.obj_hash = 83037887;
+  cdat->dsym_1839__ADD2SBUF_CENCSTRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1839__ADD2SBUF_CENCSTRBUF));
+ 
+ /*inistring dstr_1840__ADD2SBUF_CENCSTR*/
+ /*_.VALSTR___V1846*/ curfptr[1845] = (void*)&cdat->dstr_1840__ADD2SBUF_CENCSTR;
+  cdat->dstr_1840__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1840__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRBUF", sizeof(cdat->dstr_1840__ADD2SBUF_CENCSTR.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ iniobj");
- /*iniobj dobj_1838__ADD2SBUF_CENCSTRING*/
- if (!/*_.VALDATA___V1844*/ curfptr[1843]) /*_.VALDATA___V1844*/ curfptr[1843] = (void*)&cdat->dobj_1838__ADD2SBUF_CENCSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_1838__ADD2SBUF_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1838__ADD2SBUF_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1838__ADD2SBUF_CENCSTRING.obj_hash = 930171874;
-  cdat->dobj_1838__ADD2SBUF_CENCSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1838__ADD2SBUF_CENCSTRING));
- 
- /*inimult dtup_1839__ADD2SBUF_CENCSTRING*/
- /*_.VALTUP___V1852*/ curfptr[1851] = (void*)&cdat->dtup_1839__ADD2SBUF_CENCSTRING;
-  cdat->dtup_1839__ADD2SBUF_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1839__ADD2SBUF_CENCSTRING.nbval = 5;
- /*inimult dtup_1840__ADD2SBUF_CENCSTRING*/
- /*_.VALTUP___V1848*/ curfptr[1847] = (void*)&cdat->dtup_1840__ADD2SBUF_CENCSTRING;
-  cdat->dtup_1840__ADD2SBUF_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1840__ADD2SBUF_CENCSTRING.nbval = 2;
+ /*iniobj dobj_1841__ADD2SBUF_CENCSTRBUF*/
+ if (!/*_.VALDATA___V1847*/ curfptr[1846]) /*_.VALDATA___V1847*/ curfptr[1846] = (void*)&cdat->dobj_1841__ADD2SBUF_CENCSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_1841__ADD2SBUF_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1841__ADD2SBUF_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1841__ADD2SBUF_CENCSTRBUF.obj_hash = 211818701;
+  cdat->dobj_1841__ADD2SBUF_CENCSTRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1841__ADD2SBUF_CENCSTRBUF));
+ 
+ /*inimult dtup_1842__ADD2SBUF_CENCSTRBUF*/
+ /*_.VALTUP___V1855*/ curfptr[1854] = (void*)&cdat->dtup_1842__ADD2SBUF_CENCSTRBUF;
+  cdat->dtup_1842__ADD2SBUF_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1842__ADD2SBUF_CENCSTRBUF.nbval = 5;
+ /*inimult dtup_1843__ADD2SBUF_CENCSTRBUF*/
+ /*_.VALTUP___V1851*/ curfptr[1850] = (void*)&cdat->dtup_1843__ADD2SBUF_CENCSTRBUF;
+  cdat->dtup_1843__ADD2SBUF_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1843__ADD2SBUF_CENCSTRBUF.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1131:/ iniobj");
- /*iniobj dobj_1841*/
- if (!/*_.VALDATA___V1846*/ curfptr[1845]) /*_.VALDATA___V1846*/ curfptr[1845] = (void*)&cdat->dobj_1841;
-  melt_assertmsg("iniobj checkdiscr dobj_1841", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1841.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1841.obj_num = 0;
-  cdat->dobj_1841.obj_hash = 1057042124;
-  cdat->dobj_1841.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1841));
+ /*iniobj dobj_1844*/
+ if (!/*_.VALDATA___V1849*/ curfptr[1848]) /*_.VALDATA___V1849*/ curfptr[1848] = (void*)&cdat->dobj_1844;
+  melt_assertmsg("iniobj checkdiscr dobj_1844", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1844.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1844.obj_num = 0;
+  cdat->dobj_1844.obj_hash = 444548237;
+  cdat->dobj_1844.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1844));
  
  MELT_LOCATION("warmelt-first.melt:1131:/ iniobj");
- /*iniobj dobj_1842*/
- if (!/*_.VALDATA___V1847*/ curfptr[1846]) /*_.VALDATA___V1847*/ curfptr[1846] = (void*)&cdat->dobj_1842;
-  melt_assertmsg("iniobj checkdiscr dobj_1842", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1842.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1842.obj_num = 1;
-  cdat->dobj_1842.obj_hash = 805999532;
-  cdat->dobj_1842.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1842));
- 
- /*inistring dstr_1843__meltgc_add_strbu*/
- /*_.VALSTR___V1849*/ curfptr[1848] = (void*)&cdat->dstr_1843__meltgc_add_strbu;
-  cdat->dstr_1843__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1843__meltgc_add_strbu.val, "meltgc_add_strbuf_cstr((melt_ptr_t)(", sizeof(cdat->dstr_1843__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1844__melt_string_s*/
- /*_.VALSTR___V1850*/ curfptr[1849] = (void*)&cdat->dstr_1844__melt_string_s;
-  cdat->dstr_1844__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1844__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1844__melt_string_s.val)-1);
- 
- /*inistring dstr_1845__*/
- /*_.VALSTR___V1851*/ curfptr[1850] = (void*)&cdat->dstr_1845__;
-  cdat->dstr_1845__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1845__.val, ")))", sizeof(cdat->dstr_1845__.val)-1);
- 
- /*inistring dstr_1846__ADD2SBUF_CENCSTR*/
- /*_.VALSTR___V1845*/ curfptr[1844] = (void*)&cdat->dstr_1846__ADD2SBUF_CENCSTR;
-  cdat->dstr_1846__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1846__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRING", sizeof(cdat->dstr_1846__ADD2SBUF_CENCSTR.val)-1);
- 
- /*iniobj dsym_1847__ADD2SBUF_CENCSTRBUF*/
- if (!/*_.VALDATA___V1853*/ curfptr[1852]) /*_.VALDATA___V1853*/ curfptr[1852] = (void*)&cdat->dsym_1847__ADD2SBUF_CENCSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1847__ADD2SBUF_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1847__ADD2SBUF_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1847__ADD2SBUF_CENCSTRBUF.obj_hash = 83037887;
-  cdat->dsym_1847__ADD2SBUF_CENCSTRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1847__ADD2SBUF_CENCSTRBUF));
- 
- /*inistring dstr_1848__ADD2SBUF_CENCSTR*/
- /*_.VALSTR___V1854*/ curfptr[1853] = (void*)&cdat->dstr_1848__ADD2SBUF_CENCSTR;
-  cdat->dstr_1848__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1848__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRBUF", sizeof(cdat->dstr_1848__ADD2SBUF_CENCSTR.val)-1);
+ /*iniobj dobj_1845*/
+ if (!/*_.VALDATA___V1850*/ curfptr[1849]) /*_.VALDATA___V1850*/ curfptr[1849] = (void*)&cdat->dobj_1845;
+  melt_assertmsg("iniobj checkdiscr dobj_1845", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1845.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1845.obj_num = 1;
+  cdat->dobj_1845.obj_hash = 553838168;
+  cdat->dobj_1845.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1845));
+ 
+ /*inistring dstr_1846__meltgc_add_strbu*/
+ /*_.VALSTR___V1852*/ curfptr[1851] = (void*)&cdat->dstr_1846__meltgc_add_strbu;
+  cdat->dstr_1846__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1846__meltgc_add_strbu.val, "meltgc_add_strbuf_cstr((melt_ptr_t)(", sizeof(cdat->dstr_1846__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1847__melt_strbuf_s*/
+ /*_.VALSTR___V1853*/ curfptr[1852] = (void*)&cdat->dstr_1847__melt_strbuf_s;
+  cdat->dstr_1847__melt_strbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1847__melt_strbuf_s.val, "), melt_strbuf_str((melt_ptr_t)(", sizeof(cdat->dstr_1847__melt_strbuf_s.val)-1);
+ 
+ /*inistring dstr_1848__*/
+ /*_.VALSTR___V1854*/ curfptr[1853] = (void*)&cdat->dstr_1848__;
+  cdat->dstr_1848__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1848__.val, ")))", sizeof(cdat->dstr_1848__.val)-1);
+ 
+ /*inistring dstr_1849__ADD2SBUF_CENCSTR*/
+ /*_.VALSTR___V1848*/ curfptr[1847] = (void*)&cdat->dstr_1849__ADD2SBUF_CENCSTR;
+  cdat->dstr_1849__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1849__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRBUF", sizeof(cdat->dstr_1849__ADD2SBUF_CENCSTR.val)-1);
+ 
+ /*iniobj dsym_1850__ADD2SBUF_CCOMSTRING*/
+ if (!/*_.VALDATA___V1856*/ curfptr[1855]) /*_.VALDATA___V1856*/ curfptr[1855] = (void*)&cdat->dsym_1850__ADD2SBUF_CCOMSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_1850__ADD2SBUF_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1850__ADD2SBUF_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1850__ADD2SBUF_CCOMSTRING.obj_hash = 943641578;
+  cdat->dsym_1850__ADD2SBUF_CCOMSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1850__ADD2SBUF_CCOMSTRING));
+ 
+ /*inistring dstr_1851__ADD2SBUF_CCOMSTR*/
+ /*_.VALSTR___V1857*/ curfptr[1856] = (void*)&cdat->dstr_1851__ADD2SBUF_CCOMSTR;
+  cdat->dstr_1851__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1851__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRING", sizeof(cdat->dstr_1851__ADD2SBUF_CCOMSTR.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ iniobj");
- /*iniobj dobj_1849__ADD2SBUF_CENCSTRBUF*/
- if (!/*_.VALDATA___V1855*/ curfptr[1854]) /*_.VALDATA___V1855*/ curfptr[1854] = (void*)&cdat->dobj_1849__ADD2SBUF_CENCSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_1849__ADD2SBUF_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1849__ADD2SBUF_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1849__ADD2SBUF_CENCSTRBUF.obj_hash = 811318446;
-  cdat->dobj_1849__ADD2SBUF_CENCSTRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1849__ADD2SBUF_CENCSTRBUF));
- 
- /*inimult dtup_1850__ADD2SBUF_CENCSTRBUF*/
- /*_.VALTUP___V1863*/ curfptr[1862] = (void*)&cdat->dtup_1850__ADD2SBUF_CENCSTRBUF;
-  cdat->dtup_1850__ADD2SBUF_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1850__ADD2SBUF_CENCSTRBUF.nbval = 5;
- /*inimult dtup_1851__ADD2SBUF_CENCSTRBUF*/
- /*_.VALTUP___V1859*/ curfptr[1858] = (void*)&cdat->dtup_1851__ADD2SBUF_CENCSTRBUF;
-  cdat->dtup_1851__ADD2SBUF_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1851__ADD2SBUF_CENCSTRBUF.nbval = 2;
+ /*iniobj dobj_1852__ADD2SBUF_CCOMSTRING*/
+ if (!/*_.VALDATA___V1858*/ curfptr[1857]) /*_.VALDATA___V1858*/ curfptr[1857] = (void*)&cdat->dobj_1852__ADD2SBUF_CCOMSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_1852__ADD2SBUF_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1852__ADD2SBUF_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1852__ADD2SBUF_CCOMSTRING.obj_hash = 67195686;
+  cdat->dobj_1852__ADD2SBUF_CCOMSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1852__ADD2SBUF_CCOMSTRING));
+ 
+ /*inimult dtup_1853__ADD2SBUF_CCOMSTRING*/
+ /*_.VALTUP___V1866*/ curfptr[1865] = (void*)&cdat->dtup_1853__ADD2SBUF_CCOMSTRING;
+  cdat->dtup_1853__ADD2SBUF_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1853__ADD2SBUF_CCOMSTRING.nbval = 5;
+ /*inimult dtup_1854__ADD2SBUF_CCOMSTRING*/
+ /*_.VALTUP___V1862*/ curfptr[1861] = (void*)&cdat->dtup_1854__ADD2SBUF_CCOMSTRING;
+  cdat->dtup_1854__ADD2SBUF_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1854__ADD2SBUF_CCOMSTRING.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1136:/ iniobj");
- /*iniobj dobj_1852*/
- if (!/*_.VALDATA___V1857*/ curfptr[1856]) /*_.VALDATA___V1857*/ curfptr[1856] = (void*)&cdat->dobj_1852;
-  melt_assertmsg("iniobj checkdiscr dobj_1852", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1852.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1852.obj_num = 0;
-  cdat->dobj_1852.obj_hash = 612901918;
-  cdat->dobj_1852.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1852));
+ /*iniobj dobj_1855*/
+ if (!/*_.VALDATA___V1860*/ curfptr[1859]) /*_.VALDATA___V1860*/ curfptr[1859] = (void*)&cdat->dobj_1855;
+  melt_assertmsg("iniobj checkdiscr dobj_1855", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1855.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1855.obj_num = 0;
+  cdat->dobj_1855.obj_hash = 774758376;
+  cdat->dobj_1855.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1855));
  
  MELT_LOCATION("warmelt-first.melt:1136:/ iniobj");
- /*iniobj dobj_1853*/
- if (!/*_.VALDATA___V1858*/ curfptr[1857]) /*_.VALDATA___V1858*/ curfptr[1857] = (void*)&cdat->dobj_1853;
-  melt_assertmsg("iniobj checkdiscr dobj_1853", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1853.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1853.obj_num = 1;
-  cdat->dobj_1853.obj_hash = 245673591;
-  cdat->dobj_1853.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1853));
- 
- /*inistring dstr_1854__meltgc_add_strbu*/
- /*_.VALSTR___V1860*/ curfptr[1859] = (void*)&cdat->dstr_1854__meltgc_add_strbu;
-  cdat->dstr_1854__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1854__meltgc_add_strbu.val, "meltgc_add_strbuf_cstr((melt_ptr_t)(", sizeof(cdat->dstr_1854__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1855__melt_strbuf_s*/
- /*_.VALSTR___V1861*/ curfptr[1860] = (void*)&cdat->dstr_1855__melt_strbuf_s;
-  cdat->dstr_1855__melt_strbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1855__melt_strbuf_s.val, "), melt_strbuf_str((melt_ptr_t)(", sizeof(cdat->dstr_1855__melt_strbuf_s.val)-1);
- 
- /*inistring dstr_1856__*/
- /*_.VALSTR___V1862*/ curfptr[1861] = (void*)&cdat->dstr_1856__;
-  cdat->dstr_1856__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1856__.val, ")))", sizeof(cdat->dstr_1856__.val)-1);
- 
- /*inistring dstr_1857__ADD2SBUF_CENCSTR*/
- /*_.VALSTR___V1856*/ curfptr[1855] = (void*)&cdat->dstr_1857__ADD2SBUF_CENCSTR;
-  cdat->dstr_1857__ADD2SBUF_CENCSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1857__ADD2SBUF_CENCSTR.val, "ADD2SBUF_CENCSTRBUF", sizeof(cdat->dstr_1857__ADD2SBUF_CENCSTR.val)-1);
- 
- /*iniobj dsym_1858__ADD2SBUF_CCOMSTRING*/
- if (!/*_.VALDATA___V1864*/ curfptr[1863]) /*_.VALDATA___V1864*/ curfptr[1863] = (void*)&cdat->dsym_1858__ADD2SBUF_CCOMSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_1858__ADD2SBUF_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1858__ADD2SBUF_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1858__ADD2SBUF_CCOMSTRING.obj_hash = 943641578;
-  cdat->dsym_1858__ADD2SBUF_CCOMSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1858__ADD2SBUF_CCOMSTRING));
- 
- /*inistring dstr_1859__ADD2SBUF_CCOMSTR*/
- /*_.VALSTR___V1865*/ curfptr[1864] = (void*)&cdat->dstr_1859__ADD2SBUF_CCOMSTR;
-  cdat->dstr_1859__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1859__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRING", sizeof(cdat->dstr_1859__ADD2SBUF_CCOMSTR.val)-1);
+ /*iniobj dobj_1856*/
+ if (!/*_.VALDATA___V1861*/ curfptr[1860]) /*_.VALDATA___V1861*/ curfptr[1860] = (void*)&cdat->dobj_1856;
+  melt_assertmsg("iniobj checkdiscr dobj_1856", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1856.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1856.obj_num = 1;
+  cdat->dobj_1856.obj_hash = 483759897;
+  cdat->dobj_1856.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1856));
+ 
+ /*inistring dstr_1857__meltgc_add_strbu*/
+ /*_.VALSTR___V1863*/ curfptr[1862] = (void*)&cdat->dstr_1857__meltgc_add_strbu;
+  cdat->dstr_1857__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1857__meltgc_add_strbu.val, "meltgc_add_strbuf_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_1857__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1858__melt_string_s*/
+ /*_.VALSTR___V1864*/ curfptr[1863] = (void*)&cdat->dstr_1858__melt_string_s;
+  cdat->dstr_1858__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1858__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1858__melt_string_s.val)-1);
+ 
+ /*inistring dstr_1859__*/
+ /*_.VALSTR___V1865*/ curfptr[1864] = (void*)&cdat->dstr_1859__;
+  cdat->dstr_1859__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1859__.val, ")))", sizeof(cdat->dstr_1859__.val)-1);
+ 
+ /*inistring dstr_1860__ADD2SBUF_CCOMSTR*/
+ /*_.VALSTR___V1859*/ curfptr[1858] = (void*)&cdat->dstr_1860__ADD2SBUF_CCOMSTR;
+  cdat->dstr_1860__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1860__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRING", sizeof(cdat->dstr_1860__ADD2SBUF_CCOMSTR.val)-1);
+ 
+ /*iniobj dsym_1861__ADD2SBUF_CCOMSTRBUF*/
+ if (!/*_.VALDATA___V1867*/ curfptr[1866]) /*_.VALDATA___V1867*/ curfptr[1866] = (void*)&cdat->dsym_1861__ADD2SBUF_CCOMSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_1861__ADD2SBUF_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1861__ADD2SBUF_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1861__ADD2SBUF_CCOMSTRBUF.obj_hash = 878484121;
+  cdat->dsym_1861__ADD2SBUF_CCOMSTRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1861__ADD2SBUF_CCOMSTRBUF));
+ 
+ /*inistring dstr_1862__ADD2SBUF_CCOMSTR*/
+ /*_.VALSTR___V1868*/ curfptr[1867] = (void*)&cdat->dstr_1862__ADD2SBUF_CCOMSTR;
+  cdat->dstr_1862__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1862__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRBUF", sizeof(cdat->dstr_1862__ADD2SBUF_CCOMSTR.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ iniobj");
- /*iniobj dobj_1860__ADD2SBUF_CCOMSTRING*/
- if (!/*_.VALDATA___V1866*/ curfptr[1865]) /*_.VALDATA___V1866*/ curfptr[1865] = (void*)&cdat->dobj_1860__ADD2SBUF_CCOMSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_1860__ADD2SBUF_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1860__ADD2SBUF_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1860__ADD2SBUF_CCOMSTRING.obj_hash = 587940714;
-  cdat->dobj_1860__ADD2SBUF_CCOMSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1860__ADD2SBUF_CCOMSTRING));
- 
- /*inimult dtup_1861__ADD2SBUF_CCOMSTRING*/
- /*_.VALTUP___V1874*/ curfptr[1873] = (void*)&cdat->dtup_1861__ADD2SBUF_CCOMSTRING;
-  cdat->dtup_1861__ADD2SBUF_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1861__ADD2SBUF_CCOMSTRING.nbval = 5;
- /*inimult dtup_1862__ADD2SBUF_CCOMSTRING*/
- /*_.VALTUP___V1870*/ curfptr[1869] = (void*)&cdat->dtup_1862__ADD2SBUF_CCOMSTRING;
-  cdat->dtup_1862__ADD2SBUF_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1862__ADD2SBUF_CCOMSTRING.nbval = 2;
+ /*iniobj dobj_1863__ADD2SBUF_CCOMSTRBUF*/
+ if (!/*_.VALDATA___V1869*/ curfptr[1868]) /*_.VALDATA___V1869*/ curfptr[1868] = (void*)&cdat->dobj_1863__ADD2SBUF_CCOMSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_1863__ADD2SBUF_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1863__ADD2SBUF_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1863__ADD2SBUF_CCOMSTRBUF.obj_hash = 369496346;
+  cdat->dobj_1863__ADD2SBUF_CCOMSTRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1863__ADD2SBUF_CCOMSTRBUF));
+ 
+ /*inimult dtup_1864__ADD2SBUF_CCOMSTRBUF*/
+ /*_.VALTUP___V1877*/ curfptr[1876] = (void*)&cdat->dtup_1864__ADD2SBUF_CCOMSTRBUF;
+  cdat->dtup_1864__ADD2SBUF_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1864__ADD2SBUF_CCOMSTRBUF.nbval = 5;
+ /*inimult dtup_1865__ADD2SBUF_CCOMSTRBUF*/
+ /*_.VALTUP___V1873*/ curfptr[1872] = (void*)&cdat->dtup_1865__ADD2SBUF_CCOMSTRBUF;
+  cdat->dtup_1865__ADD2SBUF_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1865__ADD2SBUF_CCOMSTRBUF.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1141:/ iniobj");
- /*iniobj dobj_1863*/
- if (!/*_.VALDATA___V1868*/ curfptr[1867]) /*_.VALDATA___V1868*/ curfptr[1867] = (void*)&cdat->dobj_1863;
-  melt_assertmsg("iniobj checkdiscr dobj_1863", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1863.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1863.obj_num = 0;
-  cdat->dobj_1863.obj_hash = 196255621;
-  cdat->dobj_1863.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1863));
+ /*iniobj dobj_1866*/
+ if (!/*_.VALDATA___V1871*/ curfptr[1870]) /*_.VALDATA___V1871*/ curfptr[1870] = (void*)&cdat->dobj_1866;
+  melt_assertmsg("iniobj checkdiscr dobj_1866", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1866.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1866.obj_num = 0;
+  cdat->dobj_1866.obj_hash = 487876188;
+  cdat->dobj_1866.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1866));
  
  MELT_LOCATION("warmelt-first.melt:1141:/ iniobj");
- /*iniobj dobj_1864*/
- if (!/*_.VALDATA___V1869*/ curfptr[1868]) /*_.VALDATA___V1869*/ curfptr[1868] = (void*)&cdat->dobj_1864;
-  melt_assertmsg("iniobj checkdiscr dobj_1864", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1864.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1864.obj_num = 1;
-  cdat->dobj_1864.obj_hash = 774621955;
-  cdat->dobj_1864.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1864));
- 
- /*inistring dstr_1865__meltgc_add_strbu*/
- /*_.VALSTR___V1871*/ curfptr[1870] = (void*)&cdat->dstr_1865__meltgc_add_strbu;
-  cdat->dstr_1865__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1865__meltgc_add_strbu.val, "meltgc_add_strbuf_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_1865__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1866__melt_string_s*/
- /*_.VALSTR___V1872*/ curfptr[1871] = (void*)&cdat->dstr_1866__melt_string_s;
-  cdat->dstr_1866__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1866__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1866__melt_string_s.val)-1);
- 
- /*inistring dstr_1867__*/
- /*_.VALSTR___V1873*/ curfptr[1872] = (void*)&cdat->dstr_1867__;
-  cdat->dstr_1867__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1867__.val, ")))", sizeof(cdat->dstr_1867__.val)-1);
- 
- /*inistring dstr_1868__ADD2SBUF_CCOMSTR*/
- /*_.VALSTR___V1867*/ curfptr[1866] = (void*)&cdat->dstr_1868__ADD2SBUF_CCOMSTR;
-  cdat->dstr_1868__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1868__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRING", sizeof(cdat->dstr_1868__ADD2SBUF_CCOMSTR.val)-1);
- 
- /*iniobj dsym_1869__ADD2SBUF_CCOMSTRBUF*/
- if (!/*_.VALDATA___V1875*/ curfptr[1874]) /*_.VALDATA___V1875*/ curfptr[1874] = (void*)&cdat->dsym_1869__ADD2SBUF_CCOMSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_1869__ADD2SBUF_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1869__ADD2SBUF_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1869__ADD2SBUF_CCOMSTRBUF.obj_hash = 878484121;
-  cdat->dsym_1869__ADD2SBUF_CCOMSTRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1869__ADD2SBUF_CCOMSTRBUF));
- 
- /*inistring dstr_1870__ADD2SBUF_CCOMSTR*/
- /*_.VALSTR___V1876*/ curfptr[1875] = (void*)&cdat->dstr_1870__ADD2SBUF_CCOMSTR;
-  cdat->dstr_1870__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1870__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRBUF", sizeof(cdat->dstr_1870__ADD2SBUF_CCOMSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1146:/ iniobj");
- /*iniobj dobj_1871__ADD2SBUF_CCOMSTRBUF*/
- if (!/*_.VALDATA___V1877*/ curfptr[1876]) /*_.VALDATA___V1877*/ curfptr[1876] = (void*)&cdat->dobj_1871__ADD2SBUF_CCOMSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_1871__ADD2SBUF_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1871__ADD2SBUF_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1871__ADD2SBUF_CCOMSTRBUF.obj_hash = 287656459;
-  cdat->dobj_1871__ADD2SBUF_CCOMSTRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1871__ADD2SBUF_CCOMSTRBUF));
- 
- /*inimult dtup_1872__ADD2SBUF_CCOMSTRBUF*/
- /*_.VALTUP___V1885*/ curfptr[1884] = (void*)&cdat->dtup_1872__ADD2SBUF_CCOMSTRBUF;
-  cdat->dtup_1872__ADD2SBUF_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1872__ADD2SBUF_CCOMSTRBUF.nbval = 5;
- /*inimult dtup_1873__ADD2SBUF_CCOMSTRBUF*/
- /*_.VALTUP___V1881*/ curfptr[1880] = (void*)&cdat->dtup_1873__ADD2SBUF_CCOMSTRBUF;
-  cdat->dtup_1873__ADD2SBUF_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1873__ADD2SBUF_CCOMSTRBUF.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1146:/ iniobj");
- /*iniobj dobj_1874*/
- if (!/*_.VALDATA___V1879*/ curfptr[1878]) /*_.VALDATA___V1879*/ curfptr[1878] = (void*)&cdat->dobj_1874;
-  melt_assertmsg("iniobj checkdiscr dobj_1874", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1874.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1874.obj_num = 0;
-  cdat->dobj_1874.obj_hash = 852494266;
-  cdat->dobj_1874.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1874));
- 
- MELT_LOCATION("warmelt-first.melt:1146:/ iniobj");
- /*iniobj dobj_1875*/
- if (!/*_.VALDATA___V1880*/ curfptr[1879]) /*_.VALDATA___V1880*/ curfptr[1879] = (void*)&cdat->dobj_1875;
-  melt_assertmsg("iniobj checkdiscr dobj_1875", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1875.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1875.obj_num = 1;
-  cdat->dobj_1875.obj_hash = 276300604;
-  cdat->dobj_1875.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1875));
- 
- /*inistring dstr_1876__meltgc_add_strbu*/
- /*_.VALSTR___V1882*/ curfptr[1881] = (void*)&cdat->dstr_1876__meltgc_add_strbu;
-  cdat->dstr_1876__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1876__meltgc_add_strbu.val, "meltgc_add_strbuf_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_1876__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1877__me*/
- /*_.VALSTR___V1883*/ curfptr[1882] = (void*)&cdat->dstr_1877__me;
-  cdat->dstr_1877__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1877__me.val, "), \n\t\t\t       melt_strbuf_str((melt_ptr_t)(", sizeof(cdat->dstr_1877__me.val)-1);
- 
- /*inistring dstr_1878__*/
- /*_.VALSTR___V1884*/ curfptr[1883] = (void*)&cdat->dstr_1878__;
-  cdat->dstr_1878__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1878__.val, ")))", sizeof(cdat->dstr_1878__.val)-1);
- 
- /*inistring dstr_1879__ADD2SBUF_CCOMSTR*/
- /*_.VALSTR___V1878*/ curfptr[1877] = (void*)&cdat->dstr_1879__ADD2SBUF_CCOMSTR;
-  cdat->dstr_1879__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1879__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRBUF", sizeof(cdat->dstr_1879__ADD2SBUF_CCOMSTR.val)-1);
- 
- /*iniobj dsym_1880__ADD2SBUF_CCOMCONST*/
- if (!/*_.VALDATA___V1886*/ curfptr[1885]) /*_.VALDATA___V1886*/ curfptr[1885] = (void*)&cdat->dsym_1880__ADD2SBUF_CCOMCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_1880__ADD2SBUF_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1880__ADD2SBUF_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1880__ADD2SBUF_CCOMCONST.obj_hash = 405837423;
-  cdat->dsym_1880__ADD2SBUF_CCOMCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1880__ADD2SBUF_CCOMCONST));
- 
- /*inistring dstr_1881__ADD2SBUF_CCOMCON*/
- /*_.VALSTR___V1887*/ curfptr[1886] = (void*)&cdat->dstr_1881__ADD2SBUF_CCOMCON;
-  cdat->dstr_1881__ADD2SBUF_CCOMCON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1881__ADD2SBUF_CCOMCON.val, "ADD2SBUF_CCOMCONST", sizeof(cdat->dstr_1881__ADD2SBUF_CCOMCON.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1152:/ iniobj");
- /*iniobj dobj_1882__ADD2SBUF_CCOMCONST*/
- if (!/*_.VALDATA___V1888*/ curfptr[1887]) /*_.VALDATA___V1888*/ curfptr[1887] = (void*)&cdat->dobj_1882__ADD2SBUF_CCOMCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_1882__ADD2SBUF_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1882__ADD2SBUF_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1882__ADD2SBUF_CCOMCONST.obj_hash = 850972537;
-  cdat->dobj_1882__ADD2SBUF_CCOMCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1882__ADD2SBUF_CCOMCONST));
- 
- /*inimult dtup_1883__ADD2SBUF_CCOMCONST*/
- /*_.VALTUP___V1898*/ curfptr[1897] = (void*)&cdat->dtup_1883__ADD2SBUF_CCOMCONST;
-  cdat->dtup_1883__ADD2SBUF_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1883__ADD2SBUF_CCOMCONST.nbval = 5;
- /*inimult dtup_1884__ADD2SBUF_CCOMCONST*/
- /*_.VALTUP___V1894*/ curfptr[1893] = (void*)&cdat->dtup_1884__ADD2SBUF_CCOMCONST;
-  cdat->dtup_1884__ADD2SBUF_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1884__ADD2SBUF_CCOMCONST.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1152:/ iniobj");
- /*iniobj dobj_1885*/
- if (!/*_.VALDATA___V1890*/ curfptr[1889]) /*_.VALDATA___V1890*/ curfptr[1889] = (void*)&cdat->dobj_1885;
-  melt_assertmsg("iniobj checkdiscr dobj_1885", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1885.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1885.obj_num = 0;
-  cdat->dobj_1885.obj_hash = 421494411;
-  cdat->dobj_1885.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1885));
- 
- /*iniobj dsym_1886__CSTR*/
- if (!/*_.VALDATA___V1892*/ curfptr[1891]) /*_.VALDATA___V1892*/ curfptr[1891] = (void*)&cdat->dsym_1886__CSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_1886__CSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1886__CSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1886__CSTR.obj_hash = 67278127;
-  cdat->dsym_1886__CSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1886__CSTR));
- 
- /*inistring dstr_1887__CSTR*/
- /*_.VALSTR___V1893*/ curfptr[1892] = (void*)&cdat->dstr_1887__CSTR;
-  cdat->dstr_1887__CSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1887__CSTR.val, "CSTR", sizeof(cdat->dstr_1887__CSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1152:/ iniobj");
- /*iniobj dobj_1888*/
- if (!/*_.VALDATA___V1891*/ curfptr[1890]) /*_.VALDATA___V1891*/ curfptr[1890] = (void*)&cdat->dobj_1888;
-  melt_assertmsg("iniobj checkdiscr dobj_1888", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1888.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1888.obj_num = 1;
-  cdat->dobj_1888.obj_hash = 315712478;
-  cdat->dobj_1888.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1888));
- 
- /*inistring dstr_1889__meltgc_add_strbu*/
- /*_.VALSTR___V1895*/ curfptr[1894] = (void*)&cdat->dstr_1889__meltgc_add_strbu;
-  cdat->dstr_1889__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1889__meltgc_add_strbu.val, "meltgc_add_strbuf_ccomment((", sizeof(cdat->dstr_1889__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1890__*/
- /*_.VALSTR___V1896*/ curfptr[1895] = (void*)&cdat->dstr_1890__;
-  cdat->dstr_1890__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1890__.val, "), ", sizeof(cdat->dstr_1890__.val)-1);
- 
- /*inistring dstr_1891__*/
- /*_.VALSTR___V1897*/ curfptr[1896] = (void*)&cdat->dstr_1891__;
-  cdat->dstr_1891__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1891__.val, ")", sizeof(cdat->dstr_1891__.val)-1);
- 
- /*inistring dstr_1892__ADD2SBUF_CCOMCON*/
- /*_.VALSTR___V1889*/ curfptr[1888] = (void*)&cdat->dstr_1892__ADD2SBUF_CCOMCON;
-  cdat->dstr_1892__ADD2SBUF_CCOMCON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1892__ADD2SBUF_CCOMCON.val, "ADD2SBUF_CCOMCONST", sizeof(cdat->dstr_1892__ADD2SBUF_CCOMCON.val)-1);
- 
- /*iniobj dsym_1893__ADD2SBUF_CIDENT*/
- if (!/*_.VALDATA___V1899*/ curfptr[1898]) /*_.VALDATA___V1899*/ curfptr[1898] = (void*)&cdat->dsym_1893__ADD2SBUF_CIDENT;
-  melt_assertmsg("iniobj checkdiscr dsym_1893__ADD2SBUF_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1893__ADD2SBUF_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1893__ADD2SBUF_CIDENT.obj_hash = 92009537;
-  cdat->dsym_1893__ADD2SBUF_CIDENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1893__ADD2SBUF_CIDENT));
- 
- /*inistring dstr_1894__ADD2SBUF_CIDENT*/
- /*_.VALSTR___V1900*/ curfptr[1899] = (void*)&cdat->dstr_1894__ADD2SBUF_CIDENT;
-  cdat->dstr_1894__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1894__ADD2SBUF_CIDENT.val, "ADD2SBUF_CIDENT", sizeof(cdat->dstr_1894__ADD2SBUF_CIDENT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1159:/ iniobj");
- /*iniobj dobj_1895__ADD2SBUF_CIDENT*/
- if (!/*_.VALDATA___V1901*/ curfptr[1900]) /*_.VALDATA___V1901*/ curfptr[1900] = (void*)&cdat->dobj_1895__ADD2SBUF_CIDENT;
-  melt_assertmsg("iniobj checkdiscr dobj_1895__ADD2SBUF_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1895__ADD2SBUF_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1895__ADD2SBUF_CIDENT.obj_hash = 791932600;
-  cdat->dobj_1895__ADD2SBUF_CIDENT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1895__ADD2SBUF_CIDENT));
- 
- /*inimult dtup_1896__ADD2SBUF_CIDENT*/
- /*_.VALTUP___V1909*/ curfptr[1908] = (void*)&cdat->dtup_1896__ADD2SBUF_CIDENT;
-  cdat->dtup_1896__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1896__ADD2SBUF_CIDENT.nbval = 5;
- /*inimult dtup_1897__ADD2SBUF_CIDENT*/
- /*_.VALTUP___V1905*/ curfptr[1904] = (void*)&cdat->dtup_1897__ADD2SBUF_CIDENT;
-  cdat->dtup_1897__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1897__ADD2SBUF_CIDENT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1159:/ iniobj");
- /*iniobj dobj_1898*/
- if (!/*_.VALDATA___V1903*/ curfptr[1902]) /*_.VALDATA___V1903*/ curfptr[1902] = (void*)&cdat->dobj_1898;
-  melt_assertmsg("iniobj checkdiscr dobj_1898", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1898.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1898.obj_num = 0;
-  cdat->dobj_1898.obj_hash = 154144779;
-  cdat->dobj_1898.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1898));
- 
- MELT_LOCATION("warmelt-first.melt:1159:/ iniobj");
- /*iniobj dobj_1899*/
- if (!/*_.VALDATA___V1904*/ curfptr[1903]) /*_.VALDATA___V1904*/ curfptr[1903] = (void*)&cdat->dobj_1899;
-  melt_assertmsg("iniobj checkdiscr dobj_1899", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1899.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1899.obj_num = 1;
-  cdat->dobj_1899.obj_hash = 446539208;
-  cdat->dobj_1899.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1899));
- 
- /*inistring dstr_1900__meltgc_add_strbu*/
- /*_.VALSTR___V1906*/ curfptr[1905] = (void*)&cdat->dstr_1900__meltgc_add_strbu;
-  cdat->dstr_1900__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1900__meltgc_add_strbu.val, "meltgc_add_strbuf_cident((melt_ptr_t)(", sizeof(cdat->dstr_1900__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1901__melt_string*/
- /*_.VALSTR___V1907*/ curfptr[1906] = (void*)&cdat->dstr_1901__melt_string;
-  cdat->dstr_1901__melt_string.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1901__melt_string.val, "),\n  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1901__melt_string.val)-1);
- 
- /*inistring dstr_1902__*/
- /*_.VALSTR___V1908*/ curfptr[1907] = (void*)&cdat->dstr_1902__;
-  cdat->dstr_1902__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1902__.val, ")))", sizeof(cdat->dstr_1902__.val)-1);
- 
- /*inistring dstr_1903__ADD2SBUF_CIDENT*/
- /*_.VALSTR___V1902*/ curfptr[1901] = (void*)&cdat->dstr_1903__ADD2SBUF_CIDENT;
-  cdat->dstr_1903__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1903__ADD2SBUF_CIDENT.val, "ADD2SBUF_CIDENT", sizeof(cdat->dstr_1903__ADD2SBUF_CIDENT.val)-1);
- 
- /*iniobj dsym_1904__ADD2SBUF_CIDENTPREFIX*/
- if (!/*_.VALDATA___V1910*/ curfptr[1909]) /*_.VALDATA___V1910*/ curfptr[1909] = (void*)&cdat->dsym_1904__ADD2SBUF_CIDENTPREFIX;
-  melt_assertmsg("iniobj checkdiscr dsym_1904__ADD2SBUF_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1904__ADD2SBUF_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1904__ADD2SBUF_CIDENTPREFIX.obj_hash = 552229100;
-  cdat->dsym_1904__ADD2SBUF_CIDENTPREFIX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1904__ADD2SBUF_CIDENTPREFIX));
- 
- /*inistring dstr_1905__ADD2SBUF_CIDENTP*/
- /*_.VALSTR___V1911*/ curfptr[1910] = (void*)&cdat->dstr_1905__ADD2SBUF_CIDENTP;
-  cdat->dstr_1905__ADD2SBUF_CIDENTP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1905__ADD2SBUF_CIDENTP.val, "ADD2SBUF_CIDENTPREFIX", sizeof(cdat->dstr_1905__ADD2SBUF_CIDENTP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1167:/ iniobj");
- /*iniobj dobj_1906__ADD2SBUF_CIDENTPREFIX*/
- if (!/*_.VALDATA___V1912*/ curfptr[1911]) /*_.VALDATA___V1912*/ curfptr[1911] = (void*)&cdat->dobj_1906__ADD2SBUF_CIDENTPREFIX;
-  melt_assertmsg("iniobj checkdiscr dobj_1906__ADD2SBUF_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1906__ADD2SBUF_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1906__ADD2SBUF_CIDENTPREFIX.obj_hash = 288149315;
-  cdat->dobj_1906__ADD2SBUF_CIDENTPREFIX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1906__ADD2SBUF_CIDENTPREFIX));
- 
- /*inimult dtup_1907__ADD2SBUF_CIDENTPREFIX*/
- /*_.VALTUP___V1924*/ curfptr[1923] = (void*)&cdat->dtup_1907__ADD2SBUF_CIDENTPREFIX;
-  cdat->dtup_1907__ADD2SBUF_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1907__ADD2SBUF_CIDENTPREFIX.nbval = 7;
- /*inimult dtup_1908__ADD2SBUF_CIDENTPREFIX*/
- /*_.VALTUP___V1919*/ curfptr[1918] = (void*)&cdat->dtup_1908__ADD2SBUF_CIDENTPREFIX;
-  cdat->dtup_1908__ADD2SBUF_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1908__ADD2SBUF_CIDENTPREFIX.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1167:/ iniobj");
- /*iniobj dobj_1909*/
- if (!/*_.VALDATA___V1914*/ curfptr[1913]) /*_.VALDATA___V1914*/ curfptr[1913] = (void*)&cdat->dobj_1909;
-  melt_assertmsg("iniobj checkdiscr dobj_1909", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1909.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1909.obj_num = 0;
-  cdat->dobj_1909.obj_hash = 188762750;
-  cdat->dobj_1909.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1909));
- 
- MELT_LOCATION("warmelt-first.melt:1167:/ iniobj");
- /*iniobj dobj_1910*/
- if (!/*_.VALDATA___V1915*/ curfptr[1914]) /*_.VALDATA___V1915*/ curfptr[1914] = (void*)&cdat->dobj_1910;
-  melt_assertmsg("iniobj checkdiscr dobj_1910", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1910.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1910.obj_num = 1;
-  cdat->dobj_1910.obj_hash = 524633310;
-  cdat->dobj_1910.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1910));
- 
- /*iniobj dsym_1911__PREFLEN*/
- if (!/*_.VALDATA___V1917*/ curfptr[1916]) /*_.VALDATA___V1917*/ curfptr[1916] = (void*)&cdat->dsym_1911__PREFLEN;
-  melt_assertmsg("iniobj checkdiscr dsym_1911__PREFLEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1911__PREFLEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1911__PREFLEN.obj_hash = 9027400;
-  cdat->dsym_1911__PREFLEN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1911__PREFLEN));
- 
- /*inistring dstr_1912__PREFLEN*/
- /*_.VALSTR___V1918*/ curfptr[1917] = (void*)&cdat->dstr_1912__PREFLEN;
-  cdat->dstr_1912__PREFLEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1912__PREFLEN.val, "PREFLEN", sizeof(cdat->dstr_1912__PREFLEN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1167:/ iniobj");
- /*iniobj dobj_1913*/
- if (!/*_.VALDATA___V1916*/ curfptr[1915]) /*_.VALDATA___V1916*/ curfptr[1915] = (void*)&cdat->dobj_1913;
-  melt_assertmsg("iniobj checkdiscr dobj_1913", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1913.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1913.obj_num = 2;
-  cdat->dobj_1913.obj_hash = 896296011;
-  cdat->dobj_1913.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1913));
- 
- /*inistring dstr_1914__meltgc_add_strbu*/
- /*_.VALSTR___V1920*/ curfptr[1919] = (void*)&cdat->dstr_1914__meltgc_add_strbu;
-  cdat->dstr_1914__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1914__meltgc_add_strbu.val, "meltgc_add_strbuf_cidentprefix((melt_ptr_t)(", sizeof(cdat->dstr_1914__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1915__melt_string_s*/
- /*_.VALSTR___V1921*/ curfptr[1920] = (void*)&cdat->dstr_1915__melt_string_s;
-  cdat->dstr_1915__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1915__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1915__melt_string_s.val)-1);
- 
- /*inistring dstr_1916__*/
- /*_.VALSTR___V1922*/ curfptr[1921] = (void*)&cdat->dstr_1916__;
-  cdat->dstr_1916__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1916__.val, ")), (", sizeof(cdat->dstr_1916__.val)-1);
- 
- /*inistring dstr_1917__*/
- /*_.VALSTR___V1923*/ curfptr[1922] = (void*)&cdat->dstr_1917__;
-  cdat->dstr_1917__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1917__.val, "))", sizeof(cdat->dstr_1917__.val)-1);
- 
- /*inistring dstr_1918__ADD2SBUF_CIDENTP*/
- /*_.VALSTR___V1913*/ curfptr[1912] = (void*)&cdat->dstr_1918__ADD2SBUF_CIDENTP;
-  cdat->dstr_1918__ADD2SBUF_CIDENTP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1918__ADD2SBUF_CIDENTP.val, "ADD2SBUF_CIDENTPREFIX", sizeof(cdat->dstr_1918__ADD2SBUF_CIDENTP.val)-1);
- 
- /*iniobj dsym_1919__ADD2SBUF_LONGDEC*/
- if (!/*_.VALDATA___V1925*/ curfptr[1924]) /*_.VALDATA___V1925*/ curfptr[1924] = (void*)&cdat->dsym_1919__ADD2SBUF_LONGDEC;
-  melt_assertmsg("iniobj checkdiscr dsym_1919__ADD2SBUF_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1919__ADD2SBUF_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1919__ADD2SBUF_LONGDEC.obj_hash = 987171205;
-  cdat->dsym_1919__ADD2SBUF_LONGDEC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1919__ADD2SBUF_LONGDEC));
- 
- /*inistring dstr_1920__ADD2SBUF_LONGDEC*/
- /*_.VALSTR___V1926*/ curfptr[1925] = (void*)&cdat->dstr_1920__ADD2SBUF_LONGDEC;
-  cdat->dstr_1920__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1920__ADD2SBUF_LONGDEC.val, "ADD2SBUF_LONGDEC", sizeof(cdat->dstr_1920__ADD2SBUF_LONGDEC.val)-1);
+ /*iniobj dobj_1867*/
+ if (!/*_.VALDATA___V1872*/ curfptr[1871]) /*_.VALDATA___V1872*/ curfptr[1871] = (void*)&cdat->dobj_1867;
+  melt_assertmsg("iniobj checkdiscr dobj_1867", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1867.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1867.obj_num = 1;
+  cdat->dobj_1867.obj_hash = 431426065;
+  cdat->dobj_1867.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1867));
+ 
+ /*inistring dstr_1868__meltgc_add_strbu*/
+ /*_.VALSTR___V1874*/ curfptr[1873] = (void*)&cdat->dstr_1868__meltgc_add_strbu;
+  cdat->dstr_1868__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1868__meltgc_add_strbu.val, "meltgc_add_strbuf_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_1868__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1869__me*/
+ /*_.VALSTR___V1875*/ curfptr[1874] = (void*)&cdat->dstr_1869__me;
+  cdat->dstr_1869__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1869__me.val, "), \n\t\t\t       melt_strbuf_str((melt_ptr_t)(", sizeof(cdat->dstr_1869__me.val)-1);
+ 
+ /*inistring dstr_1870__*/
+ /*_.VALSTR___V1876*/ curfptr[1875] = (void*)&cdat->dstr_1870__;
+  cdat->dstr_1870__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1870__.val, ")))", sizeof(cdat->dstr_1870__.val)-1);
+ 
+ /*inistring dstr_1871__ADD2SBUF_CCOMSTR*/
+ /*_.VALSTR___V1870*/ curfptr[1869] = (void*)&cdat->dstr_1871__ADD2SBUF_CCOMSTR;
+  cdat->dstr_1871__ADD2SBUF_CCOMSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1871__ADD2SBUF_CCOMSTR.val, "ADD2SBUF_CCOMSTRBUF", sizeof(cdat->dstr_1871__ADD2SBUF_CCOMSTR.val)-1);
+ 
+ /*iniobj dsym_1872__ADD2SBUF_CCOMCONST*/
+ if (!/*_.VALDATA___V1878*/ curfptr[1877]) /*_.VALDATA___V1878*/ curfptr[1877] = (void*)&cdat->dsym_1872__ADD2SBUF_CCOMCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_1872__ADD2SBUF_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1872__ADD2SBUF_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1872__ADD2SBUF_CCOMCONST.obj_hash = 405837423;
+  cdat->dsym_1872__ADD2SBUF_CCOMCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1872__ADD2SBUF_CCOMCONST));
+ 
+ /*inistring dstr_1873__ADD2SBUF_CCOMCON*/
+ /*_.VALSTR___V1879*/ curfptr[1878] = (void*)&cdat->dstr_1873__ADD2SBUF_CCOMCON;
+  cdat->dstr_1873__ADD2SBUF_CCOMCON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1873__ADD2SBUF_CCOMCON.val, "ADD2SBUF_CCOMCONST", sizeof(cdat->dstr_1873__ADD2SBUF_CCOMCON.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1147:/ iniobj");
+ /*iniobj dobj_1874__ADD2SBUF_CCOMCONST*/
+ if (!/*_.VALDATA___V1880*/ curfptr[1879]) /*_.VALDATA___V1880*/ curfptr[1879] = (void*)&cdat->dobj_1874__ADD2SBUF_CCOMCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_1874__ADD2SBUF_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1874__ADD2SBUF_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1874__ADD2SBUF_CCOMCONST.obj_hash = 669480453;
+  cdat->dobj_1874__ADD2SBUF_CCOMCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1874__ADD2SBUF_CCOMCONST));
+ 
+ /*inimult dtup_1875__ADD2SBUF_CCOMCONST*/
+ /*_.VALTUP___V1890*/ curfptr[1889] = (void*)&cdat->dtup_1875__ADD2SBUF_CCOMCONST;
+  cdat->dtup_1875__ADD2SBUF_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1875__ADD2SBUF_CCOMCONST.nbval = 5;
+ /*inimult dtup_1876__ADD2SBUF_CCOMCONST*/
+ /*_.VALTUP___V1886*/ curfptr[1885] = (void*)&cdat->dtup_1876__ADD2SBUF_CCOMCONST;
+  cdat->dtup_1876__ADD2SBUF_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1876__ADD2SBUF_CCOMCONST.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1147:/ iniobj");
+ /*iniobj dobj_1877*/
+ if (!/*_.VALDATA___V1882*/ curfptr[1881]) /*_.VALDATA___V1882*/ curfptr[1881] = (void*)&cdat->dobj_1877;
+  melt_assertmsg("iniobj checkdiscr dobj_1877", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1877.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1877.obj_num = 0;
+  cdat->dobj_1877.obj_hash = 219599072;
+  cdat->dobj_1877.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1877));
+ 
+ /*iniobj dsym_1878__CSTR*/
+ if (!/*_.VALDATA___V1884*/ curfptr[1883]) /*_.VALDATA___V1884*/ curfptr[1883] = (void*)&cdat->dsym_1878__CSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_1878__CSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1878__CSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1878__CSTR.obj_hash = 67278127;
+  cdat->dsym_1878__CSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1878__CSTR));
+ 
+ /*inistring dstr_1879__CSTR*/
+ /*_.VALSTR___V1885*/ curfptr[1884] = (void*)&cdat->dstr_1879__CSTR;
+  cdat->dstr_1879__CSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1879__CSTR.val, "CSTR", sizeof(cdat->dstr_1879__CSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1147:/ iniobj");
+ /*iniobj dobj_1880*/
+ if (!/*_.VALDATA___V1883*/ curfptr[1882]) /*_.VALDATA___V1883*/ curfptr[1882] = (void*)&cdat->dobj_1880;
+  melt_assertmsg("iniobj checkdiscr dobj_1880", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1880.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1880.obj_num = 1;
+  cdat->dobj_1880.obj_hash = 1012046453;
+  cdat->dobj_1880.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1880));
+ 
+ /*inistring dstr_1881__meltgc_add_strbu*/
+ /*_.VALSTR___V1887*/ curfptr[1886] = (void*)&cdat->dstr_1881__meltgc_add_strbu;
+  cdat->dstr_1881__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1881__meltgc_add_strbu.val, "meltgc_add_strbuf_ccomment((", sizeof(cdat->dstr_1881__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1882__*/
+ /*_.VALSTR___V1888*/ curfptr[1887] = (void*)&cdat->dstr_1882__;
+  cdat->dstr_1882__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1882__.val, "), ", sizeof(cdat->dstr_1882__.val)-1);
+ 
+ /*inistring dstr_1883__*/
+ /*_.VALSTR___V1889*/ curfptr[1888] = (void*)&cdat->dstr_1883__;
+  cdat->dstr_1883__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1883__.val, ")", sizeof(cdat->dstr_1883__.val)-1);
+ 
+ /*inistring dstr_1884__ADD2SBUF_CCOMCON*/
+ /*_.VALSTR___V1881*/ curfptr[1880] = (void*)&cdat->dstr_1884__ADD2SBUF_CCOMCON;
+  cdat->dstr_1884__ADD2SBUF_CCOMCON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1884__ADD2SBUF_CCOMCON.val, "ADD2SBUF_CCOMCONST", sizeof(cdat->dstr_1884__ADD2SBUF_CCOMCON.val)-1);
+ 
+ /*iniobj dsym_1885__ADD2SBUF_CIDENT*/
+ if (!/*_.VALDATA___V1891*/ curfptr[1890]) /*_.VALDATA___V1891*/ curfptr[1890] = (void*)&cdat->dsym_1885__ADD2SBUF_CIDENT;
+  melt_assertmsg("iniobj checkdiscr dsym_1885__ADD2SBUF_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1885__ADD2SBUF_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1885__ADD2SBUF_CIDENT.obj_hash = 92009537;
+  cdat->dsym_1885__ADD2SBUF_CIDENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1885__ADD2SBUF_CIDENT));
+ 
+ /*inistring dstr_1886__ADD2SBUF_CIDENT*/
+ /*_.VALSTR___V1892*/ curfptr[1891] = (void*)&cdat->dstr_1886__ADD2SBUF_CIDENT;
+  cdat->dstr_1886__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1886__ADD2SBUF_CIDENT.val, "ADD2SBUF_CIDENT", sizeof(cdat->dstr_1886__ADD2SBUF_CIDENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1154:/ iniobj");
+ /*iniobj dobj_1887__ADD2SBUF_CIDENT*/
+ if (!/*_.VALDATA___V1893*/ curfptr[1892]) /*_.VALDATA___V1893*/ curfptr[1892] = (void*)&cdat->dobj_1887__ADD2SBUF_CIDENT;
+  melt_assertmsg("iniobj checkdiscr dobj_1887__ADD2SBUF_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1887__ADD2SBUF_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1887__ADD2SBUF_CIDENT.obj_hash = 186201737;
+  cdat->dobj_1887__ADD2SBUF_CIDENT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1887__ADD2SBUF_CIDENT));
+ 
+ /*inimult dtup_1888__ADD2SBUF_CIDENT*/
+ /*_.VALTUP___V1901*/ curfptr[1900] = (void*)&cdat->dtup_1888__ADD2SBUF_CIDENT;
+  cdat->dtup_1888__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1888__ADD2SBUF_CIDENT.nbval = 5;
+ /*inimult dtup_1889__ADD2SBUF_CIDENT*/
+ /*_.VALTUP___V1897*/ curfptr[1896] = (void*)&cdat->dtup_1889__ADD2SBUF_CIDENT;
+  cdat->dtup_1889__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1889__ADD2SBUF_CIDENT.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1154:/ iniobj");
+ /*iniobj dobj_1890*/
+ if (!/*_.VALDATA___V1895*/ curfptr[1894]) /*_.VALDATA___V1895*/ curfptr[1894] = (void*)&cdat->dobj_1890;
+  melt_assertmsg("iniobj checkdiscr dobj_1890", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1890.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1890.obj_num = 0;
+  cdat->dobj_1890.obj_hash = 16286877;
+  cdat->dobj_1890.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1890));
+ 
+ MELT_LOCATION("warmelt-first.melt:1154:/ iniobj");
+ /*iniobj dobj_1891*/
+ if (!/*_.VALDATA___V1896*/ curfptr[1895]) /*_.VALDATA___V1896*/ curfptr[1895] = (void*)&cdat->dobj_1891;
+  melt_assertmsg("iniobj checkdiscr dobj_1891", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1891.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1891.obj_num = 1;
+  cdat->dobj_1891.obj_hash = 524880195;
+  cdat->dobj_1891.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1891));
+ 
+ /*inistring dstr_1892__meltgc_add_strbu*/
+ /*_.VALSTR___V1898*/ curfptr[1897] = (void*)&cdat->dstr_1892__meltgc_add_strbu;
+  cdat->dstr_1892__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1892__meltgc_add_strbu.val, "meltgc_add_strbuf_cident((melt_ptr_t)(", sizeof(cdat->dstr_1892__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1893__melt_string*/
+ /*_.VALSTR___V1899*/ curfptr[1898] = (void*)&cdat->dstr_1893__melt_string;
+  cdat->dstr_1893__melt_string.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1893__melt_string.val, "),\n  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1893__melt_string.val)-1);
+ 
+ /*inistring dstr_1894__*/
+ /*_.VALSTR___V1900*/ curfptr[1899] = (void*)&cdat->dstr_1894__;
+  cdat->dstr_1894__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1894__.val, ")))", sizeof(cdat->dstr_1894__.val)-1);
+ 
+ /*inistring dstr_1895__ADD2SBUF_CIDENT*/
+ /*_.VALSTR___V1894*/ curfptr[1893] = (void*)&cdat->dstr_1895__ADD2SBUF_CIDENT;
+  cdat->dstr_1895__ADD2SBUF_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1895__ADD2SBUF_CIDENT.val, "ADD2SBUF_CIDENT", sizeof(cdat->dstr_1895__ADD2SBUF_CIDENT.val)-1);
+ 
+ /*iniobj dsym_1896__ADD2SBUF_CIDENTPREFIX*/
+ if (!/*_.VALDATA___V1902*/ curfptr[1901]) /*_.VALDATA___V1902*/ curfptr[1901] = (void*)&cdat->dsym_1896__ADD2SBUF_CIDENTPREFIX;
+  melt_assertmsg("iniobj checkdiscr dsym_1896__ADD2SBUF_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1896__ADD2SBUF_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1896__ADD2SBUF_CIDENTPREFIX.obj_hash = 552229100;
+  cdat->dsym_1896__ADD2SBUF_CIDENTPREFIX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1896__ADD2SBUF_CIDENTPREFIX));
+ 
+ /*inistring dstr_1897__ADD2SBUF_CIDENTP*/
+ /*_.VALSTR___V1903*/ curfptr[1902] = (void*)&cdat->dstr_1897__ADD2SBUF_CIDENTP;
+  cdat->dstr_1897__ADD2SBUF_CIDENTP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1897__ADD2SBUF_CIDENTP.val, "ADD2SBUF_CIDENTPREFIX", sizeof(cdat->dstr_1897__ADD2SBUF_CIDENTP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1162:/ iniobj");
+ /*iniobj dobj_1898__ADD2SBUF_CIDENTPREFIX*/
+ if (!/*_.VALDATA___V1904*/ curfptr[1903]) /*_.VALDATA___V1904*/ curfptr[1903] = (void*)&cdat->dobj_1898__ADD2SBUF_CIDENTPREFIX;
+  melt_assertmsg("iniobj checkdiscr dobj_1898__ADD2SBUF_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1898__ADD2SBUF_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1898__ADD2SBUF_CIDENTPREFIX.obj_hash = 592187441;
+  cdat->dobj_1898__ADD2SBUF_CIDENTPREFIX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1898__ADD2SBUF_CIDENTPREFIX));
+ 
+ /*inimult dtup_1899__ADD2SBUF_CIDENTPREFIX*/
+ /*_.VALTUP___V1916*/ curfptr[1915] = (void*)&cdat->dtup_1899__ADD2SBUF_CIDENTPREFIX;
+  cdat->dtup_1899__ADD2SBUF_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1899__ADD2SBUF_CIDENTPREFIX.nbval = 7;
+ /*inimult dtup_1900__ADD2SBUF_CIDENTPREFIX*/
+ /*_.VALTUP___V1911*/ curfptr[1910] = (void*)&cdat->dtup_1900__ADD2SBUF_CIDENTPREFIX;
+  cdat->dtup_1900__ADD2SBUF_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1900__ADD2SBUF_CIDENTPREFIX.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1162:/ iniobj");
+ /*iniobj dobj_1901*/
+ if (!/*_.VALDATA___V1906*/ curfptr[1905]) /*_.VALDATA___V1906*/ curfptr[1905] = (void*)&cdat->dobj_1901;
+  melt_assertmsg("iniobj checkdiscr dobj_1901", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1901.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1901.obj_num = 0;
+  cdat->dobj_1901.obj_hash = 454207067;
+  cdat->dobj_1901.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1901));
+ 
+ MELT_LOCATION("warmelt-first.melt:1162:/ iniobj");
+ /*iniobj dobj_1902*/
+ if (!/*_.VALDATA___V1907*/ curfptr[1906]) /*_.VALDATA___V1907*/ curfptr[1906] = (void*)&cdat->dobj_1902;
+  melt_assertmsg("iniobj checkdiscr dobj_1902", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1902.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1902.obj_num = 1;
+  cdat->dobj_1902.obj_hash = 587389541;
+  cdat->dobj_1902.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1902));
+ 
+ /*iniobj dsym_1903__PREFLEN*/
+ if (!/*_.VALDATA___V1909*/ curfptr[1908]) /*_.VALDATA___V1909*/ curfptr[1908] = (void*)&cdat->dsym_1903__PREFLEN;
+  melt_assertmsg("iniobj checkdiscr dsym_1903__PREFLEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1903__PREFLEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1903__PREFLEN.obj_hash = 9027400;
+  cdat->dsym_1903__PREFLEN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1903__PREFLEN));
+ 
+ /*inistring dstr_1904__PREFLEN*/
+ /*_.VALSTR___V1910*/ curfptr[1909] = (void*)&cdat->dstr_1904__PREFLEN;
+  cdat->dstr_1904__PREFLEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1904__PREFLEN.val, "PREFLEN", sizeof(cdat->dstr_1904__PREFLEN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1162:/ iniobj");
+ /*iniobj dobj_1905*/
+ if (!/*_.VALDATA___V1908*/ curfptr[1907]) /*_.VALDATA___V1908*/ curfptr[1907] = (void*)&cdat->dobj_1905;
+  melt_assertmsg("iniobj checkdiscr dobj_1905", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1905.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1905.obj_num = 2;
+  cdat->dobj_1905.obj_hash = 255194970;
+  cdat->dobj_1905.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1905));
+ 
+ /*inistring dstr_1906__meltgc_add_strbu*/
+ /*_.VALSTR___V1912*/ curfptr[1911] = (void*)&cdat->dstr_1906__meltgc_add_strbu;
+  cdat->dstr_1906__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1906__meltgc_add_strbu.val, "meltgc_add_strbuf_cidentprefix((melt_ptr_t)(", sizeof(cdat->dstr_1906__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1907__melt_string_s*/
+ /*_.VALSTR___V1913*/ curfptr[1912] = (void*)&cdat->dstr_1907__melt_string_s;
+  cdat->dstr_1907__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1907__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1907__melt_string_s.val)-1);
+ 
+ /*inistring dstr_1908__*/
+ /*_.VALSTR___V1914*/ curfptr[1913] = (void*)&cdat->dstr_1908__;
+  cdat->dstr_1908__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1908__.val, ")), (", sizeof(cdat->dstr_1908__.val)-1);
+ 
+ /*inistring dstr_1909__*/
+ /*_.VALSTR___V1915*/ curfptr[1914] = (void*)&cdat->dstr_1909__;
+  cdat->dstr_1909__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1909__.val, "))", sizeof(cdat->dstr_1909__.val)-1);
+ 
+ /*inistring dstr_1910__ADD2SBUF_CIDENTP*/
+ /*_.VALSTR___V1905*/ curfptr[1904] = (void*)&cdat->dstr_1910__ADD2SBUF_CIDENTP;
+  cdat->dstr_1910__ADD2SBUF_CIDENTP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1910__ADD2SBUF_CIDENTP.val, "ADD2SBUF_CIDENTPREFIX", sizeof(cdat->dstr_1910__ADD2SBUF_CIDENTP.val)-1);
+ 
+ /*iniobj dsym_1911__ADD2SBUF_LONGDEC*/
+ if (!/*_.VALDATA___V1917*/ curfptr[1916]) /*_.VALDATA___V1917*/ curfptr[1916] = (void*)&cdat->dsym_1911__ADD2SBUF_LONGDEC;
+  melt_assertmsg("iniobj checkdiscr dsym_1911__ADD2SBUF_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1911__ADD2SBUF_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1911__ADD2SBUF_LONGDEC.obj_hash = 987171205;
+  cdat->dsym_1911__ADD2SBUF_LONGDEC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1911__ADD2SBUF_LONGDEC));
+ 
+ /*inistring dstr_1912__ADD2SBUF_LONGDEC*/
+ /*_.VALSTR___V1918*/ curfptr[1917] = (void*)&cdat->dstr_1912__ADD2SBUF_LONGDEC;
+  cdat->dstr_1912__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1912__ADD2SBUF_LONGDEC.val, "ADD2SBUF_LONGDEC", sizeof(cdat->dstr_1912__ADD2SBUF_LONGDEC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1168:/ iniobj");
+ /*iniobj dobj_1913__ADD2SBUF_LONGDEC*/
+ if (!/*_.VALDATA___V1919*/ curfptr[1918]) /*_.VALDATA___V1919*/ curfptr[1918] = (void*)&cdat->dobj_1913__ADD2SBUF_LONGDEC;
+  melt_assertmsg("iniobj checkdiscr dobj_1913__ADD2SBUF_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1913__ADD2SBUF_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1913__ADD2SBUF_LONGDEC.obj_hash = 467142665;
+  cdat->dobj_1913__ADD2SBUF_LONGDEC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1913__ADD2SBUF_LONGDEC));
+ 
+ /*inimult dtup_1914__ADD2SBUF_LONGDEC*/
+ /*_.VALTUP___V1929*/ curfptr[1928] = (void*)&cdat->dtup_1914__ADD2SBUF_LONGDEC;
+  cdat->dtup_1914__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1914__ADD2SBUF_LONGDEC.nbval = 5;
+ /*inimult dtup_1915__ADD2SBUF_LONGDEC*/
+ /*_.VALTUP___V1925*/ curfptr[1924] = (void*)&cdat->dtup_1915__ADD2SBUF_LONGDEC;
+  cdat->dtup_1915__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1915__ADD2SBUF_LONGDEC.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1168:/ iniobj");
+ /*iniobj dobj_1916*/
+ if (!/*_.VALDATA___V1921*/ curfptr[1920]) /*_.VALDATA___V1921*/ curfptr[1920] = (void*)&cdat->dobj_1916;
+  melt_assertmsg("iniobj checkdiscr dobj_1916", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1916.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1916.obj_num = 0;
+  cdat->dobj_1916.obj_hash = 1013902999;
+  cdat->dobj_1916.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1916));
+ 
+ /*iniobj dsym_1917__NUM*/
+ if (!/*_.VALDATA___V1923*/ curfptr[1922]) /*_.VALDATA___V1923*/ curfptr[1922] = (void*)&cdat->dsym_1917__NUM;
+  melt_assertmsg("iniobj checkdiscr dsym_1917__NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1917__NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1917__NUM.obj_hash = 129664091;
+  cdat->dsym_1917__NUM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1917__NUM));
+ 
+ /*inistring dstr_1918__NUM*/
+ /*_.VALSTR___V1924*/ curfptr[1923] = (void*)&cdat->dstr_1918__NUM;
+  cdat->dstr_1918__NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1918__NUM.val, "NUM", sizeof(cdat->dstr_1918__NUM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1168:/ iniobj");
+ /*iniobj dobj_1919*/
+ if (!/*_.VALDATA___V1922*/ curfptr[1921]) /*_.VALDATA___V1922*/ curfptr[1921] = (void*)&cdat->dobj_1919;
+  melt_assertmsg("iniobj checkdiscr dobj_1919", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1919.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1919.obj_num = 1;
+  cdat->dobj_1919.obj_hash = 659973504;
+  cdat->dobj_1919.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1919));
+ 
+ /*inistring dstr_1920__meltgc_add_strbu*/
+ /*_.VALSTR___V1926*/ curfptr[1925] = (void*)&cdat->dstr_1920__meltgc_add_strbu;
+  cdat->dstr_1920__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1920__meltgc_add_strbu.val, "meltgc_add_strbuf_dec((melt_ptr_t)(", sizeof(cdat->dstr_1920__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1921__*/
+ /*_.VALSTR___V1927*/ curfptr[1926] = (void*)&cdat->dstr_1921__;
+  cdat->dstr_1921__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1921__.val, "), (", sizeof(cdat->dstr_1921__.val)-1);
+ 
+ /*inistring dstr_1922__*/
+ /*_.VALSTR___V1928*/ curfptr[1927] = (void*)&cdat->dstr_1922__;
+  cdat->dstr_1922__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1922__.val, "))", sizeof(cdat->dstr_1922__.val)-1);
+ 
+ /*inistring dstr_1923__ADD2SBUF_LONGDEC*/
+ /*_.VALSTR___V1920*/ curfptr[1919] = (void*)&cdat->dstr_1923__ADD2SBUF_LONGDEC;
+  cdat->dstr_1923__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1923__ADD2SBUF_LONGDEC.val, "ADD2SBUF_LONGDEC", sizeof(cdat->dstr_1923__ADD2SBUF_LONGDEC.val)-1);
+ 
+ /*iniobj dsym_1924__ADD2SBUF_LONGHEX*/
+ if (!/*_.VALDATA___V1930*/ curfptr[1929]) /*_.VALDATA___V1930*/ curfptr[1929] = (void*)&cdat->dsym_1924__ADD2SBUF_LONGHEX;
+  melt_assertmsg("iniobj checkdiscr dsym_1924__ADD2SBUF_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1924__ADD2SBUF_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1924__ADD2SBUF_LONGHEX.obj_hash = 775368802;
+  cdat->dsym_1924__ADD2SBUF_LONGHEX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1924__ADD2SBUF_LONGHEX));
+ 
+ /*inistring dstr_1925__ADD2SBUF_LONGHEX*/
+ /*_.VALSTR___V1931*/ curfptr[1930] = (void*)&cdat->dstr_1925__ADD2SBUF_LONGHEX;
+  cdat->dstr_1925__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1925__ADD2SBUF_LONGHEX.val, "ADD2SBUF_LONGHEX", sizeof(cdat->dstr_1925__ADD2SBUF_LONGHEX.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ iniobj");
- /*iniobj dobj_1921__ADD2SBUF_LONGDEC*/
- if (!/*_.VALDATA___V1927*/ curfptr[1926]) /*_.VALDATA___V1927*/ curfptr[1926] = (void*)&cdat->dobj_1921__ADD2SBUF_LONGDEC;
-  melt_assertmsg("iniobj checkdiscr dobj_1921__ADD2SBUF_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1921__ADD2SBUF_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1921__ADD2SBUF_LONGDEC.obj_hash = 328972949;
-  cdat->dobj_1921__ADD2SBUF_LONGDEC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1921__ADD2SBUF_LONGDEC));
- 
- /*inimult dtup_1922__ADD2SBUF_LONGDEC*/
- /*_.VALTUP___V1937*/ curfptr[1936] = (void*)&cdat->dtup_1922__ADD2SBUF_LONGDEC;
-  cdat->dtup_1922__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1922__ADD2SBUF_LONGDEC.nbval = 5;
- /*inimult dtup_1923__ADD2SBUF_LONGDEC*/
- /*_.VALTUP___V1933*/ curfptr[1932] = (void*)&cdat->dtup_1923__ADD2SBUF_LONGDEC;
-  cdat->dtup_1923__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1923__ADD2SBUF_LONGDEC.nbval = 2;
+ /*iniobj dobj_1926__ADD2SBUF_LONGHEX*/
+ if (!/*_.VALDATA___V1932*/ curfptr[1931]) /*_.VALDATA___V1932*/ curfptr[1931] = (void*)&cdat->dobj_1926__ADD2SBUF_LONGHEX;
+  melt_assertmsg("iniobj checkdiscr dobj_1926__ADD2SBUF_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1926__ADD2SBUF_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1926__ADD2SBUF_LONGHEX.obj_hash = 1061854775;
+  cdat->dobj_1926__ADD2SBUF_LONGHEX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1926__ADD2SBUF_LONGHEX));
+ 
+ /*inimult dtup_1927__ADD2SBUF_LONGHEX*/
+ /*_.VALTUP___V1940*/ curfptr[1939] = (void*)&cdat->dtup_1927__ADD2SBUF_LONGHEX;
+  cdat->dtup_1927__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1927__ADD2SBUF_LONGHEX.nbval = 5;
+ /*inimult dtup_1928__ADD2SBUF_LONGHEX*/
+ /*_.VALTUP___V1936*/ curfptr[1935] = (void*)&cdat->dtup_1928__ADD2SBUF_LONGHEX;
+  cdat->dtup_1928__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1928__ADD2SBUF_LONGHEX.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1173:/ iniobj");
- /*iniobj dobj_1924*/
- if (!/*_.VALDATA___V1929*/ curfptr[1928]) /*_.VALDATA___V1929*/ curfptr[1928] = (void*)&cdat->dobj_1924;
-  melt_assertmsg("iniobj checkdiscr dobj_1924", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1924.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1924.obj_num = 0;
-  cdat->dobj_1924.obj_hash = 132066791;
-  cdat->dobj_1924.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1924));
- 
- /*iniobj dsym_1925__NUM*/
- if (!/*_.VALDATA___V1931*/ curfptr[1930]) /*_.VALDATA___V1931*/ curfptr[1930] = (void*)&cdat->dsym_1925__NUM;
-  melt_assertmsg("iniobj checkdiscr dsym_1925__NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1925__NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1925__NUM.obj_hash = 129664091;
-  cdat->dsym_1925__NUM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1925__NUM));
- 
- /*inistring dstr_1926__NUM*/
- /*_.VALSTR___V1932*/ curfptr[1931] = (void*)&cdat->dstr_1926__NUM;
-  cdat->dstr_1926__NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1926__NUM.val, "NUM", sizeof(cdat->dstr_1926__NUM.val)-1);
+ /*iniobj dobj_1929*/
+ if (!/*_.VALDATA___V1934*/ curfptr[1933]) /*_.VALDATA___V1934*/ curfptr[1933] = (void*)&cdat->dobj_1929;
+  melt_assertmsg("iniobj checkdiscr dobj_1929", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1929.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1929.obj_num = 0;
+  cdat->dobj_1929.obj_hash = 965263694;
+  cdat->dobj_1929.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1929));
  
  MELT_LOCATION("warmelt-first.melt:1173:/ iniobj");
- /*iniobj dobj_1927*/
- if (!/*_.VALDATA___V1930*/ curfptr[1929]) /*_.VALDATA___V1930*/ curfptr[1929] = (void*)&cdat->dobj_1927;
-  melt_assertmsg("iniobj checkdiscr dobj_1927", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1927.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1927.obj_num = 1;
-  cdat->dobj_1927.obj_hash = 840626428;
-  cdat->dobj_1927.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1927));
- 
- /*inistring dstr_1928__meltgc_add_strbu*/
- /*_.VALSTR___V1934*/ curfptr[1933] = (void*)&cdat->dstr_1928__meltgc_add_strbu;
-  cdat->dstr_1928__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1928__meltgc_add_strbu.val, "meltgc_add_strbuf_dec((melt_ptr_t)(", sizeof(cdat->dstr_1928__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1929__*/
- /*_.VALSTR___V1935*/ curfptr[1934] = (void*)&cdat->dstr_1929__;
-  cdat->dstr_1929__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1929__.val, "), (", sizeof(cdat->dstr_1929__.val)-1);
- 
- /*inistring dstr_1930__*/
- /*_.VALSTR___V1936*/ curfptr[1935] = (void*)&cdat->dstr_1930__;
-  cdat->dstr_1930__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1930__.val, "))", sizeof(cdat->dstr_1930__.val)-1);
- 
- /*inistring dstr_1931__ADD2SBUF_LONGDEC*/
- /*_.VALSTR___V1928*/ curfptr[1927] = (void*)&cdat->dstr_1931__ADD2SBUF_LONGDEC;
-  cdat->dstr_1931__ADD2SBUF_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1931__ADD2SBUF_LONGDEC.val, "ADD2SBUF_LONGDEC", sizeof(cdat->dstr_1931__ADD2SBUF_LONGDEC.val)-1);
- 
- /*iniobj dsym_1932__ADD2SBUF_LONGHEX*/
- if (!/*_.VALDATA___V1938*/ curfptr[1937]) /*_.VALDATA___V1938*/ curfptr[1937] = (void*)&cdat->dsym_1932__ADD2SBUF_LONGHEX;
-  melt_assertmsg("iniobj checkdiscr dsym_1932__ADD2SBUF_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1932__ADD2SBUF_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1932__ADD2SBUF_LONGHEX.obj_hash = 775368802;
-  cdat->dsym_1932__ADD2SBUF_LONGHEX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1932__ADD2SBUF_LONGHEX));
- 
- /*inistring dstr_1933__ADD2SBUF_LONGHEX*/
- /*_.VALSTR___V1939*/ curfptr[1938] = (void*)&cdat->dstr_1933__ADD2SBUF_LONGHEX;
-  cdat->dstr_1933__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1933__ADD2SBUF_LONGHEX.val, "ADD2SBUF_LONGHEX", sizeof(cdat->dstr_1933__ADD2SBUF_LONGHEX.val)-1);
+ /*iniobj dobj_1930*/
+ if (!/*_.VALDATA___V1935*/ curfptr[1934]) /*_.VALDATA___V1935*/ curfptr[1934] = (void*)&cdat->dobj_1930;
+  melt_assertmsg("iniobj checkdiscr dobj_1930", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1930.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1930.obj_num = 1;
+  cdat->dobj_1930.obj_hash = 568962198;
+  cdat->dobj_1930.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1930));
+ 
+ /*inistring dstr_1931__meltgc_add_strbu*/
+ /*_.VALSTR___V1937*/ curfptr[1936] = (void*)&cdat->dstr_1931__meltgc_add_strbu;
+  cdat->dstr_1931__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1931__meltgc_add_strbu.val, "meltgc_add_strbuf_hex((melt_ptr_t)(", sizeof(cdat->dstr_1931__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1932__*/
+ /*_.VALSTR___V1938*/ curfptr[1937] = (void*)&cdat->dstr_1932__;
+  cdat->dstr_1932__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1932__.val, "), (", sizeof(cdat->dstr_1932__.val)-1);
+ 
+ /*inistring dstr_1933__*/
+ /*_.VALSTR___V1939*/ curfptr[1938] = (void*)&cdat->dstr_1933__;
+  cdat->dstr_1933__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1933__.val, "))", sizeof(cdat->dstr_1933__.val)-1);
+ 
+ /*inistring dstr_1934__ADD2SBUF_LONGHEX*/
+ /*_.VALSTR___V1933*/ curfptr[1932] = (void*)&cdat->dstr_1934__ADD2SBUF_LONGHEX;
+  cdat->dstr_1934__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1934__ADD2SBUF_LONGHEX.val, "ADD2SBUF_LONGHEX", sizeof(cdat->dstr_1934__ADD2SBUF_LONGHEX.val)-1);
+ 
+ /*iniobj dsym_1935__ADD2SBUF_ROUTINEDESCR*/
+ if (!/*_.VALDATA___V1941*/ curfptr[1940]) /*_.VALDATA___V1941*/ curfptr[1940] = (void*)&cdat->dsym_1935__ADD2SBUF_ROUTINEDESCR;
+  melt_assertmsg("iniobj checkdiscr dsym_1935__ADD2SBUF_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1935__ADD2SBUF_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1935__ADD2SBUF_ROUTINEDESCR.obj_hash = 1011092199;
+  cdat->dsym_1935__ADD2SBUF_ROUTINEDESCR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1935__ADD2SBUF_ROUTINEDESCR));
+ 
+ /*inistring dstr_1936__ADD2SBUF_ROUTINE*/
+ /*_.VALSTR___V1942*/ curfptr[1941] = (void*)&cdat->dstr_1936__ADD2SBUF_ROUTINE;
+  cdat->dstr_1936__ADD2SBUF_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1936__ADD2SBUF_ROUTINE.val, "ADD2SBUF_ROUTINEDESCR", sizeof(cdat->dstr_1936__ADD2SBUF_ROUTINE.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ iniobj");
- /*iniobj dobj_1934__ADD2SBUF_LONGHEX*/
- if (!/*_.VALDATA___V1940*/ curfptr[1939]) /*_.VALDATA___V1940*/ curfptr[1939] = (void*)&cdat->dobj_1934__ADD2SBUF_LONGHEX;
-  melt_assertmsg("iniobj checkdiscr dobj_1934__ADD2SBUF_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1934__ADD2SBUF_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1934__ADD2SBUF_LONGHEX.obj_hash = 654180150;
-  cdat->dobj_1934__ADD2SBUF_LONGHEX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1934__ADD2SBUF_LONGHEX));
- 
- /*inimult dtup_1935__ADD2SBUF_LONGHEX*/
- /*_.VALTUP___V1948*/ curfptr[1947] = (void*)&cdat->dtup_1935__ADD2SBUF_LONGHEX;
-  cdat->dtup_1935__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1935__ADD2SBUF_LONGHEX.nbval = 5;
- /*inimult dtup_1936__ADD2SBUF_LONGHEX*/
- /*_.VALTUP___V1944*/ curfptr[1943] = (void*)&cdat->dtup_1936__ADD2SBUF_LONGHEX;
-  cdat->dtup_1936__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1936__ADD2SBUF_LONGHEX.nbval = 2;
+ /*iniobj dobj_1937__ADD2SBUF_ROUTINEDESCR*/
+ if (!/*_.VALDATA___V1943*/ curfptr[1942]) /*_.VALDATA___V1943*/ curfptr[1942] = (void*)&cdat->dobj_1937__ADD2SBUF_ROUTINEDESCR;
+  melt_assertmsg("iniobj checkdiscr dobj_1937__ADD2SBUF_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1937__ADD2SBUF_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1937__ADD2SBUF_ROUTINEDESCR.obj_hash = 509074030;
+  cdat->dobj_1937__ADD2SBUF_ROUTINEDESCR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1937__ADD2SBUF_ROUTINEDESCR));
+ 
+ /*inimult dtup_1938__ADD2SBUF_ROUTINEDESCR*/
+ /*_.VALTUP___V1953*/ curfptr[1952] = (void*)&cdat->dtup_1938__ADD2SBUF_ROUTINEDESCR;
+  cdat->dtup_1938__ADD2SBUF_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1938__ADD2SBUF_ROUTINEDESCR.nbval = 5;
+ /*inimult dtup_1939__ADD2SBUF_ROUTINEDESCR*/
+ /*_.VALTUP___V1949*/ curfptr[1948] = (void*)&cdat->dtup_1939__ADD2SBUF_ROUTINEDESCR;
+  cdat->dtup_1939__ADD2SBUF_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1939__ADD2SBUF_ROUTINEDESCR.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1178:/ iniobj");
- /*iniobj dobj_1937*/
- if (!/*_.VALDATA___V1942*/ curfptr[1941]) /*_.VALDATA___V1942*/ curfptr[1941] = (void*)&cdat->dobj_1937;
-  melt_assertmsg("iniobj checkdiscr dobj_1937", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1937.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1937.obj_num = 0;
-  cdat->dobj_1937.obj_hash = 531457744;
-  cdat->dobj_1937.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1937));
+ /*iniobj dobj_1940*/
+ if (!/*_.VALDATA___V1945*/ curfptr[1944]) /*_.VALDATA___V1945*/ curfptr[1944] = (void*)&cdat->dobj_1940;
+  melt_assertmsg("iniobj checkdiscr dobj_1940", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1940.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1940.obj_num = 0;
+  cdat->dobj_1940.obj_hash = 462323874;
+  cdat->dobj_1940.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1940));
+ 
+ /*iniobj dsym_1941__ROUT*/
+ if (!/*_.VALDATA___V1947*/ curfptr[1946]) /*_.VALDATA___V1947*/ curfptr[1946] = (void*)&cdat->dsym_1941__ROUT;
+  melt_assertmsg("iniobj checkdiscr dsym_1941__ROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1941__ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1941__ROUT.obj_hash = 50801246;
+  cdat->dsym_1941__ROUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1941__ROUT));
+ 
+ /*inistring dstr_1942__ROUT*/
+ /*_.VALSTR___V1948*/ curfptr[1947] = (void*)&cdat->dstr_1942__ROUT;
+  cdat->dstr_1942__ROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1942__ROUT.val, "ROUT", sizeof(cdat->dstr_1942__ROUT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ iniobj");
- /*iniobj dobj_1938*/
- if (!/*_.VALDATA___V1943*/ curfptr[1942]) /*_.VALDATA___V1943*/ curfptr[1942] = (void*)&cdat->dobj_1938;
-  melt_assertmsg("iniobj checkdiscr dobj_1938", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1938.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1938.obj_num = 1;
-  cdat->dobj_1938.obj_hash = 870488441;
-  cdat->dobj_1938.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1938));
- 
- /*inistring dstr_1939__meltgc_add_strbu*/
- /*_.VALSTR___V1945*/ curfptr[1944] = (void*)&cdat->dstr_1939__meltgc_add_strbu;
-  cdat->dstr_1939__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1939__meltgc_add_strbu.val, "meltgc_add_strbuf_hex((melt_ptr_t)(", sizeof(cdat->dstr_1939__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1940__*/
- /*_.VALSTR___V1946*/ curfptr[1945] = (void*)&cdat->dstr_1940__;
-  cdat->dstr_1940__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1940__.val, "), (", sizeof(cdat->dstr_1940__.val)-1);
- 
- /*inistring dstr_1941__*/
- /*_.VALSTR___V1947*/ curfptr[1946] = (void*)&cdat->dstr_1941__;
-  cdat->dstr_1941__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1941__.val, "))", sizeof(cdat->dstr_1941__.val)-1);
- 
- /*inistring dstr_1942__ADD2SBUF_LONGHEX*/
- /*_.VALSTR___V1941*/ curfptr[1940] = (void*)&cdat->dstr_1942__ADD2SBUF_LONGHEX;
-  cdat->dstr_1942__ADD2SBUF_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1942__ADD2SBUF_LONGHEX.val, "ADD2SBUF_LONGHEX", sizeof(cdat->dstr_1942__ADD2SBUF_LONGHEX.val)-1);
- 
- /*iniobj dsym_1943__ADD2SBUF_ROUTINEDESCR*/
- if (!/*_.VALDATA___V1949*/ curfptr[1948]) /*_.VALDATA___V1949*/ curfptr[1948] = (void*)&cdat->dsym_1943__ADD2SBUF_ROUTINEDESCR;
-  melt_assertmsg("iniobj checkdiscr dsym_1943__ADD2SBUF_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1943__ADD2SBUF_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1943__ADD2SBUF_ROUTINEDESCR.obj_hash = 1011092199;
-  cdat->dsym_1943__ADD2SBUF_ROUTINEDESCR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1943__ADD2SBUF_ROUTINEDESCR));
- 
- /*inistring dstr_1944__ADD2SBUF_ROUTINE*/
- /*_.VALSTR___V1950*/ curfptr[1949] = (void*)&cdat->dstr_1944__ADD2SBUF_ROUTINE;
-  cdat->dstr_1944__ADD2SBUF_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1944__ADD2SBUF_ROUTINE.val, "ADD2SBUF_ROUTINEDESCR", sizeof(cdat->dstr_1944__ADD2SBUF_ROUTINE.val)-1);
+ /*iniobj dobj_1943*/
+ if (!/*_.VALDATA___V1946*/ curfptr[1945]) /*_.VALDATA___V1946*/ curfptr[1945] = (void*)&cdat->dobj_1943;
+  melt_assertmsg("iniobj checkdiscr dobj_1943", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1943.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1943.obj_num = 1;
+  cdat->dobj_1943.obj_hash = 474988214;
+  cdat->dobj_1943.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1943));
+ 
+ /*inistring dstr_1944__meltgc_add_strbu*/
+ /*_.VALSTR___V1950*/ curfptr[1949] = (void*)&cdat->dstr_1944__meltgc_add_strbu;
+  cdat->dstr_1944__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1944__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1944__meltgc_add_strbu.val)-1);
+ 
+ /*inistring dstr_1945__melt_routine_*/
+ /*_.VALSTR___V1951*/ curfptr[1950] = (void*)&cdat->dstr_1945__melt_routine_;
+  cdat->dstr_1945__melt_routine_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1945__melt_routine_.val, "), melt_routine_descrstr((melt_ptr_t)(", sizeof(cdat->dstr_1945__melt_routine_.val)-1);
+ 
+ /*inistring dstr_1946__*/
+ /*_.VALSTR___V1952*/ curfptr[1951] = (void*)&cdat->dstr_1946__;
+  cdat->dstr_1946__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1946__.val, ")))", sizeof(cdat->dstr_1946__.val)-1);
+ 
+ /*inistring dstr_1947__ADD2SBUF_ROUTINE*/
+ /*_.VALSTR___V1944*/ curfptr[1943] = (void*)&cdat->dstr_1947__ADD2SBUF_ROUTINE;
+  cdat->dstr_1947__ADD2SBUF_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1947__ADD2SBUF_ROUTINE.val, "ADD2SBUF_ROUTINEDESCR", sizeof(cdat->dstr_1947__ADD2SBUF_ROUTINE.val)-1);
+ 
+ /*iniobj dsym_1948__OUTPUT_SBUF_STRCONST*/
+ if (!/*_.VALDATA___V1954*/ curfptr[1953]) /*_.VALDATA___V1954*/ curfptr[1953] = (void*)&cdat->dsym_1948__OUTPUT_SBUF_STRCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_1948__OUTPUT_SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1948__OUTPUT_SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1948__OUTPUT_SBUF_STRCONST.obj_hash = 578809862;
+  cdat->dsym_1948__OUTPUT_SBUF_STRCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1948__OUTPUT_SBUF_STRCONST));
+ 
+ /*inistring dstr_1949__OUTPUT_SBUF_STRC*/
+ /*_.VALSTR___V1955*/ curfptr[1954] = (void*)&cdat->dstr_1949__OUTPUT_SBUF_STRC;
+  cdat->dstr_1949__OUTPUT_SBUF_STRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1949__OUTPUT_SBUF_STRC.val, "OUTPUT_SBUF_STRCONST", sizeof(cdat->dstr_1949__OUTPUT_SBUF_STRC.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ iniobj");
- /*iniobj dobj_1945__ADD2SBUF_ROUTINEDESCR*/
- if (!/*_.VALDATA___V1951*/ curfptr[1950]) /*_.VALDATA___V1951*/ curfptr[1950] = (void*)&cdat->dobj_1945__ADD2SBUF_ROUTINEDESCR;
-  melt_assertmsg("iniobj checkdiscr dobj_1945__ADD2SBUF_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1945__ADD2SBUF_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1945__ADD2SBUF_ROUTINEDESCR.obj_hash = 530571548;
-  cdat->dobj_1945__ADD2SBUF_ROUTINEDESCR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1945__ADD2SBUF_ROUTINEDESCR));
- 
- /*inimult dtup_1946__ADD2SBUF_ROUTINEDESCR*/
- /*_.VALTUP___V1961*/ curfptr[1960] = (void*)&cdat->dtup_1946__ADD2SBUF_ROUTINEDESCR;
-  cdat->dtup_1946__ADD2SBUF_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1946__ADD2SBUF_ROUTINEDESCR.nbval = 5;
- /*inimult dtup_1947__ADD2SBUF_ROUTINEDESCR*/
- /*_.VALTUP___V1957*/ curfptr[1956] = (void*)&cdat->dtup_1947__ADD2SBUF_ROUTINEDESCR;
-  cdat->dtup_1947__ADD2SBUF_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1947__ADD2SBUF_ROUTINEDESCR.nbval = 2;
+ /*iniobj dobj_1950__OUTPUT_SBUF_STRCONST*/
+ if (!/*_.VALDATA___V1956*/ curfptr[1955]) /*_.VALDATA___V1956*/ curfptr[1955] = (void*)&cdat->dobj_1950__OUTPUT_SBUF_STRCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_1950__OUTPUT_SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1950__OUTPUT_SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1950__OUTPUT_SBUF_STRCONST.obj_hash = 841462206;
+  cdat->dobj_1950__OUTPUT_SBUF_STRCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1950__OUTPUT_SBUF_STRCONST));
+ 
+ /*inimult dtup_1951__OUTPUT_SBUF_STRCONST*/
+ /*_.VALTUP___V1966*/ curfptr[1965] = (void*)&cdat->dtup_1951__OUTPUT_SBUF_STRCONST;
+  cdat->dtup_1951__OUTPUT_SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1951__OUTPUT_SBUF_STRCONST.nbval = 5;
+ /*inimult dtup_1952__OUTPUT_SBUF_STRCONST*/
+ /*_.VALTUP___V1962*/ curfptr[1961] = (void*)&cdat->dtup_1952__OUTPUT_SBUF_STRCONST;
+  cdat->dtup_1952__OUTPUT_SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1952__OUTPUT_SBUF_STRCONST.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1183:/ iniobj");
- /*iniobj dobj_1948*/
- if (!/*_.VALDATA___V1953*/ curfptr[1952]) /*_.VALDATA___V1953*/ curfptr[1952] = (void*)&cdat->dobj_1948;
-  melt_assertmsg("iniobj checkdiscr dobj_1948", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1948.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1948.obj_num = 0;
-  cdat->dobj_1948.obj_hash = 236039754;
-  cdat->dobj_1948.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1948));
- 
- /*iniobj dsym_1949__ROUT*/
- if (!/*_.VALDATA___V1955*/ curfptr[1954]) /*_.VALDATA___V1955*/ curfptr[1954] = (void*)&cdat->dsym_1949__ROUT;
-  melt_assertmsg("iniobj checkdiscr dsym_1949__ROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1949__ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1949__ROUT.obj_hash = 50801246;
-  cdat->dsym_1949__ROUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1949__ROUT));
- 
- /*inistring dstr_1950__ROUT*/
- /*_.VALSTR___V1956*/ curfptr[1955] = (void*)&cdat->dstr_1950__ROUT;
-  cdat->dstr_1950__ROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1950__ROUT.val, "ROUT", sizeof(cdat->dstr_1950__ROUT.val)-1);
+ /*iniobj dobj_1953*/
+ if (!/*_.VALDATA___V1958*/ curfptr[1957]) /*_.VALDATA___V1958*/ curfptr[1957] = (void*)&cdat->dobj_1953;
+  melt_assertmsg("iniobj checkdiscr dobj_1953", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1953.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1953.obj_num = 0;
+  cdat->dobj_1953.obj_hash = 955701988;
+  cdat->dobj_1953.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1953));
+ 
+ /*iniobj dsym_1954__NAM*/
+ if (!/*_.VALDATA___V1960*/ curfptr[1959]) /*_.VALDATA___V1960*/ curfptr[1959] = (void*)&cdat->dsym_1954__NAM;
+  melt_assertmsg("iniobj checkdiscr dsym_1954__NAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1954__NAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1954__NAM.obj_hash = 707406315;
+  cdat->dsym_1954__NAM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1954__NAM));
+ 
+ /*inistring dstr_1955__NAM*/
+ /*_.VALSTR___V1961*/ curfptr[1960] = (void*)&cdat->dstr_1955__NAM;
+  cdat->dstr_1955__NAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1955__NAM.val, "NAM", sizeof(cdat->dstr_1955__NAM.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ iniobj");
- /*iniobj dobj_1951*/
- if (!/*_.VALDATA___V1954*/ curfptr[1953]) /*_.VALDATA___V1954*/ curfptr[1953] = (void*)&cdat->dobj_1951;
-  melt_assertmsg("iniobj checkdiscr dobj_1951", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1951.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1951.obj_num = 1;
-  cdat->dobj_1951.obj_hash = 97963751;
-  cdat->dobj_1951.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1951));
- 
- /*inistring dstr_1952__meltgc_add_strbu*/
- /*_.VALSTR___V1958*/ curfptr[1957] = (void*)&cdat->dstr_1952__meltgc_add_strbu;
-  cdat->dstr_1952__meltgc_add_strbu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1952__meltgc_add_strbu.val, "meltgc_add_strbuf((melt_ptr_t)(", sizeof(cdat->dstr_1952__meltgc_add_strbu.val)-1);
- 
- /*inistring dstr_1953__melt_routine_*/
- /*_.VALSTR___V1959*/ curfptr[1958] = (void*)&cdat->dstr_1953__melt_routine_;
-  cdat->dstr_1953__melt_routine_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1953__melt_routine_.val, "), melt_routine_descrstr((melt_ptr_t)(", sizeof(cdat->dstr_1953__melt_routine_.val)-1);
- 
- /*inistring dstr_1954__*/
- /*_.VALSTR___V1960*/ curfptr[1959] = (void*)&cdat->dstr_1954__;
-  cdat->dstr_1954__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1954__.val, ")))", sizeof(cdat->dstr_1954__.val)-1);
- 
- /*inistring dstr_1955__ADD2SBUF_ROUTINE*/
- /*_.VALSTR___V1952*/ curfptr[1951] = (void*)&cdat->dstr_1955__ADD2SBUF_ROUTINE;
-  cdat->dstr_1955__ADD2SBUF_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1955__ADD2SBUF_ROUTINE.val, "ADD2SBUF_ROUTINEDESCR", sizeof(cdat->dstr_1955__ADD2SBUF_ROUTINE.val)-1);
- 
- /*iniobj dsym_1956__OUTPUT_SBUF_STRCONST*/
- if (!/*_.VALDATA___V1962*/ curfptr[1961]) /*_.VALDATA___V1962*/ curfptr[1961] = (void*)&cdat->dsym_1956__OUTPUT_SBUF_STRCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_1956__OUTPUT_SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1956__OUTPUT_SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1956__OUTPUT_SBUF_STRCONST.obj_hash = 578809862;
-  cdat->dsym_1956__OUTPUT_SBUF_STRCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1956__OUTPUT_SBUF_STRCONST));
- 
- /*inistring dstr_1957__OUTPUT_SBUF_STRC*/
- /*_.VALSTR___V1963*/ curfptr[1962] = (void*)&cdat->dstr_1957__OUTPUT_SBUF_STRC;
-  cdat->dstr_1957__OUTPUT_SBUF_STRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1957__OUTPUT_SBUF_STRC.val, "OUTPUT_SBUF_STRCONST", sizeof(cdat->dstr_1957__OUTPUT_SBUF_STRC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1188:/ iniobj");
- /*iniobj dobj_1958__OUTPUT_SBUF_STRCONST*/
- if (!/*_.VALDATA___V1964*/ curfptr[1963]) /*_.VALDATA___V1964*/ curfptr[1963] = (void*)&cdat->dobj_1958__OUTPUT_SBUF_STRCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_1958__OUTPUT_SBUF_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1958__OUTPUT_SBUF_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1958__OUTPUT_SBUF_STRCONST.obj_hash = 472618849;
-  cdat->dobj_1958__OUTPUT_SBUF_STRCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1958__OUTPUT_SBUF_STRCONST));
- 
- /*inimult dtup_1959__OUTPUT_SBUF_STRCONST*/
- /*_.VALTUP___V1974*/ curfptr[1973] = (void*)&cdat->dtup_1959__OUTPUT_SBUF_STRCONST;
-  cdat->dtup_1959__OUTPUT_SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1959__OUTPUT_SBUF_STRCONST.nbval = 5;
- /*inimult dtup_1960__OUTPUT_SBUF_STRCONST*/
- /*_.VALTUP___V1970*/ curfptr[1969] = (void*)&cdat->dtup_1960__OUTPUT_SBUF_STRCONST;
-  cdat->dtup_1960__OUTPUT_SBUF_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1960__OUTPUT_SBUF_STRCONST.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1188:/ iniobj");
- /*iniobj dobj_1961*/
- if (!/*_.VALDATA___V1966*/ curfptr[1965]) /*_.VALDATA___V1966*/ curfptr[1965] = (void*)&cdat->dobj_1961;
-  melt_assertmsg("iniobj checkdiscr dobj_1961", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1961.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1961.obj_num = 0;
-  cdat->dobj_1961.obj_hash = 284329813;
-  cdat->dobj_1961.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1961));
- 
- /*iniobj dsym_1962__NAM*/
- if (!/*_.VALDATA___V1968*/ curfptr[1967]) /*_.VALDATA___V1968*/ curfptr[1967] = (void*)&cdat->dsym_1962__NAM;
-  melt_assertmsg("iniobj checkdiscr dsym_1962__NAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1962__NAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1962__NAM.obj_hash = 707406315;
-  cdat->dsym_1962__NAM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1962__NAM));
- 
- /*inistring dstr_1963__NAM*/
- /*_.VALSTR___V1969*/ curfptr[1968] = (void*)&cdat->dstr_1963__NAM;
-  cdat->dstr_1963__NAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1963__NAM.val, "NAM", sizeof(cdat->dstr_1963__NAM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1188:/ iniobj");
- /*iniobj dobj_1964*/
- if (!/*_.VALDATA___V1967*/ curfptr[1966]) /*_.VALDATA___V1967*/ curfptr[1966] = (void*)&cdat->dobj_1964;
-  melt_assertmsg("iniobj checkdiscr dobj_1964", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1964.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1964.obj_num = 1;
-  cdat->dobj_1964.obj_hash = 100699102;
-  cdat->dobj_1964.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1964));
- 
- /*inistring dstr_1965__melt_output_str*/
- /*_.VALSTR___V1971*/ curfptr[1970] = (void*)&cdat->dstr_1965__melt_output_str;
-  cdat->dstr_1965__melt_output_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1965__melt_output_str.val, " melt_output_strbuf_to_file((", sizeof(cdat->dstr_1965__melt_output_str.val)-1);
- 
- /*inistring dstr_1966__*/
- /*_.VALSTR___V1972*/ curfptr[1971] = (void*)&cdat->dstr_1966__;
-  cdat->dstr_1966__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1966__.val, "), (", sizeof(cdat->dstr_1966__.val)-1);
- 
- /*inistring dstr_1967__*/
- /*_.VALSTR___V1973*/ curfptr[1972] = (void*)&cdat->dstr_1967__;
-  cdat->dstr_1967__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1967__.val, ")) ", sizeof(cdat->dstr_1967__.val)-1);
- 
- /*inistring dstr_1968__OUTPUT_SBUF_STRC*/
- /*_.VALSTR___V1965*/ curfptr[1964] = (void*)&cdat->dstr_1968__OUTPUT_SBUF_STRC;
-  cdat->dstr_1968__OUTPUT_SBUF_STRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1968__OUTPUT_SBUF_STRC.val, "OUTPUT_SBUF_STRCONST", sizeof(cdat->dstr_1968__OUTPUT_SBUF_STRC.val)-1);
- 
- /*iniobj dsym_1969__OUTPUT_SBUF_STRVAL*/
- if (!/*_.VALDATA___V1975*/ curfptr[1974]) /*_.VALDATA___V1975*/ curfptr[1974] = (void*)&cdat->dsym_1969__OUTPUT_SBUF_STRVAL;
-  melt_assertmsg("iniobj checkdiscr dsym_1969__OUTPUT_SBUF_STRVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1969__OUTPUT_SBUF_STRVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1969__OUTPUT_SBUF_STRVAL.obj_hash = 599443866;
-  cdat->dsym_1969__OUTPUT_SBUF_STRVAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1969__OUTPUT_SBUF_STRVAL));
- 
- /*inistring dstr_1970__OUTPUT_SBUF_STRV*/
- /*_.VALSTR___V1976*/ curfptr[1975] = (void*)&cdat->dstr_1970__OUTPUT_SBUF_STRV;
-  cdat->dstr_1970__OUTPUT_SBUF_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1970__OUTPUT_SBUF_STRV.val, "OUTPUT_SBUF_STRVAL", sizeof(cdat->dstr_1970__OUTPUT_SBUF_STRV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1192:/ iniobj");
- /*iniobj dobj_1971__OUTPUT_SBUF_STRVAL*/
- if (!/*_.VALDATA___V1977*/ curfptr[1976]) /*_.VALDATA___V1977*/ curfptr[1976] = (void*)&cdat->dobj_1971__OUTPUT_SBUF_STRVAL;
-  melt_assertmsg("iniobj checkdiscr dobj_1971__OUTPUT_SBUF_STRVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1971__OUTPUT_SBUF_STRVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1971__OUTPUT_SBUF_STRVAL.obj_hash = 411640831;
-  cdat->dobj_1971__OUTPUT_SBUF_STRVAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1971__OUTPUT_SBUF_STRVAL));
- 
- /*inimult dtup_1972__OUTPUT_SBUF_STRVAL*/
- /*_.VALTUP___V1987*/ curfptr[1986] = (void*)&cdat->dtup_1972__OUTPUT_SBUF_STRVAL;
-  cdat->dtup_1972__OUTPUT_SBUF_STRVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1972__OUTPUT_SBUF_STRVAL.nbval = 5;
- /*inimult dtup_1973__OUTPUT_SBUF_STRVAL*/
- /*_.VALTUP___V1983*/ curfptr[1982] = (void*)&cdat->dtup_1973__OUTPUT_SBUF_STRVAL;
-  cdat->dtup_1973__OUTPUT_SBUF_STRVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1973__OUTPUT_SBUF_STRVAL.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1192:/ iniobj");
- /*iniobj dobj_1974*/
- if (!/*_.VALDATA___V1979*/ curfptr[1978]) /*_.VALDATA___V1979*/ curfptr[1978] = (void*)&cdat->dobj_1974;
-  melt_assertmsg("iniobj checkdiscr dobj_1974", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1974.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1974.obj_num = 0;
-  cdat->dobj_1974.obj_hash = 920815474;
-  cdat->dobj_1974.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1974));
- 
- /*iniobj dsym_1975__VNAM*/
- if (!/*_.VALDATA___V1981*/ curfptr[1980]) /*_.VALDATA___V1981*/ curfptr[1980] = (void*)&cdat->dsym_1975__VNAM;
-  melt_assertmsg("iniobj checkdiscr dsym_1975__VNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1975__VNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1975__VNAM.obj_hash = 355615829;
-  cdat->dsym_1975__VNAM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1975__VNAM));
- 
- /*inistring dstr_1976__VNAM*/
- /*_.VALSTR___V1982*/ curfptr[1981] = (void*)&cdat->dstr_1976__VNAM;
-  cdat->dstr_1976__VNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1976__VNAM.val, "VNAM", sizeof(cdat->dstr_1976__VNAM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1192:/ iniobj");
- /*iniobj dobj_1977*/
- if (!/*_.VALDATA___V1980*/ curfptr[1979]) /*_.VALDATA___V1980*/ curfptr[1979] = (void*)&cdat->dobj_1977;
-  melt_assertmsg("iniobj checkdiscr dobj_1977", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1977.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1977.obj_num = 1;
-  cdat->dobj_1977.obj_hash = 351841643;
-  cdat->dobj_1977.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1977));
- 
- /*inistring dstr_1978__melt_output_str*/
- /*_.VALSTR___V1984*/ curfptr[1983] = (void*)&cdat->dstr_1978__melt_output_str;
-  cdat->dstr_1978__melt_output_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1978__melt_output_str.val, " melt_output_strbuf_to_file((", sizeof(cdat->dstr_1978__melt_output_str.val)-1);
- 
- /*inistring dstr_1979__melt_string_s*/
- /*_.VALSTR___V1985*/ curfptr[1984] = (void*)&cdat->dstr_1979__melt_string_s;
-  cdat->dstr_1979__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1979__melt_string_s.val, "), melt_string_str(", sizeof(cdat->dstr_1979__melt_string_s.val)-1);
- 
- /*inistring dstr_1980__*/
- /*_.VALSTR___V1986*/ curfptr[1985] = (void*)&cdat->dstr_1980__;
-  cdat->dstr_1980__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1980__.val, ")) ", sizeof(cdat->dstr_1980__.val)-1);
- 
- /*inistring dstr_1981__OUTPUT_SBUF_STRV*/
- /*_.VALSTR___V1978*/ curfptr[1977] = (void*)&cdat->dstr_1981__OUTPUT_SBUF_STRV;
-  cdat->dstr_1981__OUTPUT_SBUF_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1981__OUTPUT_SBUF_STRV.val, "OUTPUT_SBUF_STRVAL", sizeof(cdat->dstr_1981__OUTPUT_SBUF_STRV.val)-1);
- 
- /*iniobj dsym_1982__ADD2OUT_STRCONST*/
- if (!/*_.VALDATA___V1988*/ curfptr[1987]) /*_.VALDATA___V1988*/ curfptr[1987] = (void*)&cdat->dsym_1982__ADD2OUT_STRCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_1982__ADD2OUT_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1982__ADD2OUT_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1982__ADD2OUT_STRCONST.obj_hash = 519917503;
-  cdat->dsym_1982__ADD2OUT_STRCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1982__ADD2OUT_STRCONST));
- 
- /*inistring dstr_1983__ADD2OUT_STRCONST*/
- /*_.VALSTR___V1989*/ curfptr[1988] = (void*)&cdat->dstr_1983__ADD2OUT_STRCONST;
-  cdat->dstr_1983__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1983__ADD2OUT_STRCONST.val, "ADD2OUT_STRCONST", sizeof(cdat->dstr_1983__ADD2OUT_STRCONST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1199:/ iniobj");
- /*iniobj dobj_1984__ADD2OUT_STRCONST*/
- if (!/*_.VALDATA___V1990*/ curfptr[1989]) /*_.VALDATA___V1990*/ curfptr[1989] = (void*)&cdat->dobj_1984__ADD2OUT_STRCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_1984__ADD2OUT_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1984__ADD2OUT_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1984__ADD2OUT_STRCONST.obj_hash = 497583578;
-  cdat->dobj_1984__ADD2OUT_STRCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1984__ADD2OUT_STRCONST));
- 
- /*inimult dtup_1985__ADD2OUT_STRCONST*/
- /*_.VALTUP___V2000*/ curfptr[1999] = (void*)&cdat->dtup_1985__ADD2OUT_STRCONST;
-  cdat->dtup_1985__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1985__ADD2OUT_STRCONST.nbval = 5;
- /*inimult dtup_1986__ADD2OUT_STRCONST*/
- /*_.VALTUP___V1996*/ curfptr[1995] = (void*)&cdat->dtup_1986__ADD2OUT_STRCONST;
-  cdat->dtup_1986__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1986__ADD2OUT_STRCONST.nbval = 2;
- /*iniobj dsym_1987__OUT*/
- if (!/*_.VALDATA___V1993*/ curfptr[1992]) /*_.VALDATA___V1993*/ curfptr[1992] = (void*)&cdat->dsym_1987__OUT;
-  melt_assertmsg("iniobj checkdiscr dsym_1987__OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1987__OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1987__OUT.obj_hash = 649051035;
-  cdat->dsym_1987__OUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1987__OUT));
- 
- /*inistring dstr_1988__OUT*/
- /*_.VALSTR___V1994*/ curfptr[1993] = (void*)&cdat->dstr_1988__OUT;
-  cdat->dstr_1988__OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1988__OUT.val, "OUT", sizeof(cdat->dstr_1988__OUT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1199:/ iniobj");
- /*iniobj dobj_1989*/
- if (!/*_.VALDATA___V1992*/ curfptr[1991]) /*_.VALDATA___V1992*/ curfptr[1991] = (void*)&cdat->dobj_1989;
-  melt_assertmsg("iniobj checkdiscr dobj_1989", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1989.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1989.obj_num = 0;
-  cdat->dobj_1989.obj_hash = 190330133;
-  cdat->dobj_1989.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1989));
- 
- MELT_LOCATION("warmelt-first.melt:1199:/ iniobj");
- /*iniobj dobj_1990*/
- if (!/*_.VALDATA___V1995*/ curfptr[1994]) /*_.VALDATA___V1995*/ curfptr[1994] = (void*)&cdat->dobj_1990;
-  melt_assertmsg("iniobj checkdiscr dobj_1990", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1990.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_1990.obj_num = 1;
-  cdat->dobj_1990.obj_hash = 829592929;
-  cdat->dobj_1990.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1990));
- 
- /*inistring dstr_1991__meltgc_add_out_*/
- /*_.VALSTR___V1997*/ curfptr[1996] = (void*)&cdat->dstr_1991__meltgc_add_out_;
-  cdat->dstr_1991__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1991__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_1991__meltgc_add_out_.val)-1);
- 
- /*inistring dstr_1992__*/
- /*_.VALSTR___V1998*/ curfptr[1997] = (void*)&cdat->dstr_1992__;
-  cdat->dstr_1992__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1992__.val, "), (", sizeof(cdat->dstr_1992__.val)-1);
- 
- /*inistring dstr_1993__*/
- /*_.VALSTR___V1999*/ curfptr[1998] = (void*)&cdat->dstr_1993__;
-  cdat->dstr_1993__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_1993__.val, "))", sizeof(cdat->dstr_1993__.val)-1);
- 
- /*inistring dstr_1994__ADD2OUT_STRCONST*/
- /*_.VALSTR___V1991*/ curfptr[1990] = (void*)&cdat->dstr_1994__ADD2OUT_STRCONST;
-  cdat->dstr_1994__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1994__ADD2OUT_STRCONST.val, "ADD2OUT_STRCONST", sizeof(cdat->dstr_1994__ADD2OUT_STRCONST.val)-1);
- 
- /*iniobj dsym_1995__ADD2OUT_STRING*/
- if (!/*_.VALDATA___V2001*/ curfptr[2000]) /*_.VALDATA___V2001*/ curfptr[2000] = (void*)&cdat->dsym_1995__ADD2OUT_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_1995__ADD2OUT_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1995__ADD2OUT_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_1995__ADD2OUT_STRING.obj_hash = 251302583;
-  cdat->dsym_1995__ADD2OUT_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1995__ADD2OUT_STRING));
- 
- /*inistring dstr_1996__ADD2OUT_STRING*/
- /*_.VALSTR___V2002*/ curfptr[2001] = (void*)&cdat->dstr_1996__ADD2OUT_STRING;
-  cdat->dstr_1996__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_1996__ADD2OUT_STRING.val, "ADD2OUT_STRING", sizeof(cdat->dstr_1996__ADD2OUT_STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1203:/ iniobj");
- /*iniobj dobj_1997__ADD2OUT_STRING*/
- if (!/*_.VALDATA___V2003*/ curfptr[2002]) /*_.VALDATA___V2003*/ curfptr[2002] = (void*)&cdat->dobj_1997__ADD2OUT_STRING;
-  melt_assertmsg("iniobj checkdiscr dobj_1997__ADD2OUT_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1997__ADD2OUT_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1997__ADD2OUT_STRING.obj_hash = 225902037;
-  cdat->dobj_1997__ADD2OUT_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1997__ADD2OUT_STRING));
- 
- /*inimult dtup_1998__ADD2OUT_STRING*/
- /*_.VALTUP___V2011*/ curfptr[2010] = (void*)&cdat->dtup_1998__ADD2OUT_STRING;
-  cdat->dtup_1998__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1998__ADD2OUT_STRING.nbval = 5;
- /*inimult dtup_1999__ADD2OUT_STRING*/
- /*_.VALTUP___V2007*/ curfptr[2006] = (void*)&cdat->dtup_1999__ADD2OUT_STRING;
-  cdat->dtup_1999__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_1999__ADD2OUT_STRING.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1203:/ iniobj");
- /*iniobj dobj_2000*/
- if (!/*_.VALDATA___V2005*/ curfptr[2004]) /*_.VALDATA___V2005*/ curfptr[2004] = (void*)&cdat->dobj_2000;
-  melt_assertmsg("iniobj checkdiscr dobj_2000", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2000.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2000.obj_num = 0;
-  cdat->dobj_2000.obj_hash = 418537651;
-  cdat->dobj_2000.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2000));
- 
- MELT_LOCATION("warmelt-first.melt:1203:/ iniobj");
- /*iniobj dobj_2001*/
- if (!/*_.VALDATA___V2006*/ curfptr[2005]) /*_.VALDATA___V2006*/ curfptr[2005] = (void*)&cdat->dobj_2001;
-  melt_assertmsg("iniobj checkdiscr dobj_2001", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2001.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2001.obj_num = 1;
-  cdat->dobj_2001.obj_hash = 390524693;
-  cdat->dobj_2001.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2001));
- 
- /*inistring dstr_2002__meltgc_add_out_*/
- /*_.VALSTR___V2008*/ curfptr[2007] = (void*)&cdat->dstr_2002__meltgc_add_out_;
-  cdat->dstr_2002__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2002__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_2002__meltgc_add_out_.val)-1);
- 
- /*inistring dstr_2003__melt_string_s*/
- /*_.VALSTR___V2009*/ curfptr[2008] = (void*)&cdat->dstr_2003__melt_string_s;
-  cdat->dstr_2003__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2003__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2003__melt_string_s.val)-1);
- 
- /*inistring dstr_2004__*/
- /*_.VALSTR___V2010*/ curfptr[2009] = (void*)&cdat->dstr_2004__;
-  cdat->dstr_2004__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2004__.val, ")))", sizeof(cdat->dstr_2004__.val)-1);
- 
- /*inistring dstr_2005__ADD2OUT_STRING*/
- /*_.VALSTR___V2004*/ curfptr[2003] = (void*)&cdat->dstr_2005__ADD2OUT_STRING;
-  cdat->dstr_2005__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2005__ADD2OUT_STRING.val, "ADD2OUT_STRING", sizeof(cdat->dstr_2005__ADD2OUT_STRING.val)-1);
- 
- /*iniobj dsym_2006__ADD2OUT_MIXLOC*/
- if (!/*_.VALDATA___V2012*/ curfptr[2011]) /*_.VALDATA___V2012*/ curfptr[2011] = (void*)&cdat->dsym_2006__ADD2OUT_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_2006__ADD2OUT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2006__ADD2OUT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2006__ADD2OUT_MIXLOC.obj_hash = 298772127;
-  cdat->dsym_2006__ADD2OUT_MIXLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2006__ADD2OUT_MIXLOC));
- 
- /*inistring dstr_2007__ADD2OUT_MIXLOC*/
- /*_.VALSTR___V2013*/ curfptr[2012] = (void*)&cdat->dstr_2007__ADD2OUT_MIXLOC;
-  cdat->dstr_2007__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2007__ADD2OUT_MIXLOC.val, "ADD2OUT_MIXLOC", sizeof(cdat->dstr_2007__ADD2OUT_MIXLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1207:/ iniobj");
- /*iniobj dobj_2008__ADD2OUT_MIXLOC*/
- if (!/*_.VALDATA___V2014*/ curfptr[2013]) /*_.VALDATA___V2014*/ curfptr[2013] = (void*)&cdat->dobj_2008__ADD2OUT_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_2008__ADD2OUT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2008__ADD2OUT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2008__ADD2OUT_MIXLOC.obj_hash = 736080558;
-  cdat->dobj_2008__ADD2OUT_MIXLOC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2008__ADD2OUT_MIXLOC));
- 
- /*inimult dtup_2009__ADD2OUT_MIXLOC*/
- /*_.VALTUP___V2023*/ curfptr[2022] = (void*)&cdat->dtup_2009__ADD2OUT_MIXLOC;
-  cdat->dtup_2009__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2009__ADD2OUT_MIXLOC.nbval = 7;
- /*inimult dtup_2010__ADD2OUT_MIXLOC*/
- /*_.VALTUP___V2018*/ curfptr[2017] = (void*)&cdat->dtup_2010__ADD2OUT_MIXLOC;
-  cdat->dtup_2010__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2010__ADD2OUT_MIXLOC.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1207:/ iniobj");
- /*iniobj dobj_2011*/
- if (!/*_.VALDATA___V2016*/ curfptr[2015]) /*_.VALDATA___V2016*/ curfptr[2015] = (void*)&cdat->dobj_2011;
-  melt_assertmsg("iniobj checkdiscr dobj_2011", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2011.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2011.obj_num = 0;
-  cdat->dobj_2011.obj_hash = 152541819;
-  cdat->dobj_2011.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2011));
- 
- MELT_LOCATION("warmelt-first.melt:1207:/ iniobj");
- /*iniobj dobj_2012*/
- if (!/*_.VALDATA___V2017*/ curfptr[2016]) /*_.VALDATA___V2017*/ curfptr[2016] = (void*)&cdat->dobj_2012;
-  melt_assertmsg("iniobj checkdiscr dobj_2012", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2012.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2012.obj_num = 1;
-  cdat->dobj_2012.obj_hash = 627385536;
-  cdat->dobj_2012.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2012));
- 
- /*inistring dstr_2013__add2outmixloc_*/
- /*_.VALSTR___V2019*/ curfptr[2018] = (void*)&cdat->dstr_2013__add2outmixloc_;
-  cdat->dstr_2013__add2outmixloc_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2013__add2outmixloc_.val, "/*add2outmixloc*/ { if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2013__add2outmixloc_.val)-1);
- 
- /*inistring dstr_2014__OBMAG_MIXL*/
- /*_.VALSTR___V2020*/ curfptr[2019] = (void*)&cdat->dstr_2014__OBMAG_MIXL;
-  cdat->dstr_2014__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2014__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC) \n  meltgc_out_printf((melt_ptr_t)(\" out \"), \"{%s:%d}\", \n  LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_2014__OBMAG_MIXL.val)-1);
- 
- /*inistring dstr_2015__LOCATION_*/
- /*_.VALSTR___V2021*/ curfptr[2020] = (void*)&cdat->dstr_2015__LOCATION_;
-  cdat->dstr_2015__LOCATION_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2015__LOCATION_.val, ")), \n  LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_2015__LOCATION_.val)-1);
- 
- /*inistring dstr_2016__*/
- /*_.VALSTR___V2022*/ curfptr[2021] = (void*)&cdat->dstr_2016__;
-  cdat->dstr_2016__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2016__.val, "))); ", sizeof(cdat->dstr_2016__.val)-1);
- 
- /*inistring dstr_2017__ADD2OUT_MIXLOC*/
- /*_.VALSTR___V2015*/ curfptr[2014] = (void*)&cdat->dstr_2017__ADD2OUT_MIXLOC;
-  cdat->dstr_2017__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2017__ADD2OUT_MIXLOC.val, "ADD2OUT_MIXLOC", sizeof(cdat->dstr_2017__ADD2OUT_MIXLOC.val)-1);
- 
- /*iniobj dsym_2018__ADD2OUT_INDENT*/
- if (!/*_.VALDATA___V2024*/ curfptr[2023]) /*_.VALDATA___V2024*/ curfptr[2023] = (void*)&cdat->dsym_2018__ADD2OUT_INDENT;
-  melt_assertmsg("iniobj checkdiscr dsym_2018__ADD2OUT_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2018__ADD2OUT_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2018__ADD2OUT_INDENT.obj_hash = 712679235;
-  cdat->dsym_2018__ADD2OUT_INDENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2018__ADD2OUT_INDENT));
- 
- /*inistring dstr_2019__ADD2OUT_INDENT*/
- /*_.VALSTR___V2025*/ curfptr[2024] = (void*)&cdat->dstr_2019__ADD2OUT_INDENT;
-  cdat->dstr_2019__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2019__ADD2OUT_INDENT.val, "ADD2OUT_INDENT", sizeof(cdat->dstr_2019__ADD2OUT_INDENT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1215:/ iniobj");
- /*iniobj dobj_2020__ADD2OUT_INDENT*/
- if (!/*_.VALDATA___V2026*/ curfptr[2025]) /*_.VALDATA___V2026*/ curfptr[2025] = (void*)&cdat->dobj_2020__ADD2OUT_INDENT;
-  melt_assertmsg("iniobj checkdiscr dobj_2020__ADD2OUT_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2020__ADD2OUT_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2020__ADD2OUT_INDENT.obj_hash = 769771905;
-  cdat->dobj_2020__ADD2OUT_INDENT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2020__ADD2OUT_INDENT));
- 
- /*inimult dtup_2021__ADD2OUT_INDENT*/
- /*_.VALTUP___V2034*/ curfptr[2033] = (void*)&cdat->dtup_2021__ADD2OUT_INDENT;
-  cdat->dtup_2021__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2021__ADD2OUT_INDENT.nbval = 5;
- /*inimult dtup_2022__ADD2OUT_INDENT*/
- /*_.VALTUP___V2030*/ curfptr[2029] = (void*)&cdat->dtup_2022__ADD2OUT_INDENT;
-  cdat->dtup_2022__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2022__ADD2OUT_INDENT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1215:/ iniobj");
- /*iniobj dobj_2023*/
- if (!/*_.VALDATA___V2028*/ curfptr[2027]) /*_.VALDATA___V2028*/ curfptr[2027] = (void*)&cdat->dobj_2023;
-  melt_assertmsg("iniobj checkdiscr dobj_2023", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2023.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2023.obj_num = 0;
-  cdat->dobj_2023.obj_hash = 231366460;
-  cdat->dobj_2023.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2023));
- 
- MELT_LOCATION("warmelt-first.melt:1215:/ iniobj");
- /*iniobj dobj_2024*/
- if (!/*_.VALDATA___V2029*/ curfptr[2028]) /*_.VALDATA___V2029*/ curfptr[2028] = (void*)&cdat->dobj_2024;
-  melt_assertmsg("iniobj checkdiscr dobj_2024", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2024.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2024.obj_num = 1;
-  cdat->dobj_2024.obj_hash = 551956203;
-  cdat->dobj_2024.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2024));
- 
- /*inistring dstr_2025__meltgc_out_add_i*/
- /*_.VALSTR___V2031*/ curfptr[2030] = (void*)&cdat->dstr_2025__meltgc_out_add_i;
-  cdat->dstr_2025__meltgc_out_add_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2025__meltgc_out_add_i.val, "meltgc_out_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_2025__meltgc_out_add_i.val)-1);
- 
- /*inistring dstr_2026__*/
- /*_.VALSTR___V2032*/ curfptr[2031] = (void*)&cdat->dstr_2026__;
-  cdat->dstr_2026__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2026__.val, "), (", sizeof(cdat->dstr_2026__.val)-1);
- 
- /*inistring dstr_2027__64_*/
- /*_.VALSTR___V2033*/ curfptr[2032] = (void*)&cdat->dstr_2027__64_;
-  cdat->dstr_2027__64_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2027__64_.val, "), 64)", sizeof(cdat->dstr_2027__64_.val)-1);
- 
- /*inistring dstr_2028__ADD2OUT_INDENT*/
- /*_.VALSTR___V2027*/ curfptr[2026] = (void*)&cdat->dstr_2028__ADD2OUT_INDENT;
-  cdat->dstr_2028__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2028__ADD2OUT_INDENT.val, "ADD2OUT_INDENT", sizeof(cdat->dstr_2028__ADD2OUT_INDENT.val)-1);
- 
- /*iniobj dsym_2029__ADD2OUT_INDENTNL*/
- if (!/*_.VALDATA___V2035*/ curfptr[2034]) /*_.VALDATA___V2035*/ curfptr[2034] = (void*)&cdat->dsym_2029__ADD2OUT_INDENTNL;
-  melt_assertmsg("iniobj checkdiscr dsym_2029__ADD2OUT_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2029__ADD2OUT_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2029__ADD2OUT_INDENTNL.obj_hash = 741830835;
-  cdat->dsym_2029__ADD2OUT_INDENTNL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2029__ADD2OUT_INDENTNL));
- 
- /*inistring dstr_2030__ADD2OUT_INDENTNL*/
- /*_.VALSTR___V2036*/ curfptr[2035] = (void*)&cdat->dstr_2030__ADD2OUT_INDENTNL;
-  cdat->dstr_2030__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2030__ADD2OUT_INDENTNL.val, "ADD2OUT_INDENTNL", sizeof(cdat->dstr_2030__ADD2OUT_INDENTNL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1221:/ iniobj");
- /*iniobj dobj_2031__ADD2OUT_INDENTNL*/
- if (!/*_.VALDATA___V2037*/ curfptr[2036]) /*_.VALDATA___V2037*/ curfptr[2036] = (void*)&cdat->dobj_2031__ADD2OUT_INDENTNL;
-  melt_assertmsg("iniobj checkdiscr dobj_2031__ADD2OUT_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2031__ADD2OUT_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2031__ADD2OUT_INDENTNL.obj_hash = 850212298;
-  cdat->dobj_2031__ADD2OUT_INDENTNL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2031__ADD2OUT_INDENTNL));
- 
- /*inimult dtup_2032__ADD2OUT_INDENTNL*/
- /*_.VALTUP___V2045*/ curfptr[2044] = (void*)&cdat->dtup_2032__ADD2OUT_INDENTNL;
-  cdat->dtup_2032__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2032__ADD2OUT_INDENTNL.nbval = 5;
- /*inimult dtup_2033__ADD2OUT_INDENTNL*/
- /*_.VALTUP___V2041*/ curfptr[2040] = (void*)&cdat->dtup_2033__ADD2OUT_INDENTNL;
-  cdat->dtup_2033__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2033__ADD2OUT_INDENTNL.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1221:/ iniobj");
- /*iniobj dobj_2034*/
- if (!/*_.VALDATA___V2039*/ curfptr[2038]) /*_.VALDATA___V2039*/ curfptr[2038] = (void*)&cdat->dobj_2034;
-  melt_assertmsg("iniobj checkdiscr dobj_2034", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2034.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2034.obj_num = 0;
-  cdat->dobj_2034.obj_hash = 780323642;
-  cdat->dobj_2034.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2034));
- 
- MELT_LOCATION("warmelt-first.melt:1221:/ iniobj");
- /*iniobj dobj_2035*/
- if (!/*_.VALDATA___V2040*/ curfptr[2039]) /*_.VALDATA___V2040*/ curfptr[2039] = (void*)&cdat->dobj_2035;
-  melt_assertmsg("iniobj checkdiscr dobj_2035", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2035.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2035.obj_num = 1;
-  cdat->dobj_2035.obj_hash = 772678335;
-  cdat->dobj_2035.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2035));
- 
- /*inistring dstr_2036__meltgc_out_add_i*/
- /*_.VALSTR___V2042*/ curfptr[2041] = (void*)&cdat->dstr_2036__meltgc_out_add_i;
-  cdat->dstr_2036__meltgc_out_add_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2036__meltgc_out_add_i.val, "meltgc_out_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_2036__meltgc_out_add_i.val)-1);
- 
- /*inistring dstr_2037__*/
- /*_.VALSTR___V2043*/ curfptr[2042] = (void*)&cdat->dstr_2037__;
-  cdat->dstr_2037__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2037__.val, "), (", sizeof(cdat->dstr_2037__.val)-1);
- 
- /*inistring dstr_2038__0_*/
- /*_.VALSTR___V2044*/ curfptr[2043] = (void*)&cdat->dstr_2038__0_;
-  cdat->dstr_2038__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2038__0_.val, "), 0)", sizeof(cdat->dstr_2038__0_.val)-1);
- 
- /*inistring dstr_2039__ADD2OUT_INDENTNL*/
- /*_.VALSTR___V2038*/ curfptr[2037] = (void*)&cdat->dstr_2039__ADD2OUT_INDENTNL;
-  cdat->dstr_2039__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2039__ADD2OUT_INDENTNL.val, "ADD2OUT_INDENTNL", sizeof(cdat->dstr_2039__ADD2OUT_INDENTNL.val)-1);
- 
- /*iniobj dsym_2040__ADD2OUT_SBUF*/
- if (!/*_.VALDATA___V2046*/ curfptr[2045]) /*_.VALDATA___V2046*/ curfptr[2045] = (void*)&cdat->dsym_2040__ADD2OUT_SBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_2040__ADD2OUT_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2040__ADD2OUT_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2040__ADD2OUT_SBUF.obj_hash = 368240084;
-  cdat->dsym_2040__ADD2OUT_SBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2040__ADD2OUT_SBUF));
- 
- /*inistring dstr_2041__ADD2OUT_SBUF*/
- /*_.VALSTR___V2047*/ curfptr[2046] = (void*)&cdat->dstr_2041__ADD2OUT_SBUF;
-  cdat->dstr_2041__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2041__ADD2OUT_SBUF.val, "ADD2OUT_SBUF", sizeof(cdat->dstr_2041__ADD2OUT_SBUF.val)-1);
+ /*iniobj dobj_1956*/
+ if (!/*_.VALDATA___V1959*/ curfptr[1958]) /*_.VALDATA___V1959*/ curfptr[1958] = (void*)&cdat->dobj_1956;
+  melt_assertmsg("iniobj checkdiscr dobj_1956", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1956.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1956.obj_num = 1;
+  cdat->dobj_1956.obj_hash = 483038274;
+  cdat->dobj_1956.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1956));
+ 
+ /*inistring dstr_1957__melt_output_str*/
+ /*_.VALSTR___V1963*/ curfptr[1962] = (void*)&cdat->dstr_1957__melt_output_str;
+  cdat->dstr_1957__melt_output_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1957__melt_output_str.val, " melt_output_strbuf_to_file((", sizeof(cdat->dstr_1957__melt_output_str.val)-1);
+ 
+ /*inistring dstr_1958__*/
+ /*_.VALSTR___V1964*/ curfptr[1963] = (void*)&cdat->dstr_1958__;
+  cdat->dstr_1958__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1958__.val, "), (", sizeof(cdat->dstr_1958__.val)-1);
+ 
+ /*inistring dstr_1959__*/
+ /*_.VALSTR___V1965*/ curfptr[1964] = (void*)&cdat->dstr_1959__;
+  cdat->dstr_1959__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1959__.val, ")) ", sizeof(cdat->dstr_1959__.val)-1);
+ 
+ /*inistring dstr_1960__OUTPUT_SBUF_STRC*/
+ /*_.VALSTR___V1957*/ curfptr[1956] = (void*)&cdat->dstr_1960__OUTPUT_SBUF_STRC;
+  cdat->dstr_1960__OUTPUT_SBUF_STRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1960__OUTPUT_SBUF_STRC.val, "OUTPUT_SBUF_STRCONST", sizeof(cdat->dstr_1960__OUTPUT_SBUF_STRC.val)-1);
+ 
+ /*iniobj dsym_1961__OUTPUT_SBUF_STRVAL*/
+ if (!/*_.VALDATA___V1967*/ curfptr[1966]) /*_.VALDATA___V1967*/ curfptr[1966] = (void*)&cdat->dsym_1961__OUTPUT_SBUF_STRVAL;
+  melt_assertmsg("iniobj checkdiscr dsym_1961__OUTPUT_SBUF_STRVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1961__OUTPUT_SBUF_STRVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1961__OUTPUT_SBUF_STRVAL.obj_hash = 599443866;
+  cdat->dsym_1961__OUTPUT_SBUF_STRVAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1961__OUTPUT_SBUF_STRVAL));
+ 
+ /*inistring dstr_1962__OUTPUT_SBUF_STRV*/
+ /*_.VALSTR___V1968*/ curfptr[1967] = (void*)&cdat->dstr_1962__OUTPUT_SBUF_STRV;
+  cdat->dstr_1962__OUTPUT_SBUF_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1962__OUTPUT_SBUF_STRV.val, "OUTPUT_SBUF_STRVAL", sizeof(cdat->dstr_1962__OUTPUT_SBUF_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1187:/ iniobj");
+ /*iniobj dobj_1963__OUTPUT_SBUF_STRVAL*/
+ if (!/*_.VALDATA___V1969*/ curfptr[1968]) /*_.VALDATA___V1969*/ curfptr[1968] = (void*)&cdat->dobj_1963__OUTPUT_SBUF_STRVAL;
+  melt_assertmsg("iniobj checkdiscr dobj_1963__OUTPUT_SBUF_STRVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1963__OUTPUT_SBUF_STRVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1963__OUTPUT_SBUF_STRVAL.obj_hash = 659535581;
+  cdat->dobj_1963__OUTPUT_SBUF_STRVAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1963__OUTPUT_SBUF_STRVAL));
+ 
+ /*inimult dtup_1964__OUTPUT_SBUF_STRVAL*/
+ /*_.VALTUP___V1979*/ curfptr[1978] = (void*)&cdat->dtup_1964__OUTPUT_SBUF_STRVAL;
+  cdat->dtup_1964__OUTPUT_SBUF_STRVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1964__OUTPUT_SBUF_STRVAL.nbval = 5;
+ /*inimult dtup_1965__OUTPUT_SBUF_STRVAL*/
+ /*_.VALTUP___V1975*/ curfptr[1974] = (void*)&cdat->dtup_1965__OUTPUT_SBUF_STRVAL;
+  cdat->dtup_1965__OUTPUT_SBUF_STRVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1965__OUTPUT_SBUF_STRVAL.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1187:/ iniobj");
+ /*iniobj dobj_1966*/
+ if (!/*_.VALDATA___V1971*/ curfptr[1970]) /*_.VALDATA___V1971*/ curfptr[1970] = (void*)&cdat->dobj_1966;
+  melt_assertmsg("iniobj checkdiscr dobj_1966", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1966.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1966.obj_num = 0;
+  cdat->dobj_1966.obj_hash = 714679812;
+  cdat->dobj_1966.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1966));
+ 
+ /*iniobj dsym_1967__VNAM*/
+ if (!/*_.VALDATA___V1973*/ curfptr[1972]) /*_.VALDATA___V1973*/ curfptr[1972] = (void*)&cdat->dsym_1967__VNAM;
+  melt_assertmsg("iniobj checkdiscr dsym_1967__VNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1967__VNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1967__VNAM.obj_hash = 355615829;
+  cdat->dsym_1967__VNAM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1967__VNAM));
+ 
+ /*inistring dstr_1968__VNAM*/
+ /*_.VALSTR___V1974*/ curfptr[1973] = (void*)&cdat->dstr_1968__VNAM;
+  cdat->dstr_1968__VNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1968__VNAM.val, "VNAM", sizeof(cdat->dstr_1968__VNAM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1187:/ iniobj");
+ /*iniobj dobj_1969*/
+ if (!/*_.VALDATA___V1972*/ curfptr[1971]) /*_.VALDATA___V1972*/ curfptr[1971] = (void*)&cdat->dobj_1969;
+  melt_assertmsg("iniobj checkdiscr dobj_1969", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1969.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1969.obj_num = 1;
+  cdat->dobj_1969.obj_hash = 407353703;
+  cdat->dobj_1969.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1969));
+ 
+ /*inistring dstr_1970__melt_output_str*/
+ /*_.VALSTR___V1976*/ curfptr[1975] = (void*)&cdat->dstr_1970__melt_output_str;
+  cdat->dstr_1970__melt_output_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1970__melt_output_str.val, " melt_output_strbuf_to_file((", sizeof(cdat->dstr_1970__melt_output_str.val)-1);
+ 
+ /*inistring dstr_1971__melt_string_s*/
+ /*_.VALSTR___V1977*/ curfptr[1976] = (void*)&cdat->dstr_1971__melt_string_s;
+  cdat->dstr_1971__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1971__melt_string_s.val, "), melt_string_str(", sizeof(cdat->dstr_1971__melt_string_s.val)-1);
+ 
+ /*inistring dstr_1972__*/
+ /*_.VALSTR___V1978*/ curfptr[1977] = (void*)&cdat->dstr_1972__;
+  cdat->dstr_1972__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1972__.val, ")) ", sizeof(cdat->dstr_1972__.val)-1);
+ 
+ /*inistring dstr_1973__OUTPUT_SBUF_STRV*/
+ /*_.VALSTR___V1970*/ curfptr[1969] = (void*)&cdat->dstr_1973__OUTPUT_SBUF_STRV;
+  cdat->dstr_1973__OUTPUT_SBUF_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1973__OUTPUT_SBUF_STRV.val, "OUTPUT_SBUF_STRVAL", sizeof(cdat->dstr_1973__OUTPUT_SBUF_STRV.val)-1);
+ 
+ /*iniobj dsym_1974__ADD2OUT_STRCONST*/
+ if (!/*_.VALDATA___V1980*/ curfptr[1979]) /*_.VALDATA___V1980*/ curfptr[1979] = (void*)&cdat->dsym_1974__ADD2OUT_STRCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_1974__ADD2OUT_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1974__ADD2OUT_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1974__ADD2OUT_STRCONST.obj_hash = 519917503;
+  cdat->dsym_1974__ADD2OUT_STRCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1974__ADD2OUT_STRCONST));
+ 
+ /*inistring dstr_1975__ADD2OUT_STRCONST*/
+ /*_.VALSTR___V1981*/ curfptr[1980] = (void*)&cdat->dstr_1975__ADD2OUT_STRCONST;
+  cdat->dstr_1975__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1975__ADD2OUT_STRCONST.val, "ADD2OUT_STRCONST", sizeof(cdat->dstr_1975__ADD2OUT_STRCONST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1194:/ iniobj");
+ /*iniobj dobj_1976__ADD2OUT_STRCONST*/
+ if (!/*_.VALDATA___V1982*/ curfptr[1981]) /*_.VALDATA___V1982*/ curfptr[1981] = (void*)&cdat->dobj_1976__ADD2OUT_STRCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_1976__ADD2OUT_STRCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1976__ADD2OUT_STRCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1976__ADD2OUT_STRCONST.obj_hash = 931680621;
+  cdat->dobj_1976__ADD2OUT_STRCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1976__ADD2OUT_STRCONST));
+ 
+ /*inimult dtup_1977__ADD2OUT_STRCONST*/
+ /*_.VALTUP___V1992*/ curfptr[1991] = (void*)&cdat->dtup_1977__ADD2OUT_STRCONST;
+  cdat->dtup_1977__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1977__ADD2OUT_STRCONST.nbval = 5;
+ /*inimult dtup_1978__ADD2OUT_STRCONST*/
+ /*_.VALTUP___V1988*/ curfptr[1987] = (void*)&cdat->dtup_1978__ADD2OUT_STRCONST;
+  cdat->dtup_1978__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1978__ADD2OUT_STRCONST.nbval = 2;
+ /*iniobj dsym_1979__OUT*/
+ if (!/*_.VALDATA___V1985*/ curfptr[1984]) /*_.VALDATA___V1985*/ curfptr[1984] = (void*)&cdat->dsym_1979__OUT;
+  melt_assertmsg("iniobj checkdiscr dsym_1979__OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1979__OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1979__OUT.obj_hash = 649051035;
+  cdat->dsym_1979__OUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1979__OUT));
+ 
+ /*inistring dstr_1980__OUT*/
+ /*_.VALSTR___V1986*/ curfptr[1985] = (void*)&cdat->dstr_1980__OUT;
+  cdat->dstr_1980__OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1980__OUT.val, "OUT", sizeof(cdat->dstr_1980__OUT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1194:/ iniobj");
+ /*iniobj dobj_1981*/
+ if (!/*_.VALDATA___V1984*/ curfptr[1983]) /*_.VALDATA___V1984*/ curfptr[1983] = (void*)&cdat->dobj_1981;
+  melt_assertmsg("iniobj checkdiscr dobj_1981", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1981.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1981.obj_num = 0;
+  cdat->dobj_1981.obj_hash = 226112566;
+  cdat->dobj_1981.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1981));
+ 
+ MELT_LOCATION("warmelt-first.melt:1194:/ iniobj");
+ /*iniobj dobj_1982*/
+ if (!/*_.VALDATA___V1987*/ curfptr[1986]) /*_.VALDATA___V1987*/ curfptr[1986] = (void*)&cdat->dobj_1982;
+  melt_assertmsg("iniobj checkdiscr dobj_1982", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1982.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1982.obj_num = 1;
+  cdat->dobj_1982.obj_hash = 969812663;
+  cdat->dobj_1982.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1982));
+ 
+ /*inistring dstr_1983__meltgc_add_out_*/
+ /*_.VALSTR___V1989*/ curfptr[1988] = (void*)&cdat->dstr_1983__meltgc_add_out_;
+  cdat->dstr_1983__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1983__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_1983__meltgc_add_out_.val)-1);
+ 
+ /*inistring dstr_1984__*/
+ /*_.VALSTR___V1990*/ curfptr[1989] = (void*)&cdat->dstr_1984__;
+  cdat->dstr_1984__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1984__.val, "), (", sizeof(cdat->dstr_1984__.val)-1);
+ 
+ /*inistring dstr_1985__*/
+ /*_.VALSTR___V1991*/ curfptr[1990] = (void*)&cdat->dstr_1985__;
+  cdat->dstr_1985__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1985__.val, "))", sizeof(cdat->dstr_1985__.val)-1);
+ 
+ /*inistring dstr_1986__ADD2OUT_STRCONST*/
+ /*_.VALSTR___V1983*/ curfptr[1982] = (void*)&cdat->dstr_1986__ADD2OUT_STRCONST;
+  cdat->dstr_1986__ADD2OUT_STRCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1986__ADD2OUT_STRCONST.val, "ADD2OUT_STRCONST", sizeof(cdat->dstr_1986__ADD2OUT_STRCONST.val)-1);
+ 
+ /*iniobj dsym_1987__ADD2OUT_STRING*/
+ if (!/*_.VALDATA___V1993*/ curfptr[1992]) /*_.VALDATA___V1993*/ curfptr[1992] = (void*)&cdat->dsym_1987__ADD2OUT_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_1987__ADD2OUT_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1987__ADD2OUT_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1987__ADD2OUT_STRING.obj_hash = 251302583;
+  cdat->dsym_1987__ADD2OUT_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1987__ADD2OUT_STRING));
+ 
+ /*inistring dstr_1988__ADD2OUT_STRING*/
+ /*_.VALSTR___V1994*/ curfptr[1993] = (void*)&cdat->dstr_1988__ADD2OUT_STRING;
+  cdat->dstr_1988__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1988__ADD2OUT_STRING.val, "ADD2OUT_STRING", sizeof(cdat->dstr_1988__ADD2OUT_STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1198:/ iniobj");
+ /*iniobj dobj_1989__ADD2OUT_STRING*/
+ if (!/*_.VALDATA___V1995*/ curfptr[1994]) /*_.VALDATA___V1995*/ curfptr[1994] = (void*)&cdat->dobj_1989__ADD2OUT_STRING;
+  melt_assertmsg("iniobj checkdiscr dobj_1989__ADD2OUT_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1989__ADD2OUT_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_1989__ADD2OUT_STRING.obj_hash = 1001032468;
+  cdat->dobj_1989__ADD2OUT_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1989__ADD2OUT_STRING));
+ 
+ /*inimult dtup_1990__ADD2OUT_STRING*/
+ /*_.VALTUP___V2003*/ curfptr[2002] = (void*)&cdat->dtup_1990__ADD2OUT_STRING;
+  cdat->dtup_1990__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1990__ADD2OUT_STRING.nbval = 5;
+ /*inimult dtup_1991__ADD2OUT_STRING*/
+ /*_.VALTUP___V1999*/ curfptr[1998] = (void*)&cdat->dtup_1991__ADD2OUT_STRING;
+  cdat->dtup_1991__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_1991__ADD2OUT_STRING.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1198:/ iniobj");
+ /*iniobj dobj_1992*/
+ if (!/*_.VALDATA___V1997*/ curfptr[1996]) /*_.VALDATA___V1997*/ curfptr[1996] = (void*)&cdat->dobj_1992;
+  melt_assertmsg("iniobj checkdiscr dobj_1992", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1992.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1992.obj_num = 0;
+  cdat->dobj_1992.obj_hash = 60293551;
+  cdat->dobj_1992.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1992));
+ 
+ MELT_LOCATION("warmelt-first.melt:1198:/ iniobj");
+ /*iniobj dobj_1993*/
+ if (!/*_.VALDATA___V1998*/ curfptr[1997]) /*_.VALDATA___V1998*/ curfptr[1997] = (void*)&cdat->dobj_1993;
+  melt_assertmsg("iniobj checkdiscr dobj_1993", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1993.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_1993.obj_num = 1;
+  cdat->dobj_1993.obj_hash = 343392843;
+  cdat->dobj_1993.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1993));
+ 
+ /*inistring dstr_1994__meltgc_add_out_*/
+ /*_.VALSTR___V2000*/ curfptr[1999] = (void*)&cdat->dstr_1994__meltgc_add_out_;
+  cdat->dstr_1994__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1994__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_1994__meltgc_add_out_.val)-1);
+ 
+ /*inistring dstr_1995__melt_string_s*/
+ /*_.VALSTR___V2001*/ curfptr[2000] = (void*)&cdat->dstr_1995__melt_string_s;
+  cdat->dstr_1995__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1995__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_1995__melt_string_s.val)-1);
+ 
+ /*inistring dstr_1996__*/
+ /*_.VALSTR___V2002*/ curfptr[2001] = (void*)&cdat->dstr_1996__;
+  cdat->dstr_1996__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_1996__.val, ")))", sizeof(cdat->dstr_1996__.val)-1);
+ 
+ /*inistring dstr_1997__ADD2OUT_STRING*/
+ /*_.VALSTR___V1996*/ curfptr[1995] = (void*)&cdat->dstr_1997__ADD2OUT_STRING;
+  cdat->dstr_1997__ADD2OUT_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1997__ADD2OUT_STRING.val, "ADD2OUT_STRING", sizeof(cdat->dstr_1997__ADD2OUT_STRING.val)-1);
+ 
+ /*iniobj dsym_1998__ADD2OUT_MIXLOC*/
+ if (!/*_.VALDATA___V2004*/ curfptr[2003]) /*_.VALDATA___V2004*/ curfptr[2003] = (void*)&cdat->dsym_1998__ADD2OUT_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_1998__ADD2OUT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1998__ADD2OUT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_1998__ADD2OUT_MIXLOC.obj_hash = 298772127;
+  cdat->dsym_1998__ADD2OUT_MIXLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1998__ADD2OUT_MIXLOC));
+ 
+ /*inistring dstr_1999__ADD2OUT_MIXLOC*/
+ /*_.VALSTR___V2005*/ curfptr[2004] = (void*)&cdat->dstr_1999__ADD2OUT_MIXLOC;
+  cdat->dstr_1999__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_1999__ADD2OUT_MIXLOC.val, "ADD2OUT_MIXLOC", sizeof(cdat->dstr_1999__ADD2OUT_MIXLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1202:/ iniobj");
+ /*iniobj dobj_2000__ADD2OUT_MIXLOC*/
+ if (!/*_.VALDATA___V2006*/ curfptr[2005]) /*_.VALDATA___V2006*/ curfptr[2005] = (void*)&cdat->dobj_2000__ADD2OUT_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_2000__ADD2OUT_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2000__ADD2OUT_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2000__ADD2OUT_MIXLOC.obj_hash = 551475544;
+  cdat->dobj_2000__ADD2OUT_MIXLOC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2000__ADD2OUT_MIXLOC));
+ 
+ /*inimult dtup_2001__ADD2OUT_MIXLOC*/
+ /*_.VALTUP___V2015*/ curfptr[2014] = (void*)&cdat->dtup_2001__ADD2OUT_MIXLOC;
+  cdat->dtup_2001__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2001__ADD2OUT_MIXLOC.nbval = 7;
+ /*inimult dtup_2002__ADD2OUT_MIXLOC*/
+ /*_.VALTUP___V2010*/ curfptr[2009] = (void*)&cdat->dtup_2002__ADD2OUT_MIXLOC;
+  cdat->dtup_2002__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2002__ADD2OUT_MIXLOC.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1202:/ iniobj");
+ /*iniobj dobj_2003*/
+ if (!/*_.VALDATA___V2008*/ curfptr[2007]) /*_.VALDATA___V2008*/ curfptr[2007] = (void*)&cdat->dobj_2003;
+  melt_assertmsg("iniobj checkdiscr dobj_2003", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2003.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2003.obj_num = 0;
+  cdat->dobj_2003.obj_hash = 195292349;
+  cdat->dobj_2003.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2003));
+ 
+ MELT_LOCATION("warmelt-first.melt:1202:/ iniobj");
+ /*iniobj dobj_2004*/
+ if (!/*_.VALDATA___V2009*/ curfptr[2008]) /*_.VALDATA___V2009*/ curfptr[2008] = (void*)&cdat->dobj_2004;
+  melt_assertmsg("iniobj checkdiscr dobj_2004", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2004.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2004.obj_num = 1;
+  cdat->dobj_2004.obj_hash = 164017313;
+  cdat->dobj_2004.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2004));
+ 
+ /*inistring dstr_2005__add2outmixloc_*/
+ /*_.VALSTR___V2011*/ curfptr[2010] = (void*)&cdat->dstr_2005__add2outmixloc_;
+  cdat->dstr_2005__add2outmixloc_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2005__add2outmixloc_.val, "/*add2outmixloc*/ { if (melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2005__add2outmixloc_.val)-1);
+ 
+ /*inistring dstr_2006__OBMAG_MIXL*/
+ /*_.VALSTR___V2012*/ curfptr[2011] = (void*)&cdat->dstr_2006__OBMAG_MIXL;
+  cdat->dstr_2006__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2006__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC) \n  meltgc_out_printf((melt_ptr_t)(\" out \"), \"{%s:%d}\", \n  LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_2006__OBMAG_MIXL.val)-1);
+ 
+ /*inistring dstr_2007__LOCATION_*/
+ /*_.VALSTR___V2013*/ curfptr[2012] = (void*)&cdat->dstr_2007__LOCATION_;
+  cdat->dstr_2007__LOCATION_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2007__LOCATION_.val, ")), \n  LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_2007__LOCATION_.val)-1);
+ 
+ /*inistring dstr_2008__*/
+ /*_.VALSTR___V2014*/ curfptr[2013] = (void*)&cdat->dstr_2008__;
+  cdat->dstr_2008__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2008__.val, "))); ", sizeof(cdat->dstr_2008__.val)-1);
+ 
+ /*inistring dstr_2009__ADD2OUT_MIXLOC*/
+ /*_.VALSTR___V2007*/ curfptr[2006] = (void*)&cdat->dstr_2009__ADD2OUT_MIXLOC;
+  cdat->dstr_2009__ADD2OUT_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2009__ADD2OUT_MIXLOC.val, "ADD2OUT_MIXLOC", sizeof(cdat->dstr_2009__ADD2OUT_MIXLOC.val)-1);
+ 
+ /*iniobj dsym_2010__ADD2OUT_INDENT*/
+ if (!/*_.VALDATA___V2016*/ curfptr[2015]) /*_.VALDATA___V2016*/ curfptr[2015] = (void*)&cdat->dsym_2010__ADD2OUT_INDENT;
+  melt_assertmsg("iniobj checkdiscr dsym_2010__ADD2OUT_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2010__ADD2OUT_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2010__ADD2OUT_INDENT.obj_hash = 712679235;
+  cdat->dsym_2010__ADD2OUT_INDENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2010__ADD2OUT_INDENT));
+ 
+ /*inistring dstr_2011__ADD2OUT_INDENT*/
+ /*_.VALSTR___V2017*/ curfptr[2016] = (void*)&cdat->dstr_2011__ADD2OUT_INDENT;
+  cdat->dstr_2011__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2011__ADD2OUT_INDENT.val, "ADD2OUT_INDENT", sizeof(cdat->dstr_2011__ADD2OUT_INDENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1210:/ iniobj");
+ /*iniobj dobj_2012__ADD2OUT_INDENT*/
+ if (!/*_.VALDATA___V2018*/ curfptr[2017]) /*_.VALDATA___V2018*/ curfptr[2017] = (void*)&cdat->dobj_2012__ADD2OUT_INDENT;
+  melt_assertmsg("iniobj checkdiscr dobj_2012__ADD2OUT_INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2012__ADD2OUT_INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2012__ADD2OUT_INDENT.obj_hash = 894348170;
+  cdat->dobj_2012__ADD2OUT_INDENT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2012__ADD2OUT_INDENT));
+ 
+ /*inimult dtup_2013__ADD2OUT_INDENT*/
+ /*_.VALTUP___V2026*/ curfptr[2025] = (void*)&cdat->dtup_2013__ADD2OUT_INDENT;
+  cdat->dtup_2013__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2013__ADD2OUT_INDENT.nbval = 5;
+ /*inimult dtup_2014__ADD2OUT_INDENT*/
+ /*_.VALTUP___V2022*/ curfptr[2021] = (void*)&cdat->dtup_2014__ADD2OUT_INDENT;
+  cdat->dtup_2014__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2014__ADD2OUT_INDENT.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1210:/ iniobj");
+ /*iniobj dobj_2015*/
+ if (!/*_.VALDATA___V2020*/ curfptr[2019]) /*_.VALDATA___V2020*/ curfptr[2019] = (void*)&cdat->dobj_2015;
+  melt_assertmsg("iniobj checkdiscr dobj_2015", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2015.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2015.obj_num = 0;
+  cdat->dobj_2015.obj_hash = 67710971;
+  cdat->dobj_2015.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2015));
+ 
+ MELT_LOCATION("warmelt-first.melt:1210:/ iniobj");
+ /*iniobj dobj_2016*/
+ if (!/*_.VALDATA___V2021*/ curfptr[2020]) /*_.VALDATA___V2021*/ curfptr[2020] = (void*)&cdat->dobj_2016;
+  melt_assertmsg("iniobj checkdiscr dobj_2016", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2016.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2016.obj_num = 1;
+  cdat->dobj_2016.obj_hash = 123698687;
+  cdat->dobj_2016.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2016));
+ 
+ /*inistring dstr_2017__meltgc_out_add_i*/
+ /*_.VALSTR___V2023*/ curfptr[2022] = (void*)&cdat->dstr_2017__meltgc_out_add_i;
+  cdat->dstr_2017__meltgc_out_add_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2017__meltgc_out_add_i.val, "meltgc_out_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_2017__meltgc_out_add_i.val)-1);
+ 
+ /*inistring dstr_2018__*/
+ /*_.VALSTR___V2024*/ curfptr[2023] = (void*)&cdat->dstr_2018__;
+  cdat->dstr_2018__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2018__.val, "), (", sizeof(cdat->dstr_2018__.val)-1);
+ 
+ /*inistring dstr_2019__64_*/
+ /*_.VALSTR___V2025*/ curfptr[2024] = (void*)&cdat->dstr_2019__64_;
+  cdat->dstr_2019__64_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2019__64_.val, "), 64)", sizeof(cdat->dstr_2019__64_.val)-1);
+ 
+ /*inistring dstr_2020__ADD2OUT_INDENT*/
+ /*_.VALSTR___V2019*/ curfptr[2018] = (void*)&cdat->dstr_2020__ADD2OUT_INDENT;
+  cdat->dstr_2020__ADD2OUT_INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2020__ADD2OUT_INDENT.val, "ADD2OUT_INDENT", sizeof(cdat->dstr_2020__ADD2OUT_INDENT.val)-1);
+ 
+ /*iniobj dsym_2021__ADD2OUT_INDENTNL*/
+ if (!/*_.VALDATA___V2027*/ curfptr[2026]) /*_.VALDATA___V2027*/ curfptr[2026] = (void*)&cdat->dsym_2021__ADD2OUT_INDENTNL;
+  melt_assertmsg("iniobj checkdiscr dsym_2021__ADD2OUT_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2021__ADD2OUT_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2021__ADD2OUT_INDENTNL.obj_hash = 741830835;
+  cdat->dsym_2021__ADD2OUT_INDENTNL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2021__ADD2OUT_INDENTNL));
+ 
+ /*inistring dstr_2022__ADD2OUT_INDENTNL*/
+ /*_.VALSTR___V2028*/ curfptr[2027] = (void*)&cdat->dstr_2022__ADD2OUT_INDENTNL;
+  cdat->dstr_2022__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2022__ADD2OUT_INDENTNL.val, "ADD2OUT_INDENTNL", sizeof(cdat->dstr_2022__ADD2OUT_INDENTNL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1216:/ iniobj");
+ /*iniobj dobj_2023__ADD2OUT_INDENTNL*/
+ if (!/*_.VALDATA___V2029*/ curfptr[2028]) /*_.VALDATA___V2029*/ curfptr[2028] = (void*)&cdat->dobj_2023__ADD2OUT_INDENTNL;
+  melt_assertmsg("iniobj checkdiscr dobj_2023__ADD2OUT_INDENTNL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2023__ADD2OUT_INDENTNL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2023__ADD2OUT_INDENTNL.obj_hash = 481736734;
+  cdat->dobj_2023__ADD2OUT_INDENTNL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2023__ADD2OUT_INDENTNL));
+ 
+ /*inimult dtup_2024__ADD2OUT_INDENTNL*/
+ /*_.VALTUP___V2037*/ curfptr[2036] = (void*)&cdat->dtup_2024__ADD2OUT_INDENTNL;
+  cdat->dtup_2024__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2024__ADD2OUT_INDENTNL.nbval = 5;
+ /*inimult dtup_2025__ADD2OUT_INDENTNL*/
+ /*_.VALTUP___V2033*/ curfptr[2032] = (void*)&cdat->dtup_2025__ADD2OUT_INDENTNL;
+  cdat->dtup_2025__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2025__ADD2OUT_INDENTNL.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1216:/ iniobj");
+ /*iniobj dobj_2026*/
+ if (!/*_.VALDATA___V2031*/ curfptr[2030]) /*_.VALDATA___V2031*/ curfptr[2030] = (void*)&cdat->dobj_2026;
+  melt_assertmsg("iniobj checkdiscr dobj_2026", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2026.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2026.obj_num = 0;
+  cdat->dobj_2026.obj_hash = 100026442;
+  cdat->dobj_2026.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2026));
+ 
+ MELT_LOCATION("warmelt-first.melt:1216:/ iniobj");
+ /*iniobj dobj_2027*/
+ if (!/*_.VALDATA___V2032*/ curfptr[2031]) /*_.VALDATA___V2032*/ curfptr[2031] = (void*)&cdat->dobj_2027;
+  melt_assertmsg("iniobj checkdiscr dobj_2027", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2027.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2027.obj_num = 1;
+  cdat->dobj_2027.obj_hash = 416527847;
+  cdat->dobj_2027.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2027));
+ 
+ /*inistring dstr_2028__meltgc_out_add_i*/
+ /*_.VALSTR___V2034*/ curfptr[2033] = (void*)&cdat->dstr_2028__meltgc_out_add_i;
+  cdat->dstr_2028__meltgc_out_add_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2028__meltgc_out_add_i.val, "meltgc_out_add_indent((melt_ptr_t)(", sizeof(cdat->dstr_2028__meltgc_out_add_i.val)-1);
+ 
+ /*inistring dstr_2029__*/
+ /*_.VALSTR___V2035*/ curfptr[2034] = (void*)&cdat->dstr_2029__;
+  cdat->dstr_2029__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2029__.val, "), (", sizeof(cdat->dstr_2029__.val)-1);
+ 
+ /*inistring dstr_2030__0_*/
+ /*_.VALSTR___V2036*/ curfptr[2035] = (void*)&cdat->dstr_2030__0_;
+  cdat->dstr_2030__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2030__0_.val, "), 0)", sizeof(cdat->dstr_2030__0_.val)-1);
+ 
+ /*inistring dstr_2031__ADD2OUT_INDENTNL*/
+ /*_.VALSTR___V2030*/ curfptr[2029] = (void*)&cdat->dstr_2031__ADD2OUT_INDENTNL;
+  cdat->dstr_2031__ADD2OUT_INDENTNL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2031__ADD2OUT_INDENTNL.val, "ADD2OUT_INDENTNL", sizeof(cdat->dstr_2031__ADD2OUT_INDENTNL.val)-1);
+ 
+ /*iniobj dsym_2032__ADD2OUT_SBUF*/
+ if (!/*_.VALDATA___V2038*/ curfptr[2037]) /*_.VALDATA___V2038*/ curfptr[2037] = (void*)&cdat->dsym_2032__ADD2OUT_SBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_2032__ADD2OUT_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2032__ADD2OUT_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2032__ADD2OUT_SBUF.obj_hash = 368240084;
+  cdat->dsym_2032__ADD2OUT_SBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2032__ADD2OUT_SBUF));
+ 
+ /*inistring dstr_2033__ADD2OUT_SBUF*/
+ /*_.VALSTR___V2039*/ curfptr[2038] = (void*)&cdat->dstr_2033__ADD2OUT_SBUF;
+  cdat->dstr_2033__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2033__ADD2OUT_SBUF.val, "ADD2OUT_SBUF", sizeof(cdat->dstr_2033__ADD2OUT_SBUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1222:/ iniobj");
+ /*iniobj dobj_2034__ADD2OUT_SBUF*/
+ if (!/*_.VALDATA___V2040*/ curfptr[2039]) /*_.VALDATA___V2040*/ curfptr[2039] = (void*)&cdat->dobj_2034__ADD2OUT_SBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_2034__ADD2OUT_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2034__ADD2OUT_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2034__ADD2OUT_SBUF.obj_hash = 131300093;
+  cdat->dobj_2034__ADD2OUT_SBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2034__ADD2OUT_SBUF));
+ 
+ /*inimult dtup_2035__ADD2OUT_SBUF*/
+ /*_.VALTUP___V2048*/ curfptr[2047] = (void*)&cdat->dtup_2035__ADD2OUT_SBUF;
+  cdat->dtup_2035__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2035__ADD2OUT_SBUF.nbval = 5;
+ /*inimult dtup_2036__ADD2OUT_SBUF*/
+ /*_.VALTUP___V2044*/ curfptr[2043] = (void*)&cdat->dtup_2036__ADD2OUT_SBUF;
+  cdat->dtup_2036__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2036__ADD2OUT_SBUF.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1222:/ iniobj");
+ /*iniobj dobj_2037*/
+ if (!/*_.VALDATA___V2042*/ curfptr[2041]) /*_.VALDATA___V2042*/ curfptr[2041] = (void*)&cdat->dobj_2037;
+  melt_assertmsg("iniobj checkdiscr dobj_2037", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2037.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2037.obj_num = 0;
+  cdat->dobj_2037.obj_hash = 374541798;
+  cdat->dobj_2037.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2037));
+ 
+ MELT_LOCATION("warmelt-first.melt:1222:/ iniobj");
+ /*iniobj dobj_2038*/
+ if (!/*_.VALDATA___V2043*/ curfptr[2042]) /*_.VALDATA___V2043*/ curfptr[2042] = (void*)&cdat->dobj_2038;
+  melt_assertmsg("iniobj checkdiscr dobj_2038", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2038.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2038.obj_num = 1;
+  cdat->dobj_2038.obj_hash = 606474726;
+  cdat->dobj_2038.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2038));
+ 
+ /*inistring dstr_2039__meltgc_add_out_*/
+ /*_.VALSTR___V2045*/ curfptr[2044] = (void*)&cdat->dstr_2039__meltgc_add_out_;
+  cdat->dstr_2039__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2039__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_2039__meltgc_add_out_.val)-1);
+ 
+ /*inistring dstr_2040__melt_out_str_*/
+ /*_.VALSTR___V2046*/ curfptr[2045] = (void*)&cdat->dstr_2040__melt_out_str_;
+  cdat->dstr_2040__melt_out_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2040__melt_out_str_.val, "), melt_out_str(", sizeof(cdat->dstr_2040__melt_out_str_.val)-1);
+ 
+ /*inistring dstr_2041__*/
+ /*_.VALSTR___V2047*/ curfptr[2046] = (void*)&cdat->dstr_2041__;
+  cdat->dstr_2041__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2041__.val, "))", sizeof(cdat->dstr_2041__.val)-1);
+ 
+ /*inistring dstr_2042__ADD2OUT_SBUF*/
+ /*_.VALSTR___V2041*/ curfptr[2040] = (void*)&cdat->dstr_2042__ADD2OUT_SBUF;
+  cdat->dstr_2042__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2042__ADD2OUT_SBUF.val, "ADD2OUT_SBUF", sizeof(cdat->dstr_2042__ADD2OUT_SBUF.val)-1);
+ 
+ /*iniobj dsym_2043__ADD2OUT_CENCSTRING*/
+ if (!/*_.VALDATA___V2049*/ curfptr[2048]) /*_.VALDATA___V2049*/ curfptr[2048] = (void*)&cdat->dsym_2043__ADD2OUT_CENCSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2043__ADD2OUT_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2043__ADD2OUT_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2043__ADD2OUT_CENCSTRING.obj_hash = 48397919;
+  cdat->dsym_2043__ADD2OUT_CENCSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2043__ADD2OUT_CENCSTRING));
+ 
+ /*inistring dstr_2044__ADD2OUT_CENCSTRI*/
+ /*_.VALSTR___V2050*/ curfptr[2049] = (void*)&cdat->dstr_2044__ADD2OUT_CENCSTRI;
+  cdat->dstr_2044__ADD2OUT_CENCSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2044__ADD2OUT_CENCSTRI.val, "ADD2OUT_CENCSTRING", sizeof(cdat->dstr_2044__ADD2OUT_CENCSTRI.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ iniobj");
- /*iniobj dobj_2042__ADD2OUT_SBUF*/
- if (!/*_.VALDATA___V2048*/ curfptr[2047]) /*_.VALDATA___V2048*/ curfptr[2047] = (void*)&cdat->dobj_2042__ADD2OUT_SBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_2042__ADD2OUT_SBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2042__ADD2OUT_SBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2042__ADD2OUT_SBUF.obj_hash = 441844211;
-  cdat->dobj_2042__ADD2OUT_SBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2042__ADD2OUT_SBUF));
- 
- /*inimult dtup_2043__ADD2OUT_SBUF*/
- /*_.VALTUP___V2056*/ curfptr[2055] = (void*)&cdat->dtup_2043__ADD2OUT_SBUF;
-  cdat->dtup_2043__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2043__ADD2OUT_SBUF.nbval = 5;
- /*inimult dtup_2044__ADD2OUT_SBUF*/
- /*_.VALTUP___V2052*/ curfptr[2051] = (void*)&cdat->dtup_2044__ADD2OUT_SBUF;
-  cdat->dtup_2044__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2044__ADD2OUT_SBUF.nbval = 2;
+ /*iniobj dobj_2045__ADD2OUT_CENCSTRING*/
+ if (!/*_.VALDATA___V2051*/ curfptr[2050]) /*_.VALDATA___V2051*/ curfptr[2050] = (void*)&cdat->dobj_2045__ADD2OUT_CENCSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2045__ADD2OUT_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2045__ADD2OUT_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2045__ADD2OUT_CENCSTRING.obj_hash = 985174983;
+  cdat->dobj_2045__ADD2OUT_CENCSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2045__ADD2OUT_CENCSTRING));
+ 
+ /*inimult dtup_2046__ADD2OUT_CENCSTRING*/
+ /*_.VALTUP___V2059*/ curfptr[2058] = (void*)&cdat->dtup_2046__ADD2OUT_CENCSTRING;
+  cdat->dtup_2046__ADD2OUT_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2046__ADD2OUT_CENCSTRING.nbval = 5;
+ /*inimult dtup_2047__ADD2OUT_CENCSTRING*/
+ /*_.VALTUP___V2055*/ curfptr[2054] = (void*)&cdat->dtup_2047__ADD2OUT_CENCSTRING;
+  cdat->dtup_2047__ADD2OUT_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2047__ADD2OUT_CENCSTRING.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1227:/ iniobj");
- /*iniobj dobj_2045*/
- if (!/*_.VALDATA___V2050*/ curfptr[2049]) /*_.VALDATA___V2050*/ curfptr[2049] = (void*)&cdat->dobj_2045;
-  melt_assertmsg("iniobj checkdiscr dobj_2045", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2045.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2045.obj_num = 0;
-  cdat->dobj_2045.obj_hash = 1576779;
-  cdat->dobj_2045.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2045));
+ /*iniobj dobj_2048*/
+ if (!/*_.VALDATA___V2053*/ curfptr[2052]) /*_.VALDATA___V2053*/ curfptr[2052] = (void*)&cdat->dobj_2048;
+  melt_assertmsg("iniobj checkdiscr dobj_2048", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2048.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2048.obj_num = 0;
+  cdat->dobj_2048.obj_hash = 116848633;
+  cdat->dobj_2048.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2048));
  
  MELT_LOCATION("warmelt-first.melt:1227:/ iniobj");
- /*iniobj dobj_2046*/
- if (!/*_.VALDATA___V2051*/ curfptr[2050]) /*_.VALDATA___V2051*/ curfptr[2050] = (void*)&cdat->dobj_2046;
-  melt_assertmsg("iniobj checkdiscr dobj_2046", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2046.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2046.obj_num = 1;
-  cdat->dobj_2046.obj_hash = 796475624;
-  cdat->dobj_2046.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2046));
- 
- /*inistring dstr_2047__meltgc_add_out_*/
- /*_.VALSTR___V2053*/ curfptr[2052] = (void*)&cdat->dstr_2047__meltgc_add_out_;
-  cdat->dstr_2047__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2047__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_2047__meltgc_add_out_.val)-1);
- 
- /*inistring dstr_2048__melt_out_str_*/
- /*_.VALSTR___V2054*/ curfptr[2053] = (void*)&cdat->dstr_2048__melt_out_str_;
-  cdat->dstr_2048__melt_out_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2048__melt_out_str_.val, "), melt_out_str(", sizeof(cdat->dstr_2048__melt_out_str_.val)-1);
- 
- /*inistring dstr_2049__*/
- /*_.VALSTR___V2055*/ curfptr[2054] = (void*)&cdat->dstr_2049__;
-  cdat->dstr_2049__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2049__.val, "))", sizeof(cdat->dstr_2049__.val)-1);
- 
- /*inistring dstr_2050__ADD2OUT_SBUF*/
- /*_.VALSTR___V2049*/ curfptr[2048] = (void*)&cdat->dstr_2050__ADD2OUT_SBUF;
-  cdat->dstr_2050__ADD2OUT_SBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2050__ADD2OUT_SBUF.val, "ADD2OUT_SBUF", sizeof(cdat->dstr_2050__ADD2OUT_SBUF.val)-1);
- 
- /*iniobj dsym_2051__ADD2OUT_CENCSTRING*/
- if (!/*_.VALDATA___V2057*/ curfptr[2056]) /*_.VALDATA___V2057*/ curfptr[2056] = (void*)&cdat->dsym_2051__ADD2OUT_CENCSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2051__ADD2OUT_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2051__ADD2OUT_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2051__ADD2OUT_CENCSTRING.obj_hash = 48397919;
-  cdat->dsym_2051__ADD2OUT_CENCSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2051__ADD2OUT_CENCSTRING));
- 
- /*inistring dstr_2052__ADD2OUT_CENCSTRI*/
- /*_.VALSTR___V2058*/ curfptr[2057] = (void*)&cdat->dstr_2052__ADD2OUT_CENCSTRI;
-  cdat->dstr_2052__ADD2OUT_CENCSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2052__ADD2OUT_CENCSTRI.val, "ADD2OUT_CENCSTRING", sizeof(cdat->dstr_2052__ADD2OUT_CENCSTRI.val)-1);
+ /*iniobj dobj_2049*/
+ if (!/*_.VALDATA___V2054*/ curfptr[2053]) /*_.VALDATA___V2054*/ curfptr[2053] = (void*)&cdat->dobj_2049;
+  melt_assertmsg("iniobj checkdiscr dobj_2049", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2049.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2049.obj_num = 1;
+  cdat->dobj_2049.obj_hash = 106775483;
+  cdat->dobj_2049.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2049));
+ 
+ /*inistring dstr_2050__meltgc_add_out_c*/
+ /*_.VALSTR___V2056*/ curfptr[2055] = (void*)&cdat->dstr_2050__meltgc_add_out_c;
+  cdat->dstr_2050__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2050__meltgc_add_out_c.val, "meltgc_add_out_cstr((melt_ptr_t)(", sizeof(cdat->dstr_2050__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2051__melt_string_s*/
+ /*_.VALSTR___V2057*/ curfptr[2056] = (void*)&cdat->dstr_2051__melt_string_s;
+  cdat->dstr_2051__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2051__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2051__melt_string_s.val)-1);
+ 
+ /*inistring dstr_2052__*/
+ /*_.VALSTR___V2058*/ curfptr[2057] = (void*)&cdat->dstr_2052__;
+  cdat->dstr_2052__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2052__.val, ")))", sizeof(cdat->dstr_2052__.val)-1);
+ 
+ /*inistring dstr_2053__ADD2OUT_CENCSTRI*/
+ /*_.VALSTR___V2052*/ curfptr[2051] = (void*)&cdat->dstr_2053__ADD2OUT_CENCSTRI;
+  cdat->dstr_2053__ADD2OUT_CENCSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2053__ADD2OUT_CENCSTRI.val, "ADD2OUT_CENCSTRING", sizeof(cdat->dstr_2053__ADD2OUT_CENCSTRI.val)-1);
+ 
+ /*iniobj dsym_2054__ADD2OUT_CENCSTRBUF*/
+ if (!/*_.VALDATA___V2060*/ curfptr[2059]) /*_.VALDATA___V2060*/ curfptr[2059] = (void*)&cdat->dsym_2054__ADD2OUT_CENCSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_2054__ADD2OUT_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2054__ADD2OUT_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2054__ADD2OUT_CENCSTRBUF.obj_hash = 720576994;
+  cdat->dsym_2054__ADD2OUT_CENCSTRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2054__ADD2OUT_CENCSTRBUF));
+ 
+ /*inistring dstr_2055__ADD2OUT_CENCSTRB*/
+ /*_.VALSTR___V2061*/ curfptr[2060] = (void*)&cdat->dstr_2055__ADD2OUT_CENCSTRB;
+  cdat->dstr_2055__ADD2OUT_CENCSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2055__ADD2OUT_CENCSTRB.val, "ADD2OUT_CENCSTRBUF", sizeof(cdat->dstr_2055__ADD2OUT_CENCSTRB.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ iniobj");
- /*iniobj dobj_2053__ADD2OUT_CENCSTRING*/
- if (!/*_.VALDATA___V2059*/ curfptr[2058]) /*_.VALDATA___V2059*/ curfptr[2058] = (void*)&cdat->dobj_2053__ADD2OUT_CENCSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2053__ADD2OUT_CENCSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2053__ADD2OUT_CENCSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2053__ADD2OUT_CENCSTRING.obj_hash = 209403320;
-  cdat->dobj_2053__ADD2OUT_CENCSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2053__ADD2OUT_CENCSTRING));
- 
- /*inimult dtup_2054__ADD2OUT_CENCSTRING*/
- /*_.VALTUP___V2067*/ curfptr[2066] = (void*)&cdat->dtup_2054__ADD2OUT_CENCSTRING;
-  cdat->dtup_2054__ADD2OUT_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2054__ADD2OUT_CENCSTRING.nbval = 5;
- /*inimult dtup_2055__ADD2OUT_CENCSTRING*/
- /*_.VALTUP___V2063*/ curfptr[2062] = (void*)&cdat->dtup_2055__ADD2OUT_CENCSTRING;
-  cdat->dtup_2055__ADD2OUT_CENCSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2055__ADD2OUT_CENCSTRING.nbval = 2;
+ /*iniobj dobj_2056__ADD2OUT_CENCSTRBUF*/
+ if (!/*_.VALDATA___V2062*/ curfptr[2061]) /*_.VALDATA___V2062*/ curfptr[2061] = (void*)&cdat->dobj_2056__ADD2OUT_CENCSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_2056__ADD2OUT_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2056__ADD2OUT_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2056__ADD2OUT_CENCSTRBUF.obj_hash = 647779544;
+  cdat->dobj_2056__ADD2OUT_CENCSTRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2056__ADD2OUT_CENCSTRBUF));
+ 
+ /*inimult dtup_2057__ADD2OUT_CENCSTRBUF*/
+ /*_.VALTUP___V2070*/ curfptr[2069] = (void*)&cdat->dtup_2057__ADD2OUT_CENCSTRBUF;
+  cdat->dtup_2057__ADD2OUT_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2057__ADD2OUT_CENCSTRBUF.nbval = 5;
+ /*inimult dtup_2058__ADD2OUT_CENCSTRBUF*/
+ /*_.VALTUP___V2066*/ curfptr[2065] = (void*)&cdat->dtup_2058__ADD2OUT_CENCSTRBUF;
+  cdat->dtup_2058__ADD2OUT_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2058__ADD2OUT_CENCSTRBUF.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1232:/ iniobj");
- /*iniobj dobj_2056*/
- if (!/*_.VALDATA___V2061*/ curfptr[2060]) /*_.VALDATA___V2061*/ curfptr[2060] = (void*)&cdat->dobj_2056;
-  melt_assertmsg("iniobj checkdiscr dobj_2056", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2056.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2056.obj_num = 0;
-  cdat->dobj_2056.obj_hash = 373971020;
-  cdat->dobj_2056.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2056));
+ /*iniobj dobj_2059*/
+ if (!/*_.VALDATA___V2064*/ curfptr[2063]) /*_.VALDATA___V2064*/ curfptr[2063] = (void*)&cdat->dobj_2059;
+  melt_assertmsg("iniobj checkdiscr dobj_2059", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2059.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2059.obj_num = 0;
+  cdat->dobj_2059.obj_hash = 30956474;
+  cdat->dobj_2059.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2059));
  
  MELT_LOCATION("warmelt-first.melt:1232:/ iniobj");
- /*iniobj dobj_2057*/
- if (!/*_.VALDATA___V2062*/ curfptr[2061]) /*_.VALDATA___V2062*/ curfptr[2061] = (void*)&cdat->dobj_2057;
-  melt_assertmsg("iniobj checkdiscr dobj_2057", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2057.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2057.obj_num = 1;
-  cdat->dobj_2057.obj_hash = 1055796517;
-  cdat->dobj_2057.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2057));
- 
- /*inistring dstr_2058__meltgc_add_out_c*/
- /*_.VALSTR___V2064*/ curfptr[2063] = (void*)&cdat->dstr_2058__meltgc_add_out_c;
-  cdat->dstr_2058__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2058__meltgc_add_out_c.val, "meltgc_add_out_cstr((melt_ptr_t)(", sizeof(cdat->dstr_2058__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2059__melt_string_s*/
- /*_.VALSTR___V2065*/ curfptr[2064] = (void*)&cdat->dstr_2059__melt_string_s;
-  cdat->dstr_2059__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2059__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2059__melt_string_s.val)-1);
- 
- /*inistring dstr_2060__*/
- /*_.VALSTR___V2066*/ curfptr[2065] = (void*)&cdat->dstr_2060__;
-  cdat->dstr_2060__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2060__.val, ")))", sizeof(cdat->dstr_2060__.val)-1);
- 
- /*inistring dstr_2061__ADD2OUT_CENCSTRI*/
- /*_.VALSTR___V2060*/ curfptr[2059] = (void*)&cdat->dstr_2061__ADD2OUT_CENCSTRI;
-  cdat->dstr_2061__ADD2OUT_CENCSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2061__ADD2OUT_CENCSTRI.val, "ADD2OUT_CENCSTRING", sizeof(cdat->dstr_2061__ADD2OUT_CENCSTRI.val)-1);
- 
- /*iniobj dsym_2062__ADD2OUT_CENCSTRBUF*/
- if (!/*_.VALDATA___V2068*/ curfptr[2067]) /*_.VALDATA___V2068*/ curfptr[2067] = (void*)&cdat->dsym_2062__ADD2OUT_CENCSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_2062__ADD2OUT_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2062__ADD2OUT_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2062__ADD2OUT_CENCSTRBUF.obj_hash = 720576994;
-  cdat->dsym_2062__ADD2OUT_CENCSTRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2062__ADD2OUT_CENCSTRBUF));
- 
- /*inistring dstr_2063__ADD2OUT_CENCSTRB*/
- /*_.VALSTR___V2069*/ curfptr[2068] = (void*)&cdat->dstr_2063__ADD2OUT_CENCSTRB;
-  cdat->dstr_2063__ADD2OUT_CENCSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2063__ADD2OUT_CENCSTRB.val, "ADD2OUT_CENCSTRBUF", sizeof(cdat->dstr_2063__ADD2OUT_CENCSTRB.val)-1);
+ /*iniobj dobj_2060*/
+ if (!/*_.VALDATA___V2065*/ curfptr[2064]) /*_.VALDATA___V2065*/ curfptr[2064] = (void*)&cdat->dobj_2060;
+  melt_assertmsg("iniobj checkdiscr dobj_2060", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2060.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2060.obj_num = 1;
+  cdat->dobj_2060.obj_hash = 1067520004;
+  cdat->dobj_2060.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2060));
+ 
+ /*inistring dstr_2061__meltgc_add_out_c*/
+ /*_.VALSTR___V2067*/ curfptr[2066] = (void*)&cdat->dstr_2061__meltgc_add_out_c;
+  cdat->dstr_2061__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2061__meltgc_add_out_c.val, "meltgc_add_out_cstr((melt_ptr_t)(", sizeof(cdat->dstr_2061__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2062__melt_out_str_*/
+ /*_.VALSTR___V2068*/ curfptr[2067] = (void*)&cdat->dstr_2062__melt_out_str_;
+  cdat->dstr_2062__melt_out_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2062__melt_out_str_.val, "), melt_out_str((melt_ptr_t)(", sizeof(cdat->dstr_2062__melt_out_str_.val)-1);
+ 
+ /*inistring dstr_2063__*/
+ /*_.VALSTR___V2069*/ curfptr[2068] = (void*)&cdat->dstr_2063__;
+  cdat->dstr_2063__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2063__.val, ")))", sizeof(cdat->dstr_2063__.val)-1);
+ 
+ /*inistring dstr_2064__ADD2OUT_CENCSTRB*/
+ /*_.VALSTR___V2063*/ curfptr[2062] = (void*)&cdat->dstr_2064__ADD2OUT_CENCSTRB;
+  cdat->dstr_2064__ADD2OUT_CENCSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2064__ADD2OUT_CENCSTRB.val, "ADD2OUT_CENCSTRBUF", sizeof(cdat->dstr_2064__ADD2OUT_CENCSTRB.val)-1);
+ 
+ /*iniobj dsym_2065__ADD2OUT_CCOMSTRING*/
+ if (!/*_.VALDATA___V2071*/ curfptr[2070]) /*_.VALDATA___V2071*/ curfptr[2070] = (void*)&cdat->dsym_2065__ADD2OUT_CCOMSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2065__ADD2OUT_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2065__ADD2OUT_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2065__ADD2OUT_CCOMSTRING.obj_hash = 16248573;
+  cdat->dsym_2065__ADD2OUT_CCOMSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2065__ADD2OUT_CCOMSTRING));
+ 
+ /*inistring dstr_2066__ADD2OUT_CCOMSTRI*/
+ /*_.VALSTR___V2072*/ curfptr[2071] = (void*)&cdat->dstr_2066__ADD2OUT_CCOMSTRI;
+  cdat->dstr_2066__ADD2OUT_CCOMSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2066__ADD2OUT_CCOMSTRI.val, "ADD2OUT_CCOMSTRING", sizeof(cdat->dstr_2066__ADD2OUT_CCOMSTRI.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ iniobj");
- /*iniobj dobj_2064__ADD2OUT_CENCSTRBUF*/
- if (!/*_.VALDATA___V2070*/ curfptr[2069]) /*_.VALDATA___V2070*/ curfptr[2069] = (void*)&cdat->dobj_2064__ADD2OUT_CENCSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_2064__ADD2OUT_CENCSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2064__ADD2OUT_CENCSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2064__ADD2OUT_CENCSTRBUF.obj_hash = 649868718;
-  cdat->dobj_2064__ADD2OUT_CENCSTRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2064__ADD2OUT_CENCSTRBUF));
- 
- /*inimult dtup_2065__ADD2OUT_CENCSTRBUF*/
- /*_.VALTUP___V2078*/ curfptr[2077] = (void*)&cdat->dtup_2065__ADD2OUT_CENCSTRBUF;
-  cdat->dtup_2065__ADD2OUT_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2065__ADD2OUT_CENCSTRBUF.nbval = 5;
- /*inimult dtup_2066__ADD2OUT_CENCSTRBUF*/
- /*_.VALTUP___V2074*/ curfptr[2073] = (void*)&cdat->dtup_2066__ADD2OUT_CENCSTRBUF;
-  cdat->dtup_2066__ADD2OUT_CENCSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2066__ADD2OUT_CENCSTRBUF.nbval = 2;
+ /*iniobj dobj_2067__ADD2OUT_CCOMSTRING*/
+ if (!/*_.VALDATA___V2073*/ curfptr[2072]) /*_.VALDATA___V2073*/ curfptr[2072] = (void*)&cdat->dobj_2067__ADD2OUT_CCOMSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2067__ADD2OUT_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2067__ADD2OUT_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2067__ADD2OUT_CCOMSTRING.obj_hash = 965895908;
+  cdat->dobj_2067__ADD2OUT_CCOMSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2067__ADD2OUT_CCOMSTRING));
+ 
+ /*inimult dtup_2068__ADD2OUT_CCOMSTRING*/
+ /*_.VALTUP___V2081*/ curfptr[2080] = (void*)&cdat->dtup_2068__ADD2OUT_CCOMSTRING;
+  cdat->dtup_2068__ADD2OUT_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2068__ADD2OUT_CCOMSTRING.nbval = 5;
+ /*inimult dtup_2069__ADD2OUT_CCOMSTRING*/
+ /*_.VALTUP___V2077*/ curfptr[2076] = (void*)&cdat->dtup_2069__ADD2OUT_CCOMSTRING;
+  cdat->dtup_2069__ADD2OUT_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2069__ADD2OUT_CCOMSTRING.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1237:/ iniobj");
- /*iniobj dobj_2067*/
- if (!/*_.VALDATA___V2072*/ curfptr[2071]) /*_.VALDATA___V2072*/ curfptr[2071] = (void*)&cdat->dobj_2067;
-  melt_assertmsg("iniobj checkdiscr dobj_2067", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2067.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2067.obj_num = 0;
-  cdat->dobj_2067.obj_hash = 762601896;
-  cdat->dobj_2067.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2067));
+ /*iniobj dobj_2070*/
+ if (!/*_.VALDATA___V2075*/ curfptr[2074]) /*_.VALDATA___V2075*/ curfptr[2074] = (void*)&cdat->dobj_2070;
+  melt_assertmsg("iniobj checkdiscr dobj_2070", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2070.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2070.obj_num = 0;
+  cdat->dobj_2070.obj_hash = 386074745;
+  cdat->dobj_2070.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2070));
  
  MELT_LOCATION("warmelt-first.melt:1237:/ iniobj");
- /*iniobj dobj_2068*/
- if (!/*_.VALDATA___V2073*/ curfptr[2072]) /*_.VALDATA___V2073*/ curfptr[2072] = (void*)&cdat->dobj_2068;
-  melt_assertmsg("iniobj checkdiscr dobj_2068", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2068.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2068.obj_num = 1;
-  cdat->dobj_2068.obj_hash = 476288184;
-  cdat->dobj_2068.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2068));
- 
- /*inistring dstr_2069__meltgc_add_out_c*/
- /*_.VALSTR___V2075*/ curfptr[2074] = (void*)&cdat->dstr_2069__meltgc_add_out_c;
-  cdat->dstr_2069__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2069__meltgc_add_out_c.val, "meltgc_add_out_cstr((melt_ptr_t)(", sizeof(cdat->dstr_2069__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2070__melt_out_str_*/
- /*_.VALSTR___V2076*/ curfptr[2075] = (void*)&cdat->dstr_2070__melt_out_str_;
-  cdat->dstr_2070__melt_out_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2070__melt_out_str_.val, "), melt_out_str((melt_ptr_t)(", sizeof(cdat->dstr_2070__melt_out_str_.val)-1);
- 
- /*inistring dstr_2071__*/
- /*_.VALSTR___V2077*/ curfptr[2076] = (void*)&cdat->dstr_2071__;
-  cdat->dstr_2071__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2071__.val, ")))", sizeof(cdat->dstr_2071__.val)-1);
- 
- /*inistring dstr_2072__ADD2OUT_CENCSTRB*/
- /*_.VALSTR___V2071*/ curfptr[2070] = (void*)&cdat->dstr_2072__ADD2OUT_CENCSTRB;
-  cdat->dstr_2072__ADD2OUT_CENCSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2072__ADD2OUT_CENCSTRB.val, "ADD2OUT_CENCSTRBUF", sizeof(cdat->dstr_2072__ADD2OUT_CENCSTRB.val)-1);
- 
- /*iniobj dsym_2073__ADD2OUT_CCOMSTRING*/
- if (!/*_.VALDATA___V2079*/ curfptr[2078]) /*_.VALDATA___V2079*/ curfptr[2078] = (void*)&cdat->dsym_2073__ADD2OUT_CCOMSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2073__ADD2OUT_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2073__ADD2OUT_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2073__ADD2OUT_CCOMSTRING.obj_hash = 16248573;
-  cdat->dsym_2073__ADD2OUT_CCOMSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2073__ADD2OUT_CCOMSTRING));
- 
- /*inistring dstr_2074__ADD2OUT_CCOMSTRI*/
- /*_.VALSTR___V2080*/ curfptr[2079] = (void*)&cdat->dstr_2074__ADD2OUT_CCOMSTRI;
-  cdat->dstr_2074__ADD2OUT_CCOMSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2074__ADD2OUT_CCOMSTRI.val, "ADD2OUT_CCOMSTRING", sizeof(cdat->dstr_2074__ADD2OUT_CCOMSTRI.val)-1);
+ /*iniobj dobj_2071*/
+ if (!/*_.VALDATA___V2076*/ curfptr[2075]) /*_.VALDATA___V2076*/ curfptr[2075] = (void*)&cdat->dobj_2071;
+  melt_assertmsg("iniobj checkdiscr dobj_2071", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2071.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2071.obj_num = 1;
+  cdat->dobj_2071.obj_hash = 844027322;
+  cdat->dobj_2071.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2071));
+ 
+ /*inistring dstr_2072__meltgc_add_out_c*/
+ /*_.VALSTR___V2078*/ curfptr[2077] = (void*)&cdat->dstr_2072__meltgc_add_out_c;
+  cdat->dstr_2072__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2072__meltgc_add_out_c.val, "meltgc_add_out_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_2072__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2073__melt_string_s*/
+ /*_.VALSTR___V2079*/ curfptr[2078] = (void*)&cdat->dstr_2073__melt_string_s;
+  cdat->dstr_2073__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2073__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2073__melt_string_s.val)-1);
+ 
+ /*inistring dstr_2074__*/
+ /*_.VALSTR___V2080*/ curfptr[2079] = (void*)&cdat->dstr_2074__;
+  cdat->dstr_2074__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2074__.val, ")))", sizeof(cdat->dstr_2074__.val)-1);
+ 
+ /*inistring dstr_2075__ADD2OUT_CCOMSTRI*/
+ /*_.VALSTR___V2074*/ curfptr[2073] = (void*)&cdat->dstr_2075__ADD2OUT_CCOMSTRI;
+  cdat->dstr_2075__ADD2OUT_CCOMSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2075__ADD2OUT_CCOMSTRI.val, "ADD2OUT_CCOMSTRING", sizeof(cdat->dstr_2075__ADD2OUT_CCOMSTRI.val)-1);
+ 
+ /*iniobj dsym_2076__ADD2OUT_CCOMSTRBUF*/
+ if (!/*_.VALDATA___V2082*/ curfptr[2081]) /*_.VALDATA___V2082*/ curfptr[2081] = (void*)&cdat->dsym_2076__ADD2OUT_CCOMSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_2076__ADD2OUT_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2076__ADD2OUT_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2076__ADD2OUT_CCOMSTRBUF.obj_hash = 188407821;
+  cdat->dsym_2076__ADD2OUT_CCOMSTRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2076__ADD2OUT_CCOMSTRBUF));
+ 
+ /*inistring dstr_2077__ADD2OUT_CCOMSTRB*/
+ /*_.VALSTR___V2083*/ curfptr[2082] = (void*)&cdat->dstr_2077__ADD2OUT_CCOMSTRB;
+  cdat->dstr_2077__ADD2OUT_CCOMSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2077__ADD2OUT_CCOMSTRB.val, "ADD2OUT_CCOMSTRBUF", sizeof(cdat->dstr_2077__ADD2OUT_CCOMSTRB.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ iniobj");
- /*iniobj dobj_2075__ADD2OUT_CCOMSTRING*/
- if (!/*_.VALDATA___V2081*/ curfptr[2080]) /*_.VALDATA___V2081*/ curfptr[2080] = (void*)&cdat->dobj_2075__ADD2OUT_CCOMSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2075__ADD2OUT_CCOMSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2075__ADD2OUT_CCOMSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2075__ADD2OUT_CCOMSTRING.obj_hash = 292277819;
-  cdat->dobj_2075__ADD2OUT_CCOMSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2075__ADD2OUT_CCOMSTRING));
- 
- /*inimult dtup_2076__ADD2OUT_CCOMSTRING*/
- /*_.VALTUP___V2089*/ curfptr[2088] = (void*)&cdat->dtup_2076__ADD2OUT_CCOMSTRING;
-  cdat->dtup_2076__ADD2OUT_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2076__ADD2OUT_CCOMSTRING.nbval = 5;
- /*inimult dtup_2077__ADD2OUT_CCOMSTRING*/
- /*_.VALTUP___V2085*/ curfptr[2084] = (void*)&cdat->dtup_2077__ADD2OUT_CCOMSTRING;
-  cdat->dtup_2077__ADD2OUT_CCOMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2077__ADD2OUT_CCOMSTRING.nbval = 2;
+ /*iniobj dobj_2078__ADD2OUT_CCOMSTRBUF*/
+ if (!/*_.VALDATA___V2084*/ curfptr[2083]) /*_.VALDATA___V2084*/ curfptr[2083] = (void*)&cdat->dobj_2078__ADD2OUT_CCOMSTRBUF;
+  melt_assertmsg("iniobj checkdiscr dobj_2078__ADD2OUT_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2078__ADD2OUT_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2078__ADD2OUT_CCOMSTRBUF.obj_hash = 850150840;
+  cdat->dobj_2078__ADD2OUT_CCOMSTRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2078__ADD2OUT_CCOMSTRBUF));
+ 
+ /*inimult dtup_2079__ADD2OUT_CCOMSTRBUF*/
+ /*_.VALTUP___V2092*/ curfptr[2091] = (void*)&cdat->dtup_2079__ADD2OUT_CCOMSTRBUF;
+  cdat->dtup_2079__ADD2OUT_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2079__ADD2OUT_CCOMSTRBUF.nbval = 5;
+ /*inimult dtup_2080__ADD2OUT_CCOMSTRBUF*/
+ /*_.VALTUP___V2088*/ curfptr[2087] = (void*)&cdat->dtup_2080__ADD2OUT_CCOMSTRBUF;
+  cdat->dtup_2080__ADD2OUT_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2080__ADD2OUT_CCOMSTRBUF.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1242:/ iniobj");
- /*iniobj dobj_2078*/
- if (!/*_.VALDATA___V2083*/ curfptr[2082]) /*_.VALDATA___V2083*/ curfptr[2082] = (void*)&cdat->dobj_2078;
-  melt_assertmsg("iniobj checkdiscr dobj_2078", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2078.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2078.obj_num = 0;
-  cdat->dobj_2078.obj_hash = 274777670;
-  cdat->dobj_2078.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2078));
+ /*iniobj dobj_2081*/
+ if (!/*_.VALDATA___V2086*/ curfptr[2085]) /*_.VALDATA___V2086*/ curfptr[2085] = (void*)&cdat->dobj_2081;
+  melt_assertmsg("iniobj checkdiscr dobj_2081", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2081.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2081.obj_num = 0;
+  cdat->dobj_2081.obj_hash = 903250267;
+  cdat->dobj_2081.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2081));
  
  MELT_LOCATION("warmelt-first.melt:1242:/ iniobj");
- /*iniobj dobj_2079*/
- if (!/*_.VALDATA___V2084*/ curfptr[2083]) /*_.VALDATA___V2084*/ curfptr[2083] = (void*)&cdat->dobj_2079;
-  melt_assertmsg("iniobj checkdiscr dobj_2079", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2079.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2079.obj_num = 1;
-  cdat->dobj_2079.obj_hash = 511563965;
-  cdat->dobj_2079.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2079));
- 
- /*inistring dstr_2080__meltgc_add_out_c*/
- /*_.VALSTR___V2086*/ curfptr[2085] = (void*)&cdat->dstr_2080__meltgc_add_out_c;
-  cdat->dstr_2080__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2080__meltgc_add_out_c.val, "meltgc_add_out_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_2080__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2081__melt_string_s*/
- /*_.VALSTR___V2087*/ curfptr[2086] = (void*)&cdat->dstr_2081__melt_string_s;
-  cdat->dstr_2081__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2081__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2081__melt_string_s.val)-1);
- 
- /*inistring dstr_2082__*/
- /*_.VALSTR___V2088*/ curfptr[2087] = (void*)&cdat->dstr_2082__;
-  cdat->dstr_2082__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2082__.val, ")))", sizeof(cdat->dstr_2082__.val)-1);
- 
- /*inistring dstr_2083__ADD2OUT_CCOMSTRI*/
- /*_.VALSTR___V2082*/ curfptr[2081] = (void*)&cdat->dstr_2083__ADD2OUT_CCOMSTRI;
-  cdat->dstr_2083__ADD2OUT_CCOMSTRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2083__ADD2OUT_CCOMSTRI.val, "ADD2OUT_CCOMSTRING", sizeof(cdat->dstr_2083__ADD2OUT_CCOMSTRI.val)-1);
- 
- /*iniobj dsym_2084__ADD2OUT_CCOMSTRBUF*/
- if (!/*_.VALDATA___V2090*/ curfptr[2089]) /*_.VALDATA___V2090*/ curfptr[2089] = (void*)&cdat->dsym_2084__ADD2OUT_CCOMSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_2084__ADD2OUT_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2084__ADD2OUT_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2084__ADD2OUT_CCOMSTRBUF.obj_hash = 188407821;
-  cdat->dsym_2084__ADD2OUT_CCOMSTRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2084__ADD2OUT_CCOMSTRBUF));
- 
- /*inistring dstr_2085__ADD2OUT_CCOMSTRB*/
- /*_.VALSTR___V2091*/ curfptr[2090] = (void*)&cdat->dstr_2085__ADD2OUT_CCOMSTRB;
-  cdat->dstr_2085__ADD2OUT_CCOMSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2085__ADD2OUT_CCOMSTRB.val, "ADD2OUT_CCOMSTRBUF", sizeof(cdat->dstr_2085__ADD2OUT_CCOMSTRB.val)-1);
+ /*iniobj dobj_2082*/
+ if (!/*_.VALDATA___V2087*/ curfptr[2086]) /*_.VALDATA___V2087*/ curfptr[2086] = (void*)&cdat->dobj_2082;
+  melt_assertmsg("iniobj checkdiscr dobj_2082", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2082.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2082.obj_num = 1;
+  cdat->dobj_2082.obj_hash = 214822208;
+  cdat->dobj_2082.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2082));
+ 
+ /*inistring dstr_2083__meltgc_add_out_c*/
+ /*_.VALSTR___V2089*/ curfptr[2088] = (void*)&cdat->dstr_2083__meltgc_add_out_c;
+  cdat->dstr_2083__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2083__meltgc_add_out_c.val, "meltgc_add_out_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_2083__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2084__melt_out_str_*/
+ /*_.VALSTR___V2090*/ curfptr[2089] = (void*)&cdat->dstr_2084__melt_out_str_;
+  cdat->dstr_2084__melt_out_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2084__melt_out_str_.val, "), melt_out_str((melt_ptr_t)(", sizeof(cdat->dstr_2084__melt_out_str_.val)-1);
+ 
+ /*inistring dstr_2085__*/
+ /*_.VALSTR___V2091*/ curfptr[2090] = (void*)&cdat->dstr_2085__;
+  cdat->dstr_2085__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2085__.val, ")))", sizeof(cdat->dstr_2085__.val)-1);
+ 
+ /*inistring dstr_2086__ADD2OUT_CCOMSTRB*/
+ /*_.VALSTR___V2085*/ curfptr[2084] = (void*)&cdat->dstr_2086__ADD2OUT_CCOMSTRB;
+  cdat->dstr_2086__ADD2OUT_CCOMSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2086__ADD2OUT_CCOMSTRB.val, "ADD2OUT_CCOMSTRBUF", sizeof(cdat->dstr_2086__ADD2OUT_CCOMSTRB.val)-1);
+ 
+ /*iniobj dsym_2087__ADD2OUT_CCOMCONST*/
+ if (!/*_.VALDATA___V2093*/ curfptr[2092]) /*_.VALDATA___V2093*/ curfptr[2092] = (void*)&cdat->dsym_2087__ADD2OUT_CCOMCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_2087__ADD2OUT_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2087__ADD2OUT_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2087__ADD2OUT_CCOMCONST.obj_hash = 909236249;
+  cdat->dsym_2087__ADD2OUT_CCOMCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2087__ADD2OUT_CCOMCONST));
+ 
+ /*inistring dstr_2088__ADD2OUT_CCOMCONS*/
+ /*_.VALSTR___V2094*/ curfptr[2093] = (void*)&cdat->dstr_2088__ADD2OUT_CCOMCONS;
+  cdat->dstr_2088__ADD2OUT_CCOMCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2088__ADD2OUT_CCOMCONS.val, "ADD2OUT_CCOMCONST", sizeof(cdat->dstr_2088__ADD2OUT_CCOMCONS.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ iniobj");
- /*iniobj dobj_2086__ADD2OUT_CCOMSTRBUF*/
- if (!/*_.VALDATA___V2092*/ curfptr[2091]) /*_.VALDATA___V2092*/ curfptr[2091] = (void*)&cdat->dobj_2086__ADD2OUT_CCOMSTRBUF;
-  melt_assertmsg("iniobj checkdiscr dobj_2086__ADD2OUT_CCOMSTRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2086__ADD2OUT_CCOMSTRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2086__ADD2OUT_CCOMSTRBUF.obj_hash = 289616309;
-  cdat->dobj_2086__ADD2OUT_CCOMSTRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2086__ADD2OUT_CCOMSTRBUF));
- 
- /*inimult dtup_2087__ADD2OUT_CCOMSTRBUF*/
- /*_.VALTUP___V2100*/ curfptr[2099] = (void*)&cdat->dtup_2087__ADD2OUT_CCOMSTRBUF;
-  cdat->dtup_2087__ADD2OUT_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2087__ADD2OUT_CCOMSTRBUF.nbval = 5;
- /*inimult dtup_2088__ADD2OUT_CCOMSTRBUF*/
- /*_.VALTUP___V2096*/ curfptr[2095] = (void*)&cdat->dtup_2088__ADD2OUT_CCOMSTRBUF;
-  cdat->dtup_2088__ADD2OUT_CCOMSTRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2088__ADD2OUT_CCOMSTRBUF.nbval = 2;
+ /*iniobj dobj_2089__ADD2OUT_CCOMCONST*/
+ if (!/*_.VALDATA___V2095*/ curfptr[2094]) /*_.VALDATA___V2095*/ curfptr[2094] = (void*)&cdat->dobj_2089__ADD2OUT_CCOMCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_2089__ADD2OUT_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2089__ADD2OUT_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2089__ADD2OUT_CCOMCONST.obj_hash = 851727381;
+  cdat->dobj_2089__ADD2OUT_CCOMCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2089__ADD2OUT_CCOMCONST));
+ 
+ /*inimult dtup_2090__ADD2OUT_CCOMCONST*/
+ /*_.VALTUP___V2103*/ curfptr[2102] = (void*)&cdat->dtup_2090__ADD2OUT_CCOMCONST;
+  cdat->dtup_2090__ADD2OUT_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2090__ADD2OUT_CCOMCONST.nbval = 5;
+ /*inimult dtup_2091__ADD2OUT_CCOMCONST*/
+ /*_.VALTUP___V2099*/ curfptr[2098] = (void*)&cdat->dtup_2091__ADD2OUT_CCOMCONST;
+  cdat->dtup_2091__ADD2OUT_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2091__ADD2OUT_CCOMCONST.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1247:/ iniobj");
- /*iniobj dobj_2089*/
- if (!/*_.VALDATA___V2094*/ curfptr[2093]) /*_.VALDATA___V2094*/ curfptr[2093] = (void*)&cdat->dobj_2089;
-  melt_assertmsg("iniobj checkdiscr dobj_2089", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2089.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2089.obj_num = 0;
-  cdat->dobj_2089.obj_hash = 931418405;
-  cdat->dobj_2089.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2089));
+ /*iniobj dobj_2092*/
+ if (!/*_.VALDATA___V2097*/ curfptr[2096]) /*_.VALDATA___V2097*/ curfptr[2096] = (void*)&cdat->dobj_2092;
+  melt_assertmsg("iniobj checkdiscr dobj_2092", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2092.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2092.obj_num = 0;
+  cdat->dobj_2092.obj_hash = 514689712;
+  cdat->dobj_2092.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2092));
  
  MELT_LOCATION("warmelt-first.melt:1247:/ iniobj");
- /*iniobj dobj_2090*/
- if (!/*_.VALDATA___V2095*/ curfptr[2094]) /*_.VALDATA___V2095*/ curfptr[2094] = (void*)&cdat->dobj_2090;
-  melt_assertmsg("iniobj checkdiscr dobj_2090", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2090.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2090.obj_num = 1;
-  cdat->dobj_2090.obj_hash = 1025380897;
-  cdat->dobj_2090.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2090));
- 
- /*inistring dstr_2091__meltgc_add_out_c*/
- /*_.VALSTR___V2097*/ curfptr[2096] = (void*)&cdat->dstr_2091__meltgc_add_out_c;
-  cdat->dstr_2091__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2091__meltgc_add_out_c.val, "meltgc_add_out_ccomment((melt_ptr_t)(", sizeof(cdat->dstr_2091__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2092__melt_out_str_*/
- /*_.VALSTR___V2098*/ curfptr[2097] = (void*)&cdat->dstr_2092__melt_out_str_;
-  cdat->dstr_2092__melt_out_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2092__melt_out_str_.val, "), melt_out_str((melt_ptr_t)(", sizeof(cdat->dstr_2092__melt_out_str_.val)-1);
- 
- /*inistring dstr_2093__*/
- /*_.VALSTR___V2099*/ curfptr[2098] = (void*)&cdat->dstr_2093__;
-  cdat->dstr_2093__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2093__.val, ")))", sizeof(cdat->dstr_2093__.val)-1);
- 
- /*inistring dstr_2094__ADD2OUT_CCOMSTRB*/
- /*_.VALSTR___V2093*/ curfptr[2092] = (void*)&cdat->dstr_2094__ADD2OUT_CCOMSTRB;
-  cdat->dstr_2094__ADD2OUT_CCOMSTRB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2094__ADD2OUT_CCOMSTRB.val, "ADD2OUT_CCOMSTRBUF", sizeof(cdat->dstr_2094__ADD2OUT_CCOMSTRB.val)-1);
- 
- /*iniobj dsym_2095__ADD2OUT_CCOMCONST*/
- if (!/*_.VALDATA___V2101*/ curfptr[2100]) /*_.VALDATA___V2101*/ curfptr[2100] = (void*)&cdat->dsym_2095__ADD2OUT_CCOMCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_2095__ADD2OUT_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2095__ADD2OUT_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2095__ADD2OUT_CCOMCONST.obj_hash = 909236249;
-  cdat->dsym_2095__ADD2OUT_CCOMCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2095__ADD2OUT_CCOMCONST));
- 
- /*inistring dstr_2096__ADD2OUT_CCOMCONS*/
- /*_.VALSTR___V2102*/ curfptr[2101] = (void*)&cdat->dstr_2096__ADD2OUT_CCOMCONS;
-  cdat->dstr_2096__ADD2OUT_CCOMCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2096__ADD2OUT_CCOMCONS.val, "ADD2OUT_CCOMCONST", sizeof(cdat->dstr_2096__ADD2OUT_CCOMCONS.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1252:/ iniobj");
- /*iniobj dobj_2097__ADD2OUT_CCOMCONST*/
- if (!/*_.VALDATA___V2103*/ curfptr[2102]) /*_.VALDATA___V2103*/ curfptr[2102] = (void*)&cdat->dobj_2097__ADD2OUT_CCOMCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_2097__ADD2OUT_CCOMCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2097__ADD2OUT_CCOMCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2097__ADD2OUT_CCOMCONST.obj_hash = 923398052;
-  cdat->dobj_2097__ADD2OUT_CCOMCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2097__ADD2OUT_CCOMCONST));
- 
- /*inimult dtup_2098__ADD2OUT_CCOMCONST*/
- /*_.VALTUP___V2111*/ curfptr[2110] = (void*)&cdat->dtup_2098__ADD2OUT_CCOMCONST;
-  cdat->dtup_2098__ADD2OUT_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2098__ADD2OUT_CCOMCONST.nbval = 5;
- /*inimult dtup_2099__ADD2OUT_CCOMCONST*/
- /*_.VALTUP___V2107*/ curfptr[2106] = (void*)&cdat->dtup_2099__ADD2OUT_CCOMCONST;
-  cdat->dtup_2099__ADD2OUT_CCOMCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2099__ADD2OUT_CCOMCONST.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1252:/ iniobj");
- /*iniobj dobj_2100*/
- if (!/*_.VALDATA___V2105*/ curfptr[2104]) /*_.VALDATA___V2105*/ curfptr[2104] = (void*)&cdat->dobj_2100;
-  melt_assertmsg("iniobj checkdiscr dobj_2100", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2100.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2100.obj_num = 0;
-  cdat->dobj_2100.obj_hash = 458613646;
-  cdat->dobj_2100.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2100));
- 
- MELT_LOCATION("warmelt-first.melt:1252:/ iniobj");
- /*iniobj dobj_2101*/
- if (!/*_.VALDATA___V2106*/ curfptr[2105]) /*_.VALDATA___V2106*/ curfptr[2105] = (void*)&cdat->dobj_2101;
-  melt_assertmsg("iniobj checkdiscr dobj_2101", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2101.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2101.obj_num = 1;
-  cdat->dobj_2101.obj_hash = 317613363;
-  cdat->dobj_2101.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2101));
- 
- /*inistring dstr_2102__meltgc_add_out_c*/
- /*_.VALSTR___V2108*/ curfptr[2107] = (void*)&cdat->dstr_2102__meltgc_add_out_c;
-  cdat->dstr_2102__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2102__meltgc_add_out_c.val, "meltgc_add_out_ccomment((", sizeof(cdat->dstr_2102__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2103__*/
- /*_.VALSTR___V2109*/ curfptr[2108] = (void*)&cdat->dstr_2103__;
-  cdat->dstr_2103__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2103__.val, "), ", sizeof(cdat->dstr_2103__.val)-1);
- 
- /*inistring dstr_2104__*/
- /*_.VALSTR___V2110*/ curfptr[2109] = (void*)&cdat->dstr_2104__;
-  cdat->dstr_2104__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2104__.val, ")", sizeof(cdat->dstr_2104__.val)-1);
- 
- /*inistring dstr_2105__ADD2OUT_CCOMCONS*/
- /*_.VALSTR___V2104*/ curfptr[2103] = (void*)&cdat->dstr_2105__ADD2OUT_CCOMCONS;
-  cdat->dstr_2105__ADD2OUT_CCOMCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2105__ADD2OUT_CCOMCONS.val, "ADD2OUT_CCOMCONST", sizeof(cdat->dstr_2105__ADD2OUT_CCOMCONS.val)-1);
- 
- /*iniobj dsym_2106__ADD2OUT_CIDENT*/
- if (!/*_.VALDATA___V2112*/ curfptr[2111]) /*_.VALDATA___V2112*/ curfptr[2111] = (void*)&cdat->dsym_2106__ADD2OUT_CIDENT;
-  melt_assertmsg("iniobj checkdiscr dsym_2106__ADD2OUT_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2106__ADD2OUT_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2106__ADD2OUT_CIDENT.obj_hash = 814562778;
-  cdat->dsym_2106__ADD2OUT_CIDENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2106__ADD2OUT_CIDENT));
- 
- /*inistring dstr_2107__ADD2OUT_CIDENT*/
- /*_.VALSTR___V2113*/ curfptr[2112] = (void*)&cdat->dstr_2107__ADD2OUT_CIDENT;
-  cdat->dstr_2107__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2107__ADD2OUT_CIDENT.val, "ADD2OUT_CIDENT", sizeof(cdat->dstr_2107__ADD2OUT_CIDENT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1258:/ iniobj");
- /*iniobj dobj_2108__ADD2OUT_CIDENT*/
- if (!/*_.VALDATA___V2114*/ curfptr[2113]) /*_.VALDATA___V2114*/ curfptr[2113] = (void*)&cdat->dobj_2108__ADD2OUT_CIDENT;
-  melt_assertmsg("iniobj checkdiscr dobj_2108__ADD2OUT_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2108__ADD2OUT_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2108__ADD2OUT_CIDENT.obj_hash = 857393945;
-  cdat->dobj_2108__ADD2OUT_CIDENT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2108__ADD2OUT_CIDENT));
- 
- /*inimult dtup_2109__ADD2OUT_CIDENT*/
- /*_.VALTUP___V2122*/ curfptr[2121] = (void*)&cdat->dtup_2109__ADD2OUT_CIDENT;
-  cdat->dtup_2109__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2109__ADD2OUT_CIDENT.nbval = 5;
- /*inimult dtup_2110__ADD2OUT_CIDENT*/
- /*_.VALTUP___V2118*/ curfptr[2117] = (void*)&cdat->dtup_2110__ADD2OUT_CIDENT;
-  cdat->dtup_2110__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2110__ADD2OUT_CIDENT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1258:/ iniobj");
- /*iniobj dobj_2111*/
- if (!/*_.VALDATA___V2116*/ curfptr[2115]) /*_.VALDATA___V2116*/ curfptr[2115] = (void*)&cdat->dobj_2111;
-  melt_assertmsg("iniobj checkdiscr dobj_2111", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2111.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2111.obj_num = 0;
-  cdat->dobj_2111.obj_hash = 1049765614;
-  cdat->dobj_2111.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2111));
- 
- MELT_LOCATION("warmelt-first.melt:1258:/ iniobj");
- /*iniobj dobj_2112*/
- if (!/*_.VALDATA___V2117*/ curfptr[2116]) /*_.VALDATA___V2117*/ curfptr[2116] = (void*)&cdat->dobj_2112;
-  melt_assertmsg("iniobj checkdiscr dobj_2112", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2112.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2112.obj_num = 1;
-  cdat->dobj_2112.obj_hash = 900152034;
-  cdat->dobj_2112.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2112));
- 
- /*inistring dstr_2113__meltgc_add_out_c*/
- /*_.VALSTR___V2119*/ curfptr[2118] = (void*)&cdat->dstr_2113__meltgc_add_out_c;
-  cdat->dstr_2113__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2113__meltgc_add_out_c.val, "meltgc_add_out_cident((melt_ptr_t)(", sizeof(cdat->dstr_2113__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2114__melt_st*/
- /*_.VALSTR___V2120*/ curfptr[2119] = (void*)&cdat->dstr_2114__melt_st;
-  cdat->dstr_2114__melt_st.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2114__melt_st.val, "), \n\t\t\t  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2114__melt_st.val)-1);
- 
- /*inistring dstr_2115__*/
- /*_.VALSTR___V2121*/ curfptr[2120] = (void*)&cdat->dstr_2115__;
-  cdat->dstr_2115__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2115__.val, ")))", sizeof(cdat->dstr_2115__.val)-1);
- 
- /*inistring dstr_2116__ADD2OUT_CIDENT*/
- /*_.VALSTR___V2115*/ curfptr[2114] = (void*)&cdat->dstr_2116__ADD2OUT_CIDENT;
-  cdat->dstr_2116__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2116__ADD2OUT_CIDENT.val, "ADD2OUT_CIDENT", sizeof(cdat->dstr_2116__ADD2OUT_CIDENT.val)-1);
- 
- /*iniobj dsym_2117__ADD2OUT_CIDENTPREFIX*/
- if (!/*_.VALDATA___V2123*/ curfptr[2122]) /*_.VALDATA___V2123*/ curfptr[2122] = (void*)&cdat->dsym_2117__ADD2OUT_CIDENTPREFIX;
-  melt_assertmsg("iniobj checkdiscr dsym_2117__ADD2OUT_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2117__ADD2OUT_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2117__ADD2OUT_CIDENTPREFIX.obj_hash = 470334497;
-  cdat->dsym_2117__ADD2OUT_CIDENTPREFIX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2117__ADD2OUT_CIDENTPREFIX));
- 
- /*inistring dstr_2118__ADD2OUT_CIDENTPR*/
- /*_.VALSTR___V2124*/ curfptr[2123] = (void*)&cdat->dstr_2118__ADD2OUT_CIDENTPR;
-  cdat->dstr_2118__ADD2OUT_CIDENTPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2118__ADD2OUT_CIDENTPR.val, "ADD2OUT_CIDENTPREFIX", sizeof(cdat->dstr_2118__ADD2OUT_CIDENTPR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1266:/ iniobj");
- /*iniobj dobj_2119__ADD2OUT_CIDENTPREFIX*/
- if (!/*_.VALDATA___V2125*/ curfptr[2124]) /*_.VALDATA___V2125*/ curfptr[2124] = (void*)&cdat->dobj_2119__ADD2OUT_CIDENTPREFIX;
-  melt_assertmsg("iniobj checkdiscr dobj_2119__ADD2OUT_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2119__ADD2OUT_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2119__ADD2OUT_CIDENTPREFIX.obj_hash = 651925045;
-  cdat->dobj_2119__ADD2OUT_CIDENTPREFIX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2119__ADD2OUT_CIDENTPREFIX));
- 
- /*inimult dtup_2120__ADD2OUT_CIDENTPREFIX*/
- /*_.VALTUP___V2135*/ curfptr[2134] = (void*)&cdat->dtup_2120__ADD2OUT_CIDENTPREFIX;
-  cdat->dtup_2120__ADD2OUT_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2120__ADD2OUT_CIDENTPREFIX.nbval = 7;
- /*inimult dtup_2121__ADD2OUT_CIDENTPREFIX*/
- /*_.VALTUP___V2130*/ curfptr[2129] = (void*)&cdat->dtup_2121__ADD2OUT_CIDENTPREFIX;
-  cdat->dtup_2121__ADD2OUT_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2121__ADD2OUT_CIDENTPREFIX.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1266:/ iniobj");
- /*iniobj dobj_2122*/
- if (!/*_.VALDATA___V2127*/ curfptr[2126]) /*_.VALDATA___V2127*/ curfptr[2126] = (void*)&cdat->dobj_2122;
-  melt_assertmsg("iniobj checkdiscr dobj_2122", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2122.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2122.obj_num = 0;
-  cdat->dobj_2122.obj_hash = 914677831;
-  cdat->dobj_2122.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2122));
- 
- MELT_LOCATION("warmelt-first.melt:1266:/ iniobj");
- /*iniobj dobj_2123*/
- if (!/*_.VALDATA___V2128*/ curfptr[2127]) /*_.VALDATA___V2128*/ curfptr[2127] = (void*)&cdat->dobj_2123;
-  melt_assertmsg("iniobj checkdiscr dobj_2123", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2123.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2123.obj_num = 1;
-  cdat->dobj_2123.obj_hash = 724473226;
-  cdat->dobj_2123.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2123));
- 
- MELT_LOCATION("warmelt-first.melt:1266:/ iniobj");
- /*iniobj dobj_2124*/
- if (!/*_.VALDATA___V2129*/ curfptr[2128]) /*_.VALDATA___V2129*/ curfptr[2128] = (void*)&cdat->dobj_2124;
-  melt_assertmsg("iniobj checkdiscr dobj_2124", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2124.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2124.obj_num = 2;
-  cdat->dobj_2124.obj_hash = 357833533;
-  cdat->dobj_2124.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2124));
- 
- /*inistring dstr_2125__meltgc_add_out_c*/
- /*_.VALSTR___V2131*/ curfptr[2130] = (void*)&cdat->dstr_2125__meltgc_add_out_c;
-  cdat->dstr_2125__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2125__meltgc_add_out_c.val, "meltgc_add_out_cidentprefix((melt_ptr_t)(", sizeof(cdat->dstr_2125__meltgc_add_out_c.val)-1);
- 
- /*inistring dstr_2126__melt_str*/
- /*_.VALSTR___V2132*/ curfptr[2131] = (void*)&cdat->dstr_2126__melt_str;
-  cdat->dstr_2126__melt_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2126__melt_str.val, "), \n\t\t\t\tmelt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2126__melt_str.val)-1);
- 
- /*inistring dstr_2127__*/
- /*_.VALSTR___V2133*/ curfptr[2132] = (void*)&cdat->dstr_2127__;
-  cdat->dstr_2127__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2127__.val, ")), \n\t\t\t\t(", sizeof(cdat->dstr_2127__.val)-1);
- 
- /*inistring dstr_2128__*/
- /*_.VALSTR___V2134*/ curfptr[2133] = (void*)&cdat->dstr_2128__;
-  cdat->dstr_2128__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2128__.val, "))", sizeof(cdat->dstr_2128__.val)-1);
- 
- /*inistring dstr_2129__ADD2OUT_CIDENTPR*/
- /*_.VALSTR___V2126*/ curfptr[2125] = (void*)&cdat->dstr_2129__ADD2OUT_CIDENTPR;
-  cdat->dstr_2129__ADD2OUT_CIDENTPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2129__ADD2OUT_CIDENTPR.val, "ADD2OUT_CIDENTPREFIX", sizeof(cdat->dstr_2129__ADD2OUT_CIDENTPR.val)-1);
- 
- /*iniobj dsym_2130__ADD2OUT_LONGDEC*/
- if (!/*_.VALDATA___V2136*/ curfptr[2135]) /*_.VALDATA___V2136*/ curfptr[2135] = (void*)&cdat->dsym_2130__ADD2OUT_LONGDEC;
-  melt_assertmsg("iniobj checkdiscr dsym_2130__ADD2OUT_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2130__ADD2OUT_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2130__ADD2OUT_LONGDEC.obj_hash = 953606948;
-  cdat->dsym_2130__ADD2OUT_LONGDEC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2130__ADD2OUT_LONGDEC));
- 
- /*inistring dstr_2131__ADD2OUT_LONGDEC*/
- /*_.VALSTR___V2137*/ curfptr[2136] = (void*)&cdat->dstr_2131__ADD2OUT_LONGDEC;
-  cdat->dstr_2131__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2131__ADD2OUT_LONGDEC.val, "ADD2OUT_LONGDEC", sizeof(cdat->dstr_2131__ADD2OUT_LONGDEC.val)-1);
+ /*iniobj dobj_2093*/
+ if (!/*_.VALDATA___V2098*/ curfptr[2097]) /*_.VALDATA___V2098*/ curfptr[2097] = (void*)&cdat->dobj_2093;
+  melt_assertmsg("iniobj checkdiscr dobj_2093", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2093.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2093.obj_num = 1;
+  cdat->dobj_2093.obj_hash = 132838687;
+  cdat->dobj_2093.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2093));
+ 
+ /*inistring dstr_2094__meltgc_add_out_c*/
+ /*_.VALSTR___V2100*/ curfptr[2099] = (void*)&cdat->dstr_2094__meltgc_add_out_c;
+  cdat->dstr_2094__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2094__meltgc_add_out_c.val, "meltgc_add_out_ccomment((", sizeof(cdat->dstr_2094__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2095__*/
+ /*_.VALSTR___V2101*/ curfptr[2100] = (void*)&cdat->dstr_2095__;
+  cdat->dstr_2095__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2095__.val, "), ", sizeof(cdat->dstr_2095__.val)-1);
+ 
+ /*inistring dstr_2096__*/
+ /*_.VALSTR___V2102*/ curfptr[2101] = (void*)&cdat->dstr_2096__;
+  cdat->dstr_2096__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2096__.val, ")", sizeof(cdat->dstr_2096__.val)-1);
+ 
+ /*inistring dstr_2097__ADD2OUT_CCOMCONS*/
+ /*_.VALSTR___V2096*/ curfptr[2095] = (void*)&cdat->dstr_2097__ADD2OUT_CCOMCONS;
+  cdat->dstr_2097__ADD2OUT_CCOMCONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2097__ADD2OUT_CCOMCONS.val, "ADD2OUT_CCOMCONST", sizeof(cdat->dstr_2097__ADD2OUT_CCOMCONS.val)-1);
+ 
+ /*iniobj dsym_2098__ADD2OUT_CIDENT*/
+ if (!/*_.VALDATA___V2104*/ curfptr[2103]) /*_.VALDATA___V2104*/ curfptr[2103] = (void*)&cdat->dsym_2098__ADD2OUT_CIDENT;
+  melt_assertmsg("iniobj checkdiscr dsym_2098__ADD2OUT_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2098__ADD2OUT_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2098__ADD2OUT_CIDENT.obj_hash = 814562778;
+  cdat->dsym_2098__ADD2OUT_CIDENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2098__ADD2OUT_CIDENT));
+ 
+ /*inistring dstr_2099__ADD2OUT_CIDENT*/
+ /*_.VALSTR___V2105*/ curfptr[2104] = (void*)&cdat->dstr_2099__ADD2OUT_CIDENT;
+  cdat->dstr_2099__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2099__ADD2OUT_CIDENT.val, "ADD2OUT_CIDENT", sizeof(cdat->dstr_2099__ADD2OUT_CIDENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1253:/ iniobj");
+ /*iniobj dobj_2100__ADD2OUT_CIDENT*/
+ if (!/*_.VALDATA___V2106*/ curfptr[2105]) /*_.VALDATA___V2106*/ curfptr[2105] = (void*)&cdat->dobj_2100__ADD2OUT_CIDENT;
+  melt_assertmsg("iniobj checkdiscr dobj_2100__ADD2OUT_CIDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2100__ADD2OUT_CIDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2100__ADD2OUT_CIDENT.obj_hash = 72311982;
+  cdat->dobj_2100__ADD2OUT_CIDENT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2100__ADD2OUT_CIDENT));
+ 
+ /*inimult dtup_2101__ADD2OUT_CIDENT*/
+ /*_.VALTUP___V2114*/ curfptr[2113] = (void*)&cdat->dtup_2101__ADD2OUT_CIDENT;
+  cdat->dtup_2101__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2101__ADD2OUT_CIDENT.nbval = 5;
+ /*inimult dtup_2102__ADD2OUT_CIDENT*/
+ /*_.VALTUP___V2110*/ curfptr[2109] = (void*)&cdat->dtup_2102__ADD2OUT_CIDENT;
+  cdat->dtup_2102__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2102__ADD2OUT_CIDENT.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1253:/ iniobj");
+ /*iniobj dobj_2103*/
+ if (!/*_.VALDATA___V2108*/ curfptr[2107]) /*_.VALDATA___V2108*/ curfptr[2107] = (void*)&cdat->dobj_2103;
+  melt_assertmsg("iniobj checkdiscr dobj_2103", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2103.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2103.obj_num = 0;
+  cdat->dobj_2103.obj_hash = 954491110;
+  cdat->dobj_2103.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2103));
+ 
+ MELT_LOCATION("warmelt-first.melt:1253:/ iniobj");
+ /*iniobj dobj_2104*/
+ if (!/*_.VALDATA___V2109*/ curfptr[2108]) /*_.VALDATA___V2109*/ curfptr[2108] = (void*)&cdat->dobj_2104;
+  melt_assertmsg("iniobj checkdiscr dobj_2104", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2104.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2104.obj_num = 1;
+  cdat->dobj_2104.obj_hash = 938394201;
+  cdat->dobj_2104.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2104));
+ 
+ /*inistring dstr_2105__meltgc_add_out_c*/
+ /*_.VALSTR___V2111*/ curfptr[2110] = (void*)&cdat->dstr_2105__meltgc_add_out_c;
+  cdat->dstr_2105__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2105__meltgc_add_out_c.val, "meltgc_add_out_cident((melt_ptr_t)(", sizeof(cdat->dstr_2105__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2106__melt_st*/
+ /*_.VALSTR___V2112*/ curfptr[2111] = (void*)&cdat->dstr_2106__melt_st;
+  cdat->dstr_2106__melt_st.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2106__melt_st.val, "), \n\t\t\t  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2106__melt_st.val)-1);
+ 
+ /*inistring dstr_2107__*/
+ /*_.VALSTR___V2113*/ curfptr[2112] = (void*)&cdat->dstr_2107__;
+  cdat->dstr_2107__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2107__.val, ")))", sizeof(cdat->dstr_2107__.val)-1);
+ 
+ /*inistring dstr_2108__ADD2OUT_CIDENT*/
+ /*_.VALSTR___V2107*/ curfptr[2106] = (void*)&cdat->dstr_2108__ADD2OUT_CIDENT;
+  cdat->dstr_2108__ADD2OUT_CIDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2108__ADD2OUT_CIDENT.val, "ADD2OUT_CIDENT", sizeof(cdat->dstr_2108__ADD2OUT_CIDENT.val)-1);
+ 
+ /*iniobj dsym_2109__ADD2OUT_CIDENTPREFIX*/
+ if (!/*_.VALDATA___V2115*/ curfptr[2114]) /*_.VALDATA___V2115*/ curfptr[2114] = (void*)&cdat->dsym_2109__ADD2OUT_CIDENTPREFIX;
+  melt_assertmsg("iniobj checkdiscr dsym_2109__ADD2OUT_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2109__ADD2OUT_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2109__ADD2OUT_CIDENTPREFIX.obj_hash = 470334497;
+  cdat->dsym_2109__ADD2OUT_CIDENTPREFIX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2109__ADD2OUT_CIDENTPREFIX));
+ 
+ /*inistring dstr_2110__ADD2OUT_CIDENTPR*/
+ /*_.VALSTR___V2116*/ curfptr[2115] = (void*)&cdat->dstr_2110__ADD2OUT_CIDENTPR;
+  cdat->dstr_2110__ADD2OUT_CIDENTPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2110__ADD2OUT_CIDENTPR.val, "ADD2OUT_CIDENTPREFIX", sizeof(cdat->dstr_2110__ADD2OUT_CIDENTPR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1261:/ iniobj");
+ /*iniobj dobj_2111__ADD2OUT_CIDENTPREFIX*/
+ if (!/*_.VALDATA___V2117*/ curfptr[2116]) /*_.VALDATA___V2117*/ curfptr[2116] = (void*)&cdat->dobj_2111__ADD2OUT_CIDENTPREFIX;
+  melt_assertmsg("iniobj checkdiscr dobj_2111__ADD2OUT_CIDENTPREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2111__ADD2OUT_CIDENTPREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2111__ADD2OUT_CIDENTPREFIX.obj_hash = 981841480;
+  cdat->dobj_2111__ADD2OUT_CIDENTPREFIX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2111__ADD2OUT_CIDENTPREFIX));
+ 
+ /*inimult dtup_2112__ADD2OUT_CIDENTPREFIX*/
+ /*_.VALTUP___V2127*/ curfptr[2126] = (void*)&cdat->dtup_2112__ADD2OUT_CIDENTPREFIX;
+  cdat->dtup_2112__ADD2OUT_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2112__ADD2OUT_CIDENTPREFIX.nbval = 7;
+ /*inimult dtup_2113__ADD2OUT_CIDENTPREFIX*/
+ /*_.VALTUP___V2122*/ curfptr[2121] = (void*)&cdat->dtup_2113__ADD2OUT_CIDENTPREFIX;
+  cdat->dtup_2113__ADD2OUT_CIDENTPREFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2113__ADD2OUT_CIDENTPREFIX.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1261:/ iniobj");
+ /*iniobj dobj_2114*/
+ if (!/*_.VALDATA___V2119*/ curfptr[2118]) /*_.VALDATA___V2119*/ curfptr[2118] = (void*)&cdat->dobj_2114;
+  melt_assertmsg("iniobj checkdiscr dobj_2114", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2114.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2114.obj_num = 0;
+  cdat->dobj_2114.obj_hash = 895258402;
+  cdat->dobj_2114.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2114));
+ 
+ MELT_LOCATION("warmelt-first.melt:1261:/ iniobj");
+ /*iniobj dobj_2115*/
+ if (!/*_.VALDATA___V2120*/ curfptr[2119]) /*_.VALDATA___V2120*/ curfptr[2119] = (void*)&cdat->dobj_2115;
+  melt_assertmsg("iniobj checkdiscr dobj_2115", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2115.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2115.obj_num = 1;
+  cdat->dobj_2115.obj_hash = 533285472;
+  cdat->dobj_2115.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2115));
+ 
+ MELT_LOCATION("warmelt-first.melt:1261:/ iniobj");
+ /*iniobj dobj_2116*/
+ if (!/*_.VALDATA___V2121*/ curfptr[2120]) /*_.VALDATA___V2121*/ curfptr[2120] = (void*)&cdat->dobj_2116;
+  melt_assertmsg("iniobj checkdiscr dobj_2116", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2116.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2116.obj_num = 2;
+  cdat->dobj_2116.obj_hash = 768556810;
+  cdat->dobj_2116.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2116));
+ 
+ /*inistring dstr_2117__meltgc_add_out_c*/
+ /*_.VALSTR___V2123*/ curfptr[2122] = (void*)&cdat->dstr_2117__meltgc_add_out_c;
+  cdat->dstr_2117__meltgc_add_out_c.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2117__meltgc_add_out_c.val, "meltgc_add_out_cidentprefix((melt_ptr_t)(", sizeof(cdat->dstr_2117__meltgc_add_out_c.val)-1);
+ 
+ /*inistring dstr_2118__melt_str*/
+ /*_.VALSTR___V2124*/ curfptr[2123] = (void*)&cdat->dstr_2118__melt_str;
+  cdat->dstr_2118__melt_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2118__melt_str.val, "), \n\t\t\t\tmelt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2118__melt_str.val)-1);
+ 
+ /*inistring dstr_2119__*/
+ /*_.VALSTR___V2125*/ curfptr[2124] = (void*)&cdat->dstr_2119__;
+  cdat->dstr_2119__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2119__.val, ")), \n\t\t\t\t(", sizeof(cdat->dstr_2119__.val)-1);
+ 
+ /*inistring dstr_2120__*/
+ /*_.VALSTR___V2126*/ curfptr[2125] = (void*)&cdat->dstr_2120__;
+  cdat->dstr_2120__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2120__.val, "))", sizeof(cdat->dstr_2120__.val)-1);
+ 
+ /*inistring dstr_2121__ADD2OUT_CIDENTPR*/
+ /*_.VALSTR___V2118*/ curfptr[2117] = (void*)&cdat->dstr_2121__ADD2OUT_CIDENTPR;
+  cdat->dstr_2121__ADD2OUT_CIDENTPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2121__ADD2OUT_CIDENTPR.val, "ADD2OUT_CIDENTPREFIX", sizeof(cdat->dstr_2121__ADD2OUT_CIDENTPR.val)-1);
+ 
+ /*iniobj dsym_2122__ADD2OUT_LONGDEC*/
+ if (!/*_.VALDATA___V2128*/ curfptr[2127]) /*_.VALDATA___V2128*/ curfptr[2127] = (void*)&cdat->dsym_2122__ADD2OUT_LONGDEC;
+  melt_assertmsg("iniobj checkdiscr dsym_2122__ADD2OUT_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2122__ADD2OUT_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2122__ADD2OUT_LONGDEC.obj_hash = 953606948;
+  cdat->dsym_2122__ADD2OUT_LONGDEC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2122__ADD2OUT_LONGDEC));
+ 
+ /*inistring dstr_2123__ADD2OUT_LONGDEC*/
+ /*_.VALSTR___V2129*/ curfptr[2128] = (void*)&cdat->dstr_2123__ADD2OUT_LONGDEC;
+  cdat->dstr_2123__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2123__ADD2OUT_LONGDEC.val, "ADD2OUT_LONGDEC", sizeof(cdat->dstr_2123__ADD2OUT_LONGDEC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1269:/ iniobj");
+ /*iniobj dobj_2124__ADD2OUT_LONGDEC*/
+ if (!/*_.VALDATA___V2130*/ curfptr[2129]) /*_.VALDATA___V2130*/ curfptr[2129] = (void*)&cdat->dobj_2124__ADD2OUT_LONGDEC;
+  melt_assertmsg("iniobj checkdiscr dobj_2124__ADD2OUT_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2124__ADD2OUT_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2124__ADD2OUT_LONGDEC.obj_hash = 474325251;
+  cdat->dobj_2124__ADD2OUT_LONGDEC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2124__ADD2OUT_LONGDEC));
+ 
+ /*inimult dtup_2125__ADD2OUT_LONGDEC*/
+ /*_.VALTUP___V2138*/ curfptr[2137] = (void*)&cdat->dtup_2125__ADD2OUT_LONGDEC;
+  cdat->dtup_2125__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2125__ADD2OUT_LONGDEC.nbval = 5;
+ /*inimult dtup_2126__ADD2OUT_LONGDEC*/
+ /*_.VALTUP___V2134*/ curfptr[2133] = (void*)&cdat->dtup_2126__ADD2OUT_LONGDEC;
+  cdat->dtup_2126__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2126__ADD2OUT_LONGDEC.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1269:/ iniobj");
+ /*iniobj dobj_2127*/
+ if (!/*_.VALDATA___V2132*/ curfptr[2131]) /*_.VALDATA___V2132*/ curfptr[2131] = (void*)&cdat->dobj_2127;
+  melt_assertmsg("iniobj checkdiscr dobj_2127", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2127.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2127.obj_num = 0;
+  cdat->dobj_2127.obj_hash = 494495218;
+  cdat->dobj_2127.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2127));
+ 
+ MELT_LOCATION("warmelt-first.melt:1269:/ iniobj");
+ /*iniobj dobj_2128*/
+ if (!/*_.VALDATA___V2133*/ curfptr[2132]) /*_.VALDATA___V2133*/ curfptr[2132] = (void*)&cdat->dobj_2128;
+  melt_assertmsg("iniobj checkdiscr dobj_2128", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2128.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2128.obj_num = 1;
+  cdat->dobj_2128.obj_hash = 626253120;
+  cdat->dobj_2128.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2128));
+ 
+ /*inistring dstr_2129__meltgc_add_out_d*/
+ /*_.VALSTR___V2135*/ curfptr[2134] = (void*)&cdat->dstr_2129__meltgc_add_out_d;
+  cdat->dstr_2129__meltgc_add_out_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2129__meltgc_add_out_d.val, "meltgc_add_out_dec((melt_ptr_t)(", sizeof(cdat->dstr_2129__meltgc_add_out_d.val)-1);
+ 
+ /*inistring dstr_2130__*/
+ /*_.VALSTR___V2136*/ curfptr[2135] = (void*)&cdat->dstr_2130__;
+  cdat->dstr_2130__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2130__.val, "), (", sizeof(cdat->dstr_2130__.val)-1);
+ 
+ /*inistring dstr_2131__*/
+ /*_.VALSTR___V2137*/ curfptr[2136] = (void*)&cdat->dstr_2131__;
+  cdat->dstr_2131__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2131__.val, "))", sizeof(cdat->dstr_2131__.val)-1);
+ 
+ /*inistring dstr_2132__ADD2OUT_LONGDEC*/
+ /*_.VALSTR___V2131*/ curfptr[2130] = (void*)&cdat->dstr_2132__ADD2OUT_LONGDEC;
+  cdat->dstr_2132__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2132__ADD2OUT_LONGDEC.val, "ADD2OUT_LONGDEC", sizeof(cdat->dstr_2132__ADD2OUT_LONGDEC.val)-1);
+ 
+ /*iniobj dsym_2133__ADD2OUT_LONGHEX*/
+ if (!/*_.VALDATA___V2139*/ curfptr[2138]) /*_.VALDATA___V2139*/ curfptr[2138] = (void*)&cdat->dsym_2133__ADD2OUT_LONGHEX;
+  melt_assertmsg("iniobj checkdiscr dsym_2133__ADD2OUT_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2133__ADD2OUT_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2133__ADD2OUT_LONGHEX.obj_hash = 852707617;
+  cdat->dsym_2133__ADD2OUT_LONGHEX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2133__ADD2OUT_LONGHEX));
+ 
+ /*inistring dstr_2134__ADD2OUT_LONGHEX*/
+ /*_.VALSTR___V2140*/ curfptr[2139] = (void*)&cdat->dstr_2134__ADD2OUT_LONGHEX;
+  cdat->dstr_2134__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2134__ADD2OUT_LONGHEX.val, "ADD2OUT_LONGHEX", sizeof(cdat->dstr_2134__ADD2OUT_LONGHEX.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ iniobj");
- /*iniobj dobj_2132__ADD2OUT_LONGDEC*/
- if (!/*_.VALDATA___V2138*/ curfptr[2137]) /*_.VALDATA___V2138*/ curfptr[2137] = (void*)&cdat->dobj_2132__ADD2OUT_LONGDEC;
-  melt_assertmsg("iniobj checkdiscr dobj_2132__ADD2OUT_LONGDEC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2132__ADD2OUT_LONGDEC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2132__ADD2OUT_LONGDEC.obj_hash = 681185437;
-  cdat->dobj_2132__ADD2OUT_LONGDEC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2132__ADD2OUT_LONGDEC));
- 
- /*inimult dtup_2133__ADD2OUT_LONGDEC*/
- /*_.VALTUP___V2146*/ curfptr[2145] = (void*)&cdat->dtup_2133__ADD2OUT_LONGDEC;
-  cdat->dtup_2133__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2133__ADD2OUT_LONGDEC.nbval = 5;
- /*inimult dtup_2134__ADD2OUT_LONGDEC*/
- /*_.VALTUP___V2142*/ curfptr[2141] = (void*)&cdat->dtup_2134__ADD2OUT_LONGDEC;
-  cdat->dtup_2134__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2134__ADD2OUT_LONGDEC.nbval = 2;
+ /*iniobj dobj_2135__ADD2OUT_LONGHEX*/
+ if (!/*_.VALDATA___V2141*/ curfptr[2140]) /*_.VALDATA___V2141*/ curfptr[2140] = (void*)&cdat->dobj_2135__ADD2OUT_LONGHEX;
+  melt_assertmsg("iniobj checkdiscr dobj_2135__ADD2OUT_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2135__ADD2OUT_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2135__ADD2OUT_LONGHEX.obj_hash = 25326940;
+  cdat->dobj_2135__ADD2OUT_LONGHEX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2135__ADD2OUT_LONGHEX));
+ 
+ /*inimult dtup_2136__ADD2OUT_LONGHEX*/
+ /*_.VALTUP___V2149*/ curfptr[2148] = (void*)&cdat->dtup_2136__ADD2OUT_LONGHEX;
+  cdat->dtup_2136__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2136__ADD2OUT_LONGHEX.nbval = 5;
+ /*inimult dtup_2137__ADD2OUT_LONGHEX*/
+ /*_.VALTUP___V2145*/ curfptr[2144] = (void*)&cdat->dtup_2137__ADD2OUT_LONGHEX;
+  cdat->dtup_2137__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2137__ADD2OUT_LONGHEX.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1274:/ iniobj");
- /*iniobj dobj_2135*/
- if (!/*_.VALDATA___V2140*/ curfptr[2139]) /*_.VALDATA___V2140*/ curfptr[2139] = (void*)&cdat->dobj_2135;
-  melt_assertmsg("iniobj checkdiscr dobj_2135", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2135.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2135.obj_num = 0;
-  cdat->dobj_2135.obj_hash = 2623955;
-  cdat->dobj_2135.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2135));
+ /*iniobj dobj_2138*/
+ if (!/*_.VALDATA___V2143*/ curfptr[2142]) /*_.VALDATA___V2143*/ curfptr[2142] = (void*)&cdat->dobj_2138;
+  melt_assertmsg("iniobj checkdiscr dobj_2138", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2138.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2138.obj_num = 0;
+  cdat->dobj_2138.obj_hash = 419617385;
+  cdat->dobj_2138.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2138));
  
  MELT_LOCATION("warmelt-first.melt:1274:/ iniobj");
- /*iniobj dobj_2136*/
- if (!/*_.VALDATA___V2141*/ curfptr[2140]) /*_.VALDATA___V2141*/ curfptr[2140] = (void*)&cdat->dobj_2136;
-  melt_assertmsg("iniobj checkdiscr dobj_2136", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2136.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2136.obj_num = 1;
-  cdat->dobj_2136.obj_hash = 993464096;
-  cdat->dobj_2136.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2136));
- 
- /*inistring dstr_2137__meltgc_add_out_d*/
- /*_.VALSTR___V2143*/ curfptr[2142] = (void*)&cdat->dstr_2137__meltgc_add_out_d;
-  cdat->dstr_2137__meltgc_add_out_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2137__meltgc_add_out_d.val, "meltgc_add_out_dec((melt_ptr_t)(", sizeof(cdat->dstr_2137__meltgc_add_out_d.val)-1);
- 
- /*inistring dstr_2138__*/
- /*_.VALSTR___V2144*/ curfptr[2143] = (void*)&cdat->dstr_2138__;
-  cdat->dstr_2138__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2138__.val, "), (", sizeof(cdat->dstr_2138__.val)-1);
- 
- /*inistring dstr_2139__*/
- /*_.VALSTR___V2145*/ curfptr[2144] = (void*)&cdat->dstr_2139__;
-  cdat->dstr_2139__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2139__.val, "))", sizeof(cdat->dstr_2139__.val)-1);
- 
- /*inistring dstr_2140__ADD2OUT_LONGDEC*/
- /*_.VALSTR___V2139*/ curfptr[2138] = (void*)&cdat->dstr_2140__ADD2OUT_LONGDEC;
-  cdat->dstr_2140__ADD2OUT_LONGDEC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2140__ADD2OUT_LONGDEC.val, "ADD2OUT_LONGDEC", sizeof(cdat->dstr_2140__ADD2OUT_LONGDEC.val)-1);
- 
- /*iniobj dsym_2141__ADD2OUT_LONGHEX*/
- if (!/*_.VALDATA___V2147*/ curfptr[2146]) /*_.VALDATA___V2147*/ curfptr[2146] = (void*)&cdat->dsym_2141__ADD2OUT_LONGHEX;
-  melt_assertmsg("iniobj checkdiscr dsym_2141__ADD2OUT_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2141__ADD2OUT_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2141__ADD2OUT_LONGHEX.obj_hash = 852707617;
-  cdat->dsym_2141__ADD2OUT_LONGHEX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2141__ADD2OUT_LONGHEX));
- 
- /*inistring dstr_2142__ADD2OUT_LONGHEX*/
- /*_.VALSTR___V2148*/ curfptr[2147] = (void*)&cdat->dstr_2142__ADD2OUT_LONGHEX;
-  cdat->dstr_2142__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2142__ADD2OUT_LONGHEX.val, "ADD2OUT_LONGHEX", sizeof(cdat->dstr_2142__ADD2OUT_LONGHEX.val)-1);
+ /*iniobj dobj_2139*/
+ if (!/*_.VALDATA___V2144*/ curfptr[2143]) /*_.VALDATA___V2144*/ curfptr[2143] = (void*)&cdat->dobj_2139;
+  melt_assertmsg("iniobj checkdiscr dobj_2139", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2139.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2139.obj_num = 1;
+  cdat->dobj_2139.obj_hash = 380346574;
+  cdat->dobj_2139.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2139));
+ 
+ /*inistring dstr_2140__meltgc_add_out_h*/
+ /*_.VALSTR___V2146*/ curfptr[2145] = (void*)&cdat->dstr_2140__meltgc_add_out_h;
+  cdat->dstr_2140__meltgc_add_out_h.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2140__meltgc_add_out_h.val, "meltgc_add_out_hex((melt_ptr_t)(", sizeof(cdat->dstr_2140__meltgc_add_out_h.val)-1);
+ 
+ /*inistring dstr_2141__*/
+ /*_.VALSTR___V2147*/ curfptr[2146] = (void*)&cdat->dstr_2141__;
+  cdat->dstr_2141__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2141__.val, "), (", sizeof(cdat->dstr_2141__.val)-1);
+ 
+ /*inistring dstr_2142__*/
+ /*_.VALSTR___V2148*/ curfptr[2147] = (void*)&cdat->dstr_2142__;
+  cdat->dstr_2142__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2142__.val, "))", sizeof(cdat->dstr_2142__.val)-1);
+ 
+ /*inistring dstr_2143__ADD2OUT_LONGHEX*/
+ /*_.VALSTR___V2142*/ curfptr[2141] = (void*)&cdat->dstr_2143__ADD2OUT_LONGHEX;
+  cdat->dstr_2143__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2143__ADD2OUT_LONGHEX.val, "ADD2OUT_LONGHEX", sizeof(cdat->dstr_2143__ADD2OUT_LONGHEX.val)-1);
+ 
+ /*iniobj dsym_2144__ADD2OUT_ROUTINEDESCR*/
+ if (!/*_.VALDATA___V2150*/ curfptr[2149]) /*_.VALDATA___V2150*/ curfptr[2149] = (void*)&cdat->dsym_2144__ADD2OUT_ROUTINEDESCR;
+  melt_assertmsg("iniobj checkdiscr dsym_2144__ADD2OUT_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2144__ADD2OUT_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2144__ADD2OUT_ROUTINEDESCR.obj_hash = 746498952;
+  cdat->dsym_2144__ADD2OUT_ROUTINEDESCR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2144__ADD2OUT_ROUTINEDESCR));
+ 
+ /*inistring dstr_2145__ADD2OUT_ROUTINED*/
+ /*_.VALSTR___V2151*/ curfptr[2150] = (void*)&cdat->dstr_2145__ADD2OUT_ROUTINED;
+  cdat->dstr_2145__ADD2OUT_ROUTINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2145__ADD2OUT_ROUTINED.val, "ADD2OUT_ROUTINEDESCR", sizeof(cdat->dstr_2145__ADD2OUT_ROUTINED.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ iniobj");
- /*iniobj dobj_2143__ADD2OUT_LONGHEX*/
- if (!/*_.VALDATA___V2149*/ curfptr[2148]) /*_.VALDATA___V2149*/ curfptr[2148] = (void*)&cdat->dobj_2143__ADD2OUT_LONGHEX;
-  melt_assertmsg("iniobj checkdiscr dobj_2143__ADD2OUT_LONGHEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2143__ADD2OUT_LONGHEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2143__ADD2OUT_LONGHEX.obj_hash = 524770523;
-  cdat->dobj_2143__ADD2OUT_LONGHEX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2143__ADD2OUT_LONGHEX));
- 
- /*inimult dtup_2144__ADD2OUT_LONGHEX*/
- /*_.VALTUP___V2157*/ curfptr[2156] = (void*)&cdat->dtup_2144__ADD2OUT_LONGHEX;
-  cdat->dtup_2144__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2144__ADD2OUT_LONGHEX.nbval = 5;
- /*inimult dtup_2145__ADD2OUT_LONGHEX*/
- /*_.VALTUP___V2153*/ curfptr[2152] = (void*)&cdat->dtup_2145__ADD2OUT_LONGHEX;
-  cdat->dtup_2145__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2145__ADD2OUT_LONGHEX.nbval = 2;
+ /*iniobj dobj_2146__ADD2OUT_ROUTINEDESCR*/
+ if (!/*_.VALDATA___V2152*/ curfptr[2151]) /*_.VALDATA___V2152*/ curfptr[2151] = (void*)&cdat->dobj_2146__ADD2OUT_ROUTINEDESCR;
+  melt_assertmsg("iniobj checkdiscr dobj_2146__ADD2OUT_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2146__ADD2OUT_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2146__ADD2OUT_ROUTINEDESCR.obj_hash = 532785525;
+  cdat->dobj_2146__ADD2OUT_ROUTINEDESCR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2146__ADD2OUT_ROUTINEDESCR));
+ 
+ /*inimult dtup_2147__ADD2OUT_ROUTINEDESCR*/
+ /*_.VALTUP___V2160*/ curfptr[2159] = (void*)&cdat->dtup_2147__ADD2OUT_ROUTINEDESCR;
+  cdat->dtup_2147__ADD2OUT_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2147__ADD2OUT_ROUTINEDESCR.nbval = 5;
+ /*inimult dtup_2148__ADD2OUT_ROUTINEDESCR*/
+ /*_.VALTUP___V2156*/ curfptr[2155] = (void*)&cdat->dtup_2148__ADD2OUT_ROUTINEDESCR;
+  cdat->dtup_2148__ADD2OUT_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2148__ADD2OUT_ROUTINEDESCR.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1279:/ iniobj");
- /*iniobj dobj_2146*/
- if (!/*_.VALDATA___V2151*/ curfptr[2150]) /*_.VALDATA___V2151*/ curfptr[2150] = (void*)&cdat->dobj_2146;
-  melt_assertmsg("iniobj checkdiscr dobj_2146", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2146.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2146.obj_num = 0;
-  cdat->dobj_2146.obj_hash = 726431644;
-  cdat->dobj_2146.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2146));
+ /*iniobj dobj_2149*/
+ if (!/*_.VALDATA___V2154*/ curfptr[2153]) /*_.VALDATA___V2154*/ curfptr[2153] = (void*)&cdat->dobj_2149;
+  melt_assertmsg("iniobj checkdiscr dobj_2149", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2149.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2149.obj_num = 0;
+  cdat->dobj_2149.obj_hash = 31919330;
+  cdat->dobj_2149.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2149));
  
  MELT_LOCATION("warmelt-first.melt:1279:/ iniobj");
- /*iniobj dobj_2147*/
- if (!/*_.VALDATA___V2152*/ curfptr[2151]) /*_.VALDATA___V2152*/ curfptr[2151] = (void*)&cdat->dobj_2147;
-  melt_assertmsg("iniobj checkdiscr dobj_2147", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2147.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2147.obj_num = 1;
-  cdat->dobj_2147.obj_hash = 184491191;
-  cdat->dobj_2147.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2147));
- 
- /*inistring dstr_2148__meltgc_add_out_h*/
- /*_.VALSTR___V2154*/ curfptr[2153] = (void*)&cdat->dstr_2148__meltgc_add_out_h;
-  cdat->dstr_2148__meltgc_add_out_h.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2148__meltgc_add_out_h.val, "meltgc_add_out_hex((melt_ptr_t)(", sizeof(cdat->dstr_2148__meltgc_add_out_h.val)-1);
- 
- /*inistring dstr_2149__*/
- /*_.VALSTR___V2155*/ curfptr[2154] = (void*)&cdat->dstr_2149__;
-  cdat->dstr_2149__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2149__.val, "), (", sizeof(cdat->dstr_2149__.val)-1);
- 
- /*inistring dstr_2150__*/
- /*_.VALSTR___V2156*/ curfptr[2155] = (void*)&cdat->dstr_2150__;
-  cdat->dstr_2150__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2150__.val, "))", sizeof(cdat->dstr_2150__.val)-1);
- 
- /*inistring dstr_2151__ADD2OUT_LONGHEX*/
- /*_.VALSTR___V2150*/ curfptr[2149] = (void*)&cdat->dstr_2151__ADD2OUT_LONGHEX;
-  cdat->dstr_2151__ADD2OUT_LONGHEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2151__ADD2OUT_LONGHEX.val, "ADD2OUT_LONGHEX", sizeof(cdat->dstr_2151__ADD2OUT_LONGHEX.val)-1);
- 
- /*iniobj dsym_2152__ADD2OUT_ROUTINEDESCR*/
- if (!/*_.VALDATA___V2158*/ curfptr[2157]) /*_.VALDATA___V2158*/ curfptr[2157] = (void*)&cdat->dsym_2152__ADD2OUT_ROUTINEDESCR;
-  melt_assertmsg("iniobj checkdiscr dsym_2152__ADD2OUT_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2152__ADD2OUT_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2152__ADD2OUT_ROUTINEDESCR.obj_hash = 746498952;
-  cdat->dsym_2152__ADD2OUT_ROUTINEDESCR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2152__ADD2OUT_ROUTINEDESCR));
- 
- /*inistring dstr_2153__ADD2OUT_ROUTINED*/
- /*_.VALSTR___V2159*/ curfptr[2158] = (void*)&cdat->dstr_2153__ADD2OUT_ROUTINED;
-  cdat->dstr_2153__ADD2OUT_ROUTINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2153__ADD2OUT_ROUTINED.val, "ADD2OUT_ROUTINEDESCR", sizeof(cdat->dstr_2153__ADD2OUT_ROUTINED.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ iniobj");
- /*iniobj dobj_2154__ADD2OUT_ROUTINEDESCR*/
- if (!/*_.VALDATA___V2160*/ curfptr[2159]) /*_.VALDATA___V2160*/ curfptr[2159] = (void*)&cdat->dobj_2154__ADD2OUT_ROUTINEDESCR;
-  melt_assertmsg("iniobj checkdiscr dobj_2154__ADD2OUT_ROUTINEDESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2154__ADD2OUT_ROUTINEDESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2154__ADD2OUT_ROUTINEDESCR.obj_hash = 788400848;
-  cdat->dobj_2154__ADD2OUT_ROUTINEDESCR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2154__ADD2OUT_ROUTINEDESCR));
- 
- /*inimult dtup_2155__ADD2OUT_ROUTINEDESCR*/
- /*_.VALTUP___V2168*/ curfptr[2167] = (void*)&cdat->dtup_2155__ADD2OUT_ROUTINEDESCR;
-  cdat->dtup_2155__ADD2OUT_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2155__ADD2OUT_ROUTINEDESCR.nbval = 5;
- /*inimult dtup_2156__ADD2OUT_ROUTINEDESCR*/
- /*_.VALTUP___V2164*/ curfptr[2163] = (void*)&cdat->dtup_2156__ADD2OUT_ROUTINEDESCR;
-  cdat->dtup_2156__ADD2OUT_ROUTINEDESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2156__ADD2OUT_ROUTINEDESCR.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1284:/ iniobj");
- /*iniobj dobj_2157*/
- if (!/*_.VALDATA___V2162*/ curfptr[2161]) /*_.VALDATA___V2162*/ curfptr[2161] = (void*)&cdat->dobj_2157;
-  melt_assertmsg("iniobj checkdiscr dobj_2157", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2157.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2157.obj_num = 0;
-  cdat->dobj_2157.obj_hash = 453668977;
-  cdat->dobj_2157.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2157));
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ iniobj");
- /*iniobj dobj_2158*/
- if (!/*_.VALDATA___V2163*/ curfptr[2162]) /*_.VALDATA___V2163*/ curfptr[2162] = (void*)&cdat->dobj_2158;
-  melt_assertmsg("iniobj checkdiscr dobj_2158", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2158.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2158.obj_num = 1;
-  cdat->dobj_2158.obj_hash = 847106271;
-  cdat->dobj_2158.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2158));
- 
- /*inistring dstr_2159__meltgc_add_out_*/
- /*_.VALSTR___V2165*/ curfptr[2164] = (void*)&cdat->dstr_2159__meltgc_add_out_;
-  cdat->dstr_2159__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2159__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_2159__meltgc_add_out_.val)-1);
- 
- /*inistring dstr_2160__melt_ro*/
- /*_.VALSTR___V2166*/ curfptr[2165] = (void*)&cdat->dstr_2160__melt_ro;
-  cdat->dstr_2160__melt_ro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2160__melt_ro.val, "), \n\t\t   melt_routine_descrstr((melt_ptr_t)(", sizeof(cdat->dstr_2160__melt_ro.val)-1);
- 
- /*inistring dstr_2161__*/
- /*_.VALSTR___V2167*/ curfptr[2166] = (void*)&cdat->dstr_2161__;
-  cdat->dstr_2161__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2161__.val, ")))", sizeof(cdat->dstr_2161__.val)-1);
- 
- /*inistring dstr_2162__ADD2OUT_ROUTINED*/
- /*_.VALSTR___V2161*/ curfptr[2160] = (void*)&cdat->dstr_2162__ADD2OUT_ROUTINED;
-  cdat->dstr_2162__ADD2OUT_ROUTINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2162__ADD2OUT_ROUTINED.val, "ADD2OUT_ROUTINEDESCR", sizeof(cdat->dstr_2162__ADD2OUT_ROUTINED.val)-1);
- 
- /*iniobj dsym_2163__IS_STRING*/
- if (!/*_.VALDATA___V2169*/ curfptr[2168]) /*_.VALDATA___V2169*/ curfptr[2168] = (void*)&cdat->dsym_2163__IS_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2163__IS_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2163__IS_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2163__IS_STRING.obj_hash = 16308396;
-  cdat->dsym_2163__IS_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2163__IS_STRING));
- 
- /*inistring dstr_2164__IS_STRING*/
- /*_.VALSTR___V2170*/ curfptr[2169] = (void*)&cdat->dstr_2164__IS_STRING;
-  cdat->dstr_2164__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2164__IS_STRING.val, "IS_STRING", sizeof(cdat->dstr_2164__IS_STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1292:/ iniobj");
- /*iniobj dobj_2165__IS_STRING*/
- if (!/*_.VALDATA___V2171*/ curfptr[2170]) /*_.VALDATA___V2171*/ curfptr[2170] = (void*)&cdat->dobj_2165__IS_STRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2165__IS_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2165__IS_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2165__IS_STRING.obj_hash = 266291244;
-  cdat->dobj_2165__IS_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2165__IS_STRING));
- 
- /*inimult dtup_2166__IS_STRING*/
- /*_.VALTUP___V2177*/ curfptr[2176] = (void*)&cdat->dtup_2166__IS_STRING;
-  cdat->dtup_2166__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2166__IS_STRING.nbval = 3;
- /*inimult dtup_2167__IS_STRING*/
- /*_.VALTUP___V2174*/ curfptr[2173] = (void*)&cdat->dtup_2167__IS_STRING;
-  cdat->dtup_2167__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2167__IS_STRING.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1292:/ iniobj");
- /*iniobj dobj_2168*/
- if (!/*_.VALDATA___V2173*/ curfptr[2172]) /*_.VALDATA___V2173*/ curfptr[2172] = (void*)&cdat->dobj_2168;
-  melt_assertmsg("iniobj checkdiscr dobj_2168", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2168.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2168.obj_num = 0;
-  cdat->dobj_2168.obj_hash = 152353106;
-  cdat->dobj_2168.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2168));
- 
- /*inistring dstr_2169__melt_magic_disc*/
- /*_.VALSTR___V2175*/ curfptr[2174] = (void*)&cdat->dstr_2169__melt_magic_disc;
-  cdat->dstr_2169__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2169__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2169__melt_magic_disc.val)-1);
- 
- /*inistring dstr_2170__OBMAG_STRI*/
- /*_.VALSTR___V2176*/ curfptr[2175] = (void*)&cdat->dstr_2170__OBMAG_STRI;
-  cdat->dstr_2170__OBMAG_STRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2170__OBMAG_STRI.val, ")) == OBMAG_STRING)", sizeof(cdat->dstr_2170__OBMAG_STRI.val)-1);
- 
- /*inistring dstr_2171__IS_STRING*/
- /*_.VALSTR___V2172*/ curfptr[2171] = (void*)&cdat->dstr_2171__IS_STRING;
-  cdat->dstr_2171__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2171__IS_STRING.val, "IS_STRING", sizeof(cdat->dstr_2171__IS_STRING.val)-1);
- 
- /*iniobj dsym_2172__S*/
- if (!/*_.VALDATA___V2178*/ curfptr[2177]) /*_.VALDATA___V2178*/ curfptr[2177] = (void*)&cdat->dsym_2172__S;
-  melt_assertmsg("iniobj checkdiscr dsym_2172__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2172__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2172__S.obj_hash = 471163706;
-  cdat->dsym_2172__S.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2172__S));
- 
- /*inistring dstr_2173__S*/
- /*_.VALSTR___V2179*/ curfptr[2178] = (void*)&cdat->dstr_2173__S;
-  cdat->dstr_2173__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2173__S.val, "==S", sizeof(cdat->dstr_2173__S.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1296:/ iniobj");
- /*iniobj dobj_2174__S*/
- if (!/*_.VALDATA___V2180*/ curfptr[2179]) /*_.VALDATA___V2180*/ curfptr[2179] = (void*)&cdat->dobj_2174__S;
-  melt_assertmsg("iniobj checkdiscr dobj_2174__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2174__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2174__S.obj_hash = 930957308;
-  cdat->dobj_2174__S.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2174__S));
- 
- /*inimult dtup_2175__S*/
- /*_.VALTUP___V2192*/ curfptr[2191] = (void*)&cdat->dtup_2175__S;
-  cdat->dtup_2175__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2175__S.nbval = 5;
- /*inimult dtup_2176__S*/
- /*_.VALTUP___V2188*/ curfptr[2187] = (void*)&cdat->dtup_2176__S;
-  cdat->dtup_2176__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2176__S.nbval = 2;
- /*iniobj dsym_2177__S1*/
- if (!/*_.VALDATA___V2183*/ curfptr[2182]) /*_.VALDATA___V2183*/ curfptr[2182] = (void*)&cdat->dsym_2177__S1;
-  melt_assertmsg("iniobj checkdiscr dsym_2177__S1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2177__S1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2177__S1.obj_hash = 99925572;
-  cdat->dsym_2177__S1.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2177__S1));
- 
- /*inistring dstr_2178__S1*/
- /*_.VALSTR___V2184*/ curfptr[2183] = (void*)&cdat->dstr_2178__S1;
-  cdat->dstr_2178__S1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2178__S1.val, "S1", sizeof(cdat->dstr_2178__S1.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1296:/ iniobj");
- /*iniobj dobj_2179*/
- if (!/*_.VALDATA___V2182*/ curfptr[2181]) /*_.VALDATA___V2182*/ curfptr[2181] = (void*)&cdat->dobj_2179;
-  melt_assertmsg("iniobj checkdiscr dobj_2179", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2179.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2179.obj_num = 0;
-  cdat->dobj_2179.obj_hash = 438356178;
-  cdat->dobj_2179.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2179));
- 
- /*iniobj dsym_2180__S2*/
- if (!/*_.VALDATA___V2186*/ curfptr[2185]) /*_.VALDATA___V2186*/ curfptr[2185] = (void*)&cdat->dsym_2180__S2;
-  melt_assertmsg("iniobj checkdiscr dsym_2180__S2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2180__S2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2180__S2.obj_hash = 5362580;
-  cdat->dsym_2180__S2.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2180__S2));
- 
- /*inistring dstr_2181__S2*/
- /*_.VALSTR___V2187*/ curfptr[2186] = (void*)&cdat->dstr_2181__S2;
-  cdat->dstr_2181__S2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2181__S2.val, "S2", sizeof(cdat->dstr_2181__S2.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1296:/ iniobj");
- /*iniobj dobj_2182*/
- if (!/*_.VALDATA___V2185*/ curfptr[2184]) /*_.VALDATA___V2185*/ curfptr[2184] = (void*)&cdat->dobj_2182;
-  melt_assertmsg("iniobj checkdiscr dobj_2182", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2182.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2182.obj_num = 1;
-  cdat->dobj_2182.obj_hash = 1003123573;
-  cdat->dobj_2182.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2182));
- 
- /*inistring dstr_2183__melt_string_same*/
- /*_.VALSTR___V2189*/ curfptr[2188] = (void*)&cdat->dstr_2183__melt_string_same;
-  cdat->dstr_2183__melt_string_same.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2183__melt_string_same.val, "melt_string_same((melt_ptr_t)(", sizeof(cdat->dstr_2183__melt_string_same.val)-1);
- 
- /*inistring dstr_2184__melt_ptr_t_*/
- /*_.VALSTR___V2190*/ curfptr[2189] = (void*)&cdat->dstr_2184__melt_ptr_t_;
-  cdat->dstr_2184__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2184__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2184__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2185__*/
- /*_.VALSTR___V2191*/ curfptr[2190] = (void*)&cdat->dstr_2185__;
-  cdat->dstr_2185__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2185__.val, "))", sizeof(cdat->dstr_2185__.val)-1);
- 
- /*inistring dstr_2186__S*/
- /*_.VALSTR___V2181*/ curfptr[2180] = (void*)&cdat->dstr_2186__S;
-  cdat->dstr_2186__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2186__S.val, "==S", sizeof(cdat->dstr_2186__S.val)-1);
- 
- /*iniobj dsym_2187__S*/
- if (!/*_.VALDATA___V2193*/ curfptr[2192]) /*_.VALDATA___V2193*/ curfptr[2192] = (void*)&cdat->dsym_2187__S;
-  melt_assertmsg("iniobj checkdiscr dsym_2187__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2187__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2187__S.obj_hash = 583826606;
-  cdat->dsym_2187__S.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2187__S));
- 
- /*inistring dstr_2188__S*/
- /*_.VALSTR___V2194*/ curfptr[2193] = (void*)&cdat->dstr_2188__S;
-  cdat->dstr_2188__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2188__S.val, "!=S", sizeof(cdat->dstr_2188__S.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1299:/ iniobj");
- /*iniobj dobj_2189__S*/
- if (!/*_.VALDATA___V2195*/ curfptr[2194]) /*_.VALDATA___V2195*/ curfptr[2194] = (void*)&cdat->dobj_2189__S;
-  melt_assertmsg("iniobj checkdiscr dobj_2189__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2189__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2189__S.obj_hash = 421044632;
-  cdat->dobj_2189__S.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2189__S));
- 
- /*inimult dtup_2190__S*/
- /*_.VALTUP___V2203*/ curfptr[2202] = (void*)&cdat->dtup_2190__S;
-  cdat->dtup_2190__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2190__S.nbval = 5;
- /*inimult dtup_2191__S*/
- /*_.VALTUP___V2199*/ curfptr[2198] = (void*)&cdat->dtup_2191__S;
-  cdat->dtup_2191__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2191__S.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1299:/ iniobj");
- /*iniobj dobj_2192*/
- if (!/*_.VALDATA___V2197*/ curfptr[2196]) /*_.VALDATA___V2197*/ curfptr[2196] = (void*)&cdat->dobj_2192;
-  melt_assertmsg("iniobj checkdiscr dobj_2192", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2192.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2192.obj_num = 0;
-  cdat->dobj_2192.obj_hash = 287303497;
-  cdat->dobj_2192.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2192));
- 
- MELT_LOCATION("warmelt-first.melt:1299:/ iniobj");
- /*iniobj dobj_2193*/
- if (!/*_.VALDATA___V2198*/ curfptr[2197]) /*_.VALDATA___V2198*/ curfptr[2197] = (void*)&cdat->dobj_2193;
-  melt_assertmsg("iniobj checkdiscr dobj_2193", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2193.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2193.obj_num = 1;
-  cdat->dobj_2193.obj_hash = 729342777;
-  cdat->dobj_2193.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2193));
- 
- /*inistring dstr_2194__melt_string_sam*/
- /*_.VALSTR___V2200*/ curfptr[2199] = (void*)&cdat->dstr_2194__melt_string_sam;
-  cdat->dstr_2194__melt_string_sam.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2194__melt_string_sam.val, "!melt_string_same((melt_ptr_t)(", sizeof(cdat->dstr_2194__melt_string_sam.val)-1);
- 
- /*inistring dstr_2195__melt_ptr_t_*/
- /*_.VALSTR___V2201*/ curfptr[2200] = (void*)&cdat->dstr_2195__melt_ptr_t_;
-  cdat->dstr_2195__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2195__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2195__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2196__*/
- /*_.VALSTR___V2202*/ curfptr[2201] = (void*)&cdat->dstr_2196__;
-  cdat->dstr_2196__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2196__.val, "))", sizeof(cdat->dstr_2196__.val)-1);
- 
- /*inistring dstr_2197__S*/
- /*_.VALSTR___V2196*/ curfptr[2195] = (void*)&cdat->dstr_2197__S;
-  cdat->dstr_2197__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2197__S.val, "!=S", sizeof(cdat->dstr_2197__S.val)-1);
- 
- /*iniobj dsym_2198__MAKE_STRING*/
- if (!/*_.VALDATA___V2204*/ curfptr[2203]) /*_.VALDATA___V2204*/ curfptr[2203] = (void*)&cdat->dsym_2198__MAKE_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2198__MAKE_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2198__MAKE_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2198__MAKE_STRING.obj_hash = 687493068;
-  cdat->dsym_2198__MAKE_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2198__MAKE_STRING));
- 
- /*inistring dstr_2199__MAKE_STRING*/
- /*_.VALSTR___V2205*/ curfptr[2204] = (void*)&cdat->dstr_2199__MAKE_STRING;
-  cdat->dstr_2199__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2199__MAKE_STRING.val, "MAKE_STRING", sizeof(cdat->dstr_2199__MAKE_STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1303:/ iniobj");
- /*iniobj dobj_2200__MAKE_STRING*/
- if (!/*_.VALDATA___V2206*/ curfptr[2205]) /*_.VALDATA___V2206*/ curfptr[2205] = (void*)&cdat->dobj_2200__MAKE_STRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2200__MAKE_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2200__MAKE_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2200__MAKE_STRING.obj_hash = 101264489;
-  cdat->dobj_2200__MAKE_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2200__MAKE_STRING));
- 
- /*inimult dtup_2201__MAKE_STRING*/
- /*_.VALTUP___V2216*/ curfptr[2215] = (void*)&cdat->dtup_2201__MAKE_STRING;
-  cdat->dtup_2201__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2201__MAKE_STRING.nbval = 5;
- /*inimult dtup_2202__MAKE_STRING*/
- /*_.VALTUP___V2212*/ curfptr[2211] = (void*)&cdat->dtup_2202__MAKE_STRING;
-  cdat->dtup_2202__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2202__MAKE_STRING.nbval = 2;
- /*iniobj dsym_2203__DIS*/
- if (!/*_.VALDATA___V2209*/ curfptr[2208]) /*_.VALDATA___V2209*/ curfptr[2208] = (void*)&cdat->dsym_2203__DIS;
-  melt_assertmsg("iniobj checkdiscr dsym_2203__DIS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2203__DIS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2203__DIS.obj_hash = 83284668;
-  cdat->dsym_2203__DIS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2203__DIS));
- 
- /*inistring dstr_2204__DIS*/
- /*_.VALSTR___V2210*/ curfptr[2209] = (void*)&cdat->dstr_2204__DIS;
-  cdat->dstr_2204__DIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2204__DIS.val, "DIS", sizeof(cdat->dstr_2204__DIS.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1303:/ iniobj");
- /*iniobj dobj_2205*/
- if (!/*_.VALDATA___V2208*/ curfptr[2207]) /*_.VALDATA___V2208*/ curfptr[2207] = (void*)&cdat->dobj_2205;
-  melt_assertmsg("iniobj checkdiscr dobj_2205", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2205.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2205.obj_num = 0;
-  cdat->dobj_2205.obj_hash = 553444062;
-  cdat->dobj_2205.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2205));
- 
- MELT_LOCATION("warmelt-first.melt:1303:/ iniobj");
- /*iniobj dobj_2206*/
- if (!/*_.VALDATA___V2211*/ curfptr[2210]) /*_.VALDATA___V2211*/ curfptr[2210] = (void*)&cdat->dobj_2206;
-  melt_assertmsg("iniobj checkdiscr dobj_2206", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2206.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2206.obj_num = 1;
-  cdat->dobj_2206.obj_hash = 193282194;
-  cdat->dobj_2206.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2206));
- 
- /*inistring dstr_2207__meltgc_new_stri*/
- /*_.VALSTR___V2213*/ curfptr[2212] = (void*)&cdat->dstr_2207__meltgc_new_stri;
-  cdat->dstr_2207__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2207__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2207__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_2208__melt_st*/
- /*_.VALSTR___V2214*/ curfptr[2213] = (void*)&cdat->dstr_2208__melt_st;
-  cdat->dstr_2208__melt_st.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2208__melt_st.val, "), \n\t\t\t  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2208__melt_st.val)-1);
- 
- /*inistring dstr_2209__*/
- /*_.VALSTR___V2215*/ curfptr[2214] = (void*)&cdat->dstr_2209__;
-  cdat->dstr_2209__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2209__.val, "))))", sizeof(cdat->dstr_2209__.val)-1);
- 
- /*inistring dstr_2210__MAKE_STRING*/
- /*_.VALSTR___V2207*/ curfptr[2206] = (void*)&cdat->dstr_2210__MAKE_STRING;
-  cdat->dstr_2210__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2210__MAKE_STRING.val, "MAKE_STRING", sizeof(cdat->dstr_2210__MAKE_STRING.val)-1);
- 
- /*iniobj dsym_2211__MAKE_STRINGCONST*/
- if (!/*_.VALDATA___V2217*/ curfptr[2216]) /*_.VALDATA___V2217*/ curfptr[2216] = (void*)&cdat->dsym_2211__MAKE_STRINGCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_2211__MAKE_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2211__MAKE_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2211__MAKE_STRINGCONST.obj_hash = 260954798;
-  cdat->dsym_2211__MAKE_STRINGCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2211__MAKE_STRINGCONST));
- 
- /*inistring dstr_2212__MAKE_STRINGCONST*/
- /*_.VALSTR___V2218*/ curfptr[2217] = (void*)&cdat->dstr_2212__MAKE_STRINGCONST;
-  cdat->dstr_2212__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2212__MAKE_STRINGCONST.val, "MAKE_STRINGCONST", sizeof(cdat->dstr_2212__MAKE_STRINGCONST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1307:/ iniobj");
- /*iniobj dobj_2213__MAKE_STRINGCONST*/
- if (!/*_.VALDATA___V2219*/ curfptr[2218]) /*_.VALDATA___V2219*/ curfptr[2218] = (void*)&cdat->dobj_2213__MAKE_STRINGCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_2213__MAKE_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2213__MAKE_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2213__MAKE_STRINGCONST.obj_hash = 347682687;
-  cdat->dobj_2213__MAKE_STRINGCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2213__MAKE_STRINGCONST));
- 
- /*inimult dtup_2214__MAKE_STRINGCONST*/
- /*_.VALTUP___V2227*/ curfptr[2226] = (void*)&cdat->dtup_2214__MAKE_STRINGCONST;
-  cdat->dtup_2214__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2214__MAKE_STRINGCONST.nbval = 5;
- /*inimult dtup_2215__MAKE_STRINGCONST*/
- /*_.VALTUP___V2223*/ curfptr[2222] = (void*)&cdat->dtup_2215__MAKE_STRINGCONST;
-  cdat->dtup_2215__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2215__MAKE_STRINGCONST.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1307:/ iniobj");
- /*iniobj dobj_2216*/
- if (!/*_.VALDATA___V2221*/ curfptr[2220]) /*_.VALDATA___V2221*/ curfptr[2220] = (void*)&cdat->dobj_2216;
-  melt_assertmsg("iniobj checkdiscr dobj_2216", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2216.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2216.obj_num = 0;
-  cdat->dobj_2216.obj_hash = 190583015;
-  cdat->dobj_2216.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2216));
- 
- MELT_LOCATION("warmelt-first.melt:1307:/ iniobj");
- /*iniobj dobj_2217*/
- if (!/*_.VALDATA___V2222*/ curfptr[2221]) /*_.VALDATA___V2222*/ curfptr[2221] = (void*)&cdat->dobj_2217;
-  melt_assertmsg("iniobj checkdiscr dobj_2217", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2217.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2217.obj_num = 1;
-  cdat->dobj_2217.obj_hash = 21154169;
-  cdat->dobj_2217.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2217));
- 
- /*inistring dstr_2218__meltgc_new_stri*/
- /*_.VALSTR___V2224*/ curfptr[2223] = (void*)&cdat->dstr_2218__meltgc_new_stri;
-  cdat->dstr_2218__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2218__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2218__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_2219__*/
- /*_.VALSTR___V2225*/ curfptr[2224] = (void*)&cdat->dstr_2219__;
-  cdat->dstr_2219__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2219__.val, "), (", sizeof(cdat->dstr_2219__.val)-1);
- 
- /*inistring dstr_2220__*/
- /*_.VALSTR___V2226*/ curfptr[2225] = (void*)&cdat->dstr_2220__;
-  cdat->dstr_2220__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2220__.val, ")))", sizeof(cdat->dstr_2220__.val)-1);
- 
- /*inistring dstr_2221__MAKE_STRINGCONST*/
- /*_.VALSTR___V2220*/ curfptr[2219] = (void*)&cdat->dstr_2221__MAKE_STRINGCONST;
-  cdat->dstr_2221__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2221__MAKE_STRINGCONST.val, "MAKE_STRINGCONST", sizeof(cdat->dstr_2221__MAKE_STRINGCONST.val)-1);
- 
- /*iniobj dsym_2222__IS_STRINGCONST*/
- if (!/*_.VALDATA___V2228*/ curfptr[2227]) /*_.VALDATA___V2228*/ curfptr[2227] = (void*)&cdat->dsym_2222__IS_STRINGCONST;
-  melt_assertmsg("iniobj checkdiscr dsym_2222__IS_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2222__IS_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2222__IS_STRINGCONST.obj_hash = 154220708;
-  cdat->dsym_2222__IS_STRINGCONST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2222__IS_STRINGCONST));
- 
- /*inistring dstr_2223__IS_STRINGCONST*/
- /*_.VALSTR___V2229*/ curfptr[2228] = (void*)&cdat->dstr_2223__IS_STRINGCONST;
-  cdat->dstr_2223__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2223__IS_STRINGCONST.val, "IS_STRINGCONST", sizeof(cdat->dstr_2223__IS_STRINGCONST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1310:/ iniobj");
- /*iniobj dobj_2224__IS_STRINGCONST*/
- if (!/*_.VALDATA___V2230*/ curfptr[2229]) /*_.VALDATA___V2230*/ curfptr[2229] = (void*)&cdat->dobj_2224__IS_STRINGCONST;
-  melt_assertmsg("iniobj checkdiscr dobj_2224__IS_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2224__IS_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2224__IS_STRINGCONST.obj_hash = 564008958;
-  cdat->dobj_2224__IS_STRINGCONST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2224__IS_STRINGCONST));
- 
- /*inimult dtup_2225__IS_STRINGCONST*/
- /*_.VALTUP___V2240*/ curfptr[2239] = (void*)&cdat->dtup_2225__IS_STRINGCONST;
-  cdat->dtup_2225__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2225__IS_STRINGCONST.nbval = 5;
- /*inimult dtup_2226__IS_STRINGCONST*/
- /*_.VALTUP___V2236*/ curfptr[2235] = (void*)&cdat->dtup_2226__IS_STRINGCONST;
-  cdat->dtup_2226__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2226__IS_STRINGCONST.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1310:/ iniobj");
- /*iniobj dobj_2227*/
- if (!/*_.VALDATA___V2232*/ curfptr[2231]) /*_.VALDATA___V2232*/ curfptr[2231] = (void*)&cdat->dobj_2227;
-  melt_assertmsg("iniobj checkdiscr dobj_2227", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2227.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2227.obj_num = 0;
-  cdat->dobj_2227.obj_hash = 943029929;
-  cdat->dobj_2227.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2227));
- 
- /*iniobj dsym_2228__CS*/
- if (!/*_.VALDATA___V2234*/ curfptr[2233]) /*_.VALDATA___V2234*/ curfptr[2233] = (void*)&cdat->dsym_2228__CS;
-  melt_assertmsg("iniobj checkdiscr dsym_2228__CS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2228__CS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2228__CS.obj_hash = 7052924;
-  cdat->dsym_2228__CS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2228__CS));
- 
- /*inistring dstr_2229__CS*/
- /*_.VALSTR___V2235*/ curfptr[2234] = (void*)&cdat->dstr_2229__CS;
-  cdat->dstr_2229__CS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2229__CS.val, "CS", sizeof(cdat->dstr_2229__CS.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1310:/ iniobj");
- /*iniobj dobj_2230*/
- if (!/*_.VALDATA___V2233*/ curfptr[2232]) /*_.VALDATA___V2233*/ curfptr[2232] = (void*)&cdat->dobj_2230;
-  melt_assertmsg("iniobj checkdiscr dobj_2230", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2230.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2230.obj_num = 1;
-  cdat->dobj_2230.obj_hash = 375151542;
-  cdat->dobj_2230.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2230));
- 
- /*inistring dstr_2231__melt_is_string_*/
- /*_.VALSTR___V2237*/ curfptr[2236] = (void*)&cdat->dstr_2231__melt_is_string_;
-  cdat->dstr_2231__melt_is_string_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2231__melt_is_string_.val, "(melt_is_string_const((melt_ptr_t)(", sizeof(cdat->dstr_2231__melt_is_string_.val)-1);
- 
- /*inistring dstr_2232__*/
- /*_.VALSTR___V2238*/ curfptr[2237] = (void*)&cdat->dstr_2232__;
-  cdat->dstr_2232__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2232__.val, "), (", sizeof(cdat->dstr_2232__.val)-1);
- 
- /*inistring dstr_2233__*/
- /*_.VALSTR___V2239*/ curfptr[2238] = (void*)&cdat->dstr_2233__;
-  cdat->dstr_2233__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2233__.val, ")))", sizeof(cdat->dstr_2233__.val)-1);
- 
- /*inistring dstr_2234__IS_STRINGCONST*/
- /*_.VALSTR___V2231*/ curfptr[2230] = (void*)&cdat->dstr_2234__IS_STRINGCONST;
-  cdat->dstr_2234__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2234__IS_STRINGCONST.val, "IS_STRINGCONST", sizeof(cdat->dstr_2234__IS_STRINGCONST.val)-1);
- 
- /*iniobj dsym_2235__STRING_LENGTH*/
- if (!/*_.VALDATA___V2241*/ curfptr[2240]) /*_.VALDATA___V2241*/ curfptr[2240] = (void*)&cdat->dsym_2235__STRING_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2235__STRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2235__STRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2235__STRING_LENGTH.obj_hash = 75463736;
-  cdat->dsym_2235__STRING_LENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2235__STRING_LENGTH));
- 
- /*inistring dstr_2236__STRING_LENGTH*/
- /*_.VALSTR___V2242*/ curfptr[2241] = (void*)&cdat->dstr_2236__STRING_LENGTH;
-  cdat->dstr_2236__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2236__STRING_LENGTH.val, "STRING_LENGTH", sizeof(cdat->dstr_2236__STRING_LENGTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1313:/ iniobj");
- /*iniobj dobj_2237__STRING_LENGTH*/
- if (!/*_.VALDATA___V2243*/ curfptr[2242]) /*_.VALDATA___V2243*/ curfptr[2242] = (void*)&cdat->dobj_2237__STRING_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2237__STRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2237__STRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2237__STRING_LENGTH.obj_hash = 167173217;
-  cdat->dobj_2237__STRING_LENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2237__STRING_LENGTH));
- 
- /*inimult dtup_2238__STRING_LENGTH*/
- /*_.VALTUP___V2249*/ curfptr[2248] = (void*)&cdat->dtup_2238__STRING_LENGTH;
-  cdat->dtup_2238__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2238__STRING_LENGTH.nbval = 3;
- /*inimult dtup_2239__STRING_LENGTH*/
- /*_.VALTUP___V2246*/ curfptr[2245] = (void*)&cdat->dtup_2239__STRING_LENGTH;
-  cdat->dtup_2239__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2239__STRING_LENGTH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1313:/ iniobj");
- /*iniobj dobj_2240*/
- if (!/*_.VALDATA___V2245*/ curfptr[2244]) /*_.VALDATA___V2245*/ curfptr[2244] = (void*)&cdat->dobj_2240;
-  melt_assertmsg("iniobj checkdiscr dobj_2240", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2240.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2240.obj_num = 0;
-  cdat->dobj_2240.obj_hash = 553440021;
-  cdat->dobj_2240.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2240));
- 
- /*inistring dstr_2241__melt_string_leng*/
- /*_.VALSTR___V2247*/ curfptr[2246] = (void*)&cdat->dstr_2241__melt_string_leng;
-  cdat->dstr_2241__melt_string_leng.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2241__melt_string_leng.val, "melt_string_length((melt_ptr_t)(", sizeof(cdat->dstr_2241__melt_string_leng.val)-1);
- 
- /*inistring dstr_2242__*/
- /*_.VALSTR___V2248*/ curfptr[2247] = (void*)&cdat->dstr_2242__;
-  cdat->dstr_2242__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2242__.val, "))", sizeof(cdat->dstr_2242__.val)-1);
- 
- /*inistring dstr_2243__STRING_LENGTH*/
- /*_.VALSTR___V2244*/ curfptr[2243] = (void*)&cdat->dstr_2243__STRING_LENGTH;
-  cdat->dstr_2243__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2243__STRING_LENGTH.val, "STRING_LENGTH", sizeof(cdat->dstr_2243__STRING_LENGTH.val)-1);
- 
- /*iniobj dsym_2244__STRING_*/
- if (!/*_.VALDATA___V2250*/ curfptr[2249]) /*_.VALDATA___V2250*/ curfptr[2249] = (void*)&cdat->dsym_2244__STRING_;
-  melt_assertmsg("iniobj checkdiscr dsym_2244__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2244__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2244__STRING_.obj_hash = 1039023232;
-  cdat->dsym_2244__STRING_.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2244__STRING_));
- 
- /*inistring dstr_2245__STRING_*/
- /*_.VALSTR___V2251*/ curfptr[2250] = (void*)&cdat->dstr_2245__STRING_;
-  cdat->dstr_2245__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2245__STRING_.val, "STRING=", sizeof(cdat->dstr_2245__STRING_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1316:/ iniobj");
- /*iniobj dobj_2246__STRING_*/
- if (!/*_.VALDATA___V2252*/ curfptr[2251]) /*_.VALDATA___V2252*/ curfptr[2251] = (void*)&cdat->dobj_2246__STRING_;
-  melt_assertmsg("iniobj checkdiscr dobj_2246__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2246__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2246__STRING_.obj_hash = 24436040;
-  cdat->dobj_2246__STRING_.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2246__STRING_));
- 
- /*inimult dtup_2247__STRING_*/
- /*_.VALTUP___V2260*/ curfptr[2259] = (void*)&cdat->dtup_2247__STRING_;
-  cdat->dtup_2247__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2247__STRING_.nbval = 5;
- /*inimult dtup_2248__STRING_*/
- /*_.VALTUP___V2256*/ curfptr[2255] = (void*)&cdat->dtup_2248__STRING_;
-  cdat->dtup_2248__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2248__STRING_.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1316:/ iniobj");
- /*iniobj dobj_2249*/
- if (!/*_.VALDATA___V2254*/ curfptr[2253]) /*_.VALDATA___V2254*/ curfptr[2253] = (void*)&cdat->dobj_2249;
-  melt_assertmsg("iniobj checkdiscr dobj_2249", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2249.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2249.obj_num = 0;
-  cdat->dobj_2249.obj_hash = 782037390;
-  cdat->dobj_2249.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2249));
- 
- MELT_LOCATION("warmelt-first.melt:1316:/ iniobj");
- /*iniobj dobj_2250*/
- if (!/*_.VALDATA___V2255*/ curfptr[2254]) /*_.VALDATA___V2255*/ curfptr[2254] = (void*)&cdat->dobj_2250;
-  melt_assertmsg("iniobj checkdiscr dobj_2250", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2250.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2250.obj_num = 1;
-  cdat->dobj_2250.obj_hash = 212135784;
-  cdat->dobj_2250.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2250));
- 
- /*inistring dstr_2251__melt_string_same*/
- /*_.VALSTR___V2257*/ curfptr[2256] = (void*)&cdat->dstr_2251__melt_string_same;
-  cdat->dstr_2251__melt_string_same.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2251__melt_string_same.val, "melt_string_same((", sizeof(cdat->dstr_2251__melt_string_same.val)-1);
- 
- /*inistring dstr_2252__*/
- /*_.VALSTR___V2258*/ curfptr[2257] = (void*)&cdat->dstr_2252__;
-  cdat->dstr_2252__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2252__.val, "), (", sizeof(cdat->dstr_2252__.val)-1);
- 
- /*inistring dstr_2253__*/
- /*_.VALSTR___V2259*/ curfptr[2258] = (void*)&cdat->dstr_2253__;
-  cdat->dstr_2253__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2253__.val, "))", sizeof(cdat->dstr_2253__.val)-1);
- 
- /*inistring dstr_2254__STRING_*/
- /*_.VALSTR___V2253*/ curfptr[2252] = (void*)&cdat->dstr_2254__STRING_;
-  cdat->dstr_2254__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2254__STRING_.val, "STRING=", sizeof(cdat->dstr_2254__STRING_.val)-1);
- 
- /*iniobj dsym_2255__STRING_*/
- if (!/*_.VALDATA___V2261*/ curfptr[2260]) /*_.VALDATA___V2261*/ curfptr[2260] = (void*)&cdat->dsym_2255__STRING_;
-  melt_assertmsg("iniobj checkdiscr dsym_2255__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2255__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2255__STRING_.obj_hash = 677989694;
-  cdat->dsym_2255__STRING_.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2255__STRING_));
- 
- /*inistring dstr_2256__STRING_*/
- /*_.VALSTR___V2262*/ curfptr[2261] = (void*)&cdat->dstr_2256__STRING_;
-  cdat->dstr_2256__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2256__STRING_.val, "STRING<", sizeof(cdat->dstr_2256__STRING_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1319:/ iniobj");
- /*iniobj dobj_2257__STRING_*/
- if (!/*_.VALDATA___V2263*/ curfptr[2262]) /*_.VALDATA___V2263*/ curfptr[2262] = (void*)&cdat->dobj_2257__STRING_;
-  melt_assertmsg("iniobj checkdiscr dobj_2257__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2257__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2257__STRING_.obj_hash = 521213125;
-  cdat->dobj_2257__STRING_.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2257__STRING_));
- 
- /*inimult dtup_2258__STRING_*/
- /*_.VALTUP___V2271*/ curfptr[2270] = (void*)&cdat->dtup_2258__STRING_;
-  cdat->dtup_2258__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2258__STRING_.nbval = 5;
- /*inimult dtup_2259__STRING_*/
- /*_.VALTUP___V2267*/ curfptr[2266] = (void*)&cdat->dtup_2259__STRING_;
-  cdat->dtup_2259__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2259__STRING_.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1319:/ iniobj");
- /*iniobj dobj_2260*/
- if (!/*_.VALDATA___V2265*/ curfptr[2264]) /*_.VALDATA___V2265*/ curfptr[2264] = (void*)&cdat->dobj_2260;
-  melt_assertmsg("iniobj checkdiscr dobj_2260", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2260.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2260.obj_num = 0;
-  cdat->dobj_2260.obj_hash = 683229872;
-  cdat->dobj_2260.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2260));
- 
- MELT_LOCATION("warmelt-first.melt:1319:/ iniobj");
- /*iniobj dobj_2261*/
- if (!/*_.VALDATA___V2266*/ curfptr[2265]) /*_.VALDATA___V2266*/ curfptr[2265] = (void*)&cdat->dobj_2261;
-  melt_assertmsg("iniobj checkdiscr dobj_2261", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2261.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2261.obj_num = 1;
-  cdat->dobj_2261.obj_hash = 274682970;
-  cdat->dobj_2261.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2261));
- 
- /*inistring dstr_2262__melt_string_less*/
- /*_.VALSTR___V2268*/ curfptr[2267] = (void*)&cdat->dstr_2262__melt_string_less;
-  cdat->dstr_2262__melt_string_less.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2262__melt_string_less.val, "melt_string_less((melt_ptr_t)(", sizeof(cdat->dstr_2262__melt_string_less.val)-1);
- 
- /*inistring dstr_2263__melt_ptr_t_*/
- /*_.VALSTR___V2269*/ curfptr[2268] = (void*)&cdat->dstr_2263__melt_ptr_t_;
-  cdat->dstr_2263__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2263__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2263__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2264__*/
- /*_.VALSTR___V2270*/ curfptr[2269] = (void*)&cdat->dstr_2264__;
-  cdat->dstr_2264__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2264__.val, "))", sizeof(cdat->dstr_2264__.val)-1);
- 
- /*inistring dstr_2265__STRING_*/
- /*_.VALSTR___V2264*/ curfptr[2263] = (void*)&cdat->dstr_2265__STRING_;
-  cdat->dstr_2265__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2265__STRING_.val, "STRING<", sizeof(cdat->dstr_2265__STRING_.val)-1);
- 
- /*iniobj dsym_2266__STRING_*/
- if (!/*_.VALDATA___V2272*/ curfptr[2271]) /*_.VALDATA___V2272*/ curfptr[2271] = (void*)&cdat->dsym_2266__STRING_;
-  melt_assertmsg("iniobj checkdiscr dsym_2266__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2266__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2266__STRING_.obj_hash = 403479518;
-  cdat->dsym_2266__STRING_.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2266__STRING_));
- 
- /*inistring dstr_2267__STRING_*/
- /*_.VALSTR___V2273*/ curfptr[2272] = (void*)&cdat->dstr_2267__STRING_;
-  cdat->dstr_2267__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2267__STRING_.val, "STRING>", sizeof(cdat->dstr_2267__STRING_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1322:/ iniobj");
- /*iniobj dobj_2268__STRING_*/
- if (!/*_.VALDATA___V2274*/ curfptr[2273]) /*_.VALDATA___V2274*/ curfptr[2273] = (void*)&cdat->dobj_2268__STRING_;
-  melt_assertmsg("iniobj checkdiscr dobj_2268__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2268__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2268__STRING_.obj_hash = 847793660;
-  cdat->dobj_2268__STRING_.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2268__STRING_));
- 
- /*inimult dtup_2269__STRING_*/
- /*_.VALTUP___V2282*/ curfptr[2281] = (void*)&cdat->dtup_2269__STRING_;
-  cdat->dtup_2269__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2269__STRING_.nbval = 5;
- /*inimult dtup_2270__STRING_*/
- /*_.VALTUP___V2278*/ curfptr[2277] = (void*)&cdat->dtup_2270__STRING_;
-  cdat->dtup_2270__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2270__STRING_.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1322:/ iniobj");
- /*iniobj dobj_2271*/
- if (!/*_.VALDATA___V2276*/ curfptr[2275]) /*_.VALDATA___V2276*/ curfptr[2275] = (void*)&cdat->dobj_2271;
-  melt_assertmsg("iniobj checkdiscr dobj_2271", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2271.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2271.obj_num = 0;
-  cdat->dobj_2271.obj_hash = 591304965;
-  cdat->dobj_2271.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2271));
- 
- MELT_LOCATION("warmelt-first.melt:1322:/ iniobj");
- /*iniobj dobj_2272*/
- if (!/*_.VALDATA___V2277*/ curfptr[2276]) /*_.VALDATA___V2277*/ curfptr[2276] = (void*)&cdat->dobj_2272;
-  melt_assertmsg("iniobj checkdiscr dobj_2272", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2272.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2272.obj_num = 1;
-  cdat->dobj_2272.obj_hash = 337355605;
-  cdat->dobj_2272.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2272));
- 
- /*inistring dstr_2273__melt_string_less*/
- /*_.VALSTR___V2279*/ curfptr[2278] = (void*)&cdat->dstr_2273__melt_string_less;
-  cdat->dstr_2273__melt_string_less.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2273__melt_string_less.val, "melt_string_less((melt_ptr_t)(", sizeof(cdat->dstr_2273__melt_string_less.val)-1);
- 
- /*inistring dstr_2274__melt_ptr_t_*/
- /*_.VALSTR___V2280*/ curfptr[2279] = (void*)&cdat->dstr_2274__melt_ptr_t_;
-  cdat->dstr_2274__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2274__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2274__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2275__*/
- /*_.VALSTR___V2281*/ curfptr[2280] = (void*)&cdat->dstr_2275__;
-  cdat->dstr_2275__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2275__.val, "))", sizeof(cdat->dstr_2275__.val)-1);
- 
- /*inistring dstr_2276__STRING_*/
- /*_.VALSTR___V2275*/ curfptr[2274] = (void*)&cdat->dstr_2276__STRING_;
-  cdat->dstr_2276__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2276__STRING_.val, "STRING>", sizeof(cdat->dstr_2276__STRING_.val)-1);
- 
- /*iniobj dsym_2277__SPLIT_STRING_SPACE*/
- if (!/*_.VALDATA___V2283*/ curfptr[2282]) /*_.VALDATA___V2283*/ curfptr[2282] = (void*)&cdat->dsym_2277__SPLIT_STRING_SPACE;
-  melt_assertmsg("iniobj checkdiscr dsym_2277__SPLIT_STRING_SPACE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2277__SPLIT_STRING_SPACE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2277__SPLIT_STRING_SPACE.obj_hash = 726019437;
-  cdat->dsym_2277__SPLIT_STRING_SPACE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2277__SPLIT_STRING_SPACE));
- 
- /*inistring dstr_2278__SPLIT_STRING_SPA*/
- /*_.VALSTR___V2284*/ curfptr[2283] = (void*)&cdat->dstr_2278__SPLIT_STRING_SPA;
-  cdat->dstr_2278__SPLIT_STRING_SPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2278__SPLIT_STRING_SPA.val, "SPLIT_STRING_SPACE", sizeof(cdat->dstr_2278__SPLIT_STRING_SPA.val)-1);
+ /*iniobj dobj_2150*/
+ if (!/*_.VALDATA___V2155*/ curfptr[2154]) /*_.VALDATA___V2155*/ curfptr[2154] = (void*)&cdat->dobj_2150;
+  melt_assertmsg("iniobj checkdiscr dobj_2150", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2150.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2150.obj_num = 1;
+  cdat->dobj_2150.obj_hash = 767549407;
+  cdat->dobj_2150.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2150));
+ 
+ /*inistring dstr_2151__meltgc_add_out_*/
+ /*_.VALSTR___V2157*/ curfptr[2156] = (void*)&cdat->dstr_2151__meltgc_add_out_;
+  cdat->dstr_2151__meltgc_add_out_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2151__meltgc_add_out_.val, "meltgc_add_out((melt_ptr_t)(", sizeof(cdat->dstr_2151__meltgc_add_out_.val)-1);
+ 
+ /*inistring dstr_2152__melt_ro*/
+ /*_.VALSTR___V2158*/ curfptr[2157] = (void*)&cdat->dstr_2152__melt_ro;
+  cdat->dstr_2152__melt_ro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2152__melt_ro.val, "), \n\t\t   melt_routine_descrstr((melt_ptr_t)(", sizeof(cdat->dstr_2152__melt_ro.val)-1);
+ 
+ /*inistring dstr_2153__*/
+ /*_.VALSTR___V2159*/ curfptr[2158] = (void*)&cdat->dstr_2153__;
+  cdat->dstr_2153__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2153__.val, ")))", sizeof(cdat->dstr_2153__.val)-1);
+ 
+ /*inistring dstr_2154__ADD2OUT_ROUTINED*/
+ /*_.VALSTR___V2153*/ curfptr[2152] = (void*)&cdat->dstr_2154__ADD2OUT_ROUTINED;
+  cdat->dstr_2154__ADD2OUT_ROUTINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2154__ADD2OUT_ROUTINED.val, "ADD2OUT_ROUTINEDESCR", sizeof(cdat->dstr_2154__ADD2OUT_ROUTINED.val)-1);
+ 
+ /*iniobj dsym_2155__IS_STRING*/
+ if (!/*_.VALDATA___V2161*/ curfptr[2160]) /*_.VALDATA___V2161*/ curfptr[2160] = (void*)&cdat->dsym_2155__IS_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2155__IS_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2155__IS_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2155__IS_STRING.obj_hash = 16308396;
+  cdat->dsym_2155__IS_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2155__IS_STRING));
+ 
+ /*inistring dstr_2156__IS_STRING*/
+ /*_.VALSTR___V2162*/ curfptr[2161] = (void*)&cdat->dstr_2156__IS_STRING;
+  cdat->dstr_2156__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2156__IS_STRING.val, "IS_STRING", sizeof(cdat->dstr_2156__IS_STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1287:/ iniobj");
+ /*iniobj dobj_2157__IS_STRING*/
+ if (!/*_.VALDATA___V2163*/ curfptr[2162]) /*_.VALDATA___V2163*/ curfptr[2162] = (void*)&cdat->dobj_2157__IS_STRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2157__IS_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2157__IS_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2157__IS_STRING.obj_hash = 1047145220;
+  cdat->dobj_2157__IS_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2157__IS_STRING));
+ 
+ /*inimult dtup_2158__IS_STRING*/
+ /*_.VALTUP___V2169*/ curfptr[2168] = (void*)&cdat->dtup_2158__IS_STRING;
+  cdat->dtup_2158__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2158__IS_STRING.nbval = 3;
+ /*inimult dtup_2159__IS_STRING*/
+ /*_.VALTUP___V2166*/ curfptr[2165] = (void*)&cdat->dtup_2159__IS_STRING;
+  cdat->dtup_2159__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2159__IS_STRING.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1287:/ iniobj");
+ /*iniobj dobj_2160*/
+ if (!/*_.VALDATA___V2165*/ curfptr[2164]) /*_.VALDATA___V2165*/ curfptr[2164] = (void*)&cdat->dobj_2160;
+  melt_assertmsg("iniobj checkdiscr dobj_2160", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2160.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2160.obj_num = 0;
+  cdat->dobj_2160.obj_hash = 907868783;
+  cdat->dobj_2160.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2160));
+ 
+ /*inistring dstr_2161__melt_magic_disc*/
+ /*_.VALSTR___V2167*/ curfptr[2166] = (void*)&cdat->dstr_2161__melt_magic_disc;
+  cdat->dstr_2161__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2161__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2161__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_2162__OBMAG_STRI*/
+ /*_.VALSTR___V2168*/ curfptr[2167] = (void*)&cdat->dstr_2162__OBMAG_STRI;
+  cdat->dstr_2162__OBMAG_STRI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2162__OBMAG_STRI.val, ")) == OBMAG_STRING)", sizeof(cdat->dstr_2162__OBMAG_STRI.val)-1);
+ 
+ /*inistring dstr_2163__IS_STRING*/
+ /*_.VALSTR___V2164*/ curfptr[2163] = (void*)&cdat->dstr_2163__IS_STRING;
+  cdat->dstr_2163__IS_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2163__IS_STRING.val, "IS_STRING", sizeof(cdat->dstr_2163__IS_STRING.val)-1);
+ 
+ /*iniobj dsym_2164__S*/
+ if (!/*_.VALDATA___V2170*/ curfptr[2169]) /*_.VALDATA___V2170*/ curfptr[2169] = (void*)&cdat->dsym_2164__S;
+  melt_assertmsg("iniobj checkdiscr dsym_2164__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2164__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2164__S.obj_hash = 471163706;
+  cdat->dsym_2164__S.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2164__S));
+ 
+ /*inistring dstr_2165__S*/
+ /*_.VALSTR___V2171*/ curfptr[2170] = (void*)&cdat->dstr_2165__S;
+  cdat->dstr_2165__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2165__S.val, "==S", sizeof(cdat->dstr_2165__S.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1291:/ iniobj");
+ /*iniobj dobj_2166__S*/
+ if (!/*_.VALDATA___V2172*/ curfptr[2171]) /*_.VALDATA___V2172*/ curfptr[2171] = (void*)&cdat->dobj_2166__S;
+  melt_assertmsg("iniobj checkdiscr dobj_2166__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2166__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2166__S.obj_hash = 774967828;
+  cdat->dobj_2166__S.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2166__S));
+ 
+ /*inimult dtup_2167__S*/
+ /*_.VALTUP___V2184*/ curfptr[2183] = (void*)&cdat->dtup_2167__S;
+  cdat->dtup_2167__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2167__S.nbval = 5;
+ /*inimult dtup_2168__S*/
+ /*_.VALTUP___V2180*/ curfptr[2179] = (void*)&cdat->dtup_2168__S;
+  cdat->dtup_2168__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2168__S.nbval = 2;
+ /*iniobj dsym_2169__S1*/
+ if (!/*_.VALDATA___V2175*/ curfptr[2174]) /*_.VALDATA___V2175*/ curfptr[2174] = (void*)&cdat->dsym_2169__S1;
+  melt_assertmsg("iniobj checkdiscr dsym_2169__S1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2169__S1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2169__S1.obj_hash = 99925572;
+  cdat->dsym_2169__S1.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2169__S1));
+ 
+ /*inistring dstr_2170__S1*/
+ /*_.VALSTR___V2176*/ curfptr[2175] = (void*)&cdat->dstr_2170__S1;
+  cdat->dstr_2170__S1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2170__S1.val, "S1", sizeof(cdat->dstr_2170__S1.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1291:/ iniobj");
+ /*iniobj dobj_2171*/
+ if (!/*_.VALDATA___V2174*/ curfptr[2173]) /*_.VALDATA___V2174*/ curfptr[2173] = (void*)&cdat->dobj_2171;
+  melt_assertmsg("iniobj checkdiscr dobj_2171", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2171.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2171.obj_num = 0;
+  cdat->dobj_2171.obj_hash = 284898639;
+  cdat->dobj_2171.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2171));
+ 
+ /*iniobj dsym_2172__S2*/
+ if (!/*_.VALDATA___V2178*/ curfptr[2177]) /*_.VALDATA___V2178*/ curfptr[2177] = (void*)&cdat->dsym_2172__S2;
+  melt_assertmsg("iniobj checkdiscr dsym_2172__S2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2172__S2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2172__S2.obj_hash = 5362580;
+  cdat->dsym_2172__S2.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2172__S2));
+ 
+ /*inistring dstr_2173__S2*/
+ /*_.VALSTR___V2179*/ curfptr[2178] = (void*)&cdat->dstr_2173__S2;
+  cdat->dstr_2173__S2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2173__S2.val, "S2", sizeof(cdat->dstr_2173__S2.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1291:/ iniobj");
+ /*iniobj dobj_2174*/
+ if (!/*_.VALDATA___V2177*/ curfptr[2176]) /*_.VALDATA___V2177*/ curfptr[2176] = (void*)&cdat->dobj_2174;
+  melt_assertmsg("iniobj checkdiscr dobj_2174", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2174.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2174.obj_num = 1;
+  cdat->dobj_2174.obj_hash = 383789653;
+  cdat->dobj_2174.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2174));
+ 
+ /*inistring dstr_2175__melt_string_same*/
+ /*_.VALSTR___V2181*/ curfptr[2180] = (void*)&cdat->dstr_2175__melt_string_same;
+  cdat->dstr_2175__melt_string_same.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2175__melt_string_same.val, "melt_string_same((melt_ptr_t)(", sizeof(cdat->dstr_2175__melt_string_same.val)-1);
+ 
+ /*inistring dstr_2176__melt_ptr_t_*/
+ /*_.VALSTR___V2182*/ curfptr[2181] = (void*)&cdat->dstr_2176__melt_ptr_t_;
+  cdat->dstr_2176__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2176__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2176__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2177__*/
+ /*_.VALSTR___V2183*/ curfptr[2182] = (void*)&cdat->dstr_2177__;
+  cdat->dstr_2177__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2177__.val, "))", sizeof(cdat->dstr_2177__.val)-1);
+ 
+ /*inistring dstr_2178__S*/
+ /*_.VALSTR___V2173*/ curfptr[2172] = (void*)&cdat->dstr_2178__S;
+  cdat->dstr_2178__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2178__S.val, "==S", sizeof(cdat->dstr_2178__S.val)-1);
+ 
+ /*iniobj dsym_2179__S*/
+ if (!/*_.VALDATA___V2185*/ curfptr[2184]) /*_.VALDATA___V2185*/ curfptr[2184] = (void*)&cdat->dsym_2179__S;
+  melt_assertmsg("iniobj checkdiscr dsym_2179__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2179__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2179__S.obj_hash = 583826606;
+  cdat->dsym_2179__S.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2179__S));
+ 
+ /*inistring dstr_2180__S*/
+ /*_.VALSTR___V2186*/ curfptr[2185] = (void*)&cdat->dstr_2180__S;
+  cdat->dstr_2180__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2180__S.val, "!=S", sizeof(cdat->dstr_2180__S.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1294:/ iniobj");
+ /*iniobj dobj_2181__S*/
+ if (!/*_.VALDATA___V2187*/ curfptr[2186]) /*_.VALDATA___V2187*/ curfptr[2186] = (void*)&cdat->dobj_2181__S;
+  melt_assertmsg("iniobj checkdiscr dobj_2181__S", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2181__S.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2181__S.obj_hash = 932633268;
+  cdat->dobj_2181__S.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2181__S));
+ 
+ /*inimult dtup_2182__S*/
+ /*_.VALTUP___V2195*/ curfptr[2194] = (void*)&cdat->dtup_2182__S;
+  cdat->dtup_2182__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2182__S.nbval = 5;
+ /*inimult dtup_2183__S*/
+ /*_.VALTUP___V2191*/ curfptr[2190] = (void*)&cdat->dtup_2183__S;
+  cdat->dtup_2183__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2183__S.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1294:/ iniobj");
+ /*iniobj dobj_2184*/
+ if (!/*_.VALDATA___V2189*/ curfptr[2188]) /*_.VALDATA___V2189*/ curfptr[2188] = (void*)&cdat->dobj_2184;
+  melt_assertmsg("iniobj checkdiscr dobj_2184", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2184.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2184.obj_num = 0;
+  cdat->dobj_2184.obj_hash = 520924796;
+  cdat->dobj_2184.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2184));
+ 
+ MELT_LOCATION("warmelt-first.melt:1294:/ iniobj");
+ /*iniobj dobj_2185*/
+ if (!/*_.VALDATA___V2190*/ curfptr[2189]) /*_.VALDATA___V2190*/ curfptr[2189] = (void*)&cdat->dobj_2185;
+  melt_assertmsg("iniobj checkdiscr dobj_2185", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2185.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2185.obj_num = 1;
+  cdat->dobj_2185.obj_hash = 172812264;
+  cdat->dobj_2185.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2185));
+ 
+ /*inistring dstr_2186__melt_string_sam*/
+ /*_.VALSTR___V2192*/ curfptr[2191] = (void*)&cdat->dstr_2186__melt_string_sam;
+  cdat->dstr_2186__melt_string_sam.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2186__melt_string_sam.val, "!melt_string_same((melt_ptr_t)(", sizeof(cdat->dstr_2186__melt_string_sam.val)-1);
+ 
+ /*inistring dstr_2187__melt_ptr_t_*/
+ /*_.VALSTR___V2193*/ curfptr[2192] = (void*)&cdat->dstr_2187__melt_ptr_t_;
+  cdat->dstr_2187__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2187__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2187__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2188__*/
+ /*_.VALSTR___V2194*/ curfptr[2193] = (void*)&cdat->dstr_2188__;
+  cdat->dstr_2188__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2188__.val, "))", sizeof(cdat->dstr_2188__.val)-1);
+ 
+ /*inistring dstr_2189__S*/
+ /*_.VALSTR___V2188*/ curfptr[2187] = (void*)&cdat->dstr_2189__S;
+  cdat->dstr_2189__S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2189__S.val, "!=S", sizeof(cdat->dstr_2189__S.val)-1);
+ 
+ /*iniobj dsym_2190__MAKE_STRING*/
+ if (!/*_.VALDATA___V2196*/ curfptr[2195]) /*_.VALDATA___V2196*/ curfptr[2195] = (void*)&cdat->dsym_2190__MAKE_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2190__MAKE_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2190__MAKE_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2190__MAKE_STRING.obj_hash = 687493068;
+  cdat->dsym_2190__MAKE_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2190__MAKE_STRING));
+ 
+ /*inistring dstr_2191__MAKE_STRING*/
+ /*_.VALSTR___V2197*/ curfptr[2196] = (void*)&cdat->dstr_2191__MAKE_STRING;
+  cdat->dstr_2191__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2191__MAKE_STRING.val, "MAKE_STRING", sizeof(cdat->dstr_2191__MAKE_STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1298:/ iniobj");
+ /*iniobj dobj_2192__MAKE_STRING*/
+ if (!/*_.VALDATA___V2198*/ curfptr[2197]) /*_.VALDATA___V2198*/ curfptr[2197] = (void*)&cdat->dobj_2192__MAKE_STRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2192__MAKE_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2192__MAKE_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2192__MAKE_STRING.obj_hash = 824568991;
+  cdat->dobj_2192__MAKE_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2192__MAKE_STRING));
+ 
+ /*inimult dtup_2193__MAKE_STRING*/
+ /*_.VALTUP___V2208*/ curfptr[2207] = (void*)&cdat->dtup_2193__MAKE_STRING;
+  cdat->dtup_2193__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2193__MAKE_STRING.nbval = 5;
+ /*inimult dtup_2194__MAKE_STRING*/
+ /*_.VALTUP___V2204*/ curfptr[2203] = (void*)&cdat->dtup_2194__MAKE_STRING;
+  cdat->dtup_2194__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2194__MAKE_STRING.nbval = 2;
+ /*iniobj dsym_2195__DIS*/
+ if (!/*_.VALDATA___V2201*/ curfptr[2200]) /*_.VALDATA___V2201*/ curfptr[2200] = (void*)&cdat->dsym_2195__DIS;
+  melt_assertmsg("iniobj checkdiscr dsym_2195__DIS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2195__DIS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2195__DIS.obj_hash = 83284668;
+  cdat->dsym_2195__DIS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2195__DIS));
+ 
+ /*inistring dstr_2196__DIS*/
+ /*_.VALSTR___V2202*/ curfptr[2201] = (void*)&cdat->dstr_2196__DIS;
+  cdat->dstr_2196__DIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2196__DIS.val, "DIS", sizeof(cdat->dstr_2196__DIS.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1298:/ iniobj");
+ /*iniobj dobj_2197*/
+ if (!/*_.VALDATA___V2200*/ curfptr[2199]) /*_.VALDATA___V2200*/ curfptr[2199] = (void*)&cdat->dobj_2197;
+  melt_assertmsg("iniobj checkdiscr dobj_2197", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2197.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2197.obj_num = 0;
+  cdat->dobj_2197.obj_hash = 154977607;
+  cdat->dobj_2197.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2197));
+ 
+ MELT_LOCATION("warmelt-first.melt:1298:/ iniobj");
+ /*iniobj dobj_2198*/
+ if (!/*_.VALDATA___V2203*/ curfptr[2202]) /*_.VALDATA___V2203*/ curfptr[2202] = (void*)&cdat->dobj_2198;
+  melt_assertmsg("iniobj checkdiscr dobj_2198", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2198.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2198.obj_num = 1;
+  cdat->dobj_2198.obj_hash = 882999670;
+  cdat->dobj_2198.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2198));
+ 
+ /*inistring dstr_2199__meltgc_new_stri*/
+ /*_.VALSTR___V2205*/ curfptr[2204] = (void*)&cdat->dstr_2199__meltgc_new_stri;
+  cdat->dstr_2199__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2199__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2199__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_2200__melt_st*/
+ /*_.VALSTR___V2206*/ curfptr[2205] = (void*)&cdat->dstr_2200__melt_st;
+  cdat->dstr_2200__melt_st.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2200__melt_st.val, "), \n\t\t\t  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2200__melt_st.val)-1);
+ 
+ /*inistring dstr_2201__*/
+ /*_.VALSTR___V2207*/ curfptr[2206] = (void*)&cdat->dstr_2201__;
+  cdat->dstr_2201__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2201__.val, "))))", sizeof(cdat->dstr_2201__.val)-1);
+ 
+ /*inistring dstr_2202__MAKE_STRING*/
+ /*_.VALSTR___V2199*/ curfptr[2198] = (void*)&cdat->dstr_2202__MAKE_STRING;
+  cdat->dstr_2202__MAKE_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2202__MAKE_STRING.val, "MAKE_STRING", sizeof(cdat->dstr_2202__MAKE_STRING.val)-1);
+ 
+ /*iniobj dsym_2203__MAKE_STRINGCONST*/
+ if (!/*_.VALDATA___V2209*/ curfptr[2208]) /*_.VALDATA___V2209*/ curfptr[2208] = (void*)&cdat->dsym_2203__MAKE_STRINGCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_2203__MAKE_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2203__MAKE_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2203__MAKE_STRINGCONST.obj_hash = 260954798;
+  cdat->dsym_2203__MAKE_STRINGCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2203__MAKE_STRINGCONST));
+ 
+ /*inistring dstr_2204__MAKE_STRINGCONST*/
+ /*_.VALSTR___V2210*/ curfptr[2209] = (void*)&cdat->dstr_2204__MAKE_STRINGCONST;
+  cdat->dstr_2204__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2204__MAKE_STRINGCONST.val, "MAKE_STRINGCONST", sizeof(cdat->dstr_2204__MAKE_STRINGCONST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1302:/ iniobj");
+ /*iniobj dobj_2205__MAKE_STRINGCONST*/
+ if (!/*_.VALDATA___V2211*/ curfptr[2210]) /*_.VALDATA___V2211*/ curfptr[2210] = (void*)&cdat->dobj_2205__MAKE_STRINGCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_2205__MAKE_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2205__MAKE_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2205__MAKE_STRINGCONST.obj_hash = 946467087;
+  cdat->dobj_2205__MAKE_STRINGCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2205__MAKE_STRINGCONST));
+ 
+ /*inimult dtup_2206__MAKE_STRINGCONST*/
+ /*_.VALTUP___V2219*/ curfptr[2218] = (void*)&cdat->dtup_2206__MAKE_STRINGCONST;
+  cdat->dtup_2206__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2206__MAKE_STRINGCONST.nbval = 5;
+ /*inimult dtup_2207__MAKE_STRINGCONST*/
+ /*_.VALTUP___V2215*/ curfptr[2214] = (void*)&cdat->dtup_2207__MAKE_STRINGCONST;
+  cdat->dtup_2207__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2207__MAKE_STRINGCONST.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1302:/ iniobj");
+ /*iniobj dobj_2208*/
+ if (!/*_.VALDATA___V2213*/ curfptr[2212]) /*_.VALDATA___V2213*/ curfptr[2212] = (void*)&cdat->dobj_2208;
+  melt_assertmsg("iniobj checkdiscr dobj_2208", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2208.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2208.obj_num = 0;
+  cdat->dobj_2208.obj_hash = 716161657;
+  cdat->dobj_2208.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2208));
+ 
+ MELT_LOCATION("warmelt-first.melt:1302:/ iniobj");
+ /*iniobj dobj_2209*/
+ if (!/*_.VALDATA___V2214*/ curfptr[2213]) /*_.VALDATA___V2214*/ curfptr[2213] = (void*)&cdat->dobj_2209;
+  melt_assertmsg("iniobj checkdiscr dobj_2209", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2209.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2209.obj_num = 1;
+  cdat->dobj_2209.obj_hash = 650305036;
+  cdat->dobj_2209.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2209));
+ 
+ /*inistring dstr_2210__meltgc_new_stri*/
+ /*_.VALSTR___V2216*/ curfptr[2215] = (void*)&cdat->dstr_2210__meltgc_new_stri;
+  cdat->dstr_2210__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2210__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2210__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_2211__*/
+ /*_.VALSTR___V2217*/ curfptr[2216] = (void*)&cdat->dstr_2211__;
+  cdat->dstr_2211__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2211__.val, "), (", sizeof(cdat->dstr_2211__.val)-1);
+ 
+ /*inistring dstr_2212__*/
+ /*_.VALSTR___V2218*/ curfptr[2217] = (void*)&cdat->dstr_2212__;
+  cdat->dstr_2212__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2212__.val, ")))", sizeof(cdat->dstr_2212__.val)-1);
+ 
+ /*inistring dstr_2213__MAKE_STRINGCONST*/
+ /*_.VALSTR___V2212*/ curfptr[2211] = (void*)&cdat->dstr_2213__MAKE_STRINGCONST;
+  cdat->dstr_2213__MAKE_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2213__MAKE_STRINGCONST.val, "MAKE_STRINGCONST", sizeof(cdat->dstr_2213__MAKE_STRINGCONST.val)-1);
+ 
+ /*iniobj dsym_2214__IS_STRINGCONST*/
+ if (!/*_.VALDATA___V2220*/ curfptr[2219]) /*_.VALDATA___V2220*/ curfptr[2219] = (void*)&cdat->dsym_2214__IS_STRINGCONST;
+  melt_assertmsg("iniobj checkdiscr dsym_2214__IS_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2214__IS_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2214__IS_STRINGCONST.obj_hash = 154220708;
+  cdat->dsym_2214__IS_STRINGCONST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2214__IS_STRINGCONST));
+ 
+ /*inistring dstr_2215__IS_STRINGCONST*/
+ /*_.VALSTR___V2221*/ curfptr[2220] = (void*)&cdat->dstr_2215__IS_STRINGCONST;
+  cdat->dstr_2215__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2215__IS_STRINGCONST.val, "IS_STRINGCONST", sizeof(cdat->dstr_2215__IS_STRINGCONST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1305:/ iniobj");
+ /*iniobj dobj_2216__IS_STRINGCONST*/
+ if (!/*_.VALDATA___V2222*/ curfptr[2221]) /*_.VALDATA___V2222*/ curfptr[2221] = (void*)&cdat->dobj_2216__IS_STRINGCONST;
+  melt_assertmsg("iniobj checkdiscr dobj_2216__IS_STRINGCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2216__IS_STRINGCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2216__IS_STRINGCONST.obj_hash = 28143333;
+  cdat->dobj_2216__IS_STRINGCONST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2216__IS_STRINGCONST));
+ 
+ /*inimult dtup_2217__IS_STRINGCONST*/
+ /*_.VALTUP___V2232*/ curfptr[2231] = (void*)&cdat->dtup_2217__IS_STRINGCONST;
+  cdat->dtup_2217__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2217__IS_STRINGCONST.nbval = 5;
+ /*inimult dtup_2218__IS_STRINGCONST*/
+ /*_.VALTUP___V2228*/ curfptr[2227] = (void*)&cdat->dtup_2218__IS_STRINGCONST;
+  cdat->dtup_2218__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2218__IS_STRINGCONST.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1305:/ iniobj");
+ /*iniobj dobj_2219*/
+ if (!/*_.VALDATA___V2224*/ curfptr[2223]) /*_.VALDATA___V2224*/ curfptr[2223] = (void*)&cdat->dobj_2219;
+  melt_assertmsg("iniobj checkdiscr dobj_2219", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2219.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2219.obj_num = 0;
+  cdat->dobj_2219.obj_hash = 766830351;
+  cdat->dobj_2219.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2219));
+ 
+ /*iniobj dsym_2220__CS*/
+ if (!/*_.VALDATA___V2226*/ curfptr[2225]) /*_.VALDATA___V2226*/ curfptr[2225] = (void*)&cdat->dsym_2220__CS;
+  melt_assertmsg("iniobj checkdiscr dsym_2220__CS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2220__CS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2220__CS.obj_hash = 7052924;
+  cdat->dsym_2220__CS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2220__CS));
+ 
+ /*inistring dstr_2221__CS*/
+ /*_.VALSTR___V2227*/ curfptr[2226] = (void*)&cdat->dstr_2221__CS;
+  cdat->dstr_2221__CS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2221__CS.val, "CS", sizeof(cdat->dstr_2221__CS.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1305:/ iniobj");
+ /*iniobj dobj_2222*/
+ if (!/*_.VALDATA___V2225*/ curfptr[2224]) /*_.VALDATA___V2225*/ curfptr[2224] = (void*)&cdat->dobj_2222;
+  melt_assertmsg("iniobj checkdiscr dobj_2222", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2222.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2222.obj_num = 1;
+  cdat->dobj_2222.obj_hash = 885405417;
+  cdat->dobj_2222.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2222));
+ 
+ /*inistring dstr_2223__melt_is_string_*/
+ /*_.VALSTR___V2229*/ curfptr[2228] = (void*)&cdat->dstr_2223__melt_is_string_;
+  cdat->dstr_2223__melt_is_string_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2223__melt_is_string_.val, "(melt_is_string_const((melt_ptr_t)(", sizeof(cdat->dstr_2223__melt_is_string_.val)-1);
+ 
+ /*inistring dstr_2224__*/
+ /*_.VALSTR___V2230*/ curfptr[2229] = (void*)&cdat->dstr_2224__;
+  cdat->dstr_2224__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2224__.val, "), (", sizeof(cdat->dstr_2224__.val)-1);
+ 
+ /*inistring dstr_2225__*/
+ /*_.VALSTR___V2231*/ curfptr[2230] = (void*)&cdat->dstr_2225__;
+  cdat->dstr_2225__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2225__.val, ")))", sizeof(cdat->dstr_2225__.val)-1);
+ 
+ /*inistring dstr_2226__IS_STRINGCONST*/
+ /*_.VALSTR___V2223*/ curfptr[2222] = (void*)&cdat->dstr_2226__IS_STRINGCONST;
+  cdat->dstr_2226__IS_STRINGCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2226__IS_STRINGCONST.val, "IS_STRINGCONST", sizeof(cdat->dstr_2226__IS_STRINGCONST.val)-1);
+ 
+ /*iniobj dsym_2227__STRING_LENGTH*/
+ if (!/*_.VALDATA___V2233*/ curfptr[2232]) /*_.VALDATA___V2233*/ curfptr[2232] = (void*)&cdat->dsym_2227__STRING_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2227__STRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2227__STRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2227__STRING_LENGTH.obj_hash = 75463736;
+  cdat->dsym_2227__STRING_LENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2227__STRING_LENGTH));
+ 
+ /*inistring dstr_2228__STRING_LENGTH*/
+ /*_.VALSTR___V2234*/ curfptr[2233] = (void*)&cdat->dstr_2228__STRING_LENGTH;
+  cdat->dstr_2228__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2228__STRING_LENGTH.val, "STRING_LENGTH", sizeof(cdat->dstr_2228__STRING_LENGTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1308:/ iniobj");
+ /*iniobj dobj_2229__STRING_LENGTH*/
+ if (!/*_.VALDATA___V2235*/ curfptr[2234]) /*_.VALDATA___V2235*/ curfptr[2234] = (void*)&cdat->dobj_2229__STRING_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2229__STRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2229__STRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2229__STRING_LENGTH.obj_hash = 506766879;
+  cdat->dobj_2229__STRING_LENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2229__STRING_LENGTH));
+ 
+ /*inimult dtup_2230__STRING_LENGTH*/
+ /*_.VALTUP___V2241*/ curfptr[2240] = (void*)&cdat->dtup_2230__STRING_LENGTH;
+  cdat->dtup_2230__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2230__STRING_LENGTH.nbval = 3;
+ /*inimult dtup_2231__STRING_LENGTH*/
+ /*_.VALTUP___V2238*/ curfptr[2237] = (void*)&cdat->dtup_2231__STRING_LENGTH;
+  cdat->dtup_2231__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2231__STRING_LENGTH.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1308:/ iniobj");
+ /*iniobj dobj_2232*/
+ if (!/*_.VALDATA___V2237*/ curfptr[2236]) /*_.VALDATA___V2237*/ curfptr[2236] = (void*)&cdat->dobj_2232;
+  melt_assertmsg("iniobj checkdiscr dobj_2232", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2232.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2232.obj_num = 0;
+  cdat->dobj_2232.obj_hash = 647112332;
+  cdat->dobj_2232.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2232));
+ 
+ /*inistring dstr_2233__melt_string_leng*/
+ /*_.VALSTR___V2239*/ curfptr[2238] = (void*)&cdat->dstr_2233__melt_string_leng;
+  cdat->dstr_2233__melt_string_leng.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2233__melt_string_leng.val, "melt_string_length((melt_ptr_t)(", sizeof(cdat->dstr_2233__melt_string_leng.val)-1);
+ 
+ /*inistring dstr_2234__*/
+ /*_.VALSTR___V2240*/ curfptr[2239] = (void*)&cdat->dstr_2234__;
+  cdat->dstr_2234__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2234__.val, "))", sizeof(cdat->dstr_2234__.val)-1);
+ 
+ /*inistring dstr_2235__STRING_LENGTH*/
+ /*_.VALSTR___V2236*/ curfptr[2235] = (void*)&cdat->dstr_2235__STRING_LENGTH;
+  cdat->dstr_2235__STRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2235__STRING_LENGTH.val, "STRING_LENGTH", sizeof(cdat->dstr_2235__STRING_LENGTH.val)-1);
+ 
+ /*iniobj dsym_2236__STRING_*/
+ if (!/*_.VALDATA___V2242*/ curfptr[2241]) /*_.VALDATA___V2242*/ curfptr[2241] = (void*)&cdat->dsym_2236__STRING_;
+  melt_assertmsg("iniobj checkdiscr dsym_2236__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2236__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2236__STRING_.obj_hash = 1039023232;
+  cdat->dsym_2236__STRING_.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2236__STRING_));
+ 
+ /*inistring dstr_2237__STRING_*/
+ /*_.VALSTR___V2243*/ curfptr[2242] = (void*)&cdat->dstr_2237__STRING_;
+  cdat->dstr_2237__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2237__STRING_.val, "STRING=", sizeof(cdat->dstr_2237__STRING_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1311:/ iniobj");
+ /*iniobj dobj_2238__STRING_*/
+ if (!/*_.VALDATA___V2244*/ curfptr[2243]) /*_.VALDATA___V2244*/ curfptr[2243] = (void*)&cdat->dobj_2238__STRING_;
+  melt_assertmsg("iniobj checkdiscr dobj_2238__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2238__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2238__STRING_.obj_hash = 521314502;
+  cdat->dobj_2238__STRING_.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2238__STRING_));
+ 
+ /*inimult dtup_2239__STRING_*/
+ /*_.VALTUP___V2252*/ curfptr[2251] = (void*)&cdat->dtup_2239__STRING_;
+  cdat->dtup_2239__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2239__STRING_.nbval = 5;
+ /*inimult dtup_2240__STRING_*/
+ /*_.VALTUP___V2248*/ curfptr[2247] = (void*)&cdat->dtup_2240__STRING_;
+  cdat->dtup_2240__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2240__STRING_.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1311:/ iniobj");
+ /*iniobj dobj_2241*/
+ if (!/*_.VALDATA___V2246*/ curfptr[2245]) /*_.VALDATA___V2246*/ curfptr[2245] = (void*)&cdat->dobj_2241;
+  melt_assertmsg("iniobj checkdiscr dobj_2241", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2241.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2241.obj_num = 0;
+  cdat->dobj_2241.obj_hash = 941010900;
+  cdat->dobj_2241.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2241));
+ 
+ MELT_LOCATION("warmelt-first.melt:1311:/ iniobj");
+ /*iniobj dobj_2242*/
+ if (!/*_.VALDATA___V2247*/ curfptr[2246]) /*_.VALDATA___V2247*/ curfptr[2246] = (void*)&cdat->dobj_2242;
+  melt_assertmsg("iniobj checkdiscr dobj_2242", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2242.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2242.obj_num = 1;
+  cdat->dobj_2242.obj_hash = 115685911;
+  cdat->dobj_2242.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2242));
+ 
+ /*inistring dstr_2243__melt_string_same*/
+ /*_.VALSTR___V2249*/ curfptr[2248] = (void*)&cdat->dstr_2243__melt_string_same;
+  cdat->dstr_2243__melt_string_same.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2243__melt_string_same.val, "melt_string_same((", sizeof(cdat->dstr_2243__melt_string_same.val)-1);
+ 
+ /*inistring dstr_2244__*/
+ /*_.VALSTR___V2250*/ curfptr[2249] = (void*)&cdat->dstr_2244__;
+  cdat->dstr_2244__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2244__.val, "), (", sizeof(cdat->dstr_2244__.val)-1);
+ 
+ /*inistring dstr_2245__*/
+ /*_.VALSTR___V2251*/ curfptr[2250] = (void*)&cdat->dstr_2245__;
+  cdat->dstr_2245__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2245__.val, "))", sizeof(cdat->dstr_2245__.val)-1);
+ 
+ /*inistring dstr_2246__STRING_*/
+ /*_.VALSTR___V2245*/ curfptr[2244] = (void*)&cdat->dstr_2246__STRING_;
+  cdat->dstr_2246__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2246__STRING_.val, "STRING=", sizeof(cdat->dstr_2246__STRING_.val)-1);
+ 
+ /*iniobj dsym_2247__STRING_*/
+ if (!/*_.VALDATA___V2253*/ curfptr[2252]) /*_.VALDATA___V2253*/ curfptr[2252] = (void*)&cdat->dsym_2247__STRING_;
+  melt_assertmsg("iniobj checkdiscr dsym_2247__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2247__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2247__STRING_.obj_hash = 677989694;
+  cdat->dsym_2247__STRING_.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2247__STRING_));
+ 
+ /*inistring dstr_2248__STRING_*/
+ /*_.VALSTR___V2254*/ curfptr[2253] = (void*)&cdat->dstr_2248__STRING_;
+  cdat->dstr_2248__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2248__STRING_.val, "STRING<", sizeof(cdat->dstr_2248__STRING_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1314:/ iniobj");
+ /*iniobj dobj_2249__STRING_*/
+ if (!/*_.VALDATA___V2255*/ curfptr[2254]) /*_.VALDATA___V2255*/ curfptr[2254] = (void*)&cdat->dobj_2249__STRING_;
+  melt_assertmsg("iniobj checkdiscr dobj_2249__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2249__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2249__STRING_.obj_hash = 241078513;
+  cdat->dobj_2249__STRING_.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2249__STRING_));
+ 
+ /*inimult dtup_2250__STRING_*/
+ /*_.VALTUP___V2263*/ curfptr[2262] = (void*)&cdat->dtup_2250__STRING_;
+  cdat->dtup_2250__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2250__STRING_.nbval = 5;
+ /*inimult dtup_2251__STRING_*/
+ /*_.VALTUP___V2259*/ curfptr[2258] = (void*)&cdat->dtup_2251__STRING_;
+  cdat->dtup_2251__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2251__STRING_.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1314:/ iniobj");
+ /*iniobj dobj_2252*/
+ if (!/*_.VALDATA___V2257*/ curfptr[2256]) /*_.VALDATA___V2257*/ curfptr[2256] = (void*)&cdat->dobj_2252;
+  melt_assertmsg("iniobj checkdiscr dobj_2252", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2252.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2252.obj_num = 0;
+  cdat->dobj_2252.obj_hash = 610280143;
+  cdat->dobj_2252.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2252));
+ 
+ MELT_LOCATION("warmelt-first.melt:1314:/ iniobj");
+ /*iniobj dobj_2253*/
+ if (!/*_.VALDATA___V2258*/ curfptr[2257]) /*_.VALDATA___V2258*/ curfptr[2257] = (void*)&cdat->dobj_2253;
+  melt_assertmsg("iniobj checkdiscr dobj_2253", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2253.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2253.obj_num = 1;
+  cdat->dobj_2253.obj_hash = 610013424;
+  cdat->dobj_2253.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2253));
+ 
+ /*inistring dstr_2254__melt_string_less*/
+ /*_.VALSTR___V2260*/ curfptr[2259] = (void*)&cdat->dstr_2254__melt_string_less;
+  cdat->dstr_2254__melt_string_less.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2254__melt_string_less.val, "melt_string_less((melt_ptr_t)(", sizeof(cdat->dstr_2254__melt_string_less.val)-1);
+ 
+ /*inistring dstr_2255__melt_ptr_t_*/
+ /*_.VALSTR___V2261*/ curfptr[2260] = (void*)&cdat->dstr_2255__melt_ptr_t_;
+  cdat->dstr_2255__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2255__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2255__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2256__*/
+ /*_.VALSTR___V2262*/ curfptr[2261] = (void*)&cdat->dstr_2256__;
+  cdat->dstr_2256__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2256__.val, "))", sizeof(cdat->dstr_2256__.val)-1);
+ 
+ /*inistring dstr_2257__STRING_*/
+ /*_.VALSTR___V2256*/ curfptr[2255] = (void*)&cdat->dstr_2257__STRING_;
+  cdat->dstr_2257__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2257__STRING_.val, "STRING<", sizeof(cdat->dstr_2257__STRING_.val)-1);
+ 
+ /*iniobj dsym_2258__STRING_*/
+ if (!/*_.VALDATA___V2264*/ curfptr[2263]) /*_.VALDATA___V2264*/ curfptr[2263] = (void*)&cdat->dsym_2258__STRING_;
+  melt_assertmsg("iniobj checkdiscr dsym_2258__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2258__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2258__STRING_.obj_hash = 403479518;
+  cdat->dsym_2258__STRING_.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2258__STRING_));
+ 
+ /*inistring dstr_2259__STRING_*/
+ /*_.VALSTR___V2265*/ curfptr[2264] = (void*)&cdat->dstr_2259__STRING_;
+  cdat->dstr_2259__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2259__STRING_.val, "STRING>", sizeof(cdat->dstr_2259__STRING_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1317:/ iniobj");
+ /*iniobj dobj_2260__STRING_*/
+ if (!/*_.VALDATA___V2266*/ curfptr[2265]) /*_.VALDATA___V2266*/ curfptr[2265] = (void*)&cdat->dobj_2260__STRING_;
+  melt_assertmsg("iniobj checkdiscr dobj_2260__STRING_", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2260__STRING_.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2260__STRING_.obj_hash = 441608318;
+  cdat->dobj_2260__STRING_.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2260__STRING_));
+ 
+ /*inimult dtup_2261__STRING_*/
+ /*_.VALTUP___V2274*/ curfptr[2273] = (void*)&cdat->dtup_2261__STRING_;
+  cdat->dtup_2261__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2261__STRING_.nbval = 5;
+ /*inimult dtup_2262__STRING_*/
+ /*_.VALTUP___V2270*/ curfptr[2269] = (void*)&cdat->dtup_2262__STRING_;
+  cdat->dtup_2262__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2262__STRING_.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1317:/ iniobj");
+ /*iniobj dobj_2263*/
+ if (!/*_.VALDATA___V2268*/ curfptr[2267]) /*_.VALDATA___V2268*/ curfptr[2267] = (void*)&cdat->dobj_2263;
+  melt_assertmsg("iniobj checkdiscr dobj_2263", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2263.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2263.obj_num = 0;
+  cdat->dobj_2263.obj_hash = 28234749;
+  cdat->dobj_2263.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2263));
+ 
+ MELT_LOCATION("warmelt-first.melt:1317:/ iniobj");
+ /*iniobj dobj_2264*/
+ if (!/*_.VALDATA___V2269*/ curfptr[2268]) /*_.VALDATA___V2269*/ curfptr[2268] = (void*)&cdat->dobj_2264;
+  melt_assertmsg("iniobj checkdiscr dobj_2264", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2264.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2264.obj_num = 1;
+  cdat->dobj_2264.obj_hash = 216568110;
+  cdat->dobj_2264.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2264));
+ 
+ /*inistring dstr_2265__melt_string_less*/
+ /*_.VALSTR___V2271*/ curfptr[2270] = (void*)&cdat->dstr_2265__melt_string_less;
+  cdat->dstr_2265__melt_string_less.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2265__melt_string_less.val, "melt_string_less((melt_ptr_t)(", sizeof(cdat->dstr_2265__melt_string_less.val)-1);
+ 
+ /*inistring dstr_2266__melt_ptr_t_*/
+ /*_.VALSTR___V2272*/ curfptr[2271] = (void*)&cdat->dstr_2266__melt_ptr_t_;
+  cdat->dstr_2266__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2266__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2266__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2267__*/
+ /*_.VALSTR___V2273*/ curfptr[2272] = (void*)&cdat->dstr_2267__;
+  cdat->dstr_2267__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2267__.val, "))", sizeof(cdat->dstr_2267__.val)-1);
+ 
+ /*inistring dstr_2268__STRING_*/
+ /*_.VALSTR___V2267*/ curfptr[2266] = (void*)&cdat->dstr_2268__STRING_;
+  cdat->dstr_2268__STRING_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2268__STRING_.val, "STRING>", sizeof(cdat->dstr_2268__STRING_.val)-1);
+ 
+ /*iniobj dsym_2269__SPLIT_STRING_SPACE*/
+ if (!/*_.VALDATA___V2275*/ curfptr[2274]) /*_.VALDATA___V2275*/ curfptr[2274] = (void*)&cdat->dsym_2269__SPLIT_STRING_SPACE;
+  melt_assertmsg("iniobj checkdiscr dsym_2269__SPLIT_STRING_SPACE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2269__SPLIT_STRING_SPACE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2269__SPLIT_STRING_SPACE.obj_hash = 726019437;
+  cdat->dsym_2269__SPLIT_STRING_SPACE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2269__SPLIT_STRING_SPACE));
+ 
+ /*inistring dstr_2270__SPLIT_STRING_SPA*/
+ /*_.VALSTR___V2276*/ curfptr[2275] = (void*)&cdat->dstr_2270__SPLIT_STRING_SPA;
+  cdat->dstr_2270__SPLIT_STRING_SPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2270__SPLIT_STRING_SPA.val, "SPLIT_STRING_SPACE", sizeof(cdat->dstr_2270__SPLIT_STRING_SPA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1321:/ iniobj");
+ /*iniobj dobj_2271__SPLIT_STRING_SPACE*/
+ if (!/*_.VALDATA___V2277*/ curfptr[2276]) /*_.VALDATA___V2277*/ curfptr[2276] = (void*)&cdat->dobj_2271__SPLIT_STRING_SPACE;
+  melt_assertmsg("iniobj checkdiscr dobj_2271__SPLIT_STRING_SPACE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2271__SPLIT_STRING_SPACE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2271__SPLIT_STRING_SPACE.obj_hash = 970327533;
+  cdat->dobj_2271__SPLIT_STRING_SPACE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2271__SPLIT_STRING_SPACE));
+ 
+ /*inimult dtup_2272__SPLIT_STRING_SPACE*/
+ /*_.VALTUP___V2285*/ curfptr[2284] = (void*)&cdat->dtup_2272__SPLIT_STRING_SPACE;
+  cdat->dtup_2272__SPLIT_STRING_SPACE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2272__SPLIT_STRING_SPACE.nbval = 5;
+ /*inimult dtup_2273__SPLIT_STRING_SPACE*/
+ /*_.VALTUP___V2281*/ curfptr[2280] = (void*)&cdat->dtup_2273__SPLIT_STRING_SPACE;
+  cdat->dtup_2273__SPLIT_STRING_SPACE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2273__SPLIT_STRING_SPACE.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1321:/ iniobj");
+ /*iniobj dobj_2274*/
+ if (!/*_.VALDATA___V2279*/ curfptr[2278]) /*_.VALDATA___V2279*/ curfptr[2278] = (void*)&cdat->dobj_2274;
+  melt_assertmsg("iniobj checkdiscr dobj_2274", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2274.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2274.obj_num = 0;
+  cdat->dobj_2274.obj_hash = 423779755;
+  cdat->dobj_2274.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2274));
+ 
+ MELT_LOCATION("warmelt-first.melt:1321:/ iniobj");
+ /*iniobj dobj_2275*/
+ if (!/*_.VALDATA___V2280*/ curfptr[2279]) /*_.VALDATA___V2280*/ curfptr[2279] = (void*)&cdat->dobj_2275;
+  melt_assertmsg("iniobj checkdiscr dobj_2275", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2275.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2275.obj_num = 1;
+  cdat->dobj_2275.obj_hash = 635572406;
+  cdat->dobj_2275.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2275));
+ 
+ /*inistring dstr_2276__meltgc_new_split*/
+ /*_.VALSTR___V2282*/ curfptr[2281] = (void*)&cdat->dstr_2276__meltgc_new_split;
+  cdat->dstr_2276__meltgc_new_split.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2276__meltgc_new_split.val, "meltgc_new_split_string(", sizeof(cdat->dstr_2276__meltgc_new_split.val)-1);
+ 
+ /*inistring dstr_2277__melt_ptr*/
+ /*_.VALSTR___V2283*/ curfptr[2282] = (void*)&cdat->dstr_2277__melt_ptr;
+  cdat->dstr_2277__melt_ptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2277__melt_ptr.val, ", \' \', (melt_ptr_t) ", sizeof(cdat->dstr_2277__melt_ptr.val)-1);
+ 
+ /*inistring dstr_2278__*/
+ /*_.VALSTR___V2284*/ curfptr[2283] = (void*)&cdat->dstr_2278__;
+  cdat->dstr_2278__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2278__.val, ")", sizeof(cdat->dstr_2278__.val)-1);
+ 
+ /*inistring dstr_2279__SPLIT_STRING_SPA*/
+ /*_.VALSTR___V2278*/ curfptr[2277] = (void*)&cdat->dstr_2279__SPLIT_STRING_SPA;
+  cdat->dstr_2279__SPLIT_STRING_SPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2279__SPLIT_STRING_SPA.val, "SPLIT_STRING_SPACE", sizeof(cdat->dstr_2279__SPLIT_STRING_SPA.val)-1);
+ 
+ /*iniobj dsym_2280__SPLIT_STRING_COMMA*/
+ if (!/*_.VALDATA___V2286*/ curfptr[2285]) /*_.VALDATA___V2286*/ curfptr[2285] = (void*)&cdat->dsym_2280__SPLIT_STRING_COMMA;
+  melt_assertmsg("iniobj checkdiscr dsym_2280__SPLIT_STRING_COMMA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2280__SPLIT_STRING_COMMA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2280__SPLIT_STRING_COMMA.obj_hash = 939131565;
+  cdat->dsym_2280__SPLIT_STRING_COMMA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2280__SPLIT_STRING_COMMA));
+ 
+ /*inistring dstr_2281__SPLIT_STRING_COM*/
+ /*_.VALSTR___V2287*/ curfptr[2286] = (void*)&cdat->dstr_2281__SPLIT_STRING_COM;
+  cdat->dstr_2281__SPLIT_STRING_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2281__SPLIT_STRING_COM.val, "SPLIT_STRING_COMMA", sizeof(cdat->dstr_2281__SPLIT_STRING_COM.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1326:/ iniobj");
- /*iniobj dobj_2279__SPLIT_STRING_SPACE*/
- if (!/*_.VALDATA___V2285*/ curfptr[2284]) /*_.VALDATA___V2285*/ curfptr[2284] = (void*)&cdat->dobj_2279__SPLIT_STRING_SPACE;
-  melt_assertmsg("iniobj checkdiscr dobj_2279__SPLIT_STRING_SPACE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2279__SPLIT_STRING_SPACE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2279__SPLIT_STRING_SPACE.obj_hash = 837061612;
-  cdat->dobj_2279__SPLIT_STRING_SPACE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2279__SPLIT_STRING_SPACE));
- 
- /*inimult dtup_2280__SPLIT_STRING_SPACE*/
- /*_.VALTUP___V2293*/ curfptr[2292] = (void*)&cdat->dtup_2280__SPLIT_STRING_SPACE;
-  cdat->dtup_2280__SPLIT_STRING_SPACE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2280__SPLIT_STRING_SPACE.nbval = 5;
- /*inimult dtup_2281__SPLIT_STRING_SPACE*/
- /*_.VALTUP___V2289*/ curfptr[2288] = (void*)&cdat->dtup_2281__SPLIT_STRING_SPACE;
-  cdat->dtup_2281__SPLIT_STRING_SPACE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2281__SPLIT_STRING_SPACE.nbval = 2;
+ /*iniobj dobj_2282__SPLIT_STRING_COMMA*/
+ if (!/*_.VALDATA___V2288*/ curfptr[2287]) /*_.VALDATA___V2288*/ curfptr[2287] = (void*)&cdat->dobj_2282__SPLIT_STRING_COMMA;
+  melt_assertmsg("iniobj checkdiscr dobj_2282__SPLIT_STRING_COMMA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2282__SPLIT_STRING_COMMA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2282__SPLIT_STRING_COMMA.obj_hash = 23235703;
+  cdat->dobj_2282__SPLIT_STRING_COMMA.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2282__SPLIT_STRING_COMMA));
+ 
+ /*inimult dtup_2283__SPLIT_STRING_COMMA*/
+ /*_.VALTUP___V2296*/ curfptr[2295] = (void*)&cdat->dtup_2283__SPLIT_STRING_COMMA;
+  cdat->dtup_2283__SPLIT_STRING_COMMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2283__SPLIT_STRING_COMMA.nbval = 5;
+ /*inimult dtup_2284__SPLIT_STRING_COMMA*/
+ /*_.VALTUP___V2292*/ curfptr[2291] = (void*)&cdat->dtup_2284__SPLIT_STRING_COMMA;
+  cdat->dtup_2284__SPLIT_STRING_COMMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2284__SPLIT_STRING_COMMA.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1326:/ iniobj");
- /*iniobj dobj_2282*/
- if (!/*_.VALDATA___V2287*/ curfptr[2286]) /*_.VALDATA___V2287*/ curfptr[2286] = (void*)&cdat->dobj_2282;
-  melt_assertmsg("iniobj checkdiscr dobj_2282", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2282.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2282.obj_num = 0;
-  cdat->dobj_2282.obj_hash = 571448191;
-  cdat->dobj_2282.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2282));
+ /*iniobj dobj_2285*/
+ if (!/*_.VALDATA___V2290*/ curfptr[2289]) /*_.VALDATA___V2290*/ curfptr[2289] = (void*)&cdat->dobj_2285;
+  melt_assertmsg("iniobj checkdiscr dobj_2285", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2285.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2285.obj_num = 0;
+  cdat->dobj_2285.obj_hash = 1025133880;
+  cdat->dobj_2285.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2285));
  
  MELT_LOCATION("warmelt-first.melt:1326:/ iniobj");
- /*iniobj dobj_2283*/
- if (!/*_.VALDATA___V2288*/ curfptr[2287]) /*_.VALDATA___V2288*/ curfptr[2287] = (void*)&cdat->dobj_2283;
-  melt_assertmsg("iniobj checkdiscr dobj_2283", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2283.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2283.obj_num = 1;
-  cdat->dobj_2283.obj_hash = 782736155;
-  cdat->dobj_2283.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2283));
- 
- /*inistring dstr_2284__meltgc_new_split*/
- /*_.VALSTR___V2290*/ curfptr[2289] = (void*)&cdat->dstr_2284__meltgc_new_split;
-  cdat->dstr_2284__meltgc_new_split.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2284__meltgc_new_split.val, "meltgc_new_split_string(", sizeof(cdat->dstr_2284__meltgc_new_split.val)-1);
- 
- /*inistring dstr_2285__melt_ptr*/
- /*_.VALSTR___V2291*/ curfptr[2290] = (void*)&cdat->dstr_2285__melt_ptr;
-  cdat->dstr_2285__melt_ptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2285__melt_ptr.val, ", \' \', (melt_ptr_t) ", sizeof(cdat->dstr_2285__melt_ptr.val)-1);
- 
- /*inistring dstr_2286__*/
- /*_.VALSTR___V2292*/ curfptr[2291] = (void*)&cdat->dstr_2286__;
-  cdat->dstr_2286__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2286__.val, ")", sizeof(cdat->dstr_2286__.val)-1);
- 
- /*inistring dstr_2287__SPLIT_STRING_SPA*/
- /*_.VALSTR___V2286*/ curfptr[2285] = (void*)&cdat->dstr_2287__SPLIT_STRING_SPA;
-  cdat->dstr_2287__SPLIT_STRING_SPA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2287__SPLIT_STRING_SPA.val, "SPLIT_STRING_SPACE", sizeof(cdat->dstr_2287__SPLIT_STRING_SPA.val)-1);
- 
- /*iniobj dsym_2288__SPLIT_STRING_COMMA*/
- if (!/*_.VALDATA___V2294*/ curfptr[2293]) /*_.VALDATA___V2294*/ curfptr[2293] = (void*)&cdat->dsym_2288__SPLIT_STRING_COMMA;
-  melt_assertmsg("iniobj checkdiscr dsym_2288__SPLIT_STRING_COMMA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2288__SPLIT_STRING_COMMA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2288__SPLIT_STRING_COMMA.obj_hash = 939131565;
-  cdat->dsym_2288__SPLIT_STRING_COMMA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2288__SPLIT_STRING_COMMA));
- 
- /*inistring dstr_2289__SPLIT_STRING_COM*/
- /*_.VALSTR___V2295*/ curfptr[2294] = (void*)&cdat->dstr_2289__SPLIT_STRING_COM;
-  cdat->dstr_2289__SPLIT_STRING_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2289__SPLIT_STRING_COM.val, "SPLIT_STRING_COMMA", sizeof(cdat->dstr_2289__SPLIT_STRING_COM.val)-1);
+ /*iniobj dobj_2286*/
+ if (!/*_.VALDATA___V2291*/ curfptr[2290]) /*_.VALDATA___V2291*/ curfptr[2290] = (void*)&cdat->dobj_2286;
+  melt_assertmsg("iniobj checkdiscr dobj_2286", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2286.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2286.obj_num = 1;
+  cdat->dobj_2286.obj_hash = 689715362;
+  cdat->dobj_2286.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2286));
+ 
+ /*inistring dstr_2287__meltgc_new_split*/
+ /*_.VALSTR___V2293*/ curfptr[2292] = (void*)&cdat->dstr_2287__meltgc_new_split;
+  cdat->dstr_2287__meltgc_new_split.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2287__meltgc_new_split.val, "meltgc_new_split_string(", sizeof(cdat->dstr_2287__meltgc_new_split.val)-1);
+ 
+ /*inistring dstr_2288__melt_ptr*/
+ /*_.VALSTR___V2294*/ curfptr[2293] = (void*)&cdat->dstr_2288__melt_ptr;
+  cdat->dstr_2288__melt_ptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2288__melt_ptr.val, ", \',\', (melt_ptr_t) ", sizeof(cdat->dstr_2288__melt_ptr.val)-1);
+ 
+ /*inistring dstr_2289__*/
+ /*_.VALSTR___V2295*/ curfptr[2294] = (void*)&cdat->dstr_2289__;
+  cdat->dstr_2289__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2289__.val, ")", sizeof(cdat->dstr_2289__.val)-1);
+ 
+ /*inistring dstr_2290__SPLIT_STRING_COM*/
+ /*_.VALSTR___V2289*/ curfptr[2288] = (void*)&cdat->dstr_2290__SPLIT_STRING_COM;
+  cdat->dstr_2290__SPLIT_STRING_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2290__SPLIT_STRING_COM.val, "SPLIT_STRING_COMMA", sizeof(cdat->dstr_2290__SPLIT_STRING_COM.val)-1);
+ 
+ /*iniobj dsym_2291__SPLIT_STRING_COLON*/
+ if (!/*_.VALDATA___V2297*/ curfptr[2296]) /*_.VALDATA___V2297*/ curfptr[2296] = (void*)&cdat->dsym_2291__SPLIT_STRING_COLON;
+  melt_assertmsg("iniobj checkdiscr dsym_2291__SPLIT_STRING_COLON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2291__SPLIT_STRING_COLON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2291__SPLIT_STRING_COLON.obj_hash = 836749522;
+  cdat->dsym_2291__SPLIT_STRING_COLON.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2291__SPLIT_STRING_COLON));
+ 
+ /*inistring dstr_2292__SPLIT_STRING_COL*/
+ /*_.VALSTR___V2298*/ curfptr[2297] = (void*)&cdat->dstr_2292__SPLIT_STRING_COL;
+  cdat->dstr_2292__SPLIT_STRING_COL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2292__SPLIT_STRING_COL.val, "SPLIT_STRING_COLON", sizeof(cdat->dstr_2292__SPLIT_STRING_COL.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1331:/ iniobj");
- /*iniobj dobj_2290__SPLIT_STRING_COMMA*/
- if (!/*_.VALDATA___V2296*/ curfptr[2295]) /*_.VALDATA___V2296*/ curfptr[2295] = (void*)&cdat->dobj_2290__SPLIT_STRING_COMMA;
-  melt_assertmsg("iniobj checkdiscr dobj_2290__SPLIT_STRING_COMMA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2290__SPLIT_STRING_COMMA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2290__SPLIT_STRING_COMMA.obj_hash = 576751034;
-  cdat->dobj_2290__SPLIT_STRING_COMMA.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2290__SPLIT_STRING_COMMA));
- 
- /*inimult dtup_2291__SPLIT_STRING_COMMA*/
- /*_.VALTUP___V2304*/ curfptr[2303] = (void*)&cdat->dtup_2291__SPLIT_STRING_COMMA;
-  cdat->dtup_2291__SPLIT_STRING_COMMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2291__SPLIT_STRING_COMMA.nbval = 5;
- /*inimult dtup_2292__SPLIT_STRING_COMMA*/
- /*_.VALTUP___V2300*/ curfptr[2299] = (void*)&cdat->dtup_2292__SPLIT_STRING_COMMA;
-  cdat->dtup_2292__SPLIT_STRING_COMMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2292__SPLIT_STRING_COMMA.nbval = 2;
+ /*iniobj dobj_2293__SPLIT_STRING_COLON*/
+ if (!/*_.VALDATA___V2299*/ curfptr[2298]) /*_.VALDATA___V2299*/ curfptr[2298] = (void*)&cdat->dobj_2293__SPLIT_STRING_COLON;
+  melt_assertmsg("iniobj checkdiscr dobj_2293__SPLIT_STRING_COLON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2293__SPLIT_STRING_COLON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2293__SPLIT_STRING_COLON.obj_hash = 716842528;
+  cdat->dobj_2293__SPLIT_STRING_COLON.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2293__SPLIT_STRING_COLON));
+ 
+ /*inimult dtup_2294__SPLIT_STRING_COLON*/
+ /*_.VALTUP___V2307*/ curfptr[2306] = (void*)&cdat->dtup_2294__SPLIT_STRING_COLON;
+  cdat->dtup_2294__SPLIT_STRING_COLON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2294__SPLIT_STRING_COLON.nbval = 5;
+ /*inimult dtup_2295__SPLIT_STRING_COLON*/
+ /*_.VALTUP___V2303*/ curfptr[2302] = (void*)&cdat->dtup_2295__SPLIT_STRING_COLON;
+  cdat->dtup_2295__SPLIT_STRING_COLON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2295__SPLIT_STRING_COLON.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1331:/ iniobj");
- /*iniobj dobj_2293*/
- if (!/*_.VALDATA___V2298*/ curfptr[2297]) /*_.VALDATA___V2298*/ curfptr[2297] = (void*)&cdat->dobj_2293;
-  melt_assertmsg("iniobj checkdiscr dobj_2293", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2293.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2293.obj_num = 0;
-  cdat->dobj_2293.obj_hash = 965574446;
-  cdat->dobj_2293.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2293));
+ /*iniobj dobj_2296*/
+ if (!/*_.VALDATA___V2301*/ curfptr[2300]) /*_.VALDATA___V2301*/ curfptr[2300] = (void*)&cdat->dobj_2296;
+  melt_assertmsg("iniobj checkdiscr dobj_2296", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2296.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2296.obj_num = 0;
+  cdat->dobj_2296.obj_hash = 465708881;
+  cdat->dobj_2296.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2296));
  
  MELT_LOCATION("warmelt-first.melt:1331:/ iniobj");
- /*iniobj dobj_2294*/
- if (!/*_.VALDATA___V2299*/ curfptr[2298]) /*_.VALDATA___V2299*/ curfptr[2298] = (void*)&cdat->dobj_2294;
-  melt_assertmsg("iniobj checkdiscr dobj_2294", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2294.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2294.obj_num = 1;
-  cdat->dobj_2294.obj_hash = 261703642;
-  cdat->dobj_2294.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2294));
- 
- /*inistring dstr_2295__meltgc_new_split*/
- /*_.VALSTR___V2301*/ curfptr[2300] = (void*)&cdat->dstr_2295__meltgc_new_split;
-  cdat->dstr_2295__meltgc_new_split.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2295__meltgc_new_split.val, "meltgc_new_split_string(", sizeof(cdat->dstr_2295__meltgc_new_split.val)-1);
- 
- /*inistring dstr_2296__melt_ptr*/
- /*_.VALSTR___V2302*/ curfptr[2301] = (void*)&cdat->dstr_2296__melt_ptr;
-  cdat->dstr_2296__melt_ptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2296__melt_ptr.val, ", \',\', (melt_ptr_t) ", sizeof(cdat->dstr_2296__melt_ptr.val)-1);
- 
- /*inistring dstr_2297__*/
- /*_.VALSTR___V2303*/ curfptr[2302] = (void*)&cdat->dstr_2297__;
-  cdat->dstr_2297__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2297__.val, ")", sizeof(cdat->dstr_2297__.val)-1);
- 
- /*inistring dstr_2298__SPLIT_STRING_COM*/
- /*_.VALSTR___V2297*/ curfptr[2296] = (void*)&cdat->dstr_2298__SPLIT_STRING_COM;
-  cdat->dstr_2298__SPLIT_STRING_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2298__SPLIT_STRING_COM.val, "SPLIT_STRING_COMMA", sizeof(cdat->dstr_2298__SPLIT_STRING_COM.val)-1);
- 
- /*iniobj dsym_2299__SPLIT_STRING_COLON*/
- if (!/*_.VALDATA___V2305*/ curfptr[2304]) /*_.VALDATA___V2305*/ curfptr[2304] = (void*)&cdat->dsym_2299__SPLIT_STRING_COLON;
-  melt_assertmsg("iniobj checkdiscr dsym_2299__SPLIT_STRING_COLON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2299__SPLIT_STRING_COLON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2299__SPLIT_STRING_COLON.obj_hash = 836749522;
-  cdat->dsym_2299__SPLIT_STRING_COLON.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2299__SPLIT_STRING_COLON));
- 
- /*inistring dstr_2300__SPLIT_STRING_COL*/
- /*_.VALSTR___V2306*/ curfptr[2305] = (void*)&cdat->dstr_2300__SPLIT_STRING_COL;
-  cdat->dstr_2300__SPLIT_STRING_COL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2300__SPLIT_STRING_COL.val, "SPLIT_STRING_COLON", sizeof(cdat->dstr_2300__SPLIT_STRING_COL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1336:/ iniobj");
- /*iniobj dobj_2301__SPLIT_STRING_COLON*/
- if (!/*_.VALDATA___V2307*/ curfptr[2306]) /*_.VALDATA___V2307*/ curfptr[2306] = (void*)&cdat->dobj_2301__SPLIT_STRING_COLON;
-  melt_assertmsg("iniobj checkdiscr dobj_2301__SPLIT_STRING_COLON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2301__SPLIT_STRING_COLON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2301__SPLIT_STRING_COLON.obj_hash = 147182364;
-  cdat->dobj_2301__SPLIT_STRING_COLON.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2301__SPLIT_STRING_COLON));
- 
- /*inimult dtup_2302__SPLIT_STRING_COLON*/
- /*_.VALTUP___V2315*/ curfptr[2314] = (void*)&cdat->dtup_2302__SPLIT_STRING_COLON;
-  cdat->dtup_2302__SPLIT_STRING_COLON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2302__SPLIT_STRING_COLON.nbval = 5;
- /*inimult dtup_2303__SPLIT_STRING_COLON*/
- /*_.VALTUP___V2311*/ curfptr[2310] = (void*)&cdat->dtup_2303__SPLIT_STRING_COLON;
-  cdat->dtup_2303__SPLIT_STRING_COLON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2303__SPLIT_STRING_COLON.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1336:/ iniobj");
- /*iniobj dobj_2304*/
- if (!/*_.VALDATA___V2309*/ curfptr[2308]) /*_.VALDATA___V2309*/ curfptr[2308] = (void*)&cdat->dobj_2304;
-  melt_assertmsg("iniobj checkdiscr dobj_2304", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2304.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2304.obj_num = 0;
-  cdat->dobj_2304.obj_hash = 182992742;
-  cdat->dobj_2304.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2304));
- 
- MELT_LOCATION("warmelt-first.melt:1336:/ iniobj");
- /*iniobj dobj_2305*/
- if (!/*_.VALDATA___V2310*/ curfptr[2309]) /*_.VALDATA___V2310*/ curfptr[2309] = (void*)&cdat->dobj_2305;
-  melt_assertmsg("iniobj checkdiscr dobj_2305", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2305.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2305.obj_num = 1;
-  cdat->dobj_2305.obj_hash = 369153965;
-  cdat->dobj_2305.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2305));
- 
- /*inistring dstr_2306__meltgc_new_split*/
- /*_.VALSTR___V2312*/ curfptr[2311] = (void*)&cdat->dstr_2306__meltgc_new_split;
-  cdat->dstr_2306__meltgc_new_split.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2306__meltgc_new_split.val, "meltgc_new_split_string(", sizeof(cdat->dstr_2306__meltgc_new_split.val)-1);
- 
- /*inistring dstr_2307__melt_ptr*/
- /*_.VALSTR___V2313*/ curfptr[2312] = (void*)&cdat->dstr_2307__melt_ptr;
-  cdat->dstr_2307__melt_ptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2307__melt_ptr.val, ", \':\', (melt_ptr_t)", sizeof(cdat->dstr_2307__melt_ptr.val)-1);
- 
- /*inistring dstr_2308__*/
- /*_.VALSTR___V2314*/ curfptr[2313] = (void*)&cdat->dstr_2308__;
-  cdat->dstr_2308__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2308__.val, ")", sizeof(cdat->dstr_2308__.val)-1);
- 
- /*inistring dstr_2309__SPLIT_STRING_COL*/
- /*_.VALSTR___V2308*/ curfptr[2307] = (void*)&cdat->dstr_2309__SPLIT_STRING_COL;
-  cdat->dstr_2309__SPLIT_STRING_COL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2309__SPLIT_STRING_COL.val, "SPLIT_STRING_COLON", sizeof(cdat->dstr_2309__SPLIT_STRING_COL.val)-1);
- 
- /*iniobj dsym_2310__STRBUF2STRING*/
- if (!/*_.VALDATA___V2316*/ curfptr[2315]) /*_.VALDATA___V2316*/ curfptr[2315] = (void*)&cdat->dsym_2310__STRBUF2STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2310__STRBUF2STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2310__STRBUF2STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2310__STRBUF2STRING.obj_hash = 424237394;
-  cdat->dsym_2310__STRBUF2STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2310__STRBUF2STRING));
- 
- /*inistring dstr_2311__STRBUF2STRING*/
- /*_.VALSTR___V2317*/ curfptr[2316] = (void*)&cdat->dstr_2311__STRBUF2STRING;
-  cdat->dstr_2311__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2311__STRBUF2STRING.val, "STRBUF2STRING", sizeof(cdat->dstr_2311__STRBUF2STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1342:/ iniobj");
- /*iniobj dobj_2312__STRBUF2STRING*/
- if (!/*_.VALDATA___V2318*/ curfptr[2317]) /*_.VALDATA___V2318*/ curfptr[2317] = (void*)&cdat->dobj_2312__STRBUF2STRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2312__STRBUF2STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2312__STRBUF2STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2312__STRBUF2STRING.obj_hash = 498019568;
-  cdat->dobj_2312__STRBUF2STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2312__STRBUF2STRING));
- 
- /*inimult dtup_2313__STRBUF2STRING*/
- /*_.VALTUP___V2326*/ curfptr[2325] = (void*)&cdat->dtup_2313__STRBUF2STRING;
-  cdat->dtup_2313__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2313__STRBUF2STRING.nbval = 5;
- /*inimult dtup_2314__STRBUF2STRING*/
- /*_.VALTUP___V2322*/ curfptr[2321] = (void*)&cdat->dtup_2314__STRBUF2STRING;
-  cdat->dtup_2314__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2314__STRBUF2STRING.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1342:/ iniobj");
- /*iniobj dobj_2315*/
- if (!/*_.VALDATA___V2320*/ curfptr[2319]) /*_.VALDATA___V2320*/ curfptr[2319] = (void*)&cdat->dobj_2315;
-  melt_assertmsg("iniobj checkdiscr dobj_2315", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2315.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2315.obj_num = 0;
-  cdat->dobj_2315.obj_hash = 650549895;
-  cdat->dobj_2315.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2315));
- 
- MELT_LOCATION("warmelt-first.melt:1342:/ iniobj");
- /*iniobj dobj_2316*/
- if (!/*_.VALDATA___V2321*/ curfptr[2320]) /*_.VALDATA___V2321*/ curfptr[2320] = (void*)&cdat->dobj_2316;
-  melt_assertmsg("iniobj checkdiscr dobj_2316", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2316.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2316.obj_num = 1;
-  cdat->dobj_2316.obj_hash = 811982275;
-  cdat->dobj_2316.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2316));
- 
- /*inistring dstr_2317__meltgc_new_stri*/
- /*_.VALSTR___V2323*/ curfptr[2322] = (void*)&cdat->dstr_2317__meltgc_new_stri;
-  cdat->dstr_2317__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2317__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2317__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_2318__melt_strbuf_s*/
- /*_.VALSTR___V2324*/ curfptr[2323] = (void*)&cdat->dstr_2318__melt_strbuf_s;
-  cdat->dstr_2318__melt_strbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2318__melt_strbuf_s.val, "), melt_strbuf_str((melt_ptr_t)(", sizeof(cdat->dstr_2318__melt_strbuf_s.val)-1);
- 
- /*inistring dstr_2319__*/
- /*_.VALSTR___V2325*/ curfptr[2324] = (void*)&cdat->dstr_2319__;
-  cdat->dstr_2319__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2319__.val, "))))", sizeof(cdat->dstr_2319__.val)-1);
- 
- /*inistring dstr_2320__STRBUF2STRING*/
- /*_.VALSTR___V2319*/ curfptr[2318] = (void*)&cdat->dstr_2320__STRBUF2STRING;
-  cdat->dstr_2320__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2320__STRBUF2STRING.val, "STRBUF2STRING", sizeof(cdat->dstr_2320__STRBUF2STRING.val)-1);
- 
- /*iniobj dsym_2321__MAKE_STRING_NAKEDBASENAME*/
- if (!/*_.VALDATA___V2327*/ curfptr[2326]) /*_.VALDATA___V2327*/ curfptr[2326] = (void*)&cdat->dsym_2321__MAKE_STRING_NAKEDBASENAME;
-  melt_assertmsg("iniobj checkdiscr dsym_2321__MAKE_STRING_NAKEDBASENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2321__MAKE_STRING_NAKEDBASENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2321__MAKE_STRING_NAKEDBASENAME.obj_hash = 1067554920;
-  cdat->dsym_2321__MAKE_STRING_NAKEDBASENAME.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2321__MAKE_STRING_NAKEDBASENAME));
- 
- /*inistring dstr_2322__MAKE_STRING_NAKE*/
- /*_.VALSTR___V2328*/ curfptr[2327] = (void*)&cdat->dstr_2322__MAKE_STRING_NAKE;
-  cdat->dstr_2322__MAKE_STRING_NAKE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2322__MAKE_STRING_NAKE.val, "MAKE_STRING_NAKEDBASENAME", sizeof(cdat->dstr_2322__MAKE_STRING_NAKE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1348:/ iniobj");
- /*iniobj dobj_2323__MAKE_STRING_NAKEDBASENAME*/
- if (!/*_.VALDATA___V2329*/ curfptr[2328]) /*_.VALDATA___V2329*/ curfptr[2328] = (void*)&cdat->dobj_2323__MAKE_STRING_NAKEDBASENAME;
-  melt_assertmsg("iniobj checkdiscr dobj_2323__MAKE_STRING_NAKEDBASENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2323__MAKE_STRING_NAKEDBASENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2323__MAKE_STRING_NAKEDBASENAME.obj_hash = 309809118;
-  cdat->dobj_2323__MAKE_STRING_NAKEDBASENAME.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2323__MAKE_STRING_NAKEDBASENAME));
- 
- /*inimult dtup_2324__MAKE_STRING_NAKEDBASENAME*/
- /*_.VALTUP___V2337*/ curfptr[2336] = (void*)&cdat->dtup_2324__MAKE_STRING_NAKEDBASENAME;
-  cdat->dtup_2324__MAKE_STRING_NAKEDBASENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2324__MAKE_STRING_NAKEDBASENAME.nbval = 5;
- /*inimult dtup_2325__MAKE_STRING_NAKEDBASENAME*/
- /*_.VALTUP___V2333*/ curfptr[2332] = (void*)&cdat->dtup_2325__MAKE_STRING_NAKEDBASENAME;
-  cdat->dtup_2325__MAKE_STRING_NAKEDBASENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2325__MAKE_STRING_NAKEDBASENAME.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1348:/ iniobj");
- /*iniobj dobj_2326*/
- if (!/*_.VALDATA___V2331*/ curfptr[2330]) /*_.VALDATA___V2331*/ curfptr[2330] = (void*)&cdat->dobj_2326;
-  melt_assertmsg("iniobj checkdiscr dobj_2326", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2326.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2326.obj_num = 0;
-  cdat->dobj_2326.obj_hash = 183146849;
-  cdat->dobj_2326.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2326));
- 
- MELT_LOCATION("warmelt-first.melt:1348:/ iniobj");
- /*iniobj dobj_2327*/
- if (!/*_.VALDATA___V2332*/ curfptr[2331]) /*_.VALDATA___V2332*/ curfptr[2331] = (void*)&cdat->dobj_2327;
-  melt_assertmsg("iniobj checkdiscr dobj_2327", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2327.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2327.obj_num = 1;
-  cdat->dobj_2327.obj_hash = 846932518;
-  cdat->dobj_2327.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2327));
- 
- /*inistring dstr_2328__meltgc_new_stri*/
- /*_.VALSTR___V2334*/ curfptr[2333] = (void*)&cdat->dstr_2328__meltgc_new_stri;
-  cdat->dstr_2328__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2328__meltgc_new_stri.val, "(meltgc_new_string_nakedbasename((meltobject_ptr_t)(", sizeof(cdat->dstr_2328__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_2329__melt_string_s*/
- /*_.VALSTR___V2335*/ curfptr[2334] = (void*)&cdat->dstr_2329__melt_string_s;
-  cdat->dstr_2329__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2329__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2329__melt_string_s.val)-1);
- 
- /*inistring dstr_2330__*/
- /*_.VALSTR___V2336*/ curfptr[2335] = (void*)&cdat->dstr_2330__;
-  cdat->dstr_2330__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2330__.val, "))))", sizeof(cdat->dstr_2330__.val)-1);
- 
- /*inistring dstr_2331__MAKE_STRING_NAKE*/
- /*_.VALSTR___V2330*/ curfptr[2329] = (void*)&cdat->dstr_2331__MAKE_STRING_NAKE;
-  cdat->dstr_2331__MAKE_STRING_NAKE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2331__MAKE_STRING_NAKE.val, "MAKE_STRING_NAKEDBASENAME", sizeof(cdat->dstr_2331__MAKE_STRING_NAKE.val)-1);
- 
- /*iniobj dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED*/
- if (!/*_.VALDATA___V2338*/ curfptr[2337]) /*_.VALDATA___V2338*/ curfptr[2337] = (void*)&cdat->dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED;
-  melt_assertmsg("iniobj checkdiscr dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 11796860;
-  cdat->dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2332__MAKE_STRING_TEMPNAME_SUFFIXED));
- 
- /*inistring dstr_2333__MAKE_STRING_TEMP*/
- /*_.VALSTR___V2339*/ curfptr[2338] = (void*)&cdat->dstr_2333__MAKE_STRING_TEMP;
-  cdat->dstr_2333__MAKE_STRING_TEMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2333__MAKE_STRING_TEMP.val, "MAKE_STRING_TEMPNAME_SUFFIXED", sizeof(cdat->dstr_2333__MAKE_STRING_TEMP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1352:/ iniobj");
- /*iniobj dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED*/
- if (!/*_.VALDATA___V2340*/ curfptr[2339]) /*_.VALDATA___V2340*/ curfptr[2339] = (void*)&cdat->dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED;
-  melt_assertmsg("iniobj checkdiscr dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 733949744;
-  cdat->dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2334__MAKE_STRING_TEMPNAME_SUFFIXED));
- 
- /*inimult dtup_2335__MAKE_STRING_TEMPNAME_SUFFIXED*/
- /*_.VALTUP___V2352*/ curfptr[2351] = (void*)&cdat->dtup_2335__MAKE_STRING_TEMPNAME_SUFFIXED;
-  cdat->dtup_2335__MAKE_STRING_TEMPNAME_SUFFIXED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2335__MAKE_STRING_TEMPNAME_SUFFIXED.nbval = 7;
- /*inimult dtup_2336__MAKE_STRING_TEMPNAME_SUFFIXED*/
- /*_.VALTUP___V2347*/ curfptr[2346] = (void*)&cdat->dtup_2336__MAKE_STRING_TEMPNAME_SUFFIXED;
-  cdat->dtup_2336__MAKE_STRING_TEMPNAME_SUFFIXED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2336__MAKE_STRING_TEMPNAME_SUFFIXED.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1352:/ iniobj");
- /*iniobj dobj_2337*/
- if (!/*_.VALDATA___V2342*/ curfptr[2341]) /*_.VALDATA___V2342*/ curfptr[2341] = (void*)&cdat->dobj_2337;
-  melt_assertmsg("iniobj checkdiscr dobj_2337", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2337.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2337.obj_num = 0;
-  cdat->dobj_2337.obj_hash = 629278523;
-  cdat->dobj_2337.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2337));
- 
- MELT_LOCATION("warmelt-first.melt:1352:/ iniobj");
- /*iniobj dobj_2338*/
- if (!/*_.VALDATA___V2343*/ curfptr[2342]) /*_.VALDATA___V2343*/ curfptr[2342] = (void*)&cdat->dobj_2338;
-  melt_assertmsg("iniobj checkdiscr dobj_2338", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2338.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2338.obj_num = 1;
-  cdat->dobj_2338.obj_hash = 352910371;
-  cdat->dobj_2338.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2338));
- 
- /*iniobj dsym_2339__SUFF*/
- if (!/*_.VALDATA___V2345*/ curfptr[2344]) /*_.VALDATA___V2345*/ curfptr[2344] = (void*)&cdat->dsym_2339__SUFF;
-  melt_assertmsg("iniobj checkdiscr dsym_2339__SUFF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2339__SUFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2339__SUFF.obj_hash = 936809468;
-  cdat->dsym_2339__SUFF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2339__SUFF));
- 
- /*inistring dstr_2340__SUFF*/
- /*_.VALSTR___V2346*/ curfptr[2345] = (void*)&cdat->dstr_2340__SUFF;
-  cdat->dstr_2340__SUFF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2340__SUFF.val, "SUFF", sizeof(cdat->dstr_2340__SUFF.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1352:/ iniobj");
- /*iniobj dobj_2341*/
- if (!/*_.VALDATA___V2344*/ curfptr[2343]) /*_.VALDATA___V2344*/ curfptr[2343] = (void*)&cdat->dobj_2341;
-  melt_assertmsg("iniobj checkdiscr dobj_2341", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2341.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2341.obj_num = 2;
-  cdat->dobj_2341.obj_hash = 872057698;
-  cdat->dobj_2341.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2341));
- 
- /*inistring dstr_2342__meltgc_new_stri*/
- /*_.VALSTR___V2348*/ curfptr[2347] = (void*)&cdat->dstr_2342__meltgc_new_stri;
-  cdat->dstr_2342__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2342__meltgc_new_stri.val, "(meltgc_new_string_tempname_suffixed((meltobject_ptr_t)(", sizeof(cdat->dstr_2342__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_2343__melt_s*/
- /*_.VALSTR___V2349*/ curfptr[2348] = (void*)&cdat->dstr_2343__melt_s;
-  cdat->dstr_2343__melt_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2343__melt_s.val, "), \n\t\t\t\t\t melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2343__melt_s.val)-1);
- 
- /*inistring dstr_2344__*/
- /*_.VALSTR___V2350*/ curfptr[2349] = (void*)&cdat->dstr_2344__;
-  cdat->dstr_2344__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2344__.val, ")), \n\t\t\t\t\t (", sizeof(cdat->dstr_2344__.val)-1);
- 
- /*inistring dstr_2345__*/
- /*_.VALSTR___V2351*/ curfptr[2350] = (void*)&cdat->dstr_2345__;
-  cdat->dstr_2345__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2345__.val, ")))", sizeof(cdat->dstr_2345__.val)-1);
- 
- /*inistring dstr_2346__MAKE_STRING_TEMP*/
- /*_.VALSTR___V2341*/ curfptr[2340] = (void*)&cdat->dstr_2346__MAKE_STRING_TEMP;
-  cdat->dstr_2346__MAKE_STRING_TEMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2346__MAKE_STRING_TEMP.val, "MAKE_STRING_TEMPNAME_SUFFIXED", sizeof(cdat->dstr_2346__MAKE_STRING_TEMP.val)-1);
- 
- /*iniobj dsym_2347__LOAD_MELT_MODULE*/
- if (!/*_.VALDATA___V2353*/ curfptr[2352]) /*_.VALDATA___V2353*/ curfptr[2352] = (void*)&cdat->dsym_2347__LOAD_MELT_MODULE;
-  melt_assertmsg("iniobj checkdiscr dsym_2347__LOAD_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2347__LOAD_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2347__LOAD_MELT_MODULE.obj_hash = 892739854;
-  cdat->dsym_2347__LOAD_MELT_MODULE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2347__LOAD_MELT_MODULE));
- 
- /*inistring dstr_2348__LOAD_MELT_MODULE*/
- /*_.VALSTR___V2354*/ curfptr[2353] = (void*)&cdat->dstr_2348__LOAD_MELT_MODULE;
-  cdat->dstr_2348__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2348__LOAD_MELT_MODULE.val, "LOAD_MELT_MODULE", sizeof(cdat->dstr_2348__LOAD_MELT_MODULE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1360:/ iniobj");
- /*iniobj dobj_2349__LOAD_MELT_MODULE*/
- if (!/*_.VALDATA___V2355*/ curfptr[2354]) /*_.VALDATA___V2355*/ curfptr[2354] = (void*)&cdat->dobj_2349__LOAD_MELT_MODULE;
-  melt_assertmsg("iniobj checkdiscr dobj_2349__LOAD_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2349__LOAD_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2349__LOAD_MELT_MODULE.obj_hash = 275952405;
-  cdat->dobj_2349__LOAD_MELT_MODULE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2349__LOAD_MELT_MODULE));
- 
- /*inimult dtup_2350__LOAD_MELT_MODULE*/
- /*_.VALTUP___V2365*/ curfptr[2364] = (void*)&cdat->dtup_2350__LOAD_MELT_MODULE;
-  cdat->dtup_2350__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2350__LOAD_MELT_MODULE.nbval = 5;
- /*inimult dtup_2351__LOAD_MELT_MODULE*/
- /*_.VALTUP___V2361*/ curfptr[2360] = (void*)&cdat->dtup_2351__LOAD_MELT_MODULE;
-  cdat->dtup_2351__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2351__LOAD_MELT_MODULE.nbval = 2;
- /*iniobj dsym_2352__ENV*/
- if (!/*_.VALDATA___V2358*/ curfptr[2357]) /*_.VALDATA___V2358*/ curfptr[2357] = (void*)&cdat->dsym_2352__ENV;
-  melt_assertmsg("iniobj checkdiscr dsym_2352__ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2352__ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2352__ENV.obj_hash = 127517568;
-  cdat->dsym_2352__ENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2352__ENV));
- 
- /*inistring dstr_2353__ENV*/
- /*_.VALSTR___V2359*/ curfptr[2358] = (void*)&cdat->dstr_2353__ENV;
-  cdat->dstr_2353__ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2353__ENV.val, "ENV", sizeof(cdat->dstr_2353__ENV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1360:/ iniobj");
- /*iniobj dobj_2354*/
- if (!/*_.VALDATA___V2357*/ curfptr[2356]) /*_.VALDATA___V2357*/ curfptr[2356] = (void*)&cdat->dobj_2354;
-  melt_assertmsg("iniobj checkdiscr dobj_2354", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2354.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2354.obj_num = 0;
-  cdat->dobj_2354.obj_hash = 420491730;
-  cdat->dobj_2354.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2354));
- 
- MELT_LOCATION("warmelt-first.melt:1360:/ iniobj");
- /*iniobj dobj_2355*/
- if (!/*_.VALDATA___V2360*/ curfptr[2359]) /*_.VALDATA___V2360*/ curfptr[2359] = (void*)&cdat->dobj_2355;
-  melt_assertmsg("iniobj checkdiscr dobj_2355", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2355.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2355.obj_num = 1;
-  cdat->dobj_2355.obj_hash = 898140092;
-  cdat->dobj_2355.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2355));
- 
- /*inistring dstr_2356__meltgc_load_mel*/
- /*_.VALSTR___V2362*/ curfptr[2361] = (void*)&cdat->dstr_2356__meltgc_load_mel;
-  cdat->dstr_2356__meltgc_load_mel.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2356__meltgc_load_mel.val, "(meltgc_load_melt_module((melt_ptr_t)(", sizeof(cdat->dstr_2356__meltgc_load_mel.val)-1);
- 
- /*inistring dstr_2357__melt_string*/
- /*_.VALSTR___V2363*/ curfptr[2362] = (void*)&cdat->dstr_2357__melt_string;
-  cdat->dstr_2357__melt_string.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2357__melt_string.val, "),\n  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2357__melt_string.val)-1);
- 
- /*inistring dstr_2358__*/
- /*_.VALSTR___V2364*/ curfptr[2363] = (void*)&cdat->dstr_2358__;
-  cdat->dstr_2358__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2358__.val, "))))", sizeof(cdat->dstr_2358__.val)-1);
- 
- /*inistring dstr_2359__LOAD_MELT_MODULE*/
- /*_.VALSTR___V2356*/ curfptr[2355] = (void*)&cdat->dstr_2359__LOAD_MELT_MODULE;
-  cdat->dstr_2359__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2359__LOAD_MELT_MODULE.val, "LOAD_MELT_MODULE", sizeof(cdat->dstr_2359__LOAD_MELT_MODULE.val)-1);
- 
- /*iniobj dsym_2360__GENERATE_MELT_MODULE*/
- if (!/*_.VALDATA___V2366*/ curfptr[2365]) /*_.VALDATA___V2366*/ curfptr[2365] = (void*)&cdat->dsym_2360__GENERATE_MELT_MODULE;
-  melt_assertmsg("iniobj checkdiscr dsym_2360__GENERATE_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2360__GENERATE_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2360__GENERATE_MELT_MODULE.obj_hash = 308574899;
-  cdat->dsym_2360__GENERATE_MELT_MODULE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2360__GENERATE_MELT_MODULE));
- 
- /*inistring dstr_2361__GENERATE_MELT_MO*/
- /*_.VALSTR___V2367*/ curfptr[2366] = (void*)&cdat->dstr_2361__GENERATE_MELT_MO;
-  cdat->dstr_2361__GENERATE_MELT_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2361__GENERATE_MELT_MO.val, "GENERATE_MELT_MODULE", sizeof(cdat->dstr_2361__GENERATE_MELT_MO.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1368:/ iniobj");
- /*iniobj dobj_2362__GENERATE_MELT_MODULE*/
- if (!/*_.VALDATA___V2368*/ curfptr[2367]) /*_.VALDATA___V2368*/ curfptr[2367] = (void*)&cdat->dobj_2362__GENERATE_MELT_MODULE;
-  melt_assertmsg("iniobj checkdiscr dobj_2362__GENERATE_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2362__GENERATE_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2362__GENERATE_MELT_MODULE.obj_hash = 53334457;
-  cdat->dobj_2362__GENERATE_MELT_MODULE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2362__GENERATE_MELT_MODULE));
- 
- /*inimult dtup_2363__GENERATE_MELT_MODULE*/
- /*_.VALTUP___V2380*/ curfptr[2379] = (void*)&cdat->dtup_2363__GENERATE_MELT_MODULE;
-  cdat->dtup_2363__GENERATE_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2363__GENERATE_MELT_MODULE.nbval = 5;
- /*inimult dtup_2364__GENERATE_MELT_MODULE*/
- /*_.VALTUP___V2376*/ curfptr[2375] = (void*)&cdat->dtup_2364__GENERATE_MELT_MODULE;
-  cdat->dtup_2364__GENERATE_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2364__GENERATE_MELT_MODULE.nbval = 2;
- /*iniobj dsym_2365__SRC*/
- if (!/*_.VALDATA___V2371*/ curfptr[2370]) /*_.VALDATA___V2371*/ curfptr[2370] = (void*)&cdat->dsym_2365__SRC;
-  melt_assertmsg("iniobj checkdiscr dsym_2365__SRC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2365__SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2365__SRC.obj_hash = 349785178;
-  cdat->dsym_2365__SRC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2365__SRC));
- 
- /*inistring dstr_2366__SRC*/
- /*_.VALSTR___V2372*/ curfptr[2371] = (void*)&cdat->dstr_2366__SRC;
-  cdat->dstr_2366__SRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2366__SRC.val, "SRC", sizeof(cdat->dstr_2366__SRC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1368:/ iniobj");
- /*iniobj dobj_2367*/
- if (!/*_.VALDATA___V2370*/ curfptr[2369]) /*_.VALDATA___V2370*/ curfptr[2369] = (void*)&cdat->dobj_2367;
-  melt_assertmsg("iniobj checkdiscr dobj_2367", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2367.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2367.obj_num = 0;
-  cdat->dobj_2367.obj_hash = 43252443;
-  cdat->dobj_2367.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2367));
- 
- /*iniobj dsym_2368__OUTNAM*/
- if (!/*_.VALDATA___V2374*/ curfptr[2373]) /*_.VALDATA___V2374*/ curfptr[2373] = (void*)&cdat->dsym_2368__OUTNAM;
-  melt_assertmsg("iniobj checkdiscr dsym_2368__OUTNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2368__OUTNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2368__OUTNAM.obj_hash = 352608537;
-  cdat->dsym_2368__OUTNAM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2368__OUTNAM));
- 
- /*inistring dstr_2369__OUTNAM*/
- /*_.VALSTR___V2375*/ curfptr[2374] = (void*)&cdat->dstr_2369__OUTNAM;
-  cdat->dstr_2369__OUTNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2369__OUTNAM.val, "OUTNAM", sizeof(cdat->dstr_2369__OUTNAM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1368:/ iniobj");
- /*iniobj dobj_2370*/
- if (!/*_.VALDATA___V2373*/ curfptr[2372]) /*_.VALDATA___V2373*/ curfptr[2372] = (void*)&cdat->dobj_2370;
-  melt_assertmsg("iniobj checkdiscr dobj_2370", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2370.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2370.obj_num = 1;
-  cdat->dobj_2370.obj_hash = 83375935;
-  cdat->dobj_2370.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2370));
- 
- /*inistring dstr_2371__meltgc_generate_*/
- /*_.VALSTR___V2377*/ curfptr[2376] = (void*)&cdat->dstr_2371__meltgc_generate_;
-  cdat->dstr_2371__meltgc_generate_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2371__meltgc_generate_.val, "meltgc_generate_melt_module(", sizeof(cdat->dstr_2371__meltgc_generate_.val)-1);
- 
- /*inistring dstr_2372__*/
- /*_.VALSTR___V2378*/ curfptr[2377] = (void*)&cdat->dstr_2372__;
-  cdat->dstr_2372__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2372__.val, ",", sizeof(cdat->dstr_2372__.val)-1);
- 
- /*inistring dstr_2373__*/
- /*_.VALSTR___V2379*/ curfptr[2378] = (void*)&cdat->dstr_2373__;
-  cdat->dstr_2373__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2373__.val, ");", sizeof(cdat->dstr_2373__.val)-1);
- 
- /*inistring dstr_2374__GENERATE_MELT_MO*/
- /*_.VALSTR___V2369*/ curfptr[2368] = (void*)&cdat->dstr_2374__GENERATE_MELT_MO;
-  cdat->dstr_2374__GENERATE_MELT_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2374__GENERATE_MELT_MO.val, "GENERATE_MELT_MODULE", sizeof(cdat->dstr_2374__GENERATE_MELT_MO.val)-1);
- 
- /*iniobj dsym_2375__OBJECT_LENGTH*/
- if (!/*_.VALDATA___V2381*/ curfptr[2380]) /*_.VALDATA___V2381*/ curfptr[2380] = (void*)&cdat->dsym_2375__OBJECT_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2375__OBJECT_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2375__OBJECT_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2375__OBJECT_LENGTH.obj_hash = 913040829;
-  cdat->dsym_2375__OBJECT_LENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2375__OBJECT_LENGTH));
- 
- /*inistring dstr_2376__OBJECT_LENGTH*/
- /*_.VALSTR___V2382*/ curfptr[2381] = (void*)&cdat->dstr_2376__OBJECT_LENGTH;
-  cdat->dstr_2376__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2376__OBJECT_LENGTH.val, "OBJECT_LENGTH", sizeof(cdat->dstr_2376__OBJECT_LENGTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1376:/ iniobj");
- /*iniobj dobj_2377__OBJECT_LENGTH*/
- if (!/*_.VALDATA___V2383*/ curfptr[2382]) /*_.VALDATA___V2383*/ curfptr[2382] = (void*)&cdat->dobj_2377__OBJECT_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2377__OBJECT_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2377__OBJECT_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2377__OBJECT_LENGTH.obj_hash = 554082547;
-  cdat->dobj_2377__OBJECT_LENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2377__OBJECT_LENGTH));
- 
- /*inimult dtup_2378__OBJECT_LENGTH*/
- /*_.VALTUP___V2391*/ curfptr[2390] = (void*)&cdat->dtup_2378__OBJECT_LENGTH;
-  cdat->dtup_2378__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2378__OBJECT_LENGTH.nbval = 3;
- /*inimult dtup_2379__OBJECT_LENGTH*/
- /*_.VALTUP___V2388*/ curfptr[2387] = (void*)&cdat->dtup_2379__OBJECT_LENGTH;
-  cdat->dtup_2379__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2379__OBJECT_LENGTH.nbval = 1;
- /*iniobj dsym_2380__OB*/
- if (!/*_.VALDATA___V2386*/ curfptr[2385]) /*_.VALDATA___V2386*/ curfptr[2385] = (void*)&cdat->dsym_2380__OB;
-  melt_assertmsg("iniobj checkdiscr dsym_2380__OB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2380__OB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2380__OB.obj_hash = 19822711;
-  cdat->dsym_2380__OB.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2380__OB));
- 
- /*inistring dstr_2381__OB*/
- /*_.VALSTR___V2387*/ curfptr[2386] = (void*)&cdat->dstr_2381__OB;
-  cdat->dstr_2381__OB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2381__OB.val, "OB", sizeof(cdat->dstr_2381__OB.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1376:/ iniobj");
- /*iniobj dobj_2382*/
- if (!/*_.VALDATA___V2385*/ curfptr[2384]) /*_.VALDATA___V2385*/ curfptr[2384] = (void*)&cdat->dobj_2382;
-  melt_assertmsg("iniobj checkdiscr dobj_2382", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2382.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2382.obj_num = 0;
-  cdat->dobj_2382.obj_hash = 163619484;
-  cdat->dobj_2382.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2382));
- 
- /*inistring dstr_2383__long_melt_obje*/
- /*_.VALSTR___V2389*/ curfptr[2388] = (void*)&cdat->dstr_2383__long_melt_obje;
-  cdat->dstr_2383__long_melt_obje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2383__long_melt_obje.val, "((long)melt_object_length((melt_ptr_t)(", sizeof(cdat->dstr_2383__long_melt_obje.val)-1);
- 
- /*inistring dstr_2384__*/
- /*_.VALSTR___V2390*/ curfptr[2389] = (void*)&cdat->dstr_2384__;
-  cdat->dstr_2384__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2384__.val, ")))", sizeof(cdat->dstr_2384__.val)-1);
- 
- /*inistring dstr_2385__OBJECT_LENGTH*/
- /*_.VALSTR___V2384*/ curfptr[2383] = (void*)&cdat->dstr_2385__OBJECT_LENGTH;
-  cdat->dstr_2385__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2385__OBJECT_LENGTH.val, "OBJECT_LENGTH", sizeof(cdat->dstr_2385__OBJECT_LENGTH.val)-1);
- 
- /*iniobj dsym_2386__OBJECT_NTH_FIELD*/
- if (!/*_.VALDATA___V2392*/ curfptr[2391]) /*_.VALDATA___V2392*/ curfptr[2391] = (void*)&cdat->dsym_2386__OBJECT_NTH_FIELD;
-  melt_assertmsg("iniobj checkdiscr dsym_2386__OBJECT_NTH_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2386__OBJECT_NTH_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2386__OBJECT_NTH_FIELD.obj_hash = 343274150;
-  cdat->dsym_2386__OBJECT_NTH_FIELD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2386__OBJECT_NTH_FIELD));
- 
- /*inistring dstr_2387__OBJECT_NTH_FIELD*/
- /*_.VALSTR___V2393*/ curfptr[2392] = (void*)&cdat->dstr_2387__OBJECT_NTH_FIELD;
-  cdat->dstr_2387__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2387__OBJECT_NTH_FIELD.val, "OBJECT_NTH_FIELD", sizeof(cdat->dstr_2387__OBJECT_NTH_FIELD.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1380:/ iniobj");
- /*iniobj dobj_2388__OBJECT_NTH_FIELD*/
- if (!/*_.VALDATA___V2394*/ curfptr[2393]) /*_.VALDATA___V2394*/ curfptr[2393] = (void*)&cdat->dobj_2388__OBJECT_NTH_FIELD;
-  melt_assertmsg("iniobj checkdiscr dobj_2388__OBJECT_NTH_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2388__OBJECT_NTH_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2388__OBJECT_NTH_FIELD.obj_hash = 816617225;
-  cdat->dobj_2388__OBJECT_NTH_FIELD.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2388__OBJECT_NTH_FIELD));
- 
- /*inimult dtup_2389__OBJECT_NTH_FIELD*/
- /*_.VALTUP___V2404*/ curfptr[2403] = (void*)&cdat->dtup_2389__OBJECT_NTH_FIELD;
-  cdat->dtup_2389__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2389__OBJECT_NTH_FIELD.nbval = 5;
- /*inimult dtup_2390__OBJECT_NTH_FIELD*/
- /*_.VALTUP___V2400*/ curfptr[2399] = (void*)&cdat->dtup_2390__OBJECT_NTH_FIELD;
-  cdat->dtup_2390__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2390__OBJECT_NTH_FIELD.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1380:/ iniobj");
- /*iniobj dobj_2391*/
- if (!/*_.VALDATA___V2396*/ curfptr[2395]) /*_.VALDATA___V2396*/ curfptr[2395] = (void*)&cdat->dobj_2391;
-  melt_assertmsg("iniobj checkdiscr dobj_2391", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2391.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2391.obj_num = 0;
-  cdat->dobj_2391.obj_hash = 438715609;
-  cdat->dobj_2391.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2391));
- 
- /*iniobj dsym_2392__N*/
- if (!/*_.VALDATA___V2398*/ curfptr[2397]) /*_.VALDATA___V2398*/ curfptr[2397] = (void*)&cdat->dsym_2392__N;
-  melt_assertmsg("iniobj checkdiscr dsym_2392__N", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2392__N.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2392__N.obj_hash = 107499106;
-  cdat->dsym_2392__N.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2392__N));
- 
- /*inistring dstr_2393__N*/
- /*_.VALSTR___V2399*/ curfptr[2398] = (void*)&cdat->dstr_2393__N;
-  cdat->dstr_2393__N.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2393__N.val, "N", sizeof(cdat->dstr_2393__N.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1380:/ iniobj");
- /*iniobj dobj_2394*/
- if (!/*_.VALDATA___V2397*/ curfptr[2396]) /*_.VALDATA___V2397*/ curfptr[2396] = (void*)&cdat->dobj_2394;
-  melt_assertmsg("iniobj checkdiscr dobj_2394", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2394.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2394.obj_num = 1;
-  cdat->dobj_2394.obj_hash = 25489016;
-  cdat->dobj_2394.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2394));
- 
- /*inistring dstr_2395__melt_field_obje*/
- /*_.VALSTR___V2401*/ curfptr[2400] = (void*)&cdat->dstr_2395__melt_field_obje;
-  cdat->dstr_2395__melt_field_obje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2395__melt_field_obje.val, "(melt_field_object((melt_ptr_t)(", sizeof(cdat->dstr_2395__melt_field_obje.val)-1);
- 
- /*inistring dstr_2396__*/
- /*_.VALSTR___V2402*/ curfptr[2401] = (void*)&cdat->dstr_2396__;
-  cdat->dstr_2396__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2396__.val, "), (", sizeof(cdat->dstr_2396__.val)-1);
- 
- /*inistring dstr_2397__*/
- /*_.VALSTR___V2403*/ curfptr[2402] = (void*)&cdat->dstr_2397__;
-  cdat->dstr_2397__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2397__.val, ")))", sizeof(cdat->dstr_2397__.val)-1);
- 
- /*inistring dstr_2398__OBJECT_NTH_FIELD*/
- /*_.VALSTR___V2395*/ curfptr[2394] = (void*)&cdat->dstr_2398__OBJECT_NTH_FIELD;
-  cdat->dstr_2398__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2398__OBJECT_NTH_FIELD.val, "OBJECT_NTH_FIELD", sizeof(cdat->dstr_2398__OBJECT_NTH_FIELD.val)-1);
- 
- /*iniobj dsym_2399__SUBCLASS_OF*/
- if (!/*_.VALDATA___V2405*/ curfptr[2404]) /*_.VALDATA___V2405*/ curfptr[2404] = (void*)&cdat->dsym_2399__SUBCLASS_OF;
-  melt_assertmsg("iniobj checkdiscr dsym_2399__SUBCLASS_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2399__SUBCLASS_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2399__SUBCLASS_OF.obj_hash = 234775031;
-  cdat->dsym_2399__SUBCLASS_OF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2399__SUBCLASS_OF));
- 
- /*inistring dstr_2400__SUBCLASS_OF*/
- /*_.VALSTR___V2406*/ curfptr[2405] = (void*)&cdat->dstr_2400__SUBCLASS_OF;
-  cdat->dstr_2400__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2400__SUBCLASS_OF.val, "SUBCLASS_OF", sizeof(cdat->dstr_2400__SUBCLASS_OF.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1384:/ iniobj");
- /*iniobj dobj_2401__SUBCLASS_OF*/
- if (!/*_.VALDATA___V2407*/ curfptr[2406]) /*_.VALDATA___V2407*/ curfptr[2406] = (void*)&cdat->dobj_2401__SUBCLASS_OF;
-  melt_assertmsg("iniobj checkdiscr dobj_2401__SUBCLASS_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2401__SUBCLASS_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2401__SUBCLASS_OF.obj_hash = 135363676;
-  cdat->dobj_2401__SUBCLASS_OF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2401__SUBCLASS_OF));
- 
- /*inimult dtup_2402__SUBCLASS_OF*/
- /*_.VALTUP___V2419*/ curfptr[2418] = (void*)&cdat->dtup_2402__SUBCLASS_OF;
-  cdat->dtup_2402__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2402__SUBCLASS_OF.nbval = 5;
- /*inimult dtup_2403__SUBCLASS_OF*/
- /*_.VALTUP___V2415*/ curfptr[2414] = (void*)&cdat->dtup_2403__SUBCLASS_OF;
-  cdat->dtup_2403__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2403__SUBCLASS_OF.nbval = 2;
- /*iniobj dsym_2404__CL1*/
- if (!/*_.VALDATA___V2410*/ curfptr[2409]) /*_.VALDATA___V2410*/ curfptr[2409] = (void*)&cdat->dsym_2404__CL1;
-  melt_assertmsg("iniobj checkdiscr dsym_2404__CL1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2404__CL1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2404__CL1.obj_hash = 52836587;
-  cdat->dsym_2404__CL1.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2404__CL1));
- 
- /*inistring dstr_2405__CL1*/
- /*_.VALSTR___V2411*/ curfptr[2410] = (void*)&cdat->dstr_2405__CL1;
-  cdat->dstr_2405__CL1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2405__CL1.val, "CL1", sizeof(cdat->dstr_2405__CL1.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1384:/ iniobj");
- /*iniobj dobj_2406*/
- if (!/*_.VALDATA___V2409*/ curfptr[2408]) /*_.VALDATA___V2409*/ curfptr[2408] = (void*)&cdat->dobj_2406;
-  melt_assertmsg("iniobj checkdiscr dobj_2406", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2406.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2406.obj_num = 0;
-  cdat->dobj_2406.obj_hash = 581769527;
-  cdat->dobj_2406.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2406));
- 
- /*iniobj dsym_2407__CL2*/
- if (!/*_.VALDATA___V2413*/ curfptr[2412]) /*_.VALDATA___V2413*/ curfptr[2412] = (void*)&cdat->dsym_2407__CL2;
-  melt_assertmsg("iniobj checkdiscr dsym_2407__CL2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2407__CL2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2407__CL2.obj_hash = 4513998;
-  cdat->dsym_2407__CL2.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2407__CL2));
- 
- /*inistring dstr_2408__CL2*/
- /*_.VALSTR___V2414*/ curfptr[2413] = (void*)&cdat->dstr_2408__CL2;
-  cdat->dstr_2408__CL2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2408__CL2.val, "CL2", sizeof(cdat->dstr_2408__CL2.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1384:/ iniobj");
- /*iniobj dobj_2409*/
- if (!/*_.VALDATA___V2412*/ curfptr[2411]) /*_.VALDATA___V2412*/ curfptr[2411] = (void*)&cdat->dobj_2409;
-  melt_assertmsg("iniobj checkdiscr dobj_2409", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2409.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2409.obj_num = 1;
-  cdat->dobj_2409.obj_hash = 742625526;
-  cdat->dobj_2409.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2409));
- 
- /*inistring dstr_2410__melt_is_subclass*/
- /*_.VALSTR___V2416*/ curfptr[2415] = (void*)&cdat->dstr_2410__melt_is_subclass;
-  cdat->dstr_2410__melt_is_subclass.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2410__melt_is_subclass.val, "melt_is_subclass_of((meltobject_ptr_t)(", sizeof(cdat->dstr_2410__melt_is_subclass.val)-1);
- 
- /*inistring dstr_2411__meltobject_p*/
- /*_.VALSTR___V2417*/ curfptr[2416] = (void*)&cdat->dstr_2411__meltobject_p;
-  cdat->dstr_2411__meltobject_p.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2411__meltobject_p.val, "), (meltobject_ptr_t)(", sizeof(cdat->dstr_2411__meltobject_p.val)-1);
- 
- /*inistring dstr_2412__*/
- /*_.VALSTR___V2418*/ curfptr[2417] = (void*)&cdat->dstr_2412__;
-  cdat->dstr_2412__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2412__.val, "))", sizeof(cdat->dstr_2412__.val)-1);
- 
- /*inistring dstr_2413__SUBCLASS_OF*/
- /*_.VALSTR___V2408*/ curfptr[2407] = (void*)&cdat->dstr_2413__SUBCLASS_OF;
-  cdat->dstr_2413__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2413__SUBCLASS_OF.val, "SUBCLASS_OF", sizeof(cdat->dstr_2413__SUBCLASS_OF.val)-1);
- 
- /*iniobj dsym_2414__SUBCLASS_OR_EQ*/
- if (!/*_.VALDATA___V2420*/ curfptr[2419]) /*_.VALDATA___V2420*/ curfptr[2419] = (void*)&cdat->dsym_2414__SUBCLASS_OR_EQ;
-  melt_assertmsg("iniobj checkdiscr dsym_2414__SUBCLASS_OR_EQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2414__SUBCLASS_OR_EQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2414__SUBCLASS_OR_EQ.obj_hash = 491951222;
-  cdat->dsym_2414__SUBCLASS_OR_EQ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2414__SUBCLASS_OR_EQ));
- 
- /*inistring dstr_2415__SUBCLASS_OR_EQ*/
- /*_.VALSTR___V2421*/ curfptr[2420] = (void*)&cdat->dstr_2415__SUBCLASS_OR_EQ;
-  cdat->dstr_2415__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2415__SUBCLASS_OR_EQ.val, "SUBCLASS_OR_EQ", sizeof(cdat->dstr_2415__SUBCLASS_OR_EQ.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1387:/ iniobj");
- /*iniobj dobj_2416__SUBCLASS_OR_EQ*/
- if (!/*_.VALDATA___V2422*/ curfptr[2421]) /*_.VALDATA___V2422*/ curfptr[2421] = (void*)&cdat->dobj_2416__SUBCLASS_OR_EQ;
-  melt_assertmsg("iniobj checkdiscr dobj_2416__SUBCLASS_OR_EQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2416__SUBCLASS_OR_EQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2416__SUBCLASS_OR_EQ.obj_hash = 439715935;
-  cdat->dobj_2416__SUBCLASS_OR_EQ.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2416__SUBCLASS_OR_EQ));
- 
- /*inimult dtup_2417__SUBCLASS_OR_EQ*/
- /*_.VALTUP___V2432*/ curfptr[2431] = (void*)&cdat->dtup_2417__SUBCLASS_OR_EQ;
-  cdat->dtup_2417__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2417__SUBCLASS_OR_EQ.nbval = 9;
- /*inimult dtup_2418__SUBCLASS_OR_EQ*/
- /*_.VALTUP___V2426*/ curfptr[2425] = (void*)&cdat->dtup_2418__SUBCLASS_OR_EQ;
-  cdat->dtup_2418__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2418__SUBCLASS_OR_EQ.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1387:/ iniobj");
- /*iniobj dobj_2419*/
- if (!/*_.VALDATA___V2424*/ curfptr[2423]) /*_.VALDATA___V2424*/ curfptr[2423] = (void*)&cdat->dobj_2419;
-  melt_assertmsg("iniobj checkdiscr dobj_2419", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2419.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2419.obj_num = 0;
-  cdat->dobj_2419.obj_hash = 865240053;
-  cdat->dobj_2419.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2419));
- 
- MELT_LOCATION("warmelt-first.melt:1387:/ iniobj");
- /*iniobj dobj_2420*/
- if (!/*_.VALDATA___V2425*/ curfptr[2424]) /*_.VALDATA___V2425*/ curfptr[2424] = (void*)&cdat->dobj_2420;
-  melt_assertmsg("iniobj checkdiscr dobj_2420", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2420.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2420.obj_num = 1;
-  cdat->dobj_2420.obj_hash = 717861399;
-  cdat->dobj_2420.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2420));
- 
- /*inistring dstr_2421__*/
- /*_.VALSTR___V2427*/ curfptr[2426] = (void*)&cdat->dstr_2421__;
-  cdat->dstr_2421__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2421__.val, "((", sizeof(cdat->dstr_2421__.val)-1);
- 
- /*inistring dstr_2422__*/
- /*_.VALSTR___V2428*/ curfptr[2427] = (void*)&cdat->dstr_2422__;
-  cdat->dstr_2422__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2422__.val, " == ", sizeof(cdat->dstr_2422__.val)-1);
- 
- /*inistring dstr_2423__melt_is_sub*/
- /*_.VALSTR___V2429*/ curfptr[2428] = (void*)&cdat->dstr_2423__melt_is_sub;
-  cdat->dstr_2423__melt_is_sub.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2423__melt_is_sub.val, ") || melt_is_subclass_of((meltobject_ptr_t)(", sizeof(cdat->dstr_2423__melt_is_sub.val)-1);
- 
- /*inistring dstr_2424__meltobject_p*/
- /*_.VALSTR___V2430*/ curfptr[2429] = (void*)&cdat->dstr_2424__meltobject_p;
-  cdat->dstr_2424__meltobject_p.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2424__meltobject_p.val, "), (meltobject_ptr_t)(", sizeof(cdat->dstr_2424__meltobject_p.val)-1);
- 
- /*inistring dstr_2425__*/
- /*_.VALSTR___V2431*/ curfptr[2430] = (void*)&cdat->dstr_2425__;
-  cdat->dstr_2425__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2425__.val, ")))", sizeof(cdat->dstr_2425__.val)-1);
- 
- /*inistring dstr_2426__SUBCLASS_OR_EQ*/
- /*_.VALSTR___V2423*/ curfptr[2422] = (void*)&cdat->dstr_2426__SUBCLASS_OR_EQ;
-  cdat->dstr_2426__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2426__SUBCLASS_OR_EQ.val, "SUBCLASS_OR_EQ", sizeof(cdat->dstr_2426__SUBCLASS_OR_EQ.val)-1);
- 
- /*iniobj dsym_2427__IS_MULTIPLE*/
- if (!/*_.VALDATA___V2433*/ curfptr[2432]) /*_.VALDATA___V2433*/ curfptr[2432] = (void*)&cdat->dsym_2427__IS_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_2427__IS_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2427__IS_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2427__IS_MULTIPLE.obj_hash = 748274074;
-  cdat->dsym_2427__IS_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2427__IS_MULTIPLE));
- 
- /*inistring dstr_2428__IS_MULTIPLE*/
- /*_.VALSTR___V2434*/ curfptr[2433] = (void*)&cdat->dstr_2428__IS_MULTIPLE;
-  cdat->dstr_2428__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2428__IS_MULTIPLE.val, "IS_MULTIPLE", sizeof(cdat->dstr_2428__IS_MULTIPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1394:/ iniobj");
- /*iniobj dobj_2429__IS_MULTIPLE*/
- if (!/*_.VALDATA___V2435*/ curfptr[2434]) /*_.VALDATA___V2435*/ curfptr[2434] = (void*)&cdat->dobj_2429__IS_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dobj_2429__IS_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2429__IS_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2429__IS_MULTIPLE.obj_hash = 1029532555;
-  cdat->dobj_2429__IS_MULTIPLE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2429__IS_MULTIPLE));
- 
- /*inimult dtup_2430__IS_MULTIPLE*/
- /*_.VALTUP___V2443*/ curfptr[2442] = (void*)&cdat->dtup_2430__IS_MULTIPLE;
-  cdat->dtup_2430__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2430__IS_MULTIPLE.nbval = 3;
- /*inimult dtup_2431__IS_MULTIPLE*/
- /*_.VALTUP___V2440*/ curfptr[2439] = (void*)&cdat->dtup_2431__IS_MULTIPLE;
-  cdat->dtup_2431__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2431__IS_MULTIPLE.nbval = 1;
- /*iniobj dsym_2432__MUL*/
- if (!/*_.VALDATA___V2438*/ curfptr[2437]) /*_.VALDATA___V2438*/ curfptr[2437] = (void*)&cdat->dsym_2432__MUL;
-  melt_assertmsg("iniobj checkdiscr dsym_2432__MUL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2432__MUL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2432__MUL.obj_hash = 90169799;
-  cdat->dsym_2432__MUL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2432__MUL));
- 
- /*inistring dstr_2433__MUL*/
- /*_.VALSTR___V2439*/ curfptr[2438] = (void*)&cdat->dstr_2433__MUL;
-  cdat->dstr_2433__MUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2433__MUL.val, "MUL", sizeof(cdat->dstr_2433__MUL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1394:/ iniobj");
- /*iniobj dobj_2434*/
- if (!/*_.VALDATA___V2437*/ curfptr[2436]) /*_.VALDATA___V2437*/ curfptr[2436] = (void*)&cdat->dobj_2434;
-  melt_assertmsg("iniobj checkdiscr dobj_2434", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2434.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2434.obj_num = 0;
-  cdat->dobj_2434.obj_hash = 290050597;
-  cdat->dobj_2434.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2434));
- 
- /*inistring dstr_2435__melt_magic_disc*/
- /*_.VALSTR___V2441*/ curfptr[2440] = (void*)&cdat->dstr_2435__melt_magic_disc;
-  cdat->dstr_2435__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2435__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2435__melt_magic_disc.val)-1);
- 
- /*inistring dstr_2436__OBMAG_MULT*/
- /*_.VALSTR___V2442*/ curfptr[2441] = (void*)&cdat->dstr_2436__OBMAG_MULT;
-  cdat->dstr_2436__OBMAG_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2436__OBMAG_MULT.val, ")) == OBMAG_MULTIPLE)", sizeof(cdat->dstr_2436__OBMAG_MULT.val)-1);
- 
- /*inistring dstr_2437__IS_MULTIPLE*/
- /*_.VALSTR___V2436*/ curfptr[2435] = (void*)&cdat->dstr_2437__IS_MULTIPLE;
-  cdat->dstr_2437__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2437__IS_MULTIPLE.val, "IS_MULTIPLE", sizeof(cdat->dstr_2437__IS_MULTIPLE.val)-1);
- 
- /*iniobj dsym_2438__IS_MULTIPLE_OR_NULL*/
- if (!/*_.VALDATA___V2444*/ curfptr[2443]) /*_.VALDATA___V2444*/ curfptr[2443] = (void*)&cdat->dsym_2438__IS_MULTIPLE_OR_NULL;
-  melt_assertmsg("iniobj checkdiscr dsym_2438__IS_MULTIPLE_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2438__IS_MULTIPLE_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2438__IS_MULTIPLE_OR_NULL.obj_hash = 798581263;
-  cdat->dsym_2438__IS_MULTIPLE_OR_NULL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2438__IS_MULTIPLE_OR_NULL));
+ /*iniobj dobj_2297*/
+ if (!/*_.VALDATA___V2302*/ curfptr[2301]) /*_.VALDATA___V2302*/ curfptr[2301] = (void*)&cdat->dobj_2297;
+  melt_assertmsg("iniobj checkdiscr dobj_2297", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2297.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2297.obj_num = 1;
+  cdat->dobj_2297.obj_hash = 823216106;
+  cdat->dobj_2297.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2297));
+ 
+ /*inistring dstr_2298__meltgc_new_split*/
+ /*_.VALSTR___V2304*/ curfptr[2303] = (void*)&cdat->dstr_2298__meltgc_new_split;
+  cdat->dstr_2298__meltgc_new_split.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2298__meltgc_new_split.val, "meltgc_new_split_string(", sizeof(cdat->dstr_2298__meltgc_new_split.val)-1);
+ 
+ /*inistring dstr_2299__melt_ptr*/
+ /*_.VALSTR___V2305*/ curfptr[2304] = (void*)&cdat->dstr_2299__melt_ptr;
+  cdat->dstr_2299__melt_ptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2299__melt_ptr.val, ", \':\', (melt_ptr_t)", sizeof(cdat->dstr_2299__melt_ptr.val)-1);
+ 
+ /*inistring dstr_2300__*/
+ /*_.VALSTR___V2306*/ curfptr[2305] = (void*)&cdat->dstr_2300__;
+  cdat->dstr_2300__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2300__.val, ")", sizeof(cdat->dstr_2300__.val)-1);
+ 
+ /*inistring dstr_2301__SPLIT_STRING_COL*/
+ /*_.VALSTR___V2300*/ curfptr[2299] = (void*)&cdat->dstr_2301__SPLIT_STRING_COL;
+  cdat->dstr_2301__SPLIT_STRING_COL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2301__SPLIT_STRING_COL.val, "SPLIT_STRING_COLON", sizeof(cdat->dstr_2301__SPLIT_STRING_COL.val)-1);
+ 
+ /*iniobj dsym_2302__STRBUF2STRING*/
+ if (!/*_.VALDATA___V2308*/ curfptr[2307]) /*_.VALDATA___V2308*/ curfptr[2307] = (void*)&cdat->dsym_2302__STRBUF2STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2302__STRBUF2STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2302__STRBUF2STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2302__STRBUF2STRING.obj_hash = 424237394;
+  cdat->dsym_2302__STRBUF2STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2302__STRBUF2STRING));
+ 
+ /*inistring dstr_2303__STRBUF2STRING*/
+ /*_.VALSTR___V2309*/ curfptr[2308] = (void*)&cdat->dstr_2303__STRBUF2STRING;
+  cdat->dstr_2303__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2303__STRBUF2STRING.val, "STRBUF2STRING", sizeof(cdat->dstr_2303__STRBUF2STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1337:/ iniobj");
+ /*iniobj dobj_2304__STRBUF2STRING*/
+ if (!/*_.VALDATA___V2310*/ curfptr[2309]) /*_.VALDATA___V2310*/ curfptr[2309] = (void*)&cdat->dobj_2304__STRBUF2STRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2304__STRBUF2STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2304__STRBUF2STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2304__STRBUF2STRING.obj_hash = 127012837;
+  cdat->dobj_2304__STRBUF2STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2304__STRBUF2STRING));
+ 
+ /*inimult dtup_2305__STRBUF2STRING*/
+ /*_.VALTUP___V2318*/ curfptr[2317] = (void*)&cdat->dtup_2305__STRBUF2STRING;
+  cdat->dtup_2305__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2305__STRBUF2STRING.nbval = 5;
+ /*inimult dtup_2306__STRBUF2STRING*/
+ /*_.VALTUP___V2314*/ curfptr[2313] = (void*)&cdat->dtup_2306__STRBUF2STRING;
+  cdat->dtup_2306__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2306__STRBUF2STRING.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1337:/ iniobj");
+ /*iniobj dobj_2307*/
+ if (!/*_.VALDATA___V2312*/ curfptr[2311]) /*_.VALDATA___V2312*/ curfptr[2311] = (void*)&cdat->dobj_2307;
+  melt_assertmsg("iniobj checkdiscr dobj_2307", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2307.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2307.obj_num = 0;
+  cdat->dobj_2307.obj_hash = 271466207;
+  cdat->dobj_2307.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2307));
+ 
+ MELT_LOCATION("warmelt-first.melt:1337:/ iniobj");
+ /*iniobj dobj_2308*/
+ if (!/*_.VALDATA___V2313*/ curfptr[2312]) /*_.VALDATA___V2313*/ curfptr[2312] = (void*)&cdat->dobj_2308;
+  melt_assertmsg("iniobj checkdiscr dobj_2308", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2308.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2308.obj_num = 1;
+  cdat->dobj_2308.obj_hash = 332640935;
+  cdat->dobj_2308.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2308));
+ 
+ /*inistring dstr_2309__meltgc_new_stri*/
+ /*_.VALSTR___V2315*/ curfptr[2314] = (void*)&cdat->dstr_2309__meltgc_new_stri;
+  cdat->dstr_2309__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2309__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2309__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_2310__melt_strbuf_s*/
+ /*_.VALSTR___V2316*/ curfptr[2315] = (void*)&cdat->dstr_2310__melt_strbuf_s;
+  cdat->dstr_2310__melt_strbuf_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2310__melt_strbuf_s.val, "), melt_strbuf_str((melt_ptr_t)(", sizeof(cdat->dstr_2310__melt_strbuf_s.val)-1);
+ 
+ /*inistring dstr_2311__*/
+ /*_.VALSTR___V2317*/ curfptr[2316] = (void*)&cdat->dstr_2311__;
+  cdat->dstr_2311__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2311__.val, "))))", sizeof(cdat->dstr_2311__.val)-1);
+ 
+ /*inistring dstr_2312__STRBUF2STRING*/
+ /*_.VALSTR___V2311*/ curfptr[2310] = (void*)&cdat->dstr_2312__STRBUF2STRING;
+  cdat->dstr_2312__STRBUF2STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2312__STRBUF2STRING.val, "STRBUF2STRING", sizeof(cdat->dstr_2312__STRBUF2STRING.val)-1);
+ 
+ /*iniobj dsym_2313__MAKE_STRING_NAKEDBASENAME*/
+ if (!/*_.VALDATA___V2319*/ curfptr[2318]) /*_.VALDATA___V2319*/ curfptr[2318] = (void*)&cdat->dsym_2313__MAKE_STRING_NAKEDBASENAME;
+  melt_assertmsg("iniobj checkdiscr dsym_2313__MAKE_STRING_NAKEDBASENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2313__MAKE_STRING_NAKEDBASENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2313__MAKE_STRING_NAKEDBASENAME.obj_hash = 1067554920;
+  cdat->dsym_2313__MAKE_STRING_NAKEDBASENAME.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2313__MAKE_STRING_NAKEDBASENAME));
+ 
+ /*inistring dstr_2314__MAKE_STRING_NAKE*/
+ /*_.VALSTR___V2320*/ curfptr[2319] = (void*)&cdat->dstr_2314__MAKE_STRING_NAKE;
+  cdat->dstr_2314__MAKE_STRING_NAKE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2314__MAKE_STRING_NAKE.val, "MAKE_STRING_NAKEDBASENAME", sizeof(cdat->dstr_2314__MAKE_STRING_NAKE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1343:/ iniobj");
+ /*iniobj dobj_2315__MAKE_STRING_NAKEDBASENAME*/
+ if (!/*_.VALDATA___V2321*/ curfptr[2320]) /*_.VALDATA___V2321*/ curfptr[2320] = (void*)&cdat->dobj_2315__MAKE_STRING_NAKEDBASENAME;
+  melt_assertmsg("iniobj checkdiscr dobj_2315__MAKE_STRING_NAKEDBASENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2315__MAKE_STRING_NAKEDBASENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2315__MAKE_STRING_NAKEDBASENAME.obj_hash = 692264457;
+  cdat->dobj_2315__MAKE_STRING_NAKEDBASENAME.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2315__MAKE_STRING_NAKEDBASENAME));
+ 
+ /*inimult dtup_2316__MAKE_STRING_NAKEDBASENAME*/
+ /*_.VALTUP___V2329*/ curfptr[2328] = (void*)&cdat->dtup_2316__MAKE_STRING_NAKEDBASENAME;
+  cdat->dtup_2316__MAKE_STRING_NAKEDBASENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2316__MAKE_STRING_NAKEDBASENAME.nbval = 5;
+ /*inimult dtup_2317__MAKE_STRING_NAKEDBASENAME*/
+ /*_.VALTUP___V2325*/ curfptr[2324] = (void*)&cdat->dtup_2317__MAKE_STRING_NAKEDBASENAME;
+  cdat->dtup_2317__MAKE_STRING_NAKEDBASENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2317__MAKE_STRING_NAKEDBASENAME.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1343:/ iniobj");
+ /*iniobj dobj_2318*/
+ if (!/*_.VALDATA___V2323*/ curfptr[2322]) /*_.VALDATA___V2323*/ curfptr[2322] = (void*)&cdat->dobj_2318;
+  melt_assertmsg("iniobj checkdiscr dobj_2318", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2318.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2318.obj_num = 0;
+  cdat->dobj_2318.obj_hash = 44582022;
+  cdat->dobj_2318.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2318));
+ 
+ MELT_LOCATION("warmelt-first.melt:1343:/ iniobj");
+ /*iniobj dobj_2319*/
+ if (!/*_.VALDATA___V2324*/ curfptr[2323]) /*_.VALDATA___V2324*/ curfptr[2323] = (void*)&cdat->dobj_2319;
+  melt_assertmsg("iniobj checkdiscr dobj_2319", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2319.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2319.obj_num = 1;
+  cdat->dobj_2319.obj_hash = 286155773;
+  cdat->dobj_2319.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2319));
+ 
+ /*inistring dstr_2320__meltgc_new_stri*/
+ /*_.VALSTR___V2326*/ curfptr[2325] = (void*)&cdat->dstr_2320__meltgc_new_stri;
+  cdat->dstr_2320__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2320__meltgc_new_stri.val, "(meltgc_new_string_nakedbasename((meltobject_ptr_t)(", sizeof(cdat->dstr_2320__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_2321__melt_string_s*/
+ /*_.VALSTR___V2327*/ curfptr[2326] = (void*)&cdat->dstr_2321__melt_string_s;
+  cdat->dstr_2321__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2321__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2321__melt_string_s.val)-1);
+ 
+ /*inistring dstr_2322__*/
+ /*_.VALSTR___V2328*/ curfptr[2327] = (void*)&cdat->dstr_2322__;
+  cdat->dstr_2322__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2322__.val, "))))", sizeof(cdat->dstr_2322__.val)-1);
+ 
+ /*inistring dstr_2323__MAKE_STRING_NAKE*/
+ /*_.VALSTR___V2322*/ curfptr[2321] = (void*)&cdat->dstr_2323__MAKE_STRING_NAKE;
+  cdat->dstr_2323__MAKE_STRING_NAKE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2323__MAKE_STRING_NAKE.val, "MAKE_STRING_NAKEDBASENAME", sizeof(cdat->dstr_2323__MAKE_STRING_NAKE.val)-1);
+ 
+ /*iniobj dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED*/
+ if (!/*_.VALDATA___V2330*/ curfptr[2329]) /*_.VALDATA___V2330*/ curfptr[2329] = (void*)&cdat->dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED;
+  melt_assertmsg("iniobj checkdiscr dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 11796860;
+  cdat->dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2324__MAKE_STRING_TEMPNAME_SUFFIXED));
+ 
+ /*inistring dstr_2325__MAKE_STRING_TEMP*/
+ /*_.VALSTR___V2331*/ curfptr[2330] = (void*)&cdat->dstr_2325__MAKE_STRING_TEMP;
+  cdat->dstr_2325__MAKE_STRING_TEMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2325__MAKE_STRING_TEMP.val, "MAKE_STRING_TEMPNAME_SUFFIXED", sizeof(cdat->dstr_2325__MAKE_STRING_TEMP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1347:/ iniobj");
+ /*iniobj dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED*/
+ if (!/*_.VALDATA___V2332*/ curfptr[2331]) /*_.VALDATA___V2332*/ curfptr[2331] = (void*)&cdat->dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED;
+  melt_assertmsg("iniobj checkdiscr dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED.obj_hash = 26019457;
+  cdat->dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2326__MAKE_STRING_TEMPNAME_SUFFIXED));
+ 
+ /*inimult dtup_2327__MAKE_STRING_TEMPNAME_SUFFIXED*/
+ /*_.VALTUP___V2344*/ curfptr[2343] = (void*)&cdat->dtup_2327__MAKE_STRING_TEMPNAME_SUFFIXED;
+  cdat->dtup_2327__MAKE_STRING_TEMPNAME_SUFFIXED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2327__MAKE_STRING_TEMPNAME_SUFFIXED.nbval = 7;
+ /*inimult dtup_2328__MAKE_STRING_TEMPNAME_SUFFIXED*/
+ /*_.VALTUP___V2339*/ curfptr[2338] = (void*)&cdat->dtup_2328__MAKE_STRING_TEMPNAME_SUFFIXED;
+  cdat->dtup_2328__MAKE_STRING_TEMPNAME_SUFFIXED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2328__MAKE_STRING_TEMPNAME_SUFFIXED.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1347:/ iniobj");
+ /*iniobj dobj_2329*/
+ if (!/*_.VALDATA___V2334*/ curfptr[2333]) /*_.VALDATA___V2334*/ curfptr[2333] = (void*)&cdat->dobj_2329;
+  melt_assertmsg("iniobj checkdiscr dobj_2329", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2329.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2329.obj_num = 0;
+  cdat->dobj_2329.obj_hash = 16979156;
+  cdat->dobj_2329.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2329));
+ 
+ MELT_LOCATION("warmelt-first.melt:1347:/ iniobj");
+ /*iniobj dobj_2330*/
+ if (!/*_.VALDATA___V2335*/ curfptr[2334]) /*_.VALDATA___V2335*/ curfptr[2334] = (void*)&cdat->dobj_2330;
+  melt_assertmsg("iniobj checkdiscr dobj_2330", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2330.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2330.obj_num = 1;
+  cdat->dobj_2330.obj_hash = 1065191580;
+  cdat->dobj_2330.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2330));
+ 
+ /*iniobj dsym_2331__SUFF*/
+ if (!/*_.VALDATA___V2337*/ curfptr[2336]) /*_.VALDATA___V2337*/ curfptr[2336] = (void*)&cdat->dsym_2331__SUFF;
+  melt_assertmsg("iniobj checkdiscr dsym_2331__SUFF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2331__SUFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2331__SUFF.obj_hash = 936809468;
+  cdat->dsym_2331__SUFF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2331__SUFF));
+ 
+ /*inistring dstr_2332__SUFF*/
+ /*_.VALSTR___V2338*/ curfptr[2337] = (void*)&cdat->dstr_2332__SUFF;
+  cdat->dstr_2332__SUFF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2332__SUFF.val, "SUFF", sizeof(cdat->dstr_2332__SUFF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1347:/ iniobj");
+ /*iniobj dobj_2333*/
+ if (!/*_.VALDATA___V2336*/ curfptr[2335]) /*_.VALDATA___V2336*/ curfptr[2335] = (void*)&cdat->dobj_2333;
+  melt_assertmsg("iniobj checkdiscr dobj_2333", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2333.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2333.obj_num = 2;
+  cdat->dobj_2333.obj_hash = 979644299;
+  cdat->dobj_2333.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2333));
+ 
+ /*inistring dstr_2334__meltgc_new_stri*/
+ /*_.VALSTR___V2340*/ curfptr[2339] = (void*)&cdat->dstr_2334__meltgc_new_stri;
+  cdat->dstr_2334__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2334__meltgc_new_stri.val, "(meltgc_new_string_tempname_suffixed((meltobject_ptr_t)(", sizeof(cdat->dstr_2334__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_2335__melt_s*/
+ /*_.VALSTR___V2341*/ curfptr[2340] = (void*)&cdat->dstr_2335__melt_s;
+  cdat->dstr_2335__melt_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2335__melt_s.val, "), \n\t\t\t\t\t melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2335__melt_s.val)-1);
+ 
+ /*inistring dstr_2336__*/
+ /*_.VALSTR___V2342*/ curfptr[2341] = (void*)&cdat->dstr_2336__;
+  cdat->dstr_2336__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2336__.val, ")), \n\t\t\t\t\t (", sizeof(cdat->dstr_2336__.val)-1);
+ 
+ /*inistring dstr_2337__*/
+ /*_.VALSTR___V2343*/ curfptr[2342] = (void*)&cdat->dstr_2337__;
+  cdat->dstr_2337__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2337__.val, ")))", sizeof(cdat->dstr_2337__.val)-1);
+ 
+ /*inistring dstr_2338__MAKE_STRING_TEMP*/
+ /*_.VALSTR___V2333*/ curfptr[2332] = (void*)&cdat->dstr_2338__MAKE_STRING_TEMP;
+  cdat->dstr_2338__MAKE_STRING_TEMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2338__MAKE_STRING_TEMP.val, "MAKE_STRING_TEMPNAME_SUFFIXED", sizeof(cdat->dstr_2338__MAKE_STRING_TEMP.val)-1);
+ 
+ /*iniobj dsym_2339__LOAD_MELT_MODULE*/
+ if (!/*_.VALDATA___V2345*/ curfptr[2344]) /*_.VALDATA___V2345*/ curfptr[2344] = (void*)&cdat->dsym_2339__LOAD_MELT_MODULE;
+  melt_assertmsg("iniobj checkdiscr dsym_2339__LOAD_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2339__LOAD_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2339__LOAD_MELT_MODULE.obj_hash = 892739854;
+  cdat->dsym_2339__LOAD_MELT_MODULE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2339__LOAD_MELT_MODULE));
+ 
+ /*inistring dstr_2340__LOAD_MELT_MODULE*/
+ /*_.VALSTR___V2346*/ curfptr[2345] = (void*)&cdat->dstr_2340__LOAD_MELT_MODULE;
+  cdat->dstr_2340__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2340__LOAD_MELT_MODULE.val, "LOAD_MELT_MODULE", sizeof(cdat->dstr_2340__LOAD_MELT_MODULE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1355:/ iniobj");
+ /*iniobj dobj_2341__LOAD_MELT_MODULE*/
+ if (!/*_.VALDATA___V2347*/ curfptr[2346]) /*_.VALDATA___V2347*/ curfptr[2346] = (void*)&cdat->dobj_2341__LOAD_MELT_MODULE;
+  melt_assertmsg("iniobj checkdiscr dobj_2341__LOAD_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2341__LOAD_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2341__LOAD_MELT_MODULE.obj_hash = 497104809;
+  cdat->dobj_2341__LOAD_MELT_MODULE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2341__LOAD_MELT_MODULE));
+ 
+ /*inimult dtup_2342__LOAD_MELT_MODULE*/
+ /*_.VALTUP___V2357*/ curfptr[2356] = (void*)&cdat->dtup_2342__LOAD_MELT_MODULE;
+  cdat->dtup_2342__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2342__LOAD_MELT_MODULE.nbval = 5;
+ /*inimult dtup_2343__LOAD_MELT_MODULE*/
+ /*_.VALTUP___V2353*/ curfptr[2352] = (void*)&cdat->dtup_2343__LOAD_MELT_MODULE;
+  cdat->dtup_2343__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2343__LOAD_MELT_MODULE.nbval = 2;
+ /*iniobj dsym_2344__ENV*/
+ if (!/*_.VALDATA___V2350*/ curfptr[2349]) /*_.VALDATA___V2350*/ curfptr[2349] = (void*)&cdat->dsym_2344__ENV;
+  melt_assertmsg("iniobj checkdiscr dsym_2344__ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2344__ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2344__ENV.obj_hash = 127517568;
+  cdat->dsym_2344__ENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2344__ENV));
+ 
+ /*inistring dstr_2345__ENV*/
+ /*_.VALSTR___V2351*/ curfptr[2350] = (void*)&cdat->dstr_2345__ENV;
+  cdat->dstr_2345__ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2345__ENV.val, "ENV", sizeof(cdat->dstr_2345__ENV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1355:/ iniobj");
+ /*iniobj dobj_2346*/
+ if (!/*_.VALDATA___V2349*/ curfptr[2348]) /*_.VALDATA___V2349*/ curfptr[2348] = (void*)&cdat->dobj_2346;
+  melt_assertmsg("iniobj checkdiscr dobj_2346", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2346.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2346.obj_num = 0;
+  cdat->dobj_2346.obj_hash = 594533171;
+  cdat->dobj_2346.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2346));
+ 
+ MELT_LOCATION("warmelt-first.melt:1355:/ iniobj");
+ /*iniobj dobj_2347*/
+ if (!/*_.VALDATA___V2352*/ curfptr[2351]) /*_.VALDATA___V2352*/ curfptr[2351] = (void*)&cdat->dobj_2347;
+  melt_assertmsg("iniobj checkdiscr dobj_2347", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2347.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2347.obj_num = 1;
+  cdat->dobj_2347.obj_hash = 792122340;
+  cdat->dobj_2347.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2347));
+ 
+ /*inistring dstr_2348__meltgc_load_mel*/
+ /*_.VALSTR___V2354*/ curfptr[2353] = (void*)&cdat->dstr_2348__meltgc_load_mel;
+  cdat->dstr_2348__meltgc_load_mel.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2348__meltgc_load_mel.val, "(meltgc_load_melt_module((melt_ptr_t)(", sizeof(cdat->dstr_2348__meltgc_load_mel.val)-1);
+ 
+ /*inistring dstr_2349__melt_string*/
+ /*_.VALSTR___V2355*/ curfptr[2354] = (void*)&cdat->dstr_2349__melt_string;
+  cdat->dstr_2349__melt_string.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2349__melt_string.val, "),\n  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2349__melt_string.val)-1);
+ 
+ /*inistring dstr_2350__*/
+ /*_.VALSTR___V2356*/ curfptr[2355] = (void*)&cdat->dstr_2350__;
+  cdat->dstr_2350__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2350__.val, "))))", sizeof(cdat->dstr_2350__.val)-1);
+ 
+ /*inistring dstr_2351__LOAD_MELT_MODULE*/
+ /*_.VALSTR___V2348*/ curfptr[2347] = (void*)&cdat->dstr_2351__LOAD_MELT_MODULE;
+  cdat->dstr_2351__LOAD_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2351__LOAD_MELT_MODULE.val, "LOAD_MELT_MODULE", sizeof(cdat->dstr_2351__LOAD_MELT_MODULE.val)-1);
+ 
+ /*iniobj dsym_2352__GENERATE_MELT_MODULE*/
+ if (!/*_.VALDATA___V2358*/ curfptr[2357]) /*_.VALDATA___V2358*/ curfptr[2357] = (void*)&cdat->dsym_2352__GENERATE_MELT_MODULE;
+  melt_assertmsg("iniobj checkdiscr dsym_2352__GENERATE_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2352__GENERATE_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2352__GENERATE_MELT_MODULE.obj_hash = 308574899;
+  cdat->dsym_2352__GENERATE_MELT_MODULE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2352__GENERATE_MELT_MODULE));
+ 
+ /*inistring dstr_2353__GENERATE_MELT_MO*/
+ /*_.VALSTR___V2359*/ curfptr[2358] = (void*)&cdat->dstr_2353__GENERATE_MELT_MO;
+  cdat->dstr_2353__GENERATE_MELT_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2353__GENERATE_MELT_MO.val, "GENERATE_MELT_MODULE", sizeof(cdat->dstr_2353__GENERATE_MELT_MO.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1363:/ iniobj");
+ /*iniobj dobj_2354__GENERATE_MELT_MODULE*/
+ if (!/*_.VALDATA___V2360*/ curfptr[2359]) /*_.VALDATA___V2360*/ curfptr[2359] = (void*)&cdat->dobj_2354__GENERATE_MELT_MODULE;
+  melt_assertmsg("iniobj checkdiscr dobj_2354__GENERATE_MELT_MODULE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2354__GENERATE_MELT_MODULE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2354__GENERATE_MELT_MODULE.obj_hash = 341194042;
+  cdat->dobj_2354__GENERATE_MELT_MODULE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2354__GENERATE_MELT_MODULE));
+ 
+ /*inimult dtup_2355__GENERATE_MELT_MODULE*/
+ /*_.VALTUP___V2372*/ curfptr[2371] = (void*)&cdat->dtup_2355__GENERATE_MELT_MODULE;
+  cdat->dtup_2355__GENERATE_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2355__GENERATE_MELT_MODULE.nbval = 5;
+ /*inimult dtup_2356__GENERATE_MELT_MODULE*/
+ /*_.VALTUP___V2368*/ curfptr[2367] = (void*)&cdat->dtup_2356__GENERATE_MELT_MODULE;
+  cdat->dtup_2356__GENERATE_MELT_MODULE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2356__GENERATE_MELT_MODULE.nbval = 2;
+ /*iniobj dsym_2357__SRC*/
+ if (!/*_.VALDATA___V2363*/ curfptr[2362]) /*_.VALDATA___V2363*/ curfptr[2362] = (void*)&cdat->dsym_2357__SRC;
+  melt_assertmsg("iniobj checkdiscr dsym_2357__SRC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2357__SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2357__SRC.obj_hash = 349785178;
+  cdat->dsym_2357__SRC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2357__SRC));
+ 
+ /*inistring dstr_2358__SRC*/
+ /*_.VALSTR___V2364*/ curfptr[2363] = (void*)&cdat->dstr_2358__SRC;
+  cdat->dstr_2358__SRC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2358__SRC.val, "SRC", sizeof(cdat->dstr_2358__SRC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1363:/ iniobj");
+ /*iniobj dobj_2359*/
+ if (!/*_.VALDATA___V2362*/ curfptr[2361]) /*_.VALDATA___V2362*/ curfptr[2361] = (void*)&cdat->dobj_2359;
+  melt_assertmsg("iniobj checkdiscr dobj_2359", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2359.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2359.obj_num = 0;
+  cdat->dobj_2359.obj_hash = 885470503;
+  cdat->dobj_2359.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2359));
+ 
+ /*iniobj dsym_2360__OUTNAM*/
+ if (!/*_.VALDATA___V2366*/ curfptr[2365]) /*_.VALDATA___V2366*/ curfptr[2365] = (void*)&cdat->dsym_2360__OUTNAM;
+  melt_assertmsg("iniobj checkdiscr dsym_2360__OUTNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2360__OUTNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2360__OUTNAM.obj_hash = 352608537;
+  cdat->dsym_2360__OUTNAM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2360__OUTNAM));
+ 
+ /*inistring dstr_2361__OUTNAM*/
+ /*_.VALSTR___V2367*/ curfptr[2366] = (void*)&cdat->dstr_2361__OUTNAM;
+  cdat->dstr_2361__OUTNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2361__OUTNAM.val, "OUTNAM", sizeof(cdat->dstr_2361__OUTNAM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1363:/ iniobj");
+ /*iniobj dobj_2362*/
+ if (!/*_.VALDATA___V2365*/ curfptr[2364]) /*_.VALDATA___V2365*/ curfptr[2364] = (void*)&cdat->dobj_2362;
+  melt_assertmsg("iniobj checkdiscr dobj_2362", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2362.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2362.obj_num = 1;
+  cdat->dobj_2362.obj_hash = 819962794;
+  cdat->dobj_2362.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2362));
+ 
+ /*inistring dstr_2363__meltgc_generate_*/
+ /*_.VALSTR___V2369*/ curfptr[2368] = (void*)&cdat->dstr_2363__meltgc_generate_;
+  cdat->dstr_2363__meltgc_generate_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2363__meltgc_generate_.val, "meltgc_generate_melt_module(", sizeof(cdat->dstr_2363__meltgc_generate_.val)-1);
+ 
+ /*inistring dstr_2364__*/
+ /*_.VALSTR___V2370*/ curfptr[2369] = (void*)&cdat->dstr_2364__;
+  cdat->dstr_2364__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2364__.val, ",", sizeof(cdat->dstr_2364__.val)-1);
+ 
+ /*inistring dstr_2365__*/
+ /*_.VALSTR___V2371*/ curfptr[2370] = (void*)&cdat->dstr_2365__;
+  cdat->dstr_2365__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2365__.val, ");", sizeof(cdat->dstr_2365__.val)-1);
+ 
+ /*inistring dstr_2366__GENERATE_MELT_MO*/
+ /*_.VALSTR___V2361*/ curfptr[2360] = (void*)&cdat->dstr_2366__GENERATE_MELT_MO;
+  cdat->dstr_2366__GENERATE_MELT_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2366__GENERATE_MELT_MO.val, "GENERATE_MELT_MODULE", sizeof(cdat->dstr_2366__GENERATE_MELT_MO.val)-1);
+ 
+ /*iniobj dsym_2367__OBJECT_LENGTH*/
+ if (!/*_.VALDATA___V2373*/ curfptr[2372]) /*_.VALDATA___V2373*/ curfptr[2372] = (void*)&cdat->dsym_2367__OBJECT_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2367__OBJECT_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2367__OBJECT_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2367__OBJECT_LENGTH.obj_hash = 913040829;
+  cdat->dsym_2367__OBJECT_LENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2367__OBJECT_LENGTH));
+ 
+ /*inistring dstr_2368__OBJECT_LENGTH*/
+ /*_.VALSTR___V2374*/ curfptr[2373] = (void*)&cdat->dstr_2368__OBJECT_LENGTH;
+  cdat->dstr_2368__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2368__OBJECT_LENGTH.val, "OBJECT_LENGTH", sizeof(cdat->dstr_2368__OBJECT_LENGTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1371:/ iniobj");
+ /*iniobj dobj_2369__OBJECT_LENGTH*/
+ if (!/*_.VALDATA___V2375*/ curfptr[2374]) /*_.VALDATA___V2375*/ curfptr[2374] = (void*)&cdat->dobj_2369__OBJECT_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2369__OBJECT_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2369__OBJECT_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2369__OBJECT_LENGTH.obj_hash = 1060188812;
+  cdat->dobj_2369__OBJECT_LENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2369__OBJECT_LENGTH));
+ 
+ /*inimult dtup_2370__OBJECT_LENGTH*/
+ /*_.VALTUP___V2383*/ curfptr[2382] = (void*)&cdat->dtup_2370__OBJECT_LENGTH;
+  cdat->dtup_2370__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2370__OBJECT_LENGTH.nbval = 3;
+ /*inimult dtup_2371__OBJECT_LENGTH*/
+ /*_.VALTUP___V2380*/ curfptr[2379] = (void*)&cdat->dtup_2371__OBJECT_LENGTH;
+  cdat->dtup_2371__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2371__OBJECT_LENGTH.nbval = 1;
+ /*iniobj dsym_2372__OB*/
+ if (!/*_.VALDATA___V2378*/ curfptr[2377]) /*_.VALDATA___V2378*/ curfptr[2377] = (void*)&cdat->dsym_2372__OB;
+  melt_assertmsg("iniobj checkdiscr dsym_2372__OB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2372__OB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2372__OB.obj_hash = 19822711;
+  cdat->dsym_2372__OB.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2372__OB));
+ 
+ /*inistring dstr_2373__OB*/
+ /*_.VALSTR___V2379*/ curfptr[2378] = (void*)&cdat->dstr_2373__OB;
+  cdat->dstr_2373__OB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2373__OB.val, "OB", sizeof(cdat->dstr_2373__OB.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1371:/ iniobj");
+ /*iniobj dobj_2374*/
+ if (!/*_.VALDATA___V2377*/ curfptr[2376]) /*_.VALDATA___V2377*/ curfptr[2376] = (void*)&cdat->dobj_2374;
+  melt_assertmsg("iniobj checkdiscr dobj_2374", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2374.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2374.obj_num = 0;
+  cdat->dobj_2374.obj_hash = 258747308;
+  cdat->dobj_2374.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2374));
+ 
+ /*inistring dstr_2375__long_melt_obje*/
+ /*_.VALSTR___V2381*/ curfptr[2380] = (void*)&cdat->dstr_2375__long_melt_obje;
+  cdat->dstr_2375__long_melt_obje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2375__long_melt_obje.val, "((long)melt_object_length((melt_ptr_t)(", sizeof(cdat->dstr_2375__long_melt_obje.val)-1);
+ 
+ /*inistring dstr_2376__*/
+ /*_.VALSTR___V2382*/ curfptr[2381] = (void*)&cdat->dstr_2376__;
+  cdat->dstr_2376__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2376__.val, ")))", sizeof(cdat->dstr_2376__.val)-1);
+ 
+ /*inistring dstr_2377__OBJECT_LENGTH*/
+ /*_.VALSTR___V2376*/ curfptr[2375] = (void*)&cdat->dstr_2377__OBJECT_LENGTH;
+  cdat->dstr_2377__OBJECT_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2377__OBJECT_LENGTH.val, "OBJECT_LENGTH", sizeof(cdat->dstr_2377__OBJECT_LENGTH.val)-1);
+ 
+ /*iniobj dsym_2378__OBJECT_NTH_FIELD*/
+ if (!/*_.VALDATA___V2384*/ curfptr[2383]) /*_.VALDATA___V2384*/ curfptr[2383] = (void*)&cdat->dsym_2378__OBJECT_NTH_FIELD;
+  melt_assertmsg("iniobj checkdiscr dsym_2378__OBJECT_NTH_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2378__OBJECT_NTH_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2378__OBJECT_NTH_FIELD.obj_hash = 343274150;
+  cdat->dsym_2378__OBJECT_NTH_FIELD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2378__OBJECT_NTH_FIELD));
+ 
+ /*inistring dstr_2379__OBJECT_NTH_FIELD*/
+ /*_.VALSTR___V2385*/ curfptr[2384] = (void*)&cdat->dstr_2379__OBJECT_NTH_FIELD;
+  cdat->dstr_2379__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2379__OBJECT_NTH_FIELD.val, "OBJECT_NTH_FIELD", sizeof(cdat->dstr_2379__OBJECT_NTH_FIELD.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1375:/ iniobj");
+ /*iniobj dobj_2380__OBJECT_NTH_FIELD*/
+ if (!/*_.VALDATA___V2386*/ curfptr[2385]) /*_.VALDATA___V2386*/ curfptr[2385] = (void*)&cdat->dobj_2380__OBJECT_NTH_FIELD;
+  melt_assertmsg("iniobj checkdiscr dobj_2380__OBJECT_NTH_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2380__OBJECT_NTH_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2380__OBJECT_NTH_FIELD.obj_hash = 165302750;
+  cdat->dobj_2380__OBJECT_NTH_FIELD.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2380__OBJECT_NTH_FIELD));
+ 
+ /*inimult dtup_2381__OBJECT_NTH_FIELD*/
+ /*_.VALTUP___V2396*/ curfptr[2395] = (void*)&cdat->dtup_2381__OBJECT_NTH_FIELD;
+  cdat->dtup_2381__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2381__OBJECT_NTH_FIELD.nbval = 5;
+ /*inimult dtup_2382__OBJECT_NTH_FIELD*/
+ /*_.VALTUP___V2392*/ curfptr[2391] = (void*)&cdat->dtup_2382__OBJECT_NTH_FIELD;
+  cdat->dtup_2382__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2382__OBJECT_NTH_FIELD.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1375:/ iniobj");
+ /*iniobj dobj_2383*/
+ if (!/*_.VALDATA___V2388*/ curfptr[2387]) /*_.VALDATA___V2388*/ curfptr[2387] = (void*)&cdat->dobj_2383;
+  melt_assertmsg("iniobj checkdiscr dobj_2383", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2383.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2383.obj_num = 0;
+  cdat->dobj_2383.obj_hash = 846439348;
+  cdat->dobj_2383.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2383));
+ 
+ /*iniobj dsym_2384__N*/
+ if (!/*_.VALDATA___V2390*/ curfptr[2389]) /*_.VALDATA___V2390*/ curfptr[2389] = (void*)&cdat->dsym_2384__N;
+  melt_assertmsg("iniobj checkdiscr dsym_2384__N", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2384__N.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2384__N.obj_hash = 107499106;
+  cdat->dsym_2384__N.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2384__N));
+ 
+ /*inistring dstr_2385__N*/
+ /*_.VALSTR___V2391*/ curfptr[2390] = (void*)&cdat->dstr_2385__N;
+  cdat->dstr_2385__N.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2385__N.val, "N", sizeof(cdat->dstr_2385__N.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1375:/ iniobj");
+ /*iniobj dobj_2386*/
+ if (!/*_.VALDATA___V2389*/ curfptr[2388]) /*_.VALDATA___V2389*/ curfptr[2388] = (void*)&cdat->dobj_2386;
+  melt_assertmsg("iniobj checkdiscr dobj_2386", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2386.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2386.obj_num = 1;
+  cdat->dobj_2386.obj_hash = 234383152;
+  cdat->dobj_2386.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2386));
+ 
+ /*inistring dstr_2387__melt_field_obje*/
+ /*_.VALSTR___V2393*/ curfptr[2392] = (void*)&cdat->dstr_2387__melt_field_obje;
+  cdat->dstr_2387__melt_field_obje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2387__melt_field_obje.val, "(melt_field_object((melt_ptr_t)(", sizeof(cdat->dstr_2387__melt_field_obje.val)-1);
+ 
+ /*inistring dstr_2388__*/
+ /*_.VALSTR___V2394*/ curfptr[2393] = (void*)&cdat->dstr_2388__;
+  cdat->dstr_2388__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2388__.val, "), (", sizeof(cdat->dstr_2388__.val)-1);
+ 
+ /*inistring dstr_2389__*/
+ /*_.VALSTR___V2395*/ curfptr[2394] = (void*)&cdat->dstr_2389__;
+  cdat->dstr_2389__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2389__.val, ")))", sizeof(cdat->dstr_2389__.val)-1);
+ 
+ /*inistring dstr_2390__OBJECT_NTH_FIELD*/
+ /*_.VALSTR___V2387*/ curfptr[2386] = (void*)&cdat->dstr_2390__OBJECT_NTH_FIELD;
+  cdat->dstr_2390__OBJECT_NTH_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2390__OBJECT_NTH_FIELD.val, "OBJECT_NTH_FIELD", sizeof(cdat->dstr_2390__OBJECT_NTH_FIELD.val)-1);
+ 
+ /*iniobj dsym_2391__SUBCLASS_OF*/
+ if (!/*_.VALDATA___V2397*/ curfptr[2396]) /*_.VALDATA___V2397*/ curfptr[2396] = (void*)&cdat->dsym_2391__SUBCLASS_OF;
+  melt_assertmsg("iniobj checkdiscr dsym_2391__SUBCLASS_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2391__SUBCLASS_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2391__SUBCLASS_OF.obj_hash = 234775031;
+  cdat->dsym_2391__SUBCLASS_OF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2391__SUBCLASS_OF));
+ 
+ /*inistring dstr_2392__SUBCLASS_OF*/
+ /*_.VALSTR___V2398*/ curfptr[2397] = (void*)&cdat->dstr_2392__SUBCLASS_OF;
+  cdat->dstr_2392__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2392__SUBCLASS_OF.val, "SUBCLASS_OF", sizeof(cdat->dstr_2392__SUBCLASS_OF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1379:/ iniobj");
+ /*iniobj dobj_2393__SUBCLASS_OF*/
+ if (!/*_.VALDATA___V2399*/ curfptr[2398]) /*_.VALDATA___V2399*/ curfptr[2398] = (void*)&cdat->dobj_2393__SUBCLASS_OF;
+  melt_assertmsg("iniobj checkdiscr dobj_2393__SUBCLASS_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2393__SUBCLASS_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2393__SUBCLASS_OF.obj_hash = 862544701;
+  cdat->dobj_2393__SUBCLASS_OF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2393__SUBCLASS_OF));
+ 
+ /*inimult dtup_2394__SUBCLASS_OF*/
+ /*_.VALTUP___V2411*/ curfptr[2410] = (void*)&cdat->dtup_2394__SUBCLASS_OF;
+  cdat->dtup_2394__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2394__SUBCLASS_OF.nbval = 5;
+ /*inimult dtup_2395__SUBCLASS_OF*/
+ /*_.VALTUP___V2407*/ curfptr[2406] = (void*)&cdat->dtup_2395__SUBCLASS_OF;
+  cdat->dtup_2395__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2395__SUBCLASS_OF.nbval = 2;
+ /*iniobj dsym_2396__CL1*/
+ if (!/*_.VALDATA___V2402*/ curfptr[2401]) /*_.VALDATA___V2402*/ curfptr[2401] = (void*)&cdat->dsym_2396__CL1;
+  melt_assertmsg("iniobj checkdiscr dsym_2396__CL1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2396__CL1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2396__CL1.obj_hash = 52836587;
+  cdat->dsym_2396__CL1.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2396__CL1));
+ 
+ /*inistring dstr_2397__CL1*/
+ /*_.VALSTR___V2403*/ curfptr[2402] = (void*)&cdat->dstr_2397__CL1;
+  cdat->dstr_2397__CL1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2397__CL1.val, "CL1", sizeof(cdat->dstr_2397__CL1.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1379:/ iniobj");
+ /*iniobj dobj_2398*/
+ if (!/*_.VALDATA___V2401*/ curfptr[2400]) /*_.VALDATA___V2401*/ curfptr[2400] = (void*)&cdat->dobj_2398;
+  melt_assertmsg("iniobj checkdiscr dobj_2398", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2398.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2398.obj_num = 0;
+  cdat->dobj_2398.obj_hash = 355840688;
+  cdat->dobj_2398.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2398));
+ 
+ /*iniobj dsym_2399__CL2*/
+ if (!/*_.VALDATA___V2405*/ curfptr[2404]) /*_.VALDATA___V2405*/ curfptr[2404] = (void*)&cdat->dsym_2399__CL2;
+  melt_assertmsg("iniobj checkdiscr dsym_2399__CL2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2399__CL2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2399__CL2.obj_hash = 4513998;
+  cdat->dsym_2399__CL2.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2399__CL2));
+ 
+ /*inistring dstr_2400__CL2*/
+ /*_.VALSTR___V2406*/ curfptr[2405] = (void*)&cdat->dstr_2400__CL2;
+  cdat->dstr_2400__CL2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2400__CL2.val, "CL2", sizeof(cdat->dstr_2400__CL2.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1379:/ iniobj");
+ /*iniobj dobj_2401*/
+ if (!/*_.VALDATA___V2404*/ curfptr[2403]) /*_.VALDATA___V2404*/ curfptr[2403] = (void*)&cdat->dobj_2401;
+  melt_assertmsg("iniobj checkdiscr dobj_2401", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2401.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2401.obj_num = 1;
+  cdat->dobj_2401.obj_hash = 158974193;
+  cdat->dobj_2401.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2401));
+ 
+ /*inistring dstr_2402__melt_is_subclass*/
+ /*_.VALSTR___V2408*/ curfptr[2407] = (void*)&cdat->dstr_2402__melt_is_subclass;
+  cdat->dstr_2402__melt_is_subclass.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2402__melt_is_subclass.val, "melt_is_subclass_of((meltobject_ptr_t)(", sizeof(cdat->dstr_2402__melt_is_subclass.val)-1);
+ 
+ /*inistring dstr_2403__meltobject_p*/
+ /*_.VALSTR___V2409*/ curfptr[2408] = (void*)&cdat->dstr_2403__meltobject_p;
+  cdat->dstr_2403__meltobject_p.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2403__meltobject_p.val, "), (meltobject_ptr_t)(", sizeof(cdat->dstr_2403__meltobject_p.val)-1);
+ 
+ /*inistring dstr_2404__*/
+ /*_.VALSTR___V2410*/ curfptr[2409] = (void*)&cdat->dstr_2404__;
+  cdat->dstr_2404__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2404__.val, "))", sizeof(cdat->dstr_2404__.val)-1);
+ 
+ /*inistring dstr_2405__SUBCLASS_OF*/
+ /*_.VALSTR___V2400*/ curfptr[2399] = (void*)&cdat->dstr_2405__SUBCLASS_OF;
+  cdat->dstr_2405__SUBCLASS_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2405__SUBCLASS_OF.val, "SUBCLASS_OF", sizeof(cdat->dstr_2405__SUBCLASS_OF.val)-1);
+ 
+ /*iniobj dsym_2406__SUBCLASS_OR_EQ*/
+ if (!/*_.VALDATA___V2412*/ curfptr[2411]) /*_.VALDATA___V2412*/ curfptr[2411] = (void*)&cdat->dsym_2406__SUBCLASS_OR_EQ;
+  melt_assertmsg("iniobj checkdiscr dsym_2406__SUBCLASS_OR_EQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2406__SUBCLASS_OR_EQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2406__SUBCLASS_OR_EQ.obj_hash = 491951222;
+  cdat->dsym_2406__SUBCLASS_OR_EQ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2406__SUBCLASS_OR_EQ));
+ 
+ /*inistring dstr_2407__SUBCLASS_OR_EQ*/
+ /*_.VALSTR___V2413*/ curfptr[2412] = (void*)&cdat->dstr_2407__SUBCLASS_OR_EQ;
+  cdat->dstr_2407__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2407__SUBCLASS_OR_EQ.val, "SUBCLASS_OR_EQ", sizeof(cdat->dstr_2407__SUBCLASS_OR_EQ.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1382:/ iniobj");
+ /*iniobj dobj_2408__SUBCLASS_OR_EQ*/
+ if (!/*_.VALDATA___V2414*/ curfptr[2413]) /*_.VALDATA___V2414*/ curfptr[2413] = (void*)&cdat->dobj_2408__SUBCLASS_OR_EQ;
+  melt_assertmsg("iniobj checkdiscr dobj_2408__SUBCLASS_OR_EQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2408__SUBCLASS_OR_EQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2408__SUBCLASS_OR_EQ.obj_hash = 88062169;
+  cdat->dobj_2408__SUBCLASS_OR_EQ.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2408__SUBCLASS_OR_EQ));
+ 
+ /*inimult dtup_2409__SUBCLASS_OR_EQ*/
+ /*_.VALTUP___V2424*/ curfptr[2423] = (void*)&cdat->dtup_2409__SUBCLASS_OR_EQ;
+  cdat->dtup_2409__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2409__SUBCLASS_OR_EQ.nbval = 9;
+ /*inimult dtup_2410__SUBCLASS_OR_EQ*/
+ /*_.VALTUP___V2418*/ curfptr[2417] = (void*)&cdat->dtup_2410__SUBCLASS_OR_EQ;
+  cdat->dtup_2410__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2410__SUBCLASS_OR_EQ.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1382:/ iniobj");
+ /*iniobj dobj_2411*/
+ if (!/*_.VALDATA___V2416*/ curfptr[2415]) /*_.VALDATA___V2416*/ curfptr[2415] = (void*)&cdat->dobj_2411;
+  melt_assertmsg("iniobj checkdiscr dobj_2411", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2411.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2411.obj_num = 0;
+  cdat->dobj_2411.obj_hash = 734514536;
+  cdat->dobj_2411.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2411));
+ 
+ MELT_LOCATION("warmelt-first.melt:1382:/ iniobj");
+ /*iniobj dobj_2412*/
+ if (!/*_.VALDATA___V2417*/ curfptr[2416]) /*_.VALDATA___V2417*/ curfptr[2416] = (void*)&cdat->dobj_2412;
+  melt_assertmsg("iniobj checkdiscr dobj_2412", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2412.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2412.obj_num = 1;
+  cdat->dobj_2412.obj_hash = 517058152;
+  cdat->dobj_2412.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2412));
+ 
+ /*inistring dstr_2413__*/
+ /*_.VALSTR___V2419*/ curfptr[2418] = (void*)&cdat->dstr_2413__;
+  cdat->dstr_2413__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2413__.val, "((", sizeof(cdat->dstr_2413__.val)-1);
+ 
+ /*inistring dstr_2414__*/
+ /*_.VALSTR___V2420*/ curfptr[2419] = (void*)&cdat->dstr_2414__;
+  cdat->dstr_2414__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2414__.val, " == ", sizeof(cdat->dstr_2414__.val)-1);
+ 
+ /*inistring dstr_2415__melt_is_sub*/
+ /*_.VALSTR___V2421*/ curfptr[2420] = (void*)&cdat->dstr_2415__melt_is_sub;
+  cdat->dstr_2415__melt_is_sub.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2415__melt_is_sub.val, ") || melt_is_subclass_of((meltobject_ptr_t)(", sizeof(cdat->dstr_2415__melt_is_sub.val)-1);
+ 
+ /*inistring dstr_2416__meltobject_p*/
+ /*_.VALSTR___V2422*/ curfptr[2421] = (void*)&cdat->dstr_2416__meltobject_p;
+  cdat->dstr_2416__meltobject_p.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2416__meltobject_p.val, "), (meltobject_ptr_t)(", sizeof(cdat->dstr_2416__meltobject_p.val)-1);
+ 
+ /*inistring dstr_2417__*/
+ /*_.VALSTR___V2423*/ curfptr[2422] = (void*)&cdat->dstr_2417__;
+  cdat->dstr_2417__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2417__.val, ")))", sizeof(cdat->dstr_2417__.val)-1);
+ 
+ /*inistring dstr_2418__SUBCLASS_OR_EQ*/
+ /*_.VALSTR___V2415*/ curfptr[2414] = (void*)&cdat->dstr_2418__SUBCLASS_OR_EQ;
+  cdat->dstr_2418__SUBCLASS_OR_EQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2418__SUBCLASS_OR_EQ.val, "SUBCLASS_OR_EQ", sizeof(cdat->dstr_2418__SUBCLASS_OR_EQ.val)-1);
+ 
+ /*iniobj dsym_2419__IS_MULTIPLE*/
+ if (!/*_.VALDATA___V2425*/ curfptr[2424]) /*_.VALDATA___V2425*/ curfptr[2424] = (void*)&cdat->dsym_2419__IS_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_2419__IS_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2419__IS_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2419__IS_MULTIPLE.obj_hash = 748274074;
+  cdat->dsym_2419__IS_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2419__IS_MULTIPLE));
+ 
+ /*inistring dstr_2420__IS_MULTIPLE*/
+ /*_.VALSTR___V2426*/ curfptr[2425] = (void*)&cdat->dstr_2420__IS_MULTIPLE;
+  cdat->dstr_2420__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2420__IS_MULTIPLE.val, "IS_MULTIPLE", sizeof(cdat->dstr_2420__IS_MULTIPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1389:/ iniobj");
+ /*iniobj dobj_2421__IS_MULTIPLE*/
+ if (!/*_.VALDATA___V2427*/ curfptr[2426]) /*_.VALDATA___V2427*/ curfptr[2426] = (void*)&cdat->dobj_2421__IS_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dobj_2421__IS_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2421__IS_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2421__IS_MULTIPLE.obj_hash = 318949210;
+  cdat->dobj_2421__IS_MULTIPLE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2421__IS_MULTIPLE));
+ 
+ /*inimult dtup_2422__IS_MULTIPLE*/
+ /*_.VALTUP___V2435*/ curfptr[2434] = (void*)&cdat->dtup_2422__IS_MULTIPLE;
+  cdat->dtup_2422__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2422__IS_MULTIPLE.nbval = 3;
+ /*inimult dtup_2423__IS_MULTIPLE*/
+ /*_.VALTUP___V2432*/ curfptr[2431] = (void*)&cdat->dtup_2423__IS_MULTIPLE;
+  cdat->dtup_2423__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2423__IS_MULTIPLE.nbval = 1;
+ /*iniobj dsym_2424__MUL*/
+ if (!/*_.VALDATA___V2430*/ curfptr[2429]) /*_.VALDATA___V2430*/ curfptr[2429] = (void*)&cdat->dsym_2424__MUL;
+  melt_assertmsg("iniobj checkdiscr dsym_2424__MUL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2424__MUL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2424__MUL.obj_hash = 90169799;
+  cdat->dsym_2424__MUL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2424__MUL));
+ 
+ /*inistring dstr_2425__MUL*/
+ /*_.VALSTR___V2431*/ curfptr[2430] = (void*)&cdat->dstr_2425__MUL;
+  cdat->dstr_2425__MUL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2425__MUL.val, "MUL", sizeof(cdat->dstr_2425__MUL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1389:/ iniobj");
+ /*iniobj dobj_2426*/
+ if (!/*_.VALDATA___V2429*/ curfptr[2428]) /*_.VALDATA___V2429*/ curfptr[2428] = (void*)&cdat->dobj_2426;
+  melt_assertmsg("iniobj checkdiscr dobj_2426", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2426.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2426.obj_num = 0;
+  cdat->dobj_2426.obj_hash = 409899188;
+  cdat->dobj_2426.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2426));
+ 
+ /*inistring dstr_2427__melt_magic_disc*/
+ /*_.VALSTR___V2433*/ curfptr[2432] = (void*)&cdat->dstr_2427__melt_magic_disc;
+  cdat->dstr_2427__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2427__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2427__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_2428__OBMAG_MULT*/
+ /*_.VALSTR___V2434*/ curfptr[2433] = (void*)&cdat->dstr_2428__OBMAG_MULT;
+  cdat->dstr_2428__OBMAG_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2428__OBMAG_MULT.val, ")) == OBMAG_MULTIPLE)", sizeof(cdat->dstr_2428__OBMAG_MULT.val)-1);
+ 
+ /*inistring dstr_2429__IS_MULTIPLE*/
+ /*_.VALSTR___V2428*/ curfptr[2427] = (void*)&cdat->dstr_2429__IS_MULTIPLE;
+  cdat->dstr_2429__IS_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2429__IS_MULTIPLE.val, "IS_MULTIPLE", sizeof(cdat->dstr_2429__IS_MULTIPLE.val)-1);
+ 
+ /*iniobj dsym_2430__IS_MULTIPLE_OR_NULL*/
+ if (!/*_.VALDATA___V2436*/ curfptr[2435]) /*_.VALDATA___V2436*/ curfptr[2435] = (void*)&cdat->dsym_2430__IS_MULTIPLE_OR_NULL;
+  melt_assertmsg("iniobj checkdiscr dsym_2430__IS_MULTIPLE_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2430__IS_MULTIPLE_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2430__IS_MULTIPLE_OR_NULL.obj_hash = 798581263;
+  cdat->dsym_2430__IS_MULTIPLE_OR_NULL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2430__IS_MULTIPLE_OR_NULL));
+ 
+ /*inistring dstr_2431__IS_MULTIPLE_OR_N*/
+ /*_.VALSTR___V2437*/ curfptr[2436] = (void*)&cdat->dstr_2431__IS_MULTIPLE_OR_N;
+  cdat->dstr_2431__IS_MULTIPLE_OR_N.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2431__IS_MULTIPLE_OR_N.val, "IS_MULTIPLE_OR_NULL", sizeof(cdat->dstr_2431__IS_MULTIPLE_OR_N.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1392:/ iniobj");
+ /*iniobj dobj_2432__IS_MULTIPLE_OR_NULL*/
+ if (!/*_.VALDATA___V2438*/ curfptr[2437]) /*_.VALDATA___V2438*/ curfptr[2437] = (void*)&cdat->dobj_2432__IS_MULTIPLE_OR_NULL;
+  melt_assertmsg("iniobj checkdiscr dobj_2432__IS_MULTIPLE_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2432__IS_MULTIPLE_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2432__IS_MULTIPLE_OR_NULL.obj_hash = 231073106;
+  cdat->dobj_2432__IS_MULTIPLE_OR_NULL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2432__IS_MULTIPLE_OR_NULL));
+ 
+ /*inimult dtup_2433__IS_MULTIPLE_OR_NULL*/
+ /*_.VALTUP___V2445*/ curfptr[2444] = (void*)&cdat->dtup_2433__IS_MULTIPLE_OR_NULL;
+  cdat->dtup_2433__IS_MULTIPLE_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2433__IS_MULTIPLE_OR_NULL.nbval = 5;
+ /*inimult dtup_2434__IS_MULTIPLE_OR_NULL*/
+ /*_.VALTUP___V2441*/ curfptr[2440] = (void*)&cdat->dtup_2434__IS_MULTIPLE_OR_NULL;
+  cdat->dtup_2434__IS_MULTIPLE_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2434__IS_MULTIPLE_OR_NULL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1392:/ iniobj");
+ /*iniobj dobj_2435*/
+ if (!/*_.VALDATA___V2440*/ curfptr[2439]) /*_.VALDATA___V2440*/ curfptr[2439] = (void*)&cdat->dobj_2435;
+  melt_assertmsg("iniobj checkdiscr dobj_2435", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2435.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2435.obj_num = 0;
+  cdat->dobj_2435.obj_hash = 808260133;
+  cdat->dobj_2435.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2435));
+ 
+ /*inistring dstr_2436__*/
+ /*_.VALSTR___V2442*/ curfptr[2441] = (void*)&cdat->dstr_2436__;
+  cdat->dstr_2436__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2436__.val, "((", sizeof(cdat->dstr_2436__.val)-1);
+ 
+ /*inistring dstr_2437__NULL_me*/
+ /*_.VALSTR___V2443*/ curfptr[2442] = (void*)&cdat->dstr_2437__NULL_me;
+  cdat->dstr_2437__NULL_me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2437__NULL_me.val, ") == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2437__NULL_me.val)-1);
+ 
+ /*inistring dstr_2438__OBMAG_MULT*/
+ /*_.VALSTR___V2444*/ curfptr[2443] = (void*)&cdat->dstr_2438__OBMAG_MULT;
+  cdat->dstr_2438__OBMAG_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2438__OBMAG_MULT.val, ")) == OBMAG_MULTIPLE))", sizeof(cdat->dstr_2438__OBMAG_MULT.val)-1);
  
  /*inistring dstr_2439__IS_MULTIPLE_OR_N*/
- /*_.VALSTR___V2445*/ curfptr[2444] = (void*)&cdat->dstr_2439__IS_MULTIPLE_OR_N;
+ /*_.VALSTR___V2439*/ curfptr[2438] = (void*)&cdat->dstr_2439__IS_MULTIPLE_OR_N;
   cdat->dstr_2439__IS_MULTIPLE_OR_N.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_2439__IS_MULTIPLE_OR_N.val, "IS_MULTIPLE_OR_NULL", sizeof(cdat->dstr_2439__IS_MULTIPLE_OR_N.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ iniobj");
- /*iniobj dobj_2440__IS_MULTIPLE_OR_NULL*/
- if (!/*_.VALDATA___V2446*/ curfptr[2445]) /*_.VALDATA___V2446*/ curfptr[2445] = (void*)&cdat->dobj_2440__IS_MULTIPLE_OR_NULL;
-  melt_assertmsg("iniobj checkdiscr dobj_2440__IS_MULTIPLE_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2440__IS_MULTIPLE_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2440__IS_MULTIPLE_OR_NULL.obj_hash = 534152307;
-  cdat->dobj_2440__IS_MULTIPLE_OR_NULL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2440__IS_MULTIPLE_OR_NULL));
- 
- /*inimult dtup_2441__IS_MULTIPLE_OR_NULL*/
- /*_.VALTUP___V2453*/ curfptr[2452] = (void*)&cdat->dtup_2441__IS_MULTIPLE_OR_NULL;
-  cdat->dtup_2441__IS_MULTIPLE_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2441__IS_MULTIPLE_OR_NULL.nbval = 5;
- /*inimult dtup_2442__IS_MULTIPLE_OR_NULL*/
- /*_.VALTUP___V2449*/ curfptr[2448] = (void*)&cdat->dtup_2442__IS_MULTIPLE_OR_NULL;
-  cdat->dtup_2442__IS_MULTIPLE_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2442__IS_MULTIPLE_OR_NULL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1397:/ iniobj");
- /*iniobj dobj_2443*/
- if (!/*_.VALDATA___V2448*/ curfptr[2447]) /*_.VALDATA___V2448*/ curfptr[2447] = (void*)&cdat->dobj_2443;
-  melt_assertmsg("iniobj checkdiscr dobj_2443", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2443.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2443.obj_num = 0;
-  cdat->dobj_2443.obj_hash = 593321276;
-  cdat->dobj_2443.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2443));
- 
- /*inistring dstr_2444__*/
- /*_.VALSTR___V2450*/ curfptr[2449] = (void*)&cdat->dstr_2444__;
-  cdat->dstr_2444__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2444__.val, "((", sizeof(cdat->dstr_2444__.val)-1);
- 
- /*inistring dstr_2445__NULL_me*/
- /*_.VALSTR___V2451*/ curfptr[2450] = (void*)&cdat->dstr_2445__NULL_me;
-  cdat->dstr_2445__NULL_me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2445__NULL_me.val, ") == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2445__NULL_me.val)-1);
- 
- /*inistring dstr_2446__OBMAG_MULT*/
- /*_.VALSTR___V2452*/ curfptr[2451] = (void*)&cdat->dstr_2446__OBMAG_MULT;
-  cdat->dstr_2446__OBMAG_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2446__OBMAG_MULT.val, ")) == OBMAG_MULTIPLE))", sizeof(cdat->dstr_2446__OBMAG_MULT.val)-1);
- 
- /*inistring dstr_2447__IS_MULTIPLE_OR_N*/
- /*_.VALSTR___V2447*/ curfptr[2446] = (void*)&cdat->dstr_2447__IS_MULTIPLE_OR_N;
-  cdat->dstr_2447__IS_MULTIPLE_OR_N.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2447__IS_MULTIPLE_OR_N.val, "IS_MULTIPLE_OR_NULL", sizeof(cdat->dstr_2447__IS_MULTIPLE_OR_N.val)-1);
- 
- /*iniobj dsym_2448__MAKE_MULTIPLE*/
- if (!/*_.VALDATA___V2454*/ curfptr[2453]) /*_.VALDATA___V2454*/ curfptr[2453] = (void*)&cdat->dsym_2448__MAKE_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_2448__MAKE_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2448__MAKE_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2448__MAKE_MULTIPLE.obj_hash = 863607050;
-  cdat->dsym_2448__MAKE_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2448__MAKE_MULTIPLE));
- 
- /*inistring dstr_2449__MAKE_MULTIPLE*/
- /*_.VALSTR___V2455*/ curfptr[2454] = (void*)&cdat->dstr_2449__MAKE_MULTIPLE;
-  cdat->dstr_2449__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2449__MAKE_MULTIPLE.val, "MAKE_MULTIPLE", sizeof(cdat->dstr_2449__MAKE_MULTIPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1401:/ iniobj");
- /*iniobj dobj_2450__MAKE_MULTIPLE*/
- if (!/*_.VALDATA___V2456*/ curfptr[2455]) /*_.VALDATA___V2456*/ curfptr[2455] = (void*)&cdat->dobj_2450__MAKE_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dobj_2450__MAKE_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2450__MAKE_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2450__MAKE_MULTIPLE.obj_hash = 498826212;
-  cdat->dobj_2450__MAKE_MULTIPLE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2450__MAKE_MULTIPLE));
- 
- /*inimult dtup_2451__MAKE_MULTIPLE*/
- /*_.VALTUP___V2466*/ curfptr[2465] = (void*)&cdat->dtup_2451__MAKE_MULTIPLE;
-  cdat->dtup_2451__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2451__MAKE_MULTIPLE.nbval = 5;
- /*inimult dtup_2452__MAKE_MULTIPLE*/
- /*_.VALTUP___V2462*/ curfptr[2461] = (void*)&cdat->dtup_2452__MAKE_MULTIPLE;
-  cdat->dtup_2452__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2452__MAKE_MULTIPLE.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1401:/ iniobj");
- /*iniobj dobj_2453*/
- if (!/*_.VALDATA___V2458*/ curfptr[2457]) /*_.VALDATA___V2458*/ curfptr[2457] = (void*)&cdat->dobj_2453;
-  melt_assertmsg("iniobj checkdiscr dobj_2453", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2453.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2453.obj_num = 0;
-  cdat->dobj_2453.obj_hash = 17808951;
-  cdat->dobj_2453.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2453));
- 
- /*iniobj dsym_2454__LN*/
- if (!/*_.VALDATA___V2460*/ curfptr[2459]) /*_.VALDATA___V2460*/ curfptr[2459] = (void*)&cdat->dsym_2454__LN;
-  melt_assertmsg("iniobj checkdiscr dsym_2454__LN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2454__LN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2454__LN.obj_hash = 26632748;
-  cdat->dsym_2454__LN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2454__LN));
- 
- /*inistring dstr_2455__LN*/
- /*_.VALSTR___V2461*/ curfptr[2460] = (void*)&cdat->dstr_2455__LN;
-  cdat->dstr_2455__LN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2455__LN.val, "LN", sizeof(cdat->dstr_2455__LN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1401:/ iniobj");
- /*iniobj dobj_2456*/
- if (!/*_.VALDATA___V2459*/ curfptr[2458]) /*_.VALDATA___V2459*/ curfptr[2458] = (void*)&cdat->dobj_2456;
-  melt_assertmsg("iniobj checkdiscr dobj_2456", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2456.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2456.obj_num = 1;
-  cdat->dobj_2456.obj_hash = 489634561;
-  cdat->dobj_2456.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2456));
- 
- /*inistring dstr_2457__meltgc_new_mult*/
- /*_.VALSTR___V2463*/ curfptr[2462] = (void*)&cdat->dstr_2457__meltgc_new_mult;
-  cdat->dstr_2457__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2457__meltgc_new_mult.val, "(meltgc_new_multiple((meltobject_ptr_t)(", sizeof(cdat->dstr_2457__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2458__*/
- /*_.VALSTR___V2464*/ curfptr[2463] = (void*)&cdat->dstr_2458__;
-  cdat->dstr_2458__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2458__.val, "), (", sizeof(cdat->dstr_2458__.val)-1);
- 
- /*inistring dstr_2459__*/
- /*_.VALSTR___V2465*/ curfptr[2464] = (void*)&cdat->dstr_2459__;
-  cdat->dstr_2459__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2459__.val, ")))", sizeof(cdat->dstr_2459__.val)-1);
- 
- /*inistring dstr_2460__MAKE_MULTIPLE*/
- /*_.VALSTR___V2457*/ curfptr[2456] = (void*)&cdat->dstr_2460__MAKE_MULTIPLE;
-  cdat->dstr_2460__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2460__MAKE_MULTIPLE.val, "MAKE_MULTIPLE", sizeof(cdat->dstr_2460__MAKE_MULTIPLE.val)-1);
- 
- /*iniobj dsym_2461__MAKE_TUPLE1*/
- if (!/*_.VALDATA___V2467*/ curfptr[2466]) /*_.VALDATA___V2467*/ curfptr[2466] = (void*)&cdat->dsym_2461__MAKE_TUPLE1;
-  melt_assertmsg("iniobj checkdiscr dsym_2461__MAKE_TUPLE1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2461__MAKE_TUPLE1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2461__MAKE_TUPLE1.obj_hash = 368109384;
-  cdat->dsym_2461__MAKE_TUPLE1.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2461__MAKE_TUPLE1));
- 
- /*inistring dstr_2462__MAKE_TUPLE1*/
- /*_.VALSTR___V2468*/ curfptr[2467] = (void*)&cdat->dstr_2462__MAKE_TUPLE1;
-  cdat->dstr_2462__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2462__MAKE_TUPLE1.val, "MAKE_TUPLE1", sizeof(cdat->dstr_2462__MAKE_TUPLE1.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1404:/ iniobj");
- /*iniobj dobj_2463__MAKE_TUPLE1*/
- if (!/*_.VALDATA___V2469*/ curfptr[2468]) /*_.VALDATA___V2469*/ curfptr[2468] = (void*)&cdat->dobj_2463__MAKE_TUPLE1;
-  melt_assertmsg("iniobj checkdiscr dobj_2463__MAKE_TUPLE1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2463__MAKE_TUPLE1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2463__MAKE_TUPLE1.obj_hash = 439473061;
-  cdat->dobj_2463__MAKE_TUPLE1.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2463__MAKE_TUPLE1));
- 
- /*inimult dtup_2464__MAKE_TUPLE1*/
- /*_.VALTUP___V2479*/ curfptr[2478] = (void*)&cdat->dtup_2464__MAKE_TUPLE1;
-  cdat->dtup_2464__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2464__MAKE_TUPLE1.nbval = 5;
- /*inimult dtup_2465__MAKE_TUPLE1*/
- /*_.VALTUP___V2475*/ curfptr[2474] = (void*)&cdat->dtup_2465__MAKE_TUPLE1;
-  cdat->dtup_2465__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2465__MAKE_TUPLE1.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1404:/ iniobj");
- /*iniobj dobj_2466*/
- if (!/*_.VALDATA___V2471*/ curfptr[2470]) /*_.VALDATA___V2471*/ curfptr[2470] = (void*)&cdat->dobj_2466;
-  melt_assertmsg("iniobj checkdiscr dobj_2466", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2466.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2466.obj_num = 0;
-  cdat->dobj_2466.obj_hash = 191327201;
-  cdat->dobj_2466.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2466));
- 
- /*iniobj dsym_2467__V1*/
- if (!/*_.VALDATA___V2473*/ curfptr[2472]) /*_.VALDATA___V2473*/ curfptr[2472] = (void*)&cdat->dsym_2467__V1;
-  melt_assertmsg("iniobj checkdiscr dsym_2467__V1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2467__V1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2467__V1.obj_hash = 118273196;
-  cdat->dsym_2467__V1.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2467__V1));
- 
- /*inistring dstr_2468__V1*/
- /*_.VALSTR___V2474*/ curfptr[2473] = (void*)&cdat->dstr_2468__V1;
-  cdat->dstr_2468__V1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2468__V1.val, "V1", sizeof(cdat->dstr_2468__V1.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1404:/ iniobj");
- /*iniobj dobj_2469*/
- if (!/*_.VALDATA___V2472*/ curfptr[2471]) /*_.VALDATA___V2472*/ curfptr[2471] = (void*)&cdat->dobj_2469;
-  melt_assertmsg("iniobj checkdiscr dobj_2469", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2469.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2469.obj_num = 1;
-  cdat->dobj_2469.obj_hash = 667832632;
-  cdat->dobj_2469.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2469));
- 
- /*inistring dstr_2470__meltgc_new_mult*/
- /*_.VALSTR___V2476*/ curfptr[2475] = (void*)&cdat->dstr_2470__meltgc_new_mult;
-  cdat->dstr_2470__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2470__meltgc_new_mult.val, "(meltgc_new_mult1((meltobject_ptr_t)(", sizeof(cdat->dstr_2470__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2471__melt_ptr_t_*/
- /*_.VALSTR___V2477*/ curfptr[2476] = (void*)&cdat->dstr_2471__melt_ptr_t_;
-  cdat->dstr_2471__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2471__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2471__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2472__*/
- /*_.VALSTR___V2478*/ curfptr[2477] = (void*)&cdat->dstr_2472__;
-  cdat->dstr_2472__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2472__.val, ")))", sizeof(cdat->dstr_2472__.val)-1);
- 
- /*inistring dstr_2473__MAKE_TUPLE1*/
- /*_.VALSTR___V2470*/ curfptr[2469] = (void*)&cdat->dstr_2473__MAKE_TUPLE1;
-  cdat->dstr_2473__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2473__MAKE_TUPLE1.val, "MAKE_TUPLE1", sizeof(cdat->dstr_2473__MAKE_TUPLE1.val)-1);
- 
- /*iniobj dsym_2474__MAKE_TUPLE2*/
- if (!/*_.VALDATA___V2480*/ curfptr[2479]) /*_.VALDATA___V2480*/ curfptr[2479] = (void*)&cdat->dsym_2474__MAKE_TUPLE2;
-  melt_assertmsg("iniobj checkdiscr dsym_2474__MAKE_TUPLE2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2474__MAKE_TUPLE2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2474__MAKE_TUPLE2.obj_hash = 192294123;
-  cdat->dsym_2474__MAKE_TUPLE2.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2474__MAKE_TUPLE2));
- 
- /*inistring dstr_2475__MAKE_TUPLE2*/
- /*_.VALSTR___V2481*/ curfptr[2480] = (void*)&cdat->dstr_2475__MAKE_TUPLE2;
-  cdat->dstr_2475__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2475__MAKE_TUPLE2.val, "MAKE_TUPLE2", sizeof(cdat->dstr_2475__MAKE_TUPLE2.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1407:/ iniobj");
- /*iniobj dobj_2476__MAKE_TUPLE2*/
- if (!/*_.VALDATA___V2482*/ curfptr[2481]) /*_.VALDATA___V2482*/ curfptr[2481] = (void*)&cdat->dobj_2476__MAKE_TUPLE2;
-  melt_assertmsg("iniobj checkdiscr dobj_2476__MAKE_TUPLE2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2476__MAKE_TUPLE2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2476__MAKE_TUPLE2.obj_hash = 931402711;
-  cdat->dobj_2476__MAKE_TUPLE2.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2476__MAKE_TUPLE2));
- 
- /*inimult dtup_2477__MAKE_TUPLE2*/
- /*_.VALTUP___V2494*/ curfptr[2493] = (void*)&cdat->dtup_2477__MAKE_TUPLE2;
-  cdat->dtup_2477__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2477__MAKE_TUPLE2.nbval = 7;
- /*inimult dtup_2478__MAKE_TUPLE2*/
- /*_.VALTUP___V2489*/ curfptr[2488] = (void*)&cdat->dtup_2478__MAKE_TUPLE2;
-  cdat->dtup_2478__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2478__MAKE_TUPLE2.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1407:/ iniobj");
- /*iniobj dobj_2479*/
- if (!/*_.VALDATA___V2484*/ curfptr[2483]) /*_.VALDATA___V2484*/ curfptr[2483] = (void*)&cdat->dobj_2479;
-  melt_assertmsg("iniobj checkdiscr dobj_2479", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2479.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2479.obj_num = 0;
-  cdat->dobj_2479.obj_hash = 922341209;
-  cdat->dobj_2479.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2479));
- 
- MELT_LOCATION("warmelt-first.melt:1407:/ iniobj");
- /*iniobj dobj_2480*/
- if (!/*_.VALDATA___V2485*/ curfptr[2484]) /*_.VALDATA___V2485*/ curfptr[2484] = (void*)&cdat->dobj_2480;
-  melt_assertmsg("iniobj checkdiscr dobj_2480", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2480.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2480.obj_num = 1;
-  cdat->dobj_2480.obj_hash = 446493371;
-  cdat->dobj_2480.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2480));
- 
- /*iniobj dsym_2481__V2*/
- if (!/*_.VALDATA___V2487*/ curfptr[2486]) /*_.VALDATA___V2487*/ curfptr[2486] = (void*)&cdat->dsym_2481__V2;
-  melt_assertmsg("iniobj checkdiscr dsym_2481__V2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2481__V2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2481__V2.obj_hash = 65717513;
-  cdat->dsym_2481__V2.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2481__V2));
- 
- /*inistring dstr_2482__V2*/
- /*_.VALSTR___V2488*/ curfptr[2487] = (void*)&cdat->dstr_2482__V2;
-  cdat->dstr_2482__V2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2482__V2.val, "V2", sizeof(cdat->dstr_2482__V2.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1407:/ iniobj");
- /*iniobj dobj_2483*/
- if (!/*_.VALDATA___V2486*/ curfptr[2485]) /*_.VALDATA___V2486*/ curfptr[2485] = (void*)&cdat->dobj_2483;
-  melt_assertmsg("iniobj checkdiscr dobj_2483", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2483.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2483.obj_num = 2;
-  cdat->dobj_2483.obj_hash = 468801853;
-  cdat->dobj_2483.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2483));
- 
- /*inistring dstr_2484__meltgc_new_mult*/
- /*_.VALSTR___V2490*/ curfptr[2489] = (void*)&cdat->dstr_2484__meltgc_new_mult;
-  cdat->dstr_2484__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2484__meltgc_new_mult.val, "(meltgc_new_mult2((meltobject_ptr_t)(", sizeof(cdat->dstr_2484__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2485__melt_ptr_t_*/
- /*_.VALSTR___V2491*/ curfptr[2490] = (void*)&cdat->dstr_2485__melt_ptr_t_;
-  cdat->dstr_2485__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2485__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2485__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2486__melt_ptr_t_*/
- /*_.VALSTR___V2492*/ curfptr[2491] = (void*)&cdat->dstr_2486__melt_ptr_t_;
-  cdat->dstr_2486__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2486__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2486__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2487__*/
- /*_.VALSTR___V2493*/ curfptr[2492] = (void*)&cdat->dstr_2487__;
-  cdat->dstr_2487__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2487__.val, ")))", sizeof(cdat->dstr_2487__.val)-1);
- 
- /*inistring dstr_2488__MAKE_TUPLE2*/
- /*_.VALSTR___V2483*/ curfptr[2482] = (void*)&cdat->dstr_2488__MAKE_TUPLE2;
-  cdat->dstr_2488__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2488__MAKE_TUPLE2.val, "MAKE_TUPLE2", sizeof(cdat->dstr_2488__MAKE_TUPLE2.val)-1);
- 
- /*iniobj dsym_2489__MAKE_TUPLE3*/
- if (!/*_.VALDATA___V2495*/ curfptr[2494]) /*_.VALDATA___V2495*/ curfptr[2494] = (void*)&cdat->dsym_2489__MAKE_TUPLE3;
-  melt_assertmsg("iniobj checkdiscr dsym_2489__MAKE_TUPLE3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2489__MAKE_TUPLE3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2489__MAKE_TUPLE3.obj_hash = 641956166;
-  cdat->dsym_2489__MAKE_TUPLE3.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2489__MAKE_TUPLE3));
- 
- /*inistring dstr_2490__MAKE_TUPLE3*/
- /*_.VALSTR___V2496*/ curfptr[2495] = (void*)&cdat->dstr_2490__MAKE_TUPLE3;
-  cdat->dstr_2490__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2490__MAKE_TUPLE3.val, "MAKE_TUPLE3", sizeof(cdat->dstr_2490__MAKE_TUPLE3.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1410:/ iniobj");
- /*iniobj dobj_2491__MAKE_TUPLE3*/
- if (!/*_.VALDATA___V2497*/ curfptr[2496]) /*_.VALDATA___V2497*/ curfptr[2496] = (void*)&cdat->dobj_2491__MAKE_TUPLE3;
-  melt_assertmsg("iniobj checkdiscr dobj_2491__MAKE_TUPLE3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2491__MAKE_TUPLE3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2491__MAKE_TUPLE3.obj_hash = 550850038;
-  cdat->dobj_2491__MAKE_TUPLE3.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2491__MAKE_TUPLE3));
- 
- /*inimult dtup_2492__MAKE_TUPLE3*/
- /*_.VALTUP___V2511*/ curfptr[2510] = (void*)&cdat->dtup_2492__MAKE_TUPLE3;
-  cdat->dtup_2492__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2492__MAKE_TUPLE3.nbval = 9;
- /*inimult dtup_2493__MAKE_TUPLE3*/
- /*_.VALTUP___V2505*/ curfptr[2504] = (void*)&cdat->dtup_2493__MAKE_TUPLE3;
-  cdat->dtup_2493__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2493__MAKE_TUPLE3.nbval = 4;
- MELT_LOCATION("warmelt-first.melt:1410:/ iniobj");
- /*iniobj dobj_2494*/
- if (!/*_.VALDATA___V2499*/ curfptr[2498]) /*_.VALDATA___V2499*/ curfptr[2498] = (void*)&cdat->dobj_2494;
-  melt_assertmsg("iniobj checkdiscr dobj_2494", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2494.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2494.obj_num = 0;
-  cdat->dobj_2494.obj_hash = 892911858;
-  cdat->dobj_2494.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2494));
- 
- MELT_LOCATION("warmelt-first.melt:1410:/ iniobj");
- /*iniobj dobj_2495*/
- if (!/*_.VALDATA___V2500*/ curfptr[2499]) /*_.VALDATA___V2500*/ curfptr[2499] = (void*)&cdat->dobj_2495;
-  melt_assertmsg("iniobj checkdiscr dobj_2495", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2495.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2495.obj_num = 1;
-  cdat->dobj_2495.obj_hash = 827592661;
-  cdat->dobj_2495.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2495));
- 
- MELT_LOCATION("warmelt-first.melt:1410:/ iniobj");
- /*iniobj dobj_2496*/
- if (!/*_.VALDATA___V2501*/ curfptr[2500]) /*_.VALDATA___V2501*/ curfptr[2500] = (void*)&cdat->dobj_2496;
-  melt_assertmsg("iniobj checkdiscr dobj_2496", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2496.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2496.obj_num = 2;
-  cdat->dobj_2496.obj_hash = 340182957;
-  cdat->dobj_2496.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2496));
- 
- /*iniobj dsym_2497__V3*/
- if (!/*_.VALDATA___V2503*/ curfptr[2502]) /*_.VALDATA___V2503*/ curfptr[2502] = (void*)&cdat->dsym_2497__V3;
-  melt_assertmsg("iniobj checkdiscr dsym_2497__V3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2497__V3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2497__V3.obj_hash = 124232694;
-  cdat->dsym_2497__V3.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2497__V3));
- 
- /*inistring dstr_2498__V3*/
- /*_.VALSTR___V2504*/ curfptr[2503] = (void*)&cdat->dstr_2498__V3;
-  cdat->dstr_2498__V3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2498__V3.val, "V3", sizeof(cdat->dstr_2498__V3.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1410:/ iniobj");
- /*iniobj dobj_2499*/
- if (!/*_.VALDATA___V2502*/ curfptr[2501]) /*_.VALDATA___V2502*/ curfptr[2501] = (void*)&cdat->dobj_2499;
-  melt_assertmsg("iniobj checkdiscr dobj_2499", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2499.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2499.obj_num = 3;
-  cdat->dobj_2499.obj_hash = 761249751;
-  cdat->dobj_2499.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2499));
- 
- /*inistring dstr_2500__meltgc_new_mult*/
- /*_.VALSTR___V2506*/ curfptr[2505] = (void*)&cdat->dstr_2500__meltgc_new_mult;
-  cdat->dstr_2500__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2500__meltgc_new_mult.val, "(meltgc_new_mult3((meltobject_ptr_t)(", sizeof(cdat->dstr_2500__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2501__melt_ptr_t_*/
- /*_.VALSTR___V2507*/ curfptr[2506] = (void*)&cdat->dstr_2501__melt_ptr_t_;
-  cdat->dstr_2501__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2501__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2501__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2502__melt_ptr_t_*/
- /*_.VALSTR___V2508*/ curfptr[2507] = (void*)&cdat->dstr_2502__melt_ptr_t_;
-  cdat->dstr_2502__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2502__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2502__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2503__melt_ptr_t_*/
- /*_.VALSTR___V2509*/ curfptr[2508] = (void*)&cdat->dstr_2503__melt_ptr_t_;
-  cdat->dstr_2503__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2503__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2503__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2504__*/
- /*_.VALSTR___V2510*/ curfptr[2509] = (void*)&cdat->dstr_2504__;
-  cdat->dstr_2504__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2504__.val, ")))", sizeof(cdat->dstr_2504__.val)-1);
- 
- /*inistring dstr_2505__MAKE_TUPLE3*/
- /*_.VALSTR___V2498*/ curfptr[2497] = (void*)&cdat->dstr_2505__MAKE_TUPLE3;
-  cdat->dstr_2505__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2505__MAKE_TUPLE3.val, "MAKE_TUPLE3", sizeof(cdat->dstr_2505__MAKE_TUPLE3.val)-1);
- 
- /*iniobj dsym_2506__MAKE_TUPLE4*/
- if (!/*_.VALDATA___V2512*/ curfptr[2511]) /*_.VALDATA___V2512*/ curfptr[2511] = (void*)&cdat->dsym_2506__MAKE_TUPLE4;
-  melt_assertmsg("iniobj checkdiscr dsym_2506__MAKE_TUPLE4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2506__MAKE_TUPLE4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2506__MAKE_TUPLE4.obj_hash = 993594614;
-  cdat->dsym_2506__MAKE_TUPLE4.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2506__MAKE_TUPLE4));
- 
- /*inistring dstr_2507__MAKE_TUPLE4*/
- /*_.VALSTR___V2513*/ curfptr[2512] = (void*)&cdat->dstr_2507__MAKE_TUPLE4;
-  cdat->dstr_2507__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2507__MAKE_TUPLE4.val, "MAKE_TUPLE4", sizeof(cdat->dstr_2507__MAKE_TUPLE4.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1413:/ iniobj");
- /*iniobj dobj_2508__MAKE_TUPLE4*/
- if (!/*_.VALDATA___V2514*/ curfptr[2513]) /*_.VALDATA___V2514*/ curfptr[2513] = (void*)&cdat->dobj_2508__MAKE_TUPLE4;
-  melt_assertmsg("iniobj checkdiscr dobj_2508__MAKE_TUPLE4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2508__MAKE_TUPLE4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2508__MAKE_TUPLE4.obj_hash = 434975137;
-  cdat->dobj_2508__MAKE_TUPLE4.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2508__MAKE_TUPLE4));
- 
- /*inimult dtup_2509__MAKE_TUPLE4*/
- /*_.VALTUP___V2530*/ curfptr[2529] = (void*)&cdat->dtup_2509__MAKE_TUPLE4;
-  cdat->dtup_2509__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2509__MAKE_TUPLE4.nbval = 11;
- /*inimult dtup_2510__MAKE_TUPLE4*/
- /*_.VALTUP___V2523*/ curfptr[2522] = (void*)&cdat->dtup_2510__MAKE_TUPLE4;
-  cdat->dtup_2510__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2510__MAKE_TUPLE4.nbval = 5;
- MELT_LOCATION("warmelt-first.melt:1413:/ iniobj");
- /*iniobj dobj_2511*/
- if (!/*_.VALDATA___V2516*/ curfptr[2515]) /*_.VALDATA___V2516*/ curfptr[2515] = (void*)&cdat->dobj_2511;
-  melt_assertmsg("iniobj checkdiscr dobj_2511", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2511.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2511.obj_num = 0;
-  cdat->dobj_2511.obj_hash = 63028783;
-  cdat->dobj_2511.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2511));
- 
- MELT_LOCATION("warmelt-first.melt:1413:/ iniobj");
- /*iniobj dobj_2512*/
- if (!/*_.VALDATA___V2517*/ curfptr[2516]) /*_.VALDATA___V2517*/ curfptr[2516] = (void*)&cdat->dobj_2512;
-  melt_assertmsg("iniobj checkdiscr dobj_2512", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2512.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2512.obj_num = 1;
-  cdat->dobj_2512.obj_hash = 18356954;
-  cdat->dobj_2512.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2512));
- 
- MELT_LOCATION("warmelt-first.melt:1413:/ iniobj");
- /*iniobj dobj_2513*/
- if (!/*_.VALDATA___V2518*/ curfptr[2517]) /*_.VALDATA___V2518*/ curfptr[2517] = (void*)&cdat->dobj_2513;
-  melt_assertmsg("iniobj checkdiscr dobj_2513", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2513.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2513.obj_num = 2;
-  cdat->dobj_2513.obj_hash = 853933755;
-  cdat->dobj_2513.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2513));
- 
- MELT_LOCATION("warmelt-first.melt:1413:/ iniobj");
- /*iniobj dobj_2514*/
- if (!/*_.VALDATA___V2519*/ curfptr[2518]) /*_.VALDATA___V2519*/ curfptr[2518] = (void*)&cdat->dobj_2514;
-  melt_assertmsg("iniobj checkdiscr dobj_2514", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2514.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2514.obj_num = 3;
-  cdat->dobj_2514.obj_hash = 872210681;
-  cdat->dobj_2514.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2514));
- 
- /*iniobj dsym_2515__V4*/
- if (!/*_.VALDATA___V2521*/ curfptr[2520]) /*_.VALDATA___V2521*/ curfptr[2520] = (void*)&cdat->dsym_2515__V4;
-  melt_assertmsg("iniobj checkdiscr dsym_2515__V4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2515__V4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2515__V4.obj_hash = 116745681;
-  cdat->dsym_2515__V4.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2515__V4));
- 
- /*inistring dstr_2516__V4*/
- /*_.VALSTR___V2522*/ curfptr[2521] = (void*)&cdat->dstr_2516__V4;
-  cdat->dstr_2516__V4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2516__V4.val, "V4", sizeof(cdat->dstr_2516__V4.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1413:/ iniobj");
- /*iniobj dobj_2517*/
- if (!/*_.VALDATA___V2520*/ curfptr[2519]) /*_.VALDATA___V2520*/ curfptr[2519] = (void*)&cdat->dobj_2517;
-  melt_assertmsg("iniobj checkdiscr dobj_2517", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2517.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2517.obj_num = 4;
-  cdat->dobj_2517.obj_hash = 79588294;
-  cdat->dobj_2517.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2517));
- 
- /*inistring dstr_2518__meltgc_new_mult*/
- /*_.VALSTR___V2524*/ curfptr[2523] = (void*)&cdat->dstr_2518__meltgc_new_mult;
-  cdat->dstr_2518__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2518__meltgc_new_mult.val, "(meltgc_new_mult4((meltobject_ptr_t)(", sizeof(cdat->dstr_2518__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2519__melt_ptr_t_*/
- /*_.VALSTR___V2525*/ curfptr[2524] = (void*)&cdat->dstr_2519__melt_ptr_t_;
-  cdat->dstr_2519__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2519__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2519__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2520__me*/
- /*_.VALSTR___V2526*/ curfptr[2525] = (void*)&cdat->dstr_2520__me;
-  cdat->dstr_2520__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2520__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2520__me.val)-1);
- 
- /*inistring dstr_2521__melt_ptr_t_*/
- /*_.VALSTR___V2527*/ curfptr[2526] = (void*)&cdat->dstr_2521__melt_ptr_t_;
-  cdat->dstr_2521__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2521__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2521__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2522__melt_ptr_t_*/
- /*_.VALSTR___V2528*/ curfptr[2527] = (void*)&cdat->dstr_2522__melt_ptr_t_;
-  cdat->dstr_2522__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2522__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2522__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2523__*/
- /*_.VALSTR___V2529*/ curfptr[2528] = (void*)&cdat->dstr_2523__;
-  cdat->dstr_2523__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2523__.val, ")))", sizeof(cdat->dstr_2523__.val)-1);
- 
- /*inistring dstr_2524__MAKE_TUPLE4*/
- /*_.VALSTR___V2515*/ curfptr[2514] = (void*)&cdat->dstr_2524__MAKE_TUPLE4;
-  cdat->dstr_2524__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2524__MAKE_TUPLE4.val, "MAKE_TUPLE4", sizeof(cdat->dstr_2524__MAKE_TUPLE4.val)-1);
- 
- /*iniobj dsym_2525__MAKE_TUPLE5*/
- if (!/*_.VALDATA___V2531*/ curfptr[2530]) /*_.VALDATA___V2531*/ curfptr[2530] = (void*)&cdat->dsym_2525__MAKE_TUPLE5;
-  melt_assertmsg("iniobj checkdiscr dsym_2525__MAKE_TUPLE5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2525__MAKE_TUPLE5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2525__MAKE_TUPLE5.obj_hash = 354737996;
-  cdat->dsym_2525__MAKE_TUPLE5.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2525__MAKE_TUPLE5));
- 
- /*inistring dstr_2526__MAKE_TUPLE5*/
- /*_.VALSTR___V2532*/ curfptr[2531] = (void*)&cdat->dstr_2526__MAKE_TUPLE5;
-  cdat->dstr_2526__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2526__MAKE_TUPLE5.val, "MAKE_TUPLE5", sizeof(cdat->dstr_2526__MAKE_TUPLE5.val)-1);
+ /*iniobj dsym_2440__MAKE_MULTIPLE*/
+ if (!/*_.VALDATA___V2446*/ curfptr[2445]) /*_.VALDATA___V2446*/ curfptr[2445] = (void*)&cdat->dsym_2440__MAKE_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_2440__MAKE_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2440__MAKE_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2440__MAKE_MULTIPLE.obj_hash = 863607050;
+  cdat->dsym_2440__MAKE_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2440__MAKE_MULTIPLE));
+ 
+ /*inistring dstr_2441__MAKE_MULTIPLE*/
+ /*_.VALSTR___V2447*/ curfptr[2446] = (void*)&cdat->dstr_2441__MAKE_MULTIPLE;
+  cdat->dstr_2441__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2441__MAKE_MULTIPLE.val, "MAKE_MULTIPLE", sizeof(cdat->dstr_2441__MAKE_MULTIPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1396:/ iniobj");
+ /*iniobj dobj_2442__MAKE_MULTIPLE*/
+ if (!/*_.VALDATA___V2448*/ curfptr[2447]) /*_.VALDATA___V2448*/ curfptr[2447] = (void*)&cdat->dobj_2442__MAKE_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dobj_2442__MAKE_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2442__MAKE_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2442__MAKE_MULTIPLE.obj_hash = 552231923;
+  cdat->dobj_2442__MAKE_MULTIPLE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2442__MAKE_MULTIPLE));
+ 
+ /*inimult dtup_2443__MAKE_MULTIPLE*/
+ /*_.VALTUP___V2458*/ curfptr[2457] = (void*)&cdat->dtup_2443__MAKE_MULTIPLE;
+  cdat->dtup_2443__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2443__MAKE_MULTIPLE.nbval = 5;
+ /*inimult dtup_2444__MAKE_MULTIPLE*/
+ /*_.VALTUP___V2454*/ curfptr[2453] = (void*)&cdat->dtup_2444__MAKE_MULTIPLE;
+  cdat->dtup_2444__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2444__MAKE_MULTIPLE.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1396:/ iniobj");
+ /*iniobj dobj_2445*/
+ if (!/*_.VALDATA___V2450*/ curfptr[2449]) /*_.VALDATA___V2450*/ curfptr[2449] = (void*)&cdat->dobj_2445;
+  melt_assertmsg("iniobj checkdiscr dobj_2445", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2445.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2445.obj_num = 0;
+  cdat->dobj_2445.obj_hash = 138466673;
+  cdat->dobj_2445.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2445));
+ 
+ /*iniobj dsym_2446__LN*/
+ if (!/*_.VALDATA___V2452*/ curfptr[2451]) /*_.VALDATA___V2452*/ curfptr[2451] = (void*)&cdat->dsym_2446__LN;
+  melt_assertmsg("iniobj checkdiscr dsym_2446__LN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2446__LN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2446__LN.obj_hash = 26632748;
+  cdat->dsym_2446__LN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2446__LN));
+ 
+ /*inistring dstr_2447__LN*/
+ /*_.VALSTR___V2453*/ curfptr[2452] = (void*)&cdat->dstr_2447__LN;
+  cdat->dstr_2447__LN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2447__LN.val, "LN", sizeof(cdat->dstr_2447__LN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1396:/ iniobj");
+ /*iniobj dobj_2448*/
+ if (!/*_.VALDATA___V2451*/ curfptr[2450]) /*_.VALDATA___V2451*/ curfptr[2450] = (void*)&cdat->dobj_2448;
+  melt_assertmsg("iniobj checkdiscr dobj_2448", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2448.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2448.obj_num = 1;
+  cdat->dobj_2448.obj_hash = 351684247;
+  cdat->dobj_2448.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2448));
+ 
+ /*inistring dstr_2449__meltgc_new_mult*/
+ /*_.VALSTR___V2455*/ curfptr[2454] = (void*)&cdat->dstr_2449__meltgc_new_mult;
+  cdat->dstr_2449__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2449__meltgc_new_mult.val, "(meltgc_new_multiple((meltobject_ptr_t)(", sizeof(cdat->dstr_2449__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2450__*/
+ /*_.VALSTR___V2456*/ curfptr[2455] = (void*)&cdat->dstr_2450__;
+  cdat->dstr_2450__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2450__.val, "), (", sizeof(cdat->dstr_2450__.val)-1);
+ 
+ /*inistring dstr_2451__*/
+ /*_.VALSTR___V2457*/ curfptr[2456] = (void*)&cdat->dstr_2451__;
+  cdat->dstr_2451__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2451__.val, ")))", sizeof(cdat->dstr_2451__.val)-1);
+ 
+ /*inistring dstr_2452__MAKE_MULTIPLE*/
+ /*_.VALSTR___V2449*/ curfptr[2448] = (void*)&cdat->dstr_2452__MAKE_MULTIPLE;
+  cdat->dstr_2452__MAKE_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2452__MAKE_MULTIPLE.val, "MAKE_MULTIPLE", sizeof(cdat->dstr_2452__MAKE_MULTIPLE.val)-1);
+ 
+ /*iniobj dsym_2453__MAKE_TUPLE1*/
+ if (!/*_.VALDATA___V2459*/ curfptr[2458]) /*_.VALDATA___V2459*/ curfptr[2458] = (void*)&cdat->dsym_2453__MAKE_TUPLE1;
+  melt_assertmsg("iniobj checkdiscr dsym_2453__MAKE_TUPLE1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2453__MAKE_TUPLE1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2453__MAKE_TUPLE1.obj_hash = 368109384;
+  cdat->dsym_2453__MAKE_TUPLE1.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2453__MAKE_TUPLE1));
+ 
+ /*inistring dstr_2454__MAKE_TUPLE1*/
+ /*_.VALSTR___V2460*/ curfptr[2459] = (void*)&cdat->dstr_2454__MAKE_TUPLE1;
+  cdat->dstr_2454__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2454__MAKE_TUPLE1.val, "MAKE_TUPLE1", sizeof(cdat->dstr_2454__MAKE_TUPLE1.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1399:/ iniobj");
+ /*iniobj dobj_2455__MAKE_TUPLE1*/
+ if (!/*_.VALDATA___V2461*/ curfptr[2460]) /*_.VALDATA___V2461*/ curfptr[2460] = (void*)&cdat->dobj_2455__MAKE_TUPLE1;
+  melt_assertmsg("iniobj checkdiscr dobj_2455__MAKE_TUPLE1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2455__MAKE_TUPLE1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2455__MAKE_TUPLE1.obj_hash = 896354835;
+  cdat->dobj_2455__MAKE_TUPLE1.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2455__MAKE_TUPLE1));
+ 
+ /*inimult dtup_2456__MAKE_TUPLE1*/
+ /*_.VALTUP___V2471*/ curfptr[2470] = (void*)&cdat->dtup_2456__MAKE_TUPLE1;
+  cdat->dtup_2456__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2456__MAKE_TUPLE1.nbval = 5;
+ /*inimult dtup_2457__MAKE_TUPLE1*/
+ /*_.VALTUP___V2467*/ curfptr[2466] = (void*)&cdat->dtup_2457__MAKE_TUPLE1;
+  cdat->dtup_2457__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2457__MAKE_TUPLE1.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1399:/ iniobj");
+ /*iniobj dobj_2458*/
+ if (!/*_.VALDATA___V2463*/ curfptr[2462]) /*_.VALDATA___V2463*/ curfptr[2462] = (void*)&cdat->dobj_2458;
+  melt_assertmsg("iniobj checkdiscr dobj_2458", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2458.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2458.obj_num = 0;
+  cdat->dobj_2458.obj_hash = 771582091;
+  cdat->dobj_2458.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2458));
+ 
+ /*iniobj dsym_2459__V1*/
+ if (!/*_.VALDATA___V2465*/ curfptr[2464]) /*_.VALDATA___V2465*/ curfptr[2464] = (void*)&cdat->dsym_2459__V1;
+  melt_assertmsg("iniobj checkdiscr dsym_2459__V1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2459__V1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2459__V1.obj_hash = 118273196;
+  cdat->dsym_2459__V1.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2459__V1));
+ 
+ /*inistring dstr_2460__V1*/
+ /*_.VALSTR___V2466*/ curfptr[2465] = (void*)&cdat->dstr_2460__V1;
+  cdat->dstr_2460__V1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2460__V1.val, "V1", sizeof(cdat->dstr_2460__V1.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1399:/ iniobj");
+ /*iniobj dobj_2461*/
+ if (!/*_.VALDATA___V2464*/ curfptr[2463]) /*_.VALDATA___V2464*/ curfptr[2463] = (void*)&cdat->dobj_2461;
+  melt_assertmsg("iniobj checkdiscr dobj_2461", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2461.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2461.obj_num = 1;
+  cdat->dobj_2461.obj_hash = 13953977;
+  cdat->dobj_2461.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2461));
+ 
+ /*inistring dstr_2462__meltgc_new_mult*/
+ /*_.VALSTR___V2468*/ curfptr[2467] = (void*)&cdat->dstr_2462__meltgc_new_mult;
+  cdat->dstr_2462__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2462__meltgc_new_mult.val, "(meltgc_new_mult1((meltobject_ptr_t)(", sizeof(cdat->dstr_2462__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2463__melt_ptr_t_*/
+ /*_.VALSTR___V2469*/ curfptr[2468] = (void*)&cdat->dstr_2463__melt_ptr_t_;
+  cdat->dstr_2463__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2463__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2463__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2464__*/
+ /*_.VALSTR___V2470*/ curfptr[2469] = (void*)&cdat->dstr_2464__;
+  cdat->dstr_2464__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2464__.val, ")))", sizeof(cdat->dstr_2464__.val)-1);
+ 
+ /*inistring dstr_2465__MAKE_TUPLE1*/
+ /*_.VALSTR___V2462*/ curfptr[2461] = (void*)&cdat->dstr_2465__MAKE_TUPLE1;
+  cdat->dstr_2465__MAKE_TUPLE1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2465__MAKE_TUPLE1.val, "MAKE_TUPLE1", sizeof(cdat->dstr_2465__MAKE_TUPLE1.val)-1);
+ 
+ /*iniobj dsym_2466__MAKE_TUPLE2*/
+ if (!/*_.VALDATA___V2472*/ curfptr[2471]) /*_.VALDATA___V2472*/ curfptr[2471] = (void*)&cdat->dsym_2466__MAKE_TUPLE2;
+  melt_assertmsg("iniobj checkdiscr dsym_2466__MAKE_TUPLE2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2466__MAKE_TUPLE2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2466__MAKE_TUPLE2.obj_hash = 192294123;
+  cdat->dsym_2466__MAKE_TUPLE2.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2466__MAKE_TUPLE2));
+ 
+ /*inistring dstr_2467__MAKE_TUPLE2*/
+ /*_.VALSTR___V2473*/ curfptr[2472] = (void*)&cdat->dstr_2467__MAKE_TUPLE2;
+  cdat->dstr_2467__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2467__MAKE_TUPLE2.val, "MAKE_TUPLE2", sizeof(cdat->dstr_2467__MAKE_TUPLE2.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1402:/ iniobj");
+ /*iniobj dobj_2468__MAKE_TUPLE2*/
+ if (!/*_.VALDATA___V2474*/ curfptr[2473]) /*_.VALDATA___V2474*/ curfptr[2473] = (void*)&cdat->dobj_2468__MAKE_TUPLE2;
+  melt_assertmsg("iniobj checkdiscr dobj_2468__MAKE_TUPLE2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2468__MAKE_TUPLE2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2468__MAKE_TUPLE2.obj_hash = 905790301;
+  cdat->dobj_2468__MAKE_TUPLE2.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2468__MAKE_TUPLE2));
+ 
+ /*inimult dtup_2469__MAKE_TUPLE2*/
+ /*_.VALTUP___V2486*/ curfptr[2485] = (void*)&cdat->dtup_2469__MAKE_TUPLE2;
+  cdat->dtup_2469__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2469__MAKE_TUPLE2.nbval = 7;
+ /*inimult dtup_2470__MAKE_TUPLE2*/
+ /*_.VALTUP___V2481*/ curfptr[2480] = (void*)&cdat->dtup_2470__MAKE_TUPLE2;
+  cdat->dtup_2470__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2470__MAKE_TUPLE2.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1402:/ iniobj");
+ /*iniobj dobj_2471*/
+ if (!/*_.VALDATA___V2476*/ curfptr[2475]) /*_.VALDATA___V2476*/ curfptr[2475] = (void*)&cdat->dobj_2471;
+  melt_assertmsg("iniobj checkdiscr dobj_2471", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2471.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2471.obj_num = 0;
+  cdat->dobj_2471.obj_hash = 451823507;
+  cdat->dobj_2471.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2471));
+ 
+ MELT_LOCATION("warmelt-first.melt:1402:/ iniobj");
+ /*iniobj dobj_2472*/
+ if (!/*_.VALDATA___V2477*/ curfptr[2476]) /*_.VALDATA___V2477*/ curfptr[2476] = (void*)&cdat->dobj_2472;
+  melt_assertmsg("iniobj checkdiscr dobj_2472", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2472.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2472.obj_num = 1;
+  cdat->dobj_2472.obj_hash = 722846912;
+  cdat->dobj_2472.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2472));
+ 
+ /*iniobj dsym_2473__V2*/
+ if (!/*_.VALDATA___V2479*/ curfptr[2478]) /*_.VALDATA___V2479*/ curfptr[2478] = (void*)&cdat->dsym_2473__V2;
+  melt_assertmsg("iniobj checkdiscr dsym_2473__V2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2473__V2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2473__V2.obj_hash = 65717513;
+  cdat->dsym_2473__V2.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2473__V2));
+ 
+ /*inistring dstr_2474__V2*/
+ /*_.VALSTR___V2480*/ curfptr[2479] = (void*)&cdat->dstr_2474__V2;
+  cdat->dstr_2474__V2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2474__V2.val, "V2", sizeof(cdat->dstr_2474__V2.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1402:/ iniobj");
+ /*iniobj dobj_2475*/
+ if (!/*_.VALDATA___V2478*/ curfptr[2477]) /*_.VALDATA___V2478*/ curfptr[2477] = (void*)&cdat->dobj_2475;
+  melt_assertmsg("iniobj checkdiscr dobj_2475", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2475.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2475.obj_num = 2;
+  cdat->dobj_2475.obj_hash = 559138800;
+  cdat->dobj_2475.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2475));
+ 
+ /*inistring dstr_2476__meltgc_new_mult*/
+ /*_.VALSTR___V2482*/ curfptr[2481] = (void*)&cdat->dstr_2476__meltgc_new_mult;
+  cdat->dstr_2476__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2476__meltgc_new_mult.val, "(meltgc_new_mult2((meltobject_ptr_t)(", sizeof(cdat->dstr_2476__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2477__melt_ptr_t_*/
+ /*_.VALSTR___V2483*/ curfptr[2482] = (void*)&cdat->dstr_2477__melt_ptr_t_;
+  cdat->dstr_2477__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2477__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2477__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2478__melt_ptr_t_*/
+ /*_.VALSTR___V2484*/ curfptr[2483] = (void*)&cdat->dstr_2478__melt_ptr_t_;
+  cdat->dstr_2478__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2478__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2478__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2479__*/
+ /*_.VALSTR___V2485*/ curfptr[2484] = (void*)&cdat->dstr_2479__;
+  cdat->dstr_2479__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2479__.val, ")))", sizeof(cdat->dstr_2479__.val)-1);
+ 
+ /*inistring dstr_2480__MAKE_TUPLE2*/
+ /*_.VALSTR___V2475*/ curfptr[2474] = (void*)&cdat->dstr_2480__MAKE_TUPLE2;
+  cdat->dstr_2480__MAKE_TUPLE2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2480__MAKE_TUPLE2.val, "MAKE_TUPLE2", sizeof(cdat->dstr_2480__MAKE_TUPLE2.val)-1);
+ 
+ /*iniobj dsym_2481__MAKE_TUPLE3*/
+ if (!/*_.VALDATA___V2487*/ curfptr[2486]) /*_.VALDATA___V2487*/ curfptr[2486] = (void*)&cdat->dsym_2481__MAKE_TUPLE3;
+  melt_assertmsg("iniobj checkdiscr dsym_2481__MAKE_TUPLE3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2481__MAKE_TUPLE3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2481__MAKE_TUPLE3.obj_hash = 641956166;
+  cdat->dsym_2481__MAKE_TUPLE3.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2481__MAKE_TUPLE3));
+ 
+ /*inistring dstr_2482__MAKE_TUPLE3*/
+ /*_.VALSTR___V2488*/ curfptr[2487] = (void*)&cdat->dstr_2482__MAKE_TUPLE3;
+  cdat->dstr_2482__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2482__MAKE_TUPLE3.val, "MAKE_TUPLE3", sizeof(cdat->dstr_2482__MAKE_TUPLE3.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1405:/ iniobj");
+ /*iniobj dobj_2483__MAKE_TUPLE3*/
+ if (!/*_.VALDATA___V2489*/ curfptr[2488]) /*_.VALDATA___V2489*/ curfptr[2488] = (void*)&cdat->dobj_2483__MAKE_TUPLE3;
+  melt_assertmsg("iniobj checkdiscr dobj_2483__MAKE_TUPLE3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2483__MAKE_TUPLE3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2483__MAKE_TUPLE3.obj_hash = 828969092;
+  cdat->dobj_2483__MAKE_TUPLE3.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2483__MAKE_TUPLE3));
+ 
+ /*inimult dtup_2484__MAKE_TUPLE3*/
+ /*_.VALTUP___V2503*/ curfptr[2502] = (void*)&cdat->dtup_2484__MAKE_TUPLE3;
+  cdat->dtup_2484__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2484__MAKE_TUPLE3.nbval = 9;
+ /*inimult dtup_2485__MAKE_TUPLE3*/
+ /*_.VALTUP___V2497*/ curfptr[2496] = (void*)&cdat->dtup_2485__MAKE_TUPLE3;
+  cdat->dtup_2485__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2485__MAKE_TUPLE3.nbval = 4;
+ MELT_LOCATION("warmelt-first.melt:1405:/ iniobj");
+ /*iniobj dobj_2486*/
+ if (!/*_.VALDATA___V2491*/ curfptr[2490]) /*_.VALDATA___V2491*/ curfptr[2490] = (void*)&cdat->dobj_2486;
+  melt_assertmsg("iniobj checkdiscr dobj_2486", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2486.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2486.obj_num = 0;
+  cdat->dobj_2486.obj_hash = 320283530;
+  cdat->dobj_2486.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2486));
+ 
+ MELT_LOCATION("warmelt-first.melt:1405:/ iniobj");
+ /*iniobj dobj_2487*/
+ if (!/*_.VALDATA___V2492*/ curfptr[2491]) /*_.VALDATA___V2492*/ curfptr[2491] = (void*)&cdat->dobj_2487;
+  melt_assertmsg("iniobj checkdiscr dobj_2487", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2487.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2487.obj_num = 1;
+  cdat->dobj_2487.obj_hash = 381371549;
+  cdat->dobj_2487.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2487));
+ 
+ MELT_LOCATION("warmelt-first.melt:1405:/ iniobj");
+ /*iniobj dobj_2488*/
+ if (!/*_.VALDATA___V2493*/ curfptr[2492]) /*_.VALDATA___V2493*/ curfptr[2492] = (void*)&cdat->dobj_2488;
+  melt_assertmsg("iniobj checkdiscr dobj_2488", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2488.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2488.obj_num = 2;
+  cdat->dobj_2488.obj_hash = 701957417;
+  cdat->dobj_2488.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2488));
+ 
+ /*iniobj dsym_2489__V3*/
+ if (!/*_.VALDATA___V2495*/ curfptr[2494]) /*_.VALDATA___V2495*/ curfptr[2494] = (void*)&cdat->dsym_2489__V3;
+  melt_assertmsg("iniobj checkdiscr dsym_2489__V3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2489__V3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2489__V3.obj_hash = 124232694;
+  cdat->dsym_2489__V3.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2489__V3));
+ 
+ /*inistring dstr_2490__V3*/
+ /*_.VALSTR___V2496*/ curfptr[2495] = (void*)&cdat->dstr_2490__V3;
+  cdat->dstr_2490__V3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2490__V3.val, "V3", sizeof(cdat->dstr_2490__V3.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1405:/ iniobj");
+ /*iniobj dobj_2491*/
+ if (!/*_.VALDATA___V2494*/ curfptr[2493]) /*_.VALDATA___V2494*/ curfptr[2493] = (void*)&cdat->dobj_2491;
+  melt_assertmsg("iniobj checkdiscr dobj_2491", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2491.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2491.obj_num = 3;
+  cdat->dobj_2491.obj_hash = 105284123;
+  cdat->dobj_2491.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2491));
+ 
+ /*inistring dstr_2492__meltgc_new_mult*/
+ /*_.VALSTR___V2498*/ curfptr[2497] = (void*)&cdat->dstr_2492__meltgc_new_mult;
+  cdat->dstr_2492__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2492__meltgc_new_mult.val, "(meltgc_new_mult3((meltobject_ptr_t)(", sizeof(cdat->dstr_2492__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2493__melt_ptr_t_*/
+ /*_.VALSTR___V2499*/ curfptr[2498] = (void*)&cdat->dstr_2493__melt_ptr_t_;
+  cdat->dstr_2493__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2493__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2493__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2494__melt_ptr_t_*/
+ /*_.VALSTR___V2500*/ curfptr[2499] = (void*)&cdat->dstr_2494__melt_ptr_t_;
+  cdat->dstr_2494__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2494__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2494__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2495__melt_ptr_t_*/
+ /*_.VALSTR___V2501*/ curfptr[2500] = (void*)&cdat->dstr_2495__melt_ptr_t_;
+  cdat->dstr_2495__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2495__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2495__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2496__*/
+ /*_.VALSTR___V2502*/ curfptr[2501] = (void*)&cdat->dstr_2496__;
+  cdat->dstr_2496__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2496__.val, ")))", sizeof(cdat->dstr_2496__.val)-1);
+ 
+ /*inistring dstr_2497__MAKE_TUPLE3*/
+ /*_.VALSTR___V2490*/ curfptr[2489] = (void*)&cdat->dstr_2497__MAKE_TUPLE3;
+  cdat->dstr_2497__MAKE_TUPLE3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2497__MAKE_TUPLE3.val, "MAKE_TUPLE3", sizeof(cdat->dstr_2497__MAKE_TUPLE3.val)-1);
+ 
+ /*iniobj dsym_2498__MAKE_TUPLE4*/
+ if (!/*_.VALDATA___V2504*/ curfptr[2503]) /*_.VALDATA___V2504*/ curfptr[2503] = (void*)&cdat->dsym_2498__MAKE_TUPLE4;
+  melt_assertmsg("iniobj checkdiscr dsym_2498__MAKE_TUPLE4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2498__MAKE_TUPLE4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2498__MAKE_TUPLE4.obj_hash = 993594614;
+  cdat->dsym_2498__MAKE_TUPLE4.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2498__MAKE_TUPLE4));
+ 
+ /*inistring dstr_2499__MAKE_TUPLE4*/
+ /*_.VALSTR___V2505*/ curfptr[2504] = (void*)&cdat->dstr_2499__MAKE_TUPLE4;
+  cdat->dstr_2499__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2499__MAKE_TUPLE4.val, "MAKE_TUPLE4", sizeof(cdat->dstr_2499__MAKE_TUPLE4.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1408:/ iniobj");
+ /*iniobj dobj_2500__MAKE_TUPLE4*/
+ if (!/*_.VALDATA___V2506*/ curfptr[2505]) /*_.VALDATA___V2506*/ curfptr[2505] = (void*)&cdat->dobj_2500__MAKE_TUPLE4;
+  melt_assertmsg("iniobj checkdiscr dobj_2500__MAKE_TUPLE4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2500__MAKE_TUPLE4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2500__MAKE_TUPLE4.obj_hash = 233100808;
+  cdat->dobj_2500__MAKE_TUPLE4.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2500__MAKE_TUPLE4));
+ 
+ /*inimult dtup_2501__MAKE_TUPLE4*/
+ /*_.VALTUP___V2522*/ curfptr[2521] = (void*)&cdat->dtup_2501__MAKE_TUPLE4;
+  cdat->dtup_2501__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2501__MAKE_TUPLE4.nbval = 11;
+ /*inimult dtup_2502__MAKE_TUPLE4*/
+ /*_.VALTUP___V2515*/ curfptr[2514] = (void*)&cdat->dtup_2502__MAKE_TUPLE4;
+  cdat->dtup_2502__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2502__MAKE_TUPLE4.nbval = 5;
+ MELT_LOCATION("warmelt-first.melt:1408:/ iniobj");
+ /*iniobj dobj_2503*/
+ if (!/*_.VALDATA___V2508*/ curfptr[2507]) /*_.VALDATA___V2508*/ curfptr[2507] = (void*)&cdat->dobj_2503;
+  melt_assertmsg("iniobj checkdiscr dobj_2503", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2503.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2503.obj_num = 0;
+  cdat->dobj_2503.obj_hash = 124483866;
+  cdat->dobj_2503.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2503));
+ 
+ MELT_LOCATION("warmelt-first.melt:1408:/ iniobj");
+ /*iniobj dobj_2504*/
+ if (!/*_.VALDATA___V2509*/ curfptr[2508]) /*_.VALDATA___V2509*/ curfptr[2508] = (void*)&cdat->dobj_2504;
+  melt_assertmsg("iniobj checkdiscr dobj_2504", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2504.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2504.obj_num = 1;
+  cdat->dobj_2504.obj_hash = 667928614;
+  cdat->dobj_2504.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2504));
+ 
+ MELT_LOCATION("warmelt-first.melt:1408:/ iniobj");
+ /*iniobj dobj_2505*/
+ if (!/*_.VALDATA___V2510*/ curfptr[2509]) /*_.VALDATA___V2510*/ curfptr[2509] = (void*)&cdat->dobj_2505;
+  melt_assertmsg("iniobj checkdiscr dobj_2505", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2505.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2505.obj_num = 2;
+  cdat->dobj_2505.obj_hash = 467771496;
+  cdat->dobj_2505.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2505));
+ 
+ MELT_LOCATION("warmelt-first.melt:1408:/ iniobj");
+ /*iniobj dobj_2506*/
+ if (!/*_.VALDATA___V2511*/ curfptr[2510]) /*_.VALDATA___V2511*/ curfptr[2510] = (void*)&cdat->dobj_2506;
+  melt_assertmsg("iniobj checkdiscr dobj_2506", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2506.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2506.obj_num = 3;
+  cdat->dobj_2506.obj_hash = 964613809;
+  cdat->dobj_2506.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2506));
+ 
+ /*iniobj dsym_2507__V4*/
+ if (!/*_.VALDATA___V2513*/ curfptr[2512]) /*_.VALDATA___V2513*/ curfptr[2512] = (void*)&cdat->dsym_2507__V4;
+  melt_assertmsg("iniobj checkdiscr dsym_2507__V4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2507__V4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2507__V4.obj_hash = 116745681;
+  cdat->dsym_2507__V4.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2507__V4));
+ 
+ /*inistring dstr_2508__V4*/
+ /*_.VALSTR___V2514*/ curfptr[2513] = (void*)&cdat->dstr_2508__V4;
+  cdat->dstr_2508__V4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2508__V4.val, "V4", sizeof(cdat->dstr_2508__V4.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1408:/ iniobj");
+ /*iniobj dobj_2509*/
+ if (!/*_.VALDATA___V2512*/ curfptr[2511]) /*_.VALDATA___V2512*/ curfptr[2511] = (void*)&cdat->dobj_2509;
+  melt_assertmsg("iniobj checkdiscr dobj_2509", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2509.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2509.obj_num = 4;
+  cdat->dobj_2509.obj_hash = 723269292;
+  cdat->dobj_2509.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2509));
+ 
+ /*inistring dstr_2510__meltgc_new_mult*/
+ /*_.VALSTR___V2516*/ curfptr[2515] = (void*)&cdat->dstr_2510__meltgc_new_mult;
+  cdat->dstr_2510__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2510__meltgc_new_mult.val, "(meltgc_new_mult4((meltobject_ptr_t)(", sizeof(cdat->dstr_2510__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2511__melt_ptr_t_*/
+ /*_.VALSTR___V2517*/ curfptr[2516] = (void*)&cdat->dstr_2511__melt_ptr_t_;
+  cdat->dstr_2511__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2511__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2511__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2512__me*/
+ /*_.VALSTR___V2518*/ curfptr[2517] = (void*)&cdat->dstr_2512__me;
+  cdat->dstr_2512__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2512__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2512__me.val)-1);
+ 
+ /*inistring dstr_2513__melt_ptr_t_*/
+ /*_.VALSTR___V2519*/ curfptr[2518] = (void*)&cdat->dstr_2513__melt_ptr_t_;
+  cdat->dstr_2513__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2513__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2513__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2514__melt_ptr_t_*/
+ /*_.VALSTR___V2520*/ curfptr[2519] = (void*)&cdat->dstr_2514__melt_ptr_t_;
+  cdat->dstr_2514__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2514__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2514__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2515__*/
+ /*_.VALSTR___V2521*/ curfptr[2520] = (void*)&cdat->dstr_2515__;
+  cdat->dstr_2515__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2515__.val, ")))", sizeof(cdat->dstr_2515__.val)-1);
+ 
+ /*inistring dstr_2516__MAKE_TUPLE4*/
+ /*_.VALSTR___V2507*/ curfptr[2506] = (void*)&cdat->dstr_2516__MAKE_TUPLE4;
+  cdat->dstr_2516__MAKE_TUPLE4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2516__MAKE_TUPLE4.val, "MAKE_TUPLE4", sizeof(cdat->dstr_2516__MAKE_TUPLE4.val)-1);
+ 
+ /*iniobj dsym_2517__MAKE_TUPLE5*/
+ if (!/*_.VALDATA___V2523*/ curfptr[2522]) /*_.VALDATA___V2523*/ curfptr[2522] = (void*)&cdat->dsym_2517__MAKE_TUPLE5;
+  melt_assertmsg("iniobj checkdiscr dsym_2517__MAKE_TUPLE5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2517__MAKE_TUPLE5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2517__MAKE_TUPLE5.obj_hash = 354737996;
+  cdat->dsym_2517__MAKE_TUPLE5.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2517__MAKE_TUPLE5));
+ 
+ /*inistring dstr_2518__MAKE_TUPLE5*/
+ /*_.VALSTR___V2524*/ curfptr[2523] = (void*)&cdat->dstr_2518__MAKE_TUPLE5;
+  cdat->dstr_2518__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2518__MAKE_TUPLE5.val, "MAKE_TUPLE5", sizeof(cdat->dstr_2518__MAKE_TUPLE5.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2519__MAKE_TUPLE5*/
+ if (!/*_.VALDATA___V2525*/ curfptr[2524]) /*_.VALDATA___V2525*/ curfptr[2524] = (void*)&cdat->dobj_2519__MAKE_TUPLE5;
+  melt_assertmsg("iniobj checkdiscr dobj_2519__MAKE_TUPLE5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2519__MAKE_TUPLE5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2519__MAKE_TUPLE5.obj_hash = 138716286;
+  cdat->dobj_2519__MAKE_TUPLE5.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2519__MAKE_TUPLE5));
+ 
+ /*inimult dtup_2520__MAKE_TUPLE5*/
+ /*_.VALTUP___V2543*/ curfptr[2542] = (void*)&cdat->dtup_2520__MAKE_TUPLE5;
+  cdat->dtup_2520__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2520__MAKE_TUPLE5.nbval = 13;
+ /*inimult dtup_2521__MAKE_TUPLE5*/
+ /*_.VALTUP___V2535*/ curfptr[2534] = (void*)&cdat->dtup_2521__MAKE_TUPLE5;
+  cdat->dtup_2521__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2521__MAKE_TUPLE5.nbval = 6;
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2522*/
+ if (!/*_.VALDATA___V2527*/ curfptr[2526]) /*_.VALDATA___V2527*/ curfptr[2526] = (void*)&cdat->dobj_2522;
+  melt_assertmsg("iniobj checkdiscr dobj_2522", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2522.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2522.obj_num = 0;
+  cdat->dobj_2522.obj_hash = 113149014;
+  cdat->dobj_2522.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2522));
+ 
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2523*/
+ if (!/*_.VALDATA___V2528*/ curfptr[2527]) /*_.VALDATA___V2528*/ curfptr[2527] = (void*)&cdat->dobj_2523;
+  melt_assertmsg("iniobj checkdiscr dobj_2523", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2523.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2523.obj_num = 1;
+  cdat->dobj_2523.obj_hash = 255450568;
+  cdat->dobj_2523.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2523));
+ 
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2524*/
+ if (!/*_.VALDATA___V2529*/ curfptr[2528]) /*_.VALDATA___V2529*/ curfptr[2528] = (void*)&cdat->dobj_2524;
+  melt_assertmsg("iniobj checkdiscr dobj_2524", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2524.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2524.obj_num = 2;
+  cdat->dobj_2524.obj_hash = 204092790;
+  cdat->dobj_2524.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2524));
+ 
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2525*/
+ if (!/*_.VALDATA___V2530*/ curfptr[2529]) /*_.VALDATA___V2530*/ curfptr[2529] = (void*)&cdat->dobj_2525;
+  melt_assertmsg("iniobj checkdiscr dobj_2525", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2525.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2525.obj_num = 3;
+  cdat->dobj_2525.obj_hash = 162978043;
+  cdat->dobj_2525.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2525));
+ 
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2526*/
+ if (!/*_.VALDATA___V2531*/ curfptr[2530]) /*_.VALDATA___V2531*/ curfptr[2530] = (void*)&cdat->dobj_2526;
+  melt_assertmsg("iniobj checkdiscr dobj_2526", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2526.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2526.obj_num = 4;
+  cdat->dobj_2526.obj_hash = 121923504;
+  cdat->dobj_2526.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2526));
+ 
+ /*iniobj dsym_2527__V5*/
+ if (!/*_.VALDATA___V2533*/ curfptr[2532]) /*_.VALDATA___V2533*/ curfptr[2532] = (void*)&cdat->dsym_2527__V5;
+  melt_assertmsg("iniobj checkdiscr dsym_2527__V5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2527__V5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2527__V5.obj_hash = 92901631;
+  cdat->dsym_2527__V5.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2527__V5));
+ 
+ /*inistring dstr_2528__V5*/
+ /*_.VALSTR___V2534*/ curfptr[2533] = (void*)&cdat->dstr_2528__V5;
+  cdat->dstr_2528__V5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2528__V5.val, "V5", sizeof(cdat->dstr_2528__V5.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1412:/ iniobj");
+ /*iniobj dobj_2529*/
+ if (!/*_.VALDATA___V2532*/ curfptr[2531]) /*_.VALDATA___V2532*/ curfptr[2531] = (void*)&cdat->dobj_2529;
+  melt_assertmsg("iniobj checkdiscr dobj_2529", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2529.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2529.obj_num = 5;
+  cdat->dobj_2529.obj_hash = 753896200;
+  cdat->dobj_2529.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2529));
+ 
+ /*inistring dstr_2530__meltgc_new_mult*/
+ /*_.VALSTR___V2536*/ curfptr[2535] = (void*)&cdat->dstr_2530__meltgc_new_mult;
+  cdat->dstr_2530__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2530__meltgc_new_mult.val, "(meltgc_new_mult5((meltobject_ptr_t)(", sizeof(cdat->dstr_2530__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2531__melt_ptr_t_*/
+ /*_.VALSTR___V2537*/ curfptr[2536] = (void*)&cdat->dstr_2531__melt_ptr_t_;
+  cdat->dstr_2531__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2531__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2531__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2532__me*/
+ /*_.VALSTR___V2538*/ curfptr[2537] = (void*)&cdat->dstr_2532__me;
+  cdat->dstr_2532__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2532__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2532__me.val)-1);
+ 
+ /*inistring dstr_2533__melt_ptr_t_*/
+ /*_.VALSTR___V2539*/ curfptr[2538] = (void*)&cdat->dstr_2533__melt_ptr_t_;
+  cdat->dstr_2533__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2533__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2533__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2534__melt_ptr_t_*/
+ /*_.VALSTR___V2540*/ curfptr[2539] = (void*)&cdat->dstr_2534__melt_ptr_t_;
+  cdat->dstr_2534__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2534__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2534__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2535__melt*/
+ /*_.VALSTR___V2541*/ curfptr[2540] = (void*)&cdat->dstr_2535__melt;
+  cdat->dstr_2535__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2535__melt.val, "),\n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2535__melt.val)-1);
+ 
+ /*inistring dstr_2536__*/
+ /*_.VALSTR___V2542*/ curfptr[2541] = (void*)&cdat->dstr_2536__;
+  cdat->dstr_2536__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2536__.val, ")))", sizeof(cdat->dstr_2536__.val)-1);
+ 
+ /*inistring dstr_2537__MAKE_TUPLE5*/
+ /*_.VALSTR___V2526*/ curfptr[2525] = (void*)&cdat->dstr_2537__MAKE_TUPLE5;
+  cdat->dstr_2537__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2537__MAKE_TUPLE5.val, "MAKE_TUPLE5", sizeof(cdat->dstr_2537__MAKE_TUPLE5.val)-1);
+ 
+ /*iniobj dsym_2538__MAKE_TUPLE6*/
+ if (!/*_.VALDATA___V2544*/ curfptr[2543]) /*_.VALDATA___V2544*/ curfptr[2543] = (void*)&cdat->dsym_2538__MAKE_TUPLE6;
+  melt_assertmsg("iniobj checkdiscr dsym_2538__MAKE_TUPLE6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2538__MAKE_TUPLE6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2538__MAKE_TUPLE6.obj_hash = 977942712;
+  cdat->dsym_2538__MAKE_TUPLE6.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2538__MAKE_TUPLE6));
+ 
+ /*inistring dstr_2539__MAKE_TUPLE6*/
+ /*_.VALSTR___V2545*/ curfptr[2544] = (void*)&cdat->dstr_2539__MAKE_TUPLE6;
+  cdat->dstr_2539__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2539__MAKE_TUPLE6.val, "MAKE_TUPLE6", sizeof(cdat->dstr_2539__MAKE_TUPLE6.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2527__MAKE_TUPLE5*/
- if (!/*_.VALDATA___V2533*/ curfptr[2532]) /*_.VALDATA___V2533*/ curfptr[2532] = (void*)&cdat->dobj_2527__MAKE_TUPLE5;
-  melt_assertmsg("iniobj checkdiscr dobj_2527__MAKE_TUPLE5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2527__MAKE_TUPLE5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2527__MAKE_TUPLE5.obj_hash = 660219518;
-  cdat->dobj_2527__MAKE_TUPLE5.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2527__MAKE_TUPLE5));
- 
- /*inimult dtup_2528__MAKE_TUPLE5*/
- /*_.VALTUP___V2551*/ curfptr[2550] = (void*)&cdat->dtup_2528__MAKE_TUPLE5;
-  cdat->dtup_2528__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2528__MAKE_TUPLE5.nbval = 13;
- /*inimult dtup_2529__MAKE_TUPLE5*/
- /*_.VALTUP___V2543*/ curfptr[2542] = (void*)&cdat->dtup_2529__MAKE_TUPLE5;
-  cdat->dtup_2529__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2529__MAKE_TUPLE5.nbval = 6;
+ /*iniobj dobj_2540__MAKE_TUPLE6*/
+ if (!/*_.VALDATA___V2546*/ curfptr[2545]) /*_.VALDATA___V2546*/ curfptr[2545] = (void*)&cdat->dobj_2540__MAKE_TUPLE6;
+  melt_assertmsg("iniobj checkdiscr dobj_2540__MAKE_TUPLE6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2540__MAKE_TUPLE6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2540__MAKE_TUPLE6.obj_hash = 758911794;
+  cdat->dobj_2540__MAKE_TUPLE6.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2540__MAKE_TUPLE6));
+ 
+ /*inimult dtup_2541__MAKE_TUPLE6*/
+ /*_.VALTUP___V2566*/ curfptr[2565] = (void*)&cdat->dtup_2541__MAKE_TUPLE6;
+  cdat->dtup_2541__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2541__MAKE_TUPLE6.nbval = 15;
+ /*inimult dtup_2542__MAKE_TUPLE6*/
+ /*_.VALTUP___V2557*/ curfptr[2556] = (void*)&cdat->dtup_2542__MAKE_TUPLE6;
+  cdat->dtup_2542__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2542__MAKE_TUPLE6.nbval = 7;
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2530*/
- if (!/*_.VALDATA___V2535*/ curfptr[2534]) /*_.VALDATA___V2535*/ curfptr[2534] = (void*)&cdat->dobj_2530;
-  melt_assertmsg("iniobj checkdiscr dobj_2530", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2530.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2530.obj_num = 0;
-  cdat->dobj_2530.obj_hash = 1068989274;
-  cdat->dobj_2530.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2530));
+ /*iniobj dobj_2543*/
+ if (!/*_.VALDATA___V2548*/ curfptr[2547]) /*_.VALDATA___V2548*/ curfptr[2547] = (void*)&cdat->dobj_2543;
+  melt_assertmsg("iniobj checkdiscr dobj_2543", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2543.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2543.obj_num = 0;
+  cdat->dobj_2543.obj_hash = 529195683;
+  cdat->dobj_2543.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2543));
  
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2531*/
- if (!/*_.VALDATA___V2536*/ curfptr[2535]) /*_.VALDATA___V2536*/ curfptr[2535] = (void*)&cdat->dobj_2531;
-  melt_assertmsg("iniobj checkdiscr dobj_2531", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2531.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2531.obj_num = 1;
-  cdat->dobj_2531.obj_hash = 28847492;
-  cdat->dobj_2531.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2531));
+ /*iniobj dobj_2544*/
+ if (!/*_.VALDATA___V2549*/ curfptr[2548]) /*_.VALDATA___V2549*/ curfptr[2548] = (void*)&cdat->dobj_2544;
+  melt_assertmsg("iniobj checkdiscr dobj_2544", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2544.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2544.obj_num = 1;
+  cdat->dobj_2544.obj_hash = 795309223;
+  cdat->dobj_2544.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2544));
  
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2532*/
- if (!/*_.VALDATA___V2537*/ curfptr[2536]) /*_.VALDATA___V2537*/ curfptr[2536] = (void*)&cdat->dobj_2532;
-  melt_assertmsg("iniobj checkdiscr dobj_2532", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2532.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2532.obj_num = 2;
-  cdat->dobj_2532.obj_hash = 697892234;
-  cdat->dobj_2532.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2532));
+ /*iniobj dobj_2545*/
+ if (!/*_.VALDATA___V2550*/ curfptr[2549]) /*_.VALDATA___V2550*/ curfptr[2549] = (void*)&cdat->dobj_2545;
+  melt_assertmsg("iniobj checkdiscr dobj_2545", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2545.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2545.obj_num = 2;
+  cdat->dobj_2545.obj_hash = 448396036;
+  cdat->dobj_2545.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2545));
  
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2533*/
- if (!/*_.VALDATA___V2538*/ curfptr[2537]) /*_.VALDATA___V2538*/ curfptr[2537] = (void*)&cdat->dobj_2533;
-  melt_assertmsg("iniobj checkdiscr dobj_2533", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2533.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2533.obj_num = 3;
-  cdat->dobj_2533.obj_hash = 522781577;
-  cdat->dobj_2533.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2533));
+ /*iniobj dobj_2546*/
+ if (!/*_.VALDATA___V2551*/ curfptr[2550]) /*_.VALDATA___V2551*/ curfptr[2550] = (void*)&cdat->dobj_2546;
+  melt_assertmsg("iniobj checkdiscr dobj_2546", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2546.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2546.obj_num = 3;
+  cdat->dobj_2546.obj_hash = 826193229;
+  cdat->dobj_2546.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2546));
  
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2534*/
- if (!/*_.VALDATA___V2539*/ curfptr[2538]) /*_.VALDATA___V2539*/ curfptr[2538] = (void*)&cdat->dobj_2534;
-  melt_assertmsg("iniobj checkdiscr dobj_2534", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2534.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2534.obj_num = 4;
-  cdat->dobj_2534.obj_hash = 659888991;
-  cdat->dobj_2534.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2534));
- 
- /*iniobj dsym_2535__V5*/
- if (!/*_.VALDATA___V2541*/ curfptr[2540]) /*_.VALDATA___V2541*/ curfptr[2540] = (void*)&cdat->dsym_2535__V5;
-  melt_assertmsg("iniobj checkdiscr dsym_2535__V5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2535__V5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2535__V5.obj_hash = 92901631;
-  cdat->dsym_2535__V5.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2535__V5));
- 
- /*inistring dstr_2536__V5*/
- /*_.VALSTR___V2542*/ curfptr[2541] = (void*)&cdat->dstr_2536__V5;
-  cdat->dstr_2536__V5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2536__V5.val, "V5", sizeof(cdat->dstr_2536__V5.val)-1);
+ /*iniobj dobj_2547*/
+ if (!/*_.VALDATA___V2552*/ curfptr[2551]) /*_.VALDATA___V2552*/ curfptr[2551] = (void*)&cdat->dobj_2547;
+  melt_assertmsg("iniobj checkdiscr dobj_2547", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2547.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2547.obj_num = 4;
+  cdat->dobj_2547.obj_hash = 755671967;
+  cdat->dobj_2547.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2547));
  
  MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
- /*iniobj dobj_2537*/
- if (!/*_.VALDATA___V2540*/ curfptr[2539]) /*_.VALDATA___V2540*/ curfptr[2539] = (void*)&cdat->dobj_2537;
-  melt_assertmsg("iniobj checkdiscr dobj_2537", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2537.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2537.obj_num = 5;
-  cdat->dobj_2537.obj_hash = 139492132;
-  cdat->dobj_2537.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2537));
- 
- /*inistring dstr_2538__meltgc_new_mult*/
- /*_.VALSTR___V2544*/ curfptr[2543] = (void*)&cdat->dstr_2538__meltgc_new_mult;
-  cdat->dstr_2538__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2538__meltgc_new_mult.val, "(meltgc_new_mult5((meltobject_ptr_t)(", sizeof(cdat->dstr_2538__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2539__melt_ptr_t_*/
- /*_.VALSTR___V2545*/ curfptr[2544] = (void*)&cdat->dstr_2539__melt_ptr_t_;
-  cdat->dstr_2539__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2539__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2539__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2540__me*/
- /*_.VALSTR___V2546*/ curfptr[2545] = (void*)&cdat->dstr_2540__me;
-  cdat->dstr_2540__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2540__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2540__me.val)-1);
- 
- /*inistring dstr_2541__melt_ptr_t_*/
- /*_.VALSTR___V2547*/ curfptr[2546] = (void*)&cdat->dstr_2541__melt_ptr_t_;
-  cdat->dstr_2541__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2541__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2541__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2542__melt_ptr_t_*/
- /*_.VALSTR___V2548*/ curfptr[2547] = (void*)&cdat->dstr_2542__melt_ptr_t_;
-  cdat->dstr_2542__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2542__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2542__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2543__melt*/
- /*_.VALSTR___V2549*/ curfptr[2548] = (void*)&cdat->dstr_2543__melt;
-  cdat->dstr_2543__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2543__melt.val, "),\n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2543__melt.val)-1);
- 
- /*inistring dstr_2544__*/
- /*_.VALSTR___V2550*/ curfptr[2549] = (void*)&cdat->dstr_2544__;
-  cdat->dstr_2544__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2544__.val, ")))", sizeof(cdat->dstr_2544__.val)-1);
- 
- /*inistring dstr_2545__MAKE_TUPLE5*/
- /*_.VALSTR___V2534*/ curfptr[2533] = (void*)&cdat->dstr_2545__MAKE_TUPLE5;
-  cdat->dstr_2545__MAKE_TUPLE5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2545__MAKE_TUPLE5.val, "MAKE_TUPLE5", sizeof(cdat->dstr_2545__MAKE_TUPLE5.val)-1);
- 
- /*iniobj dsym_2546__MAKE_TUPLE6*/
- if (!/*_.VALDATA___V2552*/ curfptr[2551]) /*_.VALDATA___V2552*/ curfptr[2551] = (void*)&cdat->dsym_2546__MAKE_TUPLE6;
-  melt_assertmsg("iniobj checkdiscr dsym_2546__MAKE_TUPLE6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2546__MAKE_TUPLE6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2546__MAKE_TUPLE6.obj_hash = 977942712;
-  cdat->dsym_2546__MAKE_TUPLE6.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2546__MAKE_TUPLE6));
- 
- /*inistring dstr_2547__MAKE_TUPLE6*/
- /*_.VALSTR___V2553*/ curfptr[2552] = (void*)&cdat->dstr_2547__MAKE_TUPLE6;
-  cdat->dstr_2547__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2547__MAKE_TUPLE6.val, "MAKE_TUPLE6", sizeof(cdat->dstr_2547__MAKE_TUPLE6.val)-1);
+ /*iniobj dobj_2548*/
+ if (!/*_.VALDATA___V2553*/ curfptr[2552]) /*_.VALDATA___V2553*/ curfptr[2552] = (void*)&cdat->dobj_2548;
+  melt_assertmsg("iniobj checkdiscr dobj_2548", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2548.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2548.obj_num = 5;
+  cdat->dobj_2548.obj_hash = 652926911;
+  cdat->dobj_2548.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2548));
+ 
+ /*iniobj dsym_2549__V6*/
+ if (!/*_.VALDATA___V2555*/ curfptr[2554]) /*_.VALDATA___V2555*/ curfptr[2554] = (void*)&cdat->dsym_2549__V6;
+  melt_assertmsg("iniobj checkdiscr dsym_2549__V6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2549__V6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2549__V6.obj_hash = 864635026;
+  cdat->dsym_2549__V6.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2549__V6));
+ 
+ /*inistring dstr_2550__V6*/
+ /*_.VALSTR___V2556*/ curfptr[2555] = (void*)&cdat->dstr_2550__V6;
+  cdat->dstr_2550__V6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2550__V6.val, "V6", sizeof(cdat->dstr_2550__V6.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2548__MAKE_TUPLE6*/
- if (!/*_.VALDATA___V2554*/ curfptr[2553]) /*_.VALDATA___V2554*/ curfptr[2553] = (void*)&cdat->dobj_2548__MAKE_TUPLE6;
-  melt_assertmsg("iniobj checkdiscr dobj_2548__MAKE_TUPLE6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2548__MAKE_TUPLE6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2548__MAKE_TUPLE6.obj_hash = 732673187;
-  cdat->dobj_2548__MAKE_TUPLE6.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2548__MAKE_TUPLE6));
- 
- /*inimult dtup_2549__MAKE_TUPLE6*/
- /*_.VALTUP___V2574*/ curfptr[2573] = (void*)&cdat->dtup_2549__MAKE_TUPLE6;
-  cdat->dtup_2549__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2549__MAKE_TUPLE6.nbval = 15;
- /*inimult dtup_2550__MAKE_TUPLE6*/
- /*_.VALTUP___V2565*/ curfptr[2564] = (void*)&cdat->dtup_2550__MAKE_TUPLE6;
-  cdat->dtup_2550__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2550__MAKE_TUPLE6.nbval = 7;
- MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
+ MELT_LOCATION("warmelt-first.melt:1417:/ iniobj");
  /*iniobj dobj_2551*/
- if (!/*_.VALDATA___V2556*/ curfptr[2555]) /*_.VALDATA___V2556*/ curfptr[2555] = (void*)&cdat->dobj_2551;
+ if (!/*_.VALDATA___V2554*/ curfptr[2553]) /*_.VALDATA___V2554*/ curfptr[2553] = (void*)&cdat->dobj_2551;
   melt_assertmsg("iniobj checkdiscr dobj_2551", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_2551.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2551.obj_num = 0;
-  cdat->dobj_2551.obj_hash = 610760898;
+  cdat->dobj_2551.obj_num = 6;
+  cdat->dobj_2551.obj_hash = 423767503;
   cdat->dobj_2551.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2551));
  
+ /*inistring dstr_2552__meltgc_new_mult*/
+ /*_.VALSTR___V2558*/ curfptr[2557] = (void*)&cdat->dstr_2552__meltgc_new_mult;
+  cdat->dstr_2552__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2552__meltgc_new_mult.val, "(meltgc_new_mult6((meltobject_ptr_t)(", sizeof(cdat->dstr_2552__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2553__melt_ptr_t_*/
+ /*_.VALSTR___V2559*/ curfptr[2558] = (void*)&cdat->dstr_2553__melt_ptr_t_;
+  cdat->dstr_2553__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2553__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2553__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2554__me*/
+ /*_.VALSTR___V2560*/ curfptr[2559] = (void*)&cdat->dstr_2554__me;
+  cdat->dstr_2554__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2554__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2554__me.val)-1);
+ 
+ /*inistring dstr_2555__melt_ptr_t_*/
+ /*_.VALSTR___V2561*/ curfptr[2560] = (void*)&cdat->dstr_2555__melt_ptr_t_;
+  cdat->dstr_2555__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2555__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2555__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2556__melt_ptr_t_*/
+ /*_.VALSTR___V2562*/ curfptr[2561] = (void*)&cdat->dstr_2556__melt_ptr_t_;
+  cdat->dstr_2556__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2556__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2556__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2557__melt*/
+ /*_.VALSTR___V2563*/ curfptr[2562] = (void*)&cdat->dstr_2557__melt;
+  cdat->dstr_2557__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2557__melt.val, "),\n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2557__melt.val)-1);
+ 
+ /*inistring dstr_2558__melt_ptr_t_*/
+ /*_.VALSTR___V2564*/ curfptr[2563] = (void*)&cdat->dstr_2558__melt_ptr_t_;
+  cdat->dstr_2558__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2558__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2558__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2559__*/
+ /*_.VALSTR___V2565*/ curfptr[2564] = (void*)&cdat->dstr_2559__;
+  cdat->dstr_2559__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2559__.val, ")))", sizeof(cdat->dstr_2559__.val)-1);
+ 
+ /*inistring dstr_2560__MAKE_TUPLE6*/
+ /*_.VALSTR___V2547*/ curfptr[2546] = (void*)&cdat->dstr_2560__MAKE_TUPLE6;
+  cdat->dstr_2560__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2560__MAKE_TUPLE6.val, "MAKE_TUPLE6", sizeof(cdat->dstr_2560__MAKE_TUPLE6.val)-1);
+ 
+ /*iniobj dsym_2561__MAKE_TUPLE7*/
+ if (!/*_.VALDATA___V2567*/ curfptr[2566]) /*_.VALDATA___V2567*/ curfptr[2566] = (void*)&cdat->dsym_2561__MAKE_TUPLE7;
+  melt_assertmsg("iniobj checkdiscr dsym_2561__MAKE_TUPLE7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2561__MAKE_TUPLE7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2561__MAKE_TUPLE7.obj_hash = 1047122423;
+  cdat->dsym_2561__MAKE_TUPLE7.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2561__MAKE_TUPLE7));
+ 
+ /*inistring dstr_2562__MAKE_TUPLE7*/
+ /*_.VALSTR___V2568*/ curfptr[2567] = (void*)&cdat->dstr_2562__MAKE_TUPLE7;
+  cdat->dstr_2562__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2562__MAKE_TUPLE7.val, "MAKE_TUPLE7", sizeof(cdat->dstr_2562__MAKE_TUPLE7.val)-1);
+ 
  MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2552*/
- if (!/*_.VALDATA___V2557*/ curfptr[2556]) /*_.VALDATA___V2557*/ curfptr[2556] = (void*)&cdat->dobj_2552;
-  melt_assertmsg("iniobj checkdiscr dobj_2552", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2552.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2552.obj_num = 1;
-  cdat->dobj_2552.obj_hash = 557728890;
-  cdat->dobj_2552.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2552));
+ /*iniobj dobj_2563__MAKE_TUPLE7*/
+ if (!/*_.VALDATA___V2569*/ curfptr[2568]) /*_.VALDATA___V2569*/ curfptr[2568] = (void*)&cdat->dobj_2563__MAKE_TUPLE7;
+  melt_assertmsg("iniobj checkdiscr dobj_2563__MAKE_TUPLE7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2563__MAKE_TUPLE7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2563__MAKE_TUPLE7.obj_hash = 841360272;
+  cdat->dobj_2563__MAKE_TUPLE7.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2563__MAKE_TUPLE7));
+ 
+ /*inimult dtup_2564__MAKE_TUPLE7*/
+ /*_.VALTUP___V2591*/ curfptr[2590] = (void*)&cdat->dtup_2564__MAKE_TUPLE7;
+  cdat->dtup_2564__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2564__MAKE_TUPLE7.nbval = 17;
+ /*inimult dtup_2565__MAKE_TUPLE7*/
+ /*_.VALTUP___V2581*/ curfptr[2580] = (void*)&cdat->dtup_2565__MAKE_TUPLE7;
+  cdat->dtup_2565__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2565__MAKE_TUPLE7.nbval = 8;
+ MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
+ /*iniobj dobj_2566*/
+ if (!/*_.VALDATA___V2571*/ curfptr[2570]) /*_.VALDATA___V2571*/ curfptr[2570] = (void*)&cdat->dobj_2566;
+  melt_assertmsg("iniobj checkdiscr dobj_2566", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2566.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2566.obj_num = 0;
+  cdat->dobj_2566.obj_hash = 109384945;
+  cdat->dobj_2566.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2566));
+ 
+ MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
+ /*iniobj dobj_2567*/
+ if (!/*_.VALDATA___V2572*/ curfptr[2571]) /*_.VALDATA___V2572*/ curfptr[2571] = (void*)&cdat->dobj_2567;
+  melt_assertmsg("iniobj checkdiscr dobj_2567", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2567.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2567.obj_num = 1;
+  cdat->dobj_2567.obj_hash = 174954785;
+  cdat->dobj_2567.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2567));
+ 
+ MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
+ /*iniobj dobj_2568*/
+ if (!/*_.VALDATA___V2573*/ curfptr[2572]) /*_.VALDATA___V2573*/ curfptr[2572] = (void*)&cdat->dobj_2568;
+  melt_assertmsg("iniobj checkdiscr dobj_2568", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2568.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2568.obj_num = 2;
+  cdat->dobj_2568.obj_hash = 264094597;
+  cdat->dobj_2568.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2568));
  
  MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2553*/
- if (!/*_.VALDATA___V2558*/ curfptr[2557]) /*_.VALDATA___V2558*/ curfptr[2557] = (void*)&cdat->dobj_2553;
-  melt_assertmsg("iniobj checkdiscr dobj_2553", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2553.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2553.obj_num = 2;
-  cdat->dobj_2553.obj_hash = 442590592;
-  cdat->dobj_2553.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2553));
+ /*iniobj dobj_2569*/
+ if (!/*_.VALDATA___V2574*/ curfptr[2573]) /*_.VALDATA___V2574*/ curfptr[2573] = (void*)&cdat->dobj_2569;
+  melt_assertmsg("iniobj checkdiscr dobj_2569", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2569.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2569.obj_num = 3;
+  cdat->dobj_2569.obj_hash = 913380487;
+  cdat->dobj_2569.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2569));
  
  MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2554*/
- if (!/*_.VALDATA___V2559*/ curfptr[2558]) /*_.VALDATA___V2559*/ curfptr[2558] = (void*)&cdat->dobj_2554;
-  melt_assertmsg("iniobj checkdiscr dobj_2554", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2554.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2554.obj_num = 3;
-  cdat->dobj_2554.obj_hash = 667684707;
-  cdat->dobj_2554.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2554));
+ /*iniobj dobj_2570*/
+ if (!/*_.VALDATA___V2575*/ curfptr[2574]) /*_.VALDATA___V2575*/ curfptr[2574] = (void*)&cdat->dobj_2570;
+  melt_assertmsg("iniobj checkdiscr dobj_2570", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2570.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2570.obj_num = 4;
+  cdat->dobj_2570.obj_hash = 462240940;
+  cdat->dobj_2570.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2570));
  
  MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2555*/
- if (!/*_.VALDATA___V2560*/ curfptr[2559]) /*_.VALDATA___V2560*/ curfptr[2559] = (void*)&cdat->dobj_2555;
-  melt_assertmsg("iniobj checkdiscr dobj_2555", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2555.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2555.obj_num = 4;
-  cdat->dobj_2555.obj_hash = 484066307;
-  cdat->dobj_2555.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2555));
+ /*iniobj dobj_2571*/
+ if (!/*_.VALDATA___V2576*/ curfptr[2575]) /*_.VALDATA___V2576*/ curfptr[2575] = (void*)&cdat->dobj_2571;
+  melt_assertmsg("iniobj checkdiscr dobj_2571", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2571.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2571.obj_num = 5;
+  cdat->dobj_2571.obj_hash = 915570589;
+  cdat->dobj_2571.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2571));
  
  MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2556*/
- if (!/*_.VALDATA___V2561*/ curfptr[2560]) /*_.VALDATA___V2561*/ curfptr[2560] = (void*)&cdat->dobj_2556;
-  melt_assertmsg("iniobj checkdiscr dobj_2556", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2556.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2556.obj_num = 5;
-  cdat->dobj_2556.obj_hash = 362546884;
-  cdat->dobj_2556.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2556));
- 
- /*iniobj dsym_2557__V6*/
- if (!/*_.VALDATA___V2563*/ curfptr[2562]) /*_.VALDATA___V2563*/ curfptr[2562] = (void*)&cdat->dsym_2557__V6;
-  melt_assertmsg("iniobj checkdiscr dsym_2557__V6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2557__V6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2557__V6.obj_hash = 864635026;
-  cdat->dsym_2557__V6.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2557__V6));
- 
- /*inistring dstr_2558__V6*/
- /*_.VALSTR___V2564*/ curfptr[2563] = (void*)&cdat->dstr_2558__V6;
-  cdat->dstr_2558__V6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2558__V6.val, "V6", sizeof(cdat->dstr_2558__V6.val)-1);
+ /*iniobj dobj_2572*/
+ if (!/*_.VALDATA___V2577*/ curfptr[2576]) /*_.VALDATA___V2577*/ curfptr[2576] = (void*)&cdat->dobj_2572;
+  melt_assertmsg("iniobj checkdiscr dobj_2572", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2572.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2572.obj_num = 6;
+  cdat->dobj_2572.obj_hash = 778763732;
+  cdat->dobj_2572.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2572));
+ 
+ /*iniobj dsym_2573__V7*/
+ if (!/*_.VALDATA___V2579*/ curfptr[2578]) /*_.VALDATA___V2579*/ curfptr[2578] = (void*)&cdat->dsym_2573__V7;
+  melt_assertmsg("iniobj checkdiscr dsym_2573__V7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2573__V7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2573__V7.obj_hash = 952363892;
+  cdat->dsym_2573__V7.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2573__V7));
+ 
+ /*inistring dstr_2574__V7*/
+ /*_.VALSTR___V2580*/ curfptr[2579] = (void*)&cdat->dstr_2574__V7;
+  cdat->dstr_2574__V7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2574__V7.val, "V7", sizeof(cdat->dstr_2574__V7.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1422:/ iniobj");
- /*iniobj dobj_2559*/
- if (!/*_.VALDATA___V2562*/ curfptr[2561]) /*_.VALDATA___V2562*/ curfptr[2561] = (void*)&cdat->dobj_2559;
-  melt_assertmsg("iniobj checkdiscr dobj_2559", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2559.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2559.obj_num = 6;
-  cdat->dobj_2559.obj_hash = 1029065070;
-  cdat->dobj_2559.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2559));
- 
- /*inistring dstr_2560__meltgc_new_mult*/
- /*_.VALSTR___V2566*/ curfptr[2565] = (void*)&cdat->dstr_2560__meltgc_new_mult;
-  cdat->dstr_2560__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2560__meltgc_new_mult.val, "(meltgc_new_mult6((meltobject_ptr_t)(", sizeof(cdat->dstr_2560__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2561__melt_ptr_t_*/
- /*_.VALSTR___V2567*/ curfptr[2566] = (void*)&cdat->dstr_2561__melt_ptr_t_;
-  cdat->dstr_2561__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2561__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2561__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2562__me*/
- /*_.VALSTR___V2568*/ curfptr[2567] = (void*)&cdat->dstr_2562__me;
-  cdat->dstr_2562__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2562__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2562__me.val)-1);
- 
- /*inistring dstr_2563__melt_ptr_t_*/
- /*_.VALSTR___V2569*/ curfptr[2568] = (void*)&cdat->dstr_2563__melt_ptr_t_;
-  cdat->dstr_2563__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2563__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2563__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2564__melt_ptr_t_*/
- /*_.VALSTR___V2570*/ curfptr[2569] = (void*)&cdat->dstr_2564__melt_ptr_t_;
-  cdat->dstr_2564__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2564__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2564__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2565__melt*/
- /*_.VALSTR___V2571*/ curfptr[2570] = (void*)&cdat->dstr_2565__melt;
-  cdat->dstr_2565__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2565__melt.val, "),\n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2565__melt.val)-1);
- 
- /*inistring dstr_2566__melt_ptr_t_*/
- /*_.VALSTR___V2572*/ curfptr[2571] = (void*)&cdat->dstr_2566__melt_ptr_t_;
-  cdat->dstr_2566__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2566__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2566__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2567__*/
- /*_.VALSTR___V2573*/ curfptr[2572] = (void*)&cdat->dstr_2567__;
-  cdat->dstr_2567__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2567__.val, ")))", sizeof(cdat->dstr_2567__.val)-1);
- 
- /*inistring dstr_2568__MAKE_TUPLE6*/
- /*_.VALSTR___V2555*/ curfptr[2554] = (void*)&cdat->dstr_2568__MAKE_TUPLE6;
-  cdat->dstr_2568__MAKE_TUPLE6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2568__MAKE_TUPLE6.val, "MAKE_TUPLE6", sizeof(cdat->dstr_2568__MAKE_TUPLE6.val)-1);
- 
- /*iniobj dsym_2569__MAKE_TUPLE7*/
- if (!/*_.VALDATA___V2575*/ curfptr[2574]) /*_.VALDATA___V2575*/ curfptr[2574] = (void*)&cdat->dsym_2569__MAKE_TUPLE7;
-  melt_assertmsg("iniobj checkdiscr dsym_2569__MAKE_TUPLE7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2569__MAKE_TUPLE7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2569__MAKE_TUPLE7.obj_hash = 1047122423;
-  cdat->dsym_2569__MAKE_TUPLE7.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2569__MAKE_TUPLE7));
- 
- /*inistring dstr_2570__MAKE_TUPLE7*/
- /*_.VALSTR___V2576*/ curfptr[2575] = (void*)&cdat->dstr_2570__MAKE_TUPLE7;
-  cdat->dstr_2570__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2570__MAKE_TUPLE7.val, "MAKE_TUPLE7", sizeof(cdat->dstr_2570__MAKE_TUPLE7.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2571__MAKE_TUPLE7*/
- if (!/*_.VALDATA___V2577*/ curfptr[2576]) /*_.VALDATA___V2577*/ curfptr[2576] = (void*)&cdat->dobj_2571__MAKE_TUPLE7;
-  melt_assertmsg("iniobj checkdiscr dobj_2571__MAKE_TUPLE7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2571__MAKE_TUPLE7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2571__MAKE_TUPLE7.obj_hash = 497188261;
-  cdat->dobj_2571__MAKE_TUPLE7.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2571__MAKE_TUPLE7));
- 
- /*inimult dtup_2572__MAKE_TUPLE7*/
- /*_.VALTUP___V2599*/ curfptr[2598] = (void*)&cdat->dtup_2572__MAKE_TUPLE7;
-  cdat->dtup_2572__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2572__MAKE_TUPLE7.nbval = 17;
- /*inimult dtup_2573__MAKE_TUPLE7*/
- /*_.VALTUP___V2589*/ curfptr[2588] = (void*)&cdat->dtup_2573__MAKE_TUPLE7;
-  cdat->dtup_2573__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2573__MAKE_TUPLE7.nbval = 8;
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2574*/
- if (!/*_.VALDATA___V2579*/ curfptr[2578]) /*_.VALDATA___V2579*/ curfptr[2578] = (void*)&cdat->dobj_2574;
-  melt_assertmsg("iniobj checkdiscr dobj_2574", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2574.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2574.obj_num = 0;
-  cdat->dobj_2574.obj_hash = 131568060;
-  cdat->dobj_2574.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2574));
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
  /*iniobj dobj_2575*/
- if (!/*_.VALDATA___V2580*/ curfptr[2579]) /*_.VALDATA___V2580*/ curfptr[2579] = (void*)&cdat->dobj_2575;
+ if (!/*_.VALDATA___V2578*/ curfptr[2577]) /*_.VALDATA___V2578*/ curfptr[2577] = (void*)&cdat->dobj_2575;
   melt_assertmsg("iniobj checkdiscr dobj_2575", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_2575.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2575.obj_num = 1;
-  cdat->dobj_2575.obj_hash = 7897946;
+  cdat->dobj_2575.obj_num = 7;
+  cdat->dobj_2575.obj_hash = 953986784;
   cdat->dobj_2575.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2575));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2576*/
- if (!/*_.VALDATA___V2581*/ curfptr[2580]) /*_.VALDATA___V2581*/ curfptr[2580] = (void*)&cdat->dobj_2576;
-  melt_assertmsg("iniobj checkdiscr dobj_2576", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2576.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2576.obj_num = 2;
-  cdat->dobj_2576.obj_hash = 686650958;
-  cdat->dobj_2576.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2576));
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2577*/
- if (!/*_.VALDATA___V2582*/ curfptr[2581]) /*_.VALDATA___V2582*/ curfptr[2581] = (void*)&cdat->dobj_2577;
-  melt_assertmsg("iniobj checkdiscr dobj_2577", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2577.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2577.obj_num = 3;
-  cdat->dobj_2577.obj_hash = 928101931;
-  cdat->dobj_2577.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2577));
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2578*/
- if (!/*_.VALDATA___V2583*/ curfptr[2582]) /*_.VALDATA___V2583*/ curfptr[2582] = (void*)&cdat->dobj_2578;
-  melt_assertmsg("iniobj checkdiscr dobj_2578", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2578.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2578.obj_num = 4;
-  cdat->dobj_2578.obj_hash = 907883536;
-  cdat->dobj_2578.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2578));
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2579*/
- if (!/*_.VALDATA___V2584*/ curfptr[2583]) /*_.VALDATA___V2584*/ curfptr[2583] = (void*)&cdat->dobj_2579;
-  melt_assertmsg("iniobj checkdiscr dobj_2579", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2579.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2579.obj_num = 5;
-  cdat->dobj_2579.obj_hash = 501845718;
-  cdat->dobj_2579.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2579));
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2580*/
- if (!/*_.VALDATA___V2585*/ curfptr[2584]) /*_.VALDATA___V2585*/ curfptr[2584] = (void*)&cdat->dobj_2580;
-  melt_assertmsg("iniobj checkdiscr dobj_2580", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2580.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2580.obj_num = 6;
-  cdat->dobj_2580.obj_hash = 382153682;
-  cdat->dobj_2580.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2580));
- 
- /*iniobj dsym_2581__V7*/
- if (!/*_.VALDATA___V2587*/ curfptr[2586]) /*_.VALDATA___V2587*/ curfptr[2586] = (void*)&cdat->dsym_2581__V7;
-  melt_assertmsg("iniobj checkdiscr dsym_2581__V7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2581__V7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2581__V7.obj_hash = 952363892;
-  cdat->dsym_2581__V7.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2581__V7));
- 
- /*inistring dstr_2582__V7*/
- /*_.VALSTR___V2588*/ curfptr[2587] = (void*)&cdat->dstr_2582__V7;
-  cdat->dstr_2582__V7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2582__V7.val, "V7", sizeof(cdat->dstr_2582__V7.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1427:/ iniobj");
- /*iniobj dobj_2583*/
- if (!/*_.VALDATA___V2586*/ curfptr[2585]) /*_.VALDATA___V2586*/ curfptr[2585] = (void*)&cdat->dobj_2583;
-  melt_assertmsg("iniobj checkdiscr dobj_2583", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2583.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2583.obj_num = 7;
-  cdat->dobj_2583.obj_hash = 784826951;
-  cdat->dobj_2583.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2583));
- 
- /*inistring dstr_2584__meltgc_new_mult*/
- /*_.VALSTR___V2590*/ curfptr[2589] = (void*)&cdat->dstr_2584__meltgc_new_mult;
-  cdat->dstr_2584__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2584__meltgc_new_mult.val, "(meltgc_new_mult7((meltobject_ptr_t)(", sizeof(cdat->dstr_2584__meltgc_new_mult.val)-1);
- 
- /*inistring dstr_2585__melt_ptr_t_*/
- /*_.VALSTR___V2591*/ curfptr[2590] = (void*)&cdat->dstr_2585__melt_ptr_t_;
-  cdat->dstr_2585__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2585__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2585__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2586__me*/
- /*_.VALSTR___V2592*/ curfptr[2591] = (void*)&cdat->dstr_2586__me;
-  cdat->dstr_2586__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2586__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2586__me.val)-1);
- 
- /*inistring dstr_2587__melt_ptr_t_*/
- /*_.VALSTR___V2593*/ curfptr[2592] = (void*)&cdat->dstr_2587__melt_ptr_t_;
-  cdat->dstr_2587__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2587__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2587__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2588__melt_ptr_t_*/
- /*_.VALSTR___V2594*/ curfptr[2593] = (void*)&cdat->dstr_2588__melt_ptr_t_;
-  cdat->dstr_2588__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2588__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2588__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2589__melt*/
- /*_.VALSTR___V2595*/ curfptr[2594] = (void*)&cdat->dstr_2589__melt;
-  cdat->dstr_2589__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2589__melt.val, "),\n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2589__melt.val)-1);
- 
- /*inistring dstr_2590__melt_ptr_t_*/
- /*_.VALSTR___V2596*/ curfptr[2595] = (void*)&cdat->dstr_2590__melt_ptr_t_;
-  cdat->dstr_2590__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2590__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2590__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2591__melt_ptr_t_*/
- /*_.VALSTR___V2597*/ curfptr[2596] = (void*)&cdat->dstr_2591__melt_ptr_t_;
-  cdat->dstr_2591__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2591__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2591__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2592__*/
- /*_.VALSTR___V2598*/ curfptr[2597] = (void*)&cdat->dstr_2592__;
-  cdat->dstr_2592__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2592__.val, ")))", sizeof(cdat->dstr_2592__.val)-1);
- 
- /*inistring dstr_2593__MAKE_TUPLE7*/
- /*_.VALSTR___V2578*/ curfptr[2577] = (void*)&cdat->dstr_2593__MAKE_TUPLE7;
-  cdat->dstr_2593__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2593__MAKE_TUPLE7.val, "MAKE_TUPLE7", sizeof(cdat->dstr_2593__MAKE_TUPLE7.val)-1);
- 
- /*iniobj dsym_2594__SUBSEQ_MULTIPLE*/
- if (!/*_.VALDATA___V2600*/ curfptr[2599]) /*_.VALDATA___V2600*/ curfptr[2599] = (void*)&cdat->dsym_2594__SUBSEQ_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_2594__SUBSEQ_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2594__SUBSEQ_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2594__SUBSEQ_MULTIPLE.obj_hash = 32217835;
-  cdat->dsym_2594__SUBSEQ_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2594__SUBSEQ_MULTIPLE));
- 
- /*inistring dstr_2595__SUBSEQ_MULTIPLE*/
- /*_.VALSTR___V2601*/ curfptr[2600] = (void*)&cdat->dstr_2595__SUBSEQ_MULTIPLE;
-  cdat->dstr_2595__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2595__SUBSEQ_MULTIPLE.val, "SUBSEQ_MULTIPLE", sizeof(cdat->dstr_2595__SUBSEQ_MULTIPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1434:/ iniobj");
- /*iniobj dobj_2596__SUBSEQ_MULTIPLE*/
- if (!/*_.VALDATA___V2602*/ curfptr[2601]) /*_.VALDATA___V2602*/ curfptr[2601] = (void*)&cdat->dobj_2596__SUBSEQ_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dobj_2596__SUBSEQ_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2596__SUBSEQ_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2596__SUBSEQ_MULTIPLE.obj_hash = 580014963;
-  cdat->dobj_2596__SUBSEQ_MULTIPLE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2596__SUBSEQ_MULTIPLE));
- 
- /*inimult dtup_2597__SUBSEQ_MULTIPLE*/
- /*_.VALTUP___V2616*/ curfptr[2615] = (void*)&cdat->dtup_2597__SUBSEQ_MULTIPLE;
-  cdat->dtup_2597__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2597__SUBSEQ_MULTIPLE.nbval = 7;
- /*inimult dtup_2598__SUBSEQ_MULTIPLE*/
- /*_.VALTUP___V2611*/ curfptr[2610] = (void*)&cdat->dtup_2598__SUBSEQ_MULTIPLE;
-  cdat->dtup_2598__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2598__SUBSEQ_MULTIPLE.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1434:/ iniobj");
- /*iniobj dobj_2599*/
- if (!/*_.VALDATA___V2604*/ curfptr[2603]) /*_.VALDATA___V2604*/ curfptr[2603] = (void*)&cdat->dobj_2599;
-  melt_assertmsg("iniobj checkdiscr dobj_2599", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2599.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2599.obj_num = 0;
-  cdat->dobj_2599.obj_hash = 174221268;
-  cdat->dobj_2599.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2599));
- 
- /*iniobj dsym_2600__STARTIX*/
- if (!/*_.VALDATA___V2606*/ curfptr[2605]) /*_.VALDATA___V2606*/ curfptr[2605] = (void*)&cdat->dsym_2600__STARTIX;
-  melt_assertmsg("iniobj checkdiscr dsym_2600__STARTIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2600__STARTIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2600__STARTIX.obj_hash = 292412544;
-  cdat->dsym_2600__STARTIX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2600__STARTIX));
- 
- /*inistring dstr_2601__STARTIX*/
- /*_.VALSTR___V2607*/ curfptr[2606] = (void*)&cdat->dstr_2601__STARTIX;
-  cdat->dstr_2601__STARTIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2601__STARTIX.val, "STARTIX", sizeof(cdat->dstr_2601__STARTIX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1434:/ iniobj");
- /*iniobj dobj_2602*/
- if (!/*_.VALDATA___V2605*/ curfptr[2604]) /*_.VALDATA___V2605*/ curfptr[2604] = (void*)&cdat->dobj_2602;
-  melt_assertmsg("iniobj checkdiscr dobj_2602", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2602.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2602.obj_num = 1;
-  cdat->dobj_2602.obj_hash = 428991985;
-  cdat->dobj_2602.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2602));
- 
- /*iniobj dsym_2603__ENDIX*/
- if (!/*_.VALDATA___V2609*/ curfptr[2608]) /*_.VALDATA___V2609*/ curfptr[2608] = (void*)&cdat->dsym_2603__ENDIX;
-  melt_assertmsg("iniobj checkdiscr dsym_2603__ENDIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2603__ENDIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2603__ENDIX.obj_hash = 546183488;
-  cdat->dsym_2603__ENDIX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2603__ENDIX));
- 
- /*inistring dstr_2604__ENDIX*/
- /*_.VALSTR___V2610*/ curfptr[2609] = (void*)&cdat->dstr_2604__ENDIX;
-  cdat->dstr_2604__ENDIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2604__ENDIX.val, "ENDIX", sizeof(cdat->dstr_2604__ENDIX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1434:/ iniobj");
- /*iniobj dobj_2605*/
- if (!/*_.VALDATA___V2608*/ curfptr[2607]) /*_.VALDATA___V2608*/ curfptr[2607] = (void*)&cdat->dobj_2605;
-  melt_assertmsg("iniobj checkdiscr dobj_2605", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2605.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2605.obj_num = 2;
-  cdat->dobj_2605.obj_hash = 722817811;
-  cdat->dobj_2605.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2605));
- 
- /*inistring dstr_2606__meltgc_new_subs*/
- /*_.VALSTR___V2612*/ curfptr[2611] = (void*)&cdat->dstr_2606__meltgc_new_subs;
-  cdat->dstr_2606__meltgc_new_subs.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2606__meltgc_new_subs.val, " meltgc_new_subseq_multiple((melt_ptr_t)(", sizeof(cdat->dstr_2606__meltgc_new_subs.val)-1);
- 
- /*inistring dstr_2607__int_*/
- /*_.VALSTR___V2613*/ curfptr[2612] = (void*)&cdat->dstr_2607__int_;
-  cdat->dstr_2607__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2607__int_.val, "),\n\t\t\t\t  (int)(", sizeof(cdat->dstr_2607__int_.val)-1);
- 
- /*inistring dstr_2608__int_*/
- /*_.VALSTR___V2614*/ curfptr[2613] = (void*)&cdat->dstr_2608__int_;
-  cdat->dstr_2608__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2608__int_.val, "), (int)(", sizeof(cdat->dstr_2608__int_.val)-1);
- 
- /*inistring dstr_2609__*/
- /*_.VALSTR___V2615*/ curfptr[2614] = (void*)&cdat->dstr_2609__;
-  cdat->dstr_2609__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2609__.val, ")) ", sizeof(cdat->dstr_2609__.val)-1);
- 
- /*inistring dstr_2610__SUBSEQ_MULTIPLE*/
- /*_.VALSTR___V2603*/ curfptr[2602] = (void*)&cdat->dstr_2610__SUBSEQ_MULTIPLE;
-  cdat->dstr_2610__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2610__SUBSEQ_MULTIPLE.val, "SUBSEQ_MULTIPLE", sizeof(cdat->dstr_2610__SUBSEQ_MULTIPLE.val)-1);
- 
- /*iniobj dsym_2611__MULTIPLE_NTH*/
- if (!/*_.VALDATA___V2617*/ curfptr[2616]) /*_.VALDATA___V2617*/ curfptr[2616] = (void*)&cdat->dsym_2611__MULTIPLE_NTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2611__MULTIPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2611__MULTIPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2611__MULTIPLE_NTH.obj_hash = 643308310;
-  cdat->dsym_2611__MULTIPLE_NTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2611__MULTIPLE_NTH));
- 
- /*inistring dstr_2612__MULTIPLE_NTH*/
- /*_.VALSTR___V2618*/ curfptr[2617] = (void*)&cdat->dstr_2612__MULTIPLE_NTH;
-  cdat->dstr_2612__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2612__MULTIPLE_NTH.val, "MULTIPLE_NTH", sizeof(cdat->dstr_2612__MULTIPLE_NTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1440:/ iniobj");
- /*iniobj dobj_2613__MULTIPLE_NTH*/
- if (!/*_.VALDATA___V2619*/ curfptr[2618]) /*_.VALDATA___V2619*/ curfptr[2618] = (void*)&cdat->dobj_2613__MULTIPLE_NTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2613__MULTIPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2613__MULTIPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2613__MULTIPLE_NTH.obj_hash = 30596891;
-  cdat->dobj_2613__MULTIPLE_NTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2613__MULTIPLE_NTH));
- 
- /*inimult dtup_2614__MULTIPLE_NTH*/
- /*_.VALTUP___V2627*/ curfptr[2626] = (void*)&cdat->dtup_2614__MULTIPLE_NTH;
-  cdat->dtup_2614__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2614__MULTIPLE_NTH.nbval = 5;
- /*inimult dtup_2615__MULTIPLE_NTH*/
- /*_.VALTUP___V2623*/ curfptr[2622] = (void*)&cdat->dtup_2615__MULTIPLE_NTH;
-  cdat->dtup_2615__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2615__MULTIPLE_NTH.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1440:/ iniobj");
- /*iniobj dobj_2616*/
- if (!/*_.VALDATA___V2621*/ curfptr[2620]) /*_.VALDATA___V2621*/ curfptr[2620] = (void*)&cdat->dobj_2616;
-  melt_assertmsg("iniobj checkdiscr dobj_2616", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2616.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2616.obj_num = 0;
-  cdat->dobj_2616.obj_hash = 712569222;
-  cdat->dobj_2616.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2616));
- 
- MELT_LOCATION("warmelt-first.melt:1440:/ iniobj");
- /*iniobj dobj_2617*/
- if (!/*_.VALDATA___V2622*/ curfptr[2621]) /*_.VALDATA___V2622*/ curfptr[2621] = (void*)&cdat->dobj_2617;
-  melt_assertmsg("iniobj checkdiscr dobj_2617", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2617.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2617.obj_num = 1;
-  cdat->dobj_2617.obj_hash = 795619266;
-  cdat->dobj_2617.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2617));
- 
- /*inistring dstr_2618__melt_multiple_n*/
- /*_.VALSTR___V2624*/ curfptr[2623] = (void*)&cdat->dstr_2618__melt_multiple_n;
-  cdat->dstr_2618__melt_multiple_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2618__melt_multiple_n.val, "(melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_2618__melt_multiple_n.val)-1);
- 
- /*inistring dstr_2619__*/
- /*_.VALSTR___V2625*/ curfptr[2624] = (void*)&cdat->dstr_2619__;
-  cdat->dstr_2619__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2619__.val, "), (", sizeof(cdat->dstr_2619__.val)-1);
- 
- /*inistring dstr_2620__*/
- /*_.VALSTR___V2626*/ curfptr[2625] = (void*)&cdat->dstr_2620__;
-  cdat->dstr_2620__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2620__.val, ")))", sizeof(cdat->dstr_2620__.val)-1);
- 
- /*inistring dstr_2621__MULTIPLE_NTH*/
- /*_.VALSTR___V2620*/ curfptr[2619] = (void*)&cdat->dstr_2621__MULTIPLE_NTH;
-  cdat->dstr_2621__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2621__MULTIPLE_NTH.val, "MULTIPLE_NTH", sizeof(cdat->dstr_2621__MULTIPLE_NTH.val)-1);
- 
- /*iniobj dsym_2622__MULTIPLE_LENGTH*/
- if (!/*_.VALDATA___V2628*/ curfptr[2627]) /*_.VALDATA___V2628*/ curfptr[2627] = (void*)&cdat->dsym_2622__MULTIPLE_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2622__MULTIPLE_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2622__MULTIPLE_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2622__MULTIPLE_LENGTH.obj_hash = 970992925;
-  cdat->dsym_2622__MULTIPLE_LENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2622__MULTIPLE_LENGTH));
- 
- /*inistring dstr_2623__MULTIPLE_LENGTH*/
- /*_.VALSTR___V2629*/ curfptr[2628] = (void*)&cdat->dstr_2623__MULTIPLE_LENGTH;
-  cdat->dstr_2623__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2623__MULTIPLE_LENGTH.val, "MULTIPLE_LENGTH", sizeof(cdat->dstr_2623__MULTIPLE_LENGTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1444:/ iniobj");
- /*iniobj dobj_2624__MULTIPLE_LENGTH*/
- if (!/*_.VALDATA___V2630*/ curfptr[2629]) /*_.VALDATA___V2630*/ curfptr[2629] = (void*)&cdat->dobj_2624__MULTIPLE_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2624__MULTIPLE_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2624__MULTIPLE_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2624__MULTIPLE_LENGTH.obj_hash = 514229519;
-  cdat->dobj_2624__MULTIPLE_LENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2624__MULTIPLE_LENGTH));
- 
- /*inimult dtup_2625__MULTIPLE_LENGTH*/
- /*_.VALTUP___V2636*/ curfptr[2635] = (void*)&cdat->dtup_2625__MULTIPLE_LENGTH;
-  cdat->dtup_2625__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2625__MULTIPLE_LENGTH.nbval = 3;
- /*inimult dtup_2626__MULTIPLE_LENGTH*/
- /*_.VALTUP___V2633*/ curfptr[2632] = (void*)&cdat->dtup_2626__MULTIPLE_LENGTH;
-  cdat->dtup_2626__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2626__MULTIPLE_LENGTH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1444:/ iniobj");
- /*iniobj dobj_2627*/
- if (!/*_.VALDATA___V2632*/ curfptr[2631]) /*_.VALDATA___V2632*/ curfptr[2631] = (void*)&cdat->dobj_2627;
-  melt_assertmsg("iniobj checkdiscr dobj_2627", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2627.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2627.obj_num = 0;
-  cdat->dobj_2627.obj_hash = 290353861;
-  cdat->dobj_2627.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2627));
- 
- /*inistring dstr_2628__melt_multiple_l*/
- /*_.VALSTR___V2634*/ curfptr[2633] = (void*)&cdat->dstr_2628__melt_multiple_l;
-  cdat->dstr_2628__melt_multiple_l.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2628__melt_multiple_l.val, "(melt_multiple_length((melt_ptr_t)(", sizeof(cdat->dstr_2628__melt_multiple_l.val)-1);
- 
- /*inistring dstr_2629__*/
- /*_.VALSTR___V2635*/ curfptr[2634] = (void*)&cdat->dstr_2629__;
-  cdat->dstr_2629__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2629__.val, ")))", sizeof(cdat->dstr_2629__.val)-1);
- 
- /*inistring dstr_2630__MULTIPLE_LENGTH*/
- /*_.VALSTR___V2631*/ curfptr[2630] = (void*)&cdat->dstr_2630__MULTIPLE_LENGTH;
-  cdat->dstr_2630__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2630__MULTIPLE_LENGTH.val, "MULTIPLE_LENGTH", sizeof(cdat->dstr_2630__MULTIPLE_LENGTH.val)-1);
- 
- /*iniobj dsym_2631__MULTIPLE_PUT_NTH*/
- if (!/*_.VALDATA___V2637*/ curfptr[2636]) /*_.VALDATA___V2637*/ curfptr[2636] = (void*)&cdat->dsym_2631__MULTIPLE_PUT_NTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2631__MULTIPLE_PUT_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2631__MULTIPLE_PUT_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2631__MULTIPLE_PUT_NTH.obj_hash = 1041836531;
-  cdat->dsym_2631__MULTIPLE_PUT_NTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2631__MULTIPLE_PUT_NTH));
- 
- /*inistring dstr_2632__MULTIPLE_PUT_NTH*/
- /*_.VALSTR___V2638*/ curfptr[2637] = (void*)&cdat->dstr_2632__MULTIPLE_PUT_NTH;
-  cdat->dstr_2632__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2632__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof(cdat->dstr_2632__MULTIPLE_PUT_NTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1448:/ iniobj");
- /*iniobj dobj_2633__MULTIPLE_PUT_NTH*/
- if (!/*_.VALDATA___V2639*/ curfptr[2638]) /*_.VALDATA___V2639*/ curfptr[2638] = (void*)&cdat->dobj_2633__MULTIPLE_PUT_NTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2633__MULTIPLE_PUT_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2633__MULTIPLE_PUT_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2633__MULTIPLE_PUT_NTH.obj_hash = 951170615;
-  cdat->dobj_2633__MULTIPLE_PUT_NTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2633__MULTIPLE_PUT_NTH));
- 
- /*inimult dtup_2634__MULTIPLE_PUT_NTH*/
- /*_.VALTUP___V2649*/ curfptr[2648] = (void*)&cdat->dtup_2634__MULTIPLE_PUT_NTH;
-  cdat->dtup_2634__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2634__MULTIPLE_PUT_NTH.nbval = 7;
- /*inimult dtup_2635__MULTIPLE_PUT_NTH*/
- /*_.VALTUP___V2644*/ curfptr[2643] = (void*)&cdat->dtup_2635__MULTIPLE_PUT_NTH;
-  cdat->dtup_2635__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2635__MULTIPLE_PUT_NTH.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1448:/ iniobj");
- /*iniobj dobj_2636*/
- if (!/*_.VALDATA___V2641*/ curfptr[2640]) /*_.VALDATA___V2641*/ curfptr[2640] = (void*)&cdat->dobj_2636;
-  melt_assertmsg("iniobj checkdiscr dobj_2636", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2636.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2636.obj_num = 0;
-  cdat->dobj_2636.obj_hash = 836813365;
-  cdat->dobj_2636.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2636));
- 
- MELT_LOCATION("warmelt-first.melt:1448:/ iniobj");
- /*iniobj dobj_2637*/
- if (!/*_.VALDATA___V2642*/ curfptr[2641]) /*_.VALDATA___V2642*/ curfptr[2641] = (void*)&cdat->dobj_2637;
-  melt_assertmsg("iniobj checkdiscr dobj_2637", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2637.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2637.obj_num = 1;
-  cdat->dobj_2637.obj_hash = 13814337;
-  cdat->dobj_2637.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2637));
- 
- MELT_LOCATION("warmelt-first.melt:1448:/ iniobj");
- /*iniobj dobj_2638*/
- if (!/*_.VALDATA___V2643*/ curfptr[2642]) /*_.VALDATA___V2643*/ curfptr[2642] = (void*)&cdat->dobj_2638;
-  melt_assertmsg("iniobj checkdiscr dobj_2638", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2638.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2638.obj_num = 2;
-  cdat->dobj_2638.obj_hash = 466550483;
-  cdat->dobj_2638.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2638));
- 
- /*inistring dstr_2639__meltgc_multiple_*/
- /*_.VALSTR___V2645*/ curfptr[2644] = (void*)&cdat->dstr_2639__meltgc_multiple_;
-  cdat->dstr_2639__meltgc_multiple_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2639__meltgc_multiple_.val, "meltgc_multiple_put_nth((melt_ptr_t)(", sizeof(cdat->dstr_2639__meltgc_multiple_.val)-1);
- 
- /*inistring dstr_2640__*/
- /*_.VALSTR___V2646*/ curfptr[2645] = (void*)&cdat->dstr_2640__;
-  cdat->dstr_2640__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2640__.val, "), (", sizeof(cdat->dstr_2640__.val)-1);
- 
- /*inistring dstr_2641__melt_ptr_t_*/
- /*_.VALSTR___V2647*/ curfptr[2646] = (void*)&cdat->dstr_2641__melt_ptr_t_;
-  cdat->dstr_2641__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2641__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2641__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2642__*/
- /*_.VALSTR___V2648*/ curfptr[2647] = (void*)&cdat->dstr_2642__;
-  cdat->dstr_2642__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2642__.val, "))", sizeof(cdat->dstr_2642__.val)-1);
- 
- /*inistring dstr_2643__MULTIPLE_PUT_NTH*/
- /*_.VALSTR___V2640*/ curfptr[2639] = (void*)&cdat->dstr_2643__MULTIPLE_PUT_NTH;
-  cdat->dstr_2643__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2643__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof(cdat->dstr_2643__MULTIPLE_PUT_NTH.val)-1);
- 
- /*iniobj dsym_2644__MULTIPLE_SORT*/
- if (!/*_.VALDATA___V2650*/ curfptr[2649]) /*_.VALDATA___V2650*/ curfptr[2649] = (void*)&cdat->dsym_2644__MULTIPLE_SORT;
-  melt_assertmsg("iniobj checkdiscr dsym_2644__MULTIPLE_SORT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2644__MULTIPLE_SORT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2644__MULTIPLE_SORT.obj_hash = 959027783;
-  cdat->dsym_2644__MULTIPLE_SORT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2644__MULTIPLE_SORT));
- 
- /*inistring dstr_2645__MULTIPLE_SORT*/
- /*_.VALSTR___V2651*/ curfptr[2650] = (void*)&cdat->dstr_2645__MULTIPLE_SORT;
-  cdat->dstr_2645__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2645__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof(cdat->dstr_2645__MULTIPLE_SORT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1452:/ iniobj");
- /*iniobj dobj_2646__MULTIPLE_SORT*/
- if (!/*_.VALDATA___V2652*/ curfptr[2651]) /*_.VALDATA___V2652*/ curfptr[2651] = (void*)&cdat->dobj_2646__MULTIPLE_SORT;
-  melt_assertmsg("iniobj checkdiscr dobj_2646__MULTIPLE_SORT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2646__MULTIPLE_SORT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2646__MULTIPLE_SORT.obj_hash = 1049929534;
-  cdat->dobj_2646__MULTIPLE_SORT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2646__MULTIPLE_SORT));
- 
- /*inimult dtup_2647__MULTIPLE_SORT*/
- /*_.VALTUP___V2666*/ curfptr[2665] = (void*)&cdat->dtup_2647__MULTIPLE_SORT;
-  cdat->dtup_2647__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2647__MULTIPLE_SORT.nbval = 7;
- /*inimult dtup_2648__MULTIPLE_SORT*/
- /*_.VALTUP___V2661*/ curfptr[2660] = (void*)&cdat->dtup_2648__MULTIPLE_SORT;
-  cdat->dtup_2648__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2648__MULTIPLE_SORT.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1452:/ iniobj");
- /*iniobj dobj_2649*/
- if (!/*_.VALDATA___V2654*/ curfptr[2653]) /*_.VALDATA___V2654*/ curfptr[2653] = (void*)&cdat->dobj_2649;
-  melt_assertmsg("iniobj checkdiscr dobj_2649", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2649.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2649.obj_num = 0;
-  cdat->dobj_2649.obj_hash = 712146605;
-  cdat->dobj_2649.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2649));
- 
- /*iniobj dsym_2650__CMP*/
- if (!/*_.VALDATA___V2656*/ curfptr[2655]) /*_.VALDATA___V2656*/ curfptr[2655] = (void*)&cdat->dsym_2650__CMP;
-  melt_assertmsg("iniobj checkdiscr dsym_2650__CMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2650__CMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2650__CMP.obj_hash = 15007439;
-  cdat->dsym_2650__CMP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2650__CMP));
- 
- /*inistring dstr_2651__CMP*/
- /*_.VALSTR___V2657*/ curfptr[2656] = (void*)&cdat->dstr_2651__CMP;
-  cdat->dstr_2651__CMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2651__CMP.val, "CMP", sizeof(cdat->dstr_2651__CMP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1452:/ iniobj");
- /*iniobj dobj_2652*/
- if (!/*_.VALDATA___V2655*/ curfptr[2654]) /*_.VALDATA___V2655*/ curfptr[2654] = (void*)&cdat->dobj_2652;
-  melt_assertmsg("iniobj checkdiscr dobj_2652", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2652.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2652.obj_num = 1;
-  cdat->dobj_2652.obj_hash = 719434071;
-  cdat->dobj_2652.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2652));
- 
- /*iniobj dsym_2653__DISCRM*/
- if (!/*_.VALDATA___V2659*/ curfptr[2658]) /*_.VALDATA___V2659*/ curfptr[2658] = (void*)&cdat->dsym_2653__DISCRM;
-  melt_assertmsg("iniobj checkdiscr dsym_2653__DISCRM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2653__DISCRM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2653__DISCRM.obj_hash = 16247456;
-  cdat->dsym_2653__DISCRM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2653__DISCRM));
- 
- /*inistring dstr_2654__DISCRM*/
- /*_.VALSTR___V2660*/ curfptr[2659] = (void*)&cdat->dstr_2654__DISCRM;
-  cdat->dstr_2654__DISCRM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2654__DISCRM.val, "DISCRM", sizeof(cdat->dstr_2654__DISCRM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1452:/ iniobj");
- /*iniobj dobj_2655*/
- if (!/*_.VALDATA___V2658*/ curfptr[2657]) /*_.VALDATA___V2658*/ curfptr[2657] = (void*)&cdat->dobj_2655;
-  melt_assertmsg("iniobj checkdiscr dobj_2655", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2655.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2655.obj_num = 2;
-  cdat->dobj_2655.obj_hash = 118785290;
-  cdat->dobj_2655.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2655));
- 
- /*inistring dstr_2656__meltgc_sort_mult*/
- /*_.VALSTR___V2662*/ curfptr[2661] = (void*)&cdat->dstr_2656__meltgc_sort_mult;
-  cdat->dstr_2656__meltgc_sort_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2656__meltgc_sort_mult.val, "meltgc_sort_multiple((melt_ptr_t)(", sizeof(cdat->dstr_2656__meltgc_sort_mult.val)-1);
- 
- /*inistring dstr_2657__melt_ptr_t_*/
- /*_.VALSTR___V2663*/ curfptr[2662] = (void*)&cdat->dstr_2657__melt_ptr_t_;
-  cdat->dstr_2657__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2657__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2657__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2658__melt_ptr_t_*/
- /*_.VALSTR___V2664*/ curfptr[2663] = (void*)&cdat->dstr_2658__melt_ptr_t_;
-  cdat->dstr_2658__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2658__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2658__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2659__*/
- /*_.VALSTR___V2665*/ curfptr[2664] = (void*)&cdat->dstr_2659__;
-  cdat->dstr_2659__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2659__.val, "))", sizeof(cdat->dstr_2659__.val)-1);
- 
- /*inistring dstr_2660__MULTIPLE_SORT*/
- /*_.VALSTR___V2653*/ curfptr[2652] = (void*)&cdat->dstr_2660__MULTIPLE_SORT;
-  cdat->dstr_2660__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2660__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof(cdat->dstr_2660__MULTIPLE_SORT.val)-1);
- 
- /*inirout drout_2661__COMPARE_NAMED_ALPHA*/
- /*_.VALROUT___V2667*/ curfptr[2666] = (void*)&cdat->drout_2661__COMPARE_NAMED_ALPHA;
-  cdat->drout_2661__COMPARE_NAMED_ALPHA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_2661__COMPARE_NAMED_ALPHA.routdescr, "COMPARE_NAMED_ALPHA @warmelt-first.melt:1458",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_2661__COMPARE_NAMED_ALPHA.nbval = 7;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2661__COMPARE_NAMED_ALPHA, meltrout_1_warmelt_first_COMPARE_NAMED_ALPHA);
- 
- /*iniclos dclo_2662__COMPARE_NAMED_ALPHA*/
- /*_.VALCLO___V2674*/ curfptr[2673] = (void*)&cdat->dclo_2662__COMPARE_NAMED_ALPHA;
-  cdat->dclo_2662__COMPARE_NAMED_ALPHA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_2662__COMPARE_NAMED_ALPHA.nbval = 0;
- 
- /*iniboxint dint_2663__*/
- /*_.VALBXINT___V2668*/ curfptr[2667] = (void*)&cdat->dint_2663__;
-  cdat->dint_2663__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_2663__.val = 0;
- 
- /*iniboxint dint_2664__*/
- /*_.VALBXINT___V2669*/ curfptr[2668] = (void*)&cdat->dint_2664__;
-  cdat->dint_2664__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_2664__.val = 1;
- 
- /*iniboxint dint_2665__*/
- /*_.VALBXINT___V2670*/ curfptr[2669] = (void*)&cdat->dint_2665__;
-  cdat->dint_2665__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_2665__.val = -1;
- 
- /*iniboxint dint_2666__*/
- /*_.VALBXINT___V2671*/ curfptr[2670] = (void*)&cdat->dint_2666__;
-  cdat->dint_2666__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_2666__.val = -1;
- 
- /*iniboxint dint_2667__*/
- /*_.VALBXINT___V2672*/ curfptr[2671] = (void*)&cdat->dint_2667__;
-  cdat->dint_2667__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_2667__.val = 1;
- 
- /*iniboxint dint_2668__*/
- /*_.VALBXINT___V2673*/ curfptr[2672] = (void*)&cdat->dint_2668__;
-  cdat->dint_2668__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_2668__.val = 0;
- 
- MELT_LOCATION("warmelt-first.melt:1479:/ iniobj");
- /*iniobj dobj_2669__TUPLE_NTH*/
- if (!/*_.VALDATA___V2675*/ curfptr[2674]) /*_.VALDATA___V2675*/ curfptr[2674] = (void*)&cdat->dobj_2669__TUPLE_NTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2669__TUPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_2669__TUPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_2669__TUPLE_NTH.obj_hash = 230110192;
-  cdat->dobj_2669__TUPLE_NTH.obj_len = 9;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2669__TUPLE_NTH));
- 
- /*inistring dstr_2670__TUPLE_NTH*/
- /*_.VALSTR___V2676*/ curfptr[2675] = (void*)&cdat->dstr_2670__TUPLE_NTH;
-  cdat->dstr_2670__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2670__TUPLE_NTH.val, "TUPLE_NTH", sizeof(cdat->dstr_2670__TUPLE_NTH.val)-1);
- 
- /*iniobj dsym_2671__MATCHEDRK*/
- if (!/*_.VALDATA___V2678*/ curfptr[2677]) /*_.VALDATA___V2678*/ curfptr[2677] = (void*)&cdat->dsym_2671__MATCHEDRK;
-  melt_assertmsg("iniobj checkdiscr dsym_2671__MATCHEDRK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2671__MATCHEDRK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2671__MATCHEDRK.obj_hash = 1058504666;
-  cdat->dsym_2671__MATCHEDRK.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2671__MATCHEDRK));
- 
- /*inistring dstr_2672__MATCHEDRK*/
- /*_.VALSTR___V2679*/ curfptr[2678] = (void*)&cdat->dstr_2672__MATCHEDRK;
-  cdat->dstr_2672__MATCHEDRK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2672__MATCHEDRK.val, "MATCHEDRK", sizeof(cdat->dstr_2672__MATCHEDRK.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1479:/ iniobj");
- /*iniobj dobj_2673*/
- if (!/*_.VALDATA___V2677*/ curfptr[2676]) /*_.VALDATA___V2677*/ curfptr[2676] = (void*)&cdat->dobj_2673;
-  melt_assertmsg("iniobj checkdiscr dobj_2673", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2673.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2673.obj_num = 0;
-  cdat->dobj_2673.obj_hash = 527454535;
-  cdat->dobj_2673.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2673));
- 
- /*inimult dtup_2674__TUPLE_NTH*/
- /*_.VALTUP___V2680*/ curfptr[2679] = (void*)&cdat->dtup_2674__TUPLE_NTH;
-  cdat->dtup_2674__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2674__TUPLE_NTH.nbval = 1;
- /*iniobj dsym_2675__MATCHEDTUP*/
- if (!/*_.VALDATA___V2682*/ curfptr[2681]) /*_.VALDATA___V2682*/ curfptr[2681] = (void*)&cdat->dsym_2675__MATCHEDTUP;
-  melt_assertmsg("iniobj checkdiscr dsym_2675__MATCHEDTUP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2675__MATCHEDTUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2675__MATCHEDTUP.obj_hash = 192748516;
-  cdat->dsym_2675__MATCHEDTUP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2675__MATCHEDTUP));
- 
- /*inistring dstr_2676__MATCHEDTUP*/
- /*_.VALSTR___V2683*/ curfptr[2682] = (void*)&cdat->dstr_2676__MATCHEDTUP;
-  cdat->dstr_2676__MATCHEDTUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2676__MATCHEDTUP.val, "MATCHEDTUP", sizeof(cdat->dstr_2676__MATCHEDTUP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1479:/ iniobj");
- /*iniobj dobj_2677*/
- if (!/*_.VALDATA___V2681*/ curfptr[2680]) /*_.VALDATA___V2681*/ curfptr[2680] = (void*)&cdat->dobj_2677;
-  melt_assertmsg("iniobj checkdiscr dobj_2677", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2677.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2677.obj_hash = 777498415;
-  cdat->dobj_2677.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2677));
- 
- /*iniobj dsym_2678__OUTCOMP*/
- if (!/*_.VALDATA___V2685*/ curfptr[2684]) /*_.VALDATA___V2685*/ curfptr[2684] = (void*)&cdat->dsym_2678__OUTCOMP;
-  melt_assertmsg("iniobj checkdiscr dsym_2678__OUTCOMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2678__OUTCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2678__OUTCOMP.obj_hash = 326576265;
-  cdat->dsym_2678__OUTCOMP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2678__OUTCOMP));
- 
- /*inistring dstr_2679__OUTCOMP*/
- /*_.VALSTR___V2686*/ curfptr[2685] = (void*)&cdat->dstr_2679__OUTCOMP;
-  cdat->dstr_2679__OUTCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2679__OUTCOMP.val, "OUTCOMP", sizeof(cdat->dstr_2679__OUTCOMP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1479:/ iniobj");
- /*iniobj dobj_2680*/
- if (!/*_.VALDATA___V2684*/ curfptr[2683]) /*_.VALDATA___V2684*/ curfptr[2683] = (void*)&cdat->dobj_2680;
-  melt_assertmsg("iniobj checkdiscr dobj_2680", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2680.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2680.obj_num = 0;
-  cdat->dobj_2680.obj_hash = 332834349;
-  cdat->dobj_2680.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2680));
- 
- /*inimult dtup_2681__TUPLE_NTH*/
- /*_.VALTUP___V2687*/ curfptr[2686] = (void*)&cdat->dtup_2681__TUPLE_NTH;
-  cdat->dtup_2681__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2681__TUPLE_NTH.nbval = 1;
- /*iniobj dsym_2682__TUPNTH*/
- if (!/*_.VALDATA___V2688*/ curfptr[2687]) /*_.VALDATA___V2688*/ curfptr[2687] = (void*)&cdat->dsym_2682__TUPNTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2682__TUPNTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2682__TUPNTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2682__TUPNTH.obj_hash = 701388142;
-  cdat->dsym_2682__TUPNTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2682__TUPNTH));
- 
- /*inistring dstr_2683__TUPNTH*/
- /*_.VALSTR___V2689*/ curfptr[2688] = (void*)&cdat->dstr_2683__TUPNTH;
-  cdat->dstr_2683__TUPNTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2683__TUPNTH.val, "TUPNTH", sizeof(cdat->dstr_2683__TUPNTH.val)-1);
- 
- /*inistring dstr_2684__*/
- /*_.VALSTR___V2690*/ curfptr[2689] = (void*)&cdat->dstr_2684__;
-  cdat->dstr_2684__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2684__.val, "/*", sizeof(cdat->dstr_2684__.val)-1);
- 
- /*inistring dstr_2685__melt_is_mu*/
- /*_.VALSTR___V2691*/ curfptr[2690] = (void*)&cdat->dstr_2685__melt_is_mu;
-  cdat->dstr_2685__melt_is_mu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2685__melt_is_mu.val, " ?*/ (melt_is_multiple_at_least(((melt_ptr_t)", sizeof(cdat->dstr_2685__melt_is_mu.val)-1);
- 
- /*inistring dstr_2686__1_int_*/
- /*_.VALSTR___V2692*/ curfptr[2691] = (void*)&cdat->dstr_2686__1_int_;
-  cdat->dstr_2686__1_int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2686__1_int_.val, "), 1+ (int)(", sizeof(cdat->dstr_2686__1_int_.val)-1);
- 
- /*inistring dstr_2687__*/
- /*_.VALSTR___V2693*/ curfptr[2692] = (void*)&cdat->dstr_2687__;
-  cdat->dstr_2687__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2687__.val, ")))", sizeof(cdat->dstr_2687__.val)-1);
- 
- /*inimult dtup_2688__TUPLE_NTH*/
- /*_.VALTUP___V2694*/ curfptr[2693] = (void*)&cdat->dtup_2688__TUPLE_NTH;
-  cdat->dtup_2688__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2688__TUPLE_NTH.nbval = 7;
- /*inistring dstr_2689__*/
- /*_.VALSTR___V2695*/ curfptr[2694] = (void*)&cdat->dstr_2689__;
-  cdat->dstr_2689__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2689__.val, "/*", sizeof(cdat->dstr_2689__.val)-1);
- 
- /*inistring dstr_2690__*/
- /*_.VALSTR___V2696*/ curfptr[2695] = (void*)&cdat->dstr_2690__;
-  cdat->dstr_2690__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2690__.val, " !*/ ", sizeof(cdat->dstr_2690__.val)-1);
- 
- /*inistring dstr_2691__melt_multiple*/
- /*_.VALSTR___V2697*/ curfptr[2696] = (void*)&cdat->dstr_2691__melt_multiple;
-  cdat->dstr_2691__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2691__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_2691__melt_multiple.val)-1);
- 
- /*inistring dstr_2692__int_*/
- /*_.VALSTR___V2698*/ curfptr[2697] = (void*)&cdat->dstr_2692__int_;
-  cdat->dstr_2692__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2692__int_.val, "),(int)(", sizeof(cdat->dstr_2692__int_.val)-1);
- 
- /*inistring dstr_2693__*/
- /*_.VALSTR___V2699*/ curfptr[2698] = (void*)&cdat->dstr_2693__;
-  cdat->dstr_2693__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2693__.val, "));\n   ", sizeof(cdat->dstr_2693__.val)-1);
- 
- /*inimult dtup_2694__TUPLE_NTH*/
- /*_.VALTUP___V2700*/ curfptr[2699] = (void*)&cdat->dtup_2694__TUPLE_NTH;
-  cdat->dtup_2694__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2694__TUPLE_NTH.nbval = 9;
- MELT_LOCATION("warmelt-first.melt:1496:/ iniobj");
- /*iniobj dobj_2695__CSTRING_SAME*/
- if (!/*_.VALDATA___V2701*/ curfptr[2700]) /*_.VALDATA___V2701*/ curfptr[2700] = (void*)&cdat->dobj_2695__CSTRING_SAME;
-  melt_assertmsg("iniobj checkdiscr dobj_2695__CSTRING_SAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_2695__CSTRING_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_2695__CSTRING_SAME.obj_hash = 325756403;
-  cdat->dobj_2695__CSTRING_SAME.obj_len = 9;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2695__CSTRING_SAME));
- 
- /*inistring dstr_2696__CSTRING_SAME*/
- /*_.VALSTR___V2702*/ curfptr[2701] = (void*)&cdat->dstr_2696__CSTRING_SAME;
-  cdat->dstr_2696__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2696__CSTRING_SAME.val, "CSTRING_SAME", sizeof(cdat->dstr_2696__CSTRING_SAME.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1496:/ iniobj");
- /*iniobj dobj_2697*/
- if (!/*_.VALDATA___V2703*/ curfptr[2702]) /*_.VALDATA___V2703*/ curfptr[2702] = (void*)&cdat->dobj_2697;
-  melt_assertmsg("iniobj checkdiscr dobj_2697", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2697.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2697.obj_num = 0;
-  cdat->dobj_2697.obj_hash = 194949065;
-  cdat->dobj_2697.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2697));
- 
- /*inimult dtup_2698__CSTRING_SAME*/
- /*_.VALTUP___V2704*/ curfptr[2703] = (void*)&cdat->dtup_2698__CSTRING_SAME;
-  cdat->dtup_2698__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2698__CSTRING_SAME.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1496:/ iniobj");
- /*iniobj dobj_2699*/
- if (!/*_.VALDATA___V2705*/ curfptr[2704]) /*_.VALDATA___V2705*/ curfptr[2704] = (void*)&cdat->dobj_2699;
-  melt_assertmsg("iniobj checkdiscr dobj_2699", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2699.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2699.obj_hash = 91417190;
-  cdat->dobj_2699.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2699));
- 
- /*inimult dtup_2700__CSTRING_SAME*/
- /*_.VALTUP___V2706*/ curfptr[2705] = (void*)&cdat->dtup_2700__CSTRING_SAME;
-  cdat->dtup_2700__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2700__CSTRING_SAME.nbval = 0;
- /*iniobj dsym_2701__STRSAM*/
- if (!/*_.VALDATA___V2707*/ curfptr[2706]) /*_.VALDATA___V2707*/ curfptr[2706] = (void*)&cdat->dsym_2701__STRSAM;
-  melt_assertmsg("iniobj checkdiscr dsym_2701__STRSAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2701__STRSAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2701__STRSAM.obj_hash = 226540121;
-  cdat->dsym_2701__STRSAM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2701__STRSAM));
- 
- /*inistring dstr_2702__STRSAM*/
- /*_.VALSTR___V2708*/ curfptr[2707] = (void*)&cdat->dstr_2702__STRSAM;
-  cdat->dstr_2702__STRSAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2702__STRSAM.val, "STRSAM", sizeof(cdat->dstr_2702__STRSAM.val)-1);
- 
- /*inistring dstr_2703__*/
- /*_.VALSTR___V2709*/ curfptr[2708] = (void*)&cdat->dstr_2703__;
-  cdat->dstr_2703__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2703__.val, "/*", sizeof(cdat->dstr_2703__.val)-1);
- 
- /*inistring dstr_2704__test_*/
- /*_.VALSTR___V2710*/ curfptr[2709] = (void*)&cdat->dstr_2704__test_;
-  cdat->dstr_2704__test_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2704__test_.val, " test*/ (", sizeof(cdat->dstr_2704__test_.val)-1);
- 
- /*inistring dstr_2705__*/
- /*_.VALSTR___V2711*/ curfptr[2710] = (void*)&cdat->dstr_2705__;
-  cdat->dstr_2705__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2705__.val, " && ", sizeof(cdat->dstr_2705__.val)-1);
- 
- /*inistring dstr_2706__strcmp_*/
- /*_.VALSTR___V2712*/ curfptr[2711] = (void*)&cdat->dstr_2706__strcmp_;
-  cdat->dstr_2706__strcmp_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2706__strcmp_.val, " && !strcmp(", sizeof(cdat->dstr_2706__strcmp_.val)-1);
- 
- /*inistring dstr_2707__*/
- /*_.VALSTR___V2713*/ curfptr[2712] = (void*)&cdat->dstr_2707__;
-  cdat->dstr_2707__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2707__.val, ", ", sizeof(cdat->dstr_2707__.val)-1);
+ /*inistring dstr_2576__meltgc_new_mult*/
+ /*_.VALSTR___V2582*/ curfptr[2581] = (void*)&cdat->dstr_2576__meltgc_new_mult;
+  cdat->dstr_2576__meltgc_new_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2576__meltgc_new_mult.val, "(meltgc_new_mult7((meltobject_ptr_t)(", sizeof(cdat->dstr_2576__meltgc_new_mult.val)-1);
+ 
+ /*inistring dstr_2577__melt_ptr_t_*/
+ /*_.VALSTR___V2583*/ curfptr[2582] = (void*)&cdat->dstr_2577__melt_ptr_t_;
+  cdat->dstr_2577__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2577__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2577__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2578__me*/
+ /*_.VALSTR___V2584*/ curfptr[2583] = (void*)&cdat->dstr_2578__me;
+  cdat->dstr_2578__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2578__me.val, "),  \n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2578__me.val)-1);
+ 
+ /*inistring dstr_2579__melt_ptr_t_*/
+ /*_.VALSTR___V2585*/ curfptr[2584] = (void*)&cdat->dstr_2579__melt_ptr_t_;
+  cdat->dstr_2579__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2579__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2579__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2580__melt_ptr_t_*/
+ /*_.VALSTR___V2586*/ curfptr[2585] = (void*)&cdat->dstr_2580__melt_ptr_t_;
+  cdat->dstr_2580__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2580__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2580__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2581__melt*/
+ /*_.VALSTR___V2587*/ curfptr[2586] = (void*)&cdat->dstr_2581__melt;
+  cdat->dstr_2581__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2581__melt.val, "),\n\t\t      (melt_ptr_t)(", sizeof(cdat->dstr_2581__melt.val)-1);
+ 
+ /*inistring dstr_2582__melt_ptr_t_*/
+ /*_.VALSTR___V2588*/ curfptr[2587] = (void*)&cdat->dstr_2582__melt_ptr_t_;
+  cdat->dstr_2582__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2582__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2582__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2583__melt_ptr_t_*/
+ /*_.VALSTR___V2589*/ curfptr[2588] = (void*)&cdat->dstr_2583__melt_ptr_t_;
+  cdat->dstr_2583__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2583__melt_ptr_t_.val, "),  (melt_ptr_t)(", sizeof(cdat->dstr_2583__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2584__*/
+ /*_.VALSTR___V2590*/ curfptr[2589] = (void*)&cdat->dstr_2584__;
+  cdat->dstr_2584__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2584__.val, ")))", sizeof(cdat->dstr_2584__.val)-1);
+ 
+ /*inistring dstr_2585__MAKE_TUPLE7*/
+ /*_.VALSTR___V2570*/ curfptr[2569] = (void*)&cdat->dstr_2585__MAKE_TUPLE7;
+  cdat->dstr_2585__MAKE_TUPLE7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2585__MAKE_TUPLE7.val, "MAKE_TUPLE7", sizeof(cdat->dstr_2585__MAKE_TUPLE7.val)-1);
+ 
+ /*iniobj dsym_2586__SUBSEQ_MULTIPLE*/
+ if (!/*_.VALDATA___V2592*/ curfptr[2591]) /*_.VALDATA___V2592*/ curfptr[2591] = (void*)&cdat->dsym_2586__SUBSEQ_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_2586__SUBSEQ_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2586__SUBSEQ_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2586__SUBSEQ_MULTIPLE.obj_hash = 32217835;
+  cdat->dsym_2586__SUBSEQ_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2586__SUBSEQ_MULTIPLE));
+ 
+ /*inistring dstr_2587__SUBSEQ_MULTIPLE*/
+ /*_.VALSTR___V2593*/ curfptr[2592] = (void*)&cdat->dstr_2587__SUBSEQ_MULTIPLE;
+  cdat->dstr_2587__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2587__SUBSEQ_MULTIPLE.val, "SUBSEQ_MULTIPLE", sizeof(cdat->dstr_2587__SUBSEQ_MULTIPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1429:/ iniobj");
+ /*iniobj dobj_2588__SUBSEQ_MULTIPLE*/
+ if (!/*_.VALDATA___V2594*/ curfptr[2593]) /*_.VALDATA___V2594*/ curfptr[2593] = (void*)&cdat->dobj_2588__SUBSEQ_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dobj_2588__SUBSEQ_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2588__SUBSEQ_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2588__SUBSEQ_MULTIPLE.obj_hash = 303912589;
+  cdat->dobj_2588__SUBSEQ_MULTIPLE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2588__SUBSEQ_MULTIPLE));
+ 
+ /*inimult dtup_2589__SUBSEQ_MULTIPLE*/
+ /*_.VALTUP___V2608*/ curfptr[2607] = (void*)&cdat->dtup_2589__SUBSEQ_MULTIPLE;
+  cdat->dtup_2589__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2589__SUBSEQ_MULTIPLE.nbval = 7;
+ /*inimult dtup_2590__SUBSEQ_MULTIPLE*/
+ /*_.VALTUP___V2603*/ curfptr[2602] = (void*)&cdat->dtup_2590__SUBSEQ_MULTIPLE;
+  cdat->dtup_2590__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2590__SUBSEQ_MULTIPLE.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1429:/ iniobj");
+ /*iniobj dobj_2591*/
+ if (!/*_.VALDATA___V2596*/ curfptr[2595]) /*_.VALDATA___V2596*/ curfptr[2595] = (void*)&cdat->dobj_2591;
+  melt_assertmsg("iniobj checkdiscr dobj_2591", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2591.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2591.obj_num = 0;
+  cdat->dobj_2591.obj_hash = 287123004;
+  cdat->dobj_2591.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2591));
+ 
+ /*iniobj dsym_2592__STARTIX*/
+ if (!/*_.VALDATA___V2598*/ curfptr[2597]) /*_.VALDATA___V2598*/ curfptr[2597] = (void*)&cdat->dsym_2592__STARTIX;
+  melt_assertmsg("iniobj checkdiscr dsym_2592__STARTIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2592__STARTIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2592__STARTIX.obj_hash = 292412544;
+  cdat->dsym_2592__STARTIX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2592__STARTIX));
+ 
+ /*inistring dstr_2593__STARTIX*/
+ /*_.VALSTR___V2599*/ curfptr[2598] = (void*)&cdat->dstr_2593__STARTIX;
+  cdat->dstr_2593__STARTIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2593__STARTIX.val, "STARTIX", sizeof(cdat->dstr_2593__STARTIX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1429:/ iniobj");
+ /*iniobj dobj_2594*/
+ if (!/*_.VALDATA___V2597*/ curfptr[2596]) /*_.VALDATA___V2597*/ curfptr[2596] = (void*)&cdat->dobj_2594;
+  melt_assertmsg("iniobj checkdiscr dobj_2594", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2594.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2594.obj_num = 1;
+  cdat->dobj_2594.obj_hash = 156206982;
+  cdat->dobj_2594.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2594));
+ 
+ /*iniobj dsym_2595__ENDIX*/
+ if (!/*_.VALDATA___V2601*/ curfptr[2600]) /*_.VALDATA___V2601*/ curfptr[2600] = (void*)&cdat->dsym_2595__ENDIX;
+  melt_assertmsg("iniobj checkdiscr dsym_2595__ENDIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2595__ENDIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2595__ENDIX.obj_hash = 546183488;
+  cdat->dsym_2595__ENDIX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2595__ENDIX));
+ 
+ /*inistring dstr_2596__ENDIX*/
+ /*_.VALSTR___V2602*/ curfptr[2601] = (void*)&cdat->dstr_2596__ENDIX;
+  cdat->dstr_2596__ENDIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2596__ENDIX.val, "ENDIX", sizeof(cdat->dstr_2596__ENDIX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1429:/ iniobj");
+ /*iniobj dobj_2597*/
+ if (!/*_.VALDATA___V2600*/ curfptr[2599]) /*_.VALDATA___V2600*/ curfptr[2599] = (void*)&cdat->dobj_2597;
+  melt_assertmsg("iniobj checkdiscr dobj_2597", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2597.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2597.obj_num = 2;
+  cdat->dobj_2597.obj_hash = 289964798;
+  cdat->dobj_2597.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2597));
+ 
+ /*inistring dstr_2598__meltgc_new_subs*/
+ /*_.VALSTR___V2604*/ curfptr[2603] = (void*)&cdat->dstr_2598__meltgc_new_subs;
+  cdat->dstr_2598__meltgc_new_subs.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2598__meltgc_new_subs.val, " meltgc_new_subseq_multiple((melt_ptr_t)(", sizeof(cdat->dstr_2598__meltgc_new_subs.val)-1);
+ 
+ /*inistring dstr_2599__int_*/
+ /*_.VALSTR___V2605*/ curfptr[2604] = (void*)&cdat->dstr_2599__int_;
+  cdat->dstr_2599__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2599__int_.val, "),\n\t\t\t\t  (int)(", sizeof(cdat->dstr_2599__int_.val)-1);
+ 
+ /*inistring dstr_2600__int_*/
+ /*_.VALSTR___V2606*/ curfptr[2605] = (void*)&cdat->dstr_2600__int_;
+  cdat->dstr_2600__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2600__int_.val, "), (int)(", sizeof(cdat->dstr_2600__int_.val)-1);
+ 
+ /*inistring dstr_2601__*/
+ /*_.VALSTR___V2607*/ curfptr[2606] = (void*)&cdat->dstr_2601__;
+  cdat->dstr_2601__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2601__.val, ")) ", sizeof(cdat->dstr_2601__.val)-1);
+ 
+ /*inistring dstr_2602__SUBSEQ_MULTIPLE*/
+ /*_.VALSTR___V2595*/ curfptr[2594] = (void*)&cdat->dstr_2602__SUBSEQ_MULTIPLE;
+  cdat->dstr_2602__SUBSEQ_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2602__SUBSEQ_MULTIPLE.val, "SUBSEQ_MULTIPLE", sizeof(cdat->dstr_2602__SUBSEQ_MULTIPLE.val)-1);
+ 
+ /*iniobj dsym_2603__MULTIPLE_NTH*/
+ if (!/*_.VALDATA___V2609*/ curfptr[2608]) /*_.VALDATA___V2609*/ curfptr[2608] = (void*)&cdat->dsym_2603__MULTIPLE_NTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2603__MULTIPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2603__MULTIPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2603__MULTIPLE_NTH.obj_hash = 643308310;
+  cdat->dsym_2603__MULTIPLE_NTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2603__MULTIPLE_NTH));
+ 
+ /*inistring dstr_2604__MULTIPLE_NTH*/
+ /*_.VALSTR___V2610*/ curfptr[2609] = (void*)&cdat->dstr_2604__MULTIPLE_NTH;
+  cdat->dstr_2604__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2604__MULTIPLE_NTH.val, "MULTIPLE_NTH", sizeof(cdat->dstr_2604__MULTIPLE_NTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1435:/ iniobj");
+ /*iniobj dobj_2605__MULTIPLE_NTH*/
+ if (!/*_.VALDATA___V2611*/ curfptr[2610]) /*_.VALDATA___V2611*/ curfptr[2610] = (void*)&cdat->dobj_2605__MULTIPLE_NTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2605__MULTIPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2605__MULTIPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2605__MULTIPLE_NTH.obj_hash = 854379018;
+  cdat->dobj_2605__MULTIPLE_NTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2605__MULTIPLE_NTH));
+ 
+ /*inimult dtup_2606__MULTIPLE_NTH*/
+ /*_.VALTUP___V2619*/ curfptr[2618] = (void*)&cdat->dtup_2606__MULTIPLE_NTH;
+  cdat->dtup_2606__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2606__MULTIPLE_NTH.nbval = 5;
+ /*inimult dtup_2607__MULTIPLE_NTH*/
+ /*_.VALTUP___V2615*/ curfptr[2614] = (void*)&cdat->dtup_2607__MULTIPLE_NTH;
+  cdat->dtup_2607__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2607__MULTIPLE_NTH.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1435:/ iniobj");
+ /*iniobj dobj_2608*/
+ if (!/*_.VALDATA___V2613*/ curfptr[2612]) /*_.VALDATA___V2613*/ curfptr[2612] = (void*)&cdat->dobj_2608;
+  melt_assertmsg("iniobj checkdiscr dobj_2608", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2608.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2608.obj_num = 0;
+  cdat->dobj_2608.obj_hash = 185998172;
+  cdat->dobj_2608.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2608));
+ 
+ MELT_LOCATION("warmelt-first.melt:1435:/ iniobj");
+ /*iniobj dobj_2609*/
+ if (!/*_.VALDATA___V2614*/ curfptr[2613]) /*_.VALDATA___V2614*/ curfptr[2613] = (void*)&cdat->dobj_2609;
+  melt_assertmsg("iniobj checkdiscr dobj_2609", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2609.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2609.obj_num = 1;
+  cdat->dobj_2609.obj_hash = 426464795;
+  cdat->dobj_2609.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2609));
+ 
+ /*inistring dstr_2610__melt_multiple_n*/
+ /*_.VALSTR___V2616*/ curfptr[2615] = (void*)&cdat->dstr_2610__melt_multiple_n;
+  cdat->dstr_2610__melt_multiple_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2610__melt_multiple_n.val, "(melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_2610__melt_multiple_n.val)-1);
+ 
+ /*inistring dstr_2611__*/
+ /*_.VALSTR___V2617*/ curfptr[2616] = (void*)&cdat->dstr_2611__;
+  cdat->dstr_2611__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2611__.val, "), (", sizeof(cdat->dstr_2611__.val)-1);
+ 
+ /*inistring dstr_2612__*/
+ /*_.VALSTR___V2618*/ curfptr[2617] = (void*)&cdat->dstr_2612__;
+  cdat->dstr_2612__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2612__.val, ")))", sizeof(cdat->dstr_2612__.val)-1);
+ 
+ /*inistring dstr_2613__MULTIPLE_NTH*/
+ /*_.VALSTR___V2612*/ curfptr[2611] = (void*)&cdat->dstr_2613__MULTIPLE_NTH;
+  cdat->dstr_2613__MULTIPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2613__MULTIPLE_NTH.val, "MULTIPLE_NTH", sizeof(cdat->dstr_2613__MULTIPLE_NTH.val)-1);
+ 
+ /*iniobj dsym_2614__MULTIPLE_LENGTH*/
+ if (!/*_.VALDATA___V2620*/ curfptr[2619]) /*_.VALDATA___V2620*/ curfptr[2619] = (void*)&cdat->dsym_2614__MULTIPLE_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2614__MULTIPLE_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2614__MULTIPLE_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2614__MULTIPLE_LENGTH.obj_hash = 970992925;
+  cdat->dsym_2614__MULTIPLE_LENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2614__MULTIPLE_LENGTH));
+ 
+ /*inistring dstr_2615__MULTIPLE_LENGTH*/
+ /*_.VALSTR___V2621*/ curfptr[2620] = (void*)&cdat->dstr_2615__MULTIPLE_LENGTH;
+  cdat->dstr_2615__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2615__MULTIPLE_LENGTH.val, "MULTIPLE_LENGTH", sizeof(cdat->dstr_2615__MULTIPLE_LENGTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1439:/ iniobj");
+ /*iniobj dobj_2616__MULTIPLE_LENGTH*/
+ if (!/*_.VALDATA___V2622*/ curfptr[2621]) /*_.VALDATA___V2622*/ curfptr[2621] = (void*)&cdat->dobj_2616__MULTIPLE_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2616__MULTIPLE_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2616__MULTIPLE_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2616__MULTIPLE_LENGTH.obj_hash = 97887352;
+  cdat->dobj_2616__MULTIPLE_LENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2616__MULTIPLE_LENGTH));
+ 
+ /*inimult dtup_2617__MULTIPLE_LENGTH*/
+ /*_.VALTUP___V2628*/ curfptr[2627] = (void*)&cdat->dtup_2617__MULTIPLE_LENGTH;
+  cdat->dtup_2617__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2617__MULTIPLE_LENGTH.nbval = 3;
+ /*inimult dtup_2618__MULTIPLE_LENGTH*/
+ /*_.VALTUP___V2625*/ curfptr[2624] = (void*)&cdat->dtup_2618__MULTIPLE_LENGTH;
+  cdat->dtup_2618__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2618__MULTIPLE_LENGTH.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1439:/ iniobj");
+ /*iniobj dobj_2619*/
+ if (!/*_.VALDATA___V2624*/ curfptr[2623]) /*_.VALDATA___V2624*/ curfptr[2623] = (void*)&cdat->dobj_2619;
+  melt_assertmsg("iniobj checkdiscr dobj_2619", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2619.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2619.obj_num = 0;
+  cdat->dobj_2619.obj_hash = 714742295;
+  cdat->dobj_2619.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2619));
+ 
+ /*inistring dstr_2620__melt_multiple_l*/
+ /*_.VALSTR___V2626*/ curfptr[2625] = (void*)&cdat->dstr_2620__melt_multiple_l;
+  cdat->dstr_2620__melt_multiple_l.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2620__melt_multiple_l.val, "(melt_multiple_length((melt_ptr_t)(", sizeof(cdat->dstr_2620__melt_multiple_l.val)-1);
+ 
+ /*inistring dstr_2621__*/
+ /*_.VALSTR___V2627*/ curfptr[2626] = (void*)&cdat->dstr_2621__;
+  cdat->dstr_2621__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2621__.val, ")))", sizeof(cdat->dstr_2621__.val)-1);
+ 
+ /*inistring dstr_2622__MULTIPLE_LENGTH*/
+ /*_.VALSTR___V2623*/ curfptr[2622] = (void*)&cdat->dstr_2622__MULTIPLE_LENGTH;
+  cdat->dstr_2622__MULTIPLE_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2622__MULTIPLE_LENGTH.val, "MULTIPLE_LENGTH", sizeof(cdat->dstr_2622__MULTIPLE_LENGTH.val)-1);
+ 
+ /*iniobj dsym_2623__MULTIPLE_PUT_NTH*/
+ if (!/*_.VALDATA___V2629*/ curfptr[2628]) /*_.VALDATA___V2629*/ curfptr[2628] = (void*)&cdat->dsym_2623__MULTIPLE_PUT_NTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2623__MULTIPLE_PUT_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2623__MULTIPLE_PUT_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2623__MULTIPLE_PUT_NTH.obj_hash = 1041836531;
+  cdat->dsym_2623__MULTIPLE_PUT_NTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2623__MULTIPLE_PUT_NTH));
+ 
+ /*inistring dstr_2624__MULTIPLE_PUT_NTH*/
+ /*_.VALSTR___V2630*/ curfptr[2629] = (void*)&cdat->dstr_2624__MULTIPLE_PUT_NTH;
+  cdat->dstr_2624__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2624__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof(cdat->dstr_2624__MULTIPLE_PUT_NTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1443:/ iniobj");
+ /*iniobj dobj_2625__MULTIPLE_PUT_NTH*/
+ if (!/*_.VALDATA___V2631*/ curfptr[2630]) /*_.VALDATA___V2631*/ curfptr[2630] = (void*)&cdat->dobj_2625__MULTIPLE_PUT_NTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2625__MULTIPLE_PUT_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2625__MULTIPLE_PUT_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2625__MULTIPLE_PUT_NTH.obj_hash = 205093291;
+  cdat->dobj_2625__MULTIPLE_PUT_NTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2625__MULTIPLE_PUT_NTH));
+ 
+ /*inimult dtup_2626__MULTIPLE_PUT_NTH*/
+ /*_.VALTUP___V2641*/ curfptr[2640] = (void*)&cdat->dtup_2626__MULTIPLE_PUT_NTH;
+  cdat->dtup_2626__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2626__MULTIPLE_PUT_NTH.nbval = 7;
+ /*inimult dtup_2627__MULTIPLE_PUT_NTH*/
+ /*_.VALTUP___V2636*/ curfptr[2635] = (void*)&cdat->dtup_2627__MULTIPLE_PUT_NTH;
+  cdat->dtup_2627__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2627__MULTIPLE_PUT_NTH.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1443:/ iniobj");
+ /*iniobj dobj_2628*/
+ if (!/*_.VALDATA___V2633*/ curfptr[2632]) /*_.VALDATA___V2633*/ curfptr[2632] = (void*)&cdat->dobj_2628;
+  melt_assertmsg("iniobj checkdiscr dobj_2628", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2628.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2628.obj_num = 0;
+  cdat->dobj_2628.obj_hash = 419503169;
+  cdat->dobj_2628.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2628));
+ 
+ MELT_LOCATION("warmelt-first.melt:1443:/ iniobj");
+ /*iniobj dobj_2629*/
+ if (!/*_.VALDATA___V2634*/ curfptr[2633]) /*_.VALDATA___V2634*/ curfptr[2633] = (void*)&cdat->dobj_2629;
+  melt_assertmsg("iniobj checkdiscr dobj_2629", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2629.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2629.obj_num = 1;
+  cdat->dobj_2629.obj_hash = 121490142;
+  cdat->dobj_2629.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2629));
+ 
+ MELT_LOCATION("warmelt-first.melt:1443:/ iniobj");
+ /*iniobj dobj_2630*/
+ if (!/*_.VALDATA___V2635*/ curfptr[2634]) /*_.VALDATA___V2635*/ curfptr[2634] = (void*)&cdat->dobj_2630;
+  melt_assertmsg("iniobj checkdiscr dobj_2630", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2630.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2630.obj_num = 2;
+  cdat->dobj_2630.obj_hash = 457920026;
+  cdat->dobj_2630.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2630));
+ 
+ /*inistring dstr_2631__meltgc_multiple_*/
+ /*_.VALSTR___V2637*/ curfptr[2636] = (void*)&cdat->dstr_2631__meltgc_multiple_;
+  cdat->dstr_2631__meltgc_multiple_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2631__meltgc_multiple_.val, "meltgc_multiple_put_nth((melt_ptr_t)(", sizeof(cdat->dstr_2631__meltgc_multiple_.val)-1);
+ 
+ /*inistring dstr_2632__*/
+ /*_.VALSTR___V2638*/ curfptr[2637] = (void*)&cdat->dstr_2632__;
+  cdat->dstr_2632__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2632__.val, "), (", sizeof(cdat->dstr_2632__.val)-1);
+ 
+ /*inistring dstr_2633__melt_ptr_t_*/
+ /*_.VALSTR___V2639*/ curfptr[2638] = (void*)&cdat->dstr_2633__melt_ptr_t_;
+  cdat->dstr_2633__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2633__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2633__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2634__*/
+ /*_.VALSTR___V2640*/ curfptr[2639] = (void*)&cdat->dstr_2634__;
+  cdat->dstr_2634__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2634__.val, "))", sizeof(cdat->dstr_2634__.val)-1);
+ 
+ /*inistring dstr_2635__MULTIPLE_PUT_NTH*/
+ /*_.VALSTR___V2632*/ curfptr[2631] = (void*)&cdat->dstr_2635__MULTIPLE_PUT_NTH;
+  cdat->dstr_2635__MULTIPLE_PUT_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2635__MULTIPLE_PUT_NTH.val, "MULTIPLE_PUT_NTH", sizeof(cdat->dstr_2635__MULTIPLE_PUT_NTH.val)-1);
+ 
+ /*iniobj dsym_2636__MULTIPLE_SORT*/
+ if (!/*_.VALDATA___V2642*/ curfptr[2641]) /*_.VALDATA___V2642*/ curfptr[2641] = (void*)&cdat->dsym_2636__MULTIPLE_SORT;
+  melt_assertmsg("iniobj checkdiscr dsym_2636__MULTIPLE_SORT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2636__MULTIPLE_SORT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2636__MULTIPLE_SORT.obj_hash = 959027783;
+  cdat->dsym_2636__MULTIPLE_SORT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2636__MULTIPLE_SORT));
+ 
+ /*inistring dstr_2637__MULTIPLE_SORT*/
+ /*_.VALSTR___V2643*/ curfptr[2642] = (void*)&cdat->dstr_2637__MULTIPLE_SORT;
+  cdat->dstr_2637__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2637__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof(cdat->dstr_2637__MULTIPLE_SORT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1447:/ iniobj");
+ /*iniobj dobj_2638__MULTIPLE_SORT*/
+ if (!/*_.VALDATA___V2644*/ curfptr[2643]) /*_.VALDATA___V2644*/ curfptr[2643] = (void*)&cdat->dobj_2638__MULTIPLE_SORT;
+  melt_assertmsg("iniobj checkdiscr dobj_2638__MULTIPLE_SORT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2638__MULTIPLE_SORT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2638__MULTIPLE_SORT.obj_hash = 488049115;
+  cdat->dobj_2638__MULTIPLE_SORT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2638__MULTIPLE_SORT));
+ 
+ /*inimult dtup_2639__MULTIPLE_SORT*/
+ /*_.VALTUP___V2658*/ curfptr[2657] = (void*)&cdat->dtup_2639__MULTIPLE_SORT;
+  cdat->dtup_2639__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2639__MULTIPLE_SORT.nbval = 7;
+ /*inimult dtup_2640__MULTIPLE_SORT*/
+ /*_.VALTUP___V2653*/ curfptr[2652] = (void*)&cdat->dtup_2640__MULTIPLE_SORT;
+  cdat->dtup_2640__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2640__MULTIPLE_SORT.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1447:/ iniobj");
+ /*iniobj dobj_2641*/
+ if (!/*_.VALDATA___V2646*/ curfptr[2645]) /*_.VALDATA___V2646*/ curfptr[2645] = (void*)&cdat->dobj_2641;
+  melt_assertmsg("iniobj checkdiscr dobj_2641", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2641.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2641.obj_num = 0;
+  cdat->dobj_2641.obj_hash = 5471007;
+  cdat->dobj_2641.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2641));
+ 
+ /*iniobj dsym_2642__CMP*/
+ if (!/*_.VALDATA___V2648*/ curfptr[2647]) /*_.VALDATA___V2648*/ curfptr[2647] = (void*)&cdat->dsym_2642__CMP;
+  melt_assertmsg("iniobj checkdiscr dsym_2642__CMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2642__CMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2642__CMP.obj_hash = 15007439;
+  cdat->dsym_2642__CMP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2642__CMP));
+ 
+ /*inistring dstr_2643__CMP*/
+ /*_.VALSTR___V2649*/ curfptr[2648] = (void*)&cdat->dstr_2643__CMP;
+  cdat->dstr_2643__CMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2643__CMP.val, "CMP", sizeof(cdat->dstr_2643__CMP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1447:/ iniobj");
+ /*iniobj dobj_2644*/
+ if (!/*_.VALDATA___V2647*/ curfptr[2646]) /*_.VALDATA___V2647*/ curfptr[2646] = (void*)&cdat->dobj_2644;
+  melt_assertmsg("iniobj checkdiscr dobj_2644", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2644.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2644.obj_num = 1;
+  cdat->dobj_2644.obj_hash = 4231767;
+  cdat->dobj_2644.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2644));
+ 
+ /*iniobj dsym_2645__DISCRM*/
+ if (!/*_.VALDATA___V2651*/ curfptr[2650]) /*_.VALDATA___V2651*/ curfptr[2650] = (void*)&cdat->dsym_2645__DISCRM;
+  melt_assertmsg("iniobj checkdiscr dsym_2645__DISCRM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2645__DISCRM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2645__DISCRM.obj_hash = 16247456;
+  cdat->dsym_2645__DISCRM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2645__DISCRM));
+ 
+ /*inistring dstr_2646__DISCRM*/
+ /*_.VALSTR___V2652*/ curfptr[2651] = (void*)&cdat->dstr_2646__DISCRM;
+  cdat->dstr_2646__DISCRM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2646__DISCRM.val, "DISCRM", sizeof(cdat->dstr_2646__DISCRM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1447:/ iniobj");
+ /*iniobj dobj_2647*/
+ if (!/*_.VALDATA___V2650*/ curfptr[2649]) /*_.VALDATA___V2650*/ curfptr[2649] = (void*)&cdat->dobj_2647;
+  melt_assertmsg("iniobj checkdiscr dobj_2647", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2647.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2647.obj_num = 2;
+  cdat->dobj_2647.obj_hash = 362102262;
+  cdat->dobj_2647.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2647));
+ 
+ /*inistring dstr_2648__meltgc_sort_mult*/
+ /*_.VALSTR___V2654*/ curfptr[2653] = (void*)&cdat->dstr_2648__meltgc_sort_mult;
+  cdat->dstr_2648__meltgc_sort_mult.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2648__meltgc_sort_mult.val, "meltgc_sort_multiple((melt_ptr_t)(", sizeof(cdat->dstr_2648__meltgc_sort_mult.val)-1);
+ 
+ /*inistring dstr_2649__melt_ptr_t_*/
+ /*_.VALSTR___V2655*/ curfptr[2654] = (void*)&cdat->dstr_2649__melt_ptr_t_;
+  cdat->dstr_2649__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2649__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2649__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2650__melt_ptr_t_*/
+ /*_.VALSTR___V2656*/ curfptr[2655] = (void*)&cdat->dstr_2650__melt_ptr_t_;
+  cdat->dstr_2650__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2650__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_2650__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2651__*/
+ /*_.VALSTR___V2657*/ curfptr[2656] = (void*)&cdat->dstr_2651__;
+  cdat->dstr_2651__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2651__.val, "))", sizeof(cdat->dstr_2651__.val)-1);
+ 
+ /*inistring dstr_2652__MULTIPLE_SORT*/
+ /*_.VALSTR___V2645*/ curfptr[2644] = (void*)&cdat->dstr_2652__MULTIPLE_SORT;
+  cdat->dstr_2652__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2652__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof(cdat->dstr_2652__MULTIPLE_SORT.val)-1);
+ 
+ /*inirout drout_2653__COMPARE_NAMED_ALPHA*/
+ /*_.VALROUT___V2659*/ curfptr[2658] = (void*)&cdat->drout_2653__COMPARE_NAMED_ALPHA;
+  cdat->drout_2653__COMPARE_NAMED_ALPHA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_2653__COMPARE_NAMED_ALPHA.routdescr, "COMPARE_NAMED_ALPHA @warmelt-first.melt:1453",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_2653__COMPARE_NAMED_ALPHA.nbval = 7;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_2653__COMPARE_NAMED_ALPHA, meltrout_1_warmelt_first_COMPARE_NAMED_ALPHA);
+ 
+ /*iniclos dclo_2654__COMPARE_NAMED_ALPHA*/
+ /*_.VALCLO___V2666*/ curfptr[2665] = (void*)&cdat->dclo_2654__COMPARE_NAMED_ALPHA;
+  cdat->dclo_2654__COMPARE_NAMED_ALPHA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_2654__COMPARE_NAMED_ALPHA.nbval = 0;
+ 
+ /*iniboxint dint_2655__*/
+ /*_.VALBXINT___V2660*/ curfptr[2659] = (void*)&cdat->dint_2655__;
+  cdat->dint_2655__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_2655__.val = 0;
+ 
+ /*iniboxint dint_2656__*/
+ /*_.VALBXINT___V2661*/ curfptr[2660] = (void*)&cdat->dint_2656__;
+  cdat->dint_2656__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_2656__.val = 1;
+ 
+ /*iniboxint dint_2657__*/
+ /*_.VALBXINT___V2662*/ curfptr[2661] = (void*)&cdat->dint_2657__;
+  cdat->dint_2657__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_2657__.val = -1;
+ 
+ /*iniboxint dint_2658__*/
+ /*_.VALBXINT___V2663*/ curfptr[2662] = (void*)&cdat->dint_2658__;
+  cdat->dint_2658__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_2658__.val = -1;
+ 
+ /*iniboxint dint_2659__*/
+ /*_.VALBXINT___V2664*/ curfptr[2663] = (void*)&cdat->dint_2659__;
+  cdat->dint_2659__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_2659__.val = 1;
+ 
+ /*iniboxint dint_2660__*/
+ /*_.VALBXINT___V2665*/ curfptr[2664] = (void*)&cdat->dint_2660__;
+  cdat->dint_2660__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_2660__.val = 0;
+ 
+ MELT_LOCATION("warmelt-first.melt:1474:/ iniobj");
+ /*iniobj dobj_2661__TUPLE_NTH*/
+ if (!/*_.VALDATA___V2667*/ curfptr[2666]) /*_.VALDATA___V2667*/ curfptr[2666] = (void*)&cdat->dobj_2661__TUPLE_NTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2661__TUPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_2661__TUPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_2661__TUPLE_NTH.obj_hash = 152647803;
+  cdat->dobj_2661__TUPLE_NTH.obj_len = 9;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2661__TUPLE_NTH));
+ 
+ /*inistring dstr_2662__TUPLE_NTH*/
+ /*_.VALSTR___V2668*/ curfptr[2667] = (void*)&cdat->dstr_2662__TUPLE_NTH;
+  cdat->dstr_2662__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2662__TUPLE_NTH.val, "TUPLE_NTH", sizeof(cdat->dstr_2662__TUPLE_NTH.val)-1);
+ 
+ /*iniobj dsym_2663__MATCHEDRK*/
+ if (!/*_.VALDATA___V2670*/ curfptr[2669]) /*_.VALDATA___V2670*/ curfptr[2669] = (void*)&cdat->dsym_2663__MATCHEDRK;
+  melt_assertmsg("iniobj checkdiscr dsym_2663__MATCHEDRK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2663__MATCHEDRK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2663__MATCHEDRK.obj_hash = 1058504666;
+  cdat->dsym_2663__MATCHEDRK.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2663__MATCHEDRK));
+ 
+ /*inistring dstr_2664__MATCHEDRK*/
+ /*_.VALSTR___V2671*/ curfptr[2670] = (void*)&cdat->dstr_2664__MATCHEDRK;
+  cdat->dstr_2664__MATCHEDRK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2664__MATCHEDRK.val, "MATCHEDRK", sizeof(cdat->dstr_2664__MATCHEDRK.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1474:/ iniobj");
+ /*iniobj dobj_2665*/
+ if (!/*_.VALDATA___V2669*/ curfptr[2668]) /*_.VALDATA___V2669*/ curfptr[2668] = (void*)&cdat->dobj_2665;
+  melt_assertmsg("iniobj checkdiscr dobj_2665", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2665.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2665.obj_num = 0;
+  cdat->dobj_2665.obj_hash = 387899517;
+  cdat->dobj_2665.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2665));
+ 
+ /*inimult dtup_2666__TUPLE_NTH*/
+ /*_.VALTUP___V2672*/ curfptr[2671] = (void*)&cdat->dtup_2666__TUPLE_NTH;
+  cdat->dtup_2666__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2666__TUPLE_NTH.nbval = 1;
+ /*iniobj dsym_2667__MATCHEDTUP*/
+ if (!/*_.VALDATA___V2674*/ curfptr[2673]) /*_.VALDATA___V2674*/ curfptr[2673] = (void*)&cdat->dsym_2667__MATCHEDTUP;
+  melt_assertmsg("iniobj checkdiscr dsym_2667__MATCHEDTUP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2667__MATCHEDTUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2667__MATCHEDTUP.obj_hash = 192748516;
+  cdat->dsym_2667__MATCHEDTUP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2667__MATCHEDTUP));
+ 
+ /*inistring dstr_2668__MATCHEDTUP*/
+ /*_.VALSTR___V2675*/ curfptr[2674] = (void*)&cdat->dstr_2668__MATCHEDTUP;
+  cdat->dstr_2668__MATCHEDTUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2668__MATCHEDTUP.val, "MATCHEDTUP", sizeof(cdat->dstr_2668__MATCHEDTUP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1474:/ iniobj");
+ /*iniobj dobj_2669*/
+ if (!/*_.VALDATA___V2673*/ curfptr[2672]) /*_.VALDATA___V2673*/ curfptr[2672] = (void*)&cdat->dobj_2669;
+  melt_assertmsg("iniobj checkdiscr dobj_2669", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2669.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2669.obj_hash = 1038540042;
+  cdat->dobj_2669.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2669));
+ 
+ /*iniobj dsym_2670__OUTCOMP*/
+ if (!/*_.VALDATA___V2677*/ curfptr[2676]) /*_.VALDATA___V2677*/ curfptr[2676] = (void*)&cdat->dsym_2670__OUTCOMP;
+  melt_assertmsg("iniobj checkdiscr dsym_2670__OUTCOMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2670__OUTCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2670__OUTCOMP.obj_hash = 326576265;
+  cdat->dsym_2670__OUTCOMP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2670__OUTCOMP));
+ 
+ /*inistring dstr_2671__OUTCOMP*/
+ /*_.VALSTR___V2678*/ curfptr[2677] = (void*)&cdat->dstr_2671__OUTCOMP;
+  cdat->dstr_2671__OUTCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2671__OUTCOMP.val, "OUTCOMP", sizeof(cdat->dstr_2671__OUTCOMP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1474:/ iniobj");
+ /*iniobj dobj_2672*/
+ if (!/*_.VALDATA___V2676*/ curfptr[2675]) /*_.VALDATA___V2676*/ curfptr[2675] = (void*)&cdat->dobj_2672;
+  melt_assertmsg("iniobj checkdiscr dobj_2672", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2672.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2672.obj_num = 0;
+  cdat->dobj_2672.obj_hash = 296854882;
+  cdat->dobj_2672.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2672));
+ 
+ /*inimult dtup_2673__TUPLE_NTH*/
+ /*_.VALTUP___V2679*/ curfptr[2678] = (void*)&cdat->dtup_2673__TUPLE_NTH;
+  cdat->dtup_2673__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2673__TUPLE_NTH.nbval = 1;
+ /*iniobj dsym_2674__TUPNTH*/
+ if (!/*_.VALDATA___V2680*/ curfptr[2679]) /*_.VALDATA___V2680*/ curfptr[2679] = (void*)&cdat->dsym_2674__TUPNTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2674__TUPNTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2674__TUPNTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2674__TUPNTH.obj_hash = 701388142;
+  cdat->dsym_2674__TUPNTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2674__TUPNTH));
+ 
+ /*inistring dstr_2675__TUPNTH*/
+ /*_.VALSTR___V2681*/ curfptr[2680] = (void*)&cdat->dstr_2675__TUPNTH;
+  cdat->dstr_2675__TUPNTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2675__TUPNTH.val, "TUPNTH", sizeof(cdat->dstr_2675__TUPNTH.val)-1);
+ 
+ /*inistring dstr_2676__*/
+ /*_.VALSTR___V2682*/ curfptr[2681] = (void*)&cdat->dstr_2676__;
+  cdat->dstr_2676__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2676__.val, "/*", sizeof(cdat->dstr_2676__.val)-1);
+ 
+ /*inistring dstr_2677__melt_is_mu*/
+ /*_.VALSTR___V2683*/ curfptr[2682] = (void*)&cdat->dstr_2677__melt_is_mu;
+  cdat->dstr_2677__melt_is_mu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2677__melt_is_mu.val, " ?*/ (melt_is_multiple_at_least(((melt_ptr_t)", sizeof(cdat->dstr_2677__melt_is_mu.val)-1);
+ 
+ /*inistring dstr_2678__1_int_*/
+ /*_.VALSTR___V2684*/ curfptr[2683] = (void*)&cdat->dstr_2678__1_int_;
+  cdat->dstr_2678__1_int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2678__1_int_.val, "), 1+ (int)(", sizeof(cdat->dstr_2678__1_int_.val)-1);
+ 
+ /*inistring dstr_2679__*/
+ /*_.VALSTR___V2685*/ curfptr[2684] = (void*)&cdat->dstr_2679__;
+  cdat->dstr_2679__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2679__.val, ")))", sizeof(cdat->dstr_2679__.val)-1);
+ 
+ /*inimult dtup_2680__TUPLE_NTH*/
+ /*_.VALTUP___V2686*/ curfptr[2685] = (void*)&cdat->dtup_2680__TUPLE_NTH;
+  cdat->dtup_2680__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2680__TUPLE_NTH.nbval = 7;
+ /*inistring dstr_2681__*/
+ /*_.VALSTR___V2687*/ curfptr[2686] = (void*)&cdat->dstr_2681__;
+  cdat->dstr_2681__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2681__.val, "/*", sizeof(cdat->dstr_2681__.val)-1);
+ 
+ /*inistring dstr_2682__*/
+ /*_.VALSTR___V2688*/ curfptr[2687] = (void*)&cdat->dstr_2682__;
+  cdat->dstr_2682__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2682__.val, " !*/ ", sizeof(cdat->dstr_2682__.val)-1);
+ 
+ /*inistring dstr_2683__melt_multiple*/
+ /*_.VALSTR___V2689*/ curfptr[2688] = (void*)&cdat->dstr_2683__melt_multiple;
+  cdat->dstr_2683__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2683__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_2683__melt_multiple.val)-1);
+ 
+ /*inistring dstr_2684__int_*/
+ /*_.VALSTR___V2690*/ curfptr[2689] = (void*)&cdat->dstr_2684__int_;
+  cdat->dstr_2684__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2684__int_.val, "),(int)(", sizeof(cdat->dstr_2684__int_.val)-1);
+ 
+ /*inistring dstr_2685__*/
+ /*_.VALSTR___V2691*/ curfptr[2690] = (void*)&cdat->dstr_2685__;
+  cdat->dstr_2685__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2685__.val, "));\n   ", sizeof(cdat->dstr_2685__.val)-1);
+ 
+ /*inimult dtup_2686__TUPLE_NTH*/
+ /*_.VALTUP___V2692*/ curfptr[2691] = (void*)&cdat->dtup_2686__TUPLE_NTH;
+  cdat->dtup_2686__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2686__TUPLE_NTH.nbval = 9;
+ MELT_LOCATION("warmelt-first.melt:1491:/ iniobj");
+ /*iniobj dobj_2687__CSTRING_SAME*/
+ if (!/*_.VALDATA___V2693*/ curfptr[2692]) /*_.VALDATA___V2693*/ curfptr[2692] = (void*)&cdat->dobj_2687__CSTRING_SAME;
+  melt_assertmsg("iniobj checkdiscr dobj_2687__CSTRING_SAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_2687__CSTRING_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_2687__CSTRING_SAME.obj_hash = 755719955;
+  cdat->dobj_2687__CSTRING_SAME.obj_len = 9;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2687__CSTRING_SAME));
+ 
+ /*inistring dstr_2688__CSTRING_SAME*/
+ /*_.VALSTR___V2694*/ curfptr[2693] = (void*)&cdat->dstr_2688__CSTRING_SAME;
+  cdat->dstr_2688__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2688__CSTRING_SAME.val, "CSTRING_SAME", sizeof(cdat->dstr_2688__CSTRING_SAME.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1491:/ iniobj");
+ /*iniobj dobj_2689*/
+ if (!/*_.VALDATA___V2695*/ curfptr[2694]) /*_.VALDATA___V2695*/ curfptr[2694] = (void*)&cdat->dobj_2689;
+  melt_assertmsg("iniobj checkdiscr dobj_2689", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2689.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2689.obj_num = 0;
+  cdat->dobj_2689.obj_hash = 397507907;
+  cdat->dobj_2689.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2689));
+ 
+ /*inimult dtup_2690__CSTRING_SAME*/
+ /*_.VALTUP___V2696*/ curfptr[2695] = (void*)&cdat->dtup_2690__CSTRING_SAME;
+  cdat->dtup_2690__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2690__CSTRING_SAME.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1491:/ iniobj");
+ /*iniobj dobj_2691*/
+ if (!/*_.VALDATA___V2697*/ curfptr[2696]) /*_.VALDATA___V2697*/ curfptr[2696] = (void*)&cdat->dobj_2691;
+  melt_assertmsg("iniobj checkdiscr dobj_2691", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2691.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2691.obj_hash = 43290397;
+  cdat->dobj_2691.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2691));
+ 
+ /*inimult dtup_2692__CSTRING_SAME*/
+ /*_.VALTUP___V2698*/ curfptr[2697] = (void*)&cdat->dtup_2692__CSTRING_SAME;
+  cdat->dtup_2692__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2692__CSTRING_SAME.nbval = 0;
+ /*iniobj dsym_2693__STRSAM*/
+ if (!/*_.VALDATA___V2699*/ curfptr[2698]) /*_.VALDATA___V2699*/ curfptr[2698] = (void*)&cdat->dsym_2693__STRSAM;
+  melt_assertmsg("iniobj checkdiscr dsym_2693__STRSAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2693__STRSAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2693__STRSAM.obj_hash = 226540121;
+  cdat->dsym_2693__STRSAM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2693__STRSAM));
+ 
+ /*inistring dstr_2694__STRSAM*/
+ /*_.VALSTR___V2700*/ curfptr[2699] = (void*)&cdat->dstr_2694__STRSAM;
+  cdat->dstr_2694__STRSAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2694__STRSAM.val, "STRSAM", sizeof(cdat->dstr_2694__STRSAM.val)-1);
+ 
+ /*inistring dstr_2695__*/
+ /*_.VALSTR___V2701*/ curfptr[2700] = (void*)&cdat->dstr_2695__;
+  cdat->dstr_2695__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2695__.val, "/*", sizeof(cdat->dstr_2695__.val)-1);
+ 
+ /*inistring dstr_2696__test_*/
+ /*_.VALSTR___V2702*/ curfptr[2701] = (void*)&cdat->dstr_2696__test_;
+  cdat->dstr_2696__test_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2696__test_.val, " test*/ (", sizeof(cdat->dstr_2696__test_.val)-1);
+ 
+ /*inistring dstr_2697__*/
+ /*_.VALSTR___V2703*/ curfptr[2702] = (void*)&cdat->dstr_2697__;
+  cdat->dstr_2697__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2697__.val, " && ", sizeof(cdat->dstr_2697__.val)-1);
+ 
+ /*inistring dstr_2698__strcmp_*/
+ /*_.VALSTR___V2704*/ curfptr[2703] = (void*)&cdat->dstr_2698__strcmp_;
+  cdat->dstr_2698__strcmp_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2698__strcmp_.val, " && !strcmp(", sizeof(cdat->dstr_2698__strcmp_.val)-1);
+ 
+ /*inistring dstr_2699__*/
+ /*_.VALSTR___V2705*/ curfptr[2704] = (void*)&cdat->dstr_2699__;
+  cdat->dstr_2699__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2699__.val, ", ", sizeof(cdat->dstr_2699__.val)-1);
+ 
+ /*inistring dstr_2700__*/
+ /*_.VALSTR___V2706*/ curfptr[2705] = (void*)&cdat->dstr_2700__;
+  cdat->dstr_2700__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2700__.val, ")) ", sizeof(cdat->dstr_2700__.val)-1);
+ 
+ /*inimult dtup_2701__CSTRING_SAME*/
+ /*_.VALTUP___V2707*/ curfptr[2706] = (void*)&cdat->dtup_2701__CSTRING_SAME;
+  cdat->dtup_2701__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2701__CSTRING_SAME.nbval = 11;
+ /*iniobj dsym_2702__CSTRING_LENGTH*/
+ if (!/*_.VALDATA___V2708*/ curfptr[2707]) /*_.VALDATA___V2708*/ curfptr[2707] = (void*)&cdat->dsym_2702__CSTRING_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_2702__CSTRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2702__CSTRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2702__CSTRING_LENGTH.obj_hash = 871204499;
+  cdat->dsym_2702__CSTRING_LENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2702__CSTRING_LENGTH));
+ 
+ /*inistring dstr_2703__CSTRING_LENGTH*/
+ /*_.VALSTR___V2709*/ curfptr[2708] = (void*)&cdat->dstr_2703__CSTRING_LENGTH;
+  cdat->dstr_2703__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2703__CSTRING_LENGTH.val, "CSTRING_LENGTH", sizeof(cdat->dstr_2703__CSTRING_LENGTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1504:/ iniobj");
+ /*iniobj dobj_2704__CSTRING_LENGTH*/
+ if (!/*_.VALDATA___V2710*/ curfptr[2709]) /*_.VALDATA___V2710*/ curfptr[2709] = (void*)&cdat->dobj_2704__CSTRING_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_2704__CSTRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2704__CSTRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2704__CSTRING_LENGTH.obj_hash = 978117674;
+  cdat->dobj_2704__CSTRING_LENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2704__CSTRING_LENGTH));
+ 
+ /*inimult dtup_2705__CSTRING_LENGTH*/
+ /*_.VALTUP___V2717*/ curfptr[2716] = (void*)&cdat->dtup_2705__CSTRING_LENGTH;
+  cdat->dtup_2705__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2705__CSTRING_LENGTH.nbval = 5;
+ /*inimult dtup_2706__CSTRING_LENGTH*/
+ /*_.VALTUP___V2713*/ curfptr[2712] = (void*)&cdat->dtup_2706__CSTRING_LENGTH;
+  cdat->dtup_2706__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2706__CSTRING_LENGTH.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1504:/ iniobj");
+ /*iniobj dobj_2707*/
+ if (!/*_.VALDATA___V2712*/ curfptr[2711]) /*_.VALDATA___V2712*/ curfptr[2711] = (void*)&cdat->dobj_2707;
+  melt_assertmsg("iniobj checkdiscr dobj_2707", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2707.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2707.obj_num = 0;
+  cdat->dobj_2707.obj_hash = 698830893;
+  cdat->dobj_2707.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2707));
  
  /*inistring dstr_2708__*/
  /*_.VALSTR___V2714*/ curfptr[2713] = (void*)&cdat->dstr_2708__;
   cdat->dstr_2708__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2708__.val, ")) ", sizeof(cdat->dstr_2708__.val)-1);
- 
- /*inimult dtup_2709__CSTRING_SAME*/
- /*_.VALTUP___V2715*/ curfptr[2714] = (void*)&cdat->dtup_2709__CSTRING_SAME;
-  cdat->dtup_2709__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2709__CSTRING_SAME.nbval = 11;
- /*iniobj dsym_2710__CSTRING_LENGTH*/
- if (!/*_.VALDATA___V2716*/ curfptr[2715]) /*_.VALDATA___V2716*/ curfptr[2715] = (void*)&cdat->dsym_2710__CSTRING_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_2710__CSTRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2710__CSTRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2710__CSTRING_LENGTH.obj_hash = 871204499;
-  cdat->dsym_2710__CSTRING_LENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2710__CSTRING_LENGTH));
+  strncpy(cdat->dstr_2708__.val, "((", sizeof(cdat->dstr_2708__.val)-1);
+ 
+ /*inistring dstr_2709__strlen_*/
+ /*_.VALSTR___V2715*/ curfptr[2714] = (void*)&cdat->dstr_2709__strlen_;
+  cdat->dstr_2709__strlen_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2709__strlen_.val, ")?strlen(", sizeof(cdat->dstr_2709__strlen_.val)-1);
+ 
+ /*inistring dstr_2710__0_*/
+ /*_.VALSTR___V2716*/ curfptr[2715] = (void*)&cdat->dstr_2710__0_;
+  cdat->dstr_2710__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2710__0_.val, "):0)", sizeof(cdat->dstr_2710__0_.val)-1);
  
  /*inistring dstr_2711__CSTRING_LENGTH*/
- /*_.VALSTR___V2717*/ curfptr[2716] = (void*)&cdat->dstr_2711__CSTRING_LENGTH;
+ /*_.VALSTR___V2711*/ curfptr[2710] = (void*)&cdat->dstr_2711__CSTRING_LENGTH;
   cdat->dstr_2711__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_2711__CSTRING_LENGTH.val, "CSTRING_LENGTH", sizeof(cdat->dstr_2711__CSTRING_LENGTH.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ iniobj");
- /*iniobj dobj_2712__CSTRING_LENGTH*/
- if (!/*_.VALDATA___V2718*/ curfptr[2717]) /*_.VALDATA___V2718*/ curfptr[2717] = (void*)&cdat->dobj_2712__CSTRING_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_2712__CSTRING_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2712__CSTRING_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2712__CSTRING_LENGTH.obj_hash = 469351599;
-  cdat->dobj_2712__CSTRING_LENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2712__CSTRING_LENGTH));
- 
- /*inimult dtup_2713__CSTRING_LENGTH*/
- /*_.VALTUP___V2725*/ curfptr[2724] = (void*)&cdat->dtup_2713__CSTRING_LENGTH;
-  cdat->dtup_2713__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2713__CSTRING_LENGTH.nbval = 5;
- /*inimult dtup_2714__CSTRING_LENGTH*/
- /*_.VALTUP___V2721*/ curfptr[2720] = (void*)&cdat->dtup_2714__CSTRING_LENGTH;
-  cdat->dtup_2714__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2714__CSTRING_LENGTH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1509:/ iniobj");
- /*iniobj dobj_2715*/
- if (!/*_.VALDATA___V2720*/ curfptr[2719]) /*_.VALDATA___V2720*/ curfptr[2719] = (void*)&cdat->dobj_2715;
-  melt_assertmsg("iniobj checkdiscr dobj_2715", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2715.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2715.obj_num = 0;
-  cdat->dobj_2715.obj_hash = 794914932;
-  cdat->dobj_2715.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2715));
- 
- /*inistring dstr_2716__*/
- /*_.VALSTR___V2722*/ curfptr[2721] = (void*)&cdat->dstr_2716__;
-  cdat->dstr_2716__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2716__.val, "((", sizeof(cdat->dstr_2716__.val)-1);
- 
- /*inistring dstr_2717__strlen_*/
- /*_.VALSTR___V2723*/ curfptr[2722] = (void*)&cdat->dstr_2717__strlen_;
-  cdat->dstr_2717__strlen_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2717__strlen_.val, ")?strlen(", sizeof(cdat->dstr_2717__strlen_.val)-1);
- 
- /*inistring dstr_2718__0_*/
- /*_.VALSTR___V2724*/ curfptr[2723] = (void*)&cdat->dstr_2718__0_;
-  cdat->dstr_2718__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2718__0_.val, "):0)", sizeof(cdat->dstr_2718__0_.val)-1);
- 
- /*inistring dstr_2719__CSTRING_LENGTH*/
- /*_.VALSTR___V2719*/ curfptr[2718] = (void*)&cdat->dstr_2719__CSTRING_LENGTH;
-  cdat->dstr_2719__CSTRING_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2719__CSTRING_LENGTH.val, "CSTRING_LENGTH", sizeof(cdat->dstr_2719__CSTRING_LENGTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1515:/ iniobj");
- /*iniobj dobj_2720__TUPLE_SIZED*/
- if (!/*_.VALDATA___V2726*/ curfptr[2725]) /*_.VALDATA___V2726*/ curfptr[2725] = (void*)&cdat->dobj_2720__TUPLE_SIZED;
-  melt_assertmsg("iniobj checkdiscr dobj_2720__TUPLE_SIZED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_2720__TUPLE_SIZED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_2720__TUPLE_SIZED.obj_hash = 713414757;
-  cdat->dobj_2720__TUPLE_SIZED.obj_len = 9;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2720__TUPLE_SIZED));
- 
- /*inistring dstr_2721__TUPLE_SIZED*/
- /*_.VALSTR___V2727*/ curfptr[2726] = (void*)&cdat->dstr_2721__TUPLE_SIZED;
-  cdat->dstr_2721__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2721__TUPLE_SIZED.val, "TUPLE_SIZED", sizeof(cdat->dstr_2721__TUPLE_SIZED.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1515:/ iniobj");
- /*iniobj dobj_2722*/
- if (!/*_.VALDATA___V2728*/ curfptr[2727]) /*_.VALDATA___V2728*/ curfptr[2727] = (void*)&cdat->dobj_2722;
-  melt_assertmsg("iniobj checkdiscr dobj_2722", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2722.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2722.obj_num = 0;
-  cdat->dobj_2722.obj_hash = 349875406;
-  cdat->dobj_2722.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2722));
- 
- /*inimult dtup_2723__TUPLE_SIZED*/
- /*_.VALTUP___V2729*/ curfptr[2728] = (void*)&cdat->dtup_2723__TUPLE_SIZED;
-  cdat->dtup_2723__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2723__TUPLE_SIZED.nbval = 1;
- /*iniobj dsym_2724__TUP*/
- if (!/*_.VALDATA___V2731*/ curfptr[2730]) /*_.VALDATA___V2731*/ curfptr[2730] = (void*)&cdat->dsym_2724__TUP;
-  melt_assertmsg("iniobj checkdiscr dsym_2724__TUP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2724__TUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2724__TUP.obj_hash = 224489460;
-  cdat->dsym_2724__TUP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2724__TUP));
- 
- /*inistring dstr_2725__TUP*/
- /*_.VALSTR___V2732*/ curfptr[2731] = (void*)&cdat->dstr_2725__TUP;
-  cdat->dstr_2725__TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2725__TUP.val, "TUP", sizeof(cdat->dstr_2725__TUP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1515:/ iniobj");
- /*iniobj dobj_2726*/
- if (!/*_.VALDATA___V2730*/ curfptr[2729]) /*_.VALDATA___V2730*/ curfptr[2729] = (void*)&cdat->dobj_2726;
-  melt_assertmsg("iniobj checkdiscr dobj_2726", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2726.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2726.obj_hash = 73500189;
-  cdat->dobj_2726.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2726));
- 
- /*inimult dtup_2727__TUPLE_SIZED*/
- /*_.VALTUP___V2733*/ curfptr[2732] = (void*)&cdat->dtup_2727__TUPLE_SIZED;
-  cdat->dtup_2727__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2727__TUPLE_SIZED.nbval = 0;
- /*iniobj dsym_2728__TUPSIZ*/
- if (!/*_.VALDATA___V2734*/ curfptr[2733]) /*_.VALDATA___V2734*/ curfptr[2733] = (void*)&cdat->dsym_2728__TUPSIZ;
-  melt_assertmsg("iniobj checkdiscr dsym_2728__TUPSIZ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2728__TUPSIZ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2728__TUPSIZ.obj_hash = 554385648;
-  cdat->dsym_2728__TUPSIZ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2728__TUPSIZ));
- 
- /*inistring dstr_2729__TUPSIZ*/
- /*_.VALSTR___V2735*/ curfptr[2734] = (void*)&cdat->dstr_2729__TUPSIZ;
-  cdat->dstr_2729__TUPSIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2729__TUPSIZ.val, "TUPSIZ", sizeof(cdat->dstr_2729__TUPSIZ.val)-1);
- 
- /*inistring dstr_2730__melt_is_multipl*/
- /*_.VALSTR___V2736*/ curfptr[2735] = (void*)&cdat->dstr_2730__melt_is_multipl;
-  cdat->dstr_2730__melt_is_multipl.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2730__melt_is_multipl.val, "(melt_is_multiple_of_length((melt_ptr_t)(", sizeof(cdat->dstr_2730__melt_is_multipl.val)-1);
- 
- /*inistring dstr_2731__int_*/
- /*_.VALSTR___V2737*/ curfptr[2736] = (void*)&cdat->dstr_2731__int_;
-  cdat->dstr_2731__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2731__int_.val, "), (int) (", sizeof(cdat->dstr_2731__int_.val)-1);
- 
- /*inistring dstr_2732__*/
- /*_.VALSTR___V2738*/ curfptr[2737] = (void*)&cdat->dstr_2732__;
-  cdat->dstr_2732__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2732__.val, ")))", sizeof(cdat->dstr_2732__.val)-1);
- 
- /*inimult dtup_2733__TUPLE_SIZED*/
- /*_.VALTUP___V2739*/ curfptr[2738] = (void*)&cdat->dtup_2733__TUPLE_SIZED;
-  cdat->dtup_2733__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2733__TUPLE_SIZED.nbval = 5;
- /*iniobj dsym_2734__IS_MAPOBJECT*/
- if (!/*_.VALDATA___V2740*/ curfptr[2739]) /*_.VALDATA___V2740*/ curfptr[2739] = (void*)&cdat->dsym_2734__IS_MAPOBJECT;
-  melt_assertmsg("iniobj checkdiscr dsym_2734__IS_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2734__IS_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2734__IS_MAPOBJECT.obj_hash = 520201871;
-  cdat->dsym_2734__IS_MAPOBJECT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2734__IS_MAPOBJECT));
- 
- /*inistring dstr_2735__IS_MAPOBJECT*/
- /*_.VALSTR___V2741*/ curfptr[2740] = (void*)&cdat->dstr_2735__IS_MAPOBJECT;
-  cdat->dstr_2735__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2735__IS_MAPOBJECT.val, "IS_MAPOBJECT", sizeof(cdat->dstr_2735__IS_MAPOBJECT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1529:/ iniobj");
- /*iniobj dobj_2736__IS_MAPOBJECT*/
- if (!/*_.VALDATA___V2742*/ curfptr[2741]) /*_.VALDATA___V2742*/ curfptr[2741] = (void*)&cdat->dobj_2736__IS_MAPOBJECT;
-  melt_assertmsg("iniobj checkdiscr dobj_2736__IS_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2736__IS_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2736__IS_MAPOBJECT.obj_hash = 770800737;
-  cdat->dobj_2736__IS_MAPOBJECT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2736__IS_MAPOBJECT));
- 
- /*inimult dtup_2737__IS_MAPOBJECT*/
- /*_.VALTUP___V2750*/ curfptr[2749] = (void*)&cdat->dtup_2737__IS_MAPOBJECT;
-  cdat->dtup_2737__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2737__IS_MAPOBJECT.nbval = 3;
- /*inimult dtup_2738__IS_MAPOBJECT*/
- /*_.VALTUP___V2747*/ curfptr[2746] = (void*)&cdat->dtup_2738__IS_MAPOBJECT;
-  cdat->dtup_2738__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2738__IS_MAPOBJECT.nbval = 1;
- /*iniobj dsym_2739__MAP*/
- if (!/*_.VALDATA___V2745*/ curfptr[2744]) /*_.VALDATA___V2745*/ curfptr[2744] = (void*)&cdat->dsym_2739__MAP;
-  melt_assertmsg("iniobj checkdiscr dsym_2739__MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2739__MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2739__MAP.obj_hash = 74541903;
-  cdat->dsym_2739__MAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2739__MAP));
- 
- /*inistring dstr_2740__MAP*/
- /*_.VALSTR___V2746*/ curfptr[2745] = (void*)&cdat->dstr_2740__MAP;
-  cdat->dstr_2740__MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2740__MAP.val, "MAP", sizeof(cdat->dstr_2740__MAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1529:/ iniobj");
- /*iniobj dobj_2741*/
- if (!/*_.VALDATA___V2744*/ curfptr[2743]) /*_.VALDATA___V2744*/ curfptr[2743] = (void*)&cdat->dobj_2741;
-  melt_assertmsg("iniobj checkdiscr dobj_2741", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2741.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2741.obj_num = 0;
-  cdat->dobj_2741.obj_hash = 225712500;
-  cdat->dobj_2741.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2741));
- 
- /*inistring dstr_2742__melt_magic_disc*/
- /*_.VALSTR___V2748*/ curfptr[2747] = (void*)&cdat->dstr_2742__melt_magic_disc;
-  cdat->dstr_2742__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2742__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2742__melt_magic_disc.val)-1);
- 
- /*inistring dstr_2743__OBMAG_MAPO*/
- /*_.VALSTR___V2749*/ curfptr[2748] = (void*)&cdat->dstr_2743__OBMAG_MAPO;
-  cdat->dstr_2743__OBMAG_MAPO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2743__OBMAG_MAPO.val, ")) == OBMAG_MAPOBJECTS)", sizeof(cdat->dstr_2743__OBMAG_MAPO.val)-1);
- 
- /*inistring dstr_2744__IS_MAPOBJECT*/
- /*_.VALSTR___V2743*/ curfptr[2742] = (void*)&cdat->dstr_2744__IS_MAPOBJECT;
-  cdat->dstr_2744__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2744__IS_MAPOBJECT.val, "IS_MAPOBJECT", sizeof(cdat->dstr_2744__IS_MAPOBJECT.val)-1);
- 
- /*iniobj dsym_2745__MAPOBJECT_SIZE*/
- if (!/*_.VALDATA___V2751*/ curfptr[2750]) /*_.VALDATA___V2751*/ curfptr[2750] = (void*)&cdat->dsym_2745__MAPOBJECT_SIZE;
-  melt_assertmsg("iniobj checkdiscr dsym_2745__MAPOBJECT_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2745__MAPOBJECT_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2745__MAPOBJECT_SIZE.obj_hash = 932988071;
-  cdat->dsym_2745__MAPOBJECT_SIZE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2745__MAPOBJECT_SIZE));
- 
- /*inistring dstr_2746__MAPOBJECT_SIZE*/
- /*_.VALSTR___V2752*/ curfptr[2751] = (void*)&cdat->dstr_2746__MAPOBJECT_SIZE;
-  cdat->dstr_2746__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2746__MAPOBJECT_SIZE.val, "MAPOBJECT_SIZE", sizeof(cdat->dstr_2746__MAPOBJECT_SIZE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1533:/ iniobj");
- /*iniobj dobj_2747__MAPOBJECT_SIZE*/
- if (!/*_.VALDATA___V2753*/ curfptr[2752]) /*_.VALDATA___V2753*/ curfptr[2752] = (void*)&cdat->dobj_2747__MAPOBJECT_SIZE;
-  melt_assertmsg("iniobj checkdiscr dobj_2747__MAPOBJECT_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2747__MAPOBJECT_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2747__MAPOBJECT_SIZE.obj_hash = 871841958;
-  cdat->dobj_2747__MAPOBJECT_SIZE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2747__MAPOBJECT_SIZE));
- 
- /*inimult dtup_2748__MAPOBJECT_SIZE*/
- /*_.VALTUP___V2759*/ curfptr[2758] = (void*)&cdat->dtup_2748__MAPOBJECT_SIZE;
-  cdat->dtup_2748__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2748__MAPOBJECT_SIZE.nbval = 3;
- /*inimult dtup_2749__MAPOBJECT_SIZE*/
- /*_.VALTUP___V2756*/ curfptr[2755] = (void*)&cdat->dtup_2749__MAPOBJECT_SIZE;
-  cdat->dtup_2749__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2749__MAPOBJECT_SIZE.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1533:/ iniobj");
- /*iniobj dobj_2750*/
- if (!/*_.VALDATA___V2755*/ curfptr[2754]) /*_.VALDATA___V2755*/ curfptr[2754] = (void*)&cdat->dobj_2750;
-  melt_assertmsg("iniobj checkdiscr dobj_2750", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2750.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2750.obj_num = 0;
-  cdat->dobj_2750.obj_hash = 553498448;
-  cdat->dobj_2750.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2750));
- 
- /*inistring dstr_2751__melt_size_mapob*/
- /*_.VALSTR___V2757*/ curfptr[2756] = (void*)&cdat->dstr_2751__melt_size_mapob;
-  cdat->dstr_2751__melt_size_mapob.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2751__melt_size_mapob.val, "(melt_size_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2751__melt_size_mapob.val)-1);
- 
- /*inistring dstr_2752__*/
- /*_.VALSTR___V2758*/ curfptr[2757] = (void*)&cdat->dstr_2752__;
-  cdat->dstr_2752__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2752__.val, ")))", sizeof(cdat->dstr_2752__.val)-1);
- 
- /*inistring dstr_2753__MAPOBJECT_SIZE*/
- /*_.VALSTR___V2754*/ curfptr[2753] = (void*)&cdat->dstr_2753__MAPOBJECT_SIZE;
-  cdat->dstr_2753__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2753__MAPOBJECT_SIZE.val, "MAPOBJECT_SIZE", sizeof(cdat->dstr_2753__MAPOBJECT_SIZE.val)-1);
- 
- /*iniobj dsym_2754__MAPOBJECT_COUNT*/
- if (!/*_.VALDATA___V2760*/ curfptr[2759]) /*_.VALDATA___V2760*/ curfptr[2759] = (void*)&cdat->dsym_2754__MAPOBJECT_COUNT;
-  melt_assertmsg("iniobj checkdiscr dsym_2754__MAPOBJECT_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2754__MAPOBJECT_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2754__MAPOBJECT_COUNT.obj_hash = 548796546;
-  cdat->dsym_2754__MAPOBJECT_COUNT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2754__MAPOBJECT_COUNT));
- 
- /*inistring dstr_2755__MAPOBJECT_COUNT*/
- /*_.VALSTR___V2761*/ curfptr[2760] = (void*)&cdat->dstr_2755__MAPOBJECT_COUNT;
-  cdat->dstr_2755__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2755__MAPOBJECT_COUNT.val, "MAPOBJECT_COUNT", sizeof(cdat->dstr_2755__MAPOBJECT_COUNT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1537:/ iniobj");
- /*iniobj dobj_2756__MAPOBJECT_COUNT*/
- if (!/*_.VALDATA___V2762*/ curfptr[2761]) /*_.VALDATA___V2762*/ curfptr[2761] = (void*)&cdat->dobj_2756__MAPOBJECT_COUNT;
-  melt_assertmsg("iniobj checkdiscr dobj_2756__MAPOBJECT_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2756__MAPOBJECT_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2756__MAPOBJECT_COUNT.obj_hash = 788956652;
-  cdat->dobj_2756__MAPOBJECT_COUNT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2756__MAPOBJECT_COUNT));
- 
- /*inimult dtup_2757__MAPOBJECT_COUNT*/
- /*_.VALTUP___V2768*/ curfptr[2767] = (void*)&cdat->dtup_2757__MAPOBJECT_COUNT;
-  cdat->dtup_2757__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2757__MAPOBJECT_COUNT.nbval = 3;
- /*inimult dtup_2758__MAPOBJECT_COUNT*/
- /*_.VALTUP___V2765*/ curfptr[2764] = (void*)&cdat->dtup_2758__MAPOBJECT_COUNT;
-  cdat->dtup_2758__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2758__MAPOBJECT_COUNT.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1537:/ iniobj");
- /*iniobj dobj_2759*/
- if (!/*_.VALDATA___V2764*/ curfptr[2763]) /*_.VALDATA___V2764*/ curfptr[2763] = (void*)&cdat->dobj_2759;
-  melt_assertmsg("iniobj checkdiscr dobj_2759", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2759.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2759.obj_num = 0;
-  cdat->dobj_2759.obj_hash = 70270590;
-  cdat->dobj_2759.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2759));
- 
- /*inistring dstr_2760__melt_count_mapo*/
- /*_.VALSTR___V2766*/ curfptr[2765] = (void*)&cdat->dstr_2760__melt_count_mapo;
-  cdat->dstr_2760__melt_count_mapo.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2760__melt_count_mapo.val, "(melt_count_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2760__melt_count_mapo.val)-1);
- 
- /*inistring dstr_2761__*/
- /*_.VALSTR___V2767*/ curfptr[2766] = (void*)&cdat->dstr_2761__;
-  cdat->dstr_2761__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2761__.val, ")))", sizeof(cdat->dstr_2761__.val)-1);
- 
- /*inistring dstr_2762__MAPOBJECT_COUNT*/
- /*_.VALSTR___V2763*/ curfptr[2762] = (void*)&cdat->dstr_2762__MAPOBJECT_COUNT;
-  cdat->dstr_2762__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2762__MAPOBJECT_COUNT.val, "MAPOBJECT_COUNT", sizeof(cdat->dstr_2762__MAPOBJECT_COUNT.val)-1);
- 
- /*iniobj dsym_2763__MAPOBJECT_NTH_ATTR*/
- if (!/*_.VALDATA___V2769*/ curfptr[2768]) /*_.VALDATA___V2769*/ curfptr[2768] = (void*)&cdat->dsym_2763__MAPOBJECT_NTH_ATTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2763__MAPOBJECT_NTH_ATTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2763__MAPOBJECT_NTH_ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2763__MAPOBJECT_NTH_ATTR.obj_hash = 418076721;
-  cdat->dsym_2763__MAPOBJECT_NTH_ATTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2763__MAPOBJECT_NTH_ATTR));
- 
- /*inistring dstr_2764__MAPOBJECT_NTH_AT*/
- /*_.VALSTR___V2770*/ curfptr[2769] = (void*)&cdat->dstr_2764__MAPOBJECT_NTH_AT;
-  cdat->dstr_2764__MAPOBJECT_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2764__MAPOBJECT_NTH_AT.val, "MAPOBJECT_NTH_ATTR", sizeof(cdat->dstr_2764__MAPOBJECT_NTH_AT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1541:/ iniobj");
- /*iniobj dobj_2765__MAPOBJECT_NTH_ATTR*/
- if (!/*_.VALDATA___V2771*/ curfptr[2770]) /*_.VALDATA___V2771*/ curfptr[2770] = (void*)&cdat->dobj_2765__MAPOBJECT_NTH_ATTR;
-  melt_assertmsg("iniobj checkdiscr dobj_2765__MAPOBJECT_NTH_ATTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2765__MAPOBJECT_NTH_ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2765__MAPOBJECT_NTH_ATTR.obj_hash = 152608946;
-  cdat->dobj_2765__MAPOBJECT_NTH_ATTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2765__MAPOBJECT_NTH_ATTR));
- 
- /*inimult dtup_2766__MAPOBJECT_NTH_ATTR*/
- /*_.VALTUP___V2779*/ curfptr[2778] = (void*)&cdat->dtup_2766__MAPOBJECT_NTH_ATTR;
-  cdat->dtup_2766__MAPOBJECT_NTH_ATTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2766__MAPOBJECT_NTH_ATTR.nbval = 5;
- /*inimult dtup_2767__MAPOBJECT_NTH_ATTR*/
- /*_.VALTUP___V2775*/ curfptr[2774] = (void*)&cdat->dtup_2767__MAPOBJECT_NTH_ATTR;
-  cdat->dtup_2767__MAPOBJECT_NTH_ATTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2767__MAPOBJECT_NTH_ATTR.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1541:/ iniobj");
- /*iniobj dobj_2768*/
- if (!/*_.VALDATA___V2773*/ curfptr[2772]) /*_.VALDATA___V2773*/ curfptr[2772] = (void*)&cdat->dobj_2768;
-  melt_assertmsg("iniobj checkdiscr dobj_2768", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2768.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2768.obj_num = 0;
-  cdat->dobj_2768.obj_hash = 839418576;
-  cdat->dobj_2768.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2768));
- 
- MELT_LOCATION("warmelt-first.melt:1541:/ iniobj");
- /*iniobj dobj_2769*/
- if (!/*_.VALDATA___V2774*/ curfptr[2773]) /*_.VALDATA___V2774*/ curfptr[2773] = (void*)&cdat->dobj_2769;
-  melt_assertmsg("iniobj checkdiscr dobj_2769", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2769.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2769.obj_num = 1;
-  cdat->dobj_2769.obj_hash = 804450610;
-  cdat->dobj_2769.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2769));
- 
- /*inistring dstr_2770__melt_nthattr_ma*/
- /*_.VALSTR___V2776*/ curfptr[2775] = (void*)&cdat->dstr_2770__melt_nthattr_ma;
-  cdat->dstr_2770__melt_nthattr_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2770__melt_nthattr_ma.val, "(melt_nthattr_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2770__melt_nthattr_ma.val)-1);
- 
- /*inistring dstr_2771__int_*/
- /*_.VALSTR___V2777*/ curfptr[2776] = (void*)&cdat->dstr_2771__int_;
-  cdat->dstr_2771__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2771__int_.val, "), (int)(", sizeof(cdat->dstr_2771__int_.val)-1);
- 
- /*inistring dstr_2772__*/
- /*_.VALSTR___V2778*/ curfptr[2777] = (void*)&cdat->dstr_2772__;
-  cdat->dstr_2772__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2772__.val, ")))", sizeof(cdat->dstr_2772__.val)-1);
- 
- /*inistring dstr_2773__MAPOBJECT_NTH_AT*/
- /*_.VALSTR___V2772*/ curfptr[2771] = (void*)&cdat->dstr_2773__MAPOBJECT_NTH_AT;
-  cdat->dstr_2773__MAPOBJECT_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2773__MAPOBJECT_NTH_AT.val, "MAPOBJECT_NTH_ATTR", sizeof(cdat->dstr_2773__MAPOBJECT_NTH_AT.val)-1);
- 
- /*iniobj dsym_2774__MAPOBJECT_NTH_VAL*/
- if (!/*_.VALDATA___V2780*/ curfptr[2779]) /*_.VALDATA___V2780*/ curfptr[2779] = (void*)&cdat->dsym_2774__MAPOBJECT_NTH_VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_2774__MAPOBJECT_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2774__MAPOBJECT_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2774__MAPOBJECT_NTH_VAL.obj_hash = 420399089;
-  cdat->dsym_2774__MAPOBJECT_NTH_VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2774__MAPOBJECT_NTH_VAL));
- 
- /*inistring dstr_2775__MAPOBJECT_NTH_VA*/
- /*_.VALSTR___V2781*/ curfptr[2780] = (void*)&cdat->dstr_2775__MAPOBJECT_NTH_VA;
-  cdat->dstr_2775__MAPOBJECT_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2775__MAPOBJECT_NTH_VA.val, "MAPOBJECT_NTH_VAL", sizeof(cdat->dstr_2775__MAPOBJECT_NTH_VA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1545:/ iniobj");
- /*iniobj dobj_2776__MAPOBJECT_NTH_VAL*/
- if (!/*_.VALDATA___V2782*/ curfptr[2781]) /*_.VALDATA___V2782*/ curfptr[2781] = (void*)&cdat->dobj_2776__MAPOBJECT_NTH_VAL;
-  melt_assertmsg("iniobj checkdiscr dobj_2776__MAPOBJECT_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2776__MAPOBJECT_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2776__MAPOBJECT_NTH_VAL.obj_hash = 175673641;
-  cdat->dobj_2776__MAPOBJECT_NTH_VAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2776__MAPOBJECT_NTH_VAL));
- 
- /*inimult dtup_2777__MAPOBJECT_NTH_VAL*/
- /*_.VALTUP___V2790*/ curfptr[2789] = (void*)&cdat->dtup_2777__MAPOBJECT_NTH_VAL;
-  cdat->dtup_2777__MAPOBJECT_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2777__MAPOBJECT_NTH_VAL.nbval = 5;
- /*inimult dtup_2778__MAPOBJECT_NTH_VAL*/
- /*_.VALTUP___V2786*/ curfptr[2785] = (void*)&cdat->dtup_2778__MAPOBJECT_NTH_VAL;
-  cdat->dtup_2778__MAPOBJECT_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2778__MAPOBJECT_NTH_VAL.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1545:/ iniobj");
- /*iniobj dobj_2779*/
- if (!/*_.VALDATA___V2784*/ curfptr[2783]) /*_.VALDATA___V2784*/ curfptr[2783] = (void*)&cdat->dobj_2779;
-  melt_assertmsg("iniobj checkdiscr dobj_2779", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2779.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2779.obj_num = 0;
-  cdat->dobj_2779.obj_hash = 758259958;
-  cdat->dobj_2779.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2779));
- 
- MELT_LOCATION("warmelt-first.melt:1545:/ iniobj");
- /*iniobj dobj_2780*/
- if (!/*_.VALDATA___V2785*/ curfptr[2784]) /*_.VALDATA___V2785*/ curfptr[2784] = (void*)&cdat->dobj_2780;
-  melt_assertmsg("iniobj checkdiscr dobj_2780", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2780.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2780.obj_num = 1;
-  cdat->dobj_2780.obj_hash = 407517008;
-  cdat->dobj_2780.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2780));
- 
- /*inistring dstr_2781__melt_nthval_map*/
- /*_.VALSTR___V2787*/ curfptr[2786] = (void*)&cdat->dstr_2781__melt_nthval_map;
-  cdat->dstr_2781__melt_nthval_map.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2781__melt_nthval_map.val, "(melt_nthval_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2781__melt_nthval_map.val)-1);
- 
- /*inistring dstr_2782__int_*/
- /*_.VALSTR___V2788*/ curfptr[2787] = (void*)&cdat->dstr_2782__int_;
-  cdat->dstr_2782__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2782__int_.val, "), (int)(", sizeof(cdat->dstr_2782__int_.val)-1);
- 
- /*inistring dstr_2783__*/
- /*_.VALSTR___V2789*/ curfptr[2788] = (void*)&cdat->dstr_2783__;
-  cdat->dstr_2783__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2783__.val, ")))", sizeof(cdat->dstr_2783__.val)-1);
- 
- /*inistring dstr_2784__MAPOBJECT_NTH_VA*/
- /*_.VALSTR___V2783*/ curfptr[2782] = (void*)&cdat->dstr_2784__MAPOBJECT_NTH_VA;
-  cdat->dstr_2784__MAPOBJECT_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2784__MAPOBJECT_NTH_VA.val, "MAPOBJECT_NTH_VAL", sizeof(cdat->dstr_2784__MAPOBJECT_NTH_VA.val)-1);
- 
- /*iniobj dsym_2785__MAPOBJECT_GET*/
- if (!/*_.VALDATA___V2791*/ curfptr[2790]) /*_.VALDATA___V2791*/ curfptr[2790] = (void*)&cdat->dsym_2785__MAPOBJECT_GET;
-  melt_assertmsg("iniobj checkdiscr dsym_2785__MAPOBJECT_GET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2785__MAPOBJECT_GET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2785__MAPOBJECT_GET.obj_hash = 1046193678;
-  cdat->dsym_2785__MAPOBJECT_GET.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2785__MAPOBJECT_GET));
- 
- /*inistring dstr_2786__MAPOBJECT_GET*/
- /*_.VALSTR___V2792*/ curfptr[2791] = (void*)&cdat->dstr_2786__MAPOBJECT_GET;
-  cdat->dstr_2786__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2786__MAPOBJECT_GET.val, "MAPOBJECT_GET", sizeof(cdat->dstr_2786__MAPOBJECT_GET.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1549:/ iniobj");
- /*iniobj dobj_2787__MAPOBJECT_GET*/
- if (!/*_.VALDATA___V2793*/ curfptr[2792]) /*_.VALDATA___V2793*/ curfptr[2792] = (void*)&cdat->dobj_2787__MAPOBJECT_GET;
-  melt_assertmsg("iniobj checkdiscr dobj_2787__MAPOBJECT_GET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2787__MAPOBJECT_GET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2787__MAPOBJECT_GET.obj_hash = 1071540758;
-  cdat->dobj_2787__MAPOBJECT_GET.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2787__MAPOBJECT_GET));
- 
- /*inimult dtup_2788__MAPOBJECT_GET*/
- /*_.VALTUP___V2803*/ curfptr[2802] = (void*)&cdat->dtup_2788__MAPOBJECT_GET;
-  cdat->dtup_2788__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2788__MAPOBJECT_GET.nbval = 5;
- /*inimult dtup_2789__MAPOBJECT_GET*/
- /*_.VALTUP___V2799*/ curfptr[2798] = (void*)&cdat->dtup_2789__MAPOBJECT_GET;
-  cdat->dtup_2789__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2789__MAPOBJECT_GET.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1549:/ iniobj");
- /*iniobj dobj_2790*/
- if (!/*_.VALDATA___V2795*/ curfptr[2794]) /*_.VALDATA___V2795*/ curfptr[2794] = (void*)&cdat->dobj_2790;
-  melt_assertmsg("iniobj checkdiscr dobj_2790", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2790.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2790.obj_num = 0;
-  cdat->dobj_2790.obj_hash = 127815846;
-  cdat->dobj_2790.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2790));
- 
- /*iniobj dsym_2791__ATTR*/
- if (!/*_.VALDATA___V2797*/ curfptr[2796]) /*_.VALDATA___V2797*/ curfptr[2796] = (void*)&cdat->dsym_2791__ATTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2791__ATTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2791__ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2791__ATTR.obj_hash = 114596595;
-  cdat->dsym_2791__ATTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2791__ATTR));
- 
- /*inistring dstr_2792__ATTR*/
- /*_.VALSTR___V2798*/ curfptr[2797] = (void*)&cdat->dstr_2792__ATTR;
-  cdat->dstr_2792__ATTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2792__ATTR.val, "ATTR", sizeof(cdat->dstr_2792__ATTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1549:/ iniobj");
- /*iniobj dobj_2793*/
- if (!/*_.VALDATA___V2796*/ curfptr[2795]) /*_.VALDATA___V2796*/ curfptr[2795] = (void*)&cdat->dobj_2793;
-  melt_assertmsg("iniobj checkdiscr dobj_2793", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2793.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2793.obj_num = 1;
-  cdat->dobj_2793.obj_hash = 612469323;
-  cdat->dobj_2793.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2793));
- 
- /*inistring dstr_2794__melt_get_mapobje*/
- /*_.VALSTR___V2800*/ curfptr[2799] = (void*)&cdat->dstr_2794__melt_get_mapobje;
-  cdat->dstr_2794__melt_get_mapobje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2794__melt_get_mapobje.val, "melt_get_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2794__melt_get_mapobje.val)-1);
- 
- /*inistring dstr_2795__meltobject_p*/
- /*_.VALSTR___V2801*/ curfptr[2800] = (void*)&cdat->dstr_2795__meltobject_p;
-  cdat->dstr_2795__meltobject_p.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2795__meltobject_p.val, "), (meltobject_ptr_t)(", sizeof(cdat->dstr_2795__meltobject_p.val)-1);
- 
- /*inistring dstr_2796__*/
- /*_.VALSTR___V2802*/ curfptr[2801] = (void*)&cdat->dstr_2796__;
-  cdat->dstr_2796__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2796__.val, "))", sizeof(cdat->dstr_2796__.val)-1);
- 
- /*inistring dstr_2797__MAPOBJECT_GET*/
- /*_.VALSTR___V2794*/ curfptr[2793] = (void*)&cdat->dstr_2797__MAPOBJECT_GET;
-  cdat->dstr_2797__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2797__MAPOBJECT_GET.val, "MAPOBJECT_GET", sizeof(cdat->dstr_2797__MAPOBJECT_GET.val)-1);
- 
- /*iniobj dsym_2798__MAKE_MAPOBJECT*/
- if (!/*_.VALDATA___V2804*/ curfptr[2803]) /*_.VALDATA___V2804*/ curfptr[2803] = (void*)&cdat->dsym_2798__MAKE_MAPOBJECT;
-  melt_assertmsg("iniobj checkdiscr dsym_2798__MAKE_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2798__MAKE_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2798__MAKE_MAPOBJECT.obj_hash = 43630370;
-  cdat->dsym_2798__MAKE_MAPOBJECT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2798__MAKE_MAPOBJECT));
- 
- /*inistring dstr_2799__MAKE_MAPOBJECT*/
- /*_.VALSTR___V2805*/ curfptr[2804] = (void*)&cdat->dstr_2799__MAKE_MAPOBJECT;
-  cdat->dstr_2799__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2799__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof(cdat->dstr_2799__MAKE_MAPOBJECT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1553:/ iniobj");
- /*iniobj dobj_2800__MAKE_MAPOBJECT*/
- if (!/*_.VALDATA___V2806*/ curfptr[2805]) /*_.VALDATA___V2806*/ curfptr[2805] = (void*)&cdat->dobj_2800__MAKE_MAPOBJECT;
-  melt_assertmsg("iniobj checkdiscr dobj_2800__MAKE_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2800__MAKE_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2800__MAKE_MAPOBJECT.obj_hash = 881101312;
-  cdat->dobj_2800__MAKE_MAPOBJECT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2800__MAKE_MAPOBJECT));
- 
- /*inimult dtup_2801__MAKE_MAPOBJECT*/
- /*_.VALTUP___V2816*/ curfptr[2815] = (void*)&cdat->dtup_2801__MAKE_MAPOBJECT;
-  cdat->dtup_2801__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2801__MAKE_MAPOBJECT.nbval = 5;
- /*inimult dtup_2802__MAKE_MAPOBJECT*/
- /*_.VALTUP___V2812*/ curfptr[2811] = (void*)&cdat->dtup_2802__MAKE_MAPOBJECT;
-  cdat->dtup_2802__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2802__MAKE_MAPOBJECT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1553:/ iniobj");
- /*iniobj dobj_2803*/
- if (!/*_.VALDATA___V2808*/ curfptr[2807]) /*_.VALDATA___V2808*/ curfptr[2807] = (void*)&cdat->dobj_2803;
-  melt_assertmsg("iniobj checkdiscr dobj_2803", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2803.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2803.obj_num = 0;
-  cdat->dobj_2803.obj_hash = 870555093;
-  cdat->dobj_2803.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2803));
- 
- /*iniobj dsym_2804__LEN*/
- if (!/*_.VALDATA___V2810*/ curfptr[2809]) /*_.VALDATA___V2810*/ curfptr[2809] = (void*)&cdat->dsym_2804__LEN;
-  melt_assertmsg("iniobj checkdiscr dsym_2804__LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2804__LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2804__LEN.obj_hash = 113585537;
-  cdat->dsym_2804__LEN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2804__LEN));
- 
- /*inistring dstr_2805__LEN*/
- /*_.VALSTR___V2811*/ curfptr[2810] = (void*)&cdat->dstr_2805__LEN;
-  cdat->dstr_2805__LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2805__LEN.val, "LEN", sizeof(cdat->dstr_2805__LEN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1553:/ iniobj");
- /*iniobj dobj_2806*/
- if (!/*_.VALDATA___V2809*/ curfptr[2808]) /*_.VALDATA___V2809*/ curfptr[2808] = (void*)&cdat->dobj_2806;
-  melt_assertmsg("iniobj checkdiscr dobj_2806", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2806.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2806.obj_num = 1;
-  cdat->dobj_2806.obj_hash = 130345571;
-  cdat->dobj_2806.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2806));
- 
- /*inistring dstr_2807__meltgc_new_mapo*/
- /*_.VALSTR___V2813*/ curfptr[2812] = (void*)&cdat->dstr_2807__meltgc_new_mapo;
-  cdat->dstr_2807__meltgc_new_mapo.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2807__meltgc_new_mapo.val, "(meltgc_new_mapobjects( (meltobject_ptr_t) (", sizeof(cdat->dstr_2807__meltgc_new_mapo.val)-1);
- 
- /*inistring dstr_2808__*/
- /*_.VALSTR___V2814*/ curfptr[2813] = (void*)&cdat->dstr_2808__;
-  cdat->dstr_2808__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2808__.val, "), (", sizeof(cdat->dstr_2808__.val)-1);
- 
- /*inistring dstr_2809__*/
- /*_.VALSTR___V2815*/ curfptr[2814] = (void*)&cdat->dstr_2809__;
-  cdat->dstr_2809__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2809__.val, ")))", sizeof(cdat->dstr_2809__.val)-1);
- 
- /*inistring dstr_2810__MAKE_MAPOBJECT*/
- /*_.VALSTR___V2807*/ curfptr[2806] = (void*)&cdat->dstr_2810__MAKE_MAPOBJECT;
-  cdat->dstr_2810__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2810__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof(cdat->dstr_2810__MAKE_MAPOBJECT.val)-1);
- 
- /*iniobj dsym_2811__MAPOBJECT_PUT*/
- if (!/*_.VALDATA___V2817*/ curfptr[2816]) /*_.VALDATA___V2817*/ curfptr[2816] = (void*)&cdat->dsym_2811__MAPOBJECT_PUT;
-  melt_assertmsg("iniobj checkdiscr dsym_2811__MAPOBJECT_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2811__MAPOBJECT_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2811__MAPOBJECT_PUT.obj_hash = 386974794;
-  cdat->dsym_2811__MAPOBJECT_PUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2811__MAPOBJECT_PUT));
- 
- /*inistring dstr_2812__MAPOBJECT_PUT*/
- /*_.VALSTR___V2818*/ curfptr[2817] = (void*)&cdat->dstr_2812__MAPOBJECT_PUT;
-  cdat->dstr_2812__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2812__MAPOBJECT_PUT.val, "MAPOBJECT_PUT", sizeof(cdat->dstr_2812__MAPOBJECT_PUT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1557:/ iniobj");
- /*iniobj dobj_2813__MAPOBJECT_PUT*/
- if (!/*_.VALDATA___V2819*/ curfptr[2818]) /*_.VALDATA___V2819*/ curfptr[2818] = (void*)&cdat->dobj_2813__MAPOBJECT_PUT;
-  melt_assertmsg("iniobj checkdiscr dobj_2813__MAPOBJECT_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2813__MAPOBJECT_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2813__MAPOBJECT_PUT.obj_hash = 180995789;
-  cdat->dobj_2813__MAPOBJECT_PUT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2813__MAPOBJECT_PUT));
- 
- /*inimult dtup_2814__MAPOBJECT_PUT*/
- /*_.VALTUP___V2831*/ curfptr[2830] = (void*)&cdat->dtup_2814__MAPOBJECT_PUT;
-  cdat->dtup_2814__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2814__MAPOBJECT_PUT.nbval = 7;
- /*inimult dtup_2815__MAPOBJECT_PUT*/
- /*_.VALTUP___V2826*/ curfptr[2825] = (void*)&cdat->dtup_2815__MAPOBJECT_PUT;
-  cdat->dtup_2815__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2815__MAPOBJECT_PUT.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1557:/ iniobj");
- /*iniobj dobj_2816*/
- if (!/*_.VALDATA___V2821*/ curfptr[2820]) /*_.VALDATA___V2821*/ curfptr[2820] = (void*)&cdat->dobj_2816;
-  melt_assertmsg("iniobj checkdiscr dobj_2816", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2816.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2816.obj_num = 0;
-  cdat->dobj_2816.obj_hash = 354511527;
-  cdat->dobj_2816.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2816));
- 
- /*iniobj dsym_2817__KEY*/
- if (!/*_.VALDATA___V2823*/ curfptr[2822]) /*_.VALDATA___V2823*/ curfptr[2822] = (void*)&cdat->dsym_2817__KEY;
-  melt_assertmsg("iniobj checkdiscr dsym_2817__KEY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2817__KEY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2817__KEY.obj_hash = 65825675;
-  cdat->dsym_2817__KEY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2817__KEY));
- 
- /*inistring dstr_2818__KEY*/
- /*_.VALSTR___V2824*/ curfptr[2823] = (void*)&cdat->dstr_2818__KEY;
-  cdat->dstr_2818__KEY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2818__KEY.val, "KEY", sizeof(cdat->dstr_2818__KEY.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1557:/ iniobj");
- /*iniobj dobj_2819*/
- if (!/*_.VALDATA___V2822*/ curfptr[2821]) /*_.VALDATA___V2822*/ curfptr[2821] = (void*)&cdat->dobj_2819;
-  melt_assertmsg("iniobj checkdiscr dobj_2819", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2819.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2819.obj_num = 1;
-  cdat->dobj_2819.obj_hash = 433622147;
-  cdat->dobj_2819.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2819));
- 
- MELT_LOCATION("warmelt-first.melt:1557:/ iniobj");
- /*iniobj dobj_2820*/
- if (!/*_.VALDATA___V2825*/ curfptr[2824]) /*_.VALDATA___V2825*/ curfptr[2824] = (void*)&cdat->dobj_2820;
-  melt_assertmsg("iniobj checkdiscr dobj_2820", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2820.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2820.obj_num = 2;
-  cdat->dobj_2820.obj_hash = 965926609;
-  cdat->dobj_2820.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2820));
- 
- /*inistring dstr_2821__meltgc_put_mapob*/
- /*_.VALSTR___V2827*/ curfptr[2826] = (void*)&cdat->dstr_2821__meltgc_put_mapob;
-  cdat->dstr_2821__meltgc_put_mapob.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2821__meltgc_put_mapob.val, "meltgc_put_mapobjects( (meltmapobjects_ptr_t) (", sizeof(cdat->dstr_2821__meltgc_put_mapob.val)-1);
- 
- /*inistring dstr_2822__melto*/
- /*_.VALSTR___V2828*/ curfptr[2827] = (void*)&cdat->dstr_2822__melto;
-  cdat->dstr_2822__melto.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2822__melto.val, "), \n\t\t\t   (meltobject_ptr_t) (", sizeof(cdat->dstr_2822__melto.val)-1);
- 
- /*inistring dstr_2823__melt_*/
- /*_.VALSTR___V2829*/ curfptr[2828] = (void*)&cdat->dstr_2823__melt_;
-  cdat->dstr_2823__melt_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2823__melt_.val, "), \n\t\t\t   (melt_ptr_t)(", sizeof(cdat->dstr_2823__melt_.val)-1);
- 
- /*inistring dstr_2824__*/
- /*_.VALSTR___V2830*/ curfptr[2829] = (void*)&cdat->dstr_2824__;
-  cdat->dstr_2824__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2824__.val, "))", sizeof(cdat->dstr_2824__.val)-1);
- 
- /*inistring dstr_2825__MAPOBJECT_PUT*/
- /*_.VALSTR___V2820*/ curfptr[2819] = (void*)&cdat->dstr_2825__MAPOBJECT_PUT;
-  cdat->dstr_2825__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2825__MAPOBJECT_PUT.val, "MAPOBJECT_PUT", sizeof(cdat->dstr_2825__MAPOBJECT_PUT.val)-1);
- 
- /*iniobj dsym_2826__MAPOBJECT_REMOVE*/
- if (!/*_.VALDATA___V2832*/ curfptr[2831]) /*_.VALDATA___V2832*/ curfptr[2831] = (void*)&cdat->dsym_2826__MAPOBJECT_REMOVE;
-  melt_assertmsg("iniobj checkdiscr dsym_2826__MAPOBJECT_REMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2826__MAPOBJECT_REMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2826__MAPOBJECT_REMOVE.obj_hash = 713592585;
-  cdat->dsym_2826__MAPOBJECT_REMOVE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2826__MAPOBJECT_REMOVE));
- 
- /*inistring dstr_2827__MAPOBJECT_REMOVE*/
- /*_.VALSTR___V2833*/ curfptr[2832] = (void*)&cdat->dstr_2827__MAPOBJECT_REMOVE;
-  cdat->dstr_2827__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2827__MAPOBJECT_REMOVE.val, "MAPOBJECT_REMOVE", sizeof(cdat->dstr_2827__MAPOBJECT_REMOVE.val)-1);
+ MELT_LOCATION("warmelt-first.melt:1510:/ iniobj");
+ /*iniobj dobj_2712__TUPLE_SIZED*/
+ if (!/*_.VALDATA___V2718*/ curfptr[2717]) /*_.VALDATA___V2718*/ curfptr[2717] = (void*)&cdat->dobj_2712__TUPLE_SIZED;
+  melt_assertmsg("iniobj checkdiscr dobj_2712__TUPLE_SIZED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_2712__TUPLE_SIZED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_2712__TUPLE_SIZED.obj_hash = 75571630;
+  cdat->dobj_2712__TUPLE_SIZED.obj_len = 9;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2712__TUPLE_SIZED));
+ 
+ /*inistring dstr_2713__TUPLE_SIZED*/
+ /*_.VALSTR___V2719*/ curfptr[2718] = (void*)&cdat->dstr_2713__TUPLE_SIZED;
+  cdat->dstr_2713__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2713__TUPLE_SIZED.val, "TUPLE_SIZED", sizeof(cdat->dstr_2713__TUPLE_SIZED.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1510:/ iniobj");
+ /*iniobj dobj_2714*/
+ if (!/*_.VALDATA___V2720*/ curfptr[2719]) /*_.VALDATA___V2720*/ curfptr[2719] = (void*)&cdat->dobj_2714;
+  melt_assertmsg("iniobj checkdiscr dobj_2714", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2714.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2714.obj_num = 0;
+  cdat->dobj_2714.obj_hash = 51926657;
+  cdat->dobj_2714.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2714));
+ 
+ /*inimult dtup_2715__TUPLE_SIZED*/
+ /*_.VALTUP___V2721*/ curfptr[2720] = (void*)&cdat->dtup_2715__TUPLE_SIZED;
+  cdat->dtup_2715__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2715__TUPLE_SIZED.nbval = 1;
+ /*iniobj dsym_2716__TUP*/
+ if (!/*_.VALDATA___V2723*/ curfptr[2722]) /*_.VALDATA___V2723*/ curfptr[2722] = (void*)&cdat->dsym_2716__TUP;
+  melt_assertmsg("iniobj checkdiscr dsym_2716__TUP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2716__TUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2716__TUP.obj_hash = 224489460;
+  cdat->dsym_2716__TUP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2716__TUP));
+ 
+ /*inistring dstr_2717__TUP*/
+ /*_.VALSTR___V2724*/ curfptr[2723] = (void*)&cdat->dstr_2717__TUP;
+  cdat->dstr_2717__TUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2717__TUP.val, "TUP", sizeof(cdat->dstr_2717__TUP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1510:/ iniobj");
+ /*iniobj dobj_2718*/
+ if (!/*_.VALDATA___V2722*/ curfptr[2721]) /*_.VALDATA___V2722*/ curfptr[2721] = (void*)&cdat->dobj_2718;
+  melt_assertmsg("iniobj checkdiscr dobj_2718", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2718.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2718.obj_hash = 537543395;
+  cdat->dobj_2718.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2718));
+ 
+ /*inimult dtup_2719__TUPLE_SIZED*/
+ /*_.VALTUP___V2725*/ curfptr[2724] = (void*)&cdat->dtup_2719__TUPLE_SIZED;
+  cdat->dtup_2719__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2719__TUPLE_SIZED.nbval = 0;
+ /*iniobj dsym_2720__TUPSIZ*/
+ if (!/*_.VALDATA___V2726*/ curfptr[2725]) /*_.VALDATA___V2726*/ curfptr[2725] = (void*)&cdat->dsym_2720__TUPSIZ;
+  melt_assertmsg("iniobj checkdiscr dsym_2720__TUPSIZ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2720__TUPSIZ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2720__TUPSIZ.obj_hash = 554385648;
+  cdat->dsym_2720__TUPSIZ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2720__TUPSIZ));
+ 
+ /*inistring dstr_2721__TUPSIZ*/
+ /*_.VALSTR___V2727*/ curfptr[2726] = (void*)&cdat->dstr_2721__TUPSIZ;
+  cdat->dstr_2721__TUPSIZ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2721__TUPSIZ.val, "TUPSIZ", sizeof(cdat->dstr_2721__TUPSIZ.val)-1);
+ 
+ /*inistring dstr_2722__melt_is_multipl*/
+ /*_.VALSTR___V2728*/ curfptr[2727] = (void*)&cdat->dstr_2722__melt_is_multipl;
+  cdat->dstr_2722__melt_is_multipl.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2722__melt_is_multipl.val, "(melt_is_multiple_of_length((melt_ptr_t)(", sizeof(cdat->dstr_2722__melt_is_multipl.val)-1);
+ 
+ /*inistring dstr_2723__int_*/
+ /*_.VALSTR___V2729*/ curfptr[2728] = (void*)&cdat->dstr_2723__int_;
+  cdat->dstr_2723__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2723__int_.val, "), (int) (", sizeof(cdat->dstr_2723__int_.val)-1);
+ 
+ /*inistring dstr_2724__*/
+ /*_.VALSTR___V2730*/ curfptr[2729] = (void*)&cdat->dstr_2724__;
+  cdat->dstr_2724__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2724__.val, ")))", sizeof(cdat->dstr_2724__.val)-1);
+ 
+ /*inimult dtup_2725__TUPLE_SIZED*/
+ /*_.VALTUP___V2731*/ curfptr[2730] = (void*)&cdat->dtup_2725__TUPLE_SIZED;
+  cdat->dtup_2725__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2725__TUPLE_SIZED.nbval = 5;
+ /*iniobj dsym_2726__IS_MAPOBJECT*/
+ if (!/*_.VALDATA___V2732*/ curfptr[2731]) /*_.VALDATA___V2732*/ curfptr[2731] = (void*)&cdat->dsym_2726__IS_MAPOBJECT;
+  melt_assertmsg("iniobj checkdiscr dsym_2726__IS_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2726__IS_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2726__IS_MAPOBJECT.obj_hash = 520201871;
+  cdat->dsym_2726__IS_MAPOBJECT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2726__IS_MAPOBJECT));
+ 
+ /*inistring dstr_2727__IS_MAPOBJECT*/
+ /*_.VALSTR___V2733*/ curfptr[2732] = (void*)&cdat->dstr_2727__IS_MAPOBJECT;
+  cdat->dstr_2727__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2727__IS_MAPOBJECT.val, "IS_MAPOBJECT", sizeof(cdat->dstr_2727__IS_MAPOBJECT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1524:/ iniobj");
+ /*iniobj dobj_2728__IS_MAPOBJECT*/
+ if (!/*_.VALDATA___V2734*/ curfptr[2733]) /*_.VALDATA___V2734*/ curfptr[2733] = (void*)&cdat->dobj_2728__IS_MAPOBJECT;
+  melt_assertmsg("iniobj checkdiscr dobj_2728__IS_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2728__IS_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2728__IS_MAPOBJECT.obj_hash = 41898361;
+  cdat->dobj_2728__IS_MAPOBJECT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2728__IS_MAPOBJECT));
+ 
+ /*inimult dtup_2729__IS_MAPOBJECT*/
+ /*_.VALTUP___V2742*/ curfptr[2741] = (void*)&cdat->dtup_2729__IS_MAPOBJECT;
+  cdat->dtup_2729__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2729__IS_MAPOBJECT.nbval = 3;
+ /*inimult dtup_2730__IS_MAPOBJECT*/
+ /*_.VALTUP___V2739*/ curfptr[2738] = (void*)&cdat->dtup_2730__IS_MAPOBJECT;
+  cdat->dtup_2730__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2730__IS_MAPOBJECT.nbval = 1;
+ /*iniobj dsym_2731__MAP*/
+ if (!/*_.VALDATA___V2737*/ curfptr[2736]) /*_.VALDATA___V2737*/ curfptr[2736] = (void*)&cdat->dsym_2731__MAP;
+  melt_assertmsg("iniobj checkdiscr dsym_2731__MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2731__MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2731__MAP.obj_hash = 74541903;
+  cdat->dsym_2731__MAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2731__MAP));
+ 
+ /*inistring dstr_2732__MAP*/
+ /*_.VALSTR___V2738*/ curfptr[2737] = (void*)&cdat->dstr_2732__MAP;
+  cdat->dstr_2732__MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2732__MAP.val, "MAP", sizeof(cdat->dstr_2732__MAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1524:/ iniobj");
+ /*iniobj dobj_2733*/
+ if (!/*_.VALDATA___V2736*/ curfptr[2735]) /*_.VALDATA___V2736*/ curfptr[2735] = (void*)&cdat->dobj_2733;
+  melt_assertmsg("iniobj checkdiscr dobj_2733", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2733.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2733.obj_num = 0;
+  cdat->dobj_2733.obj_hash = 702397264;
+  cdat->dobj_2733.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2733));
+ 
+ /*inistring dstr_2734__melt_magic_disc*/
+ /*_.VALSTR___V2740*/ curfptr[2739] = (void*)&cdat->dstr_2734__melt_magic_disc;
+  cdat->dstr_2734__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2734__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2734__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_2735__OBMAG_MAPO*/
+ /*_.VALSTR___V2741*/ curfptr[2740] = (void*)&cdat->dstr_2735__OBMAG_MAPO;
+  cdat->dstr_2735__OBMAG_MAPO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2735__OBMAG_MAPO.val, ")) == OBMAG_MAPOBJECTS)", sizeof(cdat->dstr_2735__OBMAG_MAPO.val)-1);
+ 
+ /*inistring dstr_2736__IS_MAPOBJECT*/
+ /*_.VALSTR___V2735*/ curfptr[2734] = (void*)&cdat->dstr_2736__IS_MAPOBJECT;
+  cdat->dstr_2736__IS_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2736__IS_MAPOBJECT.val, "IS_MAPOBJECT", sizeof(cdat->dstr_2736__IS_MAPOBJECT.val)-1);
+ 
+ /*iniobj dsym_2737__MAPOBJECT_SIZE*/
+ if (!/*_.VALDATA___V2743*/ curfptr[2742]) /*_.VALDATA___V2743*/ curfptr[2742] = (void*)&cdat->dsym_2737__MAPOBJECT_SIZE;
+  melt_assertmsg("iniobj checkdiscr dsym_2737__MAPOBJECT_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2737__MAPOBJECT_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2737__MAPOBJECT_SIZE.obj_hash = 932988071;
+  cdat->dsym_2737__MAPOBJECT_SIZE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2737__MAPOBJECT_SIZE));
+ 
+ /*inistring dstr_2738__MAPOBJECT_SIZE*/
+ /*_.VALSTR___V2744*/ curfptr[2743] = (void*)&cdat->dstr_2738__MAPOBJECT_SIZE;
+  cdat->dstr_2738__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2738__MAPOBJECT_SIZE.val, "MAPOBJECT_SIZE", sizeof(cdat->dstr_2738__MAPOBJECT_SIZE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1528:/ iniobj");
+ /*iniobj dobj_2739__MAPOBJECT_SIZE*/
+ if (!/*_.VALDATA___V2745*/ curfptr[2744]) /*_.VALDATA___V2745*/ curfptr[2744] = (void*)&cdat->dobj_2739__MAPOBJECT_SIZE;
+  melt_assertmsg("iniobj checkdiscr dobj_2739__MAPOBJECT_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2739__MAPOBJECT_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2739__MAPOBJECT_SIZE.obj_hash = 843166977;
+  cdat->dobj_2739__MAPOBJECT_SIZE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2739__MAPOBJECT_SIZE));
+ 
+ /*inimult dtup_2740__MAPOBJECT_SIZE*/
+ /*_.VALTUP___V2751*/ curfptr[2750] = (void*)&cdat->dtup_2740__MAPOBJECT_SIZE;
+  cdat->dtup_2740__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2740__MAPOBJECT_SIZE.nbval = 3;
+ /*inimult dtup_2741__MAPOBJECT_SIZE*/
+ /*_.VALTUP___V2748*/ curfptr[2747] = (void*)&cdat->dtup_2741__MAPOBJECT_SIZE;
+  cdat->dtup_2741__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2741__MAPOBJECT_SIZE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1528:/ iniobj");
+ /*iniobj dobj_2742*/
+ if (!/*_.VALDATA___V2747*/ curfptr[2746]) /*_.VALDATA___V2747*/ curfptr[2746] = (void*)&cdat->dobj_2742;
+  melt_assertmsg("iniobj checkdiscr dobj_2742", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2742.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2742.obj_num = 0;
+  cdat->dobj_2742.obj_hash = 258257108;
+  cdat->dobj_2742.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2742));
+ 
+ /*inistring dstr_2743__melt_size_mapob*/
+ /*_.VALSTR___V2749*/ curfptr[2748] = (void*)&cdat->dstr_2743__melt_size_mapob;
+  cdat->dstr_2743__melt_size_mapob.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2743__melt_size_mapob.val, "(melt_size_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2743__melt_size_mapob.val)-1);
+ 
+ /*inistring dstr_2744__*/
+ /*_.VALSTR___V2750*/ curfptr[2749] = (void*)&cdat->dstr_2744__;
+  cdat->dstr_2744__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2744__.val, ")))", sizeof(cdat->dstr_2744__.val)-1);
+ 
+ /*inistring dstr_2745__MAPOBJECT_SIZE*/
+ /*_.VALSTR___V2746*/ curfptr[2745] = (void*)&cdat->dstr_2745__MAPOBJECT_SIZE;
+  cdat->dstr_2745__MAPOBJECT_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2745__MAPOBJECT_SIZE.val, "MAPOBJECT_SIZE", sizeof(cdat->dstr_2745__MAPOBJECT_SIZE.val)-1);
+ 
+ /*iniobj dsym_2746__MAPOBJECT_COUNT*/
+ if (!/*_.VALDATA___V2752*/ curfptr[2751]) /*_.VALDATA___V2752*/ curfptr[2751] = (void*)&cdat->dsym_2746__MAPOBJECT_COUNT;
+  melt_assertmsg("iniobj checkdiscr dsym_2746__MAPOBJECT_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2746__MAPOBJECT_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2746__MAPOBJECT_COUNT.obj_hash = 548796546;
+  cdat->dsym_2746__MAPOBJECT_COUNT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2746__MAPOBJECT_COUNT));
+ 
+ /*inistring dstr_2747__MAPOBJECT_COUNT*/
+ /*_.VALSTR___V2753*/ curfptr[2752] = (void*)&cdat->dstr_2747__MAPOBJECT_COUNT;
+  cdat->dstr_2747__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2747__MAPOBJECT_COUNT.val, "MAPOBJECT_COUNT", sizeof(cdat->dstr_2747__MAPOBJECT_COUNT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1532:/ iniobj");
+ /*iniobj dobj_2748__MAPOBJECT_COUNT*/
+ if (!/*_.VALDATA___V2754*/ curfptr[2753]) /*_.VALDATA___V2754*/ curfptr[2753] = (void*)&cdat->dobj_2748__MAPOBJECT_COUNT;
+  melt_assertmsg("iniobj checkdiscr dobj_2748__MAPOBJECT_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2748__MAPOBJECT_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2748__MAPOBJECT_COUNT.obj_hash = 1043521377;
+  cdat->dobj_2748__MAPOBJECT_COUNT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2748__MAPOBJECT_COUNT));
+ 
+ /*inimult dtup_2749__MAPOBJECT_COUNT*/
+ /*_.VALTUP___V2760*/ curfptr[2759] = (void*)&cdat->dtup_2749__MAPOBJECT_COUNT;
+  cdat->dtup_2749__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2749__MAPOBJECT_COUNT.nbval = 3;
+ /*inimult dtup_2750__MAPOBJECT_COUNT*/
+ /*_.VALTUP___V2757*/ curfptr[2756] = (void*)&cdat->dtup_2750__MAPOBJECT_COUNT;
+  cdat->dtup_2750__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2750__MAPOBJECT_COUNT.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1532:/ iniobj");
+ /*iniobj dobj_2751*/
+ if (!/*_.VALDATA___V2756*/ curfptr[2755]) /*_.VALDATA___V2756*/ curfptr[2755] = (void*)&cdat->dobj_2751;
+  melt_assertmsg("iniobj checkdiscr dobj_2751", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2751.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2751.obj_num = 0;
+  cdat->dobj_2751.obj_hash = 57021272;
+  cdat->dobj_2751.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2751));
+ 
+ /*inistring dstr_2752__melt_count_mapo*/
+ /*_.VALSTR___V2758*/ curfptr[2757] = (void*)&cdat->dstr_2752__melt_count_mapo;
+  cdat->dstr_2752__melt_count_mapo.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2752__melt_count_mapo.val, "(melt_count_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2752__melt_count_mapo.val)-1);
+ 
+ /*inistring dstr_2753__*/
+ /*_.VALSTR___V2759*/ curfptr[2758] = (void*)&cdat->dstr_2753__;
+  cdat->dstr_2753__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2753__.val, ")))", sizeof(cdat->dstr_2753__.val)-1);
+ 
+ /*inistring dstr_2754__MAPOBJECT_COUNT*/
+ /*_.VALSTR___V2755*/ curfptr[2754] = (void*)&cdat->dstr_2754__MAPOBJECT_COUNT;
+  cdat->dstr_2754__MAPOBJECT_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2754__MAPOBJECT_COUNT.val, "MAPOBJECT_COUNT", sizeof(cdat->dstr_2754__MAPOBJECT_COUNT.val)-1);
+ 
+ /*iniobj dsym_2755__MAPOBJECT_NTH_ATTR*/
+ if (!/*_.VALDATA___V2761*/ curfptr[2760]) /*_.VALDATA___V2761*/ curfptr[2760] = (void*)&cdat->dsym_2755__MAPOBJECT_NTH_ATTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2755__MAPOBJECT_NTH_ATTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2755__MAPOBJECT_NTH_ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2755__MAPOBJECT_NTH_ATTR.obj_hash = 418076721;
+  cdat->dsym_2755__MAPOBJECT_NTH_ATTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2755__MAPOBJECT_NTH_ATTR));
+ 
+ /*inistring dstr_2756__MAPOBJECT_NTH_AT*/
+ /*_.VALSTR___V2762*/ curfptr[2761] = (void*)&cdat->dstr_2756__MAPOBJECT_NTH_AT;
+  cdat->dstr_2756__MAPOBJECT_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2756__MAPOBJECT_NTH_AT.val, "MAPOBJECT_NTH_ATTR", sizeof(cdat->dstr_2756__MAPOBJECT_NTH_AT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1536:/ iniobj");
+ /*iniobj dobj_2757__MAPOBJECT_NTH_ATTR*/
+ if (!/*_.VALDATA___V2763*/ curfptr[2762]) /*_.VALDATA___V2763*/ curfptr[2762] = (void*)&cdat->dobj_2757__MAPOBJECT_NTH_ATTR;
+  melt_assertmsg("iniobj checkdiscr dobj_2757__MAPOBJECT_NTH_ATTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2757__MAPOBJECT_NTH_ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2757__MAPOBJECT_NTH_ATTR.obj_hash = 955093299;
+  cdat->dobj_2757__MAPOBJECT_NTH_ATTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2757__MAPOBJECT_NTH_ATTR));
+ 
+ /*inimult dtup_2758__MAPOBJECT_NTH_ATTR*/
+ /*_.VALTUP___V2771*/ curfptr[2770] = (void*)&cdat->dtup_2758__MAPOBJECT_NTH_ATTR;
+  cdat->dtup_2758__MAPOBJECT_NTH_ATTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2758__MAPOBJECT_NTH_ATTR.nbval = 5;
+ /*inimult dtup_2759__MAPOBJECT_NTH_ATTR*/
+ /*_.VALTUP___V2767*/ curfptr[2766] = (void*)&cdat->dtup_2759__MAPOBJECT_NTH_ATTR;
+  cdat->dtup_2759__MAPOBJECT_NTH_ATTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2759__MAPOBJECT_NTH_ATTR.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1536:/ iniobj");
+ /*iniobj dobj_2760*/
+ if (!/*_.VALDATA___V2765*/ curfptr[2764]) /*_.VALDATA___V2765*/ curfptr[2764] = (void*)&cdat->dobj_2760;
+  melt_assertmsg("iniobj checkdiscr dobj_2760", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2760.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2760.obj_num = 0;
+  cdat->dobj_2760.obj_hash = 939666371;
+  cdat->dobj_2760.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2760));
+ 
+ MELT_LOCATION("warmelt-first.melt:1536:/ iniobj");
+ /*iniobj dobj_2761*/
+ if (!/*_.VALDATA___V2766*/ curfptr[2765]) /*_.VALDATA___V2766*/ curfptr[2765] = (void*)&cdat->dobj_2761;
+  melt_assertmsg("iniobj checkdiscr dobj_2761", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2761.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2761.obj_num = 1;
+  cdat->dobj_2761.obj_hash = 264045091;
+  cdat->dobj_2761.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2761));
+ 
+ /*inistring dstr_2762__melt_nthattr_ma*/
+ /*_.VALSTR___V2768*/ curfptr[2767] = (void*)&cdat->dstr_2762__melt_nthattr_ma;
+  cdat->dstr_2762__melt_nthattr_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2762__melt_nthattr_ma.val, "(melt_nthattr_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2762__melt_nthattr_ma.val)-1);
+ 
+ /*inistring dstr_2763__int_*/
+ /*_.VALSTR___V2769*/ curfptr[2768] = (void*)&cdat->dstr_2763__int_;
+  cdat->dstr_2763__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2763__int_.val, "), (int)(", sizeof(cdat->dstr_2763__int_.val)-1);
+ 
+ /*inistring dstr_2764__*/
+ /*_.VALSTR___V2770*/ curfptr[2769] = (void*)&cdat->dstr_2764__;
+  cdat->dstr_2764__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2764__.val, ")))", sizeof(cdat->dstr_2764__.val)-1);
+ 
+ /*inistring dstr_2765__MAPOBJECT_NTH_AT*/
+ /*_.VALSTR___V2764*/ curfptr[2763] = (void*)&cdat->dstr_2765__MAPOBJECT_NTH_AT;
+  cdat->dstr_2765__MAPOBJECT_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2765__MAPOBJECT_NTH_AT.val, "MAPOBJECT_NTH_ATTR", sizeof(cdat->dstr_2765__MAPOBJECT_NTH_AT.val)-1);
+ 
+ /*iniobj dsym_2766__MAPOBJECT_NTH_VAL*/
+ if (!/*_.VALDATA___V2772*/ curfptr[2771]) /*_.VALDATA___V2772*/ curfptr[2771] = (void*)&cdat->dsym_2766__MAPOBJECT_NTH_VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_2766__MAPOBJECT_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2766__MAPOBJECT_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2766__MAPOBJECT_NTH_VAL.obj_hash = 420399089;
+  cdat->dsym_2766__MAPOBJECT_NTH_VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2766__MAPOBJECT_NTH_VAL));
+ 
+ /*inistring dstr_2767__MAPOBJECT_NTH_VA*/
+ /*_.VALSTR___V2773*/ curfptr[2772] = (void*)&cdat->dstr_2767__MAPOBJECT_NTH_VA;
+  cdat->dstr_2767__MAPOBJECT_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2767__MAPOBJECT_NTH_VA.val, "MAPOBJECT_NTH_VAL", sizeof(cdat->dstr_2767__MAPOBJECT_NTH_VA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1540:/ iniobj");
+ /*iniobj dobj_2768__MAPOBJECT_NTH_VAL*/
+ if (!/*_.VALDATA___V2774*/ curfptr[2773]) /*_.VALDATA___V2774*/ curfptr[2773] = (void*)&cdat->dobj_2768__MAPOBJECT_NTH_VAL;
+  melt_assertmsg("iniobj checkdiscr dobj_2768__MAPOBJECT_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2768__MAPOBJECT_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2768__MAPOBJECT_NTH_VAL.obj_hash = 525645345;
+  cdat->dobj_2768__MAPOBJECT_NTH_VAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2768__MAPOBJECT_NTH_VAL));
+ 
+ /*inimult dtup_2769__MAPOBJECT_NTH_VAL*/
+ /*_.VALTUP___V2782*/ curfptr[2781] = (void*)&cdat->dtup_2769__MAPOBJECT_NTH_VAL;
+  cdat->dtup_2769__MAPOBJECT_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2769__MAPOBJECT_NTH_VAL.nbval = 5;
+ /*inimult dtup_2770__MAPOBJECT_NTH_VAL*/
+ /*_.VALTUP___V2778*/ curfptr[2777] = (void*)&cdat->dtup_2770__MAPOBJECT_NTH_VAL;
+  cdat->dtup_2770__MAPOBJECT_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2770__MAPOBJECT_NTH_VAL.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1540:/ iniobj");
+ /*iniobj dobj_2771*/
+ if (!/*_.VALDATA___V2776*/ curfptr[2775]) /*_.VALDATA___V2776*/ curfptr[2775] = (void*)&cdat->dobj_2771;
+  melt_assertmsg("iniobj checkdiscr dobj_2771", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2771.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2771.obj_num = 0;
+  cdat->dobj_2771.obj_hash = 139044420;
+  cdat->dobj_2771.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2771));
+ 
+ MELT_LOCATION("warmelt-first.melt:1540:/ iniobj");
+ /*iniobj dobj_2772*/
+ if (!/*_.VALDATA___V2777*/ curfptr[2776]) /*_.VALDATA___V2777*/ curfptr[2776] = (void*)&cdat->dobj_2772;
+  melt_assertmsg("iniobj checkdiscr dobj_2772", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2772.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2772.obj_num = 1;
+  cdat->dobj_2772.obj_hash = 505407090;
+  cdat->dobj_2772.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2772));
+ 
+ /*inistring dstr_2773__melt_nthval_map*/
+ /*_.VALSTR___V2779*/ curfptr[2778] = (void*)&cdat->dstr_2773__melt_nthval_map;
+  cdat->dstr_2773__melt_nthval_map.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2773__melt_nthval_map.val, "(melt_nthval_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2773__melt_nthval_map.val)-1);
+ 
+ /*inistring dstr_2774__int_*/
+ /*_.VALSTR___V2780*/ curfptr[2779] = (void*)&cdat->dstr_2774__int_;
+  cdat->dstr_2774__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2774__int_.val, "), (int)(", sizeof(cdat->dstr_2774__int_.val)-1);
+ 
+ /*inistring dstr_2775__*/
+ /*_.VALSTR___V2781*/ curfptr[2780] = (void*)&cdat->dstr_2775__;
+  cdat->dstr_2775__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2775__.val, ")))", sizeof(cdat->dstr_2775__.val)-1);
+ 
+ /*inistring dstr_2776__MAPOBJECT_NTH_VA*/
+ /*_.VALSTR___V2775*/ curfptr[2774] = (void*)&cdat->dstr_2776__MAPOBJECT_NTH_VA;
+  cdat->dstr_2776__MAPOBJECT_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2776__MAPOBJECT_NTH_VA.val, "MAPOBJECT_NTH_VAL", sizeof(cdat->dstr_2776__MAPOBJECT_NTH_VA.val)-1);
+ 
+ /*iniobj dsym_2777__MAPOBJECT_GET*/
+ if (!/*_.VALDATA___V2783*/ curfptr[2782]) /*_.VALDATA___V2783*/ curfptr[2782] = (void*)&cdat->dsym_2777__MAPOBJECT_GET;
+  melt_assertmsg("iniobj checkdiscr dsym_2777__MAPOBJECT_GET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2777__MAPOBJECT_GET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2777__MAPOBJECT_GET.obj_hash = 1046193678;
+  cdat->dsym_2777__MAPOBJECT_GET.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2777__MAPOBJECT_GET));
+ 
+ /*inistring dstr_2778__MAPOBJECT_GET*/
+ /*_.VALSTR___V2784*/ curfptr[2783] = (void*)&cdat->dstr_2778__MAPOBJECT_GET;
+  cdat->dstr_2778__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2778__MAPOBJECT_GET.val, "MAPOBJECT_GET", sizeof(cdat->dstr_2778__MAPOBJECT_GET.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1544:/ iniobj");
+ /*iniobj dobj_2779__MAPOBJECT_GET*/
+ if (!/*_.VALDATA___V2785*/ curfptr[2784]) /*_.VALDATA___V2785*/ curfptr[2784] = (void*)&cdat->dobj_2779__MAPOBJECT_GET;
+  melt_assertmsg("iniobj checkdiscr dobj_2779__MAPOBJECT_GET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2779__MAPOBJECT_GET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2779__MAPOBJECT_GET.obj_hash = 487760217;
+  cdat->dobj_2779__MAPOBJECT_GET.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2779__MAPOBJECT_GET));
+ 
+ /*inimult dtup_2780__MAPOBJECT_GET*/
+ /*_.VALTUP___V2795*/ curfptr[2794] = (void*)&cdat->dtup_2780__MAPOBJECT_GET;
+  cdat->dtup_2780__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2780__MAPOBJECT_GET.nbval = 5;
+ /*inimult dtup_2781__MAPOBJECT_GET*/
+ /*_.VALTUP___V2791*/ curfptr[2790] = (void*)&cdat->dtup_2781__MAPOBJECT_GET;
+  cdat->dtup_2781__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2781__MAPOBJECT_GET.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1544:/ iniobj");
+ /*iniobj dobj_2782*/
+ if (!/*_.VALDATA___V2787*/ curfptr[2786]) /*_.VALDATA___V2787*/ curfptr[2786] = (void*)&cdat->dobj_2782;
+  melt_assertmsg("iniobj checkdiscr dobj_2782", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2782.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2782.obj_num = 0;
+  cdat->dobj_2782.obj_hash = 178967533;
+  cdat->dobj_2782.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2782));
+ 
+ /*iniobj dsym_2783__ATTR*/
+ if (!/*_.VALDATA___V2789*/ curfptr[2788]) /*_.VALDATA___V2789*/ curfptr[2788] = (void*)&cdat->dsym_2783__ATTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2783__ATTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2783__ATTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2783__ATTR.obj_hash = 114596595;
+  cdat->dsym_2783__ATTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2783__ATTR));
+ 
+ /*inistring dstr_2784__ATTR*/
+ /*_.VALSTR___V2790*/ curfptr[2789] = (void*)&cdat->dstr_2784__ATTR;
+  cdat->dstr_2784__ATTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2784__ATTR.val, "ATTR", sizeof(cdat->dstr_2784__ATTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1544:/ iniobj");
+ /*iniobj dobj_2785*/
+ if (!/*_.VALDATA___V2788*/ curfptr[2787]) /*_.VALDATA___V2788*/ curfptr[2787] = (void*)&cdat->dobj_2785;
+  melt_assertmsg("iniobj checkdiscr dobj_2785", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2785.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2785.obj_num = 1;
+  cdat->dobj_2785.obj_hash = 753688646;
+  cdat->dobj_2785.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2785));
+ 
+ /*inistring dstr_2786__melt_get_mapobje*/
+ /*_.VALSTR___V2792*/ curfptr[2791] = (void*)&cdat->dstr_2786__melt_get_mapobje;
+  cdat->dstr_2786__melt_get_mapobje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2786__melt_get_mapobje.val, "melt_get_mapobjects((meltmapobjects_ptr_t)(", sizeof(cdat->dstr_2786__melt_get_mapobje.val)-1);
+ 
+ /*inistring dstr_2787__meltobject_p*/
+ /*_.VALSTR___V2793*/ curfptr[2792] = (void*)&cdat->dstr_2787__meltobject_p;
+  cdat->dstr_2787__meltobject_p.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2787__meltobject_p.val, "), (meltobject_ptr_t)(", sizeof(cdat->dstr_2787__meltobject_p.val)-1);
+ 
+ /*inistring dstr_2788__*/
+ /*_.VALSTR___V2794*/ curfptr[2793] = (void*)&cdat->dstr_2788__;
+  cdat->dstr_2788__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2788__.val, "))", sizeof(cdat->dstr_2788__.val)-1);
+ 
+ /*inistring dstr_2789__MAPOBJECT_GET*/
+ /*_.VALSTR___V2786*/ curfptr[2785] = (void*)&cdat->dstr_2789__MAPOBJECT_GET;
+  cdat->dstr_2789__MAPOBJECT_GET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2789__MAPOBJECT_GET.val, "MAPOBJECT_GET", sizeof(cdat->dstr_2789__MAPOBJECT_GET.val)-1);
+ 
+ /*iniobj dsym_2790__MAKE_MAPOBJECT*/
+ if (!/*_.VALDATA___V2796*/ curfptr[2795]) /*_.VALDATA___V2796*/ curfptr[2795] = (void*)&cdat->dsym_2790__MAKE_MAPOBJECT;
+  melt_assertmsg("iniobj checkdiscr dsym_2790__MAKE_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2790__MAKE_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2790__MAKE_MAPOBJECT.obj_hash = 43630370;
+  cdat->dsym_2790__MAKE_MAPOBJECT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2790__MAKE_MAPOBJECT));
+ 
+ /*inistring dstr_2791__MAKE_MAPOBJECT*/
+ /*_.VALSTR___V2797*/ curfptr[2796] = (void*)&cdat->dstr_2791__MAKE_MAPOBJECT;
+  cdat->dstr_2791__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2791__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof(cdat->dstr_2791__MAKE_MAPOBJECT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1548:/ iniobj");
+ /*iniobj dobj_2792__MAKE_MAPOBJECT*/
+ if (!/*_.VALDATA___V2798*/ curfptr[2797]) /*_.VALDATA___V2798*/ curfptr[2797] = (void*)&cdat->dobj_2792__MAKE_MAPOBJECT;
+  melt_assertmsg("iniobj checkdiscr dobj_2792__MAKE_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2792__MAKE_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2792__MAKE_MAPOBJECT.obj_hash = 143242061;
+  cdat->dobj_2792__MAKE_MAPOBJECT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2792__MAKE_MAPOBJECT));
+ 
+ /*inimult dtup_2793__MAKE_MAPOBJECT*/
+ /*_.VALTUP___V2808*/ curfptr[2807] = (void*)&cdat->dtup_2793__MAKE_MAPOBJECT;
+  cdat->dtup_2793__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2793__MAKE_MAPOBJECT.nbval = 5;
+ /*inimult dtup_2794__MAKE_MAPOBJECT*/
+ /*_.VALTUP___V2804*/ curfptr[2803] = (void*)&cdat->dtup_2794__MAKE_MAPOBJECT;
+  cdat->dtup_2794__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2794__MAKE_MAPOBJECT.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1548:/ iniobj");
+ /*iniobj dobj_2795*/
+ if (!/*_.VALDATA___V2800*/ curfptr[2799]) /*_.VALDATA___V2800*/ curfptr[2799] = (void*)&cdat->dobj_2795;
+  melt_assertmsg("iniobj checkdiscr dobj_2795", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2795.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2795.obj_num = 0;
+  cdat->dobj_2795.obj_hash = 889609536;
+  cdat->dobj_2795.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2795));
+ 
+ /*iniobj dsym_2796__LEN*/
+ if (!/*_.VALDATA___V2802*/ curfptr[2801]) /*_.VALDATA___V2802*/ curfptr[2801] = (void*)&cdat->dsym_2796__LEN;
+  melt_assertmsg("iniobj checkdiscr dsym_2796__LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2796__LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2796__LEN.obj_hash = 113585537;
+  cdat->dsym_2796__LEN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2796__LEN));
+ 
+ /*inistring dstr_2797__LEN*/
+ /*_.VALSTR___V2803*/ curfptr[2802] = (void*)&cdat->dstr_2797__LEN;
+  cdat->dstr_2797__LEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2797__LEN.val, "LEN", sizeof(cdat->dstr_2797__LEN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1548:/ iniobj");
+ /*iniobj dobj_2798*/
+ if (!/*_.VALDATA___V2801*/ curfptr[2800]) /*_.VALDATA___V2801*/ curfptr[2800] = (void*)&cdat->dobj_2798;
+  melt_assertmsg("iniobj checkdiscr dobj_2798", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2798.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2798.obj_num = 1;
+  cdat->dobj_2798.obj_hash = 967526949;
+  cdat->dobj_2798.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2798));
+ 
+ /*inistring dstr_2799__meltgc_new_mapo*/
+ /*_.VALSTR___V2805*/ curfptr[2804] = (void*)&cdat->dstr_2799__meltgc_new_mapo;
+  cdat->dstr_2799__meltgc_new_mapo.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2799__meltgc_new_mapo.val, "(meltgc_new_mapobjects( (meltobject_ptr_t) (", sizeof(cdat->dstr_2799__meltgc_new_mapo.val)-1);
+ 
+ /*inistring dstr_2800__*/
+ /*_.VALSTR___V2806*/ curfptr[2805] = (void*)&cdat->dstr_2800__;
+  cdat->dstr_2800__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2800__.val, "), (", sizeof(cdat->dstr_2800__.val)-1);
+ 
+ /*inistring dstr_2801__*/
+ /*_.VALSTR___V2807*/ curfptr[2806] = (void*)&cdat->dstr_2801__;
+  cdat->dstr_2801__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2801__.val, ")))", sizeof(cdat->dstr_2801__.val)-1);
+ 
+ /*inistring dstr_2802__MAKE_MAPOBJECT*/
+ /*_.VALSTR___V2799*/ curfptr[2798] = (void*)&cdat->dstr_2802__MAKE_MAPOBJECT;
+  cdat->dstr_2802__MAKE_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2802__MAKE_MAPOBJECT.val, "MAKE_MAPOBJECT", sizeof(cdat->dstr_2802__MAKE_MAPOBJECT.val)-1);
+ 
+ /*iniobj dsym_2803__MAPOBJECT_PUT*/
+ if (!/*_.VALDATA___V2809*/ curfptr[2808]) /*_.VALDATA___V2809*/ curfptr[2808] = (void*)&cdat->dsym_2803__MAPOBJECT_PUT;
+  melt_assertmsg("iniobj checkdiscr dsym_2803__MAPOBJECT_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2803__MAPOBJECT_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2803__MAPOBJECT_PUT.obj_hash = 386974794;
+  cdat->dsym_2803__MAPOBJECT_PUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2803__MAPOBJECT_PUT));
+ 
+ /*inistring dstr_2804__MAPOBJECT_PUT*/
+ /*_.VALSTR___V2810*/ curfptr[2809] = (void*)&cdat->dstr_2804__MAPOBJECT_PUT;
+  cdat->dstr_2804__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2804__MAPOBJECT_PUT.val, "MAPOBJECT_PUT", sizeof(cdat->dstr_2804__MAPOBJECT_PUT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1552:/ iniobj");
+ /*iniobj dobj_2805__MAPOBJECT_PUT*/
+ if (!/*_.VALDATA___V2811*/ curfptr[2810]) /*_.VALDATA___V2811*/ curfptr[2810] = (void*)&cdat->dobj_2805__MAPOBJECT_PUT;
+  melt_assertmsg("iniobj checkdiscr dobj_2805__MAPOBJECT_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2805__MAPOBJECT_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2805__MAPOBJECT_PUT.obj_hash = 145819927;
+  cdat->dobj_2805__MAPOBJECT_PUT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2805__MAPOBJECT_PUT));
+ 
+ /*inimult dtup_2806__MAPOBJECT_PUT*/
+ /*_.VALTUP___V2823*/ curfptr[2822] = (void*)&cdat->dtup_2806__MAPOBJECT_PUT;
+  cdat->dtup_2806__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2806__MAPOBJECT_PUT.nbval = 7;
+ /*inimult dtup_2807__MAPOBJECT_PUT*/
+ /*_.VALTUP___V2818*/ curfptr[2817] = (void*)&cdat->dtup_2807__MAPOBJECT_PUT;
+  cdat->dtup_2807__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2807__MAPOBJECT_PUT.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1552:/ iniobj");
+ /*iniobj dobj_2808*/
+ if (!/*_.VALDATA___V2813*/ curfptr[2812]) /*_.VALDATA___V2813*/ curfptr[2812] = (void*)&cdat->dobj_2808;
+  melt_assertmsg("iniobj checkdiscr dobj_2808", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2808.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2808.obj_num = 0;
+  cdat->dobj_2808.obj_hash = 342443896;
+  cdat->dobj_2808.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2808));
+ 
+ /*iniobj dsym_2809__KEY*/
+ if (!/*_.VALDATA___V2815*/ curfptr[2814]) /*_.VALDATA___V2815*/ curfptr[2814] = (void*)&cdat->dsym_2809__KEY;
+  melt_assertmsg("iniobj checkdiscr dsym_2809__KEY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2809__KEY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2809__KEY.obj_hash = 65825675;
+  cdat->dsym_2809__KEY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2809__KEY));
+ 
+ /*inistring dstr_2810__KEY*/
+ /*_.VALSTR___V2816*/ curfptr[2815] = (void*)&cdat->dstr_2810__KEY;
+  cdat->dstr_2810__KEY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2810__KEY.val, "KEY", sizeof(cdat->dstr_2810__KEY.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1552:/ iniobj");
+ /*iniobj dobj_2811*/
+ if (!/*_.VALDATA___V2814*/ curfptr[2813]) /*_.VALDATA___V2814*/ curfptr[2813] = (void*)&cdat->dobj_2811;
+  melt_assertmsg("iniobj checkdiscr dobj_2811", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2811.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2811.obj_num = 1;
+  cdat->dobj_2811.obj_hash = 630241765;
+  cdat->dobj_2811.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2811));
+ 
+ MELT_LOCATION("warmelt-first.melt:1552:/ iniobj");
+ /*iniobj dobj_2812*/
+ if (!/*_.VALDATA___V2817*/ curfptr[2816]) /*_.VALDATA___V2817*/ curfptr[2816] = (void*)&cdat->dobj_2812;
+  melt_assertmsg("iniobj checkdiscr dobj_2812", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2812.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2812.obj_num = 2;
+  cdat->dobj_2812.obj_hash = 497135515;
+  cdat->dobj_2812.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2812));
+ 
+ /*inistring dstr_2813__meltgc_put_mapob*/
+ /*_.VALSTR___V2819*/ curfptr[2818] = (void*)&cdat->dstr_2813__meltgc_put_mapob;
+  cdat->dstr_2813__meltgc_put_mapob.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2813__meltgc_put_mapob.val, "meltgc_put_mapobjects( (meltmapobjects_ptr_t) (", sizeof(cdat->dstr_2813__meltgc_put_mapob.val)-1);
+ 
+ /*inistring dstr_2814__melto*/
+ /*_.VALSTR___V2820*/ curfptr[2819] = (void*)&cdat->dstr_2814__melto;
+  cdat->dstr_2814__melto.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2814__melto.val, "), \n\t\t\t   (meltobject_ptr_t) (", sizeof(cdat->dstr_2814__melto.val)-1);
+ 
+ /*inistring dstr_2815__melt_*/
+ /*_.VALSTR___V2821*/ curfptr[2820] = (void*)&cdat->dstr_2815__melt_;
+  cdat->dstr_2815__melt_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2815__melt_.val, "), \n\t\t\t   (melt_ptr_t)(", sizeof(cdat->dstr_2815__melt_.val)-1);
+ 
+ /*inistring dstr_2816__*/
+ /*_.VALSTR___V2822*/ curfptr[2821] = (void*)&cdat->dstr_2816__;
+  cdat->dstr_2816__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2816__.val, "))", sizeof(cdat->dstr_2816__.val)-1);
+ 
+ /*inistring dstr_2817__MAPOBJECT_PUT*/
+ /*_.VALSTR___V2812*/ curfptr[2811] = (void*)&cdat->dstr_2817__MAPOBJECT_PUT;
+  cdat->dstr_2817__MAPOBJECT_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2817__MAPOBJECT_PUT.val, "MAPOBJECT_PUT", sizeof(cdat->dstr_2817__MAPOBJECT_PUT.val)-1);
+ 
+ /*iniobj dsym_2818__MAPOBJECT_REMOVE*/
+ if (!/*_.VALDATA___V2824*/ curfptr[2823]) /*_.VALDATA___V2824*/ curfptr[2823] = (void*)&cdat->dsym_2818__MAPOBJECT_REMOVE;
+  melt_assertmsg("iniobj checkdiscr dsym_2818__MAPOBJECT_REMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2818__MAPOBJECT_REMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2818__MAPOBJECT_REMOVE.obj_hash = 713592585;
+  cdat->dsym_2818__MAPOBJECT_REMOVE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2818__MAPOBJECT_REMOVE));
+ 
+ /*inistring dstr_2819__MAPOBJECT_REMOVE*/
+ /*_.VALSTR___V2825*/ curfptr[2824] = (void*)&cdat->dstr_2819__MAPOBJECT_REMOVE;
+  cdat->dstr_2819__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2819__MAPOBJECT_REMOVE.val, "MAPOBJECT_REMOVE", sizeof(cdat->dstr_2819__MAPOBJECT_REMOVE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1558:/ iniobj");
+ /*iniobj dobj_2820__MAPOBJECT_REMOVE*/
+ if (!/*_.VALDATA___V2826*/ curfptr[2825]) /*_.VALDATA___V2826*/ curfptr[2825] = (void*)&cdat->dobj_2820__MAPOBJECT_REMOVE;
+  melt_assertmsg("iniobj checkdiscr dobj_2820__MAPOBJECT_REMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2820__MAPOBJECT_REMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2820__MAPOBJECT_REMOVE.obj_hash = 63553768;
+  cdat->dobj_2820__MAPOBJECT_REMOVE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2820__MAPOBJECT_REMOVE));
+ 
+ /*inimult dtup_2821__MAPOBJECT_REMOVE*/
+ /*_.VALTUP___V2834*/ curfptr[2833] = (void*)&cdat->dtup_2821__MAPOBJECT_REMOVE;
+  cdat->dtup_2821__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2821__MAPOBJECT_REMOVE.nbval = 5;
+ /*inimult dtup_2822__MAPOBJECT_REMOVE*/
+ /*_.VALTUP___V2830*/ curfptr[2829] = (void*)&cdat->dtup_2822__MAPOBJECT_REMOVE;
+  cdat->dtup_2822__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2822__MAPOBJECT_REMOVE.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1558:/ iniobj");
+ /*iniobj dobj_2823*/
+ if (!/*_.VALDATA___V2828*/ curfptr[2827]) /*_.VALDATA___V2828*/ curfptr[2827] = (void*)&cdat->dobj_2823;
+  melt_assertmsg("iniobj checkdiscr dobj_2823", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2823.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2823.obj_num = 0;
+  cdat->dobj_2823.obj_hash = 643166464;
+  cdat->dobj_2823.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2823));
+ 
+ MELT_LOCATION("warmelt-first.melt:1558:/ iniobj");
+ /*iniobj dobj_2824*/
+ if (!/*_.VALDATA___V2829*/ curfptr[2828]) /*_.VALDATA___V2829*/ curfptr[2828] = (void*)&cdat->dobj_2824;
+  melt_assertmsg("iniobj checkdiscr dobj_2824", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2824.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2824.obj_num = 1;
+  cdat->dobj_2824.obj_hash = 294745079;
+  cdat->dobj_2824.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2824));
+ 
+ /*inistring dstr_2825__meltgc_remove_ma*/
+ /*_.VALSTR___V2831*/ curfptr[2830] = (void*)&cdat->dstr_2825__meltgc_remove_ma;
+  cdat->dstr_2825__meltgc_remove_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2825__meltgc_remove_ma.val, "meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (", sizeof(cdat->dstr_2825__meltgc_remove_ma.val)-1);
+ 
+ /*inistring dstr_2826__me*/
+ /*_.VALSTR___V2832*/ curfptr[2831] = (void*)&cdat->dstr_2826__me;
+  cdat->dstr_2826__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2826__me.val, "), \n\t\t\t      (meltobject_ptr_t)(", sizeof(cdat->dstr_2826__me.val)-1);
+ 
+ /*inistring dstr_2827__*/
+ /*_.VALSTR___V2833*/ curfptr[2832] = (void*)&cdat->dstr_2827__;
+  cdat->dstr_2827__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2827__.val, "))", sizeof(cdat->dstr_2827__.val)-1);
+ 
+ /*inistring dstr_2828__MAPOBJECT_REMOVE*/
+ /*_.VALSTR___V2827*/ curfptr[2826] = (void*)&cdat->dstr_2828__MAPOBJECT_REMOVE;
+  cdat->dstr_2828__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2828__MAPOBJECT_REMOVE.val, "MAPOBJECT_REMOVE", sizeof(cdat->dstr_2828__MAPOBJECT_REMOVE.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1563:/ iniobj");
- /*iniobj dobj_2828__MAPOBJECT_REMOVE*/
- if (!/*_.VALDATA___V2834*/ curfptr[2833]) /*_.VALDATA___V2834*/ curfptr[2833] = (void*)&cdat->dobj_2828__MAPOBJECT_REMOVE;
-  melt_assertmsg("iniobj checkdiscr dobj_2828__MAPOBJECT_REMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2828__MAPOBJECT_REMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2828__MAPOBJECT_REMOVE.obj_hash = 494619223;
-  cdat->dobj_2828__MAPOBJECT_REMOVE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2828__MAPOBJECT_REMOVE));
- 
- /*inimult dtup_2829__MAPOBJECT_REMOVE*/
- /*_.VALTUP___V2842*/ curfptr[2841] = (void*)&cdat->dtup_2829__MAPOBJECT_REMOVE;
-  cdat->dtup_2829__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2829__MAPOBJECT_REMOVE.nbval = 5;
- /*inimult dtup_2830__MAPOBJECT_REMOVE*/
- /*_.VALTUP___V2838*/ curfptr[2837] = (void*)&cdat->dtup_2830__MAPOBJECT_REMOVE;
-  cdat->dtup_2830__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2830__MAPOBJECT_REMOVE.nbval = 2;
+ /*iniobj dobj_2829__FOREACH_IN_MAPOBJECT*/
+ if (!/*_.VALDATA___V2835*/ curfptr[2834]) /*_.VALDATA___V2835*/ curfptr[2834] = (void*)&cdat->dobj_2829__FOREACH_IN_MAPOBJECT;
+  melt_assertmsg("iniobj checkdiscr dobj_2829__FOREACH_IN_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_2829__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_2829__FOREACH_IN_MAPOBJECT.obj_hash = 528620028;
+  cdat->dobj_2829__FOREACH_IN_MAPOBJECT.obj_len = 7;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2829__FOREACH_IN_MAPOBJECT));
+ 
+ /*inistring dstr_2830__FOREACH_IN_MAPOB*/
+ /*_.VALSTR___V2836*/ curfptr[2835] = (void*)&cdat->dstr_2830__FOREACH_IN_MAPOB;
+  cdat->dstr_2830__FOREACH_IN_MAPOB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2830__FOREACH_IN_MAPOB.val, "FOREACH_IN_MAPOBJECT", sizeof(cdat->dstr_2830__FOREACH_IN_MAPOB.val)-1);
+ 
+ /*iniobj dsym_2831__OBJMAP*/
+ if (!/*_.VALDATA___V2838*/ curfptr[2837]) /*_.VALDATA___V2838*/ curfptr[2837] = (void*)&cdat->dsym_2831__OBJMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_2831__OBJMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2831__OBJMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2831__OBJMAP.obj_hash = 764489256;
+  cdat->dsym_2831__OBJMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2831__OBJMAP));
+ 
+ /*inistring dstr_2832__OBJMAP*/
+ /*_.VALSTR___V2839*/ curfptr[2838] = (void*)&cdat->dstr_2832__OBJMAP;
+  cdat->dstr_2832__OBJMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2832__OBJMAP.val, "OBJMAP", sizeof(cdat->dstr_2832__OBJMAP.val)-1);
+ 
  MELT_LOCATION("warmelt-first.melt:1563:/ iniobj");
- /*iniobj dobj_2831*/
- if (!/*_.VALDATA___V2836*/ curfptr[2835]) /*_.VALDATA___V2836*/ curfptr[2835] = (void*)&cdat->dobj_2831;
-  melt_assertmsg("iniobj checkdiscr dobj_2831", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2831.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2831.obj_num = 0;
-  cdat->dobj_2831.obj_hash = 1034533232;
-  cdat->dobj_2831.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2831));
+ /*iniobj dobj_2833*/
+ if (!/*_.VALDATA___V2837*/ curfptr[2836]) /*_.VALDATA___V2837*/ curfptr[2836] = (void*)&cdat->dobj_2833;
+  melt_assertmsg("iniobj checkdiscr dobj_2833", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2833.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2833.obj_num = 0;
+  cdat->dobj_2833.obj_hash = 1003957756;
+  cdat->dobj_2833.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2833));
+ 
+ /*inimult dtup_2834__FOREACH_IN_MAPOBJECT*/
+ /*_.VALTUP___V2840*/ curfptr[2839] = (void*)&cdat->dtup_2834__FOREACH_IN_MAPOBJECT;
+  cdat->dtup_2834__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2834__FOREACH_IN_MAPOBJECT.nbval = 1;
+ /*iniobj dsym_2835__EACHOBMAP*/
+ if (!/*_.VALDATA___V2841*/ curfptr[2840]) /*_.VALDATA___V2841*/ curfptr[2840] = (void*)&cdat->dsym_2835__EACHOBMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_2835__EACHOBMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2835__EACHOBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2835__EACHOBMAP.obj_hash = 691266905;
+  cdat->dsym_2835__EACHOBMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2835__EACHOBMAP));
+ 
+ /*inistring dstr_2836__EACHOBMAP*/
+ /*_.VALSTR___V2842*/ curfptr[2841] = (void*)&cdat->dstr_2836__EACHOBMAP;
+  cdat->dstr_2836__EACHOBMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2836__EACHOBMAP.val, "EACHOBMAP", sizeof(cdat->dstr_2836__EACHOBMAP.val)-1);
+ 
+ /*iniobj dsym_2837__CURAT*/
+ if (!/*_.VALDATA___V2844*/ curfptr[2843]) /*_.VALDATA___V2844*/ curfptr[2843] = (void*)&cdat->dsym_2837__CURAT;
+  melt_assertmsg("iniobj checkdiscr dsym_2837__CURAT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2837__CURAT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2837__CURAT.obj_hash = 218876519;
+  cdat->dsym_2837__CURAT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2837__CURAT));
+ 
+ /*inistring dstr_2838__CURAT*/
+ /*_.VALSTR___V2845*/ curfptr[2844] = (void*)&cdat->dstr_2838__CURAT;
+  cdat->dstr_2838__CURAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2838__CURAT.val, "CURAT", sizeof(cdat->dstr_2838__CURAT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1563:/ iniobj");
- /*iniobj dobj_2832*/
- if (!/*_.VALDATA___V2837*/ curfptr[2836]) /*_.VALDATA___V2837*/ curfptr[2836] = (void*)&cdat->dobj_2832;
-  melt_assertmsg("iniobj checkdiscr dobj_2832", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2832.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2832.obj_num = 1;
-  cdat->dobj_2832.obj_hash = 341966546;
-  cdat->dobj_2832.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2832));
- 
- /*inistring dstr_2833__meltgc_remove_ma*/
- /*_.VALSTR___V2839*/ curfptr[2838] = (void*)&cdat->dstr_2833__meltgc_remove_ma;
-  cdat->dstr_2833__meltgc_remove_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2833__meltgc_remove_ma.val, "meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (", sizeof(cdat->dstr_2833__meltgc_remove_ma.val)-1);
- 
- /*inistring dstr_2834__me*/
- /*_.VALSTR___V2840*/ curfptr[2839] = (void*)&cdat->dstr_2834__me;
-  cdat->dstr_2834__me.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2834__me.val, "), \n\t\t\t      (meltobject_ptr_t)(", sizeof(cdat->dstr_2834__me.val)-1);
- 
- /*inistring dstr_2835__*/
- /*_.VALSTR___V2841*/ curfptr[2840] = (void*)&cdat->dstr_2835__;
-  cdat->dstr_2835__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2835__.val, "))", sizeof(cdat->dstr_2835__.val)-1);
- 
- /*inistring dstr_2836__MAPOBJECT_REMOVE*/
- /*_.VALSTR___V2835*/ curfptr[2834] = (void*)&cdat->dstr_2836__MAPOBJECT_REMOVE;
-  cdat->dstr_2836__MAPOBJECT_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2836__MAPOBJECT_REMOVE.val, "MAPOBJECT_REMOVE", sizeof(cdat->dstr_2836__MAPOBJECT_REMOVE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1568:/ iniobj");
- /*iniobj dobj_2837__FOREACH_IN_MAPOBJECT*/
- if (!/*_.VALDATA___V2843*/ curfptr[2842]) /*_.VALDATA___V2843*/ curfptr[2842] = (void*)&cdat->dobj_2837__FOREACH_IN_MAPOBJECT;
-  melt_assertmsg("iniobj checkdiscr dobj_2837__FOREACH_IN_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_2837__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_2837__FOREACH_IN_MAPOBJECT.obj_hash = 834163166;
-  cdat->dobj_2837__FOREACH_IN_MAPOBJECT.obj_len = 7;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2837__FOREACH_IN_MAPOBJECT));
- 
- /*inistring dstr_2838__FOREACH_IN_MAPOB*/
- /*_.VALSTR___V2844*/ curfptr[2843] = (void*)&cdat->dstr_2838__FOREACH_IN_MAPOB;
-  cdat->dstr_2838__FOREACH_IN_MAPOB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2838__FOREACH_IN_MAPOB.val, "FOREACH_IN_MAPOBJECT", sizeof(cdat->dstr_2838__FOREACH_IN_MAPOB.val)-1);
- 
- /*iniobj dsym_2839__OBJMAP*/
- if (!/*_.VALDATA___V2846*/ curfptr[2845]) /*_.VALDATA___V2846*/ curfptr[2845] = (void*)&cdat->dsym_2839__OBJMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_2839__OBJMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2839__OBJMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2839__OBJMAP.obj_hash = 764489256;
-  cdat->dsym_2839__OBJMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2839__OBJMAP));
- 
- /*inistring dstr_2840__OBJMAP*/
- /*_.VALSTR___V2847*/ curfptr[2846] = (void*)&cdat->dstr_2840__OBJMAP;
-  cdat->dstr_2840__OBJMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2840__OBJMAP.val, "OBJMAP", sizeof(cdat->dstr_2840__OBJMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1568:/ iniobj");
- /*iniobj dobj_2841*/
- if (!/*_.VALDATA___V2845*/ curfptr[2844]) /*_.VALDATA___V2845*/ curfptr[2844] = (void*)&cdat->dobj_2841;
-  melt_assertmsg("iniobj checkdiscr dobj_2841", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2841.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2841.obj_num = 0;
-  cdat->dobj_2841.obj_hash = 465744966;
-  cdat->dobj_2841.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2841));
- 
- /*inimult dtup_2842__FOREACH_IN_MAPOBJECT*/
- /*_.VALTUP___V2848*/ curfptr[2847] = (void*)&cdat->dtup_2842__FOREACH_IN_MAPOBJECT;
-  cdat->dtup_2842__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2842__FOREACH_IN_MAPOBJECT.nbval = 1;
- /*iniobj dsym_2843__EACHOBMAP*/
- if (!/*_.VALDATA___V2849*/ curfptr[2848]) /*_.VALDATA___V2849*/ curfptr[2848] = (void*)&cdat->dsym_2843__EACHOBMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_2843__EACHOBMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2843__EACHOBMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2843__EACHOBMAP.obj_hash = 691266905;
-  cdat->dsym_2843__EACHOBMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2843__EACHOBMAP));
- 
- /*inistring dstr_2844__EACHOBMAP*/
- /*_.VALSTR___V2850*/ curfptr[2849] = (void*)&cdat->dstr_2844__EACHOBMAP;
-  cdat->dstr_2844__EACHOBMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2844__EACHOBMAP.val, "EACHOBMAP", sizeof(cdat->dstr_2844__EACHOBMAP.val)-1);
- 
- /*iniobj dsym_2845__CURAT*/
- if (!/*_.VALDATA___V2852*/ curfptr[2851]) /*_.VALDATA___V2852*/ curfptr[2851] = (void*)&cdat->dsym_2845__CURAT;
-  melt_assertmsg("iniobj checkdiscr dsym_2845__CURAT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2845__CURAT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2845__CURAT.obj_hash = 218876519;
-  cdat->dsym_2845__CURAT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2845__CURAT));
- 
- /*inistring dstr_2846__CURAT*/
- /*_.VALSTR___V2853*/ curfptr[2852] = (void*)&cdat->dstr_2846__CURAT;
-  cdat->dstr_2846__CURAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2846__CURAT.val, "CURAT", sizeof(cdat->dstr_2846__CURAT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1568:/ iniobj");
- /*iniobj dobj_2847*/
- if (!/*_.VALDATA___V2851*/ curfptr[2850]) /*_.VALDATA___V2851*/ curfptr[2850] = (void*)&cdat->dobj_2847;
-  melt_assertmsg("iniobj checkdiscr dobj_2847", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2847.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2847.obj_num = 0;
-  cdat->dobj_2847.obj_hash = 102471987;
-  cdat->dobj_2847.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2847));
- 
- /*iniobj dsym_2848__CURVA*/
- if (!/*_.VALDATA___V2855*/ curfptr[2854]) /*_.VALDATA___V2855*/ curfptr[2854] = (void*)&cdat->dsym_2848__CURVA;
-  melt_assertmsg("iniobj checkdiscr dsym_2848__CURVA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2848__CURVA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2848__CURVA.obj_hash = 653027268;
-  cdat->dsym_2848__CURVA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2848__CURVA));
- 
- /*inistring dstr_2849__CURVA*/
- /*_.VALSTR___V2856*/ curfptr[2855] = (void*)&cdat->dstr_2849__CURVA;
-  cdat->dstr_2849__CURVA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2849__CURVA.val, "CURVA", sizeof(cdat->dstr_2849__CURVA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1568:/ iniobj");
- /*iniobj dobj_2850*/
- if (!/*_.VALDATA___V2854*/ curfptr[2853]) /*_.VALDATA___V2854*/ curfptr[2853] = (void*)&cdat->dobj_2850;
-  melt_assertmsg("iniobj checkdiscr dobj_2850", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2850.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2850.obj_num = 1;
-  cdat->dobj_2850.obj_hash = 205895560;
-  cdat->dobj_2850.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2850));
- 
- /*inimult dtup_2851__FOREACH_IN_MAPOBJECT*/
- /*_.VALTUP___V2857*/ curfptr[2856] = (void*)&cdat->dtup_2851__FOREACH_IN_MAPOBJECT;
-  cdat->dtup_2851__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2851__FOREACH_IN_MAPOBJECT.nbval = 2;
- /*inistring dstr_2852__*/
- /*_.VALSTR___V2858*/ curfptr[2857] = (void*)&cdat->dstr_2852__;
-  cdat->dstr_2852__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2852__.val, " /*", sizeof(cdat->dstr_2852__.val)-1);
- 
- /*inistring dstr_2853__int_*/
- /*_.VALSTR___V2859*/ curfptr[2858] = (void*)&cdat->dstr_2853__int_;
-  cdat->dstr_2853__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2853__int_.val, " :*/ int ", sizeof(cdat->dstr_2853__int_.val)-1);
- 
- /*inistring dstr_2854__ix_0_*/
- /*_.VALSTR___V2860*/ curfptr[2859] = (void*)&cdat->dstr_2854__ix_0_;
-  cdat->dstr_2854__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2854__ix_0_.val, "_ix=0, ", sizeof(cdat->dstr_2854__ix_0_.val)-1);
- 
- /*inistring dstr_2855__siz_0_for_*/
- /*_.VALSTR___V2861*/ curfptr[2860] = (void*)&cdat->dstr_2855__siz_0_for_;
-  cdat->dstr_2855__siz_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2855__siz_0_for_.val, "_siz=0;\n  for (", sizeof(cdat->dstr_2855__siz_0_for_.val)-1);
- 
- /*inistring dstr_2856__ix_0_*/
- /*_.VALSTR___V2862*/ curfptr[2861] = (void*)&cdat->dstr_2856__ix_0_;
-  cdat->dstr_2856__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2856__ix_0_.val, "_ix=0; \n     /* we retrieve in ", sizeof(cdat->dstr_2856__ix_0_.val)-1);
- 
- /*inistring dstr_2857__siz_the_size_at*/
- /*_.VALSTR___V2863*/ curfptr[2862] = (void*)&cdat->dstr_2857__siz_the_size_at;
-  cdat->dstr_2857__siz_the_size_at.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2857__siz_the_size_at.val, "_siz the size at each iteration since it could change. */\n       ", sizeof(cdat->dstr_2857__siz_the_size_at.val)-1);
- 
- /*inistring dstr_2858__ix_0_*/
- /*_.VALSTR___V2864*/ curfptr[2863] = (void*)&cdat->dstr_2858__ix_0_;
-  cdat->dstr_2858__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2858__ix_0_.val, "_ix>=0 && (", sizeof(cdat->dstr_2858__ix_0_.val)-1);
- 
- /*inistring dstr_2859__siz_melt_size_*/
- /*_.VALSTR___V2865*/ curfptr[2864] = (void*)&cdat->dstr_2859__siz_melt_size_;
-  cdat->dstr_2859__siz_melt_size_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2859__siz_melt_size_.val, "_siz= melt_size_mapobjects(", sizeof(cdat->dstr_2859__siz_melt_size_.val)-1);
- 
- /*inistring dstr_2860__0_*/
- /*_.VALSTR___V2866*/ curfptr[2865] = (void*)&cdat->dstr_2860__0_;
-  cdat->dstr_2860__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2860__0_.val, "))>0\n       && ", sizeof(cdat->dstr_2860__0_.val)-1);
- 
- /*inistring dstr_2861__ix_*/
- /*_.VALSTR___V2867*/ curfptr[2866] = (void*)&cdat->dstr_2861__ix_;
-  cdat->dstr_2861__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2861__ix_.val, "_ix < ", sizeof(cdat->dstr_2861__ix_.val)-1);
- 
- /*inistring dstr_2862__siz_*/
- /*_.VALSTR___V2868*/ curfptr[2867] = (void*)&cdat->dstr_2862__siz_;
-  cdat->dstr_2862__siz_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2862__siz_.val, "_siz;\n       ", sizeof(cdat->dstr_2862__siz_.val)-1);
- 
- /*inistring dstr_2863__ix_*/
- /*_.VALSTR___V2869*/ curfptr[2868] = (void*)&cdat->dstr_2863__ix_;
-  cdat->dstr_2863__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2863__ix_.val, "_ix++) {\n    ", sizeof(cdat->dstr_2863__ix_.val)-1);
- 
- /*inistring dstr_2864__NULL_*/
- /*_.VALSTR___V2870*/ curfptr[2869] = (void*)&cdat->dstr_2864__NULL_;
-  cdat->dstr_2864__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2864__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_2864__NULL_.val)-1);
- 
- /*inistring dstr_2865__NULL_*/
- /*_.VALSTR___V2871*/ curfptr[2870] = (void*)&cdat->dstr_2865__NULL_;
-  cdat->dstr_2865__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2865__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_2865__NULL_.val)-1);
- 
- /*inistring dstr_2866__meltmapobje*/
- /*_.VALSTR___V2872*/ curfptr[2871] = (void*)&cdat->dstr_2866__meltmapobje;
-  cdat->dstr_2866__meltmapobje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2866__meltmapobje.val, " = ((meltmapobjects_ptr_t)", sizeof(cdat->dstr_2866__meltmapobje.val)-1);
- 
- /*inistring dstr_2867__entab_*/
- /*_.VALSTR___V2873*/ curfptr[2872] = (void*)&cdat->dstr_2867__entab_;
-  cdat->dstr_2867__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2867__entab_.val, ")->entab[", sizeof(cdat->dstr_2867__entab_.val)-1);
- 
- /*inistring dstr_2868__ix_e_at_i*/
- /*_.VALSTR___V2874*/ curfptr[2873] = (void*)&cdat->dstr_2868__ix_e_at_i;
-  cdat->dstr_2868__ix_e_at_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2868__ix_e_at_i.val, "_ix].e_at;\n    if (", sizeof(cdat->dstr_2868__ix_e_at_i.val)-1);
- 
- /*inistring dstr_2869__HTAB_DELETED*/
- /*_.VALSTR___V2875*/ curfptr[2874] = (void*)&cdat->dstr_2869__HTAB_DELETED;
-  cdat->dstr_2869__HTAB_DELETED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2869__HTAB_DELETED.val, " == HTAB_DELETED_ENTRY) { ", sizeof(cdat->dstr_2869__HTAB_DELETED.val)-1);
- 
- /*inistring dstr_2870__NULL_continu*/
- /*_.VALSTR___V2876*/ curfptr[2875] = (void*)&cdat->dstr_2870__NULL_continu;
-  cdat->dstr_2870__NULL_continu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2870__NULL_continu.val, " = NULL; continue; };\n    if (!", sizeof(cdat->dstr_2870__NULL_continu.val)-1);
- 
- /*inistring dstr_2871__continue_*/
- /*_.VALSTR___V2877*/ curfptr[2876] = (void*)&cdat->dstr_2871__continue_;
-  cdat->dstr_2871__continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2871__continue_.val, ") continue;\n    ", sizeof(cdat->dstr_2871__continue_.val)-1);
- 
- /*inistring dstr_2872__meltmapobje*/
- /*_.VALSTR___V2878*/ curfptr[2877] = (void*)&cdat->dstr_2872__meltmapobje;
-  cdat->dstr_2872__meltmapobje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2872__meltmapobje.val, " = ((meltmapobjects_ptr_t)", sizeof(cdat->dstr_2872__meltmapobje.val)-1);
- 
- /*inistring dstr_2873__entab_*/
- /*_.VALSTR___V2879*/ curfptr[2878] = (void*)&cdat->dstr_2873__entab_;
-  cdat->dstr_2873__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2873__entab_.val, ")->entab[", sizeof(cdat->dstr_2873__entab_.val)-1);
- 
- /*inistring dstr_2874__ix_e_va_i*/
- /*_.VALSTR___V2880*/ curfptr[2879] = (void*)&cdat->dstr_2874__ix_e_va_i;
-  cdat->dstr_2874__ix_e_va_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2874__ix_e_va_i.val, "_ix].e_va;\n    if (!", sizeof(cdat->dstr_2874__ix_e_va_i.val)-1);
- 
- /*inistring dstr_2875__continue_*/
- /*_.VALSTR___V2881*/ curfptr[2880] = (void*)&cdat->dstr_2875__continue_;
-  cdat->dstr_2875__continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2875__continue_.val, ") continue; \n", sizeof(cdat->dstr_2875__continue_.val)-1);
- 
- /*inimult dtup_2876__FOREACH_IN_MAPOBJECT*/
- /*_.VALTUP___V2882*/ curfptr[2881] = (void*)&cdat->dtup_2876__FOREACH_IN_MAPOBJECT;
-  cdat->dtup_2876__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2876__FOREACH_IN_MAPOBJECT.nbval = 47;
- /*inistring dstr_2877__end_*/
- /*_.VALSTR___V2883*/ curfptr[2882] = (void*)&cdat->dstr_2877__end_;
-  cdat->dstr_2877__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2877__end_.val, " /* end ", sizeof(cdat->dstr_2877__end_.val)-1);
- 
- /*inistring dstr_2878__*/
- /*_.VALSTR___V2884*/ curfptr[2883] = (void*)&cdat->dstr_2878__;
-  cdat->dstr_2878__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2878__.val, " */\n    ", sizeof(cdat->dstr_2878__.val)-1);
- 
- /*inistring dstr_2879__NULL_*/
- /*_.VALSTR___V2885*/ curfptr[2884] = (void*)&cdat->dstr_2879__NULL_;
-  cdat->dstr_2879__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2879__NULL_.val, " = NULL;  \n    ", sizeof(cdat->dstr_2879__NULL_.val)-1);
- 
- /*inistring dstr_2880__NULL_*/
- /*_.VALSTR___V2886*/ curfptr[2885] = (void*)&cdat->dstr_2880__NULL_;
-  cdat->dstr_2880__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2880__NULL_.val, " = NULL;  }\n", sizeof(cdat->dstr_2880__NULL_.val)-1);
- 
- /*inimult dtup_2881__FOREACH_IN_MAPOBJECT*/
- /*_.VALTUP___V2887*/ curfptr[2886] = (void*)&cdat->dtup_2881__FOREACH_IN_MAPOBJECT;
-  cdat->dtup_2881__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2881__FOREACH_IN_MAPOBJECT.nbval = 7;
- /*iniobj dsym_2882__IS_MAPSTRING*/
- if (!/*_.VALDATA___V2888*/ curfptr[2887]) /*_.VALDATA___V2888*/ curfptr[2887] = (void*)&cdat->dsym_2882__IS_MAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2882__IS_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2882__IS_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2882__IS_MAPSTRING.obj_hash = 520840573;
-  cdat->dsym_2882__IS_MAPSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2882__IS_MAPSTRING));
- 
- /*inistring dstr_2883__IS_MAPSTRING*/
- /*_.VALSTR___V2889*/ curfptr[2888] = (void*)&cdat->dstr_2883__IS_MAPSTRING;
-  cdat->dstr_2883__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2883__IS_MAPSTRING.val, "IS_MAPSTRING", sizeof(cdat->dstr_2883__IS_MAPSTRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1599:/ iniobj");
- /*iniobj dobj_2884__IS_MAPSTRING*/
- if (!/*_.VALDATA___V2890*/ curfptr[2889]) /*_.VALDATA___V2890*/ curfptr[2889] = (void*)&cdat->dobj_2884__IS_MAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2884__IS_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2884__IS_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2884__IS_MAPSTRING.obj_hash = 153657192;
-  cdat->dobj_2884__IS_MAPSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2884__IS_MAPSTRING));
- 
- /*inimult dtup_2885__IS_MAPSTRING*/
- /*_.VALTUP___V2896*/ curfptr[2895] = (void*)&cdat->dtup_2885__IS_MAPSTRING;
-  cdat->dtup_2885__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2885__IS_MAPSTRING.nbval = 3;
- /*inimult dtup_2886__IS_MAPSTRING*/
- /*_.VALTUP___V2893*/ curfptr[2892] = (void*)&cdat->dtup_2886__IS_MAPSTRING;
-  cdat->dtup_2886__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2886__IS_MAPSTRING.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1599:/ iniobj");
- /*iniobj dobj_2887*/
- if (!/*_.VALDATA___V2892*/ curfptr[2891]) /*_.VALDATA___V2892*/ curfptr[2891] = (void*)&cdat->dobj_2887;
-  melt_assertmsg("iniobj checkdiscr dobj_2887", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2887.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2887.obj_num = 0;
-  cdat->dobj_2887.obj_hash = 1038454020;
-  cdat->dobj_2887.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2887));
- 
- /*inistring dstr_2888__melt_magic_disc*/
- /*_.VALSTR___V2894*/ curfptr[2893] = (void*)&cdat->dstr_2888__melt_magic_disc;
-  cdat->dstr_2888__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2888__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2888__melt_magic_disc.val)-1);
- 
- /*inistring dstr_2889__OBMAG_MAPS*/
- /*_.VALSTR___V2895*/ curfptr[2894] = (void*)&cdat->dstr_2889__OBMAG_MAPS;
-  cdat->dstr_2889__OBMAG_MAPS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2889__OBMAG_MAPS.val, ")) == OBMAG_MAPSTRINGS)", sizeof(cdat->dstr_2889__OBMAG_MAPS.val)-1);
- 
- /*inistring dstr_2890__IS_MAPSTRING*/
- /*_.VALSTR___V2891*/ curfptr[2890] = (void*)&cdat->dstr_2890__IS_MAPSTRING;
-  cdat->dstr_2890__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2890__IS_MAPSTRING.val, "IS_MAPSTRING", sizeof(cdat->dstr_2890__IS_MAPSTRING.val)-1);
- 
- /*iniobj dsym_2891__MAPSTRING_SIZE*/
- if (!/*_.VALDATA___V2897*/ curfptr[2896]) /*_.VALDATA___V2897*/ curfptr[2896] = (void*)&cdat->dsym_2891__MAPSTRING_SIZE;
-  melt_assertmsg("iniobj checkdiscr dsym_2891__MAPSTRING_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2891__MAPSTRING_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2891__MAPSTRING_SIZE.obj_hash = 245736163;
-  cdat->dsym_2891__MAPSTRING_SIZE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2891__MAPSTRING_SIZE));
- 
- /*inistring dstr_2892__MAPSTRING_SIZE*/
- /*_.VALSTR___V2898*/ curfptr[2897] = (void*)&cdat->dstr_2892__MAPSTRING_SIZE;
-  cdat->dstr_2892__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2892__MAPSTRING_SIZE.val, "MAPSTRING_SIZE", sizeof(cdat->dstr_2892__MAPSTRING_SIZE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1603:/ iniobj");
- /*iniobj dobj_2893__MAPSTRING_SIZE*/
- if (!/*_.VALDATA___V2899*/ curfptr[2898]) /*_.VALDATA___V2899*/ curfptr[2898] = (void*)&cdat->dobj_2893__MAPSTRING_SIZE;
-  melt_assertmsg("iniobj checkdiscr dobj_2893__MAPSTRING_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2893__MAPSTRING_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2893__MAPSTRING_SIZE.obj_hash = 919014950;
-  cdat->dobj_2893__MAPSTRING_SIZE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2893__MAPSTRING_SIZE));
- 
- /*inimult dtup_2894__MAPSTRING_SIZE*/
- /*_.VALTUP___V2905*/ curfptr[2904] = (void*)&cdat->dtup_2894__MAPSTRING_SIZE;
-  cdat->dtup_2894__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2894__MAPSTRING_SIZE.nbval = 3;
- /*inimult dtup_2895__MAPSTRING_SIZE*/
- /*_.VALTUP___V2902*/ curfptr[2901] = (void*)&cdat->dtup_2895__MAPSTRING_SIZE;
-  cdat->dtup_2895__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2895__MAPSTRING_SIZE.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1603:/ iniobj");
- /*iniobj dobj_2896*/
- if (!/*_.VALDATA___V2901*/ curfptr[2900]) /*_.VALDATA___V2901*/ curfptr[2900] = (void*)&cdat->dobj_2896;
-  melt_assertmsg("iniobj checkdiscr dobj_2896", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2896.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2896.obj_num = 0;
-  cdat->dobj_2896.obj_hash = 409336200;
-  cdat->dobj_2896.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2896));
- 
- /*inistring dstr_2897__melt_size_mapst*/
- /*_.VALSTR___V2903*/ curfptr[2902] = (void*)&cdat->dstr_2897__melt_size_mapst;
-  cdat->dstr_2897__melt_size_mapst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2897__melt_size_mapst.val, "(melt_size_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2897__melt_size_mapst.val)-1);
- 
- /*inistring dstr_2898__*/
- /*_.VALSTR___V2904*/ curfptr[2903] = (void*)&cdat->dstr_2898__;
-  cdat->dstr_2898__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2898__.val, ")))", sizeof(cdat->dstr_2898__.val)-1);
- 
- /*inistring dstr_2899__MAPSTRING_SIZE*/
- /*_.VALSTR___V2900*/ curfptr[2899] = (void*)&cdat->dstr_2899__MAPSTRING_SIZE;
-  cdat->dstr_2899__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2899__MAPSTRING_SIZE.val, "MAPSTRING_SIZE", sizeof(cdat->dstr_2899__MAPSTRING_SIZE.val)-1);
- 
- /*iniobj dsym_2900__MAPSTRING_COUNT*/
- if (!/*_.VALDATA___V2906*/ curfptr[2905]) /*_.VALDATA___V2906*/ curfptr[2905] = (void*)&cdat->dsym_2900__MAPSTRING_COUNT;
-  melt_assertmsg("iniobj checkdiscr dsym_2900__MAPSTRING_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2900__MAPSTRING_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2900__MAPSTRING_COUNT.obj_hash = 52002003;
-  cdat->dsym_2900__MAPSTRING_COUNT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2900__MAPSTRING_COUNT));
- 
- /*inistring dstr_2901__MAPSTRING_COUNT*/
- /*_.VALSTR___V2907*/ curfptr[2906] = (void*)&cdat->dstr_2901__MAPSTRING_COUNT;
-  cdat->dstr_2901__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2901__MAPSTRING_COUNT.val, "MAPSTRING_COUNT", sizeof(cdat->dstr_2901__MAPSTRING_COUNT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1607:/ iniobj");
- /*iniobj dobj_2902__MAPSTRING_COUNT*/
- if (!/*_.VALDATA___V2908*/ curfptr[2907]) /*_.VALDATA___V2908*/ curfptr[2907] = (void*)&cdat->dobj_2902__MAPSTRING_COUNT;
-  melt_assertmsg("iniobj checkdiscr dobj_2902__MAPSTRING_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2902__MAPSTRING_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2902__MAPSTRING_COUNT.obj_hash = 30854751;
-  cdat->dobj_2902__MAPSTRING_COUNT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2902__MAPSTRING_COUNT));
- 
- /*inimult dtup_2903__MAPSTRING_COUNT*/
- /*_.VALTUP___V2914*/ curfptr[2913] = (void*)&cdat->dtup_2903__MAPSTRING_COUNT;
-  cdat->dtup_2903__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2903__MAPSTRING_COUNT.nbval = 3;
- /*inimult dtup_2904__MAPSTRING_COUNT*/
- /*_.VALTUP___V2911*/ curfptr[2910] = (void*)&cdat->dtup_2904__MAPSTRING_COUNT;
-  cdat->dtup_2904__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2904__MAPSTRING_COUNT.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1607:/ iniobj");
- /*iniobj dobj_2905*/
- if (!/*_.VALDATA___V2910*/ curfptr[2909]) /*_.VALDATA___V2910*/ curfptr[2909] = (void*)&cdat->dobj_2905;
-  melt_assertmsg("iniobj checkdiscr dobj_2905", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2905.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2905.obj_num = 0;
-  cdat->dobj_2905.obj_hash = 832835264;
-  cdat->dobj_2905.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2905));
- 
- /*inistring dstr_2906__melt_count_maps*/
- /*_.VALSTR___V2912*/ curfptr[2911] = (void*)&cdat->dstr_2906__melt_count_maps;
-  cdat->dstr_2906__melt_count_maps.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2906__melt_count_maps.val, "(melt_count_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2906__melt_count_maps.val)-1);
- 
- /*inistring dstr_2907__*/
- /*_.VALSTR___V2913*/ curfptr[2912] = (void*)&cdat->dstr_2907__;
-  cdat->dstr_2907__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2907__.val, ")))", sizeof(cdat->dstr_2907__.val)-1);
- 
- /*inistring dstr_2908__MAPSTRING_COUNT*/
- /*_.VALSTR___V2909*/ curfptr[2908] = (void*)&cdat->dstr_2908__MAPSTRING_COUNT;
-  cdat->dstr_2908__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2908__MAPSTRING_COUNT.val, "MAPSTRING_COUNT", sizeof(cdat->dstr_2908__MAPSTRING_COUNT.val)-1);
- 
- /*iniobj dsym_2909__MAPSTRING_RAWGET*/
- if (!/*_.VALDATA___V2915*/ curfptr[2914]) /*_.VALDATA___V2915*/ curfptr[2914] = (void*)&cdat->dsym_2909__MAPSTRING_RAWGET;
-  melt_assertmsg("iniobj checkdiscr dsym_2909__MAPSTRING_RAWGET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2909__MAPSTRING_RAWGET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2909__MAPSTRING_RAWGET.obj_hash = 293498500;
-  cdat->dsym_2909__MAPSTRING_RAWGET.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2909__MAPSTRING_RAWGET));
- 
- /*inistring dstr_2910__MAPSTRING_RAWGET*/
- /*_.VALSTR___V2916*/ curfptr[2915] = (void*)&cdat->dstr_2910__MAPSTRING_RAWGET;
-  cdat->dstr_2910__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2910__MAPSTRING_RAWGET.val, "MAPSTRING_RAWGET", sizeof(cdat->dstr_2910__MAPSTRING_RAWGET.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1611:/ iniobj");
- /*iniobj dobj_2911__MAPSTRING_RAWGET*/
- if (!/*_.VALDATA___V2917*/ curfptr[2916]) /*_.VALDATA___V2917*/ curfptr[2916] = (void*)&cdat->dobj_2911__MAPSTRING_RAWGET;
-  melt_assertmsg("iniobj checkdiscr dobj_2911__MAPSTRING_RAWGET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2911__MAPSTRING_RAWGET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2911__MAPSTRING_RAWGET.obj_hash = 206603574;
-  cdat->dobj_2911__MAPSTRING_RAWGET.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2911__MAPSTRING_RAWGET));
- 
- /*inimult dtup_2912__MAPSTRING_RAWGET*/
- /*_.VALTUP___V2925*/ curfptr[2924] = (void*)&cdat->dtup_2912__MAPSTRING_RAWGET;
-  cdat->dtup_2912__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2912__MAPSTRING_RAWGET.nbval = 5;
- /*inimult dtup_2913__MAPSTRING_RAWGET*/
- /*_.VALTUP___V2921*/ curfptr[2920] = (void*)&cdat->dtup_2913__MAPSTRING_RAWGET;
-  cdat->dtup_2913__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2913__MAPSTRING_RAWGET.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1611:/ iniobj");
- /*iniobj dobj_2914*/
- if (!/*_.VALDATA___V2919*/ curfptr[2918]) /*_.VALDATA___V2919*/ curfptr[2918] = (void*)&cdat->dobj_2914;
-  melt_assertmsg("iniobj checkdiscr dobj_2914", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2914.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2914.obj_num = 0;
-  cdat->dobj_2914.obj_hash = 256870802;
-  cdat->dobj_2914.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2914));
- 
- MELT_LOCATION("warmelt-first.melt:1611:/ iniobj");
- /*iniobj dobj_2915*/
- if (!/*_.VALDATA___V2920*/ curfptr[2919]) /*_.VALDATA___V2920*/ curfptr[2919] = (void*)&cdat->dobj_2915;
-  melt_assertmsg("iniobj checkdiscr dobj_2915", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2915.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2915.obj_num = 1;
-  cdat->dobj_2915.obj_hash = 413023156;
-  cdat->dobj_2915.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2915));
- 
- /*inistring dstr_2916__melt_get_mapstr*/
- /*_.VALSTR___V2922*/ curfptr[2921] = (void*)&cdat->dstr_2916__melt_get_mapstr;
-  cdat->dstr_2916__melt_get_mapstr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2916__melt_get_mapstr.val, "(melt_get_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2916__melt_get_mapstr.val)-1);
- 
- /*inistring dstr_2917__*/
- /*_.VALSTR___V2923*/ curfptr[2922] = (void*)&cdat->dstr_2917__;
-  cdat->dstr_2917__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2917__.val, "), (", sizeof(cdat->dstr_2917__.val)-1);
- 
- /*inistring dstr_2918__*/
- /*_.VALSTR___V2924*/ curfptr[2923] = (void*)&cdat->dstr_2918__;
-  cdat->dstr_2918__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2918__.val, ")))", sizeof(cdat->dstr_2918__.val)-1);
- 
- /*inistring dstr_2919__MAPSTRING_RAWGET*/
- /*_.VALSTR___V2918*/ curfptr[2917] = (void*)&cdat->dstr_2919__MAPSTRING_RAWGET;
-  cdat->dstr_2919__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2919__MAPSTRING_RAWGET.val, "MAPSTRING_RAWGET", sizeof(cdat->dstr_2919__MAPSTRING_RAWGET.val)-1);
- 
- /*iniobj dsym_2920__MAKE_MAPSTRING*/
- if (!/*_.VALDATA___V2926*/ curfptr[2925]) /*_.VALDATA___V2926*/ curfptr[2925] = (void*)&cdat->dsym_2920__MAKE_MAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_2920__MAKE_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2920__MAKE_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2920__MAKE_MAPSTRING.obj_hash = 180453159;
-  cdat->dsym_2920__MAKE_MAPSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2920__MAKE_MAPSTRING));
- 
- /*inistring dstr_2921__MAKE_MAPSTRING*/
- /*_.VALSTR___V2927*/ curfptr[2926] = (void*)&cdat->dstr_2921__MAKE_MAPSTRING;
-  cdat->dstr_2921__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2921__MAKE_MAPSTRING.val, "MAKE_MAPSTRING", sizeof(cdat->dstr_2921__MAKE_MAPSTRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1615:/ iniobj");
- /*iniobj dobj_2922__MAKE_MAPSTRING*/
- if (!/*_.VALDATA___V2928*/ curfptr[2927]) /*_.VALDATA___V2928*/ curfptr[2927] = (void*)&cdat->dobj_2922__MAKE_MAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_2922__MAKE_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2922__MAKE_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2922__MAKE_MAPSTRING.obj_hash = 972266754;
-  cdat->dobj_2922__MAKE_MAPSTRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2922__MAKE_MAPSTRING));
- 
- /*inimult dtup_2923__MAKE_MAPSTRING*/
- /*_.VALTUP___V2936*/ curfptr[2935] = (void*)&cdat->dtup_2923__MAKE_MAPSTRING;
-  cdat->dtup_2923__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2923__MAKE_MAPSTRING.nbval = 5;
- /*inimult dtup_2924__MAKE_MAPSTRING*/
- /*_.VALTUP___V2932*/ curfptr[2931] = (void*)&cdat->dtup_2924__MAKE_MAPSTRING;
-  cdat->dtup_2924__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2924__MAKE_MAPSTRING.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1615:/ iniobj");
- /*iniobj dobj_2925*/
- if (!/*_.VALDATA___V2930*/ curfptr[2929]) /*_.VALDATA___V2930*/ curfptr[2929] = (void*)&cdat->dobj_2925;
-  melt_assertmsg("iniobj checkdiscr dobj_2925", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2925.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2925.obj_num = 0;
-  cdat->dobj_2925.obj_hash = 503301308;
-  cdat->dobj_2925.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2925));
- 
- MELT_LOCATION("warmelt-first.melt:1615:/ iniobj");
- /*iniobj dobj_2926*/
- if (!/*_.VALDATA___V2931*/ curfptr[2930]) /*_.VALDATA___V2931*/ curfptr[2930] = (void*)&cdat->dobj_2926;
-  melt_assertmsg("iniobj checkdiscr dobj_2926", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2926.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2926.obj_num = 1;
-  cdat->dobj_2926.obj_hash = 224494851;
-  cdat->dobj_2926.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2926));
- 
- /*inistring dstr_2927__meltgc_new_maps*/
- /*_.VALSTR___V2933*/ curfptr[2932] = (void*)&cdat->dstr_2927__meltgc_new_maps;
-  cdat->dstr_2927__meltgc_new_maps.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2927__meltgc_new_maps.val, "(meltgc_new_mapstrings( (meltobject_ptr_t) (", sizeof(cdat->dstr_2927__meltgc_new_maps.val)-1);
- 
- /*inistring dstr_2928__*/
- /*_.VALSTR___V2934*/ curfptr[2933] = (void*)&cdat->dstr_2928__;
-  cdat->dstr_2928__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2928__.val, "), (", sizeof(cdat->dstr_2928__.val)-1);
- 
- /*inistring dstr_2929__*/
- /*_.VALSTR___V2935*/ curfptr[2934] = (void*)&cdat->dstr_2929__;
-  cdat->dstr_2929__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2929__.val, ")))", sizeof(cdat->dstr_2929__.val)-1);
- 
- /*inistring dstr_2930__MAKE_MAPSTRING*/
- /*_.VALSTR___V2929*/ curfptr[2928] = (void*)&cdat->dstr_2930__MAKE_MAPSTRING;
-  cdat->dstr_2930__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2930__MAKE_MAPSTRING.val, "MAKE_MAPSTRING", sizeof(cdat->dstr_2930__MAKE_MAPSTRING.val)-1);
- 
- /*iniobj dsym_2931__MAPSTRING_RAWPUT*/
- if (!/*_.VALDATA___V2937*/ curfptr[2936]) /*_.VALDATA___V2937*/ curfptr[2936] = (void*)&cdat->dsym_2931__MAPSTRING_RAWPUT;
-  melt_assertmsg("iniobj checkdiscr dsym_2931__MAPSTRING_RAWPUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2931__MAPSTRING_RAWPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2931__MAPSTRING_RAWPUT.obj_hash = 338216364;
-  cdat->dsym_2931__MAPSTRING_RAWPUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2931__MAPSTRING_RAWPUT));
- 
- /*inistring dstr_2932__MAPSTRING_RAWPUT*/
- /*_.VALSTR___V2938*/ curfptr[2937] = (void*)&cdat->dstr_2932__MAPSTRING_RAWPUT;
-  cdat->dstr_2932__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2932__MAPSTRING_RAWPUT.val, "MAPSTRING_RAWPUT", sizeof(cdat->dstr_2932__MAPSTRING_RAWPUT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1619:/ iniobj");
- /*iniobj dobj_2933__MAPSTRING_RAWPUT*/
- if (!/*_.VALDATA___V2939*/ curfptr[2938]) /*_.VALDATA___V2939*/ curfptr[2938] = (void*)&cdat->dobj_2933__MAPSTRING_RAWPUT;
-  melt_assertmsg("iniobj checkdiscr dobj_2933__MAPSTRING_RAWPUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2933__MAPSTRING_RAWPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2933__MAPSTRING_RAWPUT.obj_hash = 28963250;
-  cdat->dobj_2933__MAPSTRING_RAWPUT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2933__MAPSTRING_RAWPUT));
- 
- /*inimult dtup_2934__MAPSTRING_RAWPUT*/
- /*_.VALTUP___V2949*/ curfptr[2948] = (void*)&cdat->dtup_2934__MAPSTRING_RAWPUT;
-  cdat->dtup_2934__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2934__MAPSTRING_RAWPUT.nbval = 7;
- /*inimult dtup_2935__MAPSTRING_RAWPUT*/
- /*_.VALTUP___V2944*/ curfptr[2943] = (void*)&cdat->dtup_2935__MAPSTRING_RAWPUT;
-  cdat->dtup_2935__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2935__MAPSTRING_RAWPUT.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1619:/ iniobj");
- /*iniobj dobj_2936*/
- if (!/*_.VALDATA___V2941*/ curfptr[2940]) /*_.VALDATA___V2941*/ curfptr[2940] = (void*)&cdat->dobj_2936;
-  melt_assertmsg("iniobj checkdiscr dobj_2936", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2936.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2936.obj_num = 0;
-  cdat->dobj_2936.obj_hash = 367128737;
-  cdat->dobj_2936.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2936));
- 
- MELT_LOCATION("warmelt-first.melt:1619:/ iniobj");
- /*iniobj dobj_2937*/
- if (!/*_.VALDATA___V2942*/ curfptr[2941]) /*_.VALDATA___V2942*/ curfptr[2941] = (void*)&cdat->dobj_2937;
-  melt_assertmsg("iniobj checkdiscr dobj_2937", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2937.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2937.obj_num = 1;
-  cdat->dobj_2937.obj_hash = 402004290;
-  cdat->dobj_2937.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2937));
- 
- MELT_LOCATION("warmelt-first.melt:1619:/ iniobj");
- /*iniobj dobj_2938*/
- if (!/*_.VALDATA___V2943*/ curfptr[2942]) /*_.VALDATA___V2943*/ curfptr[2942] = (void*)&cdat->dobj_2938;
-  melt_assertmsg("iniobj checkdiscr dobj_2938", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2938.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2938.obj_num = 2;
-  cdat->dobj_2938.obj_hash = 432508369;
-  cdat->dobj_2938.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2938));
- 
- /*inistring dstr_2939__meltgc_put_mapst*/
- /*_.VALSTR___V2945*/ curfptr[2944] = (void*)&cdat->dstr_2939__meltgc_put_mapst;
-  cdat->dstr_2939__meltgc_put_mapst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2939__meltgc_put_mapst.val, "meltgc_put_mapstrings( (struct meltmapstrings_st *) (", sizeof(cdat->dstr_2939__meltgc_put_mapst.val)-1);
- 
- /*inistring dstr_2940__*/
- /*_.VALSTR___V2946*/ curfptr[2945] = (void*)&cdat->dstr_2940__;
-  cdat->dstr_2940__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2940__.val, "), (", sizeof(cdat->dstr_2940__.val)-1);
- 
- /*inistring dstr_2941__melt_ptr_t_*/
- /*_.VALSTR___V2947*/ curfptr[2946] = (void*)&cdat->dstr_2941__melt_ptr_t_;
-  cdat->dstr_2941__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2941__melt_ptr_t_.val, "), (melt_ptr_t) (", sizeof(cdat->dstr_2941__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2942__*/
- /*_.VALSTR___V2948*/ curfptr[2947] = (void*)&cdat->dstr_2942__;
-  cdat->dstr_2942__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2942__.val, "))", sizeof(cdat->dstr_2942__.val)-1);
- 
- /*inistring dstr_2943__MAPSTRING_RAWPUT*/
- /*_.VALSTR___V2940*/ curfptr[2939] = (void*)&cdat->dstr_2943__MAPSTRING_RAWPUT;
-  cdat->dstr_2943__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2943__MAPSTRING_RAWPUT.val, "MAPSTRING_RAWPUT", sizeof(cdat->dstr_2943__MAPSTRING_RAWPUT.val)-1);
- 
- /*iniobj dsym_2944__MAPSTRING_PUTSTR*/
- if (!/*_.VALDATA___V2950*/ curfptr[2949]) /*_.VALDATA___V2950*/ curfptr[2949] = (void*)&cdat->dsym_2944__MAPSTRING_PUTSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2944__MAPSTRING_PUTSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2944__MAPSTRING_PUTSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2944__MAPSTRING_PUTSTR.obj_hash = 1045032160;
-  cdat->dsym_2944__MAPSTRING_PUTSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2944__MAPSTRING_PUTSTR));
- 
- /*inistring dstr_2945__MAPSTRING_PUTSTR*/
- /*_.VALSTR___V2951*/ curfptr[2950] = (void*)&cdat->dstr_2945__MAPSTRING_PUTSTR;
-  cdat->dstr_2945__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2945__MAPSTRING_PUTSTR.val, "MAPSTRING_PUTSTR", sizeof(cdat->dstr_2945__MAPSTRING_PUTSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1622:/ iniobj");
- /*iniobj dobj_2946__MAPSTRING_PUTSTR*/
- if (!/*_.VALDATA___V2952*/ curfptr[2951]) /*_.VALDATA___V2952*/ curfptr[2951] = (void*)&cdat->dobj_2946__MAPSTRING_PUTSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_2946__MAPSTRING_PUTSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2946__MAPSTRING_PUTSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2946__MAPSTRING_PUTSTR.obj_hash = 396359036;
-  cdat->dobj_2946__MAPSTRING_PUTSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2946__MAPSTRING_PUTSTR));
- 
- /*inimult dtup_2947__MAPSTRING_PUTSTR*/
- /*_.VALTUP___V2964*/ curfptr[2963] = (void*)&cdat->dtup_2947__MAPSTRING_PUTSTR;
-  cdat->dtup_2947__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2947__MAPSTRING_PUTSTR.nbval = 7;
- /*inimult dtup_2948__MAPSTRING_PUTSTR*/
- /*_.VALTUP___V2959*/ curfptr[2958] = (void*)&cdat->dtup_2948__MAPSTRING_PUTSTR;
-  cdat->dtup_2948__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2948__MAPSTRING_PUTSTR.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1622:/ iniobj");
- /*iniobj dobj_2949*/
- if (!/*_.VALDATA___V2954*/ curfptr[2953]) /*_.VALDATA___V2954*/ curfptr[2953] = (void*)&cdat->dobj_2949;
-  melt_assertmsg("iniobj checkdiscr dobj_2949", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2949.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2949.obj_num = 0;
-  cdat->dobj_2949.obj_hash = 644975337;
-  cdat->dobj_2949.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2949));
- 
- /*iniobj dsym_2950__KEYSTR*/
- if (!/*_.VALDATA___V2956*/ curfptr[2955]) /*_.VALDATA___V2956*/ curfptr[2955] = (void*)&cdat->dsym_2950__KEYSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2950__KEYSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2950__KEYSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2950__KEYSTR.obj_hash = 117919921;
-  cdat->dsym_2950__KEYSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2950__KEYSTR));
- 
- /*inistring dstr_2951__KEYSTR*/
- /*_.VALSTR___V2957*/ curfptr[2956] = (void*)&cdat->dstr_2951__KEYSTR;
-  cdat->dstr_2951__KEYSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2951__KEYSTR.val, "KEYSTR", sizeof(cdat->dstr_2951__KEYSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1622:/ iniobj");
- /*iniobj dobj_2952*/
- if (!/*_.VALDATA___V2955*/ curfptr[2954]) /*_.VALDATA___V2955*/ curfptr[2954] = (void*)&cdat->dobj_2952;
-  melt_assertmsg("iniobj checkdiscr dobj_2952", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2952.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2952.obj_num = 1;
-  cdat->dobj_2952.obj_hash = 626874828;
-  cdat->dobj_2952.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2952));
- 
- MELT_LOCATION("warmelt-first.melt:1622:/ iniobj");
- /*iniobj dobj_2953*/
- if (!/*_.VALDATA___V2958*/ curfptr[2957]) /*_.VALDATA___V2958*/ curfptr[2957] = (void*)&cdat->dobj_2953;
-  melt_assertmsg("iniobj checkdiscr dobj_2953", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2953.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2953.obj_num = 2;
-  cdat->dobj_2953.obj_hash = 304965073;
-  cdat->dobj_2953.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2953));
- 
- /*inistring dstr_2954__meltgc_put_mapst*/
- /*_.VALSTR___V2960*/ curfptr[2959] = (void*)&cdat->dstr_2954__meltgc_put_mapst;
-  cdat->dstr_2954__meltgc_put_mapst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2954__meltgc_put_mapst.val, "meltgc_put_mapstrings((struct meltmapstrings_st *) (", sizeof(cdat->dstr_2954__meltgc_put_mapst.val)-1);
- 
- /*inistring dstr_2955__melt_string_s*/
- /*_.VALSTR___V2961*/ curfptr[2960] = (void*)&cdat->dstr_2955__melt_string_s;
-  cdat->dstr_2955__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2955__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2955__melt_string_s.val)-1);
- 
- /*inistring dstr_2956__melt_ptr_t_*/
- /*_.VALSTR___V2962*/ curfptr[2961] = (void*)&cdat->dstr_2956__melt_ptr_t_;
-  cdat->dstr_2956__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2956__melt_ptr_t_.val, ")), (melt_ptr_t)(", sizeof(cdat->dstr_2956__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_2957__*/
- /*_.VALSTR___V2963*/ curfptr[2962] = (void*)&cdat->dstr_2957__;
-  cdat->dstr_2957__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2957__.val, "))", sizeof(cdat->dstr_2957__.val)-1);
- 
- /*inistring dstr_2958__MAPSTRING_PUTSTR*/
- /*_.VALSTR___V2953*/ curfptr[2952] = (void*)&cdat->dstr_2958__MAPSTRING_PUTSTR;
-  cdat->dstr_2958__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2958__MAPSTRING_PUTSTR.val, "MAPSTRING_PUTSTR", sizeof(cdat->dstr_2958__MAPSTRING_PUTSTR.val)-1);
- 
- /*iniobj dsym_2959__MAPSTRING_GETSTR*/
- if (!/*_.VALDATA___V2965*/ curfptr[2964]) /*_.VALDATA___V2965*/ curfptr[2964] = (void*)&cdat->dsym_2959__MAPSTRING_GETSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2959__MAPSTRING_GETSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2959__MAPSTRING_GETSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2959__MAPSTRING_GETSTR.obj_hash = 569055300;
-  cdat->dsym_2959__MAPSTRING_GETSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2959__MAPSTRING_GETSTR));
- 
- /*inistring dstr_2960__MAPSTRING_GETSTR*/
- /*_.VALSTR___V2966*/ curfptr[2965] = (void*)&cdat->dstr_2960__MAPSTRING_GETSTR;
-  cdat->dstr_2960__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2960__MAPSTRING_GETSTR.val, "MAPSTRING_GETSTR", sizeof(cdat->dstr_2960__MAPSTRING_GETSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1625:/ iniobj");
- /*iniobj dobj_2961__MAPSTRING_GETSTR*/
- if (!/*_.VALDATA___V2967*/ curfptr[2966]) /*_.VALDATA___V2967*/ curfptr[2966] = (void*)&cdat->dobj_2961__MAPSTRING_GETSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_2961__MAPSTRING_GETSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2961__MAPSTRING_GETSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2961__MAPSTRING_GETSTR.obj_hash = 794852844;
-  cdat->dobj_2961__MAPSTRING_GETSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2961__MAPSTRING_GETSTR));
- 
- /*inimult dtup_2962__MAPSTRING_GETSTR*/
- /*_.VALTUP___V2975*/ curfptr[2974] = (void*)&cdat->dtup_2962__MAPSTRING_GETSTR;
-  cdat->dtup_2962__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2962__MAPSTRING_GETSTR.nbval = 5;
- /*inimult dtup_2963__MAPSTRING_GETSTR*/
- /*_.VALTUP___V2971*/ curfptr[2970] = (void*)&cdat->dtup_2963__MAPSTRING_GETSTR;
-  cdat->dtup_2963__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2963__MAPSTRING_GETSTR.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1625:/ iniobj");
- /*iniobj dobj_2964*/
- if (!/*_.VALDATA___V2969*/ curfptr[2968]) /*_.VALDATA___V2969*/ curfptr[2968] = (void*)&cdat->dobj_2964;
-  melt_assertmsg("iniobj checkdiscr dobj_2964", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2964.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2964.obj_num = 0;
-  cdat->dobj_2964.obj_hash = 900788567;
-  cdat->dobj_2964.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2964));
- 
- MELT_LOCATION("warmelt-first.melt:1625:/ iniobj");
- /*iniobj dobj_2965*/
- if (!/*_.VALDATA___V2970*/ curfptr[2969]) /*_.VALDATA___V2970*/ curfptr[2969] = (void*)&cdat->dobj_2965;
-  melt_assertmsg("iniobj checkdiscr dobj_2965", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2965.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2965.obj_num = 1;
-  cdat->dobj_2965.obj_hash = 1064952688;
-  cdat->dobj_2965.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2965));
- 
- /*inistring dstr_2966__melt_get_mapstr*/
- /*_.VALSTR___V2972*/ curfptr[2971] = (void*)&cdat->dstr_2966__melt_get_mapstr;
-  cdat->dstr_2966__melt_get_mapstr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2966__melt_get_mapstr.val, "(melt_get_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2966__melt_get_mapstr.val)-1);
- 
- /*inistring dstr_2967__melt_string_s*/
- /*_.VALSTR___V2973*/ curfptr[2972] = (void*)&cdat->dstr_2967__melt_string_s;
-  cdat->dstr_2967__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2967__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2967__melt_string_s.val)-1);
- 
- /*inistring dstr_2968__*/
- /*_.VALSTR___V2974*/ curfptr[2973] = (void*)&cdat->dstr_2968__;
-  cdat->dstr_2968__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2968__.val, "))))", sizeof(cdat->dstr_2968__.val)-1);
- 
- /*inistring dstr_2969__MAPSTRING_GETSTR*/
- /*_.VALSTR___V2968*/ curfptr[2967] = (void*)&cdat->dstr_2969__MAPSTRING_GETSTR;
-  cdat->dstr_2969__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2969__MAPSTRING_GETSTR.val, "MAPSTRING_GETSTR", sizeof(cdat->dstr_2969__MAPSTRING_GETSTR.val)-1);
- 
- /*iniobj dsym_2970__MAPSTRING_RAWREMOVE*/
- if (!/*_.VALDATA___V2976*/ curfptr[2975]) /*_.VALDATA___V2976*/ curfptr[2975] = (void*)&cdat->dsym_2970__MAPSTRING_RAWREMOVE;
-  melt_assertmsg("iniobj checkdiscr dsym_2970__MAPSTRING_RAWREMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2970__MAPSTRING_RAWREMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2970__MAPSTRING_RAWREMOVE.obj_hash = 793006697;
-  cdat->dsym_2970__MAPSTRING_RAWREMOVE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2970__MAPSTRING_RAWREMOVE));
- 
- /*inistring dstr_2971__MAPSTRING_RAWREM*/
- /*_.VALSTR___V2977*/ curfptr[2976] = (void*)&cdat->dstr_2971__MAPSTRING_RAWREM;
-  cdat->dstr_2971__MAPSTRING_RAWREM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2971__MAPSTRING_RAWREM.val, "MAPSTRING_RAWREMOVE", sizeof(cdat->dstr_2971__MAPSTRING_RAWREM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1629:/ iniobj");
- /*iniobj dobj_2972__MAPSTRING_RAWREMOVE*/
- if (!/*_.VALDATA___V2978*/ curfptr[2977]) /*_.VALDATA___V2978*/ curfptr[2977] = (void*)&cdat->dobj_2972__MAPSTRING_RAWREMOVE;
-  melt_assertmsg("iniobj checkdiscr dobj_2972__MAPSTRING_RAWREMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2972__MAPSTRING_RAWREMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2972__MAPSTRING_RAWREMOVE.obj_hash = 414138180;
-  cdat->dobj_2972__MAPSTRING_RAWREMOVE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2972__MAPSTRING_RAWREMOVE));
- 
- /*inimult dtup_2973__MAPSTRING_RAWREMOVE*/
- /*_.VALTUP___V2986*/ curfptr[2985] = (void*)&cdat->dtup_2973__MAPSTRING_RAWREMOVE;
-  cdat->dtup_2973__MAPSTRING_RAWREMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2973__MAPSTRING_RAWREMOVE.nbval = 5;
- /*inimult dtup_2974__MAPSTRING_RAWREMOVE*/
- /*_.VALTUP___V2982*/ curfptr[2981] = (void*)&cdat->dtup_2974__MAPSTRING_RAWREMOVE;
-  cdat->dtup_2974__MAPSTRING_RAWREMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2974__MAPSTRING_RAWREMOVE.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1629:/ iniobj");
- /*iniobj dobj_2975*/
- if (!/*_.VALDATA___V2980*/ curfptr[2979]) /*_.VALDATA___V2980*/ curfptr[2979] = (void*)&cdat->dobj_2975;
-  melt_assertmsg("iniobj checkdiscr dobj_2975", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2975.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2975.obj_num = 0;
-  cdat->dobj_2975.obj_hash = 172120527;
-  cdat->dobj_2975.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2975));
- 
- MELT_LOCATION("warmelt-first.melt:1629:/ iniobj");
- /*iniobj dobj_2976*/
- if (!/*_.VALDATA___V2981*/ curfptr[2980]) /*_.VALDATA___V2981*/ curfptr[2980] = (void*)&cdat->dobj_2976;
-  melt_assertmsg("iniobj checkdiscr dobj_2976", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2976.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2976.obj_num = 1;
-  cdat->dobj_2976.obj_hash = 310606327;
-  cdat->dobj_2976.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2976));
- 
- /*inistring dstr_2977__meltgc_remove_ma*/
- /*_.VALSTR___V2983*/ curfptr[2982] = (void*)&cdat->dstr_2977__meltgc_remove_ma;
-  cdat->dstr_2977__meltgc_remove_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2977__meltgc_remove_ma.val, "meltgc_remove_mapstrings((struct meltmapstrings_st*) (", sizeof(cdat->dstr_2977__meltgc_remove_ma.val)-1);
- 
- /*inistring dstr_2978__*/
- /*_.VALSTR___V2984*/ curfptr[2983] = (void*)&cdat->dstr_2978__;
-  cdat->dstr_2978__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2978__.val, "), (", sizeof(cdat->dstr_2978__.val)-1);
- 
- /*inistring dstr_2979__*/
- /*_.VALSTR___V2985*/ curfptr[2984] = (void*)&cdat->dstr_2979__;
-  cdat->dstr_2979__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2979__.val, "))", sizeof(cdat->dstr_2979__.val)-1);
- 
- /*inistring dstr_2980__MAPSTRING_RAWREM*/
- /*_.VALSTR___V2979*/ curfptr[2978] = (void*)&cdat->dstr_2980__MAPSTRING_RAWREM;
-  cdat->dstr_2980__MAPSTRING_RAWREM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2980__MAPSTRING_RAWREM.val, "MAPSTRING_RAWREMOVE", sizeof(cdat->dstr_2980__MAPSTRING_RAWREM.val)-1);
- 
- /*iniobj dsym_2981__MAPSTRING_REMOVESTR*/
- if (!/*_.VALDATA___V2987*/ curfptr[2986]) /*_.VALDATA___V2987*/ curfptr[2986] = (void*)&cdat->dsym_2981__MAPSTRING_REMOVESTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2981__MAPSTRING_REMOVESTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2981__MAPSTRING_REMOVESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2981__MAPSTRING_REMOVESTR.obj_hash = 27663658;
-  cdat->dsym_2981__MAPSTRING_REMOVESTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2981__MAPSTRING_REMOVESTR));
- 
- /*inistring dstr_2982__MAPSTRING_REMOVE*/
- /*_.VALSTR___V2988*/ curfptr[2987] = (void*)&cdat->dstr_2982__MAPSTRING_REMOVE;
-  cdat->dstr_2982__MAPSTRING_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2982__MAPSTRING_REMOVE.val, "MAPSTRING_REMOVESTR", sizeof(cdat->dstr_2982__MAPSTRING_REMOVE.val)-1);
+ /*iniobj dobj_2839*/
+ if (!/*_.VALDATA___V2843*/ curfptr[2842]) /*_.VALDATA___V2843*/ curfptr[2842] = (void*)&cdat->dobj_2839;
+  melt_assertmsg("iniobj checkdiscr dobj_2839", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2839.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2839.obj_num = 0;
+  cdat->dobj_2839.obj_hash = 639917836;
+  cdat->dobj_2839.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2839));
+ 
+ /*iniobj dsym_2840__CURVA*/
+ if (!/*_.VALDATA___V2847*/ curfptr[2846]) /*_.VALDATA___V2847*/ curfptr[2846] = (void*)&cdat->dsym_2840__CURVA;
+  melt_assertmsg("iniobj checkdiscr dsym_2840__CURVA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2840__CURVA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2840__CURVA.obj_hash = 653027268;
+  cdat->dsym_2840__CURVA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2840__CURVA));
+ 
+ /*inistring dstr_2841__CURVA*/
+ /*_.VALSTR___V2848*/ curfptr[2847] = (void*)&cdat->dstr_2841__CURVA;
+  cdat->dstr_2841__CURVA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2841__CURVA.val, "CURVA", sizeof(cdat->dstr_2841__CURVA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1563:/ iniobj");
+ /*iniobj dobj_2842*/
+ if (!/*_.VALDATA___V2846*/ curfptr[2845]) /*_.VALDATA___V2846*/ curfptr[2845] = (void*)&cdat->dobj_2842;
+  melt_assertmsg("iniobj checkdiscr dobj_2842", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2842.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2842.obj_num = 1;
+  cdat->dobj_2842.obj_hash = 357364454;
+  cdat->dobj_2842.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2842));
+ 
+ /*inimult dtup_2843__FOREACH_IN_MAPOBJECT*/
+ /*_.VALTUP___V2849*/ curfptr[2848] = (void*)&cdat->dtup_2843__FOREACH_IN_MAPOBJECT;
+  cdat->dtup_2843__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2843__FOREACH_IN_MAPOBJECT.nbval = 2;
+ /*inistring dstr_2844__*/
+ /*_.VALSTR___V2850*/ curfptr[2849] = (void*)&cdat->dstr_2844__;
+  cdat->dstr_2844__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2844__.val, " /*", sizeof(cdat->dstr_2844__.val)-1);
+ 
+ /*inistring dstr_2845__int_*/
+ /*_.VALSTR___V2851*/ curfptr[2850] = (void*)&cdat->dstr_2845__int_;
+  cdat->dstr_2845__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2845__int_.val, " :*/ int ", sizeof(cdat->dstr_2845__int_.val)-1);
+ 
+ /*inistring dstr_2846__ix_0_*/
+ /*_.VALSTR___V2852*/ curfptr[2851] = (void*)&cdat->dstr_2846__ix_0_;
+  cdat->dstr_2846__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2846__ix_0_.val, "_ix=0, ", sizeof(cdat->dstr_2846__ix_0_.val)-1);
+ 
+ /*inistring dstr_2847__siz_0_for_*/
+ /*_.VALSTR___V2853*/ curfptr[2852] = (void*)&cdat->dstr_2847__siz_0_for_;
+  cdat->dstr_2847__siz_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2847__siz_0_for_.val, "_siz=0;\n  for (", sizeof(cdat->dstr_2847__siz_0_for_.val)-1);
+ 
+ /*inistring dstr_2848__ix_0_*/
+ /*_.VALSTR___V2854*/ curfptr[2853] = (void*)&cdat->dstr_2848__ix_0_;
+  cdat->dstr_2848__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2848__ix_0_.val, "_ix=0; \n     /* we retrieve in ", sizeof(cdat->dstr_2848__ix_0_.val)-1);
+ 
+ /*inistring dstr_2849__siz_the_size_at*/
+ /*_.VALSTR___V2855*/ curfptr[2854] = (void*)&cdat->dstr_2849__siz_the_size_at;
+  cdat->dstr_2849__siz_the_size_at.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2849__siz_the_size_at.val, "_siz the size at each iteration since it could change. */\n       ", sizeof(cdat->dstr_2849__siz_the_size_at.val)-1);
+ 
+ /*inistring dstr_2850__ix_0_*/
+ /*_.VALSTR___V2856*/ curfptr[2855] = (void*)&cdat->dstr_2850__ix_0_;
+  cdat->dstr_2850__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2850__ix_0_.val, "_ix>=0 && (", sizeof(cdat->dstr_2850__ix_0_.val)-1);
+ 
+ /*inistring dstr_2851__siz_melt_size_*/
+ /*_.VALSTR___V2857*/ curfptr[2856] = (void*)&cdat->dstr_2851__siz_melt_size_;
+  cdat->dstr_2851__siz_melt_size_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2851__siz_melt_size_.val, "_siz= melt_size_mapobjects(", sizeof(cdat->dstr_2851__siz_melt_size_.val)-1);
+ 
+ /*inistring dstr_2852__0_*/
+ /*_.VALSTR___V2858*/ curfptr[2857] = (void*)&cdat->dstr_2852__0_;
+  cdat->dstr_2852__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2852__0_.val, "))>0\n       && ", sizeof(cdat->dstr_2852__0_.val)-1);
+ 
+ /*inistring dstr_2853__ix_*/
+ /*_.VALSTR___V2859*/ curfptr[2858] = (void*)&cdat->dstr_2853__ix_;
+  cdat->dstr_2853__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2853__ix_.val, "_ix < ", sizeof(cdat->dstr_2853__ix_.val)-1);
+ 
+ /*inistring dstr_2854__siz_*/
+ /*_.VALSTR___V2860*/ curfptr[2859] = (void*)&cdat->dstr_2854__siz_;
+  cdat->dstr_2854__siz_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2854__siz_.val, "_siz;\n       ", sizeof(cdat->dstr_2854__siz_.val)-1);
+ 
+ /*inistring dstr_2855__ix_*/
+ /*_.VALSTR___V2861*/ curfptr[2860] = (void*)&cdat->dstr_2855__ix_;
+  cdat->dstr_2855__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2855__ix_.val, "_ix++) {\n    ", sizeof(cdat->dstr_2855__ix_.val)-1);
+ 
+ /*inistring dstr_2856__NULL_*/
+ /*_.VALSTR___V2862*/ curfptr[2861] = (void*)&cdat->dstr_2856__NULL_;
+  cdat->dstr_2856__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2856__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_2856__NULL_.val)-1);
+ 
+ /*inistring dstr_2857__NULL_*/
+ /*_.VALSTR___V2863*/ curfptr[2862] = (void*)&cdat->dstr_2857__NULL_;
+  cdat->dstr_2857__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2857__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_2857__NULL_.val)-1);
+ 
+ /*inistring dstr_2858__meltmapobje*/
+ /*_.VALSTR___V2864*/ curfptr[2863] = (void*)&cdat->dstr_2858__meltmapobje;
+  cdat->dstr_2858__meltmapobje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2858__meltmapobje.val, " = ((meltmapobjects_ptr_t)", sizeof(cdat->dstr_2858__meltmapobje.val)-1);
+ 
+ /*inistring dstr_2859__entab_*/
+ /*_.VALSTR___V2865*/ curfptr[2864] = (void*)&cdat->dstr_2859__entab_;
+  cdat->dstr_2859__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2859__entab_.val, ")->entab[", sizeof(cdat->dstr_2859__entab_.val)-1);
+ 
+ /*inistring dstr_2860__ix_e_at_i*/
+ /*_.VALSTR___V2866*/ curfptr[2865] = (void*)&cdat->dstr_2860__ix_e_at_i;
+  cdat->dstr_2860__ix_e_at_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2860__ix_e_at_i.val, "_ix].e_at;\n    if (", sizeof(cdat->dstr_2860__ix_e_at_i.val)-1);
+ 
+ /*inistring dstr_2861__HTAB_DELETED*/
+ /*_.VALSTR___V2867*/ curfptr[2866] = (void*)&cdat->dstr_2861__HTAB_DELETED;
+  cdat->dstr_2861__HTAB_DELETED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2861__HTAB_DELETED.val, " == HTAB_DELETED_ENTRY) { ", sizeof(cdat->dstr_2861__HTAB_DELETED.val)-1);
+ 
+ /*inistring dstr_2862__NULL_continu*/
+ /*_.VALSTR___V2868*/ curfptr[2867] = (void*)&cdat->dstr_2862__NULL_continu;
+  cdat->dstr_2862__NULL_continu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2862__NULL_continu.val, " = NULL; continue; };\n    if (!", sizeof(cdat->dstr_2862__NULL_continu.val)-1);
+ 
+ /*inistring dstr_2863__continue_*/
+ /*_.VALSTR___V2869*/ curfptr[2868] = (void*)&cdat->dstr_2863__continue_;
+  cdat->dstr_2863__continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2863__continue_.val, ") continue;\n    ", sizeof(cdat->dstr_2863__continue_.val)-1);
+ 
+ /*inistring dstr_2864__meltmapobje*/
+ /*_.VALSTR___V2870*/ curfptr[2869] = (void*)&cdat->dstr_2864__meltmapobje;
+  cdat->dstr_2864__meltmapobje.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2864__meltmapobje.val, " = ((meltmapobjects_ptr_t)", sizeof(cdat->dstr_2864__meltmapobje.val)-1);
+ 
+ /*inistring dstr_2865__entab_*/
+ /*_.VALSTR___V2871*/ curfptr[2870] = (void*)&cdat->dstr_2865__entab_;
+  cdat->dstr_2865__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2865__entab_.val, ")->entab[", sizeof(cdat->dstr_2865__entab_.val)-1);
+ 
+ /*inistring dstr_2866__ix_e_va_i*/
+ /*_.VALSTR___V2872*/ curfptr[2871] = (void*)&cdat->dstr_2866__ix_e_va_i;
+  cdat->dstr_2866__ix_e_va_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2866__ix_e_va_i.val, "_ix].e_va;\n    if (!", sizeof(cdat->dstr_2866__ix_e_va_i.val)-1);
+ 
+ /*inistring dstr_2867__continue_*/
+ /*_.VALSTR___V2873*/ curfptr[2872] = (void*)&cdat->dstr_2867__continue_;
+  cdat->dstr_2867__continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2867__continue_.val, ") continue; \n", sizeof(cdat->dstr_2867__continue_.val)-1);
+ 
+ /*inimult dtup_2868__FOREACH_IN_MAPOBJECT*/
+ /*_.VALTUP___V2874*/ curfptr[2873] = (void*)&cdat->dtup_2868__FOREACH_IN_MAPOBJECT;
+  cdat->dtup_2868__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2868__FOREACH_IN_MAPOBJECT.nbval = 47;
+ /*inistring dstr_2869__end_*/
+ /*_.VALSTR___V2875*/ curfptr[2874] = (void*)&cdat->dstr_2869__end_;
+  cdat->dstr_2869__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2869__end_.val, " /* end ", sizeof(cdat->dstr_2869__end_.val)-1);
+ 
+ /*inistring dstr_2870__*/
+ /*_.VALSTR___V2876*/ curfptr[2875] = (void*)&cdat->dstr_2870__;
+  cdat->dstr_2870__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2870__.val, " */\n    ", sizeof(cdat->dstr_2870__.val)-1);
+ 
+ /*inistring dstr_2871__NULL_*/
+ /*_.VALSTR___V2877*/ curfptr[2876] = (void*)&cdat->dstr_2871__NULL_;
+  cdat->dstr_2871__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2871__NULL_.val, " = NULL;  \n    ", sizeof(cdat->dstr_2871__NULL_.val)-1);
+ 
+ /*inistring dstr_2872__NULL_*/
+ /*_.VALSTR___V2878*/ curfptr[2877] = (void*)&cdat->dstr_2872__NULL_;
+  cdat->dstr_2872__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2872__NULL_.val, " = NULL;  }\n", sizeof(cdat->dstr_2872__NULL_.val)-1);
+ 
+ /*inimult dtup_2873__FOREACH_IN_MAPOBJECT*/
+ /*_.VALTUP___V2879*/ curfptr[2878] = (void*)&cdat->dtup_2873__FOREACH_IN_MAPOBJECT;
+  cdat->dtup_2873__FOREACH_IN_MAPOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2873__FOREACH_IN_MAPOBJECT.nbval = 7;
+ /*iniobj dsym_2874__IS_MAPSTRING*/
+ if (!/*_.VALDATA___V2880*/ curfptr[2879]) /*_.VALDATA___V2880*/ curfptr[2879] = (void*)&cdat->dsym_2874__IS_MAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2874__IS_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2874__IS_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2874__IS_MAPSTRING.obj_hash = 520840573;
+  cdat->dsym_2874__IS_MAPSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2874__IS_MAPSTRING));
+ 
+ /*inistring dstr_2875__IS_MAPSTRING*/
+ /*_.VALSTR___V2881*/ curfptr[2880] = (void*)&cdat->dstr_2875__IS_MAPSTRING;
+  cdat->dstr_2875__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2875__IS_MAPSTRING.val, "IS_MAPSTRING", sizeof(cdat->dstr_2875__IS_MAPSTRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1594:/ iniobj");
+ /*iniobj dobj_2876__IS_MAPSTRING*/
+ if (!/*_.VALDATA___V2882*/ curfptr[2881]) /*_.VALDATA___V2882*/ curfptr[2881] = (void*)&cdat->dobj_2876__IS_MAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2876__IS_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2876__IS_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2876__IS_MAPSTRING.obj_hash = 1021968775;
+  cdat->dobj_2876__IS_MAPSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2876__IS_MAPSTRING));
+ 
+ /*inimult dtup_2877__IS_MAPSTRING*/
+ /*_.VALTUP___V2888*/ curfptr[2887] = (void*)&cdat->dtup_2877__IS_MAPSTRING;
+  cdat->dtup_2877__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2877__IS_MAPSTRING.nbval = 3;
+ /*inimult dtup_2878__IS_MAPSTRING*/
+ /*_.VALTUP___V2885*/ curfptr[2884] = (void*)&cdat->dtup_2878__IS_MAPSTRING;
+  cdat->dtup_2878__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2878__IS_MAPSTRING.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1594:/ iniobj");
+ /*iniobj dobj_2879*/
+ if (!/*_.VALDATA___V2884*/ curfptr[2883]) /*_.VALDATA___V2884*/ curfptr[2883] = (void*)&cdat->dobj_2879;
+  melt_assertmsg("iniobj checkdiscr dobj_2879", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2879.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2879.obj_num = 0;
+  cdat->dobj_2879.obj_hash = 741769322;
+  cdat->dobj_2879.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2879));
+ 
+ /*inistring dstr_2880__melt_magic_disc*/
+ /*_.VALSTR___V2886*/ curfptr[2885] = (void*)&cdat->dstr_2880__melt_magic_disc;
+  cdat->dstr_2880__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2880__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_2880__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_2881__OBMAG_MAPS*/
+ /*_.VALSTR___V2887*/ curfptr[2886] = (void*)&cdat->dstr_2881__OBMAG_MAPS;
+  cdat->dstr_2881__OBMAG_MAPS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2881__OBMAG_MAPS.val, ")) == OBMAG_MAPSTRINGS)", sizeof(cdat->dstr_2881__OBMAG_MAPS.val)-1);
+ 
+ /*inistring dstr_2882__IS_MAPSTRING*/
+ /*_.VALSTR___V2883*/ curfptr[2882] = (void*)&cdat->dstr_2882__IS_MAPSTRING;
+  cdat->dstr_2882__IS_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2882__IS_MAPSTRING.val, "IS_MAPSTRING", sizeof(cdat->dstr_2882__IS_MAPSTRING.val)-1);
+ 
+ /*iniobj dsym_2883__MAPSTRING_SIZE*/
+ if (!/*_.VALDATA___V2889*/ curfptr[2888]) /*_.VALDATA___V2889*/ curfptr[2888] = (void*)&cdat->dsym_2883__MAPSTRING_SIZE;
+  melt_assertmsg("iniobj checkdiscr dsym_2883__MAPSTRING_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2883__MAPSTRING_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2883__MAPSTRING_SIZE.obj_hash = 245736163;
+  cdat->dsym_2883__MAPSTRING_SIZE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2883__MAPSTRING_SIZE));
+ 
+ /*inistring dstr_2884__MAPSTRING_SIZE*/
+ /*_.VALSTR___V2890*/ curfptr[2889] = (void*)&cdat->dstr_2884__MAPSTRING_SIZE;
+  cdat->dstr_2884__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2884__MAPSTRING_SIZE.val, "MAPSTRING_SIZE", sizeof(cdat->dstr_2884__MAPSTRING_SIZE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1598:/ iniobj");
+ /*iniobj dobj_2885__MAPSTRING_SIZE*/
+ if (!/*_.VALDATA___V2891*/ curfptr[2890]) /*_.VALDATA___V2891*/ curfptr[2890] = (void*)&cdat->dobj_2885__MAPSTRING_SIZE;
+  melt_assertmsg("iniobj checkdiscr dobj_2885__MAPSTRING_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2885__MAPSTRING_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2885__MAPSTRING_SIZE.obj_hash = 180145139;
+  cdat->dobj_2885__MAPSTRING_SIZE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2885__MAPSTRING_SIZE));
+ 
+ /*inimult dtup_2886__MAPSTRING_SIZE*/
+ /*_.VALTUP___V2897*/ curfptr[2896] = (void*)&cdat->dtup_2886__MAPSTRING_SIZE;
+  cdat->dtup_2886__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2886__MAPSTRING_SIZE.nbval = 3;
+ /*inimult dtup_2887__MAPSTRING_SIZE*/
+ /*_.VALTUP___V2894*/ curfptr[2893] = (void*)&cdat->dtup_2887__MAPSTRING_SIZE;
+  cdat->dtup_2887__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2887__MAPSTRING_SIZE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1598:/ iniobj");
+ /*iniobj dobj_2888*/
+ if (!/*_.VALDATA___V2893*/ curfptr[2892]) /*_.VALDATA___V2893*/ curfptr[2892] = (void*)&cdat->dobj_2888;
+  melt_assertmsg("iniobj checkdiscr dobj_2888", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2888.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2888.obj_num = 0;
+  cdat->dobj_2888.obj_hash = 674969018;
+  cdat->dobj_2888.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2888));
+ 
+ /*inistring dstr_2889__melt_size_mapst*/
+ /*_.VALSTR___V2895*/ curfptr[2894] = (void*)&cdat->dstr_2889__melt_size_mapst;
+  cdat->dstr_2889__melt_size_mapst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2889__melt_size_mapst.val, "(melt_size_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2889__melt_size_mapst.val)-1);
+ 
+ /*inistring dstr_2890__*/
+ /*_.VALSTR___V2896*/ curfptr[2895] = (void*)&cdat->dstr_2890__;
+  cdat->dstr_2890__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2890__.val, ")))", sizeof(cdat->dstr_2890__.val)-1);
+ 
+ /*inistring dstr_2891__MAPSTRING_SIZE*/
+ /*_.VALSTR___V2892*/ curfptr[2891] = (void*)&cdat->dstr_2891__MAPSTRING_SIZE;
+  cdat->dstr_2891__MAPSTRING_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2891__MAPSTRING_SIZE.val, "MAPSTRING_SIZE", sizeof(cdat->dstr_2891__MAPSTRING_SIZE.val)-1);
+ 
+ /*iniobj dsym_2892__MAPSTRING_COUNT*/
+ if (!/*_.VALDATA___V2898*/ curfptr[2897]) /*_.VALDATA___V2898*/ curfptr[2897] = (void*)&cdat->dsym_2892__MAPSTRING_COUNT;
+  melt_assertmsg("iniobj checkdiscr dsym_2892__MAPSTRING_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2892__MAPSTRING_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2892__MAPSTRING_COUNT.obj_hash = 52002003;
+  cdat->dsym_2892__MAPSTRING_COUNT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2892__MAPSTRING_COUNT));
+ 
+ /*inistring dstr_2893__MAPSTRING_COUNT*/
+ /*_.VALSTR___V2899*/ curfptr[2898] = (void*)&cdat->dstr_2893__MAPSTRING_COUNT;
+  cdat->dstr_2893__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2893__MAPSTRING_COUNT.val, "MAPSTRING_COUNT", sizeof(cdat->dstr_2893__MAPSTRING_COUNT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1602:/ iniobj");
+ /*iniobj dobj_2894__MAPSTRING_COUNT*/
+ if (!/*_.VALDATA___V2900*/ curfptr[2899]) /*_.VALDATA___V2900*/ curfptr[2899] = (void*)&cdat->dobj_2894__MAPSTRING_COUNT;
+  melt_assertmsg("iniobj checkdiscr dobj_2894__MAPSTRING_COUNT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2894__MAPSTRING_COUNT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2894__MAPSTRING_COUNT.obj_hash = 135009575;
+  cdat->dobj_2894__MAPSTRING_COUNT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2894__MAPSTRING_COUNT));
+ 
+ /*inimult dtup_2895__MAPSTRING_COUNT*/
+ /*_.VALTUP___V2906*/ curfptr[2905] = (void*)&cdat->dtup_2895__MAPSTRING_COUNT;
+  cdat->dtup_2895__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2895__MAPSTRING_COUNT.nbval = 3;
+ /*inimult dtup_2896__MAPSTRING_COUNT*/
+ /*_.VALTUP___V2903*/ curfptr[2902] = (void*)&cdat->dtup_2896__MAPSTRING_COUNT;
+  cdat->dtup_2896__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2896__MAPSTRING_COUNT.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1602:/ iniobj");
+ /*iniobj dobj_2897*/
+ if (!/*_.VALDATA___V2902*/ curfptr[2901]) /*_.VALDATA___V2902*/ curfptr[2901] = (void*)&cdat->dobj_2897;
+  melt_assertmsg("iniobj checkdiscr dobj_2897", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2897.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2897.obj_num = 0;
+  cdat->dobj_2897.obj_hash = 113088351;
+  cdat->dobj_2897.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2897));
+ 
+ /*inistring dstr_2898__melt_count_maps*/
+ /*_.VALSTR___V2904*/ curfptr[2903] = (void*)&cdat->dstr_2898__melt_count_maps;
+  cdat->dstr_2898__melt_count_maps.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2898__melt_count_maps.val, "(melt_count_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2898__melt_count_maps.val)-1);
+ 
+ /*inistring dstr_2899__*/
+ /*_.VALSTR___V2905*/ curfptr[2904] = (void*)&cdat->dstr_2899__;
+  cdat->dstr_2899__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2899__.val, ")))", sizeof(cdat->dstr_2899__.val)-1);
+ 
+ /*inistring dstr_2900__MAPSTRING_COUNT*/
+ /*_.VALSTR___V2901*/ curfptr[2900] = (void*)&cdat->dstr_2900__MAPSTRING_COUNT;
+  cdat->dstr_2900__MAPSTRING_COUNT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2900__MAPSTRING_COUNT.val, "MAPSTRING_COUNT", sizeof(cdat->dstr_2900__MAPSTRING_COUNT.val)-1);
+ 
+ /*iniobj dsym_2901__MAPSTRING_RAWGET*/
+ if (!/*_.VALDATA___V2907*/ curfptr[2906]) /*_.VALDATA___V2907*/ curfptr[2906] = (void*)&cdat->dsym_2901__MAPSTRING_RAWGET;
+  melt_assertmsg("iniobj checkdiscr dsym_2901__MAPSTRING_RAWGET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2901__MAPSTRING_RAWGET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2901__MAPSTRING_RAWGET.obj_hash = 293498500;
+  cdat->dsym_2901__MAPSTRING_RAWGET.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2901__MAPSTRING_RAWGET));
+ 
+ /*inistring dstr_2902__MAPSTRING_RAWGET*/
+ /*_.VALSTR___V2908*/ curfptr[2907] = (void*)&cdat->dstr_2902__MAPSTRING_RAWGET;
+  cdat->dstr_2902__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2902__MAPSTRING_RAWGET.val, "MAPSTRING_RAWGET", sizeof(cdat->dstr_2902__MAPSTRING_RAWGET.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1606:/ iniobj");
+ /*iniobj dobj_2903__MAPSTRING_RAWGET*/
+ if (!/*_.VALDATA___V2909*/ curfptr[2908]) /*_.VALDATA___V2909*/ curfptr[2908] = (void*)&cdat->dobj_2903__MAPSTRING_RAWGET;
+  melt_assertmsg("iniobj checkdiscr dobj_2903__MAPSTRING_RAWGET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2903__MAPSTRING_RAWGET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2903__MAPSTRING_RAWGET.obj_hash = 896546488;
+  cdat->dobj_2903__MAPSTRING_RAWGET.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2903__MAPSTRING_RAWGET));
+ 
+ /*inimult dtup_2904__MAPSTRING_RAWGET*/
+ /*_.VALTUP___V2917*/ curfptr[2916] = (void*)&cdat->dtup_2904__MAPSTRING_RAWGET;
+  cdat->dtup_2904__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2904__MAPSTRING_RAWGET.nbval = 5;
+ /*inimult dtup_2905__MAPSTRING_RAWGET*/
+ /*_.VALTUP___V2913*/ curfptr[2912] = (void*)&cdat->dtup_2905__MAPSTRING_RAWGET;
+  cdat->dtup_2905__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2905__MAPSTRING_RAWGET.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1606:/ iniobj");
+ /*iniobj dobj_2906*/
+ if (!/*_.VALDATA___V2911*/ curfptr[2910]) /*_.VALDATA___V2911*/ curfptr[2910] = (void*)&cdat->dobj_2906;
+  melt_assertmsg("iniobj checkdiscr dobj_2906", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2906.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2906.obj_num = 0;
+  cdat->dobj_2906.obj_hash = 248116125;
+  cdat->dobj_2906.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2906));
+ 
+ MELT_LOCATION("warmelt-first.melt:1606:/ iniobj");
+ /*iniobj dobj_2907*/
+ if (!/*_.VALDATA___V2912*/ curfptr[2911]) /*_.VALDATA___V2912*/ curfptr[2911] = (void*)&cdat->dobj_2907;
+  melt_assertmsg("iniobj checkdiscr dobj_2907", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2907.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2907.obj_num = 1;
+  cdat->dobj_2907.obj_hash = 415312638;
+  cdat->dobj_2907.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2907));
+ 
+ /*inistring dstr_2908__melt_get_mapstr*/
+ /*_.VALSTR___V2914*/ curfptr[2913] = (void*)&cdat->dstr_2908__melt_get_mapstr;
+  cdat->dstr_2908__melt_get_mapstr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2908__melt_get_mapstr.val, "(melt_get_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2908__melt_get_mapstr.val)-1);
+ 
+ /*inistring dstr_2909__*/
+ /*_.VALSTR___V2915*/ curfptr[2914] = (void*)&cdat->dstr_2909__;
+  cdat->dstr_2909__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2909__.val, "), (", sizeof(cdat->dstr_2909__.val)-1);
+ 
+ /*inistring dstr_2910__*/
+ /*_.VALSTR___V2916*/ curfptr[2915] = (void*)&cdat->dstr_2910__;
+  cdat->dstr_2910__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2910__.val, ")))", sizeof(cdat->dstr_2910__.val)-1);
+ 
+ /*inistring dstr_2911__MAPSTRING_RAWGET*/
+ /*_.VALSTR___V2910*/ curfptr[2909] = (void*)&cdat->dstr_2911__MAPSTRING_RAWGET;
+  cdat->dstr_2911__MAPSTRING_RAWGET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2911__MAPSTRING_RAWGET.val, "MAPSTRING_RAWGET", sizeof(cdat->dstr_2911__MAPSTRING_RAWGET.val)-1);
+ 
+ /*iniobj dsym_2912__MAKE_MAPSTRING*/
+ if (!/*_.VALDATA___V2918*/ curfptr[2917]) /*_.VALDATA___V2918*/ curfptr[2917] = (void*)&cdat->dsym_2912__MAKE_MAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_2912__MAKE_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2912__MAKE_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2912__MAKE_MAPSTRING.obj_hash = 180453159;
+  cdat->dsym_2912__MAKE_MAPSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2912__MAKE_MAPSTRING));
+ 
+ /*inistring dstr_2913__MAKE_MAPSTRING*/
+ /*_.VALSTR___V2919*/ curfptr[2918] = (void*)&cdat->dstr_2913__MAKE_MAPSTRING;
+  cdat->dstr_2913__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2913__MAKE_MAPSTRING.val, "MAKE_MAPSTRING", sizeof(cdat->dstr_2913__MAKE_MAPSTRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1610:/ iniobj");
+ /*iniobj dobj_2914__MAKE_MAPSTRING*/
+ if (!/*_.VALDATA___V2920*/ curfptr[2919]) /*_.VALDATA___V2920*/ curfptr[2919] = (void*)&cdat->dobj_2914__MAKE_MAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_2914__MAKE_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2914__MAKE_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2914__MAKE_MAPSTRING.obj_hash = 552833753;
+  cdat->dobj_2914__MAKE_MAPSTRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2914__MAKE_MAPSTRING));
+ 
+ /*inimult dtup_2915__MAKE_MAPSTRING*/
+ /*_.VALTUP___V2928*/ curfptr[2927] = (void*)&cdat->dtup_2915__MAKE_MAPSTRING;
+  cdat->dtup_2915__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2915__MAKE_MAPSTRING.nbval = 5;
+ /*inimult dtup_2916__MAKE_MAPSTRING*/
+ /*_.VALTUP___V2924*/ curfptr[2923] = (void*)&cdat->dtup_2916__MAKE_MAPSTRING;
+  cdat->dtup_2916__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2916__MAKE_MAPSTRING.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1610:/ iniobj");
+ /*iniobj dobj_2917*/
+ if (!/*_.VALDATA___V2922*/ curfptr[2921]) /*_.VALDATA___V2922*/ curfptr[2921] = (void*)&cdat->dobj_2917;
+  melt_assertmsg("iniobj checkdiscr dobj_2917", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2917.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2917.obj_num = 0;
+  cdat->dobj_2917.obj_hash = 566660646;
+  cdat->dobj_2917.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2917));
+ 
+ MELT_LOCATION("warmelt-first.melt:1610:/ iniobj");
+ /*iniobj dobj_2918*/
+ if (!/*_.VALDATA___V2923*/ curfptr[2922]) /*_.VALDATA___V2923*/ curfptr[2922] = (void*)&cdat->dobj_2918;
+  melt_assertmsg("iniobj checkdiscr dobj_2918", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2918.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2918.obj_num = 1;
+  cdat->dobj_2918.obj_hash = 230541193;
+  cdat->dobj_2918.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2918));
+ 
+ /*inistring dstr_2919__meltgc_new_maps*/
+ /*_.VALSTR___V2925*/ curfptr[2924] = (void*)&cdat->dstr_2919__meltgc_new_maps;
+  cdat->dstr_2919__meltgc_new_maps.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2919__meltgc_new_maps.val, "(meltgc_new_mapstrings( (meltobject_ptr_t) (", sizeof(cdat->dstr_2919__meltgc_new_maps.val)-1);
+ 
+ /*inistring dstr_2920__*/
+ /*_.VALSTR___V2926*/ curfptr[2925] = (void*)&cdat->dstr_2920__;
+  cdat->dstr_2920__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2920__.val, "), (", sizeof(cdat->dstr_2920__.val)-1);
+ 
+ /*inistring dstr_2921__*/
+ /*_.VALSTR___V2927*/ curfptr[2926] = (void*)&cdat->dstr_2921__;
+  cdat->dstr_2921__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2921__.val, ")))", sizeof(cdat->dstr_2921__.val)-1);
+ 
+ /*inistring dstr_2922__MAKE_MAPSTRING*/
+ /*_.VALSTR___V2921*/ curfptr[2920] = (void*)&cdat->dstr_2922__MAKE_MAPSTRING;
+  cdat->dstr_2922__MAKE_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2922__MAKE_MAPSTRING.val, "MAKE_MAPSTRING", sizeof(cdat->dstr_2922__MAKE_MAPSTRING.val)-1);
+ 
+ /*iniobj dsym_2923__MAPSTRING_RAWPUT*/
+ if (!/*_.VALDATA___V2929*/ curfptr[2928]) /*_.VALDATA___V2929*/ curfptr[2928] = (void*)&cdat->dsym_2923__MAPSTRING_RAWPUT;
+  melt_assertmsg("iniobj checkdiscr dsym_2923__MAPSTRING_RAWPUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2923__MAPSTRING_RAWPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2923__MAPSTRING_RAWPUT.obj_hash = 338216364;
+  cdat->dsym_2923__MAPSTRING_RAWPUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2923__MAPSTRING_RAWPUT));
+ 
+ /*inistring dstr_2924__MAPSTRING_RAWPUT*/
+ /*_.VALSTR___V2930*/ curfptr[2929] = (void*)&cdat->dstr_2924__MAPSTRING_RAWPUT;
+  cdat->dstr_2924__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2924__MAPSTRING_RAWPUT.val, "MAPSTRING_RAWPUT", sizeof(cdat->dstr_2924__MAPSTRING_RAWPUT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1614:/ iniobj");
+ /*iniobj dobj_2925__MAPSTRING_RAWPUT*/
+ if (!/*_.VALDATA___V2931*/ curfptr[2930]) /*_.VALDATA___V2931*/ curfptr[2930] = (void*)&cdat->dobj_2925__MAPSTRING_RAWPUT;
+  melt_assertmsg("iniobj checkdiscr dobj_2925__MAPSTRING_RAWPUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2925__MAPSTRING_RAWPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2925__MAPSTRING_RAWPUT.obj_hash = 197209027;
+  cdat->dobj_2925__MAPSTRING_RAWPUT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2925__MAPSTRING_RAWPUT));
+ 
+ /*inimult dtup_2926__MAPSTRING_RAWPUT*/
+ /*_.VALTUP___V2941*/ curfptr[2940] = (void*)&cdat->dtup_2926__MAPSTRING_RAWPUT;
+  cdat->dtup_2926__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2926__MAPSTRING_RAWPUT.nbval = 7;
+ /*inimult dtup_2927__MAPSTRING_RAWPUT*/
+ /*_.VALTUP___V2936*/ curfptr[2935] = (void*)&cdat->dtup_2927__MAPSTRING_RAWPUT;
+  cdat->dtup_2927__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2927__MAPSTRING_RAWPUT.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1614:/ iniobj");
+ /*iniobj dobj_2928*/
+ if (!/*_.VALDATA___V2933*/ curfptr[2932]) /*_.VALDATA___V2933*/ curfptr[2932] = (void*)&cdat->dobj_2928;
+  melt_assertmsg("iniobj checkdiscr dobj_2928", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2928.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2928.obj_num = 0;
+  cdat->dobj_2928.obj_hash = 139740336;
+  cdat->dobj_2928.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2928));
+ 
+ MELT_LOCATION("warmelt-first.melt:1614:/ iniobj");
+ /*iniobj dobj_2929*/
+ if (!/*_.VALDATA___V2934*/ curfptr[2933]) /*_.VALDATA___V2934*/ curfptr[2933] = (void*)&cdat->dobj_2929;
+  melt_assertmsg("iniobj checkdiscr dobj_2929", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2929.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2929.obj_num = 1;
+  cdat->dobj_2929.obj_hash = 908136539;
+  cdat->dobj_2929.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2929));
+ 
+ MELT_LOCATION("warmelt-first.melt:1614:/ iniobj");
+ /*iniobj dobj_2930*/
+ if (!/*_.VALDATA___V2935*/ curfptr[2934]) /*_.VALDATA___V2935*/ curfptr[2934] = (void*)&cdat->dobj_2930;
+  melt_assertmsg("iniobj checkdiscr dobj_2930", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2930.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2930.obj_num = 2;
+  cdat->dobj_2930.obj_hash = 327092015;
+  cdat->dobj_2930.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2930));
+ 
+ /*inistring dstr_2931__meltgc_put_mapst*/
+ /*_.VALSTR___V2937*/ curfptr[2936] = (void*)&cdat->dstr_2931__meltgc_put_mapst;
+  cdat->dstr_2931__meltgc_put_mapst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2931__meltgc_put_mapst.val, "meltgc_put_mapstrings( (struct meltmapstrings_st *) (", sizeof(cdat->dstr_2931__meltgc_put_mapst.val)-1);
+ 
+ /*inistring dstr_2932__*/
+ /*_.VALSTR___V2938*/ curfptr[2937] = (void*)&cdat->dstr_2932__;
+  cdat->dstr_2932__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2932__.val, "), (", sizeof(cdat->dstr_2932__.val)-1);
+ 
+ /*inistring dstr_2933__melt_ptr_t_*/
+ /*_.VALSTR___V2939*/ curfptr[2938] = (void*)&cdat->dstr_2933__melt_ptr_t_;
+  cdat->dstr_2933__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2933__melt_ptr_t_.val, "), (melt_ptr_t) (", sizeof(cdat->dstr_2933__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2934__*/
+ /*_.VALSTR___V2940*/ curfptr[2939] = (void*)&cdat->dstr_2934__;
+  cdat->dstr_2934__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2934__.val, "))", sizeof(cdat->dstr_2934__.val)-1);
+ 
+ /*inistring dstr_2935__MAPSTRING_RAWPUT*/
+ /*_.VALSTR___V2932*/ curfptr[2931] = (void*)&cdat->dstr_2935__MAPSTRING_RAWPUT;
+  cdat->dstr_2935__MAPSTRING_RAWPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2935__MAPSTRING_RAWPUT.val, "MAPSTRING_RAWPUT", sizeof(cdat->dstr_2935__MAPSTRING_RAWPUT.val)-1);
+ 
+ /*iniobj dsym_2936__MAPSTRING_PUTSTR*/
+ if (!/*_.VALDATA___V2942*/ curfptr[2941]) /*_.VALDATA___V2942*/ curfptr[2941] = (void*)&cdat->dsym_2936__MAPSTRING_PUTSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2936__MAPSTRING_PUTSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2936__MAPSTRING_PUTSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2936__MAPSTRING_PUTSTR.obj_hash = 1045032160;
+  cdat->dsym_2936__MAPSTRING_PUTSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2936__MAPSTRING_PUTSTR));
+ 
+ /*inistring dstr_2937__MAPSTRING_PUTSTR*/
+ /*_.VALSTR___V2943*/ curfptr[2942] = (void*)&cdat->dstr_2937__MAPSTRING_PUTSTR;
+  cdat->dstr_2937__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2937__MAPSTRING_PUTSTR.val, "MAPSTRING_PUTSTR", sizeof(cdat->dstr_2937__MAPSTRING_PUTSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1617:/ iniobj");
+ /*iniobj dobj_2938__MAPSTRING_PUTSTR*/
+ if (!/*_.VALDATA___V2944*/ curfptr[2943]) /*_.VALDATA___V2944*/ curfptr[2943] = (void*)&cdat->dobj_2938__MAPSTRING_PUTSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_2938__MAPSTRING_PUTSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2938__MAPSTRING_PUTSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2938__MAPSTRING_PUTSTR.obj_hash = 277726101;
+  cdat->dobj_2938__MAPSTRING_PUTSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2938__MAPSTRING_PUTSTR));
+ 
+ /*inimult dtup_2939__MAPSTRING_PUTSTR*/
+ /*_.VALTUP___V2956*/ curfptr[2955] = (void*)&cdat->dtup_2939__MAPSTRING_PUTSTR;
+  cdat->dtup_2939__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2939__MAPSTRING_PUTSTR.nbval = 7;
+ /*inimult dtup_2940__MAPSTRING_PUTSTR*/
+ /*_.VALTUP___V2951*/ curfptr[2950] = (void*)&cdat->dtup_2940__MAPSTRING_PUTSTR;
+  cdat->dtup_2940__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2940__MAPSTRING_PUTSTR.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1617:/ iniobj");
+ /*iniobj dobj_2941*/
+ if (!/*_.VALDATA___V2946*/ curfptr[2945]) /*_.VALDATA___V2946*/ curfptr[2945] = (void*)&cdat->dobj_2941;
+  melt_assertmsg("iniobj checkdiscr dobj_2941", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2941.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2941.obj_num = 0;
+  cdat->dobj_2941.obj_hash = 927145599;
+  cdat->dobj_2941.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2941));
+ 
+ /*iniobj dsym_2942__KEYSTR*/
+ if (!/*_.VALDATA___V2948*/ curfptr[2947]) /*_.VALDATA___V2948*/ curfptr[2947] = (void*)&cdat->dsym_2942__KEYSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2942__KEYSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2942__KEYSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2942__KEYSTR.obj_hash = 117919921;
+  cdat->dsym_2942__KEYSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2942__KEYSTR));
+ 
+ /*inistring dstr_2943__KEYSTR*/
+ /*_.VALSTR___V2949*/ curfptr[2948] = (void*)&cdat->dstr_2943__KEYSTR;
+  cdat->dstr_2943__KEYSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2943__KEYSTR.val, "KEYSTR", sizeof(cdat->dstr_2943__KEYSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1617:/ iniobj");
+ /*iniobj dobj_2944*/
+ if (!/*_.VALDATA___V2947*/ curfptr[2946]) /*_.VALDATA___V2947*/ curfptr[2946] = (void*)&cdat->dobj_2944;
+  melt_assertmsg("iniobj checkdiscr dobj_2944", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2944.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2944.obj_num = 1;
+  cdat->dobj_2944.obj_hash = 715074840;
+  cdat->dobj_2944.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2944));
+ 
+ MELT_LOCATION("warmelt-first.melt:1617:/ iniobj");
+ /*iniobj dobj_2945*/
+ if (!/*_.VALDATA___V2950*/ curfptr[2949]) /*_.VALDATA___V2950*/ curfptr[2949] = (void*)&cdat->dobj_2945;
+  melt_assertmsg("iniobj checkdiscr dobj_2945", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2945.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2945.obj_num = 2;
+  cdat->dobj_2945.obj_hash = 992340229;
+  cdat->dobj_2945.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2945));
+ 
+ /*inistring dstr_2946__meltgc_put_mapst*/
+ /*_.VALSTR___V2952*/ curfptr[2951] = (void*)&cdat->dstr_2946__meltgc_put_mapst;
+  cdat->dstr_2946__meltgc_put_mapst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2946__meltgc_put_mapst.val, "meltgc_put_mapstrings((struct meltmapstrings_st *) (", sizeof(cdat->dstr_2946__meltgc_put_mapst.val)-1);
+ 
+ /*inistring dstr_2947__melt_string_s*/
+ /*_.VALSTR___V2953*/ curfptr[2952] = (void*)&cdat->dstr_2947__melt_string_s;
+  cdat->dstr_2947__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2947__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2947__melt_string_s.val)-1);
+ 
+ /*inistring dstr_2948__melt_ptr_t_*/
+ /*_.VALSTR___V2954*/ curfptr[2953] = (void*)&cdat->dstr_2948__melt_ptr_t_;
+  cdat->dstr_2948__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2948__melt_ptr_t_.val, ")), (melt_ptr_t)(", sizeof(cdat->dstr_2948__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_2949__*/
+ /*_.VALSTR___V2955*/ curfptr[2954] = (void*)&cdat->dstr_2949__;
+  cdat->dstr_2949__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2949__.val, "))", sizeof(cdat->dstr_2949__.val)-1);
+ 
+ /*inistring dstr_2950__MAPSTRING_PUTSTR*/
+ /*_.VALSTR___V2945*/ curfptr[2944] = (void*)&cdat->dstr_2950__MAPSTRING_PUTSTR;
+  cdat->dstr_2950__MAPSTRING_PUTSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2950__MAPSTRING_PUTSTR.val, "MAPSTRING_PUTSTR", sizeof(cdat->dstr_2950__MAPSTRING_PUTSTR.val)-1);
+ 
+ /*iniobj dsym_2951__MAPSTRING_GETSTR*/
+ if (!/*_.VALDATA___V2957*/ curfptr[2956]) /*_.VALDATA___V2957*/ curfptr[2956] = (void*)&cdat->dsym_2951__MAPSTRING_GETSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2951__MAPSTRING_GETSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2951__MAPSTRING_GETSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2951__MAPSTRING_GETSTR.obj_hash = 569055300;
+  cdat->dsym_2951__MAPSTRING_GETSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2951__MAPSTRING_GETSTR));
+ 
+ /*inistring dstr_2952__MAPSTRING_GETSTR*/
+ /*_.VALSTR___V2958*/ curfptr[2957] = (void*)&cdat->dstr_2952__MAPSTRING_GETSTR;
+  cdat->dstr_2952__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2952__MAPSTRING_GETSTR.val, "MAPSTRING_GETSTR", sizeof(cdat->dstr_2952__MAPSTRING_GETSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1620:/ iniobj");
+ /*iniobj dobj_2953__MAPSTRING_GETSTR*/
+ if (!/*_.VALDATA___V2959*/ curfptr[2958]) /*_.VALDATA___V2959*/ curfptr[2958] = (void*)&cdat->dobj_2953__MAPSTRING_GETSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_2953__MAPSTRING_GETSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2953__MAPSTRING_GETSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2953__MAPSTRING_GETSTR.obj_hash = 894489074;
+  cdat->dobj_2953__MAPSTRING_GETSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2953__MAPSTRING_GETSTR));
+ 
+ /*inimult dtup_2954__MAPSTRING_GETSTR*/
+ /*_.VALTUP___V2967*/ curfptr[2966] = (void*)&cdat->dtup_2954__MAPSTRING_GETSTR;
+  cdat->dtup_2954__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2954__MAPSTRING_GETSTR.nbval = 5;
+ /*inimult dtup_2955__MAPSTRING_GETSTR*/
+ /*_.VALTUP___V2963*/ curfptr[2962] = (void*)&cdat->dtup_2955__MAPSTRING_GETSTR;
+  cdat->dtup_2955__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2955__MAPSTRING_GETSTR.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1620:/ iniobj");
+ /*iniobj dobj_2956*/
+ if (!/*_.VALDATA___V2961*/ curfptr[2960]) /*_.VALDATA___V2961*/ curfptr[2960] = (void*)&cdat->dobj_2956;
+  melt_assertmsg("iniobj checkdiscr dobj_2956", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2956.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2956.obj_num = 0;
+  cdat->dobj_2956.obj_hash = 433005175;
+  cdat->dobj_2956.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2956));
+ 
+ MELT_LOCATION("warmelt-first.melt:1620:/ iniobj");
+ /*iniobj dobj_2957*/
+ if (!/*_.VALDATA___V2962*/ curfptr[2961]) /*_.VALDATA___V2962*/ curfptr[2961] = (void*)&cdat->dobj_2957;
+  melt_assertmsg("iniobj checkdiscr dobj_2957", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2957.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2957.obj_num = 1;
+  cdat->dobj_2957.obj_hash = 109507866;
+  cdat->dobj_2957.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2957));
+ 
+ /*inistring dstr_2958__melt_get_mapstr*/
+ /*_.VALSTR___V2964*/ curfptr[2963] = (void*)&cdat->dstr_2958__melt_get_mapstr;
+  cdat->dstr_2958__melt_get_mapstr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2958__melt_get_mapstr.val, "(melt_get_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2958__melt_get_mapstr.val)-1);
+ 
+ /*inistring dstr_2959__melt_string_s*/
+ /*_.VALSTR___V2965*/ curfptr[2964] = (void*)&cdat->dstr_2959__melt_string_s;
+  cdat->dstr_2959__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2959__melt_string_s.val, "), melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_2959__melt_string_s.val)-1);
+ 
+ /*inistring dstr_2960__*/
+ /*_.VALSTR___V2966*/ curfptr[2965] = (void*)&cdat->dstr_2960__;
+  cdat->dstr_2960__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2960__.val, "))))", sizeof(cdat->dstr_2960__.val)-1);
+ 
+ /*inistring dstr_2961__MAPSTRING_GETSTR*/
+ /*_.VALSTR___V2960*/ curfptr[2959] = (void*)&cdat->dstr_2961__MAPSTRING_GETSTR;
+  cdat->dstr_2961__MAPSTRING_GETSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2961__MAPSTRING_GETSTR.val, "MAPSTRING_GETSTR", sizeof(cdat->dstr_2961__MAPSTRING_GETSTR.val)-1);
+ 
+ /*iniobj dsym_2962__MAPSTRING_RAWREMOVE*/
+ if (!/*_.VALDATA___V2968*/ curfptr[2967]) /*_.VALDATA___V2968*/ curfptr[2967] = (void*)&cdat->dsym_2962__MAPSTRING_RAWREMOVE;
+  melt_assertmsg("iniobj checkdiscr dsym_2962__MAPSTRING_RAWREMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2962__MAPSTRING_RAWREMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2962__MAPSTRING_RAWREMOVE.obj_hash = 793006697;
+  cdat->dsym_2962__MAPSTRING_RAWREMOVE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2962__MAPSTRING_RAWREMOVE));
+ 
+ /*inistring dstr_2963__MAPSTRING_RAWREM*/
+ /*_.VALSTR___V2969*/ curfptr[2968] = (void*)&cdat->dstr_2963__MAPSTRING_RAWREM;
+  cdat->dstr_2963__MAPSTRING_RAWREM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2963__MAPSTRING_RAWREM.val, "MAPSTRING_RAWREMOVE", sizeof(cdat->dstr_2963__MAPSTRING_RAWREM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1624:/ iniobj");
+ /*iniobj dobj_2964__MAPSTRING_RAWREMOVE*/
+ if (!/*_.VALDATA___V2970*/ curfptr[2969]) /*_.VALDATA___V2970*/ curfptr[2969] = (void*)&cdat->dobj_2964__MAPSTRING_RAWREMOVE;
+  melt_assertmsg("iniobj checkdiscr dobj_2964__MAPSTRING_RAWREMOVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2964__MAPSTRING_RAWREMOVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2964__MAPSTRING_RAWREMOVE.obj_hash = 153160056;
+  cdat->dobj_2964__MAPSTRING_RAWREMOVE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2964__MAPSTRING_RAWREMOVE));
+ 
+ /*inimult dtup_2965__MAPSTRING_RAWREMOVE*/
+ /*_.VALTUP___V2978*/ curfptr[2977] = (void*)&cdat->dtup_2965__MAPSTRING_RAWREMOVE;
+  cdat->dtup_2965__MAPSTRING_RAWREMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2965__MAPSTRING_RAWREMOVE.nbval = 5;
+ /*inimult dtup_2966__MAPSTRING_RAWREMOVE*/
+ /*_.VALTUP___V2974*/ curfptr[2973] = (void*)&cdat->dtup_2966__MAPSTRING_RAWREMOVE;
+  cdat->dtup_2966__MAPSTRING_RAWREMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2966__MAPSTRING_RAWREMOVE.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1624:/ iniobj");
+ /*iniobj dobj_2967*/
+ if (!/*_.VALDATA___V2972*/ curfptr[2971]) /*_.VALDATA___V2972*/ curfptr[2971] = (void*)&cdat->dobj_2967;
+  melt_assertmsg("iniobj checkdiscr dobj_2967", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2967.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2967.obj_num = 0;
+  cdat->dobj_2967.obj_hash = 168195403;
+  cdat->dobj_2967.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2967));
+ 
+ MELT_LOCATION("warmelt-first.melt:1624:/ iniobj");
+ /*iniobj dobj_2968*/
+ if (!/*_.VALDATA___V2973*/ curfptr[2972]) /*_.VALDATA___V2973*/ curfptr[2972] = (void*)&cdat->dobj_2968;
+  melt_assertmsg("iniobj checkdiscr dobj_2968", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2968.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2968.obj_num = 1;
+  cdat->dobj_2968.obj_hash = 885224320;
+  cdat->dobj_2968.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2968));
+ 
+ /*inistring dstr_2969__meltgc_remove_ma*/
+ /*_.VALSTR___V2975*/ curfptr[2974] = (void*)&cdat->dstr_2969__meltgc_remove_ma;
+  cdat->dstr_2969__meltgc_remove_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2969__meltgc_remove_ma.val, "meltgc_remove_mapstrings((struct meltmapstrings_st*) (", sizeof(cdat->dstr_2969__meltgc_remove_ma.val)-1);
+ 
+ /*inistring dstr_2970__*/
+ /*_.VALSTR___V2976*/ curfptr[2975] = (void*)&cdat->dstr_2970__;
+  cdat->dstr_2970__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2970__.val, "), (", sizeof(cdat->dstr_2970__.val)-1);
+ 
+ /*inistring dstr_2971__*/
+ /*_.VALSTR___V2977*/ curfptr[2976] = (void*)&cdat->dstr_2971__;
+  cdat->dstr_2971__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2971__.val, "))", sizeof(cdat->dstr_2971__.val)-1);
+ 
+ /*inistring dstr_2972__MAPSTRING_RAWREM*/
+ /*_.VALSTR___V2971*/ curfptr[2970] = (void*)&cdat->dstr_2972__MAPSTRING_RAWREM;
+  cdat->dstr_2972__MAPSTRING_RAWREM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2972__MAPSTRING_RAWREM.val, "MAPSTRING_RAWREMOVE", sizeof(cdat->dstr_2972__MAPSTRING_RAWREM.val)-1);
+ 
+ /*iniobj dsym_2973__MAPSTRING_REMOVESTR*/
+ if (!/*_.VALDATA___V2979*/ curfptr[2978]) /*_.VALDATA___V2979*/ curfptr[2978] = (void*)&cdat->dsym_2973__MAPSTRING_REMOVESTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2973__MAPSTRING_REMOVESTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2973__MAPSTRING_REMOVESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2973__MAPSTRING_REMOVESTR.obj_hash = 27663658;
+  cdat->dsym_2973__MAPSTRING_REMOVESTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2973__MAPSTRING_REMOVESTR));
+ 
+ /*inistring dstr_2974__MAPSTRING_REMOVE*/
+ /*_.VALSTR___V2980*/ curfptr[2979] = (void*)&cdat->dstr_2974__MAPSTRING_REMOVE;
+  cdat->dstr_2974__MAPSTRING_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2974__MAPSTRING_REMOVE.val, "MAPSTRING_REMOVESTR", sizeof(cdat->dstr_2974__MAPSTRING_REMOVE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1627:/ iniobj");
+ /*iniobj dobj_2975__MAPSTRING_REMOVESTR*/
+ if (!/*_.VALDATA___V2981*/ curfptr[2980]) /*_.VALDATA___V2981*/ curfptr[2980] = (void*)&cdat->dobj_2975__MAPSTRING_REMOVESTR;
+  melt_assertmsg("iniobj checkdiscr dobj_2975__MAPSTRING_REMOVESTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2975__MAPSTRING_REMOVESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2975__MAPSTRING_REMOVESTR.obj_hash = 609852256;
+  cdat->dobj_2975__MAPSTRING_REMOVESTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2975__MAPSTRING_REMOVESTR));
+ 
+ /*inimult dtup_2976__MAPSTRING_REMOVESTR*/
+ /*_.VALTUP___V2989*/ curfptr[2988] = (void*)&cdat->dtup_2976__MAPSTRING_REMOVESTR;
+  cdat->dtup_2976__MAPSTRING_REMOVESTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2976__MAPSTRING_REMOVESTR.nbval = 5;
+ /*inimult dtup_2977__MAPSTRING_REMOVESTR*/
+ /*_.VALTUP___V2985*/ curfptr[2984] = (void*)&cdat->dtup_2977__MAPSTRING_REMOVESTR;
+  cdat->dtup_2977__MAPSTRING_REMOVESTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2977__MAPSTRING_REMOVESTR.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1627:/ iniobj");
+ /*iniobj dobj_2978*/
+ if (!/*_.VALDATA___V2983*/ curfptr[2982]) /*_.VALDATA___V2983*/ curfptr[2982] = (void*)&cdat->dobj_2978;
+  melt_assertmsg("iniobj checkdiscr dobj_2978", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2978.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2978.obj_num = 0;
+  cdat->dobj_2978.obj_hash = 457213157;
+  cdat->dobj_2978.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2978));
+ 
+ MELT_LOCATION("warmelt-first.melt:1627:/ iniobj");
+ /*iniobj dobj_2979*/
+ if (!/*_.VALDATA___V2984*/ curfptr[2983]) /*_.VALDATA___V2984*/ curfptr[2983] = (void*)&cdat->dobj_2979;
+  melt_assertmsg("iniobj checkdiscr dobj_2979", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2979.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2979.obj_num = 1;
+  cdat->dobj_2979.obj_hash = 166313956;
+  cdat->dobj_2979.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2979));
+ 
+ /*inistring dstr_2980__meltgc_remove_ma*/
+ /*_.VALSTR___V2986*/ curfptr[2985] = (void*)&cdat->dstr_2980__meltgc_remove_ma;
+  cdat->dstr_2980__meltgc_remove_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2980__meltgc_remove_ma.val, "meltgc_remove_mapstrings((struct meltmapstrings_st*) (", sizeof(cdat->dstr_2980__meltgc_remove_ma.val)-1);
+ 
+ /*inistring dstr_2981__melt_string_s*/
+ /*_.VALSTR___V2987*/ curfptr[2986] = (void*)&cdat->dstr_2981__melt_string_s;
+  cdat->dstr_2981__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2981__melt_string_s.val, "), melt_string_str((melt_ptr_t)", sizeof(cdat->dstr_2981__melt_string_s.val)-1);
+ 
+ /*inistring dstr_2982__*/
+ /*_.VALSTR___V2988*/ curfptr[2987] = (void*)&cdat->dstr_2982__;
+  cdat->dstr_2982__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2982__.val, "))", sizeof(cdat->dstr_2982__.val)-1);
+ 
+ /*inistring dstr_2983__MAPSTRING_REMOVE*/
+ /*_.VALSTR___V2982*/ curfptr[2981] = (void*)&cdat->dstr_2983__MAPSTRING_REMOVE;
+  cdat->dstr_2983__MAPSTRING_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2983__MAPSTRING_REMOVE.val, "MAPSTRING_REMOVESTR", sizeof(cdat->dstr_2983__MAPSTRING_REMOVE.val)-1);
+ 
+ /*iniobj dsym_2984__MAPSTRING_NTH_ATTRSTR*/
+ if (!/*_.VALDATA___V2990*/ curfptr[2989]) /*_.VALDATA___V2990*/ curfptr[2989] = (void*)&cdat->dsym_2984__MAPSTRING_NTH_ATTRSTR;
+  melt_assertmsg("iniobj checkdiscr dsym_2984__MAPSTRING_NTH_ATTRSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2984__MAPSTRING_NTH_ATTRSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2984__MAPSTRING_NTH_ATTRSTR.obj_hash = 175075353;
+  cdat->dsym_2984__MAPSTRING_NTH_ATTRSTR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2984__MAPSTRING_NTH_ATTRSTR));
+ 
+ /*inistring dstr_2985__MAPSTRING_NTH_AT*/
+ /*_.VALSTR___V2991*/ curfptr[2990] = (void*)&cdat->dstr_2985__MAPSTRING_NTH_AT;
+  cdat->dstr_2985__MAPSTRING_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2985__MAPSTRING_NTH_AT.val, "MAPSTRING_NTH_ATTRSTR", sizeof(cdat->dstr_2985__MAPSTRING_NTH_AT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1632:/ iniobj");
- /*iniobj dobj_2983__MAPSTRING_REMOVESTR*/
- if (!/*_.VALDATA___V2989*/ curfptr[2988]) /*_.VALDATA___V2989*/ curfptr[2988] = (void*)&cdat->dobj_2983__MAPSTRING_REMOVESTR;
-  melt_assertmsg("iniobj checkdiscr dobj_2983__MAPSTRING_REMOVESTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2983__MAPSTRING_REMOVESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2983__MAPSTRING_REMOVESTR.obj_hash = 301837966;
-  cdat->dobj_2983__MAPSTRING_REMOVESTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2983__MAPSTRING_REMOVESTR));
- 
- /*inimult dtup_2984__MAPSTRING_REMOVESTR*/
- /*_.VALTUP___V2997*/ curfptr[2996] = (void*)&cdat->dtup_2984__MAPSTRING_REMOVESTR;
-  cdat->dtup_2984__MAPSTRING_REMOVESTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2984__MAPSTRING_REMOVESTR.nbval = 5;
- /*inimult dtup_2985__MAPSTRING_REMOVESTR*/
- /*_.VALTUP___V2993*/ curfptr[2992] = (void*)&cdat->dtup_2985__MAPSTRING_REMOVESTR;
-  cdat->dtup_2985__MAPSTRING_REMOVESTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2985__MAPSTRING_REMOVESTR.nbval = 2;
+ /*iniobj dobj_2986__MAPSTRING_NTH_ATTRSTR*/
+ if (!/*_.VALDATA___V2992*/ curfptr[2991]) /*_.VALDATA___V2992*/ curfptr[2991] = (void*)&cdat->dobj_2986__MAPSTRING_NTH_ATTRSTR;
+  melt_assertmsg("iniobj checkdiscr dobj_2986__MAPSTRING_NTH_ATTRSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2986__MAPSTRING_NTH_ATTRSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_2986__MAPSTRING_NTH_ATTRSTR.obj_hash = 920809888;
+  cdat->dobj_2986__MAPSTRING_NTH_ATTRSTR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2986__MAPSTRING_NTH_ATTRSTR));
+ 
+ /*inimult dtup_2987__MAPSTRING_NTH_ATTRSTR*/
+ /*_.VALTUP___V3004*/ curfptr[3003] = (void*)&cdat->dtup_2987__MAPSTRING_NTH_ATTRSTR;
+  cdat->dtup_2987__MAPSTRING_NTH_ATTRSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2987__MAPSTRING_NTH_ATTRSTR.nbval = 7;
+ /*inimult dtup_2988__MAPSTRING_NTH_ATTRSTR*/
+ /*_.VALTUP___V2999*/ curfptr[2998] = (void*)&cdat->dtup_2988__MAPSTRING_NTH_ATTRSTR;
+  cdat->dtup_2988__MAPSTRING_NTH_ATTRSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_2988__MAPSTRING_NTH_ATTRSTR.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1632:/ iniobj");
+ /*iniobj dobj_2989*/
+ if (!/*_.VALDATA___V2994*/ curfptr[2993]) /*_.VALDATA___V2994*/ curfptr[2993] = (void*)&cdat->dobj_2989;
+  melt_assertmsg("iniobj checkdiscr dobj_2989", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2989.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2989.obj_num = 0;
+  cdat->dobj_2989.obj_hash = 539314821;
+  cdat->dobj_2989.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2989));
+ 
+ /*iniobj dsym_2990__SDICR*/
+ if (!/*_.VALDATA___V2996*/ curfptr[2995]) /*_.VALDATA___V2996*/ curfptr[2995] = (void*)&cdat->dsym_2990__SDICR;
+  melt_assertmsg("iniobj checkdiscr dsym_2990__SDICR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2990__SDICR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2990__SDICR.obj_hash = 93080286;
+  cdat->dsym_2990__SDICR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2990__SDICR));
+ 
+ /*inistring dstr_2991__SDICR*/
+ /*_.VALSTR___V2997*/ curfptr[2996] = (void*)&cdat->dstr_2991__SDICR;
+  cdat->dstr_2991__SDICR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2991__SDICR.val, "SDICR", sizeof(cdat->dstr_2991__SDICR.val)-1);
+ 
  MELT_LOCATION("warmelt-first.melt:1632:/ iniobj");
- /*iniobj dobj_2986*/
- if (!/*_.VALDATA___V2991*/ curfptr[2990]) /*_.VALDATA___V2991*/ curfptr[2990] = (void*)&cdat->dobj_2986;
-  melt_assertmsg("iniobj checkdiscr dobj_2986", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2986.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2986.obj_num = 0;
-  cdat->dobj_2986.obj_hash = 613593353;
-  cdat->dobj_2986.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2986));
+ /*iniobj dobj_2992*/
+ if (!/*_.VALDATA___V2995*/ curfptr[2994]) /*_.VALDATA___V2995*/ curfptr[2994] = (void*)&cdat->dobj_2992;
+  melt_assertmsg("iniobj checkdiscr dobj_2992", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2992.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2992.obj_num = 1;
+  cdat->dobj_2992.obj_hash = 583266273;
+  cdat->dobj_2992.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2992));
  
  MELT_LOCATION("warmelt-first.melt:1632:/ iniobj");
- /*iniobj dobj_2987*/
- if (!/*_.VALDATA___V2992*/ curfptr[2991]) /*_.VALDATA___V2992*/ curfptr[2991] = (void*)&cdat->dobj_2987;
-  melt_assertmsg("iniobj checkdiscr dobj_2987", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2987.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2987.obj_num = 1;
-  cdat->dobj_2987.obj_hash = 989784746;
-  cdat->dobj_2987.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2987));
- 
- /*inistring dstr_2988__meltgc_remove_ma*/
- /*_.VALSTR___V2994*/ curfptr[2993] = (void*)&cdat->dstr_2988__meltgc_remove_ma;
-  cdat->dstr_2988__meltgc_remove_ma.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2988__meltgc_remove_ma.val, "meltgc_remove_mapstrings((struct meltmapstrings_st*) (", sizeof(cdat->dstr_2988__meltgc_remove_ma.val)-1);
- 
- /*inistring dstr_2989__melt_string_s*/
- /*_.VALSTR___V2995*/ curfptr[2994] = (void*)&cdat->dstr_2989__melt_string_s;
-  cdat->dstr_2989__melt_string_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2989__melt_string_s.val, "), melt_string_str((melt_ptr_t)", sizeof(cdat->dstr_2989__melt_string_s.val)-1);
- 
- /*inistring dstr_2990__*/
- /*_.VALSTR___V2996*/ curfptr[2995] = (void*)&cdat->dstr_2990__;
-  cdat->dstr_2990__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_2990__.val, "))", sizeof(cdat->dstr_2990__.val)-1);
- 
- /*inistring dstr_2991__MAPSTRING_REMOVE*/
- /*_.VALSTR___V2990*/ curfptr[2989] = (void*)&cdat->dstr_2991__MAPSTRING_REMOVE;
-  cdat->dstr_2991__MAPSTRING_REMOVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2991__MAPSTRING_REMOVE.val, "MAPSTRING_REMOVESTR", sizeof(cdat->dstr_2991__MAPSTRING_REMOVE.val)-1);
- 
- /*iniobj dsym_2992__MAPSTRING_NTH_ATTRSTR*/
- if (!/*_.VALDATA___V2998*/ curfptr[2997]) /*_.VALDATA___V2998*/ curfptr[2997] = (void*)&cdat->dsym_2992__MAPSTRING_NTH_ATTRSTR;
-  melt_assertmsg("iniobj checkdiscr dsym_2992__MAPSTRING_NTH_ATTRSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2992__MAPSTRING_NTH_ATTRSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2992__MAPSTRING_NTH_ATTRSTR.obj_hash = 175075353;
-  cdat->dsym_2992__MAPSTRING_NTH_ATTRSTR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2992__MAPSTRING_NTH_ATTRSTR));
- 
- /*inistring dstr_2993__MAPSTRING_NTH_AT*/
- /*_.VALSTR___V2999*/ curfptr[2998] = (void*)&cdat->dstr_2993__MAPSTRING_NTH_AT;
-  cdat->dstr_2993__MAPSTRING_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2993__MAPSTRING_NTH_AT.val, "MAPSTRING_NTH_ATTRSTR", sizeof(cdat->dstr_2993__MAPSTRING_NTH_AT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1637:/ iniobj");
- /*iniobj dobj_2994__MAPSTRING_NTH_ATTRSTR*/
- if (!/*_.VALDATA___V3000*/ curfptr[2999]) /*_.VALDATA___V3000*/ curfptr[2999] = (void*)&cdat->dobj_2994__MAPSTRING_NTH_ATTRSTR;
-  melt_assertmsg("iniobj checkdiscr dobj_2994__MAPSTRING_NTH_ATTRSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2994__MAPSTRING_NTH_ATTRSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_2994__MAPSTRING_NTH_ATTRSTR.obj_hash = 137050565;
-  cdat->dobj_2994__MAPSTRING_NTH_ATTRSTR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2994__MAPSTRING_NTH_ATTRSTR));
- 
- /*inimult dtup_2995__MAPSTRING_NTH_ATTRSTR*/
- /*_.VALTUP___V3012*/ curfptr[3011] = (void*)&cdat->dtup_2995__MAPSTRING_NTH_ATTRSTR;
-  cdat->dtup_2995__MAPSTRING_NTH_ATTRSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2995__MAPSTRING_NTH_ATTRSTR.nbval = 7;
- /*inimult dtup_2996__MAPSTRING_NTH_ATTRSTR*/
- /*_.VALTUP___V3007*/ curfptr[3006] = (void*)&cdat->dtup_2996__MAPSTRING_NTH_ATTRSTR;
-  cdat->dtup_2996__MAPSTRING_NTH_ATTRSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_2996__MAPSTRING_NTH_ATTRSTR.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1637:/ iniobj");
- /*iniobj dobj_2997*/
- if (!/*_.VALDATA___V3002*/ curfptr[3001]) /*_.VALDATA___V3002*/ curfptr[3001] = (void*)&cdat->dobj_2997;
-  melt_assertmsg("iniobj checkdiscr dobj_2997", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2997.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_2997.obj_num = 0;
-  cdat->dobj_2997.obj_hash = 67615877;
-  cdat->dobj_2997.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2997));
- 
- /*iniobj dsym_2998__SDICR*/
- if (!/*_.VALDATA___V3004*/ curfptr[3003]) /*_.VALDATA___V3004*/ curfptr[3003] = (void*)&cdat->dsym_2998__SDICR;
-  melt_assertmsg("iniobj checkdiscr dsym_2998__SDICR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2998__SDICR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_2998__SDICR.obj_hash = 93080286;
-  cdat->dsym_2998__SDICR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2998__SDICR));
- 
- /*inistring dstr_2999__SDICR*/
- /*_.VALSTR___V3005*/ curfptr[3004] = (void*)&cdat->dstr_2999__SDICR;
-  cdat->dstr_2999__SDICR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_2999__SDICR.val, "SDICR", sizeof(cdat->dstr_2999__SDICR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1637:/ iniobj");
- /*iniobj dobj_3000*/
- if (!/*_.VALDATA___V3003*/ curfptr[3002]) /*_.VALDATA___V3003*/ curfptr[3002] = (void*)&cdat->dobj_3000;
-  melt_assertmsg("iniobj checkdiscr dobj_3000", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3000.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3000.obj_num = 1;
-  cdat->dobj_3000.obj_hash = 691474308;
-  cdat->dobj_3000.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3000));
- 
- MELT_LOCATION("warmelt-first.melt:1637:/ iniobj");
- /*iniobj dobj_3001*/
- if (!/*_.VALDATA___V3006*/ curfptr[3005]) /*_.VALDATA___V3006*/ curfptr[3005] = (void*)&cdat->dobj_3001;
-  melt_assertmsg("iniobj checkdiscr dobj_3001", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3001.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3001.obj_num = 2;
-  cdat->dobj_3001.obj_hash = 143554227;
-  cdat->dobj_3001.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3001));
- 
- /*inistring dstr_3002__meltgc_new_stri*/
- /*_.VALSTR___V3008*/ curfptr[3007] = (void*)&cdat->dstr_3002__meltgc_new_stri;
-  cdat->dstr_3002__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3002__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_3002__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_3003__melt_n*/
- /*_.VALSTR___V3009*/ curfptr[3008] = (void*)&cdat->dstr_3003__melt_n;
-  cdat->dstr_3003__melt_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3003__melt_n.val, "),  \n\t\t\t  melt_nthattrraw_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_3003__melt_n.val)-1);
- 
- /*inistring dstr_3004__int_*/
- /*_.VALSTR___V3010*/ curfptr[3009] = (void*)&cdat->dstr_3004__int_;
-  cdat->dstr_3004__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3004__int_.val, "), (int)(", sizeof(cdat->dstr_3004__int_.val)-1);
- 
- /*inistring dstr_3005__*/
- /*_.VALSTR___V3011*/ curfptr[3010] = (void*)&cdat->dstr_3005__;
-  cdat->dstr_3005__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3005__.val, "))))", sizeof(cdat->dstr_3005__.val)-1);
- 
- /*inistring dstr_3006__MAPSTRING_NTH_AT*/
- /*_.VALSTR___V3001*/ curfptr[3000] = (void*)&cdat->dstr_3006__MAPSTRING_NTH_AT;
-  cdat->dstr_3006__MAPSTRING_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3006__MAPSTRING_NTH_AT.val, "MAPSTRING_NTH_ATTRSTR", sizeof(cdat->dstr_3006__MAPSTRING_NTH_AT.val)-1);
- 
- /*iniobj dsym_3007__MAPSTRING_NTH_VAL*/
- if (!/*_.VALDATA___V3013*/ curfptr[3012]) /*_.VALDATA___V3013*/ curfptr[3012] = (void*)&cdat->dsym_3007__MAPSTRING_NTH_VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_3007__MAPSTRING_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3007__MAPSTRING_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3007__MAPSTRING_NTH_VAL.obj_hash = 614325841;
-  cdat->dsym_3007__MAPSTRING_NTH_VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3007__MAPSTRING_NTH_VAL));
- 
- /*inistring dstr_3008__MAPSTRING_NTH_VA*/
- /*_.VALSTR___V3014*/ curfptr[3013] = (void*)&cdat->dstr_3008__MAPSTRING_NTH_VA;
-  cdat->dstr_3008__MAPSTRING_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3008__MAPSTRING_NTH_VA.val, "MAPSTRING_NTH_VAL", sizeof(cdat->dstr_3008__MAPSTRING_NTH_VA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1643:/ iniobj");
- /*iniobj dobj_3009__MAPSTRING_NTH_VAL*/
- if (!/*_.VALDATA___V3015*/ curfptr[3014]) /*_.VALDATA___V3015*/ curfptr[3014] = (void*)&cdat->dobj_3009__MAPSTRING_NTH_VAL;
-  melt_assertmsg("iniobj checkdiscr dobj_3009__MAPSTRING_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3009__MAPSTRING_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3009__MAPSTRING_NTH_VAL.obj_hash = 663579591;
-  cdat->dobj_3009__MAPSTRING_NTH_VAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3009__MAPSTRING_NTH_VAL));
- 
- /*inimult dtup_3010__MAPSTRING_NTH_VAL*/
- /*_.VALTUP___V3023*/ curfptr[3022] = (void*)&cdat->dtup_3010__MAPSTRING_NTH_VAL;
-  cdat->dtup_3010__MAPSTRING_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3010__MAPSTRING_NTH_VAL.nbval = 5;
- /*inimult dtup_3011__MAPSTRING_NTH_VAL*/
- /*_.VALTUP___V3019*/ curfptr[3018] = (void*)&cdat->dtup_3011__MAPSTRING_NTH_VAL;
-  cdat->dtup_3011__MAPSTRING_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3011__MAPSTRING_NTH_VAL.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1643:/ iniobj");
- /*iniobj dobj_3012*/
- if (!/*_.VALDATA___V3017*/ curfptr[3016]) /*_.VALDATA___V3017*/ curfptr[3016] = (void*)&cdat->dobj_3012;
-  melt_assertmsg("iniobj checkdiscr dobj_3012", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3012.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3012.obj_num = 0;
-  cdat->dobj_3012.obj_hash = 291252913;
-  cdat->dobj_3012.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3012));
- 
- MELT_LOCATION("warmelt-first.melt:1643:/ iniobj");
- /*iniobj dobj_3013*/
- if (!/*_.VALDATA___V3018*/ curfptr[3017]) /*_.VALDATA___V3018*/ curfptr[3017] = (void*)&cdat->dobj_3013;
-  melt_assertmsg("iniobj checkdiscr dobj_3013", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3013.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3013.obj_num = 1;
-  cdat->dobj_3013.obj_hash = 829511097;
-  cdat->dobj_3013.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3013));
- 
- /*inistring dstr_3014__melt_nthval_map*/
- /*_.VALSTR___V3020*/ curfptr[3019] = (void*)&cdat->dstr_3014__melt_nthval_map;
-  cdat->dstr_3014__melt_nthval_map.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3014__melt_nthval_map.val, "(melt_nthval_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_3014__melt_nthval_map.val)-1);
- 
- /*inistring dstr_3015__int_*/
- /*_.VALSTR___V3021*/ curfptr[3020] = (void*)&cdat->dstr_3015__int_;
-  cdat->dstr_3015__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3015__int_.val, "), (int)(", sizeof(cdat->dstr_3015__int_.val)-1);
- 
- /*inistring dstr_3016__*/
- /*_.VALSTR___V3022*/ curfptr[3021] = (void*)&cdat->dstr_3016__;
-  cdat->dstr_3016__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3016__.val, ")))", sizeof(cdat->dstr_3016__.val)-1);
- 
- /*inistring dstr_3017__MAPSTRING_NTH_VA*/
- /*_.VALSTR___V3016*/ curfptr[3015] = (void*)&cdat->dstr_3017__MAPSTRING_NTH_VA;
-  cdat->dstr_3017__MAPSTRING_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3017__MAPSTRING_NTH_VA.val, "MAPSTRING_NTH_VAL", sizeof(cdat->dstr_3017__MAPSTRING_NTH_VA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1647:/ iniobj");
- /*iniobj dobj_3018__FOREACH_IN_MAPSTRING*/
- if (!/*_.VALDATA___V3024*/ curfptr[3023]) /*_.VALDATA___V3024*/ curfptr[3023] = (void*)&cdat->dobj_3018__FOREACH_IN_MAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_3018__FOREACH_IN_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_3018__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_3018__FOREACH_IN_MAPSTRING.obj_hash = 636598537;
-  cdat->dobj_3018__FOREACH_IN_MAPSTRING.obj_len = 7;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3018__FOREACH_IN_MAPSTRING));
- 
- /*inistring dstr_3019__FOREACH_IN_MAPST*/
- /*_.VALSTR___V3025*/ curfptr[3024] = (void*)&cdat->dstr_3019__FOREACH_IN_MAPST;
-  cdat->dstr_3019__FOREACH_IN_MAPST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3019__FOREACH_IN_MAPST.val, "FOREACH_IN_MAPSTRING", sizeof(cdat->dstr_3019__FOREACH_IN_MAPST.val)-1);
- 
- /*iniobj dsym_3020__STRMAP*/
- if (!/*_.VALDATA___V3027*/ curfptr[3026]) /*_.VALDATA___V3027*/ curfptr[3026] = (void*)&cdat->dsym_3020__STRMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_3020__STRMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3020__STRMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3020__STRMAP.obj_hash = 877711628;
-  cdat->dsym_3020__STRMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3020__STRMAP));
- 
- /*inistring dstr_3021__STRMAP*/
- /*_.VALSTR___V3028*/ curfptr[3027] = (void*)&cdat->dstr_3021__STRMAP;
-  cdat->dstr_3021__STRMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3021__STRMAP.val, "STRMAP", sizeof(cdat->dstr_3021__STRMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1647:/ iniobj");
- /*iniobj dobj_3022*/
- if (!/*_.VALDATA___V3026*/ curfptr[3025]) /*_.VALDATA___V3026*/ curfptr[3025] = (void*)&cdat->dobj_3022;
-  melt_assertmsg("iniobj checkdiscr dobj_3022", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3022.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3022.obj_num = 0;
-  cdat->dobj_3022.obj_hash = 529806522;
-  cdat->dobj_3022.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3022));
- 
- /*inimult dtup_3023__FOREACH_IN_MAPSTRING*/
- /*_.VALTUP___V3029*/ curfptr[3028] = (void*)&cdat->dtup_3023__FOREACH_IN_MAPSTRING;
-  cdat->dtup_3023__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3023__FOREACH_IN_MAPSTRING.nbval = 1;
- /*iniobj dsym_3024__EACHSTRMAP*/
- if (!/*_.VALDATA___V3030*/ curfptr[3029]) /*_.VALDATA___V3030*/ curfptr[3029] = (void*)&cdat->dsym_3024__EACHSTRMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_3024__EACHSTRMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3024__EACHSTRMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3024__EACHSTRMAP.obj_hash = 923376764;
-  cdat->dsym_3024__EACHSTRMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3024__EACHSTRMAP));
- 
- /*inistring dstr_3025__EACHSTRMAP*/
- /*_.VALSTR___V3031*/ curfptr[3030] = (void*)&cdat->dstr_3025__EACHSTRMAP;
-  cdat->dstr_3025__EACHSTRMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3025__EACHSTRMAP.val, "EACHSTRMAP", sizeof(cdat->dstr_3025__EACHSTRMAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1647:/ iniobj");
- /*iniobj dobj_3026*/
- if (!/*_.VALDATA___V3032*/ curfptr[3031]) /*_.VALDATA___V3032*/ curfptr[3031] = (void*)&cdat->dobj_3026;
-  melt_assertmsg("iniobj checkdiscr dobj_3026", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3026.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3026.obj_num = 0;
-  cdat->dobj_3026.obj_hash = 597175755;
-  cdat->dobj_3026.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3026));
- 
- MELT_LOCATION("warmelt-first.melt:1647:/ iniobj");
- /*iniobj dobj_3027*/
- if (!/*_.VALDATA___V3033*/ curfptr[3032]) /*_.VALDATA___V3033*/ curfptr[3032] = (void*)&cdat->dobj_3027;
-  melt_assertmsg("iniobj checkdiscr dobj_3027", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3027.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3027.obj_num = 1;
-  cdat->dobj_3027.obj_hash = 270604094;
-  cdat->dobj_3027.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3027));
- 
- /*inimult dtup_3028__FOREACH_IN_MAPSTRING*/
- /*_.VALTUP___V3034*/ curfptr[3033] = (void*)&cdat->dtup_3028__FOREACH_IN_MAPSTRING;
-  cdat->dtup_3028__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3028__FOREACH_IN_MAPSTRING.nbval = 2;
- /*inistring dstr_3029__*/
- /*_.VALSTR___V3035*/ curfptr[3034] = (void*)&cdat->dstr_3029__;
-  cdat->dstr_3029__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3029__.val, " /*", sizeof(cdat->dstr_3029__.val)-1);
- 
- /*inistring dstr_3030__int_*/
- /*_.VALSTR___V3036*/ curfptr[3035] = (void*)&cdat->dstr_3030__int_;
-  cdat->dstr_3030__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3030__int_.val, " :*/ int ", sizeof(cdat->dstr_3030__int_.val)-1);
- 
- /*inistring dstr_3031__ix_0_*/
- /*_.VALSTR___V3037*/ curfptr[3036] = (void*)&cdat->dstr_3031__ix_0_;
-  cdat->dstr_3031__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3031__ix_0_.val, "_ix=0, ", sizeof(cdat->dstr_3031__ix_0_.val)-1);
- 
- /*inistring dstr_3032__siz_0_for_*/
- /*_.VALSTR___V3038*/ curfptr[3037] = (void*)&cdat->dstr_3032__siz_0_for_;
-  cdat->dstr_3032__siz_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3032__siz_0_for_.val, "_siz=0;\n  for (", sizeof(cdat->dstr_3032__siz_0_for_.val)-1);
- 
- /*inistring dstr_3033__ix_0_*/
- /*_.VALSTR___V3039*/ curfptr[3038] = (void*)&cdat->dstr_3033__ix_0_;
-  cdat->dstr_3033__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3033__ix_0_.val, "_ix=0; \n     /* we retrieve in ", sizeof(cdat->dstr_3033__ix_0_.val)-1);
- 
- /*inistring dstr_3034__siz_the_size_at*/
- /*_.VALSTR___V3040*/ curfptr[3039] = (void*)&cdat->dstr_3034__siz_the_size_at;
-  cdat->dstr_3034__siz_the_size_at.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3034__siz_the_size_at.val, "_siz the size at each iteration since it could change. */\n       ", sizeof(cdat->dstr_3034__siz_the_size_at.val)-1);
- 
- /*inistring dstr_3035__ix_0_*/
- /*_.VALSTR___V3041*/ curfptr[3040] = (void*)&cdat->dstr_3035__ix_0_;
-  cdat->dstr_3035__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3035__ix_0_.val, "_ix>=0 && (", sizeof(cdat->dstr_3035__ix_0_.val)-1);
- 
- /*inistring dstr_3036__siz_melt_size_*/
- /*_.VALSTR___V3042*/ curfptr[3041] = (void*)&cdat->dstr_3036__siz_melt_size_;
-  cdat->dstr_3036__siz_melt_size_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3036__siz_melt_size_.val, "_siz= melt_size_mapstrings(", sizeof(cdat->dstr_3036__siz_melt_size_.val)-1);
- 
- /*inistring dstr_3037__0_*/
- /*_.VALSTR___V3043*/ curfptr[3042] = (void*)&cdat->dstr_3037__0_;
-  cdat->dstr_3037__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3037__0_.val, "))>0\n       && ", sizeof(cdat->dstr_3037__0_.val)-1);
- 
- /*inistring dstr_3038__ix_*/
- /*_.VALSTR___V3044*/ curfptr[3043] = (void*)&cdat->dstr_3038__ix_;
-  cdat->dstr_3038__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3038__ix_.val, "_ix < ", sizeof(cdat->dstr_3038__ix_.val)-1);
- 
- /*inistring dstr_3039__siz_*/
- /*_.VALSTR___V3045*/ curfptr[3044] = (void*)&cdat->dstr_3039__siz_;
-  cdat->dstr_3039__siz_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3039__siz_.val, "_siz;\n       ", sizeof(cdat->dstr_3039__siz_.val)-1);
- 
- /*inistring dstr_3040__ix_con*/
- /*_.VALSTR___V3046*/ curfptr[3045] = (void*)&cdat->dstr_3040__ix_con;
-  cdat->dstr_3040__ix_con.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3040__ix_con.val, "_ix++) {\n    const char* ", sizeof(cdat->dstr_3040__ix_con.val)-1);
- 
- /*inistring dstr_3041__str_NULL_*/
- /*_.VALSTR___V3047*/ curfptr[3046] = (void*)&cdat->dstr_3041__str_NULL_;
-  cdat->dstr_3041__str_NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3041__str_NULL_.val, "_str = NULL;\n    const char* ", sizeof(cdat->dstr_3041__str_NULL_.val)-1);
- 
- /*inistring dstr_3042__nam_NULL_*/
- /*_.VALSTR___V3048*/ curfptr[3047] = (void*)&cdat->dstr_3042__nam_NULL_;
-  cdat->dstr_3042__nam_NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3042__nam_NULL_.val, "_nam = NULL;\n    ", sizeof(cdat->dstr_3042__nam_NULL_.val)-1);
- 
- /*inistring dstr_3043__NULL_*/
- /*_.VALSTR___V3049*/ curfptr[3048] = (void*)&cdat->dstr_3043__NULL_;
-  cdat->dstr_3043__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3043__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_3043__NULL_.val)-1);
- 
- /*inistring dstr_3044__NULL_*/
- /*_.VALSTR___V3050*/ curfptr[3049] = (void*)&cdat->dstr_3044__NULL_;
-  cdat->dstr_3044__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3044__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_3044__NULL_.val)-1);
- 
- /*inistring dstr_3045__str_struct_*/
- /*_.VALSTR___V3051*/ curfptr[3050] = (void*)&cdat->dstr_3045__str_struct_;
-  cdat->dstr_3045__str_struct_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3045__str_struct_.val, "_str = ((struct meltmapstrings_st*)", sizeof(cdat->dstr_3045__str_struct_.val)-1);
- 
- /*inistring dstr_3046__entab_*/
- /*_.VALSTR___V3052*/ curfptr[3051] = (void*)&cdat->dstr_3046__entab_;
-  cdat->dstr_3046__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3046__entab_.val, ")->entab[", sizeof(cdat->dstr_3046__entab_.val)-1);
- 
- /*inistring dstr_3047__ix_e_at_i*/
- /*_.VALSTR___V3053*/ curfptr[3052] = (void*)&cdat->dstr_3047__ix_e_at_i;
-  cdat->dstr_3047__ix_e_at_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3047__ix_e_at_i.val, "_ix].e_at;\n    if (", sizeof(cdat->dstr_3047__ix_e_at_i.val)-1);
- 
- /*inistring dstr_3048__str_HTAB_DEL*/
- /*_.VALSTR___V3054*/ curfptr[3053] = (void*)&cdat->dstr_3048__str_HTAB_DEL;
-  cdat->dstr_3048__str_HTAB_DEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3048__str_HTAB_DEL.val, "_str == HTAB_DELETED_ENTRY) { ", sizeof(cdat->dstr_3048__str_HTAB_DEL.val)-1);
- 
- /*inistring dstr_3049__NULL_continu*/
- /*_.VALSTR___V3055*/ curfptr[3054] = (void*)&cdat->dstr_3049__NULL_continu;
-  cdat->dstr_3049__NULL_continu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3049__NULL_continu.val, " = NULL; continue; };\n    if (!", sizeof(cdat->dstr_3049__NULL_continu.val)-1);
- 
- /*inistring dstr_3050__str_continue_*/
- /*_.VALSTR___V3056*/ curfptr[3055] = (void*)&cdat->dstr_3050__str_continue_;
-  cdat->dstr_3050__str_continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3050__str_continue_.val, "_str) continue;\n    ", sizeof(cdat->dstr_3050__str_continue_.val)-1);
- 
- /*inistring dstr_3051__struct_melt*/
- /*_.VALSTR___V3057*/ curfptr[3056] = (void*)&cdat->dstr_3051__struct_melt;
-  cdat->dstr_3051__struct_melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3051__struct_melt.val, " = ((struct meltmapstrings_st*)", sizeof(cdat->dstr_3051__struct_melt.val)-1);
- 
- /*inistring dstr_3052__entab_*/
- /*_.VALSTR___V3058*/ curfptr[3057] = (void*)&cdat->dstr_3052__entab_;
-  cdat->dstr_3052__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3052__entab_.val, ")->entab[", sizeof(cdat->dstr_3052__entab_.val)-1);
- 
- /*inistring dstr_3053__ix_e_va_i*/
- /*_.VALSTR___V3059*/ curfptr[3058] = (void*)&cdat->dstr_3053__ix_e_va_i;
-  cdat->dstr_3053__ix_e_va_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3053__ix_e_va_i.val, "_ix].e_va;\n    if (!", sizeof(cdat->dstr_3053__ix_e_va_i.val)-1);
- 
- /*inistring dstr_3054__continue_*/
- /*_.VALSTR___V3060*/ curfptr[3059] = (void*)&cdat->dstr_3054__continue_;
-  cdat->dstr_3054__continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3054__continue_.val, ") continue; \n    if (melt_is_instance_of(", sizeof(cdat->dstr_3054__continue_.val)-1);
- 
- /*inistring dstr_3055__MELT_PREDEF_C*/
- /*_.VALSTR___V3061*/ curfptr[3060] = (void*)&cdat->dstr_3055__MELT_PREDEF_C;
-  cdat->dstr_3055__MELT_PREDEF_C.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3055__MELT_PREDEF_C.val, ", MELT_PREDEF (CLASS_NAMED)) \n\t&& (", sizeof(cdat->dstr_3055__MELT_PREDEF_C.val)-1);
- 
- /*inistring dstr_3056__melt_object_n*/
- /*_.VALSTR___V3062*/ curfptr[3061] = (void*)&cdat->dstr_3056__melt_object_n;
-  cdat->dstr_3056__melt_object_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3056__melt_object_n.val, " = melt_object_nth_field ((melt_ptr_t) ", sizeof(cdat->dstr_3056__melt_object_n.val)-1);
- 
- /*inistring dstr_3057__FNAMED_NAME_*/
- /*_.VALSTR___V3063*/ curfptr[3062] = (void*)&cdat->dstr_3057__FNAMED_NAME_;
-  cdat->dstr_3057__FNAMED_NAME_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3057__FNAMED_NAME_.val, ", FNAMED_NAME)) != NULL\t\t   \n\t&& (", sizeof(cdat->dstr_3057__FNAMED_NAME_.val)-1);
- 
- /*inistring dstr_3058__nam_melt_stri*/
- /*_.VALSTR___V3064*/ curfptr[3063] = (void*)&cdat->dstr_3058__nam_melt_stri;
-  cdat->dstr_3058__nam_melt_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3058__nam_melt_stri.val, "_nam = melt_string_str ((melt_ptr_t) ", sizeof(cdat->dstr_3058__nam_melt_stri.val)-1);
- 
- /*inistring dstr_3059__char_0_*/
- /*_.VALSTR___V3065*/ curfptr[3064] = (void*)&cdat->dstr_3059__char_0_;
-  cdat->dstr_3059__char_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3059__char_0_.val, ")) != (char*)0\n\t&& !strcmp (", sizeof(cdat->dstr_3059__char_0_.val)-1);
- 
- /*inistring dstr_3060__nam_*/
- /*_.VALSTR___V3066*/ curfptr[3065] = (void*)&cdat->dstr_3060__nam_;
-  cdat->dstr_3060__nam_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3060__nam_.val, "_nam, ", sizeof(cdat->dstr_3060__nam_.val)-1);
- 
- /*inistring dstr_3061__str_*/
- /*_.VALSTR___V3067*/ curfptr[3066] = (void*)&cdat->dstr_3061__str_;
-  cdat->dstr_3061__str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3061__str_.val, "_str))\n      ", sizeof(cdat->dstr_3061__str_.val)-1);
- 
- /*inistring dstr_3062__*/
- /*_.VALSTR___V3068*/ curfptr[3067] = (void*)&cdat->dstr_3062__;
-  cdat->dstr_3062__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3062__.val, " = ", sizeof(cdat->dstr_3062__.val)-1);
- 
- /*inistring dstr_3063__else_*/
- /*_.VALSTR___V3069*/ curfptr[3068] = (void*)&cdat->dstr_3063__else_;
-  cdat->dstr_3063__else_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3063__else_.val, ";\n    else {\n      ", sizeof(cdat->dstr_3063__else_.val)-1);
+ /*iniobj dobj_2993*/
+ if (!/*_.VALDATA___V2998*/ curfptr[2997]) /*_.VALDATA___V2998*/ curfptr[2997] = (void*)&cdat->dobj_2993;
+  melt_assertmsg("iniobj checkdiscr dobj_2993", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2993.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_2993.obj_num = 2;
+  cdat->dobj_2993.obj_hash = 417012962;
+  cdat->dobj_2993.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_2993));
+ 
+ /*inistring dstr_2994__meltgc_new_stri*/
+ /*_.VALSTR___V3000*/ curfptr[2999] = (void*)&cdat->dstr_2994__meltgc_new_stri;
+  cdat->dstr_2994__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2994__meltgc_new_stri.val, "(meltgc_new_stringdup((meltobject_ptr_t)(", sizeof(cdat->dstr_2994__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_2995__melt_n*/
+ /*_.VALSTR___V3001*/ curfptr[3000] = (void*)&cdat->dstr_2995__melt_n;
+  cdat->dstr_2995__melt_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2995__melt_n.val, "),  \n\t\t\t  melt_nthattrraw_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_2995__melt_n.val)-1);
+ 
+ /*inistring dstr_2996__int_*/
+ /*_.VALSTR___V3002*/ curfptr[3001] = (void*)&cdat->dstr_2996__int_;
+  cdat->dstr_2996__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2996__int_.val, "), (int)(", sizeof(cdat->dstr_2996__int_.val)-1);
+ 
+ /*inistring dstr_2997__*/
+ /*_.VALSTR___V3003*/ curfptr[3002] = (void*)&cdat->dstr_2997__;
+  cdat->dstr_2997__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_2997__.val, "))))", sizeof(cdat->dstr_2997__.val)-1);
+ 
+ /*inistring dstr_2998__MAPSTRING_NTH_AT*/
+ /*_.VALSTR___V2993*/ curfptr[2992] = (void*)&cdat->dstr_2998__MAPSTRING_NTH_AT;
+  cdat->dstr_2998__MAPSTRING_NTH_AT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_2998__MAPSTRING_NTH_AT.val, "MAPSTRING_NTH_ATTRSTR", sizeof(cdat->dstr_2998__MAPSTRING_NTH_AT.val)-1);
+ 
+ /*iniobj dsym_2999__MAPSTRING_NTH_VAL*/
+ if (!/*_.VALDATA___V3005*/ curfptr[3004]) /*_.VALDATA___V3005*/ curfptr[3004] = (void*)&cdat->dsym_2999__MAPSTRING_NTH_VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_2999__MAPSTRING_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2999__MAPSTRING_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_2999__MAPSTRING_NTH_VAL.obj_hash = 614325841;
+  cdat->dsym_2999__MAPSTRING_NTH_VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_2999__MAPSTRING_NTH_VAL));
+ 
+ /*inistring dstr_3000__MAPSTRING_NTH_VA*/
+ /*_.VALSTR___V3006*/ curfptr[3005] = (void*)&cdat->dstr_3000__MAPSTRING_NTH_VA;
+  cdat->dstr_3000__MAPSTRING_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3000__MAPSTRING_NTH_VA.val, "MAPSTRING_NTH_VAL", sizeof(cdat->dstr_3000__MAPSTRING_NTH_VA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1638:/ iniobj");
+ /*iniobj dobj_3001__MAPSTRING_NTH_VAL*/
+ if (!/*_.VALDATA___V3007*/ curfptr[3006]) /*_.VALDATA___V3007*/ curfptr[3006] = (void*)&cdat->dobj_3001__MAPSTRING_NTH_VAL;
+  melt_assertmsg("iniobj checkdiscr dobj_3001__MAPSTRING_NTH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3001__MAPSTRING_NTH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3001__MAPSTRING_NTH_VAL.obj_hash = 638418069;
+  cdat->dobj_3001__MAPSTRING_NTH_VAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3001__MAPSTRING_NTH_VAL));
+ 
+ /*inimult dtup_3002__MAPSTRING_NTH_VAL*/
+ /*_.VALTUP___V3015*/ curfptr[3014] = (void*)&cdat->dtup_3002__MAPSTRING_NTH_VAL;
+  cdat->dtup_3002__MAPSTRING_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3002__MAPSTRING_NTH_VAL.nbval = 5;
+ /*inimult dtup_3003__MAPSTRING_NTH_VAL*/
+ /*_.VALTUP___V3011*/ curfptr[3010] = (void*)&cdat->dtup_3003__MAPSTRING_NTH_VAL;
+  cdat->dtup_3003__MAPSTRING_NTH_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3003__MAPSTRING_NTH_VAL.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1638:/ iniobj");
+ /*iniobj dobj_3004*/
+ if (!/*_.VALDATA___V3009*/ curfptr[3008]) /*_.VALDATA___V3009*/ curfptr[3008] = (void*)&cdat->dobj_3004;
+  melt_assertmsg("iniobj checkdiscr dobj_3004", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3004.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3004.obj_num = 0;
+  cdat->dobj_3004.obj_hash = 826779166;
+  cdat->dobj_3004.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3004));
+ 
+ MELT_LOCATION("warmelt-first.melt:1638:/ iniobj");
+ /*iniobj dobj_3005*/
+ if (!/*_.VALDATA___V3010*/ curfptr[3009]) /*_.VALDATA___V3010*/ curfptr[3009] = (void*)&cdat->dobj_3005;
+  melt_assertmsg("iniobj checkdiscr dobj_3005", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3005.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3005.obj_num = 1;
+  cdat->dobj_3005.obj_hash = 767878896;
+  cdat->dobj_3005.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3005));
+ 
+ /*inistring dstr_3006__melt_nthval_map*/
+ /*_.VALSTR___V3012*/ curfptr[3011] = (void*)&cdat->dstr_3006__melt_nthval_map;
+  cdat->dstr_3006__melt_nthval_map.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3006__melt_nthval_map.val, "(melt_nthval_mapstrings((struct meltmapstrings_st*)(", sizeof(cdat->dstr_3006__melt_nthval_map.val)-1);
+ 
+ /*inistring dstr_3007__int_*/
+ /*_.VALSTR___V3013*/ curfptr[3012] = (void*)&cdat->dstr_3007__int_;
+  cdat->dstr_3007__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3007__int_.val, "), (int)(", sizeof(cdat->dstr_3007__int_.val)-1);
+ 
+ /*inistring dstr_3008__*/
+ /*_.VALSTR___V3014*/ curfptr[3013] = (void*)&cdat->dstr_3008__;
+  cdat->dstr_3008__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3008__.val, ")))", sizeof(cdat->dstr_3008__.val)-1);
+ 
+ /*inistring dstr_3009__MAPSTRING_NTH_VA*/
+ /*_.VALSTR___V3008*/ curfptr[3007] = (void*)&cdat->dstr_3009__MAPSTRING_NTH_VA;
+  cdat->dstr_3009__MAPSTRING_NTH_VA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3009__MAPSTRING_NTH_VA.val, "MAPSTRING_NTH_VAL", sizeof(cdat->dstr_3009__MAPSTRING_NTH_VA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1642:/ iniobj");
+ /*iniobj dobj_3010__FOREACH_IN_MAPSTRING*/
+ if (!/*_.VALDATA___V3016*/ curfptr[3015]) /*_.VALDATA___V3016*/ curfptr[3015] = (void*)&cdat->dobj_3010__FOREACH_IN_MAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_3010__FOREACH_IN_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_3010__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_3010__FOREACH_IN_MAPSTRING.obj_hash = 26652111;
+  cdat->dobj_3010__FOREACH_IN_MAPSTRING.obj_len = 7;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3010__FOREACH_IN_MAPSTRING));
+ 
+ /*inistring dstr_3011__FOREACH_IN_MAPST*/
+ /*_.VALSTR___V3017*/ curfptr[3016] = (void*)&cdat->dstr_3011__FOREACH_IN_MAPST;
+  cdat->dstr_3011__FOREACH_IN_MAPST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3011__FOREACH_IN_MAPST.val, "FOREACH_IN_MAPSTRING", sizeof(cdat->dstr_3011__FOREACH_IN_MAPST.val)-1);
+ 
+ /*iniobj dsym_3012__STRMAP*/
+ if (!/*_.VALDATA___V3019*/ curfptr[3018]) /*_.VALDATA___V3019*/ curfptr[3018] = (void*)&cdat->dsym_3012__STRMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_3012__STRMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3012__STRMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3012__STRMAP.obj_hash = 877711628;
+  cdat->dsym_3012__STRMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3012__STRMAP));
+ 
+ /*inistring dstr_3013__STRMAP*/
+ /*_.VALSTR___V3020*/ curfptr[3019] = (void*)&cdat->dstr_3013__STRMAP;
+  cdat->dstr_3013__STRMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3013__STRMAP.val, "STRMAP", sizeof(cdat->dstr_3013__STRMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1642:/ iniobj");
+ /*iniobj dobj_3014*/
+ if (!/*_.VALDATA___V3018*/ curfptr[3017]) /*_.VALDATA___V3018*/ curfptr[3017] = (void*)&cdat->dobj_3014;
+  melt_assertmsg("iniobj checkdiscr dobj_3014", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3014.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3014.obj_num = 0;
+  cdat->dobj_3014.obj_hash = 145546690;
+  cdat->dobj_3014.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3014));
+ 
+ /*inimult dtup_3015__FOREACH_IN_MAPSTRING*/
+ /*_.VALTUP___V3021*/ curfptr[3020] = (void*)&cdat->dtup_3015__FOREACH_IN_MAPSTRING;
+  cdat->dtup_3015__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3015__FOREACH_IN_MAPSTRING.nbval = 1;
+ /*iniobj dsym_3016__EACHSTRMAP*/
+ if (!/*_.VALDATA___V3022*/ curfptr[3021]) /*_.VALDATA___V3022*/ curfptr[3021] = (void*)&cdat->dsym_3016__EACHSTRMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_3016__EACHSTRMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3016__EACHSTRMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3016__EACHSTRMAP.obj_hash = 923376764;
+  cdat->dsym_3016__EACHSTRMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3016__EACHSTRMAP));
+ 
+ /*inistring dstr_3017__EACHSTRMAP*/
+ /*_.VALSTR___V3023*/ curfptr[3022] = (void*)&cdat->dstr_3017__EACHSTRMAP;
+  cdat->dstr_3017__EACHSTRMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3017__EACHSTRMAP.val, "EACHSTRMAP", sizeof(cdat->dstr_3017__EACHSTRMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1642:/ iniobj");
+ /*iniobj dobj_3018*/
+ if (!/*_.VALDATA___V3024*/ curfptr[3023]) /*_.VALDATA___V3024*/ curfptr[3023] = (void*)&cdat->dobj_3018;
+  melt_assertmsg("iniobj checkdiscr dobj_3018", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3018.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3018.obj_num = 0;
+  cdat->dobj_3018.obj_hash = 861743801;
+  cdat->dobj_3018.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3018));
+ 
+ MELT_LOCATION("warmelt-first.melt:1642:/ iniobj");
+ /*iniobj dobj_3019*/
+ if (!/*_.VALDATA___V3025*/ curfptr[3024]) /*_.VALDATA___V3025*/ curfptr[3024] = (void*)&cdat->dobj_3019;
+  melt_assertmsg("iniobj checkdiscr dobj_3019", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3019.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3019.obj_num = 1;
+  cdat->dobj_3019.obj_hash = 155442167;
+  cdat->dobj_3019.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3019));
+ 
+ /*inimult dtup_3020__FOREACH_IN_MAPSTRING*/
+ /*_.VALTUP___V3026*/ curfptr[3025] = (void*)&cdat->dtup_3020__FOREACH_IN_MAPSTRING;
+  cdat->dtup_3020__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3020__FOREACH_IN_MAPSTRING.nbval = 2;
+ /*inistring dstr_3021__*/
+ /*_.VALSTR___V3027*/ curfptr[3026] = (void*)&cdat->dstr_3021__;
+  cdat->dstr_3021__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3021__.val, " /*", sizeof(cdat->dstr_3021__.val)-1);
+ 
+ /*inistring dstr_3022__int_*/
+ /*_.VALSTR___V3028*/ curfptr[3027] = (void*)&cdat->dstr_3022__int_;
+  cdat->dstr_3022__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3022__int_.val, " :*/ int ", sizeof(cdat->dstr_3022__int_.val)-1);
+ 
+ /*inistring dstr_3023__ix_0_*/
+ /*_.VALSTR___V3029*/ curfptr[3028] = (void*)&cdat->dstr_3023__ix_0_;
+  cdat->dstr_3023__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3023__ix_0_.val, "_ix=0, ", sizeof(cdat->dstr_3023__ix_0_.val)-1);
+ 
+ /*inistring dstr_3024__siz_0_for_*/
+ /*_.VALSTR___V3030*/ curfptr[3029] = (void*)&cdat->dstr_3024__siz_0_for_;
+  cdat->dstr_3024__siz_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3024__siz_0_for_.val, "_siz=0;\n  for (", sizeof(cdat->dstr_3024__siz_0_for_.val)-1);
+ 
+ /*inistring dstr_3025__ix_0_*/
+ /*_.VALSTR___V3031*/ curfptr[3030] = (void*)&cdat->dstr_3025__ix_0_;
+  cdat->dstr_3025__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3025__ix_0_.val, "_ix=0; \n     /* we retrieve in ", sizeof(cdat->dstr_3025__ix_0_.val)-1);
+ 
+ /*inistring dstr_3026__siz_the_size_at*/
+ /*_.VALSTR___V3032*/ curfptr[3031] = (void*)&cdat->dstr_3026__siz_the_size_at;
+  cdat->dstr_3026__siz_the_size_at.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3026__siz_the_size_at.val, "_siz the size at each iteration since it could change. */\n       ", sizeof(cdat->dstr_3026__siz_the_size_at.val)-1);
+ 
+ /*inistring dstr_3027__ix_0_*/
+ /*_.VALSTR___V3033*/ curfptr[3032] = (void*)&cdat->dstr_3027__ix_0_;
+  cdat->dstr_3027__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3027__ix_0_.val, "_ix>=0 && (", sizeof(cdat->dstr_3027__ix_0_.val)-1);
+ 
+ /*inistring dstr_3028__siz_melt_size_*/
+ /*_.VALSTR___V3034*/ curfptr[3033] = (void*)&cdat->dstr_3028__siz_melt_size_;
+  cdat->dstr_3028__siz_melt_size_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3028__siz_melt_size_.val, "_siz= melt_size_mapstrings(", sizeof(cdat->dstr_3028__siz_melt_size_.val)-1);
+ 
+ /*inistring dstr_3029__0_*/
+ /*_.VALSTR___V3035*/ curfptr[3034] = (void*)&cdat->dstr_3029__0_;
+  cdat->dstr_3029__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3029__0_.val, "))>0\n       && ", sizeof(cdat->dstr_3029__0_.val)-1);
+ 
+ /*inistring dstr_3030__ix_*/
+ /*_.VALSTR___V3036*/ curfptr[3035] = (void*)&cdat->dstr_3030__ix_;
+  cdat->dstr_3030__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3030__ix_.val, "_ix < ", sizeof(cdat->dstr_3030__ix_.val)-1);
+ 
+ /*inistring dstr_3031__siz_*/
+ /*_.VALSTR___V3037*/ curfptr[3036] = (void*)&cdat->dstr_3031__siz_;
+  cdat->dstr_3031__siz_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3031__siz_.val, "_siz;\n       ", sizeof(cdat->dstr_3031__siz_.val)-1);
+ 
+ /*inistring dstr_3032__ix_con*/
+ /*_.VALSTR___V3038*/ curfptr[3037] = (void*)&cdat->dstr_3032__ix_con;
+  cdat->dstr_3032__ix_con.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3032__ix_con.val, "_ix++) {\n    const char* ", sizeof(cdat->dstr_3032__ix_con.val)-1);
+ 
+ /*inistring dstr_3033__str_NULL_*/
+ /*_.VALSTR___V3039*/ curfptr[3038] = (void*)&cdat->dstr_3033__str_NULL_;
+  cdat->dstr_3033__str_NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3033__str_NULL_.val, "_str = NULL;\n    const char* ", sizeof(cdat->dstr_3033__str_NULL_.val)-1);
+ 
+ /*inistring dstr_3034__nam_NULL_*/
+ /*_.VALSTR___V3040*/ curfptr[3039] = (void*)&cdat->dstr_3034__nam_NULL_;
+  cdat->dstr_3034__nam_NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3034__nam_NULL_.val, "_nam = NULL;\n    ", sizeof(cdat->dstr_3034__nam_NULL_.val)-1);
+ 
+ /*inistring dstr_3035__NULL_*/
+ /*_.VALSTR___V3041*/ curfptr[3040] = (void*)&cdat->dstr_3035__NULL_;
+  cdat->dstr_3035__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3035__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_3035__NULL_.val)-1);
+ 
+ /*inistring dstr_3036__NULL_*/
+ /*_.VALSTR___V3042*/ curfptr[3041] = (void*)&cdat->dstr_3036__NULL_;
+  cdat->dstr_3036__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3036__NULL_.val, " = NULL;\n    ", sizeof(cdat->dstr_3036__NULL_.val)-1);
+ 
+ /*inistring dstr_3037__str_struct_*/
+ /*_.VALSTR___V3043*/ curfptr[3042] = (void*)&cdat->dstr_3037__str_struct_;
+  cdat->dstr_3037__str_struct_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3037__str_struct_.val, "_str = ((struct meltmapstrings_st*)", sizeof(cdat->dstr_3037__str_struct_.val)-1);
+ 
+ /*inistring dstr_3038__entab_*/
+ /*_.VALSTR___V3044*/ curfptr[3043] = (void*)&cdat->dstr_3038__entab_;
+  cdat->dstr_3038__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3038__entab_.val, ")->entab[", sizeof(cdat->dstr_3038__entab_.val)-1);
+ 
+ /*inistring dstr_3039__ix_e_at_i*/
+ /*_.VALSTR___V3045*/ curfptr[3044] = (void*)&cdat->dstr_3039__ix_e_at_i;
+  cdat->dstr_3039__ix_e_at_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3039__ix_e_at_i.val, "_ix].e_at;\n    if (", sizeof(cdat->dstr_3039__ix_e_at_i.val)-1);
+ 
+ /*inistring dstr_3040__str_HTAB_DEL*/
+ /*_.VALSTR___V3046*/ curfptr[3045] = (void*)&cdat->dstr_3040__str_HTAB_DEL;
+  cdat->dstr_3040__str_HTAB_DEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3040__str_HTAB_DEL.val, "_str == HTAB_DELETED_ENTRY) { ", sizeof(cdat->dstr_3040__str_HTAB_DEL.val)-1);
+ 
+ /*inistring dstr_3041__NULL_continu*/
+ /*_.VALSTR___V3047*/ curfptr[3046] = (void*)&cdat->dstr_3041__NULL_continu;
+  cdat->dstr_3041__NULL_continu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3041__NULL_continu.val, " = NULL; continue; };\n    if (!", sizeof(cdat->dstr_3041__NULL_continu.val)-1);
+ 
+ /*inistring dstr_3042__str_continue_*/
+ /*_.VALSTR___V3048*/ curfptr[3047] = (void*)&cdat->dstr_3042__str_continue_;
+  cdat->dstr_3042__str_continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3042__str_continue_.val, "_str) continue;\n    ", sizeof(cdat->dstr_3042__str_continue_.val)-1);
+ 
+ /*inistring dstr_3043__struct_melt*/
+ /*_.VALSTR___V3049*/ curfptr[3048] = (void*)&cdat->dstr_3043__struct_melt;
+  cdat->dstr_3043__struct_melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3043__struct_melt.val, " = ((struct meltmapstrings_st*)", sizeof(cdat->dstr_3043__struct_melt.val)-1);
+ 
+ /*inistring dstr_3044__entab_*/
+ /*_.VALSTR___V3050*/ curfptr[3049] = (void*)&cdat->dstr_3044__entab_;
+  cdat->dstr_3044__entab_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3044__entab_.val, ")->entab[", sizeof(cdat->dstr_3044__entab_.val)-1);
+ 
+ /*inistring dstr_3045__ix_e_va_i*/
+ /*_.VALSTR___V3051*/ curfptr[3050] = (void*)&cdat->dstr_3045__ix_e_va_i;
+  cdat->dstr_3045__ix_e_va_i.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3045__ix_e_va_i.val, "_ix].e_va;\n    if (!", sizeof(cdat->dstr_3045__ix_e_va_i.val)-1);
+ 
+ /*inistring dstr_3046__continue_*/
+ /*_.VALSTR___V3052*/ curfptr[3051] = (void*)&cdat->dstr_3046__continue_;
+  cdat->dstr_3046__continue_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3046__continue_.val, ") continue; \n    if (melt_is_instance_of(", sizeof(cdat->dstr_3046__continue_.val)-1);
+ 
+ /*inistring dstr_3047__MELT_PREDEF_C*/
+ /*_.VALSTR___V3053*/ curfptr[3052] = (void*)&cdat->dstr_3047__MELT_PREDEF_C;
+  cdat->dstr_3047__MELT_PREDEF_C.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3047__MELT_PREDEF_C.val, ", MELT_PREDEF (CLASS_NAMED)) \n\t&& (", sizeof(cdat->dstr_3047__MELT_PREDEF_C.val)-1);
+ 
+ /*inistring dstr_3048__melt_object_n*/
+ /*_.VALSTR___V3054*/ curfptr[3053] = (void*)&cdat->dstr_3048__melt_object_n;
+  cdat->dstr_3048__melt_object_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3048__melt_object_n.val, " = melt_object_nth_field ((melt_ptr_t) ", sizeof(cdat->dstr_3048__melt_object_n.val)-1);
+ 
+ /*inistring dstr_3049__FNAMED_NAME_*/
+ /*_.VALSTR___V3055*/ curfptr[3054] = (void*)&cdat->dstr_3049__FNAMED_NAME_;
+  cdat->dstr_3049__FNAMED_NAME_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3049__FNAMED_NAME_.val, ", FNAMED_NAME)) != NULL\t\t   \n\t&& (", sizeof(cdat->dstr_3049__FNAMED_NAME_.val)-1);
+ 
+ /*inistring dstr_3050__nam_melt_stri*/
+ /*_.VALSTR___V3056*/ curfptr[3055] = (void*)&cdat->dstr_3050__nam_melt_stri;
+  cdat->dstr_3050__nam_melt_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3050__nam_melt_stri.val, "_nam = melt_string_str ((melt_ptr_t) ", sizeof(cdat->dstr_3050__nam_melt_stri.val)-1);
+ 
+ /*inistring dstr_3051__char_0_*/
+ /*_.VALSTR___V3057*/ curfptr[3056] = (void*)&cdat->dstr_3051__char_0_;
+  cdat->dstr_3051__char_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3051__char_0_.val, ")) != (char*)0\n\t&& !strcmp (", sizeof(cdat->dstr_3051__char_0_.val)-1);
+ 
+ /*inistring dstr_3052__nam_*/
+ /*_.VALSTR___V3058*/ curfptr[3057] = (void*)&cdat->dstr_3052__nam_;
+  cdat->dstr_3052__nam_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3052__nam_.val, "_nam, ", sizeof(cdat->dstr_3052__nam_.val)-1);
+ 
+ /*inistring dstr_3053__str_*/
+ /*_.VALSTR___V3059*/ curfptr[3058] = (void*)&cdat->dstr_3053__str_;
+  cdat->dstr_3053__str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3053__str_.val, "_str))\n      ", sizeof(cdat->dstr_3053__str_.val)-1);
+ 
+ /*inistring dstr_3054__*/
+ /*_.VALSTR___V3060*/ curfptr[3059] = (void*)&cdat->dstr_3054__;
+  cdat->dstr_3054__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3054__.val, " = ", sizeof(cdat->dstr_3054__.val)-1);
+ 
+ /*inistring dstr_3055__else_*/
+ /*_.VALSTR___V3061*/ curfptr[3060] = (void*)&cdat->dstr_3055__else_;
+  cdat->dstr_3055__else_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3055__else_.val, ";\n    else {\n      ", sizeof(cdat->dstr_3055__else_.val)-1);
+ 
+ /*inistring dstr_3056__NULL_*/
+ /*_.VALSTR___V3062*/ curfptr[3061] = (void*)&cdat->dstr_3056__NULL_;
+  cdat->dstr_3056__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3056__NULL_.val, " = NULL;\n      ", sizeof(cdat->dstr_3056__NULL_.val)-1);
+ 
+ /*inistring dstr_3057__meltgc_new_s*/
+ /*_.VALSTR___V3063*/ curfptr[3062] = (void*)&cdat->dstr_3057__meltgc_new_s;
+  cdat->dstr_3057__meltgc_new_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3057__meltgc_new_s.val, " =  meltgc_new_stringdup((meltobject_ptr_t) MELT_PREDEF (DISCR_STRING), ", sizeof(cdat->dstr_3057__meltgc_new_s.val)-1);
+ 
+ /*inistring dstr_3058__str_*/
+ /*_.VALSTR___V3064*/ curfptr[3063] = (void*)&cdat->dstr_3058__str_;
+  cdat->dstr_3058__str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3058__str_.val, "_str);\n    }\n    ", sizeof(cdat->dstr_3058__str_.val)-1);
+ 
+ /*inistring dstr_3059__str_const_ch*/
+ /*_.VALSTR___V3065*/ curfptr[3064] = (void*)&cdat->dstr_3059__str_const_ch;
+  cdat->dstr_3059__str_const_ch.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3059__str_const_ch.val, "_str = (const char*)0;\n    ", sizeof(cdat->dstr_3059__str_const_ch.val)-1);
+ 
+ /*inistring dstr_3060__nam_const_ch*/
+ /*_.VALSTR___V3066*/ curfptr[3065] = (void*)&cdat->dstr_3060__nam_const_ch;
+  cdat->dstr_3060__nam_const_ch.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3060__nam_const_ch.val, "_nam = (const char*)0;\n", sizeof(cdat->dstr_3060__nam_const_ch.val)-1);
+ 
+ /*inimult dtup_3061__FOREACH_IN_MAPSTRING*/
+ /*_.VALTUP___V3067*/ curfptr[3066] = (void*)&cdat->dtup_3061__FOREACH_IN_MAPSTRING;
+  cdat->dtup_3061__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3061__FOREACH_IN_MAPSTRING.nbval = 79;
+ /*inistring dstr_3062__end_*/
+ /*_.VALSTR___V3068*/ curfptr[3067] = (void*)&cdat->dstr_3062__end_;
+  cdat->dstr_3062__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3062__end_.val, " /* end ", sizeof(cdat->dstr_3062__end_.val)-1);
+ 
+ /*inistring dstr_3063__*/
+ /*_.VALSTR___V3069*/ curfptr[3068] = (void*)&cdat->dstr_3063__;
+  cdat->dstr_3063__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3063__.val, " */\n    ", sizeof(cdat->dstr_3063__.val)-1);
  
  /*inistring dstr_3064__NULL_*/
  /*_.VALSTR___V3070*/ curfptr[3069] = (void*)&cdat->dstr_3064__NULL_;
   cdat->dstr_3064__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3064__NULL_.val, " = NULL;\n      ", sizeof(cdat->dstr_3064__NULL_.val)-1);
- 
- /*inistring dstr_3065__meltgc_new_s*/
- /*_.VALSTR___V3071*/ curfptr[3070] = (void*)&cdat->dstr_3065__meltgc_new_s;
-  cdat->dstr_3065__meltgc_new_s.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3065__meltgc_new_s.val, " =  meltgc_new_stringdup((meltobject_ptr_t) MELT_PREDEF (DISCR_STRING), ", sizeof(cdat->dstr_3065__meltgc_new_s.val)-1);
- 
- /*inistring dstr_3066__str_*/
- /*_.VALSTR___V3072*/ curfptr[3071] = (void*)&cdat->dstr_3066__str_;
-  cdat->dstr_3066__str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3066__str_.val, "_str);\n    }\n    ", sizeof(cdat->dstr_3066__str_.val)-1);
- 
- /*inistring dstr_3067__str_const_ch*/
- /*_.VALSTR___V3073*/ curfptr[3072] = (void*)&cdat->dstr_3067__str_const_ch;
-  cdat->dstr_3067__str_const_ch.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3067__str_const_ch.val, "_str = (const char*)0;\n    ", sizeof(cdat->dstr_3067__str_const_ch.val)-1);
- 
- /*inistring dstr_3068__nam_const_ch*/
- /*_.VALSTR___V3074*/ curfptr[3073] = (void*)&cdat->dstr_3068__nam_const_ch;
-  cdat->dstr_3068__nam_const_ch.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3068__nam_const_ch.val, "_nam = (const char*)0;\n", sizeof(cdat->dstr_3068__nam_const_ch.val)-1);
- 
- /*inimult dtup_3069__FOREACH_IN_MAPSTRING*/
- /*_.VALTUP___V3075*/ curfptr[3074] = (void*)&cdat->dtup_3069__FOREACH_IN_MAPSTRING;
-  cdat->dtup_3069__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3069__FOREACH_IN_MAPSTRING.nbval = 79;
- /*inistring dstr_3070__end_*/
- /*_.VALSTR___V3076*/ curfptr[3075] = (void*)&cdat->dstr_3070__end_;
-  cdat->dstr_3070__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3070__end_.val, " /* end ", sizeof(cdat->dstr_3070__end_.val)-1);
- 
- /*inistring dstr_3071__*/
- /*_.VALSTR___V3077*/ curfptr[3076] = (void*)&cdat->dstr_3071__;
-  cdat->dstr_3071__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3071__.val, " */\n    ", sizeof(cdat->dstr_3071__.val)-1);
- 
- /*inistring dstr_3072__NULL_*/
- /*_.VALSTR___V3078*/ curfptr[3077] = (void*)&cdat->dstr_3072__NULL_;
-  cdat->dstr_3072__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3072__NULL_.val, " = NULL;  \n    ", sizeof(cdat->dstr_3072__NULL_.val)-1);
- 
- /*inistring dstr_3073__NULL_*/
- /*_.VALSTR___V3079*/ curfptr[3078] = (void*)&cdat->dstr_3073__NULL_;
-  cdat->dstr_3073__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3073__NULL_.val, " = NULL;  }\n", sizeof(cdat->dstr_3073__NULL_.val)-1);
- 
- /*inimult dtup_3074__FOREACH_IN_MAPSTRING*/
- /*_.VALTUP___V3080*/ curfptr[3079] = (void*)&cdat->dtup_3074__FOREACH_IN_MAPSTRING;
-  cdat->dtup_3074__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3074__FOREACH_IN_MAPSTRING.nbval = 7;
- /*iniobj dsym_3075__IS_ROUTINE*/
- if (!/*_.VALDATA___V3081*/ curfptr[3080]) /*_.VALDATA___V3081*/ curfptr[3080] = (void*)&cdat->dsym_3075__IS_ROUTINE;
-  melt_assertmsg("iniobj checkdiscr dsym_3075__IS_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3075__IS_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3075__IS_ROUTINE.obj_hash = 43124802;
-  cdat->dsym_3075__IS_ROUTINE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3075__IS_ROUTINE));
- 
- /*inistring dstr_3076__IS_ROUTINE*/
- /*_.VALSTR___V3082*/ curfptr[3081] = (void*)&cdat->dstr_3076__IS_ROUTINE;
-  cdat->dstr_3076__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3076__IS_ROUTINE.val, "IS_ROUTINE", sizeof(cdat->dstr_3076__IS_ROUTINE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1693:/ iniobj");
- /*iniobj dobj_3077__IS_ROUTINE*/
- if (!/*_.VALDATA___V3083*/ curfptr[3082]) /*_.VALDATA___V3083*/ curfptr[3082] = (void*)&cdat->dobj_3077__IS_ROUTINE;
-  melt_assertmsg("iniobj checkdiscr dobj_3077__IS_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3077__IS_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3077__IS_ROUTINE.obj_hash = 939999205;
-  cdat->dobj_3077__IS_ROUTINE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3077__IS_ROUTINE));
- 
- /*inimult dtup_3078__IS_ROUTINE*/
- /*_.VALTUP___V3091*/ curfptr[3090] = (void*)&cdat->dtup_3078__IS_ROUTINE;
-  cdat->dtup_3078__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3078__IS_ROUTINE.nbval = 3;
- /*inimult dtup_3079__IS_ROUTINE*/
- /*_.VALTUP___V3088*/ curfptr[3087] = (void*)&cdat->dtup_3079__IS_ROUTINE;
-  cdat->dtup_3079__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3079__IS_ROUTINE.nbval = 1;
- /*iniobj dsym_3080__ROU*/
- if (!/*_.VALDATA___V3086*/ curfptr[3085]) /*_.VALDATA___V3086*/ curfptr[3085] = (void*)&cdat->dsym_3080__ROU;
-  melt_assertmsg("iniobj checkdiscr dsym_3080__ROU", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3080__ROU.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3080__ROU.obj_hash = 94524824;
-  cdat->dsym_3080__ROU.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3080__ROU));
- 
- /*inistring dstr_3081__ROU*/
- /*_.VALSTR___V3087*/ curfptr[3086] = (void*)&cdat->dstr_3081__ROU;
-  cdat->dstr_3081__ROU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3081__ROU.val, "ROU", sizeof(cdat->dstr_3081__ROU.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1693:/ iniobj");
- /*iniobj dobj_3082*/
- if (!/*_.VALDATA___V3085*/ curfptr[3084]) /*_.VALDATA___V3085*/ curfptr[3084] = (void*)&cdat->dobj_3082;
-  melt_assertmsg("iniobj checkdiscr dobj_3082", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3082.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3082.obj_num = 0;
-  cdat->dobj_3082.obj_hash = 621379897;
-  cdat->dobj_3082.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3082));
- 
- /*inistring dstr_3083__melt_magic_disc*/
- /*_.VALSTR___V3089*/ curfptr[3088] = (void*)&cdat->dstr_3083__melt_magic_disc;
-  cdat->dstr_3083__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3083__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3083__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3084__OBMAG_ROUT*/
- /*_.VALSTR___V3090*/ curfptr[3089] = (void*)&cdat->dstr_3084__OBMAG_ROUT;
-  cdat->dstr_3084__OBMAG_ROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3084__OBMAG_ROUT.val, ")) == OBMAG_ROUTINE)", sizeof(cdat->dstr_3084__OBMAG_ROUT.val)-1);
- 
- /*inistring dstr_3085__IS_ROUTINE*/
- /*_.VALSTR___V3084*/ curfptr[3083] = (void*)&cdat->dstr_3085__IS_ROUTINE;
-  cdat->dstr_3085__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3085__IS_ROUTINE.val, "IS_ROUTINE", sizeof(cdat->dstr_3085__IS_ROUTINE.val)-1);
- 
- /*iniobj dsym_3086__ROUTINE_DESCR*/
- if (!/*_.VALDATA___V3092*/ curfptr[3091]) /*_.VALDATA___V3092*/ curfptr[3091] = (void*)&cdat->dsym_3086__ROUTINE_DESCR;
-  melt_assertmsg("iniobj checkdiscr dsym_3086__ROUTINE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3086__ROUTINE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3086__ROUTINE_DESCR.obj_hash = 22549524;
-  cdat->dsym_3086__ROUTINE_DESCR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3086__ROUTINE_DESCR));
- 
- /*inistring dstr_3087__ROUTINE_DESCR*/
- /*_.VALSTR___V3093*/ curfptr[3092] = (void*)&cdat->dstr_3087__ROUTINE_DESCR;
-  cdat->dstr_3087__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3087__ROUTINE_DESCR.val, "ROUTINE_DESCR", sizeof(cdat->dstr_3087__ROUTINE_DESCR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1697:/ iniobj");
- /*iniobj dobj_3088__ROUTINE_DESCR*/
- if (!/*_.VALDATA___V3094*/ curfptr[3093]) /*_.VALDATA___V3094*/ curfptr[3093] = (void*)&cdat->dobj_3088__ROUTINE_DESCR;
-  melt_assertmsg("iniobj checkdiscr dobj_3088__ROUTINE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3088__ROUTINE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3088__ROUTINE_DESCR.obj_hash = 150433784;
-  cdat->dobj_3088__ROUTINE_DESCR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3088__ROUTINE_DESCR));
- 
- /*inimult dtup_3089__ROUTINE_DESCR*/
- /*_.VALTUP___V3100*/ curfptr[3099] = (void*)&cdat->dtup_3089__ROUTINE_DESCR;
-  cdat->dtup_3089__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3089__ROUTINE_DESCR.nbval = 3;
- /*inimult dtup_3090__ROUTINE_DESCR*/
- /*_.VALTUP___V3097*/ curfptr[3096] = (void*)&cdat->dtup_3090__ROUTINE_DESCR;
-  cdat->dtup_3090__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3090__ROUTINE_DESCR.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1697:/ iniobj");
- /*iniobj dobj_3091*/
- if (!/*_.VALDATA___V3096*/ curfptr[3095]) /*_.VALDATA___V3096*/ curfptr[3095] = (void*)&cdat->dobj_3091;
-  melt_assertmsg("iniobj checkdiscr dobj_3091", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3091.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3091.obj_num = 0;
-  cdat->dobj_3091.obj_hash = 816357675;
-  cdat->dobj_3091.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3091));
- 
- /*inistring dstr_3092__meltgc_new_stri*/
- /*_.VALSTR___V3098*/ curfptr[3097] = (void*)&cdat->dstr_3092__meltgc_new_stri;
-  cdat->dstr_3092__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3092__meltgc_new_stri.val, "(meltgc_new_stringdup(melt_routine_descrstr((melt_ptr_t)(", sizeof(cdat->dstr_3092__meltgc_new_stri.val)-1);
- 
- /*inistring dstr_3093__*/
- /*_.VALSTR___V3099*/ curfptr[3098] = (void*)&cdat->dstr_3093__;
-  cdat->dstr_3093__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3093__.val, "))))", sizeof(cdat->dstr_3093__.val)-1);
- 
- /*inistring dstr_3094__ROUTINE_DESCR*/
- /*_.VALSTR___V3095*/ curfptr[3094] = (void*)&cdat->dstr_3094__ROUTINE_DESCR;
-  cdat->dstr_3094__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3094__ROUTINE_DESCR.val, "ROUTINE_DESCR", sizeof(cdat->dstr_3094__ROUTINE_DESCR.val)-1);
- 
- /*iniobj dsym_3095__ROUTINE_SIZE*/
- if (!/*_.VALDATA___V3101*/ curfptr[3100]) /*_.VALDATA___V3101*/ curfptr[3100] = (void*)&cdat->dsym_3095__ROUTINE_SIZE;
-  melt_assertmsg("iniobj checkdiscr dsym_3095__ROUTINE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3095__ROUTINE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3095__ROUTINE_SIZE.obj_hash = 163476722;
-  cdat->dsym_3095__ROUTINE_SIZE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3095__ROUTINE_SIZE));
- 
- /*inistring dstr_3096__ROUTINE_SIZE*/
- /*_.VALSTR___V3102*/ curfptr[3101] = (void*)&cdat->dstr_3096__ROUTINE_SIZE;
-  cdat->dstr_3096__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3096__ROUTINE_SIZE.val, "ROUTINE_SIZE", sizeof(cdat->dstr_3096__ROUTINE_SIZE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1701:/ iniobj");
- /*iniobj dobj_3097__ROUTINE_SIZE*/
- if (!/*_.VALDATA___V3103*/ curfptr[3102]) /*_.VALDATA___V3103*/ curfptr[3102] = (void*)&cdat->dobj_3097__ROUTINE_SIZE;
-  melt_assertmsg("iniobj checkdiscr dobj_3097__ROUTINE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3097__ROUTINE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3097__ROUTINE_SIZE.obj_hash = 128143544;
-  cdat->dobj_3097__ROUTINE_SIZE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3097__ROUTINE_SIZE));
- 
- /*inimult dtup_3098__ROUTINE_SIZE*/
- /*_.VALTUP___V3109*/ curfptr[3108] = (void*)&cdat->dtup_3098__ROUTINE_SIZE;
-  cdat->dtup_3098__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3098__ROUTINE_SIZE.nbval = 3;
- /*inimult dtup_3099__ROUTINE_SIZE*/
- /*_.VALTUP___V3106*/ curfptr[3105] = (void*)&cdat->dtup_3099__ROUTINE_SIZE;
-  cdat->dtup_3099__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3099__ROUTINE_SIZE.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1701:/ iniobj");
- /*iniobj dobj_3100*/
- if (!/*_.VALDATA___V3105*/ curfptr[3104]) /*_.VALDATA___V3105*/ curfptr[3104] = (void*)&cdat->dobj_3100;
-  melt_assertmsg("iniobj checkdiscr dobj_3100", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3100.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3100.obj_num = 0;
-  cdat->dobj_3100.obj_hash = 714473758;
-  cdat->dobj_3100.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3100));
- 
- /*inistring dstr_3101__melt_routine_si*/
- /*_.VALSTR___V3107*/ curfptr[3106] = (void*)&cdat->dstr_3101__melt_routine_si;
-  cdat->dstr_3101__melt_routine_si.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3101__melt_routine_si.val, "(melt_routine_size((melt_ptr_t)(", sizeof(cdat->dstr_3101__melt_routine_si.val)-1);
- 
- /*inistring dstr_3102__*/
- /*_.VALSTR___V3108*/ curfptr[3107] = (void*)&cdat->dstr_3102__;
-  cdat->dstr_3102__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3102__.val, ")))", sizeof(cdat->dstr_3102__.val)-1);
- 
- /*inistring dstr_3103__ROUTINE_SIZE*/
- /*_.VALSTR___V3104*/ curfptr[3103] = (void*)&cdat->dstr_3103__ROUTINE_SIZE;
-  cdat->dstr_3103__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3103__ROUTINE_SIZE.val, "ROUTINE_SIZE", sizeof(cdat->dstr_3103__ROUTINE_SIZE.val)-1);
- 
- /*iniobj dsym_3104__ROUTINE_NTH*/
- if (!/*_.VALDATA___V3110*/ curfptr[3109]) /*_.VALDATA___V3110*/ curfptr[3109] = (void*)&cdat->dsym_3104__ROUTINE_NTH;
-  melt_assertmsg("iniobj checkdiscr dsym_3104__ROUTINE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3104__ROUTINE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3104__ROUTINE_NTH.obj_hash = 933120487;
-  cdat->dsym_3104__ROUTINE_NTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3104__ROUTINE_NTH));
- 
- /*inistring dstr_3105__ROUTINE_NTH*/
- /*_.VALSTR___V3111*/ curfptr[3110] = (void*)&cdat->dstr_3105__ROUTINE_NTH;
-  cdat->dstr_3105__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3105__ROUTINE_NTH.val, "ROUTINE_NTH", sizeof(cdat->dstr_3105__ROUTINE_NTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1705:/ iniobj");
- /*iniobj dobj_3106__ROUTINE_NTH*/
- if (!/*_.VALDATA___V3112*/ curfptr[3111]) /*_.VALDATA___V3112*/ curfptr[3111] = (void*)&cdat->dobj_3106__ROUTINE_NTH;
-  melt_assertmsg("iniobj checkdiscr dobj_3106__ROUTINE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3106__ROUTINE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3106__ROUTINE_NTH.obj_hash = 720193076;
-  cdat->dobj_3106__ROUTINE_NTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3106__ROUTINE_NTH));
- 
- /*inimult dtup_3107__ROUTINE_NTH*/
- /*_.VALTUP___V3120*/ curfptr[3119] = (void*)&cdat->dtup_3107__ROUTINE_NTH;
-  cdat->dtup_3107__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3107__ROUTINE_NTH.nbval = 5;
- /*inimult dtup_3108__ROUTINE_NTH*/
- /*_.VALTUP___V3116*/ curfptr[3115] = (void*)&cdat->dtup_3108__ROUTINE_NTH;
-  cdat->dtup_3108__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3108__ROUTINE_NTH.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1705:/ iniobj");
- /*iniobj dobj_3109*/
- if (!/*_.VALDATA___V3114*/ curfptr[3113]) /*_.VALDATA___V3114*/ curfptr[3113] = (void*)&cdat->dobj_3109;
-  melt_assertmsg("iniobj checkdiscr dobj_3109", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3109.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3109.obj_num = 0;
-  cdat->dobj_3109.obj_hash = 439116725;
-  cdat->dobj_3109.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3109));
- 
- MELT_LOCATION("warmelt-first.melt:1705:/ iniobj");
- /*iniobj dobj_3110*/
- if (!/*_.VALDATA___V3115*/ curfptr[3114]) /*_.VALDATA___V3115*/ curfptr[3114] = (void*)&cdat->dobj_3110;
-  melt_assertmsg("iniobj checkdiscr dobj_3110", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3110.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3110.obj_num = 1;
-  cdat->dobj_3110.obj_hash = 925485344;
-  cdat->dobj_3110.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3110));
- 
- /*inistring dstr_3111__melt_routine_nt*/
- /*_.VALSTR___V3117*/ curfptr[3116] = (void*)&cdat->dstr_3111__melt_routine_nt;
-  cdat->dstr_3111__melt_routine_nt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3111__melt_routine_nt.val, "(melt_routine_nth((melt_ptr_t)(", sizeof(cdat->dstr_3111__melt_routine_nt.val)-1);
- 
- /*inistring dstr_3112__int_*/
- /*_.VALSTR___V3118*/ curfptr[3117] = (void*)&cdat->dstr_3112__int_;
-  cdat->dstr_3112__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3112__int_.val, "), (int) (", sizeof(cdat->dstr_3112__int_.val)-1);
- 
- /*inistring dstr_3113__*/
- /*_.VALSTR___V3119*/ curfptr[3118] = (void*)&cdat->dstr_3113__;
-  cdat->dstr_3113__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3113__.val, ")))", sizeof(cdat->dstr_3113__.val)-1);
- 
- /*inistring dstr_3114__ROUTINE_NTH*/
- /*_.VALSTR___V3113*/ curfptr[3112] = (void*)&cdat->dstr_3114__ROUTINE_NTH;
-  cdat->dstr_3114__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3114__ROUTINE_NTH.val, "ROUTINE_NTH", sizeof(cdat->dstr_3114__ROUTINE_NTH.val)-1);
- 
- /*iniobj dsym_3115__IS_CLOSURE*/
- if (!/*_.VALDATA___V3121*/ curfptr[3120]) /*_.VALDATA___V3121*/ curfptr[3120] = (void*)&cdat->dsym_3115__IS_CLOSURE;
-  melt_assertmsg("iniobj checkdiscr dsym_3115__IS_CLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3115__IS_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3115__IS_CLOSURE.obj_hash = 140016680;
-  cdat->dsym_3115__IS_CLOSURE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3115__IS_CLOSURE));
- 
- /*inistring dstr_3116__IS_CLOSURE*/
- /*_.VALSTR___V3122*/ curfptr[3121] = (void*)&cdat->dstr_3116__IS_CLOSURE;
-  cdat->dstr_3116__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3116__IS_CLOSURE.val, "IS_CLOSURE", sizeof(cdat->dstr_3116__IS_CLOSURE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1712:/ iniobj");
- /*iniobj dobj_3117__IS_CLOSURE*/
- if (!/*_.VALDATA___V3123*/ curfptr[3122]) /*_.VALDATA___V3123*/ curfptr[3122] = (void*)&cdat->dobj_3117__IS_CLOSURE;
-  melt_assertmsg("iniobj checkdiscr dobj_3117__IS_CLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3117__IS_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3117__IS_CLOSURE.obj_hash = 906793535;
-  cdat->dobj_3117__IS_CLOSURE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3117__IS_CLOSURE));
- 
- /*inimult dtup_3118__IS_CLOSURE*/
- /*_.VALTUP___V3131*/ curfptr[3130] = (void*)&cdat->dtup_3118__IS_CLOSURE;
-  cdat->dtup_3118__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3118__IS_CLOSURE.nbval = 3;
- /*inimult dtup_3119__IS_CLOSURE*/
- /*_.VALTUP___V3128*/ curfptr[3127] = (void*)&cdat->dtup_3119__IS_CLOSURE;
-  cdat->dtup_3119__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3119__IS_CLOSURE.nbval = 1;
- /*iniobj dsym_3120__CLO*/
- if (!/*_.VALDATA___V3126*/ curfptr[3125]) /*_.VALDATA___V3126*/ curfptr[3125] = (void*)&cdat->dsym_3120__CLO;
-  melt_assertmsg("iniobj checkdiscr dsym_3120__CLO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3120__CLO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3120__CLO.obj_hash = 22896036;
-  cdat->dsym_3120__CLO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3120__CLO));
- 
- /*inistring dstr_3121__CLO*/
- /*_.VALSTR___V3127*/ curfptr[3126] = (void*)&cdat->dstr_3121__CLO;
-  cdat->dstr_3121__CLO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3121__CLO.val, "CLO", sizeof(cdat->dstr_3121__CLO.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1712:/ iniobj");
- /*iniobj dobj_3122*/
- if (!/*_.VALDATA___V3125*/ curfptr[3124]) /*_.VALDATA___V3125*/ curfptr[3124] = (void*)&cdat->dobj_3122;
-  melt_assertmsg("iniobj checkdiscr dobj_3122", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3122.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3122.obj_num = 0;
-  cdat->dobj_3122.obj_hash = 451097204;
-  cdat->dobj_3122.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3122));
- 
- /*inistring dstr_3123__melt_magic_disc*/
- /*_.VALSTR___V3129*/ curfptr[3128] = (void*)&cdat->dstr_3123__melt_magic_disc;
-  cdat->dstr_3123__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3123__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3123__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3124__OBMAG_CLOS*/
- /*_.VALSTR___V3130*/ curfptr[3129] = (void*)&cdat->dstr_3124__OBMAG_CLOS;
-  cdat->dstr_3124__OBMAG_CLOS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3124__OBMAG_CLOS.val, ")) == OBMAG_CLOSURE)", sizeof(cdat->dstr_3124__OBMAG_CLOS.val)-1);
- 
- /*inistring dstr_3125__IS_CLOSURE*/
- /*_.VALSTR___V3124*/ curfptr[3123] = (void*)&cdat->dstr_3125__IS_CLOSURE;
-  cdat->dstr_3125__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3125__IS_CLOSURE.val, "IS_CLOSURE", sizeof(cdat->dstr_3125__IS_CLOSURE.val)-1);
- 
- /*iniobj dsym_3126__CLOSURE_SIZE*/
- if (!/*_.VALDATA___V3132*/ curfptr[3131]) /*_.VALDATA___V3132*/ curfptr[3131] = (void*)&cdat->dsym_3126__CLOSURE_SIZE;
-  melt_assertmsg("iniobj checkdiscr dsym_3126__CLOSURE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3126__CLOSURE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3126__CLOSURE_SIZE.obj_hash = 834309582;
-  cdat->dsym_3126__CLOSURE_SIZE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3126__CLOSURE_SIZE));
- 
- /*inistring dstr_3127__CLOSURE_SIZE*/
- /*_.VALSTR___V3133*/ curfptr[3132] = (void*)&cdat->dstr_3127__CLOSURE_SIZE;
-  cdat->dstr_3127__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3127__CLOSURE_SIZE.val, "CLOSURE_SIZE", sizeof(cdat->dstr_3127__CLOSURE_SIZE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1715:/ iniobj");
- /*iniobj dobj_3128__CLOSURE_SIZE*/
- if (!/*_.VALDATA___V3134*/ curfptr[3133]) /*_.VALDATA___V3134*/ curfptr[3133] = (void*)&cdat->dobj_3128__CLOSURE_SIZE;
-  melt_assertmsg("iniobj checkdiscr dobj_3128__CLOSURE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3128__CLOSURE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3128__CLOSURE_SIZE.obj_hash = 613764915;
-  cdat->dobj_3128__CLOSURE_SIZE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3128__CLOSURE_SIZE));
- 
- /*inimult dtup_3129__CLOSURE_SIZE*/
- /*_.VALTUP___V3140*/ curfptr[3139] = (void*)&cdat->dtup_3129__CLOSURE_SIZE;
-  cdat->dtup_3129__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3129__CLOSURE_SIZE.nbval = 3;
- /*inimult dtup_3130__CLOSURE_SIZE*/
- /*_.VALTUP___V3137*/ curfptr[3136] = (void*)&cdat->dtup_3130__CLOSURE_SIZE;
-  cdat->dtup_3130__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3130__CLOSURE_SIZE.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1715:/ iniobj");
- /*iniobj dobj_3131*/
- if (!/*_.VALDATA___V3136*/ curfptr[3135]) /*_.VALDATA___V3136*/ curfptr[3135] = (void*)&cdat->dobj_3131;
-  melt_assertmsg("iniobj checkdiscr dobj_3131", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3131.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3131.obj_num = 0;
-  cdat->dobj_3131.obj_hash = 743199531;
-  cdat->dobj_3131.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3131));
- 
- /*inistring dstr_3132__melt_closure_si*/
- /*_.VALSTR___V3138*/ curfptr[3137] = (void*)&cdat->dstr_3132__melt_closure_si;
-  cdat->dstr_3132__melt_closure_si.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3132__melt_closure_si.val, "(melt_closure_size((melt_ptr_t)(", sizeof(cdat->dstr_3132__melt_closure_si.val)-1);
- 
- /*inistring dstr_3133__*/
- /*_.VALSTR___V3139*/ curfptr[3138] = (void*)&cdat->dstr_3133__;
-  cdat->dstr_3133__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3133__.val, ")))", sizeof(cdat->dstr_3133__.val)-1);
- 
- /*inistring dstr_3134__CLOSURE_SIZE*/
- /*_.VALSTR___V3135*/ curfptr[3134] = (void*)&cdat->dstr_3134__CLOSURE_SIZE;
-  cdat->dstr_3134__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3134__CLOSURE_SIZE.val, "CLOSURE_SIZE", sizeof(cdat->dstr_3134__CLOSURE_SIZE.val)-1);
- 
- /*iniobj dsym_3135__CLOSURE_ROUTINE*/
- if (!/*_.VALDATA___V3141*/ curfptr[3140]) /*_.VALDATA___V3141*/ curfptr[3140] = (void*)&cdat->dsym_3135__CLOSURE_ROUTINE;
-  melt_assertmsg("iniobj checkdiscr dsym_3135__CLOSURE_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3135__CLOSURE_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3135__CLOSURE_ROUTINE.obj_hash = 131570769;
-  cdat->dsym_3135__CLOSURE_ROUTINE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3135__CLOSURE_ROUTINE));
- 
- /*inistring dstr_3136__CLOSURE_ROUTINE*/
- /*_.VALSTR___V3142*/ curfptr[3141] = (void*)&cdat->dstr_3136__CLOSURE_ROUTINE;
-  cdat->dstr_3136__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3136__CLOSURE_ROUTINE.val, "CLOSURE_ROUTINE", sizeof(cdat->dstr_3136__CLOSURE_ROUTINE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1718:/ iniobj");
- /*iniobj dobj_3137__CLOSURE_ROUTINE*/
- if (!/*_.VALDATA___V3143*/ curfptr[3142]) /*_.VALDATA___V3143*/ curfptr[3142] = (void*)&cdat->dobj_3137__CLOSURE_ROUTINE;
-  melt_assertmsg("iniobj checkdiscr dobj_3137__CLOSURE_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3137__CLOSURE_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3137__CLOSURE_ROUTINE.obj_hash = 89834232;
-  cdat->dobj_3137__CLOSURE_ROUTINE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3137__CLOSURE_ROUTINE));
- 
- /*inimult dtup_3138__CLOSURE_ROUTINE*/
- /*_.VALTUP___V3149*/ curfptr[3148] = (void*)&cdat->dtup_3138__CLOSURE_ROUTINE;
-  cdat->dtup_3138__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3138__CLOSURE_ROUTINE.nbval = 3;
- /*inimult dtup_3139__CLOSURE_ROUTINE*/
- /*_.VALTUP___V3146*/ curfptr[3145] = (void*)&cdat->dtup_3139__CLOSURE_ROUTINE;
-  cdat->dtup_3139__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3139__CLOSURE_ROUTINE.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1718:/ iniobj");
- /*iniobj dobj_3140*/
- if (!/*_.VALDATA___V3145*/ curfptr[3144]) /*_.VALDATA___V3145*/ curfptr[3144] = (void*)&cdat->dobj_3140;
-  melt_assertmsg("iniobj checkdiscr dobj_3140", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3140.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3140.obj_num = 0;
-  cdat->dobj_3140.obj_hash = 873849559;
-  cdat->dobj_3140.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3140));
- 
- /*inistring dstr_3141__melt_closure_ro*/
- /*_.VALSTR___V3147*/ curfptr[3146] = (void*)&cdat->dstr_3141__melt_closure_ro;
-  cdat->dstr_3141__melt_closure_ro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3141__melt_closure_ro.val, "(melt_closure_routine((melt_ptr_t)(", sizeof(cdat->dstr_3141__melt_closure_ro.val)-1);
- 
- /*inistring dstr_3142__*/
- /*_.VALSTR___V3148*/ curfptr[3147] = (void*)&cdat->dstr_3142__;
-  cdat->dstr_3142__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3142__.val, ")))", sizeof(cdat->dstr_3142__.val)-1);
- 
- /*inistring dstr_3143__CLOSURE_ROUTINE*/
- /*_.VALSTR___V3144*/ curfptr[3143] = (void*)&cdat->dstr_3143__CLOSURE_ROUTINE;
-  cdat->dstr_3143__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3143__CLOSURE_ROUTINE.val, "CLOSURE_ROUTINE", sizeof(cdat->dstr_3143__CLOSURE_ROUTINE.val)-1);
- 
- /*iniobj dsym_3144__CLOSURE_NTH*/
- if (!/*_.VALDATA___V3150*/ curfptr[3149]) /*_.VALDATA___V3150*/ curfptr[3149] = (void*)&cdat->dsym_3144__CLOSURE_NTH;
-  melt_assertmsg("iniobj checkdiscr dsym_3144__CLOSURE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3144__CLOSURE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3144__CLOSURE_NTH.obj_hash = 523242363;
-  cdat->dsym_3144__CLOSURE_NTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3144__CLOSURE_NTH));
- 
- /*inistring dstr_3145__CLOSURE_NTH*/
- /*_.VALSTR___V3151*/ curfptr[3150] = (void*)&cdat->dstr_3145__CLOSURE_NTH;
-  cdat->dstr_3145__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3145__CLOSURE_NTH.val, "CLOSURE_NTH", sizeof(cdat->dstr_3145__CLOSURE_NTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1721:/ iniobj");
- /*iniobj dobj_3146__CLOSURE_NTH*/
- if (!/*_.VALDATA___V3152*/ curfptr[3151]) /*_.VALDATA___V3152*/ curfptr[3151] = (void*)&cdat->dobj_3146__CLOSURE_NTH;
-  melt_assertmsg("iniobj checkdiscr dobj_3146__CLOSURE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3146__CLOSURE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3146__CLOSURE_NTH.obj_hash = 971057984;
-  cdat->dobj_3146__CLOSURE_NTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3146__CLOSURE_NTH));
- 
- /*inimult dtup_3147__CLOSURE_NTH*/
- /*_.VALTUP___V3160*/ curfptr[3159] = (void*)&cdat->dtup_3147__CLOSURE_NTH;
-  cdat->dtup_3147__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3147__CLOSURE_NTH.nbval = 5;
- /*inimult dtup_3148__CLOSURE_NTH*/
- /*_.VALTUP___V3156*/ curfptr[3155] = (void*)&cdat->dtup_3148__CLOSURE_NTH;
-  cdat->dtup_3148__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3148__CLOSURE_NTH.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1721:/ iniobj");
- /*iniobj dobj_3149*/
- if (!/*_.VALDATA___V3154*/ curfptr[3153]) /*_.VALDATA___V3154*/ curfptr[3153] = (void*)&cdat->dobj_3149;
-  melt_assertmsg("iniobj checkdiscr dobj_3149", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3149.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3149.obj_num = 0;
-  cdat->dobj_3149.obj_hash = 784685748;
-  cdat->dobj_3149.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3149));
- 
- MELT_LOCATION("warmelt-first.melt:1721:/ iniobj");
- /*iniobj dobj_3150*/
- if (!/*_.VALDATA___V3155*/ curfptr[3154]) /*_.VALDATA___V3155*/ curfptr[3154] = (void*)&cdat->dobj_3150;
-  melt_assertmsg("iniobj checkdiscr dobj_3150", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3150.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3150.obj_num = 1;
-  cdat->dobj_3150.obj_hash = 337673085;
-  cdat->dobj_3150.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3150));
- 
- /*inistring dstr_3151__melt_closure_nt*/
- /*_.VALSTR___V3157*/ curfptr[3156] = (void*)&cdat->dstr_3151__melt_closure_nt;
-  cdat->dstr_3151__melt_closure_nt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3151__melt_closure_nt.val, "(melt_closure_nth((melt_ptr_t)(", sizeof(cdat->dstr_3151__melt_closure_nt.val)-1);
- 
- /*inistring dstr_3152__int_*/
- /*_.VALSTR___V3158*/ curfptr[3157] = (void*)&cdat->dstr_3152__int_;
-  cdat->dstr_3152__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3152__int_.val, "), (int)(", sizeof(cdat->dstr_3152__int_.val)-1);
- 
- /*inistring dstr_3153__*/
- /*_.VALSTR___V3159*/ curfptr[3158] = (void*)&cdat->dstr_3153__;
-  cdat->dstr_3153__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3153__.val, ")))", sizeof(cdat->dstr_3153__.val)-1);
- 
- /*inistring dstr_3154__CLOSURE_NTH*/
- /*_.VALSTR___V3153*/ curfptr[3152] = (void*)&cdat->dstr_3154__CLOSURE_NTH;
-  cdat->dstr_3154__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3154__CLOSURE_NTH.val, "CLOSURE_NTH", sizeof(cdat->dstr_3154__CLOSURE_NTH.val)-1);
- 
- /*iniobj dsym_3155__IS_INTEGERBOX*/
- if (!/*_.VALDATA___V3161*/ curfptr[3160]) /*_.VALDATA___V3161*/ curfptr[3160] = (void*)&cdat->dsym_3155__IS_INTEGERBOX;
-  melt_assertmsg("iniobj checkdiscr dsym_3155__IS_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3155__IS_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3155__IS_INTEGERBOX.obj_hash = 847263095;
-  cdat->dsym_3155__IS_INTEGERBOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3155__IS_INTEGERBOX));
- 
- /*inistring dstr_3156__IS_INTEGERBOX*/
- /*_.VALSTR___V3162*/ curfptr[3161] = (void*)&cdat->dstr_3156__IS_INTEGERBOX;
-  cdat->dstr_3156__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3156__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof(cdat->dstr_3156__IS_INTEGERBOX.val)-1);
+  strncpy(cdat->dstr_3064__NULL_.val, " = NULL;  \n    ", sizeof(cdat->dstr_3064__NULL_.val)-1);
+ 
+ /*inistring dstr_3065__NULL_*/
+ /*_.VALSTR___V3071*/ curfptr[3070] = (void*)&cdat->dstr_3065__NULL_;
+  cdat->dstr_3065__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3065__NULL_.val, " = NULL;  }\n", sizeof(cdat->dstr_3065__NULL_.val)-1);
+ 
+ /*inimult dtup_3066__FOREACH_IN_MAPSTRING*/
+ /*_.VALTUP___V3072*/ curfptr[3071] = (void*)&cdat->dtup_3066__FOREACH_IN_MAPSTRING;
+  cdat->dtup_3066__FOREACH_IN_MAPSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3066__FOREACH_IN_MAPSTRING.nbval = 7;
+ /*iniobj dsym_3067__IS_ROUTINE*/
+ if (!/*_.VALDATA___V3073*/ curfptr[3072]) /*_.VALDATA___V3073*/ curfptr[3072] = (void*)&cdat->dsym_3067__IS_ROUTINE;
+  melt_assertmsg("iniobj checkdiscr dsym_3067__IS_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3067__IS_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3067__IS_ROUTINE.obj_hash = 43124802;
+  cdat->dsym_3067__IS_ROUTINE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3067__IS_ROUTINE));
+ 
+ /*inistring dstr_3068__IS_ROUTINE*/
+ /*_.VALSTR___V3074*/ curfptr[3073] = (void*)&cdat->dstr_3068__IS_ROUTINE;
+  cdat->dstr_3068__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3068__IS_ROUTINE.val, "IS_ROUTINE", sizeof(cdat->dstr_3068__IS_ROUTINE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1688:/ iniobj");
+ /*iniobj dobj_3069__IS_ROUTINE*/
+ if (!/*_.VALDATA___V3075*/ curfptr[3074]) /*_.VALDATA___V3075*/ curfptr[3074] = (void*)&cdat->dobj_3069__IS_ROUTINE;
+  melt_assertmsg("iniobj checkdiscr dobj_3069__IS_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3069__IS_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3069__IS_ROUTINE.obj_hash = 976740991;
+  cdat->dobj_3069__IS_ROUTINE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3069__IS_ROUTINE));
+ 
+ /*inimult dtup_3070__IS_ROUTINE*/
+ /*_.VALTUP___V3083*/ curfptr[3082] = (void*)&cdat->dtup_3070__IS_ROUTINE;
+  cdat->dtup_3070__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3070__IS_ROUTINE.nbval = 3;
+ /*inimult dtup_3071__IS_ROUTINE*/
+ /*_.VALTUP___V3080*/ curfptr[3079] = (void*)&cdat->dtup_3071__IS_ROUTINE;
+  cdat->dtup_3071__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3071__IS_ROUTINE.nbval = 1;
+ /*iniobj dsym_3072__ROU*/
+ if (!/*_.VALDATA___V3078*/ curfptr[3077]) /*_.VALDATA___V3078*/ curfptr[3077] = (void*)&cdat->dsym_3072__ROU;
+  melt_assertmsg("iniobj checkdiscr dsym_3072__ROU", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3072__ROU.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3072__ROU.obj_hash = 94524824;
+  cdat->dsym_3072__ROU.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3072__ROU));
+ 
+ /*inistring dstr_3073__ROU*/
+ /*_.VALSTR___V3079*/ curfptr[3078] = (void*)&cdat->dstr_3073__ROU;
+  cdat->dstr_3073__ROU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3073__ROU.val, "ROU", sizeof(cdat->dstr_3073__ROU.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1688:/ iniobj");
+ /*iniobj dobj_3074*/
+ if (!/*_.VALDATA___V3077*/ curfptr[3076]) /*_.VALDATA___V3077*/ curfptr[3076] = (void*)&cdat->dobj_3074;
+  melt_assertmsg("iniobj checkdiscr dobj_3074", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3074.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3074.obj_num = 0;
+  cdat->dobj_3074.obj_hash = 503209135;
+  cdat->dobj_3074.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3074));
+ 
+ /*inistring dstr_3075__melt_magic_disc*/
+ /*_.VALSTR___V3081*/ curfptr[3080] = (void*)&cdat->dstr_3075__melt_magic_disc;
+  cdat->dstr_3075__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3075__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3075__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3076__OBMAG_ROUT*/
+ /*_.VALSTR___V3082*/ curfptr[3081] = (void*)&cdat->dstr_3076__OBMAG_ROUT;
+  cdat->dstr_3076__OBMAG_ROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3076__OBMAG_ROUT.val, ")) == OBMAG_ROUTINE)", sizeof(cdat->dstr_3076__OBMAG_ROUT.val)-1);
+ 
+ /*inistring dstr_3077__IS_ROUTINE*/
+ /*_.VALSTR___V3076*/ curfptr[3075] = (void*)&cdat->dstr_3077__IS_ROUTINE;
+  cdat->dstr_3077__IS_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3077__IS_ROUTINE.val, "IS_ROUTINE", sizeof(cdat->dstr_3077__IS_ROUTINE.val)-1);
+ 
+ /*iniobj dsym_3078__ROUTINE_DESCR*/
+ if (!/*_.VALDATA___V3084*/ curfptr[3083]) /*_.VALDATA___V3084*/ curfptr[3083] = (void*)&cdat->dsym_3078__ROUTINE_DESCR;
+  melt_assertmsg("iniobj checkdiscr dsym_3078__ROUTINE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3078__ROUTINE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3078__ROUTINE_DESCR.obj_hash = 22549524;
+  cdat->dsym_3078__ROUTINE_DESCR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3078__ROUTINE_DESCR));
+ 
+ /*inistring dstr_3079__ROUTINE_DESCR*/
+ /*_.VALSTR___V3085*/ curfptr[3084] = (void*)&cdat->dstr_3079__ROUTINE_DESCR;
+  cdat->dstr_3079__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3079__ROUTINE_DESCR.val, "ROUTINE_DESCR", sizeof(cdat->dstr_3079__ROUTINE_DESCR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1692:/ iniobj");
+ /*iniobj dobj_3080__ROUTINE_DESCR*/
+ if (!/*_.VALDATA___V3086*/ curfptr[3085]) /*_.VALDATA___V3086*/ curfptr[3085] = (void*)&cdat->dobj_3080__ROUTINE_DESCR;
+  melt_assertmsg("iniobj checkdiscr dobj_3080__ROUTINE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3080__ROUTINE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3080__ROUTINE_DESCR.obj_hash = 585629310;
+  cdat->dobj_3080__ROUTINE_DESCR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3080__ROUTINE_DESCR));
+ 
+ /*inimult dtup_3081__ROUTINE_DESCR*/
+ /*_.VALTUP___V3092*/ curfptr[3091] = (void*)&cdat->dtup_3081__ROUTINE_DESCR;
+  cdat->dtup_3081__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3081__ROUTINE_DESCR.nbval = 3;
+ /*inimult dtup_3082__ROUTINE_DESCR*/
+ /*_.VALTUP___V3089*/ curfptr[3088] = (void*)&cdat->dtup_3082__ROUTINE_DESCR;
+  cdat->dtup_3082__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3082__ROUTINE_DESCR.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1692:/ iniobj");
+ /*iniobj dobj_3083*/
+ if (!/*_.VALDATA___V3088*/ curfptr[3087]) /*_.VALDATA___V3088*/ curfptr[3087] = (void*)&cdat->dobj_3083;
+  melt_assertmsg("iniobj checkdiscr dobj_3083", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3083.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3083.obj_num = 0;
+  cdat->dobj_3083.obj_hash = 733999125;
+  cdat->dobj_3083.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3083));
+ 
+ /*inistring dstr_3084__meltgc_new_stri*/
+ /*_.VALSTR___V3090*/ curfptr[3089] = (void*)&cdat->dstr_3084__meltgc_new_stri;
+  cdat->dstr_3084__meltgc_new_stri.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3084__meltgc_new_stri.val, "(meltgc_new_stringdup(melt_routine_descrstr((melt_ptr_t)(", sizeof(cdat->dstr_3084__meltgc_new_stri.val)-1);
+ 
+ /*inistring dstr_3085__*/
+ /*_.VALSTR___V3091*/ curfptr[3090] = (void*)&cdat->dstr_3085__;
+  cdat->dstr_3085__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3085__.val, "))))", sizeof(cdat->dstr_3085__.val)-1);
+ 
+ /*inistring dstr_3086__ROUTINE_DESCR*/
+ /*_.VALSTR___V3087*/ curfptr[3086] = (void*)&cdat->dstr_3086__ROUTINE_DESCR;
+  cdat->dstr_3086__ROUTINE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3086__ROUTINE_DESCR.val, "ROUTINE_DESCR", sizeof(cdat->dstr_3086__ROUTINE_DESCR.val)-1);
+ 
+ /*iniobj dsym_3087__ROUTINE_SIZE*/
+ if (!/*_.VALDATA___V3093*/ curfptr[3092]) /*_.VALDATA___V3093*/ curfptr[3092] = (void*)&cdat->dsym_3087__ROUTINE_SIZE;
+  melt_assertmsg("iniobj checkdiscr dsym_3087__ROUTINE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3087__ROUTINE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3087__ROUTINE_SIZE.obj_hash = 163476722;
+  cdat->dsym_3087__ROUTINE_SIZE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3087__ROUTINE_SIZE));
+ 
+ /*inistring dstr_3088__ROUTINE_SIZE*/
+ /*_.VALSTR___V3094*/ curfptr[3093] = (void*)&cdat->dstr_3088__ROUTINE_SIZE;
+  cdat->dstr_3088__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3088__ROUTINE_SIZE.val, "ROUTINE_SIZE", sizeof(cdat->dstr_3088__ROUTINE_SIZE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1696:/ iniobj");
+ /*iniobj dobj_3089__ROUTINE_SIZE*/
+ if (!/*_.VALDATA___V3095*/ curfptr[3094]) /*_.VALDATA___V3095*/ curfptr[3094] = (void*)&cdat->dobj_3089__ROUTINE_SIZE;
+  melt_assertmsg("iniobj checkdiscr dobj_3089__ROUTINE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3089__ROUTINE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3089__ROUTINE_SIZE.obj_hash = 980937814;
+  cdat->dobj_3089__ROUTINE_SIZE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3089__ROUTINE_SIZE));
+ 
+ /*inimult dtup_3090__ROUTINE_SIZE*/
+ /*_.VALTUP___V3101*/ curfptr[3100] = (void*)&cdat->dtup_3090__ROUTINE_SIZE;
+  cdat->dtup_3090__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3090__ROUTINE_SIZE.nbval = 3;
+ /*inimult dtup_3091__ROUTINE_SIZE*/
+ /*_.VALTUP___V3098*/ curfptr[3097] = (void*)&cdat->dtup_3091__ROUTINE_SIZE;
+  cdat->dtup_3091__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3091__ROUTINE_SIZE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1696:/ iniobj");
+ /*iniobj dobj_3092*/
+ if (!/*_.VALDATA___V3097*/ curfptr[3096]) /*_.VALDATA___V3097*/ curfptr[3096] = (void*)&cdat->dobj_3092;
+  melt_assertmsg("iniobj checkdiscr dobj_3092", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3092.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3092.obj_num = 0;
+  cdat->dobj_3092.obj_hash = 992502817;
+  cdat->dobj_3092.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3092));
+ 
+ /*inistring dstr_3093__melt_routine_si*/
+ /*_.VALSTR___V3099*/ curfptr[3098] = (void*)&cdat->dstr_3093__melt_routine_si;
+  cdat->dstr_3093__melt_routine_si.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3093__melt_routine_si.val, "(melt_routine_size((melt_ptr_t)(", sizeof(cdat->dstr_3093__melt_routine_si.val)-1);
+ 
+ /*inistring dstr_3094__*/
+ /*_.VALSTR___V3100*/ curfptr[3099] = (void*)&cdat->dstr_3094__;
+  cdat->dstr_3094__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3094__.val, ")))", sizeof(cdat->dstr_3094__.val)-1);
+ 
+ /*inistring dstr_3095__ROUTINE_SIZE*/
+ /*_.VALSTR___V3096*/ curfptr[3095] = (void*)&cdat->dstr_3095__ROUTINE_SIZE;
+  cdat->dstr_3095__ROUTINE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3095__ROUTINE_SIZE.val, "ROUTINE_SIZE", sizeof(cdat->dstr_3095__ROUTINE_SIZE.val)-1);
+ 
+ /*iniobj dsym_3096__ROUTINE_NTH*/
+ if (!/*_.VALDATA___V3102*/ curfptr[3101]) /*_.VALDATA___V3102*/ curfptr[3101] = (void*)&cdat->dsym_3096__ROUTINE_NTH;
+  melt_assertmsg("iniobj checkdiscr dsym_3096__ROUTINE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3096__ROUTINE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3096__ROUTINE_NTH.obj_hash = 933120487;
+  cdat->dsym_3096__ROUTINE_NTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3096__ROUTINE_NTH));
+ 
+ /*inistring dstr_3097__ROUTINE_NTH*/
+ /*_.VALSTR___V3103*/ curfptr[3102] = (void*)&cdat->dstr_3097__ROUTINE_NTH;
+  cdat->dstr_3097__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3097__ROUTINE_NTH.val, "ROUTINE_NTH", sizeof(cdat->dstr_3097__ROUTINE_NTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1700:/ iniobj");
+ /*iniobj dobj_3098__ROUTINE_NTH*/
+ if (!/*_.VALDATA___V3104*/ curfptr[3103]) /*_.VALDATA___V3104*/ curfptr[3103] = (void*)&cdat->dobj_3098__ROUTINE_NTH;
+  melt_assertmsg("iniobj checkdiscr dobj_3098__ROUTINE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3098__ROUTINE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3098__ROUTINE_NTH.obj_hash = 113277746;
+  cdat->dobj_3098__ROUTINE_NTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3098__ROUTINE_NTH));
+ 
+ /*inimult dtup_3099__ROUTINE_NTH*/
+ /*_.VALTUP___V3112*/ curfptr[3111] = (void*)&cdat->dtup_3099__ROUTINE_NTH;
+  cdat->dtup_3099__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3099__ROUTINE_NTH.nbval = 5;
+ /*inimult dtup_3100__ROUTINE_NTH*/
+ /*_.VALTUP___V3108*/ curfptr[3107] = (void*)&cdat->dtup_3100__ROUTINE_NTH;
+  cdat->dtup_3100__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3100__ROUTINE_NTH.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1700:/ iniobj");
+ /*iniobj dobj_3101*/
+ if (!/*_.VALDATA___V3106*/ curfptr[3105]) /*_.VALDATA___V3106*/ curfptr[3105] = (void*)&cdat->dobj_3101;
+  melt_assertmsg("iniobj checkdiscr dobj_3101", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3101.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3101.obj_num = 0;
+  cdat->dobj_3101.obj_hash = 813963202;
+  cdat->dobj_3101.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3101));
+ 
+ MELT_LOCATION("warmelt-first.melt:1700:/ iniobj");
+ /*iniobj dobj_3102*/
+ if (!/*_.VALDATA___V3107*/ curfptr[3106]) /*_.VALDATA___V3107*/ curfptr[3106] = (void*)&cdat->dobj_3102;
+  melt_assertmsg("iniobj checkdiscr dobj_3102", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3102.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3102.obj_num = 1;
+  cdat->dobj_3102.obj_hash = 829614260;
+  cdat->dobj_3102.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3102));
+ 
+ /*inistring dstr_3103__melt_routine_nt*/
+ /*_.VALSTR___V3109*/ curfptr[3108] = (void*)&cdat->dstr_3103__melt_routine_nt;
+  cdat->dstr_3103__melt_routine_nt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3103__melt_routine_nt.val, "(melt_routine_nth((melt_ptr_t)(", sizeof(cdat->dstr_3103__melt_routine_nt.val)-1);
+ 
+ /*inistring dstr_3104__int_*/
+ /*_.VALSTR___V3110*/ curfptr[3109] = (void*)&cdat->dstr_3104__int_;
+  cdat->dstr_3104__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3104__int_.val, "), (int) (", sizeof(cdat->dstr_3104__int_.val)-1);
+ 
+ /*inistring dstr_3105__*/
+ /*_.VALSTR___V3111*/ curfptr[3110] = (void*)&cdat->dstr_3105__;
+  cdat->dstr_3105__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3105__.val, ")))", sizeof(cdat->dstr_3105__.val)-1);
+ 
+ /*inistring dstr_3106__ROUTINE_NTH*/
+ /*_.VALSTR___V3105*/ curfptr[3104] = (void*)&cdat->dstr_3106__ROUTINE_NTH;
+  cdat->dstr_3106__ROUTINE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3106__ROUTINE_NTH.val, "ROUTINE_NTH", sizeof(cdat->dstr_3106__ROUTINE_NTH.val)-1);
+ 
+ /*iniobj dsym_3107__IS_CLOSURE*/
+ if (!/*_.VALDATA___V3113*/ curfptr[3112]) /*_.VALDATA___V3113*/ curfptr[3112] = (void*)&cdat->dsym_3107__IS_CLOSURE;
+  melt_assertmsg("iniobj checkdiscr dsym_3107__IS_CLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3107__IS_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3107__IS_CLOSURE.obj_hash = 140016680;
+  cdat->dsym_3107__IS_CLOSURE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3107__IS_CLOSURE));
+ 
+ /*inistring dstr_3108__IS_CLOSURE*/
+ /*_.VALSTR___V3114*/ curfptr[3113] = (void*)&cdat->dstr_3108__IS_CLOSURE;
+  cdat->dstr_3108__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3108__IS_CLOSURE.val, "IS_CLOSURE", sizeof(cdat->dstr_3108__IS_CLOSURE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1707:/ iniobj");
+ /*iniobj dobj_3109__IS_CLOSURE*/
+ if (!/*_.VALDATA___V3115*/ curfptr[3114]) /*_.VALDATA___V3115*/ curfptr[3114] = (void*)&cdat->dobj_3109__IS_CLOSURE;
+  melt_assertmsg("iniobj checkdiscr dobj_3109__IS_CLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3109__IS_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3109__IS_CLOSURE.obj_hash = 168158511;
+  cdat->dobj_3109__IS_CLOSURE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3109__IS_CLOSURE));
+ 
+ /*inimult dtup_3110__IS_CLOSURE*/
+ /*_.VALTUP___V3123*/ curfptr[3122] = (void*)&cdat->dtup_3110__IS_CLOSURE;
+  cdat->dtup_3110__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3110__IS_CLOSURE.nbval = 3;
+ /*inimult dtup_3111__IS_CLOSURE*/
+ /*_.VALTUP___V3120*/ curfptr[3119] = (void*)&cdat->dtup_3111__IS_CLOSURE;
+  cdat->dtup_3111__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3111__IS_CLOSURE.nbval = 1;
+ /*iniobj dsym_3112__CLO*/
+ if (!/*_.VALDATA___V3118*/ curfptr[3117]) /*_.VALDATA___V3118*/ curfptr[3117] = (void*)&cdat->dsym_3112__CLO;
+  melt_assertmsg("iniobj checkdiscr dsym_3112__CLO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3112__CLO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3112__CLO.obj_hash = 22896036;
+  cdat->dsym_3112__CLO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3112__CLO));
+ 
+ /*inistring dstr_3113__CLO*/
+ /*_.VALSTR___V3119*/ curfptr[3118] = (void*)&cdat->dstr_3113__CLO;
+  cdat->dstr_3113__CLO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3113__CLO.val, "CLO", sizeof(cdat->dstr_3113__CLO.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1707:/ iniobj");
+ /*iniobj dobj_3114*/
+ if (!/*_.VALDATA___V3117*/ curfptr[3116]) /*_.VALDATA___V3117*/ curfptr[3116] = (void*)&cdat->dobj_3114;
+  melt_assertmsg("iniobj checkdiscr dobj_3114", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3114.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3114.obj_num = 0;
+  cdat->dobj_3114.obj_hash = 884055180;
+  cdat->dobj_3114.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3114));
+ 
+ /*inistring dstr_3115__melt_magic_disc*/
+ /*_.VALSTR___V3121*/ curfptr[3120] = (void*)&cdat->dstr_3115__melt_magic_disc;
+  cdat->dstr_3115__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3115__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3115__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3116__OBMAG_CLOS*/
+ /*_.VALSTR___V3122*/ curfptr[3121] = (void*)&cdat->dstr_3116__OBMAG_CLOS;
+  cdat->dstr_3116__OBMAG_CLOS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3116__OBMAG_CLOS.val, ")) == OBMAG_CLOSURE)", sizeof(cdat->dstr_3116__OBMAG_CLOS.val)-1);
+ 
+ /*inistring dstr_3117__IS_CLOSURE*/
+ /*_.VALSTR___V3116*/ curfptr[3115] = (void*)&cdat->dstr_3117__IS_CLOSURE;
+  cdat->dstr_3117__IS_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3117__IS_CLOSURE.val, "IS_CLOSURE", sizeof(cdat->dstr_3117__IS_CLOSURE.val)-1);
+ 
+ /*iniobj dsym_3118__CLOSURE_SIZE*/
+ if (!/*_.VALDATA___V3124*/ curfptr[3123]) /*_.VALDATA___V3124*/ curfptr[3123] = (void*)&cdat->dsym_3118__CLOSURE_SIZE;
+  melt_assertmsg("iniobj checkdiscr dsym_3118__CLOSURE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3118__CLOSURE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3118__CLOSURE_SIZE.obj_hash = 834309582;
+  cdat->dsym_3118__CLOSURE_SIZE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3118__CLOSURE_SIZE));
+ 
+ /*inistring dstr_3119__CLOSURE_SIZE*/
+ /*_.VALSTR___V3125*/ curfptr[3124] = (void*)&cdat->dstr_3119__CLOSURE_SIZE;
+  cdat->dstr_3119__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3119__CLOSURE_SIZE.val, "CLOSURE_SIZE", sizeof(cdat->dstr_3119__CLOSURE_SIZE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1710:/ iniobj");
+ /*iniobj dobj_3120__CLOSURE_SIZE*/
+ if (!/*_.VALDATA___V3126*/ curfptr[3125]) /*_.VALDATA___V3126*/ curfptr[3125] = (void*)&cdat->dobj_3120__CLOSURE_SIZE;
+  melt_assertmsg("iniobj checkdiscr dobj_3120__CLOSURE_SIZE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3120__CLOSURE_SIZE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3120__CLOSURE_SIZE.obj_hash = 352614222;
+  cdat->dobj_3120__CLOSURE_SIZE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3120__CLOSURE_SIZE));
+ 
+ /*inimult dtup_3121__CLOSURE_SIZE*/
+ /*_.VALTUP___V3132*/ curfptr[3131] = (void*)&cdat->dtup_3121__CLOSURE_SIZE;
+  cdat->dtup_3121__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3121__CLOSURE_SIZE.nbval = 3;
+ /*inimult dtup_3122__CLOSURE_SIZE*/
+ /*_.VALTUP___V3129*/ curfptr[3128] = (void*)&cdat->dtup_3122__CLOSURE_SIZE;
+  cdat->dtup_3122__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3122__CLOSURE_SIZE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1710:/ iniobj");
+ /*iniobj dobj_3123*/
+ if (!/*_.VALDATA___V3128*/ curfptr[3127]) /*_.VALDATA___V3128*/ curfptr[3127] = (void*)&cdat->dobj_3123;
+  melt_assertmsg("iniobj checkdiscr dobj_3123", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3123.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3123.obj_num = 0;
+  cdat->dobj_3123.obj_hash = 881721340;
+  cdat->dobj_3123.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3123));
+ 
+ /*inistring dstr_3124__melt_closure_si*/
+ /*_.VALSTR___V3130*/ curfptr[3129] = (void*)&cdat->dstr_3124__melt_closure_si;
+  cdat->dstr_3124__melt_closure_si.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3124__melt_closure_si.val, "(melt_closure_size((melt_ptr_t)(", sizeof(cdat->dstr_3124__melt_closure_si.val)-1);
+ 
+ /*inistring dstr_3125__*/
+ /*_.VALSTR___V3131*/ curfptr[3130] = (void*)&cdat->dstr_3125__;
+  cdat->dstr_3125__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3125__.val, ")))", sizeof(cdat->dstr_3125__.val)-1);
+ 
+ /*inistring dstr_3126__CLOSURE_SIZE*/
+ /*_.VALSTR___V3127*/ curfptr[3126] = (void*)&cdat->dstr_3126__CLOSURE_SIZE;
+  cdat->dstr_3126__CLOSURE_SIZE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3126__CLOSURE_SIZE.val, "CLOSURE_SIZE", sizeof(cdat->dstr_3126__CLOSURE_SIZE.val)-1);
+ 
+ /*iniobj dsym_3127__CLOSURE_ROUTINE*/
+ if (!/*_.VALDATA___V3133*/ curfptr[3132]) /*_.VALDATA___V3133*/ curfptr[3132] = (void*)&cdat->dsym_3127__CLOSURE_ROUTINE;
+  melt_assertmsg("iniobj checkdiscr dsym_3127__CLOSURE_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3127__CLOSURE_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3127__CLOSURE_ROUTINE.obj_hash = 131570769;
+  cdat->dsym_3127__CLOSURE_ROUTINE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3127__CLOSURE_ROUTINE));
+ 
+ /*inistring dstr_3128__CLOSURE_ROUTINE*/
+ /*_.VALSTR___V3134*/ curfptr[3133] = (void*)&cdat->dstr_3128__CLOSURE_ROUTINE;
+  cdat->dstr_3128__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3128__CLOSURE_ROUTINE.val, "CLOSURE_ROUTINE", sizeof(cdat->dstr_3128__CLOSURE_ROUTINE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1713:/ iniobj");
+ /*iniobj dobj_3129__CLOSURE_ROUTINE*/
+ if (!/*_.VALDATA___V3135*/ curfptr[3134]) /*_.VALDATA___V3135*/ curfptr[3134] = (void*)&cdat->dobj_3129__CLOSURE_ROUTINE;
+  melt_assertmsg("iniobj checkdiscr dobj_3129__CLOSURE_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3129__CLOSURE_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3129__CLOSURE_ROUTINE.obj_hash = 726978877;
+  cdat->dobj_3129__CLOSURE_ROUTINE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3129__CLOSURE_ROUTINE));
+ 
+ /*inimult dtup_3130__CLOSURE_ROUTINE*/
+ /*_.VALTUP___V3141*/ curfptr[3140] = (void*)&cdat->dtup_3130__CLOSURE_ROUTINE;
+  cdat->dtup_3130__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3130__CLOSURE_ROUTINE.nbval = 3;
+ /*inimult dtup_3131__CLOSURE_ROUTINE*/
+ /*_.VALTUP___V3138*/ curfptr[3137] = (void*)&cdat->dtup_3131__CLOSURE_ROUTINE;
+  cdat->dtup_3131__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3131__CLOSURE_ROUTINE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1713:/ iniobj");
+ /*iniobj dobj_3132*/
+ if (!/*_.VALDATA___V3137*/ curfptr[3136]) /*_.VALDATA___V3137*/ curfptr[3136] = (void*)&cdat->dobj_3132;
+  melt_assertmsg("iniobj checkdiscr dobj_3132", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3132.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3132.obj_num = 0;
+  cdat->dobj_3132.obj_hash = 891716310;
+  cdat->dobj_3132.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3132));
+ 
+ /*inistring dstr_3133__melt_closure_ro*/
+ /*_.VALSTR___V3139*/ curfptr[3138] = (void*)&cdat->dstr_3133__melt_closure_ro;
+  cdat->dstr_3133__melt_closure_ro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3133__melt_closure_ro.val, "(melt_closure_routine((melt_ptr_t)(", sizeof(cdat->dstr_3133__melt_closure_ro.val)-1);
+ 
+ /*inistring dstr_3134__*/
+ /*_.VALSTR___V3140*/ curfptr[3139] = (void*)&cdat->dstr_3134__;
+  cdat->dstr_3134__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3134__.val, ")))", sizeof(cdat->dstr_3134__.val)-1);
+ 
+ /*inistring dstr_3135__CLOSURE_ROUTINE*/
+ /*_.VALSTR___V3136*/ curfptr[3135] = (void*)&cdat->dstr_3135__CLOSURE_ROUTINE;
+  cdat->dstr_3135__CLOSURE_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3135__CLOSURE_ROUTINE.val, "CLOSURE_ROUTINE", sizeof(cdat->dstr_3135__CLOSURE_ROUTINE.val)-1);
+ 
+ /*iniobj dsym_3136__CLOSURE_NTH*/
+ if (!/*_.VALDATA___V3142*/ curfptr[3141]) /*_.VALDATA___V3142*/ curfptr[3141] = (void*)&cdat->dsym_3136__CLOSURE_NTH;
+  melt_assertmsg("iniobj checkdiscr dsym_3136__CLOSURE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3136__CLOSURE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3136__CLOSURE_NTH.obj_hash = 523242363;
+  cdat->dsym_3136__CLOSURE_NTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3136__CLOSURE_NTH));
+ 
+ /*inistring dstr_3137__CLOSURE_NTH*/
+ /*_.VALSTR___V3143*/ curfptr[3142] = (void*)&cdat->dstr_3137__CLOSURE_NTH;
+  cdat->dstr_3137__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3137__CLOSURE_NTH.val, "CLOSURE_NTH", sizeof(cdat->dstr_3137__CLOSURE_NTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1716:/ iniobj");
+ /*iniobj dobj_3138__CLOSURE_NTH*/
+ if (!/*_.VALDATA___V3144*/ curfptr[3143]) /*_.VALDATA___V3144*/ curfptr[3143] = (void*)&cdat->dobj_3138__CLOSURE_NTH;
+  melt_assertmsg("iniobj checkdiscr dobj_3138__CLOSURE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3138__CLOSURE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3138__CLOSURE_NTH.obj_hash = 166901281;
+  cdat->dobj_3138__CLOSURE_NTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3138__CLOSURE_NTH));
+ 
+ /*inimult dtup_3139__CLOSURE_NTH*/
+ /*_.VALTUP___V3152*/ curfptr[3151] = (void*)&cdat->dtup_3139__CLOSURE_NTH;
+  cdat->dtup_3139__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3139__CLOSURE_NTH.nbval = 5;
+ /*inimult dtup_3140__CLOSURE_NTH*/
+ /*_.VALTUP___V3148*/ curfptr[3147] = (void*)&cdat->dtup_3140__CLOSURE_NTH;
+  cdat->dtup_3140__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3140__CLOSURE_NTH.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1716:/ iniobj");
+ /*iniobj dobj_3141*/
+ if (!/*_.VALDATA___V3146*/ curfptr[3145]) /*_.VALDATA___V3146*/ curfptr[3145] = (void*)&cdat->dobj_3141;
+  melt_assertmsg("iniobj checkdiscr dobj_3141", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3141.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3141.obj_num = 0;
+  cdat->dobj_3141.obj_hash = 251957932;
+  cdat->dobj_3141.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3141));
+ 
+ MELT_LOCATION("warmelt-first.melt:1716:/ iniobj");
+ /*iniobj dobj_3142*/
+ if (!/*_.VALDATA___V3147*/ curfptr[3146]) /*_.VALDATA___V3147*/ curfptr[3146] = (void*)&cdat->dobj_3142;
+  melt_assertmsg("iniobj checkdiscr dobj_3142", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3142.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3142.obj_num = 1;
+  cdat->dobj_3142.obj_hash = 885745459;
+  cdat->dobj_3142.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3142));
+ 
+ /*inistring dstr_3143__melt_closure_nt*/
+ /*_.VALSTR___V3149*/ curfptr[3148] = (void*)&cdat->dstr_3143__melt_closure_nt;
+  cdat->dstr_3143__melt_closure_nt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3143__melt_closure_nt.val, "(melt_closure_nth((melt_ptr_t)(", sizeof(cdat->dstr_3143__melt_closure_nt.val)-1);
+ 
+ /*inistring dstr_3144__int_*/
+ /*_.VALSTR___V3150*/ curfptr[3149] = (void*)&cdat->dstr_3144__int_;
+  cdat->dstr_3144__int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3144__int_.val, "), (int)(", sizeof(cdat->dstr_3144__int_.val)-1);
+ 
+ /*inistring dstr_3145__*/
+ /*_.VALSTR___V3151*/ curfptr[3150] = (void*)&cdat->dstr_3145__;
+  cdat->dstr_3145__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3145__.val, ")))", sizeof(cdat->dstr_3145__.val)-1);
+ 
+ /*inistring dstr_3146__CLOSURE_NTH*/
+ /*_.VALSTR___V3145*/ curfptr[3144] = (void*)&cdat->dstr_3146__CLOSURE_NTH;
+  cdat->dstr_3146__CLOSURE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3146__CLOSURE_NTH.val, "CLOSURE_NTH", sizeof(cdat->dstr_3146__CLOSURE_NTH.val)-1);
+ 
+ /*iniobj dsym_3147__IS_INTEGERBOX*/
+ if (!/*_.VALDATA___V3153*/ curfptr[3152]) /*_.VALDATA___V3153*/ curfptr[3152] = (void*)&cdat->dsym_3147__IS_INTEGERBOX;
+  melt_assertmsg("iniobj checkdiscr dsym_3147__IS_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3147__IS_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3147__IS_INTEGERBOX.obj_hash = 847263095;
+  cdat->dsym_3147__IS_INTEGERBOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3147__IS_INTEGERBOX));
+ 
+ /*inistring dstr_3148__IS_INTEGERBOX*/
+ /*_.VALSTR___V3154*/ curfptr[3153] = (void*)&cdat->dstr_3148__IS_INTEGERBOX;
+  cdat->dstr_3148__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3148__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof(cdat->dstr_3148__IS_INTEGERBOX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1722:/ iniobj");
+ /*iniobj dobj_3149__IS_INTEGERBOX*/
+ if (!/*_.VALDATA___V3155*/ curfptr[3154]) /*_.VALDATA___V3155*/ curfptr[3154] = (void*)&cdat->dobj_3149__IS_INTEGERBOX;
+  melt_assertmsg("iniobj checkdiscr dobj_3149__IS_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3149__IS_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3149__IS_INTEGERBOX.obj_hash = 295090448;
+  cdat->dobj_3149__IS_INTEGERBOX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3149__IS_INTEGERBOX));
+ 
+ /*inimult dtup_3150__IS_INTEGERBOX*/
+ /*_.VALTUP___V3163*/ curfptr[3162] = (void*)&cdat->dtup_3150__IS_INTEGERBOX;
+  cdat->dtup_3150__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3150__IS_INTEGERBOX.nbval = 3;
+ /*inimult dtup_3151__IS_INTEGERBOX*/
+ /*_.VALTUP___V3160*/ curfptr[3159] = (void*)&cdat->dtup_3151__IS_INTEGERBOX;
+  cdat->dtup_3151__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3151__IS_INTEGERBOX.nbval = 1;
+ /*iniobj dsym_3152__IB*/
+ if (!/*_.VALDATA___V3158*/ curfptr[3157]) /*_.VALDATA___V3158*/ curfptr[3157] = (void*)&cdat->dsym_3152__IB;
+  melt_assertmsg("iniobj checkdiscr dsym_3152__IB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3152__IB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3152__IB.obj_hash = 79738051;
+  cdat->dsym_3152__IB.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3152__IB));
+ 
+ /*inistring dstr_3153__IB*/
+ /*_.VALSTR___V3159*/ curfptr[3158] = (void*)&cdat->dstr_3153__IB;
+  cdat->dstr_3153__IB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3153__IB.val, "IB", sizeof(cdat->dstr_3153__IB.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1722:/ iniobj");
+ /*iniobj dobj_3154*/
+ if (!/*_.VALDATA___V3157*/ curfptr[3156]) /*_.VALDATA___V3157*/ curfptr[3156] = (void*)&cdat->dobj_3154;
+  melt_assertmsg("iniobj checkdiscr dobj_3154", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3154.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3154.obj_num = 0;
+  cdat->dobj_3154.obj_hash = 425723561;
+  cdat->dobj_3154.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3154));
+ 
+ /*inistring dstr_3155__melt_magic_disc*/
+ /*_.VALSTR___V3161*/ curfptr[3160] = (void*)&cdat->dstr_3155__melt_magic_disc;
+  cdat->dstr_3155__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3155__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3155__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3156__OBMAG_INT_*/
+ /*_.VALSTR___V3162*/ curfptr[3161] = (void*)&cdat->dstr_3156__OBMAG_INT_;
+  cdat->dstr_3156__OBMAG_INT_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3156__OBMAG_INT_.val, ")) == OBMAG_INT)", sizeof(cdat->dstr_3156__OBMAG_INT_.val)-1);
+ 
+ /*inistring dstr_3157__IS_INTEGERBOX*/
+ /*_.VALSTR___V3156*/ curfptr[3155] = (void*)&cdat->dstr_3157__IS_INTEGERBOX;
+  cdat->dstr_3157__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3157__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof(cdat->dstr_3157__IS_INTEGERBOX.val)-1);
+ 
+ /*iniobj dsym_3158__MAKE_INTEGERBOX*/
+ if (!/*_.VALDATA___V3164*/ curfptr[3163]) /*_.VALDATA___V3164*/ curfptr[3163] = (void*)&cdat->dsym_3158__MAKE_INTEGERBOX;
+  melt_assertmsg("iniobj checkdiscr dsym_3158__MAKE_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3158__MAKE_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3158__MAKE_INTEGERBOX.obj_hash = 187015326;
+  cdat->dsym_3158__MAKE_INTEGERBOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3158__MAKE_INTEGERBOX));
+ 
+ /*inistring dstr_3159__MAKE_INTEGERBOX*/
+ /*_.VALSTR___V3165*/ curfptr[3164] = (void*)&cdat->dstr_3159__MAKE_INTEGERBOX;
+  cdat->dstr_3159__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3159__MAKE_INTEGERBOX.val, "MAKE_INTEGERBOX", sizeof(cdat->dstr_3159__MAKE_INTEGERBOX.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1727:/ iniobj");
- /*iniobj dobj_3157__IS_INTEGERBOX*/
- if (!/*_.VALDATA___V3163*/ curfptr[3162]) /*_.VALDATA___V3163*/ curfptr[3162] = (void*)&cdat->dobj_3157__IS_INTEGERBOX;
-  melt_assertmsg("iniobj checkdiscr dobj_3157__IS_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3157__IS_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3157__IS_INTEGERBOX.obj_hash = 336718632;
-  cdat->dobj_3157__IS_INTEGERBOX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3157__IS_INTEGERBOX));
- 
- /*inimult dtup_3158__IS_INTEGERBOX*/
- /*_.VALTUP___V3171*/ curfptr[3170] = (void*)&cdat->dtup_3158__IS_INTEGERBOX;
-  cdat->dtup_3158__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3158__IS_INTEGERBOX.nbval = 3;
- /*inimult dtup_3159__IS_INTEGERBOX*/
- /*_.VALTUP___V3168*/ curfptr[3167] = (void*)&cdat->dtup_3159__IS_INTEGERBOX;
-  cdat->dtup_3159__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3159__IS_INTEGERBOX.nbval = 1;
- /*iniobj dsym_3160__IB*/
- if (!/*_.VALDATA___V3166*/ curfptr[3165]) /*_.VALDATA___V3166*/ curfptr[3165] = (void*)&cdat->dsym_3160__IB;
-  melt_assertmsg("iniobj checkdiscr dsym_3160__IB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3160__IB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3160__IB.obj_hash = 79738051;
-  cdat->dsym_3160__IB.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3160__IB));
- 
- /*inistring dstr_3161__IB*/
- /*_.VALSTR___V3167*/ curfptr[3166] = (void*)&cdat->dstr_3161__IB;
-  cdat->dstr_3161__IB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3161__IB.val, "IB", sizeof(cdat->dstr_3161__IB.val)-1);
+ /*iniobj dobj_3160__MAKE_INTEGERBOX*/
+ if (!/*_.VALDATA___V3166*/ curfptr[3165]) /*_.VALDATA___V3166*/ curfptr[3165] = (void*)&cdat->dobj_3160__MAKE_INTEGERBOX;
+  melt_assertmsg("iniobj checkdiscr dobj_3160__MAKE_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3160__MAKE_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3160__MAKE_INTEGERBOX.obj_hash = 671318149;
+  cdat->dobj_3160__MAKE_INTEGERBOX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3160__MAKE_INTEGERBOX));
+ 
+ /*inimult dtup_3161__MAKE_INTEGERBOX*/
+ /*_.VALTUP___V3174*/ curfptr[3173] = (void*)&cdat->dtup_3161__MAKE_INTEGERBOX;
+  cdat->dtup_3161__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3161__MAKE_INTEGERBOX.nbval = 5;
+ /*inimult dtup_3162__MAKE_INTEGERBOX*/
+ /*_.VALTUP___V3170*/ curfptr[3169] = (void*)&cdat->dtup_3162__MAKE_INTEGERBOX;
+  cdat->dtup_3162__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3162__MAKE_INTEGERBOX.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1727:/ iniobj");
+ /*iniobj dobj_3163*/
+ if (!/*_.VALDATA___V3168*/ curfptr[3167]) /*_.VALDATA___V3168*/ curfptr[3167] = (void*)&cdat->dobj_3163;
+  melt_assertmsg("iniobj checkdiscr dobj_3163", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3163.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3163.obj_num = 0;
+  cdat->dobj_3163.obj_hash = 638775430;
+  cdat->dobj_3163.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3163));
  
  MELT_LOCATION("warmelt-first.melt:1727:/ iniobj");
- /*iniobj dobj_3162*/
- if (!/*_.VALDATA___V3165*/ curfptr[3164]) /*_.VALDATA___V3165*/ curfptr[3164] = (void*)&cdat->dobj_3162;
-  melt_assertmsg("iniobj checkdiscr dobj_3162", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3162.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3162.obj_num = 0;
-  cdat->dobj_3162.obj_hash = 870870293;
-  cdat->dobj_3162.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3162));
- 
- /*inistring dstr_3163__melt_magic_disc*/
- /*_.VALSTR___V3169*/ curfptr[3168] = (void*)&cdat->dstr_3163__melt_magic_disc;
-  cdat->dstr_3163__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3163__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3163__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3164__OBMAG_INT_*/
- /*_.VALSTR___V3170*/ curfptr[3169] = (void*)&cdat->dstr_3164__OBMAG_INT_;
-  cdat->dstr_3164__OBMAG_INT_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3164__OBMAG_INT_.val, ")) == OBMAG_INT)", sizeof(cdat->dstr_3164__OBMAG_INT_.val)-1);
- 
- /*inistring dstr_3165__IS_INTEGERBOX*/
- /*_.VALSTR___V3164*/ curfptr[3163] = (void*)&cdat->dstr_3165__IS_INTEGERBOX;
-  cdat->dstr_3165__IS_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3165__IS_INTEGERBOX.val, "IS_INTEGERBOX", sizeof(cdat->dstr_3165__IS_INTEGERBOX.val)-1);
- 
- /*iniobj dsym_3166__MAKE_INTEGERBOX*/
- if (!/*_.VALDATA___V3172*/ curfptr[3171]) /*_.VALDATA___V3172*/ curfptr[3171] = (void*)&cdat->dsym_3166__MAKE_INTEGERBOX;
-  melt_assertmsg("iniobj checkdiscr dsym_3166__MAKE_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3166__MAKE_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3166__MAKE_INTEGERBOX.obj_hash = 187015326;
-  cdat->dsym_3166__MAKE_INTEGERBOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3166__MAKE_INTEGERBOX));
- 
- /*inistring dstr_3167__MAKE_INTEGERBOX*/
- /*_.VALSTR___V3173*/ curfptr[3172] = (void*)&cdat->dstr_3167__MAKE_INTEGERBOX;
-  cdat->dstr_3167__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3167__MAKE_INTEGERBOX.val, "MAKE_INTEGERBOX", sizeof(cdat->dstr_3167__MAKE_INTEGERBOX.val)-1);
+ /*iniobj dobj_3164*/
+ if (!/*_.VALDATA___V3169*/ curfptr[3168]) /*_.VALDATA___V3169*/ curfptr[3168] = (void*)&cdat->dobj_3164;
+  melt_assertmsg("iniobj checkdiscr dobj_3164", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3164.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3164.obj_num = 1;
+  cdat->dobj_3164.obj_hash = 884616780;
+  cdat->dobj_3164.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3164));
+ 
+ /*inistring dstr_3165__meltgc_new_int_*/
+ /*_.VALSTR___V3171*/ curfptr[3170] = (void*)&cdat->dstr_3165__meltgc_new_int_;
+  cdat->dstr_3165__meltgc_new_int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3165__meltgc_new_int_.val, "(meltgc_new_int((meltobject_ptr_t)(", sizeof(cdat->dstr_3165__meltgc_new_int_.val)-1);
+ 
+ /*inistring dstr_3166__*/
+ /*_.VALSTR___V3172*/ curfptr[3171] = (void*)&cdat->dstr_3166__;
+  cdat->dstr_3166__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3166__.val, "), (", sizeof(cdat->dstr_3166__.val)-1);
+ 
+ /*inistring dstr_3167__*/
+ /*_.VALSTR___V3173*/ curfptr[3172] = (void*)&cdat->dstr_3167__;
+  cdat->dstr_3167__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3167__.val, ")))", sizeof(cdat->dstr_3167__.val)-1);
+ 
+ /*inistring dstr_3168__MAKE_INTEGERBOX*/
+ /*_.VALSTR___V3167*/ curfptr[3166] = (void*)&cdat->dstr_3168__MAKE_INTEGERBOX;
+  cdat->dstr_3168__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3168__MAKE_INTEGERBOX.val, "MAKE_INTEGERBOX", sizeof(cdat->dstr_3168__MAKE_INTEGERBOX.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1732:/ iniobj");
- /*iniobj dobj_3168__MAKE_INTEGERBOX*/
- if (!/*_.VALDATA___V3174*/ curfptr[3173]) /*_.VALDATA___V3174*/ curfptr[3173] = (void*)&cdat->dobj_3168__MAKE_INTEGERBOX;
-  melt_assertmsg("iniobj checkdiscr dobj_3168__MAKE_INTEGERBOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3168__MAKE_INTEGERBOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3168__MAKE_INTEGERBOX.obj_hash = 671773782;
-  cdat->dobj_3168__MAKE_INTEGERBOX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3168__MAKE_INTEGERBOX));
- 
- /*inimult dtup_3169__MAKE_INTEGERBOX*/
- /*_.VALTUP___V3182*/ curfptr[3181] = (void*)&cdat->dtup_3169__MAKE_INTEGERBOX;
-  cdat->dtup_3169__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3169__MAKE_INTEGERBOX.nbval = 5;
- /*inimult dtup_3170__MAKE_INTEGERBOX*/
- /*_.VALTUP___V3178*/ curfptr[3177] = (void*)&cdat->dtup_3170__MAKE_INTEGERBOX;
-  cdat->dtup_3170__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3170__MAKE_INTEGERBOX.nbval = 2;
+ /*iniobj dobj_3169__INTEGERBOX_OF*/
+ if (!/*_.VALDATA___V3175*/ curfptr[3174]) /*_.VALDATA___V3175*/ curfptr[3174] = (void*)&cdat->dobj_3169__INTEGERBOX_OF;
+  melt_assertmsg("iniobj checkdiscr dobj_3169__INTEGERBOX_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_3169__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
+  cdat->dobj_3169__INTEGERBOX_OF.obj_hash = 330250299;
+  cdat->dobj_3169__INTEGERBOX_OF.obj_len = 9;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3169__INTEGERBOX_OF));
+ 
+ /*inistring dstr_3170__INTEGERBOX_OF*/
+ /*_.VALSTR___V3176*/ curfptr[3175] = (void*)&cdat->dstr_3170__INTEGERBOX_OF;
+  cdat->dstr_3170__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3170__INTEGERBOX_OF.val, "INTEGERBOX_OF", sizeof(cdat->dstr_3170__INTEGERBOX_OF.val)-1);
+ 
+ /*inimult dtup_3171__INTEGERBOX_OF*/
+ /*_.VALTUP___V3177*/ curfptr[3176] = (void*)&cdat->dtup_3171__INTEGERBOX_OF;
+  cdat->dtup_3171__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3171__INTEGERBOX_OF.nbval = 0;
+ /*iniobj dsym_3172__BX*/
+ if (!/*_.VALDATA___V3179*/ curfptr[3178]) /*_.VALDATA___V3179*/ curfptr[3178] = (void*)&cdat->dsym_3172__BX;
+  melt_assertmsg("iniobj checkdiscr dsym_3172__BX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3172__BX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3172__BX.obj_hash = 13271632;
+  cdat->dsym_3172__BX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3172__BX));
+ 
+ /*inistring dstr_3173__BX*/
+ /*_.VALSTR___V3180*/ curfptr[3179] = (void*)&cdat->dstr_3173__BX;
+  cdat->dstr_3173__BX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3173__BX.val, "BX", sizeof(cdat->dstr_3173__BX.val)-1);
+ 
  MELT_LOCATION("warmelt-first.melt:1732:/ iniobj");
- /*iniobj dobj_3171*/
- if (!/*_.VALDATA___V3176*/ curfptr[3175]) /*_.VALDATA___V3176*/ curfptr[3175] = (void*)&cdat->dobj_3171;
-  melt_assertmsg("iniobj checkdiscr dobj_3171", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3171.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3171.obj_num = 0;
-  cdat->dobj_3171.obj_hash = 66690345;
-  cdat->dobj_3171.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3171));
+ /*iniobj dobj_3174*/
+ if (!/*_.VALDATA___V3178*/ curfptr[3177]) /*_.VALDATA___V3178*/ curfptr[3177] = (void*)&cdat->dobj_3174;
+  melt_assertmsg("iniobj checkdiscr dobj_3174", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3174.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3174.obj_hash = 597053268;
+  cdat->dobj_3174.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3174));
+ 
+ /*iniobj dsym_3175__ICT*/
+ if (!/*_.VALDATA___V3182*/ curfptr[3181]) /*_.VALDATA___V3182*/ curfptr[3181] = (void*)&cdat->dsym_3175__ICT;
+  melt_assertmsg("iniobj checkdiscr dsym_3175__ICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3175__ICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3175__ICT.obj_hash = 41325652;
+  cdat->dsym_3175__ICT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3175__ICT));
+ 
+ /*inistring dstr_3176__ICT*/
+ /*_.VALSTR___V3183*/ curfptr[3182] = (void*)&cdat->dstr_3176__ICT;
+  cdat->dstr_3176__ICT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3176__ICT.val, "ICT", sizeof(cdat->dstr_3176__ICT.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1732:/ iniobj");
- /*iniobj dobj_3172*/
- if (!/*_.VALDATA___V3177*/ curfptr[3176]) /*_.VALDATA___V3177*/ curfptr[3176] = (void*)&cdat->dobj_3172;
-  melt_assertmsg("iniobj checkdiscr dobj_3172", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3172.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3172.obj_num = 1;
-  cdat->dobj_3172.obj_hash = 244470974;
-  cdat->dobj_3172.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3172));
- 
- /*inistring dstr_3173__meltgc_new_int_*/
- /*_.VALSTR___V3179*/ curfptr[3178] = (void*)&cdat->dstr_3173__meltgc_new_int_;
-  cdat->dstr_3173__meltgc_new_int_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3173__meltgc_new_int_.val, "(meltgc_new_int((meltobject_ptr_t)(", sizeof(cdat->dstr_3173__meltgc_new_int_.val)-1);
- 
- /*inistring dstr_3174__*/
- /*_.VALSTR___V3180*/ curfptr[3179] = (void*)&cdat->dstr_3174__;
-  cdat->dstr_3174__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3174__.val, "), (", sizeof(cdat->dstr_3174__.val)-1);
- 
- /*inistring dstr_3175__*/
- /*_.VALSTR___V3181*/ curfptr[3180] = (void*)&cdat->dstr_3175__;
-  cdat->dstr_3175__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3175__.val, ")))", sizeof(cdat->dstr_3175__.val)-1);
- 
- /*inistring dstr_3176__MAKE_INTEGERBOX*/
- /*_.VALSTR___V3175*/ curfptr[3174] = (void*)&cdat->dstr_3176__MAKE_INTEGERBOX;
-  cdat->dstr_3176__MAKE_INTEGERBOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3176__MAKE_INTEGERBOX.val, "MAKE_INTEGERBOX", sizeof(cdat->dstr_3176__MAKE_INTEGERBOX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1737:/ iniobj");
- /*iniobj dobj_3177__INTEGERBOX_OF*/
- if (!/*_.VALDATA___V3183*/ curfptr[3182]) /*_.VALDATA___V3183*/ curfptr[3182] = (void*)&cdat->dobj_3177__INTEGERBOX_OF;
-  melt_assertmsg("iniobj checkdiscr dobj_3177__INTEGERBOX_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_3177__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CMATCHER))));
-  cdat->dobj_3177__INTEGERBOX_OF.obj_hash = 68202745;
-  cdat->dobj_3177__INTEGERBOX_OF.obj_len = 9;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3177__INTEGERBOX_OF));
- 
- /*inistring dstr_3178__INTEGERBOX_OF*/
- /*_.VALSTR___V3184*/ curfptr[3183] = (void*)&cdat->dstr_3178__INTEGERBOX_OF;
-  cdat->dstr_3178__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3178__INTEGERBOX_OF.val, "INTEGERBOX_OF", sizeof(cdat->dstr_3178__INTEGERBOX_OF.val)-1);
- 
- /*inimult dtup_3179__INTEGERBOX_OF*/
- /*_.VALTUP___V3185*/ curfptr[3184] = (void*)&cdat->dtup_3179__INTEGERBOX_OF;
-  cdat->dtup_3179__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3179__INTEGERBOX_OF.nbval = 0;
- /*iniobj dsym_3180__BX*/
- if (!/*_.VALDATA___V3187*/ curfptr[3186]) /*_.VALDATA___V3187*/ curfptr[3186] = (void*)&cdat->dsym_3180__BX;
-  melt_assertmsg("iniobj checkdiscr dsym_3180__BX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3180__BX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3180__BX.obj_hash = 13271632;
-  cdat->dsym_3180__BX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3180__BX));
- 
- /*inistring dstr_3181__BX*/
- /*_.VALSTR___V3188*/ curfptr[3187] = (void*)&cdat->dstr_3181__BX;
-  cdat->dstr_3181__BX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3181__BX.val, "BX", sizeof(cdat->dstr_3181__BX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1737:/ iniobj");
- /*iniobj dobj_3182*/
- if (!/*_.VALDATA___V3186*/ curfptr[3185]) /*_.VALDATA___V3186*/ curfptr[3185] = (void*)&cdat->dobj_3182;
-  melt_assertmsg("iniobj checkdiscr dobj_3182", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3182.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3182.obj_hash = 755331065;
-  cdat->dobj_3182.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3182));
- 
- /*iniobj dsym_3183__ICT*/
- if (!/*_.VALDATA___V3190*/ curfptr[3189]) /*_.VALDATA___V3190*/ curfptr[3189] = (void*)&cdat->dsym_3183__ICT;
-  melt_assertmsg("iniobj checkdiscr dsym_3183__ICT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3183__ICT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3183__ICT.obj_hash = 41325652;
-  cdat->dsym_3183__ICT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3183__ICT));
- 
- /*inistring dstr_3184__ICT*/
- /*_.VALSTR___V3191*/ curfptr[3190] = (void*)&cdat->dstr_3184__ICT;
-  cdat->dstr_3184__ICT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3184__ICT.val, "ICT", sizeof(cdat->dstr_3184__ICT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1737:/ iniobj");
- /*iniobj dobj_3185*/
- if (!/*_.VALDATA___V3189*/ curfptr[3188]) /*_.VALDATA___V3189*/ curfptr[3188] = (void*)&cdat->dobj_3185;
-  melt_assertmsg("iniobj checkdiscr dobj_3185", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3185.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3185.obj_num = 0;
-  cdat->dobj_3185.obj_hash = 587671946;
-  cdat->dobj_3185.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3185));
- 
- /*inimult dtup_3186__INTEGERBOX_OF*/
- /*_.VALTUP___V3192*/ curfptr[3191] = (void*)&cdat->dtup_3186__INTEGERBOX_OF;
-  cdat->dtup_3186__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3186__INTEGERBOX_OF.nbval = 1;
- /*iniobj dsym_3187__IBOXOF*/
- if (!/*_.VALDATA___V3193*/ curfptr[3192]) /*_.VALDATA___V3193*/ curfptr[3192] = (void*)&cdat->dsym_3187__IBOXOF;
-  melt_assertmsg("iniobj checkdiscr dsym_3187__IBOXOF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3187__IBOXOF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3187__IBOXOF.obj_hash = 928390853;
-  cdat->dsym_3187__IBOXOF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3187__IBOXOF));
- 
- /*inistring dstr_3188__IBOXOF*/
- /*_.VALSTR___V3194*/ curfptr[3193] = (void*)&cdat->dstr_3188__IBOXOF;
-  cdat->dstr_3188__IBOXOF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3188__IBOXOF.val, "IBOXOF", sizeof(cdat->dstr_3188__IBOXOF.val)-1);
- 
- /*inistring dstr_3189__*/
- /*_.VALSTR___V3195*/ curfptr[3194] = (void*)&cdat->dstr_3189__;
-  cdat->dstr_3189__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3189__.val, " /* ", sizeof(cdat->dstr_3189__.val)-1);
- 
- /*inistring dstr_3190__*/
- /*_.VALSTR___V3196*/ curfptr[3195] = (void*)&cdat->dstr_3190__;
-  cdat->dstr_3190__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3190__.val, " ?*/ ", sizeof(cdat->dstr_3190__.val)-1);
- 
- /*inistring dstr_3191__melt_magic_d*/
- /*_.VALSTR___V3197*/ curfptr[3196] = (void*)&cdat->dstr_3191__melt_magic_d;
-  cdat->dstr_3191__melt_magic_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3191__melt_magic_d.val, " && melt_magic_discr(", sizeof(cdat->dstr_3191__melt_magic_d.val)-1);
- 
- /*inistring dstr_3192__OBMAG_INT_*/
- /*_.VALSTR___V3198*/ curfptr[3197] = (void*)&cdat->dstr_3192__OBMAG_INT_;
-  cdat->dstr_3192__OBMAG_INT_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3192__OBMAG_INT_.val, ") == OBMAG_INT ", sizeof(cdat->dstr_3192__OBMAG_INT_.val)-1);
- 
- /*inimult dtup_3193__INTEGERBOX_OF*/
- /*_.VALTUP___V3199*/ curfptr[3198] = (void*)&cdat->dtup_3193__INTEGERBOX_OF;
-  cdat->dtup_3193__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3193__INTEGERBOX_OF.nbval = 7;
- /*inistring dstr_3194__*/
- /*_.VALSTR___V3200*/ curfptr[3199] = (void*)&cdat->dstr_3194__;
-  cdat->dstr_3194__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3194__.val, " /* ", sizeof(cdat->dstr_3194__.val)-1);
- 
- /*inistring dstr_3195__*/
- /*_.VALSTR___V3201*/ curfptr[3200] = (void*)&cdat->dstr_3195__;
-  cdat->dstr_3195__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3195__.val, " !*/ ", sizeof(cdat->dstr_3195__.val)-1);
- 
- /*inistring dstr_3196__struct_melt*/
- /*_.VALSTR___V3202*/ curfptr[3201] = (void*)&cdat->dstr_3196__struct_melt;
-  cdat->dstr_3196__struct_melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3196__struct_melt.val, " = ((struct meltint_st*)", sizeof(cdat->dstr_3196__struct_melt.val)-1);
- 
- /*inistring dstr_3197__val_*/
- /*_.VALSTR___V3203*/ curfptr[3202] = (void*)&cdat->dstr_3197__val_;
-  cdat->dstr_3197__val_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3197__val_.val, ")->val; ", sizeof(cdat->dstr_3197__val_.val)-1);
- 
- /*inimult dtup_3198__INTEGERBOX_OF*/
- /*_.VALTUP___V3204*/ curfptr[3203] = (void*)&cdat->dtup_3198__INTEGERBOX_OF;
-  cdat->dtup_3198__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3198__INTEGERBOX_OF.nbval = 7;
- /*iniobj dsym_3199__IS_BOX*/
- if (!/*_.VALDATA___V3205*/ curfptr[3204]) /*_.VALDATA___V3205*/ curfptr[3204] = (void*)&cdat->dsym_3199__IS_BOX;
-  melt_assertmsg("iniobj checkdiscr dsym_3199__IS_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3199__IS_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3199__IS_BOX.obj_hash = 48923739;
-  cdat->dsym_3199__IS_BOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3199__IS_BOX));
- 
- /*inistring dstr_3200__IS_BOX*/
- /*_.VALSTR___V3206*/ curfptr[3205] = (void*)&cdat->dstr_3200__IS_BOX;
-  cdat->dstr_3200__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3200__IS_BOX.val, "IS_BOX", sizeof(cdat->dstr_3200__IS_BOX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1754:/ iniobj");
- /*iniobj dobj_3201__IS_BOX*/
- if (!/*_.VALDATA___V3207*/ curfptr[3206]) /*_.VALDATA___V3207*/ curfptr[3206] = (void*)&cdat->dobj_3201__IS_BOX;
-  melt_assertmsg("iniobj checkdiscr dobj_3201__IS_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3201__IS_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3201__IS_BOX.obj_hash = 241781299;
-  cdat->dobj_3201__IS_BOX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3201__IS_BOX));
- 
- /*inimult dtup_3202__IS_BOX*/
- /*_.VALTUP___V3215*/ curfptr[3214] = (void*)&cdat->dtup_3202__IS_BOX;
-  cdat->dtup_3202__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3202__IS_BOX.nbval = 3;
- /*inimult dtup_3203__IS_BOX*/
- /*_.VALTUP___V3212*/ curfptr[3211] = (void*)&cdat->dtup_3203__IS_BOX;
-  cdat->dtup_3203__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3203__IS_BOX.nbval = 1;
- /*iniobj dsym_3204__BOX*/
- if (!/*_.VALDATA___V3210*/ curfptr[3209]) /*_.VALDATA___V3210*/ curfptr[3209] = (void*)&cdat->dsym_3204__BOX;
-  melt_assertmsg("iniobj checkdiscr dsym_3204__BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3204__BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3204__BOX.obj_hash = 67748122;
-  cdat->dsym_3204__BOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3204__BOX));
- 
- /*inistring dstr_3205__BOX*/
- /*_.VALSTR___V3211*/ curfptr[3210] = (void*)&cdat->dstr_3205__BOX;
-  cdat->dstr_3205__BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3205__BOX.val, "BOX", sizeof(cdat->dstr_3205__BOX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1754:/ iniobj");
- /*iniobj dobj_3206*/
- if (!/*_.VALDATA___V3209*/ curfptr[3208]) /*_.VALDATA___V3209*/ curfptr[3208] = (void*)&cdat->dobj_3206;
-  melt_assertmsg("iniobj checkdiscr dobj_3206", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3206.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3206.obj_num = 0;
-  cdat->dobj_3206.obj_hash = 364201773;
-  cdat->dobj_3206.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3206));
- 
- /*inistring dstr_3207__melt_magic_disc*/
- /*_.VALSTR___V3213*/ curfptr[3212] = (void*)&cdat->dstr_3207__melt_magic_disc;
-  cdat->dstr_3207__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3207__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3207__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3208__OBMAG_BOX_*/
- /*_.VALSTR___V3214*/ curfptr[3213] = (void*)&cdat->dstr_3208__OBMAG_BOX_;
-  cdat->dstr_3208__OBMAG_BOX_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3208__OBMAG_BOX_.val, ")) == OBMAG_BOX)", sizeof(cdat->dstr_3208__OBMAG_BOX_.val)-1);
- 
- /*inistring dstr_3209__IS_BOX*/
- /*_.VALSTR___V3208*/ curfptr[3207] = (void*)&cdat->dstr_3209__IS_BOX;
-  cdat->dstr_3209__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3209__IS_BOX.val, "IS_BOX", sizeof(cdat->dstr_3209__IS_BOX.val)-1);
- 
- /*iniobj dsym_3210__BOX_CONTENT*/
- if (!/*_.VALDATA___V3216*/ curfptr[3215]) /*_.VALDATA___V3216*/ curfptr[3215] = (void*)&cdat->dsym_3210__BOX_CONTENT;
-  melt_assertmsg("iniobj checkdiscr dsym_3210__BOX_CONTENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3210__BOX_CONTENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3210__BOX_CONTENT.obj_hash = 1063272529;
-  cdat->dsym_3210__BOX_CONTENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3210__BOX_CONTENT));
- 
- /*inistring dstr_3211__BOX_CONTENT*/
- /*_.VALSTR___V3217*/ curfptr[3216] = (void*)&cdat->dstr_3211__BOX_CONTENT;
-  cdat->dstr_3211__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3211__BOX_CONTENT.val, "BOX_CONTENT", sizeof(cdat->dstr_3211__BOX_CONTENT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1758:/ iniobj");
- /*iniobj dobj_3212__BOX_CONTENT*/
- if (!/*_.VALDATA___V3218*/ curfptr[3217]) /*_.VALDATA___V3218*/ curfptr[3217] = (void*)&cdat->dobj_3212__BOX_CONTENT;
-  melt_assertmsg("iniobj checkdiscr dobj_3212__BOX_CONTENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3212__BOX_CONTENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3212__BOX_CONTENT.obj_hash = 784259346;
-  cdat->dobj_3212__BOX_CONTENT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3212__BOX_CONTENT));
- 
- /*inimult dtup_3213__BOX_CONTENT*/
- /*_.VALTUP___V3224*/ curfptr[3223] = (void*)&cdat->dtup_3213__BOX_CONTENT;
-  cdat->dtup_3213__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3213__BOX_CONTENT.nbval = 3;
- /*inimult dtup_3214__BOX_CONTENT*/
- /*_.VALTUP___V3221*/ curfptr[3220] = (void*)&cdat->dtup_3214__BOX_CONTENT;
-  cdat->dtup_3214__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3214__BOX_CONTENT.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1758:/ iniobj");
- /*iniobj dobj_3215*/
- if (!/*_.VALDATA___V3220*/ curfptr[3219]) /*_.VALDATA___V3220*/ curfptr[3219] = (void*)&cdat->dobj_3215;
-  melt_assertmsg("iniobj checkdiscr dobj_3215", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3215.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3215.obj_num = 0;
-  cdat->dobj_3215.obj_hash = 951865635;
-  cdat->dobj_3215.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3215));
- 
- /*inistring dstr_3216__melt_box_content*/
- /*_.VALSTR___V3222*/ curfptr[3221] = (void*)&cdat->dstr_3216__melt_box_content;
-  cdat->dstr_3216__melt_box_content.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3216__melt_box_content.val, "melt_box_content((meltbox_ptr_t)(", sizeof(cdat->dstr_3216__melt_box_content.val)-1);
- 
- /*inistring dstr_3217__*/
- /*_.VALSTR___V3223*/ curfptr[3222] = (void*)&cdat->dstr_3217__;
-  cdat->dstr_3217__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3217__.val, "))", sizeof(cdat->dstr_3217__.val)-1);
- 
- /*inistring dstr_3218__BOX_CONTENT*/
- /*_.VALSTR___V3219*/ curfptr[3218] = (void*)&cdat->dstr_3218__BOX_CONTENT;
-  cdat->dstr_3218__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3218__BOX_CONTENT.val, "BOX_CONTENT", sizeof(cdat->dstr_3218__BOX_CONTENT.val)-1);
- 
- /*iniobj dsym_3219__BOX_PUT*/
- if (!/*_.VALDATA___V3225*/ curfptr[3224]) /*_.VALDATA___V3225*/ curfptr[3224] = (void*)&cdat->dsym_3219__BOX_PUT;
-  melt_assertmsg("iniobj checkdiscr dsym_3219__BOX_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3219__BOX_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3219__BOX_PUT.obj_hash = 968623191;
-  cdat->dsym_3219__BOX_PUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3219__BOX_PUT));
- 
- /*inistring dstr_3220__BOX_PUT*/
- /*_.VALSTR___V3226*/ curfptr[3225] = (void*)&cdat->dstr_3220__BOX_PUT;
-  cdat->dstr_3220__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3220__BOX_PUT.val, "BOX_PUT", sizeof(cdat->dstr_3220__BOX_PUT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1762:/ iniobj");
- /*iniobj dobj_3221__BOX_PUT*/
- if (!/*_.VALDATA___V3227*/ curfptr[3226]) /*_.VALDATA___V3227*/ curfptr[3226] = (void*)&cdat->dobj_3221__BOX_PUT;
-  melt_assertmsg("iniobj checkdiscr dobj_3221__BOX_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3221__BOX_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3221__BOX_PUT.obj_hash = 171947950;
-  cdat->dobj_3221__BOX_PUT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3221__BOX_PUT));
- 
- /*inimult dtup_3222__BOX_PUT*/
- /*_.VALTUP___V3235*/ curfptr[3234] = (void*)&cdat->dtup_3222__BOX_PUT;
-  cdat->dtup_3222__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3222__BOX_PUT.nbval = 5;
- /*inimult dtup_3223__BOX_PUT*/
- /*_.VALTUP___V3231*/ curfptr[3230] = (void*)&cdat->dtup_3223__BOX_PUT;
-  cdat->dtup_3223__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3223__BOX_PUT.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1762:/ iniobj");
- /*iniobj dobj_3224*/
- if (!/*_.VALDATA___V3229*/ curfptr[3228]) /*_.VALDATA___V3229*/ curfptr[3228] = (void*)&cdat->dobj_3224;
-  melt_assertmsg("iniobj checkdiscr dobj_3224", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3224.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3224.obj_num = 0;
-  cdat->dobj_3224.obj_hash = 856064651;
-  cdat->dobj_3224.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3224));
- 
- MELT_LOCATION("warmelt-first.melt:1762:/ iniobj");
- /*iniobj dobj_3225*/
- if (!/*_.VALDATA___V3230*/ curfptr[3229]) /*_.VALDATA___V3230*/ curfptr[3229] = (void*)&cdat->dobj_3225;
-  melt_assertmsg("iniobj checkdiscr dobj_3225", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3225.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3225.obj_num = 1;
-  cdat->dobj_3225.obj_hash = 876255883;
-  cdat->dobj_3225.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3225));
- 
- /*inistring dstr_3226__meltgc_box_put_*/
- /*_.VALSTR___V3232*/ curfptr[3231] = (void*)&cdat->dstr_3226__meltgc_box_put_;
-  cdat->dstr_3226__meltgc_box_put_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3226__meltgc_box_put_.val, "meltgc_box_put((melt_ptr_t)(", sizeof(cdat->dstr_3226__meltgc_box_put_.val)-1);
- 
- /*inistring dstr_3227__melt_ptr_t_*/
- /*_.VALSTR___V3233*/ curfptr[3232] = (void*)&cdat->dstr_3227__melt_ptr_t_;
-  cdat->dstr_3227__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3227__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3227__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3228__*/
- /*_.VALSTR___V3234*/ curfptr[3233] = (void*)&cdat->dstr_3228__;
-  cdat->dstr_3228__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3228__.val, "))", sizeof(cdat->dstr_3228__.val)-1);
- 
- /*inistring dstr_3229__BOX_PUT*/
- /*_.VALSTR___V3228*/ curfptr[3227] = (void*)&cdat->dstr_3229__BOX_PUT;
-  cdat->dstr_3229__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3229__BOX_PUT.val, "BOX_PUT", sizeof(cdat->dstr_3229__BOX_PUT.val)-1);
- 
- /*iniobj dsym_3230__MAKE_BOX*/
- if (!/*_.VALDATA___V3236*/ curfptr[3235]) /*_.VALDATA___V3236*/ curfptr[3235] = (void*)&cdat->dsym_3230__MAKE_BOX;
-  melt_assertmsg("iniobj checkdiscr dsym_3230__MAKE_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3230__MAKE_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3230__MAKE_BOX.obj_hash = 405217422;
-  cdat->dsym_3230__MAKE_BOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3230__MAKE_BOX));
- 
- /*inistring dstr_3231__MAKE_BOX*/
- /*_.VALSTR___V3237*/ curfptr[3236] = (void*)&cdat->dstr_3231__MAKE_BOX;
-  cdat->dstr_3231__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3231__MAKE_BOX.val, "MAKE_BOX", sizeof(cdat->dstr_3231__MAKE_BOX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1766:/ iniobj");
- /*iniobj dobj_3232__MAKE_BOX*/
- if (!/*_.VALDATA___V3238*/ curfptr[3237]) /*_.VALDATA___V3238*/ curfptr[3237] = (void*)&cdat->dobj_3232__MAKE_BOX;
-  melt_assertmsg("iniobj checkdiscr dobj_3232__MAKE_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3232__MAKE_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3232__MAKE_BOX.obj_hash = 228176375;
-  cdat->dobj_3232__MAKE_BOX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3232__MAKE_BOX));
- 
- /*inimult dtup_3233__MAKE_BOX*/
- /*_.VALTUP___V3248*/ curfptr[3247] = (void*)&cdat->dtup_3233__MAKE_BOX;
-  cdat->dtup_3233__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3233__MAKE_BOX.nbval = 5;
- /*inimult dtup_3234__MAKE_BOX*/
- /*_.VALTUP___V3244*/ curfptr[3243] = (void*)&cdat->dtup_3234__MAKE_BOX;
-  cdat->dtup_3234__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3234__MAKE_BOX.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1766:/ iniobj");
- /*iniobj dobj_3235*/
- if (!/*_.VALDATA___V3240*/ curfptr[3239]) /*_.VALDATA___V3240*/ curfptr[3239] = (void*)&cdat->dobj_3235;
-  melt_assertmsg("iniobj checkdiscr dobj_3235", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3235.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3235.obj_num = 0;
-  cdat->dobj_3235.obj_hash = 100472031;
-  cdat->dobj_3235.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3235));
- 
- /*iniobj dsym_3236__VALB*/
- if (!/*_.VALDATA___V3242*/ curfptr[3241]) /*_.VALDATA___V3242*/ curfptr[3241] = (void*)&cdat->dsym_3236__VALB;
-  melt_assertmsg("iniobj checkdiscr dsym_3236__VALB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3236__VALB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3236__VALB.obj_hash = 88728051;
-  cdat->dsym_3236__VALB.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3236__VALB));
- 
- /*inistring dstr_3237__VALB*/
- /*_.VALSTR___V3243*/ curfptr[3242] = (void*)&cdat->dstr_3237__VALB;
-  cdat->dstr_3237__VALB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3237__VALB.val, "VALB", sizeof(cdat->dstr_3237__VALB.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1766:/ iniobj");
- /*iniobj dobj_3238*/
- if (!/*_.VALDATA___V3241*/ curfptr[3240]) /*_.VALDATA___V3241*/ curfptr[3240] = (void*)&cdat->dobj_3238;
-  melt_assertmsg("iniobj checkdiscr dobj_3238", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3238.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3238.obj_num = 1;
-  cdat->dobj_3238.obj_hash = 1021158943;
-  cdat->dobj_3238.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3238));
- 
- /*inistring dstr_3239__meltgc_new_box_*/
- /*_.VALSTR___V3245*/ curfptr[3244] = (void*)&cdat->dstr_3239__meltgc_new_box_;
-  cdat->dstr_3239__meltgc_new_box_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3239__meltgc_new_box_.val, "meltgc_new_box((meltobject_ptr_t)(", sizeof(cdat->dstr_3239__meltgc_new_box_.val)-1);
- 
- /*inistring dstr_3240__melt_ptr_t_*/
- /*_.VALSTR___V3246*/ curfptr[3245] = (void*)&cdat->dstr_3240__melt_ptr_t_;
-  cdat->dstr_3240__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3240__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3240__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3241__*/
- /*_.VALSTR___V3247*/ curfptr[3246] = (void*)&cdat->dstr_3241__;
-  cdat->dstr_3241__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3241__.val, "))", sizeof(cdat->dstr_3241__.val)-1);
- 
- /*inistring dstr_3242__MAKE_BOX*/
- /*_.VALSTR___V3239*/ curfptr[3238] = (void*)&cdat->dstr_3242__MAKE_BOX;
-  cdat->dstr_3242__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3242__MAKE_BOX.val, "MAKE_BOX", sizeof(cdat->dstr_3242__MAKE_BOX.val)-1);
- 
- /*iniobj dsym_3243__IS_LIST*/
- if (!/*_.VALDATA___V3249*/ curfptr[3248]) /*_.VALDATA___V3249*/ curfptr[3248] = (void*)&cdat->dsym_3243__IS_LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_3243__IS_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3243__IS_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3243__IS_LIST.obj_hash = 702154144;
-  cdat->dsym_3243__IS_LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3243__IS_LIST));
- 
- /*inistring dstr_3244__IS_LIST*/
- /*_.VALSTR___V3250*/ curfptr[3249] = (void*)&cdat->dstr_3244__IS_LIST;
-  cdat->dstr_3244__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3244__IS_LIST.val, "IS_LIST", sizeof(cdat->dstr_3244__IS_LIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1772:/ iniobj");
- /*iniobj dobj_3245__IS_LIST*/
- if (!/*_.VALDATA___V3251*/ curfptr[3250]) /*_.VALDATA___V3251*/ curfptr[3250] = (void*)&cdat->dobj_3245__IS_LIST;
-  melt_assertmsg("iniobj checkdiscr dobj_3245__IS_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3245__IS_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3245__IS_LIST.obj_hash = 983108128;
-  cdat->dobj_3245__IS_LIST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3245__IS_LIST));
- 
- /*inimult dtup_3246__IS_LIST*/
- /*_.VALTUP___V3259*/ curfptr[3258] = (void*)&cdat->dtup_3246__IS_LIST;
-  cdat->dtup_3246__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3246__IS_LIST.nbval = 3;
- /*inimult dtup_3247__IS_LIST*/
- /*_.VALTUP___V3256*/ curfptr[3255] = (void*)&cdat->dtup_3247__IS_LIST;
-  cdat->dtup_3247__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3247__IS_LIST.nbval = 1;
- /*iniobj dsym_3248__LI*/
- if (!/*_.VALDATA___V3254*/ curfptr[3253]) /*_.VALDATA___V3254*/ curfptr[3253] = (void*)&cdat->dsym_3248__LI;
-  melt_assertmsg("iniobj checkdiscr dsym_3248__LI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3248__LI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3248__LI.obj_hash = 120191520;
-  cdat->dsym_3248__LI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3248__LI));
- 
- /*inistring dstr_3249__LI*/
- /*_.VALSTR___V3255*/ curfptr[3254] = (void*)&cdat->dstr_3249__LI;
-  cdat->dstr_3249__LI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3249__LI.val, "LI", sizeof(cdat->dstr_3249__LI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1772:/ iniobj");
- /*iniobj dobj_3250*/
- if (!/*_.VALDATA___V3253*/ curfptr[3252]) /*_.VALDATA___V3253*/ curfptr[3252] = (void*)&cdat->dobj_3250;
-  melt_assertmsg("iniobj checkdiscr dobj_3250", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3250.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3250.obj_num = 0;
-  cdat->dobj_3250.obj_hash = 805416348;
-  cdat->dobj_3250.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3250));
- 
- /*inistring dstr_3251__melt_magic_disc*/
- /*_.VALSTR___V3257*/ curfptr[3256] = (void*)&cdat->dstr_3251__melt_magic_disc;
-  cdat->dstr_3251__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3251__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3251__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3252__OBMAG_LIST*/
- /*_.VALSTR___V3258*/ curfptr[3257] = (void*)&cdat->dstr_3252__OBMAG_LIST;
-  cdat->dstr_3252__OBMAG_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3252__OBMAG_LIST.val, ")) == OBMAG_LIST)", sizeof(cdat->dstr_3252__OBMAG_LIST.val)-1);
- 
- /*inistring dstr_3253__IS_LIST*/
- /*_.VALSTR___V3252*/ curfptr[3251] = (void*)&cdat->dstr_3253__IS_LIST;
-  cdat->dstr_3253__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3253__IS_LIST.val, "IS_LIST", sizeof(cdat->dstr_3253__IS_LIST.val)-1);
- 
- /*iniobj dsym_3254__IS_LIST_OR_NULL*/
- if (!/*_.VALDATA___V3260*/ curfptr[3259]) /*_.VALDATA___V3260*/ curfptr[3259] = (void*)&cdat->dsym_3254__IS_LIST_OR_NULL;
-  melt_assertmsg("iniobj checkdiscr dsym_3254__IS_LIST_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3254__IS_LIST_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3254__IS_LIST_OR_NULL.obj_hash = 603469204;
-  cdat->dsym_3254__IS_LIST_OR_NULL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3254__IS_LIST_OR_NULL));
+ /*iniobj dobj_3177*/
+ if (!/*_.VALDATA___V3181*/ curfptr[3180]) /*_.VALDATA___V3181*/ curfptr[3180] = (void*)&cdat->dobj_3177;
+  melt_assertmsg("iniobj checkdiscr dobj_3177", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3177.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3177.obj_num = 0;
+  cdat->dobj_3177.obj_hash = 1066882624;
+  cdat->dobj_3177.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3177));
+ 
+ /*inimult dtup_3178__INTEGERBOX_OF*/
+ /*_.VALTUP___V3184*/ curfptr[3183] = (void*)&cdat->dtup_3178__INTEGERBOX_OF;
+  cdat->dtup_3178__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3178__INTEGERBOX_OF.nbval = 1;
+ /*iniobj dsym_3179__IBOXOF*/
+ if (!/*_.VALDATA___V3185*/ curfptr[3184]) /*_.VALDATA___V3185*/ curfptr[3184] = (void*)&cdat->dsym_3179__IBOXOF;
+  melt_assertmsg("iniobj checkdiscr dsym_3179__IBOXOF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3179__IBOXOF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3179__IBOXOF.obj_hash = 928390853;
+  cdat->dsym_3179__IBOXOF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3179__IBOXOF));
+ 
+ /*inistring dstr_3180__IBOXOF*/
+ /*_.VALSTR___V3186*/ curfptr[3185] = (void*)&cdat->dstr_3180__IBOXOF;
+  cdat->dstr_3180__IBOXOF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3180__IBOXOF.val, "IBOXOF", sizeof(cdat->dstr_3180__IBOXOF.val)-1);
+ 
+ /*inistring dstr_3181__*/
+ /*_.VALSTR___V3187*/ curfptr[3186] = (void*)&cdat->dstr_3181__;
+  cdat->dstr_3181__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3181__.val, " /* ", sizeof(cdat->dstr_3181__.val)-1);
+ 
+ /*inistring dstr_3182__*/
+ /*_.VALSTR___V3188*/ curfptr[3187] = (void*)&cdat->dstr_3182__;
+  cdat->dstr_3182__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3182__.val, " ?*/ ", sizeof(cdat->dstr_3182__.val)-1);
+ 
+ /*inistring dstr_3183__melt_magic_d*/
+ /*_.VALSTR___V3189*/ curfptr[3188] = (void*)&cdat->dstr_3183__melt_magic_d;
+  cdat->dstr_3183__melt_magic_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3183__melt_magic_d.val, " && melt_magic_discr(", sizeof(cdat->dstr_3183__melt_magic_d.val)-1);
+ 
+ /*inistring dstr_3184__OBMAG_INT_*/
+ /*_.VALSTR___V3190*/ curfptr[3189] = (void*)&cdat->dstr_3184__OBMAG_INT_;
+  cdat->dstr_3184__OBMAG_INT_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3184__OBMAG_INT_.val, ") == OBMAG_INT ", sizeof(cdat->dstr_3184__OBMAG_INT_.val)-1);
+ 
+ /*inimult dtup_3185__INTEGERBOX_OF*/
+ /*_.VALTUP___V3191*/ curfptr[3190] = (void*)&cdat->dtup_3185__INTEGERBOX_OF;
+  cdat->dtup_3185__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3185__INTEGERBOX_OF.nbval = 7;
+ /*inistring dstr_3186__*/
+ /*_.VALSTR___V3192*/ curfptr[3191] = (void*)&cdat->dstr_3186__;
+  cdat->dstr_3186__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3186__.val, " /* ", sizeof(cdat->dstr_3186__.val)-1);
+ 
+ /*inistring dstr_3187__*/
+ /*_.VALSTR___V3193*/ curfptr[3192] = (void*)&cdat->dstr_3187__;
+  cdat->dstr_3187__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3187__.val, " !*/ ", sizeof(cdat->dstr_3187__.val)-1);
+ 
+ /*inistring dstr_3188__struct_melt*/
+ /*_.VALSTR___V3194*/ curfptr[3193] = (void*)&cdat->dstr_3188__struct_melt;
+  cdat->dstr_3188__struct_melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3188__struct_melt.val, " = ((struct meltint_st*)", sizeof(cdat->dstr_3188__struct_melt.val)-1);
+ 
+ /*inistring dstr_3189__val_*/
+ /*_.VALSTR___V3195*/ curfptr[3194] = (void*)&cdat->dstr_3189__val_;
+  cdat->dstr_3189__val_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3189__val_.val, ")->val; ", sizeof(cdat->dstr_3189__val_.val)-1);
+ 
+ /*inimult dtup_3190__INTEGERBOX_OF*/
+ /*_.VALTUP___V3196*/ curfptr[3195] = (void*)&cdat->dtup_3190__INTEGERBOX_OF;
+  cdat->dtup_3190__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3190__INTEGERBOX_OF.nbval = 7;
+ /*iniobj dsym_3191__IS_BOX*/
+ if (!/*_.VALDATA___V3197*/ curfptr[3196]) /*_.VALDATA___V3197*/ curfptr[3196] = (void*)&cdat->dsym_3191__IS_BOX;
+  melt_assertmsg("iniobj checkdiscr dsym_3191__IS_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3191__IS_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3191__IS_BOX.obj_hash = 48923739;
+  cdat->dsym_3191__IS_BOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3191__IS_BOX));
+ 
+ /*inistring dstr_3192__IS_BOX*/
+ /*_.VALSTR___V3198*/ curfptr[3197] = (void*)&cdat->dstr_3192__IS_BOX;
+  cdat->dstr_3192__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3192__IS_BOX.val, "IS_BOX", sizeof(cdat->dstr_3192__IS_BOX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1749:/ iniobj");
+ /*iniobj dobj_3193__IS_BOX*/
+ if (!/*_.VALDATA___V3199*/ curfptr[3198]) /*_.VALDATA___V3199*/ curfptr[3198] = (void*)&cdat->dobj_3193__IS_BOX;
+  melt_assertmsg("iniobj checkdiscr dobj_3193__IS_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3193__IS_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3193__IS_BOX.obj_hash = 177138494;
+  cdat->dobj_3193__IS_BOX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3193__IS_BOX));
+ 
+ /*inimult dtup_3194__IS_BOX*/
+ /*_.VALTUP___V3207*/ curfptr[3206] = (void*)&cdat->dtup_3194__IS_BOX;
+  cdat->dtup_3194__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3194__IS_BOX.nbval = 3;
+ /*inimult dtup_3195__IS_BOX*/
+ /*_.VALTUP___V3204*/ curfptr[3203] = (void*)&cdat->dtup_3195__IS_BOX;
+  cdat->dtup_3195__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3195__IS_BOX.nbval = 1;
+ /*iniobj dsym_3196__BOX*/
+ if (!/*_.VALDATA___V3202*/ curfptr[3201]) /*_.VALDATA___V3202*/ curfptr[3201] = (void*)&cdat->dsym_3196__BOX;
+  melt_assertmsg("iniobj checkdiscr dsym_3196__BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3196__BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3196__BOX.obj_hash = 67748122;
+  cdat->dsym_3196__BOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3196__BOX));
+ 
+ /*inistring dstr_3197__BOX*/
+ /*_.VALSTR___V3203*/ curfptr[3202] = (void*)&cdat->dstr_3197__BOX;
+  cdat->dstr_3197__BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3197__BOX.val, "BOX", sizeof(cdat->dstr_3197__BOX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1749:/ iniobj");
+ /*iniobj dobj_3198*/
+ if (!/*_.VALDATA___V3201*/ curfptr[3200]) /*_.VALDATA___V3201*/ curfptr[3200] = (void*)&cdat->dobj_3198;
+  melt_assertmsg("iniobj checkdiscr dobj_3198", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3198.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3198.obj_num = 0;
+  cdat->dobj_3198.obj_hash = 286139843;
+  cdat->dobj_3198.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3198));
+ 
+ /*inistring dstr_3199__melt_magic_disc*/
+ /*_.VALSTR___V3205*/ curfptr[3204] = (void*)&cdat->dstr_3199__melt_magic_disc;
+  cdat->dstr_3199__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3199__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3199__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3200__OBMAG_BOX_*/
+ /*_.VALSTR___V3206*/ curfptr[3205] = (void*)&cdat->dstr_3200__OBMAG_BOX_;
+  cdat->dstr_3200__OBMAG_BOX_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3200__OBMAG_BOX_.val, ")) == OBMAG_BOX)", sizeof(cdat->dstr_3200__OBMAG_BOX_.val)-1);
+ 
+ /*inistring dstr_3201__IS_BOX*/
+ /*_.VALSTR___V3200*/ curfptr[3199] = (void*)&cdat->dstr_3201__IS_BOX;
+  cdat->dstr_3201__IS_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3201__IS_BOX.val, "IS_BOX", sizeof(cdat->dstr_3201__IS_BOX.val)-1);
+ 
+ /*iniobj dsym_3202__BOX_CONTENT*/
+ if (!/*_.VALDATA___V3208*/ curfptr[3207]) /*_.VALDATA___V3208*/ curfptr[3207] = (void*)&cdat->dsym_3202__BOX_CONTENT;
+  melt_assertmsg("iniobj checkdiscr dsym_3202__BOX_CONTENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3202__BOX_CONTENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3202__BOX_CONTENT.obj_hash = 1063272529;
+  cdat->dsym_3202__BOX_CONTENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3202__BOX_CONTENT));
+ 
+ /*inistring dstr_3203__BOX_CONTENT*/
+ /*_.VALSTR___V3209*/ curfptr[3208] = (void*)&cdat->dstr_3203__BOX_CONTENT;
+  cdat->dstr_3203__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3203__BOX_CONTENT.val, "BOX_CONTENT", sizeof(cdat->dstr_3203__BOX_CONTENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1753:/ iniobj");
+ /*iniobj dobj_3204__BOX_CONTENT*/
+ if (!/*_.VALDATA___V3210*/ curfptr[3209]) /*_.VALDATA___V3210*/ curfptr[3209] = (void*)&cdat->dobj_3204__BOX_CONTENT;
+  melt_assertmsg("iniobj checkdiscr dobj_3204__BOX_CONTENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3204__BOX_CONTENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3204__BOX_CONTENT.obj_hash = 444182434;
+  cdat->dobj_3204__BOX_CONTENT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3204__BOX_CONTENT));
+ 
+ /*inimult dtup_3205__BOX_CONTENT*/
+ /*_.VALTUP___V3216*/ curfptr[3215] = (void*)&cdat->dtup_3205__BOX_CONTENT;
+  cdat->dtup_3205__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3205__BOX_CONTENT.nbval = 3;
+ /*inimult dtup_3206__BOX_CONTENT*/
+ /*_.VALTUP___V3213*/ curfptr[3212] = (void*)&cdat->dtup_3206__BOX_CONTENT;
+  cdat->dtup_3206__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3206__BOX_CONTENT.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1753:/ iniobj");
+ /*iniobj dobj_3207*/
+ if (!/*_.VALDATA___V3212*/ curfptr[3211]) /*_.VALDATA___V3212*/ curfptr[3211] = (void*)&cdat->dobj_3207;
+  melt_assertmsg("iniobj checkdiscr dobj_3207", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3207.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3207.obj_num = 0;
+  cdat->dobj_3207.obj_hash = 828438097;
+  cdat->dobj_3207.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3207));
+ 
+ /*inistring dstr_3208__melt_box_content*/
+ /*_.VALSTR___V3214*/ curfptr[3213] = (void*)&cdat->dstr_3208__melt_box_content;
+  cdat->dstr_3208__melt_box_content.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3208__melt_box_content.val, "melt_box_content((meltbox_ptr_t)(", sizeof(cdat->dstr_3208__melt_box_content.val)-1);
+ 
+ /*inistring dstr_3209__*/
+ /*_.VALSTR___V3215*/ curfptr[3214] = (void*)&cdat->dstr_3209__;
+  cdat->dstr_3209__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3209__.val, "))", sizeof(cdat->dstr_3209__.val)-1);
+ 
+ /*inistring dstr_3210__BOX_CONTENT*/
+ /*_.VALSTR___V3211*/ curfptr[3210] = (void*)&cdat->dstr_3210__BOX_CONTENT;
+  cdat->dstr_3210__BOX_CONTENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3210__BOX_CONTENT.val, "BOX_CONTENT", sizeof(cdat->dstr_3210__BOX_CONTENT.val)-1);
+ 
+ /*iniobj dsym_3211__BOX_PUT*/
+ if (!/*_.VALDATA___V3217*/ curfptr[3216]) /*_.VALDATA___V3217*/ curfptr[3216] = (void*)&cdat->dsym_3211__BOX_PUT;
+  melt_assertmsg("iniobj checkdiscr dsym_3211__BOX_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3211__BOX_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3211__BOX_PUT.obj_hash = 968623191;
+  cdat->dsym_3211__BOX_PUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3211__BOX_PUT));
+ 
+ /*inistring dstr_3212__BOX_PUT*/
+ /*_.VALSTR___V3218*/ curfptr[3217] = (void*)&cdat->dstr_3212__BOX_PUT;
+  cdat->dstr_3212__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3212__BOX_PUT.val, "BOX_PUT", sizeof(cdat->dstr_3212__BOX_PUT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1757:/ iniobj");
+ /*iniobj dobj_3213__BOX_PUT*/
+ if (!/*_.VALDATA___V3219*/ curfptr[3218]) /*_.VALDATA___V3219*/ curfptr[3218] = (void*)&cdat->dobj_3213__BOX_PUT;
+  melt_assertmsg("iniobj checkdiscr dobj_3213__BOX_PUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3213__BOX_PUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3213__BOX_PUT.obj_hash = 56765121;
+  cdat->dobj_3213__BOX_PUT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3213__BOX_PUT));
+ 
+ /*inimult dtup_3214__BOX_PUT*/
+ /*_.VALTUP___V3227*/ curfptr[3226] = (void*)&cdat->dtup_3214__BOX_PUT;
+  cdat->dtup_3214__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3214__BOX_PUT.nbval = 5;
+ /*inimult dtup_3215__BOX_PUT*/
+ /*_.VALTUP___V3223*/ curfptr[3222] = (void*)&cdat->dtup_3215__BOX_PUT;
+  cdat->dtup_3215__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3215__BOX_PUT.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1757:/ iniobj");
+ /*iniobj dobj_3216*/
+ if (!/*_.VALDATA___V3221*/ curfptr[3220]) /*_.VALDATA___V3221*/ curfptr[3220] = (void*)&cdat->dobj_3216;
+  melt_assertmsg("iniobj checkdiscr dobj_3216", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3216.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3216.obj_num = 0;
+  cdat->dobj_3216.obj_hash = 641793017;
+  cdat->dobj_3216.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3216));
+ 
+ MELT_LOCATION("warmelt-first.melt:1757:/ iniobj");
+ /*iniobj dobj_3217*/
+ if (!/*_.VALDATA___V3222*/ curfptr[3221]) /*_.VALDATA___V3222*/ curfptr[3221] = (void*)&cdat->dobj_3217;
+  melt_assertmsg("iniobj checkdiscr dobj_3217", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3217.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3217.obj_num = 1;
+  cdat->dobj_3217.obj_hash = 736584369;
+  cdat->dobj_3217.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3217));
+ 
+ /*inistring dstr_3218__meltgc_box_put_*/
+ /*_.VALSTR___V3224*/ curfptr[3223] = (void*)&cdat->dstr_3218__meltgc_box_put_;
+  cdat->dstr_3218__meltgc_box_put_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3218__meltgc_box_put_.val, "meltgc_box_put((melt_ptr_t)(", sizeof(cdat->dstr_3218__meltgc_box_put_.val)-1);
+ 
+ /*inistring dstr_3219__melt_ptr_t_*/
+ /*_.VALSTR___V3225*/ curfptr[3224] = (void*)&cdat->dstr_3219__melt_ptr_t_;
+  cdat->dstr_3219__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3219__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3219__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3220__*/
+ /*_.VALSTR___V3226*/ curfptr[3225] = (void*)&cdat->dstr_3220__;
+  cdat->dstr_3220__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3220__.val, "))", sizeof(cdat->dstr_3220__.val)-1);
+ 
+ /*inistring dstr_3221__BOX_PUT*/
+ /*_.VALSTR___V3220*/ curfptr[3219] = (void*)&cdat->dstr_3221__BOX_PUT;
+  cdat->dstr_3221__BOX_PUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3221__BOX_PUT.val, "BOX_PUT", sizeof(cdat->dstr_3221__BOX_PUT.val)-1);
+ 
+ /*iniobj dsym_3222__MAKE_BOX*/
+ if (!/*_.VALDATA___V3228*/ curfptr[3227]) /*_.VALDATA___V3228*/ curfptr[3227] = (void*)&cdat->dsym_3222__MAKE_BOX;
+  melt_assertmsg("iniobj checkdiscr dsym_3222__MAKE_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3222__MAKE_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3222__MAKE_BOX.obj_hash = 405217422;
+  cdat->dsym_3222__MAKE_BOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3222__MAKE_BOX));
+ 
+ /*inistring dstr_3223__MAKE_BOX*/
+ /*_.VALSTR___V3229*/ curfptr[3228] = (void*)&cdat->dstr_3223__MAKE_BOX;
+  cdat->dstr_3223__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3223__MAKE_BOX.val, "MAKE_BOX", sizeof(cdat->dstr_3223__MAKE_BOX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1761:/ iniobj");
+ /*iniobj dobj_3224__MAKE_BOX*/
+ if (!/*_.VALDATA___V3230*/ curfptr[3229]) /*_.VALDATA___V3230*/ curfptr[3229] = (void*)&cdat->dobj_3224__MAKE_BOX;
+  melt_assertmsg("iniobj checkdiscr dobj_3224__MAKE_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3224__MAKE_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3224__MAKE_BOX.obj_hash = 196346338;
+  cdat->dobj_3224__MAKE_BOX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3224__MAKE_BOX));
+ 
+ /*inimult dtup_3225__MAKE_BOX*/
+ /*_.VALTUP___V3240*/ curfptr[3239] = (void*)&cdat->dtup_3225__MAKE_BOX;
+  cdat->dtup_3225__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3225__MAKE_BOX.nbval = 5;
+ /*inimult dtup_3226__MAKE_BOX*/
+ /*_.VALTUP___V3236*/ curfptr[3235] = (void*)&cdat->dtup_3226__MAKE_BOX;
+  cdat->dtup_3226__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3226__MAKE_BOX.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1761:/ iniobj");
+ /*iniobj dobj_3227*/
+ if (!/*_.VALDATA___V3232*/ curfptr[3231]) /*_.VALDATA___V3232*/ curfptr[3231] = (void*)&cdat->dobj_3227;
+  melt_assertmsg("iniobj checkdiscr dobj_3227", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3227.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3227.obj_num = 0;
+  cdat->dobj_3227.obj_hash = 365200564;
+  cdat->dobj_3227.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3227));
+ 
+ /*iniobj dsym_3228__VALB*/
+ if (!/*_.VALDATA___V3234*/ curfptr[3233]) /*_.VALDATA___V3234*/ curfptr[3233] = (void*)&cdat->dsym_3228__VALB;
+  melt_assertmsg("iniobj checkdiscr dsym_3228__VALB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3228__VALB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3228__VALB.obj_hash = 88728051;
+  cdat->dsym_3228__VALB.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3228__VALB));
+ 
+ /*inistring dstr_3229__VALB*/
+ /*_.VALSTR___V3235*/ curfptr[3234] = (void*)&cdat->dstr_3229__VALB;
+  cdat->dstr_3229__VALB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3229__VALB.val, "VALB", sizeof(cdat->dstr_3229__VALB.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1761:/ iniobj");
+ /*iniobj dobj_3230*/
+ if (!/*_.VALDATA___V3233*/ curfptr[3232]) /*_.VALDATA___V3233*/ curfptr[3232] = (void*)&cdat->dobj_3230;
+  melt_assertmsg("iniobj checkdiscr dobj_3230", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3230.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3230.obj_num = 1;
+  cdat->dobj_3230.obj_hash = 75520687;
+  cdat->dobj_3230.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3230));
+ 
+ /*inistring dstr_3231__meltgc_new_box_*/
+ /*_.VALSTR___V3237*/ curfptr[3236] = (void*)&cdat->dstr_3231__meltgc_new_box_;
+  cdat->dstr_3231__meltgc_new_box_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3231__meltgc_new_box_.val, "meltgc_new_box((meltobject_ptr_t)(", sizeof(cdat->dstr_3231__meltgc_new_box_.val)-1);
+ 
+ /*inistring dstr_3232__melt_ptr_t_*/
+ /*_.VALSTR___V3238*/ curfptr[3237] = (void*)&cdat->dstr_3232__melt_ptr_t_;
+  cdat->dstr_3232__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3232__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3232__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3233__*/
+ /*_.VALSTR___V3239*/ curfptr[3238] = (void*)&cdat->dstr_3233__;
+  cdat->dstr_3233__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3233__.val, "))", sizeof(cdat->dstr_3233__.val)-1);
+ 
+ /*inistring dstr_3234__MAKE_BOX*/
+ /*_.VALSTR___V3231*/ curfptr[3230] = (void*)&cdat->dstr_3234__MAKE_BOX;
+  cdat->dstr_3234__MAKE_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3234__MAKE_BOX.val, "MAKE_BOX", sizeof(cdat->dstr_3234__MAKE_BOX.val)-1);
+ 
+ /*iniobj dsym_3235__IS_LIST*/
+ if (!/*_.VALDATA___V3241*/ curfptr[3240]) /*_.VALDATA___V3241*/ curfptr[3240] = (void*)&cdat->dsym_3235__IS_LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_3235__IS_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3235__IS_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3235__IS_LIST.obj_hash = 702154144;
+  cdat->dsym_3235__IS_LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3235__IS_LIST));
+ 
+ /*inistring dstr_3236__IS_LIST*/
+ /*_.VALSTR___V3242*/ curfptr[3241] = (void*)&cdat->dstr_3236__IS_LIST;
+  cdat->dstr_3236__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3236__IS_LIST.val, "IS_LIST", sizeof(cdat->dstr_3236__IS_LIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1767:/ iniobj");
+ /*iniobj dobj_3237__IS_LIST*/
+ if (!/*_.VALDATA___V3243*/ curfptr[3242]) /*_.VALDATA___V3243*/ curfptr[3242] = (void*)&cdat->dobj_3237__IS_LIST;
+  melt_assertmsg("iniobj checkdiscr dobj_3237__IS_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3237__IS_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3237__IS_LIST.obj_hash = 64350394;
+  cdat->dobj_3237__IS_LIST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3237__IS_LIST));
+ 
+ /*inimult dtup_3238__IS_LIST*/
+ /*_.VALTUP___V3251*/ curfptr[3250] = (void*)&cdat->dtup_3238__IS_LIST;
+  cdat->dtup_3238__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3238__IS_LIST.nbval = 3;
+ /*inimult dtup_3239__IS_LIST*/
+ /*_.VALTUP___V3248*/ curfptr[3247] = (void*)&cdat->dtup_3239__IS_LIST;
+  cdat->dtup_3239__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3239__IS_LIST.nbval = 1;
+ /*iniobj dsym_3240__LI*/
+ if (!/*_.VALDATA___V3246*/ curfptr[3245]) /*_.VALDATA___V3246*/ curfptr[3245] = (void*)&cdat->dsym_3240__LI;
+  melt_assertmsg("iniobj checkdiscr dsym_3240__LI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3240__LI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3240__LI.obj_hash = 120191520;
+  cdat->dsym_3240__LI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3240__LI));
+ 
+ /*inistring dstr_3241__LI*/
+ /*_.VALSTR___V3247*/ curfptr[3246] = (void*)&cdat->dstr_3241__LI;
+  cdat->dstr_3241__LI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3241__LI.val, "LI", sizeof(cdat->dstr_3241__LI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1767:/ iniobj");
+ /*iniobj dobj_3242*/
+ if (!/*_.VALDATA___V3245*/ curfptr[3244]) /*_.VALDATA___V3245*/ curfptr[3244] = (void*)&cdat->dobj_3242;
+  melt_assertmsg("iniobj checkdiscr dobj_3242", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3242.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3242.obj_num = 0;
+  cdat->dobj_3242.obj_hash = 56490872;
+  cdat->dobj_3242.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3242));
+ 
+ /*inistring dstr_3243__melt_magic_disc*/
+ /*_.VALSTR___V3249*/ curfptr[3248] = (void*)&cdat->dstr_3243__melt_magic_disc;
+  cdat->dstr_3243__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3243__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3243__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3244__OBMAG_LIST*/
+ /*_.VALSTR___V3250*/ curfptr[3249] = (void*)&cdat->dstr_3244__OBMAG_LIST;
+  cdat->dstr_3244__OBMAG_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3244__OBMAG_LIST.val, ")) == OBMAG_LIST)", sizeof(cdat->dstr_3244__OBMAG_LIST.val)-1);
+ 
+ /*inistring dstr_3245__IS_LIST*/
+ /*_.VALSTR___V3244*/ curfptr[3243] = (void*)&cdat->dstr_3245__IS_LIST;
+  cdat->dstr_3245__IS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3245__IS_LIST.val, "IS_LIST", sizeof(cdat->dstr_3245__IS_LIST.val)-1);
+ 
+ /*iniobj dsym_3246__IS_LIST_OR_NULL*/
+ if (!/*_.VALDATA___V3252*/ curfptr[3251]) /*_.VALDATA___V3252*/ curfptr[3251] = (void*)&cdat->dsym_3246__IS_LIST_OR_NULL;
+  melt_assertmsg("iniobj checkdiscr dsym_3246__IS_LIST_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3246__IS_LIST_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3246__IS_LIST_OR_NULL.obj_hash = 603469204;
+  cdat->dsym_3246__IS_LIST_OR_NULL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3246__IS_LIST_OR_NULL));
+ 
+ /*inistring dstr_3247__IS_LIST_OR_NULL*/
+ /*_.VALSTR___V3253*/ curfptr[3252] = (void*)&cdat->dstr_3247__IS_LIST_OR_NULL;
+  cdat->dstr_3247__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3247__IS_LIST_OR_NULL.val, "IS_LIST_OR_NULL", sizeof(cdat->dstr_3247__IS_LIST_OR_NULL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1770:/ iniobj");
+ /*iniobj dobj_3248__IS_LIST_OR_NULL*/
+ if (!/*_.VALDATA___V3254*/ curfptr[3253]) /*_.VALDATA___V3254*/ curfptr[3253] = (void*)&cdat->dobj_3248__IS_LIST_OR_NULL;
+  melt_assertmsg("iniobj checkdiscr dobj_3248__IS_LIST_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3248__IS_LIST_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3248__IS_LIST_OR_NULL.obj_hash = 534285330;
+  cdat->dobj_3248__IS_LIST_OR_NULL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3248__IS_LIST_OR_NULL));
+ 
+ /*inimult dtup_3249__IS_LIST_OR_NULL*/
+ /*_.VALTUP___V3261*/ curfptr[3260] = (void*)&cdat->dtup_3249__IS_LIST_OR_NULL;
+  cdat->dtup_3249__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3249__IS_LIST_OR_NULL.nbval = 5;
+ /*inimult dtup_3250__IS_LIST_OR_NULL*/
+ /*_.VALTUP___V3257*/ curfptr[3256] = (void*)&cdat->dtup_3250__IS_LIST_OR_NULL;
+  cdat->dtup_3250__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3250__IS_LIST_OR_NULL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1770:/ iniobj");
+ /*iniobj dobj_3251*/
+ if (!/*_.VALDATA___V3256*/ curfptr[3255]) /*_.VALDATA___V3256*/ curfptr[3255] = (void*)&cdat->dobj_3251;
+  melt_assertmsg("iniobj checkdiscr dobj_3251", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3251.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3251.obj_num = 0;
+  cdat->dobj_3251.obj_hash = 719561081;
+  cdat->dobj_3251.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3251));
+ 
+ /*inistring dstr_3252__*/
+ /*_.VALSTR___V3258*/ curfptr[3257] = (void*)&cdat->dstr_3252__;
+  cdat->dstr_3252__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3252__.val, "((", sizeof(cdat->dstr_3252__.val)-1);
+ 
+ /*inistring dstr_3253__NULL_*/
+ /*_.VALSTR___V3259*/ curfptr[3258] = (void*)&cdat->dstr_3253__NULL_;
+  cdat->dstr_3253__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3253__NULL_.val, ") == NULL \n     || (melt_unsafe_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3253__NULL_.val)-1);
+ 
+ /*inistring dstr_3254__OBMAG_LIST*/
+ /*_.VALSTR___V3260*/ curfptr[3259] = (void*)&cdat->dstr_3254__OBMAG_LIST;
+  cdat->dstr_3254__OBMAG_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3254__OBMAG_LIST.val, ")) == OBMAG_LIST))", sizeof(cdat->dstr_3254__OBMAG_LIST.val)-1);
  
  /*inistring dstr_3255__IS_LIST_OR_NULL*/
- /*_.VALSTR___V3261*/ curfptr[3260] = (void*)&cdat->dstr_3255__IS_LIST_OR_NULL;
+ /*_.VALSTR___V3255*/ curfptr[3254] = (void*)&cdat->dstr_3255__IS_LIST_OR_NULL;
   cdat->dstr_3255__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_3255__IS_LIST_OR_NULL.val, "IS_LIST_OR_NULL", sizeof(cdat->dstr_3255__IS_LIST_OR_NULL.val)-1);
  
+ /*iniobj dsym_3256__LIST_FIRST*/
+ if (!/*_.VALDATA___V3262*/ curfptr[3261]) /*_.VALDATA___V3262*/ curfptr[3261] = (void*)&cdat->dsym_3256__LIST_FIRST;
+  melt_assertmsg("iniobj checkdiscr dsym_3256__LIST_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3256__LIST_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3256__LIST_FIRST.obj_hash = 284539145;
+  cdat->dsym_3256__LIST_FIRST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3256__LIST_FIRST));
+ 
+ /*inistring dstr_3257__LIST_FIRST*/
+ /*_.VALSTR___V3263*/ curfptr[3262] = (void*)&cdat->dstr_3257__LIST_FIRST;
+  cdat->dstr_3257__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3257__LIST_FIRST.val, "LIST_FIRST", sizeof(cdat->dstr_3257__LIST_FIRST.val)-1);
+ 
  MELT_LOCATION("warmelt-first.melt:1775:/ iniobj");
- /*iniobj dobj_3256__IS_LIST_OR_NULL*/
- if (!/*_.VALDATA___V3262*/ curfptr[3261]) /*_.VALDATA___V3262*/ curfptr[3261] = (void*)&cdat->dobj_3256__IS_LIST_OR_NULL;
-  melt_assertmsg("iniobj checkdiscr dobj_3256__IS_LIST_OR_NULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3256__IS_LIST_OR_NULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3256__IS_LIST_OR_NULL.obj_hash = 196493421;
-  cdat->dobj_3256__IS_LIST_OR_NULL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3256__IS_LIST_OR_NULL));
- 
- /*inimult dtup_3257__IS_LIST_OR_NULL*/
- /*_.VALTUP___V3269*/ curfptr[3268] = (void*)&cdat->dtup_3257__IS_LIST_OR_NULL;
-  cdat->dtup_3257__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3257__IS_LIST_OR_NULL.nbval = 5;
- /*inimult dtup_3258__IS_LIST_OR_NULL*/
- /*_.VALTUP___V3265*/ curfptr[3264] = (void*)&cdat->dtup_3258__IS_LIST_OR_NULL;
-  cdat->dtup_3258__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3258__IS_LIST_OR_NULL.nbval = 1;
+ /*iniobj dobj_3258__LIST_FIRST*/
+ if (!/*_.VALDATA___V3264*/ curfptr[3263]) /*_.VALDATA___V3264*/ curfptr[3263] = (void*)&cdat->dobj_3258__LIST_FIRST;
+  melt_assertmsg("iniobj checkdiscr dobj_3258__LIST_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3258__LIST_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3258__LIST_FIRST.obj_hash = 987442191;
+  cdat->dobj_3258__LIST_FIRST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3258__LIST_FIRST));
+ 
+ /*inimult dtup_3259__LIST_FIRST*/
+ /*_.VALTUP___V3270*/ curfptr[3269] = (void*)&cdat->dtup_3259__LIST_FIRST;
+  cdat->dtup_3259__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3259__LIST_FIRST.nbval = 3;
+ /*inimult dtup_3260__LIST_FIRST*/
+ /*_.VALTUP___V3267*/ curfptr[3266] = (void*)&cdat->dtup_3260__LIST_FIRST;
+  cdat->dtup_3260__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3260__LIST_FIRST.nbval = 1;
  MELT_LOCATION("warmelt-first.melt:1775:/ iniobj");
- /*iniobj dobj_3259*/
- if (!/*_.VALDATA___V3264*/ curfptr[3263]) /*_.VALDATA___V3264*/ curfptr[3263] = (void*)&cdat->dobj_3259;
-  melt_assertmsg("iniobj checkdiscr dobj_3259", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3259.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3259.obj_num = 0;
-  cdat->dobj_3259.obj_hash = 175049750;
-  cdat->dobj_3259.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3259));
- 
- /*inistring dstr_3260__*/
- /*_.VALSTR___V3266*/ curfptr[3265] = (void*)&cdat->dstr_3260__;
-  cdat->dstr_3260__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3260__.val, "((", sizeof(cdat->dstr_3260__.val)-1);
- 
- /*inistring dstr_3261__NULL_*/
- /*_.VALSTR___V3267*/ curfptr[3266] = (void*)&cdat->dstr_3261__NULL_;
-  cdat->dstr_3261__NULL_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3261__NULL_.val, ") == NULL \n     || (melt_unsafe_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3261__NULL_.val)-1);
- 
- /*inistring dstr_3262__OBMAG_LIST*/
- /*_.VALSTR___V3268*/ curfptr[3267] = (void*)&cdat->dstr_3262__OBMAG_LIST;
-  cdat->dstr_3262__OBMAG_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3262__OBMAG_LIST.val, ")) == OBMAG_LIST))", sizeof(cdat->dstr_3262__OBMAG_LIST.val)-1);
- 
- /*inistring dstr_3263__IS_LIST_OR_NULL*/
- /*_.VALSTR___V3263*/ curfptr[3262] = (void*)&cdat->dstr_3263__IS_LIST_OR_NULL;
-  cdat->dstr_3263__IS_LIST_OR_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3263__IS_LIST_OR_NULL.val, "IS_LIST_OR_NULL", sizeof(cdat->dstr_3263__IS_LIST_OR_NULL.val)-1);
- 
- /*iniobj dsym_3264__LIST_FIRST*/
- if (!/*_.VALDATA___V3270*/ curfptr[3269]) /*_.VALDATA___V3270*/ curfptr[3269] = (void*)&cdat->dsym_3264__LIST_FIRST;
-  melt_assertmsg("iniobj checkdiscr dsym_3264__LIST_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3264__LIST_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3264__LIST_FIRST.obj_hash = 284539145;
-  cdat->dsym_3264__LIST_FIRST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3264__LIST_FIRST));
- 
- /*inistring dstr_3265__LIST_FIRST*/
- /*_.VALSTR___V3271*/ curfptr[3270] = (void*)&cdat->dstr_3265__LIST_FIRST;
-  cdat->dstr_3265__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3265__LIST_FIRST.val, "LIST_FIRST", sizeof(cdat->dstr_3265__LIST_FIRST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1780:/ iniobj");
- /*iniobj dobj_3266__LIST_FIRST*/
- if (!/*_.VALDATA___V3272*/ curfptr[3271]) /*_.VALDATA___V3272*/ curfptr[3271] = (void*)&cdat->dobj_3266__LIST_FIRST;
-  melt_assertmsg("iniobj checkdiscr dobj_3266__LIST_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3266__LIST_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3266__LIST_FIRST.obj_hash = 521061506;
-  cdat->dobj_3266__LIST_FIRST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3266__LIST_FIRST));
- 
- /*inimult dtup_3267__LIST_FIRST*/
- /*_.VALTUP___V3278*/ curfptr[3277] = (void*)&cdat->dtup_3267__LIST_FIRST;
-  cdat->dtup_3267__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3267__LIST_FIRST.nbval = 3;
- /*inimult dtup_3268__LIST_FIRST*/
- /*_.VALTUP___V3275*/ curfptr[3274] = (void*)&cdat->dtup_3268__LIST_FIRST;
-  cdat->dtup_3268__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3268__LIST_FIRST.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1780:/ iniobj");
- /*iniobj dobj_3269*/
- if (!/*_.VALDATA___V3274*/ curfptr[3273]) /*_.VALDATA___V3274*/ curfptr[3273] = (void*)&cdat->dobj_3269;
-  melt_assertmsg("iniobj checkdiscr dobj_3269", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3269.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3269.obj_num = 0;
-  cdat->dobj_3269.obj_hash = 876562624;
-  cdat->dobj_3269.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3269));
- 
- /*inistring dstr_3270__melt_list_first*/
- /*_.VALSTR___V3276*/ curfptr[3275] = (void*)&cdat->dstr_3270__melt_list_first;
-  cdat->dstr_3270__melt_list_first.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3270__melt_list_first.val, "(melt_list_first((melt_ptr_t)(", sizeof(cdat->dstr_3270__melt_list_first.val)-1);
- 
- /*inistring dstr_3271__*/
- /*_.VALSTR___V3277*/ curfptr[3276] = (void*)&cdat->dstr_3271__;
-  cdat->dstr_3271__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3271__.val, ")))", sizeof(cdat->dstr_3271__.val)-1);
- 
- /*inistring dstr_3272__LIST_FIRST*/
- /*_.VALSTR___V3273*/ curfptr[3272] = (void*)&cdat->dstr_3272__LIST_FIRST;
-  cdat->dstr_3272__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3272__LIST_FIRST.val, "LIST_FIRST", sizeof(cdat->dstr_3272__LIST_FIRST.val)-1);
- 
- /*iniobj dsym_3273__LIST_LAST*/
- if (!/*_.VALDATA___V3279*/ curfptr[3278]) /*_.VALDATA___V3279*/ curfptr[3278] = (void*)&cdat->dsym_3273__LIST_LAST;
-  melt_assertmsg("iniobj checkdiscr dsym_3273__LIST_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3273__LIST_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3273__LIST_LAST.obj_hash = 540589939;
-  cdat->dsym_3273__LIST_LAST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3273__LIST_LAST));
- 
- /*inistring dstr_3274__LIST_LAST*/
- /*_.VALSTR___V3280*/ curfptr[3279] = (void*)&cdat->dstr_3274__LIST_LAST;
-  cdat->dstr_3274__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3274__LIST_LAST.val, "LIST_LAST", sizeof(cdat->dstr_3274__LIST_LAST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1784:/ iniobj");
- /*iniobj dobj_3275__LIST_LAST*/
- if (!/*_.VALDATA___V3281*/ curfptr[3280]) /*_.VALDATA___V3281*/ curfptr[3280] = (void*)&cdat->dobj_3275__LIST_LAST;
-  melt_assertmsg("iniobj checkdiscr dobj_3275__LIST_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3275__LIST_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3275__LIST_LAST.obj_hash = 902303936;
-  cdat->dobj_3275__LIST_LAST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3275__LIST_LAST));
- 
- /*inimult dtup_3276__LIST_LAST*/
- /*_.VALTUP___V3287*/ curfptr[3286] = (void*)&cdat->dtup_3276__LIST_LAST;
-  cdat->dtup_3276__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3276__LIST_LAST.nbval = 3;
- /*inimult dtup_3277__LIST_LAST*/
- /*_.VALTUP___V3284*/ curfptr[3283] = (void*)&cdat->dtup_3277__LIST_LAST;
-  cdat->dtup_3277__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3277__LIST_LAST.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1784:/ iniobj");
- /*iniobj dobj_3278*/
- if (!/*_.VALDATA___V3283*/ curfptr[3282]) /*_.VALDATA___V3283*/ curfptr[3282] = (void*)&cdat->dobj_3278;
-  melt_assertmsg("iniobj checkdiscr dobj_3278", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3278.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3278.obj_num = 0;
-  cdat->dobj_3278.obj_hash = 775329805;
-  cdat->dobj_3278.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3278));
- 
- /*inistring dstr_3279__melt_list_last_*/
- /*_.VALSTR___V3285*/ curfptr[3284] = (void*)&cdat->dstr_3279__melt_list_last_;
-  cdat->dstr_3279__melt_list_last_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3279__melt_list_last_.val, "(melt_list_last((melt_ptr_t)(", sizeof(cdat->dstr_3279__melt_list_last_.val)-1);
- 
- /*inistring dstr_3280__*/
- /*_.VALSTR___V3286*/ curfptr[3285] = (void*)&cdat->dstr_3280__;
-  cdat->dstr_3280__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3280__.val, ")))", sizeof(cdat->dstr_3280__.val)-1);
- 
- /*inistring dstr_3281__LIST_LAST*/
- /*_.VALSTR___V3282*/ curfptr[3281] = (void*)&cdat->dstr_3281__LIST_LAST;
-  cdat->dstr_3281__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3281__LIST_LAST.val, "LIST_LAST", sizeof(cdat->dstr_3281__LIST_LAST.val)-1);
- 
- /*iniobj dsym_3282__LIST_LENGTH*/
- if (!/*_.VALDATA___V3288*/ curfptr[3287]) /*_.VALDATA___V3288*/ curfptr[3287] = (void*)&cdat->dsym_3282__LIST_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_3282__LIST_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3282__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3282__LIST_LENGTH.obj_hash = 933284122;
-  cdat->dsym_3282__LIST_LENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3282__LIST_LENGTH));
- 
- /*inistring dstr_3283__LIST_LENGTH*/
- /*_.VALSTR___V3289*/ curfptr[3288] = (void*)&cdat->dstr_3283__LIST_LENGTH;
-  cdat->dstr_3283__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3283__LIST_LENGTH.val, "LIST_LENGTH", sizeof(cdat->dstr_3283__LIST_LENGTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1788:/ iniobj");
- /*iniobj dobj_3284__LIST_LENGTH*/
- if (!/*_.VALDATA___V3290*/ curfptr[3289]) /*_.VALDATA___V3290*/ curfptr[3289] = (void*)&cdat->dobj_3284__LIST_LENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_3284__LIST_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3284__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3284__LIST_LENGTH.obj_hash = 658457171;
-  cdat->dobj_3284__LIST_LENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3284__LIST_LENGTH));
- 
- /*inimult dtup_3285__LIST_LENGTH*/
- /*_.VALTUP___V3296*/ curfptr[3295] = (void*)&cdat->dtup_3285__LIST_LENGTH;
-  cdat->dtup_3285__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3285__LIST_LENGTH.nbval = 3;
- /*inimult dtup_3286__LIST_LENGTH*/
- /*_.VALTUP___V3293*/ curfptr[3292] = (void*)&cdat->dtup_3286__LIST_LENGTH;
-  cdat->dtup_3286__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3286__LIST_LENGTH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1788:/ iniobj");
- /*iniobj dobj_3287*/
- if (!/*_.VALDATA___V3292*/ curfptr[3291]) /*_.VALDATA___V3292*/ curfptr[3291] = (void*)&cdat->dobj_3287;
-  melt_assertmsg("iniobj checkdiscr dobj_3287", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3287.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3287.obj_num = 0;
-  cdat->dobj_3287.obj_hash = 859705161;
-  cdat->dobj_3287.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3287));
- 
- /*inistring dstr_3288__melt_list_lengt*/
- /*_.VALSTR___V3294*/ curfptr[3293] = (void*)&cdat->dstr_3288__melt_list_lengt;
-  cdat->dstr_3288__melt_list_lengt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3288__melt_list_lengt.val, "(melt_list_length((melt_ptr_t)(", sizeof(cdat->dstr_3288__melt_list_lengt.val)-1);
- 
- /*inistring dstr_3289__*/
- /*_.VALSTR___V3295*/ curfptr[3294] = (void*)&cdat->dstr_3289__;
-  cdat->dstr_3289__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3289__.val, ")))", sizeof(cdat->dstr_3289__.val)-1);
- 
- /*inistring dstr_3290__LIST_LENGTH*/
- /*_.VALSTR___V3291*/ curfptr[3290] = (void*)&cdat->dstr_3290__LIST_LENGTH;
-  cdat->dstr_3290__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3290__LIST_LENGTH.val, "LIST_LENGTH", sizeof(cdat->dstr_3290__LIST_LENGTH.val)-1);
- 
- /*iniobj dsym_3291__LIST_APPEND*/
- if (!/*_.VALDATA___V3297*/ curfptr[3296]) /*_.VALDATA___V3297*/ curfptr[3296] = (void*)&cdat->dsym_3291__LIST_APPEND;
-  melt_assertmsg("iniobj checkdiscr dsym_3291__LIST_APPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3291__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3291__LIST_APPEND.obj_hash = 56487139;
-  cdat->dsym_3291__LIST_APPEND.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3291__LIST_APPEND));
- 
- /*inistring dstr_3292__LIST_APPEND*/
- /*_.VALSTR___V3298*/ curfptr[3297] = (void*)&cdat->dstr_3292__LIST_APPEND;
-  cdat->dstr_3292__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3292__LIST_APPEND.val, "LIST_APPEND", sizeof(cdat->dstr_3292__LIST_APPEND.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1792:/ iniobj");
- /*iniobj dobj_3293__LIST_APPEND*/
- if (!/*_.VALDATA___V3299*/ curfptr[3298]) /*_.VALDATA___V3299*/ curfptr[3298] = (void*)&cdat->dobj_3293__LIST_APPEND;
-  melt_assertmsg("iniobj checkdiscr dobj_3293__LIST_APPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3293__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3293__LIST_APPEND.obj_hash = 167213003;
-  cdat->dobj_3293__LIST_APPEND.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3293__LIST_APPEND));
- 
- /*inimult dtup_3294__LIST_APPEND*/
- /*_.VALTUP___V3309*/ curfptr[3308] = (void*)&cdat->dtup_3294__LIST_APPEND;
-  cdat->dtup_3294__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3294__LIST_APPEND.nbval = 5;
- /*inimult dtup_3295__LIST_APPEND*/
- /*_.VALTUP___V3305*/ curfptr[3304] = (void*)&cdat->dtup_3295__LIST_APPEND;
-  cdat->dtup_3295__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3295__LIST_APPEND.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1792:/ iniobj");
- /*iniobj dobj_3296*/
- if (!/*_.VALDATA___V3301*/ curfptr[3300]) /*_.VALDATA___V3301*/ curfptr[3300] = (void*)&cdat->dobj_3296;
-  melt_assertmsg("iniobj checkdiscr dobj_3296", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3296.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3296.obj_num = 0;
-  cdat->dobj_3296.obj_hash = 217691135;
-  cdat->dobj_3296.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3296));
- 
- /*iniobj dsym_3297__EL*/
- if (!/*_.VALDATA___V3303*/ curfptr[3302]) /*_.VALDATA___V3303*/ curfptr[3302] = (void*)&cdat->dsym_3297__EL;
-  melt_assertmsg("iniobj checkdiscr dsym_3297__EL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3297__EL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3297__EL.obj_hash = 15029533;
-  cdat->dsym_3297__EL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3297__EL));
- 
- /*inistring dstr_3298__EL*/
- /*_.VALSTR___V3304*/ curfptr[3303] = (void*)&cdat->dstr_3298__EL;
-  cdat->dstr_3298__EL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3298__EL.val, "EL", sizeof(cdat->dstr_3298__EL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1792:/ iniobj");
- /*iniobj dobj_3299*/
- if (!/*_.VALDATA___V3302*/ curfptr[3301]) /*_.VALDATA___V3302*/ curfptr[3301] = (void*)&cdat->dobj_3299;
-  melt_assertmsg("iniobj checkdiscr dobj_3299", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3299.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3299.obj_num = 1;
-  cdat->dobj_3299.obj_hash = 637277233;
-  cdat->dobj_3299.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3299));
- 
- /*inistring dstr_3300__meltgc_append_li*/
- /*_.VALSTR___V3306*/ curfptr[3305] = (void*)&cdat->dstr_3300__meltgc_append_li;
-  cdat->dstr_3300__meltgc_append_li.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3300__meltgc_append_li.val, "meltgc_append_list((melt_ptr_t)(", sizeof(cdat->dstr_3300__meltgc_append_li.val)-1);
- 
- /*inistring dstr_3301__melt_ptr_t_*/
- /*_.VALSTR___V3307*/ curfptr[3306] = (void*)&cdat->dstr_3301__melt_ptr_t_;
-  cdat->dstr_3301__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3301__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3301__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3302__*/
- /*_.VALSTR___V3308*/ curfptr[3307] = (void*)&cdat->dstr_3302__;
-  cdat->dstr_3302__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3302__.val, "))", sizeof(cdat->dstr_3302__.val)-1);
- 
- /*inistring dstr_3303__LIST_APPEND*/
- /*_.VALSTR___V3300*/ curfptr[3299] = (void*)&cdat->dstr_3303__LIST_APPEND;
-  cdat->dstr_3303__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3303__LIST_APPEND.val, "LIST_APPEND", sizeof(cdat->dstr_3303__LIST_APPEND.val)-1);
- 
- /*iniobj dsym_3304__LIST_PREPEND*/
- if (!/*_.VALDATA___V3310*/ curfptr[3309]) /*_.VALDATA___V3310*/ curfptr[3309] = (void*)&cdat->dsym_3304__LIST_PREPEND;
-  melt_assertmsg("iniobj checkdiscr dsym_3304__LIST_PREPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3304__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3304__LIST_PREPEND.obj_hash = 1063959021;
-  cdat->dsym_3304__LIST_PREPEND.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3304__LIST_PREPEND));
- 
- /*inistring dstr_3305__LIST_PREPEND*/
- /*_.VALSTR___V3311*/ curfptr[3310] = (void*)&cdat->dstr_3305__LIST_PREPEND;
-  cdat->dstr_3305__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3305__LIST_PREPEND.val, "LIST_PREPEND", sizeof(cdat->dstr_3305__LIST_PREPEND.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1796:/ iniobj");
- /*iniobj dobj_3306__LIST_PREPEND*/
- if (!/*_.VALDATA___V3312*/ curfptr[3311]) /*_.VALDATA___V3312*/ curfptr[3311] = (void*)&cdat->dobj_3306__LIST_PREPEND;
-  melt_assertmsg("iniobj checkdiscr dobj_3306__LIST_PREPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3306__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3306__LIST_PREPEND.obj_hash = 513690999;
-  cdat->dobj_3306__LIST_PREPEND.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3306__LIST_PREPEND));
- 
- /*inimult dtup_3307__LIST_PREPEND*/
- /*_.VALTUP___V3320*/ curfptr[3319] = (void*)&cdat->dtup_3307__LIST_PREPEND;
-  cdat->dtup_3307__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3307__LIST_PREPEND.nbval = 5;
- /*inimult dtup_3308__LIST_PREPEND*/
- /*_.VALTUP___V3316*/ curfptr[3315] = (void*)&cdat->dtup_3308__LIST_PREPEND;
-  cdat->dtup_3308__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3308__LIST_PREPEND.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1796:/ iniobj");
- /*iniobj dobj_3309*/
- if (!/*_.VALDATA___V3314*/ curfptr[3313]) /*_.VALDATA___V3314*/ curfptr[3313] = (void*)&cdat->dobj_3309;
-  melt_assertmsg("iniobj checkdiscr dobj_3309", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3309.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3309.obj_num = 0;
-  cdat->dobj_3309.obj_hash = 380316544;
-  cdat->dobj_3309.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3309));
- 
- MELT_LOCATION("warmelt-first.melt:1796:/ iniobj");
- /*iniobj dobj_3310*/
- if (!/*_.VALDATA___V3315*/ curfptr[3314]) /*_.VALDATA___V3315*/ curfptr[3314] = (void*)&cdat->dobj_3310;
-  melt_assertmsg("iniobj checkdiscr dobj_3310", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3310.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3310.obj_num = 1;
-  cdat->dobj_3310.obj_hash = 770823155;
-  cdat->dobj_3310.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3310));
- 
- /*inistring dstr_3311__meltgc_prepend_l*/
- /*_.VALSTR___V3317*/ curfptr[3316] = (void*)&cdat->dstr_3311__meltgc_prepend_l;
-  cdat->dstr_3311__meltgc_prepend_l.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3311__meltgc_prepend_l.val, "meltgc_prepend_list((melt_ptr_t)(", sizeof(cdat->dstr_3311__meltgc_prepend_l.val)-1);
- 
- /*inistring dstr_3312__melt_ptr_t_*/
- /*_.VALSTR___V3318*/ curfptr[3317] = (void*)&cdat->dstr_3312__melt_ptr_t_;
-  cdat->dstr_3312__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3312__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3312__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3313__*/
- /*_.VALSTR___V3319*/ curfptr[3318] = (void*)&cdat->dstr_3313__;
-  cdat->dstr_3313__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3313__.val, "))", sizeof(cdat->dstr_3313__.val)-1);
- 
- /*inistring dstr_3314__LIST_PREPEND*/
- /*_.VALSTR___V3313*/ curfptr[3312] = (void*)&cdat->dstr_3314__LIST_PREPEND;
-  cdat->dstr_3314__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3314__LIST_PREPEND.val, "LIST_PREPEND", sizeof(cdat->dstr_3314__LIST_PREPEND.val)-1);
- 
- /*iniobj dsym_3315__LIST_POPFIRST*/
- if (!/*_.VALDATA___V3321*/ curfptr[3320]) /*_.VALDATA___V3321*/ curfptr[3320] = (void*)&cdat->dsym_3315__LIST_POPFIRST;
-  melt_assertmsg("iniobj checkdiscr dsym_3315__LIST_POPFIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3315__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3315__LIST_POPFIRST.obj_hash = 862248144;
-  cdat->dsym_3315__LIST_POPFIRST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3315__LIST_POPFIRST));
- 
- /*inistring dstr_3316__LIST_POPFIRST*/
- /*_.VALSTR___V3322*/ curfptr[3321] = (void*)&cdat->dstr_3316__LIST_POPFIRST;
-  cdat->dstr_3316__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3316__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof(cdat->dstr_3316__LIST_POPFIRST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1800:/ iniobj");
- /*iniobj dobj_3317__LIST_POPFIRST*/
- if (!/*_.VALDATA___V3323*/ curfptr[3322]) /*_.VALDATA___V3323*/ curfptr[3322] = (void*)&cdat->dobj_3317__LIST_POPFIRST;
-  melt_assertmsg("iniobj checkdiscr dobj_3317__LIST_POPFIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3317__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3317__LIST_POPFIRST.obj_hash = 949049821;
-  cdat->dobj_3317__LIST_POPFIRST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3317__LIST_POPFIRST));
- 
- /*inimult dtup_3318__LIST_POPFIRST*/
- /*_.VALTUP___V3329*/ curfptr[3328] = (void*)&cdat->dtup_3318__LIST_POPFIRST;
-  cdat->dtup_3318__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3318__LIST_POPFIRST.nbval = 3;
- /*inimult dtup_3319__LIST_POPFIRST*/
- /*_.VALTUP___V3326*/ curfptr[3325] = (void*)&cdat->dtup_3319__LIST_POPFIRST;
-  cdat->dtup_3319__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3319__LIST_POPFIRST.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1800:/ iniobj");
- /*iniobj dobj_3320*/
- if (!/*_.VALDATA___V3325*/ curfptr[3324]) /*_.VALDATA___V3325*/ curfptr[3324] = (void*)&cdat->dobj_3320;
-  melt_assertmsg("iniobj checkdiscr dobj_3320", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3320.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3320.obj_num = 0;
-  cdat->dobj_3320.obj_hash = 1014365703;
-  cdat->dobj_3320.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3320));
- 
- /*inistring dstr_3321__meltgc_popfirst*/
- /*_.VALSTR___V3327*/ curfptr[3326] = (void*)&cdat->dstr_3321__meltgc_popfirst;
-  cdat->dstr_3321__meltgc_popfirst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3321__meltgc_popfirst.val, "(meltgc_popfirst_list((melt_ptr_t)(", sizeof(cdat->dstr_3321__meltgc_popfirst.val)-1);
- 
- /*inistring dstr_3322__*/
- /*_.VALSTR___V3328*/ curfptr[3327] = (void*)&cdat->dstr_3322__;
-  cdat->dstr_3322__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3322__.val, ")))", sizeof(cdat->dstr_3322__.val)-1);
- 
- /*inistring dstr_3323__LIST_POPFIRST*/
- /*_.VALSTR___V3324*/ curfptr[3323] = (void*)&cdat->dstr_3323__LIST_POPFIRST;
-  cdat->dstr_3323__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3323__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof(cdat->dstr_3323__LIST_POPFIRST.val)-1);
- 
- /*iniobj dsym_3324__MAKE_LIST*/
- if (!/*_.VALDATA___V3330*/ curfptr[3329]) /*_.VALDATA___V3330*/ curfptr[3329] = (void*)&cdat->dsym_3324__MAKE_LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_3324__MAKE_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3324__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3324__MAKE_LIST.obj_hash = 184573384;
-  cdat->dsym_3324__MAKE_LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3324__MAKE_LIST));
- 
- /*inistring dstr_3325__MAKE_LIST*/
- /*_.VALSTR___V3331*/ curfptr[3330] = (void*)&cdat->dstr_3325__MAKE_LIST;
-  cdat->dstr_3325__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3325__MAKE_LIST.val, "MAKE_LIST", sizeof(cdat->dstr_3325__MAKE_LIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1804:/ iniobj");
- /*iniobj dobj_3326__MAKE_LIST*/
- if (!/*_.VALDATA___V3332*/ curfptr[3331]) /*_.VALDATA___V3332*/ curfptr[3331] = (void*)&cdat->dobj_3326__MAKE_LIST;
-  melt_assertmsg("iniobj checkdiscr dobj_3326__MAKE_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3326__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3326__MAKE_LIST.obj_hash = 232027279;
-  cdat->dobj_3326__MAKE_LIST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3326__MAKE_LIST));
- 
- /*inimult dtup_3327__MAKE_LIST*/
- /*_.VALTUP___V3338*/ curfptr[3337] = (void*)&cdat->dtup_3327__MAKE_LIST;
-  cdat->dtup_3327__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3327__MAKE_LIST.nbval = 3;
- /*inimult dtup_3328__MAKE_LIST*/
- /*_.VALTUP___V3335*/ curfptr[3334] = (void*)&cdat->dtup_3328__MAKE_LIST;
-  cdat->dtup_3328__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3328__MAKE_LIST.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1804:/ iniobj");
- /*iniobj dobj_3329*/
- if (!/*_.VALDATA___V3334*/ curfptr[3333]) /*_.VALDATA___V3334*/ curfptr[3333] = (void*)&cdat->dobj_3329;
-  melt_assertmsg("iniobj checkdiscr dobj_3329", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3329.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3329.obj_num = 0;
-  cdat->dobj_3329.obj_hash = 65584271;
-  cdat->dobj_3329.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3329));
- 
- /*inistring dstr_3330__meltgc_new_list*/
- /*_.VALSTR___V3336*/ curfptr[3335] = (void*)&cdat->dstr_3330__meltgc_new_list;
-  cdat->dstr_3330__meltgc_new_list.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3330__meltgc_new_list.val, "(meltgc_new_list((meltobject_ptr_t)(", sizeof(cdat->dstr_3330__meltgc_new_list.val)-1);
- 
- /*inistring dstr_3331__*/
- /*_.VALSTR___V3337*/ curfptr[3336] = (void*)&cdat->dstr_3331__;
-  cdat->dstr_3331__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3331__.val, ")))", sizeof(cdat->dstr_3331__.val)-1);
- 
- /*inistring dstr_3332__MAKE_LIST*/
- /*_.VALSTR___V3333*/ curfptr[3332] = (void*)&cdat->dstr_3332__MAKE_LIST;
-  cdat->dstr_3332__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3332__MAKE_LIST.val, "MAKE_LIST", sizeof(cdat->dstr_3332__MAKE_LIST.val)-1);
- 
- /*iniobj dsym_3333__IS_PAIR*/
- if (!/*_.VALDATA___V3339*/ curfptr[3338]) /*_.VALDATA___V3339*/ curfptr[3338] = (void*)&cdat->dsym_3333__IS_PAIR;
-  melt_assertmsg("iniobj checkdiscr dsym_3333__IS_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3333__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3333__IS_PAIR.obj_hash = 135748880;
-  cdat->dsym_3333__IS_PAIR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3333__IS_PAIR));
- 
- /*inistring dstr_3334__IS_PAIR*/
- /*_.VALSTR___V3340*/ curfptr[3339] = (void*)&cdat->dstr_3334__IS_PAIR;
-  cdat->dstr_3334__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3334__IS_PAIR.val, "IS_PAIR", sizeof(cdat->dstr_3334__IS_PAIR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1811:/ iniobj");
- /*iniobj dobj_3335__IS_PAIR*/
- if (!/*_.VALDATA___V3341*/ curfptr[3340]) /*_.VALDATA___V3341*/ curfptr[3340] = (void*)&cdat->dobj_3335__IS_PAIR;
-  melt_assertmsg("iniobj checkdiscr dobj_3335__IS_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3335__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3335__IS_PAIR.obj_hash = 577973507;
-  cdat->dobj_3335__IS_PAIR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3335__IS_PAIR));
- 
- /*inimult dtup_3336__IS_PAIR*/
- /*_.VALTUP___V3349*/ curfptr[3348] = (void*)&cdat->dtup_3336__IS_PAIR;
-  cdat->dtup_3336__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3336__IS_PAIR.nbval = 3;
- /*inimult dtup_3337__IS_PAIR*/
- /*_.VALTUP___V3346*/ curfptr[3345] = (void*)&cdat->dtup_3337__IS_PAIR;
-  cdat->dtup_3337__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3337__IS_PAIR.nbval = 1;
- /*iniobj dsym_3338__PA*/
- if (!/*_.VALDATA___V3344*/ curfptr[3343]) /*_.VALDATA___V3344*/ curfptr[3343] = (void*)&cdat->dsym_3338__PA;
-  melt_assertmsg("iniobj checkdiscr dsym_3338__PA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3338__PA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3338__PA.obj_hash = 94633376;
-  cdat->dsym_3338__PA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3338__PA));
- 
- /*inistring dstr_3339__PA*/
- /*_.VALSTR___V3345*/ curfptr[3344] = (void*)&cdat->dstr_3339__PA;
-  cdat->dstr_3339__PA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3339__PA.val, "PA", sizeof(cdat->dstr_3339__PA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1811:/ iniobj");
- /*iniobj dobj_3340*/
- if (!/*_.VALDATA___V3343*/ curfptr[3342]) /*_.VALDATA___V3343*/ curfptr[3342] = (void*)&cdat->dobj_3340;
-  melt_assertmsg("iniobj checkdiscr dobj_3340", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3340.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3340.obj_num = 0;
-  cdat->dobj_3340.obj_hash = 582336217;
-  cdat->dobj_3340.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3340));
- 
- /*inistring dstr_3341__melt_magic_disc*/
- /*_.VALSTR___V3347*/ curfptr[3346] = (void*)&cdat->dstr_3341__melt_magic_disc;
-  cdat->dstr_3341__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3341__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3341__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3342__OBMAG_PAIR*/
- /*_.VALSTR___V3348*/ curfptr[3347] = (void*)&cdat->dstr_3342__OBMAG_PAIR;
-  cdat->dstr_3342__OBMAG_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3342__OBMAG_PAIR.val, ")) == OBMAG_PAIR)", sizeof(cdat->dstr_3342__OBMAG_PAIR.val)-1);
- 
- /*inistring dstr_3343__IS_PAIR*/
- /*_.VALSTR___V3342*/ curfptr[3341] = (void*)&cdat->dstr_3343__IS_PAIR;
-  cdat->dstr_3343__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3343__IS_PAIR.val, "IS_PAIR", sizeof(cdat->dstr_3343__IS_PAIR.val)-1);
- 
- /*iniobj dsym_3344__PAIR_HEAD*/
- if (!/*_.VALDATA___V3350*/ curfptr[3349]) /*_.VALDATA___V3350*/ curfptr[3349] = (void*)&cdat->dsym_3344__PAIR_HEAD;
-  melt_assertmsg("iniobj checkdiscr dsym_3344__PAIR_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3344__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3344__PAIR_HEAD.obj_hash = 1025514553;
-  cdat->dsym_3344__PAIR_HEAD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3344__PAIR_HEAD));
- 
- /*inistring dstr_3345__PAIR_HEAD*/
- /*_.VALSTR___V3351*/ curfptr[3350] = (void*)&cdat->dstr_3345__PAIR_HEAD;
-  cdat->dstr_3345__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3345__PAIR_HEAD.val, "PAIR_HEAD", sizeof(cdat->dstr_3345__PAIR_HEAD.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1815:/ iniobj");
- /*iniobj dobj_3346__PAIR_HEAD*/
- if (!/*_.VALDATA___V3352*/ curfptr[3351]) /*_.VALDATA___V3352*/ curfptr[3351] = (void*)&cdat->dobj_3346__PAIR_HEAD;
-  melt_assertmsg("iniobj checkdiscr dobj_3346__PAIR_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3346__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3346__PAIR_HEAD.obj_hash = 545180444;
-  cdat->dobj_3346__PAIR_HEAD.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3346__PAIR_HEAD));
- 
- /*inimult dtup_3347__PAIR_HEAD*/
- /*_.VALTUP___V3358*/ curfptr[3357] = (void*)&cdat->dtup_3347__PAIR_HEAD;
-  cdat->dtup_3347__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3347__PAIR_HEAD.nbval = 3;
- /*inimult dtup_3348__PAIR_HEAD*/
- /*_.VALTUP___V3355*/ curfptr[3354] = (void*)&cdat->dtup_3348__PAIR_HEAD;
-  cdat->dtup_3348__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3348__PAIR_HEAD.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1815:/ iniobj");
- /*iniobj dobj_3349*/
- if (!/*_.VALDATA___V3354*/ curfptr[3353]) /*_.VALDATA___V3354*/ curfptr[3353] = (void*)&cdat->dobj_3349;
-  melt_assertmsg("iniobj checkdiscr dobj_3349", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3349.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3349.obj_num = 0;
-  cdat->dobj_3349.obj_hash = 1067573299;
-  cdat->dobj_3349.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3349));
- 
- /*inistring dstr_3350__melt_pair_head_*/
- /*_.VALSTR___V3356*/ curfptr[3355] = (void*)&cdat->dstr_3350__melt_pair_head_;
-  cdat->dstr_3350__melt_pair_head_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3350__melt_pair_head_.val, "(melt_pair_head((melt_ptr_t)(", sizeof(cdat->dstr_3350__melt_pair_head_.val)-1);
- 
- /*inistring dstr_3351__*/
- /*_.VALSTR___V3357*/ curfptr[3356] = (void*)&cdat->dstr_3351__;
-  cdat->dstr_3351__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3351__.val, ")))", sizeof(cdat->dstr_3351__.val)-1);
- 
- /*inistring dstr_3352__PAIR_HEAD*/
- /*_.VALSTR___V3353*/ curfptr[3352] = (void*)&cdat->dstr_3352__PAIR_HEAD;
-  cdat->dstr_3352__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3352__PAIR_HEAD.val, "PAIR_HEAD", sizeof(cdat->dstr_3352__PAIR_HEAD.val)-1);
- 
- /*iniobj dsym_3353__PAIR_TAIL*/
- if (!/*_.VALDATA___V3359*/ curfptr[3358]) /*_.VALDATA___V3359*/ curfptr[3358] = (void*)&cdat->dsym_3353__PAIR_TAIL;
-  melt_assertmsg("iniobj checkdiscr dsym_3353__PAIR_TAIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3353__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3353__PAIR_TAIL.obj_hash = 403517666;
-  cdat->dsym_3353__PAIR_TAIL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3353__PAIR_TAIL));
- 
- /*inistring dstr_3354__PAIR_TAIL*/
- /*_.VALSTR___V3360*/ curfptr[3359] = (void*)&cdat->dstr_3354__PAIR_TAIL;
-  cdat->dstr_3354__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3354__PAIR_TAIL.val, "PAIR_TAIL", sizeof(cdat->dstr_3354__PAIR_TAIL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1819:/ iniobj");
- /*iniobj dobj_3355__PAIR_TAIL*/
- if (!/*_.VALDATA___V3361*/ curfptr[3360]) /*_.VALDATA___V3361*/ curfptr[3360] = (void*)&cdat->dobj_3355__PAIR_TAIL;
-  melt_assertmsg("iniobj checkdiscr dobj_3355__PAIR_TAIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3355__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3355__PAIR_TAIL.obj_hash = 1069557791;
-  cdat->dobj_3355__PAIR_TAIL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3355__PAIR_TAIL));
- 
- /*inimult dtup_3356__PAIR_TAIL*/
- /*_.VALTUP___V3367*/ curfptr[3366] = (void*)&cdat->dtup_3356__PAIR_TAIL;
-  cdat->dtup_3356__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3356__PAIR_TAIL.nbval = 3;
- /*inimult dtup_3357__PAIR_TAIL*/
- /*_.VALTUP___V3364*/ curfptr[3363] = (void*)&cdat->dtup_3357__PAIR_TAIL;
-  cdat->dtup_3357__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3357__PAIR_TAIL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1819:/ iniobj");
- /*iniobj dobj_3358*/
- if (!/*_.VALDATA___V3363*/ curfptr[3362]) /*_.VALDATA___V3363*/ curfptr[3362] = (void*)&cdat->dobj_3358;
-  melt_assertmsg("iniobj checkdiscr dobj_3358", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3358.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3358.obj_num = 0;
-  cdat->dobj_3358.obj_hash = 973091070;
-  cdat->dobj_3358.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3358));
- 
- /*inistring dstr_3359__melt_pair_tail_*/
- /*_.VALSTR___V3365*/ curfptr[3364] = (void*)&cdat->dstr_3359__melt_pair_tail_;
-  cdat->dstr_3359__melt_pair_tail_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3359__melt_pair_tail_.val, "(melt_pair_tail((melt_ptr_t)(", sizeof(cdat->dstr_3359__melt_pair_tail_.val)-1);
- 
- /*inistring dstr_3360__*/
- /*_.VALSTR___V3366*/ curfptr[3365] = (void*)&cdat->dstr_3360__;
-  cdat->dstr_3360__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3360__.val, ")))", sizeof(cdat->dstr_3360__.val)-1);
- 
- /*inistring dstr_3361__PAIR_TAIL*/
- /*_.VALSTR___V3362*/ curfptr[3361] = (void*)&cdat->dstr_3361__PAIR_TAIL;
-  cdat->dstr_3361__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3361__PAIR_TAIL.val, "PAIR_TAIL", sizeof(cdat->dstr_3361__PAIR_TAIL.val)-1);
- 
- /*iniobj dsym_3362__PAIR_SET_HEAD*/
- if (!/*_.VALDATA___V3368*/ curfptr[3367]) /*_.VALDATA___V3368*/ curfptr[3367] = (void*)&cdat->dsym_3362__PAIR_SET_HEAD;
-  melt_assertmsg("iniobj checkdiscr dsym_3362__PAIR_SET_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3362__PAIR_SET_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3362__PAIR_SET_HEAD.obj_hash = 992263149;
-  cdat->dsym_3362__PAIR_SET_HEAD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3362__PAIR_SET_HEAD));
- 
- /*inistring dstr_3363__PAIR_SET_HEAD*/
- /*_.VALSTR___V3369*/ curfptr[3368] = (void*)&cdat->dstr_3363__PAIR_SET_HEAD;
-  cdat->dstr_3363__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3363__PAIR_SET_HEAD.val, "PAIR_SET_HEAD", sizeof(cdat->dstr_3363__PAIR_SET_HEAD.val)-1);
+ /*iniobj dobj_3261*/
+ if (!/*_.VALDATA___V3266*/ curfptr[3265]) /*_.VALDATA___V3266*/ curfptr[3265] = (void*)&cdat->dobj_3261;
+  melt_assertmsg("iniobj checkdiscr dobj_3261", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3261.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3261.obj_num = 0;
+  cdat->dobj_3261.obj_hash = 1014847330;
+  cdat->dobj_3261.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3261));
+ 
+ /*inistring dstr_3262__melt_list_first*/
+ /*_.VALSTR___V3268*/ curfptr[3267] = (void*)&cdat->dstr_3262__melt_list_first;
+  cdat->dstr_3262__melt_list_first.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3262__melt_list_first.val, "(melt_list_first((melt_ptr_t)(", sizeof(cdat->dstr_3262__melt_list_first.val)-1);
+ 
+ /*inistring dstr_3263__*/
+ /*_.VALSTR___V3269*/ curfptr[3268] = (void*)&cdat->dstr_3263__;
+  cdat->dstr_3263__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3263__.val, ")))", sizeof(cdat->dstr_3263__.val)-1);
+ 
+ /*inistring dstr_3264__LIST_FIRST*/
+ /*_.VALSTR___V3265*/ curfptr[3264] = (void*)&cdat->dstr_3264__LIST_FIRST;
+  cdat->dstr_3264__LIST_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3264__LIST_FIRST.val, "LIST_FIRST", sizeof(cdat->dstr_3264__LIST_FIRST.val)-1);
+ 
+ /*iniobj dsym_3265__LIST_LAST*/
+ if (!/*_.VALDATA___V3271*/ curfptr[3270]) /*_.VALDATA___V3271*/ curfptr[3270] = (void*)&cdat->dsym_3265__LIST_LAST;
+  melt_assertmsg("iniobj checkdiscr dsym_3265__LIST_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3265__LIST_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3265__LIST_LAST.obj_hash = 540589939;
+  cdat->dsym_3265__LIST_LAST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3265__LIST_LAST));
+ 
+ /*inistring dstr_3266__LIST_LAST*/
+ /*_.VALSTR___V3272*/ curfptr[3271] = (void*)&cdat->dstr_3266__LIST_LAST;
+  cdat->dstr_3266__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3266__LIST_LAST.val, "LIST_LAST", sizeof(cdat->dstr_3266__LIST_LAST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1779:/ iniobj");
+ /*iniobj dobj_3267__LIST_LAST*/
+ if (!/*_.VALDATA___V3273*/ curfptr[3272]) /*_.VALDATA___V3273*/ curfptr[3272] = (void*)&cdat->dobj_3267__LIST_LAST;
+  melt_assertmsg("iniobj checkdiscr dobj_3267__LIST_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3267__LIST_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3267__LIST_LAST.obj_hash = 822624572;
+  cdat->dobj_3267__LIST_LAST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3267__LIST_LAST));
+ 
+ /*inimult dtup_3268__LIST_LAST*/
+ /*_.VALTUP___V3279*/ curfptr[3278] = (void*)&cdat->dtup_3268__LIST_LAST;
+  cdat->dtup_3268__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3268__LIST_LAST.nbval = 3;
+ /*inimult dtup_3269__LIST_LAST*/
+ /*_.VALTUP___V3276*/ curfptr[3275] = (void*)&cdat->dtup_3269__LIST_LAST;
+  cdat->dtup_3269__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3269__LIST_LAST.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1779:/ iniobj");
+ /*iniobj dobj_3270*/
+ if (!/*_.VALDATA___V3275*/ curfptr[3274]) /*_.VALDATA___V3275*/ curfptr[3274] = (void*)&cdat->dobj_3270;
+  melt_assertmsg("iniobj checkdiscr dobj_3270", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3270.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3270.obj_num = 0;
+  cdat->dobj_3270.obj_hash = 117005524;
+  cdat->dobj_3270.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3270));
+ 
+ /*inistring dstr_3271__melt_list_last_*/
+ /*_.VALSTR___V3277*/ curfptr[3276] = (void*)&cdat->dstr_3271__melt_list_last_;
+  cdat->dstr_3271__melt_list_last_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3271__melt_list_last_.val, "(melt_list_last((melt_ptr_t)(", sizeof(cdat->dstr_3271__melt_list_last_.val)-1);
+ 
+ /*inistring dstr_3272__*/
+ /*_.VALSTR___V3278*/ curfptr[3277] = (void*)&cdat->dstr_3272__;
+  cdat->dstr_3272__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3272__.val, ")))", sizeof(cdat->dstr_3272__.val)-1);
+ 
+ /*inistring dstr_3273__LIST_LAST*/
+ /*_.VALSTR___V3274*/ curfptr[3273] = (void*)&cdat->dstr_3273__LIST_LAST;
+  cdat->dstr_3273__LIST_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3273__LIST_LAST.val, "LIST_LAST", sizeof(cdat->dstr_3273__LIST_LAST.val)-1);
+ 
+ /*iniobj dsym_3274__LIST_LENGTH*/
+ if (!/*_.VALDATA___V3280*/ curfptr[3279]) /*_.VALDATA___V3280*/ curfptr[3279] = (void*)&cdat->dsym_3274__LIST_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_3274__LIST_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3274__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3274__LIST_LENGTH.obj_hash = 933284122;
+  cdat->dsym_3274__LIST_LENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3274__LIST_LENGTH));
+ 
+ /*inistring dstr_3275__LIST_LENGTH*/
+ /*_.VALSTR___V3281*/ curfptr[3280] = (void*)&cdat->dstr_3275__LIST_LENGTH;
+  cdat->dstr_3275__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3275__LIST_LENGTH.val, "LIST_LENGTH", sizeof(cdat->dstr_3275__LIST_LENGTH.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1783:/ iniobj");
+ /*iniobj dobj_3276__LIST_LENGTH*/
+ if (!/*_.VALDATA___V3282*/ curfptr[3281]) /*_.VALDATA___V3282*/ curfptr[3281] = (void*)&cdat->dobj_3276__LIST_LENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_3276__LIST_LENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3276__LIST_LENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3276__LIST_LENGTH.obj_hash = 538096489;
+  cdat->dobj_3276__LIST_LENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3276__LIST_LENGTH));
+ 
+ /*inimult dtup_3277__LIST_LENGTH*/
+ /*_.VALTUP___V3288*/ curfptr[3287] = (void*)&cdat->dtup_3277__LIST_LENGTH;
+  cdat->dtup_3277__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3277__LIST_LENGTH.nbval = 3;
+ /*inimult dtup_3278__LIST_LENGTH*/
+ /*_.VALTUP___V3285*/ curfptr[3284] = (void*)&cdat->dtup_3278__LIST_LENGTH;
+  cdat->dtup_3278__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3278__LIST_LENGTH.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1783:/ iniobj");
+ /*iniobj dobj_3279*/
+ if (!/*_.VALDATA___V3284*/ curfptr[3283]) /*_.VALDATA___V3284*/ curfptr[3283] = (void*)&cdat->dobj_3279;
+  melt_assertmsg("iniobj checkdiscr dobj_3279", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3279.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3279.obj_num = 0;
+  cdat->dobj_3279.obj_hash = 772852826;
+  cdat->dobj_3279.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3279));
+ 
+ /*inistring dstr_3280__melt_list_lengt*/
+ /*_.VALSTR___V3286*/ curfptr[3285] = (void*)&cdat->dstr_3280__melt_list_lengt;
+  cdat->dstr_3280__melt_list_lengt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3280__melt_list_lengt.val, "(melt_list_length((melt_ptr_t)(", sizeof(cdat->dstr_3280__melt_list_lengt.val)-1);
+ 
+ /*inistring dstr_3281__*/
+ /*_.VALSTR___V3287*/ curfptr[3286] = (void*)&cdat->dstr_3281__;
+  cdat->dstr_3281__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3281__.val, ")))", sizeof(cdat->dstr_3281__.val)-1);
+ 
+ /*inistring dstr_3282__LIST_LENGTH*/
+ /*_.VALSTR___V3283*/ curfptr[3282] = (void*)&cdat->dstr_3282__LIST_LENGTH;
+  cdat->dstr_3282__LIST_LENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3282__LIST_LENGTH.val, "LIST_LENGTH", sizeof(cdat->dstr_3282__LIST_LENGTH.val)-1);
+ 
+ /*iniobj dsym_3283__LIST_APPEND*/
+ if (!/*_.VALDATA___V3289*/ curfptr[3288]) /*_.VALDATA___V3289*/ curfptr[3288] = (void*)&cdat->dsym_3283__LIST_APPEND;
+  melt_assertmsg("iniobj checkdiscr dsym_3283__LIST_APPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3283__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3283__LIST_APPEND.obj_hash = 56487139;
+  cdat->dsym_3283__LIST_APPEND.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3283__LIST_APPEND));
+ 
+ /*inistring dstr_3284__LIST_APPEND*/
+ /*_.VALSTR___V3290*/ curfptr[3289] = (void*)&cdat->dstr_3284__LIST_APPEND;
+  cdat->dstr_3284__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3284__LIST_APPEND.val, "LIST_APPEND", sizeof(cdat->dstr_3284__LIST_APPEND.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1787:/ iniobj");
+ /*iniobj dobj_3285__LIST_APPEND*/
+ if (!/*_.VALDATA___V3291*/ curfptr[3290]) /*_.VALDATA___V3291*/ curfptr[3290] = (void*)&cdat->dobj_3285__LIST_APPEND;
+  melt_assertmsg("iniobj checkdiscr dobj_3285__LIST_APPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3285__LIST_APPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3285__LIST_APPEND.obj_hash = 792459060;
+  cdat->dobj_3285__LIST_APPEND.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3285__LIST_APPEND));
+ 
+ /*inimult dtup_3286__LIST_APPEND*/
+ /*_.VALTUP___V3301*/ curfptr[3300] = (void*)&cdat->dtup_3286__LIST_APPEND;
+  cdat->dtup_3286__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3286__LIST_APPEND.nbval = 5;
+ /*inimult dtup_3287__LIST_APPEND*/
+ /*_.VALTUP___V3297*/ curfptr[3296] = (void*)&cdat->dtup_3287__LIST_APPEND;
+  cdat->dtup_3287__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3287__LIST_APPEND.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1787:/ iniobj");
+ /*iniobj dobj_3288*/
+ if (!/*_.VALDATA___V3293*/ curfptr[3292]) /*_.VALDATA___V3293*/ curfptr[3292] = (void*)&cdat->dobj_3288;
+  melt_assertmsg("iniobj checkdiscr dobj_3288", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3288.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3288.obj_num = 0;
+  cdat->dobj_3288.obj_hash = 492718372;
+  cdat->dobj_3288.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3288));
+ 
+ /*iniobj dsym_3289__EL*/
+ if (!/*_.VALDATA___V3295*/ curfptr[3294]) /*_.VALDATA___V3295*/ curfptr[3294] = (void*)&cdat->dsym_3289__EL;
+  melt_assertmsg("iniobj checkdiscr dsym_3289__EL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3289__EL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3289__EL.obj_hash = 15029533;
+  cdat->dsym_3289__EL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3289__EL));
+ 
+ /*inistring dstr_3290__EL*/
+ /*_.VALSTR___V3296*/ curfptr[3295] = (void*)&cdat->dstr_3290__EL;
+  cdat->dstr_3290__EL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3290__EL.val, "EL", sizeof(cdat->dstr_3290__EL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1787:/ iniobj");
+ /*iniobj dobj_3291*/
+ if (!/*_.VALDATA___V3294*/ curfptr[3293]) /*_.VALDATA___V3294*/ curfptr[3293] = (void*)&cdat->dobj_3291;
+  melt_assertmsg("iniobj checkdiscr dobj_3291", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3291.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3291.obj_num = 1;
+  cdat->dobj_3291.obj_hash = 334298246;
+  cdat->dobj_3291.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3291));
+ 
+ /*inistring dstr_3292__meltgc_append_li*/
+ /*_.VALSTR___V3298*/ curfptr[3297] = (void*)&cdat->dstr_3292__meltgc_append_li;
+  cdat->dstr_3292__meltgc_append_li.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3292__meltgc_append_li.val, "meltgc_append_list((melt_ptr_t)(", sizeof(cdat->dstr_3292__meltgc_append_li.val)-1);
+ 
+ /*inistring dstr_3293__melt_ptr_t_*/
+ /*_.VALSTR___V3299*/ curfptr[3298] = (void*)&cdat->dstr_3293__melt_ptr_t_;
+  cdat->dstr_3293__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3293__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3293__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3294__*/
+ /*_.VALSTR___V3300*/ curfptr[3299] = (void*)&cdat->dstr_3294__;
+  cdat->dstr_3294__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3294__.val, "))", sizeof(cdat->dstr_3294__.val)-1);
+ 
+ /*inistring dstr_3295__LIST_APPEND*/
+ /*_.VALSTR___V3292*/ curfptr[3291] = (void*)&cdat->dstr_3295__LIST_APPEND;
+  cdat->dstr_3295__LIST_APPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3295__LIST_APPEND.val, "LIST_APPEND", sizeof(cdat->dstr_3295__LIST_APPEND.val)-1);
+ 
+ /*iniobj dsym_3296__LIST_PREPEND*/
+ if (!/*_.VALDATA___V3302*/ curfptr[3301]) /*_.VALDATA___V3302*/ curfptr[3301] = (void*)&cdat->dsym_3296__LIST_PREPEND;
+  melt_assertmsg("iniobj checkdiscr dsym_3296__LIST_PREPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3296__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3296__LIST_PREPEND.obj_hash = 1063959021;
+  cdat->dsym_3296__LIST_PREPEND.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3296__LIST_PREPEND));
+ 
+ /*inistring dstr_3297__LIST_PREPEND*/
+ /*_.VALSTR___V3303*/ curfptr[3302] = (void*)&cdat->dstr_3297__LIST_PREPEND;
+  cdat->dstr_3297__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3297__LIST_PREPEND.val, "LIST_PREPEND", sizeof(cdat->dstr_3297__LIST_PREPEND.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1791:/ iniobj");
+ /*iniobj dobj_3298__LIST_PREPEND*/
+ if (!/*_.VALDATA___V3304*/ curfptr[3303]) /*_.VALDATA___V3304*/ curfptr[3303] = (void*)&cdat->dobj_3298__LIST_PREPEND;
+  melt_assertmsg("iniobj checkdiscr dobj_3298__LIST_PREPEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3298__LIST_PREPEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3298__LIST_PREPEND.obj_hash = 612292931;
+  cdat->dobj_3298__LIST_PREPEND.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3298__LIST_PREPEND));
+ 
+ /*inimult dtup_3299__LIST_PREPEND*/
+ /*_.VALTUP___V3312*/ curfptr[3311] = (void*)&cdat->dtup_3299__LIST_PREPEND;
+  cdat->dtup_3299__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3299__LIST_PREPEND.nbval = 5;
+ /*inimult dtup_3300__LIST_PREPEND*/
+ /*_.VALTUP___V3308*/ curfptr[3307] = (void*)&cdat->dtup_3300__LIST_PREPEND;
+  cdat->dtup_3300__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3300__LIST_PREPEND.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1791:/ iniobj");
+ /*iniobj dobj_3301*/
+ if (!/*_.VALDATA___V3306*/ curfptr[3305]) /*_.VALDATA___V3306*/ curfptr[3305] = (void*)&cdat->dobj_3301;
+  melt_assertmsg("iniobj checkdiscr dobj_3301", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3301.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3301.obj_num = 0;
+  cdat->dobj_3301.obj_hash = 614055740;
+  cdat->dobj_3301.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3301));
+ 
+ MELT_LOCATION("warmelt-first.melt:1791:/ iniobj");
+ /*iniobj dobj_3302*/
+ if (!/*_.VALDATA___V3307*/ curfptr[3306]) /*_.VALDATA___V3307*/ curfptr[3306] = (void*)&cdat->dobj_3302;
+  melt_assertmsg("iniobj checkdiscr dobj_3302", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3302.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3302.obj_num = 1;
+  cdat->dobj_3302.obj_hash = 192894830;
+  cdat->dobj_3302.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3302));
+ 
+ /*inistring dstr_3303__meltgc_prepend_l*/
+ /*_.VALSTR___V3309*/ curfptr[3308] = (void*)&cdat->dstr_3303__meltgc_prepend_l;
+  cdat->dstr_3303__meltgc_prepend_l.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3303__meltgc_prepend_l.val, "meltgc_prepend_list((melt_ptr_t)(", sizeof(cdat->dstr_3303__meltgc_prepend_l.val)-1);
+ 
+ /*inistring dstr_3304__melt_ptr_t_*/
+ /*_.VALSTR___V3310*/ curfptr[3309] = (void*)&cdat->dstr_3304__melt_ptr_t_;
+  cdat->dstr_3304__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3304__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3304__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3305__*/
+ /*_.VALSTR___V3311*/ curfptr[3310] = (void*)&cdat->dstr_3305__;
+  cdat->dstr_3305__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3305__.val, "))", sizeof(cdat->dstr_3305__.val)-1);
+ 
+ /*inistring dstr_3306__LIST_PREPEND*/
+ /*_.VALSTR___V3305*/ curfptr[3304] = (void*)&cdat->dstr_3306__LIST_PREPEND;
+  cdat->dstr_3306__LIST_PREPEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3306__LIST_PREPEND.val, "LIST_PREPEND", sizeof(cdat->dstr_3306__LIST_PREPEND.val)-1);
+ 
+ /*iniobj dsym_3307__LIST_POPFIRST*/
+ if (!/*_.VALDATA___V3313*/ curfptr[3312]) /*_.VALDATA___V3313*/ curfptr[3312] = (void*)&cdat->dsym_3307__LIST_POPFIRST;
+  melt_assertmsg("iniobj checkdiscr dsym_3307__LIST_POPFIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3307__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3307__LIST_POPFIRST.obj_hash = 862248144;
+  cdat->dsym_3307__LIST_POPFIRST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3307__LIST_POPFIRST));
+ 
+ /*inistring dstr_3308__LIST_POPFIRST*/
+ /*_.VALSTR___V3314*/ curfptr[3313] = (void*)&cdat->dstr_3308__LIST_POPFIRST;
+  cdat->dstr_3308__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3308__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof(cdat->dstr_3308__LIST_POPFIRST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1795:/ iniobj");
+ /*iniobj dobj_3309__LIST_POPFIRST*/
+ if (!/*_.VALDATA___V3315*/ curfptr[3314]) /*_.VALDATA___V3315*/ curfptr[3314] = (void*)&cdat->dobj_3309__LIST_POPFIRST;
+  melt_assertmsg("iniobj checkdiscr dobj_3309__LIST_POPFIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3309__LIST_POPFIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3309__LIST_POPFIRST.obj_hash = 865856859;
+  cdat->dobj_3309__LIST_POPFIRST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3309__LIST_POPFIRST));
+ 
+ /*inimult dtup_3310__LIST_POPFIRST*/
+ /*_.VALTUP___V3321*/ curfptr[3320] = (void*)&cdat->dtup_3310__LIST_POPFIRST;
+  cdat->dtup_3310__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3310__LIST_POPFIRST.nbval = 3;
+ /*inimult dtup_3311__LIST_POPFIRST*/
+ /*_.VALTUP___V3318*/ curfptr[3317] = (void*)&cdat->dtup_3311__LIST_POPFIRST;
+  cdat->dtup_3311__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3311__LIST_POPFIRST.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1795:/ iniobj");
+ /*iniobj dobj_3312*/
+ if (!/*_.VALDATA___V3317*/ curfptr[3316]) /*_.VALDATA___V3317*/ curfptr[3316] = (void*)&cdat->dobj_3312;
+  melt_assertmsg("iniobj checkdiscr dobj_3312", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3312.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3312.obj_num = 0;
+  cdat->dobj_3312.obj_hash = 774243430;
+  cdat->dobj_3312.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3312));
+ 
+ /*inistring dstr_3313__meltgc_popfirst*/
+ /*_.VALSTR___V3319*/ curfptr[3318] = (void*)&cdat->dstr_3313__meltgc_popfirst;
+  cdat->dstr_3313__meltgc_popfirst.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3313__meltgc_popfirst.val, "(meltgc_popfirst_list((melt_ptr_t)(", sizeof(cdat->dstr_3313__meltgc_popfirst.val)-1);
+ 
+ /*inistring dstr_3314__*/
+ /*_.VALSTR___V3320*/ curfptr[3319] = (void*)&cdat->dstr_3314__;
+  cdat->dstr_3314__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3314__.val, ")))", sizeof(cdat->dstr_3314__.val)-1);
+ 
+ /*inistring dstr_3315__LIST_POPFIRST*/
+ /*_.VALSTR___V3316*/ curfptr[3315] = (void*)&cdat->dstr_3315__LIST_POPFIRST;
+  cdat->dstr_3315__LIST_POPFIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3315__LIST_POPFIRST.val, "LIST_POPFIRST", sizeof(cdat->dstr_3315__LIST_POPFIRST.val)-1);
+ 
+ /*iniobj dsym_3316__MAKE_LIST*/
+ if (!/*_.VALDATA___V3322*/ curfptr[3321]) /*_.VALDATA___V3322*/ curfptr[3321] = (void*)&cdat->dsym_3316__MAKE_LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_3316__MAKE_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3316__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3316__MAKE_LIST.obj_hash = 184573384;
+  cdat->dsym_3316__MAKE_LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3316__MAKE_LIST));
+ 
+ /*inistring dstr_3317__MAKE_LIST*/
+ /*_.VALSTR___V3323*/ curfptr[3322] = (void*)&cdat->dstr_3317__MAKE_LIST;
+  cdat->dstr_3317__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3317__MAKE_LIST.val, "MAKE_LIST", sizeof(cdat->dstr_3317__MAKE_LIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1799:/ iniobj");
+ /*iniobj dobj_3318__MAKE_LIST*/
+ if (!/*_.VALDATA___V3324*/ curfptr[3323]) /*_.VALDATA___V3324*/ curfptr[3323] = (void*)&cdat->dobj_3318__MAKE_LIST;
+  melt_assertmsg("iniobj checkdiscr dobj_3318__MAKE_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3318__MAKE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3318__MAKE_LIST.obj_hash = 424224611;
+  cdat->dobj_3318__MAKE_LIST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3318__MAKE_LIST));
+ 
+ /*inimult dtup_3319__MAKE_LIST*/
+ /*_.VALTUP___V3330*/ curfptr[3329] = (void*)&cdat->dtup_3319__MAKE_LIST;
+  cdat->dtup_3319__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3319__MAKE_LIST.nbval = 3;
+ /*inimult dtup_3320__MAKE_LIST*/
+ /*_.VALTUP___V3327*/ curfptr[3326] = (void*)&cdat->dtup_3320__MAKE_LIST;
+  cdat->dtup_3320__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3320__MAKE_LIST.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1799:/ iniobj");
+ /*iniobj dobj_3321*/
+ if (!/*_.VALDATA___V3326*/ curfptr[3325]) /*_.VALDATA___V3326*/ curfptr[3325] = (void*)&cdat->dobj_3321;
+  melt_assertmsg("iniobj checkdiscr dobj_3321", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3321.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3321.obj_num = 0;
+  cdat->dobj_3321.obj_hash = 1069742364;
+  cdat->dobj_3321.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3321));
+ 
+ /*inistring dstr_3322__meltgc_new_list*/
+ /*_.VALSTR___V3328*/ curfptr[3327] = (void*)&cdat->dstr_3322__meltgc_new_list;
+  cdat->dstr_3322__meltgc_new_list.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3322__meltgc_new_list.val, "(meltgc_new_list((meltobject_ptr_t)(", sizeof(cdat->dstr_3322__meltgc_new_list.val)-1);
+ 
+ /*inistring dstr_3323__*/
+ /*_.VALSTR___V3329*/ curfptr[3328] = (void*)&cdat->dstr_3323__;
+  cdat->dstr_3323__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3323__.val, ")))", sizeof(cdat->dstr_3323__.val)-1);
+ 
+ /*inistring dstr_3324__MAKE_LIST*/
+ /*_.VALSTR___V3325*/ curfptr[3324] = (void*)&cdat->dstr_3324__MAKE_LIST;
+  cdat->dstr_3324__MAKE_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3324__MAKE_LIST.val, "MAKE_LIST", sizeof(cdat->dstr_3324__MAKE_LIST.val)-1);
+ 
+ /*iniobj dsym_3325__IS_PAIR*/
+ if (!/*_.VALDATA___V3331*/ curfptr[3330]) /*_.VALDATA___V3331*/ curfptr[3330] = (void*)&cdat->dsym_3325__IS_PAIR;
+  melt_assertmsg("iniobj checkdiscr dsym_3325__IS_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3325__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3325__IS_PAIR.obj_hash = 135748880;
+  cdat->dsym_3325__IS_PAIR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3325__IS_PAIR));
+ 
+ /*inistring dstr_3326__IS_PAIR*/
+ /*_.VALSTR___V3332*/ curfptr[3331] = (void*)&cdat->dstr_3326__IS_PAIR;
+  cdat->dstr_3326__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3326__IS_PAIR.val, "IS_PAIR", sizeof(cdat->dstr_3326__IS_PAIR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1806:/ iniobj");
+ /*iniobj dobj_3327__IS_PAIR*/
+ if (!/*_.VALDATA___V3333*/ curfptr[3332]) /*_.VALDATA___V3333*/ curfptr[3332] = (void*)&cdat->dobj_3327__IS_PAIR;
+  melt_assertmsg("iniobj checkdiscr dobj_3327__IS_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3327__IS_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3327__IS_PAIR.obj_hash = 1017548084;
+  cdat->dobj_3327__IS_PAIR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3327__IS_PAIR));
+ 
+ /*inimult dtup_3328__IS_PAIR*/
+ /*_.VALTUP___V3341*/ curfptr[3340] = (void*)&cdat->dtup_3328__IS_PAIR;
+  cdat->dtup_3328__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3328__IS_PAIR.nbval = 3;
+ /*inimult dtup_3329__IS_PAIR*/
+ /*_.VALTUP___V3338*/ curfptr[3337] = (void*)&cdat->dtup_3329__IS_PAIR;
+  cdat->dtup_3329__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3329__IS_PAIR.nbval = 1;
+ /*iniobj dsym_3330__PA*/
+ if (!/*_.VALDATA___V3336*/ curfptr[3335]) /*_.VALDATA___V3336*/ curfptr[3335] = (void*)&cdat->dsym_3330__PA;
+  melt_assertmsg("iniobj checkdiscr dsym_3330__PA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3330__PA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3330__PA.obj_hash = 94633376;
+  cdat->dsym_3330__PA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3330__PA));
+ 
+ /*inistring dstr_3331__PA*/
+ /*_.VALSTR___V3337*/ curfptr[3336] = (void*)&cdat->dstr_3331__PA;
+  cdat->dstr_3331__PA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3331__PA.val, "PA", sizeof(cdat->dstr_3331__PA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1806:/ iniobj");
+ /*iniobj dobj_3332*/
+ if (!/*_.VALDATA___V3335*/ curfptr[3334]) /*_.VALDATA___V3335*/ curfptr[3334] = (void*)&cdat->dobj_3332;
+  melt_assertmsg("iniobj checkdiscr dobj_3332", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3332.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3332.obj_num = 0;
+  cdat->dobj_3332.obj_hash = 31363196;
+  cdat->dobj_3332.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3332));
+ 
+ /*inistring dstr_3333__melt_magic_disc*/
+ /*_.VALSTR___V3339*/ curfptr[3338] = (void*)&cdat->dstr_3333__melt_magic_disc;
+  cdat->dstr_3333__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3333__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3333__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3334__OBMAG_PAIR*/
+ /*_.VALSTR___V3340*/ curfptr[3339] = (void*)&cdat->dstr_3334__OBMAG_PAIR;
+  cdat->dstr_3334__OBMAG_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3334__OBMAG_PAIR.val, ")) == OBMAG_PAIR)", sizeof(cdat->dstr_3334__OBMAG_PAIR.val)-1);
+ 
+ /*inistring dstr_3335__IS_PAIR*/
+ /*_.VALSTR___V3334*/ curfptr[3333] = (void*)&cdat->dstr_3335__IS_PAIR;
+  cdat->dstr_3335__IS_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3335__IS_PAIR.val, "IS_PAIR", sizeof(cdat->dstr_3335__IS_PAIR.val)-1);
+ 
+ /*iniobj dsym_3336__PAIR_HEAD*/
+ if (!/*_.VALDATA___V3342*/ curfptr[3341]) /*_.VALDATA___V3342*/ curfptr[3341] = (void*)&cdat->dsym_3336__PAIR_HEAD;
+  melt_assertmsg("iniobj checkdiscr dsym_3336__PAIR_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3336__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3336__PAIR_HEAD.obj_hash = 1025514553;
+  cdat->dsym_3336__PAIR_HEAD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3336__PAIR_HEAD));
+ 
+ /*inistring dstr_3337__PAIR_HEAD*/
+ /*_.VALSTR___V3343*/ curfptr[3342] = (void*)&cdat->dstr_3337__PAIR_HEAD;
+  cdat->dstr_3337__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3337__PAIR_HEAD.val, "PAIR_HEAD", sizeof(cdat->dstr_3337__PAIR_HEAD.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1810:/ iniobj");
+ /*iniobj dobj_3338__PAIR_HEAD*/
+ if (!/*_.VALDATA___V3344*/ curfptr[3343]) /*_.VALDATA___V3344*/ curfptr[3343] = (void*)&cdat->dobj_3338__PAIR_HEAD;
+  melt_assertmsg("iniobj checkdiscr dobj_3338__PAIR_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3338__PAIR_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3338__PAIR_HEAD.obj_hash = 179716838;
+  cdat->dobj_3338__PAIR_HEAD.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3338__PAIR_HEAD));
+ 
+ /*inimult dtup_3339__PAIR_HEAD*/
+ /*_.VALTUP___V3350*/ curfptr[3349] = (void*)&cdat->dtup_3339__PAIR_HEAD;
+  cdat->dtup_3339__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3339__PAIR_HEAD.nbval = 3;
+ /*inimult dtup_3340__PAIR_HEAD*/
+ /*_.VALTUP___V3347*/ curfptr[3346] = (void*)&cdat->dtup_3340__PAIR_HEAD;
+  cdat->dtup_3340__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3340__PAIR_HEAD.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1810:/ iniobj");
+ /*iniobj dobj_3341*/
+ if (!/*_.VALDATA___V3346*/ curfptr[3345]) /*_.VALDATA___V3346*/ curfptr[3345] = (void*)&cdat->dobj_3341;
+  melt_assertmsg("iniobj checkdiscr dobj_3341", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3341.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3341.obj_num = 0;
+  cdat->dobj_3341.obj_hash = 124226767;
+  cdat->dobj_3341.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3341));
+ 
+ /*inistring dstr_3342__melt_pair_head_*/
+ /*_.VALSTR___V3348*/ curfptr[3347] = (void*)&cdat->dstr_3342__melt_pair_head_;
+  cdat->dstr_3342__melt_pair_head_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3342__melt_pair_head_.val, "(melt_pair_head((melt_ptr_t)(", sizeof(cdat->dstr_3342__melt_pair_head_.val)-1);
+ 
+ /*inistring dstr_3343__*/
+ /*_.VALSTR___V3349*/ curfptr[3348] = (void*)&cdat->dstr_3343__;
+  cdat->dstr_3343__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3343__.val, ")))", sizeof(cdat->dstr_3343__.val)-1);
+ 
+ /*inistring dstr_3344__PAIR_HEAD*/
+ /*_.VALSTR___V3345*/ curfptr[3344] = (void*)&cdat->dstr_3344__PAIR_HEAD;
+  cdat->dstr_3344__PAIR_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3344__PAIR_HEAD.val, "PAIR_HEAD", sizeof(cdat->dstr_3344__PAIR_HEAD.val)-1);
+ 
+ /*iniobj dsym_3345__PAIR_TAIL*/
+ if (!/*_.VALDATA___V3351*/ curfptr[3350]) /*_.VALDATA___V3351*/ curfptr[3350] = (void*)&cdat->dsym_3345__PAIR_TAIL;
+  melt_assertmsg("iniobj checkdiscr dsym_3345__PAIR_TAIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3345__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3345__PAIR_TAIL.obj_hash = 403517666;
+  cdat->dsym_3345__PAIR_TAIL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3345__PAIR_TAIL));
+ 
+ /*inistring dstr_3346__PAIR_TAIL*/
+ /*_.VALSTR___V3352*/ curfptr[3351] = (void*)&cdat->dstr_3346__PAIR_TAIL;
+  cdat->dstr_3346__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3346__PAIR_TAIL.val, "PAIR_TAIL", sizeof(cdat->dstr_3346__PAIR_TAIL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1814:/ iniobj");
+ /*iniobj dobj_3347__PAIR_TAIL*/
+ if (!/*_.VALDATA___V3353*/ curfptr[3352]) /*_.VALDATA___V3353*/ curfptr[3352] = (void*)&cdat->dobj_3347__PAIR_TAIL;
+  melt_assertmsg("iniobj checkdiscr dobj_3347__PAIR_TAIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3347__PAIR_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3347__PAIR_TAIL.obj_hash = 863720066;
+  cdat->dobj_3347__PAIR_TAIL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3347__PAIR_TAIL));
+ 
+ /*inimult dtup_3348__PAIR_TAIL*/
+ /*_.VALTUP___V3359*/ curfptr[3358] = (void*)&cdat->dtup_3348__PAIR_TAIL;
+  cdat->dtup_3348__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3348__PAIR_TAIL.nbval = 3;
+ /*inimult dtup_3349__PAIR_TAIL*/
+ /*_.VALTUP___V3356*/ curfptr[3355] = (void*)&cdat->dtup_3349__PAIR_TAIL;
+  cdat->dtup_3349__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3349__PAIR_TAIL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1814:/ iniobj");
+ /*iniobj dobj_3350*/
+ if (!/*_.VALDATA___V3355*/ curfptr[3354]) /*_.VALDATA___V3355*/ curfptr[3354] = (void*)&cdat->dobj_3350;
+  melt_assertmsg("iniobj checkdiscr dobj_3350", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3350.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3350.obj_num = 0;
+  cdat->dobj_3350.obj_hash = 218683069;
+  cdat->dobj_3350.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3350));
+ 
+ /*inistring dstr_3351__melt_pair_tail_*/
+ /*_.VALSTR___V3357*/ curfptr[3356] = (void*)&cdat->dstr_3351__melt_pair_tail_;
+  cdat->dstr_3351__melt_pair_tail_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3351__melt_pair_tail_.val, "(melt_pair_tail((melt_ptr_t)(", sizeof(cdat->dstr_3351__melt_pair_tail_.val)-1);
+ 
+ /*inistring dstr_3352__*/
+ /*_.VALSTR___V3358*/ curfptr[3357] = (void*)&cdat->dstr_3352__;
+  cdat->dstr_3352__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3352__.val, ")))", sizeof(cdat->dstr_3352__.val)-1);
+ 
+ /*inistring dstr_3353__PAIR_TAIL*/
+ /*_.VALSTR___V3354*/ curfptr[3353] = (void*)&cdat->dstr_3353__PAIR_TAIL;
+  cdat->dstr_3353__PAIR_TAIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3353__PAIR_TAIL.val, "PAIR_TAIL", sizeof(cdat->dstr_3353__PAIR_TAIL.val)-1);
+ 
+ /*iniobj dsym_3354__PAIR_SET_HEAD*/
+ if (!/*_.VALDATA___V3360*/ curfptr[3359]) /*_.VALDATA___V3360*/ curfptr[3359] = (void*)&cdat->dsym_3354__PAIR_SET_HEAD;
+  melt_assertmsg("iniobj checkdiscr dsym_3354__PAIR_SET_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3354__PAIR_SET_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3354__PAIR_SET_HEAD.obj_hash = 992263149;
+  cdat->dsym_3354__PAIR_SET_HEAD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3354__PAIR_SET_HEAD));
+ 
+ /*inistring dstr_3355__PAIR_SET_HEAD*/
+ /*_.VALSTR___V3361*/ curfptr[3360] = (void*)&cdat->dstr_3355__PAIR_SET_HEAD;
+  cdat->dstr_3355__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3355__PAIR_SET_HEAD.val, "PAIR_SET_HEAD", sizeof(cdat->dstr_3355__PAIR_SET_HEAD.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1818:/ iniobj");
+ /*iniobj dobj_3356__PAIR_SET_HEAD*/
+ if (!/*_.VALDATA___V3362*/ curfptr[3361]) /*_.VALDATA___V3362*/ curfptr[3361] = (void*)&cdat->dobj_3356__PAIR_SET_HEAD;
+  melt_assertmsg("iniobj checkdiscr dobj_3356__PAIR_SET_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3356__PAIR_SET_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3356__PAIR_SET_HEAD.obj_hash = 980633936;
+  cdat->dobj_3356__PAIR_SET_HEAD.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3356__PAIR_SET_HEAD));
+ 
+ /*inimult dtup_3357__PAIR_SET_HEAD*/
+ /*_.VALTUP___V3372*/ curfptr[3371] = (void*)&cdat->dtup_3357__PAIR_SET_HEAD;
+  cdat->dtup_3357__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3357__PAIR_SET_HEAD.nbval = 5;
+ /*inimult dtup_3358__PAIR_SET_HEAD*/
+ /*_.VALTUP___V3368*/ curfptr[3367] = (void*)&cdat->dtup_3358__PAIR_SET_HEAD;
+  cdat->dtup_3358__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3358__PAIR_SET_HEAD.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1818:/ iniobj");
+ /*iniobj dobj_3359*/
+ if (!/*_.VALDATA___V3364*/ curfptr[3363]) /*_.VALDATA___V3364*/ curfptr[3363] = (void*)&cdat->dobj_3359;
+  melt_assertmsg("iniobj checkdiscr dobj_3359", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3359.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3359.obj_num = 0;
+  cdat->dobj_3359.obj_hash = 433801402;
+  cdat->dobj_3359.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3359));
+ 
+ /*iniobj dsym_3360__HD*/
+ if (!/*_.VALDATA___V3366*/ curfptr[3365]) /*_.VALDATA___V3366*/ curfptr[3365] = (void*)&cdat->dsym_3360__HD;
+  melt_assertmsg("iniobj checkdiscr dsym_3360__HD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3360__HD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3360__HD.obj_hash = 82895791;
+  cdat->dsym_3360__HD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3360__HD));
+ 
+ /*inistring dstr_3361__HD*/
+ /*_.VALSTR___V3367*/ curfptr[3366] = (void*)&cdat->dstr_3361__HD;
+  cdat->dstr_3361__HD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3361__HD.val, "HD", sizeof(cdat->dstr_3361__HD.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1818:/ iniobj");
+ /*iniobj dobj_3362*/
+ if (!/*_.VALDATA___V3365*/ curfptr[3364]) /*_.VALDATA___V3365*/ curfptr[3364] = (void*)&cdat->dobj_3362;
+  melt_assertmsg("iniobj checkdiscr dobj_3362", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3362.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3362.obj_num = 1;
+  cdat->dobj_3362.obj_hash = 702433948;
+  cdat->dobj_3362.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3362));
+ 
+ /*inistring dstr_3363__meltgc_pair_set_*/
+ /*_.VALSTR___V3369*/ curfptr[3368] = (void*)&cdat->dstr_3363__meltgc_pair_set_;
+  cdat->dstr_3363__meltgc_pair_set_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3363__meltgc_pair_set_.val, "meltgc_pair_set_head((melt_ptr_t)(", sizeof(cdat->dstr_3363__meltgc_pair_set_.val)-1);
+ 
+ /*inistring dstr_3364__*/
+ /*_.VALSTR___V3370*/ curfptr[3369] = (void*)&cdat->dstr_3364__;
+  cdat->dstr_3364__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3364__.val, "), (", sizeof(cdat->dstr_3364__.val)-1);
+ 
+ /*inistring dstr_3365__*/
+ /*_.VALSTR___V3371*/ curfptr[3370] = (void*)&cdat->dstr_3365__;
+  cdat->dstr_3365__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3365__.val, "))", sizeof(cdat->dstr_3365__.val)-1);
+ 
+ /*inistring dstr_3366__PAIR_SET_HEAD*/
+ /*_.VALSTR___V3363*/ curfptr[3362] = (void*)&cdat->dstr_3366__PAIR_SET_HEAD;
+  cdat->dstr_3366__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3366__PAIR_SET_HEAD.val, "PAIR_SET_HEAD", sizeof(cdat->dstr_3366__PAIR_SET_HEAD.val)-1);
+ 
+ /*iniobj dsym_3367__PAIR_LISTLENGTH*/
+ if (!/*_.VALDATA___V3373*/ curfptr[3372]) /*_.VALDATA___V3373*/ curfptr[3372] = (void*)&cdat->dsym_3367__PAIR_LISTLENGTH;
+  melt_assertmsg("iniobj checkdiscr dsym_3367__PAIR_LISTLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3367__PAIR_LISTLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3367__PAIR_LISTLENGTH.obj_hash = 1062057201;
+  cdat->dsym_3367__PAIR_LISTLENGTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3367__PAIR_LISTLENGTH));
+ 
+ /*inistring dstr_3368__PAIR_LISTLENGTH*/
+ /*_.VALSTR___V3374*/ curfptr[3373] = (void*)&cdat->dstr_3368__PAIR_LISTLENGTH;
+  cdat->dstr_3368__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3368__PAIR_LISTLENGTH.val, "PAIR_LISTLENGTH", sizeof(cdat->dstr_3368__PAIR_LISTLENGTH.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1823:/ iniobj");
- /*iniobj dobj_3364__PAIR_SET_HEAD*/
- if (!/*_.VALDATA___V3370*/ curfptr[3369]) /*_.VALDATA___V3370*/ curfptr[3369] = (void*)&cdat->dobj_3364__PAIR_SET_HEAD;
-  melt_assertmsg("iniobj checkdiscr dobj_3364__PAIR_SET_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3364__PAIR_SET_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3364__PAIR_SET_HEAD.obj_hash = 99201102;
-  cdat->dobj_3364__PAIR_SET_HEAD.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3364__PAIR_SET_HEAD));
- 
- /*inimult dtup_3365__PAIR_SET_HEAD*/
- /*_.VALTUP___V3380*/ curfptr[3379] = (void*)&cdat->dtup_3365__PAIR_SET_HEAD;
-  cdat->dtup_3365__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3365__PAIR_SET_HEAD.nbval = 5;
- /*inimult dtup_3366__PAIR_SET_HEAD*/
- /*_.VALTUP___V3376*/ curfptr[3375] = (void*)&cdat->dtup_3366__PAIR_SET_HEAD;
-  cdat->dtup_3366__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3366__PAIR_SET_HEAD.nbval = 2;
+ /*iniobj dobj_3369__PAIR_LISTLENGTH*/
+ if (!/*_.VALDATA___V3375*/ curfptr[3374]) /*_.VALDATA___V3375*/ curfptr[3374] = (void*)&cdat->dobj_3369__PAIR_LISTLENGTH;
+  melt_assertmsg("iniobj checkdiscr dobj_3369__PAIR_LISTLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3369__PAIR_LISTLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3369__PAIR_LISTLENGTH.obj_hash = 880288072;
+  cdat->dobj_3369__PAIR_LISTLENGTH.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3369__PAIR_LISTLENGTH));
+ 
+ /*inimult dtup_3370__PAIR_LISTLENGTH*/
+ /*_.VALTUP___V3381*/ curfptr[3380] = (void*)&cdat->dtup_3370__PAIR_LISTLENGTH;
+  cdat->dtup_3370__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3370__PAIR_LISTLENGTH.nbval = 3;
+ /*inimult dtup_3371__PAIR_LISTLENGTH*/
+ /*_.VALTUP___V3378*/ curfptr[3377] = (void*)&cdat->dtup_3371__PAIR_LISTLENGTH;
+  cdat->dtup_3371__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3371__PAIR_LISTLENGTH.nbval = 1;
  MELT_LOCATION("warmelt-first.melt:1823:/ iniobj");
- /*iniobj dobj_3367*/
- if (!/*_.VALDATA___V3372*/ curfptr[3371]) /*_.VALDATA___V3372*/ curfptr[3371] = (void*)&cdat->dobj_3367;
-  melt_assertmsg("iniobj checkdiscr dobj_3367", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3367.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3367.obj_num = 0;
-  cdat->dobj_3367.obj_hash = 423785610;
-  cdat->dobj_3367.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3367));
- 
- /*iniobj dsym_3368__HD*/
- if (!/*_.VALDATA___V3374*/ curfptr[3373]) /*_.VALDATA___V3374*/ curfptr[3373] = (void*)&cdat->dsym_3368__HD;
-  melt_assertmsg("iniobj checkdiscr dsym_3368__HD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3368__HD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3368__HD.obj_hash = 82895791;
-  cdat->dsym_3368__HD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3368__HD));
- 
- /*inistring dstr_3369__HD*/
- /*_.VALSTR___V3375*/ curfptr[3374] = (void*)&cdat->dstr_3369__HD;
-  cdat->dstr_3369__HD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3369__HD.val, "HD", sizeof(cdat->dstr_3369__HD.val)-1);
+ /*iniobj dobj_3372*/
+ if (!/*_.VALDATA___V3377*/ curfptr[3376]) /*_.VALDATA___V3377*/ curfptr[3376] = (void*)&cdat->dobj_3372;
+  melt_assertmsg("iniobj checkdiscr dobj_3372", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3372.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3372.obj_num = 0;
+  cdat->dobj_3372.obj_hash = 78854950;
+  cdat->dobj_3372.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3372));
+ 
+ /*inistring dstr_3373__melt_pair_listl*/
+ /*_.VALSTR___V3379*/ curfptr[3378] = (void*)&cdat->dstr_3373__melt_pair_listl;
+  cdat->dstr_3373__melt_pair_listl.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3373__melt_pair_listl.val, "(melt_pair_listlength((melt_ptr_t)(", sizeof(cdat->dstr_3373__melt_pair_listl.val)-1);
+ 
+ /*inistring dstr_3374__*/
+ /*_.VALSTR___V3380*/ curfptr[3379] = (void*)&cdat->dstr_3374__;
+  cdat->dstr_3374__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3374__.val, ")))", sizeof(cdat->dstr_3374__.val)-1);
+ 
+ /*inistring dstr_3375__PAIR_LISTLENGTH*/
+ /*_.VALSTR___V3376*/ curfptr[3375] = (void*)&cdat->dstr_3375__PAIR_LISTLENGTH;
+  cdat->dstr_3375__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3375__PAIR_LISTLENGTH.val, "PAIR_LISTLENGTH", sizeof(cdat->dstr_3375__PAIR_LISTLENGTH.val)-1);
+ 
+ /*iniobj dsym_3376__MAKE_PAIR*/
+ if (!/*_.VALDATA___V3382*/ curfptr[3381]) /*_.VALDATA___V3382*/ curfptr[3381] = (void*)&cdat->dsym_3376__MAKE_PAIR;
+  melt_assertmsg("iniobj checkdiscr dsym_3376__MAKE_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3376__MAKE_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3376__MAKE_PAIR.obj_hash = 310715668;
+  cdat->dsym_3376__MAKE_PAIR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3376__MAKE_PAIR));
+ 
+ /*inistring dstr_3377__MAKE_PAIR*/
+ /*_.VALSTR___V3383*/ curfptr[3382] = (void*)&cdat->dstr_3377__MAKE_PAIR;
+  cdat->dstr_3377__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3377__MAKE_PAIR.val, "MAKE_PAIR", sizeof(cdat->dstr_3377__MAKE_PAIR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1827:/ iniobj");
+ /*iniobj dobj_3378__MAKE_PAIR*/
+ if (!/*_.VALDATA___V3384*/ curfptr[3383]) /*_.VALDATA___V3384*/ curfptr[3383] = (void*)&cdat->dobj_3378__MAKE_PAIR;
+  melt_assertmsg("iniobj checkdiscr dobj_3378__MAKE_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3378__MAKE_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3378__MAKE_PAIR.obj_hash = 843074676;
+  cdat->dobj_3378__MAKE_PAIR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3378__MAKE_PAIR));
+ 
+ /*inimult dtup_3379__MAKE_PAIR*/
+ /*_.VALTUP___V3396*/ curfptr[3395] = (void*)&cdat->dtup_3379__MAKE_PAIR;
+  cdat->dtup_3379__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3379__MAKE_PAIR.nbval = 7;
+ /*inimult dtup_3380__MAKE_PAIR*/
+ /*_.VALTUP___V3391*/ curfptr[3390] = (void*)&cdat->dtup_3380__MAKE_PAIR;
+  cdat->dtup_3380__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3380__MAKE_PAIR.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1827:/ iniobj");
+ /*iniobj dobj_3381*/
+ if (!/*_.VALDATA___V3386*/ curfptr[3385]) /*_.VALDATA___V3386*/ curfptr[3385] = (void*)&cdat->dobj_3381;
+  melt_assertmsg("iniobj checkdiscr dobj_3381", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3381.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3381.obj_num = 0;
+  cdat->dobj_3381.obj_hash = 534335125;
+  cdat->dobj_3381.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3381));
+ 
+ MELT_LOCATION("warmelt-first.melt:1827:/ iniobj");
+ /*iniobj dobj_3382*/
+ if (!/*_.VALDATA___V3387*/ curfptr[3386]) /*_.VALDATA___V3387*/ curfptr[3386] = (void*)&cdat->dobj_3382;
+  melt_assertmsg("iniobj checkdiscr dobj_3382", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3382.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3382.obj_num = 1;
+  cdat->dobj_3382.obj_hash = 279214143;
+  cdat->dobj_3382.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3382));
+ 
+ /*iniobj dsym_3383__TL*/
+ if (!/*_.VALDATA___V3389*/ curfptr[3388]) /*_.VALDATA___V3389*/ curfptr[3388] = (void*)&cdat->dsym_3383__TL;
+  melt_assertmsg("iniobj checkdiscr dsym_3383__TL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3383__TL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3383__TL.obj_hash = 6063274;
+  cdat->dsym_3383__TL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3383__TL));
+ 
+ /*inistring dstr_3384__TL*/
+ /*_.VALSTR___V3390*/ curfptr[3389] = (void*)&cdat->dstr_3384__TL;
+  cdat->dstr_3384__TL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3384__TL.val, "TL", sizeof(cdat->dstr_3384__TL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1827:/ iniobj");
+ /*iniobj dobj_3385*/
+ if (!/*_.VALDATA___V3388*/ curfptr[3387]) /*_.VALDATA___V3388*/ curfptr[3387] = (void*)&cdat->dobj_3385;
+  melt_assertmsg("iniobj checkdiscr dobj_3385", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3385.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3385.obj_num = 2;
+  cdat->dobj_3385.obj_hash = 765681789;
+  cdat->dobj_3385.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3385));
+ 
+ /*inistring dstr_3386__meltgc_new_pair*/
+ /*_.VALSTR___V3392*/ curfptr[3391] = (void*)&cdat->dstr_3386__meltgc_new_pair;
+  cdat->dstr_3386__meltgc_new_pair.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3386__meltgc_new_pair.val, "(meltgc_new_pair((meltobject_ptr_t)(", sizeof(cdat->dstr_3386__meltgc_new_pair.val)-1);
+ 
+ /*inistring dstr_3387__melt_ptr_t_*/
+ /*_.VALSTR___V3393*/ curfptr[3392] = (void*)&cdat->dstr_3387__melt_ptr_t_;
+  cdat->dstr_3387__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3387__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3387__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3388__melt_ptr_t_*/
+ /*_.VALSTR___V3394*/ curfptr[3393] = (void*)&cdat->dstr_3388__melt_ptr_t_;
+  cdat->dstr_3388__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3388__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3388__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3389__*/
+ /*_.VALSTR___V3395*/ curfptr[3394] = (void*)&cdat->dstr_3389__;
+  cdat->dstr_3389__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3389__.val, ")))", sizeof(cdat->dstr_3389__.val)-1);
+ 
+ /*inistring dstr_3390__MAKE_PAIR*/
+ /*_.VALSTR___V3385*/ curfptr[3384] = (void*)&cdat->dstr_3390__MAKE_PAIR;
+  cdat->dstr_3390__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3390__MAKE_PAIR.val, "MAKE_PAIR", sizeof(cdat->dstr_3390__MAKE_PAIR.val)-1);
+ 
+ /*iniobj dsym_3391__IS_MIXINT*/
+ if (!/*_.VALDATA___V3397*/ curfptr[3396]) /*_.VALDATA___V3397*/ curfptr[3396] = (void*)&cdat->dsym_3391__IS_MIXINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3391__IS_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3391__IS_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3391__IS_MIXINT.obj_hash = 842426558;
+  cdat->dsym_3391__IS_MIXINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3391__IS_MIXINT));
+ 
+ /*inistring dstr_3392__IS_MIXINT*/
+ /*_.VALSTR___V3398*/ curfptr[3397] = (void*)&cdat->dstr_3392__IS_MIXINT;
+  cdat->dstr_3392__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3392__IS_MIXINT.val, "IS_MIXINT", sizeof(cdat->dstr_3392__IS_MIXINT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1835:/ iniobj");
+ /*iniobj dobj_3393__IS_MIXINT*/
+ if (!/*_.VALDATA___V3399*/ curfptr[3398]) /*_.VALDATA___V3399*/ curfptr[3398] = (void*)&cdat->dobj_3393__IS_MIXINT;
+  melt_assertmsg("iniobj checkdiscr dobj_3393__IS_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3393__IS_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3393__IS_MIXINT.obj_hash = 641880436;
+  cdat->dobj_3393__IS_MIXINT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3393__IS_MIXINT));
+ 
+ /*inimult dtup_3394__IS_MIXINT*/
+ /*_.VALTUP___V3407*/ curfptr[3406] = (void*)&cdat->dtup_3394__IS_MIXINT;
+  cdat->dtup_3394__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3394__IS_MIXINT.nbval = 3;
+ /*inimult dtup_3395__IS_MIXINT*/
+ /*_.VALTUP___V3404*/ curfptr[3403] = (void*)&cdat->dtup_3395__IS_MIXINT;
+  cdat->dtup_3395__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3395__IS_MIXINT.nbval = 1;
+ /*iniobj dsym_3396__MI*/
+ if (!/*_.VALDATA___V3402*/ curfptr[3401]) /*_.VALDATA___V3402*/ curfptr[3401] = (void*)&cdat->dsym_3396__MI;
+  melt_assertmsg("iniobj checkdiscr dsym_3396__MI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3396__MI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3396__MI.obj_hash = 60776491;
+  cdat->dsym_3396__MI.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3396__MI));
+ 
+ /*inistring dstr_3397__MI*/
+ /*_.VALSTR___V3403*/ curfptr[3402] = (void*)&cdat->dstr_3397__MI;
+  cdat->dstr_3397__MI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3397__MI.val, "MI", sizeof(cdat->dstr_3397__MI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1835:/ iniobj");
+ /*iniobj dobj_3398*/
+ if (!/*_.VALDATA___V3401*/ curfptr[3400]) /*_.VALDATA___V3401*/ curfptr[3400] = (void*)&cdat->dobj_3398;
+  melt_assertmsg("iniobj checkdiscr dobj_3398", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3398.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3398.obj_num = 0;
+  cdat->dobj_3398.obj_hash = 248165376;
+  cdat->dobj_3398.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3398));
+ 
+ /*inistring dstr_3399__melt_magic_disc*/
+ /*_.VALSTR___V3405*/ curfptr[3404] = (void*)&cdat->dstr_3399__melt_magic_disc;
+  cdat->dstr_3399__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3399__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3399__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3400__OBMAG_MIXI*/
+ /*_.VALSTR___V3406*/ curfptr[3405] = (void*)&cdat->dstr_3400__OBMAG_MIXI;
+  cdat->dstr_3400__OBMAG_MIXI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3400__OBMAG_MIXI.val, ")) == OBMAG_MIXINT)", sizeof(cdat->dstr_3400__OBMAG_MIXI.val)-1);
+ 
+ /*inistring dstr_3401__IS_MIXINT*/
+ /*_.VALSTR___V3400*/ curfptr[3399] = (void*)&cdat->dstr_3401__IS_MIXINT;
+  cdat->dstr_3401__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3401__IS_MIXINT.val, "IS_MIXINT", sizeof(cdat->dstr_3401__IS_MIXINT.val)-1);
+ 
+ /*iniobj dsym_3402__MIXINT_VAL*/
+ if (!/*_.VALDATA___V3408*/ curfptr[3407]) /*_.VALDATA___V3408*/ curfptr[3407] = (void*)&cdat->dsym_3402__MIXINT_VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_3402__MIXINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3402__MIXINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3402__MIXINT_VAL.obj_hash = 723698673;
+  cdat->dsym_3402__MIXINT_VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3402__MIXINT_VAL));
+ 
+ /*inistring dstr_3403__MIXINT_VAL*/
+ /*_.VALSTR___V3409*/ curfptr[3408] = (void*)&cdat->dstr_3403__MIXINT_VAL;
+  cdat->dstr_3403__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3403__MIXINT_VAL.val, "MIXINT_VAL", sizeof(cdat->dstr_3403__MIXINT_VAL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1839:/ iniobj");
+ /*iniobj dobj_3404__MIXINT_VAL*/
+ if (!/*_.VALDATA___V3410*/ curfptr[3409]) /*_.VALDATA___V3410*/ curfptr[3409] = (void*)&cdat->dobj_3404__MIXINT_VAL;
+  melt_assertmsg("iniobj checkdiscr dobj_3404__MIXINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3404__MIXINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3404__MIXINT_VAL.obj_hash = 168244720;
+  cdat->dobj_3404__MIXINT_VAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3404__MIXINT_VAL));
+ 
+ /*inimult dtup_3405__MIXINT_VAL*/
+ /*_.VALTUP___V3416*/ curfptr[3415] = (void*)&cdat->dtup_3405__MIXINT_VAL;
+  cdat->dtup_3405__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3405__MIXINT_VAL.nbval = 3;
+ /*inimult dtup_3406__MIXINT_VAL*/
+ /*_.VALTUP___V3413*/ curfptr[3412] = (void*)&cdat->dtup_3406__MIXINT_VAL;
+  cdat->dtup_3406__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3406__MIXINT_VAL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1839:/ iniobj");
+ /*iniobj dobj_3407*/
+ if (!/*_.VALDATA___V3412*/ curfptr[3411]) /*_.VALDATA___V3412*/ curfptr[3411] = (void*)&cdat->dobj_3407;
+  melt_assertmsg("iniobj checkdiscr dobj_3407", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3407.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3407.obj_num = 0;
+  cdat->dobj_3407.obj_hash = 382930393;
+  cdat->dobj_3407.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3407));
+ 
+ /*inistring dstr_3408__melt_val_mixint*/
+ /*_.VALSTR___V3414*/ curfptr[3413] = (void*)&cdat->dstr_3408__melt_val_mixint;
+  cdat->dstr_3408__melt_val_mixint.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3408__melt_val_mixint.val, "(melt_val_mixint((melt_ptr_t)(", sizeof(cdat->dstr_3408__melt_val_mixint.val)-1);
+ 
+ /*inistring dstr_3409__*/
+ /*_.VALSTR___V3415*/ curfptr[3414] = (void*)&cdat->dstr_3409__;
+  cdat->dstr_3409__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3409__.val, ")))", sizeof(cdat->dstr_3409__.val)-1);
+ 
+ /*inistring dstr_3410__MIXINT_VAL*/
+ /*_.VALSTR___V3411*/ curfptr[3410] = (void*)&cdat->dstr_3410__MIXINT_VAL;
+  cdat->dstr_3410__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3410__MIXINT_VAL.val, "MIXINT_VAL", sizeof(cdat->dstr_3410__MIXINT_VAL.val)-1);
+ 
+ /*iniobj dsym_3411__MAKE_MIXINT*/
+ if (!/*_.VALDATA___V3417*/ curfptr[3416]) /*_.VALDATA___V3417*/ curfptr[3416] = (void*)&cdat->dsym_3411__MAKE_MIXINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3411__MAKE_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3411__MAKE_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3411__MAKE_MIXINT.obj_hash = 387715935;
+  cdat->dsym_3411__MAKE_MIXINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3411__MAKE_MIXINT));
+ 
+ /*inistring dstr_3412__MAKE_MIXINT*/
+ /*_.VALSTR___V3418*/ curfptr[3417] = (void*)&cdat->dstr_3412__MAKE_MIXINT;
+  cdat->dstr_3412__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3412__MAKE_MIXINT.val, "MAKE_MIXINT", sizeof(cdat->dstr_3412__MAKE_MIXINT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1843:/ iniobj");
+ /*iniobj dobj_3413__MAKE_MIXINT*/
+ if (!/*_.VALDATA___V3419*/ curfptr[3418]) /*_.VALDATA___V3419*/ curfptr[3418] = (void*)&cdat->dobj_3413__MAKE_MIXINT;
+  melt_assertmsg("iniobj checkdiscr dobj_3413__MAKE_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3413__MAKE_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3413__MAKE_MIXINT.obj_hash = 275506386;
+  cdat->dobj_3413__MAKE_MIXINT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3413__MAKE_MIXINT));
+ 
+ /*inimult dtup_3414__MAKE_MIXINT*/
+ /*_.VALTUP___V3429*/ curfptr[3428] = (void*)&cdat->dtup_3414__MAKE_MIXINT;
+  cdat->dtup_3414__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3414__MAKE_MIXINT.nbval = 7;
+ /*inimult dtup_3415__MAKE_MIXINT*/
+ /*_.VALTUP___V3424*/ curfptr[3423] = (void*)&cdat->dtup_3415__MAKE_MIXINT;
+  cdat->dtup_3415__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3415__MAKE_MIXINT.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1843:/ iniobj");
+ /*iniobj dobj_3416*/
+ if (!/*_.VALDATA___V3421*/ curfptr[3420]) /*_.VALDATA___V3421*/ curfptr[3420] = (void*)&cdat->dobj_3416;
+  melt_assertmsg("iniobj checkdiscr dobj_3416", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3416.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3416.obj_num = 0;
+  cdat->dobj_3416.obj_hash = 91893375;
+  cdat->dobj_3416.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3416));
+ 
+ MELT_LOCATION("warmelt-first.melt:1843:/ iniobj");
+ /*iniobj dobj_3417*/
+ if (!/*_.VALDATA___V3422*/ curfptr[3421]) /*_.VALDATA___V3422*/ curfptr[3421] = (void*)&cdat->dobj_3417;
+  melt_assertmsg("iniobj checkdiscr dobj_3417", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3417.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3417.obj_num = 1;
+  cdat->dobj_3417.obj_hash = 849389839;
+  cdat->dobj_3417.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3417));
+ 
+ MELT_LOCATION("warmelt-first.melt:1843:/ iniobj");
+ /*iniobj dobj_3418*/
+ if (!/*_.VALDATA___V3423*/ curfptr[3422]) /*_.VALDATA___V3423*/ curfptr[3422] = (void*)&cdat->dobj_3418;
+  melt_assertmsg("iniobj checkdiscr dobj_3418", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3418.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3418.obj_num = 2;
+  cdat->dobj_3418.obj_hash = 273585084;
+  cdat->dobj_3418.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3418));
+ 
+ /*inistring dstr_3419__meltgc_new_mixi*/
+ /*_.VALSTR___V3425*/ curfptr[3424] = (void*)&cdat->dstr_3419__meltgc_new_mixi;
+  cdat->dstr_3419__meltgc_new_mixi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3419__meltgc_new_mixi.val, "(meltgc_new_mixint((meltobject_ptr_t)(", sizeof(cdat->dstr_3419__meltgc_new_mixi.val)-1);
+ 
+ /*inistring dstr_3420__melt_ptr_t_*/
+ /*_.VALSTR___V3426*/ curfptr[3425] = (void*)&cdat->dstr_3420__melt_ptr_t_;
+  cdat->dstr_3420__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3420__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3420__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3421__*/
+ /*_.VALSTR___V3427*/ curfptr[3426] = (void*)&cdat->dstr_3421__;
+  cdat->dstr_3421__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3421__.val, "), (", sizeof(cdat->dstr_3421__.val)-1);
+ 
+ /*inistring dstr_3422__*/
+ /*_.VALSTR___V3428*/ curfptr[3427] = (void*)&cdat->dstr_3422__;
+  cdat->dstr_3422__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3422__.val, ")))", sizeof(cdat->dstr_3422__.val)-1);
+ 
+ /*inistring dstr_3423__MAKE_MIXINT*/
+ /*_.VALSTR___V3420*/ curfptr[3419] = (void*)&cdat->dstr_3423__MAKE_MIXINT;
+  cdat->dstr_3423__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3423__MAKE_MIXINT.val, "MAKE_MIXINT", sizeof(cdat->dstr_3423__MAKE_MIXINT.val)-1);
+ 
+ /*iniobj dsym_3424__IS_MIXLOC*/
+ if (!/*_.VALDATA___V3430*/ curfptr[3429]) /*_.VALDATA___V3430*/ curfptr[3429] = (void*)&cdat->dsym_3424__IS_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_3424__IS_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3424__IS_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3424__IS_MIXLOC.obj_hash = 690327831;
+  cdat->dsym_3424__IS_MIXLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3424__IS_MIXLOC));
+ 
+ /*inistring dstr_3425__IS_MIXLOC*/
+ /*_.VALSTR___V3431*/ curfptr[3430] = (void*)&cdat->dstr_3425__IS_MIXLOC;
+  cdat->dstr_3425__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3425__IS_MIXLOC.val, "IS_MIXLOC", sizeof(cdat->dstr_3425__IS_MIXLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1850:/ iniobj");
+ /*iniobj dobj_3426__IS_MIXLOC*/
+ if (!/*_.VALDATA___V3432*/ curfptr[3431]) /*_.VALDATA___V3432*/ curfptr[3431] = (void*)&cdat->dobj_3426__IS_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_3426__IS_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3426__IS_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3426__IS_MIXLOC.obj_hash = 270926650;
+  cdat->dobj_3426__IS_MIXLOC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3426__IS_MIXLOC));
+ 
+ /*inimult dtup_3427__IS_MIXLOC*/
+ /*_.VALTUP___V3438*/ curfptr[3437] = (void*)&cdat->dtup_3427__IS_MIXLOC;
+  cdat->dtup_3427__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3427__IS_MIXLOC.nbval = 3;
+ /*inimult dtup_3428__IS_MIXLOC*/
+ /*_.VALTUP___V3435*/ curfptr[3434] = (void*)&cdat->dtup_3428__IS_MIXLOC;
+  cdat->dtup_3428__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3428__IS_MIXLOC.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1850:/ iniobj");
+ /*iniobj dobj_3429*/
+ if (!/*_.VALDATA___V3434*/ curfptr[3433]) /*_.VALDATA___V3434*/ curfptr[3433] = (void*)&cdat->dobj_3429;
+  melt_assertmsg("iniobj checkdiscr dobj_3429", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3429.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3429.obj_num = 0;
+  cdat->dobj_3429.obj_hash = 392573702;
+  cdat->dobj_3429.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3429));
+ 
+ /*inistring dstr_3430__melt_magic_disc*/
+ /*_.VALSTR___V3436*/ curfptr[3435] = (void*)&cdat->dstr_3430__melt_magic_disc;
+  cdat->dstr_3430__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3430__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3430__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3431__OBMAG_MIXL*/
+ /*_.VALSTR___V3437*/ curfptr[3436] = (void*)&cdat->dstr_3431__OBMAG_MIXL;
+  cdat->dstr_3431__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3431__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC)", sizeof(cdat->dstr_3431__OBMAG_MIXL.val)-1);
+ 
+ /*inistring dstr_3432__IS_MIXLOC*/
+ /*_.VALSTR___V3433*/ curfptr[3432] = (void*)&cdat->dstr_3432__IS_MIXLOC;
+  cdat->dstr_3432__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3432__IS_MIXLOC.val, "IS_MIXLOC", sizeof(cdat->dstr_3432__IS_MIXLOC.val)-1);
+ 
+ /*iniobj dsym_3433__MIXLOC_VAL*/
+ if (!/*_.VALDATA___V3439*/ curfptr[3438]) /*_.VALDATA___V3439*/ curfptr[3438] = (void*)&cdat->dsym_3433__MIXLOC_VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_3433__MIXLOC_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3433__MIXLOC_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3433__MIXLOC_VAL.obj_hash = 426681908;
+  cdat->dsym_3433__MIXLOC_VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3433__MIXLOC_VAL));
+ 
+ /*inistring dstr_3434__MIXLOC_VAL*/
+ /*_.VALSTR___V3440*/ curfptr[3439] = (void*)&cdat->dstr_3434__MIXLOC_VAL;
+  cdat->dstr_3434__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3434__MIXLOC_VAL.val, "MIXLOC_VAL", sizeof(cdat->dstr_3434__MIXLOC_VAL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1854:/ iniobj");
+ /*iniobj dobj_3435__MIXLOC_VAL*/
+ if (!/*_.VALDATA___V3441*/ curfptr[3440]) /*_.VALDATA___V3441*/ curfptr[3440] = (void*)&cdat->dobj_3435__MIXLOC_VAL;
+  melt_assertmsg("iniobj checkdiscr dobj_3435__MIXLOC_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3435__MIXLOC_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3435__MIXLOC_VAL.obj_hash = 559288097;
+  cdat->dobj_3435__MIXLOC_VAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3435__MIXLOC_VAL));
+ 
+ /*inimult dtup_3436__MIXLOC_VAL*/
+ /*_.VALTUP___V3447*/ curfptr[3446] = (void*)&cdat->dtup_3436__MIXLOC_VAL;
+  cdat->dtup_3436__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3436__MIXLOC_VAL.nbval = 3;
+ /*inimult dtup_3437__MIXLOC_VAL*/
+ /*_.VALTUP___V3444*/ curfptr[3443] = (void*)&cdat->dtup_3437__MIXLOC_VAL;
+  cdat->dtup_3437__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3437__MIXLOC_VAL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1854:/ iniobj");
+ /*iniobj dobj_3438*/
+ if (!/*_.VALDATA___V3443*/ curfptr[3442]) /*_.VALDATA___V3443*/ curfptr[3442] = (void*)&cdat->dobj_3438;
+  melt_assertmsg("iniobj checkdiscr dobj_3438", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3438.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3438.obj_num = 0;
+  cdat->dobj_3438.obj_hash = 413796011;
+  cdat->dobj_3438.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3438));
+ 
+ /*inistring dstr_3439__melt_val_mixloc*/
+ /*_.VALSTR___V3445*/ curfptr[3444] = (void*)&cdat->dstr_3439__melt_val_mixloc;
+  cdat->dstr_3439__melt_val_mixloc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3439__melt_val_mixloc.val, "(melt_val_mixloc((melt_ptr_t)(", sizeof(cdat->dstr_3439__melt_val_mixloc.val)-1);
+ 
+ /*inistring dstr_3440__*/
+ /*_.VALSTR___V3446*/ curfptr[3445] = (void*)&cdat->dstr_3440__;
+  cdat->dstr_3440__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3440__.val, ")))", sizeof(cdat->dstr_3440__.val)-1);
+ 
+ /*inistring dstr_3441__MIXLOC_VAL*/
+ /*_.VALSTR___V3442*/ curfptr[3441] = (void*)&cdat->dstr_3441__MIXLOC_VAL;
+  cdat->dstr_3441__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3441__MIXLOC_VAL.val, "MIXLOC_VAL", sizeof(cdat->dstr_3441__MIXLOC_VAL.val)-1);
+ 
+ /*iniobj dsym_3442__MIXLOC_LOCATION*/
+ if (!/*_.VALDATA___V3448*/ curfptr[3447]) /*_.VALDATA___V3448*/ curfptr[3447] = (void*)&cdat->dsym_3442__MIXLOC_LOCATION;
+  melt_assertmsg("iniobj checkdiscr dsym_3442__MIXLOC_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3442__MIXLOC_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3442__MIXLOC_LOCATION.obj_hash = 124619428;
+  cdat->dsym_3442__MIXLOC_LOCATION.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3442__MIXLOC_LOCATION));
+ 
+ /*inistring dstr_3443__MIXLOC_LOCATION*/
+ /*_.VALSTR___V3449*/ curfptr[3448] = (void*)&cdat->dstr_3443__MIXLOC_LOCATION;
+  cdat->dstr_3443__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3443__MIXLOC_LOCATION.val, "MIXLOC_LOCATION", sizeof(cdat->dstr_3443__MIXLOC_LOCATION.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1857:/ iniobj");
+ /*iniobj dobj_3444__MIXLOC_LOCATION*/
+ if (!/*_.VALDATA___V3450*/ curfptr[3449]) /*_.VALDATA___V3450*/ curfptr[3449] = (void*)&cdat->dobj_3444__MIXLOC_LOCATION;
+  melt_assertmsg("iniobj checkdiscr dobj_3444__MIXLOC_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3444__MIXLOC_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3444__MIXLOC_LOCATION.obj_hash = 975847387;
+  cdat->dobj_3444__MIXLOC_LOCATION.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3444__MIXLOC_LOCATION));
+ 
+ /*inimult dtup_3445__MIXLOC_LOCATION*/
+ /*_.VALTUP___V3456*/ curfptr[3455] = (void*)&cdat->dtup_3445__MIXLOC_LOCATION;
+  cdat->dtup_3445__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3445__MIXLOC_LOCATION.nbval = 3;
+ /*inimult dtup_3446__MIXLOC_LOCATION*/
+ /*_.VALTUP___V3453*/ curfptr[3452] = (void*)&cdat->dtup_3446__MIXLOC_LOCATION;
+  cdat->dtup_3446__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3446__MIXLOC_LOCATION.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1857:/ iniobj");
+ /*iniobj dobj_3447*/
+ if (!/*_.VALDATA___V3452*/ curfptr[3451]) /*_.VALDATA___V3452*/ curfptr[3451] = (void*)&cdat->dobj_3447;
+  melt_assertmsg("iniobj checkdiscr dobj_3447", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3447.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3447.obj_num = 0;
+  cdat->dobj_3447.obj_hash = 925056679;
+  cdat->dobj_3447.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3447));
+ 
+ /*inistring dstr_3448__long_melt_loc*/
+ /*_.VALSTR___V3454*/ curfptr[3453] = (void*)&cdat->dstr_3448__long_melt_loc;
+  cdat->dstr_3448__long_melt_loc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3448__long_melt_loc.val, "((long) melt_location_mixloc((melt_ptr_t)(", sizeof(cdat->dstr_3448__long_melt_loc.val)-1);
+ 
+ /*inistring dstr_3449__*/
+ /*_.VALSTR___V3455*/ curfptr[3454] = (void*)&cdat->dstr_3449__;
+  cdat->dstr_3449__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3449__.val, ")))", sizeof(cdat->dstr_3449__.val)-1);
+ 
+ /*inistring dstr_3450__MIXLOC_LOCATION*/
+ /*_.VALSTR___V3451*/ curfptr[3450] = (void*)&cdat->dstr_3450__MIXLOC_LOCATION;
+  cdat->dstr_3450__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3450__MIXLOC_LOCATION.val, "MIXLOC_LOCATION", sizeof(cdat->dstr_3450__MIXLOC_LOCATION.val)-1);
+ 
+ /*iniobj dsym_3451__MIXLOC_LOCLINE*/
+ if (!/*_.VALDATA___V3457*/ curfptr[3456]) /*_.VALDATA___V3457*/ curfptr[3456] = (void*)&cdat->dsym_3451__MIXLOC_LOCLINE;
+  melt_assertmsg("iniobj checkdiscr dsym_3451__MIXLOC_LOCLINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3451__MIXLOC_LOCLINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3451__MIXLOC_LOCLINE.obj_hash = 472255772;
+  cdat->dsym_3451__MIXLOC_LOCLINE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3451__MIXLOC_LOCLINE));
+ 
+ /*inistring dstr_3452__MIXLOC_LOCLINE*/
+ /*_.VALSTR___V3458*/ curfptr[3457] = (void*)&cdat->dstr_3452__MIXLOC_LOCLINE;
+  cdat->dstr_3452__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3452__MIXLOC_LOCLINE.val, "MIXLOC_LOCLINE", sizeof(cdat->dstr_3452__MIXLOC_LOCLINE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1860:/ iniobj");
+ /*iniobj dobj_3453__MIXLOC_LOCLINE*/
+ if (!/*_.VALDATA___V3459*/ curfptr[3458]) /*_.VALDATA___V3459*/ curfptr[3458] = (void*)&cdat->dobj_3453__MIXLOC_LOCLINE;
+  melt_assertmsg("iniobj checkdiscr dobj_3453__MIXLOC_LOCLINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3453__MIXLOC_LOCLINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3453__MIXLOC_LOCLINE.obj_hash = 756676677;
+  cdat->dobj_3453__MIXLOC_LOCLINE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3453__MIXLOC_LOCLINE));
+ 
+ /*inimult dtup_3454__MIXLOC_LOCLINE*/
+ /*_.VALTUP___V3465*/ curfptr[3464] = (void*)&cdat->dtup_3454__MIXLOC_LOCLINE;
+  cdat->dtup_3454__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3454__MIXLOC_LOCLINE.nbval = 3;
+ /*inimult dtup_3455__MIXLOC_LOCLINE*/
+ /*_.VALTUP___V3462*/ curfptr[3461] = (void*)&cdat->dtup_3455__MIXLOC_LOCLINE;
+  cdat->dtup_3455__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3455__MIXLOC_LOCLINE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1860:/ iniobj");
+ /*iniobj dobj_3456*/
+ if (!/*_.VALDATA___V3461*/ curfptr[3460]) /*_.VALDATA___V3461*/ curfptr[3460] = (void*)&cdat->dobj_3456;
+  melt_assertmsg("iniobj checkdiscr dobj_3456", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3456.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3456.obj_num = 0;
+  cdat->dobj_3456.obj_hash = 213042405;
+  cdat->dobj_3456.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3456));
+ 
+ /*inistring dstr_3457__LOCATION_LINE_m*/
+ /*_.VALSTR___V3463*/ curfptr[3462] = (void*)&cdat->dstr_3457__LOCATION_LINE_m;
+  cdat->dstr_3457__LOCATION_LINE_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3457__LOCATION_LINE_m.val, "(LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_3457__LOCATION_LINE_m.val)-1);
+ 
+ /*inistring dstr_3458__*/
+ /*_.VALSTR___V3464*/ curfptr[3463] = (void*)&cdat->dstr_3458__;
+  cdat->dstr_3458__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3458__.val, ")))", sizeof(cdat->dstr_3458__.val)-1);
+ 
+ /*inistring dstr_3459__MIXLOC_LOCLINE*/
+ /*_.VALSTR___V3460*/ curfptr[3459] = (void*)&cdat->dstr_3459__MIXLOC_LOCLINE;
+  cdat->dstr_3459__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3459__MIXLOC_LOCLINE.val, "MIXLOC_LOCLINE", sizeof(cdat->dstr_3459__MIXLOC_LOCLINE.val)-1);
+ 
+ /*iniobj dsym_3460__MIXLOC_LOCFILE*/
+ if (!/*_.VALDATA___V3466*/ curfptr[3465]) /*_.VALDATA___V3466*/ curfptr[3465] = (void*)&cdat->dsym_3460__MIXLOC_LOCFILE;
+  melt_assertmsg("iniobj checkdiscr dsym_3460__MIXLOC_LOCFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3460__MIXLOC_LOCFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3460__MIXLOC_LOCFILE.obj_hash = 544320959;
+  cdat->dsym_3460__MIXLOC_LOCFILE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3460__MIXLOC_LOCFILE));
+ 
+ /*inistring dstr_3461__MIXLOC_LOCFILE*/
+ /*_.VALSTR___V3467*/ curfptr[3466] = (void*)&cdat->dstr_3461__MIXLOC_LOCFILE;
+  cdat->dstr_3461__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3461__MIXLOC_LOCFILE.val, "MIXLOC_LOCFILE", sizeof(cdat->dstr_3461__MIXLOC_LOCFILE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1863:/ iniobj");
+ /*iniobj dobj_3462__MIXLOC_LOCFILE*/
+ if (!/*_.VALDATA___V3468*/ curfptr[3467]) /*_.VALDATA___V3468*/ curfptr[3467] = (void*)&cdat->dobj_3462__MIXLOC_LOCFILE;
+  melt_assertmsg("iniobj checkdiscr dobj_3462__MIXLOC_LOCFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3462__MIXLOC_LOCFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3462__MIXLOC_LOCFILE.obj_hash = 740511281;
+  cdat->dobj_3462__MIXLOC_LOCFILE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3462__MIXLOC_LOCFILE));
+ 
+ /*inimult dtup_3463__MIXLOC_LOCFILE*/
+ /*_.VALTUP___V3474*/ curfptr[3473] = (void*)&cdat->dtup_3463__MIXLOC_LOCFILE;
+  cdat->dtup_3463__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3463__MIXLOC_LOCFILE.nbval = 3;
+ /*inimult dtup_3464__MIXLOC_LOCFILE*/
+ /*_.VALTUP___V3471*/ curfptr[3470] = (void*)&cdat->dtup_3464__MIXLOC_LOCFILE;
+  cdat->dtup_3464__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3464__MIXLOC_LOCFILE.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1863:/ iniobj");
+ /*iniobj dobj_3465*/
+ if (!/*_.VALDATA___V3470*/ curfptr[3469]) /*_.VALDATA___V3470*/ curfptr[3469] = (void*)&cdat->dobj_3465;
+  melt_assertmsg("iniobj checkdiscr dobj_3465", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3465.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3465.obj_num = 0;
+  cdat->dobj_3465.obj_hash = 61432280;
+  cdat->dobj_3465.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3465));
+ 
+ /*inistring dstr_3466__LOCATION_FILE_m*/
+ /*_.VALSTR___V3472*/ curfptr[3471] = (void*)&cdat->dstr_3466__LOCATION_FILE_m;
+  cdat->dstr_3466__LOCATION_FILE_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3466__LOCATION_FILE_m.val, "(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_3466__LOCATION_FILE_m.val)-1);
+ 
+ /*inistring dstr_3467__*/
+ /*_.VALSTR___V3473*/ curfptr[3472] = (void*)&cdat->dstr_3467__;
+  cdat->dstr_3467__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3467__.val, ")))", sizeof(cdat->dstr_3467__.val)-1);
+ 
+ /*inistring dstr_3468__MIXLOC_LOCFILE*/
+ /*_.VALSTR___V3469*/ curfptr[3468] = (void*)&cdat->dstr_3468__MIXLOC_LOCFILE;
+  cdat->dstr_3468__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3468__MIXLOC_LOCFILE.val, "MIXLOC_LOCFILE", sizeof(cdat->dstr_3468__MIXLOC_LOCFILE.val)-1);
+ 
+ /*iniobj dsym_3469__MAKE_MIXLOC*/
+ if (!/*_.VALDATA___V3475*/ curfptr[3474]) /*_.VALDATA___V3475*/ curfptr[3474] = (void*)&cdat->dsym_3469__MAKE_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dsym_3469__MAKE_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3469__MAKE_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3469__MAKE_MIXLOC.obj_hash = 45656071;
+  cdat->dsym_3469__MAKE_MIXLOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3469__MAKE_MIXLOC));
+ 
+ /*inistring dstr_3470__MAKE_MIXLOC*/
+ /*_.VALSTR___V3476*/ curfptr[3475] = (void*)&cdat->dstr_3470__MAKE_MIXLOC;
+  cdat->dstr_3470__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3470__MAKE_MIXLOC.val, "MAKE_MIXLOC", sizeof(cdat->dstr_3470__MAKE_MIXLOC.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ iniobj");
- /*iniobj dobj_3370*/
- if (!/*_.VALDATA___V3373*/ curfptr[3372]) /*_.VALDATA___V3373*/ curfptr[3372] = (void*)&cdat->dobj_3370;
-  melt_assertmsg("iniobj checkdiscr dobj_3370", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3370.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3370.obj_num = 1;
-  cdat->dobj_3370.obj_hash = 866744303;
-  cdat->dobj_3370.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3370));
- 
- /*inistring dstr_3371__meltgc_pair_set_*/
- /*_.VALSTR___V3377*/ curfptr[3376] = (void*)&cdat->dstr_3371__meltgc_pair_set_;
-  cdat->dstr_3371__meltgc_pair_set_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3371__meltgc_pair_set_.val, "meltgc_pair_set_head((melt_ptr_t)(", sizeof(cdat->dstr_3371__meltgc_pair_set_.val)-1);
- 
- /*inistring dstr_3372__*/
- /*_.VALSTR___V3378*/ curfptr[3377] = (void*)&cdat->dstr_3372__;
-  cdat->dstr_3372__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3372__.val, "), (", sizeof(cdat->dstr_3372__.val)-1);
- 
- /*inistring dstr_3373__*/
- /*_.VALSTR___V3379*/ curfptr[3378] = (void*)&cdat->dstr_3373__;
-  cdat->dstr_3373__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3373__.val, "))", sizeof(cdat->dstr_3373__.val)-1);
- 
- /*inistring dstr_3374__PAIR_SET_HEAD*/
- /*_.VALSTR___V3371*/ curfptr[3370] = (void*)&cdat->dstr_3374__PAIR_SET_HEAD;
-  cdat->dstr_3374__PAIR_SET_HEAD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3374__PAIR_SET_HEAD.val, "PAIR_SET_HEAD", sizeof(cdat->dstr_3374__PAIR_SET_HEAD.val)-1);
- 
- /*iniobj dsym_3375__PAIR_LISTLENGTH*/
- if (!/*_.VALDATA___V3381*/ curfptr[3380]) /*_.VALDATA___V3381*/ curfptr[3380] = (void*)&cdat->dsym_3375__PAIR_LISTLENGTH;
-  melt_assertmsg("iniobj checkdiscr dsym_3375__PAIR_LISTLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3375__PAIR_LISTLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3375__PAIR_LISTLENGTH.obj_hash = 1062057201;
-  cdat->dsym_3375__PAIR_LISTLENGTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3375__PAIR_LISTLENGTH));
- 
- /*inistring dstr_3376__PAIR_LISTLENGTH*/
- /*_.VALSTR___V3382*/ curfptr[3381] = (void*)&cdat->dstr_3376__PAIR_LISTLENGTH;
-  cdat->dstr_3376__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3376__PAIR_LISTLENGTH.val, "PAIR_LISTLENGTH", sizeof(cdat->dstr_3376__PAIR_LISTLENGTH.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1828:/ iniobj");
- /*iniobj dobj_3377__PAIR_LISTLENGTH*/
- if (!/*_.VALDATA___V3383*/ curfptr[3382]) /*_.VALDATA___V3383*/ curfptr[3382] = (void*)&cdat->dobj_3377__PAIR_LISTLENGTH;
-  melt_assertmsg("iniobj checkdiscr dobj_3377__PAIR_LISTLENGTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3377__PAIR_LISTLENGTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3377__PAIR_LISTLENGTH.obj_hash = 458694627;
-  cdat->dobj_3377__PAIR_LISTLENGTH.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3377__PAIR_LISTLENGTH));
- 
- /*inimult dtup_3378__PAIR_LISTLENGTH*/
- /*_.VALTUP___V3389*/ curfptr[3388] = (void*)&cdat->dtup_3378__PAIR_LISTLENGTH;
-  cdat->dtup_3378__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3378__PAIR_LISTLENGTH.nbval = 3;
- /*inimult dtup_3379__PAIR_LISTLENGTH*/
- /*_.VALTUP___V3386*/ curfptr[3385] = (void*)&cdat->dtup_3379__PAIR_LISTLENGTH;
-  cdat->dtup_3379__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3379__PAIR_LISTLENGTH.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1828:/ iniobj");
- /*iniobj dobj_3380*/
- if (!/*_.VALDATA___V3385*/ curfptr[3384]) /*_.VALDATA___V3385*/ curfptr[3384] = (void*)&cdat->dobj_3380;
-  melt_assertmsg("iniobj checkdiscr dobj_3380", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3380.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3380.obj_num = 0;
-  cdat->dobj_3380.obj_hash = 423208354;
-  cdat->dobj_3380.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3380));
- 
- /*inistring dstr_3381__melt_pair_listl*/
- /*_.VALSTR___V3387*/ curfptr[3386] = (void*)&cdat->dstr_3381__melt_pair_listl;
-  cdat->dstr_3381__melt_pair_listl.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3381__melt_pair_listl.val, "(melt_pair_listlength((melt_ptr_t)(", sizeof(cdat->dstr_3381__melt_pair_listl.val)-1);
- 
- /*inistring dstr_3382__*/
- /*_.VALSTR___V3388*/ curfptr[3387] = (void*)&cdat->dstr_3382__;
-  cdat->dstr_3382__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3382__.val, ")))", sizeof(cdat->dstr_3382__.val)-1);
- 
- /*inistring dstr_3383__PAIR_LISTLENGTH*/
- /*_.VALSTR___V3384*/ curfptr[3383] = (void*)&cdat->dstr_3383__PAIR_LISTLENGTH;
-  cdat->dstr_3383__PAIR_LISTLENGTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3383__PAIR_LISTLENGTH.val, "PAIR_LISTLENGTH", sizeof(cdat->dstr_3383__PAIR_LISTLENGTH.val)-1);
- 
- /*iniobj dsym_3384__MAKE_PAIR*/
- if (!/*_.VALDATA___V3390*/ curfptr[3389]) /*_.VALDATA___V3390*/ curfptr[3389] = (void*)&cdat->dsym_3384__MAKE_PAIR;
-  melt_assertmsg("iniobj checkdiscr dsym_3384__MAKE_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3384__MAKE_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3384__MAKE_PAIR.obj_hash = 310715668;
-  cdat->dsym_3384__MAKE_PAIR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3384__MAKE_PAIR));
- 
- /*inistring dstr_3385__MAKE_PAIR*/
- /*_.VALSTR___V3391*/ curfptr[3390] = (void*)&cdat->dstr_3385__MAKE_PAIR;
-  cdat->dstr_3385__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3385__MAKE_PAIR.val, "MAKE_PAIR", sizeof(cdat->dstr_3385__MAKE_PAIR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1832:/ iniobj");
- /*iniobj dobj_3386__MAKE_PAIR*/
- if (!/*_.VALDATA___V3392*/ curfptr[3391]) /*_.VALDATA___V3392*/ curfptr[3391] = (void*)&cdat->dobj_3386__MAKE_PAIR;
-  melt_assertmsg("iniobj checkdiscr dobj_3386__MAKE_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3386__MAKE_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3386__MAKE_PAIR.obj_hash = 352335478;
-  cdat->dobj_3386__MAKE_PAIR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3386__MAKE_PAIR));
- 
- /*inimult dtup_3387__MAKE_PAIR*/
- /*_.VALTUP___V3404*/ curfptr[3403] = (void*)&cdat->dtup_3387__MAKE_PAIR;
-  cdat->dtup_3387__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3387__MAKE_PAIR.nbval = 7;
- /*inimult dtup_3388__MAKE_PAIR*/
- /*_.VALTUP___V3399*/ curfptr[3398] = (void*)&cdat->dtup_3388__MAKE_PAIR;
-  cdat->dtup_3388__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3388__MAKE_PAIR.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1832:/ iniobj");
- /*iniobj dobj_3389*/
- if (!/*_.VALDATA___V3394*/ curfptr[3393]) /*_.VALDATA___V3394*/ curfptr[3393] = (void*)&cdat->dobj_3389;
-  melt_assertmsg("iniobj checkdiscr dobj_3389", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3389.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3389.obj_num = 0;
-  cdat->dobj_3389.obj_hash = 871796553;
-  cdat->dobj_3389.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3389));
- 
- MELT_LOCATION("warmelt-first.melt:1832:/ iniobj");
- /*iniobj dobj_3390*/
- if (!/*_.VALDATA___V3395*/ curfptr[3394]) /*_.VALDATA___V3395*/ curfptr[3394] = (void*)&cdat->dobj_3390;
-  melt_assertmsg("iniobj checkdiscr dobj_3390", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3390.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3390.obj_num = 1;
-  cdat->dobj_3390.obj_hash = 36819131;
-  cdat->dobj_3390.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3390));
- 
- /*iniobj dsym_3391__TL*/
- if (!/*_.VALDATA___V3397*/ curfptr[3396]) /*_.VALDATA___V3397*/ curfptr[3396] = (void*)&cdat->dsym_3391__TL;
-  melt_assertmsg("iniobj checkdiscr dsym_3391__TL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3391__TL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3391__TL.obj_hash = 6063274;
-  cdat->dsym_3391__TL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3391__TL));
- 
- /*inistring dstr_3392__TL*/
- /*_.VALSTR___V3398*/ curfptr[3397] = (void*)&cdat->dstr_3392__TL;
-  cdat->dstr_3392__TL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3392__TL.val, "TL", sizeof(cdat->dstr_3392__TL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1832:/ iniobj");
- /*iniobj dobj_3393*/
- if (!/*_.VALDATA___V3396*/ curfptr[3395]) /*_.VALDATA___V3396*/ curfptr[3395] = (void*)&cdat->dobj_3393;
-  melt_assertmsg("iniobj checkdiscr dobj_3393", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3393.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3393.obj_num = 2;
-  cdat->dobj_3393.obj_hash = 573899852;
-  cdat->dobj_3393.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3393));
- 
- /*inistring dstr_3394__meltgc_new_pair*/
- /*_.VALSTR___V3400*/ curfptr[3399] = (void*)&cdat->dstr_3394__meltgc_new_pair;
-  cdat->dstr_3394__meltgc_new_pair.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3394__meltgc_new_pair.val, "(meltgc_new_pair((meltobject_ptr_t)(", sizeof(cdat->dstr_3394__meltgc_new_pair.val)-1);
- 
- /*inistring dstr_3395__melt_ptr_t_*/
- /*_.VALSTR___V3401*/ curfptr[3400] = (void*)&cdat->dstr_3395__melt_ptr_t_;
-  cdat->dstr_3395__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3395__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3395__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3396__melt_ptr_t_*/
- /*_.VALSTR___V3402*/ curfptr[3401] = (void*)&cdat->dstr_3396__melt_ptr_t_;
-  cdat->dstr_3396__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3396__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3396__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3397__*/
- /*_.VALSTR___V3403*/ curfptr[3402] = (void*)&cdat->dstr_3397__;
-  cdat->dstr_3397__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3397__.val, ")))", sizeof(cdat->dstr_3397__.val)-1);
- 
- /*inistring dstr_3398__MAKE_PAIR*/
- /*_.VALSTR___V3393*/ curfptr[3392] = (void*)&cdat->dstr_3398__MAKE_PAIR;
-  cdat->dstr_3398__MAKE_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3398__MAKE_PAIR.val, "MAKE_PAIR", sizeof(cdat->dstr_3398__MAKE_PAIR.val)-1);
- 
- /*iniobj dsym_3399__IS_MIXINT*/
- if (!/*_.VALDATA___V3405*/ curfptr[3404]) /*_.VALDATA___V3405*/ curfptr[3404] = (void*)&cdat->dsym_3399__IS_MIXINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3399__IS_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3399__IS_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3399__IS_MIXINT.obj_hash = 842426558;
-  cdat->dsym_3399__IS_MIXINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3399__IS_MIXINT));
- 
- /*inistring dstr_3400__IS_MIXINT*/
- /*_.VALSTR___V3406*/ curfptr[3405] = (void*)&cdat->dstr_3400__IS_MIXINT;
-  cdat->dstr_3400__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3400__IS_MIXINT.val, "IS_MIXINT", sizeof(cdat->dstr_3400__IS_MIXINT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1840:/ iniobj");
- /*iniobj dobj_3401__IS_MIXINT*/
- if (!/*_.VALDATA___V3407*/ curfptr[3406]) /*_.VALDATA___V3407*/ curfptr[3406] = (void*)&cdat->dobj_3401__IS_MIXINT;
-  melt_assertmsg("iniobj checkdiscr dobj_3401__IS_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3401__IS_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3401__IS_MIXINT.obj_hash = 39318914;
-  cdat->dobj_3401__IS_MIXINT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3401__IS_MIXINT));
- 
- /*inimult dtup_3402__IS_MIXINT*/
- /*_.VALTUP___V3415*/ curfptr[3414] = (void*)&cdat->dtup_3402__IS_MIXINT;
-  cdat->dtup_3402__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3402__IS_MIXINT.nbval = 3;
- /*inimult dtup_3403__IS_MIXINT*/
- /*_.VALTUP___V3412*/ curfptr[3411] = (void*)&cdat->dtup_3403__IS_MIXINT;
-  cdat->dtup_3403__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3403__IS_MIXINT.nbval = 1;
- /*iniobj dsym_3404__MI*/
- if (!/*_.VALDATA___V3410*/ curfptr[3409]) /*_.VALDATA___V3410*/ curfptr[3409] = (void*)&cdat->dsym_3404__MI;
-  melt_assertmsg("iniobj checkdiscr dsym_3404__MI", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3404__MI.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3404__MI.obj_hash = 60776491;
-  cdat->dsym_3404__MI.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3404__MI));
- 
- /*inistring dstr_3405__MI*/
- /*_.VALSTR___V3411*/ curfptr[3410] = (void*)&cdat->dstr_3405__MI;
-  cdat->dstr_3405__MI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3405__MI.val, "MI", sizeof(cdat->dstr_3405__MI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1840:/ iniobj");
- /*iniobj dobj_3406*/
- if (!/*_.VALDATA___V3409*/ curfptr[3408]) /*_.VALDATA___V3409*/ curfptr[3408] = (void*)&cdat->dobj_3406;
-  melt_assertmsg("iniobj checkdiscr dobj_3406", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3406.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3406.obj_num = 0;
-  cdat->dobj_3406.obj_hash = 733499882;
-  cdat->dobj_3406.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3406));
- 
- /*inistring dstr_3407__melt_magic_disc*/
- /*_.VALSTR___V3413*/ curfptr[3412] = (void*)&cdat->dstr_3407__melt_magic_disc;
-  cdat->dstr_3407__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3407__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3407__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3408__OBMAG_MIXI*/
- /*_.VALSTR___V3414*/ curfptr[3413] = (void*)&cdat->dstr_3408__OBMAG_MIXI;
-  cdat->dstr_3408__OBMAG_MIXI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3408__OBMAG_MIXI.val, ")) == OBMAG_MIXINT)", sizeof(cdat->dstr_3408__OBMAG_MIXI.val)-1);
- 
- /*inistring dstr_3409__IS_MIXINT*/
- /*_.VALSTR___V3408*/ curfptr[3407] = (void*)&cdat->dstr_3409__IS_MIXINT;
-  cdat->dstr_3409__IS_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3409__IS_MIXINT.val, "IS_MIXINT", sizeof(cdat->dstr_3409__IS_MIXINT.val)-1);
- 
- /*iniobj dsym_3410__MIXINT_VAL*/
- if (!/*_.VALDATA___V3416*/ curfptr[3415]) /*_.VALDATA___V3416*/ curfptr[3415] = (void*)&cdat->dsym_3410__MIXINT_VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_3410__MIXINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3410__MIXINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3410__MIXINT_VAL.obj_hash = 723698673;
-  cdat->dsym_3410__MIXINT_VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3410__MIXINT_VAL));
- 
- /*inistring dstr_3411__MIXINT_VAL*/
- /*_.VALSTR___V3417*/ curfptr[3416] = (void*)&cdat->dstr_3411__MIXINT_VAL;
-  cdat->dstr_3411__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3411__MIXINT_VAL.val, "MIXINT_VAL", sizeof(cdat->dstr_3411__MIXINT_VAL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1844:/ iniobj");
- /*iniobj dobj_3412__MIXINT_VAL*/
- if (!/*_.VALDATA___V3418*/ curfptr[3417]) /*_.VALDATA___V3418*/ curfptr[3417] = (void*)&cdat->dobj_3412__MIXINT_VAL;
-  melt_assertmsg("iniobj checkdiscr dobj_3412__MIXINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3412__MIXINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3412__MIXINT_VAL.obj_hash = 610506172;
-  cdat->dobj_3412__MIXINT_VAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3412__MIXINT_VAL));
- 
- /*inimult dtup_3413__MIXINT_VAL*/
- /*_.VALTUP___V3424*/ curfptr[3423] = (void*)&cdat->dtup_3413__MIXINT_VAL;
-  cdat->dtup_3413__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3413__MIXINT_VAL.nbval = 3;
- /*inimult dtup_3414__MIXINT_VAL*/
- /*_.VALTUP___V3421*/ curfptr[3420] = (void*)&cdat->dtup_3414__MIXINT_VAL;
-  cdat->dtup_3414__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3414__MIXINT_VAL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1844:/ iniobj");
- /*iniobj dobj_3415*/
- if (!/*_.VALDATA___V3420*/ curfptr[3419]) /*_.VALDATA___V3420*/ curfptr[3419] = (void*)&cdat->dobj_3415;
-  melt_assertmsg("iniobj checkdiscr dobj_3415", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3415.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3415.obj_num = 0;
-  cdat->dobj_3415.obj_hash = 748501254;
-  cdat->dobj_3415.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3415));
- 
- /*inistring dstr_3416__melt_val_mixint*/
- /*_.VALSTR___V3422*/ curfptr[3421] = (void*)&cdat->dstr_3416__melt_val_mixint;
-  cdat->dstr_3416__melt_val_mixint.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3416__melt_val_mixint.val, "(melt_val_mixint((melt_ptr_t)(", sizeof(cdat->dstr_3416__melt_val_mixint.val)-1);
- 
- /*inistring dstr_3417__*/
- /*_.VALSTR___V3423*/ curfptr[3422] = (void*)&cdat->dstr_3417__;
-  cdat->dstr_3417__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3417__.val, ")))", sizeof(cdat->dstr_3417__.val)-1);
- 
- /*inistring dstr_3418__MIXINT_VAL*/
- /*_.VALSTR___V3419*/ curfptr[3418] = (void*)&cdat->dstr_3418__MIXINT_VAL;
-  cdat->dstr_3418__MIXINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3418__MIXINT_VAL.val, "MIXINT_VAL", sizeof(cdat->dstr_3418__MIXINT_VAL.val)-1);
- 
- /*iniobj dsym_3419__MAKE_MIXINT*/
- if (!/*_.VALDATA___V3425*/ curfptr[3424]) /*_.VALDATA___V3425*/ curfptr[3424] = (void*)&cdat->dsym_3419__MAKE_MIXINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3419__MAKE_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3419__MAKE_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3419__MAKE_MIXINT.obj_hash = 387715935;
-  cdat->dsym_3419__MAKE_MIXINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3419__MAKE_MIXINT));
- 
- /*inistring dstr_3420__MAKE_MIXINT*/
- /*_.VALSTR___V3426*/ curfptr[3425] = (void*)&cdat->dstr_3420__MAKE_MIXINT;
-  cdat->dstr_3420__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3420__MAKE_MIXINT.val, "MAKE_MIXINT", sizeof(cdat->dstr_3420__MAKE_MIXINT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1848:/ iniobj");
- /*iniobj dobj_3421__MAKE_MIXINT*/
- if (!/*_.VALDATA___V3427*/ curfptr[3426]) /*_.VALDATA___V3427*/ curfptr[3426] = (void*)&cdat->dobj_3421__MAKE_MIXINT;
-  melt_assertmsg("iniobj checkdiscr dobj_3421__MAKE_MIXINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3421__MAKE_MIXINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3421__MAKE_MIXINT.obj_hash = 817897843;
-  cdat->dobj_3421__MAKE_MIXINT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3421__MAKE_MIXINT));
- 
- /*inimult dtup_3422__MAKE_MIXINT*/
- /*_.VALTUP___V3437*/ curfptr[3436] = (void*)&cdat->dtup_3422__MAKE_MIXINT;
-  cdat->dtup_3422__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3422__MAKE_MIXINT.nbval = 7;
- /*inimult dtup_3423__MAKE_MIXINT*/
- /*_.VALTUP___V3432*/ curfptr[3431] = (void*)&cdat->dtup_3423__MAKE_MIXINT;
-  cdat->dtup_3423__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3423__MAKE_MIXINT.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1848:/ iniobj");
- /*iniobj dobj_3424*/
- if (!/*_.VALDATA___V3429*/ curfptr[3428]) /*_.VALDATA___V3429*/ curfptr[3428] = (void*)&cdat->dobj_3424;
-  melt_assertmsg("iniobj checkdiscr dobj_3424", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3424.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3424.obj_num = 0;
-  cdat->dobj_3424.obj_hash = 648828918;
-  cdat->dobj_3424.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3424));
- 
- MELT_LOCATION("warmelt-first.melt:1848:/ iniobj");
- /*iniobj dobj_3425*/
- if (!/*_.VALDATA___V3430*/ curfptr[3429]) /*_.VALDATA___V3430*/ curfptr[3429] = (void*)&cdat->dobj_3425;
-  melt_assertmsg("iniobj checkdiscr dobj_3425", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3425.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3425.obj_num = 1;
-  cdat->dobj_3425.obj_hash = 571112905;
-  cdat->dobj_3425.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3425));
- 
- MELT_LOCATION("warmelt-first.melt:1848:/ iniobj");
- /*iniobj dobj_3426*/
- if (!/*_.VALDATA___V3431*/ curfptr[3430]) /*_.VALDATA___V3431*/ curfptr[3430] = (void*)&cdat->dobj_3426;
-  melt_assertmsg("iniobj checkdiscr dobj_3426", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3426.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3426.obj_num = 2;
-  cdat->dobj_3426.obj_hash = 120009971;
-  cdat->dobj_3426.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3426));
- 
- /*inistring dstr_3427__meltgc_new_mixi*/
- /*_.VALSTR___V3433*/ curfptr[3432] = (void*)&cdat->dstr_3427__meltgc_new_mixi;
-  cdat->dstr_3427__meltgc_new_mixi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3427__meltgc_new_mixi.val, "(meltgc_new_mixint((meltobject_ptr_t)(", sizeof(cdat->dstr_3427__meltgc_new_mixi.val)-1);
- 
- /*inistring dstr_3428__melt_ptr_t_*/
- /*_.VALSTR___V3434*/ curfptr[3433] = (void*)&cdat->dstr_3428__melt_ptr_t_;
-  cdat->dstr_3428__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3428__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3428__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3429__*/
- /*_.VALSTR___V3435*/ curfptr[3434] = (void*)&cdat->dstr_3429__;
-  cdat->dstr_3429__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3429__.val, "), (", sizeof(cdat->dstr_3429__.val)-1);
- 
- /*inistring dstr_3430__*/
- /*_.VALSTR___V3436*/ curfptr[3435] = (void*)&cdat->dstr_3430__;
-  cdat->dstr_3430__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3430__.val, ")))", sizeof(cdat->dstr_3430__.val)-1);
- 
- /*inistring dstr_3431__MAKE_MIXINT*/
- /*_.VALSTR___V3428*/ curfptr[3427] = (void*)&cdat->dstr_3431__MAKE_MIXINT;
-  cdat->dstr_3431__MAKE_MIXINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3431__MAKE_MIXINT.val, "MAKE_MIXINT", sizeof(cdat->dstr_3431__MAKE_MIXINT.val)-1);
- 
- /*iniobj dsym_3432__IS_MIXLOC*/
- if (!/*_.VALDATA___V3438*/ curfptr[3437]) /*_.VALDATA___V3438*/ curfptr[3437] = (void*)&cdat->dsym_3432__IS_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_3432__IS_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3432__IS_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3432__IS_MIXLOC.obj_hash = 690327831;
-  cdat->dsym_3432__IS_MIXLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3432__IS_MIXLOC));
- 
- /*inistring dstr_3433__IS_MIXLOC*/
- /*_.VALSTR___V3439*/ curfptr[3438] = (void*)&cdat->dstr_3433__IS_MIXLOC;
-  cdat->dstr_3433__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3433__IS_MIXLOC.val, "IS_MIXLOC", sizeof(cdat->dstr_3433__IS_MIXLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1855:/ iniobj");
- /*iniobj dobj_3434__IS_MIXLOC*/
- if (!/*_.VALDATA___V3440*/ curfptr[3439]) /*_.VALDATA___V3440*/ curfptr[3439] = (void*)&cdat->dobj_3434__IS_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_3434__IS_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3434__IS_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3434__IS_MIXLOC.obj_hash = 874257364;
-  cdat->dobj_3434__IS_MIXLOC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3434__IS_MIXLOC));
- 
- /*inimult dtup_3435__IS_MIXLOC*/
- /*_.VALTUP___V3446*/ curfptr[3445] = (void*)&cdat->dtup_3435__IS_MIXLOC;
-  cdat->dtup_3435__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3435__IS_MIXLOC.nbval = 3;
- /*inimult dtup_3436__IS_MIXLOC*/
- /*_.VALTUP___V3443*/ curfptr[3442] = (void*)&cdat->dtup_3436__IS_MIXLOC;
-  cdat->dtup_3436__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3436__IS_MIXLOC.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1855:/ iniobj");
- /*iniobj dobj_3437*/
- if (!/*_.VALDATA___V3442*/ curfptr[3441]) /*_.VALDATA___V3442*/ curfptr[3441] = (void*)&cdat->dobj_3437;
-  melt_assertmsg("iniobj checkdiscr dobj_3437", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3437.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3437.obj_num = 0;
-  cdat->dobj_3437.obj_hash = 546431835;
-  cdat->dobj_3437.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3437));
- 
- /*inistring dstr_3438__melt_magic_disc*/
- /*_.VALSTR___V3444*/ curfptr[3443] = (void*)&cdat->dstr_3438__melt_magic_disc;
-  cdat->dstr_3438__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3438__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3438__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3439__OBMAG_MIXL*/
- /*_.VALSTR___V3445*/ curfptr[3444] = (void*)&cdat->dstr_3439__OBMAG_MIXL;
-  cdat->dstr_3439__OBMAG_MIXL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3439__OBMAG_MIXL.val, ")) == OBMAG_MIXLOC)", sizeof(cdat->dstr_3439__OBMAG_MIXL.val)-1);
- 
- /*inistring dstr_3440__IS_MIXLOC*/
- /*_.VALSTR___V3441*/ curfptr[3440] = (void*)&cdat->dstr_3440__IS_MIXLOC;
-  cdat->dstr_3440__IS_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3440__IS_MIXLOC.val, "IS_MIXLOC", sizeof(cdat->dstr_3440__IS_MIXLOC.val)-1);
- 
- /*iniobj dsym_3441__MIXLOC_VAL*/
- if (!/*_.VALDATA___V3447*/ curfptr[3446]) /*_.VALDATA___V3447*/ curfptr[3446] = (void*)&cdat->dsym_3441__MIXLOC_VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_3441__MIXLOC_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3441__MIXLOC_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3441__MIXLOC_VAL.obj_hash = 426681908;
-  cdat->dsym_3441__MIXLOC_VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3441__MIXLOC_VAL));
- 
- /*inistring dstr_3442__MIXLOC_VAL*/
- /*_.VALSTR___V3448*/ curfptr[3447] = (void*)&cdat->dstr_3442__MIXLOC_VAL;
-  cdat->dstr_3442__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3442__MIXLOC_VAL.val, "MIXLOC_VAL", sizeof(cdat->dstr_3442__MIXLOC_VAL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1859:/ iniobj");
- /*iniobj dobj_3443__MIXLOC_VAL*/
- if (!/*_.VALDATA___V3449*/ curfptr[3448]) /*_.VALDATA___V3449*/ curfptr[3448] = (void*)&cdat->dobj_3443__MIXLOC_VAL;
-  melt_assertmsg("iniobj checkdiscr dobj_3443__MIXLOC_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3443__MIXLOC_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3443__MIXLOC_VAL.obj_hash = 645383485;
-  cdat->dobj_3443__MIXLOC_VAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3443__MIXLOC_VAL));
- 
- /*inimult dtup_3444__MIXLOC_VAL*/
- /*_.VALTUP___V3455*/ curfptr[3454] = (void*)&cdat->dtup_3444__MIXLOC_VAL;
-  cdat->dtup_3444__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3444__MIXLOC_VAL.nbval = 3;
- /*inimult dtup_3445__MIXLOC_VAL*/
- /*_.VALTUP___V3452*/ curfptr[3451] = (void*)&cdat->dtup_3445__MIXLOC_VAL;
-  cdat->dtup_3445__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3445__MIXLOC_VAL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1859:/ iniobj");
- /*iniobj dobj_3446*/
- if (!/*_.VALDATA___V3451*/ curfptr[3450]) /*_.VALDATA___V3451*/ curfptr[3450] = (void*)&cdat->dobj_3446;
-  melt_assertmsg("iniobj checkdiscr dobj_3446", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3446.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3446.obj_num = 0;
-  cdat->dobj_3446.obj_hash = 118224371;
-  cdat->dobj_3446.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3446));
- 
- /*inistring dstr_3447__melt_val_mixloc*/
- /*_.VALSTR___V3453*/ curfptr[3452] = (void*)&cdat->dstr_3447__melt_val_mixloc;
-  cdat->dstr_3447__melt_val_mixloc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3447__melt_val_mixloc.val, "(melt_val_mixloc((melt_ptr_t)(", sizeof(cdat->dstr_3447__melt_val_mixloc.val)-1);
- 
- /*inistring dstr_3448__*/
- /*_.VALSTR___V3454*/ curfptr[3453] = (void*)&cdat->dstr_3448__;
-  cdat->dstr_3448__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3448__.val, ")))", sizeof(cdat->dstr_3448__.val)-1);
- 
- /*inistring dstr_3449__MIXLOC_VAL*/
- /*_.VALSTR___V3450*/ curfptr[3449] = (void*)&cdat->dstr_3449__MIXLOC_VAL;
-  cdat->dstr_3449__MIXLOC_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3449__MIXLOC_VAL.val, "MIXLOC_VAL", sizeof(cdat->dstr_3449__MIXLOC_VAL.val)-1);
- 
- /*iniobj dsym_3450__MIXLOC_LOCATION*/
- if (!/*_.VALDATA___V3456*/ curfptr[3455]) /*_.VALDATA___V3456*/ curfptr[3455] = (void*)&cdat->dsym_3450__MIXLOC_LOCATION;
-  melt_assertmsg("iniobj checkdiscr dsym_3450__MIXLOC_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3450__MIXLOC_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3450__MIXLOC_LOCATION.obj_hash = 124619428;
-  cdat->dsym_3450__MIXLOC_LOCATION.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3450__MIXLOC_LOCATION));
- 
- /*inistring dstr_3451__MIXLOC_LOCATION*/
- /*_.VALSTR___V3457*/ curfptr[3456] = (void*)&cdat->dstr_3451__MIXLOC_LOCATION;
-  cdat->dstr_3451__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3451__MIXLOC_LOCATION.val, "MIXLOC_LOCATION", sizeof(cdat->dstr_3451__MIXLOC_LOCATION.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1862:/ iniobj");
- /*iniobj dobj_3452__MIXLOC_LOCATION*/
- if (!/*_.VALDATA___V3458*/ curfptr[3457]) /*_.VALDATA___V3458*/ curfptr[3457] = (void*)&cdat->dobj_3452__MIXLOC_LOCATION;
-  melt_assertmsg("iniobj checkdiscr dobj_3452__MIXLOC_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3452__MIXLOC_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3452__MIXLOC_LOCATION.obj_hash = 34848254;
-  cdat->dobj_3452__MIXLOC_LOCATION.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3452__MIXLOC_LOCATION));
- 
- /*inimult dtup_3453__MIXLOC_LOCATION*/
- /*_.VALTUP___V3464*/ curfptr[3463] = (void*)&cdat->dtup_3453__MIXLOC_LOCATION;
-  cdat->dtup_3453__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3453__MIXLOC_LOCATION.nbval = 3;
- /*inimult dtup_3454__MIXLOC_LOCATION*/
- /*_.VALTUP___V3461*/ curfptr[3460] = (void*)&cdat->dtup_3454__MIXLOC_LOCATION;
-  cdat->dtup_3454__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3454__MIXLOC_LOCATION.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1862:/ iniobj");
- /*iniobj dobj_3455*/
- if (!/*_.VALDATA___V3460*/ curfptr[3459]) /*_.VALDATA___V3460*/ curfptr[3459] = (void*)&cdat->dobj_3455;
-  melt_assertmsg("iniobj checkdiscr dobj_3455", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3455.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3455.obj_num = 0;
-  cdat->dobj_3455.obj_hash = 912227190;
-  cdat->dobj_3455.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3455));
- 
- /*inistring dstr_3456__long_melt_loc*/
- /*_.VALSTR___V3462*/ curfptr[3461] = (void*)&cdat->dstr_3456__long_melt_loc;
-  cdat->dstr_3456__long_melt_loc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3456__long_melt_loc.val, "((long) melt_location_mixloc((melt_ptr_t)(", sizeof(cdat->dstr_3456__long_melt_loc.val)-1);
- 
- /*inistring dstr_3457__*/
- /*_.VALSTR___V3463*/ curfptr[3462] = (void*)&cdat->dstr_3457__;
-  cdat->dstr_3457__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3457__.val, ")))", sizeof(cdat->dstr_3457__.val)-1);
- 
- /*inistring dstr_3458__MIXLOC_LOCATION*/
- /*_.VALSTR___V3459*/ curfptr[3458] = (void*)&cdat->dstr_3458__MIXLOC_LOCATION;
-  cdat->dstr_3458__MIXLOC_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3458__MIXLOC_LOCATION.val, "MIXLOC_LOCATION", sizeof(cdat->dstr_3458__MIXLOC_LOCATION.val)-1);
- 
- /*iniobj dsym_3459__MIXLOC_LOCLINE*/
- if (!/*_.VALDATA___V3465*/ curfptr[3464]) /*_.VALDATA___V3465*/ curfptr[3464] = (void*)&cdat->dsym_3459__MIXLOC_LOCLINE;
-  melt_assertmsg("iniobj checkdiscr dsym_3459__MIXLOC_LOCLINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3459__MIXLOC_LOCLINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3459__MIXLOC_LOCLINE.obj_hash = 472255772;
-  cdat->dsym_3459__MIXLOC_LOCLINE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3459__MIXLOC_LOCLINE));
- 
- /*inistring dstr_3460__MIXLOC_LOCLINE*/
- /*_.VALSTR___V3466*/ curfptr[3465] = (void*)&cdat->dstr_3460__MIXLOC_LOCLINE;
-  cdat->dstr_3460__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3460__MIXLOC_LOCLINE.val, "MIXLOC_LOCLINE", sizeof(cdat->dstr_3460__MIXLOC_LOCLINE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1865:/ iniobj");
- /*iniobj dobj_3461__MIXLOC_LOCLINE*/
- if (!/*_.VALDATA___V3467*/ curfptr[3466]) /*_.VALDATA___V3467*/ curfptr[3466] = (void*)&cdat->dobj_3461__MIXLOC_LOCLINE;
-  melt_assertmsg("iniobj checkdiscr dobj_3461__MIXLOC_LOCLINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3461__MIXLOC_LOCLINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3461__MIXLOC_LOCLINE.obj_hash = 123650243;
-  cdat->dobj_3461__MIXLOC_LOCLINE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3461__MIXLOC_LOCLINE));
- 
- /*inimult dtup_3462__MIXLOC_LOCLINE*/
- /*_.VALTUP___V3473*/ curfptr[3472] = (void*)&cdat->dtup_3462__MIXLOC_LOCLINE;
-  cdat->dtup_3462__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3462__MIXLOC_LOCLINE.nbval = 3;
- /*inimult dtup_3463__MIXLOC_LOCLINE*/
- /*_.VALTUP___V3470*/ curfptr[3469] = (void*)&cdat->dtup_3463__MIXLOC_LOCLINE;
-  cdat->dtup_3463__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3463__MIXLOC_LOCLINE.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1865:/ iniobj");
- /*iniobj dobj_3464*/
- if (!/*_.VALDATA___V3469*/ curfptr[3468]) /*_.VALDATA___V3469*/ curfptr[3468] = (void*)&cdat->dobj_3464;
-  melt_assertmsg("iniobj checkdiscr dobj_3464", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3464.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3464.obj_num = 0;
-  cdat->dobj_3464.obj_hash = 925616208;
-  cdat->dobj_3464.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3464));
- 
- /*inistring dstr_3465__LOCATION_LINE_m*/
- /*_.VALSTR___V3471*/ curfptr[3470] = (void*)&cdat->dstr_3465__LOCATION_LINE_m;
-  cdat->dstr_3465__LOCATION_LINE_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3465__LOCATION_LINE_m.val, "(LOCATION_LINE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_3465__LOCATION_LINE_m.val)-1);
- 
- /*inistring dstr_3466__*/
- /*_.VALSTR___V3472*/ curfptr[3471] = (void*)&cdat->dstr_3466__;
-  cdat->dstr_3466__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3466__.val, ")))", sizeof(cdat->dstr_3466__.val)-1);
- 
- /*inistring dstr_3467__MIXLOC_LOCLINE*/
- /*_.VALSTR___V3468*/ curfptr[3467] = (void*)&cdat->dstr_3467__MIXLOC_LOCLINE;
-  cdat->dstr_3467__MIXLOC_LOCLINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3467__MIXLOC_LOCLINE.val, "MIXLOC_LOCLINE", sizeof(cdat->dstr_3467__MIXLOC_LOCLINE.val)-1);
- 
- /*iniobj dsym_3468__MIXLOC_LOCFILE*/
- if (!/*_.VALDATA___V3474*/ curfptr[3473]) /*_.VALDATA___V3474*/ curfptr[3473] = (void*)&cdat->dsym_3468__MIXLOC_LOCFILE;
-  melt_assertmsg("iniobj checkdiscr dsym_3468__MIXLOC_LOCFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3468__MIXLOC_LOCFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3468__MIXLOC_LOCFILE.obj_hash = 544320959;
-  cdat->dsym_3468__MIXLOC_LOCFILE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3468__MIXLOC_LOCFILE));
- 
- /*inistring dstr_3469__MIXLOC_LOCFILE*/
- /*_.VALSTR___V3475*/ curfptr[3474] = (void*)&cdat->dstr_3469__MIXLOC_LOCFILE;
-  cdat->dstr_3469__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3469__MIXLOC_LOCFILE.val, "MIXLOC_LOCFILE", sizeof(cdat->dstr_3469__MIXLOC_LOCFILE.val)-1);
+ MELT_LOCATION("warmelt-first.melt:1868:/ iniobj");
+ /*iniobj dobj_3471__MAKE_MIXLOC*/
+ if (!/*_.VALDATA___V3477*/ curfptr[3476]) /*_.VALDATA___V3477*/ curfptr[3476] = (void*)&cdat->dobj_3471__MAKE_MIXLOC;
+  melt_assertmsg("iniobj checkdiscr dobj_3471__MAKE_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3471__MAKE_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3471__MAKE_MIXLOC.obj_hash = 945582978;
+  cdat->dobj_3471__MAKE_MIXLOC.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3471__MAKE_MIXLOC));
+ 
+ /*inimult dtup_3472__MAKE_MIXLOC*/
+ /*_.VALTUP___V3491*/ curfptr[3490] = (void*)&cdat->dtup_3472__MAKE_MIXLOC;
+  cdat->dtup_3472__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3472__MAKE_MIXLOC.nbval = 9;
+ /*inimult dtup_3473__MAKE_MIXLOC*/
+ /*_.VALTUP___V3485*/ curfptr[3484] = (void*)&cdat->dtup_3473__MAKE_MIXLOC;
+  cdat->dtup_3473__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3473__MAKE_MIXLOC.nbval = 4;
+ MELT_LOCATION("warmelt-first.melt:1868:/ iniobj");
+ /*iniobj dobj_3474*/
+ if (!/*_.VALDATA___V3479*/ curfptr[3478]) /*_.VALDATA___V3479*/ curfptr[3478] = (void*)&cdat->dobj_3474;
+  melt_assertmsg("iniobj checkdiscr dobj_3474", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3474.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3474.obj_num = 0;
+  cdat->dobj_3474.obj_hash = 556698520;
+  cdat->dobj_3474.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3474));
  
  MELT_LOCATION("warmelt-first.melt:1868:/ iniobj");
- /*iniobj dobj_3470__MIXLOC_LOCFILE*/
- if (!/*_.VALDATA___V3476*/ curfptr[3475]) /*_.VALDATA___V3476*/ curfptr[3475] = (void*)&cdat->dobj_3470__MIXLOC_LOCFILE;
-  melt_assertmsg("iniobj checkdiscr dobj_3470__MIXLOC_LOCFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3470__MIXLOC_LOCFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3470__MIXLOC_LOCFILE.obj_hash = 221834522;
-  cdat->dobj_3470__MIXLOC_LOCFILE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3470__MIXLOC_LOCFILE));
- 
- /*inimult dtup_3471__MIXLOC_LOCFILE*/
- /*_.VALTUP___V3482*/ curfptr[3481] = (void*)&cdat->dtup_3471__MIXLOC_LOCFILE;
-  cdat->dtup_3471__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3471__MIXLOC_LOCFILE.nbval = 3;
- /*inimult dtup_3472__MIXLOC_LOCFILE*/
- /*_.VALTUP___V3479*/ curfptr[3478] = (void*)&cdat->dtup_3472__MIXLOC_LOCFILE;
-  cdat->dtup_3472__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3472__MIXLOC_LOCFILE.nbval = 1;
+ /*iniobj dobj_3475*/
+ if (!/*_.VALDATA___V3480*/ curfptr[3479]) /*_.VALDATA___V3480*/ curfptr[3479] = (void*)&cdat->dobj_3475;
+  melt_assertmsg("iniobj checkdiscr dobj_3475", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3475.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3475.obj_num = 1;
+  cdat->dobj_3475.obj_hash = 893846273;
+  cdat->dobj_3475.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3475));
+ 
  MELT_LOCATION("warmelt-first.melt:1868:/ iniobj");
- /*iniobj dobj_3473*/
- if (!/*_.VALDATA___V3478*/ curfptr[3477]) /*_.VALDATA___V3478*/ curfptr[3477] = (void*)&cdat->dobj_3473;
-  melt_assertmsg("iniobj checkdiscr dobj_3473", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3473.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3473.obj_num = 0;
-  cdat->dobj_3473.obj_hash = 892185210;
-  cdat->dobj_3473.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3473));
- 
- /*inistring dstr_3474__LOCATION_FILE_m*/
- /*_.VALSTR___V3480*/ curfptr[3479] = (void*)&cdat->dstr_3474__LOCATION_FILE_m;
-  cdat->dstr_3474__LOCATION_FILE_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3474__LOCATION_FILE_m.val, "(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)", sizeof(cdat->dstr_3474__LOCATION_FILE_m.val)-1);
- 
- /*inistring dstr_3475__*/
- /*_.VALSTR___V3481*/ curfptr[3480] = (void*)&cdat->dstr_3475__;
-  cdat->dstr_3475__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3475__.val, ")))", sizeof(cdat->dstr_3475__.val)-1);
- 
- /*inistring dstr_3476__MIXLOC_LOCFILE*/
- /*_.VALSTR___V3477*/ curfptr[3476] = (void*)&cdat->dstr_3476__MIXLOC_LOCFILE;
-  cdat->dstr_3476__MIXLOC_LOCFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3476__MIXLOC_LOCFILE.val, "MIXLOC_LOCFILE", sizeof(cdat->dstr_3476__MIXLOC_LOCFILE.val)-1);
- 
- /*iniobj dsym_3477__MAKE_MIXLOC*/
- if (!/*_.VALDATA___V3483*/ curfptr[3482]) /*_.VALDATA___V3483*/ curfptr[3482] = (void*)&cdat->dsym_3477__MAKE_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dsym_3477__MAKE_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3477__MAKE_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3477__MAKE_MIXLOC.obj_hash = 45656071;
-  cdat->dsym_3477__MAKE_MIXLOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3477__MAKE_MIXLOC));
- 
- /*inistring dstr_3478__MAKE_MIXLOC*/
- /*_.VALSTR___V3484*/ curfptr[3483] = (void*)&cdat->dstr_3478__MAKE_MIXLOC;
-  cdat->dstr_3478__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3478__MAKE_MIXLOC.val, "MAKE_MIXLOC", sizeof(cdat->dstr_3478__MAKE_MIXLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1873:/ iniobj");
- /*iniobj dobj_3479__MAKE_MIXLOC*/
- if (!/*_.VALDATA___V3485*/ curfptr[3484]) /*_.VALDATA___V3485*/ curfptr[3484] = (void*)&cdat->dobj_3479__MAKE_MIXLOC;
-  melt_assertmsg("iniobj checkdiscr dobj_3479__MAKE_MIXLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3479__MAKE_MIXLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3479__MAKE_MIXLOC.obj_hash = 496918443;
-  cdat->dobj_3479__MAKE_MIXLOC.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3479__MAKE_MIXLOC));
- 
- /*inimult dtup_3480__MAKE_MIXLOC*/
- /*_.VALTUP___V3499*/ curfptr[3498] = (void*)&cdat->dtup_3480__MAKE_MIXLOC;
-  cdat->dtup_3480__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3480__MAKE_MIXLOC.nbval = 9;
- /*inimult dtup_3481__MAKE_MIXLOC*/
- /*_.VALTUP___V3493*/ curfptr[3492] = (void*)&cdat->dtup_3481__MAKE_MIXLOC;
-  cdat->dtup_3481__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3481__MAKE_MIXLOC.nbval = 4;
- MELT_LOCATION("warmelt-first.melt:1873:/ iniobj");
- /*iniobj dobj_3482*/
- if (!/*_.VALDATA___V3487*/ curfptr[3486]) /*_.VALDATA___V3487*/ curfptr[3486] = (void*)&cdat->dobj_3482;
-  melt_assertmsg("iniobj checkdiscr dobj_3482", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3482.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3482.obj_num = 0;
-  cdat->dobj_3482.obj_hash = 735867146;
-  cdat->dobj_3482.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3482));
- 
- MELT_LOCATION("warmelt-first.melt:1873:/ iniobj");
- /*iniobj dobj_3483*/
- if (!/*_.VALDATA___V3488*/ curfptr[3487]) /*_.VALDATA___V3488*/ curfptr[3487] = (void*)&cdat->dobj_3483;
-  melt_assertmsg("iniobj checkdiscr dobj_3483", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3483.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3483.obj_num = 1;
-  cdat->dobj_3483.obj_hash = 14259085;
-  cdat->dobj_3483.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3483));
- 
- MELT_LOCATION("warmelt-first.melt:1873:/ iniobj");
- /*iniobj dobj_3484*/
- if (!/*_.VALDATA___V3489*/ curfptr[3488]) /*_.VALDATA___V3489*/ curfptr[3488] = (void*)&cdat->dobj_3484;
-  melt_assertmsg("iniobj checkdiscr dobj_3484", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3484.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3484.obj_num = 2;
-  cdat->dobj_3484.obj_hash = 487664495;
-  cdat->dobj_3484.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3484));
- 
- /*iniobj dsym_3485__LOC*/
- if (!/*_.VALDATA___V3491*/ curfptr[3490]) /*_.VALDATA___V3491*/ curfptr[3490] = (void*)&cdat->dsym_3485__LOC;
-  melt_assertmsg("iniobj checkdiscr dsym_3485__LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3485__LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3485__LOC.obj_hash = 91372345;
-  cdat->dsym_3485__LOC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3485__LOC));
- 
- /*inistring dstr_3486__LOC*/
- /*_.VALSTR___V3492*/ curfptr[3491] = (void*)&cdat->dstr_3486__LOC;
-  cdat->dstr_3486__LOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3486__LOC.val, "LOC", sizeof(cdat->dstr_3486__LOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1873:/ iniobj");
- /*iniobj dobj_3487*/
- if (!/*_.VALDATA___V3490*/ curfptr[3489]) /*_.VALDATA___V3490*/ curfptr[3489] = (void*)&cdat->dobj_3487;
-  melt_assertmsg("iniobj checkdiscr dobj_3487", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3487.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3487.obj_num = 3;
-  cdat->dobj_3487.obj_hash = 892373273;
-  cdat->dobj_3487.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3487));
- 
- /*inistring dstr_3488__meltgc_new_mixl*/
- /*_.VALSTR___V3494*/ curfptr[3493] = (void*)&cdat->dstr_3488__meltgc_new_mixl;
-  cdat->dstr_3488__meltgc_new_mixl.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3488__meltgc_new_mixl.val, "(meltgc_new_mixloc((meltobject_ptr_t)(", sizeof(cdat->dstr_3488__meltgc_new_mixl.val)-1);
- 
- /*inistring dstr_3489__melt_ptr_t_*/
- /*_.VALSTR___V3495*/ curfptr[3494] = (void*)&cdat->dstr_3489__melt_ptr_t_;
-  cdat->dstr_3489__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3489__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3489__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3490__*/
- /*_.VALSTR___V3496*/ curfptr[3495] = (void*)&cdat->dstr_3490__;
-  cdat->dstr_3490__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3490__.val, "), \n\t\t       (", sizeof(cdat->dstr_3490__.val)-1);
- 
- /*inistring dstr_3491__location_t_*/
- /*_.VALSTR___V3497*/ curfptr[3496] = (void*)&cdat->dstr_3491__location_t_;
-  cdat->dstr_3491__location_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3491__location_t_.val, "), (location_t)(", sizeof(cdat->dstr_3491__location_t_.val)-1);
- 
- /*inistring dstr_3492__*/
- /*_.VALSTR___V3498*/ curfptr[3497] = (void*)&cdat->dstr_3492__;
-  cdat->dstr_3492__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3492__.val, ")))", sizeof(cdat->dstr_3492__.val)-1);
- 
- /*inistring dstr_3493__MAKE_MIXLOC*/
- /*_.VALSTR___V3486*/ curfptr[3485] = (void*)&cdat->dstr_3493__MAKE_MIXLOC;
-  cdat->dstr_3493__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3493__MAKE_MIXLOC.val, "MAKE_MIXLOC", sizeof(cdat->dstr_3493__MAKE_MIXLOC.val)-1);
- 
- /*iniobj dsym_3494__IS_MIXBIGINT*/
- if (!/*_.VALDATA___V3500*/ curfptr[3499]) /*_.VALDATA___V3500*/ curfptr[3499] = (void*)&cdat->dsym_3494__IS_MIXBIGINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3494__IS_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3494__IS_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3494__IS_MIXBIGINT.obj_hash = 757221653;
-  cdat->dsym_3494__IS_MIXBIGINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3494__IS_MIXBIGINT));
- 
- /*inistring dstr_3495__IS_MIXBIGINT*/
- /*_.VALSTR___V3501*/ curfptr[3500] = (void*)&cdat->dstr_3495__IS_MIXBIGINT;
-  cdat->dstr_3495__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3495__IS_MIXBIGINT.val, "IS_MIXBIGINT", sizeof(cdat->dstr_3495__IS_MIXBIGINT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1882:/ iniobj");
- /*iniobj dobj_3496__IS_MIXBIGINT*/
- if (!/*_.VALDATA___V3502*/ curfptr[3501]) /*_.VALDATA___V3502*/ curfptr[3501] = (void*)&cdat->dobj_3496__IS_MIXBIGINT;
-  melt_assertmsg("iniobj checkdiscr dobj_3496__IS_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3496__IS_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3496__IS_MIXBIGINT.obj_hash = 619289269;
-  cdat->dobj_3496__IS_MIXBIGINT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3496__IS_MIXBIGINT));
- 
- /*inimult dtup_3497__IS_MIXBIGINT*/
- /*_.VALTUP___V3510*/ curfptr[3509] = (void*)&cdat->dtup_3497__IS_MIXBIGINT;
-  cdat->dtup_3497__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3497__IS_MIXBIGINT.nbval = 3;
- /*inimult dtup_3498__IS_MIXBIGINT*/
- /*_.VALTUP___V3507*/ curfptr[3506] = (void*)&cdat->dtup_3498__IS_MIXBIGINT;
-  cdat->dtup_3498__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3498__IS_MIXBIGINT.nbval = 1;
- /*iniobj dsym_3499__MB*/
- if (!/*_.VALDATA___V3505*/ curfptr[3504]) /*_.VALDATA___V3505*/ curfptr[3504] = (void*)&cdat->dsym_3499__MB;
-  melt_assertmsg("iniobj checkdiscr dsym_3499__MB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3499__MB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3499__MB.obj_hash = 166925846;
-  cdat->dsym_3499__MB.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3499__MB));
- 
- /*inistring dstr_3500__MB*/
- /*_.VALSTR___V3506*/ curfptr[3505] = (void*)&cdat->dstr_3500__MB;
-  cdat->dstr_3500__MB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3500__MB.val, "MB", sizeof(cdat->dstr_3500__MB.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1882:/ iniobj");
- /*iniobj dobj_3501*/
- if (!/*_.VALDATA___V3504*/ curfptr[3503]) /*_.VALDATA___V3504*/ curfptr[3503] = (void*)&cdat->dobj_3501;
-  melt_assertmsg("iniobj checkdiscr dobj_3501", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3501.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3501.obj_num = 0;
-  cdat->dobj_3501.obj_hash = 870617415;
-  cdat->dobj_3501.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3501));
- 
- /*inistring dstr_3502__melt_magic_disc*/
- /*_.VALSTR___V3508*/ curfptr[3507] = (void*)&cdat->dstr_3502__melt_magic_disc;
-  cdat->dstr_3502__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3502__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3502__melt_magic_disc.val)-1);
- 
- /*inistring dstr_3503__OBMAG_MIXB*/
- /*_.VALSTR___V3509*/ curfptr[3508] = (void*)&cdat->dstr_3503__OBMAG_MIXB;
-  cdat->dstr_3503__OBMAG_MIXB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3503__OBMAG_MIXB.val, ")) == OBMAG_MIXBIGINT)", sizeof(cdat->dstr_3503__OBMAG_MIXB.val)-1);
- 
- /*inistring dstr_3504__IS_MIXBIGINT*/
- /*_.VALSTR___V3503*/ curfptr[3502] = (void*)&cdat->dstr_3504__IS_MIXBIGINT;
-  cdat->dstr_3504__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3504__IS_MIXBIGINT.val, "IS_MIXBIGINT", sizeof(cdat->dstr_3504__IS_MIXBIGINT.val)-1);
- 
- /*iniobj dsym_3505__MIXBIGINT_VAL*/
- if (!/*_.VALDATA___V3511*/ curfptr[3510]) /*_.VALDATA___V3511*/ curfptr[3510] = (void*)&cdat->dsym_3505__MIXBIGINT_VAL;
-  melt_assertmsg("iniobj checkdiscr dsym_3505__MIXBIGINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3505__MIXBIGINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3505__MIXBIGINT_VAL.obj_hash = 228872411;
-  cdat->dsym_3505__MIXBIGINT_VAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3505__MIXBIGINT_VAL));
- 
- /*inistring dstr_3506__MIXBIGINT_VAL*/
- /*_.VALSTR___V3512*/ curfptr[3511] = (void*)&cdat->dstr_3506__MIXBIGINT_VAL;
-  cdat->dstr_3506__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3506__MIXBIGINT_VAL.val, "MIXBIGINT_VAL", sizeof(cdat->dstr_3506__MIXBIGINT_VAL.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1885:/ iniobj");
- /*iniobj dobj_3507__MIXBIGINT_VAL*/
- if (!/*_.VALDATA___V3513*/ curfptr[3512]) /*_.VALDATA___V3513*/ curfptr[3512] = (void*)&cdat->dobj_3507__MIXBIGINT_VAL;
-  melt_assertmsg("iniobj checkdiscr dobj_3507__MIXBIGINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3507__MIXBIGINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3507__MIXBIGINT_VAL.obj_hash = 589563920;
-  cdat->dobj_3507__MIXBIGINT_VAL.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3507__MIXBIGINT_VAL));
- 
- /*inimult dtup_3508__MIXBIGINT_VAL*/
- /*_.VALTUP___V3519*/ curfptr[3518] = (void*)&cdat->dtup_3508__MIXBIGINT_VAL;
-  cdat->dtup_3508__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3508__MIXBIGINT_VAL.nbval = 3;
- /*inimult dtup_3509__MIXBIGINT_VAL*/
- /*_.VALTUP___V3516*/ curfptr[3515] = (void*)&cdat->dtup_3509__MIXBIGINT_VAL;
-  cdat->dtup_3509__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3509__MIXBIGINT_VAL.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1885:/ iniobj");
- /*iniobj dobj_3510*/
- if (!/*_.VALDATA___V3515*/ curfptr[3514]) /*_.VALDATA___V3515*/ curfptr[3514] = (void*)&cdat->dobj_3510;
-  melt_assertmsg("iniobj checkdiscr dobj_3510", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3510.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3510.obj_num = 0;
-  cdat->dobj_3510.obj_hash = 449326611;
-  cdat->dobj_3510.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3510));
- 
- /*inistring dstr_3511__melt_val_mixbigi*/
- /*_.VALSTR___V3517*/ curfptr[3516] = (void*)&cdat->dstr_3511__melt_val_mixbigi;
-  cdat->dstr_3511__melt_val_mixbigi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3511__melt_val_mixbigi.val, "melt_val_mixbigint(", sizeof(cdat->dstr_3511__melt_val_mixbigi.val)-1);
- 
- /*inistring dstr_3512__*/
- /*_.VALSTR___V3518*/ curfptr[3517] = (void*)&cdat->dstr_3512__;
-  cdat->dstr_3512__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3512__.val, ")", sizeof(cdat->dstr_3512__.val)-1);
- 
- /*inistring dstr_3513__MIXBIGINT_VAL*/
- /*_.VALSTR___V3514*/ curfptr[3513] = (void*)&cdat->dstr_3513__MIXBIGINT_VAL;
-  cdat->dstr_3513__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3513__MIXBIGINT_VAL.val, "MIXBIGINT_VAL", sizeof(cdat->dstr_3513__MIXBIGINT_VAL.val)-1);
- 
- /*iniobj dsym_3514__PPSTRBUF_MIXBIGINT*/
- if (!/*_.VALDATA___V3520*/ curfptr[3519]) /*_.VALDATA___V3520*/ curfptr[3519] = (void*)&cdat->dsym_3514__PPSTRBUF_MIXBIGINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3514__PPSTRBUF_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3514__PPSTRBUF_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3514__PPSTRBUF_MIXBIGINT.obj_hash = 90990039;
-  cdat->dsym_3514__PPSTRBUF_MIXBIGINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3514__PPSTRBUF_MIXBIGINT));
- 
- /*inistring dstr_3515__PPSTRBUF_MIXBIGI*/
- /*_.VALSTR___V3521*/ curfptr[3520] = (void*)&cdat->dstr_3515__PPSTRBUF_MIXBIGI;
-  cdat->dstr_3515__PPSTRBUF_MIXBIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3515__PPSTRBUF_MIXBIGI.val, "PPSTRBUF_MIXBIGINT", sizeof(cdat->dstr_3515__PPSTRBUF_MIXBIGI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1889:/ iniobj");
- /*iniobj dobj_3516__PPSTRBUF_MIXBIGINT*/
- if (!/*_.VALDATA___V3522*/ curfptr[3521]) /*_.VALDATA___V3522*/ curfptr[3521] = (void*)&cdat->dobj_3516__PPSTRBUF_MIXBIGINT;
-  melt_assertmsg("iniobj checkdiscr dobj_3516__PPSTRBUF_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3516__PPSTRBUF_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3516__PPSTRBUF_MIXBIGINT.obj_hash = 851096343;
-  cdat->dobj_3516__PPSTRBUF_MIXBIGINT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3516__PPSTRBUF_MIXBIGINT));
- 
- /*inimult dtup_3517__PPSTRBUF_MIXBIGINT*/
- /*_.VALTUP___V3534*/ curfptr[3533] = (void*)&cdat->dtup_3517__PPSTRBUF_MIXBIGINT;
-  cdat->dtup_3517__PPSTRBUF_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3517__PPSTRBUF_MIXBIGINT.nbval = 7;
- /*inimult dtup_3518__PPSTRBUF_MIXBIGINT*/
- /*_.VALTUP___V3529*/ curfptr[3528] = (void*)&cdat->dtup_3518__PPSTRBUF_MIXBIGINT;
-  cdat->dtup_3518__PPSTRBUF_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3518__PPSTRBUF_MIXBIGINT.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1889:/ iniobj");
- /*iniobj dobj_3519*/
- if (!/*_.VALDATA___V3524*/ curfptr[3523]) /*_.VALDATA___V3524*/ curfptr[3523] = (void*)&cdat->dobj_3519;
-  melt_assertmsg("iniobj checkdiscr dobj_3519", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3519.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3519.obj_num = 0;
-  cdat->dobj_3519.obj_hash = 1039092090;
-  cdat->dobj_3519.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3519));
- 
- /*iniobj dsym_3520__INDENT*/
- if (!/*_.VALDATA___V3526*/ curfptr[3525]) /*_.VALDATA___V3526*/ curfptr[3525] = (void*)&cdat->dsym_3520__INDENT;
-  melt_assertmsg("iniobj checkdiscr dsym_3520__INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3520__INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3520__INDENT.obj_hash = 595028209;
-  cdat->dsym_3520__INDENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3520__INDENT));
- 
- /*inistring dstr_3521__INDENT*/
- /*_.VALSTR___V3527*/ curfptr[3526] = (void*)&cdat->dstr_3521__INDENT;
-  cdat->dstr_3521__INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3521__INDENT.val, "INDENT", sizeof(cdat->dstr_3521__INDENT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1889:/ iniobj");
- /*iniobj dobj_3522*/
- if (!/*_.VALDATA___V3525*/ curfptr[3524]) /*_.VALDATA___V3525*/ curfptr[3524] = (void*)&cdat->dobj_3522;
-  melt_assertmsg("iniobj checkdiscr dobj_3522", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3522.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3522.obj_num = 1;
-  cdat->dobj_3522.obj_hash = 833879905;
-  cdat->dobj_3522.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3522));
- 
- MELT_LOCATION("warmelt-first.melt:1889:/ iniobj");
- /*iniobj dobj_3523*/
- if (!/*_.VALDATA___V3528*/ curfptr[3527]) /*_.VALDATA___V3528*/ curfptr[3527] = (void*)&cdat->dobj_3523;
-  melt_assertmsg("iniobj checkdiscr dobj_3523", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3523.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3523.obj_num = 2;
-  cdat->dobj_3523.obj_hash = 98690339;
-  cdat->dobj_3523.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3523));
- 
- /*inistring dstr_3524__meltgc_ppstrbuf_*/
- /*_.VALSTR___V3530*/ curfptr[3529] = (void*)&cdat->dstr_3524__meltgc_ppstrbuf_;
-  cdat->dstr_3524__meltgc_ppstrbuf_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3524__meltgc_ppstrbuf_.val, "meltgc_ppstrbuf_mixbigint(", sizeof(cdat->dstr_3524__meltgc_ppstrbuf_.val)-1);
- 
- /*inistring dstr_3525__*/
- /*_.VALSTR___V3531*/ curfptr[3530] = (void*)&cdat->dstr_3525__;
-  cdat->dstr_3525__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3525__.val, ",", sizeof(cdat->dstr_3525__.val)-1);
- 
- /*inistring dstr_3526__*/
- /*_.VALSTR___V3532*/ curfptr[3531] = (void*)&cdat->dstr_3526__;
-  cdat->dstr_3526__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3526__.val, ",", sizeof(cdat->dstr_3526__.val)-1);
- 
- /*inistring dstr_3527__*/
- /*_.VALSTR___V3533*/ curfptr[3532] = (void*)&cdat->dstr_3527__;
-  cdat->dstr_3527__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3527__.val, ");", sizeof(cdat->dstr_3527__.val)-1);
- 
- /*inistring dstr_3528__PPSTRBUF_MIXBIGI*/
- /*_.VALSTR___V3523*/ curfptr[3522] = (void*)&cdat->dstr_3528__PPSTRBUF_MIXBIGI;
-  cdat->dstr_3528__PPSTRBUF_MIXBIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3528__PPSTRBUF_MIXBIGI.val, "PPSTRBUF_MIXBIGINT", sizeof(cdat->dstr_3528__PPSTRBUF_MIXBIGI.val)-1);
- 
- /*iniobj dsym_3529__READ_FILE*/
- if (!/*_.VALDATA___V3535*/ curfptr[3534]) /*_.VALDATA___V3535*/ curfptr[3534] = (void*)&cdat->dsym_3529__READ_FILE;
-  melt_assertmsg("iniobj checkdiscr dsym_3529__READ_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3529__READ_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3529__READ_FILE.obj_hash = 353044055;
-  cdat->dsym_3529__READ_FILE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3529__READ_FILE));
- 
- /*inistring dstr_3530__READ_FILE*/
- /*_.VALSTR___V3536*/ curfptr[3535] = (void*)&cdat->dstr_3530__READ_FILE;
-  cdat->dstr_3530__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3530__READ_FILE.val, "READ_FILE", sizeof(cdat->dstr_3530__READ_FILE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1895:/ iniobj");
- /*iniobj dobj_3531__READ_FILE*/
- if (!/*_.VALDATA___V3537*/ curfptr[3536]) /*_.VALDATA___V3537*/ curfptr[3536] = (void*)&cdat->dobj_3531__READ_FILE;
-  melt_assertmsg("iniobj checkdiscr dobj_3531__READ_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3531__READ_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3531__READ_FILE.obj_hash = 622432260;
-  cdat->dobj_3531__READ_FILE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3531__READ_FILE));
- 
- /*inimult dtup_3532__READ_FILE*/
- /*_.VALTUP___V3545*/ curfptr[3544] = (void*)&cdat->dtup_3532__READ_FILE;
-  cdat->dtup_3532__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3532__READ_FILE.nbval = 3;
- /*inimult dtup_3533__READ_FILE*/
- /*_.VALTUP___V3542*/ curfptr[3541] = (void*)&cdat->dtup_3533__READ_FILE;
-  cdat->dtup_3533__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3533__READ_FILE.nbval = 1;
- /*iniobj dsym_3534__FILNAM*/
- if (!/*_.VALDATA___V3540*/ curfptr[3539]) /*_.VALDATA___V3540*/ curfptr[3539] = (void*)&cdat->dsym_3534__FILNAM;
-  melt_assertmsg("iniobj checkdiscr dsym_3534__FILNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3534__FILNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3534__FILNAM.obj_hash = 47682817;
-  cdat->dsym_3534__FILNAM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3534__FILNAM));
- 
- /*inistring dstr_3535__FILNAM*/
- /*_.VALSTR___V3541*/ curfptr[3540] = (void*)&cdat->dstr_3535__FILNAM;
-  cdat->dstr_3535__FILNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3535__FILNAM.val, "FILNAM", sizeof(cdat->dstr_3535__FILNAM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1895:/ iniobj");
- /*iniobj dobj_3536*/
- if (!/*_.VALDATA___V3539*/ curfptr[3538]) /*_.VALDATA___V3539*/ curfptr[3538] = (void*)&cdat->dobj_3536;
-  melt_assertmsg("iniobj checkdiscr dobj_3536", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3536.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3536.obj_num = 0;
-  cdat->dobj_3536.obj_hash = 297018068;
-  cdat->dobj_3536.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3536));
- 
- /*inistring dstr_3537__meltgc_read_fil*/
- /*_.VALSTR___V3543*/ curfptr[3542] = (void*)&cdat->dstr_3537__meltgc_read_fil;
-  cdat->dstr_3537__meltgc_read_fil.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3537__meltgc_read_fil.val, "(meltgc_read_file (melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3537__meltgc_read_fil.val)-1);
- 
- /*inistring dstr_3538__char_0_*/
- /*_.VALSTR___V3544*/ curfptr[3543] = (void*)&cdat->dstr_3538__char_0_;
-  cdat->dstr_3538__char_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3538__char_0_.val, ")), (char*)0))", sizeof(cdat->dstr_3538__char_0_.val)-1);
- 
- /*inistring dstr_3539__READ_FILE*/
- /*_.VALSTR___V3538*/ curfptr[3537] = (void*)&cdat->dstr_3539__READ_FILE;
-  cdat->dstr_3539__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3539__READ_FILE.val, "READ_FILE", sizeof(cdat->dstr_3539__READ_FILE.val)-1);
- 
- /*iniobj dsym_3540__ERROR_STRV*/
- if (!/*_.VALDATA___V3546*/ curfptr[3545]) /*_.VALDATA___V3546*/ curfptr[3545] = (void*)&cdat->dsym_3540__ERROR_STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_3540__ERROR_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3540__ERROR_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3540__ERROR_STRV.obj_hash = 34568801;
-  cdat->dsym_3540__ERROR_STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3540__ERROR_STRV));
- 
- /*inistring dstr_3541__ERROR_STRV*/
- /*_.VALSTR___V3547*/ curfptr[3546] = (void*)&cdat->dstr_3541__ERROR_STRV;
-  cdat->dstr_3541__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3541__ERROR_STRV.val, "ERROR_STRV", sizeof(cdat->dstr_3541__ERROR_STRV.val)-1);
+ /*iniobj dobj_3476*/
+ if (!/*_.VALDATA___V3481*/ curfptr[3480]) /*_.VALDATA___V3481*/ curfptr[3480] = (void*)&cdat->dobj_3476;
+  melt_assertmsg("iniobj checkdiscr dobj_3476", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3476.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3476.obj_num = 2;
+  cdat->dobj_3476.obj_hash = 510681233;
+  cdat->dobj_3476.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3476));
+ 
+ /*iniobj dsym_3477__LOC*/
+ if (!/*_.VALDATA___V3483*/ curfptr[3482]) /*_.VALDATA___V3483*/ curfptr[3482] = (void*)&cdat->dsym_3477__LOC;
+  melt_assertmsg("iniobj checkdiscr dsym_3477__LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3477__LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3477__LOC.obj_hash = 91372345;
+  cdat->dsym_3477__LOC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3477__LOC));
+ 
+ /*inistring dstr_3478__LOC*/
+ /*_.VALSTR___V3484*/ curfptr[3483] = (void*)&cdat->dstr_3478__LOC;
+  cdat->dstr_3478__LOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3478__LOC.val, "LOC", sizeof(cdat->dstr_3478__LOC.val)-1);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ iniobj");
- /*iniobj dobj_3542__ERROR_STRV*/
- if (!/*_.VALDATA___V3548*/ curfptr[3547]) /*_.VALDATA___V3548*/ curfptr[3547] = (void*)&cdat->dobj_3542__ERROR_STRV;
-  melt_assertmsg("iniobj checkdiscr dobj_3542__ERROR_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3542__ERROR_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3542__ERROR_STRV.obj_hash = 341751660;
-  cdat->dobj_3542__ERROR_STRV.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3542__ERROR_STRV));
- 
- /*inimult dtup_3543__ERROR_STRV*/
- /*_.VALTUP___V3560*/ curfptr[3559] = (void*)&cdat->dtup_3543__ERROR_STRV;
-  cdat->dtup_3543__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3543__ERROR_STRV.nbval = 7;
- /*inimult dtup_3544__ERROR_STRV*/
- /*_.VALTUP___V3555*/ curfptr[3554] = (void*)&cdat->dtup_3544__ERROR_STRV;
-  cdat->dtup_3544__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3544__ERROR_STRV.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1901:/ iniobj");
- /*iniobj dobj_3545*/
- if (!/*_.VALDATA___V3550*/ curfptr[3549]) /*_.VALDATA___V3550*/ curfptr[3549] = (void*)&cdat->dobj_3545;
-  melt_assertmsg("iniobj checkdiscr dobj_3545", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3545.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3545.obj_num = 0;
-  cdat->dobj_3545.obj_hash = 772010327;
-  cdat->dobj_3545.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3545));
- 
- /*iniobj dsym_3546__CMSG*/
- if (!/*_.VALDATA___V3552*/ curfptr[3551]) /*_.VALDATA___V3552*/ curfptr[3551] = (void*)&cdat->dsym_3546__CMSG;
-  melt_assertmsg("iniobj checkdiscr dsym_3546__CMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3546__CMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3546__CMSG.obj_hash = 336115093;
-  cdat->dsym_3546__CMSG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3546__CMSG));
- 
- /*inistring dstr_3547__CMSG*/
- /*_.VALSTR___V3553*/ curfptr[3552] = (void*)&cdat->dstr_3547__CMSG;
-  cdat->dstr_3547__CMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3547__CMSG.val, "CMSG", sizeof(cdat->dstr_3547__CMSG.val)-1);
+ MELT_LOCATION("warmelt-first.melt:1868:/ iniobj");
+ /*iniobj dobj_3479*/
+ if (!/*_.VALDATA___V3482*/ curfptr[3481]) /*_.VALDATA___V3482*/ curfptr[3481] = (void*)&cdat->dobj_3479;
+  melt_assertmsg("iniobj checkdiscr dobj_3479", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3479.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3479.obj_num = 3;
+  cdat->dobj_3479.obj_hash = 353607621;
+  cdat->dobj_3479.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3479));
+ 
+ /*inistring dstr_3480__meltgc_new_mixl*/
+ /*_.VALSTR___V3486*/ curfptr[3485] = (void*)&cdat->dstr_3480__meltgc_new_mixl;
+  cdat->dstr_3480__meltgc_new_mixl.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3480__meltgc_new_mixl.val, "(meltgc_new_mixloc((meltobject_ptr_t)(", sizeof(cdat->dstr_3480__meltgc_new_mixl.val)-1);
+ 
+ /*inistring dstr_3481__melt_ptr_t_*/
+ /*_.VALSTR___V3487*/ curfptr[3486] = (void*)&cdat->dstr_3481__melt_ptr_t_;
+  cdat->dstr_3481__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3481__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3481__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3482__*/
+ /*_.VALSTR___V3488*/ curfptr[3487] = (void*)&cdat->dstr_3482__;
+  cdat->dstr_3482__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3482__.val, "), \n\t\t       (", sizeof(cdat->dstr_3482__.val)-1);
+ 
+ /*inistring dstr_3483__location_t_*/
+ /*_.VALSTR___V3489*/ curfptr[3488] = (void*)&cdat->dstr_3483__location_t_;
+  cdat->dstr_3483__location_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3483__location_t_.val, "), (location_t)(", sizeof(cdat->dstr_3483__location_t_.val)-1);
+ 
+ /*inistring dstr_3484__*/
+ /*_.VALSTR___V3490*/ curfptr[3489] = (void*)&cdat->dstr_3484__;
+  cdat->dstr_3484__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3484__.val, ")))", sizeof(cdat->dstr_3484__.val)-1);
+ 
+ /*inistring dstr_3485__MAKE_MIXLOC*/
+ /*_.VALSTR___V3478*/ curfptr[3477] = (void*)&cdat->dstr_3485__MAKE_MIXLOC;
+  cdat->dstr_3485__MAKE_MIXLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3485__MAKE_MIXLOC.val, "MAKE_MIXLOC", sizeof(cdat->dstr_3485__MAKE_MIXLOC.val)-1);
+ 
+ /*iniobj dsym_3486__IS_MIXBIGINT*/
+ if (!/*_.VALDATA___V3492*/ curfptr[3491]) /*_.VALDATA___V3492*/ curfptr[3491] = (void*)&cdat->dsym_3486__IS_MIXBIGINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3486__IS_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3486__IS_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3486__IS_MIXBIGINT.obj_hash = 757221653;
+  cdat->dsym_3486__IS_MIXBIGINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3486__IS_MIXBIGINT));
+ 
+ /*inistring dstr_3487__IS_MIXBIGINT*/
+ /*_.VALSTR___V3493*/ curfptr[3492] = (void*)&cdat->dstr_3487__IS_MIXBIGINT;
+  cdat->dstr_3487__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3487__IS_MIXBIGINT.val, "IS_MIXBIGINT", sizeof(cdat->dstr_3487__IS_MIXBIGINT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1877:/ iniobj");
+ /*iniobj dobj_3488__IS_MIXBIGINT*/
+ if (!/*_.VALDATA___V3494*/ curfptr[3493]) /*_.VALDATA___V3494*/ curfptr[3493] = (void*)&cdat->dobj_3488__IS_MIXBIGINT;
+  melt_assertmsg("iniobj checkdiscr dobj_3488__IS_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3488__IS_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3488__IS_MIXBIGINT.obj_hash = 542210031;
+  cdat->dobj_3488__IS_MIXBIGINT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3488__IS_MIXBIGINT));
+ 
+ /*inimult dtup_3489__IS_MIXBIGINT*/
+ /*_.VALTUP___V3502*/ curfptr[3501] = (void*)&cdat->dtup_3489__IS_MIXBIGINT;
+  cdat->dtup_3489__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3489__IS_MIXBIGINT.nbval = 3;
+ /*inimult dtup_3490__IS_MIXBIGINT*/
+ /*_.VALTUP___V3499*/ curfptr[3498] = (void*)&cdat->dtup_3490__IS_MIXBIGINT;
+  cdat->dtup_3490__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3490__IS_MIXBIGINT.nbval = 1;
+ /*iniobj dsym_3491__MB*/
+ if (!/*_.VALDATA___V3497*/ curfptr[3496]) /*_.VALDATA___V3497*/ curfptr[3496] = (void*)&cdat->dsym_3491__MB;
+  melt_assertmsg("iniobj checkdiscr dsym_3491__MB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3491__MB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3491__MB.obj_hash = 166925846;
+  cdat->dsym_3491__MB.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3491__MB));
+ 
+ /*inistring dstr_3492__MB*/
+ /*_.VALSTR___V3498*/ curfptr[3497] = (void*)&cdat->dstr_3492__MB;
+  cdat->dstr_3492__MB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3492__MB.val, "MB", sizeof(cdat->dstr_3492__MB.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1877:/ iniobj");
+ /*iniobj dobj_3493*/
+ if (!/*_.VALDATA___V3496*/ curfptr[3495]) /*_.VALDATA___V3496*/ curfptr[3495] = (void*)&cdat->dobj_3493;
+  melt_assertmsg("iniobj checkdiscr dobj_3493", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3493.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3493.obj_num = 0;
+  cdat->dobj_3493.obj_hash = 215362173;
+  cdat->dobj_3493.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3493));
+ 
+ /*inistring dstr_3494__melt_magic_disc*/
+ /*_.VALSTR___V3500*/ curfptr[3499] = (void*)&cdat->dstr_3494__melt_magic_disc;
+  cdat->dstr_3494__melt_magic_disc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3494__melt_magic_disc.val, "(melt_magic_discr((melt_ptr_t)(", sizeof(cdat->dstr_3494__melt_magic_disc.val)-1);
+ 
+ /*inistring dstr_3495__OBMAG_MIXB*/
+ /*_.VALSTR___V3501*/ curfptr[3500] = (void*)&cdat->dstr_3495__OBMAG_MIXB;
+  cdat->dstr_3495__OBMAG_MIXB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3495__OBMAG_MIXB.val, ")) == OBMAG_MIXBIGINT)", sizeof(cdat->dstr_3495__OBMAG_MIXB.val)-1);
+ 
+ /*inistring dstr_3496__IS_MIXBIGINT*/
+ /*_.VALSTR___V3495*/ curfptr[3494] = (void*)&cdat->dstr_3496__IS_MIXBIGINT;
+  cdat->dstr_3496__IS_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3496__IS_MIXBIGINT.val, "IS_MIXBIGINT", sizeof(cdat->dstr_3496__IS_MIXBIGINT.val)-1);
+ 
+ /*iniobj dsym_3497__MIXBIGINT_VAL*/
+ if (!/*_.VALDATA___V3503*/ curfptr[3502]) /*_.VALDATA___V3503*/ curfptr[3502] = (void*)&cdat->dsym_3497__MIXBIGINT_VAL;
+  melt_assertmsg("iniobj checkdiscr dsym_3497__MIXBIGINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3497__MIXBIGINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3497__MIXBIGINT_VAL.obj_hash = 228872411;
+  cdat->dsym_3497__MIXBIGINT_VAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3497__MIXBIGINT_VAL));
+ 
+ /*inistring dstr_3498__MIXBIGINT_VAL*/
+ /*_.VALSTR___V3504*/ curfptr[3503] = (void*)&cdat->dstr_3498__MIXBIGINT_VAL;
+  cdat->dstr_3498__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3498__MIXBIGINT_VAL.val, "MIXBIGINT_VAL", sizeof(cdat->dstr_3498__MIXBIGINT_VAL.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1880:/ iniobj");
+ /*iniobj dobj_3499__MIXBIGINT_VAL*/
+ if (!/*_.VALDATA___V3505*/ curfptr[3504]) /*_.VALDATA___V3505*/ curfptr[3504] = (void*)&cdat->dobj_3499__MIXBIGINT_VAL;
+  melt_assertmsg("iniobj checkdiscr dobj_3499__MIXBIGINT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3499__MIXBIGINT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3499__MIXBIGINT_VAL.obj_hash = 513512925;
+  cdat->dobj_3499__MIXBIGINT_VAL.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3499__MIXBIGINT_VAL));
+ 
+ /*inimult dtup_3500__MIXBIGINT_VAL*/
+ /*_.VALTUP___V3511*/ curfptr[3510] = (void*)&cdat->dtup_3500__MIXBIGINT_VAL;
+  cdat->dtup_3500__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3500__MIXBIGINT_VAL.nbval = 3;
+ /*inimult dtup_3501__MIXBIGINT_VAL*/
+ /*_.VALTUP___V3508*/ curfptr[3507] = (void*)&cdat->dtup_3501__MIXBIGINT_VAL;
+  cdat->dtup_3501__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3501__MIXBIGINT_VAL.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1880:/ iniobj");
+ /*iniobj dobj_3502*/
+ if (!/*_.VALDATA___V3507*/ curfptr[3506]) /*_.VALDATA___V3507*/ curfptr[3506] = (void*)&cdat->dobj_3502;
+  melt_assertmsg("iniobj checkdiscr dobj_3502", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3502.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3502.obj_num = 0;
+  cdat->dobj_3502.obj_hash = 616271615;
+  cdat->dobj_3502.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3502));
+ 
+ /*inistring dstr_3503__melt_val_mixbigi*/
+ /*_.VALSTR___V3509*/ curfptr[3508] = (void*)&cdat->dstr_3503__melt_val_mixbigi;
+  cdat->dstr_3503__melt_val_mixbigi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3503__melt_val_mixbigi.val, "melt_val_mixbigint(", sizeof(cdat->dstr_3503__melt_val_mixbigi.val)-1);
+ 
+ /*inistring dstr_3504__*/
+ /*_.VALSTR___V3510*/ curfptr[3509] = (void*)&cdat->dstr_3504__;
+  cdat->dstr_3504__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3504__.val, ")", sizeof(cdat->dstr_3504__.val)-1);
+ 
+ /*inistring dstr_3505__MIXBIGINT_VAL*/
+ /*_.VALSTR___V3506*/ curfptr[3505] = (void*)&cdat->dstr_3505__MIXBIGINT_VAL;
+  cdat->dstr_3505__MIXBIGINT_VAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3505__MIXBIGINT_VAL.val, "MIXBIGINT_VAL", sizeof(cdat->dstr_3505__MIXBIGINT_VAL.val)-1);
+ 
+ /*iniobj dsym_3506__PPSTRBUF_MIXBIGINT*/
+ if (!/*_.VALDATA___V3512*/ curfptr[3511]) /*_.VALDATA___V3512*/ curfptr[3511] = (void*)&cdat->dsym_3506__PPSTRBUF_MIXBIGINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3506__PPSTRBUF_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3506__PPSTRBUF_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3506__PPSTRBUF_MIXBIGINT.obj_hash = 90990039;
+  cdat->dsym_3506__PPSTRBUF_MIXBIGINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3506__PPSTRBUF_MIXBIGINT));
+ 
+ /*inistring dstr_3507__PPSTRBUF_MIXBIGI*/
+ /*_.VALSTR___V3513*/ curfptr[3512] = (void*)&cdat->dstr_3507__PPSTRBUF_MIXBIGI;
+  cdat->dstr_3507__PPSTRBUF_MIXBIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3507__PPSTRBUF_MIXBIGI.val, "PPSTRBUF_MIXBIGINT", sizeof(cdat->dstr_3507__PPSTRBUF_MIXBIGI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1884:/ iniobj");
+ /*iniobj dobj_3508__PPSTRBUF_MIXBIGINT*/
+ if (!/*_.VALDATA___V3514*/ curfptr[3513]) /*_.VALDATA___V3514*/ curfptr[3513] = (void*)&cdat->dobj_3508__PPSTRBUF_MIXBIGINT;
+  melt_assertmsg("iniobj checkdiscr dobj_3508__PPSTRBUF_MIXBIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3508__PPSTRBUF_MIXBIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3508__PPSTRBUF_MIXBIGINT.obj_hash = 882268797;
+  cdat->dobj_3508__PPSTRBUF_MIXBIGINT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3508__PPSTRBUF_MIXBIGINT));
+ 
+ /*inimult dtup_3509__PPSTRBUF_MIXBIGINT*/
+ /*_.VALTUP___V3526*/ curfptr[3525] = (void*)&cdat->dtup_3509__PPSTRBUF_MIXBIGINT;
+  cdat->dtup_3509__PPSTRBUF_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3509__PPSTRBUF_MIXBIGINT.nbval = 7;
+ /*inimult dtup_3510__PPSTRBUF_MIXBIGINT*/
+ /*_.VALTUP___V3521*/ curfptr[3520] = (void*)&cdat->dtup_3510__PPSTRBUF_MIXBIGINT;
+  cdat->dtup_3510__PPSTRBUF_MIXBIGINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3510__PPSTRBUF_MIXBIGINT.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1884:/ iniobj");
+ /*iniobj dobj_3511*/
+ if (!/*_.VALDATA___V3516*/ curfptr[3515]) /*_.VALDATA___V3516*/ curfptr[3515] = (void*)&cdat->dobj_3511;
+  melt_assertmsg("iniobj checkdiscr dobj_3511", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3511.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3511.obj_num = 0;
+  cdat->dobj_3511.obj_hash = 59881476;
+  cdat->dobj_3511.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3511));
+ 
+ /*iniobj dsym_3512__INDENT*/
+ if (!/*_.VALDATA___V3518*/ curfptr[3517]) /*_.VALDATA___V3518*/ curfptr[3517] = (void*)&cdat->dsym_3512__INDENT;
+  melt_assertmsg("iniobj checkdiscr dsym_3512__INDENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3512__INDENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3512__INDENT.obj_hash = 595028209;
+  cdat->dsym_3512__INDENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3512__INDENT));
+ 
+ /*inistring dstr_3513__INDENT*/
+ /*_.VALSTR___V3519*/ curfptr[3518] = (void*)&cdat->dstr_3513__INDENT;
+  cdat->dstr_3513__INDENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3513__INDENT.val, "INDENT", sizeof(cdat->dstr_3513__INDENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1884:/ iniobj");
+ /*iniobj dobj_3514*/
+ if (!/*_.VALDATA___V3517*/ curfptr[3516]) /*_.VALDATA___V3517*/ curfptr[3516] = (void*)&cdat->dobj_3514;
+  melt_assertmsg("iniobj checkdiscr dobj_3514", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3514.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3514.obj_num = 1;
+  cdat->dobj_3514.obj_hash = 899720615;
+  cdat->dobj_3514.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3514));
+ 
+ MELT_LOCATION("warmelt-first.melt:1884:/ iniobj");
+ /*iniobj dobj_3515*/
+ if (!/*_.VALDATA___V3520*/ curfptr[3519]) /*_.VALDATA___V3520*/ curfptr[3519] = (void*)&cdat->dobj_3515;
+  melt_assertmsg("iniobj checkdiscr dobj_3515", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3515.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3515.obj_num = 2;
+  cdat->dobj_3515.obj_hash = 673942172;
+  cdat->dobj_3515.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3515));
+ 
+ /*inistring dstr_3516__meltgc_ppstrbuf_*/
+ /*_.VALSTR___V3522*/ curfptr[3521] = (void*)&cdat->dstr_3516__meltgc_ppstrbuf_;
+  cdat->dstr_3516__meltgc_ppstrbuf_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3516__meltgc_ppstrbuf_.val, "meltgc_ppstrbuf_mixbigint(", sizeof(cdat->dstr_3516__meltgc_ppstrbuf_.val)-1);
+ 
+ /*inistring dstr_3517__*/
+ /*_.VALSTR___V3523*/ curfptr[3522] = (void*)&cdat->dstr_3517__;
+  cdat->dstr_3517__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3517__.val, ",", sizeof(cdat->dstr_3517__.val)-1);
+ 
+ /*inistring dstr_3518__*/
+ /*_.VALSTR___V3524*/ curfptr[3523] = (void*)&cdat->dstr_3518__;
+  cdat->dstr_3518__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3518__.val, ",", sizeof(cdat->dstr_3518__.val)-1);
+ 
+ /*inistring dstr_3519__*/
+ /*_.VALSTR___V3525*/ curfptr[3524] = (void*)&cdat->dstr_3519__;
+  cdat->dstr_3519__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3519__.val, ");", sizeof(cdat->dstr_3519__.val)-1);
+ 
+ /*inistring dstr_3520__PPSTRBUF_MIXBIGI*/
+ /*_.VALSTR___V3515*/ curfptr[3514] = (void*)&cdat->dstr_3520__PPSTRBUF_MIXBIGI;
+  cdat->dstr_3520__PPSTRBUF_MIXBIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3520__PPSTRBUF_MIXBIGI.val, "PPSTRBUF_MIXBIGINT", sizeof(cdat->dstr_3520__PPSTRBUF_MIXBIGI.val)-1);
+ 
+ /*iniobj dsym_3521__READ_FILE*/
+ if (!/*_.VALDATA___V3527*/ curfptr[3526]) /*_.VALDATA___V3527*/ curfptr[3526] = (void*)&cdat->dsym_3521__READ_FILE;
+  melt_assertmsg("iniobj checkdiscr dsym_3521__READ_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3521__READ_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3521__READ_FILE.obj_hash = 353044055;
+  cdat->dsym_3521__READ_FILE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3521__READ_FILE));
+ 
+ /*inistring dstr_3522__READ_FILE*/
+ /*_.VALSTR___V3528*/ curfptr[3527] = (void*)&cdat->dstr_3522__READ_FILE;
+  cdat->dstr_3522__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3522__READ_FILE.val, "READ_FILE", sizeof(cdat->dstr_3522__READ_FILE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1890:/ iniobj");
+ /*iniobj dobj_3523__READ_FILE*/
+ if (!/*_.VALDATA___V3529*/ curfptr[3528]) /*_.VALDATA___V3529*/ curfptr[3528] = (void*)&cdat->dobj_3523__READ_FILE;
+  melt_assertmsg("iniobj checkdiscr dobj_3523__READ_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3523__READ_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3523__READ_FILE.obj_hash = 748720955;
+  cdat->dobj_3523__READ_FILE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3523__READ_FILE));
+ 
+ /*inimult dtup_3524__READ_FILE*/
+ /*_.VALTUP___V3537*/ curfptr[3536] = (void*)&cdat->dtup_3524__READ_FILE;
+  cdat->dtup_3524__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3524__READ_FILE.nbval = 3;
+ /*inimult dtup_3525__READ_FILE*/
+ /*_.VALTUP___V3534*/ curfptr[3533] = (void*)&cdat->dtup_3525__READ_FILE;
+  cdat->dtup_3525__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3525__READ_FILE.nbval = 1;
+ /*iniobj dsym_3526__FILNAM*/
+ if (!/*_.VALDATA___V3532*/ curfptr[3531]) /*_.VALDATA___V3532*/ curfptr[3531] = (void*)&cdat->dsym_3526__FILNAM;
+  melt_assertmsg("iniobj checkdiscr dsym_3526__FILNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3526__FILNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3526__FILNAM.obj_hash = 47682817;
+  cdat->dsym_3526__FILNAM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3526__FILNAM));
+ 
+ /*inistring dstr_3527__FILNAM*/
+ /*_.VALSTR___V3533*/ curfptr[3532] = (void*)&cdat->dstr_3527__FILNAM;
+  cdat->dstr_3527__FILNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3527__FILNAM.val, "FILNAM", sizeof(cdat->dstr_3527__FILNAM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1890:/ iniobj");
+ /*iniobj dobj_3528*/
+ if (!/*_.VALDATA___V3531*/ curfptr[3530]) /*_.VALDATA___V3531*/ curfptr[3530] = (void*)&cdat->dobj_3528;
+  melt_assertmsg("iniobj checkdiscr dobj_3528", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3528.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3528.obj_num = 0;
+  cdat->dobj_3528.obj_hash = 667710907;
+  cdat->dobj_3528.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3528));
+ 
+ /*inistring dstr_3529__meltgc_read_fil*/
+ /*_.VALSTR___V3535*/ curfptr[3534] = (void*)&cdat->dstr_3529__meltgc_read_fil;
+  cdat->dstr_3529__meltgc_read_fil.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3529__meltgc_read_fil.val, "(meltgc_read_file (melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3529__meltgc_read_fil.val)-1);
+ 
+ /*inistring dstr_3530__char_0_*/
+ /*_.VALSTR___V3536*/ curfptr[3535] = (void*)&cdat->dstr_3530__char_0_;
+  cdat->dstr_3530__char_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3530__char_0_.val, ")), (char*)0))", sizeof(cdat->dstr_3530__char_0_.val)-1);
+ 
+ /*inistring dstr_3531__READ_FILE*/
+ /*_.VALSTR___V3530*/ curfptr[3529] = (void*)&cdat->dstr_3531__READ_FILE;
+  cdat->dstr_3531__READ_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3531__READ_FILE.val, "READ_FILE", sizeof(cdat->dstr_3531__READ_FILE.val)-1);
+ 
+ /*iniobj dsym_3532__ERROR_STRV*/
+ if (!/*_.VALDATA___V3538*/ curfptr[3537]) /*_.VALDATA___V3538*/ curfptr[3537] = (void*)&cdat->dsym_3532__ERROR_STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_3532__ERROR_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3532__ERROR_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3532__ERROR_STRV.obj_hash = 34568801;
+  cdat->dsym_3532__ERROR_STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3532__ERROR_STRV));
+ 
+ /*inistring dstr_3533__ERROR_STRV*/
+ /*_.VALSTR___V3539*/ curfptr[3538] = (void*)&cdat->dstr_3533__ERROR_STRV;
+  cdat->dstr_3533__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3533__ERROR_STRV.val, "ERROR_STRV", sizeof(cdat->dstr_3533__ERROR_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1896:/ iniobj");
+ /*iniobj dobj_3534__ERROR_STRV*/
+ if (!/*_.VALDATA___V3540*/ curfptr[3539]) /*_.VALDATA___V3540*/ curfptr[3539] = (void*)&cdat->dobj_3534__ERROR_STRV;
+  melt_assertmsg("iniobj checkdiscr dobj_3534__ERROR_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3534__ERROR_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3534__ERROR_STRV.obj_hash = 535405653;
+  cdat->dobj_3534__ERROR_STRV.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3534__ERROR_STRV));
+ 
+ /*inimult dtup_3535__ERROR_STRV*/
+ /*_.VALTUP___V3552*/ curfptr[3551] = (void*)&cdat->dtup_3535__ERROR_STRV;
+  cdat->dtup_3535__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3535__ERROR_STRV.nbval = 7;
+ /*inimult dtup_3536__ERROR_STRV*/
+ /*_.VALTUP___V3547*/ curfptr[3546] = (void*)&cdat->dtup_3536__ERROR_STRV;
+  cdat->dtup_3536__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3536__ERROR_STRV.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1896:/ iniobj");
+ /*iniobj dobj_3537*/
+ if (!/*_.VALDATA___V3542*/ curfptr[3541]) /*_.VALDATA___V3542*/ curfptr[3541] = (void*)&cdat->dobj_3537;
+  melt_assertmsg("iniobj checkdiscr dobj_3537", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3537.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3537.obj_num = 0;
+  cdat->dobj_3537.obj_hash = 251225469;
+  cdat->dobj_3537.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3537));
+ 
+ /*iniobj dsym_3538__CMSG*/
+ if (!/*_.VALDATA___V3544*/ curfptr[3543]) /*_.VALDATA___V3544*/ curfptr[3543] = (void*)&cdat->dsym_3538__CMSG;
+  melt_assertmsg("iniobj checkdiscr dsym_3538__CMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3538__CMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3538__CMSG.obj_hash = 336115093;
+  cdat->dsym_3538__CMSG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3538__CMSG));
+ 
+ /*inistring dstr_3539__CMSG*/
+ /*_.VALSTR___V3545*/ curfptr[3544] = (void*)&cdat->dstr_3539__CMSG;
+  cdat->dstr_3539__CMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3539__CMSG.val, "CMSG", sizeof(cdat->dstr_3539__CMSG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1896:/ iniobj");
+ /*iniobj dobj_3540*/
+ if (!/*_.VALDATA___V3543*/ curfptr[3542]) /*_.VALDATA___V3543*/ curfptr[3542] = (void*)&cdat->dobj_3540;
+  melt_assertmsg("iniobj checkdiscr dobj_3540", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3540.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3540.obj_num = 1;
+  cdat->dobj_3540.obj_hash = 85846450;
+  cdat->dobj_3540.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3540));
+ 
+ MELT_LOCATION("warmelt-first.melt:1896:/ iniobj");
+ /*iniobj dobj_3541*/
+ if (!/*_.VALDATA___V3546*/ curfptr[3545]) /*_.VALDATA___V3546*/ curfptr[3545] = (void*)&cdat->dobj_3541;
+  melt_assertmsg("iniobj checkdiscr dobj_3541", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3541.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3541.obj_num = 2;
+  cdat->dobj_3541.obj_hash = 221787828;
+  cdat->dobj_3541.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3541));
+ 
+ /*inistring dstr_3542__melt_error_str_*/
+ /*_.VALSTR___V3548*/ curfptr[3547] = (void*)&cdat->dstr_3542__melt_error_str_;
+  cdat->dstr_3542__melt_error_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3542__melt_error_str_.val, "melt_error_str((melt_ptr_t)(", sizeof(cdat->dstr_3542__melt_error_str_.val)-1);
+ 
+ /*inistring dstr_3543__*/
+ /*_.VALSTR___V3549*/ curfptr[3548] = (void*)&cdat->dstr_3543__;
+  cdat->dstr_3543__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3543__.val, "), (", sizeof(cdat->dstr_3543__.val)-1);
+ 
+ /*inistring dstr_3544__melt_ptr_t_*/
+ /*_.VALSTR___V3550*/ curfptr[3549] = (void*)&cdat->dstr_3544__melt_ptr_t_;
+  cdat->dstr_3544__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3544__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3544__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3545__*/
+ /*_.VALSTR___V3551*/ curfptr[3550] = (void*)&cdat->dstr_3545__;
+  cdat->dstr_3545__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3545__.val, "))", sizeof(cdat->dstr_3545__.val)-1);
+ 
+ /*inistring dstr_3546__ERROR_STRV*/
+ /*_.VALSTR___V3541*/ curfptr[3540] = (void*)&cdat->dstr_3546__ERROR_STRV;
+  cdat->dstr_3546__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3546__ERROR_STRV.val, "ERROR_STRV", sizeof(cdat->dstr_3546__ERROR_STRV.val)-1);
+ 
+ /*iniobj dsym_3547__ERROR_PLAIN*/
+ if (!/*_.VALDATA___V3553*/ curfptr[3552]) /*_.VALDATA___V3553*/ curfptr[3552] = (void*)&cdat->dsym_3547__ERROR_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_3547__ERROR_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3547__ERROR_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3547__ERROR_PLAIN.obj_hash = 808446364;
+  cdat->dsym_3547__ERROR_PLAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3547__ERROR_PLAIN));
+ 
+ /*inistring dstr_3548__ERROR_PLAIN*/
+ /*_.VALSTR___V3554*/ curfptr[3553] = (void*)&cdat->dstr_3548__ERROR_PLAIN;
+  cdat->dstr_3548__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3548__ERROR_PLAIN.val, "ERROR_PLAIN", sizeof(cdat->dstr_3548__ERROR_PLAIN.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1901:/ iniobj");
- /*iniobj dobj_3548*/
- if (!/*_.VALDATA___V3551*/ curfptr[3550]) /*_.VALDATA___V3551*/ curfptr[3550] = (void*)&cdat->dobj_3548;
-  melt_assertmsg("iniobj checkdiscr dobj_3548", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3548.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3548.obj_num = 1;
-  cdat->dobj_3548.obj_hash = 352774991;
-  cdat->dobj_3548.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3548));
+ /*iniobj dobj_3549__ERROR_PLAIN*/
+ if (!/*_.VALDATA___V3555*/ curfptr[3554]) /*_.VALDATA___V3555*/ curfptr[3554] = (void*)&cdat->dobj_3549__ERROR_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_3549__ERROR_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3549__ERROR_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3549__ERROR_PLAIN.obj_hash = 706149423;
+  cdat->dobj_3549__ERROR_PLAIN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3549__ERROR_PLAIN));
+ 
+ /*inimult dtup_3550__ERROR_PLAIN*/
+ /*_.VALTUP___V3563*/ curfptr[3562] = (void*)&cdat->dtup_3550__ERROR_PLAIN;
+  cdat->dtup_3550__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3550__ERROR_PLAIN.nbval = 5;
+ /*inimult dtup_3551__ERROR_PLAIN*/
+ /*_.VALTUP___V3559*/ curfptr[3558] = (void*)&cdat->dtup_3551__ERROR_PLAIN;
+  cdat->dtup_3551__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3551__ERROR_PLAIN.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1901:/ iniobj");
+ /*iniobj dobj_3552*/
+ if (!/*_.VALDATA___V3557*/ curfptr[3556]) /*_.VALDATA___V3557*/ curfptr[3556] = (void*)&cdat->dobj_3552;
+  melt_assertmsg("iniobj checkdiscr dobj_3552", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3552.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3552.obj_num = 0;
+  cdat->dobj_3552.obj_hash = 802810532;
+  cdat->dobj_3552.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3552));
  
  MELT_LOCATION("warmelt-first.melt:1901:/ iniobj");
- /*iniobj dobj_3549*/
- if (!/*_.VALDATA___V3554*/ curfptr[3553]) /*_.VALDATA___V3554*/ curfptr[3553] = (void*)&cdat->dobj_3549;
-  melt_assertmsg("iniobj checkdiscr dobj_3549", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3549.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3549.obj_num = 2;
-  cdat->dobj_3549.obj_hash = 397041305;
-  cdat->dobj_3549.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3549));
- 
- /*inistring dstr_3550__melt_error_str_*/
- /*_.VALSTR___V3556*/ curfptr[3555] = (void*)&cdat->dstr_3550__melt_error_str_;
-  cdat->dstr_3550__melt_error_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3550__melt_error_str_.val, "melt_error_str((melt_ptr_t)(", sizeof(cdat->dstr_3550__melt_error_str_.val)-1);
- 
- /*inistring dstr_3551__*/
- /*_.VALSTR___V3557*/ curfptr[3556] = (void*)&cdat->dstr_3551__;
-  cdat->dstr_3551__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3551__.val, "), (", sizeof(cdat->dstr_3551__.val)-1);
- 
- /*inistring dstr_3552__melt_ptr_t_*/
- /*_.VALSTR___V3558*/ curfptr[3557] = (void*)&cdat->dstr_3552__melt_ptr_t_;
-  cdat->dstr_3552__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3552__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3552__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3553__*/
- /*_.VALSTR___V3559*/ curfptr[3558] = (void*)&cdat->dstr_3553__;
-  cdat->dstr_3553__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3553__.val, "))", sizeof(cdat->dstr_3553__.val)-1);
- 
- /*inistring dstr_3554__ERROR_STRV*/
- /*_.VALSTR___V3549*/ curfptr[3548] = (void*)&cdat->dstr_3554__ERROR_STRV;
-  cdat->dstr_3554__ERROR_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3554__ERROR_STRV.val, "ERROR_STRV", sizeof(cdat->dstr_3554__ERROR_STRV.val)-1);
- 
- /*iniobj dsym_3555__ERROR_PLAIN*/
- if (!/*_.VALDATA___V3561*/ curfptr[3560]) /*_.VALDATA___V3561*/ curfptr[3560] = (void*)&cdat->dsym_3555__ERROR_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_3555__ERROR_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3555__ERROR_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3555__ERROR_PLAIN.obj_hash = 808446364;
-  cdat->dsym_3555__ERROR_PLAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3555__ERROR_PLAIN));
- 
- /*inistring dstr_3556__ERROR_PLAIN*/
- /*_.VALSTR___V3562*/ curfptr[3561] = (void*)&cdat->dstr_3556__ERROR_PLAIN;
-  cdat->dstr_3556__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3556__ERROR_PLAIN.val, "ERROR_PLAIN", sizeof(cdat->dstr_3556__ERROR_PLAIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1906:/ iniobj");
- /*iniobj dobj_3557__ERROR_PLAIN*/
- if (!/*_.VALDATA___V3563*/ curfptr[3562]) /*_.VALDATA___V3563*/ curfptr[3562] = (void*)&cdat->dobj_3557__ERROR_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_3557__ERROR_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3557__ERROR_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3557__ERROR_PLAIN.obj_hash = 163466754;
-  cdat->dobj_3557__ERROR_PLAIN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3557__ERROR_PLAIN));
- 
- /*inimult dtup_3558__ERROR_PLAIN*/
- /*_.VALTUP___V3571*/ curfptr[3570] = (void*)&cdat->dtup_3558__ERROR_PLAIN;
-  cdat->dtup_3558__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3558__ERROR_PLAIN.nbval = 5;
- /*inimult dtup_3559__ERROR_PLAIN*/
- /*_.VALTUP___V3567*/ curfptr[3566] = (void*)&cdat->dtup_3559__ERROR_PLAIN;
-  cdat->dtup_3559__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3559__ERROR_PLAIN.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1906:/ iniobj");
- /*iniobj dobj_3560*/
- if (!/*_.VALDATA___V3565*/ curfptr[3564]) /*_.VALDATA___V3565*/ curfptr[3564] = (void*)&cdat->dobj_3560;
-  melt_assertmsg("iniobj checkdiscr dobj_3560", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3560.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3560.obj_num = 0;
-  cdat->dobj_3560.obj_hash = 723382834;
-  cdat->dobj_3560.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3560));
- 
- MELT_LOCATION("warmelt-first.melt:1906:/ iniobj");
- /*iniobj dobj_3561*/
- if (!/*_.VALDATA___V3566*/ curfptr[3565]) /*_.VALDATA___V3566*/ curfptr[3565] = (void*)&cdat->dobj_3561;
-  melt_assertmsg("iniobj checkdiscr dobj_3561", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3561.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3561.obj_num = 1;
-  cdat->dobj_3561.obj_hash = 208968670;
-  cdat->dobj_3561.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3561));
- 
- /*inistring dstr_3562__melt_error_str_*/
- /*_.VALSTR___V3568*/ curfptr[3567] = (void*)&cdat->dstr_3562__melt_error_str_;
-  cdat->dstr_3562__melt_error_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3562__melt_error_str_.val, "melt_error_str((melt_ptr_t)(", sizeof(cdat->dstr_3562__melt_error_str_.val)-1);
- 
- /*inistring dstr_3563__*/
- /*_.VALSTR___V3569*/ curfptr[3568] = (void*)&cdat->dstr_3563__;
-  cdat->dstr_3563__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3563__.val, "), (", sizeof(cdat->dstr_3563__.val)-1);
- 
- /*inistring dstr_3564__melt_ptr_t_0*/
- /*_.VALSTR___V3570*/ curfptr[3569] = (void*)&cdat->dstr_3564__melt_ptr_t_0;
-  cdat->dstr_3564__melt_ptr_t_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3564__melt_ptr_t_0.val, "), (melt_ptr_t)0)", sizeof(cdat->dstr_3564__melt_ptr_t_0.val)-1);
- 
- /*inistring dstr_3565__ERROR_PLAIN*/
- /*_.VALSTR___V3564*/ curfptr[3563] = (void*)&cdat->dstr_3565__ERROR_PLAIN;
-  cdat->dstr_3565__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3565__ERROR_PLAIN.val, "ERROR_PLAIN", sizeof(cdat->dstr_3565__ERROR_PLAIN.val)-1);
- 
- /*iniobj dsym_3566__WARNING_STRV*/
- if (!/*_.VALDATA___V3572*/ curfptr[3571]) /*_.VALDATA___V3572*/ curfptr[3571] = (void*)&cdat->dsym_3566__WARNING_STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_3566__WARNING_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3566__WARNING_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3566__WARNING_STRV.obj_hash = 483583707;
-  cdat->dsym_3566__WARNING_STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3566__WARNING_STRV));
- 
- /*inistring dstr_3567__WARNING_STRV*/
- /*_.VALSTR___V3573*/ curfptr[3572] = (void*)&cdat->dstr_3567__WARNING_STRV;
-  cdat->dstr_3567__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3567__WARNING_STRV.val, "WARNING_STRV", sizeof(cdat->dstr_3567__WARNING_STRV.val)-1);
+ /*iniobj dobj_3553*/
+ if (!/*_.VALDATA___V3558*/ curfptr[3557]) /*_.VALDATA___V3558*/ curfptr[3557] = (void*)&cdat->dobj_3553;
+  melt_assertmsg("iniobj checkdiscr dobj_3553", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3553.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3553.obj_num = 1;
+  cdat->dobj_3553.obj_hash = 936522135;
+  cdat->dobj_3553.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3553));
+ 
+ /*inistring dstr_3554__melt_error_str_*/
+ /*_.VALSTR___V3560*/ curfptr[3559] = (void*)&cdat->dstr_3554__melt_error_str_;
+  cdat->dstr_3554__melt_error_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3554__melt_error_str_.val, "melt_error_str((melt_ptr_t)(", sizeof(cdat->dstr_3554__melt_error_str_.val)-1);
+ 
+ /*inistring dstr_3555__*/
+ /*_.VALSTR___V3561*/ curfptr[3560] = (void*)&cdat->dstr_3555__;
+  cdat->dstr_3555__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3555__.val, "), (", sizeof(cdat->dstr_3555__.val)-1);
+ 
+ /*inistring dstr_3556__melt_ptr_t_0*/
+ /*_.VALSTR___V3562*/ curfptr[3561] = (void*)&cdat->dstr_3556__melt_ptr_t_0;
+  cdat->dstr_3556__melt_ptr_t_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3556__melt_ptr_t_0.val, "), (melt_ptr_t)0)", sizeof(cdat->dstr_3556__melt_ptr_t_0.val)-1);
+ 
+ /*inistring dstr_3557__ERROR_PLAIN*/
+ /*_.VALSTR___V3556*/ curfptr[3555] = (void*)&cdat->dstr_3557__ERROR_PLAIN;
+  cdat->dstr_3557__ERROR_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3557__ERROR_PLAIN.val, "ERROR_PLAIN", sizeof(cdat->dstr_3557__ERROR_PLAIN.val)-1);
+ 
+ /*iniobj dsym_3558__WARNING_STRV*/
+ if (!/*_.VALDATA___V3564*/ curfptr[3563]) /*_.VALDATA___V3564*/ curfptr[3563] = (void*)&cdat->dsym_3558__WARNING_STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_3558__WARNING_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3558__WARNING_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3558__WARNING_STRV.obj_hash = 483583707;
+  cdat->dsym_3558__WARNING_STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3558__WARNING_STRV));
+ 
+ /*inistring dstr_3559__WARNING_STRV*/
+ /*_.VALSTR___V3565*/ curfptr[3564] = (void*)&cdat->dstr_3559__WARNING_STRV;
+  cdat->dstr_3559__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3559__WARNING_STRV.val, "WARNING_STRV", sizeof(cdat->dstr_3559__WARNING_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1907:/ iniobj");
+ /*iniobj dobj_3560__WARNING_STRV*/
+ if (!/*_.VALDATA___V3566*/ curfptr[3565]) /*_.VALDATA___V3566*/ curfptr[3565] = (void*)&cdat->dobj_3560__WARNING_STRV;
+  melt_assertmsg("iniobj checkdiscr dobj_3560__WARNING_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3560__WARNING_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3560__WARNING_STRV.obj_hash = 635783391;
+  cdat->dobj_3560__WARNING_STRV.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3560__WARNING_STRV));
+ 
+ /*inimult dtup_3561__WARNING_STRV*/
+ /*_.VALTUP___V3576*/ curfptr[3575] = (void*)&cdat->dtup_3561__WARNING_STRV;
+  cdat->dtup_3561__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3561__WARNING_STRV.nbval = 7;
+ /*inimult dtup_3562__WARNING_STRV*/
+ /*_.VALTUP___V3571*/ curfptr[3570] = (void*)&cdat->dtup_3562__WARNING_STRV;
+  cdat->dtup_3562__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3562__WARNING_STRV.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1907:/ iniobj");
+ /*iniobj dobj_3563*/
+ if (!/*_.VALDATA___V3568*/ curfptr[3567]) /*_.VALDATA___V3568*/ curfptr[3567] = (void*)&cdat->dobj_3563;
+  melt_assertmsg("iniobj checkdiscr dobj_3563", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3563.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3563.obj_num = 0;
+  cdat->dobj_3563.obj_hash = 113923611;
+  cdat->dobj_3563.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3563));
+ 
+ MELT_LOCATION("warmelt-first.melt:1907:/ iniobj");
+ /*iniobj dobj_3564*/
+ if (!/*_.VALDATA___V3569*/ curfptr[3568]) /*_.VALDATA___V3569*/ curfptr[3568] = (void*)&cdat->dobj_3564;
+  melt_assertmsg("iniobj checkdiscr dobj_3564", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3564.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3564.obj_num = 1;
+  cdat->dobj_3564.obj_hash = 978293492;
+  cdat->dobj_3564.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3564));
+ 
+ MELT_LOCATION("warmelt-first.melt:1907:/ iniobj");
+ /*iniobj dobj_3565*/
+ if (!/*_.VALDATA___V3570*/ curfptr[3569]) /*_.VALDATA___V3570*/ curfptr[3569] = (void*)&cdat->dobj_3565;
+  melt_assertmsg("iniobj checkdiscr dobj_3565", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3565.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3565.obj_num = 2;
+  cdat->dobj_3565.obj_hash = 759319296;
+  cdat->dobj_3565.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3565));
+ 
+ /*inistring dstr_3566__melt_warning_str*/
+ /*_.VALSTR___V3572*/ curfptr[3571] = (void*)&cdat->dstr_3566__melt_warning_str;
+  cdat->dstr_3566__melt_warning_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3566__melt_warning_str.val, "melt_warning_str(0, (melt_ptr_t)(", sizeof(cdat->dstr_3566__melt_warning_str.val)-1);
+ 
+ /*inistring dstr_3567__*/
+ /*_.VALSTR___V3573*/ curfptr[3572] = (void*)&cdat->dstr_3567__;
+  cdat->dstr_3567__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3567__.val, "), (", sizeof(cdat->dstr_3567__.val)-1);
+ 
+ /*inistring dstr_3568__melt_ptr_t_*/
+ /*_.VALSTR___V3574*/ curfptr[3573] = (void*)&cdat->dstr_3568__melt_ptr_t_;
+  cdat->dstr_3568__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3568__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3568__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3569__*/
+ /*_.VALSTR___V3575*/ curfptr[3574] = (void*)&cdat->dstr_3569__;
+  cdat->dstr_3569__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3569__.val, "))", sizeof(cdat->dstr_3569__.val)-1);
+ 
+ /*inistring dstr_3570__WARNING_STRV*/
+ /*_.VALSTR___V3567*/ curfptr[3566] = (void*)&cdat->dstr_3570__WARNING_STRV;
+  cdat->dstr_3570__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3570__WARNING_STRV.val, "WARNING_STRV", sizeof(cdat->dstr_3570__WARNING_STRV.val)-1);
+ 
+ /*iniobj dsym_3571__WARNING_PLAIN*/
+ if (!/*_.VALDATA___V3577*/ curfptr[3576]) /*_.VALDATA___V3577*/ curfptr[3576] = (void*)&cdat->dsym_3571__WARNING_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_3571__WARNING_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3571__WARNING_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3571__WARNING_PLAIN.obj_hash = 750772004;
+  cdat->dsym_3571__WARNING_PLAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3571__WARNING_PLAIN));
+ 
+ /*inistring dstr_3572__WARNING_PLAIN*/
+ /*_.VALSTR___V3578*/ curfptr[3577] = (void*)&cdat->dstr_3572__WARNING_PLAIN;
+  cdat->dstr_3572__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3572__WARNING_PLAIN.val, "WARNING_PLAIN", sizeof(cdat->dstr_3572__WARNING_PLAIN.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1912:/ iniobj");
- /*iniobj dobj_3568__WARNING_STRV*/
- if (!/*_.VALDATA___V3574*/ curfptr[3573]) /*_.VALDATA___V3574*/ curfptr[3573] = (void*)&cdat->dobj_3568__WARNING_STRV;
-  melt_assertmsg("iniobj checkdiscr dobj_3568__WARNING_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3568__WARNING_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3568__WARNING_STRV.obj_hash = 725302503;
-  cdat->dobj_3568__WARNING_STRV.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3568__WARNING_STRV));
- 
- /*inimult dtup_3569__WARNING_STRV*/
- /*_.VALTUP___V3584*/ curfptr[3583] = (void*)&cdat->dtup_3569__WARNING_STRV;
-  cdat->dtup_3569__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3569__WARNING_STRV.nbval = 7;
- /*inimult dtup_3570__WARNING_STRV*/
- /*_.VALTUP___V3579*/ curfptr[3578] = (void*)&cdat->dtup_3570__WARNING_STRV;
-  cdat->dtup_3570__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3570__WARNING_STRV.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1912:/ iniobj");
- /*iniobj dobj_3571*/
- if (!/*_.VALDATA___V3576*/ curfptr[3575]) /*_.VALDATA___V3576*/ curfptr[3575] = (void*)&cdat->dobj_3571;
-  melt_assertmsg("iniobj checkdiscr dobj_3571", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3571.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3571.obj_num = 0;
-  cdat->dobj_3571.obj_hash = 946922671;
-  cdat->dobj_3571.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3571));
- 
+ /*iniobj dobj_3573__WARNING_PLAIN*/
+ if (!/*_.VALDATA___V3579*/ curfptr[3578]) /*_.VALDATA___V3579*/ curfptr[3578] = (void*)&cdat->dobj_3573__WARNING_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_3573__WARNING_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3573__WARNING_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3573__WARNING_PLAIN.obj_hash = 203018292;
+  cdat->dobj_3573__WARNING_PLAIN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3573__WARNING_PLAIN));
+ 
+ /*inimult dtup_3574__WARNING_PLAIN*/
+ /*_.VALTUP___V3587*/ curfptr[3586] = (void*)&cdat->dtup_3574__WARNING_PLAIN;
+  cdat->dtup_3574__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3574__WARNING_PLAIN.nbval = 5;
+ /*inimult dtup_3575__WARNING_PLAIN*/
+ /*_.VALTUP___V3583*/ curfptr[3582] = (void*)&cdat->dtup_3575__WARNING_PLAIN;
+  cdat->dtup_3575__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3575__WARNING_PLAIN.nbval = 2;
  MELT_LOCATION("warmelt-first.melt:1912:/ iniobj");
- /*iniobj dobj_3572*/
- if (!/*_.VALDATA___V3577*/ curfptr[3576]) /*_.VALDATA___V3577*/ curfptr[3576] = (void*)&cdat->dobj_3572;
-  melt_assertmsg("iniobj checkdiscr dobj_3572", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3572.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3572.obj_num = 1;
-  cdat->dobj_3572.obj_hash = 719589993;
-  cdat->dobj_3572.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3572));
+ /*iniobj dobj_3576*/
+ if (!/*_.VALDATA___V3581*/ curfptr[3580]) /*_.VALDATA___V3581*/ curfptr[3580] = (void*)&cdat->dobj_3576;
+  melt_assertmsg("iniobj checkdiscr dobj_3576", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3576.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3576.obj_num = 0;
+  cdat->dobj_3576.obj_hash = 384029972;
+  cdat->dobj_3576.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3576));
  
  MELT_LOCATION("warmelt-first.melt:1912:/ iniobj");
- /*iniobj dobj_3573*/
- if (!/*_.VALDATA___V3578*/ curfptr[3577]) /*_.VALDATA___V3578*/ curfptr[3577] = (void*)&cdat->dobj_3573;
-  melt_assertmsg("iniobj checkdiscr dobj_3573", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3573.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3573.obj_num = 2;
-  cdat->dobj_3573.obj_hash = 948839446;
-  cdat->dobj_3573.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3573));
- 
- /*inistring dstr_3574__melt_warning_str*/
- /*_.VALSTR___V3580*/ curfptr[3579] = (void*)&cdat->dstr_3574__melt_warning_str;
-  cdat->dstr_3574__melt_warning_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3574__melt_warning_str.val, "melt_warning_str(0, (melt_ptr_t)(", sizeof(cdat->dstr_3574__melt_warning_str.val)-1);
- 
- /*inistring dstr_3575__*/
- /*_.VALSTR___V3581*/ curfptr[3580] = (void*)&cdat->dstr_3575__;
-  cdat->dstr_3575__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3575__.val, "), (", sizeof(cdat->dstr_3575__.val)-1);
- 
- /*inistring dstr_3576__melt_ptr_t_*/
- /*_.VALSTR___V3582*/ curfptr[3581] = (void*)&cdat->dstr_3576__melt_ptr_t_;
-  cdat->dstr_3576__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3576__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3576__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3577__*/
- /*_.VALSTR___V3583*/ curfptr[3582] = (void*)&cdat->dstr_3577__;
-  cdat->dstr_3577__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3577__.val, "))", sizeof(cdat->dstr_3577__.val)-1);
- 
- /*inistring dstr_3578__WARNING_STRV*/
- /*_.VALSTR___V3575*/ curfptr[3574] = (void*)&cdat->dstr_3578__WARNING_STRV;
-  cdat->dstr_3578__WARNING_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3578__WARNING_STRV.val, "WARNING_STRV", sizeof(cdat->dstr_3578__WARNING_STRV.val)-1);
- 
- /*iniobj dsym_3579__WARNING_PLAIN*/
- if (!/*_.VALDATA___V3585*/ curfptr[3584]) /*_.VALDATA___V3585*/ curfptr[3584] = (void*)&cdat->dsym_3579__WARNING_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_3579__WARNING_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3579__WARNING_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3579__WARNING_PLAIN.obj_hash = 750772004;
-  cdat->dsym_3579__WARNING_PLAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3579__WARNING_PLAIN));
- 
- /*inistring dstr_3580__WARNING_PLAIN*/
- /*_.VALSTR___V3586*/ curfptr[3585] = (void*)&cdat->dstr_3580__WARNING_PLAIN;
-  cdat->dstr_3580__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3580__WARNING_PLAIN.val, "WARNING_PLAIN", sizeof(cdat->dstr_3580__WARNING_PLAIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1917:/ iniobj");
- /*iniobj dobj_3581__WARNING_PLAIN*/
- if (!/*_.VALDATA___V3587*/ curfptr[3586]) /*_.VALDATA___V3587*/ curfptr[3586] = (void*)&cdat->dobj_3581__WARNING_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_3581__WARNING_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3581__WARNING_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3581__WARNING_PLAIN.obj_hash = 330652520;
-  cdat->dobj_3581__WARNING_PLAIN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3581__WARNING_PLAIN));
- 
- /*inimult dtup_3582__WARNING_PLAIN*/
- /*_.VALTUP___V3595*/ curfptr[3594] = (void*)&cdat->dtup_3582__WARNING_PLAIN;
-  cdat->dtup_3582__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3582__WARNING_PLAIN.nbval = 5;
- /*inimult dtup_3583__WARNING_PLAIN*/
- /*_.VALTUP___V3591*/ curfptr[3590] = (void*)&cdat->dtup_3583__WARNING_PLAIN;
-  cdat->dtup_3583__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3583__WARNING_PLAIN.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1917:/ iniobj");
- /*iniobj dobj_3584*/
- if (!/*_.VALDATA___V3589*/ curfptr[3588]) /*_.VALDATA___V3589*/ curfptr[3588] = (void*)&cdat->dobj_3584;
-  melt_assertmsg("iniobj checkdiscr dobj_3584", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3584.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3584.obj_num = 0;
-  cdat->dobj_3584.obj_hash = 982307602;
-  cdat->dobj_3584.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3584));
- 
- MELT_LOCATION("warmelt-first.melt:1917:/ iniobj");
- /*iniobj dobj_3585*/
- if (!/*_.VALDATA___V3590*/ curfptr[3589]) /*_.VALDATA___V3590*/ curfptr[3589] = (void*)&cdat->dobj_3585;
-  melt_assertmsg("iniobj checkdiscr dobj_3585", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3585.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3585.obj_num = 1;
-  cdat->dobj_3585.obj_hash = 723996298;
-  cdat->dobj_3585.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3585));
- 
- /*inistring dstr_3586__melt_warning_str*/
- /*_.VALSTR___V3592*/ curfptr[3591] = (void*)&cdat->dstr_3586__melt_warning_str;
-  cdat->dstr_3586__melt_warning_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3586__melt_warning_str.val, "melt_warning_str(0, (melt_ptr_t)(", sizeof(cdat->dstr_3586__melt_warning_str.val)-1);
- 
- /*inistring dstr_3587__*/
- /*_.VALSTR___V3593*/ curfptr[3592] = (void*)&cdat->dstr_3587__;
-  cdat->dstr_3587__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3587__.val, "), (", sizeof(cdat->dstr_3587__.val)-1);
- 
- /*inistring dstr_3588__melt_ptr_t_0*/
- /*_.VALSTR___V3594*/ curfptr[3593] = (void*)&cdat->dstr_3588__melt_ptr_t_0;
-  cdat->dstr_3588__melt_ptr_t_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3588__melt_ptr_t_0.val, "), (melt_ptr_t)0)", sizeof(cdat->dstr_3588__melt_ptr_t_0.val)-1);
- 
- /*inistring dstr_3589__WARNING_PLAIN*/
- /*_.VALSTR___V3588*/ curfptr[3587] = (void*)&cdat->dstr_3589__WARNING_PLAIN;
-  cdat->dstr_3589__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3589__WARNING_PLAIN.val, "WARNING_PLAIN", sizeof(cdat->dstr_3589__WARNING_PLAIN.val)-1);
- 
- /*iniobj dsym_3590__WARNINGMSG_PLAIN*/
- if (!/*_.VALDATA___V3596*/ curfptr[3595]) /*_.VALDATA___V3596*/ curfptr[3595] = (void*)&cdat->dsym_3590__WARNINGMSG_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_3590__WARNINGMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3590__WARNINGMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3590__WARNINGMSG_PLAIN.obj_hash = 326445154;
-  cdat->dsym_3590__WARNINGMSG_PLAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3590__WARNINGMSG_PLAIN));
- 
- /*inistring dstr_3591__WARNINGMSG_PLAIN*/
- /*_.VALSTR___V3597*/ curfptr[3596] = (void*)&cdat->dstr_3591__WARNINGMSG_PLAIN;
-  cdat->dstr_3591__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3591__WARNINGMSG_PLAIN.val, "WARNINGMSG_PLAIN", sizeof(cdat->dstr_3591__WARNINGMSG_PLAIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1923:/ iniobj");
- /*iniobj dobj_3592__WARNINGMSG_PLAIN*/
- if (!/*_.VALDATA___V3598*/ curfptr[3597]) /*_.VALDATA___V3598*/ curfptr[3597] = (void*)&cdat->dobj_3592__WARNINGMSG_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_3592__WARNINGMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3592__WARNINGMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3592__WARNINGMSG_PLAIN.obj_hash = 650506380;
-  cdat->dobj_3592__WARNINGMSG_PLAIN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3592__WARNINGMSG_PLAIN));
- 
- /*inimult dtup_3593__WARNINGMSG_PLAIN*/
- /*_.VALTUP___V3604*/ curfptr[3603] = (void*)&cdat->dtup_3593__WARNINGMSG_PLAIN;
-  cdat->dtup_3593__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3593__WARNINGMSG_PLAIN.nbval = 3;
- /*inimult dtup_3594__WARNINGMSG_PLAIN*/
- /*_.VALTUP___V3601*/ curfptr[3600] = (void*)&cdat->dtup_3594__WARNINGMSG_PLAIN;
-  cdat->dtup_3594__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3594__WARNINGMSG_PLAIN.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1923:/ iniobj");
- /*iniobj dobj_3595*/
- if (!/*_.VALDATA___V3600*/ curfptr[3599]) /*_.VALDATA___V3600*/ curfptr[3599] = (void*)&cdat->dobj_3595;
-  melt_assertmsg("iniobj checkdiscr dobj_3595", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3595.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3595.obj_num = 0;
-  cdat->dobj_3595.obj_hash = 210408457;
-  cdat->dobj_3595.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3595));
- 
- /*inistring dstr_3596__warning_0_MELT*/
- /*_.VALSTR___V3602*/ curfptr[3601] = (void*)&cdat->dstr_3596__warning_0_MELT;
-  cdat->dstr_3596__warning_0_MELT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3596__warning_0_MELT.val, "warning(0, \"MELT WARNING MSG [#%ld]::: %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3596__warning_0_MELT.val)-1);
- 
- /*inistring dstr_3597__*/
- /*_.VALSTR___V3603*/ curfptr[3602] = (void*)&cdat->dstr_3597__;
-  cdat->dstr_3597__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3597__.val, "))", sizeof(cdat->dstr_3597__.val)-1);
- 
- /*inistring dstr_3598__WARNINGMSG_PLAIN*/
- /*_.VALSTR___V3599*/ curfptr[3598] = (void*)&cdat->dstr_3598__WARNINGMSG_PLAIN;
-  cdat->dstr_3598__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3598__WARNINGMSG_PLAIN.val, "WARNINGMSG_PLAIN", sizeof(cdat->dstr_3598__WARNINGMSG_PLAIN.val)-1);
- 
- /*iniobj dsym_3599__WARNINGMSG_STRV*/
- if (!/*_.VALDATA___V3605*/ curfptr[3604]) /*_.VALDATA___V3605*/ curfptr[3604] = (void*)&cdat->dsym_3599__WARNINGMSG_STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_3599__WARNINGMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3599__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3599__WARNINGMSG_STRV.obj_hash = 595150788;
-  cdat->dsym_3599__WARNINGMSG_STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3599__WARNINGMSG_STRV));
- 
- /*inistring dstr_3600__WARNINGMSG_STRV*/
- /*_.VALSTR___V3606*/ curfptr[3605] = (void*)&cdat->dstr_3600__WARNINGMSG_STRV;
-  cdat->dstr_3600__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3600__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof(cdat->dstr_3600__WARNINGMSG_STRV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1929:/ iniobj");
- /*iniobj dobj_3601__WARNINGMSG_STRV*/
- if (!/*_.VALDATA___V3607*/ curfptr[3606]) /*_.VALDATA___V3607*/ curfptr[3606] = (void*)&cdat->dobj_3601__WARNINGMSG_STRV;
-  melt_assertmsg("iniobj checkdiscr dobj_3601__WARNINGMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3601__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3601__WARNINGMSG_STRV.obj_hash = 16369200;
-  cdat->dobj_3601__WARNINGMSG_STRV.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3601__WARNINGMSG_STRV));
- 
- /*inimult dtup_3602__WARNINGMSG_STRV*/
- /*_.VALTUP___V3615*/ curfptr[3614] = (void*)&cdat->dtup_3602__WARNINGMSG_STRV;
-  cdat->dtup_3602__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3602__WARNINGMSG_STRV.nbval = 5;
- /*inimult dtup_3603__WARNINGMSG_STRV*/
- /*_.VALTUP___V3611*/ curfptr[3610] = (void*)&cdat->dtup_3603__WARNINGMSG_STRV;
-  cdat->dtup_3603__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3603__WARNINGMSG_STRV.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1929:/ iniobj");
- /*iniobj dobj_3604*/
- if (!/*_.VALDATA___V3609*/ curfptr[3608]) /*_.VALDATA___V3609*/ curfptr[3608] = (void*)&cdat->dobj_3604;
-  melt_assertmsg("iniobj checkdiscr dobj_3604", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3604.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3604.obj_num = 0;
-  cdat->dobj_3604.obj_hash = 44720547;
-  cdat->dobj_3604.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3604));
- 
- MELT_LOCATION("warmelt-first.melt:1929:/ iniobj");
- /*iniobj dobj_3605*/
- if (!/*_.VALDATA___V3610*/ curfptr[3609]) /*_.VALDATA___V3610*/ curfptr[3609] = (void*)&cdat->dobj_3605;
-  melt_assertmsg("iniobj checkdiscr dobj_3605", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3605.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3605.obj_num = 1;
-  cdat->dobj_3605.obj_hash = 225950944;
-  cdat->dobj_3605.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3605));
- 
- /*inistring dstr_3606__warning_0_MEL*/
- /*_.VALSTR___V3612*/ curfptr[3611] = (void*)&cdat->dstr_3606__warning_0_MEL;
-  cdat->dstr_3606__warning_0_MEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3606__warning_0_MEL.val, "warning (0, \"MELT WARNING MSG [#%ld]::: %s - %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3606__warning_0_MEL.val)-1);
- 
- /*inistring dstr_3607__melt*/
- /*_.VALSTR___V3613*/ curfptr[3612] = (void*)&cdat->dstr_3607__melt;
-  cdat->dstr_3607__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3607__melt.val, "), \n\t       melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3607__melt.val)-1);
- 
- /*inistring dstr_3608__*/
- /*_.VALSTR___V3614*/ curfptr[3613] = (void*)&cdat->dstr_3608__;
-  cdat->dstr_3608__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3608__.val, ")))", sizeof(cdat->dstr_3608__.val)-1);
- 
- /*inistring dstr_3609__WARNINGMSG_STRV*/
- /*_.VALSTR___V3608*/ curfptr[3607] = (void*)&cdat->dstr_3609__WARNINGMSG_STRV;
-  cdat->dstr_3609__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3609__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof(cdat->dstr_3609__WARNINGMSG_STRV.val)-1);
- 
- /*iniobj dsym_3610__ERRORMSG_PLAIN*/
- if (!/*_.VALDATA___V3616*/ curfptr[3615]) /*_.VALDATA___V3616*/ curfptr[3615] = (void*)&cdat->dsym_3610__ERRORMSG_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_3610__ERRORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3610__ERRORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3610__ERRORMSG_PLAIN.obj_hash = 641434332;
-  cdat->dsym_3610__ERRORMSG_PLAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3610__ERRORMSG_PLAIN));
- 
- /*inistring dstr_3611__ERRORMSG_PLAIN*/
- /*_.VALSTR___V3617*/ curfptr[3616] = (void*)&cdat->dstr_3611__ERRORMSG_PLAIN;
-  cdat->dstr_3611__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3611__ERRORMSG_PLAIN.val, "ERRORMSG_PLAIN", sizeof(cdat->dstr_3611__ERRORMSG_PLAIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1936:/ iniobj");
- /*iniobj dobj_3612__ERRORMSG_PLAIN*/
- if (!/*_.VALDATA___V3618*/ curfptr[3617]) /*_.VALDATA___V3618*/ curfptr[3617] = (void*)&cdat->dobj_3612__ERRORMSG_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_3612__ERRORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3612__ERRORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3612__ERRORMSG_PLAIN.obj_hash = 1002749386;
-  cdat->dobj_3612__ERRORMSG_PLAIN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3612__ERRORMSG_PLAIN));
- 
- /*inimult dtup_3613__ERRORMSG_PLAIN*/
- /*_.VALTUP___V3624*/ curfptr[3623] = (void*)&cdat->dtup_3613__ERRORMSG_PLAIN;
-  cdat->dtup_3613__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3613__ERRORMSG_PLAIN.nbval = 3;
- /*inimult dtup_3614__ERRORMSG_PLAIN*/
- /*_.VALTUP___V3621*/ curfptr[3620] = (void*)&cdat->dtup_3614__ERRORMSG_PLAIN;
-  cdat->dtup_3614__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3614__ERRORMSG_PLAIN.nbval = 1;
- MELT_LOCATION("warmelt-first.melt:1936:/ iniobj");
- /*iniobj dobj_3615*/
- if (!/*_.VALDATA___V3620*/ curfptr[3619]) /*_.VALDATA___V3620*/ curfptr[3619] = (void*)&cdat->dobj_3615;
-  melt_assertmsg("iniobj checkdiscr dobj_3615", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3615.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3615.obj_num = 0;
-  cdat->dobj_3615.obj_hash = 820998450;
-  cdat->dobj_3615.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3615));
- 
- /*inistring dstr_3616__error_MELT_ERR*/
- /*_.VALSTR___V3622*/ curfptr[3621] = (void*)&cdat->dstr_3616__error_MELT_ERR;
-  cdat->dstr_3616__error_MELT_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3616__error_MELT_ERR.val, "error (\"MELT ERROR MSG [#%ld]::: %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3616__error_MELT_ERR.val)-1);
- 
- /*inistring dstr_3617__*/
- /*_.VALSTR___V3623*/ curfptr[3622] = (void*)&cdat->dstr_3617__;
-  cdat->dstr_3617__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3617__.val, "))", sizeof(cdat->dstr_3617__.val)-1);
- 
- /*inistring dstr_3618__ERRORMSG_PLAIN*/
- /*_.VALSTR___V3619*/ curfptr[3618] = (void*)&cdat->dstr_3618__ERRORMSG_PLAIN;
-  cdat->dstr_3618__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3618__ERRORMSG_PLAIN.val, "ERRORMSG_PLAIN", sizeof(cdat->dstr_3618__ERRORMSG_PLAIN.val)-1);
- 
- /*iniobj dsym_3619__ERRORMSG_STRV*/
- if (!/*_.VALDATA___V3625*/ curfptr[3624]) /*_.VALDATA___V3625*/ curfptr[3624] = (void*)&cdat->dsym_3619__ERRORMSG_STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_3619__ERRORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3619__ERRORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3619__ERRORMSG_STRV.obj_hash = 218301686;
-  cdat->dsym_3619__ERRORMSG_STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3619__ERRORMSG_STRV));
- 
- /*inistring dstr_3620__ERRORMSG_STRV*/
- /*_.VALSTR___V3626*/ curfptr[3625] = (void*)&cdat->dstr_3620__ERRORMSG_STRV;
-  cdat->dstr_3620__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3620__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof(cdat->dstr_3620__ERRORMSG_STRV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1943:/ iniobj");
- /*iniobj dobj_3621__ERRORMSG_STRV*/
- if (!/*_.VALDATA___V3627*/ curfptr[3626]) /*_.VALDATA___V3627*/ curfptr[3626] = (void*)&cdat->dobj_3621__ERRORMSG_STRV;
-  melt_assertmsg("iniobj checkdiscr dobj_3621__ERRORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3621__ERRORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3621__ERRORMSG_STRV.obj_hash = 691170617;
-  cdat->dobj_3621__ERRORMSG_STRV.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3621__ERRORMSG_STRV));
- 
- /*inimult dtup_3622__ERRORMSG_STRV*/
- /*_.VALTUP___V3635*/ curfptr[3634] = (void*)&cdat->dtup_3622__ERRORMSG_STRV;
-  cdat->dtup_3622__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3622__ERRORMSG_STRV.nbval = 5;
- /*inimult dtup_3623__ERRORMSG_STRV*/
- /*_.VALTUP___V3631*/ curfptr[3630] = (void*)&cdat->dtup_3623__ERRORMSG_STRV;
-  cdat->dtup_3623__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3623__ERRORMSG_STRV.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1943:/ iniobj");
- /*iniobj dobj_3624*/
- if (!/*_.VALDATA___V3629*/ curfptr[3628]) /*_.VALDATA___V3629*/ curfptr[3628] = (void*)&cdat->dobj_3624;
-  melt_assertmsg("iniobj checkdiscr dobj_3624", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3624.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3624.obj_num = 0;
-  cdat->dobj_3624.obj_hash = 583607114;
-  cdat->dobj_3624.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3624));
- 
- MELT_LOCATION("warmelt-first.melt:1943:/ iniobj");
- /*iniobj dobj_3625*/
- if (!/*_.VALDATA___V3630*/ curfptr[3629]) /*_.VALDATA___V3630*/ curfptr[3629] = (void*)&cdat->dobj_3625;
-  melt_assertmsg("iniobj checkdiscr dobj_3625", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3625.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3625.obj_num = 1;
-  cdat->dobj_3625.obj_hash = 322689519;
-  cdat->dobj_3625.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3625));
- 
- /*inistring dstr_3626__error_MELT_ERRO*/
- /*_.VALSTR___V3632*/ curfptr[3631] = (void*)&cdat->dstr_3626__error_MELT_ERRO;
-  cdat->dstr_3626__error_MELT_ERRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3626__error_MELT_ERRO.val, "error(\"MELT ERROR MSG [#%ld]::: %s - %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3626__error_MELT_ERRO.val)-1);
- 
- /*inistring dstr_3627__melt_strin*/
- /*_.VALSTR___V3633*/ curfptr[3632] = (void*)&cdat->dstr_3627__melt_strin;
-  cdat->dstr_3627__melt_strin.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3627__melt_strin.val, "),\n\t  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3627__melt_strin.val)-1);
- 
- /*inistring dstr_3628__*/
- /*_.VALSTR___V3634*/ curfptr[3633] = (void*)&cdat->dstr_3628__;
-  cdat->dstr_3628__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3628__.val, ")))", sizeof(cdat->dstr_3628__.val)-1);
- 
- /*inistring dstr_3629__ERRORMSG_STRV*/
- /*_.VALSTR___V3628*/ curfptr[3627] = (void*)&cdat->dstr_3629__ERRORMSG_STRV;
-  cdat->dstr_3629__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3629__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof(cdat->dstr_3629__ERRORMSG_STRV.val)-1);
- 
- /*iniobj dsym_3630__INFORM_STRV*/
- if (!/*_.VALDATA___V3636*/ curfptr[3635]) /*_.VALDATA___V3636*/ curfptr[3635] = (void*)&cdat->dsym_3630__INFORM_STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_3630__INFORM_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3630__INFORM_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3630__INFORM_STRV.obj_hash = 868438324;
-  cdat->dsym_3630__INFORM_STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3630__INFORM_STRV));
- 
- /*inistring dstr_3631__INFORM_STRV*/
- /*_.VALSTR___V3637*/ curfptr[3636] = (void*)&cdat->dstr_3631__INFORM_STRV;
-  cdat->dstr_3631__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3631__INFORM_STRV.val, "INFORM_STRV", sizeof(cdat->dstr_3631__INFORM_STRV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1951:/ iniobj");
- /*iniobj dobj_3632__INFORM_STRV*/
- if (!/*_.VALDATA___V3638*/ curfptr[3637]) /*_.VALDATA___V3638*/ curfptr[3637] = (void*)&cdat->dobj_3632__INFORM_STRV;
-  melt_assertmsg("iniobj checkdiscr dobj_3632__INFORM_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3632__INFORM_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3632__INFORM_STRV.obj_hash = 283816530;
-  cdat->dobj_3632__INFORM_STRV.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3632__INFORM_STRV));
- 
- /*inimult dtup_3633__INFORM_STRV*/
- /*_.VALTUP___V3648*/ curfptr[3647] = (void*)&cdat->dtup_3633__INFORM_STRV;
-  cdat->dtup_3633__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3633__INFORM_STRV.nbval = 7;
- /*inimult dtup_3634__INFORM_STRV*/
- /*_.VALTUP___V3643*/ curfptr[3642] = (void*)&cdat->dtup_3634__INFORM_STRV;
-  cdat->dtup_3634__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3634__INFORM_STRV.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:1951:/ iniobj");
- /*iniobj dobj_3635*/
- if (!/*_.VALDATA___V3640*/ curfptr[3639]) /*_.VALDATA___V3640*/ curfptr[3639] = (void*)&cdat->dobj_3635;
-  melt_assertmsg("iniobj checkdiscr dobj_3635", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3635.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3635.obj_num = 0;
-  cdat->dobj_3635.obj_hash = 635401874;
-  cdat->dobj_3635.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3635));
- 
- MELT_LOCATION("warmelt-first.melt:1951:/ iniobj");
- /*iniobj dobj_3636*/
- if (!/*_.VALDATA___V3641*/ curfptr[3640]) /*_.VALDATA___V3641*/ curfptr[3640] = (void*)&cdat->dobj_3636;
-  melt_assertmsg("iniobj checkdiscr dobj_3636", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3636.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3636.obj_num = 1;
-  cdat->dobj_3636.obj_hash = 818172783;
-  cdat->dobj_3636.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3636));
- 
- MELT_LOCATION("warmelt-first.melt:1951:/ iniobj");
- /*iniobj dobj_3637*/
- if (!/*_.VALDATA___V3642*/ curfptr[3641]) /*_.VALDATA___V3642*/ curfptr[3641] = (void*)&cdat->dobj_3637;
-  melt_assertmsg("iniobj checkdiscr dobj_3637", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3637.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3637.obj_num = 2;
-  cdat->dobj_3637.obj_hash = 110413248;
-  cdat->dobj_3637.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3637));
- 
- /*inistring dstr_3638__melt_inform_str_*/
- /*_.VALSTR___V3644*/ curfptr[3643] = (void*)&cdat->dstr_3638__melt_inform_str_;
-  cdat->dstr_3638__melt_inform_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3638__melt_inform_str_.val, "melt_inform_str((melt_ptr_t)(", sizeof(cdat->dstr_3638__melt_inform_str_.val)-1);
- 
- /*inistring dstr_3639__*/
- /*_.VALSTR___V3645*/ curfptr[3644] = (void*)&cdat->dstr_3639__;
-  cdat->dstr_3639__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3639__.val, "), (", sizeof(cdat->dstr_3639__.val)-1);
- 
- /*inistring dstr_3640__melt_ptr_t_*/
- /*_.VALSTR___V3646*/ curfptr[3645] = (void*)&cdat->dstr_3640__melt_ptr_t_;
-  cdat->dstr_3640__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3640__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3640__melt_ptr_t_.val)-1);
- 
- /*inistring dstr_3641__*/
- /*_.VALSTR___V3647*/ curfptr[3646] = (void*)&cdat->dstr_3641__;
-  cdat->dstr_3641__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3641__.val, "))", sizeof(cdat->dstr_3641__.val)-1);
- 
- /*inistring dstr_3642__INFORM_STRV*/
- /*_.VALSTR___V3639*/ curfptr[3638] = (void*)&cdat->dstr_3642__INFORM_STRV;
-  cdat->dstr_3642__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3642__INFORM_STRV.val, "INFORM_STRV", sizeof(cdat->dstr_3642__INFORM_STRV.val)-1);
- 
- /*iniobj dsym_3643__INFORM_PLAIN*/
- if (!/*_.VALDATA___V3649*/ curfptr[3648]) /*_.VALDATA___V3649*/ curfptr[3648] = (void*)&cdat->dsym_3643__INFORM_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_3643__INFORM_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3643__INFORM_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3643__INFORM_PLAIN.obj_hash = 569354016;
-  cdat->dsym_3643__INFORM_PLAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3643__INFORM_PLAIN));
- 
- /*inistring dstr_3644__INFORM_PLAIN*/
- /*_.VALSTR___V3650*/ curfptr[3649] = (void*)&cdat->dstr_3644__INFORM_PLAIN;
-  cdat->dstr_3644__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3644__INFORM_PLAIN.val, "INFORM_PLAIN", sizeof(cdat->dstr_3644__INFORM_PLAIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1955:/ iniobj");
- /*iniobj dobj_3645__INFORM_PLAIN*/
- if (!/*_.VALDATA___V3651*/ curfptr[3650]) /*_.VALDATA___V3651*/ curfptr[3650] = (void*)&cdat->dobj_3645__INFORM_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_3645__INFORM_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3645__INFORM_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3645__INFORM_PLAIN.obj_hash = 961958060;
-  cdat->dobj_3645__INFORM_PLAIN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3645__INFORM_PLAIN));
- 
- /*inimult dtup_3646__INFORM_PLAIN*/
- /*_.VALTUP___V3659*/ curfptr[3658] = (void*)&cdat->dtup_3646__INFORM_PLAIN;
-  cdat->dtup_3646__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3646__INFORM_PLAIN.nbval = 5;
- /*inimult dtup_3647__INFORM_PLAIN*/
- /*_.VALTUP___V3655*/ curfptr[3654] = (void*)&cdat->dtup_3647__INFORM_PLAIN;
-  cdat->dtup_3647__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3647__INFORM_PLAIN.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1955:/ iniobj");
- /*iniobj dobj_3648*/
- if (!/*_.VALDATA___V3653*/ curfptr[3652]) /*_.VALDATA___V3653*/ curfptr[3652] = (void*)&cdat->dobj_3648;
-  melt_assertmsg("iniobj checkdiscr dobj_3648", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3648.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3648.obj_num = 0;
-  cdat->dobj_3648.obj_hash = 486116597;
-  cdat->dobj_3648.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3648));
- 
- MELT_LOCATION("warmelt-first.melt:1955:/ iniobj");
- /*iniobj dobj_3649*/
- if (!/*_.VALDATA___V3654*/ curfptr[3653]) /*_.VALDATA___V3654*/ curfptr[3653] = (void*)&cdat->dobj_3649;
-  melt_assertmsg("iniobj checkdiscr dobj_3649", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3649.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3649.obj_num = 1;
-  cdat->dobj_3649.obj_hash = 829774947;
-  cdat->dobj_3649.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3649));
- 
- /*inistring dstr_3650__melt_inform_str_*/
- /*_.VALSTR___V3656*/ curfptr[3655] = (void*)&cdat->dstr_3650__melt_inform_str_;
-  cdat->dstr_3650__melt_inform_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3650__melt_inform_str_.val, "melt_inform_str((melt_ptr_t)(", sizeof(cdat->dstr_3650__melt_inform_str_.val)-1);
- 
- /*inistring dstr_3651__*/
- /*_.VALSTR___V3657*/ curfptr[3656] = (void*)&cdat->dstr_3651__;
-  cdat->dstr_3651__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3651__.val, "), (", sizeof(cdat->dstr_3651__.val)-1);
- 
- /*inistring dstr_3652__melt_ptr_t_0*/
- /*_.VALSTR___V3658*/ curfptr[3657] = (void*)&cdat->dstr_3652__melt_ptr_t_0;
-  cdat->dstr_3652__melt_ptr_t_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3652__melt_ptr_t_0.val, "), (melt_ptr_t)0)", sizeof(cdat->dstr_3652__melt_ptr_t_0.val)-1);
- 
- /*inistring dstr_3653__INFORM_PLAIN*/
- /*_.VALSTR___V3652*/ curfptr[3651] = (void*)&cdat->dstr_3653__INFORM_PLAIN;
-  cdat->dstr_3653__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3653__INFORM_PLAIN.val, "INFORM_PLAIN", sizeof(cdat->dstr_3653__INFORM_PLAIN.val)-1);
- 
- /*iniobj dsym_3654__INFORMSG_STRV*/
- if (!/*_.VALDATA___V3660*/ curfptr[3659]) /*_.VALDATA___V3660*/ curfptr[3659] = (void*)&cdat->dsym_3654__INFORMSG_STRV;
-  melt_assertmsg("iniobj checkdiscr dsym_3654__INFORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3654__INFORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3654__INFORMSG_STRV.obj_hash = 252156938;
-  cdat->dsym_3654__INFORMSG_STRV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3654__INFORMSG_STRV));
- 
- /*inistring dstr_3655__INFORMSG_STRV*/
- /*_.VALSTR___V3661*/ curfptr[3660] = (void*)&cdat->dstr_3655__INFORMSG_STRV;
-  cdat->dstr_3655__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3655__INFORMSG_STRV.val, "INFORMSG_STRV", sizeof(cdat->dstr_3655__INFORMSG_STRV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1959:/ iniobj");
- /*iniobj dobj_3656__INFORMSG_STRV*/
- if (!/*_.VALDATA___V3662*/ curfptr[3661]) /*_.VALDATA___V3662*/ curfptr[3661] = (void*)&cdat->dobj_3656__INFORMSG_STRV;
-  melt_assertmsg("iniobj checkdiscr dobj_3656__INFORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3656__INFORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3656__INFORMSG_STRV.obj_hash = 350077135;
-  cdat->dobj_3656__INFORMSG_STRV.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3656__INFORMSG_STRV));
- 
- /*inimult dtup_3657__INFORMSG_STRV*/
- /*_.VALTUP___V3670*/ curfptr[3669] = (void*)&cdat->dtup_3657__INFORMSG_STRV;
-  cdat->dtup_3657__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3657__INFORMSG_STRV.nbval = 5;
- /*inimult dtup_3658__INFORMSG_STRV*/
- /*_.VALTUP___V3666*/ curfptr[3665] = (void*)&cdat->dtup_3658__INFORMSG_STRV;
-  cdat->dtup_3658__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3658__INFORMSG_STRV.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1959:/ iniobj");
- /*iniobj dobj_3659*/
- if (!/*_.VALDATA___V3664*/ curfptr[3663]) /*_.VALDATA___V3664*/ curfptr[3663] = (void*)&cdat->dobj_3659;
-  melt_assertmsg("iniobj checkdiscr dobj_3659", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3659.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3659.obj_num = 0;
-  cdat->dobj_3659.obj_hash = 124245472;
-  cdat->dobj_3659.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3659));
- 
- MELT_LOCATION("warmelt-first.melt:1959:/ iniobj");
- /*iniobj dobj_3660*/
- if (!/*_.VALDATA___V3665*/ curfptr[3664]) /*_.VALDATA___V3665*/ curfptr[3664] = (void*)&cdat->dobj_3660;
-  melt_assertmsg("iniobj checkdiscr dobj_3660", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3660.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3660.obj_num = 1;
-  cdat->dobj_3660.obj_hash = 669053331;
-  cdat->dobj_3660.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3660));
- 
- /*inistring dstr_3661__inform_UNKNOWN_L*/
- /*_.VALSTR___V3667*/ curfptr[3666] = (void*)&cdat->dstr_3661__inform_UNKNOWN_L;
-  cdat->dstr_3661__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3661__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, (\"MELT INFORM [#%ld]: %s - %s\"), melt_dbgcounter, (", sizeof(cdat->dstr_3661__inform_UNKNOWN_L.val)-1);
- 
- /*inistring dstr_3662__melt*/
- /*_.VALSTR___V3668*/ curfptr[3667] = (void*)&cdat->dstr_3662__melt;
-  cdat->dstr_3662__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3662__melt.val, "), \n\t\t\t     melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3662__melt.val)-1);
- 
- /*inistring dstr_3663__*/
- /*_.VALSTR___V3669*/ curfptr[3668] = (void*)&cdat->dstr_3663__;
-  cdat->dstr_3663__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3663__.val, ")))", sizeof(cdat->dstr_3663__.val)-1);
- 
- /*inistring dstr_3664__INFORMSG_STRV*/
- /*_.VALSTR___V3663*/ curfptr[3662] = (void*)&cdat->dstr_3664__INFORMSG_STRV;
-  cdat->dstr_3664__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3664__INFORMSG_STRV.val, "INFORMSG_STRV", sizeof(cdat->dstr_3664__INFORMSG_STRV.val)-1);
- 
- /*iniobj dsym_3665__INFORMSG_PLAIN*/
- if (!/*_.VALDATA___V3671*/ curfptr[3670]) /*_.VALDATA___V3671*/ curfptr[3670] = (void*)&cdat->dsym_3665__INFORMSG_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_3665__INFORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3665__INFORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3665__INFORMSG_PLAIN.obj_hash = 167596035;
-  cdat->dsym_3665__INFORMSG_PLAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3665__INFORMSG_PLAIN));
- 
- /*inistring dstr_3666__INFORMSG_PLAIN*/
- /*_.VALSTR___V3672*/ curfptr[3671] = (void*)&cdat->dstr_3666__INFORMSG_PLAIN;
-  cdat->dstr_3666__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3666__INFORMSG_PLAIN.val, "INFORMSG_PLAIN", sizeof(cdat->dstr_3666__INFORMSG_PLAIN.val)-1);
+ /*iniobj dobj_3577*/
+ if (!/*_.VALDATA___V3582*/ curfptr[3581]) /*_.VALDATA___V3582*/ curfptr[3581] = (void*)&cdat->dobj_3577;
+  melt_assertmsg("iniobj checkdiscr dobj_3577", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3577.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3577.obj_num = 1;
+  cdat->dobj_3577.obj_hash = 914819663;
+  cdat->dobj_3577.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3577));
+ 
+ /*inistring dstr_3578__melt_warning_str*/
+ /*_.VALSTR___V3584*/ curfptr[3583] = (void*)&cdat->dstr_3578__melt_warning_str;
+  cdat->dstr_3578__melt_warning_str.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3578__melt_warning_str.val, "melt_warning_str(0, (melt_ptr_t)(", sizeof(cdat->dstr_3578__melt_warning_str.val)-1);
+ 
+ /*inistring dstr_3579__*/
+ /*_.VALSTR___V3585*/ curfptr[3584] = (void*)&cdat->dstr_3579__;
+  cdat->dstr_3579__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3579__.val, "), (", sizeof(cdat->dstr_3579__.val)-1);
+ 
+ /*inistring dstr_3580__melt_ptr_t_0*/
+ /*_.VALSTR___V3586*/ curfptr[3585] = (void*)&cdat->dstr_3580__melt_ptr_t_0;
+  cdat->dstr_3580__melt_ptr_t_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3580__melt_ptr_t_0.val, "), (melt_ptr_t)0)", sizeof(cdat->dstr_3580__melt_ptr_t_0.val)-1);
+ 
+ /*inistring dstr_3581__WARNING_PLAIN*/
+ /*_.VALSTR___V3580*/ curfptr[3579] = (void*)&cdat->dstr_3581__WARNING_PLAIN;
+  cdat->dstr_3581__WARNING_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3581__WARNING_PLAIN.val, "WARNING_PLAIN", sizeof(cdat->dstr_3581__WARNING_PLAIN.val)-1);
+ 
+ /*iniobj dsym_3582__WARNINGMSG_PLAIN*/
+ if (!/*_.VALDATA___V3588*/ curfptr[3587]) /*_.VALDATA___V3588*/ curfptr[3587] = (void*)&cdat->dsym_3582__WARNINGMSG_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_3582__WARNINGMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3582__WARNINGMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3582__WARNINGMSG_PLAIN.obj_hash = 326445154;
+  cdat->dsym_3582__WARNINGMSG_PLAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3582__WARNINGMSG_PLAIN));
+ 
+ /*inistring dstr_3583__WARNINGMSG_PLAIN*/
+ /*_.VALSTR___V3589*/ curfptr[3588] = (void*)&cdat->dstr_3583__WARNINGMSG_PLAIN;
+  cdat->dstr_3583__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3583__WARNINGMSG_PLAIN.val, "WARNINGMSG_PLAIN", sizeof(cdat->dstr_3583__WARNINGMSG_PLAIN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1918:/ iniobj");
+ /*iniobj dobj_3584__WARNINGMSG_PLAIN*/
+ if (!/*_.VALDATA___V3590*/ curfptr[3589]) /*_.VALDATA___V3590*/ curfptr[3589] = (void*)&cdat->dobj_3584__WARNINGMSG_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_3584__WARNINGMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3584__WARNINGMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3584__WARNINGMSG_PLAIN.obj_hash = 977641095;
+  cdat->dobj_3584__WARNINGMSG_PLAIN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3584__WARNINGMSG_PLAIN));
+ 
+ /*inimult dtup_3585__WARNINGMSG_PLAIN*/
+ /*_.VALTUP___V3596*/ curfptr[3595] = (void*)&cdat->dtup_3585__WARNINGMSG_PLAIN;
+  cdat->dtup_3585__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3585__WARNINGMSG_PLAIN.nbval = 3;
+ /*inimult dtup_3586__WARNINGMSG_PLAIN*/
+ /*_.VALTUP___V3593*/ curfptr[3592] = (void*)&cdat->dtup_3586__WARNINGMSG_PLAIN;
+  cdat->dtup_3586__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3586__WARNINGMSG_PLAIN.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1918:/ iniobj");
+ /*iniobj dobj_3587*/
+ if (!/*_.VALDATA___V3592*/ curfptr[3591]) /*_.VALDATA___V3592*/ curfptr[3591] = (void*)&cdat->dobj_3587;
+  melt_assertmsg("iniobj checkdiscr dobj_3587", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3587.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3587.obj_num = 0;
+  cdat->dobj_3587.obj_hash = 163409816;
+  cdat->dobj_3587.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3587));
+ 
+ /*inistring dstr_3588__warning_0_MELT*/
+ /*_.VALSTR___V3594*/ curfptr[3593] = (void*)&cdat->dstr_3588__warning_0_MELT;
+  cdat->dstr_3588__warning_0_MELT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3588__warning_0_MELT.val, "warning(0, \"MELT WARNING MSG [#%ld]::: %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3588__warning_0_MELT.val)-1);
+ 
+ /*inistring dstr_3589__*/
+ /*_.VALSTR___V3595*/ curfptr[3594] = (void*)&cdat->dstr_3589__;
+  cdat->dstr_3589__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3589__.val, "))", sizeof(cdat->dstr_3589__.val)-1);
+ 
+ /*inistring dstr_3590__WARNINGMSG_PLAIN*/
+ /*_.VALSTR___V3591*/ curfptr[3590] = (void*)&cdat->dstr_3590__WARNINGMSG_PLAIN;
+  cdat->dstr_3590__WARNINGMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3590__WARNINGMSG_PLAIN.val, "WARNINGMSG_PLAIN", sizeof(cdat->dstr_3590__WARNINGMSG_PLAIN.val)-1);
+ 
+ /*iniobj dsym_3591__WARNINGMSG_STRV*/
+ if (!/*_.VALDATA___V3597*/ curfptr[3596]) /*_.VALDATA___V3597*/ curfptr[3596] = (void*)&cdat->dsym_3591__WARNINGMSG_STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_3591__WARNINGMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3591__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3591__WARNINGMSG_STRV.obj_hash = 595150788;
+  cdat->dsym_3591__WARNINGMSG_STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3591__WARNINGMSG_STRV));
+ 
+ /*inistring dstr_3592__WARNINGMSG_STRV*/
+ /*_.VALSTR___V3598*/ curfptr[3597] = (void*)&cdat->dstr_3592__WARNINGMSG_STRV;
+  cdat->dstr_3592__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3592__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof(cdat->dstr_3592__WARNINGMSG_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1924:/ iniobj");
+ /*iniobj dobj_3593__WARNINGMSG_STRV*/
+ if (!/*_.VALDATA___V3599*/ curfptr[3598]) /*_.VALDATA___V3599*/ curfptr[3598] = (void*)&cdat->dobj_3593__WARNINGMSG_STRV;
+  melt_assertmsg("iniobj checkdiscr dobj_3593__WARNINGMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3593__WARNINGMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3593__WARNINGMSG_STRV.obj_hash = 874806574;
+  cdat->dobj_3593__WARNINGMSG_STRV.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3593__WARNINGMSG_STRV));
+ 
+ /*inimult dtup_3594__WARNINGMSG_STRV*/
+ /*_.VALTUP___V3607*/ curfptr[3606] = (void*)&cdat->dtup_3594__WARNINGMSG_STRV;
+  cdat->dtup_3594__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3594__WARNINGMSG_STRV.nbval = 5;
+ /*inimult dtup_3595__WARNINGMSG_STRV*/
+ /*_.VALTUP___V3603*/ curfptr[3602] = (void*)&cdat->dtup_3595__WARNINGMSG_STRV;
+  cdat->dtup_3595__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3595__WARNINGMSG_STRV.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1924:/ iniobj");
+ /*iniobj dobj_3596*/
+ if (!/*_.VALDATA___V3601*/ curfptr[3600]) /*_.VALDATA___V3601*/ curfptr[3600] = (void*)&cdat->dobj_3596;
+  melt_assertmsg("iniobj checkdiscr dobj_3596", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3596.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3596.obj_num = 0;
+  cdat->dobj_3596.obj_hash = 966907390;
+  cdat->dobj_3596.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3596));
+ 
+ MELT_LOCATION("warmelt-first.melt:1924:/ iniobj");
+ /*iniobj dobj_3597*/
+ if (!/*_.VALDATA___V3602*/ curfptr[3601]) /*_.VALDATA___V3602*/ curfptr[3601] = (void*)&cdat->dobj_3597;
+  melt_assertmsg("iniobj checkdiscr dobj_3597", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3597.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3597.obj_num = 1;
+  cdat->dobj_3597.obj_hash = 124272180;
+  cdat->dobj_3597.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3597));
+ 
+ /*inistring dstr_3598__warning_0_MEL*/
+ /*_.VALSTR___V3604*/ curfptr[3603] = (void*)&cdat->dstr_3598__warning_0_MEL;
+  cdat->dstr_3598__warning_0_MEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3598__warning_0_MEL.val, "warning (0, \"MELT WARNING MSG [#%ld]::: %s - %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3598__warning_0_MEL.val)-1);
+ 
+ /*inistring dstr_3599__melt*/
+ /*_.VALSTR___V3605*/ curfptr[3604] = (void*)&cdat->dstr_3599__melt;
+  cdat->dstr_3599__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3599__melt.val, "), \n\t       melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3599__melt.val)-1);
+ 
+ /*inistring dstr_3600__*/
+ /*_.VALSTR___V3606*/ curfptr[3605] = (void*)&cdat->dstr_3600__;
+  cdat->dstr_3600__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3600__.val, ")))", sizeof(cdat->dstr_3600__.val)-1);
+ 
+ /*inistring dstr_3601__WARNINGMSG_STRV*/
+ /*_.VALSTR___V3600*/ curfptr[3599] = (void*)&cdat->dstr_3601__WARNINGMSG_STRV;
+  cdat->dstr_3601__WARNINGMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3601__WARNINGMSG_STRV.val, "WARNINGMSG_STRV", sizeof(cdat->dstr_3601__WARNINGMSG_STRV.val)-1);
+ 
+ /*iniobj dsym_3602__ERRORMSG_PLAIN*/
+ if (!/*_.VALDATA___V3608*/ curfptr[3607]) /*_.VALDATA___V3608*/ curfptr[3607] = (void*)&cdat->dsym_3602__ERRORMSG_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_3602__ERRORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3602__ERRORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3602__ERRORMSG_PLAIN.obj_hash = 641434332;
+  cdat->dsym_3602__ERRORMSG_PLAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3602__ERRORMSG_PLAIN));
+ 
+ /*inistring dstr_3603__ERRORMSG_PLAIN*/
+ /*_.VALSTR___V3609*/ curfptr[3608] = (void*)&cdat->dstr_3603__ERRORMSG_PLAIN;
+  cdat->dstr_3603__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3603__ERRORMSG_PLAIN.val, "ERRORMSG_PLAIN", sizeof(cdat->dstr_3603__ERRORMSG_PLAIN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1931:/ iniobj");
+ /*iniobj dobj_3604__ERRORMSG_PLAIN*/
+ if (!/*_.VALDATA___V3610*/ curfptr[3609]) /*_.VALDATA___V3610*/ curfptr[3609] = (void*)&cdat->dobj_3604__ERRORMSG_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_3604__ERRORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3604__ERRORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3604__ERRORMSG_PLAIN.obj_hash = 388562730;
+  cdat->dobj_3604__ERRORMSG_PLAIN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3604__ERRORMSG_PLAIN));
+ 
+ /*inimult dtup_3605__ERRORMSG_PLAIN*/
+ /*_.VALTUP___V3616*/ curfptr[3615] = (void*)&cdat->dtup_3605__ERRORMSG_PLAIN;
+  cdat->dtup_3605__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3605__ERRORMSG_PLAIN.nbval = 3;
+ /*inimult dtup_3606__ERRORMSG_PLAIN*/
+ /*_.VALTUP___V3613*/ curfptr[3612] = (void*)&cdat->dtup_3606__ERRORMSG_PLAIN;
+  cdat->dtup_3606__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3606__ERRORMSG_PLAIN.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1931:/ iniobj");
+ /*iniobj dobj_3607*/
+ if (!/*_.VALDATA___V3612*/ curfptr[3611]) /*_.VALDATA___V3612*/ curfptr[3611] = (void*)&cdat->dobj_3607;
+  melt_assertmsg("iniobj checkdiscr dobj_3607", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3607.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3607.obj_num = 0;
+  cdat->dobj_3607.obj_hash = 422273002;
+  cdat->dobj_3607.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3607));
+ 
+ /*inistring dstr_3608__error_MELT_ERR*/
+ /*_.VALSTR___V3614*/ curfptr[3613] = (void*)&cdat->dstr_3608__error_MELT_ERR;
+  cdat->dstr_3608__error_MELT_ERR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3608__error_MELT_ERR.val, "error (\"MELT ERROR MSG [#%ld]::: %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3608__error_MELT_ERR.val)-1);
+ 
+ /*inistring dstr_3609__*/
+ /*_.VALSTR___V3615*/ curfptr[3614] = (void*)&cdat->dstr_3609__;
+  cdat->dstr_3609__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3609__.val, "))", sizeof(cdat->dstr_3609__.val)-1);
+ 
+ /*inistring dstr_3610__ERRORMSG_PLAIN*/
+ /*_.VALSTR___V3611*/ curfptr[3610] = (void*)&cdat->dstr_3610__ERRORMSG_PLAIN;
+  cdat->dstr_3610__ERRORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3610__ERRORMSG_PLAIN.val, "ERRORMSG_PLAIN", sizeof(cdat->dstr_3610__ERRORMSG_PLAIN.val)-1);
+ 
+ /*iniobj dsym_3611__ERRORMSG_STRV*/
+ if (!/*_.VALDATA___V3617*/ curfptr[3616]) /*_.VALDATA___V3617*/ curfptr[3616] = (void*)&cdat->dsym_3611__ERRORMSG_STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_3611__ERRORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3611__ERRORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3611__ERRORMSG_STRV.obj_hash = 218301686;
+  cdat->dsym_3611__ERRORMSG_STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3611__ERRORMSG_STRV));
+ 
+ /*inistring dstr_3612__ERRORMSG_STRV*/
+ /*_.VALSTR___V3618*/ curfptr[3617] = (void*)&cdat->dstr_3612__ERRORMSG_STRV;
+  cdat->dstr_3612__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3612__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof(cdat->dstr_3612__ERRORMSG_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1938:/ iniobj");
+ /*iniobj dobj_3613__ERRORMSG_STRV*/
+ if (!/*_.VALDATA___V3619*/ curfptr[3618]) /*_.VALDATA___V3619*/ curfptr[3618] = (void*)&cdat->dobj_3613__ERRORMSG_STRV;
+  melt_assertmsg("iniobj checkdiscr dobj_3613__ERRORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3613__ERRORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3613__ERRORMSG_STRV.obj_hash = 337324510;
+  cdat->dobj_3613__ERRORMSG_STRV.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3613__ERRORMSG_STRV));
+ 
+ /*inimult dtup_3614__ERRORMSG_STRV*/
+ /*_.VALTUP___V3627*/ curfptr[3626] = (void*)&cdat->dtup_3614__ERRORMSG_STRV;
+  cdat->dtup_3614__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3614__ERRORMSG_STRV.nbval = 5;
+ /*inimult dtup_3615__ERRORMSG_STRV*/
+ /*_.VALTUP___V3623*/ curfptr[3622] = (void*)&cdat->dtup_3615__ERRORMSG_STRV;
+  cdat->dtup_3615__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3615__ERRORMSG_STRV.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1938:/ iniobj");
+ /*iniobj dobj_3616*/
+ if (!/*_.VALDATA___V3621*/ curfptr[3620]) /*_.VALDATA___V3621*/ curfptr[3620] = (void*)&cdat->dobj_3616;
+  melt_assertmsg("iniobj checkdiscr dobj_3616", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3616.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3616.obj_num = 0;
+  cdat->dobj_3616.obj_hash = 483963018;
+  cdat->dobj_3616.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3616));
+ 
+ MELT_LOCATION("warmelt-first.melt:1938:/ iniobj");
+ /*iniobj dobj_3617*/
+ if (!/*_.VALDATA___V3622*/ curfptr[3621]) /*_.VALDATA___V3622*/ curfptr[3621] = (void*)&cdat->dobj_3617;
+  melt_assertmsg("iniobj checkdiscr dobj_3617", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3617.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3617.obj_num = 1;
+  cdat->dobj_3617.obj_hash = 684245267;
+  cdat->dobj_3617.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3617));
+ 
+ /*inistring dstr_3618__error_MELT_ERRO*/
+ /*_.VALSTR___V3624*/ curfptr[3623] = (void*)&cdat->dstr_3618__error_MELT_ERRO;
+  cdat->dstr_3618__error_MELT_ERRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3618__error_MELT_ERRO.val, "error(\"MELT ERROR MSG [#%ld]::: %s - %s\", melt_dbgcounter, (", sizeof(cdat->dstr_3618__error_MELT_ERRO.val)-1);
+ 
+ /*inistring dstr_3619__melt_strin*/
+ /*_.VALSTR___V3625*/ curfptr[3624] = (void*)&cdat->dstr_3619__melt_strin;
+  cdat->dstr_3619__melt_strin.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3619__melt_strin.val, "),\n\t  melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3619__melt_strin.val)-1);
+ 
+ /*inistring dstr_3620__*/
+ /*_.VALSTR___V3626*/ curfptr[3625] = (void*)&cdat->dstr_3620__;
+  cdat->dstr_3620__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3620__.val, ")))", sizeof(cdat->dstr_3620__.val)-1);
+ 
+ /*inistring dstr_3621__ERRORMSG_STRV*/
+ /*_.VALSTR___V3620*/ curfptr[3619] = (void*)&cdat->dstr_3621__ERRORMSG_STRV;
+  cdat->dstr_3621__ERRORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3621__ERRORMSG_STRV.val, "ERRORMSG_STRV", sizeof(cdat->dstr_3621__ERRORMSG_STRV.val)-1);
+ 
+ /*iniobj dsym_3622__INFORM_STRV*/
+ if (!/*_.VALDATA___V3628*/ curfptr[3627]) /*_.VALDATA___V3628*/ curfptr[3627] = (void*)&cdat->dsym_3622__INFORM_STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_3622__INFORM_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3622__INFORM_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3622__INFORM_STRV.obj_hash = 868438324;
+  cdat->dsym_3622__INFORM_STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3622__INFORM_STRV));
+ 
+ /*inistring dstr_3623__INFORM_STRV*/
+ /*_.VALSTR___V3629*/ curfptr[3628] = (void*)&cdat->dstr_3623__INFORM_STRV;
+  cdat->dstr_3623__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3623__INFORM_STRV.val, "INFORM_STRV", sizeof(cdat->dstr_3623__INFORM_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1946:/ iniobj");
+ /*iniobj dobj_3624__INFORM_STRV*/
+ if (!/*_.VALDATA___V3630*/ curfptr[3629]) /*_.VALDATA___V3630*/ curfptr[3629] = (void*)&cdat->dobj_3624__INFORM_STRV;
+  melt_assertmsg("iniobj checkdiscr dobj_3624__INFORM_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3624__INFORM_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3624__INFORM_STRV.obj_hash = 749546221;
+  cdat->dobj_3624__INFORM_STRV.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3624__INFORM_STRV));
+ 
+ /*inimult dtup_3625__INFORM_STRV*/
+ /*_.VALTUP___V3640*/ curfptr[3639] = (void*)&cdat->dtup_3625__INFORM_STRV;
+  cdat->dtup_3625__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3625__INFORM_STRV.nbval = 7;
+ /*inimult dtup_3626__INFORM_STRV*/
+ /*_.VALTUP___V3635*/ curfptr[3634] = (void*)&cdat->dtup_3626__INFORM_STRV;
+  cdat->dtup_3626__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3626__INFORM_STRV.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:1946:/ iniobj");
+ /*iniobj dobj_3627*/
+ if (!/*_.VALDATA___V3632*/ curfptr[3631]) /*_.VALDATA___V3632*/ curfptr[3631] = (void*)&cdat->dobj_3627;
+  melt_assertmsg("iniobj checkdiscr dobj_3627", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3627.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3627.obj_num = 0;
+  cdat->dobj_3627.obj_hash = 235628785;
+  cdat->dobj_3627.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3627));
+ 
+ MELT_LOCATION("warmelt-first.melt:1946:/ iniobj");
+ /*iniobj dobj_3628*/
+ if (!/*_.VALDATA___V3633*/ curfptr[3632]) /*_.VALDATA___V3633*/ curfptr[3632] = (void*)&cdat->dobj_3628;
+  melt_assertmsg("iniobj checkdiscr dobj_3628", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3628.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3628.obj_num = 1;
+  cdat->dobj_3628.obj_hash = 159930433;
+  cdat->dobj_3628.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3628));
+ 
+ MELT_LOCATION("warmelt-first.melt:1946:/ iniobj");
+ /*iniobj dobj_3629*/
+ if (!/*_.VALDATA___V3634*/ curfptr[3633]) /*_.VALDATA___V3634*/ curfptr[3633] = (void*)&cdat->dobj_3629;
+  melt_assertmsg("iniobj checkdiscr dobj_3629", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3629.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3629.obj_num = 2;
+  cdat->dobj_3629.obj_hash = 96809552;
+  cdat->dobj_3629.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3629));
+ 
+ /*inistring dstr_3630__melt_inform_str_*/
+ /*_.VALSTR___V3636*/ curfptr[3635] = (void*)&cdat->dstr_3630__melt_inform_str_;
+  cdat->dstr_3630__melt_inform_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3630__melt_inform_str_.val, "melt_inform_str((melt_ptr_t)(", sizeof(cdat->dstr_3630__melt_inform_str_.val)-1);
+ 
+ /*inistring dstr_3631__*/
+ /*_.VALSTR___V3637*/ curfptr[3636] = (void*)&cdat->dstr_3631__;
+  cdat->dstr_3631__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3631__.val, "), (", sizeof(cdat->dstr_3631__.val)-1);
+ 
+ /*inistring dstr_3632__melt_ptr_t_*/
+ /*_.VALSTR___V3638*/ curfptr[3637] = (void*)&cdat->dstr_3632__melt_ptr_t_;
+  cdat->dstr_3632__melt_ptr_t_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3632__melt_ptr_t_.val, "), (melt_ptr_t)(", sizeof(cdat->dstr_3632__melt_ptr_t_.val)-1);
+ 
+ /*inistring dstr_3633__*/
+ /*_.VALSTR___V3639*/ curfptr[3638] = (void*)&cdat->dstr_3633__;
+  cdat->dstr_3633__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3633__.val, "))", sizeof(cdat->dstr_3633__.val)-1);
+ 
+ /*inistring dstr_3634__INFORM_STRV*/
+ /*_.VALSTR___V3631*/ curfptr[3630] = (void*)&cdat->dstr_3634__INFORM_STRV;
+  cdat->dstr_3634__INFORM_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3634__INFORM_STRV.val, "INFORM_STRV", sizeof(cdat->dstr_3634__INFORM_STRV.val)-1);
+ 
+ /*iniobj dsym_3635__INFORM_PLAIN*/
+ if (!/*_.VALDATA___V3641*/ curfptr[3640]) /*_.VALDATA___V3641*/ curfptr[3640] = (void*)&cdat->dsym_3635__INFORM_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_3635__INFORM_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3635__INFORM_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3635__INFORM_PLAIN.obj_hash = 569354016;
+  cdat->dsym_3635__INFORM_PLAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3635__INFORM_PLAIN));
+ 
+ /*inistring dstr_3636__INFORM_PLAIN*/
+ /*_.VALSTR___V3642*/ curfptr[3641] = (void*)&cdat->dstr_3636__INFORM_PLAIN;
+  cdat->dstr_3636__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3636__INFORM_PLAIN.val, "INFORM_PLAIN", sizeof(cdat->dstr_3636__INFORM_PLAIN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1950:/ iniobj");
+ /*iniobj dobj_3637__INFORM_PLAIN*/
+ if (!/*_.VALDATA___V3643*/ curfptr[3642]) /*_.VALDATA___V3643*/ curfptr[3642] = (void*)&cdat->dobj_3637__INFORM_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_3637__INFORM_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3637__INFORM_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3637__INFORM_PLAIN.obj_hash = 231083136;
+  cdat->dobj_3637__INFORM_PLAIN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3637__INFORM_PLAIN));
+ 
+ /*inimult dtup_3638__INFORM_PLAIN*/
+ /*_.VALTUP___V3651*/ curfptr[3650] = (void*)&cdat->dtup_3638__INFORM_PLAIN;
+  cdat->dtup_3638__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3638__INFORM_PLAIN.nbval = 5;
+ /*inimult dtup_3639__INFORM_PLAIN*/
+ /*_.VALTUP___V3647*/ curfptr[3646] = (void*)&cdat->dtup_3639__INFORM_PLAIN;
+  cdat->dtup_3639__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3639__INFORM_PLAIN.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1950:/ iniobj");
+ /*iniobj dobj_3640*/
+ if (!/*_.VALDATA___V3645*/ curfptr[3644]) /*_.VALDATA___V3645*/ curfptr[3644] = (void*)&cdat->dobj_3640;
+  melt_assertmsg("iniobj checkdiscr dobj_3640", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3640.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3640.obj_num = 0;
+  cdat->dobj_3640.obj_hash = 798131190;
+  cdat->dobj_3640.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3640));
+ 
+ MELT_LOCATION("warmelt-first.melt:1950:/ iniobj");
+ /*iniobj dobj_3641*/
+ if (!/*_.VALDATA___V3646*/ curfptr[3645]) /*_.VALDATA___V3646*/ curfptr[3645] = (void*)&cdat->dobj_3641;
+  melt_assertmsg("iniobj checkdiscr dobj_3641", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3641.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3641.obj_num = 1;
+  cdat->dobj_3641.obj_hash = 644612741;
+  cdat->dobj_3641.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3641));
+ 
+ /*inistring dstr_3642__melt_inform_str_*/
+ /*_.VALSTR___V3648*/ curfptr[3647] = (void*)&cdat->dstr_3642__melt_inform_str_;
+  cdat->dstr_3642__melt_inform_str_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3642__melt_inform_str_.val, "melt_inform_str((melt_ptr_t)(", sizeof(cdat->dstr_3642__melt_inform_str_.val)-1);
+ 
+ /*inistring dstr_3643__*/
+ /*_.VALSTR___V3649*/ curfptr[3648] = (void*)&cdat->dstr_3643__;
+  cdat->dstr_3643__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3643__.val, "), (", sizeof(cdat->dstr_3643__.val)-1);
+ 
+ /*inistring dstr_3644__melt_ptr_t_0*/
+ /*_.VALSTR___V3650*/ curfptr[3649] = (void*)&cdat->dstr_3644__melt_ptr_t_0;
+  cdat->dstr_3644__melt_ptr_t_0.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3644__melt_ptr_t_0.val, "), (melt_ptr_t)0)", sizeof(cdat->dstr_3644__melt_ptr_t_0.val)-1);
+ 
+ /*inistring dstr_3645__INFORM_PLAIN*/
+ /*_.VALSTR___V3644*/ curfptr[3643] = (void*)&cdat->dstr_3645__INFORM_PLAIN;
+  cdat->dstr_3645__INFORM_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3645__INFORM_PLAIN.val, "INFORM_PLAIN", sizeof(cdat->dstr_3645__INFORM_PLAIN.val)-1);
+ 
+ /*iniobj dsym_3646__INFORMSG_STRV*/
+ if (!/*_.VALDATA___V3652*/ curfptr[3651]) /*_.VALDATA___V3652*/ curfptr[3651] = (void*)&cdat->dsym_3646__INFORMSG_STRV;
+  melt_assertmsg("iniobj checkdiscr dsym_3646__INFORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3646__INFORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3646__INFORMSG_STRV.obj_hash = 252156938;
+  cdat->dsym_3646__INFORMSG_STRV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3646__INFORMSG_STRV));
+ 
+ /*inistring dstr_3647__INFORMSG_STRV*/
+ /*_.VALSTR___V3653*/ curfptr[3652] = (void*)&cdat->dstr_3647__INFORMSG_STRV;
+  cdat->dstr_3647__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3647__INFORMSG_STRV.val, "INFORMSG_STRV", sizeof(cdat->dstr_3647__INFORMSG_STRV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1954:/ iniobj");
+ /*iniobj dobj_3648__INFORMSG_STRV*/
+ if (!/*_.VALDATA___V3654*/ curfptr[3653]) /*_.VALDATA___V3654*/ curfptr[3653] = (void*)&cdat->dobj_3648__INFORMSG_STRV;
+  melt_assertmsg("iniobj checkdiscr dobj_3648__INFORMSG_STRV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3648__INFORMSG_STRV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3648__INFORMSG_STRV.obj_hash = 780452465;
+  cdat->dobj_3648__INFORMSG_STRV.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3648__INFORMSG_STRV));
+ 
+ /*inimult dtup_3649__INFORMSG_STRV*/
+ /*_.VALTUP___V3662*/ curfptr[3661] = (void*)&cdat->dtup_3649__INFORMSG_STRV;
+  cdat->dtup_3649__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3649__INFORMSG_STRV.nbval = 5;
+ /*inimult dtup_3650__INFORMSG_STRV*/
+ /*_.VALTUP___V3658*/ curfptr[3657] = (void*)&cdat->dtup_3650__INFORMSG_STRV;
+  cdat->dtup_3650__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3650__INFORMSG_STRV.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1954:/ iniobj");
+ /*iniobj dobj_3651*/
+ if (!/*_.VALDATA___V3656*/ curfptr[3655]) /*_.VALDATA___V3656*/ curfptr[3655] = (void*)&cdat->dobj_3651;
+  melt_assertmsg("iniobj checkdiscr dobj_3651", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3651.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3651.obj_num = 0;
+  cdat->dobj_3651.obj_hash = 981891260;
+  cdat->dobj_3651.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3651));
+ 
+ MELT_LOCATION("warmelt-first.melt:1954:/ iniobj");
+ /*iniobj dobj_3652*/
+ if (!/*_.VALDATA___V3657*/ curfptr[3656]) /*_.VALDATA___V3657*/ curfptr[3656] = (void*)&cdat->dobj_3652;
+  melt_assertmsg("iniobj checkdiscr dobj_3652", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3652.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3652.obj_num = 1;
+  cdat->dobj_3652.obj_hash = 758559820;
+  cdat->dobj_3652.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3652));
+ 
+ /*inistring dstr_3653__inform_UNKNOWN_L*/
+ /*_.VALSTR___V3659*/ curfptr[3658] = (void*)&cdat->dstr_3653__inform_UNKNOWN_L;
+  cdat->dstr_3653__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3653__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, (\"MELT INFORM [#%ld]: %s - %s\"), melt_dbgcounter, (", sizeof(cdat->dstr_3653__inform_UNKNOWN_L.val)-1);
+ 
+ /*inistring dstr_3654__melt*/
+ /*_.VALSTR___V3660*/ curfptr[3659] = (void*)&cdat->dstr_3654__melt;
+  cdat->dstr_3654__melt.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3654__melt.val, "), \n\t\t\t     melt_string_str((melt_ptr_t)(", sizeof(cdat->dstr_3654__melt.val)-1);
+ 
+ /*inistring dstr_3655__*/
+ /*_.VALSTR___V3661*/ curfptr[3660] = (void*)&cdat->dstr_3655__;
+  cdat->dstr_3655__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3655__.val, ")))", sizeof(cdat->dstr_3655__.val)-1);
+ 
+ /*inistring dstr_3656__INFORMSG_STRV*/
+ /*_.VALSTR___V3655*/ curfptr[3654] = (void*)&cdat->dstr_3656__INFORMSG_STRV;
+  cdat->dstr_3656__INFORMSG_STRV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3656__INFORMSG_STRV.val, "INFORMSG_STRV", sizeof(cdat->dstr_3656__INFORMSG_STRV.val)-1);
+ 
+ /*iniobj dsym_3657__INFORMSG_PLAIN*/
+ if (!/*_.VALDATA___V3663*/ curfptr[3662]) /*_.VALDATA___V3663*/ curfptr[3662] = (void*)&cdat->dsym_3657__INFORMSG_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_3657__INFORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3657__INFORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3657__INFORMSG_PLAIN.obj_hash = 167596035;
+  cdat->dsym_3657__INFORMSG_PLAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3657__INFORMSG_PLAIN));
+ 
+ /*inistring dstr_3658__INFORMSG_PLAIN*/
+ /*_.VALSTR___V3664*/ curfptr[3663] = (void*)&cdat->dstr_3658__INFORMSG_PLAIN;
+  cdat->dstr_3658__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3658__INFORMSG_PLAIN.val, "INFORMSG_PLAIN", sizeof(cdat->dstr_3658__INFORMSG_PLAIN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1960:/ iniobj");
+ /*iniobj dobj_3659__INFORMSG_PLAIN*/
+ if (!/*_.VALDATA___V3665*/ curfptr[3664]) /*_.VALDATA___V3665*/ curfptr[3664] = (void*)&cdat->dobj_3659__INFORMSG_PLAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_3659__INFORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3659__INFORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3659__INFORMSG_PLAIN.obj_hash = 65488750;
+  cdat->dobj_3659__INFORMSG_PLAIN.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3659__INFORMSG_PLAIN));
+ 
+ /*inimult dtup_3660__INFORMSG_PLAIN*/
+ /*_.VALTUP___V3671*/ curfptr[3670] = (void*)&cdat->dtup_3660__INFORMSG_PLAIN;
+  cdat->dtup_3660__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3660__INFORMSG_PLAIN.nbval = 3;
+ /*inimult dtup_3661__INFORMSG_PLAIN*/
+ /*_.VALTUP___V3668*/ curfptr[3667] = (void*)&cdat->dtup_3661__INFORMSG_PLAIN;
+  cdat->dtup_3661__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3661__INFORMSG_PLAIN.nbval = 1;
+ MELT_LOCATION("warmelt-first.melt:1960:/ iniobj");
+ /*iniobj dobj_3662*/
+ if (!/*_.VALDATA___V3667*/ curfptr[3666]) /*_.VALDATA___V3667*/ curfptr[3666] = (void*)&cdat->dobj_3662;
+  melt_assertmsg("iniobj checkdiscr dobj_3662", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3662.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3662.obj_num = 0;
+  cdat->dobj_3662.obj_hash = 575384273;
+  cdat->dobj_3662.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3662));
+ 
+ /*inistring dstr_3663__inform_UNKNOWN_L*/
+ /*_.VALSTR___V3669*/ curfptr[3668] = (void*)&cdat->dstr_3663__inform_UNKNOWN_L;
+  cdat->dstr_3663__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3663__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, \"MELT INFORM [#%ld]: %s\",  melt_dbgcounter, (", sizeof(cdat->dstr_3663__inform_UNKNOWN_L.val)-1);
+ 
+ /*inistring dstr_3664__*/
+ /*_.VALSTR___V3670*/ curfptr[3669] = (void*)&cdat->dstr_3664__;
+  cdat->dstr_3664__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3664__.val, "))", sizeof(cdat->dstr_3664__.val)-1);
+ 
+ /*inistring dstr_3665__INFORMSG_PLAIN*/
+ /*_.VALSTR___V3666*/ curfptr[3665] = (void*)&cdat->dstr_3665__INFORMSG_PLAIN;
+  cdat->dstr_3665__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3665__INFORMSG_PLAIN.val, "INFORMSG_PLAIN", sizeof(cdat->dstr_3665__INFORMSG_PLAIN.val)-1);
+ 
+ /*iniobj dsym_3666__INFORMSG_LONG*/
+ if (!/*_.VALDATA___V3672*/ curfptr[3671]) /*_.VALDATA___V3672*/ curfptr[3671] = (void*)&cdat->dsym_3666__INFORMSG_LONG;
+  melt_assertmsg("iniobj checkdiscr dsym_3666__INFORMSG_LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3666__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3666__INFORMSG_LONG.obj_hash = 206205313;
+  cdat->dsym_3666__INFORMSG_LONG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3666__INFORMSG_LONG));
+ 
+ /*inistring dstr_3667__INFORMSG_LONG*/
+ /*_.VALSTR___V3673*/ curfptr[3672] = (void*)&cdat->dstr_3667__INFORMSG_LONG;
+  cdat->dstr_3667__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3667__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof(cdat->dstr_3667__INFORMSG_LONG.val)-1);
  
  MELT_LOCATION("warmelt-first.melt:1965:/ iniobj");
- /*iniobj dobj_3667__INFORMSG_PLAIN*/
- if (!/*_.VALDATA___V3673*/ curfptr[3672]) /*_.VALDATA___V3673*/ curfptr[3672] = (void*)&cdat->dobj_3667__INFORMSG_PLAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_3667__INFORMSG_PLAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3667__INFORMSG_PLAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3667__INFORMSG_PLAIN.obj_hash = 517070094;
-  cdat->dobj_3667__INFORMSG_PLAIN.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3667__INFORMSG_PLAIN));
- 
- /*inimult dtup_3668__INFORMSG_PLAIN*/
- /*_.VALTUP___V3679*/ curfptr[3678] = (void*)&cdat->dtup_3668__INFORMSG_PLAIN;
-  cdat->dtup_3668__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3668__INFORMSG_PLAIN.nbval = 3;
- /*inimult dtup_3669__INFORMSG_PLAIN*/
- /*_.VALTUP___V3676*/ curfptr[3675] = (void*)&cdat->dtup_3669__INFORMSG_PLAIN;
-  cdat->dtup_3669__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3669__INFORMSG_PLAIN.nbval = 1;
+ /*iniobj dobj_3668__INFORMSG_LONG*/
+ if (!/*_.VALDATA___V3674*/ curfptr[3673]) /*_.VALDATA___V3674*/ curfptr[3673] = (void*)&cdat->dobj_3668__INFORMSG_LONG;
+  melt_assertmsg("iniobj checkdiscr dobj_3668__INFORMSG_LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3668__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_3668__INFORMSG_LONG.obj_hash = 1049817818;
+  cdat->dobj_3668__INFORMSG_LONG.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3668__INFORMSG_LONG));
+ 
+ /*inimult dtup_3669__INFORMSG_LONG*/
+ /*_.VALTUP___V3682*/ curfptr[3681] = (void*)&cdat->dtup_3669__INFORMSG_LONG;
+  cdat->dtup_3669__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3669__INFORMSG_LONG.nbval = 5;
+ /*inimult dtup_3670__INFORMSG_LONG*/
+ /*_.VALTUP___V3678*/ curfptr[3677] = (void*)&cdat->dtup_3670__INFORMSG_LONG;
+  cdat->dtup_3670__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_3670__INFORMSG_LONG.nbval = 2;
+ MELT_LOCATION("warmelt-first.melt:1965:/ iniobj");
+ /*iniobj dobj_3671*/
+ if (!/*_.VALDATA___V3676*/ curfptr[3675]) /*_.VALDATA___V3676*/ curfptr[3675] = (void*)&cdat->dobj_3671;
+  melt_assertmsg("iniobj checkdiscr dobj_3671", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3671.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3671.obj_num = 0;
+  cdat->dobj_3671.obj_hash = 237568310;
+  cdat->dobj_3671.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3671));
+ 
  MELT_LOCATION("warmelt-first.melt:1965:/ iniobj");
- /*iniobj dobj_3670*/
- if (!/*_.VALDATA___V3675*/ curfptr[3674]) /*_.VALDATA___V3675*/ curfptr[3674] = (void*)&cdat->dobj_3670;
-  melt_assertmsg("iniobj checkdiscr dobj_3670", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3670.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3670.obj_num = 0;
-  cdat->dobj_3670.obj_hash = 725279838;
-  cdat->dobj_3670.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3670));
- 
- /*inistring dstr_3671__inform_UNKNOWN_L*/
- /*_.VALSTR___V3677*/ curfptr[3676] = (void*)&cdat->dstr_3671__inform_UNKNOWN_L;
-  cdat->dstr_3671__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3671__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, \"MELT INFORM [#%ld]: %s\",  melt_dbgcounter, (", sizeof(cdat->dstr_3671__inform_UNKNOWN_L.val)-1);
- 
- /*inistring dstr_3672__*/
- /*_.VALSTR___V3678*/ curfptr[3677] = (void*)&cdat->dstr_3672__;
-  cdat->dstr_3672__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3672__.val, "))", sizeof(cdat->dstr_3672__.val)-1);
- 
- /*inistring dstr_3673__INFORMSG_PLAIN*/
- /*_.VALSTR___V3674*/ curfptr[3673] = (void*)&cdat->dstr_3673__INFORMSG_PLAIN;
-  cdat->dstr_3673__INFORMSG_PLAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3673__INFORMSG_PLAIN.val, "INFORMSG_PLAIN", sizeof(cdat->dstr_3673__INFORMSG_PLAIN.val)-1);
- 
- /*iniobj dsym_3674__INFORMSG_LONG*/
- if (!/*_.VALDATA___V3680*/ curfptr[3679]) /*_.VALDATA___V3680*/ curfptr[3679] = (void*)&cdat->dsym_3674__INFORMSG_LONG;
-  melt_assertmsg("iniobj checkdiscr dsym_3674__INFORMSG_LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3674__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3674__INFORMSG_LONG.obj_hash = 206205313;
-  cdat->dsym_3674__INFORMSG_LONG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3674__INFORMSG_LONG));
- 
- /*inistring dstr_3675__INFORMSG_LONG*/
- /*_.VALSTR___V3681*/ curfptr[3680] = (void*)&cdat->dstr_3675__INFORMSG_LONG;
-  cdat->dstr_3675__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3675__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof(cdat->dstr_3675__INFORMSG_LONG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1970:/ iniobj");
- /*iniobj dobj_3676__INFORMSG_LONG*/
- if (!/*_.VALDATA___V3682*/ curfptr[3681]) /*_.VALDATA___V3682*/ curfptr[3681] = (void*)&cdat->dobj_3676__INFORMSG_LONG;
-  melt_assertmsg("iniobj checkdiscr dobj_3676__INFORMSG_LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3676__INFORMSG_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_3676__INFORMSG_LONG.obj_hash = 844951692;
-  cdat->dobj_3676__INFORMSG_LONG.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3676__INFORMSG_LONG));
- 
- /*inimult dtup_3677__INFORMSG_LONG*/
- /*_.VALTUP___V3690*/ curfptr[3689] = (void*)&cdat->dtup_3677__INFORMSG_LONG;
-  cdat->dtup_3677__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3677__INFORMSG_LONG.nbval = 5;
- /*inimult dtup_3678__INFORMSG_LONG*/
- /*_.VALTUP___V3686*/ curfptr[3685] = (void*)&cdat->dtup_3678__INFORMSG_LONG;
-  cdat->dtup_3678__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_3678__INFORMSG_LONG.nbval = 2;
- MELT_LOCATION("warmelt-first.melt:1970:/ iniobj");
- /*iniobj dobj_3679*/
- if (!/*_.VALDATA___V3684*/ curfptr[3683]) /*_.VALDATA___V3684*/ curfptr[3683] = (void*)&cdat->dobj_3679;
-  melt_assertmsg("iniobj checkdiscr dobj_3679", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3679.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3679.obj_num = 0;
-  cdat->dobj_3679.obj_hash = 196466271;
-  cdat->dobj_3679.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3679));
- 
- MELT_LOCATION("warmelt-first.melt:1970:/ iniobj");
- /*iniobj dobj_3680*/
- if (!/*_.VALDATA___V3685*/ curfptr[3684]) /*_.VALDATA___V3685*/ curfptr[3684] = (void*)&cdat->dobj_3680;
-  melt_assertmsg("iniobj checkdiscr dobj_3680", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3680.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_3680.obj_num = 1;
-  cdat->dobj_3680.obj_hash = 126035547;
-  cdat->dobj_3680.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3680));
- 
- /*inistring dstr_3681__inform_UNKNOWN_L*/
- /*_.VALSTR___V3687*/ curfptr[3686] = (void*)&cdat->dstr_3681__inform_UNKNOWN_L;
-  cdat->dstr_3681__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3681__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, \"MELT INFORM [#%ld]: %s * %ld\",  melt_dbgcounter, (", sizeof(cdat->dstr_3681__inform_UNKNOWN_L.val)-1);
- 
- /*inistring dstr_3682__*/
- /*_.VALSTR___V3688*/ curfptr[3687] = (void*)&cdat->dstr_3682__;
-  cdat->dstr_3682__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3682__.val, "), (", sizeof(cdat->dstr_3682__.val)-1);
- 
- /*inistring dstr_3683__*/
- /*_.VALSTR___V3689*/ curfptr[3688] = (void*)&cdat->dstr_3683__;
-  cdat->dstr_3683__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_3683__.val, "))", sizeof(cdat->dstr_3683__.val)-1);
- 
- /*inistring dstr_3684__INFORMSG_LONG*/
- /*_.VALSTR___V3683*/ curfptr[3682] = (void*)&cdat->dstr_3684__INFORMSG_LONG;
-  cdat->dstr_3684__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3684__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof(cdat->dstr_3684__INFORMSG_LONG.val)-1);
- 
- /*iniobj dsym_3685__DISCR_NAME_STRING*/
- if (!/*_.VALDATA___V3691*/ curfptr[3690]) /*_.VALDATA___V3691*/ curfptr[3690] = (void*)&cdat->dsym_3685__DISCR_NAME_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_3685__DISCR_NAME_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3685__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3685__DISCR_NAME_STRING.obj_hash = 291781472;
-  cdat->dsym_3685__DISCR_NAME_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3685__DISCR_NAME_STRING));
- 
- /*inistring dstr_3686__DISCR_NAME_STRIN*/
- /*_.VALSTR___V3692*/ curfptr[3691] = (void*)&cdat->dstr_3686__DISCR_NAME_STRIN;
-  cdat->dstr_3686__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3686__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof(cdat->dstr_3686__DISCR_NAME_STRIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1978:/ iniobj");
- /*iniobj dobj_3687__DISCR_NAME_STRING*/
- if (((void*)(MELT_PREDEF(DISCR_NAME_STRING))) != (melt_ptr_t)&cdat->dobj_3687__DISCR_NAME_STRING) {
+ /*iniobj dobj_3672*/
+ if (!/*_.VALDATA___V3677*/ curfptr[3676]) /*_.VALDATA___V3677*/ curfptr[3676] = (void*)&cdat->dobj_3672;
+  melt_assertmsg("iniobj checkdiscr dobj_3672", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3672.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_3672.obj_num = 1;
+  cdat->dobj_3672.obj_hash = 929853416;
+  cdat->dobj_3672.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3672));
+ 
+ /*inistring dstr_3673__inform_UNKNOWN_L*/
+ /*_.VALSTR___V3679*/ curfptr[3678] = (void*)&cdat->dstr_3673__inform_UNKNOWN_L;
+  cdat->dstr_3673__inform_UNKNOWN_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3673__inform_UNKNOWN_L.val, "inform(UNKNOWN_LOCATION, \"MELT INFORM [#%ld]: %s * %ld\",  melt_dbgcounter, (", sizeof(cdat->dstr_3673__inform_UNKNOWN_L.val)-1);
+ 
+ /*inistring dstr_3674__*/
+ /*_.VALSTR___V3680*/ curfptr[3679] = (void*)&cdat->dstr_3674__;
+  cdat->dstr_3674__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3674__.val, "), (", sizeof(cdat->dstr_3674__.val)-1);
+ 
+ /*inistring dstr_3675__*/
+ /*_.VALSTR___V3681*/ curfptr[3680] = (void*)&cdat->dstr_3675__;
+  cdat->dstr_3675__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_3675__.val, "))", sizeof(cdat->dstr_3675__.val)-1);
+ 
+ /*inistring dstr_3676__INFORMSG_LONG*/
+ /*_.VALSTR___V3675*/ curfptr[3674] = (void*)&cdat->dstr_3676__INFORMSG_LONG;
+  cdat->dstr_3676__INFORMSG_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3676__INFORMSG_LONG.val, "INFORMSG_LONG", sizeof(cdat->dstr_3676__INFORMSG_LONG.val)-1);
+ 
+ /*iniobj dsym_3677__DISCR_NAME_STRING*/
+ if (!/*_.VALDATA___V3683*/ curfptr[3682]) /*_.VALDATA___V3683*/ curfptr[3682] = (void*)&cdat->dsym_3677__DISCR_NAME_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_3677__DISCR_NAME_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3677__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3677__DISCR_NAME_STRING.obj_hash = 291781472;
+  cdat->dsym_3677__DISCR_NAME_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3677__DISCR_NAME_STRING));
+ 
+ /*inistring dstr_3678__DISCR_NAME_STRIN*/
+ /*_.VALSTR___V3684*/ curfptr[3683] = (void*)&cdat->dstr_3678__DISCR_NAME_STRIN;
+  cdat->dstr_3678__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3678__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof(cdat->dstr_3678__DISCR_NAME_STRIN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1973:/ iniobj");
+ /*iniobj dobj_3679__DISCR_NAME_STRING*/
+ if (((void*)(MELT_PREDEF(DISCR_NAME_STRING))) != (melt_ptr_t)&cdat->dobj_3679__DISCR_NAME_STRING) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_NAME_STRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_NAME_STRING))))) >= 5);
   };
- /*_.VALDATA___V3693*/ curfptr[3692] = ((void*)(MELT_PREDEF(DISCR_NAME_STRING)));
-  melt_assertmsg("iniobj checkdiscr dobj_3687__DISCR_NAME_STRING", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3687__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3687__DISCR_NAME_STRING.obj_num = OBMAG_STRING;
-  cdat->dobj_3687__DISCR_NAME_STRING.obj_hash = 154164889;
-  cdat->dobj_3687__DISCR_NAME_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3687__DISCR_NAME_STRING));
- 
- /*iniobj dsym_3688__DISCR_STRING*/
- if (!/*_.VALDATA___V3694*/ curfptr[3693]) /*_.VALDATA___V3694*/ curfptr[3693] = (void*)&cdat->dsym_3688__DISCR_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_3688__DISCR_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3688__DISCR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3688__DISCR_STRING.obj_hash = 100436219;
-  cdat->dsym_3688__DISCR_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3688__DISCR_STRING));
- 
- /*inistring dstr_3689__DISCR_STRING*/
- /*_.VALSTR___V3695*/ curfptr[3694] = (void*)&cdat->dstr_3689__DISCR_STRING;
-  cdat->dstr_3689__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3689__DISCR_STRING.val, "DISCR_STRING", sizeof(cdat->dstr_3689__DISCR_STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1987:/ iniobj");
- /*iniobj dobj_3690__DISCR_STRING*/
- if (((void*)(MELT_PREDEF(DISCR_STRING))) != (melt_ptr_t)&cdat->dobj_3690__DISCR_STRING) {
+ /*_.VALDATA___V3685*/ curfptr[3684] = ((void*)(MELT_PREDEF(DISCR_NAME_STRING)));
+  melt_assertmsg("iniobj checkdiscr dobj_3679__DISCR_NAME_STRING", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3679__DISCR_NAME_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3679__DISCR_NAME_STRING.obj_num = OBMAG_STRING;
+  cdat->dobj_3679__DISCR_NAME_STRING.obj_hash = 744904975;
+  cdat->dobj_3679__DISCR_NAME_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3679__DISCR_NAME_STRING));
+ 
+ /*iniobj dsym_3680__DISCR_STRING*/
+ if (!/*_.VALDATA___V3686*/ curfptr[3685]) /*_.VALDATA___V3686*/ curfptr[3685] = (void*)&cdat->dsym_3680__DISCR_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_3680__DISCR_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3680__DISCR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3680__DISCR_STRING.obj_hash = 100436219;
+  cdat->dsym_3680__DISCR_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3680__DISCR_STRING));
+ 
+ /*inistring dstr_3681__DISCR_STRING*/
+ /*_.VALSTR___V3687*/ curfptr[3686] = (void*)&cdat->dstr_3681__DISCR_STRING;
+  cdat->dstr_3681__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3681__DISCR_STRING.val, "DISCR_STRING", sizeof(cdat->dstr_3681__DISCR_STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1982:/ iniobj");
+ /*iniobj dobj_3682__DISCR_STRING*/
+ if (((void*)(MELT_PREDEF(DISCR_STRING))) != (melt_ptr_t)&cdat->dobj_3682__DISCR_STRING) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_STRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))))) >= 5);
   };
- /*_.VALDATA___V3696*/ curfptr[3695] = ((void*)(MELT_PREDEF(DISCR_STRING)));
-  melt_assertmsg("iniobj checkdiscr dobj_3690__DISCR_STRING", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3690__DISCR_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3690__DISCR_STRING.obj_num = OBMAG_STRING;
-  cdat->dobj_3690__DISCR_STRING.obj_hash = 64078002;
-  cdat->dobj_3690__DISCR_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3690__DISCR_STRING));
- 
- /*inistring dstr_3691__DISCR_STRING*/
- /*_.VALSTR___V3697*/ curfptr[3696] = (void*)&cdat->dstr_3691__DISCR_STRING;
-  cdat->dstr_3691__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3691__DISCR_STRING.val, "DISCR_STRING", sizeof(cdat->dstr_3691__DISCR_STRING.val)-1);
- 
- /*inistring dstr_3692__DISCR_NAME_STRIN*/
- /*_.VALSTR___V3698*/ curfptr[3697] = (void*)&cdat->dstr_3692__DISCR_NAME_STRIN;
-  cdat->dstr_3692__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3692__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof(cdat->dstr_3692__DISCR_NAME_STRIN.val)-1);
- 
- /*iniobj dsym_3693__DISCR_VERBATIM_STRING*/
- if (!/*_.VALDATA___V3699*/ curfptr[3698]) /*_.VALDATA___V3699*/ curfptr[3698] = (void*)&cdat->dsym_3693__DISCR_VERBATIM_STRING;
-  melt_assertmsg("iniobj checkdiscr dsym_3693__DISCR_VERBATIM_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3693__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3693__DISCR_VERBATIM_STRING.obj_hash = 258402049;
-  cdat->dsym_3693__DISCR_VERBATIM_STRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3693__DISCR_VERBATIM_STRING));
- 
- /*inistring dstr_3694__DISCR_VERBATIM_S*/
- /*_.VALSTR___V3700*/ curfptr[3699] = (void*)&cdat->dstr_3694__DISCR_VERBATIM_S;
-  cdat->dstr_3694__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3694__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof(cdat->dstr_3694__DISCR_VERBATIM_S.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:1998:/ iniobj");
- /*iniobj dobj_3695__DISCR_VERBATIM_STRING*/
- if (((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))) != (melt_ptr_t)&cdat->dobj_3695__DISCR_VERBATIM_STRING) {
+ /*_.VALDATA___V3688*/ curfptr[3687] = ((void*)(MELT_PREDEF(DISCR_STRING)));
+  melt_assertmsg("iniobj checkdiscr dobj_3682__DISCR_STRING", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3682__DISCR_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3682__DISCR_STRING.obj_num = OBMAG_STRING;
+  cdat->dobj_3682__DISCR_STRING.obj_hash = 884868322;
+  cdat->dobj_3682__DISCR_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3682__DISCR_STRING));
+ 
+ /*inistring dstr_3683__DISCR_STRING*/
+ /*_.VALSTR___V3689*/ curfptr[3688] = (void*)&cdat->dstr_3683__DISCR_STRING;
+  cdat->dstr_3683__DISCR_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3683__DISCR_STRING.val, "DISCR_STRING", sizeof(cdat->dstr_3683__DISCR_STRING.val)-1);
+ 
+ /*inistring dstr_3684__DISCR_NAME_STRIN*/
+ /*_.VALSTR___V3690*/ curfptr[3689] = (void*)&cdat->dstr_3684__DISCR_NAME_STRIN;
+  cdat->dstr_3684__DISCR_NAME_STRIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3684__DISCR_NAME_STRIN.val, "DISCR_NAME_STRING", sizeof(cdat->dstr_3684__DISCR_NAME_STRIN.val)-1);
+ 
+ /*iniobj dsym_3685__DISCR_VERBATIM_STRING*/
+ if (!/*_.VALDATA___V3691*/ curfptr[3690]) /*_.VALDATA___V3691*/ curfptr[3690] = (void*)&cdat->dsym_3685__DISCR_VERBATIM_STRING;
+  melt_assertmsg("iniobj checkdiscr dsym_3685__DISCR_VERBATIM_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3685__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3685__DISCR_VERBATIM_STRING.obj_hash = 258402049;
+  cdat->dsym_3685__DISCR_VERBATIM_STRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3685__DISCR_VERBATIM_STRING));
+ 
+ /*inistring dstr_3686__DISCR_VERBATIM_S*/
+ /*_.VALSTR___V3692*/ curfptr[3691] = (void*)&cdat->dstr_3686__DISCR_VERBATIM_S;
+  cdat->dstr_3686__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3686__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof(cdat->dstr_3686__DISCR_VERBATIM_S.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:1993:/ iniobj");
+ /*iniobj dobj_3687__DISCR_VERBATIM_STRING*/
+ if (((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))) != (melt_ptr_t)&cdat->dobj_3687__DISCR_VERBATIM_STRING) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))))) >= 5);
   };
- /*_.VALDATA___V3701*/ curfptr[3700] = ((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)));
-  melt_assertmsg("iniobj checkdiscr dobj_3695__DISCR_VERBATIM_STRING", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3695__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3695__DISCR_VERBATIM_STRING.obj_num = OBMAG_STRING;
-  cdat->dobj_3695__DISCR_VERBATIM_STRING.obj_hash = 1032531906;
-  cdat->dobj_3695__DISCR_VERBATIM_STRING.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3695__DISCR_VERBATIM_STRING));
- 
- /*inistring dstr_3696__DISCR_VERBATIM_S*/
- /*_.VALSTR___V3702*/ curfptr[3701] = (void*)&cdat->dstr_3696__DISCR_VERBATIM_S;
-  cdat->dstr_3696__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3696__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof(cdat->dstr_3696__DISCR_VERBATIM_S.val)-1);
- 
- /*iniobj dsym_3697__DISCR_ANY_RECEIVER*/
- if (!/*_.VALDATA___V3703*/ curfptr[3702]) /*_.VALDATA___V3703*/ curfptr[3702] = (void*)&cdat->dsym_3697__DISCR_ANY_RECEIVER;
-  melt_assertmsg("iniobj checkdiscr dsym_3697__DISCR_ANY_RECEIVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3697__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3697__DISCR_ANY_RECEIVER.obj_hash = 95947314;
-  cdat->dsym_3697__DISCR_ANY_RECEIVER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3697__DISCR_ANY_RECEIVER));
- 
- /*inistring dstr_3698__DISCR_ANY_RECEIV*/
- /*_.VALSTR___V3704*/ curfptr[3703] = (void*)&cdat->dstr_3698__DISCR_ANY_RECEIV;
-  cdat->dstr_3698__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3698__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof(cdat->dstr_3698__DISCR_ANY_RECEIV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2007:/ iniobj");
- /*iniobj dobj_3699__DISCR_ANY_RECEIVER*/
- if (!/*_.VALDATA___V3705*/ curfptr[3704]) /*_.VALDATA___V3705*/ curfptr[3704] = (void*)&cdat->dobj_3699__DISCR_ANY_RECEIVER;
-  melt_assertmsg("iniobj checkdiscr dobj_3699__DISCR_ANY_RECEIVER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3699__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3699__DISCR_ANY_RECEIVER.obj_hash = 1056790097;
-  cdat->dobj_3699__DISCR_ANY_RECEIVER.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3699__DISCR_ANY_RECEIVER));
- 
- /*inistring dstr_3700__DISCR_ANY_RECEIV*/
- /*_.VALSTR___V3706*/ curfptr[3705] = (void*)&cdat->dstr_3700__DISCR_ANY_RECEIV;
-  cdat->dstr_3700__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3700__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof(cdat->dstr_3700__DISCR_ANY_RECEIV.val)-1);
- 
- /*iniobj dsym_3701__DISCR_NULL_RECEIVER*/
- if (!/*_.VALDATA___V3707*/ curfptr[3706]) /*_.VALDATA___V3707*/ curfptr[3706] = (void*)&cdat->dsym_3701__DISCR_NULL_RECEIVER;
-  melt_assertmsg("iniobj checkdiscr dsym_3701__DISCR_NULL_RECEIVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3701__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3701__DISCR_NULL_RECEIVER.obj_hash = 1063609307;
-  cdat->dsym_3701__DISCR_NULL_RECEIVER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3701__DISCR_NULL_RECEIVER));
- 
- /*inistring dstr_3702__DISCR_NULL_RECEI*/
- /*_.VALSTR___V3708*/ curfptr[3707] = (void*)&cdat->dstr_3702__DISCR_NULL_RECEI;
-  cdat->dstr_3702__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3702__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof(cdat->dstr_3702__DISCR_NULL_RECEI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2016:/ iniobj");
- /*iniobj dobj_3703__DISCR_NULL_RECEIVER*/
- if (((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))) != (melt_ptr_t)&cdat->dobj_3703__DISCR_NULL_RECEIVER) {
+ /*_.VALDATA___V3693*/ curfptr[3692] = ((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING)));
+  melt_assertmsg("iniobj checkdiscr dobj_3687__DISCR_VERBATIM_STRING", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3687__DISCR_VERBATIM_STRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3687__DISCR_VERBATIM_STRING.obj_num = OBMAG_STRING;
+  cdat->dobj_3687__DISCR_VERBATIM_STRING.obj_hash = 256500751;
+  cdat->dobj_3687__DISCR_VERBATIM_STRING.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3687__DISCR_VERBATIM_STRING));
+ 
+ /*inistring dstr_3688__DISCR_VERBATIM_S*/
+ /*_.VALSTR___V3694*/ curfptr[3693] = (void*)&cdat->dstr_3688__DISCR_VERBATIM_S;
+  cdat->dstr_3688__DISCR_VERBATIM_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3688__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof(cdat->dstr_3688__DISCR_VERBATIM_S.val)-1);
+ 
+ /*iniobj dsym_3689__DISCR_ANY_RECEIVER*/
+ if (!/*_.VALDATA___V3695*/ curfptr[3694]) /*_.VALDATA___V3695*/ curfptr[3694] = (void*)&cdat->dsym_3689__DISCR_ANY_RECEIVER;
+  melt_assertmsg("iniobj checkdiscr dsym_3689__DISCR_ANY_RECEIVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3689__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3689__DISCR_ANY_RECEIVER.obj_hash = 95947314;
+  cdat->dsym_3689__DISCR_ANY_RECEIVER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3689__DISCR_ANY_RECEIVER));
+ 
+ /*inistring dstr_3690__DISCR_ANY_RECEIV*/
+ /*_.VALSTR___V3696*/ curfptr[3695] = (void*)&cdat->dstr_3690__DISCR_ANY_RECEIV;
+  cdat->dstr_3690__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3690__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof(cdat->dstr_3690__DISCR_ANY_RECEIV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2002:/ iniobj");
+ /*iniobj dobj_3691__DISCR_ANY_RECEIVER*/
+ if (!/*_.VALDATA___V3697*/ curfptr[3696]) /*_.VALDATA___V3697*/ curfptr[3696] = (void*)&cdat->dobj_3691__DISCR_ANY_RECEIVER;
+  melt_assertmsg("iniobj checkdiscr dobj_3691__DISCR_ANY_RECEIVER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3691__DISCR_ANY_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3691__DISCR_ANY_RECEIVER.obj_hash = 395980083;
+  cdat->dobj_3691__DISCR_ANY_RECEIVER.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3691__DISCR_ANY_RECEIVER));
+ 
+ /*inistring dstr_3692__DISCR_ANY_RECEIV*/
+ /*_.VALSTR___V3698*/ curfptr[3697] = (void*)&cdat->dstr_3692__DISCR_ANY_RECEIV;
+  cdat->dstr_3692__DISCR_ANY_RECEIV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3692__DISCR_ANY_RECEIV.val, "DISCR_ANY_RECEIVER", sizeof(cdat->dstr_3692__DISCR_ANY_RECEIV.val)-1);
+ 
+ /*iniobj dsym_3693__DISCR_NULL_RECEIVER*/
+ if (!/*_.VALDATA___V3699*/ curfptr[3698]) /*_.VALDATA___V3699*/ curfptr[3698] = (void*)&cdat->dsym_3693__DISCR_NULL_RECEIVER;
+  melt_assertmsg("iniobj checkdiscr dsym_3693__DISCR_NULL_RECEIVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3693__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3693__DISCR_NULL_RECEIVER.obj_hash = 1063609307;
+  cdat->dsym_3693__DISCR_NULL_RECEIVER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3693__DISCR_NULL_RECEIVER));
+ 
+ /*inistring dstr_3694__DISCR_NULL_RECEI*/
+ /*_.VALSTR___V3700*/ curfptr[3699] = (void*)&cdat->dstr_3694__DISCR_NULL_RECEI;
+  cdat->dstr_3694__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3694__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof(cdat->dstr_3694__DISCR_NULL_RECEI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2011:/ iniobj");
+ /*iniobj dobj_3695__DISCR_NULL_RECEIVER*/
+ if (((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))) != (melt_ptr_t)&cdat->dobj_3695__DISCR_NULL_RECEIVER) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER))))) >= 5);
   };
- /*_.VALDATA___V3709*/ curfptr[3708] = ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER)));
-  melt_assertmsg("iniobj checkdiscr dobj_3703__DISCR_NULL_RECEIVER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3703__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3703__DISCR_NULL_RECEIVER.obj_hash = 472928769;
-  cdat->dobj_3703__DISCR_NULL_RECEIVER.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3703__DISCR_NULL_RECEIVER));
- 
- /*inistring dstr_3704__DISCR_NULL_RECEI*/
- /*_.VALSTR___V3710*/ curfptr[3709] = (void*)&cdat->dstr_3704__DISCR_NULL_RECEI;
-  cdat->dstr_3704__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3704__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof(cdat->dstr_3704__DISCR_NULL_RECEI.val)-1);
- 
- /*iniobj dsym_3705__DISCR_STRBUF*/
- if (!/*_.VALDATA___V3711*/ curfptr[3710]) /*_.VALDATA___V3711*/ curfptr[3710] = (void*)&cdat->dsym_3705__DISCR_STRBUF;
-  melt_assertmsg("iniobj checkdiscr dsym_3705__DISCR_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3705__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3705__DISCR_STRBUF.obj_hash = 492035674;
-  cdat->dsym_3705__DISCR_STRBUF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3705__DISCR_STRBUF));
- 
- /*inistring dstr_3706__DISCR_STRBUF*/
- /*_.VALSTR___V3712*/ curfptr[3711] = (void*)&cdat->dstr_3706__DISCR_STRBUF;
-  cdat->dstr_3706__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3706__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof(cdat->dstr_3706__DISCR_STRBUF.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2023:/ iniobj");
- /*iniobj dobj_3707__DISCR_STRBUF*/
- if (((void*)(MELT_PREDEF(DISCR_STRBUF))) != (melt_ptr_t)&cdat->dobj_3707__DISCR_STRBUF) {
+ /*_.VALDATA___V3701*/ curfptr[3700] = ((void*)(MELT_PREDEF(DISCR_NULL_RECEIVER)));
+  melt_assertmsg("iniobj checkdiscr dobj_3695__DISCR_NULL_RECEIVER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3695__DISCR_NULL_RECEIVER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3695__DISCR_NULL_RECEIVER.obj_hash = 370060304;
+  cdat->dobj_3695__DISCR_NULL_RECEIVER.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3695__DISCR_NULL_RECEIVER));
+ 
+ /*inistring dstr_3696__DISCR_NULL_RECEI*/
+ /*_.VALSTR___V3702*/ curfptr[3701] = (void*)&cdat->dstr_3696__DISCR_NULL_RECEI;
+  cdat->dstr_3696__DISCR_NULL_RECEI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3696__DISCR_NULL_RECEI.val, "DISCR_NULL_RECEIVER", sizeof(cdat->dstr_3696__DISCR_NULL_RECEI.val)-1);
+ 
+ /*iniobj dsym_3697__DISCR_STRBUF*/
+ if (!/*_.VALDATA___V3703*/ curfptr[3702]) /*_.VALDATA___V3703*/ curfptr[3702] = (void*)&cdat->dsym_3697__DISCR_STRBUF;
+  melt_assertmsg("iniobj checkdiscr dsym_3697__DISCR_STRBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3697__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3697__DISCR_STRBUF.obj_hash = 492035674;
+  cdat->dsym_3697__DISCR_STRBUF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3697__DISCR_STRBUF));
+ 
+ /*inistring dstr_3698__DISCR_STRBUF*/
+ /*_.VALSTR___V3704*/ curfptr[3703] = (void*)&cdat->dstr_3698__DISCR_STRBUF;
+  cdat->dstr_3698__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3698__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof(cdat->dstr_3698__DISCR_STRBUF.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2018:/ iniobj");
+ /*iniobj dobj_3699__DISCR_STRBUF*/
+ if (((void*)(MELT_PREDEF(DISCR_STRBUF))) != (melt_ptr_t)&cdat->dobj_3699__DISCR_STRBUF) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_STRBUF)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRBUF))))) >= 5);
   };
- /*_.VALDATA___V3713*/ curfptr[3712] = ((void*)(MELT_PREDEF(DISCR_STRBUF)));
-  melt_assertmsg("iniobj checkdiscr dobj_3707__DISCR_STRBUF", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3707__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3707__DISCR_STRBUF.obj_num = OBMAG_STRBUF;
-  cdat->dobj_3707__DISCR_STRBUF.obj_hash = 541829591;
-  cdat->dobj_3707__DISCR_STRBUF.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3707__DISCR_STRBUF));
- 
- /*inistring dstr_3708__DISCR_STRBUF*/
- /*_.VALSTR___V3714*/ curfptr[3713] = (void*)&cdat->dstr_3708__DISCR_STRBUF;
-  cdat->dstr_3708__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3708__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof(cdat->dstr_3708__DISCR_STRBUF.val)-1);
- 
- /*iniobj dsym_3709__DISCR_INTEGER*/
- if (!/*_.VALDATA___V3715*/ curfptr[3714]) /*_.VALDATA___V3715*/ curfptr[3714] = (void*)&cdat->dsym_3709__DISCR_INTEGER;
-  melt_assertmsg("iniobj checkdiscr dsym_3709__DISCR_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3709__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3709__DISCR_INTEGER.obj_hash = 119182103;
-  cdat->dsym_3709__DISCR_INTEGER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3709__DISCR_INTEGER));
- 
- /*inistring dstr_3710__DISCR_INTEGER*/
- /*_.VALSTR___V3716*/ curfptr[3715] = (void*)&cdat->dstr_3710__DISCR_INTEGER;
-  cdat->dstr_3710__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3710__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof(cdat->dstr_3710__DISCR_INTEGER.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2031:/ iniobj");
- /*iniobj dobj_3711__DISCR_INTEGER*/
- if (((void*)(MELT_PREDEF(DISCR_INTEGER))) != (melt_ptr_t)&cdat->dobj_3711__DISCR_INTEGER) {
+ /*_.VALDATA___V3705*/ curfptr[3704] = ((void*)(MELT_PREDEF(DISCR_STRBUF)));
+  melt_assertmsg("iniobj checkdiscr dobj_3699__DISCR_STRBUF", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3699__DISCR_STRBUF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3699__DISCR_STRBUF.obj_num = OBMAG_STRBUF;
+  cdat->dobj_3699__DISCR_STRBUF.obj_hash = 536082136;
+  cdat->dobj_3699__DISCR_STRBUF.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3699__DISCR_STRBUF));
+ 
+ /*inistring dstr_3700__DISCR_STRBUF*/
+ /*_.VALSTR___V3706*/ curfptr[3705] = (void*)&cdat->dstr_3700__DISCR_STRBUF;
+  cdat->dstr_3700__DISCR_STRBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3700__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof(cdat->dstr_3700__DISCR_STRBUF.val)-1);
+ 
+ /*iniobj dsym_3701__DISCR_INTEGER*/
+ if (!/*_.VALDATA___V3707*/ curfptr[3706]) /*_.VALDATA___V3707*/ curfptr[3706] = (void*)&cdat->dsym_3701__DISCR_INTEGER;
+  melt_assertmsg("iniobj checkdiscr dsym_3701__DISCR_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3701__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3701__DISCR_INTEGER.obj_hash = 119182103;
+  cdat->dsym_3701__DISCR_INTEGER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3701__DISCR_INTEGER));
+ 
+ /*inistring dstr_3702__DISCR_INTEGER*/
+ /*_.VALSTR___V3708*/ curfptr[3707] = (void*)&cdat->dstr_3702__DISCR_INTEGER;
+  cdat->dstr_3702__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3702__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof(cdat->dstr_3702__DISCR_INTEGER.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2026:/ iniobj");
+ /*iniobj dobj_3703__DISCR_INTEGER*/
+ if (((void*)(MELT_PREDEF(DISCR_INTEGER))) != (melt_ptr_t)&cdat->dobj_3703__DISCR_INTEGER) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_INTEGER))))) >= 5);
   };
- /*_.VALDATA___V3717*/ curfptr[3716] = ((void*)(MELT_PREDEF(DISCR_INTEGER)));
-  melt_assertmsg("iniobj checkdiscr dobj_3711__DISCR_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3711__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3711__DISCR_INTEGER.obj_num = OBMAG_INT;
-  cdat->dobj_3711__DISCR_INTEGER.obj_hash = 897823575;
-  cdat->dobj_3711__DISCR_INTEGER.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3711__DISCR_INTEGER));
- 
- /*inistring dstr_3712__DISCR_INTEGER*/
- /*_.VALSTR___V3718*/ curfptr[3717] = (void*)&cdat->dstr_3712__DISCR_INTEGER;
-  cdat->dstr_3712__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3712__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof(cdat->dstr_3712__DISCR_INTEGER.val)-1);
- 
- /*iniobj dsym_3713__DISCR_CONSTANT_INTEGER*/
- if (!/*_.VALDATA___V3719*/ curfptr[3718]) /*_.VALDATA___V3719*/ curfptr[3718] = (void*)&cdat->dsym_3713__DISCR_CONSTANT_INTEGER;
-  melt_assertmsg("iniobj checkdiscr dsym_3713__DISCR_CONSTANT_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3713__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3713__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494;
-  cdat->dsym_3713__DISCR_CONSTANT_INTEGER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3713__DISCR_CONSTANT_INTEGER));
- 
- /*inistring dstr_3714__DISCR_CONSTANT_I*/
- /*_.VALSTR___V3720*/ curfptr[3719] = (void*)&cdat->dstr_3714__DISCR_CONSTANT_I;
-  cdat->dstr_3714__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3714__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof(cdat->dstr_3714__DISCR_CONSTANT_I.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2039:/ iniobj");
- /*iniobj dobj_3715__DISCR_CONSTANT_INTEGER*/
- if (((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))) != (melt_ptr_t)&cdat->dobj_3715__DISCR_CONSTANT_INTEGER) {
+ /*_.VALDATA___V3709*/ curfptr[3708] = ((void*)(MELT_PREDEF(DISCR_INTEGER)));
+  melt_assertmsg("iniobj checkdiscr dobj_3703__DISCR_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3703__DISCR_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3703__DISCR_INTEGER.obj_num = OBMAG_INT;
+  cdat->dobj_3703__DISCR_INTEGER.obj_hash = 265230854;
+  cdat->dobj_3703__DISCR_INTEGER.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3703__DISCR_INTEGER));
+ 
+ /*inistring dstr_3704__DISCR_INTEGER*/
+ /*_.VALSTR___V3710*/ curfptr[3709] = (void*)&cdat->dstr_3704__DISCR_INTEGER;
+  cdat->dstr_3704__DISCR_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3704__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof(cdat->dstr_3704__DISCR_INTEGER.val)-1);
+ 
+ /*iniobj dsym_3705__DISCR_CONSTANT_INTEGER*/
+ if (!/*_.VALDATA___V3711*/ curfptr[3710]) /*_.VALDATA___V3711*/ curfptr[3710] = (void*)&cdat->dsym_3705__DISCR_CONSTANT_INTEGER;
+  melt_assertmsg("iniobj checkdiscr dsym_3705__DISCR_CONSTANT_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3705__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3705__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494;
+  cdat->dsym_3705__DISCR_CONSTANT_INTEGER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3705__DISCR_CONSTANT_INTEGER));
+ 
+ /*inistring dstr_3706__DISCR_CONSTANT_I*/
+ /*_.VALSTR___V3712*/ curfptr[3711] = (void*)&cdat->dstr_3706__DISCR_CONSTANT_I;
+  cdat->dstr_3706__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3706__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof(cdat->dstr_3706__DISCR_CONSTANT_I.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2034:/ iniobj");
+ /*iniobj dobj_3707__DISCR_CONSTANT_INTEGER*/
+ if (((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))) != (melt_ptr_t)&cdat->dobj_3707__DISCR_CONSTANT_INTEGER) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))))) >= 5);
   };
- /*_.VALDATA___V3721*/ curfptr[3720] = ((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)));
-  melt_assertmsg("iniobj checkdiscr dobj_3715__DISCR_CONSTANT_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3715__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3715__DISCR_CONSTANT_INTEGER.obj_num = OBMAG_INT;
-  cdat->dobj_3715__DISCR_CONSTANT_INTEGER.obj_hash = 617163699;
-  cdat->dobj_3715__DISCR_CONSTANT_INTEGER.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3715__DISCR_CONSTANT_INTEGER));
- 
- /*inistring dstr_3716__DISCR_CONSTANT_I*/
- /*_.VALSTR___V3722*/ curfptr[3721] = (void*)&cdat->dstr_3716__DISCR_CONSTANT_I;
-  cdat->dstr_3716__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3716__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof(cdat->dstr_3716__DISCR_CONSTANT_I.val)-1);
- 
- /*iniobj dsym_3717__DISCR_LIST*/
- if (!/*_.VALDATA___V3723*/ curfptr[3722]) /*_.VALDATA___V3723*/ curfptr[3722] = (void*)&cdat->dsym_3717__DISCR_LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_3717__DISCR_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3717__DISCR_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3717__DISCR_LIST.obj_hash = 98407634;
-  cdat->dsym_3717__DISCR_LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3717__DISCR_LIST));
- 
- /*inistring dstr_3718__DISCR_LIST*/
- /*_.VALSTR___V3724*/ curfptr[3723] = (void*)&cdat->dstr_3718__DISCR_LIST;
-  cdat->dstr_3718__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3718__DISCR_LIST.val, "DISCR_LIST", sizeof(cdat->dstr_3718__DISCR_LIST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2050:/ iniobj");
- /*iniobj dobj_3719__DISCR_LIST*/
- if (((void*)(MELT_PREDEF(DISCR_LIST))) != (melt_ptr_t)&cdat->dobj_3719__DISCR_LIST) {
+ /*_.VALDATA___V3713*/ curfptr[3712] = ((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)));
+  melt_assertmsg("iniobj checkdiscr dobj_3707__DISCR_CONSTANT_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3707__DISCR_CONSTANT_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3707__DISCR_CONSTANT_INTEGER.obj_num = OBMAG_INT;
+  cdat->dobj_3707__DISCR_CONSTANT_INTEGER.obj_hash = 611239113;
+  cdat->dobj_3707__DISCR_CONSTANT_INTEGER.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3707__DISCR_CONSTANT_INTEGER));
+ 
+ /*inistring dstr_3708__DISCR_CONSTANT_I*/
+ /*_.VALSTR___V3714*/ curfptr[3713] = (void*)&cdat->dstr_3708__DISCR_CONSTANT_I;
+  cdat->dstr_3708__DISCR_CONSTANT_I.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3708__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof(cdat->dstr_3708__DISCR_CONSTANT_I.val)-1);
+ 
+ /*iniobj dsym_3709__DISCR_LIST*/
+ if (!/*_.VALDATA___V3715*/ curfptr[3714]) /*_.VALDATA___V3715*/ curfptr[3714] = (void*)&cdat->dsym_3709__DISCR_LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_3709__DISCR_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3709__DISCR_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3709__DISCR_LIST.obj_hash = 98407634;
+  cdat->dsym_3709__DISCR_LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3709__DISCR_LIST));
+ 
+ /*inistring dstr_3710__DISCR_LIST*/
+ /*_.VALSTR___V3716*/ curfptr[3715] = (void*)&cdat->dstr_3710__DISCR_LIST;
+  cdat->dstr_3710__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3710__DISCR_LIST.val, "DISCR_LIST", sizeof(cdat->dstr_3710__DISCR_LIST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2045:/ iniobj");
+ /*iniobj dobj_3711__DISCR_LIST*/
+ if (((void*)(MELT_PREDEF(DISCR_LIST))) != (melt_ptr_t)&cdat->dobj_3711__DISCR_LIST) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_LIST)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_LIST))))) >= 5);
   };
- /*_.VALDATA___V3725*/ curfptr[3724] = ((void*)(MELT_PREDEF(DISCR_LIST)));
-  melt_assertmsg("iniobj checkdiscr dobj_3719__DISCR_LIST", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3719__DISCR_LIST.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3719__DISCR_LIST.obj_num = OBMAG_LIST;
-  cdat->dobj_3719__DISCR_LIST.obj_hash = 152968340;
-  cdat->dobj_3719__DISCR_LIST.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3719__DISCR_LIST));
- 
- /*inistring dstr_3720__DISCR_LIST*/
- /*_.VALSTR___V3726*/ curfptr[3725] = (void*)&cdat->dstr_3720__DISCR_LIST;
-  cdat->dstr_3720__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3720__DISCR_LIST.val, "DISCR_LIST", sizeof(cdat->dstr_3720__DISCR_LIST.val)-1);
- 
- /*iniobj dsym_3721__DISCR_PAIR*/
- if (!/*_.VALDATA___V3727*/ curfptr[3726]) /*_.VALDATA___V3727*/ curfptr[3726] = (void*)&cdat->dsym_3721__DISCR_PAIR;
-  melt_assertmsg("iniobj checkdiscr dsym_3721__DISCR_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3721__DISCR_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3721__DISCR_PAIR.obj_hash = 69333571;
-  cdat->dsym_3721__DISCR_PAIR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3721__DISCR_PAIR));
- 
- /*inistring dstr_3722__DISCR_PAIR*/
- /*_.VALSTR___V3728*/ curfptr[3727] = (void*)&cdat->dstr_3722__DISCR_PAIR;
-  cdat->dstr_3722__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3722__DISCR_PAIR.val, "DISCR_PAIR", sizeof(cdat->dstr_3722__DISCR_PAIR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2058:/ iniobj");
- /*iniobj dobj_3723__DISCR_PAIR*/
- if (((void*)(MELT_PREDEF(DISCR_PAIR))) != (melt_ptr_t)&cdat->dobj_3723__DISCR_PAIR) {
+ /*_.VALDATA___V3717*/ curfptr[3716] = ((void*)(MELT_PREDEF(DISCR_LIST)));
+  melt_assertmsg("iniobj checkdiscr dobj_3711__DISCR_LIST", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3711__DISCR_LIST.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3711__DISCR_LIST.obj_num = OBMAG_LIST;
+  cdat->dobj_3711__DISCR_LIST.obj_hash = 570627874;
+  cdat->dobj_3711__DISCR_LIST.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3711__DISCR_LIST));
+ 
+ /*inistring dstr_3712__DISCR_LIST*/
+ /*_.VALSTR___V3718*/ curfptr[3717] = (void*)&cdat->dstr_3712__DISCR_LIST;
+  cdat->dstr_3712__DISCR_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3712__DISCR_LIST.val, "DISCR_LIST", sizeof(cdat->dstr_3712__DISCR_LIST.val)-1);
+ 
+ /*iniobj dsym_3713__DISCR_PAIR*/
+ if (!/*_.VALDATA___V3719*/ curfptr[3718]) /*_.VALDATA___V3719*/ curfptr[3718] = (void*)&cdat->dsym_3713__DISCR_PAIR;
+  melt_assertmsg("iniobj checkdiscr dsym_3713__DISCR_PAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3713__DISCR_PAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3713__DISCR_PAIR.obj_hash = 69333571;
+  cdat->dsym_3713__DISCR_PAIR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3713__DISCR_PAIR));
+ 
+ /*inistring dstr_3714__DISCR_PAIR*/
+ /*_.VALSTR___V3720*/ curfptr[3719] = (void*)&cdat->dstr_3714__DISCR_PAIR;
+  cdat->dstr_3714__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3714__DISCR_PAIR.val, "DISCR_PAIR", sizeof(cdat->dstr_3714__DISCR_PAIR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2053:/ iniobj");
+ /*iniobj dobj_3715__DISCR_PAIR*/
+ if (((void*)(MELT_PREDEF(DISCR_PAIR))) != (melt_ptr_t)&cdat->dobj_3715__DISCR_PAIR) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_PAIR)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_PAIR))))) >= 5);
   };
- /*_.VALDATA___V3729*/ curfptr[3728] = ((void*)(MELT_PREDEF(DISCR_PAIR)));
-  melt_assertmsg("iniobj checkdiscr dobj_3723__DISCR_PAIR", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3723__DISCR_PAIR.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3723__DISCR_PAIR.obj_num = OBMAG_PAIR;
-  cdat->dobj_3723__DISCR_PAIR.obj_hash = 716453967;
-  cdat->dobj_3723__DISCR_PAIR.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3723__DISCR_PAIR));
- 
- /*inistring dstr_3724__DISCR_PAIR*/
- /*_.VALSTR___V3730*/ curfptr[3729] = (void*)&cdat->dstr_3724__DISCR_PAIR;
-  cdat->dstr_3724__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3724__DISCR_PAIR.val, "DISCR_PAIR", sizeof(cdat->dstr_3724__DISCR_PAIR.val)-1);
- 
- /*iniobj dsym_3725__DISCR_MULTIPLE*/
- if (!/*_.VALDATA___V3731*/ curfptr[3730]) /*_.VALDATA___V3731*/ curfptr[3730] = (void*)&cdat->dsym_3725__DISCR_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_3725__DISCR_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3725__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3725__DISCR_MULTIPLE.obj_hash = 91864583;
-  cdat->dsym_3725__DISCR_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3725__DISCR_MULTIPLE));
- 
- /*inistring dstr_3726__DISCR_MULTIPLE*/
- /*_.VALSTR___V3732*/ curfptr[3731] = (void*)&cdat->dstr_3726__DISCR_MULTIPLE;
-  cdat->dstr_3726__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3726__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof(cdat->dstr_3726__DISCR_MULTIPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2066:/ iniobj");
- /*iniobj dobj_3727__DISCR_MULTIPLE*/
- if (((void*)(MELT_PREDEF(DISCR_MULTIPLE))) != (melt_ptr_t)&cdat->dobj_3727__DISCR_MULTIPLE) {
+ /*_.VALDATA___V3721*/ curfptr[3720] = ((void*)(MELT_PREDEF(DISCR_PAIR)));
+  melt_assertmsg("iniobj checkdiscr dobj_3715__DISCR_PAIR", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3715__DISCR_PAIR.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3715__DISCR_PAIR.obj_num = OBMAG_PAIR;
+  cdat->dobj_3715__DISCR_PAIR.obj_hash = 1069034020;
+  cdat->dobj_3715__DISCR_PAIR.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3715__DISCR_PAIR));
+ 
+ /*inistring dstr_3716__DISCR_PAIR*/
+ /*_.VALSTR___V3722*/ curfptr[3721] = (void*)&cdat->dstr_3716__DISCR_PAIR;
+  cdat->dstr_3716__DISCR_PAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3716__DISCR_PAIR.val, "DISCR_PAIR", sizeof(cdat->dstr_3716__DISCR_PAIR.val)-1);
+ 
+ /*iniobj dsym_3717__DISCR_MULTIPLE*/
+ if (!/*_.VALDATA___V3723*/ curfptr[3722]) /*_.VALDATA___V3723*/ curfptr[3722] = (void*)&cdat->dsym_3717__DISCR_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_3717__DISCR_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3717__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3717__DISCR_MULTIPLE.obj_hash = 91864583;
+  cdat->dsym_3717__DISCR_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3717__DISCR_MULTIPLE));
+ 
+ /*inistring dstr_3718__DISCR_MULTIPLE*/
+ /*_.VALSTR___V3724*/ curfptr[3723] = (void*)&cdat->dstr_3718__DISCR_MULTIPLE;
+  cdat->dstr_3718__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3718__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof(cdat->dstr_3718__DISCR_MULTIPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2061:/ iniobj");
+ /*iniobj dobj_3719__DISCR_MULTIPLE*/
+ if (((void*)(MELT_PREDEF(DISCR_MULTIPLE))) != (melt_ptr_t)&cdat->dobj_3719__DISCR_MULTIPLE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MULTIPLE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))))) >= 5);
   };
- /*_.VALDATA___V3733*/ curfptr[3732] = ((void*)(MELT_PREDEF(DISCR_MULTIPLE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3727__DISCR_MULTIPLE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3727__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3727__DISCR_MULTIPLE.obj_num = OBMAG_MULTIPLE;
-  cdat->dobj_3727__DISCR_MULTIPLE.obj_hash = 778206768;
-  cdat->dobj_3727__DISCR_MULTIPLE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3727__DISCR_MULTIPLE));
- 
- /*inistring dstr_3728__DISCR_MULTIPLE*/
- /*_.VALSTR___V3734*/ curfptr[3733] = (void*)&cdat->dstr_3728__DISCR_MULTIPLE;
-  cdat->dstr_3728__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3728__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof(cdat->dstr_3728__DISCR_MULTIPLE.val)-1);
- 
- /*iniobj dsym_3729__DISCR_FIELD_SEQUENCE*/
- if (!/*_.VALDATA___V3735*/ curfptr[3734]) /*_.VALDATA___V3735*/ curfptr[3734] = (void*)&cdat->dsym_3729__DISCR_FIELD_SEQUENCE;
-  melt_assertmsg("iniobj checkdiscr dsym_3729__DISCR_FIELD_SEQUENCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3729__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3729__DISCR_FIELD_SEQUENCE.obj_hash = 95370221;
-  cdat->dsym_3729__DISCR_FIELD_SEQUENCE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3729__DISCR_FIELD_SEQUENCE));
- 
- /*inistring dstr_3730__DISCR_FIELD_SEQU*/
- /*_.VALSTR___V3736*/ curfptr[3735] = (void*)&cdat->dstr_3730__DISCR_FIELD_SEQU;
-  cdat->dstr_3730__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3730__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof(cdat->dstr_3730__DISCR_FIELD_SEQU.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2075:/ iniobj");
- /*iniobj dobj_3731__DISCR_FIELD_SEQUENCE*/
- if (((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_3731__DISCR_FIELD_SEQUENCE) {
+ /*_.VALDATA___V3725*/ curfptr[3724] = ((void*)(MELT_PREDEF(DISCR_MULTIPLE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3719__DISCR_MULTIPLE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3719__DISCR_MULTIPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3719__DISCR_MULTIPLE.obj_num = OBMAG_MULTIPLE;
+  cdat->dobj_3719__DISCR_MULTIPLE.obj_hash = 880894004;
+  cdat->dobj_3719__DISCR_MULTIPLE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3719__DISCR_MULTIPLE));
+ 
+ /*inistring dstr_3720__DISCR_MULTIPLE*/
+ /*_.VALSTR___V3726*/ curfptr[3725] = (void*)&cdat->dstr_3720__DISCR_MULTIPLE;
+  cdat->dstr_3720__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3720__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof(cdat->dstr_3720__DISCR_MULTIPLE.val)-1);
+ 
+ /*iniobj dsym_3721__DISCR_FIELD_SEQUENCE*/
+ if (!/*_.VALDATA___V3727*/ curfptr[3726]) /*_.VALDATA___V3727*/ curfptr[3726] = (void*)&cdat->dsym_3721__DISCR_FIELD_SEQUENCE;
+  melt_assertmsg("iniobj checkdiscr dsym_3721__DISCR_FIELD_SEQUENCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3721__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3721__DISCR_FIELD_SEQUENCE.obj_hash = 95370221;
+  cdat->dsym_3721__DISCR_FIELD_SEQUENCE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3721__DISCR_FIELD_SEQUENCE));
+ 
+ /*inistring dstr_3722__DISCR_FIELD_SEQU*/
+ /*_.VALSTR___V3728*/ curfptr[3727] = (void*)&cdat->dstr_3722__DISCR_FIELD_SEQU;
+  cdat->dstr_3722__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3722__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof(cdat->dstr_3722__DISCR_FIELD_SEQU.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2070:/ iniobj");
+ /*iniobj dobj_3723__DISCR_FIELD_SEQUENCE*/
+ if (((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_3723__DISCR_FIELD_SEQUENCE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))))) >= 5);
   };
- /*_.VALDATA___V3737*/ curfptr[3736] = ((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3731__DISCR_FIELD_SEQUENCE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3731__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3731__DISCR_FIELD_SEQUENCE.obj_num = OBMAG_MULTIPLE;
-  cdat->dobj_3731__DISCR_FIELD_SEQUENCE.obj_hash = 34809523;
-  cdat->dobj_3731__DISCR_FIELD_SEQUENCE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3731__DISCR_FIELD_SEQUENCE));
- 
- /*inistring dstr_3732__DISCR_FIELD_SEQU*/
- /*_.VALSTR___V3738*/ curfptr[3737] = (void*)&cdat->dstr_3732__DISCR_FIELD_SEQU;
-  cdat->dstr_3732__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3732__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof(cdat->dstr_3732__DISCR_FIELD_SEQU.val)-1);
- 
- /*iniobj dsym_3733__DISCR_BOX*/
- if (!/*_.VALDATA___V3739*/ curfptr[3738]) /*_.VALDATA___V3739*/ curfptr[3738] = (void*)&cdat->dsym_3733__DISCR_BOX;
-  melt_assertmsg("iniobj checkdiscr dsym_3733__DISCR_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3733__DISCR_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3733__DISCR_BOX.obj_hash = 8042275;
-  cdat->dsym_3733__DISCR_BOX.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3733__DISCR_BOX));
- 
- /*inistring dstr_3734__DISCR_BOX*/
- /*_.VALSTR___V3740*/ curfptr[3739] = (void*)&cdat->dstr_3734__DISCR_BOX;
-  cdat->dstr_3734__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3734__DISCR_BOX.val, "DISCR_BOX", sizeof(cdat->dstr_3734__DISCR_BOX.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2086:/ iniobj");
- /*iniobj dobj_3735__DISCR_BOX*/
- if (((void*)(MELT_PREDEF(DISCR_BOX))) != (melt_ptr_t)&cdat->dobj_3735__DISCR_BOX) {
+ /*_.VALDATA___V3729*/ curfptr[3728] = ((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3723__DISCR_FIELD_SEQUENCE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3723__DISCR_FIELD_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3723__DISCR_FIELD_SEQUENCE.obj_num = OBMAG_MULTIPLE;
+  cdat->dobj_3723__DISCR_FIELD_SEQUENCE.obj_hash = 1030126921;
+  cdat->dobj_3723__DISCR_FIELD_SEQUENCE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3723__DISCR_FIELD_SEQUENCE));
+ 
+ /*inistring dstr_3724__DISCR_FIELD_SEQU*/
+ /*_.VALSTR___V3730*/ curfptr[3729] = (void*)&cdat->dstr_3724__DISCR_FIELD_SEQU;
+  cdat->dstr_3724__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3724__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof(cdat->dstr_3724__DISCR_FIELD_SEQU.val)-1);
+ 
+ /*iniobj dsym_3725__DISCR_BOX*/
+ if (!/*_.VALDATA___V3731*/ curfptr[3730]) /*_.VALDATA___V3731*/ curfptr[3730] = (void*)&cdat->dsym_3725__DISCR_BOX;
+  melt_assertmsg("iniobj checkdiscr dsym_3725__DISCR_BOX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3725__DISCR_BOX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3725__DISCR_BOX.obj_hash = 8042275;
+  cdat->dsym_3725__DISCR_BOX.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3725__DISCR_BOX));
+ 
+ /*inistring dstr_3726__DISCR_BOX*/
+ /*_.VALSTR___V3732*/ curfptr[3731] = (void*)&cdat->dstr_3726__DISCR_BOX;
+  cdat->dstr_3726__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3726__DISCR_BOX.val, "DISCR_BOX", sizeof(cdat->dstr_3726__DISCR_BOX.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2081:/ iniobj");
+ /*iniobj dobj_3727__DISCR_BOX*/
+ if (((void*)(MELT_PREDEF(DISCR_BOX))) != (melt_ptr_t)&cdat->dobj_3727__DISCR_BOX) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_BOX)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_BOX))))) >= 5);
   };
- /*_.VALDATA___V3741*/ curfptr[3740] = ((void*)(MELT_PREDEF(DISCR_BOX)));
-  melt_assertmsg("iniobj checkdiscr dobj_3735__DISCR_BOX", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3735__DISCR_BOX.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3735__DISCR_BOX.obj_num = OBMAG_BOX;
-  cdat->dobj_3735__DISCR_BOX.obj_hash = 32167877;
-  cdat->dobj_3735__DISCR_BOX.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3735__DISCR_BOX));
- 
- /*inistring dstr_3736__DISCR_BOX*/
- /*_.VALSTR___V3742*/ curfptr[3741] = (void*)&cdat->dstr_3736__DISCR_BOX;
-  cdat->dstr_3736__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3736__DISCR_BOX.val, "DISCR_BOX", sizeof(cdat->dstr_3736__DISCR_BOX.val)-1);
- 
- /*iniobj dsym_3737__DISCR_TREE*/
- if (!/*_.VALDATA___V3743*/ curfptr[3742]) /*_.VALDATA___V3743*/ curfptr[3742] = (void*)&cdat->dsym_3737__DISCR_TREE;
-  melt_assertmsg("iniobj checkdiscr dsym_3737__DISCR_TREE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3737__DISCR_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3737__DISCR_TREE.obj_hash = 33934607;
-  cdat->dsym_3737__DISCR_TREE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3737__DISCR_TREE));
- 
- /*inistring dstr_3738__DISCR_TREE*/
- /*_.VALSTR___V3744*/ curfptr[3743] = (void*)&cdat->dstr_3738__DISCR_TREE;
-  cdat->dstr_3738__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3738__DISCR_TREE.val, "DISCR_TREE", sizeof(cdat->dstr_3738__DISCR_TREE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2095:/ iniobj");
- /*iniobj dobj_3739__DISCR_TREE*/
- if (((void*)(MELT_PREDEF(DISCR_TREE))) != (melt_ptr_t)&cdat->dobj_3739__DISCR_TREE) {
+ /*_.VALDATA___V3733*/ curfptr[3732] = ((void*)(MELT_PREDEF(DISCR_BOX)));
+  melt_assertmsg("iniobj checkdiscr dobj_3727__DISCR_BOX", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3727__DISCR_BOX.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3727__DISCR_BOX.obj_num = OBMAG_BOX;
+  cdat->dobj_3727__DISCR_BOX.obj_hash = 281249581;
+  cdat->dobj_3727__DISCR_BOX.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3727__DISCR_BOX));
+ 
+ /*inistring dstr_3728__DISCR_BOX*/
+ /*_.VALSTR___V3734*/ curfptr[3733] = (void*)&cdat->dstr_3728__DISCR_BOX;
+  cdat->dstr_3728__DISCR_BOX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3728__DISCR_BOX.val, "DISCR_BOX", sizeof(cdat->dstr_3728__DISCR_BOX.val)-1);
+ 
+ /*iniobj dsym_3729__DISCR_TREE*/
+ if (!/*_.VALDATA___V3735*/ curfptr[3734]) /*_.VALDATA___V3735*/ curfptr[3734] = (void*)&cdat->dsym_3729__DISCR_TREE;
+  melt_assertmsg("iniobj checkdiscr dsym_3729__DISCR_TREE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3729__DISCR_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3729__DISCR_TREE.obj_hash = 33934607;
+  cdat->dsym_3729__DISCR_TREE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3729__DISCR_TREE));
+ 
+ /*inistring dstr_3730__DISCR_TREE*/
+ /*_.VALSTR___V3736*/ curfptr[3735] = (void*)&cdat->dstr_3730__DISCR_TREE;
+  cdat->dstr_3730__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3730__DISCR_TREE.val, "DISCR_TREE", sizeof(cdat->dstr_3730__DISCR_TREE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2090:/ iniobj");
+ /*iniobj dobj_3731__DISCR_TREE*/
+ if (((void*)(MELT_PREDEF(DISCR_TREE))) != (melt_ptr_t)&cdat->dobj_3731__DISCR_TREE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_TREE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_TREE))))) >= 5);
   };
- /*_.VALDATA___V3745*/ curfptr[3744] = ((void*)(MELT_PREDEF(DISCR_TREE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3739__DISCR_TREE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3739__DISCR_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3739__DISCR_TREE.obj_num = OBMAG_TREE;
-  cdat->dobj_3739__DISCR_TREE.obj_hash = 688529671;
-  cdat->dobj_3739__DISCR_TREE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3739__DISCR_TREE));
- 
- /*inistring dstr_3740__DISCR_TREE*/
- /*_.VALSTR___V3746*/ curfptr[3745] = (void*)&cdat->dstr_3740__DISCR_TREE;
-  cdat->dstr_3740__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3740__DISCR_TREE.val, "DISCR_TREE", sizeof(cdat->dstr_3740__DISCR_TREE.val)-1);
- 
- /*iniobj dsym_3741__DISCR_GIMPLE*/
- if (!/*_.VALDATA___V3747*/ curfptr[3746]) /*_.VALDATA___V3747*/ curfptr[3746] = (void*)&cdat->dsym_3741__DISCR_GIMPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_3741__DISCR_GIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3741__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3741__DISCR_GIMPLE.obj_hash = 554416154;
-  cdat->dsym_3741__DISCR_GIMPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3741__DISCR_GIMPLE));
- 
- /*inistring dstr_3742__DISCR_GIMPLE*/
- /*_.VALSTR___V3748*/ curfptr[3747] = (void*)&cdat->dstr_3742__DISCR_GIMPLE;
-  cdat->dstr_3742__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3742__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof(cdat->dstr_3742__DISCR_GIMPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2103:/ iniobj");
- /*iniobj dobj_3743__DISCR_GIMPLE*/
- if (((void*)(MELT_PREDEF(DISCR_GIMPLE))) != (melt_ptr_t)&cdat->dobj_3743__DISCR_GIMPLE) {
+ /*_.VALDATA___V3737*/ curfptr[3736] = ((void*)(MELT_PREDEF(DISCR_TREE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3731__DISCR_TREE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3731__DISCR_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3731__DISCR_TREE.obj_num = OBMAG_TREE;
+  cdat->dobj_3731__DISCR_TREE.obj_hash = 252472761;
+  cdat->dobj_3731__DISCR_TREE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3731__DISCR_TREE));
+ 
+ /*inistring dstr_3732__DISCR_TREE*/
+ /*_.VALSTR___V3738*/ curfptr[3737] = (void*)&cdat->dstr_3732__DISCR_TREE;
+  cdat->dstr_3732__DISCR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3732__DISCR_TREE.val, "DISCR_TREE", sizeof(cdat->dstr_3732__DISCR_TREE.val)-1);
+ 
+ /*iniobj dsym_3733__DISCR_GIMPLE*/
+ if (!/*_.VALDATA___V3739*/ curfptr[3738]) /*_.VALDATA___V3739*/ curfptr[3738] = (void*)&cdat->dsym_3733__DISCR_GIMPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_3733__DISCR_GIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3733__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3733__DISCR_GIMPLE.obj_hash = 554416154;
+  cdat->dsym_3733__DISCR_GIMPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3733__DISCR_GIMPLE));
+ 
+ /*inistring dstr_3734__DISCR_GIMPLE*/
+ /*_.VALSTR___V3740*/ curfptr[3739] = (void*)&cdat->dstr_3734__DISCR_GIMPLE;
+  cdat->dstr_3734__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3734__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof(cdat->dstr_3734__DISCR_GIMPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2098:/ iniobj");
+ /*iniobj dobj_3735__DISCR_GIMPLE*/
+ if (((void*)(MELT_PREDEF(DISCR_GIMPLE))) != (melt_ptr_t)&cdat->dobj_3735__DISCR_GIMPLE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_GIMPLE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_GIMPLE))))) >= 5);
   };
- /*_.VALDATA___V3749*/ curfptr[3748] = ((void*)(MELT_PREDEF(DISCR_GIMPLE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3743__DISCR_GIMPLE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3743__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3743__DISCR_GIMPLE.obj_num = OBMAG_GIMPLE;
-  cdat->dobj_3743__DISCR_GIMPLE.obj_hash = 1005207563;
-  cdat->dobj_3743__DISCR_GIMPLE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3743__DISCR_GIMPLE));
- 
- /*inistring dstr_3744__DISCR_GIMPLE*/
- /*_.VALSTR___V3750*/ curfptr[3749] = (void*)&cdat->dstr_3744__DISCR_GIMPLE;
-  cdat->dstr_3744__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3744__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof(cdat->dstr_3744__DISCR_GIMPLE.val)-1);
- 
- /*iniobj dsym_3745__DISCR_GIMPLE_SEQ*/
- if (!/*_.VALDATA___V3751*/ curfptr[3750]) /*_.VALDATA___V3751*/ curfptr[3750] = (void*)&cdat->dsym_3745__DISCR_GIMPLE_SEQ;
-  melt_assertmsg("iniobj checkdiscr dsym_3745__DISCR_GIMPLE_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3745__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3745__DISCR_GIMPLE_SEQ.obj_hash = 369017589;
-  cdat->dsym_3745__DISCR_GIMPLE_SEQ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3745__DISCR_GIMPLE_SEQ));
- 
- /*inistring dstr_3746__DISCR_GIMPLE_SEQ*/
- /*_.VALSTR___V3752*/ curfptr[3751] = (void*)&cdat->dstr_3746__DISCR_GIMPLE_SEQ;
-  cdat->dstr_3746__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3746__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof(cdat->dstr_3746__DISCR_GIMPLE_SEQ.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2111:/ iniobj");
- /*iniobj dobj_3747__DISCR_GIMPLE_SEQ*/
- if (((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_3747__DISCR_GIMPLE_SEQ) {
+ /*_.VALDATA___V3741*/ curfptr[3740] = ((void*)(MELT_PREDEF(DISCR_GIMPLE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3735__DISCR_GIMPLE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3735__DISCR_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3735__DISCR_GIMPLE.obj_num = OBMAG_GIMPLE;
+  cdat->dobj_3735__DISCR_GIMPLE.obj_hash = 583367452;
+  cdat->dobj_3735__DISCR_GIMPLE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3735__DISCR_GIMPLE));
+ 
+ /*inistring dstr_3736__DISCR_GIMPLE*/
+ /*_.VALSTR___V3742*/ curfptr[3741] = (void*)&cdat->dstr_3736__DISCR_GIMPLE;
+  cdat->dstr_3736__DISCR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3736__DISCR_GIMPLE.val, "DISCR_GIMPLE", sizeof(cdat->dstr_3736__DISCR_GIMPLE.val)-1);
+ 
+ /*iniobj dsym_3737__DISCR_GIMPLE_SEQ*/
+ if (!/*_.VALDATA___V3743*/ curfptr[3742]) /*_.VALDATA___V3743*/ curfptr[3742] = (void*)&cdat->dsym_3737__DISCR_GIMPLE_SEQ;
+  melt_assertmsg("iniobj checkdiscr dsym_3737__DISCR_GIMPLE_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3737__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3737__DISCR_GIMPLE_SEQ.obj_hash = 369017589;
+  cdat->dsym_3737__DISCR_GIMPLE_SEQ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3737__DISCR_GIMPLE_SEQ));
+ 
+ /*inistring dstr_3738__DISCR_GIMPLE_SEQ*/
+ /*_.VALSTR___V3744*/ curfptr[3743] = (void*)&cdat->dstr_3738__DISCR_GIMPLE_SEQ;
+  cdat->dstr_3738__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3738__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof(cdat->dstr_3738__DISCR_GIMPLE_SEQ.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2106:/ iniobj");
+ /*iniobj dobj_3739__DISCR_GIMPLE_SEQ*/
+ if (((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_3739__DISCR_GIMPLE_SEQ) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ))))) >= 5);
   };
- /*_.VALDATA___V3753*/ curfptr[3752] = ((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ)));
-  melt_assertmsg("iniobj checkdiscr dobj_3747__DISCR_GIMPLE_SEQ", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3747__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3747__DISCR_GIMPLE_SEQ.obj_num = OBMAG_GIMPLESEQ;
-  cdat->dobj_3747__DISCR_GIMPLE_SEQ.obj_hash = 964045972;
-  cdat->dobj_3747__DISCR_GIMPLE_SEQ.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3747__DISCR_GIMPLE_SEQ));
- 
- /*inistring dstr_3748__DISCR_GIMPLE_SEQ*/
- /*_.VALSTR___V3754*/ curfptr[3753] = (void*)&cdat->dstr_3748__DISCR_GIMPLE_SEQ;
-  cdat->dstr_3748__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3748__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof(cdat->dstr_3748__DISCR_GIMPLE_SEQ.val)-1);
- 
- /*iniobj dsym_3749__DISCR_EDGE*/
- if (!/*_.VALDATA___V3755*/ curfptr[3754]) /*_.VALDATA___V3755*/ curfptr[3754] = (void*)&cdat->dsym_3749__DISCR_EDGE;
-  melt_assertmsg("iniobj checkdiscr dsym_3749__DISCR_EDGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3749__DISCR_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3749__DISCR_EDGE.obj_hash = 91457502;
-  cdat->dsym_3749__DISCR_EDGE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3749__DISCR_EDGE));
- 
- /*inistring dstr_3750__DISCR_EDGE*/
- /*_.VALSTR___V3756*/ curfptr[3755] = (void*)&cdat->dstr_3750__DISCR_EDGE;
-  cdat->dstr_3750__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3750__DISCR_EDGE.val, "DISCR_EDGE", sizeof(cdat->dstr_3750__DISCR_EDGE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2119:/ iniobj");
- /*iniobj dobj_3751__DISCR_EDGE*/
- if (((void*)(MELT_PREDEF(DISCR_EDGE))) != (melt_ptr_t)&cdat->dobj_3751__DISCR_EDGE) {
+ /*_.VALDATA___V3745*/ curfptr[3744] = ((void*)(MELT_PREDEF(DISCR_GIMPLE_SEQ)));
+  melt_assertmsg("iniobj checkdiscr dobj_3739__DISCR_GIMPLE_SEQ", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3739__DISCR_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3739__DISCR_GIMPLE_SEQ.obj_num = OBMAG_GIMPLESEQ;
+  cdat->dobj_3739__DISCR_GIMPLE_SEQ.obj_hash = 646024213;
+  cdat->dobj_3739__DISCR_GIMPLE_SEQ.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3739__DISCR_GIMPLE_SEQ));
+ 
+ /*inistring dstr_3740__DISCR_GIMPLE_SEQ*/
+ /*_.VALSTR___V3746*/ curfptr[3745] = (void*)&cdat->dstr_3740__DISCR_GIMPLE_SEQ;
+  cdat->dstr_3740__DISCR_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3740__DISCR_GIMPLE_SEQ.val, "DISCR_GIMPLE_SEQ", sizeof(cdat->dstr_3740__DISCR_GIMPLE_SEQ.val)-1);
+ 
+ /*iniobj dsym_3741__DISCR_EDGE*/
+ if (!/*_.VALDATA___V3747*/ curfptr[3746]) /*_.VALDATA___V3747*/ curfptr[3746] = (void*)&cdat->dsym_3741__DISCR_EDGE;
+  melt_assertmsg("iniobj checkdiscr dsym_3741__DISCR_EDGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3741__DISCR_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3741__DISCR_EDGE.obj_hash = 91457502;
+  cdat->dsym_3741__DISCR_EDGE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3741__DISCR_EDGE));
+ 
+ /*inistring dstr_3742__DISCR_EDGE*/
+ /*_.VALSTR___V3748*/ curfptr[3747] = (void*)&cdat->dstr_3742__DISCR_EDGE;
+  cdat->dstr_3742__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3742__DISCR_EDGE.val, "DISCR_EDGE", sizeof(cdat->dstr_3742__DISCR_EDGE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2114:/ iniobj");
+ /*iniobj dobj_3743__DISCR_EDGE*/
+ if (((void*)(MELT_PREDEF(DISCR_EDGE))) != (melt_ptr_t)&cdat->dobj_3743__DISCR_EDGE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_EDGE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_EDGE))))) >= 5);
   };
- /*_.VALDATA___V3757*/ curfptr[3756] = ((void*)(MELT_PREDEF(DISCR_EDGE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3751__DISCR_EDGE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3751__DISCR_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3751__DISCR_EDGE.obj_num = OBMAG_EDGE;
-  cdat->dobj_3751__DISCR_EDGE.obj_hash = 52489434;
-  cdat->dobj_3751__DISCR_EDGE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3751__DISCR_EDGE));
- 
- /*inistring dstr_3752__DISCR_EDGE*/
- /*_.VALSTR___V3758*/ curfptr[3757] = (void*)&cdat->dstr_3752__DISCR_EDGE;
-  cdat->dstr_3752__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3752__DISCR_EDGE.val, "DISCR_EDGE", sizeof(cdat->dstr_3752__DISCR_EDGE.val)-1);
- 
- /*iniobj dsym_3753__DISCR_BASIC_BLOCK*/
- if (!/*_.VALDATA___V3759*/ curfptr[3758]) /*_.VALDATA___V3759*/ curfptr[3758] = (void*)&cdat->dsym_3753__DISCR_BASIC_BLOCK;
-  melt_assertmsg("iniobj checkdiscr dsym_3753__DISCR_BASIC_BLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3753__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3753__DISCR_BASIC_BLOCK.obj_hash = 457105241;
-  cdat->dsym_3753__DISCR_BASIC_BLOCK.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3753__DISCR_BASIC_BLOCK));
- 
- /*inistring dstr_3754__DISCR_BASIC_BLOC*/
- /*_.VALSTR___V3760*/ curfptr[3759] = (void*)&cdat->dstr_3754__DISCR_BASIC_BLOC;
-  cdat->dstr_3754__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3754__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof(cdat->dstr_3754__DISCR_BASIC_BLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2126:/ iniobj");
- /*iniobj dobj_3755__DISCR_BASIC_BLOCK*/
- if (((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_3755__DISCR_BASIC_BLOCK) {
+ /*_.VALDATA___V3749*/ curfptr[3748] = ((void*)(MELT_PREDEF(DISCR_EDGE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3743__DISCR_EDGE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3743__DISCR_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3743__DISCR_EDGE.obj_num = OBMAG_EDGE;
+  cdat->dobj_3743__DISCR_EDGE.obj_hash = 282529844;
+  cdat->dobj_3743__DISCR_EDGE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3743__DISCR_EDGE));
+ 
+ /*inistring dstr_3744__DISCR_EDGE*/
+ /*_.VALSTR___V3750*/ curfptr[3749] = (void*)&cdat->dstr_3744__DISCR_EDGE;
+  cdat->dstr_3744__DISCR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3744__DISCR_EDGE.val, "DISCR_EDGE", sizeof(cdat->dstr_3744__DISCR_EDGE.val)-1);
+ 
+ /*iniobj dsym_3745__DISCR_BASIC_BLOCK*/
+ if (!/*_.VALDATA___V3751*/ curfptr[3750]) /*_.VALDATA___V3751*/ curfptr[3750] = (void*)&cdat->dsym_3745__DISCR_BASIC_BLOCK;
+  melt_assertmsg("iniobj checkdiscr dsym_3745__DISCR_BASIC_BLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3745__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3745__DISCR_BASIC_BLOCK.obj_hash = 457105241;
+  cdat->dsym_3745__DISCR_BASIC_BLOCK.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3745__DISCR_BASIC_BLOCK));
+ 
+ /*inistring dstr_3746__DISCR_BASIC_BLOC*/
+ /*_.VALSTR___V3752*/ curfptr[3751] = (void*)&cdat->dstr_3746__DISCR_BASIC_BLOC;
+  cdat->dstr_3746__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3746__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof(cdat->dstr_3746__DISCR_BASIC_BLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2121:/ iniobj");
+ /*iniobj dobj_3747__DISCR_BASIC_BLOCK*/
+ if (((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_3747__DISCR_BASIC_BLOCK) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK))))) >= 5);
   };
- /*_.VALDATA___V3761*/ curfptr[3760] = ((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK)));
-  melt_assertmsg("iniobj checkdiscr dobj_3755__DISCR_BASIC_BLOCK", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3755__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3755__DISCR_BASIC_BLOCK.obj_num = OBMAG_BASICBLOCK;
-  cdat->dobj_3755__DISCR_BASIC_BLOCK.obj_hash = 324678083;
-  cdat->dobj_3755__DISCR_BASIC_BLOCK.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3755__DISCR_BASIC_BLOCK));
- 
- /*inistring dstr_3756__DISCR_BASIC_BLOC*/
- /*_.VALSTR___V3762*/ curfptr[3761] = (void*)&cdat->dstr_3756__DISCR_BASIC_BLOC;
-  cdat->dstr_3756__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3756__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof(cdat->dstr_3756__DISCR_BASIC_BLOC.val)-1);
- 
- /*iniobj dsym_3757__DISCR_MAP_OBJECTS*/
- if (!/*_.VALDATA___V3763*/ curfptr[3762]) /*_.VALDATA___V3763*/ curfptr[3762] = (void*)&cdat->dsym_3757__DISCR_MAP_OBJECTS;
-  melt_assertmsg("iniobj checkdiscr dsym_3757__DISCR_MAP_OBJECTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3757__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3757__DISCR_MAP_OBJECTS.obj_hash = 217147088;
-  cdat->dsym_3757__DISCR_MAP_OBJECTS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3757__DISCR_MAP_OBJECTS));
- 
- /*inistring dstr_3758__DISCR_MAP_OBJECT*/
- /*_.VALSTR___V3764*/ curfptr[3763] = (void*)&cdat->dstr_3758__DISCR_MAP_OBJECT;
-  cdat->dstr_3758__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3758__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof(cdat->dstr_3758__DISCR_MAP_OBJECT.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2135:/ iniobj");
- /*iniobj dobj_3759__DISCR_MAP_OBJECTS*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))) != (melt_ptr_t)&cdat->dobj_3759__DISCR_MAP_OBJECTS) {
+ /*_.VALDATA___V3753*/ curfptr[3752] = ((void*)(MELT_PREDEF(DISCR_BASIC_BLOCK)));
+  melt_assertmsg("iniobj checkdiscr dobj_3747__DISCR_BASIC_BLOCK", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3747__DISCR_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3747__DISCR_BASIC_BLOCK.obj_num = OBMAG_BASICBLOCK;
+  cdat->dobj_3747__DISCR_BASIC_BLOCK.obj_hash = 324850204;
+  cdat->dobj_3747__DISCR_BASIC_BLOCK.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3747__DISCR_BASIC_BLOCK));
+ 
+ /*inistring dstr_3748__DISCR_BASIC_BLOC*/
+ /*_.VALSTR___V3754*/ curfptr[3753] = (void*)&cdat->dstr_3748__DISCR_BASIC_BLOC;
+  cdat->dstr_3748__DISCR_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3748__DISCR_BASIC_BLOC.val, "DISCR_BASIC_BLOCK", sizeof(cdat->dstr_3748__DISCR_BASIC_BLOC.val)-1);
+ 
+ /*iniobj dsym_3749__DISCR_MAP_OBJECTS*/
+ if (!/*_.VALDATA___V3755*/ curfptr[3754]) /*_.VALDATA___V3755*/ curfptr[3754] = (void*)&cdat->dsym_3749__DISCR_MAP_OBJECTS;
+  melt_assertmsg("iniobj checkdiscr dsym_3749__DISCR_MAP_OBJECTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3749__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3749__DISCR_MAP_OBJECTS.obj_hash = 217147088;
+  cdat->dsym_3749__DISCR_MAP_OBJECTS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3749__DISCR_MAP_OBJECTS));
+ 
+ /*inistring dstr_3750__DISCR_MAP_OBJECT*/
+ /*_.VALSTR___V3756*/ curfptr[3755] = (void*)&cdat->dstr_3750__DISCR_MAP_OBJECT;
+  cdat->dstr_3750__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3750__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof(cdat->dstr_3750__DISCR_MAP_OBJECT.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2130:/ iniobj");
+ /*iniobj dobj_3751__DISCR_MAP_OBJECTS*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))) != (melt_ptr_t)&cdat->dobj_3751__DISCR_MAP_OBJECTS) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS))))) >= 5);
   };
- /*_.VALDATA___V3765*/ curfptr[3764] = ((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS)));
-  melt_assertmsg("iniobj checkdiscr dobj_3759__DISCR_MAP_OBJECTS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3759__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3759__DISCR_MAP_OBJECTS.obj_num = OBMAG_MAPOBJECTS;
-  cdat->dobj_3759__DISCR_MAP_OBJECTS.obj_hash = 81935147;
-  cdat->dobj_3759__DISCR_MAP_OBJECTS.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3759__DISCR_MAP_OBJECTS));
- 
- /*inistring dstr_3760__DISCR_MAP_OBJECT*/
- /*_.VALSTR___V3766*/ curfptr[3765] = (void*)&cdat->dstr_3760__DISCR_MAP_OBJECT;
-  cdat->dstr_3760__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3760__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof(cdat->dstr_3760__DISCR_MAP_OBJECT.val)-1);
- 
- /*iniobj dsym_3761__DISCR_MAP_STRINGS*/
- if (!/*_.VALDATA___V3767*/ curfptr[3766]) /*_.VALDATA___V3767*/ curfptr[3766] = (void*)&cdat->dsym_3761__DISCR_MAP_STRINGS;
-  melt_assertmsg("iniobj checkdiscr dsym_3761__DISCR_MAP_STRINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3761__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3761__DISCR_MAP_STRINGS.obj_hash = 344609662;
-  cdat->dsym_3761__DISCR_MAP_STRINGS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3761__DISCR_MAP_STRINGS));
- 
- /*inistring dstr_3762__DISCR_MAP_STRING*/
- /*_.VALSTR___V3768*/ curfptr[3767] = (void*)&cdat->dstr_3762__DISCR_MAP_STRING;
-  cdat->dstr_3762__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3762__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof(cdat->dstr_3762__DISCR_MAP_STRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2144:/ iniobj");
- /*iniobj dobj_3763__DISCR_MAP_STRINGS*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))) != (melt_ptr_t)&cdat->dobj_3763__DISCR_MAP_STRINGS) {
+ /*_.VALDATA___V3757*/ curfptr[3756] = ((void*)(MELT_PREDEF(DISCR_MAP_OBJECTS)));
+  melt_assertmsg("iniobj checkdiscr dobj_3751__DISCR_MAP_OBJECTS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3751__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3751__DISCR_MAP_OBJECTS.obj_num = OBMAG_MAPOBJECTS;
+  cdat->dobj_3751__DISCR_MAP_OBJECTS.obj_hash = 182421444;
+  cdat->dobj_3751__DISCR_MAP_OBJECTS.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3751__DISCR_MAP_OBJECTS));
+ 
+ /*inistring dstr_3752__DISCR_MAP_OBJECT*/
+ /*_.VALSTR___V3758*/ curfptr[3757] = (void*)&cdat->dstr_3752__DISCR_MAP_OBJECT;
+  cdat->dstr_3752__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3752__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof(cdat->dstr_3752__DISCR_MAP_OBJECT.val)-1);
+ 
+ /*iniobj dsym_3753__DISCR_MAP_STRINGS*/
+ if (!/*_.VALDATA___V3759*/ curfptr[3758]) /*_.VALDATA___V3759*/ curfptr[3758] = (void*)&cdat->dsym_3753__DISCR_MAP_STRINGS;
+  melt_assertmsg("iniobj checkdiscr dsym_3753__DISCR_MAP_STRINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3753__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3753__DISCR_MAP_STRINGS.obj_hash = 344609662;
+  cdat->dsym_3753__DISCR_MAP_STRINGS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3753__DISCR_MAP_STRINGS));
+ 
+ /*inistring dstr_3754__DISCR_MAP_STRING*/
+ /*_.VALSTR___V3760*/ curfptr[3759] = (void*)&cdat->dstr_3754__DISCR_MAP_STRING;
+  cdat->dstr_3754__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3754__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof(cdat->dstr_3754__DISCR_MAP_STRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2139:/ iniobj");
+ /*iniobj dobj_3755__DISCR_MAP_STRINGS*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))) != (melt_ptr_t)&cdat->dobj_3755__DISCR_MAP_STRINGS) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_STRINGS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_STRINGS))))) >= 5);
   };
- /*_.VALDATA___V3769*/ curfptr[3768] = ((void*)(MELT_PREDEF(DISCR_MAP_STRINGS)));
-  melt_assertmsg("iniobj checkdiscr dobj_3763__DISCR_MAP_STRINGS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3763__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3763__DISCR_MAP_STRINGS.obj_num = OBMAG_MAPSTRINGS;
-  cdat->dobj_3763__DISCR_MAP_STRINGS.obj_hash = 480117788;
-  cdat->dobj_3763__DISCR_MAP_STRINGS.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3763__DISCR_MAP_STRINGS));
- 
- /*inistring dstr_3764__DISCR_MAP_STRING*/
- /*_.VALSTR___V3770*/ curfptr[3769] = (void*)&cdat->dstr_3764__DISCR_MAP_STRING;
-  cdat->dstr_3764__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3764__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof(cdat->dstr_3764__DISCR_MAP_STRING.val)-1);
- 
- /*iniobj dsym_3765__DISCR_MAP_TREES*/
- if (!/*_.VALDATA___V3771*/ curfptr[3770]) /*_.VALDATA___V3771*/ curfptr[3770] = (void*)&cdat->dsym_3765__DISCR_MAP_TREES;
-  melt_assertmsg("iniobj checkdiscr dsym_3765__DISCR_MAP_TREES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3765__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3765__DISCR_MAP_TREES.obj_hash = 26820857;
-  cdat->dsym_3765__DISCR_MAP_TREES.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3765__DISCR_MAP_TREES));
- 
- /*inistring dstr_3766__DISCR_MAP_TREES*/
- /*_.VALSTR___V3772*/ curfptr[3771] = (void*)&cdat->dstr_3766__DISCR_MAP_TREES;
-  cdat->dstr_3766__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3766__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof(cdat->dstr_3766__DISCR_MAP_TREES.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2153:/ iniobj");
- /*iniobj dobj_3767__DISCR_MAP_TREES*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_TREES))) != (melt_ptr_t)&cdat->dobj_3767__DISCR_MAP_TREES) {
+ /*_.VALDATA___V3761*/ curfptr[3760] = ((void*)(MELT_PREDEF(DISCR_MAP_STRINGS)));
+  melt_assertmsg("iniobj checkdiscr dobj_3755__DISCR_MAP_STRINGS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3755__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3755__DISCR_MAP_STRINGS.obj_num = OBMAG_MAPSTRINGS;
+  cdat->dobj_3755__DISCR_MAP_STRINGS.obj_hash = 337717936;
+  cdat->dobj_3755__DISCR_MAP_STRINGS.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3755__DISCR_MAP_STRINGS));
+ 
+ /*inistring dstr_3756__DISCR_MAP_STRING*/
+ /*_.VALSTR___V3762*/ curfptr[3761] = (void*)&cdat->dstr_3756__DISCR_MAP_STRING;
+  cdat->dstr_3756__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3756__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof(cdat->dstr_3756__DISCR_MAP_STRING.val)-1);
+ 
+ /*iniobj dsym_3757__DISCR_MAP_TREES*/
+ if (!/*_.VALDATA___V3763*/ curfptr[3762]) /*_.VALDATA___V3763*/ curfptr[3762] = (void*)&cdat->dsym_3757__DISCR_MAP_TREES;
+  melt_assertmsg("iniobj checkdiscr dsym_3757__DISCR_MAP_TREES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3757__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3757__DISCR_MAP_TREES.obj_hash = 26820857;
+  cdat->dsym_3757__DISCR_MAP_TREES.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3757__DISCR_MAP_TREES));
+ 
+ /*inistring dstr_3758__DISCR_MAP_TREES*/
+ /*_.VALSTR___V3764*/ curfptr[3763] = (void*)&cdat->dstr_3758__DISCR_MAP_TREES;
+  cdat->dstr_3758__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3758__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof(cdat->dstr_3758__DISCR_MAP_TREES.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2148:/ iniobj");
+ /*iniobj dobj_3759__DISCR_MAP_TREES*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_TREES))) != (melt_ptr_t)&cdat->dobj_3759__DISCR_MAP_TREES) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_TREES)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_TREES))))) >= 5);
   };
- /*_.VALDATA___V3773*/ curfptr[3772] = ((void*)(MELT_PREDEF(DISCR_MAP_TREES)));
-  melt_assertmsg("iniobj checkdiscr dobj_3767__DISCR_MAP_TREES", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3767__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3767__DISCR_MAP_TREES.obj_num = OBMAG_MAPTREES;
-  cdat->dobj_3767__DISCR_MAP_TREES.obj_hash = 984397590;
-  cdat->dobj_3767__DISCR_MAP_TREES.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3767__DISCR_MAP_TREES));
- 
- /*inistring dstr_3768__DISCR_MAP_TREES*/
- /*_.VALSTR___V3774*/ curfptr[3773] = (void*)&cdat->dstr_3768__DISCR_MAP_TREES;
-  cdat->dstr_3768__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3768__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof(cdat->dstr_3768__DISCR_MAP_TREES.val)-1);
- 
- /*iniobj dsym_3769__DISCR_MAP_GIMPLES*/
- if (!/*_.VALDATA___V3775*/ curfptr[3774]) /*_.VALDATA___V3775*/ curfptr[3774] = (void*)&cdat->dsym_3769__DISCR_MAP_GIMPLES;
-  melt_assertmsg("iniobj checkdiscr dsym_3769__DISCR_MAP_GIMPLES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3769__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3769__DISCR_MAP_GIMPLES.obj_hash = 581433132;
-  cdat->dsym_3769__DISCR_MAP_GIMPLES.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3769__DISCR_MAP_GIMPLES));
- 
- /*inistring dstr_3770__DISCR_MAP_GIMPLE*/
- /*_.VALSTR___V3776*/ curfptr[3775] = (void*)&cdat->dstr_3770__DISCR_MAP_GIMPLE;
-  cdat->dstr_3770__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3770__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof(cdat->dstr_3770__DISCR_MAP_GIMPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2162:/ iniobj");
- /*iniobj dobj_3771__DISCR_MAP_GIMPLES*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))) != (melt_ptr_t)&cdat->dobj_3771__DISCR_MAP_GIMPLES) {
+ /*_.VALDATA___V3765*/ curfptr[3764] = ((void*)(MELT_PREDEF(DISCR_MAP_TREES)));
+  melt_assertmsg("iniobj checkdiscr dobj_3759__DISCR_MAP_TREES", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3759__DISCR_MAP_TREES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3759__DISCR_MAP_TREES.obj_num = OBMAG_MAPTREES;
+  cdat->dobj_3759__DISCR_MAP_TREES.obj_hash = 294852668;
+  cdat->dobj_3759__DISCR_MAP_TREES.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3759__DISCR_MAP_TREES));
+ 
+ /*inistring dstr_3760__DISCR_MAP_TREES*/
+ /*_.VALSTR___V3766*/ curfptr[3765] = (void*)&cdat->dstr_3760__DISCR_MAP_TREES;
+  cdat->dstr_3760__DISCR_MAP_TREES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3760__DISCR_MAP_TREES.val, "DISCR_MAP_TREES", sizeof(cdat->dstr_3760__DISCR_MAP_TREES.val)-1);
+ 
+ /*iniobj dsym_3761__DISCR_MAP_GIMPLES*/
+ if (!/*_.VALDATA___V3767*/ curfptr[3766]) /*_.VALDATA___V3767*/ curfptr[3766] = (void*)&cdat->dsym_3761__DISCR_MAP_GIMPLES;
+  melt_assertmsg("iniobj checkdiscr dsym_3761__DISCR_MAP_GIMPLES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3761__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3761__DISCR_MAP_GIMPLES.obj_hash = 581433132;
+  cdat->dsym_3761__DISCR_MAP_GIMPLES.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3761__DISCR_MAP_GIMPLES));
+ 
+ /*inistring dstr_3762__DISCR_MAP_GIMPLE*/
+ /*_.VALSTR___V3768*/ curfptr[3767] = (void*)&cdat->dstr_3762__DISCR_MAP_GIMPLE;
+  cdat->dstr_3762__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3762__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof(cdat->dstr_3762__DISCR_MAP_GIMPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2157:/ iniobj");
+ /*iniobj dobj_3763__DISCR_MAP_GIMPLES*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))) != (melt_ptr_t)&cdat->dobj_3763__DISCR_MAP_GIMPLES) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES))))) >= 5);
   };
- /*_.VALDATA___V3777*/ curfptr[3776] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES)));
-  melt_assertmsg("iniobj checkdiscr dobj_3771__DISCR_MAP_GIMPLES", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3771__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3771__DISCR_MAP_GIMPLES.obj_num = OBMAG_MAPGIMPLES;
-  cdat->dobj_3771__DISCR_MAP_GIMPLES.obj_hash = 245328456;
-  cdat->dobj_3771__DISCR_MAP_GIMPLES.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3771__DISCR_MAP_GIMPLES));
- 
- /*inistring dstr_3772__DISCR_MAP_GIMPLE*/
- /*_.VALSTR___V3778*/ curfptr[3777] = (void*)&cdat->dstr_3772__DISCR_MAP_GIMPLE;
-  cdat->dstr_3772__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3772__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof(cdat->dstr_3772__DISCR_MAP_GIMPLE.val)-1);
- 
- /*iniobj dsym_3773__DISCR_MAP_GIMPLE_SEQS*/
- if (!/*_.VALDATA___V3779*/ curfptr[3778]) /*_.VALDATA___V3779*/ curfptr[3778] = (void*)&cdat->dsym_3773__DISCR_MAP_GIMPLE_SEQS;
-  melt_assertmsg("iniobj checkdiscr dsym_3773__DISCR_MAP_GIMPLE_SEQS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3773__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3773__DISCR_MAP_GIMPLE_SEQS.obj_hash = 688895982;
-  cdat->dsym_3773__DISCR_MAP_GIMPLE_SEQS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3773__DISCR_MAP_GIMPLE_SEQS));
- 
- /*inistring dstr_3774__DISCR_MAP_GIMPLE*/
- /*_.VALSTR___V3780*/ curfptr[3779] = (void*)&cdat->dstr_3774__DISCR_MAP_GIMPLE;
-  cdat->dstr_3774__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3774__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof(cdat->dstr_3774__DISCR_MAP_GIMPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2171:/ iniobj");
- /*iniobj dobj_3775__DISCR_MAP_GIMPLE_SEQS*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))) != (melt_ptr_t)&cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS) {
+ /*_.VALDATA___V3769*/ curfptr[3768] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLES)));
+  melt_assertmsg("iniobj checkdiscr dobj_3763__DISCR_MAP_GIMPLES", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3763__DISCR_MAP_GIMPLES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3763__DISCR_MAP_GIMPLES.obj_num = OBMAG_MAPGIMPLES;
+  cdat->dobj_3763__DISCR_MAP_GIMPLES.obj_hash = 731642321;
+  cdat->dobj_3763__DISCR_MAP_GIMPLES.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3763__DISCR_MAP_GIMPLES));
+ 
+ /*inistring dstr_3764__DISCR_MAP_GIMPLE*/
+ /*_.VALSTR___V3770*/ curfptr[3769] = (void*)&cdat->dstr_3764__DISCR_MAP_GIMPLE;
+  cdat->dstr_3764__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3764__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLES", sizeof(cdat->dstr_3764__DISCR_MAP_GIMPLE.val)-1);
+ 
+ /*iniobj dsym_3765__DISCR_MAP_GIMPLE_SEQS*/
+ if (!/*_.VALDATA___V3771*/ curfptr[3770]) /*_.VALDATA___V3771*/ curfptr[3770] = (void*)&cdat->dsym_3765__DISCR_MAP_GIMPLE_SEQS;
+  melt_assertmsg("iniobj checkdiscr dsym_3765__DISCR_MAP_GIMPLE_SEQS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3765__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3765__DISCR_MAP_GIMPLE_SEQS.obj_hash = 688895982;
+  cdat->dsym_3765__DISCR_MAP_GIMPLE_SEQS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3765__DISCR_MAP_GIMPLE_SEQS));
+ 
+ /*inistring dstr_3766__DISCR_MAP_GIMPLE*/
+ /*_.VALSTR___V3772*/ curfptr[3771] = (void*)&cdat->dstr_3766__DISCR_MAP_GIMPLE;
+  cdat->dstr_3766__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3766__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof(cdat->dstr_3766__DISCR_MAP_GIMPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2166:/ iniobj");
+ /*iniobj dobj_3767__DISCR_MAP_GIMPLE_SEQS*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))) != (melt_ptr_t)&cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS))))) >= 5);
   };
- /*_.VALDATA___V3781*/ curfptr[3780] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)));
-  melt_assertmsg("iniobj checkdiscr dobj_3775__DISCR_MAP_GIMPLE_SEQS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS.obj_num = OBMAG_MAPGIMPLESEQS;
-  cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS.obj_hash = 634659796;
-  cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3775__DISCR_MAP_GIMPLE_SEQS));
- 
- /*inistring dstr_3776__DISCR_MAP_GIMPLE*/
- /*_.VALSTR___V3782*/ curfptr[3781] = (void*)&cdat->dstr_3776__DISCR_MAP_GIMPLE;
-  cdat->dstr_3776__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3776__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof(cdat->dstr_3776__DISCR_MAP_GIMPLE.val)-1);
- 
- /*iniobj dsym_3777__DISCR_MAP_EDGES*/
- if (!/*_.VALDATA___V3783*/ curfptr[3782]) /*_.VALDATA___V3783*/ curfptr[3782] = (void*)&cdat->dsym_3777__DISCR_MAP_EDGES;
-  melt_assertmsg("iniobj checkdiscr dsym_3777__DISCR_MAP_EDGES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3777__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3777__DISCR_MAP_EDGES.obj_hash = 510102591;
-  cdat->dsym_3777__DISCR_MAP_EDGES.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3777__DISCR_MAP_EDGES));
- 
- /*inistring dstr_3778__DISCR_MAP_EDGES*/
- /*_.VALSTR___V3784*/ curfptr[3783] = (void*)&cdat->dstr_3778__DISCR_MAP_EDGES;
-  cdat->dstr_3778__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3778__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof(cdat->dstr_3778__DISCR_MAP_EDGES.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2180:/ iniobj");
- /*iniobj dobj_3779__DISCR_MAP_EDGES*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_EDGES))) != (melt_ptr_t)&cdat->dobj_3779__DISCR_MAP_EDGES) {
+ /*_.VALDATA___V3773*/ curfptr[3772] = ((void*)(MELT_PREDEF(DISCR_MAP_GIMPLE_SEQS)));
+  melt_assertmsg("iniobj checkdiscr dobj_3767__DISCR_MAP_GIMPLE_SEQS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS.obj_num = OBMAG_MAPGIMPLESEQS;
+  cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS.obj_hash = 370832686;
+  cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3767__DISCR_MAP_GIMPLE_SEQS));
+ 
+ /*inistring dstr_3768__DISCR_MAP_GIMPLE*/
+ /*_.VALSTR___V3774*/ curfptr[3773] = (void*)&cdat->dstr_3768__DISCR_MAP_GIMPLE;
+  cdat->dstr_3768__DISCR_MAP_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3768__DISCR_MAP_GIMPLE.val, "DISCR_MAP_GIMPLE_SEQS", sizeof(cdat->dstr_3768__DISCR_MAP_GIMPLE.val)-1);
+ 
+ /*iniobj dsym_3769__DISCR_MAP_EDGES*/
+ if (!/*_.VALDATA___V3775*/ curfptr[3774]) /*_.VALDATA___V3775*/ curfptr[3774] = (void*)&cdat->dsym_3769__DISCR_MAP_EDGES;
+  melt_assertmsg("iniobj checkdiscr dsym_3769__DISCR_MAP_EDGES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3769__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3769__DISCR_MAP_EDGES.obj_hash = 510102591;
+  cdat->dsym_3769__DISCR_MAP_EDGES.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3769__DISCR_MAP_EDGES));
+ 
+ /*inistring dstr_3770__DISCR_MAP_EDGES*/
+ /*_.VALSTR___V3776*/ curfptr[3775] = (void*)&cdat->dstr_3770__DISCR_MAP_EDGES;
+  cdat->dstr_3770__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3770__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof(cdat->dstr_3770__DISCR_MAP_EDGES.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2175:/ iniobj");
+ /*iniobj dobj_3771__DISCR_MAP_EDGES*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_EDGES))) != (melt_ptr_t)&cdat->dobj_3771__DISCR_MAP_EDGES) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_EDGES)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_EDGES))))) >= 5);
   };
- /*_.VALDATA___V3785*/ curfptr[3784] = ((void*)(MELT_PREDEF(DISCR_MAP_EDGES)));
-  melt_assertmsg("iniobj checkdiscr dobj_3779__DISCR_MAP_EDGES", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3779__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3779__DISCR_MAP_EDGES.obj_num = OBMAG_MAPEDGES;
-  cdat->dobj_3779__DISCR_MAP_EDGES.obj_hash = 706029070;
-  cdat->dobj_3779__DISCR_MAP_EDGES.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3779__DISCR_MAP_EDGES));
- 
- /*inistring dstr_3780__DISCR_MAP_EDGES*/
- /*_.VALSTR___V3786*/ curfptr[3785] = (void*)&cdat->dstr_3780__DISCR_MAP_EDGES;
-  cdat->dstr_3780__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3780__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof(cdat->dstr_3780__DISCR_MAP_EDGES.val)-1);
- 
- /*iniobj dsym_3781__DISCR_MAP_BASIC_BLOCKS*/
- if (!/*_.VALDATA___V3787*/ curfptr[3786]) /*_.VALDATA___V3787*/ curfptr[3786] = (void*)&cdat->dsym_3781__DISCR_MAP_BASIC_BLOCKS;
-  melt_assertmsg("iniobj checkdiscr dsym_3781__DISCR_MAP_BASIC_BLOCKS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3781__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3781__DISCR_MAP_BASIC_BLOCKS.obj_hash = 460843809;
-  cdat->dsym_3781__DISCR_MAP_BASIC_BLOCKS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3781__DISCR_MAP_BASIC_BLOCKS));
- 
- /*inistring dstr_3782__DISCR_MAP_BASIC_*/
- /*_.VALSTR___V3788*/ curfptr[3787] = (void*)&cdat->dstr_3782__DISCR_MAP_BASIC_;
-  cdat->dstr_3782__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3782__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof(cdat->dstr_3782__DISCR_MAP_BASIC_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2189:/ iniobj");
- /*iniobj dobj_3783__DISCR_MAP_BASIC_BLOCKS*/
- if (((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))) != (melt_ptr_t)&cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS) {
+ /*_.VALDATA___V3777*/ curfptr[3776] = ((void*)(MELT_PREDEF(DISCR_MAP_EDGES)));
+  melt_assertmsg("iniobj checkdiscr dobj_3771__DISCR_MAP_EDGES", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3771__DISCR_MAP_EDGES.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3771__DISCR_MAP_EDGES.obj_num = OBMAG_MAPEDGES;
+  cdat->dobj_3771__DISCR_MAP_EDGES.obj_hash = 720741536;
+  cdat->dobj_3771__DISCR_MAP_EDGES.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3771__DISCR_MAP_EDGES));
+ 
+ /*inistring dstr_3772__DISCR_MAP_EDGES*/
+ /*_.VALSTR___V3778*/ curfptr[3777] = (void*)&cdat->dstr_3772__DISCR_MAP_EDGES;
+  cdat->dstr_3772__DISCR_MAP_EDGES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3772__DISCR_MAP_EDGES.val, "DISCR_MAP_EDGES", sizeof(cdat->dstr_3772__DISCR_MAP_EDGES.val)-1);
+ 
+ /*iniobj dsym_3773__DISCR_MAP_BASIC_BLOCKS*/
+ if (!/*_.VALDATA___V3779*/ curfptr[3778]) /*_.VALDATA___V3779*/ curfptr[3778] = (void*)&cdat->dsym_3773__DISCR_MAP_BASIC_BLOCKS;
+  melt_assertmsg("iniobj checkdiscr dsym_3773__DISCR_MAP_BASIC_BLOCKS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3773__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3773__DISCR_MAP_BASIC_BLOCKS.obj_hash = 460843809;
+  cdat->dsym_3773__DISCR_MAP_BASIC_BLOCKS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3773__DISCR_MAP_BASIC_BLOCKS));
+ 
+ /*inistring dstr_3774__DISCR_MAP_BASIC_*/
+ /*_.VALSTR___V3780*/ curfptr[3779] = (void*)&cdat->dstr_3774__DISCR_MAP_BASIC_;
+  cdat->dstr_3774__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3774__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof(cdat->dstr_3774__DISCR_MAP_BASIC_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2184:/ iniobj");
+ /*iniobj dobj_3775__DISCR_MAP_BASIC_BLOCKS*/
+ if (((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))) != (melt_ptr_t)&cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS))))) >= 5);
   };
- /*_.VALDATA___V3789*/ curfptr[3788] = ((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)));
-  melt_assertmsg("iniobj checkdiscr dobj_3783__DISCR_MAP_BASIC_BLOCKS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS.obj_num = OBMAG_MAPBASICBLOCKS;
-  cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS.obj_hash = 700285885;
-  cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3783__DISCR_MAP_BASIC_BLOCKS));
- 
- /*inistring dstr_3784__DISCR_MAP_BASIC_*/
- /*_.VALSTR___V3790*/ curfptr[3789] = (void*)&cdat->dstr_3784__DISCR_MAP_BASIC_;
-  cdat->dstr_3784__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3784__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof(cdat->dstr_3784__DISCR_MAP_BASIC_.val)-1);
- 
- /*iniobj dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM*/
- if (!/*_.VALDATA___V3791*/ curfptr[3790]) /*_.VALDATA___V3791*/ curfptr[3790] = (void*)&cdat->dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM;
-  melt_assertmsg("iniobj checkdiscr dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 543731239;
-  cdat->dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3785__DISCR_PPL_CONSTRAINT_SYSTEM));
- 
- /*inistring dstr_3786__DISCR_PPL_CONSTR*/
- /*_.VALSTR___V3792*/ curfptr[3791] = (void*)&cdat->dstr_3786__DISCR_PPL_CONSTR;
-  cdat->dstr_3786__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3786__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3786__DISCR_PPL_CONSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2199:/ iniobj");
- /*iniobj dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM*/
- if (!/*_.VALDATA___V3793*/ curfptr[3792]) /*_.VALDATA___V3793*/ curfptr[3792] = (void*)&cdat->dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM;
-  melt_assertmsg("iniobj checkdiscr dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM.obj_num = OBMAG_SPECPPL_CONSTRAINT_SYSTEM;
-  cdat->dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 163839065;
-  cdat->dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3787__DISCR_PPL_CONSTRAINT_SYSTEM));
- 
- /*inistring dstr_3788__DISCR_PPL_CONSTR*/
- /*_.VALSTR___V3794*/ curfptr[3793] = (void*)&cdat->dstr_3788__DISCR_PPL_CONSTR;
-  cdat->dstr_3788__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3788__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3788__DISCR_PPL_CONSTR.val)-1);
- 
- /*iniobj dsym_3789__DISCR_PPL_POLYHEDRON*/
- if (!/*_.VALDATA___V3795*/ curfptr[3794]) /*_.VALDATA___V3795*/ curfptr[3794] = (void*)&cdat->dsym_3789__DISCR_PPL_POLYHEDRON;
-  melt_assertmsg("iniobj checkdiscr dsym_3789__DISCR_PPL_POLYHEDRON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3789__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3789__DISCR_PPL_POLYHEDRON.obj_hash = 814954128;
-  cdat->dsym_3789__DISCR_PPL_POLYHEDRON.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3789__DISCR_PPL_POLYHEDRON));
- 
- /*inistring dstr_3790__DISCR_PPL_POLYHE*/
- /*_.VALSTR___V3796*/ curfptr[3795] = (void*)&cdat->dstr_3790__DISCR_PPL_POLYHE;
-  cdat->dstr_3790__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3790__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof(cdat->dstr_3790__DISCR_PPL_POLYHE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2207:/ iniobj");
- /*iniobj dobj_3791__DISCR_PPL_POLYHEDRON*/
- if (!/*_.VALDATA___V3797*/ curfptr[3796]) /*_.VALDATA___V3797*/ curfptr[3796] = (void*)&cdat->dobj_3791__DISCR_PPL_POLYHEDRON;
-  melt_assertmsg("iniobj checkdiscr dobj_3791__DISCR_PPL_POLYHEDRON", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3791__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3791__DISCR_PPL_POLYHEDRON.obj_num = OBMAG_SPECPPL_POLYHEDRON;
-  cdat->dobj_3791__DISCR_PPL_POLYHEDRON.obj_hash = 221061194;
-  cdat->dobj_3791__DISCR_PPL_POLYHEDRON.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3791__DISCR_PPL_POLYHEDRON));
- 
- /*inistring dstr_3792__DISCR_PPL_POLYHE*/
- /*_.VALSTR___V3798*/ curfptr[3797] = (void*)&cdat->dstr_3792__DISCR_PPL_POLYHE;
-  cdat->dstr_3792__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3792__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof(cdat->dstr_3792__DISCR_PPL_POLYHE.val)-1);
- 
- /*iniobj dsym_3793__DISCR_FILE*/
- if (!/*_.VALDATA___V3799*/ curfptr[3798]) /*_.VALDATA___V3799*/ curfptr[3798] = (void*)&cdat->dsym_3793__DISCR_FILE;
-  melt_assertmsg("iniobj checkdiscr dsym_3793__DISCR_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3793__DISCR_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3793__DISCR_FILE.obj_hash = 22500478;
-  cdat->dsym_3793__DISCR_FILE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3793__DISCR_FILE));
- 
- /*inistring dstr_3794__DISCR_FILE*/
- /*_.VALSTR___V3800*/ curfptr[3799] = (void*)&cdat->dstr_3794__DISCR_FILE;
-  cdat->dstr_3794__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3794__DISCR_FILE.val, "DISCR_FILE", sizeof(cdat->dstr_3794__DISCR_FILE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2216:/ iniobj");
- /*iniobj dobj_3795__DISCR_FILE*/
- if (!/*_.VALDATA___V3801*/ curfptr[3800]) /*_.VALDATA___V3801*/ curfptr[3800] = (void*)&cdat->dobj_3795__DISCR_FILE;
-  melt_assertmsg("iniobj checkdiscr dobj_3795__DISCR_FILE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3795__DISCR_FILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3795__DISCR_FILE.obj_num = OBMAG_SPEC_FILE;
-  cdat->dobj_3795__DISCR_FILE.obj_hash = 746962223;
-  cdat->dobj_3795__DISCR_FILE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3795__DISCR_FILE));
- 
- /*inistring dstr_3796__DISCR_FILE*/
- /*_.VALSTR___V3802*/ curfptr[3801] = (void*)&cdat->dstr_3796__DISCR_FILE;
-  cdat->dstr_3796__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3796__DISCR_FILE.val, "DISCR_FILE", sizeof(cdat->dstr_3796__DISCR_FILE.val)-1);
- 
- /*iniobj dsym_3797__DISCR_RAWFILE*/
- if (!/*_.VALDATA___V3803*/ curfptr[3802]) /*_.VALDATA___V3803*/ curfptr[3802] = (void*)&cdat->dsym_3797__DISCR_RAWFILE;
-  melt_assertmsg("iniobj checkdiscr dsym_3797__DISCR_RAWFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3797__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3797__DISCR_RAWFILE.obj_hash = 482138009;
-  cdat->dsym_3797__DISCR_RAWFILE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3797__DISCR_RAWFILE));
- 
- /*inistring dstr_3798__DISCR_RAWFILE*/
- /*_.VALSTR___V3804*/ curfptr[3803] = (void*)&cdat->dstr_3798__DISCR_RAWFILE;
-  cdat->dstr_3798__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3798__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof(cdat->dstr_3798__DISCR_RAWFILE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2226:/ iniobj");
- /*iniobj dobj_3799__DISCR_RAWFILE*/
- if (!/*_.VALDATA___V3805*/ curfptr[3804]) /*_.VALDATA___V3805*/ curfptr[3804] = (void*)&cdat->dobj_3799__DISCR_RAWFILE;
-  melt_assertmsg("iniobj checkdiscr dobj_3799__DISCR_RAWFILE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3799__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3799__DISCR_RAWFILE.obj_num = OBMAG_SPEC_RAWFILE;
-  cdat->dobj_3799__DISCR_RAWFILE.obj_hash = 187077140;
-  cdat->dobj_3799__DISCR_RAWFILE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3799__DISCR_RAWFILE));
- 
- /*inistring dstr_3800__DISCR_RAWFILE*/
- /*_.VALSTR___V3806*/ curfptr[3805] = (void*)&cdat->dstr_3800__DISCR_RAWFILE;
-  cdat->dstr_3800__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3800__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof(cdat->dstr_3800__DISCR_RAWFILE.val)-1);
- 
- /*iniobj dsym_3801__DISCR_CLASS_SEQUENCE*/
- if (!/*_.VALDATA___V3807*/ curfptr[3806]) /*_.VALDATA___V3807*/ curfptr[3806] = (void*)&cdat->dsym_3801__DISCR_CLASS_SEQUENCE;
-  melt_assertmsg("iniobj checkdiscr dsym_3801__DISCR_CLASS_SEQUENCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3801__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3801__DISCR_CLASS_SEQUENCE.obj_hash = 751197907;
-  cdat->dsym_3801__DISCR_CLASS_SEQUENCE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3801__DISCR_CLASS_SEQUENCE));
- 
- /*inistring dstr_3802__DISCR_CLASS_SEQU*/
- /*_.VALSTR___V3808*/ curfptr[3807] = (void*)&cdat->dstr_3802__DISCR_CLASS_SEQU;
-  cdat->dstr_3802__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3802__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof(cdat->dstr_3802__DISCR_CLASS_SEQU.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2236:/ iniobj");
- /*iniobj dobj_3803__DISCR_CLASS_SEQUENCE*/
- if (((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_3803__DISCR_CLASS_SEQUENCE) {
+ /*_.VALDATA___V3781*/ curfptr[3780] = ((void*)(MELT_PREDEF(DISCR_MAP_BASIC_BLOCKS)));
+  melt_assertmsg("iniobj checkdiscr dobj_3775__DISCR_MAP_BASIC_BLOCKS", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS.obj_num = OBMAG_MAPBASICBLOCKS;
+  cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS.obj_hash = 850155337;
+  cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3775__DISCR_MAP_BASIC_BLOCKS));
+ 
+ /*inistring dstr_3776__DISCR_MAP_BASIC_*/
+ /*_.VALSTR___V3782*/ curfptr[3781] = (void*)&cdat->dstr_3776__DISCR_MAP_BASIC_;
+  cdat->dstr_3776__DISCR_MAP_BASIC_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3776__DISCR_MAP_BASIC_.val, "DISCR_MAP_BASIC_BLOCKS", sizeof(cdat->dstr_3776__DISCR_MAP_BASIC_.val)-1);
+ 
+ /*iniobj dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM*/
+ if (!/*_.VALDATA___V3783*/ curfptr[3782]) /*_.VALDATA___V3783*/ curfptr[3782] = (void*)&cdat->dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM;
+  melt_assertmsg("iniobj checkdiscr dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 543731239;
+  cdat->dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3777__DISCR_PPL_CONSTRAINT_SYSTEM));
+ 
+ /*inistring dstr_3778__DISCR_PPL_CONSTR*/
+ /*_.VALSTR___V3784*/ curfptr[3783] = (void*)&cdat->dstr_3778__DISCR_PPL_CONSTR;
+  cdat->dstr_3778__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3778__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3778__DISCR_PPL_CONSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2194:/ iniobj");
+ /*iniobj dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM*/
+ if (!/*_.VALDATA___V3785*/ curfptr[3784]) /*_.VALDATA___V3785*/ curfptr[3784] = (void*)&cdat->dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM;
+  melt_assertmsg("iniobj checkdiscr dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM.obj_num = OBMAG_SPECPPL_CONSTRAINT_SYSTEM;
+  cdat->dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM.obj_hash = 15997276;
+  cdat->dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3779__DISCR_PPL_CONSTRAINT_SYSTEM));
+ 
+ /*inistring dstr_3780__DISCR_PPL_CONSTR*/
+ /*_.VALSTR___V3786*/ curfptr[3785] = (void*)&cdat->dstr_3780__DISCR_PPL_CONSTR;
+  cdat->dstr_3780__DISCR_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3780__DISCR_PPL_CONSTR.val, "DISCR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3780__DISCR_PPL_CONSTR.val)-1);
+ 
+ /*iniobj dsym_3781__DISCR_PPL_POLYHEDRON*/
+ if (!/*_.VALDATA___V3787*/ curfptr[3786]) /*_.VALDATA___V3787*/ curfptr[3786] = (void*)&cdat->dsym_3781__DISCR_PPL_POLYHEDRON;
+  melt_assertmsg("iniobj checkdiscr dsym_3781__DISCR_PPL_POLYHEDRON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3781__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3781__DISCR_PPL_POLYHEDRON.obj_hash = 814954128;
+  cdat->dsym_3781__DISCR_PPL_POLYHEDRON.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3781__DISCR_PPL_POLYHEDRON));
+ 
+ /*inistring dstr_3782__DISCR_PPL_POLYHE*/
+ /*_.VALSTR___V3788*/ curfptr[3787] = (void*)&cdat->dstr_3782__DISCR_PPL_POLYHE;
+  cdat->dstr_3782__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3782__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof(cdat->dstr_3782__DISCR_PPL_POLYHE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2202:/ iniobj");
+ /*iniobj dobj_3783__DISCR_PPL_POLYHEDRON*/
+ if (!/*_.VALDATA___V3789*/ curfptr[3788]) /*_.VALDATA___V3789*/ curfptr[3788] = (void*)&cdat->dobj_3783__DISCR_PPL_POLYHEDRON;
+  melt_assertmsg("iniobj checkdiscr dobj_3783__DISCR_PPL_POLYHEDRON", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3783__DISCR_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3783__DISCR_PPL_POLYHEDRON.obj_num = OBMAG_SPECPPL_POLYHEDRON;
+  cdat->dobj_3783__DISCR_PPL_POLYHEDRON.obj_hash = 479790174;
+  cdat->dobj_3783__DISCR_PPL_POLYHEDRON.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3783__DISCR_PPL_POLYHEDRON));
+ 
+ /*inistring dstr_3784__DISCR_PPL_POLYHE*/
+ /*_.VALSTR___V3790*/ curfptr[3789] = (void*)&cdat->dstr_3784__DISCR_PPL_POLYHE;
+  cdat->dstr_3784__DISCR_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3784__DISCR_PPL_POLYHE.val, "DISCR_PPL_POLYHEDRON", sizeof(cdat->dstr_3784__DISCR_PPL_POLYHE.val)-1);
+ 
+ /*iniobj dsym_3785__DISCR_FILE*/
+ if (!/*_.VALDATA___V3791*/ curfptr[3790]) /*_.VALDATA___V3791*/ curfptr[3790] = (void*)&cdat->dsym_3785__DISCR_FILE;
+  melt_assertmsg("iniobj checkdiscr dsym_3785__DISCR_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3785__DISCR_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3785__DISCR_FILE.obj_hash = 22500478;
+  cdat->dsym_3785__DISCR_FILE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3785__DISCR_FILE));
+ 
+ /*inistring dstr_3786__DISCR_FILE*/
+ /*_.VALSTR___V3792*/ curfptr[3791] = (void*)&cdat->dstr_3786__DISCR_FILE;
+  cdat->dstr_3786__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3786__DISCR_FILE.val, "DISCR_FILE", sizeof(cdat->dstr_3786__DISCR_FILE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2211:/ iniobj");
+ /*iniobj dobj_3787__DISCR_FILE*/
+ if (!/*_.VALDATA___V3793*/ curfptr[3792]) /*_.VALDATA___V3793*/ curfptr[3792] = (void*)&cdat->dobj_3787__DISCR_FILE;
+  melt_assertmsg("iniobj checkdiscr dobj_3787__DISCR_FILE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3787__DISCR_FILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3787__DISCR_FILE.obj_num = OBMAG_SPEC_FILE;
+  cdat->dobj_3787__DISCR_FILE.obj_hash = 1055872871;
+  cdat->dobj_3787__DISCR_FILE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3787__DISCR_FILE));
+ 
+ /*inistring dstr_3788__DISCR_FILE*/
+ /*_.VALSTR___V3794*/ curfptr[3793] = (void*)&cdat->dstr_3788__DISCR_FILE;
+  cdat->dstr_3788__DISCR_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3788__DISCR_FILE.val, "DISCR_FILE", sizeof(cdat->dstr_3788__DISCR_FILE.val)-1);
+ 
+ /*iniobj dsym_3789__DISCR_RAWFILE*/
+ if (!/*_.VALDATA___V3795*/ curfptr[3794]) /*_.VALDATA___V3795*/ curfptr[3794] = (void*)&cdat->dsym_3789__DISCR_RAWFILE;
+  melt_assertmsg("iniobj checkdiscr dsym_3789__DISCR_RAWFILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3789__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3789__DISCR_RAWFILE.obj_hash = 482138009;
+  cdat->dsym_3789__DISCR_RAWFILE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3789__DISCR_RAWFILE));
+ 
+ /*inistring dstr_3790__DISCR_RAWFILE*/
+ /*_.VALSTR___V3796*/ curfptr[3795] = (void*)&cdat->dstr_3790__DISCR_RAWFILE;
+  cdat->dstr_3790__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3790__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof(cdat->dstr_3790__DISCR_RAWFILE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2221:/ iniobj");
+ /*iniobj dobj_3791__DISCR_RAWFILE*/
+ if (!/*_.VALDATA___V3797*/ curfptr[3796]) /*_.VALDATA___V3797*/ curfptr[3796] = (void*)&cdat->dobj_3791__DISCR_RAWFILE;
+  melt_assertmsg("iniobj checkdiscr dobj_3791__DISCR_RAWFILE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3791__DISCR_RAWFILE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3791__DISCR_RAWFILE.obj_num = OBMAG_SPEC_RAWFILE;
+  cdat->dobj_3791__DISCR_RAWFILE.obj_hash = 273143646;
+  cdat->dobj_3791__DISCR_RAWFILE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3791__DISCR_RAWFILE));
+ 
+ /*inistring dstr_3792__DISCR_RAWFILE*/
+ /*_.VALSTR___V3798*/ curfptr[3797] = (void*)&cdat->dstr_3792__DISCR_RAWFILE;
+  cdat->dstr_3792__DISCR_RAWFILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3792__DISCR_RAWFILE.val, "DISCR_RAWFILE", sizeof(cdat->dstr_3792__DISCR_RAWFILE.val)-1);
+ 
+ /*iniobj dsym_3793__DISCR_CLASS_SEQUENCE*/
+ if (!/*_.VALDATA___V3799*/ curfptr[3798]) /*_.VALDATA___V3799*/ curfptr[3798] = (void*)&cdat->dsym_3793__DISCR_CLASS_SEQUENCE;
+  melt_assertmsg("iniobj checkdiscr dsym_3793__DISCR_CLASS_SEQUENCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3793__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3793__DISCR_CLASS_SEQUENCE.obj_hash = 751197907;
+  cdat->dsym_3793__DISCR_CLASS_SEQUENCE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3793__DISCR_CLASS_SEQUENCE));
+ 
+ /*inistring dstr_3794__DISCR_CLASS_SEQU*/
+ /*_.VALSTR___V3800*/ curfptr[3799] = (void*)&cdat->dstr_3794__DISCR_CLASS_SEQU;
+  cdat->dstr_3794__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3794__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof(cdat->dstr_3794__DISCR_CLASS_SEQU.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2231:/ iniobj");
+ /*iniobj dobj_3795__DISCR_CLASS_SEQUENCE*/
+ if (((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))) != (melt_ptr_t)&cdat->dobj_3795__DISCR_CLASS_SEQUENCE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))))) >= 5);
   };
- /*_.VALDATA___V3809*/ curfptr[3808] = ((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3803__DISCR_CLASS_SEQUENCE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3803__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3803__DISCR_CLASS_SEQUENCE.obj_num = OBMAG_MULTIPLE;
-  cdat->dobj_3803__DISCR_CLASS_SEQUENCE.obj_hash = 790776762;
-  cdat->dobj_3803__DISCR_CLASS_SEQUENCE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3803__DISCR_CLASS_SEQUENCE));
- 
- /*inistring dstr_3804__DISCR_CLASS_SEQU*/
- /*_.VALSTR___V3810*/ curfptr[3809] = (void*)&cdat->dstr_3804__DISCR_CLASS_SEQU;
-  cdat->dstr_3804__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3804__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof(cdat->dstr_3804__DISCR_CLASS_SEQU.val)-1);
- 
- /*iniobj dsym_3805__DISCR_METHOD_MAP*/
- if (!/*_.VALDATA___V3811*/ curfptr[3810]) /*_.VALDATA___V3811*/ curfptr[3810] = (void*)&cdat->dsym_3805__DISCR_METHOD_MAP;
-  melt_assertmsg("iniobj checkdiscr dsym_3805__DISCR_METHOD_MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3805__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3805__DISCR_METHOD_MAP.obj_hash = 132275480;
-  cdat->dsym_3805__DISCR_METHOD_MAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3805__DISCR_METHOD_MAP));
- 
- /*inistring dstr_3806__DISCR_METHOD_MAP*/
- /*_.VALSTR___V3812*/ curfptr[3811] = (void*)&cdat->dstr_3806__DISCR_METHOD_MAP;
-  cdat->dstr_3806__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3806__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof(cdat->dstr_3806__DISCR_METHOD_MAP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2247:/ iniobj");
- /*iniobj dobj_3807__DISCR_METHOD_MAP*/
- if (((void*)(MELT_PREDEF(DISCR_METHOD_MAP))) != (melt_ptr_t)&cdat->dobj_3807__DISCR_METHOD_MAP) {
+ /*_.VALDATA___V3801*/ curfptr[3800] = ((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3795__DISCR_CLASS_SEQUENCE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3795__DISCR_CLASS_SEQUENCE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3795__DISCR_CLASS_SEQUENCE.obj_num = OBMAG_MULTIPLE;
+  cdat->dobj_3795__DISCR_CLASS_SEQUENCE.obj_hash = 603453248;
+  cdat->dobj_3795__DISCR_CLASS_SEQUENCE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3795__DISCR_CLASS_SEQUENCE));
+ 
+ /*inistring dstr_3796__DISCR_CLASS_SEQU*/
+ /*_.VALSTR___V3802*/ curfptr[3801] = (void*)&cdat->dstr_3796__DISCR_CLASS_SEQU;
+  cdat->dstr_3796__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3796__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof(cdat->dstr_3796__DISCR_CLASS_SEQU.val)-1);
+ 
+ /*iniobj dsym_3797__DISCR_METHOD_MAP*/
+ if (!/*_.VALDATA___V3803*/ curfptr[3802]) /*_.VALDATA___V3803*/ curfptr[3802] = (void*)&cdat->dsym_3797__DISCR_METHOD_MAP;
+  melt_assertmsg("iniobj checkdiscr dsym_3797__DISCR_METHOD_MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3797__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3797__DISCR_METHOD_MAP.obj_hash = 132275480;
+  cdat->dsym_3797__DISCR_METHOD_MAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3797__DISCR_METHOD_MAP));
+ 
+ /*inistring dstr_3798__DISCR_METHOD_MAP*/
+ /*_.VALSTR___V3804*/ curfptr[3803] = (void*)&cdat->dstr_3798__DISCR_METHOD_MAP;
+  cdat->dstr_3798__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3798__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof(cdat->dstr_3798__DISCR_METHOD_MAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2242:/ iniobj");
+ /*iniobj dobj_3799__DISCR_METHOD_MAP*/
+ if (((void*)(MELT_PREDEF(DISCR_METHOD_MAP))) != (melt_ptr_t)&cdat->dobj_3799__DISCR_METHOD_MAP) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_METHOD_MAP)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_METHOD_MAP))))) >= 5);
   };
- /*_.VALDATA___V3813*/ curfptr[3812] = ((void*)(MELT_PREDEF(DISCR_METHOD_MAP)));
-  melt_assertmsg("iniobj checkdiscr dobj_3807__DISCR_METHOD_MAP", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3807__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3807__DISCR_METHOD_MAP.obj_num = OBMAG_MAPOBJECTS;
-  cdat->dobj_3807__DISCR_METHOD_MAP.obj_hash = 1004456146;
-  cdat->dobj_3807__DISCR_METHOD_MAP.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3807__DISCR_METHOD_MAP));
- 
- /*inistring dstr_3808__DISCR_METHOD_MAP*/
- /*_.VALSTR___V3814*/ curfptr[3813] = (void*)&cdat->dstr_3808__DISCR_METHOD_MAP;
-  cdat->dstr_3808__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3808__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof(cdat->dstr_3808__DISCR_METHOD_MAP.val)-1);
- 
- /*iniobj dsym_3809__DISCR_CHARACTER_INTEGER*/
- if (!/*_.VALDATA___V3815*/ curfptr[3814]) /*_.VALDATA___V3815*/ curfptr[3814] = (void*)&cdat->dsym_3809__DISCR_CHARACTER_INTEGER;
-  melt_assertmsg("iniobj checkdiscr dsym_3809__DISCR_CHARACTER_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3809__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3809__DISCR_CHARACTER_INTEGER.obj_hash = 370833943;
-  cdat->dsym_3809__DISCR_CHARACTER_INTEGER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3809__DISCR_CHARACTER_INTEGER));
- 
- /*inistring dstr_3810__DISCR_CHARACTER_*/
- /*_.VALSTR___V3816*/ curfptr[3815] = (void*)&cdat->dstr_3810__DISCR_CHARACTER_;
-  cdat->dstr_3810__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3810__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof(cdat->dstr_3810__DISCR_CHARACTER_.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2258:/ iniobj");
- /*iniobj dobj_3811__DISCR_CHARACTER_INTEGER*/
- if (((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))) != (melt_ptr_t)&cdat->dobj_3811__DISCR_CHARACTER_INTEGER) {
+ /*_.VALDATA___V3805*/ curfptr[3804] = ((void*)(MELT_PREDEF(DISCR_METHOD_MAP)));
+  melt_assertmsg("iniobj checkdiscr dobj_3799__DISCR_METHOD_MAP", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3799__DISCR_METHOD_MAP.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3799__DISCR_METHOD_MAP.obj_num = OBMAG_MAPOBJECTS;
+  cdat->dobj_3799__DISCR_METHOD_MAP.obj_hash = 396806234;
+  cdat->dobj_3799__DISCR_METHOD_MAP.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3799__DISCR_METHOD_MAP));
+ 
+ /*inistring dstr_3800__DISCR_METHOD_MAP*/
+ /*_.VALSTR___V3806*/ curfptr[3805] = (void*)&cdat->dstr_3800__DISCR_METHOD_MAP;
+  cdat->dstr_3800__DISCR_METHOD_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3800__DISCR_METHOD_MAP.val, "DISCR_METHOD_MAP", sizeof(cdat->dstr_3800__DISCR_METHOD_MAP.val)-1);
+ 
+ /*iniobj dsym_3801__DISCR_CHARACTER_INTEGER*/
+ if (!/*_.VALDATA___V3807*/ curfptr[3806]) /*_.VALDATA___V3807*/ curfptr[3806] = (void*)&cdat->dsym_3801__DISCR_CHARACTER_INTEGER;
+  melt_assertmsg("iniobj checkdiscr dsym_3801__DISCR_CHARACTER_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3801__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3801__DISCR_CHARACTER_INTEGER.obj_hash = 370833943;
+  cdat->dsym_3801__DISCR_CHARACTER_INTEGER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3801__DISCR_CHARACTER_INTEGER));
+ 
+ /*inistring dstr_3802__DISCR_CHARACTER_*/
+ /*_.VALSTR___V3808*/ curfptr[3807] = (void*)&cdat->dstr_3802__DISCR_CHARACTER_;
+  cdat->dstr_3802__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3802__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof(cdat->dstr_3802__DISCR_CHARACTER_.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2253:/ iniobj");
+ /*iniobj dobj_3803__DISCR_CHARACTER_INTEGER*/
+ if (((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))) != (melt_ptr_t)&cdat->dobj_3803__DISCR_CHARACTER_INTEGER) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER))))) >= 5);
   };
- /*_.VALDATA___V3817*/ curfptr[3816] = ((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER)));
-  melt_assertmsg("iniobj checkdiscr dobj_3811__DISCR_CHARACTER_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3811__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3811__DISCR_CHARACTER_INTEGER.obj_num = OBMAG_INT;
-  cdat->dobj_3811__DISCR_CHARACTER_INTEGER.obj_hash = 242918978;
-  cdat->dobj_3811__DISCR_CHARACTER_INTEGER.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3811__DISCR_CHARACTER_INTEGER));
- 
- /*inistring dstr_3812__DISCR_CHARACTER_*/
- /*_.VALSTR___V3818*/ curfptr[3817] = (void*)&cdat->dstr_3812__DISCR_CHARACTER_;
-  cdat->dstr_3812__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3812__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof(cdat->dstr_3812__DISCR_CHARACTER_.val)-1);
- 
- /*iniobj dsym_3813__DISCR_MIXED_INTEGER*/
- if (!/*_.VALDATA___V3819*/ curfptr[3818]) /*_.VALDATA___V3819*/ curfptr[3818] = (void*)&cdat->dsym_3813__DISCR_MIXED_INTEGER;
-  melt_assertmsg("iniobj checkdiscr dsym_3813__DISCR_MIXED_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3813__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3813__DISCR_MIXED_INTEGER.obj_hash = 355248820;
-  cdat->dsym_3813__DISCR_MIXED_INTEGER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3813__DISCR_MIXED_INTEGER));
- 
- /*inistring dstr_3814__DISCR_MIXED_INTE*/
- /*_.VALSTR___V3820*/ curfptr[3819] = (void*)&cdat->dstr_3814__DISCR_MIXED_INTE;
-  cdat->dstr_3814__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3814__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof(cdat->dstr_3814__DISCR_MIXED_INTE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2269:/ iniobj");
- /*iniobj dobj_3815__DISCR_MIXED_INTEGER*/
- if (((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))) != (melt_ptr_t)&cdat->dobj_3815__DISCR_MIXED_INTEGER) {
+ /*_.VALDATA___V3809*/ curfptr[3808] = ((void*)(MELT_PREDEF(DISCR_CHARACTER_INTEGER)));
+  melt_assertmsg("iniobj checkdiscr dobj_3803__DISCR_CHARACTER_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3803__DISCR_CHARACTER_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3803__DISCR_CHARACTER_INTEGER.obj_num = OBMAG_INT;
+  cdat->dobj_3803__DISCR_CHARACTER_INTEGER.obj_hash = 514830986;
+  cdat->dobj_3803__DISCR_CHARACTER_INTEGER.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3803__DISCR_CHARACTER_INTEGER));
+ 
+ /*inistring dstr_3804__DISCR_CHARACTER_*/
+ /*_.VALSTR___V3810*/ curfptr[3809] = (void*)&cdat->dstr_3804__DISCR_CHARACTER_;
+  cdat->dstr_3804__DISCR_CHARACTER_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3804__DISCR_CHARACTER_.val, "DISCR_CHARACTER_INTEGER", sizeof(cdat->dstr_3804__DISCR_CHARACTER_.val)-1);
+ 
+ /*iniobj dsym_3805__DISCR_MIXED_INTEGER*/
+ if (!/*_.VALDATA___V3811*/ curfptr[3810]) /*_.VALDATA___V3811*/ curfptr[3810] = (void*)&cdat->dsym_3805__DISCR_MIXED_INTEGER;
+  melt_assertmsg("iniobj checkdiscr dsym_3805__DISCR_MIXED_INTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3805__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3805__DISCR_MIXED_INTEGER.obj_hash = 355248820;
+  cdat->dsym_3805__DISCR_MIXED_INTEGER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3805__DISCR_MIXED_INTEGER));
+ 
+ /*inistring dstr_3806__DISCR_MIXED_INTE*/
+ /*_.VALSTR___V3812*/ curfptr[3811] = (void*)&cdat->dstr_3806__DISCR_MIXED_INTE;
+  cdat->dstr_3806__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3806__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof(cdat->dstr_3806__DISCR_MIXED_INTE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2264:/ iniobj");
+ /*iniobj dobj_3807__DISCR_MIXED_INTEGER*/
+ if (((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))) != (melt_ptr_t)&cdat->dobj_3807__DISCR_MIXED_INTEGER) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER))))) >= 5);
   };
- /*_.VALDATA___V3821*/ curfptr[3820] = ((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER)));
-  melt_assertmsg("iniobj checkdiscr dobj_3815__DISCR_MIXED_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3815__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3815__DISCR_MIXED_INTEGER.obj_num = OBMAG_MIXINT;
-  cdat->dobj_3815__DISCR_MIXED_INTEGER.obj_hash = 1044386654;
-  cdat->dobj_3815__DISCR_MIXED_INTEGER.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3815__DISCR_MIXED_INTEGER));
- 
- /*inistring dstr_3816__DISCR_MIXED_INTE*/
- /*_.VALSTR___V3822*/ curfptr[3821] = (void*)&cdat->dstr_3816__DISCR_MIXED_INTE;
-  cdat->dstr_3816__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3816__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof(cdat->dstr_3816__DISCR_MIXED_INTE.val)-1);
- 
- /*iniobj dsym_3817__DISCR_MIXED_BIGINT*/
- if (!/*_.VALDATA___V3823*/ curfptr[3822]) /*_.VALDATA___V3823*/ curfptr[3822] = (void*)&cdat->dsym_3817__DISCR_MIXED_BIGINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3817__DISCR_MIXED_BIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3817__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3817__DISCR_MIXED_BIGINT.obj_hash = 484145131;
-  cdat->dsym_3817__DISCR_MIXED_BIGINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3817__DISCR_MIXED_BIGINT));
- 
- /*inistring dstr_3818__DISCR_MIXED_BIGI*/
- /*_.VALSTR___V3824*/ curfptr[3823] = (void*)&cdat->dstr_3818__DISCR_MIXED_BIGI;
-  cdat->dstr_3818__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3818__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof(cdat->dstr_3818__DISCR_MIXED_BIGI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2279:/ iniobj");
- /*iniobj dobj_3819__DISCR_MIXED_BIGINT*/
- if (((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))) != (melt_ptr_t)&cdat->dobj_3819__DISCR_MIXED_BIGINT) {
+ /*_.VALDATA___V3813*/ curfptr[3812] = ((void*)(MELT_PREDEF(DISCR_MIXED_INTEGER)));
+  melt_assertmsg("iniobj checkdiscr dobj_3807__DISCR_MIXED_INTEGER", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3807__DISCR_MIXED_INTEGER.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3807__DISCR_MIXED_INTEGER.obj_num = OBMAG_MIXINT;
+  cdat->dobj_3807__DISCR_MIXED_INTEGER.obj_hash = 730592385;
+  cdat->dobj_3807__DISCR_MIXED_INTEGER.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3807__DISCR_MIXED_INTEGER));
+ 
+ /*inistring dstr_3808__DISCR_MIXED_INTE*/
+ /*_.VALSTR___V3814*/ curfptr[3813] = (void*)&cdat->dstr_3808__DISCR_MIXED_INTE;
+  cdat->dstr_3808__DISCR_MIXED_INTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3808__DISCR_MIXED_INTE.val, "DISCR_MIXED_INTEGER", sizeof(cdat->dstr_3808__DISCR_MIXED_INTE.val)-1);
+ 
+ /*iniobj dsym_3809__DISCR_MIXED_BIGINT*/
+ if (!/*_.VALDATA___V3815*/ curfptr[3814]) /*_.VALDATA___V3815*/ curfptr[3814] = (void*)&cdat->dsym_3809__DISCR_MIXED_BIGINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3809__DISCR_MIXED_BIGINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3809__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3809__DISCR_MIXED_BIGINT.obj_hash = 484145131;
+  cdat->dsym_3809__DISCR_MIXED_BIGINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3809__DISCR_MIXED_BIGINT));
+ 
+ /*inistring dstr_3810__DISCR_MIXED_BIGI*/
+ /*_.VALSTR___V3816*/ curfptr[3815] = (void*)&cdat->dstr_3810__DISCR_MIXED_BIGI;
+  cdat->dstr_3810__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3810__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof(cdat->dstr_3810__DISCR_MIXED_BIGI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2274:/ iniobj");
+ /*iniobj dobj_3811__DISCR_MIXED_BIGINT*/
+ if (((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))) != (melt_ptr_t)&cdat->dobj_3811__DISCR_MIXED_BIGINT) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT))))) >= 5);
   };
- /*_.VALDATA___V3825*/ curfptr[3824] = ((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT)));
-  melt_assertmsg("iniobj checkdiscr dobj_3819__DISCR_MIXED_BIGINT", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3819__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3819__DISCR_MIXED_BIGINT.obj_num = OBMAG_MIXBIGINT;
-  cdat->dobj_3819__DISCR_MIXED_BIGINT.obj_hash = 713420335;
-  cdat->dobj_3819__DISCR_MIXED_BIGINT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3819__DISCR_MIXED_BIGINT));
- 
- /*inistring dstr_3820__DISCR_MIXED_BIGI*/
- /*_.VALSTR___V3826*/ curfptr[3825] = (void*)&cdat->dstr_3820__DISCR_MIXED_BIGI;
-  cdat->dstr_3820__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3820__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof(cdat->dstr_3820__DISCR_MIXED_BIGI.val)-1);
- 
- /*iniobj dsym_3821__DISCR_MIXED_LOCATION*/
- if (!/*_.VALDATA___V3827*/ curfptr[3826]) /*_.VALDATA___V3827*/ curfptr[3826] = (void*)&cdat->dsym_3821__DISCR_MIXED_LOCATION;
-  melt_assertmsg("iniobj checkdiscr dsym_3821__DISCR_MIXED_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3821__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3821__DISCR_MIXED_LOCATION.obj_hash = 1019373807;
-  cdat->dsym_3821__DISCR_MIXED_LOCATION.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3821__DISCR_MIXED_LOCATION));
- 
- /*inistring dstr_3822__DISCR_MIXED_LOCA*/
- /*_.VALSTR___V3828*/ curfptr[3827] = (void*)&cdat->dstr_3822__DISCR_MIXED_LOCA;
-  cdat->dstr_3822__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3822__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof(cdat->dstr_3822__DISCR_MIXED_LOCA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2290:/ iniobj");
- /*iniobj dobj_3823__DISCR_MIXED_LOCATION*/
- if (((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))) != (melt_ptr_t)&cdat->dobj_3823__DISCR_MIXED_LOCATION) {
+ /*_.VALDATA___V3817*/ curfptr[3816] = ((void*)(MELT_PREDEF(DISCR_MIXED_BIGINT)));
+  melt_assertmsg("iniobj checkdiscr dobj_3811__DISCR_MIXED_BIGINT", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3811__DISCR_MIXED_BIGINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3811__DISCR_MIXED_BIGINT.obj_num = OBMAG_MIXBIGINT;
+  cdat->dobj_3811__DISCR_MIXED_BIGINT.obj_hash = 374598659;
+  cdat->dobj_3811__DISCR_MIXED_BIGINT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3811__DISCR_MIXED_BIGINT));
+ 
+ /*inistring dstr_3812__DISCR_MIXED_BIGI*/
+ /*_.VALSTR___V3818*/ curfptr[3817] = (void*)&cdat->dstr_3812__DISCR_MIXED_BIGI;
+  cdat->dstr_3812__DISCR_MIXED_BIGI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3812__DISCR_MIXED_BIGI.val, "DISCR_MIXED_BIGINT", sizeof(cdat->dstr_3812__DISCR_MIXED_BIGI.val)-1);
+ 
+ /*iniobj dsym_3813__DISCR_MIXED_LOCATION*/
+ if (!/*_.VALDATA___V3819*/ curfptr[3818]) /*_.VALDATA___V3819*/ curfptr[3818] = (void*)&cdat->dsym_3813__DISCR_MIXED_LOCATION;
+  melt_assertmsg("iniobj checkdiscr dsym_3813__DISCR_MIXED_LOCATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3813__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3813__DISCR_MIXED_LOCATION.obj_hash = 1019373807;
+  cdat->dsym_3813__DISCR_MIXED_LOCATION.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3813__DISCR_MIXED_LOCATION));
+ 
+ /*inistring dstr_3814__DISCR_MIXED_LOCA*/
+ /*_.VALSTR___V3820*/ curfptr[3819] = (void*)&cdat->dstr_3814__DISCR_MIXED_LOCA;
+  cdat->dstr_3814__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3814__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof(cdat->dstr_3814__DISCR_MIXED_LOCA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2285:/ iniobj");
+ /*iniobj dobj_3815__DISCR_MIXED_LOCATION*/
+ if (((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))) != (melt_ptr_t)&cdat->dobj_3815__DISCR_MIXED_LOCATION) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION))))) >= 5);
   };
- /*_.VALDATA___V3829*/ curfptr[3828] = ((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION)));
-  melt_assertmsg("iniobj checkdiscr dobj_3823__DISCR_MIXED_LOCATION", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3823__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3823__DISCR_MIXED_LOCATION.obj_num = OBMAG_MIXLOC;
-  cdat->dobj_3823__DISCR_MIXED_LOCATION.obj_hash = 713041839;
-  cdat->dobj_3823__DISCR_MIXED_LOCATION.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3823__DISCR_MIXED_LOCATION));
- 
- /*inistring dstr_3824__DISCR_MIXED_LOCA*/
- /*_.VALSTR___V3830*/ curfptr[3829] = (void*)&cdat->dstr_3824__DISCR_MIXED_LOCA;
-  cdat->dstr_3824__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3824__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof(cdat->dstr_3824__DISCR_MIXED_LOCA.val)-1);
- 
- /*iniobj dsym_3825__DISCR_CLOSURE*/
- if (!/*_.VALDATA___V3831*/ curfptr[3830]) /*_.VALDATA___V3831*/ curfptr[3830] = (void*)&cdat->dsym_3825__DISCR_CLOSURE;
-  melt_assertmsg("iniobj checkdiscr dsym_3825__DISCR_CLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3825__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3825__DISCR_CLOSURE.obj_hash = 99248147;
-  cdat->dsym_3825__DISCR_CLOSURE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3825__DISCR_CLOSURE));
- 
- /*inistring dstr_3826__DISCR_CLOSURE*/
- /*_.VALSTR___V3832*/ curfptr[3831] = (void*)&cdat->dstr_3826__DISCR_CLOSURE;
-  cdat->dstr_3826__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3826__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof(cdat->dstr_3826__DISCR_CLOSURE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2300:/ iniobj");
- /*iniobj dobj_3827__DISCR_CLOSURE*/
- if (((void*)(MELT_PREDEF(DISCR_CLOSURE))) != (melt_ptr_t)&cdat->dobj_3827__DISCR_CLOSURE) {
+ /*_.VALDATA___V3821*/ curfptr[3820] = ((void*)(MELT_PREDEF(DISCR_MIXED_LOCATION)));
+  melt_assertmsg("iniobj checkdiscr dobj_3815__DISCR_MIXED_LOCATION", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3815__DISCR_MIXED_LOCATION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3815__DISCR_MIXED_LOCATION.obj_num = OBMAG_MIXLOC;
+  cdat->dobj_3815__DISCR_MIXED_LOCATION.obj_hash = 277423652;
+  cdat->dobj_3815__DISCR_MIXED_LOCATION.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3815__DISCR_MIXED_LOCATION));
+ 
+ /*inistring dstr_3816__DISCR_MIXED_LOCA*/
+ /*_.VALSTR___V3822*/ curfptr[3821] = (void*)&cdat->dstr_3816__DISCR_MIXED_LOCA;
+  cdat->dstr_3816__DISCR_MIXED_LOCA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3816__DISCR_MIXED_LOCA.val, "DISCR_MIXED_LOCATION", sizeof(cdat->dstr_3816__DISCR_MIXED_LOCA.val)-1);
+ 
+ /*iniobj dsym_3817__DISCR_CLOSURE*/
+ if (!/*_.VALDATA___V3823*/ curfptr[3822]) /*_.VALDATA___V3823*/ curfptr[3822] = (void*)&cdat->dsym_3817__DISCR_CLOSURE;
+  melt_assertmsg("iniobj checkdiscr dsym_3817__DISCR_CLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3817__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3817__DISCR_CLOSURE.obj_hash = 99248147;
+  cdat->dsym_3817__DISCR_CLOSURE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3817__DISCR_CLOSURE));
+ 
+ /*inistring dstr_3818__DISCR_CLOSURE*/
+ /*_.VALSTR___V3824*/ curfptr[3823] = (void*)&cdat->dstr_3818__DISCR_CLOSURE;
+  cdat->dstr_3818__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3818__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof(cdat->dstr_3818__DISCR_CLOSURE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2295:/ iniobj");
+ /*iniobj dobj_3819__DISCR_CLOSURE*/
+ if (((void*)(MELT_PREDEF(DISCR_CLOSURE))) != (melt_ptr_t)&cdat->dobj_3819__DISCR_CLOSURE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_CLOSURE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))))) >= 5);
   };
- /*_.VALDATA___V3833*/ curfptr[3832] = ((void*)(MELT_PREDEF(DISCR_CLOSURE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3827__DISCR_CLOSURE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3827__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3827__DISCR_CLOSURE.obj_num = OBMAG_CLOSURE;
-  cdat->dobj_3827__DISCR_CLOSURE.obj_hash = 580939787;
-  cdat->dobj_3827__DISCR_CLOSURE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3827__DISCR_CLOSURE));
- 
- /*inistring dstr_3828__DISCR_CLOSURE*/
- /*_.VALSTR___V3834*/ curfptr[3833] = (void*)&cdat->dstr_3828__DISCR_CLOSURE;
-  cdat->dstr_3828__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3828__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof(cdat->dstr_3828__DISCR_CLOSURE.val)-1);
- 
- /*iniobj dsym_3829__DISCR_ROUTINE*/
- if (!/*_.VALDATA___V3835*/ curfptr[3834]) /*_.VALDATA___V3835*/ curfptr[3834] = (void*)&cdat->dsym_3829__DISCR_ROUTINE;
-  melt_assertmsg("iniobj checkdiscr dsym_3829__DISCR_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3829__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3829__DISCR_ROUTINE.obj_hash = 30464565;
-  cdat->dsym_3829__DISCR_ROUTINE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3829__DISCR_ROUTINE));
- 
- /*inistring dstr_3830__DISCR_ROUTINE*/
- /*_.VALSTR___V3836*/ curfptr[3835] = (void*)&cdat->dstr_3830__DISCR_ROUTINE;
-  cdat->dstr_3830__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3830__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof(cdat->dstr_3830__DISCR_ROUTINE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2309:/ iniobj");
- /*iniobj dobj_3831__DISCR_ROUTINE*/
- if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_3831__DISCR_ROUTINE) {
+ /*_.VALDATA___V3825*/ curfptr[3824] = ((void*)(MELT_PREDEF(DISCR_CLOSURE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3819__DISCR_CLOSURE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3819__DISCR_CLOSURE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3819__DISCR_CLOSURE.obj_num = OBMAG_CLOSURE;
+  cdat->dobj_3819__DISCR_CLOSURE.obj_hash = 729429900;
+  cdat->dobj_3819__DISCR_CLOSURE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3819__DISCR_CLOSURE));
+ 
+ /*inistring dstr_3820__DISCR_CLOSURE*/
+ /*_.VALSTR___V3826*/ curfptr[3825] = (void*)&cdat->dstr_3820__DISCR_CLOSURE;
+  cdat->dstr_3820__DISCR_CLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3820__DISCR_CLOSURE.val, "DISCR_CLOSURE", sizeof(cdat->dstr_3820__DISCR_CLOSURE.val)-1);
+ 
+ /*iniobj dsym_3821__DISCR_ROUTINE*/
+ if (!/*_.VALDATA___V3827*/ curfptr[3826]) /*_.VALDATA___V3827*/ curfptr[3826] = (void*)&cdat->dsym_3821__DISCR_ROUTINE;
+  melt_assertmsg("iniobj checkdiscr dsym_3821__DISCR_ROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3821__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3821__DISCR_ROUTINE.obj_hash = 30464565;
+  cdat->dsym_3821__DISCR_ROUTINE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3821__DISCR_ROUTINE));
+ 
+ /*inistring dstr_3822__DISCR_ROUTINE*/
+ /*_.VALSTR___V3828*/ curfptr[3827] = (void*)&cdat->dstr_3822__DISCR_ROUTINE;
+  cdat->dstr_3822__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3822__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof(cdat->dstr_3822__DISCR_ROUTINE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2304:/ iniobj");
+ /*iniobj dobj_3823__DISCR_ROUTINE*/
+ if (((void*)(MELT_PREDEF(DISCR_ROUTINE))) != (melt_ptr_t)&cdat->dobj_3823__DISCR_ROUTINE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(DISCR_ROUTINE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))))) >= 5);
   };
- /*_.VALDATA___V3837*/ curfptr[3836] = ((void*)(MELT_PREDEF(DISCR_ROUTINE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3831__DISCR_ROUTINE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3831__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
-  cdat->dobj_3831__DISCR_ROUTINE.obj_num = OBMAG_ROUTINE;
-  cdat->dobj_3831__DISCR_ROUTINE.obj_hash = 910699231;
-  cdat->dobj_3831__DISCR_ROUTINE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3831__DISCR_ROUTINE));
- 
- /*inistring dstr_3832__DISCR_ROUTINE*/
- /*_.VALSTR___V3838*/ curfptr[3837] = (void*)&cdat->dstr_3832__DISCR_ROUTINE;
-  cdat->dstr_3832__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3832__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof(cdat->dstr_3832__DISCR_ROUTINE.val)-1);
- 
- /*inirout drout_3833__INSTALL_CTYPE_DESCR*/
- /*_.VALROUT___V3839*/ curfptr[3838] = (void*)&cdat->drout_3833__INSTALL_CTYPE_DESCR;
-  cdat->drout_3833__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_3833__INSTALL_CTYPE_DESCR.routdescr, "INSTALL_CTYPE_DESCR @warmelt-first.melt:2321",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_3833__INSTALL_CTYPE_DESCR.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3833__INSTALL_CTYPE_DESCR, meltrout_2_warmelt_first_INSTALL_CTYPE_DESCR);
- 
- /*iniclos dclo_3834__INSTALL_CTYPE_DESCR*/
- /*_.VALCLO___V3840*/ curfptr[3839] = (void*)&cdat->dclo_3834__INSTALL_CTYPE_DESCR;
-  cdat->dclo_3834__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_3834__INSTALL_CTYPE_DESCR.nbval = 0;
- 
- /*iniobj dsym_3835__CTYPE_VALUE*/
- if (!/*_.VALDATA___V3841*/ curfptr[3840]) /*_.VALDATA___V3841*/ curfptr[3840] = (void*)&cdat->dsym_3835__CTYPE_VALUE;
-  melt_assertmsg("iniobj checkdiscr dsym_3835__CTYPE_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3835__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3835__CTYPE_VALUE.obj_hash = 11062864;
-  cdat->dsym_3835__CTYPE_VALUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3835__CTYPE_VALUE));
- 
- /*inistring dstr_3836__CTYPE_VALUE*/
- /*_.VALSTR___V3842*/ curfptr[3841] = (void*)&cdat->dstr_3836__CTYPE_VALUE;
-  cdat->dstr_3836__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3836__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof(cdat->dstr_3836__CTYPE_VALUE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2345:/ iniobj");
- /*iniobj dobj_3837__CTYPE_VALUE*/
- if (((void*)(MELT_PREDEF(CTYPE_VALUE))) != (melt_ptr_t)&cdat->dobj_3837__CTYPE_VALUE) {
+ /*_.VALDATA___V3829*/ curfptr[3828] = ((void*)(MELT_PREDEF(DISCR_ROUTINE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3823__DISCR_ROUTINE", NULL != (void*)/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3823__DISCR_ROUTINE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+  cdat->dobj_3823__DISCR_ROUTINE.obj_num = OBMAG_ROUTINE;
+  cdat->dobj_3823__DISCR_ROUTINE.obj_hash = 800152756;
+  cdat->dobj_3823__DISCR_ROUTINE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3823__DISCR_ROUTINE));
+ 
+ /*inistring dstr_3824__DISCR_ROUTINE*/
+ /*_.VALSTR___V3830*/ curfptr[3829] = (void*)&cdat->dstr_3824__DISCR_ROUTINE;
+  cdat->dstr_3824__DISCR_ROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3824__DISCR_ROUTINE.val, "DISCR_ROUTINE", sizeof(cdat->dstr_3824__DISCR_ROUTINE.val)-1);
+ 
+ /*inirout drout_3825__INSTALL_CTYPE_DESCR*/
+ /*_.VALROUT___V3831*/ curfptr[3830] = (void*)&cdat->drout_3825__INSTALL_CTYPE_DESCR;
+  cdat->drout_3825__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3825__INSTALL_CTYPE_DESCR.routdescr, "INSTALL_CTYPE_DESCR @warmelt-first.melt:2316",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3825__INSTALL_CTYPE_DESCR.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3825__INSTALL_CTYPE_DESCR, meltrout_2_warmelt_first_INSTALL_CTYPE_DESCR);
+ 
+ /*iniclos dclo_3826__INSTALL_CTYPE_DESCR*/
+ /*_.VALCLO___V3832*/ curfptr[3831] = (void*)&cdat->dclo_3826__INSTALL_CTYPE_DESCR;
+  cdat->dclo_3826__INSTALL_CTYPE_DESCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3826__INSTALL_CTYPE_DESCR.nbval = 0;
+ 
+ /*iniobj dsym_3827__CTYPE_VALUE*/
+ if (!/*_.VALDATA___V3833*/ curfptr[3832]) /*_.VALDATA___V3833*/ curfptr[3832] = (void*)&cdat->dsym_3827__CTYPE_VALUE;
+  melt_assertmsg("iniobj checkdiscr dsym_3827__CTYPE_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3827__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3827__CTYPE_VALUE.obj_hash = 11062864;
+  cdat->dsym_3827__CTYPE_VALUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3827__CTYPE_VALUE));
+ 
+ /*inistring dstr_3828__CTYPE_VALUE*/
+ /*_.VALSTR___V3834*/ curfptr[3833] = (void*)&cdat->dstr_3828__CTYPE_VALUE;
+  cdat->dstr_3828__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3828__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof(cdat->dstr_3828__CTYPE_VALUE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2340:/ iniobj");
+ /*iniobj dobj_3829__CTYPE_VALUE*/
+ if (((void*)(MELT_PREDEF(CTYPE_VALUE))) != (melt_ptr_t)&cdat->dobj_3829__CTYPE_VALUE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_VALUE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_VALUE))))) >= 11);
   };
- /*_.VALDATA___V3843*/ curfptr[3842] = ((void*)(MELT_PREDEF(CTYPE_VALUE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3837__CTYPE_VALUE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3837__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3837__CTYPE_VALUE.obj_hash = 406666845;
-  cdat->dobj_3837__CTYPE_VALUE.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3837__CTYPE_VALUE));
- 
- /*inistring dstr_3838__CTYPE_VALUE*/
- /*_.VALSTR___V3844*/ curfptr[3843] = (void*)&cdat->dstr_3838__CTYPE_VALUE;
-  cdat->dstr_3838__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3838__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof(cdat->dstr_3838__CTYPE_VALUE.val)-1);
- 
- /*iniobj dsym_3839__VALUE*/
- if (!/*_.VALDATA___V3845*/ curfptr[3844]) /*_.VALDATA___V3845*/ curfptr[3844] = (void*)&cdat->dsym_3839__VALUE;
-  melt_assertmsg("iniobj checkdiscr dsym_3839__VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3839__VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3839__VALUE.obj_hash = 68391938;
-  cdat->dsym_3839__VALUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3839__VALUE));
- 
- /*inistring dstr_3840__VALUE*/
- /*_.VALSTR___V3846*/ curfptr[3845] = (void*)&cdat->dstr_3840__VALUE;
-  cdat->dstr_3840__VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3840__VALUE.val, "VALUE", sizeof(cdat->dstr_3840__VALUE.val)-1);
- 
- /*inistring dstr_3841__melt_ptr_t*/
- /*_.VALSTR___V3847*/ curfptr[3846] = (void*)&cdat->dstr_3841__melt_ptr_t;
-  cdat->dstr_3841__melt_ptr_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3841__melt_ptr_t.val, "melt_ptr_t", sizeof(cdat->dstr_3841__melt_ptr_t.val)-1);
- 
- /*inistring dstr_3842__BPAR_PTR*/
- /*_.VALSTR___V3848*/ curfptr[3847] = (void*)&cdat->dstr_3842__BPAR_PTR;
-  cdat->dstr_3842__BPAR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3842__BPAR_PTR.val, "BPAR_PTR", sizeof(cdat->dstr_3842__BPAR_PTR.val)-1);
- 
- /*inistring dstr_3843__BPARSTR_PTR*/
- /*_.VALSTR___V3849*/ curfptr[3848] = (void*)&cdat->dstr_3843__BPARSTR_PTR;
-  cdat->dstr_3843__BPARSTR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3843__BPARSTR_PTR.val, "BPARSTR_PTR", sizeof(cdat->dstr_3843__BPARSTR_PTR.val)-1);
- 
- /*inistring dstr_3844__bp_aptr*/
- /*_.VALSTR___V3850*/ curfptr[3849] = (void*)&cdat->dstr_3844__bp_aptr;
-  cdat->dstr_3844__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3844__bp_aptr.val, "bp_aptr", sizeof(cdat->dstr_3844__bp_aptr.val)-1);
- 
- /*inistring dstr_3845__bp_aptr*/
- /*_.VALSTR___V3851*/ curfptr[3850] = (void*)&cdat->dstr_3845__bp_aptr;
-  cdat->dstr_3845__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3845__bp_aptr.val, "bp_aptr", sizeof(cdat->dstr_3845__bp_aptr.val)-1);
- 
- /*inistring dstr_3846__gt_ggc_mx_melt_u*/
- /*_.VALSTR___V3852*/ curfptr[3851] = (void*)&cdat->dstr_3846__gt_ggc_mx_melt_u;
-  cdat->dstr_3846__gt_ggc_mx_melt_u.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3846__gt_ggc_mx_melt_u.val, "gt_ggc_mx_melt_un", sizeof(cdat->dstr_3846__gt_ggc_mx_melt_u.val)-1);
- 
- /*iniobj dsym_3847__CTYPE_LONG*/
- if (!/*_.VALDATA___V3853*/ curfptr[3852]) /*_.VALDATA___V3853*/ curfptr[3852] = (void*)&cdat->dsym_3847__CTYPE_LONG;
-  melt_assertmsg("iniobj checkdiscr dsym_3847__CTYPE_LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3847__CTYPE_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3847__CTYPE_LONG.obj_hash = 64180850;
-  cdat->dsym_3847__CTYPE_LONG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3847__CTYPE_LONG));
- 
- /*inistring dstr_3848__CTYPE_LONG*/
- /*_.VALSTR___V3854*/ curfptr[3853] = (void*)&cdat->dstr_3848__CTYPE_LONG;
-  cdat->dstr_3848__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3848__CTYPE_LONG.val, "CTYPE_LONG", sizeof(cdat->dstr_3848__CTYPE_LONG.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2361:/ iniobj");
- /*iniobj dobj_3849__CTYPE_LONG*/
- if (((void*)(MELT_PREDEF(CTYPE_LONG))) != (melt_ptr_t)&cdat->dobj_3849__CTYPE_LONG) {
+ /*_.VALDATA___V3835*/ curfptr[3834] = ((void*)(MELT_PREDEF(CTYPE_VALUE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3829__CTYPE_VALUE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3829__CTYPE_VALUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3829__CTYPE_VALUE.obj_hash = 800766585;
+  cdat->dobj_3829__CTYPE_VALUE.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3829__CTYPE_VALUE));
+ 
+ /*inistring dstr_3830__CTYPE_VALUE*/
+ /*_.VALSTR___V3836*/ curfptr[3835] = (void*)&cdat->dstr_3830__CTYPE_VALUE;
+  cdat->dstr_3830__CTYPE_VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3830__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof(cdat->dstr_3830__CTYPE_VALUE.val)-1);
+ 
+ /*iniobj dsym_3831__VALUE*/
+ if (!/*_.VALDATA___V3837*/ curfptr[3836]) /*_.VALDATA___V3837*/ curfptr[3836] = (void*)&cdat->dsym_3831__VALUE;
+  melt_assertmsg("iniobj checkdiscr dsym_3831__VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3831__VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3831__VALUE.obj_hash = 68391938;
+  cdat->dsym_3831__VALUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3831__VALUE));
+ 
+ /*inistring dstr_3832__VALUE*/
+ /*_.VALSTR___V3838*/ curfptr[3837] = (void*)&cdat->dstr_3832__VALUE;
+  cdat->dstr_3832__VALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3832__VALUE.val, "VALUE", sizeof(cdat->dstr_3832__VALUE.val)-1);
+ 
+ /*inistring dstr_3833__melt_ptr_t*/
+ /*_.VALSTR___V3839*/ curfptr[3838] = (void*)&cdat->dstr_3833__melt_ptr_t;
+  cdat->dstr_3833__melt_ptr_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3833__melt_ptr_t.val, "melt_ptr_t", sizeof(cdat->dstr_3833__melt_ptr_t.val)-1);
+ 
+ /*inistring dstr_3834__BPAR_PTR*/
+ /*_.VALSTR___V3840*/ curfptr[3839] = (void*)&cdat->dstr_3834__BPAR_PTR;
+  cdat->dstr_3834__BPAR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3834__BPAR_PTR.val, "BPAR_PTR", sizeof(cdat->dstr_3834__BPAR_PTR.val)-1);
+ 
+ /*inistring dstr_3835__BPARSTR_PTR*/
+ /*_.VALSTR___V3841*/ curfptr[3840] = (void*)&cdat->dstr_3835__BPARSTR_PTR;
+  cdat->dstr_3835__BPARSTR_PTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3835__BPARSTR_PTR.val, "BPARSTR_PTR", sizeof(cdat->dstr_3835__BPARSTR_PTR.val)-1);
+ 
+ /*inistring dstr_3836__bp_aptr*/
+ /*_.VALSTR___V3842*/ curfptr[3841] = (void*)&cdat->dstr_3836__bp_aptr;
+  cdat->dstr_3836__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3836__bp_aptr.val, "bp_aptr", sizeof(cdat->dstr_3836__bp_aptr.val)-1);
+ 
+ /*inistring dstr_3837__bp_aptr*/
+ /*_.VALSTR___V3843*/ curfptr[3842] = (void*)&cdat->dstr_3837__bp_aptr;
+  cdat->dstr_3837__bp_aptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3837__bp_aptr.val, "bp_aptr", sizeof(cdat->dstr_3837__bp_aptr.val)-1);
+ 
+ /*inistring dstr_3838__gt_ggc_mx_melt_u*/
+ /*_.VALSTR___V3844*/ curfptr[3843] = (void*)&cdat->dstr_3838__gt_ggc_mx_melt_u;
+  cdat->dstr_3838__gt_ggc_mx_melt_u.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3838__gt_ggc_mx_melt_u.val, "gt_ggc_mx_melt_un", sizeof(cdat->dstr_3838__gt_ggc_mx_melt_u.val)-1);
+ 
+ /*iniobj dsym_3839__CTYPE_LONG*/
+ if (!/*_.VALDATA___V3845*/ curfptr[3844]) /*_.VALDATA___V3845*/ curfptr[3844] = (void*)&cdat->dsym_3839__CTYPE_LONG;
+  melt_assertmsg("iniobj checkdiscr dsym_3839__CTYPE_LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3839__CTYPE_LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3839__CTYPE_LONG.obj_hash = 64180850;
+  cdat->dsym_3839__CTYPE_LONG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3839__CTYPE_LONG));
+ 
+ /*inistring dstr_3840__CTYPE_LONG*/
+ /*_.VALSTR___V3846*/ curfptr[3845] = (void*)&cdat->dstr_3840__CTYPE_LONG;
+  cdat->dstr_3840__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3840__CTYPE_LONG.val, "CTYPE_LONG", sizeof(cdat->dstr_3840__CTYPE_LONG.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2356:/ iniobj");
+ /*iniobj dobj_3841__CTYPE_LONG*/
+ if (((void*)(MELT_PREDEF(CTYPE_LONG))) != (melt_ptr_t)&cdat->dobj_3841__CTYPE_LONG) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_LONG)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_LONG))))) >= 11);
   };
- /*_.VALDATA___V3855*/ curfptr[3854] = ((void*)(MELT_PREDEF(CTYPE_LONG)));
-  melt_assertmsg("iniobj checkdiscr dobj_3849__CTYPE_LONG", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3849__CTYPE_LONG.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3849__CTYPE_LONG.obj_hash = 973734907;
-  cdat->dobj_3849__CTYPE_LONG.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3849__CTYPE_LONG));
- 
- /*inistring dstr_3850__CTYPE_LONG*/
- /*_.VALSTR___V3856*/ curfptr[3855] = (void*)&cdat->dstr_3850__CTYPE_LONG;
-  cdat->dstr_3850__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3850__CTYPE_LONG.val, "CTYPE_LONG", sizeof(cdat->dstr_3850__CTYPE_LONG.val)-1);
- 
- /*iniobj dsym_3851__LONG*/
- if (!/*_.VALDATA___V3857*/ curfptr[3856]) /*_.VALDATA___V3857*/ curfptr[3856] = (void*)&cdat->dsym_3851__LONG;
-  melt_assertmsg("iniobj checkdiscr dsym_3851__LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3851__LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3851__LONG.obj_hash = 22911159;
-  cdat->dsym_3851__LONG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3851__LONG));
- 
- /*inistring dstr_3852__LONG*/
- /*_.VALSTR___V3858*/ curfptr[3857] = (void*)&cdat->dstr_3852__LONG;
-  cdat->dstr_3852__LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3852__LONG.val, "LONG", sizeof(cdat->dstr_3852__LONG.val)-1);
- 
- /*inistring dstr_3853__long*/
- /*_.VALSTR___V3859*/ curfptr[3858] = (void*)&cdat->dstr_3853__long;
-  cdat->dstr_3853__long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3853__long.val, "long", sizeof(cdat->dstr_3853__long.val)-1);
- 
- /*inistring dstr_3854__BPAR_LONG*/
- /*_.VALSTR___V3860*/ curfptr[3859] = (void*)&cdat->dstr_3854__BPAR_LONG;
-  cdat->dstr_3854__BPAR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3854__BPAR_LONG.val, "BPAR_LONG", sizeof(cdat->dstr_3854__BPAR_LONG.val)-1);
- 
- /*inistring dstr_3855__BPARSTR_LONG*/
- /*_.VALSTR___V3861*/ curfptr[3860] = (void*)&cdat->dstr_3855__BPARSTR_LONG;
-  cdat->dstr_3855__BPARSTR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3855__BPARSTR_LONG.val, "BPARSTR_LONG", sizeof(cdat->dstr_3855__BPARSTR_LONG.val)-1);
- 
- /*inistring dstr_3856__bp_long*/
- /*_.VALSTR___V3862*/ curfptr[3861] = (void*)&cdat->dstr_3856__bp_long;
-  cdat->dstr_3856__bp_long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3856__bp_long.val, "bp_long", sizeof(cdat->dstr_3856__bp_long.val)-1);
- 
- /*inistring dstr_3857__bp_longptr*/
- /*_.VALSTR___V3863*/ curfptr[3862] = (void*)&cdat->dstr_3857__bp_longptr;
-  cdat->dstr_3857__bp_longptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3857__bp_longptr.val, "bp_longptr", sizeof(cdat->dstr_3857__bp_longptr.val)-1);
- 
- /*iniobj dsym_3858__CTYPE_TREE*/
- if (!/*_.VALDATA___V3864*/ curfptr[3863]) /*_.VALDATA___V3864*/ curfptr[3863] = (void*)&cdat->dsym_3858__CTYPE_TREE;
-  melt_assertmsg("iniobj checkdiscr dsym_3858__CTYPE_TREE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3858__CTYPE_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3858__CTYPE_TREE.obj_hash = 93576863;
-  cdat->dsym_3858__CTYPE_TREE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3858__CTYPE_TREE));
- 
- /*inistring dstr_3859__CTYPE_TREE*/
- /*_.VALSTR___V3865*/ curfptr[3864] = (void*)&cdat->dstr_3859__CTYPE_TREE;
-  cdat->dstr_3859__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3859__CTYPE_TREE.val, "CTYPE_TREE", sizeof(cdat->dstr_3859__CTYPE_TREE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2375:/ iniobj");
- /*iniobj dobj_3860__CTYPE_TREE*/
- if (((void*)(MELT_PREDEF(CTYPE_TREE))) != (melt_ptr_t)&cdat->dobj_3860__CTYPE_TREE) {
+ /*_.VALDATA___V3847*/ curfptr[3846] = ((void*)(MELT_PREDEF(CTYPE_LONG)));
+  melt_assertmsg("iniobj checkdiscr dobj_3841__CTYPE_LONG", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3841__CTYPE_LONG.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3841__CTYPE_LONG.obj_hash = 486322393;
+  cdat->dobj_3841__CTYPE_LONG.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3841__CTYPE_LONG));
+ 
+ /*inistring dstr_3842__CTYPE_LONG*/
+ /*_.VALSTR___V3848*/ curfptr[3847] = (void*)&cdat->dstr_3842__CTYPE_LONG;
+  cdat->dstr_3842__CTYPE_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3842__CTYPE_LONG.val, "CTYPE_LONG", sizeof(cdat->dstr_3842__CTYPE_LONG.val)-1);
+ 
+ /*iniobj dsym_3843__LONG*/
+ if (!/*_.VALDATA___V3849*/ curfptr[3848]) /*_.VALDATA___V3849*/ curfptr[3848] = (void*)&cdat->dsym_3843__LONG;
+  melt_assertmsg("iniobj checkdiscr dsym_3843__LONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3843__LONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3843__LONG.obj_hash = 22911159;
+  cdat->dsym_3843__LONG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3843__LONG));
+ 
+ /*inistring dstr_3844__LONG*/
+ /*_.VALSTR___V3850*/ curfptr[3849] = (void*)&cdat->dstr_3844__LONG;
+  cdat->dstr_3844__LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3844__LONG.val, "LONG", sizeof(cdat->dstr_3844__LONG.val)-1);
+ 
+ /*inistring dstr_3845__long*/
+ /*_.VALSTR___V3851*/ curfptr[3850] = (void*)&cdat->dstr_3845__long;
+  cdat->dstr_3845__long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3845__long.val, "long", sizeof(cdat->dstr_3845__long.val)-1);
+ 
+ /*inistring dstr_3846__BPAR_LONG*/
+ /*_.VALSTR___V3852*/ curfptr[3851] = (void*)&cdat->dstr_3846__BPAR_LONG;
+  cdat->dstr_3846__BPAR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3846__BPAR_LONG.val, "BPAR_LONG", sizeof(cdat->dstr_3846__BPAR_LONG.val)-1);
+ 
+ /*inistring dstr_3847__BPARSTR_LONG*/
+ /*_.VALSTR___V3853*/ curfptr[3852] = (void*)&cdat->dstr_3847__BPARSTR_LONG;
+  cdat->dstr_3847__BPARSTR_LONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3847__BPARSTR_LONG.val, "BPARSTR_LONG", sizeof(cdat->dstr_3847__BPARSTR_LONG.val)-1);
+ 
+ /*inistring dstr_3848__bp_long*/
+ /*_.VALSTR___V3854*/ curfptr[3853] = (void*)&cdat->dstr_3848__bp_long;
+  cdat->dstr_3848__bp_long.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3848__bp_long.val, "bp_long", sizeof(cdat->dstr_3848__bp_long.val)-1);
+ 
+ /*inistring dstr_3849__bp_longptr*/
+ /*_.VALSTR___V3855*/ curfptr[3854] = (void*)&cdat->dstr_3849__bp_longptr;
+  cdat->dstr_3849__bp_longptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3849__bp_longptr.val, "bp_longptr", sizeof(cdat->dstr_3849__bp_longptr.val)-1);
+ 
+ /*iniobj dsym_3850__CTYPE_TREE*/
+ if (!/*_.VALDATA___V3856*/ curfptr[3855]) /*_.VALDATA___V3856*/ curfptr[3855] = (void*)&cdat->dsym_3850__CTYPE_TREE;
+  melt_assertmsg("iniobj checkdiscr dsym_3850__CTYPE_TREE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3850__CTYPE_TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3850__CTYPE_TREE.obj_hash = 93576863;
+  cdat->dsym_3850__CTYPE_TREE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3850__CTYPE_TREE));
+ 
+ /*inistring dstr_3851__CTYPE_TREE*/
+ /*_.VALSTR___V3857*/ curfptr[3856] = (void*)&cdat->dstr_3851__CTYPE_TREE;
+  cdat->dstr_3851__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3851__CTYPE_TREE.val, "CTYPE_TREE", sizeof(cdat->dstr_3851__CTYPE_TREE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2370:/ iniobj");
+ /*iniobj dobj_3852__CTYPE_TREE*/
+ if (((void*)(MELT_PREDEF(CTYPE_TREE))) != (melt_ptr_t)&cdat->dobj_3852__CTYPE_TREE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_TREE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_TREE))))) >= 11);
   };
- /*_.VALDATA___V3866*/ curfptr[3865] = ((void*)(MELT_PREDEF(CTYPE_TREE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3860__CTYPE_TREE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3860__CTYPE_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3860__CTYPE_TREE.obj_hash = 785805461;
-  cdat->dobj_3860__CTYPE_TREE.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3860__CTYPE_TREE));
- 
- /*inistring dstr_3861__CTYPE_TREE*/
- /*_.VALSTR___V3867*/ curfptr[3866] = (void*)&cdat->dstr_3861__CTYPE_TREE;
-  cdat->dstr_3861__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3861__CTYPE_TREE.val, "CTYPE_TREE", sizeof(cdat->dstr_3861__CTYPE_TREE.val)-1);
- 
- /*iniobj dsym_3862__TREE*/
- if (!/*_.VALDATA___V3868*/ curfptr[3867]) /*_.VALDATA___V3868*/ curfptr[3867] = (void*)&cdat->dsym_3862__TREE;
-  melt_assertmsg("iniobj checkdiscr dsym_3862__TREE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3862__TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3862__TREE.obj_hash = 114172609;
-  cdat->dsym_3862__TREE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3862__TREE));
- 
- /*inistring dstr_3863__TREE*/
- /*_.VALSTR___V3869*/ curfptr[3868] = (void*)&cdat->dstr_3863__TREE;
-  cdat->dstr_3863__TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3863__TREE.val, "TREE", sizeof(cdat->dstr_3863__TREE.val)-1);
- 
- /*inistring dstr_3864__tree*/
- /*_.VALSTR___V3870*/ curfptr[3869] = (void*)&cdat->dstr_3864__tree;
-  cdat->dstr_3864__tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3864__tree.val, "tree", sizeof(cdat->dstr_3864__tree.val)-1);
- 
- /*inistring dstr_3865__BPAR_TREE*/
- /*_.VALSTR___V3871*/ curfptr[3870] = (void*)&cdat->dstr_3865__BPAR_TREE;
-  cdat->dstr_3865__BPAR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3865__BPAR_TREE.val, "BPAR_TREE", sizeof(cdat->dstr_3865__BPAR_TREE.val)-1);
- 
- /*inistring dstr_3866__BPARSTR_TREE*/
- /*_.VALSTR___V3872*/ curfptr[3871] = (void*)&cdat->dstr_3866__BPARSTR_TREE;
-  cdat->dstr_3866__BPARSTR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3866__BPARSTR_TREE.val, "BPARSTR_TREE", sizeof(cdat->dstr_3866__BPARSTR_TREE.val)-1);
- 
- /*inistring dstr_3867__bp_tree*/
- /*_.VALSTR___V3873*/ curfptr[3872] = (void*)&cdat->dstr_3867__bp_tree;
-  cdat->dstr_3867__bp_tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3867__bp_tree.val, "bp_tree", sizeof(cdat->dstr_3867__bp_tree.val)-1);
- 
- /*inistring dstr_3868__bp_treeptr*/
- /*_.VALSTR___V3874*/ curfptr[3873] = (void*)&cdat->dstr_3868__bp_treeptr;
-  cdat->dstr_3868__bp_treeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3868__bp_treeptr.val, "bp_treeptr", sizeof(cdat->dstr_3868__bp_treeptr.val)-1);
- 
- /*inistring dstr_3869__gt_ggc_mx_tree_n*/
- /*_.VALSTR___V3875*/ curfptr[3874] = (void*)&cdat->dstr_3869__gt_ggc_mx_tree_n;
-  cdat->dstr_3869__gt_ggc_mx_tree_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3869__gt_ggc_mx_tree_n.val, "gt_ggc_mx_tree_node", sizeof(cdat->dstr_3869__gt_ggc_mx_tree_n.val)-1);
- 
- /*iniobj dsym_3870__CTYPE_GIMPLE*/
- if (!/*_.VALDATA___V3876*/ curfptr[3875]) /*_.VALDATA___V3876*/ curfptr[3875] = (void*)&cdat->dsym_3870__CTYPE_GIMPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_3870__CTYPE_GIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3870__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3870__CTYPE_GIMPLE.obj_hash = 625493548;
-  cdat->dsym_3870__CTYPE_GIMPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3870__CTYPE_GIMPLE));
- 
- /*inistring dstr_3871__CTYPE_GIMPLE*/
- /*_.VALSTR___V3877*/ curfptr[3876] = (void*)&cdat->dstr_3871__CTYPE_GIMPLE;
-  cdat->dstr_3871__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3871__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof(cdat->dstr_3871__CTYPE_GIMPLE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2390:/ iniobj");
- /*iniobj dobj_3872__CTYPE_GIMPLE*/
- if (((void*)(MELT_PREDEF(CTYPE_GIMPLE))) != (melt_ptr_t)&cdat->dobj_3872__CTYPE_GIMPLE) {
+ /*_.VALDATA___V3858*/ curfptr[3857] = ((void*)(MELT_PREDEF(CTYPE_TREE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3852__CTYPE_TREE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3852__CTYPE_TREE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3852__CTYPE_TREE.obj_hash = 1020523991;
+  cdat->dobj_3852__CTYPE_TREE.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3852__CTYPE_TREE));
+ 
+ /*inistring dstr_3853__CTYPE_TREE*/
+ /*_.VALSTR___V3859*/ curfptr[3858] = (void*)&cdat->dstr_3853__CTYPE_TREE;
+  cdat->dstr_3853__CTYPE_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3853__CTYPE_TREE.val, "CTYPE_TREE", sizeof(cdat->dstr_3853__CTYPE_TREE.val)-1);
+ 
+ /*iniobj dsym_3854__TREE*/
+ if (!/*_.VALDATA___V3860*/ curfptr[3859]) /*_.VALDATA___V3860*/ curfptr[3859] = (void*)&cdat->dsym_3854__TREE;
+  melt_assertmsg("iniobj checkdiscr dsym_3854__TREE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3854__TREE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3854__TREE.obj_hash = 114172609;
+  cdat->dsym_3854__TREE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3854__TREE));
+ 
+ /*inistring dstr_3855__TREE*/
+ /*_.VALSTR___V3861*/ curfptr[3860] = (void*)&cdat->dstr_3855__TREE;
+  cdat->dstr_3855__TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3855__TREE.val, "TREE", sizeof(cdat->dstr_3855__TREE.val)-1);
+ 
+ /*inistring dstr_3856__tree*/
+ /*_.VALSTR___V3862*/ curfptr[3861] = (void*)&cdat->dstr_3856__tree;
+  cdat->dstr_3856__tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3856__tree.val, "tree", sizeof(cdat->dstr_3856__tree.val)-1);
+ 
+ /*inistring dstr_3857__BPAR_TREE*/
+ /*_.VALSTR___V3863*/ curfptr[3862] = (void*)&cdat->dstr_3857__BPAR_TREE;
+  cdat->dstr_3857__BPAR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3857__BPAR_TREE.val, "BPAR_TREE", sizeof(cdat->dstr_3857__BPAR_TREE.val)-1);
+ 
+ /*inistring dstr_3858__BPARSTR_TREE*/
+ /*_.VALSTR___V3864*/ curfptr[3863] = (void*)&cdat->dstr_3858__BPARSTR_TREE;
+  cdat->dstr_3858__BPARSTR_TREE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3858__BPARSTR_TREE.val, "BPARSTR_TREE", sizeof(cdat->dstr_3858__BPARSTR_TREE.val)-1);
+ 
+ /*inistring dstr_3859__bp_tree*/
+ /*_.VALSTR___V3865*/ curfptr[3864] = (void*)&cdat->dstr_3859__bp_tree;
+  cdat->dstr_3859__bp_tree.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3859__bp_tree.val, "bp_tree", sizeof(cdat->dstr_3859__bp_tree.val)-1);
+ 
+ /*inistring dstr_3860__bp_treeptr*/
+ /*_.VALSTR___V3866*/ curfptr[3865] = (void*)&cdat->dstr_3860__bp_treeptr;
+  cdat->dstr_3860__bp_treeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3860__bp_treeptr.val, "bp_treeptr", sizeof(cdat->dstr_3860__bp_treeptr.val)-1);
+ 
+ /*inistring dstr_3861__gt_ggc_mx_tree_n*/
+ /*_.VALSTR___V3867*/ curfptr[3866] = (void*)&cdat->dstr_3861__gt_ggc_mx_tree_n;
+  cdat->dstr_3861__gt_ggc_mx_tree_n.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3861__gt_ggc_mx_tree_n.val, "gt_ggc_mx_tree_node", sizeof(cdat->dstr_3861__gt_ggc_mx_tree_n.val)-1);
+ 
+ /*iniobj dsym_3862__CTYPE_GIMPLE*/
+ if (!/*_.VALDATA___V3868*/ curfptr[3867]) /*_.VALDATA___V3868*/ curfptr[3867] = (void*)&cdat->dsym_3862__CTYPE_GIMPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_3862__CTYPE_GIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3862__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3862__CTYPE_GIMPLE.obj_hash = 625493548;
+  cdat->dsym_3862__CTYPE_GIMPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3862__CTYPE_GIMPLE));
+ 
+ /*inistring dstr_3863__CTYPE_GIMPLE*/
+ /*_.VALSTR___V3869*/ curfptr[3868] = (void*)&cdat->dstr_3863__CTYPE_GIMPLE;
+  cdat->dstr_3863__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3863__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof(cdat->dstr_3863__CTYPE_GIMPLE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2385:/ iniobj");
+ /*iniobj dobj_3864__CTYPE_GIMPLE*/
+ if (((void*)(MELT_PREDEF(CTYPE_GIMPLE))) != (melt_ptr_t)&cdat->dobj_3864__CTYPE_GIMPLE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_GIMPLE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_GIMPLE))))) >= 11);
   };
- /*_.VALDATA___V3878*/ curfptr[3877] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3872__CTYPE_GIMPLE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3872__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3872__CTYPE_GIMPLE.obj_hash = 629669253;
-  cdat->dobj_3872__CTYPE_GIMPLE.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3872__CTYPE_GIMPLE));
- 
- /*inistring dstr_3873__CTYPE_GIMPLE*/
- /*_.VALSTR___V3879*/ curfptr[3878] = (void*)&cdat->dstr_3873__CTYPE_GIMPLE;
-  cdat->dstr_3873__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3873__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof(cdat->dstr_3873__CTYPE_GIMPLE.val)-1);
- 
- /*iniobj dsym_3874__GIMPLE*/
- if (!/*_.VALDATA___V3880*/ curfptr[3879]) /*_.VALDATA___V3880*/ curfptr[3879] = (void*)&cdat->dsym_3874__GIMPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_3874__GIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3874__GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3874__GIMPLE.obj_hash = 236556636;
-  cdat->dsym_3874__GIMPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3874__GIMPLE));
- 
- /*inistring dstr_3875__GIMPLE*/
- /*_.VALSTR___V3881*/ curfptr[3880] = (void*)&cdat->dstr_3875__GIMPLE;
-  cdat->dstr_3875__GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3875__GIMPLE.val, "GIMPLE", sizeof(cdat->dstr_3875__GIMPLE.val)-1);
- 
- /*inistring dstr_3876__gimple*/
- /*_.VALSTR___V3882*/ curfptr[3881] = (void*)&cdat->dstr_3876__gimple;
-  cdat->dstr_3876__gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3876__gimple.val, "gimple", sizeof(cdat->dstr_3876__gimple.val)-1);
- 
- /*inistring dstr_3877__BPAR_GIMPLE*/
- /*_.VALSTR___V3883*/ curfptr[3882] = (void*)&cdat->dstr_3877__BPAR_GIMPLE;
-  cdat->dstr_3877__BPAR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3877__BPAR_GIMPLE.val, "BPAR_GIMPLE", sizeof(cdat->dstr_3877__BPAR_GIMPLE.val)-1);
- 
- /*inistring dstr_3878__BPARSTR_GIMPLE*/
- /*_.VALSTR___V3884*/ curfptr[3883] = (void*)&cdat->dstr_3878__BPARSTR_GIMPLE;
-  cdat->dstr_3878__BPARSTR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3878__BPARSTR_GIMPLE.val, "BPARSTR_GIMPLE", sizeof(cdat->dstr_3878__BPARSTR_GIMPLE.val)-1);
- 
- /*inistring dstr_3879__bp_gimple*/
- /*_.VALSTR___V3885*/ curfptr[3884] = (void*)&cdat->dstr_3879__bp_gimple;
-  cdat->dstr_3879__bp_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3879__bp_gimple.val, "bp_gimple", sizeof(cdat->dstr_3879__bp_gimple.val)-1);
- 
- /*inistring dstr_3880__bp_gimpleptr*/
- /*_.VALSTR___V3886*/ curfptr[3885] = (void*)&cdat->dstr_3880__bp_gimpleptr;
-  cdat->dstr_3880__bp_gimpleptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3880__bp_gimpleptr.val, "bp_gimpleptr", sizeof(cdat->dstr_3880__bp_gimpleptr.val)-1);
- 
- /*inistring dstr_3881__gt_ggc_mx_gimple*/
- /*_.VALSTR___V3887*/ curfptr[3886] = (void*)&cdat->dstr_3881__gt_ggc_mx_gimple;
-  cdat->dstr_3881__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3881__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_statement_d", sizeof(cdat->dstr_3881__gt_ggc_mx_gimple.val)-1);
- 
- /*iniobj dsym_3882__CTYPE_GIMPLE_SEQ*/
- if (!/*_.VALDATA___V3888*/ curfptr[3887]) /*_.VALDATA___V3888*/ curfptr[3887] = (void*)&cdat->dsym_3882__CTYPE_GIMPLE_SEQ;
-  melt_assertmsg("iniobj checkdiscr dsym_3882__CTYPE_GIMPLE_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3882__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3882__CTYPE_GIMPLE_SEQ.obj_hash = 455098616;
-  cdat->dsym_3882__CTYPE_GIMPLE_SEQ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3882__CTYPE_GIMPLE_SEQ));
- 
- /*inistring dstr_3883__CTYPE_GIMPLE_SEQ*/
- /*_.VALSTR___V3889*/ curfptr[3888] = (void*)&cdat->dstr_3883__CTYPE_GIMPLE_SEQ;
-  cdat->dstr_3883__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3883__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof(cdat->dstr_3883__CTYPE_GIMPLE_SEQ.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2405:/ iniobj");
- /*iniobj dobj_3884__CTYPE_GIMPLE_SEQ*/
- if (((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_3884__CTYPE_GIMPLE_SEQ) {
+ /*_.VALDATA___V3870*/ curfptr[3869] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3864__CTYPE_GIMPLE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3864__CTYPE_GIMPLE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3864__CTYPE_GIMPLE.obj_hash = 276180260;
+  cdat->dobj_3864__CTYPE_GIMPLE.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3864__CTYPE_GIMPLE));
+ 
+ /*inistring dstr_3865__CTYPE_GIMPLE*/
+ /*_.VALSTR___V3871*/ curfptr[3870] = (void*)&cdat->dstr_3865__CTYPE_GIMPLE;
+  cdat->dstr_3865__CTYPE_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3865__CTYPE_GIMPLE.val, "CTYPE_GIMPLE", sizeof(cdat->dstr_3865__CTYPE_GIMPLE.val)-1);
+ 
+ /*iniobj dsym_3866__GIMPLE*/
+ if (!/*_.VALDATA___V3872*/ curfptr[3871]) /*_.VALDATA___V3872*/ curfptr[3871] = (void*)&cdat->dsym_3866__GIMPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_3866__GIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3866__GIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3866__GIMPLE.obj_hash = 236556636;
+  cdat->dsym_3866__GIMPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3866__GIMPLE));
+ 
+ /*inistring dstr_3867__GIMPLE*/
+ /*_.VALSTR___V3873*/ curfptr[3872] = (void*)&cdat->dstr_3867__GIMPLE;
+  cdat->dstr_3867__GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3867__GIMPLE.val, "GIMPLE", sizeof(cdat->dstr_3867__GIMPLE.val)-1);
+ 
+ /*inistring dstr_3868__gimple*/
+ /*_.VALSTR___V3874*/ curfptr[3873] = (void*)&cdat->dstr_3868__gimple;
+  cdat->dstr_3868__gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3868__gimple.val, "gimple", sizeof(cdat->dstr_3868__gimple.val)-1);
+ 
+ /*inistring dstr_3869__BPAR_GIMPLE*/
+ /*_.VALSTR___V3875*/ curfptr[3874] = (void*)&cdat->dstr_3869__BPAR_GIMPLE;
+  cdat->dstr_3869__BPAR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3869__BPAR_GIMPLE.val, "BPAR_GIMPLE", sizeof(cdat->dstr_3869__BPAR_GIMPLE.val)-1);
+ 
+ /*inistring dstr_3870__BPARSTR_GIMPLE*/
+ /*_.VALSTR___V3876*/ curfptr[3875] = (void*)&cdat->dstr_3870__BPARSTR_GIMPLE;
+  cdat->dstr_3870__BPARSTR_GIMPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3870__BPARSTR_GIMPLE.val, "BPARSTR_GIMPLE", sizeof(cdat->dstr_3870__BPARSTR_GIMPLE.val)-1);
+ 
+ /*inistring dstr_3871__bp_gimple*/
+ /*_.VALSTR___V3877*/ curfptr[3876] = (void*)&cdat->dstr_3871__bp_gimple;
+  cdat->dstr_3871__bp_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3871__bp_gimple.val, "bp_gimple", sizeof(cdat->dstr_3871__bp_gimple.val)-1);
+ 
+ /*inistring dstr_3872__bp_gimpleptr*/
+ /*_.VALSTR___V3878*/ curfptr[3877] = (void*)&cdat->dstr_3872__bp_gimpleptr;
+  cdat->dstr_3872__bp_gimpleptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3872__bp_gimpleptr.val, "bp_gimpleptr", sizeof(cdat->dstr_3872__bp_gimpleptr.val)-1);
+ 
+ /*inistring dstr_3873__gt_ggc_mx_gimple*/
+ /*_.VALSTR___V3879*/ curfptr[3878] = (void*)&cdat->dstr_3873__gt_ggc_mx_gimple;
+  cdat->dstr_3873__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3873__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_statement_d", sizeof(cdat->dstr_3873__gt_ggc_mx_gimple.val)-1);
+ 
+ /*iniobj dsym_3874__CTYPE_GIMPLE_SEQ*/
+ if (!/*_.VALDATA___V3880*/ curfptr[3879]) /*_.VALDATA___V3880*/ curfptr[3879] = (void*)&cdat->dsym_3874__CTYPE_GIMPLE_SEQ;
+  melt_assertmsg("iniobj checkdiscr dsym_3874__CTYPE_GIMPLE_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3874__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3874__CTYPE_GIMPLE_SEQ.obj_hash = 455098616;
+  cdat->dsym_3874__CTYPE_GIMPLE_SEQ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3874__CTYPE_GIMPLE_SEQ));
+ 
+ /*inistring dstr_3875__CTYPE_GIMPLE_SEQ*/
+ /*_.VALSTR___V3881*/ curfptr[3880] = (void*)&cdat->dstr_3875__CTYPE_GIMPLE_SEQ;
+  cdat->dstr_3875__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3875__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof(cdat->dstr_3875__CTYPE_GIMPLE_SEQ.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2400:/ iniobj");
+ /*iniobj dobj_3876__CTYPE_GIMPLE_SEQ*/
+ if (((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))) != (melt_ptr_t)&cdat->dobj_3876__CTYPE_GIMPLE_SEQ) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ))))) >= 11);
   };
- /*_.VALDATA___V3890*/ curfptr[3889] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ)));
-  melt_assertmsg("iniobj checkdiscr dobj_3884__CTYPE_GIMPLE_SEQ", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3884__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3884__CTYPE_GIMPLE_SEQ.obj_hash = 837829776;
-  cdat->dobj_3884__CTYPE_GIMPLE_SEQ.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3884__CTYPE_GIMPLE_SEQ));
- 
- /*inistring dstr_3885__CTYPE_GIMPLE_SEQ*/
- /*_.VALSTR___V3891*/ curfptr[3890] = (void*)&cdat->dstr_3885__CTYPE_GIMPLE_SEQ;
-  cdat->dstr_3885__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3885__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof(cdat->dstr_3885__CTYPE_GIMPLE_SEQ.val)-1);
- 
- /*iniobj dsym_3886__GIMPLE_SEQ*/
- if (!/*_.VALDATA___V3892*/ curfptr[3891]) /*_.VALDATA___V3892*/ curfptr[3891] = (void*)&cdat->dsym_3886__GIMPLE_SEQ;
-  melt_assertmsg("iniobj checkdiscr dsym_3886__GIMPLE_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3886__GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3886__GIMPLE_SEQ.obj_hash = 547996591;
-  cdat->dsym_3886__GIMPLE_SEQ.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3886__GIMPLE_SEQ));
- 
- /*inistring dstr_3887__GIMPLE_SEQ*/
- /*_.VALSTR___V3893*/ curfptr[3892] = (void*)&cdat->dstr_3887__GIMPLE_SEQ;
-  cdat->dstr_3887__GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3887__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof(cdat->dstr_3887__GIMPLE_SEQ.val)-1);
- 
- /*inistring dstr_3888__gimple_seq*/
- /*_.VALSTR___V3894*/ curfptr[3893] = (void*)&cdat->dstr_3888__gimple_seq;
-  cdat->dstr_3888__gimple_seq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3888__gimple_seq.val, "gimple_seq", sizeof(cdat->dstr_3888__gimple_seq.val)-1);
- 
- /*inistring dstr_3889__BPAR_GIMPLESEQ*/
- /*_.VALSTR___V3895*/ curfptr[3894] = (void*)&cdat->dstr_3889__BPAR_GIMPLESEQ;
-  cdat->dstr_3889__BPAR_GIMPLESEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3889__BPAR_GIMPLESEQ.val, "BPAR_GIMPLESEQ", sizeof(cdat->dstr_3889__BPAR_GIMPLESEQ.val)-1);
- 
- /*inistring dstr_3890__BPARSTR_GIMPLESE*/
- /*_.VALSTR___V3896*/ curfptr[3895] = (void*)&cdat->dstr_3890__BPARSTR_GIMPLESE;
-  cdat->dstr_3890__BPARSTR_GIMPLESE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3890__BPARSTR_GIMPLESE.val, "BPARSTR_GIMPLESEQ", sizeof(cdat->dstr_3890__BPARSTR_GIMPLESE.val)-1);
- 
- /*inistring dstr_3891__bp_gimpleseq*/
- /*_.VALSTR___V3897*/ curfptr[3896] = (void*)&cdat->dstr_3891__bp_gimpleseq;
-  cdat->dstr_3891__bp_gimpleseq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3891__bp_gimpleseq.val, "bp_gimpleseq", sizeof(cdat->dstr_3891__bp_gimpleseq.val)-1);
- 
- /*inistring dstr_3892__bp_gimpleseqptr*/
- /*_.VALSTR___V3898*/ curfptr[3897] = (void*)&cdat->dstr_3892__bp_gimpleseqptr;
-  cdat->dstr_3892__bp_gimpleseqptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3892__bp_gimpleseqptr.val, "bp_gimpleseqptr", sizeof(cdat->dstr_3892__bp_gimpleseqptr.val)-1);
- 
- /*inistring dstr_3893__gt_ggc_mx_gimple*/
- /*_.VALSTR___V3899*/ curfptr[3898] = (void*)&cdat->dstr_3893__gt_ggc_mx_gimple;
-  cdat->dstr_3893__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3893__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_seq_d", sizeof(cdat->dstr_3893__gt_ggc_mx_gimple.val)-1);
- 
- /*iniobj dsym_3894__CTYPE_BASIC_BLOCK*/
- if (!/*_.VALDATA___V3900*/ curfptr[3899]) /*_.VALDATA___V3900*/ curfptr[3899] = (void*)&cdat->dsym_3894__CTYPE_BASIC_BLOCK;
-  melt_assertmsg("iniobj checkdiscr dsym_3894__CTYPE_BASIC_BLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3894__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3894__CTYPE_BASIC_BLOCK.obj_hash = 344797451;
-  cdat->dsym_3894__CTYPE_BASIC_BLOCK.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3894__CTYPE_BASIC_BLOCK));
- 
- /*inistring dstr_3895__CTYPE_BASIC_BLOC*/
- /*_.VALSTR___V3901*/ curfptr[3900] = (void*)&cdat->dstr_3895__CTYPE_BASIC_BLOC;
-  cdat->dstr_3895__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3895__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof(cdat->dstr_3895__CTYPE_BASIC_BLOC.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2422:/ iniobj");
- /*iniobj dobj_3896__CTYPE_BASIC_BLOCK*/
- if (((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_3896__CTYPE_BASIC_BLOCK) {
+ /*_.VALDATA___V3882*/ curfptr[3881] = ((void*)(MELT_PREDEF(CTYPE_GIMPLE_SEQ)));
+  melt_assertmsg("iniobj checkdiscr dobj_3876__CTYPE_GIMPLE_SEQ", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3876__CTYPE_GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3876__CTYPE_GIMPLE_SEQ.obj_hash = 908573935;
+  cdat->dobj_3876__CTYPE_GIMPLE_SEQ.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3876__CTYPE_GIMPLE_SEQ));
+ 
+ /*inistring dstr_3877__CTYPE_GIMPLE_SEQ*/
+ /*_.VALSTR___V3883*/ curfptr[3882] = (void*)&cdat->dstr_3877__CTYPE_GIMPLE_SEQ;
+  cdat->dstr_3877__CTYPE_GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3877__CTYPE_GIMPLE_SEQ.val, "CTYPE_GIMPLE_SEQ", sizeof(cdat->dstr_3877__CTYPE_GIMPLE_SEQ.val)-1);
+ 
+ /*iniobj dsym_3878__GIMPLE_SEQ*/
+ if (!/*_.VALDATA___V3884*/ curfptr[3883]) /*_.VALDATA___V3884*/ curfptr[3883] = (void*)&cdat->dsym_3878__GIMPLE_SEQ;
+  melt_assertmsg("iniobj checkdiscr dsym_3878__GIMPLE_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3878__GIMPLE_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3878__GIMPLE_SEQ.obj_hash = 547996591;
+  cdat->dsym_3878__GIMPLE_SEQ.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3878__GIMPLE_SEQ));
+ 
+ /*inistring dstr_3879__GIMPLE_SEQ*/
+ /*_.VALSTR___V3885*/ curfptr[3884] = (void*)&cdat->dstr_3879__GIMPLE_SEQ;
+  cdat->dstr_3879__GIMPLE_SEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3879__GIMPLE_SEQ.val, "GIMPLE_SEQ", sizeof(cdat->dstr_3879__GIMPLE_SEQ.val)-1);
+ 
+ /*inistring dstr_3880__gimple_seq*/
+ /*_.VALSTR___V3886*/ curfptr[3885] = (void*)&cdat->dstr_3880__gimple_seq;
+  cdat->dstr_3880__gimple_seq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3880__gimple_seq.val, "gimple_seq", sizeof(cdat->dstr_3880__gimple_seq.val)-1);
+ 
+ /*inistring dstr_3881__BPAR_GIMPLESEQ*/
+ /*_.VALSTR___V3887*/ curfptr[3886] = (void*)&cdat->dstr_3881__BPAR_GIMPLESEQ;
+  cdat->dstr_3881__BPAR_GIMPLESEQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3881__BPAR_GIMPLESEQ.val, "BPAR_GIMPLESEQ", sizeof(cdat->dstr_3881__BPAR_GIMPLESEQ.val)-1);
+ 
+ /*inistring dstr_3882__BPARSTR_GIMPLESE*/
+ /*_.VALSTR___V3888*/ curfptr[3887] = (void*)&cdat->dstr_3882__BPARSTR_GIMPLESE;
+  cdat->dstr_3882__BPARSTR_GIMPLESE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3882__BPARSTR_GIMPLESE.val, "BPARSTR_GIMPLESEQ", sizeof(cdat->dstr_3882__BPARSTR_GIMPLESE.val)-1);
+ 
+ /*inistring dstr_3883__bp_gimpleseq*/
+ /*_.VALSTR___V3889*/ curfptr[3888] = (void*)&cdat->dstr_3883__bp_gimpleseq;
+  cdat->dstr_3883__bp_gimpleseq.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3883__bp_gimpleseq.val, "bp_gimpleseq", sizeof(cdat->dstr_3883__bp_gimpleseq.val)-1);
+ 
+ /*inistring dstr_3884__bp_gimpleseqptr*/
+ /*_.VALSTR___V3890*/ curfptr[3889] = (void*)&cdat->dstr_3884__bp_gimpleseqptr;
+  cdat->dstr_3884__bp_gimpleseqptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3884__bp_gimpleseqptr.val, "bp_gimpleseqptr", sizeof(cdat->dstr_3884__bp_gimpleseqptr.val)-1);
+ 
+ /*inistring dstr_3885__gt_ggc_mx_gimple*/
+ /*_.VALSTR___V3891*/ curfptr[3890] = (void*)&cdat->dstr_3885__gt_ggc_mx_gimple;
+  cdat->dstr_3885__gt_ggc_mx_gimple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3885__gt_ggc_mx_gimple.val, "gt_ggc_mx_gimple_seq_d", sizeof(cdat->dstr_3885__gt_ggc_mx_gimple.val)-1);
+ 
+ /*iniobj dsym_3886__CTYPE_BASIC_BLOCK*/
+ if (!/*_.VALDATA___V3892*/ curfptr[3891]) /*_.VALDATA___V3892*/ curfptr[3891] = (void*)&cdat->dsym_3886__CTYPE_BASIC_BLOCK;
+  melt_assertmsg("iniobj checkdiscr dsym_3886__CTYPE_BASIC_BLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3886__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3886__CTYPE_BASIC_BLOCK.obj_hash = 344797451;
+  cdat->dsym_3886__CTYPE_BASIC_BLOCK.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3886__CTYPE_BASIC_BLOCK));
+ 
+ /*inistring dstr_3887__CTYPE_BASIC_BLOC*/
+ /*_.VALSTR___V3893*/ curfptr[3892] = (void*)&cdat->dstr_3887__CTYPE_BASIC_BLOC;
+  cdat->dstr_3887__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3887__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof(cdat->dstr_3887__CTYPE_BASIC_BLOC.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2417:/ iniobj");
+ /*iniobj dobj_3888__CTYPE_BASIC_BLOCK*/
+ if (((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))) != (melt_ptr_t)&cdat->dobj_3888__CTYPE_BASIC_BLOCK) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK))))) >= 11);
   };
- /*_.VALDATA___V3902*/ curfptr[3901] = ((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK)));
-  melt_assertmsg("iniobj checkdiscr dobj_3896__CTYPE_BASIC_BLOCK", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3896__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3896__CTYPE_BASIC_BLOCK.obj_hash = 300197308;
-  cdat->dobj_3896__CTYPE_BASIC_BLOCK.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3896__CTYPE_BASIC_BLOCK));
- 
- /*inistring dstr_3897__CTYPE_BASIC_BLOC*/
- /*_.VALSTR___V3903*/ curfptr[3902] = (void*)&cdat->dstr_3897__CTYPE_BASIC_BLOC;
-  cdat->dstr_3897__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3897__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof(cdat->dstr_3897__CTYPE_BASIC_BLOC.val)-1);
- 
- /*iniobj dsym_3898__BASIC_BLOCK*/
- if (!/*_.VALDATA___V3904*/ curfptr[3903]) /*_.VALDATA___V3904*/ curfptr[3903] = (void*)&cdat->dsym_3898__BASIC_BLOCK;
-  melt_assertmsg("iniobj checkdiscr dsym_3898__BASIC_BLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3898__BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3898__BASIC_BLOCK.obj_hash = 760231711;
-  cdat->dsym_3898__BASIC_BLOCK.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3898__BASIC_BLOCK));
- 
- /*inistring dstr_3899__BASIC_BLOCK*/
- /*_.VALSTR___V3905*/ curfptr[3904] = (void*)&cdat->dstr_3899__BASIC_BLOCK;
-  cdat->dstr_3899__BASIC_BLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3899__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof(cdat->dstr_3899__BASIC_BLOCK.val)-1);
- 
- /*inistring dstr_3900__basic_block*/
- /*_.VALSTR___V3906*/ curfptr[3905] = (void*)&cdat->dstr_3900__basic_block;
-  cdat->dstr_3900__basic_block.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3900__basic_block.val, "basic_block", sizeof(cdat->dstr_3900__basic_block.val)-1);
- 
- /*inistring dstr_3901__BPAR_BB*/
- /*_.VALSTR___V3907*/ curfptr[3906] = (void*)&cdat->dstr_3901__BPAR_BB;
-  cdat->dstr_3901__BPAR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3901__BPAR_BB.val, "BPAR_BB", sizeof(cdat->dstr_3901__BPAR_BB.val)-1);
- 
- /*inistring dstr_3902__BPARSTR_BB*/
- /*_.VALSTR___V3908*/ curfptr[3907] = (void*)&cdat->dstr_3902__BPARSTR_BB;
-  cdat->dstr_3902__BPARSTR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3902__BPARSTR_BB.val, "BPARSTR_BB", sizeof(cdat->dstr_3902__BPARSTR_BB.val)-1);
- 
- /*inistring dstr_3903__bp_bb*/
- /*_.VALSTR___V3909*/ curfptr[3908] = (void*)&cdat->dstr_3903__bp_bb;
-  cdat->dstr_3903__bp_bb.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3903__bp_bb.val, "bp_bb", sizeof(cdat->dstr_3903__bp_bb.val)-1);
- 
- /*inistring dstr_3904__bp_bbptr*/
- /*_.VALSTR___V3910*/ curfptr[3909] = (void*)&cdat->dstr_3904__bp_bbptr;
-  cdat->dstr_3904__bp_bbptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3904__bp_bbptr.val, "bp_bbptr", sizeof(cdat->dstr_3904__bp_bbptr.val)-1);
- 
- /*inistring dstr_3905__gt_ggc_mx_basic_*/
- /*_.VALSTR___V3911*/ curfptr[3910] = (void*)&cdat->dstr_3905__gt_ggc_mx_basic_;
-  cdat->dstr_3905__gt_ggc_mx_basic_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3905__gt_ggc_mx_basic_.val, "gt_ggc_mx_basic_block_def", sizeof(cdat->dstr_3905__gt_ggc_mx_basic_.val)-1);
- 
- /*iniobj dsym_3906__CTYPE_EDGE*/
- if (!/*_.VALDATA___V3912*/ curfptr[3911]) /*_.VALDATA___V3912*/ curfptr[3911] = (void*)&cdat->dsym_3906__CTYPE_EDGE;
-  melt_assertmsg("iniobj checkdiscr dsym_3906__CTYPE_EDGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3906__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3906__CTYPE_EDGE.obj_hash = 959535633;
-  cdat->dsym_3906__CTYPE_EDGE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3906__CTYPE_EDGE));
- 
- /*inistring dstr_3907__CTYPE_EDGE*/
- /*_.VALSTR___V3913*/ curfptr[3912] = (void*)&cdat->dstr_3907__CTYPE_EDGE;
-  cdat->dstr_3907__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3907__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof(cdat->dstr_3907__CTYPE_EDGE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2439:/ iniobj");
- /*iniobj dobj_3908__CTYPE_EDGE*/
- if (((void*)(MELT_PREDEF(CTYPE_EDGE))) != (melt_ptr_t)&cdat->dobj_3908__CTYPE_EDGE) {
+ /*_.VALDATA___V3894*/ curfptr[3893] = ((void*)(MELT_PREDEF(CTYPE_BASIC_BLOCK)));
+  melt_assertmsg("iniobj checkdiscr dobj_3888__CTYPE_BASIC_BLOCK", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3888__CTYPE_BASIC_BLOCK.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3888__CTYPE_BASIC_BLOCK.obj_hash = 82469671;
+  cdat->dobj_3888__CTYPE_BASIC_BLOCK.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3888__CTYPE_BASIC_BLOCK));
+ 
+ /*inistring dstr_3889__CTYPE_BASIC_BLOC*/
+ /*_.VALSTR___V3895*/ curfptr[3894] = (void*)&cdat->dstr_3889__CTYPE_BASIC_BLOC;
+  cdat->dstr_3889__CTYPE_BASIC_BLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3889__CTYPE_BASIC_BLOC.val, "CTYPE_BASIC_BLOCK", sizeof(cdat->dstr_3889__CTYPE_BASIC_BLOC.val)-1);
+ 
+ /*iniobj dsym_3890__BASIC_BLOCK*/
+ if (!/*_.VALDATA___V3896*/ curfptr[3895]) /*_.VALDATA___V3896*/ curfptr[3895] = (void*)&cdat->dsym_3890__BASIC_BLOCK;
+  melt_assertmsg("iniobj checkdiscr dsym_3890__BASIC_BLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3890__BASIC_BLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3890__BASIC_BLOCK.obj_hash = 760231711;
+  cdat->dsym_3890__BASIC_BLOCK.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3890__BASIC_BLOCK));
+ 
+ /*inistring dstr_3891__BASIC_BLOCK*/
+ /*_.VALSTR___V3897*/ curfptr[3896] = (void*)&cdat->dstr_3891__BASIC_BLOCK;
+  cdat->dstr_3891__BASIC_BLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3891__BASIC_BLOCK.val, "BASIC_BLOCK", sizeof(cdat->dstr_3891__BASIC_BLOCK.val)-1);
+ 
+ /*inistring dstr_3892__basic_block*/
+ /*_.VALSTR___V3898*/ curfptr[3897] = (void*)&cdat->dstr_3892__basic_block;
+  cdat->dstr_3892__basic_block.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3892__basic_block.val, "basic_block", sizeof(cdat->dstr_3892__basic_block.val)-1);
+ 
+ /*inistring dstr_3893__BPAR_BB*/
+ /*_.VALSTR___V3899*/ curfptr[3898] = (void*)&cdat->dstr_3893__BPAR_BB;
+  cdat->dstr_3893__BPAR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3893__BPAR_BB.val, "BPAR_BB", sizeof(cdat->dstr_3893__BPAR_BB.val)-1);
+ 
+ /*inistring dstr_3894__BPARSTR_BB*/
+ /*_.VALSTR___V3900*/ curfptr[3899] = (void*)&cdat->dstr_3894__BPARSTR_BB;
+  cdat->dstr_3894__BPARSTR_BB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3894__BPARSTR_BB.val, "BPARSTR_BB", sizeof(cdat->dstr_3894__BPARSTR_BB.val)-1);
+ 
+ /*inistring dstr_3895__bp_bb*/
+ /*_.VALSTR___V3901*/ curfptr[3900] = (void*)&cdat->dstr_3895__bp_bb;
+  cdat->dstr_3895__bp_bb.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3895__bp_bb.val, "bp_bb", sizeof(cdat->dstr_3895__bp_bb.val)-1);
+ 
+ /*inistring dstr_3896__bp_bbptr*/
+ /*_.VALSTR___V3902*/ curfptr[3901] = (void*)&cdat->dstr_3896__bp_bbptr;
+  cdat->dstr_3896__bp_bbptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3896__bp_bbptr.val, "bp_bbptr", sizeof(cdat->dstr_3896__bp_bbptr.val)-1);
+ 
+ /*inistring dstr_3897__gt_ggc_mx_basic_*/
+ /*_.VALSTR___V3903*/ curfptr[3902] = (void*)&cdat->dstr_3897__gt_ggc_mx_basic_;
+  cdat->dstr_3897__gt_ggc_mx_basic_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3897__gt_ggc_mx_basic_.val, "gt_ggc_mx_basic_block_def", sizeof(cdat->dstr_3897__gt_ggc_mx_basic_.val)-1);
+ 
+ /*iniobj dsym_3898__CTYPE_EDGE*/
+ if (!/*_.VALDATA___V3904*/ curfptr[3903]) /*_.VALDATA___V3904*/ curfptr[3903] = (void*)&cdat->dsym_3898__CTYPE_EDGE;
+  melt_assertmsg("iniobj checkdiscr dsym_3898__CTYPE_EDGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3898__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3898__CTYPE_EDGE.obj_hash = 959535633;
+  cdat->dsym_3898__CTYPE_EDGE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3898__CTYPE_EDGE));
+ 
+ /*inistring dstr_3899__CTYPE_EDGE*/
+ /*_.VALSTR___V3905*/ curfptr[3904] = (void*)&cdat->dstr_3899__CTYPE_EDGE;
+  cdat->dstr_3899__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3899__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof(cdat->dstr_3899__CTYPE_EDGE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2434:/ iniobj");
+ /*iniobj dobj_3900__CTYPE_EDGE*/
+ if (((void*)(MELT_PREDEF(CTYPE_EDGE))) != (melt_ptr_t)&cdat->dobj_3900__CTYPE_EDGE) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_EDGE)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_EDGE))))) >= 11);
   };
- /*_.VALDATA___V3914*/ curfptr[3913] = ((void*)(MELT_PREDEF(CTYPE_EDGE)));
-  melt_assertmsg("iniobj checkdiscr dobj_3908__CTYPE_EDGE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3908__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3908__CTYPE_EDGE.obj_hash = 1043391359;
-  cdat->dobj_3908__CTYPE_EDGE.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3908__CTYPE_EDGE));
- 
- /*inistring dstr_3909__CTYPE_EDGE*/
- /*_.VALSTR___V3915*/ curfptr[3914] = (void*)&cdat->dstr_3909__CTYPE_EDGE;
-  cdat->dstr_3909__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3909__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof(cdat->dstr_3909__CTYPE_EDGE.val)-1);
- 
- /*iniobj dsym_3910__EDGE*/
- if (!/*_.VALDATA___V3916*/ curfptr[3915]) /*_.VALDATA___V3916*/ curfptr[3915] = (void*)&cdat->dsym_3910__EDGE;
-  melt_assertmsg("iniobj checkdiscr dsym_3910__EDGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3910__EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3910__EDGE.obj_hash = 132743413;
-  cdat->dsym_3910__EDGE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3910__EDGE));
- 
- /*inistring dstr_3911__EDGE*/
- /*_.VALSTR___V3917*/ curfptr[3916] = (void*)&cdat->dstr_3911__EDGE;
-  cdat->dstr_3911__EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3911__EDGE.val, "EDGE", sizeof(cdat->dstr_3911__EDGE.val)-1);
- 
- /*inistring dstr_3912__edge*/
- /*_.VALSTR___V3918*/ curfptr[3917] = (void*)&cdat->dstr_3912__edge;
-  cdat->dstr_3912__edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3912__edge.val, "edge", sizeof(cdat->dstr_3912__edge.val)-1);
- 
- /*inistring dstr_3913__BPAR_EDGE*/
- /*_.VALSTR___V3919*/ curfptr[3918] = (void*)&cdat->dstr_3913__BPAR_EDGE;
-  cdat->dstr_3913__BPAR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3913__BPAR_EDGE.val, "BPAR_EDGE", sizeof(cdat->dstr_3913__BPAR_EDGE.val)-1);
- 
- /*inistring dstr_3914__BPARSTR_EDGE*/
- /*_.VALSTR___V3920*/ curfptr[3919] = (void*)&cdat->dstr_3914__BPARSTR_EDGE;
-  cdat->dstr_3914__BPARSTR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3914__BPARSTR_EDGE.val, "BPARSTR_EDGE", sizeof(cdat->dstr_3914__BPARSTR_EDGE.val)-1);
- 
- /*inistring dstr_3915__bp_edge*/
- /*_.VALSTR___V3921*/ curfptr[3920] = (void*)&cdat->dstr_3915__bp_edge;
-  cdat->dstr_3915__bp_edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3915__bp_edge.val, "bp_edge", sizeof(cdat->dstr_3915__bp_edge.val)-1);
- 
- /*inistring dstr_3916__bp_edgeptr*/
- /*_.VALSTR___V3922*/ curfptr[3921] = (void*)&cdat->dstr_3916__bp_edgeptr;
-  cdat->dstr_3916__bp_edgeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3916__bp_edgeptr.val, "bp_edgeptr", sizeof(cdat->dstr_3916__bp_edgeptr.val)-1);
- 
- /*inistring dstr_3917__gt_ggc_mx_edge_d*/
- /*_.VALSTR___V3923*/ curfptr[3922] = (void*)&cdat->dstr_3917__gt_ggc_mx_edge_d;
-  cdat->dstr_3917__gt_ggc_mx_edge_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3917__gt_ggc_mx_edge_d.val, "gt_ggc_mx_edge_def", sizeof(cdat->dstr_3917__gt_ggc_mx_edge_d.val)-1);
- 
- /*iniobj dsym_3918__CTYPE_PPL_COEFFICIENT*/
- if (!/*_.VALDATA___V3924*/ curfptr[3923]) /*_.VALDATA___V3924*/ curfptr[3923] = (void*)&cdat->dsym_3918__CTYPE_PPL_COEFFICIENT;
-  melt_assertmsg("iniobj checkdiscr dsym_3918__CTYPE_PPL_COEFFICIENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3918__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3918__CTYPE_PPL_COEFFICIENT.obj_hash = 480666121;
-  cdat->dsym_3918__CTYPE_PPL_COEFFICIENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3918__CTYPE_PPL_COEFFICIENT));
- 
- /*inistring dstr_3919__CTYPE_PPL_COEFFI*/
- /*_.VALSTR___V3925*/ curfptr[3924] = (void*)&cdat->dstr_3919__CTYPE_PPL_COEFFI;
-  cdat->dstr_3919__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3919__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof(cdat->dstr_3919__CTYPE_PPL_COEFFI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2455:/ iniobj");
- /*iniobj dobj_3920__CTYPE_PPL_COEFFICIENT*/
- if (((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))) != (melt_ptr_t)&cdat->dobj_3920__CTYPE_PPL_COEFFICIENT) {
+ /*_.VALDATA___V3906*/ curfptr[3905] = ((void*)(MELT_PREDEF(CTYPE_EDGE)));
+  melt_assertmsg("iniobj checkdiscr dobj_3900__CTYPE_EDGE", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3900__CTYPE_EDGE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3900__CTYPE_EDGE.obj_hash = 824984034;
+  cdat->dobj_3900__CTYPE_EDGE.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3900__CTYPE_EDGE));
+ 
+ /*inistring dstr_3901__CTYPE_EDGE*/
+ /*_.VALSTR___V3907*/ curfptr[3906] = (void*)&cdat->dstr_3901__CTYPE_EDGE;
+  cdat->dstr_3901__CTYPE_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3901__CTYPE_EDGE.val, "CTYPE_EDGE", sizeof(cdat->dstr_3901__CTYPE_EDGE.val)-1);
+ 
+ /*iniobj dsym_3902__EDGE*/
+ if (!/*_.VALDATA___V3908*/ curfptr[3907]) /*_.VALDATA___V3908*/ curfptr[3907] = (void*)&cdat->dsym_3902__EDGE;
+  melt_assertmsg("iniobj checkdiscr dsym_3902__EDGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3902__EDGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3902__EDGE.obj_hash = 132743413;
+  cdat->dsym_3902__EDGE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3902__EDGE));
+ 
+ /*inistring dstr_3903__EDGE*/
+ /*_.VALSTR___V3909*/ curfptr[3908] = (void*)&cdat->dstr_3903__EDGE;
+  cdat->dstr_3903__EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3903__EDGE.val, "EDGE", sizeof(cdat->dstr_3903__EDGE.val)-1);
+ 
+ /*inistring dstr_3904__edge*/
+ /*_.VALSTR___V3910*/ curfptr[3909] = (void*)&cdat->dstr_3904__edge;
+  cdat->dstr_3904__edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3904__edge.val, "edge", sizeof(cdat->dstr_3904__edge.val)-1);
+ 
+ /*inistring dstr_3905__BPAR_EDGE*/
+ /*_.VALSTR___V3911*/ curfptr[3910] = (void*)&cdat->dstr_3905__BPAR_EDGE;
+  cdat->dstr_3905__BPAR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3905__BPAR_EDGE.val, "BPAR_EDGE", sizeof(cdat->dstr_3905__BPAR_EDGE.val)-1);
+ 
+ /*inistring dstr_3906__BPARSTR_EDGE*/
+ /*_.VALSTR___V3912*/ curfptr[3911] = (void*)&cdat->dstr_3906__BPARSTR_EDGE;
+  cdat->dstr_3906__BPARSTR_EDGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3906__BPARSTR_EDGE.val, "BPARSTR_EDGE", sizeof(cdat->dstr_3906__BPARSTR_EDGE.val)-1);
+ 
+ /*inistring dstr_3907__bp_edge*/
+ /*_.VALSTR___V3913*/ curfptr[3912] = (void*)&cdat->dstr_3907__bp_edge;
+  cdat->dstr_3907__bp_edge.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3907__bp_edge.val, "bp_edge", sizeof(cdat->dstr_3907__bp_edge.val)-1);
+ 
+ /*inistring dstr_3908__bp_edgeptr*/
+ /*_.VALSTR___V3914*/ curfptr[3913] = (void*)&cdat->dstr_3908__bp_edgeptr;
+  cdat->dstr_3908__bp_edgeptr.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3908__bp_edgeptr.val, "bp_edgeptr", sizeof(cdat->dstr_3908__bp_edgeptr.val)-1);
+ 
+ /*inistring dstr_3909__gt_ggc_mx_edge_d*/
+ /*_.VALSTR___V3915*/ curfptr[3914] = (void*)&cdat->dstr_3909__gt_ggc_mx_edge_d;
+  cdat->dstr_3909__gt_ggc_mx_edge_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3909__gt_ggc_mx_edge_d.val, "gt_ggc_mx_edge_def", sizeof(cdat->dstr_3909__gt_ggc_mx_edge_d.val)-1);
+ 
+ /*iniobj dsym_3910__CTYPE_PPL_COEFFICIENT*/
+ if (!/*_.VALDATA___V3916*/ curfptr[3915]) /*_.VALDATA___V3916*/ curfptr[3915] = (void*)&cdat->dsym_3910__CTYPE_PPL_COEFFICIENT;
+  melt_assertmsg("iniobj checkdiscr dsym_3910__CTYPE_PPL_COEFFICIENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3910__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3910__CTYPE_PPL_COEFFICIENT.obj_hash = 480666121;
+  cdat->dsym_3910__CTYPE_PPL_COEFFICIENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3910__CTYPE_PPL_COEFFICIENT));
+ 
+ /*inistring dstr_3911__CTYPE_PPL_COEFFI*/
+ /*_.VALSTR___V3917*/ curfptr[3916] = (void*)&cdat->dstr_3911__CTYPE_PPL_COEFFI;
+  cdat->dstr_3911__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3911__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof(cdat->dstr_3911__CTYPE_PPL_COEFFI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2450:/ iniobj");
+ /*iniobj dobj_3912__CTYPE_PPL_COEFFICIENT*/
+ if (((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))) != (melt_ptr_t)&cdat->dobj_3912__CTYPE_PPL_COEFFICIENT) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT))))) >= 11);
   };
- /*_.VALDATA___V3926*/ curfptr[3925] = ((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT)));
-  melt_assertmsg("iniobj checkdiscr dobj_3920__CTYPE_PPL_COEFFICIENT", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3920__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3920__CTYPE_PPL_COEFFICIENT.obj_hash = 899363519;
-  cdat->dobj_3920__CTYPE_PPL_COEFFICIENT.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3920__CTYPE_PPL_COEFFICIENT));
- 
- /*inistring dstr_3921__CTYPE_PPL_COEFFI*/
- /*_.VALSTR___V3927*/ curfptr[3926] = (void*)&cdat->dstr_3921__CTYPE_PPL_COEFFI;
-  cdat->dstr_3921__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3921__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof(cdat->dstr_3921__CTYPE_PPL_COEFFI.val)-1);
- 
- /*iniobj dsym_3922__PPL_COEFFICIENT*/
- if (!/*_.VALDATA___V3928*/ curfptr[3927]) /*_.VALDATA___V3928*/ curfptr[3927] = (void*)&cdat->dsym_3922__PPL_COEFFICIENT;
-  melt_assertmsg("iniobj checkdiscr dsym_3922__PPL_COEFFICIENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3922__PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3922__PPL_COEFFICIENT.obj_hash = 232836844;
-  cdat->dsym_3922__PPL_COEFFICIENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3922__PPL_COEFFICIENT));
- 
- /*inistring dstr_3923__PPL_COEFFICIENT*/
- /*_.VALSTR___V3929*/ curfptr[3928] = (void*)&cdat->dstr_3923__PPL_COEFFICIENT;
-  cdat->dstr_3923__PPL_COEFFICIENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3923__PPL_COEFFICIENT.val, "PPL_COEFFICIENT", sizeof(cdat->dstr_3923__PPL_COEFFICIENT.val)-1);
- 
- /*inistring dstr_3924__ppl_Coefficient_*/
- /*_.VALSTR___V3930*/ curfptr[3929] = (void*)&cdat->dstr_3924__ppl_Coefficient_;
-  cdat->dstr_3924__ppl_Coefficient_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3924__ppl_Coefficient_.val, "ppl_Coefficient_t", sizeof(cdat->dstr_3924__ppl_Coefficient_.val)-1);
- 
- /*inistring dstr_3925__BPAR_PPL_COEFFIC*/
- /*_.VALSTR___V3931*/ curfptr[3930] = (void*)&cdat->dstr_3925__BPAR_PPL_COEFFIC;
-  cdat->dstr_3925__BPAR_PPL_COEFFIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3925__BPAR_PPL_COEFFIC.val, "BPAR_PPL_COEFFICIENT", sizeof(cdat->dstr_3925__BPAR_PPL_COEFFIC.val)-1);
- 
- /*inistring dstr_3926__BPARSTR_PPL_COEF*/
- /*_.VALSTR___V3932*/ curfptr[3931] = (void*)&cdat->dstr_3926__BPARSTR_PPL_COEF;
-  cdat->dstr_3926__BPARSTR_PPL_COEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3926__BPARSTR_PPL_COEF.val, "BPARSTR_PPL_COEFFICIENT", sizeof(cdat->dstr_3926__BPARSTR_PPL_COEF.val)-1);
- 
- /*inistring dstr_3927__bp_ppl_coefficie*/
- /*_.VALSTR___V3933*/ curfptr[3932] = (void*)&cdat->dstr_3927__bp_ppl_coefficie;
-  cdat->dstr_3927__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3927__bp_ppl_coefficie.val, "bp_ppl_coefficient", sizeof(cdat->dstr_3927__bp_ppl_coefficie.val)-1);
- 
- /*inistring dstr_3928__bp_ppl_coefficie*/
- /*_.VALSTR___V3934*/ curfptr[3933] = (void*)&cdat->dstr_3928__bp_ppl_coefficie;
-  cdat->dstr_3928__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3928__bp_ppl_coefficie.val, "bp_ppl_coefficientptr", sizeof(cdat->dstr_3928__bp_ppl_coefficie.val)-1);
- 
- /*iniobj dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION*/
- if (!/*_.VALDATA___V3935*/ curfptr[3934]) /*_.VALDATA___V3935*/ curfptr[3934] = (void*)&cdat->dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION;
-  melt_assertmsg("iniobj checkdiscr dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 607500934;
-  cdat->dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3929__CTYPE_PPL_LINEAR_EXPRESSION));
- 
- /*inistring dstr_3930__CTYPE_PPL_LINEAR*/
- /*_.VALSTR___V3936*/ curfptr[3935] = (void*)&cdat->dstr_3930__CTYPE_PPL_LINEAR;
-  cdat->dstr_3930__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3930__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3930__CTYPE_PPL_LINEAR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2470:/ iniobj");
- /*iniobj dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION*/
- if (((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))) != (melt_ptr_t)&cdat->dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION) {
+ /*_.VALDATA___V3918*/ curfptr[3917] = ((void*)(MELT_PREDEF(CTYPE_PPL_COEFFICIENT)));
+  melt_assertmsg("iniobj checkdiscr dobj_3912__CTYPE_PPL_COEFFICIENT", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3912__CTYPE_PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3912__CTYPE_PPL_COEFFICIENT.obj_hash = 312170339;
+  cdat->dobj_3912__CTYPE_PPL_COEFFICIENT.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3912__CTYPE_PPL_COEFFICIENT));
+ 
+ /*inistring dstr_3913__CTYPE_PPL_COEFFI*/
+ /*_.VALSTR___V3919*/ curfptr[3918] = (void*)&cdat->dstr_3913__CTYPE_PPL_COEFFI;
+  cdat->dstr_3913__CTYPE_PPL_COEFFI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3913__CTYPE_PPL_COEFFI.val, "CTYPE_PPL_COEFFICIENT", sizeof(cdat->dstr_3913__CTYPE_PPL_COEFFI.val)-1);
+ 
+ /*iniobj dsym_3914__PPL_COEFFICIENT*/
+ if (!/*_.VALDATA___V3920*/ curfptr[3919]) /*_.VALDATA___V3920*/ curfptr[3919] = (void*)&cdat->dsym_3914__PPL_COEFFICIENT;
+  melt_assertmsg("iniobj checkdiscr dsym_3914__PPL_COEFFICIENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3914__PPL_COEFFICIENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3914__PPL_COEFFICIENT.obj_hash = 232836844;
+  cdat->dsym_3914__PPL_COEFFICIENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3914__PPL_COEFFICIENT));
+ 
+ /*inistring dstr_3915__PPL_COEFFICIENT*/
+ /*_.VALSTR___V3921*/ curfptr[3920] = (void*)&cdat->dstr_3915__PPL_COEFFICIENT;
+  cdat->dstr_3915__PPL_COEFFICIENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3915__PPL_COEFFICIENT.val, "PPL_COEFFICIENT", sizeof(cdat->dstr_3915__PPL_COEFFICIENT.val)-1);
+ 
+ /*inistring dstr_3916__ppl_Coefficient_*/
+ /*_.VALSTR___V3922*/ curfptr[3921] = (void*)&cdat->dstr_3916__ppl_Coefficient_;
+  cdat->dstr_3916__ppl_Coefficient_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3916__ppl_Coefficient_.val, "ppl_Coefficient_t", sizeof(cdat->dstr_3916__ppl_Coefficient_.val)-1);
+ 
+ /*inistring dstr_3917__BPAR_PPL_COEFFIC*/
+ /*_.VALSTR___V3923*/ curfptr[3922] = (void*)&cdat->dstr_3917__BPAR_PPL_COEFFIC;
+  cdat->dstr_3917__BPAR_PPL_COEFFIC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3917__BPAR_PPL_COEFFIC.val, "BPAR_PPL_COEFFICIENT", sizeof(cdat->dstr_3917__BPAR_PPL_COEFFIC.val)-1);
+ 
+ /*inistring dstr_3918__BPARSTR_PPL_COEF*/
+ /*_.VALSTR___V3924*/ curfptr[3923] = (void*)&cdat->dstr_3918__BPARSTR_PPL_COEF;
+  cdat->dstr_3918__BPARSTR_PPL_COEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3918__BPARSTR_PPL_COEF.val, "BPARSTR_PPL_COEFFICIENT", sizeof(cdat->dstr_3918__BPARSTR_PPL_COEF.val)-1);
+ 
+ /*inistring dstr_3919__bp_ppl_coefficie*/
+ /*_.VALSTR___V3925*/ curfptr[3924] = (void*)&cdat->dstr_3919__bp_ppl_coefficie;
+  cdat->dstr_3919__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3919__bp_ppl_coefficie.val, "bp_ppl_coefficient", sizeof(cdat->dstr_3919__bp_ppl_coefficie.val)-1);
+ 
+ /*inistring dstr_3920__bp_ppl_coefficie*/
+ /*_.VALSTR___V3926*/ curfptr[3925] = (void*)&cdat->dstr_3920__bp_ppl_coefficie;
+  cdat->dstr_3920__bp_ppl_coefficie.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3920__bp_ppl_coefficie.val, "bp_ppl_coefficientptr", sizeof(cdat->dstr_3920__bp_ppl_coefficie.val)-1);
+ 
+ /*iniobj dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION*/
+ if (!/*_.VALDATA___V3927*/ curfptr[3926]) /*_.VALDATA___V3927*/ curfptr[3926] = (void*)&cdat->dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION;
+  melt_assertmsg("iniobj checkdiscr dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 607500934;
+  cdat->dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3921__CTYPE_PPL_LINEAR_EXPRESSION));
+ 
+ /*inistring dstr_3922__CTYPE_PPL_LINEAR*/
+ /*_.VALSTR___V3928*/ curfptr[3927] = (void*)&cdat->dstr_3922__CTYPE_PPL_LINEAR;
+  cdat->dstr_3922__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3922__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3922__CTYPE_PPL_LINEAR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2465:/ iniobj");
+ /*iniobj dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION*/
+ if (((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))) != (melt_ptr_t)&cdat->dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION))))) >= 11);
   };
- /*_.VALDATA___V3937*/ curfptr[3936] = ((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)));
-  melt_assertmsg("iniobj checkdiscr dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 805026107;
-  cdat->dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3931__CTYPE_PPL_LINEAR_EXPRESSION));
- 
- /*inistring dstr_3932__CTYPE_PPL_LINEAR*/
- /*_.VALSTR___V3938*/ curfptr[3937] = (void*)&cdat->dstr_3932__CTYPE_PPL_LINEAR;
-  cdat->dstr_3932__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3932__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3932__CTYPE_PPL_LINEAR.val)-1);
- 
- /*iniobj dsym_3933__PPL_LINEAR_EXPRESSION*/
- if (!/*_.VALDATA___V3939*/ curfptr[3938]) /*_.VALDATA___V3939*/ curfptr[3938] = (void*)&cdat->dsym_3933__PPL_LINEAR_EXPRESSION;
-  melt_assertmsg("iniobj checkdiscr dsym_3933__PPL_LINEAR_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3933__PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3933__PPL_LINEAR_EXPRESSION.obj_hash = 680422589;
-  cdat->dsym_3933__PPL_LINEAR_EXPRESSION.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3933__PPL_LINEAR_EXPRESSION));
- 
- /*inistring dstr_3934__PPL_LINEAR_EXPRE*/
- /*_.VALSTR___V3940*/ curfptr[3939] = (void*)&cdat->dstr_3934__PPL_LINEAR_EXPRE;
-  cdat->dstr_3934__PPL_LINEAR_EXPRE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3934__PPL_LINEAR_EXPRE.val, "PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3934__PPL_LINEAR_EXPRE.val)-1);
- 
- /*inistring dstr_3935__ppl_Linear_Expre*/
- /*_.VALSTR___V3941*/ curfptr[3940] = (void*)&cdat->dstr_3935__ppl_Linear_Expre;
-  cdat->dstr_3935__ppl_Linear_Expre.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3935__ppl_Linear_Expre.val, "ppl_Linear_Expression_t", sizeof(cdat->dstr_3935__ppl_Linear_Expre.val)-1);
- 
- /*inistring dstr_3936__BPAR_PPL_LINEAR_*/
- /*_.VALSTR___V3942*/ curfptr[3941] = (void*)&cdat->dstr_3936__BPAR_PPL_LINEAR_;
-  cdat->dstr_3936__BPAR_PPL_LINEAR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3936__BPAR_PPL_LINEAR_.val, "BPAR_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3936__BPAR_PPL_LINEAR_.val)-1);
- 
- /*inistring dstr_3937__BPARSTR_PPL_LINE*/
- /*_.VALSTR___V3943*/ curfptr[3942] = (void*)&cdat->dstr_3937__BPARSTR_PPL_LINE;
-  cdat->dstr_3937__BPARSTR_PPL_LINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3937__BPARSTR_PPL_LINE.val, "BPARSTR_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3937__BPARSTR_PPL_LINE.val)-1);
- 
- /*inistring dstr_3938__bp_ppl_linear_ex*/
- /*_.VALSTR___V3944*/ curfptr[3943] = (void*)&cdat->dstr_3938__bp_ppl_linear_ex;
-  cdat->dstr_3938__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3938__bp_ppl_linear_ex.val, "bp_ppl_linear_expression", sizeof(cdat->dstr_3938__bp_ppl_linear_ex.val)-1);
- 
- /*inistring dstr_3939__bp_ppl_linear_ex*/
- /*_.VALSTR___V3945*/ curfptr[3944] = (void*)&cdat->dstr_3939__bp_ppl_linear_ex;
-  cdat->dstr_3939__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3939__bp_ppl_linear_ex.val, "bp_ppl_linear_expressionptr", sizeof(cdat->dstr_3939__bp_ppl_linear_ex.val)-1);
- 
- /*iniobj dsym_3940__CTYPE_PPL_CONSTRAINT*/
- if (!/*_.VALDATA___V3946*/ curfptr[3945]) /*_.VALDATA___V3946*/ curfptr[3945] = (void*)&cdat->dsym_3940__CTYPE_PPL_CONSTRAINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3940__CTYPE_PPL_CONSTRAINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3940__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3940__CTYPE_PPL_CONSTRAINT.obj_hash = 66344219;
-  cdat->dsym_3940__CTYPE_PPL_CONSTRAINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3940__CTYPE_PPL_CONSTRAINT));
- 
- /*inistring dstr_3941__CTYPE_PPL_CONSTR*/
- /*_.VALSTR___V3947*/ curfptr[3946] = (void*)&cdat->dstr_3941__CTYPE_PPL_CONSTR;
-  cdat->dstr_3941__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3941__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof(cdat->dstr_3941__CTYPE_PPL_CONSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2485:/ iniobj");
- /*iniobj dobj_3942__CTYPE_PPL_CONSTRAINT*/
- if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))) != (melt_ptr_t)&cdat->dobj_3942__CTYPE_PPL_CONSTRAINT) {
+ /*_.VALDATA___V3929*/ curfptr[3928] = ((void*)(MELT_PREDEF(CTYPE_PPL_LINEAR_EXPRESSION)));
+  melt_assertmsg("iniobj checkdiscr dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION.obj_hash = 380422811;
+  cdat->dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3923__CTYPE_PPL_LINEAR_EXPRESSION));
+ 
+ /*inistring dstr_3924__CTYPE_PPL_LINEAR*/
+ /*_.VALSTR___V3930*/ curfptr[3929] = (void*)&cdat->dstr_3924__CTYPE_PPL_LINEAR;
+  cdat->dstr_3924__CTYPE_PPL_LINEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3924__CTYPE_PPL_LINEAR.val, "CTYPE_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3924__CTYPE_PPL_LINEAR.val)-1);
+ 
+ /*iniobj dsym_3925__PPL_LINEAR_EXPRESSION*/
+ if (!/*_.VALDATA___V3931*/ curfptr[3930]) /*_.VALDATA___V3931*/ curfptr[3930] = (void*)&cdat->dsym_3925__PPL_LINEAR_EXPRESSION;
+  melt_assertmsg("iniobj checkdiscr dsym_3925__PPL_LINEAR_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3925__PPL_LINEAR_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3925__PPL_LINEAR_EXPRESSION.obj_hash = 680422589;
+  cdat->dsym_3925__PPL_LINEAR_EXPRESSION.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3925__PPL_LINEAR_EXPRESSION));
+ 
+ /*inistring dstr_3926__PPL_LINEAR_EXPRE*/
+ /*_.VALSTR___V3932*/ curfptr[3931] = (void*)&cdat->dstr_3926__PPL_LINEAR_EXPRE;
+  cdat->dstr_3926__PPL_LINEAR_EXPRE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3926__PPL_LINEAR_EXPRE.val, "PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3926__PPL_LINEAR_EXPRE.val)-1);
+ 
+ /*inistring dstr_3927__ppl_Linear_Expre*/
+ /*_.VALSTR___V3933*/ curfptr[3932] = (void*)&cdat->dstr_3927__ppl_Linear_Expre;
+  cdat->dstr_3927__ppl_Linear_Expre.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3927__ppl_Linear_Expre.val, "ppl_Linear_Expression_t", sizeof(cdat->dstr_3927__ppl_Linear_Expre.val)-1);
+ 
+ /*inistring dstr_3928__BPAR_PPL_LINEAR_*/
+ /*_.VALSTR___V3934*/ curfptr[3933] = (void*)&cdat->dstr_3928__BPAR_PPL_LINEAR_;
+  cdat->dstr_3928__BPAR_PPL_LINEAR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3928__BPAR_PPL_LINEAR_.val, "BPAR_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3928__BPAR_PPL_LINEAR_.val)-1);
+ 
+ /*inistring dstr_3929__BPARSTR_PPL_LINE*/
+ /*_.VALSTR___V3935*/ curfptr[3934] = (void*)&cdat->dstr_3929__BPARSTR_PPL_LINE;
+  cdat->dstr_3929__BPARSTR_PPL_LINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3929__BPARSTR_PPL_LINE.val, "BPARSTR_PPL_LINEAR_EXPRESSION", sizeof(cdat->dstr_3929__BPARSTR_PPL_LINE.val)-1);
+ 
+ /*inistring dstr_3930__bp_ppl_linear_ex*/
+ /*_.VALSTR___V3936*/ curfptr[3935] = (void*)&cdat->dstr_3930__bp_ppl_linear_ex;
+  cdat->dstr_3930__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3930__bp_ppl_linear_ex.val, "bp_ppl_linear_expression", sizeof(cdat->dstr_3930__bp_ppl_linear_ex.val)-1);
+ 
+ /*inistring dstr_3931__bp_ppl_linear_ex*/
+ /*_.VALSTR___V3937*/ curfptr[3936] = (void*)&cdat->dstr_3931__bp_ppl_linear_ex;
+  cdat->dstr_3931__bp_ppl_linear_ex.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3931__bp_ppl_linear_ex.val, "bp_ppl_linear_expressionptr", sizeof(cdat->dstr_3931__bp_ppl_linear_ex.val)-1);
+ 
+ /*iniobj dsym_3932__CTYPE_PPL_CONSTRAINT*/
+ if (!/*_.VALDATA___V3938*/ curfptr[3937]) /*_.VALDATA___V3938*/ curfptr[3937] = (void*)&cdat->dsym_3932__CTYPE_PPL_CONSTRAINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3932__CTYPE_PPL_CONSTRAINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3932__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3932__CTYPE_PPL_CONSTRAINT.obj_hash = 66344219;
+  cdat->dsym_3932__CTYPE_PPL_CONSTRAINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3932__CTYPE_PPL_CONSTRAINT));
+ 
+ /*inistring dstr_3933__CTYPE_PPL_CONSTR*/
+ /*_.VALSTR___V3939*/ curfptr[3938] = (void*)&cdat->dstr_3933__CTYPE_PPL_CONSTR;
+  cdat->dstr_3933__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3933__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof(cdat->dstr_3933__CTYPE_PPL_CONSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2480:/ iniobj");
+ /*iniobj dobj_3934__CTYPE_PPL_CONSTRAINT*/
+ if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))) != (melt_ptr_t)&cdat->dobj_3934__CTYPE_PPL_CONSTRAINT) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT))))) >= 11);
   };
- /*_.VALDATA___V3948*/ curfptr[3947] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT)));
-  melt_assertmsg("iniobj checkdiscr dobj_3942__CTYPE_PPL_CONSTRAINT", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3942__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3942__CTYPE_PPL_CONSTRAINT.obj_hash = 426711836;
-  cdat->dobj_3942__CTYPE_PPL_CONSTRAINT.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3942__CTYPE_PPL_CONSTRAINT));
- 
- /*inistring dstr_3943__CTYPE_PPL_CONSTR*/
- /*_.VALSTR___V3949*/ curfptr[3948] = (void*)&cdat->dstr_3943__CTYPE_PPL_CONSTR;
-  cdat->dstr_3943__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3943__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof(cdat->dstr_3943__CTYPE_PPL_CONSTR.val)-1);
- 
- /*iniobj dsym_3944__PPL_CONSTRAINT*/
- if (!/*_.VALDATA___V3950*/ curfptr[3949]) /*_.VALDATA___V3950*/ curfptr[3949] = (void*)&cdat->dsym_3944__PPL_CONSTRAINT;
-  melt_assertmsg("iniobj checkdiscr dsym_3944__PPL_CONSTRAINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3944__PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3944__PPL_CONSTRAINT.obj_hash = 63718339;
-  cdat->dsym_3944__PPL_CONSTRAINT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3944__PPL_CONSTRAINT));
- 
- /*inistring dstr_3945__PPL_CONSTRAINT*/
- /*_.VALSTR___V3951*/ curfptr[3950] = (void*)&cdat->dstr_3945__PPL_CONSTRAINT;
-  cdat->dstr_3945__PPL_CONSTRAINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3945__PPL_CONSTRAINT.val, "PPL_CONSTRAINT", sizeof(cdat->dstr_3945__PPL_CONSTRAINT.val)-1);
- 
- /*inistring dstr_3946__ppl_Constraint_t*/
- /*_.VALSTR___V3952*/ curfptr[3951] = (void*)&cdat->dstr_3946__ppl_Constraint_t;
-  cdat->dstr_3946__ppl_Constraint_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3946__ppl_Constraint_t.val, "ppl_Constraint_t", sizeof(cdat->dstr_3946__ppl_Constraint_t.val)-1);
- 
- /*inistring dstr_3947__BPAR_PPL_CONSTRA*/
- /*_.VALSTR___V3953*/ curfptr[3952] = (void*)&cdat->dstr_3947__BPAR_PPL_CONSTRA;
-  cdat->dstr_3947__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3947__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT", sizeof(cdat->dstr_3947__BPAR_PPL_CONSTRA.val)-1);
- 
- /*inistring dstr_3948__BPARSTR_PPL_CONS*/
- /*_.VALSTR___V3954*/ curfptr[3953] = (void*)&cdat->dstr_3948__BPARSTR_PPL_CONS;
-  cdat->dstr_3948__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3948__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT", sizeof(cdat->dstr_3948__BPARSTR_PPL_CONS.val)-1);
- 
- /*inistring dstr_3949__bp_ppl_constrain*/
- /*_.VALSTR___V3955*/ curfptr[3954] = (void*)&cdat->dstr_3949__bp_ppl_constrain;
-  cdat->dstr_3949__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3949__bp_ppl_constrain.val, "bp_ppl_constraint", sizeof(cdat->dstr_3949__bp_ppl_constrain.val)-1);
- 
- /*inistring dstr_3950__bp_ppl_constrain*/
- /*_.VALSTR___V3956*/ curfptr[3955] = (void*)&cdat->dstr_3950__bp_ppl_constrain;
-  cdat->dstr_3950__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3950__bp_ppl_constrain.val, "bp_ppl_constraintptr", sizeof(cdat->dstr_3950__bp_ppl_constrain.val)-1);
- 
- /*iniobj dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM*/
- if (!/*_.VALDATA___V3957*/ curfptr[3956]) /*_.VALDATA___V3957*/ curfptr[3956] = (void*)&cdat->dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM;
-  melt_assertmsg("iniobj checkdiscr dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 450980506;
-  cdat->dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3951__CTYPE_PPL_CONSTRAINT_SYSTEM));
- 
- /*inistring dstr_3952__CTYPE_PPL_CONSTR*/
- /*_.VALSTR___V3958*/ curfptr[3957] = (void*)&cdat->dstr_3952__CTYPE_PPL_CONSTR;
-  cdat->dstr_3952__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3952__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3952__CTYPE_PPL_CONSTR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2500:/ iniobj");
- /*iniobj dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM*/
- if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))) != (melt_ptr_t)&cdat->dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM) {
+ /*_.VALDATA___V3940*/ curfptr[3939] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT)));
+  melt_assertmsg("iniobj checkdiscr dobj_3934__CTYPE_PPL_CONSTRAINT", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3934__CTYPE_PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3934__CTYPE_PPL_CONSTRAINT.obj_hash = 354478498;
+  cdat->dobj_3934__CTYPE_PPL_CONSTRAINT.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3934__CTYPE_PPL_CONSTRAINT));
+ 
+ /*inistring dstr_3935__CTYPE_PPL_CONSTR*/
+ /*_.VALSTR___V3941*/ curfptr[3940] = (void*)&cdat->dstr_3935__CTYPE_PPL_CONSTR;
+  cdat->dstr_3935__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3935__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT", sizeof(cdat->dstr_3935__CTYPE_PPL_CONSTR.val)-1);
+ 
+ /*iniobj dsym_3936__PPL_CONSTRAINT*/
+ if (!/*_.VALDATA___V3942*/ curfptr[3941]) /*_.VALDATA___V3942*/ curfptr[3941] = (void*)&cdat->dsym_3936__PPL_CONSTRAINT;
+  melt_assertmsg("iniobj checkdiscr dsym_3936__PPL_CONSTRAINT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3936__PPL_CONSTRAINT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3936__PPL_CONSTRAINT.obj_hash = 63718339;
+  cdat->dsym_3936__PPL_CONSTRAINT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3936__PPL_CONSTRAINT));
+ 
+ /*inistring dstr_3937__PPL_CONSTRAINT*/
+ /*_.VALSTR___V3943*/ curfptr[3942] = (void*)&cdat->dstr_3937__PPL_CONSTRAINT;
+  cdat->dstr_3937__PPL_CONSTRAINT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3937__PPL_CONSTRAINT.val, "PPL_CONSTRAINT", sizeof(cdat->dstr_3937__PPL_CONSTRAINT.val)-1);
+ 
+ /*inistring dstr_3938__ppl_Constraint_t*/
+ /*_.VALSTR___V3944*/ curfptr[3943] = (void*)&cdat->dstr_3938__ppl_Constraint_t;
+  cdat->dstr_3938__ppl_Constraint_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3938__ppl_Constraint_t.val, "ppl_Constraint_t", sizeof(cdat->dstr_3938__ppl_Constraint_t.val)-1);
+ 
+ /*inistring dstr_3939__BPAR_PPL_CONSTRA*/
+ /*_.VALSTR___V3945*/ curfptr[3944] = (void*)&cdat->dstr_3939__BPAR_PPL_CONSTRA;
+  cdat->dstr_3939__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3939__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT", sizeof(cdat->dstr_3939__BPAR_PPL_CONSTRA.val)-1);
+ 
+ /*inistring dstr_3940__BPARSTR_PPL_CONS*/
+ /*_.VALSTR___V3946*/ curfptr[3945] = (void*)&cdat->dstr_3940__BPARSTR_PPL_CONS;
+  cdat->dstr_3940__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3940__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT", sizeof(cdat->dstr_3940__BPARSTR_PPL_CONS.val)-1);
+ 
+ /*inistring dstr_3941__bp_ppl_constrain*/
+ /*_.VALSTR___V3947*/ curfptr[3946] = (void*)&cdat->dstr_3941__bp_ppl_constrain;
+  cdat->dstr_3941__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3941__bp_ppl_constrain.val, "bp_ppl_constraint", sizeof(cdat->dstr_3941__bp_ppl_constrain.val)-1);
+ 
+ /*inistring dstr_3942__bp_ppl_constrain*/
+ /*_.VALSTR___V3948*/ curfptr[3947] = (void*)&cdat->dstr_3942__bp_ppl_constrain;
+  cdat->dstr_3942__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3942__bp_ppl_constrain.val, "bp_ppl_constraintptr", sizeof(cdat->dstr_3942__bp_ppl_constrain.val)-1);
+ 
+ /*iniobj dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM*/
+ if (!/*_.VALDATA___V3949*/ curfptr[3948]) /*_.VALDATA___V3949*/ curfptr[3948] = (void*)&cdat->dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM;
+  melt_assertmsg("iniobj checkdiscr dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 450980506;
+  cdat->dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3943__CTYPE_PPL_CONSTRAINT_SYSTEM));
+ 
+ /*inistring dstr_3944__CTYPE_PPL_CONSTR*/
+ /*_.VALSTR___V3950*/ curfptr[3949] = (void*)&cdat->dstr_3944__CTYPE_PPL_CONSTR;
+  cdat->dstr_3944__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3944__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3944__CTYPE_PPL_CONSTR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2495:/ iniobj");
+ /*iniobj dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM*/
+ if (((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))) != (melt_ptr_t)&cdat->dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM))))) >= 11);
   };
- /*_.VALDATA___V3959*/ curfptr[3958] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)));
-  melt_assertmsg("iniobj checkdiscr dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 66491361;
-  cdat->dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3953__CTYPE_PPL_CONSTRAINT_SYSTEM));
- 
- /*inistring dstr_3954__CTYPE_PPL_CONSTR*/
- /*_.VALSTR___V3960*/ curfptr[3959] = (void*)&cdat->dstr_3954__CTYPE_PPL_CONSTR;
-  cdat->dstr_3954__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3954__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3954__CTYPE_PPL_CONSTR.val)-1);
- 
- /*iniobj dsym_3955__PPL_CONSTRAINT_SYSTEM*/
- if (!/*_.VALDATA___V3961*/ curfptr[3960]) /*_.VALDATA___V3961*/ curfptr[3960] = (void*)&cdat->dsym_3955__PPL_CONSTRAINT_SYSTEM;
-  melt_assertmsg("iniobj checkdiscr dsym_3955__PPL_CONSTRAINT_SYSTEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3955__PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3955__PPL_CONSTRAINT_SYSTEM.obj_hash = 913923267;
-  cdat->dsym_3955__PPL_CONSTRAINT_SYSTEM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3955__PPL_CONSTRAINT_SYSTEM));
- 
- /*inistring dstr_3956__PPL_CONSTRAINT_S*/
- /*_.VALSTR___V3962*/ curfptr[3961] = (void*)&cdat->dstr_3956__PPL_CONSTRAINT_S;
-  cdat->dstr_3956__PPL_CONSTRAINT_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3956__PPL_CONSTRAINT_S.val, "PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3956__PPL_CONSTRAINT_S.val)-1);
- 
- /*inistring dstr_3957__ppl_Constraint_S*/
- /*_.VALSTR___V3963*/ curfptr[3962] = (void*)&cdat->dstr_3957__ppl_Constraint_S;
-  cdat->dstr_3957__ppl_Constraint_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3957__ppl_Constraint_S.val, "ppl_Constraint_System_t", sizeof(cdat->dstr_3957__ppl_Constraint_S.val)-1);
- 
- /*inistring dstr_3958__BPAR_PPL_CONSTRA*/
- /*_.VALSTR___V3964*/ curfptr[3963] = (void*)&cdat->dstr_3958__BPAR_PPL_CONSTRA;
-  cdat->dstr_3958__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3958__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3958__BPAR_PPL_CONSTRA.val)-1);
- 
- /*inistring dstr_3959__BPARSTR_PPL_CONS*/
- /*_.VALSTR___V3965*/ curfptr[3964] = (void*)&cdat->dstr_3959__BPARSTR_PPL_CONS;
-  cdat->dstr_3959__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3959__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3959__BPARSTR_PPL_CONS.val)-1);
- 
- /*inistring dstr_3960__bp_ppl_constrain*/
- /*_.VALSTR___V3966*/ curfptr[3965] = (void*)&cdat->dstr_3960__bp_ppl_constrain;
-  cdat->dstr_3960__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3960__bp_ppl_constrain.val, "bp_ppl_constraint_system", sizeof(cdat->dstr_3960__bp_ppl_constrain.val)-1);
- 
- /*inistring dstr_3961__bp_ppl_constrain*/
- /*_.VALSTR___V3967*/ curfptr[3966] = (void*)&cdat->dstr_3961__bp_ppl_constrain;
-  cdat->dstr_3961__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3961__bp_ppl_constrain.val, "bp_ppl_constraint_systemptr", sizeof(cdat->dstr_3961__bp_ppl_constrain.val)-1);
- 
- /*iniobj dsym_3962__CTYPE_PPL_POLYHEDRON*/
- if (!/*_.VALDATA___V3968*/ curfptr[3967]) /*_.VALDATA___V3968*/ curfptr[3967] = (void*)&cdat->dsym_3962__CTYPE_PPL_POLYHEDRON;
-  melt_assertmsg("iniobj checkdiscr dsym_3962__CTYPE_PPL_POLYHEDRON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3962__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3962__CTYPE_PPL_POLYHEDRON.obj_hash = 849173857;
-  cdat->dsym_3962__CTYPE_PPL_POLYHEDRON.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3962__CTYPE_PPL_POLYHEDRON));
- 
- /*inistring dstr_3963__CTYPE_PPL_POLYHE*/
- /*_.VALSTR___V3969*/ curfptr[3968] = (void*)&cdat->dstr_3963__CTYPE_PPL_POLYHE;
-  cdat->dstr_3963__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3963__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof(cdat->dstr_3963__CTYPE_PPL_POLYHE.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2515:/ iniobj");
- /*iniobj dobj_3964__CTYPE_PPL_POLYHEDRON*/
- if (((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))) != (melt_ptr_t)&cdat->dobj_3964__CTYPE_PPL_POLYHEDRON) {
+ /*_.VALDATA___V3951*/ curfptr[3950] = ((void*)(MELT_PREDEF(CTYPE_PPL_CONSTRAINT_SYSTEM)));
+  melt_assertmsg("iniobj checkdiscr dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_hash = 782767772;
+  cdat->dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3945__CTYPE_PPL_CONSTRAINT_SYSTEM));
+ 
+ /*inistring dstr_3946__CTYPE_PPL_CONSTR*/
+ /*_.VALSTR___V3952*/ curfptr[3951] = (void*)&cdat->dstr_3946__CTYPE_PPL_CONSTR;
+  cdat->dstr_3946__CTYPE_PPL_CONSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3946__CTYPE_PPL_CONSTR.val, "CTYPE_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3946__CTYPE_PPL_CONSTR.val)-1);
+ 
+ /*iniobj dsym_3947__PPL_CONSTRAINT_SYSTEM*/
+ if (!/*_.VALDATA___V3953*/ curfptr[3952]) /*_.VALDATA___V3953*/ curfptr[3952] = (void*)&cdat->dsym_3947__PPL_CONSTRAINT_SYSTEM;
+  melt_assertmsg("iniobj checkdiscr dsym_3947__PPL_CONSTRAINT_SYSTEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3947__PPL_CONSTRAINT_SYSTEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3947__PPL_CONSTRAINT_SYSTEM.obj_hash = 913923267;
+  cdat->dsym_3947__PPL_CONSTRAINT_SYSTEM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3947__PPL_CONSTRAINT_SYSTEM));
+ 
+ /*inistring dstr_3948__PPL_CONSTRAINT_S*/
+ /*_.VALSTR___V3954*/ curfptr[3953] = (void*)&cdat->dstr_3948__PPL_CONSTRAINT_S;
+  cdat->dstr_3948__PPL_CONSTRAINT_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3948__PPL_CONSTRAINT_S.val, "PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3948__PPL_CONSTRAINT_S.val)-1);
+ 
+ /*inistring dstr_3949__ppl_Constraint_S*/
+ /*_.VALSTR___V3955*/ curfptr[3954] = (void*)&cdat->dstr_3949__ppl_Constraint_S;
+  cdat->dstr_3949__ppl_Constraint_S.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3949__ppl_Constraint_S.val, "ppl_Constraint_System_t", sizeof(cdat->dstr_3949__ppl_Constraint_S.val)-1);
+ 
+ /*inistring dstr_3950__BPAR_PPL_CONSTRA*/
+ /*_.VALSTR___V3956*/ curfptr[3955] = (void*)&cdat->dstr_3950__BPAR_PPL_CONSTRA;
+  cdat->dstr_3950__BPAR_PPL_CONSTRA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3950__BPAR_PPL_CONSTRA.val, "BPAR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3950__BPAR_PPL_CONSTRA.val)-1);
+ 
+ /*inistring dstr_3951__BPARSTR_PPL_CONS*/
+ /*_.VALSTR___V3957*/ curfptr[3956] = (void*)&cdat->dstr_3951__BPARSTR_PPL_CONS;
+  cdat->dstr_3951__BPARSTR_PPL_CONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3951__BPARSTR_PPL_CONS.val, "BPARSTR_PPL_CONSTRAINT_SYSTEM", sizeof(cdat->dstr_3951__BPARSTR_PPL_CONS.val)-1);
+ 
+ /*inistring dstr_3952__bp_ppl_constrain*/
+ /*_.VALSTR___V3958*/ curfptr[3957] = (void*)&cdat->dstr_3952__bp_ppl_constrain;
+  cdat->dstr_3952__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3952__bp_ppl_constrain.val, "bp_ppl_constraint_system", sizeof(cdat->dstr_3952__bp_ppl_constrain.val)-1);
+ 
+ /*inistring dstr_3953__bp_ppl_constrain*/
+ /*_.VALSTR___V3959*/ curfptr[3958] = (void*)&cdat->dstr_3953__bp_ppl_constrain;
+  cdat->dstr_3953__bp_ppl_constrain.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3953__bp_ppl_constrain.val, "bp_ppl_constraint_systemptr", sizeof(cdat->dstr_3953__bp_ppl_constrain.val)-1);
+ 
+ /*iniobj dsym_3954__CTYPE_PPL_POLYHEDRON*/
+ if (!/*_.VALDATA___V3960*/ curfptr[3959]) /*_.VALDATA___V3960*/ curfptr[3959] = (void*)&cdat->dsym_3954__CTYPE_PPL_POLYHEDRON;
+  melt_assertmsg("iniobj checkdiscr dsym_3954__CTYPE_PPL_POLYHEDRON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3954__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3954__CTYPE_PPL_POLYHEDRON.obj_hash = 849173857;
+  cdat->dsym_3954__CTYPE_PPL_POLYHEDRON.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3954__CTYPE_PPL_POLYHEDRON));
+ 
+ /*inistring dstr_3955__CTYPE_PPL_POLYHE*/
+ /*_.VALSTR___V3961*/ curfptr[3960] = (void*)&cdat->dstr_3955__CTYPE_PPL_POLYHE;
+  cdat->dstr_3955__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3955__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof(cdat->dstr_3955__CTYPE_PPL_POLYHE.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2510:/ iniobj");
+ /*iniobj dobj_3956__CTYPE_PPL_POLYHEDRON*/
+ if (((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))) != (melt_ptr_t)&cdat->dobj_3956__CTYPE_PPL_POLYHEDRON) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON))))) >= 11);
   };
- /*_.VALDATA___V3970*/ curfptr[3969] = ((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON)));
-  melt_assertmsg("iniobj checkdiscr dobj_3964__CTYPE_PPL_POLYHEDRON", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3964__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3964__CTYPE_PPL_POLYHEDRON.obj_hash = 176787177;
-  cdat->dobj_3964__CTYPE_PPL_POLYHEDRON.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3964__CTYPE_PPL_POLYHEDRON));
- 
- /*inistring dstr_3965__CTYPE_PPL_POLYHE*/
- /*_.VALSTR___V3971*/ curfptr[3970] = (void*)&cdat->dstr_3965__CTYPE_PPL_POLYHE;
-  cdat->dstr_3965__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3965__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof(cdat->dstr_3965__CTYPE_PPL_POLYHE.val)-1);
- 
- /*iniobj dsym_3966__PPL_POLYHEDRON*/
- if (!/*_.VALDATA___V3972*/ curfptr[3971]) /*_.VALDATA___V3972*/ curfptr[3971] = (void*)&cdat->dsym_3966__PPL_POLYHEDRON;
-  melt_assertmsg("iniobj checkdiscr dsym_3966__PPL_POLYHEDRON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3966__PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3966__PPL_POLYHEDRON.obj_hash = 542236482;
-  cdat->dsym_3966__PPL_POLYHEDRON.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3966__PPL_POLYHEDRON));
- 
- /*inistring dstr_3967__PPL_POLYHEDRON*/
- /*_.VALSTR___V3973*/ curfptr[3972] = (void*)&cdat->dstr_3967__PPL_POLYHEDRON;
-  cdat->dstr_3967__PPL_POLYHEDRON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3967__PPL_POLYHEDRON.val, "PPL_POLYHEDRON", sizeof(cdat->dstr_3967__PPL_POLYHEDRON.val)-1);
- 
- /*inistring dstr_3968__ppl_Polyhedron_t*/
- /*_.VALSTR___V3974*/ curfptr[3973] = (void*)&cdat->dstr_3968__ppl_Polyhedron_t;
-  cdat->dstr_3968__ppl_Polyhedron_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3968__ppl_Polyhedron_t.val, "ppl_Polyhedron_t", sizeof(cdat->dstr_3968__ppl_Polyhedron_t.val)-1);
- 
- /*inistring dstr_3969__BPAR_PPL_POLYHED*/
- /*_.VALSTR___V3975*/ curfptr[3974] = (void*)&cdat->dstr_3969__BPAR_PPL_POLYHED;
-  cdat->dstr_3969__BPAR_PPL_POLYHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3969__BPAR_PPL_POLYHED.val, "BPAR_PPL_POLYHEDRON", sizeof(cdat->dstr_3969__BPAR_PPL_POLYHED.val)-1);
- 
- /*inistring dstr_3970__BPARSTR_PPL_POLY*/
- /*_.VALSTR___V3976*/ curfptr[3975] = (void*)&cdat->dstr_3970__BPARSTR_PPL_POLY;
-  cdat->dstr_3970__BPARSTR_PPL_POLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3970__BPARSTR_PPL_POLY.val, "BPARSTR_PPL_POLYHEDRON", sizeof(cdat->dstr_3970__BPARSTR_PPL_POLY.val)-1);
- 
- /*inistring dstr_3971__bp_ppl_polyhedro*/
- /*_.VALSTR___V3977*/ curfptr[3976] = (void*)&cdat->dstr_3971__bp_ppl_polyhedro;
-  cdat->dstr_3971__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3971__bp_ppl_polyhedro.val, "bp_ppl_polyhedron", sizeof(cdat->dstr_3971__bp_ppl_polyhedro.val)-1);
- 
- /*inistring dstr_3972__bp_ppl_polyhedro*/
- /*_.VALSTR___V3978*/ curfptr[3977] = (void*)&cdat->dstr_3972__bp_ppl_polyhedro;
-  cdat->dstr_3972__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3972__bp_ppl_polyhedro.val, "bp_ppl_polyhedronptr", sizeof(cdat->dstr_3972__bp_ppl_polyhedro.val)-1);
- 
- /*iniobj dsym_3973__CTYPE_VOID*/
- if (!/*_.VALDATA___V3979*/ curfptr[3978]) /*_.VALDATA___V3979*/ curfptr[3978] = (void*)&cdat->dsym_3973__CTYPE_VOID;
-  melt_assertmsg("iniobj checkdiscr dsym_3973__CTYPE_VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3973__CTYPE_VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3973__CTYPE_VOID.obj_hash = 94242002;
-  cdat->dsym_3973__CTYPE_VOID.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3973__CTYPE_VOID));
- 
- /*inistring dstr_3974__CTYPE_VOID*/
- /*_.VALSTR___V3980*/ curfptr[3979] = (void*)&cdat->dstr_3974__CTYPE_VOID;
-  cdat->dstr_3974__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3974__CTYPE_VOID.val, "CTYPE_VOID", sizeof(cdat->dstr_3974__CTYPE_VOID.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2531:/ iniobj");
- /*iniobj dobj_3975__CTYPE_VOID*/
- if (((void*)(MELT_PREDEF(CTYPE_VOID))) != (melt_ptr_t)&cdat->dobj_3975__CTYPE_VOID) {
+ /*_.VALDATA___V3962*/ curfptr[3961] = ((void*)(MELT_PREDEF(CTYPE_PPL_POLYHEDRON)));
+  melt_assertmsg("iniobj checkdiscr dobj_3956__CTYPE_PPL_POLYHEDRON", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3956__CTYPE_PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3956__CTYPE_PPL_POLYHEDRON.obj_hash = 158640183;
+  cdat->dobj_3956__CTYPE_PPL_POLYHEDRON.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3956__CTYPE_PPL_POLYHEDRON));
+ 
+ /*inistring dstr_3957__CTYPE_PPL_POLYHE*/
+ /*_.VALSTR___V3963*/ curfptr[3962] = (void*)&cdat->dstr_3957__CTYPE_PPL_POLYHE;
+  cdat->dstr_3957__CTYPE_PPL_POLYHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3957__CTYPE_PPL_POLYHE.val, "CTYPE_PPL_POLYHEDRON", sizeof(cdat->dstr_3957__CTYPE_PPL_POLYHE.val)-1);
+ 
+ /*iniobj dsym_3958__PPL_POLYHEDRON*/
+ if (!/*_.VALDATA___V3964*/ curfptr[3963]) /*_.VALDATA___V3964*/ curfptr[3963] = (void*)&cdat->dsym_3958__PPL_POLYHEDRON;
+  melt_assertmsg("iniobj checkdiscr dsym_3958__PPL_POLYHEDRON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3958__PPL_POLYHEDRON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3958__PPL_POLYHEDRON.obj_hash = 542236482;
+  cdat->dsym_3958__PPL_POLYHEDRON.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3958__PPL_POLYHEDRON));
+ 
+ /*inistring dstr_3959__PPL_POLYHEDRON*/
+ /*_.VALSTR___V3965*/ curfptr[3964] = (void*)&cdat->dstr_3959__PPL_POLYHEDRON;
+  cdat->dstr_3959__PPL_POLYHEDRON.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3959__PPL_POLYHEDRON.val, "PPL_POLYHEDRON", sizeof(cdat->dstr_3959__PPL_POLYHEDRON.val)-1);
+ 
+ /*inistring dstr_3960__ppl_Polyhedron_t*/
+ /*_.VALSTR___V3966*/ curfptr[3965] = (void*)&cdat->dstr_3960__ppl_Polyhedron_t;
+  cdat->dstr_3960__ppl_Polyhedron_t.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3960__ppl_Polyhedron_t.val, "ppl_Polyhedron_t", sizeof(cdat->dstr_3960__ppl_Polyhedron_t.val)-1);
+ 
+ /*inistring dstr_3961__BPAR_PPL_POLYHED*/
+ /*_.VALSTR___V3967*/ curfptr[3966] = (void*)&cdat->dstr_3961__BPAR_PPL_POLYHED;
+  cdat->dstr_3961__BPAR_PPL_POLYHED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3961__BPAR_PPL_POLYHED.val, "BPAR_PPL_POLYHEDRON", sizeof(cdat->dstr_3961__BPAR_PPL_POLYHED.val)-1);
+ 
+ /*inistring dstr_3962__BPARSTR_PPL_POLY*/
+ /*_.VALSTR___V3968*/ curfptr[3967] = (void*)&cdat->dstr_3962__BPARSTR_PPL_POLY;
+  cdat->dstr_3962__BPARSTR_PPL_POLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3962__BPARSTR_PPL_POLY.val, "BPARSTR_PPL_POLYHEDRON", sizeof(cdat->dstr_3962__BPARSTR_PPL_POLY.val)-1);
+ 
+ /*inistring dstr_3963__bp_ppl_polyhedro*/
+ /*_.VALSTR___V3969*/ curfptr[3968] = (void*)&cdat->dstr_3963__bp_ppl_polyhedro;
+  cdat->dstr_3963__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3963__bp_ppl_polyhedro.val, "bp_ppl_polyhedron", sizeof(cdat->dstr_3963__bp_ppl_polyhedro.val)-1);
+ 
+ /*inistring dstr_3964__bp_ppl_polyhedro*/
+ /*_.VALSTR___V3970*/ curfptr[3969] = (void*)&cdat->dstr_3964__bp_ppl_polyhedro;
+  cdat->dstr_3964__bp_ppl_polyhedro.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3964__bp_ppl_polyhedro.val, "bp_ppl_polyhedronptr", sizeof(cdat->dstr_3964__bp_ppl_polyhedro.val)-1);
+ 
+ /*iniobj dsym_3965__CTYPE_VOID*/
+ if (!/*_.VALDATA___V3971*/ curfptr[3970]) /*_.VALDATA___V3971*/ curfptr[3970] = (void*)&cdat->dsym_3965__CTYPE_VOID;
+  melt_assertmsg("iniobj checkdiscr dsym_3965__CTYPE_VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3965__CTYPE_VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3965__CTYPE_VOID.obj_hash = 94242002;
+  cdat->dsym_3965__CTYPE_VOID.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3965__CTYPE_VOID));
+ 
+ /*inistring dstr_3966__CTYPE_VOID*/
+ /*_.VALSTR___V3972*/ curfptr[3971] = (void*)&cdat->dstr_3966__CTYPE_VOID;
+  cdat->dstr_3966__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3966__CTYPE_VOID.val, "CTYPE_VOID", sizeof(cdat->dstr_3966__CTYPE_VOID.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2526:/ iniobj");
+ /*iniobj dobj_3967__CTYPE_VOID*/
+ if (((void*)(MELT_PREDEF(CTYPE_VOID))) != (melt_ptr_t)&cdat->dobj_3967__CTYPE_VOID) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_VOID)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_VOID))))) >= 11);
   };
- /*_.VALDATA___V3981*/ curfptr[3980] = ((void*)(MELT_PREDEF(CTYPE_VOID)));
-  melt_assertmsg("iniobj checkdiscr dobj_3975__CTYPE_VOID", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3975__CTYPE_VOID.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3975__CTYPE_VOID.obj_hash = 537402173;
-  cdat->dobj_3975__CTYPE_VOID.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3975__CTYPE_VOID));
- 
- /*inistring dstr_3976__CTYPE_VOID*/
- /*_.VALSTR___V3982*/ curfptr[3981] = (void*)&cdat->dstr_3976__CTYPE_VOID;
-  cdat->dstr_3976__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3976__CTYPE_VOID.val, "CTYPE_VOID", sizeof(cdat->dstr_3976__CTYPE_VOID.val)-1);
- 
- /*iniobj dsym_3977__VOID*/
- if (!/*_.VALDATA___V3983*/ curfptr[3982]) /*_.VALDATA___V3983*/ curfptr[3982] = (void*)&cdat->dsym_3977__VOID;
-  melt_assertmsg("iniobj checkdiscr dsym_3977__VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3977__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3977__VOID.obj_hash = 123885219;
-  cdat->dsym_3977__VOID.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3977__VOID));
- 
- /*inistring dstr_3978__VOID*/
- /*_.VALSTR___V3984*/ curfptr[3983] = (void*)&cdat->dstr_3978__VOID;
-  cdat->dstr_3978__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3978__VOID.val, "VOID", sizeof(cdat->dstr_3978__VOID.val)-1);
- 
- /*inistring dstr_3979__void*/
- /*_.VALSTR___V3985*/ curfptr[3984] = (void*)&cdat->dstr_3979__void;
-  cdat->dstr_3979__void.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3979__void.val, "void", sizeof(cdat->dstr_3979__void.val)-1);
- 
- /*iniobj dsym_3980__CTYPE_CSTRING*/
- if (!/*_.VALDATA___V3986*/ curfptr[3985]) /*_.VALDATA___V3986*/ curfptr[3985] = (void*)&cdat->dsym_3980__CTYPE_CSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_3980__CTYPE_CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3980__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3980__CTYPE_CSTRING.obj_hash = 90196516;
-  cdat->dsym_3980__CTYPE_CSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3980__CTYPE_CSTRING));
- 
- /*inistring dstr_3981__CTYPE_CSTRING*/
- /*_.VALSTR___V3987*/ curfptr[3986] = (void*)&cdat->dstr_3981__CTYPE_CSTRING;
-  cdat->dstr_3981__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3981__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof(cdat->dstr_3981__CTYPE_CSTRING.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2543:/ iniobj");
- /*iniobj dobj_3982__CTYPE_CSTRING*/
- if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_3982__CTYPE_CSTRING) {
+ /*_.VALDATA___V3973*/ curfptr[3972] = ((void*)(MELT_PREDEF(CTYPE_VOID)));
+  melt_assertmsg("iniobj checkdiscr dobj_3967__CTYPE_VOID", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3967__CTYPE_VOID.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3967__CTYPE_VOID.obj_hash = 152516748;
+  cdat->dobj_3967__CTYPE_VOID.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3967__CTYPE_VOID));
+ 
+ /*inistring dstr_3968__CTYPE_VOID*/
+ /*_.VALSTR___V3974*/ curfptr[3973] = (void*)&cdat->dstr_3968__CTYPE_VOID;
+  cdat->dstr_3968__CTYPE_VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3968__CTYPE_VOID.val, "CTYPE_VOID", sizeof(cdat->dstr_3968__CTYPE_VOID.val)-1);
+ 
+ /*iniobj dsym_3969__VOID*/
+ if (!/*_.VALDATA___V3975*/ curfptr[3974]) /*_.VALDATA___V3975*/ curfptr[3974] = (void*)&cdat->dsym_3969__VOID;
+  melt_assertmsg("iniobj checkdiscr dsym_3969__VOID", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3969__VOID.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3969__VOID.obj_hash = 123885219;
+  cdat->dsym_3969__VOID.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3969__VOID));
+ 
+ /*inistring dstr_3970__VOID*/
+ /*_.VALSTR___V3976*/ curfptr[3975] = (void*)&cdat->dstr_3970__VOID;
+  cdat->dstr_3970__VOID.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3970__VOID.val, "VOID", sizeof(cdat->dstr_3970__VOID.val)-1);
+ 
+ /*inistring dstr_3971__void*/
+ /*_.VALSTR___V3977*/ curfptr[3976] = (void*)&cdat->dstr_3971__void;
+  cdat->dstr_3971__void.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3971__void.val, "void", sizeof(cdat->dstr_3971__void.val)-1);
+ 
+ /*iniobj dsym_3972__CTYPE_CSTRING*/
+ if (!/*_.VALDATA___V3978*/ curfptr[3977]) /*_.VALDATA___V3978*/ curfptr[3977] = (void*)&cdat->dsym_3972__CTYPE_CSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_3972__CTYPE_CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3972__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3972__CTYPE_CSTRING.obj_hash = 90196516;
+  cdat->dsym_3972__CTYPE_CSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3972__CTYPE_CSTRING));
+ 
+ /*inistring dstr_3973__CTYPE_CSTRING*/
+ /*_.VALSTR___V3979*/ curfptr[3978] = (void*)&cdat->dstr_3973__CTYPE_CSTRING;
+  cdat->dstr_3973__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3973__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof(cdat->dstr_3973__CTYPE_CSTRING.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2538:/ iniobj");
+ /*iniobj dobj_3974__CTYPE_CSTRING*/
+ if (((void*)(MELT_PREDEF(CTYPE_CSTRING))) != (melt_ptr_t)&cdat->dobj_3974__CTYPE_CSTRING) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(CTYPE_CSTRING)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(CTYPE_CSTRING))))) >= 11);
   };
- /*_.VALDATA___V3988*/ curfptr[3987] = ((void*)(MELT_PREDEF(CTYPE_CSTRING)));
-  melt_assertmsg("iniobj checkdiscr dobj_3982__CTYPE_CSTRING", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3982__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
-  cdat->dobj_3982__CTYPE_CSTRING.obj_hash = 332410131;
-  cdat->dobj_3982__CTYPE_CSTRING.obj_len = 11;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3982__CTYPE_CSTRING));
- 
- /*inistring dstr_3983__CTYPE_CSTRING*/
- /*_.VALSTR___V3990*/ curfptr[3989] = (void*)&cdat->dstr_3983__CTYPE_CSTRING;
-  cdat->dstr_3983__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3983__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof(cdat->dstr_3983__CTYPE_CSTRING.val)-1);
- 
- /*iniobj dsym_3984__CSTRING*/
- if (!/*_.VALDATA___V3991*/ curfptr[3990]) /*_.VALDATA___V3991*/ curfptr[3990] = (void*)&cdat->dsym_3984__CSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_3984__CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3984__CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_3984__CSTRING.obj_hash = 33530498;
-  cdat->dsym_3984__CSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3984__CSTRING));
- 
- /*inistring dstr_3985__CSTRING*/
- /*_.VALSTR___V3992*/ curfptr[3991] = (void*)&cdat->dstr_3985__CSTRING;
-  cdat->dstr_3985__CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3985__CSTRING.val, "CSTRING", sizeof(cdat->dstr_3985__CSTRING.val)-1);
- 
- /*inistring dstr_3986__BPAR_CSTRING*/
- /*_.VALSTR___V3993*/ curfptr[3992] = (void*)&cdat->dstr_3986__BPAR_CSTRING;
-  cdat->dstr_3986__BPAR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3986__BPAR_CSTRING.val, "BPAR_CSTRING", sizeof(cdat->dstr_3986__BPAR_CSTRING.val)-1);
- 
- /*inistring dstr_3987__BPARSTR_CSTRING*/
- /*_.VALSTR___V3994*/ curfptr[3993] = (void*)&cdat->dstr_3987__BPARSTR_CSTRING;
-  cdat->dstr_3987__BPARSTR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3987__BPARSTR_CSTRING.val, "BPARSTR_CSTRING", sizeof(cdat->dstr_3987__BPARSTR_CSTRING.val)-1);
- 
- /*inistring dstr_3988__bp_cstring*/
- /*_.VALSTR___V3995*/ curfptr[3994] = (void*)&cdat->dstr_3988__bp_cstring;
-  cdat->dstr_3988__bp_cstring.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3988__bp_cstring.val, "bp_cstring", sizeof(cdat->dstr_3988__bp_cstring.val)-1);
- 
- /*inirout drout_3989__ADD_NEW_SYMBOL_TOKEN*/
- /*_.VALROUT___V3996*/ curfptr[3995] = (void*)&cdat->drout_3989__ADD_NEW_SYMBOL_TOKEN;
-  cdat->drout_3989__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_3989__ADD_NEW_SYMBOL_TOKEN.routdescr, "ADD_NEW_SYMBOL_TOKEN @warmelt-first.melt:2559",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_3989__ADD_NEW_SYMBOL_TOKEN.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3989__ADD_NEW_SYMBOL_TOKEN, meltrout_3_warmelt_first_ADD_NEW_SYMBOL_TOKEN);
- 
- /*iniclos dclo_3990__ADD_NEW_SYMBOL_TOKEN*/
- /*_.VALCLO___V3997*/ curfptr[3996] = (void*)&cdat->dclo_3990__ADD_NEW_SYMBOL_TOKEN;
-  cdat->dclo_3990__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_3990__ADD_NEW_SYMBOL_TOKEN.nbval = 0;
- 
- /*inirout drout_3991__ADD_NEW_KEYWORD_TOKEN*/
- /*_.VALROUT___V3998*/ curfptr[3997] = (void*)&cdat->drout_3991__ADD_NEW_KEYWORD_TOKEN;
-  cdat->drout_3991__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_3991__ADD_NEW_KEYWORD_TOKEN.routdescr, "ADD_NEW_KEYWORD_TOKEN @warmelt-first.melt:2568",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_3991__ADD_NEW_KEYWORD_TOKEN.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3991__ADD_NEW_KEYWORD_TOKEN, meltrout_4_warmelt_first_ADD_NEW_KEYWORD_TOKEN);
- 
- /*iniclos dclo_3992__ADD_NEW_KEYWORD_TOKEN*/
- /*_.VALCLO___V3999*/ curfptr[3998] = (void*)&cdat->dclo_3992__ADD_NEW_KEYWORD_TOKEN;
-  cdat->dclo_3992__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_3992__ADD_NEW_KEYWORD_TOKEN.nbval = 0;
- 
- /*inirout drout_3993__INTERN_SYMBOL*/
- /*_.VALROUT___V4000*/ curfptr[3999] = (void*)&cdat->drout_3993__INTERN_SYMBOL;
-  cdat->drout_3993__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_3993__INTERN_SYMBOL.routdescr, "INTERN_SYMBOL @warmelt-first.melt:2577",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_3993__INTERN_SYMBOL.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3993__INTERN_SYMBOL, meltrout_5_warmelt_first_INTERN_SYMBOL);
- 
- /*iniclos dclo_3994__INTERN_SYMBOL*/
- /*_.VALCLO___V4001*/ curfptr[4000] = (void*)&cdat->dclo_3994__INTERN_SYMBOL;
-  cdat->dclo_3994__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_3994__INTERN_SYMBOL.nbval = 0;
- 
- /*inirout drout_3995__INTERN_KEYWORD*/
- /*_.VALROUT___V4002*/ curfptr[4001] = (void*)&cdat->drout_3995__INTERN_KEYWORD;
-  cdat->drout_3995__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_3995__INTERN_KEYWORD.routdescr, "INTERN_KEYWORD @warmelt-first.melt:2593",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_3995__INTERN_KEYWORD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3995__INTERN_KEYWORD, meltrout_6_warmelt_first_INTERN_KEYWORD);
- 
- /*iniclos dclo_3996__INTERN_KEYWORD*/
- /*_.VALCLO___V4003*/ curfptr[4002] = (void*)&cdat->dclo_3996__INTERN_KEYWORD;
-  cdat->dclo_3996__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_3996__INTERN_KEYWORD.nbval = 0;
- 
- /*iniobj dsym_3997__CONTAINER_CLONEMAPSTRING*/
- if (!/*_.VALDATA___V4004*/ curfptr[4003]) /*_.VALDATA___V4004*/ curfptr[4003] = (void*)&cdat->dsym_3997__CONTAINER_CLONEMAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_3997__CONTAINER_CLONEMAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3997__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_3997__CONTAINER_CLONEMAPSTRING.obj_hash = 81420896;
-  cdat->dsym_3997__CONTAINER_CLONEMAPSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3997__CONTAINER_CLONEMAPSTRING));
- 
- /*inistring dstr_3998__CONTAINER_CLONEM*/
- /*_.VALSTR___V4005*/ curfptr[4004] = (void*)&cdat->dstr_3998__CONTAINER_CLONEM;
-  cdat->dstr_3998__CONTAINER_CLONEM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_3998__CONTAINER_CLONEM.val, "CONTAINER_CLONEMAPSTRING", sizeof(cdat->dstr_3998__CONTAINER_CLONEM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2605:/ iniobj");
- /*iniobj dobj_3999__CONTAINER_CLONEMAPSTRING*/
- if (!/*_.VALDATA___V4006*/ curfptr[4005]) /*_.VALDATA___V4006*/ curfptr[4005] = (void*)&cdat->dobj_3999__CONTAINER_CLONEMAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dobj_3999__CONTAINER_CLONEMAPSTRING", NULL != (void*)/*_.VALDATA___V25*/ curfptr[24]);
-  cdat->dobj_3999__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
-  cdat->dobj_3999__CONTAINER_CLONEMAPSTRING.obj_hash = 611126688;
-  cdat->dobj_3999__CONTAINER_CLONEMAPSTRING.obj_len = 1;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3999__CONTAINER_CLONEMAPSTRING));
- 
- /*inirout drout_4000__CLONE_SYMBOL*/
- /*_.VALROUT___V4008*/ curfptr[4007] = (void*)&cdat->drout_4000__CLONE_SYMBOL;
-  cdat->drout_4000__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4000__CLONE_SYMBOL.routdescr, "CLONE_SYMBOL @warmelt-first.melt:2609",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4000__CLONE_SYMBOL.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4000__CLONE_SYMBOL, meltrout_7_warmelt_first_CLONE_SYMBOL);
- 
- /*iniclos dclo_4001__CLONE_SYMBOL*/
- /*_.VALCLO___V4082*/ curfptr[4081] = (void*)&cdat->dclo_4001__CLONE_SYMBOL;
-  cdat->dclo_4001__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4001__CLONE_SYMBOL.nbval = 0;
- 
- /*inirout drout_4002__INITFRESH_CONTENVMAKER*/
- /*_.VALROUT___V4018*/ curfptr[4017] = (void*)&cdat->drout_4002__INITFRESH_CONTENVMAKER;
-  cdat->drout_4002__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4002__INITFRESH_CONTENVMAKER.routdescr, "INITFRESH_CONTENVMAKER @warmelt-first.melt:2662",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4002__INITFRESH_CONTENVMAKER.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4002__INITFRESH_CONTENVMAKER, meltrout_8_warmelt_first_INITFRESH_CONTENVMAKER);
- 
- /*iniclos dclo_4003__INITFRESH_CONTENVMAKER*/
- /*_.VALCLO___V4017*/ curfptr[4016] = (void*)&cdat->dclo_4003__INITFRESH_CONTENVMAKER;
-  cdat->dclo_4003__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4003__INITFRESH_CONTENVMAKER.nbval = 0;
- 
- /*inirout drout_4004__INITVALUE_EXPORTER*/
- /*_.VALROUT___V4022*/ curfptr[4021] = (void*)&cdat->drout_4004__INITVALUE_EXPORTER;
-  cdat->drout_4004__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4004__INITVALUE_EXPORTER.routdescr, "INITVALUE_EXPORTER @warmelt-first.melt:2676",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4004__INITVALUE_EXPORTER.nbval = 17;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4004__INITVALUE_EXPORTER, meltrout_9_warmelt_first_INITVALUE_EXPORTER);
- 
- /*iniclos dclo_4005__INITVALUE_EXPORTER*/
- /*_.VALCLO___V4021*/ curfptr[4020] = (void*)&cdat->dclo_4005__INITVALUE_EXPORTER;
-  cdat->dclo_4005__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4005__INITVALUE_EXPORTER.nbval = 0;
- 
- /*inirout drout_4006__INITVALUE_IMPORTER*/
- /*_.VALROUT___V4030*/ curfptr[4029] = (void*)&cdat->drout_4006__INITVALUE_IMPORTER;
-  cdat->drout_4006__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4006__INITVALUE_IMPORTER.routdescr, "INITVALUE_IMPORTER @warmelt-first.melt:2766",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4006__INITVALUE_IMPORTER.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4006__INITVALUE_IMPORTER, meltrout_10_warmelt_first_INITVALUE_IMPORTER);
- 
- /*iniclos dclo_4007__INITVALUE_IMPORTER*/
- /*_.VALCLO___V4029*/ curfptr[4028] = (void*)&cdat->dclo_4007__INITVALUE_IMPORTER;
-  cdat->dclo_4007__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4007__INITVALUE_IMPORTER.nbval = 0;
- 
- /*inirout drout_4008__INITMACRO_EXPORTER*/
- /*_.VALROUT___V4028*/ curfptr[4027] = (void*)&cdat->drout_4008__INITMACRO_EXPORTER;
-  cdat->drout_4008__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4008__INITMACRO_EXPORTER.routdescr, "INITMACRO_EXPORTER @warmelt-first.melt:2807",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4008__INITMACRO_EXPORTER.nbval = 7;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4008__INITMACRO_EXPORTER, meltrout_11_warmelt_first_INITMACRO_EXPORTER);
- 
- /*iniclos dclo_4009__INITMACRO_EXPORTER*/
- /*_.VALCLO___V4027*/ curfptr[4026] = (void*)&cdat->dclo_4009__INITMACRO_EXPORTER;
-  cdat->dclo_4009__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4009__INITMACRO_EXPORTER.nbval = 0;
- 
- /*inirout drout_4010__INITPATMACRO_EXPORTER*/
- /*_.VALROUT___V4053*/ curfptr[4052] = (void*)&cdat->drout_4010__INITPATMACRO_EXPORTER;
-  cdat->drout_4010__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4010__INITPATMACRO_EXPORTER.routdescr, "INITPATMACRO_EXPORTER @warmelt-first.melt:2838",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4010__INITPATMACRO_EXPORTER.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4010__INITPATMACRO_EXPORTER, meltrout_12_warmelt_first_INITPATMACRO_EXPORTER);
- 
- /*iniclos dclo_4011__INITPATMACRO_EXPORTER*/
- /*_.VALCLO___V4052*/ curfptr[4051] = (void*)&cdat->dclo_4011__INITPATMACRO_EXPORTER;
-  cdat->dclo_4011__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4011__INITPATMACRO_EXPORTER.nbval = 0;
- 
- /*iniobj dsym_4012__CLASS_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4083*/ curfptr[4082]) /*_.VALDATA___V4083*/ curfptr[4082] = (void*)&cdat->dsym_4012__CLASS_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dsym_4012__CLASS_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4012__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4012__CLASS_DELAYED_QUEUE.obj_hash = 761132519;
-  cdat->dsym_4012__CLASS_DELAYED_QUEUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4012__CLASS_DELAYED_QUEUE));
- 
- /*inistring dstr_4013__CLASS_DELAYED_QU*/
- /*_.VALSTR___V4084*/ curfptr[4083] = (void*)&cdat->dstr_4013__CLASS_DELAYED_QU;
-  cdat->dstr_4013__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4013__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof(cdat->dstr_4013__CLASS_DELAYED_QU.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2872:/ iniobj");
- /*iniobj dobj_4014__CLASS_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4033*/ curfptr[4032]) /*_.VALDATA___V4033*/ curfptr[4032] = (void*)&cdat->dobj_4014__CLASS_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dobj_4014__CLASS_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_4014__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_4014__CLASS_DELAYED_QUEUE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_4014__CLASS_DELAYED_QUEUE.obj_hash = 1050781313;
-  cdat->dobj_4014__CLASS_DELAYED_QUEUE.obj_len = 8;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4014__CLASS_DELAYED_QUEUE));
- 
- /*inistring dstr_4015__CLASS_DELAYED_QU*/
- /*_.VALSTR___V4034*/ curfptr[4033] = (void*)&cdat->dstr_4015__CLASS_DELAYED_QU;
-  cdat->dstr_4015__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4015__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof(cdat->dstr_4015__CLASS_DELAYED_QU.val)-1);
- 
- /*inimult dtup_4016__CLASS_DELAYED_QUEUE*/
- /*_.VALTUP___V4035*/ curfptr[4034] = (void*)&cdat->dtup_4016__CLASS_DELAYED_QUEUE;
-  cdat->dtup_4016__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
-  cdat->dtup_4016__CLASS_DELAYED_QUEUE.nbval = 3;
- /*inimult dtup_4017__CLASS_DELAYED_QUEUE*/
- /*_.VALTUP___V4042*/ curfptr[4041] = (void*)&cdat->dtup_4017__CLASS_DELAYED_QUEUE;
-  cdat->dtup_4017__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_4017__CLASS_DELAYED_QUEUE.nbval = 5;
- /*iniobj dsym_4018__DELQU_FIRST*/
- if (!/*_.VALDATA___V4085*/ curfptr[4084]) /*_.VALDATA___V4085*/ curfptr[4084] = (void*)&cdat->dsym_4018__DELQU_FIRST;
-  melt_assertmsg("iniobj checkdiscr dsym_4018__DELQU_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4018__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4018__DELQU_FIRST.obj_hash = 186270784;
-  cdat->dsym_4018__DELQU_FIRST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4018__DELQU_FIRST));
- 
- /*inistring dstr_4019__DELQU_FIRST*/
- /*_.VALSTR___V4086*/ curfptr[4085] = (void*)&cdat->dstr_4019__DELQU_FIRST;
-  cdat->dstr_4019__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4019__DELQU_FIRST.val, "DELQU_FIRST", sizeof(cdat->dstr_4019__DELQU_FIRST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2872:/ iniobj");
- /*iniobj dobj_4020__DELQU_FIRST*/
- if (!/*_.VALDATA___V4036*/ curfptr[4035]) /*_.VALDATA___V4036*/ curfptr[4035] = (void*)&cdat->dobj_4020__DELQU_FIRST;
-  melt_assertmsg("iniobj checkdiscr dobj_4020__DELQU_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_4020__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_4020__DELQU_FIRST.obj_num = 2;
-  cdat->dobj_4020__DELQU_FIRST.obj_hash = 158015355;
-  cdat->dobj_4020__DELQU_FIRST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4020__DELQU_FIRST));
- 
- /*inistring dstr_4021__DELQU_FIRST*/
- /*_.VALSTR___V4037*/ curfptr[4036] = (void*)&cdat->dstr_4021__DELQU_FIRST;
-  cdat->dstr_4021__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4021__DELQU_FIRST.val, "DELQU_FIRST", sizeof(cdat->dstr_4021__DELQU_FIRST.val)-1);
- 
- /*iniobj dsym_4022__DELQU_LAST*/
- if (!/*_.VALDATA___V4087*/ curfptr[4086]) /*_.VALDATA___V4087*/ curfptr[4086] = (void*)&cdat->dsym_4022__DELQU_LAST;
-  melt_assertmsg("iniobj checkdiscr dsym_4022__DELQU_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4022__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4022__DELQU_LAST.obj_hash = 794155320;
-  cdat->dsym_4022__DELQU_LAST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4022__DELQU_LAST));
- 
- /*inistring dstr_4023__DELQU_LAST*/
- /*_.VALSTR___V4088*/ curfptr[4087] = (void*)&cdat->dstr_4023__DELQU_LAST;
-  cdat->dstr_4023__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4023__DELQU_LAST.val, "DELQU_LAST", sizeof(cdat->dstr_4023__DELQU_LAST.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2872:/ iniobj");
- /*iniobj dobj_4024__DELQU_LAST*/
- if (!/*_.VALDATA___V4038*/ curfptr[4037]) /*_.VALDATA___V4038*/ curfptr[4037] = (void*)&cdat->dobj_4024__DELQU_LAST;
-  melt_assertmsg("iniobj checkdiscr dobj_4024__DELQU_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_4024__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_4024__DELQU_LAST.obj_num = 3;
-  cdat->dobj_4024__DELQU_LAST.obj_hash = 276875462;
-  cdat->dobj_4024__DELQU_LAST.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4024__DELQU_LAST));
- 
- /*inistring dstr_4025__DELQU_LAST*/
- /*_.VALSTR___V4039*/ curfptr[4038] = (void*)&cdat->dstr_4025__DELQU_LAST;
-  cdat->dstr_4025__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4025__DELQU_LAST.val, "DELQU_LAST", sizeof(cdat->dstr_4025__DELQU_LAST.val)-1);
- 
- /*iniobj dsym_4026__DELQU_DATA*/
- if (!/*_.VALDATA___V4089*/ curfptr[4088]) /*_.VALDATA___V4089*/ curfptr[4088] = (void*)&cdat->dsym_4026__DELQU_DATA;
-  melt_assertmsg("iniobj checkdiscr dsym_4026__DELQU_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4026__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4026__DELQU_DATA.obj_hash = 14455036;
-  cdat->dsym_4026__DELQU_DATA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4026__DELQU_DATA));
- 
- /*inistring dstr_4027__DELQU_DATA*/
- /*_.VALSTR___V4090*/ curfptr[4089] = (void*)&cdat->dstr_4027__DELQU_DATA;
-  cdat->dstr_4027__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4027__DELQU_DATA.val, "DELQU_DATA", sizeof(cdat->dstr_4027__DELQU_DATA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2872:/ iniobj");
- /*iniobj dobj_4028__DELQU_DATA*/
- if (!/*_.VALDATA___V4040*/ curfptr[4039]) /*_.VALDATA___V4040*/ curfptr[4039] = (void*)&cdat->dobj_4028__DELQU_DATA;
-  melt_assertmsg("iniobj checkdiscr dobj_4028__DELQU_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_4028__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_4028__DELQU_DATA.obj_num = 4;
-  cdat->dobj_4028__DELQU_DATA.obj_hash = 280187965;
-  cdat->dobj_4028__DELQU_DATA.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4028__DELQU_DATA));
- 
- /*inistring dstr_4029__DELQU_DATA*/
- /*_.VALSTR___V4041*/ curfptr[4040] = (void*)&cdat->dstr_4029__DELQU_DATA;
-  cdat->dstr_4029__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4029__DELQU_DATA.val, "DELQU_DATA", sizeof(cdat->dstr_4029__DELQU_DATA.val)-1);
- 
- /*iniobj dsym_4030__FINAL_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4091*/ curfptr[4090]) /*_.VALDATA___V4091*/ curfptr[4090] = (void*)&cdat->dsym_4030__FINAL_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dsym_4030__FINAL_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4030__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4030__FINAL_DELAYED_QUEUE.obj_hash = 912306839;
-  cdat->dsym_4030__FINAL_DELAYED_QUEUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4030__FINAL_DELAYED_QUEUE));
- 
- /*inistring dstr_4031__FINAL_DELAYED_QU*/
- /*_.VALSTR___V4092*/ curfptr[4091] = (void*)&cdat->dstr_4031__FINAL_DELAYED_QU;
-  cdat->dstr_4031__FINAL_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4031__FINAL_DELAYED_QU.val, "FINAL_DELAYED_QUEUE", sizeof(cdat->dstr_4031__FINAL_DELAYED_QU.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2880:/ iniobj");
- /*iniobj dobj_4032__FINAL_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4043*/ curfptr[4042]) /*_.VALDATA___V4043*/ curfptr[4042] = (void*)&cdat->dobj_4032__FINAL_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dobj_4032__FINAL_DELAYED_QUEUE", NULL != (void*)/*_.VALDATA___V4033*/ curfptr[4032]);
-  cdat->dobj_4032__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]);
-  cdat->dobj_4032__FINAL_DELAYED_QUEUE.obj_hash = 38260853;
-  cdat->dobj_4032__FINAL_DELAYED_QUEUE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4032__FINAL_DELAYED_QUEUE));
- 
- /*inistring dstr_4033__final_delayed_qu*/
- /*_.VALSTR___V4046*/ curfptr[4045] = (void*)&cdat->dstr_4033__final_delayed_qu;
-  cdat->dstr_4033__final_delayed_qu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4033__final_delayed_qu.val, "final_delayed_queue", sizeof(cdat->dstr_4033__final_delayed_qu.val)-1);
- 
- /*inirout drout_4034__INIT_EXITFINALIZER*/
- /*_.VALROUT___V4032*/ curfptr[4031] = (void*)&cdat->drout_4034__INIT_EXITFINALIZER;
-  cdat->drout_4034__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4034__INIT_EXITFINALIZER.routdescr, "INIT_EXITFINALIZER @warmelt-first.melt:2888",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4034__INIT_EXITFINALIZER.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4034__INIT_EXITFINALIZER, meltrout_13_warmelt_first_INIT_EXITFINALIZER);
- 
- /*iniclos dclo_4035__INIT_EXITFINALIZER*/
- /*_.VALCLO___V4031*/ curfptr[4030] = (void*)&cdat->dclo_4035__INIT_EXITFINALIZER;
-  cdat->dclo_4035__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4035__INIT_EXITFINALIZER.nbval = 0;
- 
- /*inirout drout_4036__LAMBDA_*/
- /*_.VALROUT___V4049*/ curfptr[4048] = (void*)&cdat->drout_4036__LAMBDA_;
-  cdat->drout_4036__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4036__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2898",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4036__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4036__LAMBDA_, meltrout_14_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4037__LAMBDA_*/
- /*_.VALROUT___V4050*/ curfptr[4049] = (void*)&cdat->drout_4037__LAMBDA_;
-  cdat->drout_4037__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4037__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2907",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4037__LAMBDA_.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4037__LAMBDA_, meltrout_15_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4038__LAMBDA_*/
- /*_.VALROUT___V4051*/ curfptr[4050] = (void*)&cdat->drout_4038__LAMBDA_;
-  cdat->drout_4038__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4038__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2912",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4038__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4038__LAMBDA_, meltrout_16_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4039__AT_EXIT_FIRST*/
- /*_.VALROUT___V4093*/ curfptr[4092] = (void*)&cdat->drout_4039__AT_EXIT_FIRST;
-  cdat->drout_4039__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4039__AT_EXIT_FIRST.routdescr, "AT_EXIT_FIRST @warmelt-first.melt:2922",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4039__AT_EXIT_FIRST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4039__AT_EXIT_FIRST, meltrout_17_warmelt_first_AT_EXIT_FIRST);
- 
- /*iniclos dclo_4040__AT_EXIT_FIRST*/
- /*_.VALCLO___V4094*/ curfptr[4093] = (void*)&cdat->dclo_4040__AT_EXIT_FIRST;
-  cdat->dclo_4040__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4040__AT_EXIT_FIRST.nbval = 0;
- 
- /*inirout drout_4041__AT_EXIT_LAST*/
- /*_.VALROUT___V4095*/ curfptr[4094] = (void*)&cdat->drout_4041__AT_EXIT_LAST;
-  cdat->drout_4041__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4041__AT_EXIT_LAST.routdescr, "AT_EXIT_LAST @warmelt-first.melt:2930",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4041__AT_EXIT_LAST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4041__AT_EXIT_LAST, meltrout_18_warmelt_first_AT_EXIT_LAST);
- 
- /*iniclos dclo_4042__AT_EXIT_LAST*/
- /*_.VALCLO___V4096*/ curfptr[4095] = (void*)&cdat->dclo_4042__AT_EXIT_LAST;
-  cdat->dclo_4042__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4042__AT_EXIT_LAST.nbval = 0;
- 
- /*iniobj dsym_4043__START_UNIT_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4097*/ curfptr[4096]) /*_.VALDATA___V4097*/ curfptr[4096] = (void*)&cdat->dsym_4043__START_UNIT_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dsym_4043__START_UNIT_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4043__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4043__START_UNIT_DELAYED_QUEUE.obj_hash = 29194126;
-  cdat->dsym_4043__START_UNIT_DELAYED_QUEUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4043__START_UNIT_DELAYED_QUEUE));
- 
- /*inistring dstr_4044__START_UNIT_DELAY*/
- /*_.VALSTR___V4098*/ curfptr[4097] = (void*)&cdat->dstr_4044__START_UNIT_DELAY;
-  cdat->dstr_4044__START_UNIT_DELAY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4044__START_UNIT_DELAY.val, "START_UNIT_DELAYED_QUEUE", sizeof(cdat->dstr_4044__START_UNIT_DELAY.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2939:/ iniobj");
- /*iniobj dobj_4045__START_UNIT_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4066*/ curfptr[4065]) /*_.VALDATA___V4066*/ curfptr[4065] = (void*)&cdat->dobj_4045__START_UNIT_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dobj_4045__START_UNIT_DELAYED_QUEUE", NULL != (void*)/*_.VALDATA___V4033*/ curfptr[4032]);
-  cdat->dobj_4045__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]);
-  cdat->dobj_4045__START_UNIT_DELAYED_QUEUE.obj_hash = 409218551;
-  cdat->dobj_4045__START_UNIT_DELAYED_QUEUE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4045__START_UNIT_DELAYED_QUEUE));
- 
- /*inistring dstr_4046__start_unit_delay*/
- /*_.VALSTR___V4069*/ curfptr[4068] = (void*)&cdat->dstr_4046__start_unit_delay;
-  cdat->dstr_4046__start_unit_delay.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4046__start_unit_delay.val, "start_unit_delayed_queue", sizeof(cdat->dstr_4046__start_unit_delay.val)-1);
- 
- /*inirout drout_4047__INIT_UNITSTARTER*/
- /*_.VALROUT___V4065*/ curfptr[4064] = (void*)&cdat->drout_4047__INIT_UNITSTARTER;
-  cdat->drout_4047__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4047__INIT_UNITSTARTER.routdescr, "INIT_UNITSTARTER @warmelt-first.melt:2946",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4047__INIT_UNITSTARTER.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4047__INIT_UNITSTARTER, meltrout_19_warmelt_first_INIT_UNITSTARTER);
- 
- /*iniclos dclo_4048__INIT_UNITSTARTER*/
- /*_.VALCLO___V4064*/ curfptr[4063] = (void*)&cdat->dclo_4048__INIT_UNITSTARTER;
-  cdat->dclo_4048__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4048__INIT_UNITSTARTER.nbval = 0;
- 
- /*inirout drout_4049__LAMBDA_*/
- /*_.VALROUT___V4070*/ curfptr[4069] = (void*)&cdat->drout_4049__LAMBDA_;
-  cdat->drout_4049__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4049__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2956",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4049__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4049__LAMBDA_, meltrout_20_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4050__LAMBDA_*/
- /*_.VALROUT___V4071*/ curfptr[4070] = (void*)&cdat->drout_4050__LAMBDA_;
-  cdat->drout_4050__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4050__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2965",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4050__LAMBDA_.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4050__LAMBDA_, meltrout_21_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4051__LAMBDA_*/
- /*_.VALROUT___V4072*/ curfptr[4071] = (void*)&cdat->drout_4051__LAMBDA_;
-  cdat->drout_4051__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4051__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2970",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4051__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4051__LAMBDA_, meltrout_22_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4052__AT_START_UNIT_FIRST*/
- /*_.VALROUT___V4099*/ curfptr[4098] = (void*)&cdat->drout_4052__AT_START_UNIT_FIRST;
-  cdat->drout_4052__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4052__AT_START_UNIT_FIRST.routdescr, "AT_START_UNIT_FIRST @warmelt-first.melt:2980",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4052__AT_START_UNIT_FIRST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4052__AT_START_UNIT_FIRST, meltrout_23_warmelt_first_AT_START_UNIT_FIRST);
- 
- /*iniclos dclo_4053__AT_START_UNIT_FIRST*/
- /*_.VALCLO___V4100*/ curfptr[4099] = (void*)&cdat->dclo_4053__AT_START_UNIT_FIRST;
-  cdat->dclo_4053__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4053__AT_START_UNIT_FIRST.nbval = 0;
- 
- /*inirout drout_4054__AT_START_UNIT_LAST*/
- /*_.VALROUT___V4101*/ curfptr[4100] = (void*)&cdat->drout_4054__AT_START_UNIT_LAST;
-  cdat->drout_4054__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4054__AT_START_UNIT_LAST.routdescr, "AT_START_UNIT_LAST @warmelt-first.melt:2987",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4054__AT_START_UNIT_LAST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4054__AT_START_UNIT_LAST, meltrout_24_warmelt_first_AT_START_UNIT_LAST);
- 
- /*iniclos dclo_4055__AT_START_UNIT_LAST*/
- /*_.VALCLO___V4102*/ curfptr[4101] = (void*)&cdat->dclo_4055__AT_START_UNIT_LAST;
-  cdat->dclo_4055__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4055__AT_START_UNIT_LAST.nbval = 0;
- 
- /*iniobj dsym_4056__FINISH_UNIT_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4103*/ curfptr[4102]) /*_.VALDATA___V4103*/ curfptr[4102] = (void*)&cdat->dsym_4056__FINISH_UNIT_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dsym_4056__FINISH_UNIT_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4056__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4056__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 694241046;
-  cdat->dsym_4056__FINISH_UNIT_DELAYED_QUEUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4056__FINISH_UNIT_DELAYED_QUEUE));
- 
- /*inistring dstr_4057__FINISH_UNIT_DELA*/
- /*_.VALSTR___V4104*/ curfptr[4103] = (void*)&cdat->dstr_4057__FINISH_UNIT_DELA;
-  cdat->dstr_4057__FINISH_UNIT_DELA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4057__FINISH_UNIT_DELA.val, "FINISH_UNIT_DELAYED_QUEUE", sizeof(cdat->dstr_4057__FINISH_UNIT_DELA.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:2996:/ iniobj");
- /*iniobj dobj_4058__FINISH_UNIT_DELAYED_QUEUE*/
- if (!/*_.VALDATA___V4075*/ curfptr[4074]) /*_.VALDATA___V4075*/ curfptr[4074] = (void*)&cdat->dobj_4058__FINISH_UNIT_DELAYED_QUEUE;
-  melt_assertmsg("iniobj checkdiscr dobj_4058__FINISH_UNIT_DELAYED_QUEUE", NULL != (void*)/*_.VALDATA___V4033*/ curfptr[4032]);
-  cdat->dobj_4058__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]);
-  cdat->dobj_4058__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 859292594;
-  cdat->dobj_4058__FINISH_UNIT_DELAYED_QUEUE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4058__FINISH_UNIT_DELAYED_QUEUE));
- 
- /*inistring dstr_4059__finish_unit_dela*/
- /*_.VALSTR___V4078*/ curfptr[4077] = (void*)&cdat->dstr_4059__finish_unit_dela;
-  cdat->dstr_4059__finish_unit_dela.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4059__finish_unit_dela.val, "finish_unit_delayed_queue", sizeof(cdat->dstr_4059__finish_unit_dela.val)-1);
- 
- /*inirout drout_4060__INIT_UNITFINISHER*/
- /*_.VALROUT___V4074*/ curfptr[4073] = (void*)&cdat->drout_4060__INIT_UNITFINISHER;
-  cdat->drout_4060__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4060__INIT_UNITFINISHER.routdescr, "INIT_UNITFINISHER @warmelt-first.melt:3002",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4060__INIT_UNITFINISHER.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4060__INIT_UNITFINISHER, meltrout_25_warmelt_first_INIT_UNITFINISHER);
- 
- /*iniclos dclo_4061__INIT_UNITFINISHER*/
- /*_.VALCLO___V4073*/ curfptr[4072] = (void*)&cdat->dclo_4061__INIT_UNITFINISHER;
-  cdat->dclo_4061__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4061__INIT_UNITFINISHER.nbval = 0;
- 
- /*inirout drout_4062__LAMBDA_*/
- /*_.VALROUT___V4079*/ curfptr[4078] = (void*)&cdat->drout_4062__LAMBDA_;
-  cdat->drout_4062__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4062__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3012",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4062__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4062__LAMBDA_, meltrout_26_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4063__LAMBDA_*/
- /*_.VALROUT___V4080*/ curfptr[4079] = (void*)&cdat->drout_4063__LAMBDA_;
-  cdat->drout_4063__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4063__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3021",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4063__LAMBDA_.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4063__LAMBDA_, meltrout_27_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4064__LAMBDA_*/
- /*_.VALROUT___V4081*/ curfptr[4080] = (void*)&cdat->drout_4064__LAMBDA_;
-  cdat->drout_4064__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4064__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3026",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4064__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4064__LAMBDA_, meltrout_28_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4065__AT_FINISH_UNIT_FIRST*/
- /*_.VALROUT___V4105*/ curfptr[4104] = (void*)&cdat->drout_4065__AT_FINISH_UNIT_FIRST;
-  cdat->drout_4065__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4065__AT_FINISH_UNIT_FIRST.routdescr, "AT_FINISH_UNIT_FIRST @warmelt-first.melt:3036",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4065__AT_FINISH_UNIT_FIRST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4065__AT_FINISH_UNIT_FIRST, meltrout_29_warmelt_first_AT_FINISH_UNIT_FIRST);
- 
- /*iniclos dclo_4066__AT_FINISH_UNIT_FIRST*/
- /*_.VALCLO___V4106*/ curfptr[4105] = (void*)&cdat->dclo_4066__AT_FINISH_UNIT_FIRST;
-  cdat->dclo_4066__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4066__AT_FINISH_UNIT_FIRST.nbval = 0;
- 
- /*inirout drout_4067__AT_FINISH_UNIT_LAST*/
- /*_.VALROUT___V4107*/ curfptr[4106] = (void*)&cdat->drout_4067__AT_FINISH_UNIT_LAST;
-  cdat->drout_4067__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4067__AT_FINISH_UNIT_LAST.routdescr, "AT_FINISH_UNIT_LAST @warmelt-first.melt:3044",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4067__AT_FINISH_UNIT_LAST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4067__AT_FINISH_UNIT_LAST, meltrout_30_warmelt_first_AT_FINISH_UNIT_LAST);
- 
- /*iniclos dclo_4068__AT_FINISH_UNIT_LAST*/
- /*_.VALCLO___V4108*/ curfptr[4107] = (void*)&cdat->dclo_4068__AT_FINISH_UNIT_LAST;
-  cdat->dclo_4068__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4068__AT_FINISH_UNIT_LAST.nbval = 0;
- 
- /*inirout drout_4069__DISPLAY_DEBUG_MESSAGE*/
- /*_.VALROUT___V4109*/ curfptr[4108] = (void*)&cdat->drout_4069__DISPLAY_DEBUG_MESSAGE;
-  cdat->drout_4069__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4069__DISPLAY_DEBUG_MESSAGE.routdescr, "DISPLAY_DEBUG_MESSAGE @warmelt-first.melt:3055",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4069__DISPLAY_DEBUG_MESSAGE.nbval = 5;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4069__DISPLAY_DEBUG_MESSAGE, meltrout_31_warmelt_first_DISPLAY_DEBUG_MESSAGE);
- 
- /*iniclos dclo_4070__DISPLAY_DEBUG_MESSAGE*/
- /*_.VALCLO___V4110*/ curfptr[4109] = (void*)&cdat->dclo_4070__DISPLAY_DEBUG_MESSAGE;
-  cdat->dclo_4070__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4070__DISPLAY_DEBUG_MESSAGE.nbval = 0;
- 
- /*inirout drout_4071__DEBUGMSG*/
- /*_.VALROUT___V4055*/ curfptr[4054] = (void*)&cdat->drout_4071__DEBUGMSG;
-  cdat->drout_4071__DEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4071__DEBUGMSG.routdescr, "DEBUGMSG @warmelt-first.melt:3079",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4071__DEBUGMSG.nbval = 5;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4071__DEBUGMSG, meltrout_32_warmelt_first_DEBUGMSG);
- 
- /*iniclos dclo_4072__DEBUGMSG*/
- /*_.VALCLO___V4054*/ curfptr[4053] = (void*)&cdat->dclo_4072__DEBUGMSG;
-  cdat->dclo_4072__DEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4072__DEBUGMSG.nbval = 0;
- 
- /*iniobj dsym_4073__INITIAL_SYSTEM_DATA*/
- if (!/*_.VALDATA___V4111*/ curfptr[4110]) /*_.VALDATA___V4111*/ curfptr[4110] = (void*)&cdat->dsym_4073__INITIAL_SYSTEM_DATA;
-  melt_assertmsg("iniobj checkdiscr dsym_4073__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4073__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4073__INITIAL_SYSTEM_DATA.obj_hash = 771349808;
-  cdat->dsym_4073__INITIAL_SYSTEM_DATA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4073__INITIAL_SYSTEM_DATA));
- 
- /*inistring dstr_4074__INITIAL_SYSTEM_D*/
- /*_.VALSTR___V4112*/ curfptr[4111] = (void*)&cdat->dstr_4074__INITIAL_SYSTEM_D;
-  cdat->dstr_4074__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4074__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_4074__INITIAL_SYSTEM_D.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3101:/ iniobj");
- /*iniobj dobj_4075__INITIAL_SYSTEM_DATA*/
- if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_4075__INITIAL_SYSTEM_DATA) {
+ /*_.VALDATA___V3980*/ curfptr[3979] = ((void*)(MELT_PREDEF(CTYPE_CSTRING)));
+  melt_assertmsg("iniobj checkdiscr dobj_3974__CTYPE_CSTRING", NULL != (void*)/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3974__CTYPE_CSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+  cdat->dobj_3974__CTYPE_CSTRING.obj_hash = 127961518;
+  cdat->dobj_3974__CTYPE_CSTRING.obj_len = 11;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3974__CTYPE_CSTRING));
+ 
+ /*inistring dstr_3975__CTYPE_CSTRING*/
+ /*_.VALSTR___V3982*/ curfptr[3981] = (void*)&cdat->dstr_3975__CTYPE_CSTRING;
+  cdat->dstr_3975__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3975__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof(cdat->dstr_3975__CTYPE_CSTRING.val)-1);
+ 
+ /*iniobj dsym_3976__CSTRING*/
+ if (!/*_.VALDATA___V3983*/ curfptr[3982]) /*_.VALDATA___V3983*/ curfptr[3982] = (void*)&cdat->dsym_3976__CSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_3976__CSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3976__CSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_3976__CSTRING.obj_hash = 33530498;
+  cdat->dsym_3976__CSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3976__CSTRING));
+ 
+ /*inistring dstr_3977__CSTRING*/
+ /*_.VALSTR___V3984*/ curfptr[3983] = (void*)&cdat->dstr_3977__CSTRING;
+  cdat->dstr_3977__CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3977__CSTRING.val, "CSTRING", sizeof(cdat->dstr_3977__CSTRING.val)-1);
+ 
+ /*inistring dstr_3978__BPAR_CSTRING*/
+ /*_.VALSTR___V3985*/ curfptr[3984] = (void*)&cdat->dstr_3978__BPAR_CSTRING;
+  cdat->dstr_3978__BPAR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3978__BPAR_CSTRING.val, "BPAR_CSTRING", sizeof(cdat->dstr_3978__BPAR_CSTRING.val)-1);
+ 
+ /*inistring dstr_3979__BPARSTR_CSTRING*/
+ /*_.VALSTR___V3986*/ curfptr[3985] = (void*)&cdat->dstr_3979__BPARSTR_CSTRING;
+  cdat->dstr_3979__BPARSTR_CSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3979__BPARSTR_CSTRING.val, "BPARSTR_CSTRING", sizeof(cdat->dstr_3979__BPARSTR_CSTRING.val)-1);
+ 
+ /*inistring dstr_3980__bp_cstring*/
+ /*_.VALSTR___V3987*/ curfptr[3986] = (void*)&cdat->dstr_3980__bp_cstring;
+  cdat->dstr_3980__bp_cstring.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3980__bp_cstring.val, "bp_cstring", sizeof(cdat->dstr_3980__bp_cstring.val)-1);
+ 
+ /*inirout drout_3981__ADD_NEW_SYMBOL_TOKEN*/
+ /*_.VALROUT___V3988*/ curfptr[3987] = (void*)&cdat->drout_3981__ADD_NEW_SYMBOL_TOKEN;
+  cdat->drout_3981__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3981__ADD_NEW_SYMBOL_TOKEN.routdescr, "ADD_NEW_SYMBOL_TOKEN @warmelt-first.melt:2554",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3981__ADD_NEW_SYMBOL_TOKEN.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3981__ADD_NEW_SYMBOL_TOKEN, meltrout_3_warmelt_first_ADD_NEW_SYMBOL_TOKEN);
+ 
+ /*iniclos dclo_3982__ADD_NEW_SYMBOL_TOKEN*/
+ /*_.VALCLO___V3989*/ curfptr[3988] = (void*)&cdat->dclo_3982__ADD_NEW_SYMBOL_TOKEN;
+  cdat->dclo_3982__ADD_NEW_SYMBOL_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3982__ADD_NEW_SYMBOL_TOKEN.nbval = 0;
+ 
+ /*inirout drout_3983__ADD_NEW_KEYWORD_TOKEN*/
+ /*_.VALROUT___V3990*/ curfptr[3989] = (void*)&cdat->drout_3983__ADD_NEW_KEYWORD_TOKEN;
+  cdat->drout_3983__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3983__ADD_NEW_KEYWORD_TOKEN.routdescr, "ADD_NEW_KEYWORD_TOKEN @warmelt-first.melt:2563",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3983__ADD_NEW_KEYWORD_TOKEN.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3983__ADD_NEW_KEYWORD_TOKEN, meltrout_4_warmelt_first_ADD_NEW_KEYWORD_TOKEN);
+ 
+ /*iniclos dclo_3984__ADD_NEW_KEYWORD_TOKEN*/
+ /*_.VALCLO___V3991*/ curfptr[3990] = (void*)&cdat->dclo_3984__ADD_NEW_KEYWORD_TOKEN;
+  cdat->dclo_3984__ADD_NEW_KEYWORD_TOKEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3984__ADD_NEW_KEYWORD_TOKEN.nbval = 0;
+ 
+ /*inirout drout_3985__INTERN_SYMBOL*/
+ /*_.VALROUT___V3992*/ curfptr[3991] = (void*)&cdat->drout_3985__INTERN_SYMBOL;
+  cdat->drout_3985__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3985__INTERN_SYMBOL.routdescr, "INTERN_SYMBOL @warmelt-first.melt:2572",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3985__INTERN_SYMBOL.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3985__INTERN_SYMBOL, meltrout_5_warmelt_first_INTERN_SYMBOL);
+ 
+ /*iniclos dclo_3986__INTERN_SYMBOL*/
+ /*_.VALCLO___V3993*/ curfptr[3992] = (void*)&cdat->dclo_3986__INTERN_SYMBOL;
+  cdat->dclo_3986__INTERN_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3986__INTERN_SYMBOL.nbval = 0;
+ 
+ /*inirout drout_3987__INTERN_KEYWORD*/
+ /*_.VALROUT___V3994*/ curfptr[3993] = (void*)&cdat->drout_3987__INTERN_KEYWORD;
+  cdat->drout_3987__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3987__INTERN_KEYWORD.routdescr, "INTERN_KEYWORD @warmelt-first.melt:2588",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3987__INTERN_KEYWORD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3987__INTERN_KEYWORD, meltrout_6_warmelt_first_INTERN_KEYWORD);
+ 
+ /*iniclos dclo_3988__INTERN_KEYWORD*/
+ /*_.VALCLO___V3995*/ curfptr[3994] = (void*)&cdat->dclo_3988__INTERN_KEYWORD;
+  cdat->dclo_3988__INTERN_KEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3988__INTERN_KEYWORD.nbval = 0;
+ 
+ /*iniobj dsym_3989__CONTAINER_CLONEMAPSTRING*/
+ if (!/*_.VALDATA___V3996*/ curfptr[3995]) /*_.VALDATA___V3996*/ curfptr[3995] = (void*)&cdat->dsym_3989__CONTAINER_CLONEMAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_3989__CONTAINER_CLONEMAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3989__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_3989__CONTAINER_CLONEMAPSTRING.obj_hash = 81420896;
+  cdat->dsym_3989__CONTAINER_CLONEMAPSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3989__CONTAINER_CLONEMAPSTRING));
+ 
+ /*inistring dstr_3990__CONTAINER_CLONEM*/
+ /*_.VALSTR___V3997*/ curfptr[3996] = (void*)&cdat->dstr_3990__CONTAINER_CLONEM;
+  cdat->dstr_3990__CONTAINER_CLONEM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_3990__CONTAINER_CLONEM.val, "CONTAINER_CLONEMAPSTRING", sizeof(cdat->dstr_3990__CONTAINER_CLONEM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2600:/ iniobj");
+ /*iniobj dobj_3991__CONTAINER_CLONEMAPSTRING*/
+ if (!/*_.VALDATA___V3998*/ curfptr[3997]) /*_.VALDATA___V3998*/ curfptr[3997] = (void*)&cdat->dobj_3991__CONTAINER_CLONEMAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dobj_3991__CONTAINER_CLONEMAPSTRING", NULL != (void*)/*_.VALDATA___V25*/ curfptr[24]);
+  cdat->dobj_3991__CONTAINER_CLONEMAPSTRING.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+  cdat->dobj_3991__CONTAINER_CLONEMAPSTRING.obj_hash = 644719688;
+  cdat->dobj_3991__CONTAINER_CLONEMAPSTRING.obj_len = 1;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_3991__CONTAINER_CLONEMAPSTRING));
+ 
+ /*inirout drout_3992__CLONE_SYMBOL*/
+ /*_.VALROUT___V4000*/ curfptr[3999] = (void*)&cdat->drout_3992__CLONE_SYMBOL;
+  cdat->drout_3992__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3992__CLONE_SYMBOL.routdescr, "CLONE_SYMBOL @warmelt-first.melt:2604",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3992__CLONE_SYMBOL.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3992__CLONE_SYMBOL, meltrout_7_warmelt_first_CLONE_SYMBOL);
+ 
+ /*iniclos dclo_3993__CLONE_SYMBOL*/
+ /*_.VALCLO___V4074*/ curfptr[4073] = (void*)&cdat->dclo_3993__CLONE_SYMBOL;
+  cdat->dclo_3993__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3993__CLONE_SYMBOL.nbval = 0;
+ 
+ /*inirout drout_3994__INITFRESH_CONTENVMAKER*/
+ /*_.VALROUT___V4010*/ curfptr[4009] = (void*)&cdat->drout_3994__INITFRESH_CONTENVMAKER;
+  cdat->drout_3994__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3994__INITFRESH_CONTENVMAKER.routdescr, "INITFRESH_CONTENVMAKER @warmelt-first.melt:2657",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3994__INITFRESH_CONTENVMAKER.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3994__INITFRESH_CONTENVMAKER, meltrout_8_warmelt_first_INITFRESH_CONTENVMAKER);
+ 
+ /*iniclos dclo_3995__INITFRESH_CONTENVMAKER*/
+ /*_.VALCLO___V4009*/ curfptr[4008] = (void*)&cdat->dclo_3995__INITFRESH_CONTENVMAKER;
+  cdat->dclo_3995__INITFRESH_CONTENVMAKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3995__INITFRESH_CONTENVMAKER.nbval = 0;
+ 
+ /*inirout drout_3996__INITVALUE_EXPORTER*/
+ /*_.VALROUT___V4014*/ curfptr[4013] = (void*)&cdat->drout_3996__INITVALUE_EXPORTER;
+  cdat->drout_3996__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3996__INITVALUE_EXPORTER.routdescr, "INITVALUE_EXPORTER @warmelt-first.melt:2671",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3996__INITVALUE_EXPORTER.nbval = 17;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3996__INITVALUE_EXPORTER, meltrout_9_warmelt_first_INITVALUE_EXPORTER);
+ 
+ /*iniclos dclo_3997__INITVALUE_EXPORTER*/
+ /*_.VALCLO___V4013*/ curfptr[4012] = (void*)&cdat->dclo_3997__INITVALUE_EXPORTER;
+  cdat->dclo_3997__INITVALUE_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3997__INITVALUE_EXPORTER.nbval = 0;
+ 
+ /*inirout drout_3998__INITVALUE_IMPORTER*/
+ /*_.VALROUT___V4022*/ curfptr[4021] = (void*)&cdat->drout_3998__INITVALUE_IMPORTER;
+  cdat->drout_3998__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_3998__INITVALUE_IMPORTER.routdescr, "INITVALUE_IMPORTER @warmelt-first.melt:2761",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_3998__INITVALUE_IMPORTER.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_3998__INITVALUE_IMPORTER, meltrout_10_warmelt_first_INITVALUE_IMPORTER);
+ 
+ /*iniclos dclo_3999__INITVALUE_IMPORTER*/
+ /*_.VALCLO___V4021*/ curfptr[4020] = (void*)&cdat->dclo_3999__INITVALUE_IMPORTER;
+  cdat->dclo_3999__INITVALUE_IMPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_3999__INITVALUE_IMPORTER.nbval = 0;
+ 
+ /*inirout drout_4000__INITMACRO_EXPORTER*/
+ /*_.VALROUT___V4020*/ curfptr[4019] = (void*)&cdat->drout_4000__INITMACRO_EXPORTER;
+  cdat->drout_4000__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4000__INITMACRO_EXPORTER.routdescr, "INITMACRO_EXPORTER @warmelt-first.melt:2802",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4000__INITMACRO_EXPORTER.nbval = 7;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4000__INITMACRO_EXPORTER, meltrout_11_warmelt_first_INITMACRO_EXPORTER);
+ 
+ /*iniclos dclo_4001__INITMACRO_EXPORTER*/
+ /*_.VALCLO___V4019*/ curfptr[4018] = (void*)&cdat->dclo_4001__INITMACRO_EXPORTER;
+  cdat->dclo_4001__INITMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4001__INITMACRO_EXPORTER.nbval = 0;
+ 
+ /*inirout drout_4002__INITPATMACRO_EXPORTER*/
+ /*_.VALROUT___V4045*/ curfptr[4044] = (void*)&cdat->drout_4002__INITPATMACRO_EXPORTER;
+  cdat->drout_4002__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4002__INITPATMACRO_EXPORTER.routdescr, "INITPATMACRO_EXPORTER @warmelt-first.melt:2833",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4002__INITPATMACRO_EXPORTER.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4002__INITPATMACRO_EXPORTER, meltrout_12_warmelt_first_INITPATMACRO_EXPORTER);
+ 
+ /*iniclos dclo_4003__INITPATMACRO_EXPORTER*/
+ /*_.VALCLO___V4044*/ curfptr[4043] = (void*)&cdat->dclo_4003__INITPATMACRO_EXPORTER;
+  cdat->dclo_4003__INITPATMACRO_EXPORTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4003__INITPATMACRO_EXPORTER.nbval = 0;
+ 
+ /*iniobj dsym_4004__CLASS_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4075*/ curfptr[4074]) /*_.VALDATA___V4075*/ curfptr[4074] = (void*)&cdat->dsym_4004__CLASS_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dsym_4004__CLASS_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4004__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4004__CLASS_DELAYED_QUEUE.obj_hash = 761132519;
+  cdat->dsym_4004__CLASS_DELAYED_QUEUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4004__CLASS_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4005__CLASS_DELAYED_QU*/
+ /*_.VALSTR___V4076*/ curfptr[4075] = (void*)&cdat->dstr_4005__CLASS_DELAYED_QU;
+  cdat->dstr_4005__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4005__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof(cdat->dstr_4005__CLASS_DELAYED_QU.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2867:/ iniobj");
+ /*iniobj dobj_4006__CLASS_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4025*/ curfptr[4024]) /*_.VALDATA___V4025*/ curfptr[4024] = (void*)&cdat->dobj_4006__CLASS_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dobj_4006__CLASS_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_4006__CLASS_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_4006__CLASS_DELAYED_QUEUE.obj_num = OBMAG_OBJECT;
+  cdat->dobj_4006__CLASS_DELAYED_QUEUE.obj_hash = 432482671;
+  cdat->dobj_4006__CLASS_DELAYED_QUEUE.obj_len = 8;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4006__CLASS_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4007__CLASS_DELAYED_QU*/
+ /*_.VALSTR___V4026*/ curfptr[4025] = (void*)&cdat->dstr_4007__CLASS_DELAYED_QU;
+  cdat->dstr_4007__CLASS_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4007__CLASS_DELAYED_QU.val, "CLASS_DELAYED_QUEUE", sizeof(cdat->dstr_4007__CLASS_DELAYED_QU.val)-1);
+ 
+ /*inimult dtup_4008__CLASS_DELAYED_QUEUE*/
+ /*_.VALTUP___V4027*/ curfptr[4026] = (void*)&cdat->dtup_4008__CLASS_DELAYED_QUEUE;
+  cdat->dtup_4008__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
+  cdat->dtup_4008__CLASS_DELAYED_QUEUE.nbval = 3;
+ /*inimult dtup_4009__CLASS_DELAYED_QUEUE*/
+ /*_.VALTUP___V4034*/ curfptr[4033] = (void*)&cdat->dtup_4009__CLASS_DELAYED_QUEUE;
+  cdat->dtup_4009__CLASS_DELAYED_QUEUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
+  cdat->dtup_4009__CLASS_DELAYED_QUEUE.nbval = 5;
+ /*iniobj dsym_4010__DELQU_FIRST*/
+ if (!/*_.VALDATA___V4077*/ curfptr[4076]) /*_.VALDATA___V4077*/ curfptr[4076] = (void*)&cdat->dsym_4010__DELQU_FIRST;
+  melt_assertmsg("iniobj checkdiscr dsym_4010__DELQU_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4010__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4010__DELQU_FIRST.obj_hash = 186270784;
+  cdat->dsym_4010__DELQU_FIRST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4010__DELQU_FIRST));
+ 
+ /*inistring dstr_4011__DELQU_FIRST*/
+ /*_.VALSTR___V4078*/ curfptr[4077] = (void*)&cdat->dstr_4011__DELQU_FIRST;
+  cdat->dstr_4011__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4011__DELQU_FIRST.val, "DELQU_FIRST", sizeof(cdat->dstr_4011__DELQU_FIRST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2867:/ iniobj");
+ /*iniobj dobj_4012__DELQU_FIRST*/
+ if (!/*_.VALDATA___V4028*/ curfptr[4027]) /*_.VALDATA___V4028*/ curfptr[4027] = (void*)&cdat->dobj_4012__DELQU_FIRST;
+  melt_assertmsg("iniobj checkdiscr dobj_4012__DELQU_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_4012__DELQU_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_4012__DELQU_FIRST.obj_num = 2;
+  cdat->dobj_4012__DELQU_FIRST.obj_hash = 169787193;
+  cdat->dobj_4012__DELQU_FIRST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4012__DELQU_FIRST));
+ 
+ /*inistring dstr_4013__DELQU_FIRST*/
+ /*_.VALSTR___V4029*/ curfptr[4028] = (void*)&cdat->dstr_4013__DELQU_FIRST;
+  cdat->dstr_4013__DELQU_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4013__DELQU_FIRST.val, "DELQU_FIRST", sizeof(cdat->dstr_4013__DELQU_FIRST.val)-1);
+ 
+ /*iniobj dsym_4014__DELQU_LAST*/
+ if (!/*_.VALDATA___V4079*/ curfptr[4078]) /*_.VALDATA___V4079*/ curfptr[4078] = (void*)&cdat->dsym_4014__DELQU_LAST;
+  melt_assertmsg("iniobj checkdiscr dsym_4014__DELQU_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4014__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4014__DELQU_LAST.obj_hash = 794155320;
+  cdat->dsym_4014__DELQU_LAST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4014__DELQU_LAST));
+ 
+ /*inistring dstr_4015__DELQU_LAST*/
+ /*_.VALSTR___V4080*/ curfptr[4079] = (void*)&cdat->dstr_4015__DELQU_LAST;
+  cdat->dstr_4015__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4015__DELQU_LAST.val, "DELQU_LAST", sizeof(cdat->dstr_4015__DELQU_LAST.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2867:/ iniobj");
+ /*iniobj dobj_4016__DELQU_LAST*/
+ if (!/*_.VALDATA___V4030*/ curfptr[4029]) /*_.VALDATA___V4030*/ curfptr[4029] = (void*)&cdat->dobj_4016__DELQU_LAST;
+  melt_assertmsg("iniobj checkdiscr dobj_4016__DELQU_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_4016__DELQU_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_4016__DELQU_LAST.obj_num = 3;
+  cdat->dobj_4016__DELQU_LAST.obj_hash = 250530103;
+  cdat->dobj_4016__DELQU_LAST.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4016__DELQU_LAST));
+ 
+ /*inistring dstr_4017__DELQU_LAST*/
+ /*_.VALSTR___V4031*/ curfptr[4030] = (void*)&cdat->dstr_4017__DELQU_LAST;
+  cdat->dstr_4017__DELQU_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4017__DELQU_LAST.val, "DELQU_LAST", sizeof(cdat->dstr_4017__DELQU_LAST.val)-1);
+ 
+ /*iniobj dsym_4018__DELQU_DATA*/
+ if (!/*_.VALDATA___V4081*/ curfptr[4080]) /*_.VALDATA___V4081*/ curfptr[4080] = (void*)&cdat->dsym_4018__DELQU_DATA;
+  melt_assertmsg("iniobj checkdiscr dsym_4018__DELQU_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4018__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4018__DELQU_DATA.obj_hash = 14455036;
+  cdat->dsym_4018__DELQU_DATA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4018__DELQU_DATA));
+ 
+ /*inistring dstr_4019__DELQU_DATA*/
+ /*_.VALSTR___V4082*/ curfptr[4081] = (void*)&cdat->dstr_4019__DELQU_DATA;
+  cdat->dstr_4019__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4019__DELQU_DATA.val, "DELQU_DATA", sizeof(cdat->dstr_4019__DELQU_DATA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2867:/ iniobj");
+ /*iniobj dobj_4020__DELQU_DATA*/
+ if (!/*_.VALDATA___V4032*/ curfptr[4031]) /*_.VALDATA___V4032*/ curfptr[4031] = (void*)&cdat->dobj_4020__DELQU_DATA;
+  melt_assertmsg("iniobj checkdiscr dobj_4020__DELQU_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_4020__DELQU_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_4020__DELQU_DATA.obj_num = 4;
+  cdat->dobj_4020__DELQU_DATA.obj_hash = 511275757;
+  cdat->dobj_4020__DELQU_DATA.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4020__DELQU_DATA));
+ 
+ /*inistring dstr_4021__DELQU_DATA*/
+ /*_.VALSTR___V4033*/ curfptr[4032] = (void*)&cdat->dstr_4021__DELQU_DATA;
+  cdat->dstr_4021__DELQU_DATA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4021__DELQU_DATA.val, "DELQU_DATA", sizeof(cdat->dstr_4021__DELQU_DATA.val)-1);
+ 
+ /*iniobj dsym_4022__FINAL_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4083*/ curfptr[4082]) /*_.VALDATA___V4083*/ curfptr[4082] = (void*)&cdat->dsym_4022__FINAL_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dsym_4022__FINAL_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4022__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4022__FINAL_DELAYED_QUEUE.obj_hash = 912306839;
+  cdat->dsym_4022__FINAL_DELAYED_QUEUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4022__FINAL_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4023__FINAL_DELAYED_QU*/
+ /*_.VALSTR___V4084*/ curfptr[4083] = (void*)&cdat->dstr_4023__FINAL_DELAYED_QU;
+  cdat->dstr_4023__FINAL_DELAYED_QU.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4023__FINAL_DELAYED_QU.val, "FINAL_DELAYED_QUEUE", sizeof(cdat->dstr_4023__FINAL_DELAYED_QU.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2875:/ iniobj");
+ /*iniobj dobj_4024__FINAL_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4035*/ curfptr[4034]) /*_.VALDATA___V4035*/ curfptr[4034] = (void*)&cdat->dobj_4024__FINAL_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dobj_4024__FINAL_DELAYED_QUEUE", NULL != (void*)/*_.VALDATA___V4025*/ curfptr[4024]);
+  cdat->dobj_4024__FINAL_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]);
+  cdat->dobj_4024__FINAL_DELAYED_QUEUE.obj_hash = 364299739;
+  cdat->dobj_4024__FINAL_DELAYED_QUEUE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4024__FINAL_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4025__final_delayed_qu*/
+ /*_.VALSTR___V4038*/ curfptr[4037] = (void*)&cdat->dstr_4025__final_delayed_qu;
+  cdat->dstr_4025__final_delayed_qu.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4025__final_delayed_qu.val, "final_delayed_queue", sizeof(cdat->dstr_4025__final_delayed_qu.val)-1);
+ 
+ /*inirout drout_4026__INIT_EXITFINALIZER*/
+ /*_.VALROUT___V4024*/ curfptr[4023] = (void*)&cdat->drout_4026__INIT_EXITFINALIZER;
+  cdat->drout_4026__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4026__INIT_EXITFINALIZER.routdescr, "INIT_EXITFINALIZER @warmelt-first.melt:2883",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4026__INIT_EXITFINALIZER.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4026__INIT_EXITFINALIZER, meltrout_13_warmelt_first_INIT_EXITFINALIZER);
+ 
+ /*iniclos dclo_4027__INIT_EXITFINALIZER*/
+ /*_.VALCLO___V4023*/ curfptr[4022] = (void*)&cdat->dclo_4027__INIT_EXITFINALIZER;
+  cdat->dclo_4027__INIT_EXITFINALIZER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4027__INIT_EXITFINALIZER.nbval = 0;
+ 
+ /*inirout drout_4028__LAMBDA_*/
+ /*_.VALROUT___V4041*/ curfptr[4040] = (void*)&cdat->drout_4028__LAMBDA_;
+  cdat->drout_4028__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4028__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2893",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4028__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4028__LAMBDA_, meltrout_14_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4029__LAMBDA_*/
+ /*_.VALROUT___V4042*/ curfptr[4041] = (void*)&cdat->drout_4029__LAMBDA_;
+  cdat->drout_4029__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4029__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2902",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4029__LAMBDA_.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4029__LAMBDA_, meltrout_15_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4030__LAMBDA_*/
+ /*_.VALROUT___V4043*/ curfptr[4042] = (void*)&cdat->drout_4030__LAMBDA_;
+  cdat->drout_4030__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4030__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2907",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4030__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4030__LAMBDA_, meltrout_16_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4031__AT_EXIT_FIRST*/
+ /*_.VALROUT___V4085*/ curfptr[4084] = (void*)&cdat->drout_4031__AT_EXIT_FIRST;
+  cdat->drout_4031__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4031__AT_EXIT_FIRST.routdescr, "AT_EXIT_FIRST @warmelt-first.melt:2917",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4031__AT_EXIT_FIRST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4031__AT_EXIT_FIRST, meltrout_17_warmelt_first_AT_EXIT_FIRST);
+ 
+ /*iniclos dclo_4032__AT_EXIT_FIRST*/
+ /*_.VALCLO___V4086*/ curfptr[4085] = (void*)&cdat->dclo_4032__AT_EXIT_FIRST;
+  cdat->dclo_4032__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4032__AT_EXIT_FIRST.nbval = 0;
+ 
+ /*inirout drout_4033__AT_EXIT_LAST*/
+ /*_.VALROUT___V4087*/ curfptr[4086] = (void*)&cdat->drout_4033__AT_EXIT_LAST;
+  cdat->drout_4033__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4033__AT_EXIT_LAST.routdescr, "AT_EXIT_LAST @warmelt-first.melt:2925",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4033__AT_EXIT_LAST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4033__AT_EXIT_LAST, meltrout_18_warmelt_first_AT_EXIT_LAST);
+ 
+ /*iniclos dclo_4034__AT_EXIT_LAST*/
+ /*_.VALCLO___V4088*/ curfptr[4087] = (void*)&cdat->dclo_4034__AT_EXIT_LAST;
+  cdat->dclo_4034__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4034__AT_EXIT_LAST.nbval = 0;
+ 
+ /*iniobj dsym_4035__START_UNIT_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4089*/ curfptr[4088]) /*_.VALDATA___V4089*/ curfptr[4088] = (void*)&cdat->dsym_4035__START_UNIT_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dsym_4035__START_UNIT_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4035__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4035__START_UNIT_DELAYED_QUEUE.obj_hash = 29194126;
+  cdat->dsym_4035__START_UNIT_DELAYED_QUEUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4035__START_UNIT_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4036__START_UNIT_DELAY*/
+ /*_.VALSTR___V4090*/ curfptr[4089] = (void*)&cdat->dstr_4036__START_UNIT_DELAY;
+  cdat->dstr_4036__START_UNIT_DELAY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4036__START_UNIT_DELAY.val, "START_UNIT_DELAYED_QUEUE", sizeof(cdat->dstr_4036__START_UNIT_DELAY.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2934:/ iniobj");
+ /*iniobj dobj_4037__START_UNIT_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4058*/ curfptr[4057]) /*_.VALDATA___V4058*/ curfptr[4057] = (void*)&cdat->dobj_4037__START_UNIT_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dobj_4037__START_UNIT_DELAYED_QUEUE", NULL != (void*)/*_.VALDATA___V4025*/ curfptr[4024]);
+  cdat->dobj_4037__START_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]);
+  cdat->dobj_4037__START_UNIT_DELAYED_QUEUE.obj_hash = 801832573;
+  cdat->dobj_4037__START_UNIT_DELAYED_QUEUE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4037__START_UNIT_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4038__start_unit_delay*/
+ /*_.VALSTR___V4061*/ curfptr[4060] = (void*)&cdat->dstr_4038__start_unit_delay;
+  cdat->dstr_4038__start_unit_delay.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4038__start_unit_delay.val, "start_unit_delayed_queue", sizeof(cdat->dstr_4038__start_unit_delay.val)-1);
+ 
+ /*inirout drout_4039__INIT_UNITSTARTER*/
+ /*_.VALROUT___V4057*/ curfptr[4056] = (void*)&cdat->drout_4039__INIT_UNITSTARTER;
+  cdat->drout_4039__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4039__INIT_UNITSTARTER.routdescr, "INIT_UNITSTARTER @warmelt-first.melt:2941",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4039__INIT_UNITSTARTER.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4039__INIT_UNITSTARTER, meltrout_19_warmelt_first_INIT_UNITSTARTER);
+ 
+ /*iniclos dclo_4040__INIT_UNITSTARTER*/
+ /*_.VALCLO___V4056*/ curfptr[4055] = (void*)&cdat->dclo_4040__INIT_UNITSTARTER;
+  cdat->dclo_4040__INIT_UNITSTARTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4040__INIT_UNITSTARTER.nbval = 0;
+ 
+ /*inirout drout_4041__LAMBDA_*/
+ /*_.VALROUT___V4062*/ curfptr[4061] = (void*)&cdat->drout_4041__LAMBDA_;
+  cdat->drout_4041__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4041__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2951",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4041__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4041__LAMBDA_, meltrout_20_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4042__LAMBDA_*/
+ /*_.VALROUT___V4063*/ curfptr[4062] = (void*)&cdat->drout_4042__LAMBDA_;
+  cdat->drout_4042__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4042__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2960",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4042__LAMBDA_.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4042__LAMBDA_, meltrout_21_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4043__LAMBDA_*/
+ /*_.VALROUT___V4064*/ curfptr[4063] = (void*)&cdat->drout_4043__LAMBDA_;
+  cdat->drout_4043__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4043__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:2965",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4043__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4043__LAMBDA_, meltrout_22_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4044__AT_START_UNIT_FIRST*/
+ /*_.VALROUT___V4091*/ curfptr[4090] = (void*)&cdat->drout_4044__AT_START_UNIT_FIRST;
+  cdat->drout_4044__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4044__AT_START_UNIT_FIRST.routdescr, "AT_START_UNIT_FIRST @warmelt-first.melt:2975",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4044__AT_START_UNIT_FIRST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4044__AT_START_UNIT_FIRST, meltrout_23_warmelt_first_AT_START_UNIT_FIRST);
+ 
+ /*iniclos dclo_4045__AT_START_UNIT_FIRST*/
+ /*_.VALCLO___V4092*/ curfptr[4091] = (void*)&cdat->dclo_4045__AT_START_UNIT_FIRST;
+  cdat->dclo_4045__AT_START_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4045__AT_START_UNIT_FIRST.nbval = 0;
+ 
+ /*inirout drout_4046__AT_START_UNIT_LAST*/
+ /*_.VALROUT___V4093*/ curfptr[4092] = (void*)&cdat->drout_4046__AT_START_UNIT_LAST;
+  cdat->drout_4046__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4046__AT_START_UNIT_LAST.routdescr, "AT_START_UNIT_LAST @warmelt-first.melt:2982",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4046__AT_START_UNIT_LAST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4046__AT_START_UNIT_LAST, meltrout_24_warmelt_first_AT_START_UNIT_LAST);
+ 
+ /*iniclos dclo_4047__AT_START_UNIT_LAST*/
+ /*_.VALCLO___V4094*/ curfptr[4093] = (void*)&cdat->dclo_4047__AT_START_UNIT_LAST;
+  cdat->dclo_4047__AT_START_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4047__AT_START_UNIT_LAST.nbval = 0;
+ 
+ /*iniobj dsym_4048__FINISH_UNIT_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4095*/ curfptr[4094]) /*_.VALDATA___V4095*/ curfptr[4094] = (void*)&cdat->dsym_4048__FINISH_UNIT_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dsym_4048__FINISH_UNIT_DELAYED_QUEUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4048__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4048__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 694241046;
+  cdat->dsym_4048__FINISH_UNIT_DELAYED_QUEUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4048__FINISH_UNIT_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4049__FINISH_UNIT_DELA*/
+ /*_.VALSTR___V4096*/ curfptr[4095] = (void*)&cdat->dstr_4049__FINISH_UNIT_DELA;
+  cdat->dstr_4049__FINISH_UNIT_DELA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4049__FINISH_UNIT_DELA.val, "FINISH_UNIT_DELAYED_QUEUE", sizeof(cdat->dstr_4049__FINISH_UNIT_DELA.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:2991:/ iniobj");
+ /*iniobj dobj_4050__FINISH_UNIT_DELAYED_QUEUE*/
+ if (!/*_.VALDATA___V4067*/ curfptr[4066]) /*_.VALDATA___V4067*/ curfptr[4066] = (void*)&cdat->dobj_4050__FINISH_UNIT_DELAYED_QUEUE;
+  melt_assertmsg("iniobj checkdiscr dobj_4050__FINISH_UNIT_DELAYED_QUEUE", NULL != (void*)/*_.VALDATA___V4025*/ curfptr[4024]);
+  cdat->dobj_4050__FINISH_UNIT_DELAYED_QUEUE.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]);
+  cdat->dobj_4050__FINISH_UNIT_DELAYED_QUEUE.obj_hash = 659332297;
+  cdat->dobj_4050__FINISH_UNIT_DELAYED_QUEUE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4050__FINISH_UNIT_DELAYED_QUEUE));
+ 
+ /*inistring dstr_4051__finish_unit_dela*/
+ /*_.VALSTR___V4070*/ curfptr[4069] = (void*)&cdat->dstr_4051__finish_unit_dela;
+  cdat->dstr_4051__finish_unit_dela.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4051__finish_unit_dela.val, "finish_unit_delayed_queue", sizeof(cdat->dstr_4051__finish_unit_dela.val)-1);
+ 
+ /*inirout drout_4052__INIT_UNITFINISHER*/
+ /*_.VALROUT___V4066*/ curfptr[4065] = (void*)&cdat->drout_4052__INIT_UNITFINISHER;
+  cdat->drout_4052__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4052__INIT_UNITFINISHER.routdescr, "INIT_UNITFINISHER @warmelt-first.melt:2997",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4052__INIT_UNITFINISHER.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4052__INIT_UNITFINISHER, meltrout_25_warmelt_first_INIT_UNITFINISHER);
+ 
+ /*iniclos dclo_4053__INIT_UNITFINISHER*/
+ /*_.VALCLO___V4065*/ curfptr[4064] = (void*)&cdat->dclo_4053__INIT_UNITFINISHER;
+  cdat->dclo_4053__INIT_UNITFINISHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4053__INIT_UNITFINISHER.nbval = 0;
+ 
+ /*inirout drout_4054__LAMBDA_*/
+ /*_.VALROUT___V4071*/ curfptr[4070] = (void*)&cdat->drout_4054__LAMBDA_;
+  cdat->drout_4054__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4054__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3007",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4054__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4054__LAMBDA_, meltrout_26_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4055__LAMBDA_*/
+ /*_.VALROUT___V4072*/ curfptr[4071] = (void*)&cdat->drout_4055__LAMBDA_;
+  cdat->drout_4055__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4055__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3016",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4055__LAMBDA_.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4055__LAMBDA_, meltrout_27_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4056__LAMBDA_*/
+ /*_.VALROUT___V4073*/ curfptr[4072] = (void*)&cdat->drout_4056__LAMBDA_;
+  cdat->drout_4056__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4056__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3021",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4056__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4056__LAMBDA_, meltrout_28_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4057__AT_FINISH_UNIT_FIRST*/
+ /*_.VALROUT___V4097*/ curfptr[4096] = (void*)&cdat->drout_4057__AT_FINISH_UNIT_FIRST;
+  cdat->drout_4057__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4057__AT_FINISH_UNIT_FIRST.routdescr, "AT_FINISH_UNIT_FIRST @warmelt-first.melt:3031",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4057__AT_FINISH_UNIT_FIRST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4057__AT_FINISH_UNIT_FIRST, meltrout_29_warmelt_first_AT_FINISH_UNIT_FIRST);
+ 
+ /*iniclos dclo_4058__AT_FINISH_UNIT_FIRST*/
+ /*_.VALCLO___V4098*/ curfptr[4097] = (void*)&cdat->dclo_4058__AT_FINISH_UNIT_FIRST;
+  cdat->dclo_4058__AT_FINISH_UNIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4058__AT_FINISH_UNIT_FIRST.nbval = 0;
+ 
+ /*inirout drout_4059__AT_FINISH_UNIT_LAST*/
+ /*_.VALROUT___V4099*/ curfptr[4098] = (void*)&cdat->drout_4059__AT_FINISH_UNIT_LAST;
+  cdat->drout_4059__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4059__AT_FINISH_UNIT_LAST.routdescr, "AT_FINISH_UNIT_LAST @warmelt-first.melt:3039",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4059__AT_FINISH_UNIT_LAST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4059__AT_FINISH_UNIT_LAST, meltrout_30_warmelt_first_AT_FINISH_UNIT_LAST);
+ 
+ /*iniclos dclo_4060__AT_FINISH_UNIT_LAST*/
+ /*_.VALCLO___V4100*/ curfptr[4099] = (void*)&cdat->dclo_4060__AT_FINISH_UNIT_LAST;
+  cdat->dclo_4060__AT_FINISH_UNIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4060__AT_FINISH_UNIT_LAST.nbval = 0;
+ 
+ /*inirout drout_4061__DISPLAY_DEBUG_MESSAGE*/
+ /*_.VALROUT___V4101*/ curfptr[4100] = (void*)&cdat->drout_4061__DISPLAY_DEBUG_MESSAGE;
+  cdat->drout_4061__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4061__DISPLAY_DEBUG_MESSAGE.routdescr, "DISPLAY_DEBUG_MESSAGE @warmelt-first.melt:3050",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4061__DISPLAY_DEBUG_MESSAGE.nbval = 5;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4061__DISPLAY_DEBUG_MESSAGE, meltrout_31_warmelt_first_DISPLAY_DEBUG_MESSAGE);
+ 
+ /*iniclos dclo_4062__DISPLAY_DEBUG_MESSAGE*/
+ /*_.VALCLO___V4102*/ curfptr[4101] = (void*)&cdat->dclo_4062__DISPLAY_DEBUG_MESSAGE;
+  cdat->dclo_4062__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4062__DISPLAY_DEBUG_MESSAGE.nbval = 0;
+ 
+ /*inirout drout_4063__DEBUGMSG*/
+ /*_.VALROUT___V4047*/ curfptr[4046] = (void*)&cdat->drout_4063__DEBUGMSG;
+  cdat->drout_4063__DEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4063__DEBUGMSG.routdescr, "DEBUGMSG @warmelt-first.melt:3074",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4063__DEBUGMSG.nbval = 5;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4063__DEBUGMSG, meltrout_32_warmelt_first_DEBUGMSG);
+ 
+ /*iniclos dclo_4064__DEBUGMSG*/
+ /*_.VALCLO___V4046*/ curfptr[4045] = (void*)&cdat->dclo_4064__DEBUGMSG;
+  cdat->dclo_4064__DEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4064__DEBUGMSG.nbval = 0;
+ 
+ /*iniobj dsym_4065__INITIAL_SYSTEM_DATA*/
+ if (!/*_.VALDATA___V4103*/ curfptr[4102]) /*_.VALDATA___V4103*/ curfptr[4102] = (void*)&cdat->dsym_4065__INITIAL_SYSTEM_DATA;
+  melt_assertmsg("iniobj checkdiscr dsym_4065__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4065__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4065__INITIAL_SYSTEM_DATA.obj_hash = 771349808;
+  cdat->dsym_4065__INITIAL_SYSTEM_DATA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4065__INITIAL_SYSTEM_DATA));
+ 
+ /*inistring dstr_4066__INITIAL_SYSTEM_D*/
+ /*_.VALSTR___V4104*/ curfptr[4103] = (void*)&cdat->dstr_4066__INITIAL_SYSTEM_D;
+  cdat->dstr_4066__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4066__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_4066__INITIAL_SYSTEM_D.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3096:/ iniobj");
+ /*iniobj dobj_4067__INITIAL_SYSTEM_DATA*/
+ if (((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))) != (melt_ptr_t)&cdat->dobj_4067__INITIAL_SYSTEM_DATA) {
   melt_assertmsg("check.predef length ((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))", melt_object_length((melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA))))) >= 27);
   };
- /*_.VALDATA___V4011*/ curfptr[4010] = ((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)));
-  melt_assertmsg("iniobj checkdiscr dobj_4075__INITIAL_SYSTEM_DATA", NULL != (void*)/*_.VALDATA___V299*/ curfptr[298]);
-  cdat->dobj_4075__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
-  cdat->dobj_4075__INITIAL_SYSTEM_DATA.obj_hash = 637724093;
-  cdat->dobj_4075__INITIAL_SYSTEM_DATA.obj_len = 27;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4075__INITIAL_SYSTEM_DATA));
- 
- /*inistring dstr_4076__INITIAL_SYSTEM_D*/
- /*_.VALSTR___V4016*/ curfptr[4015] = (void*)&cdat->dstr_4076__INITIAL_SYSTEM_D;
-  cdat->dstr_4076__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4076__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_4076__INITIAL_SYSTEM_D.val)-1);
- 
- /*inirout drout_4077__MAPOBJECT_EVERY*/
- /*_.VALROUT___V4113*/ curfptr[4112] = (void*)&cdat->drout_4077__MAPOBJECT_EVERY;
-  cdat->drout_4077__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4077__MAPOBJECT_EVERY.routdescr, "MAPOBJECT_EVERY @warmelt-first.melt:3136",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4077__MAPOBJECT_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4077__MAPOBJECT_EVERY, meltrout_33_warmelt_first_MAPOBJECT_EVERY);
- 
- /*iniclos dclo_4078__MAPOBJECT_EVERY*/
- /*_.VALCLO___V4114*/ curfptr[4113] = (void*)&cdat->dclo_4078__MAPOBJECT_EVERY;
-  cdat->dclo_4078__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4078__MAPOBJECT_EVERY.nbval = 0;
- 
- /*inirout drout_4079__MAPOBJECT_ITERATE_TEST*/
- /*_.VALROUT___V4115*/ curfptr[4114] = (void*)&cdat->drout_4079__MAPOBJECT_ITERATE_TEST;
-  cdat->drout_4079__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4079__MAPOBJECT_ITERATE_TEST.routdescr, "MAPOBJECT_ITERATE_TEST @warmelt-first.melt:3151",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4079__MAPOBJECT_ITERATE_TEST.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4079__MAPOBJECT_ITERATE_TEST, meltrout_34_warmelt_first_MAPOBJECT_ITERATE_TEST);
- 
- /*iniclos dclo_4080__MAPOBJECT_ITERATE_TEST*/
- /*_.VALCLO___V4116*/ curfptr[4115] = (void*)&cdat->dclo_4080__MAPOBJECT_ITERATE_TEST;
-  cdat->dclo_4080__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4080__MAPOBJECT_ITERATE_TEST.nbval = 0;
- 
- /*inirout drout_4081__MAPSTRING_EVERY*/
- /*_.VALROUT___V4117*/ curfptr[4116] = (void*)&cdat->drout_4081__MAPSTRING_EVERY;
-  cdat->drout_4081__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4081__MAPSTRING_EVERY.routdescr, "MAPSTRING_EVERY @warmelt-first.melt:3171",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4081__MAPSTRING_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4081__MAPSTRING_EVERY, meltrout_35_warmelt_first_MAPSTRING_EVERY);
- 
- /*iniclos dclo_4082__MAPSTRING_EVERY*/
- /*_.VALCLO___V4118*/ curfptr[4117] = (void*)&cdat->dclo_4082__MAPSTRING_EVERY;
-  cdat->dclo_4082__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4082__MAPSTRING_EVERY.nbval = 0;
- 
- /*inirout drout_4083__MAPSTRING_ITERATE_TEST*/
- /*_.VALROUT___V4119*/ curfptr[4118] = (void*)&cdat->drout_4083__MAPSTRING_ITERATE_TEST;
-  cdat->drout_4083__MAPSTRING_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4083__MAPSTRING_ITERATE_TEST.routdescr, "MAPSTRING_ITERATE_TEST @warmelt-first.melt:3184",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4083__MAPSTRING_ITERATE_TEST.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4083__MAPSTRING_ITERATE_TEST, meltrout_36_warmelt_first_MAPSTRING_ITERATE_TEST);
- 
- /*iniclos dclo_4084__MAPSTRING_ITERATE_TEST*/
- /*_.VALCLO___V4120*/ curfptr[4119] = (void*)&cdat->dclo_4084__MAPSTRING_ITERATE_TEST;
-  cdat->dclo_4084__MAPSTRING_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4084__MAPSTRING_ITERATE_TEST.nbval = 0;
- 
- MELT_LOCATION("warmelt-first.melt:3205:/ iniobj");
- /*iniobj dobj_4085__FOREACH_IN_LIST*/
- if (!/*_.VALDATA___V4121*/ curfptr[4120]) /*_.VALDATA___V4121*/ curfptr[4120] = (void*)&cdat->dobj_4085__FOREACH_IN_LIST;
-  melt_assertmsg("iniobj checkdiscr dobj_4085__FOREACH_IN_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_4085__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_4085__FOREACH_IN_LIST.obj_hash = 766389596;
-  cdat->dobj_4085__FOREACH_IN_LIST.obj_len = 7;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4085__FOREACH_IN_LIST));
- 
- /*inistring dstr_4086__FOREACH_IN_LIST*/
- /*_.VALSTR___V4122*/ curfptr[4121] = (void*)&cdat->dstr_4086__FOREACH_IN_LIST;
-  cdat->dstr_4086__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4086__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof(cdat->dstr_4086__FOREACH_IN_LIST.val)-1);
- 
- /*iniobj dsym_4087__LIS*/
- if (!/*_.VALDATA___V4124*/ curfptr[4123]) /*_.VALDATA___V4124*/ curfptr[4123] = (void*)&cdat->dsym_4087__LIS;
-  melt_assertmsg("iniobj checkdiscr dsym_4087__LIS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4087__LIS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4087__LIS.obj_hash = 735199356;
-  cdat->dsym_4087__LIS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4087__LIS));
- 
- /*inistring dstr_4088__LIS*/
- /*_.VALSTR___V4125*/ curfptr[4124] = (void*)&cdat->dstr_4088__LIS;
-  cdat->dstr_4088__LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4088__LIS.val, "LIS", sizeof(cdat->dstr_4088__LIS.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3205:/ iniobj");
- /*iniobj dobj_4089*/
- if (!/*_.VALDATA___V4123*/ curfptr[4122]) /*_.VALDATA___V4123*/ curfptr[4122] = (void*)&cdat->dobj_4089;
-  melt_assertmsg("iniobj checkdiscr dobj_4089", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4089.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4089.obj_num = 0;
-  cdat->dobj_4089.obj_hash = 119547881;
-  cdat->dobj_4089.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4089));
- 
- /*inimult dtup_4090__FOREACH_IN_LIST*/
- /*_.VALTUP___V4126*/ curfptr[4125] = (void*)&cdat->dtup_4090__FOREACH_IN_LIST;
-  cdat->dtup_4090__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4090__FOREACH_IN_LIST.nbval = 1;
- /*iniobj dsym_4091__EACHLIST*/
- if (!/*_.VALDATA___V4127*/ curfptr[4126]) /*_.VALDATA___V4127*/ curfptr[4126] = (void*)&cdat->dsym_4091__EACHLIST;
-  melt_assertmsg("iniobj checkdiscr dsym_4091__EACHLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4091__EACHLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4091__EACHLIST.obj_hash = 225124635;
-  cdat->dsym_4091__EACHLIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4091__EACHLIST));
- 
- /*inistring dstr_4092__EACHLIST*/
- /*_.VALSTR___V4128*/ curfptr[4127] = (void*)&cdat->dstr_4092__EACHLIST;
-  cdat->dstr_4092__EACHLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4092__EACHLIST.val, "EACHLIST", sizeof(cdat->dstr_4092__EACHLIST.val)-1);
- 
- /*iniobj dsym_4093__CURPAIR*/
- if (!/*_.VALDATA___V4130*/ curfptr[4129]) /*_.VALDATA___V4130*/ curfptr[4129] = (void*)&cdat->dsym_4093__CURPAIR;
-  melt_assertmsg("iniobj checkdiscr dsym_4093__CURPAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4093__CURPAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4093__CURPAIR.obj_hash = 650578685;
-  cdat->dsym_4093__CURPAIR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4093__CURPAIR));
- 
- /*inistring dstr_4094__CURPAIR*/
- /*_.VALSTR___V4131*/ curfptr[4130] = (void*)&cdat->dstr_4094__CURPAIR;
-  cdat->dstr_4094__CURPAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4094__CURPAIR.val, "CURPAIR", sizeof(cdat->dstr_4094__CURPAIR.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3205:/ iniobj");
- /*iniobj dobj_4095*/
- if (!/*_.VALDATA___V4129*/ curfptr[4128]) /*_.VALDATA___V4129*/ curfptr[4128] = (void*)&cdat->dobj_4095;
-  melt_assertmsg("iniobj checkdiscr dobj_4095", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4095.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4095.obj_num = 0;
-  cdat->dobj_4095.obj_hash = 967631229;
-  cdat->dobj_4095.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4095));
- 
- /*iniobj dsym_4096__CURCOMP*/
- if (!/*_.VALDATA___V4133*/ curfptr[4132]) /*_.VALDATA___V4133*/ curfptr[4132] = (void*)&cdat->dsym_4096__CURCOMP;
-  melt_assertmsg("iniobj checkdiscr dsym_4096__CURCOMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4096__CURCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4096__CURCOMP.obj_hash = 380262672;
-  cdat->dsym_4096__CURCOMP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4096__CURCOMP));
- 
- /*inistring dstr_4097__CURCOMP*/
- /*_.VALSTR___V4134*/ curfptr[4133] = (void*)&cdat->dstr_4097__CURCOMP;
-  cdat->dstr_4097__CURCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4097__CURCOMP.val, "CURCOMP", sizeof(cdat->dstr_4097__CURCOMP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3205:/ iniobj");
- /*iniobj dobj_4098*/
- if (!/*_.VALDATA___V4132*/ curfptr[4131]) /*_.VALDATA___V4132*/ curfptr[4131] = (void*)&cdat->dobj_4098;
-  melt_assertmsg("iniobj checkdiscr dobj_4098", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4098.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4098.obj_num = 1;
-  cdat->dobj_4098.obj_hash = 478184631;
-  cdat->dobj_4098.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4098));
- 
- /*inimult dtup_4099__FOREACH_IN_LIST*/
- /*_.VALTUP___V4135*/ curfptr[4134] = (void*)&cdat->dtup_4099__FOREACH_IN_LIST;
-  cdat->dtup_4099__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4099__FOREACH_IN_LIST.nbval = 2;
- /*inistring dstr_4100__start_*/
- /*_.VALSTR___V4136*/ curfptr[4135] = (void*)&cdat->dstr_4100__start_;
-  cdat->dstr_4100__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4100__start_.val, "/* start ", sizeof(cdat->dstr_4100__start_.val)-1);
- 
- /*inistring dstr_4101__for_*/
- /*_.VALSTR___V4137*/ curfptr[4136] = (void*)&cdat->dstr_4101__for_;
-  cdat->dstr_4101__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4101__for_.val, " */\n   for (", sizeof(cdat->dstr_4101__for_.val)-1);
- 
- /*inistring dstr_4102__melt_list_fir*/
- /*_.VALSTR___V4138*/ curfptr[4137] = (void*)&cdat->dstr_4102__melt_list_fir;
-  cdat->dstr_4102__melt_list_fir.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4102__melt_list_fir.val, " = melt_list_first(", sizeof(cdat->dstr_4102__melt_list_fir.val)-1);
- 
- /*inistring dstr_4103__melt_magic_d*/
- /*_.VALSTR___V4139*/ curfptr[4138] = (void*)&cdat->dstr_4103__melt_magic_d;
-  cdat->dstr_4103__melt_magic_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4103__melt_magic_d.val, ");\n\tmelt_magic_discr(", sizeof(cdat->dstr_4103__melt_magic_d.val)-1);
- 
- /*inistring dstr_4104__OBMAG_PAIR_*/
- /*_.VALSTR___V4140*/ curfptr[4139] = (void*)&cdat->dstr_4104__OBMAG_PAIR_;
-  cdat->dstr_4104__OBMAG_PAIR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4104__OBMAG_PAIR_.val, ") == OBMAG_PAIR;\n        ", sizeof(cdat->dstr_4104__OBMAG_PAIR_.val)-1);
- 
- /*inistring dstr_4105__melt_pair_tai*/
- /*_.VALSTR___V4141*/ curfptr[4140] = (void*)&cdat->dstr_4105__melt_pair_tai;
-  cdat->dstr_4105__melt_pair_tai.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4105__melt_pair_tai.val, " = melt_pair_tail(", sizeof(cdat->dstr_4105__melt_pair_tai.val)-1);
- 
- /*inistring dstr_4106__*/
- /*_.VALSTR___V4142*/ curfptr[4141] = (void*)&cdat->dstr_4106__;
-  cdat->dstr_4106__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4106__.val, ")) {\n\t", sizeof(cdat->dstr_4106__.val)-1);
- 
- /*inistring dstr_4107__melt_pair_hea*/
- /*_.VALSTR___V4143*/ curfptr[4142] = (void*)&cdat->dstr_4107__melt_pair_hea;
-  cdat->dstr_4107__melt_pair_hea.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4107__melt_pair_hea.val, " = melt_pair_head(", sizeof(cdat->dstr_4107__melt_pair_hea.val)-1);
- 
- /*inistring dstr_4108__*/
- /*_.VALSTR___V4144*/ curfptr[4143] = (void*)&cdat->dstr_4108__;
-  cdat->dstr_4108__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4108__.val, "); ", sizeof(cdat->dstr_4108__.val)-1);
- 
- /*inimult dtup_4109__FOREACH_IN_LIST*/
- /*_.VALTUP___V4145*/ curfptr[4144] = (void*)&cdat->dtup_4109__FOREACH_IN_LIST;
-  cdat->dtup_4109__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4109__FOREACH_IN_LIST.nbval = 17;
- /*inistring dstr_4110__end_*/
- /*_.VALSTR___V4146*/ curfptr[4145] = (void*)&cdat->dstr_4110__end_;
-  cdat->dstr_4110__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4110__end_.val, " } /* end ", sizeof(cdat->dstr_4110__end_.val)-1);
- 
- /*inistring dstr_4111__*/
- /*_.VALSTR___V4147*/ curfptr[4146] = (void*)&cdat->dstr_4111__;
-  cdat->dstr_4111__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4111__.val, " */", sizeof(cdat->dstr_4111__.val)-1);
- 
- /*inimult dtup_4112__FOREACH_IN_LIST*/
- /*_.VALTUP___V4148*/ curfptr[4147] = (void*)&cdat->dtup_4112__FOREACH_IN_LIST;
-  cdat->dtup_4112__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4112__FOREACH_IN_LIST.nbval = 3;
- /*inirout drout_4113__LIST_EVERY*/
- /*_.VALROUT___V4048*/ curfptr[4047] = (void*)&cdat->drout_4113__LIST_EVERY;
-  cdat->drout_4113__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4113__LIST_EVERY.routdescr, "LIST_EVERY @warmelt-first.melt:3222",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4113__LIST_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4113__LIST_EVERY, meltrout_37_warmelt_first_LIST_EVERY);
- 
- /*iniclos dclo_4114__LIST_EVERY*/
- /*_.VALCLO___V4047*/ curfptr[4046] = (void*)&cdat->dclo_4114__LIST_EVERY;
-  cdat->dclo_4114__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4114__LIST_EVERY.nbval = 0;
- 
- /*inirout drout_4115__LIST_ITERATE_TEST*/
- /*_.VALROUT___V4149*/ curfptr[4148] = (void*)&cdat->drout_4115__LIST_ITERATE_TEST;
-  cdat->drout_4115__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4115__LIST_ITERATE_TEST.routdescr, "LIST_ITERATE_TEST @warmelt-first.melt:3233",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4115__LIST_ITERATE_TEST.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4115__LIST_ITERATE_TEST, meltrout_38_warmelt_first_LIST_ITERATE_TEST);
- 
- /*iniclos dclo_4116__LIST_ITERATE_TEST*/
- /*_.VALCLO___V4150*/ curfptr[4149] = (void*)&cdat->dclo_4116__LIST_ITERATE_TEST;
-  cdat->dclo_4116__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4116__LIST_ITERATE_TEST.nbval = 0;
- 
- /*inirout drout_4117__LIST_APPEND2LIST*/
- /*_.VALROUT___V4151*/ curfptr[4150] = (void*)&cdat->drout_4117__LIST_APPEND2LIST;
-  cdat->drout_4117__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4117__LIST_APPEND2LIST.routdescr, "LIST_APPEND2LIST @warmelt-first.melt:3249",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4117__LIST_APPEND2LIST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4117__LIST_APPEND2LIST, meltrout_39_warmelt_first_LIST_APPEND2LIST);
- 
- /*iniclos dclo_4118__LIST_APPEND2LIST*/
- /*_.VALCLO___V4152*/ curfptr[4151] = (void*)&cdat->dclo_4118__LIST_APPEND2LIST;
-  cdat->dclo_4118__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4118__LIST_APPEND2LIST.nbval = 0;
- 
- /*inirout drout_4119__LIST_MAP*/
- /*_.VALROUT___V4153*/ curfptr[4152] = (void*)&cdat->drout_4119__LIST_MAP;
-  cdat->drout_4119__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4119__LIST_MAP.routdescr, "LIST_MAP @warmelt-first.melt:3264",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4119__LIST_MAP.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4119__LIST_MAP, meltrout_40_warmelt_first_LIST_MAP);
- 
- /*iniclos dclo_4120__LIST_MAP*/
- /*_.VALCLO___V4154*/ curfptr[4153] = (void*)&cdat->dclo_4120__LIST_MAP;
-  cdat->dclo_4120__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4120__LIST_MAP.nbval = 0;
- 
- /*inirout drout_4121__LIST_FIND*/
- /*_.VALROUT___V4155*/ curfptr[4154] = (void*)&cdat->drout_4121__LIST_FIND;
-  cdat->drout_4121__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4121__LIST_FIND.routdescr, "LIST_FIND @warmelt-first.melt:3278",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4121__LIST_FIND.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4121__LIST_FIND, meltrout_41_warmelt_first_LIST_FIND);
- 
- /*iniclos dclo_4122__LIST_FIND*/
- /*_.VALCLO___V4156*/ curfptr[4155] = (void*)&cdat->dclo_4122__LIST_FIND;
-  cdat->dclo_4122__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4122__LIST_FIND.nbval = 0;
- 
- /*inirout drout_4123__LIST_TO_MULTIPLE*/
- /*_.VALROUT___V4157*/ curfptr[4156] = (void*)&cdat->drout_4123__LIST_TO_MULTIPLE;
-  cdat->drout_4123__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4123__LIST_TO_MULTIPLE.routdescr, "LIST_TO_MULTIPLE @warmelt-first.melt:3299",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4123__LIST_TO_MULTIPLE.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4123__LIST_TO_MULTIPLE, meltrout_42_warmelt_first_LIST_TO_MULTIPLE);
- 
- /*iniclos dclo_4124__LIST_TO_MULTIPLE*/
- /*_.VALCLO___V4159*/ curfptr[4158] = (void*)&cdat->dclo_4124__LIST_TO_MULTIPLE;
-  cdat->dclo_4124__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4124__LIST_TO_MULTIPLE.nbval = 0;
- 
- /*inirout drout_4125__LAMBDA_*/
- /*_.VALROUT___V4158*/ curfptr[4157] = (void*)&cdat->drout_4125__LAMBDA_;
-  cdat->drout_4125__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4125__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3308",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4125__LAMBDA_.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4125__LAMBDA_, meltrout_43_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4126__PAIRLIST_TO_MULTIPLE*/
- /*_.VALROUT___V4160*/ curfptr[4159] = (void*)&cdat->drout_4126__PAIRLIST_TO_MULTIPLE;
-  cdat->drout_4126__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4126__PAIRLIST_TO_MULTIPLE.routdescr, "PAIRLIST_TO_MULTIPLE @warmelt-first.melt:3319",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4126__PAIRLIST_TO_MULTIPLE.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4126__PAIRLIST_TO_MULTIPLE, meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE);
- 
- /*iniclos dclo_4127__PAIRLIST_TO_MULTIPLE*/
- /*_.VALCLO___V4161*/ curfptr[4160] = (void*)&cdat->dclo_4127__PAIRLIST_TO_MULTIPLE;
-  cdat->dclo_4127__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4127__PAIRLIST_TO_MULTIPLE.nbval = 0;
- 
- MELT_LOCATION("warmelt-first.melt:3349:/ iniobj");
- /*iniobj dobj_4128__FOREACH_IN_MULTIPLE*/
- if (!/*_.VALDATA___V4162*/ curfptr[4161]) /*_.VALDATA___V4162*/ curfptr[4161] = (void*)&cdat->dobj_4128__FOREACH_IN_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dobj_4128__FOREACH_IN_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_4128__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_4128__FOREACH_IN_MULTIPLE.obj_hash = 692733121;
-  cdat->dobj_4128__FOREACH_IN_MULTIPLE.obj_len = 7;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4128__FOREACH_IN_MULTIPLE));
- 
- /*inistring dstr_4129__FOREACH_IN_MULTI*/
- /*_.VALSTR___V4163*/ curfptr[4162] = (void*)&cdat->dstr_4129__FOREACH_IN_MULTI;
-  cdat->dstr_4129__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4129__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof(cdat->dstr_4129__FOREACH_IN_MULTI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3349:/ iniobj");
- /*iniobj dobj_4130*/
- if (!/*_.VALDATA___V4164*/ curfptr[4163]) /*_.VALDATA___V4164*/ curfptr[4163] = (void*)&cdat->dobj_4130;
-  melt_assertmsg("iniobj checkdiscr dobj_4130", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4130.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4130.obj_num = 0;
-  cdat->dobj_4130.obj_hash = 235533428;
-  cdat->dobj_4130.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4130));
- 
- /*inimult dtup_4131__FOREACH_IN_MULTIPLE*/
- /*_.VALTUP___V4165*/ curfptr[4164] = (void*)&cdat->dtup_4131__FOREACH_IN_MULTIPLE;
-  cdat->dtup_4131__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4131__FOREACH_IN_MULTIPLE.nbval = 1;
- /*iniobj dsym_4132__EACHTUP*/
- if (!/*_.VALDATA___V4166*/ curfptr[4165]) /*_.VALDATA___V4166*/ curfptr[4165] = (void*)&cdat->dsym_4132__EACHTUP;
-  melt_assertmsg("iniobj checkdiscr dsym_4132__EACHTUP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4132__EACHTUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4132__EACHTUP.obj_hash = 419981892;
-  cdat->dsym_4132__EACHTUP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4132__EACHTUP));
- 
- /*inistring dstr_4133__EACHTUP*/
- /*_.VALSTR___V4167*/ curfptr[4166] = (void*)&cdat->dstr_4133__EACHTUP;
-  cdat->dstr_4133__EACHTUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4133__EACHTUP.val, "EACHTUP", sizeof(cdat->dstr_4133__EACHTUP.val)-1);
- 
- /*iniobj dsym_4134__COMP*/
- if (!/*_.VALDATA___V4169*/ curfptr[4168]) /*_.VALDATA___V4169*/ curfptr[4168] = (void*)&cdat->dsym_4134__COMP;
-  melt_assertmsg("iniobj checkdiscr dsym_4134__COMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4134__COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4134__COMP.obj_hash = 981846572;
-  cdat->dsym_4134__COMP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4134__COMP));
- 
- /*inistring dstr_4135__COMP*/
- /*_.VALSTR___V4170*/ curfptr[4169] = (void*)&cdat->dstr_4135__COMP;
-  cdat->dstr_4135__COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4135__COMP.val, "COMP", sizeof(cdat->dstr_4135__COMP.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3349:/ iniobj");
- /*iniobj dobj_4136*/
- if (!/*_.VALDATA___V4168*/ curfptr[4167]) /*_.VALDATA___V4168*/ curfptr[4167] = (void*)&cdat->dobj_4136;
-  melt_assertmsg("iniobj checkdiscr dobj_4136", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4136.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4136.obj_num = 0;
-  cdat->dobj_4136.obj_hash = 295180621;
-  cdat->dobj_4136.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4136));
- 
- MELT_LOCATION("warmelt-first.melt:3349:/ iniobj");
- /*iniobj dobj_4137*/
- if (!/*_.VALDATA___V4171*/ curfptr[4170]) /*_.VALDATA___V4171*/ curfptr[4170] = (void*)&cdat->dobj_4137;
-  melt_assertmsg("iniobj checkdiscr dobj_4137", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4137.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4137.obj_num = 1;
-  cdat->dobj_4137.obj_hash = 924238874;
-  cdat->dobj_4137.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4137));
- 
- /*inimult dtup_4138__FOREACH_IN_MULTIPLE*/
- /*_.VALTUP___V4172*/ curfptr[4171] = (void*)&cdat->dtup_4138__FOREACH_IN_MULTIPLE;
-  cdat->dtup_4138__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4138__FOREACH_IN_MULTIPLE.nbval = 2;
- /*inistring dstr_4139__start_*/
- /*_.VALSTR___V4173*/ curfptr[4172] = (void*)&cdat->dstr_4139__start_;
-  cdat->dstr_4139__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4139__start_.val, " /* start ", sizeof(cdat->dstr_4139__start_.val)-1);
- 
- /*inistring dstr_4140__long_*/
- /*_.VALSTR___V4174*/ curfptr[4173] = (void*)&cdat->dstr_4140__long_;
-  cdat->dstr_4140__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4140__long_.val, ": */\n   long  ", sizeof(cdat->dstr_4140__long_.val)-1);
- 
- /*inistring dstr_4141__ln_melt_multi*/
- /*_.VALSTR___V4175*/ curfptr[4174] = (void*)&cdat->dstr_4141__ln_melt_multi;
-  cdat->dstr_4141__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4141__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof(cdat->dstr_4141__ln_melt_multi.val)-1);
- 
- /*inistring dstr_4142__for_*/
- /*_.VALSTR___V4176*/ curfptr[4175] = (void*)&cdat->dstr_4142__for_;
-  cdat->dstr_4142__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4142__for_.val, ");\n   for (", sizeof(cdat->dstr_4142__for_.val)-1);
- 
- /*inistring dstr_4143__0_*/
- /*_.VALSTR___V4177*/ curfptr[4176] = (void*)&cdat->dstr_4143__0_;
-  cdat->dstr_4143__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4143__0_.val, " = 0;  \n\t(", sizeof(cdat->dstr_4143__0_.val)-1);
- 
- /*inistring dstr_4144__0_*/
- /*_.VALSTR___V4178*/ curfptr[4177] = (void*)&cdat->dstr_4144__0_;
-  cdat->dstr_4144__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4144__0_.val, " >= 0) && (", sizeof(cdat->dstr_4144__0_.val)-1);
- 
- /*inistring dstr_4145__*/
- /*_.VALSTR___V4179*/ curfptr[4178] = (void*)&cdat->dstr_4145__;
-  cdat->dstr_4145__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4145__.val, " <  ", sizeof(cdat->dstr_4145__.val)-1);
- 
- /*inistring dstr_4146__ln_*/
- /*_.VALSTR___V4180*/ curfptr[4179] = (void*)&cdat->dstr_4146__ln_;
-  cdat->dstr_4146__ln_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4146__ln_.val, "_ln);  \n\t", sizeof(cdat->dstr_4146__ln_.val)-1);
- 
- /*inistring dstr_4147__*/
- /*_.VALSTR___V4181*/ curfptr[4180] = (void*)&cdat->dstr_4147__;
-  cdat->dstr_4147__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4147__.val, "++) {\n   ", sizeof(cdat->dstr_4147__.val)-1);
- 
- /*inistring dstr_4148__melt_multiple*/
- /*_.VALSTR___V4182*/ curfptr[4181] = (void*)&cdat->dstr_4148__melt_multiple;
-  cdat->dstr_4148__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4148__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_4148__melt_multiple.val)-1);
- 
- /*inistring dstr_4149__*/
- /*_.VALSTR___V4183*/ curfptr[4182] = (void*)&cdat->dstr_4149__;
-  cdat->dstr_4149__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4149__.val, "),  ", sizeof(cdat->dstr_4149__.val)-1);
- 
- /*inistring dstr_4150__*/
- /*_.VALSTR___V4184*/ curfptr[4183] = (void*)&cdat->dstr_4150__;
-  cdat->dstr_4150__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4150__.val, ");\n   ", sizeof(cdat->dstr_4150__.val)-1);
- 
- /*inimult dtup_4151__FOREACH_IN_MULTIPLE*/
- /*_.VALTUP___V4185*/ curfptr[4184] = (void*)&cdat->dtup_4151__FOREACH_IN_MULTIPLE;
-  cdat->dtup_4151__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4151__FOREACH_IN_MULTIPLE.nbval = 23;
- /*inistring dstr_4152__if_*/
- /*_.VALSTR___V4186*/ curfptr[4185] = (void*)&cdat->dstr_4152__if_;
-  cdat->dstr_4152__if_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4152__if_.val, " if (", sizeof(cdat->dstr_4152__if_.val)-1);
- 
- /*inistring dstr_4153__0_break_*/
- /*_.VALSTR___V4187*/ curfptr[4186] = (void*)&cdat->dstr_4153__0_break_;
-  cdat->dstr_4153__0_break_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4153__0_break_.val, "<0) break;\n   } /* end ", sizeof(cdat->dstr_4153__0_break_.val)-1);
- 
- /*inistring dstr_4154__*/
- /*_.VALSTR___V4188*/ curfptr[4187] = (void*)&cdat->dstr_4154__;
-  cdat->dstr_4154__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4154__.val, " */ ", sizeof(cdat->dstr_4154__.val)-1);
- 
- /*inimult dtup_4155__FOREACH_IN_MULTIPLE*/
- /*_.VALTUP___V4189*/ curfptr[4188] = (void*)&cdat->dtup_4155__FOREACH_IN_MULTIPLE;
-  cdat->dtup_4155__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4155__FOREACH_IN_MULTIPLE.nbval = 5;
- MELT_LOCATION("warmelt-first.melt:3365:/ iniobj");
- /*iniobj dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD*/
- if (!/*_.VALDATA___V4190*/ curfptr[4189]) /*_.VALDATA___V4190*/ curfptr[4189] = (void*)&cdat->dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD;
-  melt_assertmsg("iniobj checkdiscr dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
-  cdat->dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 389913397;
-  cdat->dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 7;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4156__FOREACH_IN_MULTIPLE_BACKWARD));
- 
- /*inistring dstr_4157__FOREACH_IN_MULTI*/
- /*_.VALSTR___V4191*/ curfptr[4190] = (void*)&cdat->dstr_4157__FOREACH_IN_MULTI;
-  cdat->dstr_4157__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4157__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof(cdat->dstr_4157__FOREACH_IN_MULTI.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3365:/ iniobj");
- /*iniobj dobj_4158*/
- if (!/*_.VALDATA___V4192*/ curfptr[4191]) /*_.VALDATA___V4192*/ curfptr[4191] = (void*)&cdat->dobj_4158;
-  melt_assertmsg("iniobj checkdiscr dobj_4158", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4158.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4158.obj_num = 0;
-  cdat->dobj_4158.obj_hash = 480391545;
-  cdat->dobj_4158.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4158));
- 
- /*inimult dtup_4159__FOREACH_IN_MULTIPLE_BACKWARD*/
- /*_.VALTUP___V4193*/ curfptr[4192] = (void*)&cdat->dtup_4159__FOREACH_IN_MULTIPLE_BACKWARD;
-  cdat->dtup_4159__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4159__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 1;
- /*iniobj dsym_4160__EACHTUPBACK*/
- if (!/*_.VALDATA___V4194*/ curfptr[4193]) /*_.VALDATA___V4194*/ curfptr[4193] = (void*)&cdat->dsym_4160__EACHTUPBACK;
-  melt_assertmsg("iniobj checkdiscr dsym_4160__EACHTUPBACK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4160__EACHTUPBACK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4160__EACHTUPBACK.obj_hash = 772130029;
-  cdat->dsym_4160__EACHTUPBACK.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4160__EACHTUPBACK));
- 
- /*inistring dstr_4161__EACHTUPBACK*/
- /*_.VALSTR___V4195*/ curfptr[4194] = (void*)&cdat->dstr_4161__EACHTUPBACK;
-  cdat->dstr_4161__EACHTUPBACK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4161__EACHTUPBACK.val, "EACHTUPBACK", sizeof(cdat->dstr_4161__EACHTUPBACK.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3365:/ iniobj");
- /*iniobj dobj_4162*/
- if (!/*_.VALDATA___V4196*/ curfptr[4195]) /*_.VALDATA___V4196*/ curfptr[4195] = (void*)&cdat->dobj_4162;
-  melt_assertmsg("iniobj checkdiscr dobj_4162", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4162.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4162.obj_num = 0;
-  cdat->dobj_4162.obj_hash = 599716353;
-  cdat->dobj_4162.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4162));
- 
- MELT_LOCATION("warmelt-first.melt:3365:/ iniobj");
- /*iniobj dobj_4163*/
- if (!/*_.VALDATA___V4197*/ curfptr[4196]) /*_.VALDATA___V4197*/ curfptr[4196] = (void*)&cdat->dobj_4163;
-  melt_assertmsg("iniobj checkdiscr dobj_4163", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4163.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4163.obj_num = 1;
-  cdat->dobj_4163.obj_hash = 599126824;
-  cdat->dobj_4163.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4163));
- 
- /*inimult dtup_4164__FOREACH_IN_MULTIPLE_BACKWARD*/
- /*_.VALTUP___V4198*/ curfptr[4197] = (void*)&cdat->dtup_4164__FOREACH_IN_MULTIPLE_BACKWARD;
-  cdat->dtup_4164__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4164__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 2;
- /*inistring dstr_4165__start_*/
- /*_.VALSTR___V4199*/ curfptr[4198] = (void*)&cdat->dstr_4165__start_;
-  cdat->dstr_4165__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4165__start_.val, " /* start ", sizeof(cdat->dstr_4165__start_.val)-1);
- 
- /*inistring dstr_4166__long_*/
- /*_.VALSTR___V4200*/ curfptr[4199] = (void*)&cdat->dstr_4166__long_;
-  cdat->dstr_4166__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4166__long_.val, ": */\n   long  ", sizeof(cdat->dstr_4166__long_.val)-1);
- 
- /*inistring dstr_4167__ln_melt_multi*/
- /*_.VALSTR___V4201*/ curfptr[4200] = (void*)&cdat->dstr_4167__ln_melt_multi;
-  cdat->dstr_4167__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4167__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof(cdat->dstr_4167__ln_melt_multi.val)-1);
- 
- /*inistring dstr_4168__long_*/
- /*_.VALSTR___V4202*/ curfptr[4201] = (void*)&cdat->dstr_4168__long_;
-  cdat->dstr_4168__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4168__long_.val, ");\n   long  ", sizeof(cdat->dstr_4168__long_.val)-1);
- 
- /*inistring dstr_4169__ix_0_for_*/
- /*_.VALSTR___V4203*/ curfptr[4202] = (void*)&cdat->dstr_4169__ix_0_for_;
-  cdat->dstr_4169__ix_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4169__ix_0_for_.val, "_ix = 0;\n   for (", sizeof(cdat->dstr_4169__ix_0_for_.val)-1);
+ /*_.VALDATA___V4003*/ curfptr[4002] = ((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)));
+  melt_assertmsg("iniobj checkdiscr dobj_4067__INITIAL_SYSTEM_DATA", NULL != (void*)/*_.VALDATA___V299*/ curfptr[298]);
+  cdat->dobj_4067__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
+  cdat->dobj_4067__INITIAL_SYSTEM_DATA.obj_hash = 553320271;
+  cdat->dobj_4067__INITIAL_SYSTEM_DATA.obj_len = 27;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4067__INITIAL_SYSTEM_DATA));
+ 
+ /*inistring dstr_4068__INITIAL_SYSTEM_D*/
+ /*_.VALSTR___V4008*/ curfptr[4007] = (void*)&cdat->dstr_4068__INITIAL_SYSTEM_D;
+  cdat->dstr_4068__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4068__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_4068__INITIAL_SYSTEM_D.val)-1);
+ 
+ /*inirout drout_4069__MAPOBJECT_EVERY*/
+ /*_.VALROUT___V4105*/ curfptr[4104] = (void*)&cdat->drout_4069__MAPOBJECT_EVERY;
+  cdat->drout_4069__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4069__MAPOBJECT_EVERY.routdescr, "MAPOBJECT_EVERY @warmelt-first.melt:3131",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4069__MAPOBJECT_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4069__MAPOBJECT_EVERY, meltrout_33_warmelt_first_MAPOBJECT_EVERY);
+ 
+ /*iniclos dclo_4070__MAPOBJECT_EVERY*/
+ /*_.VALCLO___V4106*/ curfptr[4105] = (void*)&cdat->dclo_4070__MAPOBJECT_EVERY;
+  cdat->dclo_4070__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4070__MAPOBJECT_EVERY.nbval = 0;
+ 
+ /*inirout drout_4071__MAPOBJECT_ITERATE_TEST*/
+ /*_.VALROUT___V4107*/ curfptr[4106] = (void*)&cdat->drout_4071__MAPOBJECT_ITERATE_TEST;
+  cdat->drout_4071__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4071__MAPOBJECT_ITERATE_TEST.routdescr, "MAPOBJECT_ITERATE_TEST @warmelt-first.melt:3146",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4071__MAPOBJECT_ITERATE_TEST.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4071__MAPOBJECT_ITERATE_TEST, meltrout_34_warmelt_first_MAPOBJECT_ITERATE_TEST);
+ 
+ /*iniclos dclo_4072__MAPOBJECT_ITERATE_TEST*/
+ /*_.VALCLO___V4108*/ curfptr[4107] = (void*)&cdat->dclo_4072__MAPOBJECT_ITERATE_TEST;
+  cdat->dclo_4072__MAPOBJECT_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4072__MAPOBJECT_ITERATE_TEST.nbval = 0;
+ 
+ /*inirout drout_4073__MAPSTRING_EVERY*/
+ /*_.VALROUT___V4109*/ curfptr[4108] = (void*)&cdat->drout_4073__MAPSTRING_EVERY;
+  cdat->drout_4073__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4073__MAPSTRING_EVERY.routdescr, "MAPSTRING_EVERY @warmelt-first.melt:3166",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4073__MAPSTRING_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4073__MAPSTRING_EVERY, meltrout_35_warmelt_first_MAPSTRING_EVERY);
+ 
+ /*iniclos dclo_4074__MAPSTRING_EVERY*/
+ /*_.VALCLO___V4110*/ curfptr[4109] = (void*)&cdat->dclo_4074__MAPSTRING_EVERY;
+  cdat->dclo_4074__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4074__MAPSTRING_EVERY.nbval = 0;
+ 
+ /*inirout drout_4075__MAPSTRING_ITERATE_TEST*/
+ /*_.VALROUT___V4111*/ curfptr[4110] = (void*)&cdat->drout_4075__MAPSTRING_ITERATE_TEST;
+  cdat->drout_4075__MAPSTRING_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4075__MAPSTRING_ITERATE_TEST.routdescr, "MAPSTRING_ITERATE_TEST @warmelt-first.melt:3179",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4075__MAPSTRING_ITERATE_TEST.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4075__MAPSTRING_ITERATE_TEST, meltrout_36_warmelt_first_MAPSTRING_ITERATE_TEST);
+ 
+ /*iniclos dclo_4076__MAPSTRING_ITERATE_TEST*/
+ /*_.VALCLO___V4112*/ curfptr[4111] = (void*)&cdat->dclo_4076__MAPSTRING_ITERATE_TEST;
+  cdat->dclo_4076__MAPSTRING_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4076__MAPSTRING_ITERATE_TEST.nbval = 0;
+ 
+ MELT_LOCATION("warmelt-first.melt:3200:/ iniobj");
+ /*iniobj dobj_4077__FOREACH_IN_LIST*/
+ if (!/*_.VALDATA___V4113*/ curfptr[4112]) /*_.VALDATA___V4113*/ curfptr[4112] = (void*)&cdat->dobj_4077__FOREACH_IN_LIST;
+  melt_assertmsg("iniobj checkdiscr dobj_4077__FOREACH_IN_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_4077__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_4077__FOREACH_IN_LIST.obj_hash = 580275515;
+  cdat->dobj_4077__FOREACH_IN_LIST.obj_len = 7;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4077__FOREACH_IN_LIST));
+ 
+ /*inistring dstr_4078__FOREACH_IN_LIST*/
+ /*_.VALSTR___V4114*/ curfptr[4113] = (void*)&cdat->dstr_4078__FOREACH_IN_LIST;
+  cdat->dstr_4078__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4078__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof(cdat->dstr_4078__FOREACH_IN_LIST.val)-1);
+ 
+ /*iniobj dsym_4079__LIS*/
+ if (!/*_.VALDATA___V4116*/ curfptr[4115]) /*_.VALDATA___V4116*/ curfptr[4115] = (void*)&cdat->dsym_4079__LIS;
+  melt_assertmsg("iniobj checkdiscr dsym_4079__LIS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4079__LIS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4079__LIS.obj_hash = 735199356;
+  cdat->dsym_4079__LIS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4079__LIS));
+ 
+ /*inistring dstr_4080__LIS*/
+ /*_.VALSTR___V4117*/ curfptr[4116] = (void*)&cdat->dstr_4080__LIS;
+  cdat->dstr_4080__LIS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4080__LIS.val, "LIS", sizeof(cdat->dstr_4080__LIS.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3200:/ iniobj");
+ /*iniobj dobj_4081*/
+ if (!/*_.VALDATA___V4115*/ curfptr[4114]) /*_.VALDATA___V4115*/ curfptr[4114] = (void*)&cdat->dobj_4081;
+  melt_assertmsg("iniobj checkdiscr dobj_4081", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4081.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4081.obj_num = 0;
+  cdat->dobj_4081.obj_hash = 389985793;
+  cdat->dobj_4081.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4081));
+ 
+ /*inimult dtup_4082__FOREACH_IN_LIST*/
+ /*_.VALTUP___V4118*/ curfptr[4117] = (void*)&cdat->dtup_4082__FOREACH_IN_LIST;
+  cdat->dtup_4082__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4082__FOREACH_IN_LIST.nbval = 1;
+ /*iniobj dsym_4083__EACHLIST*/
+ if (!/*_.VALDATA___V4119*/ curfptr[4118]) /*_.VALDATA___V4119*/ curfptr[4118] = (void*)&cdat->dsym_4083__EACHLIST;
+  melt_assertmsg("iniobj checkdiscr dsym_4083__EACHLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4083__EACHLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4083__EACHLIST.obj_hash = 225124635;
+  cdat->dsym_4083__EACHLIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4083__EACHLIST));
+ 
+ /*inistring dstr_4084__EACHLIST*/
+ /*_.VALSTR___V4120*/ curfptr[4119] = (void*)&cdat->dstr_4084__EACHLIST;
+  cdat->dstr_4084__EACHLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4084__EACHLIST.val, "EACHLIST", sizeof(cdat->dstr_4084__EACHLIST.val)-1);
+ 
+ /*iniobj dsym_4085__CURPAIR*/
+ if (!/*_.VALDATA___V4122*/ curfptr[4121]) /*_.VALDATA___V4122*/ curfptr[4121] = (void*)&cdat->dsym_4085__CURPAIR;
+  melt_assertmsg("iniobj checkdiscr dsym_4085__CURPAIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4085__CURPAIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4085__CURPAIR.obj_hash = 650578685;
+  cdat->dsym_4085__CURPAIR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4085__CURPAIR));
+ 
+ /*inistring dstr_4086__CURPAIR*/
+ /*_.VALSTR___V4123*/ curfptr[4122] = (void*)&cdat->dstr_4086__CURPAIR;
+  cdat->dstr_4086__CURPAIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4086__CURPAIR.val, "CURPAIR", sizeof(cdat->dstr_4086__CURPAIR.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3200:/ iniobj");
+ /*iniobj dobj_4087*/
+ if (!/*_.VALDATA___V4121*/ curfptr[4120]) /*_.VALDATA___V4121*/ curfptr[4120] = (void*)&cdat->dobj_4087;
+  melt_assertmsg("iniobj checkdiscr dobj_4087", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4087.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4087.obj_num = 0;
+  cdat->dobj_4087.obj_hash = 167288800;
+  cdat->dobj_4087.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4087));
+ 
+ /*iniobj dsym_4088__CURCOMP*/
+ if (!/*_.VALDATA___V4125*/ curfptr[4124]) /*_.VALDATA___V4125*/ curfptr[4124] = (void*)&cdat->dsym_4088__CURCOMP;
+  melt_assertmsg("iniobj checkdiscr dsym_4088__CURCOMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4088__CURCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4088__CURCOMP.obj_hash = 380262672;
+  cdat->dsym_4088__CURCOMP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4088__CURCOMP));
+ 
+ /*inistring dstr_4089__CURCOMP*/
+ /*_.VALSTR___V4126*/ curfptr[4125] = (void*)&cdat->dstr_4089__CURCOMP;
+  cdat->dstr_4089__CURCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4089__CURCOMP.val, "CURCOMP", sizeof(cdat->dstr_4089__CURCOMP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3200:/ iniobj");
+ /*iniobj dobj_4090*/
+ if (!/*_.VALDATA___V4124*/ curfptr[4123]) /*_.VALDATA___V4124*/ curfptr[4123] = (void*)&cdat->dobj_4090;
+  melt_assertmsg("iniobj checkdiscr dobj_4090", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4090.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4090.obj_num = 1;
+  cdat->dobj_4090.obj_hash = 819654488;
+  cdat->dobj_4090.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4090));
+ 
+ /*inimult dtup_4091__FOREACH_IN_LIST*/
+ /*_.VALTUP___V4127*/ curfptr[4126] = (void*)&cdat->dtup_4091__FOREACH_IN_LIST;
+  cdat->dtup_4091__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4091__FOREACH_IN_LIST.nbval = 2;
+ /*inistring dstr_4092__start_*/
+ /*_.VALSTR___V4128*/ curfptr[4127] = (void*)&cdat->dstr_4092__start_;
+  cdat->dstr_4092__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4092__start_.val, "/* start ", sizeof(cdat->dstr_4092__start_.val)-1);
+ 
+ /*inistring dstr_4093__for_*/
+ /*_.VALSTR___V4129*/ curfptr[4128] = (void*)&cdat->dstr_4093__for_;
+  cdat->dstr_4093__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4093__for_.val, " */\n   for (", sizeof(cdat->dstr_4093__for_.val)-1);
+ 
+ /*inistring dstr_4094__melt_list_fir*/
+ /*_.VALSTR___V4130*/ curfptr[4129] = (void*)&cdat->dstr_4094__melt_list_fir;
+  cdat->dstr_4094__melt_list_fir.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4094__melt_list_fir.val, " = melt_list_first(", sizeof(cdat->dstr_4094__melt_list_fir.val)-1);
+ 
+ /*inistring dstr_4095__melt_magic_d*/
+ /*_.VALSTR___V4131*/ curfptr[4130] = (void*)&cdat->dstr_4095__melt_magic_d;
+  cdat->dstr_4095__melt_magic_d.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4095__melt_magic_d.val, ");\n\tmelt_magic_discr(", sizeof(cdat->dstr_4095__melt_magic_d.val)-1);
+ 
+ /*inistring dstr_4096__OBMAG_PAIR_*/
+ /*_.VALSTR___V4132*/ curfptr[4131] = (void*)&cdat->dstr_4096__OBMAG_PAIR_;
+  cdat->dstr_4096__OBMAG_PAIR_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4096__OBMAG_PAIR_.val, ") == OBMAG_PAIR;\n        ", sizeof(cdat->dstr_4096__OBMAG_PAIR_.val)-1);
+ 
+ /*inistring dstr_4097__melt_pair_tai*/
+ /*_.VALSTR___V4133*/ curfptr[4132] = (void*)&cdat->dstr_4097__melt_pair_tai;
+  cdat->dstr_4097__melt_pair_tai.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4097__melt_pair_tai.val, " = melt_pair_tail(", sizeof(cdat->dstr_4097__melt_pair_tai.val)-1);
+ 
+ /*inistring dstr_4098__*/
+ /*_.VALSTR___V4134*/ curfptr[4133] = (void*)&cdat->dstr_4098__;
+  cdat->dstr_4098__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4098__.val, ")) {\n\t", sizeof(cdat->dstr_4098__.val)-1);
+ 
+ /*inistring dstr_4099__melt_pair_hea*/
+ /*_.VALSTR___V4135*/ curfptr[4134] = (void*)&cdat->dstr_4099__melt_pair_hea;
+  cdat->dstr_4099__melt_pair_hea.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4099__melt_pair_hea.val, " = melt_pair_head(", sizeof(cdat->dstr_4099__melt_pair_hea.val)-1);
+ 
+ /*inistring dstr_4100__*/
+ /*_.VALSTR___V4136*/ curfptr[4135] = (void*)&cdat->dstr_4100__;
+  cdat->dstr_4100__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4100__.val, "); ", sizeof(cdat->dstr_4100__.val)-1);
+ 
+ /*inimult dtup_4101__FOREACH_IN_LIST*/
+ /*_.VALTUP___V4137*/ curfptr[4136] = (void*)&cdat->dtup_4101__FOREACH_IN_LIST;
+  cdat->dtup_4101__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4101__FOREACH_IN_LIST.nbval = 17;
+ /*inistring dstr_4102__end_*/
+ /*_.VALSTR___V4138*/ curfptr[4137] = (void*)&cdat->dstr_4102__end_;
+  cdat->dstr_4102__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4102__end_.val, " } /* end ", sizeof(cdat->dstr_4102__end_.val)-1);
+ 
+ /*inistring dstr_4103__*/
+ /*_.VALSTR___V4139*/ curfptr[4138] = (void*)&cdat->dstr_4103__;
+  cdat->dstr_4103__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4103__.val, " */", sizeof(cdat->dstr_4103__.val)-1);
+ 
+ /*inimult dtup_4104__FOREACH_IN_LIST*/
+ /*_.VALTUP___V4140*/ curfptr[4139] = (void*)&cdat->dtup_4104__FOREACH_IN_LIST;
+  cdat->dtup_4104__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4104__FOREACH_IN_LIST.nbval = 3;
+ /*inirout drout_4105__LIST_EVERY*/
+ /*_.VALROUT___V4040*/ curfptr[4039] = (void*)&cdat->drout_4105__LIST_EVERY;
+  cdat->drout_4105__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4105__LIST_EVERY.routdescr, "LIST_EVERY @warmelt-first.melt:3217",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4105__LIST_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4105__LIST_EVERY, meltrout_37_warmelt_first_LIST_EVERY);
+ 
+ /*iniclos dclo_4106__LIST_EVERY*/
+ /*_.VALCLO___V4039*/ curfptr[4038] = (void*)&cdat->dclo_4106__LIST_EVERY;
+  cdat->dclo_4106__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4106__LIST_EVERY.nbval = 0;
+ 
+ /*inirout drout_4107__LIST_ITERATE_TEST*/
+ /*_.VALROUT___V4141*/ curfptr[4140] = (void*)&cdat->drout_4107__LIST_ITERATE_TEST;
+  cdat->drout_4107__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4107__LIST_ITERATE_TEST.routdescr, "LIST_ITERATE_TEST @warmelt-first.melt:3228",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4107__LIST_ITERATE_TEST.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4107__LIST_ITERATE_TEST, meltrout_38_warmelt_first_LIST_ITERATE_TEST);
+ 
+ /*iniclos dclo_4108__LIST_ITERATE_TEST*/
+ /*_.VALCLO___V4142*/ curfptr[4141] = (void*)&cdat->dclo_4108__LIST_ITERATE_TEST;
+  cdat->dclo_4108__LIST_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4108__LIST_ITERATE_TEST.nbval = 0;
+ 
+ /*inirout drout_4109__LIST_APPEND2LIST*/
+ /*_.VALROUT___V4143*/ curfptr[4142] = (void*)&cdat->drout_4109__LIST_APPEND2LIST;
+  cdat->drout_4109__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4109__LIST_APPEND2LIST.routdescr, "LIST_APPEND2LIST @warmelt-first.melt:3244",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4109__LIST_APPEND2LIST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4109__LIST_APPEND2LIST, meltrout_39_warmelt_first_LIST_APPEND2LIST);
+ 
+ /*iniclos dclo_4110__LIST_APPEND2LIST*/
+ /*_.VALCLO___V4144*/ curfptr[4143] = (void*)&cdat->dclo_4110__LIST_APPEND2LIST;
+  cdat->dclo_4110__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4110__LIST_APPEND2LIST.nbval = 0;
+ 
+ /*inirout drout_4111__LIST_MAP*/
+ /*_.VALROUT___V4145*/ curfptr[4144] = (void*)&cdat->drout_4111__LIST_MAP;
+  cdat->drout_4111__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4111__LIST_MAP.routdescr, "LIST_MAP @warmelt-first.melt:3259",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4111__LIST_MAP.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4111__LIST_MAP, meltrout_40_warmelt_first_LIST_MAP);
+ 
+ /*iniclos dclo_4112__LIST_MAP*/
+ /*_.VALCLO___V4146*/ curfptr[4145] = (void*)&cdat->dclo_4112__LIST_MAP;
+  cdat->dclo_4112__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4112__LIST_MAP.nbval = 0;
+ 
+ /*inirout drout_4113__LIST_FIND*/
+ /*_.VALROUT___V4147*/ curfptr[4146] = (void*)&cdat->drout_4113__LIST_FIND;
+  cdat->drout_4113__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4113__LIST_FIND.routdescr, "LIST_FIND @warmelt-first.melt:3273",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4113__LIST_FIND.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4113__LIST_FIND, meltrout_41_warmelt_first_LIST_FIND);
+ 
+ /*iniclos dclo_4114__LIST_FIND*/
+ /*_.VALCLO___V4148*/ curfptr[4147] = (void*)&cdat->dclo_4114__LIST_FIND;
+  cdat->dclo_4114__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4114__LIST_FIND.nbval = 0;
+ 
+ /*inirout drout_4115__LIST_TO_MULTIPLE*/
+ /*_.VALROUT___V4149*/ curfptr[4148] = (void*)&cdat->drout_4115__LIST_TO_MULTIPLE;
+  cdat->drout_4115__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4115__LIST_TO_MULTIPLE.routdescr, "LIST_TO_MULTIPLE @warmelt-first.melt:3294",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4115__LIST_TO_MULTIPLE.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4115__LIST_TO_MULTIPLE, meltrout_42_warmelt_first_LIST_TO_MULTIPLE);
+ 
+ /*iniclos dclo_4116__LIST_TO_MULTIPLE*/
+ /*_.VALCLO___V4151*/ curfptr[4150] = (void*)&cdat->dclo_4116__LIST_TO_MULTIPLE;
+  cdat->dclo_4116__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4116__LIST_TO_MULTIPLE.nbval = 0;
+ 
+ /*inirout drout_4117__LAMBDA_*/
+ /*_.VALROUT___V4150*/ curfptr[4149] = (void*)&cdat->drout_4117__LAMBDA_;
+  cdat->drout_4117__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4117__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3303",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4117__LAMBDA_.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4117__LAMBDA_, meltrout_43_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4118__PAIRLIST_TO_MULTIPLE*/
+ /*_.VALROUT___V4152*/ curfptr[4151] = (void*)&cdat->drout_4118__PAIRLIST_TO_MULTIPLE;
+  cdat->drout_4118__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4118__PAIRLIST_TO_MULTIPLE.routdescr, "PAIRLIST_TO_MULTIPLE @warmelt-first.melt:3314",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4118__PAIRLIST_TO_MULTIPLE.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4118__PAIRLIST_TO_MULTIPLE, meltrout_44_warmelt_first_PAIRLIST_TO_MULTIPLE);
+ 
+ /*iniclos dclo_4119__PAIRLIST_TO_MULTIPLE*/
+ /*_.VALCLO___V4153*/ curfptr[4152] = (void*)&cdat->dclo_4119__PAIRLIST_TO_MULTIPLE;
+  cdat->dclo_4119__PAIRLIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4119__PAIRLIST_TO_MULTIPLE.nbval = 0;
+ 
+ MELT_LOCATION("warmelt-first.melt:3344:/ iniobj");
+ /*iniobj dobj_4120__FOREACH_IN_MULTIPLE*/
+ if (!/*_.VALDATA___V4154*/ curfptr[4153]) /*_.VALDATA___V4154*/ curfptr[4153] = (void*)&cdat->dobj_4120__FOREACH_IN_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dobj_4120__FOREACH_IN_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_4120__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_4120__FOREACH_IN_MULTIPLE.obj_hash = 1070112314;
+  cdat->dobj_4120__FOREACH_IN_MULTIPLE.obj_len = 7;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4120__FOREACH_IN_MULTIPLE));
+ 
+ /*inistring dstr_4121__FOREACH_IN_MULTI*/
+ /*_.VALSTR___V4155*/ curfptr[4154] = (void*)&cdat->dstr_4121__FOREACH_IN_MULTI;
+  cdat->dstr_4121__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4121__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof(cdat->dstr_4121__FOREACH_IN_MULTI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3344:/ iniobj");
+ /*iniobj dobj_4122*/
+ if (!/*_.VALDATA___V4156*/ curfptr[4155]) /*_.VALDATA___V4156*/ curfptr[4155] = (void*)&cdat->dobj_4122;
+  melt_assertmsg("iniobj checkdiscr dobj_4122", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4122.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4122.obj_num = 0;
+  cdat->dobj_4122.obj_hash = 200836731;
+  cdat->dobj_4122.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4122));
+ 
+ /*inimult dtup_4123__FOREACH_IN_MULTIPLE*/
+ /*_.VALTUP___V4157*/ curfptr[4156] = (void*)&cdat->dtup_4123__FOREACH_IN_MULTIPLE;
+  cdat->dtup_4123__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4123__FOREACH_IN_MULTIPLE.nbval = 1;
+ /*iniobj dsym_4124__EACHTUP*/
+ if (!/*_.VALDATA___V4158*/ curfptr[4157]) /*_.VALDATA___V4158*/ curfptr[4157] = (void*)&cdat->dsym_4124__EACHTUP;
+  melt_assertmsg("iniobj checkdiscr dsym_4124__EACHTUP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4124__EACHTUP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4124__EACHTUP.obj_hash = 419981892;
+  cdat->dsym_4124__EACHTUP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4124__EACHTUP));
+ 
+ /*inistring dstr_4125__EACHTUP*/
+ /*_.VALSTR___V4159*/ curfptr[4158] = (void*)&cdat->dstr_4125__EACHTUP;
+  cdat->dstr_4125__EACHTUP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4125__EACHTUP.val, "EACHTUP", sizeof(cdat->dstr_4125__EACHTUP.val)-1);
+ 
+ /*iniobj dsym_4126__COMP*/
+ if (!/*_.VALDATA___V4161*/ curfptr[4160]) /*_.VALDATA___V4161*/ curfptr[4160] = (void*)&cdat->dsym_4126__COMP;
+  melt_assertmsg("iniobj checkdiscr dsym_4126__COMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4126__COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4126__COMP.obj_hash = 981846572;
+  cdat->dsym_4126__COMP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4126__COMP));
+ 
+ /*inistring dstr_4127__COMP*/
+ /*_.VALSTR___V4162*/ curfptr[4161] = (void*)&cdat->dstr_4127__COMP;
+  cdat->dstr_4127__COMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4127__COMP.val, "COMP", sizeof(cdat->dstr_4127__COMP.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3344:/ iniobj");
+ /*iniobj dobj_4128*/
+ if (!/*_.VALDATA___V4160*/ curfptr[4159]) /*_.VALDATA___V4160*/ curfptr[4159] = (void*)&cdat->dobj_4128;
+  melt_assertmsg("iniobj checkdiscr dobj_4128", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4128.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4128.obj_num = 0;
+  cdat->dobj_4128.obj_hash = 916667732;
+  cdat->dobj_4128.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4128));
+ 
+ MELT_LOCATION("warmelt-first.melt:3344:/ iniobj");
+ /*iniobj dobj_4129*/
+ if (!/*_.VALDATA___V4163*/ curfptr[4162]) /*_.VALDATA___V4163*/ curfptr[4162] = (void*)&cdat->dobj_4129;
+  melt_assertmsg("iniobj checkdiscr dobj_4129", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4129.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4129.obj_num = 1;
+  cdat->dobj_4129.obj_hash = 413506463;
+  cdat->dobj_4129.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4129));
+ 
+ /*inimult dtup_4130__FOREACH_IN_MULTIPLE*/
+ /*_.VALTUP___V4164*/ curfptr[4163] = (void*)&cdat->dtup_4130__FOREACH_IN_MULTIPLE;
+  cdat->dtup_4130__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4130__FOREACH_IN_MULTIPLE.nbval = 2;
+ /*inistring dstr_4131__start_*/
+ /*_.VALSTR___V4165*/ curfptr[4164] = (void*)&cdat->dstr_4131__start_;
+  cdat->dstr_4131__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4131__start_.val, " /* start ", sizeof(cdat->dstr_4131__start_.val)-1);
+ 
+ /*inistring dstr_4132__long_*/
+ /*_.VALSTR___V4166*/ curfptr[4165] = (void*)&cdat->dstr_4132__long_;
+  cdat->dstr_4132__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4132__long_.val, ": */\n   long  ", sizeof(cdat->dstr_4132__long_.val)-1);
+ 
+ /*inistring dstr_4133__ln_melt_multi*/
+ /*_.VALSTR___V4167*/ curfptr[4166] = (void*)&cdat->dstr_4133__ln_melt_multi;
+  cdat->dstr_4133__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4133__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof(cdat->dstr_4133__ln_melt_multi.val)-1);
+ 
+ /*inistring dstr_4134__for_*/
+ /*_.VALSTR___V4168*/ curfptr[4167] = (void*)&cdat->dstr_4134__for_;
+  cdat->dstr_4134__for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4134__for_.val, ");\n   for (", sizeof(cdat->dstr_4134__for_.val)-1);
+ 
+ /*inistring dstr_4135__0_*/
+ /*_.VALSTR___V4169*/ curfptr[4168] = (void*)&cdat->dstr_4135__0_;
+  cdat->dstr_4135__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4135__0_.val, " = 0;  \n\t(", sizeof(cdat->dstr_4135__0_.val)-1);
+ 
+ /*inistring dstr_4136__0_*/
+ /*_.VALSTR___V4170*/ curfptr[4169] = (void*)&cdat->dstr_4136__0_;
+  cdat->dstr_4136__0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4136__0_.val, " >= 0) && (", sizeof(cdat->dstr_4136__0_.val)-1);
+ 
+ /*inistring dstr_4137__*/
+ /*_.VALSTR___V4171*/ curfptr[4170] = (void*)&cdat->dstr_4137__;
+  cdat->dstr_4137__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4137__.val, " <  ", sizeof(cdat->dstr_4137__.val)-1);
+ 
+ /*inistring dstr_4138__ln_*/
+ /*_.VALSTR___V4172*/ curfptr[4171] = (void*)&cdat->dstr_4138__ln_;
+  cdat->dstr_4138__ln_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4138__ln_.val, "_ln);  \n\t", sizeof(cdat->dstr_4138__ln_.val)-1);
+ 
+ /*inistring dstr_4139__*/
+ /*_.VALSTR___V4173*/ curfptr[4172] = (void*)&cdat->dstr_4139__;
+  cdat->dstr_4139__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4139__.val, "++) {\n   ", sizeof(cdat->dstr_4139__.val)-1);
+ 
+ /*inistring dstr_4140__melt_multiple*/
+ /*_.VALSTR___V4174*/ curfptr[4173] = (void*)&cdat->dstr_4140__melt_multiple;
+  cdat->dstr_4140__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4140__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_4140__melt_multiple.val)-1);
+ 
+ /*inistring dstr_4141__*/
+ /*_.VALSTR___V4175*/ curfptr[4174] = (void*)&cdat->dstr_4141__;
+  cdat->dstr_4141__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4141__.val, "),  ", sizeof(cdat->dstr_4141__.val)-1);
+ 
+ /*inistring dstr_4142__*/
+ /*_.VALSTR___V4176*/ curfptr[4175] = (void*)&cdat->dstr_4142__;
+  cdat->dstr_4142__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4142__.val, ");\n   ", sizeof(cdat->dstr_4142__.val)-1);
+ 
+ /*inimult dtup_4143__FOREACH_IN_MULTIPLE*/
+ /*_.VALTUP___V4177*/ curfptr[4176] = (void*)&cdat->dtup_4143__FOREACH_IN_MULTIPLE;
+  cdat->dtup_4143__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4143__FOREACH_IN_MULTIPLE.nbval = 23;
+ /*inistring dstr_4144__if_*/
+ /*_.VALSTR___V4178*/ curfptr[4177] = (void*)&cdat->dstr_4144__if_;
+  cdat->dstr_4144__if_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4144__if_.val, " if (", sizeof(cdat->dstr_4144__if_.val)-1);
+ 
+ /*inistring dstr_4145__0_break_*/
+ /*_.VALSTR___V4179*/ curfptr[4178] = (void*)&cdat->dstr_4145__0_break_;
+  cdat->dstr_4145__0_break_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4145__0_break_.val, "<0) break;\n   } /* end ", sizeof(cdat->dstr_4145__0_break_.val)-1);
+ 
+ /*inistring dstr_4146__*/
+ /*_.VALSTR___V4180*/ curfptr[4179] = (void*)&cdat->dstr_4146__;
+  cdat->dstr_4146__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4146__.val, " */ ", sizeof(cdat->dstr_4146__.val)-1);
+ 
+ /*inimult dtup_4147__FOREACH_IN_MULTIPLE*/
+ /*_.VALTUP___V4181*/ curfptr[4180] = (void*)&cdat->dtup_4147__FOREACH_IN_MULTIPLE;
+  cdat->dtup_4147__FOREACH_IN_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4147__FOREACH_IN_MULTIPLE.nbval = 5;
+ MELT_LOCATION("warmelt-first.melt:3360:/ iniobj");
+ /*iniobj dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD*/
+ if (!/*_.VALDATA___V4182*/ curfptr[4181]) /*_.VALDATA___V4182*/ curfptr[4181] = (void*)&cdat->dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD;
+  melt_assertmsg("iniobj checkdiscr dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CITERATOR))));
+  cdat->dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 255234953;
+  cdat->dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 7;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4148__FOREACH_IN_MULTIPLE_BACKWARD));
+ 
+ /*inistring dstr_4149__FOREACH_IN_MULTI*/
+ /*_.VALSTR___V4183*/ curfptr[4182] = (void*)&cdat->dstr_4149__FOREACH_IN_MULTI;
+  cdat->dstr_4149__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4149__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof(cdat->dstr_4149__FOREACH_IN_MULTI.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3360:/ iniobj");
+ /*iniobj dobj_4150*/
+ if (!/*_.VALDATA___V4184*/ curfptr[4183]) /*_.VALDATA___V4184*/ curfptr[4183] = (void*)&cdat->dobj_4150;
+  melt_assertmsg("iniobj checkdiscr dobj_4150", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4150.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4150.obj_num = 0;
+  cdat->dobj_4150.obj_hash = 402976507;
+  cdat->dobj_4150.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4150));
+ 
+ /*inimult dtup_4151__FOREACH_IN_MULTIPLE_BACKWARD*/
+ /*_.VALTUP___V4185*/ curfptr[4184] = (void*)&cdat->dtup_4151__FOREACH_IN_MULTIPLE_BACKWARD;
+  cdat->dtup_4151__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4151__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 1;
+ /*iniobj dsym_4152__EACHTUPBACK*/
+ if (!/*_.VALDATA___V4186*/ curfptr[4185]) /*_.VALDATA___V4186*/ curfptr[4185] = (void*)&cdat->dsym_4152__EACHTUPBACK;
+  melt_assertmsg("iniobj checkdiscr dsym_4152__EACHTUPBACK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4152__EACHTUPBACK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4152__EACHTUPBACK.obj_hash = 772130029;
+  cdat->dsym_4152__EACHTUPBACK.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4152__EACHTUPBACK));
+ 
+ /*inistring dstr_4153__EACHTUPBACK*/
+ /*_.VALSTR___V4187*/ curfptr[4186] = (void*)&cdat->dstr_4153__EACHTUPBACK;
+  cdat->dstr_4153__EACHTUPBACK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4153__EACHTUPBACK.val, "EACHTUPBACK", sizeof(cdat->dstr_4153__EACHTUPBACK.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3360:/ iniobj");
+ /*iniobj dobj_4154*/
+ if (!/*_.VALDATA___V4188*/ curfptr[4187]) /*_.VALDATA___V4188*/ curfptr[4187] = (void*)&cdat->dobj_4154;
+  melt_assertmsg("iniobj checkdiscr dobj_4154", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4154.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4154.obj_num = 0;
+  cdat->dobj_4154.obj_hash = 793701524;
+  cdat->dobj_4154.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4154));
+ 
+ MELT_LOCATION("warmelt-first.melt:3360:/ iniobj");
+ /*iniobj dobj_4155*/
+ if (!/*_.VALDATA___V4189*/ curfptr[4188]) /*_.VALDATA___V4189*/ curfptr[4188] = (void*)&cdat->dobj_4155;
+  melt_assertmsg("iniobj checkdiscr dobj_4155", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4155.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4155.obj_num = 1;
+  cdat->dobj_4155.obj_hash = 485879041;
+  cdat->dobj_4155.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4155));
+ 
+ /*inimult dtup_4156__FOREACH_IN_MULTIPLE_BACKWARD*/
+ /*_.VALTUP___V4190*/ curfptr[4189] = (void*)&cdat->dtup_4156__FOREACH_IN_MULTIPLE_BACKWARD;
+  cdat->dtup_4156__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4156__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 2;
+ /*inistring dstr_4157__start_*/
+ /*_.VALSTR___V4191*/ curfptr[4190] = (void*)&cdat->dstr_4157__start_;
+  cdat->dstr_4157__start_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4157__start_.val, " /* start ", sizeof(cdat->dstr_4157__start_.val)-1);
+ 
+ /*inistring dstr_4158__long_*/
+ /*_.VALSTR___V4192*/ curfptr[4191] = (void*)&cdat->dstr_4158__long_;
+  cdat->dstr_4158__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4158__long_.val, ": */\n   long  ", sizeof(cdat->dstr_4158__long_.val)-1);
+ 
+ /*inistring dstr_4159__ln_melt_multi*/
+ /*_.VALSTR___V4193*/ curfptr[4192] = (void*)&cdat->dstr_4159__ln_melt_multi;
+  cdat->dstr_4159__ln_melt_multi.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4159__ln_melt_multi.val, "_ln = melt_multiple_length((melt_ptr_t)", sizeof(cdat->dstr_4159__ln_melt_multi.val)-1);
+ 
+ /*inistring dstr_4160__long_*/
+ /*_.VALSTR___V4194*/ curfptr[4193] = (void*)&cdat->dstr_4160__long_;
+  cdat->dstr_4160__long_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4160__long_.val, ");\n   long  ", sizeof(cdat->dstr_4160__long_.val)-1);
+ 
+ /*inistring dstr_4161__ix_0_for_*/
+ /*_.VALSTR___V4195*/ curfptr[4194] = (void*)&cdat->dstr_4161__ix_0_for_;
+  cdat->dstr_4161__ix_0_for_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4161__ix_0_for_.val, "_ix = 0;\n   for (", sizeof(cdat->dstr_4161__ix_0_for_.val)-1);
+ 
+ /*inistring dstr_4162__ix_*/
+ /*_.VALSTR___V4196*/ curfptr[4195] = (void*)&cdat->dstr_4162__ix_;
+  cdat->dstr_4162__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4162__ix_.val, "_ix = ", sizeof(cdat->dstr_4162__ix_.val)-1);
+ 
+ /*inistring dstr_4163__ln_1_*/
+ /*_.VALSTR___V4197*/ curfptr[4196] = (void*)&cdat->dstr_4163__ln_1_;
+  cdat->dstr_4163__ln_1_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4163__ln_1_.val, "_ln - 1;  \n\t", sizeof(cdat->dstr_4163__ln_1_.val)-1);
+ 
+ /*inistring dstr_4164__ix_0_*/
+ /*_.VALSTR___V4198*/ curfptr[4197] = (void*)&cdat->dstr_4164__ix_0_;
+  cdat->dstr_4164__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4164__ix_0_.val, "_ix >= 0;  \n\t", sizeof(cdat->dstr_4164__ix_0_.val)-1);
+ 
+ /*inistring dstr_4165__ix_*/
+ /*_.VALSTR___V4199*/ curfptr[4198] = (void*)&cdat->dstr_4165__ix_;
+  cdat->dstr_4165__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4165__ix_.val, "_ix--) {\n   ", sizeof(cdat->dstr_4165__ix_.val)-1);
+ 
+ /*inistring dstr_4166__melt_multiple*/
+ /*_.VALSTR___V4200*/ curfptr[4199] = (void*)&cdat->dstr_4166__melt_multiple;
+  cdat->dstr_4166__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4166__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_4166__melt_multiple.val)-1);
+ 
+ /*inistring dstr_4167__*/
+ /*_.VALSTR___V4201*/ curfptr[4200] = (void*)&cdat->dstr_4167__;
+  cdat->dstr_4167__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4167__.val, "),  ", sizeof(cdat->dstr_4167__.val)-1);
+ 
+ /*inistring dstr_4168__ix_*/
+ /*_.VALSTR___V4202*/ curfptr[4201] = (void*)&cdat->dstr_4168__ix_;
+  cdat->dstr_4168__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4168__ix_.val, "_ix);\n   ", sizeof(cdat->dstr_4168__ix_.val)-1);
+ 
+ /*inistring dstr_4169__*/
+ /*_.VALSTR___V4203*/ curfptr[4202] = (void*)&cdat->dstr_4169__;
+  cdat->dstr_4169__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4169__.val, "  =  ", sizeof(cdat->dstr_4169__.val)-1);
  
  /*inistring dstr_4170__ix_*/
  /*_.VALSTR___V4204*/ curfptr[4203] = (void*)&cdat->dstr_4170__ix_;
   cdat->dstr_4170__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4170__ix_.val, "_ix = ", sizeof(cdat->dstr_4170__ix_.val)-1);
- 
- /*inistring dstr_4171__ln_1_*/
- /*_.VALSTR___V4205*/ curfptr[4204] = (void*)&cdat->dstr_4171__ln_1_;
-  cdat->dstr_4171__ln_1_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4171__ln_1_.val, "_ln - 1;  \n\t", sizeof(cdat->dstr_4171__ln_1_.val)-1);
- 
- /*inistring dstr_4172__ix_0_*/
- /*_.VALSTR___V4206*/ curfptr[4205] = (void*)&cdat->dstr_4172__ix_0_;
-  cdat->dstr_4172__ix_0_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4172__ix_0_.val, "_ix >= 0;  \n\t", sizeof(cdat->dstr_4172__ix_0_.val)-1);
- 
- /*inistring dstr_4173__ix_*/
- /*_.VALSTR___V4207*/ curfptr[4206] = (void*)&cdat->dstr_4173__ix_;
-  cdat->dstr_4173__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4173__ix_.val, "_ix--) {\n   ", sizeof(cdat->dstr_4173__ix_.val)-1);
- 
- /*inistring dstr_4174__melt_multiple*/
- /*_.VALSTR___V4208*/ curfptr[4207] = (void*)&cdat->dstr_4174__melt_multiple;
-  cdat->dstr_4174__melt_multiple.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4174__melt_multiple.val, " = melt_multiple_nth((melt_ptr_t)(", sizeof(cdat->dstr_4174__melt_multiple.val)-1);
- 
- /*inistring dstr_4175__*/
- /*_.VALSTR___V4209*/ curfptr[4208] = (void*)&cdat->dstr_4175__;
-  cdat->dstr_4175__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4175__.val, "),  ", sizeof(cdat->dstr_4175__.val)-1);
- 
- /*inistring dstr_4176__ix_*/
- /*_.VALSTR___V4210*/ curfptr[4209] = (void*)&cdat->dstr_4176__ix_;
-  cdat->dstr_4176__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4176__ix_.val, "_ix);\n   ", sizeof(cdat->dstr_4176__ix_.val)-1);
- 
- /*inistring dstr_4177__*/
- /*_.VALSTR___V4211*/ curfptr[4210] = (void*)&cdat->dstr_4177__;
-  cdat->dstr_4177__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4177__.val, "  =  ", sizeof(cdat->dstr_4177__.val)-1);
- 
- /*inistring dstr_4178__ix_*/
- /*_.VALSTR___V4212*/ curfptr[4211] = (void*)&cdat->dstr_4178__ix_;
-  cdat->dstr_4178__ix_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4178__ix_.val, "_ix;", sizeof(cdat->dstr_4178__ix_.val)-1);
- 
- /*inimult dtup_4179__FOREACH_IN_MULTIPLE_BACKWARD*/
- /*_.VALTUP___V4213*/ curfptr[4212] = (void*)&cdat->dtup_4179__FOREACH_IN_MULTIPLE_BACKWARD;
-  cdat->dtup_4179__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4179__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 27;
- /*inistring dstr_4180__end_*/
- /*_.VALSTR___V4214*/ curfptr[4213] = (void*)&cdat->dstr_4180__end_;
-  cdat->dstr_4180__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4180__end_.val, " } /* end ", sizeof(cdat->dstr_4180__end_.val)-1);
- 
- /*inistring dstr_4181__*/
- /*_.VALSTR___V4215*/ curfptr[4214] = (void*)&cdat->dstr_4181__;
-  cdat->dstr_4181__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_4181__.val, " */ ", sizeof(cdat->dstr_4181__.val)-1);
- 
- /*inimult dtup_4182__FOREACH_IN_MULTIPLE_BACKWARD*/
- /*_.VALTUP___V4216*/ curfptr[4215] = (void*)&cdat->dtup_4182__FOREACH_IN_MULTIPLE_BACKWARD;
-  cdat->dtup_4182__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4182__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 3;
- /*inirout drout_4183__MULTIPLE_EVERY*/
- /*_.VALROUT___V4217*/ curfptr[4216] = (void*)&cdat->drout_4183__MULTIPLE_EVERY;
-  cdat->drout_4183__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4183__MULTIPLE_EVERY.routdescr, "MULTIPLE_EVERY @warmelt-first.melt:3384",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4183__MULTIPLE_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4183__MULTIPLE_EVERY, meltrout_45_warmelt_first_MULTIPLE_EVERY);
- 
- /*iniclos dclo_4184__MULTIPLE_EVERY*/
- /*_.VALCLO___V4218*/ curfptr[4217] = (void*)&cdat->dclo_4184__MULTIPLE_EVERY;
-  cdat->dclo_4184__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4184__MULTIPLE_EVERY.nbval = 0;
- 
- /*inirout drout_4185__MULTIPLE_BACKWARD_EVERY*/
- /*_.VALROUT___V4219*/ curfptr[4218] = (void*)&cdat->drout_4185__MULTIPLE_BACKWARD_EVERY;
-  cdat->drout_4185__MULTIPLE_BACKWARD_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4185__MULTIPLE_BACKWARD_EVERY.routdescr, "MULTIPLE_BACKWARD_EVERY @warmelt-first.melt:3395",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4185__MULTIPLE_BACKWARD_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4185__MULTIPLE_BACKWARD_EVERY, meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY);
- 
- /*iniclos dclo_4186__MULTIPLE_BACKWARD_EVERY*/
- /*_.VALCLO___V4220*/ curfptr[4219] = (void*)&cdat->dclo_4186__MULTIPLE_BACKWARD_EVERY;
-  cdat->dclo_4186__MULTIPLE_BACKWARD_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4186__MULTIPLE_BACKWARD_EVERY.nbval = 0;
- 
- /*inirout drout_4187__MULTIPLE_EVERY_BOTH*/
- /*_.VALROUT___V4221*/ curfptr[4220] = (void*)&cdat->drout_4187__MULTIPLE_EVERY_BOTH;
-  cdat->drout_4187__MULTIPLE_EVERY_BOTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4187__MULTIPLE_EVERY_BOTH.routdescr, "MULTIPLE_EVERY_BOTH @warmelt-first.melt:3407",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4187__MULTIPLE_EVERY_BOTH.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4187__MULTIPLE_EVERY_BOTH, meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH);
- 
- /*iniclos dclo_4188__MULTIPLE_EVERY_BOTH*/
- /*_.VALCLO___V4222*/ curfptr[4221] = (void*)&cdat->dclo_4188__MULTIPLE_EVERY_BOTH;
-  cdat->dclo_4188__MULTIPLE_EVERY_BOTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4188__MULTIPLE_EVERY_BOTH.nbval = 0;
- 
- /*inirout drout_4189__MULTIPLE_ITERATE_TEST*/
- /*_.VALROUT___V4223*/ curfptr[4222] = (void*)&cdat->drout_4189__MULTIPLE_ITERATE_TEST;
-  cdat->drout_4189__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4189__MULTIPLE_ITERATE_TEST.routdescr, "MULTIPLE_ITERATE_TEST @warmelt-first.melt:3424",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4189__MULTIPLE_ITERATE_TEST.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4189__MULTIPLE_ITERATE_TEST, meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST);
- 
- /*iniclos dclo_4190__MULTIPLE_ITERATE_TEST*/
- /*_.VALCLO___V4224*/ curfptr[4223] = (void*)&cdat->dclo_4190__MULTIPLE_ITERATE_TEST;
-  cdat->dclo_4190__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4190__MULTIPLE_ITERATE_TEST.nbval = 0;
- 
- /*inirout drout_4191__MULTIPLE_MAP*/
- /*_.VALROUT___V4225*/ curfptr[4224] = (void*)&cdat->drout_4191__MULTIPLE_MAP;
-  cdat->drout_4191__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4191__MULTIPLE_MAP.routdescr, "MULTIPLE_MAP @warmelt-first.melt:3439",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4191__MULTIPLE_MAP.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4191__MULTIPLE_MAP, meltrout_49_warmelt_first_MULTIPLE_MAP);
- 
- /*iniclos dclo_4192__MULTIPLE_MAP*/
- /*_.VALCLO___V4226*/ curfptr[4225] = (void*)&cdat->dclo_4192__MULTIPLE_MAP;
-  cdat->dclo_4192__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4192__MULTIPLE_MAP.nbval = 0;
- 
- /*inirout drout_4193__MULTIPLE_TO_LIST*/
- /*_.VALROUT___V4227*/ curfptr[4226] = (void*)&cdat->drout_4193__MULTIPLE_TO_LIST;
-  cdat->drout_4193__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4193__MULTIPLE_TO_LIST.routdescr, "MULTIPLE_TO_LIST @warmelt-first.melt:3456",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4193__MULTIPLE_TO_LIST.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4193__MULTIPLE_TO_LIST, meltrout_50_warmelt_first_MULTIPLE_TO_LIST);
- 
- /*iniclos dclo_4194__MULTIPLE_TO_LIST*/
- /*_.VALCLO___V4228*/ curfptr[4227] = (void*)&cdat->dclo_4194__MULTIPLE_TO_LIST;
-  cdat->dclo_4194__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4194__MULTIPLE_TO_LIST.nbval = 0;
- 
- /*inirout drout_4195__CLOSURE_EVERY*/
- /*_.VALROUT___V4229*/ curfptr[4228] = (void*)&cdat->drout_4195__CLOSURE_EVERY;
-  cdat->drout_4195__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4195__CLOSURE_EVERY.routdescr, "CLOSURE_EVERY @warmelt-first.melt:3474",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4195__CLOSURE_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4195__CLOSURE_EVERY, meltrout_51_warmelt_first_CLOSURE_EVERY);
- 
- /*iniclos dclo_4196__CLOSURE_EVERY*/
- /*_.VALCLO___V4230*/ curfptr[4229] = (void*)&cdat->dclo_4196__CLOSURE_EVERY;
-  cdat->dclo_4196__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4196__CLOSURE_EVERY.nbval = 0;
- 
- /*inirout drout_4197__ROUTINE_EVERY*/
- /*_.VALROUT___V4231*/ curfptr[4230] = (void*)&cdat->drout_4197__ROUTINE_EVERY;
-  cdat->drout_4197__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4197__ROUTINE_EVERY.routdescr, "ROUTINE_EVERY @warmelt-first.melt:3487",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4197__ROUTINE_EVERY.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4197__ROUTINE_EVERY, meltrout_52_warmelt_first_ROUTINE_EVERY);
- 
- /*iniclos dclo_4198__ROUTINE_EVERY*/
- /*_.VALCLO___V4232*/ curfptr[4231] = (void*)&cdat->dclo_4198__ROUTINE_EVERY;
-  cdat->dclo_4198__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4198__ROUTINE_EVERY.nbval = 0;
- 
- /*inirout drout_4199__LIST1*/
- /*_.VALROUT___V4233*/ curfptr[4232] = (void*)&cdat->drout_4199__LIST1;
-  cdat->drout_4199__LIST1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4199__LIST1.routdescr, "LIST1 @warmelt-first.melt:3499",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4199__LIST1.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4199__LIST1, meltrout_53_warmelt_first_LIST1);
- 
- /*iniclos dclo_4200__LIST1*/
- /*_.VALCLO___V4234*/ curfptr[4233] = (void*)&cdat->dclo_4200__LIST1;
-  cdat->dclo_4200__LIST1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4200__LIST1.nbval = 0;
- 
- /*inirout drout_4201__LIST2*/
- /*_.VALROUT___V4235*/ curfptr[4234] = (void*)&cdat->drout_4201__LIST2;
-  cdat->drout_4201__LIST2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4201__LIST2.routdescr, "LIST2 @warmelt-first.melt:3507",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4201__LIST2.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4201__LIST2, meltrout_54_warmelt_first_LIST2);
- 
- /*iniclos dclo_4202__LIST2*/
- /*_.VALCLO___V4236*/ curfptr[4235] = (void*)&cdat->dclo_4202__LIST2;
-  cdat->dclo_4202__LIST2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4202__LIST2.nbval = 0;
- 
- /*inirout drout_4203__LIST3*/
- /*_.VALROUT___V4237*/ curfptr[4236] = (void*)&cdat->drout_4203__LIST3;
-  cdat->drout_4203__LIST3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4203__LIST3.routdescr, "LIST3 @warmelt-first.melt:3516",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4203__LIST3.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4203__LIST3, meltrout_55_warmelt_first_LIST3);
- 
- /*iniclos dclo_4204__LIST3*/
- /*_.VALCLO___V4238*/ curfptr[4237] = (void*)&cdat->dclo_4204__LIST3;
-  cdat->dclo_4204__LIST3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4204__LIST3.nbval = 0;
- 
- /*inirout drout_4205__LIST4*/
- /*_.VALROUT___V4239*/ curfptr[4238] = (void*)&cdat->drout_4205__LIST4;
-  cdat->drout_4205__LIST4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4205__LIST4.routdescr, "LIST4 @warmelt-first.melt:3526",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4205__LIST4.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4205__LIST4, meltrout_56_warmelt_first_LIST4);
- 
- /*iniclos dclo_4206__LIST4*/
- /*_.VALCLO___V4240*/ curfptr[4239] = (void*)&cdat->dclo_4206__LIST4;
-  cdat->dclo_4206__LIST4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4206__LIST4.nbval = 0;
- 
- /*inirout drout_4207__LIST5*/
- /*_.VALROUT___V4241*/ curfptr[4240] = (void*)&cdat->drout_4207__LIST5;
-  cdat->drout_4207__LIST5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4207__LIST5.routdescr, "LIST5 @warmelt-first.melt:3537",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4207__LIST5.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4207__LIST5, meltrout_57_warmelt_first_LIST5);
- 
- /*iniclos dclo_4208__LIST5*/
- /*_.VALCLO___V4242*/ curfptr[4241] = (void*)&cdat->dclo_4208__LIST5;
-  cdat->dclo_4208__LIST5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4208__LIST5.nbval = 0;
- 
- /*inirout drout_4209__LIST6*/
- /*_.VALROUT___V4243*/ curfptr[4242] = (void*)&cdat->drout_4209__LIST6;
-  cdat->drout_4209__LIST6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4209__LIST6.routdescr, "LIST6 @warmelt-first.melt:3549",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4209__LIST6.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4209__LIST6, meltrout_58_warmelt_first_LIST6);
- 
- /*iniclos dclo_4210__LIST6*/
- /*_.VALCLO___V4244*/ curfptr[4243] = (void*)&cdat->dclo_4210__LIST6;
-  cdat->dclo_4210__LIST6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4210__LIST6.nbval = 0;
- 
- /*inirout drout_4211__INSTALL_METHOD*/
- /*_.VALROUT___V4245*/ curfptr[4244] = (void*)&cdat->drout_4211__INSTALL_METHOD;
-  cdat->drout_4211__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4211__INSTALL_METHOD.routdescr, "INSTALL_METHOD @warmelt-first.melt:3563",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4211__INSTALL_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4211__INSTALL_METHOD, meltrout_59_warmelt_first_INSTALL_METHOD);
- 
- /*iniclos dclo_4212__INSTALL_METHOD*/
- /*_.VALCLO___V4246*/ curfptr[4245] = (void*)&cdat->dclo_4212__INSTALL_METHOD;
-  cdat->dclo_4212__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4212__INSTALL_METHOD.nbval = 0;
- 
- /*iniobj dsym_4213__DBG_OUTPUT*/
- if (!/*_.VALDATA___V4247*/ curfptr[4246]) /*_.VALDATA___V4247*/ curfptr[4246] = (void*)&cdat->dsym_4213__DBG_OUTPUT;
-  melt_assertmsg("iniobj checkdiscr dsym_4213__DBG_OUTPUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4213__DBG_OUTPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4213__DBG_OUTPUT.obj_hash = 225394304;
-  cdat->dsym_4213__DBG_OUTPUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4213__DBG_OUTPUT));
- 
- /*inistring dstr_4214__DBG_OUTPUT*/
- /*_.VALSTR___V4248*/ curfptr[4247] = (void*)&cdat->dstr_4214__DBG_OUTPUT;
-  cdat->dstr_4214__DBG_OUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4214__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof(cdat->dstr_4214__DBG_OUTPUT.val)-1);
- 
- /*iniobj dsym_4215__RECV*/
- if (!/*_.VALDATA___V4249*/ curfptr[4248]) /*_.VALDATA___V4249*/ curfptr[4248] = (void*)&cdat->dsym_4215__RECV;
-  melt_assertmsg("iniobj checkdiscr dsym_4215__RECV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4215__RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4215__RECV.obj_hash = 10842790;
-  cdat->dsym_4215__RECV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4215__RECV));
- 
- /*inistring dstr_4216__RECV*/
- /*_.VALSTR___V4250*/ curfptr[4249] = (void*)&cdat->dstr_4216__RECV;
-  cdat->dstr_4216__RECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4216__RECV.val, "RECV", sizeof(cdat->dstr_4216__RECV.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3584:/ iniobj");
- /*iniobj dobj_4217*/
- if (!/*_.VALDATA___V4251*/ curfptr[4250]) /*_.VALDATA___V4251*/ curfptr[4250] = (void*)&cdat->dobj_4217;
-  melt_assertmsg("iniobj checkdiscr dobj_4217", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4217.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4217.obj_num = 0;
-  cdat->dobj_4217.obj_hash = 587519208;
-  cdat->dobj_4217.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4217));
- 
- /*iniobj dsym_4218__DBGINFO*/
- if (!/*_.VALDATA___V4252*/ curfptr[4251]) /*_.VALDATA___V4252*/ curfptr[4251] = (void*)&cdat->dsym_4218__DBGINFO;
-  melt_assertmsg("iniobj checkdiscr dsym_4218__DBGINFO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4218__DBGINFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4218__DBGINFO.obj_hash = 587771081;
-  cdat->dsym_4218__DBGINFO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4218__DBGINFO));
- 
- /*inistring dstr_4219__DBGINFO*/
- /*_.VALSTR___V4253*/ curfptr[4252] = (void*)&cdat->dstr_4219__DBGINFO;
-  cdat->dstr_4219__DBGINFO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4219__DBGINFO.val, "DBGINFO", sizeof(cdat->dstr_4219__DBGINFO.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3584:/ iniobj");
+  strncpy(cdat->dstr_4170__ix_.val, "_ix;", sizeof(cdat->dstr_4170__ix_.val)-1);
+ 
+ /*inimult dtup_4171__FOREACH_IN_MULTIPLE_BACKWARD*/
+ /*_.VALTUP___V4205*/ curfptr[4204] = (void*)&cdat->dtup_4171__FOREACH_IN_MULTIPLE_BACKWARD;
+  cdat->dtup_4171__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4171__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 27;
+ /*inistring dstr_4172__end_*/
+ /*_.VALSTR___V4206*/ curfptr[4205] = (void*)&cdat->dstr_4172__end_;
+  cdat->dstr_4172__end_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4172__end_.val, " } /* end ", sizeof(cdat->dstr_4172__end_.val)-1);
+ 
+ /*inistring dstr_4173__*/
+ /*_.VALSTR___V4207*/ curfptr[4206] = (void*)&cdat->dstr_4173__;
+  cdat->dstr_4173__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_4173__.val, " */ ", sizeof(cdat->dstr_4173__.val)-1);
+ 
+ /*inimult dtup_4174__FOREACH_IN_MULTIPLE_BACKWARD*/
+ /*_.VALTUP___V4208*/ curfptr[4207] = (void*)&cdat->dtup_4174__FOREACH_IN_MULTIPLE_BACKWARD;
+  cdat->dtup_4174__FOREACH_IN_MULTIPLE_BACKWARD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4174__FOREACH_IN_MULTIPLE_BACKWARD.nbval = 3;
+ /*inirout drout_4175__MULTIPLE_EVERY*/
+ /*_.VALROUT___V4209*/ curfptr[4208] = (void*)&cdat->drout_4175__MULTIPLE_EVERY;
+  cdat->drout_4175__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4175__MULTIPLE_EVERY.routdescr, "MULTIPLE_EVERY @warmelt-first.melt:3379",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4175__MULTIPLE_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4175__MULTIPLE_EVERY, meltrout_45_warmelt_first_MULTIPLE_EVERY);
+ 
+ /*iniclos dclo_4176__MULTIPLE_EVERY*/
+ /*_.VALCLO___V4210*/ curfptr[4209] = (void*)&cdat->dclo_4176__MULTIPLE_EVERY;
+  cdat->dclo_4176__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4176__MULTIPLE_EVERY.nbval = 0;
+ 
+ /*inirout drout_4177__MULTIPLE_BACKWARD_EVERY*/
+ /*_.VALROUT___V4211*/ curfptr[4210] = (void*)&cdat->drout_4177__MULTIPLE_BACKWARD_EVERY;
+  cdat->drout_4177__MULTIPLE_BACKWARD_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4177__MULTIPLE_BACKWARD_EVERY.routdescr, "MULTIPLE_BACKWARD_EVERY @warmelt-first.melt:3390",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4177__MULTIPLE_BACKWARD_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4177__MULTIPLE_BACKWARD_EVERY, meltrout_46_warmelt_first_MULTIPLE_BACKWARD_EVERY);
+ 
+ /*iniclos dclo_4178__MULTIPLE_BACKWARD_EVERY*/
+ /*_.VALCLO___V4212*/ curfptr[4211] = (void*)&cdat->dclo_4178__MULTIPLE_BACKWARD_EVERY;
+  cdat->dclo_4178__MULTIPLE_BACKWARD_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4178__MULTIPLE_BACKWARD_EVERY.nbval = 0;
+ 
+ /*inirout drout_4179__MULTIPLE_EVERY_BOTH*/
+ /*_.VALROUT___V4213*/ curfptr[4212] = (void*)&cdat->drout_4179__MULTIPLE_EVERY_BOTH;
+  cdat->drout_4179__MULTIPLE_EVERY_BOTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4179__MULTIPLE_EVERY_BOTH.routdescr, "MULTIPLE_EVERY_BOTH @warmelt-first.melt:3402",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4179__MULTIPLE_EVERY_BOTH.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4179__MULTIPLE_EVERY_BOTH, meltrout_47_warmelt_first_MULTIPLE_EVERY_BOTH);
+ 
+ /*iniclos dclo_4180__MULTIPLE_EVERY_BOTH*/
+ /*_.VALCLO___V4214*/ curfptr[4213] = (void*)&cdat->dclo_4180__MULTIPLE_EVERY_BOTH;
+  cdat->dclo_4180__MULTIPLE_EVERY_BOTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4180__MULTIPLE_EVERY_BOTH.nbval = 0;
+ 
+ /*inirout drout_4181__MULTIPLE_ITERATE_TEST*/
+ /*_.VALROUT___V4215*/ curfptr[4214] = (void*)&cdat->drout_4181__MULTIPLE_ITERATE_TEST;
+  cdat->drout_4181__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4181__MULTIPLE_ITERATE_TEST.routdescr, "MULTIPLE_ITERATE_TEST @warmelt-first.melt:3419",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4181__MULTIPLE_ITERATE_TEST.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4181__MULTIPLE_ITERATE_TEST, meltrout_48_warmelt_first_MULTIPLE_ITERATE_TEST);
+ 
+ /*iniclos dclo_4182__MULTIPLE_ITERATE_TEST*/
+ /*_.VALCLO___V4216*/ curfptr[4215] = (void*)&cdat->dclo_4182__MULTIPLE_ITERATE_TEST;
+  cdat->dclo_4182__MULTIPLE_ITERATE_TEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4182__MULTIPLE_ITERATE_TEST.nbval = 0;
+ 
+ /*inirout drout_4183__MULTIPLE_MAP*/
+ /*_.VALROUT___V4217*/ curfptr[4216] = (void*)&cdat->drout_4183__MULTIPLE_MAP;
+  cdat->drout_4183__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4183__MULTIPLE_MAP.routdescr, "MULTIPLE_MAP @warmelt-first.melt:3434",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4183__MULTIPLE_MAP.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4183__MULTIPLE_MAP, meltrout_49_warmelt_first_MULTIPLE_MAP);
+ 
+ /*iniclos dclo_4184__MULTIPLE_MAP*/
+ /*_.VALCLO___V4218*/ curfptr[4217] = (void*)&cdat->dclo_4184__MULTIPLE_MAP;
+  cdat->dclo_4184__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4184__MULTIPLE_MAP.nbval = 0;
+ 
+ /*inirout drout_4185__MULTIPLE_TO_LIST*/
+ /*_.VALROUT___V4219*/ curfptr[4218] = (void*)&cdat->drout_4185__MULTIPLE_TO_LIST;
+  cdat->drout_4185__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4185__MULTIPLE_TO_LIST.routdescr, "MULTIPLE_TO_LIST @warmelt-first.melt:3451",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4185__MULTIPLE_TO_LIST.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4185__MULTIPLE_TO_LIST, meltrout_50_warmelt_first_MULTIPLE_TO_LIST);
+ 
+ /*iniclos dclo_4186__MULTIPLE_TO_LIST*/
+ /*_.VALCLO___V4220*/ curfptr[4219] = (void*)&cdat->dclo_4186__MULTIPLE_TO_LIST;
+  cdat->dclo_4186__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4186__MULTIPLE_TO_LIST.nbval = 0;
+ 
+ /*inirout drout_4187__CLOSURE_EVERY*/
+ /*_.VALROUT___V4221*/ curfptr[4220] = (void*)&cdat->drout_4187__CLOSURE_EVERY;
+  cdat->drout_4187__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4187__CLOSURE_EVERY.routdescr, "CLOSURE_EVERY @warmelt-first.melt:3469",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4187__CLOSURE_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4187__CLOSURE_EVERY, meltrout_51_warmelt_first_CLOSURE_EVERY);
+ 
+ /*iniclos dclo_4188__CLOSURE_EVERY*/
+ /*_.VALCLO___V4222*/ curfptr[4221] = (void*)&cdat->dclo_4188__CLOSURE_EVERY;
+  cdat->dclo_4188__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4188__CLOSURE_EVERY.nbval = 0;
+ 
+ /*inirout drout_4189__ROUTINE_EVERY*/
+ /*_.VALROUT___V4223*/ curfptr[4222] = (void*)&cdat->drout_4189__ROUTINE_EVERY;
+  cdat->drout_4189__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4189__ROUTINE_EVERY.routdescr, "ROUTINE_EVERY @warmelt-first.melt:3482",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4189__ROUTINE_EVERY.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4189__ROUTINE_EVERY, meltrout_52_warmelt_first_ROUTINE_EVERY);
+ 
+ /*iniclos dclo_4190__ROUTINE_EVERY*/
+ /*_.VALCLO___V4224*/ curfptr[4223] = (void*)&cdat->dclo_4190__ROUTINE_EVERY;
+  cdat->dclo_4190__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4190__ROUTINE_EVERY.nbval = 0;
+ 
+ /*inirout drout_4191__LIST1*/
+ /*_.VALROUT___V4225*/ curfptr[4224] = (void*)&cdat->drout_4191__LIST1;
+  cdat->drout_4191__LIST1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4191__LIST1.routdescr, "LIST1 @warmelt-first.melt:3494",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4191__LIST1.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4191__LIST1, meltrout_53_warmelt_first_LIST1);
+ 
+ /*iniclos dclo_4192__LIST1*/
+ /*_.VALCLO___V4226*/ curfptr[4225] = (void*)&cdat->dclo_4192__LIST1;
+  cdat->dclo_4192__LIST1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4192__LIST1.nbval = 0;
+ 
+ /*inirout drout_4193__LIST2*/
+ /*_.VALROUT___V4227*/ curfptr[4226] = (void*)&cdat->drout_4193__LIST2;
+  cdat->drout_4193__LIST2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4193__LIST2.routdescr, "LIST2 @warmelt-first.melt:3502",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4193__LIST2.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4193__LIST2, meltrout_54_warmelt_first_LIST2);
+ 
+ /*iniclos dclo_4194__LIST2*/
+ /*_.VALCLO___V4228*/ curfptr[4227] = (void*)&cdat->dclo_4194__LIST2;
+  cdat->dclo_4194__LIST2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4194__LIST2.nbval = 0;
+ 
+ /*inirout drout_4195__LIST3*/
+ /*_.VALROUT___V4229*/ curfptr[4228] = (void*)&cdat->drout_4195__LIST3;
+  cdat->drout_4195__LIST3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4195__LIST3.routdescr, "LIST3 @warmelt-first.melt:3511",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4195__LIST3.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4195__LIST3, meltrout_55_warmelt_first_LIST3);
+ 
+ /*iniclos dclo_4196__LIST3*/
+ /*_.VALCLO___V4230*/ curfptr[4229] = (void*)&cdat->dclo_4196__LIST3;
+  cdat->dclo_4196__LIST3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4196__LIST3.nbval = 0;
+ 
+ /*inirout drout_4197__LIST4*/
+ /*_.VALROUT___V4231*/ curfptr[4230] = (void*)&cdat->drout_4197__LIST4;
+  cdat->drout_4197__LIST4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4197__LIST4.routdescr, "LIST4 @warmelt-first.melt:3521",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4197__LIST4.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4197__LIST4, meltrout_56_warmelt_first_LIST4);
+ 
+ /*iniclos dclo_4198__LIST4*/
+ /*_.VALCLO___V4232*/ curfptr[4231] = (void*)&cdat->dclo_4198__LIST4;
+  cdat->dclo_4198__LIST4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4198__LIST4.nbval = 0;
+ 
+ /*inirout drout_4199__LIST5*/
+ /*_.VALROUT___V4233*/ curfptr[4232] = (void*)&cdat->drout_4199__LIST5;
+  cdat->drout_4199__LIST5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4199__LIST5.routdescr, "LIST5 @warmelt-first.melt:3532",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4199__LIST5.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4199__LIST5, meltrout_57_warmelt_first_LIST5);
+ 
+ /*iniclos dclo_4200__LIST5*/
+ /*_.VALCLO___V4234*/ curfptr[4233] = (void*)&cdat->dclo_4200__LIST5;
+  cdat->dclo_4200__LIST5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4200__LIST5.nbval = 0;
+ 
+ /*inirout drout_4201__LIST6*/
+ /*_.VALROUT___V4235*/ curfptr[4234] = (void*)&cdat->drout_4201__LIST6;
+  cdat->drout_4201__LIST6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4201__LIST6.routdescr, "LIST6 @warmelt-first.melt:3544",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4201__LIST6.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4201__LIST6, meltrout_58_warmelt_first_LIST6);
+ 
+ /*iniclos dclo_4202__LIST6*/
+ /*_.VALCLO___V4236*/ curfptr[4235] = (void*)&cdat->dclo_4202__LIST6;
+  cdat->dclo_4202__LIST6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4202__LIST6.nbval = 0;
+ 
+ /*inirout drout_4203__INSTALL_METHOD*/
+ /*_.VALROUT___V4237*/ curfptr[4236] = (void*)&cdat->drout_4203__INSTALL_METHOD;
+  cdat->drout_4203__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4203__INSTALL_METHOD.routdescr, "INSTALL_METHOD @warmelt-first.melt:3558",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4203__INSTALL_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4203__INSTALL_METHOD, meltrout_59_warmelt_first_INSTALL_METHOD);
+ 
+ /*iniclos dclo_4204__INSTALL_METHOD*/
+ /*_.VALCLO___V4238*/ curfptr[4237] = (void*)&cdat->dclo_4204__INSTALL_METHOD;
+  cdat->dclo_4204__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4204__INSTALL_METHOD.nbval = 0;
+ 
+ /*iniobj dsym_4205__DBG_OUTPUT*/
+ if (!/*_.VALDATA___V4239*/ curfptr[4238]) /*_.VALDATA___V4239*/ curfptr[4238] = (void*)&cdat->dsym_4205__DBG_OUTPUT;
+  melt_assertmsg("iniobj checkdiscr dsym_4205__DBG_OUTPUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4205__DBG_OUTPUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4205__DBG_OUTPUT.obj_hash = 225394304;
+  cdat->dsym_4205__DBG_OUTPUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4205__DBG_OUTPUT));
+ 
+ /*inistring dstr_4206__DBG_OUTPUT*/
+ /*_.VALSTR___V4240*/ curfptr[4239] = (void*)&cdat->dstr_4206__DBG_OUTPUT;
+  cdat->dstr_4206__DBG_OUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4206__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof(cdat->dstr_4206__DBG_OUTPUT.val)-1);
+ 
+ /*iniobj dsym_4207__RECV*/
+ if (!/*_.VALDATA___V4241*/ curfptr[4240]) /*_.VALDATA___V4241*/ curfptr[4240] = (void*)&cdat->dsym_4207__RECV;
+  melt_assertmsg("iniobj checkdiscr dsym_4207__RECV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4207__RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4207__RECV.obj_hash = 10842790;
+  cdat->dsym_4207__RECV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4207__RECV));
+ 
+ /*inistring dstr_4208__RECV*/
+ /*_.VALSTR___V4242*/ curfptr[4241] = (void*)&cdat->dstr_4208__RECV;
+  cdat->dstr_4208__RECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4208__RECV.val, "RECV", sizeof(cdat->dstr_4208__RECV.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3579:/ iniobj");
+ /*iniobj dobj_4209*/
+ if (!/*_.VALDATA___V4243*/ curfptr[4242]) /*_.VALDATA___V4243*/ curfptr[4242] = (void*)&cdat->dobj_4209;
+  melt_assertmsg("iniobj checkdiscr dobj_4209", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4209.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4209.obj_num = 0;
+  cdat->dobj_4209.obj_hash = 756371902;
+  cdat->dobj_4209.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4209));
+ 
+ /*iniobj dsym_4210__DBGINFO*/
+ if (!/*_.VALDATA___V4244*/ curfptr[4243]) /*_.VALDATA___V4244*/ curfptr[4243] = (void*)&cdat->dsym_4210__DBGINFO;
+  melt_assertmsg("iniobj checkdiscr dsym_4210__DBGINFO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4210__DBGINFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4210__DBGINFO.obj_hash = 587771081;
+  cdat->dsym_4210__DBGINFO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4210__DBGINFO));
+ 
+ /*inistring dstr_4211__DBGINFO*/
+ /*_.VALSTR___V4245*/ curfptr[4244] = (void*)&cdat->dstr_4211__DBGINFO;
+  cdat->dstr_4211__DBGINFO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4211__DBGINFO.val, "DBGINFO", sizeof(cdat->dstr_4211__DBGINFO.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3579:/ iniobj");
+ /*iniobj dobj_4212*/
+ if (!/*_.VALDATA___V4246*/ curfptr[4245]) /*_.VALDATA___V4246*/ curfptr[4245] = (void*)&cdat->dobj_4212;
+  melt_assertmsg("iniobj checkdiscr dobj_4212", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4212.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4212.obj_num = 1;
+  cdat->dobj_4212.obj_hash = 331619836;
+  cdat->dobj_4212.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4212));
+ 
+ MELT_LOCATION("warmelt-first.melt:3579:/ iniobj");
+ /*iniobj dobj_4213*/
+ if (!/*_.VALDATA___V4247*/ curfptr[4246]) /*_.VALDATA___V4247*/ curfptr[4246] = (void*)&cdat->dobj_4213;
+  melt_assertmsg("iniobj checkdiscr dobj_4213", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4213.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4213.obj_num = 2;
+  cdat->dobj_4213.obj_hash = 394125360;
+  cdat->dobj_4213.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4213));
+ 
+ /*inimult dtup_4214__DBG_OUTPUT*/
+ /*_.VALTUP___V4248*/ curfptr[4247] = (void*)&cdat->dtup_4214__DBG_OUTPUT;
+  cdat->dtup_4214__DBG_OUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4214__DBG_OUTPUT.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:3579:/ iniobj");
+ /*iniobj dobj_4215__DBG_OUTPUT*/
+ if (!/*_.VALDATA___V4054*/ curfptr[4053]) /*_.VALDATA___V4054*/ curfptr[4053] = (void*)&cdat->dobj_4215__DBG_OUTPUT;
+  melt_assertmsg("iniobj checkdiscr dobj_4215__DBG_OUTPUT", NULL != (void*)/*_.VALDATA___V217*/ curfptr[216]);
+  cdat->dobj_4215__DBG_OUTPUT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
+  cdat->dobj_4215__DBG_OUTPUT.obj_hash = 265644513;
+  cdat->dobj_4215__DBG_OUTPUT.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4215__DBG_OUTPUT));
+ 
+ /*inistring dstr_4216__DBG_OUTPUT*/
+ /*_.VALSTR___V4055*/ curfptr[4054] = (void*)&cdat->dstr_4216__DBG_OUTPUT;
+  cdat->dstr_4216__DBG_OUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4216__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof(cdat->dstr_4216__DBG_OUTPUT.val)-1);
+ 
+ /*iniobj dsym_4217__DBG_OUTPUTAGAIN*/
+ if (!/*_.VALDATA___V4249*/ curfptr[4248]) /*_.VALDATA___V4249*/ curfptr[4248] = (void*)&cdat->dsym_4217__DBG_OUTPUTAGAIN;
+  melt_assertmsg("iniobj checkdiscr dsym_4217__DBG_OUTPUTAGAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4217__DBG_OUTPUTAGAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4217__DBG_OUTPUTAGAIN.obj_hash = 28744821;
+  cdat->dsym_4217__DBG_OUTPUTAGAIN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4217__DBG_OUTPUTAGAIN));
+ 
+ /*inistring dstr_4218__DBG_OUTPUTAGAIN*/
+ /*_.VALSTR___V4250*/ curfptr[4249] = (void*)&cdat->dstr_4218__DBG_OUTPUTAGAIN;
+  cdat->dstr_4218__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4218__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof(cdat->dstr_4218__DBG_OUTPUTAGAIN.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:3588:/ iniobj");
+ /*iniobj dobj_4219*/
+ if (!/*_.VALDATA___V4251*/ curfptr[4250]) /*_.VALDATA___V4251*/ curfptr[4250] = (void*)&cdat->dobj_4219;
+  melt_assertmsg("iniobj checkdiscr dobj_4219", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4219.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_4219.obj_num = 0;
+  cdat->dobj_4219.obj_hash = 324167887;
+  cdat->dobj_4219.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4219));
+ 
+ MELT_LOCATION("warmelt-first.melt:3588:/ iniobj");
  /*iniobj dobj_4220*/
- if (!/*_.VALDATA___V4254*/ curfptr[4253]) /*_.VALDATA___V4254*/ curfptr[4253] = (void*)&cdat->dobj_4220;
+ if (!/*_.VALDATA___V4252*/ curfptr[4251]) /*_.VALDATA___V4252*/ curfptr[4251] = (void*)&cdat->dobj_4220;
   melt_assertmsg("iniobj checkdiscr dobj_4220", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_4220.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_4220.obj_num = 1;
-  cdat->dobj_4220.obj_hash = 1010029741;
+  cdat->dobj_4220.obj_hash = 493572911;
   cdat->dobj_4220.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4220));
  
- MELT_LOCATION("warmelt-first.melt:3584:/ iniobj");
+ MELT_LOCATION("warmelt-first.melt:3588:/ iniobj");
  /*iniobj dobj_4221*/
- if (!/*_.VALDATA___V4255*/ curfptr[4254]) /*_.VALDATA___V4255*/ curfptr[4254] = (void*)&cdat->dobj_4221;
+ if (!/*_.VALDATA___V4253*/ curfptr[4252]) /*_.VALDATA___V4253*/ curfptr[4252] = (void*)&cdat->dobj_4221;
   melt_assertmsg("iniobj checkdiscr dobj_4221", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_4221.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_4221.obj_num = 2;
-  cdat->dobj_4221.obj_hash = 352592276;
+  cdat->dobj_4221.obj_hash = 487725010;
   cdat->dobj_4221.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4221));
  
- /*inimult dtup_4222__DBG_OUTPUT*/
- /*_.VALTUP___V4256*/ curfptr[4255] = (void*)&cdat->dtup_4222__DBG_OUTPUT;
-  cdat->dtup_4222__DBG_OUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4222__DBG_OUTPUT.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:3584:/ iniobj");
- /*iniobj dobj_4223__DBG_OUTPUT*/
- if (!/*_.VALDATA___V4062*/ curfptr[4061]) /*_.VALDATA___V4062*/ curfptr[4061] = (void*)&cdat->dobj_4223__DBG_OUTPUT;
-  melt_assertmsg("iniobj checkdiscr dobj_4223__DBG_OUTPUT", NULL != (void*)/*_.VALDATA___V217*/ curfptr[216]);
-  cdat->dobj_4223__DBG_OUTPUT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
-  cdat->dobj_4223__DBG_OUTPUT.obj_hash = 880708085;
-  cdat->dobj_4223__DBG_OUTPUT.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4223__DBG_OUTPUT));
- 
- /*inistring dstr_4224__DBG_OUTPUT*/
- /*_.VALSTR___V4063*/ curfptr[4062] = (void*)&cdat->dstr_4224__DBG_OUTPUT;
-  cdat->dstr_4224__DBG_OUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4224__DBG_OUTPUT.val, "DBG_OUTPUT", sizeof(cdat->dstr_4224__DBG_OUTPUT.val)-1);
- 
- /*iniobj dsym_4225__DBG_OUTPUTAGAIN*/
- if (!/*_.VALDATA___V4257*/ curfptr[4256]) /*_.VALDATA___V4257*/ curfptr[4256] = (void*)&cdat->dsym_4225__DBG_OUTPUTAGAIN;
-  melt_assertmsg("iniobj checkdiscr dsym_4225__DBG_OUTPUTAGAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4225__DBG_OUTPUTAGAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4225__DBG_OUTPUTAGAIN.obj_hash = 28744821;
-  cdat->dsym_4225__DBG_OUTPUTAGAIN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4225__DBG_OUTPUTAGAIN));
- 
- /*inistring dstr_4226__DBG_OUTPUTAGAIN*/
- /*_.VALSTR___V4258*/ curfptr[4257] = (void*)&cdat->dstr_4226__DBG_OUTPUTAGAIN;
-  cdat->dstr_4226__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4226__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof(cdat->dstr_4226__DBG_OUTPUTAGAIN.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:3593:/ iniobj");
- /*iniobj dobj_4227*/
- if (!/*_.VALDATA___V4259*/ curfptr[4258]) /*_.VALDATA___V4259*/ curfptr[4258] = (void*)&cdat->dobj_4227;
-  melt_assertmsg("iniobj checkdiscr dobj_4227", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4227.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4227.obj_num = 0;
-  cdat->dobj_4227.obj_hash = 273888125;
-  cdat->dobj_4227.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4227));
- 
- MELT_LOCATION("warmelt-first.melt:3593:/ iniobj");
- /*iniobj dobj_4228*/
- if (!/*_.VALDATA___V4260*/ curfptr[4259]) /*_.VALDATA___V4260*/ curfptr[4259] = (void*)&cdat->dobj_4228;
-  melt_assertmsg("iniobj checkdiscr dobj_4228", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4228.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4228.obj_num = 1;
-  cdat->dobj_4228.obj_hash = 910845782;
-  cdat->dobj_4228.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4228));
- 
- MELT_LOCATION("warmelt-first.melt:3593:/ iniobj");
- /*iniobj dobj_4229*/
- if (!/*_.VALDATA___V4261*/ curfptr[4260]) /*_.VALDATA___V4261*/ curfptr[4260] = (void*)&cdat->dobj_4229;
-  melt_assertmsg("iniobj checkdiscr dobj_4229", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4229.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_4229.obj_num = 2;
-  cdat->dobj_4229.obj_hash = 991296529;
-  cdat->dobj_4229.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4229));
- 
- /*inimult dtup_4230__DBG_OUTPUTAGAIN*/
- /*_.VALTUP___V4262*/ curfptr[4261] = (void*)&cdat->dtup_4230__DBG_OUTPUTAGAIN;
-  cdat->dtup_4230__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_4230__DBG_OUTPUTAGAIN.nbval = 3;
- MELT_LOCATION("warmelt-first.melt:3593:/ iniobj");
- /*iniobj dobj_4231__DBG_OUTPUTAGAIN*/
- if (!/*_.VALDATA___V4060*/ curfptr[4059]) /*_.VALDATA___V4060*/ curfptr[4059] = (void*)&cdat->dobj_4231__DBG_OUTPUTAGAIN;
-  melt_assertmsg("iniobj checkdiscr dobj_4231__DBG_OUTPUTAGAIN", NULL != (void*)/*_.VALDATA___V217*/ curfptr[216]);
-  cdat->dobj_4231__DBG_OUTPUTAGAIN.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
-  cdat->dobj_4231__DBG_OUTPUTAGAIN.obj_hash = 970044868;
-  cdat->dobj_4231__DBG_OUTPUTAGAIN.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4231__DBG_OUTPUTAGAIN));
- 
- /*inistring dstr_4232__DBG_OUTPUTAGAIN*/
- /*_.VALSTR___V4061*/ curfptr[4060] = (void*)&cdat->dstr_4232__DBG_OUTPUTAGAIN;
-  cdat->dstr_4232__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4232__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof(cdat->dstr_4232__DBG_OUTPUTAGAIN.val)-1);
- 
- /*inirout drout_4233__DBG_OUTOBJECT*/
- /*_.VALROUT___V4059*/ curfptr[4058] = (void*)&cdat->drout_4233__DBG_OUTOBJECT;
-  cdat->drout_4233__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4233__DBG_OUTOBJECT.routdescr, "DBG_OUTOBJECT @warmelt-first.melt:3601",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4233__DBG_OUTOBJECT.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4233__DBG_OUTOBJECT, meltrout_60_warmelt_first_DBG_OUTOBJECT);
- 
- /*iniclos dclo_4234__DBG_OUTOBJECT*/
- /*_.VALCLO___V4058*/ curfptr[4057] = (void*)&cdat->dclo_4234__DBG_OUTOBJECT;
-  cdat->dclo_4234__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4234__DBG_OUTOBJECT.nbval = 0;
- 
- /*inirout drout_4235__DBG_OUT*/
- /*_.VALROUT___V4057*/ curfptr[4056] = (void*)&cdat->drout_4235__DBG_OUT;
-  cdat->drout_4235__DBG_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4235__DBG_OUT.routdescr, "DBG_OUT @warmelt-first.melt:3621",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4235__DBG_OUT.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4235__DBG_OUT, meltrout_61_warmelt_first_DBG_OUT);
- 
- /*iniclos dclo_4236__DBG_OUT*/
- /*_.VALCLO___V4056*/ curfptr[4055] = (void*)&cdat->dclo_4236__DBG_OUT;
-  cdat->dclo_4236__DBG_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4236__DBG_OUT.nbval = 0;
- 
- /*inirout drout_4237__DBGOUT_FIELDS*/
- /*_.VALROUT___V4263*/ curfptr[4262] = (void*)&cdat->drout_4237__DBGOUT_FIELDS;
-  cdat->drout_4237__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4237__DBGOUT_FIELDS.routdescr, "DBGOUT_FIELDS @warmelt-first.melt:3647",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4237__DBGOUT_FIELDS.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4237__DBGOUT_FIELDS, meltrout_62_warmelt_first_DBGOUT_FIELDS);
- 
- /*iniclos dclo_4238__DBGOUT_FIELDS*/
- /*_.VALCLO___V4264*/ curfptr[4263] = (void*)&cdat->dclo_4238__DBGOUT_FIELDS;
-  cdat->dclo_4238__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4238__DBGOUT_FIELDS.nbval = 0;
- 
- /*inirout drout_4239__DBGOUTAGAIN_FIELDS*/
- /*_.VALROUT___V4265*/ curfptr[4264] = (void*)&cdat->drout_4239__DBGOUTAGAIN_FIELDS;
-  cdat->drout_4239__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4239__DBGOUTAGAIN_FIELDS.routdescr, "DBGOUTAGAIN_FIELDS @warmelt-first.melt:3684",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4239__DBGOUTAGAIN_FIELDS.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4239__DBGOUTAGAIN_FIELDS, meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS);
- 
- /*iniclos dclo_4240__DBGOUTAGAIN_FIELDS*/
- /*_.VALCLO___V4266*/ curfptr[4265] = (void*)&cdat->dclo_4240__DBGOUTAGAIN_FIELDS;
-  cdat->dclo_4240__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4240__DBGOUTAGAIN_FIELDS.nbval = 0;
- 
- /*inirout drout_4241__DBGOUT_NULL_METHOD*/
- /*_.VALROUT___V4267*/ curfptr[4266] = (void*)&cdat->drout_4241__DBGOUT_NULL_METHOD;
-  cdat->drout_4241__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4241__DBGOUT_NULL_METHOD.routdescr, "DBGOUT_NULL_METHOD @warmelt-first.melt:3722",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4241__DBGOUT_NULL_METHOD.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4241__DBGOUT_NULL_METHOD, meltrout_64_warmelt_first_DBGOUT_NULL_METHOD);
- 
- /*iniclos dclo_4242__DBGOUT_NULL_METHOD*/
- /*_.VALCLO___V4268*/ curfptr[4267] = (void*)&cdat->dclo_4242__DBGOUT_NULL_METHOD;
-  cdat->dclo_4242__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4242__DBGOUT_NULL_METHOD.nbval = 0;
- 
- /*inirout drout_4243__DBGOUT_STRING_METHOD*/
- /*_.VALROUT___V4269*/ curfptr[4268] = (void*)&cdat->drout_4243__DBGOUT_STRING_METHOD;
-  cdat->drout_4243__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4243__DBGOUT_STRING_METHOD.routdescr, "DBGOUT_STRING_METHOD @warmelt-first.melt:3730",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4243__DBGOUT_STRING_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4243__DBGOUT_STRING_METHOD, meltrout_65_warmelt_first_DBGOUT_STRING_METHOD);
- 
- /*iniclos dclo_4244__DBGOUT_STRING_METHOD*/
- /*_.VALCLO___V4270*/ curfptr[4269] = (void*)&cdat->dclo_4244__DBGOUT_STRING_METHOD;
-  cdat->dclo_4244__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4244__DBGOUT_STRING_METHOD.nbval = 0;
- 
- /*inirout drout_4245__DBGOUT_INTEGER_METHOD*/
- /*_.VALROUT___V4271*/ curfptr[4270] = (void*)&cdat->drout_4245__DBGOUT_INTEGER_METHOD;
-  cdat->drout_4245__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4245__DBGOUT_INTEGER_METHOD.routdescr, "DBGOUT_INTEGER_METHOD @warmelt-first.melt:3754",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4245__DBGOUT_INTEGER_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4245__DBGOUT_INTEGER_METHOD, meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD);
- 
- /*iniclos dclo_4246__DBGOUT_INTEGER_METHOD*/
- /*_.VALCLO___V4272*/ curfptr[4271] = (void*)&cdat->dclo_4246__DBGOUT_INTEGER_METHOD;
-  cdat->dclo_4246__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4246__DBGOUT_INTEGER_METHOD.nbval = 0;
- 
- /*inirout drout_4247__DBGOUT_MIXINT_METHOD*/
- /*_.VALROUT___V4273*/ curfptr[4272] = (void*)&cdat->drout_4247__DBGOUT_MIXINT_METHOD;
-  cdat->drout_4247__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4247__DBGOUT_MIXINT_METHOD.routdescr, "DBGOUT_MIXINT_METHOD @warmelt-first.melt:3774",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4247__DBGOUT_MIXINT_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4247__DBGOUT_MIXINT_METHOD, meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD);
- 
- /*iniclos dclo_4248__DBGOUT_MIXINT_METHOD*/
- /*_.VALCLO___V4274*/ curfptr[4273] = (void*)&cdat->dclo_4248__DBGOUT_MIXINT_METHOD;
-  cdat->dclo_4248__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4248__DBGOUT_MIXINT_METHOD.nbval = 0;
- 
- /*inirout drout_4249__DBGOUT_MIXLOC_METHOD*/
- /*_.VALROUT___V4275*/ curfptr[4274] = (void*)&cdat->drout_4249__DBGOUT_MIXLOC_METHOD;
-  cdat->drout_4249__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4249__DBGOUT_MIXLOC_METHOD.routdescr, "DBGOUT_MIXLOC_METHOD @warmelt-first.melt:3801",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4249__DBGOUT_MIXLOC_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4249__DBGOUT_MIXLOC_METHOD, meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD);
- 
- /*iniclos dclo_4250__DBGOUT_MIXLOC_METHOD*/
- /*_.VALCLO___V4276*/ curfptr[4275] = (void*)&cdat->dclo_4250__DBGOUT_MIXLOC_METHOD;
-  cdat->dclo_4250__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4250__DBGOUT_MIXLOC_METHOD.nbval = 0;
- 
- /*inirout drout_4251__DBGOUT_MIXBIGINT_METHOD*/
- /*_.VALROUT___V4277*/ curfptr[4276] = (void*)&cdat->drout_4251__DBGOUT_MIXBIGINT_METHOD;
-  cdat->drout_4251__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4251__DBGOUT_MIXBIGINT_METHOD.routdescr, "DBGOUT_MIXBIGINT_METHOD @warmelt-first.melt:3830",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4251__DBGOUT_MIXBIGINT_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4251__DBGOUT_MIXBIGINT_METHOD, meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD);
- 
- /*iniclos dclo_4252__DBGOUT_MIXBIGINT_METHOD*/
- /*_.VALCLO___V4278*/ curfptr[4277] = (void*)&cdat->dclo_4252__DBGOUT_MIXBIGINT_METHOD;
-  cdat->dclo_4252__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4252__DBGOUT_MIXBIGINT_METHOD.nbval = 0;
- 
- /*inirout drout_4253__DBGOUT_MULTIPLE_METHOD*/
- /*_.VALROUT___V4279*/ curfptr[4278] = (void*)&cdat->drout_4253__DBGOUT_MULTIPLE_METHOD;
-  cdat->drout_4253__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4253__DBGOUT_MULTIPLE_METHOD.routdescr, "DBGOUT_MULTIPLE_METHOD @warmelt-first.melt:3852",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4253__DBGOUT_MULTIPLE_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4253__DBGOUT_MULTIPLE_METHOD, meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD);
- 
- /*iniclos dclo_4254__DBGOUT_MULTIPLE_METHOD*/
- /*_.VALCLO___V4280*/ curfptr[4279] = (void*)&cdat->dclo_4254__DBGOUT_MULTIPLE_METHOD;
-  cdat->dclo_4254__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4254__DBGOUT_MULTIPLE_METHOD.nbval = 0;
- 
- /*inirout drout_4255__DBGOUT_ROUTINE_METHOD*/
- /*_.VALROUT___V4281*/ curfptr[4280] = (void*)&cdat->drout_4255__DBGOUT_ROUTINE_METHOD;
-  cdat->drout_4255__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4255__DBGOUT_ROUTINE_METHOD.routdescr, "DBGOUT_ROUTINE_METHOD @warmelt-first.melt:3886",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4255__DBGOUT_ROUTINE_METHOD.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4255__DBGOUT_ROUTINE_METHOD, meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD);
- 
- /*iniclos dclo_4256__DBGOUT_ROUTINE_METHOD*/
- /*_.VALCLO___V4283*/ curfptr[4282] = (void*)&cdat->dclo_4256__DBGOUT_ROUTINE_METHOD;
-  cdat->dclo_4256__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4256__DBGOUT_ROUTINE_METHOD.nbval = 0;
- 
- /*inirout drout_4257__LAMBDA_*/
- /*_.VALROUT___V4282*/ curfptr[4281] = (void*)&cdat->drout_4257__LAMBDA_;
-  cdat->drout_4257__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4257__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3901",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4257__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4257__LAMBDA_, meltrout_72_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4258__DBGOUT_CLOSURE_METHOD*/
- /*_.VALROUT___V4284*/ curfptr[4283] = (void*)&cdat->drout_4258__DBGOUT_CLOSURE_METHOD;
-  cdat->drout_4258__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4258__DBGOUT_CLOSURE_METHOD.routdescr, "DBGOUT_CLOSURE_METHOD @warmelt-first.melt:3913",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4258__DBGOUT_CLOSURE_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4258__DBGOUT_CLOSURE_METHOD, meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD);
- 
- /*iniclos dclo_4259__DBGOUT_CLOSURE_METHOD*/
- /*_.VALCLO___V4285*/ curfptr[4284] = (void*)&cdat->dclo_4259__DBGOUT_CLOSURE_METHOD;
-  cdat->dclo_4259__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4259__DBGOUT_CLOSURE_METHOD.nbval = 0;
- 
- /*inirout drout_4260__DBGOUT_LIST_METHOD*/
- /*_.VALROUT___V4286*/ curfptr[4285] = (void*)&cdat->drout_4260__DBGOUT_LIST_METHOD;
-  cdat->drout_4260__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4260__DBGOUT_LIST_METHOD.routdescr, "DBGOUT_LIST_METHOD @warmelt-first.melt:3949",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4260__DBGOUT_LIST_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4260__DBGOUT_LIST_METHOD, meltrout_74_warmelt_first_DBGOUT_LIST_METHOD);
- 
- /*iniclos dclo_4261__DBGOUT_LIST_METHOD*/
- /*_.VALCLO___V4287*/ curfptr[4286] = (void*)&cdat->dclo_4261__DBGOUT_LIST_METHOD;
-  cdat->dclo_4261__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4261__DBGOUT_LIST_METHOD.nbval = 0;
- 
- /*inirout drout_4262__DBGOUT_PAIR_METHOD*/
- /*_.VALROUT___V4288*/ curfptr[4287] = (void*)&cdat->drout_4262__DBGOUT_PAIR_METHOD;
-  cdat->drout_4262__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4262__DBGOUT_PAIR_METHOD.routdescr, "DBGOUT_PAIR_METHOD @warmelt-first.melt:3989",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4262__DBGOUT_PAIR_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4262__DBGOUT_PAIR_METHOD, meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD);
- 
- /*iniclos dclo_4263__DBGOUT_PAIR_METHOD*/
- /*_.VALCLO___V4289*/ curfptr[4288] = (void*)&cdat->dclo_4263__DBGOUT_PAIR_METHOD;
-  cdat->dclo_4263__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4263__DBGOUT_PAIR_METHOD.nbval = 0;
- 
- /*inirout drout_4264__DBGOUT_BOX_METHOD*/
- /*_.VALROUT___V4290*/ curfptr[4289] = (void*)&cdat->drout_4264__DBGOUT_BOX_METHOD;
-  cdat->drout_4264__DBGOUT_BOX_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4264__DBGOUT_BOX_METHOD.routdescr, "DBGOUT_BOX_METHOD @warmelt-first.melt:4009",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4264__DBGOUT_BOX_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4264__DBGOUT_BOX_METHOD, meltrout_76_warmelt_first_DBGOUT_BOX_METHOD);
- 
- /*iniclos dclo_4265__DBGOUT_BOX_METHOD*/
- /*_.VALCLO___V4291*/ curfptr[4290] = (void*)&cdat->dclo_4265__DBGOUT_BOX_METHOD;
-  cdat->dclo_4265__DBGOUT_BOX_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4265__DBGOUT_BOX_METHOD.nbval = 0;
- 
- /*inirout drout_4266__COMPARE_OBJ_RANKED*/
- /*_.VALROUT___V4292*/ curfptr[4291] = (void*)&cdat->drout_4266__COMPARE_OBJ_RANKED;
-  cdat->drout_4266__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4266__COMPARE_OBJ_RANKED.routdescr, "COMPARE_OBJ_RANKED @warmelt-first.melt:4028",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4266__COMPARE_OBJ_RANKED.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4266__COMPARE_OBJ_RANKED, meltrout_77_warmelt_first_COMPARE_OBJ_RANKED);
- 
- /*iniclos dclo_4267__COMPARE_OBJ_RANKED*/
- /*_.VALCLO___V4293*/ curfptr[4292] = (void*)&cdat->dclo_4267__COMPARE_OBJ_RANKED;
-  cdat->dclo_4267__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4267__COMPARE_OBJ_RANKED.nbval = 0;
- 
- /*inirout drout_4268__DBGOUT_MAPOBJECT_METHOD*/
- /*_.VALROUT___V4294*/ curfptr[4293] = (void*)&cdat->drout_4268__DBGOUT_MAPOBJECT_METHOD;
-  cdat->drout_4268__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4268__DBGOUT_MAPOBJECT_METHOD.routdescr, "DBGOUT_MAPOBJECT_METHOD @warmelt-first.melt:4108",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4268__DBGOUT_MAPOBJECT_METHOD.nbval = 14;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4268__DBGOUT_MAPOBJECT_METHOD, meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD);
- 
- /*iniclos dclo_4269__DBGOUT_MAPOBJECT_METHOD*/
- /*_.VALCLO___V4298*/ curfptr[4297] = (void*)&cdat->dclo_4269__DBGOUT_MAPOBJECT_METHOD;
-  cdat->dclo_4269__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4269__DBGOUT_MAPOBJECT_METHOD.nbval = 0;
- 
- /*inirout drout_4270__LAMBDA_*/
- /*_.VALROUT___V4295*/ curfptr[4294] = (void*)&cdat->drout_4270__LAMBDA_;
-  cdat->drout_4270__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4270__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4135",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4270__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4270__LAMBDA_, meltrout_79_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4271__LAMBDA_*/
- /*_.VALROUT___V4296*/ curfptr[4295] = (void*)&cdat->drout_4271__LAMBDA_;
-  cdat->drout_4271__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4271__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4149",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4271__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4271__LAMBDA_, meltrout_80_warmelt_first_LAMBDA_);
+ /*inimult dtup_4222__DBG_OUTPUTAGAIN*/
+ /*_.VALTUP___V4254*/ curfptr[4253] = (void*)&cdat->dtup_4222__DBG_OUTPUTAGAIN;
+  cdat->dtup_4222__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_4222__DBG_OUTPUTAGAIN.nbval = 3;
+ MELT_LOCATION("warmelt-first.melt:3588:/ iniobj");
+ /*iniobj dobj_4223__DBG_OUTPUTAGAIN*/
+ if (!/*_.VALDATA___V4052*/ curfptr[4051]) /*_.VALDATA___V4052*/ curfptr[4051] = (void*)&cdat->dobj_4223__DBG_OUTPUTAGAIN;
+  melt_assertmsg("iniobj checkdiscr dobj_4223__DBG_OUTPUTAGAIN", NULL != (void*)/*_.VALDATA___V217*/ curfptr[216]);
+  cdat->dobj_4223__DBG_OUTPUTAGAIN.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
+  cdat->dobj_4223__DBG_OUTPUTAGAIN.obj_hash = 269856379;
+  cdat->dobj_4223__DBG_OUTPUTAGAIN.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4223__DBG_OUTPUTAGAIN));
+ 
+ /*inistring dstr_4224__DBG_OUTPUTAGAIN*/
+ /*_.VALSTR___V4053*/ curfptr[4052] = (void*)&cdat->dstr_4224__DBG_OUTPUTAGAIN;
+  cdat->dstr_4224__DBG_OUTPUTAGAIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4224__DBG_OUTPUTAGAIN.val, "DBG_OUTPUTAGAIN", sizeof(cdat->dstr_4224__DBG_OUTPUTAGAIN.val)-1);
+ 
+ /*inirout drout_4225__DBG_OUTOBJECT*/
+ /*_.VALROUT___V4051*/ curfptr[4050] = (void*)&cdat->drout_4225__DBG_OUTOBJECT;
+  cdat->drout_4225__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4225__DBG_OUTOBJECT.routdescr, "DBG_OUTOBJECT @warmelt-first.melt:3596",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4225__DBG_OUTOBJECT.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4225__DBG_OUTOBJECT, meltrout_60_warmelt_first_DBG_OUTOBJECT);
+ 
+ /*iniclos dclo_4226__DBG_OUTOBJECT*/
+ /*_.VALCLO___V4050*/ curfptr[4049] = (void*)&cdat->dclo_4226__DBG_OUTOBJECT;
+  cdat->dclo_4226__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4226__DBG_OUTOBJECT.nbval = 0;
+ 
+ /*inirout drout_4227__DBG_OUT*/
+ /*_.VALROUT___V4049*/ curfptr[4048] = (void*)&cdat->drout_4227__DBG_OUT;
+  cdat->drout_4227__DBG_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4227__DBG_OUT.routdescr, "DBG_OUT @warmelt-first.melt:3616",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4227__DBG_OUT.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4227__DBG_OUT, meltrout_61_warmelt_first_DBG_OUT);
+ 
+ /*iniclos dclo_4228__DBG_OUT*/
+ /*_.VALCLO___V4048*/ curfptr[4047] = (void*)&cdat->dclo_4228__DBG_OUT;
+  cdat->dclo_4228__DBG_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4228__DBG_OUT.nbval = 0;
+ 
+ /*inirout drout_4229__DBGOUT_FIELDS*/
+ /*_.VALROUT___V4255*/ curfptr[4254] = (void*)&cdat->drout_4229__DBGOUT_FIELDS;
+  cdat->drout_4229__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4229__DBGOUT_FIELDS.routdescr, "DBGOUT_FIELDS @warmelt-first.melt:3642",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4229__DBGOUT_FIELDS.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4229__DBGOUT_FIELDS, meltrout_62_warmelt_first_DBGOUT_FIELDS);
+ 
+ /*iniclos dclo_4230__DBGOUT_FIELDS*/
+ /*_.VALCLO___V4256*/ curfptr[4255] = (void*)&cdat->dclo_4230__DBGOUT_FIELDS;
+  cdat->dclo_4230__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4230__DBGOUT_FIELDS.nbval = 0;
+ 
+ /*inirout drout_4231__DBGOUTAGAIN_FIELDS*/
+ /*_.VALROUT___V4257*/ curfptr[4256] = (void*)&cdat->drout_4231__DBGOUTAGAIN_FIELDS;
+  cdat->drout_4231__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4231__DBGOUTAGAIN_FIELDS.routdescr, "DBGOUTAGAIN_FIELDS @warmelt-first.melt:3679",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4231__DBGOUTAGAIN_FIELDS.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4231__DBGOUTAGAIN_FIELDS, meltrout_63_warmelt_first_DBGOUTAGAIN_FIELDS);
+ 
+ /*iniclos dclo_4232__DBGOUTAGAIN_FIELDS*/
+ /*_.VALCLO___V4258*/ curfptr[4257] = (void*)&cdat->dclo_4232__DBGOUTAGAIN_FIELDS;
+  cdat->dclo_4232__DBGOUTAGAIN_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4232__DBGOUTAGAIN_FIELDS.nbval = 0;
+ 
+ /*inirout drout_4233__DBGOUT_NULL_METHOD*/
+ /*_.VALROUT___V4259*/ curfptr[4258] = (void*)&cdat->drout_4233__DBGOUT_NULL_METHOD;
+  cdat->drout_4233__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4233__DBGOUT_NULL_METHOD.routdescr, "DBGOUT_NULL_METHOD @warmelt-first.melt:3717",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4233__DBGOUT_NULL_METHOD.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4233__DBGOUT_NULL_METHOD, meltrout_64_warmelt_first_DBGOUT_NULL_METHOD);
+ 
+ /*iniclos dclo_4234__DBGOUT_NULL_METHOD*/
+ /*_.VALCLO___V4260*/ curfptr[4259] = (void*)&cdat->dclo_4234__DBGOUT_NULL_METHOD;
+  cdat->dclo_4234__DBGOUT_NULL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4234__DBGOUT_NULL_METHOD.nbval = 0;
+ 
+ /*inirout drout_4235__DBGOUT_STRING_METHOD*/
+ /*_.VALROUT___V4261*/ curfptr[4260] = (void*)&cdat->drout_4235__DBGOUT_STRING_METHOD;
+  cdat->drout_4235__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4235__DBGOUT_STRING_METHOD.routdescr, "DBGOUT_STRING_METHOD @warmelt-first.melt:3725",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4235__DBGOUT_STRING_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4235__DBGOUT_STRING_METHOD, meltrout_65_warmelt_first_DBGOUT_STRING_METHOD);
+ 
+ /*iniclos dclo_4236__DBGOUT_STRING_METHOD*/
+ /*_.VALCLO___V4262*/ curfptr[4261] = (void*)&cdat->dclo_4236__DBGOUT_STRING_METHOD;
+  cdat->dclo_4236__DBGOUT_STRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4236__DBGOUT_STRING_METHOD.nbval = 0;
+ 
+ /*inirout drout_4237__DBGOUT_INTEGER_METHOD*/
+ /*_.VALROUT___V4263*/ curfptr[4262] = (void*)&cdat->drout_4237__DBGOUT_INTEGER_METHOD;
+  cdat->drout_4237__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4237__DBGOUT_INTEGER_METHOD.routdescr, "DBGOUT_INTEGER_METHOD @warmelt-first.melt:3749",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4237__DBGOUT_INTEGER_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4237__DBGOUT_INTEGER_METHOD, meltrout_66_warmelt_first_DBGOUT_INTEGER_METHOD);
+ 
+ /*iniclos dclo_4238__DBGOUT_INTEGER_METHOD*/
+ /*_.VALCLO___V4264*/ curfptr[4263] = (void*)&cdat->dclo_4238__DBGOUT_INTEGER_METHOD;
+  cdat->dclo_4238__DBGOUT_INTEGER_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4238__DBGOUT_INTEGER_METHOD.nbval = 0;
+ 
+ /*inirout drout_4239__DBGOUT_MIXINT_METHOD*/
+ /*_.VALROUT___V4265*/ curfptr[4264] = (void*)&cdat->drout_4239__DBGOUT_MIXINT_METHOD;
+  cdat->drout_4239__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4239__DBGOUT_MIXINT_METHOD.routdescr, "DBGOUT_MIXINT_METHOD @warmelt-first.melt:3769",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4239__DBGOUT_MIXINT_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4239__DBGOUT_MIXINT_METHOD, meltrout_67_warmelt_first_DBGOUT_MIXINT_METHOD);
+ 
+ /*iniclos dclo_4240__DBGOUT_MIXINT_METHOD*/
+ /*_.VALCLO___V4266*/ curfptr[4265] = (void*)&cdat->dclo_4240__DBGOUT_MIXINT_METHOD;
+  cdat->dclo_4240__DBGOUT_MIXINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4240__DBGOUT_MIXINT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4241__DBGOUT_MIXLOC_METHOD*/
+ /*_.VALROUT___V4267*/ curfptr[4266] = (void*)&cdat->drout_4241__DBGOUT_MIXLOC_METHOD;
+  cdat->drout_4241__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4241__DBGOUT_MIXLOC_METHOD.routdescr, "DBGOUT_MIXLOC_METHOD @warmelt-first.melt:3796",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4241__DBGOUT_MIXLOC_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4241__DBGOUT_MIXLOC_METHOD, meltrout_68_warmelt_first_DBGOUT_MIXLOC_METHOD);
+ 
+ /*iniclos dclo_4242__DBGOUT_MIXLOC_METHOD*/
+ /*_.VALCLO___V4268*/ curfptr[4267] = (void*)&cdat->dclo_4242__DBGOUT_MIXLOC_METHOD;
+  cdat->dclo_4242__DBGOUT_MIXLOC_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4242__DBGOUT_MIXLOC_METHOD.nbval = 0;
+ 
+ /*inirout drout_4243__DBGOUT_MIXBIGINT_METHOD*/
+ /*_.VALROUT___V4269*/ curfptr[4268] = (void*)&cdat->drout_4243__DBGOUT_MIXBIGINT_METHOD;
+  cdat->drout_4243__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4243__DBGOUT_MIXBIGINT_METHOD.routdescr, "DBGOUT_MIXBIGINT_METHOD @warmelt-first.melt:3825",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4243__DBGOUT_MIXBIGINT_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4243__DBGOUT_MIXBIGINT_METHOD, meltrout_69_warmelt_first_DBGOUT_MIXBIGINT_METHOD);
+ 
+ /*iniclos dclo_4244__DBGOUT_MIXBIGINT_METHOD*/
+ /*_.VALCLO___V4270*/ curfptr[4269] = (void*)&cdat->dclo_4244__DBGOUT_MIXBIGINT_METHOD;
+  cdat->dclo_4244__DBGOUT_MIXBIGINT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4244__DBGOUT_MIXBIGINT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4245__DBGOUT_MULTIPLE_METHOD*/
+ /*_.VALROUT___V4271*/ curfptr[4270] = (void*)&cdat->drout_4245__DBGOUT_MULTIPLE_METHOD;
+  cdat->drout_4245__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4245__DBGOUT_MULTIPLE_METHOD.routdescr, "DBGOUT_MULTIPLE_METHOD @warmelt-first.melt:3847",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4245__DBGOUT_MULTIPLE_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4245__DBGOUT_MULTIPLE_METHOD, meltrout_70_warmelt_first_DBGOUT_MULTIPLE_METHOD);
+ 
+ /*iniclos dclo_4246__DBGOUT_MULTIPLE_METHOD*/
+ /*_.VALCLO___V4272*/ curfptr[4271] = (void*)&cdat->dclo_4246__DBGOUT_MULTIPLE_METHOD;
+  cdat->dclo_4246__DBGOUT_MULTIPLE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4246__DBGOUT_MULTIPLE_METHOD.nbval = 0;
+ 
+ /*inirout drout_4247__DBGOUT_ROUTINE_METHOD*/
+ /*_.VALROUT___V4273*/ curfptr[4272] = (void*)&cdat->drout_4247__DBGOUT_ROUTINE_METHOD;
+  cdat->drout_4247__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4247__DBGOUT_ROUTINE_METHOD.routdescr, "DBGOUT_ROUTINE_METHOD @warmelt-first.melt:3881",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4247__DBGOUT_ROUTINE_METHOD.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4247__DBGOUT_ROUTINE_METHOD, meltrout_71_warmelt_first_DBGOUT_ROUTINE_METHOD);
+ 
+ /*iniclos dclo_4248__DBGOUT_ROUTINE_METHOD*/
+ /*_.VALCLO___V4275*/ curfptr[4274] = (void*)&cdat->dclo_4248__DBGOUT_ROUTINE_METHOD;
+  cdat->dclo_4248__DBGOUT_ROUTINE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4248__DBGOUT_ROUTINE_METHOD.nbval = 0;
+ 
+ /*inirout drout_4249__LAMBDA_*/
+ /*_.VALROUT___V4274*/ curfptr[4273] = (void*)&cdat->drout_4249__LAMBDA_;
+  cdat->drout_4249__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4249__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:3896",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4249__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4249__LAMBDA_, meltrout_72_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4250__DBGOUT_CLOSURE_METHOD*/
+ /*_.VALROUT___V4276*/ curfptr[4275] = (void*)&cdat->drout_4250__DBGOUT_CLOSURE_METHOD;
+  cdat->drout_4250__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4250__DBGOUT_CLOSURE_METHOD.routdescr, "DBGOUT_CLOSURE_METHOD @warmelt-first.melt:3908",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4250__DBGOUT_CLOSURE_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4250__DBGOUT_CLOSURE_METHOD, meltrout_73_warmelt_first_DBGOUT_CLOSURE_METHOD);
+ 
+ /*iniclos dclo_4251__DBGOUT_CLOSURE_METHOD*/
+ /*_.VALCLO___V4277*/ curfptr[4276] = (void*)&cdat->dclo_4251__DBGOUT_CLOSURE_METHOD;
+  cdat->dclo_4251__DBGOUT_CLOSURE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4251__DBGOUT_CLOSURE_METHOD.nbval = 0;
+ 
+ /*inirout drout_4252__DBGOUT_LIST_METHOD*/
+ /*_.VALROUT___V4278*/ curfptr[4277] = (void*)&cdat->drout_4252__DBGOUT_LIST_METHOD;
+  cdat->drout_4252__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4252__DBGOUT_LIST_METHOD.routdescr, "DBGOUT_LIST_METHOD @warmelt-first.melt:3944",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4252__DBGOUT_LIST_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4252__DBGOUT_LIST_METHOD, meltrout_74_warmelt_first_DBGOUT_LIST_METHOD);
+ 
+ /*iniclos dclo_4253__DBGOUT_LIST_METHOD*/
+ /*_.VALCLO___V4279*/ curfptr[4278] = (void*)&cdat->dclo_4253__DBGOUT_LIST_METHOD;
+  cdat->dclo_4253__DBGOUT_LIST_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4253__DBGOUT_LIST_METHOD.nbval = 0;
+ 
+ /*inirout drout_4254__DBGOUT_PAIR_METHOD*/
+ /*_.VALROUT___V4280*/ curfptr[4279] = (void*)&cdat->drout_4254__DBGOUT_PAIR_METHOD;
+  cdat->drout_4254__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4254__DBGOUT_PAIR_METHOD.routdescr, "DBGOUT_PAIR_METHOD @warmelt-first.melt:3984",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4254__DBGOUT_PAIR_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4254__DBGOUT_PAIR_METHOD, meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD);
+ 
+ /*iniclos dclo_4255__DBGOUT_PAIR_METHOD*/
+ /*_.VALCLO___V4281*/ curfptr[4280] = (void*)&cdat->dclo_4255__DBGOUT_PAIR_METHOD;
+  cdat->dclo_4255__DBGOUT_PAIR_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4255__DBGOUT_PAIR_METHOD.nbval = 0;
+ 
+ /*inirout drout_4256__DBGOUT_BOX_METHOD*/
+ /*_.VALROUT___V4282*/ curfptr[4281] = (void*)&cdat->drout_4256__DBGOUT_BOX_METHOD;
+  cdat->drout_4256__DBGOUT_BOX_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4256__DBGOUT_BOX_METHOD.routdescr, "DBGOUT_BOX_METHOD @warmelt-first.melt:4004",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4256__DBGOUT_BOX_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4256__DBGOUT_BOX_METHOD, meltrout_76_warmelt_first_DBGOUT_BOX_METHOD);
+ 
+ /*iniclos dclo_4257__DBGOUT_BOX_METHOD*/
+ /*_.VALCLO___V4283*/ curfptr[4282] = (void*)&cdat->dclo_4257__DBGOUT_BOX_METHOD;
+  cdat->dclo_4257__DBGOUT_BOX_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4257__DBGOUT_BOX_METHOD.nbval = 0;
+ 
+ /*inirout drout_4258__COMPARE_OBJ_RANKED*/
+ /*_.VALROUT___V4284*/ curfptr[4283] = (void*)&cdat->drout_4258__COMPARE_OBJ_RANKED;
+  cdat->drout_4258__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4258__COMPARE_OBJ_RANKED.routdescr, "COMPARE_OBJ_RANKED @warmelt-first.melt:4023",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4258__COMPARE_OBJ_RANKED.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4258__COMPARE_OBJ_RANKED, meltrout_77_warmelt_first_COMPARE_OBJ_RANKED);
+ 
+ /*iniclos dclo_4259__COMPARE_OBJ_RANKED*/
+ /*_.VALCLO___V4285*/ curfptr[4284] = (void*)&cdat->dclo_4259__COMPARE_OBJ_RANKED;
+  cdat->dclo_4259__COMPARE_OBJ_RANKED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4259__COMPARE_OBJ_RANKED.nbval = 0;
+ 
+ /*inirout drout_4260__DBGOUT_MAPOBJECT_METHOD*/
+ /*_.VALROUT___V4286*/ curfptr[4285] = (void*)&cdat->drout_4260__DBGOUT_MAPOBJECT_METHOD;
+  cdat->drout_4260__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4260__DBGOUT_MAPOBJECT_METHOD.routdescr, "DBGOUT_MAPOBJECT_METHOD @warmelt-first.melt:4103",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4260__DBGOUT_MAPOBJECT_METHOD.nbval = 14;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4260__DBGOUT_MAPOBJECT_METHOD, meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD);
+ 
+ /*iniclos dclo_4261__DBGOUT_MAPOBJECT_METHOD*/
+ /*_.VALCLO___V4290*/ curfptr[4289] = (void*)&cdat->dclo_4261__DBGOUT_MAPOBJECT_METHOD;
+  cdat->dclo_4261__DBGOUT_MAPOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4261__DBGOUT_MAPOBJECT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4262__LAMBDA_*/
+ /*_.VALROUT___V4287*/ curfptr[4286] = (void*)&cdat->drout_4262__LAMBDA_;
+  cdat->drout_4262__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4262__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4130",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4262__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4262__LAMBDA_, meltrout_79_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4263__LAMBDA_*/
+ /*_.VALROUT___V4288*/ curfptr[4287] = (void*)&cdat->drout_4263__LAMBDA_;
+  cdat->drout_4263__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4263__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4144",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4263__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4263__LAMBDA_, meltrout_80_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4264__LAMBDA_*/
+ /*_.VALROUT___V4289*/ curfptr[4288] = (void*)&cdat->drout_4264__LAMBDA_;
+  cdat->drout_4264__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4264__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4160",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4264__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4264__LAMBDA_, meltrout_81_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
+ /*_.VALROUT___V4291*/ curfptr[4290] = (void*)&cdat->drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
+  cdat->drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.routdescr, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE @warmelt-first.melt:4184",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE, meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE);
+ 
+ /*iniclos dclo_4266__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
+ /*_.VALCLO___V4295*/ curfptr[4294] = (void*)&cdat->dclo_4266__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
+  cdat->dclo_4266__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4266__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 0;
+ 
+ /*inirout drout_4267__LAMBDA_*/
+ /*_.VALROUT___V4292*/ curfptr[4291] = (void*)&cdat->drout_4267__LAMBDA_;
+  cdat->drout_4267__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4267__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4198",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4267__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4267__LAMBDA_, meltrout_83_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4268__LAMBDA_*/
+ /*_.VALROUT___V4293*/ curfptr[4292] = (void*)&cdat->drout_4268__LAMBDA_;
+  cdat->drout_4268__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4268__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4211",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4268__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4268__LAMBDA_, meltrout_84_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4269__LAMBDA_*/
+ /*_.VALROUT___V4294*/ curfptr[4293] = (void*)&cdat->drout_4269__LAMBDA_;
+  cdat->drout_4269__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4269__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4224",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4269__LAMBDA_.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4269__LAMBDA_, meltrout_85_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4270__DBGOUT_MAPSTRING_METHOD*/
+ /*_.VALROUT___V4296*/ curfptr[4295] = (void*)&cdat->drout_4270__DBGOUT_MAPSTRING_METHOD;
+  cdat->drout_4270__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4270__DBGOUT_MAPSTRING_METHOD.routdescr, "DBGOUT_MAPSTRING_METHOD @warmelt-first.melt:4232",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4270__DBGOUT_MAPSTRING_METHOD.nbval = 13;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4270__DBGOUT_MAPSTRING_METHOD, meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD);
+ 
+ /*iniclos dclo_4271__DBGOUT_MAPSTRING_METHOD*/
+ /*_.VALCLO___V4300*/ curfptr[4299] = (void*)&cdat->dclo_4271__DBGOUT_MAPSTRING_METHOD;
+  cdat->dclo_4271__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4271__DBGOUT_MAPSTRING_METHOD.nbval = 0;
  
  /*inirout drout_4272__LAMBDA_*/
  /*_.VALROUT___V4297*/ curfptr[4296] = (void*)&cdat->drout_4272__LAMBDA_;
   cdat->drout_4272__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4272__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4165",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_4272__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4258",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_4272__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4272__LAMBDA_, meltrout_81_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
- /*_.VALROUT___V4299*/ curfptr[4298] = (void*)&cdat->drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
-  cdat->drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.routdescr, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE @warmelt-first.melt:4189",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE, meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE);
- 
- /*iniclos dclo_4274__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
- /*_.VALCLO___V4303*/ curfptr[4302] = (void*)&cdat->dclo_4274__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
-  cdat->dclo_4274__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4274__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.nbval = 0;
- 
- /*inirout drout_4275__LAMBDA_*/
- /*_.VALROUT___V4300*/ curfptr[4299] = (void*)&cdat->drout_4275__LAMBDA_;
-  cdat->drout_4275__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4275__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4203",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4275__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4275__LAMBDA_, meltrout_83_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4276__LAMBDA_*/
- /*_.VALROUT___V4301*/ curfptr[4300] = (void*)&cdat->drout_4276__LAMBDA_;
-  cdat->drout_4276__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4276__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4216",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4276__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4276__LAMBDA_, meltrout_84_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4277__LAMBDA_*/
- /*_.VALROUT___V4302*/ curfptr[4301] = (void*)&cdat->drout_4277__LAMBDA_;
-  cdat->drout_4277__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4277__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4229",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4277__LAMBDA_.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4277__LAMBDA_, meltrout_85_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4278__DBGOUT_MAPSTRING_METHOD*/
- /*_.VALROUT___V4304*/ curfptr[4303] = (void*)&cdat->drout_4278__DBGOUT_MAPSTRING_METHOD;
-  cdat->drout_4278__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4278__DBGOUT_MAPSTRING_METHOD.routdescr, "DBGOUT_MAPSTRING_METHOD @warmelt-first.melt:4237",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4278__DBGOUT_MAPSTRING_METHOD.nbval = 13;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4278__DBGOUT_MAPSTRING_METHOD, meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD);
- 
- /*iniclos dclo_4279__DBGOUT_MAPSTRING_METHOD*/
- /*_.VALCLO___V4308*/ curfptr[4307] = (void*)&cdat->dclo_4279__DBGOUT_MAPSTRING_METHOD;
-  cdat->dclo_4279__DBGOUT_MAPSTRING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4279__DBGOUT_MAPSTRING_METHOD.nbval = 0;
- 
- /*inirout drout_4280__LAMBDA_*/
- /*_.VALROUT___V4305*/ curfptr[4304] = (void*)&cdat->drout_4280__LAMBDA_;
-  cdat->drout_4280__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4280__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4263",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4280__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4280__LAMBDA_, meltrout_87_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4281__LAMBDA_*/
- /*_.VALROUT___V4306*/ curfptr[4305] = (void*)&cdat->drout_4281__LAMBDA_;
-  cdat->drout_4281__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4281__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4276",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4281__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4281__LAMBDA_, meltrout_88_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4282__LAMBDA_*/
- /*_.VALROUT___V4307*/ curfptr[4306] = (void*)&cdat->drout_4282__LAMBDA_;
-  cdat->drout_4282__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4282__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4292",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4282__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4282__LAMBDA_, meltrout_89_warmelt_first_LAMBDA_);
- 
- /*inirout drout_4283__DBGOUT_ANYOBJECT_METHOD*/
- /*_.VALROUT___V4309*/ curfptr[4308] = (void*)&cdat->drout_4283__DBGOUT_ANYOBJECT_METHOD;
-  cdat->drout_4283__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4283__DBGOUT_ANYOBJECT_METHOD.routdescr, "DBGOUT_ANYOBJECT_METHOD @warmelt-first.melt:4311",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4283__DBGOUT_ANYOBJECT_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4283__DBGOUT_ANYOBJECT_METHOD, meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD);
- 
- /*iniclos dclo_4284__DBGOUT_ANYOBJECT_METHOD*/
- /*_.VALCLO___V4310*/ curfptr[4309] = (void*)&cdat->dclo_4284__DBGOUT_ANYOBJECT_METHOD;
-  cdat->dclo_4284__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4284__DBGOUT_ANYOBJECT_METHOD.nbval = 0;
- 
- /*inirout drout_4285__DBGOUT_ANYRECV_METHOD*/
- /*_.VALROUT___V4311*/ curfptr[4310] = (void*)&cdat->drout_4285__DBGOUT_ANYRECV_METHOD;
-  cdat->drout_4285__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4285__DBGOUT_ANYRECV_METHOD.routdescr, "DBGOUT_ANYRECV_METHOD @warmelt-first.melt:4340",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4285__DBGOUT_ANYRECV_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4285__DBGOUT_ANYRECV_METHOD, meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD);
- 
- /*iniclos dclo_4286__DBGOUT_ANYRECV_METHOD*/
- /*_.VALCLO___V4312*/ curfptr[4311] = (void*)&cdat->dclo_4286__DBGOUT_ANYRECV_METHOD;
-  cdat->dclo_4286__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4286__DBGOUT_ANYRECV_METHOD.nbval = 0;
- 
- /*inirout drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD*/
- /*_.VALROUT___V4313*/ curfptr[4312] = (void*)&cdat->drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD;
-  cdat->drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD.routdescr, "DBGOUTAGAIN_ANYOBJECT_METHOD @warmelt-first.melt:4351",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4287__DBGOUTAGAIN_ANYOBJECT_METHOD, meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD);
- 
- /*iniclos dclo_4288__DBGOUTAGAIN_ANYOBJECT_METHOD*/
- /*_.VALCLO___V4314*/ curfptr[4313] = (void*)&cdat->dclo_4288__DBGOUTAGAIN_ANYOBJECT_METHOD;
-  cdat->dclo_4288__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4288__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 0;
- 
- /*inirout drout_4289__DBGOUT_NAMEDOBJECT_METHOD*/
- /*_.VALROUT___V4315*/ curfptr[4314] = (void*)&cdat->drout_4289__DBGOUT_NAMEDOBJECT_METHOD;
-  cdat->drout_4289__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4289__DBGOUT_NAMEDOBJECT_METHOD.routdescr, "DBGOUT_NAMEDOBJECT_METHOD @warmelt-first.melt:4375",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4289__DBGOUT_NAMEDOBJECT_METHOD.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4289__DBGOUT_NAMEDOBJECT_METHOD, meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD);
- 
- /*iniclos dclo_4290__DBGOUT_NAMEDOBJECT_METHOD*/
- /*_.VALCLO___V4316*/ curfptr[4315] = (void*)&cdat->dclo_4290__DBGOUT_NAMEDOBJECT_METHOD;
-  cdat->dclo_4290__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4290__DBGOUT_NAMEDOBJECT_METHOD.nbval = 0;
- 
- /*iniobj dsym_4291__DBGOUT_NAMEDOBJECT_METHOD*/
- if (!/*_.VALDATA___V4317*/ curfptr[4316]) /*_.VALDATA___V4317*/ curfptr[4316] = (void*)&cdat->dsym_4291__DBGOUT_NAMEDOBJECT_METHOD;
-  melt_assertmsg("iniobj checkdiscr dsym_4291__DBGOUT_NAMEDOBJECT_METHOD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4291__DBGOUT_NAMEDOBJECT_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4291__DBGOUT_NAMEDOBJECT_METHOD.obj_hash = 359355803;
-  cdat->dsym_4291__DBGOUT_NAMEDOBJECT_METHOD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4291__DBGOUT_NAMEDOBJECT_METHOD));
- 
- /*inistring dstr_4292__DBGOUT_NAMEDOBJE*/
- /*_.VALSTR___V4318*/ curfptr[4317] = (void*)&cdat->dstr_4292__DBGOUT_NAMEDOBJE;
-  cdat->dstr_4292__DBGOUT_NAMEDOBJE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4292__DBGOUT_NAMEDOBJE.val, "DBGOUT_NAMEDOBJECT_METHOD", sizeof(cdat->dstr_4292__DBGOUT_NAMEDOBJE.val)-1);
- 
- /*inirout drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
- /*_.VALROUT___V4319*/ curfptr[4318] = (void*)&cdat->drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
-  cdat->drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD.routdescr, "DBGOUTAGAIN_NAMEDOBJECT_METHOD @warmelt-first.melt:4414",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4293__DBGOUTAGAIN_NAMEDOBJECT_METHOD, meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD);
- 
- /*iniclos dclo_4294__DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
- /*_.VALCLO___V4320*/ curfptr[4319] = (void*)&cdat->dclo_4294__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
-  cdat->dclo_4294__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4294__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 0;
- 
- /*inirout drout_4295__DBGOUT_SYMBOL_METHOD*/
- /*_.VALROUT___V4321*/ curfptr[4320] = (void*)&cdat->drout_4295__DBGOUT_SYMBOL_METHOD;
-  cdat->drout_4295__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4295__DBGOUT_SYMBOL_METHOD.routdescr, "DBGOUT_SYMBOL_METHOD @warmelt-first.melt:4436",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4295__DBGOUT_SYMBOL_METHOD.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4295__DBGOUT_SYMBOL_METHOD, meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD);
- 
- /*iniclos dclo_4296__DBGOUT_SYMBOL_METHOD*/
- /*_.VALCLO___V4324*/ curfptr[4323] = (void*)&cdat->dclo_4296__DBGOUT_SYMBOL_METHOD;
-  cdat->dclo_4296__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4296__DBGOUT_SYMBOL_METHOD.nbval = 0;
- 
- /*inirout drout_4297__DBGOUTAGAIN_SYMBOL_METHOD*/
- /*_.VALROUT___V4323*/ curfptr[4322] = (void*)&cdat->drout_4297__DBGOUTAGAIN_SYMBOL_METHOD;
-  cdat->drout_4297__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4297__DBGOUTAGAIN_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_SYMBOL_METHOD @warmelt-first.melt:4444",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4297__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4297__DBGOUTAGAIN_SYMBOL_METHOD, meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD);
- 
- /*iniclos dclo_4298__DBGOUTAGAIN_SYMBOL_METHOD*/
- /*_.VALCLO___V4322*/ curfptr[4321] = (void*)&cdat->dclo_4298__DBGOUTAGAIN_SYMBOL_METHOD;
-  cdat->dclo_4298__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4298__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 0;
- 
- /*inirout drout_4299__DBGOUT_CLASS_METHOD*/
- /*_.VALROUT___V4325*/ curfptr[4324] = (void*)&cdat->drout_4299__DBGOUT_CLASS_METHOD;
-  cdat->drout_4299__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4299__DBGOUT_CLASS_METHOD.routdescr, "DBGOUT_CLASS_METHOD @warmelt-first.melt:4464",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4299__DBGOUT_CLASS_METHOD.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4299__DBGOUT_CLASS_METHOD, meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD);
- 
- /*iniclos dclo_4300__DBGOUT_CLASS_METHOD*/
- /*_.VALCLO___V4326*/ curfptr[4325] = (void*)&cdat->dclo_4300__DBGOUT_CLASS_METHOD;
-  cdat->dclo_4300__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4300__DBGOUT_CLASS_METHOD.nbval = 0;
- 
- /*inirout drout_4301__DBGOUT_KEYWORD_METHOD*/
- /*_.VALROUT___V4327*/ curfptr[4326] = (void*)&cdat->drout_4301__DBGOUT_KEYWORD_METHOD;
-  cdat->drout_4301__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4301__DBGOUT_KEYWORD_METHOD.routdescr, "DBGOUT_KEYWORD_METHOD @warmelt-first.melt:4473",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4301__DBGOUT_KEYWORD_METHOD.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4301__DBGOUT_KEYWORD_METHOD, meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD);
- 
- /*iniclos dclo_4302__DBGOUT_KEYWORD_METHOD*/
- /*_.VALCLO___V4330*/ curfptr[4329] = (void*)&cdat->dclo_4302__DBGOUT_KEYWORD_METHOD;
-  cdat->dclo_4302__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4302__DBGOUT_KEYWORD_METHOD.nbval = 0;
- 
- /*inirout drout_4303__DBGOUTAGAIN_KEYWORD_METHOD*/
- /*_.VALROUT___V4329*/ curfptr[4328] = (void*)&cdat->drout_4303__DBGOUTAGAIN_KEYWORD_METHOD;
-  cdat->drout_4303__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4303__DBGOUTAGAIN_KEYWORD_METHOD.routdescr, "DBGOUTAGAIN_KEYWORD_METHOD @warmelt-first.melt:4481",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4303__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4303__DBGOUTAGAIN_KEYWORD_METHOD, meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD);
- 
- /*iniclos dclo_4304__DBGOUTAGAIN_KEYWORD_METHOD*/
- /*_.VALCLO___V4328*/ curfptr[4327] = (void*)&cdat->dclo_4304__DBGOUTAGAIN_KEYWORD_METHOD;
-  cdat->dclo_4304__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4304__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 0;
- 
- /*inirout drout_4305__DBGOUT_CLONED_SYMBOL_METHOD*/
- /*_.VALROUT___V4331*/ curfptr[4330] = (void*)&cdat->drout_4305__DBGOUT_CLONED_SYMBOL_METHOD;
-  cdat->drout_4305__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4305__DBGOUT_CLONED_SYMBOL_METHOD.routdescr, "DBGOUT_CLONED_SYMBOL_METHOD @warmelt-first.melt:4501",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4305__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4305__DBGOUT_CLONED_SYMBOL_METHOD, meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD);
- 
- /*iniclos dclo_4306__DBGOUT_CLONED_SYMBOL_METHOD*/
- /*_.VALCLO___V4334*/ curfptr[4333] = (void*)&cdat->dclo_4306__DBGOUT_CLONED_SYMBOL_METHOD;
-  cdat->dclo_4306__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4306__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 0;
- 
- /*inirout drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
- /*_.VALROUT___V4333*/ curfptr[4332] = (void*)&cdat->drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
-  cdat->drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_CLONED_SYMBOL_METHOD @warmelt-first.melt:4510",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4307__DBGOUTAGAIN_CLONED_SYMBOL_METHOD, meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD);
- 
- /*iniclos dclo_4308__DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
- /*_.VALCLO___V4332*/ curfptr[4331] = (void*)&cdat->dclo_4308__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
-  cdat->dclo_4308__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4308__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0;
- 
- /*inirout drout_4309__DBGOUT_ENVIRONMENT_METHOD*/
- /*_.VALROUT___V4335*/ curfptr[4334] = (void*)&cdat->drout_4309__DBGOUT_ENVIRONMENT_METHOD;
-  cdat->drout_4309__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4309__DBGOUT_ENVIRONMENT_METHOD.routdescr, "DBGOUT_ENVIRONMENT_METHOD @warmelt-first.melt:4533",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4309__DBGOUT_ENVIRONMENT_METHOD.nbval = 5;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4309__DBGOUT_ENVIRONMENT_METHOD, meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD);
- 
- /*iniclos dclo_4310__DBGOUT_ENVIRONMENT_METHOD*/
- /*_.VALCLO___V4336*/ curfptr[4335] = (void*)&cdat->dclo_4310__DBGOUT_ENVIRONMENT_METHOD;
-  cdat->dclo_4310__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4310__DBGOUT_ENVIRONMENT_METHOD.nbval = 0;
- 
- /*inirout drout_4311__DBGOUT_CTYPE_METHOD*/
- /*_.VALROUT___V4337*/ curfptr[4336] = (void*)&cdat->drout_4311__DBGOUT_CTYPE_METHOD;
-  cdat->drout_4311__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4311__DBGOUT_CTYPE_METHOD.routdescr, "DBGOUT_CTYPE_METHOD @warmelt-first.melt:4579",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4311__DBGOUT_CTYPE_METHOD.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4311__DBGOUT_CTYPE_METHOD, meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD);
- 
- /*iniclos dclo_4312__DBGOUT_CTYPE_METHOD*/
- /*_.VALCLO___V4340*/ curfptr[4339] = (void*)&cdat->dclo_4312__DBGOUT_CTYPE_METHOD;
-  cdat->dclo_4312__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4312__DBGOUT_CTYPE_METHOD.nbval = 0;
- 
- /*inirout drout_4313__DBGOUTAGAIN_CTYPE_METHOD*/
- /*_.VALROUT___V4339*/ curfptr[4338] = (void*)&cdat->drout_4313__DBGOUTAGAIN_CTYPE_METHOD;
-  cdat->drout_4313__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4313__DBGOUTAGAIN_CTYPE_METHOD.routdescr, "DBGOUTAGAIN_CTYPE_METHOD @warmelt-first.melt:4588",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4313__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4313__DBGOUTAGAIN_CTYPE_METHOD, meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD);
- 
- /*iniclos dclo_4314__DBGOUTAGAIN_CTYPE_METHOD*/
- /*_.VALCLO___V4338*/ curfptr[4337] = (void*)&cdat->dclo_4314__DBGOUTAGAIN_CTYPE_METHOD;
-  cdat->dclo_4314__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4314__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0;
- 
- /*inirout drout_4315__FRESH_ENV*/
- /*_.VALROUT___V4020*/ curfptr[4019] = (void*)&cdat->drout_4315__FRESH_ENV;
-  cdat->drout_4315__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4315__FRESH_ENV.routdescr, "FRESH_ENV @warmelt-first.melt:4609",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4315__FRESH_ENV.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4315__FRESH_ENV, meltrout_105_warmelt_first_FRESH_ENV);
- 
- /*iniclos dclo_4316__FRESH_ENV*/
- /*_.VALCLO___V4019*/ curfptr[4018] = (void*)&cdat->dclo_4316__FRESH_ENV;
-  cdat->dclo_4316__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4316__FRESH_ENV.nbval = 0;
- 
- /*iniobj dsym_4317__INITIAL_ENVIRONMENT*/
- if (!/*_.VALDATA___V4341*/ curfptr[4340]) /*_.VALDATA___V4341*/ curfptr[4340] = (void*)&cdat->dsym_4317__INITIAL_ENVIRONMENT;
-  melt_assertmsg("iniobj checkdiscr dsym_4317__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4317__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4317__INITIAL_ENVIRONMENT.obj_hash = 756729242;
-  cdat->dsym_4317__INITIAL_ENVIRONMENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4317__INITIAL_ENVIRONMENT));
- 
- /*inistring dstr_4318__INITIAL_ENVIRONM*/
- /*_.VALSTR___V4342*/ curfptr[4341] = (void*)&cdat->dstr_4318__INITIAL_ENVIRONM;
-  cdat->dstr_4318__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4318__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof(cdat->dstr_4318__INITIAL_ENVIRONM.val)-1);
- 
- MELT_LOCATION("warmelt-first.melt:4624:/ iniobj");
- /*iniobj dobj_4319__INITIAL_ENVIRONMENT*/
- if (!/*_.VALDATA___V4343*/ curfptr[4342]) /*_.VALDATA___V4343*/ curfptr[4342] = (void*)&cdat->dobj_4319__INITIAL_ENVIRONMENT;
-  melt_assertmsg("iniobj checkdiscr dobj_4319__INITIAL_ENVIRONMENT", NULL != (void*)/*_.VALDATA___V441*/ curfptr[440]);
-  cdat->dobj_4319__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]);
-  cdat->dobj_4319__INITIAL_ENVIRONMENT.obj_hash = 15155504;
-  cdat->dobj_4319__INITIAL_ENVIRONMENT.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4319__INITIAL_ENVIRONMENT));
- 
- /*inistring dstr_4320__Initial_Environm*/
- /*_.VALSTR___V4345*/ curfptr[4344] = (void*)&cdat->dstr_4320__Initial_Environm;
-  cdat->dstr_4320__Initial_Environm.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4320__Initial_Environm.val, "Initial Environment", sizeof(cdat->dstr_4320__Initial_Environm.val)-1);
- 
- /*inirout drout_4321__FIND_ENV*/
- /*_.VALROUT___V4024*/ curfptr[4023] = (void*)&cdat->drout_4321__FIND_ENV;
-  cdat->drout_4321__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4321__FIND_ENV.routdescr, "FIND_ENV @warmelt-first.melt:4631",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4321__FIND_ENV.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4321__FIND_ENV, meltrout_106_warmelt_first_FIND_ENV);
- 
- /*iniclos dclo_4322__FIND_ENV*/
- /*_.VALCLO___V4023*/ curfptr[4022] = (void*)&cdat->dclo_4322__FIND_ENV;
-  cdat->dclo_4322__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4322__FIND_ENV.nbval = 0;
- 
- /*inirout drout_4323__FIND_ENV_DEBUG*/
- /*_.VALROUT___V4346*/ curfptr[4345] = (void*)&cdat->drout_4323__FIND_ENV_DEBUG;
-  cdat->drout_4323__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4323__FIND_ENV_DEBUG.routdescr, "FIND_ENV_DEBUG @warmelt-first.melt:4654",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4323__FIND_ENV_DEBUG.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4323__FIND_ENV_DEBUG, meltrout_107_warmelt_first_FIND_ENV_DEBUG);
- 
- /*iniclos dclo_4324__FIND_ENV_DEBUG*/
- /*_.VALCLO___V4347*/ curfptr[4346] = (void*)&cdat->dclo_4324__FIND_ENV_DEBUG;
-  cdat->dclo_4324__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4324__FIND_ENV_DEBUG.nbval = 0;
- 
- /*inirout drout_4325__FIND_ENCLOSING_ENV*/
- /*_.VALROUT___V4348*/ curfptr[4347] = (void*)&cdat->drout_4325__FIND_ENCLOSING_ENV;
-  cdat->drout_4325__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4325__FIND_ENCLOSING_ENV.routdescr, "FIND_ENCLOSING_ENV @warmelt-first.melt:4681",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4325__FIND_ENCLOSING_ENV.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4325__FIND_ENCLOSING_ENV, meltrout_108_warmelt_first_FIND_ENCLOSING_ENV);
- 
- /*iniclos dclo_4326__FIND_ENCLOSING_ENV*/
- /*_.VALCLO___V4349*/ curfptr[4348] = (void*)&cdat->dclo_4326__FIND_ENCLOSING_ENV;
-  cdat->dclo_4326__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4326__FIND_ENCLOSING_ENV.nbval = 0;
- 
- /*inirout drout_4327__PUT_ENV*/
- /*_.VALROUT___V4026*/ curfptr[4025] = (void*)&cdat->drout_4327__PUT_ENV;
-  cdat->drout_4327__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4327__PUT_ENV.routdescr, "PUT_ENV @warmelt-first.melt:4700",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4327__PUT_ENV.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4327__PUT_ENV, meltrout_109_warmelt_first_PUT_ENV);
- 
- /*iniclos dclo_4328__PUT_ENV*/
- /*_.VALCLO___V4025*/ curfptr[4024] = (void*)&cdat->dclo_4328__PUT_ENV;
-  cdat->dclo_4328__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4328__PUT_ENV.nbval = 0;
- 
- /*inirout drout_4329__OVERWRITE_ENV*/
- /*_.VALROUT___V4350*/ curfptr[4349] = (void*)&cdat->drout_4329__OVERWRITE_ENV;
-  cdat->drout_4329__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4329__OVERWRITE_ENV.routdescr, "OVERWRITE_ENV @warmelt-first.melt:4725",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4329__OVERWRITE_ENV.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4329__OVERWRITE_ENV, meltrout_110_warmelt_first_OVERWRITE_ENV);
- 
- /*iniclos dclo_4330__OVERWRITE_ENV*/
- /*_.VALCLO___V4351*/ curfptr[4350] = (void*)&cdat->dclo_4330__OVERWRITE_ENV;
-  cdat->dclo_4330__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4330__OVERWRITE_ENV.nbval = 0;
- 
- /*inirout drout_4331__DEBUG_MSG_FUN*/
- /*_.VALROUT___V4010*/ curfptr[4009] = (void*)&cdat->drout_4331__DEBUG_MSG_FUN;
-  cdat->drout_4331__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4331__DEBUG_MSG_FUN.routdescr, "DEBUG_MSG_FUN @warmelt-first.melt:4748",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4331__DEBUG_MSG_FUN.nbval = 7;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4331__DEBUG_MSG_FUN, meltrout_111_warmelt_first_DEBUG_MSG_FUN);
- 
- /*iniclos dclo_4332__DEBUG_MSG_FUN*/
- /*_.VALCLO___V4009*/ curfptr[4008] = (void*)&cdat->dclo_4332__DEBUG_MSG_FUN;
-  cdat->dclo_4332__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4332__DEBUG_MSG_FUN.nbval = 0;
- 
- /*inirout drout_4333__DBGOUT_ANYBINDING_METHOD*/
- /*_.VALROUT___V4352*/ curfptr[4351] = (void*)&cdat->drout_4333__DBGOUT_ANYBINDING_METHOD;
-  cdat->drout_4333__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4333__DBGOUT_ANYBINDING_METHOD.routdescr, "DBGOUT_ANYBINDING_METHOD @warmelt-first.melt:4818",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4333__DBGOUT_ANYBINDING_METHOD.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4333__DBGOUT_ANYBINDING_METHOD, meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD);
- 
- /*iniclos dclo_4334__DBGOUT_ANYBINDING_METHOD*/
- /*_.VALCLO___V4353*/ curfptr[4352] = (void*)&cdat->dclo_4334__DBGOUT_ANYBINDING_METHOD;
-  cdat->dclo_4334__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4334__DBGOUT_ANYBINDING_METHOD.nbval = 0;
- 
- /*inirout drout_4335__POST_INITIALIZATION*/
- /*_.VALROUT___V4354*/ curfptr[4353] = (void*)&cdat->drout_4335__POST_INITIALIZATION;
-  cdat->drout_4335__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_4335__POST_INITIALIZATION.routdescr, "POST_INITIALIZATION @warmelt-first.melt:4854",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_4335__POST_INITIALIZATION.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4335__POST_INITIALIZATION, meltrout_113_warmelt_first_POST_INITIALIZATION);
- 
- /*iniclos dclo_4336__POST_INITIALIZATION*/
- /*_.VALCLO___V4355*/ curfptr[4354] = (void*)&cdat->dclo_4336__POST_INITIALIZATION;
-  cdat->dclo_4336__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_4336__POST_INITIALIZATION.nbval = 0;
- 
- /*iniobj dsym_4337__LIST_FIND*/
- if (!/*_.VALDATA___V4356*/ curfptr[4355]) /*_.VALDATA___V4356*/ curfptr[4355] = (void*)&cdat->dsym_4337__LIST_FIND;
-  melt_assertmsg("iniobj checkdiscr dsym_4337__LIST_FIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4337__LIST_FIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4337__LIST_FIND.obj_hash = 430964501;
-  cdat->dsym_4337__LIST_FIND.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4337__LIST_FIND));
- 
- /*inistring dstr_4338__LIST_FIND*/
- /*_.VALSTR___V4357*/ curfptr[4356] = (void*)&cdat->dstr_4338__LIST_FIND;
-  cdat->dstr_4338__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4338__LIST_FIND.val, "LIST_FIND", sizeof(cdat->dstr_4338__LIST_FIND.val)-1);
- 
- /*iniobj dsym_4339__AT_EXIT_FIRST*/
- if (!/*_.VALDATA___V4358*/ curfptr[4357]) /*_.VALDATA___V4358*/ curfptr[4357] = (void*)&cdat->dsym_4339__AT_EXIT_FIRST;
-  melt_assertmsg("iniobj checkdiscr dsym_4339__AT_EXIT_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4339__AT_EXIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4339__AT_EXIT_FIRST.obj_hash = 229908354;
-  cdat->dsym_4339__AT_EXIT_FIRST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4339__AT_EXIT_FIRST));
- 
- /*inistring dstr_4340__AT_EXIT_FIRST*/
- /*_.VALSTR___V4359*/ curfptr[4358] = (void*)&cdat->dstr_4340__AT_EXIT_FIRST;
-  cdat->dstr_4340__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4340__AT_EXIT_FIRST.val, "AT_EXIT_FIRST", sizeof(cdat->dstr_4340__AT_EXIT_FIRST.val)-1);
- 
- /*iniobj dsym_4341__AT_EXIT_LAST*/
- if (!/*_.VALDATA___V4360*/ curfptr[4359]) /*_.VALDATA___V4360*/ curfptr[4359] = (void*)&cdat->dsym_4341__AT_EXIT_LAST;
-  melt_assertmsg("iniobj checkdiscr dsym_4341__AT_EXIT_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4341__AT_EXIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4341__AT_EXIT_LAST.obj_hash = 554176281;
-  cdat->dsym_4341__AT_EXIT_LAST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4341__AT_EXIT_LAST));
- 
- /*inistring dstr_4342__AT_EXIT_LAST*/
- /*_.VALSTR___V4361*/ curfptr[4360] = (void*)&cdat->dstr_4342__AT_EXIT_LAST;
-  cdat->dstr_4342__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4342__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof(cdat->dstr_4342__AT_EXIT_LAST.val)-1);
- 
- /*iniobj dsym_4343__AT_FINISH_UNIT_FIRST*/
- if (!/*_.VALDATA___V4362*/ curfptr[4361]) /*_.VALDATA___V4362*/ curfptr[4361] = (void*)&cdat->dsym_4343__AT_FINISH_UNIT_FIRST;
-  melt_assertmsg("iniobj checkdiscr dsym_4343__AT_FINISH_UNIT_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4343__AT_FINISH_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4343__AT_FINISH_UNIT_FIRST.obj_hash = 390084996;
-  cdat->dsym_4343__AT_FINISH_UNIT_FIRST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4343__AT_FINISH_UNIT_FIRST));
- 
- /*inistring dstr_4344__AT_FINISH_UNIT_F*/
- /*_.VALSTR___V4363*/ curfptr[4362] = (void*)&cdat->dstr_4344__AT_FINISH_UNIT_F;
-  cdat->dstr_4344__AT_FINISH_UNIT_F.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4344__AT_FINISH_UNIT_F.val, "AT_FINISH_UNIT_FIRST", sizeof(cdat->dstr_4344__AT_FINISH_UNIT_F.val)-1);
- 
- /*iniobj dsym_4345__AT_FINISH_UNIT_LAST*/
- if (!/*_.VALDATA___V4364*/ curfptr[4363]) /*_.VALDATA___V4364*/ curfptr[4363] = (void*)&cdat->dsym_4345__AT_FINISH_UNIT_LAST;
-  melt_assertmsg("iniobj checkdiscr dsym_4345__AT_FINISH_UNIT_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4345__AT_FINISH_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4345__AT_FINISH_UNIT_LAST.obj_hash = 264295221;
-  cdat->dsym_4345__AT_FINISH_UNIT_LAST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4345__AT_FINISH_UNIT_LAST));
- 
- /*inistring dstr_4346__AT_FINISH_UNIT_L*/
- /*_.VALSTR___V4365*/ curfptr[4364] = (void*)&cdat->dstr_4346__AT_FINISH_UNIT_L;
-  cdat->dstr_4346__AT_FINISH_UNIT_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4346__AT_FINISH_UNIT_L.val, "AT_FINISH_UNIT_LAST", sizeof(cdat->dstr_4346__AT_FINISH_UNIT_L.val)-1);
- 
- /*iniobj dsym_4347__AT_START_UNIT_FIRST*/
- if (!/*_.VALDATA___V4366*/ curfptr[4365]) /*_.VALDATA___V4366*/ curfptr[4365] = (void*)&cdat->dsym_4347__AT_START_UNIT_FIRST;
-  melt_assertmsg("iniobj checkdiscr dsym_4347__AT_START_UNIT_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4347__AT_START_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4347__AT_START_UNIT_FIRST.obj_hash = 5283802;
-  cdat->dsym_4347__AT_START_UNIT_FIRST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4347__AT_START_UNIT_FIRST));
- 
- /*inistring dstr_4348__AT_START_UNIT_FI*/
- /*_.VALSTR___V4367*/ curfptr[4366] = (void*)&cdat->dstr_4348__AT_START_UNIT_FI;
-  cdat->dstr_4348__AT_START_UNIT_FI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4348__AT_START_UNIT_FI.val, "AT_START_UNIT_FIRST", sizeof(cdat->dstr_4348__AT_START_UNIT_FI.val)-1);
- 
- /*iniobj dsym_4349__AT_START_UNIT_LAST*/
- if (!/*_.VALDATA___V4368*/ curfptr[4367]) /*_.VALDATA___V4368*/ curfptr[4367] = (void*)&cdat->dsym_4349__AT_START_UNIT_LAST;
-  melt_assertmsg("iniobj checkdiscr dsym_4349__AT_START_UNIT_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4349__AT_START_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4349__AT_START_UNIT_LAST.obj_hash = 1055760715;
-  cdat->dsym_4349__AT_START_UNIT_LAST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4349__AT_START_UNIT_LAST));
- 
- /*inistring dstr_4350__AT_START_UNIT_LA*/
- /*_.VALSTR___V4369*/ curfptr[4368] = (void*)&cdat->dstr_4350__AT_START_UNIT_LA;
-  cdat->dstr_4350__AT_START_UNIT_LA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4350__AT_START_UNIT_LA.val, "AT_START_UNIT_LAST", sizeof(cdat->dstr_4350__AT_START_UNIT_LA.val)-1);
- 
- /*iniobj dsym_4351__CLONE_SYMBOL*/
- if (!/*_.VALDATA___V4370*/ curfptr[4369]) /*_.VALDATA___V4370*/ curfptr[4369] = (void*)&cdat->dsym_4351__CLONE_SYMBOL;
-  melt_assertmsg("iniobj checkdiscr dsym_4351__CLONE_SYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4351__CLONE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4351__CLONE_SYMBOL.obj_hash = 213258240;
-  cdat->dsym_4351__CLONE_SYMBOL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4351__CLONE_SYMBOL));
- 
- /*inistring dstr_4352__CLONE_SYMBOL*/
- /*_.VALSTR___V4371*/ curfptr[4370] = (void*)&cdat->dstr_4352__CLONE_SYMBOL;
-  cdat->dstr_4352__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4352__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof(cdat->dstr_4352__CLONE_SYMBOL.val)-1);
- 
- /*iniobj dsym_4353__CLOSURE_EVERY*/
- if (!/*_.VALDATA___V4372*/ curfptr[4371]) /*_.VALDATA___V4372*/ curfptr[4371] = (void*)&cdat->dsym_4353__CLOSURE_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4353__CLOSURE_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4353__CLOSURE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4353__CLOSURE_EVERY.obj_hash = 729040422;
-  cdat->dsym_4353__CLOSURE_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4353__CLOSURE_EVERY));
- 
- /*inistring dstr_4354__CLOSURE_EVERY*/
- /*_.VALSTR___V4373*/ curfptr[4372] = (void*)&cdat->dstr_4354__CLOSURE_EVERY;
-  cdat->dstr_4354__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4354__CLOSURE_EVERY.val, "CLOSURE_EVERY", sizeof(cdat->dstr_4354__CLOSURE_EVERY.val)-1);
- 
- /*iniobj dsym_4355__COMPARE_NAMED_ALPHA*/
- if (!/*_.VALDATA___V4374*/ curfptr[4373]) /*_.VALDATA___V4374*/ curfptr[4373] = (void*)&cdat->dsym_4355__COMPARE_NAMED_ALPHA;
-  melt_assertmsg("iniobj checkdiscr dsym_4355__COMPARE_NAMED_ALPHA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4355__COMPARE_NAMED_ALPHA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4355__COMPARE_NAMED_ALPHA.obj_hash = 155514911;
-  cdat->dsym_4355__COMPARE_NAMED_ALPHA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4355__COMPARE_NAMED_ALPHA));
- 
- /*inistring dstr_4356__COMPARE_NAMED_AL*/
- /*_.VALSTR___V4375*/ curfptr[4374] = (void*)&cdat->dstr_4356__COMPARE_NAMED_AL;
-  cdat->dstr_4356__COMPARE_NAMED_AL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4356__COMPARE_NAMED_AL.val, "COMPARE_NAMED_ALPHA", sizeof(cdat->dstr_4356__COMPARE_NAMED_AL.val)-1);
- 
- /*iniobj dsym_4357__COMPARE_OBJ_RANKED*/
- if (!/*_.VALDATA___V4376*/ curfptr[4375]) /*_.VALDATA___V4376*/ curfptr[4375] = (void*)&cdat->dsym_4357__COMPARE_OBJ_RANKED;
-  melt_assertmsg("iniobj checkdiscr dsym_4357__COMPARE_OBJ_RANKED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4357__COMPARE_OBJ_RANKED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4357__COMPARE_OBJ_RANKED.obj_hash = 657124045;
-  cdat->dsym_4357__COMPARE_OBJ_RANKED.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4357__COMPARE_OBJ_RANKED));
- 
- /*inistring dstr_4358__COMPARE_OBJ_RANK*/
- /*_.VALSTR___V4377*/ curfptr[4376] = (void*)&cdat->dstr_4358__COMPARE_OBJ_RANK;
-  cdat->dstr_4358__COMPARE_OBJ_RANK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4358__COMPARE_OBJ_RANK.val, "COMPARE_OBJ_RANKED", sizeof(cdat->dstr_4358__COMPARE_OBJ_RANK.val)-1);
- 
- /*iniobj dsym_4359__CSTRING_SAME*/
- if (!/*_.VALDATA___V4378*/ curfptr[4377]) /*_.VALDATA___V4378*/ curfptr[4377] = (void*)&cdat->dsym_4359__CSTRING_SAME;
-  melt_assertmsg("iniobj checkdiscr dsym_4359__CSTRING_SAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4359__CSTRING_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4359__CSTRING_SAME.obj_hash = 180971052;
-  cdat->dsym_4359__CSTRING_SAME.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4359__CSTRING_SAME));
- 
- /*inistring dstr_4360__CSTRING_SAME*/
- /*_.VALSTR___V4379*/ curfptr[4378] = (void*)&cdat->dstr_4360__CSTRING_SAME;
-  cdat->dstr_4360__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4360__CSTRING_SAME.val, "CSTRING_SAME", sizeof(cdat->dstr_4360__CSTRING_SAME.val)-1);
- 
- /*iniobj dsym_4361__DBG_OUT*/
- if (!/*_.VALDATA___V4380*/ curfptr[4379]) /*_.VALDATA___V4380*/ curfptr[4379] = (void*)&cdat->dsym_4361__DBG_OUT;
-  melt_assertmsg("iniobj checkdiscr dsym_4361__DBG_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4361__DBG_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4361__DBG_OUT.obj_hash = 492035674;
-  cdat->dsym_4361__DBG_OUT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4361__DBG_OUT));
- 
- /*inistring dstr_4362__DBG_OUT*/
- /*_.VALSTR___V4381*/ curfptr[4380] = (void*)&cdat->dstr_4362__DBG_OUT;
-  cdat->dstr_4362__DBG_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4362__DBG_OUT.val, "DBG_OUT", sizeof(cdat->dstr_4362__DBG_OUT.val)-1);
- 
- /*iniobj dsym_4363__DBG_OUTOBJECT*/
- if (!/*_.VALDATA___V4382*/ curfptr[4381]) /*_.VALDATA___V4382*/ curfptr[4381] = (void*)&cdat->dsym_4363__DBG_OUTOBJECT;
-  melt_assertmsg("iniobj checkdiscr dsym_4363__DBG_OUTOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4363__DBG_OUTOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4363__DBG_OUTOBJECT.obj_hash = 723698673;
-  cdat->dsym_4363__DBG_OUTOBJECT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4363__DBG_OUTOBJECT));
- 
- /*inistring dstr_4364__DBG_OUTOBJECT*/
- /*_.VALSTR___V4383*/ curfptr[4382] = (void*)&cdat->dstr_4364__DBG_OUTOBJECT;
-  cdat->dstr_4364__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4364__DBG_OUTOBJECT.val, "DBG_OUTOBJECT", sizeof(cdat->dstr_4364__DBG_OUTOBJECT.val)-1);
- 
- /*iniobj dsym_4365__DBGOUT_FIELDS*/
- if (!/*_.VALDATA___V4384*/ curfptr[4383]) /*_.VALDATA___V4384*/ curfptr[4383] = (void*)&cdat->dsym_4365__DBGOUT_FIELDS;
-  melt_assertmsg("iniobj checkdiscr dsym_4365__DBGOUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4365__DBGOUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4365__DBGOUT_FIELDS.obj_hash = 795625446;
-  cdat->dsym_4365__DBGOUT_FIELDS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4365__DBGOUT_FIELDS));
- 
- /*inistring dstr_4366__DBGOUT_FIELDS*/
- /*_.VALSTR___V4385*/ curfptr[4384] = (void*)&cdat->dstr_4366__DBGOUT_FIELDS;
-  cdat->dstr_4366__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4366__DBGOUT_FIELDS.val, "DBGOUT_FIELDS", sizeof(cdat->dstr_4366__DBGOUT_FIELDS.val)-1);
- 
- /*iniobj dsym_4367__DBGOUTAGAIN_FIELDS*/
- if (!/*_.VALDATA___V4386*/ curfptr[4385]) /*_.VALDATA___V4386*/ curfptr[4385] = (void*)&cdat->dsym_4367__DBGOUTAGAIN_FIELDS;
-  melt_assertmsg("iniobj checkdiscr dsym_4367__DBGOUTAGAIN_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4367__DBGOUTAGAIN_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4367__DBGOUTAGAIN_FIELDS.obj_hash = 961773165;
-  cdat->dsym_4367__DBGOUTAGAIN_FIELDS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4367__DBGOUTAGAIN_FIELDS));
- 
- /*inistring dstr_4368__DBGOUTAGAIN_FIEL*/
- /*_.VALSTR___V4387*/ curfptr[4386] = (void*)&cdat->dstr_4368__DBGOUTAGAIN_FIEL;
-  cdat->dstr_4368__DBGOUTAGAIN_FIEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4368__DBGOUTAGAIN_FIEL.val, "DBGOUTAGAIN_FIELDS", sizeof(cdat->dstr_4368__DBGOUTAGAIN_FIEL.val)-1);
- 
- /*iniobj dsym_4369__DEBUG_MSG_FUN*/
- if (!/*_.VALDATA___V4388*/ curfptr[4387]) /*_.VALDATA___V4388*/ curfptr[4387] = (void*)&cdat->dsym_4369__DEBUG_MSG_FUN;
-  melt_assertmsg("iniobj checkdiscr dsym_4369__DEBUG_MSG_FUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4369__DEBUG_MSG_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4369__DEBUG_MSG_FUN.obj_hash = 938829072;
-  cdat->dsym_4369__DEBUG_MSG_FUN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4369__DEBUG_MSG_FUN));
- 
- /*inistring dstr_4370__DEBUG_MSG_FUN*/
- /*_.VALSTR___V4389*/ curfptr[4388] = (void*)&cdat->dstr_4370__DEBUG_MSG_FUN;
-  cdat->dstr_4370__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4370__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof(cdat->dstr_4370__DEBUG_MSG_FUN.val)-1);
- 
- /*iniobj dsym_4371__DEBUGMSG*/
- if (!/*_.VALDATA___V4390*/ curfptr[4389]) /*_.VALDATA___V4390*/ curfptr[4389] = (void*)&cdat->dsym_4371__DEBUGMSG;
-  melt_assertmsg("iniobj checkdiscr dsym_4371__DEBUGMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4371__DEBUGMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4371__DEBUGMSG.obj_hash = 154774102;
-  cdat->dsym_4371__DEBUGMSG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4371__DEBUGMSG));
- 
- /*inistring dstr_4372__DEBUGMSG*/
- /*_.VALSTR___V4391*/ curfptr[4390] = (void*)&cdat->dstr_4372__DEBUGMSG;
-  cdat->dstr_4372__DEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4372__DEBUGMSG.val, "DEBUGMSG", sizeof(cdat->dstr_4372__DEBUGMSG.val)-1);
- 
- /*iniobj dsym_4373__DISPLAY_DEBUG_MESSAGE*/
- if (!/*_.VALDATA___V4392*/ curfptr[4391]) /*_.VALDATA___V4392*/ curfptr[4391] = (void*)&cdat->dsym_4373__DISPLAY_DEBUG_MESSAGE;
-  melt_assertmsg("iniobj checkdiscr dsym_4373__DISPLAY_DEBUG_MESSAGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4373__DISPLAY_DEBUG_MESSAGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4373__DISPLAY_DEBUG_MESSAGE.obj_hash = 759618783;
-  cdat->dsym_4373__DISPLAY_DEBUG_MESSAGE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4373__DISPLAY_DEBUG_MESSAGE));
- 
- /*inistring dstr_4374__DISPLAY_DEBUG_ME*/
- /*_.VALSTR___V4393*/ curfptr[4392] = (void*)&cdat->dstr_4374__DISPLAY_DEBUG_ME;
-  cdat->dstr_4374__DISPLAY_DEBUG_ME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4374__DISPLAY_DEBUG_ME.val, "DISPLAY_DEBUG_MESSAGE", sizeof(cdat->dstr_4374__DISPLAY_DEBUG_ME.val)-1);
- 
- /*iniobj dsym_4375__FIND_ENCLOSING_ENV*/
- if (!/*_.VALDATA___V4394*/ curfptr[4393]) /*_.VALDATA___V4394*/ curfptr[4393] = (void*)&cdat->dsym_4375__FIND_ENCLOSING_ENV;
-  melt_assertmsg("iniobj checkdiscr dsym_4375__FIND_ENCLOSING_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4375__FIND_ENCLOSING_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4375__FIND_ENCLOSING_ENV.obj_hash = 227770701;
-  cdat->dsym_4375__FIND_ENCLOSING_ENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4375__FIND_ENCLOSING_ENV));
- 
- /*inistring dstr_4376__FIND_ENCLOSING_E*/
- /*_.VALSTR___V4395*/ curfptr[4394] = (void*)&cdat->dstr_4376__FIND_ENCLOSING_E;
-  cdat->dstr_4376__FIND_ENCLOSING_E.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4376__FIND_ENCLOSING_E.val, "FIND_ENCLOSING_ENV", sizeof(cdat->dstr_4376__FIND_ENCLOSING_E.val)-1);
- 
- /*iniobj dsym_4377__FIND_ENV*/
- if (!/*_.VALDATA___V4396*/ curfptr[4395]) /*_.VALDATA___V4396*/ curfptr[4395] = (void*)&cdat->dsym_4377__FIND_ENV;
-  melt_assertmsg("iniobj checkdiscr dsym_4377__FIND_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4377__FIND_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4377__FIND_ENV.obj_hash = 233459738;
-  cdat->dsym_4377__FIND_ENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4377__FIND_ENV));
- 
- /*inistring dstr_4378__FIND_ENV*/
- /*_.VALSTR___V4397*/ curfptr[4396] = (void*)&cdat->dstr_4378__FIND_ENV;
-  cdat->dstr_4378__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4378__FIND_ENV.val, "FIND_ENV", sizeof(cdat->dstr_4378__FIND_ENV.val)-1);
- 
- /*iniobj dsym_4379__FIND_ENV_DEBUG*/
- if (!/*_.VALDATA___V4398*/ curfptr[4397]) /*_.VALDATA___V4398*/ curfptr[4397] = (void*)&cdat->dsym_4379__FIND_ENV_DEBUG;
-  melt_assertmsg("iniobj checkdiscr dsym_4379__FIND_ENV_DEBUG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4379__FIND_ENV_DEBUG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4379__FIND_ENV_DEBUG.obj_hash = 670001916;
-  cdat->dsym_4379__FIND_ENV_DEBUG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4379__FIND_ENV_DEBUG));
- 
- /*inistring dstr_4380__FIND_ENV_DEBUG*/
- /*_.VALSTR___V4399*/ curfptr[4398] = (void*)&cdat->dstr_4380__FIND_ENV_DEBUG;
-  cdat->dstr_4380__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4380__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof(cdat->dstr_4380__FIND_ENV_DEBUG.val)-1);
- 
- /*iniobj dsym_4381__FRESH_ENV*/
- if (!/*_.VALDATA___V4400*/ curfptr[4399]) /*_.VALDATA___V4400*/ curfptr[4399] = (void*)&cdat->dsym_4381__FRESH_ENV;
-  melt_assertmsg("iniobj checkdiscr dsym_4381__FRESH_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4381__FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4381__FRESH_ENV.obj_hash = 1002363940;
-  cdat->dsym_4381__FRESH_ENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4381__FRESH_ENV));
- 
- /*inistring dstr_4382__FRESH_ENV*/
- /*_.VALSTR___V4401*/ curfptr[4400] = (void*)&cdat->dstr_4382__FRESH_ENV;
-  cdat->dstr_4382__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4382__FRESH_ENV.val, "FRESH_ENV", sizeof(cdat->dstr_4382__FRESH_ENV.val)-1);
- 
- /*iniobj dsym_4383__INSTALL_CTYPE_DESCR*/
- if (!/*_.VALDATA___V4402*/ curfptr[4401]) /*_.VALDATA___V4402*/ curfptr[4401] = (void*)&cdat->dsym_4383__INSTALL_CTYPE_DESCR;
-  melt_assertmsg("iniobj checkdiscr dsym_4383__INSTALL_CTYPE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4383__INSTALL_CTYPE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4383__INSTALL_CTYPE_DESCR.obj_hash = 1019986423;
-  cdat->dsym_4383__INSTALL_CTYPE_DESCR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4383__INSTALL_CTYPE_DESCR));
- 
- /*inistring dstr_4384__INSTALL_CTYPE_DE*/
- /*_.VALSTR___V4403*/ curfptr[4402] = (void*)&cdat->dstr_4384__INSTALL_CTYPE_DE;
-  cdat->dstr_4384__INSTALL_CTYPE_DE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4384__INSTALL_CTYPE_DE.val, "INSTALL_CTYPE_DESCR", sizeof(cdat->dstr_4384__INSTALL_CTYPE_DE.val)-1);
- 
- /*iniobj dsym_4385__INSTALL_METHOD*/
- if (!/*_.VALDATA___V4404*/ curfptr[4403]) /*_.VALDATA___V4404*/ curfptr[4403] = (void*)&cdat->dsym_4385__INSTALL_METHOD;
-  melt_assertmsg("iniobj checkdiscr dsym_4385__INSTALL_METHOD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4385__INSTALL_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4385__INSTALL_METHOD.obj_hash = 680699224;
-  cdat->dsym_4385__INSTALL_METHOD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4385__INSTALL_METHOD));
- 
- /*inistring dstr_4386__INSTALL_METHOD*/
- /*_.VALSTR___V4405*/ curfptr[4404] = (void*)&cdat->dstr_4386__INSTALL_METHOD;
-  cdat->dstr_4386__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4386__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof(cdat->dstr_4386__INSTALL_METHOD.val)-1);
- 
- /*iniobj dsym_4387__LIST1*/
- if (!/*_.VALDATA___V4406*/ curfptr[4405]) /*_.VALDATA___V4406*/ curfptr[4405] = (void*)&cdat->dsym_4387__LIST1;
-  melt_assertmsg("iniobj checkdiscr dsym_4387__LIST1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4387__LIST1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4387__LIST1.obj_hash = 547472310;
-  cdat->dsym_4387__LIST1.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4387__LIST1));
- 
- /*inistring dstr_4388__LIST1*/
- /*_.VALSTR___V4407*/ curfptr[4406] = (void*)&cdat->dstr_4388__LIST1;
-  cdat->dstr_4388__LIST1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4388__LIST1.val, "LIST1", sizeof(cdat->dstr_4388__LIST1.val)-1);
- 
- /*iniobj dsym_4389__LIST2*/
- if (!/*_.VALDATA___V4408*/ curfptr[4407]) /*_.VALDATA___V4408*/ curfptr[4407] = (void*)&cdat->dsym_4389__LIST2;
-  melt_assertmsg("iniobj checkdiscr dsym_4389__LIST2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4389__LIST2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4389__LIST2.obj_hash = 702154144;
-  cdat->dsym_4389__LIST2.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4389__LIST2));
- 
- /*inistring dstr_4390__LIST2*/
- /*_.VALSTR___V4409*/ curfptr[4408] = (void*)&cdat->dstr_4390__LIST2;
-  cdat->dstr_4390__LIST2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4390__LIST2.val, "LIST2", sizeof(cdat->dstr_4390__LIST2.val)-1);
- 
- /*iniobj dsym_4391__LIST3*/
- if (!/*_.VALDATA___V4410*/ curfptr[4409]) /*_.VALDATA___V4410*/ curfptr[4409] = (void*)&cdat->dsym_4391__LIST3;
-  melt_assertmsg("iniobj checkdiscr dsym_4391__LIST3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4391__LIST3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4391__LIST3.obj_hash = 540589939;
-  cdat->dsym_4391__LIST3.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4391__LIST3));
- 
- /*inistring dstr_4392__LIST3*/
- /*_.VALSTR___V4411*/ curfptr[4410] = (void*)&cdat->dstr_4392__LIST3;
-  cdat->dstr_4392__LIST3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4392__LIST3.val, "LIST3", sizeof(cdat->dstr_4392__LIST3.val)-1);
- 
- /*iniobj dsym_4393__LIST4*/
- if (!/*_.VALDATA___V4412*/ curfptr[4411]) /*_.VALDATA___V4412*/ curfptr[4411] = (void*)&cdat->dsym_4393__LIST4;
-  melt_assertmsg("iniobj checkdiscr dsym_4393__LIST4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4393__LIST4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4393__LIST4.obj_hash = 986933846;
-  cdat->dsym_4393__LIST4.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4393__LIST4));
- 
- /*inistring dstr_4394__LIST4*/
- /*_.VALSTR___V4413*/ curfptr[4412] = (void*)&cdat->dstr_4394__LIST4;
-  cdat->dstr_4394__LIST4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4394__LIST4.val, "LIST4", sizeof(cdat->dstr_4394__LIST4.val)-1);
- 
- /*iniobj dsym_4395__LIST5*/
- if (!/*_.VALDATA___V4414*/ curfptr[4413]) /*_.VALDATA___V4414*/ curfptr[4413] = (void*)&cdat->dsym_4395__LIST5;
-  melt_assertmsg("iniobj checkdiscr dsym_4395__LIST5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4395__LIST5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4395__LIST5.obj_hash = 888750484;
-  cdat->dsym_4395__LIST5.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4395__LIST5));
- 
- /*inistring dstr_4396__LIST5*/
- /*_.VALSTR___V4415*/ curfptr[4414] = (void*)&cdat->dstr_4396__LIST5;
-  cdat->dstr_4396__LIST5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4396__LIST5.val, "LIST5", sizeof(cdat->dstr_4396__LIST5.val)-1);
- 
- /*iniobj dsym_4397__LIST6*/
- if (!/*_.VALDATA___V4416*/ curfptr[4415]) /*_.VALDATA___V4416*/ curfptr[4415] = (void*)&cdat->dsym_4397__LIST6;
-  melt_assertmsg("iniobj checkdiscr dsym_4397__LIST6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4397__LIST6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4397__LIST6.obj_hash = 649348708;
-  cdat->dsym_4397__LIST6.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4397__LIST6));
- 
- /*inistring dstr_4398__LIST6*/
- /*_.VALSTR___V4417*/ curfptr[4416] = (void*)&cdat->dstr_4398__LIST6;
-  cdat->dstr_4398__LIST6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4398__LIST6.val, "LIST6", sizeof(cdat->dstr_4398__LIST6.val)-1);
- 
- /*iniobj dsym_4399__LIST_APPEND2LIST*/
- if (!/*_.VALDATA___V4418*/ curfptr[4417]) /*_.VALDATA___V4418*/ curfptr[4417] = (void*)&cdat->dsym_4399__LIST_APPEND2LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_4399__LIST_APPEND2LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4399__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4399__LIST_APPEND2LIST.obj_hash = 744841630;
-  cdat->dsym_4399__LIST_APPEND2LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4399__LIST_APPEND2LIST));
- 
- /*inistring dstr_4400__LIST_APPEND2LIST*/
- /*_.VALSTR___V4419*/ curfptr[4418] = (void*)&cdat->dstr_4400__LIST_APPEND2LIST;
-  cdat->dstr_4400__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4400__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof(cdat->dstr_4400__LIST_APPEND2LIST.val)-1);
- 
- /*iniobj dsym_4401__LIST_EVERY*/
- if (!/*_.VALDATA___V4420*/ curfptr[4419]) /*_.VALDATA___V4420*/ curfptr[4419] = (void*)&cdat->dsym_4401__LIST_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4401__LIST_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4401__LIST_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4401__LIST_EVERY.obj_hash = 942863429;
-  cdat->dsym_4401__LIST_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4401__LIST_EVERY));
- 
- /*inistring dstr_4402__LIST_EVERY*/
- /*_.VALSTR___V4421*/ curfptr[4420] = (void*)&cdat->dstr_4402__LIST_EVERY;
-  cdat->dstr_4402__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4402__LIST_EVERY.val, "LIST_EVERY", sizeof(cdat->dstr_4402__LIST_EVERY.val)-1);
- 
- /*iniobj dsym_4403__LIST_ITERATE_TEST*/
- if (!/*_.VALDATA___V4422*/ curfptr[4421]) /*_.VALDATA___V4422*/ curfptr[4421] = (void*)&cdat->dsym_4403__LIST_ITERATE_TEST;
-  melt_assertmsg("iniobj checkdiscr dsym_4403__LIST_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4403__LIST_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4403__LIST_ITERATE_TEST.obj_hash = 561820482;
-  cdat->dsym_4403__LIST_ITERATE_TEST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4403__LIST_ITERATE_TEST));
- 
- /*inistring dstr_4404__LIST_ITERATE_TES*/
- /*_.VALSTR___V4423*/ curfptr[4422] = (void*)&cdat->dstr_4404__LIST_ITERATE_TES;
-  cdat->dstr_4404__LIST_ITERATE_TES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4404__LIST_ITERATE_TES.val, "LIST_ITERATE_TEST", sizeof(cdat->dstr_4404__LIST_ITERATE_TES.val)-1);
- 
- /*iniobj dsym_4405__LIST_MAP*/
- if (!/*_.VALDATA___V4424*/ curfptr[4423]) /*_.VALDATA___V4424*/ curfptr[4423] = (void*)&cdat->dsym_4405__LIST_MAP;
-  melt_assertmsg("iniobj checkdiscr dsym_4405__LIST_MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4405__LIST_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4405__LIST_MAP.obj_hash = 941133477;
-  cdat->dsym_4405__LIST_MAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4405__LIST_MAP));
- 
- /*inistring dstr_4406__LIST_MAP*/
- /*_.VALSTR___V4425*/ curfptr[4424] = (void*)&cdat->dstr_4406__LIST_MAP;
-  cdat->dstr_4406__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4406__LIST_MAP.val, "LIST_MAP", sizeof(cdat->dstr_4406__LIST_MAP.val)-1);
- 
- /*iniobj dsym_4407__LIST_TO_MULTIPLE*/
- if (!/*_.VALDATA___V4426*/ curfptr[4425]) /*_.VALDATA___V4426*/ curfptr[4425] = (void*)&cdat->dsym_4407__LIST_TO_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_4407__LIST_TO_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4407__LIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4407__LIST_TO_MULTIPLE.obj_hash = 987171205;
-  cdat->dsym_4407__LIST_TO_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4407__LIST_TO_MULTIPLE));
- 
- /*inistring dstr_4408__LIST_TO_MULTIPLE*/
- /*_.VALSTR___V4427*/ curfptr[4426] = (void*)&cdat->dstr_4408__LIST_TO_MULTIPLE;
-  cdat->dstr_4408__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4408__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof(cdat->dstr_4408__LIST_TO_MULTIPLE.val)-1);
- 
- /*iniobj dsym_4409__MAPOBJECT_EVERY*/
- if (!/*_.VALDATA___V4428*/ curfptr[4427]) /*_.VALDATA___V4428*/ curfptr[4427] = (void*)&cdat->dsym_4409__MAPOBJECT_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4409__MAPOBJECT_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4409__MAPOBJECT_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4409__MAPOBJECT_EVERY.obj_hash = 726732435;
-  cdat->dsym_4409__MAPOBJECT_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4409__MAPOBJECT_EVERY));
- 
- /*inistring dstr_4410__MAPOBJECT_EVERY*/
- /*_.VALSTR___V4429*/ curfptr[4428] = (void*)&cdat->dstr_4410__MAPOBJECT_EVERY;
-  cdat->dstr_4410__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4410__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof(cdat->dstr_4410__MAPOBJECT_EVERY.val)-1);
- 
- /*iniobj dsym_4411__MAPOBJECT_ITERATE_TEST*/
- if (!/*_.VALDATA___V4430*/ curfptr[4429]) /*_.VALDATA___V4430*/ curfptr[4429] = (void*)&cdat->dsym_4411__MAPOBJECT_ITERATE_TEST;
-  melt_assertmsg("iniobj checkdiscr dsym_4411__MAPOBJECT_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4411__MAPOBJECT_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4411__MAPOBJECT_ITERATE_TEST.obj_hash = 873816186;
-  cdat->dsym_4411__MAPOBJECT_ITERATE_TEST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4411__MAPOBJECT_ITERATE_TEST));
- 
- /*inistring dstr_4412__MAPOBJECT_ITERAT*/
- /*_.VALSTR___V4431*/ curfptr[4430] = (void*)&cdat->dstr_4412__MAPOBJECT_ITERAT;
-  cdat->dstr_4412__MAPOBJECT_ITERAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4412__MAPOBJECT_ITERAT.val, "MAPOBJECT_ITERATE_TEST", sizeof(cdat->dstr_4412__MAPOBJECT_ITERAT.val)-1);
- 
- /*iniobj dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
- if (!/*_.VALDATA___V4432*/ curfptr[4431]) /*_.VALDATA___V4432*/ curfptr[4431] = (void*)&cdat->dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_hash = 966537230;
-  cdat->dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4413__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE));
- 
- /*inistring dstr_4414__MAPOBJECT_SORTED*/
- /*_.VALSTR___V4433*/ curfptr[4432] = (void*)&cdat->dstr_4414__MAPOBJECT_SORTED;
-  cdat->dstr_4414__MAPOBJECT_SORTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4414__MAPOBJECT_SORTED.val, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", sizeof(cdat->dstr_4414__MAPOBJECT_SORTED.val)-1);
- 
- /*iniobj dsym_4415__MAPSTRING_EVERY*/
- if (!/*_.VALDATA___V4434*/ curfptr[4433]) /*_.VALDATA___V4434*/ curfptr[4433] = (void*)&cdat->dsym_4415__MAPSTRING_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4415__MAPSTRING_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4415__MAPSTRING_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4415__MAPSTRING_EVERY.obj_hash = 173778712;
-  cdat->dsym_4415__MAPSTRING_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4415__MAPSTRING_EVERY));
- 
- /*inistring dstr_4416__MAPSTRING_EVERY*/
- /*_.VALSTR___V4435*/ curfptr[4434] = (void*)&cdat->dstr_4416__MAPSTRING_EVERY;
-  cdat->dstr_4416__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4416__MAPSTRING_EVERY.val, "MAPSTRING_EVERY", sizeof(cdat->dstr_4416__MAPSTRING_EVERY.val)-1);
- 
- /*iniobj dsym_4417__MAPSTRING_ITERATE_TEST*/
- if (!/*_.VALDATA___V4436*/ curfptr[4435]) /*_.VALDATA___V4436*/ curfptr[4435] = (void*)&cdat->dsym_4417__MAPSTRING_ITERATE_TEST;
-  melt_assertmsg("iniobj checkdiscr dsym_4417__MAPSTRING_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4417__MAPSTRING_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4417__MAPSTRING_ITERATE_TEST.obj_hash = 933389776;
-  cdat->dsym_4417__MAPSTRING_ITERATE_TEST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4417__MAPSTRING_ITERATE_TEST));
- 
- /*inistring dstr_4418__MAPSTRING_ITERAT*/
- /*_.VALSTR___V4437*/ curfptr[4436] = (void*)&cdat->dstr_4418__MAPSTRING_ITERAT;
-  cdat->dstr_4418__MAPSTRING_ITERAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4418__MAPSTRING_ITERAT.val, "MAPSTRING_ITERATE_TEST", sizeof(cdat->dstr_4418__MAPSTRING_ITERAT.val)-1);
- 
- /*iniobj dsym_4419__MULTIPLE_BACKWARD_EVERY*/
- if (!/*_.VALDATA___V4438*/ curfptr[4437]) /*_.VALDATA___V4438*/ curfptr[4437] = (void*)&cdat->dsym_4419__MULTIPLE_BACKWARD_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4419__MULTIPLE_BACKWARD_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4419__MULTIPLE_BACKWARD_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4419__MULTIPLE_BACKWARD_EVERY.obj_hash = 79677830;
-  cdat->dsym_4419__MULTIPLE_BACKWARD_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4419__MULTIPLE_BACKWARD_EVERY));
- 
- /*inistring dstr_4420__MULTIPLE_BACKWAR*/
- /*_.VALSTR___V4439*/ curfptr[4438] = (void*)&cdat->dstr_4420__MULTIPLE_BACKWAR;
-  cdat->dstr_4420__MULTIPLE_BACKWAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4420__MULTIPLE_BACKWAR.val, "MULTIPLE_BACKWARD_EVERY", sizeof(cdat->dstr_4420__MULTIPLE_BACKWAR.val)-1);
- 
- /*iniobj dsym_4421__MULTIPLE_EVERY*/
- if (!/*_.VALDATA___V4440*/ curfptr[4439]) /*_.VALDATA___V4440*/ curfptr[4439] = (void*)&cdat->dsym_4421__MULTIPLE_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4421__MULTIPLE_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4421__MULTIPLE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4421__MULTIPLE_EVERY.obj_hash = 130098745;
-  cdat->dsym_4421__MULTIPLE_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4421__MULTIPLE_EVERY));
- 
- /*inistring dstr_4422__MULTIPLE_EVERY*/
- /*_.VALSTR___V4441*/ curfptr[4440] = (void*)&cdat->dstr_4422__MULTIPLE_EVERY;
-  cdat->dstr_4422__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4422__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof(cdat->dstr_4422__MULTIPLE_EVERY.val)-1);
- 
- /*iniobj dsym_4423__MULTIPLE_EVERY_BOTH*/
- if (!/*_.VALDATA___V4442*/ curfptr[4441]) /*_.VALDATA___V4442*/ curfptr[4441] = (void*)&cdat->dsym_4423__MULTIPLE_EVERY_BOTH;
-  melt_assertmsg("iniobj checkdiscr dsym_4423__MULTIPLE_EVERY_BOTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4423__MULTIPLE_EVERY_BOTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4423__MULTIPLE_EVERY_BOTH.obj_hash = 528900272;
-  cdat->dsym_4423__MULTIPLE_EVERY_BOTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4423__MULTIPLE_EVERY_BOTH));
- 
- /*inistring dstr_4424__MULTIPLE_EVERY_B*/
- /*_.VALSTR___V4443*/ curfptr[4442] = (void*)&cdat->dstr_4424__MULTIPLE_EVERY_B;
-  cdat->dstr_4424__MULTIPLE_EVERY_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4424__MULTIPLE_EVERY_B.val, "MULTIPLE_EVERY_BOTH", sizeof(cdat->dstr_4424__MULTIPLE_EVERY_B.val)-1);
- 
- /*iniobj dsym_4425__MULTIPLE_ITERATE_TEST*/
- if (!/*_.VALDATA___V4444*/ curfptr[4443]) /*_.VALDATA___V4444*/ curfptr[4443] = (void*)&cdat->dsym_4425__MULTIPLE_ITERATE_TEST;
-  melt_assertmsg("iniobj checkdiscr dsym_4425__MULTIPLE_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4425__MULTIPLE_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4425__MULTIPLE_ITERATE_TEST.obj_hash = 823464346;
-  cdat->dsym_4425__MULTIPLE_ITERATE_TEST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4425__MULTIPLE_ITERATE_TEST));
- 
- /*inistring dstr_4426__MULTIPLE_ITERATE*/
- /*_.VALSTR___V4445*/ curfptr[4444] = (void*)&cdat->dstr_4426__MULTIPLE_ITERATE;
-  cdat->dstr_4426__MULTIPLE_ITERATE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4426__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof(cdat->dstr_4426__MULTIPLE_ITERATE.val)-1);
- 
- /*iniobj dsym_4427__MULTIPLE_MAP*/
- if (!/*_.VALDATA___V4446*/ curfptr[4445]) /*_.VALDATA___V4446*/ curfptr[4445] = (void*)&cdat->dsym_4427__MULTIPLE_MAP;
-  melt_assertmsg("iniobj checkdiscr dsym_4427__MULTIPLE_MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4427__MULTIPLE_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4427__MULTIPLE_MAP.obj_hash = 218301686;
-  cdat->dsym_4427__MULTIPLE_MAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4427__MULTIPLE_MAP));
- 
- /*inistring dstr_4428__MULTIPLE_MAP*/
- /*_.VALSTR___V4447*/ curfptr[4446] = (void*)&cdat->dstr_4428__MULTIPLE_MAP;
-  cdat->dstr_4428__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4428__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof(cdat->dstr_4428__MULTIPLE_MAP.val)-1);
- 
- /*iniobj dsym_4429__MULTIPLE_TO_LIST*/
- if (!/*_.VALDATA___V4448*/ curfptr[4447]) /*_.VALDATA___V4448*/ curfptr[4447] = (void*)&cdat->dsym_4429__MULTIPLE_TO_LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_4429__MULTIPLE_TO_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4429__MULTIPLE_TO_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4429__MULTIPLE_TO_LIST.obj_hash = 622139769;
-  cdat->dsym_4429__MULTIPLE_TO_LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4429__MULTIPLE_TO_LIST));
- 
- /*inistring dstr_4430__MULTIPLE_TO_LIST*/
- /*_.VALSTR___V4449*/ curfptr[4448] = (void*)&cdat->dstr_4430__MULTIPLE_TO_LIST;
-  cdat->dstr_4430__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4430__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof(cdat->dstr_4430__MULTIPLE_TO_LIST.val)-1);
- 
- /*iniobj dsym_4431__OVERWRITE_ENV*/
- if (!/*_.VALDATA___V4450*/ curfptr[4449]) /*_.VALDATA___V4450*/ curfptr[4449] = (void*)&cdat->dsym_4431__OVERWRITE_ENV;
-  melt_assertmsg("iniobj checkdiscr dsym_4431__OVERWRITE_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4431__OVERWRITE_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4431__OVERWRITE_ENV.obj_hash = 774789038;
-  cdat->dsym_4431__OVERWRITE_ENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4431__OVERWRITE_ENV));
- 
- /*inistring dstr_4432__OVERWRITE_ENV*/
- /*_.VALSTR___V4451*/ curfptr[4450] = (void*)&cdat->dstr_4432__OVERWRITE_ENV;
-  cdat->dstr_4432__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4432__OVERWRITE_ENV.val, "OVERWRITE_ENV", sizeof(cdat->dstr_4432__OVERWRITE_ENV.val)-1);
- 
- /*iniobj dsym_4433__PAIRLIST_TO_MULTIPLE*/
- if (!/*_.VALDATA___V4452*/ curfptr[4451]) /*_.VALDATA___V4452*/ curfptr[4451] = (void*)&cdat->dsym_4433__PAIRLIST_TO_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_4433__PAIRLIST_TO_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4433__PAIRLIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4433__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322;
-  cdat->dsym_4433__PAIRLIST_TO_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4433__PAIRLIST_TO_MULTIPLE));
- 
- /*inistring dstr_4434__PAIRLIST_TO_MULT*/
- /*_.VALSTR___V4453*/ curfptr[4452] = (void*)&cdat->dstr_4434__PAIRLIST_TO_MULT;
-  cdat->dstr_4434__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4434__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof(cdat->dstr_4434__PAIRLIST_TO_MULT.val)-1);
- 
- /*iniobj dsym_4435__POST_INITIALIZATION*/
- if (!/*_.VALDATA___V4454*/ curfptr[4453]) /*_.VALDATA___V4454*/ curfptr[4453] = (void*)&cdat->dsym_4435__POST_INITIALIZATION;
-  melt_assertmsg("iniobj checkdiscr dsym_4435__POST_INITIALIZATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4435__POST_INITIALIZATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4435__POST_INITIALIZATION.obj_hash = 1066527214;
-  cdat->dsym_4435__POST_INITIALIZATION.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4435__POST_INITIALIZATION));
- 
- /*inistring dstr_4436__POST_INITIALIZAT*/
- /*_.VALSTR___V4455*/ curfptr[4454] = (void*)&cdat->dstr_4436__POST_INITIALIZAT;
-  cdat->dstr_4436__POST_INITIALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4436__POST_INITIALIZAT.val, "POST_INITIALIZATION", sizeof(cdat->dstr_4436__POST_INITIALIZAT.val)-1);
- 
- /*iniobj dsym_4437__PUT_ENV*/
- if (!/*_.VALDATA___V4456*/ curfptr[4455]) /*_.VALDATA___V4456*/ curfptr[4455] = (void*)&cdat->dsym_4437__PUT_ENV;
-  melt_assertmsg("iniobj checkdiscr dsym_4437__PUT_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4437__PUT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4437__PUT_ENV.obj_hash = 440202203;
-  cdat->dsym_4437__PUT_ENV.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4437__PUT_ENV));
- 
- /*inistring dstr_4438__PUT_ENV*/
- /*_.VALSTR___V4457*/ curfptr[4456] = (void*)&cdat->dstr_4438__PUT_ENV;
-  cdat->dstr_4438__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4438__PUT_ENV.val, "PUT_ENV", sizeof(cdat->dstr_4438__PUT_ENV.val)-1);
- 
- /*iniobj dsym_4439__ROUTINE_EVERY*/
- if (!/*_.VALDATA___V4458*/ curfptr[4457]) /*_.VALDATA___V4458*/ curfptr[4457] = (void*)&cdat->dsym_4439__ROUTINE_EVERY;
-  melt_assertmsg("iniobj checkdiscr dsym_4439__ROUTINE_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4439__ROUTINE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4439__ROUTINE_EVERY.obj_hash = 347090207;
-  cdat->dsym_4439__ROUTINE_EVERY.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4439__ROUTINE_EVERY));
- 
- /*inistring dstr_4440__ROUTINE_EVERY*/
- /*_.VALSTR___V4459*/ curfptr[4458] = (void*)&cdat->dstr_4440__ROUTINE_EVERY;
-  cdat->dstr_4440__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4440__ROUTINE_EVERY.val, "ROUTINE_EVERY", sizeof(cdat->dstr_4440__ROUTINE_EVERY.val)-1);
- 
- /*iniobj dsym_4441__TUPLE_NTH*/
- if (!/*_.VALDATA___V4460*/ curfptr[4459]) /*_.VALDATA___V4460*/ curfptr[4459] = (void*)&cdat->dsym_4441__TUPLE_NTH;
-  melt_assertmsg("iniobj checkdiscr dsym_4441__TUPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4441__TUPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4441__TUPLE_NTH.obj_hash = 253823407;
-  cdat->dsym_4441__TUPLE_NTH.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4441__TUPLE_NTH));
- 
- /*inistring dstr_4442__TUPLE_NTH*/
- /*_.VALSTR___V4461*/ curfptr[4460] = (void*)&cdat->dstr_4442__TUPLE_NTH;
-  cdat->dstr_4442__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4442__TUPLE_NTH.val, "TUPLE_NTH", sizeof(cdat->dstr_4442__TUPLE_NTH.val)-1);
- 
- /*iniobj dsym_4443__TUPLE_SIZED*/
- if (!/*_.VALDATA___V4462*/ curfptr[4461]) /*_.VALDATA___V4462*/ curfptr[4461] = (void*)&cdat->dsym_4443__TUPLE_SIZED;
-  melt_assertmsg("iniobj checkdiscr dsym_4443__TUPLE_SIZED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4443__TUPLE_SIZED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4443__TUPLE_SIZED.obj_hash = 620511343;
-  cdat->dsym_4443__TUPLE_SIZED.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4443__TUPLE_SIZED));
- 
- /*inistring dstr_4444__TUPLE_SIZED*/
- /*_.VALSTR___V4463*/ curfptr[4462] = (void*)&cdat->dstr_4444__TUPLE_SIZED;
-  cdat->dstr_4444__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4444__TUPLE_SIZED.val, "TUPLE_SIZED", sizeof(cdat->dstr_4444__TUPLE_SIZED.val)-1);
- 
- /*iniobj dsym_4445__FOREACH_IN_LIST*/
- if (!/*_.VALDATA___V4464*/ curfptr[4463]) /*_.VALDATA___V4464*/ curfptr[4463] = (void*)&cdat->dsym_4445__FOREACH_IN_LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_4445__FOREACH_IN_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4445__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4445__FOREACH_IN_LIST.obj_hash = 664644215;
-  cdat->dsym_4445__FOREACH_IN_LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4445__FOREACH_IN_LIST));
- 
- /*inistring dstr_4446__FOREACH_IN_LIST*/
- /*_.VALSTR___V4465*/ curfptr[4464] = (void*)&cdat->dstr_4446__FOREACH_IN_LIST;
-  cdat->dstr_4446__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4446__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof(cdat->dstr_4446__FOREACH_IN_LIST.val)-1);
- 
- /*iniobj dsym_4447__FOREACH_IN_MAPOBJECT*/
- if (!/*_.VALDATA___V4466*/ curfptr[4465]) /*_.VALDATA___V4466*/ curfptr[4465] = (void*)&cdat->dsym_4447__FOREACH_IN_MAPOBJECT;
-  melt_assertmsg("iniobj checkdiscr dsym_4447__FOREACH_IN_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4447__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4447__FOREACH_IN_MAPOBJECT.obj_hash = 845660309;
-  cdat->dsym_4447__FOREACH_IN_MAPOBJECT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4447__FOREACH_IN_MAPOBJECT));
- 
- /*inistring dstr_4448__FOREACH_IN_MAPOB*/
- /*_.VALSTR___V4467*/ curfptr[4466] = (void*)&cdat->dstr_4448__FOREACH_IN_MAPOB;
-  cdat->dstr_4448__FOREACH_IN_MAPOB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4448__FOREACH_IN_MAPOB.val, "FOREACH_IN_MAPOBJECT", sizeof(cdat->dstr_4448__FOREACH_IN_MAPOB.val)-1);
- 
- /*iniobj dsym_4449__FOREACH_IN_MAPSTRING*/
- if (!/*_.VALDATA___V4468*/ curfptr[4467]) /*_.VALDATA___V4468*/ curfptr[4467] = (void*)&cdat->dsym_4449__FOREACH_IN_MAPSTRING;
-  melt_assertmsg("iniobj checkdiscr dsym_4449__FOREACH_IN_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4449__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4449__FOREACH_IN_MAPSTRING.obj_hash = 16742650;
-  cdat->dsym_4449__FOREACH_IN_MAPSTRING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4449__FOREACH_IN_MAPSTRING));
- 
- /*inistring dstr_4450__FOREACH_IN_MAPST*/
- /*_.VALSTR___V4469*/ curfptr[4468] = (void*)&cdat->dstr_4450__FOREACH_IN_MAPST;
-  cdat->dstr_4450__FOREACH_IN_MAPST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4450__FOREACH_IN_MAPST.val, "FOREACH_IN_MAPSTRING", sizeof(cdat->dstr_4450__FOREACH_IN_MAPST.val)-1);
- 
- /*iniobj dsym_4451__FOREACH_IN_MULTIPLE*/
- if (!/*_.VALDATA___V4470*/ curfptr[4469]) /*_.VALDATA___V4470*/ curfptr[4469] = (void*)&cdat->dsym_4451__FOREACH_IN_MULTIPLE;
-  melt_assertmsg("iniobj checkdiscr dsym_4451__FOREACH_IN_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4451__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4451__FOREACH_IN_MULTIPLE.obj_hash = 692686837;
-  cdat->dsym_4451__FOREACH_IN_MULTIPLE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4451__FOREACH_IN_MULTIPLE));
- 
- /*inistring dstr_4452__FOREACH_IN_MULTI*/
- /*_.VALSTR___V4471*/ curfptr[4470] = (void*)&cdat->dstr_4452__FOREACH_IN_MULTI;
-  cdat->dstr_4452__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4452__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof(cdat->dstr_4452__FOREACH_IN_MULTI.val)-1);
- 
- /*iniobj dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD*/
- if (!/*_.VALDATA___V4472*/ curfptr[4471]) /*_.VALDATA___V4472*/ curfptr[4471] = (void*)&cdat->dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD;
-  melt_assertmsg("iniobj checkdiscr dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 1067970766;
-  cdat->dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4453__FOREACH_IN_MULTIPLE_BACKWARD));
- 
- /*inistring dstr_4454__FOREACH_IN_MULTI*/
- /*_.VALSTR___V4473*/ curfptr[4472] = (void*)&cdat->dstr_4454__FOREACH_IN_MULTI;
-  cdat->dstr_4454__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4454__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof(cdat->dstr_4454__FOREACH_IN_MULTI.val)-1);
- 
- /*iniobj dsym_4455__FOREACH_LONG_UPTO*/
- if (!/*_.VALDATA___V4474*/ curfptr[4473]) /*_.VALDATA___V4474*/ curfptr[4473] = (void*)&cdat->dsym_4455__FOREACH_LONG_UPTO;
-  melt_assertmsg("iniobj checkdiscr dsym_4455__FOREACH_LONG_UPTO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4455__FOREACH_LONG_UPTO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4455__FOREACH_LONG_UPTO.obj_hash = 84906035;
-  cdat->dsym_4455__FOREACH_LONG_UPTO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4455__FOREACH_LONG_UPTO));
- 
- /*inistring dstr_4456__FOREACH_LONG_UPT*/
- /*_.VALSTR___V4475*/ curfptr[4474] = (void*)&cdat->dstr_4456__FOREACH_LONG_UPT;
-  cdat->dstr_4456__FOREACH_LONG_UPT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4456__FOREACH_LONG_UPT.val, "FOREACH_LONG_UPTO", sizeof(cdat->dstr_4456__FOREACH_LONG_UPT.val)-1);
- 
- /*iniobj dsym_4457__INTEGERBOX_OF*/
- if (!/*_.VALDATA___V4476*/ curfptr[4475]) /*_.VALDATA___V4476*/ curfptr[4475] = (void*)&cdat->dsym_4457__INTEGERBOX_OF;
-  melt_assertmsg("iniobj checkdiscr dsym_4457__INTEGERBOX_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4457__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4457__INTEGERBOX_OF.obj_hash = 641824224;
-  cdat->dsym_4457__INTEGERBOX_OF.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4457__INTEGERBOX_OF));
- 
- /*inistring dstr_4458__INTEGERBOX_OF*/
- /*_.VALSTR___V4477*/ curfptr[4476] = (void*)&cdat->dstr_4458__INTEGERBOX_OF;
-  cdat->dstr_4458__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4458__INTEGERBOX_OF.val, "INTEGERBOX_OF", sizeof(cdat->dstr_4458__INTEGERBOX_OF.val)-1);
- 
- /*iniobj dsym_4459__TRUE*/
- if (!/*_.VALDATA___V4478*/ curfptr[4477]) /*_.VALDATA___V4478*/ curfptr[4477] = (void*)&cdat->dsym_4459__TRUE;
-  melt_assertmsg("iniobj checkdiscr dsym_4459__TRUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_4459__TRUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
-  cdat->dsym_4459__TRUE.obj_hash = 576485513;
-  cdat->dsym_4459__TRUE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4459__TRUE));
- 
- /*inistring dstr_4460__TRUE*/
- /*_.VALSTR___V4479*/ curfptr[4478] = (void*)&cdat->dstr_4460__TRUE;
-  cdat->dstr_4460__TRUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4460__TRUE.val, "TRUE", sizeof(cdat->dstr_4460__TRUE.val)-1);
- 
- /*iniobj dsym_4461__DISPLAYDEBUGMSG*/
- if (!/*_.VALDATA___V4480*/ curfptr[4479]) /*_.VALDATA___V4480*/ curfptr[4479] = (void*)&cdat->dsym_4461__DISPLAYDEBUGMSG;
-  melt_assertmsg("iniobj checkdiscr dsym_4461__DISPLAYDEBUGMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4461__DISPLAYDEBUGMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_4461__DISPLAYDEBUGMSG.obj_hash = 784680112;
-  cdat->dsym_4461__DISPLAYDEBUGMSG.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4461__DISPLAYDEBUGMSG));
- 
- /*inistring dstr_4462__DISPLAYDEBUGMSG*/
- /*_.VALSTR___V4481*/ curfptr[4480] = (void*)&cdat->dstr_4462__DISPLAYDEBUGMSG;
-  cdat->dstr_4462__DISPLAYDEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_4462__DISPLAYDEBUGMSG.val, "DISPLAYDEBUGMSG", sizeof(cdat->dstr_4462__DISPLAYDEBUGMSG.val)-1);
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4272__LAMBDA_, meltrout_87_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4273__LAMBDA_*/
+ /*_.VALROUT___V4298*/ curfptr[4297] = (void*)&cdat->drout_4273__LAMBDA_;
+  cdat->drout_4273__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4273__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4271",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4273__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4273__LAMBDA_, meltrout_88_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4274__LAMBDA_*/
+ /*_.VALROUT___V4299*/ curfptr[4298] = (void*)&cdat->drout_4274__LAMBDA_;
+  cdat->drout_4274__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4274__LAMBDA_.routdescr, "LAMBDA_ @warmelt-first.melt:4287",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4274__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4274__LAMBDA_, meltrout_89_warmelt_first_LAMBDA_);
+ 
+ /*inirout drout_4275__DBGOUT_ANYOBJECT_METHOD*/
+ /*_.VALROUT___V4301*/ curfptr[4300] = (void*)&cdat->drout_4275__DBGOUT_ANYOBJECT_METHOD;
+  cdat->drout_4275__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4275__DBGOUT_ANYOBJECT_METHOD.routdescr, "DBGOUT_ANYOBJECT_METHOD @warmelt-first.melt:4306",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4275__DBGOUT_ANYOBJECT_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4275__DBGOUT_ANYOBJECT_METHOD, meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD);
+ 
+ /*iniclos dclo_4276__DBGOUT_ANYOBJECT_METHOD*/
+ /*_.VALCLO___V4302*/ curfptr[4301] = (void*)&cdat->dclo_4276__DBGOUT_ANYOBJECT_METHOD;
+  cdat->dclo_4276__DBGOUT_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4276__DBGOUT_ANYOBJECT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4277__DBGOUT_ANYRECV_METHOD*/
+ /*_.VALROUT___V4303*/ curfptr[4302] = (void*)&cdat->drout_4277__DBGOUT_ANYRECV_METHOD;
+  cdat->drout_4277__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4277__DBGOUT_ANYRECV_METHOD.routdescr, "DBGOUT_ANYRECV_METHOD @warmelt-first.melt:4335",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4277__DBGOUT_ANYRECV_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4277__DBGOUT_ANYRECV_METHOD, meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD);
+ 
+ /*iniclos dclo_4278__DBGOUT_ANYRECV_METHOD*/
+ /*_.VALCLO___V4304*/ curfptr[4303] = (void*)&cdat->dclo_4278__DBGOUT_ANYRECV_METHOD;
+  cdat->dclo_4278__DBGOUT_ANYRECV_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4278__DBGOUT_ANYRECV_METHOD.nbval = 0;
+ 
+ /*inirout drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD*/
+ /*_.VALROUT___V4305*/ curfptr[4304] = (void*)&cdat->drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD;
+  cdat->drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD.routdescr, "DBGOUTAGAIN_ANYOBJECT_METHOD @warmelt-first.melt:4346",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4279__DBGOUTAGAIN_ANYOBJECT_METHOD, meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD);
+ 
+ /*iniclos dclo_4280__DBGOUTAGAIN_ANYOBJECT_METHOD*/
+ /*_.VALCLO___V4306*/ curfptr[4305] = (void*)&cdat->dclo_4280__DBGOUTAGAIN_ANYOBJECT_METHOD;
+  cdat->dclo_4280__DBGOUTAGAIN_ANYOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4280__DBGOUTAGAIN_ANYOBJECT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4281__DBGOUT_NAMEDOBJECT_METHOD*/
+ /*_.VALROUT___V4307*/ curfptr[4306] = (void*)&cdat->drout_4281__DBGOUT_NAMEDOBJECT_METHOD;
+  cdat->drout_4281__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4281__DBGOUT_NAMEDOBJECT_METHOD.routdescr, "DBGOUT_NAMEDOBJECT_METHOD @warmelt-first.melt:4370",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4281__DBGOUT_NAMEDOBJECT_METHOD.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4281__DBGOUT_NAMEDOBJECT_METHOD, meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD);
+ 
+ /*iniclos dclo_4282__DBGOUT_NAMEDOBJECT_METHOD*/
+ /*_.VALCLO___V4308*/ curfptr[4307] = (void*)&cdat->dclo_4282__DBGOUT_NAMEDOBJECT_METHOD;
+  cdat->dclo_4282__DBGOUT_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4282__DBGOUT_NAMEDOBJECT_METHOD.nbval = 0;
+ 
+ /*iniobj dsym_4283__DBGOUT_NAMEDOBJECT_METHOD*/
+ if (!/*_.VALDATA___V4309*/ curfptr[4308]) /*_.VALDATA___V4309*/ curfptr[4308] = (void*)&cdat->dsym_4283__DBGOUT_NAMEDOBJECT_METHOD;
+  melt_assertmsg("iniobj checkdiscr dsym_4283__DBGOUT_NAMEDOBJECT_METHOD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4283__DBGOUT_NAMEDOBJECT_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4283__DBGOUT_NAMEDOBJECT_METHOD.obj_hash = 359355803;
+  cdat->dsym_4283__DBGOUT_NAMEDOBJECT_METHOD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4283__DBGOUT_NAMEDOBJECT_METHOD));
+ 
+ /*inistring dstr_4284__DBGOUT_NAMEDOBJE*/
+ /*_.VALSTR___V4310*/ curfptr[4309] = (void*)&cdat->dstr_4284__DBGOUT_NAMEDOBJE;
+  cdat->dstr_4284__DBGOUT_NAMEDOBJE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4284__DBGOUT_NAMEDOBJE.val, "DBGOUT_NAMEDOBJECT_METHOD", sizeof(cdat->dstr_4284__DBGOUT_NAMEDOBJE.val)-1);
+ 
+ /*inirout drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
+ /*_.VALROUT___V4311*/ curfptr[4310] = (void*)&cdat->drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
+  cdat->drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD.routdescr, "DBGOUTAGAIN_NAMEDOBJECT_METHOD @warmelt-first.melt:4409",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4285__DBGOUTAGAIN_NAMEDOBJECT_METHOD, meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD);
+ 
+ /*iniclos dclo_4286__DBGOUTAGAIN_NAMEDOBJECT_METHOD*/
+ /*_.VALCLO___V4312*/ curfptr[4311] = (void*)&cdat->dclo_4286__DBGOUTAGAIN_NAMEDOBJECT_METHOD;
+  cdat->dclo_4286__DBGOUTAGAIN_NAMEDOBJECT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4286__DBGOUTAGAIN_NAMEDOBJECT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4287__DBGOUT_SYMBOL_METHOD*/
+ /*_.VALROUT___V4313*/ curfptr[4312] = (void*)&cdat->drout_4287__DBGOUT_SYMBOL_METHOD;
+  cdat->drout_4287__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4287__DBGOUT_SYMBOL_METHOD.routdescr, "DBGOUT_SYMBOL_METHOD @warmelt-first.melt:4431",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4287__DBGOUT_SYMBOL_METHOD.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4287__DBGOUT_SYMBOL_METHOD, meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD);
+ 
+ /*iniclos dclo_4288__DBGOUT_SYMBOL_METHOD*/
+ /*_.VALCLO___V4316*/ curfptr[4315] = (void*)&cdat->dclo_4288__DBGOUT_SYMBOL_METHOD;
+  cdat->dclo_4288__DBGOUT_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4288__DBGOUT_SYMBOL_METHOD.nbval = 0;
+ 
+ /*inirout drout_4289__DBGOUTAGAIN_SYMBOL_METHOD*/
+ /*_.VALROUT___V4315*/ curfptr[4314] = (void*)&cdat->drout_4289__DBGOUTAGAIN_SYMBOL_METHOD;
+  cdat->drout_4289__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4289__DBGOUTAGAIN_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_SYMBOL_METHOD @warmelt-first.melt:4439",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4289__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4289__DBGOUTAGAIN_SYMBOL_METHOD, meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD);
+ 
+ /*iniclos dclo_4290__DBGOUTAGAIN_SYMBOL_METHOD*/
+ /*_.VALCLO___V4314*/ curfptr[4313] = (void*)&cdat->dclo_4290__DBGOUTAGAIN_SYMBOL_METHOD;
+  cdat->dclo_4290__DBGOUTAGAIN_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4290__DBGOUTAGAIN_SYMBOL_METHOD.nbval = 0;
+ 
+ /*inirout drout_4291__DBGOUT_CLASS_METHOD*/
+ /*_.VALROUT___V4317*/ curfptr[4316] = (void*)&cdat->drout_4291__DBGOUT_CLASS_METHOD;
+  cdat->drout_4291__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4291__DBGOUT_CLASS_METHOD.routdescr, "DBGOUT_CLASS_METHOD @warmelt-first.melt:4459",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4291__DBGOUT_CLASS_METHOD.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4291__DBGOUT_CLASS_METHOD, meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD);
+ 
+ /*iniclos dclo_4292__DBGOUT_CLASS_METHOD*/
+ /*_.VALCLO___V4318*/ curfptr[4317] = (void*)&cdat->dclo_4292__DBGOUT_CLASS_METHOD;
+  cdat->dclo_4292__DBGOUT_CLASS_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4292__DBGOUT_CLASS_METHOD.nbval = 0;
+ 
+ /*inirout drout_4293__DBGOUT_KEYWORD_METHOD*/
+ /*_.VALROUT___V4319*/ curfptr[4318] = (void*)&cdat->drout_4293__DBGOUT_KEYWORD_METHOD;
+  cdat->drout_4293__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4293__DBGOUT_KEYWORD_METHOD.routdescr, "DBGOUT_KEYWORD_METHOD @warmelt-first.melt:4468",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4293__DBGOUT_KEYWORD_METHOD.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4293__DBGOUT_KEYWORD_METHOD, meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD);
+ 
+ /*iniclos dclo_4294__DBGOUT_KEYWORD_METHOD*/
+ /*_.VALCLO___V4322*/ curfptr[4321] = (void*)&cdat->dclo_4294__DBGOUT_KEYWORD_METHOD;
+  cdat->dclo_4294__DBGOUT_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4294__DBGOUT_KEYWORD_METHOD.nbval = 0;
+ 
+ /*inirout drout_4295__DBGOUTAGAIN_KEYWORD_METHOD*/
+ /*_.VALROUT___V4321*/ curfptr[4320] = (void*)&cdat->drout_4295__DBGOUTAGAIN_KEYWORD_METHOD;
+  cdat->drout_4295__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4295__DBGOUTAGAIN_KEYWORD_METHOD.routdescr, "DBGOUTAGAIN_KEYWORD_METHOD @warmelt-first.melt:4476",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4295__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4295__DBGOUTAGAIN_KEYWORD_METHOD, meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD);
+ 
+ /*iniclos dclo_4296__DBGOUTAGAIN_KEYWORD_METHOD*/
+ /*_.VALCLO___V4320*/ curfptr[4319] = (void*)&cdat->dclo_4296__DBGOUTAGAIN_KEYWORD_METHOD;
+  cdat->dclo_4296__DBGOUTAGAIN_KEYWORD_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4296__DBGOUTAGAIN_KEYWORD_METHOD.nbval = 0;
+ 
+ /*inirout drout_4297__DBGOUT_CLONED_SYMBOL_METHOD*/
+ /*_.VALROUT___V4323*/ curfptr[4322] = (void*)&cdat->drout_4297__DBGOUT_CLONED_SYMBOL_METHOD;
+  cdat->drout_4297__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4297__DBGOUT_CLONED_SYMBOL_METHOD.routdescr, "DBGOUT_CLONED_SYMBOL_METHOD @warmelt-first.melt:4496",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4297__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4297__DBGOUT_CLONED_SYMBOL_METHOD, meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD);
+ 
+ /*iniclos dclo_4298__DBGOUT_CLONED_SYMBOL_METHOD*/
+ /*_.VALCLO___V4326*/ curfptr[4325] = (void*)&cdat->dclo_4298__DBGOUT_CLONED_SYMBOL_METHOD;
+  cdat->dclo_4298__DBGOUT_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4298__DBGOUT_CLONED_SYMBOL_METHOD.nbval = 0;
+ 
+ /*inirout drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
+ /*_.VALROUT___V4325*/ curfptr[4324] = (void*)&cdat->drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
+  cdat->drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.routdescr, "DBGOUTAGAIN_CLONED_SYMBOL_METHOD @warmelt-first.melt:4505",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4299__DBGOUTAGAIN_CLONED_SYMBOL_METHOD, meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD);
+ 
+ /*iniclos dclo_4300__DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/
+ /*_.VALCLO___V4324*/ curfptr[4323] = (void*)&cdat->dclo_4300__DBGOUTAGAIN_CLONED_SYMBOL_METHOD;
+  cdat->dclo_4300__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4300__DBGOUTAGAIN_CLONED_SYMBOL_METHOD.nbval = 0;
+ 
+ /*inirout drout_4301__DBGOUT_ENVIRONMENT_METHOD*/
+ /*_.VALROUT___V4327*/ curfptr[4326] = (void*)&cdat->drout_4301__DBGOUT_ENVIRONMENT_METHOD;
+  cdat->drout_4301__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4301__DBGOUT_ENVIRONMENT_METHOD.routdescr, "DBGOUT_ENVIRONMENT_METHOD @warmelt-first.melt:4528",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4301__DBGOUT_ENVIRONMENT_METHOD.nbval = 5;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4301__DBGOUT_ENVIRONMENT_METHOD, meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD);
+ 
+ /*iniclos dclo_4302__DBGOUT_ENVIRONMENT_METHOD*/
+ /*_.VALCLO___V4328*/ curfptr[4327] = (void*)&cdat->dclo_4302__DBGOUT_ENVIRONMENT_METHOD;
+  cdat->dclo_4302__DBGOUT_ENVIRONMENT_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4302__DBGOUT_ENVIRONMENT_METHOD.nbval = 0;
+ 
+ /*inirout drout_4303__DBGOUT_CTYPE_METHOD*/
+ /*_.VALROUT___V4329*/ curfptr[4328] = (void*)&cdat->drout_4303__DBGOUT_CTYPE_METHOD;
+  cdat->drout_4303__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4303__DBGOUT_CTYPE_METHOD.routdescr, "DBGOUT_CTYPE_METHOD @warmelt-first.melt:4574",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4303__DBGOUT_CTYPE_METHOD.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4303__DBGOUT_CTYPE_METHOD, meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD);
+ 
+ /*iniclos dclo_4304__DBGOUT_CTYPE_METHOD*/
+ /*_.VALCLO___V4332*/ curfptr[4331] = (void*)&cdat->dclo_4304__DBGOUT_CTYPE_METHOD;
+  cdat->dclo_4304__DBGOUT_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4304__DBGOUT_CTYPE_METHOD.nbval = 0;
+ 
+ /*inirout drout_4305__DBGOUTAGAIN_CTYPE_METHOD*/
+ /*_.VALROUT___V4331*/ curfptr[4330] = (void*)&cdat->drout_4305__DBGOUTAGAIN_CTYPE_METHOD;
+  cdat->drout_4305__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4305__DBGOUTAGAIN_CTYPE_METHOD.routdescr, "DBGOUTAGAIN_CTYPE_METHOD @warmelt-first.melt:4583",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4305__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4305__DBGOUTAGAIN_CTYPE_METHOD, meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD);
+ 
+ /*iniclos dclo_4306__DBGOUTAGAIN_CTYPE_METHOD*/
+ /*_.VALCLO___V4330*/ curfptr[4329] = (void*)&cdat->dclo_4306__DBGOUTAGAIN_CTYPE_METHOD;
+  cdat->dclo_4306__DBGOUTAGAIN_CTYPE_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4306__DBGOUTAGAIN_CTYPE_METHOD.nbval = 0;
+ 
+ /*inirout drout_4307__FRESH_ENV*/
+ /*_.VALROUT___V4012*/ curfptr[4011] = (void*)&cdat->drout_4307__FRESH_ENV;
+  cdat->drout_4307__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4307__FRESH_ENV.routdescr, "FRESH_ENV @warmelt-first.melt:4604",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4307__FRESH_ENV.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4307__FRESH_ENV, meltrout_105_warmelt_first_FRESH_ENV);
+ 
+ /*iniclos dclo_4308__FRESH_ENV*/
+ /*_.VALCLO___V4011*/ curfptr[4010] = (void*)&cdat->dclo_4308__FRESH_ENV;
+  cdat->dclo_4308__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4308__FRESH_ENV.nbval = 0;
+ 
+ /*iniobj dsym_4309__INITIAL_ENVIRONMENT*/
+ if (!/*_.VALDATA___V4333*/ curfptr[4332]) /*_.VALDATA___V4333*/ curfptr[4332] = (void*)&cdat->dsym_4309__INITIAL_ENVIRONMENT;
+  melt_assertmsg("iniobj checkdiscr dsym_4309__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4309__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4309__INITIAL_ENVIRONMENT.obj_hash = 756729242;
+  cdat->dsym_4309__INITIAL_ENVIRONMENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4309__INITIAL_ENVIRONMENT));
+ 
+ /*inistring dstr_4310__INITIAL_ENVIRONM*/
+ /*_.VALSTR___V4334*/ curfptr[4333] = (void*)&cdat->dstr_4310__INITIAL_ENVIRONM;
+  cdat->dstr_4310__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4310__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof(cdat->dstr_4310__INITIAL_ENVIRONM.val)-1);
+ 
+ MELT_LOCATION("warmelt-first.melt:4619:/ iniobj");
+ /*iniobj dobj_4311__INITIAL_ENVIRONMENT*/
+ if (!/*_.VALDATA___V4335*/ curfptr[4334]) /*_.VALDATA___V4335*/ curfptr[4334] = (void*)&cdat->dobj_4311__INITIAL_ENVIRONMENT;
+  melt_assertmsg("iniobj checkdiscr dobj_4311__INITIAL_ENVIRONMENT", NULL != (void*)/*_.VALDATA___V441*/ curfptr[440]);
+  cdat->dobj_4311__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]);
+  cdat->dobj_4311__INITIAL_ENVIRONMENT.obj_hash = 212268115;
+  cdat->dobj_4311__INITIAL_ENVIRONMENT.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_4311__INITIAL_ENVIRONMENT));
+ 
+ /*inistring dstr_4312__Initial_Environm*/
+ /*_.VALSTR___V4337*/ curfptr[4336] = (void*)&cdat->dstr_4312__Initial_Environm;
+  cdat->dstr_4312__Initial_Environm.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4312__Initial_Environm.val, "Initial Environment", sizeof(cdat->dstr_4312__Initial_Environm.val)-1);
+ 
+ /*inirout drout_4313__FIND_ENV*/
+ /*_.VALROUT___V4016*/ curfptr[4015] = (void*)&cdat->drout_4313__FIND_ENV;
+  cdat->drout_4313__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4313__FIND_ENV.routdescr, "FIND_ENV @warmelt-first.melt:4626",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4313__FIND_ENV.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4313__FIND_ENV, meltrout_106_warmelt_first_FIND_ENV);
+ 
+ /*iniclos dclo_4314__FIND_ENV*/
+ /*_.VALCLO___V4015*/ curfptr[4014] = (void*)&cdat->dclo_4314__FIND_ENV;
+  cdat->dclo_4314__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4314__FIND_ENV.nbval = 0;
+ 
+ /*inirout drout_4315__FIND_ENV_DEBUG*/
+ /*_.VALROUT___V4338*/ curfptr[4337] = (void*)&cdat->drout_4315__FIND_ENV_DEBUG;
+  cdat->drout_4315__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4315__FIND_ENV_DEBUG.routdescr, "FIND_ENV_DEBUG @warmelt-first.melt:4649",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4315__FIND_ENV_DEBUG.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4315__FIND_ENV_DEBUG, meltrout_107_warmelt_first_FIND_ENV_DEBUG);
+ 
+ /*iniclos dclo_4316__FIND_ENV_DEBUG*/
+ /*_.VALCLO___V4339*/ curfptr[4338] = (void*)&cdat->dclo_4316__FIND_ENV_DEBUG;
+  cdat->dclo_4316__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4316__FIND_ENV_DEBUG.nbval = 0;
+ 
+ /*inirout drout_4317__FIND_ENCLOSING_ENV*/
+ /*_.VALROUT___V4340*/ curfptr[4339] = (void*)&cdat->drout_4317__FIND_ENCLOSING_ENV;
+  cdat->drout_4317__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4317__FIND_ENCLOSING_ENV.routdescr, "FIND_ENCLOSING_ENV @warmelt-first.melt:4676",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4317__FIND_ENCLOSING_ENV.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4317__FIND_ENCLOSING_ENV, meltrout_108_warmelt_first_FIND_ENCLOSING_ENV);
+ 
+ /*iniclos dclo_4318__FIND_ENCLOSING_ENV*/
+ /*_.VALCLO___V4341*/ curfptr[4340] = (void*)&cdat->dclo_4318__FIND_ENCLOSING_ENV;
+  cdat->dclo_4318__FIND_ENCLOSING_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4318__FIND_ENCLOSING_ENV.nbval = 0;
+ 
+ /*inirout drout_4319__PUT_ENV*/
+ /*_.VALROUT___V4018*/ curfptr[4017] = (void*)&cdat->drout_4319__PUT_ENV;
+  cdat->drout_4319__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4319__PUT_ENV.routdescr, "PUT_ENV @warmelt-first.melt:4695",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4319__PUT_ENV.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4319__PUT_ENV, meltrout_109_warmelt_first_PUT_ENV);
+ 
+ /*iniclos dclo_4320__PUT_ENV*/
+ /*_.VALCLO___V4017*/ curfptr[4016] = (void*)&cdat->dclo_4320__PUT_ENV;
+  cdat->dclo_4320__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4320__PUT_ENV.nbval = 0;
+ 
+ /*inirout drout_4321__OVERWRITE_ENV*/
+ /*_.VALROUT___V4342*/ curfptr[4341] = (void*)&cdat->drout_4321__OVERWRITE_ENV;
+  cdat->drout_4321__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4321__OVERWRITE_ENV.routdescr, "OVERWRITE_ENV @warmelt-first.melt:4720",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4321__OVERWRITE_ENV.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4321__OVERWRITE_ENV, meltrout_110_warmelt_first_OVERWRITE_ENV);
+ 
+ /*iniclos dclo_4322__OVERWRITE_ENV*/
+ /*_.VALCLO___V4343*/ curfptr[4342] = (void*)&cdat->dclo_4322__OVERWRITE_ENV;
+  cdat->dclo_4322__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4322__OVERWRITE_ENV.nbval = 0;
+ 
+ /*inirout drout_4323__DEBUG_MSG_FUN*/
+ /*_.VALROUT___V4002*/ curfptr[4001] = (void*)&cdat->drout_4323__DEBUG_MSG_FUN;
+  cdat->drout_4323__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4323__DEBUG_MSG_FUN.routdescr, "DEBUG_MSG_FUN @warmelt-first.melt:4743",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4323__DEBUG_MSG_FUN.nbval = 7;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4323__DEBUG_MSG_FUN, meltrout_111_warmelt_first_DEBUG_MSG_FUN);
+ 
+ /*iniclos dclo_4324__DEBUG_MSG_FUN*/
+ /*_.VALCLO___V4001*/ curfptr[4000] = (void*)&cdat->dclo_4324__DEBUG_MSG_FUN;
+  cdat->dclo_4324__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4324__DEBUG_MSG_FUN.nbval = 0;
+ 
+ /*inirout drout_4325__DBGOUT_ANYBINDING_METHOD*/
+ /*_.VALROUT___V4344*/ curfptr[4343] = (void*)&cdat->drout_4325__DBGOUT_ANYBINDING_METHOD;
+  cdat->drout_4325__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4325__DBGOUT_ANYBINDING_METHOD.routdescr, "DBGOUT_ANYBINDING_METHOD @warmelt-first.melt:4813",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4325__DBGOUT_ANYBINDING_METHOD.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4325__DBGOUT_ANYBINDING_METHOD, meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD);
+ 
+ /*iniclos dclo_4326__DBGOUT_ANYBINDING_METHOD*/
+ /*_.VALCLO___V4345*/ curfptr[4344] = (void*)&cdat->dclo_4326__DBGOUT_ANYBINDING_METHOD;
+  cdat->dclo_4326__DBGOUT_ANYBINDING_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4326__DBGOUT_ANYBINDING_METHOD.nbval = 0;
+ 
+ /*inirout drout_4327__POST_INITIALIZATION*/
+ /*_.VALROUT___V4346*/ curfptr[4345] = (void*)&cdat->drout_4327__POST_INITIALIZATION;
+  cdat->drout_4327__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_4327__POST_INITIALIZATION.routdescr, "POST_INITIALIZATION @warmelt-first.melt:4849",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_4327__POST_INITIALIZATION.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_4327__POST_INITIALIZATION, meltrout_113_warmelt_first_POST_INITIALIZATION);
+ 
+ /*iniclos dclo_4328__POST_INITIALIZATION*/
+ /*_.VALCLO___V4347*/ curfptr[4346] = (void*)&cdat->dclo_4328__POST_INITIALIZATION;
+  cdat->dclo_4328__POST_INITIALIZATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_4328__POST_INITIALIZATION.nbval = 0;
+ 
+ /*iniobj dsym_4329__LIST_FIND*/
+ if (!/*_.VALDATA___V4348*/ curfptr[4347]) /*_.VALDATA___V4348*/ curfptr[4347] = (void*)&cdat->dsym_4329__LIST_FIND;
+  melt_assertmsg("iniobj checkdiscr dsym_4329__LIST_FIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4329__LIST_FIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4329__LIST_FIND.obj_hash = 430964501;
+  cdat->dsym_4329__LIST_FIND.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4329__LIST_FIND));
+ 
+ /*inistring dstr_4330__LIST_FIND*/
+ /*_.VALSTR___V4349*/ curfptr[4348] = (void*)&cdat->dstr_4330__LIST_FIND;
+  cdat->dstr_4330__LIST_FIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4330__LIST_FIND.val, "LIST_FIND", sizeof(cdat->dstr_4330__LIST_FIND.val)-1);
+ 
+ /*iniobj dsym_4331__AT_EXIT_FIRST*/
+ if (!/*_.VALDATA___V4350*/ curfptr[4349]) /*_.VALDATA___V4350*/ curfptr[4349] = (void*)&cdat->dsym_4331__AT_EXIT_FIRST;
+  melt_assertmsg("iniobj checkdiscr dsym_4331__AT_EXIT_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4331__AT_EXIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4331__AT_EXIT_FIRST.obj_hash = 229908354;
+  cdat->dsym_4331__AT_EXIT_FIRST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4331__AT_EXIT_FIRST));
+ 
+ /*inistring dstr_4332__AT_EXIT_FIRST*/
+ /*_.VALSTR___V4351*/ curfptr[4350] = (void*)&cdat->dstr_4332__AT_EXIT_FIRST;
+  cdat->dstr_4332__AT_EXIT_FIRST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4332__AT_EXIT_FIRST.val, "AT_EXIT_FIRST", sizeof(cdat->dstr_4332__AT_EXIT_FIRST.val)-1);
+ 
+ /*iniobj dsym_4333__AT_EXIT_LAST*/
+ if (!/*_.VALDATA___V4352*/ curfptr[4351]) /*_.VALDATA___V4352*/ curfptr[4351] = (void*)&cdat->dsym_4333__AT_EXIT_LAST;
+  melt_assertmsg("iniobj checkdiscr dsym_4333__AT_EXIT_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4333__AT_EXIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4333__AT_EXIT_LAST.obj_hash = 554176281;
+  cdat->dsym_4333__AT_EXIT_LAST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4333__AT_EXIT_LAST));
+ 
+ /*inistring dstr_4334__AT_EXIT_LAST*/
+ /*_.VALSTR___V4353*/ curfptr[4352] = (void*)&cdat->dstr_4334__AT_EXIT_LAST;
+  cdat->dstr_4334__AT_EXIT_LAST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4334__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof(cdat->dstr_4334__AT_EXIT_LAST.val)-1);
+ 
+ /*iniobj dsym_4335__AT_FINISH_UNIT_FIRST*/
+ if (!/*_.VALDATA___V4354*/ curfptr[4353]) /*_.VALDATA___V4354*/ curfptr[4353] = (void*)&cdat->dsym_4335__AT_FINISH_UNIT_FIRST;
+  melt_assertmsg("iniobj checkdiscr dsym_4335__AT_FINISH_UNIT_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4335__AT_FINISH_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4335__AT_FINISH_UNIT_FIRST.obj_hash = 390084996;
+  cdat->dsym_4335__AT_FINISH_UNIT_FIRST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4335__AT_FINISH_UNIT_FIRST));
+ 
+ /*inistring dstr_4336__AT_FINISH_UNIT_F*/
+ /*_.VALSTR___V4355*/ curfptr[4354] = (void*)&cdat->dstr_4336__AT_FINISH_UNIT_F;
+  cdat->dstr_4336__AT_FINISH_UNIT_F.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4336__AT_FINISH_UNIT_F.val, "AT_FINISH_UNIT_FIRST", sizeof(cdat->dstr_4336__AT_FINISH_UNIT_F.val)-1);
+ 
+ /*iniobj dsym_4337__AT_FINISH_UNIT_LAST*/
+ if (!/*_.VALDATA___V4356*/ curfptr[4355]) /*_.VALDATA___V4356*/ curfptr[4355] = (void*)&cdat->dsym_4337__AT_FINISH_UNIT_LAST;
+  melt_assertmsg("iniobj checkdiscr dsym_4337__AT_FINISH_UNIT_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4337__AT_FINISH_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4337__AT_FINISH_UNIT_LAST.obj_hash = 264295221;
+  cdat->dsym_4337__AT_FINISH_UNIT_LAST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4337__AT_FINISH_UNIT_LAST));
+ 
+ /*inistring dstr_4338__AT_FINISH_UNIT_L*/
+ /*_.VALSTR___V4357*/ curfptr[4356] = (void*)&cdat->dstr_4338__AT_FINISH_UNIT_L;
+  cdat->dstr_4338__AT_FINISH_UNIT_L.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4338__AT_FINISH_UNIT_L.val, "AT_FINISH_UNIT_LAST", sizeof(cdat->dstr_4338__AT_FINISH_UNIT_L.val)-1);
+ 
+ /*iniobj dsym_4339__AT_START_UNIT_FIRST*/
+ if (!/*_.VALDATA___V4358*/ curfptr[4357]) /*_.VALDATA___V4358*/ curfptr[4357] = (void*)&cdat->dsym_4339__AT_START_UNIT_FIRST;
+  melt_assertmsg("iniobj checkdiscr dsym_4339__AT_START_UNIT_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4339__AT_START_UNIT_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4339__AT_START_UNIT_FIRST.obj_hash = 5283802;
+  cdat->dsym_4339__AT_START_UNIT_FIRST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4339__AT_START_UNIT_FIRST));
+ 
+ /*inistring dstr_4340__AT_START_UNIT_FI*/
+ /*_.VALSTR___V4359*/ curfptr[4358] = (void*)&cdat->dstr_4340__AT_START_UNIT_FI;
+  cdat->dstr_4340__AT_START_UNIT_FI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4340__AT_START_UNIT_FI.val, "AT_START_UNIT_FIRST", sizeof(cdat->dstr_4340__AT_START_UNIT_FI.val)-1);
+ 
+ /*iniobj dsym_4341__AT_START_UNIT_LAST*/
+ if (!/*_.VALDATA___V4360*/ curfptr[4359]) /*_.VALDATA___V4360*/ curfptr[4359] = (void*)&cdat->dsym_4341__AT_START_UNIT_LAST;
+  melt_assertmsg("iniobj checkdiscr dsym_4341__AT_START_UNIT_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4341__AT_START_UNIT_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4341__AT_START_UNIT_LAST.obj_hash = 1055760715;
+  cdat->dsym_4341__AT_START_UNIT_LAST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4341__AT_START_UNIT_LAST));
+ 
+ /*inistring dstr_4342__AT_START_UNIT_LA*/
+ /*_.VALSTR___V4361*/ curfptr[4360] = (void*)&cdat->dstr_4342__AT_START_UNIT_LA;
+  cdat->dstr_4342__AT_START_UNIT_LA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4342__AT_START_UNIT_LA.val, "AT_START_UNIT_LAST", sizeof(cdat->dstr_4342__AT_START_UNIT_LA.val)-1);
+ 
+ /*iniobj dsym_4343__CLONE_SYMBOL*/
+ if (!/*_.VALDATA___V4362*/ curfptr[4361]) /*_.VALDATA___V4362*/ curfptr[4361] = (void*)&cdat->dsym_4343__CLONE_SYMBOL;
+  melt_assertmsg("iniobj checkdiscr dsym_4343__CLONE_SYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4343__CLONE_SYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4343__CLONE_SYMBOL.obj_hash = 213258240;
+  cdat->dsym_4343__CLONE_SYMBOL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4343__CLONE_SYMBOL));
+ 
+ /*inistring dstr_4344__CLONE_SYMBOL*/
+ /*_.VALSTR___V4363*/ curfptr[4362] = (void*)&cdat->dstr_4344__CLONE_SYMBOL;
+  cdat->dstr_4344__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4344__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof(cdat->dstr_4344__CLONE_SYMBOL.val)-1);
+ 
+ /*iniobj dsym_4345__CLOSURE_EVERY*/
+ if (!/*_.VALDATA___V4364*/ curfptr[4363]) /*_.VALDATA___V4364*/ curfptr[4363] = (void*)&cdat->dsym_4345__CLOSURE_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4345__CLOSURE_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4345__CLOSURE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4345__CLOSURE_EVERY.obj_hash = 729040422;
+  cdat->dsym_4345__CLOSURE_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4345__CLOSURE_EVERY));
+ 
+ /*inistring dstr_4346__CLOSURE_EVERY*/
+ /*_.VALSTR___V4365*/ curfptr[4364] = (void*)&cdat->dstr_4346__CLOSURE_EVERY;
+  cdat->dstr_4346__CLOSURE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4346__CLOSURE_EVERY.val, "CLOSURE_EVERY", sizeof(cdat->dstr_4346__CLOSURE_EVERY.val)-1);
+ 
+ /*iniobj dsym_4347__COMPARE_NAMED_ALPHA*/
+ if (!/*_.VALDATA___V4366*/ curfptr[4365]) /*_.VALDATA___V4366*/ curfptr[4365] = (void*)&cdat->dsym_4347__COMPARE_NAMED_ALPHA;
+  melt_assertmsg("iniobj checkdiscr dsym_4347__COMPARE_NAMED_ALPHA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4347__COMPARE_NAMED_ALPHA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4347__COMPARE_NAMED_ALPHA.obj_hash = 155514911;
+  cdat->dsym_4347__COMPARE_NAMED_ALPHA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4347__COMPARE_NAMED_ALPHA));
+ 
+ /*inistring dstr_4348__COMPARE_NAMED_AL*/
+ /*_.VALSTR___V4367*/ curfptr[4366] = (void*)&cdat->dstr_4348__COMPARE_NAMED_AL;
+  cdat->dstr_4348__COMPARE_NAMED_AL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4348__COMPARE_NAMED_AL.val, "COMPARE_NAMED_ALPHA", sizeof(cdat->dstr_4348__COMPARE_NAMED_AL.val)-1);
+ 
+ /*iniobj dsym_4349__COMPARE_OBJ_RANKED*/
+ if (!/*_.VALDATA___V4368*/ curfptr[4367]) /*_.VALDATA___V4368*/ curfptr[4367] = (void*)&cdat->dsym_4349__COMPARE_OBJ_RANKED;
+  melt_assertmsg("iniobj checkdiscr dsym_4349__COMPARE_OBJ_RANKED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4349__COMPARE_OBJ_RANKED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4349__COMPARE_OBJ_RANKED.obj_hash = 657124045;
+  cdat->dsym_4349__COMPARE_OBJ_RANKED.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4349__COMPARE_OBJ_RANKED));
+ 
+ /*inistring dstr_4350__COMPARE_OBJ_RANK*/
+ /*_.VALSTR___V4369*/ curfptr[4368] = (void*)&cdat->dstr_4350__COMPARE_OBJ_RANK;
+  cdat->dstr_4350__COMPARE_OBJ_RANK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4350__COMPARE_OBJ_RANK.val, "COMPARE_OBJ_RANKED", sizeof(cdat->dstr_4350__COMPARE_OBJ_RANK.val)-1);
+ 
+ /*iniobj dsym_4351__CSTRING_SAME*/
+ if (!/*_.VALDATA___V4370*/ curfptr[4369]) /*_.VALDATA___V4370*/ curfptr[4369] = (void*)&cdat->dsym_4351__CSTRING_SAME;
+  melt_assertmsg("iniobj checkdiscr dsym_4351__CSTRING_SAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4351__CSTRING_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4351__CSTRING_SAME.obj_hash = 180971052;
+  cdat->dsym_4351__CSTRING_SAME.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4351__CSTRING_SAME));
+ 
+ /*inistring dstr_4352__CSTRING_SAME*/
+ /*_.VALSTR___V4371*/ curfptr[4370] = (void*)&cdat->dstr_4352__CSTRING_SAME;
+  cdat->dstr_4352__CSTRING_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4352__CSTRING_SAME.val, "CSTRING_SAME", sizeof(cdat->dstr_4352__CSTRING_SAME.val)-1);
+ 
+ /*iniobj dsym_4353__DBG_OUT*/
+ if (!/*_.VALDATA___V4372*/ curfptr[4371]) /*_.VALDATA___V4372*/ curfptr[4371] = (void*)&cdat->dsym_4353__DBG_OUT;
+  melt_assertmsg("iniobj checkdiscr dsym_4353__DBG_OUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4353__DBG_OUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4353__DBG_OUT.obj_hash = 492035674;
+  cdat->dsym_4353__DBG_OUT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4353__DBG_OUT));
+ 
+ /*inistring dstr_4354__DBG_OUT*/
+ /*_.VALSTR___V4373*/ curfptr[4372] = (void*)&cdat->dstr_4354__DBG_OUT;
+  cdat->dstr_4354__DBG_OUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4354__DBG_OUT.val, "DBG_OUT", sizeof(cdat->dstr_4354__DBG_OUT.val)-1);
+ 
+ /*iniobj dsym_4355__DBG_OUTOBJECT*/
+ if (!/*_.VALDATA___V4374*/ curfptr[4373]) /*_.VALDATA___V4374*/ curfptr[4373] = (void*)&cdat->dsym_4355__DBG_OUTOBJECT;
+  melt_assertmsg("iniobj checkdiscr dsym_4355__DBG_OUTOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4355__DBG_OUTOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4355__DBG_OUTOBJECT.obj_hash = 723698673;
+  cdat->dsym_4355__DBG_OUTOBJECT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4355__DBG_OUTOBJECT));
+ 
+ /*inistring dstr_4356__DBG_OUTOBJECT*/
+ /*_.VALSTR___V4375*/ curfptr[4374] = (void*)&cdat->dstr_4356__DBG_OUTOBJECT;
+  cdat->dstr_4356__DBG_OUTOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4356__DBG_OUTOBJECT.val, "DBG_OUTOBJECT", sizeof(cdat->dstr_4356__DBG_OUTOBJECT.val)-1);
+ 
+ /*iniobj dsym_4357__DBGOUT_FIELDS*/
+ if (!/*_.VALDATA___V4376*/ curfptr[4375]) /*_.VALDATA___V4376*/ curfptr[4375] = (void*)&cdat->dsym_4357__DBGOUT_FIELDS;
+  melt_assertmsg("iniobj checkdiscr dsym_4357__DBGOUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4357__DBGOUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4357__DBGOUT_FIELDS.obj_hash = 795625446;
+  cdat->dsym_4357__DBGOUT_FIELDS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4357__DBGOUT_FIELDS));
+ 
+ /*inistring dstr_4358__DBGOUT_FIELDS*/
+ /*_.VALSTR___V4377*/ curfptr[4376] = (void*)&cdat->dstr_4358__DBGOUT_FIELDS;
+  cdat->dstr_4358__DBGOUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4358__DBGOUT_FIELDS.val, "DBGOUT_FIELDS", sizeof(cdat->dstr_4358__DBGOUT_FIELDS.val)-1);
+ 
+ /*iniobj dsym_4359__DBGOUTAGAIN_FIELDS*/
+ if (!/*_.VALDATA___V4378*/ curfptr[4377]) /*_.VALDATA___V4378*/ curfptr[4377] = (void*)&cdat->dsym_4359__DBGOUTAGAIN_FIELDS;
+  melt_assertmsg("iniobj checkdiscr dsym_4359__DBGOUTAGAIN_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4359__DBGOUTAGAIN_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4359__DBGOUTAGAIN_FIELDS.obj_hash = 961773165;
+  cdat->dsym_4359__DBGOUTAGAIN_FIELDS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4359__DBGOUTAGAIN_FIELDS));
+ 
+ /*inistring dstr_4360__DBGOUTAGAIN_FIEL*/
+ /*_.VALSTR___V4379*/ curfptr[4378] = (void*)&cdat->dstr_4360__DBGOUTAGAIN_FIEL;
+  cdat->dstr_4360__DBGOUTAGAIN_FIEL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4360__DBGOUTAGAIN_FIEL.val, "DBGOUTAGAIN_FIELDS", sizeof(cdat->dstr_4360__DBGOUTAGAIN_FIEL.val)-1);
+ 
+ /*iniobj dsym_4361__DEBUG_MSG_FUN*/
+ if (!/*_.VALDATA___V4380*/ curfptr[4379]) /*_.VALDATA___V4380*/ curfptr[4379] = (void*)&cdat->dsym_4361__DEBUG_MSG_FUN;
+  melt_assertmsg("iniobj checkdiscr dsym_4361__DEBUG_MSG_FUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4361__DEBUG_MSG_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4361__DEBUG_MSG_FUN.obj_hash = 938829072;
+  cdat->dsym_4361__DEBUG_MSG_FUN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4361__DEBUG_MSG_FUN));
+ 
+ /*inistring dstr_4362__DEBUG_MSG_FUN*/
+ /*_.VALSTR___V4381*/ curfptr[4380] = (void*)&cdat->dstr_4362__DEBUG_MSG_FUN;
+  cdat->dstr_4362__DEBUG_MSG_FUN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4362__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof(cdat->dstr_4362__DEBUG_MSG_FUN.val)-1);
+ 
+ /*iniobj dsym_4363__DEBUGMSG*/
+ if (!/*_.VALDATA___V4382*/ curfptr[4381]) /*_.VALDATA___V4382*/ curfptr[4381] = (void*)&cdat->dsym_4363__DEBUGMSG;
+  melt_assertmsg("iniobj checkdiscr dsym_4363__DEBUGMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4363__DEBUGMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4363__DEBUGMSG.obj_hash = 154774102;
+  cdat->dsym_4363__DEBUGMSG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4363__DEBUGMSG));
+ 
+ /*inistring dstr_4364__DEBUGMSG*/
+ /*_.VALSTR___V4383*/ curfptr[4382] = (void*)&cdat->dstr_4364__DEBUGMSG;
+  cdat->dstr_4364__DEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4364__DEBUGMSG.val, "DEBUGMSG", sizeof(cdat->dstr_4364__DEBUGMSG.val)-1);
+ 
+ /*iniobj dsym_4365__DISPLAY_DEBUG_MESSAGE*/
+ if (!/*_.VALDATA___V4384*/ curfptr[4383]) /*_.VALDATA___V4384*/ curfptr[4383] = (void*)&cdat->dsym_4365__DISPLAY_DEBUG_MESSAGE;
+  melt_assertmsg("iniobj checkdiscr dsym_4365__DISPLAY_DEBUG_MESSAGE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4365__DISPLAY_DEBUG_MESSAGE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4365__DISPLAY_DEBUG_MESSAGE.obj_hash = 759618783;
+  cdat->dsym_4365__DISPLAY_DEBUG_MESSAGE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4365__DISPLAY_DEBUG_MESSAGE));
+ 
+ /*inistring dstr_4366__DISPLAY_DEBUG_ME*/
+ /*_.VALSTR___V4385*/ curfptr[4384] = (void*)&cdat->dstr_4366__DISPLAY_DEBUG_ME;
+  cdat->dstr_4366__DISPLAY_DEBUG_ME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4366__DISPLAY_DEBUG_ME.val, "DISPLAY_DEBUG_MESSAGE", sizeof(cdat->dstr_4366__DISPLAY_DEBUG_ME.val)-1);
+ 
+ /*iniobj dsym_4367__FIND_ENCLOSING_ENV*/
+ if (!/*_.VALDATA___V4386*/ curfptr[4385]) /*_.VALDATA___V4386*/ curfptr[4385] = (void*)&cdat->dsym_4367__FIND_ENCLOSING_ENV;
+  melt_assertmsg("iniobj checkdiscr dsym_4367__FIND_ENCLOSING_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4367__FIND_ENCLOSING_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4367__FIND_ENCLOSING_ENV.obj_hash = 227770701;
+  cdat->dsym_4367__FIND_ENCLOSING_ENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4367__FIND_ENCLOSING_ENV));
+ 
+ /*inistring dstr_4368__FIND_ENCLOSING_E*/
+ /*_.VALSTR___V4387*/ curfptr[4386] = (void*)&cdat->dstr_4368__FIND_ENCLOSING_E;
+  cdat->dstr_4368__FIND_ENCLOSING_E.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4368__FIND_ENCLOSING_E.val, "FIND_ENCLOSING_ENV", sizeof(cdat->dstr_4368__FIND_ENCLOSING_E.val)-1);
+ 
+ /*iniobj dsym_4369__FIND_ENV*/
+ if (!/*_.VALDATA___V4388*/ curfptr[4387]) /*_.VALDATA___V4388*/ curfptr[4387] = (void*)&cdat->dsym_4369__FIND_ENV;
+  melt_assertmsg("iniobj checkdiscr dsym_4369__FIND_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4369__FIND_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4369__FIND_ENV.obj_hash = 233459738;
+  cdat->dsym_4369__FIND_ENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4369__FIND_ENV));
+ 
+ /*inistring dstr_4370__FIND_ENV*/
+ /*_.VALSTR___V4389*/ curfptr[4388] = (void*)&cdat->dstr_4370__FIND_ENV;
+  cdat->dstr_4370__FIND_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4370__FIND_ENV.val, "FIND_ENV", sizeof(cdat->dstr_4370__FIND_ENV.val)-1);
+ 
+ /*iniobj dsym_4371__FIND_ENV_DEBUG*/
+ if (!/*_.VALDATA___V4390*/ curfptr[4389]) /*_.VALDATA___V4390*/ curfptr[4389] = (void*)&cdat->dsym_4371__FIND_ENV_DEBUG;
+  melt_assertmsg("iniobj checkdiscr dsym_4371__FIND_ENV_DEBUG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4371__FIND_ENV_DEBUG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4371__FIND_ENV_DEBUG.obj_hash = 670001916;
+  cdat->dsym_4371__FIND_ENV_DEBUG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4371__FIND_ENV_DEBUG));
+ 
+ /*inistring dstr_4372__FIND_ENV_DEBUG*/
+ /*_.VALSTR___V4391*/ curfptr[4390] = (void*)&cdat->dstr_4372__FIND_ENV_DEBUG;
+  cdat->dstr_4372__FIND_ENV_DEBUG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4372__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof(cdat->dstr_4372__FIND_ENV_DEBUG.val)-1);
+ 
+ /*iniobj dsym_4373__FRESH_ENV*/
+ if (!/*_.VALDATA___V4392*/ curfptr[4391]) /*_.VALDATA___V4392*/ curfptr[4391] = (void*)&cdat->dsym_4373__FRESH_ENV;
+  melt_assertmsg("iniobj checkdiscr dsym_4373__FRESH_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4373__FRESH_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4373__FRESH_ENV.obj_hash = 1002363940;
+  cdat->dsym_4373__FRESH_ENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4373__FRESH_ENV));
+ 
+ /*inistring dstr_4374__FRESH_ENV*/
+ /*_.VALSTR___V4393*/ curfptr[4392] = (void*)&cdat->dstr_4374__FRESH_ENV;
+  cdat->dstr_4374__FRESH_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4374__FRESH_ENV.val, "FRESH_ENV", sizeof(cdat->dstr_4374__FRESH_ENV.val)-1);
+ 
+ /*iniobj dsym_4375__INSTALL_CTYPE_DESCR*/
+ if (!/*_.VALDATA___V4394*/ curfptr[4393]) /*_.VALDATA___V4394*/ curfptr[4393] = (void*)&cdat->dsym_4375__INSTALL_CTYPE_DESCR;
+  melt_assertmsg("iniobj checkdiscr dsym_4375__INSTALL_CTYPE_DESCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4375__INSTALL_CTYPE_DESCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4375__INSTALL_CTYPE_DESCR.obj_hash = 1019986423;
+  cdat->dsym_4375__INSTALL_CTYPE_DESCR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4375__INSTALL_CTYPE_DESCR));
+ 
+ /*inistring dstr_4376__INSTALL_CTYPE_DE*/
+ /*_.VALSTR___V4395*/ curfptr[4394] = (void*)&cdat->dstr_4376__INSTALL_CTYPE_DE;
+  cdat->dstr_4376__INSTALL_CTYPE_DE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4376__INSTALL_CTYPE_DE.val, "INSTALL_CTYPE_DESCR", sizeof(cdat->dstr_4376__INSTALL_CTYPE_DE.val)-1);
+ 
+ /*iniobj dsym_4377__INSTALL_METHOD*/
+ if (!/*_.VALDATA___V4396*/ curfptr[4395]) /*_.VALDATA___V4396*/ curfptr[4395] = (void*)&cdat->dsym_4377__INSTALL_METHOD;
+  melt_assertmsg("iniobj checkdiscr dsym_4377__INSTALL_METHOD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4377__INSTALL_METHOD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4377__INSTALL_METHOD.obj_hash = 680699224;
+  cdat->dsym_4377__INSTALL_METHOD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4377__INSTALL_METHOD));
+ 
+ /*inistring dstr_4378__INSTALL_METHOD*/
+ /*_.VALSTR___V4397*/ curfptr[4396] = (void*)&cdat->dstr_4378__INSTALL_METHOD;
+  cdat->dstr_4378__INSTALL_METHOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4378__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof(cdat->dstr_4378__INSTALL_METHOD.val)-1);
+ 
+ /*iniobj dsym_4379__LIST1*/
+ if (!/*_.VALDATA___V4398*/ curfptr[4397]) /*_.VALDATA___V4398*/ curfptr[4397] = (void*)&cdat->dsym_4379__LIST1;
+  melt_assertmsg("iniobj checkdiscr dsym_4379__LIST1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4379__LIST1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4379__LIST1.obj_hash = 547472310;
+  cdat->dsym_4379__LIST1.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4379__LIST1));
+ 
+ /*inistring dstr_4380__LIST1*/
+ /*_.VALSTR___V4399*/ curfptr[4398] = (void*)&cdat->dstr_4380__LIST1;
+  cdat->dstr_4380__LIST1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4380__LIST1.val, "LIST1", sizeof(cdat->dstr_4380__LIST1.val)-1);
+ 
+ /*iniobj dsym_4381__LIST2*/
+ if (!/*_.VALDATA___V4400*/ curfptr[4399]) /*_.VALDATA___V4400*/ curfptr[4399] = (void*)&cdat->dsym_4381__LIST2;
+  melt_assertmsg("iniobj checkdiscr dsym_4381__LIST2", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4381__LIST2.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4381__LIST2.obj_hash = 702154144;
+  cdat->dsym_4381__LIST2.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4381__LIST2));
+ 
+ /*inistring dstr_4382__LIST2*/
+ /*_.VALSTR___V4401*/ curfptr[4400] = (void*)&cdat->dstr_4382__LIST2;
+  cdat->dstr_4382__LIST2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4382__LIST2.val, "LIST2", sizeof(cdat->dstr_4382__LIST2.val)-1);
+ 
+ /*iniobj dsym_4383__LIST3*/
+ if (!/*_.VALDATA___V4402*/ curfptr[4401]) /*_.VALDATA___V4402*/ curfptr[4401] = (void*)&cdat->dsym_4383__LIST3;
+  melt_assertmsg("iniobj checkdiscr dsym_4383__LIST3", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4383__LIST3.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4383__LIST3.obj_hash = 540589939;
+  cdat->dsym_4383__LIST3.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4383__LIST3));
+ 
+ /*inistring dstr_4384__LIST3*/
+ /*_.VALSTR___V4403*/ curfptr[4402] = (void*)&cdat->dstr_4384__LIST3;
+  cdat->dstr_4384__LIST3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4384__LIST3.val, "LIST3", sizeof(cdat->dstr_4384__LIST3.val)-1);
+ 
+ /*iniobj dsym_4385__LIST4*/
+ if (!/*_.VALDATA___V4404*/ curfptr[4403]) /*_.VALDATA___V4404*/ curfptr[4403] = (void*)&cdat->dsym_4385__LIST4;
+  melt_assertmsg("iniobj checkdiscr dsym_4385__LIST4", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4385__LIST4.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4385__LIST4.obj_hash = 986933846;
+  cdat->dsym_4385__LIST4.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4385__LIST4));
+ 
+ /*inistring dstr_4386__LIST4*/
+ /*_.VALSTR___V4405*/ curfptr[4404] = (void*)&cdat->dstr_4386__LIST4;
+  cdat->dstr_4386__LIST4.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4386__LIST4.val, "LIST4", sizeof(cdat->dstr_4386__LIST4.val)-1);
+ 
+ /*iniobj dsym_4387__LIST5*/
+ if (!/*_.VALDATA___V4406*/ curfptr[4405]) /*_.VALDATA___V4406*/ curfptr[4405] = (void*)&cdat->dsym_4387__LIST5;
+  melt_assertmsg("iniobj checkdiscr dsym_4387__LIST5", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4387__LIST5.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4387__LIST5.obj_hash = 888750484;
+  cdat->dsym_4387__LIST5.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4387__LIST5));
+ 
+ /*inistring dstr_4388__LIST5*/
+ /*_.VALSTR___V4407*/ curfptr[4406] = (void*)&cdat->dstr_4388__LIST5;
+  cdat->dstr_4388__LIST5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4388__LIST5.val, "LIST5", sizeof(cdat->dstr_4388__LIST5.val)-1);
+ 
+ /*iniobj dsym_4389__LIST6*/
+ if (!/*_.VALDATA___V4408*/ curfptr[4407]) /*_.VALDATA___V4408*/ curfptr[4407] = (void*)&cdat->dsym_4389__LIST6;
+  melt_assertmsg("iniobj checkdiscr dsym_4389__LIST6", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4389__LIST6.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4389__LIST6.obj_hash = 649348708;
+  cdat->dsym_4389__LIST6.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4389__LIST6));
+ 
+ /*inistring dstr_4390__LIST6*/
+ /*_.VALSTR___V4409*/ curfptr[4408] = (void*)&cdat->dstr_4390__LIST6;
+  cdat->dstr_4390__LIST6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4390__LIST6.val, "LIST6", sizeof(cdat->dstr_4390__LIST6.val)-1);
+ 
+ /*iniobj dsym_4391__LIST_APPEND2LIST*/
+ if (!/*_.VALDATA___V4410*/ curfptr[4409]) /*_.VALDATA___V4410*/ curfptr[4409] = (void*)&cdat->dsym_4391__LIST_APPEND2LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_4391__LIST_APPEND2LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4391__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4391__LIST_APPEND2LIST.obj_hash = 744841630;
+  cdat->dsym_4391__LIST_APPEND2LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4391__LIST_APPEND2LIST));
+ 
+ /*inistring dstr_4392__LIST_APPEND2LIST*/
+ /*_.VALSTR___V4411*/ curfptr[4410] = (void*)&cdat->dstr_4392__LIST_APPEND2LIST;
+  cdat->dstr_4392__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4392__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof(cdat->dstr_4392__LIST_APPEND2LIST.val)-1);
+ 
+ /*iniobj dsym_4393__LIST_EVERY*/
+ if (!/*_.VALDATA___V4412*/ curfptr[4411]) /*_.VALDATA___V4412*/ curfptr[4411] = (void*)&cdat->dsym_4393__LIST_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4393__LIST_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4393__LIST_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4393__LIST_EVERY.obj_hash = 942863429;
+  cdat->dsym_4393__LIST_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4393__LIST_EVERY));
+ 
+ /*inistring dstr_4394__LIST_EVERY*/
+ /*_.VALSTR___V4413*/ curfptr[4412] = (void*)&cdat->dstr_4394__LIST_EVERY;
+  cdat->dstr_4394__LIST_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4394__LIST_EVERY.val, "LIST_EVERY", sizeof(cdat->dstr_4394__LIST_EVERY.val)-1);
+ 
+ /*iniobj dsym_4395__LIST_ITERATE_TEST*/
+ if (!/*_.VALDATA___V4414*/ curfptr[4413]) /*_.VALDATA___V4414*/ curfptr[4413] = (void*)&cdat->dsym_4395__LIST_ITERATE_TEST;
+  melt_assertmsg("iniobj checkdiscr dsym_4395__LIST_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4395__LIST_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4395__LIST_ITERATE_TEST.obj_hash = 561820482;
+  cdat->dsym_4395__LIST_ITERATE_TEST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4395__LIST_ITERATE_TEST));
+ 
+ /*inistring dstr_4396__LIST_ITERATE_TES*/
+ /*_.VALSTR___V4415*/ curfptr[4414] = (void*)&cdat->dstr_4396__LIST_ITERATE_TES;
+  cdat->dstr_4396__LIST_ITERATE_TES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4396__LIST_ITERATE_TES.val, "LIST_ITERATE_TEST", sizeof(cdat->dstr_4396__LIST_ITERATE_TES.val)-1);
+ 
+ /*iniobj dsym_4397__LIST_MAP*/
+ if (!/*_.VALDATA___V4416*/ curfptr[4415]) /*_.VALDATA___V4416*/ curfptr[4415] = (void*)&cdat->dsym_4397__LIST_MAP;
+  melt_assertmsg("iniobj checkdiscr dsym_4397__LIST_MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4397__LIST_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4397__LIST_MAP.obj_hash = 941133477;
+  cdat->dsym_4397__LIST_MAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4397__LIST_MAP));
+ 
+ /*inistring dstr_4398__LIST_MAP*/
+ /*_.VALSTR___V4417*/ curfptr[4416] = (void*)&cdat->dstr_4398__LIST_MAP;
+  cdat->dstr_4398__LIST_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4398__LIST_MAP.val, "LIST_MAP", sizeof(cdat->dstr_4398__LIST_MAP.val)-1);
+ 
+ /*iniobj dsym_4399__LIST_TO_MULTIPLE*/
+ if (!/*_.VALDATA___V4418*/ curfptr[4417]) /*_.VALDATA___V4418*/ curfptr[4417] = (void*)&cdat->dsym_4399__LIST_TO_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_4399__LIST_TO_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4399__LIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4399__LIST_TO_MULTIPLE.obj_hash = 987171205;
+  cdat->dsym_4399__LIST_TO_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4399__LIST_TO_MULTIPLE));
+ 
+ /*inistring dstr_4400__LIST_TO_MULTIPLE*/
+ /*_.VALSTR___V4419*/ curfptr[4418] = (void*)&cdat->dstr_4400__LIST_TO_MULTIPLE;
+  cdat->dstr_4400__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4400__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof(cdat->dstr_4400__LIST_TO_MULTIPLE.val)-1);
+ 
+ /*iniobj dsym_4401__MAPOBJECT_EVERY*/
+ if (!/*_.VALDATA___V4420*/ curfptr[4419]) /*_.VALDATA___V4420*/ curfptr[4419] = (void*)&cdat->dsym_4401__MAPOBJECT_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4401__MAPOBJECT_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4401__MAPOBJECT_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4401__MAPOBJECT_EVERY.obj_hash = 726732435;
+  cdat->dsym_4401__MAPOBJECT_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4401__MAPOBJECT_EVERY));
+ 
+ /*inistring dstr_4402__MAPOBJECT_EVERY*/
+ /*_.VALSTR___V4421*/ curfptr[4420] = (void*)&cdat->dstr_4402__MAPOBJECT_EVERY;
+  cdat->dstr_4402__MAPOBJECT_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4402__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY", sizeof(cdat->dstr_4402__MAPOBJECT_EVERY.val)-1);
+ 
+ /*iniobj dsym_4403__MAPOBJECT_ITERATE_TEST*/
+ if (!/*_.VALDATA___V4422*/ curfptr[4421]) /*_.VALDATA___V4422*/ curfptr[4421] = (void*)&cdat->dsym_4403__MAPOBJECT_ITERATE_TEST;
+  melt_assertmsg("iniobj checkdiscr dsym_4403__MAPOBJECT_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4403__MAPOBJECT_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4403__MAPOBJECT_ITERATE_TEST.obj_hash = 873816186;
+  cdat->dsym_4403__MAPOBJECT_ITERATE_TEST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4403__MAPOBJECT_ITERATE_TEST));
+ 
+ /*inistring dstr_4404__MAPOBJECT_ITERAT*/
+ /*_.VALSTR___V4423*/ curfptr[4422] = (void*)&cdat->dstr_4404__MAPOBJECT_ITERAT;
+  cdat->dstr_4404__MAPOBJECT_ITERAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4404__MAPOBJECT_ITERAT.val, "MAPOBJECT_ITERATE_TEST", sizeof(cdat->dstr_4404__MAPOBJECT_ITERAT.val)-1);
+ 
+ /*iniobj dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
+ if (!/*_.VALDATA___V4424*/ curfptr[4423]) /*_.VALDATA___V4424*/ curfptr[4423] = (void*)&cdat->dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_hash = 966537230;
+  cdat->dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4405__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE));
+ 
+ /*inistring dstr_4406__MAPOBJECT_SORTED*/
+ /*_.VALSTR___V4425*/ curfptr[4424] = (void*)&cdat->dstr_4406__MAPOBJECT_SORTED;
+  cdat->dstr_4406__MAPOBJECT_SORTED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4406__MAPOBJECT_SORTED.val, "MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", sizeof(cdat->dstr_4406__MAPOBJECT_SORTED.val)-1);
+ 
+ /*iniobj dsym_4407__MAPSTRING_EVERY*/
+ if (!/*_.VALDATA___V4426*/ curfptr[4425]) /*_.VALDATA___V4426*/ curfptr[4425] = (void*)&cdat->dsym_4407__MAPSTRING_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4407__MAPSTRING_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4407__MAPSTRING_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4407__MAPSTRING_EVERY.obj_hash = 173778712;
+  cdat->dsym_4407__MAPSTRING_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4407__MAPSTRING_EVERY));
+ 
+ /*inistring dstr_4408__MAPSTRING_EVERY*/
+ /*_.VALSTR___V4427*/ curfptr[4426] = (void*)&cdat->dstr_4408__MAPSTRING_EVERY;
+  cdat->dstr_4408__MAPSTRING_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4408__MAPSTRING_EVERY.val, "MAPSTRING_EVERY", sizeof(cdat->dstr_4408__MAPSTRING_EVERY.val)-1);
+ 
+ /*iniobj dsym_4409__MAPSTRING_ITERATE_TEST*/
+ if (!/*_.VALDATA___V4428*/ curfptr[4427]) /*_.VALDATA___V4428*/ curfptr[4427] = (void*)&cdat->dsym_4409__MAPSTRING_ITERATE_TEST;
+  melt_assertmsg("iniobj checkdiscr dsym_4409__MAPSTRING_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4409__MAPSTRING_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4409__MAPSTRING_ITERATE_TEST.obj_hash = 933389776;
+  cdat->dsym_4409__MAPSTRING_ITERATE_TEST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4409__MAPSTRING_ITERATE_TEST));
+ 
+ /*inistring dstr_4410__MAPSTRING_ITERAT*/
+ /*_.VALSTR___V4429*/ curfptr[4428] = (void*)&cdat->dstr_4410__MAPSTRING_ITERAT;
+  cdat->dstr_4410__MAPSTRING_ITERAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4410__MAPSTRING_ITERAT.val, "MAPSTRING_ITERATE_TEST", sizeof(cdat->dstr_4410__MAPSTRING_ITERAT.val)-1);
+ 
+ /*iniobj dsym_4411__MULTIPLE_BACKWARD_EVERY*/
+ if (!/*_.VALDATA___V4430*/ curfptr[4429]) /*_.VALDATA___V4430*/ curfptr[4429] = (void*)&cdat->dsym_4411__MULTIPLE_BACKWARD_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4411__MULTIPLE_BACKWARD_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4411__MULTIPLE_BACKWARD_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4411__MULTIPLE_BACKWARD_EVERY.obj_hash = 79677830;
+  cdat->dsym_4411__MULTIPLE_BACKWARD_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4411__MULTIPLE_BACKWARD_EVERY));
+ 
+ /*inistring dstr_4412__MULTIPLE_BACKWAR*/
+ /*_.VALSTR___V4431*/ curfptr[4430] = (void*)&cdat->dstr_4412__MULTIPLE_BACKWAR;
+  cdat->dstr_4412__MULTIPLE_BACKWAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4412__MULTIPLE_BACKWAR.val, "MULTIPLE_BACKWARD_EVERY", sizeof(cdat->dstr_4412__MULTIPLE_BACKWAR.val)-1);
+ 
+ /*iniobj dsym_4413__MULTIPLE_EVERY*/
+ if (!/*_.VALDATA___V4432*/ curfptr[4431]) /*_.VALDATA___V4432*/ curfptr[4431] = (void*)&cdat->dsym_4413__MULTIPLE_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4413__MULTIPLE_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4413__MULTIPLE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4413__MULTIPLE_EVERY.obj_hash = 130098745;
+  cdat->dsym_4413__MULTIPLE_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4413__MULTIPLE_EVERY));
+ 
+ /*inistring dstr_4414__MULTIPLE_EVERY*/
+ /*_.VALSTR___V4433*/ curfptr[4432] = (void*)&cdat->dstr_4414__MULTIPLE_EVERY;
+  cdat->dstr_4414__MULTIPLE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4414__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof(cdat->dstr_4414__MULTIPLE_EVERY.val)-1);
+ 
+ /*iniobj dsym_4415__MULTIPLE_EVERY_BOTH*/
+ if (!/*_.VALDATA___V4434*/ curfptr[4433]) /*_.VALDATA___V4434*/ curfptr[4433] = (void*)&cdat->dsym_4415__MULTIPLE_EVERY_BOTH;
+  melt_assertmsg("iniobj checkdiscr dsym_4415__MULTIPLE_EVERY_BOTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4415__MULTIPLE_EVERY_BOTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4415__MULTIPLE_EVERY_BOTH.obj_hash = 528900272;
+  cdat->dsym_4415__MULTIPLE_EVERY_BOTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4415__MULTIPLE_EVERY_BOTH));
+ 
+ /*inistring dstr_4416__MULTIPLE_EVERY_B*/
+ /*_.VALSTR___V4435*/ curfptr[4434] = (void*)&cdat->dstr_4416__MULTIPLE_EVERY_B;
+  cdat->dstr_4416__MULTIPLE_EVERY_B.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4416__MULTIPLE_EVERY_B.val, "MULTIPLE_EVERY_BOTH", sizeof(cdat->dstr_4416__MULTIPLE_EVERY_B.val)-1);
+ 
+ /*iniobj dsym_4417__MULTIPLE_ITERATE_TEST*/
+ if (!/*_.VALDATA___V4436*/ curfptr[4435]) /*_.VALDATA___V4436*/ curfptr[4435] = (void*)&cdat->dsym_4417__MULTIPLE_ITERATE_TEST;
+  melt_assertmsg("iniobj checkdiscr dsym_4417__MULTIPLE_ITERATE_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4417__MULTIPLE_ITERATE_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4417__MULTIPLE_ITERATE_TEST.obj_hash = 823464346;
+  cdat->dsym_4417__MULTIPLE_ITERATE_TEST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4417__MULTIPLE_ITERATE_TEST));
+ 
+ /*inistring dstr_4418__MULTIPLE_ITERATE*/
+ /*_.VALSTR___V4437*/ curfptr[4436] = (void*)&cdat->dstr_4418__MULTIPLE_ITERATE;
+  cdat->dstr_4418__MULTIPLE_ITERATE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4418__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof(cdat->dstr_4418__MULTIPLE_ITERATE.val)-1);
+ 
+ /*iniobj dsym_4419__MULTIPLE_MAP*/
+ if (!/*_.VALDATA___V4438*/ curfptr[4437]) /*_.VALDATA___V4438*/ curfptr[4437] = (void*)&cdat->dsym_4419__MULTIPLE_MAP;
+  melt_assertmsg("iniobj checkdiscr dsym_4419__MULTIPLE_MAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4419__MULTIPLE_MAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4419__MULTIPLE_MAP.obj_hash = 218301686;
+  cdat->dsym_4419__MULTIPLE_MAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4419__MULTIPLE_MAP));
+ 
+ /*inistring dstr_4420__MULTIPLE_MAP*/
+ /*_.VALSTR___V4439*/ curfptr[4438] = (void*)&cdat->dstr_4420__MULTIPLE_MAP;
+  cdat->dstr_4420__MULTIPLE_MAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4420__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof(cdat->dstr_4420__MULTIPLE_MAP.val)-1);
+ 
+ /*iniobj dsym_4421__MULTIPLE_TO_LIST*/
+ if (!/*_.VALDATA___V4440*/ curfptr[4439]) /*_.VALDATA___V4440*/ curfptr[4439] = (void*)&cdat->dsym_4421__MULTIPLE_TO_LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_4421__MULTIPLE_TO_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4421__MULTIPLE_TO_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4421__MULTIPLE_TO_LIST.obj_hash = 622139769;
+  cdat->dsym_4421__MULTIPLE_TO_LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4421__MULTIPLE_TO_LIST));
+ 
+ /*inistring dstr_4422__MULTIPLE_TO_LIST*/
+ /*_.VALSTR___V4441*/ curfptr[4440] = (void*)&cdat->dstr_4422__MULTIPLE_TO_LIST;
+  cdat->dstr_4422__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4422__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof(cdat->dstr_4422__MULTIPLE_TO_LIST.val)-1);
+ 
+ /*iniobj dsym_4423__OVERWRITE_ENV*/
+ if (!/*_.VALDATA___V4442*/ curfptr[4441]) /*_.VALDATA___V4442*/ curfptr[4441] = (void*)&cdat->dsym_4423__OVERWRITE_ENV;
+  melt_assertmsg("iniobj checkdiscr dsym_4423__OVERWRITE_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4423__OVERWRITE_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4423__OVERWRITE_ENV.obj_hash = 774789038;
+  cdat->dsym_4423__OVERWRITE_ENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4423__OVERWRITE_ENV));
+ 
+ /*inistring dstr_4424__OVERWRITE_ENV*/
+ /*_.VALSTR___V4443*/ curfptr[4442] = (void*)&cdat->dstr_4424__OVERWRITE_ENV;
+  cdat->dstr_4424__OVERWRITE_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4424__OVERWRITE_ENV.val, "OVERWRITE_ENV", sizeof(cdat->dstr_4424__OVERWRITE_ENV.val)-1);
+ 
+ /*iniobj dsym_4425__PAIRLIST_TO_MULTIPLE*/
+ if (!/*_.VALDATA___V4444*/ curfptr[4443]) /*_.VALDATA___V4444*/ curfptr[4443] = (void*)&cdat->dsym_4425__PAIRLIST_TO_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_4425__PAIRLIST_TO_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4425__PAIRLIST_TO_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4425__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322;
+  cdat->dsym_4425__PAIRLIST_TO_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4425__PAIRLIST_TO_MULTIPLE));
+ 
+ /*inistring dstr_4426__PAIRLIST_TO_MULT*/
+ /*_.VALSTR___V4445*/ curfptr[4444] = (void*)&cdat->dstr_4426__PAIRLIST_TO_MULT;
+  cdat->dstr_4426__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4426__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof(cdat->dstr_4426__PAIRLIST_TO_MULT.val)-1);
+ 
+ /*iniobj dsym_4427__POST_INITIALIZATION*/
+ if (!/*_.VALDATA___V4446*/ curfptr[4445]) /*_.VALDATA___V4446*/ curfptr[4445] = (void*)&cdat->dsym_4427__POST_INITIALIZATION;
+  melt_assertmsg("iniobj checkdiscr dsym_4427__POST_INITIALIZATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4427__POST_INITIALIZATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4427__POST_INITIALIZATION.obj_hash = 1066527214;
+  cdat->dsym_4427__POST_INITIALIZATION.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4427__POST_INITIALIZATION));
+ 
+ /*inistring dstr_4428__POST_INITIALIZAT*/
+ /*_.VALSTR___V4447*/ curfptr[4446] = (void*)&cdat->dstr_4428__POST_INITIALIZAT;
+  cdat->dstr_4428__POST_INITIALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4428__POST_INITIALIZAT.val, "POST_INITIALIZATION", sizeof(cdat->dstr_4428__POST_INITIALIZAT.val)-1);
+ 
+ /*iniobj dsym_4429__PUT_ENV*/
+ if (!/*_.VALDATA___V4448*/ curfptr[4447]) /*_.VALDATA___V4448*/ curfptr[4447] = (void*)&cdat->dsym_4429__PUT_ENV;
+  melt_assertmsg("iniobj checkdiscr dsym_4429__PUT_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4429__PUT_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4429__PUT_ENV.obj_hash = 440202203;
+  cdat->dsym_4429__PUT_ENV.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4429__PUT_ENV));
+ 
+ /*inistring dstr_4430__PUT_ENV*/
+ /*_.VALSTR___V4449*/ curfptr[4448] = (void*)&cdat->dstr_4430__PUT_ENV;
+  cdat->dstr_4430__PUT_ENV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4430__PUT_ENV.val, "PUT_ENV", sizeof(cdat->dstr_4430__PUT_ENV.val)-1);
+ 
+ /*iniobj dsym_4431__ROUTINE_EVERY*/
+ if (!/*_.VALDATA___V4450*/ curfptr[4449]) /*_.VALDATA___V4450*/ curfptr[4449] = (void*)&cdat->dsym_4431__ROUTINE_EVERY;
+  melt_assertmsg("iniobj checkdiscr dsym_4431__ROUTINE_EVERY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4431__ROUTINE_EVERY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4431__ROUTINE_EVERY.obj_hash = 347090207;
+  cdat->dsym_4431__ROUTINE_EVERY.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4431__ROUTINE_EVERY));
+ 
+ /*inistring dstr_4432__ROUTINE_EVERY*/
+ /*_.VALSTR___V4451*/ curfptr[4450] = (void*)&cdat->dstr_4432__ROUTINE_EVERY;
+  cdat->dstr_4432__ROUTINE_EVERY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4432__ROUTINE_EVERY.val, "ROUTINE_EVERY", sizeof(cdat->dstr_4432__ROUTINE_EVERY.val)-1);
+ 
+ /*iniobj dsym_4433__TUPLE_NTH*/
+ if (!/*_.VALDATA___V4452*/ curfptr[4451]) /*_.VALDATA___V4452*/ curfptr[4451] = (void*)&cdat->dsym_4433__TUPLE_NTH;
+  melt_assertmsg("iniobj checkdiscr dsym_4433__TUPLE_NTH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4433__TUPLE_NTH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4433__TUPLE_NTH.obj_hash = 253823407;
+  cdat->dsym_4433__TUPLE_NTH.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4433__TUPLE_NTH));
+ 
+ /*inistring dstr_4434__TUPLE_NTH*/
+ /*_.VALSTR___V4453*/ curfptr[4452] = (void*)&cdat->dstr_4434__TUPLE_NTH;
+  cdat->dstr_4434__TUPLE_NTH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4434__TUPLE_NTH.val, "TUPLE_NTH", sizeof(cdat->dstr_4434__TUPLE_NTH.val)-1);
+ 
+ /*iniobj dsym_4435__TUPLE_SIZED*/
+ if (!/*_.VALDATA___V4454*/ curfptr[4453]) /*_.VALDATA___V4454*/ curfptr[4453] = (void*)&cdat->dsym_4435__TUPLE_SIZED;
+  melt_assertmsg("iniobj checkdiscr dsym_4435__TUPLE_SIZED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4435__TUPLE_SIZED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4435__TUPLE_SIZED.obj_hash = 620511343;
+  cdat->dsym_4435__TUPLE_SIZED.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4435__TUPLE_SIZED));
+ 
+ /*inistring dstr_4436__TUPLE_SIZED*/
+ /*_.VALSTR___V4455*/ curfptr[4454] = (void*)&cdat->dstr_4436__TUPLE_SIZED;
+  cdat->dstr_4436__TUPLE_SIZED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4436__TUPLE_SIZED.val, "TUPLE_SIZED", sizeof(cdat->dstr_4436__TUPLE_SIZED.val)-1);
+ 
+ /*iniobj dsym_4437__FOREACH_IN_LIST*/
+ if (!/*_.VALDATA___V4456*/ curfptr[4455]) /*_.VALDATA___V4456*/ curfptr[4455] = (void*)&cdat->dsym_4437__FOREACH_IN_LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_4437__FOREACH_IN_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4437__FOREACH_IN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4437__FOREACH_IN_LIST.obj_hash = 664644215;
+  cdat->dsym_4437__FOREACH_IN_LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4437__FOREACH_IN_LIST));
+ 
+ /*inistring dstr_4438__FOREACH_IN_LIST*/
+ /*_.VALSTR___V4457*/ curfptr[4456] = (void*)&cdat->dstr_4438__FOREACH_IN_LIST;
+  cdat->dstr_4438__FOREACH_IN_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4438__FOREACH_IN_LIST.val, "FOREACH_IN_LIST", sizeof(cdat->dstr_4438__FOREACH_IN_LIST.val)-1);
+ 
+ /*iniobj dsym_4439__FOREACH_IN_MAPOBJECT*/
+ if (!/*_.VALDATA___V4458*/ curfptr[4457]) /*_.VALDATA___V4458*/ curfptr[4457] = (void*)&cdat->dsym_4439__FOREACH_IN_MAPOBJECT;
+  melt_assertmsg("iniobj checkdiscr dsym_4439__FOREACH_IN_MAPOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4439__FOREACH_IN_MAPOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4439__FOREACH_IN_MAPOBJECT.obj_hash = 845660309;
+  cdat->dsym_4439__FOREACH_IN_MAPOBJECT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4439__FOREACH_IN_MAPOBJECT));
+ 
+ /*inistring dstr_4440__FOREACH_IN_MAPOB*/
+ /*_.VALSTR___V4459*/ curfptr[4458] = (void*)&cdat->dstr_4440__FOREACH_IN_MAPOB;
+  cdat->dstr_4440__FOREACH_IN_MAPOB.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4440__FOREACH_IN_MAPOB.val, "FOREACH_IN_MAPOBJECT", sizeof(cdat->dstr_4440__FOREACH_IN_MAPOB.val)-1);
+ 
+ /*iniobj dsym_4441__FOREACH_IN_MAPSTRING*/
+ if (!/*_.VALDATA___V4460*/ curfptr[4459]) /*_.VALDATA___V4460*/ curfptr[4459] = (void*)&cdat->dsym_4441__FOREACH_IN_MAPSTRING;
+  melt_assertmsg("iniobj checkdiscr dsym_4441__FOREACH_IN_MAPSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4441__FOREACH_IN_MAPSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4441__FOREACH_IN_MAPSTRING.obj_hash = 16742650;
+  cdat->dsym_4441__FOREACH_IN_MAPSTRING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4441__FOREACH_IN_MAPSTRING));
+ 
+ /*inistring dstr_4442__FOREACH_IN_MAPST*/
+ /*_.VALSTR___V4461*/ curfptr[4460] = (void*)&cdat->dstr_4442__FOREACH_IN_MAPST;
+  cdat->dstr_4442__FOREACH_IN_MAPST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4442__FOREACH_IN_MAPST.val, "FOREACH_IN_MAPSTRING", sizeof(cdat->dstr_4442__FOREACH_IN_MAPST.val)-1);
+ 
+ /*iniobj dsym_4443__FOREACH_IN_MULTIPLE*/
+ if (!/*_.VALDATA___V4462*/ curfptr[4461]) /*_.VALDATA___V4462*/ curfptr[4461] = (void*)&cdat->dsym_4443__FOREACH_IN_MULTIPLE;
+  melt_assertmsg("iniobj checkdiscr dsym_4443__FOREACH_IN_MULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4443__FOREACH_IN_MULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4443__FOREACH_IN_MULTIPLE.obj_hash = 692686837;
+  cdat->dsym_4443__FOREACH_IN_MULTIPLE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4443__FOREACH_IN_MULTIPLE));
+ 
+ /*inistring dstr_4444__FOREACH_IN_MULTI*/
+ /*_.VALSTR___V4463*/ curfptr[4462] = (void*)&cdat->dstr_4444__FOREACH_IN_MULTI;
+  cdat->dstr_4444__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4444__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE", sizeof(cdat->dstr_4444__FOREACH_IN_MULTI.val)-1);
+ 
+ /*iniobj dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD*/
+ if (!/*_.VALDATA___V4464*/ curfptr[4463]) /*_.VALDATA___V4464*/ curfptr[4463] = (void*)&cdat->dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD;
+  melt_assertmsg("iniobj checkdiscr dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD.obj_hash = 1067970766;
+  cdat->dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4445__FOREACH_IN_MULTIPLE_BACKWARD));
+ 
+ /*inistring dstr_4446__FOREACH_IN_MULTI*/
+ /*_.VALSTR___V4465*/ curfptr[4464] = (void*)&cdat->dstr_4446__FOREACH_IN_MULTI;
+  cdat->dstr_4446__FOREACH_IN_MULTI.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4446__FOREACH_IN_MULTI.val, "FOREACH_IN_MULTIPLE_BACKWARD", sizeof(cdat->dstr_4446__FOREACH_IN_MULTI.val)-1);
+ 
+ /*iniobj dsym_4447__FOREACH_LONG_UPTO*/
+ if (!/*_.VALDATA___V4466*/ curfptr[4465]) /*_.VALDATA___V4466*/ curfptr[4465] = (void*)&cdat->dsym_4447__FOREACH_LONG_UPTO;
+  melt_assertmsg("iniobj checkdiscr dsym_4447__FOREACH_LONG_UPTO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4447__FOREACH_LONG_UPTO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4447__FOREACH_LONG_UPTO.obj_hash = 84906035;
+  cdat->dsym_4447__FOREACH_LONG_UPTO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4447__FOREACH_LONG_UPTO));
+ 
+ /*inistring dstr_4448__FOREACH_LONG_UPT*/
+ /*_.VALSTR___V4467*/ curfptr[4466] = (void*)&cdat->dstr_4448__FOREACH_LONG_UPT;
+  cdat->dstr_4448__FOREACH_LONG_UPT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4448__FOREACH_LONG_UPT.val, "FOREACH_LONG_UPTO", sizeof(cdat->dstr_4448__FOREACH_LONG_UPT.val)-1);
+ 
+ /*iniobj dsym_4449__INTEGERBOX_OF*/
+ if (!/*_.VALDATA___V4468*/ curfptr[4467]) /*_.VALDATA___V4468*/ curfptr[4467] = (void*)&cdat->dsym_4449__INTEGERBOX_OF;
+  melt_assertmsg("iniobj checkdiscr dsym_4449__INTEGERBOX_OF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4449__INTEGERBOX_OF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4449__INTEGERBOX_OF.obj_hash = 641824224;
+  cdat->dsym_4449__INTEGERBOX_OF.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4449__INTEGERBOX_OF));
+ 
+ /*inistring dstr_4450__INTEGERBOX_OF*/
+ /*_.VALSTR___V4469*/ curfptr[4468] = (void*)&cdat->dstr_4450__INTEGERBOX_OF;
+  cdat->dstr_4450__INTEGERBOX_OF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4450__INTEGERBOX_OF.val, "INTEGERBOX_OF", sizeof(cdat->dstr_4450__INTEGERBOX_OF.val)-1);
+ 
+ /*iniobj dsym_4451__TRUE*/
+ if (!/*_.VALDATA___V4470*/ curfptr[4469]) /*_.VALDATA___V4470*/ curfptr[4469] = (void*)&cdat->dsym_4451__TRUE;
+  melt_assertmsg("iniobj checkdiscr dsym_4451__TRUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_4451__TRUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_KEYWORD))));
+  cdat->dsym_4451__TRUE.obj_hash = 576485513;
+  cdat->dsym_4451__TRUE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4451__TRUE));
+ 
+ /*inistring dstr_4452__TRUE*/
+ /*_.VALSTR___V4471*/ curfptr[4470] = (void*)&cdat->dstr_4452__TRUE;
+  cdat->dstr_4452__TRUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4452__TRUE.val, "TRUE", sizeof(cdat->dstr_4452__TRUE.val)-1);
+ 
+ /*iniobj dsym_4453__DISPLAYDEBUGMSG*/
+ if (!/*_.VALDATA___V4472*/ curfptr[4471]) /*_.VALDATA___V4472*/ curfptr[4471] = (void*)&cdat->dsym_4453__DISPLAYDEBUGMSG;
+  melt_assertmsg("iniobj checkdiscr dsym_4453__DISPLAYDEBUGMSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4453__DISPLAYDEBUGMSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_4453__DISPLAYDEBUGMSG.obj_hash = 784680112;
+  cdat->dsym_4453__DISPLAYDEBUGMSG.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_4453__DISPLAYDEBUGMSG));
+ 
+ /*inistring dstr_4454__DISPLAYDEBUGMSG*/
+ /*_.VALSTR___V4473*/ curfptr[4472] = (void*)&cdat->dstr_4454__DISPLAYDEBUGMSG;
+  cdat->dstr_4454__DISPLAYDEBUGMSG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_4454__DISPLAYDEBUGMSG.val, "DISPLAYDEBUGMSG", sizeof(cdat->dstr_4454__DISPLAYDEBUGMSG.val)-1);
   cdat = NULL;
  melt_prohibit_garbcoll = FALSE;
 
@@ -61195,7 +42358,7 @@ void* start_module_melt(void* modargp_) {
 
 initial_frame_st     curfram__;
   memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4551;
+ curfram__.nbvar = 4543;
  curfram__.prev = (struct callframe_melt_st *) melt_topframe;
  melt_topframe = (struct callframe_melt_st *) &curfram__;
 /**initial routine prologue**/
@@ -62041,2558 +43204,2548 @@ initial_frame_st     curfram__;
  
  /*getnamedsym:MOCX_MODULENAME*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MOCX_MODULENAME = meltgc_named_symbol("MOCX_MODULENAME", MELT_GET);
-  if (sy_MOCX_MODULENAME && NULL == /*_.VALDATA___V771*/ curfptr[770])
-  /*_.VALDATA___V771*/ curfptr[770] = (void*) sy_MOCX_MODULENAME; }
+  if (sy_MOCX_MODULENAME && NULL == /*_.VALDATA___V767*/ curfptr[766])
+  /*_.VALDATA___V767*/ curfptr[766] = (void*) sy_MOCX_MODULENAME; }
  
  /*getnamedsym:MOCX_EXPFIELDICT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MOCX_EXPFIELDICT = meltgc_named_symbol("MOCX_EXPFIELDICT", MELT_GET);
-  if (sy_MOCX_EXPFIELDICT && NULL == /*_.VALDATA___V773*/ curfptr[772])
-  /*_.VALDATA___V773*/ curfptr[772] = (void*) sy_MOCX_EXPFIELDICT; }
+  if (sy_MOCX_EXPFIELDICT && NULL == /*_.VALDATA___V769*/ curfptr[768])
+  /*_.VALDATA___V769*/ curfptr[768] = (void*) sy_MOCX_EXPFIELDICT; }
  
  /*getnamedsym:MOCX_EXPCLASSDICT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MOCX_EXPCLASSDICT = meltgc_named_symbol("MOCX_EXPCLASSDICT", MELT_GET);
-  if (sy_MOCX_EXPCLASSDICT && NULL == /*_.VALDATA___V775*/ curfptr[774])
-  /*_.VALDATA___V775*/ curfptr[774] = (void*) sy_MOCX_EXPCLASSDICT; }
+  if (sy_MOCX_EXPCLASSDICT && NULL == /*_.VALDATA___V771*/ curfptr[770])
+  /*_.VALDATA___V771*/ curfptr[770] = (void*) sy_MOCX_EXPCLASSDICT; }
  
  /*getnamedsym:MOCX_INITIALENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MOCX_INITIALENV = meltgc_named_symbol("MOCX_INITIALENV", MELT_GET);
-  if (sy_MOCX_INITIALENV && NULL == /*_.VALDATA___V777*/ curfptr[776])
-  /*_.VALDATA___V777*/ curfptr[776] = (void*) sy_MOCX_INITIALENV; }
- 
- /*getnamedsym:MOCX_FUNCOUNT*/
- if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MOCX_FUNCOUNT = meltgc_named_symbol("MOCX_FUNCOUNT", MELT_GET);
-  if (sy_MOCX_FUNCOUNT && NULL == /*_.VALDATA___V779*/ curfptr[778])
-  /*_.VALDATA___V779*/ curfptr[778] = (void*) sy_MOCX_FUNCOUNT; }
- 
- /*getnamedsym:MOCX_FILETUPLE*/
- if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MOCX_FILETUPLE = meltgc_named_symbol("MOCX_FILETUPLE", MELT_GET);
-  if (sy_MOCX_FILETUPLE && NULL == /*_.VALDATA___V781*/ curfptr[780])
-  /*_.VALDATA___V781*/ curfptr[780] = (void*) sy_MOCX_FILETUPLE; }
+  if (sy_MOCX_INITIALENV && NULL == /*_.VALDATA___V773*/ curfptr[772])
+  /*_.VALDATA___V773*/ curfptr[772] = (void*) sy_MOCX_INITIALENV; }
  
  /*getnamedsym:CLASS_NORMALIZATION_CONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_NORMALIZATION_CONTEXT = meltgc_named_symbol("CLASS_NORMALIZATION_CONTEXT", MELT_GET);
-  if (sy_CLASS_NORMALIZATION_CONTEXT && NULL == /*_.VALDATA___V783*/ curfptr[782])
-  /*_.VALDATA___V783*/ curfptr[782] = (void*) sy_CLASS_NORMALIZATION_CONTEXT; }
+  if (sy_CLASS_NORMALIZATION_CONTEXT && NULL == /*_.VALDATA___V775*/ curfptr[774])
+  /*_.VALDATA___V775*/ curfptr[774] = (void*) sy_CLASS_NORMALIZATION_CONTEXT; }
  
  /*getnamedsym:NCTX_INITPROC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_INITPROC = meltgc_named_symbol("NCTX_INITPROC", MELT_GET);
-  if (sy_NCTX_INITPROC && NULL == /*_.VALDATA___V819*/ curfptr[818])
-  /*_.VALDATA___V819*/ curfptr[818] = (void*) sy_NCTX_INITPROC; }
+  if (sy_NCTX_INITPROC && NULL == /*_.VALDATA___V811*/ curfptr[810])
+  /*_.VALDATA___V811*/ curfptr[810] = (void*) sy_NCTX_INITPROC; }
  
  /*getnamedsym:NCTX_PROCLIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_PROCLIST = meltgc_named_symbol("NCTX_PROCLIST", MELT_GET);
-  if (sy_NCTX_PROCLIST && NULL == /*_.VALDATA___V821*/ curfptr[820])
-  /*_.VALDATA___V821*/ curfptr[820] = (void*) sy_NCTX_PROCLIST; }
+  if (sy_NCTX_PROCLIST && NULL == /*_.VALDATA___V813*/ curfptr[812])
+  /*_.VALDATA___V813*/ curfptr[812] = (void*) sy_NCTX_PROCLIST; }
  
  /*getnamedsym:NCTX_DATALIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_DATALIST = meltgc_named_symbol("NCTX_DATALIST", MELT_GET);
-  if (sy_NCTX_DATALIST && NULL == /*_.VALDATA___V823*/ curfptr[822])
-  /*_.VALDATA___V823*/ curfptr[822] = (void*) sy_NCTX_DATALIST; }
+  if (sy_NCTX_DATALIST && NULL == /*_.VALDATA___V815*/ curfptr[814])
+  /*_.VALDATA___V815*/ curfptr[814] = (void*) sy_NCTX_DATALIST; }
  
  /*getnamedsym:NCTX_VALUELIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_VALUELIST = meltgc_named_symbol("NCTX_VALUELIST", MELT_GET);
-  if (sy_NCTX_VALUELIST && NULL == /*_.VALDATA___V825*/ curfptr[824])
-  /*_.VALDATA___V825*/ curfptr[824] = (void*) sy_NCTX_VALUELIST; }
+  if (sy_NCTX_VALUELIST && NULL == /*_.VALDATA___V817*/ curfptr[816])
+  /*_.VALDATA___V817*/ curfptr[816] = (void*) sy_NCTX_VALUELIST; }
  
  /*getnamedsym:NCTX_SYMBMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_SYMBMAP = meltgc_named_symbol("NCTX_SYMBMAP", MELT_GET);
-  if (sy_NCTX_SYMBMAP && NULL == /*_.VALDATA___V827*/ curfptr[826])
-  /*_.VALDATA___V827*/ curfptr[826] = (void*) sy_NCTX_SYMBMAP; }
+  if (sy_NCTX_SYMBMAP && NULL == /*_.VALDATA___V819*/ curfptr[818])
+  /*_.VALDATA___V819*/ curfptr[818] = (void*) sy_NCTX_SYMBMAP; }
  
  /*getnamedsym:NCTX_KEYWMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_KEYWMAP = meltgc_named_symbol("NCTX_KEYWMAP", MELT_GET);
-  if (sy_NCTX_KEYWMAP && NULL == /*_.VALDATA___V829*/ curfptr[828])
-  /*_.VALDATA___V829*/ curfptr[828] = (void*) sy_NCTX_KEYWMAP; }
+  if (sy_NCTX_KEYWMAP && NULL == /*_.VALDATA___V821*/ curfptr[820])
+  /*_.VALDATA___V821*/ curfptr[820] = (void*) sy_NCTX_KEYWMAP; }
  
  /*getnamedsym:NCTX_SYMBCACHEMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_SYMBCACHEMAP = meltgc_named_symbol("NCTX_SYMBCACHEMAP", MELT_GET);
-  if (sy_NCTX_SYMBCACHEMAP && NULL == /*_.VALDATA___V831*/ curfptr[830])
-  /*_.VALDATA___V831*/ curfptr[830] = (void*) sy_NCTX_SYMBCACHEMAP; }
+  if (sy_NCTX_SYMBCACHEMAP && NULL == /*_.VALDATA___V823*/ curfptr[822])
+  /*_.VALDATA___V823*/ curfptr[822] = (void*) sy_NCTX_SYMBCACHEMAP; }
  
  /*getnamedsym:NCTX_PREDEFMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_PREDEFMAP = meltgc_named_symbol("NCTX_PREDEFMAP", MELT_GET);
-  if (sy_NCTX_PREDEFMAP && NULL == /*_.VALDATA___V833*/ curfptr[832])
-  /*_.VALDATA___V833*/ curfptr[832] = (void*) sy_NCTX_PREDEFMAP; }
+  if (sy_NCTX_PREDEFMAP && NULL == /*_.VALDATA___V825*/ curfptr[824])
+  /*_.VALDATA___V825*/ curfptr[824] = (void*) sy_NCTX_PREDEFMAP; }
  
  /*getnamedsym:NCTX_VALMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_VALMAP = meltgc_named_symbol("NCTX_VALMAP", MELT_GET);
-  if (sy_NCTX_VALMAP && NULL == /*_.VALDATA___V835*/ curfptr[834])
-  /*_.VALDATA___V835*/ curfptr[834] = (void*) sy_NCTX_VALMAP; }
+  if (sy_NCTX_VALMAP && NULL == /*_.VALDATA___V827*/ curfptr[826])
+  /*_.VALDATA___V827*/ curfptr[826] = (void*) sy_NCTX_VALMAP; }
  
  /*getnamedsym:NCTX_VALBINDMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_VALBINDMAP = meltgc_named_symbol("NCTX_VALBINDMAP", MELT_GET);
-  if (sy_NCTX_VALBINDMAP && NULL == /*_.VALDATA___V837*/ curfptr[836])
-  /*_.VALDATA___V837*/ curfptr[836] = (void*) sy_NCTX_VALBINDMAP; }
+  if (sy_NCTX_VALBINDMAP && NULL == /*_.VALDATA___V829*/ curfptr[828])
+  /*_.VALDATA___V829*/ curfptr[828] = (void*) sy_NCTX_VALBINDMAP; }
  
  /*getnamedsym:NCTX_CURPROC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_CURPROC = meltgc_named_symbol("NCTX_CURPROC", MELT_GET);
-  if (sy_NCTX_CURPROC && NULL == /*_.VALDATA___V839*/ curfptr[838])
-  /*_.VALDATA___V839*/ curfptr[838] = (void*) sy_NCTX_CURPROC; }
+  if (sy_NCTX_CURPROC && NULL == /*_.VALDATA___V831*/ curfptr[830])
+  /*_.VALDATA___V831*/ curfptr[830] = (void*) sy_NCTX_CURPROC; }
  
  /*getnamedsym:NCTX_MODULCONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_MODULCONTEXT = meltgc_named_symbol("NCTX_MODULCONTEXT", MELT_GET);
-  if (sy_NCTX_MODULCONTEXT && NULL == /*_.VALDATA___V841*/ curfptr[840])
-  /*_.VALDATA___V841*/ curfptr[840] = (void*) sy_NCTX_MODULCONTEXT; }
+  if (sy_NCTX_MODULCONTEXT && NULL == /*_.VALDATA___V833*/ curfptr[832])
+  /*_.VALDATA___V833*/ curfptr[832] = (void*) sy_NCTX_MODULCONTEXT; }
  
  /*getnamedsym:NCTX_QDATCURMODENVBOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_QDATCURMODENVBOX = meltgc_named_symbol("NCTX_QDATCURMODENVBOX", MELT_GET);
-  if (sy_NCTX_QDATCURMODENVBOX && NULL == /*_.VALDATA___V843*/ curfptr[842])
-  /*_.VALDATA___V843*/ curfptr[842] = (void*) sy_NCTX_QDATCURMODENVBOX; }
+  if (sy_NCTX_QDATCURMODENVBOX && NULL == /*_.VALDATA___V835*/ curfptr[834])
+  /*_.VALDATA___V835*/ curfptr[834] = (void*) sy_NCTX_QDATCURMODENVBOX; }
  
  /*getnamedsym:NCTX_QDATPARMODENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_QDATPARMODENV = meltgc_named_symbol("NCTX_QDATPARMODENV", MELT_GET);
-  if (sy_NCTX_QDATPARMODENV && NULL == /*_.VALDATA___V845*/ curfptr[844])
-  /*_.VALDATA___V845*/ curfptr[844] = (void*) sy_NCTX_QDATPARMODENV; }
+  if (sy_NCTX_QDATPARMODENV && NULL == /*_.VALDATA___V837*/ curfptr[836])
+  /*_.VALDATA___V837*/ curfptr[836] = (void*) sy_NCTX_QDATPARMODENV; }
  
  /*getnamedsym:NCTX_PROCURMODENVLIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NCTX_PROCURMODENVLIST = meltgc_named_symbol("NCTX_PROCURMODENVLIST", MELT_GET);
-  if (sy_NCTX_PROCURMODENVLIST && NULL == /*_.VALDATA___V847*/ curfptr[846])
-  /*_.VALDATA___V847*/ curfptr[846] = (void*) sy_NCTX_PROCURMODENVLIST; }
+  if (sy_NCTX_PROCURMODENVLIST && NULL == /*_.VALDATA___V839*/ curfptr[838])
+  /*_.VALDATA___V839*/ curfptr[838] = (void*) sy_NCTX_PROCURMODENVLIST; }
  
  /*getnamedsym:CLASS_C_GENERATION_CONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_C_GENERATION_CONTEXT = meltgc_named_symbol("CLASS_C_GENERATION_CONTEXT", MELT_GET);
-  if (sy_CLASS_C_GENERATION_CONTEXT && NULL == /*_.VALDATA___V849*/ curfptr[848])
-  /*_.VALDATA___V849*/ curfptr[848] = (void*) sy_CLASS_C_GENERATION_CONTEXT; }
+  if (sy_CLASS_C_GENERATION_CONTEXT && NULL == /*_.VALDATA___V841*/ curfptr[840])
+  /*_.VALDATA___V841*/ curfptr[840] = (void*) sy_CLASS_C_GENERATION_CONTEXT; }
  
  /*getnamedsym:GNCX_OBJROUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_OBJROUT = meltgc_named_symbol("GNCX_OBJROUT", MELT_GET);
-  if (sy_GNCX_OBJROUT && NULL == /*_.VALDATA___V873*/ curfptr[872])
-  /*_.VALDATA___V873*/ curfptr[872] = (void*) sy_GNCX_OBJROUT; }
+  if (sy_GNCX_OBJROUT && NULL == /*_.VALDATA___V865*/ curfptr[864])
+  /*_.VALDATA___V865*/ curfptr[864] = (void*) sy_GNCX_OBJROUT; }
  
  /*getnamedsym:GNCX_LOCMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_LOCMAP = meltgc_named_symbol("GNCX_LOCMAP", MELT_GET);
-  if (sy_GNCX_LOCMAP && NULL == /*_.VALDATA___V875*/ curfptr[874])
-  /*_.VALDATA___V875*/ curfptr[874] = (void*) sy_GNCX_LOCMAP; }
+  if (sy_GNCX_LOCMAP && NULL == /*_.VALDATA___V867*/ curfptr[866])
+  /*_.VALDATA___V867*/ curfptr[866] = (void*) sy_GNCX_LOCMAP; }
  
  /*getnamedsym:GNCX_FREEPTRLIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_FREEPTRLIST = meltgc_named_symbol("GNCX_FREEPTRLIST", MELT_GET);
-  if (sy_GNCX_FREEPTRLIST && NULL == /*_.VALDATA___V877*/ curfptr[876])
-  /*_.VALDATA___V877*/ curfptr[876] = (void*) sy_GNCX_FREEPTRLIST; }
+  if (sy_GNCX_FREEPTRLIST && NULL == /*_.VALDATA___V869*/ curfptr[868])
+  /*_.VALDATA___V869*/ curfptr[868] = (void*) sy_GNCX_FREEPTRLIST; }
  
  /*getnamedsym:GNCX_FREELONGLIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_FREELONGLIST = meltgc_named_symbol("GNCX_FREELONGLIST", MELT_GET);
-  if (sy_GNCX_FREELONGLIST && NULL == /*_.VALDATA___V879*/ curfptr[878])
-  /*_.VALDATA___V879*/ curfptr[878] = (void*) sy_GNCX_FREELONGLIST; }
+  if (sy_GNCX_FREELONGLIST && NULL == /*_.VALDATA___V871*/ curfptr[870])
+  /*_.VALDATA___V871*/ curfptr[870] = (void*) sy_GNCX_FREELONGLIST; }
  
  /*getnamedsym:GNCX_FREEOTHERMAPS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_FREEOTHERMAPS = meltgc_named_symbol("GNCX_FREEOTHERMAPS", MELT_GET);
-  if (sy_GNCX_FREEOTHERMAPS && NULL == /*_.VALDATA___V881*/ curfptr[880])
-  /*_.VALDATA___V881*/ curfptr[880] = (void*) sy_GNCX_FREEOTHERMAPS; }
+  if (sy_GNCX_FREEOTHERMAPS && NULL == /*_.VALDATA___V873*/ curfptr[872])
+  /*_.VALDATA___V873*/ curfptr[872] = (void*) sy_GNCX_FREEOTHERMAPS; }
  
  /*getnamedsym:GNCX_RETLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_RETLOC = meltgc_named_symbol("GNCX_RETLOC", MELT_GET);
-  if (sy_GNCX_RETLOC && NULL == /*_.VALDATA___V883*/ curfptr[882])
-  /*_.VALDATA___V883*/ curfptr[882] = (void*) sy_GNCX_RETLOC; }
+  if (sy_GNCX_RETLOC && NULL == /*_.VALDATA___V875*/ curfptr[874])
+  /*_.VALDATA___V875*/ curfptr[874] = (void*) sy_GNCX_RETLOC; }
  
  /*getnamedsym:GNCX_COMPICACHE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_COMPICACHE = meltgc_named_symbol("GNCX_COMPICACHE", MELT_GET);
-  if (sy_GNCX_COMPICACHE && NULL == /*_.VALDATA___V885*/ curfptr[884])
-  /*_.VALDATA___V885*/ curfptr[884] = (void*) sy_GNCX_COMPICACHE; }
+  if (sy_GNCX_COMPICACHE && NULL == /*_.VALDATA___V877*/ curfptr[876])
+  /*_.VALDATA___V877*/ curfptr[876] = (void*) sy_GNCX_COMPICACHE; }
  
  /*getnamedsym:GNCX_MODULCONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_MODULCONTEXT = meltgc_named_symbol("GNCX_MODULCONTEXT", MELT_GET);
-  if (sy_GNCX_MODULCONTEXT && NULL == /*_.VALDATA___V887*/ curfptr[886])
-  /*_.VALDATA___V887*/ curfptr[886] = (void*) sy_GNCX_MODULCONTEXT; }
+  if (sy_GNCX_MODULCONTEXT && NULL == /*_.VALDATA___V879*/ curfptr[878])
+  /*_.VALDATA___V879*/ curfptr[878] = (void*) sy_GNCX_MODULCONTEXT; }
  
  /*getnamedsym:GNCX_MATCHMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GNCX_MATCHMAP = meltgc_named_symbol("GNCX_MATCHMAP", MELT_GET);
-  if (sy_GNCX_MATCHMAP && NULL == /*_.VALDATA___V889*/ curfptr[888])
-  /*_.VALDATA___V889*/ curfptr[888] = (void*) sy_GNCX_MATCHMAP; }
+  if (sy_GNCX_MATCHMAP && NULL == /*_.VALDATA___V881*/ curfptr[880])
+  /*_.VALDATA___V881*/ curfptr[880] = (void*) sy_GNCX_MATCHMAP; }
  
  /*getnamedsym:CLASS_INITIAL_GENERATION_CONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_INITIAL_GENERATION_CONTEXT = meltgc_named_symbol("CLASS_INITIAL_GENERATION_CONTEXT", MELT_GET);
-  if (sy_CLASS_INITIAL_GENERATION_CONTEXT && NULL == /*_.VALDATA___V891*/ curfptr[890])
-  /*_.VALDATA___V891*/ curfptr[890] = (void*) sy_CLASS_INITIAL_GENERATION_CONTEXT; }
+  if (sy_CLASS_INITIAL_GENERATION_CONTEXT && NULL == /*_.VALDATA___V883*/ curfptr[882])
+  /*_.VALDATA___V883*/ curfptr[882] = (void*) sy_CLASS_INITIAL_GENERATION_CONTEXT; }
  
  /*getnamedsym:IGNCX_PREVENVLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IGNCX_PREVENVLOC = meltgc_named_symbol("IGNCX_PREVENVLOC", MELT_GET);
-  if (sy_IGNCX_PREVENVLOC && NULL == /*_.VALDATA___V905*/ curfptr[904])
-  /*_.VALDATA___V905*/ curfptr[904] = (void*) sy_IGNCX_PREVENVLOC; }
+  if (sy_IGNCX_PREVENVLOC && NULL == /*_.VALDATA___V897*/ curfptr[896])
+  /*_.VALDATA___V897*/ curfptr[896] = (void*) sy_IGNCX_PREVENVLOC; }
  
  /*getnamedsym:IGNCX_CONTENVLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IGNCX_CONTENVLOC = meltgc_named_symbol("IGNCX_CONTENVLOC", MELT_GET);
-  if (sy_IGNCX_CONTENVLOC && NULL == /*_.VALDATA___V907*/ curfptr[906])
-  /*_.VALDATA___V907*/ curfptr[906] = (void*) sy_IGNCX_CONTENVLOC; }
+  if (sy_IGNCX_CONTENVLOC && NULL == /*_.VALDATA___V899*/ curfptr[898])
+  /*_.VALDATA___V899*/ curfptr[898] = (void*) sy_IGNCX_CONTENVLOC; }
  
  /*getnamedsym:IGNCX_PROCURMODENVLIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IGNCX_PROCURMODENVLIST = meltgc_named_symbol("IGNCX_PROCURMODENVLIST", MELT_GET);
-  if (sy_IGNCX_PROCURMODENVLIST && NULL == /*_.VALDATA___V909*/ curfptr[908])
-  /*_.VALDATA___V909*/ curfptr[908] = (void*) sy_IGNCX_PROCURMODENVLIST; }
+  if (sy_IGNCX_PROCURMODENVLIST && NULL == /*_.VALDATA___V901*/ curfptr[900])
+  /*_.VALDATA___V901*/ curfptr[900] = (void*) sy_IGNCX_PROCURMODENVLIST; }
  
  /*getnamedsym:IGNCX_IMPORTMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IGNCX_IMPORTMAP = meltgc_named_symbol("IGNCX_IMPORTMAP", MELT_GET);
-  if (sy_IGNCX_IMPORTMAP && NULL == /*_.VALDATA___V911*/ curfptr[910])
-  /*_.VALDATA___V911*/ curfptr[910] = (void*) sy_IGNCX_IMPORTMAP; }
+  if (sy_IGNCX_IMPORTMAP && NULL == /*_.VALDATA___V903*/ curfptr[902])
+  /*_.VALDATA___V903*/ curfptr[902] = (void*) sy_IGNCX_IMPORTMAP; }
  
  /*getnamedsym:CLASS_GENERATED_C_CODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_GENERATED_C_CODE = meltgc_named_symbol("CLASS_GENERATED_C_CODE", MELT_GET);
-  if (sy_CLASS_GENERATED_C_CODE && NULL == /*_.VALDATA___V913*/ curfptr[912])
-  /*_.VALDATA___V913*/ curfptr[912] = (void*) sy_CLASS_GENERATED_C_CODE; }
+  if (sy_CLASS_GENERATED_C_CODE && NULL == /*_.VALDATA___V905*/ curfptr[904])
+  /*_.VALDATA___V905*/ curfptr[904] = (void*) sy_CLASS_GENERATED_C_CODE; }
  
  /*getnamedsym:IGNORE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IGNORE = meltgc_named_symbol("IGNORE", MELT_GET);
-  if (sy_IGNORE && NULL == /*_.VALDATA___V919*/ curfptr[918])
-  /*_.VALDATA___V919*/ curfptr[918] = (void*) sy_IGNORE; }
+  if (sy_IGNORE && NULL == /*_.VALDATA___V911*/ curfptr[910])
+  /*_.VALDATA___V911*/ curfptr[910] = (void*) sy_IGNORE; }
  
  /*getnamedsym:V*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V = meltgc_named_symbol("V", MELT_GET);
-  if (sy_V && NULL == /*_.VALDATA___V924*/ curfptr[923])
-  /*_.VALDATA___V924*/ curfptr[923] = (void*) sy_V; }
+  if (sy_V && NULL == /*_.VALDATA___V916*/ curfptr[915])
+  /*_.VALDATA___V916*/ curfptr[915] = (void*) sy_V; }
  
  /*getnamedsym:VOID*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_VOID = meltgc_named_symbol("VOID", MELT_GET);
-  if (sy_VOID && NULL == /*_.VALDATA___V930*/ curfptr[929])
-  /*_.VALDATA___V930*/ curfptr[929] = (void*) sy_VOID; }
+  if (sy_VOID && NULL == /*_.VALDATA___V922*/ curfptr[921])
+  /*_.VALDATA___V922*/ curfptr[921] = (void*) sy_VOID; }
  
  /*getnamedsym:STRINGCONST2VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRINGCONST2VAL = meltgc_named_symbol("STRINGCONST2VAL", MELT_GET);
-  if (sy_STRINGCONST2VAL && NULL == /*_.VALDATA___V937*/ curfptr[936])
-  /*_.VALDATA___V937*/ curfptr[936] = (void*) sy_STRINGCONST2VAL; }
+  if (sy_STRINGCONST2VAL && NULL == /*_.VALDATA___V929*/ curfptr[928])
+  /*_.VALDATA___V929*/ curfptr[928] = (void*) sy_STRINGCONST2VAL; }
  
  /*getnamedsym:DISCR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR = meltgc_named_symbol("DISCR", MELT_GET);
-  if (sy_DISCR && NULL == /*_.VALDATA___V942*/ curfptr[941])
-  /*_.VALDATA___V942*/ curfptr[941] = (void*) sy_DISCR; }
+  if (sy_DISCR && NULL == /*_.VALDATA___V934*/ curfptr[933])
+  /*_.VALDATA___V934*/ curfptr[933] = (void*) sy_DISCR; }
  
  /*getnamedsym:STRC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRC = meltgc_named_symbol("STRC", MELT_GET);
-  if (sy_STRC && NULL == /*_.VALDATA___V945*/ curfptr[944])
-  /*_.VALDATA___V945*/ curfptr[944] = (void*) sy_STRC; }
+  if (sy_STRC && NULL == /*_.VALDATA___V937*/ curfptr[936])
+  /*_.VALDATA___V937*/ curfptr[936] = (void*) sy_STRC; }
  
  /*getnamedsym:IS_A*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_A = meltgc_named_symbol("IS_A", MELT_GET);
-  if (sy_IS_A && NULL == /*_.VALDATA___V952*/ curfptr[951])
-  /*_.VALDATA___V952*/ curfptr[951] = (void*) sy_IS_A; }
+  if (sy_IS_A && NULL == /*_.VALDATA___V944*/ curfptr[943])
+  /*_.VALDATA___V944*/ curfptr[943] = (void*) sy_IS_A; }
  
  /*getnamedsym:OBJ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJ = meltgc_named_symbol("OBJ", MELT_GET);
-  if (sy_OBJ && NULL == /*_.VALDATA___V957*/ curfptr[956])
-  /*_.VALDATA___V957*/ curfptr[956] = (void*) sy_OBJ; }
+  if (sy_OBJ && NULL == /*_.VALDATA___V949*/ curfptr[948])
+  /*_.VALDATA___V949*/ curfptr[948] = (void*) sy_OBJ; }
  
  /*getnamedsym:CLA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLA = meltgc_named_symbol("CLA", MELT_GET);
-  if (sy_CLA && NULL == /*_.VALDATA___V960*/ curfptr[959])
-  /*_.VALDATA___V960*/ curfptr[959] = (void*) sy_CLA; }
+  if (sy_CLA && NULL == /*_.VALDATA___V952*/ curfptr[951])
+  /*_.VALDATA___V952*/ curfptr[951] = (void*) sy_CLA; }
  
  /*getnamedsym:IS_NOT_A*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_NOT_A = meltgc_named_symbol("IS_NOT_A", MELT_GET);
-  if (sy_IS_NOT_A && NULL == /*_.VALDATA___V967*/ curfptr[966])
-  /*_.VALDATA___V967*/ curfptr[966] = (void*) sy_IS_NOT_A; }
+  if (sy_IS_NOT_A && NULL == /*_.VALDATA___V959*/ curfptr[958])
+  /*_.VALDATA___V959*/ curfptr[958] = (void*) sy_IS_NOT_A; }
  
  /*getnamedsym:IS_OBJECT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_OBJECT = meltgc_named_symbol("IS_OBJECT", MELT_GET);
-  if (sy_IS_OBJECT && NULL == /*_.VALDATA___V978*/ curfptr[977])
-  /*_.VALDATA___V978*/ curfptr[977] = (void*) sy_IS_OBJECT; }
+  if (sy_IS_OBJECT && NULL == /*_.VALDATA___V970*/ curfptr[969])
+  /*_.VALDATA___V970*/ curfptr[969] = (void*) sy_IS_OBJECT; }
  
  /*getnamedsym:IS_NOT_OBJECT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_NOT_OBJECT = meltgc_named_symbol("IS_NOT_OBJECT", MELT_GET);
-  if (sy_IS_NOT_OBJECT && NULL == /*_.VALDATA___V987*/ curfptr[986])
-  /*_.VALDATA___V987*/ curfptr[986] = (void*) sy_IS_NOT_OBJECT; }
+  if (sy_IS_NOT_OBJECT && NULL == /*_.VALDATA___V979*/ curfptr[978])
+  /*_.VALDATA___V979*/ curfptr[978] = (void*) sy_IS_NOT_OBJECT; }
  
  /*getnamedsym:GET_GLOBPREDEF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GET_GLOBPREDEF = meltgc_named_symbol("GET_GLOBPREDEF", MELT_GET);
-  if (sy_GET_GLOBPREDEF && NULL == /*_.VALDATA___V996*/ curfptr[995])
-  /*_.VALDATA___V996*/ curfptr[995] = (void*) sy_GET_GLOBPREDEF; }
+  if (sy_GET_GLOBPREDEF && NULL == /*_.VALDATA___V988*/ curfptr[987])
+  /*_.VALDATA___V988*/ curfptr[987] = (void*) sy_GET_GLOBPREDEF; }
  
  /*getnamedsym:IX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IX = meltgc_named_symbol("IX", MELT_GET);
-  if (sy_IX && NULL == /*_.VALDATA___V1001*/ curfptr[1000])
-  /*_.VALDATA___V1001*/ curfptr[1000] = (void*) sy_IX; }
+  if (sy_IX && NULL == /*_.VALDATA___V993*/ curfptr[992])
+  /*_.VALDATA___V993*/ curfptr[992] = (void*) sy_IX; }
  
  /*getnamedsym:DISCRIM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCRIM = meltgc_named_symbol("DISCRIM", MELT_GET);
-  if (sy_DISCRIM && NULL == /*_.VALDATA___V1007*/ curfptr[1006])
-  /*_.VALDATA___V1007*/ curfptr[1006] = (void*) sy_DISCRIM; }
+  if (sy_DISCRIM && NULL == /*_.VALDATA___V999*/ curfptr[998])
+  /*_.VALDATA___V999*/ curfptr[998] = (void*) sy_DISCRIM; }
  
  /*getnamedsym:GET_INT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GET_INT = meltgc_named_symbol("GET_INT", MELT_GET);
-  if (sy_GET_INT && NULL == /*_.VALDATA___V1016*/ curfptr[1015])
-  /*_.VALDATA___V1016*/ curfptr[1015] = (void*) sy_GET_INT; }
+  if (sy_GET_INT && NULL == /*_.VALDATA___V1008*/ curfptr[1007])
+  /*_.VALDATA___V1008*/ curfptr[1007] = (void*) sy_GET_INT; }
  
  /*getnamedsym:PUT_INT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PUT_INT = meltgc_named_symbol("PUT_INT", MELT_GET);
-  if (sy_PUT_INT && NULL == /*_.VALDATA___V1025*/ curfptr[1024])
-  /*_.VALDATA___V1025*/ curfptr[1024] = (void*) sy_PUT_INT; }
+  if (sy_PUT_INT && NULL == /*_.VALDATA___V1017*/ curfptr[1016])
+  /*_.VALDATA___V1017*/ curfptr[1016] = (void*) sy_PUT_INT; }
  
  /*getnamedsym:I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1031*/ curfptr[1030])
-  /*_.VALDATA___V1031*/ curfptr[1030] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1023*/ curfptr[1022])
+  /*_.VALDATA___V1023*/ curfptr[1022] = (void*) sy_I; }
  
  /*getnamedsym:OBJ_HASH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJ_HASH = meltgc_named_symbol("OBJ_HASH", MELT_GET);
-  if (sy_OBJ_HASH && NULL == /*_.VALDATA___V1038*/ curfptr[1037])
-  /*_.VALDATA___V1038*/ curfptr[1037] = (void*) sy_OBJ_HASH; }
+  if (sy_OBJ_HASH && NULL == /*_.VALDATA___V1030*/ curfptr[1029])
+  /*_.VALDATA___V1030*/ curfptr[1029] = (void*) sy_OBJ_HASH; }
  
  /*getnamedsym:OBJ_LEN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJ_LEN = meltgc_named_symbol("OBJ_LEN", MELT_GET);
-  if (sy_OBJ_LEN && NULL == /*_.VALDATA___V1047*/ curfptr[1046])
-  /*_.VALDATA___V1047*/ curfptr[1046] = (void*) sy_OBJ_LEN; }
+  if (sy_OBJ_LEN && NULL == /*_.VALDATA___V1039*/ curfptr[1038])
+  /*_.VALDATA___V1039*/ curfptr[1038] = (void*) sy_OBJ_LEN; }
  
  /*getnamedsym:OBJ_NUM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJ_NUM = meltgc_named_symbol("OBJ_NUM", MELT_GET);
-  if (sy_OBJ_NUM && NULL == /*_.VALDATA___V1056*/ curfptr[1055])
-  /*_.VALDATA___V1056*/ curfptr[1055] = (void*) sy_OBJ_NUM; }
+  if (sy_OBJ_NUM && NULL == /*_.VALDATA___V1048*/ curfptr[1047])
+  /*_.VALDATA___V1048*/ curfptr[1047] = (void*) sy_OBJ_NUM; }
  
  /*getnamedsym:OBJ_SERIAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJ_SERIAL = meltgc_named_symbol("OBJ_SERIAL", MELT_GET);
-  if (sy_OBJ_SERIAL && NULL == /*_.VALDATA___V1065*/ curfptr[1064])
-  /*_.VALDATA___V1065*/ curfptr[1064] = (void*) sy_OBJ_SERIAL; }
+  if (sy_OBJ_SERIAL && NULL == /*_.VALDATA___V1057*/ curfptr[1056])
+  /*_.VALDATA___V1057*/ curfptr[1056] = (void*) sy_OBJ_SERIAL; }
  
  /*getnamedsym:NONZERO_HASH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NONZERO_HASH = meltgc_named_symbol("NONZERO_HASH", MELT_GET);
-  if (sy_NONZERO_HASH && NULL == /*_.VALDATA___V1074*/ curfptr[1073])
-  /*_.VALDATA___V1074*/ curfptr[1073] = (void*) sy_NONZERO_HASH; }
+  if (sy_NONZERO_HASH && NULL == /*_.VALDATA___V1066*/ curfptr[1065])
+  /*_.VALDATA___V1066*/ curfptr[1065] = (void*) sy_NONZERO_HASH; }
  
  /*getnamedsym:==*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ = meltgc_named_symbol("==", MELT_GET);
-  if (sy_ && NULL == /*_.VALDATA___V1081*/ curfptr[1080])
-  /*_.VALDATA___V1081*/ curfptr[1080] = (void*) sy_; }
+  if (sy_ && NULL == /*_.VALDATA___V1073*/ curfptr[1072])
+  /*_.VALDATA___V1073*/ curfptr[1072] = (void*) sy_; }
  
  /*getnamedsym:A*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_A = meltgc_named_symbol("A", MELT_GET);
-  if (sy_A && NULL == /*_.VALDATA___V1086*/ curfptr[1085])
-  /*_.VALDATA___V1086*/ curfptr[1085] = (void*) sy_A; }
+  if (sy_A && NULL == /*_.VALDATA___V1078*/ curfptr[1077])
+  /*_.VALDATA___V1078*/ curfptr[1077] = (void*) sy_A; }
  
  /*getnamedsym:B*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_B = meltgc_named_symbol("B", MELT_GET);
-  if (sy_B && NULL == /*_.VALDATA___V1089*/ curfptr[1088])
-  /*_.VALDATA___V1089*/ curfptr[1088] = (void*) sy_B; }
+  if (sy_B && NULL == /*_.VALDATA___V1081*/ curfptr[1080])
+  /*_.VALDATA___V1081*/ curfptr[1080] = (void*) sy_B; }
  
  /*getnamedsym:!=*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ = meltgc_named_symbol("!=", MELT_GET);
-  if (sy_ && NULL == /*_.VALDATA___V1096*/ curfptr[1095])
-  /*_.VALDATA___V1096*/ curfptr[1095] = (void*) sy_; }
+  if (sy_ && NULL == /*_.VALDATA___V1088*/ curfptr[1087])
+  /*_.VALDATA___V1088*/ curfptr[1087] = (void*) sy_; }
  
  /*getnamedsym:THE_CALLCOUNT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_THE_CALLCOUNT = meltgc_named_symbol("THE_CALLCOUNT", MELT_GET);
-  if (sy_THE_CALLCOUNT && NULL == /*_.VALDATA___V1107*/ curfptr[1106])
-  /*_.VALDATA___V1107*/ curfptr[1106] = (void*) sy_THE_CALLCOUNT; }
+  if (sy_THE_CALLCOUNT && NULL == /*_.VALDATA___V1099*/ curfptr[1098])
+  /*_.VALDATA___V1099*/ curfptr[1098] = (void*) sy_THE_CALLCOUNT; }
  
  /*getnamedsym:THE_FRAMEDEPTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_THE_FRAMEDEPTH = meltgc_named_symbol("THE_FRAMEDEPTH", MELT_GET);
-  if (sy_THE_FRAMEDEPTH && NULL == /*_.VALDATA___V1114*/ curfptr[1113])
-  /*_.VALDATA___V1114*/ curfptr[1113] = (void*) sy_THE_FRAMEDEPTH; }
+  if (sy_THE_FRAMEDEPTH && NULL == /*_.VALDATA___V1106*/ curfptr[1105])
+  /*_.VALDATA___V1106*/ curfptr[1105] = (void*) sy_THE_FRAMEDEPTH; }
  
  /*getnamedsym:OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR = meltgc_named_symbol("OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR", MELT_GET);
-  if (sy_OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR && NULL == /*_.VALDATA___V1121*/ curfptr[1120])
-  /*_.VALDATA___V1121*/ curfptr[1120] = (void*) sy_OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR; }
+  if (sy_OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR && NULL == /*_.VALDATA___V1113*/ curfptr[1112])
+  /*_.VALDATA___V1113*/ curfptr[1112] = (void*) sy_OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR; }
  
  /*getnamedsym:OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUT_CPLUGIN_MD5_CHECKSUM_ERR = meltgc_named_symbol("OUT_CPLUGIN_MD5_CHECKSUM_ERR", MELT_GET);
-  if (sy_OUT_CPLUGIN_MD5_CHECKSUM_ERR && NULL == /*_.VALDATA___V1128*/ curfptr[1127])
-  /*_.VALDATA___V1128*/ curfptr[1127] = (void*) sy_OUT_CPLUGIN_MD5_CHECKSUM_ERR; }
+  if (sy_OUT_CPLUGIN_MD5_CHECKSUM_ERR && NULL == /*_.VALDATA___V1120*/ curfptr[1119])
+  /*_.VALDATA___V1120*/ curfptr[1119] = (void*) sy_OUT_CPLUGIN_MD5_CHECKSUM_ERR; }
  
  /*getnamedsym:MINOR_GARBCOLL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MINOR_GARBCOLL = meltgc_named_symbol("MINOR_GARBCOLL", MELT_GET);
-  if (sy_MINOR_GARBCOLL && NULL == /*_.VALDATA___V1135*/ curfptr[1134])
-  /*_.VALDATA___V1135*/ curfptr[1134] = (void*) sy_MINOR_GARBCOLL; }
+  if (sy_MINOR_GARBCOLL && NULL == /*_.VALDATA___V1127*/ curfptr[1126])
+  /*_.VALDATA___V1127*/ curfptr[1126] = (void*) sy_MINOR_GARBCOLL; }
  
  /*getnamedsym:SIZ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SIZ = meltgc_named_symbol("SIZ", MELT_GET);
-  if (sy_SIZ && NULL == /*_.VALDATA___V1140*/ curfptr[1139])
-  /*_.VALDATA___V1140*/ curfptr[1139] = (void*) sy_SIZ; }
+  if (sy_SIZ && NULL == /*_.VALDATA___V1132*/ curfptr[1131])
+  /*_.VALDATA___V1132*/ curfptr[1131] = (void*) sy_SIZ; }
  
  /*getnamedsym:FULL_GARBCOLL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FULL_GARBCOLL = meltgc_named_symbol("FULL_GARBCOLL", MELT_GET);
-  if (sy_FULL_GARBCOLL && NULL == /*_.VALDATA___V1146*/ curfptr[1145])
-  /*_.VALDATA___V1146*/ curfptr[1145] = (void*) sy_FULL_GARBCOLL; }
+  if (sy_FULL_GARBCOLL && NULL == /*_.VALDATA___V1138*/ curfptr[1137])
+  /*_.VALDATA___V1138*/ curfptr[1137] = (void*) sy_FULL_GARBCOLL; }
  
  /*getnamedsym:GET_SYMBOLSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GET_SYMBOLSTR = meltgc_named_symbol("GET_SYMBOLSTR", MELT_GET);
-  if (sy_GET_SYMBOLSTR && NULL == /*_.VALDATA___V1155*/ curfptr[1154])
-  /*_.VALDATA___V1155*/ curfptr[1154] = (void*) sy_GET_SYMBOLSTR; }
+  if (sy_GET_SYMBOLSTR && NULL == /*_.VALDATA___V1147*/ curfptr[1146])
+  /*_.VALDATA___V1147*/ curfptr[1146] = (void*) sy_GET_SYMBOLSTR; }
  
  /*getnamedsym:STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRV = meltgc_named_symbol("STRV", MELT_GET);
-  if (sy_STRV && NULL == /*_.VALDATA___V1160*/ curfptr[1159])
-  /*_.VALDATA___V1160*/ curfptr[1159] = (void*) sy_STRV; }
+  if (sy_STRV && NULL == /*_.VALDATA___V1152*/ curfptr[1151])
+  /*_.VALDATA___V1152*/ curfptr[1151] = (void*) sy_STRV; }
  
  /*getnamedsym:CREATE_SYMBOLSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CREATE_SYMBOLSTR = meltgc_named_symbol("CREATE_SYMBOLSTR", MELT_GET);
-  if (sy_CREATE_SYMBOLSTR && NULL == /*_.VALDATA___V1166*/ curfptr[1165])
-  /*_.VALDATA___V1166*/ curfptr[1165] = (void*) sy_CREATE_SYMBOLSTR; }
+  if (sy_CREATE_SYMBOLSTR && NULL == /*_.VALDATA___V1158*/ curfptr[1157])
+  /*_.VALDATA___V1158*/ curfptr[1157] = (void*) sy_CREATE_SYMBOLSTR; }
  
  /*getnamedsym:GET_KEYWORDSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GET_KEYWORDSTR = meltgc_named_symbol("GET_KEYWORDSTR", MELT_GET);
-  if (sy_GET_KEYWORDSTR && NULL == /*_.VALDATA___V1175*/ curfptr[1174])
-  /*_.VALDATA___V1175*/ curfptr[1174] = (void*) sy_GET_KEYWORDSTR; }
+  if (sy_GET_KEYWORDSTR && NULL == /*_.VALDATA___V1167*/ curfptr[1166])
+  /*_.VALDATA___V1167*/ curfptr[1166] = (void*) sy_GET_KEYWORDSTR; }
  
  /*getnamedsym:CREATE_KEYWORDSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CREATE_KEYWORDSTR = meltgc_named_symbol("CREATE_KEYWORDSTR", MELT_GET);
-  if (sy_CREATE_KEYWORDSTR && NULL == /*_.VALDATA___V1184*/ curfptr[1183])
-  /*_.VALDATA___V1184*/ curfptr[1183] = (void*) sy_CREATE_KEYWORDSTR; }
+  if (sy_CREATE_KEYWORDSTR && NULL == /*_.VALDATA___V1176*/ curfptr[1175])
+  /*_.VALDATA___V1176*/ curfptr[1175] = (void*) sy_CREATE_KEYWORDSTR; }
  
  /*getnamedsym:ASSERT_FAILED*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ASSERT_FAILED = meltgc_named_symbol("ASSERT_FAILED", MELT_GET);
-  if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1193*/ curfptr[1192])
-  /*_.VALDATA___V1193*/ curfptr[1192] = (void*) sy_ASSERT_FAILED; }
+  if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1185*/ curfptr[1184])
+  /*_.VALDATA___V1185*/ curfptr[1184] = (void*) sy_ASSERT_FAILED; }
  
  /*getnamedsym:MSG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MSG = meltgc_named_symbol("MSG", MELT_GET);
-  if (sy_MSG && NULL == /*_.VALDATA___V1198*/ curfptr[1197])
-  /*_.VALDATA___V1198*/ curfptr[1197] = (void*) sy_MSG; }
+  if (sy_MSG && NULL == /*_.VALDATA___V1190*/ curfptr[1189])
+  /*_.VALDATA___V1190*/ curfptr[1189] = (void*) sy_MSG; }
  
  /*getnamedsym:FILENAME*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FILENAME = meltgc_named_symbol("FILENAME", MELT_GET);
-  if (sy_FILENAME && NULL == /*_.VALDATA___V1201*/ curfptr[1200])
-  /*_.VALDATA___V1201*/ curfptr[1200] = (void*) sy_FILENAME; }
+  if (sy_FILENAME && NULL == /*_.VALDATA___V1193*/ curfptr[1192])
+  /*_.VALDATA___V1193*/ curfptr[1192] = (void*) sy_FILENAME; }
  
  /*getnamedsym:LINENO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LINENO = meltgc_named_symbol("LINENO", MELT_GET);
-  if (sy_LINENO && NULL == /*_.VALDATA___V1204*/ curfptr[1203])
-  /*_.VALDATA___V1204*/ curfptr[1203] = (void*) sy_LINENO; }
+  if (sy_LINENO && NULL == /*_.VALDATA___V1196*/ curfptr[1195])
+  /*_.VALDATA___V1196*/ curfptr[1195] = (void*) sy_LINENO; }
  
  /*getnamedsym:CHECKCALLSTACK_MSG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CHECKCALLSTACK_MSG = meltgc_named_symbol("CHECKCALLSTACK_MSG", MELT_GET);
-  if (sy_CHECKCALLSTACK_MSG && NULL == /*_.VALDATA___V1214*/ curfptr[1213])
-  /*_.VALDATA___V1214*/ curfptr[1213] = (void*) sy_CHECKCALLSTACK_MSG; }
+  if (sy_CHECKCALLSTACK_MSG && NULL == /*_.VALDATA___V1206*/ curfptr[1205])
+  /*_.VALDATA___V1206*/ curfptr[1205] = (void*) sy_CHECKCALLSTACK_MSG; }
  
  /*getnamedsym:CBREAK_MSG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CBREAK_MSG = meltgc_named_symbol("CBREAK_MSG", MELT_GET);
-  if (sy_CBREAK_MSG && NULL == /*_.VALDATA___V1223*/ curfptr[1222])
-  /*_.VALDATA___V1223*/ curfptr[1222] = (void*) sy_CBREAK_MSG; }
+  if (sy_CBREAK_MSG && NULL == /*_.VALDATA___V1215*/ curfptr[1214])
+  /*_.VALDATA___V1215*/ curfptr[1214] = (void*) sy_CBREAK_MSG; }
  
  /*getnamedsym:<I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("<I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1232*/ curfptr[1231])
-  /*_.VALDATA___V1232*/ curfptr[1231] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1224*/ curfptr[1223])
+  /*_.VALDATA___V1224*/ curfptr[1223] = (void*) sy_I; }
  
  /*getnamedsym:<=I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("<=I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1243*/ curfptr[1242])
-  /*_.VALDATA___V1243*/ curfptr[1242] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1235*/ curfptr[1234])
+  /*_.VALDATA___V1235*/ curfptr[1234] = (void*) sy_I; }
  
  /*getnamedsym:==I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("==I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1254*/ curfptr[1253])
-  /*_.VALDATA___V1254*/ curfptr[1253] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1246*/ curfptr[1245])
+  /*_.VALDATA___V1246*/ curfptr[1245] = (void*) sy_I; }
  
  /*getnamedsym:>I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol(">I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1265*/ curfptr[1264])
-  /*_.VALDATA___V1265*/ curfptr[1264] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1257*/ curfptr[1256])
+  /*_.VALDATA___V1257*/ curfptr[1256] = (void*) sy_I; }
  
  /*getnamedsym:>=I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol(">=I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1276*/ curfptr[1275])
-  /*_.VALDATA___V1276*/ curfptr[1275] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1268*/ curfptr[1267])
+  /*_.VALDATA___V1268*/ curfptr[1267] = (void*) sy_I; }
  
  /*getnamedsym:!=I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("!=I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1287*/ curfptr[1286])
-  /*_.VALDATA___V1287*/ curfptr[1286] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1279*/ curfptr[1278])
+  /*_.VALDATA___V1279*/ curfptr[1278] = (void*) sy_I; }
  
  /*getnamedsym:+I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("+I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1298*/ curfptr[1297])
-  /*_.VALDATA___V1298*/ curfptr[1297] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1290*/ curfptr[1289])
+  /*_.VALDATA___V1290*/ curfptr[1289] = (void*) sy_I; }
  
  /*getnamedsym:-I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("-I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1309*/ curfptr[1308])
-  /*_.VALDATA___V1309*/ curfptr[1308] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1301*/ curfptr[1300])
+  /*_.VALDATA___V1301*/ curfptr[1300] = (void*) sy_I; }
  
  /*getnamedsym:*I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("*I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1320*/ curfptr[1319])
-  /*_.VALDATA___V1320*/ curfptr[1319] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1312*/ curfptr[1311])
+  /*_.VALDATA___V1312*/ curfptr[1311] = (void*) sy_I; }
  
  /*getnamedsym:ANDI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ANDI = meltgc_named_symbol("ANDI", MELT_GET);
-  if (sy_ANDI && NULL == /*_.VALDATA___V1331*/ curfptr[1330])
-  /*_.VALDATA___V1331*/ curfptr[1330] = (void*) sy_ANDI; }
+  if (sy_ANDI && NULL == /*_.VALDATA___V1323*/ curfptr[1322])
+  /*_.VALDATA___V1323*/ curfptr[1322] = (void*) sy_ANDI; }
  
  /*getnamedsym:ORI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ORI = meltgc_named_symbol("ORI", MELT_GET);
-  if (sy_ORI && NULL == /*_.VALDATA___V1342*/ curfptr[1341])
-  /*_.VALDATA___V1342*/ curfptr[1341] = (void*) sy_ORI; }
+  if (sy_ORI && NULL == /*_.VALDATA___V1334*/ curfptr[1333])
+  /*_.VALDATA___V1334*/ curfptr[1333] = (void*) sy_ORI; }
  
  /*getnamedsym:XORI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_XORI = meltgc_named_symbol("XORI", MELT_GET);
-  if (sy_XORI && NULL == /*_.VALDATA___V1353*/ curfptr[1352])
-  /*_.VALDATA___V1353*/ curfptr[1352] = (void*) sy_XORI; }
+  if (sy_XORI && NULL == /*_.VALDATA___V1345*/ curfptr[1344])
+  /*_.VALDATA___V1345*/ curfptr[1344] = (void*) sy_XORI; }
  
  /*getnamedsym:NEGI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NEGI = meltgc_named_symbol("NEGI", MELT_GET);
-  if (sy_NEGI && NULL == /*_.VALDATA___V1364*/ curfptr[1363])
-  /*_.VALDATA___V1364*/ curfptr[1363] = (void*) sy_NEGI; }
+  if (sy_NEGI && NULL == /*_.VALDATA___V1356*/ curfptr[1355])
+  /*_.VALDATA___V1356*/ curfptr[1355] = (void*) sy_NEGI; }
  
  /*getnamedsym:NOTI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NOTI = meltgc_named_symbol("NOTI", MELT_GET);
-  if (sy_NOTI && NULL == /*_.VALDATA___V1373*/ curfptr[1372])
-  /*_.VALDATA___V1373*/ curfptr[1372] = (void*) sy_NOTI; }
+  if (sy_NOTI && NULL == /*_.VALDATA___V1365*/ curfptr[1364])
+  /*_.VALDATA___V1365*/ curfptr[1364] = (void*) sy_NOTI; }
  
  /*getnamedsym:/I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("/I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1382*/ curfptr[1381])
-  /*_.VALDATA___V1382*/ curfptr[1381] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1374*/ curfptr[1373])
+  /*_.VALDATA___V1374*/ curfptr[1373] = (void*) sy_I; }
  
  /*getnamedsym:%I*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_I = meltgc_named_symbol("%I", MELT_GET);
-  if (sy_I && NULL == /*_.VALDATA___V1393*/ curfptr[1392])
-  /*_.VALDATA___V1393*/ curfptr[1392] = (void*) sy_I; }
+  if (sy_I && NULL == /*_.VALDATA___V1385*/ curfptr[1384])
+  /*_.VALDATA___V1385*/ curfptr[1384] = (void*) sy_I; }
  
  /*getnamedsym:/IRAW*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IRAW = meltgc_named_symbol("/IRAW", MELT_GET);
-  if (sy_IRAW && NULL == /*_.VALDATA___V1404*/ curfptr[1403])
-  /*_.VALDATA___V1404*/ curfptr[1403] = (void*) sy_IRAW; }
+  if (sy_IRAW && NULL == /*_.VALDATA___V1396*/ curfptr[1395])
+  /*_.VALDATA___V1396*/ curfptr[1395] = (void*) sy_IRAW; }
  
  /*getnamedsym:%IRAW*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IRAW = meltgc_named_symbol("%IRAW", MELT_GET);
-  if (sy_IRAW && NULL == /*_.VALDATA___V1415*/ curfptr[1414])
-  /*_.VALDATA___V1415*/ curfptr[1414] = (void*) sy_IRAW; }
+  if (sy_IRAW && NULL == /*_.VALDATA___V1407*/ curfptr[1406])
+  /*_.VALDATA___V1407*/ curfptr[1406] = (void*) sy_IRAW; }
  
  /*getnamedsym:NOT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NOT = meltgc_named_symbol("NOT", MELT_GET);
-  if (sy_NOT && NULL == /*_.VALDATA___V1426*/ curfptr[1425])
-  /*_.VALDATA___V1426*/ curfptr[1425] = (void*) sy_NOT; }
+  if (sy_NOT && NULL == /*_.VALDATA___V1418*/ curfptr[1417])
+  /*_.VALDATA___V1418*/ curfptr[1417] = (void*) sy_NOT; }
  
  /*getnamedsym:IMIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IMIN = meltgc_named_symbol("IMIN", MELT_GET);
-  if (sy_IMIN && NULL == /*_.VALDATA___V1438*/ curfptr[1437])
-  /*_.VALDATA___V1438*/ curfptr[1437] = (void*) sy_IMIN; }
+  if (sy_IMIN && NULL == /*_.VALDATA___V1430*/ curfptr[1429])
+  /*_.VALDATA___V1430*/ curfptr[1429] = (void*) sy_IMIN; }
  
  /*getnamedsym:IMAX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IMAX = meltgc_named_symbol("IMAX", MELT_GET);
-  if (sy_IMAX && NULL == /*_.VALDATA___V1441*/ curfptr[1440])
-  /*_.VALDATA___V1441*/ curfptr[1440] = (void*) sy_IMAX; }
+  if (sy_IMAX && NULL == /*_.VALDATA___V1433*/ curfptr[1432])
+  /*_.VALDATA___V1433*/ curfptr[1432] = (void*) sy_IMAX; }
  
  /*getnamedsym:EACHLONG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EACHLONG = meltgc_named_symbol("EACHLONG", MELT_GET);
-  if (sy_EACHLONG && NULL == /*_.VALDATA___V1444*/ curfptr[1443])
-  /*_.VALDATA___V1444*/ curfptr[1443] = (void*) sy_EACHLONG; }
+  if (sy_EACHLONG && NULL == /*_.VALDATA___V1436*/ curfptr[1435])
+  /*_.VALDATA___V1436*/ curfptr[1435] = (void*) sy_EACHLONG; }
  
  /*getnamedsym:NULL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NULL = meltgc_named_symbol("NULL", MELT_GET);
-  if (sy_NULL && NULL == /*_.VALDATA___V1465*/ curfptr[1464])
-  /*_.VALDATA___V1465*/ curfptr[1464] = (void*) sy_NULL; }
+  if (sy_NULL && NULL == /*_.VALDATA___V1457*/ curfptr[1456])
+  /*_.VALDATA___V1457*/ curfptr[1456] = (void*) sy_NULL; }
  
  /*getnamedsym:NOTNULL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NOTNULL = meltgc_named_symbol("NOTNULL", MELT_GET);
-  if (sy_NOTNULL && NULL == /*_.VALDATA___V1474*/ curfptr[1473])
-  /*_.VALDATA___V1474*/ curfptr[1473] = (void*) sy_NOTNULL; }
+  if (sy_NOTNULL && NULL == /*_.VALDATA___V1466*/ curfptr[1465])
+  /*_.VALDATA___V1466*/ curfptr[1465] = (void*) sy_NOTNULL; }
  
  /*getnamedsym:ZEROP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ZEROP = meltgc_named_symbol("ZEROP", MELT_GET);
-  if (sy_ZEROP && NULL == /*_.VALDATA___V1483*/ curfptr[1482])
-  /*_.VALDATA___V1483*/ curfptr[1482] = (void*) sy_ZEROP; }
+  if (sy_ZEROP && NULL == /*_.VALDATA___V1475*/ curfptr[1474])
+  /*_.VALDATA___V1475*/ curfptr[1474] = (void*) sy_ZEROP; }
  
  /*getnamedsym:NEED_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NEED_DBG = meltgc_named_symbol("NEED_DBG", MELT_GET);
-  if (sy_NEED_DBG && NULL == /*_.VALDATA___V1492*/ curfptr[1491])
-  /*_.VALDATA___V1492*/ curfptr[1491] = (void*) sy_NEED_DBG; }
+  if (sy_NEED_DBG && NULL == /*_.VALDATA___V1484*/ curfptr[1483])
+  /*_.VALDATA___V1484*/ curfptr[1483] = (void*) sy_NEED_DBG; }
  
  /*getnamedsym:DEPTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DEPTH = meltgc_named_symbol("DEPTH", MELT_GET);
-  if (sy_DEPTH && NULL == /*_.VALDATA___V1497*/ curfptr[1496])
-  /*_.VALDATA___V1497*/ curfptr[1496] = (void*) sy_DEPTH; }
+  if (sy_DEPTH && NULL == /*_.VALDATA___V1489*/ curfptr[1488])
+  /*_.VALDATA___V1489*/ curfptr[1488] = (void*) sy_DEPTH; }
  
  /*getnamedsym:NEED_DBGLIM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NEED_DBGLIM = meltgc_named_symbol("NEED_DBGLIM", MELT_GET);
-  if (sy_NEED_DBGLIM && NULL == /*_.VALDATA___V1504*/ curfptr[1503])
-  /*_.VALDATA___V1504*/ curfptr[1503] = (void*) sy_NEED_DBGLIM; }
+  if (sy_NEED_DBGLIM && NULL == /*_.VALDATA___V1496*/ curfptr[1495])
+  /*_.VALDATA___V1496*/ curfptr[1495] = (void*) sy_NEED_DBGLIM; }
  
  /*getnamedsym:LIMIT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIMIT = meltgc_named_symbol("LIMIT", MELT_GET);
-  if (sy_LIMIT && NULL == /*_.VALDATA___V1510*/ curfptr[1509])
-  /*_.VALDATA___V1510*/ curfptr[1509] = (void*) sy_LIMIT; }
+  if (sy_LIMIT && NULL == /*_.VALDATA___V1502*/ curfptr[1501])
+  /*_.VALDATA___V1502*/ curfptr[1501] = (void*) sy_LIMIT; }
  
  /*getnamedsym:OUTCSTRING_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTCSTRING_DBG = meltgc_named_symbol("OUTCSTRING_DBG", MELT_GET);
-  if (sy_OUTCSTRING_DBG && NULL == /*_.VALDATA___V1518*/ curfptr[1517])
-  /*_.VALDATA___V1518*/ curfptr[1517] = (void*) sy_OUTCSTRING_DBG; }
+  if (sy_OUTCSTRING_DBG && NULL == /*_.VALDATA___V1510*/ curfptr[1509])
+  /*_.VALDATA___V1510*/ curfptr[1509] = (void*) sy_OUTCSTRING_DBG; }
  
  /*getnamedsym:S*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_S = meltgc_named_symbol("S", MELT_GET);
-  if (sy_S && NULL == /*_.VALDATA___V1523*/ curfptr[1522])
-  /*_.VALDATA___V1523*/ curfptr[1522] = (void*) sy_S; }
+  if (sy_S && NULL == /*_.VALDATA___V1515*/ curfptr[1514])
+  /*_.VALDATA___V1515*/ curfptr[1514] = (void*) sy_S; }
  
  /*getnamedsym:OUTNUM_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTNUM_DBG = meltgc_named_symbol("OUTNUM_DBG", MELT_GET);
-  if (sy_OUTNUM_DBG && NULL == /*_.VALDATA___V1529*/ curfptr[1528])
-  /*_.VALDATA___V1529*/ curfptr[1528] = (void*) sy_OUTNUM_DBG; }
+  if (sy_OUTNUM_DBG && NULL == /*_.VALDATA___V1521*/ curfptr[1520])
+  /*_.VALDATA___V1521*/ curfptr[1520] = (void*) sy_OUTNUM_DBG; }
  
  /*getnamedsym:PREF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PREF = meltgc_named_symbol("PREF", MELT_GET);
-  if (sy_PREF && NULL == /*_.VALDATA___V1534*/ curfptr[1533])
-  /*_.VALDATA___V1534*/ curfptr[1533] = (void*) sy_PREF; }
+  if (sy_PREF && NULL == /*_.VALDATA___V1526*/ curfptr[1525])
+  /*_.VALDATA___V1526*/ curfptr[1525] = (void*) sy_PREF; }
  
  /*getnamedsym:L*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_L = meltgc_named_symbol("L", MELT_GET);
-  if (sy_L && NULL == /*_.VALDATA___V1537*/ curfptr[1536])
-  /*_.VALDATA___V1537*/ curfptr[1536] = (void*) sy_L; }
+  if (sy_L && NULL == /*_.VALDATA___V1529*/ curfptr[1528])
+  /*_.VALDATA___V1529*/ curfptr[1528] = (void*) sy_L; }
  
  /*getnamedsym:SUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SUF = meltgc_named_symbol("SUF", MELT_GET);
-  if (sy_SUF && NULL == /*_.VALDATA___V1540*/ curfptr[1539])
-  /*_.VALDATA___V1540*/ curfptr[1539] = (void*) sy_SUF; }
+  if (sy_SUF && NULL == /*_.VALDATA___V1532*/ curfptr[1531])
+  /*_.VALDATA___V1532*/ curfptr[1531] = (void*) sy_SUF; }
  
  /*getnamedsym:OUTSTR_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTSTR_DBG = meltgc_named_symbol("OUTSTR_DBG", MELT_GET);
-  if (sy_OUTSTR_DBG && NULL == /*_.VALDATA___V1548*/ curfptr[1547])
-  /*_.VALDATA___V1548*/ curfptr[1547] = (void*) sy_OUTSTR_DBG; }
+  if (sy_OUTSTR_DBG && NULL == /*_.VALDATA___V1540*/ curfptr[1539])
+  /*_.VALDATA___V1540*/ curfptr[1539] = (void*) sy_OUTSTR_DBG; }
  
  /*getnamedsym:STR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STR = meltgc_named_symbol("STR", MELT_GET);
-  if (sy_STR && NULL == /*_.VALDATA___V1553*/ curfptr[1552])
-  /*_.VALDATA___V1553*/ curfptr[1552] = (void*) sy_STR; }
+  if (sy_STR && NULL == /*_.VALDATA___V1545*/ curfptr[1544])
+  /*_.VALDATA___V1545*/ curfptr[1544] = (void*) sy_STR; }
  
  /*getnamedsym:OUTSTRBUF_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTSTRBUF_DBG = meltgc_named_symbol("OUTSTRBUF_DBG", MELT_GET);
-  if (sy_OUTSTRBUF_DBG && NULL == /*_.VALDATA___V1559*/ curfptr[1558])
-  /*_.VALDATA___V1559*/ curfptr[1558] = (void*) sy_OUTSTRBUF_DBG; }
+  if (sy_OUTSTRBUF_DBG && NULL == /*_.VALDATA___V1551*/ curfptr[1550])
+  /*_.VALDATA___V1551*/ curfptr[1550] = (void*) sy_OUTSTRBUF_DBG; }
  
  /*getnamedsym:SBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SBUF = meltgc_named_symbol("SBUF", MELT_GET);
-  if (sy_SBUF && NULL == /*_.VALDATA___V1564*/ curfptr[1563])
-  /*_.VALDATA___V1564*/ curfptr[1563] = (void*) sy_SBUF; }
+  if (sy_SBUF && NULL == /*_.VALDATA___V1556*/ curfptr[1555])
+  /*_.VALDATA___V1556*/ curfptr[1555] = (void*) sy_SBUF; }
  
  /*getnamedsym:OUTNEWLINE_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTNEWLINE_DBG = meltgc_named_symbol("OUTNEWLINE_DBG", MELT_GET);
-  if (sy_OUTNEWLINE_DBG && NULL == /*_.VALDATA___V1570*/ curfptr[1569])
-  /*_.VALDATA___V1570*/ curfptr[1569] = (void*) sy_OUTNEWLINE_DBG; }
+  if (sy_OUTNEWLINE_DBG && NULL == /*_.VALDATA___V1562*/ curfptr[1561])
+  /*_.VALDATA___V1562*/ curfptr[1561] = (void*) sy_OUTNEWLINE_DBG; }
  
  /*getnamedsym:OUTNUM_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTNUM_ERR = meltgc_named_symbol("OUTNUM_ERR", MELT_GET);
-  if (sy_OUTNUM_ERR && NULL == /*_.VALDATA___V1577*/ curfptr[1576])
-  /*_.VALDATA___V1577*/ curfptr[1576] = (void*) sy_OUTNUM_ERR; }
+  if (sy_OUTNUM_ERR && NULL == /*_.VALDATA___V1569*/ curfptr[1568])
+  /*_.VALDATA___V1569*/ curfptr[1568] = (void*) sy_OUTNUM_ERR; }
  
  /*getnamedsym:OUTCSTRING_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTCSTRING_ERR = meltgc_named_symbol("OUTCSTRING_ERR", MELT_GET);
-  if (sy_OUTCSTRING_ERR && NULL == /*_.VALDATA___V1590*/ curfptr[1589])
-  /*_.VALDATA___V1590*/ curfptr[1589] = (void*) sy_OUTCSTRING_ERR; }
+  if (sy_OUTCSTRING_ERR && NULL == /*_.VALDATA___V1582*/ curfptr[1581])
+  /*_.VALDATA___V1582*/ curfptr[1581] = (void*) sy_OUTCSTRING_ERR; }
  
  /*getnamedsym:OUTSTRBUF_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTSTRBUF_ERR = meltgc_named_symbol("OUTSTRBUF_ERR", MELT_GET);
-  if (sy_OUTSTRBUF_ERR && NULL == /*_.VALDATA___V1599*/ curfptr[1598])
-  /*_.VALDATA___V1599*/ curfptr[1598] = (void*) sy_OUTSTRBUF_ERR; }
+  if (sy_OUTSTRBUF_ERR && NULL == /*_.VALDATA___V1591*/ curfptr[1590])
+  /*_.VALDATA___V1591*/ curfptr[1590] = (void*) sy_OUTSTRBUF_ERR; }
  
  /*getnamedsym:OUTNEWLINE_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTNEWLINE_ERR = meltgc_named_symbol("OUTNEWLINE_ERR", MELT_GET);
-  if (sy_OUTNEWLINE_ERR && NULL == /*_.VALDATA___V1608*/ curfptr[1607])
-  /*_.VALDATA___V1608*/ curfptr[1607] = (void*) sy_OUTNEWLINE_ERR; }
+  if (sy_OUTNEWLINE_ERR && NULL == /*_.VALDATA___V1600*/ curfptr[1599])
+  /*_.VALDATA___V1600*/ curfptr[1599] = (void*) sy_OUTNEWLINE_ERR; }
  
  /*getnamedsym:OUTSTR_ERR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTSTR_ERR = meltgc_named_symbol("OUTSTR_ERR", MELT_GET);
-  if (sy_OUTSTR_ERR && NULL == /*_.VALDATA___V1615*/ curfptr[1614])
-  /*_.VALDATA___V1615*/ curfptr[1614] = (void*) sy_OUTSTR_ERR; }
+  if (sy_OUTSTR_ERR && NULL == /*_.VALDATA___V1607*/ curfptr[1606])
+  /*_.VALDATA___V1607*/ curfptr[1606] = (void*) sy_OUTSTR_ERR; }
  
  /*getnamedsym:MESSAGE_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MESSAGE_DBG = meltgc_named_symbol("MESSAGE_DBG", MELT_GET);
-  if (sy_MESSAGE_DBG && NULL == /*_.VALDATA___V1624*/ curfptr[1623])
-  /*_.VALDATA___V1624*/ curfptr[1623] = (void*) sy_MESSAGE_DBG; }
+  if (sy_MESSAGE_DBG && NULL == /*_.VALDATA___V1616*/ curfptr[1615])
+  /*_.VALDATA___V1616*/ curfptr[1615] = (void*) sy_MESSAGE_DBG; }
  
  /*getnamedsym:MESSAGENUM_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MESSAGENUM_DBG = meltgc_named_symbol("MESSAGENUM_DBG", MELT_GET);
-  if (sy_MESSAGENUM_DBG && NULL == /*_.VALDATA___V1633*/ curfptr[1632])
-  /*_.VALDATA___V1633*/ curfptr[1632] = (void*) sy_MESSAGENUM_DBG; }
+  if (sy_MESSAGENUM_DBG && NULL == /*_.VALDATA___V1625*/ curfptr[1624])
+  /*_.VALDATA___V1625*/ curfptr[1624] = (void*) sy_MESSAGENUM_DBG; }
  
  /*getnamedsym:MESSAGEVAL_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MESSAGEVAL_DBG = meltgc_named_symbol("MESSAGEVAL_DBG", MELT_GET);
-  if (sy_MESSAGEVAL_DBG && NULL == /*_.VALDATA___V1644*/ curfptr[1643])
-  /*_.VALDATA___V1644*/ curfptr[1643] = (void*) sy_MESSAGEVAL_DBG; }
+  if (sy_MESSAGEVAL_DBG && NULL == /*_.VALDATA___V1636*/ curfptr[1635])
+  /*_.VALDATA___V1636*/ curfptr[1635] = (void*) sy_MESSAGEVAL_DBG; }
  
  /*getnamedsym:VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_VAL = meltgc_named_symbol("VAL", MELT_GET);
-  if (sy_VAL && NULL == /*_.VALDATA___V1650*/ curfptr[1649])
-  /*_.VALDATA___V1650*/ curfptr[1649] = (void*) sy_VAL; }
+  if (sy_VAL && NULL == /*_.VALDATA___V1642*/ curfptr[1641])
+  /*_.VALDATA___V1642*/ curfptr[1641] = (void*) sy_VAL; }
  
  /*getnamedsym:LONGBACKTRACE_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LONGBACKTRACE_DBG = meltgc_named_symbol("LONGBACKTRACE_DBG", MELT_GET);
-  if (sy_LONGBACKTRACE_DBG && NULL == /*_.VALDATA___V1657*/ curfptr[1656])
-  /*_.VALDATA___V1657*/ curfptr[1656] = (void*) sy_LONGBACKTRACE_DBG; }
+  if (sy_LONGBACKTRACE_DBG && NULL == /*_.VALDATA___V1649*/ curfptr[1648])
+  /*_.VALDATA___V1649*/ curfptr[1648] = (void*) sy_LONGBACKTRACE_DBG; }
  
  /*getnamedsym:MAXDEPTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAXDEPTH = meltgc_named_symbol("MAXDEPTH", MELT_GET);
-  if (sy_MAXDEPTH && NULL == /*_.VALDATA___V1663*/ curfptr[1662])
-  /*_.VALDATA___V1663*/ curfptr[1662] = (void*) sy_MAXDEPTH; }
+  if (sy_MAXDEPTH && NULL == /*_.VALDATA___V1655*/ curfptr[1654])
+  /*_.VALDATA___V1655*/ curfptr[1654] = (void*) sy_MAXDEPTH; }
  
  /*getnamedsym:SHORTBACKTRACE_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SHORTBACKTRACE_DBG = meltgc_named_symbol("SHORTBACKTRACE_DBG", MELT_GET);
-  if (sy_SHORTBACKTRACE_DBG && NULL == /*_.VALDATA___V1669*/ curfptr[1668])
-  /*_.VALDATA___V1669*/ curfptr[1668] = (void*) sy_SHORTBACKTRACE_DBG; }
+  if (sy_SHORTBACKTRACE_DBG && NULL == /*_.VALDATA___V1661*/ curfptr[1660])
+  /*_.VALDATA___V1661*/ curfptr[1660] = (void*) sy_SHORTBACKTRACE_DBG; }
  
  /*getnamedsym:CHECKVAL_DBG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CHECKVAL_DBG = meltgc_named_symbol("CHECKVAL_DBG", MELT_GET);
-  if (sy_CHECKVAL_DBG && NULL == /*_.VALDATA___V1680*/ curfptr[1679])
-  /*_.VALDATA___V1680*/ curfptr[1679] = (void*) sy_CHECKVAL_DBG; }
+  if (sy_CHECKVAL_DBG && NULL == /*_.VALDATA___V1672*/ curfptr[1671])
+  /*_.VALDATA___V1672*/ curfptr[1671] = (void*) sy_CHECKVAL_DBG; }
  
  /*getnamedsym:DEBUGCSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DEBUGCSTRING = meltgc_named_symbol("DEBUGCSTRING", MELT_GET);
-  if (sy_DEBUGCSTRING && NULL == /*_.VALDATA___V1691*/ curfptr[1690])
-  /*_.VALDATA___V1691*/ curfptr[1690] = (void*) sy_DEBUGCSTRING; }
+  if (sy_DEBUGCSTRING && NULL == /*_.VALDATA___V1683*/ curfptr[1682])
+  /*_.VALDATA___V1683*/ curfptr[1682] = (void*) sy_DEBUGCSTRING; }
  
  /*getnamedsym:THE_NULL_CSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_THE_NULL_CSTRING = meltgc_named_symbol("THE_NULL_CSTRING", MELT_GET);
-  if (sy_THE_NULL_CSTRING && NULL == /*_.VALDATA___V1702*/ curfptr[1701])
-  /*_.VALDATA___V1702*/ curfptr[1701] = (void*) sy_THE_NULL_CSTRING; }
+  if (sy_THE_NULL_CSTRING && NULL == /*_.VALDATA___V1694*/ curfptr[1693])
+  /*_.VALDATA___V1694*/ curfptr[1693] = (void*) sy_THE_NULL_CSTRING; }
  
  /*getnamedsym:MAKE_STRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_STRBUF = meltgc_named_symbol("MAKE_STRBUF", MELT_GET);
-  if (sy_MAKE_STRBUF && NULL == /*_.VALDATA___V1709*/ curfptr[1708])
-  /*_.VALDATA___V1709*/ curfptr[1708] = (void*) sy_MAKE_STRBUF; }
+  if (sy_MAKE_STRBUF && NULL == /*_.VALDATA___V1701*/ curfptr[1700])
+  /*_.VALDATA___V1701*/ curfptr[1700] = (void*) sy_MAKE_STRBUF; }
  
  /*getnamedsym:STRBUF_USEDLENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRBUF_USEDLENGTH = meltgc_named_symbol("STRBUF_USEDLENGTH", MELT_GET);
-  if (sy_STRBUF_USEDLENGTH && NULL == /*_.VALDATA___V1718*/ curfptr[1717])
-  /*_.VALDATA___V1718*/ curfptr[1717] = (void*) sy_STRBUF_USEDLENGTH; }
+  if (sy_STRBUF_USEDLENGTH && NULL == /*_.VALDATA___V1710*/ curfptr[1709])
+  /*_.VALDATA___V1710*/ curfptr[1709] = (void*) sy_STRBUF_USEDLENGTH; }
  
  /*getnamedsym:IS_STRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_STRBUF = meltgc_named_symbol("IS_STRBUF", MELT_GET);
-  if (sy_IS_STRBUF && NULL == /*_.VALDATA___V1727*/ curfptr[1726])
-  /*_.VALDATA___V1727*/ curfptr[1726] = (void*) sy_IS_STRBUF; }
+  if (sy_IS_STRBUF && NULL == /*_.VALDATA___V1719*/ curfptr[1718])
+  /*_.VALDATA___V1719*/ curfptr[1718] = (void*) sy_IS_STRBUF; }
  
  /*getnamedsym:IS_OUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_OUT = meltgc_named_symbol("IS_OUT", MELT_GET);
-  if (sy_IS_OUT && NULL == /*_.VALDATA___V1736*/ curfptr[1735])
-  /*_.VALDATA___V1736*/ curfptr[1735] = (void*) sy_IS_OUT; }
+  if (sy_IS_OUT && NULL == /*_.VALDATA___V1728*/ curfptr[1727])
+  /*_.VALDATA___V1728*/ curfptr[1727] = (void*) sy_IS_OUT; }
  
  /*getnamedsym:ADD2SBUF_STRCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_STRCONST = meltgc_named_symbol("ADD2SBUF_STRCONST", MELT_GET);
-  if (sy_ADD2SBUF_STRCONST && NULL == /*_.VALDATA___V1745*/ curfptr[1744])
-  /*_.VALDATA___V1745*/ curfptr[1744] = (void*) sy_ADD2SBUF_STRCONST; }
+  if (sy_ADD2SBUF_STRCONST && NULL == /*_.VALDATA___V1737*/ curfptr[1736])
+  /*_.VALDATA___V1737*/ curfptr[1736] = (void*) sy_ADD2SBUF_STRCONST; }
  
  /*getnamedsym:ADD2SBUF_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_STRING = meltgc_named_symbol("ADD2SBUF_STRING", MELT_GET);
-  if (sy_ADD2SBUF_STRING && NULL == /*_.VALDATA___V1756*/ curfptr[1755])
-  /*_.VALDATA___V1756*/ curfptr[1755] = (void*) sy_ADD2SBUF_STRING; }
+  if (sy_ADD2SBUF_STRING && NULL == /*_.VALDATA___V1748*/ curfptr[1747])
+  /*_.VALDATA___V1748*/ curfptr[1747] = (void*) sy_ADD2SBUF_STRING; }
  
  /*getnamedsym:ADD2SBUF_MIXLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_MIXLOC = meltgc_named_symbol("ADD2SBUF_MIXLOC", MELT_GET);
-  if (sy_ADD2SBUF_MIXLOC && NULL == /*_.VALDATA___V1767*/ curfptr[1766])
-  /*_.VALDATA___V1767*/ curfptr[1766] = (void*) sy_ADD2SBUF_MIXLOC; }
+  if (sy_ADD2SBUF_MIXLOC && NULL == /*_.VALDATA___V1759*/ curfptr[1758])
+  /*_.VALDATA___V1759*/ curfptr[1758] = (void*) sy_ADD2SBUF_MIXLOC; }
  
  /*getnamedsym:MIXL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXL = meltgc_named_symbol("MIXL", MELT_GET);
-  if (sy_MIXL && NULL == /*_.VALDATA___V1773*/ curfptr[1772])
-  /*_.VALDATA___V1773*/ curfptr[1772] = (void*) sy_MIXL; }
+  if (sy_MIXL && NULL == /*_.VALDATA___V1765*/ curfptr[1764])
+  /*_.VALDATA___V1765*/ curfptr[1764] = (void*) sy_MIXL; }
  
  /*getnamedsym:ADD2SBUF_SHORT_MIXLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_SHORT_MIXLOC = meltgc_named_symbol("ADD2SBUF_SHORT_MIXLOC", MELT_GET);
-  if (sy_ADD2SBUF_SHORT_MIXLOC && NULL == /*_.VALDATA___V1782*/ curfptr[1781])
-  /*_.VALDATA___V1782*/ curfptr[1781] = (void*) sy_ADD2SBUF_SHORT_MIXLOC; }
+  if (sy_ADD2SBUF_SHORT_MIXLOC && NULL == /*_.VALDATA___V1774*/ curfptr[1773])
+  /*_.VALDATA___V1774*/ curfptr[1773] = (void*) sy_ADD2SBUF_SHORT_MIXLOC; }
  
  /*getnamedsym:ADD2SBUF_TEXI_MIXLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_TEXI_MIXLOC = meltgc_named_symbol("ADD2SBUF_TEXI_MIXLOC", MELT_GET);
-  if (sy_ADD2SBUF_TEXI_MIXLOC && NULL == /*_.VALDATA___V1794*/ curfptr[1793])
-  /*_.VALDATA___V1794*/ curfptr[1793] = (void*) sy_ADD2SBUF_TEXI_MIXLOC; }
+  if (sy_ADD2SBUF_TEXI_MIXLOC && NULL == /*_.VALDATA___V1786*/ curfptr[1785])
+  /*_.VALDATA___V1786*/ curfptr[1785] = (void*) sy_ADD2SBUF_TEXI_MIXLOC; }
  
  /*getnamedsym:ADD2SBUF_INDENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_INDENT = meltgc_named_symbol("ADD2SBUF_INDENT", MELT_GET);
-  if (sy_ADD2SBUF_INDENT && NULL == /*_.VALDATA___V1807*/ curfptr[1806])
-  /*_.VALDATA___V1807*/ curfptr[1806] = (void*) sy_ADD2SBUF_INDENT; }
+  if (sy_ADD2SBUF_INDENT && NULL == /*_.VALDATA___V1799*/ curfptr[1798])
+  /*_.VALDATA___V1799*/ curfptr[1798] = (void*) sy_ADD2SBUF_INDENT; }
  
  /*getnamedsym:ADD2SBUF_INDENTNL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_INDENTNL = meltgc_named_symbol("ADD2SBUF_INDENTNL", MELT_GET);
-  if (sy_ADD2SBUF_INDENTNL && NULL == /*_.VALDATA___V1818*/ curfptr[1817])
-  /*_.VALDATA___V1818*/ curfptr[1817] = (void*) sy_ADD2SBUF_INDENTNL; }
+  if (sy_ADD2SBUF_INDENTNL && NULL == /*_.VALDATA___V1810*/ curfptr[1809])
+  /*_.VALDATA___V1810*/ curfptr[1809] = (void*) sy_ADD2SBUF_INDENTNL; }
  
  /*getnamedsym:ADD2SBUF_SBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_SBUF = meltgc_named_symbol("ADD2SBUF_SBUF", MELT_GET);
-  if (sy_ADD2SBUF_SBUF && NULL == /*_.VALDATA___V1829*/ curfptr[1828])
-  /*_.VALDATA___V1829*/ curfptr[1828] = (void*) sy_ADD2SBUF_SBUF; }
+  if (sy_ADD2SBUF_SBUF && NULL == /*_.VALDATA___V1821*/ curfptr[1820])
+  /*_.VALDATA___V1821*/ curfptr[1820] = (void*) sy_ADD2SBUF_SBUF; }
  
  /*getnamedsym:ASBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ASBUF = meltgc_named_symbol("ASBUF", MELT_GET);
-  if (sy_ASBUF && NULL == /*_.VALDATA___V1835*/ curfptr[1834])
-  /*_.VALDATA___V1835*/ curfptr[1834] = (void*) sy_ASBUF; }
+  if (sy_ASBUF && NULL == /*_.VALDATA___V1827*/ curfptr[1826])
+  /*_.VALDATA___V1827*/ curfptr[1826] = (void*) sy_ASBUF; }
  
  /*getnamedsym:ADD2SBUF_CENCSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CENCSTRING = meltgc_named_symbol("ADD2SBUF_CENCSTRING", MELT_GET);
-  if (sy_ADD2SBUF_CENCSTRING && NULL == /*_.VALDATA___V1842*/ curfptr[1841])
-  /*_.VALDATA___V1842*/ curfptr[1841] = (void*) sy_ADD2SBUF_CENCSTRING; }
+  if (sy_ADD2SBUF_CENCSTRING && NULL == /*_.VALDATA___V1834*/ curfptr[1833])
+  /*_.VALDATA___V1834*/ curfptr[1833] = (void*) sy_ADD2SBUF_CENCSTRING; }
  
  /*getnamedsym:ADD2SBUF_CENCSTRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CENCSTRBUF = meltgc_named_symbol("ADD2SBUF_CENCSTRBUF", MELT_GET);
-  if (sy_ADD2SBUF_CENCSTRBUF && NULL == /*_.VALDATA___V1853*/ curfptr[1852])
-  /*_.VALDATA___V1853*/ curfptr[1852] = (void*) sy_ADD2SBUF_CENCSTRBUF; }
+  if (sy_ADD2SBUF_CENCSTRBUF && NULL == /*_.VALDATA___V1845*/ curfptr[1844])
+  /*_.VALDATA___V1845*/ curfptr[1844] = (void*) sy_ADD2SBUF_CENCSTRBUF; }
  
  /*getnamedsym:ADD2SBUF_CCOMSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CCOMSTRING = meltgc_named_symbol("ADD2SBUF_CCOMSTRING", MELT_GET);
-  if (sy_ADD2SBUF_CCOMSTRING && NULL == /*_.VALDATA___V1864*/ curfptr[1863])
-  /*_.VALDATA___V1864*/ curfptr[1863] = (void*) sy_ADD2SBUF_CCOMSTRING; }
+  if (sy_ADD2SBUF_CCOMSTRING && NULL == /*_.VALDATA___V1856*/ curfptr[1855])
+  /*_.VALDATA___V1856*/ curfptr[1855] = (void*) sy_ADD2SBUF_CCOMSTRING; }
  
  /*getnamedsym:ADD2SBUF_CCOMSTRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CCOMSTRBUF = meltgc_named_symbol("ADD2SBUF_CCOMSTRBUF", MELT_GET);
-  if (sy_ADD2SBUF_CCOMSTRBUF && NULL == /*_.VALDATA___V1875*/ curfptr[1874])
-  /*_.VALDATA___V1875*/ curfptr[1874] = (void*) sy_ADD2SBUF_CCOMSTRBUF; }
+  if (sy_ADD2SBUF_CCOMSTRBUF && NULL == /*_.VALDATA___V1867*/ curfptr[1866])
+  /*_.VALDATA___V1867*/ curfptr[1866] = (void*) sy_ADD2SBUF_CCOMSTRBUF; }
  
  /*getnamedsym:ADD2SBUF_CCOMCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CCOMCONST = meltgc_named_symbol("ADD2SBUF_CCOMCONST", MELT_GET);
-  if (sy_ADD2SBUF_CCOMCONST && NULL == /*_.VALDATA___V1886*/ curfptr[1885])
-  /*_.VALDATA___V1886*/ curfptr[1885] = (void*) sy_ADD2SBUF_CCOMCONST; }
+  if (sy_ADD2SBUF_CCOMCONST && NULL == /*_.VALDATA___V1878*/ curfptr[1877])
+  /*_.VALDATA___V1878*/ curfptr[1877] = (void*) sy_ADD2SBUF_CCOMCONST; }
  
  /*getnamedsym:CSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CSTR = meltgc_named_symbol("CSTR", MELT_GET);
-  if (sy_CSTR && NULL == /*_.VALDATA___V1892*/ curfptr[1891])
-  /*_.VALDATA___V1892*/ curfptr[1891] = (void*) sy_CSTR; }
+  if (sy_CSTR && NULL == /*_.VALDATA___V1884*/ curfptr[1883])
+  /*_.VALDATA___V1884*/ curfptr[1883] = (void*) sy_CSTR; }
  
  /*getnamedsym:ADD2SBUF_CIDENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CIDENT = meltgc_named_symbol("ADD2SBUF_CIDENT", MELT_GET);
-  if (sy_ADD2SBUF_CIDENT && NULL == /*_.VALDATA___V1899*/ curfptr[1898])
-  /*_.VALDATA___V1899*/ curfptr[1898] = (void*) sy_ADD2SBUF_CIDENT; }
+  if (sy_ADD2SBUF_CIDENT && NULL == /*_.VALDATA___V1891*/ curfptr[1890])
+  /*_.VALDATA___V1891*/ curfptr[1890] = (void*) sy_ADD2SBUF_CIDENT; }
  
  /*getnamedsym:ADD2SBUF_CIDENTPREFIX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_CIDENTPREFIX = meltgc_named_symbol("ADD2SBUF_CIDENTPREFIX", MELT_GET);
-  if (sy_ADD2SBUF_CIDENTPREFIX && NULL == /*_.VALDATA___V1910*/ curfptr[1909])
-  /*_.VALDATA___V1910*/ curfptr[1909] = (void*) sy_ADD2SBUF_CIDENTPREFIX; }
+  if (sy_ADD2SBUF_CIDENTPREFIX && NULL == /*_.VALDATA___V1902*/ curfptr[1901])
+  /*_.VALDATA___V1902*/ curfptr[1901] = (void*) sy_ADD2SBUF_CIDENTPREFIX; }
  
  /*getnamedsym:PREFLEN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PREFLEN = meltgc_named_symbol("PREFLEN", MELT_GET);
-  if (sy_PREFLEN && NULL == /*_.VALDATA___V1917*/ curfptr[1916])
-  /*_.VALDATA___V1917*/ curfptr[1916] = (void*) sy_PREFLEN; }
+  if (sy_PREFLEN && NULL == /*_.VALDATA___V1909*/ curfptr[1908])
+  /*_.VALDATA___V1909*/ curfptr[1908] = (void*) sy_PREFLEN; }
  
  /*getnamedsym:ADD2SBUF_LONGDEC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_LONGDEC = meltgc_named_symbol("ADD2SBUF_LONGDEC", MELT_GET);
-  if (sy_ADD2SBUF_LONGDEC && NULL == /*_.VALDATA___V1925*/ curfptr[1924])
-  /*_.VALDATA___V1925*/ curfptr[1924] = (void*) sy_ADD2SBUF_LONGDEC; }
+  if (sy_ADD2SBUF_LONGDEC && NULL == /*_.VALDATA___V1917*/ curfptr[1916])
+  /*_.VALDATA___V1917*/ curfptr[1916] = (void*) sy_ADD2SBUF_LONGDEC; }
  
  /*getnamedsym:NUM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NUM = meltgc_named_symbol("NUM", MELT_GET);
-  if (sy_NUM && NULL == /*_.VALDATA___V1931*/ curfptr[1930])
-  /*_.VALDATA___V1931*/ curfptr[1930] = (void*) sy_NUM; }
+  if (sy_NUM && NULL == /*_.VALDATA___V1923*/ curfptr[1922])
+  /*_.VALDATA___V1923*/ curfptr[1922] = (void*) sy_NUM; }
  
  /*getnamedsym:ADD2SBUF_LONGHEX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_LONGHEX = meltgc_named_symbol("ADD2SBUF_LONGHEX", MELT_GET);
-  if (sy_ADD2SBUF_LONGHEX && NULL == /*_.VALDATA___V1938*/ curfptr[1937])
-  /*_.VALDATA___V1938*/ curfptr[1937] = (void*) sy_ADD2SBUF_LONGHEX; }
+  if (sy_ADD2SBUF_LONGHEX && NULL == /*_.VALDATA___V1930*/ curfptr[1929])
+  /*_.VALDATA___V1930*/ curfptr[1929] = (void*) sy_ADD2SBUF_LONGHEX; }
  
  /*getnamedsym:ADD2SBUF_ROUTINEDESCR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2SBUF_ROUTINEDESCR = meltgc_named_symbol("ADD2SBUF_ROUTINEDESCR", MELT_GET);
-  if (sy_ADD2SBUF_ROUTINEDESCR && NULL == /*_.VALDATA___V1949*/ curfptr[1948])
-  /*_.VALDATA___V1949*/ curfptr[1948] = (void*) sy_ADD2SBUF_ROUTINEDESCR; }
+  if (sy_ADD2SBUF_ROUTINEDESCR && NULL == /*_.VALDATA___V1941*/ curfptr[1940])
+  /*_.VALDATA___V1941*/ curfptr[1940] = (void*) sy_ADD2SBUF_ROUTINEDESCR; }
  
  /*getnamedsym:ROUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ROUT = meltgc_named_symbol("ROUT", MELT_GET);
-  if (sy_ROUT && NULL == /*_.VALDATA___V1955*/ curfptr[1954])
-  /*_.VALDATA___V1955*/ curfptr[1954] = (void*) sy_ROUT; }
+  if (sy_ROUT && NULL == /*_.VALDATA___V1947*/ curfptr[1946])
+  /*_.VALDATA___V1947*/ curfptr[1946] = (void*) sy_ROUT; }
  
  /*getnamedsym:OUTPUT_SBUF_STRCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTPUT_SBUF_STRCONST = meltgc_named_symbol("OUTPUT_SBUF_STRCONST", MELT_GET);
-  if (sy_OUTPUT_SBUF_STRCONST && NULL == /*_.VALDATA___V1962*/ curfptr[1961])
-  /*_.VALDATA___V1962*/ curfptr[1961] = (void*) sy_OUTPUT_SBUF_STRCONST; }
+  if (sy_OUTPUT_SBUF_STRCONST && NULL == /*_.VALDATA___V1954*/ curfptr[1953])
+  /*_.VALDATA___V1954*/ curfptr[1953] = (void*) sy_OUTPUT_SBUF_STRCONST; }
  
  /*getnamedsym:NAM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NAM = meltgc_named_symbol("NAM", MELT_GET);
-  if (sy_NAM && NULL == /*_.VALDATA___V1968*/ curfptr[1967])
-  /*_.VALDATA___V1968*/ curfptr[1967] = (void*) sy_NAM; }
+  if (sy_NAM && NULL == /*_.VALDATA___V1960*/ curfptr[1959])
+  /*_.VALDATA___V1960*/ curfptr[1959] = (void*) sy_NAM; }
  
  /*getnamedsym:OUTPUT_SBUF_STRVAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTPUT_SBUF_STRVAL = meltgc_named_symbol("OUTPUT_SBUF_STRVAL", MELT_GET);
-  if (sy_OUTPUT_SBUF_STRVAL && NULL == /*_.VALDATA___V1975*/ curfptr[1974])
-  /*_.VALDATA___V1975*/ curfptr[1974] = (void*) sy_OUTPUT_SBUF_STRVAL; }
+  if (sy_OUTPUT_SBUF_STRVAL && NULL == /*_.VALDATA___V1967*/ curfptr[1966])
+  /*_.VALDATA___V1967*/ curfptr[1966] = (void*) sy_OUTPUT_SBUF_STRVAL; }
  
  /*getnamedsym:VNAM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_VNAM = meltgc_named_symbol("VNAM", MELT_GET);
-  if (sy_VNAM && NULL == /*_.VALDATA___V1981*/ curfptr[1980])
-  /*_.VALDATA___V1981*/ curfptr[1980] = (void*) sy_VNAM; }
+  if (sy_VNAM && NULL == /*_.VALDATA___V1973*/ curfptr[1972])
+  /*_.VALDATA___V1973*/ curfptr[1972] = (void*) sy_VNAM; }
  
  /*getnamedsym:ADD2OUT_STRCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_STRCONST = meltgc_named_symbol("ADD2OUT_STRCONST", MELT_GET);
-  if (sy_ADD2OUT_STRCONST && NULL == /*_.VALDATA___V1988*/ curfptr[1987])
-  /*_.VALDATA___V1988*/ curfptr[1987] = (void*) sy_ADD2OUT_STRCONST; }
+  if (sy_ADD2OUT_STRCONST && NULL == /*_.VALDATA___V1980*/ curfptr[1979])
+  /*_.VALDATA___V1980*/ curfptr[1979] = (void*) sy_ADD2OUT_STRCONST; }
  
  /*getnamedsym:OUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUT = meltgc_named_symbol("OUT", MELT_GET);
-  if (sy_OUT && NULL == /*_.VALDATA___V1993*/ curfptr[1992])
-  /*_.VALDATA___V1993*/ curfptr[1992] = (void*) sy_OUT; }
+  if (sy_OUT && NULL == /*_.VALDATA___V1985*/ curfptr[1984])
+  /*_.VALDATA___V1985*/ curfptr[1984] = (void*) sy_OUT; }
  
  /*getnamedsym:ADD2OUT_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_STRING = meltgc_named_symbol("ADD2OUT_STRING", MELT_GET);
-  if (sy_ADD2OUT_STRING && NULL == /*_.VALDATA___V2001*/ curfptr[2000])
-  /*_.VALDATA___V2001*/ curfptr[2000] = (void*) sy_ADD2OUT_STRING; }
+  if (sy_ADD2OUT_STRING && NULL == /*_.VALDATA___V1993*/ curfptr[1992])
+  /*_.VALDATA___V1993*/ curfptr[1992] = (void*) sy_ADD2OUT_STRING; }
  
  /*getnamedsym:ADD2OUT_MIXLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_MIXLOC = meltgc_named_symbol("ADD2OUT_MIXLOC", MELT_GET);
-  if (sy_ADD2OUT_MIXLOC && NULL == /*_.VALDATA___V2012*/ curfptr[2011])
-  /*_.VALDATA___V2012*/ curfptr[2011] = (void*) sy_ADD2OUT_MIXLOC; }
+  if (sy_ADD2OUT_MIXLOC && NULL == /*_.VALDATA___V2004*/ curfptr[2003])
+  /*_.VALDATA___V2004*/ curfptr[2003] = (void*) sy_ADD2OUT_MIXLOC; }
  
  /*getnamedsym:ADD2OUT_INDENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_INDENT = meltgc_named_symbol("ADD2OUT_INDENT", MELT_GET);
-  if (sy_ADD2OUT_INDENT && NULL == /*_.VALDATA___V2024*/ curfptr[2023])
-  /*_.VALDATA___V2024*/ curfptr[2023] = (void*) sy_ADD2OUT_INDENT; }
+  if (sy_ADD2OUT_INDENT && NULL == /*_.VALDATA___V2016*/ curfptr[2015])
+  /*_.VALDATA___V2016*/ curfptr[2015] = (void*) sy_ADD2OUT_INDENT; }
  
  /*getnamedsym:ADD2OUT_INDENTNL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_INDENTNL = meltgc_named_symbol("ADD2OUT_INDENTNL", MELT_GET);
-  if (sy_ADD2OUT_INDENTNL && NULL == /*_.VALDATA___V2035*/ curfptr[2034])
-  /*_.VALDATA___V2035*/ curfptr[2034] = (void*) sy_ADD2OUT_INDENTNL; }
+  if (sy_ADD2OUT_INDENTNL && NULL == /*_.VALDATA___V2027*/ curfptr[2026])
+  /*_.VALDATA___V2027*/ curfptr[2026] = (void*) sy_ADD2OUT_INDENTNL; }
  
  /*getnamedsym:ADD2OUT_SBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_SBUF = meltgc_named_symbol("ADD2OUT_SBUF", MELT_GET);
-  if (sy_ADD2OUT_SBUF && NULL == /*_.VALDATA___V2046*/ curfptr[2045])
-  /*_.VALDATA___V2046*/ curfptr[2045] = (void*) sy_ADD2OUT_SBUF; }
+  if (sy_ADD2OUT_SBUF && NULL == /*_.VALDATA___V2038*/ curfptr[2037])
+  /*_.VALDATA___V2038*/ curfptr[2037] = (void*) sy_ADD2OUT_SBUF; }
  
  /*getnamedsym:ADD2OUT_CENCSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CENCSTRING = meltgc_named_symbol("ADD2OUT_CENCSTRING", MELT_GET);
-  if (sy_ADD2OUT_CENCSTRING && NULL == /*_.VALDATA___V2057*/ curfptr[2056])
-  /*_.VALDATA___V2057*/ curfptr[2056] = (void*) sy_ADD2OUT_CENCSTRING; }
+  if (sy_ADD2OUT_CENCSTRING && NULL == /*_.VALDATA___V2049*/ curfptr[2048])
+  /*_.VALDATA___V2049*/ curfptr[2048] = (void*) sy_ADD2OUT_CENCSTRING; }
  
  /*getnamedsym:ADD2OUT_CENCSTRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CENCSTRBUF = meltgc_named_symbol("ADD2OUT_CENCSTRBUF", MELT_GET);
-  if (sy_ADD2OUT_CENCSTRBUF && NULL == /*_.VALDATA___V2068*/ curfptr[2067])
-  /*_.VALDATA___V2068*/ curfptr[2067] = (void*) sy_ADD2OUT_CENCSTRBUF; }
+  if (sy_ADD2OUT_CENCSTRBUF && NULL == /*_.VALDATA___V2060*/ curfptr[2059])
+  /*_.VALDATA___V2060*/ curfptr[2059] = (void*) sy_ADD2OUT_CENCSTRBUF; }
  
  /*getnamedsym:ADD2OUT_CCOMSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CCOMSTRING = meltgc_named_symbol("ADD2OUT_CCOMSTRING", MELT_GET);
-  if (sy_ADD2OUT_CCOMSTRING && NULL == /*_.VALDATA___V2079*/ curfptr[2078])
-  /*_.VALDATA___V2079*/ curfptr[2078] = (void*) sy_ADD2OUT_CCOMSTRING; }
+  if (sy_ADD2OUT_CCOMSTRING && NULL == /*_.VALDATA___V2071*/ curfptr[2070])
+  /*_.VALDATA___V2071*/ curfptr[2070] = (void*) sy_ADD2OUT_CCOMSTRING; }
  
  /*getnamedsym:ADD2OUT_CCOMSTRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CCOMSTRBUF = meltgc_named_symbol("ADD2OUT_CCOMSTRBUF", MELT_GET);
-  if (sy_ADD2OUT_CCOMSTRBUF && NULL == /*_.VALDATA___V2090*/ curfptr[2089])
-  /*_.VALDATA___V2090*/ curfptr[2089] = (void*) sy_ADD2OUT_CCOMSTRBUF; }
+  if (sy_ADD2OUT_CCOMSTRBUF && NULL == /*_.VALDATA___V2082*/ curfptr[2081])
+  /*_.VALDATA___V2082*/ curfptr[2081] = (void*) sy_ADD2OUT_CCOMSTRBUF; }
  
  /*getnamedsym:ADD2OUT_CCOMCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CCOMCONST = meltgc_named_symbol("ADD2OUT_CCOMCONST", MELT_GET);
-  if (sy_ADD2OUT_CCOMCONST && NULL == /*_.VALDATA___V2101*/ curfptr[2100])
-  /*_.VALDATA___V2101*/ curfptr[2100] = (void*) sy_ADD2OUT_CCOMCONST; }
+  if (sy_ADD2OUT_CCOMCONST && NULL == /*_.VALDATA___V2093*/ curfptr[2092])
+  /*_.VALDATA___V2093*/ curfptr[2092] = (void*) sy_ADD2OUT_CCOMCONST; }
  
  /*getnamedsym:ADD2OUT_CIDENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CIDENT = meltgc_named_symbol("ADD2OUT_CIDENT", MELT_GET);
-  if (sy_ADD2OUT_CIDENT && NULL == /*_.VALDATA___V2112*/ curfptr[2111])
-  /*_.VALDATA___V2112*/ curfptr[2111] = (void*) sy_ADD2OUT_CIDENT; }
+  if (sy_ADD2OUT_CIDENT && NULL == /*_.VALDATA___V2104*/ curfptr[2103])
+  /*_.VALDATA___V2104*/ curfptr[2103] = (void*) sy_ADD2OUT_CIDENT; }
  
  /*getnamedsym:ADD2OUT_CIDENTPREFIX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_CIDENTPREFIX = meltgc_named_symbol("ADD2OUT_CIDENTPREFIX", MELT_GET);
-  if (sy_ADD2OUT_CIDENTPREFIX && NULL == /*_.VALDATA___V2123*/ curfptr[2122])
-  /*_.VALDATA___V2123*/ curfptr[2122] = (void*) sy_ADD2OUT_CIDENTPREFIX; }
+  if (sy_ADD2OUT_CIDENTPREFIX && NULL == /*_.VALDATA___V2115*/ curfptr[2114])
+  /*_.VALDATA___V2115*/ curfptr[2114] = (void*) sy_ADD2OUT_CIDENTPREFIX; }
  
  /*getnamedsym:ADD2OUT_LONGDEC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_LONGDEC = meltgc_named_symbol("ADD2OUT_LONGDEC", MELT_GET);
-  if (sy_ADD2OUT_LONGDEC && NULL == /*_.VALDATA___V2136*/ curfptr[2135])
-  /*_.VALDATA___V2136*/ curfptr[2135] = (void*) sy_ADD2OUT_LONGDEC; }
+  if (sy_ADD2OUT_LONGDEC && NULL == /*_.VALDATA___V2128*/ curfptr[2127])
+  /*_.VALDATA___V2128*/ curfptr[2127] = (void*) sy_ADD2OUT_LONGDEC; }
  
  /*getnamedsym:ADD2OUT_LONGHEX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_LONGHEX = meltgc_named_symbol("ADD2OUT_LONGHEX", MELT_GET);
-  if (sy_ADD2OUT_LONGHEX && NULL == /*_.VALDATA___V2147*/ curfptr[2146])
-  /*_.VALDATA___V2147*/ curfptr[2146] = (void*) sy_ADD2OUT_LONGHEX; }
+  if (sy_ADD2OUT_LONGHEX && NULL == /*_.VALDATA___V2139*/ curfptr[2138])
+  /*_.VALDATA___V2139*/ curfptr[2138] = (void*) sy_ADD2OUT_LONGHEX; }
  
  /*getnamedsym:ADD2OUT_ROUTINEDESCR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ADD2OUT_ROUTINEDESCR = meltgc_named_symbol("ADD2OUT_ROUTINEDESCR", MELT_GET);
-  if (sy_ADD2OUT_ROUTINEDESCR && NULL == /*_.VALDATA___V2158*/ curfptr[2157])
-  /*_.VALDATA___V2158*/ curfptr[2157] = (void*) sy_ADD2OUT_ROUTINEDESCR; }
+  if (sy_ADD2OUT_ROUTINEDESCR && NULL == /*_.VALDATA___V2150*/ curfptr[2149])
+  /*_.VALDATA___V2150*/ curfptr[2149] = (void*) sy_ADD2OUT_ROUTINEDESCR; }
  
  /*getnamedsym:IS_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_STRING = meltgc_named_symbol("IS_STRING", MELT_GET);
-  if (sy_IS_STRING && NULL == /*_.VALDATA___V2169*/ curfptr[2168])
-  /*_.VALDATA___V2169*/ curfptr[2168] = (void*) sy_IS_STRING; }
+  if (sy_IS_STRING && NULL == /*_.VALDATA___V2161*/ curfptr[2160])
+  /*_.VALDATA___V2161*/ curfptr[2160] = (void*) sy_IS_STRING; }
  
  /*getnamedsym:==S*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_S = meltgc_named_symbol("==S", MELT_GET);
-  if (sy_S && NULL == /*_.VALDATA___V2178*/ curfptr[2177])
-  /*_.VALDATA___V2178*/ curfptr[2177] = (void*) sy_S; }
+  if (sy_S && NULL == /*_.VALDATA___V2170*/ curfptr[2169])
+  /*_.VALDATA___V2170*/ curfptr[2169] = (void*) sy_S; }
  
  /*getnamedsym:S1*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_S1 = meltgc_named_symbol("S1", MELT_GET);
-  if (sy_S1 && NULL == /*_.VALDATA___V2183*/ curfptr[2182])
-  /*_.VALDATA___V2183*/ curfptr[2182] = (void*) sy_S1; }
+  if (sy_S1 && NULL == /*_.VALDATA___V2175*/ curfptr[2174])
+  /*_.VALDATA___V2175*/ curfptr[2174] = (void*) sy_S1; }
  
  /*getnamedsym:S2*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_S2 = meltgc_named_symbol("S2", MELT_GET);
-  if (sy_S2 && NULL == /*_.VALDATA___V2186*/ curfptr[2185])
-  /*_.VALDATA___V2186*/ curfptr[2185] = (void*) sy_S2; }
+  if (sy_S2 && NULL == /*_.VALDATA___V2178*/ curfptr[2177])
+  /*_.VALDATA___V2178*/ curfptr[2177] = (void*) sy_S2; }
  
  /*getnamedsym:!=S*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_S = meltgc_named_symbol("!=S", MELT_GET);
-  if (sy_S && NULL == /*_.VALDATA___V2193*/ curfptr[2192])
-  /*_.VALDATA___V2193*/ curfptr[2192] = (void*) sy_S; }
+  if (sy_S && NULL == /*_.VALDATA___V2185*/ curfptr[2184])
+  /*_.VALDATA___V2185*/ curfptr[2184] = (void*) sy_S; }
  
  /*getnamedsym:MAKE_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_STRING = meltgc_named_symbol("MAKE_STRING", MELT_GET);
-  if (sy_MAKE_STRING && NULL == /*_.VALDATA___V2204*/ curfptr[2203])
-  /*_.VALDATA___V2204*/ curfptr[2203] = (void*) sy_MAKE_STRING; }
+  if (sy_MAKE_STRING && NULL == /*_.VALDATA___V2196*/ curfptr[2195])
+  /*_.VALDATA___V2196*/ curfptr[2195] = (void*) sy_MAKE_STRING; }
  
  /*getnamedsym:DIS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DIS = meltgc_named_symbol("DIS", MELT_GET);
-  if (sy_DIS && NULL == /*_.VALDATA___V2209*/ curfptr[2208])
-  /*_.VALDATA___V2209*/ curfptr[2208] = (void*) sy_DIS; }
+  if (sy_DIS && NULL == /*_.VALDATA___V2201*/ curfptr[2200])
+  /*_.VALDATA___V2201*/ curfptr[2200] = (void*) sy_DIS; }
  
  /*getnamedsym:MAKE_STRINGCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_STRINGCONST = meltgc_named_symbol("MAKE_STRINGCONST", MELT_GET);
-  if (sy_MAKE_STRINGCONST && NULL == /*_.VALDATA___V2217*/ curfptr[2216])
-  /*_.VALDATA___V2217*/ curfptr[2216] = (void*) sy_MAKE_STRINGCONST; }
+  if (sy_MAKE_STRINGCONST && NULL == /*_.VALDATA___V2209*/ curfptr[2208])
+  /*_.VALDATA___V2209*/ curfptr[2208] = (void*) sy_MAKE_STRINGCONST; }
  
  /*getnamedsym:IS_STRINGCONST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_STRINGCONST = meltgc_named_symbol("IS_STRINGCONST", MELT_GET);
-  if (sy_IS_STRINGCONST && NULL == /*_.VALDATA___V2228*/ curfptr[2227])
-  /*_.VALDATA___V2228*/ curfptr[2227] = (void*) sy_IS_STRINGCONST; }
+  if (sy_IS_STRINGCONST && NULL == /*_.VALDATA___V2220*/ curfptr[2219])
+  /*_.VALDATA___V2220*/ curfptr[2219] = (void*) sy_IS_STRINGCONST; }
  
  /*getnamedsym:CS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CS = meltgc_named_symbol("CS", MELT_GET);
-  if (sy_CS && NULL == /*_.VALDATA___V2234*/ curfptr[2233])
-  /*_.VALDATA___V2234*/ curfptr[2233] = (void*) sy_CS; }
+  if (sy_CS && NULL == /*_.VALDATA___V2226*/ curfptr[2225])
+  /*_.VALDATA___V2226*/ curfptr[2225] = (void*) sy_CS; }
  
  /*getnamedsym:STRING_LENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRING_LENGTH = meltgc_named_symbol("STRING_LENGTH", MELT_GET);
-  if (sy_STRING_LENGTH && NULL == /*_.VALDATA___V2241*/ curfptr[2240])
-  /*_.VALDATA___V2241*/ curfptr[2240] = (void*) sy_STRING_LENGTH; }
+  if (sy_STRING_LENGTH && NULL == /*_.VALDATA___V2233*/ curfptr[2232])
+  /*_.VALDATA___V2233*/ curfptr[2232] = (void*) sy_STRING_LENGTH; }
  
  /*getnamedsym:STRING=*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRING_ = meltgc_named_symbol("STRING=", MELT_GET);
-  if (sy_STRING_ && NULL == /*_.VALDATA___V2250*/ curfptr[2249])
-  /*_.VALDATA___V2250*/ curfptr[2249] = (void*) sy_STRING_; }
+  if (sy_STRING_ && NULL == /*_.VALDATA___V2242*/ curfptr[2241])
+  /*_.VALDATA___V2242*/ curfptr[2241] = (void*) sy_STRING_; }
  
  /*getnamedsym:STRING<*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRING_ = meltgc_named_symbol("STRING<", MELT_GET);
-  if (sy_STRING_ && NULL == /*_.VALDATA___V2261*/ curfptr[2260])
-  /*_.VALDATA___V2261*/ curfptr[2260] = (void*) sy_STRING_; }
+  if (sy_STRING_ && NULL == /*_.VALDATA___V2253*/ curfptr[2252])
+  /*_.VALDATA___V2253*/ curfptr[2252] = (void*) sy_STRING_; }
  
  /*getnamedsym:STRING>*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRING_ = meltgc_named_symbol("STRING>", MELT_GET);
-  if (sy_STRING_ && NULL == /*_.VALDATA___V2272*/ curfptr[2271])
-  /*_.VALDATA___V2272*/ curfptr[2271] = (void*) sy_STRING_; }
+  if (sy_STRING_ && NULL == /*_.VALDATA___V2264*/ curfptr[2263])
+  /*_.VALDATA___V2264*/ curfptr[2263] = (void*) sy_STRING_; }
  
  /*getnamedsym:SPLIT_STRING_SPACE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SPLIT_STRING_SPACE = meltgc_named_symbol("SPLIT_STRING_SPACE", MELT_GET);
-  if (sy_SPLIT_STRING_SPACE && NULL == /*_.VALDATA___V2283*/ curfptr[2282])
-  /*_.VALDATA___V2283*/ curfptr[2282] = (void*) sy_SPLIT_STRING_SPACE; }
+  if (sy_SPLIT_STRING_SPACE && NULL == /*_.VALDATA___V2275*/ curfptr[2274])
+  /*_.VALDATA___V2275*/ curfptr[2274] = (void*) sy_SPLIT_STRING_SPACE; }
  
  /*getnamedsym:SPLIT_STRING_COMMA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SPLIT_STRING_COMMA = meltgc_named_symbol("SPLIT_STRING_COMMA", MELT_GET);
-  if (sy_SPLIT_STRING_COMMA && NULL == /*_.VALDATA___V2294*/ curfptr[2293])
-  /*_.VALDATA___V2294*/ curfptr[2293] = (void*) sy_SPLIT_STRING_COMMA; }
+  if (sy_SPLIT_STRING_COMMA && NULL == /*_.VALDATA___V2286*/ curfptr[2285])
+  /*_.VALDATA___V2286*/ curfptr[2285] = (void*) sy_SPLIT_STRING_COMMA; }
  
  /*getnamedsym:SPLIT_STRING_COLON*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SPLIT_STRING_COLON = meltgc_named_symbol("SPLIT_STRING_COLON", MELT_GET);
-  if (sy_SPLIT_STRING_COLON && NULL == /*_.VALDATA___V2305*/ curfptr[2304])
-  /*_.VALDATA___V2305*/ curfptr[2304] = (void*) sy_SPLIT_STRING_COLON; }
+  if (sy_SPLIT_STRING_COLON && NULL == /*_.VALDATA___V2297*/ curfptr[2296])
+  /*_.VALDATA___V2297*/ curfptr[2296] = (void*) sy_SPLIT_STRING_COLON; }
  
  /*getnamedsym:STRBUF2STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRBUF2STRING = meltgc_named_symbol("STRBUF2STRING", MELT_GET);
-  if (sy_STRBUF2STRING && NULL == /*_.VALDATA___V2316*/ curfptr[2315])
-  /*_.VALDATA___V2316*/ curfptr[2315] = (void*) sy_STRBUF2STRING; }
+  if (sy_STRBUF2STRING && NULL == /*_.VALDATA___V2308*/ curfptr[2307])
+  /*_.VALDATA___V2308*/ curfptr[2307] = (void*) sy_STRBUF2STRING; }
  
  /*getnamedsym:MAKE_STRING_NAKEDBASENAME*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_STRING_NAKEDBASENAME = meltgc_named_symbol("MAKE_STRING_NAKEDBASENAME", MELT_GET);
-  if (sy_MAKE_STRING_NAKEDBASENAME && NULL == /*_.VALDATA___V2327*/ curfptr[2326])
-  /*_.VALDATA___V2327*/ curfptr[2326] = (void*) sy_MAKE_STRING_NAKEDBASENAME; }
+  if (sy_MAKE_STRING_NAKEDBASENAME && NULL == /*_.VALDATA___V2319*/ curfptr[2318])
+  /*_.VALDATA___V2319*/ curfptr[2318] = (void*) sy_MAKE_STRING_NAKEDBASENAME; }
  
  /*getnamedsym:MAKE_STRING_TEMPNAME_SUFFIXED*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_STRING_TEMPNAME_SUFFIXED = meltgc_named_symbol("MAKE_STRING_TEMPNAME_SUFFIXED", MELT_GET);
-  if (sy_MAKE_STRING_TEMPNAME_SUFFIXED && NULL == /*_.VALDATA___V2338*/ curfptr[2337])
-  /*_.VALDATA___V2338*/ curfptr[2337] = (void*) sy_MAKE_STRING_TEMPNAME_SUFFIXED; }
+  if (sy_MAKE_STRING_TEMPNAME_SUFFIXED && NULL == /*_.VALDATA___V2330*/ curfptr[2329])
+  /*_.VALDATA___V2330*/ curfptr[2329] = (void*) sy_MAKE_STRING_TEMPNAME_SUFFIXED; }
  
  /*getnamedsym:SUFF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SUFF = meltgc_named_symbol("SUFF", MELT_GET);
-  if (sy_SUFF && NULL == /*_.VALDATA___V2345*/ curfptr[2344])
-  /*_.VALDATA___V2345*/ curfptr[2344] = (void*) sy_SUFF; }
+  if (sy_SUFF && NULL == /*_.VALDATA___V2337*/ curfptr[2336])
+  /*_.VALDATA___V2337*/ curfptr[2336] = (void*) sy_SUFF; }
  
  /*getnamedsym:LOAD_MELT_MODULE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LOAD_MELT_MODULE = meltgc_named_symbol("LOAD_MELT_MODULE", MELT_GET);
-  if (sy_LOAD_MELT_MODULE && NULL == /*_.VALDATA___V2353*/ curfptr[2352])
-  /*_.VALDATA___V2353*/ curfptr[2352] = (void*) sy_LOAD_MELT_MODULE; }
+  if (sy_LOAD_MELT_MODULE && NULL == /*_.VALDATA___V2345*/ curfptr[2344])
+  /*_.VALDATA___V2345*/ curfptr[2344] = (void*) sy_LOAD_MELT_MODULE; }
  
  /*getnamedsym:ENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ENV = meltgc_named_symbol("ENV", MELT_GET);
-  if (sy_ENV && NULL == /*_.VALDATA___V2358*/ curfptr[2357])
-  /*_.VALDATA___V2358*/ curfptr[2357] = (void*) sy_ENV; }
+  if (sy_ENV && NULL == /*_.VALDATA___V2350*/ curfptr[2349])
+  /*_.VALDATA___V2350*/ curfptr[2349] = (void*) sy_ENV; }
  
  /*getnamedsym:GENERATE_MELT_MODULE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GENERATE_MELT_MODULE = meltgc_named_symbol("GENERATE_MELT_MODULE", MELT_GET);
-  if (sy_GENERATE_MELT_MODULE && NULL == /*_.VALDATA___V2366*/ curfptr[2365])
-  /*_.VALDATA___V2366*/ curfptr[2365] = (void*) sy_GENERATE_MELT_MODULE; }
+  if (sy_GENERATE_MELT_MODULE && NULL == /*_.VALDATA___V2358*/ curfptr[2357])
+  /*_.VALDATA___V2358*/ curfptr[2357] = (void*) sy_GENERATE_MELT_MODULE; }
  
  /*getnamedsym:SRC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SRC = meltgc_named_symbol("SRC", MELT_GET);
-  if (sy_SRC && NULL == /*_.VALDATA___V2371*/ curfptr[2370])
-  /*_.VALDATA___V2371*/ curfptr[2370] = (void*) sy_SRC; }
+  if (sy_SRC && NULL == /*_.VALDATA___V2363*/ curfptr[2362])
+  /*_.VALDATA___V2363*/ curfptr[2362] = (void*) sy_SRC; }
  
  /*getnamedsym:OUTNAM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTNAM = meltgc_named_symbol("OUTNAM", MELT_GET);
-  if (sy_OUTNAM && NULL == /*_.VALDATA___V2374*/ curfptr[2373])
-  /*_.VALDATA___V2374*/ curfptr[2373] = (void*) sy_OUTNAM; }
+  if (sy_OUTNAM && NULL == /*_.VALDATA___V2366*/ curfptr[2365])
+  /*_.VALDATA___V2366*/ curfptr[2365] = (void*) sy_OUTNAM; }
  
  /*getnamedsym:OBJECT_LENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJECT_LENGTH = meltgc_named_symbol("OBJECT_LENGTH", MELT_GET);
-  if (sy_OBJECT_LENGTH && NULL == /*_.VALDATA___V2381*/ curfptr[2380])
-  /*_.VALDATA___V2381*/ curfptr[2380] = (void*) sy_OBJECT_LENGTH; }
+  if (sy_OBJECT_LENGTH && NULL == /*_.VALDATA___V2373*/ curfptr[2372])
+  /*_.VALDATA___V2373*/ curfptr[2372] = (void*) sy_OBJECT_LENGTH; }
  
  /*getnamedsym:OB*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OB = meltgc_named_symbol("OB", MELT_GET);
-  if (sy_OB && NULL == /*_.VALDATA___V2386*/ curfptr[2385])
-  /*_.VALDATA___V2386*/ curfptr[2385] = (void*) sy_OB; }
+  if (sy_OB && NULL == /*_.VALDATA___V2378*/ curfptr[2377])
+  /*_.VALDATA___V2378*/ curfptr[2377] = (void*) sy_OB; }
  
  /*getnamedsym:OBJECT_NTH_FIELD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJECT_NTH_FIELD = meltgc_named_symbol("OBJECT_NTH_FIELD", MELT_GET);
-  if (sy_OBJECT_NTH_FIELD && NULL == /*_.VALDATA___V2392*/ curfptr[2391])
-  /*_.VALDATA___V2392*/ curfptr[2391] = (void*) sy_OBJECT_NTH_FIELD; }
+  if (sy_OBJECT_NTH_FIELD && NULL == /*_.VALDATA___V2384*/ curfptr[2383])
+  /*_.VALDATA___V2384*/ curfptr[2383] = (void*) sy_OBJECT_NTH_FIELD; }
  
  /*getnamedsym:N*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_N = meltgc_named_symbol("N", MELT_GET);
-  if (sy_N && NULL == /*_.VALDATA___V2398*/ curfptr[2397])
-  /*_.VALDATA___V2398*/ curfptr[2397] = (void*) sy_N; }
+  if (sy_N && NULL == /*_.VALDATA___V2390*/ curfptr[2389])
+  /*_.VALDATA___V2390*/ curfptr[2389] = (void*) sy_N; }
  
  /*getnamedsym:SUBCLASS_OF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SUBCLASS_OF = meltgc_named_symbol("SUBCLASS_OF", MELT_GET);
-  if (sy_SUBCLASS_OF && NULL == /*_.VALDATA___V2405*/ curfptr[2404])
-  /*_.VALDATA___V2405*/ curfptr[2404] = (void*) sy_SUBCLASS_OF; }
+  if (sy_SUBCLASS_OF && NULL == /*_.VALDATA___V2397*/ curfptr[2396])
+  /*_.VALDATA___V2397*/ curfptr[2396] = (void*) sy_SUBCLASS_OF; }
  
  /*getnamedsym:CL1*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CL1 = meltgc_named_symbol("CL1", MELT_GET);
-  if (sy_CL1 && NULL == /*_.VALDATA___V2410*/ curfptr[2409])
-  /*_.VALDATA___V2410*/ curfptr[2409] = (void*) sy_CL1; }
+  if (sy_CL1 && NULL == /*_.VALDATA___V2402*/ curfptr[2401])
+  /*_.VALDATA___V2402*/ curfptr[2401] = (void*) sy_CL1; }
  
  /*getnamedsym:CL2*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CL2 = meltgc_named_symbol("CL2", MELT_GET);
-  if (sy_CL2 && NULL == /*_.VALDATA___V2413*/ curfptr[2412])
-  /*_.VALDATA___V2413*/ curfptr[2412] = (void*) sy_CL2; }
+  if (sy_CL2 && NULL == /*_.VALDATA___V2405*/ curfptr[2404])
+  /*_.VALDATA___V2405*/ curfptr[2404] = (void*) sy_CL2; }
  
  /*getnamedsym:SUBCLASS_OR_EQ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SUBCLASS_OR_EQ = meltgc_named_symbol("SUBCLASS_OR_EQ", MELT_GET);
-  if (sy_SUBCLASS_OR_EQ && NULL == /*_.VALDATA___V2420*/ curfptr[2419])
-  /*_.VALDATA___V2420*/ curfptr[2419] = (void*) sy_SUBCLASS_OR_EQ; }
+  if (sy_SUBCLASS_OR_EQ && NULL == /*_.VALDATA___V2412*/ curfptr[2411])
+  /*_.VALDATA___V2412*/ curfptr[2411] = (void*) sy_SUBCLASS_OR_EQ; }
  
  /*getnamedsym:IS_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MULTIPLE = meltgc_named_symbol("IS_MULTIPLE", MELT_GET);
-  if (sy_IS_MULTIPLE && NULL == /*_.VALDATA___V2433*/ curfptr[2432])
-  /*_.VALDATA___V2433*/ curfptr[2432] = (void*) sy_IS_MULTIPLE; }
+  if (sy_IS_MULTIPLE && NULL == /*_.VALDATA___V2425*/ curfptr[2424])
+  /*_.VALDATA___V2425*/ curfptr[2424] = (void*) sy_IS_MULTIPLE; }
  
  /*getnamedsym:MUL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MUL = meltgc_named_symbol("MUL", MELT_GET);
-  if (sy_MUL && NULL == /*_.VALDATA___V2438*/ curfptr[2437])
-  /*_.VALDATA___V2438*/ curfptr[2437] = (void*) sy_MUL; }
+  if (sy_MUL && NULL == /*_.VALDATA___V2430*/ curfptr[2429])
+  /*_.VALDATA___V2430*/ curfptr[2429] = (void*) sy_MUL; }
  
  /*getnamedsym:IS_MULTIPLE_OR_NULL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MULTIPLE_OR_NULL = meltgc_named_symbol("IS_MULTIPLE_OR_NULL", MELT_GET);
-  if (sy_IS_MULTIPLE_OR_NULL && NULL == /*_.VALDATA___V2444*/ curfptr[2443])
-  /*_.VALDATA___V2444*/ curfptr[2443] = (void*) sy_IS_MULTIPLE_OR_NULL; }
+  if (sy_IS_MULTIPLE_OR_NULL && NULL == /*_.VALDATA___V2436*/ curfptr[2435])
+  /*_.VALDATA___V2436*/ curfptr[2435] = (void*) sy_IS_MULTIPLE_OR_NULL; }
  
  /*getnamedsym:MAKE_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_MULTIPLE = meltgc_named_symbol("MAKE_MULTIPLE", MELT_GET);
-  if (sy_MAKE_MULTIPLE && NULL == /*_.VALDATA___V2454*/ curfptr[2453])
-  /*_.VALDATA___V2454*/ curfptr[2453] = (void*) sy_MAKE_MULTIPLE; }
+  if (sy_MAKE_MULTIPLE && NULL == /*_.VALDATA___V2446*/ curfptr[2445])
+  /*_.VALDATA___V2446*/ curfptr[2445] = (void*) sy_MAKE_MULTIPLE; }
  
  /*getnamedsym:LN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LN = meltgc_named_symbol("LN", MELT_GET);
-  if (sy_LN && NULL == /*_.VALDATA___V2460*/ curfptr[2459])
-  /*_.VALDATA___V2460*/ curfptr[2459] = (void*) sy_LN; }
+  if (sy_LN && NULL == /*_.VALDATA___V2452*/ curfptr[2451])
+  /*_.VALDATA___V2452*/ curfptr[2451] = (void*) sy_LN; }
  
  /*getnamedsym:MAKE_TUPLE1*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE1 = meltgc_named_symbol("MAKE_TUPLE1", MELT_GET);
-  if (sy_MAKE_TUPLE1 && NULL == /*_.VALDATA___V2467*/ curfptr[2466])
-  /*_.VALDATA___V2467*/ curfptr[2466] = (void*) sy_MAKE_TUPLE1; }
+  if (sy_MAKE_TUPLE1 && NULL == /*_.VALDATA___V2459*/ curfptr[2458])
+  /*_.VALDATA___V2459*/ curfptr[2458] = (void*) sy_MAKE_TUPLE1; }
  
  /*getnamedsym:V1*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V1 = meltgc_named_symbol("V1", MELT_GET);
-  if (sy_V1 && NULL == /*_.VALDATA___V2473*/ curfptr[2472])
-  /*_.VALDATA___V2473*/ curfptr[2472] = (void*) sy_V1; }
+  if (sy_V1 && NULL == /*_.VALDATA___V2465*/ curfptr[2464])
+  /*_.VALDATA___V2465*/ curfptr[2464] = (void*) sy_V1; }
  
  /*getnamedsym:MAKE_TUPLE2*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE2 = meltgc_named_symbol("MAKE_TUPLE2", MELT_GET);
-  if (sy_MAKE_TUPLE2 && NULL == /*_.VALDATA___V2480*/ curfptr[2479])
-  /*_.VALDATA___V2480*/ curfptr[2479] = (void*) sy_MAKE_TUPLE2; }
+  if (sy_MAKE_TUPLE2 && NULL == /*_.VALDATA___V2472*/ curfptr[2471])
+  /*_.VALDATA___V2472*/ curfptr[2471] = (void*) sy_MAKE_TUPLE2; }
  
  /*getnamedsym:V2*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V2 = meltgc_named_symbol("V2", MELT_GET);
-  if (sy_V2 && NULL == /*_.VALDATA___V2487*/ curfptr[2486])
-  /*_.VALDATA___V2487*/ curfptr[2486] = (void*) sy_V2; }
+  if (sy_V2 && NULL == /*_.VALDATA___V2479*/ curfptr[2478])
+  /*_.VALDATA___V2479*/ curfptr[2478] = (void*) sy_V2; }
  
  /*getnamedsym:MAKE_TUPLE3*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE3 = meltgc_named_symbol("MAKE_TUPLE3", MELT_GET);
-  if (sy_MAKE_TUPLE3 && NULL == /*_.VALDATA___V2495*/ curfptr[2494])
-  /*_.VALDATA___V2495*/ curfptr[2494] = (void*) sy_MAKE_TUPLE3; }
+  if (sy_MAKE_TUPLE3 && NULL == /*_.VALDATA___V2487*/ curfptr[2486])
+  /*_.VALDATA___V2487*/ curfptr[2486] = (void*) sy_MAKE_TUPLE3; }
  
  /*getnamedsym:V3*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V3 = meltgc_named_symbol("V3", MELT_GET);
-  if (sy_V3 && NULL == /*_.VALDATA___V2503*/ curfptr[2502])
-  /*_.VALDATA___V2503*/ curfptr[2502] = (void*) sy_V3; }
+  if (sy_V3 && NULL == /*_.VALDATA___V2495*/ curfptr[2494])
+  /*_.VALDATA___V2495*/ curfptr[2494] = (void*) sy_V3; }
  
  /*getnamedsym:MAKE_TUPLE4*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE4 = meltgc_named_symbol("MAKE_TUPLE4", MELT_GET);
-  if (sy_MAKE_TUPLE4 && NULL == /*_.VALDATA___V2512*/ curfptr[2511])
-  /*_.VALDATA___V2512*/ curfptr[2511] = (void*) sy_MAKE_TUPLE4; }
+  if (sy_MAKE_TUPLE4 && NULL == /*_.VALDATA___V2504*/ curfptr[2503])
+  /*_.VALDATA___V2504*/ curfptr[2503] = (void*) sy_MAKE_TUPLE4; }
  
  /*getnamedsym:V4*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V4 = meltgc_named_symbol("V4", MELT_GET);
-  if (sy_V4 && NULL == /*_.VALDATA___V2521*/ curfptr[2520])
-  /*_.VALDATA___V2521*/ curfptr[2520] = (void*) sy_V4; }
+  if (sy_V4 && NULL == /*_.VALDATA___V2513*/ curfptr[2512])
+  /*_.VALDATA___V2513*/ curfptr[2512] = (void*) sy_V4; }
  
  /*getnamedsym:MAKE_TUPLE5*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE5 = meltgc_named_symbol("MAKE_TUPLE5", MELT_GET);
-  if (sy_MAKE_TUPLE5 && NULL == /*_.VALDATA___V2531*/ curfptr[2530])
-  /*_.VALDATA___V2531*/ curfptr[2530] = (void*) sy_MAKE_TUPLE5; }
+  if (sy_MAKE_TUPLE5 && NULL == /*_.VALDATA___V2523*/ curfptr[2522])
+  /*_.VALDATA___V2523*/ curfptr[2522] = (void*) sy_MAKE_TUPLE5; }
  
  /*getnamedsym:V5*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V5 = meltgc_named_symbol("V5", MELT_GET);
-  if (sy_V5 && NULL == /*_.VALDATA___V2541*/ curfptr[2540])
-  /*_.VALDATA___V2541*/ curfptr[2540] = (void*) sy_V5; }
+  if (sy_V5 && NULL == /*_.VALDATA___V2533*/ curfptr[2532])
+  /*_.VALDATA___V2533*/ curfptr[2532] = (void*) sy_V5; }
  
  /*getnamedsym:MAKE_TUPLE6*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE6 = meltgc_named_symbol("MAKE_TUPLE6", MELT_GET);
-  if (sy_MAKE_TUPLE6 && NULL == /*_.VALDATA___V2552*/ curfptr[2551])
-  /*_.VALDATA___V2552*/ curfptr[2551] = (void*) sy_MAKE_TUPLE6; }
+  if (sy_MAKE_TUPLE6 && NULL == /*_.VALDATA___V2544*/ curfptr[2543])
+  /*_.VALDATA___V2544*/ curfptr[2543] = (void*) sy_MAKE_TUPLE6; }
  
  /*getnamedsym:V6*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V6 = meltgc_named_symbol("V6", MELT_GET);
-  if (sy_V6 && NULL == /*_.VALDATA___V2563*/ curfptr[2562])
-  /*_.VALDATA___V2563*/ curfptr[2562] = (void*) sy_V6; }
+  if (sy_V6 && NULL == /*_.VALDATA___V2555*/ curfptr[2554])
+  /*_.VALDATA___V2555*/ curfptr[2554] = (void*) sy_V6; }
  
  /*getnamedsym:MAKE_TUPLE7*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_TUPLE7 = meltgc_named_symbol("MAKE_TUPLE7", MELT_GET);
-  if (sy_MAKE_TUPLE7 && NULL == /*_.VALDATA___V2575*/ curfptr[2574])
-  /*_.VALDATA___V2575*/ curfptr[2574] = (void*) sy_MAKE_TUPLE7; }
+  if (sy_MAKE_TUPLE7 && NULL == /*_.VALDATA___V2567*/ curfptr[2566])
+  /*_.VALDATA___V2567*/ curfptr[2566] = (void*) sy_MAKE_TUPLE7; }
  
  /*getnamedsym:V7*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_V7 = meltgc_named_symbol("V7", MELT_GET);
-  if (sy_V7 && NULL == /*_.VALDATA___V2587*/ curfptr[2586])
-  /*_.VALDATA___V2587*/ curfptr[2586] = (void*) sy_V7; }
+  if (sy_V7 && NULL == /*_.VALDATA___V2579*/ curfptr[2578])
+  /*_.VALDATA___V2579*/ curfptr[2578] = (void*) sy_V7; }
  
  /*getnamedsym:SUBSEQ_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SUBSEQ_MULTIPLE = meltgc_named_symbol("SUBSEQ_MULTIPLE", MELT_GET);
-  if (sy_SUBSEQ_MULTIPLE && NULL == /*_.VALDATA___V2600*/ curfptr[2599])
-  /*_.VALDATA___V2600*/ curfptr[2599] = (void*) sy_SUBSEQ_MULTIPLE; }
+  if (sy_SUBSEQ_MULTIPLE && NULL == /*_.VALDATA___V2592*/ curfptr[2591])
+  /*_.VALDATA___V2592*/ curfptr[2591] = (void*) sy_SUBSEQ_MULTIPLE; }
  
  /*getnamedsym:STARTIX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STARTIX = meltgc_named_symbol("STARTIX", MELT_GET);
-  if (sy_STARTIX && NULL == /*_.VALDATA___V2606*/ curfptr[2605])
-  /*_.VALDATA___V2606*/ curfptr[2605] = (void*) sy_STARTIX; }
+  if (sy_STARTIX && NULL == /*_.VALDATA___V2598*/ curfptr[2597])
+  /*_.VALDATA___V2598*/ curfptr[2597] = (void*) sy_STARTIX; }
  
  /*getnamedsym:ENDIX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ENDIX = meltgc_named_symbol("ENDIX", MELT_GET);
-  if (sy_ENDIX && NULL == /*_.VALDATA___V2609*/ curfptr[2608])
-  /*_.VALDATA___V2609*/ curfptr[2608] = (void*) sy_ENDIX; }
+  if (sy_ENDIX && NULL == /*_.VALDATA___V2601*/ curfptr[2600])
+  /*_.VALDATA___V2601*/ curfptr[2600] = (void*) sy_ENDIX; }
  
  /*getnamedsym:MULTIPLE_NTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_NTH = meltgc_named_symbol("MULTIPLE_NTH", MELT_GET);
-  if (sy_MULTIPLE_NTH && NULL == /*_.VALDATA___V2617*/ curfptr[2616])
-  /*_.VALDATA___V2617*/ curfptr[2616] = (void*) sy_MULTIPLE_NTH; }
+  if (sy_MULTIPLE_NTH && NULL == /*_.VALDATA___V2609*/ curfptr[2608])
+  /*_.VALDATA___V2609*/ curfptr[2608] = (void*) sy_MULTIPLE_NTH; }
  
  /*getnamedsym:MULTIPLE_LENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_LENGTH = meltgc_named_symbol("MULTIPLE_LENGTH", MELT_GET);
-  if (sy_MULTIPLE_LENGTH && NULL == /*_.VALDATA___V2628*/ curfptr[2627])
-  /*_.VALDATA___V2628*/ curfptr[2627] = (void*) sy_MULTIPLE_LENGTH; }
+  if (sy_MULTIPLE_LENGTH && NULL == /*_.VALDATA___V2620*/ curfptr[2619])
+  /*_.VALDATA___V2620*/ curfptr[2619] = (void*) sy_MULTIPLE_LENGTH; }
  
  /*getnamedsym:MULTIPLE_PUT_NTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_PUT_NTH = meltgc_named_symbol("MULTIPLE_PUT_NTH", MELT_GET);
-  if (sy_MULTIPLE_PUT_NTH && NULL == /*_.VALDATA___V2637*/ curfptr[2636])
-  /*_.VALDATA___V2637*/ curfptr[2636] = (void*) sy_MULTIPLE_PUT_NTH; }
+  if (sy_MULTIPLE_PUT_NTH && NULL == /*_.VALDATA___V2629*/ curfptr[2628])
+  /*_.VALDATA___V2629*/ curfptr[2628] = (void*) sy_MULTIPLE_PUT_NTH; }
  
  /*getnamedsym:MULTIPLE_SORT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_SORT = meltgc_named_symbol("MULTIPLE_SORT", MELT_GET);
-  if (sy_MULTIPLE_SORT && NULL == /*_.VALDATA___V2650*/ curfptr[2649])
-  /*_.VALDATA___V2650*/ curfptr[2649] = (void*) sy_MULTIPLE_SORT; }
+  if (sy_MULTIPLE_SORT && NULL == /*_.VALDATA___V2642*/ curfptr[2641])
+  /*_.VALDATA___V2642*/ curfptr[2641] = (void*) sy_MULTIPLE_SORT; }
  
  /*getnamedsym:CMP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CMP = meltgc_named_symbol("CMP", MELT_GET);
-  if (sy_CMP && NULL == /*_.VALDATA___V2656*/ curfptr[2655])
-  /*_.VALDATA___V2656*/ curfptr[2655] = (void*) sy_CMP; }
+  if (sy_CMP && NULL == /*_.VALDATA___V2648*/ curfptr[2647])
+  /*_.VALDATA___V2648*/ curfptr[2647] = (void*) sy_CMP; }
  
  /*getnamedsym:DISCRM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCRM = meltgc_named_symbol("DISCRM", MELT_GET);
-  if (sy_DISCRM && NULL == /*_.VALDATA___V2659*/ curfptr[2658])
-  /*_.VALDATA___V2659*/ curfptr[2658] = (void*) sy_DISCRM; }
+  if (sy_DISCRM && NULL == /*_.VALDATA___V2651*/ curfptr[2650])
+  /*_.VALDATA___V2651*/ curfptr[2650] = (void*) sy_DISCRM; }
  
  /*getnamedsym:MATCHEDRK*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MATCHEDRK = meltgc_named_symbol("MATCHEDRK", MELT_GET);
-  if (sy_MATCHEDRK && NULL == /*_.VALDATA___V2678*/ curfptr[2677])
-  /*_.VALDATA___V2678*/ curfptr[2677] = (void*) sy_MATCHEDRK; }
+  if (sy_MATCHEDRK && NULL == /*_.VALDATA___V2670*/ curfptr[2669])
+  /*_.VALDATA___V2670*/ curfptr[2669] = (void*) sy_MATCHEDRK; }
  
  /*getnamedsym:MATCHEDTUP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MATCHEDTUP = meltgc_named_symbol("MATCHEDTUP", MELT_GET);
-  if (sy_MATCHEDTUP && NULL == /*_.VALDATA___V2682*/ curfptr[2681])
-  /*_.VALDATA___V2682*/ curfptr[2681] = (void*) sy_MATCHEDTUP; }
+  if (sy_MATCHEDTUP && NULL == /*_.VALDATA___V2674*/ curfptr[2673])
+  /*_.VALDATA___V2674*/ curfptr[2673] = (void*) sy_MATCHEDTUP; }
  
  /*getnamedsym:OUTCOMP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OUTCOMP = meltgc_named_symbol("OUTCOMP", MELT_GET);
-  if (sy_OUTCOMP && NULL == /*_.VALDATA___V2685*/ curfptr[2684])
-  /*_.VALDATA___V2685*/ curfptr[2684] = (void*) sy_OUTCOMP; }
+  if (sy_OUTCOMP && NULL == /*_.VALDATA___V2677*/ curfptr[2676])
+  /*_.VALDATA___V2677*/ curfptr[2676] = (void*) sy_OUTCOMP; }
  
  /*getnamedsym:TUPNTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TUPNTH = meltgc_named_symbol("TUPNTH", MELT_GET);
-  if (sy_TUPNTH && NULL == /*_.VALDATA___V2688*/ curfptr[2687])
-  /*_.VALDATA___V2688*/ curfptr[2687] = (void*) sy_TUPNTH; }
+  if (sy_TUPNTH && NULL == /*_.VALDATA___V2680*/ curfptr[2679])
+  /*_.VALDATA___V2680*/ curfptr[2679] = (void*) sy_TUPNTH; }
  
  /*getnamedsym:STRSAM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRSAM = meltgc_named_symbol("STRSAM", MELT_GET);
-  if (sy_STRSAM && NULL == /*_.VALDATA___V2707*/ curfptr[2706])
-  /*_.VALDATA___V2707*/ curfptr[2706] = (void*) sy_STRSAM; }
+  if (sy_STRSAM && NULL == /*_.VALDATA___V2699*/ curfptr[2698])
+  /*_.VALDATA___V2699*/ curfptr[2698] = (void*) sy_STRSAM; }
  
  /*getnamedsym:CSTRING_LENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CSTRING_LENGTH = meltgc_named_symbol("CSTRING_LENGTH", MELT_GET);
-  if (sy_CSTRING_LENGTH && NULL == /*_.VALDATA___V2716*/ curfptr[2715])
-  /*_.VALDATA___V2716*/ curfptr[2715] = (void*) sy_CSTRING_LENGTH; }
+  if (sy_CSTRING_LENGTH && NULL == /*_.VALDATA___V2708*/ curfptr[2707])
+  /*_.VALDATA___V2708*/ curfptr[2707] = (void*) sy_CSTRING_LENGTH; }
  
  /*getnamedsym:TUP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TUP = meltgc_named_symbol("TUP", MELT_GET);
-  if (sy_TUP && NULL == /*_.VALDATA___V2731*/ curfptr[2730])
-  /*_.VALDATA___V2731*/ curfptr[2730] = (void*) sy_TUP; }
+  if (sy_TUP && NULL == /*_.VALDATA___V2723*/ curfptr[2722])
+  /*_.VALDATA___V2723*/ curfptr[2722] = (void*) sy_TUP; }
  
  /*getnamedsym:TUPSIZ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TUPSIZ = meltgc_named_symbol("TUPSIZ", MELT_GET);
-  if (sy_TUPSIZ && NULL == /*_.VALDATA___V2734*/ curfptr[2733])
-  /*_.VALDATA___V2734*/ curfptr[2733] = (void*) sy_TUPSIZ; }
+  if (sy_TUPSIZ && NULL == /*_.VALDATA___V2726*/ curfptr[2725])
+  /*_.VALDATA___V2726*/ curfptr[2725] = (void*) sy_TUPSIZ; }
  
  /*getnamedsym:IS_MAPOBJECT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MAPOBJECT = meltgc_named_symbol("IS_MAPOBJECT", MELT_GET);
-  if (sy_IS_MAPOBJECT && NULL == /*_.VALDATA___V2740*/ curfptr[2739])
-  /*_.VALDATA___V2740*/ curfptr[2739] = (void*) sy_IS_MAPOBJECT; }
+  if (sy_IS_MAPOBJECT && NULL == /*_.VALDATA___V2732*/ curfptr[2731])
+  /*_.VALDATA___V2732*/ curfptr[2731] = (void*) sy_IS_MAPOBJECT; }
  
  /*getnamedsym:MAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAP = meltgc_named_symbol("MAP", MELT_GET);
-  if (sy_MAP && NULL == /*_.VALDATA___V2745*/ curfptr[2744])
-  /*_.VALDATA___V2745*/ curfptr[2744] = (void*) sy_MAP; }
+  if (sy_MAP && NULL == /*_.VALDATA___V2737*/ curfptr[2736])
+  /*_.VALDATA___V2737*/ curfptr[2736] = (void*) sy_MAP; }
  
  /*getnamedsym:MAPOBJECT_SIZE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_SIZE = meltgc_named_symbol("MAPOBJECT_SIZE", MELT_GET);
-  if (sy_MAPOBJECT_SIZE && NULL == /*_.VALDATA___V2751*/ curfptr[2750])
-  /*_.VALDATA___V2751*/ curfptr[2750] = (void*) sy_MAPOBJECT_SIZE; }
+  if (sy_MAPOBJECT_SIZE && NULL == /*_.VALDATA___V2743*/ curfptr[2742])
+  /*_.VALDATA___V2743*/ curfptr[2742] = (void*) sy_MAPOBJECT_SIZE; }
  
  /*getnamedsym:MAPOBJECT_COUNT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_COUNT = meltgc_named_symbol("MAPOBJECT_COUNT", MELT_GET);
-  if (sy_MAPOBJECT_COUNT && NULL == /*_.VALDATA___V2760*/ curfptr[2759])
-  /*_.VALDATA___V2760*/ curfptr[2759] = (void*) sy_MAPOBJECT_COUNT; }
+  if (sy_MAPOBJECT_COUNT && NULL == /*_.VALDATA___V2752*/ curfptr[2751])
+  /*_.VALDATA___V2752*/ curfptr[2751] = (void*) sy_MAPOBJECT_COUNT; }
  
  /*getnamedsym:MAPOBJECT_NTH_ATTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_NTH_ATTR = meltgc_named_symbol("MAPOBJECT_NTH_ATTR", MELT_GET);
-  if (sy_MAPOBJECT_NTH_ATTR && NULL == /*_.VALDATA___V2769*/ curfptr[2768])
-  /*_.VALDATA___V2769*/ curfptr[2768] = (void*) sy_MAPOBJECT_NTH_ATTR; }
+  if (sy_MAPOBJECT_NTH_ATTR && NULL == /*_.VALDATA___V2761*/ curfptr[2760])
+  /*_.VALDATA___V2761*/ curfptr[2760] = (void*) sy_MAPOBJECT_NTH_ATTR; }
  
  /*getnamedsym:MAPOBJECT_NTH_VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_NTH_VAL = meltgc_named_symbol("MAPOBJECT_NTH_VAL", MELT_GET);
-  if (sy_MAPOBJECT_NTH_VAL && NULL == /*_.VALDATA___V2780*/ curfptr[2779])
-  /*_.VALDATA___V2780*/ curfptr[2779] = (void*) sy_MAPOBJECT_NTH_VAL; }
+  if (sy_MAPOBJECT_NTH_VAL && NULL == /*_.VALDATA___V2772*/ curfptr[2771])
+  /*_.VALDATA___V2772*/ curfptr[2771] = (void*) sy_MAPOBJECT_NTH_VAL; }
  
  /*getnamedsym:MAPOBJECT_GET*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_GET = meltgc_named_symbol("MAPOBJECT_GET", MELT_GET);
-  if (sy_MAPOBJECT_GET && NULL == /*_.VALDATA___V2791*/ curfptr[2790])
-  /*_.VALDATA___V2791*/ curfptr[2790] = (void*) sy_MAPOBJECT_GET; }
+  if (sy_MAPOBJECT_GET && NULL == /*_.VALDATA___V2783*/ curfptr[2782])
+  /*_.VALDATA___V2783*/ curfptr[2782] = (void*) sy_MAPOBJECT_GET; }
  
  /*getnamedsym:ATTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ATTR = meltgc_named_symbol("ATTR", MELT_GET);
-  if (sy_ATTR && NULL == /*_.VALDATA___V2797*/ curfptr[2796])
-  /*_.VALDATA___V2797*/ curfptr[2796] = (void*) sy_ATTR; }
+  if (sy_ATTR && NULL == /*_.VALDATA___V2789*/ curfptr[2788])
+  /*_.VALDATA___V2789*/ curfptr[2788] = (void*) sy_ATTR; }
  
  /*getnamedsym:MAKE_MAPOBJECT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_MAPOBJECT = meltgc_named_symbol("MAKE_MAPOBJECT", MELT_GET);
-  if (sy_MAKE_MAPOBJECT && NULL == /*_.VALDATA___V2804*/ curfptr[2803])
-  /*_.VALDATA___V2804*/ curfptr[2803] = (void*) sy_MAKE_MAPOBJECT; }
+  if (sy_MAKE_MAPOBJECT && NULL == /*_.VALDATA___V2796*/ curfptr[2795])
+  /*_.VALDATA___V2796*/ curfptr[2795] = (void*) sy_MAKE_MAPOBJECT; }
  
  /*getnamedsym:LEN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LEN = meltgc_named_symbol("LEN", MELT_GET);
-  if (sy_LEN && NULL == /*_.VALDATA___V2810*/ curfptr[2809])
-  /*_.VALDATA___V2810*/ curfptr[2809] = (void*) sy_LEN; }
+  if (sy_LEN && NULL == /*_.VALDATA___V2802*/ curfptr[2801])
+  /*_.VALDATA___V2802*/ curfptr[2801] = (void*) sy_LEN; }
  
  /*getnamedsym:MAPOBJECT_PUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_PUT = meltgc_named_symbol("MAPOBJECT_PUT", MELT_GET);
-  if (sy_MAPOBJECT_PUT && NULL == /*_.VALDATA___V2817*/ curfptr[2816])
-  /*_.VALDATA___V2817*/ curfptr[2816] = (void*) sy_MAPOBJECT_PUT; }
+  if (sy_MAPOBJECT_PUT && NULL == /*_.VALDATA___V2809*/ curfptr[2808])
+  /*_.VALDATA___V2809*/ curfptr[2808] = (void*) sy_MAPOBJECT_PUT; }
  
  /*getnamedsym:KEY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_KEY = meltgc_named_symbol("KEY", MELT_GET);
-  if (sy_KEY && NULL == /*_.VALDATA___V2823*/ curfptr[2822])
-  /*_.VALDATA___V2823*/ curfptr[2822] = (void*) sy_KEY; }
+  if (sy_KEY && NULL == /*_.VALDATA___V2815*/ curfptr[2814])
+  /*_.VALDATA___V2815*/ curfptr[2814] = (void*) sy_KEY; }
  
  /*getnamedsym:MAPOBJECT_REMOVE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_REMOVE = meltgc_named_symbol("MAPOBJECT_REMOVE", MELT_GET);
-  if (sy_MAPOBJECT_REMOVE && NULL == /*_.VALDATA___V2832*/ curfptr[2831])
-  /*_.VALDATA___V2832*/ curfptr[2831] = (void*) sy_MAPOBJECT_REMOVE; }
+  if (sy_MAPOBJECT_REMOVE && NULL == /*_.VALDATA___V2824*/ curfptr[2823])
+  /*_.VALDATA___V2824*/ curfptr[2823] = (void*) sy_MAPOBJECT_REMOVE; }
  
  /*getnamedsym:OBJMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OBJMAP = meltgc_named_symbol("OBJMAP", MELT_GET);
-  if (sy_OBJMAP && NULL == /*_.VALDATA___V2846*/ curfptr[2845])
-  /*_.VALDATA___V2846*/ curfptr[2845] = (void*) sy_OBJMAP; }
+  if (sy_OBJMAP && NULL == /*_.VALDATA___V2838*/ curfptr[2837])
+  /*_.VALDATA___V2838*/ curfptr[2837] = (void*) sy_OBJMAP; }
  
  /*getnamedsym:EACHOBMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EACHOBMAP = meltgc_named_symbol("EACHOBMAP", MELT_GET);
-  if (sy_EACHOBMAP && NULL == /*_.VALDATA___V2849*/ curfptr[2848])
-  /*_.VALDATA___V2849*/ curfptr[2848] = (void*) sy_EACHOBMAP; }
+  if (sy_EACHOBMAP && NULL == /*_.VALDATA___V2841*/ curfptr[2840])
+  /*_.VALDATA___V2841*/ curfptr[2840] = (void*) sy_EACHOBMAP; }
  
  /*getnamedsym:CURAT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CURAT = meltgc_named_symbol("CURAT", MELT_GET);
-  if (sy_CURAT && NULL == /*_.VALDATA___V2852*/ curfptr[2851])
-  /*_.VALDATA___V2852*/ curfptr[2851] = (void*) sy_CURAT; }
+  if (sy_CURAT && NULL == /*_.VALDATA___V2844*/ curfptr[2843])
+  /*_.VALDATA___V2844*/ curfptr[2843] = (void*) sy_CURAT; }
  
  /*getnamedsym:CURVA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CURVA = meltgc_named_symbol("CURVA", MELT_GET);
-  if (sy_CURVA && NULL == /*_.VALDATA___V2855*/ curfptr[2854])
-  /*_.VALDATA___V2855*/ curfptr[2854] = (void*) sy_CURVA; }
+  if (sy_CURVA && NULL == /*_.VALDATA___V2847*/ curfptr[2846])
+  /*_.VALDATA___V2847*/ curfptr[2846] = (void*) sy_CURVA; }
  
  /*getnamedsym:IS_MAPSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MAPSTRING = meltgc_named_symbol("IS_MAPSTRING", MELT_GET);
-  if (sy_IS_MAPSTRING && NULL == /*_.VALDATA___V2888*/ curfptr[2887])
-  /*_.VALDATA___V2888*/ curfptr[2887] = (void*) sy_IS_MAPSTRING; }
+  if (sy_IS_MAPSTRING && NULL == /*_.VALDATA___V2880*/ curfptr[2879])
+  /*_.VALDATA___V2880*/ curfptr[2879] = (void*) sy_IS_MAPSTRING; }
  
  /*getnamedsym:MAPSTRING_SIZE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_SIZE = meltgc_named_symbol("MAPSTRING_SIZE", MELT_GET);
-  if (sy_MAPSTRING_SIZE && NULL == /*_.VALDATA___V2897*/ curfptr[2896])
-  /*_.VALDATA___V2897*/ curfptr[2896] = (void*) sy_MAPSTRING_SIZE; }
+  if (sy_MAPSTRING_SIZE && NULL == /*_.VALDATA___V2889*/ curfptr[2888])
+  /*_.VALDATA___V2889*/ curfptr[2888] = (void*) sy_MAPSTRING_SIZE; }
  
  /*getnamedsym:MAPSTRING_COUNT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_COUNT = meltgc_named_symbol("MAPSTRING_COUNT", MELT_GET);
-  if (sy_MAPSTRING_COUNT && NULL == /*_.VALDATA___V2906*/ curfptr[2905])
-  /*_.VALDATA___V2906*/ curfptr[2905] = (void*) sy_MAPSTRING_COUNT; }
+  if (sy_MAPSTRING_COUNT && NULL == /*_.VALDATA___V2898*/ curfptr[2897])
+  /*_.VALDATA___V2898*/ curfptr[2897] = (void*) sy_MAPSTRING_COUNT; }
  
  /*getnamedsym:MAPSTRING_RAWGET*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_RAWGET = meltgc_named_symbol("MAPSTRING_RAWGET", MELT_GET);
-  if (sy_MAPSTRING_RAWGET && NULL == /*_.VALDATA___V2915*/ curfptr[2914])
-  /*_.VALDATA___V2915*/ curfptr[2914] = (void*) sy_MAPSTRING_RAWGET; }
+  if (sy_MAPSTRING_RAWGET && NULL == /*_.VALDATA___V2907*/ curfptr[2906])
+  /*_.VALDATA___V2907*/ curfptr[2906] = (void*) sy_MAPSTRING_RAWGET; }
  
  /*getnamedsym:MAKE_MAPSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_MAPSTRING = meltgc_named_symbol("MAKE_MAPSTRING", MELT_GET);
-  if (sy_MAKE_MAPSTRING && NULL == /*_.VALDATA___V2926*/ curfptr[2925])
-  /*_.VALDATA___V2926*/ curfptr[2925] = (void*) sy_MAKE_MAPSTRING; }
+  if (sy_MAKE_MAPSTRING && NULL == /*_.VALDATA___V2918*/ curfptr[2917])
+  /*_.VALDATA___V2918*/ curfptr[2917] = (void*) sy_MAKE_MAPSTRING; }
  
  /*getnamedsym:MAPSTRING_RAWPUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_RAWPUT = meltgc_named_symbol("MAPSTRING_RAWPUT", MELT_GET);
-  if (sy_MAPSTRING_RAWPUT && NULL == /*_.VALDATA___V2937*/ curfptr[2936])
-  /*_.VALDATA___V2937*/ curfptr[2936] = (void*) sy_MAPSTRING_RAWPUT; }
+  if (sy_MAPSTRING_RAWPUT && NULL == /*_.VALDATA___V2929*/ curfptr[2928])
+  /*_.VALDATA___V2929*/ curfptr[2928] = (void*) sy_MAPSTRING_RAWPUT; }
  
  /*getnamedsym:MAPSTRING_PUTSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_PUTSTR = meltgc_named_symbol("MAPSTRING_PUTSTR", MELT_GET);
-  if (sy_MAPSTRING_PUTSTR && NULL == /*_.VALDATA___V2950*/ curfptr[2949])
-  /*_.VALDATA___V2950*/ curfptr[2949] = (void*) sy_MAPSTRING_PUTSTR; }
+  if (sy_MAPSTRING_PUTSTR && NULL == /*_.VALDATA___V2942*/ curfptr[2941])
+  /*_.VALDATA___V2942*/ curfptr[2941] = (void*) sy_MAPSTRING_PUTSTR; }
  
  /*getnamedsym:KEYSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_KEYSTR = meltgc_named_symbol("KEYSTR", MELT_GET);
-  if (sy_KEYSTR && NULL == /*_.VALDATA___V2956*/ curfptr[2955])
-  /*_.VALDATA___V2956*/ curfptr[2955] = (void*) sy_KEYSTR; }
+  if (sy_KEYSTR && NULL == /*_.VALDATA___V2948*/ curfptr[2947])
+  /*_.VALDATA___V2948*/ curfptr[2947] = (void*) sy_KEYSTR; }
  
  /*getnamedsym:MAPSTRING_GETSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_GETSTR = meltgc_named_symbol("MAPSTRING_GETSTR", MELT_GET);
-  if (sy_MAPSTRING_GETSTR && NULL == /*_.VALDATA___V2965*/ curfptr[2964])
-  /*_.VALDATA___V2965*/ curfptr[2964] = (void*) sy_MAPSTRING_GETSTR; }
+  if (sy_MAPSTRING_GETSTR && NULL == /*_.VALDATA___V2957*/ curfptr[2956])
+  /*_.VALDATA___V2957*/ curfptr[2956] = (void*) sy_MAPSTRING_GETSTR; }
  
  /*getnamedsym:MAPSTRING_RAWREMOVE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_RAWREMOVE = meltgc_named_symbol("MAPSTRING_RAWREMOVE", MELT_GET);
-  if (sy_MAPSTRING_RAWREMOVE && NULL == /*_.VALDATA___V2976*/ curfptr[2975])
-  /*_.VALDATA___V2976*/ curfptr[2975] = (void*) sy_MAPSTRING_RAWREMOVE; }
+  if (sy_MAPSTRING_RAWREMOVE && NULL == /*_.VALDATA___V2968*/ curfptr[2967])
+  /*_.VALDATA___V2968*/ curfptr[2967] = (void*) sy_MAPSTRING_RAWREMOVE; }
  
  /*getnamedsym:MAPSTRING_REMOVESTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_REMOVESTR = meltgc_named_symbol("MAPSTRING_REMOVESTR", MELT_GET);
-  if (sy_MAPSTRING_REMOVESTR && NULL == /*_.VALDATA___V2987*/ curfptr[2986])
-  /*_.VALDATA___V2987*/ curfptr[2986] = (void*) sy_MAPSTRING_REMOVESTR; }
+  if (sy_MAPSTRING_REMOVESTR && NULL == /*_.VALDATA___V2979*/ curfptr[2978])
+  /*_.VALDATA___V2979*/ curfptr[2978] = (void*) sy_MAPSTRING_REMOVESTR; }
  
  /*getnamedsym:MAPSTRING_NTH_ATTRSTR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_NTH_ATTRSTR = meltgc_named_symbol("MAPSTRING_NTH_ATTRSTR", MELT_GET);
-  if (sy_MAPSTRING_NTH_ATTRSTR && NULL == /*_.VALDATA___V2998*/ curfptr[2997])
-  /*_.VALDATA___V2998*/ curfptr[2997] = (void*) sy_MAPSTRING_NTH_ATTRSTR; }
+  if (sy_MAPSTRING_NTH_ATTRSTR && NULL == /*_.VALDATA___V2990*/ curfptr[2989])
+  /*_.VALDATA___V2990*/ curfptr[2989] = (void*) sy_MAPSTRING_NTH_ATTRSTR; }
  
  /*getnamedsym:SDICR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_SDICR = meltgc_named_symbol("SDICR", MELT_GET);
-  if (sy_SDICR && NULL == /*_.VALDATA___V3004*/ curfptr[3003])
-  /*_.VALDATA___V3004*/ curfptr[3003] = (void*) sy_SDICR; }
+  if (sy_SDICR && NULL == /*_.VALDATA___V2996*/ curfptr[2995])
+  /*_.VALDATA___V2996*/ curfptr[2995] = (void*) sy_SDICR; }
  
  /*getnamedsym:MAPSTRING_NTH_VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_NTH_VAL = meltgc_named_symbol("MAPSTRING_NTH_VAL", MELT_GET);
-  if (sy_MAPSTRING_NTH_VAL && NULL == /*_.VALDATA___V3013*/ curfptr[3012])
-  /*_.VALDATA___V3013*/ curfptr[3012] = (void*) sy_MAPSTRING_NTH_VAL; }
+  if (sy_MAPSTRING_NTH_VAL && NULL == /*_.VALDATA___V3005*/ curfptr[3004])
+  /*_.VALDATA___V3005*/ curfptr[3004] = (void*) sy_MAPSTRING_NTH_VAL; }
  
  /*getnamedsym:STRMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_STRMAP = meltgc_named_symbol("STRMAP", MELT_GET);
-  if (sy_STRMAP && NULL == /*_.VALDATA___V3027*/ curfptr[3026])
-  /*_.VALDATA___V3027*/ curfptr[3026] = (void*) sy_STRMAP; }
+  if (sy_STRMAP && NULL == /*_.VALDATA___V3019*/ curfptr[3018])
+  /*_.VALDATA___V3019*/ curfptr[3018] = (void*) sy_STRMAP; }
  
  /*getnamedsym:EACHSTRMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EACHSTRMAP = meltgc_named_symbol("EACHSTRMAP", MELT_GET);
-  if (sy_EACHSTRMAP && NULL == /*_.VALDATA___V3030*/ curfptr[3029])
-  /*_.VALDATA___V3030*/ curfptr[3029] = (void*) sy_EACHSTRMAP; }
+  if (sy_EACHSTRMAP && NULL == /*_.VALDATA___V3022*/ curfptr[3021])
+  /*_.VALDATA___V3022*/ curfptr[3021] = (void*) sy_EACHSTRMAP; }
  
  /*getnamedsym:IS_ROUTINE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_ROUTINE = meltgc_named_symbol("IS_ROUTINE", MELT_GET);
-  if (sy_IS_ROUTINE && NULL == /*_.VALDATA___V3081*/ curfptr[3080])
-  /*_.VALDATA___V3081*/ curfptr[3080] = (void*) sy_IS_ROUTINE; }
+  if (sy_IS_ROUTINE && NULL == /*_.VALDATA___V3073*/ curfptr[3072])
+  /*_.VALDATA___V3073*/ curfptr[3072] = (void*) sy_IS_ROUTINE; }
  
  /*getnamedsym:ROU*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ROU = meltgc_named_symbol("ROU", MELT_GET);
-  if (sy_ROU && NULL == /*_.VALDATA___V3086*/ curfptr[3085])
-  /*_.VALDATA___V3086*/ curfptr[3085] = (void*) sy_ROU; }
+  if (sy_ROU && NULL == /*_.VALDATA___V3078*/ curfptr[3077])
+  /*_.VALDATA___V3078*/ curfptr[3077] = (void*) sy_ROU; }
  
  /*getnamedsym:ROUTINE_DESCR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ROUTINE_DESCR = meltgc_named_symbol("ROUTINE_DESCR", MELT_GET);
-  if (sy_ROUTINE_DESCR && NULL == /*_.VALDATA___V3092*/ curfptr[3091])
-  /*_.VALDATA___V3092*/ curfptr[3091] = (void*) sy_ROUTINE_DESCR; }
+  if (sy_ROUTINE_DESCR && NULL == /*_.VALDATA___V3084*/ curfptr[3083])
+  /*_.VALDATA___V3084*/ curfptr[3083] = (void*) sy_ROUTINE_DESCR; }
  
  /*getnamedsym:ROUTINE_SIZE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ROUTINE_SIZE = meltgc_named_symbol("ROUTINE_SIZE", MELT_GET);
-  if (sy_ROUTINE_SIZE && NULL == /*_.VALDATA___V3101*/ curfptr[3100])
-  /*_.VALDATA___V3101*/ curfptr[3100] = (void*) sy_ROUTINE_SIZE; }
+  if (sy_ROUTINE_SIZE && NULL == /*_.VALDATA___V3093*/ curfptr[3092])
+  /*_.VALDATA___V3093*/ curfptr[3092] = (void*) sy_ROUTINE_SIZE; }
  
  /*getnamedsym:ROUTINE_NTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ROUTINE_NTH = meltgc_named_symbol("ROUTINE_NTH", MELT_GET);
-  if (sy_ROUTINE_NTH && NULL == /*_.VALDATA___V3110*/ curfptr[3109])
-  /*_.VALDATA___V3110*/ curfptr[3109] = (void*) sy_ROUTINE_NTH; }
+  if (sy_ROUTINE_NTH && NULL == /*_.VALDATA___V3102*/ curfptr[3101])
+  /*_.VALDATA___V3102*/ curfptr[3101] = (void*) sy_ROUTINE_NTH; }
  
  /*getnamedsym:IS_CLOSURE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_CLOSURE = meltgc_named_symbol("IS_CLOSURE", MELT_GET);
-  if (sy_IS_CLOSURE && NULL == /*_.VALDATA___V3121*/ curfptr[3120])
-  /*_.VALDATA___V3121*/ curfptr[3120] = (void*) sy_IS_CLOSURE; }
+  if (sy_IS_CLOSURE && NULL == /*_.VALDATA___V3113*/ curfptr[3112])
+  /*_.VALDATA___V3113*/ curfptr[3112] = (void*) sy_IS_CLOSURE; }
  
  /*getnamedsym:CLO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLO = meltgc_named_symbol("CLO", MELT_GET);
-  if (sy_CLO && NULL == /*_.VALDATA___V3126*/ curfptr[3125])
-  /*_.VALDATA___V3126*/ curfptr[3125] = (void*) sy_CLO; }
+  if (sy_CLO && NULL == /*_.VALDATA___V3118*/ curfptr[3117])
+  /*_.VALDATA___V3118*/ curfptr[3117] = (void*) sy_CLO; }
  
  /*getnamedsym:CLOSURE_SIZE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLOSURE_SIZE = meltgc_named_symbol("CLOSURE_SIZE", MELT_GET);
-  if (sy_CLOSURE_SIZE && NULL == /*_.VALDATA___V3132*/ curfptr[3131])
-  /*_.VALDATA___V3132*/ curfptr[3131] = (void*) sy_CLOSURE_SIZE; }
+  if (sy_CLOSURE_SIZE && NULL == /*_.VALDATA___V3124*/ curfptr[3123])
+  /*_.VALDATA___V3124*/ curfptr[3123] = (void*) sy_CLOSURE_SIZE; }
  
  /*getnamedsym:CLOSURE_ROUTINE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLOSURE_ROUTINE = meltgc_named_symbol("CLOSURE_ROUTINE", MELT_GET);
-  if (sy_CLOSURE_ROUTINE && NULL == /*_.VALDATA___V3141*/ curfptr[3140])
-  /*_.VALDATA___V3141*/ curfptr[3140] = (void*) sy_CLOSURE_ROUTINE; }
+  if (sy_CLOSURE_ROUTINE && NULL == /*_.VALDATA___V3133*/ curfptr[3132])
+  /*_.VALDATA___V3133*/ curfptr[3132] = (void*) sy_CLOSURE_ROUTINE; }
  
  /*getnamedsym:CLOSURE_NTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLOSURE_NTH = meltgc_named_symbol("CLOSURE_NTH", MELT_GET);
-  if (sy_CLOSURE_NTH && NULL == /*_.VALDATA___V3150*/ curfptr[3149])
-  /*_.VALDATA___V3150*/ curfptr[3149] = (void*) sy_CLOSURE_NTH; }
+  if (sy_CLOSURE_NTH && NULL == /*_.VALDATA___V3142*/ curfptr[3141])
+  /*_.VALDATA___V3142*/ curfptr[3141] = (void*) sy_CLOSURE_NTH; }
  
  /*getnamedsym:IS_INTEGERBOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_INTEGERBOX = meltgc_named_symbol("IS_INTEGERBOX", MELT_GET);
-  if (sy_IS_INTEGERBOX && NULL == /*_.VALDATA___V3161*/ curfptr[3160])
-  /*_.VALDATA___V3161*/ curfptr[3160] = (void*) sy_IS_INTEGERBOX; }
+  if (sy_IS_INTEGERBOX && NULL == /*_.VALDATA___V3153*/ curfptr[3152])
+  /*_.VALDATA___V3153*/ curfptr[3152] = (void*) sy_IS_INTEGERBOX; }
  
  /*getnamedsym:IB*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IB = meltgc_named_symbol("IB", MELT_GET);
-  if (sy_IB && NULL == /*_.VALDATA___V3166*/ curfptr[3165])
-  /*_.VALDATA___V3166*/ curfptr[3165] = (void*) sy_IB; }
+  if (sy_IB && NULL == /*_.VALDATA___V3158*/ curfptr[3157])
+  /*_.VALDATA___V3158*/ curfptr[3157] = (void*) sy_IB; }
  
  /*getnamedsym:MAKE_INTEGERBOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_INTEGERBOX = meltgc_named_symbol("MAKE_INTEGERBOX", MELT_GET);
-  if (sy_MAKE_INTEGERBOX && NULL == /*_.VALDATA___V3172*/ curfptr[3171])
-  /*_.VALDATA___V3172*/ curfptr[3171] = (void*) sy_MAKE_INTEGERBOX; }
+  if (sy_MAKE_INTEGERBOX && NULL == /*_.VALDATA___V3164*/ curfptr[3163])
+  /*_.VALDATA___V3164*/ curfptr[3163] = (void*) sy_MAKE_INTEGERBOX; }
  
  /*getnamedsym:BX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_BX = meltgc_named_symbol("BX", MELT_GET);
-  if (sy_BX && NULL == /*_.VALDATA___V3187*/ curfptr[3186])
-  /*_.VALDATA___V3187*/ curfptr[3186] = (void*) sy_BX; }
+  if (sy_BX && NULL == /*_.VALDATA___V3179*/ curfptr[3178])
+  /*_.VALDATA___V3179*/ curfptr[3178] = (void*) sy_BX; }
  
  /*getnamedsym:ICT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ICT = meltgc_named_symbol("ICT", MELT_GET);
-  if (sy_ICT && NULL == /*_.VALDATA___V3190*/ curfptr[3189])
-  /*_.VALDATA___V3190*/ curfptr[3189] = (void*) sy_ICT; }
+  if (sy_ICT && NULL == /*_.VALDATA___V3182*/ curfptr[3181])
+  /*_.VALDATA___V3182*/ curfptr[3181] = (void*) sy_ICT; }
  
  /*getnamedsym:IBOXOF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IBOXOF = meltgc_named_symbol("IBOXOF", MELT_GET);
-  if (sy_IBOXOF && NULL == /*_.VALDATA___V3193*/ curfptr[3192])
-  /*_.VALDATA___V3193*/ curfptr[3192] = (void*) sy_IBOXOF; }
+  if (sy_IBOXOF && NULL == /*_.VALDATA___V3185*/ curfptr[3184])
+  /*_.VALDATA___V3185*/ curfptr[3184] = (void*) sy_IBOXOF; }
  
  /*getnamedsym:IS_BOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_BOX = meltgc_named_symbol("IS_BOX", MELT_GET);
-  if (sy_IS_BOX && NULL == /*_.VALDATA___V3205*/ curfptr[3204])
-  /*_.VALDATA___V3205*/ curfptr[3204] = (void*) sy_IS_BOX; }
+  if (sy_IS_BOX && NULL == /*_.VALDATA___V3197*/ curfptr[3196])
+  /*_.VALDATA___V3197*/ curfptr[3196] = (void*) sy_IS_BOX; }
  
  /*getnamedsym:BOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_BOX = meltgc_named_symbol("BOX", MELT_GET);
-  if (sy_BOX && NULL == /*_.VALDATA___V3210*/ curfptr[3209])
-  /*_.VALDATA___V3210*/ curfptr[3209] = (void*) sy_BOX; }
+  if (sy_BOX && NULL == /*_.VALDATA___V3202*/ curfptr[3201])
+  /*_.VALDATA___V3202*/ curfptr[3201] = (void*) sy_BOX; }
  
  /*getnamedsym:BOX_CONTENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_BOX_CONTENT = meltgc_named_symbol("BOX_CONTENT", MELT_GET);
-  if (sy_BOX_CONTENT && NULL == /*_.VALDATA___V3216*/ curfptr[3215])
-  /*_.VALDATA___V3216*/ curfptr[3215] = (void*) sy_BOX_CONTENT; }
+  if (sy_BOX_CONTENT && NULL == /*_.VALDATA___V3208*/ curfptr[3207])
+  /*_.VALDATA___V3208*/ curfptr[3207] = (void*) sy_BOX_CONTENT; }
  
  /*getnamedsym:BOX_PUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_BOX_PUT = meltgc_named_symbol("BOX_PUT", MELT_GET);
-  if (sy_BOX_PUT && NULL == /*_.VALDATA___V3225*/ curfptr[3224])
-  /*_.VALDATA___V3225*/ curfptr[3224] = (void*) sy_BOX_PUT; }
+  if (sy_BOX_PUT && NULL == /*_.VALDATA___V3217*/ curfptr[3216])
+  /*_.VALDATA___V3217*/ curfptr[3216] = (void*) sy_BOX_PUT; }
  
  /*getnamedsym:MAKE_BOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_BOX = meltgc_named_symbol("MAKE_BOX", MELT_GET);
-  if (sy_MAKE_BOX && NULL == /*_.VALDATA___V3236*/ curfptr[3235])
-  /*_.VALDATA___V3236*/ curfptr[3235] = (void*) sy_MAKE_BOX; }
+  if (sy_MAKE_BOX && NULL == /*_.VALDATA___V3228*/ curfptr[3227])
+  /*_.VALDATA___V3228*/ curfptr[3227] = (void*) sy_MAKE_BOX; }
  
  /*getnamedsym:VALB*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_VALB = meltgc_named_symbol("VALB", MELT_GET);
-  if (sy_VALB && NULL == /*_.VALDATA___V3242*/ curfptr[3241])
-  /*_.VALDATA___V3242*/ curfptr[3241] = (void*) sy_VALB; }
+  if (sy_VALB && NULL == /*_.VALDATA___V3234*/ curfptr[3233])
+  /*_.VALDATA___V3234*/ curfptr[3233] = (void*) sy_VALB; }
  
  /*getnamedsym:IS_LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_LIST = meltgc_named_symbol("IS_LIST", MELT_GET);
-  if (sy_IS_LIST && NULL == /*_.VALDATA___V3249*/ curfptr[3248])
-  /*_.VALDATA___V3249*/ curfptr[3248] = (void*) sy_IS_LIST; }
+  if (sy_IS_LIST && NULL == /*_.VALDATA___V3241*/ curfptr[3240])
+  /*_.VALDATA___V3241*/ curfptr[3240] = (void*) sy_IS_LIST; }
  
  /*getnamedsym:LI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LI = meltgc_named_symbol("LI", MELT_GET);
-  if (sy_LI && NULL == /*_.VALDATA___V3254*/ curfptr[3253])
-  /*_.VALDATA___V3254*/ curfptr[3253] = (void*) sy_LI; }
+  if (sy_LI && NULL == /*_.VALDATA___V3246*/ curfptr[3245])
+  /*_.VALDATA___V3246*/ curfptr[3245] = (void*) sy_LI; }
  
  /*getnamedsym:IS_LIST_OR_NULL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_LIST_OR_NULL = meltgc_named_symbol("IS_LIST_OR_NULL", MELT_GET);
-  if (sy_IS_LIST_OR_NULL && NULL == /*_.VALDATA___V3260*/ curfptr[3259])
-  /*_.VALDATA___V3260*/ curfptr[3259] = (void*) sy_IS_LIST_OR_NULL; }
+  if (sy_IS_LIST_OR_NULL && NULL == /*_.VALDATA___V3252*/ curfptr[3251])
+  /*_.VALDATA___V3252*/ curfptr[3251] = (void*) sy_IS_LIST_OR_NULL; }
  
  /*getnamedsym:LIST_FIRST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_FIRST = meltgc_named_symbol("LIST_FIRST", MELT_GET);
-  if (sy_LIST_FIRST && NULL == /*_.VALDATA___V3270*/ curfptr[3269])
-  /*_.VALDATA___V3270*/ curfptr[3269] = (void*) sy_LIST_FIRST; }
+  if (sy_LIST_FIRST && NULL == /*_.VALDATA___V3262*/ curfptr[3261])
+  /*_.VALDATA___V3262*/ curfptr[3261] = (void*) sy_LIST_FIRST; }
  
  /*getnamedsym:LIST_LAST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_LAST = meltgc_named_symbol("LIST_LAST", MELT_GET);
-  if (sy_LIST_LAST && NULL == /*_.VALDATA___V3279*/ curfptr[3278])
-  /*_.VALDATA___V3279*/ curfptr[3278] = (void*) sy_LIST_LAST; }
+  if (sy_LIST_LAST && NULL == /*_.VALDATA___V3271*/ curfptr[3270])
+  /*_.VALDATA___V3271*/ curfptr[3270] = (void*) sy_LIST_LAST; }
  
  /*getnamedsym:LIST_LENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_LENGTH = meltgc_named_symbol("LIST_LENGTH", MELT_GET);
-  if (sy_LIST_LENGTH && NULL == /*_.VALDATA___V3288*/ curfptr[3287])
-  /*_.VALDATA___V3288*/ curfptr[3287] = (void*) sy_LIST_LENGTH; }
+  if (sy_LIST_LENGTH && NULL == /*_.VALDATA___V3280*/ curfptr[3279])
+  /*_.VALDATA___V3280*/ curfptr[3279] = (void*) sy_LIST_LENGTH; }
  
  /*getnamedsym:LIST_APPEND*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_APPEND = meltgc_named_symbol("LIST_APPEND", MELT_GET);
-  if (sy_LIST_APPEND && NULL == /*_.VALDATA___V3297*/ curfptr[3296])
-  /*_.VALDATA___V3297*/ curfptr[3296] = (void*) sy_LIST_APPEND; }
+  if (sy_LIST_APPEND && NULL == /*_.VALDATA___V3289*/ curfptr[3288])
+  /*_.VALDATA___V3289*/ curfptr[3288] = (void*) sy_LIST_APPEND; }
  
  /*getnamedsym:EL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EL = meltgc_named_symbol("EL", MELT_GET);
-  if (sy_EL && NULL == /*_.VALDATA___V3303*/ curfptr[3302])
-  /*_.VALDATA___V3303*/ curfptr[3302] = (void*) sy_EL; }
+  if (sy_EL && NULL == /*_.VALDATA___V3295*/ curfptr[3294])
+  /*_.VALDATA___V3295*/ curfptr[3294] = (void*) sy_EL; }
  
  /*getnamedsym:LIST_PREPEND*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_PREPEND = meltgc_named_symbol("LIST_PREPEND", MELT_GET);
-  if (sy_LIST_PREPEND && NULL == /*_.VALDATA___V3310*/ curfptr[3309])
-  /*_.VALDATA___V3310*/ curfptr[3309] = (void*) sy_LIST_PREPEND; }
+  if (sy_LIST_PREPEND && NULL == /*_.VALDATA___V3302*/ curfptr[3301])
+  /*_.VALDATA___V3302*/ curfptr[3301] = (void*) sy_LIST_PREPEND; }
  
  /*getnamedsym:LIST_POPFIRST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_POPFIRST = meltgc_named_symbol("LIST_POPFIRST", MELT_GET);
-  if (sy_LIST_POPFIRST && NULL == /*_.VALDATA___V3321*/ curfptr[3320])
-  /*_.VALDATA___V3321*/ curfptr[3320] = (void*) sy_LIST_POPFIRST; }
+  if (sy_LIST_POPFIRST && NULL == /*_.VALDATA___V3313*/ curfptr[3312])
+  /*_.VALDATA___V3313*/ curfptr[3312] = (void*) sy_LIST_POPFIRST; }
  
  /*getnamedsym:MAKE_LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_LIST = meltgc_named_symbol("MAKE_LIST", MELT_GET);
-  if (sy_MAKE_LIST && NULL == /*_.VALDATA___V3330*/ curfptr[3329])
-  /*_.VALDATA___V3330*/ curfptr[3329] = (void*) sy_MAKE_LIST; }
+  if (sy_MAKE_LIST && NULL == /*_.VALDATA___V3322*/ curfptr[3321])
+  /*_.VALDATA___V3322*/ curfptr[3321] = (void*) sy_MAKE_LIST; }
  
  /*getnamedsym:IS_PAIR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_PAIR = meltgc_named_symbol("IS_PAIR", MELT_GET);
-  if (sy_IS_PAIR && NULL == /*_.VALDATA___V3339*/ curfptr[3338])
-  /*_.VALDATA___V3339*/ curfptr[3338] = (void*) sy_IS_PAIR; }
+  if (sy_IS_PAIR && NULL == /*_.VALDATA___V3331*/ curfptr[3330])
+  /*_.VALDATA___V3331*/ curfptr[3330] = (void*) sy_IS_PAIR; }
  
  /*getnamedsym:PA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PA = meltgc_named_symbol("PA", MELT_GET);
-  if (sy_PA && NULL == /*_.VALDATA___V3344*/ curfptr[3343])
-  /*_.VALDATA___V3344*/ curfptr[3343] = (void*) sy_PA; }
+  if (sy_PA && NULL == /*_.VALDATA___V3336*/ curfptr[3335])
+  /*_.VALDATA___V3336*/ curfptr[3335] = (void*) sy_PA; }
  
  /*getnamedsym:PAIR_HEAD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PAIR_HEAD = meltgc_named_symbol("PAIR_HEAD", MELT_GET);
-  if (sy_PAIR_HEAD && NULL == /*_.VALDATA___V3350*/ curfptr[3349])
-  /*_.VALDATA___V3350*/ curfptr[3349] = (void*) sy_PAIR_HEAD; }
+  if (sy_PAIR_HEAD && NULL == /*_.VALDATA___V3342*/ curfptr[3341])
+  /*_.VALDATA___V3342*/ curfptr[3341] = (void*) sy_PAIR_HEAD; }
  
  /*getnamedsym:PAIR_TAIL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PAIR_TAIL = meltgc_named_symbol("PAIR_TAIL", MELT_GET);
-  if (sy_PAIR_TAIL && NULL == /*_.VALDATA___V3359*/ curfptr[3358])
-  /*_.VALDATA___V3359*/ curfptr[3358] = (void*) sy_PAIR_TAIL; }
+  if (sy_PAIR_TAIL && NULL == /*_.VALDATA___V3351*/ curfptr[3350])
+  /*_.VALDATA___V3351*/ curfptr[3350] = (void*) sy_PAIR_TAIL; }
  
  /*getnamedsym:PAIR_SET_HEAD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PAIR_SET_HEAD = meltgc_named_symbol("PAIR_SET_HEAD", MELT_GET);
-  if (sy_PAIR_SET_HEAD && NULL == /*_.VALDATA___V3368*/ curfptr[3367])
-  /*_.VALDATA___V3368*/ curfptr[3367] = (void*) sy_PAIR_SET_HEAD; }
+  if (sy_PAIR_SET_HEAD && NULL == /*_.VALDATA___V3360*/ curfptr[3359])
+  /*_.VALDATA___V3360*/ curfptr[3359] = (void*) sy_PAIR_SET_HEAD; }
  
  /*getnamedsym:HD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_HD = meltgc_named_symbol("HD", MELT_GET);
-  if (sy_HD && NULL == /*_.VALDATA___V3374*/ curfptr[3373])
-  /*_.VALDATA___V3374*/ curfptr[3373] = (void*) sy_HD; }
+  if (sy_HD && NULL == /*_.VALDATA___V3366*/ curfptr[3365])
+  /*_.VALDATA___V3366*/ curfptr[3365] = (void*) sy_HD; }
  
  /*getnamedsym:PAIR_LISTLENGTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PAIR_LISTLENGTH = meltgc_named_symbol("PAIR_LISTLENGTH", MELT_GET);
-  if (sy_PAIR_LISTLENGTH && NULL == /*_.VALDATA___V3381*/ curfptr[3380])
-  /*_.VALDATA___V3381*/ curfptr[3380] = (void*) sy_PAIR_LISTLENGTH; }
+  if (sy_PAIR_LISTLENGTH && NULL == /*_.VALDATA___V3373*/ curfptr[3372])
+  /*_.VALDATA___V3373*/ curfptr[3372] = (void*) sy_PAIR_LISTLENGTH; }
  
  /*getnamedsym:MAKE_PAIR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_PAIR = meltgc_named_symbol("MAKE_PAIR", MELT_GET);
-  if (sy_MAKE_PAIR && NULL == /*_.VALDATA___V3390*/ curfptr[3389])
-  /*_.VALDATA___V3390*/ curfptr[3389] = (void*) sy_MAKE_PAIR; }
+  if (sy_MAKE_PAIR && NULL == /*_.VALDATA___V3382*/ curfptr[3381])
+  /*_.VALDATA___V3382*/ curfptr[3381] = (void*) sy_MAKE_PAIR; }
  
  /*getnamedsym:TL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TL = meltgc_named_symbol("TL", MELT_GET);
-  if (sy_TL && NULL == /*_.VALDATA___V3397*/ curfptr[3396])
-  /*_.VALDATA___V3397*/ curfptr[3396] = (void*) sy_TL; }
+  if (sy_TL && NULL == /*_.VALDATA___V3389*/ curfptr[3388])
+  /*_.VALDATA___V3389*/ curfptr[3388] = (void*) sy_TL; }
  
  /*getnamedsym:IS_MIXINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MIXINT = meltgc_named_symbol("IS_MIXINT", MELT_GET);
-  if (sy_IS_MIXINT && NULL == /*_.VALDATA___V3405*/ curfptr[3404])
-  /*_.VALDATA___V3405*/ curfptr[3404] = (void*) sy_IS_MIXINT; }
+  if (sy_IS_MIXINT && NULL == /*_.VALDATA___V3397*/ curfptr[3396])
+  /*_.VALDATA___V3397*/ curfptr[3396] = (void*) sy_IS_MIXINT; }
  
  /*getnamedsym:MI*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MI = meltgc_named_symbol("MI", MELT_GET);
-  if (sy_MI && NULL == /*_.VALDATA___V3410*/ curfptr[3409])
-  /*_.VALDATA___V3410*/ curfptr[3409] = (void*) sy_MI; }
+  if (sy_MI && NULL == /*_.VALDATA___V3402*/ curfptr[3401])
+  /*_.VALDATA___V3402*/ curfptr[3401] = (void*) sy_MI; }
  
  /*getnamedsym:MIXINT_VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXINT_VAL = meltgc_named_symbol("MIXINT_VAL", MELT_GET);
-  if (sy_MIXINT_VAL && NULL == /*_.VALDATA___V3416*/ curfptr[3415])
-  /*_.VALDATA___V3416*/ curfptr[3415] = (void*) sy_MIXINT_VAL; }
+  if (sy_MIXINT_VAL && NULL == /*_.VALDATA___V3408*/ curfptr[3407])
+  /*_.VALDATA___V3408*/ curfptr[3407] = (void*) sy_MIXINT_VAL; }
  
  /*getnamedsym:MAKE_MIXINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_MIXINT = meltgc_named_symbol("MAKE_MIXINT", MELT_GET);
-  if (sy_MAKE_MIXINT && NULL == /*_.VALDATA___V3425*/ curfptr[3424])
-  /*_.VALDATA___V3425*/ curfptr[3424] = (void*) sy_MAKE_MIXINT; }
+  if (sy_MAKE_MIXINT && NULL == /*_.VALDATA___V3417*/ curfptr[3416])
+  /*_.VALDATA___V3417*/ curfptr[3416] = (void*) sy_MAKE_MIXINT; }
  
  /*getnamedsym:IS_MIXLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MIXLOC = meltgc_named_symbol("IS_MIXLOC", MELT_GET);
-  if (sy_IS_MIXLOC && NULL == /*_.VALDATA___V3438*/ curfptr[3437])
-  /*_.VALDATA___V3438*/ curfptr[3437] = (void*) sy_IS_MIXLOC; }
+  if (sy_IS_MIXLOC && NULL == /*_.VALDATA___V3430*/ curfptr[3429])
+  /*_.VALDATA___V3430*/ curfptr[3429] = (void*) sy_IS_MIXLOC; }
  
  /*getnamedsym:MIXLOC_VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXLOC_VAL = meltgc_named_symbol("MIXLOC_VAL", MELT_GET);
-  if (sy_MIXLOC_VAL && NULL == /*_.VALDATA___V3447*/ curfptr[3446])
-  /*_.VALDATA___V3447*/ curfptr[3446] = (void*) sy_MIXLOC_VAL; }
+  if (sy_MIXLOC_VAL && NULL == /*_.VALDATA___V3439*/ curfptr[3438])
+  /*_.VALDATA___V3439*/ curfptr[3438] = (void*) sy_MIXLOC_VAL; }
  
  /*getnamedsym:MIXLOC_LOCATION*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXLOC_LOCATION = meltgc_named_symbol("MIXLOC_LOCATION", MELT_GET);
-  if (sy_MIXLOC_LOCATION && NULL == /*_.VALDATA___V3456*/ curfptr[3455])
-  /*_.VALDATA___V3456*/ curfptr[3455] = (void*) sy_MIXLOC_LOCATION; }
+  if (sy_MIXLOC_LOCATION && NULL == /*_.VALDATA___V3448*/ curfptr[3447])
+  /*_.VALDATA___V3448*/ curfptr[3447] = (void*) sy_MIXLOC_LOCATION; }
  
  /*getnamedsym:MIXLOC_LOCLINE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXLOC_LOCLINE = meltgc_named_symbol("MIXLOC_LOCLINE", MELT_GET);
-  if (sy_MIXLOC_LOCLINE && NULL == /*_.VALDATA___V3465*/ curfptr[3464])
-  /*_.VALDATA___V3465*/ curfptr[3464] = (void*) sy_MIXLOC_LOCLINE; }
+  if (sy_MIXLOC_LOCLINE && NULL == /*_.VALDATA___V3457*/ curfptr[3456])
+  /*_.VALDATA___V3457*/ curfptr[3456] = (void*) sy_MIXLOC_LOCLINE; }
  
  /*getnamedsym:MIXLOC_LOCFILE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXLOC_LOCFILE = meltgc_named_symbol("MIXLOC_LOCFILE", MELT_GET);
-  if (sy_MIXLOC_LOCFILE && NULL == /*_.VALDATA___V3474*/ curfptr[3473])
-  /*_.VALDATA___V3474*/ curfptr[3473] = (void*) sy_MIXLOC_LOCFILE; }
+  if (sy_MIXLOC_LOCFILE && NULL == /*_.VALDATA___V3466*/ curfptr[3465])
+  /*_.VALDATA___V3466*/ curfptr[3465] = (void*) sy_MIXLOC_LOCFILE; }
  
  /*getnamedsym:MAKE_MIXLOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKE_MIXLOC = meltgc_named_symbol("MAKE_MIXLOC", MELT_GET);
-  if (sy_MAKE_MIXLOC && NULL == /*_.VALDATA___V3483*/ curfptr[3482])
-  /*_.VALDATA___V3483*/ curfptr[3482] = (void*) sy_MAKE_MIXLOC; }
+  if (sy_MAKE_MIXLOC && NULL == /*_.VALDATA___V3475*/ curfptr[3474])
+  /*_.VALDATA___V3475*/ curfptr[3474] = (void*) sy_MAKE_MIXLOC; }
  
  /*getnamedsym:LOC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LOC = meltgc_named_symbol("LOC", MELT_GET);
-  if (sy_LOC && NULL == /*_.VALDATA___V3491*/ curfptr[3490])
-  /*_.VALDATA___V3491*/ curfptr[3490] = (void*) sy_LOC; }
+  if (sy_LOC && NULL == /*_.VALDATA___V3483*/ curfptr[3482])
+  /*_.VALDATA___V3483*/ curfptr[3482] = (void*) sy_LOC; }
  
  /*getnamedsym:IS_MIXBIGINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_IS_MIXBIGINT = meltgc_named_symbol("IS_MIXBIGINT", MELT_GET);
-  if (sy_IS_MIXBIGINT && NULL == /*_.VALDATA___V3500*/ curfptr[3499])
-  /*_.VALDATA___V3500*/ curfptr[3499] = (void*) sy_IS_MIXBIGINT; }
+  if (sy_IS_MIXBIGINT && NULL == /*_.VALDATA___V3492*/ curfptr[3491])
+  /*_.VALDATA___V3492*/ curfptr[3491] = (void*) sy_IS_MIXBIGINT; }
  
  /*getnamedsym:MB*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MB = meltgc_named_symbol("MB", MELT_GET);
-  if (sy_MB && NULL == /*_.VALDATA___V3505*/ curfptr[3504])
-  /*_.VALDATA___V3505*/ curfptr[3504] = (void*) sy_MB; }
+  if (sy_MB && NULL == /*_.VALDATA___V3497*/ curfptr[3496])
+  /*_.VALDATA___V3497*/ curfptr[3496] = (void*) sy_MB; }
  
  /*getnamedsym:MIXBIGINT_VAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MIXBIGINT_VAL = meltgc_named_symbol("MIXBIGINT_VAL", MELT_GET);
-  if (sy_MIXBIGINT_VAL && NULL == /*_.VALDATA___V3511*/ curfptr[3510])
-  /*_.VALDATA___V3511*/ curfptr[3510] = (void*) sy_MIXBIGINT_VAL; }
+  if (sy_MIXBIGINT_VAL && NULL == /*_.VALDATA___V3503*/ curfptr[3502])
+  /*_.VALDATA___V3503*/ curfptr[3502] = (void*) sy_MIXBIGINT_VAL; }
  
  /*getnamedsym:PPSTRBUF_MIXBIGINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PPSTRBUF_MIXBIGINT = meltgc_named_symbol("PPSTRBUF_MIXBIGINT", MELT_GET);
-  if (sy_PPSTRBUF_MIXBIGINT && NULL == /*_.VALDATA___V3520*/ curfptr[3519])
-  /*_.VALDATA___V3520*/ curfptr[3519] = (void*) sy_PPSTRBUF_MIXBIGINT; }
+  if (sy_PPSTRBUF_MIXBIGINT && NULL == /*_.VALDATA___V3512*/ curfptr[3511])
+  /*_.VALDATA___V3512*/ curfptr[3511] = (void*) sy_PPSTRBUF_MIXBIGINT; }
  
  /*getnamedsym:INDENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INDENT = meltgc_named_symbol("INDENT", MELT_GET);
-  if (sy_INDENT && NULL == /*_.VALDATA___V3526*/ curfptr[3525])
-  /*_.VALDATA___V3526*/ curfptr[3525] = (void*) sy_INDENT; }
+  if (sy_INDENT && NULL == /*_.VALDATA___V3518*/ curfptr[3517])
+  /*_.VALDATA___V3518*/ curfptr[3517] = (void*) sy_INDENT; }
  
  /*getnamedsym:READ_FILE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_READ_FILE = meltgc_named_symbol("READ_FILE", MELT_GET);
-  if (sy_READ_FILE && NULL == /*_.VALDATA___V3535*/ curfptr[3534])
-  /*_.VALDATA___V3535*/ curfptr[3534] = (void*) sy_READ_FILE; }
+  if (sy_READ_FILE && NULL == /*_.VALDATA___V3527*/ curfptr[3526])
+  /*_.VALDATA___V3527*/ curfptr[3526] = (void*) sy_READ_FILE; }
  
  /*getnamedsym:FILNAM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FILNAM = meltgc_named_symbol("FILNAM", MELT_GET);
-  if (sy_FILNAM && NULL == /*_.VALDATA___V3540*/ curfptr[3539])
-  /*_.VALDATA___V3540*/ curfptr[3539] = (void*) sy_FILNAM; }
+  if (sy_FILNAM && NULL == /*_.VALDATA___V3532*/ curfptr[3531])
+  /*_.VALDATA___V3532*/ curfptr[3531] = (void*) sy_FILNAM; }
  
  /*getnamedsym:ERROR_STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ERROR_STRV = meltgc_named_symbol("ERROR_STRV", MELT_GET);
-  if (sy_ERROR_STRV && NULL == /*_.VALDATA___V3546*/ curfptr[3545])
-  /*_.VALDATA___V3546*/ curfptr[3545] = (void*) sy_ERROR_STRV; }
+  if (sy_ERROR_STRV && NULL == /*_.VALDATA___V3538*/ curfptr[3537])
+  /*_.VALDATA___V3538*/ curfptr[3537] = (void*) sy_ERROR_STRV; }
  
  /*getnamedsym:CMSG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CMSG = meltgc_named_symbol("CMSG", MELT_GET);
-  if (sy_CMSG && NULL == /*_.VALDATA___V3552*/ curfptr[3551])
-  /*_.VALDATA___V3552*/ curfptr[3551] = (void*) sy_CMSG; }
+  if (sy_CMSG && NULL == /*_.VALDATA___V3544*/ curfptr[3543])
+  /*_.VALDATA___V3544*/ curfptr[3543] = (void*) sy_CMSG; }
  
  /*getnamedsym:ERROR_PLAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ERROR_PLAIN = meltgc_named_symbol("ERROR_PLAIN", MELT_GET);
-  if (sy_ERROR_PLAIN && NULL == /*_.VALDATA___V3561*/ curfptr[3560])
-  /*_.VALDATA___V3561*/ curfptr[3560] = (void*) sy_ERROR_PLAIN; }
+  if (sy_ERROR_PLAIN && NULL == /*_.VALDATA___V3553*/ curfptr[3552])
+  /*_.VALDATA___V3553*/ curfptr[3552] = (void*) sy_ERROR_PLAIN; }
  
  /*getnamedsym:WARNING_STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_WARNING_STRV = meltgc_named_symbol("WARNING_STRV", MELT_GET);
-  if (sy_WARNING_STRV && NULL == /*_.VALDATA___V3572*/ curfptr[3571])
-  /*_.VALDATA___V3572*/ curfptr[3571] = (void*) sy_WARNING_STRV; }
+  if (sy_WARNING_STRV && NULL == /*_.VALDATA___V3564*/ curfptr[3563])
+  /*_.VALDATA___V3564*/ curfptr[3563] = (void*) sy_WARNING_STRV; }
  
  /*getnamedsym:WARNING_PLAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_WARNING_PLAIN = meltgc_named_symbol("WARNING_PLAIN", MELT_GET);
-  if (sy_WARNING_PLAIN && NULL == /*_.VALDATA___V3585*/ curfptr[3584])
-  /*_.VALDATA___V3585*/ curfptr[3584] = (void*) sy_WARNING_PLAIN; }
+  if (sy_WARNING_PLAIN && NULL == /*_.VALDATA___V3577*/ curfptr[3576])
+  /*_.VALDATA___V3577*/ curfptr[3576] = (void*) sy_WARNING_PLAIN; }
  
  /*getnamedsym:WARNINGMSG_PLAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_WARNINGMSG_PLAIN = meltgc_named_symbol("WARNINGMSG_PLAIN", MELT_GET);
-  if (sy_WARNINGMSG_PLAIN && NULL == /*_.VALDATA___V3596*/ curfptr[3595])
-  /*_.VALDATA___V3596*/ curfptr[3595] = (void*) sy_WARNINGMSG_PLAIN; }
+  if (sy_WARNINGMSG_PLAIN && NULL == /*_.VALDATA___V3588*/ curfptr[3587])
+  /*_.VALDATA___V3588*/ curfptr[3587] = (void*) sy_WARNINGMSG_PLAIN; }
  
  /*getnamedsym:WARNINGMSG_STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_WARNINGMSG_STRV = meltgc_named_symbol("WARNINGMSG_STRV", MELT_GET);
-  if (sy_WARNINGMSG_STRV && NULL == /*_.VALDATA___V3605*/ curfptr[3604])
-  /*_.VALDATA___V3605*/ curfptr[3604] = (void*) sy_WARNINGMSG_STRV; }
+  if (sy_WARNINGMSG_STRV && NULL == /*_.VALDATA___V3597*/ curfptr[3596])
+  /*_.VALDATA___V3597*/ curfptr[3596] = (void*) sy_WARNINGMSG_STRV; }
  
  /*getnamedsym:ERRORMSG_PLAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ERRORMSG_PLAIN = meltgc_named_symbol("ERRORMSG_PLAIN", MELT_GET);
-  if (sy_ERRORMSG_PLAIN && NULL == /*_.VALDATA___V3616*/ curfptr[3615])
-  /*_.VALDATA___V3616*/ curfptr[3615] = (void*) sy_ERRORMSG_PLAIN; }
+  if (sy_ERRORMSG_PLAIN && NULL == /*_.VALDATA___V3608*/ curfptr[3607])
+  /*_.VALDATA___V3608*/ curfptr[3607] = (void*) sy_ERRORMSG_PLAIN; }
  
  /*getnamedsym:ERRORMSG_STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ERRORMSG_STRV = meltgc_named_symbol("ERRORMSG_STRV", MELT_GET);
-  if (sy_ERRORMSG_STRV && NULL == /*_.VALDATA___V3625*/ curfptr[3624])
-  /*_.VALDATA___V3625*/ curfptr[3624] = (void*) sy_ERRORMSG_STRV; }
+  if (sy_ERRORMSG_STRV && NULL == /*_.VALDATA___V3617*/ curfptr[3616])
+  /*_.VALDATA___V3617*/ curfptr[3616] = (void*) sy_ERRORMSG_STRV; }
  
  /*getnamedsym:INFORM_STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INFORM_STRV = meltgc_named_symbol("INFORM_STRV", MELT_GET);
-  if (sy_INFORM_STRV && NULL == /*_.VALDATA___V3636*/ curfptr[3635])
-  /*_.VALDATA___V3636*/ curfptr[3635] = (void*) sy_INFORM_STRV; }
+  if (sy_INFORM_STRV && NULL == /*_.VALDATA___V3628*/ curfptr[3627])
+  /*_.VALDATA___V3628*/ curfptr[3627] = (void*) sy_INFORM_STRV; }
  
  /*getnamedsym:INFORM_PLAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INFORM_PLAIN = meltgc_named_symbol("INFORM_PLAIN", MELT_GET);
-  if (sy_INFORM_PLAIN && NULL == /*_.VALDATA___V3649*/ curfptr[3648])
-  /*_.VALDATA___V3649*/ curfptr[3648] = (void*) sy_INFORM_PLAIN; }
+  if (sy_INFORM_PLAIN && NULL == /*_.VALDATA___V3641*/ curfptr[3640])
+  /*_.VALDATA___V3641*/ curfptr[3640] = (void*) sy_INFORM_PLAIN; }
  
  /*getnamedsym:INFORMSG_STRV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INFORMSG_STRV = meltgc_named_symbol("INFORMSG_STRV", MELT_GET);
-  if (sy_INFORMSG_STRV && NULL == /*_.VALDATA___V3660*/ curfptr[3659])
-  /*_.VALDATA___V3660*/ curfptr[3659] = (void*) sy_INFORMSG_STRV; }
+  if (sy_INFORMSG_STRV && NULL == /*_.VALDATA___V3652*/ curfptr[3651])
+  /*_.VALDATA___V3652*/ curfptr[3651] = (void*) sy_INFORMSG_STRV; }
  
  /*getnamedsym:INFORMSG_PLAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INFORMSG_PLAIN = meltgc_named_symbol("INFORMSG_PLAIN", MELT_GET);
-  if (sy_INFORMSG_PLAIN && NULL == /*_.VALDATA___V3671*/ curfptr[3670])
-  /*_.VALDATA___V3671*/ curfptr[3670] = (void*) sy_INFORMSG_PLAIN; }
+  if (sy_INFORMSG_PLAIN && NULL == /*_.VALDATA___V3663*/ curfptr[3662])
+  /*_.VALDATA___V3663*/ curfptr[3662] = (void*) sy_INFORMSG_PLAIN; }
  
  /*getnamedsym:INFORMSG_LONG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INFORMSG_LONG = meltgc_named_symbol("INFORMSG_LONG", MELT_GET);
-  if (sy_INFORMSG_LONG && NULL == /*_.VALDATA___V3680*/ curfptr[3679])
-  /*_.VALDATA___V3680*/ curfptr[3679] = (void*) sy_INFORMSG_LONG; }
+  if (sy_INFORMSG_LONG && NULL == /*_.VALDATA___V3672*/ curfptr[3671])
+  /*_.VALDATA___V3672*/ curfptr[3671] = (void*) sy_INFORMSG_LONG; }
  
  /*getnamedsym:DISCR_NAME_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_NAME_STRING = meltgc_named_symbol("DISCR_NAME_STRING", MELT_GET);
-  if (sy_DISCR_NAME_STRING && NULL == /*_.VALDATA___V3691*/ curfptr[3690])
-  /*_.VALDATA___V3691*/ curfptr[3690] = (void*) sy_DISCR_NAME_STRING; }
+  if (sy_DISCR_NAME_STRING && NULL == /*_.VALDATA___V3683*/ curfptr[3682])
+  /*_.VALDATA___V3683*/ curfptr[3682] = (void*) sy_DISCR_NAME_STRING; }
  
  /*getnamedsym:DISCR_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_STRING = meltgc_named_symbol("DISCR_STRING", MELT_GET);
-  if (sy_DISCR_STRING && NULL == /*_.VALDATA___V3694*/ curfptr[3693])
-  /*_.VALDATA___V3694*/ curfptr[3693] = (void*) sy_DISCR_STRING; }
+  if (sy_DISCR_STRING && NULL == /*_.VALDATA___V3686*/ curfptr[3685])
+  /*_.VALDATA___V3686*/ curfptr[3685] = (void*) sy_DISCR_STRING; }
  
  /*getnamedsym:DISCR_VERBATIM_STRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_VERBATIM_STRING = meltgc_named_symbol("DISCR_VERBATIM_STRING", MELT_GET);
-  if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V3699*/ curfptr[3698])
-  /*_.VALDATA___V3699*/ curfptr[3698] = (void*) sy_DISCR_VERBATIM_STRING; }
+  if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V3691*/ curfptr[3690])
+  /*_.VALDATA___V3691*/ curfptr[3690] = (void*) sy_DISCR_VERBATIM_STRING; }
  
  /*getnamedsym:DISCR_ANY_RECEIVER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_ANY_RECEIVER = meltgc_named_symbol("DISCR_ANY_RECEIVER", MELT_GET);
-  if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V3703*/ curfptr[3702])
-  /*_.VALDATA___V3703*/ curfptr[3702] = (void*) sy_DISCR_ANY_RECEIVER; }
+  if (sy_DISCR_ANY_RECEIVER && NULL == /*_.VALDATA___V3695*/ curfptr[3694])
+  /*_.VALDATA___V3695*/ curfptr[3694] = (void*) sy_DISCR_ANY_RECEIVER; }
  
  /*getnamedsym:DISCR_NULL_RECEIVER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_NULL_RECEIVER = meltgc_named_symbol("DISCR_NULL_RECEIVER", MELT_GET);
-  if (sy_DISCR_NULL_RECEIVER && NULL == /*_.VALDATA___V3707*/ curfptr[3706])
-  /*_.VALDATA___V3707*/ curfptr[3706] = (void*) sy_DISCR_NULL_RECEIVER; }
+  if (sy_DISCR_NULL_RECEIVER && NULL == /*_.VALDATA___V3699*/ curfptr[3698])
+  /*_.VALDATA___V3699*/ curfptr[3698] = (void*) sy_DISCR_NULL_RECEIVER; }
  
  /*getnamedsym:DISCR_STRBUF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_STRBUF = meltgc_named_symbol("DISCR_STRBUF", MELT_GET);
-  if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V3711*/ curfptr[3710])
-  /*_.VALDATA___V3711*/ curfptr[3710] = (void*) sy_DISCR_STRBUF; }
+  if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V3703*/ curfptr[3702])
+  /*_.VALDATA___V3703*/ curfptr[3702] = (void*) sy_DISCR_STRBUF; }
  
  /*getnamedsym:DISCR_INTEGER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol("DISCR_INTEGER", MELT_GET);
-  if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V3715*/ curfptr[3714])
-  /*_.VALDATA___V3715*/ curfptr[3714] = (void*) sy_DISCR_INTEGER; }
+  if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V3707*/ curfptr[3706])
+  /*_.VALDATA___V3707*/ curfptr[3706] = (void*) sy_DISCR_INTEGER; }
  
  /*getnamedsym:DISCR_CONSTANT_INTEGER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_CONSTANT_INTEGER = meltgc_named_symbol("DISCR_CONSTANT_INTEGER", MELT_GET);
-  if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V3719*/ curfptr[3718])
-  /*_.VALDATA___V3719*/ curfptr[3718] = (void*) sy_DISCR_CONSTANT_INTEGER; }
+  if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V3711*/ curfptr[3710])
+  /*_.VALDATA___V3711*/ curfptr[3710] = (void*) sy_DISCR_CONSTANT_INTEGER; }
  
  /*getnamedsym:DISCR_LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol("DISCR_LIST", MELT_GET);
-  if (sy_DISCR_LIST && NULL == /*_.VALDATA___V3723*/ curfptr[3722])
-  /*_.VALDATA___V3723*/ curfptr[3722] = (void*) sy_DISCR_LIST; }
+  if (sy_DISCR_LIST && NULL == /*_.VALDATA___V3715*/ curfptr[3714])
+  /*_.VALDATA___V3715*/ curfptr[3714] = (void*) sy_DISCR_LIST; }
  
  /*getnamedsym:DISCR_PAIR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_PAIR = meltgc_named_symbol("DISCR_PAIR", MELT_GET);
-  if (sy_DISCR_PAIR && NULL == /*_.VALDATA___V3727*/ curfptr[3726])
-  /*_.VALDATA___V3727*/ curfptr[3726] = (void*) sy_DISCR_PAIR; }
+  if (sy_DISCR_PAIR && NULL == /*_.VALDATA___V3719*/ curfptr[3718])
+  /*_.VALDATA___V3719*/ curfptr[3718] = (void*) sy_DISCR_PAIR; }
  
  /*getnamedsym:DISCR_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MULTIPLE = meltgc_named_symbol("DISCR_MULTIPLE", MELT_GET);
-  if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V3731*/ curfptr[3730])
-  /*_.VALDATA___V3731*/ curfptr[3730] = (void*) sy_DISCR_MULTIPLE; }
+  if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V3723*/ curfptr[3722])
+  /*_.VALDATA___V3723*/ curfptr[3722] = (void*) sy_DISCR_MULTIPLE; }
  
  /*getnamedsym:DISCR_FIELD_SEQUENCE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_FIELD_SEQUENCE = meltgc_named_symbol("DISCR_FIELD_SEQUENCE", MELT_GET);
-  if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V3735*/ curfptr[3734])
-  /*_.VALDATA___V3735*/ curfptr[3734] = (void*) sy_DISCR_FIELD_SEQUENCE; }
+  if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V3727*/ curfptr[3726])
+  /*_.VALDATA___V3727*/ curfptr[3726] = (void*) sy_DISCR_FIELD_SEQUENCE; }
  
  /*getnamedsym:DISCR_BOX*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_BOX = meltgc_named_symbol("DISCR_BOX", MELT_GET);
-  if (sy_DISCR_BOX && NULL == /*_.VALDATA___V3739*/ curfptr[3738])
-  /*_.VALDATA___V3739*/ curfptr[3738] = (void*) sy_DISCR_BOX; }
+  if (sy_DISCR_BOX && NULL == /*_.VALDATA___V3731*/ curfptr[3730])
+  /*_.VALDATA___V3731*/ curfptr[3730] = (void*) sy_DISCR_BOX; }
  
  /*getnamedsym:DISCR_TREE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_TREE = meltgc_named_symbol("DISCR_TREE", MELT_GET);
-  if (sy_DISCR_TREE && NULL == /*_.VALDATA___V3743*/ curfptr[3742])
-  /*_.VALDATA___V3743*/ curfptr[3742] = (void*) sy_DISCR_TREE; }
+  if (sy_DISCR_TREE && NULL == /*_.VALDATA___V3735*/ curfptr[3734])
+  /*_.VALDATA___V3735*/ curfptr[3734] = (void*) sy_DISCR_TREE; }
  
  /*getnamedsym:DISCR_GIMPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_GIMPLE = meltgc_named_symbol("DISCR_GIMPLE", MELT_GET);
-  if (sy_DISCR_GIMPLE && NULL == /*_.VALDATA___V3747*/ curfptr[3746])
-  /*_.VALDATA___V3747*/ curfptr[3746] = (void*) sy_DISCR_GIMPLE; }
+  if (sy_DISCR_GIMPLE && NULL == /*_.VALDATA___V3739*/ curfptr[3738])
+  /*_.VALDATA___V3739*/ curfptr[3738] = (void*) sy_DISCR_GIMPLE; }
  
  /*getnamedsym:DISCR_GIMPLE_SEQ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_GIMPLE_SEQ = meltgc_named_symbol("DISCR_GIMPLE_SEQ", MELT_GET);
-  if (sy_DISCR_GIMPLE_SEQ && NULL == /*_.VALDATA___V3751*/ curfptr[3750])
-  /*_.VALDATA___V3751*/ curfptr[3750] = (void*) sy_DISCR_GIMPLE_SEQ; }
+  if (sy_DISCR_GIMPLE_SEQ && NULL == /*_.VALDATA___V3743*/ curfptr[3742])
+  /*_.VALDATA___V3743*/ curfptr[3742] = (void*) sy_DISCR_GIMPLE_SEQ; }
  
  /*getnamedsym:DISCR_EDGE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_EDGE = meltgc_named_symbol("DISCR_EDGE", MELT_GET);
-  if (sy_DISCR_EDGE && NULL == /*_.VALDATA___V3755*/ curfptr[3754])
-  /*_.VALDATA___V3755*/ curfptr[3754] = (void*) sy_DISCR_EDGE; }
+  if (sy_DISCR_EDGE && NULL == /*_.VALDATA___V3747*/ curfptr[3746])
+  /*_.VALDATA___V3747*/ curfptr[3746] = (void*) sy_DISCR_EDGE; }
  
  /*getnamedsym:DISCR_BASIC_BLOCK*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_BASIC_BLOCK = meltgc_named_symbol("DISCR_BASIC_BLOCK", MELT_GET);
-  if (sy_DISCR_BASIC_BLOCK && NULL == /*_.VALDATA___V3759*/ curfptr[3758])
-  /*_.VALDATA___V3759*/ curfptr[3758] = (void*) sy_DISCR_BASIC_BLOCK; }
+  if (sy_DISCR_BASIC_BLOCK && NULL == /*_.VALDATA___V3751*/ curfptr[3750])
+  /*_.VALDATA___V3751*/ curfptr[3750] = (void*) sy_DISCR_BASIC_BLOCK; }
  
  /*getnamedsym:DISCR_MAP_OBJECTS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol("DISCR_MAP_OBJECTS", MELT_GET);
-  if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V3763*/ curfptr[3762])
-  /*_.VALDATA___V3763*/ curfptr[3762] = (void*) sy_DISCR_MAP_OBJECTS; }
+  if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V3755*/ curfptr[3754])
+  /*_.VALDATA___V3755*/ curfptr[3754] = (void*) sy_DISCR_MAP_OBJECTS; }
  
  /*getnamedsym:DISCR_MAP_STRINGS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_STRINGS = meltgc_named_symbol("DISCR_MAP_STRINGS", MELT_GET);
-  if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V3767*/ curfptr[3766])
-  /*_.VALDATA___V3767*/ curfptr[3766] = (void*) sy_DISCR_MAP_STRINGS; }
+  if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V3759*/ curfptr[3758])
+  /*_.VALDATA___V3759*/ curfptr[3758] = (void*) sy_DISCR_MAP_STRINGS; }
  
  /*getnamedsym:DISCR_MAP_TREES*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_TREES = meltgc_named_symbol("DISCR_MAP_TREES", MELT_GET);
-  if (sy_DISCR_MAP_TREES && NULL == /*_.VALDATA___V3771*/ curfptr[3770])
-  /*_.VALDATA___V3771*/ curfptr[3770] = (void*) sy_DISCR_MAP_TREES; }
+  if (sy_DISCR_MAP_TREES && NULL == /*_.VALDATA___V3763*/ curfptr[3762])
+  /*_.VALDATA___V3763*/ curfptr[3762] = (void*) sy_DISCR_MAP_TREES; }
  
  /*getnamedsym:DISCR_MAP_GIMPLES*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_GIMPLES = meltgc_named_symbol("DISCR_MAP_GIMPLES", MELT_GET);
-  if (sy_DISCR_MAP_GIMPLES && NULL == /*_.VALDATA___V3775*/ curfptr[3774])
-  /*_.VALDATA___V3775*/ curfptr[3774] = (void*) sy_DISCR_MAP_GIMPLES; }
+  if (sy_DISCR_MAP_GIMPLES && NULL == /*_.VALDATA___V3767*/ curfptr[3766])
+  /*_.VALDATA___V3767*/ curfptr[3766] = (void*) sy_DISCR_MAP_GIMPLES; }
  
  /*getnamedsym:DISCR_MAP_GIMPLE_SEQS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_GIMPLE_SEQS = meltgc_named_symbol("DISCR_MAP_GIMPLE_SEQS", MELT_GET);
-  if (sy_DISCR_MAP_GIMPLE_SEQS && NULL == /*_.VALDATA___V3779*/ curfptr[3778])
-  /*_.VALDATA___V3779*/ curfptr[3778] = (void*) sy_DISCR_MAP_GIMPLE_SEQS; }
+  if (sy_DISCR_MAP_GIMPLE_SEQS && NULL == /*_.VALDATA___V3771*/ curfptr[3770])
+  /*_.VALDATA___V3771*/ curfptr[3770] = (void*) sy_DISCR_MAP_GIMPLE_SEQS; }
  
  /*getnamedsym:DISCR_MAP_EDGES*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_EDGES = meltgc_named_symbol("DISCR_MAP_EDGES", MELT_GET);
-  if (sy_DISCR_MAP_EDGES && NULL == /*_.VALDATA___V3783*/ curfptr[3782])
-  /*_.VALDATA___V3783*/ curfptr[3782] = (void*) sy_DISCR_MAP_EDGES; }
+  if (sy_DISCR_MAP_EDGES && NULL == /*_.VALDATA___V3775*/ curfptr[3774])
+  /*_.VALDATA___V3775*/ curfptr[3774] = (void*) sy_DISCR_MAP_EDGES; }
  
  /*getnamedsym:DISCR_MAP_BASIC_BLOCKS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_BASIC_BLOCKS = meltgc_named_symbol("DISCR_MAP_BASIC_BLOCKS", MELT_GET);
-  if (sy_DISCR_MAP_BASIC_BLOCKS && NULL == /*_.VALDATA___V3787*/ curfptr[3786])
-  /*_.VALDATA___V3787*/ curfptr[3786] = (void*) sy_DISCR_MAP_BASIC_BLOCKS; }
+  if (sy_DISCR_MAP_BASIC_BLOCKS && NULL == /*_.VALDATA___V3779*/ curfptr[3778])
+  /*_.VALDATA___V3779*/ curfptr[3778] = (void*) sy_DISCR_MAP_BASIC_BLOCKS; }
  
  /*getnamedsym:DISCR_PPL_CONSTRAINT_SYSTEM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_PPL_CONSTRAINT_SYSTEM = meltgc_named_symbol("DISCR_PPL_CONSTRAINT_SYSTEM", MELT_GET);
-  if (sy_DISCR_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V3791*/ curfptr[3790])
-  /*_.VALDATA___V3791*/ curfptr[3790] = (void*) sy_DISCR_PPL_CONSTRAINT_SYSTEM; }
+  if (sy_DISCR_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V3783*/ curfptr[3782])
+  /*_.VALDATA___V3783*/ curfptr[3782] = (void*) sy_DISCR_PPL_CONSTRAINT_SYSTEM; }
  
  /*getnamedsym:DISCR_PPL_POLYHEDRON*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_PPL_POLYHEDRON = meltgc_named_symbol("DISCR_PPL_POLYHEDRON", MELT_GET);
-  if (sy_DISCR_PPL_POLYHEDRON && NULL == /*_.VALDATA___V3795*/ curfptr[3794])
-  /*_.VALDATA___V3795*/ curfptr[3794] = (void*) sy_DISCR_PPL_POLYHEDRON; }
+  if (sy_DISCR_PPL_POLYHEDRON && NULL == /*_.VALDATA___V3787*/ curfptr[3786])
+  /*_.VALDATA___V3787*/ curfptr[3786] = (void*) sy_DISCR_PPL_POLYHEDRON; }
  
  /*getnamedsym:DISCR_FILE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_FILE = meltgc_named_symbol("DISCR_FILE", MELT_GET);
-  if (sy_DISCR_FILE && NULL == /*_.VALDATA___V3799*/ curfptr[3798])
-  /*_.VALDATA___V3799*/ curfptr[3798] = (void*) sy_DISCR_FILE; }
+  if (sy_DISCR_FILE && NULL == /*_.VALDATA___V3791*/ curfptr[3790])
+  /*_.VALDATA___V3791*/ curfptr[3790] = (void*) sy_DISCR_FILE; }
  
  /*getnamedsym:DISCR_RAWFILE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_RAWFILE = meltgc_named_symbol("DISCR_RAWFILE", MELT_GET);
-  if (sy_DISCR_RAWFILE && NULL == /*_.VALDATA___V3803*/ curfptr[3802])
-  /*_.VALDATA___V3803*/ curfptr[3802] = (void*) sy_DISCR_RAWFILE; }
+  if (sy_DISCR_RAWFILE && NULL == /*_.VALDATA___V3795*/ curfptr[3794])
+  /*_.VALDATA___V3795*/ curfptr[3794] = (void*) sy_DISCR_RAWFILE; }
  
  /*getnamedsym:DISCR_CLASS_SEQUENCE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_CLASS_SEQUENCE = meltgc_named_symbol("DISCR_CLASS_SEQUENCE", MELT_GET);
-  if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V3807*/ curfptr[3806])
-  /*_.VALDATA___V3807*/ curfptr[3806] = (void*) sy_DISCR_CLASS_SEQUENCE; }
+  if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V3799*/ curfptr[3798])
+  /*_.VALDATA___V3799*/ curfptr[3798] = (void*) sy_DISCR_CLASS_SEQUENCE; }
  
  /*getnamedsym:DISCR_METHOD_MAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_METHOD_MAP = meltgc_named_symbol("DISCR_METHOD_MAP", MELT_GET);
-  if (sy_DISCR_METHOD_MAP && NULL == /*_.VALDATA___V3811*/ curfptr[3810])
-  /*_.VALDATA___V3811*/ curfptr[3810] = (void*) sy_DISCR_METHOD_MAP; }
+  if (sy_DISCR_METHOD_MAP && NULL == /*_.VALDATA___V3803*/ curfptr[3802])
+  /*_.VALDATA___V3803*/ curfptr[3802] = (void*) sy_DISCR_METHOD_MAP; }
  
  /*getnamedsym:DISCR_CHARACTER_INTEGER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_CHARACTER_INTEGER = meltgc_named_symbol("DISCR_CHARACTER_INTEGER", MELT_GET);
-  if (sy_DISCR_CHARACTER_INTEGER && NULL == /*_.VALDATA___V3815*/ curfptr[3814])
-  /*_.VALDATA___V3815*/ curfptr[3814] = (void*) sy_DISCR_CHARACTER_INTEGER; }
+  if (sy_DISCR_CHARACTER_INTEGER && NULL == /*_.VALDATA___V3807*/ curfptr[3806])
+  /*_.VALDATA___V3807*/ curfptr[3806] = (void*) sy_DISCR_CHARACTER_INTEGER; }
  
  /*getnamedsym:DISCR_MIXED_INTEGER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MIXED_INTEGER = meltgc_named_symbol("DISCR_MIXED_INTEGER", MELT_GET);
-  if (sy_DISCR_MIXED_INTEGER && NULL == /*_.VALDATA___V3819*/ curfptr[3818])
-  /*_.VALDATA___V3819*/ curfptr[3818] = (void*) sy_DISCR_MIXED_INTEGER; }
+  if (sy_DISCR_MIXED_INTEGER && NULL == /*_.VALDATA___V3811*/ curfptr[3810])
+  /*_.VALDATA___V3811*/ curfptr[3810] = (void*) sy_DISCR_MIXED_INTEGER; }
  
  /*getnamedsym:DISCR_MIXED_BIGINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MIXED_BIGINT = meltgc_named_symbol("DISCR_MIXED_BIGINT", MELT_GET);
-  if (sy_DISCR_MIXED_BIGINT && NULL == /*_.VALDATA___V3823*/ curfptr[3822])
-  /*_.VALDATA___V3823*/ curfptr[3822] = (void*) sy_DISCR_MIXED_BIGINT; }
+  if (sy_DISCR_MIXED_BIGINT && NULL == /*_.VALDATA___V3815*/ curfptr[3814])
+  /*_.VALDATA___V3815*/ curfptr[3814] = (void*) sy_DISCR_MIXED_BIGINT; }
  
  /*getnamedsym:DISCR_MIXED_LOCATION*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MIXED_LOCATION = meltgc_named_symbol("DISCR_MIXED_LOCATION", MELT_GET);
-  if (sy_DISCR_MIXED_LOCATION && NULL == /*_.VALDATA___V3827*/ curfptr[3826])
-  /*_.VALDATA___V3827*/ curfptr[3826] = (void*) sy_DISCR_MIXED_LOCATION; }
+  if (sy_DISCR_MIXED_LOCATION && NULL == /*_.VALDATA___V3819*/ curfptr[3818])
+  /*_.VALDATA___V3819*/ curfptr[3818] = (void*) sy_DISCR_MIXED_LOCATION; }
  
  /*getnamedsym:DISCR_CLOSURE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_CLOSURE = meltgc_named_symbol("DISCR_CLOSURE", MELT_GET);
-  if (sy_DISCR_CLOSURE && NULL == /*_.VALDATA___V3831*/ curfptr[3830])
-  /*_.VALDATA___V3831*/ curfptr[3830] = (void*) sy_DISCR_CLOSURE; }
+  if (sy_DISCR_CLOSURE && NULL == /*_.VALDATA___V3823*/ curfptr[3822])
+  /*_.VALDATA___V3823*/ curfptr[3822] = (void*) sy_DISCR_CLOSURE; }
  
  /*getnamedsym:DISCR_ROUTINE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_ROUTINE = meltgc_named_symbol("DISCR_ROUTINE", MELT_GET);
-  if (sy_DISCR_ROUTINE && NULL == /*_.VALDATA___V3835*/ curfptr[3834])
-  /*_.VALDATA___V3835*/ curfptr[3834] = (void*) sy_DISCR_ROUTINE; }
+  if (sy_DISCR_ROUTINE && NULL == /*_.VALDATA___V3827*/ curfptr[3826])
+  /*_.VALDATA___V3827*/ curfptr[3826] = (void*) sy_DISCR_ROUTINE; }
  
  /*getnamedsym:CTYPE_VALUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_VALUE = meltgc_named_symbol("CTYPE_VALUE", MELT_GET);
-  if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V3841*/ curfptr[3840])
-  /*_.VALDATA___V3841*/ curfptr[3840] = (void*) sy_CTYPE_VALUE; }
+  if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V3833*/ curfptr[3832])
+  /*_.VALDATA___V3833*/ curfptr[3832] = (void*) sy_CTYPE_VALUE; }
  
  /*getnamedkeyw:VALUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_VALUE = meltgc_named_keyword("VALUE", MELT_GET);
-  if (kw_VALUE) /*_.VALDATA___V3845*/ curfptr[3844] = (void*) kw_VALUE; }
+  if (kw_VALUE) /*_.VALDATA___V3837*/ curfptr[3836] = (void*) kw_VALUE; }
  
  /*getnamedsym:CTYPE_LONG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_LONG = meltgc_named_symbol("CTYPE_LONG", MELT_GET);
-  if (sy_CTYPE_LONG && NULL == /*_.VALDATA___V3853*/ curfptr[3852])
-  /*_.VALDATA___V3853*/ curfptr[3852] = (void*) sy_CTYPE_LONG; }
+  if (sy_CTYPE_LONG && NULL == /*_.VALDATA___V3845*/ curfptr[3844])
+  /*_.VALDATA___V3845*/ curfptr[3844] = (void*) sy_CTYPE_LONG; }
  
  /*getnamedkeyw:LONG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_LONG = meltgc_named_keyword("LONG", MELT_GET);
-  if (kw_LONG) /*_.VALDATA___V3857*/ curfptr[3856] = (void*) kw_LONG; }
+  if (kw_LONG) /*_.VALDATA___V3849*/ curfptr[3848] = (void*) kw_LONG; }
  
  /*getnamedsym:CTYPE_TREE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_TREE = meltgc_named_symbol("CTYPE_TREE", MELT_GET);
-  if (sy_CTYPE_TREE && NULL == /*_.VALDATA___V3864*/ curfptr[3863])
-  /*_.VALDATA___V3864*/ curfptr[3863] = (void*) sy_CTYPE_TREE; }
+  if (sy_CTYPE_TREE && NULL == /*_.VALDATA___V3856*/ curfptr[3855])
+  /*_.VALDATA___V3856*/ curfptr[3855] = (void*) sy_CTYPE_TREE; }
  
  /*getnamedkeyw:TREE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_TREE = meltgc_named_keyword("TREE", MELT_GET);
-  if (kw_TREE) /*_.VALDATA___V3868*/ curfptr[3867] = (void*) kw_TREE; }
+  if (kw_TREE) /*_.VALDATA___V3860*/ curfptr[3859] = (void*) kw_TREE; }
  
  /*getnamedsym:CTYPE_GIMPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_GIMPLE = meltgc_named_symbol("CTYPE_GIMPLE", MELT_GET);
-  if (sy_CTYPE_GIMPLE && NULL == /*_.VALDATA___V3876*/ curfptr[3875])
-  /*_.VALDATA___V3876*/ curfptr[3875] = (void*) sy_CTYPE_GIMPLE; }
+  if (sy_CTYPE_GIMPLE && NULL == /*_.VALDATA___V3868*/ curfptr[3867])
+  /*_.VALDATA___V3868*/ curfptr[3867] = (void*) sy_CTYPE_GIMPLE; }
  
  /*getnamedkeyw:GIMPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_GIMPLE = meltgc_named_keyword("GIMPLE", MELT_GET);
-  if (kw_GIMPLE) /*_.VALDATA___V3880*/ curfptr[3879] = (void*) kw_GIMPLE; }
+  if (kw_GIMPLE) /*_.VALDATA___V3872*/ curfptr[3871] = (void*) kw_GIMPLE; }
  
  /*getnamedsym:CTYPE_GIMPLE_SEQ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_GIMPLE_SEQ = meltgc_named_symbol("CTYPE_GIMPLE_SEQ", MELT_GET);
-  if (sy_CTYPE_GIMPLE_SEQ && NULL == /*_.VALDATA___V3888*/ curfptr[3887])
-  /*_.VALDATA___V3888*/ curfptr[3887] = (void*) sy_CTYPE_GIMPLE_SEQ; }
+  if (sy_CTYPE_GIMPLE_SEQ && NULL == /*_.VALDATA___V3880*/ curfptr[3879])
+  /*_.VALDATA___V3880*/ curfptr[3879] = (void*) sy_CTYPE_GIMPLE_SEQ; }
  
  /*getnamedkeyw:GIMPLE_SEQ*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_GIMPLE_SEQ = meltgc_named_keyword("GIMPLE_SEQ", MELT_GET);
-  if (kw_GIMPLE_SEQ) /*_.VALDATA___V3892*/ curfptr[3891] = (void*) kw_GIMPLE_SEQ; }
+  if (kw_GIMPLE_SEQ) /*_.VALDATA___V3884*/ curfptr[3883] = (void*) kw_GIMPLE_SEQ; }
  
  /*getnamedsym:CTYPE_BASIC_BLOCK*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_BASIC_BLOCK = meltgc_named_symbol("CTYPE_BASIC_BLOCK", MELT_GET);
-  if (sy_CTYPE_BASIC_BLOCK && NULL == /*_.VALDATA___V3900*/ curfptr[3899])
-  /*_.VALDATA___V3900*/ curfptr[3899] = (void*) sy_CTYPE_BASIC_BLOCK; }
+  if (sy_CTYPE_BASIC_BLOCK && NULL == /*_.VALDATA___V3892*/ curfptr[3891])
+  /*_.VALDATA___V3892*/ curfptr[3891] = (void*) sy_CTYPE_BASIC_BLOCK; }
  
  /*getnamedkeyw:BASIC_BLOCK*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_BASIC_BLOCK = meltgc_named_keyword("BASIC_BLOCK", MELT_GET);
-  if (kw_BASIC_BLOCK) /*_.VALDATA___V3904*/ curfptr[3903] = (void*) kw_BASIC_BLOCK; }
+  if (kw_BASIC_BLOCK) /*_.VALDATA___V3896*/ curfptr[3895] = (void*) kw_BASIC_BLOCK; }
  
  /*getnamedsym:CTYPE_EDGE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_EDGE = meltgc_named_symbol("CTYPE_EDGE", MELT_GET);
-  if (sy_CTYPE_EDGE && NULL == /*_.VALDATA___V3912*/ curfptr[3911])
-  /*_.VALDATA___V3912*/ curfptr[3911] = (void*) sy_CTYPE_EDGE; }
+  if (sy_CTYPE_EDGE && NULL == /*_.VALDATA___V3904*/ curfptr[3903])
+  /*_.VALDATA___V3904*/ curfptr[3903] = (void*) sy_CTYPE_EDGE; }
  
  /*getnamedkeyw:EDGE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_EDGE = meltgc_named_keyword("EDGE", MELT_GET);
-  if (kw_EDGE) /*_.VALDATA___V3916*/ curfptr[3915] = (void*) kw_EDGE; }
+  if (kw_EDGE) /*_.VALDATA___V3908*/ curfptr[3907] = (void*) kw_EDGE; }
  
  /*getnamedsym:CTYPE_PPL_COEFFICIENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_PPL_COEFFICIENT = meltgc_named_symbol("CTYPE_PPL_COEFFICIENT", MELT_GET);
-  if (sy_CTYPE_PPL_COEFFICIENT && NULL == /*_.VALDATA___V3924*/ curfptr[3923])
-  /*_.VALDATA___V3924*/ curfptr[3923] = (void*) sy_CTYPE_PPL_COEFFICIENT; }
+  if (sy_CTYPE_PPL_COEFFICIENT && NULL == /*_.VALDATA___V3916*/ curfptr[3915])
+  /*_.VALDATA___V3916*/ curfptr[3915] = (void*) sy_CTYPE_PPL_COEFFICIENT; }
  
  /*getnamedkeyw:PPL_COEFFICIENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_PPL_COEFFICIENT = meltgc_named_keyword("PPL_COEFFICIENT", MELT_GET);
-  if (kw_PPL_COEFFICIENT) /*_.VALDATA___V3928*/ curfptr[3927] = (void*) kw_PPL_COEFFICIENT; }
+  if (kw_PPL_COEFFICIENT) /*_.VALDATA___V3920*/ curfptr[3919] = (void*) kw_PPL_COEFFICIENT; }
  
  /*getnamedsym:CTYPE_PPL_LINEAR_EXPRESSION*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_PPL_LINEAR_EXPRESSION = meltgc_named_symbol("CTYPE_PPL_LINEAR_EXPRESSION", MELT_GET);
-  if (sy_CTYPE_PPL_LINEAR_EXPRESSION && NULL == /*_.VALDATA___V3935*/ curfptr[3934])
-  /*_.VALDATA___V3935*/ curfptr[3934] = (void*) sy_CTYPE_PPL_LINEAR_EXPRESSION; }
+  if (sy_CTYPE_PPL_LINEAR_EXPRESSION && NULL == /*_.VALDATA___V3927*/ curfptr[3926])
+  /*_.VALDATA___V3927*/ curfptr[3926] = (void*) sy_CTYPE_PPL_LINEAR_EXPRESSION; }
  
  /*getnamedkeyw:PPL_LINEAR_EXPRESSION*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_PPL_LINEAR_EXPRESSION = meltgc_named_keyword("PPL_LINEAR_EXPRESSION", MELT_GET);
-  if (kw_PPL_LINEAR_EXPRESSION) /*_.VALDATA___V3939*/ curfptr[3938] = (void*) kw_PPL_LINEAR_EXPRESSION; }
+  if (kw_PPL_LINEAR_EXPRESSION) /*_.VALDATA___V3931*/ curfptr[3930] = (void*) kw_PPL_LINEAR_EXPRESSION; }
  
  /*getnamedsym:CTYPE_PPL_CONSTRAINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_PPL_CONSTRAINT = meltgc_named_symbol("CTYPE_PPL_CONSTRAINT", MELT_GET);
-  if (sy_CTYPE_PPL_CONSTRAINT && NULL == /*_.VALDATA___V3946*/ curfptr[3945])
-  /*_.VALDATA___V3946*/ curfptr[3945] = (void*) sy_CTYPE_PPL_CONSTRAINT; }
+  if (sy_CTYPE_PPL_CONSTRAINT && NULL == /*_.VALDATA___V3938*/ curfptr[3937])
+  /*_.VALDATA___V3938*/ curfptr[3937] = (void*) sy_CTYPE_PPL_CONSTRAINT; }
  
  /*getnamedkeyw:PPL_CONSTRAINT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_PPL_CONSTRAINT = meltgc_named_keyword("PPL_CONSTRAINT", MELT_GET);
-  if (kw_PPL_CONSTRAINT) /*_.VALDATA___V3950*/ curfptr[3949] = (void*) kw_PPL_CONSTRAINT; }
+  if (kw_PPL_CONSTRAINT) /*_.VALDATA___V3942*/ curfptr[3941] = (void*) kw_PPL_CONSTRAINT; }
  
  /*getnamedsym:CTYPE_PPL_CONSTRAINT_SYSTEM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_PPL_CONSTRAINT_SYSTEM = meltgc_named_symbol("CTYPE_PPL_CONSTRAINT_SYSTEM", MELT_GET);
-  if (sy_CTYPE_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V3957*/ curfptr[3956])
-  /*_.VALDATA___V3957*/ curfptr[3956] = (void*) sy_CTYPE_PPL_CONSTRAINT_SYSTEM; }
+  if (sy_CTYPE_PPL_CONSTRAINT_SYSTEM && NULL == /*_.VALDATA___V3949*/ curfptr[3948])
+  /*_.VALDATA___V3949*/ curfptr[3948] = (void*) sy_CTYPE_PPL_CONSTRAINT_SYSTEM; }
  
  /*getnamedkeyw:PPL_CONSTRAINT_SYSTEM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_PPL_CONSTRAINT_SYSTEM = meltgc_named_keyword("PPL_CONSTRAINT_SYSTEM", MELT_GET);
-  if (kw_PPL_CONSTRAINT_SYSTEM) /*_.VALDATA___V3961*/ curfptr[3960] = (void*) kw_PPL_CONSTRAINT_SYSTEM; }
+  if (kw_PPL_CONSTRAINT_SYSTEM) /*_.VALDATA___V3953*/ curfptr[3952] = (void*) kw_PPL_CONSTRAINT_SYSTEM; }
  
  /*getnamedsym:CTYPE_PPL_POLYHEDRON*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_PPL_POLYHEDRON = meltgc_named_symbol("CTYPE_PPL_POLYHEDRON", MELT_GET);
-  if (sy_CTYPE_PPL_POLYHEDRON && NULL == /*_.VALDATA___V3968*/ curfptr[3967])
-  /*_.VALDATA___V3968*/ curfptr[3967] = (void*) sy_CTYPE_PPL_POLYHEDRON; }
+  if (sy_CTYPE_PPL_POLYHEDRON && NULL == /*_.VALDATA___V3960*/ curfptr[3959])
+  /*_.VALDATA___V3960*/ curfptr[3959] = (void*) sy_CTYPE_PPL_POLYHEDRON; }
  
  /*getnamedkeyw:PPL_POLYHEDRON*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_PPL_POLYHEDRON = meltgc_named_keyword("PPL_POLYHEDRON", MELT_GET);
-  if (kw_PPL_POLYHEDRON) /*_.VALDATA___V3972*/ curfptr[3971] = (void*) kw_PPL_POLYHEDRON; }
+  if (kw_PPL_POLYHEDRON) /*_.VALDATA___V3964*/ curfptr[3963] = (void*) kw_PPL_POLYHEDRON; }
  
  /*getnamedsym:CTYPE_VOID*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_VOID = meltgc_named_symbol("CTYPE_VOID", MELT_GET);
-  if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V3979*/ curfptr[3978])
-  /*_.VALDATA___V3979*/ curfptr[3978] = (void*) sy_CTYPE_VOID; }
+  if (sy_CTYPE_VOID && NULL == /*_.VALDATA___V3971*/ curfptr[3970])
+  /*_.VALDATA___V3971*/ curfptr[3970] = (void*) sy_CTYPE_VOID; }
  
  /*getnamedkeyw:VOID*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_VOID = meltgc_named_keyword("VOID", MELT_GET);
-  if (kw_VOID) /*_.VALDATA___V3983*/ curfptr[3982] = (void*) kw_VOID; }
+  if (kw_VOID) /*_.VALDATA___V3975*/ curfptr[3974] = (void*) kw_VOID; }
  
  /*getnamedsym:CTYPE_CSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CTYPE_CSTRING = meltgc_named_symbol("CTYPE_CSTRING", MELT_GET);
-  if (sy_CTYPE_CSTRING && NULL == /*_.VALDATA___V3986*/ curfptr[3985])
-  /*_.VALDATA___V3986*/ curfptr[3985] = (void*) sy_CTYPE_CSTRING; }
+  if (sy_CTYPE_CSTRING && NULL == /*_.VALDATA___V3978*/ curfptr[3977])
+  /*_.VALDATA___V3978*/ curfptr[3977] = (void*) sy_CTYPE_CSTRING; }
  
  /*getnamedkeyw:CSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_CSTRING = meltgc_named_keyword("CSTRING", MELT_GET);
-  if (kw_CSTRING) /*_.VALDATA___V3991*/ curfptr[3990] = (void*) kw_CSTRING; }
+  if (kw_CSTRING) /*_.VALDATA___V3983*/ curfptr[3982] = (void*) kw_CSTRING; }
  
  /*getnamedsym:CONTAINER_CLONEMAPSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CONTAINER_CLONEMAPSTRING = meltgc_named_symbol("CONTAINER_CLONEMAPSTRING", MELT_GET);
-  if (sy_CONTAINER_CLONEMAPSTRING && NULL == /*_.VALDATA___V4004*/ curfptr[4003])
-  /*_.VALDATA___V4004*/ curfptr[4003] = (void*) sy_CONTAINER_CLONEMAPSTRING; }
+  if (sy_CONTAINER_CLONEMAPSTRING && NULL == /*_.VALDATA___V3996*/ curfptr[3995])
+  /*_.VALDATA___V3996*/ curfptr[3995] = (void*) sy_CONTAINER_CLONEMAPSTRING; }
  
  /*getnamedsym:CLASS_DELAYED_QUEUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_DELAYED_QUEUE = meltgc_named_symbol("CLASS_DELAYED_QUEUE", MELT_GET);
-  if (sy_CLASS_DELAYED_QUEUE && NULL == /*_.VALDATA___V4083*/ curfptr[4082])
-  /*_.VALDATA___V4083*/ curfptr[4082] = (void*) sy_CLASS_DELAYED_QUEUE; }
+  if (sy_CLASS_DELAYED_QUEUE && NULL == /*_.VALDATA___V4075*/ curfptr[4074])
+  /*_.VALDATA___V4075*/ curfptr[4074] = (void*) sy_CLASS_DELAYED_QUEUE; }
  
  /*getnamedsym:DELQU_FIRST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DELQU_FIRST = meltgc_named_symbol("DELQU_FIRST", MELT_GET);
-  if (sy_DELQU_FIRST && NULL == /*_.VALDATA___V4085*/ curfptr[4084])
-  /*_.VALDATA___V4085*/ curfptr[4084] = (void*) sy_DELQU_FIRST; }
+  if (sy_DELQU_FIRST && NULL == /*_.VALDATA___V4077*/ curfptr[4076])
+  /*_.VALDATA___V4077*/ curfptr[4076] = (void*) sy_DELQU_FIRST; }
  
  /*getnamedsym:DELQU_LAST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DELQU_LAST = meltgc_named_symbol("DELQU_LAST", MELT_GET);
-  if (sy_DELQU_LAST && NULL == /*_.VALDATA___V4087*/ curfptr[4086])
-  /*_.VALDATA___V4087*/ curfptr[4086] = (void*) sy_DELQU_LAST; }
+  if (sy_DELQU_LAST && NULL == /*_.VALDATA___V4079*/ curfptr[4078])
+  /*_.VALDATA___V4079*/ curfptr[4078] = (void*) sy_DELQU_LAST; }
  
  /*getnamedsym:DELQU_DATA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DELQU_DATA = meltgc_named_symbol("DELQU_DATA", MELT_GET);
-  if (sy_DELQU_DATA && NULL == /*_.VALDATA___V4089*/ curfptr[4088])
-  /*_.VALDATA___V4089*/ curfptr[4088] = (void*) sy_DELQU_DATA; }
+  if (sy_DELQU_DATA && NULL == /*_.VALDATA___V4081*/ curfptr[4080])
+  /*_.VALDATA___V4081*/ curfptr[4080] = (void*) sy_DELQU_DATA; }
  
  /*getnamedsym:FINAL_DELAYED_QUEUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FINAL_DELAYED_QUEUE = meltgc_named_symbol("FINAL_DELAYED_QUEUE", MELT_GET);
-  if (sy_FINAL_DELAYED_QUEUE && NULL == /*_.VALDATA___V4091*/ curfptr[4090])
-  /*_.VALDATA___V4091*/ curfptr[4090] = (void*) sy_FINAL_DELAYED_QUEUE; }
+  if (sy_FINAL_DELAYED_QUEUE && NULL == /*_.VALDATA___V4083*/ curfptr[4082])
+  /*_.VALDATA___V4083*/ curfptr[4082] = (void*) sy_FINAL_DELAYED_QUEUE; }
  
  /*getnamedsym:START_UNIT_DELAYED_QUEUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_START_UNIT_DELAYED_QUEUE = meltgc_named_symbol("START_UNIT_DELAYED_QUEUE", MELT_GET);
-  if (sy_START_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V4097*/ curfptr[4096])
-  /*_.VALDATA___V4097*/ curfptr[4096] = (void*) sy_START_UNIT_DELAYED_QUEUE; }
+  if (sy_START_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V4089*/ curfptr[4088])
+  /*_.VALDATA___V4089*/ curfptr[4088] = (void*) sy_START_UNIT_DELAYED_QUEUE; }
  
  /*getnamedsym:FINISH_UNIT_DELAYED_QUEUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FINISH_UNIT_DELAYED_QUEUE = meltgc_named_symbol("FINISH_UNIT_DELAYED_QUEUE", MELT_GET);
-  if (sy_FINISH_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V4103*/ curfptr[4102])
-  /*_.VALDATA___V4103*/ curfptr[4102] = (void*) sy_FINISH_UNIT_DELAYED_QUEUE; }
+  if (sy_FINISH_UNIT_DELAYED_QUEUE && NULL == /*_.VALDATA___V4095*/ curfptr[4094])
+  /*_.VALDATA___V4095*/ curfptr[4094] = (void*) sy_FINISH_UNIT_DELAYED_QUEUE; }
  
  /*getnamedsym:INITIAL_SYSTEM_DATA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INITIAL_SYSTEM_DATA = meltgc_named_symbol("INITIAL_SYSTEM_DATA", MELT_GET);
-  if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V4111*/ curfptr[4110])
-  /*_.VALDATA___V4111*/ curfptr[4110] = (void*) sy_INITIAL_SYSTEM_DATA; }
+  if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V4103*/ curfptr[4102])
+  /*_.VALDATA___V4103*/ curfptr[4102] = (void*) sy_INITIAL_SYSTEM_DATA; }
  
  /*getnamedsym:LIS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIS = meltgc_named_symbol("LIS", MELT_GET);
-  if (sy_LIS && NULL == /*_.VALDATA___V4124*/ curfptr[4123])
-  /*_.VALDATA___V4124*/ curfptr[4123] = (void*) sy_LIS; }
+  if (sy_LIS && NULL == /*_.VALDATA___V4116*/ curfptr[4115])
+  /*_.VALDATA___V4116*/ curfptr[4115] = (void*) sy_LIS; }
  
  /*getnamedsym:EACHLIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EACHLIST = meltgc_named_symbol("EACHLIST", MELT_GET);
-  if (sy_EACHLIST && NULL == /*_.VALDATA___V4127*/ curfptr[4126])
-  /*_.VALDATA___V4127*/ curfptr[4126] = (void*) sy_EACHLIST; }
+  if (sy_EACHLIST && NULL == /*_.VALDATA___V4119*/ curfptr[4118])
+  /*_.VALDATA___V4119*/ curfptr[4118] = (void*) sy_EACHLIST; }
  
  /*getnamedsym:CURPAIR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CURPAIR = meltgc_named_symbol("CURPAIR", MELT_GET);
-  if (sy_CURPAIR && NULL == /*_.VALDATA___V4130*/ curfptr[4129])
-  /*_.VALDATA___V4130*/ curfptr[4129] = (void*) sy_CURPAIR; }
+  if (sy_CURPAIR && NULL == /*_.VALDATA___V4122*/ curfptr[4121])
+  /*_.VALDATA___V4122*/ curfptr[4121] = (void*) sy_CURPAIR; }
  
  /*getnamedsym:CURCOMP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CURCOMP = meltgc_named_symbol("CURCOMP", MELT_GET);
-  if (sy_CURCOMP && NULL == /*_.VALDATA___V4133*/ curfptr[4132])
-  /*_.VALDATA___V4133*/ curfptr[4132] = (void*) sy_CURCOMP; }
+  if (sy_CURCOMP && NULL == /*_.VALDATA___V4125*/ curfptr[4124])
+  /*_.VALDATA___V4125*/ curfptr[4124] = (void*) sy_CURCOMP; }
  
  /*getnamedsym:EACHTUP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EACHTUP = meltgc_named_symbol("EACHTUP", MELT_GET);
-  if (sy_EACHTUP && NULL == /*_.VALDATA___V4166*/ curfptr[4165])
-  /*_.VALDATA___V4166*/ curfptr[4165] = (void*) sy_EACHTUP; }
+  if (sy_EACHTUP && NULL == /*_.VALDATA___V4158*/ curfptr[4157])
+  /*_.VALDATA___V4158*/ curfptr[4157] = (void*) sy_EACHTUP; }
  
  /*getnamedsym:COMP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_COMP = meltgc_named_symbol("COMP", MELT_GET);
-  if (sy_COMP && NULL == /*_.VALDATA___V4169*/ curfptr[4168])
-  /*_.VALDATA___V4169*/ curfptr[4168] = (void*) sy_COMP; }
+  if (sy_COMP && NULL == /*_.VALDATA___V4161*/ curfptr[4160])
+  /*_.VALDATA___V4161*/ curfptr[4160] = (void*) sy_COMP; }
  
  /*getnamedsym:EACHTUPBACK*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_EACHTUPBACK = meltgc_named_symbol("EACHTUPBACK", MELT_GET);
-  if (sy_EACHTUPBACK && NULL == /*_.VALDATA___V4194*/ curfptr[4193])
-  /*_.VALDATA___V4194*/ curfptr[4193] = (void*) sy_EACHTUPBACK; }
+  if (sy_EACHTUPBACK && NULL == /*_.VALDATA___V4186*/ curfptr[4185])
+  /*_.VALDATA___V4186*/ curfptr[4185] = (void*) sy_EACHTUPBACK; }
  
  /*getnamedsym:DBG_OUTPUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBG_OUTPUT = meltgc_named_symbol("DBG_OUTPUT", MELT_GET);
-  if (sy_DBG_OUTPUT && NULL == /*_.VALDATA___V4247*/ curfptr[4246])
-  /*_.VALDATA___V4247*/ curfptr[4246] = (void*) sy_DBG_OUTPUT; }
+  if (sy_DBG_OUTPUT && NULL == /*_.VALDATA___V4239*/ curfptr[4238])
+  /*_.VALDATA___V4239*/ curfptr[4238] = (void*) sy_DBG_OUTPUT; }
  
  /*getnamedsym:RECV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_RECV = meltgc_named_symbol("RECV", MELT_GET);
-  if (sy_RECV && NULL == /*_.VALDATA___V4249*/ curfptr[4248])
-  /*_.VALDATA___V4249*/ curfptr[4248] = (void*) sy_RECV; }
+  if (sy_RECV && NULL == /*_.VALDATA___V4241*/ curfptr[4240])
+  /*_.VALDATA___V4241*/ curfptr[4240] = (void*) sy_RECV; }
  
  /*getnamedsym:DBGINFO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBGINFO = meltgc_named_symbol("DBGINFO", MELT_GET);
-  if (sy_DBGINFO && NULL == /*_.VALDATA___V4252*/ curfptr[4251])
-  /*_.VALDATA___V4252*/ curfptr[4251] = (void*) sy_DBGINFO; }
+  if (sy_DBGINFO && NULL == /*_.VALDATA___V4244*/ curfptr[4243])
+  /*_.VALDATA___V4244*/ curfptr[4243] = (void*) sy_DBGINFO; }
  
  /*getnamedsym:DBG_OUTPUTAGAIN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBG_OUTPUTAGAIN = meltgc_named_symbol("DBG_OUTPUTAGAIN", MELT_GET);
-  if (sy_DBG_OUTPUTAGAIN && NULL == /*_.VALDATA___V4257*/ curfptr[4256])
-  /*_.VALDATA___V4257*/ curfptr[4256] = (void*) sy_DBG_OUTPUTAGAIN; }
+  if (sy_DBG_OUTPUTAGAIN && NULL == /*_.VALDATA___V4249*/ curfptr[4248])
+  /*_.VALDATA___V4249*/ curfptr[4248] = (void*) sy_DBG_OUTPUTAGAIN; }
  
  /*getnamedsym:DBGOUT_NAMEDOBJECT_METHOD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBGOUT_NAMEDOBJECT_METHOD = meltgc_named_symbol("DBGOUT_NAMEDOBJECT_METHOD", MELT_GET);
-  if (sy_DBGOUT_NAMEDOBJECT_METHOD && NULL == /*_.VALDATA___V4317*/ curfptr[4316])
-  /*_.VALDATA___V4317*/ curfptr[4316] = (void*) sy_DBGOUT_NAMEDOBJECT_METHOD; }
+  if (sy_DBGOUT_NAMEDOBJECT_METHOD && NULL == /*_.VALDATA___V4309*/ curfptr[4308])
+  /*_.VALDATA___V4309*/ curfptr[4308] = (void*) sy_DBGOUT_NAMEDOBJECT_METHOD; }
  
  /*getnamedsym:INITIAL_ENVIRONMENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INITIAL_ENVIRONMENT = meltgc_named_symbol("INITIAL_ENVIRONMENT", MELT_GET);
-  if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V4341*/ curfptr[4340])
-  /*_.VALDATA___V4341*/ curfptr[4340] = (void*) sy_INITIAL_ENVIRONMENT; }
+  if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V4333*/ curfptr[4332])
+  /*_.VALDATA___V4333*/ curfptr[4332] = (void*) sy_INITIAL_ENVIRONMENT; }
  
  /*getnamedsym:LIST_FIND*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_FIND = meltgc_named_symbol("LIST_FIND", MELT_GET);
-  if (sy_LIST_FIND && NULL == /*_.VALDATA___V4356*/ curfptr[4355])
-  /*_.VALDATA___V4356*/ curfptr[4355] = (void*) sy_LIST_FIND; }
+  if (sy_LIST_FIND && NULL == /*_.VALDATA___V4348*/ curfptr[4347])
+  /*_.VALDATA___V4348*/ curfptr[4347] = (void*) sy_LIST_FIND; }
  
  /*getnamedsym:AT_EXIT_FIRST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_AT_EXIT_FIRST = meltgc_named_symbol("AT_EXIT_FIRST", MELT_GET);
-  if (sy_AT_EXIT_FIRST && NULL == /*_.VALDATA___V4358*/ curfptr[4357])
-  /*_.VALDATA___V4358*/ curfptr[4357] = (void*) sy_AT_EXIT_FIRST; }
+  if (sy_AT_EXIT_FIRST && NULL == /*_.VALDATA___V4350*/ curfptr[4349])
+  /*_.VALDATA___V4350*/ curfptr[4349] = (void*) sy_AT_EXIT_FIRST; }
  
  /*getnamedsym:AT_EXIT_LAST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_AT_EXIT_LAST = meltgc_named_symbol("AT_EXIT_LAST", MELT_GET);
-  if (sy_AT_EXIT_LAST && NULL == /*_.VALDATA___V4360*/ curfptr[4359])
-  /*_.VALDATA___V4360*/ curfptr[4359] = (void*) sy_AT_EXIT_LAST; }
+  if (sy_AT_EXIT_LAST && NULL == /*_.VALDATA___V4352*/ curfptr[4351])
+  /*_.VALDATA___V4352*/ curfptr[4351] = (void*) sy_AT_EXIT_LAST; }
  
  /*getnamedsym:AT_FINISH_UNIT_FIRST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_AT_FINISH_UNIT_FIRST = meltgc_named_symbol("AT_FINISH_UNIT_FIRST", MELT_GET);
-  if (sy_AT_FINISH_UNIT_FIRST && NULL == /*_.VALDATA___V4362*/ curfptr[4361])
-  /*_.VALDATA___V4362*/ curfptr[4361] = (void*) sy_AT_FINISH_UNIT_FIRST; }
+  if (sy_AT_FINISH_UNIT_FIRST && NULL == /*_.VALDATA___V4354*/ curfptr[4353])
+  /*_.VALDATA___V4354*/ curfptr[4353] = (void*) sy_AT_FINISH_UNIT_FIRST; }
  
  /*getnamedsym:AT_FINISH_UNIT_LAST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_AT_FINISH_UNIT_LAST = meltgc_named_symbol("AT_FINISH_UNIT_LAST", MELT_GET);
-  if (sy_AT_FINISH_UNIT_LAST && NULL == /*_.VALDATA___V4364*/ curfptr[4363])
-  /*_.VALDATA___V4364*/ curfptr[4363] = (void*) sy_AT_FINISH_UNIT_LAST; }
+  if (sy_AT_FINISH_UNIT_LAST && NULL == /*_.VALDATA___V4356*/ curfptr[4355])
+  /*_.VALDATA___V4356*/ curfptr[4355] = (void*) sy_AT_FINISH_UNIT_LAST; }
  
  /*getnamedsym:AT_START_UNIT_FIRST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_AT_START_UNIT_FIRST = meltgc_named_symbol("AT_START_UNIT_FIRST", MELT_GET);
-  if (sy_AT_START_UNIT_FIRST && NULL == /*_.VALDATA___V4366*/ curfptr[4365])
-  /*_.VALDATA___V4366*/ curfptr[4365] = (void*) sy_AT_START_UNIT_FIRST; }
+  if (sy_AT_START_UNIT_FIRST && NULL == /*_.VALDATA___V4358*/ curfptr[4357])
+  /*_.VALDATA___V4358*/ curfptr[4357] = (void*) sy_AT_START_UNIT_FIRST; }
  
  /*getnamedsym:AT_START_UNIT_LAST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_AT_START_UNIT_LAST = meltgc_named_symbol("AT_START_UNIT_LAST", MELT_GET);
-  if (sy_AT_START_UNIT_LAST && NULL == /*_.VALDATA___V4368*/ curfptr[4367])
-  /*_.VALDATA___V4368*/ curfptr[4367] = (void*) sy_AT_START_UNIT_LAST; }
+  if (sy_AT_START_UNIT_LAST && NULL == /*_.VALDATA___V4360*/ curfptr[4359])
+  /*_.VALDATA___V4360*/ curfptr[4359] = (void*) sy_AT_START_UNIT_LAST; }
  
  /*getnamedsym:CLONE_SYMBOL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLONE_SYMBOL = meltgc_named_symbol("CLONE_SYMBOL", MELT_GET);
-  if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V4370*/ curfptr[4369])
-  /*_.VALDATA___V4370*/ curfptr[4369] = (void*) sy_CLONE_SYMBOL; }
+  if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V4362*/ curfptr[4361])
+  /*_.VALDATA___V4362*/ curfptr[4361] = (void*) sy_CLONE_SYMBOL; }
  
  /*getnamedsym:CLOSURE_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLOSURE_EVERY = meltgc_named_symbol("CLOSURE_EVERY", MELT_GET);
-  if (sy_CLOSURE_EVERY && NULL == /*_.VALDATA___V4372*/ curfptr[4371])
-  /*_.VALDATA___V4372*/ curfptr[4371] = (void*) sy_CLOSURE_EVERY; }
+  if (sy_CLOSURE_EVERY && NULL == /*_.VALDATA___V4364*/ curfptr[4363])
+  /*_.VALDATA___V4364*/ curfptr[4363] = (void*) sy_CLOSURE_EVERY; }
  
  /*getnamedsym:COMPARE_NAMED_ALPHA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_COMPARE_NAMED_ALPHA = meltgc_named_symbol("COMPARE_NAMED_ALPHA", MELT_GET);
-  if (sy_COMPARE_NAMED_ALPHA && NULL == /*_.VALDATA___V4374*/ curfptr[4373])
-  /*_.VALDATA___V4374*/ curfptr[4373] = (void*) sy_COMPARE_NAMED_ALPHA; }
+  if (sy_COMPARE_NAMED_ALPHA && NULL == /*_.VALDATA___V4366*/ curfptr[4365])
+  /*_.VALDATA___V4366*/ curfptr[4365] = (void*) sy_COMPARE_NAMED_ALPHA; }
  
  /*getnamedsym:COMPARE_OBJ_RANKED*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_COMPARE_OBJ_RANKED = meltgc_named_symbol("COMPARE_OBJ_RANKED", MELT_GET);
-  if (sy_COMPARE_OBJ_RANKED && NULL == /*_.VALDATA___V4376*/ curfptr[4375])
-  /*_.VALDATA___V4376*/ curfptr[4375] = (void*) sy_COMPARE_OBJ_RANKED; }
+  if (sy_COMPARE_OBJ_RANKED && NULL == /*_.VALDATA___V4368*/ curfptr[4367])
+  /*_.VALDATA___V4368*/ curfptr[4367] = (void*) sy_COMPARE_OBJ_RANKED; }
  
  /*getnamedsym:CSTRING_SAME*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CSTRING_SAME = meltgc_named_symbol("CSTRING_SAME", MELT_GET);
-  if (sy_CSTRING_SAME && NULL == /*_.VALDATA___V4378*/ curfptr[4377])
-  /*_.VALDATA___V4378*/ curfptr[4377] = (void*) sy_CSTRING_SAME; }
+  if (sy_CSTRING_SAME && NULL == /*_.VALDATA___V4370*/ curfptr[4369])
+  /*_.VALDATA___V4370*/ curfptr[4369] = (void*) sy_CSTRING_SAME; }
  
  /*getnamedsym:DBG_OUT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBG_OUT = meltgc_named_symbol("DBG_OUT", MELT_GET);
-  if (sy_DBG_OUT && NULL == /*_.VALDATA___V4380*/ curfptr[4379])
-  /*_.VALDATA___V4380*/ curfptr[4379] = (void*) sy_DBG_OUT; }
+  if (sy_DBG_OUT && NULL == /*_.VALDATA___V4372*/ curfptr[4371])
+  /*_.VALDATA___V4372*/ curfptr[4371] = (void*) sy_DBG_OUT; }
  
  /*getnamedsym:DBG_OUTOBJECT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBG_OUTOBJECT = meltgc_named_symbol("DBG_OUTOBJECT", MELT_GET);
-  if (sy_DBG_OUTOBJECT && NULL == /*_.VALDATA___V4382*/ curfptr[4381])
-  /*_.VALDATA___V4382*/ curfptr[4381] = (void*) sy_DBG_OUTOBJECT; }
+  if (sy_DBG_OUTOBJECT && NULL == /*_.VALDATA___V4374*/ curfptr[4373])
+  /*_.VALDATA___V4374*/ curfptr[4373] = (void*) sy_DBG_OUTOBJECT; }
  
  /*getnamedsym:DBGOUT_FIELDS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBGOUT_FIELDS = meltgc_named_symbol("DBGOUT_FIELDS", MELT_GET);
-  if (sy_DBGOUT_FIELDS && NULL == /*_.VALDATA___V4384*/ curfptr[4383])
-  /*_.VALDATA___V4384*/ curfptr[4383] = (void*) sy_DBGOUT_FIELDS; }
+  if (sy_DBGOUT_FIELDS && NULL == /*_.VALDATA___V4376*/ curfptr[4375])
+  /*_.VALDATA___V4376*/ curfptr[4375] = (void*) sy_DBGOUT_FIELDS; }
  
  /*getnamedsym:DBGOUTAGAIN_FIELDS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DBGOUTAGAIN_FIELDS = meltgc_named_symbol("DBGOUTAGAIN_FIELDS", MELT_GET);
-  if (sy_DBGOUTAGAIN_FIELDS && NULL == /*_.VALDATA___V4386*/ curfptr[4385])
-  /*_.VALDATA___V4386*/ curfptr[4385] = (void*) sy_DBGOUTAGAIN_FIELDS; }
+  if (sy_DBGOUTAGAIN_FIELDS && NULL == /*_.VALDATA___V4378*/ curfptr[4377])
+  /*_.VALDATA___V4378*/ curfptr[4377] = (void*) sy_DBGOUTAGAIN_FIELDS; }
  
  /*getnamedsym:DEBUG_MSG_FUN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DEBUG_MSG_FUN = meltgc_named_symbol("DEBUG_MSG_FUN", MELT_GET);
-  if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V4388*/ curfptr[4387])
-  /*_.VALDATA___V4388*/ curfptr[4387] = (void*) sy_DEBUG_MSG_FUN; }
+  if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V4380*/ curfptr[4379])
+  /*_.VALDATA___V4380*/ curfptr[4379] = (void*) sy_DEBUG_MSG_FUN; }
  
  /*getnamedsym:DEBUGMSG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DEBUGMSG = meltgc_named_symbol("DEBUGMSG", MELT_GET);
-  if (sy_DEBUGMSG && NULL == /*_.VALDATA___V4390*/ curfptr[4389])
-  /*_.VALDATA___V4390*/ curfptr[4389] = (void*) sy_DEBUGMSG; }
+  if (sy_DEBUGMSG && NULL == /*_.VALDATA___V4382*/ curfptr[4381])
+  /*_.VALDATA___V4382*/ curfptr[4381] = (void*) sy_DEBUGMSG; }
  
  /*getnamedsym:DISPLAY_DEBUG_MESSAGE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISPLAY_DEBUG_MESSAGE = meltgc_named_symbol("DISPLAY_DEBUG_MESSAGE", MELT_GET);
-  if (sy_DISPLAY_DEBUG_MESSAGE && NULL == /*_.VALDATA___V4392*/ curfptr[4391])
-  /*_.VALDATA___V4392*/ curfptr[4391] = (void*) sy_DISPLAY_DEBUG_MESSAGE; }
+  if (sy_DISPLAY_DEBUG_MESSAGE && NULL == /*_.VALDATA___V4384*/ curfptr[4383])
+  /*_.VALDATA___V4384*/ curfptr[4383] = (void*) sy_DISPLAY_DEBUG_MESSAGE; }
  
  /*getnamedsym:FIND_ENCLOSING_ENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FIND_ENCLOSING_ENV = meltgc_named_symbol("FIND_ENCLOSING_ENV", MELT_GET);
-  if (sy_FIND_ENCLOSING_ENV && NULL == /*_.VALDATA___V4394*/ curfptr[4393])
-  /*_.VALDATA___V4394*/ curfptr[4393] = (void*) sy_FIND_ENCLOSING_ENV; }
+  if (sy_FIND_ENCLOSING_ENV && NULL == /*_.VALDATA___V4386*/ curfptr[4385])
+  /*_.VALDATA___V4386*/ curfptr[4385] = (void*) sy_FIND_ENCLOSING_ENV; }
  
  /*getnamedsym:FIND_ENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol("FIND_ENV", MELT_GET);
-  if (sy_FIND_ENV && NULL == /*_.VALDATA___V4396*/ curfptr[4395])
-  /*_.VALDATA___V4396*/ curfptr[4395] = (void*) sy_FIND_ENV; }
+  if (sy_FIND_ENV && NULL == /*_.VALDATA___V4388*/ curfptr[4387])
+  /*_.VALDATA___V4388*/ curfptr[4387] = (void*) sy_FIND_ENV; }
  
  /*getnamedsym:FIND_ENV_DEBUG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FIND_ENV_DEBUG = meltgc_named_symbol("FIND_ENV_DEBUG", MELT_GET);
-  if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V4398*/ curfptr[4397])
-  /*_.VALDATA___V4398*/ curfptr[4397] = (void*) sy_FIND_ENV_DEBUG; }
+  if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V4390*/ curfptr[4389])
+  /*_.VALDATA___V4390*/ curfptr[4389] = (void*) sy_FIND_ENV_DEBUG; }
  
  /*getnamedsym:FRESH_ENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FRESH_ENV = meltgc_named_symbol("FRESH_ENV", MELT_GET);
-  if (sy_FRESH_ENV && NULL == /*_.VALDATA___V4400*/ curfptr[4399])
-  /*_.VALDATA___V4400*/ curfptr[4399] = (void*) sy_FRESH_ENV; }
+  if (sy_FRESH_ENV && NULL == /*_.VALDATA___V4392*/ curfptr[4391])
+  /*_.VALDATA___V4392*/ curfptr[4391] = (void*) sy_FRESH_ENV; }
  
  /*getnamedsym:INSTALL_CTYPE_DESCR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INSTALL_CTYPE_DESCR = meltgc_named_symbol("INSTALL_CTYPE_DESCR", MELT_GET);
-  if (sy_INSTALL_CTYPE_DESCR && NULL == /*_.VALDATA___V4402*/ curfptr[4401])
-  /*_.VALDATA___V4402*/ curfptr[4401] = (void*) sy_INSTALL_CTYPE_DESCR; }
+  if (sy_INSTALL_CTYPE_DESCR && NULL == /*_.VALDATA___V4394*/ curfptr[4393])
+  /*_.VALDATA___V4394*/ curfptr[4393] = (void*) sy_INSTALL_CTYPE_DESCR; }
  
  /*getnamedsym:INSTALL_METHOD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INSTALL_METHOD = meltgc_named_symbol("INSTALL_METHOD", MELT_GET);
-  if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V4404*/ curfptr[4403])
-  /*_.VALDATA___V4404*/ curfptr[4403] = (void*) sy_INSTALL_METHOD; }
+  if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V4396*/ curfptr[4395])
+  /*_.VALDATA___V4396*/ curfptr[4395] = (void*) sy_INSTALL_METHOD; }
  
  /*getnamedsym:LIST1*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST1 = meltgc_named_symbol("LIST1", MELT_GET);
-  if (sy_LIST1 && NULL == /*_.VALDATA___V4406*/ curfptr[4405])
-  /*_.VALDATA___V4406*/ curfptr[4405] = (void*) sy_LIST1; }
+  if (sy_LIST1 && NULL == /*_.VALDATA___V4398*/ curfptr[4397])
+  /*_.VALDATA___V4398*/ curfptr[4397] = (void*) sy_LIST1; }
  
  /*getnamedsym:LIST2*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST2 = meltgc_named_symbol("LIST2", MELT_GET);
-  if (sy_LIST2 && NULL == /*_.VALDATA___V4408*/ curfptr[4407])
-  /*_.VALDATA___V4408*/ curfptr[4407] = (void*) sy_LIST2; }
+  if (sy_LIST2 && NULL == /*_.VALDATA___V4400*/ curfptr[4399])
+  /*_.VALDATA___V4400*/ curfptr[4399] = (void*) sy_LIST2; }
  
  /*getnamedsym:LIST3*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST3 = meltgc_named_symbol("LIST3", MELT_GET);
-  if (sy_LIST3 && NULL == /*_.VALDATA___V4410*/ curfptr[4409])
-  /*_.VALDATA___V4410*/ curfptr[4409] = (void*) sy_LIST3; }
+  if (sy_LIST3 && NULL == /*_.VALDATA___V4402*/ curfptr[4401])
+  /*_.VALDATA___V4402*/ curfptr[4401] = (void*) sy_LIST3; }
  
  /*getnamedsym:LIST4*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST4 = meltgc_named_symbol("LIST4", MELT_GET);
-  if (sy_LIST4 && NULL == /*_.VALDATA___V4412*/ curfptr[4411])
-  /*_.VALDATA___V4412*/ curfptr[4411] = (void*) sy_LIST4; }
+  if (sy_LIST4 && NULL == /*_.VALDATA___V4404*/ curfptr[4403])
+  /*_.VALDATA___V4404*/ curfptr[4403] = (void*) sy_LIST4; }
  
  /*getnamedsym:LIST5*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST5 = meltgc_named_symbol("LIST5", MELT_GET);
-  if (sy_LIST5 && NULL == /*_.VALDATA___V4414*/ curfptr[4413])
-  /*_.VALDATA___V4414*/ curfptr[4413] = (void*) sy_LIST5; }
+  if (sy_LIST5 && NULL == /*_.VALDATA___V4406*/ curfptr[4405])
+  /*_.VALDATA___V4406*/ curfptr[4405] = (void*) sy_LIST5; }
  
  /*getnamedsym:LIST6*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST6 = meltgc_named_symbol("LIST6", MELT_GET);
-  if (sy_LIST6 && NULL == /*_.VALDATA___V4416*/ curfptr[4415])
-  /*_.VALDATA___V4416*/ curfptr[4415] = (void*) sy_LIST6; }
+  if (sy_LIST6 && NULL == /*_.VALDATA___V4408*/ curfptr[4407])
+  /*_.VALDATA___V4408*/ curfptr[4407] = (void*) sy_LIST6; }
  
  /*getnamedsym:LIST_APPEND2LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_APPEND2LIST = meltgc_named_symbol("LIST_APPEND2LIST", MELT_GET);
-  if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V4418*/ curfptr[4417])
-  /*_.VALDATA___V4418*/ curfptr[4417] = (void*) sy_LIST_APPEND2LIST; }
+  if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V4410*/ curfptr[4409])
+  /*_.VALDATA___V4410*/ curfptr[4409] = (void*) sy_LIST_APPEND2LIST; }
  
  /*getnamedsym:LIST_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_EVERY = meltgc_named_symbol("LIST_EVERY", MELT_GET);
-  if (sy_LIST_EVERY && NULL == /*_.VALDATA___V4420*/ curfptr[4419])
-  /*_.VALDATA___V4420*/ curfptr[4419] = (void*) sy_LIST_EVERY; }
+  if (sy_LIST_EVERY && NULL == /*_.VALDATA___V4412*/ curfptr[4411])
+  /*_.VALDATA___V4412*/ curfptr[4411] = (void*) sy_LIST_EVERY; }
  
  /*getnamedsym:LIST_ITERATE_TEST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_ITERATE_TEST = meltgc_named_symbol("LIST_ITERATE_TEST", MELT_GET);
-  if (sy_LIST_ITERATE_TEST && NULL == /*_.VALDATA___V4422*/ curfptr[4421])
-  /*_.VALDATA___V4422*/ curfptr[4421] = (void*) sy_LIST_ITERATE_TEST; }
+  if (sy_LIST_ITERATE_TEST && NULL == /*_.VALDATA___V4414*/ curfptr[4413])
+  /*_.VALDATA___V4414*/ curfptr[4413] = (void*) sy_LIST_ITERATE_TEST; }
  
  /*getnamedsym:LIST_MAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_MAP = meltgc_named_symbol("LIST_MAP", MELT_GET);
-  if (sy_LIST_MAP && NULL == /*_.VALDATA___V4424*/ curfptr[4423])
-  /*_.VALDATA___V4424*/ curfptr[4423] = (void*) sy_LIST_MAP; }
+  if (sy_LIST_MAP && NULL == /*_.VALDATA___V4416*/ curfptr[4415])
+  /*_.VALDATA___V4416*/ curfptr[4415] = (void*) sy_LIST_MAP; }
  
  /*getnamedsym:LIST_TO_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_TO_MULTIPLE = meltgc_named_symbol("LIST_TO_MULTIPLE", MELT_GET);
-  if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V4426*/ curfptr[4425])
-  /*_.VALDATA___V4426*/ curfptr[4425] = (void*) sy_LIST_TO_MULTIPLE; }
+  if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V4418*/ curfptr[4417])
+  /*_.VALDATA___V4418*/ curfptr[4417] = (void*) sy_LIST_TO_MULTIPLE; }
  
  /*getnamedsym:MAPOBJECT_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_EVERY = meltgc_named_symbol("MAPOBJECT_EVERY", MELT_GET);
-  if (sy_MAPOBJECT_EVERY && NULL == /*_.VALDATA___V4428*/ curfptr[4427])
-  /*_.VALDATA___V4428*/ curfptr[4427] = (void*) sy_MAPOBJECT_EVERY; }
+  if (sy_MAPOBJECT_EVERY && NULL == /*_.VALDATA___V4420*/ curfptr[4419])
+  /*_.VALDATA___V4420*/ curfptr[4419] = (void*) sy_MAPOBJECT_EVERY; }
  
  /*getnamedsym:MAPOBJECT_ITERATE_TEST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_ITERATE_TEST = meltgc_named_symbol("MAPOBJECT_ITERATE_TEST", MELT_GET);
-  if (sy_MAPOBJECT_ITERATE_TEST && NULL == /*_.VALDATA___V4430*/ curfptr[4429])
-  /*_.VALDATA___V4430*/ curfptr[4429] = (void*) sy_MAPOBJECT_ITERATE_TEST; }
+  if (sy_MAPOBJECT_ITERATE_TEST && NULL == /*_.VALDATA___V4422*/ curfptr[4421])
+  /*_.VALDATA___V4422*/ curfptr[4421] = (void*) sy_MAPOBJECT_ITERATE_TEST; }
  
  /*getnamedsym:MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE = meltgc_named_symbol("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", MELT_GET);
-  if (sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE && NULL == /*_.VALDATA___V4432*/ curfptr[4431])
-  /*_.VALDATA___V4432*/ curfptr[4431] = (void*) sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; }
+  if (sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE && NULL == /*_.VALDATA___V4424*/ curfptr[4423])
+  /*_.VALDATA___V4424*/ curfptr[4423] = (void*) sy_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE; }
  
  /*getnamedsym:MAPSTRING_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_EVERY = meltgc_named_symbol("MAPSTRING_EVERY", MELT_GET);
-  if (sy_MAPSTRING_EVERY && NULL == /*_.VALDATA___V4434*/ curfptr[4433])
-  /*_.VALDATA___V4434*/ curfptr[4433] = (void*) sy_MAPSTRING_EVERY; }
+  if (sy_MAPSTRING_EVERY && NULL == /*_.VALDATA___V4426*/ curfptr[4425])
+  /*_.VALDATA___V4426*/ curfptr[4425] = (void*) sy_MAPSTRING_EVERY; }
  
  /*getnamedsym:MAPSTRING_ITERATE_TEST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAPSTRING_ITERATE_TEST = meltgc_named_symbol("MAPSTRING_ITERATE_TEST", MELT_GET);
-  if (sy_MAPSTRING_ITERATE_TEST && NULL == /*_.VALDATA___V4436*/ curfptr[4435])
-  /*_.VALDATA___V4436*/ curfptr[4435] = (void*) sy_MAPSTRING_ITERATE_TEST; }
+  if (sy_MAPSTRING_ITERATE_TEST && NULL == /*_.VALDATA___V4428*/ curfptr[4427])
+  /*_.VALDATA___V4428*/ curfptr[4427] = (void*) sy_MAPSTRING_ITERATE_TEST; }
  
  /*getnamedsym:MULTIPLE_BACKWARD_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_BACKWARD_EVERY = meltgc_named_symbol("MULTIPLE_BACKWARD_EVERY", MELT_GET);
-  if (sy_MULTIPLE_BACKWARD_EVERY && NULL == /*_.VALDATA___V4438*/ curfptr[4437])
-  /*_.VALDATA___V4438*/ curfptr[4437] = (void*) sy_MULTIPLE_BACKWARD_EVERY; }
+  if (sy_MULTIPLE_BACKWARD_EVERY && NULL == /*_.VALDATA___V4430*/ curfptr[4429])
+  /*_.VALDATA___V4430*/ curfptr[4429] = (void*) sy_MULTIPLE_BACKWARD_EVERY; }
  
  /*getnamedsym:MULTIPLE_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_EVERY = meltgc_named_symbol("MULTIPLE_EVERY", MELT_GET);
-  if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V4440*/ curfptr[4439])
-  /*_.VALDATA___V4440*/ curfptr[4439] = (void*) sy_MULTIPLE_EVERY; }
+  if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V4432*/ curfptr[4431])
+  /*_.VALDATA___V4432*/ curfptr[4431] = (void*) sy_MULTIPLE_EVERY; }
  
  /*getnamedsym:MULTIPLE_EVERY_BOTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_EVERY_BOTH = meltgc_named_symbol("MULTIPLE_EVERY_BOTH", MELT_GET);
-  if (sy_MULTIPLE_EVERY_BOTH && NULL == /*_.VALDATA___V4442*/ curfptr[4441])
-  /*_.VALDATA___V4442*/ curfptr[4441] = (void*) sy_MULTIPLE_EVERY_BOTH; }
+  if (sy_MULTIPLE_EVERY_BOTH && NULL == /*_.VALDATA___V4434*/ curfptr[4433])
+  /*_.VALDATA___V4434*/ curfptr[4433] = (void*) sy_MULTIPLE_EVERY_BOTH; }
  
  /*getnamedsym:MULTIPLE_ITERATE_TEST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_ITERATE_TEST = meltgc_named_symbol("MULTIPLE_ITERATE_TEST", MELT_GET);
-  if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V4444*/ curfptr[4443])
-  /*_.VALDATA___V4444*/ curfptr[4443] = (void*) sy_MULTIPLE_ITERATE_TEST; }
+  if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V4436*/ curfptr[4435])
+  /*_.VALDATA___V4436*/ curfptr[4435] = (void*) sy_MULTIPLE_ITERATE_TEST; }
  
  /*getnamedsym:MULTIPLE_MAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_MAP = meltgc_named_symbol("MULTIPLE_MAP", MELT_GET);
-  if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V4446*/ curfptr[4445])
-  /*_.VALDATA___V4446*/ curfptr[4445] = (void*) sy_MULTIPLE_MAP; }
+  if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V4438*/ curfptr[4437])
+  /*_.VALDATA___V4438*/ curfptr[4437] = (void*) sy_MULTIPLE_MAP; }
  
  /*getnamedsym:MULTIPLE_TO_LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MULTIPLE_TO_LIST = meltgc_named_symbol("MULTIPLE_TO_LIST", MELT_GET);
-  if (sy_MULTIPLE_TO_LIST && NULL == /*_.VALDATA___V4448*/ curfptr[4447])
-  /*_.VALDATA___V4448*/ curfptr[4447] = (void*) sy_MULTIPLE_TO_LIST; }
+  if (sy_MULTIPLE_TO_LIST && NULL == /*_.VALDATA___V4440*/ curfptr[4439])
+  /*_.VALDATA___V4440*/ curfptr[4439] = (void*) sy_MULTIPLE_TO_LIST; }
  
  /*getnamedsym:OVERWRITE_ENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_OVERWRITE_ENV = meltgc_named_symbol("OVERWRITE_ENV", MELT_GET);
-  if (sy_OVERWRITE_ENV && NULL == /*_.VALDATA___V4450*/ curfptr[4449])
-  /*_.VALDATA___V4450*/ curfptr[4449] = (void*) sy_OVERWRITE_ENV; }
+  if (sy_OVERWRITE_ENV && NULL == /*_.VALDATA___V4442*/ curfptr[4441])
+  /*_.VALDATA___V4442*/ curfptr[4441] = (void*) sy_OVERWRITE_ENV; }
  
  /*getnamedsym:PAIRLIST_TO_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PAIRLIST_TO_MULTIPLE = meltgc_named_symbol("PAIRLIST_TO_MULTIPLE", MELT_GET);
-  if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V4452*/ curfptr[4451])
-  /*_.VALDATA___V4452*/ curfptr[4451] = (void*) sy_PAIRLIST_TO_MULTIPLE; }
+  if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V4444*/ curfptr[4443])
+  /*_.VALDATA___V4444*/ curfptr[4443] = (void*) sy_PAIRLIST_TO_MULTIPLE; }
  
  /*getnamedsym:POST_INITIALIZATION*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_POST_INITIALIZATION = meltgc_named_symbol("POST_INITIALIZATION", MELT_GET);
-  if (sy_POST_INITIALIZATION && NULL == /*_.VALDATA___V4454*/ curfptr[4453])
-  /*_.VALDATA___V4454*/ curfptr[4453] = (void*) sy_POST_INITIALIZATION; }
+  if (sy_POST_INITIALIZATION && NULL == /*_.VALDATA___V4446*/ curfptr[4445])
+  /*_.VALDATA___V4446*/ curfptr[4445] = (void*) sy_POST_INITIALIZATION; }
  
  /*getnamedsym:PUT_ENV*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_PUT_ENV = meltgc_named_symbol("PUT_ENV", MELT_GET);
-  if (sy_PUT_ENV && NULL == /*_.VALDATA___V4456*/ curfptr[4455])
-  /*_.VALDATA___V4456*/ curfptr[4455] = (void*) sy_PUT_ENV; }
+  if (sy_PUT_ENV && NULL == /*_.VALDATA___V4448*/ curfptr[4447])
+  /*_.VALDATA___V4448*/ curfptr[4447] = (void*) sy_PUT_ENV; }
  
  /*getnamedsym:ROUTINE_EVERY*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_ROUTINE_EVERY = meltgc_named_symbol("ROUTINE_EVERY", MELT_GET);
-  if (sy_ROUTINE_EVERY && NULL == /*_.VALDATA___V4458*/ curfptr[4457])
-  /*_.VALDATA___V4458*/ curfptr[4457] = (void*) sy_ROUTINE_EVERY; }
+  if (sy_ROUTINE_EVERY && NULL == /*_.VALDATA___V4450*/ curfptr[4449])
+  /*_.VALDATA___V4450*/ curfptr[4449] = (void*) sy_ROUTINE_EVERY; }
  
  /*getnamedsym:TUPLE_NTH*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TUPLE_NTH = meltgc_named_symbol("TUPLE_NTH", MELT_GET);
-  if (sy_TUPLE_NTH && NULL == /*_.VALDATA___V4460*/ curfptr[4459])
-  /*_.VALDATA___V4460*/ curfptr[4459] = (void*) sy_TUPLE_NTH; }
+  if (sy_TUPLE_NTH && NULL == /*_.VALDATA___V4452*/ curfptr[4451])
+  /*_.VALDATA___V4452*/ curfptr[4451] = (void*) sy_TUPLE_NTH; }
  
  /*getnamedsym:TUPLE_SIZED*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TUPLE_SIZED = meltgc_named_symbol("TUPLE_SIZED", MELT_GET);
-  if (sy_TUPLE_SIZED && NULL == /*_.VALDATA___V4462*/ curfptr[4461])
-  /*_.VALDATA___V4462*/ curfptr[4461] = (void*) sy_TUPLE_SIZED; }
+  if (sy_TUPLE_SIZED && NULL == /*_.VALDATA___V4454*/ curfptr[4453])
+  /*_.VALDATA___V4454*/ curfptr[4453] = (void*) sy_TUPLE_SIZED; }
  
  /*getnamedsym:FOREACH_IN_LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FOREACH_IN_LIST = meltgc_named_symbol("FOREACH_IN_LIST", MELT_GET);
-  if (sy_FOREACH_IN_LIST && NULL == /*_.VALDATA___V4464*/ curfptr[4463])
-  /*_.VALDATA___V4464*/ curfptr[4463] = (void*) sy_FOREACH_IN_LIST; }
+  if (sy_FOREACH_IN_LIST && NULL == /*_.VALDATA___V4456*/ curfptr[4455])
+  /*_.VALDATA___V4456*/ curfptr[4455] = (void*) sy_FOREACH_IN_LIST; }
  
  /*getnamedsym:FOREACH_IN_MAPOBJECT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FOREACH_IN_MAPOBJECT = meltgc_named_symbol("FOREACH_IN_MAPOBJECT", MELT_GET);
-  if (sy_FOREACH_IN_MAPOBJECT && NULL == /*_.VALDATA___V4466*/ curfptr[4465])
-  /*_.VALDATA___V4466*/ curfptr[4465] = (void*) sy_FOREACH_IN_MAPOBJECT; }
+  if (sy_FOREACH_IN_MAPOBJECT && NULL == /*_.VALDATA___V4458*/ curfptr[4457])
+  /*_.VALDATA___V4458*/ curfptr[4457] = (void*) sy_FOREACH_IN_MAPOBJECT; }
  
  /*getnamedsym:FOREACH_IN_MAPSTRING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FOREACH_IN_MAPSTRING = meltgc_named_symbol("FOREACH_IN_MAPSTRING", MELT_GET);
-  if (sy_FOREACH_IN_MAPSTRING && NULL == /*_.VALDATA___V4468*/ curfptr[4467])
-  /*_.VALDATA___V4468*/ curfptr[4467] = (void*) sy_FOREACH_IN_MAPSTRING; }
+  if (sy_FOREACH_IN_MAPSTRING && NULL == /*_.VALDATA___V4460*/ curfptr[4459])
+  /*_.VALDATA___V4460*/ curfptr[4459] = (void*) sy_FOREACH_IN_MAPSTRING; }
  
  /*getnamedsym:FOREACH_IN_MULTIPLE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FOREACH_IN_MULTIPLE = meltgc_named_symbol("FOREACH_IN_MULTIPLE", MELT_GET);
-  if (sy_FOREACH_IN_MULTIPLE && NULL == /*_.VALDATA___V4470*/ curfptr[4469])
-  /*_.VALDATA___V4470*/ curfptr[4469] = (void*) sy_FOREACH_IN_MULTIPLE; }
+  if (sy_FOREACH_IN_MULTIPLE && NULL == /*_.VALDATA___V4462*/ curfptr[4461])
+  /*_.VALDATA___V4462*/ curfptr[4461] = (void*) sy_FOREACH_IN_MULTIPLE; }
  
  /*getnamedsym:FOREACH_IN_MULTIPLE_BACKWARD*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FOREACH_IN_MULTIPLE_BACKWARD = meltgc_named_symbol("FOREACH_IN_MULTIPLE_BACKWARD", MELT_GET);
-  if (sy_FOREACH_IN_MULTIPLE_BACKWARD && NULL == /*_.VALDATA___V4472*/ curfptr[4471])
-  /*_.VALDATA___V4472*/ curfptr[4471] = (void*) sy_FOREACH_IN_MULTIPLE_BACKWARD; }
+  if (sy_FOREACH_IN_MULTIPLE_BACKWARD && NULL == /*_.VALDATA___V4464*/ curfptr[4463])
+  /*_.VALDATA___V4464*/ curfptr[4463] = (void*) sy_FOREACH_IN_MULTIPLE_BACKWARD; }
  
  /*getnamedsym:FOREACH_LONG_UPTO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_FOREACH_LONG_UPTO = meltgc_named_symbol("FOREACH_LONG_UPTO", MELT_GET);
-  if (sy_FOREACH_LONG_UPTO && NULL == /*_.VALDATA___V4474*/ curfptr[4473])
-  /*_.VALDATA___V4474*/ curfptr[4473] = (void*) sy_FOREACH_LONG_UPTO; }
+  if (sy_FOREACH_LONG_UPTO && NULL == /*_.VALDATA___V4466*/ curfptr[4465])
+  /*_.VALDATA___V4466*/ curfptr[4465] = (void*) sy_FOREACH_LONG_UPTO; }
  
  /*getnamedsym:INTEGERBOX_OF*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INTEGERBOX_OF = meltgc_named_symbol("INTEGERBOX_OF", MELT_GET);
-  if (sy_INTEGERBOX_OF && NULL == /*_.VALDATA___V4476*/ curfptr[4475])
-  /*_.VALDATA___V4476*/ curfptr[4475] = (void*) sy_INTEGERBOX_OF; }
+  if (sy_INTEGERBOX_OF && NULL == /*_.VALDATA___V4468*/ curfptr[4467])
+  /*_.VALDATA___V4468*/ curfptr[4467] = (void*) sy_INTEGERBOX_OF; }
  
  /*getnamedkeyw:TRUE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_TRUE = meltgc_named_keyword("TRUE", MELT_GET);
-  if (kw_TRUE) /*_.VALDATA___V4478*/ curfptr[4477] = (void*) kw_TRUE; }
+  if (kw_TRUE) /*_.VALDATA___V4470*/ curfptr[4469] = (void*) kw_TRUE; }
  
  /*getnamedsym:DISPLAYDEBUGMSG*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISPLAYDEBUGMSG = meltgc_named_symbol("DISPLAYDEBUGMSG", MELT_GET);
-  if (sy_DISPLAYDEBUGMSG && NULL == /*_.VALDATA___V4480*/ curfptr[4479])
-  /*_.VALDATA___V4480*/ curfptr[4479] = (void*) sy_DISPLAYDEBUGMSG; }
+  if (sy_DISPLAYDEBUGMSG && NULL == /*_.VALDATA___V4472*/ curfptr[4471])
+  /*_.VALDATA___V4472*/ curfptr[4471] = (void*) sy_DISPLAYDEBUGMSG; }
  
  /**initial routine cdata initializer**/
 
@@ -72678,78 +53831,28 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V764*/ curfptr[763]);
  
- MELT_LOCATION("warmelt-first.melt:650:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V767*/ curfptr[766]);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V755*/ curfptr[754]);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V766*/ curfptr[765]);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V769*/ curfptr[768]);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V768*/ curfptr[767])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V755*/ curfptr[754]);
- 
- MELT_LOCATION("warmelt-first.melt:650:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V768*/ curfptr[767]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]);
- 
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V768*/ curfptr[767]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V766*/ curfptr[765]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V770*/ curfptr[769]);
+ meltgc_touch(/*_.VALTUP___V766*/ curfptr[765]);
  
  MELT_LOCATION("warmelt-first.melt:650:/ putslot");
  /*putslot*/
@@ -72757,13 +53860,33 @@ initial_frame_st     curfram__;
  
  melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V755*/ curfptr[754]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V770*/ curfptr[769]);
+  /*_.VALTUP___V766*/ curfptr[765]);
  
  MELT_LOCATION("warmelt-first.melt:650:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V755*/ curfptr[754]);
  
  /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V768*/ curfptr[767]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V767*/ curfptr[766]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V769*/ curfptr[768])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V770*/ curfptr[769]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V769*/ curfptr[768]);
+ 
+ /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]))));
@@ -72793,6 +53916,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V775*/ curfptr[774]);
  
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT);
  
@@ -72800,72 +53924,111 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V778*/ curfptr[777]);
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V777*/ curfptr[776]);
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALDATA___V9*/ curfptr[8]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V779*/ curfptr[778]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V779*/ curfptr[778]);
  
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V780*/ curfptr[779]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V779*/ curfptr[778]);
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V779*/ curfptr[778]);
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V781*/ curfptr[780]);
  
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V781*/ curfptr[780])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V781*/ curfptr[780]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V781*/ curfptr[780]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V782*/ curfptr[781]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V777*/ curfptr[776]);
  
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V781*/ curfptr[780]);
+ meltgc_touch(/*_.VALDATA___V780*/ curfptr[779]);
  
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V783*/ curfptr[782])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V784*/ curfptr[783]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V783*/ curfptr[782]);
  
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V777*/ curfptr[776]);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V783*/ curfptr[782]);
+ meltgc_touch(/*_.VALDATA___V782*/ curfptr[781]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V786*/ curfptr[785]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V785*/ curfptr[784]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V9*/ curfptr[8]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V787*/ curfptr[786]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V784*/ curfptr[783]);
  
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V787*/ curfptr[786]);
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V786*/ curfptr[785])) == OBMAG_OBJECT);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V786*/ curfptr[785]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V786*/ curfptr[785]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V787*/ curfptr[786]);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V786*/ curfptr[785])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V786*/ curfptr[785]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V786*/ curfptr[785]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V787*/ curfptr[786]);
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V786*/ curfptr[785]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ curfptr[787])) == OBMAG_OBJECT);
  
@@ -72873,19 +54036,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V789*/ curfptr[788]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V788*/ curfptr[787])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V788*/ curfptr[787]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V790*/ curfptr[789])) == OBMAG_OBJECT);
  
@@ -72893,19 +54056,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V791*/ curfptr[790]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V790*/ curfptr[789])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V790*/ curfptr[789]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V792*/ curfptr[791])) == OBMAG_OBJECT);
  
@@ -72913,19 +54076,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V793*/ curfptr[792]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V792*/ curfptr[791])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V792*/ curfptr[791]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ curfptr[793])) == OBMAG_OBJECT);
  
@@ -72933,19 +54096,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V795*/ curfptr[794]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V794*/ curfptr[793])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V794*/ curfptr[793]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])) == OBMAG_OBJECT);
  
@@ -72953,19 +54116,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V797*/ curfptr[796]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V796*/ curfptr[795]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT);
  
@@ -72973,19 +54136,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V799*/ curfptr[798]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V798*/ curfptr[797]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V800*/ curfptr[799])) == OBMAG_OBJECT);
  
@@ -72993,19 +54156,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V801*/ curfptr[800]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V800*/ curfptr[799])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V800*/ curfptr[799]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])) == OBMAG_OBJECT);
  
@@ -73013,19 +54176,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V803*/ curfptr[802]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V802*/ curfptr[801])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V802*/ curfptr[801]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT);
  
@@ -73033,19 +54196,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V805*/ curfptr[804]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V804*/ curfptr[803])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V804*/ curfptr[803]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V806*/ curfptr[805])) == OBMAG_OBJECT);
  
@@ -73053,19 +54216,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V807*/ curfptr[806]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V806*/ curfptr[805])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V806*/ curfptr[805]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])) == OBMAG_OBJECT);
  
@@ -73073,187 +54236,147 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V809*/ curfptr[808]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V808*/ curfptr[807])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
+  /*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V808*/ curfptr[807]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V811*/ curfptr[810]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V810*/ curfptr[809]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V813*/ curfptr[812]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V812*/ curfptr[811]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V815*/ curfptr[814]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V814*/ curfptr[813])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V814*/ curfptr[813]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V816*/ curfptr[815])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V817*/ curfptr[816]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V816*/ curfptr[815])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V785*/ curfptr[784]);
- 
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V816*/ curfptr[815]);
- 
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V786*/ curfptr[785]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V790*/ curfptr[789]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V792*/ curfptr[791]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V794*/ curfptr[793]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V800*/ curfptr[799]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V804*/ curfptr[803]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V806*/ curfptr[805]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V818*/ curfptr[817]))->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V816*/ curfptr[815]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V810*/ curfptr[809]))->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V808*/ curfptr[807]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V818*/ curfptr[817]);
+ meltgc_touch(/*_.VALTUP___V810*/ curfptr[809]);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V810*/ curfptr[809]);
+ 
+ MELT_LOCATION("warmelt-first.melt:665:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V777*/ curfptr[776]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V811*/ curfptr[810])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V811*/ curfptr[810]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V811*/ curfptr[810]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V812*/ curfptr[811]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V811*/ curfptr[810]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V813*/ curfptr[812])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V813*/ curfptr[812]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V813*/ curfptr[812]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V814*/ curfptr[813]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V813*/ curfptr[812]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V816*/ curfptr[815]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V815*/ curfptr[814]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V818*/ curfptr[817]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V818*/ curfptr[817]);
  
- MELT_LOCATION("warmelt-first.melt:670:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V785*/ curfptr[784]);
+ meltgc_touch(/*_.VALDATA___V817*/ curfptr[816]);
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])) == OBMAG_OBJECT);
@@ -73375,6 +54498,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V841*/ curfptr[840]);
  
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT);
  
@@ -73382,72 +54506,111 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V844*/ curfptr[843]);
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V843*/ curfptr[842]);
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALDATA___V9*/ curfptr[8]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V845*/ curfptr[844]);
  
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V845*/ curfptr[844])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V845*/ curfptr[844]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V845*/ curfptr[844]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V846*/ curfptr[845]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V845*/ curfptr[844]);
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V845*/ curfptr[844]);
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT);
  
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V847*/ curfptr[846]);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V847*/ curfptr[846])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V848*/ curfptr[847]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V843*/ curfptr[842]);
  
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V847*/ curfptr[846]);
+ meltgc_touch(/*_.VALDATA___V846*/ curfptr[845]);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V849*/ curfptr[848]);
  
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V849*/ curfptr[848])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V849*/ curfptr[848]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V849*/ curfptr[848]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V850*/ curfptr[849]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V843*/ curfptr[842]);
  
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V849*/ curfptr[848]);
+ meltgc_touch(/*_.VALDATA___V848*/ curfptr[847]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V850*/ curfptr[849])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V852*/ curfptr[851]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V851*/ curfptr[850]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V850*/ curfptr[849])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V9*/ curfptr[8]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V843*/ curfptr[842]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V853*/ curfptr[852]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V853*/ curfptr[852]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V853*/ curfptr[852]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V850*/ curfptr[849]);
  
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V853*/ curfptr[852]);
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V853*/ curfptr[852]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V852*/ curfptr[851])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V853*/ curfptr[852]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V843*/ curfptr[842]);
+ 
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V852*/ curfptr[851]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853])) == OBMAG_OBJECT);
  
@@ -73455,19 +54618,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V855*/ curfptr[854]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+  /*_.VALDATA___V843*/ curfptr[842]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V854*/ curfptr[853]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855])) == OBMAG_OBJECT);
  
@@ -73475,19 +54638,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V857*/ curfptr[856]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+  /*_.VALDATA___V843*/ curfptr[842]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V856*/ curfptr[855]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857])) == OBMAG_OBJECT);
  
@@ -73495,19 +54658,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V859*/ curfptr[858]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+  /*_.VALDATA___V843*/ curfptr[842]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V858*/ curfptr[857]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859])) == OBMAG_OBJECT);
  
@@ -73515,19 +54678,19 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V861*/ curfptr[860]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+  /*_.VALDATA___V843*/ curfptr[842]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V860*/ curfptr[859]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])) == OBMAG_OBJECT);
  
@@ -73535,157 +54698,117 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+  /*_.VALDATA___V843*/ curfptr[842]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V862*/ curfptr[861]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V864*/ curfptr[863])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V865*/ curfptr[864]);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V864*/ curfptr[863])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V864*/ curfptr[863]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V866*/ curfptr[865])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V867*/ curfptr[866]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V866*/ curfptr[865])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V866*/ curfptr[865]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V868*/ curfptr[867])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V864*/ curfptr[863]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V869*/ curfptr[868]);
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V864*/ curfptr[863]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:705:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V868*/ curfptr[867])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V864*/ curfptr[863]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
+ MELT_LOCATION("warmelt-first.melt:705:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V868*/ curfptr[867]);
- 
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V870*/ curfptr[869])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V870*/ curfptr[869]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V870*/ curfptr[869]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V871*/ curfptr[870]);
+ meltgc_touch(/*_.VALDATA___V843*/ curfptr[842]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V870*/ curfptr[869])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V865*/ curfptr[864])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V870*/ curfptr[869]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V870*/ curfptr[869]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V865*/ curfptr[864]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V865*/ curfptr[864]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V866*/ curfptr[865]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V870*/ curfptr[869]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]);
+ meltgc_touch(/*_.VALDATA___V865*/ curfptr[864]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]);
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V867*/ curfptr[866])) == OBMAG_OBJECT);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V867*/ curfptr[866]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V867*/ curfptr[866]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V868*/ curfptr[867]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]);
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V867*/ curfptr[866]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]);
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])) == OBMAG_OBJECT);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V872*/ curfptr[871]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V870*/ curfptr[869]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V870*/ curfptr[869]);
  
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V872*/ curfptr[871]);
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V869*/ curfptr[868]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V871*/ curfptr[870])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V872*/ curfptr[871]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V871*/ curfptr[870]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V871*/ curfptr[870]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V872*/ curfptr[871]);
  
- MELT_LOCATION("warmelt-first.melt:710:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V851*/ curfptr[850]);
+ meltgc_touch(/*_.VALDATA___V871*/ curfptr[870]);
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V873*/ curfptr[872])) == OBMAG_OBJECT);
@@ -73747,6 +54870,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V883*/ curfptr[882]);
  
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])) == OBMAG_OBJECT);
  
@@ -73754,11628 +54878,11706 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V886*/ curfptr[885]);
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V885*/ curfptr[884]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V888*/ curfptr[887]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V887*/ curfptr[886]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V889*/ curfptr[888])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V889*/ curfptr[888]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V889*/ curfptr[888]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V890*/ curfptr[889]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V889*/ curfptr[888]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V891*/ curfptr[890])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V891*/ curfptr[890]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V891*/ curfptr[890]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V892*/ curfptr[891]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V891*/ curfptr[890]);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V894*/ curfptr[893]);
- 
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V851*/ curfptr[850]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALDATA___V843*/ curfptr[842]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V895*/ curfptr[894]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V895*/ curfptr[894]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V895*/ curfptr[894]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V895*/ curfptr[894]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V895*/ curfptr[894]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V895*/ curfptr[894]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V851*/ curfptr[850]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V895*/ curfptr[894]);
+ meltgc_touch(/*_.VALTUP___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V895*/ curfptr[894]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V896*/ curfptr[895])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V897*/ curfptr[896]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V889*/ curfptr[888]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V896*/ curfptr[895])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V893*/ curfptr[892]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V885*/ curfptr[884]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V896*/ curfptr[895]);
+ meltgc_touch(/*_.VALDATA___V888*/ curfptr[887]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V899*/ curfptr[898]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V891*/ curfptr[890]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V898*/ curfptr[897])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V893*/ curfptr[892]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V885*/ curfptr[884]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V898*/ curfptr[897]);
+ meltgc_touch(/*_.VALDATA___V890*/ curfptr[889]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V892*/ curfptr[891])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V901*/ curfptr[900]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V893*/ curfptr[892]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V900*/ curfptr[899])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V892*/ curfptr[891])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V893*/ curfptr[892]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V885*/ curfptr[884]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V900*/ curfptr[899]);
+ meltgc_touch(/*_.VALDATA___V892*/ curfptr[891]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V903*/ curfptr[902]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V895*/ curfptr[894]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V894*/ curfptr[893])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V893*/ curfptr[892]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V885*/ curfptr[884]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V902*/ curfptr[901]);
+ meltgc_touch(/*_.VALDATA___V894*/ curfptr[893]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V850*/ curfptr[849]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V852*/ curfptr[851]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V854*/ curfptr[853]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V856*/ curfptr[855]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V858*/ curfptr[857]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V870*/ curfptr[869]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V896*/ curfptr[895]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V898*/ curfptr[897]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V900*/ curfptr[899]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V892*/ curfptr[891]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V904*/ curfptr[903]))->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V896*/ curfptr[895]))->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V894*/ curfptr[893]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V904*/ curfptr[903]);
+ meltgc_touch(/*_.VALTUP___V896*/ curfptr[895]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V893*/ curfptr[892]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V904*/ curfptr[903]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V896*/ curfptr[895]);
  
- MELT_LOCATION("warmelt-first.melt:737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V893*/ curfptr[892]);
+ meltgc_touch(/*_.VALDATA___V885*/ curfptr[884]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V906*/ curfptr[905]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V898*/ curfptr[897]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V905*/ curfptr[904]);
+ meltgc_touch(/*_.VALDATA___V897*/ curfptr[896]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V899*/ curfptr[898])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V908*/ curfptr[907]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V899*/ curfptr[898]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V899*/ curfptr[898]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V900*/ curfptr[899]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V907*/ curfptr[906]);
+ meltgc_touch(/*_.VALDATA___V899*/ curfptr[898]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V901*/ curfptr[900])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V910*/ curfptr[909]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V901*/ curfptr[900]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V901*/ curfptr[900]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V902*/ curfptr[901]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V909*/ curfptr[908]);
+ meltgc_touch(/*_.VALDATA___V901*/ curfptr[900]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V903*/ curfptr[902])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V912*/ curfptr[911]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V903*/ curfptr[902]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V903*/ curfptr[902]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V904*/ curfptr[903]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V911*/ curfptr[910]);
+ meltgc_touch(/*_.VALDATA___V903*/ curfptr[902]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V914*/ curfptr[913]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V906*/ curfptr[905]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V913*/ curfptr[912]);
+ meltgc_touch(/*_.VALDATA___V905*/ curfptr[904]);
  
- MELT_LOCATION("warmelt-first.melt:755:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:750:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V916*/ curfptr[915]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V908*/ curfptr[907]);
  
- MELT_LOCATION("warmelt-first.melt:755:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:750:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[4] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))->obj_vartab[4] = (melt_ptr_t)(
   /*_.VALDATA___V9*/ curfptr[8]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V917*/ curfptr[916]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V917*/ curfptr[916]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V917*/ curfptr[916]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V909*/ curfptr[908]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V909*/ curfptr[908]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V909*/ curfptr[908]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V917*/ curfptr[916]);
+ meltgc_touch(/*_.VALTUP___V909*/ curfptr[908]);
  
- MELT_LOCATION("warmelt-first.melt:755:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:750:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V917*/ curfptr[916]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V909*/ curfptr[908]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V918*/ curfptr[917]);
+ meltgc_touch(/*_.VALTUP___V910*/ curfptr[909]);
  
- MELT_LOCATION("warmelt-first.melt:755:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:750:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V918*/ curfptr[917]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V910*/ curfptr[909]);
  
- MELT_LOCATION("warmelt-first.melt:755:/ touch");
+ MELT_LOCATION("warmelt-first.melt:750:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V915*/ curfptr[914]);
+ meltgc_touch(/*_.VALDATA___V907*/ curfptr[906]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V919*/ curfptr[918])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V920*/ curfptr[919]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V912*/ curfptr[911]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V919*/ curfptr[918]);
+ meltgc_touch(/*_.VALDATA___V911*/ curfptr[910]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:768:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V922*/ curfptr[921]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V914*/ curfptr[913]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V925*/ curfptr[924]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V917*/ curfptr[916]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V924*/ curfptr[923]);
+ meltgc_touch(/*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:768:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:768:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:773:/ touch");
+ MELT_LOCATION("warmelt-first.melt:768:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V923*/ curfptr[922]);
+ meltgc_touch(/*_.VALDATA___V915*/ curfptr[914]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V926*/ curfptr[925]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V926*/ curfptr[925]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V926*/ curfptr[925]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V918*/ curfptr[917]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V918*/ curfptr[917]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V918*/ curfptr[917]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V915*/ curfptr[914]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V926*/ curfptr[925]);
+ meltgc_touch(/*_.VALTUP___V918*/ curfptr[917]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:768:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V926*/ curfptr[925]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V918*/ curfptr[917]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:768:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V927*/ curfptr[926]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V919*/ curfptr[918]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V928*/ curfptr[927]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V921*/ curfptr[920]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V920*/ curfptr[919]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V929*/ curfptr[928]);
+ meltgc_touch(/*_.VALTUP___V921*/ curfptr[920]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:768:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V921*/ curfptr[920]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V929*/ curfptr[928]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V921*/ curfptr[920]);
  
- MELT_LOCATION("warmelt-first.melt:773:/ touch");
+ MELT_LOCATION("warmelt-first.melt:768:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V921*/ curfptr[920]);
+ meltgc_touch(/*_.VALDATA___V913*/ curfptr[912]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V922*/ curfptr[921])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V931*/ curfptr[930]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V923*/ curfptr[922]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V930*/ curfptr[929]);
+ meltgc_touch(/*_.VALDATA___V922*/ curfptr[921]);
  
- MELT_LOCATION("warmelt-first.melt:778:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:773:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V933*/ curfptr[932]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V925*/ curfptr[924]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V934*/ curfptr[933]);
+ meltgc_touch(/*_.VALTUP___V926*/ curfptr[925]);
  
- MELT_LOCATION("warmelt-first.melt:778:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:773:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V934*/ curfptr[933]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V926*/ curfptr[925]);
  
- MELT_LOCATION("warmelt-first.melt:778:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:773:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V936*/ curfptr[935]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V936*/ curfptr[935]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V936*/ curfptr[935]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V935*/ curfptr[934]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V928*/ curfptr[927]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V927*/ curfptr[926]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V936*/ curfptr[935]);
+ meltgc_touch(/*_.VALTUP___V928*/ curfptr[927]);
  
- MELT_LOCATION("warmelt-first.melt:778:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:773:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V936*/ curfptr[935]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V928*/ curfptr[927]);
  
- MELT_LOCATION("warmelt-first.melt:778:/ touch");
+ MELT_LOCATION("warmelt-first.melt:773:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V932*/ curfptr[931]);
+ meltgc_touch(/*_.VALDATA___V924*/ curfptr[923]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V929*/ curfptr[928])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V938*/ curfptr[937]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V929*/ curfptr[928]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V929*/ curfptr[928]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V930*/ curfptr[929]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V937*/ curfptr[936]);
+ meltgc_touch(/*_.VALDATA___V929*/ curfptr[928]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V940*/ curfptr[939]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V932*/ curfptr[931]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V943*/ curfptr[942]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V935*/ curfptr[934]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V942*/ curfptr[941]);
+ meltgc_touch(/*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V941*/ curfptr[940])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V933*/ curfptr[932])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V941*/ curfptr[940]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V941*/ curfptr[940]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V941*/ curfptr[940])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V933*/ curfptr[932])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V941*/ curfptr[940]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V941*/ curfptr[940]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:783:/ touch");
+ MELT_LOCATION("warmelt-first.melt:778:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V941*/ curfptr[940]);
+ meltgc_touch(/*_.VALDATA___V933*/ curfptr[932]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V945*/ curfptr[944])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V945*/ curfptr[944]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V945*/ curfptr[944]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V946*/ curfptr[945]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V938*/ curfptr[937]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V945*/ curfptr[944]);
+ meltgc_touch(/*_.VALDATA___V937*/ curfptr[936]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V936*/ curfptr[935])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V945*/ curfptr[944]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V937*/ curfptr[936]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V936*/ curfptr[935])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:783:/ touch");
+ MELT_LOCATION("warmelt-first.melt:778:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V944*/ curfptr[943]);
+ meltgc_touch(/*_.VALDATA___V936*/ curfptr[935]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V947*/ curfptr[946]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V947*/ curfptr[946]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V947*/ curfptr[946]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V941*/ curfptr[940]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ curfptr[938]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ curfptr[938]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ curfptr[938]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V933*/ curfptr[932]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V947*/ curfptr[946]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V947*/ curfptr[946]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V947*/ curfptr[946]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V939*/ curfptr[938]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V939*/ curfptr[938]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V939*/ curfptr[938]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V936*/ curfptr[935]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V947*/ curfptr[946]);
+ meltgc_touch(/*_.VALTUP___V939*/ curfptr[938]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V947*/ curfptr[946]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V939*/ curfptr[938]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V948*/ curfptr[947]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V940*/ curfptr[939]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V949*/ curfptr[948]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V941*/ curfptr[940]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V945*/ curfptr[944]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V951*/ curfptr[950]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V950*/ curfptr[949]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V942*/ curfptr[941]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V951*/ curfptr[950]);
+ meltgc_touch(/*_.VALTUP___V943*/ curfptr[942]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:778:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V951*/ curfptr[950]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V931*/ curfptr[930]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V943*/ curfptr[942]);
  
- MELT_LOCATION("warmelt-first.melt:783:/ touch");
+ MELT_LOCATION("warmelt-first.melt:778:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V939*/ curfptr[938]);
+ meltgc_touch(/*_.VALDATA___V931*/ curfptr[930]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V953*/ curfptr[952]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V945*/ curfptr[944]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V952*/ curfptr[951]);
+ meltgc_touch(/*_.VALDATA___V944*/ curfptr[943]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V955*/ curfptr[954]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V947*/ curfptr[946]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V958*/ curfptr[957]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V950*/ curfptr[949]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V957*/ curfptr[956]);
+ meltgc_touch(/*_.VALDATA___V949*/ curfptr[948]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V956*/ curfptr[955])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V948*/ curfptr[947])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V948*/ curfptr[947]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V948*/ curfptr[947]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V949*/ curfptr[948]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V956*/ curfptr[955])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V948*/ curfptr[947])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V948*/ curfptr[947]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V948*/ curfptr[947]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:789:/ touch");
+ MELT_LOCATION("warmelt-first.melt:784:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V956*/ curfptr[955]);
+ meltgc_touch(/*_.VALDATA___V948*/ curfptr[947]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V961*/ curfptr[960]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V953*/ curfptr[952]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V960*/ curfptr[959]);
+ meltgc_touch(/*_.VALDATA___V952*/ curfptr[951]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V960*/ curfptr[959]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V952*/ curfptr[951]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:789:/ touch");
+ MELT_LOCATION("warmelt-first.melt:784:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V959*/ curfptr[958]);
+ meltgc_touch(/*_.VALDATA___V951*/ curfptr[950]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V962*/ curfptr[961]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V962*/ curfptr[961]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V962*/ curfptr[961]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ curfptr[953]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ curfptr[953]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ curfptr[953]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V948*/ curfptr[947]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V962*/ curfptr[961]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V962*/ curfptr[961]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V962*/ curfptr[961]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V954*/ curfptr[953]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V954*/ curfptr[953]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V954*/ curfptr[953]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V962*/ curfptr[961]);
+ meltgc_touch(/*_.VALTUP___V954*/ curfptr[953]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V962*/ curfptr[961]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V954*/ curfptr[953]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V963*/ curfptr[962]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V955*/ curfptr[954]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V964*/ curfptr[963]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V956*/ curfptr[955]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V966*/ curfptr[965]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V965*/ curfptr[964]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V958*/ curfptr[957]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V957*/ curfptr[956]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V966*/ curfptr[965]);
+ meltgc_touch(/*_.VALTUP___V958*/ curfptr[957]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:784:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V954*/ curfptr[953]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V966*/ curfptr[965]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V958*/ curfptr[957]);
  
- MELT_LOCATION("warmelt-first.melt:789:/ touch");
+ MELT_LOCATION("warmelt-first.melt:784:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V954*/ curfptr[953]);
+ meltgc_touch(/*_.VALDATA___V946*/ curfptr[945]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V968*/ curfptr[967]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V960*/ curfptr[959]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V967*/ curfptr[966]);
+ meltgc_touch(/*_.VALDATA___V959*/ curfptr[958]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V970*/ curfptr[969]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V962*/ curfptr[961]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ curfptr[970])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V963*/ curfptr[962])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V949*/ curfptr[948]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V971*/ curfptr[970])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V963*/ curfptr[962])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:796:/ touch");
+ MELT_LOCATION("warmelt-first.melt:791:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V971*/ curfptr[970]);
+ meltgc_touch(/*_.VALDATA___V963*/ curfptr[962]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V964*/ curfptr[963])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V960*/ curfptr[959]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V964*/ curfptr[963]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V964*/ curfptr[963]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V952*/ curfptr[951]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V964*/ curfptr[963])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V964*/ curfptr[963]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V964*/ curfptr[963]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:796:/ touch");
+ MELT_LOCATION("warmelt-first.melt:791:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V972*/ curfptr[971]);
+ meltgc_touch(/*_.VALDATA___V964*/ curfptr[963]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ curfptr[972]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ curfptr[972]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ curfptr[972]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V971*/ curfptr[970]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V965*/ curfptr[964]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V965*/ curfptr[964]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V965*/ curfptr[964]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V963*/ curfptr[962]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V973*/ curfptr[972]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V973*/ curfptr[972]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V973*/ curfptr[972]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V965*/ curfptr[964]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V965*/ curfptr[964]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V965*/ curfptr[964]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V964*/ curfptr[963]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V973*/ curfptr[972]);
+ meltgc_touch(/*_.VALTUP___V965*/ curfptr[964]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V973*/ curfptr[972]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V965*/ curfptr[964]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V974*/ curfptr[973]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V966*/ curfptr[965]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V975*/ curfptr[974]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V967*/ curfptr[966]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V977*/ curfptr[976]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V976*/ curfptr[975]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V969*/ curfptr[968]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V968*/ curfptr[967]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V977*/ curfptr[976]);
+ meltgc_touch(/*_.VALTUP___V969*/ curfptr[968]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V969*/ curfptr[968]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V977*/ curfptr[976]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V961*/ curfptr[960]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V969*/ curfptr[968]);
  
- MELT_LOCATION("warmelt-first.melt:796:/ touch");
+ MELT_LOCATION("warmelt-first.melt:791:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V969*/ curfptr[968]);
+ meltgc_touch(/*_.VALDATA___V961*/ curfptr[960]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V978*/ curfptr[977])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V970*/ curfptr[969])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V978*/ curfptr[977]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V978*/ curfptr[977]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V979*/ curfptr[978]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V971*/ curfptr[970]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V978*/ curfptr[977]);
+ meltgc_touch(/*_.VALDATA___V970*/ curfptr[969]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:797:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V981*/ curfptr[980]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V973*/ curfptr[972]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:797:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V982*/ curfptr[981])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V982*/ curfptr[981]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V982*/ curfptr[981]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V949*/ curfptr[948]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:797:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V982*/ curfptr[981])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V982*/ curfptr[981]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V982*/ curfptr[981]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:802:/ touch");
+ MELT_LOCATION("warmelt-first.melt:797:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V982*/ curfptr[981]);
+ meltgc_touch(/*_.VALDATA___V974*/ curfptr[973]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V983*/ curfptr[982]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V983*/ curfptr[982]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V983*/ curfptr[982]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V982*/ curfptr[981]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V975*/ curfptr[974]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V975*/ curfptr[974]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V975*/ curfptr[974]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V983*/ curfptr[982]);
+ meltgc_touch(/*_.VALTUP___V975*/ curfptr[974]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:797:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V983*/ curfptr[982]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V975*/ curfptr[974]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:797:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V984*/ curfptr[983]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V976*/ curfptr[975]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V986*/ curfptr[985]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V985*/ curfptr[984]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V977*/ curfptr[976]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V986*/ curfptr[985]);
+ meltgc_touch(/*_.VALTUP___V978*/ curfptr[977]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:797:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V980*/ curfptr[979]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V986*/ curfptr[985]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V978*/ curfptr[977]);
  
- MELT_LOCATION("warmelt-first.melt:802:/ touch");
+ MELT_LOCATION("warmelt-first.melt:797:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V980*/ curfptr[979]);
+ meltgc_touch(/*_.VALDATA___V972*/ curfptr[971]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V987*/ curfptr[986])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V988*/ curfptr[987]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V980*/ curfptr[979]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V987*/ curfptr[986]);
+ meltgc_touch(/*_.VALDATA___V979*/ curfptr[978]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:801:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V990*/ curfptr[989]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V982*/ curfptr[981]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:801:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V991*/ curfptr[990])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V983*/ curfptr[982])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V949*/ curfptr[948]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:801:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V991*/ curfptr[990])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V983*/ curfptr[982])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:806:/ touch");
+ MELT_LOCATION("warmelt-first.melt:801:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V991*/ curfptr[990]);
+ meltgc_touch(/*_.VALDATA___V983*/ curfptr[982]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V992*/ curfptr[991]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V992*/ curfptr[991]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V992*/ curfptr[991]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V991*/ curfptr[990]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V984*/ curfptr[983]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V984*/ curfptr[983]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V984*/ curfptr[983]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V983*/ curfptr[982]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V992*/ curfptr[991]);
+ meltgc_touch(/*_.VALTUP___V984*/ curfptr[983]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:801:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V992*/ curfptr[991]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V984*/ curfptr[983]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:801:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V993*/ curfptr[992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V985*/ curfptr[984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V994*/ curfptr[993]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V987*/ curfptr[986]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V986*/ curfptr[985]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V995*/ curfptr[994]);
+ meltgc_touch(/*_.VALTUP___V987*/ curfptr[986]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:801:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V989*/ curfptr[988]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V995*/ curfptr[994]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V987*/ curfptr[986]);
  
- MELT_LOCATION("warmelt-first.melt:806:/ touch");
+ MELT_LOCATION("warmelt-first.melt:801:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V989*/ curfptr[988]);
+ meltgc_touch(/*_.VALDATA___V981*/ curfptr[980]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V996*/ curfptr[995])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V996*/ curfptr[995]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V996*/ curfptr[995]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V997*/ curfptr[996]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V989*/ curfptr[988]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V996*/ curfptr[995]);
+ meltgc_touch(/*_.VALDATA___V988*/ curfptr[987]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:807:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V999*/ curfptr[998]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V991*/ curfptr[990]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1002*/ curfptr[1001]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V994*/ curfptr[993]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1001*/ curfptr[1000]);
+ meltgc_touch(/*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:807:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V992*/ curfptr[991])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V992*/ curfptr[991]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V992*/ curfptr[991]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:807:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V992*/ curfptr[991])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V992*/ curfptr[991]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V992*/ curfptr[991]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:812:/ touch");
+ MELT_LOCATION("warmelt-first.melt:807:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1000*/ curfptr[999]);
+ meltgc_touch(/*_.VALDATA___V992*/ curfptr[991]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1003*/ curfptr[1002]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1003*/ curfptr[1002]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1003*/ curfptr[1002]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V995*/ curfptr[994]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V992*/ curfptr[991]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1003*/ curfptr[1002]);
+ meltgc_touch(/*_.VALTUP___V995*/ curfptr[994]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:807:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1003*/ curfptr[1002]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V995*/ curfptr[994]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:807:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1004*/ curfptr[1003]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V996*/ curfptr[995]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1005*/ curfptr[1004]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V998*/ curfptr[997]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V997*/ curfptr[996]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1006*/ curfptr[1005]);
+ meltgc_touch(/*_.VALTUP___V998*/ curfptr[997]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:807:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V998*/ curfptr[997]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1006*/ curfptr[1005]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V990*/ curfptr[989]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V998*/ curfptr[997]);
  
- MELT_LOCATION("warmelt-first.melt:812:/ touch");
+ MELT_LOCATION("warmelt-first.melt:807:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V998*/ curfptr[997]);
+ meltgc_touch(/*_.VALDATA___V990*/ curfptr[989]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V999*/ curfptr[998])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1008*/ curfptr[1007]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V999*/ curfptr[998]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V999*/ curfptr[998]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1000*/ curfptr[999]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1007*/ curfptr[1006]);
+ meltgc_touch(/*_.VALDATA___V999*/ curfptr[998]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:812:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1010*/ curfptr[1009]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1002*/ curfptr[1001]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:812:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:812:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:817:/ touch");
+ MELT_LOCATION("warmelt-first.melt:812:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1011*/ curfptr[1010]);
+ meltgc_touch(/*_.VALDATA___V1003*/ curfptr[1002]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1012*/ curfptr[1011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1012*/ curfptr[1011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1012*/ curfptr[1011]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1011*/ curfptr[1010]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1004*/ curfptr[1003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1004*/ curfptr[1003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1004*/ curfptr[1003]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1003*/ curfptr[1002]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1012*/ curfptr[1011]);
+ meltgc_touch(/*_.VALTUP___V1004*/ curfptr[1003]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:812:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1012*/ curfptr[1011]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1004*/ curfptr[1003]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:812:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1013*/ curfptr[1012]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1005*/ curfptr[1004]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1015*/ curfptr[1014]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1014*/ curfptr[1013]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1007*/ curfptr[1006]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1006*/ curfptr[1005]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1015*/ curfptr[1014]);
+ meltgc_touch(/*_.VALTUP___V1007*/ curfptr[1006]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:812:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1015*/ curfptr[1014]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1007*/ curfptr[1006]);
  
- MELT_LOCATION("warmelt-first.melt:817:/ touch");
+ MELT_LOCATION("warmelt-first.melt:812:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1009*/ curfptr[1008]);
+ meltgc_touch(/*_.VALDATA___V1001*/ curfptr[1000]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1017*/ curfptr[1016]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1009*/ curfptr[1008]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1016*/ curfptr[1015]);
+ meltgc_touch(/*_.VALDATA___V1008*/ curfptr[1007]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:817:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1019*/ curfptr[1018]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1011*/ curfptr[1010]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:817:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:817:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:822:/ touch");
+ MELT_LOCATION("warmelt-first.melt:817:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1020*/ curfptr[1019]);
+ meltgc_touch(/*_.VALDATA___V1012*/ curfptr[1011]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1021*/ curfptr[1020]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1021*/ curfptr[1020]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1021*/ curfptr[1020]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1020*/ curfptr[1019]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1013*/ curfptr[1012]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1013*/ curfptr[1012]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1013*/ curfptr[1012]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1012*/ curfptr[1011]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1021*/ curfptr[1020]);
+ meltgc_touch(/*_.VALTUP___V1013*/ curfptr[1012]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:817:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1021*/ curfptr[1020]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1013*/ curfptr[1012]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:817:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1022*/ curfptr[1021]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1014*/ curfptr[1013]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1024*/ curfptr[1023]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1023*/ curfptr[1022]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1016*/ curfptr[1015]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1015*/ curfptr[1014]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1024*/ curfptr[1023]);
+ meltgc_touch(/*_.VALTUP___V1016*/ curfptr[1015]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:817:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1018*/ curfptr[1017]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1024*/ curfptr[1023]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1010*/ curfptr[1009]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1016*/ curfptr[1015]);
  
- MELT_LOCATION("warmelt-first.melt:822:/ touch");
+ MELT_LOCATION("warmelt-first.melt:817:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1018*/ curfptr[1017]);
+ meltgc_touch(/*_.VALDATA___V1010*/ curfptr[1009]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1025*/ curfptr[1024])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1025*/ curfptr[1024]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1025*/ curfptr[1024]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1026*/ curfptr[1025]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1018*/ curfptr[1017]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1025*/ curfptr[1024]);
+ meltgc_touch(/*_.VALDATA___V1017*/ curfptr[1016]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1028*/ curfptr[1027]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1020*/ curfptr[1019]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:827:/ touch");
+ MELT_LOCATION("warmelt-first.melt:822:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1029*/ curfptr[1028]);
+ meltgc_touch(/*_.VALDATA___V1021*/ curfptr[1020]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1032*/ curfptr[1031]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1024*/ curfptr[1023]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1031*/ curfptr[1030]);
+ meltgc_touch(/*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:827:/ touch");
+ MELT_LOCATION("warmelt-first.melt:822:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1030*/ curfptr[1029]);
+ meltgc_touch(/*_.VALDATA___V1022*/ curfptr[1021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1033*/ curfptr[1032]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1033*/ curfptr[1032]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1033*/ curfptr[1032]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1029*/ curfptr[1028]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1025*/ curfptr[1024]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1025*/ curfptr[1024]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1025*/ curfptr[1024]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1033*/ curfptr[1032]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1033*/ curfptr[1032]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1033*/ curfptr[1032]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1025*/ curfptr[1024]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1025*/ curfptr[1024]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1025*/ curfptr[1024]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1022*/ curfptr[1021]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1033*/ curfptr[1032]);
+ meltgc_touch(/*_.VALTUP___V1025*/ curfptr[1024]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1033*/ curfptr[1032]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1025*/ curfptr[1024]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1034*/ curfptr[1033]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1026*/ curfptr[1025]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1035*/ curfptr[1034]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1027*/ curfptr[1026]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1037*/ curfptr[1036]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1036*/ curfptr[1035]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1029*/ curfptr[1028]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1028*/ curfptr[1027]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1037*/ curfptr[1036]);
+ meltgc_touch(/*_.VALTUP___V1029*/ curfptr[1028]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:822:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1027*/ curfptr[1026]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1037*/ curfptr[1036]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1019*/ curfptr[1018]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1029*/ curfptr[1028]);
  
- MELT_LOCATION("warmelt-first.melt:827:/ touch");
+ MELT_LOCATION("warmelt-first.melt:822:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1027*/ curfptr[1026]);
+ meltgc_touch(/*_.VALDATA___V1019*/ curfptr[1018]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1039*/ curfptr[1038]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1031*/ curfptr[1030]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1038*/ curfptr[1037]);
+ meltgc_touch(/*_.VALDATA___V1030*/ curfptr[1029]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:828:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1041*/ curfptr[1040]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1033*/ curfptr[1032]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:828:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:828:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:833:/ touch");
+ MELT_LOCATION("warmelt-first.melt:828:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1042*/ curfptr[1041]);
+ meltgc_touch(/*_.VALDATA___V1034*/ curfptr[1033]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1043*/ curfptr[1042]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1043*/ curfptr[1042]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1043*/ curfptr[1042]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1035*/ curfptr[1034]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1035*/ curfptr[1034]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1035*/ curfptr[1034]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1034*/ curfptr[1033]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1043*/ curfptr[1042]);
+ meltgc_touch(/*_.VALTUP___V1035*/ curfptr[1034]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:828:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1043*/ curfptr[1042]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1035*/ curfptr[1034]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:828:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1044*/ curfptr[1043]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1036*/ curfptr[1035]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1046*/ curfptr[1045]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1045*/ curfptr[1044]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1038*/ curfptr[1037]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1037*/ curfptr[1036]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1046*/ curfptr[1045]);
+ meltgc_touch(/*_.VALTUP___V1038*/ curfptr[1037]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:828:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1040*/ curfptr[1039]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1046*/ curfptr[1045]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1032*/ curfptr[1031]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1038*/ curfptr[1037]);
  
- MELT_LOCATION("warmelt-first.melt:833:/ touch");
+ MELT_LOCATION("warmelt-first.melt:828:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1040*/ curfptr[1039]);
+ meltgc_touch(/*_.VALDATA___V1032*/ curfptr[1031]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1039*/ curfptr[1038])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1048*/ curfptr[1047]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1039*/ curfptr[1038]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1039*/ curfptr[1038]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1040*/ curfptr[1039]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1047*/ curfptr[1046]);
+ meltgc_touch(/*_.VALDATA___V1039*/ curfptr[1038]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:832:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1050*/ curfptr[1049]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1042*/ curfptr[1041]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:832:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:832:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:837:/ touch");
+ MELT_LOCATION("warmelt-first.melt:832:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1051*/ curfptr[1050]);
+ meltgc_touch(/*_.VALDATA___V1043*/ curfptr[1042]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1052*/ curfptr[1051]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1052*/ curfptr[1051]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1052*/ curfptr[1051]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1044*/ curfptr[1043]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1044*/ curfptr[1043]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1044*/ curfptr[1043]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1043*/ curfptr[1042]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1052*/ curfptr[1051]);
+ meltgc_touch(/*_.VALTUP___V1044*/ curfptr[1043]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:832:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1052*/ curfptr[1051]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1044*/ curfptr[1043]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:832:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1053*/ curfptr[1052]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1045*/ curfptr[1044]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1054*/ curfptr[1053]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1047*/ curfptr[1046]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1046*/ curfptr[1045]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1055*/ curfptr[1054]);
+ meltgc_touch(/*_.VALTUP___V1047*/ curfptr[1046]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:832:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1055*/ curfptr[1054]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1041*/ curfptr[1040]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1047*/ curfptr[1046]);
  
- MELT_LOCATION("warmelt-first.melt:837:/ touch");
+ MELT_LOCATION("warmelt-first.melt:832:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1049*/ curfptr[1048]);
+ meltgc_touch(/*_.VALDATA___V1041*/ curfptr[1040]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1057*/ curfptr[1056]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1049*/ curfptr[1048]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1056*/ curfptr[1055]);
+ meltgc_touch(/*_.VALDATA___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:836:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1059*/ curfptr[1058]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1051*/ curfptr[1050]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:836:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:836:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:841:/ touch");
+ MELT_LOCATION("warmelt-first.melt:836:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1060*/ curfptr[1059]);
+ meltgc_touch(/*_.VALDATA___V1052*/ curfptr[1051]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1061*/ curfptr[1060]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1061*/ curfptr[1060]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1061*/ curfptr[1060]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1060*/ curfptr[1059]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1053*/ curfptr[1052]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1053*/ curfptr[1052]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1053*/ curfptr[1052]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1052*/ curfptr[1051]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1061*/ curfptr[1060]);
+ meltgc_touch(/*_.VALTUP___V1053*/ curfptr[1052]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:836:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1061*/ curfptr[1060]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1053*/ curfptr[1052]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:836:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1062*/ curfptr[1061]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1054*/ curfptr[1053]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1064*/ curfptr[1063]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1063*/ curfptr[1062]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1056*/ curfptr[1055]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1055*/ curfptr[1054]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1064*/ curfptr[1063]);
+ meltgc_touch(/*_.VALTUP___V1056*/ curfptr[1055]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:836:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1064*/ curfptr[1063]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1050*/ curfptr[1049]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1056*/ curfptr[1055]);
  
- MELT_LOCATION("warmelt-first.melt:841:/ touch");
+ MELT_LOCATION("warmelt-first.melt:836:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1058*/ curfptr[1057]);
+ meltgc_touch(/*_.VALDATA___V1050*/ curfptr[1049]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1066*/ curfptr[1065]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1058*/ curfptr[1057]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1065*/ curfptr[1064]);
+ meltgc_touch(/*_.VALDATA___V1057*/ curfptr[1056]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:840:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1068*/ curfptr[1067]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1060*/ curfptr[1059]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:840:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:840:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:845:/ touch");
+ MELT_LOCATION("warmelt-first.melt:840:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1069*/ curfptr[1068]);
+ meltgc_touch(/*_.VALDATA___V1061*/ curfptr[1060]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1070*/ curfptr[1069]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1070*/ curfptr[1069]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1070*/ curfptr[1069]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1069*/ curfptr[1068]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1062*/ curfptr[1061]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1062*/ curfptr[1061]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1062*/ curfptr[1061]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1061*/ curfptr[1060]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1070*/ curfptr[1069]);
+ meltgc_touch(/*_.VALTUP___V1062*/ curfptr[1061]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:840:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1070*/ curfptr[1069]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1062*/ curfptr[1061]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:840:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1071*/ curfptr[1070]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1063*/ curfptr[1062]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1073*/ curfptr[1072]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1072*/ curfptr[1071]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1065*/ curfptr[1064]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1064*/ curfptr[1063]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1073*/ curfptr[1072]);
+ meltgc_touch(/*_.VALTUP___V1065*/ curfptr[1064]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:840:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1067*/ curfptr[1066]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1073*/ curfptr[1072]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1059*/ curfptr[1058]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1065*/ curfptr[1064]);
  
- MELT_LOCATION("warmelt-first.melt:845:/ touch");
+ MELT_LOCATION("warmelt-first.melt:840:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1067*/ curfptr[1066]);
+ meltgc_touch(/*_.VALDATA___V1059*/ curfptr[1058]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1066*/ curfptr[1065])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1075*/ curfptr[1074]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1066*/ curfptr[1065]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1066*/ curfptr[1065]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1067*/ curfptr[1066]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1074*/ curfptr[1073]);
+ meltgc_touch(/*_.VALDATA___V1066*/ curfptr[1065]);
  
- MELT_LOCATION("warmelt-first.melt:850:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:845:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1077*/ curfptr[1076]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1069*/ curfptr[1068]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1078*/ curfptr[1077]);
+ meltgc_touch(/*_.VALTUP___V1070*/ curfptr[1069]);
  
- MELT_LOCATION("warmelt-first.melt:850:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:845:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1078*/ curfptr[1077]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1070*/ curfptr[1069]);
  
- MELT_LOCATION("warmelt-first.melt:850:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:845:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1080*/ curfptr[1079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1080*/ curfptr[1079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1080*/ curfptr[1079]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1079*/ curfptr[1078]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1072*/ curfptr[1071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1072*/ curfptr[1071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1072*/ curfptr[1071]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1071*/ curfptr[1070]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1080*/ curfptr[1079]);
+ meltgc_touch(/*_.VALTUP___V1072*/ curfptr[1071]);
  
- MELT_LOCATION("warmelt-first.melt:850:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:845:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1076*/ curfptr[1075]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1080*/ curfptr[1079]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1068*/ curfptr[1067]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1072*/ curfptr[1071]);
  
- MELT_LOCATION("warmelt-first.melt:850:/ touch");
+ MELT_LOCATION("warmelt-first.melt:845:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1076*/ curfptr[1075]);
+ meltgc_touch(/*_.VALDATA___V1068*/ curfptr[1067]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1082*/ curfptr[1081]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1074*/ curfptr[1073]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1081*/ curfptr[1080]);
+ meltgc_touch(/*_.VALDATA___V1073*/ curfptr[1072]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1084*/ curfptr[1083]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1076*/ curfptr[1075]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1087*/ curfptr[1086]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1079*/ curfptr[1078]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1086*/ curfptr[1085]);
+ meltgc_touch(/*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:855:/ touch");
+ MELT_LOCATION("warmelt-first.melt:850:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1085*/ curfptr[1084]);
+ meltgc_touch(/*_.VALDATA___V1077*/ curfptr[1076]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1090*/ curfptr[1089]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1082*/ curfptr[1081]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1089*/ curfptr[1088]);
+ meltgc_touch(/*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:855:/ touch");
+ MELT_LOCATION("warmelt-first.melt:850:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1088*/ curfptr[1087]);
+ meltgc_touch(/*_.VALDATA___V1080*/ curfptr[1079]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1091*/ curfptr[1090]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1091*/ curfptr[1090]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1091*/ curfptr[1090]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1085*/ curfptr[1084]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1091*/ curfptr[1090]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1091*/ curfptr[1090]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1091*/ curfptr[1090]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1080*/ curfptr[1079]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1091*/ curfptr[1090]);
+ meltgc_touch(/*_.VALTUP___V1083*/ curfptr[1082]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1091*/ curfptr[1090]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1083*/ curfptr[1082]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1092*/ curfptr[1091]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1084*/ curfptr[1083]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1093*/ curfptr[1092]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1085*/ curfptr[1084]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1095*/ curfptr[1094]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1094*/ curfptr[1093]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1087*/ curfptr[1086]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1086*/ curfptr[1085]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1095*/ curfptr[1094]);
+ meltgc_touch(/*_.VALTUP___V1087*/ curfptr[1086]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1083*/ curfptr[1082]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1095*/ curfptr[1094]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1087*/ curfptr[1086]);
  
- MELT_LOCATION("warmelt-first.melt:855:/ touch");
+ MELT_LOCATION("warmelt-first.melt:850:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1083*/ curfptr[1082]);
+ meltgc_touch(/*_.VALDATA___V1075*/ curfptr[1074]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1096*/ curfptr[1095])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1096*/ curfptr[1095]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1096*/ curfptr[1095]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1097*/ curfptr[1096]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1089*/ curfptr[1088]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1096*/ curfptr[1095]);
+ meltgc_touch(/*_.VALDATA___V1088*/ curfptr[1087]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1099*/ curfptr[1098]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1091*/ curfptr[1090]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:858:/ touch");
+ MELT_LOCATION("warmelt-first.melt:853:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1100*/ curfptr[1099]);
+ meltgc_touch(/*_.VALDATA___V1092*/ curfptr[1091]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:858:/ touch");
+ MELT_LOCATION("warmelt-first.melt:853:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1101*/ curfptr[1100]);
+ meltgc_touch(/*_.VALDATA___V1093*/ curfptr[1092]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1102*/ curfptr[1101]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1102*/ curfptr[1101]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1102*/ curfptr[1101]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1094*/ curfptr[1093]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1094*/ curfptr[1093]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1094*/ curfptr[1093]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1092*/ curfptr[1091]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1102*/ curfptr[1101]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1102*/ curfptr[1101]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1102*/ curfptr[1101]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1094*/ curfptr[1093]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1094*/ curfptr[1093]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1094*/ curfptr[1093]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1102*/ curfptr[1101]);
+ meltgc_touch(/*_.VALTUP___V1094*/ curfptr[1093]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1102*/ curfptr[1101]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1094*/ curfptr[1093]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1103*/ curfptr[1102]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1095*/ curfptr[1094]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1104*/ curfptr[1103]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1096*/ curfptr[1095]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1106*/ curfptr[1105]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1105*/ curfptr[1104]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1098*/ curfptr[1097]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1097*/ curfptr[1096]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1106*/ curfptr[1105]);
+ meltgc_touch(/*_.VALTUP___V1098*/ curfptr[1097]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:853:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1106*/ curfptr[1105]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1090*/ curfptr[1089]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1098*/ curfptr[1097]);
  
- MELT_LOCATION("warmelt-first.melt:858:/ touch");
+ MELT_LOCATION("warmelt-first.melt:853:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1098*/ curfptr[1097]);
+ meltgc_touch(/*_.VALDATA___V1090*/ curfptr[1089]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1099*/ curfptr[1098])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1108*/ curfptr[1107]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1099*/ curfptr[1098]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1099*/ curfptr[1098]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1100*/ curfptr[1099]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1107*/ curfptr[1106]);
+ meltgc_touch(/*_.VALDATA___V1099*/ curfptr[1098]);
  
- MELT_LOCATION("warmelt-first.melt:864:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:859:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1110*/ curfptr[1109]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1102*/ curfptr[1101]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1111*/ curfptr[1110]);
+ meltgc_touch(/*_.VALTUP___V1103*/ curfptr[1102]);
  
- MELT_LOCATION("warmelt-first.melt:864:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:859:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1111*/ curfptr[1110]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1103*/ curfptr[1102]);
  
- MELT_LOCATION("warmelt-first.melt:864:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:859:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1113*/ curfptr[1112]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1113*/ curfptr[1112]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1113*/ curfptr[1112]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1112*/ curfptr[1111]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1105*/ curfptr[1104]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1105*/ curfptr[1104]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1105*/ curfptr[1104]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1104*/ curfptr[1103]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1113*/ curfptr[1112]);
+ meltgc_touch(/*_.VALTUP___V1105*/ curfptr[1104]);
  
- MELT_LOCATION("warmelt-first.melt:864:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:859:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1109*/ curfptr[1108]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1113*/ curfptr[1112]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1101*/ curfptr[1100]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1105*/ curfptr[1104]);
  
- MELT_LOCATION("warmelt-first.melt:864:/ touch");
+ MELT_LOCATION("warmelt-first.melt:859:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1109*/ curfptr[1108]);
+ meltgc_touch(/*_.VALDATA___V1101*/ curfptr[1100]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1115*/ curfptr[1114]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1107*/ curfptr[1106]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1114*/ curfptr[1113]);
+ meltgc_touch(/*_.VALDATA___V1106*/ curfptr[1105]);
  
- MELT_LOCATION("warmelt-first.melt:866:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:861:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1117*/ curfptr[1116]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1109*/ curfptr[1108]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1118*/ curfptr[1117]);
+ meltgc_touch(/*_.VALTUP___V1110*/ curfptr[1109]);
  
- MELT_LOCATION("warmelt-first.melt:866:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:861:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1118*/ curfptr[1117]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1110*/ curfptr[1109]);
  
- MELT_LOCATION("warmelt-first.melt:866:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:861:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1120*/ curfptr[1119]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1120*/ curfptr[1119]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1120*/ curfptr[1119]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1119*/ curfptr[1118]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1112*/ curfptr[1111]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1112*/ curfptr[1111]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1112*/ curfptr[1111]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1111*/ curfptr[1110]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1120*/ curfptr[1119]);
+ meltgc_touch(/*_.VALTUP___V1112*/ curfptr[1111]);
  
- MELT_LOCATION("warmelt-first.melt:866:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:861:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1116*/ curfptr[1115]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1120*/ curfptr[1119]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1112*/ curfptr[1111]);
  
- MELT_LOCATION("warmelt-first.melt:866:/ touch");
+ MELT_LOCATION("warmelt-first.melt:861:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1116*/ curfptr[1115]);
+ meltgc_touch(/*_.VALDATA___V1108*/ curfptr[1107]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1122*/ curfptr[1121]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1114*/ curfptr[1113]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1121*/ curfptr[1120]);
+ meltgc_touch(/*_.VALDATA___V1113*/ curfptr[1112]);
  
- MELT_LOCATION("warmelt-first.melt:869:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:864:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1124*/ curfptr[1123]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1116*/ curfptr[1115]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1125*/ curfptr[1124]);
+ meltgc_touch(/*_.VALTUP___V1117*/ curfptr[1116]);
  
- MELT_LOCATION("warmelt-first.melt:869:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:864:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1125*/ curfptr[1124]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1117*/ curfptr[1116]);
  
- MELT_LOCATION("warmelt-first.melt:869:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:864:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1127*/ curfptr[1126]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1127*/ curfptr[1126]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1127*/ curfptr[1126]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1126*/ curfptr[1125]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1119*/ curfptr[1118]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1119*/ curfptr[1118]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1119*/ curfptr[1118]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1118*/ curfptr[1117]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1127*/ curfptr[1126]);
+ meltgc_touch(/*_.VALTUP___V1119*/ curfptr[1118]);
  
- MELT_LOCATION("warmelt-first.melt:869:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:864:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1123*/ curfptr[1122]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1127*/ curfptr[1126]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1115*/ curfptr[1114]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1119*/ curfptr[1118]);
  
- MELT_LOCATION("warmelt-first.melt:869:/ touch");
+ MELT_LOCATION("warmelt-first.melt:864:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1123*/ curfptr[1122]);
+ meltgc_touch(/*_.VALDATA___V1115*/ curfptr[1114]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1129*/ curfptr[1128]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1121*/ curfptr[1120]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1128*/ curfptr[1127]);
+ meltgc_touch(/*_.VALDATA___V1120*/ curfptr[1119]);
  
- MELT_LOCATION("warmelt-first.melt:870:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:865:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1131*/ curfptr[1130]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1123*/ curfptr[1122]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1132*/ curfptr[1131]);
+ meltgc_touch(/*_.VALTUP___V1124*/ curfptr[1123]);
  
- MELT_LOCATION("warmelt-first.melt:870:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:865:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1132*/ curfptr[1131]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1124*/ curfptr[1123]);
  
- MELT_LOCATION("warmelt-first.melt:870:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:865:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1134*/ curfptr[1133]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1134*/ curfptr[1133]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1134*/ curfptr[1133]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1133*/ curfptr[1132]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1126*/ curfptr[1125]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1126*/ curfptr[1125]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1126*/ curfptr[1125]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1125*/ curfptr[1124]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1134*/ curfptr[1133]);
+ meltgc_touch(/*_.VALTUP___V1126*/ curfptr[1125]);
  
- MELT_LOCATION("warmelt-first.melt:870:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:865:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1134*/ curfptr[1133]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1122*/ curfptr[1121]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1126*/ curfptr[1125]);
  
- MELT_LOCATION("warmelt-first.melt:870:/ touch");
+ MELT_LOCATION("warmelt-first.melt:865:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1130*/ curfptr[1129]);
+ meltgc_touch(/*_.VALDATA___V1122*/ curfptr[1121]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1136*/ curfptr[1135]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1128*/ curfptr[1127]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1135*/ curfptr[1134]);
+ meltgc_touch(/*_.VALDATA___V1127*/ curfptr[1126]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1138*/ curfptr[1137]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1130*/ curfptr[1129]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1141*/ curfptr[1140]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1133*/ curfptr[1132]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1140*/ curfptr[1139]);
+ meltgc_touch(/*_.VALDATA___V1132*/ curfptr[1131]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1140*/ curfptr[1139]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1132*/ curfptr[1131]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1139*/ curfptr[1138]);
+ meltgc_touch(/*_.VALDATA___V1131*/ curfptr[1130]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1142*/ curfptr[1141]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1142*/ curfptr[1141]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1142*/ curfptr[1141]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1139*/ curfptr[1138]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1134*/ curfptr[1133]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1134*/ curfptr[1133]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1134*/ curfptr[1133]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1131*/ curfptr[1130]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1142*/ curfptr[1141]);
+ meltgc_touch(/*_.VALTUP___V1134*/ curfptr[1133]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1142*/ curfptr[1141]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1134*/ curfptr[1133]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1143*/ curfptr[1142]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1135*/ curfptr[1134]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1145*/ curfptr[1144]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1144*/ curfptr[1143]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1137*/ curfptr[1136]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1136*/ curfptr[1135]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1145*/ curfptr[1144]);
+ meltgc_touch(/*_.VALTUP___V1137*/ curfptr[1136]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1137*/ curfptr[1136]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1145*/ curfptr[1144]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1129*/ curfptr[1128]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1137*/ curfptr[1136]);
  
- MELT_LOCATION("warmelt-first.melt:873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1137*/ curfptr[1136]);
+ meltgc_touch(/*_.VALDATA___V1129*/ curfptr[1128]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1147*/ curfptr[1146]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1139*/ curfptr[1138]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1146*/ curfptr[1145]);
+ meltgc_touch(/*_.VALDATA___V1138*/ curfptr[1137]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:873:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1149*/ curfptr[1148]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1141*/ curfptr[1140]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:873:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1140*/ curfptr[1139]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1132*/ curfptr[1131]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:873:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:878:/ touch");
+ MELT_LOCATION("warmelt-first.melt:873:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1150*/ curfptr[1149]);
+ meltgc_touch(/*_.VALDATA___V1142*/ curfptr[1141]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1151*/ curfptr[1150]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1151*/ curfptr[1150]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1151*/ curfptr[1150]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1143*/ curfptr[1142]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1143*/ curfptr[1142]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1143*/ curfptr[1142]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1151*/ curfptr[1150]);
+ meltgc_touch(/*_.VALTUP___V1143*/ curfptr[1142]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:873:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1151*/ curfptr[1150]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1143*/ curfptr[1142]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:873:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1152*/ curfptr[1151]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1144*/ curfptr[1143]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1153*/ curfptr[1152]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1146*/ curfptr[1145]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1145*/ curfptr[1144]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1154*/ curfptr[1153]);
+ meltgc_touch(/*_.VALTUP___V1146*/ curfptr[1145]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:873:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1154*/ curfptr[1153]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1146*/ curfptr[1145]);
  
- MELT_LOCATION("warmelt-first.melt:878:/ touch");
+ MELT_LOCATION("warmelt-first.melt:873:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1148*/ curfptr[1147]);
+ meltgc_touch(/*_.VALDATA___V1140*/ curfptr[1139]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1147*/ curfptr[1146])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1156*/ curfptr[1155]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1147*/ curfptr[1146]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1147*/ curfptr[1146]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1148*/ curfptr[1147]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1155*/ curfptr[1154]);
+ meltgc_touch(/*_.VALDATA___V1147*/ curfptr[1146]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:879:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1158*/ curfptr[1157]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1150*/ curfptr[1149]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1161*/ curfptr[1160]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1153*/ curfptr[1152]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1160*/ curfptr[1159]);
+ meltgc_touch(/*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:879:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:879:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:884:/ touch");
+ MELT_LOCATION("warmelt-first.melt:879:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1159*/ curfptr[1158]);
+ meltgc_touch(/*_.VALDATA___V1151*/ curfptr[1150]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1162*/ curfptr[1161]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1162*/ curfptr[1161]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1162*/ curfptr[1161]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1159*/ curfptr[1158]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1154*/ curfptr[1153]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1151*/ curfptr[1150]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1162*/ curfptr[1161]);
+ meltgc_touch(/*_.VALTUP___V1154*/ curfptr[1153]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:879:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1162*/ curfptr[1161]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1154*/ curfptr[1153]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:879:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1163*/ curfptr[1162]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1155*/ curfptr[1154]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1165*/ curfptr[1164]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1164*/ curfptr[1163]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1157*/ curfptr[1156]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1156*/ curfptr[1155]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1165*/ curfptr[1164]);
+ meltgc_touch(/*_.VALTUP___V1157*/ curfptr[1156]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:879:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1157*/ curfptr[1156]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1165*/ curfptr[1164]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1149*/ curfptr[1148]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1157*/ curfptr[1156]);
  
- MELT_LOCATION("warmelt-first.melt:884:/ touch");
+ MELT_LOCATION("warmelt-first.melt:879:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1157*/ curfptr[1156]);
+ meltgc_touch(/*_.VALDATA___V1149*/ curfptr[1148]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1167*/ curfptr[1166]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1159*/ curfptr[1158]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1166*/ curfptr[1165]);
+ meltgc_touch(/*_.VALDATA___V1158*/ curfptr[1157]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:882:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1169*/ curfptr[1168]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1161*/ curfptr[1160]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:882:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:882:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:887:/ touch");
+ MELT_LOCATION("warmelt-first.melt:882:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1170*/ curfptr[1169]);
+ meltgc_touch(/*_.VALDATA___V1162*/ curfptr[1161]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1171*/ curfptr[1170]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1171*/ curfptr[1170]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1171*/ curfptr[1170]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1163*/ curfptr[1162]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1163*/ curfptr[1162]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1163*/ curfptr[1162]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1171*/ curfptr[1170]);
+ meltgc_touch(/*_.VALTUP___V1163*/ curfptr[1162]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:882:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1171*/ curfptr[1170]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1163*/ curfptr[1162]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:882:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1172*/ curfptr[1171]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1164*/ curfptr[1163]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1174*/ curfptr[1173]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1173*/ curfptr[1172]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1166*/ curfptr[1165]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1165*/ curfptr[1164]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1174*/ curfptr[1173]);
+ meltgc_touch(/*_.VALTUP___V1166*/ curfptr[1165]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:882:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1174*/ curfptr[1173]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1166*/ curfptr[1165]);
  
- MELT_LOCATION("warmelt-first.melt:887:/ touch");
+ MELT_LOCATION("warmelt-first.melt:882:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1168*/ curfptr[1167]);
+ meltgc_touch(/*_.VALDATA___V1160*/ curfptr[1159]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1175*/ curfptr[1174])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1167*/ curfptr[1166])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1175*/ curfptr[1174]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1175*/ curfptr[1174]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1176*/ curfptr[1175]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1167*/ curfptr[1166]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1167*/ curfptr[1166]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1168*/ curfptr[1167]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1175*/ curfptr[1174]);
+ meltgc_touch(/*_.VALDATA___V1167*/ curfptr[1166]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:888:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1178*/ curfptr[1177]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1170*/ curfptr[1169]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:888:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:888:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:893:/ touch");
+ MELT_LOCATION("warmelt-first.melt:888:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1179*/ curfptr[1178]);
+ meltgc_touch(/*_.VALDATA___V1171*/ curfptr[1170]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1180*/ curfptr[1179]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1180*/ curfptr[1179]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1180*/ curfptr[1179]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1179*/ curfptr[1178]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1172*/ curfptr[1171]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1172*/ curfptr[1171]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1172*/ curfptr[1171]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1171*/ curfptr[1170]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1180*/ curfptr[1179]);
+ meltgc_touch(/*_.VALTUP___V1172*/ curfptr[1171]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:888:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1180*/ curfptr[1179]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1172*/ curfptr[1171]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:888:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1181*/ curfptr[1180]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1173*/ curfptr[1172]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1183*/ curfptr[1182]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1182*/ curfptr[1181]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1175*/ curfptr[1174]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1174*/ curfptr[1173]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1183*/ curfptr[1182]);
+ meltgc_touch(/*_.VALTUP___V1175*/ curfptr[1174]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:888:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1177*/ curfptr[1176]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1183*/ curfptr[1182]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1169*/ curfptr[1168]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1175*/ curfptr[1174]);
  
- MELT_LOCATION("warmelt-first.melt:893:/ touch");
+ MELT_LOCATION("warmelt-first.melt:888:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1177*/ curfptr[1176]);
+ meltgc_touch(/*_.VALDATA___V1169*/ curfptr[1168]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1185*/ curfptr[1184]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1177*/ curfptr[1176]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1184*/ curfptr[1183]);
+ meltgc_touch(/*_.VALDATA___V1176*/ curfptr[1175]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:891:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1187*/ curfptr[1186]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1179*/ curfptr[1178]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:891:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:891:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:896:/ touch");
+ MELT_LOCATION("warmelt-first.melt:891:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1188*/ curfptr[1187]);
+ meltgc_touch(/*_.VALDATA___V1180*/ curfptr[1179]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1189*/ curfptr[1188]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1189*/ curfptr[1188]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1189*/ curfptr[1188]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1181*/ curfptr[1180]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1181*/ curfptr[1180]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1181*/ curfptr[1180]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1189*/ curfptr[1188]);
+ meltgc_touch(/*_.VALTUP___V1181*/ curfptr[1180]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:891:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1189*/ curfptr[1188]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1181*/ curfptr[1180]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:891:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1190*/ curfptr[1189]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1182*/ curfptr[1181]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1192*/ curfptr[1191]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1191*/ curfptr[1190]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1184*/ curfptr[1183]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1183*/ curfptr[1182]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1192*/ curfptr[1191]);
+ meltgc_touch(/*_.VALTUP___V1184*/ curfptr[1183]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:891:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1192*/ curfptr[1191]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1184*/ curfptr[1183]);
  
- MELT_LOCATION("warmelt-first.melt:896:/ touch");
+ MELT_LOCATION("warmelt-first.melt:891:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1186*/ curfptr[1185]);
+ meltgc_touch(/*_.VALDATA___V1178*/ curfptr[1177]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1194*/ curfptr[1193]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1186*/ curfptr[1185]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1193*/ curfptr[1192]);
+ meltgc_touch(/*_.VALDATA___V1185*/ curfptr[1184]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1196*/ curfptr[1195]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1188*/ curfptr[1187]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1199*/ curfptr[1198]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1191*/ curfptr[1190]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1198*/ curfptr[1197]);
+ meltgc_touch(/*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:904:/ touch");
+ MELT_LOCATION("warmelt-first.melt:899:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1197*/ curfptr[1196]);
+ meltgc_touch(/*_.VALDATA___V1189*/ curfptr[1188]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1201*/ curfptr[1200])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1201*/ curfptr[1200]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1201*/ curfptr[1200]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1202*/ curfptr[1201]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1194*/ curfptr[1193]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1201*/ curfptr[1200]);
+ meltgc_touch(/*_.VALDATA___V1193*/ curfptr[1192]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1201*/ curfptr[1200]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1193*/ curfptr[1192]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:904:/ touch");
+ MELT_LOCATION("warmelt-first.melt:899:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1200*/ curfptr[1199]);
+ meltgc_touch(/*_.VALDATA___V1192*/ curfptr[1191]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1205*/ curfptr[1204]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1197*/ curfptr[1196]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1204*/ curfptr[1203]);
+ meltgc_touch(/*_.VALDATA___V1196*/ curfptr[1195]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1204*/ curfptr[1203]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1196*/ curfptr[1195]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:904:/ touch");
+ MELT_LOCATION("warmelt-first.melt:899:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1203*/ curfptr[1202]);
+ meltgc_touch(/*_.VALDATA___V1195*/ curfptr[1194]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1197*/ curfptr[1196]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1206*/ curfptr[1205]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1198*/ curfptr[1197]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1206*/ curfptr[1205]);
+ meltgc_touch(/*_.VALTUP___V1198*/ curfptr[1197]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1206*/ curfptr[1205]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1198*/ curfptr[1197]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1207*/ curfptr[1206]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1199*/ curfptr[1198]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1208*/ curfptr[1207]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1200*/ curfptr[1199]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1201*/ curfptr[1200]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1209*/ curfptr[1208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1201*/ curfptr[1200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1201*/ curfptr[1200]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1210*/ curfptr[1209]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1202*/ curfptr[1201]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1211*/ curfptr[1210]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1203*/ curfptr[1202]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1213*/ curfptr[1212]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V1212*/ curfptr[1211]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1205*/ curfptr[1204]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V1204*/ curfptr[1203]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1213*/ curfptr[1212]);
+ meltgc_touch(/*_.VALTUP___V1205*/ curfptr[1204]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:899:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1195*/ curfptr[1194]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1213*/ curfptr[1212]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1187*/ curfptr[1186]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1205*/ curfptr[1204]);
  
- MELT_LOCATION("warmelt-first.melt:904:/ touch");
+ MELT_LOCATION("warmelt-first.melt:899:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1195*/ curfptr[1194]);
+ meltgc_touch(/*_.VALDATA___V1187*/ curfptr[1186]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1214*/ curfptr[1213])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1214*/ curfptr[1213]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1214*/ curfptr[1213]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1215*/ curfptr[1214]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1207*/ curfptr[1206]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1214*/ curfptr[1213]);
+ meltgc_touch(/*_.VALDATA___V1206*/ curfptr[1205]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:906:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1217*/ curfptr[1216]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1209*/ curfptr[1208]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:906:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:906:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:911:/ touch");
+ MELT_LOCATION("warmelt-first.melt:906:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1218*/ curfptr[1217]);
+ meltgc_touch(/*_.VALDATA___V1210*/ curfptr[1209]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1219*/ curfptr[1218]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1219*/ curfptr[1218]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1219*/ curfptr[1218]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1218*/ curfptr[1217]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1211*/ curfptr[1210]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1211*/ curfptr[1210]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1211*/ curfptr[1210]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1210*/ curfptr[1209]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1219*/ curfptr[1218]);
+ meltgc_touch(/*_.VALTUP___V1211*/ curfptr[1210]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:906:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1219*/ curfptr[1218]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1211*/ curfptr[1210]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:906:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1220*/ curfptr[1219]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1212*/ curfptr[1211]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1222*/ curfptr[1221]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1221*/ curfptr[1220]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1214*/ curfptr[1213]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1213*/ curfptr[1212]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1222*/ curfptr[1221]);
+ meltgc_touch(/*_.VALTUP___V1214*/ curfptr[1213]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:906:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1222*/ curfptr[1221]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1214*/ curfptr[1213]);
  
- MELT_LOCATION("warmelt-first.melt:911:/ touch");
+ MELT_LOCATION("warmelt-first.melt:906:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1216*/ curfptr[1215]);
+ meltgc_touch(/*_.VALDATA___V1208*/ curfptr[1207]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1224*/ curfptr[1223]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1216*/ curfptr[1215]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1223*/ curfptr[1222]);
+ meltgc_touch(/*_.VALDATA___V1215*/ curfptr[1214]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:913:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1226*/ curfptr[1225]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1218*/ curfptr[1217]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:913:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:913:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:918:/ touch");
+ MELT_LOCATION("warmelt-first.melt:913:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1227*/ curfptr[1226]);
+ meltgc_touch(/*_.VALDATA___V1219*/ curfptr[1218]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1228*/ curfptr[1227]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1228*/ curfptr[1227]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1228*/ curfptr[1227]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1227*/ curfptr[1226]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1220*/ curfptr[1219]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1220*/ curfptr[1219]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1220*/ curfptr[1219]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1219*/ curfptr[1218]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1228*/ curfptr[1227]);
+ meltgc_touch(/*_.VALTUP___V1220*/ curfptr[1219]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:913:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1228*/ curfptr[1227]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1220*/ curfptr[1219]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:913:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1229*/ curfptr[1228]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1221*/ curfptr[1220]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1231*/ curfptr[1230]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1230*/ curfptr[1229]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1223*/ curfptr[1222]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1222*/ curfptr[1221]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1231*/ curfptr[1230]);
+ meltgc_touch(/*_.VALTUP___V1223*/ curfptr[1222]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:913:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1231*/ curfptr[1230]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1223*/ curfptr[1222]);
  
- MELT_LOCATION("warmelt-first.melt:918:/ touch");
+ MELT_LOCATION("warmelt-first.melt:913:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1225*/ curfptr[1224]);
+ meltgc_touch(/*_.VALDATA___V1217*/ curfptr[1216]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1232*/ curfptr[1231])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1224*/ curfptr[1223])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1232*/ curfptr[1231]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1232*/ curfptr[1231]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1233*/ curfptr[1232]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1224*/ curfptr[1223]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1224*/ curfptr[1223]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1225*/ curfptr[1224]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1232*/ curfptr[1231]);
+ meltgc_touch(/*_.VALDATA___V1224*/ curfptr[1223]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1235*/ curfptr[1234]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1227*/ curfptr[1226]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:924:/ touch");
+ MELT_LOCATION("warmelt-first.melt:919:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1236*/ curfptr[1235]);
+ meltgc_touch(/*_.VALDATA___V1228*/ curfptr[1227]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:924:/ touch");
+ MELT_LOCATION("warmelt-first.melt:919:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1237*/ curfptr[1236]);
+ meltgc_touch(/*_.VALDATA___V1229*/ curfptr[1228]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1238*/ curfptr[1237]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1238*/ curfptr[1237]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1238*/ curfptr[1237]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1230*/ curfptr[1229]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1230*/ curfptr[1229]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1230*/ curfptr[1229]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1238*/ curfptr[1237]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1238*/ curfptr[1237]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1238*/ curfptr[1237]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1230*/ curfptr[1229]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1230*/ curfptr[1229]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1230*/ curfptr[1229]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1229*/ curfptr[1228]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1238*/ curfptr[1237]);
+ meltgc_touch(/*_.VALTUP___V1230*/ curfptr[1229]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1238*/ curfptr[1237]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1230*/ curfptr[1229]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1239*/ curfptr[1238]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1231*/ curfptr[1230]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1240*/ curfptr[1239]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1232*/ curfptr[1231]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1242*/ curfptr[1241]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1241*/ curfptr[1240]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1234*/ curfptr[1233]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1233*/ curfptr[1232]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1242*/ curfptr[1241]);
+ meltgc_touch(/*_.VALTUP___V1234*/ curfptr[1233]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:919:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1234*/ curfptr[1233]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1242*/ curfptr[1241]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1226*/ curfptr[1225]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1234*/ curfptr[1233]);
  
- MELT_LOCATION("warmelt-first.melt:924:/ touch");
+ MELT_LOCATION("warmelt-first.melt:919:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1234*/ curfptr[1233]);
+ meltgc_touch(/*_.VALDATA___V1226*/ curfptr[1225]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1244*/ curfptr[1243]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1236*/ curfptr[1235]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1243*/ curfptr[1242]);
+ meltgc_touch(/*_.VALDATA___V1235*/ curfptr[1234]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1246*/ curfptr[1245]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1238*/ curfptr[1237]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:926:/ touch");
+ MELT_LOCATION("warmelt-first.melt:921:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1247*/ curfptr[1246]);
+ meltgc_touch(/*_.VALDATA___V1239*/ curfptr[1238]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:926:/ touch");
+ MELT_LOCATION("warmelt-first.melt:921:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1248*/ curfptr[1247]);
+ meltgc_touch(/*_.VALDATA___V1240*/ curfptr[1239]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1249*/ curfptr[1248]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1249*/ curfptr[1248]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1249*/ curfptr[1248]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1241*/ curfptr[1240]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1241*/ curfptr[1240]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1241*/ curfptr[1240]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1249*/ curfptr[1248]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1249*/ curfptr[1248]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1249*/ curfptr[1248]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1241*/ curfptr[1240]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1241*/ curfptr[1240]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1241*/ curfptr[1240]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1240*/ curfptr[1239]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1249*/ curfptr[1248]);
+ meltgc_touch(/*_.VALTUP___V1241*/ curfptr[1240]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1249*/ curfptr[1248]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1241*/ curfptr[1240]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1250*/ curfptr[1249]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1242*/ curfptr[1241]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1251*/ curfptr[1250]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1243*/ curfptr[1242]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1253*/ curfptr[1252]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1252*/ curfptr[1251]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1245*/ curfptr[1244]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1244*/ curfptr[1243]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1253*/ curfptr[1252]);
+ meltgc_touch(/*_.VALTUP___V1245*/ curfptr[1244]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:921:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1245*/ curfptr[1244]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1253*/ curfptr[1252]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1245*/ curfptr[1244]);
  
- MELT_LOCATION("warmelt-first.melt:926:/ touch");
+ MELT_LOCATION("warmelt-first.melt:921:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1245*/ curfptr[1244]);
+ meltgc_touch(/*_.VALDATA___V1237*/ curfptr[1236]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1246*/ curfptr[1245])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1255*/ curfptr[1254]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1246*/ curfptr[1245]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1246*/ curfptr[1245]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1247*/ curfptr[1246]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1254*/ curfptr[1253]);
+ meltgc_touch(/*_.VALDATA___V1246*/ curfptr[1245]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1257*/ curfptr[1256]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1249*/ curfptr[1248]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:928:/ touch");
+ MELT_LOCATION("warmelt-first.melt:923:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1258*/ curfptr[1257]);
+ meltgc_touch(/*_.VALDATA___V1250*/ curfptr[1249]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:928:/ touch");
+ MELT_LOCATION("warmelt-first.melt:923:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1259*/ curfptr[1258]);
+ meltgc_touch(/*_.VALDATA___V1251*/ curfptr[1250]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1260*/ curfptr[1259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1260*/ curfptr[1259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1260*/ curfptr[1259]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1258*/ curfptr[1257]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1252*/ curfptr[1251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1252*/ curfptr[1251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1252*/ curfptr[1251]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1250*/ curfptr[1249]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1260*/ curfptr[1259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1260*/ curfptr[1259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1260*/ curfptr[1259]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1252*/ curfptr[1251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1252*/ curfptr[1251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1252*/ curfptr[1251]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1251*/ curfptr[1250]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1260*/ curfptr[1259]);
+ meltgc_touch(/*_.VALTUP___V1252*/ curfptr[1251]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1260*/ curfptr[1259]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1252*/ curfptr[1251]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1261*/ curfptr[1260]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1253*/ curfptr[1252]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1262*/ curfptr[1261]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1254*/ curfptr[1253]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1264*/ curfptr[1263]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1263*/ curfptr[1262]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1256*/ curfptr[1255]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1255*/ curfptr[1254]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1264*/ curfptr[1263]);
+ meltgc_touch(/*_.VALTUP___V1256*/ curfptr[1255]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:923:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1256*/ curfptr[1255]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1264*/ curfptr[1263]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1248*/ curfptr[1247]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1256*/ curfptr[1255]);
  
- MELT_LOCATION("warmelt-first.melt:928:/ touch");
+ MELT_LOCATION("warmelt-first.melt:923:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1256*/ curfptr[1255]);
+ meltgc_touch(/*_.VALDATA___V1248*/ curfptr[1247]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1266*/ curfptr[1265]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1258*/ curfptr[1257]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1265*/ curfptr[1264]);
+ meltgc_touch(/*_.VALDATA___V1257*/ curfptr[1256]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1268*/ curfptr[1267]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1260*/ curfptr[1259]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:930:/ touch");
+ MELT_LOCATION("warmelt-first.melt:925:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1269*/ curfptr[1268]);
+ meltgc_touch(/*_.VALDATA___V1261*/ curfptr[1260]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:930:/ touch");
+ MELT_LOCATION("warmelt-first.melt:925:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1270*/ curfptr[1269]);
+ meltgc_touch(/*_.VALDATA___V1262*/ curfptr[1261]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1271*/ curfptr[1270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1271*/ curfptr[1270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1271*/ curfptr[1270]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1269*/ curfptr[1268]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1263*/ curfptr[1262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1263*/ curfptr[1262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1263*/ curfptr[1262]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1261*/ curfptr[1260]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1271*/ curfptr[1270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1271*/ curfptr[1270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1271*/ curfptr[1270]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1263*/ curfptr[1262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1263*/ curfptr[1262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1263*/ curfptr[1262]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1271*/ curfptr[1270]);
+ meltgc_touch(/*_.VALTUP___V1263*/ curfptr[1262]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1271*/ curfptr[1270]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1263*/ curfptr[1262]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1272*/ curfptr[1271]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1264*/ curfptr[1263]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1273*/ curfptr[1272]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1265*/ curfptr[1264]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1275*/ curfptr[1274]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1274*/ curfptr[1273]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1267*/ curfptr[1266]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1266*/ curfptr[1265]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1275*/ curfptr[1274]);
+ meltgc_touch(/*_.VALTUP___V1267*/ curfptr[1266]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:925:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1267*/ curfptr[1266]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1275*/ curfptr[1274]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1267*/ curfptr[1266]);
  
- MELT_LOCATION("warmelt-first.melt:930:/ touch");
+ MELT_LOCATION("warmelt-first.melt:925:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1267*/ curfptr[1266]);
+ meltgc_touch(/*_.VALDATA___V1259*/ curfptr[1258]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1277*/ curfptr[1276]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1269*/ curfptr[1268]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1276*/ curfptr[1275]);
+ meltgc_touch(/*_.VALDATA___V1268*/ curfptr[1267]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1279*/ curfptr[1278]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1271*/ curfptr[1270]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:932:/ touch");
+ MELT_LOCATION("warmelt-first.melt:927:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1280*/ curfptr[1279]);
+ meltgc_touch(/*_.VALDATA___V1272*/ curfptr[1271]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:932:/ touch");
+ MELT_LOCATION("warmelt-first.melt:927:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1281*/ curfptr[1280]);
+ meltgc_touch(/*_.VALDATA___V1273*/ curfptr[1272]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1282*/ curfptr[1281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1282*/ curfptr[1281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1282*/ curfptr[1281]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1274*/ curfptr[1273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1274*/ curfptr[1273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1274*/ curfptr[1273]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1282*/ curfptr[1281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1282*/ curfptr[1281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1282*/ curfptr[1281]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1274*/ curfptr[1273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1274*/ curfptr[1273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1274*/ curfptr[1273]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1282*/ curfptr[1281]);
+ meltgc_touch(/*_.VALTUP___V1274*/ curfptr[1273]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1282*/ curfptr[1281]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1274*/ curfptr[1273]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1283*/ curfptr[1282]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1275*/ curfptr[1274]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1284*/ curfptr[1283]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1276*/ curfptr[1275]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1286*/ curfptr[1285]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1285*/ curfptr[1284]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1278*/ curfptr[1277]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1277*/ curfptr[1276]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1286*/ curfptr[1285]);
+ meltgc_touch(/*_.VALTUP___V1278*/ curfptr[1277]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:927:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1286*/ curfptr[1285]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1270*/ curfptr[1269]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1278*/ curfptr[1277]);
  
- MELT_LOCATION("warmelt-first.melt:932:/ touch");
+ MELT_LOCATION("warmelt-first.melt:927:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1278*/ curfptr[1277]);
+ meltgc_touch(/*_.VALDATA___V1270*/ curfptr[1269]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1288*/ curfptr[1287]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1280*/ curfptr[1279]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1287*/ curfptr[1286]);
+ meltgc_touch(/*_.VALDATA___V1279*/ curfptr[1278]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1290*/ curfptr[1289]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1282*/ curfptr[1281]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:934:/ touch");
+ MELT_LOCATION("warmelt-first.melt:929:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1291*/ curfptr[1290]);
+ meltgc_touch(/*_.VALDATA___V1283*/ curfptr[1282]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:934:/ touch");
+ MELT_LOCATION("warmelt-first.melt:929:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1292*/ curfptr[1291]);
+ meltgc_touch(/*_.VALDATA___V1284*/ curfptr[1283]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1293*/ curfptr[1292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1293*/ curfptr[1292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1293*/ curfptr[1292]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1291*/ curfptr[1290]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1285*/ curfptr[1284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1285*/ curfptr[1284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1285*/ curfptr[1284]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1283*/ curfptr[1282]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1293*/ curfptr[1292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1293*/ curfptr[1292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1293*/ curfptr[1292]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1285*/ curfptr[1284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1285*/ curfptr[1284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1285*/ curfptr[1284]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1293*/ curfptr[1292]);
+ meltgc_touch(/*_.VALTUP___V1285*/ curfptr[1284]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1293*/ curfptr[1292]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1285*/ curfptr[1284]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1294*/ curfptr[1293]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1286*/ curfptr[1285]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1295*/ curfptr[1294]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1287*/ curfptr[1286]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1297*/ curfptr[1296]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1296*/ curfptr[1295]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1289*/ curfptr[1288]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1288*/ curfptr[1287]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1297*/ curfptr[1296]);
+ meltgc_touch(/*_.VALTUP___V1289*/ curfptr[1288]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:929:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1289*/ curfptr[1288]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1297*/ curfptr[1296]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1281*/ curfptr[1280]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1289*/ curfptr[1288]);
  
- MELT_LOCATION("warmelt-first.melt:934:/ touch");
+ MELT_LOCATION("warmelt-first.melt:929:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1289*/ curfptr[1288]);
+ meltgc_touch(/*_.VALDATA___V1281*/ curfptr[1280]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1299*/ curfptr[1298]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1291*/ curfptr[1290]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1298*/ curfptr[1297]);
+ meltgc_touch(/*_.VALDATA___V1290*/ curfptr[1289]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1301*/ curfptr[1300]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1293*/ curfptr[1292]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:937:/ touch");
+ MELT_LOCATION("warmelt-first.melt:932:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1302*/ curfptr[1301]);
+ meltgc_touch(/*_.VALDATA___V1294*/ curfptr[1293]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:937:/ touch");
+ MELT_LOCATION("warmelt-first.melt:932:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1303*/ curfptr[1302]);
+ meltgc_touch(/*_.VALDATA___V1295*/ curfptr[1294]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1304*/ curfptr[1303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1304*/ curfptr[1303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1304*/ curfptr[1303]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1296*/ curfptr[1295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1296*/ curfptr[1295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1296*/ curfptr[1295]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1304*/ curfptr[1303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1304*/ curfptr[1303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1304*/ curfptr[1303]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1296*/ curfptr[1295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1296*/ curfptr[1295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1296*/ curfptr[1295]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1295*/ curfptr[1294]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1304*/ curfptr[1303]);
+ meltgc_touch(/*_.VALTUP___V1296*/ curfptr[1295]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1304*/ curfptr[1303]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1296*/ curfptr[1295]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1305*/ curfptr[1304]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1297*/ curfptr[1296]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1306*/ curfptr[1305]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1298*/ curfptr[1297]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1308*/ curfptr[1307]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1307*/ curfptr[1306]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1300*/ curfptr[1299]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1299*/ curfptr[1298]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1308*/ curfptr[1307]);
+ meltgc_touch(/*_.VALTUP___V1300*/ curfptr[1299]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:932:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1308*/ curfptr[1307]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1292*/ curfptr[1291]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1300*/ curfptr[1299]);
  
- MELT_LOCATION("warmelt-first.melt:937:/ touch");
+ MELT_LOCATION("warmelt-first.melt:932:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1300*/ curfptr[1299]);
+ meltgc_touch(/*_.VALDATA___V1292*/ curfptr[1291]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1309*/ curfptr[1308])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1301*/ curfptr[1300])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1309*/ curfptr[1308]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1309*/ curfptr[1308]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1310*/ curfptr[1309]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1301*/ curfptr[1300]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1301*/ curfptr[1300]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1302*/ curfptr[1301]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1309*/ curfptr[1308]);
+ meltgc_touch(/*_.VALDATA___V1301*/ curfptr[1300]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1312*/ curfptr[1311]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1304*/ curfptr[1303]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:939:/ touch");
+ MELT_LOCATION("warmelt-first.melt:934:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1313*/ curfptr[1312]);
+ meltgc_touch(/*_.VALDATA___V1305*/ curfptr[1304]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:939:/ touch");
+ MELT_LOCATION("warmelt-first.melt:934:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1314*/ curfptr[1313]);
+ meltgc_touch(/*_.VALDATA___V1306*/ curfptr[1305]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1315*/ curfptr[1314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1315*/ curfptr[1314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1315*/ curfptr[1314]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1313*/ curfptr[1312]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1307*/ curfptr[1306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1307*/ curfptr[1306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1307*/ curfptr[1306]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1305*/ curfptr[1304]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1315*/ curfptr[1314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1315*/ curfptr[1314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1315*/ curfptr[1314]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1307*/ curfptr[1306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1307*/ curfptr[1306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1307*/ curfptr[1306]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1315*/ curfptr[1314]);
+ meltgc_touch(/*_.VALTUP___V1307*/ curfptr[1306]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1315*/ curfptr[1314]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1307*/ curfptr[1306]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1316*/ curfptr[1315]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1308*/ curfptr[1307]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1317*/ curfptr[1316]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1309*/ curfptr[1308]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1319*/ curfptr[1318]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1318*/ curfptr[1317]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1311*/ curfptr[1310]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1310*/ curfptr[1309]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1319*/ curfptr[1318]);
+ meltgc_touch(/*_.VALTUP___V1311*/ curfptr[1310]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1319*/ curfptr[1318]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1311*/ curfptr[1310]);
  
- MELT_LOCATION("warmelt-first.melt:939:/ touch");
+ MELT_LOCATION("warmelt-first.melt:934:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1311*/ curfptr[1310]);
+ meltgc_touch(/*_.VALDATA___V1303*/ curfptr[1302]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1320*/ curfptr[1319])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1320*/ curfptr[1319]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1320*/ curfptr[1319]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1321*/ curfptr[1320]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1313*/ curfptr[1312]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1320*/ curfptr[1319]);
+ meltgc_touch(/*_.VALDATA___V1312*/ curfptr[1311]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1323*/ curfptr[1322]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1315*/ curfptr[1314]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:941:/ touch");
+ MELT_LOCATION("warmelt-first.melt:936:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1324*/ curfptr[1323]);
+ meltgc_touch(/*_.VALDATA___V1316*/ curfptr[1315]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:941:/ touch");
+ MELT_LOCATION("warmelt-first.melt:936:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1325*/ curfptr[1324]);
+ meltgc_touch(/*_.VALDATA___V1317*/ curfptr[1316]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1326*/ curfptr[1325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1326*/ curfptr[1325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1326*/ curfptr[1325]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1324*/ curfptr[1323]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1318*/ curfptr[1317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1318*/ curfptr[1317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1318*/ curfptr[1317]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1326*/ curfptr[1325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1326*/ curfptr[1325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1326*/ curfptr[1325]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1318*/ curfptr[1317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1318*/ curfptr[1317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1318*/ curfptr[1317]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1317*/ curfptr[1316]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1326*/ curfptr[1325]);
+ meltgc_touch(/*_.VALTUP___V1318*/ curfptr[1317]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1326*/ curfptr[1325]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1318*/ curfptr[1317]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1327*/ curfptr[1326]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1319*/ curfptr[1318]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1328*/ curfptr[1327]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1320*/ curfptr[1319]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1330*/ curfptr[1329]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1329*/ curfptr[1328]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1322*/ curfptr[1321]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1321*/ curfptr[1320]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1330*/ curfptr[1329]);
+ meltgc_touch(/*_.VALTUP___V1322*/ curfptr[1321]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:936:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1322*/ curfptr[1321]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1330*/ curfptr[1329]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1322*/ curfptr[1321]);
  
- MELT_LOCATION("warmelt-first.melt:941:/ touch");
+ MELT_LOCATION("warmelt-first.melt:936:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1322*/ curfptr[1321]);
+ meltgc_touch(/*_.VALDATA___V1314*/ curfptr[1313]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1331*/ curfptr[1330])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1323*/ curfptr[1322])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1331*/ curfptr[1330]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1331*/ curfptr[1330]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1332*/ curfptr[1331]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1323*/ curfptr[1322]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1323*/ curfptr[1322]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1324*/ curfptr[1323]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1331*/ curfptr[1330]);
+ meltgc_touch(/*_.VALDATA___V1323*/ curfptr[1322]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1334*/ curfptr[1333]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1326*/ curfptr[1325]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:943:/ touch");
+ MELT_LOCATION("warmelt-first.melt:938:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1335*/ curfptr[1334]);
+ meltgc_touch(/*_.VALDATA___V1327*/ curfptr[1326]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:943:/ touch");
+ MELT_LOCATION("warmelt-first.melt:938:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1336*/ curfptr[1335]);
+ meltgc_touch(/*_.VALDATA___V1328*/ curfptr[1327]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1337*/ curfptr[1336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1337*/ curfptr[1336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1337*/ curfptr[1336]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1329*/ curfptr[1328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1329*/ curfptr[1328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1329*/ curfptr[1328]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1337*/ curfptr[1336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1337*/ curfptr[1336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1337*/ curfptr[1336]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1329*/ curfptr[1328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1329*/ curfptr[1328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1329*/ curfptr[1328]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1337*/ curfptr[1336]);
+ meltgc_touch(/*_.VALTUP___V1329*/ curfptr[1328]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1337*/ curfptr[1336]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1329*/ curfptr[1328]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1338*/ curfptr[1337]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1330*/ curfptr[1329]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1339*/ curfptr[1338]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1331*/ curfptr[1330]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1341*/ curfptr[1340]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1340*/ curfptr[1339]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1333*/ curfptr[1332]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1332*/ curfptr[1331]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1341*/ curfptr[1340]);
+ meltgc_touch(/*_.VALTUP___V1333*/ curfptr[1332]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1341*/ curfptr[1340]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1333*/ curfptr[1332]);
  
- MELT_LOCATION("warmelt-first.melt:943:/ touch");
+ MELT_LOCATION("warmelt-first.melt:938:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1333*/ curfptr[1332]);
+ meltgc_touch(/*_.VALDATA___V1325*/ curfptr[1324]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1343*/ curfptr[1342]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1335*/ curfptr[1334]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1342*/ curfptr[1341]);
+ meltgc_touch(/*_.VALDATA___V1334*/ curfptr[1333]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1345*/ curfptr[1344]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1337*/ curfptr[1336]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:945:/ touch");
+ MELT_LOCATION("warmelt-first.melt:940:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1346*/ curfptr[1345]);
+ meltgc_touch(/*_.VALDATA___V1338*/ curfptr[1337]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:945:/ touch");
+ MELT_LOCATION("warmelt-first.melt:940:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1347*/ curfptr[1346]);
+ meltgc_touch(/*_.VALDATA___V1339*/ curfptr[1338]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1348*/ curfptr[1347]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1348*/ curfptr[1347]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1348*/ curfptr[1347]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1346*/ curfptr[1345]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1340*/ curfptr[1339]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1340*/ curfptr[1339]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1340*/ curfptr[1339]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1338*/ curfptr[1337]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1348*/ curfptr[1347]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1348*/ curfptr[1347]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1348*/ curfptr[1347]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1340*/ curfptr[1339]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1340*/ curfptr[1339]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1340*/ curfptr[1339]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1348*/ curfptr[1347]);
+ meltgc_touch(/*_.VALTUP___V1340*/ curfptr[1339]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1348*/ curfptr[1347]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1340*/ curfptr[1339]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1349*/ curfptr[1348]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1341*/ curfptr[1340]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1350*/ curfptr[1349]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1342*/ curfptr[1341]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1352*/ curfptr[1351]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1351*/ curfptr[1350]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1344*/ curfptr[1343]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1343*/ curfptr[1342]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1352*/ curfptr[1351]);
+ meltgc_touch(/*_.VALTUP___V1344*/ curfptr[1343]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:940:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1352*/ curfptr[1351]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1344*/ curfptr[1343]);
  
- MELT_LOCATION("warmelt-first.melt:945:/ touch");
+ MELT_LOCATION("warmelt-first.melt:940:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1344*/ curfptr[1343]);
+ meltgc_touch(/*_.VALDATA___V1336*/ curfptr[1335]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1353*/ curfptr[1352])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1353*/ curfptr[1352]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1353*/ curfptr[1352]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1354*/ curfptr[1353]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1346*/ curfptr[1345]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1353*/ curfptr[1352]);
+ meltgc_touch(/*_.VALDATA___V1345*/ curfptr[1344]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1356*/ curfptr[1355]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1348*/ curfptr[1347]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:947:/ touch");
+ MELT_LOCATION("warmelt-first.melt:942:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1357*/ curfptr[1356]);
+ meltgc_touch(/*_.VALDATA___V1349*/ curfptr[1348]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:947:/ touch");
+ MELT_LOCATION("warmelt-first.melt:942:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1358*/ curfptr[1357]);
+ meltgc_touch(/*_.VALDATA___V1350*/ curfptr[1349]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1359*/ curfptr[1358]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1359*/ curfptr[1358]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1359*/ curfptr[1358]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1351*/ curfptr[1350]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1351*/ curfptr[1350]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1351*/ curfptr[1350]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1349*/ curfptr[1348]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1359*/ curfptr[1358]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1359*/ curfptr[1358]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1359*/ curfptr[1358]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1351*/ curfptr[1350]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1351*/ curfptr[1350]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1351*/ curfptr[1350]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1359*/ curfptr[1358]);
+ meltgc_touch(/*_.VALTUP___V1351*/ curfptr[1350]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1359*/ curfptr[1358]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1351*/ curfptr[1350]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1360*/ curfptr[1359]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1352*/ curfptr[1351]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1361*/ curfptr[1360]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1353*/ curfptr[1352]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1363*/ curfptr[1362]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1362*/ curfptr[1361]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1355*/ curfptr[1354]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1354*/ curfptr[1353]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1363*/ curfptr[1362]);
+ meltgc_touch(/*_.VALTUP___V1355*/ curfptr[1354]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:942:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1363*/ curfptr[1362]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1347*/ curfptr[1346]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1355*/ curfptr[1354]);
  
- MELT_LOCATION("warmelt-first.melt:947:/ touch");
+ MELT_LOCATION("warmelt-first.melt:942:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1355*/ curfptr[1354]);
+ meltgc_touch(/*_.VALDATA___V1347*/ curfptr[1346]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1364*/ curfptr[1363])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1364*/ curfptr[1363]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1364*/ curfptr[1363]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1365*/ curfptr[1364]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1357*/ curfptr[1356]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1364*/ curfptr[1363]);
+ meltgc_touch(/*_.VALDATA___V1356*/ curfptr[1355]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:944:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1367*/ curfptr[1366]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1359*/ curfptr[1358]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:944:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:944:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:949:/ touch");
+ MELT_LOCATION("warmelt-first.melt:944:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1368*/ curfptr[1367]);
+ meltgc_touch(/*_.VALDATA___V1360*/ curfptr[1359]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1369*/ curfptr[1368]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1369*/ curfptr[1368]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1369*/ curfptr[1368]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1361*/ curfptr[1360]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1361*/ curfptr[1360]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1361*/ curfptr[1360]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1360*/ curfptr[1359]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1369*/ curfptr[1368]);
+ meltgc_touch(/*_.VALTUP___V1361*/ curfptr[1360]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:944:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1369*/ curfptr[1368]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1361*/ curfptr[1360]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:944:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1370*/ curfptr[1369]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1362*/ curfptr[1361]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1372*/ curfptr[1371]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1371*/ curfptr[1370]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1364*/ curfptr[1363]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1363*/ curfptr[1362]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1372*/ curfptr[1371]);
+ meltgc_touch(/*_.VALTUP___V1364*/ curfptr[1363]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:944:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1366*/ curfptr[1365]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1372*/ curfptr[1371]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1358*/ curfptr[1357]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1364*/ curfptr[1363]);
  
- MELT_LOCATION("warmelt-first.melt:949:/ touch");
+ MELT_LOCATION("warmelt-first.melt:944:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1366*/ curfptr[1365]);
+ meltgc_touch(/*_.VALDATA___V1358*/ curfptr[1357]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1374*/ curfptr[1373]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1366*/ curfptr[1365]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1373*/ curfptr[1372]);
+ meltgc_touch(/*_.VALDATA___V1365*/ curfptr[1364]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1376*/ curfptr[1375]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1368*/ curfptr[1367]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:951:/ touch");
+ MELT_LOCATION("warmelt-first.melt:946:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1377*/ curfptr[1376]);
+ meltgc_touch(/*_.VALDATA___V1369*/ curfptr[1368]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1378*/ curfptr[1377]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1378*/ curfptr[1377]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1378*/ curfptr[1377]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1377*/ curfptr[1376]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1370*/ curfptr[1369]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1370*/ curfptr[1369]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1370*/ curfptr[1369]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1369*/ curfptr[1368]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1378*/ curfptr[1377]);
+ meltgc_touch(/*_.VALTUP___V1370*/ curfptr[1369]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1378*/ curfptr[1377]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1370*/ curfptr[1369]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1379*/ curfptr[1378]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1371*/ curfptr[1370]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1381*/ curfptr[1380]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1380*/ curfptr[1379]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1373*/ curfptr[1372]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1372*/ curfptr[1371]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1381*/ curfptr[1380]);
+ meltgc_touch(/*_.VALTUP___V1373*/ curfptr[1372]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1375*/ curfptr[1374]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1381*/ curfptr[1380]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1367*/ curfptr[1366]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1373*/ curfptr[1372]);
  
- MELT_LOCATION("warmelt-first.melt:951:/ touch");
+ MELT_LOCATION("warmelt-first.melt:946:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1375*/ curfptr[1374]);
+ meltgc_touch(/*_.VALDATA___V1367*/ curfptr[1366]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1382*/ curfptr[1381])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1374*/ curfptr[1373])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1382*/ curfptr[1381]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1382*/ curfptr[1381]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1383*/ curfptr[1382]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1374*/ curfptr[1373]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1374*/ curfptr[1373]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1375*/ curfptr[1374]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1382*/ curfptr[1381]);
+ meltgc_touch(/*_.VALDATA___V1374*/ curfptr[1373]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1385*/ curfptr[1384]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1377*/ curfptr[1376]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:954:/ touch");
+ MELT_LOCATION("warmelt-first.melt:949:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1386*/ curfptr[1385]);
+ meltgc_touch(/*_.VALDATA___V1378*/ curfptr[1377]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:954:/ touch");
+ MELT_LOCATION("warmelt-first.melt:949:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1387*/ curfptr[1386]);
+ meltgc_touch(/*_.VALDATA___V1379*/ curfptr[1378]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1388*/ curfptr[1387]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1388*/ curfptr[1387]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1388*/ curfptr[1387]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1380*/ curfptr[1379]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1380*/ curfptr[1379]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1380*/ curfptr[1379]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1378*/ curfptr[1377]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1388*/ curfptr[1387]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1388*/ curfptr[1387]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1388*/ curfptr[1387]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1380*/ curfptr[1379]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1380*/ curfptr[1379]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1380*/ curfptr[1379]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1379*/ curfptr[1378]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1388*/ curfptr[1387]);
+ meltgc_touch(/*_.VALTUP___V1380*/ curfptr[1379]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1388*/ curfptr[1387]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1380*/ curfptr[1379]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1389*/ curfptr[1388]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1381*/ curfptr[1380]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1390*/ curfptr[1389]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1382*/ curfptr[1381]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1392*/ curfptr[1391]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1391*/ curfptr[1390]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1384*/ curfptr[1383]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1383*/ curfptr[1382]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1392*/ curfptr[1391]);
+ meltgc_touch(/*_.VALTUP___V1384*/ curfptr[1383]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:949:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1392*/ curfptr[1391]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1384*/ curfptr[1383]);
  
- MELT_LOCATION("warmelt-first.melt:954:/ touch");
+ MELT_LOCATION("warmelt-first.melt:949:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1384*/ curfptr[1383]);
+ meltgc_touch(/*_.VALDATA___V1376*/ curfptr[1375]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1393*/ curfptr[1392])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1385*/ curfptr[1384])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1393*/ curfptr[1392]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1393*/ curfptr[1392]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1394*/ curfptr[1393]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1385*/ curfptr[1384]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1385*/ curfptr[1384]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1386*/ curfptr[1385]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1393*/ curfptr[1392]);
+ meltgc_touch(/*_.VALDATA___V1385*/ curfptr[1384]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1396*/ curfptr[1395]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1388*/ curfptr[1387]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:956:/ touch");
+ MELT_LOCATION("warmelt-first.melt:951:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1397*/ curfptr[1396]);
+ meltgc_touch(/*_.VALDATA___V1389*/ curfptr[1388]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:956:/ touch");
+ MELT_LOCATION("warmelt-first.melt:951:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1398*/ curfptr[1397]);
+ meltgc_touch(/*_.VALDATA___V1390*/ curfptr[1389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1399*/ curfptr[1398]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1399*/ curfptr[1398]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1399*/ curfptr[1398]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1391*/ curfptr[1390]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1391*/ curfptr[1390]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1391*/ curfptr[1390]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1399*/ curfptr[1398]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1399*/ curfptr[1398]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1399*/ curfptr[1398]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1391*/ curfptr[1390]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1391*/ curfptr[1390]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1391*/ curfptr[1390]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1399*/ curfptr[1398]);
+ meltgc_touch(/*_.VALTUP___V1391*/ curfptr[1390]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1399*/ curfptr[1398]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1391*/ curfptr[1390]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1400*/ curfptr[1399]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1392*/ curfptr[1391]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1401*/ curfptr[1400]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1393*/ curfptr[1392]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1403*/ curfptr[1402]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1402*/ curfptr[1401]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1395*/ curfptr[1394]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1394*/ curfptr[1393]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1403*/ curfptr[1402]);
+ meltgc_touch(/*_.VALTUP___V1395*/ curfptr[1394]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:951:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1395*/ curfptr[1394]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1403*/ curfptr[1402]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1387*/ curfptr[1386]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1395*/ curfptr[1394]);
  
- MELT_LOCATION("warmelt-first.melt:956:/ touch");
+ MELT_LOCATION("warmelt-first.melt:951:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1395*/ curfptr[1394]);
+ meltgc_touch(/*_.VALDATA___V1387*/ curfptr[1386]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1405*/ curfptr[1404]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1397*/ curfptr[1396]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1404*/ curfptr[1403]);
+ meltgc_touch(/*_.VALDATA___V1396*/ curfptr[1395]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1407*/ curfptr[1406]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1399*/ curfptr[1398]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:958:/ touch");
+ MELT_LOCATION("warmelt-first.melt:953:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1408*/ curfptr[1407]);
+ meltgc_touch(/*_.VALDATA___V1400*/ curfptr[1399]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:958:/ touch");
+ MELT_LOCATION("warmelt-first.melt:953:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1409*/ curfptr[1408]);
+ meltgc_touch(/*_.VALDATA___V1401*/ curfptr[1400]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1410*/ curfptr[1409]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1410*/ curfptr[1409]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1410*/ curfptr[1409]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1408*/ curfptr[1407]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1402*/ curfptr[1401]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1402*/ curfptr[1401]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1402*/ curfptr[1401]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1410*/ curfptr[1409]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1410*/ curfptr[1409]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1410*/ curfptr[1409]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1402*/ curfptr[1401]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1402*/ curfptr[1401]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1402*/ curfptr[1401]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1410*/ curfptr[1409]);
+ meltgc_touch(/*_.VALTUP___V1402*/ curfptr[1401]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1410*/ curfptr[1409]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1402*/ curfptr[1401]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1411*/ curfptr[1410]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1403*/ curfptr[1402]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1412*/ curfptr[1411]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1404*/ curfptr[1403]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1414*/ curfptr[1413]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1413*/ curfptr[1412]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1406*/ curfptr[1405]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1405*/ curfptr[1404]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1414*/ curfptr[1413]);
+ meltgc_touch(/*_.VALTUP___V1406*/ curfptr[1405]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:953:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1406*/ curfptr[1405]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1414*/ curfptr[1413]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1398*/ curfptr[1397]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1406*/ curfptr[1405]);
  
- MELT_LOCATION("warmelt-first.melt:958:/ touch");
+ MELT_LOCATION("warmelt-first.melt:953:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1406*/ curfptr[1405]);
+ meltgc_touch(/*_.VALDATA___V1398*/ curfptr[1397]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1415*/ curfptr[1414])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1415*/ curfptr[1414]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1415*/ curfptr[1414]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1416*/ curfptr[1415]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1408*/ curfptr[1407]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1415*/ curfptr[1414]);
+ meltgc_touch(/*_.VALDATA___V1407*/ curfptr[1406]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1418*/ curfptr[1417]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1410*/ curfptr[1409]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1078*/ curfptr[1077]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:959:/ touch");
+ MELT_LOCATION("warmelt-first.melt:954:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1419*/ curfptr[1418]);
+ meltgc_touch(/*_.VALDATA___V1411*/ curfptr[1410]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1081*/ curfptr[1080]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:959:/ touch");
+ MELT_LOCATION("warmelt-first.melt:954:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1420*/ curfptr[1419]);
+ meltgc_touch(/*_.VALDATA___V1412*/ curfptr[1411]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1421*/ curfptr[1420]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1421*/ curfptr[1420]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1421*/ curfptr[1420]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1413*/ curfptr[1412]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1413*/ curfptr[1412]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1413*/ curfptr[1412]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1411*/ curfptr[1410]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1421*/ curfptr[1420]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1421*/ curfptr[1420]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1421*/ curfptr[1420]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1413*/ curfptr[1412]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1413*/ curfptr[1412]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1413*/ curfptr[1412]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1421*/ curfptr[1420]);
+ meltgc_touch(/*_.VALTUP___V1413*/ curfptr[1412]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1421*/ curfptr[1420]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1413*/ curfptr[1412]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1422*/ curfptr[1421]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1414*/ curfptr[1413]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1423*/ curfptr[1422]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1415*/ curfptr[1414]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1425*/ curfptr[1424]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1424*/ curfptr[1423]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1417*/ curfptr[1416]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1416*/ curfptr[1415]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1425*/ curfptr[1424]);
+ meltgc_touch(/*_.VALTUP___V1417*/ curfptr[1416]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1425*/ curfptr[1424]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1417*/ curfptr[1416]);
  
- MELT_LOCATION("warmelt-first.melt:959:/ touch");
+ MELT_LOCATION("warmelt-first.melt:954:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1417*/ curfptr[1416]);
+ meltgc_touch(/*_.VALDATA___V1409*/ curfptr[1408]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1418*/ curfptr[1417])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1427*/ curfptr[1426]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1418*/ curfptr[1417]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1418*/ curfptr[1417]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1419*/ curfptr[1418]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1426*/ curfptr[1425]);
+ meltgc_touch(/*_.VALDATA___V1418*/ curfptr[1417]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:956:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1429*/ curfptr[1428]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1421*/ curfptr[1420]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:956:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:956:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:961:/ touch");
+ MELT_LOCATION("warmelt-first.melt:956:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1430*/ curfptr[1429]);
+ meltgc_touch(/*_.VALDATA___V1422*/ curfptr[1421]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1431*/ curfptr[1430]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1431*/ curfptr[1430]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1431*/ curfptr[1430]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1423*/ curfptr[1422]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1423*/ curfptr[1422]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1423*/ curfptr[1422]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1431*/ curfptr[1430]);
+ meltgc_touch(/*_.VALTUP___V1423*/ curfptr[1422]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:956:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1431*/ curfptr[1430]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1423*/ curfptr[1422]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:956:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1432*/ curfptr[1431]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1424*/ curfptr[1423]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1434*/ curfptr[1433]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1433*/ curfptr[1432]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1426*/ curfptr[1425]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1425*/ curfptr[1424]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1434*/ curfptr[1433]);
+ meltgc_touch(/*_.VALTUP___V1426*/ curfptr[1425]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:956:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1434*/ curfptr[1433]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1426*/ curfptr[1425]);
  
- MELT_LOCATION("warmelt-first.melt:961:/ touch");
+ MELT_LOCATION("warmelt-first.melt:956:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1428*/ curfptr[1427]);
+ meltgc_touch(/*_.VALDATA___V1420*/ curfptr[1419]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1436*/ curfptr[1435]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1428*/ curfptr[1427]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1439*/ curfptr[1438]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1431*/ curfptr[1430]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1438*/ curfptr[1437]);
+ meltgc_touch(/*_.VALDATA___V1430*/ curfptr[1429]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1438*/ curfptr[1437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1430*/ curfptr[1429]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:964:/ touch");
+ MELT_LOCATION("warmelt-first.melt:959:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1437*/ curfptr[1436]);
+ meltgc_touch(/*_.VALDATA___V1429*/ curfptr[1428]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1433*/ curfptr[1432])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1442*/ curfptr[1441]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1433*/ curfptr[1432]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1433*/ curfptr[1432]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1434*/ curfptr[1433]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1441*/ curfptr[1440]);
+ meltgc_touch(/*_.VALDATA___V1433*/ curfptr[1432]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1441*/ curfptr[1440]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1433*/ curfptr[1432]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:964:/ touch");
+ MELT_LOCATION("warmelt-first.melt:959:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1440*/ curfptr[1439]);
+ meltgc_touch(/*_.VALDATA___V1432*/ curfptr[1431]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1443*/ curfptr[1442]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1443*/ curfptr[1442]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1443*/ curfptr[1442]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1435*/ curfptr[1434]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1435*/ curfptr[1434]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1435*/ curfptr[1434]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1429*/ curfptr[1428]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1443*/ curfptr[1442]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1443*/ curfptr[1442]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1443*/ curfptr[1442]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1440*/ curfptr[1439]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1435*/ curfptr[1434]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1435*/ curfptr[1434]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1435*/ curfptr[1434]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1443*/ curfptr[1442]);
+ meltgc_touch(/*_.VALTUP___V1435*/ curfptr[1434]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1443*/ curfptr[1442]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1435*/ curfptr[1434]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1445*/ curfptr[1444]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1437*/ curfptr[1436]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1444*/ curfptr[1443]);
+ meltgc_touch(/*_.VALDATA___V1436*/ curfptr[1435]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V1436*/ curfptr[1435]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:964:/ touch");
+ MELT_LOCATION("warmelt-first.melt:959:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1446*/ curfptr[1445]);
+ meltgc_touch(/*_.VALDATA___V1438*/ curfptr[1437]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1447*/ curfptr[1446]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1447*/ curfptr[1446]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1447*/ curfptr[1446]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1446*/ curfptr[1445]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1439*/ curfptr[1438]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1439*/ curfptr[1438]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1439*/ curfptr[1438]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1447*/ curfptr[1446]);
+ meltgc_touch(/*_.VALTUP___V1439*/ curfptr[1438]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1447*/ curfptr[1446]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1439*/ curfptr[1438]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1448*/ curfptr[1447]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1440*/ curfptr[1439]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1449*/ curfptr[1448]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1441*/ curfptr[1440]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1450*/ curfptr[1449]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1442*/ curfptr[1441]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1451*/ curfptr[1450]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1443*/ curfptr[1442]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1452*/ curfptr[1451]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1444*/ curfptr[1443]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1433*/ curfptr[1432]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V1453*/ curfptr[1452]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V1445*/ curfptr[1444]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V1454*/ curfptr[1453]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V1446*/ curfptr[1445]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V1455*/ curfptr[1454]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V1447*/ curfptr[1446]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V1456*/ curfptr[1455]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V1448*/ curfptr[1447]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V1457*/ curfptr[1456]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V1449*/ curfptr[1448]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V1458*/ curfptr[1457]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V1450*/ curfptr[1449]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V1459*/ curfptr[1458]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V1451*/ curfptr[1450]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V1460*/ curfptr[1459]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V1452*/ curfptr[1451]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V1461*/ curfptr[1460]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1454*/ curfptr[1453]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V1453*/ curfptr[1452]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1462*/ curfptr[1461]);
+ meltgc_touch(/*_.VALTUP___V1454*/ curfptr[1453]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V1462*/ curfptr[1461]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V1454*/ curfptr[1453]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1464*/ curfptr[1463]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1464*/ curfptr[1463]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1464*/ curfptr[1463]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1463*/ curfptr[1462]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1456*/ curfptr[1455]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1456*/ curfptr[1455]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1456*/ curfptr[1455]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1455*/ curfptr[1454]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1464*/ curfptr[1463]);
+ meltgc_touch(/*_.VALTUP___V1456*/ curfptr[1455]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:959:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V1464*/ curfptr[1463]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1427*/ curfptr[1426]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V1456*/ curfptr[1455]);
  
- MELT_LOCATION("warmelt-first.melt:964:/ touch");
+ MELT_LOCATION("warmelt-first.melt:959:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1435*/ curfptr[1434]);
+ meltgc_touch(/*_.VALDATA___V1427*/ curfptr[1426]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1465*/ curfptr[1464])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1465*/ curfptr[1464]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1465*/ curfptr[1464]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1466*/ curfptr[1465]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1458*/ curfptr[1457]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1465*/ curfptr[1464]);
+ meltgc_touch(/*_.VALDATA___V1457*/ curfptr[1456]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:983:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1468*/ curfptr[1467]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1460*/ curfptr[1459]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:983:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:983:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:988:/ touch");
+ MELT_LOCATION("warmelt-first.melt:983:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1469*/ curfptr[1468]);
+ meltgc_touch(/*_.VALDATA___V1461*/ curfptr[1460]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1470*/ curfptr[1469]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1470*/ curfptr[1469]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1470*/ curfptr[1469]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1469*/ curfptr[1468]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1462*/ curfptr[1461]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1461*/ curfptr[1460]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1470*/ curfptr[1469]);
+ meltgc_touch(/*_.VALTUP___V1462*/ curfptr[1461]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:983:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1470*/ curfptr[1469]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1462*/ curfptr[1461]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:983:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1471*/ curfptr[1470]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1463*/ curfptr[1462]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1473*/ curfptr[1472]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1472*/ curfptr[1471]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1465*/ curfptr[1464]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1464*/ curfptr[1463]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1473*/ curfptr[1472]);
+ meltgc_touch(/*_.VALTUP___V1465*/ curfptr[1464]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:983:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1467*/ curfptr[1466]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1473*/ curfptr[1472]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1459*/ curfptr[1458]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1465*/ curfptr[1464]);
  
- MELT_LOCATION("warmelt-first.melt:988:/ touch");
+ MELT_LOCATION("warmelt-first.melt:983:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1467*/ curfptr[1466]);
+ meltgc_touch(/*_.VALDATA___V1459*/ curfptr[1458]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1474*/ curfptr[1473])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1466*/ curfptr[1465])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1474*/ curfptr[1473]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1474*/ curfptr[1473]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1475*/ curfptr[1474]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1466*/ curfptr[1465]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1466*/ curfptr[1465]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1467*/ curfptr[1466]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1474*/ curfptr[1473]);
+ meltgc_touch(/*_.VALDATA___V1466*/ curfptr[1465]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:985:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1477*/ curfptr[1476]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1469*/ curfptr[1468]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:985:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:985:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:990:/ touch");
+ MELT_LOCATION("warmelt-first.melt:985:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1478*/ curfptr[1477]);
+ meltgc_touch(/*_.VALDATA___V1470*/ curfptr[1469]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1479*/ curfptr[1478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1479*/ curfptr[1478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1479*/ curfptr[1478]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1478*/ curfptr[1477]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1471*/ curfptr[1470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1471*/ curfptr[1470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1471*/ curfptr[1470]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1479*/ curfptr[1478]);
+ meltgc_touch(/*_.VALTUP___V1471*/ curfptr[1470]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:985:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1479*/ curfptr[1478]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1471*/ curfptr[1470]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:985:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1480*/ curfptr[1479]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1472*/ curfptr[1471]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1482*/ curfptr[1481]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1481*/ curfptr[1480]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1474*/ curfptr[1473]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1473*/ curfptr[1472]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1482*/ curfptr[1481]);
+ meltgc_touch(/*_.VALTUP___V1474*/ curfptr[1473]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:985:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1476*/ curfptr[1475]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1482*/ curfptr[1481]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1468*/ curfptr[1467]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1474*/ curfptr[1473]);
  
- MELT_LOCATION("warmelt-first.melt:990:/ touch");
+ MELT_LOCATION("warmelt-first.melt:985:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1476*/ curfptr[1475]);
+ meltgc_touch(/*_.VALDATA___V1468*/ curfptr[1467]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1483*/ curfptr[1482])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1483*/ curfptr[1482]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1483*/ curfptr[1482]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1484*/ curfptr[1483]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1476*/ curfptr[1475]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1483*/ curfptr[1482]);
+ meltgc_touch(/*_.VALDATA___V1475*/ curfptr[1474]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:988:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1486*/ curfptr[1485]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1478*/ curfptr[1477]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:988:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:988:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:993:/ touch");
+ MELT_LOCATION("warmelt-first.melt:988:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1487*/ curfptr[1486]);
+ meltgc_touch(/*_.VALDATA___V1479*/ curfptr[1478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1488*/ curfptr[1487]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1488*/ curfptr[1487]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1488*/ curfptr[1487]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1480*/ curfptr[1479]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1480*/ curfptr[1479]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1480*/ curfptr[1479]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1479*/ curfptr[1478]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1488*/ curfptr[1487]);
+ meltgc_touch(/*_.VALTUP___V1480*/ curfptr[1479]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:988:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1488*/ curfptr[1487]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1480*/ curfptr[1479]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:988:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1489*/ curfptr[1488]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1481*/ curfptr[1480]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1490*/ curfptr[1489]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1483*/ curfptr[1482]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1482*/ curfptr[1481]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1491*/ curfptr[1490]);
+ meltgc_touch(/*_.VALTUP___V1483*/ curfptr[1482]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:988:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1485*/ curfptr[1484]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1491*/ curfptr[1490]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1477*/ curfptr[1476]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1483*/ curfptr[1482]);
  
- MELT_LOCATION("warmelt-first.melt:993:/ touch");
+ MELT_LOCATION("warmelt-first.melt:988:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1485*/ curfptr[1484]);
+ meltgc_touch(/*_.VALDATA___V1477*/ curfptr[1476]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1484*/ curfptr[1483])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1493*/ curfptr[1492]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1484*/ curfptr[1483]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1484*/ curfptr[1483]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1485*/ curfptr[1484]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1492*/ curfptr[1491]);
+ meltgc_touch(/*_.VALDATA___V1484*/ curfptr[1483]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:990:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1495*/ curfptr[1494]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1487*/ curfptr[1486]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1498*/ curfptr[1497]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1490*/ curfptr[1489]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1497*/ curfptr[1496]);
+ meltgc_touch(/*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:990:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:990:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:995:/ touch");
+ MELT_LOCATION("warmelt-first.melt:990:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1496*/ curfptr[1495]);
+ meltgc_touch(/*_.VALDATA___V1488*/ curfptr[1487]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1499*/ curfptr[1498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1499*/ curfptr[1498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1499*/ curfptr[1498]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1491*/ curfptr[1490]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1488*/ curfptr[1487]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1499*/ curfptr[1498]);
+ meltgc_touch(/*_.VALTUP___V1491*/ curfptr[1490]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:990:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1499*/ curfptr[1498]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1491*/ curfptr[1490]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:990:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1500*/ curfptr[1499]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1492*/ curfptr[1491]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1501*/ curfptr[1500]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1493*/ curfptr[1492]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1503*/ curfptr[1502]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1502*/ curfptr[1501]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1495*/ curfptr[1494]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1494*/ curfptr[1493]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1503*/ curfptr[1502]);
+ meltgc_touch(/*_.VALTUP___V1495*/ curfptr[1494]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:990:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1503*/ curfptr[1502]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1486*/ curfptr[1485]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1495*/ curfptr[1494]);
  
- MELT_LOCATION("warmelt-first.melt:995:/ touch");
+ MELT_LOCATION("warmelt-first.melt:990:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1494*/ curfptr[1493]);
+ meltgc_touch(/*_.VALDATA___V1486*/ curfptr[1485]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1505*/ curfptr[1504]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1497*/ curfptr[1496]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1504*/ curfptr[1503]);
+ meltgc_touch(/*_.VALDATA___V1496*/ curfptr[1495]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1507*/ curfptr[1506]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1499*/ curfptr[1498]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:998:/ touch");
+ MELT_LOCATION("warmelt-first.melt:993:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1508*/ curfptr[1507]);
+ meltgc_touch(/*_.VALDATA___V1500*/ curfptr[1499]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1502*/ curfptr[1501])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1511*/ curfptr[1510]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1502*/ curfptr[1501]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1502*/ curfptr[1501]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1503*/ curfptr[1502]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1510*/ curfptr[1509]);
+ meltgc_touch(/*_.VALDATA___V1502*/ curfptr[1501]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1510*/ curfptr[1509]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1502*/ curfptr[1501]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:998:/ touch");
+ MELT_LOCATION("warmelt-first.melt:993:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1509*/ curfptr[1508]);
+ meltgc_touch(/*_.VALDATA___V1501*/ curfptr[1500]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1512*/ curfptr[1511]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1512*/ curfptr[1511]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1512*/ curfptr[1511]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1508*/ curfptr[1507]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1504*/ curfptr[1503]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1504*/ curfptr[1503]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1504*/ curfptr[1503]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1500*/ curfptr[1499]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1512*/ curfptr[1511]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1512*/ curfptr[1511]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1512*/ curfptr[1511]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1509*/ curfptr[1508]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1504*/ curfptr[1503]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1504*/ curfptr[1503]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1504*/ curfptr[1503]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1501*/ curfptr[1500]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1512*/ curfptr[1511]);
+ meltgc_touch(/*_.VALTUP___V1504*/ curfptr[1503]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1512*/ curfptr[1511]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1504*/ curfptr[1503]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1513*/ curfptr[1512]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1505*/ curfptr[1504]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1514*/ curfptr[1513]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1506*/ curfptr[1505]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1515*/ curfptr[1514]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1507*/ curfptr[1506]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1502*/ curfptr[1501]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1516*/ curfptr[1515]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1509*/ curfptr[1508]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1508*/ curfptr[1507]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1517*/ curfptr[1516]);
+ meltgc_touch(/*_.VALTUP___V1509*/ curfptr[1508]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:993:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1506*/ curfptr[1505]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1517*/ curfptr[1516]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1498*/ curfptr[1497]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1509*/ curfptr[1508]);
  
- MELT_LOCATION("warmelt-first.melt:998:/ touch");
+ MELT_LOCATION("warmelt-first.melt:993:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1506*/ curfptr[1505]);
+ meltgc_touch(/*_.VALDATA___V1498*/ curfptr[1497]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1518*/ curfptr[1517])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1518*/ curfptr[1517]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1518*/ curfptr[1517]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1519*/ curfptr[1518]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1511*/ curfptr[1510]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1518*/ curfptr[1517]);
+ meltgc_touch(/*_.VALDATA___V1510*/ curfptr[1509]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:997:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1521*/ curfptr[1520]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1513*/ curfptr[1512]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1515*/ curfptr[1514])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1524*/ curfptr[1523]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1515*/ curfptr[1514]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1515*/ curfptr[1514]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1516*/ curfptr[1515]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1523*/ curfptr[1522]);
+ meltgc_touch(/*_.VALDATA___V1515*/ curfptr[1514]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:997:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1523*/ curfptr[1522]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1515*/ curfptr[1514]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:997:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1002:/ touch");
+ MELT_LOCATION("warmelt-first.melt:997:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1522*/ curfptr[1521]);
+ meltgc_touch(/*_.VALDATA___V1514*/ curfptr[1513]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1525*/ curfptr[1524]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1525*/ curfptr[1524]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1525*/ curfptr[1524]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1522*/ curfptr[1521]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1517*/ curfptr[1516]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1514*/ curfptr[1513]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1525*/ curfptr[1524]);
+ meltgc_touch(/*_.VALTUP___V1517*/ curfptr[1516]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:997:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1525*/ curfptr[1524]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1517*/ curfptr[1516]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:997:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1526*/ curfptr[1525]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1518*/ curfptr[1517]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1515*/ curfptr[1514]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1528*/ curfptr[1527]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1527*/ curfptr[1526]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1520*/ curfptr[1519]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1519*/ curfptr[1518]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1528*/ curfptr[1527]);
+ meltgc_touch(/*_.VALTUP___V1520*/ curfptr[1519]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:997:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1520*/ curfptr[1519]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1528*/ curfptr[1527]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1512*/ curfptr[1511]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1520*/ curfptr[1519]);
  
- MELT_LOCATION("warmelt-first.melt:1002:/ touch");
+ MELT_LOCATION("warmelt-first.melt:997:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1520*/ curfptr[1519]);
+ meltgc_touch(/*_.VALDATA___V1512*/ curfptr[1511]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1521*/ curfptr[1520])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1530*/ curfptr[1529]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1521*/ curfptr[1520]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1521*/ curfptr[1520]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1522*/ curfptr[1521]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1529*/ curfptr[1528]);
+ meltgc_touch(/*_.VALDATA___V1521*/ curfptr[1520]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1532*/ curfptr[1531]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1524*/ curfptr[1523]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1534*/ curfptr[1533])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1534*/ curfptr[1533]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1534*/ curfptr[1533]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1535*/ curfptr[1534]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1527*/ curfptr[1526]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1534*/ curfptr[1533]);
+ meltgc_touch(/*_.VALDATA___V1526*/ curfptr[1525]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1534*/ curfptr[1533]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1526*/ curfptr[1525]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1004:/ touch");
+ MELT_LOCATION("warmelt-first.melt:999:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1533*/ curfptr[1532]);
+ meltgc_touch(/*_.VALDATA___V1525*/ curfptr[1524]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1537*/ curfptr[1536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1537*/ curfptr[1536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1537*/ curfptr[1536]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1538*/ curfptr[1537]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1530*/ curfptr[1529]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1537*/ curfptr[1536]);
+ meltgc_touch(/*_.VALDATA___V1529*/ curfptr[1528]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1537*/ curfptr[1536]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1529*/ curfptr[1528]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1004:/ touch");
+ MELT_LOCATION("warmelt-first.melt:999:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1536*/ curfptr[1535]);
+ meltgc_touch(/*_.VALDATA___V1528*/ curfptr[1527]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1541*/ curfptr[1540]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1533*/ curfptr[1532]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1540*/ curfptr[1539]);
+ meltgc_touch(/*_.VALDATA___V1532*/ curfptr[1531]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1540*/ curfptr[1539]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1532*/ curfptr[1531]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1004:/ touch");
+ MELT_LOCATION("warmelt-first.melt:999:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1539*/ curfptr[1538]);
+ meltgc_touch(/*_.VALDATA___V1531*/ curfptr[1530]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1533*/ curfptr[1532]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1525*/ curfptr[1524]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1542*/ curfptr[1541]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1539*/ curfptr[1538]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1534*/ curfptr[1533]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1542*/ curfptr[1541]);
+ meltgc_touch(/*_.VALTUP___V1534*/ curfptr[1533]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1542*/ curfptr[1541]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1534*/ curfptr[1533]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1543*/ curfptr[1542]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1535*/ curfptr[1534]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1534*/ curfptr[1533]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1544*/ curfptr[1543]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1536*/ curfptr[1535]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1537*/ curfptr[1536]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1545*/ curfptr[1544]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1537*/ curfptr[1536]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1546*/ curfptr[1545]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1539*/ curfptr[1538]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1538*/ curfptr[1537]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1547*/ curfptr[1546]);
+ meltgc_touch(/*_.VALTUP___V1539*/ curfptr[1538]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:999:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1531*/ curfptr[1530]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1547*/ curfptr[1546]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1539*/ curfptr[1538]);
  
- MELT_LOCATION("warmelt-first.melt:1004:/ touch");
+ MELT_LOCATION("warmelt-first.melt:999:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1531*/ curfptr[1530]);
+ meltgc_touch(/*_.VALDATA___V1523*/ curfptr[1522]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1548*/ curfptr[1547])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1548*/ curfptr[1547]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1548*/ curfptr[1547]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1549*/ curfptr[1548]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1541*/ curfptr[1540]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1548*/ curfptr[1547]);
+ meltgc_touch(/*_.VALDATA___V1540*/ curfptr[1539]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1551*/ curfptr[1550]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1543*/ curfptr[1542]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1554*/ curfptr[1553]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1546*/ curfptr[1545]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1553*/ curfptr[1552]);
+ meltgc_touch(/*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1007:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1002:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1552*/ curfptr[1551]);
+ meltgc_touch(/*_.VALDATA___V1544*/ curfptr[1543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1555*/ curfptr[1554]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1555*/ curfptr[1554]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1555*/ curfptr[1554]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1552*/ curfptr[1551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1547*/ curfptr[1546]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1555*/ curfptr[1554]);
+ meltgc_touch(/*_.VALTUP___V1547*/ curfptr[1546]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1555*/ curfptr[1554]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1547*/ curfptr[1546]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1556*/ curfptr[1555]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1548*/ curfptr[1547]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1557*/ curfptr[1556]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1550*/ curfptr[1549]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1549*/ curfptr[1548]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1558*/ curfptr[1557]);
+ meltgc_touch(/*_.VALTUP___V1550*/ curfptr[1549]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1002:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1550*/ curfptr[1549]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1558*/ curfptr[1557]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1550*/ curfptr[1549]);
  
- MELT_LOCATION("warmelt-first.melt:1007:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1002:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1550*/ curfptr[1549]);
+ meltgc_touch(/*_.VALDATA___V1542*/ curfptr[1541]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1559*/ curfptr[1558])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1551*/ curfptr[1550])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1559*/ curfptr[1558]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1559*/ curfptr[1558]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1560*/ curfptr[1559]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1551*/ curfptr[1550]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1551*/ curfptr[1550]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1552*/ curfptr[1551]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1559*/ curfptr[1558]);
+ meltgc_touch(/*_.VALDATA___V1551*/ curfptr[1550]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1562*/ curfptr[1561]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1554*/ curfptr[1553]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1565*/ curfptr[1564]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1557*/ curfptr[1556]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1564*/ curfptr[1563]);
+ meltgc_touch(/*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1009:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1004:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1563*/ curfptr[1562]);
+ meltgc_touch(/*_.VALDATA___V1555*/ curfptr[1554]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1566*/ curfptr[1565]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1566*/ curfptr[1565]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1566*/ curfptr[1565]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1563*/ curfptr[1562]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1558*/ curfptr[1557]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1555*/ curfptr[1554]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1566*/ curfptr[1565]);
+ meltgc_touch(/*_.VALTUP___V1558*/ curfptr[1557]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1566*/ curfptr[1565]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1558*/ curfptr[1557]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1567*/ curfptr[1566]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1559*/ curfptr[1558]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1569*/ curfptr[1568]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1568*/ curfptr[1567]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1561*/ curfptr[1560]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1560*/ curfptr[1559]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1569*/ curfptr[1568]);
+ meltgc_touch(/*_.VALTUP___V1561*/ curfptr[1560]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1004:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1569*/ curfptr[1568]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1561*/ curfptr[1560]);
  
- MELT_LOCATION("warmelt-first.melt:1009:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1004:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1561*/ curfptr[1560]);
+ meltgc_touch(/*_.VALDATA___V1553*/ curfptr[1552]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1562*/ curfptr[1561])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1571*/ curfptr[1570]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1562*/ curfptr[1561]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1562*/ curfptr[1561]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1563*/ curfptr[1562]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1570*/ curfptr[1569]);
+ meltgc_touch(/*_.VALDATA___V1562*/ curfptr[1561]);
  
- MELT_LOCATION("warmelt-first.melt:1011:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1006:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1573*/ curfptr[1572]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1565*/ curfptr[1564]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1574*/ curfptr[1573]);
+ meltgc_touch(/*_.VALTUP___V1566*/ curfptr[1565]);
  
- MELT_LOCATION("warmelt-first.melt:1011:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1006:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1574*/ curfptr[1573]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1566*/ curfptr[1565]);
  
- MELT_LOCATION("warmelt-first.melt:1011:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1006:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1575*/ curfptr[1574]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1568*/ curfptr[1567]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1568*/ curfptr[1567]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1568*/ curfptr[1567]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1567*/ curfptr[1566]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1576*/ curfptr[1575]);
+ meltgc_touch(/*_.VALTUP___V1568*/ curfptr[1567]);
  
- MELT_LOCATION("warmelt-first.melt:1011:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1006:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1576*/ curfptr[1575]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1568*/ curfptr[1567]);
  
- MELT_LOCATION("warmelt-first.melt:1011:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1006:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1572*/ curfptr[1571]);
+ meltgc_touch(/*_.VALDATA___V1564*/ curfptr[1563]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1569*/ curfptr[1568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1578*/ curfptr[1577]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1569*/ curfptr[1568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1569*/ curfptr[1568]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1570*/ curfptr[1569]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1577*/ curfptr[1576]);
+ meltgc_touch(/*_.VALDATA___V1569*/ curfptr[1568]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1580*/ curfptr[1579]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1572*/ curfptr[1571]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1534*/ curfptr[1533]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1526*/ curfptr[1525]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1014:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1009:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1581*/ curfptr[1580]);
+ meltgc_touch(/*_.VALDATA___V1573*/ curfptr[1572]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1537*/ curfptr[1536]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1529*/ curfptr[1528]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1014:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1009:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1582*/ curfptr[1581]);
+ meltgc_touch(/*_.VALDATA___V1574*/ curfptr[1573]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1540*/ curfptr[1539]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1532*/ curfptr[1531]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1014:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1009:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1583*/ curfptr[1582]);
+ meltgc_touch(/*_.VALDATA___V1575*/ curfptr[1574]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1581*/ curfptr[1580]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1573*/ curfptr[1572]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1574*/ curfptr[1573]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1584*/ curfptr[1583]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1583*/ curfptr[1582]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1576*/ curfptr[1575]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1575*/ curfptr[1574]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1584*/ curfptr[1583]);
+ meltgc_touch(/*_.VALTUP___V1576*/ curfptr[1575]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1584*/ curfptr[1583]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1576*/ curfptr[1575]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1585*/ curfptr[1584]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1577*/ curfptr[1576]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1534*/ curfptr[1533]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1586*/ curfptr[1585]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1578*/ curfptr[1577]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1537*/ curfptr[1536]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1587*/ curfptr[1586]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1579*/ curfptr[1578]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1589*/ curfptr[1588]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1588*/ curfptr[1587]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1581*/ curfptr[1580]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1580*/ curfptr[1579]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1589*/ curfptr[1588]);
+ meltgc_touch(/*_.VALTUP___V1581*/ curfptr[1580]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1009:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1579*/ curfptr[1578]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1589*/ curfptr[1588]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1571*/ curfptr[1570]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1581*/ curfptr[1580]);
  
- MELT_LOCATION("warmelt-first.melt:1014:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1009:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1579*/ curfptr[1578]);
+ meltgc_touch(/*_.VALDATA___V1571*/ curfptr[1570]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1590*/ curfptr[1589])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1590*/ curfptr[1589]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1590*/ curfptr[1589]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1591*/ curfptr[1590]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1583*/ curfptr[1582]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1590*/ curfptr[1589]);
+ meltgc_touch(/*_.VALDATA___V1582*/ curfptr[1581]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1012:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1593*/ curfptr[1592]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1585*/ curfptr[1584]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1012:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1523*/ curfptr[1522]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1515*/ curfptr[1514]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1012:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1017:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1012:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1594*/ curfptr[1593]);
+ meltgc_touch(/*_.VALDATA___V1586*/ curfptr[1585]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1595*/ curfptr[1594]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1595*/ curfptr[1594]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1595*/ curfptr[1594]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1587*/ curfptr[1586]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1587*/ curfptr[1586]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1587*/ curfptr[1586]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1586*/ curfptr[1585]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1595*/ curfptr[1594]);
+ meltgc_touch(/*_.VALTUP___V1587*/ curfptr[1586]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1012:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1595*/ curfptr[1594]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1587*/ curfptr[1586]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1012:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1596*/ curfptr[1595]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1588*/ curfptr[1587]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1515*/ curfptr[1514]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1598*/ curfptr[1597]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1597*/ curfptr[1596]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1590*/ curfptr[1589]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1589*/ curfptr[1588]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1598*/ curfptr[1597]);
+ meltgc_touch(/*_.VALTUP___V1590*/ curfptr[1589]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1012:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1592*/ curfptr[1591]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1598*/ curfptr[1597]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1584*/ curfptr[1583]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1590*/ curfptr[1589]);
  
- MELT_LOCATION("warmelt-first.melt:1017:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1012:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1592*/ curfptr[1591]);
+ meltgc_touch(/*_.VALDATA___V1584*/ curfptr[1583]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1599*/ curfptr[1598])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1599*/ curfptr[1598]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1599*/ curfptr[1598]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1600*/ curfptr[1599]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1592*/ curfptr[1591]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1599*/ curfptr[1598]);
+ meltgc_touch(/*_.VALDATA___V1591*/ curfptr[1590]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1015:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1602*/ curfptr[1601]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1594*/ curfptr[1593]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1015:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1015:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1020:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1015:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1603*/ curfptr[1602]);
+ meltgc_touch(/*_.VALDATA___V1595*/ curfptr[1594]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1604*/ curfptr[1603]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1604*/ curfptr[1603]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1604*/ curfptr[1603]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1603*/ curfptr[1602]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1596*/ curfptr[1595]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1596*/ curfptr[1595]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1596*/ curfptr[1595]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1595*/ curfptr[1594]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1604*/ curfptr[1603]);
+ meltgc_touch(/*_.VALTUP___V1596*/ curfptr[1595]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1015:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1604*/ curfptr[1603]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1596*/ curfptr[1595]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1015:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1605*/ curfptr[1604]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1597*/ curfptr[1596]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1607*/ curfptr[1606]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1606*/ curfptr[1605]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1599*/ curfptr[1598]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1598*/ curfptr[1597]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1607*/ curfptr[1606]);
+ meltgc_touch(/*_.VALTUP___V1599*/ curfptr[1598]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1015:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1607*/ curfptr[1606]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1593*/ curfptr[1592]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1599*/ curfptr[1598]);
  
- MELT_LOCATION("warmelt-first.melt:1020:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1015:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1601*/ curfptr[1600]);
+ meltgc_touch(/*_.VALDATA___V1593*/ curfptr[1592]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1608*/ curfptr[1607])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1600*/ curfptr[1599])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1608*/ curfptr[1607]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1608*/ curfptr[1607]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1609*/ curfptr[1608]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1600*/ curfptr[1599]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1600*/ curfptr[1599]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1601*/ curfptr[1600]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1608*/ curfptr[1607]);
+ meltgc_touch(/*_.VALDATA___V1600*/ curfptr[1599]);
  
- MELT_LOCATION("warmelt-first.melt:1023:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1018:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1611*/ curfptr[1610]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1603*/ curfptr[1602]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1612*/ curfptr[1611]);
+ meltgc_touch(/*_.VALTUP___V1604*/ curfptr[1603]);
  
- MELT_LOCATION("warmelt-first.melt:1023:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1018:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1612*/ curfptr[1611]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1604*/ curfptr[1603]);
  
- MELT_LOCATION("warmelt-first.melt:1023:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1018:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1614*/ curfptr[1613]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1614*/ curfptr[1613]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1614*/ curfptr[1613]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1613*/ curfptr[1612]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1606*/ curfptr[1605]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1606*/ curfptr[1605]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1606*/ curfptr[1605]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1605*/ curfptr[1604]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1614*/ curfptr[1613]);
+ meltgc_touch(/*_.VALTUP___V1606*/ curfptr[1605]);
  
- MELT_LOCATION("warmelt-first.melt:1023:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1018:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1610*/ curfptr[1609]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1614*/ curfptr[1613]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1602*/ curfptr[1601]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1606*/ curfptr[1605]);
  
- MELT_LOCATION("warmelt-first.melt:1023:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1018:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1610*/ curfptr[1609]);
+ meltgc_touch(/*_.VALDATA___V1602*/ curfptr[1601]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1615*/ curfptr[1614])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1615*/ curfptr[1614]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1615*/ curfptr[1614]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1616*/ curfptr[1615]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1608*/ curfptr[1607]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1615*/ curfptr[1614]);
+ meltgc_touch(/*_.VALDATA___V1607*/ curfptr[1606]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1021:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1618*/ curfptr[1617]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1610*/ curfptr[1609]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1021:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1021:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1026:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1021:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1619*/ curfptr[1618]);
+ meltgc_touch(/*_.VALDATA___V1611*/ curfptr[1610]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1620*/ curfptr[1619]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1620*/ curfptr[1619]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1620*/ curfptr[1619]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1619*/ curfptr[1618]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1612*/ curfptr[1611]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1612*/ curfptr[1611]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1612*/ curfptr[1611]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1620*/ curfptr[1619]);
+ meltgc_touch(/*_.VALTUP___V1612*/ curfptr[1611]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1021:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1620*/ curfptr[1619]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1612*/ curfptr[1611]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1021:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1621*/ curfptr[1620]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1613*/ curfptr[1612]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1623*/ curfptr[1622]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1622*/ curfptr[1621]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1615*/ curfptr[1614]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1614*/ curfptr[1613]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1623*/ curfptr[1622]);
+ meltgc_touch(/*_.VALTUP___V1615*/ curfptr[1614]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1021:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1623*/ curfptr[1622]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1615*/ curfptr[1614]);
  
- MELT_LOCATION("warmelt-first.melt:1026:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1021:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1617*/ curfptr[1616]);
+ meltgc_touch(/*_.VALDATA___V1609*/ curfptr[1608]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1624*/ curfptr[1623])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1616*/ curfptr[1615])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1624*/ curfptr[1623]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1624*/ curfptr[1623]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1625*/ curfptr[1624]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1616*/ curfptr[1615]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1616*/ curfptr[1615]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1617*/ curfptr[1616]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1624*/ curfptr[1623]);
+ meltgc_touch(/*_.VALDATA___V1616*/ curfptr[1615]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1025:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1627*/ curfptr[1626]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1619*/ curfptr[1618]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1025:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1025:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1030:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1025:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1628*/ curfptr[1627]);
+ meltgc_touch(/*_.VALDATA___V1620*/ curfptr[1619]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1629*/ curfptr[1628]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1629*/ curfptr[1628]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1629*/ curfptr[1628]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1628*/ curfptr[1627]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1621*/ curfptr[1620]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1621*/ curfptr[1620]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1621*/ curfptr[1620]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1629*/ curfptr[1628]);
+ meltgc_touch(/*_.VALTUP___V1621*/ curfptr[1620]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1025:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1629*/ curfptr[1628]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1621*/ curfptr[1620]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1025:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1630*/ curfptr[1629]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1622*/ curfptr[1621]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1632*/ curfptr[1631]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1631*/ curfptr[1630]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1624*/ curfptr[1623]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1623*/ curfptr[1622]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1632*/ curfptr[1631]);
+ meltgc_touch(/*_.VALTUP___V1624*/ curfptr[1623]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1025:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1626*/ curfptr[1625]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1632*/ curfptr[1631]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1618*/ curfptr[1617]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1624*/ curfptr[1623]);
  
- MELT_LOCATION("warmelt-first.melt:1030:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1025:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1626*/ curfptr[1625]);
+ meltgc_touch(/*_.VALDATA___V1618*/ curfptr[1617]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1633*/ curfptr[1632])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1633*/ curfptr[1632]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1633*/ curfptr[1632]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1634*/ curfptr[1633]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1626*/ curfptr[1625]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1633*/ curfptr[1632]);
+ meltgc_touch(/*_.VALDATA___V1625*/ curfptr[1624]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1636*/ curfptr[1635]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1628*/ curfptr[1627]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1032:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1027:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1637*/ curfptr[1636]);
+ meltgc_touch(/*_.VALDATA___V1629*/ curfptr[1628]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1023*/ curfptr[1022]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1032:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1027:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1638*/ curfptr[1637]);
+ meltgc_touch(/*_.VALDATA___V1630*/ curfptr[1629]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1639*/ curfptr[1638]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1639*/ curfptr[1638]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1639*/ curfptr[1638]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1631*/ curfptr[1630]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1631*/ curfptr[1630]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1631*/ curfptr[1630]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1629*/ curfptr[1628]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1639*/ curfptr[1638]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1639*/ curfptr[1638]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1639*/ curfptr[1638]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1631*/ curfptr[1630]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1631*/ curfptr[1630]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1631*/ curfptr[1630]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1630*/ curfptr[1629]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1639*/ curfptr[1638]);
+ meltgc_touch(/*_.VALTUP___V1631*/ curfptr[1630]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1639*/ curfptr[1638]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1631*/ curfptr[1630]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1640*/ curfptr[1639]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1632*/ curfptr[1631]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1641*/ curfptr[1640]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1633*/ curfptr[1632]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1643*/ curfptr[1642]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1642*/ curfptr[1641]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1635*/ curfptr[1634]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1634*/ curfptr[1633]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1643*/ curfptr[1642]);
+ meltgc_touch(/*_.VALTUP___V1635*/ curfptr[1634]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1027:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1635*/ curfptr[1634]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1643*/ curfptr[1642]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1627*/ curfptr[1626]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1635*/ curfptr[1634]);
  
- MELT_LOCATION("warmelt-first.melt:1032:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1027:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1635*/ curfptr[1634]);
+ meltgc_touch(/*_.VALDATA___V1627*/ curfptr[1626]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1644*/ curfptr[1643])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1636*/ curfptr[1635])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1644*/ curfptr[1643]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1644*/ curfptr[1643]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1645*/ curfptr[1644]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1636*/ curfptr[1635]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1636*/ curfptr[1635]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1637*/ curfptr[1636]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1644*/ curfptr[1643]);
+ meltgc_touch(/*_.VALDATA___V1636*/ curfptr[1635]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1647*/ curfptr[1646]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1639*/ curfptr[1638]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1035:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1030:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1648*/ curfptr[1647]);
+ meltgc_touch(/*_.VALDATA___V1640*/ curfptr[1639]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1651*/ curfptr[1650]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1643*/ curfptr[1642]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1650*/ curfptr[1649]);
+ meltgc_touch(/*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1035:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1030:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1649*/ curfptr[1648]);
+ meltgc_touch(/*_.VALDATA___V1641*/ curfptr[1640]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1652*/ curfptr[1651]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1652*/ curfptr[1651]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1652*/ curfptr[1651]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1648*/ curfptr[1647]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1644*/ curfptr[1643]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1644*/ curfptr[1643]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1644*/ curfptr[1643]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1640*/ curfptr[1639]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1652*/ curfptr[1651]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1652*/ curfptr[1651]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1652*/ curfptr[1651]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1644*/ curfptr[1643]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1644*/ curfptr[1643]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1644*/ curfptr[1643]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1652*/ curfptr[1651]);
+ meltgc_touch(/*_.VALTUP___V1644*/ curfptr[1643]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1652*/ curfptr[1651]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1644*/ curfptr[1643]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1653*/ curfptr[1652]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1645*/ curfptr[1644]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1654*/ curfptr[1653]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1646*/ curfptr[1645]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1656*/ curfptr[1655]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1655*/ curfptr[1654]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1648*/ curfptr[1647]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1647*/ curfptr[1646]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1656*/ curfptr[1655]);
+ meltgc_touch(/*_.VALTUP___V1648*/ curfptr[1647]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1030:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1656*/ curfptr[1655]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1638*/ curfptr[1637]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1648*/ curfptr[1647]);
  
- MELT_LOCATION("warmelt-first.melt:1035:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1030:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1646*/ curfptr[1645]);
+ meltgc_touch(/*_.VALDATA___V1638*/ curfptr[1637]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1657*/ curfptr[1656])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1657*/ curfptr[1656]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1657*/ curfptr[1656]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1658*/ curfptr[1657]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1650*/ curfptr[1649]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1657*/ curfptr[1656]);
+ meltgc_touch(/*_.VALDATA___V1649*/ curfptr[1648]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1660*/ curfptr[1659]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1652*/ curfptr[1651]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1038:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1033:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1661*/ curfptr[1660]);
+ meltgc_touch(/*_.VALDATA___V1653*/ curfptr[1652]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1655*/ curfptr[1654])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1664*/ curfptr[1663]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1655*/ curfptr[1654]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1655*/ curfptr[1654]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1656*/ curfptr[1655]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1663*/ curfptr[1662]);
+ meltgc_touch(/*_.VALDATA___V1655*/ curfptr[1654]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1663*/ curfptr[1662]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1655*/ curfptr[1654]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1038:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1033:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1662*/ curfptr[1661]);
+ meltgc_touch(/*_.VALDATA___V1654*/ curfptr[1653]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1665*/ curfptr[1664]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1665*/ curfptr[1664]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1665*/ curfptr[1664]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1657*/ curfptr[1656]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1657*/ curfptr[1656]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1657*/ curfptr[1656]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1665*/ curfptr[1664]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1665*/ curfptr[1664]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1665*/ curfptr[1664]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1662*/ curfptr[1661]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1657*/ curfptr[1656]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1657*/ curfptr[1656]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1657*/ curfptr[1656]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1654*/ curfptr[1653]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1665*/ curfptr[1664]);
+ meltgc_touch(/*_.VALTUP___V1657*/ curfptr[1656]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1665*/ curfptr[1664]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1657*/ curfptr[1656]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1666*/ curfptr[1665]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1658*/ curfptr[1657]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1668*/ curfptr[1667]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1667*/ curfptr[1666]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1660*/ curfptr[1659]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1659*/ curfptr[1658]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1668*/ curfptr[1667]);
+ meltgc_touch(/*_.VALTUP___V1660*/ curfptr[1659]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1033:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1659*/ curfptr[1658]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1668*/ curfptr[1667]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1651*/ curfptr[1650]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1660*/ curfptr[1659]);
  
- MELT_LOCATION("warmelt-first.melt:1038:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1033:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1659*/ curfptr[1658]);
+ meltgc_touch(/*_.VALDATA___V1651*/ curfptr[1650]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1669*/ curfptr[1668])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1669*/ curfptr[1668]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1669*/ curfptr[1668]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1670*/ curfptr[1669]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1662*/ curfptr[1661]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1669*/ curfptr[1668]);
+ meltgc_touch(/*_.VALDATA___V1661*/ curfptr[1660]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1672*/ curfptr[1671]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1664*/ curfptr[1663]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1041:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1036:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1673*/ curfptr[1672]);
+ meltgc_touch(/*_.VALDATA___V1665*/ curfptr[1664]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1663*/ curfptr[1662]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1655*/ curfptr[1654]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1041:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1036:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1674*/ curfptr[1673]);
+ meltgc_touch(/*_.VALDATA___V1666*/ curfptr[1665]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1675*/ curfptr[1674]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1675*/ curfptr[1674]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1675*/ curfptr[1674]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1673*/ curfptr[1672]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1667*/ curfptr[1666]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1667*/ curfptr[1666]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1667*/ curfptr[1666]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1665*/ curfptr[1664]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1675*/ curfptr[1674]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1675*/ curfptr[1674]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1675*/ curfptr[1674]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1667*/ curfptr[1666]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1667*/ curfptr[1666]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1667*/ curfptr[1666]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1666*/ curfptr[1665]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1675*/ curfptr[1674]);
+ meltgc_touch(/*_.VALTUP___V1667*/ curfptr[1666]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1675*/ curfptr[1674]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1667*/ curfptr[1666]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1676*/ curfptr[1675]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1668*/ curfptr[1667]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1677*/ curfptr[1676]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1669*/ curfptr[1668]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1655*/ curfptr[1654]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1679*/ curfptr[1678]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1678*/ curfptr[1677]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1671*/ curfptr[1670]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1670*/ curfptr[1669]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1679*/ curfptr[1678]);
+ meltgc_touch(/*_.VALTUP___V1671*/ curfptr[1670]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1036:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1671*/ curfptr[1670]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1679*/ curfptr[1678]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1671*/ curfptr[1670]);
  
- MELT_LOCATION("warmelt-first.melt:1041:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1036:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1671*/ curfptr[1670]);
+ meltgc_touch(/*_.VALDATA___V1663*/ curfptr[1662]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1680*/ curfptr[1679])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1672*/ curfptr[1671])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1680*/ curfptr[1679]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1680*/ curfptr[1679]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1681*/ curfptr[1680]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1672*/ curfptr[1671]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1672*/ curfptr[1671]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1673*/ curfptr[1672]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1680*/ curfptr[1679]);
+ meltgc_touch(/*_.VALDATA___V1672*/ curfptr[1671]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1683*/ curfptr[1682]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1675*/ curfptr[1674]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1049:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1044:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1684*/ curfptr[1683]);
+ meltgc_touch(/*_.VALDATA___V1676*/ curfptr[1675]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1049:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1044:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1685*/ curfptr[1684]);
+ meltgc_touch(/*_.VALDATA___V1677*/ curfptr[1676]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1686*/ curfptr[1685]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1686*/ curfptr[1685]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1686*/ curfptr[1685]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1684*/ curfptr[1683]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1678*/ curfptr[1677]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1678*/ curfptr[1677]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1678*/ curfptr[1677]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1676*/ curfptr[1675]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1686*/ curfptr[1685]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1686*/ curfptr[1685]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1686*/ curfptr[1685]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1678*/ curfptr[1677]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1678*/ curfptr[1677]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1678*/ curfptr[1677]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1677*/ curfptr[1676]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1686*/ curfptr[1685]);
+ meltgc_touch(/*_.VALTUP___V1678*/ curfptr[1677]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1686*/ curfptr[1685]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1678*/ curfptr[1677]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1687*/ curfptr[1686]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1679*/ curfptr[1678]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1688*/ curfptr[1687]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1680*/ curfptr[1679]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1690*/ curfptr[1689]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1689*/ curfptr[1688]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1682*/ curfptr[1681]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1681*/ curfptr[1680]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1690*/ curfptr[1689]);
+ meltgc_touch(/*_.VALTUP___V1682*/ curfptr[1681]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1044:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1682*/ curfptr[1681]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1690*/ curfptr[1689]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1674*/ curfptr[1673]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1682*/ curfptr[1681]);
  
- MELT_LOCATION("warmelt-first.melt:1049:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1044:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1682*/ curfptr[1681]);
+ meltgc_touch(/*_.VALDATA___V1674*/ curfptr[1673]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1691*/ curfptr[1690])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1683*/ curfptr[1682])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1691*/ curfptr[1690]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1691*/ curfptr[1690]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1692*/ curfptr[1691]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1683*/ curfptr[1682]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1683*/ curfptr[1682]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1684*/ curfptr[1683]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1691*/ curfptr[1690]);
+ meltgc_touch(/*_.VALDATA___V1683*/ curfptr[1682]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1694*/ curfptr[1693]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1686*/ curfptr[1685]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1052:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1047:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1695*/ curfptr[1694]);
+ meltgc_touch(/*_.VALDATA___V1687*/ curfptr[1686]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1052:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1047:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1696*/ curfptr[1695]);
+ meltgc_touch(/*_.VALDATA___V1688*/ curfptr[1687]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1697*/ curfptr[1696]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1697*/ curfptr[1696]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1697*/ curfptr[1696]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1695*/ curfptr[1694]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1689*/ curfptr[1688]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1689*/ curfptr[1688]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1689*/ curfptr[1688]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1687*/ curfptr[1686]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1697*/ curfptr[1696]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1697*/ curfptr[1696]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1697*/ curfptr[1696]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1689*/ curfptr[1688]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1689*/ curfptr[1688]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1689*/ curfptr[1688]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1688*/ curfptr[1687]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1697*/ curfptr[1696]);
+ meltgc_touch(/*_.VALTUP___V1689*/ curfptr[1688]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1697*/ curfptr[1696]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1689*/ curfptr[1688]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1698*/ curfptr[1697]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1690*/ curfptr[1689]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1699*/ curfptr[1698]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1691*/ curfptr[1690]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1701*/ curfptr[1700]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1700*/ curfptr[1699]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1693*/ curfptr[1692]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1692*/ curfptr[1691]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1701*/ curfptr[1700]);
+ meltgc_touch(/*_.VALTUP___V1693*/ curfptr[1692]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1047:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1693*/ curfptr[1692]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1701*/ curfptr[1700]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1685*/ curfptr[1684]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1693*/ curfptr[1692]);
  
- MELT_LOCATION("warmelt-first.melt:1052:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1047:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1693*/ curfptr[1692]);
+ meltgc_touch(/*_.VALDATA___V1685*/ curfptr[1684]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1702*/ curfptr[1701])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1694*/ curfptr[1693])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1702*/ curfptr[1701]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1702*/ curfptr[1701]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1703*/ curfptr[1702]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1694*/ curfptr[1693]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1694*/ curfptr[1693]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1695*/ curfptr[1694]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1702*/ curfptr[1701]);
+ meltgc_touch(/*_.VALDATA___V1694*/ curfptr[1693]);
  
- MELT_LOCATION("warmelt-first.melt:1056:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1051:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1705*/ curfptr[1704]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1697*/ curfptr[1696]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1706*/ curfptr[1705]);
+ meltgc_touch(/*_.VALTUP___V1698*/ curfptr[1697]);
  
- MELT_LOCATION("warmelt-first.melt:1056:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1051:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1706*/ curfptr[1705]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1698*/ curfptr[1697]);
  
- MELT_LOCATION("warmelt-first.melt:1056:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1051:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1708*/ curfptr[1707]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1708*/ curfptr[1707]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1708*/ curfptr[1707]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1707*/ curfptr[1706]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1700*/ curfptr[1699]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1700*/ curfptr[1699]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1700*/ curfptr[1699]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1699*/ curfptr[1698]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1708*/ curfptr[1707]);
+ meltgc_touch(/*_.VALTUP___V1700*/ curfptr[1699]);
  
- MELT_LOCATION("warmelt-first.melt:1056:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1051:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1704*/ curfptr[1703]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1708*/ curfptr[1707]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1696*/ curfptr[1695]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1700*/ curfptr[1699]);
  
- MELT_LOCATION("warmelt-first.melt:1056:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1051:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1704*/ curfptr[1703]);
+ meltgc_touch(/*_.VALDATA___V1696*/ curfptr[1695]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1709*/ curfptr[1708])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1701*/ curfptr[1700])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1709*/ curfptr[1708]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1709*/ curfptr[1708]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1710*/ curfptr[1709]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1701*/ curfptr[1700]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1701*/ curfptr[1700]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1702*/ curfptr[1701]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1709*/ curfptr[1708]);
+ meltgc_touch(/*_.VALDATA___V1701*/ curfptr[1700]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1059:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1712*/ curfptr[1711]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1704*/ curfptr[1703]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1059:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1059:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1064:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1059:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1713*/ curfptr[1712]);
+ meltgc_touch(/*_.VALDATA___V1705*/ curfptr[1704]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1714*/ curfptr[1713]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1714*/ curfptr[1713]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1714*/ curfptr[1713]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1713*/ curfptr[1712]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1706*/ curfptr[1705]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1706*/ curfptr[1705]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1706*/ curfptr[1705]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1705*/ curfptr[1704]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1714*/ curfptr[1713]);
+ meltgc_touch(/*_.VALTUP___V1706*/ curfptr[1705]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1059:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1714*/ curfptr[1713]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1706*/ curfptr[1705]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1059:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1715*/ curfptr[1714]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1707*/ curfptr[1706]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1717*/ curfptr[1716]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1716*/ curfptr[1715]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1709*/ curfptr[1708]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1708*/ curfptr[1707]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1717*/ curfptr[1716]);
+ meltgc_touch(/*_.VALTUP___V1709*/ curfptr[1708]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1059:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1711*/ curfptr[1710]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1717*/ curfptr[1716]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1703*/ curfptr[1702]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1709*/ curfptr[1708]);
  
- MELT_LOCATION("warmelt-first.melt:1064:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1059:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1711*/ curfptr[1710]);
+ meltgc_touch(/*_.VALDATA___V1703*/ curfptr[1702]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1718*/ curfptr[1717])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1710*/ curfptr[1709])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1718*/ curfptr[1717]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1718*/ curfptr[1717]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1719*/ curfptr[1718]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1710*/ curfptr[1709]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1710*/ curfptr[1709]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1711*/ curfptr[1710]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1718*/ curfptr[1717]);
+ meltgc_touch(/*_.VALDATA___V1710*/ curfptr[1709]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1062:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1721*/ curfptr[1720]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1713*/ curfptr[1712]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1062:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1062:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1067:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1062:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1722*/ curfptr[1721]);
+ meltgc_touch(/*_.VALDATA___V1714*/ curfptr[1713]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1723*/ curfptr[1722]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1723*/ curfptr[1722]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1723*/ curfptr[1722]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1722*/ curfptr[1721]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1715*/ curfptr[1714]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1715*/ curfptr[1714]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1715*/ curfptr[1714]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1714*/ curfptr[1713]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1723*/ curfptr[1722]);
+ meltgc_touch(/*_.VALTUP___V1715*/ curfptr[1714]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1062:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1723*/ curfptr[1722]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1715*/ curfptr[1714]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1062:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1724*/ curfptr[1723]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1716*/ curfptr[1715]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1726*/ curfptr[1725]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1725*/ curfptr[1724]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1718*/ curfptr[1717]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1717*/ curfptr[1716]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1726*/ curfptr[1725]);
+ meltgc_touch(/*_.VALTUP___V1718*/ curfptr[1717]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1062:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1720*/ curfptr[1719]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1726*/ curfptr[1725]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1712*/ curfptr[1711]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1718*/ curfptr[1717]);
  
- MELT_LOCATION("warmelt-first.melt:1067:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1062:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1720*/ curfptr[1719]);
+ meltgc_touch(/*_.VALDATA___V1712*/ curfptr[1711]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1727*/ curfptr[1726])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1719*/ curfptr[1718])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1727*/ curfptr[1726]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1727*/ curfptr[1726]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1728*/ curfptr[1727]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1719*/ curfptr[1718]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1719*/ curfptr[1718]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1720*/ curfptr[1719]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1727*/ curfptr[1726]);
+ meltgc_touch(/*_.VALDATA___V1719*/ curfptr[1718]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1066:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1730*/ curfptr[1729]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1722*/ curfptr[1721]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1066:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1066:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1071:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1066:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1731*/ curfptr[1730]);
+ meltgc_touch(/*_.VALDATA___V1723*/ curfptr[1722]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1732*/ curfptr[1731]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1732*/ curfptr[1731]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1732*/ curfptr[1731]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1731*/ curfptr[1730]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1724*/ curfptr[1723]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1724*/ curfptr[1723]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1724*/ curfptr[1723]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1723*/ curfptr[1722]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1732*/ curfptr[1731]);
+ meltgc_touch(/*_.VALTUP___V1724*/ curfptr[1723]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1066:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1732*/ curfptr[1731]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1724*/ curfptr[1723]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1066:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1733*/ curfptr[1732]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1725*/ curfptr[1724]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1735*/ curfptr[1734]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1734*/ curfptr[1733]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1727*/ curfptr[1726]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1726*/ curfptr[1725]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1735*/ curfptr[1734]);
+ meltgc_touch(/*_.VALTUP___V1727*/ curfptr[1726]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1066:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1729*/ curfptr[1728]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1735*/ curfptr[1734]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1721*/ curfptr[1720]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1727*/ curfptr[1726]);
  
- MELT_LOCATION("warmelt-first.melt:1071:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1066:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1729*/ curfptr[1728]);
+ meltgc_touch(/*_.VALDATA___V1721*/ curfptr[1720]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1736*/ curfptr[1735])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1728*/ curfptr[1727])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1736*/ curfptr[1735]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1736*/ curfptr[1735]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1737*/ curfptr[1736]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1728*/ curfptr[1727]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1728*/ curfptr[1727]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1729*/ curfptr[1728]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1736*/ curfptr[1735]);
+ meltgc_touch(/*_.VALDATA___V1728*/ curfptr[1727]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1072:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1739*/ curfptr[1738]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1731*/ curfptr[1730]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1072:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1072:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1077:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1072:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1740*/ curfptr[1739]);
+ meltgc_touch(/*_.VALDATA___V1732*/ curfptr[1731]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1741*/ curfptr[1740]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1741*/ curfptr[1740]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1741*/ curfptr[1740]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1740*/ curfptr[1739]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1733*/ curfptr[1732]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1733*/ curfptr[1732]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1733*/ curfptr[1732]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1732*/ curfptr[1731]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1741*/ curfptr[1740]);
+ meltgc_touch(/*_.VALTUP___V1733*/ curfptr[1732]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1072:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1741*/ curfptr[1740]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1733*/ curfptr[1732]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1072:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1742*/ curfptr[1741]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1734*/ curfptr[1733]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1744*/ curfptr[1743]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1743*/ curfptr[1742]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1736*/ curfptr[1735]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1735*/ curfptr[1734]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1744*/ curfptr[1743]);
+ meltgc_touch(/*_.VALTUP___V1736*/ curfptr[1735]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1072:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1738*/ curfptr[1737]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1744*/ curfptr[1743]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1730*/ curfptr[1729]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1736*/ curfptr[1735]);
  
- MELT_LOCATION("warmelt-first.melt:1077:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1072:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1738*/ curfptr[1737]);
+ meltgc_touch(/*_.VALDATA___V1730*/ curfptr[1729]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1745*/ curfptr[1744])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1737*/ curfptr[1736])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1745*/ curfptr[1744]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1745*/ curfptr[1744]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1746*/ curfptr[1745]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1737*/ curfptr[1736]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1737*/ curfptr[1736]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1738*/ curfptr[1737]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1745*/ curfptr[1744]);
+ meltgc_touch(/*_.VALDATA___V1737*/ curfptr[1736]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1748*/ curfptr[1747]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1740*/ curfptr[1739]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1082:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1077:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1749*/ curfptr[1748]);
+ meltgc_touch(/*_.VALDATA___V1741*/ curfptr[1740]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1082:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1077:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1750*/ curfptr[1749]);
+ meltgc_touch(/*_.VALDATA___V1742*/ curfptr[1741]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1751*/ curfptr[1750]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1751*/ curfptr[1750]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1751*/ curfptr[1750]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1749*/ curfptr[1748]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1743*/ curfptr[1742]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1743*/ curfptr[1742]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1743*/ curfptr[1742]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1741*/ curfptr[1740]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1751*/ curfptr[1750]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1751*/ curfptr[1750]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1751*/ curfptr[1750]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1743*/ curfptr[1742]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1743*/ curfptr[1742]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1743*/ curfptr[1742]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1742*/ curfptr[1741]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1751*/ curfptr[1750]);
+ meltgc_touch(/*_.VALTUP___V1743*/ curfptr[1742]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1751*/ curfptr[1750]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1743*/ curfptr[1742]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1752*/ curfptr[1751]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1744*/ curfptr[1743]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1753*/ curfptr[1752]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1745*/ curfptr[1744]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1755*/ curfptr[1754]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1754*/ curfptr[1753]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1747*/ curfptr[1746]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1746*/ curfptr[1745]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1755*/ curfptr[1754]);
+ meltgc_touch(/*_.VALTUP___V1747*/ curfptr[1746]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1077:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1747*/ curfptr[1746]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1755*/ curfptr[1754]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1739*/ curfptr[1738]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1747*/ curfptr[1746]);
  
- MELT_LOCATION("warmelt-first.melt:1082:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1077:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1747*/ curfptr[1746]);
+ meltgc_touch(/*_.VALDATA___V1739*/ curfptr[1738]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1756*/ curfptr[1755])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1748*/ curfptr[1747])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1756*/ curfptr[1755]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1756*/ curfptr[1755]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1757*/ curfptr[1756]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1748*/ curfptr[1747]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1748*/ curfptr[1747]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1749*/ curfptr[1748]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1756*/ curfptr[1755]);
+ meltgc_touch(/*_.VALDATA___V1748*/ curfptr[1747]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1759*/ curfptr[1758]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1751*/ curfptr[1750]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1086:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1081:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1760*/ curfptr[1759]);
+ meltgc_touch(/*_.VALDATA___V1752*/ curfptr[1751]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1086:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1081:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1761*/ curfptr[1760]);
+ meltgc_touch(/*_.VALDATA___V1753*/ curfptr[1752]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1762*/ curfptr[1761]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1762*/ curfptr[1761]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1762*/ curfptr[1761]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1760*/ curfptr[1759]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1754*/ curfptr[1753]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1754*/ curfptr[1753]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1754*/ curfptr[1753]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1752*/ curfptr[1751]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1762*/ curfptr[1761]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1762*/ curfptr[1761]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1762*/ curfptr[1761]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1754*/ curfptr[1753]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1754*/ curfptr[1753]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1754*/ curfptr[1753]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1753*/ curfptr[1752]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1762*/ curfptr[1761]);
+ meltgc_touch(/*_.VALTUP___V1754*/ curfptr[1753]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1762*/ curfptr[1761]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1754*/ curfptr[1753]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1763*/ curfptr[1762]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1755*/ curfptr[1754]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1764*/ curfptr[1763]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1756*/ curfptr[1755]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1766*/ curfptr[1765]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1765*/ curfptr[1764]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1758*/ curfptr[1757]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1757*/ curfptr[1756]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1766*/ curfptr[1765]);
+ meltgc_touch(/*_.VALTUP___V1758*/ curfptr[1757]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1081:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1758*/ curfptr[1757]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1766*/ curfptr[1765]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1750*/ curfptr[1749]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1758*/ curfptr[1757]);
  
- MELT_LOCATION("warmelt-first.melt:1086:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1081:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1758*/ curfptr[1757]);
+ meltgc_touch(/*_.VALDATA___V1750*/ curfptr[1749]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1767*/ curfptr[1766])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1759*/ curfptr[1758])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1767*/ curfptr[1766]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1767*/ curfptr[1766]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1768*/ curfptr[1767]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1759*/ curfptr[1758]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1759*/ curfptr[1758]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1760*/ curfptr[1759]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1767*/ curfptr[1766]);
+ meltgc_touch(/*_.VALDATA___V1759*/ curfptr[1758]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1770*/ curfptr[1769]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1762*/ curfptr[1761]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1090:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1085:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1771*/ curfptr[1770]);
+ meltgc_touch(/*_.VALDATA___V1763*/ curfptr[1762]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1774*/ curfptr[1773]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1766*/ curfptr[1765]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1773*/ curfptr[1772]);
+ meltgc_touch(/*_.VALDATA___V1765*/ curfptr[1764]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1765*/ curfptr[1764]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1090:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1085:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1772*/ curfptr[1771]);
+ meltgc_touch(/*_.VALDATA___V1764*/ curfptr[1763]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1775*/ curfptr[1774]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1775*/ curfptr[1774]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1775*/ curfptr[1774]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1771*/ curfptr[1770]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1767*/ curfptr[1766]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1767*/ curfptr[1766]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1767*/ curfptr[1766]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1763*/ curfptr[1762]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1775*/ curfptr[1774]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1775*/ curfptr[1774]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1775*/ curfptr[1774]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1772*/ curfptr[1771]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1767*/ curfptr[1766]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1767*/ curfptr[1766]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1767*/ curfptr[1766]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1764*/ curfptr[1763]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1775*/ curfptr[1774]);
+ meltgc_touch(/*_.VALTUP___V1767*/ curfptr[1766]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1775*/ curfptr[1774]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1767*/ curfptr[1766]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1776*/ curfptr[1775]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1768*/ curfptr[1767]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1777*/ curfptr[1776]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1769*/ curfptr[1768]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1778*/ curfptr[1777]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1770*/ curfptr[1769]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1779*/ curfptr[1778]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1771*/ curfptr[1770]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1781*/ curfptr[1780]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1780*/ curfptr[1779]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1773*/ curfptr[1772]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1772*/ curfptr[1771]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1781*/ curfptr[1780]);
+ meltgc_touch(/*_.VALTUP___V1773*/ curfptr[1772]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1085:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1769*/ curfptr[1768]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1781*/ curfptr[1780]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1761*/ curfptr[1760]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1773*/ curfptr[1772]);
  
- MELT_LOCATION("warmelt-first.melt:1090:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1085:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1769*/ curfptr[1768]);
+ meltgc_touch(/*_.VALDATA___V1761*/ curfptr[1760]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1782*/ curfptr[1781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1774*/ curfptr[1773])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1782*/ curfptr[1781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1782*/ curfptr[1781]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1783*/ curfptr[1782]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1774*/ curfptr[1773]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1774*/ curfptr[1773]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1775*/ curfptr[1774]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1782*/ curfptr[1781]);
+ meltgc_touch(/*_.VALDATA___V1774*/ curfptr[1773]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1785*/ curfptr[1784]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1777*/ curfptr[1776]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1098:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1093:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1786*/ curfptr[1785]);
+ meltgc_touch(/*_.VALDATA___V1778*/ curfptr[1777]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1765*/ curfptr[1764]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1098:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1093:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1787*/ curfptr[1786]);
+ meltgc_touch(/*_.VALDATA___V1779*/ curfptr[1778]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1788*/ curfptr[1787]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1788*/ curfptr[1787]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1788*/ curfptr[1787]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1780*/ curfptr[1779]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1780*/ curfptr[1779]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1780*/ curfptr[1779]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1778*/ curfptr[1777]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1788*/ curfptr[1787]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1788*/ curfptr[1787]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1788*/ curfptr[1787]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1787*/ curfptr[1786]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1780*/ curfptr[1779]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1780*/ curfptr[1779]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1780*/ curfptr[1779]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1779*/ curfptr[1778]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1788*/ curfptr[1787]);
+ meltgc_touch(/*_.VALTUP___V1780*/ curfptr[1779]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1788*/ curfptr[1787]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1780*/ curfptr[1779]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1789*/ curfptr[1788]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1781*/ curfptr[1780]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1790*/ curfptr[1789]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1782*/ curfptr[1781]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1791*/ curfptr[1790]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1783*/ curfptr[1782]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1793*/ curfptr[1792]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1792*/ curfptr[1791]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1785*/ curfptr[1784]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1784*/ curfptr[1783]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1793*/ curfptr[1792]);
+ meltgc_touch(/*_.VALTUP___V1785*/ curfptr[1784]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1093:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1784*/ curfptr[1783]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1793*/ curfptr[1792]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1776*/ curfptr[1775]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1785*/ curfptr[1784]);
  
- MELT_LOCATION("warmelt-first.melt:1098:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1093:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1784*/ curfptr[1783]);
+ meltgc_touch(/*_.VALDATA___V1776*/ curfptr[1775]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1794*/ curfptr[1793])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1794*/ curfptr[1793]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1794*/ curfptr[1793]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1795*/ curfptr[1794]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1787*/ curfptr[1786]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1794*/ curfptr[1793]);
+ meltgc_touch(/*_.VALDATA___V1786*/ curfptr[1785]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1797*/ curfptr[1796]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1789*/ curfptr[1788]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1106:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1101:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1798*/ curfptr[1797]);
+ meltgc_touch(/*_.VALDATA___V1790*/ curfptr[1789]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1765*/ curfptr[1764]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1106:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1101:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1799*/ curfptr[1798]);
+ meltgc_touch(/*_.VALDATA___V1791*/ curfptr[1790]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1800*/ curfptr[1799]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1800*/ curfptr[1799]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1800*/ curfptr[1799]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1798*/ curfptr[1797]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1792*/ curfptr[1791]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1792*/ curfptr[1791]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1792*/ curfptr[1791]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1790*/ curfptr[1789]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1800*/ curfptr[1799]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1800*/ curfptr[1799]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1800*/ curfptr[1799]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1792*/ curfptr[1791]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1792*/ curfptr[1791]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1792*/ curfptr[1791]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1791*/ curfptr[1790]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1800*/ curfptr[1799]);
+ meltgc_touch(/*_.VALTUP___V1792*/ curfptr[1791]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1800*/ curfptr[1799]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1792*/ curfptr[1791]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1801*/ curfptr[1800]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1793*/ curfptr[1792]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1802*/ curfptr[1801]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1794*/ curfptr[1793]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1803*/ curfptr[1802]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1795*/ curfptr[1794]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1804*/ curfptr[1803]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1796*/ curfptr[1795]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1806*/ curfptr[1805]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1805*/ curfptr[1804]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1798*/ curfptr[1797]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V1797*/ curfptr[1796]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1806*/ curfptr[1805]);
+ meltgc_touch(/*_.VALTUP___V1798*/ curfptr[1797]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1101:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1796*/ curfptr[1795]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1806*/ curfptr[1805]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1788*/ curfptr[1787]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1798*/ curfptr[1797]);
  
- MELT_LOCATION("warmelt-first.melt:1106:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1101:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1796*/ curfptr[1795]);
+ meltgc_touch(/*_.VALDATA___V1788*/ curfptr[1787]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1807*/ curfptr[1806])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1807*/ curfptr[1806]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1807*/ curfptr[1806]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1808*/ curfptr[1807]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1800*/ curfptr[1799]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1807*/ curfptr[1806]);
+ meltgc_touch(/*_.VALDATA___V1799*/ curfptr[1798]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1810*/ curfptr[1809]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1802*/ curfptr[1801]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1114:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1109:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1811*/ curfptr[1810]);
+ meltgc_touch(/*_.VALDATA___V1803*/ curfptr[1802]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1114:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1109:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1812*/ curfptr[1811]);
+ meltgc_touch(/*_.VALDATA___V1804*/ curfptr[1803]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1813*/ curfptr[1812]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1813*/ curfptr[1812]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1813*/ curfptr[1812]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1811*/ curfptr[1810]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1805*/ curfptr[1804]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1805*/ curfptr[1804]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1805*/ curfptr[1804]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1803*/ curfptr[1802]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1813*/ curfptr[1812]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1813*/ curfptr[1812]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1813*/ curfptr[1812]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1805*/ curfptr[1804]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1805*/ curfptr[1804]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1805*/ curfptr[1804]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1804*/ curfptr[1803]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1813*/ curfptr[1812]);
+ meltgc_touch(/*_.VALTUP___V1805*/ curfptr[1804]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1813*/ curfptr[1812]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1805*/ curfptr[1804]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1814*/ curfptr[1813]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1806*/ curfptr[1805]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1815*/ curfptr[1814]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1807*/ curfptr[1806]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1817*/ curfptr[1816]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1816*/ curfptr[1815]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1809*/ curfptr[1808]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1808*/ curfptr[1807]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1817*/ curfptr[1816]);
+ meltgc_touch(/*_.VALTUP___V1809*/ curfptr[1808]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1109:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1809*/ curfptr[1808]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1817*/ curfptr[1816]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1801*/ curfptr[1800]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1809*/ curfptr[1808]);
  
- MELT_LOCATION("warmelt-first.melt:1114:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1109:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1809*/ curfptr[1808]);
+ meltgc_touch(/*_.VALDATA___V1801*/ curfptr[1800]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1818*/ curfptr[1817])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1810*/ curfptr[1809])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1818*/ curfptr[1817]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1818*/ curfptr[1817]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1819*/ curfptr[1818]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1810*/ curfptr[1809]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1810*/ curfptr[1809]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1811*/ curfptr[1810]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1818*/ curfptr[1817]);
+ meltgc_touch(/*_.VALDATA___V1810*/ curfptr[1809]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1821*/ curfptr[1820]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1813*/ curfptr[1812]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1120:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1115:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1822*/ curfptr[1821]);
+ meltgc_touch(/*_.VALDATA___V1814*/ curfptr[1813]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1120:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1115:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1823*/ curfptr[1822]);
+ meltgc_touch(/*_.VALDATA___V1815*/ curfptr[1814]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1824*/ curfptr[1823]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1824*/ curfptr[1823]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1824*/ curfptr[1823]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1822*/ curfptr[1821]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1816*/ curfptr[1815]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1816*/ curfptr[1815]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1816*/ curfptr[1815]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1814*/ curfptr[1813]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1824*/ curfptr[1823]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1824*/ curfptr[1823]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1824*/ curfptr[1823]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1816*/ curfptr[1815]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1816*/ curfptr[1815]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1816*/ curfptr[1815]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1815*/ curfptr[1814]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1824*/ curfptr[1823]);
+ meltgc_touch(/*_.VALTUP___V1816*/ curfptr[1815]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1824*/ curfptr[1823]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1816*/ curfptr[1815]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1825*/ curfptr[1824]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1817*/ curfptr[1816]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1826*/ curfptr[1825]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1818*/ curfptr[1817]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1828*/ curfptr[1827]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1827*/ curfptr[1826]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1820*/ curfptr[1819]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1819*/ curfptr[1818]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1828*/ curfptr[1827]);
+ meltgc_touch(/*_.VALTUP___V1820*/ curfptr[1819]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1115:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1820*/ curfptr[1819]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1828*/ curfptr[1827]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1812*/ curfptr[1811]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1820*/ curfptr[1819]);
  
- MELT_LOCATION("warmelt-first.melt:1120:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1115:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1820*/ curfptr[1819]);
+ meltgc_touch(/*_.VALDATA___V1812*/ curfptr[1811]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1829*/ curfptr[1828])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1821*/ curfptr[1820])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1829*/ curfptr[1828]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1829*/ curfptr[1828]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1830*/ curfptr[1829]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1821*/ curfptr[1820]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1821*/ curfptr[1820]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1822*/ curfptr[1821]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1829*/ curfptr[1828]);
+ meltgc_touch(/*_.VALDATA___V1821*/ curfptr[1820]);
  
- MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1832*/ curfptr[1831]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1824*/ curfptr[1823]);
  
- MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1126:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1121:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1833*/ curfptr[1832]);
+ meltgc_touch(/*_.VALDATA___V1825*/ curfptr[1824]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1836*/ curfptr[1835]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1828*/ curfptr[1827]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1835*/ curfptr[1834]);
+ meltgc_touch(/*_.VALDATA___V1827*/ curfptr[1826]);
  
- MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1827*/ curfptr[1826]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1826*/ curfptr[1825]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1829*/ curfptr[1828]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1829*/ curfptr[1828]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1829*/ curfptr[1828]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1825*/ curfptr[1824]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1829*/ curfptr[1828]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1829*/ curfptr[1828]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1829*/ curfptr[1828]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1826*/ curfptr[1825]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V1829*/ curfptr[1828]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1829*/ curfptr[1828]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))->obj_vartab[3] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VOID))));
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1830*/ curfptr[1829]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1831*/ curfptr[1830]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1833*/ curfptr[1832]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1832*/ curfptr[1831]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V1833*/ curfptr[1832]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1823*/ curfptr[1822]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1833*/ curfptr[1832]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1121:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1823*/ curfptr[1822]);
  
- MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1835*/ curfptr[1834]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1834*/ curfptr[1833]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1837*/ curfptr[1836]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1126:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1834*/ curfptr[1833]);
+ meltgc_touch(/*_.VALDATA___V1838*/ curfptr[1837]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ 
+ MELT_LOCATION("warmelt-first.melt:1126:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1839*/ curfptr[1838]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1837*/ curfptr[1836]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1837*/ curfptr[1836]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1837*/ curfptr[1836]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1833*/ curfptr[1832]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1840*/ curfptr[1839]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1840*/ curfptr[1839]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1840*/ curfptr[1839]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1838*/ curfptr[1837]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1837*/ curfptr[1836]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1837*/ curfptr[1836]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1837*/ curfptr[1836]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1840*/ curfptr[1839]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1840*/ curfptr[1839]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1840*/ curfptr[1839]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1839*/ curfptr[1838]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1837*/ curfptr[1836]);
+ meltgc_touch(/*_.VALTUP___V1840*/ curfptr[1839]);
  
  MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1837*/ curfptr[1836]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1840*/ curfptr[1839]);
  
  MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1838*/ curfptr[1837]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1841*/ curfptr[1840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1839*/ curfptr[1838]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1842*/ curfptr[1841]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1841*/ curfptr[1840]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1840*/ curfptr[1839]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1844*/ curfptr[1843]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1843*/ curfptr[1842]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1841*/ curfptr[1840]);
+ meltgc_touch(/*_.VALTUP___V1844*/ curfptr[1843]);
  
  MELT_LOCATION("warmelt-first.melt:1126:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1831*/ curfptr[1830]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1841*/ curfptr[1840]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1836*/ curfptr[1835]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1844*/ curfptr[1843]);
  
  MELT_LOCATION("warmelt-first.melt:1126:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1831*/ curfptr[1830]);
+ meltgc_touch(/*_.VALDATA___V1836*/ curfptr[1835]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1842*/ curfptr[1841])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1845*/ curfptr[1844])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1842*/ curfptr[1841]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1842*/ curfptr[1841]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1843*/ curfptr[1842]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1845*/ curfptr[1844]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1845*/ curfptr[1844]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1846*/ curfptr[1845]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1842*/ curfptr[1841]);
+ meltgc_touch(/*_.VALDATA___V1845*/ curfptr[1844]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1845*/ curfptr[1844]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1848*/ curfptr[1847]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1131:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1846*/ curfptr[1845]);
+ meltgc_touch(/*_.VALDATA___V1849*/ curfptr[1848]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1827*/ curfptr[1826]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1131:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1847*/ curfptr[1846]);
+ meltgc_touch(/*_.VALDATA___V1850*/ curfptr[1849]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1848*/ curfptr[1847]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1848*/ curfptr[1847]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1848*/ curfptr[1847]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1846*/ curfptr[1845]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1851*/ curfptr[1850]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1851*/ curfptr[1850]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1851*/ curfptr[1850]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1849*/ curfptr[1848]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1848*/ curfptr[1847]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1848*/ curfptr[1847]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1848*/ curfptr[1847]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1851*/ curfptr[1850]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1851*/ curfptr[1850]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1851*/ curfptr[1850]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1850*/ curfptr[1849]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1848*/ curfptr[1847]);
+ meltgc_touch(/*_.VALTUP___V1851*/ curfptr[1850]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1848*/ curfptr[1847]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1851*/ curfptr[1850]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1849*/ curfptr[1848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1852*/ curfptr[1851]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1850*/ curfptr[1849]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1853*/ curfptr[1852]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1852*/ curfptr[1851]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1851*/ curfptr[1850]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1855*/ curfptr[1854]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1854*/ curfptr[1853]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1852*/ curfptr[1851]);
+ meltgc_touch(/*_.VALTUP___V1855*/ curfptr[1854]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1844*/ curfptr[1843]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1852*/ curfptr[1851]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1847*/ curfptr[1846]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1855*/ curfptr[1854]);
  
  MELT_LOCATION("warmelt-first.melt:1131:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1844*/ curfptr[1843]);
+ meltgc_touch(/*_.VALDATA___V1847*/ curfptr[1846]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1853*/ curfptr[1852])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1856*/ curfptr[1855])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1853*/ curfptr[1852]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1853*/ curfptr[1852]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1854*/ curfptr[1853]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1856*/ curfptr[1855]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1856*/ curfptr[1855]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1857*/ curfptr[1856]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1853*/ curfptr[1852]);
+ meltgc_touch(/*_.VALDATA___V1856*/ curfptr[1855]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1856*/ curfptr[1855]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1859*/ curfptr[1858]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1136:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1857*/ curfptr[1856]);
+ meltgc_touch(/*_.VALDATA___V1860*/ curfptr[1859]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1136:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1858*/ curfptr[1857]);
+ meltgc_touch(/*_.VALDATA___V1861*/ curfptr[1860]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1859*/ curfptr[1858]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1859*/ curfptr[1858]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1859*/ curfptr[1858]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1857*/ curfptr[1856]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1862*/ curfptr[1861]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1862*/ curfptr[1861]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1862*/ curfptr[1861]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1860*/ curfptr[1859]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1859*/ curfptr[1858]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1859*/ curfptr[1858]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1859*/ curfptr[1858]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1862*/ curfptr[1861]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1862*/ curfptr[1861]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1862*/ curfptr[1861]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1861*/ curfptr[1860]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1859*/ curfptr[1858]);
+ meltgc_touch(/*_.VALTUP___V1862*/ curfptr[1861]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1859*/ curfptr[1858]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1862*/ curfptr[1861]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1860*/ curfptr[1859]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1863*/ curfptr[1862]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1861*/ curfptr[1860]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1864*/ curfptr[1863]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1863*/ curfptr[1862]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1862*/ curfptr[1861]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1866*/ curfptr[1865]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1865*/ curfptr[1864]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1863*/ curfptr[1862]);
+ meltgc_touch(/*_.VALTUP___V1866*/ curfptr[1865]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1855*/ curfptr[1854]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1863*/ curfptr[1862]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1858*/ curfptr[1857]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1866*/ curfptr[1865]);
  
  MELT_LOCATION("warmelt-first.melt:1136:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1855*/ curfptr[1854]);
+ meltgc_touch(/*_.VALDATA___V1858*/ curfptr[1857]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1864*/ curfptr[1863])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1867*/ curfptr[1866])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1864*/ curfptr[1863]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1864*/ curfptr[1863]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1865*/ curfptr[1864]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1867*/ curfptr[1866]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1867*/ curfptr[1866]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1868*/ curfptr[1867]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1864*/ curfptr[1863]);
+ meltgc_touch(/*_.VALDATA___V1867*/ curfptr[1866]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1867*/ curfptr[1866]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1870*/ curfptr[1869]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1141:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1868*/ curfptr[1867]);
+ meltgc_touch(/*_.VALDATA___V1871*/ curfptr[1870]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1827*/ curfptr[1826]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1141:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1869*/ curfptr[1868]);
+ meltgc_touch(/*_.VALDATA___V1872*/ curfptr[1871]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1870*/ curfptr[1869]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1870*/ curfptr[1869]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1870*/ curfptr[1869]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1868*/ curfptr[1867]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1873*/ curfptr[1872]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1873*/ curfptr[1872]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1873*/ curfptr[1872]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1871*/ curfptr[1870]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1870*/ curfptr[1869]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1870*/ curfptr[1869]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1870*/ curfptr[1869]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1873*/ curfptr[1872]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1873*/ curfptr[1872]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1873*/ curfptr[1872]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1872*/ curfptr[1871]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1870*/ curfptr[1869]);
+ meltgc_touch(/*_.VALTUP___V1873*/ curfptr[1872]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1870*/ curfptr[1869]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1873*/ curfptr[1872]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1871*/ curfptr[1870]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1874*/ curfptr[1873]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1872*/ curfptr[1871]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1875*/ curfptr[1874]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1874*/ curfptr[1873]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1873*/ curfptr[1872]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1877*/ curfptr[1876]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1876*/ curfptr[1875]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1874*/ curfptr[1873]);
+ meltgc_touch(/*_.VALTUP___V1877*/ curfptr[1876]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1866*/ curfptr[1865]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1874*/ curfptr[1873]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1869*/ curfptr[1868]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1877*/ curfptr[1876]);
  
  MELT_LOCATION("warmelt-first.melt:1141:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1866*/ curfptr[1865]);
+ meltgc_touch(/*_.VALDATA___V1869*/ curfptr[1868]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1875*/ curfptr[1874])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1878*/ curfptr[1877])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1875*/ curfptr[1874]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1875*/ curfptr[1874]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1876*/ curfptr[1875]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1878*/ curfptr[1877]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1878*/ curfptr[1877]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1879*/ curfptr[1878]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1875*/ curfptr[1874]);
+ meltgc_touch(/*_.VALDATA___V1878*/ curfptr[1877]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1878*/ curfptr[1877]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1881*/ curfptr[1880]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1146:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1147:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1879*/ curfptr[1878]);
+ meltgc_touch(/*_.VALDATA___V1882*/ curfptr[1881]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1885*/ curfptr[1884]);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1835*/ curfptr[1834]);
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1884*/ curfptr[1883]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1884*/ curfptr[1883]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
+ 
+ MELT_LOCATION("warmelt-first.melt:1147:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1880*/ curfptr[1879]);
+ meltgc_touch(/*_.VALDATA___V1883*/ curfptr[1882]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1881*/ curfptr[1880]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1881*/ curfptr[1880]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1881*/ curfptr[1880]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1879*/ curfptr[1878]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1886*/ curfptr[1885]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1886*/ curfptr[1885]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1886*/ curfptr[1885]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1882*/ curfptr[1881]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1881*/ curfptr[1880]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1881*/ curfptr[1880]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1881*/ curfptr[1880]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1886*/ curfptr[1885]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1886*/ curfptr[1885]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1886*/ curfptr[1885]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1883*/ curfptr[1882]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1881*/ curfptr[1880]);
+ meltgc_touch(/*_.VALTUP___V1886*/ curfptr[1885]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1881*/ curfptr[1880]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1886*/ curfptr[1885]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1882*/ curfptr[1881]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1887*/ curfptr[1886]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1883*/ curfptr[1882]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1888*/ curfptr[1887]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1885*/ curfptr[1884]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1884*/ curfptr[1883]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1890*/ curfptr[1889]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1889*/ curfptr[1888]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1885*/ curfptr[1884]);
+ meltgc_touch(/*_.VALTUP___V1890*/ curfptr[1889]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1147:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1877*/ curfptr[1876]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1885*/ curfptr[1884]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1880*/ curfptr[1879]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1890*/ curfptr[1889]);
  
- MELT_LOCATION("warmelt-first.melt:1146:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1147:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1877*/ curfptr[1876]);
+ meltgc_touch(/*_.VALDATA___V1880*/ curfptr[1879]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1886*/ curfptr[1885])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1886*/ curfptr[1885]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1886*/ curfptr[1885]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1887*/ curfptr[1886]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1892*/ curfptr[1891]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1886*/ curfptr[1885]);
+ meltgc_touch(/*_.VALDATA___V1891*/ curfptr[1890]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1889*/ curfptr[1888]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1894*/ curfptr[1893]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1152:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1154:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1890*/ curfptr[1889]);
+ meltgc_touch(/*_.VALDATA___V1895*/ curfptr[1894]);
  
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1893*/ curfptr[1892]);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895])) == OBMAG_OBJECT);
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1892*/ curfptr[1891]);
- 
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1152:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1154:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1891*/ curfptr[1890]);
+ meltgc_touch(/*_.VALDATA___V1896*/ curfptr[1895]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1894*/ curfptr[1893]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1894*/ curfptr[1893]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1894*/ curfptr[1893]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1890*/ curfptr[1889]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1897*/ curfptr[1896]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1897*/ curfptr[1896]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1897*/ curfptr[1896]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1895*/ curfptr[1894]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1894*/ curfptr[1893]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1894*/ curfptr[1893]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1894*/ curfptr[1893]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1897*/ curfptr[1896]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1897*/ curfptr[1896]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1897*/ curfptr[1896]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1896*/ curfptr[1895]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1894*/ curfptr[1893]);
+ meltgc_touch(/*_.VALTUP___V1897*/ curfptr[1896]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1894*/ curfptr[1893]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1897*/ curfptr[1896]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1895*/ curfptr[1894]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1898*/ curfptr[1897]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1896*/ curfptr[1895]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1899*/ curfptr[1898]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1898*/ curfptr[1897]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1897*/ curfptr[1896]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1901*/ curfptr[1900]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1900*/ curfptr[1899]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1898*/ curfptr[1897]);
+ meltgc_touch(/*_.VALTUP___V1901*/ curfptr[1900]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1154:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1888*/ curfptr[1887]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1898*/ curfptr[1897]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1893*/ curfptr[1892]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1901*/ curfptr[1900]);
  
- MELT_LOCATION("warmelt-first.melt:1152:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1154:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1888*/ curfptr[1887]);
+ meltgc_touch(/*_.VALDATA___V1893*/ curfptr[1892]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1899*/ curfptr[1898])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1902*/ curfptr[1901])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1899*/ curfptr[1898]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1899*/ curfptr[1898]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1900*/ curfptr[1899]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1902*/ curfptr[1901]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1902*/ curfptr[1901]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1903*/ curfptr[1902]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1899*/ curfptr[1898]);
+ meltgc_touch(/*_.VALDATA___V1902*/ curfptr[1901]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1902*/ curfptr[1901]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1905*/ curfptr[1904]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1159:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1162:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1903*/ curfptr[1902]);
+ meltgc_touch(/*_.VALDATA___V1906*/ curfptr[1905]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1159:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1162:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1904*/ curfptr[1903]);
+ meltgc_touch(/*_.VALDATA___V1907*/ curfptr[1906]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1909*/ curfptr[1908])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1909*/ curfptr[1908]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1909*/ curfptr[1908]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1910*/ curfptr[1909]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1909*/ curfptr[1908]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1909*/ curfptr[1908]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ 
+ MELT_LOCATION("warmelt-first.melt:1162:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1908*/ curfptr[1907]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1905*/ curfptr[1904]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1905*/ curfptr[1904]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1905*/ curfptr[1904]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1903*/ curfptr[1902]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1906*/ curfptr[1905]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1905*/ curfptr[1904]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1905*/ curfptr[1904]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1905*/ curfptr[1904]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1907*/ curfptr[1906]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1911*/ curfptr[1910]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1908*/ curfptr[1907]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1905*/ curfptr[1904]);
+ meltgc_touch(/*_.VALTUP___V1911*/ curfptr[1910]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1905*/ curfptr[1904]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1911*/ curfptr[1910]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1906*/ curfptr[1905]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1912*/ curfptr[1911]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1907*/ curfptr[1906]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1913*/ curfptr[1912]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1909*/ curfptr[1908]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1908*/ curfptr[1907]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1914*/ curfptr[1913]);
  
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1909*/ curfptr[1908]);
- 
- MELT_LOCATION("warmelt-first.melt:1159:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1909*/ curfptr[1908]);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1901*/ curfptr[1900]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1909*/ curfptr[1908]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1916*/ curfptr[1915]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1915*/ curfptr[1914]);
  
- MELT_LOCATION("warmelt-first.melt:1159:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1901*/ curfptr[1900]);
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V1916*/ curfptr[1915]);
  
+ MELT_LOCATION("warmelt-first.melt:1162:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1910*/ curfptr[1909])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1910*/ curfptr[1909]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1910*/ curfptr[1909]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1911*/ curfptr[1910]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1904*/ curfptr[1903]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1916*/ curfptr[1915]);
  
+ MELT_LOCATION("warmelt-first.melt:1162:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1910*/ curfptr[1909]);
+ meltgc_touch(/*_.VALDATA___V1904*/ curfptr[1903]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1913*/ curfptr[1912]);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916])) == OBMAG_OBJECT);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1918*/ curfptr[1917]);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1917*/ curfptr[1916]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918])) == OBMAG_OBJECT);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1914*/ curfptr[1913]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1920*/ curfptr[1919]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1167:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1168:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1915*/ curfptr[1914]);
+ meltgc_touch(/*_.VALDATA___V1921*/ curfptr[1920]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1918*/ curfptr[1917]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1924*/ curfptr[1923]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1917*/ curfptr[1916]);
+ meltgc_touch(/*_.VALDATA___V1923*/ curfptr[1922]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1917*/ curfptr[1916]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1923*/ curfptr[1922]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1167:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1168:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1916*/ curfptr[1915]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1914*/ curfptr[1913]);
+ meltgc_touch(/*_.VALDATA___V1922*/ curfptr[1921]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1915*/ curfptr[1914]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1925*/ curfptr[1924]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1925*/ curfptr[1924]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1925*/ curfptr[1924]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1921*/ curfptr[1920]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1919*/ curfptr[1918]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1916*/ curfptr[1915]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1925*/ curfptr[1924]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1925*/ curfptr[1924]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1925*/ curfptr[1924]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1922*/ curfptr[1921]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1919*/ curfptr[1918]);
+ meltgc_touch(/*_.VALTUP___V1925*/ curfptr[1924]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1919*/ curfptr[1918]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1925*/ curfptr[1924]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1920*/ curfptr[1919]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1926*/ curfptr[1925]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1921*/ curfptr[1920]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1927*/ curfptr[1926]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1922*/ curfptr[1921]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1924*/ curfptr[1923]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V1923*/ curfptr[1922]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1929*/ curfptr[1928]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1928*/ curfptr[1927]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1924*/ curfptr[1923]);
+ meltgc_touch(/*_.VALTUP___V1929*/ curfptr[1928]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1168:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1912*/ curfptr[1911]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1924*/ curfptr[1923]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1919*/ curfptr[1918]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1929*/ curfptr[1928]);
  
- MELT_LOCATION("warmelt-first.melt:1167:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1168:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1912*/ curfptr[1911]);
+ meltgc_touch(/*_.VALDATA___V1919*/ curfptr[1918]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1925*/ curfptr[1924])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1925*/ curfptr[1924]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1925*/ curfptr[1924]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1926*/ curfptr[1925]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1931*/ curfptr[1930]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1925*/ curfptr[1924]);
+ meltgc_touch(/*_.VALDATA___V1930*/ curfptr[1929]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1928*/ curfptr[1927]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1933*/ curfptr[1932]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1173:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1929*/ curfptr[1928]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1932*/ curfptr[1931]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1931*/ curfptr[1930]);
+ meltgc_touch(/*_.VALDATA___V1934*/ curfptr[1933]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1923*/ curfptr[1922]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  MELT_LOCATION("warmelt-first.melt:1173:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1930*/ curfptr[1929]);
+ meltgc_touch(/*_.VALDATA___V1935*/ curfptr[1934]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1933*/ curfptr[1932]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1933*/ curfptr[1932]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1933*/ curfptr[1932]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1929*/ curfptr[1928]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1936*/ curfptr[1935]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1936*/ curfptr[1935]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1936*/ curfptr[1935]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1934*/ curfptr[1933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1933*/ curfptr[1932]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1933*/ curfptr[1932]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1933*/ curfptr[1932]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1936*/ curfptr[1935]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1936*/ curfptr[1935]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1936*/ curfptr[1935]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1935*/ curfptr[1934]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1933*/ curfptr[1932]);
+ meltgc_touch(/*_.VALTUP___V1936*/ curfptr[1935]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1933*/ curfptr[1932]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1936*/ curfptr[1935]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1934*/ curfptr[1933]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1937*/ curfptr[1936]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1935*/ curfptr[1934]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1938*/ curfptr[1937]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1937*/ curfptr[1936]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1936*/ curfptr[1935]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1940*/ curfptr[1939]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1939*/ curfptr[1938]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1937*/ curfptr[1936]);
+ meltgc_touch(/*_.VALTUP___V1940*/ curfptr[1939]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1927*/ curfptr[1926]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1937*/ curfptr[1936]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1932*/ curfptr[1931]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1940*/ curfptr[1939]);
  
  MELT_LOCATION("warmelt-first.melt:1173:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1927*/ curfptr[1926]);
+ meltgc_touch(/*_.VALDATA___V1932*/ curfptr[1931]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1938*/ curfptr[1937])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1941*/ curfptr[1940])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1938*/ curfptr[1937]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1938*/ curfptr[1937]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1939*/ curfptr[1938]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1941*/ curfptr[1940]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1941*/ curfptr[1940]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1942*/ curfptr[1941]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1938*/ curfptr[1937]);
+ meltgc_touch(/*_.VALDATA___V1941*/ curfptr[1940]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1941*/ curfptr[1940]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1944*/ curfptr[1943]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1178:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1942*/ curfptr[1941]);
+ meltgc_touch(/*_.VALDATA___V1945*/ curfptr[1944]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1947*/ curfptr[1946])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1947*/ curfptr[1946]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1947*/ curfptr[1946]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1948*/ curfptr[1947]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1947*/ curfptr[1946]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1947*/ curfptr[1946]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1178:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1943*/ curfptr[1942]);
+ meltgc_touch(/*_.VALDATA___V1946*/ curfptr[1945]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1944*/ curfptr[1943]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1944*/ curfptr[1943]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1944*/ curfptr[1943]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1942*/ curfptr[1941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1949*/ curfptr[1948]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1949*/ curfptr[1948]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1949*/ curfptr[1948]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1945*/ curfptr[1944]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1944*/ curfptr[1943]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1944*/ curfptr[1943]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1944*/ curfptr[1943]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1949*/ curfptr[1948]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1949*/ curfptr[1948]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1949*/ curfptr[1948]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1946*/ curfptr[1945]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1944*/ curfptr[1943]);
+ meltgc_touch(/*_.VALTUP___V1949*/ curfptr[1948]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1944*/ curfptr[1943]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1949*/ curfptr[1948]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1945*/ curfptr[1944]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1950*/ curfptr[1949]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1946*/ curfptr[1945]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1951*/ curfptr[1950]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1947*/ curfptr[1946]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1948*/ curfptr[1947]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1947*/ curfptr[1946]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1953*/ curfptr[1952]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1952*/ curfptr[1951]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1948*/ curfptr[1947]);
+ meltgc_touch(/*_.VALTUP___V1953*/ curfptr[1952]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1940*/ curfptr[1939]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1948*/ curfptr[1947]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1943*/ curfptr[1942]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1953*/ curfptr[1952]);
  
  MELT_LOCATION("warmelt-first.melt:1178:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1940*/ curfptr[1939]);
+ meltgc_touch(/*_.VALDATA___V1943*/ curfptr[1942]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1949*/ curfptr[1948])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1949*/ curfptr[1948]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1949*/ curfptr[1948]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1950*/ curfptr[1949]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1955*/ curfptr[1954]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1949*/ curfptr[1948]);
+ meltgc_touch(/*_.VALDATA___V1954*/ curfptr[1953]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1952*/ curfptr[1951]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1957*/ curfptr[1956]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1183:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1953*/ curfptr[1952]);
+ meltgc_touch(/*_.VALDATA___V1958*/ curfptr[1957]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1955*/ curfptr[1954])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1960*/ curfptr[1959])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1955*/ curfptr[1954]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1955*/ curfptr[1954]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1956*/ curfptr[1955]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1960*/ curfptr[1959]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1960*/ curfptr[1959]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1961*/ curfptr[1960]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1955*/ curfptr[1954]);
+ meltgc_touch(/*_.VALDATA___V1960*/ curfptr[1959]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1955*/ curfptr[1954]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1960*/ curfptr[1959]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
  MELT_LOCATION("warmelt-first.melt:1183:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1954*/ curfptr[1953]);
+ meltgc_touch(/*_.VALDATA___V1959*/ curfptr[1958]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1957*/ curfptr[1956]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1957*/ curfptr[1956]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1957*/ curfptr[1956]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1953*/ curfptr[1952]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1962*/ curfptr[1961]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1962*/ curfptr[1961]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1962*/ curfptr[1961]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1958*/ curfptr[1957]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1957*/ curfptr[1956]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1957*/ curfptr[1956]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1957*/ curfptr[1956]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1962*/ curfptr[1961]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1962*/ curfptr[1961]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1962*/ curfptr[1961]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1959*/ curfptr[1958]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1957*/ curfptr[1956]);
+ meltgc_touch(/*_.VALTUP___V1962*/ curfptr[1961]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1957*/ curfptr[1956]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1962*/ curfptr[1961]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1958*/ curfptr[1957]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1963*/ curfptr[1962]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1959*/ curfptr[1958]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1964*/ curfptr[1963]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1955*/ curfptr[1954]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1960*/ curfptr[1959]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1961*/ curfptr[1960]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1960*/ curfptr[1959]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1966*/ curfptr[1965]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1965*/ curfptr[1964]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1961*/ curfptr[1960]);
+ meltgc_touch(/*_.VALTUP___V1966*/ curfptr[1965]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1951*/ curfptr[1950]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1961*/ curfptr[1960]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1956*/ curfptr[1955]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1966*/ curfptr[1965]);
  
  MELT_LOCATION("warmelt-first.melt:1183:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1951*/ curfptr[1950]);
+ meltgc_touch(/*_.VALDATA___V1956*/ curfptr[1955]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1962*/ curfptr[1961])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1962*/ curfptr[1961]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1962*/ curfptr[1961]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1963*/ curfptr[1962]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1968*/ curfptr[1967]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1962*/ curfptr[1961]);
+ meltgc_touch(/*_.VALDATA___V1967*/ curfptr[1966]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1965*/ curfptr[1964]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1970*/ curfptr[1969]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1188:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1187:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1966*/ curfptr[1965]);
+ meltgc_touch(/*_.VALDATA___V1971*/ curfptr[1970]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1968*/ curfptr[1967])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1973*/ curfptr[1972])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1968*/ curfptr[1967]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1968*/ curfptr[1967]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1969*/ curfptr[1968]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1973*/ curfptr[1972]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1973*/ curfptr[1972]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1974*/ curfptr[1973]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1968*/ curfptr[1967]);
+ meltgc_touch(/*_.VALDATA___V1973*/ curfptr[1972]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1968*/ curfptr[1967]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1973*/ curfptr[1972]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1188:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1187:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1967*/ curfptr[1966]);
+ meltgc_touch(/*_.VALDATA___V1972*/ curfptr[1971]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1970*/ curfptr[1969]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1970*/ curfptr[1969]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1970*/ curfptr[1969]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1966*/ curfptr[1965]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1975*/ curfptr[1974]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1975*/ curfptr[1974]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1975*/ curfptr[1974]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1971*/ curfptr[1970]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1970*/ curfptr[1969]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1970*/ curfptr[1969]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1970*/ curfptr[1969]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1975*/ curfptr[1974]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1975*/ curfptr[1974]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1975*/ curfptr[1974]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1972*/ curfptr[1971]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1970*/ curfptr[1969]);
+ meltgc_touch(/*_.VALTUP___V1975*/ curfptr[1974]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1970*/ curfptr[1969]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1975*/ curfptr[1974]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1971*/ curfptr[1970]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1976*/ curfptr[1975]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1972*/ curfptr[1971]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1977*/ curfptr[1976]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1968*/ curfptr[1967]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1973*/ curfptr[1972]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1974*/ curfptr[1973]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1973*/ curfptr[1972]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1979*/ curfptr[1978]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1978*/ curfptr[1977]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1974*/ curfptr[1973]);
+ meltgc_touch(/*_.VALTUP___V1979*/ curfptr[1978]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1187:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1964*/ curfptr[1963]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1974*/ curfptr[1973]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1969*/ curfptr[1968]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1979*/ curfptr[1978]);
  
- MELT_LOCATION("warmelt-first.melt:1188:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1187:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1964*/ curfptr[1963]);
+ meltgc_touch(/*_.VALDATA___V1969*/ curfptr[1968]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1975*/ curfptr[1974])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1975*/ curfptr[1974]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1975*/ curfptr[1974]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1976*/ curfptr[1975]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1981*/ curfptr[1980]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1975*/ curfptr[1974]);
+ meltgc_touch(/*_.VALDATA___V1980*/ curfptr[1979]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1978*/ curfptr[1977]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1983*/ curfptr[1982]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1986*/ curfptr[1985]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978])) == OBMAG_OBJECT);
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V1985*/ curfptr[1984]);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983])) == OBMAG_OBJECT);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1979*/ curfptr[1978]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1981*/ curfptr[1980])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1981*/ curfptr[1980]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1981*/ curfptr[1980]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1982*/ curfptr[1981]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
+ MELT_LOCATION("warmelt-first.melt:1194:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1981*/ curfptr[1980]);
+ meltgc_touch(/*_.VALDATA___V1984*/ curfptr[1983]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1981*/ curfptr[1980]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1192:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1194:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1980*/ curfptr[1979]);
+ meltgc_touch(/*_.VALDATA___V1987*/ curfptr[1986]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1983*/ curfptr[1982]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1983*/ curfptr[1982]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1983*/ curfptr[1982]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1979*/ curfptr[1978]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1988*/ curfptr[1987]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1988*/ curfptr[1987]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1988*/ curfptr[1987]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1984*/ curfptr[1983]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1983*/ curfptr[1982]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1983*/ curfptr[1982]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1983*/ curfptr[1982]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1988*/ curfptr[1987]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1988*/ curfptr[1987]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1988*/ curfptr[1987]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1987*/ curfptr[1986]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1983*/ curfptr[1982]);
+ meltgc_touch(/*_.VALTUP___V1988*/ curfptr[1987]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1983*/ curfptr[1982]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1988*/ curfptr[1987]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1984*/ curfptr[1983]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1989*/ curfptr[1988]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1985*/ curfptr[1984]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1990*/ curfptr[1989]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1981*/ curfptr[1980]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1987*/ curfptr[1986]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1986*/ curfptr[1985]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1992*/ curfptr[1991]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1991*/ curfptr[1990]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1987*/ curfptr[1986]);
+ meltgc_touch(/*_.VALTUP___V1992*/ curfptr[1991]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1194:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1977*/ curfptr[1976]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V1987*/ curfptr[1986]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1982*/ curfptr[1981]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V1992*/ curfptr[1991]);
  
- MELT_LOCATION("warmelt-first.melt:1192:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1194:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1977*/ curfptr[1976]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1988*/ curfptr[1987])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1988*/ curfptr[1987]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1988*/ curfptr[1987]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1989*/ curfptr[1988]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1988*/ curfptr[1987]);
- 
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V1991*/ curfptr[1990]);
+ meltgc_touch(/*_.VALDATA___V1982*/ curfptr[1981]);
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992])) == OBMAG_OBJECT);
@@ -85387,18694 +66589,18635 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1993*/ curfptr[1992]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V1996*/ curfptr[1995]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1199:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1198:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1992*/ curfptr[1991]);
+ meltgc_touch(/*_.VALDATA___V1997*/ curfptr[1996]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1199:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1198:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1995*/ curfptr[1994]);
+ meltgc_touch(/*_.VALDATA___V1998*/ curfptr[1997]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1996*/ curfptr[1995]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1996*/ curfptr[1995]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1996*/ curfptr[1995]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1992*/ curfptr[1991]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1999*/ curfptr[1998]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1999*/ curfptr[1998]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1999*/ curfptr[1998]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V1997*/ curfptr[1996]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1996*/ curfptr[1995]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1996*/ curfptr[1995]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V1996*/ curfptr[1995]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V1999*/ curfptr[1998]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V1999*/ curfptr[1998]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V1999*/ curfptr[1998]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1998*/ curfptr[1997]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V1996*/ curfptr[1995]);
+ meltgc_touch(/*_.VALTUP___V1999*/ curfptr[1998]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V1996*/ curfptr[1995]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V1999*/ curfptr[1998]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V1997*/ curfptr[1996]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2000*/ curfptr[1999]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V1998*/ curfptr[1997]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2001*/ curfptr[2000]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2000*/ curfptr[1999]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V1999*/ curfptr[1998]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2003*/ curfptr[2002]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2002*/ curfptr[2001]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2000*/ curfptr[1999]);
+ meltgc_touch(/*_.VALTUP___V2003*/ curfptr[2002]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1198:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V1990*/ curfptr[1989]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2000*/ curfptr[1999]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V1995*/ curfptr[1994]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2003*/ curfptr[2002]);
  
- MELT_LOCATION("warmelt-first.melt:1199:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1198:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V1990*/ curfptr[1989]);
+ meltgc_touch(/*_.VALDATA___V1995*/ curfptr[1994]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2001*/ curfptr[2000])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2004*/ curfptr[2003])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2001*/ curfptr[2000]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2001*/ curfptr[2000]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2002*/ curfptr[2001]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2004*/ curfptr[2003]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2004*/ curfptr[2003]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2005*/ curfptr[2004]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2001*/ curfptr[2000]);
+ meltgc_touch(/*_.VALDATA___V2004*/ curfptr[2003]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2004*/ curfptr[2003]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2007*/ curfptr[2006]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1203:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1202:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2005*/ curfptr[2004]);
+ meltgc_touch(/*_.VALDATA___V2008*/ curfptr[2007]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1765*/ curfptr[1764]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1203:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1202:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2006*/ curfptr[2005]);
+ meltgc_touch(/*_.VALDATA___V2009*/ curfptr[2008]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2007*/ curfptr[2006]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2007*/ curfptr[2006]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2007*/ curfptr[2006]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2005*/ curfptr[2004]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2010*/ curfptr[2009]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2010*/ curfptr[2009]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2010*/ curfptr[2009]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2008*/ curfptr[2007]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2007*/ curfptr[2006]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2007*/ curfptr[2006]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2007*/ curfptr[2006]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2010*/ curfptr[2009]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2010*/ curfptr[2009]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2010*/ curfptr[2009]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2009*/ curfptr[2008]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2007*/ curfptr[2006]);
+ meltgc_touch(/*_.VALTUP___V2010*/ curfptr[2009]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2007*/ curfptr[2006]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2010*/ curfptr[2009]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2008*/ curfptr[2007]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2011*/ curfptr[2010]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2009*/ curfptr[2008]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2012*/ curfptr[2011]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2011*/ curfptr[2010]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2010*/ curfptr[2009]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2013*/ curfptr[2012]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2015*/ curfptr[2014]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2014*/ curfptr[2013]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2011*/ curfptr[2010]);
+ meltgc_touch(/*_.VALTUP___V2015*/ curfptr[2014]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1202:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2003*/ curfptr[2002]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2011*/ curfptr[2010]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2006*/ curfptr[2005]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2015*/ curfptr[2014]);
  
- MELT_LOCATION("warmelt-first.melt:1203:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1202:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2003*/ curfptr[2002]);
+ meltgc_touch(/*_.VALDATA___V2006*/ curfptr[2005]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2012*/ curfptr[2011])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2012*/ curfptr[2011]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2012*/ curfptr[2011]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2013*/ curfptr[2012]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2017*/ curfptr[2016]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2012*/ curfptr[2011]);
+ meltgc_touch(/*_.VALDATA___V2016*/ curfptr[2015]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2015*/ curfptr[2014]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2019*/ curfptr[2018]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1207:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1210:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2016*/ curfptr[2015]);
+ meltgc_touch(/*_.VALDATA___V2020*/ curfptr[2019]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1207:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1210:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2017*/ curfptr[2016]);
+ meltgc_touch(/*_.VALDATA___V2021*/ curfptr[2020]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2018*/ curfptr[2017]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2018*/ curfptr[2017]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2018*/ curfptr[2017]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2022*/ curfptr[2021]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2022*/ curfptr[2021]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2022*/ curfptr[2021]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2020*/ curfptr[2019]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2018*/ curfptr[2017]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2018*/ curfptr[2017]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2018*/ curfptr[2017]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2017*/ curfptr[2016]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2022*/ curfptr[2021]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2022*/ curfptr[2021]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2022*/ curfptr[2021]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2021*/ curfptr[2020]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2018*/ curfptr[2017]);
+ meltgc_touch(/*_.VALTUP___V2022*/ curfptr[2021]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2018*/ curfptr[2017]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2022*/ curfptr[2021]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2019*/ curfptr[2018]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2020*/ curfptr[2019]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2023*/ curfptr[2022]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2021*/ curfptr[2020]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2024*/ curfptr[2023]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2023*/ curfptr[2022]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2022*/ curfptr[2021]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2026*/ curfptr[2025]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2025*/ curfptr[2024]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2023*/ curfptr[2022]);
+ meltgc_touch(/*_.VALTUP___V2026*/ curfptr[2025]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1210:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2014*/ curfptr[2013]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2023*/ curfptr[2022]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2018*/ curfptr[2017]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2026*/ curfptr[2025]);
  
- MELT_LOCATION("warmelt-first.melt:1207:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1210:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2014*/ curfptr[2013]);
+ meltgc_touch(/*_.VALDATA___V2018*/ curfptr[2017]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2024*/ curfptr[2023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2027*/ curfptr[2026])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2024*/ curfptr[2023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2024*/ curfptr[2023]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2025*/ curfptr[2024]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2027*/ curfptr[2026]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2027*/ curfptr[2026]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2028*/ curfptr[2027]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2024*/ curfptr[2023]);
+ meltgc_touch(/*_.VALDATA___V2027*/ curfptr[2026]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2027*/ curfptr[2026]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2030*/ curfptr[2029]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1215:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1216:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2028*/ curfptr[2027]);
+ meltgc_touch(/*_.VALDATA___V2031*/ curfptr[2030]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1215:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1216:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2029*/ curfptr[2028]);
+ meltgc_touch(/*_.VALDATA___V2032*/ curfptr[2031]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2030*/ curfptr[2029]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2030*/ curfptr[2029]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2030*/ curfptr[2029]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2028*/ curfptr[2027]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2033*/ curfptr[2032]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2033*/ curfptr[2032]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2033*/ curfptr[2032]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2031*/ curfptr[2030]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2030*/ curfptr[2029]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2030*/ curfptr[2029]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2030*/ curfptr[2029]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2033*/ curfptr[2032]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2033*/ curfptr[2032]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2033*/ curfptr[2032]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2032*/ curfptr[2031]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2030*/ curfptr[2029]);
+ meltgc_touch(/*_.VALTUP___V2033*/ curfptr[2032]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2030*/ curfptr[2029]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2033*/ curfptr[2032]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2031*/ curfptr[2030]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2034*/ curfptr[2033]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2032*/ curfptr[2031]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2035*/ curfptr[2034]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2034*/ curfptr[2033]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2033*/ curfptr[2032]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2037*/ curfptr[2036]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2036*/ curfptr[2035]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2034*/ curfptr[2033]);
+ meltgc_touch(/*_.VALTUP___V2037*/ curfptr[2036]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1216:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2026*/ curfptr[2025]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2034*/ curfptr[2033]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2029*/ curfptr[2028]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2037*/ curfptr[2036]);
  
- MELT_LOCATION("warmelt-first.melt:1215:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1216:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2026*/ curfptr[2025]);
+ meltgc_touch(/*_.VALDATA___V2029*/ curfptr[2028]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2035*/ curfptr[2034])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2038*/ curfptr[2037])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2035*/ curfptr[2034]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2035*/ curfptr[2034]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2036*/ curfptr[2035]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2038*/ curfptr[2037]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2038*/ curfptr[2037]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2039*/ curfptr[2038]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2035*/ curfptr[2034]);
+ meltgc_touch(/*_.VALDATA___V2038*/ curfptr[2037]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2038*/ curfptr[2037]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2041*/ curfptr[2040]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1221:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1222:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2039*/ curfptr[2038]);
+ meltgc_touch(/*_.VALDATA___V2042*/ curfptr[2041]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1827*/ curfptr[1826]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1221:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1222:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2040*/ curfptr[2039]);
+ meltgc_touch(/*_.VALDATA___V2043*/ curfptr[2042]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2041*/ curfptr[2040]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2041*/ curfptr[2040]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2041*/ curfptr[2040]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2039*/ curfptr[2038]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2044*/ curfptr[2043]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2044*/ curfptr[2043]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2044*/ curfptr[2043]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2042*/ curfptr[2041]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2041*/ curfptr[2040]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2041*/ curfptr[2040]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2041*/ curfptr[2040]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2044*/ curfptr[2043]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2044*/ curfptr[2043]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2044*/ curfptr[2043]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2043*/ curfptr[2042]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2041*/ curfptr[2040]);
+ meltgc_touch(/*_.VALTUP___V2044*/ curfptr[2043]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2041*/ curfptr[2040]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2044*/ curfptr[2043]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2042*/ curfptr[2041]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2045*/ curfptr[2044]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2043*/ curfptr[2042]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2046*/ curfptr[2045]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2045*/ curfptr[2044]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2044*/ curfptr[2043]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2048*/ curfptr[2047]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2047*/ curfptr[2046]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2045*/ curfptr[2044]);
+ meltgc_touch(/*_.VALTUP___V2048*/ curfptr[2047]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1222:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2037*/ curfptr[2036]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2045*/ curfptr[2044]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2040*/ curfptr[2039]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2048*/ curfptr[2047]);
  
- MELT_LOCATION("warmelt-first.melt:1221:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1222:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2037*/ curfptr[2036]);
+ meltgc_touch(/*_.VALDATA___V2040*/ curfptr[2039]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2046*/ curfptr[2045])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2049*/ curfptr[2048])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2046*/ curfptr[2045]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2046*/ curfptr[2045]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2047*/ curfptr[2046]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2049*/ curfptr[2048]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2049*/ curfptr[2048]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2050*/ curfptr[2049]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2046*/ curfptr[2045]);
+ meltgc_touch(/*_.VALDATA___V2049*/ curfptr[2048]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2049*/ curfptr[2048]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2052*/ curfptr[2051]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1227:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2050*/ curfptr[2049]);
+ meltgc_touch(/*_.VALDATA___V2053*/ curfptr[2052]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1227:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2051*/ curfptr[2050]);
+ meltgc_touch(/*_.VALDATA___V2054*/ curfptr[2053]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2052*/ curfptr[2051]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2052*/ curfptr[2051]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2052*/ curfptr[2051]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2050*/ curfptr[2049]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2055*/ curfptr[2054]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2055*/ curfptr[2054]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2055*/ curfptr[2054]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2053*/ curfptr[2052]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2052*/ curfptr[2051]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2052*/ curfptr[2051]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2052*/ curfptr[2051]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2055*/ curfptr[2054]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2055*/ curfptr[2054]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2055*/ curfptr[2054]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2054*/ curfptr[2053]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2052*/ curfptr[2051]);
+ meltgc_touch(/*_.VALTUP___V2055*/ curfptr[2054]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2052*/ curfptr[2051]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2055*/ curfptr[2054]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2053*/ curfptr[2052]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2056*/ curfptr[2055]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2054*/ curfptr[2053]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2057*/ curfptr[2056]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2056*/ curfptr[2055]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2055*/ curfptr[2054]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2059*/ curfptr[2058]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2058*/ curfptr[2057]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2056*/ curfptr[2055]);
+ meltgc_touch(/*_.VALTUP___V2059*/ curfptr[2058]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2048*/ curfptr[2047]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2056*/ curfptr[2055]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2051*/ curfptr[2050]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2059*/ curfptr[2058]);
  
  MELT_LOCATION("warmelt-first.melt:1227:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2048*/ curfptr[2047]);
+ meltgc_touch(/*_.VALDATA___V2051*/ curfptr[2050]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2057*/ curfptr[2056])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2060*/ curfptr[2059])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2057*/ curfptr[2056]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2057*/ curfptr[2056]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2058*/ curfptr[2057]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2060*/ curfptr[2059]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2060*/ curfptr[2059]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2061*/ curfptr[2060]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2057*/ curfptr[2056]);
+ meltgc_touch(/*_.VALDATA___V2060*/ curfptr[2059]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2060*/ curfptr[2059]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2063*/ curfptr[2062]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1232:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2061*/ curfptr[2060]);
+ meltgc_touch(/*_.VALDATA___V2064*/ curfptr[2063]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1827*/ curfptr[1826]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1232:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2062*/ curfptr[2061]);
+ meltgc_touch(/*_.VALDATA___V2065*/ curfptr[2064]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2063*/ curfptr[2062]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2063*/ curfptr[2062]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2063*/ curfptr[2062]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2061*/ curfptr[2060]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2066*/ curfptr[2065]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2066*/ curfptr[2065]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2066*/ curfptr[2065]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2064*/ curfptr[2063]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2063*/ curfptr[2062]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2063*/ curfptr[2062]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2063*/ curfptr[2062]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2066*/ curfptr[2065]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2066*/ curfptr[2065]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2066*/ curfptr[2065]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2065*/ curfptr[2064]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2063*/ curfptr[2062]);
+ meltgc_touch(/*_.VALTUP___V2066*/ curfptr[2065]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2063*/ curfptr[2062]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2066*/ curfptr[2065]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2064*/ curfptr[2063]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2067*/ curfptr[2066]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2065*/ curfptr[2064]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2068*/ curfptr[2067]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2067*/ curfptr[2066]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2066*/ curfptr[2065]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2070*/ curfptr[2069]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2069*/ curfptr[2068]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2067*/ curfptr[2066]);
+ meltgc_touch(/*_.VALTUP___V2070*/ curfptr[2069]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2059*/ curfptr[2058]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2067*/ curfptr[2066]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2062*/ curfptr[2061]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2070*/ curfptr[2069]);
  
  MELT_LOCATION("warmelt-first.melt:1232:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2059*/ curfptr[2058]);
+ meltgc_touch(/*_.VALDATA___V2062*/ curfptr[2061]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2068*/ curfptr[2067])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2071*/ curfptr[2070])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2068*/ curfptr[2067]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2068*/ curfptr[2067]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2069*/ curfptr[2068]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2071*/ curfptr[2070]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2071*/ curfptr[2070]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2072*/ curfptr[2071]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2068*/ curfptr[2067]);
+ meltgc_touch(/*_.VALDATA___V2071*/ curfptr[2070]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2071*/ curfptr[2070]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2074*/ curfptr[2073]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1237:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2072*/ curfptr[2071]);
+ meltgc_touch(/*_.VALDATA___V2075*/ curfptr[2074]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1237:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2073*/ curfptr[2072]);
+ meltgc_touch(/*_.VALDATA___V2076*/ curfptr[2075]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2074*/ curfptr[2073]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2074*/ curfptr[2073]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2074*/ curfptr[2073]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2072*/ curfptr[2071]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2077*/ curfptr[2076]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2077*/ curfptr[2076]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2077*/ curfptr[2076]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2075*/ curfptr[2074]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2074*/ curfptr[2073]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2074*/ curfptr[2073]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2074*/ curfptr[2073]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2077*/ curfptr[2076]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2077*/ curfptr[2076]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2077*/ curfptr[2076]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2076*/ curfptr[2075]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2074*/ curfptr[2073]);
+ meltgc_touch(/*_.VALTUP___V2077*/ curfptr[2076]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2074*/ curfptr[2073]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2077*/ curfptr[2076]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2075*/ curfptr[2074]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2078*/ curfptr[2077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2076*/ curfptr[2075]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2079*/ curfptr[2078]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2078*/ curfptr[2077]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2077*/ curfptr[2076]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2081*/ curfptr[2080]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2080*/ curfptr[2079]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2078*/ curfptr[2077]);
+ meltgc_touch(/*_.VALTUP___V2081*/ curfptr[2080]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2070*/ curfptr[2069]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2078*/ curfptr[2077]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2073*/ curfptr[2072]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2081*/ curfptr[2080]);
  
  MELT_LOCATION("warmelt-first.melt:1237:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2070*/ curfptr[2069]);
+ meltgc_touch(/*_.VALDATA___V2073*/ curfptr[2072]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2079*/ curfptr[2078])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2082*/ curfptr[2081])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2079*/ curfptr[2078]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2079*/ curfptr[2078]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2080*/ curfptr[2079]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2082*/ curfptr[2081]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2082*/ curfptr[2081]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2083*/ curfptr[2082]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2079*/ curfptr[2078]);
+ meltgc_touch(/*_.VALDATA___V2082*/ curfptr[2081]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2082*/ curfptr[2081]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2085*/ curfptr[2084]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1242:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2083*/ curfptr[2082]);
+ meltgc_touch(/*_.VALDATA___V2086*/ curfptr[2085]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1827*/ curfptr[1826]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1242:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2084*/ curfptr[2083]);
+ meltgc_touch(/*_.VALDATA___V2087*/ curfptr[2086]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2085*/ curfptr[2084]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2085*/ curfptr[2084]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2085*/ curfptr[2084]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2083*/ curfptr[2082]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2088*/ curfptr[2087]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2088*/ curfptr[2087]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2088*/ curfptr[2087]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2086*/ curfptr[2085]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2085*/ curfptr[2084]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2085*/ curfptr[2084]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2085*/ curfptr[2084]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2088*/ curfptr[2087]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2088*/ curfptr[2087]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2088*/ curfptr[2087]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2087*/ curfptr[2086]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2085*/ curfptr[2084]);
+ meltgc_touch(/*_.VALTUP___V2088*/ curfptr[2087]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2085*/ curfptr[2084]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2088*/ curfptr[2087]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2086*/ curfptr[2085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2089*/ curfptr[2088]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2087*/ curfptr[2086]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2090*/ curfptr[2089]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2089*/ curfptr[2088]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2088*/ curfptr[2087]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2092*/ curfptr[2091]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2091*/ curfptr[2090]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2089*/ curfptr[2088]);
+ meltgc_touch(/*_.VALTUP___V2092*/ curfptr[2091]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2081*/ curfptr[2080]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2089*/ curfptr[2088]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2084*/ curfptr[2083]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2092*/ curfptr[2091]);
  
  MELT_LOCATION("warmelt-first.melt:1242:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2081*/ curfptr[2080]);
+ meltgc_touch(/*_.VALDATA___V2084*/ curfptr[2083]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2090*/ curfptr[2089])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2093*/ curfptr[2092])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2090*/ curfptr[2089]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2090*/ curfptr[2089]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2091*/ curfptr[2090]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2093*/ curfptr[2092]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2093*/ curfptr[2092]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2094*/ curfptr[2093]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2090*/ curfptr[2089]);
+ meltgc_touch(/*_.VALDATA___V2093*/ curfptr[2092]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2093*/ curfptr[2092]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2096*/ curfptr[2095]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1247:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2094*/ curfptr[2093]);
+ meltgc_touch(/*_.VALDATA___V2097*/ curfptr[2096]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1884*/ curfptr[1883]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
  MELT_LOCATION("warmelt-first.melt:1247:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2095*/ curfptr[2094]);
+ meltgc_touch(/*_.VALDATA___V2098*/ curfptr[2097]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2096*/ curfptr[2095]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2096*/ curfptr[2095]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2096*/ curfptr[2095]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2094*/ curfptr[2093]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2099*/ curfptr[2098]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2099*/ curfptr[2098]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2099*/ curfptr[2098]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2097*/ curfptr[2096]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2096*/ curfptr[2095]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2096*/ curfptr[2095]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2096*/ curfptr[2095]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2099*/ curfptr[2098]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2099*/ curfptr[2098]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2099*/ curfptr[2098]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2098*/ curfptr[2097]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2096*/ curfptr[2095]);
+ meltgc_touch(/*_.VALTUP___V2099*/ curfptr[2098]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2096*/ curfptr[2095]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2099*/ curfptr[2098]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2097*/ curfptr[2096]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2100*/ curfptr[2099]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2098*/ curfptr[2097]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2101*/ curfptr[2100]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2100*/ curfptr[2099]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2099*/ curfptr[2098]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2103*/ curfptr[2102]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2102*/ curfptr[2101]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2100*/ curfptr[2099]);
+ meltgc_touch(/*_.VALTUP___V2103*/ curfptr[2102]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2092*/ curfptr[2091]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2100*/ curfptr[2099]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2095*/ curfptr[2094]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2103*/ curfptr[2102]);
  
  MELT_LOCATION("warmelt-first.melt:1247:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2092*/ curfptr[2091]);
+ meltgc_touch(/*_.VALDATA___V2095*/ curfptr[2094]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2101*/ curfptr[2100])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2104*/ curfptr[2103])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2101*/ curfptr[2100]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2101*/ curfptr[2100]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2102*/ curfptr[2101]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2104*/ curfptr[2103]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2104*/ curfptr[2103]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2105*/ curfptr[2104]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2101*/ curfptr[2100]);
+ meltgc_touch(/*_.VALDATA___V2104*/ curfptr[2103]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2104*/ curfptr[2103]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2107*/ curfptr[2106]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1252:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1253:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2105*/ curfptr[2104]);
+ meltgc_touch(/*_.VALDATA___V2108*/ curfptr[2107]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1252:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1253:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2106*/ curfptr[2105]);
+ meltgc_touch(/*_.VALDATA___V2109*/ curfptr[2108]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2107*/ curfptr[2106]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2107*/ curfptr[2106]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2107*/ curfptr[2106]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2105*/ curfptr[2104]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2110*/ curfptr[2109]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2110*/ curfptr[2109]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2110*/ curfptr[2109]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2108*/ curfptr[2107]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2107*/ curfptr[2106]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2107*/ curfptr[2106]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2107*/ curfptr[2106]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2110*/ curfptr[2109]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2110*/ curfptr[2109]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2110*/ curfptr[2109]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2109*/ curfptr[2108]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2107*/ curfptr[2106]);
+ meltgc_touch(/*_.VALTUP___V2110*/ curfptr[2109]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2107*/ curfptr[2106]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2110*/ curfptr[2109]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2108*/ curfptr[2107]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2111*/ curfptr[2110]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2109*/ curfptr[2108]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2112*/ curfptr[2111]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2111*/ curfptr[2110]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2110*/ curfptr[2109]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2114*/ curfptr[2113]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2113*/ curfptr[2112]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2111*/ curfptr[2110]);
+ meltgc_touch(/*_.VALTUP___V2114*/ curfptr[2113]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1253:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2103*/ curfptr[2102]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2111*/ curfptr[2110]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2106*/ curfptr[2105]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2114*/ curfptr[2113]);
  
- MELT_LOCATION("warmelt-first.melt:1252:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1253:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2103*/ curfptr[2102]);
+ meltgc_touch(/*_.VALDATA___V2106*/ curfptr[2105]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2112*/ curfptr[2111])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2115*/ curfptr[2114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2112*/ curfptr[2111]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2112*/ curfptr[2111]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2113*/ curfptr[2112]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2115*/ curfptr[2114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2115*/ curfptr[2114]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2116*/ curfptr[2115]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2112*/ curfptr[2111]);
+ meltgc_touch(/*_.VALDATA___V2115*/ curfptr[2114]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2115*/ curfptr[2114]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2118*/ curfptr[2117]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1258:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1261:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2116*/ curfptr[2115]);
+ meltgc_touch(/*_.VALDATA___V2119*/ curfptr[2118]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1258:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1261:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2117*/ curfptr[2116]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2118*/ curfptr[2117]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2118*/ curfptr[2117]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2118*/ curfptr[2117]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2116*/ curfptr[2115]);
+ meltgc_touch(/*_.VALDATA___V2120*/ curfptr[2119]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2118*/ curfptr[2117]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2118*/ curfptr[2117]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2118*/ curfptr[2117]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]);
- 
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2118*/ curfptr[2117]);
- 
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2118*/ curfptr[2117]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1909*/ curfptr[1908]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))->obj_vartab[3] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VOID))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ 
+ MELT_LOCATION("warmelt-first.melt:1261:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V2121*/ curfptr[2120]);
  
  /*putupl*/
  melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))== OBMAG_MULTIPLE);
  melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2119*/ curfptr[2118]);
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2119*/ curfptr[2118]);
  
  /*putupl*/
  melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))== OBMAG_MULTIPLE);
  melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2120*/ curfptr[2119]);
  
  /*putupl*/
  melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))== OBMAG_MULTIPLE);
  melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2120*/ curfptr[2119]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2121*/ curfptr[2120]);
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2122*/ curfptr[2121]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2121*/ curfptr[2120]);
  
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V2122*/ curfptr[2121]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2114*/ curfptr[2113]))->obj_vartab[4] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALTUP___V2122*/ curfptr[2121]);
  
- MELT_LOCATION("warmelt-first.melt:1258:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2114*/ curfptr[2113]);
- 
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2123*/ curfptr[2122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2123*/ curfptr[2122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2123*/ curfptr[2122]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2124*/ curfptr[2123]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))->obj_vartab[3] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2123*/ curfptr[2122]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2123*/ curfptr[2122]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2126*/ curfptr[2125]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2124*/ curfptr[2123]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2125*/ curfptr[2124]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126])) == OBMAG_OBJECT);
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1909*/ curfptr[1908]);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2127*/ curfptr[2126]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2126*/ curfptr[2125]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2127*/ curfptr[2126]);
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V2127*/ curfptr[2126]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1261:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2117*/ curfptr[2116]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2127*/ curfptr[2126]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1261:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V2117*/ curfptr[2116]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+  /*_.VALSTR___V2129*/ curfptr[2128]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V2128*/ curfptr[2127]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1917*/ curfptr[1916]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2131*/ curfptr[2130]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1266:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1269:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2129*/ curfptr[2128]);
+ meltgc_touch(/*_.VALDATA___V2132*/ curfptr[2131]);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2127*/ curfptr[2126]);
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1923*/ curfptr[1922]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ 
+ MELT_LOCATION("warmelt-first.melt:1269:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V2133*/ curfptr[2132]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ curfptr[2133]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ curfptr[2133]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ curfptr[2133]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2132*/ curfptr[2131]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2130*/ curfptr[2129]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2129*/ curfptr[2128]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2134*/ curfptr[2133]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2134*/ curfptr[2133]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2134*/ curfptr[2133]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2133*/ curfptr[2132]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2130*/ curfptr[2129]);
+ meltgc_touch(/*_.VALTUP___V2134*/ curfptr[2133]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2130*/ curfptr[2129]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2134*/ curfptr[2133]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2131*/ curfptr[2130]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2135*/ curfptr[2134]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2132*/ curfptr[2131]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2136*/ curfptr[2135]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2133*/ curfptr[2132]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2135*/ curfptr[2134]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2134*/ curfptr[2133]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2138*/ curfptr[2137]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2137*/ curfptr[2136]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2135*/ curfptr[2134]);
+ meltgc_touch(/*_.VALTUP___V2138*/ curfptr[2137]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1269:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2125*/ curfptr[2124]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2135*/ curfptr[2134]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2130*/ curfptr[2129]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2138*/ curfptr[2137]);
  
- MELT_LOCATION("warmelt-first.melt:1266:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1269:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2125*/ curfptr[2124]);
+ meltgc_touch(/*_.VALDATA___V2130*/ curfptr[2129]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2136*/ curfptr[2135])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2139*/ curfptr[2138])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2136*/ curfptr[2135]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2136*/ curfptr[2135]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2137*/ curfptr[2136]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2139*/ curfptr[2138]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2139*/ curfptr[2138]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2140*/ curfptr[2139]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2136*/ curfptr[2135]);
+ meltgc_touch(/*_.VALDATA___V2139*/ curfptr[2138]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2139*/ curfptr[2138]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2142*/ curfptr[2141]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1274:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2140*/ curfptr[2139]);
+ meltgc_touch(/*_.VALDATA___V2143*/ curfptr[2142]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1923*/ curfptr[1922]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  MELT_LOCATION("warmelt-first.melt:1274:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2141*/ curfptr[2140]);
+ meltgc_touch(/*_.VALDATA___V2144*/ curfptr[2143]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2142*/ curfptr[2141]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2142*/ curfptr[2141]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2142*/ curfptr[2141]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2140*/ curfptr[2139]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2145*/ curfptr[2144]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2145*/ curfptr[2144]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2145*/ curfptr[2144]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2143*/ curfptr[2142]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2142*/ curfptr[2141]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2142*/ curfptr[2141]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2142*/ curfptr[2141]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2145*/ curfptr[2144]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2145*/ curfptr[2144]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2145*/ curfptr[2144]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2144*/ curfptr[2143]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2142*/ curfptr[2141]);
+ meltgc_touch(/*_.VALTUP___V2145*/ curfptr[2144]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2142*/ curfptr[2141]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2145*/ curfptr[2144]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2143*/ curfptr[2142]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2146*/ curfptr[2145]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2144*/ curfptr[2143]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2147*/ curfptr[2146]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2146*/ curfptr[2145]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2145*/ curfptr[2144]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2149*/ curfptr[2148]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2148*/ curfptr[2147]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2146*/ curfptr[2145]);
+ meltgc_touch(/*_.VALTUP___V2149*/ curfptr[2148]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2138*/ curfptr[2137]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2146*/ curfptr[2145]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2141*/ curfptr[2140]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2149*/ curfptr[2148]);
  
  MELT_LOCATION("warmelt-first.melt:1274:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2138*/ curfptr[2137]);
+ meltgc_touch(/*_.VALDATA___V2141*/ curfptr[2140]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2147*/ curfptr[2146])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2150*/ curfptr[2149])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2147*/ curfptr[2146]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2147*/ curfptr[2146]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2148*/ curfptr[2147]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2150*/ curfptr[2149]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2150*/ curfptr[2149]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2151*/ curfptr[2150]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2147*/ curfptr[2146]);
+ meltgc_touch(/*_.VALDATA___V2150*/ curfptr[2149]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2150*/ curfptr[2149]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2153*/ curfptr[2152]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1985*/ curfptr[1984]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1279:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2151*/ curfptr[2150]);
+ meltgc_touch(/*_.VALDATA___V2154*/ curfptr[2153]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1947*/ curfptr[1946]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  MELT_LOCATION("warmelt-first.melt:1279:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2152*/ curfptr[2151]);
+ meltgc_touch(/*_.VALDATA___V2155*/ curfptr[2154]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2153*/ curfptr[2152]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2153*/ curfptr[2152]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2153*/ curfptr[2152]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2151*/ curfptr[2150]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2156*/ curfptr[2155]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2156*/ curfptr[2155]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2156*/ curfptr[2155]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2154*/ curfptr[2153]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2153*/ curfptr[2152]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2153*/ curfptr[2152]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2153*/ curfptr[2152]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2156*/ curfptr[2155]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2156*/ curfptr[2155]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2156*/ curfptr[2155]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2155*/ curfptr[2154]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2153*/ curfptr[2152]);
+ meltgc_touch(/*_.VALTUP___V2156*/ curfptr[2155]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2153*/ curfptr[2152]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2156*/ curfptr[2155]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2154*/ curfptr[2153]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2157*/ curfptr[2156]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2155*/ curfptr[2154]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2158*/ curfptr[2157]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1947*/ curfptr[1946]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2157*/ curfptr[2156]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2156*/ curfptr[2155]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2160*/ curfptr[2159]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2159*/ curfptr[2158]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2157*/ curfptr[2156]);
+ meltgc_touch(/*_.VALTUP___V2160*/ curfptr[2159]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2149*/ curfptr[2148]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2157*/ curfptr[2156]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2152*/ curfptr[2151]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2160*/ curfptr[2159]);
  
  MELT_LOCATION("warmelt-first.melt:1279:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2149*/ curfptr[2148]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2158*/ curfptr[2157])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2158*/ curfptr[2157]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2158*/ curfptr[2157]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2159*/ curfptr[2158]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2158*/ curfptr[2157]);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2161*/ curfptr[2160]);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1993*/ curfptr[1992]);
+ meltgc_touch(/*_.VALDATA___V2152*/ curfptr[2151]);
  
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2161*/ curfptr[2160])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2161*/ curfptr[2160]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2161*/ curfptr[2160]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2162*/ curfptr[2161]);
  
- MELT_LOCATION("warmelt-first.melt:1284:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2162*/ curfptr[2161]);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162])) == OBMAG_OBJECT);
+ meltgc_touch(/*_.VALDATA___V2161*/ curfptr[2160]);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1955*/ curfptr[1954]);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1287:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))->obj_vartab[1] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2163*/ curfptr[2162]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2164*/ curfptr[2163]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2164*/ curfptr[2163]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2164*/ curfptr[2163]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2162*/ curfptr[2161]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2164*/ curfptr[2163]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2164*/ curfptr[2163]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2164*/ curfptr[2163]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]);
- 
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2164*/ curfptr[2163]);
+  /*_.VALSTR___V2164*/ curfptr[2163]);
  
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1287:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2164*/ curfptr[2163]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1287:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))->obj_vartab[3] = (melt_ptr_t)(
-  ((void*)(MELT_PREDEF(CTYPE_VOID))));
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2165*/ curfptr[2164]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2166*/ curfptr[2165]);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164])) == OBMAG_OBJECT);
  
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1955*/ curfptr[1954]);
- 
- /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2168*/ curfptr[2167]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2167*/ curfptr[2166]);
- 
- /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2168*/ curfptr[2167]);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2160*/ curfptr[2159]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2168*/ curfptr[2167]);
- 
- MELT_LOCATION("warmelt-first.melt:1284:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2160*/ curfptr[2159]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2169*/ curfptr[2168])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2169*/ curfptr[2168]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2169*/ curfptr[2168]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2170*/ curfptr[2169]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2169*/ curfptr[2168]);
- 
- MELT_LOCATION("warmelt-first.melt:1292:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2172*/ curfptr[2171]);
- 
- MELT_LOCATION("warmelt-first.melt:1292:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
- 
- MELT_LOCATION("warmelt-first.melt:1292:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1292:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1287:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2173*/ curfptr[2172]);
+ meltgc_touch(/*_.VALDATA___V2165*/ curfptr[2164]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2174*/ curfptr[2173]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2174*/ curfptr[2173]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2174*/ curfptr[2173]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2173*/ curfptr[2172]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2166*/ curfptr[2165]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2166*/ curfptr[2165]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2166*/ curfptr[2165]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2165*/ curfptr[2164]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2174*/ curfptr[2173]);
+ meltgc_touch(/*_.VALTUP___V2166*/ curfptr[2165]);
  
- MELT_LOCATION("warmelt-first.melt:1292:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1287:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2174*/ curfptr[2173]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2166*/ curfptr[2165]);
  
- MELT_LOCATION("warmelt-first.melt:1292:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1287:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2175*/ curfptr[2174]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2167*/ curfptr[2166]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2177*/ curfptr[2176]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2176*/ curfptr[2175]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2169*/ curfptr[2168]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2168*/ curfptr[2167]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2177*/ curfptr[2176]);
+ meltgc_touch(/*_.VALTUP___V2169*/ curfptr[2168]);
  
- MELT_LOCATION("warmelt-first.melt:1292:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1287:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2171*/ curfptr[2170]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2177*/ curfptr[2176]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2163*/ curfptr[2162]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2169*/ curfptr[2168]);
  
- MELT_LOCATION("warmelt-first.melt:1292:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1287:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2171*/ curfptr[2170]);
+ meltgc_touch(/*_.VALDATA___V2163*/ curfptr[2162]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2170*/ curfptr[2169])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2179*/ curfptr[2178]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2170*/ curfptr[2169]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2170*/ curfptr[2169]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2171*/ curfptr[2170]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2178*/ curfptr[2177]);
+ meltgc_touch(/*_.VALDATA___V2170*/ curfptr[2169]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2181*/ curfptr[2180]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2173*/ curfptr[2172]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2184*/ curfptr[2183]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2176*/ curfptr[2175]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2183*/ curfptr[2182]);
+ meltgc_touch(/*_.VALDATA___V2175*/ curfptr[2174]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2175*/ curfptr[2174]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1296:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1291:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2182*/ curfptr[2181]);
+ meltgc_touch(/*_.VALDATA___V2174*/ curfptr[2173]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2187*/ curfptr[2186]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2179*/ curfptr[2178]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2186*/ curfptr[2185]);
+ meltgc_touch(/*_.VALDATA___V2178*/ curfptr[2177]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2178*/ curfptr[2177]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1296:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1291:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2185*/ curfptr[2184]);
+ meltgc_touch(/*_.VALDATA___V2177*/ curfptr[2176]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2188*/ curfptr[2187]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2188*/ curfptr[2187]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2188*/ curfptr[2187]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2182*/ curfptr[2181]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2180*/ curfptr[2179]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2180*/ curfptr[2179]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2180*/ curfptr[2179]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2174*/ curfptr[2173]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2188*/ curfptr[2187]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2188*/ curfptr[2187]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2188*/ curfptr[2187]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2180*/ curfptr[2179]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2180*/ curfptr[2179]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2180*/ curfptr[2179]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2177*/ curfptr[2176]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2188*/ curfptr[2187]);
+ meltgc_touch(/*_.VALTUP___V2180*/ curfptr[2179]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2188*/ curfptr[2187]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2180*/ curfptr[2179]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2189*/ curfptr[2188]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2181*/ curfptr[2180]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2190*/ curfptr[2189]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2182*/ curfptr[2181]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2192*/ curfptr[2191]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2191*/ curfptr[2190]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2184*/ curfptr[2183]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2183*/ curfptr[2182]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2192*/ curfptr[2191]);
+ meltgc_touch(/*_.VALTUP___V2184*/ curfptr[2183]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1291:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2180*/ curfptr[2179]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2192*/ curfptr[2191]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2172*/ curfptr[2171]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2184*/ curfptr[2183]);
  
- MELT_LOCATION("warmelt-first.melt:1296:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1291:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2180*/ curfptr[2179]);
+ meltgc_touch(/*_.VALDATA___V2172*/ curfptr[2171]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2193*/ curfptr[2192])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2193*/ curfptr[2192]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2193*/ curfptr[2192]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2194*/ curfptr[2193]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2186*/ curfptr[2185]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2193*/ curfptr[2192]);
+ meltgc_touch(/*_.VALDATA___V2185*/ curfptr[2184]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2196*/ curfptr[2195]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2188*/ curfptr[2187]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2175*/ curfptr[2174]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1299:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1294:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2197*/ curfptr[2196]);
+ meltgc_touch(/*_.VALDATA___V2189*/ curfptr[2188]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2178*/ curfptr[2177]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1299:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1294:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2198*/ curfptr[2197]);
+ meltgc_touch(/*_.VALDATA___V2190*/ curfptr[2189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2199*/ curfptr[2198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2199*/ curfptr[2198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2199*/ curfptr[2198]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2197*/ curfptr[2196]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2191*/ curfptr[2190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2191*/ curfptr[2190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2191*/ curfptr[2190]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2189*/ curfptr[2188]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2199*/ curfptr[2198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2199*/ curfptr[2198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2199*/ curfptr[2198]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2191*/ curfptr[2190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2191*/ curfptr[2190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2191*/ curfptr[2190]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2190*/ curfptr[2189]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2199*/ curfptr[2198]);
+ meltgc_touch(/*_.VALTUP___V2191*/ curfptr[2190]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2199*/ curfptr[2198]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2191*/ curfptr[2190]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2200*/ curfptr[2199]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2192*/ curfptr[2191]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2201*/ curfptr[2200]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2193*/ curfptr[2192]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2203*/ curfptr[2202]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2202*/ curfptr[2201]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2195*/ curfptr[2194]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2194*/ curfptr[2193]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2203*/ curfptr[2202]);
+ meltgc_touch(/*_.VALTUP___V2195*/ curfptr[2194]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1294:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2195*/ curfptr[2194]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2203*/ curfptr[2202]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2187*/ curfptr[2186]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2195*/ curfptr[2194]);
  
- MELT_LOCATION("warmelt-first.melt:1299:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1294:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2195*/ curfptr[2194]);
+ meltgc_touch(/*_.VALDATA___V2187*/ curfptr[2186]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2204*/ curfptr[2203])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2196*/ curfptr[2195])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2204*/ curfptr[2203]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2204*/ curfptr[2203]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2205*/ curfptr[2204]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2196*/ curfptr[2195]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2196*/ curfptr[2195]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2197*/ curfptr[2196]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2204*/ curfptr[2203]);
+ meltgc_touch(/*_.VALDATA___V2196*/ curfptr[2195]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2207*/ curfptr[2206]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2199*/ curfptr[2198]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2210*/ curfptr[2209]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2202*/ curfptr[2201]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2209*/ curfptr[2208]);
+ meltgc_touch(/*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1303:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1298:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2208*/ curfptr[2207]);
+ meltgc_touch(/*_.VALDATA___V2200*/ curfptr[2199]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1303:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1298:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2211*/ curfptr[2210]);
+ meltgc_touch(/*_.VALDATA___V2203*/ curfptr[2202]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2212*/ curfptr[2211]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2212*/ curfptr[2211]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2212*/ curfptr[2211]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2208*/ curfptr[2207]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2204*/ curfptr[2203]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2204*/ curfptr[2203]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2204*/ curfptr[2203]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2200*/ curfptr[2199]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2212*/ curfptr[2211]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2212*/ curfptr[2211]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2212*/ curfptr[2211]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2204*/ curfptr[2203]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2204*/ curfptr[2203]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2204*/ curfptr[2203]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2203*/ curfptr[2202]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2212*/ curfptr[2211]);
+ meltgc_touch(/*_.VALTUP___V2204*/ curfptr[2203]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2212*/ curfptr[2211]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2204*/ curfptr[2203]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2213*/ curfptr[2212]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2205*/ curfptr[2204]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2214*/ curfptr[2213]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2206*/ curfptr[2205]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2216*/ curfptr[2215]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2215*/ curfptr[2214]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2208*/ curfptr[2207]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2207*/ curfptr[2206]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2216*/ curfptr[2215]);
+ meltgc_touch(/*_.VALTUP___V2208*/ curfptr[2207]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1298:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2206*/ curfptr[2205]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2216*/ curfptr[2215]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2198*/ curfptr[2197]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2208*/ curfptr[2207]);
  
- MELT_LOCATION("warmelt-first.melt:1303:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1298:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2206*/ curfptr[2205]);
+ meltgc_touch(/*_.VALDATA___V2198*/ curfptr[2197]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2217*/ curfptr[2216])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2217*/ curfptr[2216]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2217*/ curfptr[2216]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2218*/ curfptr[2217]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2210*/ curfptr[2209]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2217*/ curfptr[2216]);
+ meltgc_touch(/*_.VALDATA___V2209*/ curfptr[2208]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2220*/ curfptr[2219]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2212*/ curfptr[2211]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1307:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1302:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2221*/ curfptr[2220]);
+ meltgc_touch(/*_.VALDATA___V2213*/ curfptr[2212]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1884*/ curfptr[1883]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1307:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1302:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2222*/ curfptr[2221]);
+ meltgc_touch(/*_.VALDATA___V2214*/ curfptr[2213]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2223*/ curfptr[2222]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2223*/ curfptr[2222]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2223*/ curfptr[2222]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2221*/ curfptr[2220]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2215*/ curfptr[2214]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2215*/ curfptr[2214]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2215*/ curfptr[2214]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2213*/ curfptr[2212]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2223*/ curfptr[2222]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2223*/ curfptr[2222]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2223*/ curfptr[2222]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2215*/ curfptr[2214]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2215*/ curfptr[2214]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2215*/ curfptr[2214]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2214*/ curfptr[2213]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2223*/ curfptr[2222]);
+ meltgc_touch(/*_.VALTUP___V2215*/ curfptr[2214]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2223*/ curfptr[2222]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2215*/ curfptr[2214]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2224*/ curfptr[2223]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2216*/ curfptr[2215]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2225*/ curfptr[2224]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2217*/ curfptr[2216]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2227*/ curfptr[2226]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2226*/ curfptr[2225]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2219*/ curfptr[2218]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2218*/ curfptr[2217]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2227*/ curfptr[2226]);
+ meltgc_touch(/*_.VALTUP___V2219*/ curfptr[2218]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1302:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2219*/ curfptr[2218]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2227*/ curfptr[2226]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2211*/ curfptr[2210]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2219*/ curfptr[2218]);
  
- MELT_LOCATION("warmelt-first.melt:1307:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1302:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2219*/ curfptr[2218]);
+ meltgc_touch(/*_.VALDATA___V2211*/ curfptr[2210]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2228*/ curfptr[2227])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2220*/ curfptr[2219])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2228*/ curfptr[2227]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2228*/ curfptr[2227]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2229*/ curfptr[2228]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2220*/ curfptr[2219]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2220*/ curfptr[2219]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2221*/ curfptr[2220]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2228*/ curfptr[2227]);
+ meltgc_touch(/*_.VALDATA___V2220*/ curfptr[2219]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2231*/ curfptr[2230]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2223*/ curfptr[2222]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1310:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1305:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2232*/ curfptr[2231]);
+ meltgc_touch(/*_.VALDATA___V2224*/ curfptr[2223]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2235*/ curfptr[2234]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2227*/ curfptr[2226]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2234*/ curfptr[2233]);
+ meltgc_touch(/*_.VALDATA___V2226*/ curfptr[2225]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2226*/ curfptr[2225]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1310:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1305:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2233*/ curfptr[2232]);
+ meltgc_touch(/*_.VALDATA___V2225*/ curfptr[2224]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2236*/ curfptr[2235]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2236*/ curfptr[2235]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2236*/ curfptr[2235]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2232*/ curfptr[2231]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2228*/ curfptr[2227]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2228*/ curfptr[2227]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2228*/ curfptr[2227]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2224*/ curfptr[2223]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2236*/ curfptr[2235]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2236*/ curfptr[2235]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2236*/ curfptr[2235]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2228*/ curfptr[2227]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2228*/ curfptr[2227]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2228*/ curfptr[2227]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2225*/ curfptr[2224]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2236*/ curfptr[2235]);
+ meltgc_touch(/*_.VALTUP___V2228*/ curfptr[2227]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2236*/ curfptr[2235]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2228*/ curfptr[2227]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2237*/ curfptr[2236]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2229*/ curfptr[2228]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2238*/ curfptr[2237]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2230*/ curfptr[2229]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2240*/ curfptr[2239]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2239*/ curfptr[2238]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2232*/ curfptr[2231]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2231*/ curfptr[2230]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2240*/ curfptr[2239]);
+ meltgc_touch(/*_.VALTUP___V2232*/ curfptr[2231]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1305:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2230*/ curfptr[2229]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2240*/ curfptr[2239]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2222*/ curfptr[2221]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2232*/ curfptr[2231]);
  
- MELT_LOCATION("warmelt-first.melt:1310:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1305:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2230*/ curfptr[2229]);
+ meltgc_touch(/*_.VALDATA___V2222*/ curfptr[2221]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2241*/ curfptr[2240])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2241*/ curfptr[2240]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2241*/ curfptr[2240]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2242*/ curfptr[2241]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2234*/ curfptr[2233]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2241*/ curfptr[2240]);
+ meltgc_touch(/*_.VALDATA___V2233*/ curfptr[2232]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1308:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2244*/ curfptr[2243]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2236*/ curfptr[2235]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1308:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1308:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1313:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1308:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2245*/ curfptr[2244]);
+ meltgc_touch(/*_.VALDATA___V2237*/ curfptr[2236]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2246*/ curfptr[2245]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2246*/ curfptr[2245]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2246*/ curfptr[2245]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2245*/ curfptr[2244]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2238*/ curfptr[2237]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2238*/ curfptr[2237]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2238*/ curfptr[2237]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2237*/ curfptr[2236]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2246*/ curfptr[2245]);
+ meltgc_touch(/*_.VALTUP___V2238*/ curfptr[2237]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1308:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2246*/ curfptr[2245]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2238*/ curfptr[2237]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1308:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2247*/ curfptr[2246]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2239*/ curfptr[2238]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2249*/ curfptr[2248]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2248*/ curfptr[2247]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2241*/ curfptr[2240]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2240*/ curfptr[2239]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2249*/ curfptr[2248]);
+ meltgc_touch(/*_.VALTUP___V2241*/ curfptr[2240]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1308:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2243*/ curfptr[2242]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2249*/ curfptr[2248]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2235*/ curfptr[2234]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2241*/ curfptr[2240]);
  
- MELT_LOCATION("warmelt-first.melt:1313:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1308:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2243*/ curfptr[2242]);
+ meltgc_touch(/*_.VALDATA___V2235*/ curfptr[2234]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2250*/ curfptr[2249])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2242*/ curfptr[2241])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2250*/ curfptr[2249]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2250*/ curfptr[2249]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2251*/ curfptr[2250]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2242*/ curfptr[2241]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2242*/ curfptr[2241]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2243*/ curfptr[2242]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2250*/ curfptr[2249]);
+ meltgc_touch(/*_.VALDATA___V2242*/ curfptr[2241]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2253*/ curfptr[2252]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2245*/ curfptr[2244]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2175*/ curfptr[2174]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1316:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1311:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2254*/ curfptr[2253]);
+ meltgc_touch(/*_.VALDATA___V2246*/ curfptr[2245]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2178*/ curfptr[2177]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1316:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1311:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2255*/ curfptr[2254]);
+ meltgc_touch(/*_.VALDATA___V2247*/ curfptr[2246]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2256*/ curfptr[2255]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2256*/ curfptr[2255]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2256*/ curfptr[2255]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2254*/ curfptr[2253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2248*/ curfptr[2247]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2248*/ curfptr[2247]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2248*/ curfptr[2247]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2246*/ curfptr[2245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2256*/ curfptr[2255]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2256*/ curfptr[2255]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2256*/ curfptr[2255]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2248*/ curfptr[2247]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2248*/ curfptr[2247]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2248*/ curfptr[2247]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2247*/ curfptr[2246]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2256*/ curfptr[2255]);
+ meltgc_touch(/*_.VALTUP___V2248*/ curfptr[2247]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2256*/ curfptr[2255]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2248*/ curfptr[2247]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2257*/ curfptr[2256]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2249*/ curfptr[2248]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2258*/ curfptr[2257]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2250*/ curfptr[2249]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2260*/ curfptr[2259]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2259*/ curfptr[2258]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2252*/ curfptr[2251]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2251*/ curfptr[2250]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2260*/ curfptr[2259]);
+ meltgc_touch(/*_.VALTUP___V2252*/ curfptr[2251]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1311:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2252*/ curfptr[2251]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2260*/ curfptr[2259]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2244*/ curfptr[2243]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2252*/ curfptr[2251]);
  
- MELT_LOCATION("warmelt-first.melt:1316:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1311:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2252*/ curfptr[2251]);
+ meltgc_touch(/*_.VALDATA___V2244*/ curfptr[2243]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2261*/ curfptr[2260])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2253*/ curfptr[2252])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2261*/ curfptr[2260]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2261*/ curfptr[2260]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2262*/ curfptr[2261]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2253*/ curfptr[2252]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2253*/ curfptr[2252]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2254*/ curfptr[2253]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2261*/ curfptr[2260]);
+ meltgc_touch(/*_.VALDATA___V2253*/ curfptr[2252]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2264*/ curfptr[2263]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2256*/ curfptr[2255]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2175*/ curfptr[2174]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1319:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1314:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2265*/ curfptr[2264]);
+ meltgc_touch(/*_.VALDATA___V2257*/ curfptr[2256]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2178*/ curfptr[2177]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1319:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1314:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2266*/ curfptr[2265]);
+ meltgc_touch(/*_.VALDATA___V2258*/ curfptr[2257]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2267*/ curfptr[2266]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2267*/ curfptr[2266]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2267*/ curfptr[2266]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2265*/ curfptr[2264]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2259*/ curfptr[2258]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2259*/ curfptr[2258]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2259*/ curfptr[2258]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2257*/ curfptr[2256]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2267*/ curfptr[2266]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2267*/ curfptr[2266]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2267*/ curfptr[2266]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2259*/ curfptr[2258]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2259*/ curfptr[2258]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2259*/ curfptr[2258]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2258*/ curfptr[2257]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2267*/ curfptr[2266]);
+ meltgc_touch(/*_.VALTUP___V2259*/ curfptr[2258]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2267*/ curfptr[2266]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2259*/ curfptr[2258]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2268*/ curfptr[2267]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2260*/ curfptr[2259]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2269*/ curfptr[2268]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2261*/ curfptr[2260]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2271*/ curfptr[2270]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2270*/ curfptr[2269]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2263*/ curfptr[2262]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2262*/ curfptr[2261]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2271*/ curfptr[2270]);
+ meltgc_touch(/*_.VALTUP___V2263*/ curfptr[2262]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1314:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2263*/ curfptr[2262]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2271*/ curfptr[2270]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2255*/ curfptr[2254]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2263*/ curfptr[2262]);
  
- MELT_LOCATION("warmelt-first.melt:1319:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1314:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2263*/ curfptr[2262]);
+ meltgc_touch(/*_.VALDATA___V2255*/ curfptr[2254]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2272*/ curfptr[2271])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2264*/ curfptr[2263])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2272*/ curfptr[2271]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2272*/ curfptr[2271]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2273*/ curfptr[2272]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2264*/ curfptr[2263]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2264*/ curfptr[2263]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2265*/ curfptr[2264]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2272*/ curfptr[2271]);
+ meltgc_touch(/*_.VALDATA___V2264*/ curfptr[2263]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2275*/ curfptr[2274]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2267*/ curfptr[2266]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2175*/ curfptr[2174]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1322:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1317:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2276*/ curfptr[2275]);
+ meltgc_touch(/*_.VALDATA___V2268*/ curfptr[2267]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2178*/ curfptr[2177]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1322:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1317:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2277*/ curfptr[2276]);
+ meltgc_touch(/*_.VALDATA___V2269*/ curfptr[2268]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2278*/ curfptr[2277]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2278*/ curfptr[2277]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2278*/ curfptr[2277]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2276*/ curfptr[2275]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2270*/ curfptr[2269]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2270*/ curfptr[2269]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2270*/ curfptr[2269]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2268*/ curfptr[2267]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2278*/ curfptr[2277]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2278*/ curfptr[2277]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2278*/ curfptr[2277]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2270*/ curfptr[2269]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2270*/ curfptr[2269]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2270*/ curfptr[2269]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2269*/ curfptr[2268]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2278*/ curfptr[2277]);
+ meltgc_touch(/*_.VALTUP___V2270*/ curfptr[2269]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2278*/ curfptr[2277]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2270*/ curfptr[2269]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2279*/ curfptr[2278]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2271*/ curfptr[2270]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2280*/ curfptr[2279]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2272*/ curfptr[2271]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2282*/ curfptr[2281]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2281*/ curfptr[2280]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2274*/ curfptr[2273]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2273*/ curfptr[2272]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2282*/ curfptr[2281]);
+ meltgc_touch(/*_.VALTUP___V2274*/ curfptr[2273]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1317:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2274*/ curfptr[2273]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2282*/ curfptr[2281]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2266*/ curfptr[2265]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2274*/ curfptr[2273]);
  
- MELT_LOCATION("warmelt-first.melt:1322:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1317:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2274*/ curfptr[2273]);
+ meltgc_touch(/*_.VALDATA___V2266*/ curfptr[2265]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2283*/ curfptr[2282])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2275*/ curfptr[2274])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2283*/ curfptr[2282]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2283*/ curfptr[2282]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2284*/ curfptr[2283]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2275*/ curfptr[2274]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2275*/ curfptr[2274]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2276*/ curfptr[2275]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2283*/ curfptr[2282]);
+ meltgc_touch(/*_.VALDATA___V2275*/ curfptr[2274]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2286*/ curfptr[2285]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2278*/ curfptr[2277]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1326:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1321:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2287*/ curfptr[2286]);
+ meltgc_touch(/*_.VALDATA___V2279*/ curfptr[2278]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2226*/ curfptr[2225]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1326:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1321:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2288*/ curfptr[2287]);
+ meltgc_touch(/*_.VALDATA___V2280*/ curfptr[2279]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2289*/ curfptr[2288]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2289*/ curfptr[2288]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2289*/ curfptr[2288]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2287*/ curfptr[2286]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2281*/ curfptr[2280]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2281*/ curfptr[2280]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2281*/ curfptr[2280]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2279*/ curfptr[2278]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2289*/ curfptr[2288]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2289*/ curfptr[2288]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2289*/ curfptr[2288]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2281*/ curfptr[2280]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2281*/ curfptr[2280]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2281*/ curfptr[2280]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2280*/ curfptr[2279]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2289*/ curfptr[2288]);
+ meltgc_touch(/*_.VALTUP___V2281*/ curfptr[2280]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2289*/ curfptr[2288]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2281*/ curfptr[2280]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2290*/ curfptr[2289]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2282*/ curfptr[2281]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2291*/ curfptr[2290]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2283*/ curfptr[2282]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2293*/ curfptr[2292]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2292*/ curfptr[2291]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2285*/ curfptr[2284]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2284*/ curfptr[2283]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2293*/ curfptr[2292]);
+ meltgc_touch(/*_.VALTUP___V2285*/ curfptr[2284]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1321:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2285*/ curfptr[2284]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2293*/ curfptr[2292]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2277*/ curfptr[2276]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2285*/ curfptr[2284]);
  
- MELT_LOCATION("warmelt-first.melt:1326:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1321:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2285*/ curfptr[2284]);
+ meltgc_touch(/*_.VALDATA___V2277*/ curfptr[2276]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2294*/ curfptr[2293])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2286*/ curfptr[2285])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2294*/ curfptr[2293]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2294*/ curfptr[2293]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2295*/ curfptr[2294]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2286*/ curfptr[2285]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2286*/ curfptr[2285]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2287*/ curfptr[2286]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2294*/ curfptr[2293]);
+ meltgc_touch(/*_.VALDATA___V2286*/ curfptr[2285]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2297*/ curfptr[2296]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2289*/ curfptr[2288]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1331:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1326:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2298*/ curfptr[2297]);
+ meltgc_touch(/*_.VALDATA___V2290*/ curfptr[2289]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2226*/ curfptr[2225]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1331:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1326:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2299*/ curfptr[2298]);
+ meltgc_touch(/*_.VALDATA___V2291*/ curfptr[2290]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2300*/ curfptr[2299]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2300*/ curfptr[2299]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2300*/ curfptr[2299]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2298*/ curfptr[2297]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2292*/ curfptr[2291]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2292*/ curfptr[2291]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2292*/ curfptr[2291]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2290*/ curfptr[2289]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2300*/ curfptr[2299]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2300*/ curfptr[2299]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2300*/ curfptr[2299]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2292*/ curfptr[2291]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2292*/ curfptr[2291]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2292*/ curfptr[2291]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2291*/ curfptr[2290]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2300*/ curfptr[2299]);
+ meltgc_touch(/*_.VALTUP___V2292*/ curfptr[2291]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2300*/ curfptr[2299]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2292*/ curfptr[2291]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2301*/ curfptr[2300]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2293*/ curfptr[2292]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2302*/ curfptr[2301]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2294*/ curfptr[2293]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2304*/ curfptr[2303]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2303*/ curfptr[2302]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2296*/ curfptr[2295]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2295*/ curfptr[2294]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2304*/ curfptr[2303]);
+ meltgc_touch(/*_.VALTUP___V2296*/ curfptr[2295]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1326:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2296*/ curfptr[2295]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2304*/ curfptr[2303]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2288*/ curfptr[2287]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2296*/ curfptr[2295]);
  
- MELT_LOCATION("warmelt-first.melt:1331:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1326:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2296*/ curfptr[2295]);
+ meltgc_touch(/*_.VALDATA___V2288*/ curfptr[2287]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2305*/ curfptr[2304])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2297*/ curfptr[2296])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2305*/ curfptr[2304]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2305*/ curfptr[2304]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2306*/ curfptr[2305]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2297*/ curfptr[2296]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2297*/ curfptr[2296]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2298*/ curfptr[2297]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2305*/ curfptr[2304]);
+ meltgc_touch(/*_.VALDATA___V2297*/ curfptr[2296]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2308*/ curfptr[2307]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2300*/ curfptr[2299]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1336:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1331:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2309*/ curfptr[2308]);
+ meltgc_touch(/*_.VALDATA___V2301*/ curfptr[2300]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2226*/ curfptr[2225]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1336:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1331:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2310*/ curfptr[2309]);
+ meltgc_touch(/*_.VALDATA___V2302*/ curfptr[2301]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2311*/ curfptr[2310]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2311*/ curfptr[2310]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2311*/ curfptr[2310]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2309*/ curfptr[2308]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2303*/ curfptr[2302]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2303*/ curfptr[2302]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2303*/ curfptr[2302]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2301*/ curfptr[2300]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2311*/ curfptr[2310]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2311*/ curfptr[2310]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2311*/ curfptr[2310]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2303*/ curfptr[2302]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2303*/ curfptr[2302]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2303*/ curfptr[2302]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2302*/ curfptr[2301]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2311*/ curfptr[2310]);
+ meltgc_touch(/*_.VALTUP___V2303*/ curfptr[2302]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2311*/ curfptr[2310]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2303*/ curfptr[2302]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2312*/ curfptr[2311]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2304*/ curfptr[2303]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2313*/ curfptr[2312]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2305*/ curfptr[2304]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2315*/ curfptr[2314]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2314*/ curfptr[2313]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2307*/ curfptr[2306]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2306*/ curfptr[2305]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2315*/ curfptr[2314]);
+ meltgc_touch(/*_.VALTUP___V2307*/ curfptr[2306]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1331:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2307*/ curfptr[2306]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2315*/ curfptr[2314]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2299*/ curfptr[2298]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2307*/ curfptr[2306]);
  
- MELT_LOCATION("warmelt-first.melt:1336:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1331:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2307*/ curfptr[2306]);
+ meltgc_touch(/*_.VALDATA___V2299*/ curfptr[2298]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2316*/ curfptr[2315])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2308*/ curfptr[2307])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2316*/ curfptr[2315]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2316*/ curfptr[2315]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2317*/ curfptr[2316]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2308*/ curfptr[2307]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2308*/ curfptr[2307]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2309*/ curfptr[2308]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2316*/ curfptr[2315]);
+ meltgc_touch(/*_.VALDATA___V2308*/ curfptr[2307]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2319*/ curfptr[2318]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2311*/ curfptr[2310]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1342:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1337:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2320*/ curfptr[2319]);
+ meltgc_touch(/*_.VALDATA___V2312*/ curfptr[2311]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1342:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1337:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2321*/ curfptr[2320]);
+ meltgc_touch(/*_.VALDATA___V2313*/ curfptr[2312]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2322*/ curfptr[2321]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2322*/ curfptr[2321]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2322*/ curfptr[2321]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2320*/ curfptr[2319]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2314*/ curfptr[2313]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2314*/ curfptr[2313]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2314*/ curfptr[2313]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2312*/ curfptr[2311]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2322*/ curfptr[2321]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2322*/ curfptr[2321]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2322*/ curfptr[2321]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2314*/ curfptr[2313]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2314*/ curfptr[2313]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2314*/ curfptr[2313]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2313*/ curfptr[2312]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2322*/ curfptr[2321]);
+ meltgc_touch(/*_.VALTUP___V2314*/ curfptr[2313]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2322*/ curfptr[2321]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2314*/ curfptr[2313]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2323*/ curfptr[2322]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2315*/ curfptr[2314]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2324*/ curfptr[2323]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2316*/ curfptr[2315]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2326*/ curfptr[2325]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2325*/ curfptr[2324]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2318*/ curfptr[2317]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2317*/ curfptr[2316]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2326*/ curfptr[2325]);
+ meltgc_touch(/*_.VALTUP___V2318*/ curfptr[2317]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2318*/ curfptr[2317]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2326*/ curfptr[2325]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2310*/ curfptr[2309]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2318*/ curfptr[2317]);
  
- MELT_LOCATION("warmelt-first.melt:1342:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1337:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2318*/ curfptr[2317]);
+ meltgc_touch(/*_.VALDATA___V2310*/ curfptr[2309]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2327*/ curfptr[2326])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2319*/ curfptr[2318])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2327*/ curfptr[2326]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2327*/ curfptr[2326]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2328*/ curfptr[2327]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2319*/ curfptr[2318]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2319*/ curfptr[2318]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2320*/ curfptr[2319]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2327*/ curfptr[2326]);
+ meltgc_touch(/*_.VALDATA___V2319*/ curfptr[2318]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2330*/ curfptr[2329]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2322*/ curfptr[2321]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1348:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1343:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2331*/ curfptr[2330]);
+ meltgc_touch(/*_.VALDATA___V2323*/ curfptr[2322]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1348:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1343:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2332*/ curfptr[2331]);
+ meltgc_touch(/*_.VALDATA___V2324*/ curfptr[2323]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2333*/ curfptr[2332]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2333*/ curfptr[2332]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2333*/ curfptr[2332]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2331*/ curfptr[2330]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2325*/ curfptr[2324]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2325*/ curfptr[2324]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2325*/ curfptr[2324]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2323*/ curfptr[2322]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2333*/ curfptr[2332]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2333*/ curfptr[2332]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2333*/ curfptr[2332]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2325*/ curfptr[2324]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2325*/ curfptr[2324]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2325*/ curfptr[2324]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2324*/ curfptr[2323]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2333*/ curfptr[2332]);
+ meltgc_touch(/*_.VALTUP___V2325*/ curfptr[2324]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2333*/ curfptr[2332]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2325*/ curfptr[2324]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2334*/ curfptr[2333]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2326*/ curfptr[2325]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2335*/ curfptr[2334]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2327*/ curfptr[2326]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2337*/ curfptr[2336]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2336*/ curfptr[2335]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2329*/ curfptr[2328]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2328*/ curfptr[2327]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2337*/ curfptr[2336]);
+ meltgc_touch(/*_.VALTUP___V2329*/ curfptr[2328]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1343:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2329*/ curfptr[2328]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2337*/ curfptr[2336]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2321*/ curfptr[2320]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2329*/ curfptr[2328]);
  
- MELT_LOCATION("warmelt-first.melt:1348:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1343:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2329*/ curfptr[2328]);
+ meltgc_touch(/*_.VALDATA___V2321*/ curfptr[2320]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2338*/ curfptr[2337])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2330*/ curfptr[2329])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2338*/ curfptr[2337]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2338*/ curfptr[2337]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2339*/ curfptr[2338]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2330*/ curfptr[2329]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2330*/ curfptr[2329]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2331*/ curfptr[2330]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2338*/ curfptr[2337]);
+ meltgc_touch(/*_.VALDATA___V2330*/ curfptr[2329]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2341*/ curfptr[2340]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2333*/ curfptr[2332]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1352:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1347:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2342*/ curfptr[2341]);
+ meltgc_touch(/*_.VALDATA___V2334*/ curfptr[2333]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1352:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1347:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2343*/ curfptr[2342]);
+ meltgc_touch(/*_.VALDATA___V2335*/ curfptr[2334]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2337*/ curfptr[2336])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2346*/ curfptr[2345]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2337*/ curfptr[2336]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2337*/ curfptr[2336]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2338*/ curfptr[2337]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2345*/ curfptr[2344]);
+ meltgc_touch(/*_.VALDATA___V2337*/ curfptr[2336]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2345*/ curfptr[2344]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2337*/ curfptr[2336]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1352:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1347:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2344*/ curfptr[2343]);
+ meltgc_touch(/*_.VALDATA___V2336*/ curfptr[2335]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2342*/ curfptr[2341]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2334*/ curfptr[2333]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2343*/ curfptr[2342]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2335*/ curfptr[2334]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2347*/ curfptr[2346]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2344*/ curfptr[2343]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2339*/ curfptr[2338]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2336*/ curfptr[2335]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2347*/ curfptr[2346]);
+ meltgc_touch(/*_.VALTUP___V2339*/ curfptr[2338]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2347*/ curfptr[2346]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2339*/ curfptr[2338]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2348*/ curfptr[2347]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2340*/ curfptr[2339]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2349*/ curfptr[2348]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2341*/ curfptr[2340]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2350*/ curfptr[2349]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2342*/ curfptr[2341]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2337*/ curfptr[2336]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2352*/ curfptr[2351]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2351*/ curfptr[2350]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2344*/ curfptr[2343]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2343*/ curfptr[2342]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2352*/ curfptr[2351]);
+ meltgc_touch(/*_.VALTUP___V2344*/ curfptr[2343]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1347:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2340*/ curfptr[2339]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2352*/ curfptr[2351]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2332*/ curfptr[2331]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2344*/ curfptr[2343]);
  
- MELT_LOCATION("warmelt-first.melt:1352:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1347:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2340*/ curfptr[2339]);
+ meltgc_touch(/*_.VALDATA___V2332*/ curfptr[2331]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2353*/ curfptr[2352])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2353*/ curfptr[2352]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2353*/ curfptr[2352]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2354*/ curfptr[2353]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2346*/ curfptr[2345]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2353*/ curfptr[2352]);
+ meltgc_touch(/*_.VALDATA___V2345*/ curfptr[2344]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2356*/ curfptr[2355]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2348*/ curfptr[2347]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2350*/ curfptr[2349])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2359*/ curfptr[2358]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2350*/ curfptr[2349]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2350*/ curfptr[2349]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2351*/ curfptr[2350]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2358*/ curfptr[2357]);
+ meltgc_touch(/*_.VALDATA___V2350*/ curfptr[2349]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2358*/ curfptr[2357]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2350*/ curfptr[2349]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1360:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1355:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2357*/ curfptr[2356]);
+ meltgc_touch(/*_.VALDATA___V2349*/ curfptr[2348]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1360:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1355:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2360*/ curfptr[2359]);
+ meltgc_touch(/*_.VALDATA___V2352*/ curfptr[2351]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2361*/ curfptr[2360]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2361*/ curfptr[2360]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2361*/ curfptr[2360]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2357*/ curfptr[2356]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2353*/ curfptr[2352]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2353*/ curfptr[2352]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2353*/ curfptr[2352]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2349*/ curfptr[2348]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2361*/ curfptr[2360]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2361*/ curfptr[2360]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2361*/ curfptr[2360]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2353*/ curfptr[2352]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2353*/ curfptr[2352]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2353*/ curfptr[2352]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2352*/ curfptr[2351]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2361*/ curfptr[2360]);
+ meltgc_touch(/*_.VALTUP___V2353*/ curfptr[2352]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2361*/ curfptr[2360]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2353*/ curfptr[2352]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2362*/ curfptr[2361]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2354*/ curfptr[2353]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2350*/ curfptr[2349]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2363*/ curfptr[2362]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2355*/ curfptr[2354]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2365*/ curfptr[2364]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2364*/ curfptr[2363]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2357*/ curfptr[2356]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2356*/ curfptr[2355]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2365*/ curfptr[2364]);
+ meltgc_touch(/*_.VALTUP___V2357*/ curfptr[2356]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1355:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2355*/ curfptr[2354]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2365*/ curfptr[2364]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2347*/ curfptr[2346]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2357*/ curfptr[2356]);
  
- MELT_LOCATION("warmelt-first.melt:1360:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1355:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2355*/ curfptr[2354]);
+ meltgc_touch(/*_.VALDATA___V2347*/ curfptr[2346]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2367*/ curfptr[2366]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2359*/ curfptr[2358]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2366*/ curfptr[2365]);
+ meltgc_touch(/*_.VALDATA___V2358*/ curfptr[2357]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2369*/ curfptr[2368]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2361*/ curfptr[2360]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2371*/ curfptr[2370])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2363*/ curfptr[2362])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2371*/ curfptr[2370]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2371*/ curfptr[2370]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2372*/ curfptr[2371]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2363*/ curfptr[2362]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2363*/ curfptr[2362]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2364*/ curfptr[2363]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2371*/ curfptr[2370]);
+ meltgc_touch(/*_.VALDATA___V2363*/ curfptr[2362]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2371*/ curfptr[2370]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2363*/ curfptr[2362]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1368:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1363:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2370*/ curfptr[2369]);
+ meltgc_touch(/*_.VALDATA___V2362*/ curfptr[2361]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2374*/ curfptr[2373])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2374*/ curfptr[2373]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2374*/ curfptr[2373]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2375*/ curfptr[2374]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2367*/ curfptr[2366]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2374*/ curfptr[2373]);
+ meltgc_touch(/*_.VALDATA___V2366*/ curfptr[2365]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2374*/ curfptr[2373]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2366*/ curfptr[2365]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1368:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1363:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2373*/ curfptr[2372]);
+ meltgc_touch(/*_.VALDATA___V2365*/ curfptr[2364]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2376*/ curfptr[2375]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2376*/ curfptr[2375]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2376*/ curfptr[2375]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2370*/ curfptr[2369]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2368*/ curfptr[2367]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2368*/ curfptr[2367]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2368*/ curfptr[2367]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2362*/ curfptr[2361]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2376*/ curfptr[2375]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2376*/ curfptr[2375]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2376*/ curfptr[2375]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2368*/ curfptr[2367]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2368*/ curfptr[2367]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2368*/ curfptr[2367]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2365*/ curfptr[2364]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2376*/ curfptr[2375]);
+ meltgc_touch(/*_.VALTUP___V2368*/ curfptr[2367]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2376*/ curfptr[2375]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2368*/ curfptr[2367]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2377*/ curfptr[2376]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2369*/ curfptr[2368]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2371*/ curfptr[2370]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2363*/ curfptr[2362]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2378*/ curfptr[2377]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2370*/ curfptr[2369]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2374*/ curfptr[2373]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2379*/ curfptr[2378]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2372*/ curfptr[2371]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2371*/ curfptr[2370]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2380*/ curfptr[2379]);
+ meltgc_touch(/*_.VALTUP___V2372*/ curfptr[2371]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1363:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2368*/ curfptr[2367]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2380*/ curfptr[2379]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2360*/ curfptr[2359]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2372*/ curfptr[2371]);
  
- MELT_LOCATION("warmelt-first.melt:1368:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1363:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2368*/ curfptr[2367]);
+ meltgc_touch(/*_.VALDATA___V2360*/ curfptr[2359]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2381*/ curfptr[2380])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2381*/ curfptr[2380]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2381*/ curfptr[2380]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2382*/ curfptr[2381]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2374*/ curfptr[2373]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2381*/ curfptr[2380]);
+ meltgc_touch(/*_.VALDATA___V2373*/ curfptr[2372]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1371:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2384*/ curfptr[2383]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2376*/ curfptr[2375]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2378*/ curfptr[2377])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2387*/ curfptr[2386]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2378*/ curfptr[2377]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2378*/ curfptr[2377]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2379*/ curfptr[2378]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2386*/ curfptr[2385]);
+ meltgc_touch(/*_.VALDATA___V2378*/ curfptr[2377]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1371:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2386*/ curfptr[2385]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2378*/ curfptr[2377]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1371:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1376:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1371:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2385*/ curfptr[2384]);
+ meltgc_touch(/*_.VALDATA___V2377*/ curfptr[2376]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2388*/ curfptr[2387]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2388*/ curfptr[2387]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2388*/ curfptr[2387]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2385*/ curfptr[2384]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2380*/ curfptr[2379]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2377*/ curfptr[2376]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2388*/ curfptr[2387]);
+ meltgc_touch(/*_.VALTUP___V2380*/ curfptr[2379]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1371:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2388*/ curfptr[2387]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2380*/ curfptr[2379]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1371:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2389*/ curfptr[2388]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2381*/ curfptr[2380]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2378*/ curfptr[2377]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2391*/ curfptr[2390]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2390*/ curfptr[2389]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2383*/ curfptr[2382]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2382*/ curfptr[2381]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2391*/ curfptr[2390]);
+ meltgc_touch(/*_.VALTUP___V2383*/ curfptr[2382]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1371:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2383*/ curfptr[2382]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2391*/ curfptr[2390]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2375*/ curfptr[2374]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2383*/ curfptr[2382]);
  
- MELT_LOCATION("warmelt-first.melt:1376:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1371:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2383*/ curfptr[2382]);
+ meltgc_touch(/*_.VALDATA___V2375*/ curfptr[2374]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2392*/ curfptr[2391])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2384*/ curfptr[2383])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2392*/ curfptr[2391]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2392*/ curfptr[2391]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2393*/ curfptr[2392]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2384*/ curfptr[2383]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2384*/ curfptr[2383]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2385*/ curfptr[2384]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2392*/ curfptr[2391]);
+ meltgc_touch(/*_.VALDATA___V2384*/ curfptr[2383]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2395*/ curfptr[2394]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2387*/ curfptr[2386]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2386*/ curfptr[2385]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2378*/ curfptr[2377]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1380:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1375:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2396*/ curfptr[2395]);
+ meltgc_touch(/*_.VALDATA___V2388*/ curfptr[2387]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2399*/ curfptr[2398]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2391*/ curfptr[2390]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2398*/ curfptr[2397]);
+ meltgc_touch(/*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1380:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1375:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2397*/ curfptr[2396]);
+ meltgc_touch(/*_.VALDATA___V2389*/ curfptr[2388]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2400*/ curfptr[2399]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2400*/ curfptr[2399]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2400*/ curfptr[2399]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2396*/ curfptr[2395]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2392*/ curfptr[2391]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2392*/ curfptr[2391]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2392*/ curfptr[2391]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2388*/ curfptr[2387]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2400*/ curfptr[2399]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2400*/ curfptr[2399]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2400*/ curfptr[2399]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2392*/ curfptr[2391]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2392*/ curfptr[2391]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2392*/ curfptr[2391]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2389*/ curfptr[2388]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2400*/ curfptr[2399]);
+ meltgc_touch(/*_.VALTUP___V2392*/ curfptr[2391]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2400*/ curfptr[2399]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2392*/ curfptr[2391]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2401*/ curfptr[2400]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2393*/ curfptr[2392]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2378*/ curfptr[2377]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2402*/ curfptr[2401]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2394*/ curfptr[2393]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2404*/ curfptr[2403]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2403*/ curfptr[2402]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2396*/ curfptr[2395]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2395*/ curfptr[2394]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2404*/ curfptr[2403]);
+ meltgc_touch(/*_.VALTUP___V2396*/ curfptr[2395]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1375:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2394*/ curfptr[2393]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2404*/ curfptr[2403]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2396*/ curfptr[2395]);
  
- MELT_LOCATION("warmelt-first.melt:1380:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1375:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2394*/ curfptr[2393]);
+ meltgc_touch(/*_.VALDATA___V2386*/ curfptr[2385]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2406*/ curfptr[2405]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2398*/ curfptr[2397]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2405*/ curfptr[2404]);
+ meltgc_touch(/*_.VALDATA___V2397*/ curfptr[2396]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2408*/ curfptr[2407]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2400*/ curfptr[2399]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2411*/ curfptr[2410]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2403*/ curfptr[2402]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2410*/ curfptr[2409]);
+ meltgc_touch(/*_.VALDATA___V2402*/ curfptr[2401]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2410*/ curfptr[2409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2402*/ curfptr[2401]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1384:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1379:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2409*/ curfptr[2408]);
+ meltgc_touch(/*_.VALDATA___V2401*/ curfptr[2400]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2414*/ curfptr[2413]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2406*/ curfptr[2405]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2413*/ curfptr[2412]);
+ meltgc_touch(/*_.VALDATA___V2405*/ curfptr[2404]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2413*/ curfptr[2412]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2405*/ curfptr[2404]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1384:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1379:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2412*/ curfptr[2411]);
+ meltgc_touch(/*_.VALDATA___V2404*/ curfptr[2403]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2415*/ curfptr[2414]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2415*/ curfptr[2414]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2415*/ curfptr[2414]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2409*/ curfptr[2408]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2407*/ curfptr[2406]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2407*/ curfptr[2406]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2407*/ curfptr[2406]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2401*/ curfptr[2400]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2415*/ curfptr[2414]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2415*/ curfptr[2414]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2415*/ curfptr[2414]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2407*/ curfptr[2406]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2407*/ curfptr[2406]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2407*/ curfptr[2406]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2404*/ curfptr[2403]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2415*/ curfptr[2414]);
+ meltgc_touch(/*_.VALTUP___V2407*/ curfptr[2406]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2415*/ curfptr[2414]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2407*/ curfptr[2406]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2416*/ curfptr[2415]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2408*/ curfptr[2407]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2417*/ curfptr[2416]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2409*/ curfptr[2408]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2419*/ curfptr[2418]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2418*/ curfptr[2417]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2411*/ curfptr[2410]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2410*/ curfptr[2409]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2419*/ curfptr[2418]);
+ meltgc_touch(/*_.VALTUP___V2411*/ curfptr[2410]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1379:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2407*/ curfptr[2406]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2419*/ curfptr[2418]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2399*/ curfptr[2398]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2411*/ curfptr[2410]);
  
- MELT_LOCATION("warmelt-first.melt:1384:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1379:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2407*/ curfptr[2406]);
+ meltgc_touch(/*_.VALDATA___V2399*/ curfptr[2398]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2420*/ curfptr[2419])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2420*/ curfptr[2419]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2420*/ curfptr[2419]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2421*/ curfptr[2420]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2413*/ curfptr[2412]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2420*/ curfptr[2419]);
+ meltgc_touch(/*_.VALDATA___V2412*/ curfptr[2411]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2423*/ curfptr[2422]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2415*/ curfptr[2414]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2410*/ curfptr[2409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2402*/ curfptr[2401]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1387:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1382:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2424*/ curfptr[2423]);
+ meltgc_touch(/*_.VALDATA___V2416*/ curfptr[2415]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2413*/ curfptr[2412]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2405*/ curfptr[2404]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1387:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1382:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2425*/ curfptr[2424]);
+ meltgc_touch(/*_.VALDATA___V2417*/ curfptr[2416]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2426*/ curfptr[2425]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2426*/ curfptr[2425]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2426*/ curfptr[2425]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2424*/ curfptr[2423]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2418*/ curfptr[2417]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2418*/ curfptr[2417]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2418*/ curfptr[2417]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2416*/ curfptr[2415]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2426*/ curfptr[2425]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2426*/ curfptr[2425]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2426*/ curfptr[2425]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2418*/ curfptr[2417]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2418*/ curfptr[2417]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2418*/ curfptr[2417]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2417*/ curfptr[2416]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2426*/ curfptr[2425]);
+ meltgc_touch(/*_.VALTUP___V2418*/ curfptr[2417]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2426*/ curfptr[2425]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2418*/ curfptr[2417]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2427*/ curfptr[2426]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2419*/ curfptr[2418]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2428*/ curfptr[2427]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2420*/ curfptr[2419]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2429*/ curfptr[2428]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2421*/ curfptr[2420]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2430*/ curfptr[2429]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2422*/ curfptr[2421]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2431*/ curfptr[2430]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2424*/ curfptr[2423]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2423*/ curfptr[2422]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2432*/ curfptr[2431]);
+ meltgc_touch(/*_.VALTUP___V2424*/ curfptr[2423]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1382:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2422*/ curfptr[2421]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2432*/ curfptr[2431]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2414*/ curfptr[2413]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2424*/ curfptr[2423]);
  
- MELT_LOCATION("warmelt-first.melt:1387:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1382:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2422*/ curfptr[2421]);
+ meltgc_touch(/*_.VALDATA___V2414*/ curfptr[2413]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2433*/ curfptr[2432])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2433*/ curfptr[2432]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2433*/ curfptr[2432]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2434*/ curfptr[2433]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2426*/ curfptr[2425]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2433*/ curfptr[2432]);
+ meltgc_touch(/*_.VALDATA___V2425*/ curfptr[2424]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1389:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2436*/ curfptr[2435]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2428*/ curfptr[2427]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2439*/ curfptr[2438]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2431*/ curfptr[2430]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2438*/ curfptr[2437]);
+ meltgc_touch(/*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1389:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1389:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1394:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1389:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2437*/ curfptr[2436]);
+ meltgc_touch(/*_.VALDATA___V2429*/ curfptr[2428]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2440*/ curfptr[2439]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2440*/ curfptr[2439]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2440*/ curfptr[2439]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2437*/ curfptr[2436]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2432*/ curfptr[2431]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2429*/ curfptr[2428]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2440*/ curfptr[2439]);
+ meltgc_touch(/*_.VALTUP___V2432*/ curfptr[2431]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1389:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2440*/ curfptr[2439]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2432*/ curfptr[2431]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1389:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2441*/ curfptr[2440]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2433*/ curfptr[2432]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2443*/ curfptr[2442]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2442*/ curfptr[2441]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2435*/ curfptr[2434]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2434*/ curfptr[2433]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2443*/ curfptr[2442]);
+ meltgc_touch(/*_.VALTUP___V2435*/ curfptr[2434]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1389:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2435*/ curfptr[2434]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2443*/ curfptr[2442]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2427*/ curfptr[2426]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2435*/ curfptr[2434]);
  
- MELT_LOCATION("warmelt-first.melt:1394:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1389:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2435*/ curfptr[2434]);
+ meltgc_touch(/*_.VALDATA___V2427*/ curfptr[2426]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2444*/ curfptr[2443])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2436*/ curfptr[2435])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2444*/ curfptr[2443]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2444*/ curfptr[2443]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2445*/ curfptr[2444]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2436*/ curfptr[2435]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2436*/ curfptr[2435]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2437*/ curfptr[2436]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2444*/ curfptr[2443]);
+ meltgc_touch(/*_.VALDATA___V2436*/ curfptr[2435]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1392:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2447*/ curfptr[2446]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2439*/ curfptr[2438]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1392:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1392:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1397:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1392:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2448*/ curfptr[2447]);
+ meltgc_touch(/*_.VALDATA___V2440*/ curfptr[2439]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2449*/ curfptr[2448]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2449*/ curfptr[2448]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2449*/ curfptr[2448]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2441*/ curfptr[2440]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2441*/ curfptr[2440]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2441*/ curfptr[2440]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2440*/ curfptr[2439]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2449*/ curfptr[2448]);
+ meltgc_touch(/*_.VALTUP___V2441*/ curfptr[2440]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1392:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2449*/ curfptr[2448]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2441*/ curfptr[2440]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1392:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2450*/ curfptr[2449]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2442*/ curfptr[2441]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2451*/ curfptr[2450]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2443*/ curfptr[2442]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2453*/ curfptr[2452]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2452*/ curfptr[2451]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2445*/ curfptr[2444]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2444*/ curfptr[2443]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2453*/ curfptr[2452]);
+ meltgc_touch(/*_.VALTUP___V2445*/ curfptr[2444]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1392:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2453*/ curfptr[2452]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2445*/ curfptr[2444]);
  
- MELT_LOCATION("warmelt-first.melt:1397:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1392:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2446*/ curfptr[2445]);
+ meltgc_touch(/*_.VALDATA___V2438*/ curfptr[2437]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2454*/ curfptr[2453])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2454*/ curfptr[2453]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2454*/ curfptr[2453]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2455*/ curfptr[2454]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2447*/ curfptr[2446]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2454*/ curfptr[2453]);
+ meltgc_touch(/*_.VALDATA___V2446*/ curfptr[2445]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2457*/ curfptr[2456]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2449*/ curfptr[2448]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1401:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1396:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2458*/ curfptr[2457]);
+ meltgc_touch(/*_.VALDATA___V2450*/ curfptr[2449]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2460*/ curfptr[2459])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2452*/ curfptr[2451])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2460*/ curfptr[2459]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2460*/ curfptr[2459]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2461*/ curfptr[2460]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2452*/ curfptr[2451]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2452*/ curfptr[2451]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2453*/ curfptr[2452]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2460*/ curfptr[2459]);
+ meltgc_touch(/*_.VALDATA___V2452*/ curfptr[2451]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2460*/ curfptr[2459]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2452*/ curfptr[2451]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1401:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1396:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2459*/ curfptr[2458]);
+ meltgc_touch(/*_.VALDATA___V2451*/ curfptr[2450]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2462*/ curfptr[2461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2462*/ curfptr[2461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2462*/ curfptr[2461]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2458*/ curfptr[2457]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2454*/ curfptr[2453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2454*/ curfptr[2453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2454*/ curfptr[2453]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2450*/ curfptr[2449]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2462*/ curfptr[2461]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2462*/ curfptr[2461]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2462*/ curfptr[2461]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2454*/ curfptr[2453]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2454*/ curfptr[2453]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2454*/ curfptr[2453]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2451*/ curfptr[2450]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2462*/ curfptr[2461]);
+ meltgc_touch(/*_.VALTUP___V2454*/ curfptr[2453]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2462*/ curfptr[2461]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2454*/ curfptr[2453]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2463*/ curfptr[2462]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2455*/ curfptr[2454]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2464*/ curfptr[2463]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2456*/ curfptr[2455]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2460*/ curfptr[2459]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2452*/ curfptr[2451]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2466*/ curfptr[2465]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2465*/ curfptr[2464]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2458*/ curfptr[2457]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2457*/ curfptr[2456]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2466*/ curfptr[2465]);
+ meltgc_touch(/*_.VALTUP___V2458*/ curfptr[2457]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1396:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2456*/ curfptr[2455]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2466*/ curfptr[2465]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2448*/ curfptr[2447]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2458*/ curfptr[2457]);
  
- MELT_LOCATION("warmelt-first.melt:1401:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1396:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2456*/ curfptr[2455]);
+ meltgc_touch(/*_.VALDATA___V2448*/ curfptr[2447]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2467*/ curfptr[2466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2467*/ curfptr[2466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2467*/ curfptr[2466]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2468*/ curfptr[2467]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2460*/ curfptr[2459]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2467*/ curfptr[2466]);
+ meltgc_touch(/*_.VALDATA___V2459*/ curfptr[2458]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2470*/ curfptr[2469]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2462*/ curfptr[2461]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1404:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1399:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2471*/ curfptr[2470]);
+ meltgc_touch(/*_.VALDATA___V2463*/ curfptr[2462]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2474*/ curfptr[2473]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2466*/ curfptr[2465]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2473*/ curfptr[2472]);
+ meltgc_touch(/*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1404:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1399:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2472*/ curfptr[2471]);
+ meltgc_touch(/*_.VALDATA___V2464*/ curfptr[2463]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2475*/ curfptr[2474]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2475*/ curfptr[2474]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2475*/ curfptr[2474]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2471*/ curfptr[2470]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2467*/ curfptr[2466]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2467*/ curfptr[2466]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2467*/ curfptr[2466]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2463*/ curfptr[2462]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2475*/ curfptr[2474]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2475*/ curfptr[2474]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2475*/ curfptr[2474]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2467*/ curfptr[2466]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2467*/ curfptr[2466]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2467*/ curfptr[2466]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2464*/ curfptr[2463]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2475*/ curfptr[2474]);
+ meltgc_touch(/*_.VALTUP___V2467*/ curfptr[2466]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2475*/ curfptr[2474]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2467*/ curfptr[2466]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2476*/ curfptr[2475]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2468*/ curfptr[2467]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2477*/ curfptr[2476]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2469*/ curfptr[2468]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2479*/ curfptr[2478]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2478*/ curfptr[2477]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2471*/ curfptr[2470]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2470*/ curfptr[2469]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2479*/ curfptr[2478]);
+ meltgc_touch(/*_.VALTUP___V2471*/ curfptr[2470]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1399:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2469*/ curfptr[2468]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2479*/ curfptr[2478]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2461*/ curfptr[2460]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2471*/ curfptr[2470]);
  
- MELT_LOCATION("warmelt-first.melt:1404:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1399:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2469*/ curfptr[2468]);
+ meltgc_touch(/*_.VALDATA___V2461*/ curfptr[2460]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2480*/ curfptr[2479])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2480*/ curfptr[2479]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2480*/ curfptr[2479]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2481*/ curfptr[2480]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2473*/ curfptr[2472]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2480*/ curfptr[2479]);
+ meltgc_touch(/*_.VALDATA___V2472*/ curfptr[2471]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2483*/ curfptr[2482]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2475*/ curfptr[2474]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1407:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1402:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2484*/ curfptr[2483]);
+ meltgc_touch(/*_.VALDATA___V2476*/ curfptr[2475]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1407:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1402:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2485*/ curfptr[2484]);
+ meltgc_touch(/*_.VALDATA___V2477*/ curfptr[2476]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2488*/ curfptr[2487]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2480*/ curfptr[2479]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2487*/ curfptr[2486]);
+ meltgc_touch(/*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1407:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1402:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2486*/ curfptr[2485]);
+ meltgc_touch(/*_.VALDATA___V2478*/ curfptr[2477]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2484*/ curfptr[2483]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2476*/ curfptr[2475]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2485*/ curfptr[2484]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2477*/ curfptr[2476]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2489*/ curfptr[2488]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2486*/ curfptr[2485]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2481*/ curfptr[2480]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2478*/ curfptr[2477]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2489*/ curfptr[2488]);
+ meltgc_touch(/*_.VALTUP___V2481*/ curfptr[2480]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2489*/ curfptr[2488]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2481*/ curfptr[2480]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2490*/ curfptr[2489]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2482*/ curfptr[2481]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2491*/ curfptr[2490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2483*/ curfptr[2482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2492*/ curfptr[2491]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2484*/ curfptr[2483]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2494*/ curfptr[2493]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2493*/ curfptr[2492]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2486*/ curfptr[2485]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2485*/ curfptr[2484]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2494*/ curfptr[2493]);
+ meltgc_touch(/*_.VALTUP___V2486*/ curfptr[2485]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1402:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2482*/ curfptr[2481]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2494*/ curfptr[2493]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2474*/ curfptr[2473]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2486*/ curfptr[2485]);
  
- MELT_LOCATION("warmelt-first.melt:1407:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1402:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2482*/ curfptr[2481]);
+ meltgc_touch(/*_.VALDATA___V2474*/ curfptr[2473]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2496*/ curfptr[2495]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2488*/ curfptr[2487]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2495*/ curfptr[2494]);
+ meltgc_touch(/*_.VALDATA___V2487*/ curfptr[2486]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2498*/ curfptr[2497]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2490*/ curfptr[2489]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1410:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1405:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2499*/ curfptr[2498]);
+ meltgc_touch(/*_.VALDATA___V2491*/ curfptr[2490]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1410:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1405:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2500*/ curfptr[2499]);
+ meltgc_touch(/*_.VALDATA___V2492*/ curfptr[2491]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1410:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1405:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2501*/ curfptr[2500]);
+ meltgc_touch(/*_.VALDATA___V2493*/ curfptr[2492]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2504*/ curfptr[2503]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2496*/ curfptr[2495]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2503*/ curfptr[2502]);
+ meltgc_touch(/*_.VALDATA___V2495*/ curfptr[2494]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2495*/ curfptr[2494]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1410:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1405:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2502*/ curfptr[2501]);
+ meltgc_touch(/*_.VALDATA___V2494*/ curfptr[2493]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2499*/ curfptr[2498]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2491*/ curfptr[2490]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2500*/ curfptr[2499]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2492*/ curfptr[2491]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2501*/ curfptr[2500]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2493*/ curfptr[2492]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2505*/ curfptr[2504]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2502*/ curfptr[2501]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2497*/ curfptr[2496]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2494*/ curfptr[2493]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2505*/ curfptr[2504]);
+ meltgc_touch(/*_.VALTUP___V2497*/ curfptr[2496]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2505*/ curfptr[2504]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2497*/ curfptr[2496]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2506*/ curfptr[2505]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2498*/ curfptr[2497]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2507*/ curfptr[2506]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2499*/ curfptr[2498]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2508*/ curfptr[2507]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2500*/ curfptr[2499]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2509*/ curfptr[2508]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2501*/ curfptr[2500]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2511*/ curfptr[2510]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2510*/ curfptr[2509]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2503*/ curfptr[2502]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2502*/ curfptr[2501]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2511*/ curfptr[2510]);
+ meltgc_touch(/*_.VALTUP___V2503*/ curfptr[2502]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1405:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2497*/ curfptr[2496]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2511*/ curfptr[2510]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2489*/ curfptr[2488]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2503*/ curfptr[2502]);
  
- MELT_LOCATION("warmelt-first.melt:1410:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1405:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2497*/ curfptr[2496]);
+ meltgc_touch(/*_.VALDATA___V2489*/ curfptr[2488]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2504*/ curfptr[2503])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2513*/ curfptr[2512]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2504*/ curfptr[2503]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2504*/ curfptr[2503]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2505*/ curfptr[2504]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2512*/ curfptr[2511]);
+ meltgc_touch(/*_.VALDATA___V2504*/ curfptr[2503]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2515*/ curfptr[2514]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2507*/ curfptr[2506]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1413:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1408:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2516*/ curfptr[2515]);
+ meltgc_touch(/*_.VALDATA___V2508*/ curfptr[2507]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1413:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1408:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2517*/ curfptr[2516]);
+ meltgc_touch(/*_.VALDATA___V2509*/ curfptr[2508]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1413:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1408:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2518*/ curfptr[2517]);
+ meltgc_touch(/*_.VALDATA___V2510*/ curfptr[2509]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2495*/ curfptr[2494]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1413:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1408:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2519*/ curfptr[2518]);
+ meltgc_touch(/*_.VALDATA___V2511*/ curfptr[2510]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2522*/ curfptr[2521]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2514*/ curfptr[2513]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2521*/ curfptr[2520]);
+ meltgc_touch(/*_.VALDATA___V2513*/ curfptr[2512]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2513*/ curfptr[2512]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1413:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1408:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2520*/ curfptr[2519]);
+ meltgc_touch(/*_.VALDATA___V2512*/ curfptr[2511]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2516*/ curfptr[2515]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2508*/ curfptr[2507]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2517*/ curfptr[2516]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2509*/ curfptr[2508]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2518*/ curfptr[2517]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2510*/ curfptr[2509]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2519*/ curfptr[2518]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2511*/ curfptr[2510]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2523*/ curfptr[2522]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2520*/ curfptr[2519]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2515*/ curfptr[2514]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2523*/ curfptr[2522]);
+ meltgc_touch(/*_.VALTUP___V2515*/ curfptr[2514]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2523*/ curfptr[2522]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2515*/ curfptr[2514]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2524*/ curfptr[2523]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2516*/ curfptr[2515]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2525*/ curfptr[2524]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2517*/ curfptr[2516]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2526*/ curfptr[2525]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2518*/ curfptr[2517]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2527*/ curfptr[2526]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2519*/ curfptr[2518]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2528*/ curfptr[2527]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2520*/ curfptr[2519]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2530*/ curfptr[2529]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2529*/ curfptr[2528]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2522*/ curfptr[2521]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2521*/ curfptr[2520]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2530*/ curfptr[2529]);
+ meltgc_touch(/*_.VALTUP___V2522*/ curfptr[2521]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1408:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2514*/ curfptr[2513]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2530*/ curfptr[2529]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2506*/ curfptr[2505]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2522*/ curfptr[2521]);
  
- MELT_LOCATION("warmelt-first.melt:1413:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1408:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2514*/ curfptr[2513]);
+ meltgc_touch(/*_.VALDATA___V2506*/ curfptr[2505]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2523*/ curfptr[2522])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2532*/ curfptr[2531]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2523*/ curfptr[2522]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2523*/ curfptr[2522]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2524*/ curfptr[2523]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2531*/ curfptr[2530]);
+ meltgc_touch(/*_.VALDATA___V2523*/ curfptr[2522]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2534*/ curfptr[2533]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2526*/ curfptr[2525]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2535*/ curfptr[2534]);
+ meltgc_touch(/*_.VALDATA___V2527*/ curfptr[2526]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2536*/ curfptr[2535]);
+ meltgc_touch(/*_.VALDATA___V2528*/ curfptr[2527]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2537*/ curfptr[2536]);
+ meltgc_touch(/*_.VALDATA___V2529*/ curfptr[2528]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2495*/ curfptr[2494]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2538*/ curfptr[2537]);
+ meltgc_touch(/*_.VALDATA___V2530*/ curfptr[2529]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2513*/ curfptr[2512]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2539*/ curfptr[2538]);
+ meltgc_touch(/*_.VALDATA___V2531*/ curfptr[2530]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2542*/ curfptr[2541]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2534*/ curfptr[2533]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2541*/ curfptr[2540]);
+ meltgc_touch(/*_.VALDATA___V2533*/ curfptr[2532]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2541*/ curfptr[2540]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2533*/ curfptr[2532]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2540*/ curfptr[2539]);
+ meltgc_touch(/*_.VALDATA___V2532*/ curfptr[2531]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2535*/ curfptr[2534]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2527*/ curfptr[2526]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2536*/ curfptr[2535]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2528*/ curfptr[2527]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2537*/ curfptr[2536]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2529*/ curfptr[2528]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2538*/ curfptr[2537]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2530*/ curfptr[2529]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2539*/ curfptr[2538]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2540*/ curfptr[2539]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2535*/ curfptr[2534]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2532*/ curfptr[2531]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2543*/ curfptr[2542]);
+ meltgc_touch(/*_.VALTUP___V2535*/ curfptr[2534]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2543*/ curfptr[2542]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2535*/ curfptr[2534]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2544*/ curfptr[2543]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2536*/ curfptr[2535]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2545*/ curfptr[2544]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2537*/ curfptr[2536]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2546*/ curfptr[2545]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2538*/ curfptr[2537]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2547*/ curfptr[2546]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2539*/ curfptr[2538]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2548*/ curfptr[2547]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2540*/ curfptr[2539]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2549*/ curfptr[2548]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2541*/ curfptr[2540]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2551*/ curfptr[2550]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2550*/ curfptr[2549]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2543*/ curfptr[2542]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2542*/ curfptr[2541]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2551*/ curfptr[2550]);
+ meltgc_touch(/*_.VALTUP___V2543*/ curfptr[2542]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1412:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2551*/ curfptr[2550]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2525*/ curfptr[2524]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2543*/ curfptr[2542]);
  
- MELT_LOCATION("warmelt-first.melt:1417:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1412:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2533*/ curfptr[2532]);
+ meltgc_touch(/*_.VALDATA___V2525*/ curfptr[2524]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2544*/ curfptr[2543])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2553*/ curfptr[2552]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2544*/ curfptr[2543]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2544*/ curfptr[2543]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2545*/ curfptr[2544]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2552*/ curfptr[2551]);
+ meltgc_touch(/*_.VALDATA___V2544*/ curfptr[2543]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2555*/ curfptr[2554]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2547*/ curfptr[2546]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2556*/ curfptr[2555]);
+ meltgc_touch(/*_.VALDATA___V2548*/ curfptr[2547]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2557*/ curfptr[2556]);
+ meltgc_touch(/*_.VALDATA___V2549*/ curfptr[2548]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2558*/ curfptr[2557]);
+ meltgc_touch(/*_.VALDATA___V2550*/ curfptr[2549]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2495*/ curfptr[2494]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2559*/ curfptr[2558]);
+ meltgc_touch(/*_.VALDATA___V2551*/ curfptr[2550]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2513*/ curfptr[2512]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2560*/ curfptr[2559]);
+ meltgc_touch(/*_.VALDATA___V2552*/ curfptr[2551]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2541*/ curfptr[2540]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2533*/ curfptr[2532]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2561*/ curfptr[2560]);
+ meltgc_touch(/*_.VALDATA___V2553*/ curfptr[2552]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2563*/ curfptr[2562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2555*/ curfptr[2554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2563*/ curfptr[2562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2563*/ curfptr[2562]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2564*/ curfptr[2563]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2555*/ curfptr[2554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2555*/ curfptr[2554]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2556*/ curfptr[2555]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2563*/ curfptr[2562]);
+ meltgc_touch(/*_.VALDATA___V2555*/ curfptr[2554]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2563*/ curfptr[2562]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2555*/ curfptr[2554]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2562*/ curfptr[2561]);
+ meltgc_touch(/*_.VALDATA___V2554*/ curfptr[2553]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2556*/ curfptr[2555]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2548*/ curfptr[2547]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2557*/ curfptr[2556]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2549*/ curfptr[2548]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2558*/ curfptr[2557]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2550*/ curfptr[2549]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2559*/ curfptr[2558]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2551*/ curfptr[2550]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2560*/ curfptr[2559]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2561*/ curfptr[2560]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2553*/ curfptr[2552]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2565*/ curfptr[2564]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V2562*/ curfptr[2561]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2557*/ curfptr[2556]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2565*/ curfptr[2564]);
+ meltgc_touch(/*_.VALTUP___V2557*/ curfptr[2556]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2565*/ curfptr[2564]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2557*/ curfptr[2556]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2566*/ curfptr[2565]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2558*/ curfptr[2557]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2567*/ curfptr[2566]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2559*/ curfptr[2558]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2568*/ curfptr[2567]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2560*/ curfptr[2559]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2569*/ curfptr[2568]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2561*/ curfptr[2560]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2570*/ curfptr[2569]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2562*/ curfptr[2561]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2571*/ curfptr[2570]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2563*/ curfptr[2562]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2572*/ curfptr[2571]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2564*/ curfptr[2563]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2563*/ curfptr[2562]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2555*/ curfptr[2554]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2574*/ curfptr[2573]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2573*/ curfptr[2572]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2566*/ curfptr[2565]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2565*/ curfptr[2564]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2574*/ curfptr[2573]);
+ meltgc_touch(/*_.VALTUP___V2566*/ curfptr[2565]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1417:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2554*/ curfptr[2553]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2574*/ curfptr[2573]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2546*/ curfptr[2545]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2566*/ curfptr[2565]);
  
- MELT_LOCATION("warmelt-first.melt:1422:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1417:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2554*/ curfptr[2553]);
+ meltgc_touch(/*_.VALDATA___V2546*/ curfptr[2545]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2567*/ curfptr[2566])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2576*/ curfptr[2575]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2567*/ curfptr[2566]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2567*/ curfptr[2566]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2568*/ curfptr[2567]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2575*/ curfptr[2574]);
+ meltgc_touch(/*_.VALDATA___V2567*/ curfptr[2566]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2578*/ curfptr[2577]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2570*/ curfptr[2569]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2579*/ curfptr[2578]);
+ meltgc_touch(/*_.VALDATA___V2571*/ curfptr[2570]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2465*/ curfptr[2464]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2580*/ curfptr[2579]);
+ meltgc_touch(/*_.VALDATA___V2572*/ curfptr[2571]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2479*/ curfptr[2478]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2581*/ curfptr[2580]);
+ meltgc_touch(/*_.VALDATA___V2573*/ curfptr[2572]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2495*/ curfptr[2494]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2582*/ curfptr[2581]);
+ meltgc_touch(/*_.VALDATA___V2574*/ curfptr[2573]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2513*/ curfptr[2512]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2583*/ curfptr[2582]);
+ meltgc_touch(/*_.VALDATA___V2575*/ curfptr[2574]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2541*/ curfptr[2540]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2533*/ curfptr[2532]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2584*/ curfptr[2583]);
+ meltgc_touch(/*_.VALDATA___V2576*/ curfptr[2575]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2563*/ curfptr[2562]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2555*/ curfptr[2554]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2585*/ curfptr[2584]);
+ meltgc_touch(/*_.VALDATA___V2577*/ curfptr[2576]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2587*/ curfptr[2586])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2587*/ curfptr[2586]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2587*/ curfptr[2586]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2588*/ curfptr[2587]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2580*/ curfptr[2579]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2587*/ curfptr[2586]);
+ meltgc_touch(/*_.VALDATA___V2579*/ curfptr[2578]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2587*/ curfptr[2586]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2579*/ curfptr[2578]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2586*/ curfptr[2585]);
+ meltgc_touch(/*_.VALDATA___V2578*/ curfptr[2577]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2571*/ curfptr[2570]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2580*/ curfptr[2579]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2572*/ curfptr[2571]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2581*/ curfptr[2580]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2573*/ curfptr[2572]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2582*/ curfptr[2581]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2574*/ curfptr[2573]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2583*/ curfptr[2582]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2584*/ curfptr[2583]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2576*/ curfptr[2575]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V2585*/ curfptr[2584]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2589*/ curfptr[2588]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2586*/ curfptr[2585]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2581*/ curfptr[2580]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2578*/ curfptr[2577]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2589*/ curfptr[2588]);
+ meltgc_touch(/*_.VALTUP___V2581*/ curfptr[2580]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2589*/ curfptr[2588]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2581*/ curfptr[2580]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2590*/ curfptr[2589]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2582*/ curfptr[2581]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2591*/ curfptr[2590]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2583*/ curfptr[2582]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2592*/ curfptr[2591]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2584*/ curfptr[2583]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2593*/ curfptr[2592]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2585*/ curfptr[2584]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2594*/ curfptr[2593]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2586*/ curfptr[2585]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2595*/ curfptr[2594]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2587*/ curfptr[2586]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2596*/ curfptr[2595]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2588*/ curfptr[2587]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2563*/ curfptr[2562]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2555*/ curfptr[2554]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2597*/ curfptr[2596]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2589*/ curfptr[2588]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2587*/ curfptr[2586]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2599*/ curfptr[2598]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2598*/ curfptr[2597]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2591*/ curfptr[2590]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2590*/ curfptr[2589]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2599*/ curfptr[2598]);
+ meltgc_touch(/*_.VALTUP___V2591*/ curfptr[2590]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1422:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2577*/ curfptr[2576]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2599*/ curfptr[2598]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2569*/ curfptr[2568]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2591*/ curfptr[2590]);
  
- MELT_LOCATION("warmelt-first.melt:1427:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1422:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2577*/ curfptr[2576]);
+ meltgc_touch(/*_.VALDATA___V2569*/ curfptr[2568]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2592*/ curfptr[2591])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2601*/ curfptr[2600]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2592*/ curfptr[2591]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2592*/ curfptr[2591]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2593*/ curfptr[2592]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2600*/ curfptr[2599]);
+ meltgc_touch(/*_.VALDATA___V2592*/ curfptr[2591]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2603*/ curfptr[2602]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2595*/ curfptr[2594]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1434:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1429:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2604*/ curfptr[2603]);
+ meltgc_touch(/*_.VALDATA___V2596*/ curfptr[2595]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2606*/ curfptr[2605])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2598*/ curfptr[2597])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2606*/ curfptr[2605]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2606*/ curfptr[2605]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2607*/ curfptr[2606]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2598*/ curfptr[2597]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2598*/ curfptr[2597]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2599*/ curfptr[2598]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2606*/ curfptr[2605]);
+ meltgc_touch(/*_.VALDATA___V2598*/ curfptr[2597]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2606*/ curfptr[2605]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2598*/ curfptr[2597]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1434:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1429:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2605*/ curfptr[2604]);
+ meltgc_touch(/*_.VALDATA___V2597*/ curfptr[2596]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2601*/ curfptr[2600])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2610*/ curfptr[2609]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2601*/ curfptr[2600]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2601*/ curfptr[2600]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2602*/ curfptr[2601]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2609*/ curfptr[2608]);
+ meltgc_touch(/*_.VALDATA___V2601*/ curfptr[2600]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2609*/ curfptr[2608]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2601*/ curfptr[2600]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1434:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1429:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2608*/ curfptr[2607]);
+ meltgc_touch(/*_.VALDATA___V2600*/ curfptr[2599]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2604*/ curfptr[2603]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2596*/ curfptr[2595]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2605*/ curfptr[2604]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2597*/ curfptr[2596]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2611*/ curfptr[2610]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2608*/ curfptr[2607]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2603*/ curfptr[2602]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2611*/ curfptr[2610]);
+ meltgc_touch(/*_.VALTUP___V2603*/ curfptr[2602]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2611*/ curfptr[2610]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2603*/ curfptr[2602]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2612*/ curfptr[2611]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2604*/ curfptr[2603]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2613*/ curfptr[2612]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2605*/ curfptr[2604]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2606*/ curfptr[2605]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2598*/ curfptr[2597]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2614*/ curfptr[2613]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2606*/ curfptr[2605]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2601*/ curfptr[2600]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2616*/ curfptr[2615]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2615*/ curfptr[2614]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2608*/ curfptr[2607]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2607*/ curfptr[2606]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2616*/ curfptr[2615]);
+ meltgc_touch(/*_.VALTUP___V2608*/ curfptr[2607]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1429:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2602*/ curfptr[2601]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2616*/ curfptr[2615]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2594*/ curfptr[2593]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2608*/ curfptr[2607]);
  
- MELT_LOCATION("warmelt-first.melt:1434:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1429:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2602*/ curfptr[2601]);
+ meltgc_touch(/*_.VALDATA___V2594*/ curfptr[2593]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2617*/ curfptr[2616])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2617*/ curfptr[2616]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2617*/ curfptr[2616]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2618*/ curfptr[2617]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2610*/ curfptr[2609]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2617*/ curfptr[2616]);
+ meltgc_touch(/*_.VALDATA___V2609*/ curfptr[2608]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2620*/ curfptr[2619]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2612*/ curfptr[2611]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1440:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1435:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2621*/ curfptr[2620]);
+ meltgc_touch(/*_.VALDATA___V2613*/ curfptr[2612]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1440:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1435:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2622*/ curfptr[2621]);
+ meltgc_touch(/*_.VALDATA___V2614*/ curfptr[2613]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2623*/ curfptr[2622]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2623*/ curfptr[2622]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2623*/ curfptr[2622]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2621*/ curfptr[2620]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2615*/ curfptr[2614]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2615*/ curfptr[2614]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2615*/ curfptr[2614]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2613*/ curfptr[2612]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2623*/ curfptr[2622]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2623*/ curfptr[2622]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2623*/ curfptr[2622]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2615*/ curfptr[2614]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2615*/ curfptr[2614]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2615*/ curfptr[2614]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2614*/ curfptr[2613]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2623*/ curfptr[2622]);
+ meltgc_touch(/*_.VALTUP___V2615*/ curfptr[2614]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2623*/ curfptr[2622]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2615*/ curfptr[2614]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2624*/ curfptr[2623]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2616*/ curfptr[2615]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2625*/ curfptr[2624]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2617*/ curfptr[2616]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2627*/ curfptr[2626]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2626*/ curfptr[2625]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2619*/ curfptr[2618]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2618*/ curfptr[2617]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2627*/ curfptr[2626]);
+ meltgc_touch(/*_.VALTUP___V2619*/ curfptr[2618]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1435:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2619*/ curfptr[2618]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2627*/ curfptr[2626]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2611*/ curfptr[2610]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2619*/ curfptr[2618]);
  
- MELT_LOCATION("warmelt-first.melt:1440:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1435:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2619*/ curfptr[2618]);
+ meltgc_touch(/*_.VALDATA___V2611*/ curfptr[2610]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2628*/ curfptr[2627])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2620*/ curfptr[2619])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2628*/ curfptr[2627]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2628*/ curfptr[2627]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2629*/ curfptr[2628]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2620*/ curfptr[2619]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2620*/ curfptr[2619]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2621*/ curfptr[2620]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2628*/ curfptr[2627]);
+ meltgc_touch(/*_.VALDATA___V2620*/ curfptr[2619]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1439:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2631*/ curfptr[2630]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2623*/ curfptr[2622]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1439:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1439:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1444:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1439:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2632*/ curfptr[2631]);
+ meltgc_touch(/*_.VALDATA___V2624*/ curfptr[2623]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2633*/ curfptr[2632]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2633*/ curfptr[2632]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2633*/ curfptr[2632]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2632*/ curfptr[2631]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2625*/ curfptr[2624]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2625*/ curfptr[2624]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2625*/ curfptr[2624]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2624*/ curfptr[2623]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2633*/ curfptr[2632]);
+ meltgc_touch(/*_.VALTUP___V2625*/ curfptr[2624]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1439:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2633*/ curfptr[2632]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2625*/ curfptr[2624]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1439:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2634*/ curfptr[2633]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2626*/ curfptr[2625]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2635*/ curfptr[2634]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2628*/ curfptr[2627]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2627*/ curfptr[2626]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2636*/ curfptr[2635]);
+ meltgc_touch(/*_.VALTUP___V2628*/ curfptr[2627]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1439:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2630*/ curfptr[2629]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2636*/ curfptr[2635]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2622*/ curfptr[2621]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2628*/ curfptr[2627]);
  
- MELT_LOCATION("warmelt-first.melt:1444:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1439:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2630*/ curfptr[2629]);
+ meltgc_touch(/*_.VALDATA___V2622*/ curfptr[2621]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2637*/ curfptr[2636])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2629*/ curfptr[2628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2637*/ curfptr[2636]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2637*/ curfptr[2636]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2638*/ curfptr[2637]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2629*/ curfptr[2628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2629*/ curfptr[2628]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2630*/ curfptr[2629]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2637*/ curfptr[2636]);
+ meltgc_touch(/*_.VALDATA___V2629*/ curfptr[2628]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2640*/ curfptr[2639]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2632*/ curfptr[2631]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1448:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1443:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2641*/ curfptr[2640]);
+ meltgc_touch(/*_.VALDATA___V2633*/ curfptr[2632]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1448:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1443:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2642*/ curfptr[2641]);
+ meltgc_touch(/*_.VALDATA___V2634*/ curfptr[2633]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V916*/ curfptr[915]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1448:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1443:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2643*/ curfptr[2642]);
+ meltgc_touch(/*_.VALDATA___V2635*/ curfptr[2634]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2641*/ curfptr[2640]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2633*/ curfptr[2632]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2634*/ curfptr[2633]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2644*/ curfptr[2643]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2643*/ curfptr[2642]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2636*/ curfptr[2635]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2635*/ curfptr[2634]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2644*/ curfptr[2643]);
+ meltgc_touch(/*_.VALTUP___V2636*/ curfptr[2635]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2644*/ curfptr[2643]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2636*/ curfptr[2635]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2645*/ curfptr[2644]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2637*/ curfptr[2636]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2646*/ curfptr[2645]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2638*/ curfptr[2637]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2647*/ curfptr[2646]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2639*/ curfptr[2638]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2649*/ curfptr[2648]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2648*/ curfptr[2647]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2641*/ curfptr[2640]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2640*/ curfptr[2639]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2649*/ curfptr[2648]);
+ meltgc_touch(/*_.VALTUP___V2641*/ curfptr[2640]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1443:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2639*/ curfptr[2638]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2649*/ curfptr[2648]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2631*/ curfptr[2630]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2641*/ curfptr[2640]);
  
- MELT_LOCATION("warmelt-first.melt:1448:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1443:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2639*/ curfptr[2638]);
+ meltgc_touch(/*_.VALDATA___V2631*/ curfptr[2630]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2651*/ curfptr[2650]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2643*/ curfptr[2642]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2650*/ curfptr[2649]);
+ meltgc_touch(/*_.VALDATA___V2642*/ curfptr[2641]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2653*/ curfptr[2652]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2645*/ curfptr[2644]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2430*/ curfptr[2429]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1452:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1447:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2654*/ curfptr[2653]);
+ meltgc_touch(/*_.VALDATA___V2646*/ curfptr[2645]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2656*/ curfptr[2655])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2648*/ curfptr[2647])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2656*/ curfptr[2655]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2656*/ curfptr[2655]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2657*/ curfptr[2656]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2648*/ curfptr[2647]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2648*/ curfptr[2647]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2649*/ curfptr[2648]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2656*/ curfptr[2655]);
+ meltgc_touch(/*_.VALDATA___V2648*/ curfptr[2647]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2656*/ curfptr[2655]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2648*/ curfptr[2647]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1452:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1447:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2655*/ curfptr[2654]);
+ meltgc_touch(/*_.VALDATA___V2647*/ curfptr[2646]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2659*/ curfptr[2658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2651*/ curfptr[2650])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2659*/ curfptr[2658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2659*/ curfptr[2658]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2660*/ curfptr[2659]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2651*/ curfptr[2650]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2651*/ curfptr[2650]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2652*/ curfptr[2651]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2659*/ curfptr[2658]);
+ meltgc_touch(/*_.VALDATA___V2651*/ curfptr[2650]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2659*/ curfptr[2658]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2651*/ curfptr[2650]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1452:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1447:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2658*/ curfptr[2657]);
+ meltgc_touch(/*_.VALDATA___V2650*/ curfptr[2649]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2654*/ curfptr[2653]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2646*/ curfptr[2645]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2655*/ curfptr[2654]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2647*/ curfptr[2646]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2661*/ curfptr[2660]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2658*/ curfptr[2657]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2653*/ curfptr[2652]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2661*/ curfptr[2660]);
+ meltgc_touch(/*_.VALTUP___V2653*/ curfptr[2652]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2661*/ curfptr[2660]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2653*/ curfptr[2652]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2662*/ curfptr[2661]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2654*/ curfptr[2653]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2663*/ curfptr[2662]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2655*/ curfptr[2654]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2656*/ curfptr[2655]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2648*/ curfptr[2647]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2664*/ curfptr[2663]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2656*/ curfptr[2655]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2659*/ curfptr[2658]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2651*/ curfptr[2650]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2666*/ curfptr[2665]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2665*/ curfptr[2664]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2658*/ curfptr[2657]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2657*/ curfptr[2656]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2666*/ curfptr[2665]);
+ meltgc_touch(/*_.VALTUP___V2658*/ curfptr[2657]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1447:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2652*/ curfptr[2651]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2666*/ curfptr[2665]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2644*/ curfptr[2643]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2658*/ curfptr[2657]);
  
- MELT_LOCATION("warmelt-first.melt:1452:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1447:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2652*/ curfptr[2651]);
+ meltgc_touch(/*_.VALDATA___V2644*/ curfptr[2643]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2661__COMPARE_NAMED_ALPHA#0", NULL != (/*_.VALBXINT___V2668*/ curfptr[2667]));
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[0] = (melt_ptr_t)(/*_.VALBXINT___V2668*/ curfptr[2667]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2653__COMPARE_NAMED_ALPHA#0", NULL != (/*_.VALBXINT___V2660*/ curfptr[2659]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[0] = (melt_ptr_t)(/*_.VALBXINT___V2660*/ curfptr[2659]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ curfptr[34]);
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2661__COMPARE_NAMED_ALPHA#2", NULL != (/*_.VALBXINT___V2669*/ curfptr[2668]));
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V2669*/ curfptr[2668]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2653__COMPARE_NAMED_ALPHA#2", NULL != (/*_.VALBXINT___V2661*/ curfptr[2660]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V2661*/ curfptr[2660]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2661__COMPARE_NAMED_ALPHA#3", NULL != (/*_.VALBXINT___V2670*/ curfptr[2669]));
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[3] = (melt_ptr_t)(/*_.VALBXINT___V2670*/ curfptr[2669]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2653__COMPARE_NAMED_ALPHA#3", NULL != (/*_.VALBXINT___V2662*/ curfptr[2661]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[3] = (melt_ptr_t)(/*_.VALBXINT___V2662*/ curfptr[2661]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2661__COMPARE_NAMED_ALPHA#4", NULL != (/*_.VALBXINT___V2671*/ curfptr[2670]));
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[4] = (melt_ptr_t)(/*_.VALBXINT___V2671*/ curfptr[2670]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2653__COMPARE_NAMED_ALPHA#4", NULL != (/*_.VALBXINT___V2663*/ curfptr[2662]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[4] = (melt_ptr_t)(/*_.VALBXINT___V2663*/ curfptr[2662]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2661__COMPARE_NAMED_ALPHA#5", NULL != (/*_.VALBXINT___V2672*/ curfptr[2671]));
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[5] = (melt_ptr_t)(/*_.VALBXINT___V2672*/ curfptr[2671]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2653__COMPARE_NAMED_ALPHA#5", NULL != (/*_.VALBXINT___V2664*/ curfptr[2663]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[5] = (melt_ptr_t)(/*_.VALBXINT___V2664*/ curfptr[2663]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:1453:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2661__COMPARE_NAMED_ALPHA#6", NULL != (/*_.VALBXINT___V2673*/ curfptr[2672]));
- ((meltroutine_ptr_t)/*_.VALROUT___V2667*/ curfptr[2666])->tabval[6] = (melt_ptr_t)(/*_.VALBXINT___V2673*/ curfptr[2672]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_2653__COMPARE_NAMED_ALPHA#6", NULL != (/*_.VALBXINT___V2665*/ curfptr[2664]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V2659*/ curfptr[2658])->tabval[6] = (melt_ptr_t)(/*_.VALBXINT___V2665*/ curfptr[2664]);
  
- MELT_LOCATION("warmelt-first.melt:1458:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1453:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V2667*/ curfptr[2666]);
+ meltgc_touch(/*_.VALROUT___V2659*/ curfptr[2658]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2674*/ curfptr[2673])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2667*/ curfptr[2666])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V2674*/ curfptr[2673])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2667*/ curfptr[2666]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V2666*/ curfptr[2665])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V2659*/ curfptr[2658])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V2666*/ curfptr[2665])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V2659*/ curfptr[2658]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V2674*/ curfptr[2673]);
+ meltgc_touch(/*_.VALCLO___V2666*/ curfptr[2665]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2676*/ curfptr[2675]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2668*/ curfptr[2667]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2678*/ curfptr[2677])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2670*/ curfptr[2669])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2678*/ curfptr[2677]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2678*/ curfptr[2677]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2679*/ curfptr[2678]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2670*/ curfptr[2669]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2670*/ curfptr[2669]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2671*/ curfptr[2670]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2678*/ curfptr[2677]);
+ meltgc_touch(/*_.VALDATA___V2670*/ curfptr[2669]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2678*/ curfptr[2677]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2670*/ curfptr[2669]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1479:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1474:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2677*/ curfptr[2676]);
+ meltgc_touch(/*_.VALDATA___V2669*/ curfptr[2668]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2680*/ curfptr[2679]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2680*/ curfptr[2679]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2680*/ curfptr[2679]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2672*/ curfptr[2671]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2672*/ curfptr[2671]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2672*/ curfptr[2671]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2669*/ curfptr[2668]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2680*/ curfptr[2679]);
+ meltgc_touch(/*_.VALTUP___V2672*/ curfptr[2671]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2680*/ curfptr[2679]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2672*/ curfptr[2671]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2682*/ curfptr[2681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2674*/ curfptr[2673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2682*/ curfptr[2681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2682*/ curfptr[2681]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2683*/ curfptr[2682]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2674*/ curfptr[2673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2674*/ curfptr[2673]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2675*/ curfptr[2674]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2682*/ curfptr[2681]);
+ meltgc_touch(/*_.VALDATA___V2674*/ curfptr[2673]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2681*/ curfptr[2680])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2673*/ curfptr[2672])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2681*/ curfptr[2680]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2681*/ curfptr[2680]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2682*/ curfptr[2681]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2673*/ curfptr[2672]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2673*/ curfptr[2672]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2674*/ curfptr[2673]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2681*/ curfptr[2680])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2673*/ curfptr[2672])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2681*/ curfptr[2680]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2681*/ curfptr[2680]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2673*/ curfptr[2672]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2673*/ curfptr[2672]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1479:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1474:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2681*/ curfptr[2680]);
+ meltgc_touch(/*_.VALDATA___V2673*/ curfptr[2672]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V2681*/ curfptr[2680]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V2673*/ curfptr[2672]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2685*/ curfptr[2684])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2685*/ curfptr[2684]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2685*/ curfptr[2684]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2686*/ curfptr[2685]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2678*/ curfptr[2677]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2685*/ curfptr[2684]);
+ meltgc_touch(/*_.VALDATA___V2677*/ curfptr[2676]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2685*/ curfptr[2684]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2677*/ curfptr[2676]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1479:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1474:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2684*/ curfptr[2683]);
+ meltgc_touch(/*_.VALDATA___V2676*/ curfptr[2675]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2687*/ curfptr[2686]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2687*/ curfptr[2686]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2687*/ curfptr[2686]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2684*/ curfptr[2683]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2679*/ curfptr[2678]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2679*/ curfptr[2678]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2679*/ curfptr[2678]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2676*/ curfptr[2675]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2687*/ curfptr[2686]);
+ meltgc_touch(/*_.VALTUP___V2679*/ curfptr[2678]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2687*/ curfptr[2686]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2679*/ curfptr[2678]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2688*/ curfptr[2687])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2680*/ curfptr[2679])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2688*/ curfptr[2687]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2688*/ curfptr[2687]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2689*/ curfptr[2688]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2680*/ curfptr[2679]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2680*/ curfptr[2679]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2681*/ curfptr[2680]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2688*/ curfptr[2687]);
+ meltgc_touch(/*_.VALDATA___V2680*/ curfptr[2679]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALDATA___V2688*/ curfptr[2687]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALDATA___V2680*/ curfptr[2679]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2690*/ curfptr[2689]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2682*/ curfptr[2681]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2688*/ curfptr[2687]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2680*/ curfptr[2679]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2691*/ curfptr[2690]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2683*/ curfptr[2682]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2682*/ curfptr[2681]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2674*/ curfptr[2673]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2692*/ curfptr[2691]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2684*/ curfptr[2683]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2678*/ curfptr[2677]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2670*/ curfptr[2669]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2694*/ curfptr[2693]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2693*/ curfptr[2692]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2686*/ curfptr[2685]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2685*/ curfptr[2684]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2694*/ curfptr[2693]);
+ meltgc_touch(/*_.VALTUP___V2686*/ curfptr[2685]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V2694*/ curfptr[2693]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V2686*/ curfptr[2685]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2695*/ curfptr[2694]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2687*/ curfptr[2686]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2688*/ curfptr[2687]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2680*/ curfptr[2679]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2696*/ curfptr[2695]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2688*/ curfptr[2687]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2685*/ curfptr[2684]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2697*/ curfptr[2696]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2689*/ curfptr[2688]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2682*/ curfptr[2681]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2674*/ curfptr[2673]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2698*/ curfptr[2697]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2690*/ curfptr[2689]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2678*/ curfptr[2677]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2670*/ curfptr[2669]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2700*/ curfptr[2699]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2699*/ curfptr[2698]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2692*/ curfptr[2691]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2691*/ curfptr[2690]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2700*/ curfptr[2699]);
+ meltgc_touch(/*_.VALTUP___V2692*/ curfptr[2691]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1474:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2675*/ curfptr[2674]))->obj_vartab[7] = (melt_ptr_t)(
-  /*_.VALTUP___V2700*/ curfptr[2699]);
+ melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2667*/ curfptr[2666]))->obj_vartab[7] = (melt_ptr_t)(
+  /*_.VALTUP___V2692*/ curfptr[2691]);
  
- MELT_LOCATION("warmelt-first.melt:1479:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1474:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2675*/ curfptr[2674]);
+ meltgc_touch(/*_.VALDATA___V2667*/ curfptr[2666]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2702*/ curfptr[2701]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2694*/ curfptr[2693]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1884*/ curfptr[1883]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1496:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1491:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2703*/ curfptr[2702]);
+ meltgc_touch(/*_.VALDATA___V2695*/ curfptr[2694]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2704*/ curfptr[2703]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2704*/ curfptr[2703]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2704*/ curfptr[2703]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2703*/ curfptr[2702]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2696*/ curfptr[2695]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2696*/ curfptr[2695]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2696*/ curfptr[2695]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2695*/ curfptr[2694]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2704*/ curfptr[2703]);
+ meltgc_touch(/*_.VALTUP___V2696*/ curfptr[2695]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2704*/ curfptr[2703]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2696*/ curfptr[2695]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2705*/ curfptr[2704])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2697*/ curfptr[2696])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2705*/ curfptr[2704]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2705*/ curfptr[2704]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2697*/ curfptr[2696]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2697*/ curfptr[2696]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1545*/ curfptr[1544]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2705*/ curfptr[2704])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2697*/ curfptr[2696])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2705*/ curfptr[2704]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2705*/ curfptr[2704]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2697*/ curfptr[2696]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2697*/ curfptr[2696]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1496:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1491:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2705*/ curfptr[2704]);
+ meltgc_touch(/*_.VALDATA___V2697*/ curfptr[2696]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V2705*/ curfptr[2704]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V2697*/ curfptr[2696]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2706*/ curfptr[2705]);
+ meltgc_touch(/*_.VALTUP___V2698*/ curfptr[2697]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2706*/ curfptr[2705]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2698*/ curfptr[2697]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2707*/ curfptr[2706])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2699*/ curfptr[2698])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2707*/ curfptr[2706]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2707*/ curfptr[2706]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2708*/ curfptr[2707]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2699*/ curfptr[2698]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2699*/ curfptr[2698]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2700*/ curfptr[2699]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2707*/ curfptr[2706]);
+ meltgc_touch(/*_.VALDATA___V2699*/ curfptr[2698]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALDATA___V2707*/ curfptr[2706]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALDATA___V2699*/ curfptr[2698]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2709*/ curfptr[2708]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2701*/ curfptr[2700]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2707*/ curfptr[2706]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2699*/ curfptr[2698]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2710*/ curfptr[2709]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2702*/ curfptr[2701]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2711*/ curfptr[2710]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2703*/ curfptr[2702]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2712*/ curfptr[2711]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2704*/ curfptr[2703]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2713*/ curfptr[2712]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2705*/ curfptr[2704]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2715*/ curfptr[2714]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2714*/ curfptr[2713]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2707*/ curfptr[2706]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2706*/ curfptr[2705]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2715*/ curfptr[2714]);
+ meltgc_touch(/*_.VALTUP___V2707*/ curfptr[2706]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1491:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2701*/ curfptr[2700]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V2715*/ curfptr[2714]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2693*/ curfptr[2692]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V2707*/ curfptr[2706]);
  
- MELT_LOCATION("warmelt-first.melt:1496:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1491:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2701*/ curfptr[2700]);
+ meltgc_touch(/*_.VALDATA___V2693*/ curfptr[2692]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2716*/ curfptr[2715])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2708*/ curfptr[2707])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2716*/ curfptr[2715]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2716*/ curfptr[2715]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2717*/ curfptr[2716]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2708*/ curfptr[2707]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2708*/ curfptr[2707]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2709*/ curfptr[2708]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2716*/ curfptr[2715]);
+ meltgc_touch(/*_.VALDATA___V2708*/ curfptr[2707]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1504:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2719*/ curfptr[2718]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2711*/ curfptr[2710]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1504:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1884*/ curfptr[1883]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1504:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1509:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1504:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2720*/ curfptr[2719]);
+ meltgc_touch(/*_.VALDATA___V2712*/ curfptr[2711]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2721*/ curfptr[2720]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2721*/ curfptr[2720]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2721*/ curfptr[2720]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2713*/ curfptr[2712]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2713*/ curfptr[2712]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2713*/ curfptr[2712]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2712*/ curfptr[2711]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2721*/ curfptr[2720]);
+ meltgc_touch(/*_.VALTUP___V2713*/ curfptr[2712]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1504:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2721*/ curfptr[2720]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2713*/ curfptr[2712]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1504:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2722*/ curfptr[2721]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2714*/ curfptr[2713]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2723*/ curfptr[2722]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2715*/ curfptr[2714]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2725*/ curfptr[2724]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2724*/ curfptr[2723]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2717*/ curfptr[2716]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2716*/ curfptr[2715]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2725*/ curfptr[2724]);
+ meltgc_touch(/*_.VALTUP___V2717*/ curfptr[2716]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1504:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2725*/ curfptr[2724]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2710*/ curfptr[2709]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2717*/ curfptr[2716]);
  
- MELT_LOCATION("warmelt-first.melt:1509:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1504:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2718*/ curfptr[2717]);
+ meltgc_touch(/*_.VALDATA___V2710*/ curfptr[2709]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2727*/ curfptr[2726]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2719*/ curfptr[2718]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2460*/ curfptr[2459]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2452*/ curfptr[2451]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1515:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1510:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2728*/ curfptr[2727]);
+ meltgc_touch(/*_.VALDATA___V2720*/ curfptr[2719]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2729*/ curfptr[2728]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2729*/ curfptr[2728]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2729*/ curfptr[2728]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2728*/ curfptr[2727]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2721*/ curfptr[2720]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2721*/ curfptr[2720]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2721*/ curfptr[2720]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2720*/ curfptr[2719]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2729*/ curfptr[2728]);
+ meltgc_touch(/*_.VALTUP___V2721*/ curfptr[2720]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2729*/ curfptr[2728]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2721*/ curfptr[2720]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2732*/ curfptr[2731]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2724*/ curfptr[2723]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2731*/ curfptr[2730]);
+ meltgc_touch(/*_.VALDATA___V2723*/ curfptr[2722]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2730*/ curfptr[2729])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2722*/ curfptr[2721])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2730*/ curfptr[2729]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2730*/ curfptr[2729]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2722*/ curfptr[2721]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2722*/ curfptr[2721]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2723*/ curfptr[2722]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2730*/ curfptr[2729])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2722*/ curfptr[2721])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2730*/ curfptr[2729]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2730*/ curfptr[2729]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2722*/ curfptr[2721]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2722*/ curfptr[2721]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1515:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1510:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2730*/ curfptr[2729]);
+ meltgc_touch(/*_.VALDATA___V2722*/ curfptr[2721]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V2730*/ curfptr[2729]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V2722*/ curfptr[2721]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2733*/ curfptr[2732]);
+ meltgc_touch(/*_.VALTUP___V2725*/ curfptr[2724]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2733*/ curfptr[2732]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2725*/ curfptr[2724]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2735*/ curfptr[2734]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2727*/ curfptr[2726]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2734*/ curfptr[2733]);
+ meltgc_touch(/*_.VALDATA___V2726*/ curfptr[2725]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALDATA___V2734*/ curfptr[2733]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALDATA___V2726*/ curfptr[2725]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2736*/ curfptr[2735]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2728*/ curfptr[2727]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2737*/ curfptr[2736]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2729*/ curfptr[2728]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2460*/ curfptr[2459]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2452*/ curfptr[2451]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2738*/ curfptr[2737]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2731*/ curfptr[2730]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2730*/ curfptr[2729]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2739*/ curfptr[2738]);
+ meltgc_touch(/*_.VALTUP___V2731*/ curfptr[2730]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1510:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V2739*/ curfptr[2738]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2718*/ curfptr[2717]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V2731*/ curfptr[2730]);
  
- MELT_LOCATION("warmelt-first.melt:1515:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1510:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2726*/ curfptr[2725]);
+ meltgc_touch(/*_.VALDATA___V2718*/ curfptr[2717]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2740*/ curfptr[2739])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2732*/ curfptr[2731])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2740*/ curfptr[2739]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2740*/ curfptr[2739]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2741*/ curfptr[2740]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2732*/ curfptr[2731]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2732*/ curfptr[2731]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2733*/ curfptr[2732]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2740*/ curfptr[2739]);
+ meltgc_touch(/*_.VALDATA___V2732*/ curfptr[2731]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1524:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2743*/ curfptr[2742]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2735*/ curfptr[2734]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2746*/ curfptr[2745]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2738*/ curfptr[2737]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2745*/ curfptr[2744]);
+ meltgc_touch(/*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1524:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1524:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1529:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1524:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2744*/ curfptr[2743]);
+ meltgc_touch(/*_.VALDATA___V2736*/ curfptr[2735]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2747*/ curfptr[2746]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2747*/ curfptr[2746]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2747*/ curfptr[2746]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2744*/ curfptr[2743]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2739*/ curfptr[2738]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2736*/ curfptr[2735]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2747*/ curfptr[2746]);
+ meltgc_touch(/*_.VALTUP___V2739*/ curfptr[2738]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1524:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2747*/ curfptr[2746]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2739*/ curfptr[2738]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1524:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2748*/ curfptr[2747]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2740*/ curfptr[2739]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2750*/ curfptr[2749]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2749*/ curfptr[2748]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2742*/ curfptr[2741]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2741*/ curfptr[2740]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2750*/ curfptr[2749]);
+ meltgc_touch(/*_.VALTUP___V2742*/ curfptr[2741]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1524:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2742*/ curfptr[2741]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2750*/ curfptr[2749]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2742*/ curfptr[2741]);
  
- MELT_LOCATION("warmelt-first.melt:1529:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1524:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2742*/ curfptr[2741]);
+ meltgc_touch(/*_.VALDATA___V2734*/ curfptr[2733]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2751*/ curfptr[2750])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2743*/ curfptr[2742])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2751*/ curfptr[2750]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2751*/ curfptr[2750]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2752*/ curfptr[2751]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2743*/ curfptr[2742]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2743*/ curfptr[2742]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2744*/ curfptr[2743]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2751*/ curfptr[2750]);
+ meltgc_touch(/*_.VALDATA___V2743*/ curfptr[2742]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1528:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2754*/ curfptr[2753]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2746*/ curfptr[2745]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1528:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1528:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1533:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1528:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2755*/ curfptr[2754]);
+ meltgc_touch(/*_.VALDATA___V2747*/ curfptr[2746]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2756*/ curfptr[2755]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2756*/ curfptr[2755]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2756*/ curfptr[2755]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2755*/ curfptr[2754]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2748*/ curfptr[2747]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2748*/ curfptr[2747]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2748*/ curfptr[2747]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2747*/ curfptr[2746]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2756*/ curfptr[2755]);
+ meltgc_touch(/*_.VALTUP___V2748*/ curfptr[2747]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1528:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2756*/ curfptr[2755]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2748*/ curfptr[2747]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1528:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2757*/ curfptr[2756]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2749*/ curfptr[2748]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2759*/ curfptr[2758]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2758*/ curfptr[2757]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2751*/ curfptr[2750]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2750*/ curfptr[2749]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2759*/ curfptr[2758]);
+ meltgc_touch(/*_.VALTUP___V2751*/ curfptr[2750]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1528:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2753*/ curfptr[2752]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2759*/ curfptr[2758]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2751*/ curfptr[2750]);
  
- MELT_LOCATION("warmelt-first.melt:1533:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1528:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2753*/ curfptr[2752]);
+ meltgc_touch(/*_.VALDATA___V2745*/ curfptr[2744]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2760*/ curfptr[2759])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2752*/ curfptr[2751])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2760*/ curfptr[2759]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2760*/ curfptr[2759]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2761*/ curfptr[2760]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2752*/ curfptr[2751]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2752*/ curfptr[2751]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2753*/ curfptr[2752]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2760*/ curfptr[2759]);
+ meltgc_touch(/*_.VALDATA___V2752*/ curfptr[2751]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1532:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2763*/ curfptr[2762]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2755*/ curfptr[2754]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1532:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1532:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1537:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1532:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2764*/ curfptr[2763]);
+ meltgc_touch(/*_.VALDATA___V2756*/ curfptr[2755]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2765*/ curfptr[2764]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2765*/ curfptr[2764]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2765*/ curfptr[2764]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2764*/ curfptr[2763]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2757*/ curfptr[2756]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2757*/ curfptr[2756]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2757*/ curfptr[2756]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2756*/ curfptr[2755]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2765*/ curfptr[2764]);
+ meltgc_touch(/*_.VALTUP___V2757*/ curfptr[2756]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1532:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2765*/ curfptr[2764]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2757*/ curfptr[2756]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1532:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2766*/ curfptr[2765]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2758*/ curfptr[2757]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2768*/ curfptr[2767]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2767*/ curfptr[2766]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2760*/ curfptr[2759]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2759*/ curfptr[2758]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2768*/ curfptr[2767]);
+ meltgc_touch(/*_.VALTUP___V2760*/ curfptr[2759]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1532:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2762*/ curfptr[2761]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2768*/ curfptr[2767]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2754*/ curfptr[2753]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2760*/ curfptr[2759]);
  
- MELT_LOCATION("warmelt-first.melt:1537:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1532:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2762*/ curfptr[2761]);
+ meltgc_touch(/*_.VALDATA___V2754*/ curfptr[2753]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2769*/ curfptr[2768])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2761*/ curfptr[2760])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2769*/ curfptr[2768]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2769*/ curfptr[2768]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2770*/ curfptr[2769]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2761*/ curfptr[2760]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2761*/ curfptr[2760]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2762*/ curfptr[2761]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2769*/ curfptr[2768]);
+ meltgc_touch(/*_.VALDATA___V2761*/ curfptr[2760]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2772*/ curfptr[2771]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2764*/ curfptr[2763]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1541:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1536:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2773*/ curfptr[2772]);
+ meltgc_touch(/*_.VALDATA___V2765*/ curfptr[2764]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1541:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1536:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2774*/ curfptr[2773]);
+ meltgc_touch(/*_.VALDATA___V2766*/ curfptr[2765]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2775*/ curfptr[2774]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2775*/ curfptr[2774]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2775*/ curfptr[2774]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2773*/ curfptr[2772]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2767*/ curfptr[2766]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2767*/ curfptr[2766]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2767*/ curfptr[2766]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2765*/ curfptr[2764]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2775*/ curfptr[2774]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2775*/ curfptr[2774]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2775*/ curfptr[2774]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2767*/ curfptr[2766]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2767*/ curfptr[2766]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2767*/ curfptr[2766]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2766*/ curfptr[2765]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2775*/ curfptr[2774]);
+ meltgc_touch(/*_.VALTUP___V2767*/ curfptr[2766]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2775*/ curfptr[2774]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2767*/ curfptr[2766]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2776*/ curfptr[2775]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2768*/ curfptr[2767]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2777*/ curfptr[2776]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2769*/ curfptr[2768]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2779*/ curfptr[2778]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2778*/ curfptr[2777]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2771*/ curfptr[2770]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2770*/ curfptr[2769]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2779*/ curfptr[2778]);
+ meltgc_touch(/*_.VALTUP___V2771*/ curfptr[2770]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1536:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2771*/ curfptr[2770]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2779*/ curfptr[2778]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2763*/ curfptr[2762]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2771*/ curfptr[2770]);
  
- MELT_LOCATION("warmelt-first.melt:1541:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1536:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2771*/ curfptr[2770]);
+ meltgc_touch(/*_.VALDATA___V2763*/ curfptr[2762]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2780*/ curfptr[2779])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2772*/ curfptr[2771])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2780*/ curfptr[2779]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2780*/ curfptr[2779]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2781*/ curfptr[2780]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2772*/ curfptr[2771]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2772*/ curfptr[2771]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2773*/ curfptr[2772]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2780*/ curfptr[2779]);
+ meltgc_touch(/*_.VALDATA___V2772*/ curfptr[2771]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2783*/ curfptr[2782]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2775*/ curfptr[2774]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1545:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1540:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2784*/ curfptr[2783]);
+ meltgc_touch(/*_.VALDATA___V2776*/ curfptr[2775]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1545:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1540:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2785*/ curfptr[2784]);
+ meltgc_touch(/*_.VALDATA___V2777*/ curfptr[2776]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2786*/ curfptr[2785]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2786*/ curfptr[2785]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2786*/ curfptr[2785]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2784*/ curfptr[2783]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2778*/ curfptr[2777]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2778*/ curfptr[2777]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2778*/ curfptr[2777]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2776*/ curfptr[2775]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2786*/ curfptr[2785]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2786*/ curfptr[2785]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2786*/ curfptr[2785]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2778*/ curfptr[2777]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2778*/ curfptr[2777]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2778*/ curfptr[2777]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2777*/ curfptr[2776]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2786*/ curfptr[2785]);
+ meltgc_touch(/*_.VALTUP___V2778*/ curfptr[2777]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2786*/ curfptr[2785]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2778*/ curfptr[2777]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2787*/ curfptr[2786]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2779*/ curfptr[2778]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2788*/ curfptr[2787]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2780*/ curfptr[2779]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2790*/ curfptr[2789]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2789*/ curfptr[2788]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2782*/ curfptr[2781]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2781*/ curfptr[2780]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2790*/ curfptr[2789]);
+ meltgc_touch(/*_.VALTUP___V2782*/ curfptr[2781]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1540:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2782*/ curfptr[2781]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2790*/ curfptr[2789]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2774*/ curfptr[2773]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2782*/ curfptr[2781]);
  
- MELT_LOCATION("warmelt-first.melt:1545:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1540:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2782*/ curfptr[2781]);
+ meltgc_touch(/*_.VALDATA___V2774*/ curfptr[2773]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2791*/ curfptr[2790])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2783*/ curfptr[2782])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2791*/ curfptr[2790]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2791*/ curfptr[2790]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2792*/ curfptr[2791]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2783*/ curfptr[2782]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2783*/ curfptr[2782]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2784*/ curfptr[2783]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2791*/ curfptr[2790]);
+ meltgc_touch(/*_.VALDATA___V2783*/ curfptr[2782]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2794*/ curfptr[2793]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2786*/ curfptr[2785]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1549:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1544:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2795*/ curfptr[2794]);
+ meltgc_touch(/*_.VALDATA___V2787*/ curfptr[2786]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2797*/ curfptr[2796])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2789*/ curfptr[2788])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2797*/ curfptr[2796]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2797*/ curfptr[2796]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2798*/ curfptr[2797]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2789*/ curfptr[2788]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2789*/ curfptr[2788]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2790*/ curfptr[2789]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2797*/ curfptr[2796]);
+ meltgc_touch(/*_.VALDATA___V2789*/ curfptr[2788]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2797*/ curfptr[2796]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2789*/ curfptr[2788]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1549:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1544:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2796*/ curfptr[2795]);
+ meltgc_touch(/*_.VALDATA___V2788*/ curfptr[2787]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2799*/ curfptr[2798]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2799*/ curfptr[2798]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2799*/ curfptr[2798]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2795*/ curfptr[2794]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2791*/ curfptr[2790]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2791*/ curfptr[2790]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2791*/ curfptr[2790]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2787*/ curfptr[2786]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2799*/ curfptr[2798]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2799*/ curfptr[2798]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2799*/ curfptr[2798]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2791*/ curfptr[2790]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2791*/ curfptr[2790]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2791*/ curfptr[2790]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2788*/ curfptr[2787]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2799*/ curfptr[2798]);
+ meltgc_touch(/*_.VALTUP___V2791*/ curfptr[2790]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2799*/ curfptr[2798]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2791*/ curfptr[2790]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2800*/ curfptr[2799]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2792*/ curfptr[2791]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2801*/ curfptr[2800]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2793*/ curfptr[2792]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2797*/ curfptr[2796]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2789*/ curfptr[2788]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2803*/ curfptr[2802]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2802*/ curfptr[2801]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2795*/ curfptr[2794]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2794*/ curfptr[2793]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2803*/ curfptr[2802]);
+ meltgc_touch(/*_.VALTUP___V2795*/ curfptr[2794]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1544:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2793*/ curfptr[2792]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2803*/ curfptr[2802]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2785*/ curfptr[2784]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2795*/ curfptr[2794]);
  
- MELT_LOCATION("warmelt-first.melt:1549:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1544:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2793*/ curfptr[2792]);
+ meltgc_touch(/*_.VALDATA___V2785*/ curfptr[2784]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2804*/ curfptr[2803])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2804*/ curfptr[2803]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2804*/ curfptr[2803]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2805*/ curfptr[2804]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2797*/ curfptr[2796]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2804*/ curfptr[2803]);
+ meltgc_touch(/*_.VALDATA___V2796*/ curfptr[2795]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2807*/ curfptr[2806]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2799*/ curfptr[2798]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1553:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1548:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2808*/ curfptr[2807]);
+ meltgc_touch(/*_.VALDATA___V2800*/ curfptr[2799]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2810*/ curfptr[2809])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2802*/ curfptr[2801])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2810*/ curfptr[2809]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2810*/ curfptr[2809]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2811*/ curfptr[2810]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2802*/ curfptr[2801]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2802*/ curfptr[2801]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2803*/ curfptr[2802]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2810*/ curfptr[2809]);
+ meltgc_touch(/*_.VALDATA___V2802*/ curfptr[2801]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2810*/ curfptr[2809]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2802*/ curfptr[2801]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1553:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1548:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2809*/ curfptr[2808]);
+ meltgc_touch(/*_.VALDATA___V2801*/ curfptr[2800]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2812*/ curfptr[2811]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2812*/ curfptr[2811]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2812*/ curfptr[2811]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2808*/ curfptr[2807]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2804*/ curfptr[2803]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2804*/ curfptr[2803]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2804*/ curfptr[2803]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2800*/ curfptr[2799]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2812*/ curfptr[2811]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2812*/ curfptr[2811]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2812*/ curfptr[2811]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2804*/ curfptr[2803]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2804*/ curfptr[2803]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2804*/ curfptr[2803]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2801*/ curfptr[2800]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2812*/ curfptr[2811]);
+ meltgc_touch(/*_.VALTUP___V2804*/ curfptr[2803]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2812*/ curfptr[2811]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2804*/ curfptr[2803]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2813*/ curfptr[2812]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2805*/ curfptr[2804]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2814*/ curfptr[2813]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2806*/ curfptr[2805]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2810*/ curfptr[2809]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2802*/ curfptr[2801]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2816*/ curfptr[2815]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2815*/ curfptr[2814]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2808*/ curfptr[2807]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2807*/ curfptr[2806]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2816*/ curfptr[2815]);
+ meltgc_touch(/*_.VALTUP___V2808*/ curfptr[2807]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1548:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2806*/ curfptr[2805]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2816*/ curfptr[2815]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2798*/ curfptr[2797]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2808*/ curfptr[2807]);
  
- MELT_LOCATION("warmelt-first.melt:1553:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1548:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2806*/ curfptr[2805]);
+ meltgc_touch(/*_.VALDATA___V2798*/ curfptr[2797]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2818*/ curfptr[2817]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2810*/ curfptr[2809]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2817*/ curfptr[2816]);
+ meltgc_touch(/*_.VALDATA___V2809*/ curfptr[2808]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2820*/ curfptr[2819]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2812*/ curfptr[2811]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1557:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1552:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2821*/ curfptr[2820]);
+ meltgc_touch(/*_.VALDATA___V2813*/ curfptr[2812]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2824*/ curfptr[2823]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2816*/ curfptr[2815]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2823*/ curfptr[2822]);
+ meltgc_touch(/*_.VALDATA___V2815*/ curfptr[2814]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2815*/ curfptr[2814]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1557:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1552:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2822*/ curfptr[2821]);
+ meltgc_touch(/*_.VALDATA___V2814*/ curfptr[2813]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1557:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1552:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2825*/ curfptr[2824]);
+ meltgc_touch(/*_.VALDATA___V2817*/ curfptr[2816]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2821*/ curfptr[2820]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2813*/ curfptr[2812]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2822*/ curfptr[2821]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2814*/ curfptr[2813]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2826*/ curfptr[2825]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2825*/ curfptr[2824]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2818*/ curfptr[2817]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2826*/ curfptr[2825]);
+ meltgc_touch(/*_.VALTUP___V2818*/ curfptr[2817]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2826*/ curfptr[2825]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2818*/ curfptr[2817]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2827*/ curfptr[2826]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2819*/ curfptr[2818]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2828*/ curfptr[2827]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2820*/ curfptr[2819]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2829*/ curfptr[2828]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2821*/ curfptr[2820]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2831*/ curfptr[2830]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2830*/ curfptr[2829]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2823*/ curfptr[2822]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2822*/ curfptr[2821]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2831*/ curfptr[2830]);
+ meltgc_touch(/*_.VALTUP___V2823*/ curfptr[2822]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1552:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2819*/ curfptr[2818]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2831*/ curfptr[2830]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2811*/ curfptr[2810]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2823*/ curfptr[2822]);
  
- MELT_LOCATION("warmelt-first.melt:1557:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1552:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2819*/ curfptr[2818]);
+ meltgc_touch(/*_.VALDATA___V2811*/ curfptr[2810]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2832*/ curfptr[2831])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2824*/ curfptr[2823])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2832*/ curfptr[2831]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2832*/ curfptr[2831]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2833*/ curfptr[2832]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2824*/ curfptr[2823]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2824*/ curfptr[2823]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2825*/ curfptr[2824]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2832*/ curfptr[2831]);
+ meltgc_touch(/*_.VALDATA___V2824*/ curfptr[2823]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2835*/ curfptr[2834]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2827*/ curfptr[2826]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1563:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1558:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2836*/ curfptr[2835]);
+ meltgc_touch(/*_.VALDATA___V2828*/ curfptr[2827]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2815*/ curfptr[2814]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1563:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1558:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2837*/ curfptr[2836]);
+ meltgc_touch(/*_.VALDATA___V2829*/ curfptr[2828]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2838*/ curfptr[2837]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2838*/ curfptr[2837]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2838*/ curfptr[2837]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2836*/ curfptr[2835]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2830*/ curfptr[2829]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2830*/ curfptr[2829]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2830*/ curfptr[2829]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2828*/ curfptr[2827]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2838*/ curfptr[2837]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2838*/ curfptr[2837]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2838*/ curfptr[2837]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2830*/ curfptr[2829]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2830*/ curfptr[2829]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2830*/ curfptr[2829]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2829*/ curfptr[2828]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2838*/ curfptr[2837]);
+ meltgc_touch(/*_.VALTUP___V2830*/ curfptr[2829]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2838*/ curfptr[2837]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2830*/ curfptr[2829]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2839*/ curfptr[2838]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2831*/ curfptr[2830]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2840*/ curfptr[2839]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2832*/ curfptr[2831]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2842*/ curfptr[2841]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2841*/ curfptr[2840]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2834*/ curfptr[2833]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2833*/ curfptr[2832]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2842*/ curfptr[2841]);
+ meltgc_touch(/*_.VALTUP___V2834*/ curfptr[2833]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1558:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2834*/ curfptr[2833]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2842*/ curfptr[2841]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2826*/ curfptr[2825]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2834*/ curfptr[2833]);
  
- MELT_LOCATION("warmelt-first.melt:1563:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1558:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2834*/ curfptr[2833]);
+ meltgc_touch(/*_.VALDATA___V2826*/ curfptr[2825]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2844*/ curfptr[2843]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2836*/ curfptr[2835]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2847*/ curfptr[2846]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2839*/ curfptr[2838]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2846*/ curfptr[2845]);
+ meltgc_touch(/*_.VALDATA___V2838*/ curfptr[2837]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2846*/ curfptr[2845]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2838*/ curfptr[2837]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1568:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1563:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2845*/ curfptr[2844]);
+ meltgc_touch(/*_.VALDATA___V2837*/ curfptr[2836]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2848*/ curfptr[2847]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2848*/ curfptr[2847]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2848*/ curfptr[2847]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2845*/ curfptr[2844]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2840*/ curfptr[2839]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2840*/ curfptr[2839]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2840*/ curfptr[2839]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2837*/ curfptr[2836]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2848*/ curfptr[2847]);
+ meltgc_touch(/*_.VALTUP___V2840*/ curfptr[2839]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2848*/ curfptr[2847]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2840*/ curfptr[2839]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2850*/ curfptr[2849]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2842*/ curfptr[2841]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2849*/ curfptr[2848]);
+ meltgc_touch(/*_.VALDATA___V2841*/ curfptr[2840]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2853*/ curfptr[2852]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2845*/ curfptr[2844]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2852*/ curfptr[2851]);
+ meltgc_touch(/*_.VALDATA___V2844*/ curfptr[2843]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2844*/ curfptr[2843]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1568:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1563:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2851*/ curfptr[2850]);
+ meltgc_touch(/*_.VALDATA___V2843*/ curfptr[2842]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2856*/ curfptr[2855]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2848*/ curfptr[2847]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2855*/ curfptr[2854]);
+ meltgc_touch(/*_.VALDATA___V2847*/ curfptr[2846]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2847*/ curfptr[2846]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1568:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1563:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2854*/ curfptr[2853]);
+ meltgc_touch(/*_.VALDATA___V2846*/ curfptr[2845]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2857*/ curfptr[2856]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2857*/ curfptr[2856]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2857*/ curfptr[2856]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2851*/ curfptr[2850]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2849*/ curfptr[2848]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2849*/ curfptr[2848]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2849*/ curfptr[2848]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2857*/ curfptr[2856]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2857*/ curfptr[2856]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2857*/ curfptr[2856]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2854*/ curfptr[2853]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2849*/ curfptr[2848]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2849*/ curfptr[2848]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2849*/ curfptr[2848]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2857*/ curfptr[2856]);
+ meltgc_touch(/*_.VALTUP___V2849*/ curfptr[2848]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2857*/ curfptr[2856]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2849*/ curfptr[2848]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2858*/ curfptr[2857]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2850*/ curfptr[2849]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2859*/ curfptr[2858]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2851*/ curfptr[2850]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2860*/ curfptr[2859]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2852*/ curfptr[2851]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2861*/ curfptr[2860]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2853*/ curfptr[2852]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2862*/ curfptr[2861]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V2854*/ curfptr[2853]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2863*/ curfptr[2862]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V2855*/ curfptr[2854]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2864*/ curfptr[2863]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V2856*/ curfptr[2855]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2865*/ curfptr[2864]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V2857*/ curfptr[2856]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2866*/ curfptr[2865]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V2858*/ curfptr[2857]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V2867*/ curfptr[2866]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V2859*/ curfptr[2858]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V2868*/ curfptr[2867]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V2860*/ curfptr[2859]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V2869*/ curfptr[2868]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V2861*/ curfptr[2860]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V2870*/ curfptr[2869]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V2862*/ curfptr[2861]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V2871*/ curfptr[2870]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V2863*/ curfptr[2862]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (27>=0 && 27< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (27>=0 && 27< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (28>=0 && 28< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[28] = (melt_ptr_t)(/*_.VALSTR___V2872*/ curfptr[2871]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (28>=0 && 28< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[28] = (melt_ptr_t)(/*_.VALSTR___V2864*/ curfptr[2863]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (29>=0 && 29< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (29>=0 && 29< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (30>=0 && 30< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[30] = (melt_ptr_t)(/*_.VALSTR___V2873*/ curfptr[2872]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (30>=0 && 30< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[30] = (melt_ptr_t)(/*_.VALSTR___V2865*/ curfptr[2864]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (31>=0 && 31< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (31>=0 && 31< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (32>=0 && 32< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[32] = (melt_ptr_t)(/*_.VALSTR___V2874*/ curfptr[2873]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (32>=0 && 32< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[32] = (melt_ptr_t)(/*_.VALSTR___V2866*/ curfptr[2865]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (33>=0 && 33< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[33] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (33>=0 && 33< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[33] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (34>=0 && 34< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[34] = (melt_ptr_t)(/*_.VALSTR___V2875*/ curfptr[2874]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (34>=0 && 34< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[34] = (melt_ptr_t)(/*_.VALSTR___V2867*/ curfptr[2866]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (35>=0 && 35< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[35] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (35>=0 && 35< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[35] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (36>=0 && 36< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[36] = (melt_ptr_t)(/*_.VALSTR___V2876*/ curfptr[2875]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (36>=0 && 36< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[36] = (melt_ptr_t)(/*_.VALSTR___V2868*/ curfptr[2867]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (37>=0 && 37< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[37] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (37>=0 && 37< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[37] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (38>=0 && 38< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[38] = (melt_ptr_t)(/*_.VALSTR___V2877*/ curfptr[2876]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (38>=0 && 38< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[38] = (melt_ptr_t)(/*_.VALSTR___V2869*/ curfptr[2868]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (39>=0 && 39< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[39] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (39>=0 && 39< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[39] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (40>=0 && 40< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[40] = (melt_ptr_t)(/*_.VALSTR___V2878*/ curfptr[2877]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (40>=0 && 40< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[40] = (melt_ptr_t)(/*_.VALSTR___V2870*/ curfptr[2869]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (41>=0 && 41< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[41] = (melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (41>=0 && 41< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[41] = (melt_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (42>=0 && 42< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[42] = (melt_ptr_t)(/*_.VALSTR___V2879*/ curfptr[2878]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (42>=0 && 42< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[42] = (melt_ptr_t)(/*_.VALSTR___V2871*/ curfptr[2870]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (43>=0 && 43< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[43] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (43>=0 && 43< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[43] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (44>=0 && 44< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[44] = (melt_ptr_t)(/*_.VALSTR___V2880*/ curfptr[2879]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (44>=0 && 44< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[44] = (melt_ptr_t)(/*_.VALSTR___V2872*/ curfptr[2871]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (45>=0 && 45< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[45] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (45>=0 && 45< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[45] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (46>=0 && 46< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2882*/ curfptr[2881]))->tabval[46] = (melt_ptr_t)(/*_.VALSTR___V2881*/ curfptr[2880]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (46>=0 && 46< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2874*/ curfptr[2873]))->tabval[46] = (melt_ptr_t)(/*_.VALSTR___V2873*/ curfptr[2872]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2882*/ curfptr[2881]);
+ meltgc_touch(/*_.VALTUP___V2874*/ curfptr[2873]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V2882*/ curfptr[2881]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V2874*/ curfptr[2873]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2883*/ curfptr[2882]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2875*/ curfptr[2874]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2884*/ curfptr[2883]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2876*/ curfptr[2875]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2885*/ curfptr[2884]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2877*/ curfptr[2876]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2887*/ curfptr[2886]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2886*/ curfptr[2885]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2879*/ curfptr[2878]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2878*/ curfptr[2877]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2887*/ curfptr[2886]);
+ meltgc_touch(/*_.VALTUP___V2879*/ curfptr[2878]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1563:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2843*/ curfptr[2842]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V2887*/ curfptr[2886]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2835*/ curfptr[2834]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V2879*/ curfptr[2878]);
  
- MELT_LOCATION("warmelt-first.melt:1568:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1563:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2843*/ curfptr[2842]);
+ meltgc_touch(/*_.VALDATA___V2835*/ curfptr[2834]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2888*/ curfptr[2887])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2880*/ curfptr[2879])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2888*/ curfptr[2887]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2888*/ curfptr[2887]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2889*/ curfptr[2888]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2880*/ curfptr[2879]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2880*/ curfptr[2879]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2881*/ curfptr[2880]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2888*/ curfptr[2887]);
+ meltgc_touch(/*_.VALDATA___V2880*/ curfptr[2879]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1594:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2891*/ curfptr[2890]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2883*/ curfptr[2882]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1594:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1594:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1599:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1594:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2892*/ curfptr[2891]);
+ meltgc_touch(/*_.VALDATA___V2884*/ curfptr[2883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2893*/ curfptr[2892]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2893*/ curfptr[2892]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2893*/ curfptr[2892]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2892*/ curfptr[2891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2885*/ curfptr[2884]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2885*/ curfptr[2884]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2885*/ curfptr[2884]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2884*/ curfptr[2883]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2893*/ curfptr[2892]);
+ meltgc_touch(/*_.VALTUP___V2885*/ curfptr[2884]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1594:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2893*/ curfptr[2892]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2885*/ curfptr[2884]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1594:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2894*/ curfptr[2893]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2886*/ curfptr[2885]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2896*/ curfptr[2895]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2895*/ curfptr[2894]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2888*/ curfptr[2887]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2887*/ curfptr[2886]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2896*/ curfptr[2895]);
+ meltgc_touch(/*_.VALTUP___V2888*/ curfptr[2887]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1594:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2890*/ curfptr[2889]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2896*/ curfptr[2895]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2882*/ curfptr[2881]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2888*/ curfptr[2887]);
  
- MELT_LOCATION("warmelt-first.melt:1599:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1594:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2890*/ curfptr[2889]);
+ meltgc_touch(/*_.VALDATA___V2882*/ curfptr[2881]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2897*/ curfptr[2896])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2889*/ curfptr[2888])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2897*/ curfptr[2896]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2897*/ curfptr[2896]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2898*/ curfptr[2897]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2889*/ curfptr[2888]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2889*/ curfptr[2888]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2890*/ curfptr[2889]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2897*/ curfptr[2896]);
+ meltgc_touch(/*_.VALDATA___V2889*/ curfptr[2888]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1598:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2900*/ curfptr[2899]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2892*/ curfptr[2891]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1598:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1598:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1603:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1598:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2901*/ curfptr[2900]);
+ meltgc_touch(/*_.VALDATA___V2893*/ curfptr[2892]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2902*/ curfptr[2901]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2902*/ curfptr[2901]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2902*/ curfptr[2901]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2901*/ curfptr[2900]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2894*/ curfptr[2893]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2894*/ curfptr[2893]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2894*/ curfptr[2893]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2893*/ curfptr[2892]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2902*/ curfptr[2901]);
+ meltgc_touch(/*_.VALTUP___V2894*/ curfptr[2893]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1598:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2902*/ curfptr[2901]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2894*/ curfptr[2893]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1598:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2903*/ curfptr[2902]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2895*/ curfptr[2894]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2905*/ curfptr[2904]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2904*/ curfptr[2903]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2897*/ curfptr[2896]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2896*/ curfptr[2895]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2905*/ curfptr[2904]);
+ meltgc_touch(/*_.VALTUP___V2897*/ curfptr[2896]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1598:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2899*/ curfptr[2898]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2905*/ curfptr[2904]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2891*/ curfptr[2890]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2897*/ curfptr[2896]);
  
- MELT_LOCATION("warmelt-first.melt:1603:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1598:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2899*/ curfptr[2898]);
+ meltgc_touch(/*_.VALDATA___V2891*/ curfptr[2890]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2906*/ curfptr[2905])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2898*/ curfptr[2897])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2906*/ curfptr[2905]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2906*/ curfptr[2905]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2907*/ curfptr[2906]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2898*/ curfptr[2897]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2898*/ curfptr[2897]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2899*/ curfptr[2898]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2906*/ curfptr[2905]);
+ meltgc_touch(/*_.VALDATA___V2898*/ curfptr[2897]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1602:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2909*/ curfptr[2908]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2901*/ curfptr[2900]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1602:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1602:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1607:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1602:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2910*/ curfptr[2909]);
+ meltgc_touch(/*_.VALDATA___V2902*/ curfptr[2901]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2911*/ curfptr[2910]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2911*/ curfptr[2910]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2911*/ curfptr[2910]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2910*/ curfptr[2909]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2903*/ curfptr[2902]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2903*/ curfptr[2902]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2903*/ curfptr[2902]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2902*/ curfptr[2901]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2911*/ curfptr[2910]);
+ meltgc_touch(/*_.VALTUP___V2903*/ curfptr[2902]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1602:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2911*/ curfptr[2910]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2903*/ curfptr[2902]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1602:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2912*/ curfptr[2911]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2904*/ curfptr[2903]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2914*/ curfptr[2913]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2913*/ curfptr[2912]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2906*/ curfptr[2905]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2905*/ curfptr[2904]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2914*/ curfptr[2913]);
+ meltgc_touch(/*_.VALTUP___V2906*/ curfptr[2905]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1602:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2908*/ curfptr[2907]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2914*/ curfptr[2913]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2900*/ curfptr[2899]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2906*/ curfptr[2905]);
  
- MELT_LOCATION("warmelt-first.melt:1607:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1602:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2908*/ curfptr[2907]);
+ meltgc_touch(/*_.VALDATA___V2900*/ curfptr[2899]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2915*/ curfptr[2914])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2907*/ curfptr[2906])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2915*/ curfptr[2914]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2915*/ curfptr[2914]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2916*/ curfptr[2915]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2907*/ curfptr[2906]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2907*/ curfptr[2906]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2908*/ curfptr[2907]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2915*/ curfptr[2914]);
+ meltgc_touch(/*_.VALDATA___V2907*/ curfptr[2906]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2918*/ curfptr[2917]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2910*/ curfptr[2909]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1611:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1606:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2919*/ curfptr[2918]);
+ meltgc_touch(/*_.VALDATA___V2911*/ curfptr[2910]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1884*/ curfptr[1883]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1611:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1606:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2920*/ curfptr[2919]);
+ meltgc_touch(/*_.VALDATA___V2912*/ curfptr[2911]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2921*/ curfptr[2920]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2921*/ curfptr[2920]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2921*/ curfptr[2920]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2919*/ curfptr[2918]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2913*/ curfptr[2912]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2913*/ curfptr[2912]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2913*/ curfptr[2912]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2911*/ curfptr[2910]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2921*/ curfptr[2920]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2921*/ curfptr[2920]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2921*/ curfptr[2920]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2913*/ curfptr[2912]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2913*/ curfptr[2912]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2913*/ curfptr[2912]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2912*/ curfptr[2911]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2921*/ curfptr[2920]);
+ meltgc_touch(/*_.VALTUP___V2913*/ curfptr[2912]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2921*/ curfptr[2920]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2913*/ curfptr[2912]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2922*/ curfptr[2921]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2914*/ curfptr[2913]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2923*/ curfptr[2922]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2915*/ curfptr[2914]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2925*/ curfptr[2924]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2924*/ curfptr[2923]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2917*/ curfptr[2916]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2916*/ curfptr[2915]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2925*/ curfptr[2924]);
+ meltgc_touch(/*_.VALTUP___V2917*/ curfptr[2916]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1606:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2917*/ curfptr[2916]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2925*/ curfptr[2924]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2909*/ curfptr[2908]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2917*/ curfptr[2916]);
  
- MELT_LOCATION("warmelt-first.melt:1611:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1606:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2917*/ curfptr[2916]);
+ meltgc_touch(/*_.VALDATA___V2909*/ curfptr[2908]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2926*/ curfptr[2925])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2918*/ curfptr[2917])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2926*/ curfptr[2925]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2926*/ curfptr[2925]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2927*/ curfptr[2926]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2918*/ curfptr[2917]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2918*/ curfptr[2917]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2919*/ curfptr[2918]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2926*/ curfptr[2925]);
+ meltgc_touch(/*_.VALDATA___V2918*/ curfptr[2917]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2929*/ curfptr[2928]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2921*/ curfptr[2920]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1615:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1610:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2930*/ curfptr[2929]);
+ meltgc_touch(/*_.VALDATA___V2922*/ curfptr[2921]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2810*/ curfptr[2809]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2802*/ curfptr[2801]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1615:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1610:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2931*/ curfptr[2930]);
+ meltgc_touch(/*_.VALDATA___V2923*/ curfptr[2922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2932*/ curfptr[2931]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2932*/ curfptr[2931]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2932*/ curfptr[2931]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2930*/ curfptr[2929]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2924*/ curfptr[2923]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2924*/ curfptr[2923]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2924*/ curfptr[2923]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2922*/ curfptr[2921]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2932*/ curfptr[2931]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2932*/ curfptr[2931]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2932*/ curfptr[2931]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2924*/ curfptr[2923]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2924*/ curfptr[2923]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2924*/ curfptr[2923]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2923*/ curfptr[2922]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2932*/ curfptr[2931]);
+ meltgc_touch(/*_.VALTUP___V2924*/ curfptr[2923]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2932*/ curfptr[2931]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2924*/ curfptr[2923]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2933*/ curfptr[2932]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2925*/ curfptr[2924]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2934*/ curfptr[2933]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2926*/ curfptr[2925]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2810*/ curfptr[2809]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2802*/ curfptr[2801]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2935*/ curfptr[2934]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2928*/ curfptr[2927]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2927*/ curfptr[2926]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2936*/ curfptr[2935]);
+ meltgc_touch(/*_.VALTUP___V2928*/ curfptr[2927]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1610:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2928*/ curfptr[2927]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2936*/ curfptr[2935]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2920*/ curfptr[2919]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2928*/ curfptr[2927]);
  
- MELT_LOCATION("warmelt-first.melt:1615:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1610:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2928*/ curfptr[2927]);
+ meltgc_touch(/*_.VALDATA___V2920*/ curfptr[2919]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2937*/ curfptr[2936])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2929*/ curfptr[2928])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2937*/ curfptr[2936]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2937*/ curfptr[2936]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2938*/ curfptr[2937]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2929*/ curfptr[2928]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2929*/ curfptr[2928]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2930*/ curfptr[2929]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2937*/ curfptr[2936]);
+ meltgc_touch(/*_.VALDATA___V2929*/ curfptr[2928]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2940*/ curfptr[2939]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2932*/ curfptr[2931]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1619:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1614:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2941*/ curfptr[2940]);
+ meltgc_touch(/*_.VALDATA___V2933*/ curfptr[2932]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2815*/ curfptr[2814]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1619:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1614:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2942*/ curfptr[2941]);
+ meltgc_touch(/*_.VALDATA___V2934*/ curfptr[2933]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1619:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1614:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2943*/ curfptr[2942]);
+ meltgc_touch(/*_.VALDATA___V2935*/ curfptr[2934]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2941*/ curfptr[2940]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2933*/ curfptr[2932]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2934*/ curfptr[2933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2944*/ curfptr[2943]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2943*/ curfptr[2942]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2936*/ curfptr[2935]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2935*/ curfptr[2934]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2944*/ curfptr[2943]);
+ meltgc_touch(/*_.VALTUP___V2936*/ curfptr[2935]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2944*/ curfptr[2943]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2936*/ curfptr[2935]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2945*/ curfptr[2944]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2937*/ curfptr[2936]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2946*/ curfptr[2945]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2938*/ curfptr[2937]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2947*/ curfptr[2946]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2939*/ curfptr[2938]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2949*/ curfptr[2948]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2948*/ curfptr[2947]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2941*/ curfptr[2940]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2940*/ curfptr[2939]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2949*/ curfptr[2948]);
+ meltgc_touch(/*_.VALTUP___V2941*/ curfptr[2940]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1614:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2939*/ curfptr[2938]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2949*/ curfptr[2948]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2931*/ curfptr[2930]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2941*/ curfptr[2940]);
  
- MELT_LOCATION("warmelt-first.melt:1619:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1614:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2939*/ curfptr[2938]);
+ meltgc_touch(/*_.VALDATA___V2931*/ curfptr[2930]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2951*/ curfptr[2950]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2943*/ curfptr[2942]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2950*/ curfptr[2949]);
+ meltgc_touch(/*_.VALDATA___V2942*/ curfptr[2941]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2953*/ curfptr[2952]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2945*/ curfptr[2944]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1622:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1617:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2954*/ curfptr[2953]);
+ meltgc_touch(/*_.VALDATA___V2946*/ curfptr[2945]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2957*/ curfptr[2956]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2949*/ curfptr[2948]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2956*/ curfptr[2955]);
+ meltgc_touch(/*_.VALDATA___V2948*/ curfptr[2947]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2956*/ curfptr[2955]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2948*/ curfptr[2947]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1622:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1617:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2955*/ curfptr[2954]);
+ meltgc_touch(/*_.VALDATA___V2947*/ curfptr[2946]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1622:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1617:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2958*/ curfptr[2957]);
+ meltgc_touch(/*_.VALDATA___V2950*/ curfptr[2949]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2954*/ curfptr[2953]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2946*/ curfptr[2945]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2955*/ curfptr[2954]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2947*/ curfptr[2946]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2959*/ curfptr[2958]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2958*/ curfptr[2957]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2951*/ curfptr[2950]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2959*/ curfptr[2958]);
+ meltgc_touch(/*_.VALTUP___V2951*/ curfptr[2950]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2959*/ curfptr[2958]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2951*/ curfptr[2950]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2960*/ curfptr[2959]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2952*/ curfptr[2951]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2961*/ curfptr[2960]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2953*/ curfptr[2952]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2962*/ curfptr[2961]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2954*/ curfptr[2953]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2964*/ curfptr[2963]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2963*/ curfptr[2962]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2956*/ curfptr[2955]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V2955*/ curfptr[2954]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2964*/ curfptr[2963]);
+ meltgc_touch(/*_.VALTUP___V2956*/ curfptr[2955]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1617:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2952*/ curfptr[2951]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2964*/ curfptr[2963]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2944*/ curfptr[2943]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2956*/ curfptr[2955]);
  
- MELT_LOCATION("warmelt-first.melt:1622:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1617:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2952*/ curfptr[2951]);
+ meltgc_touch(/*_.VALDATA___V2944*/ curfptr[2943]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2965*/ curfptr[2964])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2957*/ curfptr[2956])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2965*/ curfptr[2964]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2965*/ curfptr[2964]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2966*/ curfptr[2965]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2957*/ curfptr[2956]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2957*/ curfptr[2956]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2958*/ curfptr[2957]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2965*/ curfptr[2964]);
+ meltgc_touch(/*_.VALDATA___V2957*/ curfptr[2956]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2968*/ curfptr[2967]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2960*/ curfptr[2959]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1625:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1620:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2969*/ curfptr[2968]);
+ meltgc_touch(/*_.VALDATA___V2961*/ curfptr[2960]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2956*/ curfptr[2955]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2948*/ curfptr[2947]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1625:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1620:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2970*/ curfptr[2969]);
+ meltgc_touch(/*_.VALDATA___V2962*/ curfptr[2961]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2971*/ curfptr[2970]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2971*/ curfptr[2970]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2971*/ curfptr[2970]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2969*/ curfptr[2968]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2963*/ curfptr[2962]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2963*/ curfptr[2962]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2963*/ curfptr[2962]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2961*/ curfptr[2960]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2971*/ curfptr[2970]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2971*/ curfptr[2970]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2971*/ curfptr[2970]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2963*/ curfptr[2962]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2963*/ curfptr[2962]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2963*/ curfptr[2962]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2962*/ curfptr[2961]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2971*/ curfptr[2970]);
+ meltgc_touch(/*_.VALTUP___V2963*/ curfptr[2962]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2971*/ curfptr[2970]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2963*/ curfptr[2962]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2972*/ curfptr[2971]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2964*/ curfptr[2963]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2973*/ curfptr[2972]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2965*/ curfptr[2964]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2975*/ curfptr[2974]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2974*/ curfptr[2973]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2967*/ curfptr[2966]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2966*/ curfptr[2965]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2975*/ curfptr[2974]);
+ meltgc_touch(/*_.VALTUP___V2967*/ curfptr[2966]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1620:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2967*/ curfptr[2966]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2975*/ curfptr[2974]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2959*/ curfptr[2958]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2967*/ curfptr[2966]);
  
- MELT_LOCATION("warmelt-first.melt:1625:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1620:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2967*/ curfptr[2966]);
+ meltgc_touch(/*_.VALDATA___V2959*/ curfptr[2958]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2976*/ curfptr[2975])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2968*/ curfptr[2967])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2976*/ curfptr[2975]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2976*/ curfptr[2975]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2977*/ curfptr[2976]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2968*/ curfptr[2967]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2968*/ curfptr[2967]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2969*/ curfptr[2968]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2976*/ curfptr[2975]);
+ meltgc_touch(/*_.VALDATA___V2968*/ curfptr[2967]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2979*/ curfptr[2978]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2971*/ curfptr[2970]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1629:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1624:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2980*/ curfptr[2979]);
+ meltgc_touch(/*_.VALDATA___V2972*/ curfptr[2971]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2815*/ curfptr[2814]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1629:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1624:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2981*/ curfptr[2980]);
+ meltgc_touch(/*_.VALDATA___V2973*/ curfptr[2972]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2982*/ curfptr[2981]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2982*/ curfptr[2981]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2982*/ curfptr[2981]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2980*/ curfptr[2979]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2974*/ curfptr[2973]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2974*/ curfptr[2973]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2974*/ curfptr[2973]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2972*/ curfptr[2971]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2982*/ curfptr[2981]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2982*/ curfptr[2981]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2982*/ curfptr[2981]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2974*/ curfptr[2973]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2974*/ curfptr[2973]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2974*/ curfptr[2973]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2973*/ curfptr[2972]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2982*/ curfptr[2981]);
+ meltgc_touch(/*_.VALTUP___V2974*/ curfptr[2973]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2982*/ curfptr[2981]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2974*/ curfptr[2973]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2983*/ curfptr[2982]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2975*/ curfptr[2974]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2984*/ curfptr[2983]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2976*/ curfptr[2975]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2986*/ curfptr[2985]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2985*/ curfptr[2984]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2978*/ curfptr[2977]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2977*/ curfptr[2976]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2986*/ curfptr[2985]);
+ meltgc_touch(/*_.VALTUP___V2978*/ curfptr[2977]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1624:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2978*/ curfptr[2977]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2986*/ curfptr[2985]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2970*/ curfptr[2969]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2978*/ curfptr[2977]);
  
- MELT_LOCATION("warmelt-first.melt:1629:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1624:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2978*/ curfptr[2977]);
+ meltgc_touch(/*_.VALDATA___V2970*/ curfptr[2969]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2987*/ curfptr[2986])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2979*/ curfptr[2978])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2987*/ curfptr[2986]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2987*/ curfptr[2986]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2988*/ curfptr[2987]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2979*/ curfptr[2978]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2979*/ curfptr[2978]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2980*/ curfptr[2979]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2987*/ curfptr[2986]);
+ meltgc_touch(/*_.VALDATA___V2979*/ curfptr[2978]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2990*/ curfptr[2989]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2982*/ curfptr[2981]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1632:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1627:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2991*/ curfptr[2990]);
+ meltgc_touch(/*_.VALDATA___V2983*/ curfptr[2982]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2956*/ curfptr[2955]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2948*/ curfptr[2947]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1632:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1627:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2992*/ curfptr[2991]);
+ meltgc_touch(/*_.VALDATA___V2984*/ curfptr[2983]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2993*/ curfptr[2992]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2993*/ curfptr[2992]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2993*/ curfptr[2992]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2991*/ curfptr[2990]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2985*/ curfptr[2984]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2985*/ curfptr[2984]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2985*/ curfptr[2984]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2983*/ curfptr[2982]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2993*/ curfptr[2992]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2993*/ curfptr[2992]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2993*/ curfptr[2992]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2985*/ curfptr[2984]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2985*/ curfptr[2984]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2985*/ curfptr[2984]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2984*/ curfptr[2983]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2993*/ curfptr[2992]);
+ meltgc_touch(/*_.VALTUP___V2985*/ curfptr[2984]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V2993*/ curfptr[2992]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2985*/ curfptr[2984]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2994*/ curfptr[2993]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V2986*/ curfptr[2985]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2995*/ curfptr[2994]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V2987*/ curfptr[2986]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V2997*/ curfptr[2996]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2996*/ curfptr[2995]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2989*/ curfptr[2988]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V2988*/ curfptr[2987]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V2997*/ curfptr[2996]);
+ meltgc_touch(/*_.VALTUP___V2989*/ curfptr[2988]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1627:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2989*/ curfptr[2988]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V2997*/ curfptr[2996]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2981*/ curfptr[2980]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V2989*/ curfptr[2988]);
  
- MELT_LOCATION("warmelt-first.melt:1632:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1627:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2989*/ curfptr[2988]);
+ meltgc_touch(/*_.VALDATA___V2981*/ curfptr[2980]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2990*/ curfptr[2989])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V2999*/ curfptr[2998]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2990*/ curfptr[2989]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2990*/ curfptr[2989]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2991*/ curfptr[2990]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V2998*/ curfptr[2997]);
+ meltgc_touch(/*_.VALDATA___V2990*/ curfptr[2989]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3001*/ curfptr[3000]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2993*/ curfptr[2992]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1637:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1632:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3002*/ curfptr[3001]);
+ meltgc_touch(/*_.VALDATA___V2994*/ curfptr[2993]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3004*/ curfptr[3003])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2996*/ curfptr[2995])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3004*/ curfptr[3003]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3004*/ curfptr[3003]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3005*/ curfptr[3004]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2996*/ curfptr[2995]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2996*/ curfptr[2995]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V2997*/ curfptr[2996]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3004*/ curfptr[3003]);
+ meltgc_touch(/*_.VALDATA___V2996*/ curfptr[2995]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3004*/ curfptr[3003]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2996*/ curfptr[2995]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1637:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1632:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3003*/ curfptr[3002]);
+ meltgc_touch(/*_.VALDATA___V2995*/ curfptr[2994]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1637:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1632:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3006*/ curfptr[3005]);
+ meltgc_touch(/*_.VALDATA___V2998*/ curfptr[2997]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3002*/ curfptr[3001]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V2994*/ curfptr[2993]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3003*/ curfptr[3002]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2995*/ curfptr[2994]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3007*/ curfptr[3006]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3006*/ curfptr[3005]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V2999*/ curfptr[2998]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3007*/ curfptr[3006]);
+ meltgc_touch(/*_.VALTUP___V2999*/ curfptr[2998]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3007*/ curfptr[3006]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V2999*/ curfptr[2998]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3008*/ curfptr[3007]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3000*/ curfptr[2999]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3004*/ curfptr[3003]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2996*/ curfptr[2995]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3009*/ curfptr[3008]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3001*/ curfptr[3000]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3010*/ curfptr[3009]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3002*/ curfptr[3001]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3012*/ curfptr[3011]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3011*/ curfptr[3010]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3004*/ curfptr[3003]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3003*/ curfptr[3002]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3012*/ curfptr[3011]);
+ meltgc_touch(/*_.VALTUP___V3004*/ curfptr[3003]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1632:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3000*/ curfptr[2999]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3012*/ curfptr[3011]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V2992*/ curfptr[2991]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3004*/ curfptr[3003]);
  
- MELT_LOCATION("warmelt-first.melt:1637:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1632:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3000*/ curfptr[2999]);
+ meltgc_touch(/*_.VALDATA___V2992*/ curfptr[2991]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3013*/ curfptr[3012])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3005*/ curfptr[3004])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3013*/ curfptr[3012]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3013*/ curfptr[3012]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3014*/ curfptr[3013]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3005*/ curfptr[3004]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3005*/ curfptr[3004]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3006*/ curfptr[3005]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3013*/ curfptr[3012]);
+ meltgc_touch(/*_.VALDATA___V3005*/ curfptr[3004]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3016*/ curfptr[3015]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3008*/ curfptr[3007]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2737*/ curfptr[2736]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1643:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1638:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3017*/ curfptr[3016]);
+ meltgc_touch(/*_.VALDATA___V3009*/ curfptr[3008]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1643:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1638:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3018*/ curfptr[3017]);
+ meltgc_touch(/*_.VALDATA___V3010*/ curfptr[3009]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3019*/ curfptr[3018]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3019*/ curfptr[3018]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3019*/ curfptr[3018]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3017*/ curfptr[3016]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3011*/ curfptr[3010]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3011*/ curfptr[3010]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3011*/ curfptr[3010]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3009*/ curfptr[3008]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3019*/ curfptr[3018]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3019*/ curfptr[3018]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3019*/ curfptr[3018]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3011*/ curfptr[3010]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3011*/ curfptr[3010]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3011*/ curfptr[3010]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3010*/ curfptr[3009]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3019*/ curfptr[3018]);
+ meltgc_touch(/*_.VALTUP___V3011*/ curfptr[3010]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3019*/ curfptr[3018]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3011*/ curfptr[3010]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3020*/ curfptr[3019]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3012*/ curfptr[3011]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3021*/ curfptr[3020]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3013*/ curfptr[3012]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3023*/ curfptr[3022]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3022*/ curfptr[3021]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3015*/ curfptr[3014]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3014*/ curfptr[3013]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3023*/ curfptr[3022]);
+ meltgc_touch(/*_.VALTUP___V3015*/ curfptr[3014]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1638:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3015*/ curfptr[3014]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3023*/ curfptr[3022]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3007*/ curfptr[3006]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3015*/ curfptr[3014]);
  
- MELT_LOCATION("warmelt-first.melt:1643:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1638:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3015*/ curfptr[3014]);
+ meltgc_touch(/*_.VALDATA___V3007*/ curfptr[3006]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3025*/ curfptr[3024]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3017*/ curfptr[3016]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3028*/ curfptr[3027]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3020*/ curfptr[3019]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3027*/ curfptr[3026]);
+ meltgc_touch(/*_.VALDATA___V3019*/ curfptr[3018]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3027*/ curfptr[3026]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3019*/ curfptr[3018]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1647:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1642:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3026*/ curfptr[3025]);
+ meltgc_touch(/*_.VALDATA___V3018*/ curfptr[3017]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3029*/ curfptr[3028]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3029*/ curfptr[3028]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3029*/ curfptr[3028]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3026*/ curfptr[3025]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3021*/ curfptr[3020]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3021*/ curfptr[3020]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3021*/ curfptr[3020]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3018*/ curfptr[3017]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3029*/ curfptr[3028]);
+ meltgc_touch(/*_.VALTUP___V3021*/ curfptr[3020]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3029*/ curfptr[3028]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3021*/ curfptr[3020]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3031*/ curfptr[3030]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3023*/ curfptr[3022]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3030*/ curfptr[3029]);
+ meltgc_touch(/*_.VALDATA___V3022*/ curfptr[3021]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V3022*/ curfptr[3021]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2844*/ curfptr[2843]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1647:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1642:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3032*/ curfptr[3031]);
+ meltgc_touch(/*_.VALDATA___V3024*/ curfptr[3023]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2847*/ curfptr[2846]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1647:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1642:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3033*/ curfptr[3032]);
+ meltgc_touch(/*_.VALDATA___V3025*/ curfptr[3024]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3034*/ curfptr[3033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3034*/ curfptr[3033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3034*/ curfptr[3033]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3032*/ curfptr[3031]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3026*/ curfptr[3025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3026*/ curfptr[3025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3026*/ curfptr[3025]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3034*/ curfptr[3033]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3034*/ curfptr[3033]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3034*/ curfptr[3033]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3033*/ curfptr[3032]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3026*/ curfptr[3025]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3026*/ curfptr[3025]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3026*/ curfptr[3025]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3025*/ curfptr[3024]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3034*/ curfptr[3033]);
+ meltgc_touch(/*_.VALTUP___V3026*/ curfptr[3025]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3034*/ curfptr[3033]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3026*/ curfptr[3025]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3035*/ curfptr[3034]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3027*/ curfptr[3026]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3036*/ curfptr[3035]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3028*/ curfptr[3027]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3037*/ curfptr[3036]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3029*/ curfptr[3028]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3038*/ curfptr[3037]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3030*/ curfptr[3029]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V3039*/ curfptr[3038]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V3031*/ curfptr[3030]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V3040*/ curfptr[3039]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V3032*/ curfptr[3031]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V3041*/ curfptr[3040]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V3033*/ curfptr[3032]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V3042*/ curfptr[3041]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V3034*/ curfptr[3033]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V3043*/ curfptr[3042]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V3035*/ curfptr[3034]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V3044*/ curfptr[3043]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V3036*/ curfptr[3035]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V3045*/ curfptr[3044]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V3037*/ curfptr[3036]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V3046*/ curfptr[3045]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V3038*/ curfptr[3037]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V3047*/ curfptr[3046]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V3039*/ curfptr[3038]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V3048*/ curfptr[3047]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V3040*/ curfptr[3039]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (27>=0 && 27< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (27>=0 && 27< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (28>=0 && 28< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[28] = (melt_ptr_t)(/*_.VALSTR___V3049*/ curfptr[3048]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (28>=0 && 28< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[28] = (melt_ptr_t)(/*_.VALSTR___V3041*/ curfptr[3040]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (29>=0 && 29< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (29>=0 && 29< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (30>=0 && 30< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[30] = (melt_ptr_t)(/*_.VALSTR___V3050*/ curfptr[3049]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (30>=0 && 30< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[30] = (melt_ptr_t)(/*_.VALSTR___V3042*/ curfptr[3041]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (31>=0 && 31< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (31>=0 && 31< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (32>=0 && 32< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[32] = (melt_ptr_t)(/*_.VALSTR___V3051*/ curfptr[3050]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (32>=0 && 32< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[32] = (melt_ptr_t)(/*_.VALSTR___V3043*/ curfptr[3042]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (33>=0 && 33< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[33] = (melt_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (33>=0 && 33< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[33] = (melt_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (34>=0 && 34< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[34] = (melt_ptr_t)(/*_.VALSTR___V3052*/ curfptr[3051]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (34>=0 && 34< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[34] = (melt_ptr_t)(/*_.VALSTR___V3044*/ curfptr[3043]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (35>=0 && 35< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[35] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (35>=0 && 35< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[35] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (36>=0 && 36< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[36] = (melt_ptr_t)(/*_.VALSTR___V3053*/ curfptr[3052]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (36>=0 && 36< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[36] = (melt_ptr_t)(/*_.VALSTR___V3045*/ curfptr[3044]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (37>=0 && 37< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[37] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (37>=0 && 37< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[37] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (38>=0 && 38< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[38] = (melt_ptr_t)(/*_.VALSTR___V3054*/ curfptr[3053]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (38>=0 && 38< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[38] = (melt_ptr_t)(/*_.VALSTR___V3046*/ curfptr[3045]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (39>=0 && 39< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[39] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (39>=0 && 39< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[39] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (40>=0 && 40< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[40] = (melt_ptr_t)(/*_.VALSTR___V3055*/ curfptr[3054]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (40>=0 && 40< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[40] = (melt_ptr_t)(/*_.VALSTR___V3047*/ curfptr[3046]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (41>=0 && 41< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[41] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (41>=0 && 41< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[41] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (42>=0 && 42< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[42] = (melt_ptr_t)(/*_.VALSTR___V3056*/ curfptr[3055]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (42>=0 && 42< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[42] = (melt_ptr_t)(/*_.VALSTR___V3048*/ curfptr[3047]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (43>=0 && 43< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[43] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (43>=0 && 43< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[43] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (44>=0 && 44< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[44] = (melt_ptr_t)(/*_.VALSTR___V3057*/ curfptr[3056]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (44>=0 && 44< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[44] = (melt_ptr_t)(/*_.VALSTR___V3049*/ curfptr[3048]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (45>=0 && 45< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[45] = (melt_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (45>=0 && 45< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[45] = (melt_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (46>=0 && 46< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[46] = (melt_ptr_t)(/*_.VALSTR___V3058*/ curfptr[3057]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (46>=0 && 46< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[46] = (melt_ptr_t)(/*_.VALSTR___V3050*/ curfptr[3049]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (47>=0 && 47< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[47] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (47>=0 && 47< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[47] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (48>=0 && 48< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[48] = (melt_ptr_t)(/*_.VALSTR___V3059*/ curfptr[3058]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (48>=0 && 48< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[48] = (melt_ptr_t)(/*_.VALSTR___V3051*/ curfptr[3050]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (49>=0 && 49< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[49] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (49>=0 && 49< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[49] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (50>=0 && 50< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[50] = (melt_ptr_t)(/*_.VALSTR___V3060*/ curfptr[3059]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (50>=0 && 50< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[50] = (melt_ptr_t)(/*_.VALSTR___V3052*/ curfptr[3051]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (51>=0 && 51< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[51] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (51>=0 && 51< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[51] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (52>=0 && 52< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[52] = (melt_ptr_t)(/*_.VALSTR___V3061*/ curfptr[3060]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (52>=0 && 52< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[52] = (melt_ptr_t)(/*_.VALSTR___V3053*/ curfptr[3052]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (53>=0 && 53< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[53] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (53>=0 && 53< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[53] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (54>=0 && 54< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[54] = (melt_ptr_t)(/*_.VALSTR___V3062*/ curfptr[3061]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (54>=0 && 54< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[54] = (melt_ptr_t)(/*_.VALSTR___V3054*/ curfptr[3053]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (55>=0 && 55< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[55] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (55>=0 && 55< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[55] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (56>=0 && 56< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[56] = (melt_ptr_t)(/*_.VALSTR___V3063*/ curfptr[3062]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (56>=0 && 56< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[56] = (melt_ptr_t)(/*_.VALSTR___V3055*/ curfptr[3054]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (57>=0 && 57< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[57] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (57>=0 && 57< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[57] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (58>=0 && 58< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[58] = (melt_ptr_t)(/*_.VALSTR___V3064*/ curfptr[3063]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (58>=0 && 58< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[58] = (melt_ptr_t)(/*_.VALSTR___V3056*/ curfptr[3055]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (59>=0 && 59< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[59] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (59>=0 && 59< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[59] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (60>=0 && 60< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[60] = (melt_ptr_t)(/*_.VALSTR___V3065*/ curfptr[3064]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (60>=0 && 60< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[60] = (melt_ptr_t)(/*_.VALSTR___V3057*/ curfptr[3056]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (61>=0 && 61< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[61] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (61>=0 && 61< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[61] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (62>=0 && 62< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[62] = (melt_ptr_t)(/*_.VALSTR___V3066*/ curfptr[3065]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (62>=0 && 62< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[62] = (melt_ptr_t)(/*_.VALSTR___V3058*/ curfptr[3057]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (63>=0 && 63< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[63] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (63>=0 && 63< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[63] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (64>=0 && 64< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[64] = (melt_ptr_t)(/*_.VALSTR___V3067*/ curfptr[3066]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (64>=0 && 64< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[64] = (melt_ptr_t)(/*_.VALSTR___V3059*/ curfptr[3058]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (65>=0 && 65< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[65] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (65>=0 && 65< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[65] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (66>=0 && 66< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[66] = (melt_ptr_t)(/*_.VALSTR___V3068*/ curfptr[3067]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (66>=0 && 66< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[66] = (melt_ptr_t)(/*_.VALSTR___V3060*/ curfptr[3059]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (67>=0 && 67< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[67] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (67>=0 && 67< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[67] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (68>=0 && 68< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[68] = (melt_ptr_t)(/*_.VALSTR___V3069*/ curfptr[3068]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (68>=0 && 68< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[68] = (melt_ptr_t)(/*_.VALSTR___V3061*/ curfptr[3060]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (69>=0 && 69< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[69] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (69>=0 && 69< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[69] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (70>=0 && 70< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[70] = (melt_ptr_t)(/*_.VALSTR___V3070*/ curfptr[3069]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (70>=0 && 70< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[70] = (melt_ptr_t)(/*_.VALSTR___V3062*/ curfptr[3061]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (71>=0 && 71< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[71] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (71>=0 && 71< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[71] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (72>=0 && 72< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[72] = (melt_ptr_t)(/*_.VALSTR___V3071*/ curfptr[3070]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (72>=0 && 72< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[72] = (melt_ptr_t)(/*_.VALSTR___V3063*/ curfptr[3062]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (73>=0 && 73< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[73] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (73>=0 && 73< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[73] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (74>=0 && 74< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[74] = (melt_ptr_t)(/*_.VALSTR___V3072*/ curfptr[3071]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (74>=0 && 74< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[74] = (melt_ptr_t)(/*_.VALSTR___V3064*/ curfptr[3063]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (75>=0 && 75< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[75] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (75>=0 && 75< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[75] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (76>=0 && 76< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[76] = (melt_ptr_t)(/*_.VALSTR___V3073*/ curfptr[3072]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (76>=0 && 76< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[76] = (melt_ptr_t)(/*_.VALSTR___V3065*/ curfptr[3064]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (77>=0 && 77< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[77] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (77>=0 && 77< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[77] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (78>=0 && 78< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3075*/ curfptr[3074]))->tabval[78] = (melt_ptr_t)(/*_.VALSTR___V3074*/ curfptr[3073]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (78>=0 && 78< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3067*/ curfptr[3066]))->tabval[78] = (melt_ptr_t)(/*_.VALSTR___V3066*/ curfptr[3065]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3075*/ curfptr[3074]);
+ meltgc_touch(/*_.VALTUP___V3067*/ curfptr[3066]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V3075*/ curfptr[3074]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V3067*/ curfptr[3066]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3076*/ curfptr[3075]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3068*/ curfptr[3067]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3077*/ curfptr[3076]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3069*/ curfptr[3068]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3078*/ curfptr[3077]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3070*/ curfptr[3069]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3079*/ curfptr[3078]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3072*/ curfptr[3071]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3071*/ curfptr[3070]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3080*/ curfptr[3079]);
+ meltgc_touch(/*_.VALTUP___V3072*/ curfptr[3071]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1642:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3024*/ curfptr[3023]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V3080*/ curfptr[3079]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3016*/ curfptr[3015]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V3072*/ curfptr[3071]);
  
- MELT_LOCATION("warmelt-first.melt:1647:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1642:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3024*/ curfptr[3023]);
+ meltgc_touch(/*_.VALDATA___V3016*/ curfptr[3015]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3081*/ curfptr[3080])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3073*/ curfptr[3072])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3081*/ curfptr[3080]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3081*/ curfptr[3080]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3082*/ curfptr[3081]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3073*/ curfptr[3072]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3073*/ curfptr[3072]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3074*/ curfptr[3073]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3081*/ curfptr[3080]);
+ meltgc_touch(/*_.VALDATA___V3073*/ curfptr[3072]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1688:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3084*/ curfptr[3083]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3076*/ curfptr[3075]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3087*/ curfptr[3086]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3079*/ curfptr[3078]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3086*/ curfptr[3085]);
+ meltgc_touch(/*_.VALDATA___V3078*/ curfptr[3077]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1688:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3078*/ curfptr[3077]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1688:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1693:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1688:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3085*/ curfptr[3084]);
+ meltgc_touch(/*_.VALDATA___V3077*/ curfptr[3076]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3088*/ curfptr[3087]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3088*/ curfptr[3087]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3088*/ curfptr[3087]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3085*/ curfptr[3084]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3080*/ curfptr[3079]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3077*/ curfptr[3076]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3088*/ curfptr[3087]);
+ meltgc_touch(/*_.VALTUP___V3080*/ curfptr[3079]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1688:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3088*/ curfptr[3087]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3080*/ curfptr[3079]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1688:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3089*/ curfptr[3088]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3081*/ curfptr[3080]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3091*/ curfptr[3090]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3090*/ curfptr[3089]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3083*/ curfptr[3082]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3082*/ curfptr[3081]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3091*/ curfptr[3090]);
+ meltgc_touch(/*_.VALTUP___V3083*/ curfptr[3082]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1688:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3083*/ curfptr[3082]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3091*/ curfptr[3090]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3075*/ curfptr[3074]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3083*/ curfptr[3082]);
  
- MELT_LOCATION("warmelt-first.melt:1693:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1688:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3083*/ curfptr[3082]);
+ meltgc_touch(/*_.VALDATA___V3075*/ curfptr[3074]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3092*/ curfptr[3091])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3084*/ curfptr[3083])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3092*/ curfptr[3091]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3092*/ curfptr[3091]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3093*/ curfptr[3092]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3084*/ curfptr[3083]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3084*/ curfptr[3083]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3085*/ curfptr[3084]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3092*/ curfptr[3091]);
+ meltgc_touch(/*_.VALDATA___V3084*/ curfptr[3083]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1692:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3095*/ curfptr[3094]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3087*/ curfptr[3086]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1692:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3078*/ curfptr[3077]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1692:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1697:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1692:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3096*/ curfptr[3095]);
+ meltgc_touch(/*_.VALDATA___V3088*/ curfptr[3087]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3097*/ curfptr[3096]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3097*/ curfptr[3096]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3097*/ curfptr[3096]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3096*/ curfptr[3095]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3089*/ curfptr[3088]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3089*/ curfptr[3088]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3089*/ curfptr[3088]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3088*/ curfptr[3087]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3097*/ curfptr[3096]);
+ meltgc_touch(/*_.VALTUP___V3089*/ curfptr[3088]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1692:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3097*/ curfptr[3096]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3089*/ curfptr[3088]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1692:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3098*/ curfptr[3097]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3090*/ curfptr[3089]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3100*/ curfptr[3099]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3099*/ curfptr[3098]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3092*/ curfptr[3091]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3091*/ curfptr[3090]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3100*/ curfptr[3099]);
+ meltgc_touch(/*_.VALTUP___V3092*/ curfptr[3091]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1692:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3094*/ curfptr[3093]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3100*/ curfptr[3099]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3092*/ curfptr[3091]);
  
- MELT_LOCATION("warmelt-first.melt:1697:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1692:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3094*/ curfptr[3093]);
+ meltgc_touch(/*_.VALDATA___V3086*/ curfptr[3085]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3101*/ curfptr[3100])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3093*/ curfptr[3092])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3101*/ curfptr[3100]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3101*/ curfptr[3100]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3102*/ curfptr[3101]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3093*/ curfptr[3092]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3093*/ curfptr[3092]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3094*/ curfptr[3093]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3101*/ curfptr[3100]);
+ meltgc_touch(/*_.VALDATA___V3093*/ curfptr[3092]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1696:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3104*/ curfptr[3103]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3096*/ curfptr[3095]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1696:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3078*/ curfptr[3077]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1696:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1701:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1696:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3105*/ curfptr[3104]);
+ meltgc_touch(/*_.VALDATA___V3097*/ curfptr[3096]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3106*/ curfptr[3105]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3106*/ curfptr[3105]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3106*/ curfptr[3105]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3105*/ curfptr[3104]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3098*/ curfptr[3097]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3098*/ curfptr[3097]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3098*/ curfptr[3097]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3097*/ curfptr[3096]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3106*/ curfptr[3105]);
+ meltgc_touch(/*_.VALTUP___V3098*/ curfptr[3097]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1696:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3106*/ curfptr[3105]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3098*/ curfptr[3097]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1696:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3107*/ curfptr[3106]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3099*/ curfptr[3098]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3109*/ curfptr[3108]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3108*/ curfptr[3107]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3101*/ curfptr[3100]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3100*/ curfptr[3099]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3109*/ curfptr[3108]);
+ meltgc_touch(/*_.VALTUP___V3101*/ curfptr[3100]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1696:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3103*/ curfptr[3102]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3109*/ curfptr[3108]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3095*/ curfptr[3094]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3101*/ curfptr[3100]);
  
- MELT_LOCATION("warmelt-first.melt:1701:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1696:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3103*/ curfptr[3102]);
+ meltgc_touch(/*_.VALDATA___V3095*/ curfptr[3094]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3110*/ curfptr[3109])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3102*/ curfptr[3101])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3110*/ curfptr[3109]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3110*/ curfptr[3109]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3111*/ curfptr[3110]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3102*/ curfptr[3101]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3102*/ curfptr[3101]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3103*/ curfptr[3102]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3110*/ curfptr[3109]);
+ meltgc_touch(/*_.VALDATA___V3102*/ curfptr[3101]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3113*/ curfptr[3112]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3105*/ curfptr[3104]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3078*/ curfptr[3077]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1705:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1700:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3114*/ curfptr[3113]);
+ meltgc_touch(/*_.VALDATA___V3106*/ curfptr[3105]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1705:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1700:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3115*/ curfptr[3114]);
+ meltgc_touch(/*_.VALDATA___V3107*/ curfptr[3106]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3116*/ curfptr[3115]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3116*/ curfptr[3115]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3116*/ curfptr[3115]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3114*/ curfptr[3113]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3108*/ curfptr[3107]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3108*/ curfptr[3107]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3108*/ curfptr[3107]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3106*/ curfptr[3105]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3116*/ curfptr[3115]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3116*/ curfptr[3115]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3116*/ curfptr[3115]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3108*/ curfptr[3107]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3108*/ curfptr[3107]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3108*/ curfptr[3107]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3107*/ curfptr[3106]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3116*/ curfptr[3115]);
+ meltgc_touch(/*_.VALTUP___V3108*/ curfptr[3107]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3116*/ curfptr[3115]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3108*/ curfptr[3107]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3117*/ curfptr[3116]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3109*/ curfptr[3108]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3118*/ curfptr[3117]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3110*/ curfptr[3109]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3119*/ curfptr[3118]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3112*/ curfptr[3111]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3111*/ curfptr[3110]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3120*/ curfptr[3119]);
+ meltgc_touch(/*_.VALTUP___V3112*/ curfptr[3111]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1700:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3112*/ curfptr[3111]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3120*/ curfptr[3119]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3104*/ curfptr[3103]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3112*/ curfptr[3111]);
  
- MELT_LOCATION("warmelt-first.melt:1705:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1700:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3112*/ curfptr[3111]);
+ meltgc_touch(/*_.VALDATA___V3104*/ curfptr[3103]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3121*/ curfptr[3120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3113*/ curfptr[3112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3121*/ curfptr[3120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3121*/ curfptr[3120]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3122*/ curfptr[3121]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3113*/ curfptr[3112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3113*/ curfptr[3112]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3114*/ curfptr[3113]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3121*/ curfptr[3120]);
+ meltgc_touch(/*_.VALDATA___V3113*/ curfptr[3112]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1707:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3124*/ curfptr[3123]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3116*/ curfptr[3115]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3127*/ curfptr[3126]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3119*/ curfptr[3118]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3126*/ curfptr[3125]);
+ meltgc_touch(/*_.VALDATA___V3118*/ curfptr[3117]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1707:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3118*/ curfptr[3117]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1707:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1712:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1707:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3125*/ curfptr[3124]);
+ meltgc_touch(/*_.VALDATA___V3117*/ curfptr[3116]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3128*/ curfptr[3127]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3128*/ curfptr[3127]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3128*/ curfptr[3127]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3125*/ curfptr[3124]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3120*/ curfptr[3119]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3117*/ curfptr[3116]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3128*/ curfptr[3127]);
+ meltgc_touch(/*_.VALTUP___V3120*/ curfptr[3119]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1707:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3128*/ curfptr[3127]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3120*/ curfptr[3119]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1707:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3129*/ curfptr[3128]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3121*/ curfptr[3120]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3131*/ curfptr[3130]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3130*/ curfptr[3129]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3123*/ curfptr[3122]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3122*/ curfptr[3121]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3131*/ curfptr[3130]);
+ meltgc_touch(/*_.VALTUP___V3123*/ curfptr[3122]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1707:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3123*/ curfptr[3122]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3131*/ curfptr[3130]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3115*/ curfptr[3114]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3123*/ curfptr[3122]);
  
- MELT_LOCATION("warmelt-first.melt:1712:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1707:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3123*/ curfptr[3122]);
+ meltgc_touch(/*_.VALDATA___V3115*/ curfptr[3114]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3132*/ curfptr[3131])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3124*/ curfptr[3123])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3132*/ curfptr[3131]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3132*/ curfptr[3131]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3133*/ curfptr[3132]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3124*/ curfptr[3123]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3124*/ curfptr[3123]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3125*/ curfptr[3124]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3132*/ curfptr[3131]);
+ meltgc_touch(/*_.VALDATA___V3124*/ curfptr[3123]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3135*/ curfptr[3134]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3127*/ curfptr[3126]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3118*/ curfptr[3117]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1715:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1710:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3136*/ curfptr[3135]);
+ meltgc_touch(/*_.VALDATA___V3128*/ curfptr[3127]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3137*/ curfptr[3136]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3137*/ curfptr[3136]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3137*/ curfptr[3136]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3136*/ curfptr[3135]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3129*/ curfptr[3128]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3129*/ curfptr[3128]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3129*/ curfptr[3128]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3128*/ curfptr[3127]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3137*/ curfptr[3136]);
+ meltgc_touch(/*_.VALTUP___V3129*/ curfptr[3128]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3137*/ curfptr[3136]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3129*/ curfptr[3128]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3138*/ curfptr[3137]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3130*/ curfptr[3129]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3140*/ curfptr[3139]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3139*/ curfptr[3138]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3132*/ curfptr[3131]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3131*/ curfptr[3130]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3140*/ curfptr[3139]);
+ meltgc_touch(/*_.VALTUP___V3132*/ curfptr[3131]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1710:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3134*/ curfptr[3133]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3140*/ curfptr[3139]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3132*/ curfptr[3131]);
  
- MELT_LOCATION("warmelt-first.melt:1715:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1710:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3134*/ curfptr[3133]);
+ meltgc_touch(/*_.VALDATA___V3126*/ curfptr[3125]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3141*/ curfptr[3140])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3133*/ curfptr[3132])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3141*/ curfptr[3140]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3141*/ curfptr[3140]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3142*/ curfptr[3141]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3133*/ curfptr[3132]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3133*/ curfptr[3132]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3134*/ curfptr[3133]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3141*/ curfptr[3140]);
+ meltgc_touch(/*_.VALDATA___V3133*/ curfptr[3132]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1713:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3144*/ curfptr[3143]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3136*/ curfptr[3135]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1713:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3118*/ curfptr[3117]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1713:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1718:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1713:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3145*/ curfptr[3144]);
+ meltgc_touch(/*_.VALDATA___V3137*/ curfptr[3136]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3146*/ curfptr[3145]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3146*/ curfptr[3145]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3146*/ curfptr[3145]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3145*/ curfptr[3144]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3138*/ curfptr[3137]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3138*/ curfptr[3137]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3138*/ curfptr[3137]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3137*/ curfptr[3136]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3146*/ curfptr[3145]);
+ meltgc_touch(/*_.VALTUP___V3138*/ curfptr[3137]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1713:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3146*/ curfptr[3145]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3138*/ curfptr[3137]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1713:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3147*/ curfptr[3146]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3139*/ curfptr[3138]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3149*/ curfptr[3148]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3148*/ curfptr[3147]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3141*/ curfptr[3140]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3140*/ curfptr[3139]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3149*/ curfptr[3148]);
+ meltgc_touch(/*_.VALTUP___V3141*/ curfptr[3140]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1713:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3143*/ curfptr[3142]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3149*/ curfptr[3148]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3135*/ curfptr[3134]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3141*/ curfptr[3140]);
  
- MELT_LOCATION("warmelt-first.melt:1718:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1713:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3143*/ curfptr[3142]);
+ meltgc_touch(/*_.VALDATA___V3135*/ curfptr[3134]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3150*/ curfptr[3149])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3142*/ curfptr[3141])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3150*/ curfptr[3149]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3150*/ curfptr[3149]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3151*/ curfptr[3150]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3142*/ curfptr[3141]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3142*/ curfptr[3141]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3143*/ curfptr[3142]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3150*/ curfptr[3149]);
+ meltgc_touch(/*_.VALDATA___V3142*/ curfptr[3141]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3153*/ curfptr[3152]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3145*/ curfptr[3144]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3118*/ curfptr[3117]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1721:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1716:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3154*/ curfptr[3153]);
+ meltgc_touch(/*_.VALDATA___V3146*/ curfptr[3145]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1721:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1716:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3155*/ curfptr[3154]);
+ meltgc_touch(/*_.VALDATA___V3147*/ curfptr[3146]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3156*/ curfptr[3155]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3156*/ curfptr[3155]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3156*/ curfptr[3155]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3154*/ curfptr[3153]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3148*/ curfptr[3147]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3148*/ curfptr[3147]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3148*/ curfptr[3147]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3146*/ curfptr[3145]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3156*/ curfptr[3155]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3156*/ curfptr[3155]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3156*/ curfptr[3155]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3148*/ curfptr[3147]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3148*/ curfptr[3147]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3148*/ curfptr[3147]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3147*/ curfptr[3146]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3156*/ curfptr[3155]);
+ meltgc_touch(/*_.VALTUP___V3148*/ curfptr[3147]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3156*/ curfptr[3155]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3148*/ curfptr[3147]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3157*/ curfptr[3156]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3149*/ curfptr[3148]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3158*/ curfptr[3157]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3150*/ curfptr[3149]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3159*/ curfptr[3158]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3152*/ curfptr[3151]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3151*/ curfptr[3150]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3160*/ curfptr[3159]);
+ meltgc_touch(/*_.VALTUP___V3152*/ curfptr[3151]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1716:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3152*/ curfptr[3151]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3160*/ curfptr[3159]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3144*/ curfptr[3143]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3152*/ curfptr[3151]);
  
- MELT_LOCATION("warmelt-first.melt:1721:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1716:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3152*/ curfptr[3151]);
+ meltgc_touch(/*_.VALDATA___V3144*/ curfptr[3143]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3161*/ curfptr[3160])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3153*/ curfptr[3152])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3161*/ curfptr[3160]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3161*/ curfptr[3160]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3162*/ curfptr[3161]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3153*/ curfptr[3152]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3153*/ curfptr[3152]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3154*/ curfptr[3153]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3161*/ curfptr[3160]);
+ meltgc_touch(/*_.VALDATA___V3153*/ curfptr[3152]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1722:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3164*/ curfptr[3163]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3156*/ curfptr[3155]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3158*/ curfptr[3157])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3167*/ curfptr[3166]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3158*/ curfptr[3157]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3158*/ curfptr[3157]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3159*/ curfptr[3158]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3166*/ curfptr[3165]);
+ meltgc_touch(/*_.VALDATA___V3158*/ curfptr[3157]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1722:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3166*/ curfptr[3165]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3158*/ curfptr[3157]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1722:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1727:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1722:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3165*/ curfptr[3164]);
+ meltgc_touch(/*_.VALDATA___V3157*/ curfptr[3156]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3168*/ curfptr[3167]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3168*/ curfptr[3167]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3168*/ curfptr[3167]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3165*/ curfptr[3164]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3160*/ curfptr[3159]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3157*/ curfptr[3156]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3168*/ curfptr[3167]);
+ meltgc_touch(/*_.VALTUP___V3160*/ curfptr[3159]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1722:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3168*/ curfptr[3167]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3160*/ curfptr[3159]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1722:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3169*/ curfptr[3168]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3161*/ curfptr[3160]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3158*/ curfptr[3157]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3171*/ curfptr[3170]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3170*/ curfptr[3169]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3163*/ curfptr[3162]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3162*/ curfptr[3161]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3171*/ curfptr[3170]);
+ meltgc_touch(/*_.VALTUP___V3163*/ curfptr[3162]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1722:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3163*/ curfptr[3162]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3171*/ curfptr[3170]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3155*/ curfptr[3154]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3163*/ curfptr[3162]);
  
- MELT_LOCATION("warmelt-first.melt:1727:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1722:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3163*/ curfptr[3162]);
+ meltgc_touch(/*_.VALDATA___V3155*/ curfptr[3154]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3172*/ curfptr[3171])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3164*/ curfptr[3163])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3172*/ curfptr[3171]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3172*/ curfptr[3171]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3173*/ curfptr[3172]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3164*/ curfptr[3163]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3164*/ curfptr[3163]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3165*/ curfptr[3164]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3172*/ curfptr[3171]);
+ meltgc_touch(/*_.VALDATA___V3164*/ curfptr[3163]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3175*/ curfptr[3174]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3167*/ curfptr[3166]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1732:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1727:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3176*/ curfptr[3175]);
+ meltgc_touch(/*_.VALDATA___V3168*/ curfptr[3167]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1732:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1727:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3177*/ curfptr[3176]);
+ meltgc_touch(/*_.VALDATA___V3169*/ curfptr[3168]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3178*/ curfptr[3177]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3178*/ curfptr[3177]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3178*/ curfptr[3177]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3176*/ curfptr[3175]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3170*/ curfptr[3169]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3170*/ curfptr[3169]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3170*/ curfptr[3169]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3168*/ curfptr[3167]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3178*/ curfptr[3177]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3178*/ curfptr[3177]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3178*/ curfptr[3177]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3177*/ curfptr[3176]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3170*/ curfptr[3169]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3170*/ curfptr[3169]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3170*/ curfptr[3169]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3169*/ curfptr[3168]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3178*/ curfptr[3177]);
+ meltgc_touch(/*_.VALTUP___V3170*/ curfptr[3169]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3178*/ curfptr[3177]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3170*/ curfptr[3169]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3179*/ curfptr[3178]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3171*/ curfptr[3170]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3180*/ curfptr[3179]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3172*/ curfptr[3171]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3182*/ curfptr[3181]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3181*/ curfptr[3180]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3174*/ curfptr[3173]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3173*/ curfptr[3172]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3182*/ curfptr[3181]);
+ meltgc_touch(/*_.VALTUP___V3174*/ curfptr[3173]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1727:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3174*/ curfptr[3173]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3182*/ curfptr[3181]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3174*/ curfptr[3173]);
  
- MELT_LOCATION("warmelt-first.melt:1732:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1727:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3174*/ curfptr[3173]);
+ meltgc_touch(/*_.VALDATA___V3166*/ curfptr[3165]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3184*/ curfptr[3183]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3176*/ curfptr[3175]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3185*/ curfptr[3184]);
+ meltgc_touch(/*_.VALTUP___V3177*/ curfptr[3176]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3185*/ curfptr[3184]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3177*/ curfptr[3176]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3188*/ curfptr[3187]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3180*/ curfptr[3179]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3187*/ curfptr[3186]);
+ meltgc_touch(/*_.VALDATA___V3179*/ curfptr[3178]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3186*/ curfptr[3185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3178*/ curfptr[3177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3186*/ curfptr[3185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3186*/ curfptr[3185]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3187*/ curfptr[3186]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3178*/ curfptr[3177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3178*/ curfptr[3177]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3179*/ curfptr[3178]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3186*/ curfptr[3185])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3178*/ curfptr[3177])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3186*/ curfptr[3185]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3186*/ curfptr[3185]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3178*/ curfptr[3177]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3178*/ curfptr[3177]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3186*/ curfptr[3185]);
+ meltgc_touch(/*_.VALDATA___V3178*/ curfptr[3177]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V3186*/ curfptr[3185]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V3178*/ curfptr[3177]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3190*/ curfptr[3189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3182*/ curfptr[3181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3190*/ curfptr[3189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3190*/ curfptr[3189]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3191*/ curfptr[3190]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3182*/ curfptr[3181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3182*/ curfptr[3181]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3183*/ curfptr[3182]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3190*/ curfptr[3189]);
+ meltgc_touch(/*_.VALDATA___V3182*/ curfptr[3181]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3190*/ curfptr[3189]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3182*/ curfptr[3181]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3189*/ curfptr[3188]);
+ meltgc_touch(/*_.VALDATA___V3181*/ curfptr[3180]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3192*/ curfptr[3191]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3192*/ curfptr[3191]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3192*/ curfptr[3191]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3189*/ curfptr[3188]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3184*/ curfptr[3183]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3184*/ curfptr[3183]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3184*/ curfptr[3183]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3181*/ curfptr[3180]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3192*/ curfptr[3191]);
+ meltgc_touch(/*_.VALTUP___V3184*/ curfptr[3183]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3192*/ curfptr[3191]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3184*/ curfptr[3183]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3193*/ curfptr[3192])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3185*/ curfptr[3184])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3193*/ curfptr[3192]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3193*/ curfptr[3192]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3194*/ curfptr[3193]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3185*/ curfptr[3184]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3185*/ curfptr[3184]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3186*/ curfptr[3185]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3193*/ curfptr[3192]);
+ meltgc_touch(/*_.VALDATA___V3185*/ curfptr[3184]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALDATA___V3193*/ curfptr[3192]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALDATA___V3185*/ curfptr[3184]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3195*/ curfptr[3194]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3187*/ curfptr[3186]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3193*/ curfptr[3192]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3185*/ curfptr[3184]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3196*/ curfptr[3195]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3188*/ curfptr[3187]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3197*/ curfptr[3196]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3189*/ curfptr[3188]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3199*/ curfptr[3198]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3198*/ curfptr[3197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3191*/ curfptr[3190]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3190*/ curfptr[3189]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3199*/ curfptr[3198]);
+ meltgc_touch(/*_.VALTUP___V3191*/ curfptr[3190]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V3199*/ curfptr[3198]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V3191*/ curfptr[3190]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3200*/ curfptr[3199]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3192*/ curfptr[3191]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3193*/ curfptr[3192]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3185*/ curfptr[3184]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3201*/ curfptr[3200]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3193*/ curfptr[3192]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3190*/ curfptr[3189]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3182*/ curfptr[3181]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3202*/ curfptr[3201]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3194*/ curfptr[3193]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3203*/ curfptr[3202]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3196*/ curfptr[3195]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3195*/ curfptr[3194]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3204*/ curfptr[3203]);
+ meltgc_touch(/*_.VALTUP___V3196*/ curfptr[3195]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1732:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3183*/ curfptr[3182]))->obj_vartab[7] = (melt_ptr_t)(
-  /*_.VALTUP___V3204*/ curfptr[3203]);
+ melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3175*/ curfptr[3174]))->obj_vartab[7] = (melt_ptr_t)(
+  /*_.VALTUP___V3196*/ curfptr[3195]);
  
- MELT_LOCATION("warmelt-first.melt:1737:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1732:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3183*/ curfptr[3182]);
+ meltgc_touch(/*_.VALDATA___V3175*/ curfptr[3174]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3205*/ curfptr[3204])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3197*/ curfptr[3196])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3205*/ curfptr[3204]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3205*/ curfptr[3204]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3206*/ curfptr[3205]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3197*/ curfptr[3196]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3197*/ curfptr[3196]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3198*/ curfptr[3197]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3205*/ curfptr[3204]);
+ meltgc_touch(/*_.VALDATA___V3197*/ curfptr[3196]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1749:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3208*/ curfptr[3207]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3200*/ curfptr[3199]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3211*/ curfptr[3210]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3203*/ curfptr[3202]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3210*/ curfptr[3209]);
+ meltgc_touch(/*_.VALDATA___V3202*/ curfptr[3201]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1749:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3210*/ curfptr[3209]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3202*/ curfptr[3201]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1749:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1754:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1749:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3209*/ curfptr[3208]);
+ meltgc_touch(/*_.VALDATA___V3201*/ curfptr[3200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3212*/ curfptr[3211]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3212*/ curfptr[3211]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3212*/ curfptr[3211]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3209*/ curfptr[3208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3204*/ curfptr[3203]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3201*/ curfptr[3200]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3212*/ curfptr[3211]);
+ meltgc_touch(/*_.VALTUP___V3204*/ curfptr[3203]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1749:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3212*/ curfptr[3211]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3204*/ curfptr[3203]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1749:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3213*/ curfptr[3212]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3205*/ curfptr[3204]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3215*/ curfptr[3214]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3214*/ curfptr[3213]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3207*/ curfptr[3206]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3206*/ curfptr[3205]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3215*/ curfptr[3214]);
+ meltgc_touch(/*_.VALTUP___V3207*/ curfptr[3206]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1749:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3207*/ curfptr[3206]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3215*/ curfptr[3214]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3199*/ curfptr[3198]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3207*/ curfptr[3206]);
  
- MELT_LOCATION("warmelt-first.melt:1754:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1749:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3207*/ curfptr[3206]);
+ meltgc_touch(/*_.VALDATA___V3199*/ curfptr[3198]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3216*/ curfptr[3215])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3208*/ curfptr[3207])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3216*/ curfptr[3215]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3216*/ curfptr[3215]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3217*/ curfptr[3216]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3208*/ curfptr[3207]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3208*/ curfptr[3207]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3209*/ curfptr[3208]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3216*/ curfptr[3215]);
+ meltgc_touch(/*_.VALDATA___V3208*/ curfptr[3207]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1753:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3219*/ curfptr[3218]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3211*/ curfptr[3210]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1753:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3210*/ curfptr[3209]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3202*/ curfptr[3201]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1753:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1758:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1753:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3220*/ curfptr[3219]);
+ meltgc_touch(/*_.VALDATA___V3212*/ curfptr[3211]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3221*/ curfptr[3220]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3221*/ curfptr[3220]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3221*/ curfptr[3220]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3220*/ curfptr[3219]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3213*/ curfptr[3212]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3213*/ curfptr[3212]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3213*/ curfptr[3212]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3212*/ curfptr[3211]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3221*/ curfptr[3220]);
+ meltgc_touch(/*_.VALTUP___V3213*/ curfptr[3212]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1753:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3221*/ curfptr[3220]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3213*/ curfptr[3212]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1753:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3222*/ curfptr[3221]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3214*/ curfptr[3213]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3224*/ curfptr[3223]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3223*/ curfptr[3222]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3216*/ curfptr[3215]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3215*/ curfptr[3214]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3224*/ curfptr[3223]);
+ meltgc_touch(/*_.VALTUP___V3216*/ curfptr[3215]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1753:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3218*/ curfptr[3217]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3224*/ curfptr[3223]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3216*/ curfptr[3215]);
  
- MELT_LOCATION("warmelt-first.melt:1758:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1753:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3218*/ curfptr[3217]);
+ meltgc_touch(/*_.VALDATA___V3210*/ curfptr[3209]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3225*/ curfptr[3224])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3217*/ curfptr[3216])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3225*/ curfptr[3224]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3225*/ curfptr[3224]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3226*/ curfptr[3225]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3217*/ curfptr[3216]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3217*/ curfptr[3216]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3218*/ curfptr[3217]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3225*/ curfptr[3224]);
+ meltgc_touch(/*_.VALDATA___V3217*/ curfptr[3216]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3228*/ curfptr[3227]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3220*/ curfptr[3219]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3210*/ curfptr[3209]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3202*/ curfptr[3201]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1762:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1757:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3229*/ curfptr[3228]);
+ meltgc_touch(/*_.VALDATA___V3221*/ curfptr[3220]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1762:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1757:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3230*/ curfptr[3229]);
+ meltgc_touch(/*_.VALDATA___V3222*/ curfptr[3221]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3231*/ curfptr[3230]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3231*/ curfptr[3230]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3231*/ curfptr[3230]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3229*/ curfptr[3228]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3223*/ curfptr[3222]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3223*/ curfptr[3222]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3223*/ curfptr[3222]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3221*/ curfptr[3220]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3231*/ curfptr[3230]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3231*/ curfptr[3230]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3231*/ curfptr[3230]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3223*/ curfptr[3222]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3223*/ curfptr[3222]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3223*/ curfptr[3222]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3222*/ curfptr[3221]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3231*/ curfptr[3230]);
+ meltgc_touch(/*_.VALTUP___V3223*/ curfptr[3222]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3231*/ curfptr[3230]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3223*/ curfptr[3222]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3232*/ curfptr[3231]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3224*/ curfptr[3223]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3233*/ curfptr[3232]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3225*/ curfptr[3224]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3235*/ curfptr[3234]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3234*/ curfptr[3233]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3227*/ curfptr[3226]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3226*/ curfptr[3225]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3235*/ curfptr[3234]);
+ meltgc_touch(/*_.VALTUP___V3227*/ curfptr[3226]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1757:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3227*/ curfptr[3226]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3235*/ curfptr[3234]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3219*/ curfptr[3218]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3227*/ curfptr[3226]);
  
- MELT_LOCATION("warmelt-first.melt:1762:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1757:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3227*/ curfptr[3226]);
+ meltgc_touch(/*_.VALDATA___V3219*/ curfptr[3218]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3236*/ curfptr[3235])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3228*/ curfptr[3227])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3236*/ curfptr[3235]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3236*/ curfptr[3235]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3237*/ curfptr[3236]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3228*/ curfptr[3227]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3228*/ curfptr[3227]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3229*/ curfptr[3228]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3236*/ curfptr[3235]);
+ meltgc_touch(/*_.VALDATA___V3228*/ curfptr[3227]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3239*/ curfptr[3238]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3231*/ curfptr[3230]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1766:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1761:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3240*/ curfptr[3239]);
+ meltgc_touch(/*_.VALDATA___V3232*/ curfptr[3231]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3242*/ curfptr[3241])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3234*/ curfptr[3233])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3242*/ curfptr[3241]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3242*/ curfptr[3241]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3243*/ curfptr[3242]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3234*/ curfptr[3233]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3234*/ curfptr[3233]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3235*/ curfptr[3234]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3242*/ curfptr[3241]);
+ meltgc_touch(/*_.VALDATA___V3234*/ curfptr[3233]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3242*/ curfptr[3241]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3234*/ curfptr[3233]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1766:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1761:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3241*/ curfptr[3240]);
+ meltgc_touch(/*_.VALDATA___V3233*/ curfptr[3232]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3244*/ curfptr[3243]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3244*/ curfptr[3243]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3244*/ curfptr[3243]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3240*/ curfptr[3239]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3236*/ curfptr[3235]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3236*/ curfptr[3235]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3236*/ curfptr[3235]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3232*/ curfptr[3231]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3244*/ curfptr[3243]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3244*/ curfptr[3243]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3244*/ curfptr[3243]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3236*/ curfptr[3235]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3236*/ curfptr[3235]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3236*/ curfptr[3235]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3233*/ curfptr[3232]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3244*/ curfptr[3243]);
+ meltgc_touch(/*_.VALTUP___V3236*/ curfptr[3235]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3244*/ curfptr[3243]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3236*/ curfptr[3235]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3245*/ curfptr[3244]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3237*/ curfptr[3236]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3246*/ curfptr[3245]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3238*/ curfptr[3237]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3242*/ curfptr[3241]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3234*/ curfptr[3233]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3247*/ curfptr[3246]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3240*/ curfptr[3239]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3239*/ curfptr[3238]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3248*/ curfptr[3247]);
+ meltgc_touch(/*_.VALTUP___V3240*/ curfptr[3239]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1761:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3238*/ curfptr[3237]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3248*/ curfptr[3247]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3230*/ curfptr[3229]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3240*/ curfptr[3239]);
  
- MELT_LOCATION("warmelt-first.melt:1766:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1761:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3238*/ curfptr[3237]);
+ meltgc_touch(/*_.VALDATA___V3230*/ curfptr[3229]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3249*/ curfptr[3248])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3249*/ curfptr[3248]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3249*/ curfptr[3248]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3250*/ curfptr[3249]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3242*/ curfptr[3241]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3249*/ curfptr[3248]);
+ meltgc_touch(/*_.VALDATA___V3241*/ curfptr[3240]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1767:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3252*/ curfptr[3251]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3244*/ curfptr[3243]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3255*/ curfptr[3254]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3247*/ curfptr[3246]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3254*/ curfptr[3253]);
+ meltgc_touch(/*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1767:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1767:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1772:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1767:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3253*/ curfptr[3252]);
+ meltgc_touch(/*_.VALDATA___V3245*/ curfptr[3244]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3256*/ curfptr[3255]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3256*/ curfptr[3255]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3256*/ curfptr[3255]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3253*/ curfptr[3252]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3248*/ curfptr[3247]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3245*/ curfptr[3244]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3256*/ curfptr[3255]);
+ meltgc_touch(/*_.VALTUP___V3248*/ curfptr[3247]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1767:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3256*/ curfptr[3255]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3248*/ curfptr[3247]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1767:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3257*/ curfptr[3256]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3249*/ curfptr[3248]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3259*/ curfptr[3258]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3258*/ curfptr[3257]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3251*/ curfptr[3250]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3250*/ curfptr[3249]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3259*/ curfptr[3258]);
+ meltgc_touch(/*_.VALTUP___V3251*/ curfptr[3250]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1767:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3251*/ curfptr[3250]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3259*/ curfptr[3258]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3243*/ curfptr[3242]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3251*/ curfptr[3250]);
  
- MELT_LOCATION("warmelt-first.melt:1772:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1767:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3251*/ curfptr[3250]);
+ meltgc_touch(/*_.VALDATA___V3243*/ curfptr[3242]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3260*/ curfptr[3259])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3252*/ curfptr[3251])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3260*/ curfptr[3259]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3260*/ curfptr[3259]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3261*/ curfptr[3260]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3252*/ curfptr[3251]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3252*/ curfptr[3251]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3253*/ curfptr[3252]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3260*/ curfptr[3259]);
+ meltgc_touch(/*_.VALDATA___V3252*/ curfptr[3251]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1770:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3263*/ curfptr[3262]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3255*/ curfptr[3254]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1770:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1770:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1775:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1770:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3264*/ curfptr[3263]);
+ meltgc_touch(/*_.VALDATA___V3256*/ curfptr[3255]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3265*/ curfptr[3264]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3265*/ curfptr[3264]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3265*/ curfptr[3264]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3257*/ curfptr[3256]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3257*/ curfptr[3256]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3257*/ curfptr[3256]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3256*/ curfptr[3255]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3265*/ curfptr[3264]);
+ meltgc_touch(/*_.VALTUP___V3257*/ curfptr[3256]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1770:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3265*/ curfptr[3264]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3257*/ curfptr[3256]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1770:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3266*/ curfptr[3265]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3258*/ curfptr[3257]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3267*/ curfptr[3266]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3259*/ curfptr[3258]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3269*/ curfptr[3268]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3268*/ curfptr[3267]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3261*/ curfptr[3260]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3260*/ curfptr[3259]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3269*/ curfptr[3268]);
+ meltgc_touch(/*_.VALTUP___V3261*/ curfptr[3260]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1770:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3269*/ curfptr[3268]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3261*/ curfptr[3260]);
  
- MELT_LOCATION("warmelt-first.melt:1775:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1770:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3262*/ curfptr[3261]);
+ meltgc_touch(/*_.VALDATA___V3254*/ curfptr[3253]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3270*/ curfptr[3269])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3270*/ curfptr[3269]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3270*/ curfptr[3269]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3271*/ curfptr[3270]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3263*/ curfptr[3262]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3270*/ curfptr[3269]);
+ meltgc_touch(/*_.VALDATA___V3262*/ curfptr[3261]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3273*/ curfptr[3272]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3265*/ curfptr[3264]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1780:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1775:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3274*/ curfptr[3273]);
+ meltgc_touch(/*_.VALDATA___V3266*/ curfptr[3265]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3275*/ curfptr[3274]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3275*/ curfptr[3274]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3275*/ curfptr[3274]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3274*/ curfptr[3273]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3267*/ curfptr[3266]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3267*/ curfptr[3266]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3267*/ curfptr[3266]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3266*/ curfptr[3265]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3275*/ curfptr[3274]);
+ meltgc_touch(/*_.VALTUP___V3267*/ curfptr[3266]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3275*/ curfptr[3274]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3267*/ curfptr[3266]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3276*/ curfptr[3275]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3268*/ curfptr[3267]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3278*/ curfptr[3277]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3277*/ curfptr[3276]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3270*/ curfptr[3269]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3269*/ curfptr[3268]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3278*/ curfptr[3277]);
+ meltgc_touch(/*_.VALTUP___V3270*/ curfptr[3269]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1775:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3272*/ curfptr[3271]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3278*/ curfptr[3277]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3264*/ curfptr[3263]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3270*/ curfptr[3269]);
  
- MELT_LOCATION("warmelt-first.melt:1780:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1775:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3272*/ curfptr[3271]);
+ meltgc_touch(/*_.VALDATA___V3264*/ curfptr[3263]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3279*/ curfptr[3278])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3271*/ curfptr[3270])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3279*/ curfptr[3278]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3279*/ curfptr[3278]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3280*/ curfptr[3279]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3271*/ curfptr[3270]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3271*/ curfptr[3270]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3272*/ curfptr[3271]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3279*/ curfptr[3278]);
+ meltgc_touch(/*_.VALDATA___V3271*/ curfptr[3270]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1779:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3282*/ curfptr[3281]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3274*/ curfptr[3273]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1779:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1779:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1784:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1779:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3283*/ curfptr[3282]);
+ meltgc_touch(/*_.VALDATA___V3275*/ curfptr[3274]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3284*/ curfptr[3283]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3284*/ curfptr[3283]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3284*/ curfptr[3283]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3283*/ curfptr[3282]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3276*/ curfptr[3275]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3276*/ curfptr[3275]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3276*/ curfptr[3275]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3275*/ curfptr[3274]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3284*/ curfptr[3283]);
+ meltgc_touch(/*_.VALTUP___V3276*/ curfptr[3275]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1779:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3284*/ curfptr[3283]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3276*/ curfptr[3275]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1779:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3285*/ curfptr[3284]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3277*/ curfptr[3276]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3287*/ curfptr[3286]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3286*/ curfptr[3285]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3279*/ curfptr[3278]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3278*/ curfptr[3277]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3287*/ curfptr[3286]);
+ meltgc_touch(/*_.VALTUP___V3279*/ curfptr[3278]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1779:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3281*/ curfptr[3280]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3287*/ curfptr[3286]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3273*/ curfptr[3272]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3279*/ curfptr[3278]);
  
- MELT_LOCATION("warmelt-first.melt:1784:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1779:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3281*/ curfptr[3280]);
+ meltgc_touch(/*_.VALDATA___V3273*/ curfptr[3272]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3288*/ curfptr[3287])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3280*/ curfptr[3279])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3288*/ curfptr[3287]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3288*/ curfptr[3287]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3289*/ curfptr[3288]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3280*/ curfptr[3279]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3280*/ curfptr[3279]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3281*/ curfptr[3280]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3288*/ curfptr[3287]);
+ meltgc_touch(/*_.VALDATA___V3280*/ curfptr[3279]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1783:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3291*/ curfptr[3290]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3283*/ curfptr[3282]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1783:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1783:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1788:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1783:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3292*/ curfptr[3291]);
+ meltgc_touch(/*_.VALDATA___V3284*/ curfptr[3283]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3293*/ curfptr[3292]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3293*/ curfptr[3292]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3293*/ curfptr[3292]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3292*/ curfptr[3291]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3285*/ curfptr[3284]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3285*/ curfptr[3284]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3285*/ curfptr[3284]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3284*/ curfptr[3283]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3293*/ curfptr[3292]);
+ meltgc_touch(/*_.VALTUP___V3285*/ curfptr[3284]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1783:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3293*/ curfptr[3292]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3285*/ curfptr[3284]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1783:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3294*/ curfptr[3293]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3286*/ curfptr[3285]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3296*/ curfptr[3295]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3295*/ curfptr[3294]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3288*/ curfptr[3287]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3287*/ curfptr[3286]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3296*/ curfptr[3295]);
+ meltgc_touch(/*_.VALTUP___V3288*/ curfptr[3287]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1783:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3290*/ curfptr[3289]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3296*/ curfptr[3295]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3282*/ curfptr[3281]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3288*/ curfptr[3287]);
  
- MELT_LOCATION("warmelt-first.melt:1788:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1783:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3290*/ curfptr[3289]);
+ meltgc_touch(/*_.VALDATA___V3282*/ curfptr[3281]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3297*/ curfptr[3296])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3289*/ curfptr[3288])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3297*/ curfptr[3296]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3297*/ curfptr[3296]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3298*/ curfptr[3297]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3289*/ curfptr[3288]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3289*/ curfptr[3288]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3290*/ curfptr[3289]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3297*/ curfptr[3296]);
+ meltgc_touch(/*_.VALDATA___V3289*/ curfptr[3288]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3300*/ curfptr[3299]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3292*/ curfptr[3291]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1792:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1787:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3301*/ curfptr[3300]);
+ meltgc_touch(/*_.VALDATA___V3293*/ curfptr[3292]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3303*/ curfptr[3302])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3295*/ curfptr[3294])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3303*/ curfptr[3302]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3303*/ curfptr[3302]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3304*/ curfptr[3303]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3295*/ curfptr[3294]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3295*/ curfptr[3294]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3296*/ curfptr[3295]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3303*/ curfptr[3302]);
+ meltgc_touch(/*_.VALDATA___V3295*/ curfptr[3294]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3303*/ curfptr[3302]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3295*/ curfptr[3294]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1792:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1787:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3302*/ curfptr[3301]);
+ meltgc_touch(/*_.VALDATA___V3294*/ curfptr[3293]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3305*/ curfptr[3304]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3305*/ curfptr[3304]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3305*/ curfptr[3304]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3301*/ curfptr[3300]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3297*/ curfptr[3296]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3297*/ curfptr[3296]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3297*/ curfptr[3296]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3293*/ curfptr[3292]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3305*/ curfptr[3304]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3305*/ curfptr[3304]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3305*/ curfptr[3304]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3297*/ curfptr[3296]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3297*/ curfptr[3296]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3297*/ curfptr[3296]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3294*/ curfptr[3293]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3305*/ curfptr[3304]);
+ meltgc_touch(/*_.VALTUP___V3297*/ curfptr[3296]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3305*/ curfptr[3304]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3297*/ curfptr[3296]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3306*/ curfptr[3305]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3298*/ curfptr[3297]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3307*/ curfptr[3306]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3299*/ curfptr[3298]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3303*/ curfptr[3302]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3295*/ curfptr[3294]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3309*/ curfptr[3308]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3308*/ curfptr[3307]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3301*/ curfptr[3300]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3300*/ curfptr[3299]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3309*/ curfptr[3308]);
+ meltgc_touch(/*_.VALTUP___V3301*/ curfptr[3300]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1787:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3299*/ curfptr[3298]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3309*/ curfptr[3308]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3291*/ curfptr[3290]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3301*/ curfptr[3300]);
  
- MELT_LOCATION("warmelt-first.melt:1792:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1787:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3299*/ curfptr[3298]);
+ meltgc_touch(/*_.VALDATA___V3291*/ curfptr[3290]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3310*/ curfptr[3309])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3310*/ curfptr[3309]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3310*/ curfptr[3309]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3311*/ curfptr[3310]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3303*/ curfptr[3302]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3310*/ curfptr[3309]);
+ meltgc_touch(/*_.VALDATA___V3302*/ curfptr[3301]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3313*/ curfptr[3312]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3305*/ curfptr[3304]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1796:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1791:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3314*/ curfptr[3313]);
+ meltgc_touch(/*_.VALDATA___V3306*/ curfptr[3305]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3303*/ curfptr[3302]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3295*/ curfptr[3294]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1796:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1791:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3315*/ curfptr[3314]);
+ meltgc_touch(/*_.VALDATA___V3307*/ curfptr[3306]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3316*/ curfptr[3315]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3316*/ curfptr[3315]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3316*/ curfptr[3315]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3314*/ curfptr[3313]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3308*/ curfptr[3307]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3308*/ curfptr[3307]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3308*/ curfptr[3307]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3306*/ curfptr[3305]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3316*/ curfptr[3315]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3316*/ curfptr[3315]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3316*/ curfptr[3315]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3308*/ curfptr[3307]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3308*/ curfptr[3307]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3308*/ curfptr[3307]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3307*/ curfptr[3306]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3316*/ curfptr[3315]);
+ meltgc_touch(/*_.VALTUP___V3308*/ curfptr[3307]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3316*/ curfptr[3315]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3308*/ curfptr[3307]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3317*/ curfptr[3316]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3309*/ curfptr[3308]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3318*/ curfptr[3317]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3310*/ curfptr[3309]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3303*/ curfptr[3302]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3295*/ curfptr[3294]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3320*/ curfptr[3319]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3319*/ curfptr[3318]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3312*/ curfptr[3311]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3311*/ curfptr[3310]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3320*/ curfptr[3319]);
+ meltgc_touch(/*_.VALTUP___V3312*/ curfptr[3311]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1791:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3312*/ curfptr[3311]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3320*/ curfptr[3319]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3304*/ curfptr[3303]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3312*/ curfptr[3311]);
  
- MELT_LOCATION("warmelt-first.melt:1796:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1791:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3312*/ curfptr[3311]);
+ meltgc_touch(/*_.VALDATA___V3304*/ curfptr[3303]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3321*/ curfptr[3320])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3313*/ curfptr[3312])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3321*/ curfptr[3320]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3321*/ curfptr[3320]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3322*/ curfptr[3321]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3313*/ curfptr[3312]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3313*/ curfptr[3312]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3314*/ curfptr[3313]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3321*/ curfptr[3320]);
+ meltgc_touch(/*_.VALDATA___V3313*/ curfptr[3312]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1795:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3324*/ curfptr[3323]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3316*/ curfptr[3315]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1795:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3246*/ curfptr[3245]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1795:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1800:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1795:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3325*/ curfptr[3324]);
+ meltgc_touch(/*_.VALDATA___V3317*/ curfptr[3316]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3326*/ curfptr[3325]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3326*/ curfptr[3325]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3326*/ curfptr[3325]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3325*/ curfptr[3324]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3318*/ curfptr[3317]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3318*/ curfptr[3317]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3318*/ curfptr[3317]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3317*/ curfptr[3316]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3326*/ curfptr[3325]);
+ meltgc_touch(/*_.VALTUP___V3318*/ curfptr[3317]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1795:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3326*/ curfptr[3325]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3318*/ curfptr[3317]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1795:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3327*/ curfptr[3326]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3319*/ curfptr[3318]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3329*/ curfptr[3328]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3328*/ curfptr[3327]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3321*/ curfptr[3320]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3320*/ curfptr[3319]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3329*/ curfptr[3328]);
+ meltgc_touch(/*_.VALTUP___V3321*/ curfptr[3320]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1795:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3323*/ curfptr[3322]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3329*/ curfptr[3328]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3315*/ curfptr[3314]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3321*/ curfptr[3320]);
  
- MELT_LOCATION("warmelt-first.melt:1800:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1795:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3323*/ curfptr[3322]);
+ meltgc_touch(/*_.VALDATA___V3315*/ curfptr[3314]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3330*/ curfptr[3329])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3322*/ curfptr[3321])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3330*/ curfptr[3329]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3330*/ curfptr[3329]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3331*/ curfptr[3330]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3322*/ curfptr[3321]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3322*/ curfptr[3321]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3323*/ curfptr[3322]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3330*/ curfptr[3329]);
+ meltgc_touch(/*_.VALDATA___V3322*/ curfptr[3321]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1799:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3333*/ curfptr[3332]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3325*/ curfptr[3324]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1799:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1799:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1804:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1799:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3334*/ curfptr[3333]);
+ meltgc_touch(/*_.VALDATA___V3326*/ curfptr[3325]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3335*/ curfptr[3334]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3335*/ curfptr[3334]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3335*/ curfptr[3334]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3334*/ curfptr[3333]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3327*/ curfptr[3326]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3327*/ curfptr[3326]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3327*/ curfptr[3326]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3326*/ curfptr[3325]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3335*/ curfptr[3334]);
+ meltgc_touch(/*_.VALTUP___V3327*/ curfptr[3326]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1799:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3335*/ curfptr[3334]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3327*/ curfptr[3326]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1799:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3336*/ curfptr[3335]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3328*/ curfptr[3327]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3337*/ curfptr[3336]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3330*/ curfptr[3329]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3329*/ curfptr[3328]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3338*/ curfptr[3337]);
+ meltgc_touch(/*_.VALTUP___V3330*/ curfptr[3329]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1799:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3332*/ curfptr[3331]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3338*/ curfptr[3337]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3324*/ curfptr[3323]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3330*/ curfptr[3329]);
  
- MELT_LOCATION("warmelt-first.melt:1804:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1799:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3332*/ curfptr[3331]);
+ meltgc_touch(/*_.VALDATA___V3324*/ curfptr[3323]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3339*/ curfptr[3338])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3331*/ curfptr[3330])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3339*/ curfptr[3338]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3339*/ curfptr[3338]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3340*/ curfptr[3339]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3331*/ curfptr[3330]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3331*/ curfptr[3330]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3332*/ curfptr[3331]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3339*/ curfptr[3338]);
+ meltgc_touch(/*_.VALDATA___V3331*/ curfptr[3330]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1806:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3342*/ curfptr[3341]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3334*/ curfptr[3333]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3345*/ curfptr[3344]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3337*/ curfptr[3336]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3344*/ curfptr[3343]);
+ meltgc_touch(/*_.VALDATA___V3336*/ curfptr[3335]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1806:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3336*/ curfptr[3335]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1806:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1811:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1806:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3343*/ curfptr[3342]);
+ meltgc_touch(/*_.VALDATA___V3335*/ curfptr[3334]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3346*/ curfptr[3345]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3346*/ curfptr[3345]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3346*/ curfptr[3345]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3343*/ curfptr[3342]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3338*/ curfptr[3337]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3335*/ curfptr[3334]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3346*/ curfptr[3345]);
+ meltgc_touch(/*_.VALTUP___V3338*/ curfptr[3337]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1806:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3346*/ curfptr[3345]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3338*/ curfptr[3337]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1806:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3347*/ curfptr[3346]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3339*/ curfptr[3338]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3349*/ curfptr[3348]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3348*/ curfptr[3347]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3341*/ curfptr[3340]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3340*/ curfptr[3339]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3349*/ curfptr[3348]);
+ meltgc_touch(/*_.VALTUP___V3341*/ curfptr[3340]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1806:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3341*/ curfptr[3340]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3349*/ curfptr[3348]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3333*/ curfptr[3332]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3341*/ curfptr[3340]);
  
- MELT_LOCATION("warmelt-first.melt:1811:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1806:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3341*/ curfptr[3340]);
+ meltgc_touch(/*_.VALDATA___V3333*/ curfptr[3332]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3350*/ curfptr[3349])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3342*/ curfptr[3341])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3350*/ curfptr[3349]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3350*/ curfptr[3349]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3351*/ curfptr[3350]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3342*/ curfptr[3341]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3342*/ curfptr[3341]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3343*/ curfptr[3342]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3350*/ curfptr[3349]);
+ meltgc_touch(/*_.VALDATA___V3342*/ curfptr[3341]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1810:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3353*/ curfptr[3352]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3345*/ curfptr[3344]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1810:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3336*/ curfptr[3335]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1810:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1815:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1810:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3354*/ curfptr[3353]);
+ meltgc_touch(/*_.VALDATA___V3346*/ curfptr[3345]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3355*/ curfptr[3354]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3355*/ curfptr[3354]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3355*/ curfptr[3354]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3354*/ curfptr[3353]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3347*/ curfptr[3346]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3347*/ curfptr[3346]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3347*/ curfptr[3346]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3346*/ curfptr[3345]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3355*/ curfptr[3354]);
+ meltgc_touch(/*_.VALTUP___V3347*/ curfptr[3346]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1810:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3355*/ curfptr[3354]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3347*/ curfptr[3346]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1810:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3356*/ curfptr[3355]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3348*/ curfptr[3347]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3358*/ curfptr[3357]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3357*/ curfptr[3356]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3350*/ curfptr[3349]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3349*/ curfptr[3348]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3358*/ curfptr[3357]);
+ meltgc_touch(/*_.VALTUP___V3350*/ curfptr[3349]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1810:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3352*/ curfptr[3351]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3358*/ curfptr[3357]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3350*/ curfptr[3349]);
  
- MELT_LOCATION("warmelt-first.melt:1815:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1810:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3352*/ curfptr[3351]);
+ meltgc_touch(/*_.VALDATA___V3344*/ curfptr[3343]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3359*/ curfptr[3358])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3351*/ curfptr[3350])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3359*/ curfptr[3358]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3359*/ curfptr[3358]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3360*/ curfptr[3359]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3351*/ curfptr[3350]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3351*/ curfptr[3350]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3352*/ curfptr[3351]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3359*/ curfptr[3358]);
+ meltgc_touch(/*_.VALDATA___V3351*/ curfptr[3350]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1814:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3362*/ curfptr[3361]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3354*/ curfptr[3353]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1814:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3336*/ curfptr[3335]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1814:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1819:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1814:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3363*/ curfptr[3362]);
+ meltgc_touch(/*_.VALDATA___V3355*/ curfptr[3354]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3364*/ curfptr[3363]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3364*/ curfptr[3363]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3364*/ curfptr[3363]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3363*/ curfptr[3362]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3356*/ curfptr[3355]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3356*/ curfptr[3355]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3356*/ curfptr[3355]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3355*/ curfptr[3354]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3364*/ curfptr[3363]);
+ meltgc_touch(/*_.VALTUP___V3356*/ curfptr[3355]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1814:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3364*/ curfptr[3363]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3356*/ curfptr[3355]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1814:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3365*/ curfptr[3364]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3357*/ curfptr[3356]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3367*/ curfptr[3366]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3366*/ curfptr[3365]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3359*/ curfptr[3358]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3358*/ curfptr[3357]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3367*/ curfptr[3366]);
+ meltgc_touch(/*_.VALTUP___V3359*/ curfptr[3358]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1814:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3361*/ curfptr[3360]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3367*/ curfptr[3366]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3353*/ curfptr[3352]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3359*/ curfptr[3358]);
  
- MELT_LOCATION("warmelt-first.melt:1819:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1814:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3361*/ curfptr[3360]);
+ meltgc_touch(/*_.VALDATA___V3353*/ curfptr[3352]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3368*/ curfptr[3367])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3360*/ curfptr[3359])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3368*/ curfptr[3367]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3368*/ curfptr[3367]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3369*/ curfptr[3368]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3360*/ curfptr[3359]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3360*/ curfptr[3359]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3361*/ curfptr[3360]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3368*/ curfptr[3367]);
+ meltgc_touch(/*_.VALDATA___V3360*/ curfptr[3359]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3371*/ curfptr[3370]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3363*/ curfptr[3362]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3336*/ curfptr[3335]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1823:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1818:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3372*/ curfptr[3371]);
+ meltgc_touch(/*_.VALDATA___V3364*/ curfptr[3363]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3374*/ curfptr[3373])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3366*/ curfptr[3365])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3374*/ curfptr[3373]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3374*/ curfptr[3373]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3375*/ curfptr[3374]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3366*/ curfptr[3365]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3366*/ curfptr[3365]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3367*/ curfptr[3366]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3374*/ curfptr[3373]);
+ meltgc_touch(/*_.VALDATA___V3366*/ curfptr[3365]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3374*/ curfptr[3373]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3366*/ curfptr[3365]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1823:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1818:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3373*/ curfptr[3372]);
+ meltgc_touch(/*_.VALDATA___V3365*/ curfptr[3364]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3376*/ curfptr[3375]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3376*/ curfptr[3375]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3376*/ curfptr[3375]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3372*/ curfptr[3371]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3368*/ curfptr[3367]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3368*/ curfptr[3367]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3368*/ curfptr[3367]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3364*/ curfptr[3363]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3376*/ curfptr[3375]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3376*/ curfptr[3375]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3376*/ curfptr[3375]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3368*/ curfptr[3367]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3368*/ curfptr[3367]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3368*/ curfptr[3367]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3365*/ curfptr[3364]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3376*/ curfptr[3375]);
+ meltgc_touch(/*_.VALTUP___V3368*/ curfptr[3367]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3376*/ curfptr[3375]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3368*/ curfptr[3367]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3377*/ curfptr[3376]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3369*/ curfptr[3368]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3378*/ curfptr[3377]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3370*/ curfptr[3369]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3374*/ curfptr[3373]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3366*/ curfptr[3365]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3380*/ curfptr[3379]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3379*/ curfptr[3378]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3372*/ curfptr[3371]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3371*/ curfptr[3370]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3380*/ curfptr[3379]);
+ meltgc_touch(/*_.VALTUP___V3372*/ curfptr[3371]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1818:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3370*/ curfptr[3369]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3380*/ curfptr[3379]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3362*/ curfptr[3361]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3372*/ curfptr[3371]);
  
- MELT_LOCATION("warmelt-first.melt:1823:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1818:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3370*/ curfptr[3369]);
+ meltgc_touch(/*_.VALDATA___V3362*/ curfptr[3361]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3381*/ curfptr[3380])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3381*/ curfptr[3380]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3381*/ curfptr[3380]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3382*/ curfptr[3381]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3374*/ curfptr[3373]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3381*/ curfptr[3380]);
+ meltgc_touch(/*_.VALDATA___V3373*/ curfptr[3372]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3384*/ curfptr[3383]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3376*/ curfptr[3375]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3336*/ curfptr[3335]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1828:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1823:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3385*/ curfptr[3384]);
+ meltgc_touch(/*_.VALDATA___V3377*/ curfptr[3376]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3386*/ curfptr[3385]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3386*/ curfptr[3385]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3386*/ curfptr[3385]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3385*/ curfptr[3384]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3378*/ curfptr[3377]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3378*/ curfptr[3377]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3378*/ curfptr[3377]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3377*/ curfptr[3376]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3386*/ curfptr[3385]);
+ meltgc_touch(/*_.VALTUP___V3378*/ curfptr[3377]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3386*/ curfptr[3385]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3378*/ curfptr[3377]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3387*/ curfptr[3386]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3379*/ curfptr[3378]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3389*/ curfptr[3388]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3388*/ curfptr[3387]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3381*/ curfptr[3380]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3380*/ curfptr[3379]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3389*/ curfptr[3388]);
+ meltgc_touch(/*_.VALTUP___V3381*/ curfptr[3380]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1823:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3383*/ curfptr[3382]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3389*/ curfptr[3388]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3375*/ curfptr[3374]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3381*/ curfptr[3380]);
  
- MELT_LOCATION("warmelt-first.melt:1828:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1823:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3383*/ curfptr[3382]);
+ meltgc_touch(/*_.VALDATA___V3375*/ curfptr[3374]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3390*/ curfptr[3389])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3382*/ curfptr[3381])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3390*/ curfptr[3389]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3390*/ curfptr[3389]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3391*/ curfptr[3390]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3382*/ curfptr[3381]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3382*/ curfptr[3381]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3383*/ curfptr[3382]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3390*/ curfptr[3389]);
+ meltgc_touch(/*_.VALDATA___V3382*/ curfptr[3381]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3393*/ curfptr[3392]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3385*/ curfptr[3384]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V934*/ curfptr[933]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1832:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1827:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3394*/ curfptr[3393]);
+ meltgc_touch(/*_.VALDATA___V3386*/ curfptr[3385]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3374*/ curfptr[3373]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3366*/ curfptr[3365]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1832:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1827:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3395*/ curfptr[3394]);
+ meltgc_touch(/*_.VALDATA___V3387*/ curfptr[3386]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3389*/ curfptr[3388])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3398*/ curfptr[3397]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3389*/ curfptr[3388]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3389*/ curfptr[3388]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3390*/ curfptr[3389]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3397*/ curfptr[3396]);
+ meltgc_touch(/*_.VALDATA___V3389*/ curfptr[3388]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3397*/ curfptr[3396]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3389*/ curfptr[3388]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1832:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1827:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3396*/ curfptr[3395]);
+ meltgc_touch(/*_.VALDATA___V3388*/ curfptr[3387]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3394*/ curfptr[3393]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3386*/ curfptr[3385]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3395*/ curfptr[3394]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3387*/ curfptr[3386]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3399*/ curfptr[3398]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3396*/ curfptr[3395]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3391*/ curfptr[3390]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3388*/ curfptr[3387]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3399*/ curfptr[3398]);
+ meltgc_touch(/*_.VALTUP___V3391*/ curfptr[3390]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3399*/ curfptr[3398]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3391*/ curfptr[3390]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3400*/ curfptr[3399]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3392*/ curfptr[3391]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3401*/ curfptr[3400]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3393*/ curfptr[3392]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3374*/ curfptr[3373]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3366*/ curfptr[3365]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3402*/ curfptr[3401]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3394*/ curfptr[3393]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3389*/ curfptr[3388]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3403*/ curfptr[3402]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3396*/ curfptr[3395]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3395*/ curfptr[3394]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3404*/ curfptr[3403]);
+ meltgc_touch(/*_.VALTUP___V3396*/ curfptr[3395]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1827:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3392*/ curfptr[3391]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3404*/ curfptr[3403]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3384*/ curfptr[3383]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3396*/ curfptr[3395]);
  
- MELT_LOCATION("warmelt-first.melt:1832:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1827:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3392*/ curfptr[3391]);
+ meltgc_touch(/*_.VALDATA___V3384*/ curfptr[3383]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3405*/ curfptr[3404])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3405*/ curfptr[3404]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3405*/ curfptr[3404]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3406*/ curfptr[3405]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3398*/ curfptr[3397]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3405*/ curfptr[3404]);
+ meltgc_touch(/*_.VALDATA___V3397*/ curfptr[3396]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1835:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3408*/ curfptr[3407]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3400*/ curfptr[3399]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3411*/ curfptr[3410]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3403*/ curfptr[3402]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3410*/ curfptr[3409]);
+ meltgc_touch(/*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1835:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1835:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1840:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1835:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3409*/ curfptr[3408]);
+ meltgc_touch(/*_.VALDATA___V3401*/ curfptr[3400]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3412*/ curfptr[3411]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3412*/ curfptr[3411]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3412*/ curfptr[3411]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3409*/ curfptr[3408]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3404*/ curfptr[3403]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3401*/ curfptr[3400]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3412*/ curfptr[3411]);
+ meltgc_touch(/*_.VALTUP___V3404*/ curfptr[3403]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1835:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3412*/ curfptr[3411]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3404*/ curfptr[3403]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1835:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3413*/ curfptr[3412]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3405*/ curfptr[3404]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3415*/ curfptr[3414]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3414*/ curfptr[3413]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3407*/ curfptr[3406]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3406*/ curfptr[3405]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3415*/ curfptr[3414]);
+ meltgc_touch(/*_.VALTUP___V3407*/ curfptr[3406]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1835:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3407*/ curfptr[3406]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3415*/ curfptr[3414]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3399*/ curfptr[3398]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3407*/ curfptr[3406]);
  
- MELT_LOCATION("warmelt-first.melt:1840:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1835:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3407*/ curfptr[3406]);
+ meltgc_touch(/*_.VALDATA___V3399*/ curfptr[3398]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3416*/ curfptr[3415])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3408*/ curfptr[3407])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3416*/ curfptr[3415]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3416*/ curfptr[3415]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3417*/ curfptr[3416]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3408*/ curfptr[3407]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3408*/ curfptr[3407]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3409*/ curfptr[3408]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3416*/ curfptr[3415]);
+ meltgc_touch(/*_.VALDATA___V3408*/ curfptr[3407]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1839:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3419*/ curfptr[3418]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3411*/ curfptr[3410]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1839:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1839:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1844:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1839:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3420*/ curfptr[3419]);
+ meltgc_touch(/*_.VALDATA___V3412*/ curfptr[3411]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3421*/ curfptr[3420]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3421*/ curfptr[3420]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3421*/ curfptr[3420]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3420*/ curfptr[3419]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3413*/ curfptr[3412]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3413*/ curfptr[3412]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3413*/ curfptr[3412]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3412*/ curfptr[3411]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3421*/ curfptr[3420]);
+ meltgc_touch(/*_.VALTUP___V3413*/ curfptr[3412]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1839:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3421*/ curfptr[3420]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3413*/ curfptr[3412]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1839:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3422*/ curfptr[3421]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3414*/ curfptr[3413]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3423*/ curfptr[3422]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3416*/ curfptr[3415]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3415*/ curfptr[3414]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3424*/ curfptr[3423]);
+ meltgc_touch(/*_.VALTUP___V3416*/ curfptr[3415]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1839:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3418*/ curfptr[3417]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3424*/ curfptr[3423]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3416*/ curfptr[3415]);
  
- MELT_LOCATION("warmelt-first.melt:1844:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1839:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3418*/ curfptr[3417]);
+ meltgc_touch(/*_.VALDATA___V3410*/ curfptr[3409]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3425*/ curfptr[3424])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3417*/ curfptr[3416])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3425*/ curfptr[3424]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3425*/ curfptr[3424]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3426*/ curfptr[3425]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3417*/ curfptr[3416]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3417*/ curfptr[3416]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3418*/ curfptr[3417]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3425*/ curfptr[3424]);
+ meltgc_touch(/*_.VALDATA___V3417*/ curfptr[3416]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3428*/ curfptr[3427]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3420*/ curfptr[3419]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1848:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1843:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3429*/ curfptr[3428]);
+ meltgc_touch(/*_.VALDATA___V3421*/ curfptr[3420]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1848:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1843:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3430*/ curfptr[3429]);
+ meltgc_touch(/*_.VALDATA___V3422*/ curfptr[3421]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1923*/ curfptr[1922]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1848:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1843:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3431*/ curfptr[3430]);
+ meltgc_touch(/*_.VALDATA___V3423*/ curfptr[3422]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3429*/ curfptr[3428]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3421*/ curfptr[3420]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3422*/ curfptr[3421]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3432*/ curfptr[3431]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3431*/ curfptr[3430]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3424*/ curfptr[3423]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3423*/ curfptr[3422]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3432*/ curfptr[3431]);
+ meltgc_touch(/*_.VALTUP___V3424*/ curfptr[3423]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3432*/ curfptr[3431]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3424*/ curfptr[3423]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3433*/ curfptr[3432]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3425*/ curfptr[3424]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3434*/ curfptr[3433]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3426*/ curfptr[3425]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3435*/ curfptr[3434]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3427*/ curfptr[3426]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3437*/ curfptr[3436]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3436*/ curfptr[3435]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3429*/ curfptr[3428]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3428*/ curfptr[3427]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3437*/ curfptr[3436]);
+ meltgc_touch(/*_.VALTUP___V3429*/ curfptr[3428]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1843:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3427*/ curfptr[3426]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3437*/ curfptr[3436]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3419*/ curfptr[3418]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3429*/ curfptr[3428]);
  
- MELT_LOCATION("warmelt-first.melt:1848:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1843:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3427*/ curfptr[3426]);
+ meltgc_touch(/*_.VALDATA___V3419*/ curfptr[3418]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3438*/ curfptr[3437])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3438*/ curfptr[3437]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3438*/ curfptr[3437]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3439*/ curfptr[3438]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3431*/ curfptr[3430]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3438*/ curfptr[3437]);
+ meltgc_touch(/*_.VALDATA___V3430*/ curfptr[3429]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3441*/ curfptr[3440]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3433*/ curfptr[3432]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1855:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1850:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3442*/ curfptr[3441]);
+ meltgc_touch(/*_.VALDATA___V3434*/ curfptr[3433]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3443*/ curfptr[3442]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3443*/ curfptr[3442]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3443*/ curfptr[3442]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3442*/ curfptr[3441]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3435*/ curfptr[3434]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3435*/ curfptr[3434]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3435*/ curfptr[3434]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3434*/ curfptr[3433]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3443*/ curfptr[3442]);
+ meltgc_touch(/*_.VALTUP___V3435*/ curfptr[3434]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3443*/ curfptr[3442]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3435*/ curfptr[3434]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3444*/ curfptr[3443]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3436*/ curfptr[3435]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3446*/ curfptr[3445]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3445*/ curfptr[3444]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3438*/ curfptr[3437]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3437*/ curfptr[3436]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3446*/ curfptr[3445]);
+ meltgc_touch(/*_.VALTUP___V3438*/ curfptr[3437]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1850:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3440*/ curfptr[3439]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3446*/ curfptr[3445]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3432*/ curfptr[3431]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3438*/ curfptr[3437]);
  
- MELT_LOCATION("warmelt-first.melt:1855:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1850:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3440*/ curfptr[3439]);
+ meltgc_touch(/*_.VALDATA___V3432*/ curfptr[3431]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3447*/ curfptr[3446])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3439*/ curfptr[3438])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3447*/ curfptr[3446]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3447*/ curfptr[3446]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3448*/ curfptr[3447]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3439*/ curfptr[3438]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3439*/ curfptr[3438]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3440*/ curfptr[3439]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3447*/ curfptr[3446]);
+ meltgc_touch(/*_.VALDATA___V3439*/ curfptr[3438]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1854:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3450*/ curfptr[3449]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3442*/ curfptr[3441]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1854:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1854:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1859:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1854:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3451*/ curfptr[3450]);
+ meltgc_touch(/*_.VALDATA___V3443*/ curfptr[3442]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3452*/ curfptr[3451]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3452*/ curfptr[3451]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3452*/ curfptr[3451]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3451*/ curfptr[3450]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3444*/ curfptr[3443]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3444*/ curfptr[3443]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3444*/ curfptr[3443]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3443*/ curfptr[3442]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3452*/ curfptr[3451]);
+ meltgc_touch(/*_.VALTUP___V3444*/ curfptr[3443]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1854:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3452*/ curfptr[3451]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3444*/ curfptr[3443]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1854:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3453*/ curfptr[3452]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3445*/ curfptr[3444]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3455*/ curfptr[3454]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3454*/ curfptr[3453]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3447*/ curfptr[3446]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3446*/ curfptr[3445]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3455*/ curfptr[3454]);
+ meltgc_touch(/*_.VALTUP___V3447*/ curfptr[3446]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1854:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3449*/ curfptr[3448]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3455*/ curfptr[3454]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3441*/ curfptr[3440]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3447*/ curfptr[3446]);
  
- MELT_LOCATION("warmelt-first.melt:1859:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1854:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3449*/ curfptr[3448]);
+ meltgc_touch(/*_.VALDATA___V3441*/ curfptr[3440]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3456*/ curfptr[3455])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3448*/ curfptr[3447])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3456*/ curfptr[3455]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3456*/ curfptr[3455]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3457*/ curfptr[3456]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3448*/ curfptr[3447]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3448*/ curfptr[3447]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3449*/ curfptr[3448]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3456*/ curfptr[3455]);
+ meltgc_touch(/*_.VALDATA___V3448*/ curfptr[3447]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1857:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3459*/ curfptr[3458]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3451*/ curfptr[3450]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1857:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1857:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1862:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1857:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3460*/ curfptr[3459]);
+ meltgc_touch(/*_.VALDATA___V3452*/ curfptr[3451]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3461*/ curfptr[3460]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3461*/ curfptr[3460]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3461*/ curfptr[3460]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3460*/ curfptr[3459]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3453*/ curfptr[3452]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3453*/ curfptr[3452]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3453*/ curfptr[3452]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3452*/ curfptr[3451]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3461*/ curfptr[3460]);
+ meltgc_touch(/*_.VALTUP___V3453*/ curfptr[3452]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1857:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3461*/ curfptr[3460]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3453*/ curfptr[3452]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1857:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3462*/ curfptr[3461]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3454*/ curfptr[3453]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3464*/ curfptr[3463]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3463*/ curfptr[3462]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3456*/ curfptr[3455]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3455*/ curfptr[3454]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3464*/ curfptr[3463]);
+ meltgc_touch(/*_.VALTUP___V3456*/ curfptr[3455]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1857:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3458*/ curfptr[3457]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3464*/ curfptr[3463]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3450*/ curfptr[3449]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3456*/ curfptr[3455]);
  
- MELT_LOCATION("warmelt-first.melt:1862:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1857:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3458*/ curfptr[3457]);
+ meltgc_touch(/*_.VALDATA___V3450*/ curfptr[3449]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3465*/ curfptr[3464])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3457*/ curfptr[3456])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3465*/ curfptr[3464]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3465*/ curfptr[3464]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3466*/ curfptr[3465]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3457*/ curfptr[3456]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3457*/ curfptr[3456]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3458*/ curfptr[3457]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3465*/ curfptr[3464]);
+ meltgc_touch(/*_.VALDATA___V3457*/ curfptr[3456]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1860:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3468*/ curfptr[3467]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3460*/ curfptr[3459]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1860:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1860:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1865:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1860:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3469*/ curfptr[3468]);
+ meltgc_touch(/*_.VALDATA___V3461*/ curfptr[3460]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3470*/ curfptr[3469]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3470*/ curfptr[3469]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3470*/ curfptr[3469]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3469*/ curfptr[3468]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3462*/ curfptr[3461]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3462*/ curfptr[3461]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3462*/ curfptr[3461]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3461*/ curfptr[3460]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3470*/ curfptr[3469]);
+ meltgc_touch(/*_.VALTUP___V3462*/ curfptr[3461]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1860:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3470*/ curfptr[3469]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3462*/ curfptr[3461]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1860:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3471*/ curfptr[3470]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3463*/ curfptr[3462]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3473*/ curfptr[3472]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3472*/ curfptr[3471]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3465*/ curfptr[3464]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3464*/ curfptr[3463]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3473*/ curfptr[3472]);
+ meltgc_touch(/*_.VALTUP___V3465*/ curfptr[3464]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1860:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3467*/ curfptr[3466]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3473*/ curfptr[3472]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3459*/ curfptr[3458]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3465*/ curfptr[3464]);
  
- MELT_LOCATION("warmelt-first.melt:1865:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1860:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3467*/ curfptr[3466]);
+ meltgc_touch(/*_.VALDATA___V3459*/ curfptr[3458]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3474*/ curfptr[3473])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3466*/ curfptr[3465])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3474*/ curfptr[3473]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3474*/ curfptr[3473]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3475*/ curfptr[3474]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3466*/ curfptr[3465]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3466*/ curfptr[3465]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3467*/ curfptr[3466]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3474*/ curfptr[3473]);
+ meltgc_touch(/*_.VALDATA___V3466*/ curfptr[3465]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1863:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3477*/ curfptr[3476]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3469*/ curfptr[3468]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1863:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3402*/ curfptr[3401]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1863:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1868:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1863:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3478*/ curfptr[3477]);
+ meltgc_touch(/*_.VALDATA___V3470*/ curfptr[3469]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3479*/ curfptr[3478]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3479*/ curfptr[3478]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3479*/ curfptr[3478]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3478*/ curfptr[3477]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3471*/ curfptr[3470]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3471*/ curfptr[3470]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3471*/ curfptr[3470]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3470*/ curfptr[3469]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3479*/ curfptr[3478]);
+ meltgc_touch(/*_.VALTUP___V3471*/ curfptr[3470]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1863:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3479*/ curfptr[3478]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3471*/ curfptr[3470]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1863:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3480*/ curfptr[3479]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3472*/ curfptr[3471]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3482*/ curfptr[3481]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3481*/ curfptr[3480]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3474*/ curfptr[3473]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3473*/ curfptr[3472]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3482*/ curfptr[3481]);
+ meltgc_touch(/*_.VALTUP___V3474*/ curfptr[3473]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1863:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3476*/ curfptr[3475]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3482*/ curfptr[3481]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3468*/ curfptr[3467]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3474*/ curfptr[3473]);
  
- MELT_LOCATION("warmelt-first.melt:1868:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1863:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3476*/ curfptr[3475]);
+ meltgc_touch(/*_.VALDATA___V3468*/ curfptr[3467]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3475*/ curfptr[3474])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3484*/ curfptr[3483]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3475*/ curfptr[3474]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3475*/ curfptr[3474]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3476*/ curfptr[3475]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3483*/ curfptr[3482]);
+ meltgc_touch(/*_.VALDATA___V3475*/ curfptr[3474]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3486*/ curfptr[3485]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3478*/ curfptr[3477]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2201*/ curfptr[2200]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3487*/ curfptr[3486]);
+ meltgc_touch(/*_.VALDATA___V3479*/ curfptr[3478]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1642*/ curfptr[1641]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3488*/ curfptr[3487]);
+ meltgc_touch(/*_.VALDATA___V3480*/ curfptr[3479]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1923*/ curfptr[1922]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3489*/ curfptr[3488]);
+ meltgc_touch(/*_.VALDATA___V3481*/ curfptr[3480]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3492*/ curfptr[3491]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3484*/ curfptr[3483]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3491*/ curfptr[3490]);
+ meltgc_touch(/*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3490*/ curfptr[3489]);
+ meltgc_touch(/*_.VALDATA___V3482*/ curfptr[3481]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3487*/ curfptr[3486]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3479*/ curfptr[3478]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3488*/ curfptr[3487]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3480*/ curfptr[3479]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3489*/ curfptr[3488]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3481*/ curfptr[3480]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3493*/ curfptr[3492]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3490*/ curfptr[3489]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3485*/ curfptr[3484]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3482*/ curfptr[3481]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3493*/ curfptr[3492]);
+ meltgc_touch(/*_.VALTUP___V3485*/ curfptr[3484]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3493*/ curfptr[3492]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3485*/ curfptr[3484]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3494*/ curfptr[3493]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3486*/ curfptr[3485]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3495*/ curfptr[3494]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3487*/ curfptr[3486]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3496*/ curfptr[3495]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3488*/ curfptr[3487]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3497*/ curfptr[3496]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3489*/ curfptr[3488]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V3498*/ curfptr[3497]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3491*/ curfptr[3490]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V3490*/ curfptr[3489]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3499*/ curfptr[3498]);
+ meltgc_touch(/*_.VALTUP___V3491*/ curfptr[3490]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1868:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3485*/ curfptr[3484]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3499*/ curfptr[3498]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3477*/ curfptr[3476]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3491*/ curfptr[3490]);
  
- MELT_LOCATION("warmelt-first.melt:1873:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1868:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3485*/ curfptr[3484]);
+ meltgc_touch(/*_.VALDATA___V3477*/ curfptr[3476]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3500*/ curfptr[3499])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3492*/ curfptr[3491])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3500*/ curfptr[3499]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3500*/ curfptr[3499]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3501*/ curfptr[3500]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3492*/ curfptr[3491]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3492*/ curfptr[3491]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3493*/ curfptr[3492]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3500*/ curfptr[3499]);
+ meltgc_touch(/*_.VALDATA___V3492*/ curfptr[3491]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1877:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3503*/ curfptr[3502]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3495*/ curfptr[3494]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3506*/ curfptr[3505]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3498*/ curfptr[3497]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3505*/ curfptr[3504]);
+ meltgc_touch(/*_.VALDATA___V3497*/ curfptr[3496]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1877:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3505*/ curfptr[3504]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3497*/ curfptr[3496]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1877:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1882:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1877:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3504*/ curfptr[3503]);
+ meltgc_touch(/*_.VALDATA___V3496*/ curfptr[3495]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3507*/ curfptr[3506]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3507*/ curfptr[3506]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3507*/ curfptr[3506]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3504*/ curfptr[3503]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3499*/ curfptr[3498]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3496*/ curfptr[3495]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3507*/ curfptr[3506]);
+ meltgc_touch(/*_.VALTUP___V3499*/ curfptr[3498]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1877:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3507*/ curfptr[3506]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3499*/ curfptr[3498]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1877:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3508*/ curfptr[3507]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3500*/ curfptr[3499]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3510*/ curfptr[3509]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3509*/ curfptr[3508]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3502*/ curfptr[3501]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3501*/ curfptr[3500]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3510*/ curfptr[3509]);
+ meltgc_touch(/*_.VALTUP___V3502*/ curfptr[3501]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1877:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3502*/ curfptr[3501]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3510*/ curfptr[3509]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3494*/ curfptr[3493]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3502*/ curfptr[3501]);
  
- MELT_LOCATION("warmelt-first.melt:1882:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1877:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3502*/ curfptr[3501]);
+ meltgc_touch(/*_.VALDATA___V3494*/ curfptr[3493]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3511*/ curfptr[3510])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3503*/ curfptr[3502])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3511*/ curfptr[3510]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3511*/ curfptr[3510]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3512*/ curfptr[3511]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3503*/ curfptr[3502]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3503*/ curfptr[3502]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3504*/ curfptr[3503]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3511*/ curfptr[3510]);
+ meltgc_touch(/*_.VALDATA___V3503*/ curfptr[3502]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1880:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3514*/ curfptr[3513]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3506*/ curfptr[3505]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1880:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3505*/ curfptr[3504]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3497*/ curfptr[3496]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1880:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1885:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1880:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3515*/ curfptr[3514]);
+ meltgc_touch(/*_.VALDATA___V3507*/ curfptr[3506]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3516*/ curfptr[3515]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3516*/ curfptr[3515]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3516*/ curfptr[3515]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3515*/ curfptr[3514]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3508*/ curfptr[3507]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3508*/ curfptr[3507]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3508*/ curfptr[3507]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3507*/ curfptr[3506]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3516*/ curfptr[3515]);
+ meltgc_touch(/*_.VALTUP___V3508*/ curfptr[3507]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1880:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3516*/ curfptr[3515]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3508*/ curfptr[3507]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1880:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3517*/ curfptr[3516]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3509*/ curfptr[3508]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3519*/ curfptr[3518]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3518*/ curfptr[3517]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3511*/ curfptr[3510]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3510*/ curfptr[3509]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3519*/ curfptr[3518]);
+ meltgc_touch(/*_.VALTUP___V3511*/ curfptr[3510]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1880:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3513*/ curfptr[3512]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3519*/ curfptr[3518]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3511*/ curfptr[3510]);
  
- MELT_LOCATION("warmelt-first.melt:1885:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1880:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3513*/ curfptr[3512]);
+ meltgc_touch(/*_.VALDATA___V3505*/ curfptr[3504]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3512*/ curfptr[3511])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3521*/ curfptr[3520]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3512*/ curfptr[3511]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3512*/ curfptr[3511]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3513*/ curfptr[3512]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3520*/ curfptr[3519]);
+ meltgc_touch(/*_.VALDATA___V3512*/ curfptr[3511]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3523*/ curfptr[3522]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3515*/ curfptr[3514]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1556*/ curfptr[1555]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1889:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1884:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3524*/ curfptr[3523]);
+ meltgc_touch(/*_.VALDATA___V3516*/ curfptr[3515]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3526*/ curfptr[3525])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3518*/ curfptr[3517])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3526*/ curfptr[3525]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3526*/ curfptr[3525]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3527*/ curfptr[3526]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3518*/ curfptr[3517]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3518*/ curfptr[3517]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3519*/ curfptr[3518]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3526*/ curfptr[3525]);
+ meltgc_touch(/*_.VALDATA___V3518*/ curfptr[3517]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3526*/ curfptr[3525]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3518*/ curfptr[3517]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1889:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1884:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3525*/ curfptr[3524]);
+ meltgc_touch(/*_.VALDATA___V3517*/ curfptr[3516]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3505*/ curfptr[3504]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3497*/ curfptr[3496]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1889:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1884:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3528*/ curfptr[3527]);
+ meltgc_touch(/*_.VALDATA___V3520*/ curfptr[3519]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3524*/ curfptr[3523]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3516*/ curfptr[3515]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3525*/ curfptr[3524]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3517*/ curfptr[3516]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3529*/ curfptr[3528]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3528*/ curfptr[3527]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3521*/ curfptr[3520]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3529*/ curfptr[3528]);
+ meltgc_touch(/*_.VALTUP___V3521*/ curfptr[3520]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3529*/ curfptr[3528]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3521*/ curfptr[3520]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3530*/ curfptr[3529]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3522*/ curfptr[3521]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3531*/ curfptr[3530]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3523*/ curfptr[3522]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3526*/ curfptr[3525]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3518*/ curfptr[3517]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3532*/ curfptr[3531]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3524*/ curfptr[3523]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3533*/ curfptr[3532]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3526*/ curfptr[3525]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3525*/ curfptr[3524]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3534*/ curfptr[3533]);
+ meltgc_touch(/*_.VALTUP___V3526*/ curfptr[3525]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1884:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3522*/ curfptr[3521]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3534*/ curfptr[3533]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3514*/ curfptr[3513]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3526*/ curfptr[3525]);
  
- MELT_LOCATION("warmelt-first.melt:1889:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1884:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3522*/ curfptr[3521]);
+ meltgc_touch(/*_.VALDATA___V3514*/ curfptr[3513]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3535*/ curfptr[3534])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3527*/ curfptr[3526])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3535*/ curfptr[3534]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3535*/ curfptr[3534]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3536*/ curfptr[3535]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3527*/ curfptr[3526]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3527*/ curfptr[3526]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3528*/ curfptr[3527]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3535*/ curfptr[3534]);
+ meltgc_touch(/*_.VALDATA___V3527*/ curfptr[3526]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1890:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3538*/ curfptr[3537]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3530*/ curfptr[3529]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3532*/ curfptr[3531])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3541*/ curfptr[3540]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3532*/ curfptr[3531]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3532*/ curfptr[3531]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3533*/ curfptr[3532]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3540*/ curfptr[3539]);
+ meltgc_touch(/*_.VALDATA___V3532*/ curfptr[3531]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1890:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3540*/ curfptr[3539]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3532*/ curfptr[3531]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1890:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1895:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1890:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3539*/ curfptr[3538]);
+ meltgc_touch(/*_.VALDATA___V3531*/ curfptr[3530]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3542*/ curfptr[3541]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3542*/ curfptr[3541]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3542*/ curfptr[3541]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3539*/ curfptr[3538]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3534*/ curfptr[3533]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3531*/ curfptr[3530]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3542*/ curfptr[3541]);
+ meltgc_touch(/*_.VALTUP___V3534*/ curfptr[3533]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1890:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3542*/ curfptr[3541]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3534*/ curfptr[3533]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1890:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3543*/ curfptr[3542]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3535*/ curfptr[3534]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3532*/ curfptr[3531]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3545*/ curfptr[3544]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3544*/ curfptr[3543]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3537*/ curfptr[3536]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3536*/ curfptr[3535]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3545*/ curfptr[3544]);
+ meltgc_touch(/*_.VALTUP___V3537*/ curfptr[3536]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1890:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3537*/ curfptr[3536]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3545*/ curfptr[3544]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3529*/ curfptr[3528]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3537*/ curfptr[3536]);
  
- MELT_LOCATION("warmelt-first.melt:1895:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1890:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3537*/ curfptr[3536]);
+ meltgc_touch(/*_.VALDATA___V3529*/ curfptr[3528]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3538*/ curfptr[3537])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3547*/ curfptr[3546]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3538*/ curfptr[3537]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3538*/ curfptr[3537]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3539*/ curfptr[3538]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3546*/ curfptr[3545]);
+ meltgc_touch(/*_.VALDATA___V3538*/ curfptr[3537]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3549*/ curfptr[3548]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3541*/ curfptr[3540]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1901:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1896:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3550*/ curfptr[3549]);
+ meltgc_touch(/*_.VALDATA___V3542*/ curfptr[3541]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3553*/ curfptr[3552]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3545*/ curfptr[3544]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3552*/ curfptr[3551]);
+ meltgc_touch(/*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1901:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1896:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3551*/ curfptr[3550]);
+ meltgc_touch(/*_.VALDATA___V3543*/ curfptr[3542]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1901:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1896:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3554*/ curfptr[3553]);
+ meltgc_touch(/*_.VALDATA___V3546*/ curfptr[3545]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3550*/ curfptr[3549]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3542*/ curfptr[3541]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3551*/ curfptr[3550]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3543*/ curfptr[3542]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3555*/ curfptr[3554]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3554*/ curfptr[3553]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3547*/ curfptr[3546]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3555*/ curfptr[3554]);
+ meltgc_touch(/*_.VALTUP___V3547*/ curfptr[3546]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3555*/ curfptr[3554]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3547*/ curfptr[3546]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3556*/ curfptr[3555]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3548*/ curfptr[3547]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3557*/ curfptr[3556]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3549*/ curfptr[3548]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3558*/ curfptr[3557]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3550*/ curfptr[3549]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3560*/ curfptr[3559]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3559*/ curfptr[3558]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3552*/ curfptr[3551]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3551*/ curfptr[3550]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3560*/ curfptr[3559]);
+ meltgc_touch(/*_.VALTUP___V3552*/ curfptr[3551]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1896:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3548*/ curfptr[3547]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3560*/ curfptr[3559]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3552*/ curfptr[3551]);
  
- MELT_LOCATION("warmelt-first.melt:1901:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1896:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3548*/ curfptr[3547]);
+ meltgc_touch(/*_.VALDATA___V3540*/ curfptr[3539]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3561*/ curfptr[3560])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3553*/ curfptr[3552])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3561*/ curfptr[3560]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3561*/ curfptr[3560]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3562*/ curfptr[3561]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3553*/ curfptr[3552]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3553*/ curfptr[3552]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3554*/ curfptr[3553]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3561*/ curfptr[3560]);
+ meltgc_touch(/*_.VALDATA___V3553*/ curfptr[3552]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3564*/ curfptr[3563]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3556*/ curfptr[3555]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1906:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1901:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3565*/ curfptr[3564]);
+ meltgc_touch(/*_.VALDATA___V3557*/ curfptr[3556]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1906:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1901:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3566*/ curfptr[3565]);
+ meltgc_touch(/*_.VALDATA___V3558*/ curfptr[3557]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3567*/ curfptr[3566]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3567*/ curfptr[3566]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3567*/ curfptr[3566]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3565*/ curfptr[3564]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3559*/ curfptr[3558]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3559*/ curfptr[3558]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3559*/ curfptr[3558]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3557*/ curfptr[3556]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3567*/ curfptr[3566]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3567*/ curfptr[3566]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3567*/ curfptr[3566]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3559*/ curfptr[3558]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3559*/ curfptr[3558]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3559*/ curfptr[3558]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3558*/ curfptr[3557]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3567*/ curfptr[3566]);
+ meltgc_touch(/*_.VALTUP___V3559*/ curfptr[3558]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3567*/ curfptr[3566]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3559*/ curfptr[3558]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3568*/ curfptr[3567]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3560*/ curfptr[3559]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3569*/ curfptr[3568]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3561*/ curfptr[3560]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3570*/ curfptr[3569]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3563*/ curfptr[3562]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3562*/ curfptr[3561]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3571*/ curfptr[3570]);
+ meltgc_touch(/*_.VALTUP___V3563*/ curfptr[3562]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1901:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3563*/ curfptr[3562]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3571*/ curfptr[3570]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3555*/ curfptr[3554]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3563*/ curfptr[3562]);
  
- MELT_LOCATION("warmelt-first.melt:1906:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1901:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3563*/ curfptr[3562]);
+ meltgc_touch(/*_.VALDATA___V3555*/ curfptr[3554]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3572*/ curfptr[3571])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3564*/ curfptr[3563])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3572*/ curfptr[3571]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3572*/ curfptr[3571]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3573*/ curfptr[3572]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3564*/ curfptr[3563]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3564*/ curfptr[3563]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3565*/ curfptr[3564]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3572*/ curfptr[3571]);
+ meltgc_touch(/*_.VALDATA___V3564*/ curfptr[3563]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3575*/ curfptr[3574]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3567*/ curfptr[3566]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1912:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1907:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3576*/ curfptr[3575]);
+ meltgc_touch(/*_.VALDATA___V3568*/ curfptr[3567]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1912:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1907:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3577*/ curfptr[3576]);
+ meltgc_touch(/*_.VALDATA___V3569*/ curfptr[3568]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1912:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1907:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3578*/ curfptr[3577]);
+ meltgc_touch(/*_.VALDATA___V3570*/ curfptr[3569]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3576*/ curfptr[3575]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3568*/ curfptr[3567]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3569*/ curfptr[3568]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3579*/ curfptr[3578]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3578*/ curfptr[3577]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3571*/ curfptr[3570]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3570*/ curfptr[3569]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3579*/ curfptr[3578]);
+ meltgc_touch(/*_.VALTUP___V3571*/ curfptr[3570]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3579*/ curfptr[3578]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3571*/ curfptr[3570]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3580*/ curfptr[3579]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3572*/ curfptr[3571]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3581*/ curfptr[3580]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3573*/ curfptr[3572]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3582*/ curfptr[3581]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3574*/ curfptr[3573]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3584*/ curfptr[3583]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3583*/ curfptr[3582]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3576*/ curfptr[3575]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3575*/ curfptr[3574]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3584*/ curfptr[3583]);
+ meltgc_touch(/*_.VALTUP___V3576*/ curfptr[3575]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1907:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3574*/ curfptr[3573]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3584*/ curfptr[3583]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3566*/ curfptr[3565]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3576*/ curfptr[3575]);
  
- MELT_LOCATION("warmelt-first.melt:1912:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1907:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3574*/ curfptr[3573]);
+ meltgc_touch(/*_.VALDATA___V3566*/ curfptr[3565]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3585*/ curfptr[3584])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3585*/ curfptr[3584]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3585*/ curfptr[3584]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3586*/ curfptr[3585]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3578*/ curfptr[3577]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3585*/ curfptr[3584]);
+ meltgc_touch(/*_.VALDATA___V3577*/ curfptr[3576]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3588*/ curfptr[3587]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3580*/ curfptr[3579]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1917:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1912:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3589*/ curfptr[3588]);
+ meltgc_touch(/*_.VALDATA___V3581*/ curfptr[3580]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1917:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1912:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3590*/ curfptr[3589]);
+ meltgc_touch(/*_.VALDATA___V3582*/ curfptr[3581]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3591*/ curfptr[3590]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3591*/ curfptr[3590]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3591*/ curfptr[3590]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3589*/ curfptr[3588]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3583*/ curfptr[3582]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3583*/ curfptr[3582]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3583*/ curfptr[3582]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3581*/ curfptr[3580]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3591*/ curfptr[3590]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3591*/ curfptr[3590]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3591*/ curfptr[3590]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3583*/ curfptr[3582]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3583*/ curfptr[3582]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3583*/ curfptr[3582]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3582*/ curfptr[3581]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3591*/ curfptr[3590]);
+ meltgc_touch(/*_.VALTUP___V3583*/ curfptr[3582]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3591*/ curfptr[3590]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3583*/ curfptr[3582]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3592*/ curfptr[3591]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3584*/ curfptr[3583]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3593*/ curfptr[3592]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3585*/ curfptr[3584]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3595*/ curfptr[3594]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3594*/ curfptr[3593]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3587*/ curfptr[3586]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3586*/ curfptr[3585]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3595*/ curfptr[3594]);
+ meltgc_touch(/*_.VALTUP___V3587*/ curfptr[3586]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1912:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3587*/ curfptr[3586]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3595*/ curfptr[3594]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3579*/ curfptr[3578]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3587*/ curfptr[3586]);
  
- MELT_LOCATION("warmelt-first.melt:1917:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1912:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3587*/ curfptr[3586]);
+ meltgc_touch(/*_.VALDATA___V3579*/ curfptr[3578]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3596*/ curfptr[3595])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3588*/ curfptr[3587])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3596*/ curfptr[3595]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3596*/ curfptr[3595]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3597*/ curfptr[3596]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3588*/ curfptr[3587]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3588*/ curfptr[3587]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3589*/ curfptr[3588]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3596*/ curfptr[3595]);
+ meltgc_touch(/*_.VALDATA___V3588*/ curfptr[3587]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1918:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3599*/ curfptr[3598]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3591*/ curfptr[3590]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1918:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1918:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1923:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1918:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3600*/ curfptr[3599]);
+ meltgc_touch(/*_.VALDATA___V3592*/ curfptr[3591]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3601*/ curfptr[3600]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3601*/ curfptr[3600]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3601*/ curfptr[3600]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3600*/ curfptr[3599]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3593*/ curfptr[3592]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3593*/ curfptr[3592]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3593*/ curfptr[3592]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3592*/ curfptr[3591]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3601*/ curfptr[3600]);
+ meltgc_touch(/*_.VALTUP___V3593*/ curfptr[3592]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1918:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3601*/ curfptr[3600]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3593*/ curfptr[3592]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1918:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3602*/ curfptr[3601]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3594*/ curfptr[3593]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3604*/ curfptr[3603]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3603*/ curfptr[3602]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3596*/ curfptr[3595]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3595*/ curfptr[3594]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3604*/ curfptr[3603]);
+ meltgc_touch(/*_.VALTUP___V3596*/ curfptr[3595]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1918:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3598*/ curfptr[3597]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3604*/ curfptr[3603]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3590*/ curfptr[3589]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3596*/ curfptr[3595]);
  
- MELT_LOCATION("warmelt-first.melt:1923:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1918:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3598*/ curfptr[3597]);
+ meltgc_touch(/*_.VALDATA___V3590*/ curfptr[3589]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3605*/ curfptr[3604])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3597*/ curfptr[3596])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3605*/ curfptr[3604]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3605*/ curfptr[3604]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3606*/ curfptr[3605]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3597*/ curfptr[3596]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3597*/ curfptr[3596]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3598*/ curfptr[3597]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3605*/ curfptr[3604]);
+ meltgc_touch(/*_.VALDATA___V3597*/ curfptr[3596]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3608*/ curfptr[3607]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3600*/ curfptr[3599]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1929:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1924:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3609*/ curfptr[3608]);
+ meltgc_touch(/*_.VALDATA___V3601*/ curfptr[3600]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1929:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1924:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3610*/ curfptr[3609]);
+ meltgc_touch(/*_.VALDATA___V3602*/ curfptr[3601]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3611*/ curfptr[3610]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3611*/ curfptr[3610]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3611*/ curfptr[3610]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3609*/ curfptr[3608]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3603*/ curfptr[3602]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3603*/ curfptr[3602]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3603*/ curfptr[3602]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3601*/ curfptr[3600]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3611*/ curfptr[3610]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3611*/ curfptr[3610]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3611*/ curfptr[3610]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3603*/ curfptr[3602]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3603*/ curfptr[3602]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3603*/ curfptr[3602]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3602*/ curfptr[3601]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3611*/ curfptr[3610]);
+ meltgc_touch(/*_.VALTUP___V3603*/ curfptr[3602]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3611*/ curfptr[3610]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3603*/ curfptr[3602]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3612*/ curfptr[3611]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3604*/ curfptr[3603]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3613*/ curfptr[3612]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3605*/ curfptr[3604]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3615*/ curfptr[3614]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3614*/ curfptr[3613]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3607*/ curfptr[3606]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3606*/ curfptr[3605]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3615*/ curfptr[3614]);
+ meltgc_touch(/*_.VALTUP___V3607*/ curfptr[3606]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1924:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3607*/ curfptr[3606]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3615*/ curfptr[3614]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3599*/ curfptr[3598]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3607*/ curfptr[3606]);
  
- MELT_LOCATION("warmelt-first.melt:1929:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1924:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3607*/ curfptr[3606]);
+ meltgc_touch(/*_.VALDATA___V3599*/ curfptr[3598]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3616*/ curfptr[3615])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3608*/ curfptr[3607])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3616*/ curfptr[3615]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3616*/ curfptr[3615]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3617*/ curfptr[3616]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3608*/ curfptr[3607]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3608*/ curfptr[3607]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3609*/ curfptr[3608]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3616*/ curfptr[3615]);
+ meltgc_touch(/*_.VALDATA___V3608*/ curfptr[3607]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1931:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3619*/ curfptr[3618]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3611*/ curfptr[3610]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1931:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1931:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1936:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1931:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3620*/ curfptr[3619]);
+ meltgc_touch(/*_.VALDATA___V3612*/ curfptr[3611]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3621*/ curfptr[3620]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3621*/ curfptr[3620]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3621*/ curfptr[3620]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3620*/ curfptr[3619]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3613*/ curfptr[3612]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3613*/ curfptr[3612]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3613*/ curfptr[3612]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3612*/ curfptr[3611]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3621*/ curfptr[3620]);
+ meltgc_touch(/*_.VALTUP___V3613*/ curfptr[3612]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1931:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3621*/ curfptr[3620]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3613*/ curfptr[3612]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1931:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3622*/ curfptr[3621]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3614*/ curfptr[3613]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3624*/ curfptr[3623]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3623*/ curfptr[3622]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3616*/ curfptr[3615]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3615*/ curfptr[3614]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3624*/ curfptr[3623]);
+ meltgc_touch(/*_.VALTUP___V3616*/ curfptr[3615]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1931:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3618*/ curfptr[3617]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3624*/ curfptr[3623]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3610*/ curfptr[3609]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3616*/ curfptr[3615]);
  
- MELT_LOCATION("warmelt-first.melt:1936:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1931:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3618*/ curfptr[3617]);
+ meltgc_touch(/*_.VALDATA___V3610*/ curfptr[3609]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3625*/ curfptr[3624])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3617*/ curfptr[3616])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3625*/ curfptr[3624]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3625*/ curfptr[3624]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3626*/ curfptr[3625]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3617*/ curfptr[3616]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3617*/ curfptr[3616]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3618*/ curfptr[3617]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3625*/ curfptr[3624]);
+ meltgc_touch(/*_.VALDATA___V3617*/ curfptr[3616]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3628*/ curfptr[3627]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3620*/ curfptr[3619]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1943:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1938:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3629*/ curfptr[3628]);
+ meltgc_touch(/*_.VALDATA___V3621*/ curfptr[3620]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1943:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1938:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3630*/ curfptr[3629]);
+ meltgc_touch(/*_.VALDATA___V3622*/ curfptr[3621]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3631*/ curfptr[3630]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3631*/ curfptr[3630]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3631*/ curfptr[3630]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3629*/ curfptr[3628]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3623*/ curfptr[3622]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3623*/ curfptr[3622]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3623*/ curfptr[3622]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3621*/ curfptr[3620]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3631*/ curfptr[3630]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3631*/ curfptr[3630]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3631*/ curfptr[3630]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3623*/ curfptr[3622]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3623*/ curfptr[3622]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3623*/ curfptr[3622]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3622*/ curfptr[3621]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3631*/ curfptr[3630]);
+ meltgc_touch(/*_.VALTUP___V3623*/ curfptr[3622]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3631*/ curfptr[3630]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3623*/ curfptr[3622]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3632*/ curfptr[3631]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3624*/ curfptr[3623]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3633*/ curfptr[3632]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3625*/ curfptr[3624]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3634*/ curfptr[3633]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3627*/ curfptr[3626]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3626*/ curfptr[3625]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3635*/ curfptr[3634]);
+ meltgc_touch(/*_.VALTUP___V3627*/ curfptr[3626]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1938:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3627*/ curfptr[3626]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3635*/ curfptr[3634]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3619*/ curfptr[3618]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3627*/ curfptr[3626]);
  
- MELT_LOCATION("warmelt-first.melt:1943:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1938:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3627*/ curfptr[3626]);
+ meltgc_touch(/*_.VALDATA___V3619*/ curfptr[3618]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3636*/ curfptr[3635])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3628*/ curfptr[3627])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3636*/ curfptr[3635]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3636*/ curfptr[3635]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3637*/ curfptr[3636]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3628*/ curfptr[3627]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3628*/ curfptr[3627]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3629*/ curfptr[3628]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3636*/ curfptr[3635]);
+ meltgc_touch(/*_.VALDATA___V3628*/ curfptr[3627]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3639*/ curfptr[3638]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3631*/ curfptr[3630]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1951:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1946:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3640*/ curfptr[3639]);
+ meltgc_touch(/*_.VALDATA___V3632*/ curfptr[3631]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1951:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1946:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3641*/ curfptr[3640]);
+ meltgc_touch(/*_.VALDATA___V3633*/ curfptr[3632]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1951:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1946:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3642*/ curfptr[3641]);
+ meltgc_touch(/*_.VALDATA___V3634*/ curfptr[3633]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3640*/ curfptr[3639]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3632*/ curfptr[3631]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3633*/ curfptr[3632]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3643*/ curfptr[3642]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3642*/ curfptr[3641]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3635*/ curfptr[3634]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3634*/ curfptr[3633]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3643*/ curfptr[3642]);
+ meltgc_touch(/*_.VALTUP___V3635*/ curfptr[3634]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3643*/ curfptr[3642]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3635*/ curfptr[3634]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3644*/ curfptr[3643]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3636*/ curfptr[3635]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3645*/ curfptr[3644]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3637*/ curfptr[3636]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3646*/ curfptr[3645]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3638*/ curfptr[3637]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3648*/ curfptr[3647]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3647*/ curfptr[3646]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3640*/ curfptr[3639]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V3639*/ curfptr[3638]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3648*/ curfptr[3647]);
+ meltgc_touch(/*_.VALTUP___V3640*/ curfptr[3639]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1946:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3638*/ curfptr[3637]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3648*/ curfptr[3647]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3630*/ curfptr[3629]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3640*/ curfptr[3639]);
  
- MELT_LOCATION("warmelt-first.melt:1951:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1946:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3638*/ curfptr[3637]);
+ meltgc_touch(/*_.VALDATA___V3630*/ curfptr[3629]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3649*/ curfptr[3648])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3649*/ curfptr[3648]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3649*/ curfptr[3648]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3650*/ curfptr[3649]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3642*/ curfptr[3641]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3649*/ curfptr[3648]);
+ meltgc_touch(/*_.VALDATA___V3641*/ curfptr[3640]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3652*/ curfptr[3651]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3644*/ curfptr[3643]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3483*/ curfptr[3482]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1955:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1950:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3653*/ curfptr[3652]);
+ meltgc_touch(/*_.VALDATA___V3645*/ curfptr[3644]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1955:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1950:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3654*/ curfptr[3653]);
+ meltgc_touch(/*_.VALDATA___V3646*/ curfptr[3645]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3655*/ curfptr[3654]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3655*/ curfptr[3654]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3655*/ curfptr[3654]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3653*/ curfptr[3652]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3647*/ curfptr[3646]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3647*/ curfptr[3646]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3647*/ curfptr[3646]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3645*/ curfptr[3644]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3655*/ curfptr[3654]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3655*/ curfptr[3654]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3655*/ curfptr[3654]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3647*/ curfptr[3646]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3647*/ curfptr[3646]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3647*/ curfptr[3646]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3646*/ curfptr[3645]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3655*/ curfptr[3654]);
+ meltgc_touch(/*_.VALTUP___V3647*/ curfptr[3646]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3655*/ curfptr[3654]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3647*/ curfptr[3646]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3656*/ curfptr[3655]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3648*/ curfptr[3647]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3657*/ curfptr[3656]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3649*/ curfptr[3648]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3659*/ curfptr[3658]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3658*/ curfptr[3657]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3651*/ curfptr[3650]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3650*/ curfptr[3649]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3659*/ curfptr[3658]);
+ meltgc_touch(/*_.VALTUP___V3651*/ curfptr[3650]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1950:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3651*/ curfptr[3650]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3659*/ curfptr[3658]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3643*/ curfptr[3642]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3651*/ curfptr[3650]);
  
- MELT_LOCATION("warmelt-first.melt:1955:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1950:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3651*/ curfptr[3650]);
+ meltgc_touch(/*_.VALDATA___V3643*/ curfptr[3642]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3660*/ curfptr[3659])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3652*/ curfptr[3651])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3660*/ curfptr[3659]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3660*/ curfptr[3659]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3661*/ curfptr[3660]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3652*/ curfptr[3651]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3652*/ curfptr[3651]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3653*/ curfptr[3652]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3660*/ curfptr[3659]);
+ meltgc_touch(/*_.VALDATA___V3652*/ curfptr[3651]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3663*/ curfptr[3662]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3655*/ curfptr[3654]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1959:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1954:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3664*/ curfptr[3663]);
+ meltgc_touch(/*_.VALDATA___V3656*/ curfptr[3655]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:1959:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1954:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3665*/ curfptr[3664]);
+ meltgc_touch(/*_.VALDATA___V3657*/ curfptr[3656]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3666*/ curfptr[3665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3666*/ curfptr[3665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3666*/ curfptr[3665]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3664*/ curfptr[3663]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3658*/ curfptr[3657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3658*/ curfptr[3657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3658*/ curfptr[3657]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3656*/ curfptr[3655]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3666*/ curfptr[3665]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3666*/ curfptr[3665]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3666*/ curfptr[3665]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3658*/ curfptr[3657]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3658*/ curfptr[3657]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3658*/ curfptr[3657]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3657*/ curfptr[3656]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3666*/ curfptr[3665]);
+ meltgc_touch(/*_.VALTUP___V3658*/ curfptr[3657]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3666*/ curfptr[3665]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3658*/ curfptr[3657]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3667*/ curfptr[3666]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3659*/ curfptr[3658]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3668*/ curfptr[3667]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3660*/ curfptr[3659]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3670*/ curfptr[3669]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3669*/ curfptr[3668]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3662*/ curfptr[3661]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3661*/ curfptr[3660]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3670*/ curfptr[3669]);
+ meltgc_touch(/*_.VALTUP___V3662*/ curfptr[3661]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1954:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3662*/ curfptr[3661]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3670*/ curfptr[3669]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3654*/ curfptr[3653]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3662*/ curfptr[3661]);
  
- MELT_LOCATION("warmelt-first.melt:1959:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1954:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3662*/ curfptr[3661]);
+ meltgc_touch(/*_.VALDATA___V3654*/ curfptr[3653]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3671*/ curfptr[3670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3663*/ curfptr[3662])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3671*/ curfptr[3670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3671*/ curfptr[3670]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3672*/ curfptr[3671]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3663*/ curfptr[3662]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3663*/ curfptr[3662]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3664*/ curfptr[3663]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3671*/ curfptr[3670]);
+ meltgc_touch(/*_.VALDATA___V3663*/ curfptr[3662]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1960:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3674*/ curfptr[3673]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3666*/ curfptr[3665]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1960:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V3544*/ curfptr[3543]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1960:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1965:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1960:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3675*/ curfptr[3674]);
+ meltgc_touch(/*_.VALDATA___V3667*/ curfptr[3666]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3676*/ curfptr[3675]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3676*/ curfptr[3675]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3676*/ curfptr[3675]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3675*/ curfptr[3674]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3668*/ curfptr[3667]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3668*/ curfptr[3667]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3668*/ curfptr[3667]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3667*/ curfptr[3666]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3676*/ curfptr[3675]);
+ meltgc_touch(/*_.VALTUP___V3668*/ curfptr[3667]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1960:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3676*/ curfptr[3675]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3668*/ curfptr[3667]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1960:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3677*/ curfptr[3676]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3669*/ curfptr[3668]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3679*/ curfptr[3678]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3678*/ curfptr[3677]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3671*/ curfptr[3670]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3670*/ curfptr[3669]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3679*/ curfptr[3678]);
+ meltgc_touch(/*_.VALTUP___V3671*/ curfptr[3670]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1960:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3673*/ curfptr[3672]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3679*/ curfptr[3678]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3665*/ curfptr[3664]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3671*/ curfptr[3670]);
  
- MELT_LOCATION("warmelt-first.melt:1965:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1960:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3673*/ curfptr[3672]);
+ meltgc_touch(/*_.VALDATA___V3665*/ curfptr[3664]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3680*/ curfptr[3679])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3672*/ curfptr[3671])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3680*/ curfptr[3679]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3680*/ curfptr[3679]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3681*/ curfptr[3680]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3672*/ curfptr[3671]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3672*/ curfptr[3671]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3673*/ curfptr[3672]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3680*/ curfptr[3679]);
+ meltgc_touch(/*_.VALDATA___V3672*/ curfptr[3671]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3683*/ curfptr[3682]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3675*/ curfptr[3674]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1190*/ curfptr[1189]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-first.melt:1970:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1965:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3684*/ curfptr[3683]);
+ meltgc_touch(/*_.VALDATA___V3676*/ curfptr[3675]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2390*/ curfptr[2389]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:1970:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1965:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3685*/ curfptr[3684]);
+ meltgc_touch(/*_.VALDATA___V3677*/ curfptr[3676]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3686*/ curfptr[3685]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3686*/ curfptr[3685]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3686*/ curfptr[3685]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3684*/ curfptr[3683]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3678*/ curfptr[3677]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3678*/ curfptr[3677]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3678*/ curfptr[3677]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3676*/ curfptr[3675]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3686*/ curfptr[3685]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3686*/ curfptr[3685]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3686*/ curfptr[3685]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3678*/ curfptr[3677]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3678*/ curfptr[3677]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3678*/ curfptr[3677]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3677*/ curfptr[3676]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3686*/ curfptr[3685]);
+ meltgc_touch(/*_.VALTUP___V3678*/ curfptr[3677]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V3686*/ curfptr[3685]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V3678*/ curfptr[3677]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VOID))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3687*/ curfptr[3686]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V3679*/ curfptr[3678]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3688*/ curfptr[3687]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V3680*/ curfptr[3679]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V3690*/ curfptr[3689]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3689*/ curfptr[3688]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V3682*/ curfptr[3681]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V3681*/ curfptr[3680]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V3690*/ curfptr[3689]);
+ meltgc_touch(/*_.VALTUP___V3682*/ curfptr[3681]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:1965:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3682*/ curfptr[3681]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V3690*/ curfptr[3689]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3674*/ curfptr[3673]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V3682*/ curfptr[3681]);
  
- MELT_LOCATION("warmelt-first.melt:1970:/ touch");
+ MELT_LOCATION("warmelt-first.melt:1965:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3682*/ curfptr[3681]);
+ meltgc_touch(/*_.VALDATA___V3674*/ curfptr[3673]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3683*/ curfptr[3682])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3692*/ curfptr[3691]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3683*/ curfptr[3682]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3683*/ curfptr[3682]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3684*/ curfptr[3683]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3691*/ curfptr[3690]);
+ meltgc_touch(/*_.VALDATA___V3683*/ curfptr[3682]);
  
- MELT_LOCATION("warmelt-first.melt:1978:/ cond");
+ MELT_LOCATION("warmelt-first.melt:1973:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_NAME_STRING)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:1978:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:1973:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:1978:/ touch");
+   MELT_LOCATION("warmelt-first.melt:1973:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3693*/ curfptr[3692]);
+   meltgc_touch(/*_.VALDATA___V3685*/ curfptr[3684]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3694*/ curfptr[3693])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3686*/ curfptr[3685])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3694*/ curfptr[3693]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3694*/ curfptr[3693]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3695*/ curfptr[3694]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3686*/ curfptr[3685]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3686*/ curfptr[3685]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3687*/ curfptr[3686]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3694*/ curfptr[3693]);
+ meltgc_touch(/*_.VALDATA___V3686*/ curfptr[3685]);
  
- MELT_LOCATION("warmelt-first.melt:1987:/ cond");
+ MELT_LOCATION("warmelt-first.melt:1982:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_STRING)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:1987:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:1982:/ cond.else");
+ 
+  /*com.block:fill predef slots*/{
+   MELT_LOCATION("warmelt-first.melt:1982:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3689*/ curfptr[3688]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:1982:/ touch");
+   /*touch:VALUEDATA_*/
+   meltgc_touch(/*_.VALDATA___V3688*/ curfptr[3687]);
+   ;}/*com.end block:fill predef slots*/
+  ;
+  }
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3692*/ curfptr[3691]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V3691*/ curfptr[3690]);
+ 
+ MELT_LOCATION("warmelt-first.melt:1993:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_VERBATIM_STRING)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:1993:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:1987:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:1993:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3697*/ curfptr[3696]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3694*/ curfptr[3693]);
    ;
-   MELT_LOCATION("warmelt-first.melt:1987:/ touch");
+   MELT_LOCATION("warmelt-first.melt:1993:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALDATA___V3688*/ curfptr[3687]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:1993:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3696*/ curfptr[3695]);
+   meltgc_touch(/*_.VALDATA___V3693*/ curfptr[3692]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3695*/ curfptr[3694])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3695*/ curfptr[3694]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3695*/ curfptr[3694]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3696*/ curfptr[3695]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V3695*/ curfptr[3694]);
+ 
+ MELT_LOCATION("warmelt-first.melt:2002:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3697*/ curfptr[3696])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3697*/ curfptr[3696]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3697*/ curfptr[3696]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3698*/ curfptr[3697]);
+ 
+ MELT_LOCATION("warmelt-first.melt:2002:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V3697*/ curfptr[3696]);
+ 
+ /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3699*/ curfptr[3698])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3699*/ curfptr[3698]))));
@@ -104084,12 +85227,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3699*/ curfptr[3698]);
  
- MELT_LOCATION("warmelt-first.melt:1998:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_VERBATIM_STRING)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:1998:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2011:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_NULL_RECEIVER)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2011:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:1998:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2011:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700])) == OBMAG_OBJECT);
    
@@ -104097,15 +85240,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3702*/ curfptr[3701]);
    ;
-   MELT_LOCATION("warmelt-first.melt:1998:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2011:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3696*/ curfptr[3695]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:1998:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2011:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3701*/ curfptr[3700]);
    ;}/*com.end block:fill predef slots*/
@@ -104122,17 +85265,33 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3703*/ curfptr[3702]);
  
- MELT_LOCATION("warmelt-first.melt:2007:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3706*/ curfptr[3705]);
+ MELT_LOCATION("warmelt-first.melt:2018:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_STRBUF)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2018:/ cond.else");
  
- MELT_LOCATION("warmelt-first.melt:2007:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3705*/ curfptr[3704]);
+  /*com.block:fill predef slots*/{
+   MELT_LOCATION("warmelt-first.melt:2018:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3706*/ curfptr[3705]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:2018:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALDATA___V3697*/ curfptr[3696]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:2018:/ touch");
+   /*touch:VALUEDATA_*/
+   meltgc_touch(/*_.VALDATA___V3705*/ curfptr[3704]);
+   ;}/*com.end block:fill predef slots*/
+  ;
+  }
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3707*/ curfptr[3706])) == OBMAG_OBJECT);
@@ -104144,12 +85303,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3707*/ curfptr[3706]);
  
- MELT_LOCATION("warmelt-first.melt:2016:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_NULL_RECEIVER)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2016:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2026:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_INTEGER)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2026:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2016:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2026:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708])) == OBMAG_OBJECT);
    
@@ -104157,15 +85316,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3710*/ curfptr[3709]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2016:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2026:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2016:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2026:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3709*/ curfptr[3708]);
    ;}/*com.end block:fill predef slots*/
@@ -104182,12 +85341,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3711*/ curfptr[3710]);
  
- MELT_LOCATION("warmelt-first.melt:2023:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_STRBUF)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2023:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2034:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CONSTANT_INTEGER)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2034:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2023:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2034:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712])) == OBMAG_OBJECT);
    
@@ -104195,15 +85354,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3714*/ curfptr[3713]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2023:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2034:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3709*/ curfptr[3708]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2023:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2034:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3713*/ curfptr[3712]);
    ;}/*com.end block:fill predef slots*/
@@ -104220,12 +85379,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3715*/ curfptr[3714]);
  
- MELT_LOCATION("warmelt-first.melt:2031:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_INTEGER)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2031:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2045:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_LIST)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2045:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2031:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2045:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])) == OBMAG_OBJECT);
    
@@ -104233,15 +85392,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3718*/ curfptr[3717]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2031:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2045:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2031:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2045:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3717*/ curfptr[3716]);
    ;}/*com.end block:fill predef slots*/
@@ -104258,12 +85417,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3719*/ curfptr[3718]);
  
- MELT_LOCATION("warmelt-first.melt:2039:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CONSTANT_INTEGER)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2039:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2053:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_PAIR)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2053:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2039:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2053:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720])) == OBMAG_OBJECT);
    
@@ -104271,15 +85430,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3722*/ curfptr[3721]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2039:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2053:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3717*/ curfptr[3716]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2039:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2053:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3721*/ curfptr[3720]);
    ;}/*com.end block:fill predef slots*/
@@ -104296,12 +85455,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3723*/ curfptr[3722]);
  
- MELT_LOCATION("warmelt-first.melt:2050:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_LIST)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2050:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2061:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MULTIPLE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2061:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2050:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2061:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])) == OBMAG_OBJECT);
    
@@ -104309,15 +85468,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3726*/ curfptr[3725]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2050:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2061:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2050:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2061:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3725*/ curfptr[3724]);
    ;}/*com.end block:fill predef slots*/
@@ -104334,12 +85493,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3727*/ curfptr[3726]);
  
- MELT_LOCATION("warmelt-first.melt:2058:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_PAIR)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2058:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2070:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_FIELD_SEQUENCE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2070:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2058:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2070:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728])) == OBMAG_OBJECT);
    
@@ -104347,15 +85506,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3730*/ curfptr[3729]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2058:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2070:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3725*/ curfptr[3724]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2058:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2070:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3729*/ curfptr[3728]);
    ;}/*com.end block:fill predef slots*/
@@ -104372,12 +85531,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3731*/ curfptr[3730]);
  
- MELT_LOCATION("warmelt-first.melt:2066:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MULTIPLE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2066:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2081:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_BOX)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2081:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2066:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2081:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732])) == OBMAG_OBJECT);
    
@@ -104385,15 +85544,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3734*/ curfptr[3733]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2066:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2081:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2066:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2081:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3733*/ curfptr[3732]);
    ;}/*com.end block:fill predef slots*/
@@ -104410,12 +85569,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3735*/ curfptr[3734]);
  
- MELT_LOCATION("warmelt-first.melt:2075:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_FIELD_SEQUENCE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2075:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2090:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_TREE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2090:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2075:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2090:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3737*/ curfptr[3736])) == OBMAG_OBJECT);
    
@@ -104423,15 +85582,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3737*/ curfptr[3736]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3738*/ curfptr[3737]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2075:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2090:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3737*/ curfptr[3736])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3737*/ curfptr[3736]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3737*/ curfptr[3736]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3733*/ curfptr[3732]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2075:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2090:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3737*/ curfptr[3736]);
    ;}/*com.end block:fill predef slots*/
@@ -104448,12 +85607,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3739*/ curfptr[3738]);
  
- MELT_LOCATION("warmelt-first.melt:2086:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_BOX)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2086:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2098:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_GIMPLE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2098:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2086:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2098:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740])) == OBMAG_OBJECT);
    
@@ -104461,15 +85620,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3742*/ curfptr[3741]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2086:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2098:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2086:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2098:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3741*/ curfptr[3740]);
    ;}/*com.end block:fill predef slots*/
@@ -104486,12 +85645,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3743*/ curfptr[3742]);
  
- MELT_LOCATION("warmelt-first.melt:2095:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_TREE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2095:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2106:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_GIMPLE_SEQ)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2106:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2095:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2106:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3745*/ curfptr[3744])) == OBMAG_OBJECT);
    
@@ -104499,15 +85658,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3745*/ curfptr[3744]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3746*/ curfptr[3745]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2095:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2106:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3745*/ curfptr[3744])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3745*/ curfptr[3744]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3745*/ curfptr[3744]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2095:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2106:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3745*/ curfptr[3744]);
    ;}/*com.end block:fill predef slots*/
@@ -104524,12 +85683,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3747*/ curfptr[3746]);
  
- MELT_LOCATION("warmelt-first.melt:2103:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_GIMPLE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2103:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2114:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_EDGE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2114:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2103:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2114:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3749*/ curfptr[3748])) == OBMAG_OBJECT);
    
@@ -104537,15 +85696,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3749*/ curfptr[3748]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3750*/ curfptr[3749]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2103:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2114:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3749*/ curfptr[3748])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3749*/ curfptr[3748]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3749*/ curfptr[3748]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2103:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2114:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3749*/ curfptr[3748]);
    ;}/*com.end block:fill predef slots*/
@@ -104562,12 +85721,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3751*/ curfptr[3750]);
  
- MELT_LOCATION("warmelt-first.melt:2111:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_GIMPLE_SEQ)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2111:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2121:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_BASIC_BLOCK)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2121:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2111:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2121:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3753*/ curfptr[3752])) == OBMAG_OBJECT);
    
@@ -104575,15 +85734,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3753*/ curfptr[3752]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3754*/ curfptr[3753]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2111:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2121:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3753*/ curfptr[3752])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3753*/ curfptr[3752]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3753*/ curfptr[3752]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2111:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2121:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3753*/ curfptr[3752]);
    ;}/*com.end block:fill predef slots*/
@@ -104600,12 +85759,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3755*/ curfptr[3754]);
  
- MELT_LOCATION("warmelt-first.melt:2119:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_EDGE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2119:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2130:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_OBJECTS)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2130:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2119:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2130:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756])) == OBMAG_OBJECT);
    
@@ -104613,15 +85772,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3758*/ curfptr[3757]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2119:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2130:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2119:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2130:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3757*/ curfptr[3756]);
    ;}/*com.end block:fill predef slots*/
@@ -104638,12 +85797,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3759*/ curfptr[3758]);
  
- MELT_LOCATION("warmelt-first.melt:2126:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_BASIC_BLOCK)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2126:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2139:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_STRINGS)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2139:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2126:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2139:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760])) == OBMAG_OBJECT);
    
@@ -104651,15 +85810,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3762*/ curfptr[3761]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2126:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2139:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2126:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2139:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3761*/ curfptr[3760]);
    ;}/*com.end block:fill predef slots*/
@@ -104676,12 +85835,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3763*/ curfptr[3762]);
  
- MELT_LOCATION("warmelt-first.melt:2135:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_OBJECTS)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2135:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2148:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_TREES)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2148:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2135:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2148:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764])) == OBMAG_OBJECT);
    
@@ -104689,15 +85848,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3766*/ curfptr[3765]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2135:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2148:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2135:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2148:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3765*/ curfptr[3764]);
    ;}/*com.end block:fill predef slots*/
@@ -104714,12 +85873,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3767*/ curfptr[3766]);
  
- MELT_LOCATION("warmelt-first.melt:2144:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_STRINGS)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2144:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2157:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLES)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2157:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2144:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2157:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768])) == OBMAG_OBJECT);
    
@@ -104727,15 +85886,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3770*/ curfptr[3769]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2144:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2157:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2144:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2157:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3769*/ curfptr[3768]);
    ;}/*com.end block:fill predef slots*/
@@ -104752,12 +85911,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3771*/ curfptr[3770]);
  
- MELT_LOCATION("warmelt-first.melt:2153:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_TREES)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2153:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2166:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLE_SEQS)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2166:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2153:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2166:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3773*/ curfptr[3772])) == OBMAG_OBJECT);
    
@@ -104765,15 +85924,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3773*/ curfptr[3772]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3774*/ curfptr[3773]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2153:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2166:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3773*/ curfptr[3772])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3773*/ curfptr[3772]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3773*/ curfptr[3772]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2153:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2166:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3773*/ curfptr[3772]);
    ;}/*com.end block:fill predef slots*/
@@ -104790,12 +85949,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3775*/ curfptr[3774]);
  
- MELT_LOCATION("warmelt-first.melt:2162:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLES)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2162:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2175:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_EDGES)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2175:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2162:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2175:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3777*/ curfptr[3776])) == OBMAG_OBJECT);
    
@@ -104803,15 +85962,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3777*/ curfptr[3776]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3778*/ curfptr[3777]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2162:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2175:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3777*/ curfptr[3776])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3777*/ curfptr[3776]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3777*/ curfptr[3776]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2162:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2175:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3777*/ curfptr[3776]);
    ;}/*com.end block:fill predef slots*/
@@ -104828,12 +85987,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3779*/ curfptr[3778]);
  
- MELT_LOCATION("warmelt-first.melt:2171:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_GIMPLE_SEQS)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2171:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2184:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_BASIC_BLOCKS)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2184:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2171:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2184:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3781*/ curfptr[3780])) == OBMAG_OBJECT);
    
@@ -104841,15 +86000,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3781*/ curfptr[3780]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3782*/ curfptr[3781]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2171:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2184:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3781*/ curfptr[3780])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3781*/ curfptr[3780]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3781*/ curfptr[3780]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2171:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2184:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3781*/ curfptr[3780]);
    ;}/*com.end block:fill predef slots*/
@@ -104866,33 +86025,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3783*/ curfptr[3782]);
  
- MELT_LOCATION("warmelt-first.melt:2180:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_EDGES)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2180:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2194:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784])) == OBMAG_OBJECT);
  
-  /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2180:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3786*/ curfptr[3785]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2180:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2180:/ touch");
-   /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3785*/ curfptr[3784]);
-   ;}/*com.end block:fill predef slots*/
-  ;
-  }
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3786*/ curfptr[3785]);
+ 
+ MELT_LOCATION("warmelt-first.melt:2194:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3785*/ curfptr[3784]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALDATA___V3697*/ curfptr[3696]);
+ 
+ MELT_LOCATION("warmelt-first.melt:2194:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V3785*/ curfptr[3784]);
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3787*/ curfptr[3786])) == OBMAG_OBJECT);
@@ -104904,33 +86055,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3787*/ curfptr[3786]);
  
- MELT_LOCATION("warmelt-first.melt:2189:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MAP_BASIC_BLOCKS)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2189:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2202:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788])) == OBMAG_OBJECT);
  
-  /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2189:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3790*/ curfptr[3789]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2189:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2189:/ touch");
-   /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3789*/ curfptr[3788]);
-   ;}/*com.end block:fill predef slots*/
-  ;
-  }
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3790*/ curfptr[3789]);
+ 
+ MELT_LOCATION("warmelt-first.melt:2202:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3789*/ curfptr[3788]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALDATA___V3697*/ curfptr[3696]);
+ 
+ MELT_LOCATION("warmelt-first.melt:2202:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V3789*/ curfptr[3788]);
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3791*/ curfptr[3790])) == OBMAG_OBJECT);
@@ -104942,7 +86085,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3791*/ curfptr[3790]);
  
- MELT_LOCATION("warmelt-first.melt:2199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2211:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3793*/ curfptr[3792])) == OBMAG_OBJECT);
  
@@ -104950,15 +86093,15 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V3793*/ curfptr[3792]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V3794*/ curfptr[3793]);
  
- MELT_LOCATION("warmelt-first.melt:2199:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2211:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3793*/ curfptr[3792])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3793*/ curfptr[3792]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V3793*/ curfptr[3792]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V3705*/ curfptr[3704]);
+  /*_.VALDATA___V3697*/ curfptr[3696]);
  
- MELT_LOCATION("warmelt-first.melt:2199:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2211:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3793*/ curfptr[3792]);
  
@@ -104972,7 +86115,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3795*/ curfptr[3794]);
  
- MELT_LOCATION("warmelt-first.melt:2207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2221:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3797*/ curfptr[3796])) == OBMAG_OBJECT);
  
@@ -104980,15 +86123,15 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V3797*/ curfptr[3796]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V3798*/ curfptr[3797]);
  
- MELT_LOCATION("warmelt-first.melt:2207:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2221:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3797*/ curfptr[3796])) == OBMAG_OBJECT);
  
  melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3797*/ curfptr[3796]))));
  ((meltobject_ptr_t)(/*_.VALDATA___V3797*/ curfptr[3796]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V3705*/ curfptr[3704]);
+  /*_.VALDATA___V3793*/ curfptr[3792]);
  
- MELT_LOCATION("warmelt-first.melt:2207:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2221:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3797*/ curfptr[3796]);
  
@@ -105002,25 +86145,33 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3799*/ curfptr[3798]);
  
- MELT_LOCATION("warmelt-first.melt:2216:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3802*/ curfptr[3801]);
- 
- MELT_LOCATION("warmelt-first.melt:2216:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V3705*/ curfptr[3704]);
+ MELT_LOCATION("warmelt-first.melt:2231:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CLASS_SEQUENCE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2231:/ cond.else");
  
- MELT_LOCATION("warmelt-first.melt:2216:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3801*/ curfptr[3800]);
+  /*com.block:fill predef slots*/{
+   MELT_LOCATION("warmelt-first.melt:2231:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3802*/ curfptr[3801]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:2231:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3801*/ curfptr[3800]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALDATA___V3725*/ curfptr[3724]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:2231:/ touch");
+   /*touch:VALUEDATA_*/
+   meltgc_touch(/*_.VALDATA___V3801*/ curfptr[3800]);
+   ;}/*com.end block:fill predef slots*/
+  ;
+  }
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3803*/ curfptr[3802])) == OBMAG_OBJECT);
@@ -105032,25 +86183,33 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3803*/ curfptr[3802]);
  
- MELT_LOCATION("warmelt-first.melt:2226:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3806*/ curfptr[3805]);
- 
- MELT_LOCATION("warmelt-first.melt:2226:/ putslot");
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALDATA___V3801*/ curfptr[3800]);
+ MELT_LOCATION("warmelt-first.melt:2242:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_METHOD_MAP)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2242:/ cond.else");
  
- MELT_LOCATION("warmelt-first.melt:2226:/ touch");
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3805*/ curfptr[3804]);
+  /*com.block:fill predef slots*/{
+   MELT_LOCATION("warmelt-first.melt:2242:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3806*/ curfptr[3805]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:2242:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804])) == OBMAG_OBJECT);
+   
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALDATA___V3757*/ curfptr[3756]);
+   ;
+   MELT_LOCATION("warmelt-first.melt:2242:/ touch");
+   /*touch:VALUEDATA_*/
+   meltgc_touch(/*_.VALDATA___V3805*/ curfptr[3804]);
+   ;}/*com.end block:fill predef slots*/
+  ;
+  }
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3807*/ curfptr[3806])) == OBMAG_OBJECT);
@@ -105062,12 +86221,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3807*/ curfptr[3806]);
  
- MELT_LOCATION("warmelt-first.melt:2236:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CLASS_SEQUENCE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2236:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2253:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CHARACTER_INTEGER)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2253:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2236:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2253:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3809*/ curfptr[3808])) == OBMAG_OBJECT);
    
@@ -105075,15 +86234,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3809*/ curfptr[3808]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3810*/ curfptr[3809]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2236:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2253:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3809*/ curfptr[3808])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3809*/ curfptr[3808]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3809*/ curfptr[3808]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3733*/ curfptr[3732]);
+    /*_.VALDATA___V3709*/ curfptr[3708]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2236:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2253:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3809*/ curfptr[3808]);
    ;}/*com.end block:fill predef slots*/
@@ -105100,12 +86259,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3811*/ curfptr[3810]);
  
- MELT_LOCATION("warmelt-first.melt:2247:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_METHOD_MAP)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2247:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2264:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_INTEGER)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2264:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2247:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2264:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812])) == OBMAG_OBJECT);
    
@@ -105113,15 +86272,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3814*/ curfptr[3813]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2247:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2264:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3765*/ curfptr[3764]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2247:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2264:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3813*/ curfptr[3812]);
    ;}/*com.end block:fill predef slots*/
@@ -105138,12 +86297,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3815*/ curfptr[3814]);
  
- MELT_LOCATION("warmelt-first.melt:2258:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CHARACTER_INTEGER)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2258:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2274:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_BIGINT)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2274:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2258:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2274:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816])) == OBMAG_OBJECT);
    
@@ -105151,15 +86310,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3818*/ curfptr[3817]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2258:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2274:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3717*/ curfptr[3716]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2258:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2274:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3817*/ curfptr[3816]);
    ;}/*com.end block:fill predef slots*/
@@ -105176,12 +86335,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3819*/ curfptr[3818]);
  
- MELT_LOCATION("warmelt-first.melt:2269:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_INTEGER)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2269:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2285:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_LOCATION)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2285:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2269:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2285:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820])) == OBMAG_OBJECT);
    
@@ -105189,15 +86348,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3822*/ curfptr[3821]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2269:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2285:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2269:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2285:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3821*/ curfptr[3820]);
    ;}/*com.end block:fill predef slots*/
@@ -105214,12 +86373,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3823*/ curfptr[3822]);
  
- MELT_LOCATION("warmelt-first.melt:2279:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_BIGINT)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2279:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2295:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CLOSURE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2295:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2279:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2295:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824])) == OBMAG_OBJECT);
    
@@ -105227,15 +86386,15 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3826*/ curfptr[3825]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2279:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2295:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2279:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2295:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3825*/ curfptr[3824]);
    ;}/*com.end block:fill predef slots*/
@@ -105252,12 +86411,12 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V3827*/ curfptr[3826]);
  
- MELT_LOCATION("warmelt-first.melt:2290:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_MIXED_LOCATION)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2290:/ cond.else");
+ MELT_LOCATION("warmelt-first.melt:2304:/ cond");
+ /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_ROUTINE)) /*then*/ {
+ } else {MELT_LOCATION("warmelt-first.melt:2304:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2290:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2304:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828])) == OBMAG_OBJECT);
    
@@ -105265,4061 +86424,4027 @@ initial_frame_st     curfram__;
    ((meltobject_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]))->obj_vartab[1] = (melt_ptr_t)(
     /*_.VALSTR___V3830*/ curfptr[3829]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2290:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2304:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828])) == OBMAG_OBJECT);
    
    melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]))));
    ((meltobject_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
+    /*_.VALDATA___V3697*/ curfptr[3696]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2290:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2304:/ touch");
    /*touch:VALUEDATA_*/
    meltgc_touch(/*_.VALDATA___V3829*/ curfptr[3828]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3831*/ curfptr[3830])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3831*/ curfptr[3830]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3831*/ curfptr[3830]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3832*/ curfptr[3831]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3831*/ curfptr[3830]);
- 
- MELT_LOCATION("warmelt-first.melt:2300:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_CLOSURE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2300:/ cond.else");
- 
-  /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2300:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3834*/ curfptr[3833]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2300:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2300:/ touch");
-   /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3833*/ curfptr[3832]);
-   ;}/*com.end block:fill predef slots*/
-  ;
-  }
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3836*/ curfptr[3835]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3835*/ curfptr[3834]);
- 
- MELT_LOCATION("warmelt-first.melt:2309:/ cond");
- /*cond*/ if (MELTPREDEFIX(predefinited,DISCR_ROUTINE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2309:/ cond.else");
- 
-  /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2309:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3838*/ curfptr[3837]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2309:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836])) == OBMAG_OBJECT);
-   
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALDATA___V3705*/ curfptr[3704]);
-   ;
-   MELT_LOCATION("warmelt-first.melt:2309:/ touch");
-   /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3837*/ curfptr[3836]);
-   ;}/*com.end block:fill predef slots*/
-  ;
-  }
- 
- MELT_LOCATION("warmelt-first.melt:2321:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2316:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3839*/ curfptr[3838])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3831*/ curfptr[3830])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V257*/ curfptr[256]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3839*/ curfptr[3838])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3831*/ curfptr[3830])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
  
- MELT_LOCATION("warmelt-first.melt:2321:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2316:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3839*/ curfptr[3838])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3696*/ curfptr[3695]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3839*/ curfptr[3838])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3831*/ curfptr[3830])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3688*/ curfptr[3687]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3831*/ curfptr[3830])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]);
  
- MELT_LOCATION("warmelt-first.melt:2321:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2316:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3839*/ curfptr[3838])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3831*/ curfptr[3830])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V251*/ curfptr[250]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3839*/ curfptr[3838])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3831*/ curfptr[3830])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
  
- MELT_LOCATION("warmelt-first.melt:2321:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2316:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3839*/ curfptr[3838])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3831*/ curfptr[3830])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3839*/ curfptr[3838])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3831*/ curfptr[3830])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2321:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2316:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V3839*/ curfptr[3838]);
+ meltgc_touch(/*_.VALROUT___V3831*/ curfptr[3830]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3839*/ curfptr[3838])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V3840*/ curfptr[3839])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3839*/ curfptr[3838]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3831*/ curfptr[3830])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V3832*/ curfptr[3831])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3831*/ curfptr[3830]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V3840*/ curfptr[3839]);
+ meltgc_touch(/*_.VALCLO___V3832*/ curfptr[3831]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3841*/ curfptr[3840])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3841*/ curfptr[3840]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3841*/ curfptr[3840]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3842*/ curfptr[3841]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3834*/ curfptr[3833]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3841*/ curfptr[3840]);
+ meltgc_touch(/*_.VALDATA___V3833*/ curfptr[3832]);
  
- MELT_LOCATION("warmelt-first.melt:2345:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2340:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_VALUE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2345:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2340:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3844*/ curfptr[3843]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3836*/ curfptr[3835]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3845*/ curfptr[3844]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3837*/ curfptr[3836]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3847*/ curfptr[3846]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3839*/ curfptr[3838]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3848*/ curfptr[3847]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3840*/ curfptr[3839]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3849*/ curfptr[3848]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3841*/ curfptr[3840]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3850*/ curfptr[3849]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3842*/ curfptr[3841]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3851*/ curfptr[3850]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3843*/ curfptr[3842]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2340:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALSTR___V3852*/ curfptr[3851]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALSTR___V3844*/ curfptr[3843]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2345:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2340:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3843*/ curfptr[3842]);
+   meltgc_touch(/*_.VALDATA___V3835*/ curfptr[3834]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3846*/ curfptr[3845]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3838*/ curfptr[3837]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3845*/ curfptr[3844]);
+ meltgc_touch(/*_.VALDATA___V3837*/ curfptr[3836]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3853*/ curfptr[3852])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3853*/ curfptr[3852]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3853*/ curfptr[3852]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3854*/ curfptr[3853]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3846*/ curfptr[3845]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3853*/ curfptr[3852]);
+ meltgc_touch(/*_.VALDATA___V3845*/ curfptr[3844]);
  
- MELT_LOCATION("warmelt-first.melt:2361:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2356:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_LONG)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2361:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2356:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3856*/ curfptr[3855]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3848*/ curfptr[3847]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3857*/ curfptr[3856]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3849*/ curfptr[3848]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3859*/ curfptr[3858]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3851*/ curfptr[3850]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3860*/ curfptr[3859]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3852*/ curfptr[3851]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3861*/ curfptr[3860]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3853*/ curfptr[3852]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3862*/ curfptr[3861]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3854*/ curfptr[3853]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2356:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3863*/ curfptr[3862]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3855*/ curfptr[3854]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2361:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2356:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3855*/ curfptr[3854]);
+   meltgc_touch(/*_.VALDATA___V3847*/ curfptr[3846]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3857*/ curfptr[3856])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3849*/ curfptr[3848])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3857*/ curfptr[3856]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3857*/ curfptr[3856]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3858*/ curfptr[3857]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3849*/ curfptr[3848]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3849*/ curfptr[3848]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3850*/ curfptr[3849]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3857*/ curfptr[3856]);
+ meltgc_touch(/*_.VALDATA___V3849*/ curfptr[3848]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3864*/ curfptr[3863])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3856*/ curfptr[3855])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3864*/ curfptr[3863]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3864*/ curfptr[3863]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3865*/ curfptr[3864]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3856*/ curfptr[3855]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3856*/ curfptr[3855]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3857*/ curfptr[3856]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3864*/ curfptr[3863]);
+ meltgc_touch(/*_.VALDATA___V3856*/ curfptr[3855]);
  
- MELT_LOCATION("warmelt-first.melt:2375:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2370:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_TREE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2375:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2370:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3867*/ curfptr[3866]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3859*/ curfptr[3858]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3868*/ curfptr[3867]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3860*/ curfptr[3859]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3870*/ curfptr[3869]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3862*/ curfptr[3861]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3871*/ curfptr[3870]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3863*/ curfptr[3862]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3872*/ curfptr[3871]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3864*/ curfptr[3863]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3873*/ curfptr[3872]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3865*/ curfptr[3864]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3874*/ curfptr[3873]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3866*/ curfptr[3865]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2370:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALSTR___V3875*/ curfptr[3874]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALSTR___V3867*/ curfptr[3866]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2375:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2370:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3866*/ curfptr[3865]);
+   meltgc_touch(/*_.VALDATA___V3858*/ curfptr[3857]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3860*/ curfptr[3859])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3869*/ curfptr[3868]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3860*/ curfptr[3859]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3860*/ curfptr[3859]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3861*/ curfptr[3860]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3868*/ curfptr[3867]);
+ meltgc_touch(/*_.VALDATA___V3860*/ curfptr[3859]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3876*/ curfptr[3875])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3876*/ curfptr[3875]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3876*/ curfptr[3875]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3877*/ curfptr[3876]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3869*/ curfptr[3868]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3876*/ curfptr[3875]);
+ meltgc_touch(/*_.VALDATA___V3868*/ curfptr[3867]);
  
- MELT_LOCATION("warmelt-first.melt:2390:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2385:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_GIMPLE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2390:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2385:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3879*/ curfptr[3878]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3871*/ curfptr[3870]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3880*/ curfptr[3879]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3872*/ curfptr[3871]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3882*/ curfptr[3881]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3874*/ curfptr[3873]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3883*/ curfptr[3882]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3875*/ curfptr[3874]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3884*/ curfptr[3883]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3876*/ curfptr[3875]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3885*/ curfptr[3884]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3877*/ curfptr[3876]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3886*/ curfptr[3885]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3878*/ curfptr[3877]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2385:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALSTR___V3887*/ curfptr[3886]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALSTR___V3879*/ curfptr[3878]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2390:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2385:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3878*/ curfptr[3877]);
+   meltgc_touch(/*_.VALDATA___V3870*/ curfptr[3869]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3872*/ curfptr[3871])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3881*/ curfptr[3880]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3872*/ curfptr[3871]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3872*/ curfptr[3871]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3873*/ curfptr[3872]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3880*/ curfptr[3879]);
+ meltgc_touch(/*_.VALDATA___V3872*/ curfptr[3871]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3888*/ curfptr[3887])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3888*/ curfptr[3887]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3888*/ curfptr[3887]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3889*/ curfptr[3888]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3881*/ curfptr[3880]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3888*/ curfptr[3887]);
+ meltgc_touch(/*_.VALDATA___V3880*/ curfptr[3879]);
  
- MELT_LOCATION("warmelt-first.melt:2405:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2400:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_GIMPLE_SEQ)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2405:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2400:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3891*/ curfptr[3890]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3883*/ curfptr[3882]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3892*/ curfptr[3891]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3884*/ curfptr[3883]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3894*/ curfptr[3893]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3886*/ curfptr[3885]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3895*/ curfptr[3894]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3887*/ curfptr[3886]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3896*/ curfptr[3895]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3888*/ curfptr[3887]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3897*/ curfptr[3896]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3889*/ curfptr[3888]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3898*/ curfptr[3897]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3890*/ curfptr[3889]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2400:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALSTR___V3899*/ curfptr[3898]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALSTR___V3891*/ curfptr[3890]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2405:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2400:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3890*/ curfptr[3889]);
+   meltgc_touch(/*_.VALDATA___V3882*/ curfptr[3881]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3884*/ curfptr[3883])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3893*/ curfptr[3892]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3884*/ curfptr[3883]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3884*/ curfptr[3883]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3885*/ curfptr[3884]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3892*/ curfptr[3891]);
+ meltgc_touch(/*_.VALDATA___V3884*/ curfptr[3883]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3900*/ curfptr[3899])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3900*/ curfptr[3899]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3900*/ curfptr[3899]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3901*/ curfptr[3900]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3893*/ curfptr[3892]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3900*/ curfptr[3899]);
+ meltgc_touch(/*_.VALDATA___V3892*/ curfptr[3891]);
  
- MELT_LOCATION("warmelt-first.melt:2422:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2417:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_BASIC_BLOCK)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2422:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2417:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3903*/ curfptr[3902]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3895*/ curfptr[3894]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3904*/ curfptr[3903]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3896*/ curfptr[3895]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3906*/ curfptr[3905]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3898*/ curfptr[3897]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3907*/ curfptr[3906]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3899*/ curfptr[3898]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3908*/ curfptr[3907]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3900*/ curfptr[3899]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3909*/ curfptr[3908]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3901*/ curfptr[3900]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3910*/ curfptr[3909]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3902*/ curfptr[3901]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2417:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALSTR___V3911*/ curfptr[3910]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALSTR___V3903*/ curfptr[3902]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2422:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2417:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3902*/ curfptr[3901]);
+   meltgc_touch(/*_.VALDATA___V3894*/ curfptr[3893]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3896*/ curfptr[3895])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3905*/ curfptr[3904]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3896*/ curfptr[3895]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3896*/ curfptr[3895]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3897*/ curfptr[3896]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3904*/ curfptr[3903]);
+ meltgc_touch(/*_.VALDATA___V3896*/ curfptr[3895]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3912*/ curfptr[3911])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3912*/ curfptr[3911]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3912*/ curfptr[3911]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3913*/ curfptr[3912]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3905*/ curfptr[3904]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3912*/ curfptr[3911]);
+ meltgc_touch(/*_.VALDATA___V3904*/ curfptr[3903]);
  
- MELT_LOCATION("warmelt-first.melt:2439:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2434:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_EDGE)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2439:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2434:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3915*/ curfptr[3914]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3907*/ curfptr[3906]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3916*/ curfptr[3915]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3908*/ curfptr[3907]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3918*/ curfptr[3917]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3910*/ curfptr[3909]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3919*/ curfptr[3918]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3911*/ curfptr[3910]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3920*/ curfptr[3919]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3912*/ curfptr[3911]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3921*/ curfptr[3920]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3913*/ curfptr[3912]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3922*/ curfptr[3921]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3914*/ curfptr[3913]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2434:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALSTR___V3923*/ curfptr[3922]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALSTR___V3915*/ curfptr[3914]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2439:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2434:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3914*/ curfptr[3913]);
+   meltgc_touch(/*_.VALDATA___V3906*/ curfptr[3905]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3908*/ curfptr[3907])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3917*/ curfptr[3916]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3908*/ curfptr[3907]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3908*/ curfptr[3907]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3909*/ curfptr[3908]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3916*/ curfptr[3915]);
+ meltgc_touch(/*_.VALDATA___V3908*/ curfptr[3907]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3924*/ curfptr[3923])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3924*/ curfptr[3923]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3924*/ curfptr[3923]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3925*/ curfptr[3924]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3917*/ curfptr[3916]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3924*/ curfptr[3923]);
+ meltgc_touch(/*_.VALDATA___V3916*/ curfptr[3915]);
  
- MELT_LOCATION("warmelt-first.melt:2455:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2450:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_COEFFICIENT)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2455:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2450:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3927*/ curfptr[3926]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3919*/ curfptr[3918]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3928*/ curfptr[3927]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3920*/ curfptr[3919]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3930*/ curfptr[3929]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3922*/ curfptr[3921]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3931*/ curfptr[3930]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3923*/ curfptr[3922]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3932*/ curfptr[3931]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3924*/ curfptr[3923]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3933*/ curfptr[3932]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3925*/ curfptr[3924]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2450:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3934*/ curfptr[3933]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3926*/ curfptr[3925]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2455:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2450:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3926*/ curfptr[3925]);
+   meltgc_touch(/*_.VALDATA___V3918*/ curfptr[3917]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3928*/ curfptr[3927])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3920*/ curfptr[3919])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3928*/ curfptr[3927]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3928*/ curfptr[3927]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3929*/ curfptr[3928]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3920*/ curfptr[3919]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3920*/ curfptr[3919]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3921*/ curfptr[3920]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3928*/ curfptr[3927]);
+ meltgc_touch(/*_.VALDATA___V3920*/ curfptr[3919]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3935*/ curfptr[3934])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3927*/ curfptr[3926])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3935*/ curfptr[3934]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3935*/ curfptr[3934]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3936*/ curfptr[3935]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3927*/ curfptr[3926]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3927*/ curfptr[3926]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3928*/ curfptr[3927]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3935*/ curfptr[3934]);
+ meltgc_touch(/*_.VALDATA___V3927*/ curfptr[3926]);
  
- MELT_LOCATION("warmelt-first.melt:2470:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2465:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_LINEAR_EXPRESSION)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2470:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2465:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3938*/ curfptr[3937]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3930*/ curfptr[3929]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3939*/ curfptr[3938]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3931*/ curfptr[3930]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3941*/ curfptr[3940]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3933*/ curfptr[3932]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3942*/ curfptr[3941]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3934*/ curfptr[3933]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3943*/ curfptr[3942]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3935*/ curfptr[3934]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3944*/ curfptr[3943]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3936*/ curfptr[3935]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2465:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3945*/ curfptr[3944]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3937*/ curfptr[3936]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2470:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2465:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3937*/ curfptr[3936]);
+   meltgc_touch(/*_.VALDATA___V3929*/ curfptr[3928]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3939*/ curfptr[3938])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3931*/ curfptr[3930])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3939*/ curfptr[3938]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3939*/ curfptr[3938]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3940*/ curfptr[3939]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3931*/ curfptr[3930]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3931*/ curfptr[3930]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3932*/ curfptr[3931]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3939*/ curfptr[3938]);
+ meltgc_touch(/*_.VALDATA___V3931*/ curfptr[3930]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3946*/ curfptr[3945])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3938*/ curfptr[3937])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3946*/ curfptr[3945]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3946*/ curfptr[3945]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3947*/ curfptr[3946]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3938*/ curfptr[3937]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3938*/ curfptr[3937]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3939*/ curfptr[3938]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3946*/ curfptr[3945]);
+ meltgc_touch(/*_.VALDATA___V3938*/ curfptr[3937]);
  
- MELT_LOCATION("warmelt-first.melt:2485:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2480:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2485:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2480:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3949*/ curfptr[3948]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3941*/ curfptr[3940]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3950*/ curfptr[3949]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3942*/ curfptr[3941]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3952*/ curfptr[3951]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3944*/ curfptr[3943]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3953*/ curfptr[3952]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3945*/ curfptr[3944]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3954*/ curfptr[3953]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3946*/ curfptr[3945]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3955*/ curfptr[3954]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3947*/ curfptr[3946]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2480:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3956*/ curfptr[3955]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3948*/ curfptr[3947]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2485:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2480:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3948*/ curfptr[3947]);
+   meltgc_touch(/*_.VALDATA___V3940*/ curfptr[3939]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3950*/ curfptr[3949])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3942*/ curfptr[3941])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3950*/ curfptr[3949]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3950*/ curfptr[3949]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3951*/ curfptr[3950]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3942*/ curfptr[3941]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3942*/ curfptr[3941]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3943*/ curfptr[3942]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3950*/ curfptr[3949]);
+ meltgc_touch(/*_.VALDATA___V3942*/ curfptr[3941]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3957*/ curfptr[3956])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3949*/ curfptr[3948])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3957*/ curfptr[3956]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3957*/ curfptr[3956]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3958*/ curfptr[3957]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3949*/ curfptr[3948]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3949*/ curfptr[3948]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3950*/ curfptr[3949]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3957*/ curfptr[3956]);
+ meltgc_touch(/*_.VALDATA___V3949*/ curfptr[3948]);
  
- MELT_LOCATION("warmelt-first.melt:2500:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2495:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_CONSTRAINT_SYSTEM)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2500:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2495:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3960*/ curfptr[3959]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3952*/ curfptr[3951]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3961*/ curfptr[3960]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3953*/ curfptr[3952]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3963*/ curfptr[3962]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3955*/ curfptr[3954]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3964*/ curfptr[3963]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3956*/ curfptr[3955]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3965*/ curfptr[3964]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3957*/ curfptr[3956]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3966*/ curfptr[3965]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3958*/ curfptr[3957]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2495:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3967*/ curfptr[3966]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3959*/ curfptr[3958]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2500:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2495:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3959*/ curfptr[3958]);
+   meltgc_touch(/*_.VALDATA___V3951*/ curfptr[3950]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3961*/ curfptr[3960])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3953*/ curfptr[3952])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3961*/ curfptr[3960]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3961*/ curfptr[3960]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3962*/ curfptr[3961]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3953*/ curfptr[3952]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3953*/ curfptr[3952]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3954*/ curfptr[3953]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3961*/ curfptr[3960]);
+ meltgc_touch(/*_.VALDATA___V3953*/ curfptr[3952]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3968*/ curfptr[3967])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3960*/ curfptr[3959])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3968*/ curfptr[3967]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3968*/ curfptr[3967]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3969*/ curfptr[3968]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3960*/ curfptr[3959]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3960*/ curfptr[3959]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3961*/ curfptr[3960]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3968*/ curfptr[3967]);
+ meltgc_touch(/*_.VALDATA___V3960*/ curfptr[3959]);
  
- MELT_LOCATION("warmelt-first.melt:2515:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2510:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_PPL_POLYHEDRON)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2515:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2510:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3971*/ curfptr[3970]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3963*/ curfptr[3962]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3972*/ curfptr[3971]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3964*/ curfptr[3963]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3974*/ curfptr[3973]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3966*/ curfptr[3965]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3975*/ curfptr[3974]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3967*/ curfptr[3966]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3976*/ curfptr[3975]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3968*/ curfptr[3967]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3977*/ curfptr[3976]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3969*/ curfptr[3968]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2510:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.VALSTR___V3978*/ curfptr[3977]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.VALSTR___V3970*/ curfptr[3969]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2515:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2510:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3970*/ curfptr[3969]);
+   meltgc_touch(/*_.VALDATA___V3962*/ curfptr[3961]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3972*/ curfptr[3971])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3964*/ curfptr[3963])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3972*/ curfptr[3971]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3972*/ curfptr[3971]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3973*/ curfptr[3972]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3964*/ curfptr[3963]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3964*/ curfptr[3963]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3965*/ curfptr[3964]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3972*/ curfptr[3971]);
+ meltgc_touch(/*_.VALDATA___V3964*/ curfptr[3963]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3979*/ curfptr[3978])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3971*/ curfptr[3970])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3979*/ curfptr[3978]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3979*/ curfptr[3978]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3980*/ curfptr[3979]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3971*/ curfptr[3970]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3971*/ curfptr[3970]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3972*/ curfptr[3971]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3979*/ curfptr[3978]);
+ meltgc_touch(/*_.VALDATA___V3971*/ curfptr[3970]);
  
- MELT_LOCATION("warmelt-first.melt:2531:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2526:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_VOID)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2531:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2526:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   MELT_LOCATION("warmelt-first.melt:2531:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2526:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3982*/ curfptr[3981]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3974*/ curfptr[3973]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2531:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2526:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3983*/ curfptr[3982]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3975*/ curfptr[3974]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2531:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2526:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALSTR___V3985*/ curfptr[3984]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALSTR___V3977*/ curfptr[3976]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2531:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2526:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3981*/ curfptr[3980]);
+   meltgc_touch(/*_.VALDATA___V3973*/ curfptr[3972]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3975*/ curfptr[3974])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3984*/ curfptr[3983]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3975*/ curfptr[3974]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3975*/ curfptr[3974]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3976*/ curfptr[3975]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3983*/ curfptr[3982]);
+ meltgc_touch(/*_.VALDATA___V3975*/ curfptr[3974]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3986*/ curfptr[3985])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3978*/ curfptr[3977])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3986*/ curfptr[3985]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3986*/ curfptr[3985]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3987*/ curfptr[3986]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3978*/ curfptr[3977]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3978*/ curfptr[3977]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3979*/ curfptr[3978]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3986*/ curfptr[3985]);
+ meltgc_touch(/*_.VALDATA___V3978*/ curfptr[3977]);
  
- MELT_LOCATION("warmelt-first.melt:2543:/ cond");
+ MELT_LOCATION("warmelt-first.melt:2538:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,CTYPE_CSTRING)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:2543:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:2538:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   /*_.STRINGCONST2VAL__V3989*/ curfptr[3988] = 
-    meltgc_new_string((meltobject_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692]), ( "const char*"));;
-   MELT_LOCATION("warmelt-first.melt:2543:/ putslot");
+   /*_.STRINGCONST2VAL__V3981*/ curfptr[3980] = 
+    meltgc_new_string((meltobject_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684]), ( "const char*"));;
+   MELT_LOCATION("warmelt-first.melt:2538:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V3990*/ curfptr[3989]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V3982*/ curfptr[3981]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2543:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2538:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.VALDATA___V3991*/ curfptr[3990]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.VALDATA___V3983*/ curfptr[3982]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2543:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2538:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.STRINGCONST2VAL__V3989*/ curfptr[3988]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.STRINGCONST2VAL__V3981*/ curfptr[3980]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2543:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2538:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALSTR___V3993*/ curfptr[3992]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALSTR___V3985*/ curfptr[3984]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2543:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2538:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALSTR___V3994*/ curfptr[3993]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALSTR___V3986*/ curfptr[3985]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2543:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2538:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.VALSTR___V3995*/ curfptr[3994]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.VALSTR___V3987*/ curfptr[3986]);
    ;
-   MELT_LOCATION("warmelt-first.melt:2543:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2538:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V3988*/ curfptr[3987]);
+   meltgc_touch(/*_.VALDATA___V3980*/ curfptr[3979]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3991*/ curfptr[3990])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3991*/ curfptr[3990]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V3991*/ curfptr[3990]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V3992*/ curfptr[3991]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3984*/ curfptr[3983]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V3991*/ curfptr[3990]);
+ meltgc_touch(/*_.VALDATA___V3983*/ curfptr[3982]);
  
- MELT_LOCATION("warmelt-first.melt:2559:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2554:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3996*/ curfptr[3995])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3988*/ curfptr[3987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V299*/ curfptr[298]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3996*/ curfptr[3995])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3988*/ curfptr[3987])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
  
- MELT_LOCATION("warmelt-first.melt:2559:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2554:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3996*/ curfptr[3995])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3988*/ curfptr[3987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3996*/ curfptr[3995])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3988*/ curfptr[3987])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2559:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2554:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V3996*/ curfptr[3995]);
+ meltgc_touch(/*_.VALROUT___V3988*/ curfptr[3987]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3997*/ curfptr[3996])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3996*/ curfptr[3995])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V3997*/ curfptr[3996])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3996*/ curfptr[3995]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3989*/ curfptr[3988])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3988*/ curfptr[3987])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V3989*/ curfptr[3988])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3988*/ curfptr[3987]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V3997*/ curfptr[3996]);
+ meltgc_touch(/*_.VALCLO___V3989*/ curfptr[3988]);
  
- MELT_LOCATION("warmelt-first.melt:2568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2563:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3998*/ curfptr[3997])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3990*/ curfptr[3989])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V299*/ curfptr[298]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3998*/ curfptr[3997])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3990*/ curfptr[3989])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
  
- MELT_LOCATION("warmelt-first.melt:2568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2563:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3998*/ curfptr[3997])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3990*/ curfptr[3989])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V251*/ curfptr[250]);
- ((meltroutine_ptr_t)/*_.VALROUT___V3998*/ curfptr[3997])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3990*/ curfptr[3989])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
  
- MELT_LOCATION("warmelt-first.melt:2568:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2563:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V3998*/ curfptr[3997]);
+ meltgc_touch(/*_.VALROUT___V3990*/ curfptr[3989]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3999*/ curfptr[3998])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3998*/ curfptr[3997])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V3999*/ curfptr[3998])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3998*/ curfptr[3997]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3991*/ curfptr[3990])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3990*/ curfptr[3989])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V3991*/ curfptr[3990])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3990*/ curfptr[3989]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V3999*/ curfptr[3998]);
+ meltgc_touch(/*_.VALCLO___V3991*/ curfptr[3990]);
  
- MELT_LOCATION("warmelt-first.melt:2577:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2572:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3992*/ curfptr[3991])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V299*/ curfptr[298]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3992*/ curfptr[3991])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
  
- MELT_LOCATION("warmelt-first.melt:2577:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2572:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3992*/ curfptr[3991])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3992*/ curfptr[3991])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2577:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2572:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4000*/ curfptr[3999]);
+ meltgc_touch(/*_.VALROUT___V3992*/ curfptr[3991]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4001*/ curfptr[4000])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4000*/ curfptr[3999]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3993*/ curfptr[3992])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3992*/ curfptr[3991])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V3993*/ curfptr[3992])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3992*/ curfptr[3991]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4001*/ curfptr[4000]);
+ meltgc_touch(/*_.VALCLO___V3993*/ curfptr[3992]);
  
- MELT_LOCATION("warmelt-first.melt:2593:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2588:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3994*/ curfptr[3993])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V299*/ curfptr[298]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3994*/ curfptr[3993])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
  
- MELT_LOCATION("warmelt-first.melt:2593:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2588:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3994*/ curfptr[3993])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V251*/ curfptr[250]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V3994*/ curfptr[3993])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
  
- MELT_LOCATION("warmelt-first.melt:2593:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2588:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4002*/ curfptr[4001]);
+ meltgc_touch(/*_.VALROUT___V3994*/ curfptr[3993]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4003*/ curfptr[4002])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4003*/ curfptr[4002])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4002*/ curfptr[4001]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V3995*/ curfptr[3994])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V3994*/ curfptr[3993])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V3995*/ curfptr[3994])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V3994*/ curfptr[3993]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4003*/ curfptr[4002]);
+ meltgc_touch(/*_.VALCLO___V3995*/ curfptr[3994]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4004*/ curfptr[4003])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3996*/ curfptr[3995])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4004*/ curfptr[4003]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4004*/ curfptr[4003]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4005*/ curfptr[4004]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3996*/ curfptr[3995]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3996*/ curfptr[3995]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V3997*/ curfptr[3996]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4004*/ curfptr[4003]);
+ meltgc_touch(/*_.VALDATA___V3996*/ curfptr[3995]);
  
- /*_.MAKE_MAPSTRING__V4007*/ curfptr[4006] = 
-  (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3769*/ curfptr[3768]), (200)));
- MELT_LOCATION("warmelt-first.melt:2605:/ putslot");
+ /*_.MAKE_MAPSTRING__V3999*/ curfptr[3998] = 
+  (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3761*/ curfptr[3760]), (200)));
+ MELT_LOCATION("warmelt-first.melt:2600:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4006*/ curfptr[4005])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3998*/ curfptr[3997])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4006*/ curfptr[4005]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4006*/ curfptr[4005]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.MAKE_MAPSTRING__V4007*/ curfptr[4006]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V3998*/ curfptr[3997]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V3998*/ curfptr[3997]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.MAKE_MAPSTRING__V3999*/ curfptr[3998]);
  
- MELT_LOCATION("warmelt-first.melt:2605:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2600:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4006*/ curfptr[4005]);
+ meltgc_touch(/*_.VALDATA___V3998*/ curfptr[3997]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4006*/ curfptr[4005]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4008*/ curfptr[4007])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4006*/ curfptr[4005]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3998*/ curfptr[3997]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3998*/ curfptr[3997]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ curfptr[34]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4008*/ curfptr[4007])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-first.melt:3101:/ cond");
+ MELT_LOCATION("warmelt-first.melt:3096:/ cond");
  /*cond*/ if (MELTPREDEFIX(predefinited,INITIAL_SYSTEM_DATA)) /*then*/ {
- } else {MELT_LOCATION("warmelt-first.melt:3101:/ cond.else");
+ } else {MELT_LOCATION("warmelt-first.melt:3096:/ cond.else");
  
   /*com.block:fill predef slots*/{
-   /*_.MAKE_MAPSTRING__V4012*/ curfptr[4011] = 
-    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3769*/ curfptr[3768]), (40)));;
-   /*_.MAKE_MAPSTRING__V4013*/ curfptr[4012] = 
-    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3769*/ curfptr[3768]), (600)));;
-   /*_.MAKE_MAPSTRING__V4014*/ curfptr[4013] = 
-    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3769*/ curfptr[3768]), (100)));;
-   /*_.MAKE_MAPSTRING__V4015*/ curfptr[4014] = 
-    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3769*/ curfptr[3768]), (100)));;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   /*_.MAKE_MAPSTRING__V4004*/ curfptr[4003] = 
+    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3761*/ curfptr[3760]), (40)));;
+   /*_.MAKE_MAPSTRING__V4005*/ curfptr[4004] = 
+    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3761*/ curfptr[3760]), (600)));;
+   /*_.MAKE_MAPSTRING__V4006*/ curfptr[4005] = 
+    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3761*/ curfptr[3760]), (100)));;
+   /*_.MAKE_MAPSTRING__V4007*/ curfptr[4006] = 
+    (meltgc_new_mapstrings( (meltobject_ptr_t) (/*_.VALDATA___V3761*/ curfptr[3760]), (100)));;
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[1] = (melt_ptr_t)(
-    /*_.VALSTR___V4016*/ curfptr[4015]);
+   melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[1] = (melt_ptr_t)(
+    /*_.VALSTR___V4008*/ curfptr[4007]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[2] = (melt_ptr_t)(
-    /*_.MAKE_MAPSTRING__V4012*/ curfptr[4011]);
+   melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[2] = (melt_ptr_t)(
+    /*_.MAKE_MAPSTRING__V4004*/ curfptr[4003]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[3] = (melt_ptr_t)(
-    /*_.VALCLO___V4017*/ curfptr[4016]);
+   melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[3] = (melt_ptr_t)(
+    /*_.VALCLO___V4009*/ curfptr[4008]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[4] = (melt_ptr_t)(
-    /*_.VALCLO___V4021*/ curfptr[4020]);
+   melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[4] = (melt_ptr_t)(
+    /*_.VALCLO___V4013*/ curfptr[4012]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[5] = (melt_ptr_t)(
-    /*_.VALCLO___V4027*/ curfptr[4026]);
+   melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[5] = (melt_ptr_t)(
+    /*_.VALCLO___V4019*/ curfptr[4018]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[6] = (melt_ptr_t)(
-    /*_.MAKE_MAPSTRING__V4013*/ curfptr[4012]);
+   melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[6] = (melt_ptr_t)(
+    /*_.MAKE_MAPSTRING__V4005*/ curfptr[4004]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[7] = (melt_ptr_t)(
-    /*_.MAKE_MAPSTRING__V4014*/ curfptr[4013]);
+   melt_assertmsg("putslot checkoff", (7>=0 && 7< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[7] = (melt_ptr_t)(
+    /*_.MAKE_MAPSTRING__V4006*/ curfptr[4005]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[8] = (melt_ptr_t)(
-    /*_.VALCLO___V3997*/ curfptr[3996]);
+   melt_assertmsg("putslot checkoff", (8>=0 && 8< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[8] = (melt_ptr_t)(
+    /*_.VALCLO___V3989*/ curfptr[3988]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (9>=0 && 9< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[9] = (melt_ptr_t)(
-    /*_.VALCLO___V3999*/ curfptr[3998]);
+   melt_assertmsg("putslot checkoff", (9>=0 && 9< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[9] = (melt_ptr_t)(
+    /*_.VALCLO___V3991*/ curfptr[3990]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (10>=0 && 10< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[10] = (melt_ptr_t)(
-    /*_.VALCLO___V4001*/ curfptr[4000]);
+   melt_assertmsg("putslot checkoff", (10>=0 && 10< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[10] = (melt_ptr_t)(
+    /*_.VALCLO___V3993*/ curfptr[3992]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (11>=0 && 11< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[11] = (melt_ptr_t)(
-    /*_.VALCLO___V4003*/ curfptr[4002]);
+   melt_assertmsg("putslot checkoff", (11>=0 && 11< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[11] = (melt_ptr_t)(
+    /*_.VALCLO___V3995*/ curfptr[3994]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (12>=0 && 12< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[12] = (melt_ptr_t)(
-    /*_.VALCLO___V4029*/ curfptr[4028]);
+   melt_assertmsg("putslot checkoff", (12>=0 && 12< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[12] = (melt_ptr_t)(
+    /*_.VALCLO___V4021*/ curfptr[4020]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (13>=0 && 13< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[13] = (melt_ptr_t)(
-    /*_.MAKE_MAPSTRING__V4015*/ curfptr[4014]);
+   melt_assertmsg("putslot checkoff", (13>=0 && 13< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[13] = (melt_ptr_t)(
+    /*_.MAKE_MAPSTRING__V4007*/ curfptr[4006]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (14>=0 && 14< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[14] = (melt_ptr_t)(
-    /*_.VALCLO___V4031*/ curfptr[4030]);
+   melt_assertmsg("putslot checkoff", (14>=0 && 14< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[14] = (melt_ptr_t)(
+    /*_.VALCLO___V4023*/ curfptr[4022]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (16>=0 && 16< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[16] = (melt_ptr_t)(
-    /*_.VALCLO___V4052*/ curfptr[4051]);
+   melt_assertmsg("putslot checkoff", (16>=0 && 16< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[16] = (melt_ptr_t)(
+    /*_.VALCLO___V4044*/ curfptr[4043]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (17>=0 && 17< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[17] = (melt_ptr_t)(
-    /*_.VALCLO___V4054*/ curfptr[4053]);
+   melt_assertmsg("putslot checkoff", (17>=0 && 17< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[17] = (melt_ptr_t)(
+    /*_.VALCLO___V4046*/ curfptr[4045]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (18>=0 && 18< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[18] = (melt_ptr_t)(
+   melt_assertmsg("putslot checkoff", (18>=0 && 18< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[18] = (melt_ptr_t)(
     (/*nil*/NULL));
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (19>=0 && 19< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[19] = (melt_ptr_t)(
+   melt_assertmsg("putslot checkoff", (19>=0 && 19< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[19] = (melt_ptr_t)(
     (/*nil*/NULL));
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (20>=0 && 20< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[20] = (melt_ptr_t)(
+   melt_assertmsg("putslot checkoff", (20>=0 && 20< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[20] = (melt_ptr_t)(
     (/*nil*/NULL));
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (21>=0 && 21< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[21] = (melt_ptr_t)(
-    /*_.VALCLO___V4064*/ curfptr[4063]);
+   melt_assertmsg("putslot checkoff", (21>=0 && 21< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[21] = (melt_ptr_t)(
+    /*_.VALCLO___V4056*/ curfptr[4055]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:3096:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
+   melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
    
-   melt_assertmsg("putslot checkoff", (22>=0 && 22< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))));
-   ((meltobject_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]))->obj_vartab[22] = (melt_ptr_t)(
-    /*_.VALCLO___V4073*/ curfptr[4072]);
+   melt_assertmsg("putslot checkoff", (22>=0 && 22< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))));
+   ((meltobject_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]))->obj_vartab[22] = (melt_ptr_t)(
+    /*_.VALCLO___V4065*/ curfptr[4064]);
    ;
-   MELT_LOCATION("warmelt-first.melt:3101:/ touch");
+   MELT_LOCATION("warmelt-first.melt:3096:/ touch");
    /*touch:VALUEDATA_*/
-   meltgc_touch(/*_.VALDATA___V4011*/ curfptr[4010]);
+   meltgc_touch(/*_.VALDATA___V4003*/ curfptr[4002]);
    ;}/*com.end block:fill predef slots*/
   ;
   }
  
- MELT_LOCATION("warmelt-first.melt:2662:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2657:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3696*/ curfptr[3695]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3688*/ curfptr[3687]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]);
  
- MELT_LOCATION("warmelt-first.melt:4609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4012*/ curfptr[4011])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4012*/ curfptr[4011])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4012*/ curfptr[4011])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V441*/ curfptr[440]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4012*/ curfptr[4011])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]);
  
- MELT_LOCATION("warmelt-first.melt:4609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3765*/ curfptr[3764]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4012*/ curfptr[4011])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3757*/ curfptr[3756]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4012*/ curfptr[4011])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]);
  
- MELT_LOCATION("warmelt-first.melt:4609:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4604:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4020*/ curfptr[4019]);
+ meltgc_touch(/*_.VALROUT___V4012*/ curfptr[4011]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4019*/ curfptr[4018])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4019*/ curfptr[4018])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4020*/ curfptr[4019]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4011*/ curfptr[4010])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4012*/ curfptr[4011])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4011*/ curfptr[4010])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4012*/ curfptr[4011]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4019*/ curfptr[4018]);
+ meltgc_touch(/*_.VALCLO___V4011*/ curfptr[4010]);
  
- MELT_LOCATION("warmelt-first.melt:2662:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2657:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4019*/ curfptr[4018]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4019*/ curfptr[4018]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4011*/ curfptr[4010]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4011*/ curfptr[4010]);
  
- MELT_LOCATION("warmelt-first.melt:2662:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2657:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:2662:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2657:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4018*/ curfptr[4017]);
+ meltgc_touch(/*_.VALROUT___V4010*/ curfptr[4009]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4017*/ curfptr[4016])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4017*/ curfptr[4016])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4018*/ curfptr[4017]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4009*/ curfptr[4008])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4010*/ curfptr[4009]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4017*/ curfptr[4016]);
+ meltgc_touch(/*_.VALCLO___V4009*/ curfptr[4008]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4004__INITVALUE_EXPORTER#0", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[0] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_3996__INITVALUE_EXPORTER#0", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[0] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4631:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4626:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4016*/ curfptr[4015])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4016*/ curfptr[4015])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4631:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4626:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4024*/ curfptr[4023]);
+ meltgc_touch(/*_.VALROUT___V4016*/ curfptr[4015]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4023*/ curfptr[4022])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4023*/ curfptr[4022])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4024*/ curfptr[4023]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4015*/ curfptr[4014])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4016*/ curfptr[4015])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4015*/ curfptr[4014])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4016*/ curfptr[4015]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4023*/ curfptr[4022]);
+ meltgc_touch(/*_.VALCLO___V4015*/ curfptr[4014]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4023*/ curfptr[4022]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4023*/ curfptr[4022]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4015*/ curfptr[4014]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4015*/ curfptr[4014]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V487*/ curfptr[486]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V517*/ curfptr[516]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V517*/ curfptr[516]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V517*/ curfptr[516]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V217*/ curfptr[216]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V593*/ curfptr[592]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V527*/ curfptr[526]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V95*/ curfptr[94]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V95*/ curfptr[94]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V95*/ curfptr[94]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V555*/ curfptr[554]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V555*/ curfptr[554]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V555*/ curfptr[554]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V565*/ curfptr[564]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V63*/ curfptr[62]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V579*/ curfptr[578]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
- MELT_LOCATION("warmelt-first.melt:4700:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4695:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4026*/ curfptr[4025])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4026*/ curfptr[4025])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4700:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4695:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4026*/ curfptr[4025])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4026*/ curfptr[4025])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
- MELT_LOCATION("warmelt-first.melt:4700:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4695:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4026*/ curfptr[4025])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4026*/ curfptr[4025])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:4700:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4695:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4026*/ curfptr[4025])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V454*/ curfptr[453]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4026*/ curfptr[4025])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4018*/ curfptr[4017])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]);
  
- MELT_LOCATION("warmelt-first.melt:4700:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4695:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4026*/ curfptr[4025]);
+ meltgc_touch(/*_.VALROUT___V4018*/ curfptr[4017]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4025*/ curfptr[4024])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4026*/ curfptr[4025])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4025*/ curfptr[4024])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4026*/ curfptr[4025]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4017*/ curfptr[4016])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4018*/ curfptr[4017])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4017*/ curfptr[4016])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4018*/ curfptr[4017]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4025*/ curfptr[4024]);
+ meltgc_touch(/*_.VALCLO___V4017*/ curfptr[4016]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2671:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4025*/ curfptr[4024]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V4025*/ curfptr[4024]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4017*/ curfptr[4016]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4014*/ curfptr[4013])->tabval[16] = (melt_ptr_t)(/*_.VALCLO___V4017*/ curfptr[4016]);
  
- MELT_LOCATION("warmelt-first.melt:2676:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2671:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4022*/ curfptr[4021]);
+ meltgc_touch(/*_.VALROUT___V4014*/ curfptr[4013]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4021*/ curfptr[4020])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4021*/ curfptr[4020])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4022*/ curfptr[4021]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4013*/ curfptr[4012])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4014*/ curfptr[4013])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4013*/ curfptr[4012])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4014*/ curfptr[4013]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4021*/ curfptr[4020]);
+ meltgc_touch(/*_.VALCLO___V4013*/ curfptr[4012]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4008__INITMACRO_EXPORTER#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4000__INITMACRO_EXPORTER#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V467*/ curfptr[466]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V467*/ curfptr[466]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V467*/ curfptr[466]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4025*/ curfptr[4024]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V4025*/ curfptr[4024]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4017*/ curfptr[4016]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V4017*/ curfptr[4016]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2802:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4028*/ curfptr[4027])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4020*/ curfptr[4019])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:2807:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2802:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4028*/ curfptr[4027]);
+ meltgc_touch(/*_.VALROUT___V4020*/ curfptr[4019]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4027*/ curfptr[4026])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4028*/ curfptr[4027])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4027*/ curfptr[4026])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4028*/ curfptr[4027]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4019*/ curfptr[4018])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4020*/ curfptr[4019])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4019*/ curfptr[4018])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4020*/ curfptr[4019]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4027*/ curfptr[4026]);
+ meltgc_touch(/*_.VALCLO___V4019*/ curfptr[4018]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2761:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4030*/ curfptr[4029])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2761:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4030*/ curfptr[4029])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2761:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4030*/ curfptr[4029])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2761:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4023*/ curfptr[4022]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4030*/ curfptr[4029])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4023*/ curfptr[4022]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4015*/ curfptr[4014]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4015*/ curfptr[4014]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2761:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V487*/ curfptr[486]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4030*/ curfptr[4029])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2761:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ curfptr[34]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4030*/ curfptr[4029])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4022*/ curfptr[4021])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-first.melt:2766:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2761:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4030*/ curfptr[4029]);
+ meltgc_touch(/*_.VALROUT___V4022*/ curfptr[4021]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4029*/ curfptr[4028])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4030*/ curfptr[4029])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4029*/ curfptr[4028])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4030*/ curfptr[4029]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4021*/ curfptr[4020])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4022*/ curfptr[4021])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4021*/ curfptr[4020])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4022*/ curfptr[4021]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4029*/ curfptr[4028]);
+ meltgc_touch(/*_.VALCLO___V4021*/ curfptr[4020]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4034*/ curfptr[4033]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4026*/ curfptr[4025]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))->obj_vartab[4] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))->obj_vartab[4] = (melt_ptr_t)(
   /*_.VALDATA___V35*/ curfptr[34]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V15*/ curfptr[14]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V15*/ curfptr[14]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4035*/ curfptr[4034]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4027*/ curfptr[4026]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4035*/ curfptr[4034]);
+ meltgc_touch(/*_.VALTUP___V4027*/ curfptr[4026]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V4035*/ curfptr[4034]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V4027*/ curfptr[4026]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4037*/ curfptr[4036]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4029*/ curfptr[4028]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V4033*/ curfptr[4032]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V4025*/ curfptr[4024]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2867:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4036*/ curfptr[4035]);
+ meltgc_touch(/*_.VALDATA___V4028*/ curfptr[4027]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4039*/ curfptr[4038]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4031*/ curfptr[4030]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V4033*/ curfptr[4032]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V4025*/ curfptr[4024]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2867:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4038*/ curfptr[4037]);
+ meltgc_touch(/*_.VALDATA___V4030*/ curfptr[4029]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4041*/ curfptr[4040]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4033*/ curfptr[4032]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V4033*/ curfptr[4032]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V4025*/ curfptr[4024]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2867:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4040*/ curfptr[4039]);
+ meltgc_touch(/*_.VALDATA___V4032*/ curfptr[4031]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V18*/ curfptr[17]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V18*/ curfptr[17]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V38*/ curfptr[37]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V38*/ curfptr[37]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4036*/ curfptr[4035]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4028*/ curfptr[4027]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4038*/ curfptr[4037]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4030*/ curfptr[4029]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4042*/ curfptr[4041]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V4040*/ curfptr[4039]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4034*/ curfptr[4033]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V4032*/ curfptr[4031]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4042*/ curfptr[4041]);
+ meltgc_touch(/*_.VALTUP___V4034*/ curfptr[4033]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2867:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4033*/ curfptr[4032]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V4042*/ curfptr[4041]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4025*/ curfptr[4024]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V4034*/ curfptr[4033]);
  
- MELT_LOCATION("warmelt-first.melt:2872:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2867:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4033*/ curfptr[4032]);
+ meltgc_touch(/*_.VALDATA___V4025*/ curfptr[4024]);
  
- /*_.MAKE_LIST__V4044*/ curfptr[4043] = 
-  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])));
- /*_.MAKE_LIST__V4045*/ curfptr[4044] = 
-  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])));
- MELT_LOCATION("warmelt-first.melt:2880:/ putslot");
+ /*_.MAKE_LIST__V4036*/ curfptr[4035] = 
+  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])));
+ /*_.MAKE_LIST__V4037*/ curfptr[4036] = 
+  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])));
+ MELT_LOCATION("warmelt-first.melt:2875:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4046*/ curfptr[4045]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4038*/ curfptr[4037]);
  
- MELT_LOCATION("warmelt-first.melt:2880:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2875:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.MAKE_LIST__V4044*/ curfptr[4043]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.MAKE_LIST__V4036*/ curfptr[4035]);
  
- MELT_LOCATION("warmelt-first.melt:2880:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2875:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.MAKE_LIST__V4045*/ curfptr[4044]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.MAKE_LIST__V4037*/ curfptr[4036]);
  
- MELT_LOCATION("warmelt-first.melt:2880:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2875:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4043*/ curfptr[4042]);
+ meltgc_touch(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4047*/ curfptr[4046])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4048*/ curfptr[4047])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4047*/ curfptr[4046])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4048*/ curfptr[4047]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4039*/ curfptr[4038])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4040*/ curfptr[4039])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4039*/ curfptr[4038])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4040*/ curfptr[4039]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4047*/ curfptr[4046]);
+ meltgc_touch(/*_.VALCLO___V4039*/ curfptr[4038]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4047*/ curfptr[4046]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4047*/ curfptr[4046]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4039*/ curfptr[4038]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4039*/ curfptr[4038]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2898:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2893:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4049*/ curfptr[4048])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4049*/ curfptr[4048])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4041*/ curfptr[4040])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4041*/ curfptr[4040])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2898:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2893:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4049*/ curfptr[4048]);
+ meltgc_touch(/*_.VALROUT___V4041*/ curfptr[4040]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4034__INIT_EXITFINALIZER#6", NULL != (/*_.VALROUT___V4049*/ curfptr[4048]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V4049*/ curfptr[4048]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4026__INIT_EXITFINALIZER#6", NULL != (/*_.VALROUT___V4041*/ curfptr[4040]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V4041*/ curfptr[4040]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4034__INIT_EXITFINALIZER#7", NULL != (/*_.VALROUT___V4050*/ curfptr[4049]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4050*/ curfptr[4049]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4026__INIT_EXITFINALIZER#7", NULL != (/*_.VALROUT___V4042*/ curfptr[4041]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4042*/ curfptr[4041]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2912:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2907:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4051*/ curfptr[4050])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4043*/ curfptr[4042])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4043*/ curfptr[4042])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2912:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2907:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4051*/ curfptr[4050]);
+ meltgc_touch(/*_.VALROUT___V4043*/ curfptr[4042]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2883:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4034__INIT_EXITFINALIZER#9", NULL != (/*_.VALROUT___V4051*/ curfptr[4050]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4032*/ curfptr[4031])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4026__INIT_EXITFINALIZER#9", NULL != (/*_.VALROUT___V4043*/ curfptr[4042]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4024*/ curfptr[4023])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4043*/ curfptr[4042]);
  
- MELT_LOCATION("warmelt-first.melt:2888:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2883:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4032*/ curfptr[4031]);
+ meltgc_touch(/*_.VALROUT___V4024*/ curfptr[4023]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4031*/ curfptr[4030])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4032*/ curfptr[4031])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4031*/ curfptr[4030])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4032*/ curfptr[4031]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4023*/ curfptr[4022])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4024*/ curfptr[4023])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4023*/ curfptr[4022])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4024*/ curfptr[4023]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4031*/ curfptr[4030]);
+ meltgc_touch(/*_.VALCLO___V4023*/ curfptr[4022]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4053*/ curfptr[4052])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4045*/ curfptr[4044])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4053*/ curfptr[4052])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4045*/ curfptr[4044])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4053*/ curfptr[4052])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4045*/ curfptr[4044])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4053*/ curfptr[4052])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4045*/ curfptr[4044])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V477*/ curfptr[476]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4053*/ curfptr[4052])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V477*/ curfptr[476]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4045*/ curfptr[4044])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V477*/ curfptr[476]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4025*/ curfptr[4024]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4053*/ curfptr[4052])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V4025*/ curfptr[4024]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4017*/ curfptr[4016]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4045*/ curfptr[4044])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V4017*/ curfptr[4016]);
  
- MELT_LOCATION("warmelt-first.melt:2838:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2833:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4053*/ curfptr[4052]);
+ meltgc_touch(/*_.VALROUT___V4045*/ curfptr[4044]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4052*/ curfptr[4051])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4053*/ curfptr[4052])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4052*/ curfptr[4051])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4053*/ curfptr[4052]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4044*/ curfptr[4043])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4045*/ curfptr[4044])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4044*/ curfptr[4043])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4045*/ curfptr[4044]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4052*/ curfptr[4051]);
+ meltgc_touch(/*_.VALCLO___V4044*/ curfptr[4043]);
  
- MELT_LOCATION("warmelt-first.melt:3079:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3074:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4055*/ curfptr[4054])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3713*/ curfptr[3712]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4055*/ curfptr[4054])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4047*/ curfptr[4046])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3705*/ curfptr[3704]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4047*/ curfptr[4046])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]);
  
- MELT_LOCATION("warmelt-first.melt:3079:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3074:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4055*/ curfptr[4054])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3765*/ curfptr[3764]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4055*/ curfptr[4054])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4047*/ curfptr[4046])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3757*/ curfptr[3756]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4047*/ curfptr[4046])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]);
  
- MELT_LOCATION("warmelt-first.melt:3079:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3074:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4055*/ curfptr[4054])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4055*/ curfptr[4054])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4047*/ curfptr[4046])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4047*/ curfptr[4046])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:3079:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3074:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4055*/ curfptr[4054])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4047*/ curfptr[4046])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4055*/ curfptr[4054])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4047*/ curfptr[4046])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3616:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4049*/ curfptr[4048])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4049*/ curfptr[4048])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3601:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3596:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4059*/ curfptr[4058])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4059*/ curfptr[4058])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4051*/ curfptr[4050])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4060*/ curfptr[4059])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4052*/ curfptr[4051])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4060*/ curfptr[4059]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4060*/ curfptr[4059]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4061*/ curfptr[4060]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4052*/ curfptr[4051]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4052*/ curfptr[4051]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4053*/ curfptr[4052]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3588:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4060*/ curfptr[4059]);
+ meltgc_touch(/*_.VALDATA___V4052*/ curfptr[4051]);
  
- MELT_LOCATION("warmelt-first.melt:3601:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3596:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4059*/ curfptr[4058])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4060*/ curfptr[4059]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4059*/ curfptr[4058])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4060*/ curfptr[4059]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4052*/ curfptr[4051]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4051*/ curfptr[4050])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4052*/ curfptr[4051]);
  
- MELT_LOCATION("warmelt-first.melt:3601:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3596:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4059*/ curfptr[4058])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4059*/ curfptr[4058])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4051*/ curfptr[4050])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4062*/ curfptr[4061])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4054*/ curfptr[4053])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4062*/ curfptr[4061]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4062*/ curfptr[4061]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4063*/ curfptr[4062]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4054*/ curfptr[4053]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4054*/ curfptr[4053]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4055*/ curfptr[4054]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3579:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4062*/ curfptr[4061]);
+ meltgc_touch(/*_.VALDATA___V4054*/ curfptr[4053]);
  
- MELT_LOCATION("warmelt-first.melt:3601:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3596:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4059*/ curfptr[4058])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4062*/ curfptr[4061]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4059*/ curfptr[4058])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4062*/ curfptr[4061]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4054*/ curfptr[4053]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4051*/ curfptr[4050])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4054*/ curfptr[4053]);
  
- MELT_LOCATION("warmelt-first.melt:3601:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3596:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4059*/ curfptr[4058]);
+ meltgc_touch(/*_.VALROUT___V4051*/ curfptr[4050]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4058*/ curfptr[4057])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4059*/ curfptr[4058])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4058*/ curfptr[4057])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4059*/ curfptr[4058]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4050*/ curfptr[4049])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4051*/ curfptr[4050])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4050*/ curfptr[4049])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4051*/ curfptr[4050]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4058*/ curfptr[4057]);
+ meltgc_touch(/*_.VALCLO___V4050*/ curfptr[4049]);
  
- MELT_LOCATION("warmelt-first.melt:3621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3616:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4058*/ curfptr[4057]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4058*/ curfptr[4057]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4049*/ curfptr[4048])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4050*/ curfptr[4049]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4049*/ curfptr[4048])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4050*/ curfptr[4049]);
  
- MELT_LOCATION("warmelt-first.melt:3621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3616:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4062*/ curfptr[4061]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4062*/ curfptr[4061]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4049*/ curfptr[4048])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4054*/ curfptr[4053]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4049*/ curfptr[4048])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4054*/ curfptr[4053]);
  
- MELT_LOCATION("warmelt-first.melt:3621:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3616:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4057*/ curfptr[4056]);
+ meltgc_touch(/*_.VALROUT___V4049*/ curfptr[4048]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4056*/ curfptr[4055])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4057*/ curfptr[4056]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4049*/ curfptr[4048])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4048*/ curfptr[4047])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4049*/ curfptr[4048]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4056*/ curfptr[4055]);
+ meltgc_touch(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3079:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3074:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4055*/ curfptr[4054])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4055*/ curfptr[4054])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4047*/ curfptr[4046])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4047*/ curfptr[4046])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3079:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3074:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4055*/ curfptr[4054]);
+ meltgc_touch(/*_.VALROUT___V4047*/ curfptr[4046]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4054*/ curfptr[4053])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4055*/ curfptr[4054])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4054*/ curfptr[4053])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4055*/ curfptr[4054]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4046*/ curfptr[4045])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4047*/ curfptr[4046])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4046*/ curfptr[4045])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4047*/ curfptr[4046]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4054*/ curfptr[4053]);
+ meltgc_touch(/*_.VALCLO___V4046*/ curfptr[4045]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- /*_.MAKE_LIST__V4067*/ curfptr[4066] = 
-  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])));
- /*_.MAKE_LIST__V4068*/ curfptr[4067] = 
-  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])));
- MELT_LOCATION("warmelt-first.melt:2939:/ putslot");
+ /*_.MAKE_LIST__V4059*/ curfptr[4058] = 
+  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])));
+ /*_.MAKE_LIST__V4060*/ curfptr[4059] = 
+  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])));
+ MELT_LOCATION("warmelt-first.melt:2934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4069*/ curfptr[4068]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4061*/ curfptr[4060]);
  
- MELT_LOCATION("warmelt-first.melt:2939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.MAKE_LIST__V4067*/ curfptr[4066]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.MAKE_LIST__V4059*/ curfptr[4058]);
  
- MELT_LOCATION("warmelt-first.melt:2939:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2934:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.MAKE_LIST__V4068*/ curfptr[4067]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.MAKE_LIST__V4060*/ curfptr[4059]);
  
- MELT_LOCATION("warmelt-first.melt:2939:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2934:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4066*/ curfptr[4065]);
+ meltgc_touch(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4047*/ curfptr[4046]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4047*/ curfptr[4046]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4039*/ curfptr[4038]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4039*/ curfptr[4038]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2956:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2951:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4070*/ curfptr[4069])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4070*/ curfptr[4069])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4062*/ curfptr[4061])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4062*/ curfptr[4061])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2956:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2951:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4070*/ curfptr[4069]);
+ meltgc_touch(/*_.VALROUT___V4062*/ curfptr[4061]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4047__INIT_UNITSTARTER#6", NULL != (/*_.VALROUT___V4070*/ curfptr[4069]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V4070*/ curfptr[4069]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4039__INIT_UNITSTARTER#6", NULL != (/*_.VALROUT___V4062*/ curfptr[4061]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V4062*/ curfptr[4061]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4047__INIT_UNITSTARTER#7", NULL != (/*_.VALROUT___V4071*/ curfptr[4070]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4071*/ curfptr[4070]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4039__INIT_UNITSTARTER#7", NULL != (/*_.VALROUT___V4063*/ curfptr[4062]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4063*/ curfptr[4062]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2965:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4072*/ curfptr[4071])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4072*/ curfptr[4071])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4064*/ curfptr[4063])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4064*/ curfptr[4063])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2970:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2965:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4072*/ curfptr[4071]);
+ meltgc_touch(/*_.VALROUT___V4064*/ curfptr[4063]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2941:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4047__INIT_UNITSTARTER#9", NULL != (/*_.VALROUT___V4072*/ curfptr[4071]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4065*/ curfptr[4064])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4072*/ curfptr[4071]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4039__INIT_UNITSTARTER#9", NULL != (/*_.VALROUT___V4064*/ curfptr[4063]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4057*/ curfptr[4056])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4064*/ curfptr[4063]);
  
- MELT_LOCATION("warmelt-first.melt:2946:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2941:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4065*/ curfptr[4064]);
+ meltgc_touch(/*_.VALROUT___V4057*/ curfptr[4056]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4064*/ curfptr[4063])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4065*/ curfptr[4064])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4064*/ curfptr[4063])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4065*/ curfptr[4064]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4057*/ curfptr[4056])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4056*/ curfptr[4055])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4057*/ curfptr[4056]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4064*/ curfptr[4063]);
+ meltgc_touch(/*_.VALCLO___V4056*/ curfptr[4055]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- /*_.MAKE_LIST__V4076*/ curfptr[4075] = 
-  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])));
- /*_.MAKE_LIST__V4077*/ curfptr[4076] = 
-  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724])));
- MELT_LOCATION("warmelt-first.melt:2996:/ putslot");
+ /*_.MAKE_LIST__V4068*/ curfptr[4067] = 
+  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])));
+ /*_.MAKE_LIST__V4069*/ curfptr[4068] = 
+  (meltgc_new_list((meltobject_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716])));
+ MELT_LOCATION("warmelt-first.melt:2991:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4078*/ curfptr[4077]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4070*/ curfptr[4069]);
  
- MELT_LOCATION("warmelt-first.melt:2996:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2991:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.MAKE_LIST__V4076*/ curfptr[4075]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.MAKE_LIST__V4068*/ curfptr[4067]);
  
- MELT_LOCATION("warmelt-first.melt:2996:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:2991:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.MAKE_LIST__V4077*/ curfptr[4076]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.MAKE_LIST__V4069*/ curfptr[4068]);
  
- MELT_LOCATION("warmelt-first.melt:2996:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2991:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4075*/ curfptr[4074]);
+ meltgc_touch(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4047*/ curfptr[4046]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4047*/ curfptr[4046]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4039*/ curfptr[4038]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4039*/ curfptr[4038]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3012:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3007:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4079*/ curfptr[4078])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4079*/ curfptr[4078])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4071*/ curfptr[4070])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4071*/ curfptr[4070])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3012:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3007:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4079*/ curfptr[4078]);
+ meltgc_touch(/*_.VALROUT___V4071*/ curfptr[4070]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4060__INIT_UNITFINISHER#6", NULL != (/*_.VALROUT___V4079*/ curfptr[4078]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V4079*/ curfptr[4078]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4052__INIT_UNITFINISHER#6", NULL != (/*_.VALROUT___V4071*/ curfptr[4070]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V4071*/ curfptr[4070]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4060__INIT_UNITFINISHER#7", NULL != (/*_.VALROUT___V4080*/ curfptr[4079]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4080*/ curfptr[4079]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4052__INIT_UNITFINISHER#7", NULL != (/*_.VALROUT___V4072*/ curfptr[4071]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4072*/ curfptr[4071]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3026:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3021:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4081*/ curfptr[4080])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4081*/ curfptr[4080])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4073*/ curfptr[4072])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4073*/ curfptr[4072])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3026:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3021:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4081*/ curfptr[4080]);
+ meltgc_touch(/*_.VALROUT___V4073*/ curfptr[4072]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:2997:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4060__INIT_UNITFINISHER#9", NULL != (/*_.VALROUT___V4081*/ curfptr[4080]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4074*/ curfptr[4073])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4081*/ curfptr[4080]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4052__INIT_UNITFINISHER#9", NULL != (/*_.VALROUT___V4073*/ curfptr[4072]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4066*/ curfptr[4065])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4073*/ curfptr[4072]);
  
- MELT_LOCATION("warmelt-first.melt:3002:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2997:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4074*/ curfptr[4073]);
+ meltgc_touch(/*_.VALROUT___V4066*/ curfptr[4065]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4073*/ curfptr[4072])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4074*/ curfptr[4073])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4073*/ curfptr[4072])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4074*/ curfptr[4073]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4065*/ curfptr[4064])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4066*/ curfptr[4065])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4065*/ curfptr[4064])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4066*/ curfptr[4065]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4073*/ curfptr[4072]);
+ meltgc_touch(/*_.VALCLO___V4065*/ curfptr[4064]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4011*/ curfptr[4010]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4003*/ curfptr[4002]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V299*/ curfptr[298]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3765*/ curfptr[3764]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3757*/ curfptr[3756]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3713*/ curfptr[3712]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3705*/ curfptr[3704]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4743:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4010*/ curfptr[4009])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4002*/ curfptr[4001])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4748:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4743:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4010*/ curfptr[4009]);
+ meltgc_touch(/*_.VALROUT___V4002*/ curfptr[4001]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4010*/ curfptr[4009])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4009*/ curfptr[4008])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4010*/ curfptr[4009]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4002*/ curfptr[4001])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4001*/ curfptr[4000])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4002*/ curfptr[4001]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4009*/ curfptr[4008]);
+ meltgc_touch(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4008*/ curfptr[4007])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3696*/ curfptr[3695]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4008*/ curfptr[4007])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3688*/ curfptr[3687]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4008*/ curfptr[4007])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2604:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V241*/ curfptr[240]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4008*/ curfptr[4007])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4000*/ curfptr[3999])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]);
  
- MELT_LOCATION("warmelt-first.melt:2609:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2604:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4008*/ curfptr[4007]);
+ meltgc_touch(/*_.VALROUT___V4000*/ curfptr[3999]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4082*/ curfptr[4081])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4008*/ curfptr[4007])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4082*/ curfptr[4081])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4008*/ curfptr[4007]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4074*/ curfptr[4073])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4000*/ curfptr[3999])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4074*/ curfptr[4073])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4000*/ curfptr[3999]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4082*/ curfptr[4081]);
+ meltgc_touch(/*_.VALCLO___V4074*/ curfptr[4073]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4084*/ curfptr[4083]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4076*/ curfptr[4075]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4083*/ curfptr[4082]);
+ meltgc_touch(/*_.VALDATA___V4075*/ curfptr[4074]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4085*/ curfptr[4084])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4077*/ curfptr[4076])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4085*/ curfptr[4084]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4085*/ curfptr[4084]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4086*/ curfptr[4085]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4077*/ curfptr[4076]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4077*/ curfptr[4076]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4078*/ curfptr[4077]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4085*/ curfptr[4084]);
+ meltgc_touch(/*_.VALDATA___V4077*/ curfptr[4076]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4087*/ curfptr[4086])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4079*/ curfptr[4078])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4087*/ curfptr[4086]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4087*/ curfptr[4086]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4088*/ curfptr[4087]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4079*/ curfptr[4078]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4079*/ curfptr[4078]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4080*/ curfptr[4079]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4087*/ curfptr[4086]);
+ meltgc_touch(/*_.VALDATA___V4079*/ curfptr[4078]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4081*/ curfptr[4080])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4090*/ curfptr[4089]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4081*/ curfptr[4080]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4081*/ curfptr[4080]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4082*/ curfptr[4081]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4089*/ curfptr[4088]);
+ meltgc_touch(/*_.VALDATA___V4081*/ curfptr[4080]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4091*/ curfptr[4090])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4091*/ curfptr[4090]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4091*/ curfptr[4090]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4092*/ curfptr[4091]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4084*/ curfptr[4083]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4091*/ curfptr[4090]);
+ meltgc_touch(/*_.VALDATA___V4083*/ curfptr[4082]);
  
- MELT_LOCATION("warmelt-first.melt:2922:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2917:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4093*/ curfptr[4092])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4093*/ curfptr[4092])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4085*/ curfptr[4084])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4085*/ curfptr[4084])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2922:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2917:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4093*/ curfptr[4092]);
+ meltgc_touch(/*_.VALROUT___V4085*/ curfptr[4084]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4094*/ curfptr[4093])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4093*/ curfptr[4092])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4094*/ curfptr[4093])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4093*/ curfptr[4092]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4086*/ curfptr[4085])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4085*/ curfptr[4084])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4086*/ curfptr[4085])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4085*/ curfptr[4084]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4094*/ curfptr[4093]);
+ meltgc_touch(/*_.VALCLO___V4086*/ curfptr[4085]);
  
- MELT_LOCATION("warmelt-first.melt:2930:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2925:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4095*/ curfptr[4094])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4043*/ curfptr[4042]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4095*/ curfptr[4094])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4043*/ curfptr[4042]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4087*/ curfptr[4086])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4035*/ curfptr[4034]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4087*/ curfptr[4086])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4035*/ curfptr[4034]);
  
- MELT_LOCATION("warmelt-first.melt:2930:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2925:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4095*/ curfptr[4094]);
+ meltgc_touch(/*_.VALROUT___V4087*/ curfptr[4086]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4096*/ curfptr[4095])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4095*/ curfptr[4094])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4096*/ curfptr[4095])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4095*/ curfptr[4094]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4088*/ curfptr[4087])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4087*/ curfptr[4086])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4088*/ curfptr[4087])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4087*/ curfptr[4086]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4096*/ curfptr[4095]);
+ meltgc_touch(/*_.VALCLO___V4088*/ curfptr[4087]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4097*/ curfptr[4096])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4097*/ curfptr[4096]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4097*/ curfptr[4096]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4098*/ curfptr[4097]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4090*/ curfptr[4089]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4097*/ curfptr[4096]);
+ meltgc_touch(/*_.VALDATA___V4089*/ curfptr[4088]);
  
- MELT_LOCATION("warmelt-first.melt:2980:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2975:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4099*/ curfptr[4098])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4099*/ curfptr[4098])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4091*/ curfptr[4090])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4091*/ curfptr[4090])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2980:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2975:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4099*/ curfptr[4098]);
+ meltgc_touch(/*_.VALROUT___V4091*/ curfptr[4090]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4100*/ curfptr[4099])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4099*/ curfptr[4098])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4100*/ curfptr[4099])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4099*/ curfptr[4098]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4092*/ curfptr[4091])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4091*/ curfptr[4090])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4092*/ curfptr[4091])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4091*/ curfptr[4090]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4100*/ curfptr[4099]);
+ meltgc_touch(/*_.VALCLO___V4092*/ curfptr[4091]);
  
- MELT_LOCATION("warmelt-first.melt:2987:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:2982:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4066*/ curfptr[4065]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4101*/ curfptr[4100])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4066*/ curfptr[4065]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4093*/ curfptr[4092])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4058*/ curfptr[4057]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4093*/ curfptr[4092])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4058*/ curfptr[4057]);
  
- MELT_LOCATION("warmelt-first.melt:2987:/ touch");
+ MELT_LOCATION("warmelt-first.melt:2982:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4101*/ curfptr[4100]);
+ meltgc_touch(/*_.VALROUT___V4093*/ curfptr[4092]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4102*/ curfptr[4101])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4102*/ curfptr[4101])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4101*/ curfptr[4100]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4094*/ curfptr[4093])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4093*/ curfptr[4092])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4094*/ curfptr[4093])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4093*/ curfptr[4092]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4102*/ curfptr[4101]);
+ meltgc_touch(/*_.VALCLO___V4094*/ curfptr[4093]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4095*/ curfptr[4094])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4104*/ curfptr[4103]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4095*/ curfptr[4094]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4095*/ curfptr[4094]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4096*/ curfptr[4095]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4103*/ curfptr[4102]);
+ meltgc_touch(/*_.VALDATA___V4095*/ curfptr[4094]);
  
- MELT_LOCATION("warmelt-first.melt:3036:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4105*/ curfptr[4104])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4105*/ curfptr[4104])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4097*/ curfptr[4096])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4097*/ curfptr[4096])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3036:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3031:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4105*/ curfptr[4104]);
+ meltgc_touch(/*_.VALROUT___V4097*/ curfptr[4096]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4106*/ curfptr[4105])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4105*/ curfptr[4104])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4106*/ curfptr[4105])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4105*/ curfptr[4104]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4098*/ curfptr[4097])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4097*/ curfptr[4096])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4098*/ curfptr[4097])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4097*/ curfptr[4096]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4106*/ curfptr[4105]);
+ meltgc_touch(/*_.VALCLO___V4098*/ curfptr[4097]);
  
- MELT_LOCATION("warmelt-first.melt:3044:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3039:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4107*/ curfptr[4106])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4075*/ curfptr[4074]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4107*/ curfptr[4106])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4099*/ curfptr[4098])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4067*/ curfptr[4066]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4099*/ curfptr[4098])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4067*/ curfptr[4066]);
  
- MELT_LOCATION("warmelt-first.melt:3044:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3039:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4107*/ curfptr[4106]);
+ meltgc_touch(/*_.VALROUT___V4099*/ curfptr[4098]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4108*/ curfptr[4107])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4107*/ curfptr[4106])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4108*/ curfptr[4107])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4107*/ curfptr[4106]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4100*/ curfptr[4099])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4099*/ curfptr[4098])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4100*/ curfptr[4099])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4099*/ curfptr[4098]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4108*/ curfptr[4107]);
+ meltgc_touch(/*_.VALCLO___V4100*/ curfptr[4099]);
  
- MELT_LOCATION("warmelt-first.melt:3055:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3050:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3713*/ curfptr[3712]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4109*/ curfptr[4108])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3713*/ curfptr[3712]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3705*/ curfptr[3704]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4101*/ curfptr[4100])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]);
  
- MELT_LOCATION("warmelt-first.melt:3055:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3050:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3765*/ curfptr[3764]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4109*/ curfptr[4108])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3757*/ curfptr[3756]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4101*/ curfptr[4100])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]);
  
- MELT_LOCATION("warmelt-first.melt:3055:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3050:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4109*/ curfptr[4108])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4101*/ curfptr[4100])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:3055:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3050:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4109*/ curfptr[4108])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4101*/ curfptr[4100])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3055:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3050:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4062*/ curfptr[4061]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4109*/ curfptr[4108])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V4062*/ curfptr[4061]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4054*/ curfptr[4053]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4101*/ curfptr[4100])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V4054*/ curfptr[4053]);
  
- MELT_LOCATION("warmelt-first.melt:3055:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3050:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4109*/ curfptr[4108]);
+ meltgc_touch(/*_.VALROUT___V4101*/ curfptr[4100]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4110*/ curfptr[4109])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4110*/ curfptr[4109])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4109*/ curfptr[4108]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4102*/ curfptr[4101])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4101*/ curfptr[4100])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4102*/ curfptr[4101])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4101*/ curfptr[4100]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4110*/ curfptr[4109]);
+ meltgc_touch(/*_.VALCLO___V4102*/ curfptr[4101]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4111*/ curfptr[4110])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4111*/ curfptr[4110]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4111*/ curfptr[4110]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4112*/ curfptr[4111]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4104*/ curfptr[4103]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4111*/ curfptr[4110]);
+ meltgc_touch(/*_.VALDATA___V4103*/ curfptr[4102]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4114*/ curfptr[4113])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4113*/ curfptr[4112])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4114*/ curfptr[4113])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4113*/ curfptr[4112]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4106*/ curfptr[4105])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4105*/ curfptr[4104])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4106*/ curfptr[4105])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4105*/ curfptr[4104]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4114*/ curfptr[4113]);
+ meltgc_touch(/*_.VALCLO___V4106*/ curfptr[4105]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4116*/ curfptr[4115])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4115*/ curfptr[4114])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4116*/ curfptr[4115])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4115*/ curfptr[4114]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4108*/ curfptr[4107])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4107*/ curfptr[4106])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4108*/ curfptr[4107])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4107*/ curfptr[4106]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4116*/ curfptr[4115]);
+ meltgc_touch(/*_.VALCLO___V4108*/ curfptr[4107]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4118*/ curfptr[4117])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4117*/ curfptr[4116])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4118*/ curfptr[4117])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4117*/ curfptr[4116]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4110*/ curfptr[4109])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4109*/ curfptr[4108])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4110*/ curfptr[4109])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4109*/ curfptr[4108]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4118*/ curfptr[4117]);
+ meltgc_touch(/*_.VALCLO___V4110*/ curfptr[4109]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4120*/ curfptr[4119])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4119*/ curfptr[4118])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4120*/ curfptr[4119])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4119*/ curfptr[4118]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4112*/ curfptr[4111])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4111*/ curfptr[4110])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4112*/ curfptr[4111])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4111*/ curfptr[4110]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4120*/ curfptr[4119]);
+ meltgc_touch(/*_.VALCLO___V4112*/ curfptr[4111]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4122*/ curfptr[4121]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4114*/ curfptr[4113]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4116*/ curfptr[4115])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4125*/ curfptr[4124]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4116*/ curfptr[4115]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4116*/ curfptr[4115]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4117*/ curfptr[4116]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4124*/ curfptr[4123]);
+ meltgc_touch(/*_.VALDATA___V4116*/ curfptr[4115]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4124*/ curfptr[4123]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4116*/ curfptr[4115]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3205:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3200:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4123*/ curfptr[4122]);
+ meltgc_touch(/*_.VALDATA___V4115*/ curfptr[4114]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4126*/ curfptr[4125]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4126*/ curfptr[4125]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4126*/ curfptr[4125]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4123*/ curfptr[4122]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4118*/ curfptr[4117]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4118*/ curfptr[4117]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4118*/ curfptr[4117]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4115*/ curfptr[4114]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4126*/ curfptr[4125]);
+ meltgc_touch(/*_.VALTUP___V4118*/ curfptr[4117]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V4126*/ curfptr[4125]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V4118*/ curfptr[4117]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4127*/ curfptr[4126])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4119*/ curfptr[4118])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4127*/ curfptr[4126]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4127*/ curfptr[4126]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4128*/ curfptr[4127]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4119*/ curfptr[4118]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4119*/ curfptr[4118]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4120*/ curfptr[4119]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4127*/ curfptr[4126]);
+ meltgc_touch(/*_.VALDATA___V4119*/ curfptr[4118]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V4127*/ curfptr[4126]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V4119*/ curfptr[4118]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4131*/ curfptr[4130]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4123*/ curfptr[4122]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4130*/ curfptr[4129]);
+ meltgc_touch(/*_.VALDATA___V4122*/ curfptr[4121]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4130*/ curfptr[4129]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4122*/ curfptr[4121]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3205:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3200:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4129*/ curfptr[4128]);
+ meltgc_touch(/*_.VALDATA___V4121*/ curfptr[4120]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4133*/ curfptr[4132])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4125*/ curfptr[4124])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4133*/ curfptr[4132]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4133*/ curfptr[4132]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4134*/ curfptr[4133]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4125*/ curfptr[4124]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4125*/ curfptr[4124]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4126*/ curfptr[4125]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4133*/ curfptr[4132]);
+ meltgc_touch(/*_.VALDATA___V4125*/ curfptr[4124]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4133*/ curfptr[4132]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4125*/ curfptr[4124]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3205:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3200:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4132*/ curfptr[4131]);
+ meltgc_touch(/*_.VALDATA___V4124*/ curfptr[4123]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4135*/ curfptr[4134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4135*/ curfptr[4134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4135*/ curfptr[4134]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4129*/ curfptr[4128]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4127*/ curfptr[4126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4127*/ curfptr[4126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4127*/ curfptr[4126]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4135*/ curfptr[4134]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4135*/ curfptr[4134]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4135*/ curfptr[4134]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4132*/ curfptr[4131]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4127*/ curfptr[4126]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4127*/ curfptr[4126]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4127*/ curfptr[4126]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4135*/ curfptr[4134]);
+ meltgc_touch(/*_.VALTUP___V4127*/ curfptr[4126]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V4135*/ curfptr[4134]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V4127*/ curfptr[4126]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4136*/ curfptr[4135]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4128*/ curfptr[4127]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4127*/ curfptr[4126]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4119*/ curfptr[4118]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4137*/ curfptr[4136]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4129*/ curfptr[4128]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4138*/ curfptr[4137]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4130*/ curfptr[4129]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V4116*/ curfptr[4115]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V4139*/ curfptr[4138]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V4131*/ curfptr[4130]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V4140*/ curfptr[4139]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V4132*/ curfptr[4131]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V4141*/ curfptr[4140]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V4133*/ curfptr[4132]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V4142*/ curfptr[4141]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V4134*/ curfptr[4133]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V4133*/ curfptr[4132]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V4125*/ curfptr[4124]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V4143*/ curfptr[4142]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V4135*/ curfptr[4134]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4145*/ curfptr[4144]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V4144*/ curfptr[4143]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4137*/ curfptr[4136]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V4136*/ curfptr[4135]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4145*/ curfptr[4144]);
+ meltgc_touch(/*_.VALTUP___V4137*/ curfptr[4136]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V4145*/ curfptr[4144]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V4137*/ curfptr[4136]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4146*/ curfptr[4145]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4138*/ curfptr[4137]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4127*/ curfptr[4126]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4119*/ curfptr[4118]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4148*/ curfptr[4147]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4147*/ curfptr[4146]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4140*/ curfptr[4139]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4139*/ curfptr[4138]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4148*/ curfptr[4147]);
+ meltgc_touch(/*_.VALTUP___V4140*/ curfptr[4139]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3200:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4121*/ curfptr[4120]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V4148*/ curfptr[4147]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4113*/ curfptr[4112]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V4140*/ curfptr[4139]);
  
- MELT_LOCATION("warmelt-first.melt:3205:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3200:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4121*/ curfptr[4120]);
+ meltgc_touch(/*_.VALDATA___V4113*/ curfptr[4112]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4150*/ curfptr[4149])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4149*/ curfptr[4148])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4150*/ curfptr[4149])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4149*/ curfptr[4148]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4142*/ curfptr[4141])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4141*/ curfptr[4140])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4142*/ curfptr[4141])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4141*/ curfptr[4140]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4150*/ curfptr[4149]);
+ meltgc_touch(/*_.VALCLO___V4142*/ curfptr[4141]);
  
- MELT_LOCATION("warmelt-first.melt:3249:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3244:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4151*/ curfptr[4150])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4151*/ curfptr[4150])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4143*/ curfptr[4142])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4143*/ curfptr[4142])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3249:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3244:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4151*/ curfptr[4150]);
+ meltgc_touch(/*_.VALROUT___V4143*/ curfptr[4142]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4152*/ curfptr[4151])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4151*/ curfptr[4150])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4152*/ curfptr[4151])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4151*/ curfptr[4150]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4144*/ curfptr[4143])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4143*/ curfptr[4142])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4144*/ curfptr[4143])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4143*/ curfptr[4142]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4152*/ curfptr[4151]);
+ meltgc_touch(/*_.VALCLO___V4144*/ curfptr[4143]);
  
- MELT_LOCATION("warmelt-first.melt:3264:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3259:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4153*/ curfptr[4152])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4153*/ curfptr[4152])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4145*/ curfptr[4144])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4145*/ curfptr[4144])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3264:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3259:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4153*/ curfptr[4152]);
+ meltgc_touch(/*_.VALROUT___V4145*/ curfptr[4144]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4154*/ curfptr[4153])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4153*/ curfptr[4152])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4154*/ curfptr[4153])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4153*/ curfptr[4152]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4146*/ curfptr[4145])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4145*/ curfptr[4144])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4146*/ curfptr[4145])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4145*/ curfptr[4144]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4154*/ curfptr[4153]);
+ meltgc_touch(/*_.VALCLO___V4146*/ curfptr[4145]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4156*/ curfptr[4155])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4155*/ curfptr[4154])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4156*/ curfptr[4155])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4155*/ curfptr[4154]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4148*/ curfptr[4147])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4147*/ curfptr[4146])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4148*/ curfptr[4147])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4147*/ curfptr[4146]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4156*/ curfptr[4155]);
+ meltgc_touch(/*_.VALCLO___V4148*/ curfptr[4147]);
  
- MELT_LOCATION("warmelt-first.melt:3299:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3294:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4157*/ curfptr[4156])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4157*/ curfptr[4156])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4149*/ curfptr[4148])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4149*/ curfptr[4148])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:3299:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3294:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4157*/ curfptr[4156])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4157*/ curfptr[4156])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4149*/ curfptr[4148])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4149*/ curfptr[4148])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:3299:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3294:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4157*/ curfptr[4156])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4047*/ curfptr[4046]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4157*/ curfptr[4156])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4047*/ curfptr[4046]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4149*/ curfptr[4148])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4039*/ curfptr[4038]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4149*/ curfptr[4148])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4039*/ curfptr[4038]);
  
- MELT_LOCATION("warmelt-first.melt:3299:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:3294:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4157*/ curfptr[4156])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4123__LIST_TO_MULTIPLE#3", NULL != (/*_.VALROUT___V4158*/ curfptr[4157]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4157*/ curfptr[4156])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V4158*/ curfptr[4157]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4149*/ curfptr[4148])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4115__LIST_TO_MULTIPLE#3", NULL != (/*_.VALROUT___V4150*/ curfptr[4149]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4149*/ curfptr[4148])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V4150*/ curfptr[4149]);
  
- MELT_LOCATION("warmelt-first.melt:3299:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3294:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4157*/ curfptr[4156]);
+ meltgc_touch(/*_.VALROUT___V4149*/ curfptr[4148]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4159*/ curfptr[4158])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4157*/ curfptr[4156])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4159*/ curfptr[4158])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4157*/ curfptr[4156]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4151*/ curfptr[4150])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4149*/ curfptr[4148])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4151*/ curfptr[4150])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4149*/ curfptr[4148]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4159*/ curfptr[4158]);
+ meltgc_touch(/*_.VALCLO___V4151*/ curfptr[4150]);
  
- MELT_LOCATION("warmelt-first.melt:3319:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3314:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4160*/ curfptr[4159])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4160*/ curfptr[4159])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4152*/ curfptr[4151])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4152*/ curfptr[4151])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:3319:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3314:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4160*/ curfptr[4159]);
+ meltgc_touch(/*_.VALROUT___V4152*/ curfptr[4151]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4161*/ curfptr[4160])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4160*/ curfptr[4159])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4161*/ curfptr[4160])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4160*/ curfptr[4159]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4153*/ curfptr[4152])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4152*/ curfptr[4151])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4153*/ curfptr[4152])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4152*/ curfptr[4151]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4161*/ curfptr[4160]);
+ meltgc_touch(/*_.VALCLO___V4153*/ curfptr[4152]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4163*/ curfptr[4162]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4155*/ curfptr[4154]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2723*/ curfptr[2722]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3349:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3344:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4164*/ curfptr[4163]);
+ meltgc_touch(/*_.VALDATA___V4156*/ curfptr[4155]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4165*/ curfptr[4164]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4165*/ curfptr[4164]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4165*/ curfptr[4164]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4164*/ curfptr[4163]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4157*/ curfptr[4156]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4157*/ curfptr[4156]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4157*/ curfptr[4156]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4156*/ curfptr[4155]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4165*/ curfptr[4164]);
+ meltgc_touch(/*_.VALTUP___V4157*/ curfptr[4156]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V4165*/ curfptr[4164]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V4157*/ curfptr[4156]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4167*/ curfptr[4166]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4159*/ curfptr[4158]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4166*/ curfptr[4165]);
+ meltgc_touch(/*_.VALDATA___V4158*/ curfptr[4157]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V4166*/ curfptr[4165]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V4158*/ curfptr[4157]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4169*/ curfptr[4168])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4161*/ curfptr[4160])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4169*/ curfptr[4168]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4169*/ curfptr[4168]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4170*/ curfptr[4169]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4161*/ curfptr[4160]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4161*/ curfptr[4160]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4162*/ curfptr[4161]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4169*/ curfptr[4168]);
+ meltgc_touch(/*_.VALDATA___V4161*/ curfptr[4160]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4169*/ curfptr[4168]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4161*/ curfptr[4160]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3349:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3344:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4168*/ curfptr[4167]);
+ meltgc_touch(/*_.VALDATA___V4160*/ curfptr[4159]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:3349:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3344:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4171*/ curfptr[4170]);
+ meltgc_touch(/*_.VALDATA___V4163*/ curfptr[4162]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4172*/ curfptr[4171]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4172*/ curfptr[4171]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4172*/ curfptr[4171]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4168*/ curfptr[4167]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4164*/ curfptr[4163]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4164*/ curfptr[4163]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4164*/ curfptr[4163]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4160*/ curfptr[4159]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4172*/ curfptr[4171]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4172*/ curfptr[4171]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4172*/ curfptr[4171]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4171*/ curfptr[4170]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4164*/ curfptr[4163]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4164*/ curfptr[4163]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4164*/ curfptr[4163]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4163*/ curfptr[4162]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4172*/ curfptr[4171]);
+ meltgc_touch(/*_.VALTUP___V4164*/ curfptr[4163]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V4172*/ curfptr[4171]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V4164*/ curfptr[4163]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4173*/ curfptr[4172]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4165*/ curfptr[4164]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4174*/ curfptr[4173]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4166*/ curfptr[4165]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4175*/ curfptr[4174]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4167*/ curfptr[4166]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V4176*/ curfptr[4175]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V4168*/ curfptr[4167]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V4177*/ curfptr[4176]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V4169*/ curfptr[4168]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V4178*/ curfptr[4177]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V4170*/ curfptr[4169]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V4179*/ curfptr[4178]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V4171*/ curfptr[4170]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V4180*/ curfptr[4179]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V4172*/ curfptr[4171]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V4181*/ curfptr[4180]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V4173*/ curfptr[4172]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V4169*/ curfptr[4168]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V4161*/ curfptr[4160]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V4182*/ curfptr[4181]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V4174*/ curfptr[4173]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V4183*/ curfptr[4182]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V4175*/ curfptr[4174]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V4184*/ curfptr[4183]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4177*/ curfptr[4176]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V4176*/ curfptr[4175]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4185*/ curfptr[4184]);
+ meltgc_touch(/*_.VALTUP___V4177*/ curfptr[4176]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V4185*/ curfptr[4184]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V4177*/ curfptr[4176]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4186*/ curfptr[4185]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4178*/ curfptr[4177]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4187*/ curfptr[4186]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4179*/ curfptr[4178]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4189*/ curfptr[4188]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4188*/ curfptr[4187]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4181*/ curfptr[4180]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4180*/ curfptr[4179]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4189*/ curfptr[4188]);
+ meltgc_touch(/*_.VALTUP___V4181*/ curfptr[4180]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3344:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4162*/ curfptr[4161]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V4189*/ curfptr[4188]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4154*/ curfptr[4153]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V4181*/ curfptr[4180]);
  
- MELT_LOCATION("warmelt-first.melt:3349:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3344:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4162*/ curfptr[4161]);
+ meltgc_touch(/*_.VALDATA___V4154*/ curfptr[4153]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4191*/ curfptr[4190]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4183*/ curfptr[4182]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V2723*/ curfptr[2722]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3365:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3360:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4192*/ curfptr[4191]);
+ meltgc_touch(/*_.VALDATA___V4184*/ curfptr[4183]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4193*/ curfptr[4192]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4193*/ curfptr[4192]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4193*/ curfptr[4192]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4192*/ curfptr[4191]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4185*/ curfptr[4184]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4184*/ curfptr[4183]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4193*/ curfptr[4192]);
+ meltgc_touch(/*_.VALTUP___V4185*/ curfptr[4184]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V4193*/ curfptr[4192]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V4185*/ curfptr[4184]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4195*/ curfptr[4194]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4187*/ curfptr[4186]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4194*/ curfptr[4193]);
+ meltgc_touch(/*_.VALDATA___V4186*/ curfptr[4185]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALDATA___V4186*/ curfptr[4185]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4169*/ curfptr[4168]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4161*/ curfptr[4160]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3365:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3360:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4196*/ curfptr[4195]);
+ meltgc_touch(/*_.VALDATA___V4188*/ curfptr[4187]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:3365:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3360:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4197*/ curfptr[4196]);
+ meltgc_touch(/*_.VALDATA___V4189*/ curfptr[4188]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4198*/ curfptr[4197]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4198*/ curfptr[4197]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4198*/ curfptr[4197]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4196*/ curfptr[4195]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4190*/ curfptr[4189]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4190*/ curfptr[4189]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4190*/ curfptr[4189]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4188*/ curfptr[4187]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4198*/ curfptr[4197]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4198*/ curfptr[4197]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4198*/ curfptr[4197]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4197*/ curfptr[4196]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4190*/ curfptr[4189]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4190*/ curfptr[4189]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4190*/ curfptr[4189]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4189*/ curfptr[4188]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4198*/ curfptr[4197]);
+ meltgc_touch(/*_.VALTUP___V4190*/ curfptr[4189]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V4198*/ curfptr[4197]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V4190*/ curfptr[4189]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4199*/ curfptr[4198]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4191*/ curfptr[4190]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4200*/ curfptr[4199]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4192*/ curfptr[4191]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4201*/ curfptr[4200]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V4193*/ curfptr[4192]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V4202*/ curfptr[4201]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V4194*/ curfptr[4193]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V4203*/ curfptr[4202]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V4195*/ curfptr[4194]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V4204*/ curfptr[4203]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[10] = (melt_ptr_t)(/*_.VALSTR___V4196*/ curfptr[4195]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V4205*/ curfptr[4204]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V4197*/ curfptr[4196]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V4206*/ curfptr[4205]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[14] = (melt_ptr_t)(/*_.VALSTR___V4198*/ curfptr[4197]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V4207*/ curfptr[4206]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V4199*/ curfptr[4198]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V4169*/ curfptr[4168]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V4161*/ curfptr[4160]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V4208*/ curfptr[4207]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[18] = (melt_ptr_t)(/*_.VALSTR___V4200*/ curfptr[4199]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V4209*/ curfptr[4208]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[20] = (melt_ptr_t)(/*_.VALSTR___V4201*/ curfptr[4200]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V4210*/ curfptr[4209]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (22>=0 && 22< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[22] = (melt_ptr_t)(/*_.VALSTR___V4202*/ curfptr[4201]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (23>=0 && 23< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V4211*/ curfptr[4210]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (24>=0 && 24< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[24] = (melt_ptr_t)(/*_.VALSTR___V4203*/ curfptr[4202]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (25>=0 && 25< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4213*/ curfptr[4212]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V4212*/ curfptr[4211]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (26>=0 && 26< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4205*/ curfptr[4204]))->tabval[26] = (melt_ptr_t)(/*_.VALSTR___V4204*/ curfptr[4203]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4213*/ curfptr[4212]);
+ meltgc_touch(/*_.VALTUP___V4205*/ curfptr[4204]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V4213*/ curfptr[4212]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V4205*/ curfptr[4204]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4214*/ curfptr[4213]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V4206*/ curfptr[4205]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4216*/ curfptr[4215]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4215*/ curfptr[4214]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4208*/ curfptr[4207]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V4207*/ curfptr[4206]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4216*/ curfptr[4215]);
+ meltgc_touch(/*_.VALTUP___V4208*/ curfptr[4207]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3360:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4190*/ curfptr[4189]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V4216*/ curfptr[4215]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4182*/ curfptr[4181]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V4208*/ curfptr[4207]);
  
- MELT_LOCATION("warmelt-first.melt:3365:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3360:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4190*/ curfptr[4189]);
+ meltgc_touch(/*_.VALDATA___V4182*/ curfptr[4181]);
+ 
+ /*putclosurout*/
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4210*/ curfptr[4209])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4209*/ curfptr[4208])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4210*/ curfptr[4209])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4209*/ curfptr[4208]);
+ 
+ /*touch:DATACLOSURE_*/
+ meltgc_touch(/*_.VALCLO___V4210*/ curfptr[4209]);
+ 
+ /*putclosurout*/
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4212*/ curfptr[4211])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4211*/ curfptr[4210])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4212*/ curfptr[4211])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4211*/ curfptr[4210]);
+ 
+ /*touch:DATACLOSURE_*/
+ meltgc_touch(/*_.VALCLO___V4212*/ curfptr[4211]);
+ 
+ /*putclosurout*/
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4214*/ curfptr[4213])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4213*/ curfptr[4212])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4214*/ curfptr[4213])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4213*/ curfptr[4212]);
+ 
+ /*touch:DATACLOSURE_*/
+ meltgc_touch(/*_.VALCLO___V4214*/ curfptr[4213]);
+ 
+ /*putclosurout*/
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4216*/ curfptr[4215])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4215*/ curfptr[4214])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4216*/ curfptr[4215])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4215*/ curfptr[4214]);
+ 
+ /*touch:DATACLOSURE_*/
+ meltgc_touch(/*_.VALCLO___V4216*/ curfptr[4215]);
+ 
+ MELT_LOCATION("warmelt-first.melt:3434:/ putroutconstnotnull");
+ /*putroutconstnotnull*/
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4217*/ curfptr[4216])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4217*/ curfptr[4216])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ 
+ MELT_LOCATION("warmelt-first.melt:3434:/ touch");
+ /*touch:IROUTVAL_*/
+ meltgc_touch(/*_.VALROUT___V4217*/ curfptr[4216]);
  
  /*putclosurout*/
  melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4218*/ curfptr[4217])) == OBMAG_CLOSURE);
@@ -109329,6 +90454,16 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4218*/ curfptr[4217]);
  
+ MELT_LOCATION("warmelt-first.melt:3451:/ putroutconstnotnull");
+ /*putroutconstnotnull*/
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4219*/ curfptr[4218])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4219*/ curfptr[4218])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ 
+ MELT_LOCATION("warmelt-first.melt:3451:/ touch");
+ /*touch:IROUTVAL_*/
+ meltgc_touch(/*_.VALROUT___V4219*/ curfptr[4218]);
+ 
  /*putclosurout*/
  melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4220*/ curfptr[4219])) == OBMAG_CLOSURE);
  melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4219*/ curfptr[4218])) == OBMAG_ROUTINE);
@@ -109353,13 +90488,13 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4224*/ curfptr[4223]);
  
- MELT_LOCATION("warmelt-first.melt:3439:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3494:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4225*/ curfptr[4224])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4225*/ curfptr[4224])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4225*/ curfptr[4224])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3439:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3494:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V4225*/ curfptr[4224]);
  
@@ -109371,13 +90506,13 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4226*/ curfptr[4225]);
  
- MELT_LOCATION("warmelt-first.melt:3456:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3502:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4227*/ curfptr[4226])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4227*/ curfptr[4226])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4227*/ curfptr[4226])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3456:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3502:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V4227*/ curfptr[4226]);
  
@@ -109389,6 +90524,16 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4228*/ curfptr[4227]);
  
+ MELT_LOCATION("warmelt-first.melt:3511:/ putroutconstnotnull");
+ /*putroutconstnotnull*/
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4229*/ curfptr[4228])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4229*/ curfptr[4228])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ 
+ MELT_LOCATION("warmelt-first.melt:3511:/ touch");
+ /*touch:IROUTVAL_*/
+ meltgc_touch(/*_.VALROUT___V4229*/ curfptr[4228]);
+ 
  /*putclosurout*/
  melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4230*/ curfptr[4229])) == OBMAG_CLOSURE);
  melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4229*/ curfptr[4228])) == OBMAG_ROUTINE);
@@ -109397,6 +90542,16 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4230*/ curfptr[4229]);
  
+ MELT_LOCATION("warmelt-first.melt:3521:/ putroutconstnotnull");
+ /*putroutconstnotnull*/
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4231*/ curfptr[4230])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4231*/ curfptr[4230])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ 
+ MELT_LOCATION("warmelt-first.melt:3521:/ touch");
+ /*touch:IROUTVAL_*/
+ meltgc_touch(/*_.VALROUT___V4231*/ curfptr[4230]);
+ 
  /*putclosurout*/
  melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4232*/ curfptr[4231])) == OBMAG_CLOSURE);
  melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4231*/ curfptr[4230])) == OBMAG_ROUTINE);
@@ -109405,13 +90560,13 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4232*/ curfptr[4231]);
  
- MELT_LOCATION("warmelt-first.melt:3499:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3532:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4233*/ curfptr[4232])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4233*/ curfptr[4232])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4233*/ curfptr[4232])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3499:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3532:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V4233*/ curfptr[4232]);
  
@@ -109423,13 +90578,13 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4234*/ curfptr[4233]);
  
- MELT_LOCATION("warmelt-first.melt:3507:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3544:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4235*/ curfptr[4234])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4235*/ curfptr[4234])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4235*/ curfptr[4234])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3507:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3544:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V4235*/ curfptr[4234]);
  
@@ -109441,1683 +90596,1651 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V4236*/ curfptr[4235]);
  
- MELT_LOCATION("warmelt-first.melt:3516:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3558:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4237*/ curfptr[4236])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4237*/ curfptr[4236])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
- 
- MELT_LOCATION("warmelt-first.melt:3516:/ touch");
- /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4237*/ curfptr[4236]);
- 
- /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4237*/ curfptr[4236])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4238*/ curfptr[4237])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4237*/ curfptr[4236]);
- 
- /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4238*/ curfptr[4237]);
- 
- MELT_LOCATION("warmelt-first.melt:3526:/ putroutconstnotnull");
- /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4239*/ curfptr[4238])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4239*/ curfptr[4238])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
- 
- MELT_LOCATION("warmelt-first.melt:3526:/ touch");
- /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4239*/ curfptr[4238]);
- 
- /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4240*/ curfptr[4239])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4239*/ curfptr[4238])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4240*/ curfptr[4239])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4239*/ curfptr[4238]);
- 
- /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4240*/ curfptr[4239]);
- 
- MELT_LOCATION("warmelt-first.melt:3537:/ putroutconstnotnull");
- /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4241*/ curfptr[4240])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4241*/ curfptr[4240])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
- 
- MELT_LOCATION("warmelt-first.melt:3537:/ touch");
- /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4241*/ curfptr[4240]);
- 
- /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4242*/ curfptr[4241])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4241*/ curfptr[4240])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4242*/ curfptr[4241])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4241*/ curfptr[4240]);
- 
- /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4242*/ curfptr[4241]);
- 
- MELT_LOCATION("warmelt-first.melt:3549:/ putroutconstnotnull");
- /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4243*/ curfptr[4242])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4243*/ curfptr[4242])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
- 
- MELT_LOCATION("warmelt-first.melt:3549:/ touch");
- /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4243*/ curfptr[4242]);
- 
- /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4244*/ curfptr[4243])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4243*/ curfptr[4242])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4244*/ curfptr[4243])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4243*/ curfptr[4242]);
- 
- /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4244*/ curfptr[4243]);
- 
- MELT_LOCATION("warmelt-first.melt:3563:/ putroutconstnotnull");
- /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4245*/ curfptr[4244])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V45*/ curfptr[44]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4245*/ curfptr[4244])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4237*/ curfptr[4236])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V45*/ curfptr[44]);
  
- MELT_LOCATION("warmelt-first.melt:3563:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3558:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4245*/ curfptr[4244])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4237*/ curfptr[4236])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V217*/ curfptr[216]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4245*/ curfptr[4244])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4237*/ curfptr[4236])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V217*/ curfptr[216]);
  
- MELT_LOCATION("warmelt-first.melt:3563:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3558:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4245*/ curfptr[4244])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3813*/ curfptr[3812]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4245*/ curfptr[4244])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4237*/ curfptr[4236])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3805*/ curfptr[3804]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4237*/ curfptr[4236])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3805*/ curfptr[3804]);
  
- MELT_LOCATION("warmelt-first.melt:3563:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3558:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4245*/ curfptr[4244]);
+ meltgc_touch(/*_.VALROUT___V4237*/ curfptr[4236]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4245*/ curfptr[4244])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4246*/ curfptr[4245])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4245*/ curfptr[4244]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4237*/ curfptr[4236])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4238*/ curfptr[4237])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4237*/ curfptr[4236]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4246*/ curfptr[4245]);
+ meltgc_touch(/*_.VALCLO___V4238*/ curfptr[4237]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4239*/ curfptr[4238])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4248*/ curfptr[4247]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4239*/ curfptr[4238]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4239*/ curfptr[4238]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4240*/ curfptr[4239]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4247*/ curfptr[4246]);
+ meltgc_touch(/*_.VALDATA___V4239*/ curfptr[4238]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4241*/ curfptr[4240])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4250*/ curfptr[4249]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4241*/ curfptr[4240]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4241*/ curfptr[4240]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4242*/ curfptr[4241]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4249*/ curfptr[4248]);
+ meltgc_touch(/*_.VALDATA___V4241*/ curfptr[4240]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4249*/ curfptr[4248]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4241*/ curfptr[4240]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3584:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3579:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4251*/ curfptr[4250]);
+ meltgc_touch(/*_.VALDATA___V4243*/ curfptr[4242]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4244*/ curfptr[4243])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4253*/ curfptr[4252]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4244*/ curfptr[4243]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4244*/ curfptr[4243]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4245*/ curfptr[4244]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4252*/ curfptr[4251]);
+ meltgc_touch(/*_.VALDATA___V4244*/ curfptr[4243]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4252*/ curfptr[4251]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4244*/ curfptr[4243]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3584:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3579:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4254*/ curfptr[4253]);
+ meltgc_touch(/*_.VALDATA___V4246*/ curfptr[4245]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:3584:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3579:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:3584:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3579:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4255*/ curfptr[4254]);
+ meltgc_touch(/*_.VALDATA___V4247*/ curfptr[4246]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4243*/ curfptr[4242]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4254*/ curfptr[4253]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4246*/ curfptr[4245]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4256*/ curfptr[4255]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4255*/ curfptr[4254]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4248*/ curfptr[4247]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4256*/ curfptr[4255]);
+ meltgc_touch(/*_.VALTUP___V4248*/ curfptr[4247]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4257*/ curfptr[4256])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4257*/ curfptr[4256]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4257*/ curfptr[4256]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4258*/ curfptr[4257]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4250*/ curfptr[4249]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4257*/ curfptr[4256]);
+ meltgc_touch(/*_.VALDATA___V4249*/ curfptr[4248]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4249*/ curfptr[4248]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4241*/ curfptr[4240]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3593:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3588:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4259*/ curfptr[4258]);
+ meltgc_touch(/*_.VALDATA___V4251*/ curfptr[4250]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V4252*/ curfptr[4251]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V4244*/ curfptr[4243]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-first.melt:3593:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3588:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4260*/ curfptr[4259]);
+ meltgc_touch(/*_.VALDATA___V4252*/ curfptr[4251]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V1497*/ curfptr[1496]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V1489*/ curfptr[1488]);
  
- MELT_LOCATION("warmelt-first.melt:3593:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:3588:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_LONG))));
  
- MELT_LOCATION("warmelt-first.melt:3593:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3588:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4261*/ curfptr[4260]);
+ meltgc_touch(/*_.VALDATA___V4253*/ curfptr[4252]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4259*/ curfptr[4258]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V4251*/ curfptr[4250]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4260*/ curfptr[4259]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V4262*/ curfptr[4261]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4261*/ curfptr[4260]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V4254*/ curfptr[4253]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4253*/ curfptr[4252]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V4262*/ curfptr[4261]);
+ meltgc_touch(/*_.VALTUP___V4254*/ curfptr[4253]);
  
- MELT_LOCATION("warmelt-first.melt:3647:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3642:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4263*/ curfptr[4262])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4255*/ curfptr[4254])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4263*/ curfptr[4262])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4255*/ curfptr[4254])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3647:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3642:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4263*/ curfptr[4262])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4263*/ curfptr[4262])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4255*/ curfptr[4254])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4255*/ curfptr[4254])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3647:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3642:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4263*/ curfptr[4262]);
+ meltgc_touch(/*_.VALROUT___V4255*/ curfptr[4254]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4264*/ curfptr[4263])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4263*/ curfptr[4262])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4264*/ curfptr[4263])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4263*/ curfptr[4262]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4256*/ curfptr[4255])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4255*/ curfptr[4254])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4256*/ curfptr[4255])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4255*/ curfptr[4254]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4264*/ curfptr[4263]);
+ meltgc_touch(/*_.VALCLO___V4256*/ curfptr[4255]);
  
- MELT_LOCATION("warmelt-first.melt:3684:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3679:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4257*/ curfptr[4256])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4265*/ curfptr[4264])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4257*/ curfptr[4256])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3684:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3679:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4060*/ curfptr[4059]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4265*/ curfptr[4264])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4060*/ curfptr[4059]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4257*/ curfptr[4256])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4052*/ curfptr[4051]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4257*/ curfptr[4256])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V4052*/ curfptr[4051]);
  
- MELT_LOCATION("warmelt-first.melt:3684:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3679:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4265*/ curfptr[4264]);
+ meltgc_touch(/*_.VALROUT___V4257*/ curfptr[4256]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4266*/ curfptr[4265])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4266*/ curfptr[4265])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4265*/ curfptr[4264]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4258*/ curfptr[4257])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4257*/ curfptr[4256])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4258*/ curfptr[4257])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4257*/ curfptr[4256]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4266*/ curfptr[4265]);
+ meltgc_touch(/*_.VALCLO___V4258*/ curfptr[4257]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4268*/ curfptr[4267])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4267*/ curfptr[4266])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4268*/ curfptr[4267])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4267*/ curfptr[4266]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4260*/ curfptr[4259])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4259*/ curfptr[4258])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4260*/ curfptr[4259])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4259*/ curfptr[4258]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4268*/ curfptr[4267]);
+ meltgc_touch(/*_.VALCLO___V4260*/ curfptr[4259]);
  
- MELT_LOCATION("warmelt-first.melt:3730:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3725:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4269*/ curfptr[4268])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4261*/ curfptr[4260])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4269*/ curfptr[4268])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4261*/ curfptr[4260])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3730:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3725:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4269*/ curfptr[4268])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3696*/ curfptr[3695]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4269*/ curfptr[4268])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4261*/ curfptr[4260])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3688*/ curfptr[3687]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4261*/ curfptr[4260])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]);
  
- MELT_LOCATION("warmelt-first.melt:3730:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3725:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4269*/ curfptr[4268]);
+ meltgc_touch(/*_.VALROUT___V4261*/ curfptr[4260]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4270*/ curfptr[4269])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4269*/ curfptr[4268])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4270*/ curfptr[4269])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4269*/ curfptr[4268]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4262*/ curfptr[4261])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4261*/ curfptr[4260])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4262*/ curfptr[4261])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4261*/ curfptr[4260]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4270*/ curfptr[4269]);
+ meltgc_touch(/*_.VALCLO___V4262*/ curfptr[4261]);
  
- MELT_LOCATION("warmelt-first.melt:3754:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3749:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4263*/ curfptr[4262])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4271*/ curfptr[4270])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4263*/ curfptr[4262])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3754:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3749:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4271*/ curfptr[4270])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4263*/ curfptr[4262])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4263*/ curfptr[4262])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:3754:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3749:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4271*/ curfptr[4270]);
+ meltgc_touch(/*_.VALROUT___V4263*/ curfptr[4262]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4272*/ curfptr[4271])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4272*/ curfptr[4271])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4271*/ curfptr[4270]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4264*/ curfptr[4263])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4263*/ curfptr[4262])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4264*/ curfptr[4263])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4263*/ curfptr[4262]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4272*/ curfptr[4271]);
+ meltgc_touch(/*_.VALCLO___V4264*/ curfptr[4263]);
  
- MELT_LOCATION("warmelt-first.melt:3774:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3769:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4265*/ curfptr[4264])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3774:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3769:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3821*/ curfptr[3820]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3813*/ curfptr[3812]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4265*/ curfptr[4264])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812]);
  
- MELT_LOCATION("warmelt-first.melt:3774:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3769:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4265*/ curfptr[4264])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3774:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3769:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4273*/ curfptr[4272]);
+ meltgc_touch(/*_.VALROUT___V4265*/ curfptr[4264]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4274*/ curfptr[4273])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4274*/ curfptr[4273])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4273*/ curfptr[4272]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4266*/ curfptr[4265])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4265*/ curfptr[4264])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4266*/ curfptr[4265])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4265*/ curfptr[4264]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4274*/ curfptr[4273]);
+ meltgc_touch(/*_.VALCLO___V4266*/ curfptr[4265]);
  
- MELT_LOCATION("warmelt-first.melt:3801:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3796:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4275*/ curfptr[4274])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4267*/ curfptr[4266])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4275*/ curfptr[4274])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4267*/ curfptr[4266])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3801:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3796:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4275*/ curfptr[4274])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3829*/ curfptr[3828]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4275*/ curfptr[4274])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4267*/ curfptr[4266])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3821*/ curfptr[3820]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4267*/ curfptr[4266])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]);
  
- MELT_LOCATION("warmelt-first.melt:3801:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3796:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4275*/ curfptr[4274]);
+ meltgc_touch(/*_.VALROUT___V4267*/ curfptr[4266]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4276*/ curfptr[4275])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4275*/ curfptr[4274])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4276*/ curfptr[4275])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4275*/ curfptr[4274]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4268*/ curfptr[4267])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4267*/ curfptr[4266])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4268*/ curfptr[4267])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4267*/ curfptr[4266]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4276*/ curfptr[4275]);
+ meltgc_touch(/*_.VALCLO___V4268*/ curfptr[4267]);
  
- MELT_LOCATION("warmelt-first.melt:3830:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3825:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4277*/ curfptr[4276])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4269*/ curfptr[4268])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4277*/ curfptr[4276])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4269*/ curfptr[4268])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3830:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3825:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4277*/ curfptr[4276])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4277*/ curfptr[4276])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4269*/ curfptr[4268])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4269*/ curfptr[4268])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3830:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3825:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4277*/ curfptr[4276]);
+ meltgc_touch(/*_.VALROUT___V4269*/ curfptr[4268]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4278*/ curfptr[4277])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4277*/ curfptr[4276])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4278*/ curfptr[4277])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4277*/ curfptr[4276]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4270*/ curfptr[4269])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4269*/ curfptr[4268])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4270*/ curfptr[4269])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4269*/ curfptr[4268]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4278*/ curfptr[4277]);
+ meltgc_touch(/*_.VALCLO___V4270*/ curfptr[4269]);
  
- MELT_LOCATION("warmelt-first.melt:3852:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3847:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4279*/ curfptr[4278])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4279*/ curfptr[4278])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4271*/ curfptr[4270])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3852:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3847:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4279*/ curfptr[4278])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4279*/ curfptr[4278])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4271*/ curfptr[4270])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:3852:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3847:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4279*/ curfptr[4278])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4279*/ curfptr[4278])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4271*/ curfptr[4270])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3852:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3847:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4279*/ curfptr[4278]);
+ meltgc_touch(/*_.VALROUT___V4271*/ curfptr[4270]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4280*/ curfptr[4279])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4279*/ curfptr[4278])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4280*/ curfptr[4279])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4279*/ curfptr[4278]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4272*/ curfptr[4271])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4271*/ curfptr[4270])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4272*/ curfptr[4271])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4271*/ curfptr[4270]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4280*/ curfptr[4279]);
+ meltgc_touch(/*_.VALCLO___V4272*/ curfptr[4271]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3881:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4281*/ curfptr[4280])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3881:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4281*/ curfptr[4280])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3881:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3837*/ curfptr[3836]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4281*/ curfptr[4280])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3829*/ curfptr[3828]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3881:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4232*/ curfptr[4231]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4281*/ curfptr[4280])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4232*/ curfptr[4231]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4224*/ curfptr[4223]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4224*/ curfptr[4223]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3881:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4281*/ curfptr[4280])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3901:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3896:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4282*/ curfptr[4281])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4282*/ curfptr[4281])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4274*/ curfptr[4273])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4274*/ curfptr[4273])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3901:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3896:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4282*/ curfptr[4281]);
+ meltgc_touch(/*_.VALROUT___V4274*/ curfptr[4273]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:3881:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4255__DBGOUT_ROUTINE_METHOD#5", NULL != (/*_.VALROUT___V4282*/ curfptr[4281]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4281*/ curfptr[4280])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V4282*/ curfptr[4281]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4247__DBGOUT_ROUTINE_METHOD#5", NULL != (/*_.VALROUT___V4274*/ curfptr[4273]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4273*/ curfptr[4272])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V4274*/ curfptr[4273]);
  
- MELT_LOCATION("warmelt-first.melt:3886:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3881:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4281*/ curfptr[4280]);
+ meltgc_touch(/*_.VALROUT___V4273*/ curfptr[4272]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4283*/ curfptr[4282])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4281*/ curfptr[4280])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4283*/ curfptr[4282])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4281*/ curfptr[4280]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4275*/ curfptr[4274])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4273*/ curfptr[4272])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4275*/ curfptr[4274])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4273*/ curfptr[4272]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4283*/ curfptr[4282]);
+ meltgc_touch(/*_.VALCLO___V4275*/ curfptr[4274]);
  
- MELT_LOCATION("warmelt-first.melt:3913:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3908:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4276*/ curfptr[4275])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4276*/ curfptr[4275])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3913:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3908:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3833*/ curfptr[3832]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4276*/ curfptr[4275])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3825*/ curfptr[3824]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4276*/ curfptr[4275])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824]);
  
- MELT_LOCATION("warmelt-first.melt:3913:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3908:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4276*/ curfptr[4275])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4276*/ curfptr[4275])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3913:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3908:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4284*/ curfptr[4283]);
+ meltgc_touch(/*_.VALROUT___V4276*/ curfptr[4275]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4285*/ curfptr[4284])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4284*/ curfptr[4283]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4277*/ curfptr[4276])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4276*/ curfptr[4275])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4277*/ curfptr[4276])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4276*/ curfptr[4275]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4285*/ curfptr[4284]);
+ meltgc_touch(/*_.VALCLO___V4277*/ curfptr[4276]);
  
- MELT_LOCATION("warmelt-first.melt:3949:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3944:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4278*/ curfptr[4277])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4278*/ curfptr[4277])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3949:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3944:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4278*/ curfptr[4277])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4278*/ curfptr[4277])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:3949:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3944:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4278*/ curfptr[4277])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4278*/ curfptr[4277])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3949:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3944:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4286*/ curfptr[4285]);
+ meltgc_touch(/*_.VALROUT___V4278*/ curfptr[4277]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4287*/ curfptr[4286])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4287*/ curfptr[4286])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4286*/ curfptr[4285]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4279*/ curfptr[4278])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4278*/ curfptr[4277])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4279*/ curfptr[4278])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4278*/ curfptr[4277]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4287*/ curfptr[4286]);
+ meltgc_touch(/*_.VALCLO___V4279*/ curfptr[4278]);
  
- MELT_LOCATION("warmelt-first.melt:3989:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3984:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4288*/ curfptr[4287])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4280*/ curfptr[4279])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4288*/ curfptr[4287])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4280*/ curfptr[4279])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:3989:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3984:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4288*/ curfptr[4287])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3729*/ curfptr[3728]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4288*/ curfptr[4287])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4280*/ curfptr[4279])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3721*/ curfptr[3720]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4280*/ curfptr[4279])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720]);
  
- MELT_LOCATION("warmelt-first.melt:3989:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:3984:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4288*/ curfptr[4287])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4288*/ curfptr[4287])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4280*/ curfptr[4279])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4280*/ curfptr[4279])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:3989:/ touch");
+ MELT_LOCATION("warmelt-first.melt:3984:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4288*/ curfptr[4287]);
+ meltgc_touch(/*_.VALROUT___V4280*/ curfptr[4279]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4289*/ curfptr[4288])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4288*/ curfptr[4287])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4289*/ curfptr[4288])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4288*/ curfptr[4287]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4281*/ curfptr[4280])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4280*/ curfptr[4279])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4281*/ curfptr[4280])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4280*/ curfptr[4279]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4289*/ curfptr[4288]);
+ meltgc_touch(/*_.VALCLO___V4281*/ curfptr[4280]);
  
- MELT_LOCATION("warmelt-first.melt:4009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4004:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4290*/ curfptr[4289])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4282*/ curfptr[4281])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4290*/ curfptr[4289])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4282*/ curfptr[4281])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4004:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4290*/ curfptr[4289])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3741*/ curfptr[3740]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4290*/ curfptr[4289])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4282*/ curfptr[4281])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4282*/ curfptr[4281])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
  
- MELT_LOCATION("warmelt-first.melt:4009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4004:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4290*/ curfptr[4289])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4290*/ curfptr[4289])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4282*/ curfptr[4281])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4282*/ curfptr[4281])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4009:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4004:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4290*/ curfptr[4289]);
+ meltgc_touch(/*_.VALROUT___V4282*/ curfptr[4281]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4291*/ curfptr[4290])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4290*/ curfptr[4289])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4291*/ curfptr[4290])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4290*/ curfptr[4289]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4283*/ curfptr[4282])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4282*/ curfptr[4281])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4283*/ curfptr[4282])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4282*/ curfptr[4281]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4291*/ curfptr[4290]);
+ meltgc_touch(/*_.VALCLO___V4283*/ curfptr[4282]);
  
- MELT_LOCATION("warmelt-first.melt:4028:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V241*/ curfptr[240]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4292*/ curfptr[4291])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]);
  
- MELT_LOCATION("warmelt-first.melt:4028:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ curfptr[34]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4292*/ curfptr[4291])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-first.melt:4028:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4292*/ curfptr[4291])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4293*/ curfptr[4292])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4292*/ curfptr[4291]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4285*/ curfptr[4284])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4284*/ curfptr[4283]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4293*/ curfptr[4292]);
+ meltgc_touch(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4028:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4292*/ curfptr[4291])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4284*/ curfptr[4283])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4284*/ curfptr[4283])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4028:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4023:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4292*/ curfptr[4291]);
+ meltgc_touch(/*_.VALROUT___V4284*/ curfptr[4283]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3765*/ curfptr[3764]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3757*/ curfptr[3756]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4114*/ curfptr[4113]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4114*/ curfptr[4113]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4106*/ curfptr[4105]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4106*/ curfptr[4105]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4135:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4130:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4295*/ curfptr[4294])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4295*/ curfptr[4294])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4287*/ curfptr[4286])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4287*/ curfptr[4286])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4135:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4130:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4295*/ curfptr[4294])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4295*/ curfptr[4294])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4287*/ curfptr[4286])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4287*/ curfptr[4286])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4135:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4130:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4295*/ curfptr[4294]);
+ meltgc_touch(/*_.VALROUT___V4287*/ curfptr[4286]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4268__DBGOUT_MAPOBJECT_METHOD#7", NULL != (/*_.VALROUT___V4295*/ curfptr[4294]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4295*/ curfptr[4294]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4260__DBGOUT_MAPOBJECT_METHOD#7", NULL != (/*_.VALROUT___V4287*/ curfptr[4286]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4287*/ curfptr[4286]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4149:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4144:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4288*/ curfptr[4287])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4288*/ curfptr[4287])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4149:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4144:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4296*/ curfptr[4295]);
+ meltgc_touch(/*_.VALROUT___V4288*/ curfptr[4287]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4268__DBGOUT_MAPOBJECT_METHOD#9", NULL != (/*_.VALROUT___V4296*/ curfptr[4295]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4260__DBGOUT_MAPOBJECT_METHOD#9", NULL != (/*_.VALROUT___V4288*/ curfptr[4287]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4288*/ curfptr[4287]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4218*/ curfptr[4217]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V4218*/ curfptr[4217]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4210*/ curfptr[4209]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V4210*/ curfptr[4209]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4058*/ curfptr[4057]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V4058*/ curfptr[4057]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4050*/ curfptr[4049]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V4050*/ curfptr[4049]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4165:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4160:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4297*/ curfptr[4296])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4058*/ curfptr[4057]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4297*/ curfptr[4296])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4058*/ curfptr[4057]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4289*/ curfptr[4288])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4050*/ curfptr[4049]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4289*/ curfptr[4288])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4050*/ curfptr[4049]);
  
- MELT_LOCATION("warmelt-first.melt:4165:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4160:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4297*/ curfptr[4296])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4297*/ curfptr[4296])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4289*/ curfptr[4288])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4289*/ curfptr[4288])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4165:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4160:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4297*/ curfptr[4296]);
+ meltgc_touch(/*_.VALROUT___V4289*/ curfptr[4288]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4103:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4268__DBGOUT_MAPOBJECT_METHOD#13", NULL != (/*_.VALROUT___V4297*/ curfptr[4296]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4294*/ curfptr[4293])->tabval[13] = (melt_ptr_t)(/*_.VALROUT___V4297*/ curfptr[4296]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4260__DBGOUT_MAPOBJECT_METHOD#13", NULL != (/*_.VALROUT___V4289*/ curfptr[4288]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4286*/ curfptr[4285])->tabval[13] = (melt_ptr_t)(/*_.VALROUT___V4289*/ curfptr[4288]);
  
- MELT_LOCATION("warmelt-first.melt:4108:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4103:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4294*/ curfptr[4293]);
+ meltgc_touch(/*_.VALROUT___V4286*/ curfptr[4285]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4298*/ curfptr[4297])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4298*/ curfptr[4297])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4294*/ curfptr[4293]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4290*/ curfptr[4289])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4286*/ curfptr[4285])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4290*/ curfptr[4289])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4286*/ curfptr[4285]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4298*/ curfptr[4297]);
+ meltgc_touch(/*_.VALCLO___V4290*/ curfptr[4289]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4114*/ curfptr[4113]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4114*/ curfptr[4113]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4106*/ curfptr[4105]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4106*/ curfptr[4105]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4203:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4198:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4300*/ curfptr[4299])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4300*/ curfptr[4299])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4292*/ curfptr[4291])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4203:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4198:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4300*/ curfptr[4299])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4300*/ curfptr[4299])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4292*/ curfptr[4291])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4203:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4198:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4300*/ curfptr[4299]);
+ meltgc_touch(/*_.VALROUT___V4292*/ curfptr[4291]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#5", NULL != (/*_.VALROUT___V4300*/ curfptr[4299]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V4300*/ curfptr[4299]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#5", NULL != (/*_.VALROUT___V4292*/ curfptr[4291]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V4292*/ curfptr[4291]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4216:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4211:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4301*/ curfptr[4300])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4301*/ curfptr[4300])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4293*/ curfptr[4292])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4293*/ curfptr[4292])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4216:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4211:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4301*/ curfptr[4300]);
+ meltgc_touch(/*_.VALROUT___V4293*/ curfptr[4292]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#7", NULL != (/*_.VALROUT___V4301*/ curfptr[4300]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4301*/ curfptr[4300]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#7", NULL != (/*_.VALROUT___V4293*/ curfptr[4292]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4293*/ curfptr[4292]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4226*/ curfptr[4225]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V4226*/ curfptr[4225]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4218*/ curfptr[4217]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V4218*/ curfptr[4217]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4184:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4273__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#9", NULL != (/*_.VALROUT___V4302*/ curfptr[4301]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4302*/ curfptr[4301]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4265__MAPOBJECT_SORTED_ATTRIBUTE_TUPLE#9", NULL != (/*_.VALROUT___V4294*/ curfptr[4293]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4291*/ curfptr[4290])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4294*/ curfptr[4293]);
  
- MELT_LOCATION("warmelt-first.melt:4189:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4184:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4299*/ curfptr[4298]);
+ meltgc_touch(/*_.VALROUT___V4291*/ curfptr[4290]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4303*/ curfptr[4302])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4303*/ curfptr[4302])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4299*/ curfptr[4298]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4295*/ curfptr[4294])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4291*/ curfptr[4290])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4295*/ curfptr[4294])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4291*/ curfptr[4290]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4303*/ curfptr[4302]);
+ meltgc_touch(/*_.VALCLO___V4295*/ curfptr[4294]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3769*/ curfptr[3768]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3761*/ curfptr[3760]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4118*/ curfptr[4117]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4118*/ curfptr[4117]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4110*/ curfptr[4109]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4110*/ curfptr[4109]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4263:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4258:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4305*/ curfptr[4304])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3733*/ curfptr[3732]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4305*/ curfptr[4304])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4297*/ curfptr[4296])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4297*/ curfptr[4296])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
  
- MELT_LOCATION("warmelt-first.melt:4263:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4258:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4305*/ curfptr[4304])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4305*/ curfptr[4304])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4297*/ curfptr[4296])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3709*/ curfptr[3708]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4297*/ curfptr[4296])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]);
  
- MELT_LOCATION("warmelt-first.melt:4263:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4258:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4305*/ curfptr[4304]);
+ meltgc_touch(/*_.VALROUT___V4297*/ curfptr[4296]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4278__DBGOUT_MAPSTRING_METHOD#7", NULL != (/*_.VALROUT___V4305*/ curfptr[4304]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4305*/ curfptr[4304]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4270__DBGOUT_MAPSTRING_METHOD#7", NULL != (/*_.VALROUT___V4297*/ curfptr[4296]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V4297*/ curfptr[4296]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4276:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4271:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4306*/ curfptr[4305])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4293*/ curfptr[4292]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4306*/ curfptr[4305])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4293*/ curfptr[4292]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4298*/ curfptr[4297])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4285*/ curfptr[4284]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4298*/ curfptr[4297])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4285*/ curfptr[4284]);
  
- MELT_LOCATION("warmelt-first.melt:4276:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4271:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4306*/ curfptr[4305]);
+ meltgc_touch(/*_.VALROUT___V4298*/ curfptr[4297]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4278__DBGOUT_MAPSTRING_METHOD#9", NULL != (/*_.VALROUT___V4306*/ curfptr[4305]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4306*/ curfptr[4305]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4270__DBGOUT_MAPSTRING_METHOD#9", NULL != (/*_.VALROUT___V4298*/ curfptr[4297]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V4298*/ curfptr[4297]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4218*/ curfptr[4217]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V4218*/ curfptr[4217]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4210*/ curfptr[4209]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V4210*/ curfptr[4209]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4292:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4287:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4307*/ curfptr[4306])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4307*/ curfptr[4306])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4299*/ curfptr[4298])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4292:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4287:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4307*/ curfptr[4306]);
+ meltgc_touch(/*_.VALROUT___V4299*/ curfptr[4298]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4232:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4278__DBGOUT_MAPSTRING_METHOD#12", NULL != (/*_.VALROUT___V4307*/ curfptr[4306]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4304*/ curfptr[4303])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V4307*/ curfptr[4306]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4270__DBGOUT_MAPSTRING_METHOD#12", NULL != (/*_.VALROUT___V4299*/ curfptr[4298]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4296*/ curfptr[4295])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V4299*/ curfptr[4298]);
  
- MELT_LOCATION("warmelt-first.melt:4237:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4232:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4304*/ curfptr[4303]);
+ meltgc_touch(/*_.VALROUT___V4296*/ curfptr[4295]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4304*/ curfptr[4303])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4308*/ curfptr[4307])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4304*/ curfptr[4303]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4300*/ curfptr[4299])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4296*/ curfptr[4295])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4300*/ curfptr[4299])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4296*/ curfptr[4295]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4308*/ curfptr[4307]);
+ meltgc_touch(/*_.VALCLO___V4300*/ curfptr[4299]);
  
- MELT_LOCATION("warmelt-first.melt:4311:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4306:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4309*/ curfptr[4308])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4301*/ curfptr[4300])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4309*/ curfptr[4308])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4301*/ curfptr[4300])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4311:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4306:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4309*/ curfptr[4308])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4264*/ curfptr[4263]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4309*/ curfptr[4308])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4264*/ curfptr[4263]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4301*/ curfptr[4300])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4256*/ curfptr[4255]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4301*/ curfptr[4300])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4256*/ curfptr[4255]);
  
- MELT_LOCATION("warmelt-first.melt:4311:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4306:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4309*/ curfptr[4308]);
+ meltgc_touch(/*_.VALROUT___V4301*/ curfptr[4300]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4310*/ curfptr[4309])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4309*/ curfptr[4308])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4310*/ curfptr[4309])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4309*/ curfptr[4308]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4302*/ curfptr[4301])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4301*/ curfptr[4300])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4302*/ curfptr[4301])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4301*/ curfptr[4300]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4310*/ curfptr[4309]);
+ meltgc_touch(/*_.VALCLO___V4302*/ curfptr[4301]);
  
- MELT_LOCATION("warmelt-first.melt:4340:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4335:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4311*/ curfptr[4310])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4303*/ curfptr[4302])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4311*/ curfptr[4310])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4303*/ curfptr[4302])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4340:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4335:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4311*/ curfptr[4310])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4303*/ curfptr[4302])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V35*/ curfptr[34]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4311*/ curfptr[4310])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4303*/ curfptr[4302])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-first.melt:4340:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4335:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4311*/ curfptr[4310]);
+ meltgc_touch(/*_.VALROUT___V4303*/ curfptr[4302]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4312*/ curfptr[4311])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4311*/ curfptr[4310])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4312*/ curfptr[4311])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4311*/ curfptr[4310]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4304*/ curfptr[4303])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4303*/ curfptr[4302])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4304*/ curfptr[4303])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4303*/ curfptr[4302]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4312*/ curfptr[4311]);
+ meltgc_touch(/*_.VALCLO___V4304*/ curfptr[4303]);
  
- MELT_LOCATION("warmelt-first.melt:4351:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4346:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4305*/ curfptr[4304])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4313*/ curfptr[4312])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4305*/ curfptr[4304])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4351:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4346:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4313*/ curfptr[4312]);
+ meltgc_touch(/*_.VALROUT___V4305*/ curfptr[4304]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4314*/ curfptr[4313])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4314*/ curfptr[4313])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4313*/ curfptr[4312]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4306*/ curfptr[4305])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4305*/ curfptr[4304])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4306*/ curfptr[4305])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4305*/ curfptr[4304]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4314*/ curfptr[4313]);
+ meltgc_touch(/*_.VALCLO___V4306*/ curfptr[4305]);
  
- MELT_LOCATION("warmelt-first.melt:4375:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4370:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4307*/ curfptr[4306])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4315*/ curfptr[4314])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4307*/ curfptr[4306])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4375:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4370:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4056*/ curfptr[4055]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4315*/ curfptr[4314])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4056*/ curfptr[4055]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4307*/ curfptr[4306])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4048*/ curfptr[4047]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4307*/ curfptr[4306])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4048*/ curfptr[4047]);
  
- MELT_LOCATION("warmelt-first.melt:4375:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4370:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4264*/ curfptr[4263]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4315*/ curfptr[4314])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4264*/ curfptr[4263]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4307*/ curfptr[4306])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4256*/ curfptr[4255]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4307*/ curfptr[4306])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4256*/ curfptr[4255]);
  
- MELT_LOCATION("warmelt-first.melt:4375:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4370:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4315*/ curfptr[4314]);
+ meltgc_touch(/*_.VALROUT___V4307*/ curfptr[4306]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4316*/ curfptr[4315])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4315*/ curfptr[4314]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4307*/ curfptr[4306])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4308*/ curfptr[4307])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4307*/ curfptr[4306]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4316*/ curfptr[4315]);
+ meltgc_touch(/*_.VALCLO___V4308*/ curfptr[4307]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4317*/ curfptr[4316])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4309*/ curfptr[4308])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4317*/ curfptr[4316]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4317*/ curfptr[4316]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4318*/ curfptr[4317]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4309*/ curfptr[4308]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4309*/ curfptr[4308]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4310*/ curfptr[4309]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4317*/ curfptr[4316]);
+ meltgc_touch(/*_.VALDATA___V4309*/ curfptr[4308]);
  
- MELT_LOCATION("warmelt-first.melt:4414:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4409:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4311*/ curfptr[4310])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4319*/ curfptr[4318])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4311*/ curfptr[4310])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4414:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4409:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4319*/ curfptr[4318]);
+ meltgc_touch(/*_.VALROUT___V4311*/ curfptr[4310]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4320*/ curfptr[4319])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4320*/ curfptr[4319])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4319*/ curfptr[4318]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4312*/ curfptr[4311])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4311*/ curfptr[4310])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4312*/ curfptr[4311])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4311*/ curfptr[4310]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4320*/ curfptr[4319]);
+ meltgc_touch(/*_.VALCLO___V4312*/ curfptr[4311]);
  
- MELT_LOCATION("warmelt-first.melt:4436:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4431:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4321*/ curfptr[4320])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4313*/ curfptr[4312])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4436:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4431:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4321*/ curfptr[4320])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4313*/ curfptr[4312])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:4436:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4431:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4316*/ curfptr[4315]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4321*/ curfptr[4320])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4308*/ curfptr[4307]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4313*/ curfptr[4312])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307]);
  
- MELT_LOCATION("warmelt-first.melt:4444:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4439:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4323*/ curfptr[4322])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4315*/ curfptr[4314])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4444:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4439:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V231*/ curfptr[230]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4323*/ curfptr[4322])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4315*/ curfptr[4314])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]);
  
- MELT_LOCATION("warmelt-first.melt:4444:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4439:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4323*/ curfptr[4322]);
+ meltgc_touch(/*_.VALROUT___V4315*/ curfptr[4314]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4322*/ curfptr[4321])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4322*/ curfptr[4321])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4323*/ curfptr[4322]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4314*/ curfptr[4313])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4315*/ curfptr[4314])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4314*/ curfptr[4313])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4315*/ curfptr[4314]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4322*/ curfptr[4321]);
+ meltgc_touch(/*_.VALCLO___V4314*/ curfptr[4313]);
  
- MELT_LOCATION("warmelt-first.melt:4436:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4431:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4322*/ curfptr[4321]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4321*/ curfptr[4320])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4322*/ curfptr[4321]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4314*/ curfptr[4313]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4313*/ curfptr[4312])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4314*/ curfptr[4313]);
  
- MELT_LOCATION("warmelt-first.melt:4436:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4431:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4321*/ curfptr[4320]);
+ meltgc_touch(/*_.VALROUT___V4313*/ curfptr[4312]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4324*/ curfptr[4323])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4324*/ curfptr[4323])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4321*/ curfptr[4320]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4313*/ curfptr[4312])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4316*/ curfptr[4315])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4313*/ curfptr[4312]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4324*/ curfptr[4323]);
+ meltgc_touch(/*_.VALCLO___V4316*/ curfptr[4315]);
  
- MELT_LOCATION("warmelt-first.melt:4464:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4459:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4325*/ curfptr[4324])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4317*/ curfptr[4316])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4325*/ curfptr[4324])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4317*/ curfptr[4316])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4464:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4459:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4325*/ curfptr[4324])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4317*/ curfptr[4316])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V63*/ curfptr[62]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4325*/ curfptr[4324])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4317*/ curfptr[4316])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]);
  
- MELT_LOCATION("warmelt-first.melt:4464:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4459:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4325*/ curfptr[4324])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4316*/ curfptr[4315]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4325*/ curfptr[4324])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4317*/ curfptr[4316])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4308*/ curfptr[4307]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4317*/ curfptr[4316])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307]);
  
- MELT_LOCATION("warmelt-first.melt:4464:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4459:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4325*/ curfptr[4324])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4320*/ curfptr[4319]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4325*/ curfptr[4324])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4320*/ curfptr[4319]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4317*/ curfptr[4316])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4312*/ curfptr[4311]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4317*/ curfptr[4316])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4312*/ curfptr[4311]);
  
- MELT_LOCATION("warmelt-first.melt:4464:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4459:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4325*/ curfptr[4324]);
+ meltgc_touch(/*_.VALROUT___V4317*/ curfptr[4316]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4326*/ curfptr[4325])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4325*/ curfptr[4324])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4326*/ curfptr[4325])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4325*/ curfptr[4324]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4318*/ curfptr[4317])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4317*/ curfptr[4316])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4318*/ curfptr[4317])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4317*/ curfptr[4316]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4326*/ curfptr[4325]);
+ meltgc_touch(/*_.VALCLO___V4318*/ curfptr[4317]);
  
- MELT_LOCATION("warmelt-first.melt:4473:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4468:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4319*/ curfptr[4318])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4473:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4468:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V251*/ curfptr[250]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4319*/ curfptr[4318])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
  
- MELT_LOCATION("warmelt-first.melt:4473:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4468:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4316*/ curfptr[4315]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4308*/ curfptr[4307]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4319*/ curfptr[4318])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307]);
  
- MELT_LOCATION("warmelt-first.melt:4481:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4476:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4329*/ curfptr[4328])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4321*/ curfptr[4320])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4481:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4476:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V251*/ curfptr[250]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4329*/ curfptr[4328])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4321*/ curfptr[4320])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]);
  
- MELT_LOCATION("warmelt-first.melt:4481:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4476:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4329*/ curfptr[4328]);
+ meltgc_touch(/*_.VALROUT___V4321*/ curfptr[4320]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4328*/ curfptr[4327])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4328*/ curfptr[4327])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4329*/ curfptr[4328]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4320*/ curfptr[4319])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4321*/ curfptr[4320])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4320*/ curfptr[4319])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4321*/ curfptr[4320]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4328*/ curfptr[4327]);
+ meltgc_touch(/*_.VALCLO___V4320*/ curfptr[4319]);
  
- MELT_LOCATION("warmelt-first.melt:4473:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4468:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4328*/ curfptr[4327]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4328*/ curfptr[4327]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4320*/ curfptr[4319]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4319*/ curfptr[4318])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4320*/ curfptr[4319]);
  
- MELT_LOCATION("warmelt-first.melt:4473:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4468:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4327*/ curfptr[4326]);
+ meltgc_touch(/*_.VALROUT___V4319*/ curfptr[4318]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4330*/ curfptr[4329])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4330*/ curfptr[4329])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4327*/ curfptr[4326]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4322*/ curfptr[4321])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4319*/ curfptr[4318])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4322*/ curfptr[4321])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4319*/ curfptr[4318]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4330*/ curfptr[4329]);
+ meltgc_touch(/*_.VALCLO___V4322*/ curfptr[4321]);
  
- MELT_LOCATION("warmelt-first.melt:4501:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4496:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4331*/ curfptr[4330])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4331*/ curfptr[4330])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4323*/ curfptr[4322])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4501:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4496:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4331*/ curfptr[4330])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V241*/ curfptr[240]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4331*/ curfptr[4330])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4323*/ curfptr[4322])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]);
  
- MELT_LOCATION("warmelt-first.melt:4501:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4496:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4331*/ curfptr[4330])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4316*/ curfptr[4315]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4331*/ curfptr[4330])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4308*/ curfptr[4307]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4323*/ curfptr[4322])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4332*/ curfptr[4331])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4333*/ curfptr[4332])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4332*/ curfptr[4331])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4333*/ curfptr[4332]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4324*/ curfptr[4323])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4325*/ curfptr[4324])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4324*/ curfptr[4323])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4325*/ curfptr[4324]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4332*/ curfptr[4331]);
+ meltgc_touch(/*_.VALCLO___V4324*/ curfptr[4323]);
  
- MELT_LOCATION("warmelt-first.melt:4501:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4496:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4331*/ curfptr[4330])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4332*/ curfptr[4331]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4331*/ curfptr[4330])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4332*/ curfptr[4331]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4324*/ curfptr[4323]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4323*/ curfptr[4322])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4324*/ curfptr[4323]);
  
- MELT_LOCATION("warmelt-first.melt:4501:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4496:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4331*/ curfptr[4330]);
+ meltgc_touch(/*_.VALROUT___V4323*/ curfptr[4322]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4334*/ curfptr[4333])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4331*/ curfptr[4330])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4334*/ curfptr[4333])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4331*/ curfptr[4330]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4326*/ curfptr[4325])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4323*/ curfptr[4322])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4326*/ curfptr[4325])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4323*/ curfptr[4322]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4334*/ curfptr[4333]);
+ meltgc_touch(/*_.VALCLO___V4326*/ curfptr[4325]);
  
- MELT_LOCATION("warmelt-first.melt:4533:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4528:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4335*/ curfptr[4334])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4335*/ curfptr[4334])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4533:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4528:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4335*/ curfptr[4334])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4335*/ curfptr[4334])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4533:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4528:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4335*/ curfptr[4334])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V428*/ curfptr[427]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4335*/ curfptr[4334])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]);
  
- MELT_LOCATION("warmelt-first.melt:4533:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4528:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4335*/ curfptr[4334])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4264*/ curfptr[4263]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4335*/ curfptr[4334])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4264*/ curfptr[4263]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4256*/ curfptr[4255]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4256*/ curfptr[4255]);
  
- MELT_LOCATION("warmelt-first.melt:4533:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4528:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4335*/ curfptr[4334])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4266*/ curfptr[4265]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4335*/ curfptr[4334])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4266*/ curfptr[4265]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4258*/ curfptr[4257]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4327*/ curfptr[4326])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V4258*/ curfptr[4257]);
  
- MELT_LOCATION("warmelt-first.melt:4533:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4528:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4335*/ curfptr[4334]);
+ meltgc_touch(/*_.VALROUT___V4327*/ curfptr[4326]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4336*/ curfptr[4335])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4335*/ curfptr[4334])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4336*/ curfptr[4335])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4335*/ curfptr[4334]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4328*/ curfptr[4327])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4327*/ curfptr[4326])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4328*/ curfptr[4327])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4327*/ curfptr[4326]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4336*/ curfptr[4335]);
+ meltgc_touch(/*_.VALCLO___V4328*/ curfptr[4327]);
  
- MELT_LOCATION("warmelt-first.melt:4579:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4574:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4337*/ curfptr[4336])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4337*/ curfptr[4336])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4329*/ curfptr[4328])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4579:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4574:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4337*/ curfptr[4336])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V257*/ curfptr[256]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4337*/ curfptr[4336])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4329*/ curfptr[4328])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]);
  
- MELT_LOCATION("warmelt-first.melt:4579:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4574:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4337*/ curfptr[4336])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4316*/ curfptr[4315]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4337*/ curfptr[4336])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4316*/ curfptr[4315]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4308*/ curfptr[4307]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4329*/ curfptr[4328])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4308*/ curfptr[4307]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4338*/ curfptr[4337])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4339*/ curfptr[4338])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4338*/ curfptr[4337])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4339*/ curfptr[4338]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4330*/ curfptr[4329])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4331*/ curfptr[4330])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4330*/ curfptr[4329])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4331*/ curfptr[4330]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4338*/ curfptr[4337]);
+ meltgc_touch(/*_.VALCLO___V4330*/ curfptr[4329]);
  
- MELT_LOCATION("warmelt-first.melt:4579:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4574:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4337*/ curfptr[4336])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4338*/ curfptr[4337]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4337*/ curfptr[4336])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4338*/ curfptr[4337]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4330*/ curfptr[4329]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4329*/ curfptr[4328])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4330*/ curfptr[4329]);
  
- MELT_LOCATION("warmelt-first.melt:4579:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4574:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4337*/ curfptr[4336]);
+ meltgc_touch(/*_.VALROUT___V4329*/ curfptr[4328]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4340*/ curfptr[4339])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4337*/ curfptr[4336])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4340*/ curfptr[4339])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4337*/ curfptr[4336]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4332*/ curfptr[4331])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4329*/ curfptr[4328])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4332*/ curfptr[4331])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4329*/ curfptr[4328]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4340*/ curfptr[4339]);
+ meltgc_touch(/*_.VALCLO___V4332*/ curfptr[4331]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4341*/ curfptr[4340])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4333*/ curfptr[4332])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4341*/ curfptr[4340]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4341*/ curfptr[4340]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4342*/ curfptr[4341]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4333*/ curfptr[4332]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4333*/ curfptr[4332]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4334*/ curfptr[4333]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4341*/ curfptr[4340]);
+ meltgc_touch(/*_.VALDATA___V4333*/ curfptr[4332]);
  
- /*_.MAKE_MAPOBJECT__V4344*/ curfptr[4343] = 
-  (meltgc_new_mapobjects( (meltobject_ptr_t) (/*_.VALDATA___V3765*/ curfptr[3764]), (500)));
- MELT_LOCATION("warmelt-first.melt:4624:/ putslot");
+ /*_.MAKE_MAPOBJECT__V4336*/ curfptr[4335] = 
+  (meltgc_new_mapobjects( (meltobject_ptr_t) (/*_.VALDATA___V3757*/ curfptr[3756]), (500)));
+ MELT_LOCATION("warmelt-first.melt:4619:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4343*/ curfptr[4342])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4335*/ curfptr[4334])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4343*/ curfptr[4342]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4343*/ curfptr[4342]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.MAKE_MAPOBJECT__V4344*/ curfptr[4343]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4335*/ curfptr[4334]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4335*/ curfptr[4334]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.MAKE_MAPOBJECT__V4336*/ curfptr[4335]);
  
- MELT_LOCATION("warmelt-first.melt:4624:/ putslot");
+ MELT_LOCATION("warmelt-first.melt:4619:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4343*/ curfptr[4342])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4335*/ curfptr[4334])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4343*/ curfptr[4342]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4343*/ curfptr[4342]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALSTR___V4345*/ curfptr[4344]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4335*/ curfptr[4334]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4335*/ curfptr[4334]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALSTR___V4337*/ curfptr[4336]);
  
- MELT_LOCATION("warmelt-first.melt:4624:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4619:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4343*/ curfptr[4342]);
+ meltgc_touch(/*_.VALDATA___V4335*/ curfptr[4334]);
  
- MELT_LOCATION("warmelt-first.melt:4654:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4649:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4338*/ curfptr[4337])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4338*/ curfptr[4337])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4654:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4649:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4338*/ curfptr[4337])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4338*/ curfptr[4337])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:4654:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4649:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4346*/ curfptr[4345]);
+ meltgc_touch(/*_.VALROUT___V4338*/ curfptr[4337]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4347*/ curfptr[4346])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4347*/ curfptr[4346])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4346*/ curfptr[4345]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4339*/ curfptr[4338])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4338*/ curfptr[4337])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4339*/ curfptr[4338])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4338*/ curfptr[4337]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4347*/ curfptr[4346]);
+ meltgc_touch(/*_.VALCLO___V4339*/ curfptr[4338]);
  
- MELT_LOCATION("warmelt-first.melt:4681:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4676:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4348*/ curfptr[4347])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4340*/ curfptr[4339])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4348*/ curfptr[4347])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4340*/ curfptr[4339])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4681:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4676:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4348*/ curfptr[4347])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3725*/ curfptr[3724]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4348*/ curfptr[4347])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4340*/ curfptr[4339])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V3717*/ curfptr[3716]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4340*/ curfptr[4339])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]);
  
- MELT_LOCATION("warmelt-first.melt:4681:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4676:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4348*/ curfptr[4347]);
+ meltgc_touch(/*_.VALROUT___V4340*/ curfptr[4339]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4349*/ curfptr[4348])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4348*/ curfptr[4347])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4349*/ curfptr[4348])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4348*/ curfptr[4347]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4341*/ curfptr[4340])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4340*/ curfptr[4339])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4341*/ curfptr[4340])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4340*/ curfptr[4339]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4349*/ curfptr[4348]);
+ meltgc_touch(/*_.VALCLO___V4341*/ curfptr[4340]);
  
- MELT_LOCATION("warmelt-first.melt:4725:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4720:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4350*/ curfptr[4349])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4342*/ curfptr[4341])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4350*/ curfptr[4349])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4342*/ curfptr[4341])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4725:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4720:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4350*/ curfptr[4349])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4342*/ curfptr[4341])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4350*/ curfptr[4349])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4342*/ curfptr[4341])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
- MELT_LOCATION("warmelt-first.melt:4725:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4720:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4350*/ curfptr[4349])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4342*/ curfptr[4341])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V454*/ curfptr[453]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4350*/ curfptr[4349])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4342*/ curfptr[4341])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]);
  
- MELT_LOCATION("warmelt-first.melt:4725:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4720:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4350*/ curfptr[4349]);
+ meltgc_touch(/*_.VALROUT___V4342*/ curfptr[4341]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4351*/ curfptr[4350])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4350*/ curfptr[4349])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4351*/ curfptr[4350])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4350*/ curfptr[4349]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4343*/ curfptr[4342])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4342*/ curfptr[4341])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4343*/ curfptr[4342])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4342*/ curfptr[4341]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4351*/ curfptr[4350]);
+ meltgc_touch(/*_.VALCLO___V4343*/ curfptr[4342]);
  
- MELT_LOCATION("warmelt-first.melt:4818:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4813:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4352*/ curfptr[4351])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4344*/ curfptr[4343])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V405*/ curfptr[404]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4352*/ curfptr[4351])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4344*/ curfptr[4343])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]);
  
- MELT_LOCATION("warmelt-first.melt:4818:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4813:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4352*/ curfptr[4351])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4344*/ curfptr[4343])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4352*/ curfptr[4351])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4344*/ curfptr[4343])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
- MELT_LOCATION("warmelt-first.melt:4818:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4813:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4352*/ curfptr[4351])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4060*/ curfptr[4059]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4352*/ curfptr[4351])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4060*/ curfptr[4059]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4344*/ curfptr[4343])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V4052*/ curfptr[4051]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4344*/ curfptr[4343])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V4052*/ curfptr[4051]);
  
- MELT_LOCATION("warmelt-first.melt:4818:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4813:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4352*/ curfptr[4351])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4264*/ curfptr[4263]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4352*/ curfptr[4351])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4264*/ curfptr[4263]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4344*/ curfptr[4343])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4256*/ curfptr[4255]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4344*/ curfptr[4343])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V4256*/ curfptr[4255]);
  
- MELT_LOCATION("warmelt-first.melt:4818:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4813:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4352*/ curfptr[4351]);
+ meltgc_touch(/*_.VALROUT___V4344*/ curfptr[4343]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4353*/ curfptr[4352])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4352*/ curfptr[4351])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4353*/ curfptr[4352])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4352*/ curfptr[4351]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4345*/ curfptr[4344])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4344*/ curfptr[4343])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4345*/ curfptr[4344])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4344*/ curfptr[4343]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4353*/ curfptr[4352]);
+ meltgc_touch(/*_.VALCLO___V4345*/ curfptr[4344]);
  
- MELT_LOCATION("warmelt-first.melt:4854:/ putroutconst");
+ MELT_LOCATION("warmelt-first.melt:4849:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4335__POST_INITIALIZATION#0", NULL != (/*_.CONTENV___V2*/ curfptr[1]));
- ((meltroutine_ptr_t)/*_.VALROUT___V4354*/ curfptr[4353])->tabval[0] = (melt_ptr_t)(/*_.CONTENV___V2*/ curfptr[1]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_4327__POST_INITIALIZATION#0", NULL != (/*_.CONTENV___V2*/ curfptr[1]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[0] = (melt_ptr_t)(/*_.CONTENV___V2*/ curfptr[1]);
  
- MELT_LOCATION("warmelt-first.melt:4854:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4849:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V25*/ curfptr[24]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4354*/ curfptr[4353])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-first.melt:4854:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4849:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4009*/ curfptr[4008]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4354*/ curfptr[4353])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4009*/ curfptr[4008]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V4001*/ curfptr[4000]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V4001*/ curfptr[4000]);
  
- MELT_LOCATION("warmelt-first.melt:4854:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-first.melt:4849:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
- ((meltroutine_ptr_t)/*_.VALROUT___V4354*/ curfptr[4353])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-first.melt:4854:/ touch");
+ MELT_LOCATION("warmelt-first.melt:4849:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V4354*/ curfptr[4353]);
+ meltgc_touch(/*_.VALROUT___V4346*/ curfptr[4345]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4355*/ curfptr[4354])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V4355*/ curfptr[4354])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4354*/ curfptr[4353]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V4347*/ curfptr[4346])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V4347*/ curfptr[4346])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V4346*/ curfptr[4345]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V4355*/ curfptr[4354]);
+ meltgc_touch(/*_.VALCLO___V4347*/ curfptr[4346]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4348*/ curfptr[4347])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4348*/ curfptr[4347]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4348*/ curfptr[4347]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4349*/ curfptr[4348]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V4348*/ curfptr[4347]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4350*/ curfptr[4349])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4350*/ curfptr[4349]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4350*/ curfptr[4349]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4351*/ curfptr[4350]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V4350*/ curfptr[4349]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4352*/ curfptr[4351])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4352*/ curfptr[4351]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4352*/ curfptr[4351]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4353*/ curfptr[4352]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V4352*/ curfptr[4351]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4354*/ curfptr[4353])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4354*/ curfptr[4353]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V4354*/ curfptr[4353]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V4355*/ curfptr[4354]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V4354*/ curfptr[4353]);
  
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4356*/ curfptr[4355])) == OBMAG_OBJECT);
@@ -111709,46 +92832,6 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V4472*/ curfptr[4471]);
  
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4474*/ curfptr[4473])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4474*/ curfptr[4473]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4474*/ curfptr[4473]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4475*/ curfptr[4474]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4474*/ curfptr[4473]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4476*/ curfptr[4475])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4476*/ curfptr[4475]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4476*/ curfptr[4475]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4477*/ curfptr[4476]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4476*/ curfptr[4475]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4478*/ curfptr[4477])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4478*/ curfptr[4477]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4478*/ curfptr[4477]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4479*/ curfptr[4478]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4478*/ curfptr[4477]);
- 
- /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4480*/ curfptr[4479])) == OBMAG_OBJECT);
- 
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V4480*/ curfptr[4479]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V4480*/ curfptr[4479]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V4481*/ curfptr[4480]);
- 
- /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V4480*/ curfptr[4479]);
- 
  /**COMMENT: before toplevel body **/;
  
  MELT_LOCATION("warmelt-first.melt:4:/ block");
@@ -111758,7 +92841,7 @@ initial_frame_st     curfram__;
    /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/
 /*_.CONTENV___V2*/ curfptr[1]) /*then*/ {
   MELT_LOCATION("warmelt-first.melt:4:/ cond.then");
-  /*_.OR___V4482*/ curfptr[4481] = 
+  /*_.OR___V4474*/ curfptr[4473] = 
     /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/
 /*_.CONTENV___V2*/ curfptr[1];;
   } else {MELT_LOCATION("warmelt-first.melt:4:/ cond.else");
@@ -111767,7 +92850,7 @@ initial_frame_st     curfram__;
    /*block*/{
     MELT_LOCATION("warmelt-first.melt:4:/ getslot");
     { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V4483*/ curfptr[4482] = slot; };
+     melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V4475*/ curfptr[4474] = slot; };
     ;
     MELT_LOCATION("warmelt-first.melt:4:/ apply");
     /*apply*/{
@@ -111775,15 +92858,15 @@ initial_frame_st     curfram__;
      memset(&argtab, 0, sizeof(argtab));
      MELT_LOCATION("warmelt-first.melt:4:/ apply.arg");
      argtab[0].bp_cstring =  "warmelt-first";
-     /*_.FUN___V4484*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V4483*/ curfptr[4482]), (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     /*_.FUN___V4476*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V4475*/ curfptr[4474]), (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    /*_.OR___V4482*/ curfptr[4481] = /*_.FUN___V4484*/ curfptr[4483];;
+    /*_.OR___V4474*/ curfptr[4473] = /*_.FUN___V4476*/ curfptr[4475];;
     /*epilog*/
     MELT_LOCATION("warmelt-first.melt:4:/ clear");
-    /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V4483*/ curfptr[4482] = 0 ;
+    /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V4475*/ curfptr[4474] = 0 ;
     MELT_LOCATION("warmelt-first.melt:4:/ clear");
-    /*clear*/ /*_.FUN___V4484*/ curfptr[4483] = 0 ;}
+    /*clear*/ /*_.FUN___V4476*/ curfptr[4475] = 0 ;}
    ;
    }
   ;
@@ -111791,8127 +92874,8101 @@ initial_frame_st     curfram__;
   /*com.block:upd.cur.mod.env.cont : at very start*/{
    MELT_LOCATION("warmelt-first.melt:4:/ putroutconst");
    /*putroutconst*/
-   melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
-   if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V4482*/ curfptr[4481]));
-   ((meltroutine_ptr_t)/*_.VALROUT___V4354*/ curfptr[4353])->tabval[0] = (melt_ptr_t)(/*_.OR___V4482*/ curfptr[4481]);
+   melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
+   if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V4474*/ curfptr[4473]));
+   ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[0] = (melt_ptr_t)(/*_.OR___V4474*/ curfptr[4473]);
    ;
    MELT_LOCATION("warmelt-first.melt:4:/ touch");
    /*touch:compobj_upd_mod_env_box*/
-   meltgc_touch(/*_.VALROUT___V4354*/ curfptr[4353]);
+   meltgc_touch(/*_.VALROUT___V4346*/ curfptr[4345]);
    ;
    MELT_LOCATION("warmelt-first.melt:4:/ compute");
-   /*_.CONTENV___V2*/ curfptr[1] = /*_.OR___V4482*/ curfptr[4481];;}/*com.end block:upd.cur.mod.env.cont : at very start*/
+   /*_.CONTENV___V2*/ curfptr[1] = /*_.OR___V4474*/ curfptr[4473];;}/*com.end block:upd.cur.mod.env.cont : at very start*/
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-first.melt:4:/ clear");
-  /*clear*/ /*_.OR___V4482*/ curfptr[4481] = 0 ;}
+  /*clear*/ /*_.OR___V4474*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:1994:/ block");
+ MELT_LOCATION("warmelt-first.melt:1989:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:1994:/ block");
+  MELT_LOCATION("warmelt-first.melt:1989:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:1994:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:1989:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.VALDATA___V3693*/ curfptr[3692]), (4), (/*_.VALDATA___V3696*/ curfptr[3695]), "DISC_SUPER");
+   melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.VALDATA___V3685*/ curfptr[3684]), (4), (/*_.VALDATA___V3688*/ curfptr[3687]), "DISC_SUPER");
    ;
-   MELT_LOCATION("warmelt-first.melt:1994:/ touch");
-   meltgc_touch(/*_.VALDATA___V3693*/ curfptr[3692]);
+   MELT_LOCATION("warmelt-first.melt:1989:/ touch");
+   meltgc_touch(/*_.VALDATA___V3685*/ curfptr[3684]);
    ;
    /*epilog*/}
   ;
   /*epilog*/}
  
- MELT_LOCATION("warmelt-first.melt:1995:/ block");
+ MELT_LOCATION("warmelt-first.melt:1990:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:1995:/ block");
+  MELT_LOCATION("warmelt-first.melt:1990:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:1995:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:1990:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3693*/ curfptr[3692])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.VALDATA___V3693*/ curfptr[3692]), (1), (/*_.VALSTR___V3698*/ curfptr[3697]), "NAMED_NAME");
+   melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3685*/ curfptr[3684])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.VALDATA___V3685*/ curfptr[3684]), (1), (/*_.VALSTR___V3690*/ curfptr[3689]), "NAMED_NAME");
    ;
-   MELT_LOCATION("warmelt-first.melt:1995:/ touch");
-   meltgc_touch(/*_.VALDATA___V3693*/ curfptr[3692]);
+   MELT_LOCATION("warmelt-first.melt:1990:/ touch");
+   meltgc_touch(/*_.VALDATA___V3685*/ curfptr[3684]);
    ;
    /*epilog*/}
   ;
   /*epilog*/}
  
- MELT_LOCATION("warmelt-first.melt:2012:/ block");
+ MELT_LOCATION("warmelt-first.melt:2007:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2012:/ block");
+  MELT_LOCATION("warmelt-first.melt:2007:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2012:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2007:/ putslot");
    /*putslot*/
-   melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.VALDATA___V3696*/ curfptr[3695]), (4), (/*_.VALDATA___V3705*/ curfptr[3704]), "DISC_SUPER");
+   melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.VALDATA___V3688*/ curfptr[3687]), (4), (/*_.VALDATA___V3697*/ curfptr[3696]), "DISC_SUPER");
    ;
-   MELT_LOCATION("warmelt-first.melt:2012:/ touch");
-   meltgc_touch(/*_.VALDATA___V3696*/ curfptr[3695]);
+   MELT_LOCATION("warmelt-first.melt:2007:/ touch");
+   meltgc_touch(/*_.VALDATA___V3688*/ curfptr[3687]);
    ;
    /*epilog*/}
   ;
   /*epilog*/}
  
- MELT_LOCATION("warmelt-first.melt:2013:/ block");
+ MELT_LOCATION("warmelt-first.melt:2008:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2013:/ block");
+  MELT_LOCATION("warmelt-first.melt:2008:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-first.melt:2013:/ putslot");
+   MELT_LOCATION("warmelt-first.melt:2008:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @DISC_SUPER", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.VALDATA___V9*/ curfptr[8]), (4), (/*_.VALDATA___V3705*/ curfptr[3704]), "DISC_SUPER");
+   melt_putfield_object((/*_.VALDATA___V9*/ curfptr[8]), (4), (/*_.VALDATA___V3697*/ curfptr[3696]), "DISC_SUPER");
    ;
-   MELT_LOCATION("warmelt-first.melt:2013:/ touch");
+   MELT_LOCATION("warmelt-first.melt:2008:/ touch");
    meltgc_touch(/*_.VALDATA___V9*/ curfptr[8]);
    ;
    /*epilog*/}
   ;
   /*epilog*/}
  
- MELT_LOCATION("warmelt-first.melt:2358:/ block");
+ MELT_LOCATION("warmelt-first.melt:2353:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2358:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2353:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2358:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2353:/ apply.arg");
    argtab[0].bp_cstring =  "any melt value pointer";
-   /*_.INSTALL_CTYPE_DESCR__V4485*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3843*/ curfptr[3842]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4477*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2358:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4485*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2353:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4477*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2372:/ block");
+ MELT_LOCATION("warmelt-first.melt:2367:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2372:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2367:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2372:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2367:/ apply.arg");
    argtab[0].bp_cstring =  "C long unboxed integer";
-   /*_.INSTALL_CTYPE_DESCR__V4486*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3855*/ curfptr[3854]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4478*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3847*/ curfptr[3846]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2372:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4486*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2367:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4478*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2387:/ block");
+ MELT_LOCATION("warmelt-first.melt:2382:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2387:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2382:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2387:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2382:/ apply.arg");
    argtab[0].bp_cstring =  "GCC tree pointer";
-   /*_.INSTALL_CTYPE_DESCR__V4487*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3866*/ curfptr[3865]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4479*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3858*/ curfptr[3857]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2387:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4487*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2382:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4479*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2402:/ block");
+ MELT_LOCATION("warmelt-first.melt:2397:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2402:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2397:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2402:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2397:/ apply.arg");
    argtab[0].bp_cstring =  "GCC gimple pointer";
-   /*_.INSTALL_CTYPE_DESCR__V4488*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3878*/ curfptr[3877]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4480*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3870*/ curfptr[3869]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2402:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4488*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2397:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4480*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2419:/ block");
+ MELT_LOCATION("warmelt-first.melt:2414:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2419:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2414:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2419:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2414:/ apply.arg");
    argtab[0].bp_cstring =  "GCC gimpleseq pointer";
-   /*_.INSTALL_CTYPE_DESCR__V4489*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3890*/ curfptr[3889]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4481*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3882*/ curfptr[3881]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2419:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4489*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2414:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4481*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2436:/ block");
+ MELT_LOCATION("warmelt-first.melt:2431:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2436:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2431:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2436:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2431:/ apply.arg");
    argtab[0].bp_cstring =  "GCC basic_block";
-   /*_.INSTALL_CTYPE_DESCR__V4490*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3902*/ curfptr[3901]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4482*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3894*/ curfptr[3893]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2436:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4490*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2431:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4482*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2452:/ block");
+ MELT_LOCATION("warmelt-first.melt:2447:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2452:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2447:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2452:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2447:/ apply.arg");
    argtab[0].bp_cstring =  "GCC edge";
-   /*_.INSTALL_CTYPE_DESCR__V4491*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3914*/ curfptr[3913]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4483*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3906*/ curfptr[3905]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2452:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4491*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2447:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4483*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2467:/ block");
+ MELT_LOCATION("warmelt-first.melt:2462:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2467:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2462:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2467:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2462:/ apply.arg");
    argtab[0].bp_cstring =  "PPL coefficient";
-   /*_.INSTALL_CTYPE_DESCR__V4492*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3926*/ curfptr[3925]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4484*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3918*/ curfptr[3917]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2467:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4492*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2462:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4484*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2482:/ block");
+ MELT_LOCATION("warmelt-first.melt:2477:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2482:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2477:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2482:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2477:/ apply.arg");
    argtab[0].bp_cstring =  "PPL linear expression";
-   /*_.INSTALL_CTYPE_DESCR__V4493*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3937*/ curfptr[3936]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4485*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3929*/ curfptr[3928]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2482:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4493*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2477:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4485*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2497:/ block");
+ MELT_LOCATION("warmelt-first.melt:2492:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2497:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2492:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2497:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2492:/ apply.arg");
    argtab[0].bp_cstring =  "PPL constraint";
-   /*_.INSTALL_CTYPE_DESCR__V4494*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3948*/ curfptr[3947]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4486*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3940*/ curfptr[3939]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2497:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4494*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2492:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4486*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2512:/ block");
+ MELT_LOCATION("warmelt-first.melt:2507:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2512:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2507:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2512:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2507:/ apply.arg");
    argtab[0].bp_cstring =  "PPL constraint_system";
-   /*_.INSTALL_CTYPE_DESCR__V4495*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3959*/ curfptr[3958]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4487*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3951*/ curfptr[3950]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2512:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4495*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2507:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4487*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2527:/ block");
+ MELT_LOCATION("warmelt-first.melt:2522:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2527:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2522:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2527:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2522:/ apply.arg");
    argtab[0].bp_cstring =  "PPL polyhedron";
-   /*_.INSTALL_CTYPE_DESCR__V4496*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3970*/ curfptr[3969]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4488*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3962*/ curfptr[3961]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2527:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4496*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2522:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4488*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2540:/ block");
+ MELT_LOCATION("warmelt-first.melt:2535:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2540:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2535:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2540:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2535:/ apply.arg");
    argtab[0].bp_cstring =  "void type for side-effecting primitives without results";
-   /*_.INSTALL_CTYPE_DESCR__V4497*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3981*/ curfptr[3980]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4489*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3973*/ curfptr[3972]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2540:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4497*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2535:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4489*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:2554:/ block");
+ MELT_LOCATION("warmelt-first.melt:2549:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:2554:/ apply");
+  MELT_LOCATION("warmelt-first.melt:2549:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:2554:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:2549:/ apply.arg");
    argtab[0].bp_cstring =  "C constant strings (statically allocated outside of any heap)";
-   /*_.INSTALL_CTYPE_DESCR__V4498*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3840*/ curfptr[3839]), (melt_ptr_t)(/*_.VALDATA___V3988*/ curfptr[3987]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_CTYPE_DESCR__V4490*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V3832*/ curfptr[3831]), (melt_ptr_t)(/*_.VALDATA___V3980*/ curfptr[3979]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:2554:/ clear");
-  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4498*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:2549:/ clear");
+  /*clear*/ /*_.INSTALL_CTYPE_DESCR__V4490*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3726:/ block");
+ MELT_LOCATION("warmelt-first.melt:3721:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3726:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3721:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3726:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3726:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4268*/ curfptr[4267];
-   /*_.INSTALL_METHOD__V4499*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3721:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3721:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4260*/ curfptr[4259];
+   /*_.INSTALL_METHOD__V4491*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3726:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4499*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3721:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4491*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3727:/ block");
+ MELT_LOCATION("warmelt-first.melt:3722:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3727:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3722:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3727:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:3727:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4268*/ curfptr[4267];
-   /*_.INSTALL_METHOD__V4500*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3722:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:3722:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4260*/ curfptr[4259];
+   /*_.INSTALL_METHOD__V4492*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3701*/ curfptr[3700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3727:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4500*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3722:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4492*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3749:/ block");
+ MELT_LOCATION("warmelt-first.melt:3744:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3749:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3744:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3749:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3749:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4270*/ curfptr[4269];
-   /*_.INSTALL_METHOD__V4501*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3696*/ curfptr[3695]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3744:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3744:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4262*/ curfptr[4261];
+   /*_.INSTALL_METHOD__V4493*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3688*/ curfptr[3687]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3749:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4501*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3744:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4493*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3770:/ block");
+ MELT_LOCATION("warmelt-first.melt:3765:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3770:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3765:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3770:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3770:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4272*/ curfptr[4271];
-   /*_.INSTALL_METHOD__V4502*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3765:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3765:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4264*/ curfptr[4263];
+   /*_.INSTALL_METHOD__V4494*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3709*/ curfptr[3708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3770:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4502*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3765:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4494*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3771:/ block");
+ MELT_LOCATION("warmelt-first.melt:3766:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3771:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3766:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3771:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3771:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4272*/ curfptr[4271];
-   /*_.INSTALL_METHOD__V4503*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3766:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3766:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4264*/ curfptr[4263];
+   /*_.INSTALL_METHOD__V4495*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3809*/ curfptr[3808]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3771:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4503*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3766:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4495*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3798:/ block");
+ MELT_LOCATION("warmelt-first.melt:3793:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3798:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3793:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3798:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3798:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4274*/ curfptr[4273];
-   /*_.INSTALL_METHOD__V4504*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3793:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3793:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4266*/ curfptr[4265];
+   /*_.INSTALL_METHOD__V4496*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3813*/ curfptr[3812]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3798:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4504*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3793:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4496*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3826:/ block");
+ MELT_LOCATION("warmelt-first.melt:3821:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3826:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3821:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3826:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3826:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4276*/ curfptr[4275];
-   /*_.INSTALL_METHOD__V4505*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3821:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3821:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4268*/ curfptr[4267];
+   /*_.INSTALL_METHOD__V4497*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3821*/ curfptr[3820]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3826:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4505*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3821:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4497*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3849:/ block");
+ MELT_LOCATION("warmelt-first.melt:3844:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3849:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3844:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3849:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3849:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4278*/ curfptr[4277];
-   /*_.INSTALL_METHOD__V4506*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3844:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3844:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4270*/ curfptr[4269];
+   /*_.INSTALL_METHOD__V4498*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3817*/ curfptr[3816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3849:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4506*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3844:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4498*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3883:/ block");
+ MELT_LOCATION("warmelt-first.melt:3878:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3883:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3878:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3883:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3883:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4280*/ curfptr[4279];
-   /*_.INSTALL_METHOD__V4507*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3878:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3878:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4272*/ curfptr[4271];
+   /*_.INSTALL_METHOD__V4499*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3883:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4507*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3878:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4499*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3910:/ block");
+ MELT_LOCATION("warmelt-first.melt:3905:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3910:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3905:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3910:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3910:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4283*/ curfptr[4282];
-   /*_.INSTALL_METHOD__V4508*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3905:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3905:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4275*/ curfptr[4274];
+   /*_.INSTALL_METHOD__V4500*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3829*/ curfptr[3828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3910:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4508*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3905:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4500*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3944:/ block");
+ MELT_LOCATION("warmelt-first.melt:3939:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3944:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3939:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3944:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3944:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4285*/ curfptr[4284];
-   /*_.INSTALL_METHOD__V4509*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3939:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3939:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4277*/ curfptr[4276];
+   /*_.INSTALL_METHOD__V4501*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3825*/ curfptr[3824]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3944:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4509*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3939:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4501*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:3986:/ block");
+ MELT_LOCATION("warmelt-first.melt:3981:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:3986:/ apply");
+  MELT_LOCATION("warmelt-first.melt:3981:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:3986:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:3986:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4287*/ curfptr[4286];
-   /*_.INSTALL_METHOD__V4510*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3725*/ curfptr[3724]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:3981:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:3981:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4279*/ curfptr[4278];
+   /*_.INSTALL_METHOD__V4502*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3717*/ curfptr[3716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:3986:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4510*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:3981:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4502*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4006:/ block");
+ MELT_LOCATION("warmelt-first.melt:4001:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4006:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4001:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4006:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4006:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4289*/ curfptr[4288];
-   /*_.INSTALL_METHOD__V4511*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3729*/ curfptr[3728]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4001:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4001:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4281*/ curfptr[4280];
+   /*_.INSTALL_METHOD__V4503*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3721*/ curfptr[3720]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4006:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4511*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4001:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4503*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4023:/ block");
+ MELT_LOCATION("warmelt-first.melt:4018:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4023:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4018:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4023:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4023:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4291*/ curfptr[4290];
-   /*_.INSTALL_METHOD__V4512*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3741*/ curfptr[3740]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4018:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4018:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4283*/ curfptr[4282];
+   /*_.INSTALL_METHOD__V4504*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3733*/ curfptr[3732]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4023:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4512*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4018:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4504*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4184:/ block");
+ MELT_LOCATION("warmelt-first.melt:4179:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4184:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4179:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4184:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4184:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4298*/ curfptr[4297];
-   /*_.INSTALL_METHOD__V4513*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3765*/ curfptr[3764]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4179:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4179:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4290*/ curfptr[4289];
+   /*_.INSTALL_METHOD__V4505*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3757*/ curfptr[3756]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4184:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4513*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4179:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4505*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4307:/ block");
+ MELT_LOCATION("warmelt-first.melt:4302:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4307:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4302:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4307:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4307:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4308*/ curfptr[4307];
-   /*_.INSTALL_METHOD__V4514*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3769*/ curfptr[3768]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4302:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4302:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4300*/ curfptr[4299];
+   /*_.INSTALL_METHOD__V4506*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3761*/ curfptr[3760]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4307:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4514*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4302:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4506*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4337:/ block");
+ MELT_LOCATION("warmelt-first.melt:4332:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4337:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4332:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4337:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4337:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4310*/ curfptr[4309];
-   /*_.INSTALL_METHOD__V4515*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4332:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4332:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4302*/ curfptr[4301];
+   /*_.INSTALL_METHOD__V4507*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4337:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4515*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4332:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4507*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4348:/ block");
+ MELT_LOCATION("warmelt-first.melt:4343:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4348:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4343:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4348:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4348:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4312*/ curfptr[4311];
-   /*_.INSTALL_METHOD__V4516*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V3705*/ curfptr[3704]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4343:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4343:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4304*/ curfptr[4303];
+   /*_.INSTALL_METHOD__V4508*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V3697*/ curfptr[3696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4348:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4516*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4343:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4508*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4372:/ block");
+ MELT_LOCATION("warmelt-first.melt:4367:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4372:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4367:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4372:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4372:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4314*/ curfptr[4313];
-   /*_.INSTALL_METHOD__V4517*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4367:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4367:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4306*/ curfptr[4305];
+   /*_.INSTALL_METHOD__V4509*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4372:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4517*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4367:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4509*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4409:/ block");
+ MELT_LOCATION("warmelt-first.melt:4404:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4409:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4404:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4409:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4409:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4316*/ curfptr[4315];
-   /*_.INSTALL_METHOD__V4518*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4404:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4404:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4308*/ curfptr[4307];
+   /*_.INSTALL_METHOD__V4510*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4409:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4518*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4404:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4510*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4411:/ block");
+ MELT_LOCATION("warmelt-first.melt:4406:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4411:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:4406:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4519*/ curfptr[4483] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4511*/ curfptr[4475] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:4411:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4406:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4411:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4316*/ curfptr[4315];
-   MELT_LOCATION("warmelt-first.melt:4411:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4406:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4308*/ curfptr[4307];
+   MELT_LOCATION("warmelt-first.melt:4406:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBGOUT_NAMEDOBJECT_METHOD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4519*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V4317*/ curfptr[4316]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4511*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V4309*/ curfptr[4308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4411:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4519*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4406:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4511*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4433:/ block");
+ MELT_LOCATION("warmelt-first.melt:4428:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4433:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4428:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4433:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4433:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4320*/ curfptr[4319];
-   /*_.INSTALL_METHOD__V4520*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4428:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4428:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4312*/ curfptr[4311];
+   /*_.INSTALL_METHOD__V4512*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4433:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4520*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4428:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4512*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4442:/ block");
+ MELT_LOCATION("warmelt-first.melt:4437:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4442:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4437:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4442:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4442:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4324*/ curfptr[4323];
-   /*_.INSTALL_METHOD__V4521*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4437:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4437:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4316*/ curfptr[4315];
+   /*_.INSTALL_METHOD__V4513*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4442:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4521*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4437:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4513*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4461:/ block");
+ MELT_LOCATION("warmelt-first.melt:4456:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4461:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4456:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4461:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4461:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4322*/ curfptr[4321];
-   /*_.INSTALL_METHOD__V4522*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4456:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4456:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4314*/ curfptr[4313];
+   /*_.INSTALL_METHOD__V4514*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4461:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4522*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4456:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4514*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4470:/ block");
+ MELT_LOCATION("warmelt-first.melt:4465:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4470:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4465:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4470:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4470:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4326*/ curfptr[4325];
-   /*_.INSTALL_METHOD__V4523*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4465:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4465:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4318*/ curfptr[4317];
+   /*_.INSTALL_METHOD__V4515*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4470:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4523*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4465:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4515*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4479:/ block");
+ MELT_LOCATION("warmelt-first.melt:4474:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4479:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4474:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4479:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4479:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4330*/ curfptr[4329];
-   /*_.INSTALL_METHOD__V4524*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4474:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4474:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4322*/ curfptr[4321];
+   /*_.INSTALL_METHOD__V4516*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4479:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4524*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4474:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4516*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4498:/ block");
+ MELT_LOCATION("warmelt-first.melt:4493:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4498:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4493:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4498:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4498:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4328*/ curfptr[4327];
-   /*_.INSTALL_METHOD__V4525*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4493:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4493:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4320*/ curfptr[4319];
+   /*_.INSTALL_METHOD__V4517*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V251*/ curfptr[250]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4498:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4525*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4493:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4517*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4508:/ block");
+ MELT_LOCATION("warmelt-first.melt:4503:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4508:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4503:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4508:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4508:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4334*/ curfptr[4333];
-   /*_.INSTALL_METHOD__V4526*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4503:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4503:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4326*/ curfptr[4325];
+   /*_.INSTALL_METHOD__V4518*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4508:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4526*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4503:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4518*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4529:/ block");
+ MELT_LOCATION("warmelt-first.melt:4524:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4529:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4524:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4529:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4529:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4332*/ curfptr[4331];
-   /*_.INSTALL_METHOD__V4527*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4524:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4524:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4324*/ curfptr[4323];
+   /*_.INSTALL_METHOD__V4519*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4529:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4527*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4524:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4519*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4575:/ block");
+ MELT_LOCATION("warmelt-first.melt:4570:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4575:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4570:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4575:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4575:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4336*/ curfptr[4335];
-   /*_.INSTALL_METHOD__V4528*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4570:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4570:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4328*/ curfptr[4327];
+   /*_.INSTALL_METHOD__V4520*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4575:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4528*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4570:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4520*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4586:/ block");
+ MELT_LOCATION("warmelt-first.melt:4581:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4586:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4581:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4586:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4586:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4340*/ curfptr[4339];
-   /*_.INSTALL_METHOD__V4529*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4581:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4581:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4332*/ curfptr[4331];
+   /*_.INSTALL_METHOD__V4521*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4586:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4529*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4581:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4521*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4603:/ block");
+ MELT_LOCATION("warmelt-first.melt:4598:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4603:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4598:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4603:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4603:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4338*/ curfptr[4337];
-   /*_.INSTALL_METHOD__V4530*/ curfptr[4482] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4598:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4598:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4330*/ curfptr[4329];
+   /*_.INSTALL_METHOD__V4522*/ curfptr[4474] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4603:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4530*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4598:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4522*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4839:/ block");
+ MELT_LOCATION("warmelt-first.melt:4834:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4839:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4834:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4839:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:4839:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4353*/ curfptr[4352];
-   /*_.INSTALL_METHOD__V4531*/ curfptr[4483] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4834:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:4834:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4345*/ curfptr[4344];
+   /*_.INSTALL_METHOD__V4523*/ curfptr[4475] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4839:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4531*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4834:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4523*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4840:/ block");
+ MELT_LOCATION("warmelt-first.melt:4835:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4840:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4835:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4840:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:4840:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4353*/ curfptr[4352];
-   /*_.INSTALL_METHOD__V4532*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4246*/ curfptr[4245]), (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   MELT_LOCATION("warmelt-first.melt:4835:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:4835:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4345*/ curfptr[4344];
+   /*_.INSTALL_METHOD__V4524*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V4238*/ curfptr[4237]), (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4840:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V4532*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4835:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V4524*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4848:/ block");
+ MELT_LOCATION("warmelt-first.melt:4843:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4848:/ cond");
+  MELT_LOCATION("warmelt-first.melt:4843:/ cond");
   /*cond*/ if (
    /*quasi.cur.mod.env.cont cur.mod.env.cont : */
 /*_.CONTENV___V2*/ curfptr[1]) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4848:/ cond.then");
-  /*_.OR___V4533*/ curfptr[4482] = 
+  MELT_LOCATION("warmelt-first.melt:4843:/ cond.then");
+  /*_.OR___V4525*/ curfptr[4474] = 
     /*quasi.cur.mod.env.cont cur.mod.env.cont : */
 /*_.CONTENV___V2*/ curfptr[1];;
-  } else {MELT_LOCATION("warmelt-first.melt:4848:/ cond.else");
+  } else {MELT_LOCATION("warmelt-first.melt:4843:/ cond.else");
   
-   MELT_LOCATION("warmelt-first.melt:4848:/ block");
+   MELT_LOCATION("warmelt-first.melt:4843:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4848:/ getslot");
+    MELT_LOCATION("warmelt-first.melt:4843:/ getslot");
     { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V4534*/ curfptr[4483] = slot; };
+     melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V4526*/ curfptr[4475] = slot; };
     ;
-    MELT_LOCATION("warmelt-first.melt:4848:/ apply");
+    MELT_LOCATION("warmelt-first.melt:4843:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-first.melt:4848:/ apply.arg");
+     MELT_LOCATION("warmelt-first.melt:4843:/ apply.arg");
      argtab[0].bp_cstring =  "warmelt-first";
-     /*_.FUN___V4535*/ curfptr[4481] =  melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V4534*/ curfptr[4483]), (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     /*_.FUN___V4527*/ curfptr[4473] =  melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V4526*/ curfptr[4475]), (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    /*_.OR___V4533*/ curfptr[4482] = /*_.FUN___V4535*/ curfptr[4481];;
+    /*_.OR___V4525*/ curfptr[4474] = /*_.FUN___V4527*/ curfptr[4473];;
     /*epilog*/
-    MELT_LOCATION("warmelt-first.melt:4848:/ clear");
-    /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V4534*/ curfptr[4483] = 0 ;
-    MELT_LOCATION("warmelt-first.melt:4848:/ clear");
-    /*clear*/ /*_.FUN___V4535*/ curfptr[4481] = 0 ;}
+    MELT_LOCATION("warmelt-first.melt:4843:/ clear");
+    /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V4526*/ curfptr[4475] = 0 ;
+    MELT_LOCATION("warmelt-first.melt:4843:/ clear");
+    /*clear*/ /*_.FUN___V4527*/ curfptr[4473] = 0 ;}
    ;
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4848:/ block");
+  MELT_LOCATION("warmelt-first.melt:4843:/ block");
   /*com.block:upd.cur.mod.env.cont*/{
-   MELT_LOCATION("warmelt-first.melt:4848:/ putroutconst");
+   MELT_LOCATION("warmelt-first.melt:4843:/ putroutconst");
    /*putroutconst*/
-   melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4354*/ curfptr[4353])) == OBMAG_ROUTINE);
-   if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V4533*/ curfptr[4482]));
-   ((meltroutine_ptr_t)/*_.VALROUT___V4354*/ curfptr[4353])->tabval[0] = (melt_ptr_t)(/*_.OR___V4533*/ curfptr[4482]);
+   melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V4346*/ curfptr[4345])) == OBMAG_ROUTINE);
+   if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.#0", NULL != (/*_.OR___V4525*/ curfptr[4474]));
+   ((meltroutine_ptr_t)/*_.VALROUT___V4346*/ curfptr[4345])->tabval[0] = (melt_ptr_t)(/*_.OR___V4525*/ curfptr[4474]);
    ;
-   MELT_LOCATION("warmelt-first.melt:4848:/ touch");
+   MELT_LOCATION("warmelt-first.melt:4843:/ touch");
    /*touch:compobj_upd_mod_env_box*/
-   meltgc_touch(/*_.VALROUT___V4354*/ curfptr[4353]);
+   meltgc_touch(/*_.VALROUT___V4346*/ curfptr[4345]);
    ;
-   MELT_LOCATION("warmelt-first.melt:4848:/ compute");
-   /*_.CONTENV___V2*/ curfptr[1] = /*_.OR___V4533*/ curfptr[4482];;}/*com.end block:upd.cur.mod.env.cont*/
+   MELT_LOCATION("warmelt-first.melt:4843:/ compute");
+   /*_.CONTENV___V2*/ curfptr[1] = /*_.OR___V4525*/ curfptr[4474];;}/*com.end block:upd.cur.mod.env.cont*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4848:/ clear");
-  /*clear*/ /*_.OR___V4533*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4843:/ clear");
+  /*clear*/ /*_.OR___V4525*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4879:/ block");
+ MELT_LOCATION("warmelt-first.melt:4874:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4881:/ block");
+  MELT_LOCATION("warmelt-first.melt:4876:/ block");
   /*block*/{
-   /*_.F__V4537*/ curfptr[4481] = (/*nil*/NULL);;
-   /*_.D__V4538*/ curfptr[4482] = /*_.VALDATA___V3805*/ curfptr[3804];;
+   /*_.F__V4529*/ curfptr[4473] = (/*nil*/NULL);;
+   /*_.D__V4530*/ curfptr[4474] = /*_.VALDATA___V3797*/ curfptr[3796];;
    
    {
-   MELT_LOCATION("warmelt-first.melt:4885:/ locexp");
-    /*_.F__V4537*/ curfptr[4481] = meltgc_new_file(/*_.D__V4538*/ curfptr[4482], stdout) ; ;}
+   MELT_LOCATION("warmelt-first.melt:4880:/ locexp");
+    /*_.F__V4529*/ curfptr[4473] = meltgc_new_file(/*_.D__V4530*/ curfptr[4474], stdout) ; ;}
    ;
-   /*_.LET___V4536*/ curfptr[4483] = /*_.F__V4537*/ curfptr[4481];;
+   /*_.LET___V4528*/ curfptr[4475] = /*_.F__V4529*/ curfptr[4473];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4881:/ clear");
-   /*clear*/ /*_.F__V4537*/ curfptr[4481] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4881:/ clear");
-   /*clear*/ /*_.D__V4538*/ curfptr[4482] = 0 ;}
+   MELT_LOCATION("warmelt-first.melt:4876:/ clear");
+   /*clear*/ /*_.F__V4529*/ curfptr[4473] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4876:/ clear");
+   /*clear*/ /*_.D__V4530*/ curfptr[4474] = 0 ;}
   ;
-  MELT_LOCATION("warmelt-first.melt:4888:/ block");
+  MELT_LOCATION("warmelt-first.melt:4883:/ block");
   /*block*/{
-   /*_.F__V4540*/ curfptr[4482] = (/*nil*/NULL);;
-   /*_.D__V4541*/ curfptr[4540] = /*_.VALDATA___V3805*/ curfptr[3804];;
+   /*_.F__V4532*/ curfptr[4474] = (/*nil*/NULL);;
+   /*_.D__V4533*/ curfptr[4532] = /*_.VALDATA___V3797*/ curfptr[3796];;
    
    {
-   MELT_LOCATION("warmelt-first.melt:4892:/ locexp");
-    /*_.F__V4540*/ curfptr[4482] = meltgc_new_file(/*_.D__V4541*/ curfptr[4540], stderr) ; ;}
+   MELT_LOCATION("warmelt-first.melt:4887:/ locexp");
+    /*_.F__V4532*/ curfptr[4474] = meltgc_new_file(/*_.D__V4533*/ curfptr[4532], stderr) ; ;}
    ;
-   /*_.LET___V4539*/ curfptr[4481] = /*_.F__V4540*/ curfptr[4482];;
+   /*_.LET___V4531*/ curfptr[4473] = /*_.F__V4532*/ curfptr[4474];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4888:/ clear");
-   /*clear*/ /*_.F__V4540*/ curfptr[4482] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4888:/ clear");
-   /*clear*/ /*_.D__V4541*/ curfptr[4540] = 0 ;}
+   MELT_LOCATION("warmelt-first.melt:4883:/ clear");
+   /*clear*/ /*_.F__V4532*/ curfptr[4474] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4883:/ clear");
+   /*clear*/ /*_.D__V4533*/ curfptr[4532] = 0 ;}
   ;
-  MELT_LOCATION("warmelt-first.melt:4895:/ block");
+  MELT_LOCATION("warmelt-first.melt:4890:/ block");
   /*block*/{
-   /*_.F__V4543*/ curfptr[4540] = (/*nil*/NULL);;
-   /*_.D__V4544*/ curfptr[4543] = /*_.VALDATA___V3805*/ curfptr[3804];;
+   /*_.F__V4535*/ curfptr[4532] = (/*nil*/NULL);;
+   /*_.D__V4536*/ curfptr[4535] = /*_.VALDATA___V3797*/ curfptr[3796];;
    
    {
-   MELT_LOCATION("warmelt-first.melt:4900:/ locexp");
-    /*_.F__V4543*/ curfptr[4540] = meltgc_new_file(/*_.D__V4544*/ curfptr[4543], dump_file)	; ;}
+   MELT_LOCATION("warmelt-first.melt:4895:/ locexp");
+    /*_.F__V4535*/ curfptr[4532] = meltgc_new_file(/*_.D__V4536*/ curfptr[4535], dump_file)	; ;}
    ;
-   /*_.LET___V4542*/ curfptr[4482] = /*_.F__V4543*/ curfptr[4540];;
+   /*_.LET___V4534*/ curfptr[4474] = /*_.F__V4535*/ curfptr[4532];;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:4895:/ clear");
-   /*clear*/ /*_.F__V4543*/ curfptr[4540] = 0 ;
-   MELT_LOCATION("warmelt-first.melt:4895:/ clear");
-   /*clear*/ /*_.D__V4544*/ curfptr[4543] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-first.melt:4879:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010]), (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))) /*then*/ {
-  MELT_LOCATION("warmelt-first.melt:4879:/ cond.then");
-  MELT_LOCATION("warmelt-first.melt:4879:/ block");
+   MELT_LOCATION("warmelt-first.melt:4890:/ clear");
+   /*clear*/ /*_.F__V4535*/ curfptr[4532] = 0 ;
+   MELT_LOCATION("warmelt-first.melt:4890:/ clear");
+   /*clear*/ /*_.D__V4536*/ curfptr[4535] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-first.melt:4874:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002]), (melt_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))) /*then*/ {
+  MELT_LOCATION("warmelt-first.melt:4874:/ cond.then");
+  MELT_LOCATION("warmelt-first.melt:4874:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-first.melt:4879:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:4874:/ putslot");
     /*putslot*/
-    melt_assertmsg("putslot checkobj @SYSDATA_STDOUT", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.VALDATA___V4011*/ curfptr[4010]), (18), (/*_.LET___V4536*/ curfptr[4483]), "SYSDATA_STDOUT");
+    melt_assertmsg("putslot checkobj @SYSDATA_STDOUT", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.VALDATA___V4003*/ curfptr[4002]), (18), (/*_.LET___V4528*/ curfptr[4475]), "SYSDATA_STDOUT");
     ;
-    MELT_LOCATION("warmelt-first.melt:4879:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:4874:/ putslot");
     /*putslot*/
-    melt_assertmsg("putslot checkobj @SYSDATA_STDERR", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.VALDATA___V4011*/ curfptr[4010]), (19), (/*_.LET___V4539*/ curfptr[4481]), "SYSDATA_STDERR");
+    melt_assertmsg("putslot checkobj @SYSDATA_STDERR", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.VALDATA___V4003*/ curfptr[4002]), (19), (/*_.LET___V4531*/ curfptr[4473]), "SYSDATA_STDERR");
     ;
-    MELT_LOCATION("warmelt-first.melt:4879:/ putslot");
+    MELT_LOCATION("warmelt-first.melt:4874:/ putslot");
     /*putslot*/
-    melt_assertmsg("putslot checkobj @SYSDATA_DUMPFILE", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4011*/ curfptr[4010])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.VALDATA___V4011*/ curfptr[4010]), (20), (/*_.LET___V4542*/ curfptr[4482]), "SYSDATA_DUMPFILE");
+    melt_assertmsg("putslot checkobj @SYSDATA_DUMPFILE", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V4003*/ curfptr[4002])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.VALDATA___V4003*/ curfptr[4002]), (20), (/*_.LET___V4534*/ curfptr[4474]), "SYSDATA_DUMPFILE");
     ;
-    MELT_LOCATION("warmelt-first.melt:4879:/ touch");
-    meltgc_touch(/*_.VALDATA___V4011*/ curfptr[4010]);
+    MELT_LOCATION("warmelt-first.melt:4874:/ touch");
+    meltgc_touch(/*_.VALDATA___V4003*/ curfptr[4002]);
     ;
     /*epilog*/}
    ;
   } /*noelse*/
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4879:/ clear");
-  /*clear*/ /*_.LET___V4536*/ curfptr[4483] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4879:/ clear");
-  /*clear*/ /*_.LET___V4539*/ curfptr[4481] = 0 ;
-  MELT_LOCATION("warmelt-first.melt:4879:/ clear");
-  /*clear*/ /*_.LET___V4542*/ curfptr[4482] = 0 ;}
- 
- MELT_LOCATION("warmelt-first.melt:4907:/ block");
+  MELT_LOCATION("warmelt-first.melt:4874:/ clear");
+  /*clear*/ /*_.LET___V4528*/ curfptr[4475] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4874:/ clear");
+  /*clear*/ /*_.LET___V4531*/ curfptr[4473] = 0 ;
+  MELT_LOCATION("warmelt-first.melt:4874:/ clear");
+  /*clear*/ /*_.LET___V4534*/ curfptr[4474] = 0 ;}
+ 
+ MELT_LOCATION("warmelt-first.melt:4902:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4907:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:4902:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4545*/ curfptr[4540] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4537*/ curfptr[4532] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V451*/ curfptr[450];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ANY_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V449*/ curfptr[448]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V449*/ curfptr[448]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V454*/ curfptr[453];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : BINDER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V457*/ curfptr[456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V457*/ curfptr[456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V139*/ curfptr[138];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ANY_MATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V142*/ curfptr[141];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AMATCH_IN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V144*/ curfptr[143];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AMATCH_MATCHBIND*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V146*/ curfptr[145];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AMATCH_OUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V113*/ curfptr[112];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CITERATOR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V111*/ curfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V111*/ curfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V116*/ curfptr[115];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CITER_START_FORMALS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V127*/ curfptr[126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V127*/ curfptr[126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V118*/ curfptr[117];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CITER_STATE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V129*/ curfptr[128]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V129*/ curfptr[128]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V120*/ curfptr[119];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CITER_BODY_FORMALS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V122*/ curfptr[121];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CITER_EXPBEFORE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V124*/ curfptr[123];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CITER_EXPAFTER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V541*/ curfptr[540];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CITERATOR_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V544*/ curfptr[543];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CBIND_CITERDEF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V549*/ curfptr[548]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V546*/ curfptr[545];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CBIND_CITERATOR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V551*/ curfptr[550]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V63*/ curfptr[62];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CLASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V66*/ curfptr[65];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ANCESTORS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V68*/ curfptr[67];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIELDS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V70*/ curfptr[69];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V565*/ curfptr[564];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CLASS_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V568*/ curfptr[567];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CBIND_DEFCLASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V570*/ curfptr[569];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CBIND_CLASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V241*/ curfptr[240];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CLONED_SYMBOL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V244*/ curfptr[243];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CSYM_URANK*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V25*/ curfptr[24];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CONTAINER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V28*/ curfptr[27];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CONTAINER_VALUE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V603*/ curfptr[602];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CMATCHER_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V606*/ curfptr[605];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CMBIND_MATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V157*/ curfptr[156];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CMATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V155*/ curfptr[154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V155*/ curfptr[154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V160*/ curfptr[159];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_STATE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V169*/ curfptr[168]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V162*/ curfptr[161];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_EXPTEST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V164*/ curfptr[163];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_EXPFILL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V166*/ curfptr[165];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CMATCH_EXPOPER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V175*/ curfptr[174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V175*/ curfptr[174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V257*/ curfptr[256];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_CTYPE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V255*/ curfptr[254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V255*/ curfptr[254]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V260*/ curfptr[259];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_KEYWORD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V279*/ curfptr[278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V262*/ curfptr[261];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_CNAME*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V281*/ curfptr[280]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V264*/ curfptr[263];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PARCHAR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V283*/ curfptr[282]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V283*/ curfptr[282]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V266*/ curfptr[265];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PARSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V268*/ curfptr[267];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_ARGFIELD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V287*/ curfptr[286]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V287*/ curfptr[286]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V270*/ curfptr[269];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_RESFIELD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V289*/ curfptr[288]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V289*/ curfptr[288]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V272*/ curfptr[271];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_MARKER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V274*/ curfptr[273];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_DESCR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V276*/ curfptr[275];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_ALTKEYWORD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V405*/ curfptr[404];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DEBUG_INFORMATION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V408*/ curfptr[407];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBGI_OUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V410*/ curfptr[409];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBGI_OCCMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V412*/ curfptr[411];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBGI_MAXDEPTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V441*/ curfptr[440];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DESCRIBED_ENVIRONMENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V439*/ curfptr[438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V439*/ curfptr[438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V444*/ curfptr[443];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DENV_DESCR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V447*/ curfptr[446]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V447*/ curfptr[446]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V45*/ curfptr[44];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_DISCRIMINANT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V43*/ curfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V43*/ curfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V48*/ curfptr[47];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISC_METHODICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V50*/ curfptr[49];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISC_SENDER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V52*/ curfptr[51];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISC_SUPER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V423*/ curfptr[422];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ENVIRONMENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V421*/ curfptr[420]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V421*/ curfptr[420]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V426*/ curfptr[425];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ENV_BIND*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V428*/ curfptr[427];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ENV_PREV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V430*/ curfptr[429];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ENV_PROC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V461*/ curfptr[460];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_EXPORTED_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V81*/ curfptr[80];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIELD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V84*/ curfptr[83];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FLD_OWNCLASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V86*/ curfptr[85];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FLD_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V579*/ curfptr[578];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIELD_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V582*/ curfptr[581];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FLBIND_CLABIND*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V584*/ curfptr[583];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FLBIND_FIELD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V507*/ curfptr[506];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FIXED_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V510*/ curfptr[509];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FIXBIND_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V497*/ curfptr[496];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FORMAL_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V495*/ curfptr[494]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V500*/ curfptr[499];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FBIND_TYPE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V555*/ curfptr[554];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FUNCTION_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V558*/ curfptr[557];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FUBIND_DEFUN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V179*/ curfptr[178];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FUNMATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V182*/ curfptr[181];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FMATCH_MATCHF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V184*/ curfptr[183];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FMATCH_APPLYF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V186*/ curfptr[185];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FMATCH_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V613*/ curfptr[612];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_FUNMATCHER_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V616*/ curfptr[615];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FMBIND_FUNMATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V618*/ curfptr[617];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FMBIND_DEFUNMATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V851*/ curfptr[850];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V843*/ curfptr[842];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_C_GENERATION_CONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V849*/ curfptr[848]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V854*/ curfptr[853];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V846*/ curfptr[845];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_OBJROUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V865*/ curfptr[864]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V848*/ curfptr[847];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_LOCMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V867*/ curfptr[866]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V858*/ curfptr[857];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V850*/ curfptr[849];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_FREEPTRLIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V877*/ curfptr[876]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ curfptr[859];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V852*/ curfptr[851];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_FREELONGLIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V879*/ curfptr[878]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V871*/ curfptr[870]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V862*/ curfptr[861];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V854*/ curfptr[853];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_FREEOTHERMAPS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V864*/ curfptr[863];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V856*/ curfptr[855];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_RETLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V866*/ curfptr[865];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V858*/ curfptr[857];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_COMPICACHE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V877*/ curfptr[876]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V868*/ curfptr[867];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V860*/ curfptr[859];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_MODULCONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V879*/ curfptr[878]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V870*/ curfptr[869];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V862*/ curfptr[861];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GNCX_MATCHMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V889*/ curfptr[888]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V713*/ curfptr[712];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_GIMPLE_PASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V675*/ curfptr[674];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_PASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V678*/ curfptr[677];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_GATE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V680*/ curfptr[679];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_EXEC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V682*/ curfptr[681];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V684*/ curfptr[683];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_PROPERTIES_REQUIRED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V686*/ curfptr[685];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_PROPERTIES_PROVIDED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V688*/ curfptr[687];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_PROPERTIES_DESTROYED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V690*/ curfptr[689];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_TODO_FLAGS_START*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V707*/ curfptr[706]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V692*/ curfptr[691];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GCCPASS_TODO_FLAGS_FINISH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V719*/ curfptr[718];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_RTL_PASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V717*/ curfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V717*/ curfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V725*/ curfptr[724];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GCC_SIMPLE_IPA_PASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V723*/ curfptr[722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V723*/ curfptr[722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V893*/ curfptr[892];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V885*/ curfptr[884];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INITIAL_GENERATION_CONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V891*/ curfptr[890]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V896*/ curfptr[895];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V888*/ curfptr[887];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_PREVENVLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V898*/ curfptr[897];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V890*/ curfptr[889];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_CONTENVLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V899*/ curfptr[898]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V900*/ curfptr[899];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V892*/ curfptr[891];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_PROCURMODENVLIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V901*/ curfptr[900]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V902*/ curfptr[901];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V894*/ curfptr[893];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IGNCX_IMPORTMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V903*/ curfptr[902]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V593*/ curfptr[592];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_INSTANCE_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V596*/ curfptr[595];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IBIND_ICLASS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V251*/ curfptr[250];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_KEYWORD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V657*/ curfptr[656];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LABEL_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V660*/ curfptr[659];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LABIND_LOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V662*/ curfptr[661];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LABIND_CLONSY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V664*/ curfptr[663];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LABIND_RES*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V627*/ curfptr[626];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LET_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V630*/ curfptr[629];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LETBIND_TYPE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V632*/ curfptr[631];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LETBIND_EXPR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V634*/ curfptr[633];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LETBIND_LOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V645*/ curfptr[644];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LETREC_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V197*/ curfptr[196];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_LOCATED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V200*/ curfptr[199];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LOCA_LOCATION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V467*/ curfptr[466];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MACRO_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V470*/ curfptr[469];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MBIND_EXPANSER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V473*/ curfptr[472]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V731*/ curfptr[730];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MELT_MODE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V734*/ curfptr[733];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MELTMODE_HELP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V741*/ curfptr[740]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V741*/ curfptr[740]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V736*/ curfptr[735];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MELTMODE_FUN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V743*/ curfptr[742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V743*/ curfptr[742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V738*/ curfptr[737];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MELTMODE_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V755*/ curfptr[754];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MODULE_CONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V758*/ curfptr[757];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MOCX_MODULENAME*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V760*/ curfptr[759];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MOCX_EXPFIELDICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V762*/ curfptr[761];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MOCX_EXPCLASSDICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V764*/ curfptr[763];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MOCX_INITIALENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V766*/ curfptr[765];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &
-   /*quasi.cur.mod.env.cont norm.exp.val : MOCX_FUNCOUNT*/
-/*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V768*/ curfptr[767];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &
-   /*quasi.cur.mod.env.cont norm.exp.val : MOCX_FILETUPLE*/
-/*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V781*/ curfptr[780]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V35*/ curfptr[34];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NAMED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V38*/ curfptr[37];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NAMED_NAME*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V41*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V41*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V785*/ curfptr[784];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V777*/ curfptr[776];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMALIZATION_CONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V788*/ curfptr[787];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V780*/ curfptr[779];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_INITPROC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V811*/ curfptr[810]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V790*/ curfptr[789];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V782*/ curfptr[781];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_PROCLIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V813*/ curfptr[812]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V792*/ curfptr[791];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V784*/ curfptr[783];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_DATALIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V794*/ curfptr[793];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V786*/ curfptr[785];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_VALUELIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V796*/ curfptr[795];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V788*/ curfptr[787];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_SYMBMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V827*/ curfptr[826]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V798*/ curfptr[797];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V790*/ curfptr[789];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_KEYWMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V800*/ curfptr[799];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V792*/ curfptr[791];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_SYMBCACHEMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V802*/ curfptr[801];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V794*/ curfptr[793];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_PREDEFMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V833*/ curfptr[832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V804*/ curfptr[803];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V796*/ curfptr[795];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_VALMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V827*/ curfptr[826]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V806*/ curfptr[805];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V798*/ curfptr[797];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_VALBINDMAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V808*/ curfptr[807];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V800*/ curfptr[799];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_CURPROC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V810*/ curfptr[809];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V802*/ curfptr[801];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_MODULCONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V833*/ curfptr[832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V812*/ curfptr[811];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V804*/ curfptr[803];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_QDATCURMODENVBOX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V814*/ curfptr[813];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V806*/ curfptr[805];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_QDATPARMODENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V845*/ curfptr[844]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V816*/ curfptr[815];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V808*/ curfptr[807];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NCTX_PROCURMODENVLIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V651*/ curfptr[650];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NORMAL_LET_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V915*/ curfptr[914];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V907*/ curfptr[906];
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_GENERATED_C_CODE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V477*/ curfptr[476];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATMACRO_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V480*/ curfptr[479];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PATBIND_EXPANSER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V483*/ curfptr[482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V483*/ curfptr[482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V95*/ curfptr[94];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PRIMITIVE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V98*/ curfptr[97];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PRIM_FORMALS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V105*/ curfptr[104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V105*/ curfptr[104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V100*/ curfptr[99];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PRIM_TYPE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V107*/ curfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V107*/ curfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V102*/ curfptr[101];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PRIM_EXPANSION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V109*/ curfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V109*/ curfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V527*/ curfptr[526];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PRIMITIVE_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V530*/ curfptr[529];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PBIND_PRIMDEF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V532*/ curfptr[531];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PBIND_PRIMITIVE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PROPED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V18*/ curfptr[17];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PROP_TABLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V9*/ curfptr[8];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_ROOT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V7*/ curfptr[6]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V7*/ curfptr[6]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V217*/ curfptr[216];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SELECTOR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V215*/ curfptr[214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V215*/ curfptr[214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V220*/ curfptr[219];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SEL_SIGNATURE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V222*/ curfptr[221];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SEL_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V517*/ curfptr[516];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SELECTOR_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V515*/ curfptr[514]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V515*/ curfptr[514]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V520*/ curfptr[519];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SBIND_SELECTORDEF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V207*/ curfptr[206];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SEXPR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V210*/ curfptr[209];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SEXP_CONTENTS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V749*/ curfptr[748];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V747*/ curfptr[746]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V747*/ curfptr[746]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V231*/ curfptr[230];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SYMBOL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V234*/ curfptr[233];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYMB_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V299*/ curfptr[298];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SYSTEM_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V297*/ curfptr[296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V297*/ curfptr[296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V302*/ curfptr[301];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_MODE_DICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V304*/ curfptr[303];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_CONT_FRESH_ENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V355*/ curfptr[354]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V306*/ curfptr[305];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_VALUE_EXPORTER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V308*/ curfptr[307];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_MACRO_EXPORTER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V310*/ curfptr[309];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_SYMBOLDICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V361*/ curfptr[360]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V361*/ curfptr[360]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V312*/ curfptr[311];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_KEYWDICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V314*/ curfptr[313];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_ADDSYMBOL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V365*/ curfptr[364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V316*/ curfptr[315];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_ADDKEYW*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V367*/ curfptr[366]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V318*/ curfptr[317];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_INTERNSYMBOL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V320*/ curfptr[319];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_INTERNKEYW*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V322*/ curfptr[321];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_VALUE_IMPORTER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V324*/ curfptr[323];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_PASS_DICT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V326*/ curfptr[325];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_EXIT_FINALIZER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V328*/ curfptr[327];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_MELTATTR_DEFINER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V330*/ curfptr[329];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_PATMACRO_EXPORTER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V381*/ curfptr[380]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V381*/ curfptr[380]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V332*/ curfptr[331];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_DEBUGMSG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V383*/ curfptr[382]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V383*/ curfptr[382]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V334*/ curfptr[333];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_STDOUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V385*/ curfptr[384]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V385*/ curfptr[384]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V336*/ curfptr[335];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_STDERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V387*/ curfptr[386]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V387*/ curfptr[386]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V338*/ curfptr[337];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_DUMPFILE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V340*/ curfptr[339];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_UNIT_STARTER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V391*/ curfptr[390]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V391*/ curfptr[390]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V342*/ curfptr[341];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA_UNIT_FINISHER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V344*/ curfptr[343];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE1*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V346*/ curfptr[345];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE2*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V397*/ curfptr[396]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V397*/ curfptr[396]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V348*/ curfptr[347];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE3*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V399*/ curfptr[398]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V350*/ curfptr[349];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SYSDATA___SPARE4*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V401*/ curfptr[400]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V487*/ curfptr[486];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_VALUE_BINDING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4907:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4902:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V490*/ curfptr[489];
-   MELT_LOCATION("warmelt-first.melt:4907:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4902:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : VBIND_VALUE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4545*/ curfptr[4540]), (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4537*/ curfptr[4532]), (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4907:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4545*/ curfptr[4540] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4902:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4537*/ curfptr[4532] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:4968:/ block");
+ MELT_LOCATION("warmelt-first.melt:4963:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:4968:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:4963:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4546*/ curfptr[4543] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4538*/ curfptr[4535] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1098*/ curfptr[1097];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1090*/ curfptr[1089];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : !=*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1096*/ curfptr[1095]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1289*/ curfptr[1288];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1281*/ curfptr[1280];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : !=I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1395*/ curfptr[1394];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1387*/ curfptr[1386];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : %I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1393*/ curfptr[1392]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1385*/ curfptr[1384]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1417*/ curfptr[1416];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1409*/ curfptr[1408];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : %IRAW*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1415*/ curfptr[1414]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1322*/ curfptr[1321];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1314*/ curfptr[1313];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : *I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1320*/ curfptr[1319]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1300*/ curfptr[1299];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1292*/ curfptr[1291];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : +I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1311*/ curfptr[1310];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1303*/ curfptr[1302];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : -I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1309*/ curfptr[1308]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1301*/ curfptr[1300]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1384*/ curfptr[1383];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1376*/ curfptr[1375];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : /I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1382*/ curfptr[1381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1374*/ curfptr[1373]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1406*/ curfptr[1405];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1398*/ curfptr[1397];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : /IRAW*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1245*/ curfptr[1244];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1237*/ curfptr[1236];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : <=I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1234*/ curfptr[1233];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1226*/ curfptr[1225];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : <I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1232*/ curfptr[1231]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1224*/ curfptr[1223]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1083*/ curfptr[1082];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1075*/ curfptr[1074];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ==*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1256*/ curfptr[1255];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1248*/ curfptr[1247];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ==I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1246*/ curfptr[1245]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2195*/ curfptr[2194];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2187*/ curfptr[2186];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : !=S*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2193*/ curfptr[2192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2180*/ curfptr[2179];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2172*/ curfptr[2171];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ==S*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2170*/ curfptr[2169]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1278*/ curfptr[1277];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1270*/ curfptr[1269];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : >=I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1267*/ curfptr[1266];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1259*/ curfptr[1258];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : >I*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2103*/ curfptr[2102];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2095*/ curfptr[2094];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CCOMCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2101*/ curfptr[2100]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2093*/ curfptr[2092]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2092*/ curfptr[2091];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2084*/ curfptr[2083];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CCOMSTRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2090*/ curfptr[2089]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2082*/ curfptr[2081]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2081*/ curfptr[2080];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2073*/ curfptr[2072];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CCOMSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2079*/ curfptr[2078]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2071*/ curfptr[2070]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2070*/ curfptr[2069];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2062*/ curfptr[2061];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CENCSTRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2068*/ curfptr[2067]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2060*/ curfptr[2059]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2059*/ curfptr[2058];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2051*/ curfptr[2050];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CENCSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2057*/ curfptr[2056]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2049*/ curfptr[2048]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2114*/ curfptr[2113];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2106*/ curfptr[2105];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CIDENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2112*/ curfptr[2111]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2104*/ curfptr[2103]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2125*/ curfptr[2124];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2117*/ curfptr[2116];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_CIDENTPREFIX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2123*/ curfptr[2122]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2115*/ curfptr[2114]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2026*/ curfptr[2025];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2018*/ curfptr[2017];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_INDENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2024*/ curfptr[2023]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2037*/ curfptr[2036];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2029*/ curfptr[2028];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_INDENTNL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2035*/ curfptr[2034]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2027*/ curfptr[2026]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2138*/ curfptr[2137];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2130*/ curfptr[2129];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_LONGDEC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2136*/ curfptr[2135]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2149*/ curfptr[2148];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2141*/ curfptr[2140];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_LONGHEX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2147*/ curfptr[2146]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2139*/ curfptr[2138]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2014*/ curfptr[2013];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2006*/ curfptr[2005];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_MIXLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2012*/ curfptr[2011]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2004*/ curfptr[2003]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2160*/ curfptr[2159];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2152*/ curfptr[2151];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_ROUTINEDESCR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2158*/ curfptr[2157]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2150*/ curfptr[2149]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2048*/ curfptr[2047];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2040*/ curfptr[2039];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_SBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2046*/ curfptr[2045]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2038*/ curfptr[2037]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1990*/ curfptr[1989];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1982*/ curfptr[1981];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_STRCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1988*/ curfptr[1987]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2003*/ curfptr[2002];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1995*/ curfptr[1994];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2OUT_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2001*/ curfptr[2000]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1888*/ curfptr[1887];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1880*/ curfptr[1879];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CCOMCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1886*/ curfptr[1885]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1878*/ curfptr[1877]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1877*/ curfptr[1876];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1869*/ curfptr[1868];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CCOMSTRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1875*/ curfptr[1874]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1867*/ curfptr[1866]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1866*/ curfptr[1865];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1858*/ curfptr[1857];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CCOMSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1864*/ curfptr[1863]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1856*/ curfptr[1855]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1855*/ curfptr[1854];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1847*/ curfptr[1846];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CENCSTRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1853*/ curfptr[1852]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1845*/ curfptr[1844]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1844*/ curfptr[1843];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1836*/ curfptr[1835];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CENCSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1842*/ curfptr[1841]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1901*/ curfptr[1900];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1893*/ curfptr[1892];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CIDENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1899*/ curfptr[1898]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1912*/ curfptr[1911];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1904*/ curfptr[1903];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_CIDENTPREFIX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1910*/ curfptr[1909]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1902*/ curfptr[1901]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1809*/ curfptr[1808];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1801*/ curfptr[1800];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_INDENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1807*/ curfptr[1806]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1820*/ curfptr[1819];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1812*/ curfptr[1811];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_INDENTNL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1818*/ curfptr[1817]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1810*/ curfptr[1809]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1927*/ curfptr[1926];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1919*/ curfptr[1918];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_LONGDEC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1925*/ curfptr[1924]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1940*/ curfptr[1939];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1932*/ curfptr[1931];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_LONGHEX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1938*/ curfptr[1937]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1769*/ curfptr[1768];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1761*/ curfptr[1760];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_MIXLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1767*/ curfptr[1766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1759*/ curfptr[1758]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1951*/ curfptr[1950];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1943*/ curfptr[1942];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_ROUTINEDESCR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1949*/ curfptr[1948]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1941*/ curfptr[1940]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1831*/ curfptr[1830];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1823*/ curfptr[1822];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_SBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1829*/ curfptr[1828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1821*/ curfptr[1820]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1784*/ curfptr[1783];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1776*/ curfptr[1775];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_SHORT_MIXLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1782*/ curfptr[1781]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1774*/ curfptr[1773]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1796*/ curfptr[1795];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1788*/ curfptr[1787];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_TEXI_MIXLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1794*/ curfptr[1793]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1747*/ curfptr[1746];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1739*/ curfptr[1738];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_STRCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1745*/ curfptr[1744]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1737*/ curfptr[1736]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1758*/ curfptr[1757];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1750*/ curfptr[1749];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ADD2SBUF_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1756*/ curfptr[1755]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1748*/ curfptr[1747]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1333*/ curfptr[1332];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1325*/ curfptr[1324];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ANDI*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1331*/ curfptr[1330]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1323*/ curfptr[1322]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1195*/ curfptr[1194];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1187*/ curfptr[1186];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ASSERT_FAILED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3218*/ curfptr[3217];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3210*/ curfptr[3209];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : BOX_CONTENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3216*/ curfptr[3215]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3208*/ curfptr[3207]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3227*/ curfptr[3226];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3219*/ curfptr[3218];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : BOX_PUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3225*/ curfptr[3224]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3217*/ curfptr[3216]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1225*/ curfptr[1224];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CBREAK_MSG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1216*/ curfptr[1215];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1208*/ curfptr[1207];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CHECKCALLSTACK_MSG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1214*/ curfptr[1213]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1682*/ curfptr[1681];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1674*/ curfptr[1673];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CHECKVAL_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1680*/ curfptr[1679]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1672*/ curfptr[1671]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3152*/ curfptr[3151];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3144*/ curfptr[3143];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_NTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3150*/ curfptr[3149]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3142*/ curfptr[3141]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3143*/ curfptr[3142];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3135*/ curfptr[3134];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_ROUTINE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3141*/ curfptr[3140]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3133*/ curfptr[3132]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3134*/ curfptr[3133];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3126*/ curfptr[3125];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_SIZE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3132*/ curfptr[3131]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3124*/ curfptr[3123]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1186*/ curfptr[1185];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1178*/ curfptr[1177];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CREATE_KEYWORDSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1168*/ curfptr[1167];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1160*/ curfptr[1159];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CREATE_SYMBOLSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1009*/ curfptr[1008];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1001*/ curfptr[1000];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCRIM*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V999*/ curfptr[998]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1693*/ curfptr[1692];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1685*/ curfptr[1684];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DEBUGCSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1691*/ curfptr[1690]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1683*/ curfptr[1682]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3563*/ curfptr[3562];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3555*/ curfptr[3554];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ERROR_PLAIN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3561*/ curfptr[3560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3553*/ curfptr[3552]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3548*/ curfptr[3547];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3540*/ curfptr[3539];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ERROR_STRV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3538*/ curfptr[3537]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3618*/ curfptr[3617];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3610*/ curfptr[3609];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ERRORMSG_PLAIN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3616*/ curfptr[3615]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3608*/ curfptr[3607]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3627*/ curfptr[3626];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3619*/ curfptr[3618];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ERRORMSG_STRV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3625*/ curfptr[3624]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3617*/ curfptr[3616]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1148*/ curfptr[1147];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1140*/ curfptr[1139];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FULL_GARBCOLL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2368*/ curfptr[2367];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2360*/ curfptr[2359];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GENERATE_MELT_MODULE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V998*/ curfptr[997];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V990*/ curfptr[989];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GET_GLOBPREDEF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V996*/ curfptr[995]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1018*/ curfptr[1017];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1010*/ curfptr[1009];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GET_INT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1177*/ curfptr[1176];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1169*/ curfptr[1168];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GET_KEYWORDSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1175*/ curfptr[1174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1167*/ curfptr[1166]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1157*/ curfptr[1156];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1149*/ curfptr[1148];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : GET_SYMBOLSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1147*/ curfptr[1146]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V921*/ curfptr[920];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V913*/ curfptr[912];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IGNORE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3651*/ curfptr[3650];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3643*/ curfptr[3642];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INFORM_PLAIN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3649*/ curfptr[3648]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3638*/ curfptr[3637];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3630*/ curfptr[3629];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INFORM_STRV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3636*/ curfptr[3635]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3628*/ curfptr[3627]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3682*/ curfptr[3681];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3674*/ curfptr[3673];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INFORMSG_LONG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3680*/ curfptr[3679]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3672*/ curfptr[3671]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3673*/ curfptr[3672];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3665*/ curfptr[3664];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INFORMSG_PLAIN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3671*/ curfptr[3670]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3663*/ curfptr[3662]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3662*/ curfptr[3661];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3654*/ curfptr[3653];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INFORMSG_STRV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3660*/ curfptr[3659]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3652*/ curfptr[3651]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V954*/ curfptr[953];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V946*/ curfptr[945];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_A*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3207*/ curfptr[3206];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3199*/ curfptr[3198];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_BOX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3205*/ curfptr[3204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3197*/ curfptr[3196]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3123*/ curfptr[3122];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3115*/ curfptr[3114];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_CLOSURE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3121*/ curfptr[3120]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3113*/ curfptr[3112]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3163*/ curfptr[3162];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3155*/ curfptr[3154];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_INTEGERBOX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3161*/ curfptr[3160]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3153*/ curfptr[3152]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3251*/ curfptr[3250];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3243*/ curfptr[3242];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_LIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3249*/ curfptr[3248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3262*/ curfptr[3261];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3254*/ curfptr[3253];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_LIST_OR_NULL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3260*/ curfptr[3259]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3252*/ curfptr[3251]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2742*/ curfptr[2741];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2734*/ curfptr[2733];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MAPOBJECT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2740*/ curfptr[2739]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2732*/ curfptr[2731]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2890*/ curfptr[2889];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2882*/ curfptr[2881];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MAPSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2888*/ curfptr[2887]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2880*/ curfptr[2879]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3502*/ curfptr[3501];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3494*/ curfptr[3493];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MIXBIGINT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3500*/ curfptr[3499]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3492*/ curfptr[3491]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3407*/ curfptr[3406];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3399*/ curfptr[3398];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MIXINT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3405*/ curfptr[3404]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3440*/ curfptr[3439];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3432*/ curfptr[3431];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MIXLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3438*/ curfptr[3437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2435*/ curfptr[2434];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2427*/ curfptr[2426];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2433*/ curfptr[2432]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2446*/ curfptr[2445];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2438*/ curfptr[2437];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_MULTIPLE_OR_NULL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2444*/ curfptr[2443]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2436*/ curfptr[2435]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V969*/ curfptr[968];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V961*/ curfptr[960];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_NOT_A*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V989*/ curfptr[988];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V981*/ curfptr[980];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_NOT_OBJECT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V980*/ curfptr[979];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V972*/ curfptr[971];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_OBJECT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V978*/ curfptr[977]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3341*/ curfptr[3340];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3333*/ curfptr[3332];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_PAIR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3339*/ curfptr[3338]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3331*/ curfptr[3330]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3083*/ curfptr[3082];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3075*/ curfptr[3074];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_ROUTINE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3081*/ curfptr[3080]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3073*/ curfptr[3072]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1729*/ curfptr[1728];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1721*/ curfptr[1720];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_STRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1727*/ curfptr[1726]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1719*/ curfptr[1718]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2171*/ curfptr[2170];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2163*/ curfptr[2162];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2169*/ curfptr[2168]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2161*/ curfptr[2160]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2230*/ curfptr[2229];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2222*/ curfptr[2221];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : IS_STRINGCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2228*/ curfptr[2227]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2220*/ curfptr[2219]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3299*/ curfptr[3298];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3291*/ curfptr[3290];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_APPEND*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3297*/ curfptr[3296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3289*/ curfptr[3288]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3272*/ curfptr[3271];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3264*/ curfptr[3263];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_FIRST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3270*/ curfptr[3269]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4156*/ curfptr[4155];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4148*/ curfptr[4147];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_FIND*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V4356*/ curfptr[4355]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V4348*/ curfptr[4347]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3281*/ curfptr[3280];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3273*/ curfptr[3272];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_LAST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3279*/ curfptr[3278]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3271*/ curfptr[3270]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3290*/ curfptr[3289];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3282*/ curfptr[3281];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_LENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3288*/ curfptr[3287]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3280*/ curfptr[3279]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3323*/ curfptr[3322];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3315*/ curfptr[3314];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_POPFIRST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3321*/ curfptr[3320]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3313*/ curfptr[3312]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3312*/ curfptr[3311];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3304*/ curfptr[3303];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_PREPEND*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3310*/ curfptr[3309]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2355*/ curfptr[2354];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2347*/ curfptr[2346];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LOAD_MELT_MODULE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2353*/ curfptr[2352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1659*/ curfptr[1658];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1651*/ curfptr[1650];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LONGBACKTRACE_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1657*/ curfptr[1656]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3238*/ curfptr[3237];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3230*/ curfptr[3229];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_BOX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3236*/ curfptr[3235]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3228*/ curfptr[3227]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3174*/ curfptr[3173];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3166*/ curfptr[3165];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_INTEGERBOX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3172*/ curfptr[3171]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3164*/ curfptr[3163]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3332*/ curfptr[3331];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3324*/ curfptr[3323];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_LIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3330*/ curfptr[3329]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3322*/ curfptr[3321]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2806*/ curfptr[2805];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2798*/ curfptr[2797];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MAPOBJECT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2804*/ curfptr[2803]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2928*/ curfptr[2927];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2920*/ curfptr[2919];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MAPSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2926*/ curfptr[2925]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2918*/ curfptr[2917]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2456*/ curfptr[2455];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2448*/ curfptr[2447];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2454*/ curfptr[2453]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3427*/ curfptr[3426];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3419*/ curfptr[3418];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MIXINT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3425*/ curfptr[3424]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3417*/ curfptr[3416]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3485*/ curfptr[3484];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3477*/ curfptr[3476];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_MIXLOC*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3475*/ curfptr[3474]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3392*/ curfptr[3391];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3384*/ curfptr[3383];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_PAIR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3390*/ curfptr[3389]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3382*/ curfptr[3381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1711*/ curfptr[1710];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1703*/ curfptr[1702];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_STRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1709*/ curfptr[1708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1701*/ curfptr[1700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2206*/ curfptr[2205];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2198*/ curfptr[2197];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2204*/ curfptr[2203]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2196*/ curfptr[2195]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2329*/ curfptr[2328];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2321*/ curfptr[2320];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_STRING_NAKEDBASENAME*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2327*/ curfptr[2326]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2319*/ curfptr[2318]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2340*/ curfptr[2339];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2332*/ curfptr[2331];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_STRING_TEMPNAME_SUFFIXED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2338*/ curfptr[2337]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2330*/ curfptr[2329]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2219*/ curfptr[2218];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2211*/ curfptr[2210];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_STRINGCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2217*/ curfptr[2216]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2469*/ curfptr[2468];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2461*/ curfptr[2460];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE1*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2467*/ curfptr[2466]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2482*/ curfptr[2481];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2474*/ curfptr[2473];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE2*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2480*/ curfptr[2479]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2497*/ curfptr[2496];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2489*/ curfptr[2488];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE3*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2514*/ curfptr[2513];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2506*/ curfptr[2505];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE4*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2504*/ curfptr[2503]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2533*/ curfptr[2532];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2525*/ curfptr[2524];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE5*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2523*/ curfptr[2522]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2554*/ curfptr[2553];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2546*/ curfptr[2545];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE6*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2544*/ curfptr[2543]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2577*/ curfptr[2576];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2569*/ curfptr[2568];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAKE_TUPLE7*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2567*/ curfptr[2566]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2762*/ curfptr[2761];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2754*/ curfptr[2753];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_COUNT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2760*/ curfptr[2759]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2752*/ curfptr[2751]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2793*/ curfptr[2792];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2785*/ curfptr[2784];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_GET*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2791*/ curfptr[2790]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2783*/ curfptr[2782]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2771*/ curfptr[2770];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2763*/ curfptr[2762];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_NTH_ATTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2769*/ curfptr[2768]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2761*/ curfptr[2760]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2782*/ curfptr[2781];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2774*/ curfptr[2773];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_NTH_VAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2780*/ curfptr[2779]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2772*/ curfptr[2771]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2819*/ curfptr[2818];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2811*/ curfptr[2810];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_PUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2834*/ curfptr[2833];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2826*/ curfptr[2825];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_REMOVE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2832*/ curfptr[2831]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2824*/ curfptr[2823]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2753*/ curfptr[2752];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2745*/ curfptr[2744];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_SIZE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2751*/ curfptr[2750]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2743*/ curfptr[2742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2908*/ curfptr[2907];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2900*/ curfptr[2899];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_COUNT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2906*/ curfptr[2905]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2898*/ curfptr[2897]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2967*/ curfptr[2966];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2959*/ curfptr[2958];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_GETSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2965*/ curfptr[2964]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2957*/ curfptr[2956]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3000*/ curfptr[2999];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2992*/ curfptr[2991];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_NTH_ATTRSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2990*/ curfptr[2989]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3015*/ curfptr[3014];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3007*/ curfptr[3006];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_NTH_VAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3013*/ curfptr[3012]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3005*/ curfptr[3004]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2952*/ curfptr[2951];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2944*/ curfptr[2943];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_PUTSTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2917*/ curfptr[2916];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2909*/ curfptr[2908];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_RAWGET*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2915*/ curfptr[2914]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2907*/ curfptr[2906]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2939*/ curfptr[2938];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2931*/ curfptr[2930];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_RAWPUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2937*/ curfptr[2936]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2929*/ curfptr[2928]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2978*/ curfptr[2977];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2970*/ curfptr[2969];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_RAWREMOVE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2976*/ curfptr[2975]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2968*/ curfptr[2967]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2989*/ curfptr[2988];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2981*/ curfptr[2980];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_REMOVESTR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2987*/ curfptr[2986]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2979*/ curfptr[2978]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2899*/ curfptr[2898];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2891*/ curfptr[2890];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_SIZE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2897*/ curfptr[2896]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2889*/ curfptr[2888]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1626*/ curfptr[1625];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1618*/ curfptr[1617];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MESSAGE_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1624*/ curfptr[1623]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1616*/ curfptr[1615]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1635*/ curfptr[1634];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1627*/ curfptr[1626];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MESSAGENUM_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1633*/ curfptr[1632]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1646*/ curfptr[1645];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1638*/ curfptr[1637];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MESSAGEVAL_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1644*/ curfptr[1643]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1636*/ curfptr[1635]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1137*/ curfptr[1136];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1129*/ curfptr[1128];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MINOR_GARBCOLL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3513*/ curfptr[3512];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3505*/ curfptr[3504];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MIXBIGINT_VAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3511*/ curfptr[3510]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3503*/ curfptr[3502]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3418*/ curfptr[3417];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3410*/ curfptr[3409];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MIXINT_VAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3416*/ curfptr[3415]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3408*/ curfptr[3407]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3458*/ curfptr[3457];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3450*/ curfptr[3449];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MIXLOC_LOCATION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3456*/ curfptr[3455]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3448*/ curfptr[3447]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3467*/ curfptr[3466];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3459*/ curfptr[3458];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MIXLOC_LOCLINE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3465*/ curfptr[3464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3457*/ curfptr[3456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3476*/ curfptr[3475];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3468*/ curfptr[3467];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MIXLOC_LOCFILE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3474*/ curfptr[3473]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3466*/ curfptr[3465]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3449*/ curfptr[3448];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3441*/ curfptr[3440];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MIXLOC_VAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3447*/ curfptr[3446]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3439*/ curfptr[3438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2630*/ curfptr[2629];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2622*/ curfptr[2621];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_LENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2628*/ curfptr[2627]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2620*/ curfptr[2619]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2619*/ curfptr[2618];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2611*/ curfptr[2610];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_NTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2617*/ curfptr[2616]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2639*/ curfptr[2638];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2631*/ curfptr[2630];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_PUT_NTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2637*/ curfptr[2636]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2629*/ curfptr[2628]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2652*/ curfptr[2651];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2644*/ curfptr[2643];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_SORT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1494*/ curfptr[1493];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1486*/ curfptr[1485];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NEED_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1484*/ curfptr[1483]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1506*/ curfptr[1505];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1498*/ curfptr[1497];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NEED_DBGLIM*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1366*/ curfptr[1365];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1358*/ curfptr[1357];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NEGI*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1364*/ curfptr[1363]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1076*/ curfptr[1075];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1068*/ curfptr[1067];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NONZERO_HASH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1066*/ curfptr[1065]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1420*/ curfptr[1419];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NOT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1418*/ curfptr[1417]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1375*/ curfptr[1374];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1367*/ curfptr[1366];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NOTI*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1476*/ curfptr[1475];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1468*/ curfptr[1467];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NOTNULL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1474*/ curfptr[1473]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1466*/ curfptr[1465]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1467*/ curfptr[1466];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1459*/ curfptr[1458];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : NULL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1465*/ curfptr[1464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1040*/ curfptr[1039];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1032*/ curfptr[1031];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OBJ_HASH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1049*/ curfptr[1048];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1041*/ curfptr[1040];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OBJ_LEN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1039*/ curfptr[1038]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1058*/ curfptr[1057];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1050*/ curfptr[1049];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OBJ_NUM*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1067*/ curfptr[1066];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1059*/ curfptr[1058];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OBJ_SERIAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2383*/ curfptr[2382];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2375*/ curfptr[2374];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OBJECT_LENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2381*/ curfptr[2380]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2394*/ curfptr[2393];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2386*/ curfptr[2385];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OBJECT_NTH_FIELD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2392*/ curfptr[2391]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2384*/ curfptr[2383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1344*/ curfptr[1343];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1336*/ curfptr[1335];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ORI*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1123*/ curfptr[1122];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1115*/ curfptr[1114];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1130*/ curfptr[1129];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1122*/ curfptr[1121];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1520*/ curfptr[1519];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1512*/ curfptr[1511];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTCSTRING_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1518*/ curfptr[1517]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1592*/ curfptr[1591];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1584*/ curfptr[1583];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTCSTRING_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1590*/ curfptr[1589]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1572*/ curfptr[1571];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1564*/ curfptr[1563];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTNEWLINE_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1562*/ curfptr[1561]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1610*/ curfptr[1609];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1602*/ curfptr[1601];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTNEWLINE_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1608*/ curfptr[1607]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1600*/ curfptr[1599]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1531*/ curfptr[1530];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1523*/ curfptr[1522];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTNUM_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1521*/ curfptr[1520]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1579*/ curfptr[1578];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1571*/ curfptr[1570];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTNUM_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1569*/ curfptr[1568]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1964*/ curfptr[1963];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1956*/ curfptr[1955];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTPUT_SBUF_STRCONST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1962*/ curfptr[1961]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1977*/ curfptr[1976];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1969*/ curfptr[1968];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTPUT_SBUF_STRVAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1975*/ curfptr[1974]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1550*/ curfptr[1549];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1542*/ curfptr[1541];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTSTR_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1548*/ curfptr[1547]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1617*/ curfptr[1616];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1609*/ curfptr[1608];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTSTR_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1615*/ curfptr[1614]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1561*/ curfptr[1560];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1553*/ curfptr[1552];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTSTRBUF_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1559*/ curfptr[1558]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1551*/ curfptr[1550]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1601*/ curfptr[1600];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1593*/ curfptr[1592];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OUTSTRBUF_ERR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1599*/ curfptr[1598]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3352*/ curfptr[3351];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3344*/ curfptr[3343];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PAIR_HEAD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3350*/ curfptr[3349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3342*/ curfptr[3341]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3383*/ curfptr[3382];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3375*/ curfptr[3374];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PAIR_LISTLENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3381*/ curfptr[3380]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3370*/ curfptr[3369];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3362*/ curfptr[3361];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PAIR_SET_HEAD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3368*/ curfptr[3367]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3360*/ curfptr[3359]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3361*/ curfptr[3360];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3353*/ curfptr[3352];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PAIR_TAIL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3359*/ curfptr[3358]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3351*/ curfptr[3350]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3522*/ curfptr[3521];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3514*/ curfptr[3513];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PPSTRBUF_MIXBIGINT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3512*/ curfptr[3511]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1027*/ curfptr[1026];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1019*/ curfptr[1018];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PUT_INT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1025*/ curfptr[1024]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3537*/ curfptr[3536];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3529*/ curfptr[3528];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : READ_FILE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3535*/ curfptr[3534]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3527*/ curfptr[3526]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3094*/ curfptr[3093];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3086*/ curfptr[3085];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_DESCR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3092*/ curfptr[3091]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3084*/ curfptr[3083]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3112*/ curfptr[3111];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3104*/ curfptr[3103];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_NTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3110*/ curfptr[3109]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3102*/ curfptr[3101]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3103*/ curfptr[3102];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3095*/ curfptr[3094];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_SIZE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3101*/ curfptr[3100]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3093*/ curfptr[3092]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1671*/ curfptr[1670];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1663*/ curfptr[1662];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SHORTBACKTRACE_DBG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1669*/ curfptr[1668]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2307*/ curfptr[2306];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2299*/ curfptr[2298];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SPLIT_STRING_COLON*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2305*/ curfptr[2304]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2297*/ curfptr[2296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2296*/ curfptr[2295];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2288*/ curfptr[2287];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SPLIT_STRING_COMMA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2294*/ curfptr[2293]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2286*/ curfptr[2285]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2285*/ curfptr[2284];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2277*/ curfptr[2276];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SPLIT_STRING_SPACE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2283*/ curfptr[2282]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2275*/ curfptr[2274]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2318*/ curfptr[2317];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2310*/ curfptr[2309];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRBUF2STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2316*/ curfptr[2315]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2308*/ curfptr[2307]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1720*/ curfptr[1719];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1712*/ curfptr[1711];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRBUF_USEDLENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1718*/ curfptr[1717]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1710*/ curfptr[1709]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2263*/ curfptr[2262];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2255*/ curfptr[2254];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRING<*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2261*/ curfptr[2260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2253*/ curfptr[2252]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2252*/ curfptr[2251];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2244*/ curfptr[2243];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRING=*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2250*/ curfptr[2249]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2242*/ curfptr[2241]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2274*/ curfptr[2273];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2266*/ curfptr[2265];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRING>*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2272*/ curfptr[2271]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2264*/ curfptr[2263]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2243*/ curfptr[2242];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2235*/ curfptr[2234];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRING_LENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2241*/ curfptr[2240]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V939*/ curfptr[938];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V931*/ curfptr[930];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : STRINGCONST2VAL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V929*/ curfptr[928]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2407*/ curfptr[2406];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2399*/ curfptr[2398];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SUBCLASS_OF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2422*/ curfptr[2421];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2414*/ curfptr[2413];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SUBCLASS_OR_EQ*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2420*/ curfptr[2419]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2602*/ curfptr[2601];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2594*/ curfptr[2593];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : SUBSEQ_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V2592*/ curfptr[2591]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1109*/ curfptr[1108];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1101*/ curfptr[1100];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : THE_CALLCOUNT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1099*/ curfptr[1098]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1116*/ curfptr[1115];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1108*/ curfptr[1107];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : THE_FRAMEDEPTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1704*/ curfptr[1703];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1696*/ curfptr[1695];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : THE_NULL_CSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1702*/ curfptr[1701]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1694*/ curfptr[1693]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V932*/ curfptr[931];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V924*/ curfptr[923];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : VOID*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3587*/ curfptr[3586];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3579*/ curfptr[3578];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : WARNING_PLAIN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3585*/ curfptr[3584]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3574*/ curfptr[3573];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3566*/ curfptr[3565];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : WARNING_STRV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V3572*/ curfptr[3571]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V3564*/ curfptr[3563]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1355*/ curfptr[1354];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1347*/ curfptr[1346];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : XORI*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1353*/ curfptr[1352]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:4968:/ apply");
+  MELT_LOCATION("warmelt-first.melt:4963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1485*/ curfptr[1484];
-   MELT_LOCATION("warmelt-first.melt:4968:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1477*/ curfptr[1476];
+   MELT_LOCATION("warmelt-first.melt:4963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ZEROP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4546*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V1483*/ curfptr[1482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4538*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:4968:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4546*/ curfptr[4543] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:4963:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4538*/ curfptr[4535] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:5195:/ block");
+ MELT_LOCATION("warmelt-first.melt:5190:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:5195:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:5190:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4547*/ curfptr[4483] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4539*/ curfptr[4475] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3902*/ curfptr[3901];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3894*/ curfptr[3893];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_BASIC_BLOCK*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3900*/ curfptr[3899]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3988*/ curfptr[3987];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3980*/ curfptr[3979];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_CSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3986*/ curfptr[3985]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3978*/ curfptr[3977]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3914*/ curfptr[3913];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3906*/ curfptr[3905];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_EDGE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3912*/ curfptr[3911]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3878*/ curfptr[3877];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3870*/ curfptr[3869];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_GIMPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3876*/ curfptr[3875]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3890*/ curfptr[3889];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3882*/ curfptr[3881];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_GIMPLE_SEQ*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3888*/ curfptr[3887]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3855*/ curfptr[3854];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3847*/ curfptr[3846];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_LONG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3853*/ curfptr[3852]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3926*/ curfptr[3925];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3918*/ curfptr[3917];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_COEFFICIENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3924*/ curfptr[3923]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3948*/ curfptr[3947];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3940*/ curfptr[3939];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_CONSTRAINT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3946*/ curfptr[3945]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3938*/ curfptr[3937]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3959*/ curfptr[3958];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3951*/ curfptr[3950];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_CONSTRAINT_SYSTEM*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3957*/ curfptr[3956]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3949*/ curfptr[3948]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3937*/ curfptr[3936];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3929*/ curfptr[3928];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_PPL_LINEAR_EXPRESSION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3935*/ curfptr[3934]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3927*/ curfptr[3926]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3866*/ curfptr[3865];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3858*/ curfptr[3857];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_TREE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3864*/ curfptr[3863]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3856*/ curfptr[3855]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3843*/ curfptr[3842];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3835*/ curfptr[3834];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_VALUE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3841*/ curfptr[3840]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3981*/ curfptr[3980];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3973*/ curfptr[3972];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CTYPE_VOID*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3979*/ curfptr[3978]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3971*/ curfptr[3970]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4062*/ curfptr[4061];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4054*/ curfptr[4053];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUTPUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V4239*/ curfptr[4238]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4060*/ curfptr[4059];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4052*/ curfptr[4051];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUTPUTAGAIN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V4257*/ curfptr[4256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3705*/ curfptr[3704];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3697*/ curfptr[3696];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_ANY_RECEIVER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3703*/ curfptr[3702]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3695*/ curfptr[3694]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3761*/ curfptr[3760];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3753*/ curfptr[3752];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_BASIC_BLOCK*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3759*/ curfptr[3758]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3751*/ curfptr[3750]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3741*/ curfptr[3740];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3733*/ curfptr[3732];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_BOX*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3739*/ curfptr[3738]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3731*/ curfptr[3730]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3817*/ curfptr[3816];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3809*/ curfptr[3808];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CHARACTER_INTEGER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3815*/ curfptr[3814]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3807*/ curfptr[3806]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3809*/ curfptr[3808];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3801*/ curfptr[3800];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CLASS_SEQUENCE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3807*/ curfptr[3806]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3799*/ curfptr[3798]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3833*/ curfptr[3832];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3825*/ curfptr[3824];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CLOSURE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3831*/ curfptr[3830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3823*/ curfptr[3822]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3721*/ curfptr[3720];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3713*/ curfptr[3712];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_CONSTANT_INTEGER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3719*/ curfptr[3718]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3711*/ curfptr[3710]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3757*/ curfptr[3756];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3749*/ curfptr[3748];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_EDGE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3755*/ curfptr[3754]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3747*/ curfptr[3746]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3737*/ curfptr[3736];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3729*/ curfptr[3728];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_FIELD_SEQUENCE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3735*/ curfptr[3734]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3727*/ curfptr[3726]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3801*/ curfptr[3800];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3793*/ curfptr[3792];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_FILE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3799*/ curfptr[3798]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3791*/ curfptr[3790]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3749*/ curfptr[3748];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3741*/ curfptr[3740];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_GIMPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3747*/ curfptr[3746]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3739*/ curfptr[3738]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3753*/ curfptr[3752];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3745*/ curfptr[3744];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_GIMPLE_SEQ*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3751*/ curfptr[3750]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3743*/ curfptr[3742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3717*/ curfptr[3716];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3709*/ curfptr[3708];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_INTEGER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3715*/ curfptr[3714]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3707*/ curfptr[3706]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3725*/ curfptr[3724];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3717*/ curfptr[3716];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_LIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3723*/ curfptr[3722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3715*/ curfptr[3714]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3789*/ curfptr[3788];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3781*/ curfptr[3780];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_BASIC_BLOCKS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3787*/ curfptr[3786]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3779*/ curfptr[3778]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3785*/ curfptr[3784];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3777*/ curfptr[3776];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_EDGES*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3783*/ curfptr[3782]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3775*/ curfptr[3774]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3777*/ curfptr[3776];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3769*/ curfptr[3768];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_GIMPLES*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3775*/ curfptr[3774]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3767*/ curfptr[3766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3781*/ curfptr[3780];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3773*/ curfptr[3772];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_GIMPLE_SEQS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3779*/ curfptr[3778]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3771*/ curfptr[3770]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3765*/ curfptr[3764];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3757*/ curfptr[3756];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_OBJECTS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3763*/ curfptr[3762]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3755*/ curfptr[3754]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3769*/ curfptr[3768];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3761*/ curfptr[3760];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_STRINGS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3767*/ curfptr[3766]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3759*/ curfptr[3758]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3773*/ curfptr[3772];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3765*/ curfptr[3764];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MAP_TREES*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3771*/ curfptr[3770]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3763*/ curfptr[3762]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3813*/ curfptr[3812];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3805*/ curfptr[3804];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_METHOD_MAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3811*/ curfptr[3810]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3803*/ curfptr[3802]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3825*/ curfptr[3824];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3817*/ curfptr[3816];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MIXED_BIGINT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3823*/ curfptr[3822]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3815*/ curfptr[3814]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3821*/ curfptr[3820];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3813*/ curfptr[3812];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MIXED_INTEGER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3819*/ curfptr[3818]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3811*/ curfptr[3810]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3829*/ curfptr[3828];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3821*/ curfptr[3820];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MIXED_LOCATION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3827*/ curfptr[3826]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3819*/ curfptr[3818]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3733*/ curfptr[3732];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3725*/ curfptr[3724];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3731*/ curfptr[3730]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3723*/ curfptr[3722]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3693*/ curfptr[3692];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3685*/ curfptr[3684];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_NAME_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3683*/ curfptr[3682]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3709*/ curfptr[3708];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3701*/ curfptr[3700];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_NULL_RECEIVER*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3707*/ curfptr[3706]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3699*/ curfptr[3698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3729*/ curfptr[3728];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3721*/ curfptr[3720];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_PAIR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3727*/ curfptr[3726]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3719*/ curfptr[3718]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3793*/ curfptr[3792];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3785*/ curfptr[3784];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_PPL_CONSTRAINT_SYSTEM*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3791*/ curfptr[3790]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3783*/ curfptr[3782]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3797*/ curfptr[3796];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3789*/ curfptr[3788];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_PPL_POLYHEDRON*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3795*/ curfptr[3794]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3787*/ curfptr[3786]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3805*/ curfptr[3804];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3797*/ curfptr[3796];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_RAWFILE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3803*/ curfptr[3802]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3795*/ curfptr[3794]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3837*/ curfptr[3836];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3829*/ curfptr[3828];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_ROUTINE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3827*/ curfptr[3826]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3713*/ curfptr[3712];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3705*/ curfptr[3704];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_STRBUF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3711*/ curfptr[3710]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3703*/ curfptr[3702]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3696*/ curfptr[3695];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3688*/ curfptr[3687];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3694*/ curfptr[3693]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3686*/ curfptr[3685]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3745*/ curfptr[3744];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3737*/ curfptr[3736];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_TREE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3743*/ curfptr[3742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3735*/ curfptr[3734]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3701*/ curfptr[3700];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3693*/ curfptr[3692];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISCR_VERBATIM_STRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V3699*/ curfptr[3698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4343*/ curfptr[4342];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4335*/ curfptr[4334];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INITIAL_ENVIRONMENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V4341*/ curfptr[4340]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V4333*/ curfptr[4332]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5195:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5190:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4011*/ curfptr[4010];
-   MELT_LOCATION("warmelt-first.melt:5195:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4003*/ curfptr[4002];
+   MELT_LOCATION("warmelt-first.melt:5190:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INITIAL_SYSTEM_DATA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4547*/ curfptr[4483]), (melt_ptr_t)(/*_.VALDATA___V4111*/ curfptr[4110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4539*/ curfptr[4475]), (melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:5195:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4547*/ curfptr[4483] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:5190:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4539*/ curfptr[4475] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:5254:/ block");
+ MELT_LOCATION("warmelt-first.melt:5249:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:5254:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:5249:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4548*/ curfptr[4481] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4540*/ curfptr[4473] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4094*/ curfptr[4093];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4086*/ curfptr[4085];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AT_EXIT_FIRST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4358*/ curfptr[4357]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4350*/ curfptr[4349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4096*/ curfptr[4095];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4088*/ curfptr[4087];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AT_EXIT_LAST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4360*/ curfptr[4359]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4352*/ curfptr[4351]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4106*/ curfptr[4105];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4098*/ curfptr[4097];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AT_FINISH_UNIT_FIRST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4362*/ curfptr[4361]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4354*/ curfptr[4353]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4108*/ curfptr[4107];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4100*/ curfptr[4099];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AT_FINISH_UNIT_LAST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4364*/ curfptr[4363]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4356*/ curfptr[4355]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4100*/ curfptr[4099];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4092*/ curfptr[4091];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AT_START_UNIT_FIRST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4366*/ curfptr[4365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4358*/ curfptr[4357]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4102*/ curfptr[4101];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4094*/ curfptr[4093];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : AT_START_UNIT_LAST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4368*/ curfptr[4367]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4360*/ curfptr[4359]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4082*/ curfptr[4081];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4074*/ curfptr[4073];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLONE_SYMBOL*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4370*/ curfptr[4369]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4362*/ curfptr[4361]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4230*/ curfptr[4229];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4222*/ curfptr[4221];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLOSURE_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4372*/ curfptr[4371]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4364*/ curfptr[4363]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2674*/ curfptr[2673];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V2666*/ curfptr[2665];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPARE_NAMED_ALPHA*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4374*/ curfptr[4373]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4366*/ curfptr[4365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4293*/ curfptr[4292];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4285*/ curfptr[4284];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPARE_OBJ_RANKED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4376*/ curfptr[4375]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4368*/ curfptr[4367]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2718*/ curfptr[2717];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2710*/ curfptr[2709];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CSTRING_LENGTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V2716*/ curfptr[2715]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V2708*/ curfptr[2707]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2701*/ curfptr[2700];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2693*/ curfptr[2692];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CSTRING_SAME*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4378*/ curfptr[4377]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4370*/ curfptr[4369]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4056*/ curfptr[4055];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4048*/ curfptr[4047];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4380*/ curfptr[4379]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4372*/ curfptr[4371]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4058*/ curfptr[4057];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4050*/ curfptr[4049];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBG_OUTOBJECT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4382*/ curfptr[4381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4374*/ curfptr[4373]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4264*/ curfptr[4263];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4256*/ curfptr[4255];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBGOUT_FIELDS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4384*/ curfptr[4383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4376*/ curfptr[4375]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4266*/ curfptr[4265];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4258*/ curfptr[4257];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DBGOUTAGAIN_FIELDS*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4386*/ curfptr[4385]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4378*/ curfptr[4377]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4009*/ curfptr[4008];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4001*/ curfptr[4000];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_MSG_FUN*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4388*/ curfptr[4387]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4380*/ curfptr[4379]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4054*/ curfptr[4053];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4046*/ curfptr[4045];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DEBUGMSG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4390*/ curfptr[4389]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4382*/ curfptr[4381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4110*/ curfptr[4109];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4102*/ curfptr[4101];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISPLAY_DEBUG_MESSAGE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4392*/ curfptr[4391]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4384*/ curfptr[4383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4349*/ curfptr[4348];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4341*/ curfptr[4340];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FIND_ENCLOSING_ENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4394*/ curfptr[4393]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4386*/ curfptr[4385]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4023*/ curfptr[4022];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4015*/ curfptr[4014];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FIND_ENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4396*/ curfptr[4395]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4388*/ curfptr[4387]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4347*/ curfptr[4346];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4339*/ curfptr[4338];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FIND_ENV_DEBUG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4398*/ curfptr[4397]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4390*/ curfptr[4389]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4019*/ curfptr[4018];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4011*/ curfptr[4010];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FRESH_ENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4400*/ curfptr[4399]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4392*/ curfptr[4391]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V3840*/ curfptr[3839];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V3832*/ curfptr[3831];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_CTYPE_DESCR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4402*/ curfptr[4401]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4394*/ curfptr[4393]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4246*/ curfptr[4245];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4238*/ curfptr[4237];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_METHOD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4404*/ curfptr[4403]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4396*/ curfptr[4395]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4234*/ curfptr[4233];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4226*/ curfptr[4225];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST1*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4406*/ curfptr[4405]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4398*/ curfptr[4397]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4236*/ curfptr[4235];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4228*/ curfptr[4227];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST2*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4408*/ curfptr[4407]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4400*/ curfptr[4399]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4238*/ curfptr[4237];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4230*/ curfptr[4229];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST3*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4410*/ curfptr[4409]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4402*/ curfptr[4401]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4240*/ curfptr[4239];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4232*/ curfptr[4231];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST4*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4412*/ curfptr[4411]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4404*/ curfptr[4403]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4242*/ curfptr[4241];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4234*/ curfptr[4233];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST5*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4414*/ curfptr[4413]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4406*/ curfptr[4405]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4244*/ curfptr[4243];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4236*/ curfptr[4235];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST6*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4416*/ curfptr[4415]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4408*/ curfptr[4407]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4152*/ curfptr[4151];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4144*/ curfptr[4143];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_APPEND2LIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4418*/ curfptr[4417]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4410*/ curfptr[4409]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4047*/ curfptr[4046];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4039*/ curfptr[4038];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4420*/ curfptr[4419]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4412*/ curfptr[4411]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4150*/ curfptr[4149];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4142*/ curfptr[4141];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_ITERATE_TEST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4422*/ curfptr[4421]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4414*/ curfptr[4413]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4154*/ curfptr[4153];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4146*/ curfptr[4145];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_MAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4424*/ curfptr[4423]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4416*/ curfptr[4415]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4159*/ curfptr[4158];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4151*/ curfptr[4150];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : LIST_TO_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4426*/ curfptr[4425]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4418*/ curfptr[4417]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4114*/ curfptr[4113];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4106*/ curfptr[4105];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4428*/ curfptr[4427]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4420*/ curfptr[4419]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4116*/ curfptr[4115];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4108*/ curfptr[4107];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_ITERATE_TEST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4430*/ curfptr[4429]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4422*/ curfptr[4421]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4303*/ curfptr[4302];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4295*/ curfptr[4294];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4432*/ curfptr[4431]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4424*/ curfptr[4423]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4118*/ curfptr[4117];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4110*/ curfptr[4109];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4434*/ curfptr[4433]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4426*/ curfptr[4425]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4120*/ curfptr[4119];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4112*/ curfptr[4111];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MAPSTRING_ITERATE_TEST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4436*/ curfptr[4435]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4428*/ curfptr[4427]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4220*/ curfptr[4219];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4212*/ curfptr[4211];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_BACKWARD_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4438*/ curfptr[4437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4430*/ curfptr[4429]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4218*/ curfptr[4217];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4210*/ curfptr[4209];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4440*/ curfptr[4439]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4432*/ curfptr[4431]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4222*/ curfptr[4221];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4214*/ curfptr[4213];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_EVERY_BOTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4442*/ curfptr[4441]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4434*/ curfptr[4433]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4224*/ curfptr[4223];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4216*/ curfptr[4215];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_ITERATE_TEST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4444*/ curfptr[4443]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4436*/ curfptr[4435]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4226*/ curfptr[4225];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4218*/ curfptr[4217];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_MAP*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4446*/ curfptr[4445]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4438*/ curfptr[4437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4228*/ curfptr[4227];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4220*/ curfptr[4219];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MULTIPLE_TO_LIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4448*/ curfptr[4447]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4440*/ curfptr[4439]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4351*/ curfptr[4350];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4343*/ curfptr[4342];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : OVERWRITE_ENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4450*/ curfptr[4449]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4442*/ curfptr[4441]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4161*/ curfptr[4160];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4153*/ curfptr[4152];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PAIRLIST_TO_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4452*/ curfptr[4451]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4444*/ curfptr[4443]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4355*/ curfptr[4354];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4347*/ curfptr[4346];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : POST_INITIALIZATION*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4454*/ curfptr[4453]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4446*/ curfptr[4445]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4025*/ curfptr[4024];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4017*/ curfptr[4016];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : PUT_ENV*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4456*/ curfptr[4455]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4448*/ curfptr[4447]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4232*/ curfptr[4231];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4224*/ curfptr[4223];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : ROUTINE_EVERY*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4458*/ curfptr[4457]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4450*/ curfptr[4449]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2675*/ curfptr[2674];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2667*/ curfptr[2666];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : TUPLE_NTH*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4460*/ curfptr[4459]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4452*/ curfptr[4451]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5254:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5249:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2726*/ curfptr[2725];
-   MELT_LOCATION("warmelt-first.melt:5254:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2718*/ curfptr[2717];
+   MELT_LOCATION("warmelt-first.melt:5249:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : TUPLE_SIZED*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4548*/ curfptr[4481]), (melt_ptr_t)(/*_.VALDATA___V4462*/ curfptr[4461]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4540*/ curfptr[4473]), (melt_ptr_t)(/*_.VALDATA___V4454*/ curfptr[4453]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:5254:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4548*/ curfptr[4481] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:5249:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4540*/ curfptr[4473] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:5313:/ block");
+ MELT_LOCATION("warmelt-first.melt:5308:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:5313:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:5308:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4549*/ curfptr[4482] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4541*/ curfptr[4474] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4121*/ curfptr[4120];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4113*/ curfptr[4112];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_LIST*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4464*/ curfptr[4463]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4456*/ curfptr[4455]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2843*/ curfptr[2842];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V2835*/ curfptr[2834];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MAPOBJECT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4466*/ curfptr[4465]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4458*/ curfptr[4457]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3024*/ curfptr[3023];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3016*/ curfptr[3015];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MAPSTRING*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4468*/ curfptr[4467]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4460*/ curfptr[4459]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4162*/ curfptr[4161];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4154*/ curfptr[4153];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MULTIPLE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4470*/ curfptr[4469]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4462*/ curfptr[4461]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4190*/ curfptr[4189];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V4182*/ curfptr[4181];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_IN_MULTIPLE_BACKWARD*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4472*/ curfptr[4471]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4464*/ curfptr[4463]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1435*/ curfptr[1434];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1427*/ curfptr[1426];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : FOREACH_LONG_UPTO*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4474*/ curfptr[4473]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4466*/ curfptr[4465]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-first.melt:5313:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5308:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3183*/ curfptr[3182];
-   MELT_LOCATION("warmelt-first.melt:5313:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V3175*/ curfptr[3174];
+   MELT_LOCATION("warmelt-first.melt:5308:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INTEGERBOX_OF*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4549*/ curfptr[4482]), (melt_ptr_t)(/*_.VALDATA___V4476*/ curfptr[4475]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4541*/ curfptr[4474]), (melt_ptr_t)(/*_.VALDATA___V4468*/ curfptr[4467]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:5313:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4549*/ curfptr[4482] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:5308:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4541*/ curfptr[4474] = 0 ;}
  
- MELT_LOCATION("warmelt-first.melt:5326:/ block");
+ MELT_LOCATION("warmelt-first.melt:5321:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:5326:/ block");
+  MELT_LOCATION("warmelt-first.melt:5321:/ block");
   /*block*/{
-   /*_.TRUEKEYWORD__V4550*/ curfptr[4540] = /*_.VALDATA___V4478*/ curfptr[4477];;
+   /*_.TRUEKEYWORD__V4542*/ curfptr[4532] = /*_.VALDATA___V4470*/ curfptr[4469];;
    
    {
-   MELT_LOCATION("warmelt-first.melt:5327:/ locexp");
-   MELT_STORE_PREDEF(TRUE,/*_.TRUEKEYWORD__V4550*/ curfptr[4540]);}
+   MELT_LOCATION("warmelt-first.melt:5322:/ locexp");
+   MELT_STORE_PREDEF(TRUE,/*_.TRUEKEYWORD__V4542*/ curfptr[4532]);}
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-first.melt:5326:/ clear");
-   /*clear*/ /*_.TRUEKEYWORD__V4550*/ curfptr[4540] = 0 ;}
+   MELT_LOCATION("warmelt-first.melt:5321:/ clear");
+   /*clear*/ /*_.TRUEKEYWORD__V4542*/ curfptr[4532] = 0 ;}
   ;
   /*epilog*/}
  
- MELT_LOCATION("warmelt-first.melt:5330:/ block");
+ MELT_LOCATION("warmelt-first.melt:5325:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-first.melt:5330:/ getslot");
+  MELT_LOCATION("warmelt-first.melt:5325:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4551*/ curfptr[4543] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V4543*/ curfptr[4535] = slot; };
   ;
-  MELT_LOCATION("warmelt-first.melt:5330:/ apply");
+  MELT_LOCATION("warmelt-first.melt:5325:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-first.melt:5330:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4110*/ curfptr[4109];
-   MELT_LOCATION("warmelt-first.melt:5330:/ apply.arg");
+   MELT_LOCATION("warmelt-first.melt:5325:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V4102*/ curfptr[4101];
+   MELT_LOCATION("warmelt-first.melt:5325:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : DISPLAYDEBUGMSG*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4551*/ curfptr[4543]), (melt_ptr_t)(/*_.VALDATA___V4480*/ curfptr[4479]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V4543*/ curfptr[4535]), (melt_ptr_t)(/*_.VALDATA___V4472*/ curfptr[4471]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-first.melt:5330:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V4551*/ curfptr[4543] = 0 ;}
+  MELT_LOCATION("warmelt-first.melt:5325:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V4543*/ curfptr[4535] = 0 ;}
  
  /**COMMENT: after toplevel body **/;
  
@@ -120426,1546 +101483,1540 @@ initial_frame_st     curfram__;
  (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]));
  
  /*internsym:MOCX_MODULENAME*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]));
  
  /*internsym:MOCX_EXPFIELDICT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V769*/ curfptr[768]));
  
  /*internsym:MOCX_EXPCLASSDICT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]));
  
  /*internsym:MOCX_INITIALENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]));
- 
- /*internsym:MOCX_FUNCOUNT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]));
- 
- /*internsym:MOCX_FILETUPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V781*/ curfptr[780]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]));
  
  /*internsym:CLASS_NORMALIZATION_CONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V783*/ curfptr[782]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V775*/ curfptr[774]));
  
  /*internsym:NCTX_INITPROC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V811*/ curfptr[810]));
  
  /*internsym:NCTX_PROCLIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V813*/ curfptr[812]));
  
  /*internsym:NCTX_DATALIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]));
  
  /*internsym:NCTX_VALUELIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]));
  
  /*internsym:NCTX_SYMBMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V827*/ curfptr[826]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]));
  
  /*internsym:NCTX_KEYWMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]));
  
  /*internsym:NCTX_SYMBCACHEMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V823*/ curfptr[822]));
  
  /*internsym:NCTX_PREDEFMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V833*/ curfptr[832]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V825*/ curfptr[824]));
  
  /*internsym:NCTX_VALMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V827*/ curfptr[826]));
  
  /*internsym:NCTX_VALBINDMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]));
  
  /*internsym:NCTX_CURPROC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]));
  
  /*internsym:NCTX_MODULCONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V833*/ curfptr[832]));
  
  /*internsym:NCTX_QDATCURMODENVBOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V843*/ curfptr[842]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]));
  
  /*internsym:NCTX_QDATPARMODENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V845*/ curfptr[844]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]));
  
  /*internsym:NCTX_PROCURMODENVLIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V847*/ curfptr[846]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V839*/ curfptr[838]));
  
  /*internsym:CLASS_C_GENERATION_CONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V849*/ curfptr[848]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]));
  
  /*internsym:GNCX_OBJROUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V865*/ curfptr[864]));
  
  /*internsym:GNCX_LOCMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V867*/ curfptr[866]));
  
  /*internsym:GNCX_FREEPTRLIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V877*/ curfptr[876]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]));
  
  /*internsym:GNCX_FREELONGLIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V879*/ curfptr[878]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V871*/ curfptr[870]));
  
  /*internsym:GNCX_FREEOTHERMAPS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V873*/ curfptr[872]));
  
  /*internsym:GNCX_RETLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V875*/ curfptr[874]));
  
  /*internsym:GNCX_COMPICACHE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V885*/ curfptr[884]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V877*/ curfptr[876]));
  
  /*internsym:GNCX_MODULCONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V879*/ curfptr[878]));
  
  /*internsym:GNCX_MATCHMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V889*/ curfptr[888]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]));
  
  /*internsym:CLASS_INITIAL_GENERATION_CONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V891*/ curfptr[890]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]));
  
  /*internsym:IGNCX_PREVENVLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]));
  
  /*internsym:IGNCX_CONTENVLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V907*/ curfptr[906]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V899*/ curfptr[898]));
  
  /*internsym:IGNCX_PROCURMODENVLIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V901*/ curfptr[900]));
  
  /*internsym:IGNCX_IMPORTMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V903*/ curfptr[902]));
  
  /*internsym:CLASS_GENERATED_C_CODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V913*/ curfptr[912]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V905*/ curfptr[904]));
  
  /*internsym:IGNORE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V919*/ curfptr[918]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]));
  
  /*internsym:V*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V924*/ curfptr[923]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]));
  
  /*internsym:VOID*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V930*/ curfptr[929]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]));
  
  /*internsym:STRINGCONST2VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V929*/ curfptr[928]));
  
  /*internsym:DISCR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V942*/ curfptr[941]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V934*/ curfptr[933]));
  
  /*internsym:STRC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V945*/ curfptr[944]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]));
  
  /*internsym:IS_A*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V944*/ curfptr[943]));
  
  /*internsym:OBJ*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V957*/ curfptr[956]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V949*/ curfptr[948]));
  
  /*internsym:CLA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]));
  
  /*internsym:IS_NOT_A*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V959*/ curfptr[958]));
  
  /*internsym:IS_OBJECT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V978*/ curfptr[977]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]));
  
  /*internsym:IS_NOT_OBJECT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V987*/ curfptr[986]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V979*/ curfptr[978]));
  
  /*internsym:GET_GLOBPREDEF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V996*/ curfptr[995]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]));
  
  /*internsym:IX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V993*/ curfptr[992]));
  
  /*internsym:DISCRIM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V999*/ curfptr[998]));
  
  /*internsym:GET_INT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1008*/ curfptr[1007]));
  
  /*internsym:PUT_INT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1025*/ curfptr[1024]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1017*/ curfptr[1016]));
  
  /*internsym:I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1031*/ curfptr[1030]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]));
  
  /*internsym:OBJ_HASH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1038*/ curfptr[1037]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]));
  
  /*internsym:OBJ_LEN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1039*/ curfptr[1038]));
  
  /*internsym:OBJ_NUM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1048*/ curfptr[1047]));
  
  /*internsym:OBJ_SERIAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1057*/ curfptr[1056]));
  
  /*internsym:NONZERO_HASH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1074*/ curfptr[1073]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1066*/ curfptr[1065]));
  
  /*internsym:==*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]));
  
  /*internsym:A*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1078*/ curfptr[1077]));
  
  /*internsym:B*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1089*/ curfptr[1088]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1081*/ curfptr[1080]));
  
  /*internsym:!=*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1096*/ curfptr[1095]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1088*/ curfptr[1087]));
  
  /*internsym:THE_CALLCOUNT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1099*/ curfptr[1098]));
  
  /*internsym:THE_FRAMEDEPTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1106*/ curfptr[1105]));
  
  /*internsym:OUT_CPLUGIN_COMPILED_TIMESTAMP_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]));
  
  /*internsym:OUT_CPLUGIN_MD5_CHECKSUM_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1120*/ curfptr[1119]));
  
  /*internsym:MINOR_GARBCOLL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1135*/ curfptr[1134]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]));
  
  /*internsym:SIZ*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1132*/ curfptr[1131]));
  
  /*internsym:FULL_GARBCOLL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]));
  
  /*internsym:GET_SYMBOLSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1155*/ curfptr[1154]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1147*/ curfptr[1146]));
  
  /*internsym:STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]));
  
  /*internsym:CREATE_SYMBOLSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]));
  
  /*internsym:GET_KEYWORDSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1175*/ curfptr[1174]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1167*/ curfptr[1166]));
  
  /*internsym:CREATE_KEYWORDSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]));
  
  /*internsym:ASSERT_FAILED*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]));
  
  /*internsym:MSG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]));
  
  /*internsym:FILENAME*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1201*/ curfptr[1200]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1193*/ curfptr[1192]));
  
  /*internsym:LINENO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]));
  
  /*internsym:CHECKCALLSTACK_MSG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1214*/ curfptr[1213]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]));
  
  /*internsym:CBREAK_MSG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214]));
  
  /*internsym:<I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1232*/ curfptr[1231]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1224*/ curfptr[1223]));
  
  /*internsym:<=I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]));
  
  /*internsym:==I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1246*/ curfptr[1245]));
  
  /*internsym:>I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1265*/ curfptr[1264]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]));
  
  /*internsym:>=I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]));
  
  /*internsym:!=I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1287*/ curfptr[1286]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]));
  
  /*internsym:+I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1298*/ curfptr[1297]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]));
  
  /*internsym:-I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1309*/ curfptr[1308]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1301*/ curfptr[1300]));
  
  /*internsym:*I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1320*/ curfptr[1319]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311]));
  
  /*internsym:ANDI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1331*/ curfptr[1330]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1323*/ curfptr[1322]));
  
  /*internsym:ORI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1334*/ curfptr[1333]));
  
  /*internsym:XORI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1353*/ curfptr[1352]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1345*/ curfptr[1344]));
  
  /*internsym:NEGI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1364*/ curfptr[1363]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1356*/ curfptr[1355]));
  
  /*internsym:NOTI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]));
  
  /*internsym:/I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1382*/ curfptr[1381]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1374*/ curfptr[1373]));
  
  /*internsym:%I*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1393*/ curfptr[1392]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1385*/ curfptr[1384]));
  
  /*internsym:/IRAW*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1404*/ curfptr[1403]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1396*/ curfptr[1395]));
  
  /*internsym:%IRAW*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1415*/ curfptr[1414]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406]));
  
  /*internsym:NOT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1418*/ curfptr[1417]));
  
  /*internsym:IMIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]));
  
  /*internsym:IMAX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1433*/ curfptr[1432]));
  
  /*internsym:EACHLONG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1436*/ curfptr[1435]));
  
  /*internsym:NULL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1465*/ curfptr[1464]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456]));
  
  /*internsym:NOTNULL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1474*/ curfptr[1473]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1466*/ curfptr[1465]));
  
  /*internsym:ZEROP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1483*/ curfptr[1482]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474]));
  
  /*internsym:NEED_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1484*/ curfptr[1483]));
  
  /*internsym:DEPTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1497*/ curfptr[1496]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1489*/ curfptr[1488]));
  
  /*internsym:NEED_DBGLIM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1496*/ curfptr[1495]));
  
  /*internsym:LIMIT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1502*/ curfptr[1501]));
  
  /*internsym:OUTCSTRING_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1518*/ curfptr[1517]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]));
  
  /*internsym:S*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1523*/ curfptr[1522]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1515*/ curfptr[1514]));
  
  /*internsym:OUTNUM_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1521*/ curfptr[1520]));
  
  /*internsym:PREF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1534*/ curfptr[1533]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]));
  
  /*internsym:L*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1537*/ curfptr[1536]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1529*/ curfptr[1528]));
  
  /*internsym:SUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]));
  
  /*internsym:OUTSTR_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1548*/ curfptr[1547]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]));
  
  /*internsym:STR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1553*/ curfptr[1552]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1545*/ curfptr[1544]));
  
  /*internsym:OUTSTRBUF_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1559*/ curfptr[1558]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1551*/ curfptr[1550]));
  
  /*internsym:SBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]));
  
  /*internsym:OUTNEWLINE_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1562*/ curfptr[1561]));
  
  /*internsym:OUTNUM_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1569*/ curfptr[1568]));
  
  /*internsym:OUTCSTRING_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1590*/ curfptr[1589]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]));
  
  /*internsym:OUTSTRBUF_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1599*/ curfptr[1598]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590]));
  
  /*internsym:OUTNEWLINE_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1608*/ curfptr[1607]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1600*/ curfptr[1599]));
  
  /*internsym:OUTSTR_ERR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1615*/ curfptr[1614]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606]));
  
  /*internsym:MESSAGE_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1624*/ curfptr[1623]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1616*/ curfptr[1615]));
  
  /*internsym:MESSAGENUM_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1633*/ curfptr[1632]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624]));
  
  /*internsym:MESSAGEVAL_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1644*/ curfptr[1643]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1636*/ curfptr[1635]));
  
  /*internsym:VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1642*/ curfptr[1641]));
  
  /*internsym:LONGBACKTRACE_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1657*/ curfptr[1656]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1649*/ curfptr[1648]));
  
  /*internsym:MAXDEPTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1663*/ curfptr[1662]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1655*/ curfptr[1654]));
  
  /*internsym:SHORTBACKTRACE_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1669*/ curfptr[1668]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1661*/ curfptr[1660]));
  
  /*internsym:CHECKVAL_DBG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1680*/ curfptr[1679]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1672*/ curfptr[1671]));
  
  /*internsym:DEBUGCSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1691*/ curfptr[1690]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1683*/ curfptr[1682]));
  
  /*internsym:THE_NULL_CSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1702*/ curfptr[1701]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1694*/ curfptr[1693]));
  
  /*internsym:MAKE_STRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1709*/ curfptr[1708]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1701*/ curfptr[1700]));
  
  /*internsym:STRBUF_USEDLENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1718*/ curfptr[1717]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1710*/ curfptr[1709]));
  
  /*internsym:IS_STRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1727*/ curfptr[1726]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1719*/ curfptr[1718]));
  
  /*internsym:IS_OUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1736*/ curfptr[1735]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1728*/ curfptr[1727]));
  
  /*internsym:ADD2SBUF_STRCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1745*/ curfptr[1744]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1737*/ curfptr[1736]));
  
  /*internsym:ADD2SBUF_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1756*/ curfptr[1755]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1748*/ curfptr[1747]));
  
  /*internsym:ADD2SBUF_MIXLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1767*/ curfptr[1766]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1759*/ curfptr[1758]));
  
  /*internsym:MIXL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1773*/ curfptr[1772]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1765*/ curfptr[1764]));
  
  /*internsym:ADD2SBUF_SHORT_MIXLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1782*/ curfptr[1781]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1774*/ curfptr[1773]));
  
  /*internsym:ADD2SBUF_TEXI_MIXLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1794*/ curfptr[1793]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1786*/ curfptr[1785]));
  
  /*internsym:ADD2SBUF_INDENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1807*/ curfptr[1806]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1799*/ curfptr[1798]));
  
  /*internsym:ADD2SBUF_INDENTNL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1818*/ curfptr[1817]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1810*/ curfptr[1809]));
  
  /*internsym:ADD2SBUF_SBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1829*/ curfptr[1828]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1821*/ curfptr[1820]));
  
  /*internsym:ASBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1835*/ curfptr[1834]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1827*/ curfptr[1826]));
  
  /*internsym:ADD2SBUF_CENCSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1842*/ curfptr[1841]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1834*/ curfptr[1833]));
  
  /*internsym:ADD2SBUF_CENCSTRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1853*/ curfptr[1852]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1845*/ curfptr[1844]));
  
  /*internsym:ADD2SBUF_CCOMSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1864*/ curfptr[1863]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1856*/ curfptr[1855]));
  
  /*internsym:ADD2SBUF_CCOMSTRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1875*/ curfptr[1874]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1867*/ curfptr[1866]));
  
  /*internsym:ADD2SBUF_CCOMCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1886*/ curfptr[1885]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1878*/ curfptr[1877]));
  
  /*internsym:CSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1892*/ curfptr[1891]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1884*/ curfptr[1883]));
  
  /*internsym:ADD2SBUF_CIDENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1899*/ curfptr[1898]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1891*/ curfptr[1890]));
  
  /*internsym:ADD2SBUF_CIDENTPREFIX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1910*/ curfptr[1909]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1902*/ curfptr[1901]));
  
  /*internsym:PREFLEN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1909*/ curfptr[1908]));
  
  /*internsym:ADD2SBUF_LONGDEC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1925*/ curfptr[1924]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1917*/ curfptr[1916]));
  
  /*internsym:NUM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1931*/ curfptr[1930]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1923*/ curfptr[1922]));
  
  /*internsym:ADD2SBUF_LONGHEX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1938*/ curfptr[1937]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1930*/ curfptr[1929]));
  
  /*internsym:ADD2SBUF_ROUTINEDESCR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1949*/ curfptr[1948]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1941*/ curfptr[1940]));
  
  /*internsym:ROUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1955*/ curfptr[1954]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1947*/ curfptr[1946]));
  
  /*internsym:OUTPUT_SBUF_STRCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1962*/ curfptr[1961]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1954*/ curfptr[1953]));
  
  /*internsym:NAM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1968*/ curfptr[1967]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1960*/ curfptr[1959]));
  
  /*internsym:OUTPUT_SBUF_STRVAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1975*/ curfptr[1974]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1967*/ curfptr[1966]));
  
  /*internsym:VNAM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1981*/ curfptr[1980]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1973*/ curfptr[1972]));
  
  /*internsym:ADD2OUT_STRCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1988*/ curfptr[1987]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1980*/ curfptr[1979]));
  
  /*internsym:OUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1985*/ curfptr[1984]));
  
  /*internsym:ADD2OUT_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2001*/ curfptr[2000]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V1993*/ curfptr[1992]));
  
  /*internsym:ADD2OUT_MIXLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2012*/ curfptr[2011]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2004*/ curfptr[2003]));
  
  /*internsym:ADD2OUT_INDENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2024*/ curfptr[2023]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2016*/ curfptr[2015]));
  
  /*internsym:ADD2OUT_INDENTNL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2035*/ curfptr[2034]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2027*/ curfptr[2026]));
  
  /*internsym:ADD2OUT_SBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2046*/ curfptr[2045]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2038*/ curfptr[2037]));
  
  /*internsym:ADD2OUT_CENCSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2057*/ curfptr[2056]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2049*/ curfptr[2048]));
  
  /*internsym:ADD2OUT_CENCSTRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2068*/ curfptr[2067]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2060*/ curfptr[2059]));
  
  /*internsym:ADD2OUT_CCOMSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2079*/ curfptr[2078]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2071*/ curfptr[2070]));
  
  /*internsym:ADD2OUT_CCOMSTRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2090*/ curfptr[2089]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2082*/ curfptr[2081]));
  
  /*internsym:ADD2OUT_CCOMCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2101*/ curfptr[2100]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2093*/ curfptr[2092]));
  
  /*internsym:ADD2OUT_CIDENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2112*/ curfptr[2111]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2104*/ curfptr[2103]));
  
  /*internsym:ADD2OUT_CIDENTPREFIX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2123*/ curfptr[2122]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2115*/ curfptr[2114]));
  
  /*internsym:ADD2OUT_LONGDEC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2136*/ curfptr[2135]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2128*/ curfptr[2127]));
  
  /*internsym:ADD2OUT_LONGHEX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2147*/ curfptr[2146]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2139*/ curfptr[2138]));
  
  /*internsym:ADD2OUT_ROUTINEDESCR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2158*/ curfptr[2157]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2150*/ curfptr[2149]));
  
  /*internsym:IS_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2169*/ curfptr[2168]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2161*/ curfptr[2160]));
  
  /*internsym:==S*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2170*/ curfptr[2169]));
  
  /*internsym:S1*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2183*/ curfptr[2182]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2175*/ curfptr[2174]));
  
  /*internsym:S2*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2186*/ curfptr[2185]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2178*/ curfptr[2177]));
  
  /*internsym:!=S*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2193*/ curfptr[2192]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2185*/ curfptr[2184]));
  
  /*internsym:MAKE_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2204*/ curfptr[2203]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2196*/ curfptr[2195]));
  
  /*internsym:DIS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2201*/ curfptr[2200]));
  
  /*internsym:MAKE_STRINGCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2217*/ curfptr[2216]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2209*/ curfptr[2208]));
  
  /*internsym:IS_STRINGCONST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2228*/ curfptr[2227]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2220*/ curfptr[2219]));
  
  /*internsym:CS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2234*/ curfptr[2233]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2226*/ curfptr[2225]));
  
  /*internsym:STRING_LENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2241*/ curfptr[2240]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2233*/ curfptr[2232]));
  
  /*internsym:STRING=*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2250*/ curfptr[2249]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2242*/ curfptr[2241]));
  
  /*internsym:STRING<*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2261*/ curfptr[2260]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2253*/ curfptr[2252]));
  
  /*internsym:STRING>*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2272*/ curfptr[2271]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2264*/ curfptr[2263]));
  
  /*internsym:SPLIT_STRING_SPACE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2283*/ curfptr[2282]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2275*/ curfptr[2274]));
  
  /*internsym:SPLIT_STRING_COMMA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2294*/ curfptr[2293]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2286*/ curfptr[2285]));
  
  /*internsym:SPLIT_STRING_COLON*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2305*/ curfptr[2304]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2297*/ curfptr[2296]));
  
  /*internsym:STRBUF2STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2316*/ curfptr[2315]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2308*/ curfptr[2307]));
  
  /*internsym:MAKE_STRING_NAKEDBASENAME*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2327*/ curfptr[2326]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2319*/ curfptr[2318]));
  
  /*internsym:MAKE_STRING_TEMPNAME_SUFFIXED*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2338*/ curfptr[2337]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2330*/ curfptr[2329]));
  
  /*internsym:SUFF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2337*/ curfptr[2336]));
  
  /*internsym:LOAD_MELT_MODULE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2353*/ curfptr[2352]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2345*/ curfptr[2344]));
  
  /*internsym:ENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2350*/ curfptr[2349]));
  
  /*internsym:GENERATE_MELT_MODULE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2358*/ curfptr[2357]));
  
  /*internsym:SRC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2371*/ curfptr[2370]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2363*/ curfptr[2362]));
  
  /*internsym:OUTNAM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2374*/ curfptr[2373]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2366*/ curfptr[2365]));
  
  /*internsym:OBJECT_LENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2381*/ curfptr[2380]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2373*/ curfptr[2372]));
  
  /*internsym:OB*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2386*/ curfptr[2385]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2378*/ curfptr[2377]));
  
  /*internsym:OBJECT_NTH_FIELD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2392*/ curfptr[2391]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2384*/ curfptr[2383]));
  
  /*internsym:N*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2398*/ curfptr[2397]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2390*/ curfptr[2389]));
  
  /*internsym:SUBCLASS_OF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2397*/ curfptr[2396]));
  
  /*internsym:CL1*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2410*/ curfptr[2409]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2402*/ curfptr[2401]));
  
  /*internsym:CL2*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2413*/ curfptr[2412]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2405*/ curfptr[2404]));
  
  /*internsym:SUBCLASS_OR_EQ*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2420*/ curfptr[2419]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2412*/ curfptr[2411]));
  
  /*internsym:IS_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2433*/ curfptr[2432]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2425*/ curfptr[2424]));
  
  /*internsym:MUL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2438*/ curfptr[2437]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2430*/ curfptr[2429]));
  
  /*internsym:IS_MULTIPLE_OR_NULL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2444*/ curfptr[2443]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2436*/ curfptr[2435]));
  
  /*internsym:MAKE_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2454*/ curfptr[2453]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2446*/ curfptr[2445]));
  
  /*internsym:LN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2460*/ curfptr[2459]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2452*/ curfptr[2451]));
  
  /*internsym:MAKE_TUPLE1*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2467*/ curfptr[2466]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2459*/ curfptr[2458]));
  
  /*internsym:V1*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2473*/ curfptr[2472]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2465*/ curfptr[2464]));
  
  /*internsym:MAKE_TUPLE2*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2480*/ curfptr[2479]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2472*/ curfptr[2471]));
  
  /*internsym:V2*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2479*/ curfptr[2478]));
  
  /*internsym:MAKE_TUPLE3*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2487*/ curfptr[2486]));
  
  /*internsym:V3*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2503*/ curfptr[2502]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2495*/ curfptr[2494]));
  
  /*internsym:MAKE_TUPLE4*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2512*/ curfptr[2511]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2504*/ curfptr[2503]));
  
  /*internsym:V4*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2521*/ curfptr[2520]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2513*/ curfptr[2512]));
  
  /*internsym:MAKE_TUPLE5*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2531*/ curfptr[2530]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2523*/ curfptr[2522]));
  
  /*internsym:V5*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2541*/ curfptr[2540]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2533*/ curfptr[2532]));
  
  /*internsym:MAKE_TUPLE6*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2552*/ curfptr[2551]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2544*/ curfptr[2543]));
  
  /*internsym:V6*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2563*/ curfptr[2562]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2555*/ curfptr[2554]));
  
  /*internsym:MAKE_TUPLE7*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2575*/ curfptr[2574]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2567*/ curfptr[2566]));
  
  /*internsym:V7*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2587*/ curfptr[2586]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2579*/ curfptr[2578]));
  
  /*internsym:SUBSEQ_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2600*/ curfptr[2599]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2592*/ curfptr[2591]));
  
  /*internsym:STARTIX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2606*/ curfptr[2605]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2598*/ curfptr[2597]));
  
  /*internsym:ENDIX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2601*/ curfptr[2600]));
  
  /*internsym:MULTIPLE_NTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2617*/ curfptr[2616]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2609*/ curfptr[2608]));
  
  /*internsym:MULTIPLE_LENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2628*/ curfptr[2627]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2620*/ curfptr[2619]));
  
  /*internsym:MULTIPLE_PUT_NTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2637*/ curfptr[2636]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2629*/ curfptr[2628]));
  
  /*internsym:MULTIPLE_SORT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2650*/ curfptr[2649]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2642*/ curfptr[2641]));
  
  /*internsym:CMP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2656*/ curfptr[2655]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2648*/ curfptr[2647]));
  
  /*internsym:DISCRM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2659*/ curfptr[2658]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2651*/ curfptr[2650]));
  
  /*internsym:MATCHEDRK*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2678*/ curfptr[2677]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2670*/ curfptr[2669]));
  
  /*internsym:MATCHEDTUP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2682*/ curfptr[2681]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2674*/ curfptr[2673]));
  
  /*internsym:OUTCOMP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2685*/ curfptr[2684]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2677*/ curfptr[2676]));
  
  /*internsym:TUPNTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2688*/ curfptr[2687]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2680*/ curfptr[2679]));
  
  /*internsym:STRSAM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2707*/ curfptr[2706]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2699*/ curfptr[2698]));
  
  /*internsym:CSTRING_LENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2716*/ curfptr[2715]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2708*/ curfptr[2707]));
  
  /*internsym:TUP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2731*/ curfptr[2730]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2723*/ curfptr[2722]));
  
  /*internsym:TUPSIZ*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2734*/ curfptr[2733]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2726*/ curfptr[2725]));
  
  /*internsym:IS_MAPOBJECT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2740*/ curfptr[2739]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2732*/ curfptr[2731]));
  
  /*internsym:MAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2745*/ curfptr[2744]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2737*/ curfptr[2736]));
  
  /*internsym:MAPOBJECT_SIZE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2751*/ curfptr[2750]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2743*/ curfptr[2742]));
  
  /*internsym:MAPOBJECT_COUNT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2760*/ curfptr[2759]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2752*/ curfptr[2751]));
  
  /*internsym:MAPOBJECT_NTH_ATTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2769*/ curfptr[2768]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2761*/ curfptr[2760]));
  
  /*internsym:MAPOBJECT_NTH_VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2780*/ curfptr[2779]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2772*/ curfptr[2771]));
  
  /*internsym:MAPOBJECT_GET*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2791*/ curfptr[2790]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2783*/ curfptr[2782]));
  
  /*internsym:ATTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2797*/ curfptr[2796]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2789*/ curfptr[2788]));
  
  /*internsym:MAKE_MAPOBJECT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2804*/ curfptr[2803]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2796*/ curfptr[2795]));
  
  /*internsym:LEN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2810*/ curfptr[2809]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2802*/ curfptr[2801]));
  
  /*internsym:MAPOBJECT_PUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2817*/ curfptr[2816]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2809*/ curfptr[2808]));
  
  /*internsym:KEY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2823*/ curfptr[2822]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2815*/ curfptr[2814]));
  
  /*internsym:MAPOBJECT_REMOVE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2832*/ curfptr[2831]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2824*/ curfptr[2823]));
  
  /*internsym:OBJMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2846*/ curfptr[2845]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2838*/ curfptr[2837]));
  
  /*internsym:EACHOBMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2849*/ curfptr[2848]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2841*/ curfptr[2840]));
  
  /*internsym:CURAT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2852*/ curfptr[2851]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2844*/ curfptr[2843]));
  
  /*internsym:CURVA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2855*/ curfptr[2854]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2847*/ curfptr[2846]));
  
  /*internsym:IS_MAPSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2888*/ curfptr[2887]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2880*/ curfptr[2879]));
  
  /*internsym:MAPSTRING_SIZE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2897*/ curfptr[2896]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2889*/ curfptr[2888]));
  
  /*internsym:MAPSTRING_COUNT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2906*/ curfptr[2905]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2898*/ curfptr[2897]));
  
  /*internsym:MAPSTRING_RAWGET*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2915*/ curfptr[2914]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2907*/ curfptr[2906]));
  
  /*internsym:MAKE_MAPSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2926*/ curfptr[2925]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2918*/ curfptr[2917]));
  
  /*internsym:MAPSTRING_RAWPUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2937*/ curfptr[2936]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2929*/ curfptr[2928]));
  
  /*internsym:MAPSTRING_PUTSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2950*/ curfptr[2949]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2942*/ curfptr[2941]));
  
  /*internsym:KEYSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2956*/ curfptr[2955]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2948*/ curfptr[2947]));
  
  /*internsym:MAPSTRING_GETSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2965*/ curfptr[2964]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2957*/ curfptr[2956]));
  
  /*internsym:MAPSTRING_RAWREMOVE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2976*/ curfptr[2975]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2968*/ curfptr[2967]));
  
  /*internsym:MAPSTRING_REMOVESTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2987*/ curfptr[2986]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2979*/ curfptr[2978]));
  
  /*internsym:MAPSTRING_NTH_ATTRSTR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2998*/ curfptr[2997]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2990*/ curfptr[2989]));
  
  /*internsym:SDICR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3004*/ curfptr[3003]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V2996*/ curfptr[2995]));
  
  /*internsym:MAPSTRING_NTH_VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3013*/ curfptr[3012]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3005*/ curfptr[3004]));
  
  /*internsym:STRMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3027*/ curfptr[3026]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3019*/ curfptr[3018]));
  
  /*internsym:EACHSTRMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3030*/ curfptr[3029]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3022*/ curfptr[3021]));
  
  /*internsym:IS_ROUTINE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3081*/ curfptr[3080]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3073*/ curfptr[3072]));
  
  /*internsym:ROU*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3086*/ curfptr[3085]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3078*/ curfptr[3077]));
  
  /*internsym:ROUTINE_DESCR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3092*/ curfptr[3091]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3084*/ curfptr[3083]));
  
  /*internsym:ROUTINE_SIZE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3101*/ curfptr[3100]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3093*/ curfptr[3092]));
  
  /*internsym:ROUTINE_NTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3110*/ curfptr[3109]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3102*/ curfptr[3101]));
  
  /*internsym:IS_CLOSURE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3121*/ curfptr[3120]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3113*/ curfptr[3112]));
  
  /*internsym:CLO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3126*/ curfptr[3125]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3118*/ curfptr[3117]));
  
  /*internsym:CLOSURE_SIZE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3132*/ curfptr[3131]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3124*/ curfptr[3123]));
  
  /*internsym:CLOSURE_ROUTINE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3141*/ curfptr[3140]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3133*/ curfptr[3132]));
  
  /*internsym:CLOSURE_NTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3150*/ curfptr[3149]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3142*/ curfptr[3141]));
  
  /*internsym:IS_INTEGERBOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3161*/ curfptr[3160]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3153*/ curfptr[3152]));
  
  /*internsym:IB*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3166*/ curfptr[3165]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3158*/ curfptr[3157]));
  
  /*internsym:MAKE_INTEGERBOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3172*/ curfptr[3171]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3164*/ curfptr[3163]));
  
  /*internsym:BX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3187*/ curfptr[3186]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3179*/ curfptr[3178]));
  
  /*internsym:ICT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3190*/ curfptr[3189]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3182*/ curfptr[3181]));
  
  /*internsym:IBOXOF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3193*/ curfptr[3192]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3185*/ curfptr[3184]));
  
  /*internsym:IS_BOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3205*/ curfptr[3204]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3197*/ curfptr[3196]));
  
  /*internsym:BOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3210*/ curfptr[3209]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3202*/ curfptr[3201]));
  
  /*internsym:BOX_CONTENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3216*/ curfptr[3215]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3208*/ curfptr[3207]));
  
  /*internsym:BOX_PUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3225*/ curfptr[3224]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3217*/ curfptr[3216]));
  
  /*internsym:MAKE_BOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3236*/ curfptr[3235]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3228*/ curfptr[3227]));
  
  /*internsym:VALB*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3242*/ curfptr[3241]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3234*/ curfptr[3233]));
  
  /*internsym:IS_LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3249*/ curfptr[3248]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3241*/ curfptr[3240]));
  
  /*internsym:LI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3254*/ curfptr[3253]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3246*/ curfptr[3245]));
  
  /*internsym:IS_LIST_OR_NULL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3260*/ curfptr[3259]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3252*/ curfptr[3251]));
  
  /*internsym:LIST_FIRST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3270*/ curfptr[3269]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3262*/ curfptr[3261]));
  
  /*internsym:LIST_LAST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3279*/ curfptr[3278]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3271*/ curfptr[3270]));
  
  /*internsym:LIST_LENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3288*/ curfptr[3287]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3280*/ curfptr[3279]));
  
  /*internsym:LIST_APPEND*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3297*/ curfptr[3296]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3289*/ curfptr[3288]));
  
  /*internsym:EL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3303*/ curfptr[3302]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3295*/ curfptr[3294]));
  
  /*internsym:LIST_PREPEND*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3310*/ curfptr[3309]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3302*/ curfptr[3301]));
  
  /*internsym:LIST_POPFIRST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3321*/ curfptr[3320]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3313*/ curfptr[3312]));
  
  /*internsym:MAKE_LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3330*/ curfptr[3329]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3322*/ curfptr[3321]));
  
  /*internsym:IS_PAIR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3339*/ curfptr[3338]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3331*/ curfptr[3330]));
  
  /*internsym:PA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3344*/ curfptr[3343]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3336*/ curfptr[3335]));
  
  /*internsym:PAIR_HEAD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3350*/ curfptr[3349]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3342*/ curfptr[3341]));
  
  /*internsym:PAIR_TAIL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3359*/ curfptr[3358]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3351*/ curfptr[3350]));
  
  /*internsym:PAIR_SET_HEAD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3368*/ curfptr[3367]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3360*/ curfptr[3359]));
  
  /*internsym:HD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3374*/ curfptr[3373]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3366*/ curfptr[3365]));
  
  /*internsym:PAIR_LISTLENGTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3381*/ curfptr[3380]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3373*/ curfptr[3372]));
  
  /*internsym:MAKE_PAIR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3390*/ curfptr[3389]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3382*/ curfptr[3381]));
  
  /*internsym:TL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3389*/ curfptr[3388]));
  
  /*internsym:IS_MIXINT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3405*/ curfptr[3404]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3397*/ curfptr[3396]));
  
  /*internsym:MI*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3410*/ curfptr[3409]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3402*/ curfptr[3401]));
  
  /*internsym:MIXINT_VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3416*/ curfptr[3415]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3408*/ curfptr[3407]));
  
  /*internsym:MAKE_MIXINT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3425*/ curfptr[3424]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3417*/ curfptr[3416]));
  
  /*internsym:IS_MIXLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3438*/ curfptr[3437]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3430*/ curfptr[3429]));
  
  /*internsym:MIXLOC_VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3447*/ curfptr[3446]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3439*/ curfptr[3438]));
  
  /*internsym:MIXLOC_LOCATION*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3456*/ curfptr[3455]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3448*/ curfptr[3447]));
  
  /*internsym:MIXLOC_LOCLINE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3465*/ curfptr[3464]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3457*/ curfptr[3456]));
  
  /*internsym:MIXLOC_LOCFILE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3474*/ curfptr[3473]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3466*/ curfptr[3465]));
  
  /*internsym:MAKE_MIXLOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3475*/ curfptr[3474]));
  
  /*internsym:LOC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3491*/ curfptr[3490]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3483*/ curfptr[3482]));
  
  /*internsym:IS_MIXBIGINT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3500*/ curfptr[3499]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3492*/ curfptr[3491]));
  
  /*internsym:MB*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3505*/ curfptr[3504]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3497*/ curfptr[3496]));
  
  /*internsym:MIXBIGINT_VAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3511*/ curfptr[3510]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3503*/ curfptr[3502]));
  
  /*internsym:PPSTRBUF_MIXBIGINT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3520*/ curfptr[3519]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3512*/ curfptr[3511]));
  
  /*internsym:INDENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3526*/ curfptr[3525]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3518*/ curfptr[3517]));
  
  /*internsym:READ_FILE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3535*/ curfptr[3534]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3527*/ curfptr[3526]));
  
  /*internsym:FILNAM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3540*/ curfptr[3539]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3532*/ curfptr[3531]));
  
  /*internsym:ERROR_STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3546*/ curfptr[3545]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3538*/ curfptr[3537]));
  
  /*internsym:CMSG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3552*/ curfptr[3551]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3544*/ curfptr[3543]));
  
  /*internsym:ERROR_PLAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3561*/ curfptr[3560]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3553*/ curfptr[3552]));
  
  /*internsym:WARNING_STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3572*/ curfptr[3571]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3564*/ curfptr[3563]));
  
  /*internsym:WARNING_PLAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3585*/ curfptr[3584]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3577*/ curfptr[3576]));
  
  /*internsym:WARNINGMSG_PLAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3596*/ curfptr[3595]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3588*/ curfptr[3587]));
  
  /*internsym:WARNINGMSG_STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3605*/ curfptr[3604]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3597*/ curfptr[3596]));
  
  /*internsym:ERRORMSG_PLAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3616*/ curfptr[3615]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3608*/ curfptr[3607]));
  
  /*internsym:ERRORMSG_STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3625*/ curfptr[3624]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3617*/ curfptr[3616]));
  
  /*internsym:INFORM_STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3636*/ curfptr[3635]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3628*/ curfptr[3627]));
  
  /*internsym:INFORM_PLAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3649*/ curfptr[3648]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3641*/ curfptr[3640]));
  
  /*internsym:INFORMSG_STRV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3660*/ curfptr[3659]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3652*/ curfptr[3651]));
  
  /*internsym:INFORMSG_PLAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3671*/ curfptr[3670]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3663*/ curfptr[3662]));
  
  /*internsym:INFORMSG_LONG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3680*/ curfptr[3679]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3672*/ curfptr[3671]));
  
  /*internsym:DISCR_NAME_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3683*/ curfptr[3682]));
  
  /*internsym:DISCR_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3694*/ curfptr[3693]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3686*/ curfptr[3685]));
  
  /*internsym:DISCR_VERBATIM_STRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3699*/ curfptr[3698]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3691*/ curfptr[3690]));
  
  /*internsym:DISCR_ANY_RECEIVER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3703*/ curfptr[3702]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3695*/ curfptr[3694]));
  
  /*internsym:DISCR_NULL_RECEIVER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3707*/ curfptr[3706]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3699*/ curfptr[3698]));
  
  /*internsym:DISCR_STRBUF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3711*/ curfptr[3710]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3703*/ curfptr[3702]));
  
  /*internsym:DISCR_INTEGER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3715*/ curfptr[3714]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3707*/ curfptr[3706]));
  
  /*internsym:DISCR_CONSTANT_INTEGER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3719*/ curfptr[3718]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3711*/ curfptr[3710]));
  
  /*internsym:DISCR_LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3723*/ curfptr[3722]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3715*/ curfptr[3714]));
  
  /*internsym:DISCR_PAIR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3727*/ curfptr[3726]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3719*/ curfptr[3718]));
  
  /*internsym:DISCR_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3731*/ curfptr[3730]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3723*/ curfptr[3722]));
  
  /*internsym:DISCR_FIELD_SEQUENCE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3735*/ curfptr[3734]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3727*/ curfptr[3726]));
  
  /*internsym:DISCR_BOX*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3739*/ curfptr[3738]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3731*/ curfptr[3730]));
  
  /*internsym:DISCR_TREE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3743*/ curfptr[3742]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3735*/ curfptr[3734]));
  
  /*internsym:DISCR_GIMPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3747*/ curfptr[3746]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3739*/ curfptr[3738]));
  
  /*internsym:DISCR_GIMPLE_SEQ*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3751*/ curfptr[3750]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3743*/ curfptr[3742]));
  
  /*internsym:DISCR_EDGE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3755*/ curfptr[3754]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3747*/ curfptr[3746]));
  
  /*internsym:DISCR_BASIC_BLOCK*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3759*/ curfptr[3758]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3751*/ curfptr[3750]));
  
  /*internsym:DISCR_MAP_OBJECTS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3763*/ curfptr[3762]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3755*/ curfptr[3754]));
  
  /*internsym:DISCR_MAP_STRINGS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3767*/ curfptr[3766]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3759*/ curfptr[3758]));
  
  /*internsym:DISCR_MAP_TREES*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3771*/ curfptr[3770]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3763*/ curfptr[3762]));
  
  /*internsym:DISCR_MAP_GIMPLES*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3775*/ curfptr[3774]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3767*/ curfptr[3766]));
  
  /*internsym:DISCR_MAP_GIMPLE_SEQS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3779*/ curfptr[3778]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3771*/ curfptr[3770]));
  
  /*internsym:DISCR_MAP_EDGES*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3783*/ curfptr[3782]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3775*/ curfptr[3774]));
  
  /*internsym:DISCR_MAP_BASIC_BLOCKS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3787*/ curfptr[3786]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3779*/ curfptr[3778]));
  
  /*internsym:DISCR_PPL_CONSTRAINT_SYSTEM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3791*/ curfptr[3790]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3783*/ curfptr[3782]));
  
  /*internsym:DISCR_PPL_POLYHEDRON*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3795*/ curfptr[3794]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3787*/ curfptr[3786]));
  
  /*internsym:DISCR_FILE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3799*/ curfptr[3798]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3791*/ curfptr[3790]));
  
  /*internsym:DISCR_RAWFILE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3803*/ curfptr[3802]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3795*/ curfptr[3794]));
  
  /*internsym:DISCR_CLASS_SEQUENCE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3807*/ curfptr[3806]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3799*/ curfptr[3798]));
  
  /*internsym:DISCR_METHOD_MAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3811*/ curfptr[3810]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3803*/ curfptr[3802]));
  
  /*internsym:DISCR_CHARACTER_INTEGER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3815*/ curfptr[3814]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3807*/ curfptr[3806]));
  
  /*internsym:DISCR_MIXED_INTEGER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3819*/ curfptr[3818]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3811*/ curfptr[3810]));
  
  /*internsym:DISCR_MIXED_BIGINT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3823*/ curfptr[3822]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3815*/ curfptr[3814]));
  
  /*internsym:DISCR_MIXED_LOCATION*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3827*/ curfptr[3826]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3819*/ curfptr[3818]));
  
  /*internsym:DISCR_CLOSURE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3831*/ curfptr[3830]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3823*/ curfptr[3822]));
  
  /*internsym:DISCR_ROUTINE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3835*/ curfptr[3834]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3827*/ curfptr[3826]));
  
  /*internsym:CTYPE_VALUE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3841*/ curfptr[3840]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3833*/ curfptr[3832]));
  
  /*internkeyw:VALUE*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3837*/ curfptr[3836]));
  
  /*internsym:CTYPE_LONG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3853*/ curfptr[3852]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3845*/ curfptr[3844]));
  
  /*internkeyw:LONG*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3857*/ curfptr[3856]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3849*/ curfptr[3848]));
  
  /*internsym:CTYPE_TREE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3864*/ curfptr[3863]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3856*/ curfptr[3855]));
  
  /*internkeyw:TREE*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3860*/ curfptr[3859]));
  
  /*internsym:CTYPE_GIMPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3876*/ curfptr[3875]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3868*/ curfptr[3867]));
  
  /*internkeyw:GIMPLE*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3872*/ curfptr[3871]));
  
  /*internsym:CTYPE_GIMPLE_SEQ*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3888*/ curfptr[3887]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3880*/ curfptr[3879]));
  
  /*internkeyw:GIMPLE_SEQ*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3884*/ curfptr[3883]));
  
  /*internsym:CTYPE_BASIC_BLOCK*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3900*/ curfptr[3899]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3892*/ curfptr[3891]));
  
  /*internkeyw:BASIC_BLOCK*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3896*/ curfptr[3895]));
  
  /*internsym:CTYPE_EDGE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3912*/ curfptr[3911]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3904*/ curfptr[3903]));
  
  /*internkeyw:EDGE*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3908*/ curfptr[3907]));
  
  /*internsym:CTYPE_PPL_COEFFICIENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3924*/ curfptr[3923]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3916*/ curfptr[3915]));
  
  /*internkeyw:PPL_COEFFICIENT*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3928*/ curfptr[3927]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3920*/ curfptr[3919]));
  
  /*internsym:CTYPE_PPL_LINEAR_EXPRESSION*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3935*/ curfptr[3934]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3927*/ curfptr[3926]));
  
  /*internkeyw:PPL_LINEAR_EXPRESSION*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3939*/ curfptr[3938]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3931*/ curfptr[3930]));
  
  /*internsym:CTYPE_PPL_CONSTRAINT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3946*/ curfptr[3945]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3938*/ curfptr[3937]));
  
  /*internkeyw:PPL_CONSTRAINT*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3950*/ curfptr[3949]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3942*/ curfptr[3941]));
  
  /*internsym:CTYPE_PPL_CONSTRAINT_SYSTEM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3957*/ curfptr[3956]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3949*/ curfptr[3948]));
  
  /*internkeyw:PPL_CONSTRAINT_SYSTEM*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3961*/ curfptr[3960]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3953*/ curfptr[3952]));
  
  /*internsym:CTYPE_PPL_POLYHEDRON*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3968*/ curfptr[3967]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3960*/ curfptr[3959]));
  
  /*internkeyw:PPL_POLYHEDRON*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3972*/ curfptr[3971]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3964*/ curfptr[3963]));
  
  /*internsym:CTYPE_VOID*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3979*/ curfptr[3978]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3971*/ curfptr[3970]));
  
  /*internkeyw:VOID*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3975*/ curfptr[3974]));
  
  /*internsym:CTYPE_CSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3986*/ curfptr[3985]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3978*/ curfptr[3977]));
  
  /*internkeyw:CSTRING*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3991*/ curfptr[3990]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V3983*/ curfptr[3982]));
  
  /*internsym:CONTAINER_CLONEMAPSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4004*/ curfptr[4003]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V3996*/ curfptr[3995]));
  
  /*internsym:CLASS_DELAYED_QUEUE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4075*/ curfptr[4074]));
  
  /*internsym:DELQU_FIRST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4085*/ curfptr[4084]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4077*/ curfptr[4076]));
  
  /*internsym:DELQU_LAST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4087*/ curfptr[4086]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4079*/ curfptr[4078]));
  
  /*internsym:DELQU_DATA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4081*/ curfptr[4080]));
  
  /*internsym:FINAL_DELAYED_QUEUE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4091*/ curfptr[4090]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4083*/ curfptr[4082]));
  
  /*internsym:START_UNIT_DELAYED_QUEUE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4097*/ curfptr[4096]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4089*/ curfptr[4088]));
  
  /*internsym:FINISH_UNIT_DELAYED_QUEUE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4095*/ curfptr[4094]));
  
  /*internsym:INITIAL_SYSTEM_DATA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4111*/ curfptr[4110]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4103*/ curfptr[4102]));
  
  /*internsym:LIS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4124*/ curfptr[4123]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4116*/ curfptr[4115]));
  
  /*internsym:EACHLIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4127*/ curfptr[4126]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4119*/ curfptr[4118]));
  
  /*internsym:CURPAIR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4130*/ curfptr[4129]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4122*/ curfptr[4121]));
  
  /*internsym:CURCOMP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4133*/ curfptr[4132]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4125*/ curfptr[4124]));
  
  /*internsym:EACHTUP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4166*/ curfptr[4165]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4158*/ curfptr[4157]));
  
  /*internsym:COMP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4169*/ curfptr[4168]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4161*/ curfptr[4160]));
  
  /*internsym:EACHTUPBACK*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4194*/ curfptr[4193]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4186*/ curfptr[4185]));
  
  /*internsym:DBG_OUTPUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4247*/ curfptr[4246]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4239*/ curfptr[4238]));
  
  /*internsym:RECV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4241*/ curfptr[4240]));
  
  /*internsym:DBGINFO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4252*/ curfptr[4251]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4244*/ curfptr[4243]));
  
  /*internsym:DBG_OUTPUTAGAIN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4257*/ curfptr[4256]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4249*/ curfptr[4248]));
  
  /*internsym:DBGOUT_NAMEDOBJECT_METHOD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4317*/ curfptr[4316]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4309*/ curfptr[4308]));
  
  /*internsym:INITIAL_ENVIRONMENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4341*/ curfptr[4340]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4333*/ curfptr[4332]));
  
  /*internsym:LIST_FIND*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4356*/ curfptr[4355]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4348*/ curfptr[4347]));
  
  /*internsym:AT_EXIT_FIRST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4358*/ curfptr[4357]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4350*/ curfptr[4349]));
  
  /*internsym:AT_EXIT_LAST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4360*/ curfptr[4359]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4352*/ curfptr[4351]));
  
  /*internsym:AT_FINISH_UNIT_FIRST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4362*/ curfptr[4361]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4354*/ curfptr[4353]));
  
  /*internsym:AT_FINISH_UNIT_LAST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4364*/ curfptr[4363]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4356*/ curfptr[4355]));
  
  /*internsym:AT_START_UNIT_FIRST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4366*/ curfptr[4365]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4358*/ curfptr[4357]));
  
  /*internsym:AT_START_UNIT_LAST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4368*/ curfptr[4367]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4360*/ curfptr[4359]));
  
  /*internsym:CLONE_SYMBOL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4370*/ curfptr[4369]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4362*/ curfptr[4361]));
  
  /*internsym:CLOSURE_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4372*/ curfptr[4371]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4364*/ curfptr[4363]));
  
  /*internsym:COMPARE_NAMED_ALPHA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4374*/ curfptr[4373]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4366*/ curfptr[4365]));
  
  /*internsym:COMPARE_OBJ_RANKED*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4376*/ curfptr[4375]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4368*/ curfptr[4367]));
  
  /*internsym:CSTRING_SAME*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4378*/ curfptr[4377]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4370*/ curfptr[4369]));
  
  /*internsym:DBG_OUT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4380*/ curfptr[4379]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4372*/ curfptr[4371]));
  
  /*internsym:DBG_OUTOBJECT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4382*/ curfptr[4381]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4374*/ curfptr[4373]));
  
  /*internsym:DBGOUT_FIELDS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4384*/ curfptr[4383]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4376*/ curfptr[4375]));
  
  /*internsym:DBGOUTAGAIN_FIELDS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4386*/ curfptr[4385]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4378*/ curfptr[4377]));
  
  /*internsym:DEBUG_MSG_FUN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4388*/ curfptr[4387]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4380*/ curfptr[4379]));
  
  /*internsym:DEBUGMSG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4390*/ curfptr[4389]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4382*/ curfptr[4381]));
  
  /*internsym:DISPLAY_DEBUG_MESSAGE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4392*/ curfptr[4391]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4384*/ curfptr[4383]));
  
  /*internsym:FIND_ENCLOSING_ENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4394*/ curfptr[4393]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4386*/ curfptr[4385]));
  
  /*internsym:FIND_ENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4396*/ curfptr[4395]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4388*/ curfptr[4387]));
  
  /*internsym:FIND_ENV_DEBUG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4398*/ curfptr[4397]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4390*/ curfptr[4389]));
  
  /*internsym:FRESH_ENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4400*/ curfptr[4399]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4392*/ curfptr[4391]));
  
  /*internsym:INSTALL_CTYPE_DESCR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4402*/ curfptr[4401]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4394*/ curfptr[4393]));
  
  /*internsym:INSTALL_METHOD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4404*/ curfptr[4403]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4396*/ curfptr[4395]));
  
  /*internsym:LIST1*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4406*/ curfptr[4405]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4398*/ curfptr[4397]));
  
  /*internsym:LIST2*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4408*/ curfptr[4407]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4400*/ curfptr[4399]));
  
  /*internsym:LIST3*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4410*/ curfptr[4409]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4402*/ curfptr[4401]));
  
  /*internsym:LIST4*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4412*/ curfptr[4411]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4404*/ curfptr[4403]));
  
  /*internsym:LIST5*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4414*/ curfptr[4413]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4406*/ curfptr[4405]));
  
  /*internsym:LIST6*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4416*/ curfptr[4415]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4408*/ curfptr[4407]));
  
  /*internsym:LIST_APPEND2LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4418*/ curfptr[4417]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4410*/ curfptr[4409]));
  
  /*internsym:LIST_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4420*/ curfptr[4419]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4412*/ curfptr[4411]));
  
  /*internsym:LIST_ITERATE_TEST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4422*/ curfptr[4421]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4414*/ curfptr[4413]));
  
  /*internsym:LIST_MAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4424*/ curfptr[4423]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4416*/ curfptr[4415]));
  
  /*internsym:LIST_TO_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4426*/ curfptr[4425]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4418*/ curfptr[4417]));
  
  /*internsym:MAPOBJECT_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4428*/ curfptr[4427]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4420*/ curfptr[4419]));
  
  /*internsym:MAPOBJECT_ITERATE_TEST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4430*/ curfptr[4429]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4422*/ curfptr[4421]));
  
  /*internsym:MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4432*/ curfptr[4431]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4424*/ curfptr[4423]));
  
  /*internsym:MAPSTRING_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4434*/ curfptr[4433]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4426*/ curfptr[4425]));
  
  /*internsym:MAPSTRING_ITERATE_TEST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4436*/ curfptr[4435]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4428*/ curfptr[4427]));
  
  /*internsym:MULTIPLE_BACKWARD_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4438*/ curfptr[4437]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4430*/ curfptr[4429]));
  
  /*internsym:MULTIPLE_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4440*/ curfptr[4439]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4432*/ curfptr[4431]));
  
  /*internsym:MULTIPLE_EVERY_BOTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4442*/ curfptr[4441]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4434*/ curfptr[4433]));
  
  /*internsym:MULTIPLE_ITERATE_TEST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4444*/ curfptr[4443]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4436*/ curfptr[4435]));
  
  /*internsym:MULTIPLE_MAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4446*/ curfptr[4445]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4438*/ curfptr[4437]));
  
  /*internsym:MULTIPLE_TO_LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4448*/ curfptr[4447]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4440*/ curfptr[4439]));
  
  /*internsym:OVERWRITE_ENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4450*/ curfptr[4449]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4442*/ curfptr[4441]));
  
  /*internsym:PAIRLIST_TO_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4452*/ curfptr[4451]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4444*/ curfptr[4443]));
  
  /*internsym:POST_INITIALIZATION*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4454*/ curfptr[4453]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4446*/ curfptr[4445]));
  
  /*internsym:PUT_ENV*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4456*/ curfptr[4455]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4448*/ curfptr[4447]));
  
  /*internsym:ROUTINE_EVERY*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4458*/ curfptr[4457]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4450*/ curfptr[4449]));
  
  /*internsym:TUPLE_NTH*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4460*/ curfptr[4459]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4452*/ curfptr[4451]));
  
  /*internsym:TUPLE_SIZED*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4462*/ curfptr[4461]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4454*/ curfptr[4453]));
  
  /*internsym:FOREACH_IN_LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4464*/ curfptr[4463]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4456*/ curfptr[4455]));
  
  /*internsym:FOREACH_IN_MAPOBJECT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4466*/ curfptr[4465]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4458*/ curfptr[4457]));
  
  /*internsym:FOREACH_IN_MAPSTRING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4468*/ curfptr[4467]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4460*/ curfptr[4459]));
  
  /*internsym:FOREACH_IN_MULTIPLE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4470*/ curfptr[4469]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4462*/ curfptr[4461]));
  
  /*internsym:FOREACH_IN_MULTIPLE_BACKWARD*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4472*/ curfptr[4471]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4464*/ curfptr[4463]));
  
  /*internsym:FOREACH_LONG_UPTO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4474*/ curfptr[4473]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4466*/ curfptr[4465]));
  
  /*internsym:INTEGERBOX_OF*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4476*/ curfptr[4475]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4468*/ curfptr[4467]));
  
  /*internkeyw:TRUE*/
- (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V4478*/ curfptr[4477]));
+ (void) meltgc_intern_keyword((melt_ptr_t)(/*_.VALDATA___V4470*/ curfptr[4469]));
  
  /*internsym:DISPLAYDEBUGMSG*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4480*/ curfptr[4479]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V4472*/ curfptr[4471]));
  
  /**COMMENT: set retinit from boxloc **/;
  
@@ -121988,7 +103039,7 @@ void mark_module_melt(void*fp)
 {
  int ix=0;
  initial_frame_st* framptr_= (initial_frame_st*)fp;
- for(ix=0; ix<4551; ix++)
+ for(ix=0; ix<4543; ix++)
     if (framptr_->varptr[ix])
      gt_ggc_mx_melt_un (framptr_->varptr[ix]);
    
@@ -122085,8 +103136,6 @@ const int meltfieldoff__MELTMODE_FUN = 3;
 const int meltfieldoff__MELTMODE_HELP = 2;
 const int meltfieldoff__MOCX_EXPCLASSDICT = 2;
 const int meltfieldoff__MOCX_EXPFIELDICT = 1;
-const int meltfieldoff__MOCX_FILETUPLE = 5;
-const int meltfieldoff__MOCX_FUNCOUNT = 4;
 const int meltfieldoff__MOCX_INITIALENV = 3;
 const int meltfieldoff__MOCX_MODULENAME = 0;
 const int meltfieldoff__NAMED_NAME = 1;
@@ -122183,7 +103232,7 @@ const int meltclasslen__CLASS_LET_BINDING = 4;
 const int meltclasslen__CLASS_LOCATED = 2;
 const int meltclasslen__CLASS_MACRO_BINDING = 2;
 const int meltclasslen__CLASS_MELT_MODE = 5;
-const int meltclasslen__CLASS_MODULE_CONTEXT = 6;
+const int meltclasslen__CLASS_MODULE_CONTEXT = 4;
 const int meltclasslen__CLASS_NAMED = 2;
 const int meltclasslen__CLASS_NORMALIZATION_CONTEXT = 15;
 const int meltclasslen__CLASS_NORMAL_LET_BINDING = 4;
@@ -122201,4 +103250,4 @@ const int meltclasslen__CLASS_SYSTEM_DATA = 27;
 const int meltclasslen__CLASS_VALUE_BINDING = 2;
 
 
-/**** end of warmelt-first.3.c ****/
+/**** end of warmelt-first.0.c ****/
diff --git a/gcc/melt/warmelt-genobj.0+1.c b/gcc/melt/warmelt-genobj.0+1.c
new file mode 100644
index 00000000000..e4d57feabe0
--- /dev/null
+++ b/gcc/melt/warmelt-genobj.0+1.c
@@ -0,0 +1,19844 @@
+/* GCC MELT GENERATED FILE warmelt-genobj.0+1.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #1 */
+#include "run-melt.h"
+
+/**** warmelt-genobj.0+1.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_genobj_COMPILOBJ_CATCHALL_NREP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_genobj_PUTOBJDEST_CATCHALL_OBJCODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_genobj_PUTOBJDEST_CATCHALL_ANYDISCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_genobj_GETCTYPE_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_genobj_GECTYP_OBJNIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_genobj_DBGOUT_ROUTINEOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_genobj_PUTOBJDEST_OBJDESTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_genobj_PUTOBJDEST_OBJFINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_genobj_COMPILE2OBJ_PROCEDURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_genobj_APPEND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_genobj_APPEND_COMMENTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_genobj_COMPILE2OBJ_INITPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_genobj_GET_FREE_OBJLOCPTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_genobj_GET_FREE_OBJLOCLONG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_genobj_GET_FREE_OBJLOCTYPED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_genobj_DISPOSE_OBJLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_genobj_DISPOSE_BND_OBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_genobj_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_genobj_GETCTYPE_TYPEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_genobj_COMPILOBJ_NREP_NIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_genobj_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_genobj_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_genobj_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_genobj_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_genobj_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_genobj_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_genobj_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_genobj_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_genobj_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_genobj_COMPILOBJ_DISCRANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_genobj_COMPILOBJ_NREP_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_genobj_PUTOBJDEST_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_genobj_PUTOBJDEST_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-genobj.0+1.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_44_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 40
+  void* varptr[40];
+#define CURFRAM_NBVARNUM 17
+  long varnum[17];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<40; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 40;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ getarg");
+ /*_.NLBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1791:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1792:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1792:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1792:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding loc";
+    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
+    argtab[3].bp_long = 1792;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1792:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1792:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1792:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1793:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1793:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1793:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1793:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding nlbnd";
+    MELT_LOCATION("warmelt-genobj.melt:1793:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1793:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1793:/ apply.arg");
+    argtab[3].bp_long = 1793;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1793:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1793:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1793:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1794:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1794:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1794:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1794:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding locmap";
+    MELT_LOCATION("warmelt-genobj.melt:1794:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1794:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1794:/ apply.arg");
+    argtab[3].bp_long = 1794;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOCMAP*/ curfclos->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1794:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1795:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1795:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:1795:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1795:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1795:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1795:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1795:/ locexp");
+      melt_assert_failed(( "check nlbnd in compilobj_nrep_let"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1795)?(1795):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1795:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1795:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1795:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1796:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V11*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1797:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1798:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1799:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:1799:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V11*/ curfptr[9];
+   MELT_LOCATION("warmelt-genobj.melt:1799:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V12*/ curfptr[11];
+   /*_.OBVA__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[2])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1801:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1801:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1801:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1801:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding obva";
+     MELT_LOCATION("warmelt-genobj.melt:1801:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:1801:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1801:/ apply.arg");
+     argtab[3].bp_long = 1801;
+     /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1801:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1801:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1801:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1802:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1802:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1802:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding nexp";
+     MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
+     argtab[3].bp_long = 1802;
+     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1802:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1802:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1802:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:1803:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:1803:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1803:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]);
+    /*_.OBNX__V19*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1804:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1804:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:1804:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:1804:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding obnx";
+      MELT_LOCATION("warmelt-genobj.melt:1804:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1];
+      MELT_LOCATION("warmelt-genobj.melt:1804:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:1804:/ apply.arg");
+      argtab[3].bp_long = 1804;
+      /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1804:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1804:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1804:/ cppif.else");
+   /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_#IS_A__L9*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[4])));;
+   MELT_LOCATION("warmelt-genobj.melt:1805:/ cond");
+   /*cond*/ if (/*_#IS_A__L9*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1805:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1805:/ block");
+    /*block*/{
+     /*_#IS_OBJECT__L10*/ curfnum[9] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17])) == OBMAG_OBJECT);;
+     /*_#NOT__L11*/ curfnum[10] = 
+      (!(/*_#IS_OBJECT__L10*/ curfnum[9]));;
+     MELT_LOCATION("warmelt-genobj.melt:1806:/ cond");
+     /*cond*/ if (/*_#NOT__L11*/ curfnum[10]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:1806:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1806:/ block");
+      /*block*/{
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-genobj.melt:1808:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1808:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
+          callcount;;
+         MELT_LOCATION("warmelt-genobj.melt:1808:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-genobj.melt:1808:/ apply.arg");
+          argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding faulty nexp";
+          MELT_LOCATION("warmelt-genobj.melt:1808:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
+          MELT_LOCATION("warmelt-genobj.melt:1808:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-genobj.melt";
+          MELT_LOCATION("warmelt-genobj.melt:1808:/ apply.arg");
+          argtab[3].bp_long = 1808;
+          /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:1808:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:1808:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-genobj.melt:1808:/ cppif.else");
+       /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-genobj.melt:1809:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1809:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
+          callcount;;
+         MELT_LOCATION("warmelt-genobj.melt:1809:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-genobj.melt:1809:/ apply.arg");
+          argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding faulty obnx";
+          MELT_LOCATION("warmelt-genobj.melt:1809:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
+          MELT_LOCATION("warmelt-genobj.melt:1809:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-genobj.melt";
+          MELT_LOCATION("warmelt-genobj.melt:1809:/ apply.arg");
+          argtab[3].bp_long = 1809;
+          /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:1809:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:1809:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-genobj.melt:1809:/ cppif.else");
+       /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-genobj.melt:1810:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1810:/ block");
+        /*block*/{
+         /*_#IS_OBJECT__L14*/ curfnum[11] = 
+          (melt_magic_discr((melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17])) == OBMAG_OBJECT);;
+         MELT_LOCATION("warmelt-genobj.melt:1810:/ cond");
+         /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[11]) /*then*/ {
+         MELT_LOCATION("warmelt-genobj.melt:1810:/ cond.then");
+         /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
+         } else {MELT_LOCATION("warmelt-genobj.melt:1810:/ cond.else");
+         
+          MELT_LOCATION("warmelt-genobj.melt:1810:/ block");
+          /*block*/{
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-genobj.melt:1810:/ locexp");
+            melt_assert_failed(( "compilobj_nrep_let check obnx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1810)?(1810):__LINE__, __FUNCTION__);
+;}
+            ;
+            /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+           ;
+           /*epilog*/}
+          ;
+          }
+         ;
+         /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:1810:/ clear");
+         /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[11] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:1810:/ clear");
+         /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-genobj.melt:1810:/ cppif.else");
+       /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-genobj.melt:1807:/ block");
+       /*block*/{
+        /*_.PROGN___V30*/ curfptr[28] = /*_.IFCPP___V28*/ curfptr[26];;}
+       ;
+       /*_.IF___V23*/ curfptr[22] = /*_.PROGN___V30*/ curfptr[28];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:1806:/ clear");
+       /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:1806:/ clear");
+       /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:1806:/ clear");
+       /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:1806:/ clear");
+       /*clear*/ /*_.PROGN___V30*/ curfptr[28] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:1806:/ cond.else");
+     
+      /*_.IF___V23*/ curfptr[22] = NULL;;
+      }
+     ;
+     /*_.IF___V22*/ curfptr[20] = /*_.IF___V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1805:/ clear");
+     /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1805:/ clear");
+     /*clear*/ /*_#NOT__L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1805:/ clear");
+     /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1805:/ cond.else");
+   
+    /*_.IF___V22*/ curfptr[20] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1811:/ cond");
+   /*cond*/ if (/*_.OBVA__V14*/ curfptr[13]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1811:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1811:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:1814:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.NLBND__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBVA__V14*/ curfptr[13]));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:1815:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:1815:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:1815:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBVA__V14*/ curfptr[13];
+       /*_.OBPD__V31*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:1816:/ cond");
+      /*cond*/ if (/*_.OBPD__V31*/ curfptr[23]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:1816:/ cond.then");
+      /*_.OBMY__V32*/ curfptr[24] = /*_.OBPD__V31*/ curfptr[23];;
+      } else {MELT_LOCATION("warmelt-genobj.melt:1816:/ cond.else");
+      
+       /*_.OBMY__V32*/ curfptr[24] = /*_.OBNX__V19*/ curfptr[17];;
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:1818:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:1818:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:1818:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:1818:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_let current obpd";
+         MELT_LOCATION("warmelt-genobj.melt:1818:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[11];
+         MELT_LOCATION("warmelt-genobj.melt:1818:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:1818:/ apply.arg");
+         argtab[3].bp_long = 1818;
+         /*_.DEBUG_MSG_FUN__V34*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBPD__V31*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V33*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[28];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:1818:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:1818:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[28] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:1818:/ cppif.else");
+      /*_.IFCPP___V33*/ curfptr[26] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:1819:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:1819:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L16*/ curfnum[9] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:1819:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:1819:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_let append obmy";
+         MELT_LOCATION("warmelt-genobj.melt:1819:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[9];
+         MELT_LOCATION("warmelt-genobj.melt:1819:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:1819:/ apply.arg");
+         argtab[3].bp_long = 1819;
+         /*_.DEBUG_MSG_FUN__V36*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBMY__V32*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V35*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[28];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:1819:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[9] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:1819:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[28] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:1819:/ cppif.else");
+      /*_.IFCPP___V35*/ curfptr[22] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1820:/ locexp");
+      meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OBMY__V32*/ curfptr[24]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:1815:/ clear");
+      /*clear*/ /*_.OBPD__V31*/ curfptr[23] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1815:/ clear");
+      /*clear*/ /*_.OBMY__V32*/ curfptr[24] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1815:/ clear");
+      /*clear*/ /*_.IFCPP___V33*/ curfptr[26] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1815:/ clear");
+      /*clear*/ /*_.IFCPP___V35*/ curfptr[22] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:1813:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1811:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1811:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:1824:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1824:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L17*/ curfnum[10] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:1824:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:1824:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_let append obnx";
+        MELT_LOCATION("warmelt-genobj.melt:1824:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[10];
+        MELT_LOCATION("warmelt-genobj.melt:1824:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:1824:/ apply.arg");
+        argtab[3].bp_long = 1824;
+        /*_.DEBUG_MSG_FUN__V38*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V37*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[23];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:1824:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[10] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:1824:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[23] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:1824:/ cppif.else");
+     /*_.IFCPP___V37*/ curfptr[28] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:1825:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:1822:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1811:/ clear");
+     /*clear*/ /*_.IFCPP___V37*/ curfptr[28] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1828:/ cond");
+   /*cond*/ if (/*_.OBVA__V14*/ curfptr[13]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1828:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1828:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:1829:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:1829:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:1829:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[6])), (2), "CLASS_OBJCLEAR");/*_.INST__V40*/ curfptr[26] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:1829:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[26])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V40*/ curfptr[26]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:1829:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[26])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V40*/ curfptr[26]), (1), (/*_.OBVA__V14*/ curfptr[13]), "OCLR_VLOC");
+       ;
+       /*_.OBCL__V39*/ curfptr[24] = /*_.INST__V40*/ curfptr[26];;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1833:/ locexp");
+      meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OBCL__V39*/ curfptr[24]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:1829:/ clear");
+      /*clear*/ /*_.OBCL__V39*/ curfptr[24] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
+   /*clear*/ /*_.OBNX__V19*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
+   /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
+   /*clear*/ /*_#IS_A__L9*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
+   /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ clear");
+  /*clear*/ /*_.BDER__V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ clear");
+  /*clear*/ /*_.CTY__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ clear");
+  /*clear*/ /*_.NEXP__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ clear");
+  /*clear*/ /*_.OBVA__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1796:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_44_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_45_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ getarg");
+ /*_.BDYCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1840:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1841:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1841:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1841:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1841:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let body loc";
+    MELT_LOCATION("warmelt-genobj.melt:1841:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1841:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1841:/ apply.arg");
+    argtab[3].bp_long = 1841;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1841:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1841:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1841:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1842:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1842:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1842:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1842:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let body bdycomp";
+    MELT_LOCATION("warmelt-genobj.melt:1842:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1842:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1842:/ apply.arg");
+    argtab[3].bp_long = 1842;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BDYCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1842:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1842:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1842:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1843:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:1843:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:1843:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
+   /*_.OBJCOMP__V7*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.BDYCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1845:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1845:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1845:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1845:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_let body objcomp";
+     MELT_LOCATION("warmelt-genobj.melt:1845:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:1845:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1845:/ apply.arg");
+     argtab[3].bp_long = 1845;
+     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBJCOMP__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1845:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1845:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1845:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#NULL__L5*/ curfnum[1] = 
+   ((/*_.OBJCOMP__V7*/ curfptr[5]) == NULL);;
+  MELT_LOCATION("warmelt-genobj.melt:1848:/ cond");
+  /*cond*/ if (/*_#NULL__L5*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:1848:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1848:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:1848:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.OBJCOMP__V7*/ curfptr[5];;
+     MELT_LOCATION("warmelt-genobj.melt:1848:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IF___V10*/ curfptr[8] = /*_.RETURN___V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1848:/ clear");
+    /*clear*/ /*_.RETURN___V11*/ curfptr[10] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:1848:/ cond.else");
+  
+   /*_.IF___V10*/ curfptr[8] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:1849:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OBJCOMP__V7*/ curfptr[5]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:1843:/ clear");
+  /*clear*/ /*_.OBJCOMP__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1843:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1843:/ clear");
+  /*clear*/ /*_#NULL__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1843:/ clear");
+  /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_45_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_46_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ getarg");
+ /*_.OBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1854:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1855:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1855:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1855:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1855:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let dispose loc";
+    MELT_LOCATION("warmelt-genobj.melt:1855:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1855:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1855:/ apply.arg");
+    argtab[3].bp_long = 1855;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1855:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1855:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1855:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1856:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1856:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1856:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_let disposing obnd";
+    MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+    argtab[3].bp_long = 1856;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1856:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1856:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1856:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1857:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:1857:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
+  /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-genobj.melt:1854:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ clear");
+ /*clear*/ /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_46_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FAIL_COMPILETRECFILL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OBVA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OBODL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1883:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1884:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1884:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1884:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1884:/ apply.arg");
+    argtab[0].bp_cstring =  "fail_compiletrecfill recv";
+    MELT_LOCATION("warmelt-genobj.melt:1884:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:1884:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1884:/ apply.arg");
+    argtab[3].bp_long = 1884;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1884:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1884:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1884:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1885:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1885:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1885:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1885:/ apply.arg");
+    argtab[0].bp_cstring =  "fail_compiletrecfill obva";
+    MELT_LOCATION("warmelt-genobj.melt:1885:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:1885:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1885:/ apply.arg");
+    argtab[3].bp_long = 1885;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1885:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1885:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1885:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1886:/ block");
+ /*block*/{
+  /*_.D__V12*/ curfptr[11] = 
+   (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:1888:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.D__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:1888:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1888:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.D__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:1888:/ cond.else");
+  
+   /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:1887:/ locexp");
+  melt_error_str((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5]), ( "unimplemented discriminant for compile_letrec_fill"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1889:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1889:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:1889:/ cond");
+    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:1889:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:1889:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:1889:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:1889:/ locexp");
+       melt_assert_failed(( "fail_compiletrecfill unexpected"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1889)?(1889):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1889:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1889:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V11*/ curfptr[9] = /*_.IFCPP___V14*/ curfptr[13];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:1886:/ clear");
+  /*clear*/ /*_.D__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1886:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1886:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-genobj.melt:1883:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FAIL_COMPILETRECFILL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILETREC_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OBVA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OBODL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1894:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1895:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1895:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1895:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1895:/ apply.arg");
+    argtab[0].bp_cstring =  "compiletrec_lambda recv";
+    MELT_LOCATION("warmelt-genobj.melt:1895:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:1895:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1895:/ apply.arg");
+    argtab[3].bp_long = 1895;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1895:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1895:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1895:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1896:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1896:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1896:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1896:/ apply.arg");
+    argtab[0].bp_cstring =  "compiletrec_lambda obva";
+    MELT_LOCATION("warmelt-genobj.melt:1896:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:1896:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1896:/ apply.arg");
+    argtab[3].bp_long = 1896;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1896:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1896:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1896:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1897:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1897:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:1897:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1897:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1897:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1897:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1897:/ locexp");
+      melt_assert_failed(( "$@$unimplemented compiletrec_lambda"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1897)?(1897):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1897:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1897:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-genobj.melt:1894:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILETREC_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 56
+  void* varptr[56];
+#define CURFRAM_NBVARNUM 21
+  long varnum[21];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<56; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 56;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_LETREC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ getarg");
+ /*_.RLET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1902:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1903:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1903:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1903:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1903:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_letrec initial rlet";
+    MELT_LOCATION("warmelt-genobj.melt:1903:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:1903:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1903:/ apply.arg");
+    argtab[3].bp_long = 1903;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1903:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1903:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1903:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1904:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1904:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:1904:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1904:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1904:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1904:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1904:/ locexp");
+      melt_assert_failed(( "check rlet"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1904)?(1904):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1904:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1905:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1905:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:1905:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1905:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1905:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1905:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1905:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1905)?(1905):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1905:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1905:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1905:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1906:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1907:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 1, "NLET_BINDINGS");/*_.BNDS__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1908:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 3, "NLETREC_BINDINGS");/*_.RECBNDS__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#NBBNDS__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11])));;
+  /*_#NBRECBNDS__L5*/ curfnum[4] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.RECBNDS__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-genobj.melt:1911:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 4, "NLETREC_LOCSYMS");/*_.NLOCSYMS__V14*/ curfptr[13] = slot; };
+  ;
+  /*_#NBLOCSYM__L6*/ curfnum[5] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.NLOCSYMS__V14*/ curfptr[13])));;
+  /*_.TUPLOC__V15*/ curfptr[14] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#NBLOCSYM__L6*/ curfnum[5])));;
+  MELT_LOCATION("warmelt-genobj.melt:1914:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 2, "NLET_BODY");/*_.BDY__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1915:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V17*/ curfptr[16] = slot; };
+  ;
+  /*_.OBODL__V18*/ curfptr[17] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.OEPIL__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.OALLSTRUCT__V20*/ curfptr[19] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#NBBNDS__L4*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-genobj.melt:1919:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:1919:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIALLOCBLOCK*/ curfrout->tabval[5])), (4), "CLASS_OBJMULTIALLOCBLOCK");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1919:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1919:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OBODL__V18*/ curfptr[17]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1919:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), (/*_.OEPIL__V19*/ curfptr[18]), "OBLO_EPIL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1919:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OMALBLO_ALLSTRUCT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.OALLSTRUCT__V20*/ curfptr[19]), "OMALBLO_ALLSTRUCT");
+   ;
+   /*_.OBLOCK__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1926:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1926:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1926:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1926:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_letrec initial loc";
+     MELT_LOCATION("warmelt-genobj.melt:1926:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-genobj.melt:1926:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1926:/ apply.arg");
+     argtab[3].bp_long = 1926;
+     /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1926:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1926:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1926:/ cppif.else");
+  /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1927:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1927:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1927:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1927:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_letrec initial nlocsyms";
+     MELT_LOCATION("warmelt-genobj.melt:1927:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+     MELT_LOCATION("warmelt-genobj.melt:1927:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1927:/ apply.arg");
+     argtab[3].bp_long = 1927;
+     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCSYMS__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1927:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1927:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1927:/ cppif.else");
+  /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NLOCSYMS__V14*/ curfptr[13]);
+   for (/*_#SYMIX__L9*/ curfnum[6] = 0;  
+	(/*_#SYMIX__L9*/ curfnum[6] >= 0) && (/*_#SYMIX__L9*/ curfnum[6] <  cit1__EACHTUP_ln);  
+	/*_#SYMIX__L9*/ curfnum[6]++) {
+   /*_.CURLOCSYM__V27*/ curfptr[25] = melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V14*/ curfptr[13]),  /*_#SYMIX__L9*/ curfnum[6]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1931:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1931:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:1931:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:1931:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_letrec curlocsym";
+      MELT_LOCATION("warmelt-genobj.melt:1931:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
+      MELT_LOCATION("warmelt-genobj.melt:1931:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:1931:/ apply.arg");
+      argtab[3].bp_long = 1931;
+      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1931:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1931:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1931:/ cppif.else");
+   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1932:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1932:/ block");
+    /*block*/{
+     /*_#IS_A__L11*/ curfnum[9] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])));;
+     MELT_LOCATION("warmelt-genobj.melt:1932:/ cond");
+     /*cond*/ if (/*_#IS_A__L11*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:1932:/ cond.then");
+     /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:1932:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:1932:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:1932:/ locexp");
+        melt_assert_failed(( "check curlocsym"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1932)?(1932):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1932:/ clear");
+     /*clear*/ /*_#IS_A__L11*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1932:/ clear");
+     /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1932:/ cppif.else");
+   /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:1933:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), 1, "NOCC_SYMB");/*_.NOCC_SYMB__V32*/ curfptr[30] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:1933:/ cond.else");
+    
+     /*_.NOCC_SYMB__V32*/ curfptr[30] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1933:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOCC_SYMB__V32*/ curfptr[30];
+     MELT_LOCATION("warmelt-genobj.melt:1933:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*!CTYPE_VALUE*/ curfrout->tabval[9]);
+     /*_.CUROBVA__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:1935:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1935:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[9] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:1935:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:1935:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_nrep_letrec curobva";
+       MELT_LOCATION("warmelt-genobj.melt:1935:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[9];
+       MELT_LOCATION("warmelt-genobj.melt:1935:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:1935:/ apply.arg");
+       argtab[3].bp_long = 1935;
+       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROBVA__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:1935:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[9] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1935:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:1935:/ cppif.else");
+    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:1936:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUPLOC__V15*/ curfptr[14]), (/*_#SYMIX__L9*/ curfnum[6]), (melt_ptr_t)(/*_.CUROBVA__V33*/ curfptr[32]));}
+    ;
+    /*_.MULTIPLE_NTH__V36*/ curfptr[34] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11]), (/*_#SYMIX__L9*/ curfnum[6])));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:1937:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.LOCMAP__V17*/ curfptr[16]), 
+			   (meltobject_ptr_t) (/*_.MULTIPLE_NTH__V36*/ curfptr[34]), 
+			   (melt_ptr_t)(/*_.CUROBVA__V33*/ curfptr[32]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ clear");
+    /*clear*/ /*_.NOCC_SYMB__V32*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ clear");
+    /*clear*/ /*_.CUROBVA__V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ clear");
+    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1933:/ clear");
+    /*clear*/ /*_.MULTIPLE_NTH__V36*/ curfptr[34] = 0 ;}
+   ;
+   if (/*_#SYMIX__L9*/ curfnum[6]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1928:/ clear");
+   /*clear*/ /*_.CURLOCSYM__V27*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1928:/ clear");
+   /*clear*/ /*_#SYMIX__L9*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1928:/ clear");
+   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1928:/ clear");
+   /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1941:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1941:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L13*/ curfnum[9] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1941:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1941:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_letrec incomplete oblock";
+     MELT_LOCATION("warmelt-genobj.melt:1941:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[9];
+     MELT_LOCATION("warmelt-genobj.melt:1941:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1941:/ apply.arg");
+     argtab[3].bp_long = 1941;
+     /*_.DEBUG_MSG_FUN__V38*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOCK__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V37*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1941:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1941:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[32] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1941:/ cppif.else");
+  /*_.IFCPP___V37*/ curfptr[30] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.BNDS__V12*/ curfptr[11]);
+   for (/*_#BNDIX__L14*/ curfnum[9] = 0;  
+	(/*_#BNDIX__L14*/ curfnum[9] >= 0) && (/*_#BNDIX__L14*/ curfnum[9] <  cit2__EACHTUP_ln);  
+	/*_#BNDIX__L14*/ curfnum[9]++) {
+   /*_.CURBND__V39*/ curfptr[33] = melt_multiple_nth((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11]),  /*_#BNDIX__L14*/ curfnum[9]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1945:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1945:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:1945:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:1945:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_letrec curbnd";
+      MELT_LOCATION("warmelt-genobj.melt:1945:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
+      MELT_LOCATION("warmelt-genobj.melt:1945:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:1945:/ apply.arg");
+      argtab[3].bp_long = 1945;
+      /*_.DEBUG_MSG_FUN__V41*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBND__V39*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V40*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[32];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1945:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1945:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[32] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1945:/ cppif.else");
+   /*_.IFCPP___V40*/ curfptr[34] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:1946:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:1946:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1946:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     /*_.OBND__V42*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURBND__V39*/ curfptr[33]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:1948:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1948:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:1948:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:1948:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_nrep_letrec obnd";
+       MELT_LOCATION("warmelt-genobj.melt:1948:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
+       MELT_LOCATION("warmelt-genobj.melt:1948:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:1948:/ apply.arg");
+       argtab[3].bp_long = 1948;
+       /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBND__V42*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:1948:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1948:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:1948:/ cppif.else");
+    /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:1949:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.OALLSTRUCT__V20*/ curfptr[19]), (/*_#BNDIX__L14*/ curfnum[9]), (melt_ptr_t)(/*_.OBND__V42*/ curfptr[32]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1946:/ clear");
+    /*clear*/ /*_.OBND__V42*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1946:/ clear");
+    /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;}
+   ;
+   if (/*_#BNDIX__L14*/ curfnum[9]<0) break;
+   } /* end cit2__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1942:/ clear");
+   /*clear*/ /*_.CURBND__V39*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1942:/ clear");
+   /*clear*/ /*_#BNDIX__L14*/ curfnum[9] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1942:/ clear");
+   /*clear*/ /*_.IFCPP___V40*/ curfptr[34] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1952:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1952:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1952:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1952:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_letrec oallstruct";
+     MELT_LOCATION("warmelt-genobj.melt:1952:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[14];
+     MELT_LOCATION("warmelt-genobj.melt:1952:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1952:/ apply.arg");
+     argtab[3].bp_long = 1952;
+     /*_.DEBUG_MSG_FUN__V46*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OALLSTRUCT__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1952:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1952:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[32] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1952:/ cppif.else");
+  /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit3__EACHTUP: */
+   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.BNDS__V12*/ curfptr[11]);
+   for (/*_#BNDIX__L18*/ curfnum[14] = 0;  
+	(/*_#BNDIX__L18*/ curfnum[14] >= 0) && (/*_#BNDIX__L18*/ curfnum[14] <  cit3__EACHTUP_ln);  
+	/*_#BNDIX__L18*/ curfnum[14]++) {
+   /*_.CURBND__V47*/ curfptr[42] = melt_multiple_nth((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11]),  /*_#BNDIX__L18*/ curfnum[14]);
+   
+  
+   MELT_LOCATION("warmelt-genobj.melt:1957:/ block");
+   /*block*/{
+    /*_.OBVA__V49*/ curfptr[48] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.TUPLOC__V15*/ curfptr[14]), (/*_#BNDIX__L18*/ curfnum[14])));;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:1959:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1959:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L19*/ curfnum[18] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:1959:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:1959:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_nrep_letrec again obva";
+       MELT_LOCATION("warmelt-genobj.melt:1959:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[18];
+       MELT_LOCATION("warmelt-genobj.melt:1959:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:1959:/ apply.arg");
+       argtab[3].bp_long = 1959;
+       /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:1959:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[18] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1959:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:1959:/ cppif.else");
+    /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:1960:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1960:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L20*/ curfnum[18] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:1960:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:1960:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_nrep_letrec again curbnd";
+       MELT_LOCATION("warmelt-genobj.melt:1960:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[18];
+       MELT_LOCATION("warmelt-genobj.melt:1960:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:1960:/ apply.arg");
+       argtab[3].bp_long = 1960;
+       /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBND__V47*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V52*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:1960:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[18] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:1960:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:1960:/ cppif.else");
+    /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:1961:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1961:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBVA__V49*/ curfptr[48];
+     MELT_LOCATION("warmelt-genobj.melt:1961:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OBODL__V18*/ curfptr[17];
+     MELT_LOCATION("warmelt-genobj.melt:1961:/ ojbmsend.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-genobj.melt:1961:/ ojbmsend.arg");
+     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ curfptr[10];
+     /*_.COMPILE_LETREC_FILL__V54*/ curfptr[52] = meltgc_send((melt_ptr_t)(/*_.CURBND__V47*/ curfptr[42]), (melt_ptr_t)((/*!COMPILE_LETREC_FILL*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.LET___V48*/ curfptr[32] = /*_.COMPILE_LETREC_FILL__V54*/ curfptr[52];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1957:/ clear");
+    /*clear*/ /*_.OBVA__V49*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1957:/ clear");
+    /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1957:/ clear");
+    /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1957:/ clear");
+    /*clear*/ /*_.COMPILE_LETREC_FILL__V54*/ curfptr[52] = 0 ;}
+   ;
+   if (/*_#BNDIX__L18*/ curfnum[14]<0) break;
+   } /* end cit3__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1954:/ clear");
+   /*clear*/ /*_.CURBND__V47*/ curfptr[42] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1954:/ clear");
+   /*clear*/ /*_#BNDIX__L18*/ curfnum[14] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1954:/ clear");
+   /*clear*/ /*_.LET___V48*/ curfptr[32] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:1965:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1965:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L21*/ curfnum[18] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:1965:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:1965:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_letrec final oblock";
+     MELT_LOCATION("warmelt-genobj.melt:1965:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[18];
+     MELT_LOCATION("warmelt-genobj.melt:1965:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:1965:/ apply.arg");
+     argtab[3].bp_long = 1965;
+     /*_.DEBUG_MSG_FUN__V56*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOCK__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V55*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[49];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:1965:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[18] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:1965:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[49] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:1965:/ cppif.else");
+  /*_.IFCPP___V55*/ curfptr[48] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V21*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.BNDS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.RECBNDS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_#NBBNDS__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_#NBRECBNDS__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.NLOCSYMS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_#NBLOCSYM__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.TUPLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.BDY__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.LOCMAP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.OBODL__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.OEPIL__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.OALLSTRUCT__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.OBLOCK__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.IFCPP___V37*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1906:/ clear");
+  /*clear*/ /*_.IFCPP___V55*/ curfptr[48] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:1902:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_LETREC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 78
+  void* varptr[78];
+#define CURFRAM_NBVARNUM 17
+  long varnum[17];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<78; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 78;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_CITERATION", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ getarg");
+ /*_.NCITER__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:1972:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1973:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1973:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:1973:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1973:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1973:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1973:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1973:/ locexp");
+      melt_assert_failed(( "check nciter"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1973)?(1973):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1973:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1973:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1973:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1974:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1974:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:1974:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:1974:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:1974:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:1974:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:1974:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1974)?(1974):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1974:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:1975:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1975:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:1975:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:1975:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_citeration nciter";
+    MELT_LOCATION("warmelt-genobj.melt:1975:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:1975:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:1975:/ apply.arg");
+    argtab[3].bp_long = 1975;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1975:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1975:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:1975:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:1976:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1977:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OBROUT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1978:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 1, "NCITER_CITERATOR");/*_.CITER__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1979:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 6, "NCITER_LOCBINDINGS");/*_.NLOCBIND__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1980:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 2, "NCITER_CHUNKBEFORE");/*_.NCHKBEF__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1981:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:1981:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 5, "NCITER_STATOCC");/*_.NS__V17*/ curfptr[16] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1982:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1982:/ block");
+    /*block*/{
+     /*_#IS_A__L4*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.NS__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])));;
+     MELT_LOCATION("warmelt-genobj.melt:1982:/ cond");
+     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:1982:/ cond.then");
+     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:1982:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:1982:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:1982:/ locexp");
+        melt_assert_failed(( "check nstatocc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1982)?(1982):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1982:/ clear");
+     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1982:/ clear");
+     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1982:/ cppif.else");
+   /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1983:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1983:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:1983:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:1983:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_citeration nstatocc";
+      MELT_LOCATION("warmelt-genobj.melt:1983:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:1983:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:1983:/ apply.arg");
+      argtab[3].bp_long = 1983;
+      /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1983:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1983:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1983:/ cppif.else");
+   /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V16*/ curfptr[15] = /*_.NS__V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1981:/ clear");
+   /*clear*/ /*_.NS__V17*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1981:/ clear");
+   /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1981:/ clear");
+   /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;}
+  ;
+  /*_.NSTATOCC__V22*/ curfptr[20] = /*_.LET___V16*/ curfptr[15];;
+  MELT_LOCATION("warmelt-genobj.melt:1985:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 4, "NCITER_BODY");/*_.NBODY__V23*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1986:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 7, "NCITER_BODBINDINGS");/*_.NBODBIND__V24*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1987:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 3, "NCITER_CHUNKAFTER");/*_.NCHKAFT__V25*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1988:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:1988:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]), 3, "NOCC_BIND");/*_.BI__V27*/ curfptr[26] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:1989:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1989:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.BI__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[4])));;
+     MELT_LOCATION("warmelt-genobj.melt:1989:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:1989:/ cond.then");
+     /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:1989:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:1989:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:1989:/ locexp");
+        melt_assert_failed(( "check nstatbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (1989)?(1989):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:1989:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:1989:/ clear");
+     /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:1989:/ cppif.else");
+   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V26*/ curfptr[25] = /*_.BI__V27*/ curfptr[26];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:1988:/ clear");
+   /*clear*/ /*_.BI__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:1988:/ clear");
+   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;}
+  ;
+  /*_.NSTATBIND__V30*/ curfptr[28] = /*_.LET___V26*/ curfptr[25];;
+  MELT_LOCATION("warmelt-genobj.melt:1991:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATBIND__V30*/ curfptr[28]), 0, "BINDER");/*_.NSTATSY__V31*/ curfptr[26] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1992:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V32*/ curfptr[27] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:1992:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:1992:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTATSY__V31*/ curfptr[26];
+   MELT_LOCATION("warmelt-genobj.melt:1992:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NOCC_CTYP__V32*/ curfptr[27];
+   /*_.OSTAT__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.OBODL__V34*/ curfptr[33] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+  /*_.OEPIL__V35*/ curfptr[34] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+  MELT_LOCATION("warmelt-genobj.melt:1995:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ curfrout->tabval[7])), (6), "CLASS_OBJCITERBLOCK");/*_.INST__V37*/ curfptr[36] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OBODL__V34*/ curfptr[33]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.OEPIL__V35*/ curfptr[34]), "OBLO_EPIL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCITER_CITER", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (3), (/*_.CITER__V13*/ curfptr[12]), "OBCITER_CITER");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCITER_BEFORE", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (4), ((/*nil*/NULL)), "OBCITER_BEFORE");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:1995:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCITER_AFTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), ((/*nil*/NULL)), "OBCITER_AFTER");
+   ;
+   /*_.OCBLOCK__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2003:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V38*/ curfptr[37] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2005:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2005:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2005:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2005:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration nlocbind";
+     MELT_LOCATION("warmelt-genobj.melt:2005:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2005:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2005:/ apply.arg");
+     argtab[3].bp_long = 2005;
+     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2005:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2005:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2005:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2006:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2006:/ block");
+   /*block*/{
+    /*_#IS_A__L8*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CITER__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])));;
+    MELT_LOCATION("warmelt-genobj.melt:2006:/ cond");
+    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2006:/ cond.then");
+    /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2006:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2006:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2006:/ locexp");
+       melt_assert_failed(( "check citer"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2006)?(2006):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2006:/ clear");
+    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2006:/ clear");
+    /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2006:/ cppif.else");
+  /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2007:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2007:/ block");
+   /*block*/{
+    /*_#IS_MAPOBJECT__L9*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37])) == OBMAG_MAPOBJECTS);;
+    MELT_LOCATION("warmelt-genobj.melt:2007:/ cond");
+    /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2007:/ cond.then");
+    /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2007:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2007:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2007:/ locexp");
+       melt_assert_failed(( "check locmap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2007)?(2007):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2007:/ clear");
+    /*clear*/ /*_#IS_MAPOBJECT__L9*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2007:/ clear");
+    /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2007:/ cppif.else");
+  /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2008:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2008:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0] = 
+     ((/*_.NLOCBIND__V14*/ curfptr[13]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13])) == OBMAG_MULTIPLE));;
+    MELT_LOCATION("warmelt-genobj.melt:2008:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2008:/ cond.then");
+    /*_.IFELSE___V46*/ curfptr[45] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2008:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2008:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2008:/ locexp");
+       melt_assert_failed(( "check nlocbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2008)?(2008):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V45*/ curfptr[43] = /*_.IFELSE___V46*/ curfptr[45];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2008:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2008:/ clear");
+    /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2008:/ cppif.else");
+  /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2011:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2011:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V48*/ curfptr[47] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_15*/ curfrout->tabval[15])), (4));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2011:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2011:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[1] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2011:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[2] = (melt_ptr_t)(/*_.OEPIL__V35*/ curfptr[34]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2011:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[3] = (melt_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37]);
+   ;
+   /*_.LAMBDA___V47*/ curfptr[45] = /*_.LAMBDA___V48*/ curfptr[47];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2009:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2009:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V47*/ curfptr[45];
+   /*_.MULTIPLE_EVERY__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2030:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2030:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2030:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2030:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration ocblock start";
+     MELT_LOCATION("warmelt-genobj.melt:2030:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2030:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2030:/ apply.arg");
+     argtab[3].bp_long = 2030;
+     /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2030:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2030:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2030:/ cppif.else");
+  /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2031:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.OBROUT__V12*/ curfptr[11]), 8, "OBROUT_CNTCITER");/*_.BOXCNTCITER__V52*/ curfptr[50] = slot; };
+   ;
+   /*_#GET_INT__L12*/ curfnum[0] = 
+    (melt_get_int((melt_ptr_t)(/*_.BOXCNTCITER__V52*/ curfptr[50])));;
+   /*_#CNT__L13*/ curfnum[12] = 
+    ((1) + (/*_#GET_INT__L12*/ curfnum[0]));;
+   MELT_LOCATION("warmelt-genobj.melt:2034:/ block");
+   /*block*/{
+    /*_.SBU__V54*/ curfptr[53] = 
+     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[16])), (char*)0);;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2035:/ locexp");
+    melt_put_int((melt_ptr_t)(/*_.BOXCNTCITER__V52*/ curfptr[50]), (/*_#CNT__L13*/ curfnum[12]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2036:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]), ( "cit"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2037:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]), (/*_#CNT__L13*/ curfnum[12]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2038:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]), ( "__"));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2039:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATSY__V31*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[54] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2039:/ locexp");
+    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[54])));}
+    ;
+    /*_.STRBUF2STRING__V56*/ curfptr[55] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[17])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]))));;
+    /*_.LET___V53*/ curfptr[52] = /*_.STRBUF2STRING__V56*/ curfptr[55];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2034:/ clear");
+    /*clear*/ /*_.SBU__V54*/ curfptr[53] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2034:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[54] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2034:/ clear");
+    /*clear*/ /*_.STRBUF2STRING__V56*/ curfptr[55] = 0 ;}
+   ;
+   /*_.STATSTR__V57*/ curfptr[53] = /*_.LET___V53*/ curfptr[52];;
+   MELT_LOCATION("warmelt-genobj.melt:2047:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2047:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[55] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2047:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[0] = (melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2047:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[1] = (melt_ptr_t)(/*_.STATSTR__V57*/ curfptr[53]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2047:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[2] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    /*_.LAMBDA___V58*/ curfptr[54] = /*_.LAMBDA___V59*/ curfptr[55];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2045:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2045:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[54];
+    /*_.MULTIPLE_MAP__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCHKBEF__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2059:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2059:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V62*/ curfptr[61] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2059:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[0] = (melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2059:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[1] = (melt_ptr_t)(/*_.STATSTR__V57*/ curfptr[53]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2059:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[2] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    /*_.LAMBDA___V61*/ curfptr[60] = /*_.LAMBDA___V62*/ curfptr[61];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2057:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2057:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V61*/ curfptr[60];
+    /*_.MULTIPLE_MAP__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCHKAFT__V25*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2043:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2043:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCITER_BEFORE", melt_magic_discr((melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.OCBLOCK__V36*/ curfptr[35]), (4), (/*_.MULTIPLE_MAP__V60*/ curfptr[59]), "OBCITER_BEFORE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2043:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCITER_AFTER", melt_magic_discr((melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.OCBLOCK__V36*/ curfptr[35]), (5), (/*_.MULTIPLE_MAP__V63*/ curfptr[62]), "OBCITER_AFTER");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2043:/ touch");
+    meltgc_touch(/*_.OCBLOCK__V36*/ curfptr[35]);
+    ;
+    /*epilog*/}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.BOXCNTCITER__V52*/ curfptr[50] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_#GET_INT__L12*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_#CNT__L13*/ curfnum[12] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.STATSTR__V57*/ curfptr[53] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.LAMBDA___V58*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.MULTIPLE_MAP__V60*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.LAMBDA___V61*/ curfptr[60] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2031:/ clear");
+   /*clear*/ /*_.MULTIPLE_MAP__V63*/ curfptr[62] = 0 ;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2071:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2071:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2071:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2071:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration ocblock filled before&after chunks";
+     MELT_LOCATION("warmelt-genobj.melt:2071:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2071:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2071:/ apply.arg");
+     argtab[3].bp_long = 2071;
+     /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V64*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[52];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2071:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2071:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2071:/ cppif.else");
+  /*_.IFCPP___V64*/ curfptr[50] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2072:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2072:/ block");
+   /*block*/{
+    /*_#IS_LIST_OR_NULL__L15*/ curfnum[12] = 
+     ((/*_.NBODBIND__V24*/ curfptr[17]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBODBIND__V24*/ curfptr[17])) == OBMAG_LIST));;
+    MELT_LOCATION("warmelt-genobj.melt:2072:/ cond");
+    /*cond*/ if (/*_#IS_LIST_OR_NULL__L15*/ curfnum[12]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2072:/ cond.then");
+    /*_.IFELSE___V67*/ curfptr[54] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2072:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2072:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2072:/ locexp");
+       melt_assert_failed(( "check nbodbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2072)?(2072):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V67*/ curfptr[54] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V66*/ curfptr[53] = /*_.IFELSE___V67*/ curfptr[54];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2072:/ clear");
+    /*clear*/ /*_#IS_LIST_OR_NULL__L15*/ curfnum[12] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2072:/ clear");
+    /*clear*/ /*_.IFELSE___V67*/ curfptr[54] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2072:/ cppif.else");
+  /*_.IFCPP___V66*/ curfptr[53] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2075:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2075:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V69*/ curfptr[60] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_33*/ curfrout->tabval[33])), (5));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2075:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2075:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[1] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2075:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[2] = (melt_ptr_t)(/*_.OEPIL__V35*/ curfptr[34]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2075:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[3] = (melt_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2075:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[4] = (melt_ptr_t)(/*_.OBODL__V34*/ curfptr[33]);
+   ;
+   /*_.LAMBDA___V68*/ curfptr[59] = /*_.LAMBDA___V69*/ curfptr[60];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2073:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2073:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V68*/ curfptr[59];
+   /*_.LIST_EVERY__V70*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.NBODBIND__V24*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2110:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2110:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2110:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2110:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration nbody";
+     MELT_LOCATION("warmelt-genobj.melt:2110:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2110:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2110:/ apply.arg");
+     argtab[3].bp_long = 2110;
+     /*_.DEBUG_MSG_FUN__V72*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NBODY__V23*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V71*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[54];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2110:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2110:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[54] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2110:/ cppif.else");
+  /*_.IFCPP___V71*/ curfptr[52] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2113:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2113:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V74*/ curfptr[73] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_36*/ curfrout->tabval[36])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2113:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V74*/ curfptr[73])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V74*/ curfptr[73])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V74*/ curfptr[73])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2113:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V74*/ curfptr[73])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V74*/ curfptr[73])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V74*/ curfptr[73])->tabval[1] = (melt_ptr_t)(/*_.OBODL__V34*/ curfptr[33]);
+   ;
+   /*_.LAMBDA___V73*/ curfptr[54] = /*_.LAMBDA___V74*/ curfptr[73];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2111:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2111:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V73*/ curfptr[54];
+   /*_.MULTIPLE_EVERY__V75*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NBODY__V23*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2120:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2120:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2120:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2120:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration final ocblock";
+     MELT_LOCATION("warmelt-genobj.melt:2120:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[12];
+     MELT_LOCATION("warmelt-genobj.melt:2120:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2120:/ apply.arg");
+     argtab[3].bp_long = 2120;
+     /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V76*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2120:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2120:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2120:/ cppif.else");
+  /*_.IFCPP___V76*/ curfptr[75] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2121:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OCBLOCK__V36*/ curfptr[35];;
+   MELT_LOCATION("warmelt-genobj.melt:2121:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V78*/ curfptr[76];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.OBROUT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.CITER__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NLOCBIND__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NCHKBEF__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NSTATOCC__V22*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NBODY__V23*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NBODBIND__V24*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NCHKAFT__V25*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NSTATBIND__V30*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NSTATSY__V31*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.NOCC_CTYP__V32*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.OSTAT__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.OBODL__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.OEPIL__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.OCBLOCK__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LOCMAP__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LAMBDA___V47*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V64*/ curfptr[50] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V66*/ curfptr[53] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LAMBDA___V68*/ curfptr[59] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V70*/ curfptr[62] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V71*/ curfptr[52] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.LAMBDA___V73*/ curfptr[54] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V75*/ curfptr[74] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.IFCPP___V76*/ curfptr[75] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:1976:/ clear");
+  /*clear*/ /*_.RETURN___V78*/ curfptr[76] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:1972:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_CITERATION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_51_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ getarg");
+ /*_.NLBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2011:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2012:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2012:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2012:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2012:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_citeration current nlocbinding nlbnd";
+    MELT_LOCATION("warmelt-genobj.melt:2012:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2012:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2012:/ apply.arg");
+    argtab[3].bp_long = 2012;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2012:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2013:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2013:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2013:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2013:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2013:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2013:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2013:/ locexp");
+      melt_assert_failed(( "check nlbnd in compilobj_nrep_citeration"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2013)?(2013):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2013:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2013:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2013:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2014:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2015:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2016:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2017:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2017:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V8*/ curfptr[7];
+   MELT_LOCATION("warmelt-genobj.melt:2017:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V9*/ curfptr[8];
+   /*_.OBLVA__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2019:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2019:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2019:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2019:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration current local binder";
+     MELT_LOCATION("warmelt-genobj.melt:2019:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2019:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2019:/ apply.arg");
+     argtab[3].bp_long = 2019;
+     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BDER__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2019:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2019:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2019:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2020:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2020:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2020:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2020:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration current oblva";
+     MELT_LOCATION("warmelt-genobj.melt:2020:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2020:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2020:/ apply.arg");
+     argtab[3].bp_long = 2020;
+     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLVA__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2020:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2020:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2020:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#__L6*/ curfnum[1] = 
+   ((/*_.CTY__V9*/ curfptr[8]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-genobj.melt:2021:/ cond");
+  /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2021:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2021:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2022:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2022:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2022:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[4])), (2), "CLASS_OBJCLEAR");/*_.INST__V19*/ curfptr[18] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2022:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), ((/*~LOC*/ curfclos->tabval[1])), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2022:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.OBLVA__V11*/ curfptr[10]), "OCLR_VLOC");
+      ;
+      /*_.OCLR__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:2025:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OCLR__V18*/ curfptr[17]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:2026:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[3])), 
+			   (meltobject_ptr_t) (/*_.NLBND__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBLVA__V11*/ curfptr[10]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:2027:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:2027:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:2027:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:2027:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_citeration added clear for nlbnd";
+        MELT_LOCATION("warmelt-genobj.melt:2027:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+        MELT_LOCATION("warmelt-genobj.melt:2027:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:2027:/ apply.arg");
+        argtab[3].bp_long = 2027;
+        /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2027:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2027:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:2027:/ cppif.else");
+     /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V17*/ curfptr[16] = /*_.IFCPP___V20*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2022:/ clear");
+     /*clear*/ /*_.OCLR__V18*/ curfptr[17] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2022:/ clear");
+     /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;}
+    ;
+    /*_.IF___V16*/ curfptr[14] = /*_.LET___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2021:/ clear");
+    /*clear*/ /*_.LET___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2021:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.LET___V7*/ curfptr[5] = /*_.IF___V16*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.NEXP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.OBLVA__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_#__L6*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2014:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-genobj.melt:2011:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_51_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_52_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ getarg");
+ /*_.CBEF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2047:/ block");
+/*block*/{
+ /*_#IS_STRING__L2*/ curfnum[1] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.CBEF__V2*/ curfptr[1])) == OBMAG_STRING);;
+ MELT_LOCATION("warmelt-genobj.melt:2049:/ cond");
+ /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2049:/ cond.then");
+ /*_.IFELSE___V3*/ curfptr[2] = /*_.CBEF__V2*/ curfptr[1];;
+ } else {MELT_LOCATION("warmelt-genobj.melt:2049:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-genobj.melt:2049:/ block");
+  /*block*/{
+   /*_#__L3*/ curfnum[2] = 
+    ((/*_.CBEF__V2*/ curfptr[1]) == ((/*~NSTATOCC*/ curfclos->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2050:/ cond");
+   /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2050:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*~STATSTR*/ curfclos->tabval[1]);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2050:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2050:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:2052:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:2052:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:2052:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_citeration cbef";
+        MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+        MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
+        argtab[3].bp_long = 2052;
+        /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBEF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2052:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2052:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:2052:/ cppif.else");
+     /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:2053:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2053:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2053:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]);
+       /*_.OBEF__V8*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CBEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2054:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2054:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2054:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2054:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_citeration obef";
+         MELT_LOCATION("warmelt-genobj.melt:2054:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
+         MELT_LOCATION("warmelt-genobj.melt:2054:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2054:/ apply.arg");
+         argtab[3].bp_long = 2054;
+         /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBEF__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2054:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2054:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2054:/ cppif.else");
+      /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.LET___V7*/ curfptr[5] = /*_.OBEF__V8*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2053:/ clear");
+      /*clear*/ /*_.OBEF__V8*/ curfptr[7] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2053:/ clear");
+      /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2051:/ block");
+     /*block*/{
+      /*_.PROGN___V11*/ curfptr[9] = /*_.LET___V7*/ curfptr[5];;}
+     ;
+     /*_.IFELSE___V4*/ curfptr[3] = /*_.PROGN___V11*/ curfptr[9];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2050:/ clear");
+     /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2050:/ clear");
+     /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2050:/ clear");
+     /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;}
+    ;
+    }
+   ;
+   /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2049:/ clear");
+   /*clear*/ /*_#__L3*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2049:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2047:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ clear");
+ /*clear*/ /*_#IS_STRING__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ clear");
+ /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_52_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_53_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ getarg");
+ /*_.CAFT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2059:/ block");
+/*block*/{
+ /*_#IS_STRING__L2*/ curfnum[1] = 
+  (melt_magic_discr((melt_ptr_t)(/*_.CAFT__V2*/ curfptr[1])) == OBMAG_STRING);;
+ MELT_LOCATION("warmelt-genobj.melt:2061:/ cond");
+ /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2061:/ cond.then");
+ /*_.IFELSE___V3*/ curfptr[2] = /*_.CAFT__V2*/ curfptr[1];;
+ } else {MELT_LOCATION("warmelt-genobj.melt:2061:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-genobj.melt:2061:/ block");
+  /*block*/{
+   /*_#__L3*/ curfnum[2] = 
+    ((/*_.CAFT__V2*/ curfptr[1]) == ((/*~NSTATOCC*/ curfclos->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2062:/ cond");
+   /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2062:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*~STATSTR*/ curfclos->tabval[1]);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2062:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2062:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:2064:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:2064:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:2064:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_citeration caft";
+        MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+        MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
+        argtab[3].bp_long = 2064;
+        /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CAFT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2064:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2064:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:2064:/ cppif.else");
+     /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:2065:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2065:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2065:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]);
+       /*_.OAFT__V8*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CAFT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2066:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2066:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2066:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2066:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_citeration oaft";
+         MELT_LOCATION("warmelt-genobj.melt:2066:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
+         MELT_LOCATION("warmelt-genobj.melt:2066:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2066:/ apply.arg");
+         argtab[3].bp_long = 2066;
+         /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OAFT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2066:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2066:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2066:/ cppif.else");
+      /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.LET___V7*/ curfptr[5] = /*_.OAFT__V8*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2065:/ clear");
+      /*clear*/ /*_.OAFT__V8*/ curfptr[7] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2065:/ clear");
+      /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2063:/ block");
+     /*block*/{
+      /*_.PROGN___V11*/ curfptr[9] = /*_.LET___V7*/ curfptr[5];;}
+     ;
+     /*_.IFELSE___V4*/ curfptr[3] = /*_.PROGN___V11*/ curfptr[9];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2062:/ clear");
+     /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2062:/ clear");
+     /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2062:/ clear");
+     /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;}
+    ;
+    }
+   ;
+   /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2061:/ clear");
+   /*clear*/ /*_#__L3*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2061:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2059:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ clear");
+ /*clear*/ /*_#IS_STRING__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ clear");
+ /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_53_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_54_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 28
+  void* varptr[28];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<28; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 28;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ getarg");
+ /*_.NBBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2075:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2076:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2076:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2076:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2076:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_citeration current nbodbinding nbbnd";
+    MELT_LOCATION("warmelt-genobj.melt:2076:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2076:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2076:/ apply.arg");
+    argtab[3].bp_long = 2076;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2076:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2077:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2077:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2077:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2077:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2077:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2077:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2077:/ locexp");
+      melt_assert_failed(( "check nbbnd in compilobj_nrep_citeration"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2077)?(2077):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2077:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2077:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2077:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2078:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2079:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2080:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2081:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2081:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V7*/ curfptr[5];
+   MELT_LOCATION("warmelt-genobj.melt:2081:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V8*/ curfptr[7];
+   /*_.OBBVA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2083:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2083:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2083:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2083:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration current obbva";
+     MELT_LOCATION("warmelt-genobj.melt:2083:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2083:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2083:/ apply.arg");
+     argtab[3].bp_long = 2083;
+     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2083:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2083:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2083:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#__L5*/ curfnum[1] = 
+   ((/*_.CTY__V8*/ curfptr[7]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-genobj.melt:2084:/ cond");
+  /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2084:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2084:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2085:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2085:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2085:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[4])), (2), "CLASS_OBJCLEAR");/*_.INST__V16*/ curfptr[15] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2085:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), ((/*~LOC*/ curfclos->tabval[1])), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2085:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.OBBVA__V10*/ curfptr[9]), "OCLR_VLOC");
+      ;
+      /*_.OCLR__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:2089:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OCLR__V15*/ curfptr[14]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:2090:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[3])), 
+			   (meltobject_ptr_t) (/*_.NBBND__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:2091:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:2091:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:2091:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:2091:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_citeration added clear for obbva";
+        MELT_LOCATION("warmelt-genobj.melt:2091:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+        MELT_LOCATION("warmelt-genobj.melt:2091:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:2091:/ apply.arg");
+        argtab[3].bp_long = 2091;
+        /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2091:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2091:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:2091:/ cppif.else");
+     /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V14*/ curfptr[13] = /*_.IFCPP___V17*/ curfptr[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2085:/ clear");
+     /*clear*/ /*_.OCLR__V15*/ curfptr[14] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2085:/ clear");
+     /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
+    ;
+    /*_.IF___V13*/ curfptr[11] = /*_.LET___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2084:/ clear");
+    /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2084:/ cond.else");
+  
+   /*_.IF___V13*/ curfptr[11] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2094:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2094:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2094:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+    /*_.OCUR__V19*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NEXP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2095:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2095:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2095:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2095:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_citeration raw ocur";
+      MELT_LOCATION("warmelt-genobj.melt:2095:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:2095:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2095:/ apply.arg");
+      argtab[3].bp_long = 2095;
+      /*_.DEBUG_MSG_FUN__V21*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V20*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2095:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2095:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[16] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2095:/ cppif.else");
+   /*_.IFCPP___V20*/ curfptr[14] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_#__L8*/ curfnum[5] = 
+    ((/*_.CTY__V8*/ curfptr[7]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:2096:/ cond");
+   /*cond*/ if (/*_#__L8*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2096:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:2096:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:2098:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:2098:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:2098:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_citeration putobjdest obbva";
+        MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+        MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
+        argtab[3].bp_long = 2098;
+        /*_.DEBUG_MSG_FUN__V23*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V22*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[16];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2098:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2098:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[16] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:2098:/ cppif.else");
+     /*_.IFCPP___V22*/ curfptr[13] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:2099:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2099:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2099:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBBVA__V10*/ curfptr[9];
+       /*_.NEWOCUR__V24*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2100:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2100:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2100:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2100:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_citeration putobjdest newocur";
+         MELT_LOCATION("warmelt-genobj.melt:2100:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+         MELT_LOCATION("warmelt-genobj.melt:2100:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2100:/ apply.arg");
+         argtab[3].bp_long = 2100;
+         /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEWOCUR__V24*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2100:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2100:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2100:/ cppif.else");
+      /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-genobj.melt:2101:/ cond");
+      /*cond*/ if (/*_.NEWOCUR__V24*/ curfptr[16]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:2101:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:2101:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:2102:/ locexp");
+        meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.NEWOCUR__V24*/ curfptr[16]));}
+        ;
+        /*epilog*/}
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:2101:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:2101:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:2103:/ locexp");
+        meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]));}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2099:/ clear");
+      /*clear*/ /*_.NEWOCUR__V24*/ curfptr[16] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2099:/ clear");
+      /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2097:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2096:/ clear");
+     /*clear*/ /*_.IFCPP___V22*/ curfptr[13] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2096:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2096:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:2106:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:2106:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:2106:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:2106:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_citeration ocur";
+        MELT_LOCATION("warmelt-genobj.melt:2106:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
+        MELT_LOCATION("warmelt-genobj.melt:2106:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:2106:/ apply.arg");
+        argtab[3].bp_long = 2106;
+        /*_.DEBUG_MSG_FUN__V28*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[16];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2106:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2106:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[16] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:2106:/ cppif.else");
+     /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:2107:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2105:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2096:/ clear");
+     /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;}
+    ;
+    }
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2094:/ clear");
+   /*clear*/ /*_.OCUR__V19*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2094:/ clear");
+   /*clear*/ /*_.IFCPP___V20*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2094:/ clear");
+   /*clear*/ /*_#__L8*/ curfnum[5] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_.BDER__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_.CTY__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_.NEXP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_.OBBVA__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_#__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2078:/ clear");
+  /*clear*/ /*_.IF___V13*/ curfptr[11] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_54_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_55_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2113:/ getarg");
+ /*_.NCURBOD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2113:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2113:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2114:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2114:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2114:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_citeration ncurbod";
+    MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
+    argtab[3].bp_long = 2114;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURBOD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2114:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2114:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2114:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2115:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2115:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2115:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OCBOD__V5*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.NCURBOD__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2116:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2116:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2116:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2116:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_citeration ocbod";
+     MELT_LOCATION("warmelt-genobj.melt:2116:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2116:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2116:/ apply.arg");
+     argtab[3].bp_long = 2116;
+     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCBOD__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2116:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2116:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2116:/ cppif.else");
+  /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2117:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCBOD__V5*/ curfptr[3]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2115:/ clear");
+  /*clear*/ /*_.OCBOD__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2115:/ clear");
+  /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2113:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_55_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_SETQ", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ getarg");
+ /*_.NSQ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2129:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2130:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2130:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2130:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2130:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2130:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2130:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2130:/ locexp");
+      melt_assert_failed(( "check nsq"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2130)?(2130):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2130:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2130:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2130:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2131:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2131:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2131:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2131:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2131:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2131:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2131:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2131)?(2131):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2131:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2132:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2132:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2132:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2132:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_setq nsq";
+    MELT_LOCATION("warmelt-genobj.melt:2132:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2132:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2132:/ apply.arg");
+    argtab[3].bp_long = 2132;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2132:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2132:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2132:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2133:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2134:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.VAR__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2135:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 2, "NSTQ_EXP");/*_.EXP__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2136:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2136:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.CEXP__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.EXP__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2137:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2137:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.CVAR__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.VAR__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2138:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2138:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CVAR__V15*/ curfptr[14];
+   /*_.CRES__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.CEXP__V14*/ curfptr[13]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_A__L4*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CRES__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[5])));;
+  MELT_LOCATION("warmelt-genobj.melt:2140:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2140:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2140:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2141:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CRES__V16*/ curfptr[15]), 0, "OBI_LOC");/*_.OBI_LOC__V17*/ curfptr[16] = slot; };
+    ;
+    /*_#NULL__L5*/ curfnum[4] = 
+     ((/*_.OBI_LOC__V17*/ curfptr[16]) == NULL);;
+    MELT_LOCATION("warmelt-genobj.melt:2140:/ cond");
+    /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2140:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:2140:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2142:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:2142:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.CRES__V16*/ curfptr[15])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.CRES__V16*/ curfptr[15]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:2142:/ touch");
+       meltgc_touch(/*_.CRES__V16*/ curfptr[15]);
+       ;
+       /*epilog*/}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2140:/ clear");
+    /*clear*/ /*_.OBI_LOC__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2140:/ clear");
+    /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2143:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2143:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2143:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2143:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_setq cres";
+     MELT_LOCATION("warmelt-genobj.melt:2143:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
+     MELT_LOCATION("warmelt-genobj.melt:2143:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2143:/ apply.arg");
+     argtab[3].bp_long = 2143;
+     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CRES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2143:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2143:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2143:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.CRES__V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.VAR__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.EXP__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.CEXP__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.CVAR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.CRES__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2133:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2129:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_SETQ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_PROGN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ getarg");
+ /*_.NPRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2151:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2152:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2152:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_PROGN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2152:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2152:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2152:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2152:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2152:/ locexp");
+      melt_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2152)?(2152):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2152:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2152:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2152:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2153:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2153:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2153:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2153:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2153:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2153:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2153:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2153)?(2153):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2153:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2154:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2154:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2154:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2154:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_progn npro";
+    MELT_LOCATION("warmelt-genobj.melt:2154:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2154:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2154:/ apply.arg");
+    argtab[3].bp_long = 2154;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2154:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2154:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2154:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2155:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2156:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 1, "NPROGN_SEQ");/*_.NSEQ__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2157:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 2, "NPROGN_LAST");/*_.NLAST__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.BODYL__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2159:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2159:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V16*/ curfptr[15] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2159:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2159:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.BODYL__V14*/ curfptr[13]), "OBLO_BODYL");
+   ;
+   /*_.OBLOCK__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2167:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2167:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2167:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2167:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.BODYL__V14*/ curfptr[13]);
+   ;
+   /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2165:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2165:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
+   /*_.MULTIPLE_EVERY__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NSEQ__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2171:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2171:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2171:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OLAST__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NLAST__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[8])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2172:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.BODYL__V14*/ curfptr[13]), (melt_ptr_t)(/*_.OLAST__V20*/ curfptr[19]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2171:/ clear");
+   /*clear*/ /*_.OLAST__V20*/ curfptr[19] = 0 ;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2173:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2173:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2173:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2173:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_progn oblock";
+     MELT_LOCATION("warmelt-genobj.melt:2173:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2173:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2173:/ apply.arg");
+     argtab[3].bp_long = 2173;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2173:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2173:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2173:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2174:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V15*/ curfptr[14];;
+   MELT_LOCATION("warmelt-genobj.melt:2174:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.NSEQ__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.NLAST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.BODYL__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.OBLOCK__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2155:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2151:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_PROGN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_58_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2167:/ getarg");
+ /*_.NCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2167:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2167:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2168:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2168:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2168:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OCOMP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2169:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~BODYL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCOMP__V3*/ curfptr[2]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2168:/ clear");
+  /*clear*/ /*_.OCOMP__V3*/ curfptr[2] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_58_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_MULTACC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ getarg");
+ /*_.NMA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2179:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2180:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2180:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2180:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2180:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2180:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2180:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2180:/ locexp");
+      melt_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2180)?(2180):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2180:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2180:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2180:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2181:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2181:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2181:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2181:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2181:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2181:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2181:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2181)?(2181):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2181:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2182:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2182:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2182:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2182:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multacc nma";
+    MELT_LOCATION("warmelt-genobj.melt:2182:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2182:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2182:/ apply.arg");
+    argtab[3].bp_long = 2182;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2182:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2182:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2182:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2183:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2184:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 1, "NACCM_MUL");/*_.MUL__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2185:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 2, "NACCM_IX");/*_.IX__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2186:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2186:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.CMUL__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.MUL__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2190:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2190:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2190:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2190:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (melt_ptr_t)(/*_.IX__V13*/ curfptr[12]);
+   ;
+   /*_.MAKECOMPUTE__V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2211:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2211:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2211:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2211:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multacc cmul";
+     MELT_LOCATION("warmelt-genobj.melt:2211:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2211:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2211:/ apply.arg");
+     argtab[3].bp_long = 2211;
+     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2211:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2211:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2211:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2212:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2212:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2212:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2212:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multacc again nma";
+     MELT_LOCATION("warmelt-genobj.melt:2212:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2212:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2212:/ apply.arg");
+     argtab[3].bp_long = 2212;
+     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2212:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2212:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2212:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L6*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[10])));;
+  MELT_LOCATION("warmelt-genobj.melt:2213:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2213:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2213:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.IX__V13*/ curfptr[12])) == OBMAG_INT);;
+    /*_#IF___L7*/ curfnum[6] = /*_#IS_INTEGERBOX__L8*/ curfnum[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2213:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2213:/ cond.else");
+  
+   /*_#IF___L7*/ curfnum[6] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2213:/ cond");
+  /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2213:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2213:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2216:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2216:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), 5, "OIM_TUPVAL");/*_.COMPTUP__V23*/ curfptr[22] = slot; };
+     ;
+     /*_#IS_MULTIPLE__L9*/ curfnum[7] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.COMPTUP__V23*/ curfptr[22])) == OBMAG_MULTIPLE);;
+     MELT_LOCATION("warmelt-genobj.melt:2217:/ cond");
+     /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:2217:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:2217:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:2218:/ block");
+       /*block*/{
+        /*_#GET_INT__L10*/ curfnum[9] = 
+         (melt_get_int((melt_ptr_t)(/*_.IX__V13*/ curfptr[12])));;
+        /*_.CURVAL__V26*/ curfptr[25] = 
+         (melt_multiple_nth((melt_ptr_t)(/*_.COMPTUP__V23*/ curfptr[22]), (/*_#GET_INT__L10*/ curfnum[9])));;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-genobj.melt:2221:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:2221:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+           callcount;;
+          MELT_LOCATION("warmelt-genobj.melt:2221:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-genobj.melt:2221:/ apply.arg");
+           argtab[0].bp_cstring =  "compilobj_nrep_multacc returning curval";
+           MELT_LOCATION("warmelt-genobj.melt:2221:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+           MELT_LOCATION("warmelt-genobj.melt:2221:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-genobj.melt";
+           MELT_LOCATION("warmelt-genobj.melt:2221:/ apply.arg");
+           argtab[3].bp_long = 2221;
+           /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAL__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:2221:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:2221:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-genobj.melt:2221:/ cppif.else");
+        /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-genobj.melt:2222:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = /*_.CURVAL__V26*/ curfptr[25];;
+         MELT_LOCATION("warmelt-genobj.melt:2222:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V29*/ curfptr[27];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2218:/ clear");
+        /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2218:/ clear");
+        /*clear*/ /*_.CURVAL__V26*/ curfptr[25] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2218:/ clear");
+        /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2218:/ clear");
+        /*clear*/ /*_.RETURN___V29*/ curfptr[27] = 0 ;}
+       ;
+       /*_.IFELSE___V24*/ curfptr[23] = /*_.LET___V25*/ curfptr[24];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2217:/ clear");
+       /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:2217:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:2217:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:2224:/ apply");
+       /*apply*/{
+        /*_.MAKECOMPUTE__V30*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V15*/ curfptr[14]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFELSE___V24*/ curfptr[23] = /*_.MAKECOMPUTE__V30*/ curfptr[25];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2217:/ clear");
+       /*clear*/ /*_.MAKECOMPUTE__V30*/ curfptr[25] = 0 ;}
+      ;
+      }
+     ;
+     /*_.LET___V22*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
+     /*clear*/ /*_.COMPTUP__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
+     /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
+     /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+    ;
+    /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2213:/ clear");
+    /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2213:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:2213:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2226:/ apply");
+    /*apply*/{
+     /*_.MAKECOMPUTE__V31*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V15*/ curfptr[14]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFELSE___V21*/ curfptr[19] = /*_.MAKECOMPUTE__V31*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2213:/ clear");
+    /*clear*/ /*_.MAKECOMPUTE__V31*/ curfptr[26] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V21*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.MUL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.IX__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.CMUL__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.MAKECOMPUTE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2183:/ clear");
+  /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2179:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_MULTACC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_60_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2190:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2191:/ block");
+ /*block*/{
+  /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "/*multacc*/(melt_multiple_nth((")));;
+  /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "), (")));;
+  /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( ")))")));;
+  /*_.TCONT__V6*/ curfptr[5] = 
+   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V3*/ curfptr[2]),  
+		      (melt_ptr_t)((/*~CMUL*/ curfclos->tabval[0])),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V4*/ curfptr[3]),  (melt_ptr_t)((/*~IX*/ curfclos->tabval[1])),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V5*/ curfptr[4])));;
+  MELT_LOCATION("warmelt-genobj.melt:2202:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2202:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[2])), (2), "CLASS_OBJEXPV");/*_.INST__V8*/ curfptr[7] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2202:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "OBV_TYPE");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2202:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.TCONT__V6*/ curfptr[5]), "OBX_CONT");
+   ;
+   /*_.RES__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2206:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2206:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2206:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2206:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multacc makecompute res";
+     MELT_LOCATION("warmelt-genobj.melt:2206:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2206:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2206:/ apply.arg");
+     argtab[3].bp_long = 2206;
+     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2206:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2206:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2206:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V2*/ curfptr[1] = /*_.RES__V7*/ curfptr[6];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2191:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2191:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2191:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2191:/ clear");
+  /*clear*/ /*_.TCONT__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2191:/ clear");
+  /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2191:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-genobj.melt:2190:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ clear");
+ /*clear*/ /*_.LET___V2*/ curfptr[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_60_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 42
+  void* varptr[42];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<42; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 42;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_FIELDACC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ getarg");
+ /*_.NFA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2231:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2232:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2232:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2232:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2232:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2232:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2232:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2232:/ locexp");
+      melt_assert_failed(( "check nfa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2232)?(2232):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2232:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2232:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2232:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2233:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2233:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2233:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2233:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2233:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2233:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2233:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2233)?(2233):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2233:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2234:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2234:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2234:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2234:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_fieldacc nfa";
+    MELT_LOCATION("warmelt-genobj.melt:2234:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2234:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2234:/ apply.arg");
+    argtab[3].bp_long = 2234;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2234:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2234:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2234:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2235:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2236:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 1, "NACCF_OBJ");/*_.OBJ__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2237:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 2, "NACCF_FLD");/*_.FLD__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#FLDOFF__L4*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.FLD__V13*/ curfptr[12])));;
+  /*_.BOXFLDOFF__V14*/ curfptr[13] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#FLDOFF__L4*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-genobj.melt:2240:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2240:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.COBJ__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OBJ__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2244:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2244:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2244:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2244:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.BOXFLDOFF__V14*/ curfptr[13]);
+   ;
+   /*_.MAKECOMPUTE__V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2263:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2263:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.FLD__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[11])));;
+    MELT_LOCATION("warmelt-genobj.melt:2263:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2263:/ cond.then");
+    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2263:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2263:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2263:/ locexp");
+       melt_assert_failed(( "compilobj_nrep_fieldacc check fld"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2263)?(2263):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2263:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2263:/ clear");
+    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2263:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2264:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2264:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2264:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2264:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_fieldacc cobj";
+     MELT_LOCATION("warmelt-genobj.melt:2264:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
+     MELT_LOCATION("warmelt-genobj.melt:2264:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2264:/ apply.arg");
+     argtab[3].bp_long = 2264;
+     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2264:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2264:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2264:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2265:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2265:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2265:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2265:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_fieldacc fld";
+     MELT_LOCATION("warmelt-genobj.melt:2265:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
+     MELT_LOCATION("warmelt-genobj.melt:2265:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2265:/ apply.arg");
+     argtab[3].bp_long = 2265;
+     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.FLD__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2265:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2265:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2265:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L8*/ curfnum[4] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[12])));;
+  MELT_LOCATION("warmelt-genobj.melt:2266:/ cond");
+  /*cond*/ if (/*_#IS_A__L8*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2266:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2266:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2267:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2267:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), 2, "OIE_DATA");/*_.CDATA__V26*/ curfptr[25] = slot; };
+     ;
+     /*_#IS_A__L9*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CDATA__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[13])));;
+     MELT_LOCATION("warmelt-genobj.melt:2269:/ cond");
+     /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:2269:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:2269:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:2270:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:2270:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.CDATA__V26*/ curfptr[25]), 8, "NINST_SLOTS");/*_.SLOTUP__V29*/ curfptr[28] = slot; };
+        ;
+        /*_.OURSLOT__V30*/ curfptr[29] = 
+         (melt_multiple_nth((melt_ptr_t)(/*_.SLOTUP__V29*/ curfptr[28]), (/*_#FLDOFF__L4*/ curfnum[0])));;
+        /*_#IS_A__L10*/ curfnum[9] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.OURSLOT__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[14])));;
+        MELT_LOCATION("warmelt-genobj.melt:2273:/ cond");
+        /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:2273:/ cond.then");
+        MELT_LOCATION("warmelt-genobj.melt:2273:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:2274:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-genobj.melt:2274:/ msend");
+           /*msend*/{
+            union meltparam_un argtab[1];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-genobj.melt:2274:/ ojbmsend.arg");
+            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+            /*_.CSLOT__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.OURSLOT__V30*/ curfptr[29]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-genobj.melt:2275:/ cppif.then");
+           MELT_LOCATION("warmelt-genobj.melt:2275:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+              callcount;;
+             MELT_LOCATION("warmelt-genobj.melt:2275:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-genobj.melt:2275:/ apply.arg");
+              argtab[0].bp_cstring =  "compilobj_nrep_fieldacc returning cslot";
+              MELT_LOCATION("warmelt-genobj.melt:2275:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+              MELT_LOCATION("warmelt-genobj.melt:2275:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-genobj.melt";
+              MELT_LOCATION("warmelt-genobj.melt:2275:/ apply.arg");
+              argtab[3].bp_long = 2275;
+              /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CSLOT__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-genobj.melt:2275:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+             MELT_LOCATION("warmelt-genobj.melt:2275:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-genobj.melt:2275:/ cppif.else");
+           /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           MELT_LOCATION("warmelt-genobj.melt:2276:/ block");
+           /*block*/{
+            /*_.RETVAL___V1*/ curfptr[0] = /*_.CSLOT__V33*/ curfptr[32];;
+            MELT_LOCATION("warmelt-genobj.melt:2276:/ finalreturn");
+            ;
+            /*finalret*/ goto labend_rout ;}
+           ;
+           /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V36*/ curfptr[34];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:2274:/ clear");
+           /*clear*/ /*_.CSLOT__V33*/ curfptr[32] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:2274:/ clear");
+           /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:2274:/ clear");
+           /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
+          ;
+          /*_.IFELSE___V31*/ curfptr[30] = /*_.LET___V32*/ curfptr[31];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:2273:/ clear");
+          /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-genobj.melt:2273:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:2273:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:2277:/ apply");
+          /*apply*/{
+           /*_.MAKECOMPUTE__V37*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:2277:/ block");
+          /*block*/{
+           /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V37*/ curfptr[32];;
+           MELT_LOCATION("warmelt-genobj.melt:2277:/ finalreturn");
+           ;
+           /*finalret*/ goto labend_rout ;}
+          ;
+          /*_.IFELSE___V31*/ curfptr[30] = /*_.RETURN___V38*/ curfptr[33];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:2273:/ clear");
+          /*clear*/ /*_.MAKECOMPUTE__V37*/ curfptr[32] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:2273:/ clear");
+          /*clear*/ /*_.RETURN___V38*/ curfptr[33] = 0 ;}
+         ;
+         }
+        ;
+        /*_.LET___V28*/ curfptr[27] = /*_.IFELSE___V31*/ curfptr[30];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2270:/ clear");
+        /*clear*/ /*_.SLOTUP__V29*/ curfptr[28] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2270:/ clear");
+        /*clear*/ /*_.OURSLOT__V30*/ curfptr[29] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2270:/ clear");
+        /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2270:/ clear");
+        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+       ;
+       /*_.IFELSE___V27*/ curfptr[26] = /*_.LET___V28*/ curfptr[27];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2269:/ clear");
+       /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:2269:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:2269:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:2278:/ apply");
+       /*apply*/{
+        /*_.MAKECOMPUTE__V39*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+        }
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:2278:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V39*/ curfptr[34];;
+        MELT_LOCATION("warmelt-genobj.melt:2278:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       /*_.IFELSE___V27*/ curfptr[26] = /*_.RETURN___V40*/ curfptr[31];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2269:/ clear");
+       /*clear*/ /*_.MAKECOMPUTE__V39*/ curfptr[34] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2269:/ clear");
+       /*clear*/ /*_.RETURN___V40*/ curfptr[31] = 0 ;}
+      ;
+      }
+     ;
+     /*_.LET___V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2267:/ clear");
+     /*clear*/ /*_.CDATA__V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2267:/ clear");
+     /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2267:/ clear");
+     /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+    ;
+    /*_.IFELSE___V24*/ curfptr[22] = /*_.LET___V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2266:/ clear");
+    /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2266:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:2266:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2280:/ apply");
+    /*apply*/{
+     /*_.MAKECOMPUTE__V41*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2280:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V41*/ curfptr[32];;
+     MELT_LOCATION("warmelt-genobj.melt:2280:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IFELSE___V24*/ curfptr[22] = /*_.RETURN___V42*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2266:/ clear");
+    /*clear*/ /*_.MAKECOMPUTE__V41*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2266:/ clear");
+    /*clear*/ /*_.RETURN___V42*/ curfptr[33] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V24*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.OBJ__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.FLD__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_#FLDOFF__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.BOXFLDOFF__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.COBJ__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.MAKECOMPUTE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_#IS_A__L8*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2235:/ clear");
+  /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2231:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_FIELDACC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_62_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2244:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2245:/ block");
+ /*block*/{
+  /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "/*fieldacc*/(melt_field_object((melt_ptr_t)(")));;
+  /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "),")));;
+  /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "))")));;
+  /*_.TCONT__V6*/ curfptr[5] = 
+   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V3*/ curfptr[2]),  
+		      (melt_ptr_t)((/*~COBJ*/ curfclos->tabval[0])),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V4*/ curfptr[3]),  (melt_ptr_t)((/*~BOXFLDOFF*/ curfclos->tabval[1])),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V5*/ curfptr[4])));;
+  MELT_LOCATION("warmelt-genobj.melt:2255:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2255:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[2])), (2), "CLASS_OBJEXPV");/*_.INST__V8*/ curfptr[7] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2255:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "OBV_TYPE");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2255:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.TCONT__V6*/ curfptr[5]), "OBX_CONT");
+   ;
+   /*_.RES__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2259:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2259:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2259:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2259:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_fieldacc makecompute res";
+     MELT_LOCATION("warmelt-genobj.melt:2259:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2259:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2259:/ apply.arg");
+     argtab[3].bp_long = 2259;
+     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2259:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2259:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2259:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V2*/ curfptr[1] = /*_.RES__V7*/ curfptr[6];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2245:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2245:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2245:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2245:/ clear");
+  /*clear*/ /*_.TCONT__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2245:/ clear");
+  /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2245:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-genobj.melt:2244:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ clear");
+ /*clear*/ /*_.LET___V2*/ curfptr[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_62_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_UNSAFE_GET_FIELD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ getarg");
+ /*_.NUGF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2286:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2287:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2287:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2287:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2287:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2287:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2287:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2287:/ locexp");
+      melt_assert_failed(( "check nugf"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2287)?(2287):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2287:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2287:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2287:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2288:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2288:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2288:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2288:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2288:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2288:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2288:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2288)?(2288):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2288:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2289:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2289:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2289:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2289:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_unsafe_get_field nugf";
+    MELT_LOCATION("warmelt-genobj.melt:2289:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2289:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2289:/ apply.arg");
+    argtab[3].bp_long = 2289;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2289:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2289:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2289:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2290:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2291:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 1, "NUGET_OBJ");/*_.NOBJ__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2292:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 2, "NUGET_FIELD");/*_.NFIELD__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.DLIST__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2294:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2294:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OOBJ__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.NOBJ__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2295:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2295:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[5])), (4), "CLASS_OBJGETSLOT");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2295:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2295:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DLIST__V14*/ curfptr[13]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2295:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OGETSL_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OOBJ__V15*/ curfptr[14]), "OGETSL_OBJ");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2295:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OGETSL_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), (/*_.NFIELD__V13*/ curfptr[12]), "OGETSL_FIELD");
+   ;
+   /*_.OGETSLOT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2301:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OGETSLOT__V16*/ curfptr[15];;
+   MELT_LOCATION("warmelt-genobj.melt:2301:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V18*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.NOBJ__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.NFIELD__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.DLIST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.OOBJ__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.OGETSLOT__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2290:/ clear");
+  /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2286:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_UNSAFE_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 24
+  void* varptr[24];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<24; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 24;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_UNSAFE_PUT_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ getarg");
+ /*_.NUPF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2308:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2309:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2309:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2309:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2309:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2309:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2309:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2309:/ locexp");
+      melt_assert_failed(( "check nupf"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2309)?(2309):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2309:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2309:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2309:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2310:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2310:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2310:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2310:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2310:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2310:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2310:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2310)?(2310):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2310:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2311:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2311:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2311:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2311:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_unsafe_put_fields nupf";
+    MELT_LOCATION("warmelt-genobj.melt:2311:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2311:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2311:/ apply.arg");
+    argtab[3].bp_long = 2311;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2311:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2311:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2311:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2312:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2313:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 1, "NUPUT_OBJ");/*_.NOBJ__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2314:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 2, "NUPUT_FIELDS");/*_.NFLDASS__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.OBODL__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+  /*_.OEPIL__V15*/ curfptr[14] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2317:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2317:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2317:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2317:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.OBODL__V14*/ curfptr[13]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2317:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OEPIL__V15*/ curfptr[14]), "OBLO_EPIL");
+   ;
+   /*_.OBLOCK__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2321:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2321:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OOBJ__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NOBJ__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2325:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2325:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (4));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2325:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2325:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2325:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.OOBJ__V18*/ curfptr[17]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2325:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[3] = (melt_ptr_t)(/*_.OBODL__V14*/ curfptr[13]);
+   ;
+   /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2323:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2323:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18];
+   /*_.MULTIPLE_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NFLDASS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2344:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2344:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[14])), (3), "CLASS_OBJTOUCH");/*_.INST__V23*/ curfptr[22] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2344:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2344:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.OOBJ__V18*/ curfptr[17]), "OTOUCH_VAL");
+   ;
+   /*_.INST___V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2344:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V14*/ curfptr[13]), (melt_ptr_t)(/*_.INST___V22*/ curfptr[21]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2348:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V14*/ curfptr[13]), (melt_ptr_t)(/*_.OOBJ__V18*/ curfptr[17]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2349:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V16*/ curfptr[15];;
+   MELT_LOCATION("warmelt-genobj.melt:2349:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V24*/ curfptr[23];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.NOBJ__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.NFLDASS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.OBODL__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.OEPIL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.OBLOCK__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.OOBJ__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.INST___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2312:/ clear");
+  /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2308:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_UNSAFE_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_65_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ getarg");
+ /*_.NFA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2325:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2326:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2326:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2326:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2326:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2326:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2326:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2326:/ locexp");
+      melt_assert_failed(( "check nfa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2326)?(2326):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2326:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2326:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2326:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2327:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2327:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.ALOC__V5*/ curfptr[3] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2328:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 1, "NFLA_FIELD");/*_.AFIELD__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2329:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 2, "NFLA_VAL");/*_.AVAL__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#AOFF__L3*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.AFIELD__V6*/ curfptr[5])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2332:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2332:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.AFIELD__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-genobj.melt:2332:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2332:/ cond.then");
+    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2332:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2332:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2332:/ locexp");
+       melt_assert_failed(( "check afield"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2332)?(2332):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2332:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2332:/ clear");
+    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2332:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2333:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2334:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2334:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+    /*_.OVAL__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.AVAL__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2336:/ cond");
+   /*cond*/ if (/*_.ALOC__V5*/ curfptr[3]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2336:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = /*_.ALOC__V5*/ curfptr[3];;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2336:/ cond.else");
+   
+    /*_.IFELSE___V11*/ curfptr[10] = (/*~LOC*/ curfclos->tabval[1]);;
+    }
+   ;
+   /*_.MAKE_INTEGERBOX__V12*/ curfptr[11] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#AOFF__L3*/ curfnum[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2335:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2335:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[3])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V14*/ curfptr[13] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2335:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (0), (/*_.IFELSE___V11*/ curfptr[10]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2335:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_ODATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), ((/*~OOBJ*/ curfclos->tabval[2])), "OSLOT_ODATA");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2335:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), (/*_.AFIELD__V6*/ curfptr[5]), "OSLOT_FIELD");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2335:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), (/*_.MAKE_INTEGERBOX__V12*/ curfptr[11]), "OSLOT_OFFSET");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2335:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (4), (/*_.OVAL__V10*/ curfptr[8]), "OSLOT_VALUE");
+    ;
+    /*_.OPUF__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2341:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2341:/ block");
+    /*block*/{
+     /*_#IS_A__L5*/ curfnum[3] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.OVAL__V10*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[5])));;
+     /*_#NOT__L6*/ curfnum[5] = 
+      (!(/*_#IS_A__L5*/ curfnum[3]));;
+     MELT_LOCATION("warmelt-genobj.melt:2341:/ cond");
+     /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:2341:/ cond.then");
+     /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:2341:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:2341:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:2341:/ locexp");
+        melt_assert_failed(( "compilobj_nrep_unsafe_put_fields check oval not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2341)?(2341):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2341:/ clear");
+     /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2341:/ clear");
+     /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2341:/ clear");
+     /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2341:/ cppif.else");
+   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2342:/ locexp");
+   meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OPUF__V13*/ curfptr[12]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2333:/ clear");
+   /*clear*/ /*_.OVAL__V10*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2333:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2333:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2333:/ clear");
+   /*clear*/ /*_.OPUF__V13*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2333:/ clear");
+   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2327:/ clear");
+  /*clear*/ /*_.ALOC__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2327:/ clear");
+  /*clear*/ /*_.AFIELD__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2327:/ clear");
+  /*clear*/ /*_.AVAL__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2327:/ clear");
+  /*clear*/ /*_#AOFF__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2327:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_65_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_APPLY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ getarg");
+ /*_.NAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2354:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2355:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2355:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2355:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2355:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2355:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2355:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2355:/ locexp");
+      melt_assert_failed(( "check napp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2355)?(2355):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2355:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2356:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2356:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2356:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2356:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2356:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2356:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2356:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2356)?(2356):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2356:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2356:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2356:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2357:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2357:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2358:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 3, "NAPP_FUN");/*_.FUN__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2359:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.ARGS__V11*/ curfptr[10] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2361:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2361:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2361:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2361:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_apply napp";
+     MELT_LOCATION("warmelt-genobj.melt:2361:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2361:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2361:/ apply.arg");
+     argtab[3].bp_long = 2361;
+     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2361:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2361:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2361:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2362:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2362:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OCLOS__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.FUN__V10*/ curfptr[9]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2365:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2365:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2365:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2363:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2363:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+    /*_.OARGS__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ARGS__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.DLIST__V19*/ curfptr[18] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+   MELT_LOCATION("warmelt-genobj.melt:2372:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2372:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[9])), (4), "CLASS_OBJAPPLY");/*_.INST__V21*/ curfptr[20] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2372:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2372:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.DLIST__V19*/ curfptr[18]), "OBDI_DESTLIST");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2372:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.OCLOS__V15*/ curfptr[14]), "OBAPP_CLOS");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2372:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.OARGS__V18*/ curfptr[17]), "OBAPP_ARGS");
+    ;
+    /*_.OAPP__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2379:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2379:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2379:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2379:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_apply return oapp";
+      MELT_LOCATION("warmelt-genobj.melt:2379:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:2379:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2379:/ apply.arg");
+      argtab[3].bp_long = 2379;
+      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OAPP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2379:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2379:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2379:/ cppif.else");
+   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V14*/ curfptr[12] = /*_.OAPP__V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ clear");
+   /*clear*/ /*_.OCLOS__V15*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ clear");
+   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ clear");
+   /*clear*/ /*_.OARGS__V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ clear");
+   /*clear*/ /*_.DLIST__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ clear");
+   /*clear*/ /*_.OAPP__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2362:/ clear");
+   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V14*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2357:/ clear");
+  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2357:/ clear");
+  /*clear*/ /*_.FUN__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2357:/ clear");
+  /*clear*/ /*_.ARGS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2357:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2357:/ clear");
+  /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:2354:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_APPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_67_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ getarg");
+ /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2365:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2366:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2366:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2366:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OCOMP__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2367:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2367:/ block");
+   /*block*/{
+    /*_#IS_A__L2*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OCOMP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[1])));;
+    /*_#NOT__L3*/ curfnum[2] = 
+     (!(/*_#IS_A__L2*/ curfnum[1]));;
+    MELT_LOCATION("warmelt-genobj.melt:2367:/ cond");
+    /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2367:/ cond.then");
+    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2367:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2367:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2367:/ locexp");
+       melt_assert_failed(( "compilobj_nrep_apply check ocomp not objinstr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2367)?(2367):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2367:/ clear");
+    /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2367:/ clear");
+    /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2367:/ clear");
+    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2367:/ cppif.else");
+  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V3*/ curfptr[2] = /*_.OCOMP__V4*/ curfptr[3];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2366:/ clear");
+  /*clear*/ /*_.OCOMP__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2366:/ clear");
+  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2365:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_67_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 48
+  void* varptr[48];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<48; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 48;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_MULTIAPPLY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ getarg");
+ /*_.NMAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2385:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2386:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2386:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2386:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2386:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2386:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2386:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2386:/ locexp");
+      melt_assert_failed(( "check napp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2386)?(2386):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2386:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2386:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2386:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2387:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2387:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2387:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2387:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2387:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2387:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2387:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2387)?(2387):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2387:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2388:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2388:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2388:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2388:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multiapply nmapp";
+    MELT_LOCATION("warmelt-genobj.melt:2388:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2388:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2388:/ apply.arg");
+    argtab[3].bp_long = 2388;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2388:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2388:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2388:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2389:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2390:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 4, "NMULAPP_BINDINGS");/*_.RBINDS__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2391:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 3, "NAPP_FUN");/*_.FUN__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2392:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.ARGS__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2393:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 5, "NMULAPP_BODY");/*_.NBODY__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2394:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V16*/ curfptr[15] = slot; };
+  ;
+  /*_#NBRES__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11])));;
+  MELT_LOCATION("warmelt-genobj.melt:2399:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2399:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2399:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2399:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V16*/ curfptr[15]);
+   ;
+   /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2397:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2397:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
+   /*_.RESLOCS__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.OBODL__V20*/ curfptr[19] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+  /*_.OEPIL__V21*/ curfptr[20] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2416:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2416:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[10])), (3), "CLASS_OBJBLOCK");/*_.INST__V23*/ curfptr[22] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2416:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2416:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.OBODL__V20*/ curfptr[19]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2416:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.OEPIL__V21*/ curfptr[20]), "OBLO_EPIL");
+   ;
+   /*_.OBLOCK__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+  ;
+  /*_#I__L5*/ curfnum[4] = 
+   ((/*_#NBRES__L4*/ curfnum[0]) > (1));;
+  MELT_LOCATION("warmelt-genobj.melt:2420:/ cond");
+  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2420:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2420:/ block");
+   /*block*/{
+    /*_#I__L6*/ curfnum[5] = 
+     ((/*_#NBRES__L4*/ curfnum[0]) - (1));;
+    /*_.MAKE_MULTIPLE__V25*/ curfptr[24] = 
+     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (/*_#I__L6*/ curfnum[5])));;
+    /*_.OXRES__V24*/ curfptr[23] = /*_.MAKE_MULTIPLE__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2420:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2420:/ clear");
+    /*clear*/ /*_.MAKE_MULTIPLE__V25*/ curfptr[24] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2420:/ cond.else");
+  
+   /*_.OXRES__V24*/ curfptr[23] = NULL;;
+   }
+  ;
+  /*_.FIRSTRES__V26*/ curfptr[24] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.RESLOCS__V19*/ curfptr[18]), (0)));;
+  MELT_LOCATION("warmelt-genobj.melt:2422:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2422:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OFUN__V27*/ curfptr[26] = meltgc_send((melt_ptr_t)(/*_.FUN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.RESLIST__V28*/ curfptr[27] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2425:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2425:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2425:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2424:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2424:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
+   /*_.OARGS__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ARGS__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2427:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2427:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OBODY__V32*/ curfptr[31] = meltgc_send((melt_ptr_t)(/*_.NBODY__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2431:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2431:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.COMPILE_OBJ__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.FUN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2428:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2428:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[15])), (5), "CLASS_OBJMULTIAPPLY");/*_.INST__V35*/ curfptr[34] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2428:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2428:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.RESLIST__V28*/ curfptr[27]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2428:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), (/*_.COMPILE_OBJ__V33*/ curfptr[32]), "OBAPP_CLOS");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2428:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.OARGS__V31*/ curfptr[30]), "OBAPP_ARGS");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2428:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBMULTAPP_XRES", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.OXRES__V24*/ curfptr[23]), "OBMULTAPP_XRES");
+   ;
+   /*_.OMAPP__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2435:/ cond");
+  /*cond*/ if (/*_.FIRSTRES__V26*/ curfptr[24]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2435:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2435:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2435:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V28*/ curfptr[27]), (melt_ptr_t)(/*_.FIRSTRES__V26*/ curfptr[24]));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2439:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2439:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2439:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.OBODL__V20*/ curfptr[19]);
+   ;
+   /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2437:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2437:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35];
+   /*_.MULTIPLE_EVERY__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OARGS__V31*/ curfptr[30]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2444:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OMAPP__V34*/ curfptr[33]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2446:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2446:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2446:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2446:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multiapply obody";
+     MELT_LOCATION("warmelt-genobj.melt:2446:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:2446:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2446:/ apply.arg");
+     argtab[3].bp_long = 2446;
+     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBODY__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2446:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2446:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2446:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2447:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OBODY__V32*/ curfptr[31]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2451:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2451:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2451:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2451:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[1] = (melt_ptr_t)(/*_.OEPIL__V21*/ curfptr[20]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2451:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[2] = (melt_ptr_t)(/*_.OXRES__V24*/ curfptr[23]);
+   ;
+   /*_.LAMBDA___V41*/ curfptr[39] = /*_.LAMBDA___V42*/ curfptr[41];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2449:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2449:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[39];
+   /*_.MULTIPLE_EVERY__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RESLOCS__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2462:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2462:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[44] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (1));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2462:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[44])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[44])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[44])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   /*_.LAMBDA___V44*/ curfptr[43] = /*_.LAMBDA___V45*/ curfptr[44];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2460:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2460:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[43];
+   /*_.MULTIPLE_EVERY__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2463:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2463:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2463:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2463:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multiapply final oblock";
+     MELT_LOCATION("warmelt-genobj.melt:2463:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:2463:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2463:/ apply.arg");
+     argtab[3].bp_long = 2463;
+     /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2463:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2463:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2463:/ cppif.else");
+  /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V22*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.RBINDS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.FUN__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.ARGS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.NBODY__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LOCMAP__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_#NBRES__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.RESLOCS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OBODL__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OEPIL__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OBLOCK__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OXRES__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.FIRSTRES__V26*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OFUN__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.RESLIST__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OARGS__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OBODY__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.COMPILE_OBJ__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.OMAPP__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LAMBDA___V41*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V43*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.LAMBDA___V44*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2389:/ clear");
+  /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2385:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_MULTIAPPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_69_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2399:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2400:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2400:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2400:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2400:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multiapply bind";
+    MELT_LOCATION("warmelt-genobj.melt:2400:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2400:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2400:/ apply.arg");
+    argtab[3].bp_long = 2400;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2400:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2400:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2400:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2401:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2401:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2401:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2401:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2401:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2401:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2401:/ locexp");
+      melt_assert_failed(( "compilobj_nrep_multiapply check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2401)?(2401):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2401:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2403:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2403:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2404:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2405:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2405:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V8*/ curfptr[7];
+   MELT_LOCATION("warmelt-genobj.melt:2405:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V9*/ curfptr[8];
+   /*_.OBVA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2407:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2407:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CTY__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:2407:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2407:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2407:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2407:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2407:/ locexp");
+       melt_assert_failed(( "compilobj_nrep_multiapply check cty"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2407)?(2407):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2407:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2407:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2407:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2410:/ cond");
+  /*cond*/ if (/*_.OBVA__V10*/ curfptr[9]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2410:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2410:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2410:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.BIND__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2411:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2411:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2411:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2411:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multiapply obva";
+     MELT_LOCATION("warmelt-genobj.melt:2411:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2411:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2411:/ apply.arg");
+     argtab[3].bp_long = 2411;
+     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2411:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2411:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2411:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V7*/ curfptr[5] = /*_.OBVA__V10*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2403:/ clear");
+  /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2403:/ clear");
+  /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2403:/ clear");
+  /*clear*/ /*_.OBVA__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2403:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2403:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-genobj.melt:2399:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_69_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_70_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2425:/ getarg");
+ /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2425:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2425:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2426:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:2426:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2425:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2425:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2425:/ clear");
+ /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_70_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_71_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ getarg");
+ /*_.OCURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2439:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2440:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2440:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2440:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2440:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multiapply ocurarg";
+    MELT_LOCATION("warmelt-genobj.melt:2440:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2440:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2440:/ apply.arg");
+    argtab[3].bp_long = 2440;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2440:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2440:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2440:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2441:/ cond");
+ /*cond*/ if (/*_.OCURARG__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2441:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2441:/ block");
+  /*block*/{
+   /*_#IS_NOT_A__L4*/ curfnum[3] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[1])));;
+   /*_#IF___L3*/ curfnum[1] = /*_#IS_NOT_A__L4*/ curfnum[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2441:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:2441:/ cond.else");
+ 
+  /*_#IF___L3*/ curfnum[1] = 0;;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2441:/ cond");
+ /*cond*/ if (/*_#IF___L3*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2441:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2441:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2442:/ locexp");
+   meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]));}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ clear");
+ /*clear*/ /*_#IF___L3*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_71_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_72_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2451:/ getarg");
+ /*_.RLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2451:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2451:/ block");
+/*block*/{
+ /*_#I__L2*/ curfnum[1] = 
+  ((/*_#IX__L1*/ curfnum[0]) > (0));;
+ MELT_LOCATION("warmelt-genobj.melt:2452:/ cond");
+ /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2452:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2452:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2453:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2453:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2453:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2453:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2453:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.RLOC__V2*/ curfptr[1]), "OCLR_VLOC");
+     ;
+     /*_.OCLEAR__V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2456:/ locexp");
+    meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V3*/ curfptr[2]));}
+    ;
+    /*_#I__L3*/ curfnum[2] = 
+     ((/*_#IX__L1*/ curfnum[0]) - (1));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2457:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)((/*~OXRES*/ curfclos->tabval[2])), (/*_#I__L3*/ curfnum[2]), (melt_ptr_t)(/*_.RLOC__V2*/ curfptr[1]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2453:/ clear");
+    /*clear*/ /*_.OCLEAR__V3*/ curfptr[2] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2453:/ clear");
+    /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2451:/ clear");
+ /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_72_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_73_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2462:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:2462:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2462:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ clear");
+ /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_73_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_MSEND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ getarg");
+ /*_.NSND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2471:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2472:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2472:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2472:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2472:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2472:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2472:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2472:/ locexp");
+      melt_assert_failed(( "check nsnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2472)?(2472):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2472:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2473:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2473:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2473:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2473:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2473:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2473:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2473:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2473)?(2473):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2473:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2473:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2473:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2474:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2475:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 3, "NSEND_SEL");/*_.NSEL__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2476:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 4, "NSEND_RECV");/*_.NRECV__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2477:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.NARGS__V12*/ curfptr[11] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2479:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2479:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2479:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2479:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_msend nsnd";
+     MELT_LOCATION("warmelt-genobj.melt:2479:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2479:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2479:/ apply.arg");
+     argtab[3].bp_long = 2479;
+     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2479:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2479:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2479:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2480:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2480:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2480:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2480:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_msend nrecv";
+     MELT_LOCATION("warmelt-genobj.melt:2480:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2480:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2480:/ apply.arg");
+     argtab[3].bp_long = 2480;
+     /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NRECV__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2480:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2481:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2481:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L5*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V11*/ curfptr[10])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:2481:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2481:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2481:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2481:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2481:/ locexp");
+       melt_assert_failed(( "check nrecv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2481)?(2481):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2481:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2481:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2481:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2482:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2482:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OSEL__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NSEL__V10*/ curfptr[9]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2483:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2483:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.ORECV__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.NRECV__V11*/ curfptr[10]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2486:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2486:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2486:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2484:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2484:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
+    /*_.OARGS__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.MAKE_LIST__V25*/ curfptr[24] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+   MELT_LOCATION("warmelt-genobj.melt:2495:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2495:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMSEND*/ curfrout->tabval[8])), (5), "CLASS_OBJMSEND");/*_.INST__V27*/ curfptr[26] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.MAKE_LIST__V25*/ curfptr[24]), "OBDI_DESTLIST");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBMSND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.OSEL__V20*/ curfptr[19]), "OBMSND_SEL");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBMSND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.ORECV__V21*/ curfptr[20]), "OBMSND_RECV");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBMSND_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.OARGS__V24*/ curfptr[23]), "OBMSND_ARGS");
+    ;
+    /*_.OSEND__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2504:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2504:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2504:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2504:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_msend osend";
+      MELT_LOCATION("warmelt-genobj.melt:2504:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:2504:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2504:/ apply.arg");
+      argtab[3].bp_long = 2504;
+      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSEND__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2504:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2504:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2504:/ cppif.else");
+   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2505:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2505:/ block");
+    /*block*/{
+     /*_#IS_OBJECT__L7*/ curfnum[0] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V21*/ curfptr[20])) == OBMAG_OBJECT);;
+     MELT_LOCATION("warmelt-genobj.melt:2505:/ cond");
+     /*cond*/ if (/*_#IS_OBJECT__L7*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:2505:/ cond.then");
+     /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:2505:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:2505:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:2505:/ locexp");
+        melt_assert_failed(( "check orecv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2505)?(2505):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2505:/ clear");
+     /*clear*/ /*_#IS_OBJECT__L7*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2505:/ clear");
+     /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2505:/ cppif.else");
+   /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V19*/ curfptr[17] = /*_.OSEND__V26*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.OSEL__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.ORECV__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.OARGS__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.MAKE_LIST__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.OSEND__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2482:/ clear");
+   /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V19*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.NSEL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.NRECV__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.NARGS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2474:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:2471:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_MSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_75_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ getarg");
+ /*_.NCURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2486:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2487:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2487:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2487:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2487:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_msend ncurarg";
+    MELT_LOCATION("warmelt-genobj.melt:2487:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2487:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2487:/ apply.arg");
+    argtab[3].bp_long = 2487;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2487:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2487:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2487:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2488:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2488:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2488:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OCURARG__V6*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.NCURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2490:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2490:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2490:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2490:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_msend ocurarg";
+     MELT_LOCATION("warmelt-genobj.melt:2490:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2490:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2490:/ apply.arg");
+     argtab[3].bp_long = 2490;
+     /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2490:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2490:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2490:/ cppif.else");
+  /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2491:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2491:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE__L4*/ curfnum[1] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.OCURARG__V6*/ curfptr[5])) == OBMAG_MULTIPLE);;
+    /*_#NOT__L5*/ curfnum[4] = 
+     (!(/*_#IS_MULTIPLE__L4*/ curfnum[1]));;
+    MELT_LOCATION("warmelt-genobj.melt:2491:/ cond");
+    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2491:/ cond.then");
+    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2491:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2491:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2491:/ locexp");
+       melt_assert_failed(( "check ocurarg not tuple"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2491)?(2491):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2491:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2491:/ clear");
+    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2491:/ clear");
+    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2491:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V5*/ curfptr[3] = /*_.OCURARG__V6*/ curfptr[5];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2488:/ clear");
+  /*clear*/ /*_.OCURARG__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2488:/ clear");
+  /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2488:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-genobj.melt:2486:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_75_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 53
+  void* varptr[53];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<53; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 53;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_MULTIMSEND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ getarg");
+ /*_.NMSND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2512:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2513:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2513:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2513:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2513:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2513:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2513:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2513:/ locexp");
+      melt_assert_failed(( "check nmsnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2513)?(2513):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2513:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2513:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2513:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2514:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2514:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2514:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2514:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2514:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2514:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2514:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2514)?(2514):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2514:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2515:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2515:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2515:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2515:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multimsend nmsnd";
+    MELT_LOCATION("warmelt-genobj.melt:2515:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2515:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2515:/ apply.arg");
+    argtab[3].bp_long = 2515;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2515:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2515:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2515:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2516:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2517:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 5, "NMULSEND_BINDINGS");/*_.RBINDS__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2518:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 6, "NMULSEND_BODY");/*_.NBODY__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2519:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 3, "NSEND_SEL");/*_.NSEL__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2520:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 4, "NSEND_RECV");/*_.NRECV__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2521:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.NARGS__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2522:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V17*/ curfptr[16] = slot; };
+  ;
+  /*_#NBRES__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11])));;
+  MELT_LOCATION("warmelt-genobj.melt:2527:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2527:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2527:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2527:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V17*/ curfptr[16]);
+   ;
+   /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2525:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2525:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17];
+   /*_.RESLOCS__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#I__L5*/ curfnum[4] = 
+   ((/*_#NBRES__L4*/ curfnum[0]) > (1));;
+  MELT_LOCATION("warmelt-genobj.melt:2542:/ cond");
+  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2542:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2542:/ block");
+   /*block*/{
+    /*_#I__L6*/ curfnum[5] = 
+     ((/*_#NBRES__L4*/ curfnum[0]) - (1));;
+    /*_.MAKE_MULTIPLE__V22*/ curfptr[21] = 
+     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[9])), (/*_#I__L6*/ curfnum[5])));;
+    /*_.OXRES__V21*/ curfptr[20] = /*_.MAKE_MULTIPLE__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2542:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2542:/ clear");
+    /*clear*/ /*_.MAKE_MULTIPLE__V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2542:/ cond.else");
+  
+   /*_.OXRES__V21*/ curfptr[20] = NULL;;
+   }
+  ;
+  /*_.FIRSTRES__V23*/ curfptr[21] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (0)));;
+  MELT_LOCATION("warmelt-genobj.melt:2545:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2545:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OSEL__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NSEL__V14*/ curfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.RESLIST__V25*/ curfptr[24] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2547:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2547:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.ORECV__V26*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.NRECV__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2549:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2549:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[27] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (1));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2549:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[27])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[27])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[27])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   /*_.LAMBDA___V27*/ curfptr[26] = /*_.LAMBDA___V28*/ curfptr[27];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2548:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2548:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[26];
+   /*_.OARGS__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NARGS__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2551:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2551:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OBODY__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.NBODY__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.OBODL__V31*/ curfptr[30] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));;
+  /*_.OEPIL__V32*/ curfptr[31] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2554:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2554:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[14])), (3), "CLASS_OBJBLOCK");/*_.INST__V34*/ curfptr[33] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2554:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2554:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.OBODL__V31*/ curfptr[30]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2554:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.OEPIL__V32*/ curfptr[31]), "OBLO_EPIL");
+   ;
+   /*_.OBLOCK__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2558:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ curfrout->tabval[15])), (6), "CLASS_OBJMULTIMSEND");/*_.INST__V36*/ curfptr[35] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.RESLIST__V25*/ curfptr[24]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBMSND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.OSEL__V24*/ curfptr[23]), "OBMSND_SEL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBMSND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.ORECV__V26*/ curfptr[25]), "OBMSND_RECV");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBMSND_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (4), (/*_.OARGS__V29*/ curfptr[28]), "OBMSND_ARGS");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2558:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBMULTSND_XRES", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.OXRES__V21*/ curfptr[20]), "OBMULTSND_XRES");
+   ;
+   /*_.OMSEND__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2566:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2566:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2566:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2566:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multimsend reslocs";
+     MELT_LOCATION("warmelt-genobj.melt:2566:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:2566:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2566:/ apply.arg");
+     argtab[3].bp_long = 2566;
+     /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2566:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2566:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2566:/ cppif.else");
+  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2567:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2567:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2567:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2567:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multimsend omsend middle";
+     MELT_LOCATION("warmelt-genobj.melt:2567:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:2567:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2567:/ apply.arg");
+     argtab[3].bp_long = 2567;
+     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMSEND__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2567:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2567:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2567:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2568:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2568:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L9*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V26*/ curfptr[25])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:2568:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L9*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2568:/ cond.then");
+    /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2568:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2568:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2568:/ locexp");
+       melt_assert_failed(( "check orecv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2568)?(2568):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2568:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L9*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2568:/ clear");
+    /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2568:/ cppif.else");
+  /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2569:/ cond");
+  /*cond*/ if (/*_.FIRSTRES__V23*/ curfptr[21]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2569:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2569:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2569:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FIRSTRES__V23*/ curfptr[21]));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2573:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2573:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2573:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (melt_ptr_t)(/*_.OBODL__V31*/ curfptr[30]);
+   ;
+   /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2571:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2571:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41];
+   /*_.MULTIPLE_EVERY__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OARGS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2578:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V31*/ curfptr[30]), (melt_ptr_t)(/*_.OMSEND__V35*/ curfptr[34]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2580:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V31*/ curfptr[30]), (melt_ptr_t)(/*_.OBODY__V30*/ curfptr[29]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2584:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2584:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2584:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2584:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.OEPIL__V32*/ curfptr[31]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2584:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[2] = (melt_ptr_t)(/*_.OXRES__V21*/ curfptr[20]);
+   ;
+   /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2582:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2582:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45];
+   /*_.MULTIPLE_EVERY__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2594:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2594:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V50*/ curfptr[49] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (1));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2594:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V50*/ curfptr[49])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V50*/ curfptr[49])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V50*/ curfptr[49])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   /*_.LAMBDA___V49*/ curfptr[48] = /*_.LAMBDA___V50*/ curfptr[49];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2592:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2592:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V49*/ curfptr[48];
+   /*_.MULTIPLE_EVERY__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2595:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2595:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2595:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2595:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multimsend final oblock";
+     MELT_LOCATION("warmelt-genobj.melt:2595:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:2595:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2595:/ apply.arg");
+     argtab[3].bp_long = 2595;
+     /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2595:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2595:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2595:/ cppif.else");
+  /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V33*/ curfptr[32];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.RBINDS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.NBODY__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.NSEL__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.NRECV__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.NARGS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LOCMAP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_#NBRES__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.RESLOCS__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OXRES__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.FIRSTRES__V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OSEL__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.RESLIST__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.ORECV__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LAMBDA___V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OARGS__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OBODY__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OBODL__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OEPIL__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OBLOCK__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.OMSEND__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V48*/ curfptr[47] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.LAMBDA___V49*/ curfptr[48] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V51*/ curfptr[50] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2516:/ clear");
+  /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2512:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_MULTIMSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_77_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2527:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2528:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2528:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2528:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2528:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multimsend bind";
+    MELT_LOCATION("warmelt-genobj.melt:2528:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2528:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2528:/ apply.arg");
+    argtab[3].bp_long = 2528;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2528:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2528:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2528:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2529:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2529:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2529:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2529:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2529:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2529:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2529:/ locexp");
+      melt_assert_failed(( "compilobj_nrep_multimsend check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2529)?(2529):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2529:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2531:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2531:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2532:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2533:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2533:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V8*/ curfptr[7];
+   MELT_LOCATION("warmelt-genobj.melt:2533:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V9*/ curfptr[8];
+   /*_.OBVA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2535:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2535:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CTY__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:2535:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2535:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2535:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2535:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2535:/ locexp");
+       melt_assert_failed(( "compilobj_nrep_multimsend check cty"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2535)?(2535):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2535:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2535:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2535:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2538:/ cond");
+  /*cond*/ if (/*_.OBVA__V10*/ curfptr[9]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2538:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2538:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2538:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.BIND__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2539:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2539:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2539:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2539:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_multimsend obva";
+     MELT_LOCATION("warmelt-genobj.melt:2539:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:2539:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2539:/ apply.arg");
+     argtab[3].bp_long = 2539;
+     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2539:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2539:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2539:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V7*/ curfptr[5] = /*_.OBVA__V10*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2531:/ clear");
+  /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2531:/ clear");
+  /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2531:/ clear");
+  /*clear*/ /*_.OBVA__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2531:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2531:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-genobj.melt:2527:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_77_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_78_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2549:/ getarg");
+ /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2549:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2549:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2550:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:2550:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2549:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2549:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2549:/ clear");
+ /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_78_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_79_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ getarg");
+ /*_.OCURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2573:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2574:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2574:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2574:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2574:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_multimsend ocurarg";
+    MELT_LOCATION("warmelt-genobj.melt:2574:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:2574:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2574:/ apply.arg");
+    argtab[3].bp_long = 2574;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2574:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2574:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2574:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2575:/ cond");
+ /*cond*/ if (/*_.OCURARG__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2575:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2575:/ block");
+  /*block*/{
+   /*_#IS_NOT_A__L4*/ curfnum[3] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[1])));;
+   /*_#IF___L3*/ curfnum[1] = /*_#IS_NOT_A__L4*/ curfnum[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2575:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:2575:/ cond.else");
+ 
+  /*_#IF___L3*/ curfnum[1] = 0;;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2575:/ cond");
+ /*cond*/ if (/*_#IF___L3*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2575:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2575:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2576:/ locexp");
+   meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]));}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ clear");
+ /*clear*/ /*_#IF___L3*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_79_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_80_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2584:/ getarg");
+ /*_.RLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2584:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2584:/ block");
+/*block*/{
+ /*_#I__L2*/ curfnum[1] = 
+  ((/*_#IX__L1*/ curfnum[0]) > (0));;
+ MELT_LOCATION("warmelt-genobj.melt:2585:/ cond");
+ /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2585:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2585:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2586:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2586:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2586:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2586:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2586:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.RLOC__V2*/ curfptr[1]), "OCLR_VLOC");
+     ;
+     /*_.OCLEAR__V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2589:/ locexp");
+    meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V3*/ curfptr[2]));}
+    ;
+    /*_#I__L3*/ curfnum[2] = 
+     ((/*_#IX__L1*/ curfnum[0]) - (1));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2590:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)((/*~OXRES*/ curfclos->tabval[2])), (/*_#I__L3*/ curfnum[2]), (melt_ptr_t)(/*_.RLOC__V2*/ curfptr[1]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2586:/ clear");
+    /*clear*/ /*_.OCLEAR__V3*/ curfptr[2] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2586:/ clear");
+    /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2584:/ clear");
+ /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_80_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_81_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2594:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:2594:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:2594:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ clear");
+ /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_81_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_ANY_BINDING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2604:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2605:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2605:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2605:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2605:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2605:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2605:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2605:/ locexp");
+      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2605)?(2605):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2605:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2605:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2605:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2606:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2606:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2606:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2606:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2606:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2606:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2606:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2606)?(2606):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2606:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2606:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2606:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2607:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2607:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2607:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2607:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_any_binding bind";
+    MELT_LOCATION("warmelt-genobj.melt:2607:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2607:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2607:/ apply.arg");
+    argtab[3].bp_long = 2607;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2607:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2607:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2607:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2608:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:2608:/ apply.arg");
+  argtab[0].bp_cstring =  "class_bind compile_obj recv";
+  /*_.DISPLAY_DEBUG_MESSAGE__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DISPLAY_DEBUG_MESSAGE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:2609:/ locexp");
+ melt_puts(stderr,( "* compilobj unimplemented reciever binding class "));}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2610:/ block");
+ /*block*/{
+  /*_.DISCR__V11*/ curfptr[10] = 
+   (melt_discr((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:2610:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2610:/ locexp");
+  melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2610:/ clear");
+  /*clear*/ /*_.DISCR__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2610:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ;}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:2611:/ locexp");
+ melt_newlineflush(stderr);}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2612:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2612:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2612:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2612:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2612:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2612:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2612:/ locexp");
+      melt_assert_failed(( "@@compile_obj should be implemented in anybinding-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2612)?(2612):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2612:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2612:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V13*/ curfptr[10];;
+  MELT_LOCATION("warmelt-genobj.melt:2604:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
+ /*clear*/ /*_.DISPLAY_DEBUG_MESSAGE__V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_ANY_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_VALUE_BINDING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2618:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2619:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2619:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2619:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2619:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2619:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2619:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2619:/ locexp");
+      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2619)?(2619):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2619:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2619:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2619:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2620:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2620:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2620:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2620:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2620:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2620:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2620:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2620)?(2620):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2620:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2621:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2621:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2621:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2621:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_value_binding bind";
+    MELT_LOCATION("warmelt-genobj.melt:2621:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2621:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2621:/ apply.arg");
+    argtab[3].bp_long = 2621;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2621:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2621:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2621:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2622:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYM__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2623:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 12, "IGNCX_IMPORTMAP");/*_.IMPORTMAP__V12*/ curfptr[11] = slot; };
+  ;
+  /*_.OLOCV__V13*/ curfptr[12] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.IMPORTMAP__V12*/ curfptr[11]), (meltobject_ptr_t)(/*_.SYM__V11*/ curfptr[10]));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2626:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2626:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2626:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2626:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_value_binding olocv";
+     MELT_LOCATION("warmelt-genobj.melt:2626:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2626:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2626:/ apply.arg");
+     argtab[3].bp_long = 2626;
+     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOCV__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2626:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2626:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2626:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2627:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2627:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OLOCV__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:2627:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2627:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2627:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2627:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2627:/ locexp");
+       melt_assert_failed(( "check olocv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2627)?(2627):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2627:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2627:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2627:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2628:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OLOCV__V13*/ curfptr[12];;
+   MELT_LOCATION("warmelt-genobj.melt:2628:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V18*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ clear");
+  /*clear*/ /*_.SYM__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ clear");
+  /*clear*/ /*_.IMPORTMAP__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ clear");
+  /*clear*/ /*_.OLOCV__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2622:/ clear");
+  /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2618:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_VALUE_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_FIXED_BINDING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2634:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2635:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2635:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2635:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2635:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2635:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2635:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2635:/ locexp");
+      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2635)?(2635):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2635:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2635:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2635:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2636:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2636:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2636:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2636:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2636:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2636:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2636:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2636)?(2636):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2636:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2636:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2636:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2637:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2637:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2637:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2637:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_fixed_binding bind";
+    MELT_LOCATION("warmelt-genobj.melt:2637:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2637:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2637:/ apply.arg");
+    argtab[3].bp_long = 2637;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2637:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2637:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2637:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2638:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2638:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FIXBIND_DATA");/*_.SBDATA__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2639:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2639:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OSDATA__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.SBDATA__V11*/ curfptr[10]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2640:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2640:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2640:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2640:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_fixed_binding osdata";
+     MELT_LOCATION("warmelt-genobj.melt:2640:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2640:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2640:/ apply.arg");
+     argtab[3].bp_long = 2640;
+     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSDATA__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2640:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2640:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2640:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2641:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OSDATA__V12*/ curfptr[11];;
+   MELT_LOCATION("warmelt-genobj.melt:2641:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V15*/ curfptr[13];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2638:/ clear");
+  /*clear*/ /*_.SBDATA__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2638:/ clear");
+  /*clear*/ /*_.OSDATA__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2638:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2638:/ clear");
+  /*clear*/ /*_.RETURN___V15*/ curfptr[13] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2634:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_FIXED_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 43
+  void* varptr[43];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<43; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 43;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_CONSLAMBDABIND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2647:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2648:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2648:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2648:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2648:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2648:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2648:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2648:/ locexp");
+      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2648)?(2648):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2648:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2648:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2648:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2649:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2649:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2649:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2649:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2649:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2649:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2649:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2649)?(2649):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2649:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2650:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2650:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2650:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2650:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_conslambdabind bind";
+    MELT_LOCATION("warmelt-genobj.melt:2650:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2650:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2650:/ apply.arg");
+    argtab[3].bp_long = 2650;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2650:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2650:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2650:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2651:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYMB__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2652:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "NCONSB_LOC");/*_.LOC__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2653:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 2, "NCONSB_DISCR");/*_.NDISCR__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2654:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 4, "NLAMBDAB_NCLOSED");/*_.NCLOSED__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2655:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 6, "NLAMBDAB_DATAROUT");/*_.NDATAROUT__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2656:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 5, "NLAMBDAB_CONSTROUT");/*_.NCONSTROUT__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2657:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 3, "NCONSB_NLETREC");/*_.NLETREC__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2658:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2658:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.ODISCR__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NDISCR__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.NAMBUF__V19*/ curfptr[18] = 
+   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+  MELT_LOCATION("warmelt-genobj.melt:2660:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[5])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2660:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2660:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V17*/ curfptr[16]), 4, "NLETREC_LOCSYMS");/*_.NLOCSYMS__V20*/ curfptr[19] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2660:/ cond.else");
+  
+   /*_.NLOCSYMS__V20*/ curfptr[19] = NULL;;
+   }
+  ;
+  /*_#BINDNUM__L4*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1])));;
+  /*_.LOCSYMOCC__V21*/ curfptr[20] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V20*/ curfptr[19]), (/*_#BINDNUM__L4*/ curfnum[0])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2664:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2664:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2664:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2664:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_conslambdabind nconstrout";
+     MELT_LOCATION("warmelt-genobj.melt:2664:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+     MELT_LOCATION("warmelt-genobj.melt:2664:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2664:/ apply.arg");
+     argtab[3].bp_long = 2664;
+     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCONSTROUT__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2664:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2664:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2664:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2665:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2666:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2666:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OROUT__V25*/ curfptr[24] = meltgc_send((melt_ptr_t)(/*_.NCONSTROUT__V16*/ curfptr[15]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2667:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2667:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OLOC__V26*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.LOCSYMOCC__V21*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2669:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2669:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2669:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2669:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_conslambdabind orout";
+      MELT_LOCATION("warmelt-genobj.melt:2669:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
+      MELT_LOCATION("warmelt-genobj.melt:2669:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2669:/ apply.arg");
+      argtab[3].bp_long = 2669;
+      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OROUT__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2669:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2669:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2669:/ cppif.else");
+   /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2670:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2670:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2670:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2670:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_conslambdabind oloc";
+      MELT_LOCATION("warmelt-genobj.melt:2670:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
+      MELT_LOCATION("warmelt-genobj.melt:2670:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2670:/ apply.arg");
+      argtab[3].bp_long = 2670;
+      /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2670:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2670:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2670:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2671:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "rclo_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2672:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), (/*_#BINDNUM__L4*/ curfnum[0]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2673:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "__"));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2674:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[29] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2674:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[29])));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2675:/ block");
+   /*block*/{
+    /*_.STRBUF2STRING__V33*/ curfptr[32] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]))));;
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2675:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[6])), (5), "CLASS_OBJINITCLOSURE");/*_.INST__V35*/ curfptr[34] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2675:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "OBV_TYPE");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2675:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.ODISCR__V18*/ curfptr[17]), "OIE_DISCR");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2675:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.OLOC__V26*/ curfptr[25]), "OIE_LOCVAR");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:2675:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.STRBUF2STRING__V33*/ curfptr[32]), "OIE_CNAME");
+     ;
+     /*_.INICLOS__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:2682:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:2682:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:2682:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_conslambdabind returning for bind";
+       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4];
+       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
+       argtab[3].bp_long = 2682;
+       /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V36*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2682:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2682:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:2682:/ cppif.else");
+    /*_.IFCPP___V36*/ curfptr[35] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:2683:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:2683:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:2683:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_conslambdabind nletrec";
+       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[4];
+       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
+       argtab[3].bp_long = 2683;
+       /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLETREC__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V38*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2683:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2683:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:2683:/ cppif.else");
+    /*_.IFCPP___V38*/ curfptr[36] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:2684:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:2684:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L10*/ curfnum[4] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:2684:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2684:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_conslambdabind locsymocc";
+       MELT_LOCATION("warmelt-genobj.melt:2684:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[4];
+       MELT_LOCATION("warmelt-genobj.melt:2684:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:2684:/ apply.arg");
+       argtab[3].bp_long = 2684;
+       /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYMOCC__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2684:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2684:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:2684:/ cppif.else");
+    /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:2685:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:2685:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[4] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:2685:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2685:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_conslambdabind returning iniclos";
+       MELT_LOCATION("warmelt-genobj.melt:2685:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[4];
+       MELT_LOCATION("warmelt-genobj.melt:2685:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:2685:/ apply.arg");
+       argtab[3].bp_long = 2685;
+       /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.INICLOS__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2685:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2685:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:2685:/ cppif.else");
+    /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V32*/ curfptr[31] = /*_.INICLOS__V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ clear");
+    /*clear*/ /*_.STRBUF2STRING__V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ clear");
+    /*clear*/ /*_.INICLOS__V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ clear");
+    /*clear*/ /*_.IFCPP___V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ clear");
+    /*clear*/ /*_.IFCPP___V38*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ clear");
+    /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2675:/ clear");
+    /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;}
+   ;
+   /*_.LET___V24*/ curfptr[22] = /*_.LET___V32*/ curfptr[31];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2665:/ clear");
+   /*clear*/ /*_.OROUT__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2665:/ clear");
+   /*clear*/ /*_.OLOC__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2665:/ clear");
+   /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2665:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2665:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2665:/ clear");
+   /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V24*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.SYMB__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NDISCR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NCLOSED__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NDATAROUT__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NCONSTROUT__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NLETREC__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.ODISCR__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NAMBUF__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.NLOCSYMS__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_#BINDNUM__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.LOCSYMOCC__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2651:/ clear");
+  /*clear*/ /*_.LET___V24*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2647:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_CONSLAMBDABIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 29
+  void* varptr[29];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<29; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 29;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_CONSTUPLEBIND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ getarg");
+ /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2691:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2692:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2692:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2692:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2692:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_constuplebind bind";
+    MELT_LOCATION("warmelt-genobj.melt:2692:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2692:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2692:/ apply.arg");
+    argtab[3].bp_long = 2692;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2692:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2692:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2692:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2693:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2693:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2693:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2693:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2693:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2693:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2693:/ locexp");
+      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2693)?(2693):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2693:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2694:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2694:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:2694:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2694:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2694:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2694:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2694:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2694)?(2694):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2694:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2694:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2694:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2695:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYMB__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2696:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "NCONSB_LOC");/*_.NLOC__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2697:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 2, "NCONSB_DISCR");/*_.NDISCR__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2698:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 3, "NCONSB_NLETREC");/*_.NLETREC__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2699:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 4, "NTUPB_COMP");/*_.NTUPB__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2700:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:2700:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.ODISCR__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.NDISCR__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.NAMBUF__V17*/ curfptr[16] = 
+   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+  MELT_LOCATION("warmelt-genobj.melt:2702:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 3, "NCONSB_NLETREC");/*_.NLETREC__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2703:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[5])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2703:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2703:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V18*/ curfptr[17]), 4, "NLETREC_LOCSYMS");/*_.NLOCSYMS__V19*/ curfptr[18] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2703:/ cond.else");
+  
+   /*_.NLOCSYMS__V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  /*_#BINDNUM__L4*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1])));;
+  /*_#LENTUP__L5*/ curfnum[4] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.NTUPB__V15*/ curfptr[14])));;
+  /*_.LOCSYMOCC__V20*/ curfptr[19] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V19*/ curfptr[18]), (/*_#BINDNUM__L4*/ curfnum[0])));;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2708:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]), ( "rtup_"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2709:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]), (/*_#BINDNUM__L4*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2710:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]), ( "__"));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2711:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[20] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2711:/ locexp");
+  meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[20])));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2712:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2713:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2713:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OLOC__V23*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.LOCSYMOCC__V20*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.TUPVAL__V24*/ curfptr[23] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#LENTUP__L5*/ curfnum[4])));;
+   /*_.STRBUF2STRING__V25*/ curfptr[24] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]))));;
+   MELT_LOCATION("warmelt-genobj.melt:2715:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2715:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[7])), (6), "CLASS_OBJINITMULTIPLE");/*_.INST__V27*/ curfptr[26] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2715:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "OBV_TYPE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2715:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.ODISCR__V16*/ curfptr[15]), "OIE_DISCR");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2715:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.OLOC__V23*/ curfptr[22]), "OIE_LOCVAR");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2715:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.STRBUF2STRING__V25*/ curfptr[24]), "OIE_CNAME");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2715:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIM_TUPVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.TUPVAL__V24*/ curfptr[23]), "OIM_TUPVAL");
+    ;
+    /*_.INITUP__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2723:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2723:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2723:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2723:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_constuplebind result initup";
+      MELT_LOCATION("warmelt-genobj.melt:2723:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:2723:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2723:/ apply.arg");
+      argtab[3].bp_long = 2723;
+      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INITUP__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2723:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2723:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2723:/ cppif.else");
+   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V22*/ curfptr[21] = /*_.INITUP__V26*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2712:/ clear");
+   /*clear*/ /*_.OLOC__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2712:/ clear");
+   /*clear*/ /*_.TUPVAL__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2712:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2712:/ clear");
+   /*clear*/ /*_.INITUP__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2712:/ clear");
+   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.SYMB__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NLOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NDISCR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NLETREC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NTUPB__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.ODISCR__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NAMBUF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NLETREC__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NLOCSYMS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_#BINDNUM__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_#LENTUP__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.LOCSYMOCC__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2695:/ clear");
+  /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2691:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_CONSTUPLEBIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 46
+  void* varptr[46];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<46; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 46;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJVALUE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2730:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2731:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2731:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2731:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2731:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2731:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2731:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2731:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2731)?(2731):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2731:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2731:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2731:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2732:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2732:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2732:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2732:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2732:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2732:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2732:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2732)?(2732):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2732:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2732:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2732:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2733:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2733:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.TYPRECV__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2734:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V10*/ curfptr[9] = slot; };
+  ;
+  /*_#__L3*/ curfnum[0] = 
+   ((/*_.TYPRECV__V9*/ curfptr[8]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-genobj.melt:2738:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2738:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2738:/ block");
+   /*block*/{
+    /*_#__L4*/ curfnum[3] = 
+     ((/*_.TYPDESTO__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-genobj.melt:2739:/ cond");
+    /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2739:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:2739:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2740:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
+       MELT_LOCATION("warmelt-genobj.melt:2740:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.IFELSE___V12*/ curfptr[11] = /*_.RETURN___V13*/ curfptr[12];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2739:/ clear");
+      /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2739:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2739:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2743:/ block");
+      /*block*/{
+       /*_.OBODL__V15*/ curfptr[14] = 
+        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+       MELT_LOCATION("warmelt-genobj.melt:2745:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:2745:/ rawallocobj");
+        /*rawallocobj*/ { melt_ptr_t newobj = 0;
+         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V17*/ curfptr[16] =
+         newobj; };
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:2745:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.OBODL__V15*/ curfptr[14]), "OBLO_BODYL");
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:2745:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*nil*/NULL)), "OBLO_EPIL");
+        ;
+        /*_.OBLK__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:2751:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:2751:/ rawallocobj");
+        /*rawallocobj*/ { melt_ptr_t newobj = 0;
+         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[5])), (2), "CLASS_OBJCLEAR");/*_.INST__V19*/ curfptr[18] =
+         newobj; };
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:2751:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.DESTO__V3*/ curfptr[2]), "OCLR_VLOC");
+        ;
+        /*_.OCLR__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2756:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2757:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (melt_ptr_t)(/*_.OCLR__V18*/ curfptr[17]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2760:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:2761:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLK__V16*/ curfptr[15];;
+        MELT_LOCATION("warmelt-genobj.melt:2761:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V20*/ curfptr[19];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2743:/ clear");
+       /*clear*/ /*_.OBODL__V15*/ curfptr[14] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2743:/ clear");
+       /*clear*/ /*_.OBLK__V16*/ curfptr[15] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2743:/ clear");
+       /*clear*/ /*_.OCLR__V18*/ curfptr[17] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2743:/ clear");
+       /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*_.IFELSE___V12*/ curfptr[11] = /*_.LET___V14*/ curfptr[12];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2739:/ clear");
+      /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2738:/ clear");
+    /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2738:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2738:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:2738:/ block");
+   /*block*/{
+    /*_#__L5*/ curfnum[3] = 
+     ((/*_.TYPRECV__V9*/ curfptr[8]) == (/*_.TYPDESTO__V10*/ curfptr[9]));;
+    MELT_LOCATION("warmelt-genobj.melt:2764:/ cond");
+    /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2764:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:2764:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2765:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2765:/ block");
+       /*block*/{
+        /*_#IS_A__L6*/ curfnum[5] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.TYPRECV__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
+        MELT_LOCATION("warmelt-genobj.melt:2765:/ cond");
+        /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:2765:/ cond.then");
+        /*_.IFELSE___V23*/ curfptr[17] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:2765:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:2765:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:2765:/ locexp");
+           melt_assert_failed(( "check same typrecv&rtpdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2765)?(2765):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V23*/ curfptr[17] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V22*/ curfptr[15] = /*_.IFELSE___V23*/ curfptr[17];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2765:/ clear");
+        /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2765:/ clear");
+        /*clear*/ /*_.IFELSE___V23*/ curfptr[17] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2765:/ cppif.else");
+      /*_.IFCPP___V22*/ curfptr[15] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-genobj.melt:2766:/ block");
+      /*block*/{
+       /*_.DESTLIS__V25*/ curfptr[12] = 
+        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+       /*_.EXPLIS__V26*/ curfptr[11] = 
+        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+       MELT_LOCATION("warmelt-genobj.melt:2768:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:2768:/ rawallocobj");
+        /*rawallocobj*/ { melt_ptr_t newobj = 0;
+         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[7])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V28*/ curfptr[27] =
+         newobj; };
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:2768:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIS__V25*/ curfptr[12]), "OBDI_DESTLIST");
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:2768:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.EXPLIS__V26*/ curfptr[11]), "OBCPT_EXPR");
+        ;
+        /*_.OBC__V27*/ curfptr[17] = /*_.INST__V28*/ curfptr[27];;}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2774:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V25*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2775:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V26*/ curfptr[11]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:2776:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = /*_.OBC__V27*/ curfptr[17];;
+        MELT_LOCATION("warmelt-genobj.melt:2776:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       /*_.LET___V24*/ curfptr[19] = /*_.RETURN___V29*/ curfptr[28];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2766:/ clear");
+       /*clear*/ /*_.DESTLIS__V25*/ curfptr[12] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2766:/ clear");
+       /*clear*/ /*_.EXPLIS__V26*/ curfptr[11] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2766:/ clear");
+       /*clear*/ /*_.OBC__V27*/ curfptr[17] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2766:/ clear");
+       /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ block");
+      /*block*/{
+       /*_.PROGN___V30*/ curfptr[12] = /*_.LET___V24*/ curfptr[19];;}
+      ;
+      /*_.IFELSE___V21*/ curfptr[14] = /*_.PROGN___V30*/ curfptr[12];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.IFCPP___V22*/ curfptr[15] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.LET___V24*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.PROGN___V30*/ curfptr[12] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2764:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2764:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2779:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2779:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2779:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
+         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching recv";
+         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
+         argtab[3].bp_long = 2779;
+         /*_.DEBUG_MSG_FUN__V32*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V31*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[17];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2779:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2779:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[17] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2779:/ cppif.else");
+      /*_.IFCPP___V31*/ curfptr[11] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2780:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2780:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2780:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
+         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching typrecv";
+         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
+         argtab[3].bp_long = 2780;
+         /*_.DEBUG_MSG_FUN__V34*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.TYPRECV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2780:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2780:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[15] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2780:/ cppif.else");
+      /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2781:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2781:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2781:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2781:/ apply.arg");
+         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching desto";
+         MELT_LOCATION("warmelt-genobj.melt:2781:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
+         MELT_LOCATION("warmelt-genobj.melt:2781:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2781:/ apply.arg");
+         argtab[3].bp_long = 2781;
+         /*_.DEBUG_MSG_FUN__V36*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V35*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[12];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2781:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2781:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[12] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2781:/ cppif.else");
+      /*_.IFCPP___V35*/ curfptr[19] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2782:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2782:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:2782:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:2782:/ apply.arg");
+         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching typdesto";
+         MELT_LOCATION("warmelt-genobj.melt:2782:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
+         MELT_LOCATION("warmelt-genobj.melt:2782:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:2782:/ apply.arg");
+         argtab[3].bp_long = 2782;
+         /*_.DEBUG_MSG_FUN__V38*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.TYPDESTO__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V37*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2782:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:2782:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[15] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2782:/ cppif.else");
+      /*_.IFCPP___V37*/ curfptr[17] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2783:/ locexp");
+      melt_puts(stderr,( "putobjdest_objvalue type mismatch : recv <"));}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2784:/ block");
+      /*block*/{
+       /*_.DISCR__V39*/ curfptr[12] = 
+        (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
+       MELT_LOCATION("warmelt-genobj.melt:2784:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V39*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[15] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2784:/ locexp");
+       melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[15]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2784:/ clear");
+       /*clear*/ /*_.DISCR__V39*/ curfptr[12] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2784:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[15] = 0 ;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2785:/ locexp");
+      melt_puts(stderr,( "> & desto<"));}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2786:/ block");
+      /*block*/{
+       /*_.DISCR__V41*/ curfptr[12] = 
+        (melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])));;
+       MELT_LOCATION("warmelt-genobj.melt:2786:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V41*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[15] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2786:/ locexp");
+       melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[15]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:2786:/ clear");
+       /*clear*/ /*_.DISCR__V41*/ curfptr[12] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:2786:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[15] = 0 ;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2787:/ locexp");
+      melt_puts(stderr,( ">"));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2788:/ locexp");
+      melt_newlineflush(stderr);}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:2789:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:2789:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:2789:/ cond");
+        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:2789:/ cond.then");
+        /*_.IFELSE___V44*/ curfptr[15] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:2789:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:2789:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:2789:/ locexp");
+           melt_assert_failed(( "putobjdest_objvalue type mismatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2789)?(2789):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V44*/ curfptr[15] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V43*/ curfptr[12] = /*_.IFELSE___V44*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:2789:/ clear");
+        /*clear*/ /*_.IFELSE___V44*/ curfptr[15] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:2789:/ cppif.else");
+      /*_.IFCPP___V43*/ curfptr[12] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-genobj.melt:2790:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
+       MELT_LOCATION("warmelt-genobj.melt:2790:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:2778:/ block");
+      /*block*/{
+       /*_.PROGN___V46*/ curfptr[45] = /*_.RETURN___V45*/ curfptr[15];;}
+      ;
+      /*_.IFELSE___V21*/ curfptr[14] = /*_.PROGN___V46*/ curfptr[45];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.IFCPP___V31*/ curfptr[11] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.IFCPP___V35*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.IFCPP___V37*/ curfptr[17] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.IFCPP___V43*/ curfptr[12] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.RETURN___V45*/ curfptr[15] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
+      /*clear*/ /*_.PROGN___V46*/ curfptr[45] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V21*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2738:/ clear");
+    /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2738:/ clear");
+    /*clear*/ /*_.IFELSE___V21*/ curfptr[14] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2733:/ clear");
+  /*clear*/ /*_.TYPRECV__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2733:/ clear");
+  /*clear*/ /*_.TYPDESTO__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2733:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2733:/ clear");
+  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:2730:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJVALUE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_INTEGER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2797:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2798:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2798:/ block");
+  /*block*/{
+   /*_#IS_INTEGERBOX__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_INT);;
+   MELT_LOCATION("warmelt-genobj.melt:2798:/ cond");
+   /*cond*/ if (/*_#IS_INTEGERBOX__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2798:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2798:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2798:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2798:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2798)?(2798):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2798:/ clear");
+   /*clear*/ /*_#IS_INTEGERBOX__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2798:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2798:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2799:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2799:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2799:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2799:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2799:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2799:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2799:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2799)?(2799):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2799:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2799:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2799:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2800:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2800:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2800:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2800:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_integer recv";
+    MELT_LOCATION("warmelt-genobj.melt:2800:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2800:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2800:/ apply.arg");
+    argtab[3].bp_long = 2800;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2800:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2801:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2801:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2801:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2801:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_integer desto";
+    MELT_LOCATION("warmelt-genobj.melt:2801:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2801:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2801:/ apply.arg");
+    argtab[3].bp_long = 2801;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2801:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2801:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2801:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2802:/ block");
+ /*block*/{
+  /*_.DESTLIS__V13*/ curfptr[12] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_.EXPLIS__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2804:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2805:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2805:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2805:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2805:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR");
+   ;
+   /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2811:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2811:/ block");
+   /*block*/{
+    /*_#__L5*/ curfnum[0] = 
+     ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_LONG*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-genobj.melt:2811:/ cond");
+    /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2811:/ cond.then");
+    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2811:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2811:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2811:/ locexp");
+       melt_assert_failed(( "check typdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2811)?(2811):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2811:/ clear");
+    /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2811:/ clear");
+    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2811:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2812:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2813:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2814:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2814:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2814:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2814:/ apply.arg");
+     argtab[0].bp_cstring =  "putobjdest_integer return obc";
+     MELT_LOCATION("warmelt-genobj.melt:2814:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2814:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2814:/ apply.arg");
+     argtab[3].bp_long = 2814;
+     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2814:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2814:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2814:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2802:/ clear");
+  /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2802:/ clear");
+  /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2802:/ clear");
+  /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2802:/ clear");
+  /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2802:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2802:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-genobj.melt:2797:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_INTEGER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_89_warmelt_genobj_PUTOBJDEST_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_genobj_PUTOBJDEST_STRING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_STRING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2823:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2824:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2824:/ block");
+  /*block*/{
+   /*_#IS_STRING__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-genobj.melt:2824:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2824:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2824:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2824:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2824:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2824)?(2824):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2824:/ clear");
+   /*clear*/ /*_#IS_STRING__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2824:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2824:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2825:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2825:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2825:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2825:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2825:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2825:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2825:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2825)?(2825):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2825:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2825:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2825:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2826:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2826:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2826:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2826:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_string recv";
+    MELT_LOCATION("warmelt-genobj.melt:2826:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2826:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2826:/ apply.arg");
+    argtab[3].bp_long = 2826;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2826:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2827:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2827:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2827:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2827:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_string desto";
+    MELT_LOCATION("warmelt-genobj.melt:2827:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2827:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2827:/ apply.arg");
+    argtab[3].bp_long = 2827;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2827:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2827:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2827:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2828:/ block");
+ /*block*/{
+  /*_.DESTLIS__V13*/ curfptr[12] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_.EXPLIS__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2830:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2831:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2831:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2831:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2831:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR");
+   ;
+   /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2837:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2837:/ block");
+   /*block*/{
+    /*_#__L5*/ curfnum[0] = 
+     ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_CSTRING*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-genobj.melt:2837:/ cond");
+    /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2837:/ cond.then");
+    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2837:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2837:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2837:/ locexp");
+       melt_assert_failed(( "check typdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2837)?(2837):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2837:/ clear");
+    /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2837:/ clear");
+    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2837:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2838:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2839:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2840:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2840:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2840:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2840:/ apply.arg");
+     argtab[0].bp_cstring =  "putobjdest_string return obc";
+     MELT_LOCATION("warmelt-genobj.melt:2840:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:2840:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2840:/ apply.arg");
+     argtab[3].bp_long = 2840;
+     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2840:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2840:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2840:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2828:/ clear");
+  /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2828:/ clear");
+  /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2828:/ clear");
+  /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2828:/ clear");
+  /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2828:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2828:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-genobj.melt:2823:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_STRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_89_warmelt_genobj_PUTOBJDEST_STRING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_90_warmelt_genobj_PUTOBJDEST_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_genobj_PUTOBJDEST_NULL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_NULL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2846:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2847:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2847:/ block");
+  /*block*/{
+   /*_#NULL__L1*/ curfnum[0] = 
+    ((/*_.RECV__V2*/ curfptr[1]) == NULL);;
+   MELT_LOCATION("warmelt-genobj.melt:2847:/ cond");
+   /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2847:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2847:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2847:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2847:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2847)?(2847):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2847:/ clear");
+   /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2847:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2847:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2848:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2848:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2848:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2848:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2848:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2848:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2848:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2848)?(2848):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2848:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2848:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2848:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2849:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2849:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2849:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2849:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_null recv";
+    MELT_LOCATION("warmelt-genobj.melt:2849:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2849:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2849:/ apply.arg");
+    argtab[3].bp_long = 2849;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2849:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2849:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2849:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2850:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2850:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2850:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2850:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_null desto";
+    MELT_LOCATION("warmelt-genobj.melt:2850:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2850:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2850:/ apply.arg");
+    argtab[3].bp_long = 2850;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2850:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#NEED_DBG__L5*/ curfnum[0] = 
+  (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);;
+ MELT_LOCATION("warmelt-genobj.melt:2851:/ cond");
+ /*cond*/ if (/*_#NEED_DBG__L5*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:2851:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:2851:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:2851:/ locexp");
+    
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "putobjdest_null"), (15));
+#endif
+;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2852:/ block");
+ /*block*/{
+  /*_.DESTLIS__V13*/ curfptr[12] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_.EXPLIS__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2854:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2855:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2855:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2855:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2855:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR");
+   ;
+   /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2861:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
+  ;
+  /*_#__L6*/ curfnum[5] = 
+   ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_LONG*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-genobj.melt:2862:/ cond");
+  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:2862:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:2862:/ block");
+   /*block*/{
+    /*_.MAKE_INTEGERBOX__V18*/ curfptr[17] = 
+     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2863:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V18*/ curfptr[17]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2862:/ clear");
+    /*clear*/ /*_.MAKE_INTEGERBOX__V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:2862:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:2862:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:2864:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2865:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2865:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2865:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2865:/ apply.arg");
+     argtab[0].bp_cstring =  "putobjdest_null return obc";
+     MELT_LOCATION("warmelt-genobj.melt:2865:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-genobj.melt:2865:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2865:/ apply.arg");
+     argtab[3].bp_long = 2865;
+     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2865:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2865:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2865:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2852:/ clear");
+  /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2852:/ clear");
+  /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2852:/ clear");
+  /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2852:/ clear");
+  /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2852:/ clear");
+  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2852:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-genobj.melt:2846:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
+ /*clear*/ /*_#NEED_DBG__L5*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_NULL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_90_warmelt_genobj_PUTOBJDEST_NULL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJBLOCK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2871:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2872:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2872:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2872:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2872:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2872:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2872:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2872:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2872)?(2872):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2872:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2872:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2872:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2873:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2873:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2873:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2873:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2873:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2873:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2873:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2873)?(2873):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2873:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2873:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2873:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2876:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2876:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.OBL__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2877:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.OEP__V10*/ curfptr[9] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2879:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2879:/ block");
+   /*block*/{
+    /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = 
+     ((/*_.OBL__V9*/ curfptr[8]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OBL__V9*/ curfptr[8])) == OBMAG_LIST));;
+    MELT_LOCATION("warmelt-genobj.melt:2879:/ cond");
+    /*cond*/ if (/*_#IS_LIST_OR_NULL__L3*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2879:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2879:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2879:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2879:/ locexp");
+       melt_assert_failed(( "check obl"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2879)?(2879):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2879:/ clear");
+    /*clear*/ /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2879:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2879:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2880:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2880:/ block");
+   /*block*/{
+    /*_#IS_LIST_OR_NULL__L4*/ curfnum[0] = 
+     ((/*_.OEP__V10*/ curfptr[9]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OEP__V10*/ curfptr[9])) == OBMAG_LIST));;
+    MELT_LOCATION("warmelt-genobj.melt:2880:/ cond");
+    /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2880:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2880:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2880:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2880:/ locexp");
+       melt_assert_failed(( "check oep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2880)?(2880):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2880:/ clear");
+    /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2880:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2880:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2882:/ block");
+  /*block*/{
+   /*_.LPBY__V15*/ curfptr[13] = 
+    (melt_list_last((melt_ptr_t)(/*_.OBL__V9*/ curfptr[8])));;
+   /*_.LASBP__V16*/ curfptr[15] = 
+    (melt_pair_head((melt_ptr_t)(/*_.LPBY__V15*/ curfptr[13])));;
+   MELT_LOCATION("warmelt-genobj.melt:2885:/ cond");
+   /*cond*/ if (/*_.LASBP__V16*/ curfptr[15]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2885:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:2885:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2886:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:2886:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:2886:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
+       /*_.UPLASB__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.LASBP__V16*/ curfptr[15]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2887:/ locexp");
+      meltgc_pair_set_head((melt_ptr_t)(/*_.LPBY__V15*/ curfptr[13]), (/*_.UPLASB__V17*/ curfptr[16]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:2886:/ clear");
+      /*clear*/ /*_.UPLASB__V17*/ curfptr[16] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2882:/ clear");
+   /*clear*/ /*_.LPBY__V15*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2882:/ clear");
+   /*clear*/ /*_.LASBP__V16*/ curfptr[15] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.RECV__V2*/ curfptr[1];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2876:/ clear");
+  /*clear*/ /*_.OBL__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2876:/ clear");
+  /*clear*/ /*_.OEP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2876:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2876:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:2871:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJMULTIBLOCK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2899:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2900:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2900:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2900:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2900:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2900:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2900:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2900:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2900)?(2900):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2900:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2900:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2900:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2901:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2901:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2901:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2901:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_objmultiblock recv";
+    MELT_LOCATION("warmelt-genobj.melt:2901:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2901:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2901:/ apply.arg");
+    argtab[3].bp_long = 2901;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2901:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2901:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2901:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2902:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2902:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2902:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2902:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest_objmultiblock recv";
+    MELT_LOCATION("warmelt-genobj.melt:2902:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2902:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2902:/ apply.arg");
+    argtab[3].bp_long = 2902;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2902:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2902:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2902:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2903:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2903:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OMULBLO_SUBCOMP");/*_.OSUBCOMP__V11*/ curfptr[10] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2904:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2904:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0] = 
+     ((/*_.OSUBCOMP__V11*/ curfptr[10]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OSUBCOMP__V11*/ curfptr[10])) == OBMAG_MULTIPLE));;
+    MELT_LOCATION("warmelt-genobj.melt:2904:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2904:/ cond.then");
+    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2904:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2904:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2904:/ locexp");
+       melt_assert_failed(( "check osubcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2904)?(2904):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2904:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2904:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2904:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OSUBCOMP__V11*/ curfptr[10]);
+   for (/*_#CURIX__L5*/ curfnum[0] = 0;  
+	(/*_#CURIX__L5*/ curfnum[0] >= 0) && (/*_#CURIX__L5*/ curfnum[0] <  cit1__EACHTUP_ln);  
+	/*_#CURIX__L5*/ curfnum[0]++) {
+   /*_.CURSUBCOMP__V14*/ curfptr[12] = melt_multiple_nth((melt_ptr_t)(/*_.OSUBCOMP__V11*/ curfptr[10]),  /*_#CURIX__L5*/ curfnum[0]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2908:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2908:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2908:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
+      argtab[0].bp_cstring =  "putobjdest_objmultiblock cursubcomp";
+      MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
+      argtab[3].bp_long = 2908;
+      /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURSUBCOMP__V14*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2908:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2908:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2908:/ cppif.else");
+   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:2909:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2909:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
+    /*_.PUT_OBJDEST__V17*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.CURSUBCOMP__V14*/ curfptr[12]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   if (/*_#CURIX__L5*/ curfnum[0]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2905:/ clear");
+   /*clear*/ /*_.CURSUBCOMP__V14*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2905:/ clear");
+   /*clear*/ /*_#CURIX__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2905:/ clear");
+   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2905:/ clear");
+   /*clear*/ /*_.PUT_OBJDEST__V17*/ curfptr[15] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2910:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2910:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:2910:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:2910:/ apply.arg");
+     argtab[0].bp_cstring =  "putobjdest_objmultiblock done recv";
+     MELT_LOCATION("warmelt-genobj.melt:2910:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:2910:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:2910:/ apply.arg");
+     argtab[3].bp_long = 2910;
+     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2910:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2910:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2910:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.IFCPP___V18*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
+  /*clear*/ /*_.OSUBCOMP__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2899:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJMULTIBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJLOOP", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2914:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2915:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2915:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2915:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2915:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2915:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2915:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2915:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2915)?(2915):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2915:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2916:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2916:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2916:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2916:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2916:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2916:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2916:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2916)?(2916):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2916:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2916:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2916:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2917:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V8*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2918:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OBLOOP_RESV");/*_.RESV__V9*/ curfptr[8] = slot; };
+  ;
+  /*_.DESTLIST__V10*/ curfptr[9] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  MELT_LOCATION("warmelt-genobj.melt:2920:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2920:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V12*/ curfptr[11] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2920:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (1), (/*_.DESTLIST__V10*/ curfptr[9]), "OBDI_DESTLIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2920:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (2), (/*_.RESV__V9*/ curfptr[8]), "OBCPT_EXPR");
+   ;
+   /*_.OBC__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2926:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V10*/ curfptr[9]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2927:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2927:/ block");
+   /*block*/{
+    /*_#IS_LIST__L3*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V8*/ curfptr[6])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-genobj.melt:2927:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L3*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2927:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2927:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2927:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2927:/ locexp");
+       melt_assert_failed(( "check epil"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2927)?(2927):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2927:/ clear");
+    /*clear*/ /*_#IS_LIST__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2927:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2927:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2928:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2928:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.RESV__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-genobj.melt:2928:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2928:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2928:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2928:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2928:/ locexp");
+       melt_assert_failed(( "check resv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2928)?(2928):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2928:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2928:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2928:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:2929:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.EPIL__V8*/ curfptr[6]), (melt_ptr_t)(/*_.OBC__V11*/ curfptr[10]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ clear");
+  /*clear*/ /*_.EPIL__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ clear");
+  /*clear*/ /*_.RESV__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ clear");
+  /*clear*/ /*_.DESTLIST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ clear");
+  /*clear*/ /*_.OBC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2917:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2931:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2931:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2931:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2931:/ apply.arg");
+    argtab[0].bp_cstring =  "putobjdest loop updated recv";
+    MELT_LOCATION("warmelt-genobj.melt:2931:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2931:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2931:/ apply.arg");
+    argtab[3].bp_long = 2931;
+    /*_.DEBUG_MSG_FUN__V18*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2931:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2931:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2931:/ cppif.else");
+ /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-genobj.melt:2914:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ clear");
+ /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJLOOP", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJEXIT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2938:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2939:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2939:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2939:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2939:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2939:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2939:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2939:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2939)?(2939):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2939:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2939:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2939:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2940:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2940:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2940:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2940:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2940:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2940:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2940:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2940)?(2940):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2940:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2940:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2940:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-genobj.melt:2938:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJEXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 28
+  void* varptr[28];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<28; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 28;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_IF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ getarg");
+ /*_.RIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2948:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2949:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2949:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IF*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2949:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2949:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2949:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2949:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2949:/ locexp");
+      melt_assert_failed(( "check rif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2949)?(2949):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2949:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2949:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2949:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2950:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2950:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2950:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2950:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2950:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2950:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2950:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2950)?(2950):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2950:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2951:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2951:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2951:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2951:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_if rif";
+    MELT_LOCATION("warmelt-genobj.melt:2951:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2951:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2951:/ apply.arg");
+    argtab[3].bp_long = 2951;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2951:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2951:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2951:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2952:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2953:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 4, "NIF_TEST");/*_.NTEST__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2954:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 2, "NIF_THEN");/*_.NTHEN__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2955:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 3, "NIF_ELSE");/*_.NELSE__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2956:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V15*/ curfptr[14] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2958:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2958:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:2958:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2958:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2958:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2958:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2958:/ locexp");
+       melt_assert_failed(( "check nctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2958)?(2958):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2958:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2958:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2958:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2959:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2959:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OTEST__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.NTEST__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2960:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2960:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OTHEN__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#IS_NOT_A__L5*/ curfnum[0] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])));;
+   MELT_LOCATION("warmelt-genobj.melt:2961:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2961:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:2961:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2962:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2962:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+      /*_.COMPILE_OBJ__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.OELSE__V21*/ curfptr[20] = /*_.COMPILE_OBJ__V22*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2961:/ clear");
+     /*clear*/ /*_.COMPILE_OBJ__V22*/ curfptr[21] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2961:/ cond.else");
+   
+    /*_.OELSE__V21*/ curfptr[20] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2963:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2963:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[6])), (4), "CLASS_OBJCOND");/*_.INST__V24*/ curfptr[23] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2963:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2963:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OTEST__V19*/ curfptr[18]), "OBCOND_TEST");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2963:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.OTHEN__V20*/ curfptr[19]), "OBCOND_THEN");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2963:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.OELSE__V21*/ curfptr[20]), "OBCOND_ELSE");
+    ;
+    /*_.OBIF__V23*/ curfptr[21] = /*_.INST__V24*/ curfptr[23];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2969:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2969:/ block");
+    /*block*/{
+     /*_#NOTNULL__L6*/ curfnum[5] = 
+      ((/*_.OTEST__V19*/ curfptr[18]) != NULL);;
+     MELT_LOCATION("warmelt-genobj.melt:2969:/ cond");
+     /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:2969:/ cond.then");
+     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:2969:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:2969:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:2969:/ locexp");
+        melt_assert_failed(( "check otest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2969)?(2969):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V25*/ curfptr[24] = /*_.IFELSE___V26*/ curfptr[25];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2969:/ clear");
+     /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2969:/ clear");
+     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2969:/ cppif.else");
+   /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:2970:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:2970:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:2970:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2970:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_if obif";
+      MELT_LOCATION("warmelt-genobj.melt:2970:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:2970:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:2970:/ apply.arg");
+      argtab[3].bp_long = 2970;
+      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBIF__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2970:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:2970:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:2970:/ cppif.else");
+   /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V18*/ curfptr[16] = /*_.OBIF__V23*/ curfptr[21];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_.OTEST__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_.OTHEN__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_.OELSE__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_.OBIF__V23*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
+   /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V18*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.NTEST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.NTHEN__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.NELSE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.NCTYP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2952:/ clear");
+  /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2948:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_IF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_IFISA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ getarg");
+ /*_.RIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:2977:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2978:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2978:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:2978:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2978:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2978:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2978:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2978:/ locexp");
+      melt_assert_failed(( "check rif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2978)?(2978):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2978:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2978:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2978:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2979:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2979:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:2979:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2979:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2979:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:2979:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:2979:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2979)?(2979):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2979:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:2980:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:2980:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:2980:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2980:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_ifisa rif";
+    MELT_LOCATION("warmelt-genobj.melt:2980:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:2980:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:2980:/ apply.arg");
+    argtab[3].bp_long = 2980;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2980:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2980:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:2980:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:2981:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2982:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 2, "NIF_THEN");/*_.NTHEN__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2983:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 3, "NIF_ELSE");/*_.NELSE__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2984:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2985:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 4, "NIFA_VAL");/*_.NVAL__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:2986:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 5, "NIFA_CLASS");/*_.NCLA__V16*/ curfptr[15] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:2988:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:2988:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:2988:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:2988:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:2988:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:2988:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:2988:/ locexp");
+       melt_assert_failed(( "check nctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (2988)?(2988):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:2988:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:2988:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:2988:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:2989:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2989:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OTHEN__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2990:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2990:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OVAL__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.NVAL__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:2991:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:2991:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OCLA__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NCLA__V16*/ curfptr[15]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#IS_NOT_A__L5*/ curfnum[0] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.NELSE__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])));;
+   MELT_LOCATION("warmelt-genobj.melt:2992:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:2992:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:2992:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:2993:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:2993:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+      /*_.COMPILE_OBJ__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NELSE__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.OELSE__V23*/ curfptr[22] = /*_.COMPILE_OBJ__V24*/ curfptr[23];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:2992:/ clear");
+     /*clear*/ /*_.COMPILE_OBJ__V24*/ curfptr[23] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:2992:/ cond.else");
+   
+    /*_.OELSE__V23*/ curfptr[22] = NULL;;
+    }
+   ;
+   /*_.MAKE_STRINGCONST__V25*/ curfptr[23] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[8])), ( "/*ifisa*/ melt_is_instance_of((melt_ptr_t)(")));;
+   /*_.MAKE_STRINGCONST__V26*/ curfptr[25] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[8])), ( "), (melt_ptr_t)(")));;
+   /*_.MAKE_STRINGCONST__V27*/ curfptr[26] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[8])), ( "))")));;
+   /*_.MAKE_TUPLE5__V28*/ curfptr[27] = 
+    (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V25*/ curfptr[23]),  
+		      (melt_ptr_t)(/*_.OVAL__V21*/ curfptr[20]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V26*/ curfptr[25]),  (melt_ptr_t)(/*_.OCLA__V22*/ curfptr[21]),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V27*/ curfptr[26])));;
+   MELT_LOCATION("warmelt-genobj.melt:2994:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:2994:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[6])), (2), "CLASS_OBJEXPV");/*_.INST__V30*/ curfptr[29] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:2994:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.MAKE_TUPLE5__V28*/ curfptr[27]), "OBX_CONT");
+    ;
+    /*_.OTEST__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3006:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3006:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[9])), (4), "CLASS_OBJCOND");/*_.INST__V32*/ curfptr[31] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3006:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3006:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.OTEST__V29*/ curfptr[28]), "OBCOND_TEST");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3006:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.OTHEN__V20*/ curfptr[19]), "OBCOND_THEN");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3006:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.OELSE__V23*/ curfptr[22]), "OBCOND_ELSE");
+    ;
+    /*_.OBIF__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3012:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3012:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3012:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3012:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_ifisa obif";
+      MELT_LOCATION("warmelt-genobj.melt:3012:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:3012:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3012:/ apply.arg");
+      argtab[3].bp_long = 3012;
+      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBIF__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3012:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3012:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3012:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V19*/ curfptr[17] = /*_.OBIF__V31*/ curfptr[30];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.OTHEN__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.OVAL__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.OCLA__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.OELSE__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.MAKE_STRINGCONST__V25*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.MAKE_STRINGCONST__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.MAKE_STRINGCONST__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.MAKE_TUPLE5__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.OTEST__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.OBIF__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:2989:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V19*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.NTHEN__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.NELSE__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.NCTYP__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.NVAL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.NCLA__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:2981:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:2977:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_IFISA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJCOND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3019:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3022:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3022:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3022:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3022:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3022:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3022:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3022:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3022)?(3022):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3022:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3022:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3022:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3023:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3023:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3023:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3023:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3023:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3023:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3023:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3023)?(3023):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3023:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3023:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3023:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3024:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3024:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBCOND_THEN");/*_.OTHEN__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3025:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OBCOND_ELSE");/*_.OELSE__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3029:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3029:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3029:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
+    /*_.DTHEN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OTHEN__V9*/ curfptr[8]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3030:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3030:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
+    /*_.DELSE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OELSE__V10*/ curfptr[9]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3033:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3033:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (2), (/*_.DTHEN__V12*/ curfptr[11]), "OBCOND_THEN");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3033:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (3), (/*_.DELSE__V13*/ curfptr[12]), "OBCOND_ELSE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3033:/ touch");
+    meltgc_touch(/*_.RECV__V2*/ curfptr[1]);
+    ;
+    /*epilog*/}
+   ;
+   /*_.LET___V11*/ curfptr[10] = /*_.RECV__V2*/ curfptr[1];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3029:/ clear");
+   /*clear*/ /*_.DTHEN__V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3029:/ clear");
+   /*clear*/ /*_.DELSE__V13*/ curfptr[12] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3024:/ clear");
+  /*clear*/ /*_.OTHEN__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3024:/ clear");
+  /*clear*/ /*_.OELSE__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3024:/ clear");
+  /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:3019:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJCOND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 28
+  void* varptr[28];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<28; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 28;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_CPPIF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ getarg");
+ /*_.PIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3043:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3044:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3044:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CPPIF*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3044:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3044:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3044:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3044:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3044:/ locexp");
+      melt_assert_failed(( "check pif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3044)?(3044):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3044:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3044:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3044:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3045:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3045:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3045:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3045:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3045:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3045:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3045:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3045)?(3045):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3045:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3046:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3046:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3046:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3046:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_cppif pif";
+    MELT_LOCATION("warmelt-genobj.melt:3046:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3046:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3046:/ apply.arg");
+    argtab[3].bp_long = 3046;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3046:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3046:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3046:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3047:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3048:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 1, "NIFP_COND");/*_.NCOND__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3049:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 2, "NIFP_THEN");/*_.NTHEN__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3050:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 3, "NIFP_ELSE");/*_.NELSE__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3051:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 4, "NIFP_CTYP");/*_.CTYP__V15*/ curfptr[14] = slot; };
+  ;
+  /*_#IS_A__L4*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.NCOND__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-genobj.melt:3053:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3053:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3053:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3053:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NCOND__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; };
+    ;
+    /*_.SCOND__V16*/ curfptr[15] = /*_.NAMED_NAME__V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3053:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3053:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:3053:/ block");
+   /*block*/{
+    /*_#IS_STRING__L5*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.NCOND__V12*/ curfptr[11])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-genobj.melt:3054:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3054:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[16] = /*_.NCOND__V12*/ curfptr[11];;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3054:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3054:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:3055:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:3055:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:3055:/ cond");
+        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:3055:/ cond.then");
+        /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:3055:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:3055:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:3055:/ locexp");
+           melt_assert_failed(( "invalid ncond in nrep_cppif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3055)?(3055):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:3055:/ clear");
+        /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:3055:/ cppif.else");
+      /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-genobj.melt:3055:/ block");
+      /*block*/{
+       /*_.PROGN___V21*/ curfptr[19] = /*_.IFCPP___V19*/ curfptr[18];;}
+      ;
+      /*_.IFELSE___V18*/ curfptr[16] = /*_.PROGN___V21*/ curfptr[19];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3054:/ clear");
+      /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3054:/ clear");
+      /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;}
+     ;
+     }
+    ;
+    /*_.SCOND__V16*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3053:/ clear");
+    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3053:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[16] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3056:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3056:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OTHEN__V22*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3057:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3057:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OELSE__V23*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3058:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3058:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[5])), (4), "CLASS_OBJCPPIF");/*_.INST__V25*/ curfptr[24] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3058:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3058:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (1), (/*_.SCOND__V16*/ curfptr[15]), "OBIFP_COND");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3058:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.OTHEN__V22*/ curfptr[18]), "OBIFP_THEN");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3058:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (3), (/*_.OELSE__V23*/ curfptr[19]), "OBIFP_ELSE");
+   ;
+   /*_.RES__V24*/ curfptr[16] = /*_.INST__V25*/ curfptr[24];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3064:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3064:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3064:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3064:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_cppif result";
+     MELT_LOCATION("warmelt-genobj.melt:3064:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
+     MELT_LOCATION("warmelt-genobj.melt:3064:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3064:/ apply.arg");
+     argtab[3].bp_long = 3064;
+     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3064:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3064:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3064:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3065:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[16];;
+   MELT_LOCATION("warmelt-genobj.melt:3065:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V28*/ curfptr[26];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.NCOND__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.NTHEN__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.NELSE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.CTYP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.SCOND__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.OTHEN__V22*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.OELSE__V23*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.RES__V24*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3047:/ clear");
+  /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3043:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_CPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PUTOBJDEST_OBJCPPIF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3071:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3074:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3074:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3074:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3074:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3074:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3074:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3074:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3074)?(3074):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3074:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3074:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3074:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3075:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3075:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3075:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3075:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3075:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3075:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3075:/ locexp");
+      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3075)?(3075):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3075:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3075:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3075:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3076:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3076:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBIFP_THEN");/*_.OTHEN__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3077:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OBIFP_ELSE");/*_.OELSE__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3081:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3081:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3081:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
+    /*_.DTHEN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OTHEN__V9*/ curfptr[8]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3082:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3082:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
+    /*_.DELSE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OELSE__V10*/ curfptr[9]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3085:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3085:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (2), (/*_.DTHEN__V12*/ curfptr[11]), "OBIFP_THEN");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3085:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (3), (/*_.DELSE__V13*/ curfptr[12]), "OBIFP_ELSE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3085:/ touch");
+    meltgc_touch(/*_.RECV__V2*/ curfptr[1]);
+    ;
+    /*epilog*/}
+   ;
+   /*_.LET___V11*/ curfptr[10] = /*_.RECV__V2*/ curfptr[1];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3081:/ clear");
+   /*clear*/ /*_.DTHEN__V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3081:/ clear");
+   /*clear*/ /*_.DELSE__V13*/ curfptr[12] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3076:/ clear");
+  /*clear*/ /*_.OTHEN__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3076:/ clear");
+  /*clear*/ /*_.OELSE__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3076:/ clear");
+  /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:3071:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PUTOBJDEST_OBJCPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF*/
+
+
+
+/**** end of warmelt-genobj.0+1.c ****/
diff --git a/gcc/melt/warmelt-genobj.0+2.c b/gcc/melt/warmelt-genobj.0+2.c
new file mode 100644
index 00000000000..85df7a5b653
--- /dev/null
+++ b/gcc/melt/warmelt-genobj.0+2.c
@@ -0,0 +1,24979 @@
+/* GCC MELT GENERATED FILE warmelt-genobj.0+2.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #2 */
+#include "run-melt.h"
+
+/**** warmelt-genobj.0+2.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_genobj_COMPILOBJ_CATCHALL_NREP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_genobj_PUTOBJDEST_CATCHALL_OBJCODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_genobj_PUTOBJDEST_CATCHALL_ANYDISCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_genobj_GETCTYPE_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_genobj_GECTYP_OBJNIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_genobj_DBGOUT_ROUTINEOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_genobj_PUTOBJDEST_OBJDESTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_genobj_PUTOBJDEST_OBJFINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_genobj_COMPILE2OBJ_PROCEDURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_genobj_APPEND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_genobj_APPEND_COMMENTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_genobj_COMPILE2OBJ_INITPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_genobj_GET_FREE_OBJLOCPTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_genobj_GET_FREE_OBJLOCLONG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_genobj_GET_FREE_OBJLOCTYPED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_genobj_DISPOSE_OBJLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_genobj_DISPOSE_BND_OBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_genobj_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_genobj_GETCTYPE_TYPEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_genobj_COMPILOBJ_NREP_NIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_genobj_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_genobj_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_genobj_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_genobj_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_genobj_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_genobj_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_genobj_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_genobj_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_genobj_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_genobj_COMPILOBJ_DISCRANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_genobj_COMPILOBJ_NREP_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_genobj_PUTOBJDEST_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_genobj_PUTOBJDEST_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-genobj.0+2.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_RETURN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ getarg");
+ /*_.NRET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3095:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3096:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3096:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3096:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3096:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3096:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3096:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3096:/ locexp");
+      melt_assert_failed(( "check nret"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3096)?(3096):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3096:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3096:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3096:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3097:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3097:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3097:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3097:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3097:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3097:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3097:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3097)?(3097):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3097:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3097:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3097:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3099:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3099:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3099:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3099:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_return nret";
+    MELT_LOCATION("warmelt-genobj.melt:3099:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3099:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3099:/ apply.arg");
+    argtab[3].bp_long = 3099;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3099:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3099:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3099:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3100:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.RLOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3101:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 1, "NRET_MAIN");/*_.RMAIN__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3102:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 2, "NRET_REST");/*_.RREST__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3103:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 5, "GNCX_RETLOC");/*_.RETLOC__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3104:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.OLIS__V16*/ curfptr[15] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+  MELT_LOCATION("warmelt-genobj.melt:3106:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3106:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V18*/ curfptr[17] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3106:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.RLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3106:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.OLIS__V16*/ curfptr[15]), "OBLO_BODYL");
+   ;
+   /*_.OBLOCK__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3109:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3109:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OMAINV__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.RMAIN__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3111:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3111:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[6])));;
+    MELT_LOCATION("warmelt-genobj.melt:3111:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3111:/ cond.then");
+    /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3111:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3111:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3111:/ locexp");
+       melt_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3111)?(3111):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3111:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3111:/ clear");
+    /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3111:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3112:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3112:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3112:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3112:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_return rrest";
+     MELT_LOCATION("warmelt-genobj.melt:3112:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:3112:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3112:/ apply.arg");
+     argtab[3].bp_long = 3112;
+     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RREST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3112:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3112:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3112:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3113:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3113:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0] = 
+     ((/*_.RREST__V13*/ curfptr[12]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.RREST__V13*/ curfptr[12])) == OBMAG_MULTIPLE));;
+    MELT_LOCATION("warmelt-genobj.melt:3113:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3113:/ cond.then");
+    /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3113:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3113:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3113:/ locexp");
+       melt_assert_failed(( "check rrest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3113)?(3113):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3113:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3113:/ clear");
+    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3113:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3114:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V15*/ curfptr[14]), 7, "OBROUT_RETVAL");/*_.OBROUT_RETVAL__V26*/ curfptr[24] = slot; };
+  ;
+  /*_#NULL__L7*/ curfnum[0] = 
+   ((/*_.OBROUT_RETVAL__V26*/ curfptr[24]) == NULL);;
+  MELT_LOCATION("warmelt-genobj.melt:3114:/ cond");
+  /*cond*/ if (/*_#NULL__L7*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3114:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3114:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3115:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3115:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBROUT_RETVAL", melt_magic_discr((melt_ptr_t)(/*_.OROUT__V15*/ curfptr[14])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.OROUT__V15*/ curfptr[14]), (7), (/*_.RETLOC__V14*/ curfptr[13]), "OBROUT_RETVAL");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3115:/ touch");
+     meltgc_touch(/*_.OROUT__V15*/ curfptr[14]);
+     ;
+     /*epilog*/}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3116:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3116:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.RETLOC__V14*/ curfptr[13];
+   /*_.PUT_OBJDEST__V27*/ curfptr[26] = meltgc_send((melt_ptr_t)(/*_.OMAINV__V19*/ curfptr[18]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3116:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V16*/ curfptr[15]), (melt_ptr_t)(/*_.PUT_OBJDEST__V27*/ curfptr[26]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3119:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3119:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3119:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.RLOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3119:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3119:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.OLIS__V16*/ curfptr[15]);
+   ;
+   /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3117:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3117:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27];
+   /*_.MULTIPLE_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RREST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3130:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3130:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[13])), (1), "CLASS_OBJFINALRETURN");/*_.INST__V32*/ curfptr[31] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3130:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.RLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   /*_.INST___V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3129:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V16*/ curfptr[15]), (melt_ptr_t)(/*_.INST___V31*/ curfptr[30]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3132:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3132:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3132:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3132:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_return final oblock";
+     MELT_LOCATION("warmelt-genobj.melt:3132:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+     MELT_LOCATION("warmelt-genobj.melt:3132:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3132:/ apply.arg");
+     argtab[3].bp_long = 3132;
+     /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3132:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3132:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3132:/ cppif.else");
+  /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V17*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.RLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.RMAIN__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.RREST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.RETLOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.OROUT__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.OLIS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.OBLOCK__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.OMAINV__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.OBROUT_RETVAL__V26*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_#NULL__L7*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.PUT_OBJDEST__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.INST___V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3100:/ clear");
+  /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3095:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_101_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3119:/ getarg");
+ /*_.RXTRA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3119:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3119:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3121:/ block");
+ /*block*/{
+  /*_.MAKE_INTEGERBOX__V3*/ curfptr[2] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#IX__L1*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-genobj.melt:3125:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3125:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
+   /*_.COMPILE_OBJ__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.RXTRA__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3122:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3122:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTXTRARESULT*/ curfrout->tabval[0])), (3), "CLASS_OBJPUTXTRARESULT");/*_.INST__V6*/ curfptr[5] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3122:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), ((/*~RLOC*/ curfclos->tabval[0])), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3122:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBXRES_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.MAKE_INTEGERBOX__V3*/ curfptr[2]), "OBXRES_RANK");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3122:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBXRES_OBLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.COMPILE_OBJ__V4*/ curfptr[3]), "OBXRES_OBLOC");
+   ;
+   /*_.OXRES__V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3128:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~OLIS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OXRES__V5*/ curfptr[4]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3121:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3121:/ clear");
+  /*clear*/ /*_.COMPILE_OBJ__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3121:/ clear");
+  /*clear*/ /*_.OXRES__V5*/ curfptr[4] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_101_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_102_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3139:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3139:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3139:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3139:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);;
+  MELT_LOCATION("warmelt-genobj.melt:3139:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_102_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 40
+  void* varptr[40];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<40; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 40;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ getarg");
+ /*_.NLAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3147:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3148:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3148:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3148:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3148:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3148:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3148:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3148:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3148)?(3148):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3148:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3148:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3148:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3149:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3149:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3149:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3149:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3149:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3149:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3149:/ locexp");
+      melt_assert_failed(( "check nlam"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3149)?(3149):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3149:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3150:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3150:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3150:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3150:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_lambda nlam";
+    MELT_LOCATION("warmelt-genobj.melt:3150:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3150:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3150:/ apply.arg");
+    argtab[3].bp_long = 3150;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3150:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3150:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3150:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3151:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3152:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3153:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 1, "NLAMBDA_PROC");/*_.CHECKPRO__V13*/ curfptr[12] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3154:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3154:/ block");
+    /*block*/{
+     /*_#IS_A__L4*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CHECKPRO__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));;
+     MELT_LOCATION("warmelt-genobj.melt:3154:/ cond");
+     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3154:/ cond.then");
+     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3154:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:3154:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3154:/ locexp");
+        melt_assert_failed(( "check checkpro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3154)?(3154):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3154:/ clear");
+     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3154:/ clear");
+     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3154:/ cppif.else");
+   /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V12*/ curfptr[11] = /*_.CHECKPRO__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3152:/ clear");
+   /*clear*/ /*_.CHECKPRO__V13*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3152:/ clear");
+   /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;}
+  ;
+  /*_.NPRO__V16*/ curfptr[14] = /*_.LET___V12*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:3156:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V16*/ curfptr[14]), 2, "NRPRO_NAME");/*_.NAM__V17*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3157:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 3, "NLAMBDA_CLOSEDV");/*_.NCLOVTUP__V18*/ curfptr[13] = slot; };
+  ;
+  /*_#NBCLOSED__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.NCLOVTUP__V18*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-genobj.melt:3159:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3159:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAM__V17*/ curfptr[12];
+   /*_.LOCV__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3160:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 2, "NLAMBDA_CONSTROUT");/*_.NROU__V20*/ curfptr[19] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3161:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V21*/ curfptr[20] = slot; };
+  ;
+  /*_.OLIS__V22*/ curfptr[21] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  MELT_LOCATION("warmelt-genobj.melt:3163:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3163:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[6])), (3), "CLASS_OBJBLOCK");/*_.INST__V24*/ curfptr[23] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3163:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3163:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OLIS__V22*/ curfptr[21]), "OBLO_BODYL");
+   ;
+   /*_.OBLOCK__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+  ;
+  /*_.DESTLIST__V25*/ curfptr[24] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3168:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.LOCV__V19*/ curfptr[18]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3176:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3176:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3176:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_lambda should use nrpro_thunklist nrou";
+     MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
+     argtab[3].bp_long = 3176;
+     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NROU__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3176:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3176:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3176:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3177:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3177:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3177:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.CROU__V29*/ curfptr[28] = meltgc_send((melt_ptr_t)(/*_.NROU__V20*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3178:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3178:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3178:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3178:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_lambda crou";
+      MELT_LOCATION("warmelt-genobj.melt:3178:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:3178:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3178:/ apply.arg");
+      argtab[3].bp_long = 3178;
+      /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CROU__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3178:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3178:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3178:/ cppif.else");
+   /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V28*/ curfptr[26] = /*_.CROU__V29*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3177:/ clear");
+   /*clear*/ /*_.CROU__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3177:/ clear");
+   /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3175:/ block");
+  /*block*/{
+   /*_.PROGN___V32*/ curfptr[30] = /*_.LET___V28*/ curfptr[26];;}
+  ;
+  /*_.MAKE_INTEGERBOX__V33*/ curfptr[28] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NBCLOSED__L5*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-genobj.melt:3170:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3170:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJNEWCLOSURE*/ curfrout->tabval[7])), (5), "CLASS_OBJNEWCLOSURE");/*_.INST__V35*/ curfptr[34] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3170:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3170:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBNCLO_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), ((/*!DISCRCLOSURE_OBJPREDEF*/ curfrout->tabval[8])), "OBNCLO_DISCR");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3170:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBNCLO_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.PROGN___V32*/ curfptr[30]), "OBNCLO_ROUT");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3170:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBNCLO_LEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.MAKE_INTEGERBOX__V33*/ curfptr[28]), "OBNCLO_LEN");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3170:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.DESTLIST__V25*/ curfptr[24]), "OBDI_DESTLIST");
+   ;
+   /*_.INST___V34*/ curfptr[29] = /*_.INST__V35*/ curfptr[34];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3169:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V22*/ curfptr[21]), (melt_ptr_t)(/*_.INST___V34*/ curfptr[29]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3185:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3185:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (4));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3185:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.OLIS__V22*/ curfptr[21]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3185:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3185:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[2] = (melt_ptr_t)(/*_.LOCV__V19*/ curfptr[18]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3185:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[3] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3183:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3183:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35];
+   /*_.MULTIPLE_EVERY__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NCLOVTUP__V18*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3195:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V22*/ curfptr[21]), (melt_ptr_t)(/*_.LOCV__V19*/ curfptr[18]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3196:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3196:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3196:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3196:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_lambda result oblock";
+     MELT_LOCATION("warmelt-genobj.melt:3196:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:3196:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3196:/ apply.arg");
+     argtab[3].bp_long = 3196;
+     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3196:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3196:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3196:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V23*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.NPRO__V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.NAM__V17*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.NCLOVTUP__V18*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_#NBCLOSED__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.LOCV__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.NROU__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.OROUT__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.OLIS__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.OBLOCK__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.DESTLIST__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.PROGN___V32*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V33*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.INST___V34*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3151:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3147:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_104_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ getarg");
+ /*_.CLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3185:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3186:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3186:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3186:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3186:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_lambda clov";
+    MELT_LOCATION("warmelt-genobj.melt:3186:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:3186:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3186:/ apply.arg");
+    argtab[3].bp_long = 3186;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3186:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3186:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3186:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 
+  (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L1*/ curfnum[0])));;
+ MELT_LOCATION("warmelt-genobj.melt:3193:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:3193:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[3]);
+  /*_.COMPILE_OBJ__V6*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3189:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3189:/ rawallocobj");
+  /*rawallocobj*/ { melt_ptr_t newobj = 0;
+   melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV");/*_.INST__V8*/ curfptr[7] =
+   newobj; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3189:/ putslot");
+  /*putslot*/
+  melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3189:/ putslot");
+  /*putslot*/
+  melt_assertmsg("putslot checkobj @OPCLOV_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), ((/*~LOCV*/ curfclos->tabval[2])), "OPCLOV_CLOS");
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3189:/ putslot");
+  /*putslot*/
+  melt_assertmsg("putslot checkobj @OPCLOV_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), (/*_.MAKE_INTEGERBOX__V5*/ curfptr[3]), "OPCLOV_OFF");
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3189:/ putslot");
+  /*putslot*/
+  melt_assertmsg("putslot checkobj @OPCLOV_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (3), (/*_.COMPILE_OBJ__V6*/ curfptr[5]), "OPCLOV_CVAL");
+  ;
+  /*_.INST___V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:3187:/ locexp");
+ meltgc_append_list((melt_ptr_t)((/*~OLIS*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.INST___V7*/ curfptr[6]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ clear");
+ /*clear*/ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ clear");
+ /*clear*/ /*_.COMPILE_OBJ__V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ clear");
+ /*clear*/ /*_.INST___V7*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_104_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_MAKEINST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ getarg");
+ /*_.NMKI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3202:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3203:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3203:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3203:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3203:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3203:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3203:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3203:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3203)?(3203):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3203:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3203:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3203:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3204:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3204:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_INSTANCE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3204:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3204:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3204:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3204:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3204:/ locexp");
+      melt_assert_failed(( "check nmki"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3204)?(3204):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3204:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3204:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3204:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3205:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3205:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3205:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3205:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_makeinst nmki";
+    MELT_LOCATION("warmelt-genobj.melt:3205:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3205:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3205:/ apply.arg");
+    argtab[3].bp_long = 3205;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3205:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3207:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3208:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 1, "NMINS_CLASS");/*_.NCLA__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3209:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 2, "NMINS_CLADATA");/*_.NCLADAT__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3210:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 3, "NMINS_FIELDS");/*_.NFIELDS__V14*/ curfptr[13] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3212:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3212:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3212:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3212:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3212:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3212:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3212:/ locexp");
+       melt_assert_failed(( "check ncla"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3212)?(3212):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3212:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3212:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3212:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3213:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V18*/ curfptr[17] = slot; };
+   ;
+   /*_#NBFLD__L5*/ curfnum[0] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V18*/ curfptr[17])));;
+   /*_.DESTLIST__V19*/ curfptr[18] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+   MELT_LOCATION("warmelt-genobj.melt:3215:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3215:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_6_INST*/ curfrout->tabval[6]);
+    /*_.LOCV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.OLIS__V21*/ curfptr[20] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+   MELT_LOCATION("warmelt-genobj.melt:3217:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3217:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OCLADAT__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NCLADAT__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3218:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3218:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[8])), (3), "CLASS_OBJBLOCK");/*_.INST__V24*/ curfptr[23] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3218:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3218:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OLIS__V21*/ curfptr[20]), "OBLO_BODYL");
+    ;
+    /*_.OBLOCK__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+   ;
+   /*_.MAKE_INTEGERBOX__V25*/ curfptr[24] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NBFLD__L5*/ curfnum[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3225:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3221:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3221:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJRAWALLOCOBJ*/ curfrout->tabval[9])), (5), "CLASS_OBJRAWALLOCOBJ");/*_.INST__V28*/ curfptr[27] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3221:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3221:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBRALLOBJ_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.OCLADAT__V22*/ curfptr[21]), "OBRALLOBJ_CLASS");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3221:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBRALLOBJ_LEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.MAKE_INTEGERBOX__V25*/ curfptr[24]), "OBRALLOBJ_LEN");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3221:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBRALLOBJ_CLASSNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (4), (/*_.NAMED_NAME__V26*/ curfptr[25]), "OBRALLOBJ_CLASSNAME");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3221:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIST__V19*/ curfptr[18]), "OBDI_DESTLIST");
+    ;
+    /*_.ORALLOBJ__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3228:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.LOCV__V20*/ curfptr[19]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3229:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.OLIS__V21*/ curfptr[20]), (melt_ptr_t)(/*_.ORALLOBJ__V27*/ curfptr[26]));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3233:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3233:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (4));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3233:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.OLIS__V21*/ curfptr[20]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3233:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3233:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.NLOC__V11*/ curfptr[10]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3233:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[3] = (melt_ptr_t)(/*_.LOCV__V20*/ curfptr[19]);
+    ;
+    /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3231:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3231:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
+    /*_.MULTIPLE_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NFIELDS__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3251:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.OLIS__V21*/ curfptr[20]), (melt_ptr_t)(/*_.LOCV__V20*/ curfptr[19]));}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3252:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3252:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3252:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3252:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_makeinst result oblock";
+      MELT_LOCATION("warmelt-genobj.melt:3252:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:3252:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3252:/ apply.arg");
+      argtab[3].bp_long = 3252;
+      /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V32*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3252:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3252:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3252:/ cppif.else");
+   /*_.IFCPP___V32*/ curfptr[31] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V17*/ curfptr[15] = /*_.OBLOCK__V23*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.CLASS_FIELDS__V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_#NBFLD__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.DESTLIST__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.LOCV__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.OLIS__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.OCLADAT__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.OBLOCK__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.ORALLOBJ__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3213:/ clear");
+   /*clear*/ /*_.IFCPP___V32*/ curfptr[31] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V17*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ clear");
+  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ clear");
+  /*clear*/ /*_.NCLA__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ clear");
+  /*clear*/ /*_.NCLADAT__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ clear");
+  /*clear*/ /*_.NFIELDS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3207:/ clear");
+  /*clear*/ /*_.LET___V17*/ curfptr[15] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3202:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_MAKEINST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_106_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ getarg");
+ /*_.CFLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3233:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3234:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3234:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3234:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3234:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3234:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3234:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3234:/ locexp");
+      melt_assert_failed(( "compilobj_nrep_makeinst check cfla"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3234)?(3234):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3234:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3234:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3234:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3235:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3235:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.CFLOC__V5*/ curfptr[3] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3236:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 1, "NFLA_FIELD");/*_.CFIELD__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3237:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 2, "NFLA_VAL");/*_.CVAL__V7*/ curfptr[6] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3238:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3238:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CFIELD__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-genobj.melt:3238:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3238:/ cond.then");
+    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3238:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3238:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3238:/ locexp");
+       melt_assert_failed(( "compilobj_nrep_makeinst check cfield"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3238)?(3238):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3238:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3238:/ clear");
+    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3238:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3241:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3241:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
+    /*_.OVAL__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.CVAL__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3242:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3242:/ block");
+    /*block*/{
+     /*_#IS_A__L4*/ curfnum[1] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.OVAL__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[3])));;
+     /*_#NOT__L5*/ curfnum[4] = 
+      (!(/*_#IS_A__L4*/ curfnum[1]));;
+     MELT_LOCATION("warmelt-genobj.melt:3242:/ cond");
+     /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3242:/ cond.then");
+     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3242:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:3242:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3242:/ locexp");
+        melt_assert_failed(( "compilobj_nrep_makeinst check oval not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3242)?(3242):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3242:/ clear");
+     /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3242:/ clear");
+     /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3242:/ clear");
+     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3242:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:3244:/ cond");
+   /*cond*/ if (/*_.CFLOC__V5*/ curfptr[3]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3244:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[12] = /*_.CFLOC__V5*/ curfptr[3];;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3244:/ cond.else");
+   
+    /*_.IFELSE___V14*/ curfptr[12] = (/*~NLOC*/ curfclos->tabval[2]);;
+    }
+   ;
+   /*_#GET_INT__L6*/ curfnum[1] = 
+    (melt_get_int((melt_ptr_t)(/*_.CFIELD__V6*/ curfptr[5])));;
+   /*_.MAKE_INTEGERBOX__V15*/ curfptr[14] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#GET_INT__L6*/ curfnum[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3243:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3243:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[4])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V17*/ curfptr[16] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3243:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.IFELSE___V14*/ curfptr[12]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3243:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_ODATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*~LOCV*/ curfclos->tabval[3])), "OSLOT_ODATA");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3243:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), (/*_.CFIELD__V6*/ curfptr[5]), "OSLOT_FIELD");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3243:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.MAKE_INTEGERBOX__V15*/ curfptr[14]), "OSLOT_OFFSET");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3243:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OSLOT_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (4), (/*_.OVAL__V11*/ curfptr[10]), "OSLOT_VALUE");
+    ;
+    /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+   ;
+   /*_.LET___V10*/ curfptr[8] = /*_.INST___V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ clear");
+   /*clear*/ /*_.OVAL__V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ clear");
+   /*clear*/ /*_#GET_INT__L6*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V15*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3241:/ clear");
+   /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3239:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~OLIS*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.LET___V10*/ curfptr[8]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3235:/ clear");
+  /*clear*/ /*_.CFLOC__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3235:/ clear");
+  /*clear*/ /*_.CFIELD__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3235:/ clear");
+  /*clear*/ /*_.CVAL__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3235:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3235:/ clear");
+  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_106_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_ROUTPROC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ getarg");
+ /*_.NPRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3260:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3261:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3261:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3261:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3261:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3261:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3261:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3261:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3261)?(3261):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3261:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3261:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3261:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3262:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3262:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3262:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3262:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3262:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3262:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3262:/ locexp");
+      melt_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3262)?(3262):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3262:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3262:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3262:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3263:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3263:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3263:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3263:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_routproc gcx";
+    MELT_LOCATION("warmelt-genobj.melt:3263:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3263:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3263:/ apply.arg");
+    argtab[3].bp_long = 3263;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3263:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3263:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3263:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3264:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3264:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3264:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3264:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_routproc npro";
+    MELT_LOCATION("warmelt-genobj.melt:3264:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3264:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3264:/ apply.arg");
+    argtab[3].bp_long = 3264;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3264:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3264:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3264:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3265:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3265:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3265:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3265:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3265:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3265:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3265:/ locexp");
+      melt_assert_failed(( "UNEXPECTED CALL TO compilobj_routproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3265)?(3265):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3265:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3265:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-genobj.melt:3260:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_ROUTPROC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_PREDEF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ getarg");
+ /*_.NPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3270:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3271:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3271:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3271:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3271:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3271:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3271:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3271:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3271)?(3271):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3271:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3271:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3271:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3273:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3275:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPR__V2*/ curfptr[1]), 1, "NRPREDEF");/*_.NRPREDEF__V7*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3273:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3273:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPREDEF*/ curfrout->tabval[1])), (2), "CLASS_OBJPREDEF");/*_.INST__V9*/ curfptr[8] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3273:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[2])), "OBV_TYPE");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3273:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (1), (/*_.NRPREDEF__V7*/ curfptr[6]), "OBPREDEF");
+   ;
+   /*_.OPR__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
+  ;
+  /*_.LET___V6*/ curfptr[4] = /*_.OPR__V8*/ curfptr[7];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3273:/ clear");
+  /*clear*/ /*_.NRPREDEF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3273:/ clear");
+  /*clear*/ /*_.OPR__V8*/ curfptr[7] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
+  MELT_LOCATION("warmelt-genobj.melt:3270:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ clear");
+ /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_PREDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 83
+  void* varptr[83];
+#define CURFRAM_NBVARNUM 18
+  long varnum[18];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<83; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 83;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPIL_DATA_AND_SLOTS_FILL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ getarg");
+ /*_.NDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OBJ__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ODISCR__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ODISCR__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IROUT__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V6*/ curfptr[5])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3288:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3289:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3289:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3289:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3289:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3289:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3289:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3289:/ locexp");
+      melt_assert_failed(( "compil_data_and_slots_fill check ndat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3289)?(3289):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3289:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3289:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3289:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3290:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3290:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3290:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3290:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3290:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3290:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3290:/ locexp");
+      melt_assert_failed(( "compil_data_and_slots_fill check obj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3290)?(3290):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3290:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3290:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3290:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3291:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3291:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ODISCR__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:3291:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3291:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3291:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3291:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3291:/ locexp");
+      melt_assert_failed(( "compil_data_and_slots_fill check odiscr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3291)?(3291):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3291:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3291:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3291:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3292:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3292:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:3292:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3292:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3292:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3292:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3292:/ locexp");
+      melt_assert_failed(( "compil_data_and_slots_fill check irout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3292)?(3292):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3292:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3292:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3292:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3293:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3293:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[4])));;
+   MELT_LOCATION("warmelt-genobj.melt:3293:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3293:/ cond.then");
+   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3293:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3293:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3293:/ locexp");
+      melt_assert_failed(( "compil_data_and_slots_fill check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3293)?(3293):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3293:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3293:/ clear");
+   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3293:/ cppif.else");
+ /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3294:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3294:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3294:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
+    argtab[0].bp_cstring =  "compil_data_and_slots_fill start ndat";
+    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
+    argtab[3].bp_long = 3294;
+    /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3294:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3294:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3294:/ cppif.else");
+ /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3295:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3295:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3295:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
+    argtab[0].bp_cstring =  "compil_data_and_slots_fill start obj";
+    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
+    argtab[3].bp_long = 3295;
+    /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3295:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3295:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3295:/ cppif.else");
+ /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3296:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3296:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3296:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3296:/ apply.arg");
+    argtab[0].bp_cstring =  "compil_data_and_slots_fill odiscr";
+    MELT_LOCATION("warmelt-genobj.melt:3296:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3296:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3296:/ apply.arg");
+    argtab[3].bp_long = 3296;
+    /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ODISCR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3296:/ cppif.else");
+ /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3297:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3297:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3297:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3297:/ apply.arg");
+    argtab[0].bp_cstring =  "compil_data_and_slots_fill irout un";
+    MELT_LOCATION("warmelt-genobj.melt:3297:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3297:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3297:/ apply.arg");
+    argtab[3].bp_long = 3297;
+    /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3297:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3297:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3297:/ cppif.else");
+ /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3298:/ block");
+ /*block*/{
+  /*_#IS_A__L10*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[6])));;
+  MELT_LOCATION("warmelt-genobj.melt:3299:/ cond");
+  /*cond*/ if (/*_#IS_A__L10*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3299:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3299:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3299:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 6, "NINST_PREDEF");/*_.NINST_PREDEF__V27*/ curfptr[26] = slot; };
+    ;
+    /*_.IPREDEF__V26*/ curfptr[25] = /*_.NINST_PREDEF__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3299:/ clear");
+    /*clear*/ /*_.NINST_PREDEF__V27*/ curfptr[26] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3299:/ cond.else");
+  
+   /*_.IPREDEF__V26*/ curfptr[25] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3300:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), 3, "OBROUT_BODY");/*_.IBODYLIS__V28*/ curfptr[26] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3301:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), 11, "OIROUT_FILL");/*_.IFILLLIS__V29*/ curfptr[28] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3302:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3302:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_8_VALDATA_*/ curfrout->tabval[8]);
+   /*_.LOCVAR__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3303:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)((/*!konst_9_VALUEDATA_*/ curfrout->tabval[9])), 1, "NAMED_NAME");/*_.COMM__V31*/ curfptr[30] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3304:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V32*/ curfptr[31] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3305:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 4, "NDATA_LOCBIND");/*_.DLOCBIND__V33*/ curfptr[32] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3306:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V34*/ curfptr[33] = slot; };
+  ;
+  /*_.ISTMTLIS__V35*/ curfptr[34] = /*_.IBODYLIS__V28*/ curfptr[26];;
+  /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.LOCMAP__V34*/ curfptr[33])));;
+  /*_.TUPVAR__V36*/ curfptr[35] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3311:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3311:/ block");
+   /*block*/{
+    /*_#IS_LIST__L12*/ curfnum[11] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-genobj.melt:3311:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3311:/ cond.then");
+    /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3311:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3311:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3311:/ locexp");
+       melt_assert_failed(( "compil_data_and_slots_fill check ibodylis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3311)?(3311):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V37*/ curfptr[36] = /*_.IFELSE___V38*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3311:/ clear");
+    /*clear*/ /*_#IS_LIST__L12*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3311:/ clear");
+    /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3311:/ cppif.else");
+  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3312:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3312:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3312:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), 4, "OIE_LOCVAR");/*_.OIE_LOCVAR__V40*/ curfptr[39] = slot; };
+    ;
+    /*_#NULL__L13*/ curfnum[11] = 
+     ((/*_.OIE_LOCVAR__V40*/ curfptr[39]) == NULL);;
+    MELT_LOCATION("warmelt-genobj.melt:3312:/ cond");
+    /*cond*/ if (/*_#NULL__L13*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3312:/ cond.then");
+    /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3312:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3312:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3312:/ locexp");
+       melt_assert_failed(( "compil_data_and_slots_fill check fresh obj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3312)?(3312):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V41*/ curfptr[40];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3312:/ clear");
+    /*clear*/ /*_.OIE_LOCVAR__V40*/ curfptr[39] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3312:/ clear");
+    /*clear*/ /*_#NULL__L13*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3312:/ clear");
+    /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3312:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3313:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3313:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.OBJ__V3*/ curfptr[2]), (4), (/*_.LOCVAR__V30*/ curfptr[29]), "OIE_LOCVAR");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3313:/ touch");
+   meltgc_touch(/*_.OBJ__V3*/ curfptr[2]);
+   ;
+   /*epilog*/}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3314:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3314:/ block");
+   /*block*/{
+    /*_#IS_LIST__L14*/ curfnum[11] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.IFILLLIS__V29*/ curfptr[28])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-genobj.melt:3314:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3314:/ cond.then");
+    /*_.IFELSE___V43*/ curfptr[40] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3314:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3314:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3314:/ locexp");
+       melt_assert_failed(( "compil_data_and_slots_fill check ifilllis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3314)?(3314):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V43*/ curfptr[40] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V42*/ curfptr[39] = /*_.IFELSE___V43*/ curfptr[40];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3314:/ clear");
+    /*clear*/ /*_#IS_LIST__L14*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3314:/ clear");
+    /*clear*/ /*_.IFELSE___V43*/ curfptr[40] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3314:/ cppif.else");
+  /*_.IFCPP___V42*/ curfptr[39] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3315:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3315:/ block");
+   /*block*/{
+    /*_#IS_LIST__L15*/ curfnum[11] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-genobj.melt:3315:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L15*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3315:/ cond.then");
+    /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3315:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3315:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3315:/ locexp");
+       melt_assert_failed(( "compil_data_and_slots_fill check ibodylis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3315)?(3315):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V44*/ curfptr[40] = /*_.IFELSE___V45*/ curfptr[44];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3315:/ clear");
+    /*clear*/ /*_#IS_LIST__L15*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3315:/ clear");
+    /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3315:/ cppif.else");
+  /*_.IFCPP___V44*/ curfptr[40] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3317:/ cond");
+  /*cond*/ if (/*_.IPREDEF__V26*/ curfptr[25]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3317:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3317:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3318:/ block");
+    /*block*/{
+     /*_#IS_A__L16*/ curfnum[11] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[11])));;
+     MELT_LOCATION("warmelt-genobj.melt:3321:/ cond");
+     /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3321:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:3321:/ block");
+      /*block*/{
+       /*_.MAKE_STRINGCONST__V47*/ curfptr[46] = 
+        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( "MELTPREDEFIX(predefinited,")));;
+       MELT_LOCATION("warmelt-genobj.melt:3328:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V48*/ curfptr[47] = slot; };
+       ;
+       /*_.MAKE_STRING__V49*/ curfptr[48] = 
+        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), 
+			  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V48*/ curfptr[47]))));;
+       /*_.MAKE_STRINGCONST__V50*/ curfptr[49] = 
+        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( ")")));;
+       /*_.MAKE_TUPLE3__V51*/ curfptr[50] = 
+        (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V47*/ curfptr[46]),  (melt_ptr_t)(/*_.MAKE_STRING__V49*/ curfptr[48]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V50*/ curfptr[49])));;
+       MELT_LOCATION("warmelt-genobj.melt:3322:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:3322:/ rawallocobj");
+        /*rawallocobj*/ { melt_ptr_t newobj = 0;
+         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[12])), (2), "CLASS_OBJEXPV");/*_.INST__V53*/ curfptr[52] =
+         newobj; };
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:3322:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.MAKE_TUPLE3__V51*/ curfptr[50]), "OBX_CONT");
+        ;
+        /*_.INST___V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;}
+       ;
+       /*_.OTESTPREDEF__V46*/ curfptr[44] = /*_.INST___V52*/ curfptr[51];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.MAKE_STRINGCONST__V47*/ curfptr[46] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V48*/ curfptr[47] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.MAKE_STRING__V49*/ curfptr[48] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.MAKE_STRINGCONST__V50*/ curfptr[49] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.MAKE_TUPLE3__V51*/ curfptr[50] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.INST___V52*/ curfptr[51] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3321:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:3321:/ block");
+      /*block*/{
+       /*_#IS_INTEGERBOX__L17*/ curfnum[16] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25])) == OBMAG_INT);;
+       MELT_LOCATION("warmelt-genobj.melt:3333:/ cond");
+       /*cond*/ if (/*_#IS_INTEGERBOX__L17*/ curfnum[16]) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:3333:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:3333:/ block");
+        /*block*/{
+         /*_.MAKE_STRINGCONST__V55*/ curfptr[47] = 
+          (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( "predefinited[")));;
+         /*_.MAKE_STRINGCONST__V56*/ curfptr[48] = 
+          (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( "]")));;
+         /*_.MAKE_TUPLE3__V57*/ curfptr[49] = 
+          (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V55*/ curfptr[47]),  (melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V56*/ curfptr[48])));;
+         MELT_LOCATION("warmelt-genobj.melt:3334:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:3334:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[12])), (2), "CLASS_OBJEXPV");/*_.INST__V59*/ curfptr[51] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:3334:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[51])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V59*/ curfptr[51]), (1), (/*_.MAKE_TUPLE3__V57*/ curfptr[49]), "OBX_CONT");
+          ;
+          /*_.INST___V58*/ curfptr[50] = /*_.INST__V59*/ curfptr[51];;}
+         ;
+         /*_.IFELSE___V54*/ curfptr[46] = /*_.INST___V58*/ curfptr[50];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:3333:/ clear");
+         /*clear*/ /*_.MAKE_STRINGCONST__V55*/ curfptr[47] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:3333:/ clear");
+         /*clear*/ /*_.MAKE_STRINGCONST__V56*/ curfptr[48] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:3333:/ clear");
+         /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[49] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:3333:/ clear");
+         /*clear*/ /*_.INST___V58*/ curfptr[50] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-genobj.melt:3333:/ cond.else");
+       
+        /*_.IFELSE___V54*/ curfptr[46] = NULL;;
+        }
+       ;
+       /*_.OTESTPREDEF__V46*/ curfptr[44] = /*_.IFELSE___V54*/ curfptr[46];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_#IS_INTEGERBOX__L17*/ curfnum[16] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3321:/ clear");
+       /*clear*/ /*_.IFELSE___V54*/ curfptr[46] = 0 ;}
+      ;
+      }
+     ;
+     /*_.INITLIS__V60*/ curfptr[47] = 
+      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[14]))));;
+     MELT_LOCATION("warmelt-genobj.melt:3346:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3346:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[15])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V62*/ curfptr[49] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3346:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[49])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V62*/ curfptr[49]), (1), (/*_.INITLIS__V60*/ curfptr[47]), "OBLO_BODYL");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3346:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[49])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V62*/ curfptr[49]), (3), ((/*!konst_16*/ curfrout->tabval[16])), "OCOMBLO_COMMENT");
+      ;
+      /*_.OBLOCKPREDEF__V61*/ curfptr[48] = /*_.INST__V62*/ curfptr[49];;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3350:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3350:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[17])), (4), "CLASS_OBJCOND");/*_.INST__V64*/ curfptr[46] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3350:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (0), (/*_.NLOC__V32*/ curfptr[31]), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3350:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (1), (/*_.OTESTPREDEF__V46*/ curfptr[44]), "OBCOND_TEST");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3350:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (2), ((/*nil*/NULL)), "OBCOND_THEN");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3350:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (3), (/*_.OBLOCKPREDEF__V61*/ curfptr[48]), "OBCOND_ELSE");
+      ;
+      /*_.OCONDPREDEF__V63*/ curfptr[50] = /*_.INST__V64*/ curfptr[46];;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3357:/ compute");
+     /*_.ISTMTLIS__V35*/ curfptr[34] = /*_.SETQ___V65*/ curfptr[64] = /*_.INITLIS__V60*/ curfptr[47];;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3358:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]), (melt_ptr_t)(/*_.OCONDPREDEF__V63*/ curfptr[50]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3318:/ clear");
+     /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3318:/ clear");
+     /*clear*/ /*_.OTESTPREDEF__V46*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3318:/ clear");
+     /*clear*/ /*_.INITLIS__V60*/ curfptr[47] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3318:/ clear");
+     /*clear*/ /*_.OBLOCKPREDEF__V61*/ curfptr[48] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3318:/ clear");
+     /*clear*/ /*_.OCONDPREDEF__V63*/ curfptr[50] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3318:/ clear");
+     /*clear*/ /*_.SETQ___V65*/ curfptr[64] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3363:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3363:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V67*/ curfptr[47] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (4));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3363:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[0] = (melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3363:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V34*/ curfptr[33]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3363:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[2] = (melt_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3363:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[3] = (melt_ptr_t)(/*_.TUPVAR__V36*/ curfptr[35]);
+   ;
+   /*_.LAMBDA___V66*/ curfptr[44] = /*_.LAMBDA___V67*/ curfptr[47];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3361:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3361:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V66*/ curfptr[44];
+   /*_.MULTIPLE_EVERY__V68*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.DLOCBIND__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3381:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.NINST_SLOTS__V69*/ curfptr[50] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3382:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3382:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V71*/ curfptr[70] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (4));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3382:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[0] = (melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3382:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V32*/ curfptr[31]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3382:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[2] = (melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3382:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[3] = (melt_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]);
+   ;
+   /*_.LAMBDA___V70*/ curfptr[64] = /*_.LAMBDA___V71*/ curfptr[70];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3380:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3380:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V70*/ curfptr[64];
+   /*_.MULTIPLE_EVERY__V72*/ curfptr[71] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NINST_SLOTS__V69*/ curfptr[50]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3405:/ cond");
+  /*cond*/ if (/*_.NLOC__V32*/ curfptr[31]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3405:/ cond.then");
+  /*_.IFELSE___V73*/ curfptr[72] = /*_.NLOC__V32*/ curfptr[31];;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3405:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:3405:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3405:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V74*/ curfptr[73] = slot; };
+    ;
+    /*_.IFELSE___V73*/ curfptr[72] = /*_.NREP_LOC__V74*/ curfptr[73];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3405:/ clear");
+    /*clear*/ /*_.NREP_LOC__V74*/ curfptr[73] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3404:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3404:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[29])), (3), "CLASS_OBJTOUCH");/*_.INST__V76*/ curfptr[75] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3404:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.IFELSE___V73*/ curfptr[72]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3404:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.COMM__V31*/ curfptr[30]), "OTOUCH_COMMENT");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3404:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.OBJ__V3*/ curfptr[2]), "OTOUCH_VAL");
+   ;
+   /*_.INST___V75*/ curfptr[73] = /*_.INST__V76*/ curfptr[75];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3403:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.INST___V75*/ curfptr[73]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3411:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3411:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V78*/ curfptr[77] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3411:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V78*/ curfptr[77])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V78*/ curfptr[77])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V78*/ curfptr[77])->tabval[0] = (melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3411:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V78*/ curfptr[77])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V78*/ curfptr[77])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V78*/ curfptr[77])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V32*/ curfptr[31]);
+   ;
+   /*_.LAMBDA___V77*/ curfptr[76] = /*_.LAMBDA___V78*/ curfptr[77];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3409:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3409:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V77*/ curfptr[76];
+   /*_.MULTIPLE_EVERY__V79*/ curfptr[78] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.TUPVAR__V36*/ curfptr[35]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3420:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]), (melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3422:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3422:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3422:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3422:/ apply.arg");
+     argtab[0].bp_cstring =  "compil_data_and_slots_fill final dlocbind";
+     MELT_LOCATION("warmelt-genobj.melt:3422:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16];
+     MELT_LOCATION("warmelt-genobj.melt:3422:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3422:/ apply.arg");
+     argtab[3].bp_long = 3422;
+     /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.DLOCBIND__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V80*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[80];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3422:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3422:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3422:/ cppif.else");
+  /*_.IFCPP___V80*/ curfptr[79] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3426:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.DLOCBIND__V33*/ curfptr[32];;
+   MELT_LOCATION("warmelt-genobj.melt:3426:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V25*/ curfptr[23] = /*_.RETURN___V82*/ curfptr[80];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_#IS_A__L10*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IPREDEF__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IBODYLIS__V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFILLLIS__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.LOCVAR__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.COMM__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.NLOC__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.DLOCBIND__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.LOCMAP__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.ISTMTLIS__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.TUPVAR__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFCPP___V42*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFCPP___V44*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.LAMBDA___V66*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V68*/ curfptr[48] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.NINST_SLOTS__V69*/ curfptr[50] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.LAMBDA___V70*/ curfptr[64] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V72*/ curfptr[71] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFELSE___V73*/ curfptr[72] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.INST___V75*/ curfptr[73] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.LAMBDA___V77*/ curfptr[76] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V79*/ curfptr[78] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.IFCPP___V80*/ curfptr[79] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3298:/ clear");
+  /*clear*/ /*_.RETURN___V82*/ curfptr[80] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3428:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+  MELT_LOCATION("warmelt-genobj.melt:3428:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V83*/ curfptr[25];;
+  MELT_LOCATION("warmelt-genobj.melt:3288:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
+ /*clear*/ /*_.RETURN___V83*/ curfptr[25] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPIL_DATA_AND_SLOTS_FILL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_110_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ getarg");
+ /*_.LBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#BINDRK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3363:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3365:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3365:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3365:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3365:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3365:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3365:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3365:/ locexp");
+      melt_assert_failed(( "compil_data_and_slots_fill check lbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3365)?(3365):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3365:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3365:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3365:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3366:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3366:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V5*/ curfptr[3] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3367:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3368:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V7*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3369:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3369:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V5*/ curfptr[3];
+   MELT_LOCATION("warmelt-genobj.melt:3369:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V6*/ curfptr[5];
+   /*_.OBVA__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[1])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3370:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3370:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OBNX__V9*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.NEXP__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3372:/ cond");
+  /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3372:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3372:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3372:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.LBIND__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBVA__V8*/ curfptr[7]));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3373:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3373:/ cond");
+   /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3373:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3373:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3373:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3373:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBVA__V8*/ curfptr[7];
+      /*_.PUT_OBJDEST__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.OBNX__V9*/ curfptr[8]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.OBMY__V10*/ curfptr[9] = /*_.PUT_OBJDEST__V11*/ curfptr[10];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3373:/ clear");
+     /*clear*/ /*_.PUT_OBJDEST__V11*/ curfptr[10] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3373:/ cond.else");
+   
+    /*_.OBMY__V10*/ curfptr[9] = /*_.OBNX__V9*/ curfptr[8];;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3375:/ locexp");
+   meltgc_append_list((melt_ptr_t)((/*~ISTMTLIS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OBMY__V10*/ curfptr[9]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3373:/ clear");
+   /*clear*/ /*_.OBMY__V10*/ curfptr[9] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3377:/ cond");
+  /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3377:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3377:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3377:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPVAR*/ curfclos->tabval[3])), (/*_#BINDRK__L1*/ curfnum[0]), (melt_ptr_t)(/*_.OBVA__V8*/ curfptr[7]));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3366:/ clear");
+  /*clear*/ /*_.BDER__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3366:/ clear");
+  /*clear*/ /*_.CTY__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3366:/ clear");
+  /*clear*/ /*_.NEXP__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3366:/ clear");
+  /*clear*/ /*_.OBVA__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3366:/ clear");
+  /*clear*/ /*_.OBNX__V9*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_110_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_111_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ getarg");
+ /*_.SLOVAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#SLORK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3382:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3384:/ cond");
+ /*cond*/ if (/*_.SLOVAL__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:3384:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:3384:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3386:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3386:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3386:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+     /*_.SLOBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.SLOVAL__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3389:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3389:/ block");
+     /*block*/{
+      /*_#IS_A__L2*/ curfnum[1] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.SLOBJ__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[1])));;
+      /*_#NOT__L3*/ curfnum[2] = 
+       (!(/*_#IS_A__L2*/ curfnum[1]));;
+      MELT_LOCATION("warmelt-genobj.melt:3389:/ cond");
+      /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:3389:/ cond.then");
+      /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-genobj.melt:3389:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:3389:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-genobj.melt:3389:/ locexp");
+         melt_assert_failed(( "compil_data_and_slots_fill check slobj not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3389)?(3389):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3389:/ clear");
+      /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3389:/ clear");
+      /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3389:/ clear");
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3389:/ cppif.else");
+    /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3390:/ block");
+    /*block*/{
+     /*_.OOFF__V6*/ curfptr[4] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#SLORK__L1*/ curfnum[0])));;
+     MELT_LOCATION("warmelt-genobj.melt:3393:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3393:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[3])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V8*/ curfptr[7] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3393:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3393:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OSLOT_ODATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), ((/*~OBJ*/ curfclos->tabval[2])), "OSLOT_ODATA");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3393:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OSLOT_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), (/*_.OOFF__V6*/ curfptr[4]), "OSLOT_OFFSET");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3393:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OSLOT_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (4), (/*_.SLOBJ__V3*/ curfptr[2]), "OSLOT_VALUE");
+      ;
+      /*_.OPUT__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3400:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~ISTMTLIS*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OPUT__V7*/ curfptr[6]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3390:/ clear");
+     /*clear*/ /*_.OOFF__V6*/ curfptr[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3390:/ clear");
+     /*clear*/ /*_.OPUT__V7*/ curfptr[6] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3386:/ clear");
+    /*clear*/ /*_.SLOBJ__V3*/ curfptr[2] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3386:/ clear");
+    /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_111_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_112_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3411:/ getarg");
+ /*_.OBVA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3411:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3411:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3412:/ cond");
+ /*cond*/ if (/*_.OBVA__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:3412:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:3412:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3415:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3415:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3415:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3415:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.OBVA__V2*/ curfptr[1]), "OCLR_VLOC");
+    ;
+    /*_.INST___V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3414:/ locexp");
+   meltgc_append_list((melt_ptr_t)((/*~IBODYLIS*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.INST___V3*/ curfptr[2]));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3413:/ block");
+   /*block*/{}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3412:/ clear");
+   /*clear*/ /*_.INST___V3*/ curfptr[2] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_112_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ getarg");
+ /*_.DLOCBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3433:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3434:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3434:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3434:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3434:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3434:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3434:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3434:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3434)?(3434):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3434:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3434:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3434:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3435:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3435:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3435:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3435:/ apply.arg");
+    argtab[0].bp_cstring =  "dispose_dlocbind_after_data_and_slots_fill dlocbind";
+    MELT_LOCATION("warmelt-genobj.melt:3435:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3435:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3435:/ apply.arg");
+    argtab[3].bp_long = 3435;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DLOCBIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3435:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3435:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3435:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3438:/ newclosure");
+   /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] =
+   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1));
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3438:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+  ;
+  /*_.LAMBDA___V8*/ curfptr[6] = /*_.LAMBDA___V9*/ curfptr[8];;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3436:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:3436:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V8*/ curfptr[6];
+  /*_.MULTIPLE_EVERY__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DLOCBIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V10*/ curfptr[9];;
+  MELT_LOCATION("warmelt-genobj.melt:3433:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ clear");
+ /*clear*/ /*_.LAMBDA___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ clear");
+ /*clear*/ /*_.MULTIPLE_EVERY__V10*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_114_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ getarg");
+ /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3438:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:3438:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:3438:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ clear");
+ /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_114_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 39
+  void* varptr[39];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<39; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 39;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATASYMBOL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ getarg");
+ /*_.SYV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3441:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3442:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3442:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3442:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3442:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3442:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3442:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3442:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3442)?(3442):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3442:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3442:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3442:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3443:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3443:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3443:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3443:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3443:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3443:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3443:/ locexp");
+      melt_assert_failed(( "check syv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3443)?(3443):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3443:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3444:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3444:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3444:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3444:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_datasymbol syv";
+    MELT_LOCATION("warmelt-genobj.melt:3444:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3444:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3444:/ apply.arg");
+    argtab[3].bp_long = 3444;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3444:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3444:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3444:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3445:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.CHOBJ__V12*/ curfptr[11] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.SYV__V2*/ curfptr[1]));;
+  MELT_LOCATION("warmelt-genobj.melt:3447:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V13*/ curfptr[12] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3450:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3450:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3450:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3450:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3450:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3450:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3450:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3450)?(3450):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3450:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3450:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3450:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3451:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V12*/ curfptr[11]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3451:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3451:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3453:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3453:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3453:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3453:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_datasymbol found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3453:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3453:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3453:/ apply.arg");
+       argtab[3].bp_long = 3453;
+       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3453:/ cppif.else");
+    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3454:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V12*/ curfptr[11];;
+     MELT_LOCATION("warmelt-genobj.melt:3454:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3452:/ block");
+    /*block*/{
+     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
+    ;
+    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3451:/ clear");
+    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3451:/ clear");
+    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3451:/ clear");
+    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3451:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[14] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3455:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3456:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDATA_DISCRX__V22*/ curfptr[17] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3456:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3456:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.ODISCR__V23*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NDATA_DISCRX__V22*/ curfptr[17]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3458:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3458:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[5])), (6), "CLASS_OBJINITOBJECT");/*_.INST__V25*/ curfptr[24] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3458:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[6])), "OBV_TYPE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3458:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.SYV__V2*/ curfptr[1]), "OIE_DATA");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3458:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (3), (/*_.ODISCR__V23*/ curfptr[19]), "OIE_DISCR");
+    ;
+    /*_.OBSYM__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3464:/ locexp");
+   meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.SYV__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]));}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3465:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3465:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3465:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3465:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_datasymbol inirout";
+      MELT_LOCATION("warmelt-genobj.melt:3465:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:3465:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3465:/ apply.arg");
+      argtab[3].bp_long = 3465;
+      /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3465:/ cppif.else");
+   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:3467:/ block");
+   /*block*/{
+    /*_.NAMBUF__V28*/ curfptr[26] = 
+     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[7])), (char*)0);;
+    MELT_LOCATION("warmelt-genobj.melt:3468:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.NDATA_RANK__V29*/ curfptr[28] = slot; };
+    ;
+    /*_#SYRK__L7*/ curfnum[0] = 
+     (melt_get_int((melt_ptr_t)(/*_.NDATA_RANK__V29*/ curfptr[28])));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3470:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), ( "dsym_"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3471:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), (/*_#SYRK__L7*/ curfnum[0]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3472:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), ( "__"));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3473:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 9, "NDSY_NAMESTR");/*_.NDSY_NAMESTR__V30*/ curfptr[29] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3473:/ locexp");
+    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]),
+  melt_string_str((melt_ptr_t)(/*_.NDSY_NAMESTR__V30*/ curfptr[29])));}
+    ;
+    /*_.STRBUF2STRING__V31*/ curfptr[30] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]))));;
+    MELT_LOCATION("warmelt-genobj.melt:3474:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3474:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.OBSYM__V24*/ curfptr[23]), (1), (/*_.STRBUF2STRING__V31*/ curfptr[30]), "OIE_CNAME");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3474:/ touch");
+     meltgc_touch(/*_.OBSYM__V24*/ curfptr[23]);
+     ;
+     /*epilog*/}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3467:/ clear");
+    /*clear*/ /*_.NAMBUF__V28*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3467:/ clear");
+    /*clear*/ /*_.NDATA_RANK__V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3467:/ clear");
+    /*clear*/ /*_#SYRK__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3467:/ clear");
+    /*clear*/ /*_.NDSY_NAMESTR__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3467:/ clear");
+    /*clear*/ /*_.STRBUF2STRING__V31*/ curfptr[30] = 0 ;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3477:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.NINST_SLOTS__V32*/ curfptr[26] = slot; };
+   ;
+   /*_#MULTIPLE_LENGTH__L8*/ curfnum[0] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.NINST_SLOTS__V32*/ curfptr[26])));;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3477:/ locexp");
+   melt_put_int((melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[0]));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3480:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3480:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3480:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBSYM__V24*/ curfptr[23];
+     MELT_LOCATION("warmelt-genobj.melt:3480:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ODISCR__V23*/ curfptr[19];
+     MELT_LOCATION("warmelt-genobj.melt:3480:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.INIROUT__V13*/ curfptr[12];
+     MELT_LOCATION("warmelt-genobj.melt:3480:/ apply.arg");
+     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     /*_.DLOCBIND__V34*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!COMPIL_DATA_AND_SLOTS_FILL*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3481:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3481:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3481:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3481:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_datasymbol dlocbind";
+       MELT_LOCATION("warmelt-genobj.melt:3481:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+       MELT_LOCATION("warmelt-genobj.melt:3481:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3481:/ apply.arg");
+       argtab[3].bp_long = 3481;
+       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DLOCBIND__V34*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V35*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3481:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3481:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3481:/ cppif.else");
+    /*_.IFCPP___V35*/ curfptr[30] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V33*/ curfptr[28] = /*_.IFCPP___V35*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3480:/ clear");
+    /*clear*/ /*_.DLOCBIND__V34*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3480:/ clear");
+    /*clear*/ /*_.IFCPP___V35*/ curfptr[30] = 0 ;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3484:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3484:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3484:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3484:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_datasymbol obsym final";
+      MELT_LOCATION("warmelt-genobj.melt:3484:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+      MELT_LOCATION("warmelt-genobj.melt:3484:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3484:/ apply.arg");
+      argtab[3].bp_long = 3484;
+      /*_.DEBUG_MSG_FUN__V38*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3484:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3484:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3484:/ cppif.else");
+   /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:3485:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.OBSYM__V24*/ curfptr[23];;
+    MELT_LOCATION("warmelt-genobj.melt:3485:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V21*/ curfptr[16] = /*_.RETURN___V39*/ curfptr[30];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.NDATA_DISCRX__V22*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.ODISCR__V23*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.OBSYM__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.NINST_SLOTS__V32*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.LET___V33*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3455:/ clear");
+   /*clear*/ /*_.RETURN___V39*/ curfptr[30] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ clear");
+  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ clear");
+  /*clear*/ /*_.CHOBJ__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ clear");
+  /*clear*/ /*_.INIROUT__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3445:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3441:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATASYMBOL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 59
+  void* varptr[59];
+#define CURFRAM_NBVARNUM 16
+  long varnum[16];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<59; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 59;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATAINSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ getarg");
+ /*_.DAI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3492:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3493:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3493:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3493:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3493:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3493:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3493:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3493:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3493)?(3493):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3493:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3493:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3493:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3495:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3495:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3495:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3495:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_datainstance dai";
+    MELT_LOCATION("warmelt-genobj.melt:3495:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3495:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3495:/ apply.arg");
+    argtab[3].bp_long = 3495;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3495:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3495:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3495:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3496:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V9*/ curfptr[8] = slot; };
+  ;
+  /*_.CHOBJ__V10*/ curfptr[9] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V9*/ curfptr[8]), (meltobject_ptr_t)(/*_.DAI__V2*/ curfptr[1]));;
+  MELT_LOCATION("warmelt-genobj.melt:3498:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V11*/ curfptr[10] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3501:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3501:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-genobj.melt:3501:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3501:/ cond.then");
+    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3501:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3501:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3501:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3501)?(3501):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3501:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3501:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3501:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3502:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V10*/ curfptr[9]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3502:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3502:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3504:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3504:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3504:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3504:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_datainstance return found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3504:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3504:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3504:/ apply.arg");
+       argtab[3].bp_long = 3504;
+       /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CHOBJ__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3504:/ cppif.else");
+    /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3505:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V10*/ curfptr[9];;
+     MELT_LOCATION("warmelt-genobj.melt:3505:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3503:/ block");
+    /*block*/{
+     /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[15];;}
+    ;
+    /*_.IF___V14*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3502:/ clear");
+    /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3502:/ clear");
+    /*clear*/ /*_.RETURN___V17*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3502:/ clear");
+    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3502:/ cond.else");
+  
+   /*_.IF___V14*/ curfptr[12] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3506:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V20*/ curfptr[15] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3507:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V21*/ curfptr[17] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3509:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V22*/ curfptr[21] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3510:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V23*/ curfptr[22] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3511:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 7, "NINST_HASH");/*_.DHASH__V24*/ curfptr[23] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3512:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 6, "NINST_PREDEF");/*_.DPREDEF__V25*/ curfptr[24] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3513:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.DSLOTS__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3514:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), 2, "NINIT_TOPL");/*_.ININSL__V27*/ curfptr[26] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3515:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), 11, "OIROUT_FILL");/*_.INIFILL__V28*/ curfptr[27] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3519:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3519:/ block");
+    /*block*/{
+     /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.DRANK__V23*/ curfptr[22])) == OBMAG_INT);;
+     MELT_LOCATION("warmelt-genobj.melt:3519:/ cond");
+     /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3519:/ cond.then");
+     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3519:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:3519:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3519:/ locexp");
+        melt_assert_failed(( "compilobj_datainstance check drank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3519)?(3519):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[28] = /*_.IFELSE___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3519:/ clear");
+     /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3519:/ clear");
+     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3519:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3522:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3522:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3522:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3522:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_datainstance loc before cdisx";
+      MELT_LOCATION("warmelt-genobj.melt:3522:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:3522:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3522:/ apply.arg");
+      argtab[3].bp_long = 3522;
+      /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3522:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3522:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3522:/ cppif.else");
+   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:3523:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3523:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3523:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     /*_.CDISX__V34*/ curfptr[33] = meltgc_send((melt_ptr_t)(/*_.DISX__V22*/ curfptr[21]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3525:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3525:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3525:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3525:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_datainstance loc after cdisx";
+       MELT_LOCATION("warmelt-genobj.melt:3525:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3525:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3525:/ apply.arg");
+       argtab[3].bp_long = 3525;
+       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3525:/ cppif.else");
+    /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3527:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3529:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3529:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[4])), (6), "CLASS_OBJINITOBJECT");/*_.INST__V39*/ curfptr[38] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3529:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[5])), "OBV_TYPE");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3529:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.DAI__V2*/ curfptr[1]), "OIE_DATA");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3529:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.CDISX__V34*/ curfptr[33]), "OIE_DISCR");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3529:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIO_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (5), (/*_.DPREDEF__V25*/ curfptr[24]), "OIO_PREDEF");
+      ;
+      /*_.OINI__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
+     ;
+     /*_.NAMBUF__V40*/ curfptr[39] = 
+      meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[6])), (char*)0);;
+     /*_#DRK__L8*/ curfnum[0] = 
+      (melt_get_int((melt_ptr_t)(/*_.DRANK__V23*/ curfptr[22])));;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3538:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V9*/ curfptr[8]), 
+			   (meltobject_ptr_t) (/*_.DAI__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3539:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3539:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3539:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3539:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_datainstance loc after put compicache";
+        MELT_LOCATION("warmelt-genobj.melt:3539:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+        MELT_LOCATION("warmelt-genobj.melt:3539:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3539:/ apply.arg");
+        argtab[3].bp_long = 3539;
+        /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3539:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3539:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3539:/ cppif.else");
+     /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3540:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), ( "dobj_"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3541:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), (/*_#DRK__L8*/ curfnum[0]));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3542:/ cond");
+     /*cond*/ if (/*_.NAM__V21*/ curfptr[17]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3542:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:3542:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3543:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), ( "__"));}
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:3544:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V21*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ curfptr[41] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3544:/ locexp");
+       meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V43*/ curfptr[41])));}
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:3542:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3542:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V43*/ curfptr[41] = 0 ;}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3545:/ block");
+     /*block*/{
+      /*_.CNAM__V45*/ curfptr[44] = 
+       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]))));;
+      MELT_LOCATION("warmelt-genobj.melt:3546:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:3546:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OINI__V38*/ curfptr[37])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.OINI__V38*/ curfptr[37]), (1), (/*_.CNAM__V45*/ curfptr[44]), "OIE_CNAME");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:3546:/ touch");
+       meltgc_touch(/*_.OINI__V38*/ curfptr[37]);
+       ;
+       /*epilog*/}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:3547:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:3547:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:3547:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:3547:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_datainstance cnam";
+         MELT_LOCATION("warmelt-genobj.melt:3547:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+         MELT_LOCATION("warmelt-genobj.melt:3547:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:3547:/ apply.arg");
+         argtab[3].bp_long = 3547;
+         /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CNAM__V45*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:3547:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3547:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:3547:/ cppif.else");
+      /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.LET___V44*/ curfptr[41] = /*_.IFCPP___V46*/ curfptr[45];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3545:/ clear");
+      /*clear*/ /*_.CNAM__V45*/ curfptr[44] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3545:/ clear");
+      /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ;}
+     ;
+     /*_#MULTIPLE_LENGTH__L11*/ curfnum[8] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.DSLOTS__V26*/ curfptr[25])));;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3549:/ locexp");
+     melt_put_int((melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[8]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3551:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3551:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3551:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_datainstance oini before data&slots";
+        MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
+        MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
+        argtab[3].bp_long = 3551;
+        /*_.DEBUG_MSG_FUN__V49*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[44];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3551:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3551:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[44] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3551:/ cppif.else");
+     /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3552:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3552:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3552:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_datainstance loc before data&slots";
+        MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
+        MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
+        argtab[3].bp_long = 3552;
+        /*_.DEBUG_MSG_FUN__V51*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V50*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[44];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3552:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3552:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[44] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3552:/ cppif.else");
+     /*_.IFCPP___V50*/ curfptr[45] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:3553:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3553:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3553:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OINI__V38*/ curfptr[37];
+       MELT_LOCATION("warmelt-genobj.melt:3553:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CDISX__V34*/ curfptr[33];
+       MELT_LOCATION("warmelt-genobj.melt:3553:/ apply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.INIROUT__V11*/ curfptr[10];
+       MELT_LOCATION("warmelt-genobj.melt:3553:/ apply.arg");
+       argtab[3].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       /*_.DLOCBIND__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!COMPIL_DATA_AND_SLOTS_FILL*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:3554:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:3554:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:3554:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:3554:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_datainstance dlocbind";
+         MELT_LOCATION("warmelt-genobj.melt:3554:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11];
+         MELT_LOCATION("warmelt-genobj.melt:3554:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:3554:/ apply.arg");
+         argtab[3].bp_long = 3554;
+         /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DLOCBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:3554:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3554:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:3554:/ cppif.else");
+      /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.LET___V52*/ curfptr[44] = /*_.IFCPP___V54*/ curfptr[53];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3553:/ clear");
+      /*clear*/ /*_.DLOCBIND__V53*/ curfptr[52] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3553:/ clear");
+      /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3557:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3557:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3557:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3557:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_datainstance loc after data&slots";
+        MELT_LOCATION("warmelt-genobj.melt:3557:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[11];
+        MELT_LOCATION("warmelt-genobj.melt:3557:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3557:/ apply.arg");
+        argtab[3].bp_long = 3557;
+        /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[52];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3557:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3557:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3557:/ cppif.else");
+     /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3558:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3558:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3558:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3558:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_datainstance final oini";
+        MELT_LOCATION("warmelt-genobj.melt:3558:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[11];
+        MELT_LOCATION("warmelt-genobj.melt:3558:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3558:/ apply.arg");
+        argtab[3].bp_long = 3558;
+        /*_.DEBUG_MSG_FUN__V59*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V58*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[52];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3558:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3558:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[52] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3558:/ cppif.else");
+     /*_.IFCPP___V58*/ curfptr[53] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V37*/ curfptr[35] = /*_.OINI__V38*/ curfptr[37];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.OINI__V38*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.NAMBUF__V40*/ curfptr[39] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_#DRK__L8*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.LET___V44*/ curfptr[41] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.IFCPP___V50*/ curfptr[45] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.LET___V52*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3527:/ clear");
+     /*clear*/ /*_.IFCPP___V58*/ curfptr[53] = 0 ;}
+    ;
+    /*_.LET___V33*/ curfptr[31] = /*_.LET___V37*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3523:/ clear");
+    /*clear*/ /*_.CDISX__V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3523:/ clear");
+    /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3523:/ clear");
+    /*clear*/ /*_.LET___V37*/ curfptr[35] = 0 ;}
+   ;
+   /*_.LET___V19*/ curfptr[14] = /*_.LET___V33*/ curfptr[31];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.LOC__V20*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.NAM__V21*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.DISX__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.DRANK__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.DHASH__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.DPREDEF__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.DSLOTS__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.ININSL__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.INIFILL__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3506:/ clear");
+   /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V19*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ clear");
+  /*clear*/ /*_.COMPICACHE__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ clear");
+  /*clear*/ /*_.CHOBJ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ clear");
+  /*clear*/ /*_.INIROUT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ clear");
+  /*clear*/ /*_.IF___V14*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3496:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[14] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-genobj.melt:3492:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATAINSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 46
+  void* varptr[46];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<46; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 46;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATATUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ getarg");
+ /*_.NTI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3570:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3571:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3571:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3571:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3571:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3571:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3571:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3571:/ locexp");
+      melt_assert_failed(( "check nti"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3571)?(3571):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3571:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3571:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3571:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3572:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3572:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3572:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3572:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3572:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3572:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3572:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3572)?(3572):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3572:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3572:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3572:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3574:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3574:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3574:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3574:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_datatuple nti";
+    MELT_LOCATION("warmelt-genobj.melt:3574:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3574:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3574:/ apply.arg");
+    argtab[3].bp_long = 3574;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3574:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3574:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3574:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3575:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.CHOBJ__V12*/ curfptr[11] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NTI__V2*/ curfptr[1]));;
+  MELT_LOCATION("warmelt-genobj.melt:3577:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V13*/ curfptr[12] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3580:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3580:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3580:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3580:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3580:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3580:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3580:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3580)?(3580):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3580:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3580:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3580:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3581:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V12*/ curfptr[11]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3581:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3581:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3583:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3583:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3583:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3583:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_datatuple found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3583:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3583:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3583:/ apply.arg");
+       argtab[3].bp_long = 3583;
+       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3583:/ cppif.else");
+    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3584:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V12*/ curfptr[11];;
+     MELT_LOCATION("warmelt-genobj.melt:3584:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3582:/ block");
+    /*block*/{
+     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
+    ;
+    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3581:/ clear");
+    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3581:/ clear");
+    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3581:/ clear");
+    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3581:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[14] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3585:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 5, "NTUP_COMP");/*_.NCOMPI__V22*/ curfptr[17] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3588:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3588:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3588:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    /*_.LAMBDA___V23*/ curfptr[19] = /*_.LAMBDA___V24*/ curfptr[23];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3586:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3586:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[19];
+    /*_.OCOMPI__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3589:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3590:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V27*/ curfptr[26] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3591:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3591:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.ODISCR__V28*/ curfptr[27] = meltgc_send((melt_ptr_t)(/*_.DISX__V26*/ curfptr[25]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3592:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V29*/ curfptr[28] = slot; };
+   ;
+   /*_.NAMBUF__V30*/ curfptr[29] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
+   MELT_LOCATION("warmelt-genobj.melt:3594:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3594:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_10_VALTUP_*/ curfrout->tabval[10]);
+    /*_.LOCVAR__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#DRK__L6*/ curfnum[0] = 
+    (melt_get_int((melt_ptr_t)(/*_.DRANK__V27*/ curfptr[26])));;
+   MELT_LOCATION("warmelt-genobj.melt:3596:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), 3, "OBROUT_BODY");/*_.INIBODY__V32*/ curfptr[31] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3597:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)((/*!konst_11_INITUP_*/ curfrout->tabval[11])), 1, "NAMED_NAME");/*_.COMM__V33*/ curfptr[32] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3599:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), ( "dtup_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3600:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), (/*_#DRK__L6*/ curfnum[0]));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3601:/ cond");
+   /*cond*/ if (/*_.NAM__V29*/ curfptr[28]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3601:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3601:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3602:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), ( "__"));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3603:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3603:/ locexp");
+     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33])));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3601:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3601:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3604:/ block");
+   /*block*/{
+    /*_.STRBUF2STRING__V36*/ curfptr[35] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[14])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]))));;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3604:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[12])), (6), "CLASS_OBJINITMULTIPLE");/*_.INST__V38*/ curfptr[37] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3604:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "OBV_TYPE");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3604:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.ODISCR__V28*/ curfptr[27]), "OIE_DISCR");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3604:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (4), (/*_.LOCVAR__V31*/ curfptr[30]), "OIE_LOCVAR");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3604:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.STRBUF2STRING__V36*/ curfptr[35]), "OIE_CNAME");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3604:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIM_TUPVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (5), (/*_.OCOMPI__V25*/ curfptr[24]), "OIM_TUPVAL");
+     ;
+     /*_.OTUP__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3612:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.NTI__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]));}
+    ;
+    /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17])));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3613:/ locexp");
+    melt_put_int((melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3616:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3616:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (3));
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3616:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (melt_ptr_t)(/*_.OCOMPI__V25*/ curfptr[24]);
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3616:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[1] = (melt_ptr_t)(/*_.INIBODY__V32*/ curfptr[31]);
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3616:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[2] = (melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]);
+     ;
+     /*_.LAMBDA___V39*/ curfptr[38] = /*_.LAMBDA___V40*/ curfptr[39];;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3614:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3614:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[38];
+     /*_.MULTIPLE_EVERY__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3626:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3626:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[19])), (3), "CLASS_OBJTOUCH");/*_.INST__V43*/ curfptr[42] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3626:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.OTUP__V37*/ curfptr[36]), "OTOUCH_VAL");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3626:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.COMM__V33*/ curfptr[32]), "OTOUCH_COMMENT");
+     ;
+     /*_.INST___V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3625:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V32*/ curfptr[31]), (melt_ptr_t)(/*_.INST___V42*/ curfptr[41]));}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3629:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3629:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3629:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3629:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj datatuple otup";
+       MELT_LOCATION("warmelt-genobj.melt:3629:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+       MELT_LOCATION("warmelt-genobj.melt:3629:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3629:/ apply.arg");
+       argtab[3].bp_long = 3629;
+       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3629:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3629:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3629:/ cppif.else");
+    /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3630:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.OTUP__V37*/ curfptr[36];;
+     MELT_LOCATION("warmelt-genobj.melt:3630:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V35*/ curfptr[33] = /*_.RETURN___V46*/ curfptr[44];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.OTUP__V37*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.LAMBDA___V39*/ curfptr[38] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.INST___V42*/ curfptr[41] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3604:/ clear");
+    /*clear*/ /*_.RETURN___V46*/ curfptr[44] = 0 ;}
+   ;
+   /*_.LET___V21*/ curfptr[16] = /*_.LET___V35*/ curfptr[33];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.NCOMPI__V22*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.LAMBDA___V23*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.OCOMPI__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.DISX__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.DRANK__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.ODISCR__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.NAM__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.NAMBUF__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.LOCVAR__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.INIBODY__V32*/ curfptr[31] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.COMM__V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3585:/ clear");
+   /*clear*/ /*_.LET___V35*/ curfptr[33] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ clear");
+  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ clear");
+  /*clear*/ /*_.CHOBJ__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ clear");
+  /*clear*/ /*_.INIROUT__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3575:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3570:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATATUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_118_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_118_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3588:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ cond");
+ /*cond*/ if (/*_.C__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3588:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3588:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+    /*_.COMPILE_OBJ__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IF___V3*/ curfptr[2] = /*_.COMPILE_OBJ__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3588:/ clear");
+   /*clear*/ /*_.COMPILE_OBJ__V4*/ curfptr[3] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:3588:/ cond.else");
+ 
+  /*_.IF___V3*/ curfptr[2] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:3588:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ clear");
+ /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_118_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_119_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_119_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3616:/ getarg");
+ /*_.SCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3616:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#SRK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3616:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3617:/ cond");
+ /*cond*/ if (/*_.SCOMP__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:3617:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:3617:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3618:/ block");
+   /*block*/{
+    /*_.OCOMP__V3*/ curfptr[2] = 
+     (melt_multiple_nth((melt_ptr_t)((/*~OCOMPI*/ curfclos->tabval[0])), (/*_#SRK__L1*/ curfnum[0])));;
+    /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
+     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#SRK__L1*/ curfnum[0])));;
+    MELT_LOCATION("warmelt-genobj.melt:3620:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3620:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTUPLE*/ curfrout->tabval[0])), (4), "CLASS_OBJPUTUPLE");/*_.INST__V6*/ curfptr[5] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3620:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OPUTU_TUPLED", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), ((/*~OTUP*/ curfclos->tabval[2])), "OPUTU_TUPLED");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3620:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OPUTU_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ curfptr[3]), "OPUTU_OFFSET");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3620:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OPUTU_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (3), (/*_.OCOMP__V3*/ curfptr[2]), "OPUTU_VALUE");
+     ;
+     /*_.INST___V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3619:/ locexp");
+    meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.INST___V5*/ curfptr[4]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3618:/ clear");
+    /*clear*/ /*_.OCOMP__V3*/ curfptr[2] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3618:/ clear");
+    /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3618:/ clear");
+    /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_119_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATASTRING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ getarg");
+ /*_.NDS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3641:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3642:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3642:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3642:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3642:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3642:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3642:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3642:/ locexp");
+      melt_assert_failed(( "check nds"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3642)?(3642):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3642:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3642:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3642:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3643:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3643:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3643:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3643:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3643:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3643:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3643:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3643)?(3643):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3643:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3643:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3643:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3645:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3645:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3645:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3645:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_datastring nds";
+    MELT_LOCATION("warmelt-genobj.melt:3645:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3645:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3645:/ apply.arg");
+    argtab[3].bp_long = 3645;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3645:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3645:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3645:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3646:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3647:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
+  ;
+  /*_.CHOBJ__V13*/ curfptr[12] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NDS__V2*/ curfptr[1]));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3651:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3651:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3651:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3651:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3651:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3651:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3651:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3651)?(3651):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3651:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3651:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3651:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3652:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3652:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3652:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3654:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3654:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3654:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3654:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_datastring found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3654:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3654:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3654:/ apply.arg");
+       argtab[3].bp_long = 3654;
+       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3654:/ cppif.else");
+    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3655:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];;
+     MELT_LOCATION("warmelt-genobj.melt:3655:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3653:/ block");
+    /*block*/{
+     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
+    ;
+    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3652:/ clear");
+    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3652:/ clear");
+    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3652:/ clear");
+    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3652:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[14] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3656:/ block");
+  /*block*/{
+   /*_.NAMBUF__V22*/ curfptr[17] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+   MELT_LOCATION("warmelt-genobj.melt:3658:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDISX__V23*/ curfptr[19] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3659:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3659:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.ODISCR__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NDISX__V23*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3660:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 5, "NSTR_STRING");/*_.ODATA__V25*/ curfptr[24] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3661:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3662:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3663:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3663:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_7_VALSTR_*/ curfrout->tabval[7]);
+    /*_.LOCVAR__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#DRK__L6*/ curfnum[0] = 
+    (melt_get_int((melt_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));;
+   MELT_LOCATION("warmelt-genobj.melt:3665:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3665:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITSTRING*/ curfrout->tabval[8])), (5), "CLASS_OBJINITSTRING");/*_.INST__V30*/ curfptr[29] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3665:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.ODATA__V25*/ curfptr[24]), "OIE_DATA");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3665:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.ODISCR__V24*/ curfptr[23]), "OIE_DISCR");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3665:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (4), (/*_.LOCVAR__V28*/ curfptr[27]), "OIE_LOCVAR");
+    ;
+    /*_.OSTR__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3671:/ locexp");
+   meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.NDS__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3672:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "dstr_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3673:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), (/*_#DRK__L6*/ curfnum[0]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3674:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3675:/ locexp");
+   meltgc_add_strbuf_cidentprefix((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), melt_string_str((melt_ptr_t)(/*_.ODATA__V25*/ curfptr[24])), (16));}
+   ;
+   /*_#STRING_LENGTH__L7*/ curfnum[6] = 
+    melt_string_length((melt_ptr_t)(/*_.ODATA__V25*/ curfptr[24]));;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3676:/ locexp");
+   melt_put_int((melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28]), (/*_#STRING_LENGTH__L7*/ curfnum[6]));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3677:/ cond");
+   /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3677:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3677:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3679:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3680:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3680:/ locexp");
+     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30])));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3678:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3677:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*_.STRBUF2STRING__V32*/ curfptr[30] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]))));;
+   MELT_LOCATION("warmelt-genobj.melt:3681:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3681:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.OSTR__V29*/ curfptr[28]), (1), (/*_.STRBUF2STRING__V32*/ curfptr[30]), "OIE_CNAME");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3681:/ touch");
+    meltgc_touch(/*_.OSTR__V29*/ curfptr[28]);
+    ;
+    /*epilog*/}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3682:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3682:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3682:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3682:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_datastring ostr";
+      MELT_LOCATION("warmelt-genobj.melt:3682:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+      MELT_LOCATION("warmelt-genobj.melt:3682:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3682:/ apply.arg");
+      argtab[3].bp_long = 3682;
+      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3682:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3682:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3682:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V21*/ curfptr[16] = /*_.OSTR__V29*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.NAMBUF__V22*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.NDISX__V23*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.ODISCR__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.ODATA__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.LOCVAR__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.OSTR__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_#STRING_LENGTH__L7*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3656:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ clear");
+  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ clear");
+  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ clear");
+  /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3646:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3641:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATASTRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATABOXEDINTEGER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ getarg");
+ /*_.NDI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3689:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3690:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3690:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATABOXEDINTEGER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3690:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3690:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3690:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3690:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3690:/ locexp");
+      melt_assert_failed(( "check ndi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3690)?(3690):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3690:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3690:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3690:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3691:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3691:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3691:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3691:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3691:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3691:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3691:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3691)?(3691):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3691:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3691:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3691:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3693:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3693:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3693:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3693:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_databoxedinteger ndi";
+    MELT_LOCATION("warmelt-genobj.melt:3693:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3693:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3693:/ apply.arg");
+    argtab[3].bp_long = 3693;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3693:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3693:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3693:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3694:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3695:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
+  ;
+  /*_.CHOBJ__V13*/ curfptr[12] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NDI__V2*/ curfptr[1]));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3699:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3699:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3699:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3699:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3699:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3699:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3699:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3699)?(3699):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3699:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3699:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3699:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3700:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3700:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3700:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3702:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3702:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3702:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3702:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_databoxedinteger found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3702:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3702:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3702:/ apply.arg");
+       argtab[3].bp_long = 3702;
+       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3702:/ cppif.else");
+    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3703:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];;
+     MELT_LOCATION("warmelt-genobj.melt:3703:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3701:/ block");
+    /*block*/{
+     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
+    ;
+    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3700:/ clear");
+    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3700:/ clear");
+    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3700:/ clear");
+    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3700:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[14] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3704:/ block");
+  /*block*/{
+   /*_.NAMBUF__V22*/ curfptr[17] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+   MELT_LOCATION("warmelt-genobj.melt:3706:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDISX__V23*/ curfptr[19] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3707:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3707:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.ODISCR__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NDISX__V23*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3708:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 5, "NBOXINT_NUM");/*_.ODATA__V25*/ curfptr[24] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3709:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3710:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3711:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3711:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_7_VALBXINT_*/ curfrout->tabval[7]);
+    /*_.LOCVAR__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#DRK__L6*/ curfnum[0] = 
+    (melt_get_int((melt_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));;
+   MELT_LOCATION("warmelt-genobj.melt:3713:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3713:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITBOXINTEGER*/ curfrout->tabval[8])), (5), "CLASS_OBJINITBOXINTEGER");/*_.INST__V30*/ curfptr[29] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3713:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.ODATA__V25*/ curfptr[24]), "OIE_DATA");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3713:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.ODISCR__V24*/ curfptr[23]), "OIE_DISCR");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3713:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (4), (/*_.LOCVAR__V28*/ curfptr[27]), "OIE_LOCVAR");
+    ;
+    /*_.OINT__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3719:/ locexp");
+   meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.NDI__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OINT__V29*/ curfptr[28]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3720:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "dint_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3721:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), (/*_#DRK__L6*/ curfnum[0]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3722:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3723:/ locexp");
+   meltgc_add_strbuf_cidentprefix((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), melt_string_str((melt_ptr_t)(/*_.ODATA__V25*/ curfptr[24])), (16));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3724:/ cond");
+   /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3724:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3724:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3726:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3727:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3727:/ locexp");
+     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30])));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3725:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3724:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*_.STRBUF2STRING__V32*/ curfptr[30] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]))));;
+   MELT_LOCATION("warmelt-genobj.melt:3728:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3728:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OINT__V29*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.OINT__V29*/ curfptr[28]), (1), (/*_.STRBUF2STRING__V32*/ curfptr[30]), "OIE_CNAME");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3728:/ touch");
+    meltgc_touch(/*_.OINT__V29*/ curfptr[28]);
+    ;
+    /*epilog*/}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3729:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3729:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:3729:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3729:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_databoxedinteger oint";
+      MELT_LOCATION("warmelt-genobj.melt:3729:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+      MELT_LOCATION("warmelt-genobj.melt:3729:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:3729:/ apply.arg");
+      argtab[3].bp_long = 3729;
+      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OINT__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3729:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3729:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3729:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V21*/ curfptr[16] = /*_.OINT__V29*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.NAMBUF__V22*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.NDISX__V23*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.ODISCR__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.ODATA__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.LOCVAR__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.OINT__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3704:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ clear");
+  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ clear");
+  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ clear");
+  /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3694:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3689:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATABOXEDINTEGER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 59
+  void* varptr[59];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<59; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 59;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATACLOSURE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ getarg");
+ /*_.NCL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3737:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3738:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3738:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3738:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3738:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3738:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3738:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3738:/ locexp");
+      melt_assert_failed(( "check ncl"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3738)?(3738):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3738:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3738:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3738:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3739:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3739:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3739:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3739:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3739:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3739:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3739:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3739)?(3739):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3739:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3739:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3739:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3741:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3741:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3741:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3741:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_dataclosure ncl";
+    MELT_LOCATION("warmelt-genobj.melt:3741:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3741:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3741:/ apply.arg");
+    argtab[3].bp_long = 3741;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3741:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3741:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3741:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3742:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3743:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3744:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), 3, "OBROUT_BODY");/*_.INIBODY__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.CHOBJ__V14*/ curfptr[13] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NCL__V2*/ curfptr[1]));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3747:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3747:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3747:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3747:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3747:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3747:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3747:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3747)?(3747):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3747:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3747:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3747:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3748:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V14*/ curfptr[13]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3748:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3748:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3750:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3750:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3750:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3750:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_dataclosure found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3750:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3750:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3750:/ apply.arg");
+       argtab[3].bp_long = 3750;
+       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3750:/ cppif.else");
+    /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3751:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V14*/ curfptr[13];;
+     MELT_LOCATION("warmelt-genobj.melt:3751:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3749:/ block");
+    /*block*/{
+     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[18];;}
+    ;
+    /*_.IF___V17*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3748:/ clear");
+    /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3748:/ clear");
+    /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3748:/ clear");
+    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3748:/ cond.else");
+  
+   /*_.IF___V17*/ curfptr[15] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3752:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3753:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V23*/ curfptr[18] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3754:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISCX__V24*/ curfptr[20] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3755:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.NRANK__V25*/ curfptr[24] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3756:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3757:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 5, "NDCLO_PROC");/*_.NPRO__V27*/ curfptr[26] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3758:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 6, "NDCLO_CLOSV");/*_.NCLOV__V28*/ curfptr[27] = slot; };
+   ;
+   /*_#NBCLOS__L6*/ curfnum[0] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.NCLOV__V28*/ curfptr[27])));;
+   /*_.NAMBUF__V29*/ curfptr[28] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+   MELT_LOCATION("warmelt-genobj.melt:3761:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3761:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.ODISCR__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.DISCX__V24*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3762:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3762:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_7_VALCLO_*/ curfrout->tabval[7]);
+    /*_.LOCVAR__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3763:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)((/*!konst_8_DATACLOSURE_*/ curfrout->tabval[8])), 1, "NAMED_NAME");/*_.COMM__V32*/ curfptr[31] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3765:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3765:/ block");
+    /*block*/{
+     /*_#IS_A__L7*/ curfnum[6] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[9])));;
+     MELT_LOCATION("warmelt-genobj.melt:3765:/ cond");
+     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3765:/ cond.then");
+     /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3765:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:3765:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3765:/ locexp");
+        melt_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3765)?(3765):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[32] = /*_.IFELSE___V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3765:/ clear");
+     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3765:/ clear");
+     /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3765:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3766:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), ( "dclo_"));}
+   ;
+   /*_#GET_INT__L8*/ curfnum[6] = 
+    (melt_get_int((melt_ptr_t)(/*_.NRANK__V25*/ curfptr[24])));;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:3767:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), (/*_#GET_INT__L8*/ curfnum[6]));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3768:/ cond");
+   /*cond*/ if (/*_.NAM__V23*/ curfptr[18]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3768:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3768:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3769:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), ( "__"));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3770:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V23*/ curfptr[18]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[33] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3770:/ locexp");
+     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[33])));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3768:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3768:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[33] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3772:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3773:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V27*/ curfptr[26]), 6, "NRPRO_DATAROUT");/*_.NDATAROU__V37*/ curfptr[36] = slot; };
+    ;
+    /*_.STRBUF2STRING__V38*/ curfptr[37] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[12])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]))));;
+    MELT_LOCATION("warmelt-genobj.melt:3775:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3775:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[10])), (5), "CLASS_OBJINITCLOSURE");/*_.INST__V40*/ curfptr[39] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3775:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[11])), "OBV_TYPE");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3775:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (3), (/*_.ODISCR__V30*/ curfptr[29]), "OIE_DISCR");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3775:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NCL__V2*/ curfptr[1]), "OIE_DATA");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3775:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (4), (/*_.LOCVAR__V31*/ curfptr[30]), "OIE_LOCVAR");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3775:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.STRBUF2STRING__V38*/ curfptr[37]), "OIE_CNAME");
+     ;
+     /*_.OICLO__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3783:/ locexp");
+    melt_put_int((melt_ptr_t)(/*_.OICLO__V39*/ curfptr[38]), (/*_#NBCLOS__L6*/ curfnum[0]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3784:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.NCL__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OICLO__V39*/ curfptr[38]));}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3785:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3785:/ block");
+     /*block*/{
+      /*_#IS_A__L9*/ curfnum[8] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.NDATAROU__V37*/ curfptr[36]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[13])));;
+      MELT_LOCATION("warmelt-genobj.melt:3785:/ cond");
+      /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:3785:/ cond.then");
+      /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-genobj.melt:3785:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:3785:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-genobj.melt:3785:/ locexp");
+         melt_assert_failed(( "check ndatarou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3785)?(3785):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V41*/ curfptr[40] = /*_.IFELSE___V42*/ curfptr[41];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3785:/ clear");
+      /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3785:/ clear");
+      /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3785:/ cppif.else");
+    /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3786:/ block");
+    /*block*/{
+     /*_.OCROUT__V44*/ curfptr[43] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NPRO__V27*/ curfptr[26]));;
+     MELT_LOCATION("warmelt-genobj.melt:3789:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3789:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+      /*_.ODATROUT__V45*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.NDATAROU__V37*/ curfptr[36]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3790:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3790:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ curfrout->tabval[14])), (3), "CLASS_OBJPUTCLOSUROUT");/*_.INST__V47*/ curfptr[46] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3790:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (0), (/*_.NLOC__V26*/ curfptr[25]), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3790:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OPCLOR_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.OICLO__V39*/ curfptr[38]), "OPCLOR_CLOS");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3790:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OPCLOR_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.ODATROUT__V45*/ curfptr[44]), "OPCLOR_ROUT");
+      ;
+      /*_.OCPUTROUT__V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;}
+     ;
+     /*_.BXOFF__V48*/ curfptr[47] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[15])), (0)));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3798:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3798:/ block");
+      /*block*/{
+       /*_#IS_A__L10*/ curfnum[8] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.OCROUT__V44*/ curfptr[43]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[16])));;
+       MELT_LOCATION("warmelt-genobj.melt:3798:/ cond");
+       /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:3798:/ cond.then");
+       /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-genobj.melt:3798:/ cond.else");
+       
+        MELT_LOCATION("warmelt-genobj.melt:3798:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-genobj.melt:3798:/ locexp");
+          melt_assert_failed(( "check ocrout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3798)?(3798):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3798:/ clear");
+       /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3798:/ clear");
+       /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3798:/ cppif.else");
+     /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3799:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]), (melt_ptr_t)(/*_.OCPUTROUT__V46*/ curfptr[45]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3800:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3800:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3800:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3800:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_dataclosure nclov";
+        MELT_LOCATION("warmelt-genobj.melt:3800:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
+        MELT_LOCATION("warmelt-genobj.melt:3800:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3800:/ apply.arg");
+        argtab[3].bp_long = 3800;
+        /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCLOV__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3800:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3800:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3800:/ cppif.else");
+     /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3801:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3801:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3801:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3801:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_dataclosure ocrout";
+        MELT_LOCATION("warmelt-genobj.melt:3801:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
+        MELT_LOCATION("warmelt-genobj.melt:3801:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3801:/ apply.arg");
+        argtab[3].bp_long = 3801;
+        /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCROUT__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V53*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3801:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3801:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3801:/ cppif.else");
+     /*_.IFCPP___V53*/ curfptr[51] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:3804:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3804:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V56*/ curfptr[55] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (5));
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V26*/ curfptr[25]);
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[2] = (melt_ptr_t)(/*_.OICLO__V39*/ curfptr[38]);
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[3] = (melt_ptr_t)(/*_.BXOFF__V48*/ curfptr[47]);
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[4] = (melt_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]);
+      ;
+      /*_.LAMBDA___V55*/ curfptr[53] = /*_.LAMBDA___V56*/ curfptr[55];;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3802:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3802:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V55*/ curfptr[53];
+      /*_.MULTIPLE_EVERY__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.NCLOV__V28*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3815:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3815:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[22])), (3), "CLASS_OBJTOUCH");/*_.INST__V59*/ curfptr[58] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3815:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.NLOC__V26*/ curfptr[25]), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3815:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.COMM__V32*/ curfptr[31]), "OTOUCH_COMMENT");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3815:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.OICLO__V39*/ curfptr[38]), "OTOUCH_VAL");
+      ;
+      /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3815:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]), (melt_ptr_t)(/*_.INST___V58*/ curfptr[57]));}
+     ;
+     /*_.LET___V43*/ curfptr[41] = /*_.OICLO__V39*/ curfptr[38];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.OCROUT__V44*/ curfptr[43] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.ODATROUT__V45*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.OCPUTROUT__V46*/ curfptr[45] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.BXOFF__V48*/ curfptr[47] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.IFCPP___V53*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.LAMBDA___V55*/ curfptr[53] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.MULTIPLE_EVERY__V57*/ curfptr[56] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3786:/ clear");
+     /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ;}
+    ;
+    /*_.LET___V36*/ curfptr[33] = /*_.LET___V43*/ curfptr[41];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3772:/ clear");
+    /*clear*/ /*_.NDATAROU__V37*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3772:/ clear");
+    /*clear*/ /*_.STRBUF2STRING__V38*/ curfptr[37] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3772:/ clear");
+    /*clear*/ /*_.OICLO__V39*/ curfptr[38] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3772:/ clear");
+    /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3772:/ clear");
+    /*clear*/ /*_.LET___V43*/ curfptr[41] = 0 ;}
+   ;
+   /*_.LET___V22*/ curfptr[17] = /*_.LET___V36*/ curfptr[33];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.NAM__V23*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.DISCX__V24*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.NRANK__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.NLOC__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.NPRO__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.NCLOV__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_#NBCLOS__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.NAMBUF__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.ODISCR__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.LOCVAR__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.COMM__V32*/ curfptr[31] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3752:/ clear");
+   /*clear*/ /*_.LET___V36*/ curfptr[33] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.INIBODY__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.CHOBJ__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.IF___V17*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3742:/ clear");
+  /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3737:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATACLOSURE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_123_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_123_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ getarg");
+ /*_.CLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3804:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:3805:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3805:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3805:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.CLOVAL__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#GET_INT__L2*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[3]))));;
+  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#GET_INT__L2*/ curfnum[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:3806:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3806:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV");/*_.INST__V6*/ curfptr[5] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3806:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3806:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OPCLOV_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), ((/*~OICLO*/ curfclos->tabval[2])), "OPCLOV_CLOS");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3806:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OPCLOV_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ curfptr[3]), "OPCLOV_OFF");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3806:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OPCLOV_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (3), (/*_.CLOVAL__V3*/ curfptr[2]), "OPCLOV_CVAL");
+   ;
+   /*_.OCPUTCLOS__V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:3812:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OCPUTCLOS__V5*/ curfptr[4]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3805:/ clear");
+  /*clear*/ /*_.CLOVAL__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3805:/ clear");
+  /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3805:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3805:/ clear");
+  /*clear*/ /*_.OCPUTCLOS__V5*/ curfptr[4] = 0 ;}
+ ;
+ /*_#GET_INT__L3*/ curfnum[1] = 
+  (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[3]))));;
+ /*_#I__L4*/ curfnum[3] = 
+  ((/*_#GET_INT__L3*/ curfnum[1]) + (1));;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:3814:/ locexp");
+ melt_put_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[3])), (/*_#I__L4*/ curfnum[3]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ clear");
+ /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_123_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 61
+  void* varptr[61];
+#define CURFRAM_NBVARNUM 16
+  long varnum[16];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<61; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 61;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_DATAROUTINE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ getarg");
+ /*_.NDROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3828:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3829:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3829:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3829:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3829:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3829:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3829:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3829:/ locexp");
+      melt_assert_failed(( "check ndrou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3829)?(3829):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3829:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3829:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3829:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3830:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3830:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3830:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3830:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3830:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3830:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3830:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3830)?(3830):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3830:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3830:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3830:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3832:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3832:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3832:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3832:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_dataroutine+ ndrou";
+    MELT_LOCATION("warmelt-genobj.melt:3832:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3832:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3832:/ apply.arg");
+    argtab[3].bp_long = 3832;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3832:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3832:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3832:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3833:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3834:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
+  ;
+  /*_.CHOBJ__V13*/ curfptr[12] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NDROU__V2*/ curfptr[1]));;
+  /*_.UNUSED_STUFF__V14*/ curfptr[13] = (/*nil*/NULL);;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3839:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3839:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:3839:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3839:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:3839:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:3839:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:3839:/ locexp");
+       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3839)?(3839):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3839:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3839:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3839:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3840:/ cond");
+  /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3840:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3840:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3842:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3842:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:3842:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3842:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_dataroutine+ found chobj";
+       MELT_LOCATION("warmelt-genobj.melt:3842:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-genobj.melt:3842:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:3842:/ apply.arg");
+       argtab[3].bp_long = 3842;
+       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3842:/ cppif.else");
+    /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3843:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];;
+     MELT_LOCATION("warmelt-genobj.melt:3843:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3841:/ block");
+    /*block*/{
+     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[18];;}
+    ;
+    /*_.IF___V17*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3840:/ clear");
+    /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3840:/ clear");
+    /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3840:/ clear");
+    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3840:/ cond.else");
+  
+   /*_.IF___V17*/ curfptr[15] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3844:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V23*/ curfptr[18] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3845:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V24*/ curfptr[20] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3846:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V25*/ curfptr[24] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3847:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3848:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3849:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 5, "NDROU_PROC");/*_.NPRO__V28*/ curfptr[27] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3850:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), 3, "OBROUT_BODY");/*_.INIBODY__V29*/ curfptr[28] = slot; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:3851:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3851:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_5_VALROUT_*/ curfrout->tabval[5]);
+    /*_.LOCVAR__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#NULL__L6*/ curfnum[0] = 
+    ((/*_.NLOC__V25*/ curfptr[24]) == NULL);;
+   MELT_LOCATION("warmelt-genobj.melt:3853:/ cond");
+   /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3853:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3853:/ block");
+    /*block*/{
+     /*_#IS_A__L7*/ curfnum[6] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[6])));;
+     MELT_LOCATION("warmelt-genobj.melt:3854:/ cond");
+     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3854:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:3854:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:3855:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), 0, "NREP_LOC");/*_.NREP_LOC__V33*/ curfptr[32] = slot; };
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:3855:/ compute");
+       /*_.NLOC__V25*/ curfptr[24] = /*_.SETQ___V34*/ curfptr[33] = /*_.NREP_LOC__V33*/ curfptr[32];;
+       /*_.IF___V32*/ curfptr[31] = /*_.SETQ___V34*/ curfptr[33];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3854:/ clear");
+       /*clear*/ /*_.NREP_LOC__V33*/ curfptr[32] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3854:/ clear");
+       /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3854:/ cond.else");
+     
+      /*_.IF___V32*/ curfptr[31] = NULL;;
+      }
+     ;
+     /*_.IF___V31*/ curfptr[30] = /*_.IF___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3853:/ clear");
+     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3853:/ clear");
+     /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3853:/ cond.else");
+   
+    /*_.IF___V31*/ curfptr[30] = NULL;;
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:3856:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:3856:/ block");
+    /*block*/{
+     /*_#IS_MAPOBJECT__L8*/ curfnum[6] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10])) == OBMAG_MAPOBJECTS);;
+     MELT_LOCATION("warmelt-genobj.melt:3856:/ cond");
+     /*cond*/ if (/*_#IS_MAPOBJECT__L8*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3856:/ cond.then");
+     /*_.IFELSE___V36*/ curfptr[33] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3856:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:3856:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3856:/ locexp");
+        melt_assert_failed(( "check compicache"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3856)?(3856):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V36*/ curfptr[33] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V35*/ curfptr[32] = /*_.IFELSE___V36*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3856:/ clear");
+     /*clear*/ /*_#IS_MAPOBJECT__L8*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3856:/ clear");
+     /*clear*/ /*_.IFELSE___V36*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:3856:/ cppif.else");
+   /*_.IFCPP___V35*/ curfptr[32] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:3857:/ block");
+   /*block*/{
+    /*_.NAMBUF__V38*/ curfptr[33] = 
+     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[7])), (char*)0);;
+    /*_#DRK__L9*/ curfnum[6] = 
+     (melt_get_int((melt_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));;
+    MELT_LOCATION("warmelt-genobj.melt:3860:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3860:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     /*_.ODISCR__V39*/ curfptr[38] = meltgc_send((melt_ptr_t)(/*_.DISX__V24*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[8])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3862:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), ( "drout_"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:3863:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), (/*_#DRK__L9*/ curfnum[6]));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3864:/ cond");
+    /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:3864:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:3864:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3865:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), ( "__"));}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3866:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3866:/ locexp");
+      meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39])));}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3864:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3864:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3868:/ block");
+    /*block*/{
+     /*_.STRBUF2STRING__V42*/ curfptr[41] = 
+      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]))));;
+     /*_.MAPOBJECT_GET__V43*/ curfptr[42] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NPRO__V28*/ curfptr[27]));;
+     MELT_LOCATION("warmelt-genobj.melt:3870:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[9])), (6), "CLASS_OBJINITROUTINE");/*_.INST__V45*/ curfptr[44] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "OBV_TYPE");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (3), (/*_.ODISCR__V39*/ curfptr[38]), "OIE_DISCR");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.NDROU__V2*/ curfptr[1]), "OIE_DATA");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (4), (/*_.LOCVAR__V30*/ curfptr[29]), "OIE_LOCVAR");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), (/*_.STRBUF2STRING__V42*/ curfptr[41]), "OIE_CNAME");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:3870:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OIR_PROCROUTINE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (5), (/*_.MAPOBJECT_GET__V43*/ curfptr[42]), "OIR_PROCROUTINE");
+      ;
+      /*_.OIROUT__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:3879:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.NDROU__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]));}
+     ;
+     /*_#IS_A__L10*/ curfnum[9] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[12])));;
+     MELT_LOCATION("warmelt-genobj.melt:3880:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3880:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:3880:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:3881:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), 5, "NRPRO_CONST");/*_.PCONSTL__V48*/ curfptr[47] = slot; };
+        ;
+        /*_#NBCONST__L11*/ curfnum[10] = 
+         (melt_list_length((melt_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47])));;
+        /*_.BXOFF__V49*/ curfptr[48] = 
+         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (0)));;
+        MELT_LOCATION("warmelt-genobj.melt:3884:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)((/*!konst_14_IROUTVAL_*/ curfrout->tabval[14])), 1, "NAMED_NAME");/*_.COMM__V50*/ curfptr[49] = slot; };
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-genobj.melt:3886:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:3886:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
+           callcount;;
+          MELT_LOCATION("warmelt-genobj.melt:3886:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-genobj.melt:3886:/ apply.arg");
+           argtab[0].bp_cstring =  "compilobj_dataroutine pconstl";
+           MELT_LOCATION("warmelt-genobj.melt:3886:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
+           MELT_LOCATION("warmelt-genobj.melt:3886:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-genobj.melt";
+           MELT_LOCATION("warmelt-genobj.melt:3886:/ apply.arg");
+           argtab[3].bp_long = 3886;
+           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:3886:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:3886:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-genobj.melt:3886:/ cppif.else");
+        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3887:/ locexp");
+        melt_put_int((melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]), (/*_#NBCONST__L11*/ curfnum[10]));}
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:3890:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-genobj.melt:3890:/ newclosure");
+          /*newclosure*/ /*_.LAMBDA___V54*/ curfptr[53] =
+          meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (5));
+         ;
+         MELT_LOCATION("warmelt-genobj.melt:3890:/ putclosedv");
+         /*putclosv*/
+         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
+         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
+         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+         ;
+         MELT_LOCATION("warmelt-genobj.melt:3890:/ putclosedv");
+         /*putclosv*/
+         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
+         melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
+         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[1] = (melt_ptr_t)(/*_.BXOFF__V49*/ curfptr[48]);
+         ;
+         MELT_LOCATION("warmelt-genobj.melt:3890:/ putclosedv");
+         /*putclosv*/
+         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
+         melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
+         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[2] = (melt_ptr_t)(/*_.NLOC__V25*/ curfptr[24]);
+         ;
+         MELT_LOCATION("warmelt-genobj.melt:3890:/ putclosedv");
+         /*putclosv*/
+         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
+         melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
+         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[3] = (melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]);
+         ;
+         MELT_LOCATION("warmelt-genobj.melt:3890:/ putclosedv");
+         /*putclosv*/
+         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
+         melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
+         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[4] = (melt_ptr_t)(/*_.INIBODY__V29*/ curfptr[28]);
+         ;
+         /*_.LAMBDA___V53*/ curfptr[51] = /*_.LAMBDA___V54*/ curfptr[53];;}
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:3888:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:3888:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V53*/ curfptr[51];
+         /*_.LIST_EVERY__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#GET_INT__L13*/ curfnum[11] = 
+         (melt_get_int((melt_ptr_t)(/*_.BXOFF__V49*/ curfptr[48])));;
+        /*_#I__L14*/ curfnum[13] = 
+         ((/*_#GET_INT__L13*/ curfnum[11]) > (0));;
+        MELT_LOCATION("warmelt-genobj.melt:3940:/ cond");
+        /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:3940:/ cond.then");
+        MELT_LOCATION("warmelt-genobj.melt:3940:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:3941:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-genobj.melt:3941:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[26])), (3), "CLASS_OBJTOUCH");/*_.INST__V57*/ curfptr[56] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3941:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.NLOC__V25*/ curfptr[24]), "OBI_LOC");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3941:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.OIROUT__V44*/ curfptr[43]), "OTOUCH_VAL");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3941:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.COMM__V50*/ curfptr[49]), "OTOUCH_COMMENT");
+           ;
+           /*_.INST___V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;}
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-genobj.melt:3941:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V29*/ curfptr[28]), (melt_ptr_t)(/*_.INST___V56*/ curfptr[55]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:3940:/ clear");
+          /*clear*/ /*_.INST___V56*/ curfptr[55] = 0 ;}
+         ;
+        } /*noelse*/
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-genobj.melt:3946:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:3946:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
+           callcount;;
+          MELT_LOCATION("warmelt-genobj.melt:3946:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-genobj.melt:3946:/ apply.arg");
+           argtab[0].bp_cstring =  "compilobj_dataroutine here npro";
+           MELT_LOCATION("warmelt-genobj.melt:3946:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
+           MELT_LOCATION("warmelt-genobj.melt:3946:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-genobj.melt";
+           MELT_LOCATION("warmelt-genobj.melt:3946:/ apply.arg");
+           argtab[3].bp_long = 3946;
+           /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V58*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:3946:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:3946:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-genobj.melt:3946:/ cppif.else");
+        /*_.IFCPP___V58*/ curfptr[55] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-genobj.melt:3947:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:3947:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
+           callcount;;
+          MELT_LOCATION("warmelt-genobj.melt:3947:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-genobj.melt:3947:/ apply.arg");
+           argtab[0].bp_cstring =  "compilobj_dataroutine here fresh oirout";
+           MELT_LOCATION("warmelt-genobj.melt:3947:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
+           MELT_LOCATION("warmelt-genobj.melt:3947:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-genobj.melt";
+           MELT_LOCATION("warmelt-genobj.melt:3947:/ apply.arg");
+           argtab[3].bp_long = 3947;
+           /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V60*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:3947:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:3947:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-genobj.melt:3947:/ cppif.else");
+        /*_.IFCPP___V60*/ curfptr[58] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        /*_.LET___V47*/ curfptr[46] = /*_.OIROUT__V44*/ curfptr[43];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.PCONSTL__V48*/ curfptr[47] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_#NBCONST__L11*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.BXOFF__V49*/ curfptr[48] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.COMM__V50*/ curfptr[49] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.LAMBDA___V53*/ curfptr[51] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.LIST_EVERY__V55*/ curfptr[54] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_#GET_INT__L13*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.IFCPP___V58*/ curfptr[55] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3881:/ clear");
+        /*clear*/ /*_.IFCPP___V60*/ curfptr[58] = 0 ;}
+       ;
+       /*_.IF___V46*/ curfptr[45] = /*_.LET___V47*/ curfptr[46];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3880:/ clear");
+       /*clear*/ /*_.LET___V47*/ curfptr[46] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:3880:/ cond.else");
+     
+      /*_.IF___V46*/ curfptr[45] = NULL;;
+      }
+     ;
+     /*_.LET___V41*/ curfptr[39] = /*_.IF___V46*/ curfptr[45];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3868:/ clear");
+     /*clear*/ /*_.STRBUF2STRING__V42*/ curfptr[41] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3868:/ clear");
+     /*clear*/ /*_.MAPOBJECT_GET__V43*/ curfptr[42] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3868:/ clear");
+     /*clear*/ /*_.OIROUT__V44*/ curfptr[43] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3868:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3868:/ clear");
+     /*clear*/ /*_.IF___V46*/ curfptr[45] = 0 ;}
+    ;
+    /*_.LET___V37*/ curfptr[31] = /*_.LET___V41*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3857:/ clear");
+    /*clear*/ /*_.NAMBUF__V38*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3857:/ clear");
+    /*clear*/ /*_#DRK__L9*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3857:/ clear");
+    /*clear*/ /*_.ODISCR__V39*/ curfptr[38] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3857:/ clear");
+    /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;}
+   ;
+   /*_.LET___V22*/ curfptr[17] = /*_.LET___V37*/ curfptr[31];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.NAM__V23*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.DISX__V24*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.NLOC__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.NPRO__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.INIBODY__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.LOCVAR__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.IF___V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.IFCPP___V35*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3844:/ clear");
+   /*clear*/ /*_.LET___V37*/ curfptr[31] = 0 ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.UNUSED_STUFF__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.IF___V17*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3833:/ clear");
+  /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3828:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_DATAROUTINE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_125_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_125_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 28
+  void* varptr[28];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<28; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 28;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ getarg");
+ /*_.CONSTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3890:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3891:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3891:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3891:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3891:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_dataroutine constx";
+    MELT_LOCATION("warmelt-genobj.melt:3891:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3891:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3891:/ apply.arg");
+    argtab[3].bp_long = 3891;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3891:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3891:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3891:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#IS_A__L2*/ curfnum[0] = 
+  melt_is_instance_of((melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[1])));;
+ MELT_LOCATION("warmelt-genobj.melt:3893:/ cond");
+ /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:3893:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:3893:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:3894:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:3894:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.CNSTBIND__V6*/ curfptr[5] = slot; };
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:3895:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:3895:/ block");
+     /*block*/{
+      /*_#IS_A__L3*/ curfnum[2] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])));;
+      MELT_LOCATION("warmelt-genobj.melt:3895:/ cond");
+      /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:3895:/ cond.then");
+      /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-genobj.melt:3895:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:3895:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-genobj.melt:3895:/ locexp");
+         melt_assert_failed(( "compilobj_dataroutine check cnstbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3895)?(3895):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3895:/ clear");
+      /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3895:/ clear");
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:3895:/ cppif.else");
+    /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:3896:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3897:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:3897:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+      /*_.OCONSTX__V9*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_#OFF__L4*/ curfnum[2] = 
+      (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1]))));;
+     MELT_LOCATION("warmelt-genobj.melt:3900:/ cond");
+     /*cond*/ if (/*_.OCONSTX__V9*/ curfptr[7]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:3900:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:3900:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:3901:/ block");
+       /*block*/{
+        /*_#IS_A__L5*/ curfnum[4] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[4])));;
+        MELT_LOCATION("warmelt-genobj.melt:3903:/ cond");
+        /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:3903:/ cond.then");
+        MELT_LOCATION("warmelt-genobj.melt:3903:/ block");
+         /*block*/{
+          /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = 
+           (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L4*/ curfnum[2])));;
+          MELT_LOCATION("warmelt-genobj.melt:3904:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-genobj.melt:3904:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ curfrout->tabval[5])), (4), "CLASS_OBJPUTROUTCONSTNOTNULL");/*_.INST__V13*/ curfptr[12] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3904:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3904:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3904:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.MAKE_INTEGERBOX__V11*/ curfptr[10]), "OPRCONST_OFF");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3904:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (3), (/*_.OCONSTX__V9*/ curfptr[7]), "OPRCONST_CVAL");
+           ;
+           /*_.INST___V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;}
+          ;
+          /*_.IPUT__V10*/ curfptr[9] = /*_.INST___V12*/ curfptr[11];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:3903:/ clear");
+          /*clear*/ /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:3903:/ clear");
+          /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-genobj.melt:3903:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:3903:/ block");
+         /*block*/{
+          /*_.MAKE_INTEGERBOX__V14*/ curfptr[10] = 
+           (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L4*/ curfnum[2])));;
+          MELT_LOCATION("warmelt-genobj.melt:3909:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-genobj.melt:3909:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[7])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V16*/ curfptr[15] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3909:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3909:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3909:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.MAKE_INTEGERBOX__V14*/ curfptr[10]), "OPRCONST_OFF");
+           ;
+           MELT_LOCATION("warmelt-genobj.melt:3909:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (3), (/*_.OCONSTX__V9*/ curfptr[7]), "OPRCONST_CVAL");
+           ;
+           /*_.INST___V15*/ curfptr[11] = /*_.INST__V16*/ curfptr[15];;}
+          ;
+          /*_.IPUT__V10*/ curfptr[9] = /*_.INST___V15*/ curfptr[11];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:3903:/ clear");
+          /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ curfptr[10] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:3903:/ clear");
+          /*clear*/ /*_.INST___V15*/ curfptr[11] = 0 ;}
+         ;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3916:/ locexp");
+        meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.IPUT__V10*/ curfptr[9]));}
+        ;
+        /*_#I__L6*/ curfnum[5] = 
+         ((/*_#OFF__L4*/ curfnum[2]) + (1));;
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:3917:/ locexp");
+        melt_put_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1])), (/*_#I__L6*/ curfnum[5]));}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
+        /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
+        /*clear*/ /*_.IPUT__V10*/ curfptr[9] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
+        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3896:/ clear");
+     /*clear*/ /*_.OCONSTX__V9*/ curfptr[7] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3896:/ clear");
+     /*clear*/ /*_#OFF__L4*/ curfnum[2] = 0 ;}
+    ;
+    /*_.IFELSE___V5*/ curfptr[3] = /*_.IFCPP___V7*/ curfptr[6];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3894:/ clear");
+    /*clear*/ /*_.CNSTBIND__V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3894:/ clear");
+    /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:3893:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-genobj.melt:3893:/ block");
+  /*block*/{
+   /*_#IS_A__L7*/ curfnum[4] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA*/ curfrout->tabval[8])));;
+   MELT_LOCATION("warmelt-genobj.melt:3919:/ cond");
+   /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3919:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:3919:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3920:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3920:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3920:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3920:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_dataroutine constx data";
+        MELT_LOCATION("warmelt-genobj.melt:3920:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+        MELT_LOCATION("warmelt-genobj.melt:3920:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3920:/ apply.arg");
+        argtab[3].bp_long = 3920;
+        /*_.DEBUG_MSG_FUN__V19*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V18*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[9];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3920:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3920:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[9] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3920:/ cppif.else");
+     /*_.IFCPP___V18*/ curfptr[11] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:3921:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:3922:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:3922:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+       /*_.OCONSTX__V20*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_#OFF__L9*/ curfnum[2] = 
+       (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1]))));;
+      MELT_LOCATION("warmelt-genobj.melt:3925:/ cond");
+      /*cond*/ if (/*_.OCONSTX__V20*/ curfptr[7]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:3925:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:3925:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:3926:/ block");
+        /*block*/{
+         /*_.MAKE_INTEGERBOX__V21*/ curfptr[5] = 
+          (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L9*/ curfnum[2])));;
+         MELT_LOCATION("warmelt-genobj.melt:3926:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:3926:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[7])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V23*/ curfptr[9] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:3926:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC");
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:3926:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT");
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:3926:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (2), (/*_.MAKE_INTEGERBOX__V21*/ curfptr[5]), "OPRCONST_OFF");
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:3926:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (3), (/*_.OCONSTX__V20*/ curfptr[7]), "OPRCONST_CVAL");
+          ;
+          /*_.IPUT__V22*/ curfptr[6] = /*_.INST__V23*/ curfptr[9];;}
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-genobj.melt:3931:/ locexp");
+         meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.IPUT__V22*/ curfptr[6]));}
+         ;
+         /*_#I__L10*/ curfnum[5] = 
+          ((/*_#OFF__L9*/ curfnum[2]) + (1));;
+         
+         {
+         MELT_LOCATION("warmelt-genobj.melt:3932:/ locexp");
+         melt_put_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1])), (/*_#I__L10*/ curfnum[5]));}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:3926:/ clear");
+         /*clear*/ /*_.MAKE_INTEGERBOX__V21*/ curfptr[5] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:3926:/ clear");
+         /*clear*/ /*_.IPUT__V22*/ curfptr[6] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:3926:/ clear");
+         /*clear*/ /*_#I__L10*/ curfnum[5] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:3921:/ clear");
+      /*clear*/ /*_.OCONSTX__V20*/ curfptr[7] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:3921:/ clear");
+      /*clear*/ /*_#OFF__L9*/ curfnum[2] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3919:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3919:/ clear");
+     /*clear*/ /*_.IFCPP___V18*/ curfptr[11] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3919:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3919:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3934:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3934:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:3934:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:3934:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_dataroutine unexpected constx";
+        MELT_LOCATION("warmelt-genobj.melt:3934:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5];
+        MELT_LOCATION("warmelt-genobj.melt:3934:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:3934:/ apply.arg");
+        argtab[3].bp_long = 3934;
+        /*_.DEBUG_MSG_FUN__V25*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V24*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[6];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3934:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:3934:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[6] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3934:/ cppif.else");
+     /*_.IFCPP___V24*/ curfptr[5] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:3935:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:3935:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:3935:/ cond");
+       /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:3935:/ cond.then");
+       /*_.IFELSE___V27*/ curfptr[11] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-genobj.melt:3935:/ cond.else");
+       
+        MELT_LOCATION("warmelt-genobj.melt:3935:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-genobj.melt:3935:/ locexp");
+          melt_assert_failed(( "compilobj_dataroutine unexepected constx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3935)?(3935):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V27*/ curfptr[11] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V26*/ curfptr[7] = /*_.IFELSE___V27*/ curfptr[11];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:3935:/ clear");
+       /*clear*/ /*_.IFELSE___V27*/ curfptr[11] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:3935:/ cppif.else");
+     /*_.IFCPP___V26*/ curfptr[7] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:3933:/ block");
+     /*block*/{
+      /*_.PROGN___V28*/ curfptr[6] = /*_.IFCPP___V26*/ curfptr[7];;}
+     ;
+     /*_.IFELSE___V17*/ curfptr[10] = /*_.PROGN___V28*/ curfptr[6];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:3919:/ clear");
+     /*clear*/ /*_.IFCPP___V24*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3919:/ clear");
+     /*clear*/ /*_.IFCPP___V26*/ curfptr[7] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:3919:/ clear");
+     /*clear*/ /*_.PROGN___V28*/ curfptr[6] = 0 ;}
+    ;
+    }
+   ;
+   /*_.IFELSE___V5*/ curfptr[3] = /*_.IFELSE___V17*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3893:/ clear");
+   /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3893:/ clear");
+   /*clear*/ /*_.IFELSE___V17*/ curfptr[10] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-genobj.melt:3890:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ clear");
+ /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ clear");
+ /*clear*/ /*_.IFELSE___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_125_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ getarg");
+ /*_.QDCM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3955:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3956:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3956:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.QDCM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3956:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3956:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3956:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3956:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3956:/ locexp");
+      melt_assert_failed(( "check qdcm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3956)?(3956):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3956:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3956:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3956:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3957:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3957:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3957:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3957:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3957:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3957:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3957:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3957)?(3957):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3957:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3957:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3957:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3958:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3958:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3958:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3958:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_quasidata_current_module_environment_container qdcm";
+    MELT_LOCATION("warmelt-genobj.melt:3958:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3958:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3958:/ apply.arg");
+    argtab[3].bp_long = 3958;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.QDCM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3958:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3958:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3958:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3959:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3959:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 10, "IGNCX_CONTENVLOC");/*_.LOCBOX__V11*/ curfptr[10] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3961:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3961:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3961:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3961:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_quasidata_current_module_environment_container return locbox";
+     MELT_LOCATION("warmelt-genobj.melt:3961:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:3961:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3961:/ apply.arg");
+     argtab[3].bp_long = 3961;
+     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCBOX__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3961:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3961:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3961:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3962:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCBOX__V11*/ curfptr[10];;
+   MELT_LOCATION("warmelt-genobj.melt:3962:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V14*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3959:/ clear");
+  /*clear*/ /*_.LOCBOX__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3959:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3959:/ clear");
+  /*clear*/ /*_.RETURN___V14*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3955:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ getarg");
+ /*_.QDPM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3967:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3968:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3968:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.QDPM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3968:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3968:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3968:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3968:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3968:/ locexp");
+      melt_assert_failed(( "check qdpm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3968)?(3968):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3968:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3968:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3968:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3969:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3969:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3969:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3969:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3969:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3969:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3969:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3969)?(3969):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3969:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3969:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3969:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3970:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3970:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3970:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3970:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_quasidata_parent_module_environment qdpm";
+    MELT_LOCATION("warmelt-genobj.melt:3970:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3970:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3970:/ apply.arg");
+    argtab[3].bp_long = 3970;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.QDPM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3970:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3970:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3970:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3971:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3971:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 9, "IGNCX_PREVENVLOC");/*_.PREVENVLOC__V11*/ curfptr[10] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:3973:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:3973:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:3973:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:3973:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_quasidata_parent_module_environment return prevenvloc";
+     MELT_LOCATION("warmelt-genobj.melt:3973:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:3973:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:3973:/ apply.arg");
+     argtab[3].bp_long = 3973;
+     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PREVENVLOC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3973:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3973:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:3973:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:3974:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.PREVENVLOC__V11*/ curfptr[10];;
+   MELT_LOCATION("warmelt-genobj.melt:3974:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V14*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3971:/ clear");
+  /*clear*/ /*_.PREVENVLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3971:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3971:/ clear");
+  /*clear*/ /*_.RETURN___V14*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3967:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 41
+  void* varptr[41];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<41; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 41;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_STORE_PREDEFINED", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ getarg");
+ /*_.NSPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:3979:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3980:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3980:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:3980:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3980:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3980:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3980:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3980:/ locexp");
+      melt_assert_failed(( "check nspr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3980)?(3980):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3980:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3980:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3980:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3981:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3981:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:3981:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:3981:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:3981:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:3981:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:3981:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (3981)?(3981):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3981:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:3982:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:3982:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:3982:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:3982:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_store_predefined start nspr";
+    MELT_LOCATION("warmelt-genobj.melt:3982:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:3982:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:3982:/ apply.arg");
+    argtab[3].bp_long = 3982;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:3982:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:3982:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:3982:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:3983:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3984:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 1, "NSTPD_PREDEF");/*_.NPRED__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3985:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 2, "NSTPD_VALUE");/*_.NVAL__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:3986:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:3986:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OVAL__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.NVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.RES__V15*/ curfptr[14] = (/*nil*/NULL);;
+  /*_#IS_A__L4*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-genobj.melt:3990:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:3990:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:3990:/ block");
+   /*block*/{
+    /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "MELT_STORE_PREDEF(")));;
+    MELT_LOCATION("warmelt-genobj.melt:4000:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4000:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4000:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4000:/ cond.else");
+    
+     /*_.NAMED_NAME__V18*/ curfptr[17] = NULL;;
+     }
+    ;
+    /*_.MAKE_STRING__V19*/ curfptr[18] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), 
+			  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17]))));;
+    /*_.MAKE_STRINGCONST__V20*/ curfptr[19] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( ", (")));;
+    /*_.MAKE_STRINGCONST__V21*/ curfptr[20] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "))")));;
+    /*_.MAKE_TUPLE5__V22*/ curfptr[21] = 
+     (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V17*/ curfptr[16]),  
+		      (melt_ptr_t)(/*_.MAKE_STRING__V19*/ curfptr[18]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V20*/ curfptr[19]),  (melt_ptr_t)(/*_.OVAL__V14*/ curfptr[13]),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V21*/ curfptr[20])));;
+    MELT_LOCATION("warmelt-genobj.melt:3992:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:3992:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[5])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V24*/ curfptr[23] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3992:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:3992:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.MAKE_TUPLE5__V22*/ curfptr[21]), "OBCPT_EXPR");
+     ;
+     /*_.INST___V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:3991:/ compute");
+    /*_.RES__V15*/ curfptr[14] = /*_.SETQ___V25*/ curfptr[24] = /*_.INST___V23*/ curfptr[22];;
+    /*_.IFELSE___V16*/ curfptr[15] = /*_.SETQ___V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.MAKE_STRING__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.MAKE_STRINGCONST__V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.MAKE_STRINGCONST__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.MAKE_TUPLE5__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.INST___V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:3990:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:3990:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-genobj.melt:4006:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4006:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4006:/ block");
+     /*block*/{
+      /*_.MAKE_STRINGCONST__V27*/ curfptr[17] = 
+       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "melt_store_predefined(")));;
+      /*_.MAKE_STRINGCONST__V28*/ curfptr[18] = 
+       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( ", (")));;
+      /*_.MAKE_STRINGCONST__V29*/ curfptr[19] = 
+       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "))")));;
+      /*_.MAKE_TUPLE5__V30*/ curfptr[20] = 
+       (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V27*/ curfptr[17]),  
+		      (melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V28*/ curfptr[18]),  (melt_ptr_t)(/*_.OVAL__V14*/ curfptr[13]),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V29*/ curfptr[19])));;
+      MELT_LOCATION("warmelt-genobj.melt:4008:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:4008:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[5])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V32*/ curfptr[22] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:4008:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[22])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V32*/ curfptr[22]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:4008:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[22])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V32*/ curfptr[22]), (2), (/*_.MAKE_TUPLE5__V30*/ curfptr[20]), "OBCPT_EXPR");
+       ;
+       /*_.INST___V31*/ curfptr[21] = /*_.INST__V32*/ curfptr[22];;}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4007:/ compute");
+      /*_.RES__V15*/ curfptr[14] = /*_.SETQ___V33*/ curfptr[24] = /*_.INST___V31*/ curfptr[21];;
+      /*_.IFELSE___V26*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.MAKE_STRINGCONST__V27*/ curfptr[17] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.MAKE_STRINGCONST__V28*/ curfptr[18] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.MAKE_STRINGCONST__V29*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.MAKE_TUPLE5__V30*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.INST___V31*/ curfptr[21] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.SETQ___V33*/ curfptr[24] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4006:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4006:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4022:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4022:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:4022:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:4022:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_store_predefined";
+         MELT_LOCATION("warmelt-genobj.melt:4022:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+         MELT_LOCATION("warmelt-genobj.melt:4022:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:4022:/ apply.arg");
+         argtab[3].bp_long = 4022;
+         /*_.DEBUG_MSG_FUN__V35*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V34*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[18];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4022:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4022:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[18] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4022:/ cppif.else");
+      /*_.IFCPP___V34*/ curfptr[17] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4023:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4023:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:4023:/ cond");
+        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4023:/ cond.then");
+        /*_.IFELSE___V37*/ curfptr[20] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4023:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:4023:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:4023:/ locexp");
+           melt_assert_failed(( "compilobj_nrep_store_predefined invalid npred"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4023)?(4023):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V37*/ curfptr[20] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V36*/ curfptr[19] = /*_.IFELSE___V37*/ curfptr[20];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4023:/ clear");
+        /*clear*/ /*_.IFELSE___V37*/ curfptr[20] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4023:/ cppif.else");
+      /*_.IFCPP___V36*/ curfptr[19] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-genobj.melt:4024:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+       MELT_LOCATION("warmelt-genobj.melt:4024:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4021:/ block");
+      /*block*/{
+       /*_.PROGN___V39*/ curfptr[24] = /*_.RETURN___V38*/ curfptr[21];;}
+      ;
+      /*_.IFELSE___V26*/ curfptr[16] = /*_.PROGN___V39*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.IFCPP___V34*/ curfptr[17] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.IFCPP___V36*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.RETURN___V38*/ curfptr[21] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4006:/ clear");
+      /*clear*/ /*_.PROGN___V39*/ curfptr[24] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V26*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:3990:/ clear");
+    /*clear*/ /*_.IFELSE___V26*/ curfptr[16] = 0 ;}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4026:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4026:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4026:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4026:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_store_predefined result res";
+     MELT_LOCATION("warmelt-genobj.melt:4026:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4026:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4026:/ apply.arg");
+     argtab[3].bp_long = 4026;
+     /*_.DEBUG_MSG_FUN__V41*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V40*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4026:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4026:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4026:/ cppif.else");
+  /*_.IFCPP___V40*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RES__V15*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.NPRED__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.NVAL__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.OVAL__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.RES__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:3983:/ clear");
+  /*clear*/ /*_.IFCPP___V40*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:3979:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_STORE_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ getarg");
+ /*_.NUCMEB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4034:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4035:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4035:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:4035:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4035:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4035:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4035:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4035:/ locexp");
+      melt_assert_failed(( "check nucmeb"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4035)?(4035):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4035:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4035:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4035:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4036:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4036:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4036:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4036:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4036:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4036:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4036:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4036)?(4036):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4036:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4037:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4037:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4037:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4037:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_update_current_module_environment_container nucmeb";
+    MELT_LOCATION("warmelt-genobj.melt:4037:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4037:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4037:/ apply.arg");
+    argtab[3].bp_long = 4037;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4037:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4037:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4037:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4038:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4039:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 2, "NCUMEB_COMMENT");/*_.NCOMM__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4040:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 1, "NUCMEB_EXPR");/*_.NEX__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4041:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 11, "IGNCX_PROCURMODENVLIST");/*_.PCML__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4042:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 10, "IGNCX_CONTENVLOC");/*_.OCONTENVLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4043:/ block");
+  /*block*/{
+   /*_.SB__V17*/ curfptr[16] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4045:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V17*/ curfptr[16]), ( "upd.cur.mod.env.cont"));}
+   ;
+   /*_#IS_STRING__L4*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.NCOMM__V12*/ curfptr[11])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-genobj.melt:4046:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4046:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4046:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:4048:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V17*/ curfptr[16]), ( " : "));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:4049:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V17*/ curfptr[16]), melt_string_str((melt_ptr_t)(/*_.NCOMM__V12*/ curfptr[11])));}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4047:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   /*_.LET___V16*/ curfptr[15] = /*_.SB__V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4043:/ clear");
+   /*clear*/ /*_.SB__V17*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4043:/ clear");
+   /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;}
+  ;
+  /*_.CSBUF__V18*/ curfptr[16] = /*_.LET___V16*/ curfptr[15];;
+  /*_.OBODL__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.STRBUF2STRING__V20*/ curfptr[19] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V18*/ curfptr[16]))));;
+  MELT_LOCATION("warmelt-genobj.melt:4053:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4053:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[5])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4053:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4053:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OBODL__V19*/ curfptr[18]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4053:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.STRBUF2STRING__V20*/ curfptr[19]), "OCOMBLO_COMMENT");
+   ;
+   /*_.OCBLO__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4058:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4058:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OEX__V23*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.NEX__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4060:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4060:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4060:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4060:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box pcml";
+     MELT_LOCATION("warmelt-genobj.melt:4060:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4060:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4060:/ apply.arg");
+     argtab[3].bp_long = 4060;
+     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PCML__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4060:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4060:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4060:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4066:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4066:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V27*/ curfptr[26] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (5));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4066:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4066:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V11*/ curfptr[10]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4066:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[2] = (melt_ptr_t)(/*_.OEX__V23*/ curfptr[22]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4066:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[3] = (melt_ptr_t)(/*_.OCONTENVLOC__V15*/ curfptr[14]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4066:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[4] = (melt_ptr_t)(/*_.OBODL__V19*/ curfptr[18]);
+   ;
+   /*_.LAMBDA___V26*/ curfptr[24] = /*_.LAMBDA___V27*/ curfptr[26];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4064:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4064:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V26*/ curfptr[24];
+   /*_.LIST_EVERY__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.PCML__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4120:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4120:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4120:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4120:/ apply.arg");
+     argtab[0].bp_cstring =  "compobj.upd.mod.env.box result ocblo";
+     MELT_LOCATION("warmelt-genobj.melt:4120:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4120:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4120:/ apply.arg");
+     argtab[3].bp_long = 4120;
+     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLO__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4120:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4120:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4120:/ cppif.else");
+  /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4121:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OCBLO__V21*/ curfptr[20];;
+   MELT_LOCATION("warmelt-genobj.melt:4121:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V31*/ curfptr[29];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.NCOMM__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.NEX__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.PCML__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.OCONTENVLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.CSBUF__V18*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.OBODL__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.STRBUF2STRING__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.OCBLO__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.OEX__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.LAMBDA___V26*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4038:/ clear");
+  /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:4034:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_130_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_130_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ getarg");
+ /*_.CUROUT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4066:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4067:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4067:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4067:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4067:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box curout";
+    MELT_LOCATION("warmelt-genobj.melt:4067:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4067:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4067:/ apply.arg");
+    argtab[3].bp_long = 4067;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4067:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#IS_A__L2*/ curfnum[0] = 
+  melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[1])));;
+ MELT_LOCATION("warmelt-genobj.melt:4068:/ cond");
+ /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4068:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4068:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4069:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4070:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), 2, "OBROUT_PROC");/*_.CURPROC__V5*/ curfptr[3] = slot; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4071:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V5*/ curfptr[3]), 5, "NRPRO_CONST");/*_.CNSLIS__V6*/ curfptr[5] = slot; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4072:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V5*/ curfptr[3]), 6, "NRPRO_DATAROUT");/*_.DATAROUT__V7*/ curfptr[6] = slot; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4073:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4073:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+     /*_.ODATAROUT__V8*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.DATAROUT__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.BOXCOUNT__V9*/ curfptr[8] = 
+     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (0)));;
+    MELT_LOCATION("warmelt-genobj.melt:4075:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), 4, "OIE_LOCVAR");/*_.OROUTLOCVAR__V10*/ curfptr[9] = slot; };
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4077:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4077:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4077:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4077:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box cnslis";
+       MELT_LOCATION("warmelt-genobj.melt:4077:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
+       MELT_LOCATION("warmelt-genobj.melt:4077:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4077:/ apply.arg");
+       argtab[3].bp_long = 4077;
+       /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CNSLIS__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4077:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4077:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4077:/ cppif.else");
+    /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4078:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4078:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4078:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box odatarout";
+       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[2];
+       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
+       argtab[3].bp_long = 4078;
+       /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4078:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4078:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4078:/ cppif.else");
+    /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4079:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4079:/ block");
+     /*block*/{
+      /*_#IS_A__L5*/ curfnum[2] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[4])));;
+      MELT_LOCATION("warmelt-genobj.melt:4079:/ cond");
+      /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4079:/ cond.then");
+      /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4079:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:4079:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-genobj.melt:4079:/ locexp");
+         melt_assert_failed(( "check odatarout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4079)?(4079):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4079:/ clear");
+      /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4079:/ clear");
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4079:/ cppif.else");
+    /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4080:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4080:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[2] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4080:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4080:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box oroutlocvar";
+       MELT_LOCATION("warmelt-genobj.melt:4080:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[2];
+       MELT_LOCATION("warmelt-genobj.melt:4080:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4080:/ apply.arg");
+       argtab[3].bp_long = 4080;
+       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OROUTLOCVAR__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4080:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[2] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4080:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4080:/ cppif.else");
+    /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:4083:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (6));
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8]);
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)((/*~NLOC*/ curfclos->tabval[1]));
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.OROUTLOCVAR__V10*/ curfptr[9]);
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[3] = (melt_ptr_t)((/*~OEX*/ curfclos->tabval[2]));
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[4] = (melt_ptr_t)((/*~OCONTENVLOC*/ curfclos->tabval[3]));
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4083:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[5] = (melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4]));
+     ;
+     /*_.LAMBDA___V19*/ curfptr[17] = /*_.LAMBDA___V20*/ curfptr[19];;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4081:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4081:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[17];
+     /*_.LIST_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.CNSLIS__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#GET_INT__L7*/ curfnum[2] = 
+     (melt_get_int((melt_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8])));;
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#GET_INT__L7*/ curfnum[2]) + (1));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4118:/ locexp");
+    melt_put_int((melt_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8]), (/*_#I__L8*/ curfnum[7]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.CURPROC__V5*/ curfptr[3] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.CNSLIS__V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.DATAROUT__V7*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.ODATAROUT__V8*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.BOXCOUNT__V9*/ curfptr[8] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.OROUTLOCVAR__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.LAMBDA___V19*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_#GET_INT__L7*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4069:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ clear");
+ /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_130_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_131_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_131_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ getarg");
+ /*_.CURCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4083:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4084:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4084:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4084:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4084:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box curconst";
+    MELT_LOCATION("warmelt-genobj.melt:4084:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4084:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4084:/ apply.arg");
+    argtab[3].bp_long = 4084;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCONST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4084:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4084:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4084:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4085:/ block");
+ /*block*/{
+  /*_#CURCOUNT__L2*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXCOUNT*/ curfclos->tabval[0]))));;
+  /*_#IS_A__L3*/ curfnum[2] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4088:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4088:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4088:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4091:/ block");
+    /*block*/{
+     /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#CURCOUNT__L2*/ curfnum[0])));;
+     MELT_LOCATION("warmelt-genobj.melt:4092:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4092:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[2])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V7*/ curfptr[6] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4092:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4092:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (1), ((/*~OROUTLOCVAR*/ curfclos->tabval[2])), "OPRCONST_ROUT");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4092:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.MAKE_INTEGERBOX__V5*/ curfptr[3]), "OPRCONST_OFF");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4092:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (3), ((/*~OEX*/ curfclos->tabval[3])), "OPRCONST_CVAL");
+      ;
+      /*_.OPUTROUT__V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4098:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4098:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[4])), (3), "CLASS_OBJTOUCH");/*_.INST__V9*/ curfptr[8] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4098:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4098:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (1), ((/*~OROUTLOCVAR*/ curfclos->tabval[2])), "OTOUCH_VAL");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4098:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (2), ((/*!konst_5*/ curfrout->tabval[5])), "OTOUCH_COMMENT");
+      ;
+      /*_.OTOUCHROUT__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4105:/ apply");
+     /*apply*/{
+      /*_.LIST1__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[7])), (melt_ptr_t)((/*~OCONTENVLOC*/ curfclos->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4103:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4103:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[6])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V12*/ curfptr[11] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4103:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4103:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (1), (/*_.LIST1__V10*/ curfptr[9]), "OBDI_DESTLIST");
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4103:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (2), ((/*~OEX*/ curfclos->tabval[3])), "OBCPT_EXPR");
+      ;
+      /*_.OCOPY__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:4109:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:4109:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:4109:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:4109:/ apply.arg");
+        argtab[0].bp_cstring =  "compobj.upd.mod.env.box oputrout";
+        MELT_LOCATION("warmelt-genobj.melt:4109:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+        MELT_LOCATION("warmelt-genobj.melt:4109:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:4109:/ apply.arg");
+        argtab[3].bp_long = 4109;
+        /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OPUTROUT__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4109:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4109:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:4109:/ cppif.else");
+     /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:4110:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:4110:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:4110:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:4110:/ apply.arg");
+        argtab[0].bp_cstring =  "compobj.upd.mod.env.box otouchrout";
+        MELT_LOCATION("warmelt-genobj.melt:4110:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
+        MELT_LOCATION("warmelt-genobj.melt:4110:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:4110:/ apply.arg");
+        argtab[3].bp_long = 4110;
+        /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTOUCHROUT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4110:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4110:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:4110:/ cppif.else");
+     /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:4111:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OPUTROUT__V6*/ curfptr[5]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:4112:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OTOUCHROUT__V8*/ curfptr[7]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:4113:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OCOPY__V11*/ curfptr[10]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.OPUTROUT__V6*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.OTOUCHROUT__V8*/ curfptr[7] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.LIST1__V10*/ curfptr[9] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.OCOPY__V11*/ curfptr[10] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4091:/ clear");
+     /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4085:/ clear");
+  /*clear*/ /*_#CURCOUNT__L2*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4085:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_131_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_ANYTESTER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ getarg");
+ /*_.NTESTER__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4173:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4174:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4174:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTESTER__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:4174:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4174:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4174:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4174:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4174:/ locexp");
+      melt_assert_failed(( "check ntester"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4174)?(4174):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4174:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4174:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4174:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4175:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4175:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4175:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4175:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4175:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4175:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4175:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4175)?(4175):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4175:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4175:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4175:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4176:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4176:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4176:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4176:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4176:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4176:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4176:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4176)?(4176):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4176:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4176:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4176:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4177:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4177:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4177:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4177:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_anytester ntester";
+    MELT_LOCATION("warmelt-genobj.melt:4177:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4177:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4177:/ apply.arg");
+    argtab[3].bp_long = 4177;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NTESTER__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4177:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4177:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4177:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:4178:/ locexp");
+ melt_puts(stderr,( "* compiltst unimplemented reciever class "));}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4179:/ block");
+ /*block*/{
+  /*_.DISCR__V13*/ curfptr[11] = 
+   (melt_discr((melt_ptr_t)(/*_.NTESTER__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4179:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V13*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4179:/ locexp");
+  melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4179:/ clear");
+  /*clear*/ /*_.DISCR__V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4179:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:4180:/ locexp");
+ melt_newlineflush(stderr);}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4181:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4181:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4181:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4181:/ cond.then");
+   /*_.IFELSE___V16*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4181:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4181:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4181:/ locexp");
+      melt_assert_failed(( "@@compile_tester should be implemented in normtesters-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4181)?(4181):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V15*/ curfptr[11] = /*_.IFELSE___V16*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4181:/ clear");
+   /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4181:/ cppif.else");
+ /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V15*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:4173:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
+ /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_ANYTESTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 146
+  void* varptr[146];
+#define CURFRAM_NBVARNUM 47
+  long varnum[47];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<146; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 146;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILOBJ_NREP_MATCH", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ getarg");
+ /*_.NMAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4187:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4188:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4188:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:4188:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4188:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4188:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4188:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4188:/ locexp");
+      melt_assert_failed(( "check nmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4188)?(4188):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4188:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4188:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4188:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4189:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4189:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4189:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4189:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4189:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4189:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4189:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4189)?(4189):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4189:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4190:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4190:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4190:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4190:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_match nmat";
+    MELT_LOCATION("warmelt-genobj.melt:4190:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4190:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4190:/ apply.arg");
+    argtab[3].bp_long = 4190;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4190:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4190:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4190:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4191:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4192:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4193:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4194:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 2, "NMATCH_TESTS");/*_.NTESTS__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4195:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 3, "NMATCH_STUFFMAP");/*_.STUFFMAP__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4196:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4196:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4196:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 4, "NMATCH_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4196:/ cond.else");
+  
+   /*_.NMATCHED__V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4197:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATMAP__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4198:/ block");
+  /*block*/{
+   /*_#NBMAT__L4*/ curfnum[0] = 
+    (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MATMAP__V16*/ curfptr[15])));;
+   /*_.LABUF__V18*/ curfptr[17] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4201:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), ( "mtch"));}
+   ;
+   /*_#I__L5*/ curfnum[4] = 
+    ((/*_#NBMAT__L4*/ curfnum[0]) + (1));;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4202:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), (/*_#I__L5*/ curfnum[4]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4203:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), ( "_"));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4204:/ block");
+   /*block*/{
+    /*_.LABSTR__V20*/ curfptr[19] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]))));;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4205:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MATMAP__V16*/ curfptr[15]), 
+			   (meltobject_ptr_t) (/*_.NMAT__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.LABSTR__V20*/ curfptr[19]));}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4206:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4206:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4206:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4206:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_nrep_match matlabel";
+       MELT_LOCATION("warmelt-genobj.melt:4206:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+       MELT_LOCATION("warmelt-genobj.melt:4206:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4206:/ apply.arg");
+       argtab[3].bp_long = 4206;
+       /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LABSTR__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4206:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4206:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4206:/ cppif.else");
+    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V19*/ curfptr[18] = /*_.LABSTR__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4204:/ clear");
+    /*clear*/ /*_.LABSTR__V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4204:/ clear");
+    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
+   ;
+   /*_.LET___V17*/ curfptr[16] = /*_.LET___V19*/ curfptr[18];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4198:/ clear");
+   /*clear*/ /*_#NBMAT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4198:/ clear");
+   /*clear*/ /*_.LABUF__V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4198:/ clear");
+   /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4198:/ clear");
+   /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
+  ;
+  /*_.MATLABEL__V23*/ curfptr[21] = /*_.LET___V17*/ curfptr[16];;
+  MELT_LOCATION("warmelt-genobj.melt:4209:/ block");
+  /*block*/{
+   /*_.LABUF__V25*/ curfptr[20] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4212:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V25*/ curfptr[20]), melt_string_str((melt_ptr_t)(/*_.MATLABEL__V23*/ curfptr[21])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4213:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V25*/ curfptr[20]), ( "_end"));}
+   ;
+   /*_.STRBUF2STRING__V26*/ curfptr[17] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V25*/ curfptr[20]))));;
+   /*_.LET___V24*/ curfptr[19] = /*_.STRBUF2STRING__V26*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4209:/ clear");
+   /*clear*/ /*_.LABUF__V25*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4209:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V26*/ curfptr[17] = 0 ;}
+  ;
+  /*_.ENDLABEL__V27*/ curfptr[18] = /*_.LET___V24*/ curfptr[19];;
+  /*_.SUBCOMPLIST__V28*/ curfptr[20] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  /*_.OBODYL__V29*/ curfptr[17] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  MELT_LOCATION("warmelt-genobj.melt:4219:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4219:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[6])), (4), "CLASS_OBJMULTIBLOCK");/*_.INST__V31*/ curfptr[30] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4219:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4219:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.OBODYL__V29*/ curfptr[17]), "OBLO_BODYL");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4219:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OMULBLO_SUBCOMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), ((/*nil*/NULL)), "OMULBLO_SUBCOMP");
+   ;
+   /*_.OMBLOC__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+  ;
+  /*_.MAKE_INTEGERBOX__V32*/ curfptr[31] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (0)));;
+  MELT_LOCATION("warmelt-genobj.melt:4224:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4224:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[7])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V34*/ curfptr[33] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4224:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4224:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.MATLABEL__V23*/ curfptr[21]), "OBGOTO_PREFIX");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4224:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.MAKE_INTEGERBOX__V32*/ curfptr[31]), "OBGOTO_RANK");
+   ;
+   /*_.OFIRSTGOTO__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4229:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4229:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[9])), (3), "CLASS_OBJLABELINSTR");/*_.INST__V36*/ curfptr[35] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4229:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4229:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.ENDLABEL__V27*/ curfptr[18]), "OBLAB_PREFIX");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4229:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), ((/*nil*/NULL)), "OBLAB_RANK");
+   ;
+   /*_.OENDLABEL__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+  ;
+  /*_.MAKE_LIST__V37*/ curfptr[36] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  MELT_LOCATION("warmelt-genobj.melt:4233:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4233:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[10])), (4), "CLASS_TESTERCOMPILCONTEXT");/*_.INST__V39*/ curfptr[38] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4233:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @TCX_NRMATCH", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.NMAT__V2*/ curfptr[1]), "TCX_NRMATCH");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4233:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @TCX_FREELIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.MAKE_LIST__V37*/ curfptr[36]), "TCX_FREELIST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4233:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @TCX_NEXTEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), ((/*nil*/NULL)), "TCX_NEXTEST");
+   ;
+   /*_.TCX__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
+  ;
+  /*_.DONETESTS__V40*/ curfptr[39] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4241:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4241:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4241:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4241:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_match nmatched";
+     MELT_LOCATION("warmelt-genobj.melt:4241:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4241:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4241:/ apply.arg");
+     argtab[3].bp_long = 4241;
+     /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4241:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4241:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4241:/ cppif.else");
+  /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4242:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4242:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.COMPILE_OBJ__V43*/ curfptr[41] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4240:/ block");
+  /*block*/{
+   /*_.OMATCHED__V44*/ curfptr[43] = /*_.COMPILE_OBJ__V43*/ curfptr[41];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4244:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.OFIRSTGOTO__V33*/ curfptr[32]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4245:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4245:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4245:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_match ntests";
+     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
+     argtab[3].bp_long = 4245;
+     /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4245:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4245:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4245:/ cppif.else");
+  /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4246:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4246:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4246:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4246:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_match omatched";
+     MELT_LOCATION("warmelt-genobj.melt:4246:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[4];
+     MELT_LOCATION("warmelt-genobj.melt:4246:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4246:/ apply.arg");
+     argtab[3].bp_long = 4246;
+     /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4246:/ cppif.else");
+  /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4247:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4247:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4247:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4247:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_match oendlabel";
+     MELT_LOCATION("warmelt-genobj.melt:4247:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4247:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4247:/ apply.arg");
+     argtab[3].bp_long = 4247;
+     /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OENDLABEL__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4247:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4247:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4247:/ cppif.else");
+  /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NTESTS__V13*/ curfptr[12]);
+   for (/*_#TESTIX__L11*/ curfnum[0] = 0;  
+	(/*_#TESTIX__L11*/ curfnum[0] >= 0) && (/*_#TESTIX__L11*/ curfnum[0] <  cit1__EACHTUP_ln);  
+	/*_#TESTIX__L11*/ curfnum[0]++) {
+   /*_.CUROTEST__V51*/ curfptr[49] = melt_multiple_nth((melt_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]),  /*_#TESTIX__L11*/ curfnum[0]);
+   
+  
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4251:/ locexp");
+   debugnum(( "compilobj_nrep_match testix="), (/*_#TESTIX__L11*/ curfnum[0]));}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4252:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4252:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L12*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4252:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4252:/ apply.arg");
+      argtab[0].bp_cstring =  "compilobj_nrep_match curotest";
+      MELT_LOCATION("warmelt-genobj.melt:4252:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[4];
+      MELT_LOCATION("warmelt-genobj.melt:4252:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4252:/ apply.arg");
+      argtab[3].bp_long = 4252;
+      /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4252:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4252:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4252:/ cppif.else");
+   /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4253:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4253:/ block");
+    /*block*/{
+     /*_#IS_A__L13*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])));;
+     MELT_LOCATION("warmelt-genobj.melt:4253:/ cond");
+     /*cond*/ if (/*_#IS_A__L13*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4253:/ cond.then");
+     /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4253:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4253:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4253:/ locexp");
+        melt_assert_failed(( "check curotest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4253)?(4253):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V54*/ curfptr[52] = /*_.IFELSE___V55*/ curfptr[54];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4253:/ clear");
+     /*clear*/ /*_#IS_A__L13*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4253:/ clear");
+     /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4253:/ cppif.else");
+   /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4254:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4254:/ block");
+    /*block*/{
+     /*_#GET_INT__L14*/ curfnum[4] = 
+      (melt_get_int((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49])));;
+     /*_#I__L15*/ curfnum[5] = 
+      ((/*_#GET_INT__L14*/ curfnum[4]) == (/*_#TESTIX__L11*/ curfnum[0]));;
+     MELT_LOCATION("warmelt-genobj.melt:4254:/ cond");
+     /*cond*/ if (/*_#I__L15*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4254:/ cond.then");
+     /*_.IFELSE___V57*/ curfptr[56] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4254:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4254:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4254:/ locexp");
+        melt_assert_failed(( "check curotest rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4254)?(4254):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V56*/ curfptr[54] = /*_.IFELSE___V57*/ curfptr[56];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4254:/ clear");
+     /*clear*/ /*_#GET_INT__L14*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4254:/ clear");
+     /*clear*/ /*_#I__L15*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4254:/ clear");
+     /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4254:/ cppif.else");
+   /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_#IS_A__L16*/ curfnum[4] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ curfrout->tabval[13])));;
+   MELT_LOCATION("warmelt-genobj.melt:4260:/ cond");
+   /*cond*/ if (/*_#IS_A__L16*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4260:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4260:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4261:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), 2, "NTEST_THEN");/*_.CURNTHEN__V60*/ curfptr[59] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4261:/ cond.else");
+      
+       /*_.CURNTHEN__V60*/ curfptr[59] = NULL;;
+       }
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4262:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4262:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4262:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), 3, "NTEST_ELSE");/*_.CURNELSE__V61*/ curfptr[60] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4262:/ cond.else");
+      
+       /*_.CURNELSE__V61*/ curfptr[60] = NULL;;
+       }
+      ;
+      /*_#NULL__L17*/ curfnum[5] = 
+       ((/*_.CURNTHEN__V60*/ curfptr[59]) == NULL);;
+      MELT_LOCATION("warmelt-genobj.melt:4265:/ cond");
+      /*cond*/ if (/*_#NULL__L17*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4265:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4265:/ block");
+       /*block*/{
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-genobj.melt:4266:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:4266:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 
+           callcount;;
+          MELT_LOCATION("warmelt-genobj.melt:4266:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-genobj.melt:4266:/ apply.arg");
+           argtab[0].bp_cstring =  "compilobj_nrep_match curotest with null then";
+           MELT_LOCATION("warmelt-genobj.melt:4266:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17];
+           MELT_LOCATION("warmelt-genobj.melt:4266:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-genobj.melt";
+           MELT_LOCATION("warmelt-genobj.melt:4266:/ apply.arg");
+           argtab[3].bp_long = 4266;
+           /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:4266:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:4266:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-genobj.melt:4266:/ cppif.else");
+        /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4267:/ locexp");
+         
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "compilobj_nrep_match curotest has null then"), (14));
+#endif
+;}
+        ;
+        MELT_LOCATION("warmelt-genobj.melt:4265:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4265:/ clear");
+        /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4265:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:4265:/ block");
+       /*block*/{
+        /*_#NULL__L19*/ curfnum[17] = 
+         ((/*_.CURNELSE__V61*/ curfptr[60]) == NULL);;
+        MELT_LOCATION("warmelt-genobj.melt:4269:/ cond");
+        /*cond*/ if (/*_#NULL__L19*/ curfnum[17]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4269:/ cond.then");
+        MELT_LOCATION("warmelt-genobj.melt:4269:/ block");
+         /*block*/{
+          
+          #if ENABLE_CHECKING
+           MELT_LOCATION("warmelt-genobj.melt:4270:/ cppif.then");
+          MELT_LOCATION("warmelt-genobj.melt:4270:/ block");
+           /*block*/{
+            /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
+             callcount;;
+            MELT_LOCATION("warmelt-genobj.melt:4270:/ apply");
+            /*apply*/{
+             union meltparam_un argtab[4];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-genobj.melt:4270:/ apply.arg");
+             argtab[0].bp_cstring =  "compilobj_nrep_match curotest with null else";
+             MELT_LOCATION("warmelt-genobj.melt:4270:/ apply.arg");
+             argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
+             MELT_LOCATION("warmelt-genobj.melt:4270:/ apply.arg");
+             argtab[2].bp_cstring =  "warmelt-genobj.melt";
+             MELT_LOCATION("warmelt-genobj.melt:4270:/ apply.arg");
+             argtab[3].bp_long = 4270;
+             /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            /*_.IFCPP___V66*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-genobj.melt:4270:/ clear");
+            /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
+            MELT_LOCATION("warmelt-genobj.melt:4270:/ clear");
+            /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;}
+           
+           #else /*ENABLE_CHECKING*/
+           MELT_LOCATION("warmelt-genobj.melt:4270:/ cppif.else");
+          /*_.IFCPP___V66*/ curfptr[62] = (/*nil*/NULL);
+           #endif /*ENABLE_CHECKING*/
+           ;
+          
+          {
+          MELT_LOCATION("warmelt-genobj.melt:4271:/ locexp");
+           
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "compilobj_nrep_match curotest has null else"), (14));
+#endif
+;}
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:4269:/ block");
+          /*block*/{}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:4269:/ clear");
+          /*clear*/ /*_.IFCPP___V66*/ curfptr[62] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4269:/ cond.else");
+        
+         /*_.IFELSE___V65*/ curfptr[63] = NULL;;
+         }
+        ;
+        /*_.IFELSE___V62*/ curfptr[61] = /*_.IFELSE___V65*/ curfptr[63];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4265:/ clear");
+        /*clear*/ /*_#NULL__L19*/ curfnum[17] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4265:/ clear");
+        /*clear*/ /*_.IFELSE___V65*/ curfptr[63] = 0 ;}
+       ;
+       }
+      ;
+      /*_.LET___V59*/ curfptr[58] = /*_.IFELSE___V62*/ curfptr[61];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ clear");
+      /*clear*/ /*_.CURNTHEN__V60*/ curfptr[59] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ clear");
+      /*clear*/ /*_.CURNELSE__V61*/ curfptr[60] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ clear");
+      /*clear*/ /*_#NULL__L17*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4261:/ clear");
+      /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;}
+     ;
+     /*_.IF___V58*/ curfptr[56] = /*_.LET___V59*/ curfptr[58];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4260:/ clear");
+     /*clear*/ /*_.LET___V59*/ curfptr[58] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4260:/ cond.else");
+   
+    /*_.IF___V58*/ curfptr[56] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4274:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4275:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4275:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     /*_.LABINS__V68*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_LABELINSTR*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4276:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4276:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4276:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), 1, "NTEST_MATCHED");/*_.CURNMATCHED__V69*/ curfptr[62] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4276:/ cond.else");
+    
+     /*_.CURNMATCHED__V69*/ curfptr[62] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4278:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4278:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4278:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4278:/ apply.arg");
+       argtab[0].bp_cstring =  "compilobj_nrep_match labins";
+       MELT_LOCATION("warmelt-genobj.melt:4278:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19];
+       MELT_LOCATION("warmelt-genobj.melt:4278:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4278:/ apply.arg");
+       argtab[3].bp_long = 4278;
+       /*_.DEBUG_MSG_FUN__V71*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LABINS__V68*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V70*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[59];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4278:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4278:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[59] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4278:/ cppif.else");
+    /*_.IFCPP___V70*/ curfptr[63] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:4279:/ block");
+    /*block*/{
+     /*_#I__L22*/ curfnum[17] = 
+      ((/*_#TESTIX__L11*/ curfnum[0]) + (1));;
+     /*_.NEXTEST__V73*/ curfptr[61] = 
+      (melt_multiple_nth((melt_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]), (/*_#I__L22*/ curfnum[17])));;
+     MELT_LOCATION("warmelt-genobj.melt:4280:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V38*/ curfptr[37]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[10])))) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4280:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:4280:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:4280:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @TCX_NEXTEST", melt_magic_discr((melt_ptr_t)(/*_.TCX__V38*/ curfptr[37])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.TCX__V38*/ curfptr[37]), (3), (/*_.NEXTEST__V73*/ curfptr[61]), "TCX_NEXTEST");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:4280:/ touch");
+       meltgc_touch(/*_.TCX__V38*/ curfptr[37]);
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:4281:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:4281:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L23*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:4281:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:4281:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_match nextest";
+        MELT_LOCATION("warmelt-genobj.melt:4281:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[5];
+        MELT_LOCATION("warmelt-genobj.melt:4281:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:4281:/ apply.arg");
+        argtab[3].bp_long = 4281;
+        /*_.DEBUG_MSG_FUN__V75*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NEXTEST__V73*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V74*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V75*/ curfptr[59];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[59] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:4281:/ cppif.else");
+     /*_.IFCPP___V74*/ curfptr[58] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:4282:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:4282:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L24*/ curfnum[19] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:4282:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:4282:/ apply.arg");
+        argtab[0].bp_cstring =  "compilobj_nrep_match updated tcx";
+        MELT_LOCATION("warmelt-genobj.melt:4282:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[19];
+        MELT_LOCATION("warmelt-genobj.melt:4282:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:4282:/ apply.arg");
+        argtab[3].bp_long = 4282;
+        /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.TCX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V76*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4282:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[19] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4282:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:4282:/ cppif.else");
+     /*_.IFCPP___V76*/ curfptr[59] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V72*/ curfptr[60] = /*_.IFCPP___V76*/ curfptr[59];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4279:/ clear");
+     /*clear*/ /*_#I__L22*/ curfnum[17] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4279:/ clear");
+     /*clear*/ /*_.NEXTEST__V73*/ curfptr[61] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4279:/ clear");
+     /*clear*/ /*_.IFCPP___V74*/ curfptr[58] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4279:/ clear");
+     /*clear*/ /*_.IFCPP___V76*/ curfptr[59] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4283:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4283:/ multimsend");
+     /*multimsend*/{
+      union meltparam_un argtab[2];
+      union meltparam_un restab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      memset(&restab, 0, sizeof(restab));
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ multimsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];MELT_LOCATION("warmelt-genobj.melt:4283:/ multimsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V38*/ curfptr[37];
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ multimsend.xres");
+      restab[0].bp_aptr = (melt_ptr_t*) &/*_.CUROBDEST__V79*/ curfptr[61];MELT_LOCATION("warmelt-genobj.melt:4283:/ multimsend.send");
+      /*_.CURCOMP__V78*/ curfptr[76] =  meltgc_send ((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), ((melt_ptr_t)((/*!COMPILE_TESTER*/ curfrout->tabval[15]))), (BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+      }
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4283:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4286:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4286:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L25*/ curfnum[5] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:4286:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_match curcomp";
+         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[5];
+         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
+         argtab[3].bp_long = 4286;
+         /*_.DEBUG_MSG_FUN__V81*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V80*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[59];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4286:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[5] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4286:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[59] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4286:/ cppif.else");
+      /*_.IFCPP___V80*/ curfptr[58] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4287:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4287:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L26*/ curfnum[19] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:4287:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:4287:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_match curobdest";
+         MELT_LOCATION("warmelt-genobj.melt:4287:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[19];
+         MELT_LOCATION("warmelt-genobj.melt:4287:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:4287:/ apply.arg");
+         argtab[3].bp_long = 4287;
+         /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROBDEST__V79*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V82*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[82];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4287:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[19] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4287:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4287:/ cppif.else");
+      /*_.IFCPP___V82*/ curfptr[59] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4288:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4288:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L27*/ curfnum[17] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:4288:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:4288:/ apply.arg");
+         argtab[0].bp_cstring =  "compilobj_nrep_match tcx";
+         MELT_LOCATION("warmelt-genobj.melt:4288:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[17];
+         MELT_LOCATION("warmelt-genobj.melt:4288:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:4288:/ apply.arg");
+         argtab[3].bp_long = 4288;
+         /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.TCX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V84*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[84];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4288:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[17] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4288:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4288:/ cppif.else");
+      /*_.IFCPP___V84*/ curfptr[82] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4289:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4289:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:4289:/ cond");
+        /*cond*/ if (/*_.CURCOMP__V78*/ curfptr[76]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4289:/ cond.then");
+        /*_.IFELSE___V87*/ curfptr[86] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4289:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:4289:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:4289:/ locexp");
+           melt_assert_failed(( "check curcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4289)?(4289):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V86*/ curfptr[84] = /*_.IFELSE___V87*/ curfptr[86];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4289:/ clear");
+        /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4289:/ cppif.else");
+      /*_.IFCPP___V86*/ curfptr[84] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4291:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.LABINS__V68*/ curfptr[66]));}
+      ;
+      /*_#IS_LIST__L28*/ curfnum[5] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])) == OBMAG_LIST);;
+      MELT_LOCATION("warmelt-genobj.melt:4293:/ cond");
+      /*cond*/ if (/*_#IS_LIST__L28*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4293:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4293:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-genobj.melt:4294:/ block");
+        /*block*/{
+         /*_.LIST_LAST__V90*/ curfptr[89] = 
+          (melt_list_last((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])));;
+         /*_.LASTLICOMP__V91*/ curfptr[90] = 
+          (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V90*/ curfptr[89])));;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-genobj.melt:4295:/ cppif.then");
+         MELT_LOCATION("warmelt-genobj.melt:4295:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L29*/ curfnum[19] = 
+            callcount;;
+           MELT_LOCATION("warmelt-genobj.melt:4295:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-genobj.melt:4295:/ apply.arg");
+            argtab[0].bp_cstring =  "compilobj_nrep_match lastlicomp";
+            MELT_LOCATION("warmelt-genobj.melt:4295:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[19];
+            MELT_LOCATION("warmelt-genobj.melt:4295:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-genobj.melt";
+            MELT_LOCATION("warmelt-genobj.melt:4295:/ apply.arg");
+            argtab[3].bp_long = 4295;
+            /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LASTLICOMP__V91*/ curfptr[90]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4295:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[19] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:4295:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-genobj.melt:4295:/ cppif.else");
+         /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-genobj.melt:4296:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-genobj.melt:4296:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V78*/ curfptr[76];
+          /*_.LIST_APPEND2LIST__V94*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.LET___V89*/ curfptr[88] = /*_.LIST_APPEND2LIST__V94*/ curfptr[92];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:4294:/ clear");
+         /*clear*/ /*_.LIST_LAST__V90*/ curfptr[89] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4294:/ clear");
+         /*clear*/ /*_.LASTLICOMP__V91*/ curfptr[90] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4294:/ clear");
+         /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4294:/ clear");
+         /*clear*/ /*_.LIST_APPEND2LIST__V94*/ curfptr[92] = 0 ;}
+        ;
+        /*_.IFELSE___V88*/ curfptr[86] = /*_.LET___V89*/ curfptr[88];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4293:/ clear");
+        /*clear*/ /*_.LET___V89*/ curfptr[88] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4293:/ cond.else");
+      
+       MELT_LOCATION("warmelt-genobj.melt:4293:/ block");
+       /*block*/{
+        /*_#IS_MULTIPLE__L30*/ curfnum[17] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])) == OBMAG_MULTIPLE);;
+        MELT_LOCATION("warmelt-genobj.melt:4298:/ cond");
+        /*cond*/ if (/*_#IS_MULTIPLE__L30*/ curfnum[17]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4298:/ cond.then");
+        MELT_LOCATION("warmelt-genobj.melt:4298:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:4299:/ block");
+          /*block*/{
+           /*_.LASTUPCOMP__V96*/ curfptr[90] = 
+            (melt_multiple_nth((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]), (-1)));;
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-genobj.melt:4300:/ cppif.then");
+           MELT_LOCATION("warmelt-genobj.melt:4300:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L31*/ curfnum[19] = 
+              callcount;;
+             MELT_LOCATION("warmelt-genobj.melt:4300:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-genobj.melt:4300:/ apply.arg");
+              argtab[0].bp_cstring =  "compilobj_nrep_match lastupcomp";
+              MELT_LOCATION("warmelt-genobj.melt:4300:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[19];
+              MELT_LOCATION("warmelt-genobj.melt:4300:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-genobj.melt";
+              MELT_LOCATION("warmelt-genobj.melt:4300:/ apply.arg");
+              argtab[3].bp_long = 4300;
+              /*_.DEBUG_MSG_FUN__V98*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LASTUPCOMP__V96*/ curfptr[90]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V97*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[92];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-genobj.melt:4300:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[19] = 0 ;
+             MELT_LOCATION("warmelt-genobj.melt:4300:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[92] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-genobj.melt:4300:/ cppif.else");
+           /*_.IFCPP___V97*/ curfptr[91] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           /*citerblock FOREACH_IN_MULTIPLE*/ {
+            /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURCOMP__V78*/ curfptr[76]);
+   for (/*_#SUBIX__L32*/ curfnum[19] = 0;  
+	(/*_#SUBIX__L32*/ curfnum[19] >= 0) && (/*_#SUBIX__L32*/ curfnum[19] <  cit2__EACHTUP_ln);  
+	/*_#SUBIX__L32*/ curfnum[19]++) {
+   /*_.SUBTEST__V99*/ curfptr[88] = melt_multiple_nth((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]),  /*_#SUBIX__L32*/ curfnum[19]);
+   
+           
+            
+            {
+            MELT_LOCATION("warmelt-genobj.melt:4304:/ locexp");
+            meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.SUBTEST__V99*/ curfptr[88]));}
+            ;
+            if (/*_#SUBIX__L32*/ curfnum[19]<0) break;
+   } /* end cit2__EACHTUP */ 
+           
+            /*citerepilog*/
+            MELT_LOCATION("warmelt-genobj.melt:4301:/ clear");
+            /*clear*/ /*_.SUBTEST__V99*/ curfptr[88] = 0 ;
+            MELT_LOCATION("warmelt-genobj.melt:4301:/ clear");
+            /*clear*/ /*_#SUBIX__L32*/ curfnum[19] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+           ;
+           /*_.IFELSE___V95*/ curfptr[89] = /*_.IFCPP___V97*/ curfptr[91];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4299:/ clear");
+           /*clear*/ /*_.LASTUPCOMP__V96*/ curfptr[90] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:4299:/ clear");
+           /*clear*/ /*_.IFCPP___V97*/ curfptr[91] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4298:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:4298:/ block");
+         /*block*/{
+          /*_#IS_OBJECT__L33*/ curfnum[32] = 
+           (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])) == OBMAG_OBJECT);;
+          MELT_LOCATION("warmelt-genobj.melt:4306:/ cond");
+          /*cond*/ if (/*_#IS_OBJECT__L33*/ curfnum[32]) /*then*/ {
+          MELT_LOCATION("warmelt-genobj.melt:4306:/ cond.then");
+          MELT_LOCATION("warmelt-genobj.melt:4306:/ block");
+           /*block*/{
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-genobj.melt:4307:/ cppif.then");
+            MELT_LOCATION("warmelt-genobj.melt:4307:/ block");
+             /*block*/{
+              /*_#THE_CALLCOUNT__L34*/ curfnum[33] = 
+               callcount;;
+              MELT_LOCATION("warmelt-genobj.melt:4307:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[4];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-genobj.melt:4307:/ apply.arg");
+               argtab[0].bp_cstring =  "compilobj_nrep_match obj curcomp";
+               MELT_LOCATION("warmelt-genobj.melt:4307:/ apply.arg");
+               argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[33];
+               MELT_LOCATION("warmelt-genobj.melt:4307:/ apply.arg");
+               argtab[2].bp_cstring =  "warmelt-genobj.melt";
+               MELT_LOCATION("warmelt-genobj.melt:4307:/ apply.arg");
+               argtab[3].bp_long = 4307;
+               /*_.DEBUG_MSG_FUN__V102*/ curfptr[91] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              /*_.IFCPP___V101*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[91];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-genobj.melt:4307:/ clear");
+              /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[33] = 0 ;
+              MELT_LOCATION("warmelt-genobj.melt:4307:/ clear");
+              /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[91] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-genobj.melt:4307:/ cppif.else");
+            /*_.IFCPP___V101*/ curfptr[90] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            
+            {
+            MELT_LOCATION("warmelt-genobj.melt:4308:/ locexp");
+            meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]));}
+            ;
+            MELT_LOCATION("warmelt-genobj.melt:4306:/ block");
+            /*block*/{}
+            ;
+            /*epilog*/
+            MELT_LOCATION("warmelt-genobj.melt:4306:/ clear");
+            /*clear*/ /*_.IFCPP___V101*/ curfptr[90] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-genobj.melt:4306:/ cond.else");
+          
+           MELT_LOCATION("warmelt-genobj.melt:4306:/ block");
+           /*block*/{
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-genobj.melt:4311:/ cppif.then");
+            MELT_LOCATION("warmelt-genobj.melt:4311:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-genobj.melt:4311:/ cond");
+              /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+              MELT_LOCATION("warmelt-genobj.melt:4311:/ cond.then");
+              /*_.IFELSE___V104*/ curfptr[90] = (/*nil*/NULL);;
+              } else {MELT_LOCATION("warmelt-genobj.melt:4311:/ cond.else");
+              
+               MELT_LOCATION("warmelt-genobj.melt:4311:/ block");
+               /*block*/{
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-genobj.melt:4311:/ locexp");
+                 melt_assert_failed(( "unexpected curcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4311)?(4311):__LINE__, __FUNCTION__);
+;}
+                 ;
+                 /*clear*/ /*_.IFELSE___V104*/ curfptr[90] = 0 ;}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFCPP___V103*/ curfptr[91] = /*_.IFELSE___V104*/ curfptr[90];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-genobj.melt:4311:/ clear");
+              /*clear*/ /*_.IFELSE___V104*/ curfptr[90] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-genobj.melt:4311:/ cppif.else");
+            /*_.IFCPP___V103*/ curfptr[91] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            MELT_LOCATION("warmelt-genobj.melt:4310:/ block");
+            /*block*/{
+             /*_.PROGN___V105*/ curfptr[90] = /*_.IFCPP___V103*/ curfptr[91];;}
+            ;
+            /*_.IFELSE___V100*/ curfptr[92] = /*_.PROGN___V105*/ curfptr[90];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-genobj.melt:4306:/ clear");
+            /*clear*/ /*_.IFCPP___V103*/ curfptr[91] = 0 ;
+            MELT_LOCATION("warmelt-genobj.melt:4306:/ clear");
+            /*clear*/ /*_.PROGN___V105*/ curfptr[90] = 0 ;}
+           ;
+           }
+          ;
+          /*_.IFELSE___V95*/ curfptr[89] = /*_.IFELSE___V100*/ curfptr[92];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:4298:/ clear");
+          /*clear*/ /*_#IS_OBJECT__L33*/ curfnum[32] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:4298:/ clear");
+          /*clear*/ /*_.IFELSE___V100*/ curfptr[92] = 0 ;}
+         ;
+         }
+        ;
+        /*_.IFELSE___V88*/ curfptr[86] = /*_.IFELSE___V95*/ curfptr[89];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4293:/ clear");
+        /*clear*/ /*_#IS_MULTIPLE__L30*/ curfnum[17] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4293:/ clear");
+        /*clear*/ /*_.IFELSE___V95*/ curfptr[89] = 0 ;}
+       ;
+       }
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4314:/ cond");
+      /*cond*/ if (/*_.CUROBDEST__V79*/ curfptr[61]) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4314:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4314:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4314:/ locexp");
+        meltgc_append_list((melt_ptr_t)(/*_.SUBCOMPLIST__V28*/ curfptr[20]), (melt_ptr_t)(/*_.CUROBDEST__V79*/ curfptr[61]));}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4316:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.DONETESTS__V40*/ curfptr[39]), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]));}
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4318:/ block");
+      /*block*/{
+       /*_.DISPOSABLIST__V106*/ curfptr[91] = 
+        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-genobj.melt:4319:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:4319:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L35*/ curfnum[33] = 
+          callcount;;
+         MELT_LOCATION("warmelt-genobj.melt:4319:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-genobj.melt:4319:/ apply.arg");
+          argtab[0].bp_cstring =  "compilobj_nrep_match disposing curotest";
+          MELT_LOCATION("warmelt-genobj.melt:4319:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L35*/ curfnum[33];
+          MELT_LOCATION("warmelt-genobj.melt:4319:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-genobj.melt";
+          MELT_LOCATION("warmelt-genobj.melt:4319:/ apply.arg");
+          argtab[3].bp_long = 4319;
+          /*_.DEBUG_MSG_FUN__V108*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V107*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V108*/ curfptr[92];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:4319:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L35*/ curfnum[33] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4319:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V108*/ curfptr[92] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-genobj.melt:4319:/ cppif.else");
+       /*_.IFCPP___V107*/ curfptr[90] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       /*_#IS_A__L36*/ curfnum[32] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ curfrout->tabval[17])));;
+       MELT_LOCATION("warmelt-genobj.melt:4323:/ cond");
+       /*cond*/ if (/*_#IS_A__L36*/ curfnum[32]) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:4323:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:4323:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-genobj.melt:4326:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-genobj.melt:4326:/ newclosure");
+           /*newclosure*/ /*_.LAMBDA___V111*/ curfptr[110] =
+           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:4326:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V111*/ curfptr[110])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V111*/ curfptr[110])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V111*/ curfptr[110])->tabval[0] = (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]);
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:4326:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V111*/ curfptr[110])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V111*/ curfptr[110])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V111*/ curfptr[110])->tabval[1] = (melt_ptr_t)(/*_.DONETESTS__V40*/ curfptr[39]);
+          ;
+          MELT_LOCATION("warmelt-genobj.melt:4326:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V111*/ curfptr[110])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V111*/ curfptr[110])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V111*/ curfptr[110])->tabval[2] = (melt_ptr_t)(/*_.DISPOSABLIST__V106*/ curfptr[91]);
+          ;
+          /*_.LAMBDA___V110*/ curfptr[92] = /*_.LAMBDA___V111*/ curfptr[110];;}
+         ;
+         MELT_LOCATION("warmelt-genobj.melt:4324:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-genobj.melt:4324:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V110*/ curfptr[92];
+          /*_.MAPOBJECT_EVERY__V112*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.STUFFMAP__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFELSE___V109*/ curfptr[89] = /*_.MAPOBJECT_EVERY__V112*/ curfptr[111];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:4323:/ clear");
+         /*clear*/ /*_.LAMBDA___V110*/ curfptr[92] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4323:/ clear");
+         /*clear*/ /*_.MAPOBJECT_EVERY__V112*/ curfptr[111] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-genobj.melt:4323:/ cond.else");
+       
+        MELT_LOCATION("warmelt-genobj.melt:4323:/ block");
+        /*block*/{
+         /*_#__L37*/ curfnum[17] = 
+          ((/*_.CURNMATCHED__V69*/ curfptr[62]) == (/*_.NMATCHED__V15*/ curfptr[14]));;
+         MELT_LOCATION("warmelt-genobj.melt:4343:/ cond");
+         /*cond*/ if (/*_#__L37*/ curfnum[17]) /*then*/ {
+         MELT_LOCATION("warmelt-genobj.melt:4343:/ cond.then");
+         MELT_LOCATION("warmelt-genobj.melt:4343:/ block");
+          /*block*/{
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-genobj.melt:4344:/ cppif.then");
+           MELT_LOCATION("warmelt-genobj.melt:4344:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L38*/ curfnum[33] = 
+              callcount;;
+             MELT_LOCATION("warmelt-genobj.melt:4344:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-genobj.melt:4344:/ apply.arg");
+              argtab[0].bp_cstring =  "compilobj_nrep_match curnmatched == nmatched";
+              MELT_LOCATION("warmelt-genobj.melt:4344:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L38*/ curfnum[33];
+              MELT_LOCATION("warmelt-genobj.melt:4344:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-genobj.melt";
+              MELT_LOCATION("warmelt-genobj.melt:4344:/ apply.arg");
+              argtab[3].bp_long = 4344;
+              /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V114*/ curfptr[111] = /*_.DEBUG_MSG_FUN__V115*/ curfptr[114];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-genobj.melt:4344:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L38*/ curfnum[33] = 0 ;
+             MELT_LOCATION("warmelt-genobj.melt:4344:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-genobj.melt:4344:/ cppif.else");
+           /*_.IFCPP___V114*/ curfptr[111] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           /*_.IFELSE___V113*/ curfptr[92] = /*_.IFCPP___V114*/ curfptr[111];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4343:/ clear");
+           /*clear*/ /*_.IFCPP___V114*/ curfptr[111] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-genobj.melt:4343:/ cond.else");
+         
+          MELT_LOCATION("warmelt-genobj.melt:4343:/ block");
+          /*block*/{
+           /*_#IS_OBJECT__L39*/ curfnum[33] = 
+            (melt_magic_discr((melt_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62])) == OBMAG_OBJECT);;
+           MELT_LOCATION("warmelt-genobj.melt:4350:/ cond");
+           /*cond*/ if (/*_#IS_OBJECT__L39*/ curfnum[33]) /*then*/ {
+           MELT_LOCATION("warmelt-genobj.melt:4350:/ cond.then");
+           MELT_LOCATION("warmelt-genobj.melt:4350:/ block");
+            /*block*/{
+             
+             #if ENABLE_CHECKING
+              MELT_LOCATION("warmelt-genobj.melt:4351:/ cppif.then");
+             MELT_LOCATION("warmelt-genobj.melt:4351:/ block");
+              /*block*/{
+               /*_#THE_CALLCOUNT__L40*/ curfnum[39] = 
+                callcount;;
+               MELT_LOCATION("warmelt-genobj.melt:4351:/ apply");
+               /*apply*/{
+                union meltparam_un argtab[4];
+                memset(&argtab, 0, sizeof(argtab));
+                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
+                argtab[0].bp_cstring =  "compilobj_nrep_match disposing curnmatched";
+                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
+                argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[39];
+                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
+                argtab[2].bp_cstring =  "warmelt-genobj.melt";
+                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
+                argtab[3].bp_long = 4351;
+                /*_.DEBUG_MSG_FUN__V118*/ curfptr[117] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                }
+               ;
+               /*_.IFCPP___V117*/ curfptr[111] = /*_.DEBUG_MSG_FUN__V118*/ curfptr[117];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-genobj.melt:4351:/ clear");
+               /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[39] = 0 ;
+               MELT_LOCATION("warmelt-genobj.melt:4351:/ clear");
+               /*clear*/ /*_.DEBUG_MSG_FUN__V118*/ curfptr[117] = 0 ;}
+              
+              #else /*ENABLE_CHECKING*/
+              MELT_LOCATION("warmelt-genobj.melt:4351:/ cppif.else");
+             /*_.IFCPP___V117*/ curfptr[111] = (/*nil*/NULL);
+              #endif /*ENABLE_CHECKING*/
+              ;
+             
+             #if ENABLE_CHECKING
+              MELT_LOCATION("warmelt-genobj.melt:4353:/ cppif.then");
+             MELT_LOCATION("warmelt-genobj.melt:4353:/ block");
+              /*block*/{
+               /*_#THE_CALLCOUNT__L41*/ curfnum[39] = 
+                callcount;;
+               MELT_LOCATION("warmelt-genobj.melt:4353:/ apply");
+               /*apply*/{
+                union meltparam_un argtab[4];
+                memset(&argtab, 0, sizeof(argtab));
+                MELT_LOCATION("warmelt-genobj.melt:4353:/ apply.arg");
+                argtab[0].bp_cstring =  "compilobj_nrep_match omatched";
+                MELT_LOCATION("warmelt-genobj.melt:4353:/ apply.arg");
+                argtab[1].bp_long = /*_#THE_CALLCOUNT__L41*/ curfnum[39];
+                MELT_LOCATION("warmelt-genobj.melt:4353:/ apply.arg");
+                argtab[2].bp_cstring =  "warmelt-genobj.melt";
+                MELT_LOCATION("warmelt-genobj.melt:4353:/ apply.arg");
+                argtab[3].bp_long = 4353;
+                /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                }
+               ;
+               /*_.IFCPP___V119*/ curfptr[117] = /*_.DEBUG_MSG_FUN__V120*/ curfptr[119];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-genobj.melt:4353:/ clear");
+               /*clear*/ /*_#THE_CALLCOUNT__L41*/ curfnum[39] = 0 ;
+               MELT_LOCATION("warmelt-genobj.melt:4353:/ clear");
+               /*clear*/ /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] = 0 ;}
+              
+              #else /*ENABLE_CHECKING*/
+              MELT_LOCATION("warmelt-genobj.melt:4353:/ cppif.else");
+             /*_.IFCPP___V119*/ curfptr[117] = (/*nil*/NULL);
+              #endif /*ENABLE_CHECKING*/
+              ;
+             MELT_LOCATION("warmelt-genobj.melt:4355:/ block");
+             /*block*/{
+              /*_.STUTESTS__V121*/ curfptr[119] = 
+               melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V14*/ curfptr[13]), (meltobject_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62]));;
+              MELT_LOCATION("warmelt-genobj.melt:4356:/ block");
+              /*block*/{
+               /*_.REMSTUFF__V122*/ curfptr[121] = /*_.CURNMATCHED__V69*/ curfptr[62];;
+               /*citerblock FOREACH_IN_LIST*/ {
+               /* start cit3__EACHLIST */
+   for (/*_.TESTPAIR__V123*/ curfptr[122] = melt_list_first(/*_.STUTESTS__V121*/ curfptr[119]);
+	melt_magic_discr(/*_.TESTPAIR__V123*/ curfptr[122]) == OBMAG_PAIR;
+        /*_.TESTPAIR__V123*/ curfptr[122] = melt_pair_tail(/*_.TESTPAIR__V123*/ curfptr[122])) {
+	/*_.CURTEST__V124*/ curfptr[123] = melt_pair_head(/*_.TESTPAIR__V123*/ curfptr[122]); 
+               
+                MELT_LOCATION("warmelt-genobj.melt:4360:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[1];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-genobj.melt:4360:/ apply.arg");
+                 argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURTEST__V124*/ curfptr[123];
+                 /*_.LIST_FIND__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_FIND*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.DONETESTS__V40*/ curfptr[39]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                MELT_LOCATION("warmelt-genobj.melt:4360:/ cond");
+                /*cond*/ if (/*_.LIST_FIND__V125*/ curfptr[124]) /*then*/ {
+                MELT_LOCATION("warmelt-genobj.melt:4360:/ cond.then");
+                MELT_LOCATION("warmelt-genobj.melt:4360:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-genobj.melt:4361:/ compute");
+                  /*_.TESTPAIR__V123*/ curfptr[122] = /*_.SETQ___V127*/ curfptr[126] = (/*nil*/NULL);;
+                  /*_.IFELSE___V126*/ curfptr[125] = /*_.SETQ___V127*/ curfptr[126];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-genobj.melt:4360:/ clear");
+                  /*clear*/ /*_.SETQ___V127*/ curfptr[126] = 0 ;}
+                 ;
+                } else {MELT_LOCATION("warmelt-genobj.melt:4360:/ cond.else");
+                
+                 MELT_LOCATION("warmelt-genobj.melt:4360:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-genobj.melt:4362:/ compute");
+                  /*_.REMSTUFF__V122*/ curfptr[121] = /*_.SETQ___V128*/ curfptr[126] = (/*nil*/NULL);;
+                  /*_.IFELSE___V126*/ curfptr[125] = /*_.SETQ___V128*/ curfptr[126];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-genobj.melt:4360:/ clear");
+                  /*clear*/ /*_.SETQ___V128*/ curfptr[126] = 0 ;}
+                 ;
+                 }
+                ;
+                } /* end cit3__EACHLIST */
+               
+                /*citerepilog*/
+                MELT_LOCATION("warmelt-genobj.melt:4357:/ clear");
+                /*clear*/ /*_.TESTPAIR__V123*/ curfptr[122] = 0 ;
+                MELT_LOCATION("warmelt-genobj.melt:4357:/ clear");
+                /*clear*/ /*_.CURTEST__V124*/ curfptr[123] = 0 ;
+                MELT_LOCATION("warmelt-genobj.melt:4357:/ clear");
+                /*clear*/ /*_.LIST_FIND__V125*/ curfptr[124] = 0 ;
+                MELT_LOCATION("warmelt-genobj.melt:4357:/ clear");
+                /*clear*/ /*_.IFELSE___V126*/ curfptr[125] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+               ;
+               MELT_LOCATION("warmelt-genobj.melt:4364:/ cond");
+               /*cond*/ if (/*_.REMSTUFF__V122*/ curfptr[121]) /*then*/ {
+               MELT_LOCATION("warmelt-genobj.melt:4364:/ cond.then");
+               MELT_LOCATION("warmelt-genobj.melt:4364:/ block");
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-genobj.melt:4365:/ locexp");
+                 meltgc_append_list((melt_ptr_t)(/*_.DISPOSABLIST__V106*/ curfptr[91]), (melt_ptr_t)(/*_.REMSTUFF__V122*/ curfptr[121]));}
+                 ;
+                 /*epilog*/}
+                ;
+               } /*noelse*/
+               ;
+               /*epilog*/
+               MELT_LOCATION("warmelt-genobj.melt:4356:/ clear");
+               /*clear*/ /*_.REMSTUFF__V122*/ curfptr[121] = 0 ;}
+              ;
+              /*epilog*/
+              MELT_LOCATION("warmelt-genobj.melt:4355:/ clear");
+              /*clear*/ /*_.STUTESTS__V121*/ curfptr[119] = 0 ;}
+             ;
+             MELT_LOCATION("warmelt-genobj.melt:4350:/ block");
+             /*block*/{}
+             ;
+             /*epilog*/
+             MELT_LOCATION("warmelt-genobj.melt:4350:/ clear");
+             /*clear*/ /*_.IFCPP___V117*/ curfptr[111] = 0 ;
+             MELT_LOCATION("warmelt-genobj.melt:4350:/ clear");
+             /*clear*/ /*_.IFCPP___V119*/ curfptr[117] = 0 ;}
+            ;
+           } else {MELT_LOCATION("warmelt-genobj.melt:4350:/ cond.else");
+           
+            /*_.IFELSE___V116*/ curfptr[114] = NULL;;
+            }
+           ;
+           /*_.IFELSE___V113*/ curfptr[92] = /*_.IFELSE___V116*/ curfptr[114];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4343:/ clear");
+           /*clear*/ /*_#IS_OBJECT__L39*/ curfnum[33] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:4343:/ clear");
+           /*clear*/ /*_.IFELSE___V116*/ curfptr[114] = 0 ;}
+          ;
+          }
+         ;
+         /*_.IFELSE___V109*/ curfptr[89] = /*_.IFELSE___V113*/ curfptr[92];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:4323:/ clear");
+         /*clear*/ /*_#__L37*/ curfnum[17] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4323:/ clear");
+         /*clear*/ /*_.IFELSE___V113*/ curfptr[92] = 0 ;}
+        ;
+        }
+       ;
+       /*citerblock FOREACH_IN_LIST*/ {
+       /* start cit4__EACHLIST */
+   for (/*_.DISPAIR__V129*/ curfptr[126] = melt_list_first(/*_.DISPOSABLIST__V106*/ curfptr[91]);
+	melt_magic_discr(/*_.DISPAIR__V129*/ curfptr[126]) == OBMAG_PAIR;
+        /*_.DISPAIR__V129*/ curfptr[126] = melt_pair_tail(/*_.DISPAIR__V129*/ curfptr[126])) {
+	/*_.DISPSTUFF__V130*/ curfptr[121] = melt_pair_head(/*_.DISPAIR__V129*/ curfptr[126]); 
+       
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4371:/ locexp");
+        meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.STUFFMAP__V14*/ curfptr[13]), 
+			      (meltobject_ptr_t)(/*_.DISPSTUFF__V130*/ curfptr[121]));}
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-genobj.melt:4372:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:4372:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L42*/ curfnum[39] = 
+           callcount;;
+          MELT_LOCATION("warmelt-genobj.melt:4372:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
+           argtab[0].bp_cstring =  "compilobj_nrep_match dispstuff";
+           MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L42*/ curfnum[39];
+           MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-genobj.melt";
+           MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
+           argtab[3].bp_long = 4372;
+           /*_.DEBUG_MSG_FUN__V132*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISPSTUFF__V130*/ curfptr[121]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V131*/ curfptr[119] = /*_.DEBUG_MSG_FUN__V132*/ curfptr[111];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-genobj.melt:4372:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L42*/ curfnum[39] = 0 ;
+          MELT_LOCATION("warmelt-genobj.melt:4372:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V132*/ curfptr[111] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-genobj.melt:4372:/ cppif.else");
+        /*_.IFCPP___V131*/ curfptr[119] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-genobj.melt:4373:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-genobj.melt:4373:/ msend");
+         /*msend*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-genobj.melt:4373:/ ojbmsend.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+          /*_.DISPOBJ__V134*/ curfptr[114] = meltgc_send((melt_ptr_t)(/*_.DISPSTUFF__V130*/ curfptr[121]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-genobj.melt:4374:/ cppif.then");
+         MELT_LOCATION("warmelt-genobj.melt:4374:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L43*/ curfnum[33] = 
+            callcount;;
+           MELT_LOCATION("warmelt-genobj.melt:4374:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-genobj.melt:4374:/ apply.arg");
+            argtab[0].bp_cstring =  "compilobj_nrep_match dispobj";
+            MELT_LOCATION("warmelt-genobj.melt:4374:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L43*/ curfnum[33];
+            MELT_LOCATION("warmelt-genobj.melt:4374:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-genobj.melt";
+            MELT_LOCATION("warmelt-genobj.melt:4374:/ apply.arg");
+            argtab[3].bp_long = 4374;
+            /*_.DEBUG_MSG_FUN__V136*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISPOBJ__V134*/ curfptr[114]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V135*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V136*/ curfptr[111];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4374:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L43*/ curfnum[33] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:4374:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V136*/ curfptr[111] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-genobj.melt:4374:/ cppif.else");
+         /*_.IFCPP___V135*/ curfptr[92] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-genobj.melt:4375:/ cppif.then");
+         MELT_LOCATION("warmelt-genobj.melt:4375:/ block");
+          /*block*/{
+           /*_#IS_A__L44*/ curfnum[17] = 
+            melt_is_instance_of((melt_ptr_t)(/*_.DISPOBJ__V134*/ curfptr[114]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[23])));;
+           MELT_LOCATION("warmelt-genobj.melt:4375:/ cond");
+           /*cond*/ if (/*_#IS_A__L44*/ curfnum[17]) /*then*/ {
+           MELT_LOCATION("warmelt-genobj.melt:4375:/ cond.then");
+           /*_.IFELSE___V138*/ curfptr[137] = (/*nil*/NULL);;
+           } else {MELT_LOCATION("warmelt-genobj.melt:4375:/ cond.else");
+           
+            MELT_LOCATION("warmelt-genobj.melt:4375:/ block");
+            /*block*/{
+             /*block*/{
+              
+              {
+              MELT_LOCATION("warmelt-genobj.melt:4375:/ locexp");
+              melt_assert_failed(( "check dispobj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4375)?(4375):__LINE__, __FUNCTION__);
+;}
+              ;
+              /*clear*/ /*_.IFELSE___V138*/ curfptr[137] = 0 ;}
+             ;
+             /*epilog*/}
+            ;
+            }
+           ;
+           /*_.IFCPP___V137*/ curfptr[111] = /*_.IFELSE___V138*/ curfptr[137];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4375:/ clear");
+           /*clear*/ /*_#IS_A__L44*/ curfnum[17] = 0 ;
+           MELT_LOCATION("warmelt-genobj.melt:4375:/ clear");
+           /*clear*/ /*_.IFELSE___V138*/ curfptr[137] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-genobj.melt:4375:/ cppif.else");
+         /*_.IFCPP___V137*/ curfptr[111] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         /*_#__L45*/ curfnum[39] = 
+          ((/*_.DISPOBJ__V134*/ curfptr[114]) != (/*_.OMATCHED__V44*/ curfptr[43]));;
+         MELT_LOCATION("warmelt-genobj.melt:4377:/ cond");
+         /*cond*/ if (/*_#__L45*/ curfnum[39]) /*then*/ {
+         MELT_LOCATION("warmelt-genobj.melt:4377:/ cond.then");
+         MELT_LOCATION("warmelt-genobj.melt:4377:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-genobj.melt:4378:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[1];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-genobj.melt:4378:/ apply.arg");
+            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+            /*_.DISPOSE_OBJLOC__V140*/ curfptr[139] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.DISPOBJ__V134*/ curfptr[114]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFELSE___V139*/ curfptr[137] = /*_.DISPOSE_OBJLOC__V140*/ curfptr[139];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4377:/ clear");
+           /*clear*/ /*_.DISPOSE_OBJLOC__V140*/ curfptr[139] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-genobj.melt:4377:/ cond.else");
+         
+          MELT_LOCATION("warmelt-genobj.melt:4377:/ block");
+          /*block*/{
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-genobj.melt:4379:/ cppif.then");
+           MELT_LOCATION("warmelt-genobj.melt:4379:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L46*/ curfnum[33] = 
+              callcount;;
+             MELT_LOCATION("warmelt-genobj.melt:4379:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-genobj.melt:4379:/ apply.arg");
+              argtab[0].bp_cstring =  "compilobj_nrep_match dont dispose omatched";
+              MELT_LOCATION("warmelt-genobj.melt:4379:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L46*/ curfnum[33];
+              MELT_LOCATION("warmelt-genobj.melt:4379:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-genobj.melt";
+              MELT_LOCATION("warmelt-genobj.melt:4379:/ apply.arg");
+              argtab[3].bp_long = 4379;
+              /*_.DEBUG_MSG_FUN__V142*/ curfptr[141] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V141*/ curfptr[139] = /*_.DEBUG_MSG_FUN__V142*/ curfptr[141];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-genobj.melt:4379:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L46*/ curfnum[33] = 0 ;
+             MELT_LOCATION("warmelt-genobj.melt:4379:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V142*/ curfptr[141] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-genobj.melt:4379:/ cppif.else");
+           /*_.IFCPP___V141*/ curfptr[139] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           /*_.IFELSE___V139*/ curfptr[137] = /*_.IFCPP___V141*/ curfptr[139];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-genobj.melt:4377:/ clear");
+           /*clear*/ /*_.IFCPP___V141*/ curfptr[139] = 0 ;}
+          ;
+          }
+         ;
+         /*_.LET___V133*/ curfptr[117] = /*_.IFELSE___V139*/ curfptr[137];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
+         /*clear*/ /*_.DISPOBJ__V134*/ curfptr[114] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
+         /*clear*/ /*_.IFCPP___V135*/ curfptr[92] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
+         /*clear*/ /*_.IFCPP___V137*/ curfptr[111] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
+         /*clear*/ /*_#__L45*/ curfnum[39] = 0 ;
+         MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
+         /*clear*/ /*_.IFELSE___V139*/ curfptr[137] = 0 ;}
+        ;
+        } /* end cit4__EACHLIST */
+       
+        /*citerepilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4368:/ clear");
+        /*clear*/ /*_.DISPAIR__V129*/ curfptr[126] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4368:/ clear");
+        /*clear*/ /*_.DISPSTUFF__V130*/ curfptr[121] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4368:/ clear");
+        /*clear*/ /*_.IFCPP___V131*/ curfptr[119] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4368:/ clear");
+        /*clear*/ /*_.LET___V133*/ curfptr[117] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4318:/ clear");
+       /*clear*/ /*_.DISPOSABLIST__V106*/ curfptr[91] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4318:/ clear");
+       /*clear*/ /*_.IFCPP___V107*/ curfptr[90] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4318:/ clear");
+       /*clear*/ /*_#IS_A__L36*/ curfnum[32] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4318:/ clear");
+       /*clear*/ /*_.IFELSE___V109*/ curfptr[89] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+      /*clear*/ /*_.IFCPP___V80*/ curfptr[58] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+      /*clear*/ /*_.IFCPP___V82*/ curfptr[59] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+      /*clear*/ /*_.IFCPP___V84*/ curfptr[82] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+      /*clear*/ /*_.IFCPP___V86*/ curfptr[84] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+      /*clear*/ /*_#IS_LIST__L28*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+      /*clear*/ /*_.IFELSE___V88*/ curfptr[86] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4283:/ clear");
+     /*clear*/ /*_.CUROBDEST__V79*/ curfptr[61] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4274:/ clear");
+    /*clear*/ /*_.LABINS__V68*/ curfptr[66] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4274:/ clear");
+    /*clear*/ /*_.CURNMATCHED__V69*/ curfptr[62] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4274:/ clear");
+    /*clear*/ /*_.IFCPP___V70*/ curfptr[63] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4274:/ clear");
+    /*clear*/ /*_.LET___V72*/ curfptr[60] = 0 ;}
+   ;
+   if (/*_#TESTIX__L11*/ curfnum[0]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_.CUROTEST__V51*/ curfptr[49] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_#TESTIX__L11*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_#IS_A__L16*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4248:/ clear");
+   /*clear*/ /*_.IF___V58*/ curfptr[56] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4381:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.OENDLABEL__V35*/ curfptr[34]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4383:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4383:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[26]);
+   /*_.LIST_TO_MULTIPLE__V143*/ curfptr[141] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.SUBCOMPLIST__V28*/ curfptr[20]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4382:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OMBLOC__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[6])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4382:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4382:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4382:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OMULBLO_SUBCOMP", melt_magic_discr((melt_ptr_t)(/*_.OMBLOC__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.OMBLOC__V30*/ curfptr[29]), (3), (/*_.LIST_TO_MULTIPLE__V143*/ curfptr[141]), "OMULBLO_SUBCOMP");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4382:/ touch");
+    meltgc_touch(/*_.OMBLOC__V30*/ curfptr[29]);
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4384:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4384:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L47*/ curfnum[17] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4384:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4384:/ apply.arg");
+     argtab[0].bp_cstring =  "compilobj_nrep_match return ombloc";
+     MELT_LOCATION("warmelt-genobj.melt:4384:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L47*/ curfnum[17];
+     MELT_LOCATION("warmelt-genobj.melt:4384:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4384:/ apply.arg");
+     argtab[3].bp_long = 4384;
+     /*_.DEBUG_MSG_FUN__V145*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMBLOC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V144*/ curfptr[139] = /*_.DEBUG_MSG_FUN__V145*/ curfptr[114];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4384:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L47*/ curfnum[17] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4384:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V145*/ curfptr[114] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4384:/ cppif.else");
+  /*_.IFCPP___V144*/ curfptr[139] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4385:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OMBLOC__V30*/ curfptr[29];;
+   MELT_LOCATION("warmelt-genobj.melt:4385:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V146*/ curfptr[92];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.NCTYP__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.NTESTS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.STUFFMAP__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.MATMAP__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.LET___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.MATLABEL__V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.LET___V24*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.ENDLABEL__V27*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.SUBCOMPLIST__V28*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.OBODYL__V29*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.OMBLOC__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.OFIRSTGOTO__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.OENDLABEL__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.TCX__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.DONETESTS__V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.COMPILE_OBJ__V43*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.OMATCHED__V44*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.LIST_TO_MULTIPLE__V143*/ curfptr[141] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.IFCPP___V144*/ curfptr[139] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4191:/ clear");
+  /*clear*/ /*_.RETURN___V146*/ curfptr[92] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:4187:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILOBJ_NREP_MATCH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_134_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_134_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ getarg");
+ /*_.STUFF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.STUTESTS__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.STUTESTS__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4326:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4327:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4327:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4327:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4327:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_match succ stuff";
+    MELT_LOCATION("warmelt-genobj.melt:4327:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4327:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4327:/ apply.arg");
+    argtab[3].bp_long = 4327;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STUFF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4327:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4327:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4327:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4328:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4328:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4328:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4328:/ apply.arg");
+    argtab[0].bp_cstring =  "compilobj_nrep_match succ stutest";
+    MELT_LOCATION("warmelt-genobj.melt:4328:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4328:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4328:/ apply.arg");
+    argtab[3].bp_long = 4328;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STUTESTS__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4328:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4328:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4328:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#__L3*/ curfnum[0] = 
+  ((/*_.STUFF__V2*/ curfptr[1]) != ((/*~OMATCHED*/ curfclos->tabval[0])));;
+ MELT_LOCATION("warmelt-genobj.melt:4329:/ cond");
+ /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4329:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4329:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4330:/ block");
+   /*block*/{
+    /*_.REMSTUFF__V8*/ curfptr[6] = /*_.STUFF__V2*/ curfptr[1];;
+    /*citerblock FOREACH_IN_LIST*/ {
+    /* start cit1__EACHLIST */
+   for (/*_.TESTPAIR__V9*/ curfptr[8] = melt_list_first(/*_.STUTESTS__V3*/ curfptr[2]);
+	melt_magic_discr(/*_.TESTPAIR__V9*/ curfptr[8]) == OBMAG_PAIR;
+        /*_.TESTPAIR__V9*/ curfptr[8] = melt_pair_tail(/*_.TESTPAIR__V9*/ curfptr[8])) {
+	/*_.CURTEST__V10*/ curfptr[9] = melt_pair_head(/*_.TESTPAIR__V9*/ curfptr[8]); 
+    
+     MELT_LOCATION("warmelt-genobj.melt:4334:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4334:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURTEST__V10*/ curfptr[9];
+      /*_.LIST_FIND__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_FIND*/ curfrout->tabval[1])), (melt_ptr_t)((/*~DONETESTS*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4334:/ cond");
+     /*cond*/ if (/*_.LIST_FIND__V11*/ curfptr[10]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4334:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:4334:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:4335:/ compute");
+       /*_.TESTPAIR__V9*/ curfptr[8] = /*_.SETQ___V13*/ curfptr[12] = (/*nil*/NULL);;
+       /*_.IFELSE___V12*/ curfptr[11] = /*_.SETQ___V13*/ curfptr[12];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4334:/ clear");
+       /*clear*/ /*_.SETQ___V13*/ curfptr[12] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4334:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4334:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:4336:/ compute");
+       /*_.REMSTUFF__V8*/ curfptr[6] = /*_.SETQ___V14*/ curfptr[12] = (/*nil*/NULL);;
+       /*_.IFELSE___V12*/ curfptr[11] = /*_.SETQ___V14*/ curfptr[12];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4334:/ clear");
+       /*clear*/ /*_.SETQ___V14*/ curfptr[12] = 0 ;}
+      ;
+      }
+     ;
+     } /* end cit1__EACHLIST */
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4331:/ clear");
+     /*clear*/ /*_.TESTPAIR__V9*/ curfptr[8] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4331:/ clear");
+     /*clear*/ /*_.CURTEST__V10*/ curfptr[9] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4331:/ clear");
+     /*clear*/ /*_.LIST_FIND__V11*/ curfptr[10] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4331:/ clear");
+     /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4338:/ cond");
+    /*cond*/ if (/*_.REMSTUFF__V8*/ curfptr[6]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4338:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4338:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4339:/ locexp");
+      meltgc_append_list((melt_ptr_t)((/*~DISPOSABLIST*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.REMSTUFF__V8*/ curfptr[6]));}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4330:/ clear");
+    /*clear*/ /*_.REMSTUFF__V8*/ curfptr[6] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ clear");
+ /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_134_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMTESTER_LABELINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ getarg");
+ /*_.NT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4391:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4392:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4392:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4392:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4392:/ apply.arg");
+    argtab[0].bp_cstring =  "normtester_labelinstr start nt";
+    MELT_LOCATION("warmelt-genobj.melt:4392:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4392:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4392:/ apply.arg");
+    argtab[3].bp_long = 4392;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4392:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4392:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4392:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4393:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4393:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4393:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4393:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4393:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4393:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4393:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4393)?(4393):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4393:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4393:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4393:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#IS_NOT_A__L3*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[2])));;
+ MELT_LOCATION("warmelt-genobj.melt:4394:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4394:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4394:/ block");
+  /*block*/{
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4396:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4396:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4396:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4396:/ apply.arg");
+      argtab[0].bp_cstring =  "normtester_labelinstr return nil";
+      MELT_LOCATION("warmelt-genobj.melt:4396:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+      MELT_LOCATION("warmelt-genobj.melt:4396:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4396:/ apply.arg");
+      argtab[3].bp_long = 4396;
+      /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4396:/ cppif.else");
+   /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4397:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+    MELT_LOCATION("warmelt-genobj.melt:4397:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4395:/ block");
+   /*block*/{
+    /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[9];;}
+   ;
+   /*_.IF___V8*/ curfptr[6] = /*_.PROGN___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4394:/ clear");
+   /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4394:/ clear");
+   /*clear*/ /*_.RETURN___V11*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4394:/ clear");
+   /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:4394:/ cond.else");
+ 
+  /*_.IF___V8*/ curfptr[6] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4398:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4399:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[9] = slot; };
+  ;
+  /*_#NTESTIX__L5*/ curfnum[3] = 
+   (melt_get_int((melt_ptr_t)(/*_.NT__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4401:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V15*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4402:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V16*/ curfptr[15] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4404:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4404:/ block");
+   /*block*/{
+    /*_#IS_A__L6*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:4404:/ cond");
+    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4404:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4404:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4404:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4404:/ locexp");
+       melt_assert_failed(( "check normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4404)?(4404):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4404:/ clear");
+    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4404:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4404:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4405:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4405:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4406:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4406:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4406:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), 2, "NMATCH_TESTS");/*_.NMATCH_TESTS__V20*/ curfptr[19] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4406:/ cond.else");
+    
+     /*_.NMATCH_TESTS__V20*/ curfptr[19] = NULL;;
+     }
+    ;
+    /*_.MULTIPLE_NTH__V21*/ curfptr[20] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.NMATCH_TESTS__V20*/ curfptr[19]), (/*_#NTESTIX__L5*/ curfnum[3])));;
+    /*_#__L7*/ curfnum[5] = 
+     ((/*_.MULTIPLE_NTH__V21*/ curfptr[20]) == (/*_.NT__V2*/ curfptr[1]));;
+    MELT_LOCATION("warmelt-genobj.melt:4405:/ cond");
+    /*cond*/ if (/*_#__L7*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4405:/ cond.then");
+    /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4405:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4405:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4405:/ locexp");
+       melt_assert_failed(( "check valid normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4405)?(4405):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4405:/ clear");
+    /*clear*/ /*_.NMATCH_TESTS__V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4405:/ clear");
+    /*clear*/ /*_.MULTIPLE_NTH__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4405:/ clear");
+    /*clear*/ /*_#__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4405:/ clear");
+    /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4405:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4409:/ block");
+  /*block*/{
+   /*_.PREFIX__V24*/ curfptr[20] = 
+    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V16*/ curfptr[15]), (meltobject_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]));;
+   MELT_LOCATION("warmelt-genobj.melt:4411:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4411:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJLABELINSTR");/*_.INST__V26*/ curfptr[25] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4411:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (0), (/*_.NLOC__V14*/ curfptr[9]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4411:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.PREFIX__V24*/ curfptr[20]), "OBLAB_PREFIX");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4411:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (2), (/*_.NT__V2*/ curfptr[1]), "OBLAB_RANK");
+    ;
+    /*_.LABINS__V25*/ curfptr[21] = /*_.INST__V26*/ curfptr[25];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4416:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4416:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4416:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4416:/ apply.arg");
+      argtab[0].bp_cstring =  "normtester_labelinstr result labins";
+      MELT_LOCATION("warmelt-genobj.melt:4416:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:4416:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4416:/ apply.arg");
+      argtab[3].bp_long = 4416;
+      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LABINS__V25*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4416:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4416:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4416:/ cppif.else");
+   /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4417:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4417:/ block");
+    /*block*/{
+     /*_#IS_STRING__L9*/ curfnum[5] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V24*/ curfptr[20])) == OBMAG_STRING);;
+     MELT_LOCATION("warmelt-genobj.melt:4417:/ cond");
+     /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4417:/ cond.then");
+     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4417:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4417:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4417:/ locexp");
+        melt_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4417)?(4417):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4417:/ clear");
+     /*clear*/ /*_#IS_STRING__L9*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4417:/ clear");
+     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4417:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4418:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.LABINS__V25*/ curfptr[21];;
+    MELT_LOCATION("warmelt-genobj.melt:4418:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V23*/ curfptr[19] = /*_.RETURN___V31*/ curfptr[29];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4409:/ clear");
+   /*clear*/ /*_.PREFIX__V24*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4409:/ clear");
+   /*clear*/ /*_.LABINS__V25*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4409:/ clear");
+   /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4409:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4409:/ clear");
+   /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[8] = /*_.LET___V23*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_.NLOC__V14*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_#NTESTIX__L5*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_.NORMATCH__V15*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_.MATCHMAP__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4398:/ clear");
+  /*clear*/ /*_.LET___V23*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:4391:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
+ /*clear*/ /*_.IF___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMTESTER_LABELINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMTESTER_GOTOINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ getarg");
+ /*_.NT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4423:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4424:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4424:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4424:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4424:/ apply.arg");
+    argtab[0].bp_cstring =  "normtester_gotoinstr start nt";
+    MELT_LOCATION("warmelt-genobj.melt:4424:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4424:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4424:/ apply.arg");
+    argtab[3].bp_long = 4424;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4424:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4424:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4424:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4425:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4425:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4425:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4425:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4425:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4425:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4425:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4425)?(4425):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4425:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4425:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4425:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#IS_NOT_A__L3*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[2])));;
+ MELT_LOCATION("warmelt-genobj.melt:4426:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4426:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4426:/ block");
+  /*block*/{
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4428:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4428:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4428:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4428:/ apply.arg");
+      argtab[0].bp_cstring =  "normtester_gotoinstr return nil";
+      MELT_LOCATION("warmelt-genobj.melt:4428:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+      MELT_LOCATION("warmelt-genobj.melt:4428:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4428:/ apply.arg");
+      argtab[3].bp_long = 4428;
+      /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4428:/ cppif.else");
+   /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4429:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+    MELT_LOCATION("warmelt-genobj.melt:4429:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4427:/ block");
+   /*block*/{
+    /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[9];;}
+   ;
+   /*_.IF___V8*/ curfptr[6] = /*_.PROGN___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4426:/ clear");
+   /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4426:/ clear");
+   /*clear*/ /*_.RETURN___V11*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4426:/ clear");
+   /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:4426:/ cond.else");
+ 
+  /*_.IF___V8*/ curfptr[6] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4430:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4431:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[9] = slot; };
+  ;
+  /*_#NTESTIX__L5*/ curfnum[3] = 
+   (melt_get_int((melt_ptr_t)(/*_.NT__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4433:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V15*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4434:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V16*/ curfptr[15] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4436:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4436:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4436:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4436:/ apply.arg");
+     argtab[0].bp_cstring =  "normtester_gotoinstr normatch";
+     MELT_LOCATION("warmelt-genobj.melt:4436:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4436:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4436:/ apply.arg");
+     argtab[3].bp_long = 4436;
+     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4436:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4436:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4436:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4437:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4437:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-genobj.melt:4437:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4437:/ cond.then");
+    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4437:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4437:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4437:/ locexp");
+       melt_assert_failed(( "check normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4437)?(4437):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4437:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4437:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4437:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4438:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4438:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4439:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4439:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4439:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), 2, "NMATCH_TESTS");/*_.NMATCH_TESTS__V22*/ curfptr[21] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4439:/ cond.else");
+    
+     /*_.NMATCH_TESTS__V22*/ curfptr[21] = NULL;;
+     }
+    ;
+    /*_.MULTIPLE_NTH__V23*/ curfptr[22] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.NMATCH_TESTS__V22*/ curfptr[21]), (/*_#NTESTIX__L5*/ curfnum[3])));;
+    /*_#__L8*/ curfnum[5] = 
+     ((/*_.MULTIPLE_NTH__V23*/ curfptr[22]) == (/*_.NT__V2*/ curfptr[1]));;
+    MELT_LOCATION("warmelt-genobj.melt:4438:/ cond");
+    /*cond*/ if (/*_#__L8*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4438:/ cond.then");
+    /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4438:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4438:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4438:/ locexp");
+       melt_assert_failed(( "check valid normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4438)?(4438):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4438:/ clear");
+    /*clear*/ /*_.NMATCH_TESTS__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4438:/ clear");
+    /*clear*/ /*_.MULTIPLE_NTH__V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4438:/ clear");
+    /*clear*/ /*_#__L8*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4438:/ clear");
+    /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4438:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4442:/ block");
+  /*block*/{
+   /*_.PREFIX__V26*/ curfptr[22] = 
+    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V16*/ curfptr[15]), (meltobject_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]));;
+   MELT_LOCATION("warmelt-genobj.melt:4444:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4444:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V28*/ curfptr[27] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4444:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V14*/ curfptr[9]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4444:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.PREFIX__V26*/ curfptr[22]), "OBGOTO_PREFIX");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4444:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.NT__V2*/ curfptr[1]), "OBGOTO_RANK");
+    ;
+    /*_.GOINS__V27*/ curfptr[23] = /*_.INST__V28*/ curfptr[27];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4449:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4449:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4449:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4449:/ apply.arg");
+      argtab[0].bp_cstring =  "normtester_gotoinstr result goins";
+      MELT_LOCATION("warmelt-genobj.melt:4449:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:4449:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4449:/ apply.arg");
+      argtab[3].bp_long = 4449;
+      /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOINS__V27*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4449:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4449:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4449:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4450:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4450:/ block");
+    /*block*/{
+     /*_#IS_STRING__L10*/ curfnum[5] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V26*/ curfptr[22])) == OBMAG_STRING);;
+     MELT_LOCATION("warmelt-genobj.melt:4450:/ cond");
+     /*cond*/ if (/*_#IS_STRING__L10*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4450:/ cond.then");
+     /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4450:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4450:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4450:/ locexp");
+        melt_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4450)?(4450):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4450:/ clear");
+     /*clear*/ /*_#IS_STRING__L10*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4450:/ clear");
+     /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4450:/ cppif.else");
+   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4451:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V27*/ curfptr[23];;
+    MELT_LOCATION("warmelt-genobj.melt:4451:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V25*/ curfptr[21] = /*_.RETURN___V33*/ curfptr[31];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4442:/ clear");
+   /*clear*/ /*_.PREFIX__V26*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4442:/ clear");
+   /*clear*/ /*_.GOINS__V27*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4442:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4442:/ clear");
+   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4442:/ clear");
+   /*clear*/ /*_.RETURN___V33*/ curfptr[31] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[8] = /*_.LET___V25*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.NLOC__V14*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_#NTESTIX__L5*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.NORMATCH__V15*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.MATCHMAP__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4430:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[8];;
+  MELT_LOCATION("warmelt-genobj.melt:4423:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
+ /*clear*/ /*_.IF___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMTESTER_GOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("ENDMATCH_GOTOINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ getarg");
+ /*_.NMA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NLOC__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4456:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4457:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4457:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:4457:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4457:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4457:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4457:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4457:/ locexp");
+      melt_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4457)?(4457):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4457:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4457:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4457:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4458:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4458:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4458:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4458:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4458:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4458:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4458:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4458)?(4458):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4458:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4458:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4458:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4459:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4459:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4459:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4459:/ apply.arg");
+    argtab[0].bp_cstring =  "endmatch_gotoinstr nma";
+    MELT_LOCATION("warmelt-genobj.melt:4459:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4459:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4459:/ apply.arg");
+    argtab[3].bp_long = 4459;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4459:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4459:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4459:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:4460:/ locexp");
+  
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "endmatch_gotoinstr"), (15));
+#endif
+;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4461:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4462:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V12*/ curfptr[11] = slot; };
+  ;
+  /*_.PREFIX__V13*/ curfptr[12] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V12*/ curfptr[11]), (meltobject_ptr_t)(/*_.NMA__V2*/ curfptr[1]));;
+  /*_.LABUF__V14*/ curfptr[13] = 
+   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4466:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V14*/ curfptr[13]), melt_string_str((melt_ptr_t)(/*_.PREFIX__V13*/ curfptr[12])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4467:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V14*/ curfptr[13]), ( "_end /*endmatch*/"));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4468:/ block");
+  /*block*/{
+   /*_.STRBUF2STRING__V16*/ curfptr[15] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V14*/ curfptr[13]))));;
+   MELT_LOCATION("warmelt-genobj.melt:4469:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4469:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V18*/ curfptr[17] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4469:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.NLOC__V4*/ curfptr[3]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4469:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.STRBUF2STRING__V16*/ curfptr[15]), "OBGOTO_PREFIX");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4469:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), ((/*nil*/NULL)), "OBGOTO_RANK");
+    ;
+    /*_.GOINS__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4475:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4475:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4475:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4475:/ apply.arg");
+      argtab[0].bp_cstring =  "endmatch_gotoinstr goins";
+      MELT_LOCATION("warmelt-genobj.melt:4475:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:4475:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4475:/ apply.arg");
+      argtab[3].bp_long = 4475;
+      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GOINS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4475:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4475:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4475:/ cppif.else");
+   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4476:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V17*/ curfptr[16];;
+    MELT_LOCATION("warmelt-genobj.melt:4476:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V15*/ curfptr[14] = /*_.RETURN___V21*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4468:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4468:/ clear");
+   /*clear*/ /*_.GOINS__V17*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4468:/ clear");
+   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4468:/ clear");
+   /*clear*/ /*_.RETURN___V21*/ curfptr[19] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V15*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4461:/ clear");
+  /*clear*/ /*_.MATCHMAP__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4461:/ clear");
+  /*clear*/ /*_.PREFIX__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4461:/ clear");
+  /*clear*/ /*_.LABUF__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4461:/ clear");
+  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-genobj.melt:4456:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("ENDMATCH_GOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 24
+  void* varptr[24];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<24; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 24;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("TESTMATCH_GOTOINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ getarg");
+ /*_.NTEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NMA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NMA__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4480:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4481:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4481:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4481:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4481:/ apply.arg");
+    argtab[0].bp_cstring =  "testmatch_gotoinstr ntest";
+    MELT_LOCATION("warmelt-genobj.melt:4481:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4481:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4481:/ apply.arg");
+    argtab[3].bp_long = 4481;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTEST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4481:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4481:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4481:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4482:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4482:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4482:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4482:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4482:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4482:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4482:/ locexp");
+      melt_assert_failed(( "check ntest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4482)?(4482):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4482:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4482:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4482:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4483:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4483:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMA__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4483:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4483:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4483:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4483:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4483:/ locexp");
+      melt_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4483)?(4483):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4483:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4483:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4483:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4484:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4484:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4484:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4484:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4484:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4484:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4484:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4484)?(4484):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4484:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:4485:/ locexp");
+  
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "testmatch_gotoinstr"), (15));
+#endif
+;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4486:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4487:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.PREFIX__V16*/ curfptr[15] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V15*/ curfptr[14]), (meltobject_ptr_t)(/*_.NMA__V3*/ curfptr[2]));;
+  /*_.LABUF__V17*/ curfptr[16] = 
+   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4491:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]), melt_string_str((melt_ptr_t)(/*_.PREFIX__V16*/ curfptr[15])));}
+  ;
+  /*_#GET_INT__L5*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.NTEST__V2*/ curfptr[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4492:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]), (/*_#GET_INT__L5*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4493:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]), ( " /*testmatch*/"));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4494:/ block");
+  /*block*/{
+   /*_.STRBUF2STRING__V19*/ curfptr[18] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[6])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]))));;
+   MELT_LOCATION("warmelt-genobj.melt:4495:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4495:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[5])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V21*/ curfptr[20] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.NLOC__V5*/ curfptr[4]), "OBI_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.STRBUF2STRING__V19*/ curfptr[18]), "OBGOTO_PREFIX");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4495:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), ((/*nil*/NULL)), "OBGOTO_RANK");
+    ;
+    /*_.GOINS__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4501:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4501:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4501:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4501:/ apply.arg");
+      argtab[0].bp_cstring =  "testmatch_gotoinstr goins";
+      MELT_LOCATION("warmelt-genobj.melt:4501:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:4501:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4501:/ apply.arg");
+      argtab[3].bp_long = 4501;
+      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOINS__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4501:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4501:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4501:/ cppif.else");
+   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4502:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V20*/ curfptr[19];;
+    MELT_LOCATION("warmelt-genobj.melt:4502:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V18*/ curfptr[17] = /*_.RETURN___V24*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4494:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4494:/ clear");
+   /*clear*/ /*_.GOINS__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4494:/ clear");
+   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4494:/ clear");
+   /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V18*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4486:/ clear");
+  /*clear*/ /*_.MATCHMAP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4486:/ clear");
+  /*clear*/ /*_.PREFIX__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4486:/ clear");
+  /*clear*/ /*_.LABUF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4486:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4486:/ clear");
+  /*clear*/ /*_.LET___V18*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-genobj.melt:4480:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("TESTMATCH_GOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 26
+  void* varptr[26];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<26; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 26;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMTESTER_FREE_OBJLOC_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ getarg");
+ /*_.NT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4506:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4507:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4507:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4507:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4507:/ apply.arg");
+    argtab[0].bp_cstring =  "normtester_free_objloc_list nt";
+    MELT_LOCATION("warmelt-genobj.melt:4507:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4507:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4507:/ apply.arg");
+    argtab[3].bp_long = 4507;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4507:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4507:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4507:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4508:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4508:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4508:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4508:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4508:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4508:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4508:/ locexp");
+      melt_assert_failed(( "check nt"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4508)?(4508):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4508:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4508:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4508:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4509:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4509:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4509:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4509:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4509:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4509:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4509:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4509)?(4509):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4509:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4509:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4509:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4510:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4510:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4510:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4510:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4510:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4510:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4510:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4510)?(4510):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4510:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4510:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4510:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4511:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4512:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCLIST__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4513:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V15*/ curfptr[14] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4515:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4515:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4515:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4515:/ apply.arg");
+     argtab[0].bp_cstring =  "normtester_free_objloc_list nloclist";
+     MELT_LOCATION("warmelt-genobj.melt:4515:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4515:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4515:/ apply.arg");
+     argtab[3].bp_long = 4515;
+     /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCLIST__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4515:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4515:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4515:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4516:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4519:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4519:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4519:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4519:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V15*/ curfptr[14]);
+    ;
+    /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4517:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4517:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18];
+    /*_.FREELIST__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NLOCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4530:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4530:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4530:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), 2, "TCX_FREELIST");/*_.TCX_FREELIST__V22*/ curfptr[21] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4530:/ cond.else");
+   
+    /*_.TCX_FREELIST__V22*/ curfptr[21] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4530:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4530:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FREELIST__V21*/ curfptr[20];
+    /*_.LIST_APPEND2LIST__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.TCX_FREELIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4531:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4531:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4531:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4531:/ apply.arg");
+      argtab[0].bp_cstring =  "normtester_free_objloc_list result freelist";
+      MELT_LOCATION("warmelt-genobj.melt:4531:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:4531:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4531:/ apply.arg");
+      argtab[3].bp_long = 4531;
+      /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FREELIST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4531:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4531:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4531:/ cppif.else");
+   /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4532:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.FREELIST__V21*/ curfptr[20];;
+    MELT_LOCATION("warmelt-genobj.melt:4532:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V18*/ curfptr[16] = /*_.RETURN___V26*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4516:/ clear");
+   /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4516:/ clear");
+   /*clear*/ /*_.FREELIST__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4516:/ clear");
+   /*clear*/ /*_.TCX_FREELIST__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4516:/ clear");
+   /*clear*/ /*_.LIST_APPEND2LIST__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4516:/ clear");
+   /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4516:/ clear");
+   /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.LET___V18*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4511:/ clear");
+  /*clear*/ /*_.NLOCLIST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4511:/ clear");
+  /*clear*/ /*_.LOCMAP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4511:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4511:/ clear");
+  /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:4506:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMTESTER_FREE_OBJLOC_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_140_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_140_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ getarg");
+ /*_.NLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4519:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4520:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4520:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-genobj.melt:4520:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4520:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4520:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4520:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4520:/ locexp");
+      melt_assert_failed(( "check nloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4520)?(4520):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4520:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4520:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4520:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4521:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4523:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4523:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4523:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.NOCC_SYMB__V6*/ curfptr[5] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4523:/ cond.else");
+  
+   /*_.NOCC_SYMB__V6*/ curfptr[5] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4524:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4524:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4524:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V7*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4524:/ cond.else");
+  
+   /*_.NOCC_CTYP__V7*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4522:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4522:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOCC_SYMB__V6*/ curfptr[5];
+   MELT_LOCATION("warmelt-genobj.melt:4522:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NOCC_CTYP__V7*/ curfptr[6];
+   /*_.OBLO__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[1])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4526:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4526:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4526:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.NOCC_BIND__V9*/ curfptr[8] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4526:/ cond.else");
+  
+   /*_.NOCC_BIND__V9*/ curfptr[8] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4526:/ locexp");
+  meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.NOCC_BIND__V9*/ curfptr[8]), 
+			   (melt_ptr_t)(/*_.OBLO__V8*/ curfptr[7]));}
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.OBLO__V8*/ curfptr[7];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4521:/ clear");
+  /*clear*/ /*_.NOCC_SYMB__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4521:/ clear");
+  /*clear*/ /*_.NOCC_CTYP__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4521:/ clear");
+  /*clear*/ /*_.OBLO__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4521:/ clear");
+  /*clear*/ /*_.NOCC_BIND__V9*/ curfptr[8] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-genobj.melt:4519:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_140_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_NORMTESTER_ANY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ getarg");
+ /*_.NTA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4537:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4538:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4538:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4538:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4538:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_any nta";
+    MELT_LOCATION("warmelt-genobj.melt:4538:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4538:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4538:/ apply.arg");
+    argtab[3].bp_long = 4538;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4538:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4538:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4538:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4539:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[1])))) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4539:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4539:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V7*/ curfptr[5] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:4539:/ cond.else");
+ 
+  /*_.NREP_LOC__V7*/ curfptr[5] = NULL;;
+  }
+ ;
+ /*_.DISCRIM__V8*/ curfptr[7] = 
+  (melt_discr((melt_ptr_t)(/*_.NTA__V2*/ curfptr[1])));;
+ MELT_LOCATION("warmelt-genobj.melt:4541:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4541:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4541:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V8*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:4541:/ cond.else");
+ 
+  /*_.NAMED_NAME__V9*/ curfptr[8] = NULL;;
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-genobj.melt:4539:/ locexp");
+ melt_error_str((melt_ptr_t)(/*_.NREP_LOC__V7*/ curfptr[5]), ( "**UNIMPLEMENTED normal tester compilation "), (melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8]));}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4542:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4542:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4542:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4542:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4542:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4542:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4542:/ locexp");
+      melt_assert_failed(( "@$@UNIMPLEMENTED normal tester compilation"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4542)?(4542):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4542:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4542:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[9];;
+  MELT_LOCATION("warmelt-genobj.melt:4537:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ clear");
+ /*clear*/ /*_.NREP_LOC__V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ clear");
+ /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_NORMTESTER_ANY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 78
+  void* varptr[78];
+#define CURFRAM_NBVARNUM 20
+  long varnum[20];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<78; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 78;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_NORMTESTER_MATCHER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ getarg");
+ /*_.NTMA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4547:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4548:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4548:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4548:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4548:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_matcher ntma";
+    MELT_LOCATION("warmelt-genobj.melt:4548:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4548:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4548:/ apply.arg");
+    argtab[3].bp_long = 4548;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4548:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4548:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4548:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4549:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4549:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4549:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4549:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4549:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4549:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4549:/ locexp");
+      melt_assert_failed(( "check ntma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4549)?(4549):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4549:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4549:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4549:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4550:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4550:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4550:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4550:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4550:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4550:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4550:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4550)?(4550):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4550:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4551:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4551:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4551:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4551:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4551:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4551:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4551:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4551)?(4551):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4551:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4551:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4551:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4552:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4553:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4554:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4555:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4556:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4557:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 7, "NTMATCH_MATCHER");/*_.NMATCHER__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4558:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 9, "NTMATCH_INARGS");/*_.NINS__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4559:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 10, "NTMATCH_OUTLOCS");/*_.NOUTS__V20*/ curfptr[19] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4560:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V21*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4561:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4561:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.GOTOTHEN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4562:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4562:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.GOTOELSE__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.OLIST__V24*/ curfptr[23] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  MELT_LOCATION("warmelt-genobj.melt:4564:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V25*/ curfptr[24] = slot; };
+  ;
+  /*_.PREFIX__V26*/ curfptr[25] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V25*/ curfptr[24]), (meltobject_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]));;
+  MELT_LOCATION("warmelt-genobj.melt:4566:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4566:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-genobj.melt:4566:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ curfptr[3];
+   /*_.FREELIST__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4567:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4567:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4567:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), 3, "TCX_NEXTEST");/*_.NEXTEST__V28*/ curfptr[27] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4567:/ cond.else");
+  
+   /*_.NEXTEST__V28*/ curfptr[27] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4569:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4569:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4569:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher matchmap";
+     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
+     argtab[3].bp_long = 4569;
+     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHMAP__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4569:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4569:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4569:/ cppif.else");
+  /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4570:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4570:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4570:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4570:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher nextest";
+     MELT_LOCATION("warmelt-genobj.melt:4570:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4570:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4570:/ apply.arg");
+     argtab[3].bp_long = 4570;
+     /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXTEST__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4570:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4570:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4570:/ cppif.else");
+  /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4571:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4571:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4571:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4571:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher unfixed gotothen";
+     MELT_LOCATION("warmelt-genobj.melt:4571:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:4571:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4571:/ apply.arg");
+     argtab[3].bp_long = 4571;
+     /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOTHEN__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4571:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4571:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4571:/ cppif.else");
+  /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#NULL__L8*/ curfnum[0] = 
+   ((/*_.GOTOTHEN__V22*/ curfptr[21]) == NULL);;
+  MELT_LOCATION("warmelt-genobj.melt:4572:/ cond");
+  /*cond*/ if (/*_#NULL__L8*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4572:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4572:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4573:/ locexp");
+     
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "compiltst_normtester_matcher null gotothen"), (14));
+#endif
+;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4575:/ cond");
+    /*cond*/ if (/*_.NEXTEST__V28*/ curfptr[27]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4575:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4575:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4576:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NORMATCH__V21*/ curfptr[20];
+       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+       /*_.TESTMATCH_GOTOINSTR__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!TESTMATCH_GOTOINSTR*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NEXTEST__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFELSE___V36*/ curfptr[35] = /*_.TESTMATCH_GOTOINSTR__V37*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4575:/ clear");
+      /*clear*/ /*_.TESTMATCH_GOTOINSTR__V37*/ curfptr[36] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4575:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4575:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4577:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4577:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-genobj.melt:4577:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+       /*_.ENDMATCH_GOTOINSTR__V38*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFELSE___V36*/ curfptr[35] = /*_.ENDMATCH_GOTOINSTR__V38*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4575:/ clear");
+      /*clear*/ /*_.ENDMATCH_GOTOINSTR__V38*/ curfptr[36] = 0 ;}
+     ;
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4574:/ compute");
+    /*_.GOTOTHEN__V22*/ curfptr[21] = /*_.SETQ___V39*/ curfptr[36] = /*_.IFELSE___V36*/ curfptr[35];;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4578:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4578:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4578:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
+       argtab[0].bp_cstring =  "compiltst_normtester_matcher fixed gotothen";
+       MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+       MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
+       argtab[3].bp_long = 4578;
+       /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOTHEN__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4578:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4578:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4578:/ cppif.else");
+    /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:4572:/ block");
+    /*block*/{
+     /*_.PROGN___V42*/ curfptr[40] = /*_.IFCPP___V40*/ curfptr[39];;}
+    ;
+    /*_.IFELSE___V35*/ curfptr[33] = /*_.PROGN___V42*/ curfptr[40];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4572:/ clear");
+    /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4572:/ clear");
+    /*clear*/ /*_.SETQ___V39*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4572:/ clear");
+    /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4572:/ clear");
+    /*clear*/ /*_.PROGN___V42*/ curfptr[40] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4572:/ cond.else");
+  
+   /*_.IFELSE___V35*/ curfptr[33] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4580:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4580:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4580:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4580:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher unfixed gotoelse";
+     MELT_LOCATION("warmelt-genobj.melt:4580:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+     MELT_LOCATION("warmelt-genobj.melt:4580:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4580:/ apply.arg");
+     argtab[3].bp_long = 4580;
+     /*_.DEBUG_MSG_FUN__V44*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V43*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[36];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4580:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4580:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[36] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4580:/ cppif.else");
+  /*_.IFCPP___V43*/ curfptr[35] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#NULL__L11*/ curfnum[8] = 
+   ((/*_.GOTOELSE__V23*/ curfptr[22]) == NULL);;
+  MELT_LOCATION("warmelt-genobj.melt:4581:/ cond");
+  /*cond*/ if (/*_#NULL__L11*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4581:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4581:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4582:/ locexp");
+     
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "compiltst_normtester_matcher null gotoelse"), (14));
+#endif
+;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4584:/ cond");
+    /*cond*/ if (/*_.NEXTEST__V28*/ curfptr[27]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4584:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4584:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4585:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NORMATCH__V21*/ curfptr[20];
+       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+       /*_.TESTMATCH_GOTOINSTR__V47*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!TESTMATCH_GOTOINSTR*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NEXTEST__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFELSE___V46*/ curfptr[40] = /*_.TESTMATCH_GOTOINSTR__V47*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4584:/ clear");
+      /*clear*/ /*_.TESTMATCH_GOTOINSTR__V47*/ curfptr[36] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4584:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4584:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4586:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4586:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-genobj.melt:4586:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+       /*_.ENDMATCH_GOTOINSTR__V48*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFELSE___V46*/ curfptr[40] = /*_.ENDMATCH_GOTOINSTR__V48*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4584:/ clear");
+      /*clear*/ /*_.ENDMATCH_GOTOINSTR__V48*/ curfptr[36] = 0 ;}
+     ;
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4583:/ compute");
+    /*_.GOTOELSE__V23*/ curfptr[22] = /*_.SETQ___V49*/ curfptr[36] = /*_.IFELSE___V46*/ curfptr[40];;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4587:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4587:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4587:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
+       argtab[0].bp_cstring =  "compiltst_normtester_matcher fixed gotoelse";
+       MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
+       MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
+       argtab[3].bp_long = 4587;
+       /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4587:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4587:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4587:/ cppif.else");
+    /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:4581:/ block");
+    /*block*/{
+     /*_.PROGN___V52*/ curfptr[50] = /*_.IFCPP___V50*/ curfptr[49];;}
+    ;
+    /*_.IFELSE___V45*/ curfptr[39] = /*_.PROGN___V52*/ curfptr[50];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4581:/ clear");
+    /*clear*/ /*_.IFELSE___V46*/ curfptr[40] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4581:/ clear");
+    /*clear*/ /*_.SETQ___V49*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4581:/ clear");
+    /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4581:/ clear");
+    /*clear*/ /*_.PROGN___V52*/ curfptr[50] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4581:/ cond.else");
+  
+   /*_.IFELSE___V45*/ curfptr[39] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4589:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4589:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4589:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4589:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher freelist";
+     MELT_LOCATION("warmelt-genobj.melt:4589:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
+     MELT_LOCATION("warmelt-genobj.melt:4589:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4589:/ apply.arg");
+     argtab[3].bp_long = 4589;
+     /*_.DEBUG_MSG_FUN__V54*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FREELIST__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V53*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[36];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4589:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4589:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[36] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4589:/ cppif.else");
+  /*_.IFCPP___V53*/ curfptr[40] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4590:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4590:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4590:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4590:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher prefix";
+     MELT_LOCATION("warmelt-genobj.melt:4590:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11];
+     MELT_LOCATION("warmelt-genobj.melt:4590:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4590:/ apply.arg");
+     argtab[3].bp_long = 4590;
+     /*_.DEBUG_MSG_FUN__V56*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PREFIX__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V55*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[50];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4590:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4590:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[50] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4590:/ cppif.else");
+  /*_.IFCPP___V55*/ curfptr[49] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4591:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4591:/ block");
+   /*block*/{
+    /*_#IS_STRING__L15*/ curfnum[11] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V26*/ curfptr[25])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-genobj.melt:4591:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L15*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4591:/ cond.then");
+    /*_.IFELSE___V58*/ curfptr[50] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4591:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4591:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4591:/ locexp");
+       melt_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4591)?(4591):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V58*/ curfptr[50] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V57*/ curfptr[36] = /*_.IFELSE___V58*/ curfptr[50];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4591:/ clear");
+    /*clear*/ /*_#IS_STRING__L15*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4591:/ clear");
+    /*clear*/ /*_.IFELSE___V58*/ curfptr[50] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4591:/ cppif.else");
+  /*_.IFCPP___V57*/ curfptr[36] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_LIST*/ {
+  /* start cit1__EACHLIST */
+   for (/*_.LOCPAIR__V59*/ curfptr[50] = melt_list_first(/*_.FREELIST__V27*/ curfptr[26]);
+	melt_magic_discr(/*_.LOCPAIR__V59*/ curfptr[50]) == OBMAG_PAIR;
+        /*_.LOCPAIR__V59*/ curfptr[50] = melt_pair_tail(/*_.LOCPAIR__V59*/ curfptr[50])) {
+	/*_.OBLOC__V60*/ curfptr[59] = melt_pair_head(/*_.LOCPAIR__V59*/ curfptr[50]); 
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4596:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4596:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4596:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4596:/ apply.arg");
+      argtab[0].bp_cstring =  "compiltst_normtester_matcher obloc";
+      MELT_LOCATION("warmelt-genobj.melt:4596:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[11];
+      MELT_LOCATION("warmelt-genobj.melt:4596:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4596:/ apply.arg");
+      argtab[3].bp_long = 4596;
+      /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOC__V60*/ curfptr[59]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4596:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4596:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4596:/ cppif.else");
+   /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4597:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4597:/ block");
+    /*block*/{
+     /*_#IS_A__L17*/ curfnum[11] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.OBLOC__V60*/ curfptr[59]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[9])));;
+     MELT_LOCATION("warmelt-genobj.melt:4597:/ cond");
+     /*cond*/ if (/*_#IS_A__L17*/ curfnum[11]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4597:/ cond.then");
+     /*_.IFELSE___V64*/ curfptr[63] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4597:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4597:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4597:/ locexp");
+        melt_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4597)?(4597):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V64*/ curfptr[63] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V63*/ curfptr[61] = /*_.IFELSE___V64*/ curfptr[63];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4597:/ clear");
+     /*clear*/ /*_#IS_A__L17*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4597:/ clear");
+     /*clear*/ /*_.IFELSE___V64*/ curfptr[63] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4597:/ cppif.else");
+   /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4598:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4598:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4598:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[10])), (2), "CLASS_OBJCLEAR");/*_.INST__V66*/ curfptr[65] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4598:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4598:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (1), (/*_.OBLOC__V60*/ curfptr[59]), "OCLR_VLOC");
+     ;
+     /*_.OCLEAROB__V65*/ curfptr[63] = /*_.INST__V66*/ curfptr[65];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4602:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V24*/ curfptr[23]), (melt_ptr_t)(/*_.OCLEAROB__V65*/ curfptr[63]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4598:/ clear");
+    /*clear*/ /*_.OCLEAROB__V65*/ curfptr[63] = 0 ;}
+   ;
+   } /* end cit1__EACHLIST */
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4593:/ clear");
+   /*clear*/ /*_.LOCPAIR__V59*/ curfptr[50] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4593:/ clear");
+   /*clear*/ /*_.OBLOC__V60*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4593:/ clear");
+   /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4593:/ clear");
+   /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4604:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4604:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L18*/ curfnum[11] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4604:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4604:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_matcher before nmatcher";
+     MELT_LOCATION("warmelt-genobj.melt:4604:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[11];
+     MELT_LOCATION("warmelt-genobj.melt:4604:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4604:/ apply.arg");
+     argtab[3].bp_long = 4604;
+     /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V67*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[67];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4604:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4604:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4604:/ cppif.else");
+  /*_.IFCPP___V67*/ curfptr[63] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4605:/ block");
+  /*block*/{
+   /*_.MAKE_INTEGERBOX__V70*/ curfptr[69] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[12])), (0)));;
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[11])), (8), "CLASS_MATCHCOMPILCONTEXT");/*_.INST__V72*/ curfptr[71] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (1), (/*_.NLOC__V14*/ curfptr[13]), "MCX_LOC");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_NORMTESTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (2), (/*_.NTMA__V2*/ curfptr[1]), "MCX_NORMTESTER");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_GOTOTHEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (3), (/*_.GOTOTHEN__V22*/ curfptr[21]), "MCX_GOTOTHEN");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_GOTOELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (4), (/*_.GOTOELSE__V23*/ curfptr[22]), "MCX_GOTOELSE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_OLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (5), (/*_.OLIST__V24*/ curfptr[23]), "MCX_OLIST");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_SUFFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (6), (/*_.PREFIX__V26*/ curfptr[25]), "MCX_SUFFIX");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4605:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @MCX_STATECOUNTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (7), (/*_.MAKE_INTEGERBOX__V70*/ curfptr[69]), "MCX_STATECOUNTER");
+    ;
+    /*_.MATCX__V71*/ curfptr[70] = /*_.INST__V72*/ curfptr[71];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4614:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4614:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L19*/ curfnum[11] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4614:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
+      argtab[0].bp_cstring =  "compiltst_normtester_matcher matcx";
+      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[11];
+      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
+      argtab[3].bp_long = 4614;
+      /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MATCX__V71*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V73*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4614:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4614:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4614:/ cppif.else");
+   /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4615:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4615:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MATCX__V71*/ curfptr[70];
+    MELT_LOCATION("warmelt-genobj.melt:4615:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.COMPILE_MATCHER__V75*/ curfptr[73] = meltgc_send((melt_ptr_t)(/*_.NMATCHER__V18*/ curfptr[17]), (melt_ptr_t)((/*!COMPILE_MATCHER*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4616:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4616:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L20*/ curfnum[11] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4616:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4616:/ apply.arg");
+      argtab[0].bp_cstring =  "compiltst_normtester_matcher return olist";
+      MELT_LOCATION("warmelt-genobj.melt:4616:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[11];
+      MELT_LOCATION("warmelt-genobj.melt:4616:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4616:/ apply.arg");
+      argtab[3].bp_long = 4616;
+      /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLIST__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V76*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4616:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4616:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4616:/ cppif.else");
+   /*_.IFCPP___V76*/ curfptr[75] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4617:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V24*/ curfptr[23];;
+    MELT_LOCATION("warmelt-genobj.melt:4617:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V69*/ curfptr[67] = /*_.RETURN___V78*/ curfptr[76];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V70*/ curfptr[69] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ clear");
+   /*clear*/ /*_.MATCX__V71*/ curfptr[70] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ clear");
+   /*clear*/ /*_.IFCPP___V73*/ curfptr[72] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ clear");
+   /*clear*/ /*_.COMPILE_MATCHER__V75*/ curfptr[73] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ clear");
+   /*clear*/ /*_.IFCPP___V76*/ curfptr[75] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4605:/ clear");
+   /*clear*/ /*_.RETURN___V78*/ curfptr[76] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.LET___V69*/ curfptr[67];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NMATCHER__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NINS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NOUTS__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NORMATCH__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.GOTOTHEN__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.GOTOELSE__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.OLIST__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.MATCHMAP__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.PREFIX__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.FREELIST__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.NEXTEST__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_#NULL__L8*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFELSE___V35*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V43*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_#NULL__L11*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFELSE___V45*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V53*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V55*/ curfptr[49] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V57*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.IFCPP___V67*/ curfptr[63] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4552:/ clear");
+  /*clear*/ /*_.LET___V69*/ curfptr[67] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:4547:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_NORMTESTER_MATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 94
+  void* varptr[94];
+#define CURFRAM_NBVARNUM 25
+  long varnum[25];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<94; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 94;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_NORMTESTER_INSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ getarg");
+ /*_.NTMI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4623:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4624:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4624:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4624:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4624:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_instance ntmi";
+    MELT_LOCATION("warmelt-genobj.melt:4624:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4624:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4624:/ apply.arg");
+    argtab[3].bp_long = 4624;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4624:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4624:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4624:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4625:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4625:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_INSTANCE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4625:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4625:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4625:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4625:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4625:/ locexp");
+      melt_assert_failed(( "check ntmi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4625)?(4625):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4625:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4625:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4625:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4626:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4626:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4626:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4626:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4626:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4626:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4626:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4626)?(4626):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4626:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4627:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4627:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4627:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4627:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4627:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4627:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4627:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4627)?(4627):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4627:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4627:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4627:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4628:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4629:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4630:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4631:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4632:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4633:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4634:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCCLIST__V19*/ curfptr[18] = slot; };
+  ;
+  /*_.OLIST__V20*/ curfptr[19] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_#NTESTIX__L5*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4637:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 7, "NTINST_CLASS");/*_.NTCLASS__V21*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4638:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 8, "NTINST_FIELDLOCS");/*_.NTFLDS__V22*/ curfptr[21] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4639:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4639:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4639:/ cond");
+  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4639:/ cond.then");
+  /*_.GOTOTHEN__V24*/ curfptr[23] = /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22];;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4639:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:4639:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4640:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4640:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-genobj.melt:4640:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+     /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.GOTOTHEN__V24*/ curfptr[23] = /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4639:/ clear");
+    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4641:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4641:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4641:/ cond");
+  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4641:/ cond.then");
+  /*_.GOTOELSE__V27*/ curfptr[26] = /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24];;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4641:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:4641:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4642:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4642:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-genobj.melt:4642:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+     /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.GOTOELSE__V27*/ curfptr[26] = /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4641:/ clear");
+    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4643:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4643:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OCLASS__V29*/ curfptr[27] = meltgc_send((melt_ptr_t)(/*_.NTCLASS__V21*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4644:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4644:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OMATCHED__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4645:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4645:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-genobj.melt:4645:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ curfptr[3];
+   /*_.FREELIST__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.OTHENLIST__V32*/ curfptr[31] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.OELSELIST__V33*/ curfptr[32] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-genobj.melt:4648:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4648:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V35*/ curfptr[34] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4648:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4648:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.OTHENLIST__V32*/ curfptr[31]), "OBLO_BODYL");
+   ;
+   /*_.OTHENBLOCK__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4652:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4652:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V37*/ curfptr[36] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4652:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4652:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OELSELIST__V33*/ curfptr[32]), "OBLO_BODYL");
+   ;
+   /*_.OELSEBLOCK__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
+  ;
+  /*_.MAKE_STRINGCONST__V38*/ curfptr[37] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "/*normtesterinst*/ (melt_is_instance_of((")));;
+  /*_.MAKE_STRINGCONST__V39*/ curfptr[38] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "), (")));;
+  /*_.MAKE_STRINGCONST__V40*/ curfptr[39] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( ")))")));;
+  /*_.MAKE_TUPLE5__V41*/ curfptr[40] = 
+   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V38*/ curfptr[37]),  
+		      (melt_ptr_t)(/*_.OMATCHED__V30*/ curfptr[29]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V39*/ curfptr[38]),  (melt_ptr_t)(/*_.OCLASS__V29*/ curfptr[27]),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V40*/ curfptr[39])));;
+  MELT_LOCATION("warmelt-genobj.melt:4655:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4655:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V43*/ curfptr[42] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4655:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.NLOC__V14*/ curfptr[13]), "OBCX_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4655:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.MAKE_TUPLE5__V41*/ curfptr[40]), "OBX_CONT");
+   ;
+   /*_.OTEST__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4667:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4667:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[13])), (4), "CLASS_OBJCOND");/*_.INST__V45*/ curfptr[44] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4667:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4667:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), (/*_.OTEST__V42*/ curfptr[41]), "OBCOND_TEST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4667:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.OTHENBLOCK__V34*/ curfptr[33]), "OBCOND_THEN");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4667:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (3), (/*_.OELSEBLOCK__V36*/ curfptr[35]), "OBCOND_ELSE");
+   ;
+   /*_.OCOND__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4673:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4673:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4673:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance otest";
+     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
+     argtab[3].bp_long = 4673;
+     /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTEST__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4673:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4673:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4673:/ cppif.else");
+  /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4674:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4674:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4674:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance gotothen";
+     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
+     argtab[3].bp_long = 4674;
+     /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4674:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4674:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4674:/ cppif.else");
+  /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4675:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4675:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4675:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4675:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance gotoelse";
+     MELT_LOCATION("warmelt-genobj.melt:4675:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4675:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4675:/ apply.arg");
+     argtab[3].bp_long = 4675;
+     /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V50*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4675:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4675:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4675:/ cppif.else");
+  /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4676:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4676:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4676:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4676:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance oclass";
+     MELT_LOCATION("warmelt-genobj.melt:4676:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4676:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4676:/ apply.arg");
+     argtab[3].bp_long = 4676;
+     /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V52*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4676:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4676:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4676:/ cppif.else");
+  /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4677:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4677:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L10*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.OCLASS__V29*/ curfptr[27])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:4677:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L10*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4677:/ cond.then");
+    /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4677:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4677:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4677:/ locexp");
+       melt_assert_failed(( "check oclass"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4677)?(4677):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V54*/ curfptr[52] = /*_.IFELSE___V55*/ curfptr[54];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4677:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4677:/ clear");
+    /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4677:/ cppif.else");
+  /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_LIST*/ {
+  /* start cit1__EACHLIST */
+   for (/*_.LOCPAIR__V56*/ curfptr[54] = melt_list_first(/*_.FREELIST__V31*/ curfptr[30]);
+	melt_magic_discr(/*_.LOCPAIR__V56*/ curfptr[54]) == OBMAG_PAIR;
+        /*_.LOCPAIR__V56*/ curfptr[54] = melt_pair_tail(/*_.LOCPAIR__V56*/ curfptr[54])) {
+	/*_.OBLOC__V57*/ curfptr[56] = melt_pair_head(/*_.LOCPAIR__V56*/ curfptr[54]); 
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4682:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4682:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4682:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4682:/ apply.arg");
+      argtab[0].bp_cstring =  "compiltst_normtester_instance obloc";
+      MELT_LOCATION("warmelt-genobj.melt:4682:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:4682:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4682:/ apply.arg");
+      argtab[3].bp_long = 4682;
+      /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOC__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V58*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4682:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4682:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4682:/ cppif.else");
+   /*_.IFCPP___V58*/ curfptr[57] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4683:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4683:/ block");
+    /*block*/{
+     /*_#IS_A__L12*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.OBLOC__V57*/ curfptr[56]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[14])));;
+     MELT_LOCATION("warmelt-genobj.melt:4683:/ cond");
+     /*cond*/ if (/*_#IS_A__L12*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4683:/ cond.then");
+     /*_.IFELSE___V61*/ curfptr[60] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4683:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4683:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4683:/ locexp");
+        melt_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4683)?(4683):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V60*/ curfptr[58] = /*_.IFELSE___V61*/ curfptr[60];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4683:/ clear");
+     /*clear*/ /*_#IS_A__L12*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4683:/ clear");
+     /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4683:/ cppif.else");
+   /*_.IFCPP___V60*/ curfptr[58] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4684:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4684:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4684:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[15])), (2), "CLASS_OBJCLEAR");/*_.INST__V63*/ curfptr[62] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4684:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4684:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.OBLOC__V57*/ curfptr[56]), "OCLR_VLOC");
+     ;
+     /*_.OCLEAROB__V62*/ curfptr[60] = /*_.INST__V63*/ curfptr[62];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4688:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OCLEAROB__V62*/ curfptr[60]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4684:/ clear");
+    /*clear*/ /*_.OCLEAROB__V62*/ curfptr[60] = 0 ;}
+   ;
+   } /* end cit1__EACHLIST */
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4679:/ clear");
+   /*clear*/ /*_.LOCPAIR__V56*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4679:/ clear");
+   /*clear*/ /*_.OBLOC__V57*/ curfptr[56] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4679:/ clear");
+   /*clear*/ /*_.IFCPP___V58*/ curfptr[57] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4679:/ clear");
+   /*clear*/ /*_.IFCPP___V60*/ curfptr[58] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4691:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OCOND__V44*/ curfptr[43]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4694:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4694:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L13*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4694:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4694:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance ntflds";
+     MELT_LOCATION("warmelt-genobj.melt:4694:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4694:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4694:/ apply.arg");
+     argtab[3].bp_long = 4694;
+     /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTFLDS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V64*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4694:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4694:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4694:/ cppif.else");
+  /*_.IFCPP___V64*/ curfptr[60] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4695:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4695:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L14*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4695:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4695:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance nlocclist";
+     MELT_LOCATION("warmelt-genobj.melt:4695:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4695:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4695:/ apply.arg");
+     argtab[3].bp_long = 4695;
+     /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCCLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V66*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4695:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4695:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4695:/ cppif.else");
+  /*_.IFCPP___V66*/ curfptr[64] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NTFLDS__V22*/ curfptr[21]);
+   for (/*_#FLDIX__L15*/ curfnum[5] = 0;  
+	(/*_#FLDIX__L15*/ curfnum[5] >= 0) && (/*_#FLDIX__L15*/ curfnum[5] <  cit2__EACHTUP_ln);  
+	/*_#FLDIX__L15*/ curfnum[5]++) {
+   /*_.FLDOC__V68*/ curfptr[66] = melt_multiple_nth((melt_ptr_t)(/*_.NTFLDS__V22*/ curfptr[21]),  /*_#FLDIX__L15*/ curfnum[5]);
+   
+  
+   MELT_LOCATION("warmelt-genobj.melt:4699:/ cond");
+   /*cond*/ if (/*_.FLDOC__V68*/ curfptr[66]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4699:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4699:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:4701:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:4701:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:4701:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:4701:/ apply.arg");
+        argtab[0].bp_cstring =  "compiltst_normtester_instance fldoc";
+        MELT_LOCATION("warmelt-genobj.melt:4701:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15];
+        MELT_LOCATION("warmelt-genobj.melt:4701:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:4701:/ apply.arg");
+        argtab[3].bp_long = 4701;
+        /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:4701:/ cppif.else");
+     /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:4702:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:4702:/ block");
+      /*block*/{
+       /*_#IS_A__L17*/ curfnum[15] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[16])));;
+       MELT_LOCATION("warmelt-genobj.melt:4702:/ cond");
+       /*cond*/ if (/*_#IS_A__L17*/ curfnum[15]) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:4702:/ cond.then");
+       /*_.IFELSE___V72*/ curfptr[71] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-genobj.melt:4702:/ cond.else");
+       
+        MELT_LOCATION("warmelt-genobj.melt:4702:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-genobj.melt:4702:/ locexp");
+          melt_assert_failed(( "check fldoc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4702)?(4702):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V71*/ curfptr[69] = /*_.IFELSE___V72*/ curfptr[71];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4702:/ clear");
+       /*clear*/ /*_#IS_A__L17*/ curfnum[15] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:4702:/ clear");
+       /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:4702:/ cppif.else");
+     /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:4703:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4703:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       /*_.FLOVAR__V73*/ curfptr[71] = meltgc_send((melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4704:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), 3, "NOCC_BIND");/*_.FLBIND__V74*/ curfptr[73] = slot; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4705:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLBIND__V74*/ curfptr[73]), 2, "LETBIND_EXPR");/*_.FLDGET__V75*/ curfptr[74] = slot; };
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4706:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4706:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+       /*_.OFGET__V76*/ curfptr[75] = meltgc_send((melt_ptr_t)(/*_.FLDGET__V75*/ curfptr[74]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4708:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4708:/ block");
+       /*block*/{
+        /*_#IS_A__L18*/ curfnum[15] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.FLBIND__V74*/ curfptr[73]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[17])));;
+        MELT_LOCATION("warmelt-genobj.melt:4708:/ cond");
+        /*cond*/ if (/*_#IS_A__L18*/ curfnum[15]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4708:/ cond.then");
+        /*_.IFELSE___V78*/ curfptr[77] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4708:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:4708:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:4708:/ locexp");
+           melt_assert_failed(( "check flbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4708)?(4708):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V77*/ curfptr[76] = /*_.IFELSE___V78*/ curfptr[77];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4708:/ clear");
+        /*clear*/ /*_#IS_A__L18*/ curfnum[15] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4708:/ clear");
+        /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4708:/ cppif.else");
+      /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4709:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4709:/ block");
+       /*block*/{
+        /*_#IS_A__L19*/ curfnum[15] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.FLDGET__V75*/ curfptr[74]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[18])));;
+        MELT_LOCATION("warmelt-genobj.melt:4709:/ cond");
+        /*cond*/ if (/*_#IS_A__L19*/ curfnum[15]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4709:/ cond.then");
+        /*_.IFELSE___V80*/ curfptr[79] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4709:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:4709:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:4709:/ locexp");
+           melt_assert_failed(( "check fldget"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4709)?(4709):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V79*/ curfptr[77] = /*_.IFELSE___V80*/ curfptr[79];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4709:/ clear");
+        /*clear*/ /*_#IS_A__L19*/ curfnum[15] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4709:/ clear");
+        /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4709:/ cppif.else");
+      /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-genobj.melt:4710:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4710:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLOVAR__V73*/ curfptr[71];
+       /*_.PUT_OBJDEST__V81*/ curfptr[79] = meltgc_send((melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[19])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4711:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4711:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:4711:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:4711:/ apply.arg");
+         argtab[0].bp_cstring =  "compiltst_normtester_instance ofget";
+         MELT_LOCATION("warmelt-genobj.melt:4711:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[15];
+         MELT_LOCATION("warmelt-genobj.melt:4711:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:4711:/ apply.arg");
+         argtab[3].bp_long = 4711;
+         /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V82*/ curfptr[81] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[82];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4711:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4711:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4711:/ cppif.else");
+      /*_.IFCPP___V82*/ curfptr[81] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:4712:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:4712:/ block");
+       /*block*/{
+        /*_#IS_OBJECT__L21*/ curfnum[15] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75])) == OBMAG_OBJECT);;
+        MELT_LOCATION("warmelt-genobj.melt:4712:/ cond");
+        /*cond*/ if (/*_#IS_OBJECT__L21*/ curfnum[15]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:4712:/ cond.then");
+        /*_.IFELSE___V85*/ curfptr[84] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:4712:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:4712:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:4712:/ locexp");
+           melt_assert_failed(( "check ofget"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4712)?(4712):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V85*/ curfptr[84] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V84*/ curfptr[82] = /*_.IFELSE___V85*/ curfptr[84];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:4712:/ clear");
+        /*clear*/ /*_#IS_OBJECT__L21*/ curfnum[15] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:4712:/ clear");
+        /*clear*/ /*_.IFELSE___V85*/ curfptr[84] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:4712:/ cppif.else");
+      /*_.IFCPP___V84*/ curfptr[82] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4713:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.FLOVAR__V73*/ curfptr[71] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.FLBIND__V74*/ curfptr[73] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.FLDGET__V75*/ curfptr[74] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.OFGET__V76*/ curfptr[75] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.PUT_OBJDEST__V81*/ curfptr[79] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.IFCPP___V82*/ curfptr[81] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4703:/ clear");
+      /*clear*/ /*_.IFCPP___V84*/ curfptr[82] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4700:/ block");
+     /*block*/{}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4699:/ clear");
+     /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4699:/ clear");
+     /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   if (/*_#FLDIX__L15*/ curfnum[5]<0) break;
+   } /* end cit2__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4696:/ clear");
+   /*clear*/ /*_.FLDOC__V68*/ curfptr[66] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4696:/ clear");
+   /*clear*/ /*_#FLDIX__L15*/ curfnum[5] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4716:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4716:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L22*/ curfnum[15] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:4716:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L22*/ curfnum[15]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4716:/ cond.then");
+    /*_.IFELSE___V87*/ curfptr[71] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4716:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4716:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4716:/ locexp");
+       melt_assert_failed(( "check gotothen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4716)?(4716):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V87*/ curfptr[71] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V86*/ curfptr[84] = /*_.IFELSE___V87*/ curfptr[71];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4716:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L22*/ curfnum[15] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4716:/ clear");
+    /*clear*/ /*_.IFELSE___V87*/ curfptr[71] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4716:/ cppif.else");
+  /*_.IFCPP___V86*/ curfptr[84] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4717:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4720:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4720:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L23*/ curfnum[15] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4720:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4720:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance gotoelse";
+     MELT_LOCATION("warmelt-genobj.melt:4720:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[15];
+     MELT_LOCATION("warmelt-genobj.melt:4720:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4720:/ apply.arg");
+     argtab[3].bp_long = 4720;
+     /*_.DEBUG_MSG_FUN__V89*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V88*/ curfptr[73] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[74];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4720:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[15] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4720:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[74] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4720:/ cppif.else");
+  /*_.IFCPP___V88*/ curfptr[73] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4721:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4721:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L24*/ curfnum[15] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:4721:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L24*/ curfnum[15]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4721:/ cond.then");
+    /*_.IFELSE___V91*/ curfptr[76] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4721:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4721:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4721:/ locexp");
+       melt_assert_failed(( "check gotoelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4721)?(4721):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V91*/ curfptr[76] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V90*/ curfptr[75] = /*_.IFELSE___V91*/ curfptr[76];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4721:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L24*/ curfnum[15] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4721:/ clear");
+    /*clear*/ /*_.IFELSE___V91*/ curfptr[76] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4721:/ cppif.else");
+  /*_.IFCPP___V90*/ curfptr[75] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4722:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V33*/ curfptr[32]), (melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4723:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4723:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4723:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4723:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance final olist";
+     MELT_LOCATION("warmelt-genobj.melt:4723:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[15];
+     MELT_LOCATION("warmelt-genobj.melt:4723:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4723:/ apply.arg");
+     argtab[3].bp_long = 4723;
+     /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V92*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[79];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4723:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4723:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4723:/ cppif.else");
+  /*_.IFCPP___V92*/ curfptr[77] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4724:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V20*/ curfptr[19];;
+   MELT_LOCATION("warmelt-genobj.melt:4724:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V94*/ curfptr[81];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NORMATCH__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NLOCCLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OLIST__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NTCLASS__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NTFLDS__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.GOTOTHEN__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.GOTOELSE__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OCLASS__V29*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OMATCHED__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.FREELIST__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OTHENLIST__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OELSELIST__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OTHENBLOCK__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OELSEBLOCK__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.MAKE_TUPLE5__V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OTEST__V42*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.OCOND__V44*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V64*/ curfptr[60] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V66*/ curfptr[64] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V86*/ curfptr[84] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V88*/ curfptr[73] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V90*/ curfptr[75] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.IFCPP___V92*/ curfptr[77] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4628:/ clear");
+  /*clear*/ /*_.RETURN___V94*/ curfptr[81] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:4623:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_NORMTESTER_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 60
+  void* varptr[60];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<60; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 60;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_NORMTESTER_SAME", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ getarg");
+ /*_.NTSA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4729:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4730:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4730:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4730:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4730:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_same ntsa";
+    MELT_LOCATION("warmelt-genobj.melt:4730:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4730:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4730:/ apply.arg");
+    argtab[3].bp_long = 4730;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4730:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4730:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4730:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4731:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4731:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4731:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4731:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4731:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4731:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4731:/ locexp");
+      melt_assert_failed(( "check ntsa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4731)?(4731):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4731:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4731:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4731:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4732:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4732:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4732:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4732:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4732:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4732:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4732:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4732)?(4732):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4732:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4733:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4733:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4733:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4733:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4733:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4733:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4733:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4733)?(4733):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4733:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4733:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4733:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4734:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4735:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4736:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4737:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4738:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4739:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4740:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 7, "NTSAME_IDENTICAL");/*_.NIDENTICAL__V19*/ curfptr[18] = slot; };
+  ;
+  /*_#NTESTIX__L5*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4742:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4742:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OMATCHED__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4743:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4743:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.OIDENTICAL__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.NIDENTICAL__V19*/ curfptr[18]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4744:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4744:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4744:/ cond");
+  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4744:/ cond.then");
+  /*_.GOTOTHEN__V23*/ curfptr[22] = /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21];;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4744:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:4744:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4745:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4745:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-genobj.melt:4745:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+     /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.GOTOTHEN__V23*/ curfptr[22] = /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4744:/ clear");
+    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4746:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4746:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4746:/ cond");
+  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4746:/ cond.then");
+  /*_.GOTOELSE__V26*/ curfptr[25] = /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23];;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4746:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:4746:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4747:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4747:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-genobj.melt:4747:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+     /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.GOTOELSE__V26*/ curfptr[25] = /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4746:/ clear");
+    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4748:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4748:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-genobj.melt:4748:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ curfptr[3];
+   /*_.FREELIST__V28*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.OTHENLIST__V29*/ curfptr[28] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  /*_.OELSELIST__V30*/ curfptr[29] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  MELT_LOCATION("warmelt-genobj.melt:4751:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4751:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V32*/ curfptr[31] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4751:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4751:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.OTHENLIST__V29*/ curfptr[28]), "OBLO_BODYL");
+   ;
+   /*_.OTHENBLOCK__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4755:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4755:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V34*/ curfptr[33] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4755:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4755:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.OELSELIST__V30*/ curfptr[29]), "OBLO_BODYL");
+   ;
+   /*_.OELSEBLOCK__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
+  ;
+  /*_.MAKE_STRINGCONST__V35*/ curfptr[34] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "/*same*/ ((")));;
+  /*_.MAKE_STRINGCONST__V36*/ curfptr[35] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( ") == (")));;
+  /*_.MAKE_STRINGCONST__V37*/ curfptr[36] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "))")));;
+  /*_.MAKE_TUPLE5__V38*/ curfptr[37] = 
+   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V35*/ curfptr[34]),  
+		      (melt_ptr_t)(/*_.OMATCHED__V20*/ curfptr[19]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V36*/ curfptr[35]),  (melt_ptr_t)(/*_.OIDENTICAL__V21*/ curfptr[20]),
+		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V37*/ curfptr[36])));;
+  MELT_LOCATION("warmelt-genobj.melt:4758:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4758:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V40*/ curfptr[39] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4758:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NLOC__V14*/ curfptr[13]), "OBCX_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4758:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.MAKE_TUPLE5__V38*/ curfptr[37]), "OBX_CONT");
+   ;
+   /*_.OTEST__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4770:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4770:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[13])), (4), "CLASS_OBJCOND");/*_.INST__V42*/ curfptr[41] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4770:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4770:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.OTEST__V39*/ curfptr[38]), "OBCOND_TEST");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4770:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.OTHENBLOCK__V31*/ curfptr[30]), "OBCOND_THEN");
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4770:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), (/*_.OELSEBLOCK__V33*/ curfptr[32]), "OBCOND_ELSE");
+   ;
+   /*_.OCOND__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
+  ;
+  /*_.OLIST__V43*/ curfptr[42] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4777:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4777:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4777:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4777:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_same ocond";
+     MELT_LOCATION("warmelt-genobj.melt:4777:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4777:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4777:/ apply.arg");
+     argtab[3].bp_long = 4777;
+     /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4777:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4777:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4777:/ cppif.else");
+  /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_LIST*/ {
+  /* start cit1__EACHLIST */
+   for (/*_.LOCPAIR__V46*/ curfptr[44] = melt_list_first(/*_.FREELIST__V28*/ curfptr[26]);
+	melt_magic_discr(/*_.LOCPAIR__V46*/ curfptr[44]) == OBMAG_PAIR;
+        /*_.LOCPAIR__V46*/ curfptr[44] = melt_pair_tail(/*_.LOCPAIR__V46*/ curfptr[44])) {
+	/*_.OBLOC__V47*/ curfptr[46] = melt_pair_head(/*_.LOCPAIR__V46*/ curfptr[44]); 
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4782:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4782:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4782:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4782:/ apply.arg");
+      argtab[0].bp_cstring =  "compiltst_normtester_same obloc";
+      MELT_LOCATION("warmelt-genobj.melt:4782:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+      MELT_LOCATION("warmelt-genobj.melt:4782:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4782:/ apply.arg");
+      argtab[3].bp_long = 4782;
+      /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOC__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4782:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4782:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4782:/ cppif.else");
+   /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4783:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4783:/ block");
+    /*block*/{
+     /*_#IS_A__L8*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.OBLOC__V47*/ curfptr[46]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[14])));;
+     MELT_LOCATION("warmelt-genobj.melt:4783:/ cond");
+     /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4783:/ cond.then");
+     /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4783:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4783:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4783:/ locexp");
+        melt_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4783)?(4783):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4783:/ clear");
+     /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4783:/ clear");
+     /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4783:/ cppif.else");
+   /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4784:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4784:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4784:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[15])), (2), "CLASS_OBJCLEAR");/*_.INST__V53*/ curfptr[52] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4784:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4784:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.OBLOC__V47*/ curfptr[46]), "OCLR_VLOC");
+     ;
+     /*_.OCLEAROB__V52*/ curfptr[50] = /*_.INST__V53*/ curfptr[52];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4788:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V43*/ curfptr[42]), (melt_ptr_t)(/*_.OCLEAROB__V52*/ curfptr[50]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4784:/ clear");
+    /*clear*/ /*_.OCLEAROB__V52*/ curfptr[50] = 0 ;}
+   ;
+   } /* end cit1__EACHLIST */
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4779:/ clear");
+   /*clear*/ /*_.LOCPAIR__V46*/ curfptr[44] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4779:/ clear");
+   /*clear*/ /*_.OBLOC__V47*/ curfptr[46] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4779:/ clear");
+   /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4779:/ clear");
+   /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4791:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OLIST__V43*/ curfptr[42]), (melt_ptr_t)(/*_.OCOND__V41*/ curfptr[40]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4793:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4793:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L9*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.GOTOTHEN__V23*/ curfptr[22])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:4793:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L9*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4793:/ cond.then");
+    /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4793:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4793:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4793:/ locexp");
+       melt_assert_failed(( "check gotothen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4793)?(4793):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V54*/ curfptr[50] = /*_.IFELSE___V55*/ curfptr[54];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4793:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L9*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4793:/ clear");
+    /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4793:/ cppif.else");
+  /*_.IFCPP___V54*/ curfptr[50] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4794:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V29*/ curfptr[28]), (melt_ptr_t)(/*_.GOTOTHEN__V23*/ curfptr[22]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4796:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4796:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4796:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4796:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_instance gotoelse";
+     MELT_LOCATION("warmelt-genobj.melt:4796:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4796:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4796:/ apply.arg");
+     argtab[3].bp_long = 4796;
+     /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4796:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4796:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4796:/ cppif.else");
+  /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4797:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4797:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L11*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-genobj.melt:4797:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L11*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4797:/ cond.then");
+    /*_.IFELSE___V59*/ curfptr[58] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4797:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4797:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4797:/ locexp");
+       melt_assert_failed(( "check gotoelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4797)?(4797):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V58*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4797:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L11*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4797:/ clear");
+    /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4797:/ cppif.else");
+  /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4798:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V30*/ curfptr[29]), (melt_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4799:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V43*/ curfptr[42];;
+   MELT_LOCATION("warmelt-genobj.melt:4799:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V60*/ curfptr[58];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NORMATCH__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NIDENTICAL__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OMATCHED__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OIDENTICAL__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.GOTOTHEN__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.GOTOELSE__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.FREELIST__V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OTHENLIST__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OELSELIST__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OTHENBLOCK__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OELSEBLOCK__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.MAKE_STRINGCONST__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.MAKE_TUPLE5__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OTEST__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OCOND__V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.OLIST__V43*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.IFCPP___V54*/ curfptr[50] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4734:/ clear");
+  /*clear*/ /*_.RETURN___V60*/ curfptr[58] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:4729:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_NORMTESTER_SAME", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 41
+  void* varptr[41];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<41; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 41;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_NORMTESTER_SUCCESS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ getarg");
+ /*_.NTSU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4806:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4807:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4807:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4807:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4807:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_success ntsu";
+    MELT_LOCATION("warmelt-genobj.melt:4807:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4807:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4807:/ apply.arg");
+    argtab[3].bp_long = 4807;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4807:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4807:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4807:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4808:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4808:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4808:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4808:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_success tcx";
+    MELT_LOCATION("warmelt-genobj.melt:4808:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4808:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4808:/ apply.arg");
+    argtab[3].bp_long = 4808;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4808:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4808:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4808:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4809:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4809:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4809:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4809:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4809:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4809:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4809:/ locexp");
+      melt_assert_failed(( "check ntsu"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4809)?(4809):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4809:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4809:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4809:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4810:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4810:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4810:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4810:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4810:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4810:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4810:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4810)?(4810):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4810:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4811:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4811:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4811:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4811:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4811:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4811:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4811:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4811)?(4811):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4811:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4811:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4811:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4812:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4813:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4814:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4815:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4816:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4817:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCLIS__V20*/ curfptr[19] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4818:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V21*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4819:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 7, "NTSUCCESS_DO");/*_.NSUCDO__V22*/ curfptr[21] = slot; };
+  ;
+  /*_#NTESTIX__L6*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4821:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4821:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-genobj.melt:4821:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V16*/ curfptr[15];
+   /*_.GOTOEND__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4823:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4823:/ block");
+   /*block*/{
+    /*_#NULL__L7*/ curfnum[6] = 
+     ((/*_.NLOCLIS__V20*/ curfptr[19]) == NULL);;
+    MELT_LOCATION("warmelt-genobj.melt:4823:/ cond");
+    /*cond*/ if (/*_#NULL__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4823:/ cond.then");
+    /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4823:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4823:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4823:/ locexp");
+       melt_assert_failed(( "check nil nloclis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4823)?(4823):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4823:/ clear");
+    /*clear*/ /*_#NULL__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4823:/ clear");
+    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4823:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4824:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4824:/ block");
+   /*block*/{
+    /*_#NULL__L8*/ curfnum[6] = 
+     ((/*_.NTHEN__V18*/ curfptr[17]) == NULL);;
+    MELT_LOCATION("warmelt-genobj.melt:4824:/ cond");
+    /*cond*/ if (/*_#NULL__L8*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4824:/ cond.then");
+    /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4824:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4824:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4824:/ locexp");
+       melt_assert_failed(( "check nil nthen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4824)?(4824):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4824:/ clear");
+    /*clear*/ /*_#NULL__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4824:/ clear");
+    /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4824:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4825:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4825:/ block");
+   /*block*/{
+    /*_#NULL__L9*/ curfnum[6] = 
+     ((/*_.NELSE__V19*/ curfptr[18]) == NULL);;
+    MELT_LOCATION("warmelt-genobj.melt:4825:/ cond");
+    /*cond*/ if (/*_#NULL__L9*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4825:/ cond.then");
+    /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4825:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:4825:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4825:/ locexp");
+       melt_assert_failed(( "check nil nelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4825)?(4825):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4825:/ clear");
+    /*clear*/ /*_#NULL__L9*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4825:/ clear");
+    /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4825:/ cppif.else");
+  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4826:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4826:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4826:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4826:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_success nsucdo";
+     MELT_LOCATION("warmelt-genobj.melt:4826:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6];
+     MELT_LOCATION("warmelt-genobj.melt:4826:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4826:/ apply.arg");
+     argtab[3].bp_long = 4826;
+     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSUCDO__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V30*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4826:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4826:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4826:/ cppif.else");
+  /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4827:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4827:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4827:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+    /*_.OSUCC__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.NSUCDO__V22*/ curfptr[21]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4829:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4829:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4829:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4829:/ apply.arg");
+      argtab[0].bp_cstring =  "compiltst_normtester_success osucc";
+      MELT_LOCATION("warmelt-genobj.melt:4829:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[6];
+      MELT_LOCATION("warmelt-genobj.melt:4829:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4829:/ apply.arg");
+      argtab[3].bp_long = 4829;
+      /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4829:/ cppif.else");
+   /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_#IS_LIST__L12*/ curfnum[6] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-genobj.melt:4831:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[6]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4831:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4831:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:4833:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (melt_ptr_t)(/*_.GOTOEND__V23*/ curfptr[22]));}
+     ;
+     /*_.LIST_LAST__V37*/ curfptr[36] = 
+      (melt_list_last((melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32])));;
+     MELT_LOCATION("warmelt-genobj.melt:4834:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.OSUCC__V33*/ curfptr[32];;
+      MELT_LOCATION("warmelt-genobj.melt:4834:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.LIST_LAST__V37*/ curfptr[36]);
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4834:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4832:/ block");
+     /*block*/{
+      /*_.PROGN___V39*/ curfptr[38] = /*_.RETURN___V38*/ curfptr[37];;}
+     ;
+     /*_.IFELSE___V36*/ curfptr[34] = /*_.PROGN___V39*/ curfptr[38];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4831:/ clear");
+     /*clear*/ /*_.LIST_LAST__V37*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4831:/ clear");
+     /*clear*/ /*_.RETURN___V38*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4831:/ clear");
+     /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4831:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4831:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4835:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4835:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GOTOEND__V23*/ curfptr[22];
+      /*_.LIST2__V40*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!LIST2*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4835:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST2__V40*/ curfptr[36];;
+      MELT_LOCATION("warmelt-genobj.melt:4835:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.OSUCC__V33*/ curfptr[32]);
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4835:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.IFELSE___V36*/ curfptr[34] = /*_.RETURN___V41*/ curfptr[37];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4831:/ clear");
+     /*clear*/ /*_.LIST2__V40*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4831:/ clear");
+     /*clear*/ /*_.RETURN___V41*/ curfptr[37] = 0 ;}
+    ;
+    }
+   ;
+   /*_.LET___V32*/ curfptr[30] = /*_.IFELSE___V36*/ curfptr[34];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4827:/ clear");
+   /*clear*/ /*_.OSUCC__V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4827:/ clear");
+   /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4827:/ clear");
+   /*clear*/ /*_#IS_LIST__L12*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4827:/ clear");
+   /*clear*/ /*_.IFELSE___V36*/ curfptr[34] = 0 ;}
+  ;
+  /*_.LET___V15*/ curfptr[13] = /*_.LET___V32*/ curfptr[30];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NLOC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NMATCHED__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NTHEN__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NELSE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NLOCLIS__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NORMATCH__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.NSUCDO__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_#NTESTIX__L6*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.GOTOEND__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4812:/ clear");
+  /*clear*/ /*_.LET___V32*/ curfptr[30] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[13];;
+  MELT_LOCATION("warmelt-genobj.melt:4806:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
+ /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_NORMTESTER_SUCCESS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILTST_NORMTESTER_DISJUNCTION", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ getarg");
+ /*_.NTDJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4844:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4845:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4845:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4845:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4845:/ apply.arg");
+    argtab[0].bp_cstring =  "compiltst_normtester_disjunction ntdj";
+    MELT_LOCATION("warmelt-genobj.melt:4845:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4845:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4845:/ apply.arg");
+    argtab[3].bp_long = 4845;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4845:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4845:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4845:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4846:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4846:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_DISJUNCTION*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4846:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4846:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4846:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4846:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4846:/ locexp");
+      melt_assert_failed(( "check ntdj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4846)?(4846):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4846:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4846:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4846:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4847:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4847:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4847:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4847:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4847:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4847:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4847:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4847)?(4847):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4847:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4848:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4848:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4848:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4848:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4848:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4848:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4848:/ locexp");
+      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4848)?(4848):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4848:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4848:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4848:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4849:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4850:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4851:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V15*/ curfptr[14] = slot; };
+  ;
+  /*_#NTESTIX__L5*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1])));;
+  MELT_LOCATION("warmelt-genobj.melt:4853:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4854:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4854:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+   /*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NELSE__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4854:/ cond");
+  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16]) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4854:/ cond.then");
+  /*_.GOTOELSE__V18*/ curfptr[17] = /*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16];;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4854:/ cond.else");
+  
+   MELT_LOCATION("warmelt-genobj.melt:4854:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4855:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4855:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-genobj.melt:4855:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
+     /*_.ENDMATCH_GOTOINSTR__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NORMATCH__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.GOTOELSE__V18*/ curfptr[17] = /*_.ENDMATCH_GOTOINSTR__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4854:/ clear");
+    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V19*/ curfptr[18] = 0 ;}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4857:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4857:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4857:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4857:/ apply.arg");
+     argtab[0].bp_cstring =  "compiltst_normtester_disjunction gotoelse";
+     MELT_LOCATION("warmelt-genobj.melt:4857:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-genobj.melt:4857:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4857:/ apply.arg");
+     argtab[3].bp_long = 4857;
+     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4857:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4857:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4857:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4858:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.GOTOELSE__V18*/ curfptr[17];;
+   MELT_LOCATION("warmelt-genobj.melt:4858:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V22*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.NELSE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.NORMATCH__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.GOTOELSE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4849:/ clear");
+  /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-genobj.melt:4844:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILTST_NORMTESTER_DISJUNCTION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 98
+  void* varptr[98];
+#define CURFRAM_NBVARNUM 29
+  long varnum[29];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<98; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 98;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILMATCHER_CMATCHER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ getarg");
+ /*_.CMAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4864:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4865:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4865:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4865:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4865:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_cmatcher cmat";
+    MELT_LOCATION("warmelt-genobj.melt:4865:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4865:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4865:/ apply.arg");
+    argtab[3].bp_long = 4865;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4865:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4865:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4865:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4866:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4866:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4866:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4866:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_cmatcher mcx";
+    MELT_LOCATION("warmelt-genobj.melt:4866:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:4866:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4866:/ apply.arg");
+    argtab[3].bp_long = 4866;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4866:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4866:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4866:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4867:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4867:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4867:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4867:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4867:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4867:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4867:/ locexp");
+      melt_assert_failed(( "check cmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4867)?(4867):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4867:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4867:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4867:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4868:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4868:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:4868:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4868:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4868:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4868:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4868:/ locexp");
+      melt_assert_failed(( "check mcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4868)?(4868):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4868:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4869:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4869:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:4869:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4869:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4869:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4869:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4869:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4869)?(4869):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4869:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4869:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4869:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4870:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4871:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 2, "AMATCH_IN");/*_.CMINS__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4872:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 3, "AMATCH_MATCHBIND");/*_.CMBIND__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4873:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 4, "AMATCH_OUT");/*_.CMOUTS__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4874:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 5, "CMATCH_STATE");/*_.CMSTATE__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4875:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 6, "CMATCH_EXPTEST");/*_.CMEXPTEST__V20*/ curfptr[19] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4876:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 7, "CMATCH_EXPFILL");/*_.CMEXPFILL__V21*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4878:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 2, "MCX_NORMTESTER");/*_.NORMTESTER__V22*/ curfptr[21] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L6*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CMINS__V16*/ curfptr[15])));;
+  /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CMOUTS__V18*/ curfptr[17])));;
+  /*_#I__L8*/ curfnum[7] = 
+   ((/*_#MULTIPLE_LENGTH__L6*/ curfnum[0]) + (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]));;
+  /*_#I__L9*/ curfnum[8] = 
+   ((2) * (/*_#I__L8*/ curfnum[7]));;
+  /*_#I__L10*/ curfnum[9] = 
+   ((5) + (/*_#I__L9*/ curfnum[8]));;
+  /*_.SUBSTMAP__V23*/ curfptr[22] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[4])), (/*_#I__L10*/ curfnum[9])));;
+  MELT_LOCATION("warmelt-genobj.melt:4884:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4884:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4884:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4884:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 7, "MCX_STATECOUNTER");/*_.BOXCNT__V24*/ curfptr[23] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4884:/ cond.else");
+   
+    /*_.BOXCNT__V24*/ curfptr[23] = NULL;;
+    }
+   ;
+   /*_#GET_INT__L12*/ curfnum[11] = 
+    (melt_get_int((melt_ptr_t)(/*_.BOXCNT__V24*/ curfptr[23])));;
+   /*_#CNT__L13*/ curfnum[12] = 
+    ((1) + (/*_#GET_INT__L12*/ curfnum[11]));;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4886:/ locexp");
+   melt_put_int((melt_ptr_t)(/*_.BOXCNT__V24*/ curfptr[23]), (/*_#CNT__L13*/ curfnum[12]));}
+   ;
+   /*_#LET___L11*/ curfnum[10] = /*_#CNT__L13*/ curfnum[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4884:/ clear");
+   /*clear*/ /*_.BOXCNT__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4884:/ clear");
+   /*clear*/ /*_#GET_INT__L12*/ curfnum[11] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4884:/ clear");
+   /*clear*/ /*_#CNT__L13*/ curfnum[12] = 0 ;}
+  ;
+  /*_#MCXCOUNT__L14*/ curfnum[11] = /*_#LET___L11*/ curfnum[10];;
+  MELT_LOCATION("warmelt-genobj.melt:4889:/ block");
+  /*block*/{
+   /*_.SBUF__V26*/ curfptr[25] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[5])), (char*)0);;
+   MELT_LOCATION("warmelt-genobj.melt:4890:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMSTATE__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4890:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4890:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CMSTATE__V19*/ curfptr[18]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4890:/ cond.else");
+   
+    /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4890:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4891:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), ( "_"));}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4892:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4892:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4892:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 6, "MCX_SUFFIX");/*_.MCX_SUFFIX__V28*/ curfptr[27] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4892:/ cond.else");
+   
+    /*_.MCX_SUFFIX__V28*/ curfptr[27] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4892:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), melt_string_str((melt_ptr_t)(/*_.MCX_SUFFIX__V28*/ curfptr[27])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4893:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), ( "_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-genobj.melt:4894:/ locexp");
+   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), (/*_#MCXCOUNT__L14*/ curfnum[11]));}
+   ;
+   /*_.STRBUF2STRING__V29*/ curfptr[28] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]))));;
+   /*_.LET___V25*/ curfptr[23] = /*_.STRBUF2STRING__V29*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4889:/ clear");
+   /*clear*/ /*_.SBUF__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4889:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4889:/ clear");
+   /*clear*/ /*_.MCX_SUFFIX__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4889:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V29*/ curfptr[28] = 0 ;}
+  ;
+  /*_.UNIQSTATE__V30*/ curfptr[25] = /*_.LET___V25*/ curfptr[23];;
+  MELT_LOCATION("warmelt-genobj.melt:4897:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4897:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4897:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 5, "MCX_OLIST");/*_.OLIST__V31*/ curfptr[26] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4897:/ cond.else");
+  
+   /*_.OLIST__V31*/ curfptr[26] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4900:/ locexp");
+  meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V23*/ curfptr[22]), 
+			   (meltobject_ptr_t) (/*_.CMSTATE__V19*/ curfptr[18]), 
+			   (melt_ptr_t)(/*_.UNIQSTATE__V30*/ curfptr[25]));}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4902:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4902:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[8])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4902:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4902:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 1, "NTEST_MATCHED");/*_.NMATCHED__V32*/ curfptr[27] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4902:/ cond.else");
+   
+    /*_.NMATCHED__V32*/ curfptr[27] = NULL;;
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4903:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4903:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4903:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_cmatcher nmatched";
+      MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12];
+      MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
+      argtab[3].bp_long = 4903;
+      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHED__V32*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4903:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4903:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4903:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4904:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4904:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4904:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
+     /*_.OBMATCHED__V35*/ curfptr[33] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V32*/ curfptr[27]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4905:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4905:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L16*/ curfnum[12] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4905:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4905:/ apply.arg");
+       argtab[0].bp_cstring =  "compilmatcher_cmatcher obmatched";
+       MELT_LOCATION("warmelt-genobj.melt:4905:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[12];
+       MELT_LOCATION("warmelt-genobj.melt:4905:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4905:/ apply.arg");
+       argtab[3].bp_long = 4905;
+       /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBMATCHED__V35*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V36*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4905:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[12] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4905:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4905:/ cppif.else");
+    /*_.IFCPP___V36*/ curfptr[35] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-genobj.melt:4907:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMBIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[10])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4907:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4907:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V38*/ curfptr[36] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:4907:/ cond.else");
+    
+     /*_.BINDER__V38*/ curfptr[36] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4906:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V23*/ curfptr[22]), 
+			   (meltobject_ptr_t) (/*_.BINDER__V38*/ curfptr[36]), 
+			   (melt_ptr_t)(/*_.OBMATCHED__V35*/ curfptr[33]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4904:/ clear");
+    /*clear*/ /*_.OBMATCHED__V35*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4904:/ clear");
+    /*clear*/ /*_.IFCPP___V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4904:/ clear");
+    /*clear*/ /*_.BINDER__V38*/ curfptr[36] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4902:/ clear");
+   /*clear*/ /*_.NMATCHED__V32*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4902:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4911:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4911:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4911:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4911:/ apply.arg");
+     argtab[0].bp_cstring =  "compilmatcher_cmatcher normtester";
+     MELT_LOCATION("warmelt-genobj.melt:4911:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[12];
+     MELT_LOCATION("warmelt-genobj.melt:4911:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4911:/ apply.arg");
+     argtab[3].bp_long = 4911;
+     /*_.DEBUG_MSG_FUN__V40*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4911:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4911:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[35] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4911:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[33] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4914:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[12])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4914:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4914:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 9, "NTMATCH_INARGS");/*_.NTMATCH_INARGS__V41*/ curfptr[36] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4914:/ cond.else");
+  
+   /*_.NTMATCH_INARGS__V41*/ curfptr[36] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4916:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4916:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[28] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4916:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4916:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]);
+   ;
+   /*_.LAMBDA___V42*/ curfptr[27] = /*_.LAMBDA___V43*/ curfptr[28];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4913:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4913:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMINS__V16*/ curfptr[15];
+   MELT_LOCATION("warmelt-genobj.melt:4913:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[27];
+   /*_.MULTIPLE_EVERY_BOTH__V44*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NTMATCH_INARGS__V41*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4928:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[12])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4928:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4928:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 10, "NTMATCH_OUTLOCS");/*_.NTMATCH_OUTLOCS__V45*/ curfptr[44] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4928:/ cond.else");
+  
+   /*_.NTMATCH_OUTLOCS__V45*/ curfptr[44] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4930:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4930:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (2));
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4930:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4930:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]);
+   ;
+   /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;}
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4927:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4927:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMOUTS__V18*/ curfptr[17];
+   MELT_LOCATION("warmelt-genobj.melt:4927:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45];
+   /*_.MULTIPLE_EVERY_BOTH__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NTMATCH_OUTLOCS__V45*/ curfptr[44]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4940:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4940:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L18*/ curfnum[12] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4940:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4940:/ apply.arg");
+     argtab[0].bp_cstring =  "compilmatcher_cmatcher substmap";
+     MELT_LOCATION("warmelt-genobj.melt:4940:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[12];
+     MELT_LOCATION("warmelt-genobj.melt:4940:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4940:/ apply.arg");
+     argtab[3].bp_long = 4940;
+     /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[12] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4940:/ cppif.else");
+  /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4942:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4944:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4944:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V53*/ curfptr[52] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (2));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4944:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V53*/ curfptr[52])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V53*/ curfptr[52])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V53*/ curfptr[52])->tabval[0] = (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]);
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4944:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V53*/ curfptr[52])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V53*/ curfptr[52])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V53*/ curfptr[52])->tabval[1] = (melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]);
+    ;
+    /*_.EXPANDER__V52*/ curfptr[51] = /*_.LAMBDA___V53*/ curfptr[52];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4963:/ apply");
+   /*apply*/{
+    /*_.EXPTEST__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)(/*_.EXPANDER__V52*/ curfptr[51]), (melt_ptr_t)(/*_.CMEXPTEST__V20*/ curfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4964:/ apply");
+   /*apply*/{
+    /*_.EXPFILL__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)(/*_.EXPANDER__V52*/ curfptr[51]), (melt_ptr_t)(/*_.CMEXPFILL__V21*/ curfptr[20]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4965:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4965:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4965:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 1, "MCX_LOC");/*_.MLOC__V56*/ curfptr[55] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4965:/ cond.else");
+   
+    /*_.MLOC__V56*/ curfptr[55] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4966:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4966:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[29])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V58*/ curfptr[57] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4966:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), ((/*!CTYPE_LONG*/ curfrout->tabval[30])), "OBV_TYPE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4966:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.EXPTEST__V54*/ curfptr[53]), "OBX_CONT");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4966:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), (/*_.MLOC__V56*/ curfptr[55]), "OBCX_LOC");
+    ;
+    /*_.TESTCHUNK__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:4970:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:4970:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[29])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V60*/ curfptr[59] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4970:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), ((/*!CTYPE_VOID*/ curfrout->tabval[31])), "OBV_TYPE");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4970:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), (/*_.EXPFILL__V55*/ curfptr[54]), "OBX_CONT");
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4970:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), (/*_.MLOC__V56*/ curfptr[55]), "OBCX_LOC");
+    ;
+    /*_.FILLCHUNK__V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4975:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4975:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L19*/ curfnum[12] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4975:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4975:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_cmatcher exptest";
+      MELT_LOCATION("warmelt-genobj.melt:4975:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[12];
+      MELT_LOCATION("warmelt-genobj.melt:4975:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4975:/ apply.arg");
+      argtab[3].bp_long = 4975;
+      /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTEST__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4975:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4975:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4975:/ cppif.else");
+   /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4976:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4976:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L20*/ curfnum[12] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4976:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_cmatcher expfill";
+      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[12];
+      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
+      argtab[3].bp_long = 4976;
+      /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.EXPFILL__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V63*/ curfptr[61] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4976:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4976:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4976:/ cppif.else");
+   /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4977:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4977:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4977:/ cond");
+     /*cond*/ if (/*_.EXPTEST__V54*/ curfptr[53]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4977:/ cond.then");
+     /*_.IFELSE___V66*/ curfptr[65] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4977:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4977:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-genobj.melt:4977:/ locexp");
+        melt_assert_failed(( "compilmatcher_cmatcher check exptest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4977)?(4977):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V66*/ curfptr[65] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V65*/ curfptr[63] = /*_.IFELSE___V66*/ curfptr[65];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4977:/ clear");
+     /*clear*/ /*_.IFELSE___V66*/ curfptr[65] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4977:/ cppif.else");
+   /*_.IFCPP___V65*/ curfptr[63] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4978:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4978:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L21*/ curfnum[12] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4978:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4978:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_cmatcher testchunk";
+      MELT_LOCATION("warmelt-genobj.melt:4978:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[12];
+      MELT_LOCATION("warmelt-genobj.melt:4978:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4978:/ apply.arg");
+      argtab[3].bp_long = 4978;
+      /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.TESTCHUNK__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V67*/ curfptr[65] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[67];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4978:/ cppif.else");
+   /*_.IFCPP___V67*/ curfptr[65] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:4979:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:4979:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L22*/ curfnum[12] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:4979:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:4979:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_cmatcher fillchunk";
+      MELT_LOCATION("warmelt-genobj.melt:4979:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[12];
+      MELT_LOCATION("warmelt-genobj.melt:4979:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:4979:/ apply.arg");
+      argtab[3].bp_long = 4979;
+      /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FILLCHUNK__V59*/ curfptr[58]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V69*/ curfptr[67] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4979:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4979:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:4979:/ cppif.else");
+   /*_.IFCPP___V69*/ curfptr[67] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:4980:/ block");
+   /*block*/{
+    /*_.OTHENLIST__V72*/ curfptr[71] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[32]))));;
+    MELT_LOCATION("warmelt-genobj.melt:4982:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4982:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[33])), (3), "CLASS_OBJBLOCK");/*_.INST__V74*/ curfptr[73] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4982:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V74*/ curfptr[73]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4982:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V74*/ curfptr[73]), (1), (/*_.OTHENLIST__V72*/ curfptr[71]), "OBLO_BODYL");
+     ;
+     /*_.OTHENBODY__V73*/ curfptr[72] = /*_.INST__V74*/ curfptr[73];;}
+    ;
+    /*_.OELSELIST__V75*/ curfptr[74] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[32]))));;
+    MELT_LOCATION("warmelt-genobj.melt:4987:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4987:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[33])), (3), "CLASS_OBJBLOCK");/*_.INST__V77*/ curfptr[76] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4987:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V77*/ curfptr[76]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4987:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V77*/ curfptr[76]), (1), (/*_.OELSELIST__V75*/ curfptr[74]), "OBLO_BODYL");
+     ;
+     /*_.OELSEBODY__V76*/ curfptr[75] = /*_.INST__V77*/ curfptr[76];;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:4991:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4991:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[34])), (4), "CLASS_OBJCOND");/*_.INST__V79*/ curfptr[78] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4991:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4991:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), (/*_.TESTCHUNK__V57*/ curfptr[56]), "OBCOND_TEST");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4991:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), (/*_.OTHENBODY__V73*/ curfptr[72]), "OBCOND_THEN");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:4991:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.OELSEBODY__V76*/ curfptr[75]), "OBCOND_ELSE");
+     ;
+     /*_.OCOND__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:4998:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:4998:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L23*/ curfnum[12] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:4998:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:4998:/ apply.arg");
+       argtab[0].bp_cstring =  "compilmatcher_cmatcher ocond";
+       MELT_LOCATION("warmelt-genobj.melt:4998:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[12];
+       MELT_LOCATION("warmelt-genobj.melt:4998:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:4998:/ apply.arg");
+       argtab[3].bp_long = 4998;
+       /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V78*/ curfptr[77]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V80*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[80];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4998:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[12] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4998:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:4998:/ cppif.else");
+    /*_.IFCPP___V80*/ curfptr[79] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:4999:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V31*/ curfptr[26]), (melt_ptr_t)(/*_.OCOND__V78*/ curfptr[77]));}
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CMOUTS__V18*/ curfptr[17]);
+   for (/*_#OUTIX__L24*/ curfnum[12] = 0;  
+	(/*_#OUTIX__L24*/ curfnum[12] >= 0) && (/*_#OUTIX__L24*/ curfnum[12] <  cit1__EACHTUP_ln);  
+	/*_#OUTIX__L24*/ curfnum[12]++) {
+   /*_.CUROUT__V82*/ curfptr[80] = melt_multiple_nth((melt_ptr_t)(/*_.CMOUTS__V18*/ curfptr[17]),  /*_#OUTIX__L24*/ curfnum[12]);
+   
+    
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:5003:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:5003:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 
+        callcount;;
+       MELT_LOCATION("warmelt-genobj.melt:5003:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-genobj.melt:5003:/ apply.arg");
+        argtab[0].bp_cstring =  "compilmatcher_cmatcher curout";
+        MELT_LOCATION("warmelt-genobj.melt:5003:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24];
+        MELT_LOCATION("warmelt-genobj.melt:5003:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-genobj.melt";
+        MELT_LOCATION("warmelt-genobj.melt:5003:/ apply.arg");
+        argtab[3].bp_long = 5003;
+        /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V82*/ curfptr[80]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V83*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V84*/ curfptr[83];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:5003:/ cppif.else");
+     /*_.IFCPP___V83*/ curfptr[82] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-genobj.melt:5004:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:5004:/ block");
+      /*block*/{
+       /*_#IS_A__L26*/ curfnum[24] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V82*/ curfptr[80]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[35])));;
+       MELT_LOCATION("warmelt-genobj.melt:5004:/ cond");
+       /*cond*/ if (/*_#IS_A__L26*/ curfnum[24]) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:5004:/ cond.then");
+       /*_.IFELSE___V86*/ curfptr[85] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-genobj.melt:5004:/ cond.else");
+       
+        MELT_LOCATION("warmelt-genobj.melt:5004:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-genobj.melt:5004:/ locexp");
+          melt_assert_failed(( "check curout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (5004)?(5004):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V86*/ curfptr[85] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V85*/ curfptr[83] = /*_.IFELSE___V86*/ curfptr[85];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:5004:/ clear");
+       /*clear*/ /*_#IS_A__L26*/ curfnum[24] = 0 ;
+       MELT_LOCATION("warmelt-genobj.melt:5004:/ clear");
+       /*clear*/ /*_.IFELSE___V86*/ curfptr[85] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-genobj.melt:5004:/ cppif.else");
+     /*_.IFCPP___V85*/ curfptr[83] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-genobj.melt:5005:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:5007:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUT__V82*/ curfptr[80]), 0, "BINDER");/*_.BINDER__V87*/ curfptr[85] = slot; };
+      ;
+      /*_.LOCOUT__V88*/ curfptr[87] = 
+       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]), (meltobject_ptr_t)(/*_.BINDER__V87*/ curfptr[85]));;
+      MELT_LOCATION("warmelt-genobj.melt:5008:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:5008:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[36])), (2), "CLASS_OBJCLEAR");/*_.INST__V90*/ curfptr[89] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:5008:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[89])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V90*/ curfptr[89]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:5008:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[89])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V90*/ curfptr[89]), (1), (/*_.LOCOUT__V88*/ curfptr[87]), "OCLR_VLOC");
+       ;
+       /*_.OCLEAROUT__V89*/ curfptr[88] = /*_.INST__V90*/ curfptr[89];;}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:5011:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:5011:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:5011:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:5011:/ apply.arg");
+         argtab[0].bp_cstring =  "compilmatcher_cmatcher oclearout";
+         MELT_LOCATION("warmelt-genobj.melt:5011:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[24];
+         MELT_LOCATION("warmelt-genobj.melt:5011:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:5011:/ apply.arg");
+         argtab[3].bp_long = 5011;
+         /*_.DEBUG_MSG_FUN__V92*/ curfptr[91] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCLEAROUT__V89*/ curfptr[88]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V91*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V92*/ curfptr[91];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:5011:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:5011:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V92*/ curfptr[91] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:5011:/ cppif.else");
+      /*_.IFCPP___V91*/ curfptr[90] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:5012:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:5012:/ block");
+       /*block*/{
+        /*_#IS_OBJECT__L28*/ curfnum[24] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.LOCOUT__V88*/ curfptr[87])) == OBMAG_OBJECT);;
+        MELT_LOCATION("warmelt-genobj.melt:5012:/ cond");
+        /*cond*/ if (/*_#IS_OBJECT__L28*/ curfnum[24]) /*then*/ {
+        MELT_LOCATION("warmelt-genobj.melt:5012:/ cond.then");
+        /*_.IFELSE___V94*/ curfptr[93] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-genobj.melt:5012:/ cond.else");
+        
+         MELT_LOCATION("warmelt-genobj.melt:5012:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-genobj.melt:5012:/ locexp");
+           melt_assert_failed(( "check locout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (5012)?(5012):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V94*/ curfptr[93] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V93*/ curfptr[91] = /*_.IFELSE___V94*/ curfptr[93];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:5012:/ clear");
+        /*clear*/ /*_#IS_OBJECT__L28*/ curfnum[24] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:5012:/ clear");
+        /*clear*/ /*_.IFELSE___V94*/ curfptr[93] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:5012:/ cppif.else");
+      /*_.IFCPP___V93*/ curfptr[91] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:5013:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V72*/ curfptr[71]), (melt_ptr_t)(/*_.OCLEAROUT__V89*/ curfptr[88]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:5005:/ clear");
+      /*clear*/ /*_.BINDER__V87*/ curfptr[85] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5005:/ clear");
+      /*clear*/ /*_.LOCOUT__V88*/ curfptr[87] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5005:/ clear");
+      /*clear*/ /*_.OCLEAROUT__V89*/ curfptr[88] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5005:/ clear");
+      /*clear*/ /*_.IFCPP___V91*/ curfptr[90] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5005:/ clear");
+      /*clear*/ /*_.IFCPP___V93*/ curfptr[91] = 0 ;}
+     ;
+     if (/*_#OUTIX__L24*/ curfnum[12]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5000:/ clear");
+     /*clear*/ /*_.CUROUT__V82*/ curfptr[80] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5000:/ clear");
+     /*clear*/ /*_#OUTIX__L24*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5000:/ clear");
+     /*clear*/ /*_.IFCPP___V83*/ curfptr[82] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5000:/ clear");
+     /*clear*/ /*_.IFCPP___V85*/ curfptr[83] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5016:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V72*/ curfptr[71]), (melt_ptr_t)(/*_.FILLCHUNK__V59*/ curfptr[58]));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5017:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:5017:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:5017:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 3, "MCX_GOTOTHEN");/*_.MCX_GOTOTHEN__V95*/ curfptr[93] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:5017:/ cond.else");
+    
+     /*_.MCX_GOTOTHEN__V95*/ curfptr[93] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5017:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V72*/ curfptr[71]), (melt_ptr_t)(/*_.MCX_GOTOTHEN__V95*/ curfptr[93]));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5018:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:5018:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:5018:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 4, "MCX_GOTOELSE");/*_.MCX_GOTOELSE__V96*/ curfptr[85] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:5018:/ cond.else");
+    
+     /*_.MCX_GOTOELSE__V96*/ curfptr[85] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5018:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V75*/ curfptr[74]), (melt_ptr_t)(/*_.MCX_GOTOELSE__V96*/ curfptr[85]));}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:5019:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:5019:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:5019:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:5019:/ apply.arg");
+       argtab[0].bp_cstring =  "compilmatcher_cmatcher final ocond";
+       MELT_LOCATION("warmelt-genobj.melt:5019:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[24];
+       MELT_LOCATION("warmelt-genobj.melt:5019:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:5019:/ apply.arg");
+       argtab[3].bp_long = 5019;
+       /*_.DEBUG_MSG_FUN__V98*/ curfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V78*/ curfptr[77]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V97*/ curfptr[87] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[88];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:5019:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5019:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[88] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:5019:/ cppif.else");
+    /*_.IFCPP___V97*/ curfptr[87] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V71*/ curfptr[69] = /*_.IFCPP___V97*/ curfptr[87];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.OTHENLIST__V72*/ curfptr[71] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.OTHENBODY__V73*/ curfptr[72] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.OELSELIST__V75*/ curfptr[74] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.OELSEBODY__V76*/ curfptr[75] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.OCOND__V78*/ curfptr[77] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.IFCPP___V80*/ curfptr[79] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.MCX_GOTOTHEN__V95*/ curfptr[93] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.MCX_GOTOELSE__V96*/ curfptr[85] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4980:/ clear");
+    /*clear*/ /*_.IFCPP___V97*/ curfptr[87] = 0 ;}
+   ;
+   /*_.LET___V51*/ curfptr[49] = /*_.LET___V71*/ curfptr[69];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.EXPANDER__V52*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.EXPTEST__V54*/ curfptr[53] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.EXPFILL__V55*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.MLOC__V56*/ curfptr[55] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.TESTCHUNK__V57*/ curfptr[56] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.FILLCHUNK__V59*/ curfptr[58] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.IFCPP___V65*/ curfptr[63] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.IFCPP___V67*/ curfptr[65] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.IFCPP___V69*/ curfptr[67] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
+   /*clear*/ /*_.LET___V71*/ curfptr[69] = 0 ;}
+  ;
+  /*_.LET___V15*/ curfptr[13] = /*_.LET___V51*/ curfptr[49];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.CMINS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.CMBIND__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.CMOUTS__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.CMSTATE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.CMEXPTEST__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.CMEXPFILL__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.NORMTESTER__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.SUBSTMAP__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#LET___L11*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_#MCXCOUNT__L14*/ curfnum[11] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.UNIQSTATE__V30*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.OLIST__V31*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.NTMATCH_INARGS__V41*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.LAMBDA___V42*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V44*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.NTMATCH_OUTLOCS__V45*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V48*/ curfptr[47] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4870:/ clear");
+  /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[13];;
+  MELT_LOCATION("warmelt-genobj.melt:4864:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
+ /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILMATCHER_CMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER*/
+
+
+
+/**** end of warmelt-genobj.0+2.c ****/
diff --git a/gcc/melt/warmelt-genobj.0+3.c b/gcc/melt/warmelt-genobj.0+3.c
new file mode 100644
index 00000000000..d7b10653dea
--- /dev/null
+++ b/gcc/melt/warmelt-genobj.0+3.c
@@ -0,0 +1,3440 @@
+/* GCC MELT GENERATED FILE warmelt-genobj.0+3.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #3 */
+#include "run-melt.h"
+
+/**** warmelt-genobj.0+3.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_genobj_COMPILOBJ_CATCHALL_NREP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_genobj_PUTOBJDEST_CATCHALL_OBJCODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_genobj_PUTOBJDEST_CATCHALL_ANYDISCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_genobj_GETCTYPE_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_genobj_GECTYP_OBJNIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_genobj_DBGOUT_ROUTINEOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_genobj_PUTOBJDEST_OBJDESTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_genobj_PUTOBJDEST_OBJFINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_genobj_COMPILE2OBJ_PROCEDURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_genobj_APPEND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_genobj_APPEND_COMMENTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_genobj_COMPILE2OBJ_INITPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_genobj_GET_FREE_OBJLOCPTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_genobj_GET_FREE_OBJLOCLONG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_genobj_GET_FREE_OBJLOCTYPED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_genobj_DISPOSE_OBJLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_genobj_DISPOSE_BND_OBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_genobj_COMPILOBJ_NREP_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_genobj_GETCTYPE_TYPEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_genobj_COMPILOBJ_NREP_NIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_genobj_COMPILOBJ_NREP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_genobj_COMPILOBJ_NREP_LOCSYMOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_genobj_COMPILOBJ_NREP_CLOSEDOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_genobj_COMPILOBJ_NREP_CONSTOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_genobj_COMPILOBJ_NREP_IMPORTEDVAL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_genobj_COMPILOBJ_NREP_QUASICONSTANT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_genobj_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_genobj_COMPILOBJ_NREP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_genobj_COMPILOBJ_NREP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_genobj_COMPILOBJ_DISCRANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_genobj_COMPILOBJ_NREP_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_genobj_PUTOBJDEST_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_genobj_PUTOBJDEST_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-genobj.0+3.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_148_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_148_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ getarg");
+ /*_.CURIN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FORMIN__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4916:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4917:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4917:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4917:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4917:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_cmatcher curin";
+    MELT_LOCATION("warmelt-genobj.melt:4917:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:4917:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4917:/ apply.arg");
+    argtab[3].bp_long = 4917;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURIN__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4917:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4917:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4917:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4918:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4918:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4918:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4918:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_cmatcher formin";
+    MELT_LOCATION("warmelt-genobj.melt:4918:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:4918:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4918:/ apply.arg");
+    argtab[3].bp_long = 4918;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4918:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4918:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4918:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4919:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4919:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4919:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4919:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4919:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4919:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4919:/ locexp");
+      melt_assert_failed(( "check formin"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4919)?(4919):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4919:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4919:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4919:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4920:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4920:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4920:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OIN__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CURIN__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4921:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4921:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4921:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4921:/ apply.arg");
+     argtab[0].bp_cstring =  "compilmatcher_cmatcher oin";
+     MELT_LOCATION("warmelt-genobj.melt:4921:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:4921:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4921:/ apply.arg");
+     argtab[3].bp_long = 4921;
+     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OIN__V10*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4921:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4921:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4921:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4923:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4923:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4923:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDER__V13*/ curfptr[11] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4923:/ cond.else");
+  
+   /*_.BINDER__V13*/ curfptr[11] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4922:/ locexp");
+  meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SUBSTMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.BINDER__V13*/ curfptr[11]), 
+			   (melt_ptr_t)(/*_.OIN__V10*/ curfptr[8]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4920:/ clear");
+  /*clear*/ /*_.OIN__V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4920:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4920:/ clear");
+  /*clear*/ /*_.BINDER__V13*/ curfptr[11] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_148_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_149_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_149_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ getarg");
+ /*_.CUROUT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FORMOUT__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4930:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4931:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4931:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4931:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4931:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_cmatcher curout";
+    MELT_LOCATION("warmelt-genobj.melt:4931:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:4931:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4931:/ apply.arg");
+    argtab[3].bp_long = 4931;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4931:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4931:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4931:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4932:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4932:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:4932:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:4932:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_cmatcher formout";
+    MELT_LOCATION("warmelt-genobj.melt:4932:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-genobj.melt:4932:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:4932:/ apply.arg");
+    argtab[3].bp_long = 4932;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4932:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4932:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4932:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:4933:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:4933:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:4933:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4933:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4933:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4933:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4933:/ locexp");
+      melt_assert_failed(( "check formout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (4933)?(4933):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4933:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4933:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:4933:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:4934:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4934:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-genobj.melt:4934:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+   /*_.OOUT__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:4935:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:4935:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:4935:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:4935:/ apply.arg");
+     argtab[0].bp_cstring =  "compilmatcher_cmatcher oout";
+     MELT_LOCATION("warmelt-genobj.melt:4935:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
+     MELT_LOCATION("warmelt-genobj.melt:4935:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:4935:/ apply.arg");
+     argtab[3].bp_long = 4935;
+     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OOUT__V10*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4935:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4935:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:4935:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:4937:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:4937:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:4937:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDER__V13*/ curfptr[11] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:4937:/ cond.else");
+  
+   /*_.BINDER__V13*/ curfptr[11] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-genobj.melt:4936:/ locexp");
+  meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SUBSTMAP*/ curfclos->tabval[1])), 
+			   (meltobject_ptr_t) (/*_.BINDER__V13*/ curfptr[11]), 
+			   (melt_ptr_t)(/*_.OOUT__V10*/ curfptr[8]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:4934:/ clear");
+  /*clear*/ /*_.OOUT__V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4934:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:4934:/ clear");
+  /*clear*/ /*_.BINDER__V13*/ curfptr[11] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_149_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_150_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_150_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4944:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:4947:/ newclosure");
+   /*newclosure*/ /*_.LAMBDA___V4*/ curfptr[3] =
+   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2));
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4947:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V4*/ curfptr[3])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V4*/ curfptr[3])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V4*/ curfptr[3])->tabval[0] = (melt_ptr_t)((/*~SUBSTMAP*/ curfclos->tabval[0]));
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:4947:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V4*/ curfptr[3])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V4*/ curfptr[3])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V4*/ curfptr[3])->tabval[1] = (melt_ptr_t)((/*~MCX*/ curfclos->tabval[1]));
+  ;
+  /*_.LAMBDA___V3*/ curfptr[2] = /*_.LAMBDA___V4*/ curfptr[3];;}
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4945:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:4945:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V3*/ curfptr[2];
+  /*_.MULTIPLE_MAP__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-genobj.melt:4944:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ clear");
+ /*clear*/ /*_.LAMBDA___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ clear");
+ /*clear*/ /*_.MULTIPLE_MAP__V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_150_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_151_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_151_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:4947:/ block");
+/*block*/{
+ /*_#IS_A__L1*/ curfnum[0] = 
+  melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-genobj.melt:4949:/ cond");
+ /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-genobj.melt:4949:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:4949:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:4950:/ block");
+   /*block*/{
+    /*_.R__V5*/ curfptr[4] = 
+     melt_get_mapobjects((meltmapobjects_ptr_t)((/*~SUBSTMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.C__V2*/ curfptr[1]));;
+    /*_#NULL__L2*/ curfnum[1] = 
+     ((/*_.R__V5*/ curfptr[4]) == NULL);;
+    MELT_LOCATION("warmelt-genobj.melt:4951:/ cond");
+    /*cond*/ if (/*_#NULL__L2*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:4951:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:4951:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:4952:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4952:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4952:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V6*/ curfptr[5] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4952:/ cond.else");
+      
+       /*_.MCX_LOC__V6*/ curfptr[5] = NULL;;
+       }
+      ;
+      MELT_LOCATION("warmelt-genobj.melt:4953:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
+      MELT_LOCATION("warmelt-genobj.melt:4953:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:4953:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.C__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ curfptr[6] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-genobj.melt:4953:/ cond.else");
+      
+       /*_.NAMED_NAME__V7*/ curfptr[6] = NULL;;
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4952:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.MCX_LOC__V6*/ curfptr[5]), ( "invalid symbol to expand for cmatcher"), (melt_ptr_t)(/*_.NAMED_NAME__V7*/ curfptr[6]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:4951:/ clear");
+      /*clear*/ /*_.MCX_LOC__V6*/ curfptr[5] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:4951:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V7*/ curfptr[6] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    /*_.LET___V4*/ curfptr[3] = /*_.R__V5*/ curfptr[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:4950:/ clear");
+    /*clear*/ /*_.R__V5*/ curfptr[4] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:4950:/ clear");
+    /*clear*/ /*_#NULL__L2*/ curfnum[1] = 0 ;}
+   ;
+   /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4949:/ clear");
+   /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-genobj.melt:4949:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-genobj.melt:4949:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-genobj.melt:4955:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:4955:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:4955:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:4956:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4956:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:4956:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V9*/ curfptr[6] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4956:/ cond.else");
+     
+      /*_.MCX_LOC__V9*/ curfptr[6] = NULL;;
+      }
+     ;
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:4956:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.MCX_LOC__V9*/ curfptr[6]), ( "invalid object to expand for cmatcher"), (melt_ptr_t)0);}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4955:/ clear");
+     /*clear*/ /*_.MCX_LOC__V9*/ curfptr[6] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:4955:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:4955:/ block");
+    /*block*/{
+     /*_#IS_STRING__L4*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ curfptr[1])) == OBMAG_STRING);;
+     MELT_LOCATION("warmelt-genobj.melt:4958:/ cond");
+     /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ {
+     MELT_LOCATION("warmelt-genobj.melt:4958:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:4958:/ block");
+      /*block*/{
+       /*_.MAKE_STRING__V11*/ curfptr[3] = 
+        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[3])), 
+			  melt_string_str((melt_ptr_t)(/*_.C__V2*/ curfptr[1]))));;
+       /*_.IFELSE___V10*/ curfptr[4] = /*_.MAKE_STRING__V11*/ curfptr[3];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4958:/ clear");
+       /*clear*/ /*_.MAKE_STRING__V11*/ curfptr[3] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-genobj.melt:4958:/ cond.else");
+     
+      MELT_LOCATION("warmelt-genobj.melt:4958:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:4961:/ cond");
+       /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ {
+       MELT_LOCATION("warmelt-genobj.melt:4961:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:4961:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V12*/ curfptr[6] = slot; };
+        ;
+       } else {MELT_LOCATION("warmelt-genobj.melt:4961:/ cond.else");
+       
+        /*_.MCX_LOC__V12*/ curfptr[6] = NULL;;
+        }
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:4961:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.MCX_LOC__V12*/ curfptr[6]), ( "invalid stuff to expand for cmatcher"), (melt_ptr_t)0);}
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:4960:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-genobj.melt:4958:/ clear");
+       /*clear*/ /*_.MCX_LOC__V12*/ curfptr[6] = 0 ;}
+      ;
+      }
+     ;
+     /*_.IFELSE___V8*/ curfptr[5] = /*_.IFELSE___V10*/ curfptr[4];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:4955:/ clear");
+     /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:4955:/ clear");
+     /*clear*/ /*_.IFELSE___V10*/ curfptr[4] = 0 ;}
+    ;
+    }
+   ;
+   /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V8*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:4949:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:4949:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:4947:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ clear");
+ /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ clear");
+ /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_151_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 97
+  void* varptr[97];
+#define CURFRAM_NBVARNUM 30
+  long varnum[30];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<97; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 97;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILMATCHER_FUNMATCHER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ getarg");
+ /*_.FMAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:5031:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:5032:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:5032:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:5032:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5032:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_funmatcher fmat";
+    MELT_LOCATION("warmelt-genobj.melt:5032:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:5032:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:5032:/ apply.arg");
+    argtab[3].bp_long = 5032;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:5032:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5032:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:5032:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:5033:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:5033:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-genobj.melt:5033:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5033:/ apply.arg");
+    argtab[0].bp_cstring =  "compilmatcher_funmatcher mcx";
+    MELT_LOCATION("warmelt-genobj.melt:5033:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-genobj.melt:5033:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-genobj.melt";
+    MELT_LOCATION("warmelt-genobj.melt:5033:/ apply.arg");
+    argtab[3].bp_long = 5033;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:5033:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5033:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:5033:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:5034:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:5034:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-genobj.melt:5034:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5034:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5034:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:5034:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:5034:/ locexp");
+      melt_assert_failed(( "check fmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (5034)?(5034):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:5034:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5034:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:5034:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:5035:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:5035:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-genobj.melt:5035:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5035:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5035:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:5035:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:5035:/ locexp");
+      melt_assert_failed(( "check mcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (5035)?(5035):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:5035:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-genobj.melt:5036:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:5036:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-genobj.melt:5036:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5036:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5036:/ cond.else");
+   
+    MELT_LOCATION("warmelt-genobj.melt:5036:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:5036:/ locexp");
+      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (5036)?(5036):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:5036:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5036:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-genobj.melt:5036:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-genobj.melt:5037:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-genobj.melt:5038:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), 2, "AMATCH_IN");/*_.FMINS__V15*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:5039:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), 3, "AMATCH_MATCHBIND");/*_.FMBIND__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:5040:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), 4, "AMATCH_OUT");/*_.FMOUTS__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:5041:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:5041:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:5041:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 2, "MCX_NORMTESTER");/*_.NTMA__V18*/ curfptr[17] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:5041:/ cond.else");
+  
+   /*_.NTMA__V18*/ curfptr[17] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:5043:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:5043:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:5043:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 5, "MCX_OLIST");/*_.OLIST__V19*/ curfptr[18] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:5043:/ cond.else");
+  
+   /*_.OLIST__V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-genobj.melt:5044:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-genobj.melt:5044:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:5044:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 1, "MCX_LOC");/*_.MLOC__V20*/ curfptr[19] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-genobj.melt:5044:/ cond.else");
+  
+   /*_.MLOC__V20*/ curfptr[19] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:5046:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:5046:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-genobj.melt:5046:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:5046:/ apply.arg");
+     argtab[0].bp_cstring =  "compilmatcher_funmatcher ntma";
+     MELT_LOCATION("warmelt-genobj.melt:5046:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-genobj.melt:5046:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-genobj.melt";
+     MELT_LOCATION("warmelt-genobj.melt:5046:/ apply.arg");
+     argtab[3].bp_long = 5046;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:5046:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-genobj.melt:5047:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:5047:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-genobj.melt:5047:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:5047:/ cond.then");
+    /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-genobj.melt:5047:/ cond.else");
+    
+     MELT_LOCATION("warmelt-genobj.melt:5047:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-genobj.melt:5047:/ locexp");
+       melt_assert_failed(( "check ntma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
+  (5047)?(5047):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:5047:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5047:/ clear");
+    /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-genobj.melt:5047:/ cppif.else");
+  /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-genobj.melt:5048:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 8, "NTMATCH_MATNDATA");/*_.MATNDATA__V25*/ curfptr[23] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5048:/ cond.else");
+   
+    /*_.MATNDATA__V25*/ curfptr[23] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5049:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5049:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
+    /*_.OMATDATA__V26*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.MATNDATA__V25*/ curfptr[23]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5050:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[6])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5050:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:5050:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 1, "NTEST_MATCHED");/*_.NMATCHED__V27*/ curfptr[26] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5050:/ cond.else");
+   
+    /*_.NMATCHED__V27*/ curfptr[26] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5051:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5051:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
+    /*_.OMATCHED__V28*/ curfptr[27] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V27*/ curfptr[26]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5052:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5052:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:5052:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 9, "NTMATCH_INARGS");/*_.NINS__V29*/ curfptr[28] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5052:/ cond.else");
+   
+    /*_.NINS__V29*/ curfptr[28] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5053:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])))) /*then*/ {
+   MELT_LOCATION("warmelt-genobj.melt:5053:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:5053:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 10, "NTMATCH_OUTLOCS");/*_.NOUTS__V30*/ curfptr[29] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-genobj.melt:5053:/ cond.else");
+   
+    /*_.NOUTS__V30*/ curfptr[29] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5056:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:5056:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[31] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5056:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
+    ;
+    /*_.LAMBDA___V31*/ curfptr[30] = /*_.LAMBDA___V32*/ curfptr[31];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5054:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5054:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[30];
+    /*_.OINS__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NINS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5061:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-genobj.melt:5061:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V35*/ curfptr[34] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5061:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
+    ;
+    /*_.LAMBDA___V34*/ curfptr[33] = /*_.LAMBDA___V35*/ curfptr[34];;}
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5059:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5059:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V34*/ curfptr[33];
+    /*_.OOUTS__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NOUTS__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5064:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5064:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FMAT__V2*/ curfptr[1];
+    /*_.OTESTRES__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-genobj.melt:5065:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-genobj.melt:5065:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_13_CLOSFUNMATCH*/ curfrout->tabval[13]);
+    /*_.OTESTCLOS__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5067:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5067:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5067:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher matndata";
+      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
+      argtab[3].bp_long = 5067;
+      /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MATNDATA__V25*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5067:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5067:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5067:/ cppif.else");
+   /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5068:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5068:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5068:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher omatdata";
+      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
+      argtab[3].bp_long = 5068;
+      /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMATDATA__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5068:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5068:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5068:/ cppif.else");
+   /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5069:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5069:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5069:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher fmins";
+      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
+      argtab[3].bp_long = 5069;
+      /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMINS__V15*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V43*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5069:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5069:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5069:/ cppif.else");
+   /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5070:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5070:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5070:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher fmbind";
+      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
+      argtab[3].bp_long = 5070;
+      /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5070:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5070:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5070:/ cppif.else");
+   /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5071:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5071:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5071:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher fmouts";
+      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
+      argtab[3].bp_long = 5071;
+      /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMOUTS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5071:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5071:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5071:/ cppif.else");
+   /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5072:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5072:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5072:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher nins";
+      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
+      argtab[3].bp_long = 5072;
+      /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NINS__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5072:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5072:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5072:/ cppif.else");
+   /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5073:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5073:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5073:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher nouts";
+      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
+      argtab[3].bp_long = 5073;
+      /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NOUTS__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5073:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5073:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5073:/ cppif.else");
+   /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5074:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5074:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5074:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher nmatched";
+      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
+      argtab[3].bp_long = 5074;
+      /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHED__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V53*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5074:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5074:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5074:/ cppif.else");
+   /*_.IFCPP___V53*/ curfptr[51] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5075:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5075:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5075:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher omatched";
+      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
+      argtab[3].bp_long = 5075;
+      /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMATCHED__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V55*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5075:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5075:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5075:/ cppif.else");
+   /*_.IFCPP___V55*/ curfptr[53] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5076:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5076:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5076:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher oins";
+      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
+      argtab[3].bp_long = 5076;
+      /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OINS__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V57*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5076:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5076:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5076:/ cppif.else");
+   /*_.IFCPP___V57*/ curfptr[55] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5077:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5077:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L18*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5077:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher oouts";
+      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
+      argtab[3].bp_long = 5077;
+      /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OOUTS__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V59*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5077:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5077:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5077:/ cppif.else");
+   /*_.IFCPP___V59*/ curfptr[57] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5078:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5078:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L19*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5078:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher ntma";
+      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
+      argtab[3].bp_long = 5078;
+      /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V61*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5078:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5078:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5078:/ cppif.else");
+   /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5079:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5079:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L20*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5079:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5079:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher otestres";
+      MELT_LOCATION("warmelt-genobj.melt:5079:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5079:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5079:/ apply.arg");
+      argtab[3].bp_long = 5079;
+      /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTESTRES__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V63*/ curfptr[61] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5079:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5079:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5079:/ cppif.else");
+   /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-genobj.melt:5080:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:5080:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-genobj.melt:5080:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-genobj.melt:5080:/ apply.arg");
+      argtab[0].bp_cstring =  "compilmatcher_funmatcher otestclos";
+      MELT_LOCATION("warmelt-genobj.melt:5080:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0];
+      MELT_LOCATION("warmelt-genobj.melt:5080:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-genobj.melt";
+      MELT_LOCATION("warmelt-genobj.melt:5080:/ apply.arg");
+      argtab[3].bp_long = 5080;
+      /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTESTCLOS__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V65*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-genobj.melt:5080:/ cppif.else");
+   /*_.IFCPP___V65*/ curfptr[63] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-genobj.melt:5082:/ block");
+   /*block*/{
+    /*_#MULTIPLE_LENGTH__L22*/ curfnum[0] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.OINS__V33*/ curfptr[32])));;
+    /*_#I__L23*/ curfnum[22] = 
+     ((2) + (/*_#MULTIPLE_LENGTH__L22*/ curfnum[0]));;
+    /*_.OARGS__V67*/ curfptr[65] = 
+     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#I__L23*/ curfnum[22])));;
+    MELT_LOCATION("warmelt-genobj.melt:5086:/ apply");
+    /*apply*/{
+     /*_.LIST1__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OTESTCLOS__V38*/ curfptr[37]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5084:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:5084:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[15])), (4), "CLASS_OBJGETSLOT");/*_.INST__V70*/ curfptr[69] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5084:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5084:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (1), (/*_.LIST1__V68*/ curfptr[67]), "OBDI_DESTLIST");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5084:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OGETSL_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (2), (/*_.OMATDATA__V26*/ curfptr[25]), "OGETSL_OBJ");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5084:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OGETSL_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (3), ((/*!FMATCH_MATCHF*/ curfrout->tabval[17])), "OGETSL_FIELD");
+     ;
+     /*_.OGETCLOS__V69*/ curfptr[68] = /*_.INST__V70*/ curfptr[69];;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5092:/ apply");
+    /*apply*/{
+     /*_.LIST1__V71*/ curfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OTESTRES__V37*/ curfptr[36]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5090:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:5090:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[18])), (5), "CLASS_OBJMULTIAPPLY");/*_.INST__V73*/ curfptr[72] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5090:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5090:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (1), (/*_.LIST1__V71*/ curfptr[70]), "OBDI_DESTLIST");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5090:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (2), (/*_.OTESTCLOS__V38*/ curfptr[37]), "OBAPP_CLOS");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5090:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (3), (/*_.OARGS__V67*/ curfptr[65]), "OBAPP_ARGS");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5090:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBMULTAPP_XRES", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (4), (/*_.OOUTS__V36*/ curfptr[35]), "OBMULTAPP_XRES");
+     ;
+     /*_.OMAPP__V72*/ curfptr[71] = /*_.INST__V73*/ curfptr[72];;}
+    ;
+    /*_.OTHENLIST__V74*/ curfptr[73] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[19]))));;
+    MELT_LOCATION("warmelt-genobj.melt:5098:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:5098:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[20])), (3), "CLASS_OBJBLOCK");/*_.INST__V76*/ curfptr[75] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5098:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5098:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.OTHENLIST__V74*/ curfptr[73]), "OBLO_BODYL");
+     ;
+     /*_.OTHENBODY__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;}
+    ;
+    /*_.OELSELIST__V77*/ curfptr[76] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[19]))));;
+    MELT_LOCATION("warmelt-genobj.melt:5103:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:5103:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[20])), (3), "CLASS_OBJBLOCK");/*_.INST__V79*/ curfptr[78] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5103:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5103:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), (/*_.OELSELIST__V77*/ curfptr[76]), "OBLO_BODYL");
+     ;
+     /*_.OELSEBODY__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5107:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-genobj.melt:5107:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[21])), (4), "CLASS_OBJCOND");/*_.INST__V81*/ curfptr[80] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5107:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5107:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (1), (/*_.OTESTRES__V37*/ curfptr[36]), "OBCOND_TEST");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5107:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (2), (/*_.OTHENBODY__V75*/ curfptr[74]), "OBCOND_THEN");
+     ;
+     MELT_LOCATION("warmelt-genobj.melt:5107:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (3), (/*_.OELSEBODY__V78*/ curfptr[77]), "OBCOND_ELSE");
+     ;
+     /*_.OCOND__V80*/ curfptr[79] = /*_.INST__V81*/ curfptr[80];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5114:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.OARGS__V67*/ curfptr[65]), (0), (melt_ptr_t)(/*_.OMATDATA__V26*/ curfptr[25]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5115:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.OARGS__V67*/ curfptr[65]), (1), (melt_ptr_t)(/*_.OMATCHED__V28*/ curfptr[27]));}
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OINS__V33*/ curfptr[32]);
+   for (/*_#INIX__L24*/ curfnum[23] = 0;  
+	(/*_#INIX__L24*/ curfnum[23] >= 0) && (/*_#INIX__L24*/ curfnum[23] <  cit1__EACHTUP_ln);  
+	/*_#INIX__L24*/ curfnum[23]++) {
+   /*_.CURINS__V82*/ curfptr[81] = melt_multiple_nth((melt_ptr_t)(/*_.OINS__V33*/ curfptr[32]),  /*_#INIX__L24*/ curfnum[23]);
+   
+    
+     /*_#I__L25*/ curfnum[24] = 
+      ((/*_#INIX__L24*/ curfnum[23]) + (2));;
+     
+     {
+     MELT_LOCATION("warmelt-genobj.melt:5119:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.OARGS__V67*/ curfptr[65]), (/*_#I__L25*/ curfnum[24]), (melt_ptr_t)(/*_.CURINS__V82*/ curfptr[81]));}
+     ;
+     if (/*_#INIX__L24*/ curfnum[23]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5116:/ clear");
+     /*clear*/ /*_.CURINS__V82*/ curfptr[81] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5116:/ clear");
+     /*clear*/ /*_#INIX__L24*/ curfnum[23] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5116:/ clear");
+     /*clear*/ /*_#I__L25*/ curfnum[24] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OOUTS__V36*/ curfptr[35]);
+   for (/*_#OUTIX__L26*/ curfnum[25] = 0;  
+	(/*_#OUTIX__L26*/ curfnum[25] >= 0) && (/*_#OUTIX__L26*/ curfnum[25] <  cit2__EACHTUP_ln);  
+	/*_#OUTIX__L26*/ curfnum[25]++) {
+   /*_.CUROUTS__V83*/ curfptr[82] = melt_multiple_nth((melt_ptr_t)(/*_.OOUTS__V36*/ curfptr[35]),  /*_#OUTIX__L26*/ curfnum[25]);
+   
+    
+     MELT_LOCATION("warmelt-genobj.melt:5125:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-genobj.melt:5125:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-genobj.melt:5125:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[22])), (2), "CLASS_OBJCLEAR");/*_.INST__V85*/ curfptr[84] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:5125:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
+       ;
+       MELT_LOCATION("warmelt-genobj.melt:5125:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (1), (/*_.CUROUTS__V83*/ curfptr[82]), "OCLR_VLOC");
+       ;
+       /*_.OBCL__V84*/ curfptr[83] = /*_.INST__V85*/ curfptr[84];;}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-genobj.melt:5128:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:5128:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 
+         callcount;;
+        MELT_LOCATION("warmelt-genobj.melt:5128:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-genobj.melt:5128:/ apply.arg");
+         argtab[0].bp_cstring =  "compilmatcher_funmatcher obcl";
+         MELT_LOCATION("warmelt-genobj.melt:5128:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[26];
+         MELT_LOCATION("warmelt-genobj.melt:5128:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-genobj.melt";
+         MELT_LOCATION("warmelt-genobj.melt:5128:/ apply.arg");
+         argtab[3].bp_long = 5128;
+         /*_.DEBUG_MSG_FUN__V87*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBCL__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V86*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V87*/ curfptr[86];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-genobj.melt:5128:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 0 ;
+        MELT_LOCATION("warmelt-genobj.melt:5128:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[86] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-genobj.melt:5128:/ cppif.else");
+      /*_.IFCPP___V86*/ curfptr[85] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-genobj.melt:5129:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V77*/ curfptr[76]), (melt_ptr_t)(/*_.OBCL__V84*/ curfptr[83]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:5125:/ clear");
+      /*clear*/ /*_.OBCL__V84*/ curfptr[83] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5125:/ clear");
+      /*clear*/ /*_.IFCPP___V86*/ curfptr[85] = 0 ;}
+     ;
+     if (/*_#OUTIX__L26*/ curfnum[25]<0) break;
+   } /* end cit2__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-genobj.melt:5122:/ clear");
+     /*clear*/ /*_.CUROUTS__V83*/ curfptr[82] = 0 ;
+     MELT_LOCATION("warmelt-genobj.melt:5122:/ clear");
+     /*clear*/ /*_#OUTIX__L26*/ curfnum[25] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5132:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:5132:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
+     /*_.DISPOSE_OBJLOC__V88*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.OTESTRES__V37*/ curfptr[36]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5133:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-genobj.melt:5133:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
+     /*_.DISPOSE_OBJLOC__V89*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.OTESTCLOS__V38*/ curfptr[37]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5135:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:5135:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:5135:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 3, "MCX_GOTOTHEN");/*_.MCX_GOTOTHEN__V90*/ curfptr[85] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:5135:/ cond.else");
+    
+     /*_.MCX_GOTOTHEN__V90*/ curfptr[85] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5135:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V74*/ curfptr[73]), (melt_ptr_t)(/*_.MCX_GOTOTHEN__V90*/ curfptr[85]));}
+    ;
+    MELT_LOCATION("warmelt-genobj.melt:5136:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+    MELT_LOCATION("warmelt-genobj.melt:5136:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:5136:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 4, "MCX_GOTOELSE");/*_.MCX_GOTOELSE__V91*/ curfptr[90] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-genobj.melt:5136:/ cond.else");
+    
+     /*_.MCX_GOTOELSE__V91*/ curfptr[90] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5136:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V77*/ curfptr[76]), (melt_ptr_t)(/*_.MCX_GOTOELSE__V91*/ curfptr[90]));}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:5137:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:5137:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L28*/ curfnum[26] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:5137:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
+       argtab[0].bp_cstring =  "compilmatcher_funmatcher ogetclos";
+       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[26];
+       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
+       argtab[3].bp_long = 5137;
+       /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OGETCLOS__V69*/ curfptr[68]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:5137:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[26] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5137:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:5137:/ cppif.else");
+    /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:5138:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:5138:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L29*/ curfnum[26] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:5138:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:5138:/ apply.arg");
+       argtab[0].bp_cstring =  "compilmatcher_funmatcher omapp";
+       MELT_LOCATION("warmelt-genobj.melt:5138:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[26];
+       MELT_LOCATION("warmelt-genobj.melt:5138:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:5138:/ apply.arg");
+       argtab[3].bp_long = 5138;
+       /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMAPP__V72*/ curfptr[71]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V94*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:5138:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[26] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5138:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:5138:/ cppif.else");
+    /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-genobj.melt:5139:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:5139:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L30*/ curfnum[26] = 
+       callcount;;
+      MELT_LOCATION("warmelt-genobj.melt:5139:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-genobj.melt:5139:/ apply.arg");
+       argtab[0].bp_cstring =  "compilmatcher_funmatcher ocond";
+       MELT_LOCATION("warmelt-genobj.melt:5139:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[26];
+       MELT_LOCATION("warmelt-genobj.melt:5139:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-genobj.melt";
+       MELT_LOCATION("warmelt-genobj.melt:5139:/ apply.arg");
+       argtab[3].bp_long = 5139;
+       /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V80*/ curfptr[79]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V96*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[96];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-genobj.melt:5139:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[26] = 0 ;
+      MELT_LOCATION("warmelt-genobj.melt:5139:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-genobj.melt:5139:/ cppif.else");
+    /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5140:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.OGETCLOS__V69*/ curfptr[68]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5141:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.OMAPP__V72*/ curfptr[71]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-genobj.melt:5142:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.OCOND__V80*/ curfptr[79]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L22*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OARGS__V67*/ curfptr[65] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.LIST1__V68*/ curfptr[67] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OGETCLOS__V69*/ curfptr[68] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.LIST1__V71*/ curfptr[70] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OMAPP__V72*/ curfptr[71] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OTHENLIST__V74*/ curfptr[73] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OTHENBODY__V75*/ curfptr[74] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OELSELIST__V77*/ curfptr[76] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OELSEBODY__V78*/ curfptr[77] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.OCOND__V80*/ curfptr[79] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.DISPOSE_OBJLOC__V88*/ curfptr[86] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.DISPOSE_OBJLOC__V89*/ curfptr[83] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.MCX_GOTOTHEN__V90*/ curfptr[85] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.MCX_GOTOELSE__V91*/ curfptr[90] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ;
+    MELT_LOCATION("warmelt-genobj.melt:5082:/ clear");
+    /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.MATNDATA__V25*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.OMATDATA__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.NMATCHED__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.OMATCHED__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.NINS__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.NOUTS__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.LAMBDA___V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.OINS__V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.LAMBDA___V34*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.OOUTS__V36*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.OTESTRES__V37*/ curfptr[36] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.OTESTCLOS__V38*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V53*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V55*/ curfptr[53] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V57*/ curfptr[55] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V59*/ curfptr[57] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ;
+   MELT_LOCATION("warmelt-genobj.melt:5048:/ clear");
+   /*clear*/ /*_.IFCPP___V65*/ curfptr[63] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.FMINS__V15*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.FMBIND__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.FMOUTS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.NTMA__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.OLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.MLOC__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-genobj.melt:5037:/ clear");
+  /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILMATCHER_FUNMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_153_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_153_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:5056:/ getarg");
+ /*_.THEIN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:5056:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:5057:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:5057:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.THEIN__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:5056:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:5056:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:5056:/ clear");
+ /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_153_warmelt_genobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_154_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_154_warmelt_genobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-genobj.melt:5061:/ getarg");
+ /*_.THEOUT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-genobj.melt:5061:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-genobj.melt:5062:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-genobj.melt:5062:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
+  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.THEOUT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-genobj.melt:5061:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-genobj.melt:5061:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-genobj.melt:5061:/ clear");
+ /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_154_warmelt_genobj_LAMBDA_*/
+
+
+
+/**** end of warmelt-genobj.0+3.c ****/
diff --git a/gcc/melt/warmelt-genobj.0.c b/gcc/melt/warmelt-genobj.0.c
index 2dd2e51cd57..77138d2a405 100644
--- a/gcc/melt/warmelt-genobj.0.c
+++ b/gcc/melt/warmelt-genobj.0.c
@@ -1,14 +1,14 @@
-/* GCC MELT GENERATED FILE warmelt-genobj.3.c - DO NOT EDIT */
+/* GCC MELT GENERATED FILE warmelt-genobj.0.c - DO NOT EDIT */
 
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.5.0 20091124 (experimental) [melt-branch revision 154669]";
+ "4.5.0 20091130 (experimental) [melt-branch revision 154718]";
 #endif
 
 #include "run-melt.h"
 
-/**** warmelt-genobj.3.c declarations ****/
+/**** warmelt-genobj.0.c declarations ****/
 #define MELT_HAS_INITIAL_ENVIRONMENT 1
 
 /**!!** ***
@@ -808,7 +808,7 @@ void mark_module_melt(void*);
 void* initial_frame_melt;
 
 
-/**** warmelt-genobj.3.c implementations ****/
+/**** warmelt-genobj.0.c implementations ****/
 
 
 
@@ -2689,7 +2689,7 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
    /*_.OBODYLIST__V28*/ curfptr[26] = 
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
    /*_#FILENUM__L12*/ curfnum[11] = 
-    ((/*_#FUNUM__L7*/ curfnum[6]) / (16));;
+    ((/*_#FUNUM__L7*/ curfnum[6]) / (32));;
    /*_#NBFILES__L13*/ curfnum[12] = 
     (melt_multiple_length((melt_ptr_t)(/*_.MOFILES__V17*/ curfptr[16])));;
    /*_.STRBUF2STRING__V29*/ curfptr[28] = 
@@ -2704,59 +2704,59 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[9])), (0)));;
    /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = 
     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ curfrout->tabval[10])), (/*_#FILENUM__L12*/ curfnum[11])));;
-   MELT_LOCATION("warmelt-genobj.melt:718:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:720:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:718:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[7])), (13), "CLASS_PROCROUTINEOBJ");/*_.INST__V36*/ curfptr[35] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.STRBUF2STRING__V29*/ curfptr[28]), "NAMED_NAME");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.PRO__V2*/ curfptr[1]), "OBROUT_PROC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.OBODYLIST__V28*/ curfptr[26]), "OBROUT_BODY");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_NBVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (4), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "OBROUT_NBVAL");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_NBLONG", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.MAKE_INTEGERBOX__V31*/ curfptr[30]), "OBROUT_NBLONG");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_OTHERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (6), (/*_.MAKE_LIST__V32*/ curfptr[31]), "OBROUT_OTHERS");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_CNTCITER", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (8), (/*_.MAKE_INTEGERBOX__V33*/ curfptr[32]), "OBROUT_CNTCITER");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OPROUT_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (10), (/*_.NLOC__V25*/ curfptr[21]), "OPROUT_LOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OPROUT_FUNAM", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (11), (/*_.ROUTFUNAM__V15*/ curfptr[14]), "OPROUT_FUNAM");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:718:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:720:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OPROUT_FILENUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (12), (/*_.MAKE_INTEGERBOX__V34*/ curfptr[33]), "OPROUT_FILENUM");
@@ -2779,103 +2779,103 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
     (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[11])), (20)));;
    /*_.MAKE_MAPOBJECT__V41*/ curfptr[40] = 
     (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[11])), (40)));;
-   MELT_LOCATION("warmelt-genobj.melt:731:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:733:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:731:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[12])), (9), "CLASS_C_GENERATION_CONTEXT");/*_.INST__V43*/ curfptr[42] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_OBJROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.OBROUT__V35*/ curfptr[34]), "GNCX_OBJROUT");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_LOCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.LOCMAP__V37*/ curfptr[36]), "GNCX_LOCMAP");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_FREEPTRLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.MAKE_LIST__V38*/ curfptr[37]), "GNCX_FREEPTRLIST");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_FREELONGLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (3), (/*_.MAKE_LIST__V39*/ curfptr[38]), "GNCX_FREELONGLIST");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_FREEOTHERMAPS", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (4), (/*_.MAKE_MAPOBJECT__V40*/ curfptr[39]), "GNCX_FREEOTHERMAPS");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_COMPICACHE", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (6), (/*_.COMPICACHE__V4*/ curfptr[3]), "GNCX_COMPICACHE");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_MODULCONTEXT", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (7), (/*_.MODCTX__V3*/ curfptr[2]), "GNCX_MODULCONTEXT");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_MATCHMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (8), (/*_.MAKE_MAPOBJECT__V41*/ curfptr[40]), "GNCX_MATCHMAP");
     ;
     /*_.GCX__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:742:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:744:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:742:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:744:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:742:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:744:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_14_RETVAL_*/ curfrout->tabval[14]);
      /*_.RETL__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.GCX__V42*/ curfptr[41]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-genobj.melt:743:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:745:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:743:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:745:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @GNCX_RETLOC", melt_magic_discr((melt_ptr_t)(/*_.GCX__V42*/ curfptr[41])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.GCX__V42*/ curfptr[41]), (5), (/*_.RETL__V45*/ curfptr[44]), "GNCX_RETLOC");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:743:/ touch");
+     MELT_LOCATION("warmelt-genobj.melt:745:/ touch");
      meltgc_touch(/*_.GCX__V42*/ curfptr[41]);
      ;
      /*epilog*/}
     ;
     /*_.LET___V44*/ curfptr[43] = /*_.RETL__V45*/ curfptr[44];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:742:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:744:/ clear");
     /*clear*/ /*_.RETL__V45*/ curfptr[44] = 0 ;}
    ;
    /*_.RETLOC__V46*/ curfptr[44] = /*_.LET___V44*/ curfptr[43];;
-   MELT_LOCATION("warmelt-genobj.melt:748:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:750:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:748:/ newclosure");
+    MELT_LOCATION("warmelt-genobj.melt:750:/ newclosure");
      /*newclosure*/ /*_.LAMBDA___V48*/ curfptr[47] =
      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (3));
     ;
-    MELT_LOCATION("warmelt-genobj.melt:748:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:750:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
     ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[0] = (melt_ptr_t)(/*_.GCX__V42*/ curfptr[41]);
     ;
-    MELT_LOCATION("warmelt-genobj.melt:748:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:750:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
     ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V25*/ curfptr[21]);
     ;
-    MELT_LOCATION("warmelt-genobj.melt:748:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:750:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
@@ -2883,23 +2883,23 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
     ;
     /*_.LAMBDA___V47*/ curfptr[46] = /*_.LAMBDA___V48*/ curfptr[47];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:746:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:748:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:746:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:748:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V47*/ curfptr[46];
     /*_.GTATUP__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.NARGB__V26*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_#I__L17*/ curfnum[16] = 
     ((/*_#FILENUM__L12*/ curfnum[11]) >= (/*_#NBFILES__L13*/ curfnum[12]));;
-   MELT_LOCATION("warmelt-genobj.melt:775:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:777:/ cond");
    /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:775:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:775:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:777:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:777:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:776:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:778:/ block");
      /*block*/{
       /*_#IRAW__L18*/ curfnum[17] = 
        ((/*_#FILENUM__L12*/ curfnum[11]) / (4));;
@@ -2909,17 +2909,17 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
        ((/*_#NBFILES__L13*/ curfnum[12]) + (/*_#I__L19*/ curfnum[18]));;
       /*_.NEWFILETUP__V50*/ curfptr[49] = 
        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[24])), (/*_#NEWNBFILES__L20*/ curfnum[19])));;
-      MELT_LOCATION("warmelt-genobj.melt:779:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:781:/ cond");
       /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:779:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:779:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:781:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:781:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:779:/ putslot");
+        MELT_LOCATION("warmelt-genobj.melt:781:/ putslot");
         /*putslot*/
         melt_assertmsg("putslot checkobj @MOCX_FILETUPLE", melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V3*/ curfptr[2])) == OBMAG_OBJECT);
         melt_putfield_object((/*_.MODCTX__V3*/ curfptr[2]), (5), (/*_.NEWFILETUP__V50*/ curfptr[49]), "MOCX_FILETUPLE");
         ;
-        MELT_LOCATION("warmelt-genobj.melt:779:/ touch");
+        MELT_LOCATION("warmelt-genobj.melt:781:/ touch");
         meltgc_touch(/*_.MODCTX__V3*/ curfptr[2]);
         ;
         /*epilog*/}
@@ -2937,26 +2937,26 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
       
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:783:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:785:/ locexp");
        meltgc_multiple_put_nth((melt_ptr_t)(/*_.NEWFILETUP__V50*/ curfptr[49]), (/*_#CURIX__L21*/ curfnum[20]), (melt_ptr_t)(/*_.CURFILE__V51*/ curfptr[50]));}
        ;
        if (/*_#CURIX__L21*/ curfnum[20]<0) break;
    } /* end cit1__EACHTUP */ 
       
        /*citerepilog*/
-       MELT_LOCATION("warmelt-genobj.melt:780:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:782:/ clear");
        /*clear*/ /*_.CURFILE__V51*/ curfptr[50] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:780:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:782:/ clear");
        /*clear*/ /*_#CURIX__L21*/ curfnum[20] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
       ;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:776:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:778:/ clear");
       /*clear*/ /*_#IRAW__L18*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:776:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:778:/ clear");
       /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:776:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:778:/ clear");
       /*clear*/ /*_#NEWNBFILES__L20*/ curfnum[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:776:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:778:/ clear");
       /*clear*/ /*_.NEWFILETUP__V50*/ curfptr[49] = 0 ;}
      ;
      /*epilog*/}
@@ -2965,112 +2965,112 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:786:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:788:/ locexp");
    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V4*/ curfptr[3]), 
 			   (meltobject_ptr_t) (/*_.PRO__V2*/ curfptr[1]), 
 			   (melt_ptr_t)(/*_.OBROUT__V35*/ curfptr[34]));}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:787:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:789:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:787:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:789:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OPROUT_GETARGS", melt_magic_discr((melt_ptr_t)(/*_.OBROUT__V35*/ curfptr[34])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.OBROUT__V35*/ curfptr[34]), (9), (/*_.GTATUP__V49*/ curfptr[48]), "OPROUT_GETARGS");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:787:/ touch");
+    MELT_LOCATION("warmelt-genobj.melt:789:/ touch");
     meltgc_touch(/*_.OBROUT__V35*/ curfptr[34]);
     ;
     /*epilog*/}
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:788:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:788:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:790:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:790:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L22*/ curfnum[17] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:788:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:790:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:788:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:790:/ apply.arg");
       argtab[0].bp_cstring =  "compile2obj_procedure obrout";
-      MELT_LOCATION("warmelt-genobj.melt:788:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:790:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[17];
-      MELT_LOCATION("warmelt-genobj.melt:788:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:790:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:788:/ apply.arg");
-      argtab[3].bp_long = 788;
+      MELT_LOCATION("warmelt-genobj.melt:790:/ apply.arg");
+      argtab[3].bp_long = 790;
       /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBROUT__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V52*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:788:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:790:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:788:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:790:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:788:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:790:/ cppif.else");
    /*_.IFCPP___V52*/ curfptr[49] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:789:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:789:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:791:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:791:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L23*/ curfnum[18] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:789:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:791:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:789:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:791:/ apply.arg");
       argtab[0].bp_cstring =  "compile2obj_procedure nbody";
-      MELT_LOCATION("warmelt-genobj.melt:789:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:791:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[18];
-      MELT_LOCATION("warmelt-genobj.melt:789:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:791:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:789:/ apply.arg");
-      argtab[3].bp_long = 789;
+      MELT_LOCATION("warmelt-genobj.melt:791:/ apply.arg");
+      argtab[3].bp_long = 791;
       /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODY__V24*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V54*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:789:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:791:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[18] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:789:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:791:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:789:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:791:/ cppif.else");
    /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:790:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:790:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:792:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:792:/ block");
     /*block*/{
      /*_#IS_A__L24*/ curfnum[19] = 
       melt_is_instance_of((melt_ptr_t)(/*_.NBODY__V24*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[25])));;
-     MELT_LOCATION("warmelt-genobj.melt:790:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:792:/ cond");
      /*cond*/ if (/*_#IS_A__L24*/ curfnum[19]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:790:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:792:/ cond.then");
      /*_.IFELSE___V57*/ curfptr[56] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:790:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:792:/ cond.else");
      
-      MELT_LOCATION("warmelt-genobj.melt:790:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:792:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:790:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:792:/ locexp");
         melt_assert_failed(( "check nbody"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (790)?(790):__LINE__, __FUNCTION__);
+  (792)?(792):__LINE__, __FUNCTION__);
 ;}
         ;
         /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;}
@@ -3081,70 +3081,70 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
      ;
      /*_.IFCPP___V56*/ curfptr[54] = /*_.IFELSE___V57*/ curfptr[56];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:790:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:792:/ clear");
      /*clear*/ /*_#IS_A__L24*/ curfnum[19] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:790:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:792:/ clear");
      /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:790:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:792:/ cppif.else");
    /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    /*_#IS_A__L25*/ curfnum[17] = 
     melt_is_instance_of((melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:791:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:793:/ cond");
    /*cond*/ if (/*_#IS_A__L25*/ curfnum[17]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:791:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:791:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:793:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:793:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:792:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:794:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:792:/ getslot");
+      MELT_LOCATION("warmelt-genobj.melt:794:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), 8, "NRPRO_THUNKLIST");/*_.PTHULS__V60*/ curfptr[59] = slot; };
       ;
       
       #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:793:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:793:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:795:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:795:/ block");
        /*block*/{
         /*_#THE_CALLCOUNT__L26*/ curfnum[18] = 
          callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:793:/ apply");
+        MELT_LOCATION("warmelt-genobj.melt:795:/ apply");
         /*apply*/{
          union meltparam_un argtab[4];
          memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:793:/ apply.arg");
+         MELT_LOCATION("warmelt-genobj.melt:795:/ apply.arg");
          argtab[0].bp_cstring =  "compile2obj_procedure pthuls";
-         MELT_LOCATION("warmelt-genobj.melt:793:/ apply.arg");
+         MELT_LOCATION("warmelt-genobj.melt:795:/ apply.arg");
          argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[18];
-         MELT_LOCATION("warmelt-genobj.melt:793:/ apply.arg");
+         MELT_LOCATION("warmelt-genobj.melt:795:/ apply.arg");
          argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:793:/ apply.arg");
-         argtab[3].bp_long = 793;
+         MELT_LOCATION("warmelt-genobj.melt:795:/ apply.arg");
+         argtab[3].bp_long = 795;
          /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PTHULS__V60*/ curfptr[59]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
          }
         ;
         /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:793:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:795:/ clear");
         /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[18] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:793:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:795:/ clear");
         /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
        
        #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:793:/ cppif.else");
+       MELT_LOCATION("warmelt-genobj.melt:795:/ cppif.else");
       /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
        #endif /*ENABLE_CHECKING*/
        ;
-      MELT_LOCATION("warmelt-genobj.melt:796:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:798:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:796:/ newclosure");
+       MELT_LOCATION("warmelt-genobj.melt:798:/ newclosure");
         /*newclosure*/ /*_.LAMBDA___V64*/ curfptr[63] =
         meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (1));
        ;
-       MELT_LOCATION("warmelt-genobj.melt:796:/ putclosedv");
+       MELT_LOCATION("warmelt-genobj.melt:798:/ putclosedv");
        /*putclosv*/
        melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V64*/ curfptr[63])) == OBMAG_CLOSURE);
        melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V64*/ curfptr[63])));
@@ -3152,123 +3152,123 @@ MELT_LOCATION("warmelt-genobj.melt:684:/ block");
        ;
        /*_.LAMBDA___V63*/ curfptr[61] = /*_.LAMBDA___V64*/ curfptr[63];;}
       ;
-      MELT_LOCATION("warmelt-genobj.melt:794:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:796:/ apply");
       /*apply*/{
        union meltparam_un argtab[1];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:794:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:796:/ apply.arg");
        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V63*/ curfptr[61];
        /*_.LIST_EVERY__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.PTHULS__V60*/ curfptr[59]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.LET___V59*/ curfptr[58] = /*_.LIST_EVERY__V65*/ curfptr[64];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:792:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:794:/ clear");
       /*clear*/ /*_.PTHULS__V60*/ curfptr[59] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:792:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:794:/ clear");
       /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:792:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:794:/ clear");
       /*clear*/ /*_.LAMBDA___V63*/ curfptr[61] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:792:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:794:/ clear");
       /*clear*/ /*_.LIST_EVERY__V65*/ curfptr[64] = 0 ;}
      ;
      /*_.IF___V58*/ curfptr[56] = /*_.LET___V59*/ curfptr[58];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:791:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:793:/ clear");
      /*clear*/ /*_.LET___V59*/ curfptr[58] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:791:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:793:/ cond.else");
    
     /*_.IF___V58*/ curfptr[56] = NULL;;
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:802:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:804:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:802:/ msend");
+    MELT_LOCATION("warmelt-genobj.melt:804:/ msend");
     /*msend*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:802:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-genobj.melt:804:/ ojbmsend.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V42*/ curfptr[41];
      /*_.OBODY__V66*/ curfptr[59] = meltgc_send((melt_ptr_t)(/*_.NBODY__V24*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[29])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:804:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:804:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:806:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:806:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L27*/ curfnum[19] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:804:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:806:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:804:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:806:/ apply.arg");
        argtab[0].bp_cstring =  "compile2obj_procedure obody";
-       MELT_LOCATION("warmelt-genobj.melt:804:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:806:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[19];
-       MELT_LOCATION("warmelt-genobj.melt:804:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:806:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:804:/ apply.arg");
-       argtab[3].bp_long = 804;
+       MELT_LOCATION("warmelt-genobj.melt:806:/ apply.arg");
+       argtab[3].bp_long = 806;
        /*_.DEBUG_MSG_FUN__V68*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBODY__V66*/ curfptr[59]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V67*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[61];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:804:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:806:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:804:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:806:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[61] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:804:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:806:/ cppif.else");
     /*_.IFCPP___V67*/ curfptr[60] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:805:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:807:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.OBODYLIST__V28*/ curfptr[26]), (melt_ptr_t)(/*_.OBODY__V66*/ curfptr[59]));}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:802:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:804:/ clear");
     /*clear*/ /*_.OBODY__V66*/ curfptr[59] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:802:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:804:/ clear");
     /*clear*/ /*_.IFCPP___V67*/ curfptr[60] = 0 ;}
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:807:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:807:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:809:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:809:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L28*/ curfnum[18] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:807:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:809:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:807:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:809:/ apply.arg");
       argtab[0].bp_cstring =  "compile2obj_procedure return obrout";
-      MELT_LOCATION("warmelt-genobj.melt:807:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:809:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[18];
-      MELT_LOCATION("warmelt-genobj.melt:807:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:809:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:807:/ apply.arg");
-      argtab[3].bp_long = 807;
+      MELT_LOCATION("warmelt-genobj.melt:809:/ apply.arg");
+      argtab[3].bp_long = 809;
       /*_.DEBUG_MSG_FUN__V70*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBROUT__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V69*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[58];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:807:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:809:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[18] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:807:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:809:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[58] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:807:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:809:/ cppif.else");
    /*_.IFCPP___V69*/ curfptr[64] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
@@ -3443,40 +3443,40 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:748:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ getarg");
  /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:748:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:748:/ block");
+MELT_LOCATION("warmelt-genobj.melt:750:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:749:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:749:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:751:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:751:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[1] = 
     melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:749:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:751:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:749:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:751:/ cond.then");
    /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:749:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:751:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:749:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:751:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:749:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:751:/ locexp");
       melt_assert_failed(( "check bnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (749)?(749):__LINE__, __FUNCTION__);
+  (751)?(751):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
@@ -3487,127 +3487,127 @@ MELT_LOCATION("warmelt-genobj.melt:748:/ block");
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:749:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:749:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
    /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:749:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:751:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:751:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:753:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:751:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.BCTYP__V6*/ curfptr[5] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:752:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:754:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BNAM__V7*/ curfptr[6] = slot; };
   ;
   /*_#__L3*/ curfnum[1] = 
    ((/*_.BCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:754:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:756:/ cond");
   /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:754:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:754:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:756:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:756:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:755:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:757:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:755:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:757:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BNAM__V7*/ curfptr[6];
      /*_.GET_FREE_OBJLOCPTR__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.OLOC__V8*/ curfptr[7] = /*_.GET_FREE_OBJLOCPTR__V9*/ curfptr[8];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:754:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:756:/ clear");
     /*clear*/ /*_.GET_FREE_OBJLOCPTR__V9*/ curfptr[8] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:754:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:756:/ cond.else");
   
-   MELT_LOCATION("warmelt-genobj.melt:754:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:756:/ block");
    /*block*/{
     /*_#__L4*/ curfnum[3] = 
      ((/*_.BCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_LONG*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:756:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:758:/ cond");
     /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:756:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:756:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:758:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:758:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:757:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:759:/ apply");
       /*apply*/{
        union meltparam_un argtab[1];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:757:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:759:/ apply.arg");
        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BNAM__V7*/ curfptr[6];
        /*_.GET_FREE_OBJLOCLONG__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCLONG*/ curfrout->tabval[4])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFELSE___V10*/ curfptr[8] = /*_.GET_FREE_OBJLOCLONG__V11*/ curfptr[10];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:756:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:758:/ clear");
       /*clear*/ /*_.GET_FREE_OBJLOCLONG__V11*/ curfptr[10] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:756:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:758:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:756:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:758:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:759:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:761:/ apply");
       /*apply*/{
        union meltparam_un argtab[2];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:759:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:761:/ apply.arg");
        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BNAM__V7*/ curfptr[6];
-       MELT_LOCATION("warmelt-genobj.melt:759:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:761:/ apply.arg");
        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.BCTYP__V6*/ curfptr[5];
        /*_.GET_FREE_OBJLOCTYPED__V12*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[5])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
        }
       ;
-      MELT_LOCATION("warmelt-genobj.melt:758:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:760:/ block");
       /*block*/{
        /*_.PROGN___V13*/ curfptr[12] = /*_.GET_FREE_OBJLOCTYPED__V12*/ curfptr[10];;}
       ;
       /*_.IFELSE___V10*/ curfptr[8] = /*_.PROGN___V13*/ curfptr[12];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:756:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:758:/ clear");
       /*clear*/ /*_.GET_FREE_OBJLOCTYPED__V12*/ curfptr[10] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:756:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:758:/ clear");
       /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
      ;
      }
     ;
     /*_.OLOC__V8*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[8];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:754:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:756:/ clear");
     /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:754:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:756:/ clear");
     /*clear*/ /*_.IFELSE___V10*/ curfptr[8] = 0 ;}
    ;
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:762:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:764:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:762:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:764:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETARG*/ curfrout->tabval[6])), (3), "CLASS_OBJGETARG");/*_.INST__V15*/ curfptr[12] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:762:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:764:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[12])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V15*/ curfptr[12]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:762:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:764:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBARG_OBLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[12])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V15*/ curfptr[12]), (1), (/*_.OLOC__V8*/ curfptr[7]), "OBARG_OBLOC");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:762:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:764:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBARG_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[12])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V15*/ curfptr[12]), (2), (/*_.BND__V2*/ curfptr[1]), "OBARG_BIND");
@@ -3616,31 +3616,31 @@ MELT_LOCATION("warmelt-genobj.melt:748:/ block");
   ;
   /*_#I__L5*/ curfnum[3] = 
    ((/*_#IX__L1*/ curfnum[0]) <= (0));;
-  MELT_LOCATION("warmelt-genobj.melt:767:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:769:/ cond");
   /*cond*/ if (/*_#I__L5*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:767:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:767:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:769:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:769:/ block");
    /*block*/{
     /*_#__L7*/ curfnum[6] = 
      ((/*_.BCTYP__V6*/ curfptr[5]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));;
     /*_#IF___L6*/ curfnum[5] = /*_#__L7*/ curfnum[6];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:767:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:769:/ clear");
     /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:767:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:769:/ cond.else");
   
    /*_#IF___L6*/ curfnum[5] = 0;;
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:767:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:769:/ cond");
   /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:767:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:767:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:769:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:769:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:768:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:770:/ locexp");
     melt_error_str((melt_ptr_t)((/*~NLOC*/ curfclos->tabval[1])), ( "first argument of function should be a value"), (melt_ptr_t)0);}
     ;
     /*epilog*/}
@@ -3649,39 +3649,39 @@ MELT_LOCATION("warmelt-genobj.melt:748:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:769:/ locexp");
+  MELT_LOCATION("warmelt-genobj.melt:771:/ locexp");
   meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[2])), 
 			   (meltobject_ptr_t) (/*_.BND__V2*/ curfptr[1]), 
 			   (melt_ptr_t)(/*_.OLOC__V8*/ curfptr[7]));}
   ;
   /*_.LET___V5*/ curfptr[3] = /*_.OGARG__V14*/ curfptr[10];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_.BCTYP__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_.BNAM__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_.OLOC__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_.OGARG__V14*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_#I__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:753:/ clear");
   /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:748:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-genobj.melt:748:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:750:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:748:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:748:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ clear");
  /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
 
 ;
@@ -3742,69 +3742,69 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:796:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ getarg");
  /*_.PTHU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:796:/ block");
+MELT_LOCATION("warmelt-genobj.melt:798:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:797:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:797:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:799:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:799:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:797:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:799:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:797:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:799:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_procedure pthu";
-    MELT_LOCATION("warmelt-genobj.melt:797:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:799:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:797:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:799:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:797:/ apply.arg");
-    argtab[3].bp_long = 797;
+    MELT_LOCATION("warmelt-genobj.melt:799:/ apply.arg");
+    argtab[3].bp_long = 799;
     /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PTHU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:797:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:799:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:797:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:799:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:797:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:799:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:798:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:798:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:800:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:800:/ block");
   /*block*/{
    /*_#IS_CLOSURE__L2*/ curfnum[0] = 
     (melt_magic_discr((melt_ptr_t)(/*_.PTHU__V2*/ curfptr[1])) == OBMAG_CLOSURE);;
-   MELT_LOCATION("warmelt-genobj.melt:798:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:800:/ cond");
    /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:798:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:800:/ cond.then");
    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:798:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:800:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:798:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:800:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:798:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:800:/ locexp");
       melt_assert_failed(( "compile2obj_procedure check pthu"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (798)?(798):__LINE__, __FUNCTION__);
+  (800)?(800):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
@@ -3815,34 +3815,34 @@ MELT_LOCATION("warmelt-genobj.melt:796:/ block");
    ;
    /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:798:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:800:/ clear");
    /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:798:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:800:/ clear");
    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:798:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:800:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:799:/ apply");
+ MELT_LOCATION("warmelt-genobj.melt:801:/ apply");
  /*apply*/{
   /*_.PTHU__V7*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)(/*_.PTHU__V2*/ curfptr[1]), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
   }
  ;
- MELT_LOCATION("warmelt-genobj.melt:796:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.PTHU__V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:796:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:798:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:796:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:796:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:796:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ clear");
  /*clear*/ /*_.PTHU__V7*/ curfptr[5] = 0 ;}
 
 ;
@@ -3903,18 +3903,18 @@ melt_trace_start("APPEND_COMMENT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:820:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:822:/ getarg");
  /*_.ILIST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:820:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:822:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.COMSTR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.COMSTR__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:820:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:822:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.ILOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.ILOC__V4*/ curfptr[3])) != NULL);
@@ -3923,21 +3923,21 @@ melt_trace_start("APPEND_COMMENT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:820:/ block");
+MELT_LOCATION("warmelt-genobj.melt:822:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-genobj.melt:821:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:823:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:821:/ rawallocobj");
+  MELT_LOCATION("warmelt-genobj.melt:823:/ rawallocobj");
   /*rawallocobj*/ { melt_ptr_t newobj = 0;
    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])), (2), "CLASS_OBJCOMMENTINSTR");/*_.INST__V6*/ curfptr[5] =
    newobj; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:821:/ putslot");
+  MELT_LOCATION("warmelt-genobj.melt:823:/ putslot");
   /*putslot*/
   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), (/*_.ILOC__V4*/ curfptr[3]), "OBI_LOC");
   ;
-  MELT_LOCATION("warmelt-genobj.melt:821:/ putslot");
+  MELT_LOCATION("warmelt-genobj.melt:823:/ putslot");
   /*putslot*/
   melt_assertmsg("putslot checkobj @OBCI_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.COMSTR__V3*/ curfptr[2]), "OBCI_COMMENT");
@@ -3946,11 +3946,11 @@ MELT_LOCATION("warmelt-genobj.melt:820:/ block");
  ;
  
  {
- MELT_LOCATION("warmelt-genobj.melt:821:/ locexp");
+ MELT_LOCATION("warmelt-genobj.melt:823:/ locexp");
  meltgc_append_list((melt_ptr_t)(/*_.ILIST__V2*/ curfptr[1]), (melt_ptr_t)(/*_.INST___V5*/ curfptr[4]));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:820:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:822:/ clear");
  /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;}
 
 ;
@@ -4012,16 +4012,16 @@ melt_trace_start("APPEND_COMMENTCONST", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:822:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ getarg");
  /*_.ILIST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:822:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ getarg");
  if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring;
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:822:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.ILOC__V3*/ curfptr[2] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.ILOC__V3*/ curfptr[2])) != NULL);
@@ -4030,23 +4030,23 @@ melt_trace_start("APPEND_COMMENTCONST", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:822:/ block");
+MELT_LOCATION("warmelt-genobj.melt:824:/ block");
 /*block*/{
  /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 
   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[1])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
- MELT_LOCATION("warmelt-genobj.melt:823:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:825:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:823:/ rawallocobj");
+  MELT_LOCATION("warmelt-genobj.melt:825:/ rawallocobj");
   /*rawallocobj*/ { melt_ptr_t newobj = 0;
    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])), (2), "CLASS_OBJCOMMENTINSTR");/*_.INST__V6*/ curfptr[5] =
    newobj; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:823:/ putslot");
+  MELT_LOCATION("warmelt-genobj.melt:825:/ putslot");
   /*putslot*/
   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), (/*_.ILOC__V3*/ curfptr[2]), "OBI_LOC");
   ;
-  MELT_LOCATION("warmelt-genobj.melt:823:/ putslot");
+  MELT_LOCATION("warmelt-genobj.melt:825:/ putslot");
   /*putslot*/
   melt_assertmsg("putslot checkobj @OBCI_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.MAKE_STRINGCONST__V4*/ curfptr[3]), "OBCI_COMMENT");
@@ -4055,13 +4055,13 @@ MELT_LOCATION("warmelt-genobj.melt:822:/ block");
  ;
  
  {
- MELT_LOCATION("warmelt-genobj.melt:823:/ locexp");
+ MELT_LOCATION("warmelt-genobj.melt:825:/ locexp");
  meltgc_append_list((melt_ptr_t)(/*_.ILIST__V2*/ curfptr[1]), (melt_ptr_t)(/*_.INST___V5*/ curfptr[4]));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:822:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ clear");
  /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:822:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ clear");
  /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;}
 
 ;
@@ -4122,39 +4122,39 @@ melt_trace_start("COMPILE2OBJ_INITPROC", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ getarg");
  /*_.IPRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.MODCTX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.IDATA__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IDATA__V4*/ curfptr[3])) != NULL);
  
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ getarg");
  if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
  /*_.COMPICACHE__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4])) != NULL);
  
  
  /*getarg#4*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ getarg");
  if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
  /*_.PROCURMODENVLIST__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.PROCURMODENVLIST__V6*/ curfptr[5])) != NULL);
  
  
  /*getarg#5*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ getarg");
  if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPORTVALUES__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6])) != NULL);
@@ -4163,29 +4163,29 @@ melt_trace_start("COMPILE2OBJ_INITPROC", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:826:/ block");
+MELT_LOCATION("warmelt-genobj.melt:828:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:827:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:827:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:829:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:829:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.IPRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:827:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:829:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:827:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:829:/ cond.then");
    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:827:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:829:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:827:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:829:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:827:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:829:/ locexp");
       melt_assert_failed(( "check ipro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (827)?(827):__LINE__, __FUNCTION__);
+  (829)?(829):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
@@ -4196,37 +4196,37 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    ;
    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:827:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:829:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:827:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:829:/ clear");
    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:827:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:829:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:828:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:828:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:830:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:830:/ block");
   /*block*/{
    /*_#IS_LIST__L2*/ curfnum[0] = 
     (melt_magic_discr((melt_ptr_t)(/*_.IDATA__V4*/ curfptr[3])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-genobj.melt:828:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:830:/ cond");
    /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:828:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:830:/ cond.then");
    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:828:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:830:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:828:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:830:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:828:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:830:/ locexp");
       melt_assert_failed(( "check idata"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (828)?(828):__LINE__, __FUNCTION__);
+  (830)?(830):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
@@ -4237,37 +4237,37 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    ;
    /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:830:/ clear");
    /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:830:/ clear");
    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:828:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:830:/ cppif.else");
  /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:829:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:829:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:831:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:831:/ block");
   /*block*/{
    /*_#IS_A__L3*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:829:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:831:/ cond");
    /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:829:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:831:/ cond.then");
    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:829:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:831:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:829:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:831:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:829:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:831:/ locexp");
       melt_assert_failed(( "check modctx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (829)?(829):__LINE__, __FUNCTION__);
+  (831)?(831):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
@@ -4278,37 +4278,37 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    ;
    /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:829:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:831:/ clear");
    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:829:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:831:/ clear");
    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:829:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:831:/ cppif.else");
  /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:830:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:830:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:832:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:832:/ block");
   /*block*/{
    /*_#IS_MAPOBJECT__L4*/ curfnum[0] = 
     (melt_magic_discr((melt_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4])) == OBMAG_MAPOBJECTS);;
-   MELT_LOCATION("warmelt-genobj.melt:830:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:832:/ cond");
    /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:830:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:832:/ cond.then");
    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:830:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:832:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:830:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:832:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:830:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:832:/ locexp");
       melt_assert_failed(( "check compicache"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (830)?(830):__LINE__, __FUNCTION__);
+  (832)?(832):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
@@ -4319,37 +4319,37 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    ;
    /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:830:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:832:/ clear");
    /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:830:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:832:/ clear");
    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:830:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:832:/ cppif.else");
  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:831:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:831:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:833:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:833:/ block");
   /*block*/{
    /*_#IS_LIST__L5*/ curfnum[0] = 
     (melt_magic_discr((melt_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-genobj.melt:831:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:833:/ cond");
    /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:831:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:833:/ cond.then");
    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:831:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:833:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:831:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:833:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:831:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:833:/ locexp");
       melt_assert_failed(( "check importvalues"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (831)?(831):__LINE__, __FUNCTION__);
+  (833)?(833):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
@@ -4360,153 +4360,153 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    ;
    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:831:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:833:/ clear");
    /*clear*/ /*_#IS_LIST__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:831:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:833:/ clear");
    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:831:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:833:/ cppif.else");
  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:832:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:832:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:834:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:834:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:832:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:834:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:832:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc ipro";
-    MELT_LOCATION("warmelt-genobj.melt:832:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:832:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:832:/ apply.arg");
-    argtab[3].bp_long = 832;
+    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
+    argtab[3].bp_long = 834;
     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.IPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:832:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:834:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:832:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:834:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:832:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:834:/ cppif.else");
  /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:833:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:833:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:835:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:835:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:833:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:835:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:833:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc compicache";
-    MELT_LOCATION("warmelt-genobj.melt:833:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:833:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:833:/ apply.arg");
-    argtab[3].bp_long = 833;
+    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
+    argtab[3].bp_long = 835;
     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.COMPICACHE__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:833:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:835:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:833:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:835:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:833:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:835:/ cppif.else");
  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:834:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:834:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:836:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:836:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:834:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:836:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:836:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc start procurmodenvlist";
-    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:836:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:836:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:834:/ apply.arg");
-    argtab[3].bp_long = 834;
+    MELT_LOCATION("warmelt-genobj.melt:836:/ apply.arg");
+    argtab[3].bp_long = 836;
     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PROCURMODENVLIST__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:834:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:834:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:834:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:836:/ cppif.else");
  /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:835:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:835:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:837:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:837:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:835:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:837:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:837:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc start importvalues";
-    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:837:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:837:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:835:/ apply.arg");
-    argtab[3].bp_long = 835;
+    MELT_LOCATION("warmelt-genobj.melt:837:/ apply.arg");
+    argtab[3].bp_long = 837;
     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V24*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:835:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:837:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:835:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:837:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:835:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:837:/ cppif.else");
  /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:836:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:838:/ block");
  /*block*/{
   /*_.LOCMAP__V27*/ curfptr[26] = 
    (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[3])), (50)));;
@@ -4524,54 +4524,54 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (0)));;
   /*_.MAKE_LIST__V34*/ curfptr[33] = 
    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-genobj.melt:840:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:842:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:840:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[5])), (12), "CLASS_INITIALROUTINEOBJ");/*_.INST__V36*/ curfptr[35] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @NAMED_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), ((/*!konst_6*/ curfrout->tabval[6])), "NAMED_NAME");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBROUT_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.IPRO__V2*/ curfptr[1]), "OBROUT_PROC");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBROUT_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.OINIBODY__V29*/ curfptr[28]), "OBROUT_BODY");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBROUT_NBVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (4), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "OBROUT_NBVAL");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBROUT_NBLONG", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.MAKE_INTEGERBOX__V31*/ curfptr[30]), "OBROUT_NBLONG");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBROUT_OTHERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (6), (/*_.MAKE_LIST__V32*/ curfptr[31]), "OBROUT_OTHERS");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBROUT_CNTCITER", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (8), (/*_.MAKE_INTEGERBOX__V33*/ curfptr[32]), "OBROUT_CNTCITER");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OIROUT_FILL", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (11), (/*_.MAKE_LIST__V34*/ curfptr[33]), "OIROUT_FILL");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:840:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:842:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OIROUT_PROLOG", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (10), (/*_.OINIPROLOG__V28*/ curfptr[27]), "OIROUT_PROLOG");
@@ -4588,13 +4588,13 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[3])), (20)));;
   /*_.MAKE_MAPOBJECT__V41*/ curfptr[40] = 
    (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[3])), (60)));;
-  MELT_LOCATION("warmelt-genobj.melt:865:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:867:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:865:/ newclosure");
+   MELT_LOCATION("warmelt-genobj.melt:867:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[42] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
    ;
-   MELT_LOCATION("warmelt-genobj.melt:865:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:867:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42])));
@@ -4602,281 +4602,281 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
    ;
    /*_.LAMBDA___V42*/ curfptr[41] = /*_.LAMBDA___V43*/ curfptr[42];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:863:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:865:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:863:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:865:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[41];
    /*_.LIST_MAP__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.PROCURMODENVLIST__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:852:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:854:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:852:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[8])), (13), "CLASS_INITIAL_GENERATION_CONTEXT");/*_.INST__V46*/ curfptr[45] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_OBJROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (0), (/*_.OINITROUT__V35*/ curfptr[34]), "GNCX_OBJROUT");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_LOCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (1), (/*_.LOCMAP__V27*/ curfptr[26]), "GNCX_LOCMAP");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_FREEPTRLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (2), (/*_.MAKE_LIST__V38*/ curfptr[37]), "GNCX_FREEPTRLIST");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_FREELONGLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (3), (/*_.MAKE_LIST__V39*/ curfptr[38]), "GNCX_FREELONGLIST");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_FREEOTHERMAPS", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (4), (/*_.MAKE_MAPOBJECT__V40*/ curfptr[39]), "GNCX_FREEOTHERMAPS");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_COMPICACHE", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (6), (/*_.COMPICACHE__V5*/ curfptr[4]), "GNCX_COMPICACHE");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_MODULCONTEXT", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (7), (/*_.MODCTX__V3*/ curfptr[2]), "GNCX_MODULCONTEXT");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @GNCX_MATCHMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (8), (/*_.MAKE_MAPOBJECT__V41*/ curfptr[40]), "GNCX_MATCHMAP");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @IGNCX_PROCURMODENVLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (11), (/*_.LIST_MAP__V44*/ curfptr[43]), "IGNCX_PROCURMODENVLIST");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:852:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:854:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @IGNCX_IMPORTMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (12), (/*_.IMPORTMAP__V37*/ curfptr[36]), "IGNCX_IMPORTMAP");
    ;
    /*_.GCX__V45*/ curfptr[44] = /*_.INST__V46*/ curfptr[45];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:875:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:877:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:875:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:877:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:875:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:877:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_13_RETINIT_*/ curfrout->tabval[13]);
     /*_.RETI__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:876:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:878:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:876:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:878:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @GNCX_RETLOC", melt_magic_discr((melt_ptr_t)(/*_.GCX__V45*/ curfptr[44])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.GCX__V45*/ curfptr[44]), (5), (/*_.RETI__V48*/ curfptr[47]), "GNCX_RETLOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:876:/ touch");
+    MELT_LOCATION("warmelt-genobj.melt:878:/ touch");
     meltgc_touch(/*_.GCX__V45*/ curfptr[44]);
     ;
     /*epilog*/}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:877:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:879:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:877:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:879:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBROUT_RETVAL", melt_magic_discr((melt_ptr_t)(/*_.OINITROUT__V35*/ curfptr[34])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.OINITROUT__V35*/ curfptr[34]), (7), (/*_.RETI__V48*/ curfptr[47]), "OBROUT_RETVAL");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:877:/ touch");
+    MELT_LOCATION("warmelt-genobj.melt:879:/ touch");
     meltgc_touch(/*_.OINITROUT__V35*/ curfptr[34]);
     ;
     /*epilog*/}
    ;
    /*_.LET___V47*/ curfptr[46] = /*_.RETI__V48*/ curfptr[47];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:875:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:877:/ clear");
    /*clear*/ /*_.RETI__V48*/ curfptr[47] = 0 ;}
   ;
   /*_.RETINIT__V49*/ curfptr[47] = /*_.LET___V47*/ curfptr[46];;
-  MELT_LOCATION("warmelt-genobj.melt:880:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:882:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:880:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:882:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:880:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:882:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_14_CONTENV_*/ curfrout->tabval[14]);
     /*_.BOXL__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:881:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:883:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:881:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:883:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @IGNCX_CONTENVLOC", melt_magic_discr((melt_ptr_t)(/*_.GCX__V45*/ curfptr[44])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.GCX__V45*/ curfptr[44]), (10), (/*_.BOXL__V51*/ curfptr[50]), "IGNCX_CONTENVLOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:881:/ touch");
+    MELT_LOCATION("warmelt-genobj.melt:883:/ touch");
     meltgc_touch(/*_.GCX__V45*/ curfptr[44]);
     ;
     /*epilog*/}
    ;
    /*_.LET___V50*/ curfptr[49] = /*_.BOXL__V51*/ curfptr[50];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:880:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:882:/ clear");
    /*clear*/ /*_.BOXL__V51*/ curfptr[50] = 0 ;}
   ;
   /*_.BOXLOC__V52*/ curfptr[50] = /*_.LET___V50*/ curfptr[49];;
-  MELT_LOCATION("warmelt-genobj.melt:883:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:885:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:883:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:885:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_15_FRESHENV_*/ curfrout->tabval[15]);
    /*_.OFRESHENV__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:884:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:886:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:884:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:886:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:884:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:886:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_16_PREVENV_*/ curfrout->tabval[16]);
     /*_.PREVE__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:886:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:888:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:886:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:888:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @IGNCX_PREVENVLOC", melt_magic_discr((melt_ptr_t)(/*_.GCX__V45*/ curfptr[44])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.GCX__V45*/ curfptr[44]), (9), (/*_.PREVE__V55*/ curfptr[54]), "IGNCX_PREVENVLOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:886:/ touch");
+    MELT_LOCATION("warmelt-genobj.melt:888:/ touch");
     meltgc_touch(/*_.GCX__V45*/ curfptr[44]);
     ;
     /*epilog*/}
    ;
    /*_.LET___V54*/ curfptr[53] = /*_.PREVE__V55*/ curfptr[54];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:884:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:886:/ clear");
    /*clear*/ /*_.PREVE__V55*/ curfptr[54] = 0 ;}
   ;
   /*_.OPREVENV__V56*/ curfptr[54] = /*_.LET___V54*/ curfptr[53];;
-  MELT_LOCATION("warmelt-genobj.melt:888:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:890:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:888:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:890:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_17_VALEXPORT_*/ curfrout->tabval[17]);
    /*_.OVALUEEXPORTER__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:889:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:891:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:889:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:891:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_18_VALIMPORT_*/ curfrout->tabval[18]);
    /*_.OVALUEIMPORTER__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:891:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:893:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:891:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:893:/ apply.arg");
    argtab[0].bp_cstring =  "start of oinibody";
    /*_.APPEND_COMMENTCONST__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:892:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:892:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:894:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:894:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:892:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:894:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:892:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:894:/ apply.arg");
      argtab[0].bp_cstring =  "boxloc is";
-     MELT_LOCATION("warmelt-genobj.melt:892:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:894:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:892:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:894:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:892:/ apply.arg");
-     argtab[3].bp_long = 892;
+     MELT_LOCATION("warmelt-genobj.melt:894:/ apply.arg");
+     argtab[3].bp_long = 894;
      /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BOXLOC__V52*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:892:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:892:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:892:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:894:/ cppif.else");
   /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:894:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:896:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:897:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:899:/ block");
    /*block*/{
     /*_.BODFEL__V64*/ curfptr[63] = 
      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-    MELT_LOCATION("warmelt-genobj.melt:899:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:901:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:899:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:901:/ apply.arg");
      argtab[0].bp_cstring =  "start computing boxloc";
      /*_.APPEND_COMMENTCONST__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.BODFEL__V64*/ curfptr[63]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-genobj.melt:903:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:905:/ apply");
     /*apply*/{
      /*_.LIST1__V66*/ curfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.OFRESHENV__V53*/ curfptr[52]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-genobj.melt:902:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:904:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:902:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:904:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[20])), (4), "CLASS_OBJGETSLOT");/*_.INST__V68*/ curfptr[67] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:902:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:904:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.LIST1__V66*/ curfptr[65]), "OBDI_DESTLIST");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:902:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:904:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OGETSL_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), ((/*!INITIALSYSTEMDATA_OBJPREDEF*/ curfrout->tabval[22])), "OGETSL_OBJ");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:902:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:904:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OGETSL_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (3), ((/*!SYSDATA_CONT_FRESH_ENV*/ curfrout->tabval[23])), "OGETSL_FIELD");
@@ -4885,7 +4885,7 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     ;
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:901:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:903:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.BODFEL__V64*/ curfptr[63]), (melt_ptr_t)(/*_.INST___V67*/ curfptr[66]));}
     ;
     /*_.MAKE_STRINGCONST__V69*/ curfptr[68] = 
@@ -4900,14 +4900,14 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
      (meltgc_new_mult7((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V69*/ curfptr[68]),  
 		      (melt_ptr_t)(/*_.OPREVENV__V56*/ curfptr[54]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V70*/ curfptr[69]),  (melt_ptr_t)(/*_.OFRESHENV__V53*/ curfptr[52]),
 		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V71*/ curfptr[70]),  (melt_ptr_t)(/*_.OFRESHENV__V53*/ curfptr[52]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V72*/ curfptr[71])));;
-    MELT_LOCATION("warmelt-genobj.melt:909:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:911:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:909:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:911:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[24])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V75*/ curfptr[74] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:909:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:911:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V75*/ curfptr[74])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V75*/ curfptr[74]), (2), (/*_.MAKE_TUPLE7__V73*/ curfptr[72]), "OBCPT_EXPR");
@@ -4916,34 +4916,34 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     ;
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:907:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:909:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.BODFEL__V64*/ curfptr[63]), (melt_ptr_t)(/*_.INST___V74*/ curfptr[73]));}
     ;
-    MELT_LOCATION("warmelt-genobj.melt:926:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:928:/ apply");
     /*apply*/{
      /*_.LIST1__V76*/ curfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.BOXLOC__V52*/ curfptr[50]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
      }
     ;
     /*_.MAKE_TUPLE1__V77*/ curfptr[76] = 
      (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.OPREVENV__V56*/ curfptr[54])));;
-    MELT_LOCATION("warmelt-genobj.melt:925:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:927:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:925:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:927:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[27])), (4), "CLASS_OBJAPPLY");/*_.INST__V79*/ curfptr[78] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:925:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:927:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), (/*_.LIST1__V76*/ curfptr[75]), "OBDI_DESTLIST");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:925:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:927:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), (/*_.OFRESHENV__V53*/ curfptr[52]), "OBAPP_CLOS");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:925:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:927:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.MAKE_TUPLE1__V77*/ curfptr[76]), "OBAPP_ARGS");
@@ -4952,29 +4952,29 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     ;
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:923:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:925:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.BODFEL__V64*/ curfptr[63]), (melt_ptr_t)(/*_.INST___V78*/ curfptr[77]));}
     ;
     /*_.MAKE_STRINGCONST__V80*/ curfptr[79] = 
      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[29])), ( "compute fresh module environment")));;
-    MELT_LOCATION("warmelt-genobj.melt:930:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:932:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:930:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:932:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[28])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V82*/ curfptr[81] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:930:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:932:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.BODFEL__V64*/ curfptr[63]), "OBLO_BODYL");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:930:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:932:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), ((/*nil*/NULL)), "OBLO_EPIL");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:930:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:932:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (3), (/*_.MAKE_STRINGCONST__V80*/ curfptr[79]), "OCOMBLO_COMMENT");
@@ -4983,35 +4983,35 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     ;
     /*_.LET___V63*/ curfptr[62] = /*_.INST___V81*/ curfptr[80];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.BODFEL__V64*/ curfptr[63] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.APPEND_COMMENTCONST__V65*/ curfptr[64] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.LIST1__V66*/ curfptr[65] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.INST___V67*/ curfptr[66] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V69*/ curfptr[68] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V70*/ curfptr[69] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V71*/ curfptr[70] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V72*/ curfptr[71] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_TUPLE7__V73*/ curfptr[72] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.INST___V74*/ curfptr[73] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.LIST1__V76*/ curfptr[75] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_TUPLE1__V77*/ curfptr[76] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.INST___V78*/ curfptr[77] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V80*/ curfptr[79] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:897:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:899:/ clear");
     /*clear*/ /*_.INST___V81*/ curfptr[80] = 0 ;}
    ;
    /*_.OCOMPUTBOXLOC__V83*/ curfptr[63] = /*_.LET___V63*/ curfptr[62];;
@@ -5019,57 +5019,57 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[26])), ( " || melt_object_length((melt_ptr_t) MELT_PREDEF (INITIAL_SYSTEM_DATA))<FSYSDAT_BOX_FRESH_ENV")));;
    /*_.MAKE_TUPLE2__V85*/ curfptr[65] = 
     (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.BOXLOC__V52*/ curfptr[50]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V84*/ curfptr[64])));;
-   MELT_LOCATION("warmelt-genobj.melt:939:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:941:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:939:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:941:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[31])), (2), "CLASS_OBJEXPV");/*_.INST__V87*/ curfptr[68] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:939:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:941:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ curfptr[68])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V87*/ curfptr[68]), (1), (/*_.MAKE_TUPLE2__V85*/ curfptr[65]), "OBX_CONT");
     ;
     /*_.INST___V86*/ curfptr[66] = /*_.INST__V87*/ curfptr[68];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:937:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:939:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:937:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:939:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[30])), (4), "CLASS_OBJCOND");/*_.INST__V89*/ curfptr[70] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:937:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:939:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[70])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V89*/ curfptr[70]), (1), (/*_.INST___V86*/ curfptr[66]), "OBCOND_TEST");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:937:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:939:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[70])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V89*/ curfptr[70]), (2), ((/*nil*/NULL)), "OBCOND_THEN");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:937:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:939:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[70])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V89*/ curfptr[70]), (3), (/*_.OCOMPUTBOXLOC__V83*/ curfptr[63]), "OBCOND_ELSE");
     ;
     /*_.OTESTCOMPUTBOXLOC__V88*/ curfptr[69] = /*_.INST__V89*/ curfptr[70];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:954:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:956:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:954:/ newclosure");
+    MELT_LOCATION("warmelt-genobj.melt:956:/ newclosure");
      /*newclosure*/ /*_.LAMBDA___V91*/ curfptr[72] =
      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ curfrout->tabval[35])), (2));
     ;
-    MELT_LOCATION("warmelt-genobj.melt:954:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:956:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V91*/ curfptr[72])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V91*/ curfptr[72])));
     ((meltclosure_ptr_t)/*_.LAMBDA___V91*/ curfptr[72])->tabval[0] = (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]);
     ;
-    MELT_LOCATION("warmelt-genobj.melt:954:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:956:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V91*/ curfptr[72])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V91*/ curfptr[72])));
@@ -5077,82 +5077,82 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     ;
     /*_.LAMBDA___V90*/ curfptr[71] = /*_.LAMBDA___V91*/ curfptr[72];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:952:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:954:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:952:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:954:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V90*/ curfptr[71];
     /*_.LIMPLOCV__V92*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:965:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:965:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:967:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:967:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:965:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:967:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:965:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:967:/ apply.arg");
       argtab[0].bp_cstring =  "compile2obj_initproc otestcomputboxloc";
-      MELT_LOCATION("warmelt-genobj.melt:965:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:967:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:965:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:967:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:965:/ apply.arg");
-      argtab[3].bp_long = 965;
+      MELT_LOCATION("warmelt-genobj.melt:967:/ apply.arg");
+      argtab[3].bp_long = 967;
       /*_.DEBUG_MSG_FUN__V94*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OTESTCOMPUTBOXLOC__V88*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V93*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V94*/ curfptr[76];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:965:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:967:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:965:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:967:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V94*/ curfptr[76] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:965:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:967:/ cppif.else");
    /*_.IFCPP___V93*/ curfptr[75] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-genobj.melt:968:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:970:/ block");
    /*block*/{
     /*_.LISDEST__V95*/ curfptr[77] = 
      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:969:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:971:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.LISDEST__V95*/ curfptr[77]), (melt_ptr_t)(/*_.OPREVENV__V56*/ curfptr[54]));}
     ;
-    MELT_LOCATION("warmelt-genobj.melt:970:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:972:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:970:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:972:/ apply.arg");
      argtab[0].bp_cstring =  "get previous environment";
      /*_.APPEND_COMMENTCONST__V96*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.MAKE_STRINGCONST__V97*/ curfptr[80] = 
      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[26])), ( "modargp_")));;
-    MELT_LOCATION("warmelt-genobj.melt:972:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:974:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:972:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:974:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[24])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V99*/ curfptr[98] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:972:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:974:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V99*/ curfptr[98])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V99*/ curfptr[98]), (1), (/*_.LISDEST__V95*/ curfptr[77]), "OBDI_DESTLIST");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:972:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:974:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V99*/ curfptr[98])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V99*/ curfptr[98]), (2), (/*_.MAKE_STRINGCONST__V97*/ curfptr[80]), "OBCPT_EXPR");
@@ -5161,42 +5161,42 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
     ;
     
     {
-    MELT_LOCATION("warmelt-genobj.melt:971:/ locexp");
+    MELT_LOCATION("warmelt-genobj.melt:973:/ locexp");
     meltgc_append_list((melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (melt_ptr_t)(/*_.INST___V98*/ curfptr[76]));}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:968:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:970:/ clear");
     /*clear*/ /*_.LISDEST__V95*/ curfptr[77] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:968:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:970:/ clear");
     /*clear*/ /*_.APPEND_COMMENTCONST__V96*/ curfptr[79] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:968:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:970:/ clear");
     /*clear*/ /*_.MAKE_STRINGCONST__V97*/ curfptr[80] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:968:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:970:/ clear");
     /*clear*/ /*_.INST___V98*/ curfptr[76] = 0 ;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:977:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:979:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:977:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:979:/ apply.arg");
     argtab[0].bp_cstring =  "compute boxloc";
     /*_.APPEND_COMMENTCONST__V100*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:979:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:981:/ locexp");
    meltgc_append_list((melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (melt_ptr_t)(/*_.OTESTCOMPUTBOXLOC__V88*/ curfptr[69]));}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:981:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:983:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:985:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:987:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:985:/ newclosure");
+     MELT_LOCATION("warmelt-genobj.melt:987:/ newclosure");
       /*newclosure*/ /*_.LAMBDA___V103*/ curfptr[76] =
       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_39*/ curfrout->tabval[39])), (1));
      ;
-     MELT_LOCATION("warmelt-genobj.melt:985:/ putclosedv");
+     MELT_LOCATION("warmelt-genobj.melt:987:/ putclosedv");
      /*putclosv*/
      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V103*/ curfptr[76])) == OBMAG_CLOSURE);
      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V103*/ curfptr[76])));
@@ -5204,55 +5204,55 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
      ;
      /*_.LAMBDA___V102*/ curfptr[80] = /*_.LAMBDA___V103*/ curfptr[76];;}
     ;
-    MELT_LOCATION("warmelt-genobj.melt:983:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:985:/ apply");
     /*apply*/{
      union meltparam_un argtab[2];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:983:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:985:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[25]);
-     MELT_LOCATION("warmelt-genobj.melt:983:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:985:/ apply.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V102*/ curfptr[80];
      /*_.ODATATUP__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[36])), (melt_ptr_t)(/*_.IDATA__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-genobj.melt:991:/ getslot");
+    MELT_LOCATION("warmelt-genobj.melt:993:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.IPRO__V2*/ curfptr[1]), 2, "NINIT_TOPL");/*_.TOPLIS__V105*/ curfptr[104] = slot; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:993:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:995:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:993:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:995:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OIROUT_DATA", melt_magic_discr((melt_ptr_t)(/*_.OINITROUT__V35*/ curfptr[34])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.OINITROUT__V35*/ curfptr[34]), (9), (/*_.ODATATUP__V104*/ curfptr[103]), "OIROUT_DATA");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:993:/ touch");
+     MELT_LOCATION("warmelt-genobj.melt:995:/ touch");
      meltgc_touch(/*_.OINITROUT__V35*/ curfptr[34]);
      ;
      /*epilog*/}
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:995:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:995:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:997:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:997:/ block");
      /*block*/{
       /*_#IS_LIST_OR_NULL__L12*/ curfnum[0] = 
        ((/*_.TOPLIS__V105*/ curfptr[104]) == NULL 
      || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.TOPLIS__V105*/ curfptr[104])) == OBMAG_LIST));;
-      MELT_LOCATION("warmelt-genobj.melt:995:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:997:/ cond");
       /*cond*/ if (/*_#IS_LIST_OR_NULL__L12*/ curfnum[0]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:995:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:997:/ cond.then");
       /*_.IFELSE___V107*/ curfptr[106] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:995:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:997:/ cond.else");
       
-       MELT_LOCATION("warmelt-genobj.melt:995:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:997:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:995:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:997:/ locexp");
          melt_assert_failed(( "check toplis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (995)?(995):__LINE__, __FUNCTION__);
+  (997)?(997):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V107*/ curfptr[106] = 0 ;}
@@ -5263,25 +5263,25 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       ;
       /*_.IFCPP___V106*/ curfptr[105] = /*_.IFELSE___V107*/ curfptr[106];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:995:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
       /*clear*/ /*_#IS_LIST_OR_NULL__L12*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:995:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
       /*clear*/ /*_.IFELSE___V107*/ curfptr[106] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:995:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:997:/ cppif.else");
     /*_.IFCPP___V106*/ curfptr[105] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:997:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:999:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1000:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1002:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1000:/ newclosure");
+      MELT_LOCATION("warmelt-genobj.melt:1002:/ newclosure");
        /*newclosure*/ /*_.LAMBDA___V110*/ curfptr[109] =
        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_42*/ curfrout->tabval[42])), (1));
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1000:/ putclosedv");
+      MELT_LOCATION("warmelt-genobj.melt:1002:/ putclosedv");
       /*putclosv*/
       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V110*/ curfptr[109])) == OBMAG_CLOSURE);
       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V110*/ curfptr[109])));
@@ -5289,31 +5289,31 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       ;
       /*_.LAMBDA___V109*/ curfptr[108] = /*_.LAMBDA___V110*/ curfptr[109];;}
      ;
-     MELT_LOCATION("warmelt-genobj.melt:998:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1000:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:998:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1000:/ apply.arg");
       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V109*/ curfptr[108];
       /*_.OBJTOPLIS__V111*/ curfptr[110] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.TOPLIS__V105*/ curfptr[104]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1006:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1008:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1006:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1008:/ apply.arg");
       argtab[0].bp_cstring =  "get symbols & keywords";
       /*_.APPEND_COMMENTCONST__V112*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1009:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1011:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1009:/ newclosure");
+      MELT_LOCATION("warmelt-genobj.melt:1011:/ newclosure");
        /*newclosure*/ /*_.LAMBDA___V114*/ curfptr[113] =
        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_50*/ curfrout->tabval[50])), (1));
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1009:/ putclosedv");
+      MELT_LOCATION("warmelt-genobj.melt:1011:/ putclosedv");
       /*putclosv*/
       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V114*/ curfptr[113])) == OBMAG_CLOSURE);
       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V114*/ curfptr[113])));
@@ -5321,11 +5321,11 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       ;
       /*_.LAMBDA___V113*/ curfptr[112] = /*_.LAMBDA___V114*/ curfptr[113];;}
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1007:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1009:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1007:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1009:/ apply.arg");
       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V113*/ curfptr[112];
       /*_.MULTIPLE_EVERY__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[43])), (melt_ptr_t)(/*_.ODATATUP__V104*/ curfptr[103]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
       }
@@ -5334,43 +5334,43 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.IMPORTMAP__V37*/ curfptr[36])));;
      /*_#I__L14*/ curfnum[13] = 
       ((/*_#MAPOBJECT_COUNT__L13*/ curfnum[0]) > (0));;
-     MELT_LOCATION("warmelt-genobj.melt:1032:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1034:/ cond");
      /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1032:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1032:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1034:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1034:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1034:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1036:/ apply");
        /*apply*/{
         union meltparam_un argtab[1];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1034:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1036:/ apply.arg");
         argtab[0].bp_cstring =  "get the value importer";
         /*_.APPEND_COMMENTCONST__V116*/ curfptr[115] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
         }
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1037:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1039:/ apply");
        /*apply*/{
         /*_.LIST1__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.OVALUEIMPORTER__V58*/ curfptr[57]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
         }
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1036:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1038:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1036:/ rawallocobj");
+        MELT_LOCATION("warmelt-genobj.melt:1038:/ rawallocobj");
         /*rawallocobj*/ { melt_ptr_t newobj = 0;
          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[20])), (4), "CLASS_OBJGETSLOT");/*_.INST__V119*/ curfptr[118] =
          newobj; };
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1036:/ putslot");
+        MELT_LOCATION("warmelt-genobj.melt:1038:/ putslot");
         /*putslot*/
         melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V119*/ curfptr[118])) == OBMAG_OBJECT);
         melt_putfield_object((/*_.INST__V119*/ curfptr[118]), (1), (/*_.LIST1__V117*/ curfptr[116]), "OBDI_DESTLIST");
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1036:/ putslot");
+        MELT_LOCATION("warmelt-genobj.melt:1038:/ putslot");
         /*putslot*/
         melt_assertmsg("putslot checkobj @OGETSL_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V119*/ curfptr[118])) == OBMAG_OBJECT);
         melt_putfield_object((/*_.INST__V119*/ curfptr[118]), (2), ((/*!INITIALSYSTEMDATA_OBJPREDEF*/ curfrout->tabval[22])), "OGETSL_OBJ");
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1036:/ putslot");
+        MELT_LOCATION("warmelt-genobj.melt:1038:/ putslot");
         /*putslot*/
         melt_assertmsg("putslot checkobj @OGETSL_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V119*/ curfptr[118])) == OBMAG_OBJECT);
         melt_putfield_object((/*_.INST__V119*/ curfptr[118]), (3), ((/*!SYSDATA_VALUE_IMPORTER*/ curfrout->tabval[51])), "OGETSL_FIELD");
@@ -5379,18 +5379,18 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
        ;
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1035:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1037:/ locexp");
        meltgc_append_list((melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (melt_ptr_t)(/*_.INST___V118*/ curfptr[117]));}
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1033:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1035:/ block");
        /*block*/{}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1032:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1034:/ clear");
        /*clear*/ /*_.APPEND_COMMENTCONST__V116*/ curfptr[115] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1032:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1034:/ clear");
        /*clear*/ /*_.LIST1__V117*/ curfptr[116] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1032:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1034:/ clear");
        /*clear*/ /*_.INST___V118*/ curfptr[117] = 0 ;}
       ;
      } /*noelse*/
@@ -5399,57 +5399,57 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       (melt_list_length((melt_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6])));;
      /*_#I__L16*/ curfnum[15] = 
       ((/*_#LIST_LENGTH__L15*/ curfnum[14]) > (0));;
-     MELT_LOCATION("warmelt-genobj.melt:1041:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1043:/ cond");
      /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1041:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1041:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1043:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1043:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1043:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1045:/ apply");
        /*apply*/{
         union meltparam_un argtab[1];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1043:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1045:/ apply.arg");
         argtab[0].bp_cstring =  "before getting imported values";
         /*_.APPEND_COMMENTCONST__V121*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
         }
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1047:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1049:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ newclosure");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ newclosure");
          /*newclosure*/ /*_.LAMBDA___V123*/ curfptr[122] =
          meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_61*/ curfrout->tabval[61])), (6));
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ putclosedv");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ putclosedv");
         /*putclosv*/
         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V123*/ curfptr[122])) == OBMAG_CLOSURE);
         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V123*/ curfptr[122])));
         ((meltclosure_ptr_t)/*_.LAMBDA___V123*/ curfptr[122])->tabval[0] = (melt_ptr_t)(/*_.MODCTX__V3*/ curfptr[2]);
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ putclosedv");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ putclosedv");
         /*putclosv*/
         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V123*/ curfptr[122])) == OBMAG_CLOSURE);
         melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V123*/ curfptr[122])));
         ((meltclosure_ptr_t)/*_.LAMBDA___V123*/ curfptr[122])->tabval[1] = (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]);
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ putclosedv");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ putclosedv");
         /*putclosv*/
         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V123*/ curfptr[122])) == OBMAG_CLOSURE);
         melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V123*/ curfptr[122])));
         ((meltclosure_ptr_t)/*_.LAMBDA___V123*/ curfptr[122])->tabval[2] = (melt_ptr_t)(/*_.IMPORTMAP__V37*/ curfptr[36]);
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ putclosedv");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ putclosedv");
         /*putclosv*/
         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V123*/ curfptr[122])) == OBMAG_CLOSURE);
         melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V123*/ curfptr[122])));
         ((meltclosure_ptr_t)/*_.LAMBDA___V123*/ curfptr[122])->tabval[3] = (melt_ptr_t)(/*_.OVALUEIMPORTER__V58*/ curfptr[57]);
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ putclosedv");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ putclosedv");
         /*putclosv*/
         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V123*/ curfptr[122])) == OBMAG_CLOSURE);
         melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V123*/ curfptr[122])));
         ((meltclosure_ptr_t)/*_.LAMBDA___V123*/ curfptr[122])->tabval[4] = (melt_ptr_t)(/*_.OPREVENV__V56*/ curfptr[54]);
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1047:/ putclosedv");
+        MELT_LOCATION("warmelt-genobj.melt:1049:/ putclosedv");
         /*putclosv*/
         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V123*/ curfptr[122])) == OBMAG_CLOSURE);
         melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V123*/ curfptr[122])));
@@ -5457,62 +5457,62 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
         ;
         /*_.LAMBDA___V122*/ curfptr[117] = /*_.LAMBDA___V123*/ curfptr[122];;}
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1045:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1047:/ apply");
        /*apply*/{
         union meltparam_un argtab[1];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1045:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1047:/ apply.arg");
         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V122*/ curfptr[117];
         /*_.LIST_EVERY__V124*/ curfptr[123] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[52])), (melt_ptr_t)(/*_.IMPORTVALUES__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
         }
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1064:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1066:/ apply");
        /*apply*/{
         union meltparam_un argtab[1];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1064:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1066:/ apply.arg");
         argtab[0].bp_cstring =  "after getting imported values";
         /*_.APPEND_COMMENTCONST__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIPROLOG__V28*/ curfptr[27]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
         }
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1042:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1044:/ block");
        /*block*/{
         /*_.PROGN___V126*/ curfptr[125] = /*_.APPEND_COMMENTCONST__V125*/ curfptr[124];;}
        ;
        /*_.IF___V120*/ curfptr[115] = /*_.PROGN___V126*/ curfptr[125];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1041:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1043:/ clear");
        /*clear*/ /*_.APPEND_COMMENTCONST__V121*/ curfptr[116] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1041:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1043:/ clear");
        /*clear*/ /*_.LAMBDA___V122*/ curfptr[117] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1041:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1043:/ clear");
        /*clear*/ /*_.LIST_EVERY__V124*/ curfptr[123] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1041:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1043:/ clear");
        /*clear*/ /*_.APPEND_COMMENTCONST__V125*/ curfptr[124] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1041:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1043:/ clear");
        /*clear*/ /*_.PROGN___V126*/ curfptr[125] = 0 ;}
       ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1041:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1043:/ cond.else");
      
       /*_.IF___V120*/ curfptr[115] = NULL;;
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1067:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1069:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1067:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1069:/ apply.arg");
       argtab[0].bp_cstring =  "before toplevel body";
       /*_.APPEND_COMMENTCONST__V127*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1070:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1072:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1070:/ newclosure");
+      MELT_LOCATION("warmelt-genobj.melt:1072:/ newclosure");
        /*newclosure*/ /*_.LAMBDA___V129*/ curfptr[123] =
        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_62*/ curfrout->tabval[62])), (1));
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1070:/ putclosedv");
+      MELT_LOCATION("warmelt-genobj.melt:1072:/ putclosedv");
       /*putclosv*/
       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V129*/ curfptr[123])) == OBMAG_CLOSURE);
       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V129*/ curfptr[123])));
@@ -5520,54 +5520,54 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       ;
       /*_.LAMBDA___V128*/ curfptr[117] = /*_.LAMBDA___V129*/ curfptr[123];;}
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1068:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1070:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1068:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1070:/ apply.arg");
       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V128*/ curfptr[117];
       /*_.LIST_EVERY__V130*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[52])), (melt_ptr_t)(/*_.OBJTOPLIS__V111*/ curfptr[110]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1072:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1074:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1072:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1074:/ apply.arg");
       argtab[0].bp_cstring =  "after toplevel body";
       /*_.APPEND_COMMENTCONST__V131*/ curfptr[125] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1074:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1076:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1074:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1076:/ apply.arg");
       argtab[0].bp_cstring =  "compute boxloc again";
       /*_.APPEND_COMMENTCONST__V132*/ curfptr[131] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      
      {
-     MELT_LOCATION("warmelt-genobj.melt:1075:/ locexp");
+     MELT_LOCATION("warmelt-genobj.melt:1077:/ locexp");
      meltgc_append_list((melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (melt_ptr_t)(/*_.OTESTCOMPUTBOXLOC__V88*/ curfptr[69]));}
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1076:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1078:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1076:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1078:/ apply.arg");
       argtab[0].bp_cstring =  "intern symbols";
       /*_.APPEND_COMMENTCONST__V133*/ curfptr[132] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1080:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1082:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1080:/ newclosure");
+      MELT_LOCATION("warmelt-genobj.melt:1082:/ newclosure");
        /*newclosure*/ /*_.LAMBDA___V135*/ curfptr[134] =
        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_69*/ curfrout->tabval[69])), (1));
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1080:/ putclosedv");
+      MELT_LOCATION("warmelt-genobj.melt:1082:/ putclosedv");
       /*putclosv*/
       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V135*/ curfptr[134])) == OBMAG_CLOSURE);
       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V135*/ curfptr[134])));
@@ -5575,66 +5575,66 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       ;
       /*_.LAMBDA___V134*/ curfptr[133] = /*_.LAMBDA___V135*/ curfptr[134];;}
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1078:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1080:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1078:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1080:/ apply.arg");
       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V134*/ curfptr[133];
       /*_.MULTIPLE_EVERY__V136*/ curfptr[135] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[43])), (melt_ptr_t)(/*_.ODATATUP__V104*/ curfptr[103]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.LET___V108*/ curfptr[106] = /*_.MULTIPLE_EVERY__V136*/ curfptr[135];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.LAMBDA___V109*/ curfptr[108] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.OBJTOPLIS__V111*/ curfptr[110] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.APPEND_COMMENTCONST__V112*/ curfptr[111] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.LAMBDA___V113*/ curfptr[112] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.MULTIPLE_EVERY__V115*/ curfptr[114] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_#MAPOBJECT_COUNT__L13*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_#LIST_LENGTH__L15*/ curfnum[14] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.IF___V120*/ curfptr[115] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.APPEND_COMMENTCONST__V127*/ curfptr[116] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.LAMBDA___V128*/ curfptr[117] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.LIST_EVERY__V130*/ curfptr[124] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.APPEND_COMMENTCONST__V131*/ curfptr[125] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.APPEND_COMMENTCONST__V132*/ curfptr[131] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.APPEND_COMMENTCONST__V133*/ curfptr[132] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.LAMBDA___V134*/ curfptr[133] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:997:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:999:/ clear");
      /*clear*/ /*_.MULTIPLE_EVERY__V136*/ curfptr[135] = 0 ;}
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1103:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1105:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1103:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1105:/ apply.arg");
      argtab[0].bp_cstring =  "set retinit from boxloc";
      /*_.APPEND_COMMENTCONST__V137*/ curfptr[108] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1105:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1107:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1108:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1110:/ apply");
      /*apply*/{
       /*_.LIST1__V138*/ curfptr[110] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.RETINIT__V49*/ curfptr[47]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
       }
@@ -5645,19 +5645,19 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[26])), ( "))")));;
      /*_.MAKE_TUPLE3__V141*/ curfptr[114] = 
       (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V139*/ curfptr[111]),  (melt_ptr_t)(/*_.BOXLOC__V52*/ curfptr[50]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V140*/ curfptr[112])));;
-     MELT_LOCATION("warmelt-genobj.melt:1106:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1108:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1106:/ rawallocobj");
+      MELT_LOCATION("warmelt-genobj.melt:1108:/ rawallocobj");
       /*rawallocobj*/ { melt_ptr_t newobj = 0;
        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[24])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V143*/ curfptr[116] =
        newobj; };
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1106:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1108:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ curfptr[116])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V143*/ curfptr[116]), (1), (/*_.LIST1__V138*/ curfptr[110]), "OBDI_DESTLIST");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1106:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1108:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V143*/ curfptr[116])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V143*/ curfptr[116]), (2), (/*_.MAKE_TUPLE3__V141*/ curfptr[114]), "OBCPT_EXPR");
@@ -5666,313 +5666,313 @@ MELT_LOCATION("warmelt-genobj.melt:826:/ block");
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1118:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1118:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1120:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1120:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 
         callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1118:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1120:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1118:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1120:/ apply.arg");
         argtab[0].bp_cstring =  "compile2obj_initproc adding osetretinit";
-        MELT_LOCATION("warmelt-genobj.melt:1118:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1120:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0];
-        MELT_LOCATION("warmelt-genobj.melt:1118:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1120:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1118:/ apply.arg");
-        argtab[3].bp_long = 1118;
+        MELT_LOCATION("warmelt-genobj.melt:1120:/ apply.arg");
+        argtab[3].bp_long = 1120;
         /*_.DEBUG_MSG_FUN__V145*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSETRETINIT__V142*/ curfptr[115]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V144*/ curfptr[117] = /*_.DEBUG_MSG_FUN__V145*/ curfptr[124];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1118:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1120:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1118:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1120:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V145*/ curfptr[124] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1118:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1120:/ cppif.else");
      /*_.IFCPP___V144*/ curfptr[117] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      {
-     MELT_LOCATION("warmelt-genobj.melt:1119:/ locexp");
+     MELT_LOCATION("warmelt-genobj.melt:1121:/ locexp");
      meltgc_append_list((melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (melt_ptr_t)(/*_.OSETRETINIT__V142*/ curfptr[115]));}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1105:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1107:/ clear");
      /*clear*/ /*_.LIST1__V138*/ curfptr[110] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1105:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1107:/ clear");
      /*clear*/ /*_.MAKE_STRINGCONST__V139*/ curfptr[111] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1105:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1107:/ clear");
      /*clear*/ /*_.MAKE_STRINGCONST__V140*/ curfptr[112] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1105:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1107:/ clear");
      /*clear*/ /*_.MAKE_TUPLE3__V141*/ curfptr[114] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1105:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1107:/ clear");
      /*clear*/ /*_.OSETRETINIT__V142*/ curfptr[115] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1105:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1107:/ clear");
      /*clear*/ /*_.IFCPP___V144*/ curfptr[117] = 0 ;}
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1121:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1123:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1121:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1123:/ apply.arg");
      argtab[0].bp_cstring =  "end the initproc";
      /*_.APPEND_COMMENTCONST__V146*/ curfptr[125] =  melt_apply ((meltclosure_ptr_t)((/*!APPEND_COMMENTCONST*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1122:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1122:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1124:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1124:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1122:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1124:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1122:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
        argtab[0].bp_cstring =  "compile2obj_initproc final oinibody";
-       MELT_LOCATION("warmelt-genobj.melt:1122:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13];
-       MELT_LOCATION("warmelt-genobj.melt:1122:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1122:/ apply.arg");
-       argtab[3].bp_long = 1122;
+       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
+       argtab[3].bp_long = 1124;
        /*_.DEBUG_MSG_FUN__V148*/ curfptr[132] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OINIBODY__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V147*/ curfptr[131] = /*_.DEBUG_MSG_FUN__V148*/ curfptr[132];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1122:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1124:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1122:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1124:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V148*/ curfptr[132] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1122:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1124:/ cppif.else");
     /*_.IFCPP___V147*/ curfptr[131] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1123:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1123:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1125:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1125:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L19*/ curfnum[14] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1123:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1125:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1123:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1125:/ apply.arg");
        argtab[0].bp_cstring =  "compile2obj_initproc final gcx";
-       MELT_LOCATION("warmelt-genobj.melt:1123:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1125:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[14];
-       MELT_LOCATION("warmelt-genobj.melt:1123:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1125:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1123:/ apply.arg");
-       argtab[3].bp_long = 1123;
+       MELT_LOCATION("warmelt-genobj.melt:1125:/ apply.arg");
+       argtab[3].bp_long = 1125;
        /*_.DEBUG_MSG_FUN__V150*/ curfptr[135] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GCX__V45*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V149*/ curfptr[133] = /*_.DEBUG_MSG_FUN__V150*/ curfptr[135];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1123:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1125:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[14] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1123:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1125:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V150*/ curfptr[135] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1123:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1125:/ cppif.else");
     /*_.IFCPP___V149*/ curfptr[133] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1124:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1124:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1126:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1126:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1124:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1126:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1126:/ apply.arg");
        argtab[0].bp_cstring =  "compile2obj_initproc final oinitrout";
-       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1126:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[15];
-       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1126:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1124:/ apply.arg");
-       argtab[3].bp_long = 1124;
+       MELT_LOCATION("warmelt-genobj.melt:1126:/ apply.arg");
+       argtab[3].bp_long = 1126;
        /*_.DEBUG_MSG_FUN__V152*/ curfptr[110] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OINITROUT__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V151*/ curfptr[124] = /*_.DEBUG_MSG_FUN__V152*/ curfptr[110];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1124:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1126:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1124:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1126:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V152*/ curfptr[110] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1124:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1126:/ cppif.else");
     /*_.IFCPP___V151*/ curfptr[124] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1125:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1127:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = /*_.OINITROUT__V35*/ curfptr[34];;
-     MELT_LOCATION("warmelt-genobj.melt:1125:/ finalreturn");
+     MELT_LOCATION("warmelt-genobj.melt:1127:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
     /*_.LET___V101*/ curfptr[79] = /*_.RETURN___V153*/ curfptr[111];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.LAMBDA___V102*/ curfptr[80] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.ODATATUP__V104*/ curfptr[103] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.TOPLIS__V105*/ curfptr[104] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.IFCPP___V106*/ curfptr[105] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.LET___V108*/ curfptr[106] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.APPEND_COMMENTCONST__V137*/ curfptr[108] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.APPEND_COMMENTCONST__V146*/ curfptr[125] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.IFCPP___V147*/ curfptr[131] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.IFCPP___V149*/ curfptr[133] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.IFCPP___V151*/ curfptr[124] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:981:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:983:/ clear");
     /*clear*/ /*_.RETURN___V153*/ curfptr[111] = 0 ;}
    ;
    /*_.LET___V62*/ curfptr[60] = /*_.LET___V101*/ curfptr[79];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.LET___V63*/ curfptr[62] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.OCOMPUTBOXLOC__V83*/ curfptr[63] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.MAKE_STRINGCONST__V84*/ curfptr[64] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.MAKE_TUPLE2__V85*/ curfptr[65] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.INST___V86*/ curfptr[66] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.OTESTCOMPUTBOXLOC__V88*/ curfptr[69] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.LAMBDA___V90*/ curfptr[71] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.LIMPLOCV__V92*/ curfptr[73] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.IFCPP___V93*/ curfptr[75] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.APPEND_COMMENTCONST__V100*/ curfptr[77] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:894:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:896:/ clear");
    /*clear*/ /*_.LET___V101*/ curfptr[79] = 0 ;}
   ;
   /*_.LET___V26*/ curfptr[24] = /*_.LET___V62*/ curfptr[60];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LOCMAP__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OINIPROLOG__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OINIBODY__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_LIST__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_INTEGERBOX__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OINITROUT__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.IMPORTMAP__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_LIST__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_LIST__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_MAPOBJECT__V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.MAKE_MAPOBJECT__V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LAMBDA___V42*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LIST_MAP__V44*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.GCX__V45*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LET___V47*/ curfptr[46] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.RETINIT__V49*/ curfptr[47] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LET___V50*/ curfptr[49] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.BOXLOC__V52*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OFRESHENV__V53*/ curfptr[52] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LET___V54*/ curfptr[53] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OPREVENV__V56*/ curfptr[54] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OVALUEEXPORTER__V57*/ curfptr[56] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.OVALUEIMPORTER__V58*/ curfptr[57] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.APPEND_COMMENTCONST__V59*/ curfptr[58] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:836:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:838:/ clear");
   /*clear*/ /*_.LET___V62*/ curfptr[60] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V26*/ curfptr[24];;
-  MELT_LOCATION("warmelt-genobj.melt:826:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:828:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:826:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ clear");
  /*clear*/ /*_.LET___V26*/ curfptr[24] = 0 ;}
 
 ;
@@ -6033,107 +6033,107 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:865:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:867:/ getarg");
  /*_.CURPRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:865:/ block");
+MELT_LOCATION("warmelt-genobj.melt:867:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:866:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:866:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:868:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:868:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:866:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:868:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:866:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc procurmodenvlist curpro";
-    MELT_LOCATION("warmelt-genobj.melt:866:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:866:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:866:/ apply.arg");
-    argtab[3].bp_long = 866;
+    MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
+    argtab[3].bp_long = 868;
     /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:866:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:868:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:866:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:868:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:866:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:868:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:867:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:869:/ block");
  /*block*/{
   /*_.CUROU__V6*/ curfptr[5] = 
    melt_get_mapobjects((meltmapobjects_ptr_t)((/*~COMPICACHE*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.CURPRO__V2*/ curfptr[1]));;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:868:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:868:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:870:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:870:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:868:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:870:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:870:/ apply.arg");
      argtab[0].bp_cstring =  "compile2obj_initproc procurmodenvlist curou";
-     MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:870:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:870:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:868:/ apply.arg");
-     argtab[3].bp_long = 868;
+     MELT_LOCATION("warmelt-genobj.melt:870:/ apply.arg");
+     argtab[3].bp_long = 870;
      /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROU__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:868:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:870:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:868:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:870:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:868:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:870:/ cppif.else");
   /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:869:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:869:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:871:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:871:/ block");
    /*block*/{
     /*_#IS_OBJECT__L3*/ curfnum[0] = 
      (melt_magic_discr((melt_ptr_t)(/*_.CUROU__V6*/ curfptr[5])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:869:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:871:/ cond");
     /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:869:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:871:/ cond.then");
     /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:869:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:871:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:869:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:871:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:869:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:871:/ locexp");
        melt_assert_failed(( "check curou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (869)?(869):__LINE__, __FUNCTION__);
+  (871)?(871):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
@@ -6144,36 +6144,36 @@ MELT_LOCATION("warmelt-genobj.melt:865:/ block");
     ;
     /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:869:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:871:/ clear");
     /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:869:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:871:/ clear");
     /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:869:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:871:/ cppif.else");
   /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_.LET___V5*/ curfptr[3] = /*_.CUROU__V6*/ curfptr[5];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:867:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:869:/ clear");
   /*clear*/ /*_.CUROU__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:867:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:869:/ clear");
   /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:867:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:869:/ clear");
   /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:865:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:867:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-genobj.melt:865:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:867:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:865:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:867:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:865:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:867:/ clear");
  /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
 
 ;
@@ -6234,69 +6234,69 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:954:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ getarg");
  /*_.IVAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:954:/ block");
+MELT_LOCATION("warmelt-genobj.melt:956:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:955:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:955:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:957:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:957:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:955:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:957:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:955:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:957:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc imported ival";
-    MELT_LOCATION("warmelt-genobj.melt:955:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:957:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:955:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:957:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:955:/ apply.arg");
-    argtab[3].bp_long = 955;
+    MELT_LOCATION("warmelt-genobj.melt:957:/ apply.arg");
+    argtab[3].bp_long = 957;
     /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.IVAL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:955:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:957:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:955:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:957:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:955:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:957:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:956:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:956:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:958:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:958:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.IVAL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:956:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:958:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:956:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:958:/ cond.then");
    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:956:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:958:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:956:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:958:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:956:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:958:/ locexp");
       melt_assert_failed(( "check ival"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (956)?(956):__LINE__, __FUNCTION__);
+  (958)?(958):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
@@ -6307,94 +6307,94 @@ MELT_LOCATION("warmelt-genobj.melt:954:/ block");
    ;
    /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:956:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:958:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:956:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:958:/ clear");
    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:956:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:958:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:957:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:959:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:957:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:959:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.IVAL__V2*/ curfptr[1]), 1, "NIMPORT_SYMB");/*_.ISYM__V8*/ curfptr[7] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:958:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:960:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:958:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:960:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ISYM__V8*/ curfptr[7];
    /*_.ILOCV__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:960:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:960:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:962:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:962:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:960:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:962:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:960:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:962:/ apply.arg");
      argtab[0].bp_cstring =  "compile2obj_initproc imported ilocv";
-     MELT_LOCATION("warmelt-genobj.melt:960:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:962:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:960:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:962:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:960:/ apply.arg");
-     argtab[3].bp_long = 960;
+     MELT_LOCATION("warmelt-genobj.melt:962:/ apply.arg");
+     argtab[3].bp_long = 962;
      /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ILOCV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:960:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:962:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:960:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:962:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:960:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:962:/ cppif.else");
   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:961:/ locexp");
+  MELT_LOCATION("warmelt-genobj.melt:963:/ locexp");
   meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~IMPORTMAP*/ curfclos->tabval[1])), 
 			   (meltobject_ptr_t) (/*_.ISYM__V8*/ curfptr[7]), 
 			   (melt_ptr_t)(/*_.ILOCV__V9*/ curfptr[8]));}
   ;
   /*_.LET___V7*/ curfptr[5] = /*_.ILOCV__V9*/ curfptr[8];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:957:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:959:/ clear");
   /*clear*/ /*_.ISYM__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:957:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:959:/ clear");
   /*clear*/ /*_.ILOCV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:957:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:959:/ clear");
   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:954:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:954:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:956:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:954:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:954:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:954:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ clear");
  /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
 
 ;
@@ -6455,35 +6455,35 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:985:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ getarg");
  /*_.CURDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:985:/ block");
+MELT_LOCATION("warmelt-genobj.melt:987:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:987:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:987:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:989:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:989:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CURDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:987:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:989:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:987:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:989:/ cond.then");
    /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:987:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:989:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:987:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:989:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:987:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:989:/ locexp");
       melt_assert_failed(( "check curdat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (987)?(987):__LINE__, __FUNCTION__);
+  (989)?(989):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
@@ -6494,43 +6494,43 @@ MELT_LOCATION("warmelt-genobj.melt:985:/ block");
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:987:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:989:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:987:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:989:/ clear");
    /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:987:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:989:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:988:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:990:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:988:/ msend");
+  MELT_LOCATION("warmelt-genobj.melt:990:/ msend");
   /*msend*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:988:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-genobj.melt:990:/ ojbmsend.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
    /*_.CUROBD__V6*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*_.LET___V5*/ curfptr[3] = /*_.CUROBD__V6*/ curfptr[5];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:988:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:990:/ clear");
   /*clear*/ /*_.CUROBD__V6*/ curfptr[5] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:985:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-genobj.melt:985:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:987:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:985:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:985:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ clear");
  /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
 
 ;
@@ -6591,75 +6591,75 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1000:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1002:/ getarg");
  /*_.CURTOP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1000:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1002:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-genobj.melt:1001:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1003:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1001:/ msend");
+  MELT_LOCATION("warmelt-genobj.melt:1003:/ msend");
   /*msend*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1001:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1003:/ ojbmsend.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
    /*_.OTOP__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURTOP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1002:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1002:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1004:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1004:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1002:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1004:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1002:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1004:/ apply.arg");
      argtab[0].bp_cstring =  "compile2obj_initproc otop";
-     MELT_LOCATION("warmelt-genobj.melt:1002:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1004:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1002:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1004:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1002:/ apply.arg");
-     argtab[3].bp_long = 1002;
+     MELT_LOCATION("warmelt-genobj.melt:1004:/ apply.arg");
+     argtab[3].bp_long = 1004;
      /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OTOP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1002:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1004:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1002:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1004:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1002:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1004:/ cppif.else");
   /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_.LET___V3*/ curfptr[2] = /*_.OTOP__V4*/ curfptr[3];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1001:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1003:/ clear");
   /*clear*/ /*_.OTOP__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1001:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1003:/ clear");
   /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1000:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1002:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:1000:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1002:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1000:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1002:/ clear");
  /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -6720,83 +6720,83 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1009:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ getarg");
  /*_.CURPDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1009:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1009:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1011:/ block");
 /*block*/{
  /*_#IS_A__L2*/ curfnum[1] = 
   melt_is_instance_of((melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-genobj.melt:1010:/ cond");
+ MELT_LOCATION("warmelt-genobj.melt:1012:/ cond");
  /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:1010:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:1010:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1012:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:1012:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1011:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1013:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1011:/ getslot");
+    MELT_LOCATION("warmelt-genobj.melt:1013:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODAT__V5*/ curfptr[4] = slot; };
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1013:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1013:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1015:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1015:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1013:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1015:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1013:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1015:/ apply.arg");
        argtab[0].bp_cstring =  "compile2obj_initproc getting curpdat";
-       MELT_LOCATION("warmelt-genobj.melt:1013:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1015:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
-       MELT_LOCATION("warmelt-genobj.melt:1013:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1015:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1013:/ apply.arg");
-       argtab[3].bp_long = 1013;
+       MELT_LOCATION("warmelt-genobj.melt:1015:/ apply.arg");
+       argtab[3].bp_long = 1015;
        /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1013:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1015:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1013:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1015:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1013:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1015:/ cppif.else");
     /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     /*_#IS_A__L4*/ curfnum[2] = 
      melt_is_instance_of((melt_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-genobj.melt:1016:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1018:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1016:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:1016:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1018:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1018:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1017:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1019:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1017:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1019:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1017:/ rawallocobj");
+        MELT_LOCATION("warmelt-genobj.melt:1019:/ rawallocobj");
         /*rawallocobj*/ { melt_ptr_t newobj = 0;
          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETNAMEDKEYWORD*/ curfrout->tabval[3])), (2), "CLASS_OBJGETNAMEDKEYWORD");/*_.INST__V11*/ curfptr[10] =
          newobj; };
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1017:/ putslot");
+        MELT_LOCATION("warmelt-genobj.melt:1019:/ putslot");
         /*putslot*/
         melt_assertmsg("putslot checkobj @OBGNAMED_IOBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT);
         melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBGNAMED_IOBJ");
@@ -6805,76 +6805,76 @@ MELT_LOCATION("warmelt-genobj.melt:1009:/ block");
        ;
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1020:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1022:/ locexp");
        meltgc_append_list((melt_ptr_t)((/*~OINIPROLOG*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OGKW__V10*/ curfptr[9]));}
        ;
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1021:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1021:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1023:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1023:/ block");
         /*block*/{
          /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
           callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:1021:/ apply");
+         MELT_LOCATION("warmelt-genobj.melt:1023:/ apply");
          /*apply*/{
           union meltparam_un argtab[4];
           memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:1021:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1023:/ apply.arg");
           argtab[0].bp_cstring =  "compile2obj_initproc added keyword getting ogkw";
-          MELT_LOCATION("warmelt-genobj.melt:1021:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1023:/ apply.arg");
           argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-          MELT_LOCATION("warmelt-genobj.melt:1021:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1023:/ apply.arg");
           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:1021:/ apply.arg");
-          argtab[3].bp_long = 1021;
+          MELT_LOCATION("warmelt-genobj.melt:1023:/ apply.arg");
+          argtab[3].bp_long = 1023;
           /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OGKW__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
           }
          ;
          /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1021:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1023:/ clear");
          /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1021:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1023:/ clear");
          /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1021:/ cppif.else");
+        MELT_LOCATION("warmelt-genobj.melt:1023:/ cppif.else");
        /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
        /*_.LET___V9*/ curfptr[8] = /*_.IFCPP___V12*/ curfptr[11];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1017:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1019:/ clear");
        /*clear*/ /*_.OGKW__V10*/ curfptr[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1017:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1019:/ clear");
        /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;}
       ;
       /*_.IFELSE___V8*/ curfptr[6] = /*_.LET___V9*/ curfptr[8];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1016:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1018:/ clear");
       /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1016:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1018:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1016:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1018:/ block");
      /*block*/{
       /*_#IS_A__L6*/ curfnum[4] = 
        melt_is_instance_of((melt_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-genobj.melt:1023:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1025:/ cond");
       /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1023:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:1023:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1025:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1025:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1024:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1026:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1024:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1026:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:1024:/ rawallocobj");
+          MELT_LOCATION("warmelt-genobj.melt:1026:/ rawallocobj");
           /*rawallocobj*/ { melt_ptr_t newobj = 0;
            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETNAMEDSYMBOL*/ curfrout->tabval[5])), (2), "CLASS_OBJGETNAMEDSYMBOL");/*_.INST__V17*/ curfptr[8] =
            newobj; };
           ;
-          MELT_LOCATION("warmelt-genobj.melt:1024:/ putslot");
+          MELT_LOCATION("warmelt-genobj.melt:1026:/ putslot");
           /*putslot*/
           melt_assertmsg("putslot checkobj @OBGNAMED_IOBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[8])) == OBMAG_OBJECT);
           melt_putfield_object((/*_.INST__V17*/ curfptr[8]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBGNAMED_IOBJ");
@@ -6883,101 +6883,101 @@ MELT_LOCATION("warmelt-genobj.melt:1009:/ block");
          ;
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1027:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1029:/ locexp");
          meltgc_append_list((melt_ptr_t)((/*~OINIPROLOG*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OGSY__V16*/ curfptr[11]));}
          ;
          
          #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-genobj.melt:1028:/ cppif.then");
-         MELT_LOCATION("warmelt-genobj.melt:1028:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1030:/ cppif.then");
+         MELT_LOCATION("warmelt-genobj.melt:1030:/ block");
           /*block*/{
            /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
             callcount;;
-           MELT_LOCATION("warmelt-genobj.melt:1028:/ apply");
+           MELT_LOCATION("warmelt-genobj.melt:1030:/ apply");
            /*apply*/{
             union meltparam_un argtab[4];
             memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-genobj.melt:1028:/ apply.arg");
+            MELT_LOCATION("warmelt-genobj.melt:1030:/ apply.arg");
             argtab[0].bp_cstring =  "compile2obj_initproc added symbol getting ogsy";
-            MELT_LOCATION("warmelt-genobj.melt:1028:/ apply.arg");
+            MELT_LOCATION("warmelt-genobj.melt:1030:/ apply.arg");
             argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-            MELT_LOCATION("warmelt-genobj.melt:1028:/ apply.arg");
+            MELT_LOCATION("warmelt-genobj.melt:1030:/ apply.arg");
             argtab[2].bp_cstring =  "warmelt-genobj.melt";
-            MELT_LOCATION("warmelt-genobj.melt:1028:/ apply.arg");
-            argtab[3].bp_long = 1028;
+            MELT_LOCATION("warmelt-genobj.melt:1030:/ apply.arg");
+            argtab[3].bp_long = 1030;
             /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OGSY__V16*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
             }
            ;
            /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
            /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:1028:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1030:/ clear");
            /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1028:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1030:/ clear");
            /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
           
           #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-genobj.melt:1028:/ cppif.else");
+          MELT_LOCATION("warmelt-genobj.melt:1030:/ cppif.else");
          /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
           #endif /*ENABLE_CHECKING*/
           ;
          /*_.LET___V15*/ curfptr[9] = /*_.IFCPP___V18*/ curfptr[17];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1024:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1026:/ clear");
          /*clear*/ /*_.OGSY__V16*/ curfptr[11] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1024:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1026:/ clear");
          /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;}
         ;
         /*_.IFELSE___V14*/ curfptr[12] = /*_.LET___V15*/ curfptr[9];;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1023:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1025:/ clear");
         /*clear*/ /*_.LET___V15*/ curfptr[9] = 0 ;}
        ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1023:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1025:/ cond.else");
       
        /*_.IFELSE___V14*/ curfptr[12] = NULL;;
        }
       ;
       /*_.IFELSE___V8*/ curfptr[6] = /*_.IFELSE___V14*/ curfptr[12];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1016:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1018:/ clear");
       /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1016:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1018:/ clear");
       /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;}
      ;
      }
     ;
     /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V8*/ curfptr[6];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1011:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1013:/ clear");
     /*clear*/ /*_.ODAT__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1011:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1013:/ clear");
     /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1011:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1013:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1011:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1013:/ clear");
     /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
    ;
    /*_.IF___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1010:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1012:/ clear");
    /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-genobj.melt:1010:/ cond.else");
+ } else {MELT_LOCATION("warmelt-genobj.melt:1012:/ cond.else");
  
   /*_.IF___V3*/ curfptr[2] = NULL;;
   }
  ;
- MELT_LOCATION("warmelt-genobj.melt:1009:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:1009:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1011:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1009:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ clear");
  /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1009:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ clear");
  /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -7038,69 +7038,69 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1047:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ getarg");
  /*_.CURIMPORT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1047:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1049:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1048:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1048:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1050:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1050:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1048:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1050:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1048:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1050:/ apply.arg");
     argtab[0].bp_cstring =  "compile2obj_initproc curimport";
-    MELT_LOCATION("warmelt-genobj.melt:1048:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1050:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1048:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1050:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1048:/ apply.arg");
-    argtab[3].bp_long = 1048;
+    MELT_LOCATION("warmelt-genobj.melt:1050:/ apply.arg");
+    argtab[3].bp_long = 1050;
     /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1048:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1050:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1048:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1050:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1048:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1050:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1049:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1049:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1051:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1051:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1049:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1051:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1049:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1051:/ cond.then");
    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1049:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1051:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1049:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1051:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1049:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1051:/ locexp");
       melt_assert_failed(( "check curimport"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1049)?(1049):__LINE__, __FUNCTION__);
+  (1051)?(1051):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
@@ -7111,62 +7111,62 @@ MELT_LOCATION("warmelt-genobj.melt:1047:/ block");
    ;
    /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1049:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1049:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1049:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1051:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1051:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1053:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), 1, "NIMPORT_SYMB");/*_.IMPSYM__V7*/ curfptr[5] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1052:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1054:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.CURIMPORT__V2*/ curfptr[1]), 2, "NIMPORT_SYDATA");/*_.IMPSYDAT__V8*/ curfptr[7] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1053:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1055:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.IMPSYM__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1053:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1053:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1055:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1055:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.IMPSYM__V7*/ curfptr[5]), 1, "NAMED_NAME");/*_.IMPSYMSTR__V9*/ curfptr[8] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1053:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1055:/ cond.else");
   
    /*_.IMPSYMSTR__V9*/ curfptr[8] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1054:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1056:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MODCTX*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1054:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1054:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1056:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1056:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)((/*~MODCTX*/ curfclos->tabval[0])), 0, "MOCX_MODULENAME");/*_.MODULSTR__V10*/ curfptr[9] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1054:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1056:/ cond.else");
   
    /*_.MODULSTR__V10*/ curfptr[9] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1055:/ msend");
+  MELT_LOCATION("warmelt-genobj.melt:1057:/ msend");
   /*msend*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1055:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1057:/ ojbmsend.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
    /*_.OSYMDAT__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.IMPSYDAT__V8*/ curfptr[7]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*_.OIMPLOCV__V12*/ curfptr[11] = 
    melt_get_mapobjects((meltmapobjects_ptr_t)((/*~IMPORTMAP*/ curfclos->tabval[2])), (meltobject_ptr_t)(/*_.IMPSYM__V7*/ curfptr[5]));;
-  MELT_LOCATION("warmelt-genobj.melt:1058:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1060:/ apply");
   /*apply*/{
    /*_.LIST1__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OIMPLOCV__V12*/ curfptr[11]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
    }
@@ -7174,24 +7174,24 @@ MELT_LOCATION("warmelt-genobj.melt:1047:/ block");
   /*_.MAKE_TUPLE4__V14*/ curfptr[13] = 
    (meltgc_new_mult4((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.OSYMDAT__V11*/ curfptr[10]),  
 		      (melt_ptr_t)((/*~OPREVENV*/ curfclos->tabval[4])),  (melt_ptr_t)(/*_.IMPSYMSTR__V9*/ curfptr[8]),  (melt_ptr_t)(/*_.MODULSTR__V10*/ curfptr[9])));;
-  MELT_LOCATION("warmelt-genobj.melt:1057:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1059:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1057:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:1059:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[5])), (4), "CLASS_OBJAPPLY");/*_.INST__V16*/ curfptr[15] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1057:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1059:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.LIST1__V13*/ curfptr[12]), "OBDI_DESTLIST");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1057:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1059:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), ((/*~OVALUEIMPORTER*/ curfclos->tabval[3])), "OBAPP_CLOS");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1057:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1059:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (3), (/*_.MAKE_TUPLE4__V14*/ curfptr[13]), "OBAPP_ARGS");
@@ -7200,33 +7200,33 @@ MELT_LOCATION("warmelt-genobj.melt:1047:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:1062:/ locexp");
+  MELT_LOCATION("warmelt-genobj.melt:1064:/ locexp");
   meltgc_append_list((melt_ptr_t)((/*~OINIPROLOG*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OIMPAPPL__V15*/ curfptr[14]));}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.IMPSYM__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.IMPSYDAT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.IMPSYMSTR__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.MODULSTR__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.OSYMDAT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.OIMPLOCV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.LIST1__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.MAKE_TUPLE4__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1051:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1053:/ clear");
   /*clear*/ /*_.OIMPAPPL__V15*/ curfptr[14] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1047:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1047:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
 
 ;
@@ -7287,17 +7287,17 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1070:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1072:/ getarg");
  /*_.CUROBJT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1070:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1072:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-genobj.melt:1071:/ locexp");
+ MELT_LOCATION("warmelt-genobj.melt:1073:/ locexp");
  meltgc_append_list((melt_ptr_t)((/*~OINIBODY*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.CUROBJT__V2*/ curfptr[1]));}
  ;
  /*epilog*/}
@@ -7360,83 +7360,83 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1080:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ getarg");
  /*_.CURPDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1080:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1080:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1082:/ block");
 /*block*/{
  /*_#IS_A__L2*/ curfnum[1] = 
   melt_is_instance_of((melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-genobj.melt:1081:/ cond");
+ MELT_LOCATION("warmelt-genobj.melt:1083:/ cond");
  /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:1081:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:1081:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1083:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:1083:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1082:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1084:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1082:/ getslot");
+    MELT_LOCATION("warmelt-genobj.melt:1084:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODAT__V5*/ curfptr[4] = slot; };
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1084:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1084:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1086:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1086:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1084:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1086:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1084:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1086:/ apply.arg");
        argtab[0].bp_cstring =  "compile2obj_initproc interning curpdat";
-       MELT_LOCATION("warmelt-genobj.melt:1084:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1086:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
-       MELT_LOCATION("warmelt-genobj.melt:1084:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1086:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1084:/ apply.arg");
-       argtab[3].bp_long = 1084;
+       MELT_LOCATION("warmelt-genobj.melt:1086:/ apply.arg");
+       argtab[3].bp_long = 1086;
        /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1084:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1086:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1084:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1086:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1084:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1086:/ cppif.else");
     /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     /*_#IS_A__L4*/ curfnum[2] = 
      melt_is_instance_of((melt_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-genobj.melt:1087:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1089:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1087:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:1087:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1089:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1089:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1088:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1090:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1088:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1090:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1088:/ rawallocobj");
+        MELT_LOCATION("warmelt-genobj.melt:1090:/ rawallocobj");
         /*rawallocobj*/ { melt_ptr_t newobj = 0;
          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINTERNKEYWORD*/ curfrout->tabval[3])), (2), "CLASS_OBJINTERNKEYWORD");/*_.INST__V11*/ curfptr[10] =
          newobj; };
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1088:/ putslot");
+        MELT_LOCATION("warmelt-genobj.melt:1090:/ putslot");
         /*putslot*/
         melt_assertmsg("putslot checkobj @OBINTERN_IOBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT);
         melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBINTERN_IOBJ");
@@ -7445,76 +7445,76 @@ MELT_LOCATION("warmelt-genobj.melt:1080:/ block");
        ;
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1091:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1093:/ locexp");
        meltgc_append_list((melt_ptr_t)((/*~OINIBODY*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OIKW__V10*/ curfptr[9]));}
        ;
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1092:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1092:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1094:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1094:/ block");
         /*block*/{
          /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
           callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:1092:/ apply");
+         MELT_LOCATION("warmelt-genobj.melt:1094:/ apply");
          /*apply*/{
           union meltparam_un argtab[4];
           memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:1092:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1094:/ apply.arg");
           argtab[0].bp_cstring =  "compile2obj_initproc added keyword interning oikw";
-          MELT_LOCATION("warmelt-genobj.melt:1092:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1094:/ apply.arg");
           argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-          MELT_LOCATION("warmelt-genobj.melt:1092:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1094:/ apply.arg");
           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:1092:/ apply.arg");
-          argtab[3].bp_long = 1092;
+          MELT_LOCATION("warmelt-genobj.melt:1094:/ apply.arg");
+          argtab[3].bp_long = 1094;
           /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OIKW__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
           }
          ;
          /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1092:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1094:/ clear");
          /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1092:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1094:/ clear");
          /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1092:/ cppif.else");
+        MELT_LOCATION("warmelt-genobj.melt:1094:/ cppif.else");
        /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
        /*_.LET___V9*/ curfptr[8] = /*_.IFCPP___V12*/ curfptr[11];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1088:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1090:/ clear");
        /*clear*/ /*_.OIKW__V10*/ curfptr[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1088:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1090:/ clear");
        /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;}
       ;
       /*_.IFELSE___V8*/ curfptr[6] = /*_.LET___V9*/ curfptr[8];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1087:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1089:/ clear");
       /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1087:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1089:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1087:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1089:/ block");
      /*block*/{
       /*_#IS_A__L6*/ curfnum[4] = 
        melt_is_instance_of((melt_ptr_t)(/*_.ODAT__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-genobj.melt:1094:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1096:/ cond");
       /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1094:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:1094:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1096:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1096:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1095:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1097:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1095:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1097:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:1095:/ rawallocobj");
+          MELT_LOCATION("warmelt-genobj.melt:1097:/ rawallocobj");
           /*rawallocobj*/ { melt_ptr_t newobj = 0;
            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINTERNSYMBOL*/ curfrout->tabval[5])), (2), "CLASS_OBJINTERNSYMBOL");/*_.INST__V17*/ curfptr[8] =
            newobj; };
           ;
-          MELT_LOCATION("warmelt-genobj.melt:1095:/ putslot");
+          MELT_LOCATION("warmelt-genobj.melt:1097:/ putslot");
           /*putslot*/
           melt_assertmsg("putslot checkobj @OBINTERN_IOBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[8])) == OBMAG_OBJECT);
           melt_putfield_object((/*_.INST__V17*/ curfptr[8]), (1), (/*_.CURPDAT__V2*/ curfptr[1]), "OBINTERN_IOBJ");
@@ -7523,101 +7523,101 @@ MELT_LOCATION("warmelt-genobj.melt:1080:/ block");
          ;
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1098:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1100:/ locexp");
          meltgc_append_list((melt_ptr_t)((/*~OINIBODY*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OISY__V16*/ curfptr[11]));}
          ;
          
          #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-genobj.melt:1099:/ cppif.then");
-         MELT_LOCATION("warmelt-genobj.melt:1099:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1101:/ cppif.then");
+         MELT_LOCATION("warmelt-genobj.melt:1101:/ block");
           /*block*/{
            /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
             callcount;;
-           MELT_LOCATION("warmelt-genobj.melt:1099:/ apply");
+           MELT_LOCATION("warmelt-genobj.melt:1101:/ apply");
            /*apply*/{
             union meltparam_un argtab[4];
             memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-genobj.melt:1099:/ apply.arg");
+            MELT_LOCATION("warmelt-genobj.melt:1101:/ apply.arg");
             argtab[0].bp_cstring =  "compile2obj_initproc added symbol interning oisy";
-            MELT_LOCATION("warmelt-genobj.melt:1099:/ apply.arg");
+            MELT_LOCATION("warmelt-genobj.melt:1101:/ apply.arg");
             argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-            MELT_LOCATION("warmelt-genobj.melt:1099:/ apply.arg");
+            MELT_LOCATION("warmelt-genobj.melt:1101:/ apply.arg");
             argtab[2].bp_cstring =  "warmelt-genobj.melt";
-            MELT_LOCATION("warmelt-genobj.melt:1099:/ apply.arg");
-            argtab[3].bp_long = 1099;
+            MELT_LOCATION("warmelt-genobj.melt:1101:/ apply.arg");
+            argtab[3].bp_long = 1101;
             /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OISY__V16*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
             }
            ;
            /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
            /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:1099:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1101:/ clear");
            /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1099:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1101:/ clear");
            /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
           
           #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-genobj.melt:1099:/ cppif.else");
+          MELT_LOCATION("warmelt-genobj.melt:1101:/ cppif.else");
          /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
           #endif /*ENABLE_CHECKING*/
           ;
          /*_.LET___V15*/ curfptr[9] = /*_.IFCPP___V18*/ curfptr[17];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1095:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1097:/ clear");
          /*clear*/ /*_.OISY__V16*/ curfptr[11] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1095:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1097:/ clear");
          /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;}
         ;
         /*_.IFELSE___V14*/ curfptr[12] = /*_.LET___V15*/ curfptr[9];;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1094:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1096:/ clear");
         /*clear*/ /*_.LET___V15*/ curfptr[9] = 0 ;}
        ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1094:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1096:/ cond.else");
       
        /*_.IFELSE___V14*/ curfptr[12] = NULL;;
        }
       ;
       /*_.IFELSE___V8*/ curfptr[6] = /*_.IFELSE___V14*/ curfptr[12];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1087:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1089:/ clear");
       /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1087:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1089:/ clear");
       /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;}
      ;
      }
     ;
     /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V8*/ curfptr[6];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1082:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1084:/ clear");
     /*clear*/ /*_.ODAT__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1082:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1084:/ clear");
     /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1082:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1084:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1082:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1084:/ clear");
     /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;}
    ;
    /*_.IF___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1081:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1083:/ clear");
    /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-genobj.melt:1081:/ cond.else");
+ } else {MELT_LOCATION("warmelt-genobj.melt:1083:/ cond.else");
  
   /*_.IF___V3*/ curfptr[2] = NULL;;
   }
  ;
- MELT_LOCATION("warmelt-genobj.melt:1080:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:1080:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1082:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1080:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ clear");
  /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1080:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ clear");
  /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -7678,11 +7678,11 @@ melt_trace_start("GET_FREE_OBJLOCPTR", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1137:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ getarg");
  /*_.GCX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1137:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.NAM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])) != NULL);
@@ -7691,29 +7691,29 @@ melt_trace_start("GET_FREE_OBJLOCPTR", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1139:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1138:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1138:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1140:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1140:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1138:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1140:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1138:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1140:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1138:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1140:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1138:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1140:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1138:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1140:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1138)?(1138):__LINE__, __FUNCTION__);
+  (1140)?(1140):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -7724,23 +7724,23 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1138:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1138:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1138:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1140:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1140:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1142:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 0, "GNCX_OBJROUT");/*_.OROUT__V7*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1141:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1143:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 2, "GNCX_FREEPTRLIST");/*_.FREELI__V8*/ curfptr[7] = slot; };
   ;
@@ -7751,76 +7751,76 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
    melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[1])));;
   /*_#NOT__L4*/ curfnum[3] = 
    (!(/*_#IS_A__L3*/ curfnum[2]));;
-  MELT_LOCATION("warmelt-genobj.melt:1147:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1149:/ cond");
   /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1147:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1147:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1149:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1149:/ block");
    /*block*/{
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1148:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1148:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1150:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1150:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1148:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1150:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1148:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1150:/ apply.arg");
        argtab[0].bp_cstring =  "get_free_objlocptr bad orout";
-       MELT_LOCATION("warmelt-genobj.melt:1148:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1150:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-       MELT_LOCATION("warmelt-genobj.melt:1148:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1150:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1148:/ apply.arg");
-       argtab[3].bp_long = 1148;
+       MELT_LOCATION("warmelt-genobj.melt:1150:/ apply.arg");
+       argtab[3].bp_long = 1150;
        /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1148:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1150:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1148:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1150:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1148:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1150:/ cppif.else");
     /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     /*_.IF___V10*/ curfptr[9] = /*_.IFCPP___V11*/ curfptr[10];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1147:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1149:/ clear");
     /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1147:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1149:/ cond.else");
   
    /*_.IF___V10*/ curfptr[9] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1149:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1149:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1151:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1151:/ block");
    /*block*/{
     /*_#IS_A__L6*/ curfnum[4] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-genobj.melt:1149:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1151:/ cond");
     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1149:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1151:/ cond.then");
     /*_.IFELSE___V14*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1149:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1151:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1149:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1151:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1149:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1151:/ locexp");
        melt_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1149)?(1149):__LINE__, __FUNCTION__);
+  (1151)?(1151):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V14*/ curfptr[10] = 0 ;}
@@ -7831,84 +7831,84 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
     ;
     /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[10];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1149:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1149:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
     /*clear*/ /*_.IFELSE___V14*/ curfptr[10] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1149:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1151:/ cppif.else");
   /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_#IS_A__L7*/ curfnum[4] = 
    melt_is_instance_of((melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-genobj.melt:1150:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1152:/ cond");
   /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1150:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1150:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1152:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1152:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1151:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1153:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), 1, "OBL_OFF");/*_.OFFPFREE__V15*/ curfptr[10] = slot; };
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1152:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1152:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1154:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1154:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
         callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1152:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1154:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1152:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1154:/ apply.arg");
         argtab[0].bp_cstring =  "get_free_objlocptr pfree";
-        MELT_LOCATION("warmelt-genobj.melt:1152:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1154:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
-        MELT_LOCATION("warmelt-genobj.melt:1152:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1154:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1152:/ apply.arg");
-        argtab[3].bp_long = 1152;
+        MELT_LOCATION("warmelt-genobj.melt:1154:/ apply.arg");
+        argtab[3].bp_long = 1154;
         /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1152:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1154:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1152:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1154:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1152:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1154:/ cppif.else");
      /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1153:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1153:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1155:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1155:/ block");
       /*block*/{
        /*_#IS_INTEGERBOX__L11*/ curfnum[9] = 
         (melt_magic_discr((melt_ptr_t)(/*_.OFFPFREE__V15*/ curfptr[10])) == OBMAG_INT);;
-       MELT_LOCATION("warmelt-genobj.melt:1153:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1155:/ cond");
        /*cond*/ if (/*_#IS_INTEGERBOX__L11*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1153:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1155:/ cond.then");
        /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1153:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1155:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1153:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1155:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1153:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1155:/ locexp");
           melt_assert_failed(( "get_free_objlocptr check offpfree"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1153)?(1153):__LINE__, __FUNCTION__);
+  (1155)?(1155):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
@@ -7919,39 +7919,39 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
        ;
        /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1155:/ clear");
        /*clear*/ /*_#IS_INTEGERBOX__L11*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1155:/ clear");
        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1153:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1155:/ cppif.else");
      /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1155:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1155:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1157:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1157:/ block");
       /*block*/{
        /*_#GET_INT__L12*/ curfnum[9] = 
         (melt_get_int((melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8])));;
        /*_#NOT__L13*/ curfnum[12] = 
         (!(/*_#GET_INT__L12*/ curfnum[9]));;
-       MELT_LOCATION("warmelt-genobj.melt:1155:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1157:/ cond");
        /*cond*/ if (/*_#NOT__L13*/ curfnum[12]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1155:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1157:/ cond.then");
        /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1155:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1157:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1155:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1157:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1155:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1157:/ locexp");
           melt_assert_failed(( "check pfree not used"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1155)?(1155):__LINE__, __FUNCTION__);
+  (1157)?(1157):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
@@ -7962,93 +7962,93 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
        ;
        /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1155:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1157:/ clear");
        /*clear*/ /*_#GET_INT__L12*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1155:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1157:/ clear");
        /*clear*/ /*_#NOT__L13*/ curfnum[12] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1155:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1157:/ clear");
        /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1155:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1157:/ cppif.else");
      /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      /*_#GET_INT__L14*/ curfnum[9] = 
       (melt_get_int((melt_ptr_t)(/*_.OFFPFREE__V15*/ curfptr[10])));;
-     MELT_LOCATION("warmelt-genobj.melt:1156:/ compute");
+     MELT_LOCATION("warmelt-genobj.melt:1158:/ compute");
      /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L15*/ curfnum[12] = /*_#GET_INT__L14*/ curfnum[9];;
      /*_#LET___L9*/ curfnum[8] = /*_#SETQ___L15*/ curfnum[12];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
      /*clear*/ /*_.OFFPFREE__V15*/ curfptr[10] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
      /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
      /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
      /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
      /*clear*/ /*_#GET_INT__L14*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1151:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1153:/ clear");
      /*clear*/ /*_#SETQ___L15*/ curfnum[12] = 0 ;}
     ;
     /*_#IFELSE___L8*/ curfnum[7] = /*_#LET___L9*/ curfnum[8];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1150:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1152:/ clear");
     /*clear*/ /*_#LET___L9*/ curfnum[8] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1150:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1152:/ cond.else");
   
-   MELT_LOCATION("warmelt-genobj.melt:1150:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1152:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1157:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1159:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1157:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1159:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 4, "OBROUT_NBVAL");/*_.NBVALOROUT__V22*/ curfptr[20] = slot; };
      ;
      /*_#GET_INT__L17*/ curfnum[12] = 
       (melt_get_int((melt_ptr_t)(/*_.NBVALOROUT__V22*/ curfptr[20])));;
-     MELT_LOCATION("warmelt-genobj.melt:1158:/ compute");
+     MELT_LOCATION("warmelt-genobj.melt:1160:/ compute");
      /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L18*/ curfnum[8] = /*_#GET_INT__L17*/ curfnum[12];;
      /*_#LET___L16*/ curfnum[9] = /*_#SETQ___L18*/ curfnum[8];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1157:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1159:/ clear");
      /*clear*/ /*_.NBVALOROUT__V22*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1157:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1159:/ clear");
      /*clear*/ /*_#GET_INT__L17*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1157:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1159:/ clear");
      /*clear*/ /*_#SETQ___L18*/ curfnum[8] = 0 ;}
     ;
     /*_#IFELSE___L8*/ curfnum[7] = /*_#LET___L16*/ curfnum[9];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1150:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1152:/ clear");
     /*clear*/ /*_#LET___L16*/ curfnum[9] = 0 ;}
    ;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1160:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1160:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1162:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1162:/ block");
    /*block*/{
     /*_#I__L19*/ curfnum[12] = 
      ((/*_#OFF__L2*/ curfnum[0]) >= (0));;
-    MELT_LOCATION("warmelt-genobj.melt:1160:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1162:/ cond");
     /*cond*/ if (/*_#I__L19*/ curfnum[12]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1160:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1162:/ cond.then");
     /*_.IFELSE___V24*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1160:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1162:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1160:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1162:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1160:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1162:/ locexp");
        melt_assert_failed(( "check off"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1160)?(1160):__LINE__, __FUNCTION__);
+  (1162)?(1162):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V24*/ curfptr[15] = 0 ;}
@@ -8059,19 +8059,19 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
     ;
     /*_.IFCPP___V23*/ curfptr[10] = /*_.IFELSE___V24*/ curfptr[15];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1160:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1162:/ clear");
     /*clear*/ /*_#I__L19*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1160:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1162:/ clear");
     /*clear*/ /*_.IFELSE___V24*/ curfptr[15] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1160:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1162:/ cppif.else");
   /*_.IFCPP___V23*/ curfptr[10] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1161:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1163:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 4, "OBROUT_NBVAL");/*_.NBVALBOX__V26*/ curfptr[18] = slot; };
    ;
@@ -8081,47 +8081,47 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
    /*_#IS_A__L21*/ curfnum[9] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-genobj.melt:1165:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1167:/ cond");
    /*cond*/ if (/*_#IS_A__L21*/ curfnum[9]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1165:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1165:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1167:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1167:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1166:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1168:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1166:/ getslot");
+      MELT_LOCATION("warmelt-genobj.melt:1168:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMSTR__V29*/ curfptr[28] = slot; };
       ;
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1167:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1169:/ locexp");
        meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]),
   melt_string_str((melt_ptr_t)(/*_.NAMSTR__V29*/ curfptr[28])));}
        ;
        /*clear*/ /*_.IFELSE___V28*/ curfptr[15] = 0 ;}
       ;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1166:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1168:/ clear");
       /*clear*/ /*_.NAMSTR__V29*/ curfptr[28] = 0 ;}
      ;
      /*epilog*/}
     ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1165:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1167:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1165:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1167:/ block");
     /*block*/{
      /*_#IS_STRING__L22*/ curfnum[12] = 
       (melt_magic_discr((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-genobj.melt:1168:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1170:/ cond");
      /*cond*/ if (/*_#IS_STRING__L22*/ curfnum[12]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1168:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1168:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1170:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1170:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1169:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1171:/ locexp");
         meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]),
   melt_string_str((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])));}
         ;
@@ -8129,40 +8129,40 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
        ;
        /*epilog*/}
       ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1168:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1170:/ cond.else");
      
       /*_.IFELSE___V30*/ curfptr[28] = NULL;;
       }
      ;
      /*_.IFELSE___V28*/ curfptr[15] = /*_.IFELSE___V30*/ curfptr[28];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1165:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1167:/ clear");
      /*clear*/ /*_#IS_STRING__L22*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1165:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1167:/ clear");
      /*clear*/ /*_.IFELSE___V30*/ curfptr[28] = 0 ;}
     ;
     }
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1170:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1172:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]), ( "__V"));}
    ;
    /*_#I__L23*/ curfnum[12] = 
     ((/*_#NBVAL__L20*/ curfnum[8]) + (1));;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1171:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1173:/ locexp");
    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]), (/*_#I__L23*/ curfnum[12]));}
    ;
    /*_#I__L24*/ curfnum[23] = 
     ((/*_#NBVAL__L20*/ curfnum[8]) + (1));;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1172:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1174:/ locexp");
    melt_put_int((melt_ptr_t)(/*_.NBVALBOX__V26*/ curfptr[18]), (/*_#I__L24*/ curfnum[23]));}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1173:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1175:/ block");
    /*block*/{
     /*_.NAMSTR__V32*/ curfptr[31] = 
      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V27*/ curfptr[20]))));;
@@ -8170,29 +8170,29 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#NBVAL__L20*/ curfnum[8])));;
     /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = 
      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#OFF__L2*/ curfnum[0])));;
-    MELT_LOCATION("warmelt-genobj.melt:1175:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1177:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1175:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:1177:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])), (4), "CLASS_OBJLOCV");/*_.INST__V36*/ curfptr[35] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1175:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1177:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "OBV_TYPE");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1175:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1177:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBL_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.MAKE_INTEGERBOX__V34*/ curfptr[33]), "OBL_OFF");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1175:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1177:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBL_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.OROUT__V7*/ curfptr[6]), "OBL_PROC");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1175:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1177:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBL_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.NAMSTR__V32*/ curfptr[31]), "OBL_CNAME");
@@ -8201,117 +8201,117 @@ MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1181:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1181:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1183:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1183:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1181:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1183:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1181:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1183:/ apply.arg");
        argtab[0].bp_cstring =  "get_free_objlocptr new nloc";
-       MELT_LOCATION("warmelt-genobj.melt:1181:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1183:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24];
-       MELT_LOCATION("warmelt-genobj.melt:1181:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1183:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1181:/ apply.arg");
-       argtab[3].bp_long = 1181;
+       MELT_LOCATION("warmelt-genobj.melt:1183:/ apply.arg");
+       argtab[3].bp_long = 1183;
        /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLOC__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1181:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1183:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1181:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1183:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1181:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1183:/ cppif.else");
     /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1182:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1184:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = /*_.NLOC__V35*/ curfptr[34];;
-     MELT_LOCATION("warmelt-genobj.melt:1182:/ finalreturn");
+     MELT_LOCATION("warmelt-genobj.melt:1184:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
     /*_.LET___V31*/ curfptr[28] = /*_.RETURN___V39*/ curfptr[37];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1173:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1175:/ clear");
     /*clear*/ /*_.NAMSTR__V32*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1173:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1175:/ clear");
     /*clear*/ /*_.OLDNBVALBOX__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1173:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1175:/ clear");
     /*clear*/ /*_.MAKE_INTEGERBOX__V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1173:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1175:/ clear");
     /*clear*/ /*_.NLOC__V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1173:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1175:/ clear");
     /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1173:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1175:/ clear");
     /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;}
    ;
    /*_.LET___V25*/ curfptr[16] = /*_.LET___V31*/ curfptr[28];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_.NBVALBOX__V26*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_#NBVAL__L20*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_.NAMBUF__V27*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_#IS_A__L21*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_.IFELSE___V28*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_#I__L23*/ curfnum[12] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1161:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1163:/ clear");
    /*clear*/ /*_.LET___V31*/ curfptr[28] = 0 ;}
   ;
   /*_.LET___V6*/ curfptr[4] = /*_.LET___V25*/ curfptr[16];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.OROUT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.FREELI__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.PFREE__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_#OFF__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_#IFELSE___L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.IFCPP___V23*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1140:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1142:/ clear");
   /*clear*/ /*_.LET___V25*/ curfptr[16] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1137:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-genobj.melt:1137:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1139:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1137:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1137:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ clear");
  /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -8372,11 +8372,11 @@ melt_trace_start("GET_FREE_OBJLOCLONG", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1188:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ getarg");
  /*_.GCX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1188:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.NAM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])) != NULL);
@@ -8385,29 +8385,29 @@ melt_trace_start("GET_FREE_OBJLOCLONG", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1190:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1189:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1189:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1191:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1191:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1189:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1191:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1189:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1191:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1189:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1191:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1189:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1191:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1189:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1191:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1189)?(1189):__LINE__, __FUNCTION__);
+  (1191)?(1191):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -8418,23 +8418,23 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1189:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1191:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1189:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1191:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1189:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1191:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1190:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1192:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 0, "GNCX_OBJROUT");/*_.OROUT__V7*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1191:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1193:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 3, "GNCX_FREELONGLIST");/*_.FREELI__V8*/ curfptr[7] = slot; };
   ;
@@ -8443,25 +8443,25 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
   /*_#OFF__L2*/ curfnum[0] = -1;;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1195:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1195:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1197:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1197:/ block");
    /*block*/{
     /*_#IS_A__L3*/ curfnum[2] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-genobj.melt:1195:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1197:/ cond");
     /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1195:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1197:/ cond.then");
     /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1195:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1197:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1195:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1197:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1195:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1197:/ locexp");
        melt_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1195)?(1195):__LINE__, __FUNCTION__);
+  (1197)?(1197):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
@@ -8472,84 +8472,84 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
     ;
     /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1195:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
     /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1195:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1195:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1197:/ cppif.else");
   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_#IS_A__L4*/ curfnum[2] = 
    melt_is_instance_of((melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-genobj.melt:1196:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1198:/ cond");
   /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1196:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1196:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1198:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1198:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1197:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1199:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), 1, "OBL_OFF");/*_.OFFPFREE__V12*/ curfptr[10] = slot; };
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1198:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1198:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1200:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1200:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
         callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1198:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1200:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1198:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1200:/ apply.arg");
         argtab[0].bp_cstring =  "get_free_objloclong pfree";
-        MELT_LOCATION("warmelt-genobj.melt:1198:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1200:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-genobj.melt:1198:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1200:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1198:/ apply.arg");
-        argtab[3].bp_long = 1198;
+        MELT_LOCATION("warmelt-genobj.melt:1200:/ apply.arg");
+        argtab[3].bp_long = 1200;
         /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1198:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1200:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1198:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1200:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1198:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1200:/ cppif.else");
      /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1199:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1199:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1201:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1201:/ block");
       /*block*/{
        /*_#IS_INTEGERBOX__L8*/ curfnum[6] = 
         (melt_magic_discr((melt_ptr_t)(/*_.OFFPFREE__V12*/ curfptr[10])) == OBMAG_INT);;
-       MELT_LOCATION("warmelt-genobj.melt:1199:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1201:/ cond");
        /*cond*/ if (/*_#IS_INTEGERBOX__L8*/ curfnum[6]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1199:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1201:/ cond.then");
        /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1199:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1201:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1199:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1201:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1199:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1201:/ locexp");
           melt_assert_failed(( "check offpfree"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1199)?(1199):__LINE__, __FUNCTION__);
+  (1201)?(1201):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
@@ -8560,39 +8560,39 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
        ;
        /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1201:/ clear");
        /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1201:/ clear");
        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1199:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1201:/ cppif.else");
      /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1201:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1201:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1203:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1203:/ block");
       /*block*/{
        /*_#GET_INT__L9*/ curfnum[6] = 
         (melt_get_int((melt_ptr_t)(/*_.PFREE__V9*/ curfptr[8])));;
        /*_#NOT__L10*/ curfnum[9] = 
         (!(/*_#GET_INT__L9*/ curfnum[6]));;
-       MELT_LOCATION("warmelt-genobj.melt:1201:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1203:/ cond");
        /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1201:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1203:/ cond.then");
        /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1201:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1203:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1201:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1203:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1201:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1203:/ locexp");
           melt_assert_failed(( "check pfree not used"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1201)?(1201):__LINE__, __FUNCTION__);
+  (1203)?(1203):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
@@ -8603,73 +8603,73 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
        ;
        /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1201:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
        /*clear*/ /*_#GET_INT__L9*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1201:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
        /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1201:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
        /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1201:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1203:/ cppif.else");
      /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      /*_#GET_INT__L11*/ curfnum[6] = 
       (melt_get_int((melt_ptr_t)(/*_.OFFPFREE__V12*/ curfptr[10])));;
-     MELT_LOCATION("warmelt-genobj.melt:1202:/ compute");
+     MELT_LOCATION("warmelt-genobj.melt:1204:/ compute");
      /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L12*/ curfnum[9] = /*_#GET_INT__L11*/ curfnum[6];;
      /*_#LET___L6*/ curfnum[5] = /*_#SETQ___L12*/ curfnum[9];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
      /*clear*/ /*_.OFFPFREE__V12*/ curfptr[10] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
      /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
      /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
      /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
      /*clear*/ /*_#GET_INT__L11*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1197:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1199:/ clear");
      /*clear*/ /*_#SETQ___L12*/ curfnum[9] = 0 ;}
     ;
     /*_#IFELSE___L5*/ curfnum[4] = /*_#LET___L6*/ curfnum[5];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1196:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1198:/ clear");
     /*clear*/ /*_#LET___L6*/ curfnum[5] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1196:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1198:/ cond.else");
   
-   MELT_LOCATION("warmelt-genobj.melt:1196:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1198:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1203:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1205:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1203:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1205:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 5, "OBROUT_NBLONG");/*_.NBLONGOROUT__V19*/ curfptr[17] = slot; };
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1204:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1204:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1206:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1206:/ block");
       /*block*/{
        /*_#IS_INTEGERBOX__L14*/ curfnum[9] = 
         (melt_magic_discr((melt_ptr_t)(/*_.NBLONGOROUT__V19*/ curfptr[17])) == OBMAG_INT);;
-       MELT_LOCATION("warmelt-genobj.melt:1204:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1206:/ cond");
        /*cond*/ if (/*_#IS_INTEGERBOX__L14*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1204:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1206:/ cond.then");
        /*_.IFELSE___V21*/ curfptr[12] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1204:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1206:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1204:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1206:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1204:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1206:/ locexp");
           melt_assert_failed(( "check nblongorout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1204)?(1204):__LINE__, __FUNCTION__);
+  (1206)?(1206):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V21*/ curfptr[12] = 0 ;}
@@ -8680,59 +8680,59 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
        ;
        /*_.IFCPP___V20*/ curfptr[10] = /*_.IFELSE___V21*/ curfptr[12];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1204:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1206:/ clear");
        /*clear*/ /*_#IS_INTEGERBOX__L14*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1204:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1206:/ clear");
        /*clear*/ /*_.IFELSE___V21*/ curfptr[12] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1204:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1206:/ cppif.else");
      /*_.IFCPP___V20*/ curfptr[10] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      /*_#GET_INT__L15*/ curfnum[5] = 
       (melt_get_int((melt_ptr_t)(/*_.NBLONGOROUT__V19*/ curfptr[17])));;
-     MELT_LOCATION("warmelt-genobj.melt:1205:/ compute");
+     MELT_LOCATION("warmelt-genobj.melt:1207:/ compute");
      /*_#OFF__L2*/ curfnum[0] = /*_#SETQ___L16*/ curfnum[9] = /*_#GET_INT__L15*/ curfnum[5];;
      /*_#LET___L13*/ curfnum[6] = /*_#SETQ___L16*/ curfnum[9];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1205:/ clear");
      /*clear*/ /*_.NBLONGOROUT__V19*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1205:/ clear");
      /*clear*/ /*_.IFCPP___V20*/ curfptr[10] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1205:/ clear");
      /*clear*/ /*_#GET_INT__L15*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1203:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1205:/ clear");
      /*clear*/ /*_#SETQ___L16*/ curfnum[9] = 0 ;}
     ;
     /*_#IFELSE___L5*/ curfnum[4] = /*_#LET___L13*/ curfnum[6];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1196:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1198:/ clear");
     /*clear*/ /*_#LET___L13*/ curfnum[6] = 0 ;}
    ;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1206:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1206:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1208:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1208:/ block");
    /*block*/{
     /*_#I__L17*/ curfnum[5] = 
      ((/*_#OFF__L2*/ curfnum[0]) >= (0));;
-    MELT_LOCATION("warmelt-genobj.melt:1206:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1208:/ cond");
     /*cond*/ if (/*_#I__L17*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1206:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1208:/ cond.then");
     /*_.IFELSE___V23*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1206:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1208:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1206:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1208:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1206:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1208:/ locexp");
        melt_assert_failed(( "check off"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1206)?(1206):__LINE__, __FUNCTION__);
+  (1208)?(1208):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;}
@@ -8743,19 +8743,19 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
     ;
     /*_.IFCPP___V22*/ curfptr[13] = /*_.IFELSE___V23*/ curfptr[15];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1206:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1208:/ clear");
     /*clear*/ /*_#I__L17*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1206:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1208:/ clear");
     /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1206:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1208:/ cppif.else");
   /*_.IFCPP___V22*/ curfptr[13] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1207:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1209:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V7*/ curfptr[6]), 5, "OBROUT_NBLONG");/*_.NBLONGBOX__V25*/ curfptr[17] = slot; };
    ;
@@ -8765,43 +8765,43 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
    /*_#IS_A__L19*/ curfnum[6] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-genobj.melt:1211:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1213:/ cond");
    /*cond*/ if (/*_#IS_A__L19*/ curfnum[6]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1211:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1211:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1213:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1213:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1212:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1214:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[27] = slot; };
      ;
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1212:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1214:/ locexp");
       meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]),
   melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[27])));}
       ;
       /*clear*/ /*_.IFELSE___V27*/ curfptr[15] = 0 ;}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1211:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1213:/ clear");
      /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1211:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1213:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1211:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1213:/ block");
     /*block*/{
      /*_#IS_STRING__L20*/ curfnum[5] = 
       (melt_magic_discr((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-genobj.melt:1213:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1215:/ cond");
      /*cond*/ if (/*_#IS_STRING__L20*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1213:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1213:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1215:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1215:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1214:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1216:/ locexp");
         meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]),
   melt_string_str((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])));}
         ;
@@ -8809,68 +8809,68 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
        ;
        /*epilog*/}
       ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1213:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1215:/ cond.else");
      
       /*_.IFELSE___V29*/ curfptr[27] = NULL;;
       }
      ;
      /*_.IFELSE___V27*/ curfptr[15] = /*_.IFELSE___V29*/ curfptr[27];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1211:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1213:/ clear");
      /*clear*/ /*_#IS_STRING__L20*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1211:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1213:/ clear");
      /*clear*/ /*_.IFELSE___V29*/ curfptr[27] = 0 ;}
     ;
     }
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1216:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1218:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]), ( "__L"));}
    ;
    /*_#I__L21*/ curfnum[5] = 
     ((/*_#NBLONG__L18*/ curfnum[9]) + (1));;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1217:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1219:/ locexp");
    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]), (/*_#I__L21*/ curfnum[5]));}
    ;
    /*_#I__L22*/ curfnum[21] = 
     ((/*_#NBLONG__L18*/ curfnum[9]) + (1));;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1218:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1220:/ locexp");
    melt_put_int((melt_ptr_t)(/*_.NBLONGBOX__V25*/ curfptr[17]), (/*_#I__L22*/ curfnum[21]));}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1219:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1221:/ block");
    /*block*/{
     /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = 
      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#OFF__L2*/ curfnum[0])));;
     /*_.STRBUF2STRING__V32*/ curfptr[31] = 
      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V26*/ curfptr[10]))));;
-    MELT_LOCATION("warmelt-genobj.melt:1219:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1221:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1219:/ rawallocobj");
+     MELT_LOCATION("warmelt-genobj.melt:1221:/ rawallocobj");
      /*rawallocobj*/ { melt_ptr_t newobj = 0;
       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[2])), (4), "CLASS_OBJLOCV");/*_.INST__V34*/ curfptr[33] =
       newobj; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1219:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1221:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), ((/*!CTYPE_LONG*/ curfrout->tabval[6])), "OBV_TYPE");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1219:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1221:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBL_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.MAKE_INTEGERBOX__V31*/ curfptr[30]), "OBL_OFF");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1219:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1221:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBL_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.OROUT__V7*/ curfptr[6]), "OBL_PROC");
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1219:/ putslot");
+     MELT_LOCATION("warmelt-genobj.melt:1221:/ putslot");
      /*putslot*/
      melt_assertmsg("putslot checkobj @OBL_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.STRBUF2STRING__V32*/ curfptr[31]), "OBL_CNAME");
@@ -8879,109 +8879,109 @@ MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1224:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1224:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1226:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1226:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L23*/ curfnum[22] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1224:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1226:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1224:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1226:/ apply.arg");
        argtab[0].bp_cstring =  "get_free_objloclong new nloc";
-       MELT_LOCATION("warmelt-genobj.melt:1224:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1226:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[22];
-       MELT_LOCATION("warmelt-genobj.melt:1224:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1226:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1224:/ apply.arg");
-       argtab[3].bp_long = 1224;
+       MELT_LOCATION("warmelt-genobj.melt:1226:/ apply.arg");
+       argtab[3].bp_long = 1226;
        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NLOC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1224:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1226:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[22] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1224:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1226:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1224:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1226:/ cppif.else");
     /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1225:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1227:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = /*_.NLOC__V33*/ curfptr[32];;
-     MELT_LOCATION("warmelt-genobj.melt:1225:/ finalreturn");
+     MELT_LOCATION("warmelt-genobj.melt:1227:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
     /*_.LET___V30*/ curfptr[27] = /*_.RETURN___V37*/ curfptr[35];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1219:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1221:/ clear");
     /*clear*/ /*_.MAKE_INTEGERBOX__V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1219:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1221:/ clear");
     /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1219:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1221:/ clear");
     /*clear*/ /*_.NLOC__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1219:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1221:/ clear");
     /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1219:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1221:/ clear");
     /*clear*/ /*_.RETURN___V37*/ curfptr[35] = 0 ;}
    ;
    /*_.LET___V24*/ curfptr[12] = /*_.LET___V30*/ curfptr[27];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_.NBLONGBOX__V25*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_#NBLONG__L18*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_.NAMBUF__V26*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_#IS_A__L19*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_.IFELSE___V27*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_#I__L21*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1207:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1209:/ clear");
    /*clear*/ /*_.LET___V30*/ curfptr[27] = 0 ;}
   ;
   /*_.LET___V6*/ curfptr[4] = /*_.LET___V24*/ curfptr[12];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_.OROUT__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_.FREELI__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_.PFREE__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_#OFF__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_#IFELSE___L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_.IFCPP___V22*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1192:/ clear");
   /*clear*/ /*_.LET___V24*/ curfptr[12] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1188:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-genobj.melt:1188:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1190:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1188:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1188:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ clear");
  /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -9042,18 +9042,18 @@ melt_trace_start("GET_FREE_OBJLOCTYPED", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1229:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ getarg");
  /*_.GCX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1229:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.NAM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.NAM__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:1229:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.CTYP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.CTYP__V4*/ curfptr[3])) != NULL);
@@ -9062,97 +9062,97 @@ melt_trace_start("GET_FREE_OBJLOCTYPED", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1231:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1230:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1230:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1232:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1232:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1230:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1232:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1230:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1232:/ apply.arg");
     argtab[0].bp_cstring =  "get_free_objloctyped nam";
-    MELT_LOCATION("warmelt-genobj.melt:1230:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1232:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1230:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1232:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1230:/ apply.arg");
-    argtab[3].bp_long = 1230;
+    MELT_LOCATION("warmelt-genobj.melt:1232:/ apply.arg");
+    argtab[3].bp_long = 1232;
     /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1230:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1232:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1230:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1232:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1230:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1232:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1231:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1231:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1233:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1233:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1231:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1233:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1231:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1233:/ apply.arg");
     argtab[0].bp_cstring =  "get_free_objloctyped ctyp";
-    MELT_LOCATION("warmelt-genobj.melt:1231:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1233:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1231:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1233:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1231:/ apply.arg");
-    argtab[3].bp_long = 1231;
+    MELT_LOCATION("warmelt-genobj.melt:1233:/ apply.arg");
+    argtab[3].bp_long = 1233;
     /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1233:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1233:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1231:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1233:/ cppif.else");
  /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1232:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1232:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1234:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1234:/ block");
   /*block*/{
    /*_#IS_A__L3*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1232:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1234:/ cond");
    /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1232:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1234:/ cond.then");
    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1232:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1234:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1232:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1234:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1232:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1234:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1232)?(1232):__LINE__, __FUNCTION__);
+  (1234)?(1234):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
@@ -9163,37 +9163,37 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
    ;
    /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1232:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1234:/ clear");
    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1232:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1234:/ clear");
    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1232:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1234:/ cppif.else");
  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1233:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1233:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1235:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1235:/ block");
   /*block*/{
    /*_#IS_A__L4*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:1233:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1235:/ cond");
    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1233:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1235:/ cond.then");
    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1233:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1235:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1233:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1235:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1233:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1235:/ locexp");
       melt_assert_failed(( "check ctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1233)?(1233):__LINE__, __FUNCTION__);
+  (1235)?(1235):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
@@ -9204,207 +9204,207 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
    ;
    /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1233:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1235:/ clear");
    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1233:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1235:/ clear");
    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1233:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1235:/ cppif.else");
  /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  /*_#__L5*/ curfnum[0] = 
   ((/*_.CTYP__V4*/ curfptr[3]) == ((/*!CTYPE_LONG*/ curfrout->tabval[3])));;
- MELT_LOCATION("warmelt-genobj.melt:1234:/ cond");
+ MELT_LOCATION("warmelt-genobj.melt:1236:/ cond");
  /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:1234:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:1234:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1236:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:1236:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1235:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1237:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1235:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1237:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAM__V3*/ curfptr[2];
     /*_.GET_FREE_OBJLOCLONG__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCLONG*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1235:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1237:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_FREE_OBJLOCLONG__V14*/ curfptr[13];;
-    MELT_LOCATION("warmelt-genobj.melt:1235:/ finalreturn");
+    MELT_LOCATION("warmelt-genobj.melt:1237:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.IFELSE___V13*/ curfptr[11] = /*_.RETURN___V15*/ curfptr[14];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1234:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
    /*clear*/ /*_.GET_FREE_OBJLOCLONG__V14*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1234:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
    /*clear*/ /*_.RETURN___V15*/ curfptr[14] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-genobj.melt:1234:/ cond.else");
+ } else {MELT_LOCATION("warmelt-genobj.melt:1236:/ cond.else");
  
-  MELT_LOCATION("warmelt-genobj.melt:1234:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1236:/ block");
   /*block*/{
    /*_#__L6*/ curfnum[5] = 
     ((/*_.CTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-genobj.melt:1236:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1238:/ cond");
    /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1236:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1236:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1238:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1238:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1237:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1239:/ apply");
      /*apply*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1237:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1239:/ apply.arg");
       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAM__V3*/ curfptr[2];
       /*_.GET_FREE_OBJLOCPTR__V17*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
       }
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1237:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1239:/ block");
      /*block*/{
       /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_FREE_OBJLOCPTR__V17*/ curfptr[14];;
-      MELT_LOCATION("warmelt-genobj.melt:1237:/ finalreturn");
+      MELT_LOCATION("warmelt-genobj.melt:1239:/ finalreturn");
       ;
       /*finalret*/ goto labend_rout ;}
      ;
      /*_.IFELSE___V16*/ curfptr[13] = /*_.RETURN___V18*/ curfptr[17];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1238:/ clear");
      /*clear*/ /*_.GET_FREE_OBJLOCPTR__V17*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1238:/ clear");
      /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1236:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1238:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1236:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1238:/ block");
     /*block*/{
      /*_#__L7*/ curfnum[6] = 
       ((/*_.CTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VOID*/ curfrout->tabval[7])));;
-     MELT_LOCATION("warmelt-genobj.melt:1239:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1241:/ cond");
      /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1239:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1239:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1241:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1241:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1240:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1242:/ block");
        /*block*/{
         /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-        MELT_LOCATION("warmelt-genobj.melt:1240:/ finalreturn");
+        MELT_LOCATION("warmelt-genobj.melt:1242:/ finalreturn");
         ;
         /*finalret*/ goto labend_rout ;}
        ;
        /*_.IFELSE___V19*/ curfptr[14] = /*_.RETURN___V20*/ curfptr[17];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1239:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1241:/ clear");
        /*clear*/ /*_.RETURN___V20*/ curfptr[17] = 0 ;}
       ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1239:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1241:/ cond.else");
      
-      MELT_LOCATION("warmelt-genobj.melt:1239:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1241:/ block");
       /*block*/{
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1242:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1242:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1244:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1244:/ block");
         /*block*/{
          /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
           callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:1242:/ apply");
+         MELT_LOCATION("warmelt-genobj.melt:1244:/ apply");
          /*apply*/{
           union meltparam_un argtab[4];
           memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:1242:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1244:/ apply.arg");
           argtab[0].bp_cstring =  "getfreeobjloctyped nam";
-          MELT_LOCATION("warmelt-genobj.melt:1242:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1244:/ apply.arg");
           argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-          MELT_LOCATION("warmelt-genobj.melt:1242:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1244:/ apply.arg");
           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:1242:/ apply.arg");
-          argtab[3].bp_long = 1242;
+          MELT_LOCATION("warmelt-genobj.melt:1244:/ apply.arg");
+          argtab[3].bp_long = 1244;
           /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NAM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
           }
          ;
          /*_.IFCPP___V21*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1242:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
          /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1242:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
          /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1242:/ cppif.else");
+        MELT_LOCATION("warmelt-genobj.melt:1244:/ cppif.else");
        /*_.IFCPP___V21*/ curfptr[17] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1243:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1243:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1245:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1245:/ block");
         /*block*/{
          /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
           callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:1243:/ apply");
+         MELT_LOCATION("warmelt-genobj.melt:1245:/ apply");
          /*apply*/{
           union meltparam_un argtab[4];
           memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:1243:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1245:/ apply.arg");
           argtab[0].bp_cstring =  "getfreeobjloctyped ctyp";
-          MELT_LOCATION("warmelt-genobj.melt:1243:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1245:/ apply.arg");
           argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
-          MELT_LOCATION("warmelt-genobj.melt:1243:/ apply.arg");
+          MELT_LOCATION("warmelt-genobj.melt:1245:/ apply.arg");
           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:1243:/ apply.arg");
-          argtab[3].bp_long = 1243;
+          MELT_LOCATION("warmelt-genobj.melt:1245:/ apply.arg");
+          argtab[3].bp_long = 1245;
           /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
           }
          ;
          /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1243:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1245:/ clear");
          /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1243:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1245:/ clear");
          /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1243:/ cppif.else");
+        MELT_LOCATION("warmelt-genobj.melt:1245:/ cppif.else");
        /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
-       MELT_LOCATION("warmelt-genobj.melt:1244:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1246:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ getslot");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ getslot");
         { melt_ptr_t slot=0;
          melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 4, "GNCX_FREEOTHERMAPS");/*_.FREEMAP__V26*/ curfptr[25] = slot; };
         ;
-        MELT_LOCATION("warmelt-genobj.melt:1245:/ getslot");
+        MELT_LOCATION("warmelt-genobj.melt:1247:/ getslot");
         { melt_ptr_t slot=0;
          melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V2*/ curfptr[1]), 0, "GNCX_OBJROUT");/*_.OROUT__V27*/ curfptr[26] = slot; };
         ;
         /*_#OFF__L10*/ curfnum[7] = -1;;
         
         #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:1248:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:1248:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1250:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:1250:/ block");
          /*block*/{
           /*_#IS_MAPOBJECT__L11*/ curfnum[10] = 
            (melt_magic_discr((melt_ptr_t)(/*_.FREEMAP__V26*/ curfptr[25])) == OBMAG_MAPOBJECTS);;
-          MELT_LOCATION("warmelt-genobj.melt:1248:/ cond");
+          MELT_LOCATION("warmelt-genobj.melt:1250:/ cond");
           /*cond*/ if (/*_#IS_MAPOBJECT__L11*/ curfnum[10]) /*then*/ {
-          MELT_LOCATION("warmelt-genobj.melt:1248:/ cond.then");
+          MELT_LOCATION("warmelt-genobj.melt:1250:/ cond.then");
           /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-genobj.melt:1248:/ cond.else");
+          } else {MELT_LOCATION("warmelt-genobj.melt:1250:/ cond.else");
           
-           MELT_LOCATION("warmelt-genobj.melt:1248:/ block");
+           MELT_LOCATION("warmelt-genobj.melt:1250:/ block");
            /*block*/{
             /*block*/{
              
              {
-             MELT_LOCATION("warmelt-genobj.melt:1248:/ locexp");
+             MELT_LOCATION("warmelt-genobj.melt:1250:/ locexp");
              melt_assert_failed(( "check freemap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1248)?(1248):__LINE__, __FUNCTION__);
+  (1250)?(1250):__LINE__, __FUNCTION__);
 ;}
              ;
              /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
@@ -9415,37 +9415,37 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
           ;
           /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1248:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1250:/ clear");
           /*clear*/ /*_#IS_MAPOBJECT__L11*/ curfnum[10] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1248:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1250:/ clear");
           /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
          
          #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:1248:/ cppif.else");
+         MELT_LOCATION("warmelt-genobj.melt:1250:/ cppif.else");
         /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
          #endif /*ENABLE_CHECKING*/
          ;
         
         #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:1249:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:1249:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1251:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:1251:/ block");
          /*block*/{
           /*_#IS_A__L12*/ curfnum[10] = 
            melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[8])));;
-          MELT_LOCATION("warmelt-genobj.melt:1249:/ cond");
+          MELT_LOCATION("warmelt-genobj.melt:1251:/ cond");
           /*cond*/ if (/*_#IS_A__L12*/ curfnum[10]) /*then*/ {
-          MELT_LOCATION("warmelt-genobj.melt:1249:/ cond.then");
+          MELT_LOCATION("warmelt-genobj.melt:1251:/ cond.then");
           /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-genobj.melt:1249:/ cond.else");
+          } else {MELT_LOCATION("warmelt-genobj.melt:1251:/ cond.else");
           
-           MELT_LOCATION("warmelt-genobj.melt:1249:/ block");
+           MELT_LOCATION("warmelt-genobj.melt:1251:/ block");
            /*block*/{
             /*block*/{
              
              {
-             MELT_LOCATION("warmelt-genobj.melt:1249:/ locexp");
+             MELT_LOCATION("warmelt-genobj.melt:1251:/ locexp");
              melt_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1249)?(1249):__LINE__, __FUNCTION__);
+  (1251)?(1251):__LINE__, __FUNCTION__);
 ;}
              ;
              /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
@@ -9456,117 +9456,117 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
           ;
           /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1249:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1251:/ clear");
           /*clear*/ /*_#IS_A__L12*/ curfnum[10] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1249:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1251:/ clear");
           /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
          
          #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:1249:/ cppif.else");
+         MELT_LOCATION("warmelt-genobj.melt:1251:/ cppif.else");
         /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
          #endif /*ENABLE_CHECKING*/
          ;
-        MELT_LOCATION("warmelt-genobj.melt:1250:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1252:/ block");
         /*block*/{
          /*_.FREELI__V33*/ curfptr[32] = 
           melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.FREEMAP__V26*/ curfptr[25]), (meltobject_ptr_t)(/*_.CTYP__V4*/ curfptr[3]));;
          /*_#NULL__L13*/ curfnum[10] = 
           ((/*_.FREELI__V33*/ curfptr[32]) == NULL);;
-         MELT_LOCATION("warmelt-genobj.melt:1251:/ cond");
+         MELT_LOCATION("warmelt-genobj.melt:1253:/ cond");
          /*cond*/ if (/*_#NULL__L13*/ curfnum[10]) /*then*/ {
-         MELT_LOCATION("warmelt-genobj.melt:1251:/ cond.then");
-         MELT_LOCATION("warmelt-genobj.melt:1251:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1253:/ cond.then");
+         MELT_LOCATION("warmelt-genobj.melt:1253:/ block");
           /*block*/{
            /*_.MAKE_LIST__V34*/ curfptr[33] = 
             (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-           MELT_LOCATION("warmelt-genobj.melt:1253:/ compute");
+           MELT_LOCATION("warmelt-genobj.melt:1255:/ compute");
            /*_.FREELI__V33*/ curfptr[32] = /*_.SETQ___V35*/ curfptr[34] = /*_.MAKE_LIST__V34*/ curfptr[33];;
            
            {
-           MELT_LOCATION("warmelt-genobj.melt:1254:/ locexp");
+           MELT_LOCATION("warmelt-genobj.melt:1256:/ locexp");
            meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.FREEMAP__V26*/ curfptr[25]), 
 			   (meltobject_ptr_t) (/*_.CTYP__V4*/ curfptr[3]), 
 			   (melt_ptr_t)(/*_.FREELI__V33*/ curfptr[32]));}
            ;
-           MELT_LOCATION("warmelt-genobj.melt:1252:/ block");
+           MELT_LOCATION("warmelt-genobj.melt:1254:/ block");
            /*block*/{}
            ;
            /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:1251:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1253:/ clear");
            /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[33] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1251:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1253:/ clear");
            /*clear*/ /*_.SETQ___V35*/ curfptr[34] = 0 ;}
           ;
          } /*noelse*/
          ;
-         MELT_LOCATION("warmelt-genobj.melt:1255:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1257:/ block");
          /*block*/{
           /*_.PFREE__V37*/ curfptr[34] = 
            (meltgc_popfirst_list((melt_ptr_t)(/*_.FREELI__V33*/ curfptr[32])));;
           /*_#IS_A__L14*/ curfnum[13] = 
            melt_is_instance_of((melt_ptr_t)(/*_.PFREE__V37*/ curfptr[34]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[10])));;
-          MELT_LOCATION("warmelt-genobj.melt:1256:/ cond");
+          MELT_LOCATION("warmelt-genobj.melt:1258:/ cond");
           /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ {
-          MELT_LOCATION("warmelt-genobj.melt:1256:/ cond.then");
-          MELT_LOCATION("warmelt-genobj.melt:1256:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1258:/ cond.then");
+          MELT_LOCATION("warmelt-genobj.melt:1258:/ block");
            /*block*/{
             
             #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-genobj.melt:1258:/ cppif.then");
-            MELT_LOCATION("warmelt-genobj.melt:1258:/ block");
+             MELT_LOCATION("warmelt-genobj.melt:1260:/ cppif.then");
+            MELT_LOCATION("warmelt-genobj.melt:1260:/ block");
              /*block*/{
               /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 
                callcount;;
-              MELT_LOCATION("warmelt-genobj.melt:1258:/ apply");
+              MELT_LOCATION("warmelt-genobj.melt:1260:/ apply");
               /*apply*/{
                union meltparam_un argtab[4];
                memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-genobj.melt:1258:/ apply.arg");
+               MELT_LOCATION("warmelt-genobj.melt:1260:/ apply.arg");
                argtab[0].bp_cstring =  "get_free_objloctyped pfree";
-               MELT_LOCATION("warmelt-genobj.melt:1258:/ apply.arg");
+               MELT_LOCATION("warmelt-genobj.melt:1260:/ apply.arg");
                argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15];
-               MELT_LOCATION("warmelt-genobj.melt:1258:/ apply.arg");
+               MELT_LOCATION("warmelt-genobj.melt:1260:/ apply.arg");
                argtab[2].bp_cstring =  "warmelt-genobj.melt";
-               MELT_LOCATION("warmelt-genobj.melt:1258:/ apply.arg");
-               argtab[3].bp_long = 1258;
+               MELT_LOCATION("warmelt-genobj.melt:1260:/ apply.arg");
+               argtab[3].bp_long = 1260;
                /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PFREE__V37*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
                }
               ;
               /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
               /*epilog*/
-              MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1260:/ clear");
               /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ;
-              MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1260:/ clear");
               /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
              
              #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-genobj.melt:1258:/ cppif.else");
+             MELT_LOCATION("warmelt-genobj.melt:1260:/ cppif.else");
             /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
              #endif /*ENABLE_CHECKING*/
              ;
             
             #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-genobj.melt:1259:/ cppif.then");
-            MELT_LOCATION("warmelt-genobj.melt:1259:/ block");
+             MELT_LOCATION("warmelt-genobj.melt:1261:/ cppif.then");
+            MELT_LOCATION("warmelt-genobj.melt:1261:/ block");
              /*block*/{
               /*_#GET_INT__L17*/ curfnum[15] = 
                (melt_get_int((melt_ptr_t)(/*_.PFREE__V37*/ curfptr[34])));;
               /*_#NOT__L18*/ curfnum[17] = 
                (!(/*_#GET_INT__L17*/ curfnum[15]));;
-              MELT_LOCATION("warmelt-genobj.melt:1259:/ cond");
+              MELT_LOCATION("warmelt-genobj.melt:1261:/ cond");
               /*cond*/ if (/*_#NOT__L18*/ curfnum[17]) /*then*/ {
-              MELT_LOCATION("warmelt-genobj.melt:1259:/ cond.then");
+              MELT_LOCATION("warmelt-genobj.melt:1261:/ cond.then");
               /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
-              } else {MELT_LOCATION("warmelt-genobj.melt:1259:/ cond.else");
+              } else {MELT_LOCATION("warmelt-genobj.melt:1261:/ cond.else");
               
-               MELT_LOCATION("warmelt-genobj.melt:1259:/ block");
+               MELT_LOCATION("warmelt-genobj.melt:1261:/ block");
                /*block*/{
                 /*block*/{
                  
                  {
-                 MELT_LOCATION("warmelt-genobj.melt:1259:/ locexp");
+                 MELT_LOCATION("warmelt-genobj.melt:1261:/ locexp");
                  melt_assert_failed(( "check pfree was unused"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1259)?(1259):__LINE__, __FUNCTION__);
+  (1261)?(1261):__LINE__, __FUNCTION__);
 ;}
                  ;
                  /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
@@ -9577,73 +9577,73 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
               ;
               /*_.IFCPP___V40*/ curfptr[38] = /*_.IFELSE___V41*/ curfptr[40];;
               /*epilog*/
-              MELT_LOCATION("warmelt-genobj.melt:1259:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1261:/ clear");
               /*clear*/ /*_#GET_INT__L17*/ curfnum[15] = 0 ;
-              MELT_LOCATION("warmelt-genobj.melt:1259:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1261:/ clear");
               /*clear*/ /*_#NOT__L18*/ curfnum[17] = 0 ;
-              MELT_LOCATION("warmelt-genobj.melt:1259:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1261:/ clear");
               /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
              
              #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-genobj.melt:1259:/ cppif.else");
+             MELT_LOCATION("warmelt-genobj.melt:1261:/ cppif.else");
             /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
              #endif /*ENABLE_CHECKING*/
              ;
-            MELT_LOCATION("warmelt-genobj.melt:1260:/ getslot");
+            MELT_LOCATION("warmelt-genobj.melt:1262:/ getslot");
             { melt_ptr_t slot=0;
              melt_object_get_field(slot,(melt_ptr_t)(/*_.PFREE__V37*/ curfptr[34]), 1, "OBL_OFF");/*_.OBL_OFF__V42*/ curfptr[40] = slot; };
             ;
             /*_#GET_INT__L19*/ curfnum[15] = 
              (melt_get_int((melt_ptr_t)(/*_.OBL_OFF__V42*/ curfptr[40])));;
-            MELT_LOCATION("warmelt-genobj.melt:1260:/ compute");
+            MELT_LOCATION("warmelt-genobj.melt:1262:/ compute");
             /*_#OFF__L10*/ curfnum[7] = /*_#SETQ___L20*/ curfnum[17] = /*_#GET_INT__L19*/ curfnum[15];;
-            MELT_LOCATION("warmelt-genobj.melt:1257:/ block");
+            MELT_LOCATION("warmelt-genobj.melt:1259:/ block");
             /*block*/{
              /*_#PROGN___L21*/ curfnum[20] = /*_#SETQ___L20*/ curfnum[17];;}
             ;
             /*_#IFELSE___L15*/ curfnum[14] = /*_#PROGN___L21*/ curfnum[20];;
             /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_.OBL_OFF__V42*/ curfptr[40] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_#GET_INT__L19*/ curfnum[15] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_#SETQ___L20*/ curfnum[17] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_#PROGN___L21*/ curfnum[20] = 0 ;}
            ;
-          } else {MELT_LOCATION("warmelt-genobj.melt:1256:/ cond.else");
+          } else {MELT_LOCATION("warmelt-genobj.melt:1258:/ cond.else");
           
-           MELT_LOCATION("warmelt-genobj.melt:1256:/ block");
+           MELT_LOCATION("warmelt-genobj.melt:1258:/ block");
            /*block*/{
-            MELT_LOCATION("warmelt-genobj.melt:1262:/ getslot");
+            MELT_LOCATION("warmelt-genobj.melt:1264:/ getslot");
             { melt_ptr_t slot=0;
              melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V27*/ curfptr[26]), 6, "OBROUT_OTHERS");/*_.OBROUT_OTHERS__V43*/ curfptr[37] = slot; };
             ;
             /*_#LIST_LENGTH__L22*/ curfnum[15] = 
              (melt_list_length((melt_ptr_t)(/*_.OBROUT_OTHERS__V43*/ curfptr[37])));;
-            MELT_LOCATION("warmelt-genobj.melt:1262:/ compute");
+            MELT_LOCATION("warmelt-genobj.melt:1264:/ compute");
             /*_#OFF__L10*/ curfnum[7] = /*_#SETQ___L23*/ curfnum[17] = /*_#LIST_LENGTH__L22*/ curfnum[15];;
             /*_#IFELSE___L15*/ curfnum[14] = /*_#SETQ___L23*/ curfnum[17];;
             /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_.OBROUT_OTHERS__V43*/ curfptr[37] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_#LIST_LENGTH__L22*/ curfnum[15] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1256:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1258:/ clear");
             /*clear*/ /*_#SETQ___L23*/ curfnum[17] = 0 ;}
            ;
            }
           ;
-          MELT_LOCATION("warmelt-genobj.melt:1263:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1265:/ block");
           /*block*/{
            /*_.NAMBUF__V45*/ curfptr[40] = 
             meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[11])), (char*)0);;
-           MELT_LOCATION("warmelt-genobj.melt:1265:/ getslot");
+           MELT_LOCATION("warmelt-genobj.melt:1267:/ getslot");
            { melt_ptr_t slot=0;
             melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V27*/ curfptr[26]), 6, "OBROUT_OTHERS");/*_.OTHERS__V46*/ curfptr[37] = slot; };
            ;
@@ -9651,25 +9651,25 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
             (melt_list_length((melt_ptr_t)(/*_.OTHERS__V46*/ curfptr[37])));;
            
            #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-genobj.melt:1268:/ cppif.then");
-           MELT_LOCATION("warmelt-genobj.melt:1268:/ block");
+            MELT_LOCATION("warmelt-genobj.melt:1270:/ cppif.then");
+           MELT_LOCATION("warmelt-genobj.melt:1270:/ block");
             /*block*/{
              /*_#IS_LIST__L25*/ curfnum[15] = 
               (melt_magic_discr((melt_ptr_t)(/*_.OTHERS__V46*/ curfptr[37])) == OBMAG_LIST);;
-             MELT_LOCATION("warmelt-genobj.melt:1268:/ cond");
+             MELT_LOCATION("warmelt-genobj.melt:1270:/ cond");
              /*cond*/ if (/*_#IS_LIST__L25*/ curfnum[15]) /*then*/ {
-             MELT_LOCATION("warmelt-genobj.melt:1268:/ cond.then");
+             MELT_LOCATION("warmelt-genobj.melt:1270:/ cond.then");
              /*_.IFELSE___V48*/ curfptr[47] = (/*nil*/NULL);;
-             } else {MELT_LOCATION("warmelt-genobj.melt:1268:/ cond.else");
+             } else {MELT_LOCATION("warmelt-genobj.melt:1270:/ cond.else");
              
-              MELT_LOCATION("warmelt-genobj.melt:1268:/ block");
+              MELT_LOCATION("warmelt-genobj.melt:1270:/ block");
               /*block*/{
                /*block*/{
                 
                 {
-                MELT_LOCATION("warmelt-genobj.melt:1268:/ locexp");
+                MELT_LOCATION("warmelt-genobj.melt:1270:/ locexp");
                 melt_assert_failed(( "check others"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1268)?(1268):__LINE__, __FUNCTION__);
+  (1270)?(1270):__LINE__, __FUNCTION__);
 ;}
                 ;
                 /*clear*/ /*_.IFELSE___V48*/ curfptr[47] = 0 ;}
@@ -9680,90 +9680,90 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
              ;
              /*_.IFCPP___V47*/ curfptr[46] = /*_.IFELSE___V48*/ curfptr[47];;
              /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:1268:/ clear");
+             MELT_LOCATION("warmelt-genobj.melt:1270:/ clear");
              /*clear*/ /*_#IS_LIST__L25*/ curfnum[15] = 0 ;
-             MELT_LOCATION("warmelt-genobj.melt:1268:/ clear");
+             MELT_LOCATION("warmelt-genobj.melt:1270:/ clear");
              /*clear*/ /*_.IFELSE___V48*/ curfptr[47] = 0 ;}
             
             #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-genobj.melt:1268:/ cppif.else");
+            MELT_LOCATION("warmelt-genobj.melt:1270:/ cppif.else");
            /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
             #endif /*ENABLE_CHECKING*/
             ;
            
            {
-           MELT_LOCATION("warmelt-genobj.melt:1269:/ locexp");
+           MELT_LOCATION("warmelt-genobj.melt:1271:/ locexp");
            meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V45*/ curfptr[40]), ( "loc_"));}
            ;
-           MELT_LOCATION("warmelt-genobj.melt:1272:/ cond");
+           MELT_LOCATION("warmelt-genobj.melt:1274:/ cond");
            /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])))) /*then*/ {
-           MELT_LOCATION("warmelt-genobj.melt:1272:/ cond.then");
-           MELT_LOCATION("warmelt-genobj.melt:1272:/ getslot");
+           MELT_LOCATION("warmelt-genobj.melt:1274:/ cond.then");
+           MELT_LOCATION("warmelt-genobj.melt:1274:/ getslot");
             { melt_ptr_t slot=0;
              melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V4*/ curfptr[3]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V49*/ curfptr[47] = slot; };
             ;
-           } else {MELT_LOCATION("warmelt-genobj.melt:1272:/ cond.else");
+           } else {MELT_LOCATION("warmelt-genobj.melt:1274:/ cond.else");
            
             /*_.CTYPE_KEYWORD__V49*/ curfptr[47] = NULL;;
             }
            ;
-           MELT_LOCATION("warmelt-genobj.melt:1271:/ cond");
+           MELT_LOCATION("warmelt-genobj.melt:1273:/ cond");
            /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V49*/ curfptr[47]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[12])))) /*then*/ {
-           MELT_LOCATION("warmelt-genobj.melt:1271:/ cond.then");
-           MELT_LOCATION("warmelt-genobj.melt:1271:/ getslot");
+           MELT_LOCATION("warmelt-genobj.melt:1273:/ cond.then");
+           MELT_LOCATION("warmelt-genobj.melt:1273:/ getslot");
             { melt_ptr_t slot=0;
              melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V49*/ curfptr[47]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; };
             ;
-           } else {MELT_LOCATION("warmelt-genobj.melt:1271:/ cond.else");
+           } else {MELT_LOCATION("warmelt-genobj.melt:1273:/ cond.else");
            
             /*_.NAMED_NAME__V50*/ curfptr[49] = NULL;;
             }
            ;
            
            {
-           MELT_LOCATION("warmelt-genobj.melt:1270:/ locexp");
+           MELT_LOCATION("warmelt-genobj.melt:1272:/ locexp");
            meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V45*/ curfptr[40]),
   melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V50*/ curfptr[49])));}
            ;
            
            {
-           MELT_LOCATION("warmelt-genobj.melt:1273:/ locexp");
+           MELT_LOCATION("warmelt-genobj.melt:1275:/ locexp");
            meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V45*/ curfptr[40]), ( "__o"));}
            ;
            
            {
-           MELT_LOCATION("warmelt-genobj.melt:1274:/ locexp");
+           MELT_LOCATION("warmelt-genobj.melt:1276:/ locexp");
            meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V45*/ curfptr[40]), (/*_#NBOTHERS__L24*/ curfnum[20]));}
            ;
-           MELT_LOCATION("warmelt-genobj.melt:1275:/ block");
+           MELT_LOCATION("warmelt-genobj.melt:1277:/ block");
            /*block*/{
             /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 
              (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (/*_#OFF__L10*/ curfnum[7])));;
             /*_.STRBUF2STRING__V53*/ curfptr[52] = 
              (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[14])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V45*/ curfptr[40]))));;
-            MELT_LOCATION("warmelt-genobj.melt:1275:/ block");
+            MELT_LOCATION("warmelt-genobj.melt:1277:/ block");
             /*block*/{
-             MELT_LOCATION("warmelt-genobj.melt:1275:/ rawallocobj");
+             MELT_LOCATION("warmelt-genobj.melt:1277:/ rawallocobj");
              /*rawallocobj*/ { melt_ptr_t newobj = 0;
               melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[10])), (4), "CLASS_OBJLOCV");/*_.INST__V55*/ curfptr[54] =
               newobj; };
              ;
-             MELT_LOCATION("warmelt-genobj.melt:1275:/ putslot");
+             MELT_LOCATION("warmelt-genobj.melt:1277:/ putslot");
              /*putslot*/
              melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
              melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.CTYP__V4*/ curfptr[3]), "OBV_TYPE");
              ;
-             MELT_LOCATION("warmelt-genobj.melt:1275:/ putslot");
+             MELT_LOCATION("warmelt-genobj.melt:1277:/ putslot");
              /*putslot*/
              melt_assertmsg("putslot checkobj @OBL_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
              melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.OROUT__V27*/ curfptr[26]), "OBL_PROC");
              ;
-             MELT_LOCATION("warmelt-genobj.melt:1275:/ putslot");
+             MELT_LOCATION("warmelt-genobj.melt:1277:/ putslot");
              /*putslot*/
              melt_assertmsg("putslot checkobj @OBL_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
              melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.MAKE_INTEGERBOX__V52*/ curfptr[51]), "OBL_OFF");
              ;
-             MELT_LOCATION("warmelt-genobj.melt:1275:/ putslot");
+             MELT_LOCATION("warmelt-genobj.melt:1277:/ putslot");
              /*putslot*/
              melt_assertmsg("putslot checkobj @OBL_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
              melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (3), (/*_.STRBUF2STRING__V53*/ curfptr[52]), "OBL_CNAME");
@@ -9772,169 +9772,169 @@ MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
             ;
             
             #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-genobj.melt:1280:/ cppif.then");
-            MELT_LOCATION("warmelt-genobj.melt:1280:/ block");
+             MELT_LOCATION("warmelt-genobj.melt:1282:/ cppif.then");
+            MELT_LOCATION("warmelt-genobj.melt:1282:/ block");
              /*block*/{
               /*_#THE_CALLCOUNT__L26*/ curfnum[17] = 
                callcount;;
-              MELT_LOCATION("warmelt-genobj.melt:1280:/ apply");
+              MELT_LOCATION("warmelt-genobj.melt:1282:/ apply");
               /*apply*/{
                union meltparam_un argtab[4];
                memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-genobj.melt:1280:/ apply.arg");
+               MELT_LOCATION("warmelt-genobj.melt:1282:/ apply.arg");
                argtab[0].bp_cstring =  "getfreeobjloctyped new nloc";
-               MELT_LOCATION("warmelt-genobj.melt:1280:/ apply.arg");
+               MELT_LOCATION("warmelt-genobj.melt:1282:/ apply.arg");
                argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[17];
-               MELT_LOCATION("warmelt-genobj.melt:1280:/ apply.arg");
+               MELT_LOCATION("warmelt-genobj.melt:1282:/ apply.arg");
                argtab[2].bp_cstring =  "warmelt-genobj.melt";
-               MELT_LOCATION("warmelt-genobj.melt:1280:/ apply.arg");
-               argtab[3].bp_long = 1280;
+               MELT_LOCATION("warmelt-genobj.melt:1282:/ apply.arg");
+               argtab[3].bp_long = 1282;
                /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
                }
               ;
               /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
               /*epilog*/
-              MELT_LOCATION("warmelt-genobj.melt:1280:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1282:/ clear");
               /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[17] = 0 ;
-              MELT_LOCATION("warmelt-genobj.melt:1280:/ clear");
+              MELT_LOCATION("warmelt-genobj.melt:1282:/ clear");
               /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
              
              #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-genobj.melt:1280:/ cppif.else");
+             MELT_LOCATION("warmelt-genobj.melt:1282:/ cppif.else");
             /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
              #endif /*ENABLE_CHECKING*/
              ;
             
             {
-            MELT_LOCATION("warmelt-genobj.melt:1281:/ locexp");
+            MELT_LOCATION("warmelt-genobj.melt:1283:/ locexp");
             meltgc_append_list((melt_ptr_t)(/*_.OTHERS__V46*/ curfptr[37]), (melt_ptr_t)(/*_.NLOC__V54*/ curfptr[53]));}
             ;
-            MELT_LOCATION("warmelt-genobj.melt:1282:/ block");
+            MELT_LOCATION("warmelt-genobj.melt:1284:/ block");
             /*block*/{
              /*_.RETVAL___V1*/ curfptr[0] = /*_.NLOC__V54*/ curfptr[53];;
-             MELT_LOCATION("warmelt-genobj.melt:1282:/ finalreturn");
+             MELT_LOCATION("warmelt-genobj.melt:1284:/ finalreturn");
              ;
              /*finalret*/ goto labend_rout ;}
             ;
             /*_.LET___V51*/ curfptr[50] = /*_.RETURN___V58*/ curfptr[56];;
             /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:1275:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1277:/ clear");
             /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1275:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1277:/ clear");
             /*clear*/ /*_.STRBUF2STRING__V53*/ curfptr[52] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1275:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1277:/ clear");
             /*clear*/ /*_.NLOC__V54*/ curfptr[53] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1275:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1277:/ clear");
             /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:1275:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1277:/ clear");
             /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;}
            ;
            /*_.LET___V44*/ curfptr[38] = /*_.LET___V51*/ curfptr[50];;
            /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_.NAMBUF__V45*/ curfptr[40] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_.OTHERS__V46*/ curfptr[37] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_#NBOTHERS__L24*/ curfnum[20] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_.CTYPE_KEYWORD__V49*/ curfptr[47] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:1263:/ clear");
+           MELT_LOCATION("warmelt-genobj.melt:1265:/ clear");
            /*clear*/ /*_.LET___V51*/ curfptr[50] = 0 ;}
           ;
           /*_.LET___V36*/ curfptr[33] = /*_.LET___V44*/ curfptr[38];;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1255:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1257:/ clear");
           /*clear*/ /*_.PFREE__V37*/ curfptr[34] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1255:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1257:/ clear");
           /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1255:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1257:/ clear");
           /*clear*/ /*_#IFELSE___L15*/ curfnum[14] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1255:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1257:/ clear");
           /*clear*/ /*_.LET___V44*/ curfptr[38] = 0 ;}
          ;
          /*_.LET___V32*/ curfptr[30] = /*_.LET___V36*/ curfptr[33];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1250:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1252:/ clear");
          /*clear*/ /*_.FREELI__V33*/ curfptr[32] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1250:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1252:/ clear");
          /*clear*/ /*_#NULL__L13*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1250:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1252:/ clear");
          /*clear*/ /*_.LET___V36*/ curfptr[33] = 0 ;}
         ;
         /*_.LET___V25*/ curfptr[23] = /*_.LET___V32*/ curfptr[30];;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ clear");
         /*clear*/ /*_.FREEMAP__V26*/ curfptr[25] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ clear");
         /*clear*/ /*_.OROUT__V27*/ curfptr[26] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ clear");
         /*clear*/ /*_#OFF__L10*/ curfnum[7] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ clear");
         /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ clear");
         /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1244:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1246:/ clear");
         /*clear*/ /*_.LET___V32*/ curfptr[30] = 0 ;}
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1241:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1243:/ block");
        /*block*/{
         /*_.PROGN___V59*/ curfptr[51] = /*_.LET___V25*/ curfptr[23];;}
        ;
        /*_.IFELSE___V19*/ curfptr[14] = /*_.PROGN___V59*/ curfptr[51];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1239:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1241:/ clear");
        /*clear*/ /*_.IFCPP___V21*/ curfptr[17] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1239:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1241:/ clear");
        /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1239:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1241:/ clear");
        /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1239:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1241:/ clear");
        /*clear*/ /*_.PROGN___V59*/ curfptr[51] = 0 ;}
       ;
       }
      ;
      /*_.IFELSE___V16*/ curfptr[13] = /*_.IFELSE___V19*/ curfptr[14];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1238:/ clear");
      /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1238:/ clear");
      /*clear*/ /*_.IFELSE___V19*/ curfptr[14] = 0 ;}
     ;
     }
    ;
    /*_.IFELSE___V13*/ curfptr[11] = /*_.IFELSE___V16*/ curfptr[13];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1234:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
    /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1234:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1236:/ clear");
    /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;}
   ;
   }
  ;
- MELT_LOCATION("warmelt-genobj.melt:1229:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:1229:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1231:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1229:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1229:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
  /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1229:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1229:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
  /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1229:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
  /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1229:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ clear");
  /*clear*/ /*_.IFELSE___V13*/ curfptr[11] = 0 ;}
 
 ;
@@ -9995,11 +9995,11 @@ melt_trace_start("DISPOSE_OBJLOC", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1290:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ getarg");
  /*_.OLDLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1290:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -10008,29 +10008,29 @@ melt_trace_start("DISPOSE_OBJLOC", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1292:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1291:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1291:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1293:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1293:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1291:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1293:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1291:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1293:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1291:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1293:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1291:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1293:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1291:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1293:/ locexp");
       melt_assert_failed(( "check oldloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1291)?(1291):__LINE__, __FUNCTION__);
+  (1293)?(1293):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -10041,37 +10041,37 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1291:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1293:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1291:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1293:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1291:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1293:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1292:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1292:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1294:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1294:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1292:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1294:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1292:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1294:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1292:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1294:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1292:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1294:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1292:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1294:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1292)?(1292):__LINE__, __FUNCTION__);
+  (1294)?(1294):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -10082,39 +10082,39 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1292:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1294:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1292:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1294:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1292:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1294:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1294:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1294:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1296:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1296:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1294:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1296:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), 2, "OBL_PROC");/*_.OBL_PROC__V9*/ curfptr[8] = slot; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1294:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1296:/ cond");
    /*cond*/ if (/*_.OBL_PROC__V9*/ curfptr[8]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1294:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1296:/ cond.then");
    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1294:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1296:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1294:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1296:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1294:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1296:/ locexp");
       melt_assert_failed(( "check used oldloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1294)?(1294):__LINE__, __FUNCTION__);
+  (1296)?(1296):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
@@ -10125,43 +10125,43 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[9];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1294:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1296:/ clear");
    /*clear*/ /*_.OBL_PROC__V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1294:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1296:/ clear");
    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1294:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1296:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1295:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1297:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1295:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1297:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OLDCTY__V11*/ curfptr[8] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1296:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1296:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1298:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1298:/ block");
    /*block*/{
     /*_#__L3*/ curfnum[0] = 
      ((/*_.OLDCTY__V11*/ curfptr[8]) != ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-genobj.melt:1296:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1298:/ cond");
     /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1296:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1298:/ cond.then");
     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1296:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1298:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1296:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1298:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1296:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1298:/ locexp");
        melt_assert_failed(( "check oldcty not void"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1296)?(1296):__LINE__, __FUNCTION__);
+  (1298)?(1298):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
@@ -10172,37 +10172,37 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
     ;
     /*_.IFCPP___V12*/ curfptr[9] = /*_.IFELSE___V13*/ curfptr[12];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1296:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1298:/ clear");
     /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1296:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1298:/ clear");
     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1296:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1298:/ cppif.else");
   /*_.IFCPP___V12*/ curfptr[9] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1297:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1297:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1299:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1299:/ block");
    /*block*/{
     /*_#IS_A__L4*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OLDCTY__V11*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1297:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1299:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1297:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1299:/ cond.then");
     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1297:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1299:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1297:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1299:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1297:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1299:/ locexp");
        melt_assert_failed(( "check oldcty is ctype"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1297)?(1297):__LINE__, __FUNCTION__);
+  (1299)?(1299):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
@@ -10213,27 +10213,27 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
     ;
     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1299:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1299:/ clear");
     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1297:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1299:/ cppif.else");
   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1298:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1300:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1298:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1298:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1300:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1300:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1298:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1300:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBL_PROC", melt_magic_discr((melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.OLDLOC__V2*/ curfptr[1]), (2), ((/*nil*/NULL)), "OBL_PROC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1298:/ touch");
+    MELT_LOCATION("warmelt-genobj.melt:1300:/ touch");
     meltgc_touch(/*_.OLDLOC__V2*/ curfptr[1]);
     ;
     /*epilog*/}
@@ -10242,125 +10242,125 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1299:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1299:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1301:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1301:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1299:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1301:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1299:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1301:/ apply.arg");
      argtab[0].bp_cstring =  "dispose_objloc freed oldloc";
-     MELT_LOCATION("warmelt-genobj.melt:1299:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1301:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1299:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1301:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1299:/ apply.arg");
-     argtab[3].bp_long = 1299;
+     MELT_LOCATION("warmelt-genobj.melt:1301:/ apply.arg");
+     argtab[3].bp_long = 1301;
      /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1299:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1301:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1299:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1301:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1299:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1301:/ cppif.else");
   /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_#__L6*/ curfnum[0] = 
    ((/*_.OLDCTY__V11*/ curfptr[8]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-genobj.melt:1300:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1302:/ cond");
   /*cond*/ if (/*_#__L6*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1300:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1300:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1302:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1302:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1301:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1303:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1301:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1303:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 2, "GNCX_FREEPTRLIST");/*_.FREEPL__V18*/ curfptr[16] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-genobj.melt:1302:/ locexp");
+     MELT_LOCATION("warmelt-genobj.melt:1304:/ locexp");
      meltgc_append_list((melt_ptr_t)(/*_.FREEPL__V18*/ curfptr[16]), (melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]));}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1301:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1303:/ clear");
      /*clear*/ /*_.FREEPL__V18*/ curfptr[16] = 0 ;}
     ;
     /*epilog*/}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1300:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1302:/ cond.else");
   
-   MELT_LOCATION("warmelt-genobj.melt:1300:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1302:/ block");
    /*block*/{
     /*_#__L7*/ curfnum[6] = 
      ((/*_.OLDCTY__V11*/ curfptr[8]) == ((/*!CTYPE_LONG*/ curfrout->tabval[6])));;
-    MELT_LOCATION("warmelt-genobj.melt:1303:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1305:/ cond");
     /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1303:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:1303:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1305:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1305:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1304:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1306:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1304:/ getslot");
+       MELT_LOCATION("warmelt-genobj.melt:1306:/ getslot");
        { melt_ptr_t slot=0;
         melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 3, "GNCX_FREELONGLIST");/*_.FREENL__V19*/ curfptr[16] = slot; };
        ;
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1305:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1307:/ locexp");
        meltgc_append_list((melt_ptr_t)(/*_.FREENL__V19*/ curfptr[16]), (melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]));}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1304:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1306:/ clear");
        /*clear*/ /*_.FREENL__V19*/ curfptr[16] = 0 ;}
       ;
       /*epilog*/}
      ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1303:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1305:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1303:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1305:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1307:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1309:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1307:/ getslot");
+       MELT_LOCATION("warmelt-genobj.melt:1309:/ getslot");
        { melt_ptr_t slot=0;
         melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 4, "GNCX_FREEOTHERMAPS");/*_.FREEMAP__V20*/ curfptr[16] = slot; };
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1308:/ getslot");
+       MELT_LOCATION("warmelt-genobj.melt:1310:/ getslot");
        { melt_ptr_t slot=0;
         melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V21*/ curfptr[20] = slot; };
        ;
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1310:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1310:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1312:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1312:/ block");
         /*block*/{
          /*_#IS_MAPOBJECT__L8*/ curfnum[7] = 
           (melt_magic_discr((melt_ptr_t)(/*_.FREEMAP__V20*/ curfptr[16])) == OBMAG_MAPOBJECTS);;
-         MELT_LOCATION("warmelt-genobj.melt:1310:/ cond");
+         MELT_LOCATION("warmelt-genobj.melt:1312:/ cond");
          /*cond*/ if (/*_#IS_MAPOBJECT__L8*/ curfnum[7]) /*then*/ {
-         MELT_LOCATION("warmelt-genobj.melt:1310:/ cond.then");
+         MELT_LOCATION("warmelt-genobj.melt:1312:/ cond.then");
          /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-genobj.melt:1310:/ cond.else");
+         } else {MELT_LOCATION("warmelt-genobj.melt:1312:/ cond.else");
          
-          MELT_LOCATION("warmelt-genobj.melt:1310:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1312:/ block");
           /*block*/{
            /*block*/{
             
             {
-            MELT_LOCATION("warmelt-genobj.melt:1310:/ locexp");
+            MELT_LOCATION("warmelt-genobj.melt:1312:/ locexp");
             melt_assert_failed(( "check freemap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1310)?(1310):__LINE__, __FUNCTION__);
+  (1312)?(1312):__LINE__, __FUNCTION__);
 ;}
             ;
             /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
@@ -10371,37 +10371,37 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
          ;
          /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1310:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1312:/ clear");
          /*clear*/ /*_#IS_MAPOBJECT__L8*/ curfnum[7] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1310:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1312:/ clear");
          /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1310:/ cppif.else");
+        MELT_LOCATION("warmelt-genobj.melt:1312:/ cppif.else");
        /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
        
        #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1311:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1311:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1313:/ cppif.then");
+       MELT_LOCATION("warmelt-genobj.melt:1313:/ block");
         /*block*/{
          /*_#IS_A__L9*/ curfnum[7] = 
           melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[7])));;
-         MELT_LOCATION("warmelt-genobj.melt:1311:/ cond");
+         MELT_LOCATION("warmelt-genobj.melt:1313:/ cond");
          /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ {
-         MELT_LOCATION("warmelt-genobj.melt:1311:/ cond.then");
+         MELT_LOCATION("warmelt-genobj.melt:1313:/ cond.then");
          /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-genobj.melt:1311:/ cond.else");
+         } else {MELT_LOCATION("warmelt-genobj.melt:1313:/ cond.else");
          
-          MELT_LOCATION("warmelt-genobj.melt:1311:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1313:/ block");
           /*block*/{
            /*block*/{
             
             {
-            MELT_LOCATION("warmelt-genobj.melt:1311:/ locexp");
+            MELT_LOCATION("warmelt-genobj.melt:1313:/ locexp");
             melt_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1311)?(1311):__LINE__, __FUNCTION__);
+  (1313)?(1313):__LINE__, __FUNCTION__);
 ;}
             ;
             /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
@@ -10412,41 +10412,41 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
          ;
          /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1311:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1313:/ clear");
          /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1311:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1313:/ clear");
          /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
         
         #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1311:/ cppif.else");
+        MELT_LOCATION("warmelt-genobj.melt:1313:/ cppif.else");
        /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
         #endif /*ENABLE_CHECKING*/
         ;
-       MELT_LOCATION("warmelt-genobj.melt:1312:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1314:/ block");
        /*block*/{
         /*_.FREELI__V26*/ curfptr[24] = 
          melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.FREEMAP__V20*/ curfptr[16]), (meltobject_ptr_t)(/*_.OLDCTY__V11*/ curfptr[8]));;
         
         #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:1314:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:1314:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1316:/ cppif.then");
+        MELT_LOCATION("warmelt-genobj.melt:1316:/ block");
          /*block*/{
           /*_#IS_LIST__L10*/ curfnum[7] = 
            (melt_magic_discr((melt_ptr_t)(/*_.FREELI__V26*/ curfptr[24])) == OBMAG_LIST);;
-          MELT_LOCATION("warmelt-genobj.melt:1314:/ cond");
+          MELT_LOCATION("warmelt-genobj.melt:1316:/ cond");
           /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[7]) /*then*/ {
-          MELT_LOCATION("warmelt-genobj.melt:1314:/ cond.then");
+          MELT_LOCATION("warmelt-genobj.melt:1316:/ cond.then");
           /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-genobj.melt:1314:/ cond.else");
+          } else {MELT_LOCATION("warmelt-genobj.melt:1316:/ cond.else");
           
-           MELT_LOCATION("warmelt-genobj.melt:1314:/ block");
+           MELT_LOCATION("warmelt-genobj.melt:1316:/ block");
            /*block*/{
             /*block*/{
              
              {
-             MELT_LOCATION("warmelt-genobj.melt:1314:/ locexp");
+             MELT_LOCATION("warmelt-genobj.melt:1316:/ locexp");
              melt_assert_failed(( "check freeli"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1314)?(1314):__LINE__, __FUNCTION__);
+  (1316)?(1316):__LINE__, __FUNCTION__);
 ;}
              ;
              /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
@@ -10457,38 +10457,38 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
           ;
           /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1314:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1316:/ clear");
           /*clear*/ /*_#IS_LIST__L10*/ curfnum[7] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1314:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1316:/ clear");
           /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
          
          #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:1314:/ cppif.else");
+         MELT_LOCATION("warmelt-genobj.melt:1316:/ cppif.else");
         /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
          #endif /*ENABLE_CHECKING*/
          ;
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1315:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1317:/ locexp");
         meltgc_append_list((melt_ptr_t)(/*_.FREELI__V26*/ curfptr[24]), (melt_ptr_t)(/*_.OLDLOC__V2*/ curfptr[1]));}
         ;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1312:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1314:/ clear");
         /*clear*/ /*_.FREELI__V26*/ curfptr[24] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1312:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1314:/ clear");
         /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1307:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1309:/ clear");
        /*clear*/ /*_.FREEMAP__V20*/ curfptr[16] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1307:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1309:/ clear");
        /*clear*/ /*_.OROUT__V21*/ curfptr[20] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1307:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1309:/ clear");
        /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1307:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1309:/ clear");
        /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;}
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1306:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1308:/ block");
       /*block*/{}
       ;
       /*epilog*/}
@@ -10496,29 +10496,29 @@ MELT_LOCATION("warmelt-genobj.melt:1290:/ block");
      }
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1300:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1302:/ clear");
     /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;}
    ;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1295:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
   /*clear*/ /*_.OLDCTY__V11*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1295:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
   /*clear*/ /*_.IFCPP___V12*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1295:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1295:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
   /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1295:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1297:/ clear");
   /*clear*/ /*_#__L6*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1290:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1290:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1290:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -10579,11 +10579,11 @@ melt_trace_start("DISPOSE_BND_OBJ", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1319:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ getarg");
  /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1319:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -10592,29 +10592,29 @@ melt_trace_start("DISPOSE_BND_OBJ", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1319:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1321:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1320:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1320:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1322:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1322:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1320:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1322:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1320:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1322:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1320:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1322:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1320:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1322:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1320:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1322:/ locexp");
       melt_assert_failed(( "check bnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1320)?(1320):__LINE__, __FUNCTION__);
+  (1322)?(1322):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -10625,37 +10625,37 @@ MELT_LOCATION("warmelt-genobj.melt:1319:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1320:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1322:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1320:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1322:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1320:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1322:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1321:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1321:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1323:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1323:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1321:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1323:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1321:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1323:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1321:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1323:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1321:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1323:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1321:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1323:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1321)?(1321):__LINE__, __FUNCTION__);
+  (1323)?(1323):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -10666,53 +10666,53 @@ MELT_LOCATION("warmelt-genobj.melt:1319:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1321:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1321:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1321:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1323:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1322:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1322:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1324:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1324:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1322:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1324:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1322:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1324:/ apply.arg");
     argtab[0].bp_cstring =  "dispose_bnd_obj start bnd";
-    MELT_LOCATION("warmelt-genobj.melt:1322:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1324:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1322:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1324:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1322:/ apply.arg");
-    argtab[3].bp_long = 1322;
+    MELT_LOCATION("warmelt-genobj.melt:1324:/ apply.arg");
+    argtab[3].bp_long = 1324;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1322:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1324:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1322:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1324:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1322:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1324:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1323:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1325:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V11*/ curfptr[10] = slot; };
   ;
@@ -10720,135 +10720,135 @@ MELT_LOCATION("warmelt-genobj.melt:1319:/ block");
    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.LOCMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.BND__V2*/ curfptr[1]));;
   /*_#NULL__L4*/ curfnum[0] = 
    ((/*_.OLDLOC__V12*/ curfptr[11]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:1326:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1328:/ cond");
   /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1326:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1326:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1328:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1328:/ block");
    /*block*/{
     /*_#IS_A__L5*/ curfnum[4] = 
      melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1329:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1331:/ cond");
     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1329:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:1329:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1331:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1331:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1330:/ getslot");
+      MELT_LOCATION("warmelt-genobj.melt:1332:/ getslot");
       { melt_ptr_t slot=0;
        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.LETBIND_TYPE__V15*/ curfptr[14] = slot; };
       ;
       /*_#__L6*/ curfnum[5] = 
        ((/*_.LETBIND_TYPE__V15*/ curfptr[14]) == ((/*!CTYPE_VOID*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-genobj.melt:1329:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1331:/ cond");
       /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1329:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:1329:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1331:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1331:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1331:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1333:/ block");
         /*block*/{
          /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-         MELT_LOCATION("warmelt-genobj.melt:1331:/ finalreturn");
+         MELT_LOCATION("warmelt-genobj.melt:1333:/ finalreturn");
          ;
          /*finalret*/ goto labend_rout ;}
         ;
         /*_.IF___V16*/ curfptr[15] = /*_.RETURN___V17*/ curfptr[16];;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1329:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1331:/ clear");
         /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;}
        ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1329:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1331:/ cond.else");
       
        /*_.IF___V16*/ curfptr[15] = NULL;;
        }
       ;
       /*_.IF___V14*/ curfptr[13] = /*_.IF___V16*/ curfptr[15];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1329:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1331:/ clear");
       /*clear*/ /*_.LETBIND_TYPE__V15*/ curfptr[14] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1329:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1331:/ clear");
       /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1329:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1331:/ clear");
       /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1329:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1331:/ cond.else");
     
      /*_.IF___V14*/ curfptr[13] = NULL;;
      }
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1332:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1332:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1334:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1334:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1332:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1334:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1332:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1334:/ apply.arg");
        argtab[0].bp_cstring =  "dispose_bnd_obj nulloldloc bnd";
-       MELT_LOCATION("warmelt-genobj.melt:1332:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1334:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-       MELT_LOCATION("warmelt-genobj.melt:1332:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1334:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1332:/ apply.arg");
-       argtab[3].bp_long = 1332;
+       MELT_LOCATION("warmelt-genobj.melt:1334:/ apply.arg");
+       argtab[3].bp_long = 1334;
        /*_.DEBUG_MSG_FUN__V19*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[14];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1332:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1334:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1332:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1334:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[14] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1332:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1334:/ cppif.else");
     /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1327:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1329:/ block");
     /*block*/{
      /*_.PROGN___V20*/ curfptr[15] = /*_.IFCPP___V18*/ curfptr[16];;}
     ;
     /*_.IF___V13*/ curfptr[12] = /*_.PROGN___V20*/ curfptr[15];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1326:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1328:/ clear");
     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1326:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1328:/ clear");
     /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1326:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1328:/ clear");
     /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1326:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1328:/ clear");
     /*clear*/ /*_.PROGN___V20*/ curfptr[15] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1326:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1328:/ cond.else");
   
    /*_.IF___V13*/ curfptr[12] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1334:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1334:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1336:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1336:/ block");
    /*block*/{
     /*_#IS_A__L8*/ curfnum[5] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OLDLOC__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-genobj.melt:1334:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1336:/ cond");
     /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1334:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1336:/ cond.then");
     /*_.IFELSE___V22*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1334:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1336:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1334:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1336:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1334:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1336:/ locexp");
        melt_assert_failed(( "check oldloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1334)?(1334):__LINE__, __FUNCTION__);
+  (1336)?(1336):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V22*/ curfptr[13] = 0 ;}
@@ -10859,97 +10859,97 @@ MELT_LOCATION("warmelt-genobj.melt:1319:/ block");
     ;
     /*_.IFCPP___V21*/ curfptr[14] = /*_.IFELSE___V22*/ curfptr[13];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1334:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1336:/ clear");
     /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1334:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1336:/ clear");
     /*clear*/ /*_.IFELSE___V22*/ curfptr[13] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1334:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1336:/ cppif.else");
   /*_.IFCPP___V21*/ curfptr[14] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1336:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1338:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1336:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1338:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
    /*_.DISPOSE_OBJLOC__V23*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OLDLOC__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:1337:/ locexp");
+  MELT_LOCATION("warmelt-genobj.melt:1339:/ locexp");
   meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.LOCMAP__V11*/ curfptr[10]), 
 			      (meltobject_ptr_t)(/*_.BND__V2*/ curfptr[1]));}
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1338:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1338:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1340:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1340:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1338:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1340:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1338:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1340:/ apply.arg");
      argtab[0].bp_cstring =  "dispose_bnd_obj end bnd";
-     MELT_LOCATION("warmelt-genobj.melt:1338:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1340:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:1338:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1340:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1338:/ apply.arg");
-     argtab[3].bp_long = 1338;
+     MELT_LOCATION("warmelt-genobj.melt:1340:/ apply.arg");
+     argtab[3].bp_long = 1340;
      /*_.DEBUG_MSG_FUN__V25*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V24*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[13];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1338:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1340:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1338:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1340:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[13] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1338:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1340:/ cppif.else");
   /*_.IFCPP___V24*/ curfptr[15] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_.LET___V10*/ curfptr[8] = /*_.IFCPP___V24*/ curfptr[15];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_.LOCMAP__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_.OLDLOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_.IF___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_.IFCPP___V21*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_.DISPOSE_OBJLOC__V23*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1323:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1325:/ clear");
   /*clear*/ /*_.IFCPP___V24*/ curfptr[15] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1319:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1319:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1321:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1319:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1319:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1319:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1319:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -11010,11 +11010,11 @@ melt_trace_start("COMPILOBJ_NREP_CHUNK", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1342:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ getarg");
  /*_.NCHK__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1342:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -11023,29 +11023,29 @@ melt_trace_start("COMPILOBJ_NREP_CHUNK", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1344:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1343:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1343:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1345:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1345:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CHUNK*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1343:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1345:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1343:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1345:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1343:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1345:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1343:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1345:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1343:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1345:/ locexp");
       melt_assert_failed(( "check nchk"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1343)?(1343):__LINE__, __FUNCTION__);
+  (1345)?(1345):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -11056,37 +11056,37 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1343:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1345:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1343:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1345:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1343:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1345:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1344:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1344:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1346:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1346:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1344:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1346:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1344:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1346:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1344:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1346:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1344:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1346:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1344:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1346:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1344)?(1344):__LINE__, __FUNCTION__);
+  (1346)?(1346):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -11097,89 +11097,89 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1344:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1344:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1344:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1346:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1345:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1345:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1347:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1347:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1345:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1347:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1345:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1347:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj nrepchunk nchk";
-    MELT_LOCATION("warmelt-genobj.melt:1345:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1347:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1345:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1347:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1345:/ apply.arg");
-    argtab[3].bp_long = 1345;
+    MELT_LOCATION("warmelt-genobj.melt:1347:/ apply.arg");
+    argtab[3].bp_long = 1347;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1345:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1347:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1345:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1347:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1345:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1347:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1346:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1348:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1347:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1349:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 2, "NCHUNK_EXPANSION");/*_.NEXP__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1348:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1350:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 3, "NCHUNK_OPER");/*_.NOPER__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1349:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1351:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCHK__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NTYP__V14*/ curfptr[13] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1351:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1351:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1353:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1353:/ block");
    /*block*/{
     /*_#IS_A__L4*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.NOPER__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1351:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1353:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1351:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1353:/ cond.then");
     /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1351:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1353:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1351:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1353:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1351:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1353:/ locexp");
        melt_assert_failed(( "check noper"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1351)?(1351):__LINE__, __FUNCTION__);
+  (1353)?(1353):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
@@ -11190,37 +11190,37 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
     ;
     /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1351:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1353:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1351:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1353:/ clear");
     /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1351:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1353:/ cppif.else");
   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1352:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1352:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1354:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1354:/ block");
    /*block*/{
     /*_#IS_MULTIPLE__L5*/ curfnum[0] = 
      (melt_magic_discr((melt_ptr_t)(/*_.NEXP__V12*/ curfptr[11])) == OBMAG_MULTIPLE);;
-    MELT_LOCATION("warmelt-genobj.melt:1352:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1354:/ cond");
     /*cond*/ if (/*_#IS_MULTIPLE__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1352:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1354:/ cond.then");
     /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1352:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1354:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1352:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1354:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1352:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1354:/ locexp");
        melt_assert_failed(( "check nexp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1352)?(1352):__LINE__, __FUNCTION__);
+  (1354)?(1354):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
@@ -11231,37 +11231,37 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
     ;
     /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1352:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
     /*clear*/ /*_#IS_MULTIPLE__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1352:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
     /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1352:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1354:/ cppif.else");
   /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1353:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1353:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1355:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1355:/ block");
    /*block*/{
     /*_#IS_A__L6*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.NTYP__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-genobj.melt:1353:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1355:/ cond");
     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1353:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1355:/ cond.then");
     /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1353:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1355:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1353:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1355:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1353:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1355:/ locexp");
        melt_assert_failed(( "check ntyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1353)?(1353):__LINE__, __FUNCTION__);
+  (1355)?(1355):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
@@ -11272,25 +11272,25 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
     ;
     /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1353:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1355:/ clear");
     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1353:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1355:/ clear");
     /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1353:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1355:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1354:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1356:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1356:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1358:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1356:/ newclosure");
+    MELT_LOCATION("warmelt-genobj.melt:1358:/ newclosure");
      /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1356:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:1358:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
@@ -11298,38 +11298,38 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
     ;
     /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1354:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1356:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1354:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1356:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
     /*_.OTUP__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NEXP__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1362:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1364:/ cond");
    /*cond*/ if (/*_.LOC__V11*/ curfptr[10]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1362:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1362:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1364:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1364:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1363:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1365:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1363:/ rawallocobj");
+      MELT_LOCATION("warmelt-genobj.melt:1365:/ rawallocobj");
       /*rawallocobj*/ { melt_ptr_t newobj = 0;
        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V27*/ curfptr[26] =
        newobj; };
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1363:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1365:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.NTYP__V14*/ curfptr[13]), "OBV_TYPE");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1363:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1365:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.OTUP__V24*/ curfptr[23]), "OBX_CONT");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1363:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1365:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.LOC__V11*/ curfptr[10]), "OBCX_LOC");
@@ -11338,26 +11338,26 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
      ;
      /*_.OEXP__V25*/ curfptr[24] = /*_.INST___V26*/ curfptr[25];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1362:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1364:/ clear");
      /*clear*/ /*_.INST___V26*/ curfptr[25] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1362:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1364:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1362:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1364:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1368:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1370:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1368:/ rawallocobj");
+      MELT_LOCATION("warmelt-genobj.melt:1370:/ rawallocobj");
       /*rawallocobj*/ { melt_ptr_t newobj = 0;
        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[11])), (2), "CLASS_OBJEXPV");/*_.INST__V29*/ curfptr[28] =
        newobj; };
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1368:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1370:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.NTYP__V14*/ curfptr[13]), "OBV_TYPE");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1368:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1370:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.OTUP__V24*/ curfptr[23]), "OBX_CONT");
@@ -11366,32 +11366,32 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
      ;
      /*_.OEXP__V25*/ curfptr[24] = /*_.INST___V28*/ curfptr[25];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1362:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1364:/ clear");
      /*clear*/ /*_.INST___V28*/ curfptr[25] = 0 ;}
     ;
     }
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1373:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1373:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1375:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1375:/ block");
     /*block*/{
      /*_#IS_A__L7*/ curfnum[0] = 
       melt_is_instance_of((melt_ptr_t)(/*_.NTYP__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-genobj.melt:1373:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1375:/ cond");
      /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1373:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1375:/ cond.then");
      /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1373:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1375:/ cond.else");
      
-      MELT_LOCATION("warmelt-genobj.melt:1373:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1375:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1373:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1375:/ locexp");
         melt_assert_failed(( "check ntyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1373)?(1373):__LINE__, __FUNCTION__);
+  (1375)?(1375):__LINE__, __FUNCTION__);
 ;}
         ;
         /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
@@ -11402,97 +11402,97 @@ MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
      ;
      /*_.IFCPP___V30*/ curfptr[25] = /*_.IFELSE___V31*/ curfptr[30];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1373:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1375:/ clear");
      /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1373:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1375:/ clear");
      /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1373:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1375:/ cppif.else");
    /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1374:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1374:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1376:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1376:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1374:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1376:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1374:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1376:/ apply.arg");
       argtab[0].bp_cstring =  "compilobj nrepchunk oexp";
-      MELT_LOCATION("warmelt-genobj.melt:1374:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1376:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:1374:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1376:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1374:/ apply.arg");
-      argtab[3].bp_long = 1374;
+      MELT_LOCATION("warmelt-genobj.melt:1376:/ apply.arg");
+      argtab[3].bp_long = 1376;
       /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OEXP__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1374:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1376:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1374:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1376:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1374:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1376:/ cppif.else");
    /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    /*_.LET___V21*/ curfptr[19] = /*_.OEXP__V25*/ curfptr[24];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
    /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
    /*clear*/ /*_.OTUP__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
    /*clear*/ /*_.OEXP__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
    /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1354:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
    /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[19];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.NEXP__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.NOPER__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.NTYP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1346:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1348:/ clear");
   /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1342:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1342:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1344:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1342:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1342:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1342:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1342:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -11553,50 +11553,50 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1356:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ getarg");
  /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1356:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1356:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1358:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1357:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1357:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1359:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1359:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1357:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1359:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1357:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1359:/ apply.arg");
     argtab[0].bp_cstring =  "compobj nrepchunk comp";
-    MELT_LOCATION("warmelt-genobj.melt:1357:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1359:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1357:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1359:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1357:/ apply.arg");
-    argtab[3].bp_long = 1357;
+    MELT_LOCATION("warmelt-genobj.melt:1359:/ apply.arg");
+    argtab[3].bp_long = 1359;
     /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1357:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1359:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1357:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1359:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1357:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1359:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
@@ -11604,45 +11604,45 @@ MELT_LOCATION("warmelt-genobj.melt:1356:/ block");
   (melt_discr((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1])));;
  /*_#__L3*/ curfnum[1] = 
   ((/*_.DISCRIM__V5*/ curfptr[3]) == ((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])));;
- MELT_LOCATION("warmelt-genobj.melt:1358:/ cond");
+ MELT_LOCATION("warmelt-genobj.melt:1360:/ cond");
  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:1358:/ cond.then");
+ MELT_LOCATION("warmelt-genobj.melt:1360:/ cond.then");
  /*_.IFELSE___V6*/ curfptr[5] = /*_.COMP__V2*/ curfptr[1];;
- } else {MELT_LOCATION("warmelt-genobj.melt:1358:/ cond.else");
+ } else {MELT_LOCATION("warmelt-genobj.melt:1360:/ cond.else");
  
-  MELT_LOCATION("warmelt-genobj.melt:1358:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1360:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1360:/ msend");
+   MELT_LOCATION("warmelt-genobj.melt:1362:/ msend");
    /*msend*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1360:/ ojbmsend.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1362:/ ojbmsend.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
     /*_.COMPILE_OBJ__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFELSE___V6*/ curfptr[5] = /*_.COMPILE_OBJ__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1358:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1360:/ clear");
    /*clear*/ /*_.COMPILE_OBJ__V7*/ curfptr[6] = 0 ;}
   ;
   }
  ;
- MELT_LOCATION("warmelt-genobj.melt:1356:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V6*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:1356:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1358:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ clear");
  /*clear*/ /*_.DISCRIM__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ clear");
  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1356:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ clear");
  /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
 
 ;
@@ -11703,11 +11703,11 @@ melt_trace_start("GETCTYPE_TYPEXPR", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1381:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1381:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
@@ -11716,29 +11716,29 @@ melt_trace_start("GETCTYPE_TYPEXPR", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1381:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1383:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1382:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1382:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1384:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1384:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_TYPED_EXPRESSION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1382:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1384:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1382:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1384:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1382:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1384:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1382:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1384:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1382:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1384:/ locexp");
       melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1382)?(1382):__LINE__, __FUNCTION__);
+  (1384)?(1384):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -11749,31 +11749,31 @@ MELT_LOCATION("warmelt-genobj.melt:1381:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1382:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1384:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1382:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1384:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1382:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1384:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1383:/ getslot");
+ MELT_LOCATION("warmelt-genobj.melt:1385:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NEXPR_CTYP__V6*/ curfptr[4] = slot; };
  ;
- MELT_LOCATION("warmelt-genobj.melt:1381:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.NEXPR_CTYP__V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-genobj.melt:1381:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1383:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1381:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1381:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ clear");
  /*clear*/ /*_.NEXPR_CTYP__V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -11834,11 +11834,11 @@ melt_trace_start("COMPILOBJ_NREP_NIL", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1387:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ getarg");
  /*_.NILO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1387:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -11847,29 +11847,29 @@ melt_trace_start("COMPILOBJ_NREP_NIL", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1387:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1389:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1388:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1388:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1390:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1390:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NILO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1388:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1390:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1388:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1390:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1388:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1390:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1388:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1390:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1388:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1390:/ locexp");
       melt_assert_failed(( "check nilo"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1388)?(1388):__LINE__, __FUNCTION__);
+  (1390)?(1390):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -11880,37 +11880,37 @@ MELT_LOCATION("warmelt-genobj.melt:1387:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1388:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1390:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1388:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1390:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1388:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1390:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1389:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1389:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1391:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1391:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1389:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1391:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1389:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1391:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1389:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1391:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1389:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1391:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1389:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1391:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1389)?(1389):__LINE__, __FUNCTION__);
+  (1391)?(1391):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -11921,95 +11921,95 @@ MELT_LOCATION("warmelt-genobj.melt:1387:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1389:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1391:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1389:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1391:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1389:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1391:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1390:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1390:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1392:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1392:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1390:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1392:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1390:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1392:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_nil nilo";
-    MELT_LOCATION("warmelt-genobj.melt:1390:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1392:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1390:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1392:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1390:/ apply.arg");
-    argtab[3].bp_long = 1390;
+    MELT_LOCATION("warmelt-genobj.melt:1392:/ apply.arg");
+    argtab[3].bp_long = 1392;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NILO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1390:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1392:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1390:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1392:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1390:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1392:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1391:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1393:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1391:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1393:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1391:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:1393:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[3])), (1), "CLASS_OBJNIL");/*_.INST__V12*/ curfptr[11] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1391:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1393:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[4])), "OBV_TYPE");
    ;
    /*_.OBNIL__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1393:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1395:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.OBNIL__V11*/ curfptr[10];;
-   MELT_LOCATION("warmelt-genobj.melt:1393:/ finalreturn");
+   MELT_LOCATION("warmelt-genobj.melt:1395:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V13*/ curfptr[12];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1391:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1393:/ clear");
   /*clear*/ /*_.OBNIL__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1391:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1393:/ clear");
   /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1387:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1387:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1389:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1387:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1387:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1387:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1387:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -12070,11 +12070,11 @@ melt_trace_start("COMPILOBJ_NREP_COMMENT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1399:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ getarg");
  /*_.NCOMM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1399:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -12083,29 +12083,29 @@ melt_trace_start("COMPILOBJ_NREP_COMMENT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1399:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1401:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1400:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1400:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1402:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1402:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_COMMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1400:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1402:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1400:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1402:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1400:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1402:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1400:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1402:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1400:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1402:/ locexp");
       melt_assert_failed(( "check ncomm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1400)?(1400):__LINE__, __FUNCTION__);
+  (1402)?(1402):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -12116,37 +12116,37 @@ MELT_LOCATION("warmelt-genobj.melt:1399:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1400:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1402:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1400:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1402:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1400:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1402:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1401:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1401:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1403:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1403:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1401:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1403:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1401:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1403:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1401:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1403:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1401:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1403:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1401:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1403:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1401)?(1401):__LINE__, __FUNCTION__);
+  (1403)?(1403):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -12157,57 +12157,57 @@ MELT_LOCATION("warmelt-genobj.melt:1399:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1401:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1403:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1401:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1403:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1401:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1403:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1402:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1402:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1404:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1404:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1402:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1404:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1402:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1404:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_comment start";
-    MELT_LOCATION("warmelt-genobj.melt:1402:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1404:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1402:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1404:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1402:/ apply.arg");
-    argtab[3].bp_long = 1402;
+    MELT_LOCATION("warmelt-genobj.melt:1404:/ apply.arg");
+    argtab[3].bp_long = 1404;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1402:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1404:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1402:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1404:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1402:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1404:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1403:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1405:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1403:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1405:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), 1, "NCOMM_STRING");/*_.COMS__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1404:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1406:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCOMM__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V12*/ curfptr[11] = slot; };
   ;
@@ -12215,43 +12215,41 @@ MELT_LOCATION("warmelt-genobj.melt:1399:/ block");
    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:1406:/ locexp");
+  MELT_LOCATION("warmelt-genobj.melt:1408:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V13*/ curfptr[12]), ( "/**!* "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:1407:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-genobj.melt:1409:/ locexp");
   meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBUF__V13*/ curfptr[12]), melt_string_str((melt_ptr_t)(/*_.COMS__V11*/ curfptr[10])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-genobj.melt:1408:/ locexp");
+  MELT_LOCATION("warmelt-genobj.melt:1410:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V13*/ curfptr[12]), ( " *!**/"));}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1409:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1411:/ block");
   /*block*/{
    /*_.OSTR__V15*/ curfptr[14] = 
     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V13*/ curfptr[12]))));;
-   MELT_LOCATION("warmelt-genobj.melt:1410:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1412:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1410:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:1412:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[5])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1410:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1412:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.NLOC__V12*/ curfptr[11]), "OBI_LOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1410:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1412:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*nil*/NULL)), "OBDI_DESTLIST");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1410:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1412:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OSTR__V15*/ curfptr[14]), "OBCPT_EXPR");
@@ -12260,118 +12258,118 @@ MELT_LOCATION("warmelt-genobj.melt:1399:/ block");
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1415:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1415:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1417:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1417:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1415:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1417:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1415:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1417:/ apply.arg");
       argtab[0].bp_cstring =  "compilobj_nrep_comment ostr";
-      MELT_LOCATION("warmelt-genobj.melt:1415:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1417:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:1415:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1417:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1415:/ apply.arg");
-      argtab[3].bp_long = 1415;
+      MELT_LOCATION("warmelt-genobj.melt:1417:/ apply.arg");
+      argtab[3].bp_long = 1417;
       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSTR__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1415:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1417:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1415:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1417:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1415:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1417:/ cppif.else");
    /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1416:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1416:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1418:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1418:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1416:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1418:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1416:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1418:/ apply.arg");
       argtab[0].bp_cstring =  "compilobj_nrep_comment res";
-      MELT_LOCATION("warmelt-genobj.melt:1416:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1418:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:1416:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1418:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1416:/ apply.arg");
-      argtab[3].bp_long = 1416;
+      MELT_LOCATION("warmelt-genobj.melt:1418:/ apply.arg");
+      argtab[3].bp_long = 1418;
       /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1416:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1418:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1416:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1418:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1416:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1418:/ cppif.else");
    /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-genobj.melt:1417:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1419:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
-    MELT_LOCATION("warmelt-genobj.melt:1417:/ finalreturn");
+    MELT_LOCATION("warmelt-genobj.melt:1419:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.LET___V14*/ curfptr[13] = /*_.RETURN___V22*/ curfptr[20];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1409:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1411:/ clear");
    /*clear*/ /*_.OSTR__V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1409:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1411:/ clear");
    /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1409:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1411:/ clear");
    /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1409:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1411:/ clear");
    /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1409:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1411:/ clear");
    /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V14*/ curfptr[13];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1403:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1405:/ clear");
   /*clear*/ /*_.COMS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1403:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1405:/ clear");
   /*clear*/ /*_.NLOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1403:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1405:/ clear");
   /*clear*/ /*_.SBUF__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1403:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1405:/ clear");
   /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1399:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1399:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1401:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1399:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1399:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1399:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1399:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -12432,11 +12430,11 @@ melt_trace_start("COMPILOBJ_NREP_LOCSYMOCC", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1423:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ getarg");
  /*_.LSYO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1423:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -12445,29 +12443,29 @@ melt_trace_start("COMPILOBJ_NREP_LOCSYMOCC", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1425:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1424:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1424:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1426:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1426:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1424:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1426:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1424:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1426:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1424:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1426:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1424:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1426:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1424:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1426:/ locexp");
       melt_assert_failed(( "check nchk"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1424)?(1424):__LINE__, __FUNCTION__);
+  (1426)?(1426):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -12478,37 +12476,37 @@ MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1424:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1424:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1424:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1426:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1425:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1425:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1427:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1427:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1425:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1427:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1425:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1427:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1425:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1427:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1425:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1427:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1425:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1427:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1425)?(1425):__LINE__, __FUNCTION__);
+  (1427)?(1427):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -12519,35 +12517,35 @@ MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1425:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1427:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1425:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1427:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1425:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1427:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1426:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1428:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1427:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1429:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V10*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1428:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1430:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.SYM__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1429:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1431:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.OTY__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1430:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1432:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.SBND__V13*/ curfptr[12] = slot; };
   ;
@@ -12555,98 +12553,98 @@ MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.LOCMAP__V10*/ curfptr[9]), (meltobject_ptr_t)(/*_.SBND__V13*/ curfptr[12]));;
   /*_#NULL__L3*/ curfnum[0] = 
    ((/*_.SBND__V13*/ curfptr[12]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:1438:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1440:/ cond");
   /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1438:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1438:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1440:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1440:/ block");
    /*block*/{
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1440:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1440:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1442:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1442:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1440:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1442:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1440:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1442:/ apply.arg");
        argtab[0].bp_cstring =  "compilobj locsymocc null sbnd; lsyo=";
-       MELT_LOCATION("warmelt-genobj.melt:1440:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1442:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-       MELT_LOCATION("warmelt-genobj.melt:1440:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1442:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1440:/ apply.arg");
-       argtab[3].bp_long = 1440;
+       MELT_LOCATION("warmelt-genobj.melt:1442:/ apply.arg");
+       argtab[3].bp_long = 1442;
        /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1440:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1442:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1440:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1442:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1440:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1442:/ cppif.else");
     /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1441:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1441:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1443:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1443:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1441:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1443:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1441:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1443:/ apply.arg");
        argtab[0].bp_cstring =  "compilobj locsymocc null sbnd; sym=";
-       MELT_LOCATION("warmelt-genobj.melt:1441:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1443:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
-       MELT_LOCATION("warmelt-genobj.melt:1441:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1443:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1441:/ apply.arg");
-       argtab[3].bp_long = 1441;
+       MELT_LOCATION("warmelt-genobj.melt:1443:/ apply.arg");
+       argtab[3].bp_long = 1443;
        /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SYM__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1441:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1443:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1441:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1443:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1441:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1443:/ cppif.else");
     /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1443:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1443:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1445:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1445:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1443:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1445:/ cond");
       /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1443:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1445:/ cond.then");
       /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1443:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1445:/ cond.else");
       
-       MELT_LOCATION("warmelt-genobj.melt:1443:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1445:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1443:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1445:/ locexp");
          melt_assert_failed(( "locsymocc without binding"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1443)?(1443):__LINE__, __FUNCTION__);
+  (1445)?(1445):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
@@ -12657,130 +12655,130 @@ MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
       ;
       /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1443:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1445:/ clear");
       /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1443:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1445:/ cppif.else");
     /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1439:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1441:/ block");
     /*block*/{
      /*_.PROGN___V22*/ curfptr[20] = /*_.IFCPP___V20*/ curfptr[18];;}
     ;
     /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V22*/ curfptr[20];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1438:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1440:/ clear");
     /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1438:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1440:/ clear");
     /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1438:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1440:/ clear");
     /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1438:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1440:/ clear");
     /*clear*/ /*_.PROGN___V22*/ curfptr[20] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1438:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1440:/ cond.else");
   
    /*_.IF___V15*/ curfptr[14] = NULL;;
    }
   ;
   /*_#NULL__L6*/ curfnum[3] = 
    ((/*_.OVAR__V14*/ curfptr[13]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:1445:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1447:/ cond");
   /*cond*/ if (/*_#NULL__L6*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1445:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1445:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1447:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1447:/ block");
    /*block*/{
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1447:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1447:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1449:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1449:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1447:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1449:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1447:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1449:/ apply.arg");
        argtab[0].bp_cstring =  "compilobj locsymocc null ovar sbnd";
-       MELT_LOCATION("warmelt-genobj.melt:1447:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1449:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-       MELT_LOCATION("warmelt-genobj.melt:1447:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1449:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1447:/ apply.arg");
-       argtab[3].bp_long = 1447;
+       MELT_LOCATION("warmelt-genobj.melt:1449:/ apply.arg");
+       argtab[3].bp_long = 1449;
        /*_.DEBUG_MSG_FUN__V25*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SBND__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V24*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[18];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1449:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1449:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[18] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1447:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1449:/ cppif.else");
     /*_.IFCPP___V24*/ curfptr[16] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1450:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1450:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1452:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1452:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
        callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1450:/ apply");
+      MELT_LOCATION("warmelt-genobj.melt:1452:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1450:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1452:/ apply.arg");
        argtab[0].bp_cstring =  "compilobj locsymocc null ovar lsyo";
-       MELT_LOCATION("warmelt-genobj.melt:1450:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1452:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-       MELT_LOCATION("warmelt-genobj.melt:1450:/ apply.arg");
+       MELT_LOCATION("warmelt-genobj.melt:1452:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1450:/ apply.arg");
-       argtab[3].bp_long = 1450;
+       MELT_LOCATION("warmelt-genobj.melt:1452:/ apply.arg");
+       argtab[3].bp_long = 1452;
        /*_.DEBUG_MSG_FUN__V27*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LSYO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V26*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[18];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1450:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1452:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1450:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1452:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[18] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1450:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1452:/ cppif.else");
     /*_.IFCPP___V26*/ curfptr[20] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1451:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1451:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1453:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1453:/ block");
      /*block*/{
       /*_#__L9*/ curfnum[6] = 
        ((/*_.OTY__V12*/ curfptr[11]) == ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
-      MELT_LOCATION("warmelt-genobj.melt:1451:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1453:/ cond");
       /*cond*/ if (/*_#__L9*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1451:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1453:/ cond.then");
       /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1451:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1453:/ cond.else");
       
-       MELT_LOCATION("warmelt-genobj.melt:1451:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1453:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1451:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1453:/ locexp");
          melt_assert_failed(( "compilobj locsymocc null ovar without ctype_void"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1451)?(1451):__LINE__, __FUNCTION__);
+  (1453)?(1453):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
@@ -12791,56 +12789,56 @@ MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
       ;
       /*_.IFCPP___V28*/ curfptr[18] = /*_.IFELSE___V29*/ curfptr[28];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1451:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1453:/ clear");
       /*clear*/ /*_#__L9*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1451:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1453:/ clear");
       /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1451:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1453:/ cppif.else");
     /*_.IFCPP___V28*/ curfptr[18] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1446:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1448:/ block");
     /*block*/{
      /*_.PROGN___V30*/ curfptr[28] = /*_.IFCPP___V28*/ curfptr[18];;}
     ;
     /*_.IFELSE___V23*/ curfptr[15] = /*_.PROGN___V30*/ curfptr[28];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1445:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
     /*clear*/ /*_.IFCPP___V24*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1445:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
     /*clear*/ /*_.IFCPP___V26*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1445:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
     /*clear*/ /*_.IFCPP___V28*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1445:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
     /*clear*/ /*_.PROGN___V30*/ curfptr[28] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1445:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1447:/ cond.else");
   
-   MELT_LOCATION("warmelt-genobj.melt:1445:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1447:/ block");
    /*block*/{
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1453:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1453:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1455:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1455:/ block");
      /*block*/{
       /*_#IS_A__L10*/ curfnum[6] = 
        melt_is_instance_of((melt_ptr_t)(/*_.OVAR__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-genobj.melt:1453:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1455:/ cond");
       /*cond*/ if (/*_#IS_A__L10*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1453:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1455:/ cond.then");
       /*_.IFELSE___V32*/ curfptr[20] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1453:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1455:/ cond.else");
       
-       MELT_LOCATION("warmelt-genobj.melt:1453:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1455:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1453:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1455:/ locexp");
          melt_assert_failed(( "compilobj locsymocc check ovar"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1453)?(1453):__LINE__, __FUNCTION__);
+  (1455)?(1455):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V32*/ curfptr[20] = 0 ;}
@@ -12851,68 +12849,68 @@ MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
       ;
       /*_.IFCPP___V31*/ curfptr[16] = /*_.IFELSE___V32*/ curfptr[20];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1453:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1455:/ clear");
       /*clear*/ /*_#IS_A__L10*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1453:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1455:/ clear");
       /*clear*/ /*_.IFELSE___V32*/ curfptr[20] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1453:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1455:/ cppif.else");
     /*_.IFCPP___V31*/ curfptr[16] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     /*_.IFELSE___V23*/ curfptr[15] = /*_.IFCPP___V31*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1445:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1447:/ clear");
     /*clear*/ /*_.IFCPP___V31*/ curfptr[16] = 0 ;}
    ;
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1455:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1457:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.OVAR__V14*/ curfptr[13];;
-   MELT_LOCATION("warmelt-genobj.melt:1455:/ finalreturn");
+   MELT_LOCATION("warmelt-genobj.melt:1457:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V33*/ curfptr[18];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.LOCMAP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.SYM__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.OTY__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.SBND__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.OVAR__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_#NULL__L6*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1426:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1428:/ clear");
   /*clear*/ /*_.RETURN___V33*/ curfptr[18] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1423:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:1423:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1425:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1423:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1423:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1423:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ clear");
  /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -12973,11 +12971,11 @@ melt_trace_start("COMPILOBJ_NREP_CLOSEDOCC", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1460:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ getarg");
  /*_.NCLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1460:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -12986,29 +12984,29 @@ melt_trace_start("COMPILOBJ_NREP_CLOSEDOCC", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1462:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1461:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1461:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1463:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1463:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CLOSEDOCC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1461:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1463:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1461:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1463:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1461:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1463:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1461:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1463:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1461:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1463:/ locexp");
       melt_assert_failed(( "check nclo"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1461)?(1461):__LINE__, __FUNCTION__);
+  (1463)?(1463):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -13019,37 +13017,37 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1461:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1463:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1461:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1463:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1461:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1463:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1462:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1462:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1464:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1464:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1462:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1464:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1462:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1464:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1462:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1464:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1462:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1464:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1462:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1464:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1462)?(1462):__LINE__, __FUNCTION__);
+  (1464)?(1464):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -13060,65 +13058,65 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1462:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1464:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1462:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1464:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1462:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1464:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1463:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1463:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1465:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1465:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1463:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1465:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1463:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1465:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj closedocc nclo";
-    MELT_LOCATION("warmelt-genobj.melt:1463:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1465:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1463:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1465:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1463:/ apply.arg");
-    argtab[3].bp_long = 1463;
+    MELT_LOCATION("warmelt-genobj.melt:1465:/ apply.arg");
+    argtab[3].bp_long = 1465;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1463:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1463:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1463:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1465:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1465:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1467:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1466:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1468:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1467:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1469:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.OSYM__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1468:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1470:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.OBIND__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1469:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1471:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 4, "NCLOC_PROCS");/*_.CPROCS__V14*/ curfptr[13] = slot; };
   ;
@@ -13126,31 +13124,31 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
    (melt_list_last((melt_ptr_t)(/*_.CPROCS__V14*/ curfptr[13])));;
   /*_.LASTCPROC__V16*/ curfptr[15] = 
    (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-genobj.melt:1471:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1473:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V17*/ curfptr[16] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1476:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1476:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1478:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1478:/ block");
    /*block*/{
     /*_#IS_A__L4*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1476:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1478:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1476:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1478:/ cond.then");
     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1476:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1478:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1476:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1478:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1476:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1478:/ locexp");
        melt_assert_failed(( "check lastcproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1476)?(1476):__LINE__, __FUNCTION__);
+  (1478)?(1478):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
@@ -13161,44 +13159,44 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
     ;
     /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1476:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1478:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1476:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1478:/ clear");
     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1476:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1478:/ cppif.else");
   /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1477:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1479:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1477:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1479:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCPROC__V16*/ curfptr[15]), 4, "NRPRO_CLOSEDB");/*_.CLOBLIS__V21*/ curfptr[20] = slot; };
    ;
    /*_#CLORANK__L5*/ curfnum[0] = -1;;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1480:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1480:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1482:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1482:/ block");
     /*block*/{
      /*_#IS_LIST__L6*/ curfnum[5] = 
       (melt_magic_discr((melt_ptr_t)(/*_.CLOBLIS__V21*/ curfptr[20])) == OBMAG_LIST);;
-     MELT_LOCATION("warmelt-genobj.melt:1480:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1482:/ cond");
      /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1480:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1482:/ cond.then");
      /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1480:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1482:/ cond.else");
      
-      MELT_LOCATION("warmelt-genobj.melt:1480:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1482:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1480:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1482:/ locexp");
         melt_assert_failed(( "check cloblis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1480)?(1480):__LINE__, __FUNCTION__);
+  (1482)?(1482):__LINE__, __FUNCTION__);
 ;}
         ;
         /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
@@ -13209,41 +13207,41 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
      ;
      /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1480:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1482:/ clear");
      /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1480:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1482:/ clear");
      /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1480:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1482:/ cppif.else");
    /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-genobj.melt:1481:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1483:/ block");
    /*block*/{
     /*_.CURPAIR__V25*/ curfptr[24] = 
      (melt_list_first((melt_ptr_t)(/*_.CLOBLIS__V21*/ curfptr[20])));;
     /*_#CURANK__L7*/ curfnum[5] = 0;;
-    MELT_LOCATION("warmelt-genobj.melt:1484:/ loop");
-    /*loop*/{ labloop_LOOPLIS_1:;MELT_LOCATION("warmelt-genobj.melt:1484:/ loopbody");
+    MELT_LOCATION("warmelt-genobj.melt:1486:/ loop");
+    /*loop*/{ labloop_LOOPLIS_1:;MELT_LOCATION("warmelt-genobj.melt:1486:/ loopbody");
     
-     MELT_LOCATION("warmelt-genobj.melt:1484:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1486:/ block");
      /*block*/{
       /*_#IS_PAIR__L8*/ curfnum[7] = 
        (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V25*/ curfptr[24])) == OBMAG_PAIR);;
       /*_#NOT__L9*/ curfnum[8] = 
        (!(/*_#IS_PAIR__L8*/ curfnum[7]));;
-      MELT_LOCATION("warmelt-genobj.melt:1486:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1488:/ cond");
       /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1486:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:1486:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1488:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1488:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1486:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1488:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1486:/ compute");
+         MELT_LOCATION("warmelt-genobj.melt:1488:/ compute");
          /*_.LOOPLIS__V27*/ curfptr[26] = NULL;;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1486:/ exit");
+         MELT_LOCATION("warmelt-genobj.melt:1488:/ exit");
          /*exit*/{
           goto labexit_LOOPLIS_1;}
          ;}
@@ -13252,97 +13250,97 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
        ;
       } /*noelse*/
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1487:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1489:/ block");
       /*block*/{
        /*_.CURBIND__V28*/ curfptr[27] = 
         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V25*/ curfptr[24])));;
        /*_#__L11*/ curfnum[10] = 
         ((/*_.CURBIND__V28*/ curfptr[27]) == (/*_.OBIND__V13*/ curfptr[12]));;
-       MELT_LOCATION("warmelt-genobj.melt:1488:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1490:/ cond");
        /*cond*/ if (/*_#__L11*/ curfnum[10]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1488:/ cond.then");
-       MELT_LOCATION("warmelt-genobj.melt:1488:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1490:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1490:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1490:/ compute");
+         MELT_LOCATION("warmelt-genobj.melt:1492:/ compute");
          /*_#CLORANK__L5*/ curfnum[0] = /*_#SETQ___L12*/ curfnum[11] = /*_#CURANK__L7*/ curfnum[5];;
-         MELT_LOCATION("warmelt-genobj.melt:1491:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1493:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:1491:/ compute");
+          MELT_LOCATION("warmelt-genobj.melt:1493:/ compute");
           /*_.LOOPLIS__V27*/ curfptr[26] = NULL;;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1491:/ exit");
+          MELT_LOCATION("warmelt-genobj.melt:1493:/ exit");
           /*exit*/{
            goto labexit_LOOPLIS_1;}
           ;}
          ;
-         MELT_LOCATION("warmelt-genobj.melt:1489:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1491:/ block");
          /*block*/{}
          ;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1488:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1490:/ clear");
          /*clear*/ /*_#SETQ___L12*/ curfnum[11] = 0 ;}
         ;
        } /*noelse*/
        ;
        /*_.PAIR_TAIL__V29*/ curfptr[28] = 
         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V25*/ curfptr[24])));;
-       MELT_LOCATION("warmelt-genobj.melt:1492:/ compute");
+       MELT_LOCATION("warmelt-genobj.melt:1494:/ compute");
        /*_.CURPAIR__V25*/ curfptr[24] = /*_.SETQ___V30*/ curfptr[29] = /*_.PAIR_TAIL__V29*/ curfptr[28];;
        /*_#I__L13*/ curfnum[11] = 
         ((/*_#CURANK__L7*/ curfnum[5]) + (1));;
-       MELT_LOCATION("warmelt-genobj.melt:1493:/ compute");
+       MELT_LOCATION("warmelt-genobj.melt:1495:/ compute");
        /*_#CURANK__L7*/ curfnum[5] = /*_#SETQ___L14*/ curfnum[13] = /*_#I__L13*/ curfnum[11];;
        /*_#LET___L10*/ curfnum[9] = /*_#SETQ___L14*/ curfnum[13];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1487:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1489:/ clear");
        /*clear*/ /*_.CURBIND__V28*/ curfptr[27] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1487:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1489:/ clear");
        /*clear*/ /*_#__L11*/ curfnum[10] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1487:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1489:/ clear");
        /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1487:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1489:/ clear");
        /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1487:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1489:/ clear");
        /*clear*/ /*_#I__L13*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1487:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1489:/ clear");
        /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;}
       ;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1484:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1486:/ clear");
       /*clear*/ /*_#IS_PAIR__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1484:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1486:/ clear");
       /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1484:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1486:/ clear");
       /*clear*/ /*_#LET___L10*/ curfnum[9] = 0 ;}
      ;
      ;
       goto labloop_LOOPLIS_1;
-      labexit_LOOPLIS_1:;MELT_LOCATION("warmelt-genobj.melt:1484:/ loopepilog");
+      labexit_LOOPLIS_1:;MELT_LOCATION("warmelt-genobj.melt:1486:/ loopepilog");
     /*loopepilog*/
      /*_.FOREVER___V26*/ curfptr[25] = /*_.LOOPLIS__V27*/ curfptr[26];;
      }
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1495:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1495:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1497:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1497:/ block");
      /*block*/{
       /*_#I__L15*/ curfnum[10] = 
        ((/*_#CLORANK__L5*/ curfnum[0]) >= (0));;
-      MELT_LOCATION("warmelt-genobj.melt:1495:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1497:/ cond");
       /*cond*/ if (/*_#I__L15*/ curfnum[10]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1495:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1497:/ cond.then");
       /*_.IFELSE___V32*/ curfptr[28] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1495:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1497:/ cond.else");
       
-       MELT_LOCATION("warmelt-genobj.melt:1495:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1497:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1495:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1497:/ locexp");
          melt_assert_failed(( "check good closed rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1495)?(1495):__LINE__, __FUNCTION__);
+  (1497)?(1497):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V32*/ curfptr[28] = 0 ;}
@@ -13353,51 +13351,51 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
       ;
       /*_.IFCPP___V31*/ curfptr[27] = /*_.IFELSE___V32*/ curfptr[28];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1495:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1497:/ clear");
       /*clear*/ /*_#I__L15*/ curfnum[10] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1495:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1497:/ clear");
       /*clear*/ /*_.IFELSE___V32*/ curfptr[28] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1495:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1497:/ cppif.else");
     /*_.IFCPP___V31*/ curfptr[27] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1496:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1498:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1497:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1499:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLO__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.NCLOTYP__V34*/ curfptr[28] = slot; };
      ;
      /*_.MAKE_INTEGERBOX__V35*/ curfptr[34] = 
       (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#CLORANK__L5*/ curfnum[0])));;
-     MELT_LOCATION("warmelt-genobj.melt:1504:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1506:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OSYM__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1499:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1501:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1499:/ rawallocobj");
+      MELT_LOCATION("warmelt-genobj.melt:1501:/ rawallocobj");
       /*rawallocobj*/ { melt_ptr_t newobj = 0;
        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLOCCV*/ curfrout->tabval[4])), (4), "CLASS_OBJCLOCCV");/*_.INST__V38*/ curfptr[37] =
        newobj; };
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1499:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1501:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), (/*_.NCLOTYP__V34*/ curfptr[28]), "OBV_TYPE");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1499:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1501:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBC_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.MAKE_INTEGERBOX__V35*/ curfptr[34]), "OBC_OFF");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1499:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1501:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBC_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.LASTCPROC__V16*/ curfptr[15]), "OBC_PROC");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1499:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1501:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBC_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.NAMED_NAME__V36*/ curfptr[35]), "OBC_NAME");
@@ -13406,25 +13404,25 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1506:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1506:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1508:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1508:/ block");
       /*block*/{
        /*_#IS_A__L16*/ curfnum[11] = 
         melt_is_instance_of((melt_ptr_t)(/*_.NCLOTYP__V34*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
-       MELT_LOCATION("warmelt-genobj.melt:1506:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1508:/ cond");
        /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1506:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1508:/ cond.then");
        /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1506:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1508:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1506:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1508:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1506:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1508:/ locexp");
           melt_assert_failed(( "check nclotyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1506)?(1506):__LINE__, __FUNCTION__);
+  (1508)?(1508):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
@@ -13435,125 +13433,125 @@ MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
        ;
        /*_.IFCPP___V39*/ curfptr[38] = /*_.IFELSE___V40*/ curfptr[39];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1506:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1508:/ clear");
        /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1506:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1508:/ clear");
        /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1506:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1508:/ cppif.else");
      /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1507:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1507:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1509:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1509:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L17*/ curfnum[13] = 
         callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1507:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1509:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1507:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1509:/ apply.arg");
         argtab[0].bp_cstring =  "compilobj closedocc result ocloccv";
-        MELT_LOCATION("warmelt-genobj.melt:1507:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1509:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[13];
-        MELT_LOCATION("warmelt-genobj.melt:1507:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1509:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1507:/ apply.arg");
-        argtab[3].bp_long = 1507;
+        MELT_LOCATION("warmelt-genobj.melt:1509:/ apply.arg");
+        argtab[3].bp_long = 1509;
         /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCLOCCV__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1507:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1509:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1507:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1509:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1507:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1509:/ cppif.else");
      /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      /*_.LET___V33*/ curfptr[29] = /*_.OCLOCCV__V37*/ curfptr[36];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1496:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1498:/ clear");
      /*clear*/ /*_.NCLOTYP__V34*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1496:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1498:/ clear");
      /*clear*/ /*_.MAKE_INTEGERBOX__V35*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1496:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1498:/ clear");
      /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1496:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1498:/ clear");
      /*clear*/ /*_.OCLOCCV__V37*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1496:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1498:/ clear");
      /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1496:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1498:/ clear");
      /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;}
     ;
     /*_.LET___V24*/ curfptr[22] = /*_.LET___V33*/ curfptr[29];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1481:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1483:/ clear");
     /*clear*/ /*_.CURPAIR__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1481:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1483:/ clear");
     /*clear*/ /*_#CURANK__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1481:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1483:/ clear");
     /*clear*/ /*_.FOREVER___V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1481:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1483:/ clear");
     /*clear*/ /*_.IFCPP___V31*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1481:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1483:/ clear");
     /*clear*/ /*_.LET___V33*/ curfptr[29] = 0 ;}
    ;
    /*_.LET___V20*/ curfptr[18] = /*_.LET___V24*/ curfptr[22];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1477:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1479:/ clear");
    /*clear*/ /*_.CLOBLIS__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1477:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1479:/ clear");
    /*clear*/ /*_#CLORANK__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1477:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1479:/ clear");
    /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1477:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1479:/ clear");
    /*clear*/ /*_.LET___V24*/ curfptr[22] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V20*/ curfptr[18];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.OSYM__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.OBIND__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.CPROCS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.LIST_LAST__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.LASTCPROC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.NLOC__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1465:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1467:/ clear");
   /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1460:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1460:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1462:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1460:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1460:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1460:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1460:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -13614,11 +13612,11 @@ melt_trace_start("COMPILOBJ_NREP_CONSTOCC", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1514:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ getarg");
  /*_.NCNST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1514:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -13627,29 +13625,29 @@ melt_trace_start("COMPILOBJ_NREP_CONSTOCC", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1516:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1515:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1515:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1517:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1517:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1515:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1517:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1515:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1517:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1515:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1517:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1515:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1517:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1515:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1517:/ locexp");
       melt_assert_failed(( "check ncnst"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1515)?(1515):__LINE__, __FUNCTION__);
+  (1517)?(1517):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -13660,37 +13658,37 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1515:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1517:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1515:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1517:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1515:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1517:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1516:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1516:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1518:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1518:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1516:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1518:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1516:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1518:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1516:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1518:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1516:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1518:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1516:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1518:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1516)?(1516):__LINE__, __FUNCTION__);
+  (1518)?(1518):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -13701,61 +13699,61 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1516:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1518:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1516:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1518:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1516:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1518:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1517:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1517:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1519:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1519:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1517:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1519:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1517:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1519:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_constocc ncnst";
-    MELT_LOCATION("warmelt-genobj.melt:1517:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1519:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1517:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1519:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1517:/ apply.arg");
-    argtab[3].bp_long = 1517;
+    MELT_LOCATION("warmelt-genobj.melt:1519:/ apply.arg");
+    argtab[3].bp_long = 1519;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1517:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1517:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1517:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1519:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1519:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1521:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1520:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1522:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1521:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1523:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.OSYM__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1522:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1524:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 4, "NCLOC_PROCS");/*_.CPROCS__V13*/ curfptr[12] = slot; };
   ;
@@ -13763,65 +13761,65 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
    (melt_list_last((melt_ptr_t)(/*_.CPROCS__V13*/ curfptr[12])));;
   /*_.LASTCPROC__V15*/ curfptr[14] = 
    (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-genobj.melt:1524:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1526:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V16*/ curfptr[15] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1528:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1528:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1530:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1530:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1528:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1530:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1528:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1530:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_constocc lastcproc";
-     MELT_LOCATION("warmelt-genobj.melt:1528:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1530:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1528:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1530:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1528:/ apply.arg");
-     argtab[3].bp_long = 1528;
+     MELT_LOCATION("warmelt-genobj.melt:1530:/ apply.arg");
+     argtab[3].bp_long = 1530;
      /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LASTCPROC__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1528:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1530:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1528:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1530:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1528:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1530:/ cppif.else");
   /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1529:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1529:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1531:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1531:/ block");
    /*block*/{
     /*_#IS_A__L5*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.LASTCPROC__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1529:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1531:/ cond");
     /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1529:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1531:/ cond.then");
     /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1529:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1531:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1529:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1531:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1529:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1531:/ locexp");
        melt_assert_failed(( "check lastcproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1529)?(1529):__LINE__, __FUNCTION__);
+  (1531)?(1531):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
@@ -13832,44 +13830,44 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
     ;
     /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1529:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1531:/ clear");
     /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1529:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1531:/ clear");
     /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1529:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1531:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1530:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1532:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1530:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1532:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCPROC__V15*/ curfptr[14]), 5, "NRPRO_CONST");/*_.CNSTLIS__V22*/ curfptr[21] = slot; };
    ;
    /*_#CNSTRANK__L6*/ curfnum[0] = -1;;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1533:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1533:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1535:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1535:/ block");
     /*block*/{
      /*_#IS_LIST__L7*/ curfnum[6] = 
       (melt_magic_discr((melt_ptr_t)(/*_.CNSTLIS__V22*/ curfptr[21])) == OBMAG_LIST);;
-     MELT_LOCATION("warmelt-genobj.melt:1533:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1535:/ cond");
      /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1533:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1535:/ cond.then");
      /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1533:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1535:/ cond.else");
      
-      MELT_LOCATION("warmelt-genobj.melt:1533:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1535:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1533:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1535:/ locexp");
         melt_assert_failed(( "check cnstlis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1533)?(1533):__LINE__, __FUNCTION__);
+  (1535)?(1535):__LINE__, __FUNCTION__);
 ;}
         ;
         /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
@@ -13880,41 +13878,41 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
      ;
      /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1533:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1535:/ clear");
      /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1533:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1535:/ clear");
      /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1533:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1535:/ cppif.else");
    /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-genobj.melt:1534:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1536:/ block");
    /*block*/{
     /*_.CURPAIR__V26*/ curfptr[25] = 
      (melt_list_first((melt_ptr_t)(/*_.CNSTLIS__V22*/ curfptr[21])));;
     /*_#CURANK__L8*/ curfnum[6] = 0;;
-    MELT_LOCATION("warmelt-genobj.melt:1537:/ loop");
-    /*loop*/{ labloop_LOOPLIS_2:;MELT_LOCATION("warmelt-genobj.melt:1537:/ loopbody");
+    MELT_LOCATION("warmelt-genobj.melt:1539:/ loop");
+    /*loop*/{ labloop_LOOPLIS_2:;MELT_LOCATION("warmelt-genobj.melt:1539:/ loopbody");
     
-     MELT_LOCATION("warmelt-genobj.melt:1537:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1539:/ block");
      /*block*/{
       /*_#IS_PAIR__L9*/ curfnum[8] = 
        (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V26*/ curfptr[25])) == OBMAG_PAIR);;
       /*_#NOT__L10*/ curfnum[9] = 
        (!(/*_#IS_PAIR__L9*/ curfnum[8]));;
-      MELT_LOCATION("warmelt-genobj.melt:1539:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1541:/ cond");
       /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1539:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:1539:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1541:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1541:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:1539:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1541:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1539:/ compute");
+         MELT_LOCATION("warmelt-genobj.melt:1541:/ compute");
          /*_.LOOPLIS__V28*/ curfptr[27] = NULL;;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1539:/ exit");
+         MELT_LOCATION("warmelt-genobj.melt:1541:/ exit");
          /*exit*/{
           goto labexit_LOOPLIS_2;}
          ;}
@@ -13923,97 +13921,97 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
        ;
       } /*noelse*/
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1540:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1542:/ block");
       /*block*/{
        /*_.CURELEM__V29*/ curfptr[28] = 
         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V26*/ curfptr[25])));;
        /*_#__L12*/ curfnum[11] = 
         ((/*_.CURELEM__V29*/ curfptr[28]) == (/*_.NCNST__V2*/ curfptr[1]));;
-       MELT_LOCATION("warmelt-genobj.melt:1541:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1543:/ cond");
        /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1541:/ cond.then");
-       MELT_LOCATION("warmelt-genobj.melt:1541:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1543:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1543:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1543:/ compute");
+         MELT_LOCATION("warmelt-genobj.melt:1545:/ compute");
          /*_#CNSTRANK__L6*/ curfnum[0] = /*_#SETQ___L13*/ curfnum[12] = /*_#CURANK__L8*/ curfnum[6];;
-         MELT_LOCATION("warmelt-genobj.melt:1544:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1546:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:1544:/ compute");
+          MELT_LOCATION("warmelt-genobj.melt:1546:/ compute");
           /*_.LOOPLIS__V28*/ curfptr[27] = NULL;;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1544:/ exit");
+          MELT_LOCATION("warmelt-genobj.melt:1546:/ exit");
           /*exit*/{
            goto labexit_LOOPLIS_2;}
           ;}
          ;
-         MELT_LOCATION("warmelt-genobj.melt:1542:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1544:/ block");
          /*block*/{}
          ;
          /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1541:/ clear");
+         MELT_LOCATION("warmelt-genobj.melt:1543:/ clear");
          /*clear*/ /*_#SETQ___L13*/ curfnum[12] = 0 ;}
         ;
        } /*noelse*/
        ;
        /*_.PAIR_TAIL__V30*/ curfptr[29] = 
         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V26*/ curfptr[25])));;
-       MELT_LOCATION("warmelt-genobj.melt:1545:/ compute");
+       MELT_LOCATION("warmelt-genobj.melt:1547:/ compute");
        /*_.CURPAIR__V26*/ curfptr[25] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_TAIL__V30*/ curfptr[29];;
        /*_#I__L14*/ curfnum[12] = 
         ((/*_#CURANK__L8*/ curfnum[6]) + (1));;
-       MELT_LOCATION("warmelt-genobj.melt:1546:/ compute");
+       MELT_LOCATION("warmelt-genobj.melt:1548:/ compute");
        /*_#CURANK__L8*/ curfnum[6] = /*_#SETQ___L15*/ curfnum[14] = /*_#I__L14*/ curfnum[12];;
        /*_#LET___L11*/ curfnum[10] = /*_#SETQ___L15*/ curfnum[14];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1540:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1542:/ clear");
        /*clear*/ /*_.CURELEM__V29*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1540:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1542:/ clear");
        /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1540:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1542:/ clear");
        /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[29] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1540:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1542:/ clear");
        /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1540:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1542:/ clear");
        /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1540:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1542:/ clear");
        /*clear*/ /*_#SETQ___L15*/ curfnum[14] = 0 ;}
       ;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1537:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1539:/ clear");
       /*clear*/ /*_#IS_PAIR__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1537:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1539:/ clear");
       /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1537:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1539:/ clear");
       /*clear*/ /*_#LET___L11*/ curfnum[10] = 0 ;}
      ;
      ;
       goto labloop_LOOPLIS_2;
-      labexit_LOOPLIS_2:;MELT_LOCATION("warmelt-genobj.melt:1537:/ loopepilog");
+      labexit_LOOPLIS_2:;MELT_LOCATION("warmelt-genobj.melt:1539:/ loopepilog");
     /*loopepilog*/
      /*_.FOREVER___V27*/ curfptr[26] = /*_.LOOPLIS__V28*/ curfptr[27];;
      }
     ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1548:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1548:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1550:/ cppif.then");
+    MELT_LOCATION("warmelt-genobj.melt:1550:/ block");
      /*block*/{
       /*_#I__L16*/ curfnum[11] = 
        ((/*_#CNSTRANK__L6*/ curfnum[0]) >= (0));;
-      MELT_LOCATION("warmelt-genobj.melt:1548:/ cond");
+      MELT_LOCATION("warmelt-genobj.melt:1550:/ cond");
       /*cond*/ if (/*_#I__L16*/ curfnum[11]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1548:/ cond.then");
+      MELT_LOCATION("warmelt-genobj.melt:1550:/ cond.then");
       /*_.IFELSE___V33*/ curfptr[29] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1548:/ cond.else");
+      } else {MELT_LOCATION("warmelt-genobj.melt:1550:/ cond.else");
       
-       MELT_LOCATION("warmelt-genobj.melt:1548:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1550:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-genobj.melt:1548:/ locexp");
+         MELT_LOCATION("warmelt-genobj.melt:1550:/ locexp");
          melt_assert_failed(( "check good const rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1548)?(1548):__LINE__, __FUNCTION__);
+  (1550)?(1550):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V33*/ curfptr[29] = 0 ;}
@@ -14024,51 +14022,51 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
       ;
       /*_.IFCPP___V32*/ curfptr[28] = /*_.IFELSE___V33*/ curfptr[29];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1548:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1550:/ clear");
       /*clear*/ /*_#I__L16*/ curfnum[11] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1548:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1550:/ clear");
       /*clear*/ /*_.IFELSE___V33*/ curfptr[29] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1548:/ cppif.else");
+     MELT_LOCATION("warmelt-genobj.melt:1550:/ cppif.else");
     /*_.IFCPP___V32*/ curfptr[28] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
-    MELT_LOCATION("warmelt-genobj.melt:1549:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1551:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1550:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1552:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.NCNST__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.CNSTYP__V35*/ curfptr[29] = slot; };
      ;
      /*_.MAKE_INTEGERBOX__V36*/ curfptr[35] = 
       (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#CNSTRANK__L6*/ curfnum[0])));;
-     MELT_LOCATION("warmelt-genobj.melt:1557:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1559:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OSYM__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[36] = slot; };
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1552:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1554:/ block");
      /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1552:/ rawallocobj");
+      MELT_LOCATION("warmelt-genobj.melt:1554:/ rawallocobj");
       /*rawallocobj*/ { melt_ptr_t newobj = 0;
        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[4])), (4), "CLASS_OBJCONSTV");/*_.INST__V39*/ curfptr[38] =
        newobj; };
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1552:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1554:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.CNSTYP__V35*/ curfptr[29]), "OBV_TYPE");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1552:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1554:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBC_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.MAKE_INTEGERBOX__V36*/ curfptr[35]), "OBC_OFF");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1552:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1554:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBC_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.LASTCPROC__V15*/ curfptr[14]), "OBC_PROC");
       ;
-      MELT_LOCATION("warmelt-genobj.melt:1552:/ putslot");
+      MELT_LOCATION("warmelt-genobj.melt:1554:/ putslot");
       /*putslot*/
       melt_assertmsg("putslot checkobj @OBC_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.NAMED_NAME__V37*/ curfptr[36]), "OBC_NAME");
@@ -14077,25 +14075,25 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1558:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1558:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1560:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1560:/ block");
       /*block*/{
        /*_#IS_A__L17*/ curfnum[12] = 
         melt_is_instance_of((melt_ptr_t)(/*_.CNSTYP__V35*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
-       MELT_LOCATION("warmelt-genobj.melt:1558:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1560:/ cond");
        /*cond*/ if (/*_#IS_A__L17*/ curfnum[12]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1558:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1560:/ cond.then");
        /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1558:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1560:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1558:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1560:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1558:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1560:/ locexp");
           melt_assert_failed(( "check cnstyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1558)?(1558):__LINE__, __FUNCTION__);
+  (1560)?(1560):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
@@ -14106,125 +14104,125 @@ MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
        ;
        /*_.IFCPP___V40*/ curfptr[39] = /*_.IFELSE___V41*/ curfptr[40];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1558:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1560:/ clear");
        /*clear*/ /*_#IS_A__L17*/ curfnum[12] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1558:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1560:/ clear");
        /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1558:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1560:/ cppif.else");
      /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1559:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1559:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1561:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1561:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 
         callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1559:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1561:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1559:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1561:/ apply.arg");
         argtab[0].bp_cstring =  "compilobj constocc result oconstv";
-        MELT_LOCATION("warmelt-genobj.melt:1559:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1561:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[14];
-        MELT_LOCATION("warmelt-genobj.melt:1559:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1561:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1559:/ apply.arg");
-        argtab[3].bp_long = 1559;
+        MELT_LOCATION("warmelt-genobj.melt:1561:/ apply.arg");
+        argtab[3].bp_long = 1561;
         /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCONSTV__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1559:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1561:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1559:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1561:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1559:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1561:/ cppif.else");
      /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      /*_.LET___V34*/ curfptr[30] = /*_.OCONSTV__V38*/ curfptr[37];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1549:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1551:/ clear");
      /*clear*/ /*_.CNSTYP__V35*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1549:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1551:/ clear");
      /*clear*/ /*_.MAKE_INTEGERBOX__V36*/ curfptr[35] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1549:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1551:/ clear");
      /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1549:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1551:/ clear");
      /*clear*/ /*_.OCONSTV__V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1549:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1551:/ clear");
      /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1549:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1551:/ clear");
      /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;}
     ;
     /*_.LET___V25*/ curfptr[23] = /*_.LET___V34*/ curfptr[30];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1534:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1536:/ clear");
     /*clear*/ /*_.CURPAIR__V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1534:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1536:/ clear");
     /*clear*/ /*_#CURANK__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1534:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1536:/ clear");
     /*clear*/ /*_.FOREVER___V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1534:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1536:/ clear");
     /*clear*/ /*_.IFCPP___V32*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1534:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1536:/ clear");
     /*clear*/ /*_.LET___V34*/ curfptr[30] = 0 ;}
    ;
    /*_.LET___V21*/ curfptr[19] = /*_.LET___V25*/ curfptr[23];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1530:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1532:/ clear");
    /*clear*/ /*_.CNSTLIS__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1530:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1532:/ clear");
    /*clear*/ /*_#CNSTRANK__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1530:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1532:/ clear");
    /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1530:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1532:/ clear");
    /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[19];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.OSYM__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.CPROCS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.LIST_LAST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.LASTCPROC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.NLOC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1519:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1521:/ clear");
   /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1514:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1514:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1516:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1514:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1514:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1514:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1514:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -14285,11 +14283,11 @@ melt_trace_start("COMPILOBJ_NREP_IMPORTEDVAL", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1566:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ getarg");
  /*_.NSVA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1566:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -14298,29 +14296,29 @@ melt_trace_start("COMPILOBJ_NREP_IMPORTEDVAL", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1568:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1567:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1567:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1569:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1569:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1567:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1569:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1567:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1569:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1567:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1569:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1567:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1569:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1567:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1569:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1567)?(1567):__LINE__, __FUNCTION__);
+  (1569)?(1569):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -14331,37 +14329,37 @@ MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1567:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1569:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1567:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1569:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1567:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1569:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1568:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1568:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1570:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1570:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NSVA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1568:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1570:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1568:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1570:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1568:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1570:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1568:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1570:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1568:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1570:/ locexp");
       melt_assert_failed(( "check nsva"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1568)?(1568):__LINE__, __FUNCTION__);
+  (1570)?(1570):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -14372,91 +14370,91 @@ MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1570:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1570:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1568:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1570:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1569:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1569:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1571:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1571:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1569:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1571:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1569:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1571:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_importedval nsva";
-    MELT_LOCATION("warmelt-genobj.melt:1569:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1571:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1569:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1571:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1569:/ apply.arg");
-    argtab[3].bp_long = 1569;
+    MELT_LOCATION("warmelt-genobj.melt:1571:/ apply.arg");
+    argtab[3].bp_long = 1571;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSVA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1569:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1569:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1569:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1571:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1570:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1570:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1572:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1572:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1570:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1572:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1570:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1572:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_importedval gcx";
-    MELT_LOCATION("warmelt-genobj.melt:1570:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1572:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1570:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1572:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1570:/ apply.arg");
-    argtab[3].bp_long = 1570;
+    MELT_LOCATION("warmelt-genobj.melt:1572:/ apply.arg");
+    argtab[3].bp_long = 1572;
     /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1570:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1572:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1570:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1572:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1570:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1572:/ cppif.else");
  /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1571:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1573:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NSVA__V2*/ curfptr[1]), 1, "NIMPORT_SYMB");/*_.VAR__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1572:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1574:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 12, "IGNCX_IMPORTMAP");/*_.IGNCX_IMPORTMAP__V14*/ curfptr[13] = slot; };
   ;
@@ -14464,59 +14462,59 @@ MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.IGNCX_IMPORTMAP__V14*/ curfptr[13]), (meltobject_ptr_t)(/*_.VAR__V13*/ curfptr[12]));;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1574:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1574:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1576:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1576:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1574:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1576:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1574:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1576:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_importedval result olocv";
-     MELT_LOCATION("warmelt-genobj.melt:1574:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1576:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1574:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1576:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1574:/ apply.arg");
-     argtab[3].bp_long = 1574;
+     MELT_LOCATION("warmelt-genobj.melt:1576:/ apply.arg");
+     argtab[3].bp_long = 1576;
      /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOCV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1574:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1576:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1574:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1576:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1574:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1576:/ cppif.else");
   /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1575:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1575:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1577:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1577:/ block");
    /*block*/{
     /*_#IS_A__L6*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.VAR__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1575:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1577:/ cond");
     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1575:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1577:/ cond.then");
     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1575:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1577:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1575:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1577:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1575:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1577:/ locexp");
        melt_assert_failed(( "check var"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1575)?(1575):__LINE__, __FUNCTION__);
+  (1577)?(1577):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
@@ -14527,37 +14525,37 @@ MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
     ;
     /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1575:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1577:/ clear");
     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1575:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1577:/ clear");
     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1575:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1577:/ cppif.else");
   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1576:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1576:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1578:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1578:/ block");
    /*block*/{
     /*_#IS_A__L7*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OLOCV__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-genobj.melt:1576:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1578:/ cond");
     /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1576:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1578:/ cond.then");
     /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1576:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1578:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1576:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1578:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1576:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1578:/ locexp");
        melt_assert_failed(( "check olocv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1576)?(1576):__LINE__, __FUNCTION__);
+  (1578)?(1578):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
@@ -14568,57 +14566,57 @@ MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
     ;
     /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1576:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1578:/ clear");
     /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1576:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1578:/ clear");
     /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1576:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1578:/ cppif.else");
   /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1577:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1579:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.OLOCV__V15*/ curfptr[14];;
-   MELT_LOCATION("warmelt-genobj.melt:1577:/ finalreturn");
+   MELT_LOCATION("warmelt-genobj.melt:1579:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[20];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.VAR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.IGNCX_IMPORTMAP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.OLOCV__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1571:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1573:/ clear");
   /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1566:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:1566:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1568:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1566:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1566:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1566:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1566:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
  /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1566:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ clear");
  /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
 
 ;
@@ -14679,11 +14677,11 @@ melt_trace_start("COMPILOBJ_NREP_QUASICONSTANT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1583:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ getarg");
  /*_.NCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1583:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -14692,29 +14690,29 @@ melt_trace_start("COMPILOBJ_NREP_QUASICONSTANT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1585:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1584:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1584:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1586:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1586:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1584:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1586:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1584:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1586:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1584:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1586:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1584:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1586:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1584:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1586:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1584)?(1584):__LINE__, __FUNCTION__);
+  (1586)?(1586):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -14725,37 +14723,37 @@ MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1584:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1586:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1584:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1586:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1584:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1586:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1585:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1585:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1587:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1587:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASICONSTANT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1585:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1587:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1585:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1587:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1585:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1587:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1585:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1587:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1585:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1587:/ locexp");
       melt_assert_failed(( "check nconst"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1585)?(1585):__LINE__, __FUNCTION__);
+  (1587)?(1587):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -14766,78 +14764,78 @@ MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1585:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1585:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1585:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1587:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1586:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1586:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1588:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1588:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1586:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1588:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1586:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1588:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj quasiconstant nconst";
-    MELT_LOCATION("warmelt-genobj.melt:1586:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1588:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1586:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1588:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1586:/ apply.arg");
-    argtab[3].bp_long = 1586;
+    MELT_LOCATION("warmelt-genobj.melt:1588:/ apply.arg");
+    argtab[3].bp_long = 1588;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1586:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1588:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1586:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1588:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1586:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1588:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1587:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1589:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1588:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1590:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 1, "NCONST_SVAL");/*_.SVAL__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1589:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1591:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 3, "NCONST_DATA");/*_.DATA__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1590:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1592:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCONST__V2*/ curfptr[1]), 2, "NCONST_PROC");/*_.PROC__V14*/ curfptr[13] = slot; };
   ;
   /*_#IS_A__L4*/ curfnum[0] = 
    melt_is_instance_of((melt_ptr_t)(/*_.PROC__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-genobj.melt:1592:/ cond");
+  MELT_LOCATION("warmelt-genobj.melt:1594:/ cond");
   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1592:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1592:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1594:/ cond.then");
+  MELT_LOCATION("warmelt-genobj.melt:1594:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1593:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1595:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ getslot");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.PROC__V14*/ curfptr[13]), 5, "NRPRO_CONST");/*_.CONSTLIST__V17*/ curfptr[16] = slot; };
      ;
@@ -14847,68 +14845,68 @@ MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
      /*_#CURANK__L6*/ curfnum[5] = 0;;
      /*_.NAMBUF__V19*/ curfptr[18] = 
       meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-     MELT_LOCATION("warmelt-genobj.melt:1599:/ loop");
-     /*loop*/{ labloop_CONSTLOOP_1:;MELT_LOCATION("warmelt-genobj.melt:1599:/ loopbody");
+     MELT_LOCATION("warmelt-genobj.melt:1601:/ loop");
+     /*loop*/{ labloop_CONSTLOOP_1:;MELT_LOCATION("warmelt-genobj.melt:1601:/ loopbody");
      
-      MELT_LOCATION("warmelt-genobj.melt:1599:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1601:/ block");
       /*block*/{
        /*_#IS_PAIR__L7*/ curfnum[6] = 
         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V18*/ curfptr[17])) == OBMAG_PAIR);;
-       MELT_LOCATION("warmelt-genobj.melt:1601:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1603:/ cond");
        /*cond*/ if (/*_#IS_PAIR__L7*/ curfnum[6]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1601:/ cond.then");
-       MELT_LOCATION("warmelt-genobj.melt:1601:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1603:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1603:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1602:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1604:/ block");
          /*block*/{
           /*_.CURCONST__V22*/ curfptr[21] = 
            (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V18*/ curfptr[17])));;
           /*_#__L8*/ curfnum[7] = 
            ((/*_.CURCONST__V22*/ curfptr[21]) == (/*_.DATA__V13*/ curfptr[12]));;
-          MELT_LOCATION("warmelt-genobj.melt:1603:/ cond");
+          MELT_LOCATION("warmelt-genobj.melt:1605:/ cond");
           /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
-          MELT_LOCATION("warmelt-genobj.melt:1603:/ cond.then");
-          MELT_LOCATION("warmelt-genobj.melt:1603:/ block");
+          MELT_LOCATION("warmelt-genobj.melt:1605:/ cond.then");
+          MELT_LOCATION("warmelt-genobj.melt:1605:/ block");
            /*block*/{
-            MELT_LOCATION("warmelt-genobj.melt:1605:/ compute");
+            MELT_LOCATION("warmelt-genobj.melt:1607:/ compute");
             /*_#COFF__L5*/ curfnum[4] = /*_#SETQ___L9*/ curfnum[8] = /*_#CURANK__L6*/ curfnum[5];;
-            MELT_LOCATION("warmelt-genobj.melt:1606:/ block");
+            MELT_LOCATION("warmelt-genobj.melt:1608:/ block");
             /*block*/{
-             MELT_LOCATION("warmelt-genobj.melt:1606:/ compute");
+             MELT_LOCATION("warmelt-genobj.melt:1608:/ compute");
              /*_.CONSTLOOP__V21*/ curfptr[20] = NULL;;
              /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:1606:/ exit");
+             MELT_LOCATION("warmelt-genobj.melt:1608:/ exit");
              /*exit*/{
               goto labexit_CONSTLOOP_1;}
              ;}
             ;
-            MELT_LOCATION("warmelt-genobj.melt:1604:/ block");
+            MELT_LOCATION("warmelt-genobj.melt:1606:/ block");
             /*block*/{}
             ;
             /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:1603:/ clear");
+            MELT_LOCATION("warmelt-genobj.melt:1605:/ clear");
             /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;}
            ;
           } /*noelse*/
           ;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1602:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1604:/ clear");
           /*clear*/ /*_.CURCONST__V22*/ curfptr[21] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:1602:/ clear");
+          MELT_LOCATION("warmelt-genobj.melt:1604:/ clear");
           /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;}
          ;
          /*epilog*/}
         ;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1601:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1603:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1601:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1603:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:1608:/ block");
+         MELT_LOCATION("warmelt-genobj.melt:1610:/ block");
          /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:1608:/ compute");
+          MELT_LOCATION("warmelt-genobj.melt:1610:/ compute");
           /*_.CONSTLOOP__V21*/ curfptr[20] = NULL;;
           /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:1608:/ exit");
+          MELT_LOCATION("warmelt-genobj.melt:1610:/ exit");
           /*exit*/{
            goto labexit_CONSTLOOP_1;}
           ;}
@@ -14919,52 +14917,52 @@ MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
        ;
        /*_.PAIR_TAIL__V23*/ curfptr[21] = 
         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V18*/ curfptr[17])));;
-       MELT_LOCATION("warmelt-genobj.melt:1609:/ compute");
+       MELT_LOCATION("warmelt-genobj.melt:1611:/ compute");
        /*_.CURPAIR__V18*/ curfptr[17] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[21];;
        /*_#I__L10*/ curfnum[8] = 
         ((/*_#CURANK__L6*/ curfnum[5]) + (1));;
-       MELT_LOCATION("warmelt-genobj.melt:1610:/ compute");
+       MELT_LOCATION("warmelt-genobj.melt:1612:/ compute");
        /*_#CURANK__L6*/ curfnum[5] = /*_#SETQ___L11*/ curfnum[7] = /*_#I__L10*/ curfnum[8];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1599:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1601:/ clear");
        /*clear*/ /*_#IS_PAIR__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1599:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1601:/ clear");
        /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[21] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1599:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1601:/ clear");
        /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1599:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1601:/ clear");
        /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1599:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1601:/ clear");
        /*clear*/ /*_#SETQ___L11*/ curfnum[7] = 0 ;}
       ;
       ;
        goto labloop_CONSTLOOP_1;
-       labexit_CONSTLOOP_1:;MELT_LOCATION("warmelt-genobj.melt:1599:/ loopepilog");
+       labexit_CONSTLOOP_1:;MELT_LOCATION("warmelt-genobj.melt:1601:/ loopepilog");
      /*loopepilog*/
       /*_.FOREVER___V20*/ curfptr[19] = /*_.CONSTLOOP__V21*/ curfptr[20];;
       }
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1612:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1612:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1614:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1614:/ block");
       /*block*/{
        /*_#I__L12*/ curfnum[6] = 
         ((/*_#COFF__L5*/ curfnum[4]) >= (0));;
-       MELT_LOCATION("warmelt-genobj.melt:1612:/ cond");
+       MELT_LOCATION("warmelt-genobj.melt:1614:/ cond");
        /*cond*/ if (/*_#I__L12*/ curfnum[6]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:1612:/ cond.then");
+       MELT_LOCATION("warmelt-genobj.melt:1614:/ cond.then");
        /*_.IFELSE___V26*/ curfptr[23] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:1612:/ cond.else");
+       } else {MELT_LOCATION("warmelt-genobj.melt:1614:/ cond.else");
        
-        MELT_LOCATION("warmelt-genobj.melt:1612:/ block");
+        MELT_LOCATION("warmelt-genobj.melt:1614:/ block");
         /*block*/{
          /*block*/{
           
           {
-          MELT_LOCATION("warmelt-genobj.melt:1612:/ locexp");
+          MELT_LOCATION("warmelt-genobj.melt:1614:/ locexp");
           melt_assert_failed(( "check coff"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1612)?(1612):__LINE__, __FUNCTION__);
+  (1614)?(1614):__LINE__, __FUNCTION__);
 ;}
           ;
           /*clear*/ /*_.IFELSE___V26*/ curfptr[23] = 0 ;}
@@ -14975,86 +14973,86 @@ MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
        ;
        /*_.IFCPP___V25*/ curfptr[21] = /*_.IFELSE___V26*/ curfptr[23];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1612:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1614:/ clear");
        /*clear*/ /*_#I__L12*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1612:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1614:/ clear");
        /*clear*/ /*_.IFELSE___V26*/ curfptr[23] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1612:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1614:/ cppif.else");
      /*_.IFCPP___V25*/ curfptr[21] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      {
-     MELT_LOCATION("warmelt-genobj.melt:1613:/ locexp");
+     MELT_LOCATION("warmelt-genobj.melt:1615:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "konst_"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-genobj.melt:1614:/ locexp");
+     MELT_LOCATION("warmelt-genobj.melt:1616:/ locexp");
      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), (/*_#COFF__L5*/ curfnum[4]));}
      ;
      /*_#IS_A__L13*/ curfnum[8] = 
       melt_is_instance_of((melt_ptr_t)(/*_.SVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-genobj.melt:1615:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1617:/ cond");
      /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1615:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1615:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1617:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1617:/ block");
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1617:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1619:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "_"));}
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1618:/ getslot");
+       MELT_LOCATION("warmelt-genobj.melt:1620:/ getslot");
        { melt_ptr_t slot=0;
         melt_object_get_field(slot,(melt_ptr_t)(/*_.SVAL__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[23] = slot; };
        ;
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1618:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1620:/ locexp");
        meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]),
   melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[23])));}
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1616:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1618:/ block");
        /*block*/{}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1615:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1617:/ clear");
        /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[23] = 0 ;}
       ;
      } /*noelse*/
      ;
-     MELT_LOCATION("warmelt-genobj.melt:1621:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1623:/ block");
      /*block*/{
       /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 
        (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (/*_#COFF__L5*/ curfnum[4])));;
       /*_.STRBUF2STRING__V30*/ curfptr[29] = 
        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]))));;
-      MELT_LOCATION("warmelt-genobj.melt:1622:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1624:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1622:/ rawallocobj");
+       MELT_LOCATION("warmelt-genobj.melt:1624:/ rawallocobj");
        /*rawallocobj*/ { melt_ptr_t newobj = 0;
         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[6])), (4), "CLASS_OBJCONSTV");/*_.INST__V32*/ curfptr[31] =
         newobj; };
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1622:/ putslot");
+       MELT_LOCATION("warmelt-genobj.melt:1624:/ putslot");
        /*putslot*/
        melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
        melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "OBV_TYPE");
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1622:/ putslot");
+       MELT_LOCATION("warmelt-genobj.melt:1624:/ putslot");
        /*putslot*/
        melt_assertmsg("putslot checkobj @OBC_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
        melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.MAKE_INTEGERBOX__V29*/ curfptr[28]), "OBC_OFF");
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1622:/ putslot");
+       MELT_LOCATION("warmelt-genobj.melt:1624:/ putslot");
        /*putslot*/
        melt_assertmsg("putslot checkobj @OBC_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
        melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.PROC__V14*/ curfptr[13]), "OBC_PROC");
        ;
-       MELT_LOCATION("warmelt-genobj.melt:1622:/ putslot");
+       MELT_LOCATION("warmelt-genobj.melt:1624:/ putslot");
        /*putslot*/
        melt_assertmsg("putslot checkobj @OBC_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
        melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.STRBUF2STRING__V30*/ curfptr[29]), "OBC_NAME");
@@ -15063,186 +15061,186 @@ MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
       ;
       
       #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:1628:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:1628:/ block");
+       MELT_LOCATION("warmelt-genobj.melt:1630:/ cppif.then");
+      MELT_LOCATION("warmelt-genobj.melt:1630:/ block");
        /*block*/{
         /*_#THE_CALLCOUNT__L14*/ curfnum[7] = 
          callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:1628:/ apply");
+        MELT_LOCATION("warmelt-genobj.melt:1630:/ apply");
         /*apply*/{
          union meltparam_un argtab[4];
          memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:1628:/ apply.arg");
+         MELT_LOCATION("warmelt-genobj.melt:1630:/ apply.arg");
          argtab[0].bp_cstring =  "compilobj quasiconstant constv";
-         MELT_LOCATION("warmelt-genobj.melt:1628:/ apply.arg");
+         MELT_LOCATION("warmelt-genobj.melt:1630:/ apply.arg");
          argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[7];
-         MELT_LOCATION("warmelt-genobj.melt:1628:/ apply.arg");
+         MELT_LOCATION("warmelt-genobj.melt:1630:/ apply.arg");
          argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:1628:/ apply.arg");
-         argtab[3].bp_long = 1628;
+         MELT_LOCATION("warmelt-genobj.melt:1630:/ apply.arg");
+         argtab[3].bp_long = 1630;
          /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CONSTV__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
          }
         ;
         /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
         /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1628:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1630:/ clear");
         /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1628:/ clear");
+        MELT_LOCATION("warmelt-genobj.melt:1630:/ clear");
         /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
        
        #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:1628:/ cppif.else");
+       MELT_LOCATION("warmelt-genobj.melt:1630:/ cppif.else");
       /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
        #endif /*ENABLE_CHECKING*/
        ;
-      MELT_LOCATION("warmelt-genobj.melt:1629:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1631:/ block");
       /*block*/{
        /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSTV__V31*/ curfptr[30];;
-       MELT_LOCATION("warmelt-genobj.melt:1629:/ finalreturn");
+       MELT_LOCATION("warmelt-genobj.melt:1631:/ finalreturn");
        ;
        /*finalret*/ goto labend_rout ;}
       ;
       /*_.LET___V28*/ curfptr[23] = /*_.RETURN___V35*/ curfptr[33];;
       /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1621:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1623:/ clear");
       /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1621:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1623:/ clear");
       /*clear*/ /*_.STRBUF2STRING__V30*/ curfptr[29] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1621:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1623:/ clear");
       /*clear*/ /*_.CONSTV__V31*/ curfptr[30] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1621:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1623:/ clear");
       /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1621:/ clear");
+      MELT_LOCATION("warmelt-genobj.melt:1623:/ clear");
       /*clear*/ /*_.RETURN___V35*/ curfptr[33] = 0 ;}
      ;
      /*_.LET___V16*/ curfptr[15] = /*_.LET___V28*/ curfptr[23];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_.CONSTLIST__V17*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_.CURPAIR__V18*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_#COFF__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_#CURANK__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_.NAMBUF__V19*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_.FOREVER___V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_.IFCPP___V25*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1593:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1595:/ clear");
      /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;}
     ;
     /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V16*/ curfptr[15];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1592:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1594:/ clear");
     /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1592:/ cond.else");
+  } else {MELT_LOCATION("warmelt-genobj.melt:1594:/ cond.else");
   
-   MELT_LOCATION("warmelt-genobj.melt:1592:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1594:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1632:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1634:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1632:/ msend");
+     MELT_LOCATION("warmelt-genobj.melt:1634:/ msend");
      /*msend*/{
       union meltparam_un argtab[1];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1632:/ ojbmsend.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1634:/ ojbmsend.arg");
       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
       /*_.ODATA__V37*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.DATA__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1634:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1634:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1636:/ cppif.then");
+     MELT_LOCATION("warmelt-genobj.melt:1636:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 
         callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1634:/ apply");
+       MELT_LOCATION("warmelt-genobj.melt:1636:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1634:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1636:/ apply.arg");
         argtab[0].bp_cstring =  "compilobj quasiconstant odata";
-        MELT_LOCATION("warmelt-genobj.melt:1634:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1636:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[6];
-        MELT_LOCATION("warmelt-genobj.melt:1634:/ apply.arg");
+        MELT_LOCATION("warmelt-genobj.melt:1636:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1634:/ apply.arg");
-        argtab[3].bp_long = 1634;
+        MELT_LOCATION("warmelt-genobj.melt:1636:/ apply.arg");
+        argtab[3].bp_long = 1636;
         /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ODATA__V37*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V38*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[32];;
        /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1634:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1636:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1634:/ clear");
+       MELT_LOCATION("warmelt-genobj.melt:1636:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1634:/ cppif.else");
+      MELT_LOCATION("warmelt-genobj.melt:1636:/ cppif.else");
      /*_.IFCPP___V38*/ curfptr[30] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
-     MELT_LOCATION("warmelt-genobj.melt:1635:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1637:/ block");
      /*block*/{
       /*_.RETVAL___V1*/ curfptr[0] = /*_.ODATA__V37*/ curfptr[29];;
-      MELT_LOCATION("warmelt-genobj.melt:1635:/ finalreturn");
+      MELT_LOCATION("warmelt-genobj.melt:1637:/ finalreturn");
       ;
       /*finalret*/ goto labend_rout ;}
      ;
      /*_.LET___V36*/ curfptr[28] = /*_.RETURN___V40*/ curfptr[33];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1632:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1634:/ clear");
      /*clear*/ /*_.ODATA__V37*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1632:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1634:/ clear");
      /*clear*/ /*_.IFCPP___V38*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1632:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1634:/ clear");
      /*clear*/ /*_.RETURN___V40*/ curfptr[33] = 0 ;}
     ;
     /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V36*/ curfptr[28];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1592:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1594:/ clear");
     /*clear*/ /*_.LET___V36*/ curfptr[28] = 0 ;}
    ;
    }
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V15*/ curfptr[14];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ clear");
   /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ clear");
   /*clear*/ /*_.SVAL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ clear");
   /*clear*/ /*_.DATA__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ clear");
   /*clear*/ /*_.PROC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ clear");
   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1587:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1589:/ clear");
   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1583:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1583:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1585:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1583:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1583:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1583:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1583:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -15303,11 +15301,11 @@ melt_trace_start("COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1642:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ getarg");
  /*_.NQCME__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1642:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -15316,63 +15314,63 @@ melt_trace_start("COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1642:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1644:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1643:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1643:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1645:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1645:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1643:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1645:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1643:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1645:/ apply.arg");
     argtab[0].bp_cstring =  "start of compilobj_nrep_quasiconst_current_module_environment_container";
-    MELT_LOCATION("warmelt-genobj.melt:1643:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1645:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1643:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1645:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1643:/ apply.arg");
-    argtab[3].bp_long = 1643;
+    MELT_LOCATION("warmelt-genobj.melt:1645:/ apply.arg");
+    argtab[3].bp_long = 1645;
     /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1643:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1643:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1643:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1645:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1644:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1644:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1646:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1646:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1644:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1646:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1644:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1646:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1644:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1646:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1644:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1646:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1644:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1646:/ locexp");
       melt_assert_failed(( "check nqme"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1644)?(1644):__LINE__, __FUNCTION__);
+  (1646)?(1646):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -15383,86 +15381,84 @@ MELT_LOCATION("warmelt-genobj.melt:1642:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1644:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1646:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1644:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1646:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1644:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1646:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1645:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1647:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1645:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1647:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
    /*_.ONRES__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILOBJ_NREP_QUASICONSTANT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1646:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1648:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), 4, "NQCMEC_COMMENT");/*_.SCOMM__V10*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1647:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1649:/ block");
   /*block*/{
    /*_.SBUF__V12*/ curfptr[11] = 
     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1648:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1650:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ curfptr[11]), ( "/*quasi.cur.mod.env.cont "));}
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1649:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+   MELT_LOCATION("warmelt-genobj.melt:1651:/ locexp");
    meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBUF__V12*/ curfptr[11]), melt_string_str((melt_ptr_t)(/*_.SCOMM__V10*/ curfptr[9])));}
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1650:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1652:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ curfptr[11]), ( "*/\n"));}
    ;
    /*_.STRBUF2STRING__V13*/ curfptr[12] = 
     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V12*/ curfptr[11]))));;
    /*_.LET___V11*/ curfptr[10] = /*_.STRBUF2STRING__V13*/ curfptr[12];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1649:/ clear");
    /*clear*/ /*_.SBUF__V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1649:/ clear");
    /*clear*/ /*_.STRBUF2STRING__V13*/ curfptr[12] = 0 ;}
   ;
   /*_.STR__V14*/ curfptr[11] = /*_.LET___V11*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:1656:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1658:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NQCME__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V15*/ curfptr[12] = slot; };
   ;
   /*_.MAKE_TUPLE2__V16*/ curfptr[15] = 
    (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.STR__V14*/ curfptr[11]),  (melt_ptr_t)(/*_.ONRES__V9*/ curfptr[8])));;
-  MELT_LOCATION("warmelt-genobj.melt:1654:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1656:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1654:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:1656:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[5])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V18*/ curfptr[17] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1654:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1656:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[6])), "OBV_TYPE");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1654:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1656:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NREP_LOC__V15*/ curfptr[12]), "OBCX_LOC");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1654:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1656:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.MAKE_TUPLE2__V16*/ curfptr[15]), "OBX_CONT");
@@ -15471,79 +15467,79 @@ MELT_LOCATION("warmelt-genobj.melt:1642:/ block");
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1664:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1664:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1666:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1666:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1664:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1666:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1664:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1666:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_quasiconstant_current_module_environment_container result ores";
-     MELT_LOCATION("warmelt-genobj.melt:1664:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1666:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1664:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1666:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1664:/ apply.arg");
-     argtab[3].bp_long = 1664;
+     MELT_LOCATION("warmelt-genobj.melt:1666:/ apply.arg");
+     argtab[3].bp_long = 1666;
      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ORES__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1664:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1666:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1664:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1666:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1664:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1666:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1665:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1667:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.ORES__V17*/ curfptr[16];;
-   MELT_LOCATION("warmelt-genobj.melt:1665:/ finalreturn");
+   MELT_LOCATION("warmelt-genobj.melt:1667:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V21*/ curfptr[19];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.ONRES__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.SCOMM__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.STR__V14*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.NREP_LOC__V15*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.MAKE_TUPLE2__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.ORES__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1645:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1647:/ clear");
   /*clear*/ /*_.RETURN___V21*/ curfptr[19] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1642:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:1642:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1644:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1642:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1642:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1642:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ clear");
  /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -15604,11 +15600,11 @@ melt_trace_start("COMPILOBJ_NREP_FOREVER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1671:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ getarg");
  /*_.NFOR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1671:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -15617,29 +15613,29 @@ melt_trace_start("COMPILOBJ_NREP_FOREVER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1673:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1672:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1672:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1674:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1674:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1672:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1674:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1672:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1674:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1672:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1674:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1672:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1674:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1672:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1674:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1672)?(1672):__LINE__, __FUNCTION__);
+  (1674)?(1674):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -15650,37 +15646,37 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1672:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1674:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1672:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1674:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1672:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1674:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1673:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1673:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1675:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1675:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FOREVER*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1673:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1675:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1673:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1675:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1673:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1675:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1673:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1675:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1673:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1675:/ locexp");
       melt_assert_failed(( "check nfor"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1673)?(1673):__LINE__, __FUNCTION__);
+  (1675)?(1675):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -15691,210 +15687,210 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1673:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1675:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1673:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1675:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1673:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1675:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1674:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1674:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1676:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1676:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1674:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1676:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1674:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1676:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_forever nfor";
-    MELT_LOCATION("warmelt-genobj.melt:1674:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1676:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1674:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1676:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1674:/ apply.arg");
-    argtab[3].bp_long = 1674;
+    MELT_LOCATION("warmelt-genobj.melt:1676:/ apply.arg");
+    argtab[3].bp_long = 1676;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1674:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1674:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1674:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1676:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1676:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1678:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1677:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1679:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 1, "NFOREVER_BIND");/*_.NBIND__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1678:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1680:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 2, "NFOREVER_BODY");/*_.NBODY__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1679:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1681:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NFOR__V2*/ curfptr[1]), 3, "NFOREVER_RESULT");/*_.NRES__V14*/ curfptr[13] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1680:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1682:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1680:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1682:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NRES__V14*/ curfptr[13];
    /*_.ORESV__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1682:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1682:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1684:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1684:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1682:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1684:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1682:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_forever initial nbind";
-     MELT_LOCATION("warmelt-genobj.melt:1682:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1682:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1682:/ apply.arg");
-     argtab[3].bp_long = 1682;
+     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
+     argtab[3].bp_long = 1684;
      /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1682:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1684:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1682:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1684:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1682:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1684:/ cppif.else");
   /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1683:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1683:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1685:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1685:/ block");
    /*block*/{
     /*_.DISCRIM__V19*/ curfptr[18] = 
      (melt_discr((melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11])));;
     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1683:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1685:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1683:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1685:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_forever initial nbind\'s class";
-     MELT_LOCATION("warmelt-genobj.melt:1683:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1685:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1683:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1685:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1683:/ apply.arg");
-     argtab[3].bp_long = 1683;
+     MELT_LOCATION("warmelt-genobj.melt:1685:/ apply.arg");
+     argtab[3].bp_long = 1685;
      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISCRIM__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1683:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1685:/ clear");
     /*clear*/ /*_.DISCRIM__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1683:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1685:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1683:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1685:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1683:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1685:/ cppif.else");
   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1684:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1684:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1686:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1686:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1684:/ getslot");
+    MELT_LOCATION("warmelt-genobj.melt:1686:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V22*/ curfptr[19] = slot; };
     ;
     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1684:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1686:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
      argtab[0].bp_cstring =  ":labind_clonsy in nbind";
-     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1684:/ apply.arg");
-     argtab[3].bp_long = 1684;
+     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
+     argtab[3].bp_long = 1686;
      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LABIND_CLONSY__V22*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V21*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1684:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1686:/ clear");
     /*clear*/ /*_.LABIND_CLONSY__V22*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1684:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1686:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1684:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1686:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1684:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1686:/ cppif.else");
   /*_.IFCPP___V21*/ curfptr[18] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1685:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1685:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1687:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1687:/ block");
    /*block*/{
     /*_#IS_A__L7*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-genobj.melt:1685:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1687:/ cond");
     /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1685:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1687:/ cond.then");
     /*_.IFELSE___V25*/ curfptr[22] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1685:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1687:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1685:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1687:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1685:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1687:/ locexp");
        melt_assert_failed(( "check nbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1685)?(1685):__LINE__, __FUNCTION__);
+  (1687)?(1687):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V25*/ curfptr[22] = 0 ;}
@@ -15905,71 +15901,71 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
     ;
     /*_.IFCPP___V24*/ curfptr[19] = /*_.IFELSE___V25*/ curfptr[22];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1685:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1687:/ clear");
     /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1685:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1687:/ clear");
     /*clear*/ /*_.IFELSE___V25*/ curfptr[22] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1685:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1687:/ cppif.else");
   /*_.IFCPP___V24*/ curfptr[19] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1686:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1686:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1688:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1688:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1686:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1688:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1688:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_forever oresv";
-     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1688:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1688:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1686:/ apply.arg");
-     argtab[3].bp_long = 1686;
+     MELT_LOCATION("warmelt-genobj.melt:1688:/ apply.arg");
+     argtab[3].bp_long = 1688;
      /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ORESV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V26*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1686:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1688:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1686:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1688:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1686:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1688:/ cppif.else");
   /*_.IFCPP___V26*/ curfptr[22] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1687:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1687:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1689:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1689:/ block");
    /*block*/{
     /*_#IS_A__L9*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.ORESV__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-genobj.melt:1687:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1689:/ cond");
     /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1687:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1689:/ cond.then");
     /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1687:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1689:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1687:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1689:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1687:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1689:/ locexp");
        melt_assert_failed(( "check oresv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1687)?(1687):__LINE__, __FUNCTION__);
+  (1689)?(1689):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
@@ -15980,49 +15976,49 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
     ;
     /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1687:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1689:/ clear");
     /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1687:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1689:/ clear");
     /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1687:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1689:/ cppif.else");
   /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1688:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1690:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1688:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1690:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @LABIND_RES", melt_magic_discr((melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.NBIND__V12*/ curfptr[11]), (3), (/*_.ORESV__V15*/ curfptr[14]), "LABIND_RES");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1688:/ touch");
+   MELT_LOCATION("warmelt-genobj.melt:1690:/ touch");
    meltgc_touch(/*_.NBIND__V12*/ curfptr[11]);
    ;
    /*epilog*/}
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1689:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1689:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1691:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1691:/ block");
    /*block*/{
     /*_#IS_OBJECT__L10*/ curfnum[0] = 
      (melt_magic_discr((melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:1689:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1691:/ cond");
     /*cond*/ if (/*_#IS_OBJECT__L10*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1689:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1691:/ cond.then");
     /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1689:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1691:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1689:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1691:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1689:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1691:/ locexp");
        melt_assert_failed(( "check again nbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1689)?(1689):__LINE__, __FUNCTION__);
+  (1691)?(1691):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
@@ -16033,53 +16029,53 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
     ;
     /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1689:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
     /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1689:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
     /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1689:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1691:/ cppif.else");
   /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1690:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1690:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1692:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1692:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1690:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1692:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1690:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1692:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_forever updated nbind";
-     MELT_LOCATION("warmelt-genobj.melt:1690:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1692:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1690:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1692:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1690:/ apply.arg");
-     argtab[3].bp_long = 1690;
+     MELT_LOCATION("warmelt-genobj.melt:1692:/ apply.arg");
+     argtab[3].bp_long = 1692;
      /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1690:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1692:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1690:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1692:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1690:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1692:/ cppif.else");
   /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1691:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1693:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.NBIND__V12*/ curfptr[11]), 2, "LABIND_CLONSY");/*_.CLOSY__V35*/ curfptr[34] = slot; };
    ;
@@ -16087,34 +16083,34 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
    /*_.EPILOGL__V37*/ curfptr[36] = 
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-   MELT_LOCATION("warmelt-genobj.melt:1694:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1696:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1694:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:1696:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[7])), (5), "CLASS_OBJLOOP");/*_.INST__V39*/ curfptr[38] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1694:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1696:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1694:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1696:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.BODYL__V36*/ curfptr[35]), "OBLO_BODYL");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1694:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1696:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.EPILOGL__V37*/ curfptr[36]), "OBLO_EPIL");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1694:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1696:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBLOOP_LABEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.CLOSY__V35*/ curfptr[34]), "OBLOOP_LABEL");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1694:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1696:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBLOOP_RESV", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (4), (/*_.ORESV__V15*/ curfptr[14]), "OBLOOP_RESV");
@@ -16123,25 +16119,25 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1701:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1701:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1703:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1703:/ block");
     /*block*/{
      /*_#IS_A__L12*/ curfnum[0] = 
       melt_is_instance_of((melt_ptr_t)(/*_.CLOSY__V35*/ curfptr[34]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[8])));;
-     MELT_LOCATION("warmelt-genobj.melt:1701:/ cond");
+     MELT_LOCATION("warmelt-genobj.melt:1703:/ cond");
      /*cond*/ if (/*_#IS_A__L12*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1701:/ cond.then");
+     MELT_LOCATION("warmelt-genobj.melt:1703:/ cond.then");
      /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1701:/ cond.else");
+     } else {MELT_LOCATION("warmelt-genobj.melt:1703:/ cond.else");
      
-      MELT_LOCATION("warmelt-genobj.melt:1701:/ block");
+      MELT_LOCATION("warmelt-genobj.melt:1703:/ block");
       /*block*/{
        /*block*/{
         
         {
-        MELT_LOCATION("warmelt-genobj.melt:1701:/ locexp");
+        MELT_LOCATION("warmelt-genobj.melt:1703:/ locexp");
         melt_assert_failed(( "check closy"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1701)?(1701):__LINE__, __FUNCTION__);
+  (1703)?(1703):__LINE__, __FUNCTION__);
 ;}
         ;
         /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
@@ -16152,29 +16148,29 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
      ;
      /*_.IFCPP___V40*/ curfptr[39] = /*_.IFELSE___V41*/ curfptr[40];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1701:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1703:/ clear");
      /*clear*/ /*_#IS_A__L12*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1701:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1703:/ clear");
      /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1701:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1703:/ cppif.else");
    /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-genobj.melt:1704:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1706:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1704:/ newclosure");
+    MELT_LOCATION("warmelt-genobj.melt:1706:/ newclosure");
      /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[42] =
      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (2));
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1704:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:1706:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42])));
     ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[42])->tabval[0] = (melt_ptr_t)(/*_.BODYL__V36*/ curfptr[35]);
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1704:/ putclosedv");
+    MELT_LOCATION("warmelt-genobj.melt:1706:/ putclosedv");
     /*putclosv*/
     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE);
     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42])));
@@ -16182,114 +16178,114 @@ MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
     ;
     /*_.LAMBDA___V42*/ curfptr[40] = /*_.LAMBDA___V43*/ curfptr[42];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1702:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1704:/ apply");
    /*apply*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1702:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1704:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[40];
     /*_.MULTIPLE_EVERY__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NBODY__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1706:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1706:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1708:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1708:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1706:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1708:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1706:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1708:/ apply.arg");
       argtab[0].bp_cstring =  "compilobj forever result oloop";
-      MELT_LOCATION("warmelt-genobj.melt:1706:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1708:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:1706:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1708:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1706:/ apply.arg");
-      argtab[3].bp_long = 1706;
+      MELT_LOCATION("warmelt-genobj.melt:1708:/ apply.arg");
+      argtab[3].bp_long = 1708;
       /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOOP__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1706:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1708:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1706:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1708:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1706:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1708:/ cppif.else");
    /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
    /*_.LET___V34*/ curfptr[32] = /*_.OLOOP__V38*/ curfptr[37];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.CLOSY__V35*/ curfptr[34] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.BODYL__V36*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.EPILOGL__V37*/ curfptr[36] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.OLOOP__V38*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.LAMBDA___V42*/ curfptr[40] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1691:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1693:/ clear");
    /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V34*/ curfptr[32];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.NBIND__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.NBODY__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.NRES__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.ORESV__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V21*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V24*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V26*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1676:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1678:/ clear");
   /*clear*/ /*_.LET___V34*/ curfptr[32] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1671:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1671:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1673:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1671:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1671:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1671:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1671:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -16350,35 +16346,35 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1704:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1706:/ getarg");
  /*_.NCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1704:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1706:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1704:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1706:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-genobj.melt:1705:/ msend");
+ MELT_LOCATION("warmelt-genobj.melt:1707:/ msend");
  /*msend*/{
   union meltparam_un argtab[1];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:1705:/ ojbmsend.arg");
+  MELT_LOCATION("warmelt-genobj.melt:1707:/ ojbmsend.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
   /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
   }
  ;
  
  {
- MELT_LOCATION("warmelt-genobj.melt:1705:/ locexp");
+ MELT_LOCATION("warmelt-genobj.melt:1707:/ locexp");
  meltgc_append_list((melt_ptr_t)((/*~BODYL*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.COMPILE_OBJ__V3*/ curfptr[2]));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1704:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1706:/ clear");
  /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -16439,11 +16435,11 @@ melt_trace_start("COMPILOBJ_NREP_EXIT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1715:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ getarg");
  /*_.NEXI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1715:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -16452,29 +16448,29 @@ melt_trace_start("COMPILOBJ_NREP_EXIT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1717:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1716:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1716:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1718:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1718:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1716:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1718:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1716:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1718:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1716:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1718:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1716:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1718:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1716:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1718:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1716)?(1716):__LINE__, __FUNCTION__);
+  (1718)?(1718):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -16485,37 +16481,37 @@ MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1716:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1718:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1716:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1718:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1716:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1718:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1717:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1717:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1719:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1719:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_EXIT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1717:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1719:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1717:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1719:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1717:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1719:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1717:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1719:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1717:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1719:/ locexp");
       melt_assert_failed(( "check nexi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1717)?(1717):__LINE__, __FUNCTION__);
+  (1719)?(1719):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -16526,85 +16522,85 @@ MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1717:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1719:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1717:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1719:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1717:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1719:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1718:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1718:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1720:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1720:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1718:/ apply");
+   MELT_LOCATION("warmelt-genobj.melt:1720:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1718:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1720:/ apply.arg");
     argtab[0].bp_cstring =  "compilobj_nrep_exit nexi";
-    MELT_LOCATION("warmelt-genobj.melt:1718:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1720:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1718:/ apply.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1720:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1718:/ apply.arg");
-    argtab[3].bp_long = 1718;
+    MELT_LOCATION("warmelt-genobj.melt:1720:/ apply.arg");
+    argtab[3].bp_long = 1720;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1718:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1718:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1718:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1720:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1720:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1722:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1721:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1723:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1722:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1724:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), 1, "NEXIT_BIND");/*_.NBINDX__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1723:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1725:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.NEXI__V2*/ curfptr[1]), 2, "NEXIT_VAL");/*_.NVAL__V13*/ curfptr[12] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1724:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1724:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1726:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1726:/ block");
    /*block*/{
     /*_#IS_A__L4*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.NBINDX__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:1724:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1726:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1724:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1726:/ cond.then");
     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1724:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1726:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1724:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1726:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1724:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1726:/ locexp");
        melt_assert_failed(( "check nbindx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1724)?(1724):__LINE__, __FUNCTION__);
+  (1726)?(1726):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
@@ -16615,17 +16611,17 @@ MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
     ;
     /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1724:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1726:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1724:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1726:/ clear");
     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1724:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1726:/ cppif.else");
   /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1725:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1727:/ block");
   /*block*/{
    /*_.INSLIST__V17*/ curfptr[16] = 
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
@@ -16633,84 +16629,84 @@ MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
    /*_.DESTLIST__V19*/ curfptr[18] = 
     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-   MELT_LOCATION("warmelt-genobj.melt:1729:/ msend");
+   MELT_LOCATION("warmelt-genobj.melt:1731:/ msend");
    /*msend*/{
     union meltparam_un argtab[1];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1729:/ ojbmsend.arg");
+    MELT_LOCATION("warmelt-genobj.melt:1731:/ ojbmsend.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
     /*_.OVAL__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
     }
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1730:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1732:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.NBINDX__V12*/ curfptr[11]), 3, "LABIND_RES");/*_.BXRES__V21*/ curfptr[20] = slot; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1731:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1733:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1731:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:1733:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[6])), (3), "CLASS_OBJBLOCK");/*_.INST__V23*/ curfptr[22] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.INSLIST__V17*/ curfptr[16]), "OBLO_BODYL");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1731:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1733:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.EPILIST__V18*/ curfptr[17]), "OBLO_EPIL");
     ;
     /*_.OBLOC__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1738:/ getslot");
+   MELT_LOCATION("warmelt-genobj.melt:1740:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.NBINDX__V12*/ curfptr[11]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V24*/ curfptr[23] = slot; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1736:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1738:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1736:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:1738:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[7])), (2), "CLASS_OBJEXIT");/*_.INST__V26*/ curfptr[25] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1736:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1738:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1736:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1738:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBEXIT_LABEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.LABIND_CLONSY__V24*/ curfptr[23]), "OBEXIT_LABEL");
     ;
     /*_.OBEX__V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;}
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1740:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1742:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1740:/ rawallocobj");
+    MELT_LOCATION("warmelt-genobj.melt:1742:/ rawallocobj");
     /*rawallocobj*/ { melt_ptr_t newobj = 0;
      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[8])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V28*/ curfptr[27] =
      newobj; };
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1740:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1742:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1740:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1742:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIST__V19*/ curfptr[18]), "OBDI_DESTLIST");
     ;
-    MELT_LOCATION("warmelt-genobj.melt:1740:/ putslot");
+    MELT_LOCATION("warmelt-genobj.melt:1742:/ putslot");
     /*putslot*/
     melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.OVAL__V20*/ curfptr[19]), "OBCPT_EXPR");
@@ -16719,113 +16715,113 @@ MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1745:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1747:/ locexp");
    meltgc_append_list((melt_ptr_t)(/*_.INSLIST__V17*/ curfptr[16]), (melt_ptr_t)(/*_.OBCOM__V27*/ curfptr[26]));}
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1746:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1748:/ locexp");
    meltgc_append_list((melt_ptr_t)(/*_.EPILIST__V18*/ curfptr[17]), (melt_ptr_t)(/*_.OBEX__V25*/ curfptr[24]));}
    ;
    
    {
-   MELT_LOCATION("warmelt-genobj.melt:1747:/ locexp");
+   MELT_LOCATION("warmelt-genobj.melt:1749:/ locexp");
    meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.BXRES__V21*/ curfptr[20]));}
    ;
    
    #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1748:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1748:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1750:/ cppif.then");
+   MELT_LOCATION("warmelt-genobj.melt:1750:/ block");
     /*block*/{
      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
       callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1748:/ apply");
+     MELT_LOCATION("warmelt-genobj.melt:1750:/ apply");
      /*apply*/{
       union meltparam_un argtab[4];
       memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1748:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1750:/ apply.arg");
       argtab[0].bp_cstring =  "compilobj_nrep_exit return obloc";
-      MELT_LOCATION("warmelt-genobj.melt:1748:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1750:/ apply.arg");
       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:1748:/ apply.arg");
+      MELT_LOCATION("warmelt-genobj.melt:1750:/ apply.arg");
       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1748:/ apply.arg");
-      argtab[3].bp_long = 1748;
+      MELT_LOCATION("warmelt-genobj.melt:1750:/ apply.arg");
+      argtab[3].bp_long = 1750;
       /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOC__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
       }
      ;
      /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
      /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1748:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1750:/ clear");
      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1748:/ clear");
+     MELT_LOCATION("warmelt-genobj.melt:1750:/ clear");
      /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
     
     #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1748:/ cppif.else");
+    MELT_LOCATION("warmelt-genobj.melt:1750:/ cppif.else");
    /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
     #endif /*ENABLE_CHECKING*/
     ;
-   MELT_LOCATION("warmelt-genobj.melt:1749:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1751:/ block");
    /*block*/{
     /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOC__V22*/ curfptr[21];;
-    MELT_LOCATION("warmelt-genobj.melt:1749:/ finalreturn");
+    MELT_LOCATION("warmelt-genobj.melt:1751:/ finalreturn");
     ;
     /*finalret*/ goto labend_rout ;}
    ;
    /*_.LET___V16*/ curfptr[14] = /*_.RETURN___V31*/ curfptr[29];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.INSLIST__V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.EPILIST__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.DESTLIST__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.OVAL__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.BXRES__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.OBLOC__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.LABIND_CLONSY__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.OBEX__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.OBCOM__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1725:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1727:/ clear");
    /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V16*/ curfptr[14];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1722:/ clear");
   /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1722:/ clear");
   /*clear*/ /*_.NBINDX__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1722:/ clear");
   /*clear*/ /*_.NVAL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1722:/ clear");
   /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1720:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1722:/ clear");
   /*clear*/ /*_.LET___V16*/ curfptr[14] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1715:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1715:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1717:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1715:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1715:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1715:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1715:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -16886,11 +16882,11 @@ melt_trace_start("COMPILOBJ_DISCRANY", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1754:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1756:/ getarg");
  /*_.ANYV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1754:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1756:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -16899,29 +16895,29 @@ melt_trace_start("COMPILOBJ_DISCRANY", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1754:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1756:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1755:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1755:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1757:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1757:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1755:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1757:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1755:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1757:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1755:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1757:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1755:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1757:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1755:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1757:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1755)?(1755):__LINE__, __FUNCTION__);
+  (1757)?(1757):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -16932,25 +16928,25 @@ MELT_LOCATION("warmelt-genobj.melt:1754:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1755:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1757:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1755:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1757:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1755:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1757:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1754:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1756:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.ANYV__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-genobj.melt:1754:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1756:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1754:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1756:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -17011,11 +17007,11 @@ melt_trace_start("COMPILOBJ_NREP_LET", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1762:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ getarg");
  /*_.RLET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1762:/ getarg");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
@@ -17024,29 +17020,29 @@ melt_trace_start("COMPILOBJ_NREP_LET", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
+MELT_LOCATION("warmelt-genobj.melt:1764:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1763:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1763:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1765:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1765:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1763:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1765:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1763:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1765:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1763:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1765:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1763:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1765:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1763:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1765:/ locexp");
       melt_assert_failed(( "check rlet"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1763)?(1763):__LINE__, __FUNCTION__);
+  (1765)?(1765):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -17057,37 +17053,37 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1763:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1763:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1763:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1765:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1764:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1764:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1766:/ cppif.then");
+ MELT_LOCATION("warmelt-genobj.melt:1766:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1764:/ cond");
+   MELT_LOCATION("warmelt-genobj.melt:1766:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1764:/ cond.then");
+   MELT_LOCATION("warmelt-genobj.melt:1766:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1764:/ cond.else");
+   } else {MELT_LOCATION("warmelt-genobj.melt:1766:/ cond.else");
    
-    MELT_LOCATION("warmelt-genobj.melt:1764:/ block");
+    MELT_LOCATION("warmelt-genobj.melt:1766:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-genobj.melt:1764:/ locexp");
+      MELT_LOCATION("warmelt-genobj.melt:1766:/ locexp");
       melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1764)?(1764):__LINE__, __FUNCTION__);
+  (1766)?(1766):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -17098,31 +17094,31 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1764:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1766:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1764:/ clear");
+   MELT_LOCATION("warmelt-genobj.melt:1766:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1764:/ cppif.else");
+  MELT_LOCATION("warmelt-genobj.melt:1766:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-genobj.melt:1765:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1767:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1766:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1768:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 1, "NLET_BINDINGS");/*_.BNDS__V10*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1767:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1769:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 2, "NLET_BODY");/*_.BDY__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1768:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1770:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V12*/ curfptr[11] = slot; };
   ;
@@ -17130,24 +17126,24 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
   /*_.OEPIL__V14*/ curfptr[13] = 
    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-genobj.melt:1771:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1773:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1771:/ rawallocobj");
+   MELT_LOCATION("warmelt-genobj.melt:1773:/ rawallocobj");
    /*rawallocobj*/ { melt_ptr_t newobj = 0;
     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[3])), (3), "CLASS_OBJBLOCK");/*_.INST__V16*/ curfptr[15] =
     newobj; };
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1771:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1773:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1771:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1773:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.OBODL__V13*/ curfptr[12]), "OBLO_BODYL");
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1771:/ putslot");
+   MELT_LOCATION("warmelt-genobj.melt:1773:/ putslot");
    /*putslot*/
    melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
    melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.OEPIL__V14*/ curfptr[13]), "OBLO_EPIL");
@@ -17156,93 +17152,93 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1776:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1776:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1778:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1778:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1776:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1778:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1776:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1778:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let initial rlet";
-     MELT_LOCATION("warmelt-genobj.melt:1776:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1778:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1776:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1778:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1776:/ apply.arg");
-     argtab[3].bp_long = 1776;
+     MELT_LOCATION("warmelt-genobj.melt:1778:/ apply.arg");
+     argtab[3].bp_long = 1778;
      /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1776:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1778:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1776:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1778:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1776:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1778:/ cppif.else");
   /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1777:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1777:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1779:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1779:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1777:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1779:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1777:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1779:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let initial loc";
-     MELT_LOCATION("warmelt-genobj.melt:1777:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1779:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1777:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1779:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1777:/ apply.arg");
-     argtab[3].bp_long = 1777;
+     MELT_LOCATION("warmelt-genobj.melt:1779:/ apply.arg");
+     argtab[3].bp_long = 1779;
      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1777:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1779:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1777:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1779:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1777:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1779:/ cppif.else");
   /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1784:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1784:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1786:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1786:/ block");
    /*block*/{
     /*_#IS_MULTIPLE_OR_NULL__L5*/ curfnum[0] = 
      ((/*_.BNDS__V10*/ curfptr[9]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BNDS__V10*/ curfptr[9])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-genobj.melt:1784:/ cond");
+    MELT_LOCATION("warmelt-genobj.melt:1786:/ cond");
     /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1784:/ cond.then");
+    MELT_LOCATION("warmelt-genobj.melt:1786:/ cond.then");
     /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1784:/ cond.else");
+    } else {MELT_LOCATION("warmelt-genobj.melt:1786:/ cond.else");
     
-     MELT_LOCATION("warmelt-genobj.melt:1784:/ block");
+     MELT_LOCATION("warmelt-genobj.melt:1786:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-genobj.melt:1784:/ locexp");
+       MELT_LOCATION("warmelt-genobj.melt:1786:/ locexp");
        melt_assert_failed(( "compilobj_nrep_let check bnds multiple"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1784)?(1784):__LINE__, __FUNCTION__);
+  (1786)?(1786):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
@@ -17253,47 +17249,47 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
     ;
     /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1784:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1786:/ clear");
     /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1784:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1786:/ clear");
     /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1784:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1786:/ cppif.else");
   /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1789:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1791:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1789:/ newclosure");
+   MELT_LOCATION("warmelt-genobj.melt:1791:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (5));
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1789:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1791:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1789:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1791:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V12*/ curfptr[11]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1789:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1791:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1789:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1791:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[3] = (melt_ptr_t)(/*_.OBODL__V13*/ curfptr[12]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1789:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1791:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
@@ -17301,102 +17297,102 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
    ;
    /*_.LAMBDA___V23*/ curfptr[21] = /*_.LAMBDA___V24*/ curfptr[23];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1787:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1789:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1787:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1789:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[21];
    /*_.MULTIPLE_EVERY__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.BNDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1833:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1833:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1835:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1835:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1833:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1835:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1833:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1835:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let after iterate normbind loc";
-     MELT_LOCATION("warmelt-genobj.melt:1833:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1835:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1833:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1835:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1833:/ apply.arg");
-     argtab[3].bp_long = 1833;
+     MELT_LOCATION("warmelt-genobj.melt:1835:/ apply.arg");
+     argtab[3].bp_long = 1835;
      /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1833:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1835:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1833:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1835:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1833:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1835:/ cppif.else");
   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1834:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1834:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1836:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1836:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1834:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1836:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1834:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1836:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let updated locmap";
-     MELT_LOCATION("warmelt-genobj.melt:1834:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1836:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1834:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1836:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1834:/ apply.arg");
-     argtab[3].bp_long = 1834;
+     MELT_LOCATION("warmelt-genobj.melt:1836:/ apply.arg");
+     argtab[3].bp_long = 1836;
      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOCMAP__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1834:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1836:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1834:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1836:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1834:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1836:/ cppif.else");
   /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1838:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1840:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1838:/ newclosure");
+   MELT_LOCATION("warmelt-genobj.melt:1840:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[30] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (3));
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1838:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1840:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[0] = (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1838:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1840:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[1] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1838:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1840:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30])));
@@ -17404,62 +17400,62 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
    ;
    /*_.LAMBDA___V30*/ curfptr[28] = /*_.LAMBDA___V31*/ curfptr[30];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1836:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1838:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1836:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1838:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[28];
    /*_.MULTIPLE_EVERY__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.BDY__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1848:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1848:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1850:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1850:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1848:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1850:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1848:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1850:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let after iterate body loc";
-     MELT_LOCATION("warmelt-genobj.melt:1848:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1850:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1848:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1850:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1848:/ apply.arg");
-     argtab[3].bp_long = 1848;
+     MELT_LOCATION("warmelt-genobj.melt:1850:/ apply.arg");
+     argtab[3].bp_long = 1850;
      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1848:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1850:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1848:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1850:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1848:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1850:/ cppif.else");
   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1852:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1854:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1852:/ newclosure");
+   MELT_LOCATION("warmelt-genobj.melt:1854:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (2));
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1852:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1854:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]);
    ;
-   MELT_LOCATION("warmelt-genobj.melt:1852:/ putclosedv");
+   MELT_LOCATION("warmelt-genobj.melt:1854:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
@@ -17467,222 +17463,222 @@ MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
    ;
    /*_.LAMBDA___V35*/ curfptr[33] = /*_.LAMBDA___V36*/ curfptr[35];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1850:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1852:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1850:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1852:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[33];
    /*_.MULTIPLE_EVERY__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.BNDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1856:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1856:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1858:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1858:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1856:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1858:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let quasifinal loc";
-     MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1856:/ apply.arg");
-     argtab[3].bp_long = 1856;
+     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
+     argtab[3].bp_long = 1858;
      /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1856:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1858:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1856:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1858:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1856:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1858:/ cppif.else");
   /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1857:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1857:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1859:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1859:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1857:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1859:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1857:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let final locmap";
-     MELT_LOCATION("warmelt-genobj.melt:1857:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1857:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1857:/ apply.arg");
-     argtab[3].bp_long = 1857;
+     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
+     argtab[3].bp_long = 1859;
      /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOCMAP__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1857:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1859:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1857:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1859:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1857:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1859:/ cppif.else");
   /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1858:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1858:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1860:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1860:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1858:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1860:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1860:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let final loc";
-     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1860:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1860:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1858:/ apply.arg");
-     argtab[3].bp_long = 1858;
+     MELT_LOCATION("warmelt-genobj.melt:1860:/ apply.arg");
+     argtab[3].bp_long = 1860;
      /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1858:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1860:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1858:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1860:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1858:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1860:/ cppif.else");
   /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1859:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1859:/ block");
+   MELT_LOCATION("warmelt-genobj.melt:1861:/ cppif.then");
+  MELT_LOCATION("warmelt-genobj.melt:1861:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1859:/ apply");
+    MELT_LOCATION("warmelt-genobj.melt:1861:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1861:/ apply.arg");
      argtab[0].bp_cstring =  "compilobj_nrep_let return oblock";
-     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1861:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
+     MELT_LOCATION("warmelt-genobj.melt:1861:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1859:/ apply.arg");
-     argtab[3].bp_long = 1859;
+     MELT_LOCATION("warmelt-genobj.melt:1861:/ apply.arg");
+     argtab[3].bp_long = 1861;
      /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OBLOCK__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
     /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1859:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1861:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1859:/ clear");
+    MELT_LOCATION("warmelt-genobj.melt:1861:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1859:/ cppif.else");
+   MELT_LOCATION("warmelt-genobj.melt:1861:/ cppif.else");
   /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-genobj.melt:1860:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:1862:/ block");
   /*block*/{
    /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V15*/ curfptr[14];;
-   MELT_LOCATION("warmelt-genobj.melt:1860:/ finalreturn");
+   MELT_LOCATION("warmelt-genobj.melt:1862:/ finalreturn");
    ;
    /*finalret*/ goto labend_rout ;}
   ;
   /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V46*/ curfptr[44];;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.BNDS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.BDY__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.LOCMAP__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.OBODL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.OEPIL__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.OBLOCK__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.LAMBDA___V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.LAMBDA___V30*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.MULTIPLE_EVERY__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.LAMBDA___V35*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1765:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1767:/ clear");
   /*clear*/ /*_.RETURN___V46*/ curfptr[44] = 0 ;}
  ;
- MELT_LOCATION("warmelt-genobj.melt:1762:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:1762:/ finalreturn");
+  MELT_LOCATION("warmelt-genobj.melt:1764:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1762:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1762:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1762:/ clear");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ clear");
  /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -17697,45845 +17693,6 @@ melt_trace_end("COMPILOBJ_NREP_LET", callcount);  melt_topframe = (struct callfr
 
 
 
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_44_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 40
-  void* varptr[40];
-#define CURFRAM_NBVARNUM 17
-  long varnum[17];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<40; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 40;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1789:/ getarg");
- /*_.NLBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1789:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1789:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1790:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1790:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1790:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1790:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding loc";
-    MELT_LOCATION("warmelt-genobj.melt:1790:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1790:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1790:/ apply.arg");
-    argtab[3].bp_long = 1790;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1790:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1790:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1790:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1791:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1791:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1791:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1791:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding nlbnd";
-    MELT_LOCATION("warmelt-genobj.melt:1791:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1791:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1791:/ apply.arg");
-    argtab[3].bp_long = 1791;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1791:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1791:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1791:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1792:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1792:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1792:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding locmap";
-    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1792:/ apply.arg");
-    argtab[3].bp_long = 1792;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOCMAP*/ curfclos->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1792:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1792:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1792:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1793:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1793:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1793:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1793:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1793:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1793:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1793:/ locexp");
-      melt_assert_failed(( "check nlbnd in compilobj_nrep_let"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1793)?(1793):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1793:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1793:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1793:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1794:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V11*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1795:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1796:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1797:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1797:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V11*/ curfptr[9];
-   MELT_LOCATION("warmelt-genobj.melt:1797:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V12*/ curfptr[11];
-   /*_.OBVA__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[2])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1799:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1799:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1799:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1799:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding obva";
-     MELT_LOCATION("warmelt-genobj.melt:1799:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:1799:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1799:/ apply.arg");
-     argtab[3].bp_long = 1799;
-     /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1799:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1799:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1799:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1800:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1800:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1800:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1800:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding nexp";
-     MELT_LOCATION("warmelt-genobj.melt:1800:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:1800:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1800:/ apply.arg");
-     argtab[3].bp_long = 1800;
-     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1800:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1800:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1800:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:1801:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1801:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1801:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]);
-    /*_.OBNX__V19*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1802:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1802:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1802:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding obnx";
-      MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1];
-      MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1802:/ apply.arg");
-      argtab[3].bp_long = 1802;
-      /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1802:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1802:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1802:/ cppif.else");
-   /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_#IS_A__L9*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[4])));;
-   MELT_LOCATION("warmelt-genobj.melt:1803:/ cond");
-   /*cond*/ if (/*_#IS_A__L9*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1803:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1803:/ block");
-    /*block*/{
-     /*_#IS_OBJECT__L10*/ curfnum[9] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17])) == OBMAG_OBJECT);;
-     /*_#NOT__L11*/ curfnum[10] = 
-      (!(/*_#IS_OBJECT__L10*/ curfnum[9]));;
-     MELT_LOCATION("warmelt-genobj.melt:1804:/ cond");
-     /*cond*/ if (/*_#NOT__L11*/ curfnum[10]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1804:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:1804:/ block");
-      /*block*/{
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1806:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1806:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
-          callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:1806:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:1806:/ apply.arg");
-          argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding faulty nexp";
-          MELT_LOCATION("warmelt-genobj.melt:1806:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
-          MELT_LOCATION("warmelt-genobj.melt:1806:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:1806:/ apply.arg");
-          argtab[3].bp_long = 1806;
-          /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1806:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1806:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1806:/ cppif.else");
-       /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1807:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1807:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
-          callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:1807:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:1807:/ apply.arg");
-          argtab[0].bp_cstring =  "compilobj_nrep_let current normbinding faulty obnx";
-          MELT_LOCATION("warmelt-genobj.melt:1807:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
-          MELT_LOCATION("warmelt-genobj.melt:1807:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:1807:/ apply.arg");
-          argtab[3].bp_long = 1807;
-          /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1807:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1807:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1807:/ cppif.else");
-       /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:1808:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:1808:/ block");
-        /*block*/{
-         /*_#IS_OBJECT__L14*/ curfnum[11] = 
-          (melt_magic_discr((melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17])) == OBMAG_OBJECT);;
-         MELT_LOCATION("warmelt-genobj.melt:1808:/ cond");
-         /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[11]) /*then*/ {
-         MELT_LOCATION("warmelt-genobj.melt:1808:/ cond.then");
-         /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-genobj.melt:1808:/ cond.else");
-         
-          MELT_LOCATION("warmelt-genobj.melt:1808:/ block");
-          /*block*/{
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-genobj.melt:1808:/ locexp");
-            melt_assert_failed(( "compilobj_nrep_let check obnx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1808)?(1808):__LINE__, __FUNCTION__);
-;}
-            ;
-            /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-           ;
-           /*epilog*/}
-          ;
-          }
-         ;
-         /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:1808:/ clear");
-         /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[11] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:1808:/ clear");
-         /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:1808:/ cppif.else");
-       /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-genobj.melt:1805:/ block");
-       /*block*/{
-        /*_.PROGN___V30*/ curfptr[28] = /*_.IFCPP___V28*/ curfptr[26];;}
-       ;
-       /*_.IF___V23*/ curfptr[22] = /*_.PROGN___V30*/ curfptr[28];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1804:/ clear");
-       /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1804:/ clear");
-       /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1804:/ clear");
-       /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1804:/ clear");
-       /*clear*/ /*_.PROGN___V30*/ curfptr[28] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1804:/ cond.else");
-     
-      /*_.IF___V23*/ curfptr[22] = NULL;;
-      }
-     ;
-     /*_.IF___V22*/ curfptr[20] = /*_.IF___V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
-     /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
-     /*clear*/ /*_#NOT__L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1803:/ clear");
-     /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1803:/ cond.else");
-   
-    /*_.IF___V22*/ curfptr[20] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1809:/ cond");
-   /*cond*/ if (/*_.OBVA__V14*/ curfptr[13]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1809:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1809:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:1812:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.NLBND__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBVA__V14*/ curfptr[13]));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:1813:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1813:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1813:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBVA__V14*/ curfptr[13];
-       /*_.OBPD__V31*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:1814:/ cond");
-      /*cond*/ if (/*_.OBPD__V31*/ curfptr[23]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:1814:/ cond.then");
-      /*_.OBMY__V32*/ curfptr[24] = /*_.OBPD__V31*/ curfptr[23];;
-      } else {MELT_LOCATION("warmelt-genobj.melt:1814:/ cond.else");
-      
-       /*_.OBMY__V32*/ curfptr[24] = /*_.OBNX__V19*/ curfptr[17];;
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:1816:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:1816:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:1816:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:1816:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_let current obpd";
-         MELT_LOCATION("warmelt-genobj.melt:1816:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[11];
-         MELT_LOCATION("warmelt-genobj.melt:1816:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:1816:/ apply.arg");
-         argtab[3].bp_long = 1816;
-         /*_.DEBUG_MSG_FUN__V34*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBPD__V31*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V33*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[28];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1816:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1816:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[28] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:1816:/ cppif.else");
-      /*_.IFCPP___V33*/ curfptr[26] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:1817:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:1817:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L16*/ curfnum[9] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:1817:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:1817:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_let append obmy";
-         MELT_LOCATION("warmelt-genobj.melt:1817:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[9];
-         MELT_LOCATION("warmelt-genobj.melt:1817:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:1817:/ apply.arg");
-         argtab[3].bp_long = 1817;
-         /*_.DEBUG_MSG_FUN__V36*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBMY__V32*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V35*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[28];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:1817:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[9] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:1817:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[28] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:1817:/ cppif.else");
-      /*_.IFCPP___V35*/ curfptr[22] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1818:/ locexp");
-      meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OBMY__V32*/ curfptr[24]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1813:/ clear");
-      /*clear*/ /*_.OBPD__V31*/ curfptr[23] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1813:/ clear");
-      /*clear*/ /*_.OBMY__V32*/ curfptr[24] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1813:/ clear");
-      /*clear*/ /*_.IFCPP___V33*/ curfptr[26] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1813:/ clear");
-      /*clear*/ /*_.IFCPP___V35*/ curfptr[22] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:1811:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1809:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1809:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:1822:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:1822:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L17*/ curfnum[10] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:1822:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:1822:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_let append obnx";
-        MELT_LOCATION("warmelt-genobj.melt:1822:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[10];
-        MELT_LOCATION("warmelt-genobj.melt:1822:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:1822:/ apply.arg");
-        argtab[3].bp_long = 1822;
-        /*_.DEBUG_MSG_FUN__V38*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V37*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[23];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:1822:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[10] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:1822:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[23] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:1822:/ cppif.else");
-     /*_.IFCPP___V37*/ curfptr[28] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:1823:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OBNX__V19*/ curfptr[17]));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:1820:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1809:/ clear");
-     /*clear*/ /*_.IFCPP___V37*/ curfptr[28] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1826:/ cond");
-   /*cond*/ if (/*_.OBVA__V14*/ curfptr[13]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1826:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:1826:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:1827:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:1827:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:1827:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[6])), (2), "CLASS_OBJCLEAR");/*_.INST__V40*/ curfptr[26] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:1827:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[26])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V40*/ curfptr[26]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:1827:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[26])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V40*/ curfptr[26]), (1), (/*_.OBVA__V14*/ curfptr[13]), "OCLR_VLOC");
-       ;
-       /*_.OBCL__V39*/ curfptr[24] = /*_.INST__V40*/ curfptr[26];;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1831:/ locexp");
-      meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OBCL__V39*/ curfptr[24]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1827:/ clear");
-      /*clear*/ /*_.OBCL__V39*/ curfptr[24] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1801:/ clear");
-   /*clear*/ /*_.OBNX__V19*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1801:/ clear");
-   /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1801:/ clear");
-   /*clear*/ /*_#IS_A__L9*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1801:/ clear");
-   /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
-  /*clear*/ /*_.BDER__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
-  /*clear*/ /*_.CTY__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
-  /*clear*/ /*_.NEXP__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
-  /*clear*/ /*_.OBVA__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1794:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1789:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1789:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1789:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1789:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_44_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_45_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1838:/ getarg");
- /*_.BDYCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1838:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1838:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1839:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1839:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1839:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1839:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let body loc";
-    MELT_LOCATION("warmelt-genobj.melt:1839:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1839:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1839:/ apply.arg");
-    argtab[3].bp_long = 1839;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1839:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1839:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1839:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1840:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1840:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1840:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1840:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let body bdycomp";
-    MELT_LOCATION("warmelt-genobj.melt:1840:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1840:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1840:/ apply.arg");
-    argtab[3].bp_long = 1840;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BDYCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1840:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1840:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1840:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1841:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1841:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1841:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
-   /*_.OBJCOMP__V7*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.BDYCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1843:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1843:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1843:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1843:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_let body objcomp";
-     MELT_LOCATION("warmelt-genobj.melt:1843:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:1843:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1843:/ apply.arg");
-     argtab[3].bp_long = 1843;
-     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBJCOMP__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1843:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1843:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1843:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#NULL__L5*/ curfnum[1] = 
-   ((/*_.OBJCOMP__V7*/ curfptr[5]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:1846:/ cond");
-  /*cond*/ if (/*_#NULL__L5*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1846:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1846:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1846:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.OBJCOMP__V7*/ curfptr[5];;
-     MELT_LOCATION("warmelt-genobj.melt:1846:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IF___V10*/ curfptr[8] = /*_.RETURN___V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1846:/ clear");
-    /*clear*/ /*_.RETURN___V11*/ curfptr[10] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1846:/ cond.else");
-  
-   /*_.IF___V10*/ curfptr[8] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:1847:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OBJCOMP__V7*/ curfptr[5]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1841:/ clear");
-  /*clear*/ /*_.OBJCOMP__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1841:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1841:/ clear");
-  /*clear*/ /*_#NULL__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1841:/ clear");
-  /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1838:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1838:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_45_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_46_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1852:/ getarg");
- /*_.OBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1852:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1852:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1853:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1853:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1853:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1853:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let dispose loc";
-    MELT_LOCATION("warmelt-genobj.melt:1853:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1853:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1853:/ apply.arg");
-    argtab[3].bp_long = 1853;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1853:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1853:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1853:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1854:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1854:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1854:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1854:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_let disposing obnd";
-    MELT_LOCATION("warmelt-genobj.melt:1854:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:1854:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1854:/ apply.arg");
-    argtab[3].bp_long = 1854;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1854:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1854:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1854:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1855:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:1855:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
-  /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:1852:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:1852:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1852:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1852:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1852:/ clear");
- /*clear*/ /*_.DISPOSE_BND_OBJ__V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_46_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FAIL_COMPILETRECFILL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1881:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1881:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OBVA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:1881:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.OBODL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-genobj.melt:1881:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-genobj.melt:1881:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1881:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1882:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1882:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1882:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1882:/ apply.arg");
-    argtab[0].bp_cstring =  "fail_compiletrecfill recv";
-    MELT_LOCATION("warmelt-genobj.melt:1882:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1882:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1882:/ apply.arg");
-    argtab[3].bp_long = 1882;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1882:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1882:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1882:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1883:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1883:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1883:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1883:/ apply.arg");
-    argtab[0].bp_cstring =  "fail_compiletrecfill obva";
-    MELT_LOCATION("warmelt-genobj.melt:1883:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1883:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1883:/ apply.arg");
-    argtab[3].bp_long = 1883;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1883:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1883:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1883:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1884:/ block");
- /*block*/{
-  /*_.D__V12*/ curfptr[11] = 
-   (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:1886:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.D__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:1886:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:1886:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.D__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:1886:/ cond.else");
-  
-   /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:1885:/ locexp");
-  melt_error_str((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5]), ( "unimplemented discriminant for compile_letrec_fill"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1887:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1887:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1887:/ cond");
-    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1887:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1887:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:1887:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:1887:/ locexp");
-       melt_assert_failed(( "fail_compiletrecfill unexpected"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1887)?(1887):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1887:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1887:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V11*/ curfptr[9] = /*_.IFCPP___V14*/ curfptr[13];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1884:/ clear");
-  /*clear*/ /*_.D__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1884:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1884:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:1881:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-genobj.melt:1881:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1881:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1881:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1881:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FAIL_COMPILETRECFILL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILETREC_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1892:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1892:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OBVA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:1892:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.OBODL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OBODL__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-genobj.melt:1892:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-genobj.melt:1892:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1892:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1893:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1893:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1893:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1893:/ apply.arg");
-    argtab[0].bp_cstring =  "compiletrec_lambda recv";
-    MELT_LOCATION("warmelt-genobj.melt:1893:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1893:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1893:/ apply.arg");
-    argtab[3].bp_long = 1893;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1893:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1893:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1893:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1894:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1894:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1894:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1894:/ apply.arg");
-    argtab[0].bp_cstring =  "compiletrec_lambda obva";
-    MELT_LOCATION("warmelt-genobj.melt:1894:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1894:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1894:/ apply.arg");
-    argtab[3].bp_long = 1894;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1894:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1894:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1894:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1895:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1895:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1895:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1895:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1895:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1895:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1895:/ locexp");
-      melt_assert_failed(( "$@$unimplemented compiletrec_lambda"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1895)?(1895):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1895:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1895:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1892:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-genobj.melt:1892:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1892:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1892:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1892:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILETREC_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 56
-  void* varptr[56];
-#define CURFRAM_NBVARNUM 21
-  long varnum[21];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<56; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 56;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_LETREC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1900:/ getarg");
- /*_.RLET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1900:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1900:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1901:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1901:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1901:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1901:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_letrec initial rlet";
-    MELT_LOCATION("warmelt-genobj.melt:1901:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1901:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1901:/ apply.arg");
-    argtab[3].bp_long = 1901;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1901:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1901:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1901:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1902:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1902:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1902:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1902:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1902:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1902:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1902:/ locexp");
-      melt_assert_failed(( "check rlet"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1902)?(1902):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1902:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1902:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1902:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1903:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1903:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:1903:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1903:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1903:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1903:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1903:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1903)?(1903):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1903:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1903:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1903:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1904:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1905:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 1, "NLET_BINDINGS");/*_.BNDS__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1906:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 3, "NLETREC_BINDINGS");/*_.RECBNDS__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#NBBNDS__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11])));;
-  /*_#NBRECBNDS__L5*/ curfnum[4] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.RECBNDS__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-genobj.melt:1909:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 4, "NLETREC_LOCSYMS");/*_.NLOCSYMS__V14*/ curfptr[13] = slot; };
-  ;
-  /*_#NBLOCSYM__L6*/ curfnum[5] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.NLOCSYMS__V14*/ curfptr[13])));;
-  /*_.TUPLOC__V15*/ curfptr[14] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#NBLOCSYM__L6*/ curfnum[5])));;
-  MELT_LOCATION("warmelt-genobj.melt:1912:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RLET__V2*/ curfptr[1]), 2, "NLET_BODY");/*_.BDY__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1913:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V17*/ curfptr[16] = slot; };
-  ;
-  /*_.OBODL__V18*/ curfptr[17] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.OEPIL__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.OALLSTRUCT__V20*/ curfptr[19] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#NBBNDS__L4*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-genobj.melt:1917:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1917:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIALLOCBLOCK*/ curfrout->tabval[5])), (4), "CLASS_OBJMULTIALLOCBLOCK");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1917:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1917:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OBODL__V18*/ curfptr[17]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1917:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), (/*_.OEPIL__V19*/ curfptr[18]), "OBLO_EPIL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1917:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OMALBLO_ALLSTRUCT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.OALLSTRUCT__V20*/ curfptr[19]), "OMALBLO_ALLSTRUCT");
-   ;
-   /*_.OBLOCK__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1924:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1924:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1924:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1924:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_letrec initial loc";
-     MELT_LOCATION("warmelt-genobj.melt:1924:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-genobj.melt:1924:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1924:/ apply.arg");
-     argtab[3].bp_long = 1924;
-     /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1924:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1924:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1924:/ cppif.else");
-  /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1925:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1925:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1925:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1925:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_letrec initial nlocsyms";
-     MELT_LOCATION("warmelt-genobj.melt:1925:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-     MELT_LOCATION("warmelt-genobj.melt:1925:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1925:/ apply.arg");
-     argtab[3].bp_long = 1925;
-     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCSYMS__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1925:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1925:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1925:/ cppif.else");
-  /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NLOCSYMS__V14*/ curfptr[13]);
-   for (/*_#SYMIX__L9*/ curfnum[6] = 0;  
-	(/*_#SYMIX__L9*/ curfnum[6] >= 0) && (/*_#SYMIX__L9*/ curfnum[6] <  cit1__EACHTUP_ln);  
-	/*_#SYMIX__L9*/ curfnum[6]++) {
-   /*_.CURLOCSYM__V27*/ curfptr[25] = melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V14*/ curfptr[13]),  /*_#SYMIX__L9*/ curfnum[6]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1929:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1929:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1929:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1929:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_letrec curlocsym";
-      MELT_LOCATION("warmelt-genobj.melt:1929:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
-      MELT_LOCATION("warmelt-genobj.melt:1929:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1929:/ apply.arg");
-      argtab[3].bp_long = 1929;
-      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1929:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1929:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1929:/ cppif.else");
-   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1930:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1930:/ block");
-    /*block*/{
-     /*_#IS_A__L11*/ curfnum[9] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])));;
-     MELT_LOCATION("warmelt-genobj.melt:1930:/ cond");
-     /*cond*/ if (/*_#IS_A__L11*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1930:/ cond.then");
-     /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1930:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:1930:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:1930:/ locexp");
-        melt_assert_failed(( "check curlocsym"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1930)?(1930):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1930:/ clear");
-     /*clear*/ /*_#IS_A__L11*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1930:/ clear");
-     /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1930:/ cppif.else");
-   /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:1931:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURLOCSYM__V27*/ curfptr[25]), 1, "NOCC_SYMB");/*_.NOCC_SYMB__V32*/ curfptr[30] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:1931:/ cond.else");
-    
-     /*_.NOCC_SYMB__V32*/ curfptr[30] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1931:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOCC_SYMB__V32*/ curfptr[30];
-     MELT_LOCATION("warmelt-genobj.melt:1931:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*!CTYPE_VALUE*/ curfrout->tabval[9]);
-     /*_.CUROBVA__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1933:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1933:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[9] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1933:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1933:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_nrep_letrec curobva";
-       MELT_LOCATION("warmelt-genobj.melt:1933:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[9];
-       MELT_LOCATION("warmelt-genobj.melt:1933:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1933:/ apply.arg");
-       argtab[3].bp_long = 1933;
-       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROBVA__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1933:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[9] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1933:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1933:/ cppif.else");
-    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:1934:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUPLOC__V15*/ curfptr[14]), (/*_#SYMIX__L9*/ curfnum[6]), (melt_ptr_t)(/*_.CUROBVA__V33*/ curfptr[32]));}
-    ;
-    /*_.MULTIPLE_NTH__V36*/ curfptr[34] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11]), (/*_#SYMIX__L9*/ curfnum[6])));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:1935:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.LOCMAP__V17*/ curfptr[16]), 
-			   (meltobject_ptr_t) (/*_.MULTIPLE_NTH__V36*/ curfptr[34]), 
-			   (melt_ptr_t)(/*_.CUROBVA__V33*/ curfptr[32]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ clear");
-    /*clear*/ /*_.NOCC_SYMB__V32*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ clear");
-    /*clear*/ /*_.CUROBVA__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ clear");
-    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1931:/ clear");
-    /*clear*/ /*_.MULTIPLE_NTH__V36*/ curfptr[34] = 0 ;}
-   ;
-   if (/*_#SYMIX__L9*/ curfnum[6]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1926:/ clear");
-   /*clear*/ /*_.CURLOCSYM__V27*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1926:/ clear");
-   /*clear*/ /*_#SYMIX__L9*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1926:/ clear");
-   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1926:/ clear");
-   /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1939:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1939:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L13*/ curfnum[9] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1939:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1939:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_letrec incomplete oblock";
-     MELT_LOCATION("warmelt-genobj.melt:1939:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[9];
-     MELT_LOCATION("warmelt-genobj.melt:1939:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1939:/ apply.arg");
-     argtab[3].bp_long = 1939;
-     /*_.DEBUG_MSG_FUN__V38*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOCK__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V37*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1939:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1939:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[32] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1939:/ cppif.else");
-  /*_.IFCPP___V37*/ curfptr[30] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.BNDS__V12*/ curfptr[11]);
-   for (/*_#BNDIX__L14*/ curfnum[9] = 0;  
-	(/*_#BNDIX__L14*/ curfnum[9] >= 0) && (/*_#BNDIX__L14*/ curfnum[9] <  cit2__EACHTUP_ln);  
-	/*_#BNDIX__L14*/ curfnum[9]++) {
-   /*_.CURBND__V39*/ curfptr[33] = melt_multiple_nth((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11]),  /*_#BNDIX__L14*/ curfnum[9]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1943:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1943:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1943:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1943:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_letrec curbnd";
-      MELT_LOCATION("warmelt-genobj.melt:1943:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
-      MELT_LOCATION("warmelt-genobj.melt:1943:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1943:/ apply.arg");
-      argtab[3].bp_long = 1943;
-      /*_.DEBUG_MSG_FUN__V41*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBND__V39*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V40*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[32];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1943:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1943:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[32] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1943:/ cppif.else");
-   /*_.IFCPP___V40*/ curfptr[34] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:1944:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:1944:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1944:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     /*_.OBND__V42*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURBND__V39*/ curfptr[33]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1946:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1946:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1946:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1946:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_nrep_letrec obnd";
-       MELT_LOCATION("warmelt-genobj.melt:1946:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
-       MELT_LOCATION("warmelt-genobj.melt:1946:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1946:/ apply.arg");
-       argtab[3].bp_long = 1946;
-       /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBND__V42*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1946:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1946:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1946:/ cppif.else");
-    /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:1947:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.OALLSTRUCT__V20*/ curfptr[19]), (/*_#BNDIX__L14*/ curfnum[9]), (melt_ptr_t)(/*_.OBND__V42*/ curfptr[32]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1944:/ clear");
-    /*clear*/ /*_.OBND__V42*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1944:/ clear");
-    /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;}
-   ;
-   if (/*_#BNDIX__L14*/ curfnum[9]<0) break;
-   } /* end cit2__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1940:/ clear");
-   /*clear*/ /*_.CURBND__V39*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1940:/ clear");
-   /*clear*/ /*_#BNDIX__L14*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1940:/ clear");
-   /*clear*/ /*_.IFCPP___V40*/ curfptr[34] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1950:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1950:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1950:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1950:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_letrec oallstruct";
-     MELT_LOCATION("warmelt-genobj.melt:1950:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[14];
-     MELT_LOCATION("warmelt-genobj.melt:1950:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1950:/ apply.arg");
-     argtab[3].bp_long = 1950;
-     /*_.DEBUG_MSG_FUN__V46*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OALLSTRUCT__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1950:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1950:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[32] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1950:/ cppif.else");
-  /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit3__EACHTUP: */
-   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.BNDS__V12*/ curfptr[11]);
-   for (/*_#BNDIX__L18*/ curfnum[14] = 0;  
-	(/*_#BNDIX__L18*/ curfnum[14] >= 0) && (/*_#BNDIX__L18*/ curfnum[14] <  cit3__EACHTUP_ln);  
-	/*_#BNDIX__L18*/ curfnum[14]++) {
-   /*_.CURBND__V47*/ curfptr[42] = melt_multiple_nth((melt_ptr_t)(/*_.BNDS__V12*/ curfptr[11]),  /*_#BNDIX__L18*/ curfnum[14]);
-   
-  
-   MELT_LOCATION("warmelt-genobj.melt:1955:/ block");
-   /*block*/{
-    /*_.OBVA__V49*/ curfptr[48] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.TUPLOC__V15*/ curfptr[14]), (/*_#BNDIX__L18*/ curfnum[14])));;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1957:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1957:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L19*/ curfnum[18] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1957:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1957:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_nrep_letrec again obva";
-       MELT_LOCATION("warmelt-genobj.melt:1957:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[18];
-       MELT_LOCATION("warmelt-genobj.melt:1957:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1957:/ apply.arg");
-       argtab[3].bp_long = 1957;
-       /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1957:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[18] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1957:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1957:/ cppif.else");
-    /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:1958:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:1958:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L20*/ curfnum[18] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:1958:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:1958:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_nrep_letrec again curbnd";
-       MELT_LOCATION("warmelt-genobj.melt:1958:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[18];
-       MELT_LOCATION("warmelt-genobj.melt:1958:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:1958:/ apply.arg");
-       argtab[3].bp_long = 1958;
-       /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBND__V47*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V52*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:1958:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[18] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:1958:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:1958:/ cppif.else");
-    /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:1959:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1959:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBVA__V49*/ curfptr[48];
-     MELT_LOCATION("warmelt-genobj.melt:1959:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OBODL__V18*/ curfptr[17];
-     MELT_LOCATION("warmelt-genobj.melt:1959:/ ojbmsend.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-genobj.melt:1959:/ ojbmsend.arg");
-     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ curfptr[10];
-     /*_.COMPILE_LETREC_FILL__V54*/ curfptr[52] = meltgc_send((melt_ptr_t)(/*_.CURBND__V47*/ curfptr[42]), (melt_ptr_t)((/*!COMPILE_LETREC_FILL*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.LET___V48*/ curfptr[32] = /*_.COMPILE_LETREC_FILL__V54*/ curfptr[52];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1955:/ clear");
-    /*clear*/ /*_.OBVA__V49*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1955:/ clear");
-    /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1955:/ clear");
-    /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1955:/ clear");
-    /*clear*/ /*_.COMPILE_LETREC_FILL__V54*/ curfptr[52] = 0 ;}
-   ;
-   if (/*_#BNDIX__L18*/ curfnum[14]<0) break;
-   } /* end cit3__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1952:/ clear");
-   /*clear*/ /*_.CURBND__V47*/ curfptr[42] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1952:/ clear");
-   /*clear*/ /*_#BNDIX__L18*/ curfnum[14] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1952:/ clear");
-   /*clear*/ /*_.LET___V48*/ curfptr[32] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:1963:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:1963:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L21*/ curfnum[18] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:1963:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:1963:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_letrec final oblock";
-     MELT_LOCATION("warmelt-genobj.melt:1963:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[18];
-     MELT_LOCATION("warmelt-genobj.melt:1963:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:1963:/ apply.arg");
-     argtab[3].bp_long = 1963;
-     /*_.DEBUG_MSG_FUN__V56*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOCK__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V55*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[49];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:1963:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:1963:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[49] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:1963:/ cppif.else");
-  /*_.IFCPP___V55*/ curfptr[48] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V21*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.BNDS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.RECBNDS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_#NBBNDS__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_#NBRECBNDS__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.NLOCSYMS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_#NBLOCSYM__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.TUPLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.BDY__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.LOCMAP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.OBODL__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.OEPIL__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.OALLSTRUCT__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.OBLOCK__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.IFCPP___V37*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1904:/ clear");
-  /*clear*/ /*_.IFCPP___V55*/ curfptr[48] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:1900:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1900:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1900:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1900:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1900:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1900:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_LETREC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 78
-  void* varptr[78];
-#define CURFRAM_NBVARNUM 17
-  long varnum[17];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<78; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 78;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_CITERATION", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:1970:/ getarg");
- /*_.NCITER__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:1970:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:1970:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1971:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1971:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:1971:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1971:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1971:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1971:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1971:/ locexp");
-      melt_assert_failed(( "check nciter"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1971)?(1971):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1971:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1971:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1971:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1972:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1972:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:1972:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:1972:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:1972:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:1972:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:1972:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1972)?(1972):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1972:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1972:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1972:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:1973:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:1973:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:1973:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:1973:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_citeration nciter";
-    MELT_LOCATION("warmelt-genobj.melt:1973:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:1973:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:1973:/ apply.arg");
-    argtab[3].bp_long = 1973;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1973:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1973:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:1973:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:1974:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1975:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OBROUT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1976:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 1, "NCITER_CITERATOR");/*_.CITER__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1977:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 6, "NCITER_LOCBINDINGS");/*_.NLOCBIND__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1978:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 2, "NCITER_CHUNKBEFORE");/*_.NCHKBEF__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1979:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1979:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 5, "NCITER_STATOCC");/*_.NS__V17*/ curfptr[16] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1980:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1980:/ block");
-    /*block*/{
-     /*_#IS_A__L4*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.NS__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])));;
-     MELT_LOCATION("warmelt-genobj.melt:1980:/ cond");
-     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1980:/ cond.then");
-     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1980:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:1980:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:1980:/ locexp");
-        melt_assert_failed(( "check nstatocc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1980)?(1980):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1980:/ clear");
-     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1980:/ clear");
-     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1980:/ cppif.else");
-   /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1981:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1981:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:1981:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:1981:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_citeration nstatocc";
-      MELT_LOCATION("warmelt-genobj.melt:1981:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:1981:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:1981:/ apply.arg");
-      argtab[3].bp_long = 1981;
-      /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1981:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1981:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1981:/ cppif.else");
-   /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V16*/ curfptr[15] = /*_.NS__V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1979:/ clear");
-   /*clear*/ /*_.NS__V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1979:/ clear");
-   /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1979:/ clear");
-   /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;}
-  ;
-  /*_.NSTATOCC__V22*/ curfptr[20] = /*_.LET___V16*/ curfptr[15];;
-  MELT_LOCATION("warmelt-genobj.melt:1983:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 4, "NCITER_BODY");/*_.NBODY__V23*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1984:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 7, "NCITER_BODBINDINGS");/*_.NBODBIND__V24*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1985:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCITER__V2*/ curfptr[1]), 3, "NCITER_CHUNKAFTER");/*_.NCHKAFT__V25*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1986:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1986:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]), 3, "NOCC_BIND");/*_.BI__V27*/ curfptr[26] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:1987:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:1987:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.BI__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-genobj.melt:1987:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:1987:/ cond.then");
-     /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:1987:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:1987:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:1987:/ locexp");
-        melt_assert_failed(( "check nstatbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (1987)?(1987):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:1987:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:1987:/ clear");
-     /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:1987:/ cppif.else");
-   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V26*/ curfptr[25] = /*_.BI__V27*/ curfptr[26];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:1986:/ clear");
-   /*clear*/ /*_.BI__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:1986:/ clear");
-   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;}
-  ;
-  /*_.NSTATBIND__V30*/ curfptr[28] = /*_.LET___V26*/ curfptr[25];;
-  MELT_LOCATION("warmelt-genobj.melt:1989:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATBIND__V30*/ curfptr[28]), 0, "BINDER");/*_.NSTATSY__V31*/ curfptr[26] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1990:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V32*/ curfptr[27] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:1990:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1990:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTATSY__V31*/ curfptr[26];
-   MELT_LOCATION("warmelt-genobj.melt:1990:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NOCC_CTYP__V32*/ curfptr[27];
-   /*_.OSTAT__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.OBODL__V34*/ curfptr[33] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-  /*_.OEPIL__V35*/ curfptr[34] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-  MELT_LOCATION("warmelt-genobj.melt:1993:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ curfrout->tabval[7])), (6), "CLASS_OBJCITERBLOCK");/*_.INST__V37*/ curfptr[36] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OBODL__V34*/ curfptr[33]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.OEPIL__V35*/ curfptr[34]), "OBLO_EPIL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCITER_CITER", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (3), (/*_.CITER__V13*/ curfptr[12]), "OBCITER_CITER");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCITER_BEFORE", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (4), ((/*nil*/NULL)), "OBCITER_BEFORE");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:1993:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCITER_AFTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), ((/*nil*/NULL)), "OBCITER_AFTER");
-   ;
-   /*_.OCBLOCK__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2001:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V38*/ curfptr[37] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2003:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2003:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2003:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2003:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration nlocbind";
-     MELT_LOCATION("warmelt-genobj.melt:2003:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2003:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2003:/ apply.arg");
-     argtab[3].bp_long = 2003;
-     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2003:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2003:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2003:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2004:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2004:/ block");
-   /*block*/{
-    /*_#IS_A__L8*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CITER__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])));;
-    MELT_LOCATION("warmelt-genobj.melt:2004:/ cond");
-    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2004:/ cond.then");
-    /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2004:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2004:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2004:/ locexp");
-       melt_assert_failed(( "check citer"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2004)?(2004):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2004:/ clear");
-    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2004:/ clear");
-    /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2004:/ cppif.else");
-  /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2005:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2005:/ block");
-   /*block*/{
-    /*_#IS_MAPOBJECT__L9*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37])) == OBMAG_MAPOBJECTS);;
-    MELT_LOCATION("warmelt-genobj.melt:2005:/ cond");
-    /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2005:/ cond.then");
-    /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2005:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2005:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2005:/ locexp");
-       melt_assert_failed(( "check locmap"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2005)?(2005):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2005:/ clear");
-    /*clear*/ /*_#IS_MAPOBJECT__L9*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2005:/ clear");
-    /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2005:/ cppif.else");
-  /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2006:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2006:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0] = 
-     ((/*_.NLOCBIND__V14*/ curfptr[13]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-genobj.melt:2006:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2006:/ cond.then");
-    /*_.IFELSE___V46*/ curfptr[45] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2006:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2006:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2006:/ locexp");
-       melt_assert_failed(( "check nlocbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2006)?(2006):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V45*/ curfptr[43] = /*_.IFELSE___V46*/ curfptr[45];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2006:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2006:/ clear");
-    /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2006:/ cppif.else");
-  /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2009:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2009:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V48*/ curfptr[47] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_15*/ curfrout->tabval[15])), (4));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2009:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2009:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[1] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2009:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[2] = (melt_ptr_t)(/*_.OEPIL__V35*/ curfptr[34]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2009:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V48*/ curfptr[47])->tabval[3] = (melt_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37]);
-   ;
-   /*_.LAMBDA___V47*/ curfptr[45] = /*_.LAMBDA___V48*/ curfptr[47];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2007:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2007:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V47*/ curfptr[45];
-   /*_.MULTIPLE_EVERY__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NLOCBIND__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2028:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2028:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2028:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2028:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration ocblock start";
-     MELT_LOCATION("warmelt-genobj.melt:2028:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2028:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2028:/ apply.arg");
-     argtab[3].bp_long = 2028;
-     /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2028:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2028:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2028:/ cppif.else");
-  /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2029:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.OBROUT__V12*/ curfptr[11]), 8, "OBROUT_CNTCITER");/*_.BOXCNTCITER__V52*/ curfptr[50] = slot; };
-   ;
-   /*_#GET_INT__L12*/ curfnum[0] = 
-    (melt_get_int((melt_ptr_t)(/*_.BOXCNTCITER__V52*/ curfptr[50])));;
-   /*_#CNT__L13*/ curfnum[12] = 
-    ((1) + (/*_#GET_INT__L12*/ curfnum[0]));;
-   MELT_LOCATION("warmelt-genobj.melt:2032:/ block");
-   /*block*/{
-    /*_.SBU__V54*/ curfptr[53] = 
-     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[16])), (char*)0);;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2033:/ locexp");
-    melt_put_int((melt_ptr_t)(/*_.BOXCNTCITER__V52*/ curfptr[50]), (/*_#CNT__L13*/ curfnum[12]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2034:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]), ( "cit"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2035:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]), (/*_#CNT__L13*/ curfnum[12]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2036:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]), ( "__"));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2037:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NSTATSY__V31*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[54] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2037:/ locexp");
-    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[54])));}
-    ;
-    /*_.STRBUF2STRING__V56*/ curfptr[55] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[17])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V54*/ curfptr[53]))));;
-    /*_.LET___V53*/ curfptr[52] = /*_.STRBUF2STRING__V56*/ curfptr[55];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2032:/ clear");
-    /*clear*/ /*_.SBU__V54*/ curfptr[53] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2032:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[54] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2032:/ clear");
-    /*clear*/ /*_.STRBUF2STRING__V56*/ curfptr[55] = 0 ;}
-   ;
-   /*_.STATSTR__V57*/ curfptr[53] = /*_.LET___V53*/ curfptr[52];;
-   MELT_LOCATION("warmelt-genobj.melt:2045:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2045:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[55] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2045:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[0] = (melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2045:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[1] = (melt_ptr_t)(/*_.STATSTR__V57*/ curfptr[53]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2045:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[55])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[55])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[55])->tabval[2] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    /*_.LAMBDA___V58*/ curfptr[54] = /*_.LAMBDA___V59*/ curfptr[55];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2043:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2043:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[54];
-    /*_.MULTIPLE_MAP__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCHKBEF__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2057:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2057:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V62*/ curfptr[61] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2057:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[0] = (melt_ptr_t)(/*_.NSTATOCC__V22*/ curfptr[20]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2057:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[1] = (melt_ptr_t)(/*_.STATSTR__V57*/ curfptr[53]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2057:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[61])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[61])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[61])->tabval[2] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    /*_.LAMBDA___V61*/ curfptr[60] = /*_.LAMBDA___V62*/ curfptr[61];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2055:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2055:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V61*/ curfptr[60];
-    /*_.MULTIPLE_MAP__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCHKAFT__V25*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2041:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2041:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCITER_BEFORE", melt_magic_discr((melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.OCBLOCK__V36*/ curfptr[35]), (4), (/*_.MULTIPLE_MAP__V60*/ curfptr[59]), "OBCITER_BEFORE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2041:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCITER_AFTER", melt_magic_discr((melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.OCBLOCK__V36*/ curfptr[35]), (5), (/*_.MULTIPLE_MAP__V63*/ curfptr[62]), "OBCITER_AFTER");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2041:/ touch");
-    meltgc_touch(/*_.OCBLOCK__V36*/ curfptr[35]);
-    ;
-    /*epilog*/}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.BOXCNTCITER__V52*/ curfptr[50] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_#GET_INT__L12*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_#CNT__L13*/ curfnum[12] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.STATSTR__V57*/ curfptr[53] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.LAMBDA___V58*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.MULTIPLE_MAP__V60*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.LAMBDA___V61*/ curfptr[60] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2029:/ clear");
-   /*clear*/ /*_.MULTIPLE_MAP__V63*/ curfptr[62] = 0 ;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2069:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2069:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2069:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2069:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration ocblock filled before&after chunks";
-     MELT_LOCATION("warmelt-genobj.melt:2069:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2069:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2069:/ apply.arg");
-     argtab[3].bp_long = 2069;
-     /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V64*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[52];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2069:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2069:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2069:/ cppif.else");
-  /*_.IFCPP___V64*/ curfptr[50] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2070:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2070:/ block");
-   /*block*/{
-    /*_#IS_LIST_OR_NULL__L15*/ curfnum[12] = 
-     ((/*_.NBODBIND__V24*/ curfptr[17]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBODBIND__V24*/ curfptr[17])) == OBMAG_LIST));;
-    MELT_LOCATION("warmelt-genobj.melt:2070:/ cond");
-    /*cond*/ if (/*_#IS_LIST_OR_NULL__L15*/ curfnum[12]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2070:/ cond.then");
-    /*_.IFELSE___V67*/ curfptr[54] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2070:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2070:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2070:/ locexp");
-       melt_assert_failed(( "check nbodbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2070)?(2070):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V67*/ curfptr[54] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V66*/ curfptr[53] = /*_.IFELSE___V67*/ curfptr[54];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2070:/ clear");
-    /*clear*/ /*_#IS_LIST_OR_NULL__L15*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2070:/ clear");
-    /*clear*/ /*_.IFELSE___V67*/ curfptr[54] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2070:/ cppif.else");
-  /*_.IFCPP___V66*/ curfptr[53] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2073:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2073:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V69*/ curfptr[60] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_33*/ curfrout->tabval[33])), (5));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2073:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2073:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[1] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2073:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[2] = (melt_ptr_t)(/*_.OEPIL__V35*/ curfptr[34]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2073:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[3] = (melt_ptr_t)(/*_.LOCMAP__V38*/ curfptr[37]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2073:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V69*/ curfptr[60])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V69*/ curfptr[60])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[60])->tabval[4] = (melt_ptr_t)(/*_.OBODL__V34*/ curfptr[33]);
-   ;
-   /*_.LAMBDA___V68*/ curfptr[59] = /*_.LAMBDA___V69*/ curfptr[60];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2071:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2071:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V68*/ curfptr[59];
-   /*_.LIST_EVERY__V70*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.NBODBIND__V24*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2108:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2108:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2108:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2108:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration nbody";
-     MELT_LOCATION("warmelt-genobj.melt:2108:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2108:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2108:/ apply.arg");
-     argtab[3].bp_long = 2108;
-     /*_.DEBUG_MSG_FUN__V72*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NBODY__V23*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V71*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[54];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2108:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2108:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[54] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2108:/ cppif.else");
-  /*_.IFCPP___V71*/ curfptr[52] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2111:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2111:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V74*/ curfptr[73] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_36*/ curfrout->tabval[36])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2111:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V74*/ curfptr[73])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V74*/ curfptr[73])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V74*/ curfptr[73])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2111:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V74*/ curfptr[73])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V74*/ curfptr[73])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V74*/ curfptr[73])->tabval[1] = (melt_ptr_t)(/*_.OBODL__V34*/ curfptr[33]);
-   ;
-   /*_.LAMBDA___V73*/ curfptr[54] = /*_.LAMBDA___V74*/ curfptr[73];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2109:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2109:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V73*/ curfptr[54];
-   /*_.MULTIPLE_EVERY__V75*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NBODY__V23*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2118:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2118:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2118:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2118:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration final ocblock";
-     MELT_LOCATION("warmelt-genobj.melt:2118:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[12];
-     MELT_LOCATION("warmelt-genobj.melt:2118:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2118:/ apply.arg");
-     argtab[3].bp_long = 2118;
-     /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLOCK__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V76*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2118:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2118:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2118:/ cppif.else");
-  /*_.IFCPP___V76*/ curfptr[75] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2119:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OCBLOCK__V36*/ curfptr[35];;
-   MELT_LOCATION("warmelt-genobj.melt:2119:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V78*/ curfptr[76];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.OBROUT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.CITER__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NLOCBIND__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NCHKBEF__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NSTATOCC__V22*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NBODY__V23*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NBODBIND__V24*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NCHKAFT__V25*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NSTATBIND__V30*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NSTATSY__V31*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.NOCC_CTYP__V32*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.OSTAT__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.OBODL__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.OEPIL__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.OCBLOCK__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LOCMAP__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LAMBDA___V47*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V64*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V66*/ curfptr[53] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LAMBDA___V68*/ curfptr[59] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V70*/ curfptr[62] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V71*/ curfptr[52] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.LAMBDA___V73*/ curfptr[54] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V75*/ curfptr[74] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.IFCPP___V76*/ curfptr[75] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:1974:/ clear");
-  /*clear*/ /*_.RETURN___V78*/ curfptr[76] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:1970:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:1970:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:1970:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1970:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1970:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:1970:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_CITERATION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_51_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2009:/ getarg");
- /*_.NLBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2009:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2009:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2010:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2010:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2010:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2010:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_citeration current nlocbinding nlbnd";
-    MELT_LOCATION("warmelt-genobj.melt:2010:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2010:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2010:/ apply.arg");
-    argtab[3].bp_long = 2010;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2010:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2010:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2010:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2011:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2011:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2011:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2011:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2011:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2011:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2011:/ locexp");
-      melt_assert_failed(( "check nlbnd in compilobj_nrep_citeration"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2011)?(2011):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2011:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2011:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2011:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2012:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2013:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2014:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2015:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2015:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V8*/ curfptr[7];
-   MELT_LOCATION("warmelt-genobj.melt:2015:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V9*/ curfptr[8];
-   /*_.OBLVA__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2017:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2017:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2017:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2017:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration current local binder";
-     MELT_LOCATION("warmelt-genobj.melt:2017:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2017:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2017:/ apply.arg");
-     argtab[3].bp_long = 2017;
-     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BDER__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2017:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2017:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2017:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2018:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2018:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2018:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2018:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration current oblva";
-     MELT_LOCATION("warmelt-genobj.melt:2018:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2018:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2018:/ apply.arg");
-     argtab[3].bp_long = 2018;
-     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLVA__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2018:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2018:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2018:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#__L6*/ curfnum[1] = 
-   ((/*_.CTY__V9*/ curfptr[8]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-genobj.melt:2019:/ cond");
-  /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2019:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2019:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2020:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2020:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2020:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[4])), (2), "CLASS_OBJCLEAR");/*_.INST__V19*/ curfptr[18] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2020:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), ((/*~LOC*/ curfclos->tabval[1])), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2020:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.OBLVA__V11*/ curfptr[10]), "OCLR_VLOC");
-      ;
-      /*_.OCLR__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:2023:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OCLR__V18*/ curfptr[17]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:2024:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[3])), 
-			   (meltobject_ptr_t) (/*_.NLBND__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBLVA__V11*/ curfptr[10]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:2025:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:2025:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:2025:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:2025:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_citeration added clear for nlbnd";
-        MELT_LOCATION("warmelt-genobj.melt:2025:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-genobj.melt:2025:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:2025:/ apply.arg");
-        argtab[3].bp_long = 2025;
-        /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2025:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2025:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:2025:/ cppif.else");
-     /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V17*/ curfptr[16] = /*_.IFCPP___V20*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2020:/ clear");
-     /*clear*/ /*_.OCLR__V18*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2020:/ clear");
-     /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.LET___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2019:/ clear");
-    /*clear*/ /*_.LET___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2019:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.LET___V7*/ curfptr[5] = /*_.IF___V16*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.NEXP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.OBLVA__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_#__L6*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2012:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2009:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:2009:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2009:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2009:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2009:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_51_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_52_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2045:/ getarg");
- /*_.CBEF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2045:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2045:/ block");
-/*block*/{
- /*_#IS_STRING__L2*/ curfnum[1] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.CBEF__V2*/ curfptr[1])) == OBMAG_STRING);;
- MELT_LOCATION("warmelt-genobj.melt:2047:/ cond");
- /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2047:/ cond.then");
- /*_.IFELSE___V3*/ curfptr[2] = /*_.CBEF__V2*/ curfptr[1];;
- } else {MELT_LOCATION("warmelt-genobj.melt:2047:/ cond.else");
- 
-  MELT_LOCATION("warmelt-genobj.melt:2047:/ block");
-  /*block*/{
-   /*_#__L3*/ curfnum[2] = 
-    ((/*_.CBEF__V2*/ curfptr[1]) == ((/*~NSTATOCC*/ curfclos->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2048:/ cond");
-   /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2048:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*~STATSTR*/ curfclos->tabval[1]);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2048:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2048:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:2050:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:2050:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:2050:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:2050:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_citeration cbef";
-        MELT_LOCATION("warmelt-genobj.melt:2050:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-        MELT_LOCATION("warmelt-genobj.melt:2050:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:2050:/ apply.arg");
-        argtab[3].bp_long = 2050;
-        /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBEF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2050:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2050:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:2050:/ cppif.else");
-     /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:2051:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2051:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2051:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]);
-       /*_.OBEF__V8*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CBEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2052:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2052:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2052:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_citeration obef";
-         MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
-         MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2052:/ apply.arg");
-         argtab[3].bp_long = 2052;
-         /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBEF__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2052:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2052:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2052:/ cppif.else");
-      /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.LET___V7*/ curfptr[5] = /*_.OBEF__V8*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2051:/ clear");
-      /*clear*/ /*_.OBEF__V8*/ curfptr[7] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2051:/ clear");
-      /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2049:/ block");
-     /*block*/{
-      /*_.PROGN___V11*/ curfptr[9] = /*_.LET___V7*/ curfptr[5];;}
-     ;
-     /*_.IFELSE___V4*/ curfptr[3] = /*_.PROGN___V11*/ curfptr[9];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2048:/ clear");
-     /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2048:/ clear");
-     /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2048:/ clear");
-     /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;}
-    ;
-    }
-   ;
-   /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2047:/ clear");
-   /*clear*/ /*_#__L3*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2047:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2045:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2045:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2045:/ clear");
- /*clear*/ /*_#IS_STRING__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2045:/ clear");
- /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_52_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_53_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2057:/ getarg");
- /*_.CAFT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2057:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2057:/ block");
-/*block*/{
- /*_#IS_STRING__L2*/ curfnum[1] = 
-  (melt_magic_discr((melt_ptr_t)(/*_.CAFT__V2*/ curfptr[1])) == OBMAG_STRING);;
- MELT_LOCATION("warmelt-genobj.melt:2059:/ cond");
- /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2059:/ cond.then");
- /*_.IFELSE___V3*/ curfptr[2] = /*_.CAFT__V2*/ curfptr[1];;
- } else {MELT_LOCATION("warmelt-genobj.melt:2059:/ cond.else");
- 
-  MELT_LOCATION("warmelt-genobj.melt:2059:/ block");
-  /*block*/{
-   /*_#__L3*/ curfnum[2] = 
-    ((/*_.CAFT__V2*/ curfptr[1]) == ((/*~NSTATOCC*/ curfclos->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2060:/ cond");
-   /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2060:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*~STATSTR*/ curfclos->tabval[1]);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2060:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2060:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:2062:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:2062:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:2062:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:2062:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_citeration caft";
-        MELT_LOCATION("warmelt-genobj.melt:2062:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-        MELT_LOCATION("warmelt-genobj.melt:2062:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:2062:/ apply.arg");
-        argtab[3].bp_long = 2062;
-        /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CAFT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2062:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2062:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:2062:/ cppif.else");
-     /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:2063:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2063:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2063:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[2]);
-       /*_.OAFT__V8*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CAFT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2064:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2064:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2064:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_citeration oaft";
-         MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
-         MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2064:/ apply.arg");
-         argtab[3].bp_long = 2064;
-         /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OAFT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2064:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2064:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2064:/ cppif.else");
-      /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.LET___V7*/ curfptr[5] = /*_.OAFT__V8*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2063:/ clear");
-      /*clear*/ /*_.OAFT__V8*/ curfptr[7] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2063:/ clear");
-      /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2061:/ block");
-     /*block*/{
-      /*_.PROGN___V11*/ curfptr[9] = /*_.LET___V7*/ curfptr[5];;}
-     ;
-     /*_.IFELSE___V4*/ curfptr[3] = /*_.PROGN___V11*/ curfptr[9];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2060:/ clear");
-     /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2060:/ clear");
-     /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2060:/ clear");
-     /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;}
-    ;
-    }
-   ;
-   /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2059:/ clear");
-   /*clear*/ /*_#__L3*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2059:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2057:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2057:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2057:/ clear");
- /*clear*/ /*_#IS_STRING__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2057:/ clear");
- /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_53_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_54_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 28
-  void* varptr[28];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<28; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 28;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2073:/ getarg");
- /*_.NBBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2073:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2073:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2074:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2074:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2074:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2074:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_citeration current nbodbinding nbbnd";
-    MELT_LOCATION("warmelt-genobj.melt:2074:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2074:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2074:/ apply.arg");
-    argtab[3].bp_long = 2074;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2074:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2074:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2074:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2075:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2075:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2075:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2075:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2075:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2075:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2075:/ locexp");
-      melt_assert_failed(( "check nbbnd in compilobj_nrep_citeration"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2075)?(2075):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2075:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2075:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2075:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2076:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2077:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2078:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NBBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2079:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2079:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V7*/ curfptr[5];
-   MELT_LOCATION("warmelt-genobj.melt:2079:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V8*/ curfptr[7];
-   /*_.OBBVA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2081:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2081:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2081:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2081:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration current obbva";
-     MELT_LOCATION("warmelt-genobj.melt:2081:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2081:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2081:/ apply.arg");
-     argtab[3].bp_long = 2081;
-     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2081:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2081:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2081:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#__L5*/ curfnum[1] = 
-   ((/*_.CTY__V8*/ curfptr[7]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-genobj.melt:2082:/ cond");
-  /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2082:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2082:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2083:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2083:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2083:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[4])), (2), "CLASS_OBJCLEAR");/*_.INST__V16*/ curfptr[15] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2083:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), ((/*~LOC*/ curfclos->tabval[1])), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2083:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.OBBVA__V10*/ curfptr[9]), "OCLR_VLOC");
-      ;
-      /*_.OCLR__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:2087:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OCLR__V15*/ curfptr[14]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:2088:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[3])), 
-			   (meltobject_ptr_t) (/*_.NBBND__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:2089:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:2089:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:2089:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:2089:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_citeration added clear for obbva";
-        MELT_LOCATION("warmelt-genobj.melt:2089:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-        MELT_LOCATION("warmelt-genobj.melt:2089:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:2089:/ apply.arg");
-        argtab[3].bp_long = 2089;
-        /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2089:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2089:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:2089:/ cppif.else");
-     /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V14*/ curfptr[13] = /*_.IFCPP___V17*/ curfptr[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2083:/ clear");
-     /*clear*/ /*_.OCLR__V15*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2083:/ clear");
-     /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
-    ;
-    /*_.IF___V13*/ curfptr[11] = /*_.LET___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2082:/ clear");
-    /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2082:/ cond.else");
-  
-   /*_.IF___V13*/ curfptr[11] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2092:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2092:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2092:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-    /*_.OCUR__V19*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NEXP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2093:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2093:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2093:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2093:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_citeration raw ocur";
-      MELT_LOCATION("warmelt-genobj.melt:2093:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:2093:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2093:/ apply.arg");
-      argtab[3].bp_long = 2093;
-      /*_.DEBUG_MSG_FUN__V21*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V20*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2093:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2093:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[16] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2093:/ cppif.else");
-   /*_.IFCPP___V20*/ curfptr[14] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_#__L8*/ curfnum[5] = 
-    ((/*_.CTY__V8*/ curfptr[7]) != ((/*!CTYPE_VOID*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:2094:/ cond");
-   /*cond*/ if (/*_#__L8*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2094:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:2094:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:2096:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:2096:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:2096:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:2096:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_citeration putobjdest obbva";
-        MELT_LOCATION("warmelt-genobj.melt:2096:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-        MELT_LOCATION("warmelt-genobj.melt:2096:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:2096:/ apply.arg");
-        argtab[3].bp_long = 2096;
-        /*_.DEBUG_MSG_FUN__V23*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V22*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[16];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2096:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2096:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[16] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:2096:/ cppif.else");
-     /*_.IFCPP___V22*/ curfptr[13] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:2097:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2097:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2097:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBBVA__V10*/ curfptr[9];
-       /*_.NEWOCUR__V24*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2098:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2098:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2098:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_citeration putobjdest newocur";
-         MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-         MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2098:/ apply.arg");
-         argtab[3].bp_long = 2098;
-         /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEWOCUR__V24*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2098:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2098:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2098:/ cppif.else");
-      /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-genobj.melt:2099:/ cond");
-      /*cond*/ if (/*_.NEWOCUR__V24*/ curfptr[16]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:2099:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:2099:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:2100:/ locexp");
-        meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.NEWOCUR__V24*/ curfptr[16]));}
-        ;
-        /*epilog*/}
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:2099:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:2099:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:2101:/ locexp");
-        meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]));}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2097:/ clear");
-      /*clear*/ /*_.NEWOCUR__V24*/ curfptr[16] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2097:/ clear");
-      /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2095:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2094:/ clear");
-     /*clear*/ /*_.IFCPP___V22*/ curfptr[13] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2094:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2094:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:2104:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:2104:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:2104:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:2104:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_citeration ocur";
-        MELT_LOCATION("warmelt-genobj.melt:2104:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
-        MELT_LOCATION("warmelt-genobj.melt:2104:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:2104:/ apply.arg");
-        argtab[3].bp_long = 2104;
-        /*_.DEBUG_MSG_FUN__V28*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[16];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2104:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2104:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[16] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:2104:/ cppif.else");
-     /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:2105:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OCUR__V19*/ curfptr[17]));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2103:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2094:/ clear");
-     /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;}
-    ;
-    }
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2092:/ clear");
-   /*clear*/ /*_.OCUR__V19*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2092:/ clear");
-   /*clear*/ /*_.IFCPP___V20*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2092:/ clear");
-   /*clear*/ /*_#__L8*/ curfnum[5] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_.BDER__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_.CTY__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_.NEXP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_.OBBVA__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_#__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2076:/ clear");
-  /*clear*/ /*_.IF___V13*/ curfptr[11] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2073:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2073:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_54_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_55_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2111:/ getarg");
- /*_.NCURBOD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2111:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2111:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2112:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2112:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2112:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2112:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_citeration ncurbod";
-    MELT_LOCATION("warmelt-genobj.melt:2112:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2112:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2112:/ apply.arg");
-    argtab[3].bp_long = 2112;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURBOD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2112:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2112:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2112:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2113:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2113:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2113:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OCBOD__V5*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.NCURBOD__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2114:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2114:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2114:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_citeration ocbod";
-     MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2114:/ apply.arg");
-     argtab[3].bp_long = 2114;
-     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCBOD__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2114:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2114:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2114:/ cppif.else");
-  /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2115:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCBOD__V5*/ curfptr[3]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2113:/ clear");
-  /*clear*/ /*_.OCBOD__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2113:/ clear");
-  /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2111:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_55_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_SETQ", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2127:/ getarg");
- /*_.NSQ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2127:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2127:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2128:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2128:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2128:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2128:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2128:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2128:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2128:/ locexp");
-      melt_assert_failed(( "check nsq"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2128)?(2128):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2128:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2128:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2128:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2129:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2129:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2129:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2129:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2129:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2129:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2129:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2129)?(2129):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2129:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2129:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2129:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2130:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2130:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2130:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2130:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_setq nsq";
-    MELT_LOCATION("warmelt-genobj.melt:2130:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2130:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2130:/ apply.arg");
-    argtab[3].bp_long = 2130;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2130:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2130:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2130:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2131:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2132:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.VAR__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2133:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSQ__V2*/ curfptr[1]), 2, "NSTQ_EXP");/*_.EXP__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2134:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2134:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.CEXP__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.EXP__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2135:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2135:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.CVAR__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.VAR__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2136:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2136:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CVAR__V15*/ curfptr[14];
-   /*_.CRES__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.CEXP__V14*/ curfptr[13]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_A__L4*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CRES__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-genobj.melt:2138:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2138:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2138:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2139:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CRES__V16*/ curfptr[15]), 0, "OBI_LOC");/*_.OBI_LOC__V17*/ curfptr[16] = slot; };
-    ;
-    /*_#NULL__L5*/ curfnum[4] = 
-     ((/*_.OBI_LOC__V17*/ curfptr[16]) == NULL);;
-    MELT_LOCATION("warmelt-genobj.melt:2138:/ cond");
-    /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2138:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:2138:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2140:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:2140:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.CRES__V16*/ curfptr[15])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.CRES__V16*/ curfptr[15]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:2140:/ touch");
-       meltgc_touch(/*_.CRES__V16*/ curfptr[15]);
-       ;
-       /*epilog*/}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2138:/ clear");
-    /*clear*/ /*_.OBI_LOC__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2138:/ clear");
-    /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2141:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2141:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2141:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2141:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_setq cres";
-     MELT_LOCATION("warmelt-genobj.melt:2141:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:2141:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2141:/ apply.arg");
-     argtab[3].bp_long = 2141;
-     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CRES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2141:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2141:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2141:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.CRES__V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.VAR__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.EXP__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.CEXP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.CVAR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.CRES__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2131:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2127:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2127:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2127:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2127:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2127:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2127:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_SETQ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_PROGN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2149:/ getarg");
- /*_.NPRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2149:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2149:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2150:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2150:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_PROGN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2150:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2150:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2150:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2150:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2150:/ locexp");
-      melt_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2150)?(2150):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2150:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2150:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2150:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2151:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2151:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2151:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2151:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2151:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2151:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2151:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2151)?(2151):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2151:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2151:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2151:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2152:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2152:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2152:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2152:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_progn npro";
-    MELT_LOCATION("warmelt-genobj.melt:2152:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2152:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2152:/ apply.arg");
-    argtab[3].bp_long = 2152;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2152:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2152:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2152:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2153:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2154:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 1, "NPROGN_SEQ");/*_.NSEQ__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2155:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), 2, "NPROGN_LAST");/*_.NLAST__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.BODYL__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2157:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2157:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V16*/ curfptr[15] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2157:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2157:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.BODYL__V14*/ curfptr[13]), "OBLO_BODYL");
-   ;
-   /*_.OBLOCK__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2165:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2165:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2165:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2165:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.BODYL__V14*/ curfptr[13]);
-   ;
-   /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2163:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2163:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
-   /*_.MULTIPLE_EVERY__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NSEQ__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2169:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2169:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2169:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OLAST__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NLAST__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[8])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2170:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.BODYL__V14*/ curfptr[13]), (melt_ptr_t)(/*_.OLAST__V20*/ curfptr[19]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2169:/ clear");
-   /*clear*/ /*_.OLAST__V20*/ curfptr[19] = 0 ;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2171:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2171:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2171:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2171:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_progn oblock";
-     MELT_LOCATION("warmelt-genobj.melt:2171:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2171:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2171:/ apply.arg");
-     argtab[3].bp_long = 2171;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2171:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2171:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2171:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2172:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V15*/ curfptr[14];;
-   MELT_LOCATION("warmelt-genobj.melt:2172:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.NSEQ__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.NLAST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.BODYL__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.OBLOCK__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2153:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2149:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2149:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2149:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2149:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2149:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2149:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_PROGN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_58_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2165:/ getarg");
- /*_.NCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2165:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2165:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2166:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2166:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2166:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OCOMP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.NCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2167:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~BODYL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCOMP__V3*/ curfptr[2]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2166:/ clear");
-  /*clear*/ /*_.OCOMP__V3*/ curfptr[2] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_58_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_MULTACC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2177:/ getarg");
- /*_.NMA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2177:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2177:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2178:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2178:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2178:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2178:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2178:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2178:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2178:/ locexp");
-      melt_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2178)?(2178):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2178:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2178:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2178:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2179:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2179:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2179:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2179:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2179:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2179:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2179:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2179)?(2179):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2179:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2179:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2179:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2180:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2180:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2180:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2180:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multacc nma";
-    MELT_LOCATION("warmelt-genobj.melt:2180:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2180:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2180:/ apply.arg");
-    argtab[3].bp_long = 2180;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2180:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2180:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2180:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2181:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2182:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 1, "NACCM_MUL");/*_.MUL__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2183:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), 2, "NACCM_IX");/*_.IX__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2184:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2184:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.CMUL__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.MUL__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2188:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2188:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2188:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2188:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (melt_ptr_t)(/*_.IX__V13*/ curfptr[12]);
-   ;
-   /*_.MAKECOMPUTE__V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2209:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2209:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2209:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2209:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multacc cmul";
-     MELT_LOCATION("warmelt-genobj.melt:2209:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2209:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2209:/ apply.arg");
-     argtab[3].bp_long = 2209;
-     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2209:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2209:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2209:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2210:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2210:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2210:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2210:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multacc again nma";
-     MELT_LOCATION("warmelt-genobj.melt:2210:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2210:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2210:/ apply.arg");
-     argtab[3].bp_long = 2210;
-     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2210:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2210:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2210:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L6*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[10])));;
-  MELT_LOCATION("warmelt-genobj.melt:2211:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2211:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2211:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.IX__V13*/ curfptr[12])) == OBMAG_INT);;
-    /*_#IF___L7*/ curfnum[6] = /*_#IS_INTEGERBOX__L8*/ curfnum[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2211:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2211:/ cond.else");
-  
-   /*_#IF___L7*/ curfnum[6] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2211:/ cond");
-  /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2211:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2211:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2214:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2214:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMUL__V14*/ curfptr[13]), 5, "OIM_TUPVAL");/*_.COMPTUP__V23*/ curfptr[22] = slot; };
-     ;
-     /*_#IS_MULTIPLE__L9*/ curfnum[7] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.COMPTUP__V23*/ curfptr[22])) == OBMAG_MULTIPLE);;
-     MELT_LOCATION("warmelt-genobj.melt:2215:/ cond");
-     /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:2215:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:2215:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:2216:/ block");
-       /*block*/{
-        /*_#GET_INT__L10*/ curfnum[9] = 
-         (melt_get_int((melt_ptr_t)(/*_.IX__V13*/ curfptr[12])));;
-        /*_.CURVAL__V26*/ curfptr[25] = 
-         (melt_multiple_nth((melt_ptr_t)(/*_.COMPTUP__V23*/ curfptr[22]), (/*_#GET_INT__L10*/ curfnum[9])));;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:2219:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:2219:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-           callcount;;
-          MELT_LOCATION("warmelt-genobj.melt:2219:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-genobj.melt:2219:/ apply.arg");
-           argtab[0].bp_cstring =  "compilobj_nrep_multacc returning curval";
-           MELT_LOCATION("warmelt-genobj.melt:2219:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-           MELT_LOCATION("warmelt-genobj.melt:2219:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-           MELT_LOCATION("warmelt-genobj.melt:2219:/ apply.arg");
-           argtab[3].bp_long = 2219;
-           /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAL__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:2219:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:2219:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:2219:/ cppif.else");
-        /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-genobj.melt:2220:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = /*_.CURVAL__V26*/ curfptr[25];;
-         MELT_LOCATION("warmelt-genobj.melt:2220:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V29*/ curfptr[27];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
-        /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
-        /*clear*/ /*_.CURVAL__V26*/ curfptr[25] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
-        /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2216:/ clear");
-        /*clear*/ /*_.RETURN___V29*/ curfptr[27] = 0 ;}
-       ;
-       /*_.IFELSE___V24*/ curfptr[23] = /*_.LET___V25*/ curfptr[24];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2215:/ clear");
-       /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:2215:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:2215:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:2222:/ apply");
-       /*apply*/{
-        /*_.MAKECOMPUTE__V30*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V15*/ curfptr[14]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFELSE___V24*/ curfptr[23] = /*_.MAKECOMPUTE__V30*/ curfptr[25];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2215:/ clear");
-       /*clear*/ /*_.MAKECOMPUTE__V30*/ curfptr[25] = 0 ;}
-      ;
-      }
-     ;
-     /*_.LET___V22*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2214:/ clear");
-     /*clear*/ /*_.COMPTUP__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2214:/ clear");
-     /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2214:/ clear");
-     /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-    ;
-    /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2211:/ clear");
-    /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2211:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:2211:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2224:/ apply");
-    /*apply*/{
-     /*_.MAKECOMPUTE__V31*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V15*/ curfptr[14]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFELSE___V21*/ curfptr[19] = /*_.MAKECOMPUTE__V31*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2211:/ clear");
-    /*clear*/ /*_.MAKECOMPUTE__V31*/ curfptr[26] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V21*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.MUL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.IX__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.CMUL__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.MAKECOMPUTE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2181:/ clear");
-  /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2177:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2177:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2177:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2177:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2177:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2177:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_MULTACC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_60_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2188:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2189:/ block");
- /*block*/{
-  /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "/*multacc*/(melt_multiple_nth((")));;
-  /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "), (")));;
-  /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( ")))")));;
-  /*_.TCONT__V6*/ curfptr[5] = 
-   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V3*/ curfptr[2]),  
-		      (melt_ptr_t)((/*~CMUL*/ curfclos->tabval[0])),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V4*/ curfptr[3]),  (melt_ptr_t)((/*~IX*/ curfclos->tabval[1])),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V5*/ curfptr[4])));;
-  MELT_LOCATION("warmelt-genobj.melt:2200:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2200:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[2])), (2), "CLASS_OBJEXPV");/*_.INST__V8*/ curfptr[7] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2200:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "OBV_TYPE");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2200:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.TCONT__V6*/ curfptr[5]), "OBX_CONT");
-   ;
-   /*_.RES__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2204:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2204:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2204:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2204:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multacc makecompute res";
-     MELT_LOCATION("warmelt-genobj.melt:2204:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2204:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2204:/ apply.arg");
-     argtab[3].bp_long = 2204;
-     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2204:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2204:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2204:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V2*/ curfptr[1] = /*_.RES__V7*/ curfptr[6];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2189:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2189:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2189:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2189:/ clear");
-  /*clear*/ /*_.TCONT__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2189:/ clear");
-  /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2189:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2188:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-genobj.melt:2188:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2188:/ clear");
- /*clear*/ /*_.LET___V2*/ curfptr[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_60_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 42
-  void* varptr[42];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<42; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 42;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_FIELDACC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2229:/ getarg");
- /*_.NFA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2229:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2229:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2230:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2230:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2230:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2230:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2230:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2230:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2230:/ locexp");
-      melt_assert_failed(( "check nfa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2230)?(2230):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2230:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2230:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2230:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2231:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2231:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2231:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2231:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2231:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2231:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2231:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2231)?(2231):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2231:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2231:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2231:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2232:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2232:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2232:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2232:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_fieldacc nfa";
-    MELT_LOCATION("warmelt-genobj.melt:2232:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2232:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2232:/ apply.arg");
-    argtab[3].bp_long = 2232;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2232:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2232:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2232:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2233:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2234:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 1, "NACCF_OBJ");/*_.OBJ__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2235:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 2, "NACCF_FLD");/*_.FLD__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#FLDOFF__L4*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.FLD__V13*/ curfptr[12])));;
-  /*_.BOXFLDOFF__V14*/ curfptr[13] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#FLDOFF__L4*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-genobj.melt:2238:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2238:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.COBJ__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OBJ__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2242:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2242:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2242:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2242:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.BOXFLDOFF__V14*/ curfptr[13]);
-   ;
-   /*_.MAKECOMPUTE__V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2261:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2261:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.FLD__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[11])));;
-    MELT_LOCATION("warmelt-genobj.melt:2261:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2261:/ cond.then");
-    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2261:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2261:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2261:/ locexp");
-       melt_assert_failed(( "compilobj_nrep_fieldacc check fld"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2261)?(2261):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2261:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2261:/ clear");
-    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2261:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2262:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2262:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2262:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2262:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_fieldacc cobj";
-     MELT_LOCATION("warmelt-genobj.melt:2262:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:2262:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2262:/ apply.arg");
-     argtab[3].bp_long = 2262;
-     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2262:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2262:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2262:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2263:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2263:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2263:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2263:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_fieldacc fld";
-     MELT_LOCATION("warmelt-genobj.melt:2263:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:2263:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2263:/ apply.arg");
-     argtab[3].bp_long = 2263;
-     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.FLD__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2263:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2263:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2263:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L8*/ curfnum[4] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[12])));;
-  MELT_LOCATION("warmelt-genobj.melt:2264:/ cond");
-  /*cond*/ if (/*_#IS_A__L8*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2264:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2264:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2265:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2265:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.COBJ__V15*/ curfptr[14]), 2, "OIE_DATA");/*_.CDATA__V26*/ curfptr[25] = slot; };
-     ;
-     /*_#IS_A__L9*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CDATA__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[13])));;
-     MELT_LOCATION("warmelt-genobj.melt:2267:/ cond");
-     /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:2267:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:2267:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:2268:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:2268:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.CDATA__V26*/ curfptr[25]), 8, "NINST_SLOTS");/*_.SLOTUP__V29*/ curfptr[28] = slot; };
-        ;
-        /*_.OURSLOT__V30*/ curfptr[29] = 
-         (melt_multiple_nth((melt_ptr_t)(/*_.SLOTUP__V29*/ curfptr[28]), (/*_#FLDOFF__L4*/ curfnum[0])));;
-        /*_#IS_A__L10*/ curfnum[9] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.OURSLOT__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[14])));;
-        MELT_LOCATION("warmelt-genobj.melt:2271:/ cond");
-        /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:2271:/ cond.then");
-        MELT_LOCATION("warmelt-genobj.melt:2271:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:2272:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-genobj.melt:2272:/ msend");
-           /*msend*/{
-            union meltparam_un argtab[1];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-genobj.melt:2272:/ ojbmsend.arg");
-            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-            /*_.CSLOT__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.OURSLOT__V30*/ curfptr[29]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-genobj.melt:2273:/ cppif.then");
-           MELT_LOCATION("warmelt-genobj.melt:2273:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-              callcount;;
-             MELT_LOCATION("warmelt-genobj.melt:2273:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-genobj.melt:2273:/ apply.arg");
-              argtab[0].bp_cstring =  "compilobj_nrep_fieldacc returning cslot";
-              MELT_LOCATION("warmelt-genobj.melt:2273:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-              MELT_LOCATION("warmelt-genobj.melt:2273:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-genobj.melt";
-              MELT_LOCATION("warmelt-genobj.melt:2273:/ apply.arg");
-              argtab[3].bp_long = 2273;
-              /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CSLOT__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:2273:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-             MELT_LOCATION("warmelt-genobj.melt:2273:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-genobj.melt:2273:/ cppif.else");
-           /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           MELT_LOCATION("warmelt-genobj.melt:2274:/ block");
-           /*block*/{
-            /*_.RETVAL___V1*/ curfptr[0] = /*_.CSLOT__V33*/ curfptr[32];;
-            MELT_LOCATION("warmelt-genobj.melt:2274:/ finalreturn");
-            ;
-            /*finalret*/ goto labend_rout ;}
-           ;
-           /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V36*/ curfptr[34];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:2272:/ clear");
-           /*clear*/ /*_.CSLOT__V33*/ curfptr[32] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:2272:/ clear");
-           /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:2272:/ clear");
-           /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
-          ;
-          /*_.IFELSE___V31*/ curfptr[30] = /*_.LET___V32*/ curfptr[31];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:2271:/ clear");
-          /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-genobj.melt:2271:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:2271:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:2275:/ apply");
-          /*apply*/{
-           /*_.MAKECOMPUTE__V37*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:2275:/ block");
-          /*block*/{
-           /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V37*/ curfptr[32];;
-           MELT_LOCATION("warmelt-genobj.melt:2275:/ finalreturn");
-           ;
-           /*finalret*/ goto labend_rout ;}
-          ;
-          /*_.IFELSE___V31*/ curfptr[30] = /*_.RETURN___V38*/ curfptr[33];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:2271:/ clear");
-          /*clear*/ /*_.MAKECOMPUTE__V37*/ curfptr[32] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:2271:/ clear");
-          /*clear*/ /*_.RETURN___V38*/ curfptr[33] = 0 ;}
-         ;
-         }
-        ;
-        /*_.LET___V28*/ curfptr[27] = /*_.IFELSE___V31*/ curfptr[30];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2268:/ clear");
-        /*clear*/ /*_.SLOTUP__V29*/ curfptr[28] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2268:/ clear");
-        /*clear*/ /*_.OURSLOT__V30*/ curfptr[29] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2268:/ clear");
-        /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2268:/ clear");
-        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-       ;
-       /*_.IFELSE___V27*/ curfptr[26] = /*_.LET___V28*/ curfptr[27];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2267:/ clear");
-       /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:2267:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:2267:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:2276:/ apply");
-       /*apply*/{
-        /*_.MAKECOMPUTE__V39*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-        }
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:2276:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V39*/ curfptr[34];;
-        MELT_LOCATION("warmelt-genobj.melt:2276:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       /*_.IFELSE___V27*/ curfptr[26] = /*_.RETURN___V40*/ curfptr[31];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2267:/ clear");
-       /*clear*/ /*_.MAKECOMPUTE__V39*/ curfptr[34] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2267:/ clear");
-       /*clear*/ /*_.RETURN___V40*/ curfptr[31] = 0 ;}
-      ;
-      }
-     ;
-     /*_.LET___V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2265:/ clear");
-     /*clear*/ /*_.CDATA__V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2265:/ clear");
-     /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2265:/ clear");
-     /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-    ;
-    /*_.IFELSE___V24*/ curfptr[22] = /*_.LET___V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2264:/ clear");
-    /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2264:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:2264:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2278:/ apply");
-    /*apply*/{
-     /*_.MAKECOMPUTE__V41*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)(/*_.MAKECOMPUTE__V16*/ curfptr[15]), (melt_ptr_t)(NULL), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2278:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKECOMPUTE__V41*/ curfptr[32];;
-     MELT_LOCATION("warmelt-genobj.melt:2278:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IFELSE___V24*/ curfptr[22] = /*_.RETURN___V42*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2264:/ clear");
-    /*clear*/ /*_.MAKECOMPUTE__V41*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2264:/ clear");
-    /*clear*/ /*_.RETURN___V42*/ curfptr[33] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V24*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.OBJ__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.FLD__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_#FLDOFF__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.BOXFLDOFF__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.COBJ__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.MAKECOMPUTE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_#IS_A__L8*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2233:/ clear");
-  /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2229:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2229:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2229:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2229:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2229:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2229:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_FIELDACC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_62_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2242:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2243:/ block");
- /*block*/{
-  /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "/*fieldacc*/(melt_field_object((melt_ptr_t)(")));;
-  /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "),")));;
-  /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[1])), ( "))")));;
-  /*_.TCONT__V6*/ curfptr[5] = 
-   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V3*/ curfptr[2]),  
-		      (melt_ptr_t)((/*~COBJ*/ curfclos->tabval[0])),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V4*/ curfptr[3]),  (melt_ptr_t)((/*~BOXFLDOFF*/ curfclos->tabval[1])),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V5*/ curfptr[4])));;
-  MELT_LOCATION("warmelt-genobj.melt:2253:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2253:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[2])), (2), "CLASS_OBJEXPV");/*_.INST__V8*/ curfptr[7] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2253:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "OBV_TYPE");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2253:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.TCONT__V6*/ curfptr[5]), "OBX_CONT");
-   ;
-   /*_.RES__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2257:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2257:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2257:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2257:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_fieldacc makecompute res";
-     MELT_LOCATION("warmelt-genobj.melt:2257:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2257:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2257:/ apply.arg");
-     argtab[3].bp_long = 2257;
-     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RES__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2257:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2257:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2257:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V2*/ curfptr[1] = /*_.RES__V7*/ curfptr[6];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2243:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2243:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2243:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2243:/ clear");
-  /*clear*/ /*_.TCONT__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2243:/ clear");
-  /*clear*/ /*_.RES__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2243:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2242:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-genobj.melt:2242:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2242:/ clear");
- /*clear*/ /*_.LET___V2*/ curfptr[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_62_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_UNSAFE_GET_FIELD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2284:/ getarg");
- /*_.NUGF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2284:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2284:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2285:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2285:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2285:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2285:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2285:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2285:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2285:/ locexp");
-      melt_assert_failed(( "check nugf"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2285)?(2285):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2285:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2285:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2285:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2286:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2286:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2286:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2286:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2286:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2286:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2286:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2286)?(2286):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2286:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2286:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2286:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2287:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2287:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2287:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2287:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_unsafe_get_field nugf";
-    MELT_LOCATION("warmelt-genobj.melt:2287:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2287:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2287:/ apply.arg");
-    argtab[3].bp_long = 2287;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2287:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2287:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2287:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2288:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2289:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 1, "NUGET_OBJ");/*_.NOBJ__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2290:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUGF__V2*/ curfptr[1]), 2, "NUGET_FIELD");/*_.NFIELD__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.DLIST__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2292:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2292:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OOBJ__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.NOBJ__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2293:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2293:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[5])), (4), "CLASS_OBJGETSLOT");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2293:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2293:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DLIST__V14*/ curfptr[13]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2293:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OGETSL_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OOBJ__V15*/ curfptr[14]), "OGETSL_OBJ");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2293:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OGETSL_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), (/*_.NFIELD__V13*/ curfptr[12]), "OGETSL_FIELD");
-   ;
-   /*_.OGETSLOT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2299:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OGETSLOT__V16*/ curfptr[15];;
-   MELT_LOCATION("warmelt-genobj.melt:2299:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V18*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.NOBJ__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.NFIELD__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.DLIST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.OOBJ__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.OGETSLOT__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2288:/ clear");
-  /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2284:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2284:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2284:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2284:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2284:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2284:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_UNSAFE_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 24
-  void* varptr[24];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<24; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 24;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_UNSAFE_PUT_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2306:/ getarg");
- /*_.NUPF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2306:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2306:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2307:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2307:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2307:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2307:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2307:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2307:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2307:/ locexp");
-      melt_assert_failed(( "check nupf"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2307)?(2307):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2307:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2307:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2307:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2308:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2308:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2308:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2308:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2308:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2308:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2308:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2308)?(2308):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2308:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2308:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2308:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2309:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2309:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2309:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2309:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_unsafe_put_fields nupf";
-    MELT_LOCATION("warmelt-genobj.melt:2309:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2309:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2309:/ apply.arg");
-    argtab[3].bp_long = 2309;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2309:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2309:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2309:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2310:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2311:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 1, "NUPUT_OBJ");/*_.NOBJ__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2312:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUPF__V2*/ curfptr[1]), 2, "NUPUT_FIELDS");/*_.NFLDASS__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.OBODL__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-  /*_.OEPIL__V15*/ curfptr[14] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2315:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2315:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2315:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2315:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.OBODL__V14*/ curfptr[13]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2315:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.OEPIL__V15*/ curfptr[14]), "OBLO_EPIL");
-   ;
-   /*_.OBLOCK__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2319:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2319:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OOBJ__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NOBJ__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2323:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2323:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (4));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2323:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2323:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2323:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.OOBJ__V18*/ curfptr[17]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2323:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[3] = (melt_ptr_t)(/*_.OBODL__V14*/ curfptr[13]);
-   ;
-   /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2321:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2321:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18];
-   /*_.MULTIPLE_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NFLDASS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2342:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2342:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[14])), (3), "CLASS_OBJTOUCH");/*_.INST__V23*/ curfptr[22] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2342:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2342:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.OOBJ__V18*/ curfptr[17]), "OTOUCH_VAL");
-   ;
-   /*_.INST___V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2342:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V14*/ curfptr[13]), (melt_ptr_t)(/*_.INST___V22*/ curfptr[21]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2346:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V14*/ curfptr[13]), (melt_ptr_t)(/*_.OOBJ__V18*/ curfptr[17]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2347:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLOCK__V16*/ curfptr[15];;
-   MELT_LOCATION("warmelt-genobj.melt:2347:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V24*/ curfptr[23];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.NOBJ__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.NFLDASS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.OBODL__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.OEPIL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.OBLOCK__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.OOBJ__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.INST___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2310:/ clear");
-  /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2306:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2306:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2306:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2306:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2306:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2306:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_UNSAFE_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_65_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2323:/ getarg");
- /*_.NFA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2323:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2323:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2324:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2324:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2324:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2324:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2324:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2324:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2324:/ locexp");
-      melt_assert_failed(( "check nfa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2324)?(2324):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2324:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2324:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2324:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2325:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2325:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.ALOC__V5*/ curfptr[3] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2326:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 1, "NFLA_FIELD");/*_.AFIELD__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2327:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NFA__V2*/ curfptr[1]), 2, "NFLA_VAL");/*_.AVAL__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#AOFF__L3*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.AFIELD__V6*/ curfptr[5])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2330:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2330:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.AFIELD__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-genobj.melt:2330:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2330:/ cond.then");
-    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2330:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2330:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2330:/ locexp");
-       melt_assert_failed(( "check afield"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2330)?(2330):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2330:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2330:/ clear");
-    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2330:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2331:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2332:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2332:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-    /*_.OVAL__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.AVAL__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2334:/ cond");
-   /*cond*/ if (/*_.ALOC__V5*/ curfptr[3]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2334:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = /*_.ALOC__V5*/ curfptr[3];;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2334:/ cond.else");
-   
-    /*_.IFELSE___V11*/ curfptr[10] = (/*~LOC*/ curfclos->tabval[1]);;
-    }
-   ;
-   /*_.MAKE_INTEGERBOX__V12*/ curfptr[11] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#AOFF__L3*/ curfnum[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2333:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2333:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[3])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V14*/ curfptr[13] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2333:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (0), (/*_.IFELSE___V11*/ curfptr[10]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2333:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_ODATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), ((/*~OOBJ*/ curfclos->tabval[2])), "OSLOT_ODATA");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2333:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), (/*_.AFIELD__V6*/ curfptr[5]), "OSLOT_FIELD");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2333:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), (/*_.MAKE_INTEGERBOX__V12*/ curfptr[11]), "OSLOT_OFFSET");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2333:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (4), (/*_.OVAL__V10*/ curfptr[8]), "OSLOT_VALUE");
-    ;
-    /*_.OPUF__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2339:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2339:/ block");
-    /*block*/{
-     /*_#IS_A__L5*/ curfnum[3] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.OVAL__V10*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[5])));;
-     /*_#NOT__L6*/ curfnum[5] = 
-      (!(/*_#IS_A__L5*/ curfnum[3]));;
-     MELT_LOCATION("warmelt-genobj.melt:2339:/ cond");
-     /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:2339:/ cond.then");
-     /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:2339:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:2339:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:2339:/ locexp");
-        melt_assert_failed(( "compilobj_nrep_unsafe_put_fields check oval not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2339)?(2339):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2339:/ clear");
-     /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2339:/ clear");
-     /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2339:/ clear");
-     /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2339:/ cppif.else");
-   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2340:/ locexp");
-   meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OPUF__V13*/ curfptr[12]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2331:/ clear");
-   /*clear*/ /*_.OVAL__V10*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2331:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2331:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2331:/ clear");
-   /*clear*/ /*_.OPUF__V13*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2331:/ clear");
-   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2325:/ clear");
-  /*clear*/ /*_.ALOC__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2325:/ clear");
-  /*clear*/ /*_.AFIELD__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2325:/ clear");
-  /*clear*/ /*_.AVAL__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2325:/ clear");
-  /*clear*/ /*_#AOFF__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2325:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2323:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_65_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_APPLY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2352:/ getarg");
- /*_.NAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2352:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2352:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2353:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2353:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2353:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2353:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2353:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2353:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2353:/ locexp");
-      melt_assert_failed(( "check napp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2353)?(2353):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2353:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2353:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2353:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2354:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2354:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2354:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2354:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2354:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2354:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2354:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2354)?(2354):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2354:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2354:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2354:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2355:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2355:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2356:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 3, "NAPP_FUN");/*_.FUN__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2357:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.ARGS__V11*/ curfptr[10] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2359:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2359:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2359:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2359:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_apply napp";
-     MELT_LOCATION("warmelt-genobj.melt:2359:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2359:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2359:/ apply.arg");
-     argtab[3].bp_long = 2359;
-     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2359:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2359:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2359:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2360:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2360:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OCLOS__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.FUN__V10*/ curfptr[9]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2363:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2363:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2363:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2361:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2361:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-    /*_.OARGS__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ARGS__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.DLIST__V19*/ curfptr[18] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-   MELT_LOCATION("warmelt-genobj.melt:2370:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2370:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[9])), (4), "CLASS_OBJAPPLY");/*_.INST__V21*/ curfptr[20] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2370:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2370:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.DLIST__V19*/ curfptr[18]), "OBDI_DESTLIST");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2370:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.OCLOS__V15*/ curfptr[14]), "OBAPP_CLOS");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2370:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.OARGS__V18*/ curfptr[17]), "OBAPP_ARGS");
-    ;
-    /*_.OAPP__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2377:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2377:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2377:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2377:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_apply return oapp";
-      MELT_LOCATION("warmelt-genobj.melt:2377:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:2377:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2377:/ apply.arg");
-      argtab[3].bp_long = 2377;
-      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OAPP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2377:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2377:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2377:/ cppif.else");
-   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V14*/ curfptr[12] = /*_.OAPP__V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ clear");
-   /*clear*/ /*_.OCLOS__V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ clear");
-   /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ clear");
-   /*clear*/ /*_.OARGS__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ clear");
-   /*clear*/ /*_.DLIST__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ clear");
-   /*clear*/ /*_.OAPP__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2360:/ clear");
-   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V14*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
-  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
-  /*clear*/ /*_.FUN__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
-  /*clear*/ /*_.ARGS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2355:/ clear");
-  /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2352:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:2352:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2352:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2352:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2352:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_APPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_67_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2363:/ getarg");
- /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2363:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2363:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2364:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2364:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2364:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OCOMP__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2365:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2365:/ block");
-   /*block*/{
-    /*_#IS_A__L2*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OCOMP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[1])));;
-    /*_#NOT__L3*/ curfnum[2] = 
-     (!(/*_#IS_A__L2*/ curfnum[1]));;
-    MELT_LOCATION("warmelt-genobj.melt:2365:/ cond");
-    /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2365:/ cond.then");
-    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2365:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2365:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2365:/ locexp");
-       melt_assert_failed(( "compilobj_nrep_apply check ocomp not objinstr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2365)?(2365):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2365:/ clear");
-    /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2365:/ clear");
-    /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2365:/ clear");
-    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2365:/ cppif.else");
-  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V3*/ curfptr[2] = /*_.OCOMP__V4*/ curfptr[3];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2364:/ clear");
-  /*clear*/ /*_.OCOMP__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2364:/ clear");
-  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2363:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2363:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2363:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_67_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 48
-  void* varptr[48];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<48; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 48;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_MULTIAPPLY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2383:/ getarg");
- /*_.NMAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2383:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2383:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2384:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2384:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2384:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2384:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2384:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2384:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2384:/ locexp");
-      melt_assert_failed(( "check napp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2384)?(2384):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2384:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2384:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2384:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2385:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2385:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2385:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2385:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2385:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2385:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2385:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2385)?(2385):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2385:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2385:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2385:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2386:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2386:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2386:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2386:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multiapply nmapp";
-    MELT_LOCATION("warmelt-genobj.melt:2386:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2386:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2386:/ apply.arg");
-    argtab[3].bp_long = 2386;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2386:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2386:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2386:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2387:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2388:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 4, "NMULAPP_BINDINGS");/*_.RBINDS__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2389:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 3, "NAPP_FUN");/*_.FUN__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2390:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.ARGS__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2391:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAPP__V2*/ curfptr[1]), 5, "NMULAPP_BODY");/*_.NBODY__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2392:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V16*/ curfptr[15] = slot; };
-  ;
-  /*_#NBRES__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11])));;
-  MELT_LOCATION("warmelt-genobj.melt:2397:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2397:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2397:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2397:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V16*/ curfptr[15]);
-   ;
-   /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2395:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2395:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
-   /*_.RESLOCS__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.OBODL__V20*/ curfptr[19] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-  /*_.OEPIL__V21*/ curfptr[20] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2414:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2414:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[10])), (3), "CLASS_OBJBLOCK");/*_.INST__V23*/ curfptr[22] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2414:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2414:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.OBODL__V20*/ curfptr[19]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2414:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.OEPIL__V21*/ curfptr[20]), "OBLO_EPIL");
-   ;
-   /*_.OBLOCK__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-  ;
-  /*_#I__L5*/ curfnum[4] = 
-   ((/*_#NBRES__L4*/ curfnum[0]) > (1));;
-  MELT_LOCATION("warmelt-genobj.melt:2418:/ cond");
-  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2418:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2418:/ block");
-   /*block*/{
-    /*_#I__L6*/ curfnum[5] = 
-     ((/*_#NBRES__L4*/ curfnum[0]) - (1));;
-    /*_.MAKE_MULTIPLE__V25*/ curfptr[24] = 
-     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (/*_#I__L6*/ curfnum[5])));;
-    /*_.OXRES__V24*/ curfptr[23] = /*_.MAKE_MULTIPLE__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2418:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2418:/ clear");
-    /*clear*/ /*_.MAKE_MULTIPLE__V25*/ curfptr[24] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2418:/ cond.else");
-  
-   /*_.OXRES__V24*/ curfptr[23] = NULL;;
-   }
-  ;
-  /*_.FIRSTRES__V26*/ curfptr[24] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.RESLOCS__V19*/ curfptr[18]), (0)));;
-  MELT_LOCATION("warmelt-genobj.melt:2420:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2420:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OFUN__V27*/ curfptr[26] = meltgc_send((melt_ptr_t)(/*_.FUN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.RESLIST__V28*/ curfptr[27] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2423:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2423:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2423:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2422:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2422:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
-   /*_.OARGS__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ARGS__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2425:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2425:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OBODY__V32*/ curfptr[31] = meltgc_send((melt_ptr_t)(/*_.NBODY__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2429:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2429:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.COMPILE_OBJ__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.FUN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2426:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2426:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[15])), (5), "CLASS_OBJMULTIAPPLY");/*_.INST__V35*/ curfptr[34] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2426:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2426:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.RESLIST__V28*/ curfptr[27]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2426:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), (/*_.COMPILE_OBJ__V33*/ curfptr[32]), "OBAPP_CLOS");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2426:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.OARGS__V31*/ curfptr[30]), "OBAPP_ARGS");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2426:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBMULTAPP_XRES", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.OXRES__V24*/ curfptr[23]), "OBMULTAPP_XRES");
-   ;
-   /*_.OMAPP__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2433:/ cond");
-  /*cond*/ if (/*_.FIRSTRES__V26*/ curfptr[24]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2433:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2433:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2433:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V28*/ curfptr[27]), (melt_ptr_t)(/*_.FIRSTRES__V26*/ curfptr[24]));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2437:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2437:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2437:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.OBODL__V20*/ curfptr[19]);
-   ;
-   /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2435:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2435:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35];
-   /*_.MULTIPLE_EVERY__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OARGS__V31*/ curfptr[30]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2442:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OMAPP__V34*/ curfptr[33]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2444:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2444:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2444:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2444:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multiapply obody";
-     MELT_LOCATION("warmelt-genobj.melt:2444:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:2444:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2444:/ apply.arg");
-     argtab[3].bp_long = 2444;
-     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBODY__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2444:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2444:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2444:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2445:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OBODY__V32*/ curfptr[31]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2449:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2449:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2449:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2449:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[1] = (melt_ptr_t)(/*_.OEPIL__V21*/ curfptr[20]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2449:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[2] = (melt_ptr_t)(/*_.OXRES__V24*/ curfptr[23]);
-   ;
-   /*_.LAMBDA___V41*/ curfptr[39] = /*_.LAMBDA___V42*/ curfptr[41];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2447:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2447:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[39];
-   /*_.MULTIPLE_EVERY__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RESLOCS__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2460:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2460:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[44] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (1));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2460:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[44])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[44])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[44])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   /*_.LAMBDA___V44*/ curfptr[43] = /*_.LAMBDA___V45*/ curfptr[44];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2458:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2458:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[43];
-   /*_.MULTIPLE_EVERY__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2461:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2461:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2461:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2461:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multiapply final oblock";
-     MELT_LOCATION("warmelt-genobj.melt:2461:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:2461:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2461:/ apply.arg");
-     argtab[3].bp_long = 2461;
-     /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2461:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2461:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2461:/ cppif.else");
-  /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V22*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.RBINDS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.FUN__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.ARGS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.NBODY__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LOCMAP__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_#NBRES__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.RESLOCS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OBODL__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OEPIL__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OBLOCK__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OXRES__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.FIRSTRES__V26*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OFUN__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.RESLIST__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OARGS__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OBODY__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.COMPILE_OBJ__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.OMAPP__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LAMBDA___V41*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V43*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.LAMBDA___V44*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2387:/ clear");
-  /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2383:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2383:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2383:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2383:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2383:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2383:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_MULTIAPPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_69_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2397:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2397:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2397:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2398:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2398:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2398:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2398:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multiapply bind";
-    MELT_LOCATION("warmelt-genobj.melt:2398:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2398:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2398:/ apply.arg");
-    argtab[3].bp_long = 2398;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2398:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2398:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2398:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2399:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2399:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2399:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2399:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2399:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2399:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2399:/ locexp");
-      melt_assert_failed(( "compilobj_nrep_multiapply check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2399)?(2399):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2399:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2399:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2399:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2401:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2401:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2402:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2403:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2403:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V8*/ curfptr[7];
-   MELT_LOCATION("warmelt-genobj.melt:2403:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V9*/ curfptr[8];
-   /*_.OBVA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2405:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2405:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CTY__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:2405:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2405:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2405:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2405:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2405:/ locexp");
-       melt_assert_failed(( "compilobj_nrep_multiapply check cty"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2405)?(2405):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2405:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2405:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2405:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2408:/ cond");
-  /*cond*/ if (/*_.OBVA__V10*/ curfptr[9]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2408:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2408:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2408:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.BIND__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2409:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2409:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2409:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2409:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multiapply obva";
-     MELT_LOCATION("warmelt-genobj.melt:2409:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2409:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2409:/ apply.arg");
-     argtab[3].bp_long = 2409;
-     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2409:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2409:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2409:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V7*/ curfptr[5] = /*_.OBVA__V10*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
-  /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
-  /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
-  /*clear*/ /*_.OBVA__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2401:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2397:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:2397:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2397:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2397:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2397:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_69_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_70_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2423:/ getarg");
- /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2423:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2423:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2424:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:2424:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2423:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2423:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2423:/ clear");
- /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_70_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_71_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2437:/ getarg");
- /*_.OCURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2437:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2437:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2438:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2438:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2438:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2438:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multiapply ocurarg";
-    MELT_LOCATION("warmelt-genobj.melt:2438:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2438:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2438:/ apply.arg");
-    argtab[3].bp_long = 2438;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2438:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2438:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2438:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2439:/ cond");
- /*cond*/ if (/*_.OCURARG__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2439:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2439:/ block");
-  /*block*/{
-   /*_#IS_NOT_A__L4*/ curfnum[3] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[1])));;
-   /*_#IF___L3*/ curfnum[1] = /*_#IS_NOT_A__L4*/ curfnum[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2439:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:2439:/ cond.else");
- 
-  /*_#IF___L3*/ curfnum[1] = 0;;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2439:/ cond");
- /*cond*/ if (/*_#IF___L3*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2439:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2439:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2440:/ locexp");
-   meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]));}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2437:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2437:/ clear");
- /*clear*/ /*_#IF___L3*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_71_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_72_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2449:/ getarg");
- /*_.RLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2449:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2449:/ block");
-/*block*/{
- /*_#I__L2*/ curfnum[1] = 
-  ((/*_#IX__L1*/ curfnum[0]) > (0));;
- MELT_LOCATION("warmelt-genobj.melt:2450:/ cond");
- /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2450:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2450:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2451:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2451:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2451:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2451:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2451:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.RLOC__V2*/ curfptr[1]), "OCLR_VLOC");
-     ;
-     /*_.OCLEAR__V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2454:/ locexp");
-    meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V3*/ curfptr[2]));}
-    ;
-    /*_#I__L3*/ curfnum[2] = 
-     ((/*_#IX__L1*/ curfnum[0]) - (1));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2455:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)((/*~OXRES*/ curfclos->tabval[2])), (/*_#I__L3*/ curfnum[2]), (melt_ptr_t)(/*_.RLOC__V2*/ curfptr[1]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2451:/ clear");
-    /*clear*/ /*_.OCLEAR__V3*/ curfptr[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2451:/ clear");
-    /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2449:/ clear");
- /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_72_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_73_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2460:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2460:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2460:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2460:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:2460:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2460:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2460:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2460:/ clear");
- /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_73_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_MSEND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2469:/ getarg");
- /*_.NSND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2469:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2469:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2470:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2470:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2470:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2470:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2470:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2470:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2470:/ locexp");
-      melt_assert_failed(( "check nsnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2470)?(2470):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2470:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2470:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2470:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2471:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2471:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2471:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2471:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2471:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2471:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2471:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2471)?(2471):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2471:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2471:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2471:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2472:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2473:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 3, "NSEND_SEL");/*_.NSEL__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2474:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 4, "NSEND_RECV");/*_.NRECV__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2475:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.NARGS__V12*/ curfptr[11] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2477:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2477:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2477:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2477:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_msend nsnd";
-     MELT_LOCATION("warmelt-genobj.melt:2477:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2477:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2477:/ apply.arg");
-     argtab[3].bp_long = 2477;
-     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2477:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2477:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2477:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2478:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2478:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2478:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2478:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_msend nrecv";
-     MELT_LOCATION("warmelt-genobj.melt:2478:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2478:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2478:/ apply.arg");
-     argtab[3].bp_long = 2478;
-     /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NRECV__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2478:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2478:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2478:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2479:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2479:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L5*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V11*/ curfptr[10])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:2479:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2479:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2479:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2479:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2479:/ locexp");
-       melt_assert_failed(( "check nrecv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2479)?(2479):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2479:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2479:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2479:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2480:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2480:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OSEL__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NSEL__V10*/ curfptr[9]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2481:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2481:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.ORECV__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.NRECV__V11*/ curfptr[10]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2484:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2484:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2484:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2482:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2482:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
-    /*_.OARGS__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.MAKE_LIST__V25*/ curfptr[24] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-   MELT_LOCATION("warmelt-genobj.melt:2493:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2493:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMSEND*/ curfrout->tabval[8])), (5), "CLASS_OBJMSEND");/*_.INST__V27*/ curfptr[26] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.LOC__V9*/ curfptr[8]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.MAKE_LIST__V25*/ curfptr[24]), "OBDI_DESTLIST");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBMSND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.OSEL__V20*/ curfptr[19]), "OBMSND_SEL");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBMSND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.ORECV__V21*/ curfptr[20]), "OBMSND_RECV");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBMSND_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.OARGS__V24*/ curfptr[23]), "OBMSND_ARGS");
-    ;
-    /*_.OSEND__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2502:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2502:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2502:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2502:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_msend osend";
-      MELT_LOCATION("warmelt-genobj.melt:2502:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:2502:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2502:/ apply.arg");
-      argtab[3].bp_long = 2502;
-      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSEND__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2502:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2502:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2502:/ cppif.else");
-   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2503:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2503:/ block");
-    /*block*/{
-     /*_#IS_OBJECT__L7*/ curfnum[0] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V21*/ curfptr[20])) == OBMAG_OBJECT);;
-     MELT_LOCATION("warmelt-genobj.melt:2503:/ cond");
-     /*cond*/ if (/*_#IS_OBJECT__L7*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:2503:/ cond.then");
-     /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:2503:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:2503:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:2503:/ locexp");
-        melt_assert_failed(( "check orecv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2503)?(2503):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2503:/ clear");
-     /*clear*/ /*_#IS_OBJECT__L7*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2503:/ clear");
-     /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2503:/ cppif.else");
-   /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V19*/ curfptr[17] = /*_.OSEND__V26*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.OSEL__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.ORECV__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.OARGS__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.MAKE_LIST__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.OSEND__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2480:/ clear");
-   /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V19*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.NSEL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.NRECV__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.NARGS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2472:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2469:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:2469:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2469:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2469:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2469:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_MSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_75_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2484:/ getarg");
- /*_.NCURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2484:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2484:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2485:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2485:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2485:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2485:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_msend ncurarg";
-    MELT_LOCATION("warmelt-genobj.melt:2485:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2485:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2485:/ apply.arg");
-    argtab[3].bp_long = 2485;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2485:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2485:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2485:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2486:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2486:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2486:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OCURARG__V6*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.NCURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2488:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2488:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2488:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2488:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_msend ocurarg";
-     MELT_LOCATION("warmelt-genobj.melt:2488:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2488:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2488:/ apply.arg");
-     argtab[3].bp_long = 2488;
-     /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2488:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2488:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2488:/ cppif.else");
-  /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2489:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2489:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE__L4*/ curfnum[1] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.OCURARG__V6*/ curfptr[5])) == OBMAG_MULTIPLE);;
-    /*_#NOT__L5*/ curfnum[4] = 
-     (!(/*_#IS_MULTIPLE__L4*/ curfnum[1]));;
-    MELT_LOCATION("warmelt-genobj.melt:2489:/ cond");
-    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2489:/ cond.then");
-    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2489:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2489:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2489:/ locexp");
-       melt_assert_failed(( "check ocurarg not tuple"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2489)?(2489):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2489:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2489:/ clear");
-    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2489:/ clear");
-    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2489:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V5*/ curfptr[3] = /*_.OCURARG__V6*/ curfptr[5];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2486:/ clear");
-  /*clear*/ /*_.OCURARG__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2486:/ clear");
-  /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2486:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2484:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-genobj.melt:2484:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2484:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2484:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_75_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 53
-  void* varptr[53];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<53; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 53;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_MULTIMSEND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2510:/ getarg");
- /*_.NMSND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2510:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2510:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2511:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2511:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2511:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2511:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2511:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2511:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2511:/ locexp");
-      melt_assert_failed(( "check nmsnd"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2511)?(2511):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2511:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2511:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2511:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2512:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2512:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2512:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2512:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2512:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2512:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2512:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2512)?(2512):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2512:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2512:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2512:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2513:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2513:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2513:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2513:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multimsend nmsnd";
-    MELT_LOCATION("warmelt-genobj.melt:2513:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2513:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2513:/ apply.arg");
-    argtab[3].bp_long = 2513;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2513:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2513:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2513:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2514:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2515:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 5, "NMULSEND_BINDINGS");/*_.RBINDS__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2516:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 6, "NMULSEND_BODY");/*_.NBODY__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2517:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 3, "NSEND_SEL");/*_.NSEL__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2518:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 4, "NSEND_RECV");/*_.NRECV__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2519:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMSND__V2*/ curfptr[1]), 2, "NEXPR_ARGS");/*_.NARGS__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2520:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V17*/ curfptr[16] = slot; };
-  ;
-  /*_#NBRES__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11])));;
-  MELT_LOCATION("warmelt-genobj.melt:2525:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2525:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2525:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2525:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V17*/ curfptr[16]);
-   ;
-   /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2523:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2523:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17];
-   /*_.RESLOCS__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#I__L5*/ curfnum[4] = 
-   ((/*_#NBRES__L4*/ curfnum[0]) > (1));;
-  MELT_LOCATION("warmelt-genobj.melt:2540:/ cond");
-  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2540:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2540:/ block");
-   /*block*/{
-    /*_#I__L6*/ curfnum[5] = 
-     ((/*_#NBRES__L4*/ curfnum[0]) - (1));;
-    /*_.MAKE_MULTIPLE__V22*/ curfptr[21] = 
-     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[9])), (/*_#I__L6*/ curfnum[5])));;
-    /*_.OXRES__V21*/ curfptr[20] = /*_.MAKE_MULTIPLE__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2540:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2540:/ clear");
-    /*clear*/ /*_.MAKE_MULTIPLE__V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2540:/ cond.else");
-  
-   /*_.OXRES__V21*/ curfptr[20] = NULL;;
-   }
-  ;
-  /*_.FIRSTRES__V23*/ curfptr[21] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (0)));;
-  MELT_LOCATION("warmelt-genobj.melt:2543:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2543:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OSEL__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NSEL__V14*/ curfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.RESLIST__V25*/ curfptr[24] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2545:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2545:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.ORECV__V26*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.NRECV__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2547:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2547:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[27] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (1));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2547:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[27])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[27])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[27])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   /*_.LAMBDA___V27*/ curfptr[26] = /*_.LAMBDA___V28*/ curfptr[27];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2546:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2546:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[26];
-   /*_.OARGS__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NARGS__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2549:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2549:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OBODY__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.NBODY__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.OBODL__V31*/ curfptr[30] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));;
-  /*_.OEPIL__V32*/ curfptr[31] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[11]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2552:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2552:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[14])), (3), "CLASS_OBJBLOCK");/*_.INST__V34*/ curfptr[33] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2552:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2552:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.OBODL__V31*/ curfptr[30]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2552:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.OEPIL__V32*/ curfptr[31]), "OBLO_EPIL");
-   ;
-   /*_.OBLOCK__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2556:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ curfrout->tabval[15])), (6), "CLASS_OBJMULTIMSEND");/*_.INST__V36*/ curfptr[35] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.RESLIST__V25*/ curfptr[24]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBMSND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.OSEL__V24*/ curfptr[23]), "OBMSND_SEL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBMSND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.ORECV__V26*/ curfptr[25]), "OBMSND_RECV");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBMSND_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (4), (/*_.OARGS__V29*/ curfptr[28]), "OBMSND_ARGS");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2556:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBMULTSND_XRES", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.OXRES__V21*/ curfptr[20]), "OBMULTSND_XRES");
-   ;
-   /*_.OMSEND__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2564:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2564:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2564:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2564:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multimsend reslocs";
-     MELT_LOCATION("warmelt-genobj.melt:2564:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:2564:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2564:/ apply.arg");
-     argtab[3].bp_long = 2564;
-     /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2564:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2564:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2564:/ cppif.else");
-  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2565:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2565:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2565:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2565:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multimsend omsend middle";
-     MELT_LOCATION("warmelt-genobj.melt:2565:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:2565:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2565:/ apply.arg");
-     argtab[3].bp_long = 2565;
-     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMSEND__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2565:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2565:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2565:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2566:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2566:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L9*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V26*/ curfptr[25])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:2566:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L9*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2566:/ cond.then");
-    /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2566:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2566:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2566:/ locexp");
-       melt_assert_failed(( "check orecv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2566)?(2566):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2566:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L9*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2566:/ clear");
-    /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2566:/ cppif.else");
-  /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2567:/ cond");
-  /*cond*/ if (/*_.FIRSTRES__V23*/ curfptr[21]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2567:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2567:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2567:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FIRSTRES__V23*/ curfptr[21]));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2571:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2571:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2571:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (melt_ptr_t)(/*_.OBODL__V31*/ curfptr[30]);
-   ;
-   /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2569:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2569:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41];
-   /*_.MULTIPLE_EVERY__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OARGS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2576:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V31*/ curfptr[30]), (melt_ptr_t)(/*_.OMSEND__V35*/ curfptr[34]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2578:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODL__V31*/ curfptr[30]), (melt_ptr_t)(/*_.OBODY__V30*/ curfptr[29]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2582:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2582:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2582:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2582:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.OEPIL__V32*/ curfptr[31]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2582:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[2] = (melt_ptr_t)(/*_.OXRES__V21*/ curfptr[20]);
-   ;
-   /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2580:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2580:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45];
-   /*_.MULTIPLE_EVERY__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RESLOCS__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2592:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2592:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V50*/ curfptr[49] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (1));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2592:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V50*/ curfptr[49])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V50*/ curfptr[49])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V50*/ curfptr[49])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   /*_.LAMBDA___V49*/ curfptr[48] = /*_.LAMBDA___V50*/ curfptr[49];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2590:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2590:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V49*/ curfptr[48];
-   /*_.MULTIPLE_EVERY__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.RBINDS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2593:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2593:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2593:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2593:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multimsend final oblock";
-     MELT_LOCATION("warmelt-genobj.melt:2593:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:2593:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2593:/ apply.arg");
-     argtab[3].bp_long = 2593;
-     /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2593:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2593:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2593:/ cppif.else");
-  /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V33*/ curfptr[32];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.RBINDS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.NBODY__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.NSEL__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.NRECV__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.NARGS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LOCMAP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_#NBRES__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.RESLOCS__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OXRES__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.FIRSTRES__V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OSEL__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.RESLIST__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.ORECV__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LAMBDA___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OARGS__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OBODY__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OBODL__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OEPIL__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OBLOCK__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.OMSEND__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V48*/ curfptr[47] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.LAMBDA___V49*/ curfptr[48] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V51*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2514:/ clear");
-  /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2510:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2510:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2510:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2510:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2510:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2510:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_MULTIMSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_77_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2525:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2525:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2525:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2526:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2526:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2526:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2526:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multimsend bind";
-    MELT_LOCATION("warmelt-genobj.melt:2526:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2526:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2526:/ apply.arg");
-    argtab[3].bp_long = 2526;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2526:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2526:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2526:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2527:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2527:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2527:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2527:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2527:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2527:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2527:/ locexp");
-      melt_assert_failed(( "compilobj_nrep_multimsend check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2527)?(2527):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2527:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2527:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2527:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2529:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2529:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2530:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CTY__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2531:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2531:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V8*/ curfptr[7];
-   MELT_LOCATION("warmelt-genobj.melt:2531:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V9*/ curfptr[8];
-   /*_.OBVA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[2])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2533:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2533:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CTY__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:2533:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2533:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2533:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2533:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2533:/ locexp");
-       melt_assert_failed(( "compilobj_nrep_multimsend check cty"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2533)?(2533):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2533:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2533:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2533:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2536:/ cond");
-  /*cond*/ if (/*_.OBVA__V10*/ curfptr[9]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2536:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2536:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2536:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.BIND__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2537:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2537:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2537:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2537:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_multimsend obva";
-     MELT_LOCATION("warmelt-genobj.melt:2537:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:2537:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2537:/ apply.arg");
-     argtab[3].bp_long = 2537;
-     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBVA__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2537:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2537:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2537:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V7*/ curfptr[5] = /*_.OBVA__V10*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
-  /*clear*/ /*_.BDER__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
-  /*clear*/ /*_.CTY__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
-  /*clear*/ /*_.OBVA__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2529:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2525:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-genobj.melt:2525:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2525:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2525:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2525:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_77_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_78_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2547:/ getarg");
- /*_.COMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2547:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2547:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2548:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:2548:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2547:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2547:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2547:/ clear");
- /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_78_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_79_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2571:/ getarg");
- /*_.OCURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2571:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2571:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2572:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2572:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2572:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2572:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_multimsend ocurarg";
-    MELT_LOCATION("warmelt-genobj.melt:2572:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:2572:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2572:/ apply.arg");
-    argtab[3].bp_long = 2572;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2572:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2572:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2572:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2573:/ cond");
- /*cond*/ if (/*_.OCURARG__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2573:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2573:/ block");
-  /*block*/{
-   /*_#IS_NOT_A__L4*/ curfnum[3] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[1])));;
-   /*_#IF___L3*/ curfnum[1] = /*_#IS_NOT_A__L4*/ curfnum[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2573:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:2573:/ cond.else");
- 
-  /*_#IF___L3*/ curfnum[1] = 0;;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2573:/ cond");
- /*cond*/ if (/*_#IF___L3*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2573:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2573:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2574:/ locexp");
-   meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.OCURARG__V2*/ curfptr[1]));}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2571:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2571:/ clear");
- /*clear*/ /*_#IF___L3*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_79_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_80_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2582:/ getarg");
- /*_.RLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2582:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2582:/ block");
-/*block*/{
- /*_#I__L2*/ curfnum[1] = 
-  ((/*_#IX__L1*/ curfnum[0]) > (0));;
- MELT_LOCATION("warmelt-genobj.melt:2583:/ cond");
- /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2583:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2583:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2584:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2584:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2584:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2584:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~LOC*/ curfclos->tabval[0])), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2584:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.RLOC__V2*/ curfptr[1]), "OCLR_VLOC");
-     ;
-     /*_.OCLEAR__V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2587:/ locexp");
-    meltgc_append_list((melt_ptr_t)((/*~OEPIL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V3*/ curfptr[2]));}
-    ;
-    /*_#I__L3*/ curfnum[2] = 
-     ((/*_#IX__L1*/ curfnum[0]) - (1));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2588:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)((/*~OXRES*/ curfclos->tabval[2])), (/*_#I__L3*/ curfnum[2]), (melt_ptr_t)(/*_.RLOC__V2*/ curfptr[1]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2584:/ clear");
-    /*clear*/ /*_.OCLEAR__V3*/ curfptr[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2584:/ clear");
-    /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2582:/ clear");
- /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_80_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_81_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2592:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2592:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2592:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:2592:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:2592:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:2592:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:2592:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2592:/ clear");
- /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_81_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_ANY_BINDING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2602:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2602:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2602:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2603:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2603:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2603:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2603:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2603:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2603:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2603:/ locexp");
-      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2603)?(2603):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2603:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2603:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2603:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2604:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2604:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2604:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2604:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2604:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2604:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2604:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2604)?(2604):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2604:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2604:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2605:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2605:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2605:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2605:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_any_binding bind";
-    MELT_LOCATION("warmelt-genobj.melt:2605:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2605:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2605:/ apply.arg");
-    argtab[3].bp_long = 2605;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2605:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2605:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2605:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2606:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:2606:/ apply.arg");
-  argtab[0].bp_cstring =  "class_bind compile_obj recv";
-  /*_.DISPLAY_DEBUG_MESSAGE__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DISPLAY_DEBUG_MESSAGE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:2607:/ locexp");
- melt_puts(stderr,( "* compilobj unimplemented reciever binding class "));}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2608:/ block");
- /*block*/{
-  /*_.DISCR__V11*/ curfptr[10] = 
-   (melt_discr((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:2608:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2608:/ locexp");
-  melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2608:/ clear");
-  /*clear*/ /*_.DISCR__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2608:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ;}
- ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:2609:/ locexp");
- melt_newlineflush(stderr);}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2610:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2610:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2610:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2610:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2610:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2610:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2610:/ locexp");
-      melt_assert_failed(( "@@compile_obj should be implemented in anybinding-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2610)?(2610):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2610:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2610:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2602:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V13*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:2602:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2602:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2602:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2602:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2602:/ clear");
- /*clear*/ /*_.DISPLAY_DEBUG_MESSAGE__V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2602:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_ANY_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_VALUE_BINDING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2616:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2616:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2616:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2617:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2617:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2617:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2617:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2617:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2617:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2617:/ locexp");
-      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2617)?(2617):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2617:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2617:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2617:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2618:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2618:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2618:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2618:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2618:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2618:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2618:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2618)?(2618):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2618:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2618:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2618:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2619:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2619:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2619:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2619:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_value_binding bind";
-    MELT_LOCATION("warmelt-genobj.melt:2619:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2619:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2619:/ apply.arg");
-    argtab[3].bp_long = 2619;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2619:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2619:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2619:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2620:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYM__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2621:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 12, "IGNCX_IMPORTMAP");/*_.IMPORTMAP__V12*/ curfptr[11] = slot; };
-  ;
-  /*_.OLOCV__V13*/ curfptr[12] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.IMPORTMAP__V12*/ curfptr[11]), (meltobject_ptr_t)(/*_.SYM__V11*/ curfptr[10]));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2624:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2624:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2624:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2624:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_value_binding olocv";
-     MELT_LOCATION("warmelt-genobj.melt:2624:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2624:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2624:/ apply.arg");
-     argtab[3].bp_long = 2624;
-     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOCV__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2624:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2624:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2624:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2625:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2625:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OLOCV__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:2625:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2625:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2625:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2625:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2625:/ locexp");
-       melt_assert_failed(( "check olocv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2625)?(2625):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2625:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2625:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2625:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2626:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OLOCV__V13*/ curfptr[12];;
-   MELT_LOCATION("warmelt-genobj.melt:2626:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V18*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
-  /*clear*/ /*_.SYM__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
-  /*clear*/ /*_.IMPORTMAP__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
-  /*clear*/ /*_.OLOCV__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2620:/ clear");
-  /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2616:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2616:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2616:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2616:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2616:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2616:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_VALUE_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_FIXED_BINDING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2632:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2632:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2632:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2633:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2633:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2633:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2633:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2633:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2633:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2633:/ locexp");
-      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2633)?(2633):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2633:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2633:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2633:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2634:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2634:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2634:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2634:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2634:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2634:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2634:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2634)?(2634):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2634:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2634:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2634:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2635:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2635:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2635:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2635:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_fixed_binding bind";
-    MELT_LOCATION("warmelt-genobj.melt:2635:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2635:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2635:/ apply.arg");
-    argtab[3].bp_long = 2635;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2635:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2635:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2635:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2636:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2636:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "FIXBIND_DATA");/*_.SBDATA__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2637:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2637:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OSDATA__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.SBDATA__V11*/ curfptr[10]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2638:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2638:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2638:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2638:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_fixed_binding osdata";
-     MELT_LOCATION("warmelt-genobj.melt:2638:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2638:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2638:/ apply.arg");
-     argtab[3].bp_long = 2638;
-     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSDATA__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2638:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2638:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2638:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2639:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OSDATA__V12*/ curfptr[11];;
-   MELT_LOCATION("warmelt-genobj.melt:2639:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V15*/ curfptr[13];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2636:/ clear");
-  /*clear*/ /*_.SBDATA__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2636:/ clear");
-  /*clear*/ /*_.OSDATA__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2636:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2636:/ clear");
-  /*clear*/ /*_.RETURN___V15*/ curfptr[13] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2632:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2632:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2632:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2632:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2632:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2632:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_FIXED_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 43
-  void* varptr[43];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<43; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 43;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_CONSLAMBDABIND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2645:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2645:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2645:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2646:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2646:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2646:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2646:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2646:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2646:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2646:/ locexp");
-      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2646)?(2646):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2646:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2646:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2646:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2647:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2647:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2647:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2647:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2647:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2647:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2647:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2647)?(2647):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2647:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2647:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2647:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2648:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2648:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2648:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2648:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_conslambdabind bind";
-    MELT_LOCATION("warmelt-genobj.melt:2648:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2648:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2648:/ apply.arg");
-    argtab[3].bp_long = 2648;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2648:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2648:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2648:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2649:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYMB__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2650:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "NCONSB_LOC");/*_.LOC__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2651:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 2, "NCONSB_DISCR");/*_.NDISCR__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2652:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 4, "NLAMBDAB_NCLOSED");/*_.NCLOSED__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2653:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 6, "NLAMBDAB_DATAROUT");/*_.NDATAROUT__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2654:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 5, "NLAMBDAB_CONSTROUT");/*_.NCONSTROUT__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2655:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 3, "NCONSB_NLETREC");/*_.NLETREC__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2656:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2656:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.ODISCR__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.NDISCR__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.NAMBUF__V19*/ curfptr[18] = 
-   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-  MELT_LOCATION("warmelt-genobj.melt:2658:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[5])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2658:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2658:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V17*/ curfptr[16]), 4, "NLETREC_LOCSYMS");/*_.NLOCSYMS__V20*/ curfptr[19] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2658:/ cond.else");
-  
-   /*_.NLOCSYMS__V20*/ curfptr[19] = NULL;;
-   }
-  ;
-  /*_#BINDNUM__L4*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1])));;
-  /*_.LOCSYMOCC__V21*/ curfptr[20] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V20*/ curfptr[19]), (/*_#BINDNUM__L4*/ curfnum[0])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2662:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2662:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2662:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2662:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_conslambdabind nconstrout";
-     MELT_LOCATION("warmelt-genobj.melt:2662:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:2662:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2662:/ apply.arg");
-     argtab[3].bp_long = 2662;
-     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCONSTROUT__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2662:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2662:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2662:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2663:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2664:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2664:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OROUT__V25*/ curfptr[24] = meltgc_send((melt_ptr_t)(/*_.NCONSTROUT__V16*/ curfptr[15]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2665:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2665:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OLOC__V26*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.LOCSYMOCC__V21*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2667:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2667:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2667:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2667:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_conslambdabind orout";
-      MELT_LOCATION("warmelt-genobj.melt:2667:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
-      MELT_LOCATION("warmelt-genobj.melt:2667:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2667:/ apply.arg");
-      argtab[3].bp_long = 2667;
-      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OROUT__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2667:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2667:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2667:/ cppif.else");
-   /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2668:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2668:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2668:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2668:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_conslambdabind oloc";
-      MELT_LOCATION("warmelt-genobj.melt:2668:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
-      MELT_LOCATION("warmelt-genobj.melt:2668:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2668:/ apply.arg");
-      argtab[3].bp_long = 2668;
-      /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2668:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2668:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2668:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2669:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "rclo_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2670:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), (/*_#BINDNUM__L4*/ curfnum[0]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2671:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]), ( "__"));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2672:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[29] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2672:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[29])));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2673:/ block");
-   /*block*/{
-    /*_.STRBUF2STRING__V33*/ curfptr[32] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V19*/ curfptr[18]))));;
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2673:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[6])), (5), "CLASS_OBJINITCLOSURE");/*_.INST__V35*/ curfptr[34] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2673:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "OBV_TYPE");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2673:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.ODISCR__V18*/ curfptr[17]), "OIE_DISCR");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2673:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.OLOC__V26*/ curfptr[25]), "OIE_LOCVAR");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:2673:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.STRBUF2STRING__V33*/ curfptr[32]), "OIE_CNAME");
-     ;
-     /*_.INICLOS__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:2680:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:2680:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:2680:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2680:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_conslambdabind returning for bind";
-       MELT_LOCATION("warmelt-genobj.melt:2680:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4];
-       MELT_LOCATION("warmelt-genobj.melt:2680:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:2680:/ apply.arg");
-       argtab[3].bp_long = 2680;
-       /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V36*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2680:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2680:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:2680:/ cppif.else");
-    /*_.IFCPP___V36*/ curfptr[35] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:2681:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:2681:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:2681:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2681:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_conslambdabind nletrec";
-       MELT_LOCATION("warmelt-genobj.melt:2681:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[4];
-       MELT_LOCATION("warmelt-genobj.melt:2681:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:2681:/ apply.arg");
-       argtab[3].bp_long = 2681;
-       /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLETREC__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V38*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2681:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2681:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:2681:/ cppif.else");
-    /*_.IFCPP___V38*/ curfptr[36] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:2682:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:2682:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L10*/ curfnum[4] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:2682:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_conslambdabind locsymocc";
-       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[4];
-       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:2682:/ apply.arg");
-       argtab[3].bp_long = 2682;
-       /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYMOCC__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2682:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2682:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:2682:/ cppif.else");
-    /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:2683:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:2683:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[4] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:2683:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_conslambdabind returning iniclos";
-       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[4];
-       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:2683:/ apply.arg");
-       argtab[3].bp_long = 2683;
-       /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.INICLOS__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2683:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2683:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:2683:/ cppif.else");
-    /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V32*/ curfptr[31] = /*_.INICLOS__V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ clear");
-    /*clear*/ /*_.STRBUF2STRING__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ clear");
-    /*clear*/ /*_.INICLOS__V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ clear");
-    /*clear*/ /*_.IFCPP___V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ clear");
-    /*clear*/ /*_.IFCPP___V38*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ clear");
-    /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2673:/ clear");
-    /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;}
-   ;
-   /*_.LET___V24*/ curfptr[22] = /*_.LET___V32*/ curfptr[31];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2663:/ clear");
-   /*clear*/ /*_.OROUT__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2663:/ clear");
-   /*clear*/ /*_.OLOC__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2663:/ clear");
-   /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2663:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2663:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2663:/ clear");
-   /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V24*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.SYMB__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NDISCR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NCLOSED__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NDATAROUT__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NCONSTROUT__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NLETREC__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.ODISCR__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NAMBUF__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.NLOCSYMS__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_#BINDNUM__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.LOCSYMOCC__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2649:/ clear");
-  /*clear*/ /*_.LET___V24*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2645:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2645:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2645:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2645:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2645:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2645:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_CONSLAMBDABIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 29
-  void* varptr[29];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<29; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 29;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_CONSTUPLEBIND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2689:/ getarg");
- /*_.BIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2689:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2689:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2690:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2690:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2690:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2690:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_constuplebind bind";
-    MELT_LOCATION("warmelt-genobj.melt:2690:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2690:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2690:/ apply.arg");
-    argtab[3].bp_long = 2690;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2690:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2690:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2690:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2691:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2691:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2691:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2691:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2691:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2691:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2691:/ locexp");
-      melt_assert_failed(( "check bind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2691)?(2691):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2691:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2691:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2691:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2692:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2692:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:2692:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2692:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2692:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2692:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2692:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2692)?(2692):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2692:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2692:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2692:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2693:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 0, "BINDER");/*_.SYMB__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2694:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 1, "NCONSB_LOC");/*_.NLOC__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2695:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 2, "NCONSB_DISCR");/*_.NDISCR__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2696:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 3, "NCONSB_NLETREC");/*_.NLETREC__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2697:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 4, "NTUPB_COMP");/*_.NTUPB__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2698:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2698:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.ODISCR__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.NDISCR__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.NAMBUF__V17*/ curfptr[16] = 
-   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-  MELT_LOCATION("warmelt-genobj.melt:2700:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BIND__V2*/ curfptr[1]), 3, "NCONSB_NLETREC");/*_.NLETREC__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2701:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[5])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2701:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2701:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V18*/ curfptr[17]), 4, "NLETREC_LOCSYMS");/*_.NLOCSYMS__V19*/ curfptr[18] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2701:/ cond.else");
-  
-   /*_.NLOCSYMS__V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  /*_#BINDNUM__L4*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.BIND__V2*/ curfptr[1])));;
-  /*_#LENTUP__L5*/ curfnum[4] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.NTUPB__V15*/ curfptr[14])));;
-  /*_.LOCSYMOCC__V20*/ curfptr[19] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.NLOCSYMS__V19*/ curfptr[18]), (/*_#BINDNUM__L4*/ curfnum[0])));;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2706:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]), ( "rtup_"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2707:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]), (/*_#BINDNUM__L4*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2708:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]), ( "__"));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2709:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[20] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2709:/ locexp");
-  meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[20])));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2710:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2711:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2711:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OLOC__V23*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.LOCSYMOCC__V20*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.TUPVAL__V24*/ curfptr[23] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#LENTUP__L5*/ curfnum[4])));;
-   /*_.STRBUF2STRING__V25*/ curfptr[24] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V17*/ curfptr[16]))));;
-   MELT_LOCATION("warmelt-genobj.melt:2713:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2713:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[7])), (6), "CLASS_OBJINITMULTIPLE");/*_.INST__V27*/ curfptr[26] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2713:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "OBV_TYPE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2713:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.ODISCR__V16*/ curfptr[15]), "OIE_DISCR");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2713:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.OLOC__V23*/ curfptr[22]), "OIE_LOCVAR");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2713:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.STRBUF2STRING__V25*/ curfptr[24]), "OIE_CNAME");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2713:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIM_TUPVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.TUPVAL__V24*/ curfptr[23]), "OIM_TUPVAL");
-    ;
-    /*_.INITUP__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2721:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2721:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2721:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2721:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_constuplebind result initup";
-      MELT_LOCATION("warmelt-genobj.melt:2721:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:2721:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2721:/ apply.arg");
-      argtab[3].bp_long = 2721;
-      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INITUP__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2721:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2721:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2721:/ cppif.else");
-   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V22*/ curfptr[21] = /*_.INITUP__V26*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2710:/ clear");
-   /*clear*/ /*_.OLOC__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2710:/ clear");
-   /*clear*/ /*_.TUPVAL__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2710:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2710:/ clear");
-   /*clear*/ /*_.INITUP__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2710:/ clear");
-   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.SYMB__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NLOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NDISCR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NLETREC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NTUPB__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.ODISCR__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NAMBUF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NLETREC__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NLOCSYMS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_#BINDNUM__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_#LENTUP__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.LOCSYMOCC__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2693:/ clear");
-  /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2689:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2689:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2689:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2689:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2689:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2689:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_CONSTUPLEBIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 46
-  void* varptr[46];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<46; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 46;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJVALUE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2728:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2728:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2728:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2729:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2729:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2729:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2729:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2729:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2729:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2729:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2729)?(2729):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2729:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2729:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2729:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2730:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2730:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2730:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2730:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2730:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2730:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2730:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2730)?(2730):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2730:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2730:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2730:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2731:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2731:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.TYPRECV__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2732:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V10*/ curfptr[9] = slot; };
-  ;
-  /*_#__L3*/ curfnum[0] = 
-   ((/*_.TYPRECV__V9*/ curfptr[8]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-genobj.melt:2736:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2736:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2736:/ block");
-   /*block*/{
-    /*_#__L4*/ curfnum[3] = 
-     ((/*_.TYPDESTO__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-genobj.melt:2737:/ cond");
-    /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2737:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:2737:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2738:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
-       MELT_LOCATION("warmelt-genobj.melt:2738:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.IFELSE___V12*/ curfptr[11] = /*_.RETURN___V13*/ curfptr[12];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2737:/ clear");
-      /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2737:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2737:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2741:/ block");
-      /*block*/{
-       /*_.OBODL__V15*/ curfptr[14] = 
-        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-       MELT_LOCATION("warmelt-genobj.melt:2743:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:2743:/ rawallocobj");
-        /*rawallocobj*/ { melt_ptr_t newobj = 0;
-         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V17*/ curfptr[16] =
-         newobj; };
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:2743:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.OBODL__V15*/ curfptr[14]), "OBLO_BODYL");
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:2743:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @OBLO_EPIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*nil*/NULL)), "OBLO_EPIL");
-        ;
-        /*_.OBLK__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:2749:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:2749:/ rawallocobj");
-        /*rawallocobj*/ { melt_ptr_t newobj = 0;
-         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[5])), (2), "CLASS_OBJCLEAR");/*_.INST__V19*/ curfptr[18] =
-         newobj; };
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:2749:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.DESTO__V3*/ curfptr[2]), "OCLR_VLOC");
-        ;
-        /*_.OCLR__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2754:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2755:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (melt_ptr_t)(/*_.OCLR__V18*/ curfptr[17]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2758:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.OBODL__V15*/ curfptr[14]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:2759:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = /*_.OBLK__V16*/ curfptr[15];;
-        MELT_LOCATION("warmelt-genobj.melt:2759:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V20*/ curfptr[19];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2741:/ clear");
-       /*clear*/ /*_.OBODL__V15*/ curfptr[14] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2741:/ clear");
-       /*clear*/ /*_.OBLK__V16*/ curfptr[15] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2741:/ clear");
-       /*clear*/ /*_.OCLR__V18*/ curfptr[17] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2741:/ clear");
-       /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*_.IFELSE___V12*/ curfptr[11] = /*_.LET___V14*/ curfptr[12];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2737:/ clear");
-      /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2736:/ clear");
-    /*clear*/ /*_#__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2736:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2736:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:2736:/ block");
-   /*block*/{
-    /*_#__L5*/ curfnum[3] = 
-     ((/*_.TYPRECV__V9*/ curfptr[8]) == (/*_.TYPDESTO__V10*/ curfptr[9]));;
-    MELT_LOCATION("warmelt-genobj.melt:2762:/ cond");
-    /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2762:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:2762:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2763:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2763:/ block");
-       /*block*/{
-        /*_#IS_A__L6*/ curfnum[5] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.TYPRECV__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
-        MELT_LOCATION("warmelt-genobj.melt:2763:/ cond");
-        /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:2763:/ cond.then");
-        /*_.IFELSE___V23*/ curfptr[17] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:2763:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:2763:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:2763:/ locexp");
-           melt_assert_failed(( "check same typrecv&rtpdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2763)?(2763):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V23*/ curfptr[17] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V22*/ curfptr[15] = /*_.IFELSE___V23*/ curfptr[17];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2763:/ clear");
-        /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2763:/ clear");
-        /*clear*/ /*_.IFELSE___V23*/ curfptr[17] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2763:/ cppif.else");
-      /*_.IFCPP___V22*/ curfptr[15] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-genobj.melt:2764:/ block");
-      /*block*/{
-       /*_.DESTLIS__V25*/ curfptr[12] = 
-        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-       /*_.EXPLIS__V26*/ curfptr[11] = 
-        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-       MELT_LOCATION("warmelt-genobj.melt:2766:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:2766:/ rawallocobj");
-        /*rawallocobj*/ { melt_ptr_t newobj = 0;
-         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[7])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V28*/ curfptr[27] =
-         newobj; };
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:2766:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIS__V25*/ curfptr[12]), "OBDI_DESTLIST");
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:2766:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.EXPLIS__V26*/ curfptr[11]), "OBCPT_EXPR");
-        ;
-        /*_.OBC__V27*/ curfptr[17] = /*_.INST__V28*/ curfptr[27];;}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2772:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V25*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2773:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V26*/ curfptr[11]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:2774:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = /*_.OBC__V27*/ curfptr[17];;
-        MELT_LOCATION("warmelt-genobj.melt:2774:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       /*_.LET___V24*/ curfptr[19] = /*_.RETURN___V29*/ curfptr[28];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
-       /*clear*/ /*_.DESTLIS__V25*/ curfptr[12] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
-       /*clear*/ /*_.EXPLIS__V26*/ curfptr[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
-       /*clear*/ /*_.OBC__V27*/ curfptr[17] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2764:/ clear");
-       /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ block");
-      /*block*/{
-       /*_.PROGN___V30*/ curfptr[12] = /*_.LET___V24*/ curfptr[19];;}
-      ;
-      /*_.IFELSE___V21*/ curfptr[14] = /*_.PROGN___V30*/ curfptr[12];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.IFCPP___V22*/ curfptr[15] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.LET___V24*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.PROGN___V30*/ curfptr[12] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2762:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2762:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2777:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2777:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2777:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2777:/ apply.arg");
-         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching recv";
-         MELT_LOCATION("warmelt-genobj.melt:2777:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-         MELT_LOCATION("warmelt-genobj.melt:2777:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2777:/ apply.arg");
-         argtab[3].bp_long = 2777;
-         /*_.DEBUG_MSG_FUN__V32*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V31*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[17];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2777:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2777:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[17] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2777:/ cppif.else");
-      /*_.IFCPP___V31*/ curfptr[11] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2778:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2778:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2778:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2778:/ apply.arg");
-         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching typrecv";
-         MELT_LOCATION("warmelt-genobj.melt:2778:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-         MELT_LOCATION("warmelt-genobj.melt:2778:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2778:/ apply.arg");
-         argtab[3].bp_long = 2778;
-         /*_.DEBUG_MSG_FUN__V34*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.TYPRECV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2778:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2778:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[15] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2778:/ cppif.else");
-      /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2779:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2779:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2779:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
-         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching desto";
-         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
-         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2779:/ apply.arg");
-         argtab[3].bp_long = 2779;
-         /*_.DEBUG_MSG_FUN__V36*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V35*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[12];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2779:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2779:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[12] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2779:/ cppif.else");
-      /*_.IFCPP___V35*/ curfptr[19] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2780:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2780:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:2780:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
-         argtab[0].bp_cstring =  "putobjdest_objvalue mismatching typdesto";
-         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
-         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:2780:/ apply.arg");
-         argtab[3].bp_long = 2780;
-         /*_.DEBUG_MSG_FUN__V38*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.TYPDESTO__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V37*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2780:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:2780:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[15] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2780:/ cppif.else");
-      /*_.IFCPP___V37*/ curfptr[17] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2781:/ locexp");
-      melt_puts(stderr,( "putobjdest_objvalue type mismatch : recv <"));}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2782:/ block");
-      /*block*/{
-       /*_.DISCR__V39*/ curfptr[12] = 
-        (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
-       MELT_LOCATION("warmelt-genobj.melt:2782:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V39*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[15] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2782:/ locexp");
-       melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[15]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2782:/ clear");
-       /*clear*/ /*_.DISCR__V39*/ curfptr[12] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2782:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[15] = 0 ;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2783:/ locexp");
-      melt_puts(stderr,( "> & desto<"));}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2784:/ block");
-      /*block*/{
-       /*_.DISCR__V41*/ curfptr[12] = 
-        (melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])));;
-       MELT_LOCATION("warmelt-genobj.melt:2784:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V41*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[15] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2784:/ locexp");
-       melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[15]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:2784:/ clear");
-       /*clear*/ /*_.DISCR__V41*/ curfptr[12] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:2784:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[15] = 0 ;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2785:/ locexp");
-      melt_puts(stderr,( ">"));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2786:/ locexp");
-      melt_newlineflush(stderr);}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:2787:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:2787:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:2787:/ cond");
-        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:2787:/ cond.then");
-        /*_.IFELSE___V44*/ curfptr[15] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:2787:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:2787:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:2787:/ locexp");
-           melt_assert_failed(( "putobjdest_objvalue type mismatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2787)?(2787):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V44*/ curfptr[15] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V43*/ curfptr[12] = /*_.IFELSE___V44*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:2787:/ clear");
-        /*clear*/ /*_.IFELSE___V44*/ curfptr[15] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:2787:/ cppif.else");
-      /*_.IFCPP___V43*/ curfptr[12] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-genobj.melt:2788:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
-       MELT_LOCATION("warmelt-genobj.melt:2788:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:2776:/ block");
-      /*block*/{
-       /*_.PROGN___V46*/ curfptr[45] = /*_.RETURN___V45*/ curfptr[15];;}
-      ;
-      /*_.IFELSE___V21*/ curfptr[14] = /*_.PROGN___V46*/ curfptr[45];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.IFCPP___V31*/ curfptr[11] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.IFCPP___V35*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.IFCPP___V37*/ curfptr[17] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.IFCPP___V43*/ curfptr[12] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.RETURN___V45*/ curfptr[15] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:2762:/ clear");
-      /*clear*/ /*_.PROGN___V46*/ curfptr[45] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V21*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2736:/ clear");
-    /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2736:/ clear");
-    /*clear*/ /*_.IFELSE___V21*/ curfptr[14] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2731:/ clear");
-  /*clear*/ /*_.TYPRECV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2731:/ clear");
-  /*clear*/ /*_.TYPDESTO__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2731:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2731:/ clear");
-  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2728:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:2728:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2728:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2728:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2728:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJVALUE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_INTEGER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2795:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2795:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2795:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2796:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2796:/ block");
-  /*block*/{
-   /*_#IS_INTEGERBOX__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_INT);;
-   MELT_LOCATION("warmelt-genobj.melt:2796:/ cond");
-   /*cond*/ if (/*_#IS_INTEGERBOX__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2796:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2796:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2796:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2796:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2796)?(2796):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2796:/ clear");
-   /*clear*/ /*_#IS_INTEGERBOX__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2796:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2796:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2797:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2797:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2797:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2797:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2797:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2797:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2797:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2797)?(2797):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2797:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2797:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2798:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2798:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2798:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2798:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_integer recv";
-    MELT_LOCATION("warmelt-genobj.melt:2798:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2798:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2798:/ apply.arg");
-    argtab[3].bp_long = 2798;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2798:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2798:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2798:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2799:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2799:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2799:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2799:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_integer desto";
-    MELT_LOCATION("warmelt-genobj.melt:2799:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2799:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2799:/ apply.arg");
-    argtab[3].bp_long = 2799;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2799:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2799:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2799:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2800:/ block");
- /*block*/{
-  /*_.DESTLIS__V13*/ curfptr[12] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_.EXPLIS__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2802:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2803:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2803:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2803:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2803:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR");
-   ;
-   /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2809:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2809:/ block");
-   /*block*/{
-    /*_#__L5*/ curfnum[0] = 
-     ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_LONG*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-genobj.melt:2809:/ cond");
-    /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2809:/ cond.then");
-    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2809:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2809:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2809:/ locexp");
-       melt_assert_failed(( "check typdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2809)?(2809):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2809:/ clear");
-    /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2809:/ clear");
-    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2809:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2810:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2811:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2812:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2812:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2812:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2812:/ apply.arg");
-     argtab[0].bp_cstring =  "putobjdest_integer return obc";
-     MELT_LOCATION("warmelt-genobj.melt:2812:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2812:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2812:/ apply.arg");
-     argtab[3].bp_long = 2812;
-     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2812:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2812:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2812:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
-  /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
-  /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
-  /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
-  /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2800:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2795:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:2795:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2795:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2795:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2795:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2795:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2795:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_INTEGER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_89_warmelt_genobj_PUTOBJDEST_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_genobj_PUTOBJDEST_STRING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_STRING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2821:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2821:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2821:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2822:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2822:/ block");
-  /*block*/{
-   /*_#IS_STRING__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-genobj.melt:2822:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2822:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2822:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2822:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2822:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2822)?(2822):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2822:/ clear");
-   /*clear*/ /*_#IS_STRING__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2822:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2822:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2823:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2823:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2823:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2823:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2823:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2823:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2823:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2823)?(2823):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2823:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2823:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2824:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2824:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2824:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2824:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_string recv";
-    MELT_LOCATION("warmelt-genobj.melt:2824:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2824:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2824:/ apply.arg");
-    argtab[3].bp_long = 2824;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2824:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2824:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2824:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2825:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2825:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2825:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2825:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_string desto";
-    MELT_LOCATION("warmelt-genobj.melt:2825:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2825:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2825:/ apply.arg");
-    argtab[3].bp_long = 2825;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2825:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2825:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2825:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2826:/ block");
- /*block*/{
-  /*_.DESTLIS__V13*/ curfptr[12] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_.EXPLIS__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2828:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2829:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2829:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2829:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2829:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR");
-   ;
-   /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2835:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2835:/ block");
-   /*block*/{
-    /*_#__L5*/ curfnum[0] = 
-     ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_CSTRING*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-genobj.melt:2835:/ cond");
-    /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2835:/ cond.then");
-    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2835:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2835:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2835:/ locexp");
-       melt_assert_failed(( "check typdesto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2835)?(2835):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2835:/ clear");
-    /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2835:/ clear");
-    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2835:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2836:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2837:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2838:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2838:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2838:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2838:/ apply.arg");
-     argtab[0].bp_cstring =  "putobjdest_string return obc";
-     MELT_LOCATION("warmelt-genobj.melt:2838:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:2838:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2838:/ apply.arg");
-     argtab[3].bp_long = 2838;
-     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2838:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2838:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2838:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
-  /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
-  /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
-  /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
-  /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2826:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2821:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:2821:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2821:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2821:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2821:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2821:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2821:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_STRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_89_warmelt_genobj_PUTOBJDEST_STRING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_90_warmelt_genobj_PUTOBJDEST_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_genobj_PUTOBJDEST_NULL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_NULL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2844:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2844:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2844:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2845:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2845:/ block");
-  /*block*/{
-   /*_#NULL__L1*/ curfnum[0] = 
-    ((/*_.RECV__V2*/ curfptr[1]) == NULL);;
-   MELT_LOCATION("warmelt-genobj.melt:2845:/ cond");
-   /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2845:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2845:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2845:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2845:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2845)?(2845):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2845:/ clear");
-   /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2845:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2845:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2846:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2846:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2846:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2846:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2846:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2846:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2846:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2846)?(2846):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2846:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2846:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2847:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2847:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2847:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2847:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_null recv";
-    MELT_LOCATION("warmelt-genobj.melt:2847:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2847:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2847:/ apply.arg");
-    argtab[3].bp_long = 2847;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2847:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2847:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2847:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2848:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2848:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2848:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2848:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_null desto";
-    MELT_LOCATION("warmelt-genobj.melt:2848:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2848:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2848:/ apply.arg");
-    argtab[3].bp_long = 2848;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2848:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2848:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2848:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#NEED_DBG__L5*/ curfnum[0] = 
-  (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);;
- MELT_LOCATION("warmelt-genobj.melt:2849:/ cond");
- /*cond*/ if (/*_#NEED_DBG__L5*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:2849:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:2849:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:2849:/ locexp");
-    
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "putobjdest_null"), (15));
-#endif
-;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- MELT_LOCATION("warmelt-genobj.melt:2850:/ block");
- /*block*/{
-  /*_.DESTLIS__V13*/ curfptr[12] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_.EXPLIS__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2852:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), 0, "OBV_TYPE");/*_.TYPDESTO__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2853:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2853:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2853:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.DESTLIS__V13*/ curfptr[12]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2853:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.EXPLIS__V14*/ curfptr[13]), "OBCPT_EXPR");
-   ;
-   /*_.OBC__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2859:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.DESTLIS__V13*/ curfptr[12]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
-  ;
-  /*_#__L6*/ curfnum[5] = 
-   ((/*_.TYPDESTO__V15*/ curfptr[14]) == ((/*!CTYPE_LONG*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-genobj.melt:2860:/ cond");
-  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:2860:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:2860:/ block");
-   /*block*/{
-    /*_.MAKE_INTEGERBOX__V18*/ curfptr[17] = 
-     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2861:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V18*/ curfptr[17]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2860:/ clear");
-    /*clear*/ /*_.MAKE_INTEGERBOX__V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:2860:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:2860:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:2862:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.EXPLIS__V14*/ curfptr[13]), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2863:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2863:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2863:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2863:/ apply.arg");
-     argtab[0].bp_cstring =  "putobjdest_null return obc";
-     MELT_LOCATION("warmelt-genobj.melt:2863:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-genobj.melt:2863:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2863:/ apply.arg");
-     argtab[3].bp_long = 2863;
-     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2863:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2863:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2863:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V12*/ curfptr[10] = /*_.OBC__V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
-  /*clear*/ /*_.DESTLIS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
-  /*clear*/ /*_.EXPLIS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
-  /*clear*/ /*_.TYPDESTO__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
-  /*clear*/ /*_.OBC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
-  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2850:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2844:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:2844:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2844:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2844:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2844:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2844:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2844:/ clear");
- /*clear*/ /*_#NEED_DBG__L5*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2844:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_NULL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_90_warmelt_genobj_PUTOBJDEST_NULL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJBLOCK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2869:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2869:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2869:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2870:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2870:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2870:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2870:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2870:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2870:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2870:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2870)?(2870):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2870:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2870:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2870:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2871:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2871:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2871:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2871:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2871:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2871:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2871:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2871)?(2871):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2871:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2871:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2871:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2874:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2874:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.OBL__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2875:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.OEP__V10*/ curfptr[9] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2877:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2877:/ block");
-   /*block*/{
-    /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = 
-     ((/*_.OBL__V9*/ curfptr[8]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OBL__V9*/ curfptr[8])) == OBMAG_LIST));;
-    MELT_LOCATION("warmelt-genobj.melt:2877:/ cond");
-    /*cond*/ if (/*_#IS_LIST_OR_NULL__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2877:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2877:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2877:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2877:/ locexp");
-       melt_assert_failed(( "check obl"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2877)?(2877):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2877:/ clear");
-    /*clear*/ /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2877:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2877:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2878:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2878:/ block");
-   /*block*/{
-    /*_#IS_LIST_OR_NULL__L4*/ curfnum[0] = 
-     ((/*_.OEP__V10*/ curfptr[9]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OEP__V10*/ curfptr[9])) == OBMAG_LIST));;
-    MELT_LOCATION("warmelt-genobj.melt:2878:/ cond");
-    /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2878:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2878:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2878:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2878:/ locexp");
-       melt_assert_failed(( "check oep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2878)?(2878):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2878:/ clear");
-    /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2878:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2878:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2880:/ block");
-  /*block*/{
-   /*_.LPBY__V15*/ curfptr[13] = 
-    (melt_list_last((melt_ptr_t)(/*_.OBL__V9*/ curfptr[8])));;
-   /*_.LASBP__V16*/ curfptr[15] = 
-    (melt_pair_head((melt_ptr_t)(/*_.LPBY__V15*/ curfptr[13])));;
-   MELT_LOCATION("warmelt-genobj.melt:2883:/ cond");
-   /*cond*/ if (/*_.LASBP__V16*/ curfptr[15]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2883:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:2883:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2884:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:2884:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:2884:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
-       /*_.UPLASB__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.LASBP__V16*/ curfptr[15]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2885:/ locexp");
-      meltgc_pair_set_head((melt_ptr_t)(/*_.LPBY__V15*/ curfptr[13]), (/*_.UPLASB__V17*/ curfptr[16]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:2884:/ clear");
-      /*clear*/ /*_.UPLASB__V17*/ curfptr[16] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2880:/ clear");
-   /*clear*/ /*_.LPBY__V15*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2880:/ clear");
-   /*clear*/ /*_.LASBP__V16*/ curfptr[15] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.RECV__V2*/ curfptr[1];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2874:/ clear");
-  /*clear*/ /*_.OBL__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2874:/ clear");
-  /*clear*/ /*_.OEP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2874:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2874:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2869:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:2869:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2869:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2869:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2869:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJMULTIBLOCK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2897:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2897:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2897:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2898:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2898:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2898:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2898:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2898:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2898:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2898:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2898)?(2898):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2898:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2898:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2898:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2899:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2899:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2899:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2899:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_objmultiblock recv";
-    MELT_LOCATION("warmelt-genobj.melt:2899:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2899:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2899:/ apply.arg");
-    argtab[3].bp_long = 2899;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2899:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2899:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2899:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2900:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2900:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2900:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2900:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest_objmultiblock recv";
-    MELT_LOCATION("warmelt-genobj.melt:2900:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2900:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2900:/ apply.arg");
-    argtab[3].bp_long = 2900;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2900:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2900:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2900:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2901:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2901:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OMULBLO_SUBCOMP");/*_.OSUBCOMP__V11*/ curfptr[10] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2902:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2902:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0] = 
-     ((/*_.OSUBCOMP__V11*/ curfptr[10]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OSUBCOMP__V11*/ curfptr[10])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-genobj.melt:2902:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2902:/ cond.then");
-    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2902:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2902:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2902:/ locexp");
-       melt_assert_failed(( "check osubcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2902)?(2902):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2902:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2902:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2902:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OSUBCOMP__V11*/ curfptr[10]);
-   for (/*_#CURIX__L5*/ curfnum[0] = 0;  
-	(/*_#CURIX__L5*/ curfnum[0] >= 0) && (/*_#CURIX__L5*/ curfnum[0] <  cit1__EACHTUP_ln);  
-	/*_#CURIX__L5*/ curfnum[0]++) {
-   /*_.CURSUBCOMP__V14*/ curfptr[12] = melt_multiple_nth((melt_ptr_t)(/*_.OSUBCOMP__V11*/ curfptr[10]),  /*_#CURIX__L5*/ curfnum[0]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2906:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2906:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2906:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2906:/ apply.arg");
-      argtab[0].bp_cstring =  "putobjdest_objmultiblock cursubcomp";
-      MELT_LOCATION("warmelt-genobj.melt:2906:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:2906:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2906:/ apply.arg");
-      argtab[3].bp_long = 2906;
-      /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURSUBCOMP__V14*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2906:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2906:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2906:/ cppif.else");
-   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:2907:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2907:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
-    /*_.PUT_OBJDEST__V17*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.CURSUBCOMP__V14*/ curfptr[12]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   if (/*_#CURIX__L5*/ curfnum[0]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
-   /*clear*/ /*_.CURSUBCOMP__V14*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
-   /*clear*/ /*_#CURIX__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
-   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2903:/ clear");
-   /*clear*/ /*_.PUT_OBJDEST__V17*/ curfptr[15] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2908:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2908:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:2908:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
-     argtab[0].bp_cstring =  "putobjdest_objmultiblock done recv";
-     MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:2908:/ apply.arg");
-     argtab[3].bp_long = 2908;
-     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2908:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2908:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2908:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.IFCPP___V18*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2901:/ clear");
-  /*clear*/ /*_.OSUBCOMP__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2901:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2901:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2897:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2897:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2897:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2897:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2897:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2897:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJMULTIBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJLOOP", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2912:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2912:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2912:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2913:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2913:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2913:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2913:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2913:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2913:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2913:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2913)?(2913):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2913:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2913:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2913:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2914:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2914:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2914:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2914:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2914:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2914:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2914:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2914)?(2914):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2914:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2914:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2914:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2915:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V8*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2916:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OBLOOP_RESV");/*_.RESV__V9*/ curfptr[8] = slot; };
-  ;
-  /*_.DESTLIST__V10*/ curfptr[9] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-genobj.melt:2918:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2918:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[3])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V12*/ curfptr[11] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2918:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (1), (/*_.DESTLIST__V10*/ curfptr[9]), "OBDI_DESTLIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2918:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (2), (/*_.RESV__V9*/ curfptr[8]), "OBCPT_EXPR");
-   ;
-   /*_.OBC__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2924:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V10*/ curfptr[9]), (melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2925:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2925:/ block");
-   /*block*/{
-    /*_#IS_LIST__L3*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V8*/ curfptr[6])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-genobj.melt:2925:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2925:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2925:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2925:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2925:/ locexp");
-       melt_assert_failed(( "check epil"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2925)?(2925):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2925:/ clear");
-    /*clear*/ /*_#IS_LIST__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2925:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2925:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2926:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2926:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.RESV__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-genobj.melt:2926:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2926:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2926:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2926:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2926:/ locexp");
-       melt_assert_failed(( "check resv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2926)?(2926):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2926:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2926:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2926:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:2927:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.EPIL__V8*/ curfptr[6]), (melt_ptr_t)(/*_.OBC__V11*/ curfptr[10]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
-  /*clear*/ /*_.EPIL__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
-  /*clear*/ /*_.RESV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
-  /*clear*/ /*_.DESTLIST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
-  /*clear*/ /*_.OBC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2915:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2929:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2929:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2929:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2929:/ apply.arg");
-    argtab[0].bp_cstring =  "putobjdest loop updated recv";
-    MELT_LOCATION("warmelt-genobj.melt:2929:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2929:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2929:/ apply.arg");
-    argtab[3].bp_long = 2929;
-    /*_.DEBUG_MSG_FUN__V18*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2929:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2929:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2929:/ cppif.else");
- /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2912:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-genobj.melt:2912:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2912:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2912:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2912:/ clear");
- /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJLOOP", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJEXIT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2936:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2936:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2936:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2937:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2937:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2937:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2937:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2937:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2937:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2937:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2937)?(2937):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2937:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2937:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2937:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2938:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2938:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2938:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2938:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2938:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2938:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2938:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2938)?(2938):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2938:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2938:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2938:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2936:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-genobj.melt:2936:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2936:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2936:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJEXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 28
-  void* varptr[28];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<28; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 28;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_IF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2946:/ getarg");
- /*_.RIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2946:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2946:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2947:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2947:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IF*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2947:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2947:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2947:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2947:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2947:/ locexp");
-      melt_assert_failed(( "check rif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2947)?(2947):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2947:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2947:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2947:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2948:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2948:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2948:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2948:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2948:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2948:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2948:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2948)?(2948):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2948:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2948:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2948:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2949:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2949:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2949:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2949:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_if rif";
-    MELT_LOCATION("warmelt-genobj.melt:2949:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2949:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2949:/ apply.arg");
-    argtab[3].bp_long = 2949;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2949:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2949:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2949:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2950:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2951:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 4, "NIF_TEST");/*_.NTEST__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2952:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 2, "NIF_THEN");/*_.NTHEN__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2953:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 3, "NIF_ELSE");/*_.NELSE__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2954:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V15*/ curfptr[14] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2956:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2956:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:2956:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2956:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2956:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2956:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2956:/ locexp");
-       melt_assert_failed(( "check nctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2956)?(2956):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2956:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2956:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2956:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2957:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2957:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OTEST__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.NTEST__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2958:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2958:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OTHEN__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#IS_NOT_A__L5*/ curfnum[0] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-genobj.melt:2959:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2959:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:2959:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2960:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2960:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-      /*_.COMPILE_OBJ__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.OELSE__V21*/ curfptr[20] = /*_.COMPILE_OBJ__V22*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2959:/ clear");
-     /*clear*/ /*_.COMPILE_OBJ__V22*/ curfptr[21] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2959:/ cond.else");
-   
-    /*_.OELSE__V21*/ curfptr[20] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2961:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2961:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[6])), (4), "CLASS_OBJCOND");/*_.INST__V24*/ curfptr[23] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2961:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2961:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OTEST__V19*/ curfptr[18]), "OBCOND_TEST");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2961:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.OTHEN__V20*/ curfptr[19]), "OBCOND_THEN");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2961:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.OELSE__V21*/ curfptr[20]), "OBCOND_ELSE");
-    ;
-    /*_.OBIF__V23*/ curfptr[21] = /*_.INST__V24*/ curfptr[23];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2967:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2967:/ block");
-    /*block*/{
-     /*_#NOTNULL__L6*/ curfnum[5] = 
-      ((/*_.OTEST__V19*/ curfptr[18]) != NULL);;
-     MELT_LOCATION("warmelt-genobj.melt:2967:/ cond");
-     /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:2967:/ cond.then");
-     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:2967:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:2967:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:2967:/ locexp");
-        melt_assert_failed(( "check otest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2967)?(2967):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V25*/ curfptr[24] = /*_.IFELSE___V26*/ curfptr[25];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2967:/ clear");
-     /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2967:/ clear");
-     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2967:/ cppif.else");
-   /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:2968:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:2968:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:2968:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2968:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_if obif";
-      MELT_LOCATION("warmelt-genobj.melt:2968:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:2968:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:2968:/ apply.arg");
-      argtab[3].bp_long = 2968;
-      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBIF__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2968:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:2968:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:2968:/ cppif.else");
-   /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V18*/ curfptr[16] = /*_.OBIF__V23*/ curfptr[21];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_.OTEST__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_.OTHEN__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_.OELSE__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_.OBIF__V23*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2957:/ clear");
-   /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V18*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.NTEST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.NTHEN__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.NELSE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.NCTYP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2950:/ clear");
-  /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2946:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2946:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2946:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_IF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_IFISA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:2975:/ getarg");
- /*_.RIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:2975:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:2975:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2976:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2976:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:2976:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2976:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2976:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2976:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2976:/ locexp");
-      melt_assert_failed(( "check rif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2976)?(2976):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2976:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2976:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2976:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2977:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2977:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:2977:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2977:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2977:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:2977:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:2977:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2977)?(2977):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2977:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2977:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2977:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:2978:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:2978:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:2978:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2978:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_ifisa rif";
-    MELT_LOCATION("warmelt-genobj.melt:2978:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:2978:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:2978:/ apply.arg");
-    argtab[3].bp_long = 2978;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2978:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2978:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:2978:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:2979:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2980:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 2, "NIF_THEN");/*_.NTHEN__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2981:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 3, "NIF_ELSE");/*_.NELSE__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2982:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2983:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 4, "NIFA_VAL");/*_.NVAL__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:2984:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RIF__V2*/ curfptr[1]), 5, "NIFA_CLASS");/*_.NCLA__V16*/ curfptr[15] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:2986:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:2986:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NCTYP__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:2986:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:2986:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:2986:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:2986:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:2986:/ locexp");
-       melt_assert_failed(( "check nctyp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (2986)?(2986):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:2986:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:2986:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:2986:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:2987:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2987:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OTHEN__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2988:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2988:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OVAL__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.NVAL__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:2989:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:2989:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OCLA__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NCLA__V16*/ curfptr[15]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#IS_NOT_A__L5*/ curfnum[0] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.NELSE__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-genobj.melt:2990:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:2990:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:2990:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:2991:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:2991:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-      /*_.COMPILE_OBJ__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NELSE__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.OELSE__V23*/ curfptr[22] = /*_.COMPILE_OBJ__V24*/ curfptr[23];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:2990:/ clear");
-     /*clear*/ /*_.COMPILE_OBJ__V24*/ curfptr[23] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:2990:/ cond.else");
-   
-    /*_.OELSE__V23*/ curfptr[22] = NULL;;
-    }
-   ;
-   /*_.MAKE_STRINGCONST__V25*/ curfptr[23] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[8])), ( "/*ifisa*/ melt_is_instance_of((melt_ptr_t)(")));;
-   /*_.MAKE_STRINGCONST__V26*/ curfptr[25] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[8])), ( "), (melt_ptr_t)(")));;
-   /*_.MAKE_STRINGCONST__V27*/ curfptr[26] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[8])), ( "))")));;
-   /*_.MAKE_TUPLE5__V28*/ curfptr[27] = 
-    (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V25*/ curfptr[23]),  
-		      (melt_ptr_t)(/*_.OVAL__V21*/ curfptr[20]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V26*/ curfptr[25]),  (melt_ptr_t)(/*_.OCLA__V22*/ curfptr[21]),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V27*/ curfptr[26])));;
-   MELT_LOCATION("warmelt-genobj.melt:2992:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:2992:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[6])), (2), "CLASS_OBJEXPV");/*_.INST__V30*/ curfptr[29] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:2992:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.MAKE_TUPLE5__V28*/ curfptr[27]), "OBX_CONT");
-    ;
-    /*_.OTEST__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3004:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3004:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[9])), (4), "CLASS_OBJCOND");/*_.INST__V32*/ curfptr[31] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3004:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3004:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.OTEST__V29*/ curfptr[28]), "OBCOND_TEST");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3004:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.OTHEN__V20*/ curfptr[19]), "OBCOND_THEN");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3004:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.OELSE__V23*/ curfptr[22]), "OBCOND_ELSE");
-    ;
-    /*_.OBIF__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3010:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3010:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3010:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3010:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_ifisa obif";
-      MELT_LOCATION("warmelt-genobj.melt:3010:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:3010:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3010:/ apply.arg");
-      argtab[3].bp_long = 3010;
-      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBIF__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3010:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3010:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3010:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V19*/ curfptr[17] = /*_.OBIF__V31*/ curfptr[30];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.OTHEN__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.OVAL__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.OCLA__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.OELSE__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.MAKE_STRINGCONST__V25*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.MAKE_STRINGCONST__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.MAKE_STRINGCONST__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.MAKE_TUPLE5__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.OTEST__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.OBIF__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:2987:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V19*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.NTHEN__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.NELSE__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.NCTYP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.NVAL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.NCLA__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:2979:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:2975:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:2975:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:2975:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2975:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2975:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:2975:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_IFISA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJCOND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3017:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3017:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3017:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3020:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3020:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3020:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3020:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3020:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3020:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3020:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3020)?(3020):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3020:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3020:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3020:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3021:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3021:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3021:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3021:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3021:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3021:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3021:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3021)?(3021):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3021:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3021:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3021:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3022:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3022:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBCOND_THEN");/*_.OTHEN__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3023:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OBCOND_ELSE");/*_.OELSE__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3027:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3027:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3027:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
-    /*_.DTHEN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OTHEN__V9*/ curfptr[8]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3028:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3028:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
-    /*_.DELSE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OELSE__V10*/ curfptr[9]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3031:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3031:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (2), (/*_.DTHEN__V12*/ curfptr[11]), "OBCOND_THEN");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3031:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (3), (/*_.DELSE__V13*/ curfptr[12]), "OBCOND_ELSE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3031:/ touch");
-    meltgc_touch(/*_.RECV__V2*/ curfptr[1]);
-    ;
-    /*epilog*/}
-   ;
-   /*_.LET___V11*/ curfptr[10] = /*_.RECV__V2*/ curfptr[1];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3027:/ clear");
-   /*clear*/ /*_.DTHEN__V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3027:/ clear");
-   /*clear*/ /*_.DELSE__V13*/ curfptr[12] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3022:/ clear");
-  /*clear*/ /*_.OTHEN__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3022:/ clear");
-  /*clear*/ /*_.OELSE__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3022:/ clear");
-  /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3017:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:3017:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3017:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3017:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3017:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJCOND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 28
-  void* varptr[28];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<28; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 28;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_CPPIF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3041:/ getarg");
- /*_.PIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3041:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3041:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3042:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3042:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CPPIF*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3042:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3042:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3042:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3042:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3042:/ locexp");
-      melt_assert_failed(( "check pif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3042)?(3042):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3042:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3042:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3042:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3043:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3043:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3043:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3043:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3043:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3043:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3043:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3043)?(3043):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3043:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3043:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3043:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3044:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3044:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3044:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3044:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_cppif pif";
-    MELT_LOCATION("warmelt-genobj.melt:3044:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3044:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3044:/ apply.arg");
-    argtab[3].bp_long = 3044;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3044:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3044:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3044:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3045:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3046:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 1, "NIFP_COND");/*_.NCOND__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3047:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 2, "NIFP_THEN");/*_.NTHEN__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3048:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 3, "NIFP_ELSE");/*_.NELSE__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3049:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PIF__V2*/ curfptr[1]), 4, "NIFP_CTYP");/*_.CTYP__V15*/ curfptr[14] = slot; };
-  ;
-  /*_#IS_A__L4*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.NCOND__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-genobj.melt:3051:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3051:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3051:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3051:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NCOND__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; };
-    ;
-    /*_.SCOND__V16*/ curfptr[15] = /*_.NAMED_NAME__V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3051:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3051:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:3051:/ block");
-   /*block*/{
-    /*_#IS_STRING__L5*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.NCOND__V12*/ curfptr[11])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-genobj.melt:3052:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3052:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[16] = /*_.NCOND__V12*/ curfptr[11];;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3052:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3052:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:3053:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:3053:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:3053:/ cond");
-        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:3053:/ cond.then");
-        /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:3053:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:3053:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:3053:/ locexp");
-           melt_assert_failed(( "invalid ncond in nrep_cppif"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3053)?(3053):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:3053:/ clear");
-        /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:3053:/ cppif.else");
-      /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-genobj.melt:3053:/ block");
-      /*block*/{
-       /*_.PROGN___V21*/ curfptr[19] = /*_.IFCPP___V19*/ curfptr[18];;}
-      ;
-      /*_.IFELSE___V18*/ curfptr[16] = /*_.PROGN___V21*/ curfptr[19];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3052:/ clear");
-      /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3052:/ clear");
-      /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;}
-     ;
-     }
-    ;
-    /*_.SCOND__V16*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3051:/ clear");
-    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3051:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[16] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3054:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3054:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OTHEN__V22*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.NTHEN__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3055:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3055:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OELSE__V23*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NELSE__V14*/ curfptr[13]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3056:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3056:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[5])), (4), "CLASS_OBJCPPIF");/*_.INST__V25*/ curfptr[24] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3056:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), (/*_.LOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3056:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (1), (/*_.SCOND__V16*/ curfptr[15]), "OBIFP_COND");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3056:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.OTHEN__V22*/ curfptr[18]), "OBIFP_THEN");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3056:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (3), (/*_.OELSE__V23*/ curfptr[19]), "OBIFP_ELSE");
-   ;
-   /*_.RES__V24*/ curfptr[16] = /*_.INST__V25*/ curfptr[24];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3062:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3062:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3062:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3062:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_cppif result";
-     MELT_LOCATION("warmelt-genobj.melt:3062:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:3062:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3062:/ apply.arg");
-     argtab[3].bp_long = 3062;
-     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3062:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3062:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3062:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3063:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[16];;
-   MELT_LOCATION("warmelt-genobj.melt:3063:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V28*/ curfptr[26];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.NCOND__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.NTHEN__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.NELSE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.CTYP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.SCOND__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.OTHEN__V22*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.OELSE__V23*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.RES__V24*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3045:/ clear");
-  /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3041:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3041:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3041:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3041:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3041:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3041:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_CPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PUTOBJDEST_OBJCPPIF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3069:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3069:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DESTO__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3069:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3072:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3072:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3072:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3072:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3072:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3072:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3072:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3072)?(3072):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3072:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3072:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3072:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3073:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3073:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DESTO__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3073:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3073:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3073:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3073:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3073:/ locexp");
-      melt_assert_failed(( "check desto"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3073)?(3073):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3073:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3073:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3073:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3074:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3074:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OBIFP_THEN");/*_.OTHEN__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3075:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OBIFP_ELSE");/*_.OELSE__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3079:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3079:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3079:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
-    /*_.DTHEN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OTHEN__V9*/ curfptr[8]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3080:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3080:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DESTO__V3*/ curfptr[2];
-    /*_.DELSE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OELSE__V10*/ curfptr[9]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3083:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3083:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (2), (/*_.DTHEN__V12*/ curfptr[11]), "OBIFP_THEN");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3083:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.RECV__V2*/ curfptr[1]), (3), (/*_.DELSE__V13*/ curfptr[12]), "OBIFP_ELSE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3083:/ touch");
-    meltgc_touch(/*_.RECV__V2*/ curfptr[1]);
-    ;
-    /*epilog*/}
-   ;
-   /*_.LET___V11*/ curfptr[10] = /*_.RECV__V2*/ curfptr[1];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3079:/ clear");
-   /*clear*/ /*_.DTHEN__V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3079:/ clear");
-   /*clear*/ /*_.DELSE__V13*/ curfptr[12] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3074:/ clear");
-  /*clear*/ /*_.OTHEN__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3074:/ clear");
-  /*clear*/ /*_.OELSE__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3074:/ clear");
-  /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3069:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:3069:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3069:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3069:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3069:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PUTOBJDEST_OBJCPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_RETURN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3093:/ getarg");
- /*_.NRET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3093:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3093:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3094:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3094:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3094:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3094:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3094:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3094:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3094:/ locexp");
-      melt_assert_failed(( "check nret"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3094)?(3094):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3094:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3094:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3094:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3095:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3095:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3095:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3095:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3095:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3095:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3095:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3095)?(3095):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3095:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3095:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3095:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3097:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3097:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3097:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3097:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_return nret";
-    MELT_LOCATION("warmelt-genobj.melt:3097:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3097:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3097:/ apply.arg");
-    argtab[3].bp_long = 3097;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3097:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3097:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3097:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3098:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.RLOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3099:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 1, "NRET_MAIN");/*_.RMAIN__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3100:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NRET__V2*/ curfptr[1]), 2, "NRET_REST");/*_.RREST__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3101:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 5, "GNCX_RETLOC");/*_.RETLOC__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3102:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.OLIS__V16*/ curfptr[15] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-  MELT_LOCATION("warmelt-genobj.melt:3104:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3104:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[4])), (3), "CLASS_OBJBLOCK");/*_.INST__V18*/ curfptr[17] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3104:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.RLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3104:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.OLIS__V16*/ curfptr[15]), "OBLO_BODYL");
-   ;
-   /*_.OBLOCK__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3107:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3107:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OMAINV__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.RMAIN__V12*/ curfptr[11]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3109:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3109:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[6])));;
-    MELT_LOCATION("warmelt-genobj.melt:3109:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3109:/ cond.then");
-    /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3109:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3109:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3109:/ locexp");
-       melt_assert_failed(( "check orout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3109)?(3109):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3109:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3109:/ clear");
-    /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3109:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3110:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3110:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3110:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3110:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_return rrest";
-     MELT_LOCATION("warmelt-genobj.melt:3110:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:3110:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3110:/ apply.arg");
-     argtab[3].bp_long = 3110;
-     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RREST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3110:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3110:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3110:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3111:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3111:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0] = 
-     ((/*_.RREST__V13*/ curfptr[12]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.RREST__V13*/ curfptr[12])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-genobj.melt:3111:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3111:/ cond.then");
-    /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3111:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3111:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3111:/ locexp");
-       melt_assert_failed(( "check rrest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3111)?(3111):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3111:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3111:/ clear");
-    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3111:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3112:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V15*/ curfptr[14]), 7, "OBROUT_RETVAL");/*_.OBROUT_RETVAL__V26*/ curfptr[24] = slot; };
-  ;
-  /*_#NULL__L7*/ curfnum[0] = 
-   ((/*_.OBROUT_RETVAL__V26*/ curfptr[24]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:3112:/ cond");
-  /*cond*/ if (/*_#NULL__L7*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3112:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3112:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3113:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3113:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBROUT_RETVAL", melt_magic_discr((melt_ptr_t)(/*_.OROUT__V15*/ curfptr[14])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.OROUT__V15*/ curfptr[14]), (7), (/*_.RETLOC__V14*/ curfptr[13]), "OBROUT_RETVAL");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3113:/ touch");
-     meltgc_touch(/*_.OROUT__V15*/ curfptr[14]);
-     ;
-     /*epilog*/}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3114:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3114:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.RETLOC__V14*/ curfptr[13];
-   /*_.PUT_OBJDEST__V27*/ curfptr[26] = meltgc_send((melt_ptr_t)(/*_.OMAINV__V19*/ curfptr[18]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3114:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V16*/ curfptr[15]), (melt_ptr_t)(/*_.PUT_OBJDEST__V27*/ curfptr[26]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3117:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3117:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3117:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.RLOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3117:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3117:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.OLIS__V16*/ curfptr[15]);
-   ;
-   /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3115:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3115:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27];
-   /*_.MULTIPLE_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RREST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3128:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3128:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[13])), (1), "CLASS_OBJFINALRETURN");/*_.INST__V32*/ curfptr[31] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3128:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.RLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   /*_.INST___V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3127:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V16*/ curfptr[15]), (melt_ptr_t)(/*_.INST___V31*/ curfptr[30]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3130:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3130:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3130:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3130:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_return final oblock";
-     MELT_LOCATION("warmelt-genobj.melt:3130:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-     MELT_LOCATION("warmelt-genobj.melt:3130:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3130:/ apply.arg");
-     argtab[3].bp_long = 3130;
-     /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3130:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3130:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3130:/ cppif.else");
-  /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V17*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.RLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.RMAIN__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.RREST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.RETLOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.OROUT__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.OLIS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.OBLOCK__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.OMAINV__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.OBROUT_RETVAL__V26*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_#NULL__L7*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.PUT_OBJDEST__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.INST___V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3098:/ clear");
-  /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3093:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3093:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3093:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3093:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3093:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3093:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_101_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3117:/ getarg");
- /*_.RXTRA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3117:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3117:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3119:/ block");
- /*block*/{
-  /*_.MAKE_INTEGERBOX__V3*/ curfptr[2] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#IX__L1*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-genobj.melt:3123:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3123:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
-   /*_.COMPILE_OBJ__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.RXTRA__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3120:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3120:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTXTRARESULT*/ curfrout->tabval[0])), (3), "CLASS_OBJPUTXTRARESULT");/*_.INST__V6*/ curfptr[5] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), ((/*~RLOC*/ curfclos->tabval[0])), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBXRES_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), (/*_.MAKE_INTEGERBOX__V3*/ curfptr[2]), "OBXRES_RANK");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBXRES_OBLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.COMPILE_OBJ__V4*/ curfptr[3]), "OBXRES_OBLOC");
-   ;
-   /*_.OXRES__V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3126:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~OLIS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OXRES__V5*/ curfptr[4]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3119:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3119:/ clear");
-  /*clear*/ /*_.COMPILE_OBJ__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3119:/ clear");
-  /*clear*/ /*_.OXRES__V5*/ curfptr[4] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_101_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_102_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3137:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3137:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3137:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3137:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);;
-  MELT_LOCATION("warmelt-genobj.melt:3137:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_102_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 40
-  void* varptr[40];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<40; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 40;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3145:/ getarg");
- /*_.NLAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3145:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3145:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3146:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3146:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3146:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3146:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3146:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3146:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3146:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3146)?(3146):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3146:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3146:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3146:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3147:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3147:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3147:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3147:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3147:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3147:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3147:/ locexp");
-      melt_assert_failed(( "check nlam"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3147)?(3147):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3147:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3147:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3147:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3148:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3148:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3148:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3148:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_lambda nlam";
-    MELT_LOCATION("warmelt-genobj.melt:3148:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3148:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3148:/ apply.arg");
-    argtab[3].bp_long = 3148;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3148:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3148:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3148:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3149:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3150:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3151:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 1, "NLAMBDA_PROC");/*_.CHECKPRO__V13*/ curfptr[12] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3152:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3152:/ block");
-    /*block*/{
-     /*_#IS_A__L4*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CHECKPRO__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[3])));;
-     MELT_LOCATION("warmelt-genobj.melt:3152:/ cond");
-     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3152:/ cond.then");
-     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3152:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:3152:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3152:/ locexp");
-        melt_assert_failed(( "check checkpro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3152)?(3152):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3152:/ clear");
-     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3152:/ clear");
-     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3152:/ cppif.else");
-   /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V12*/ curfptr[11] = /*_.CHECKPRO__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3150:/ clear");
-   /*clear*/ /*_.CHECKPRO__V13*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3150:/ clear");
-   /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;}
-  ;
-  /*_.NPRO__V16*/ curfptr[14] = /*_.LET___V12*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:3154:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V16*/ curfptr[14]), 2, "NRPRO_NAME");/*_.NAM__V17*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3155:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 3, "NLAMBDA_CLOSEDV");/*_.NCLOVTUP__V18*/ curfptr[13] = slot; };
-  ;
-  /*_#NBCLOSED__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.NCLOVTUP__V18*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-genobj.melt:3157:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3157:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAM__V17*/ curfptr[12];
-   /*_.LOCV__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3158:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NLAM__V2*/ curfptr[1]), 2, "NLAMBDA_CONSTROUT");/*_.NROU__V20*/ curfptr[19] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3159:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.OROUT__V21*/ curfptr[20] = slot; };
-  ;
-  /*_.OLIS__V22*/ curfptr[21] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  MELT_LOCATION("warmelt-genobj.melt:3161:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3161:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[6])), (3), "CLASS_OBJBLOCK");/*_.INST__V24*/ curfptr[23] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3161:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3161:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OLIS__V22*/ curfptr[21]), "OBLO_BODYL");
-   ;
-   /*_.OBLOCK__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-  ;
-  /*_.DESTLIST__V25*/ curfptr[24] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3166:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.LOCV__V19*/ curfptr[18]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3174:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3174:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3174:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3174:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_lambda should use nrpro_thunklist nrou";
-     MELT_LOCATION("warmelt-genobj.melt:3174:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:3174:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3174:/ apply.arg");
-     argtab[3].bp_long = 3174;
-     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NROU__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3174:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3174:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3174:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3175:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3175:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3175:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.CROU__V29*/ curfptr[28] = meltgc_send((melt_ptr_t)(/*_.NROU__V20*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3176:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3176:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3176:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_lambda crou";
-      MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3176:/ apply.arg");
-      argtab[3].bp_long = 3176;
-      /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CROU__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3176:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3176:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3176:/ cppif.else");
-   /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V28*/ curfptr[26] = /*_.CROU__V29*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3175:/ clear");
-   /*clear*/ /*_.CROU__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3175:/ clear");
-   /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3173:/ block");
-  /*block*/{
-   /*_.PROGN___V32*/ curfptr[30] = /*_.LET___V28*/ curfptr[26];;}
-  ;
-  /*_.MAKE_INTEGERBOX__V33*/ curfptr[28] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NBCLOSED__L5*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-genobj.melt:3168:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3168:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJNEWCLOSURE*/ curfrout->tabval[7])), (5), "CLASS_OBJNEWCLOSURE");/*_.INST__V35*/ curfptr[34] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3168:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3168:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBNCLO_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), ((/*!DISCRCLOSURE_OBJPREDEF*/ curfrout->tabval[8])), "OBNCLO_DISCR");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3168:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBNCLO_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (3), (/*_.PROGN___V32*/ curfptr[30]), "OBNCLO_ROUT");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3168:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBNCLO_LEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (4), (/*_.MAKE_INTEGERBOX__V33*/ curfptr[28]), "OBNCLO_LEN");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3168:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.DESTLIST__V25*/ curfptr[24]), "OBDI_DESTLIST");
-   ;
-   /*_.INST___V34*/ curfptr[29] = /*_.INST__V35*/ curfptr[34];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3167:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V22*/ curfptr[21]), (melt_ptr_t)(/*_.INST___V34*/ curfptr[29]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3183:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3183:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (4));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3183:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.OLIS__V22*/ curfptr[21]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3183:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3183:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[2] = (melt_ptr_t)(/*_.LOCV__V19*/ curfptr[18]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3183:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[3] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3181:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3181:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35];
-   /*_.MULTIPLE_EVERY__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NCLOVTUP__V18*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3193:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OLIS__V22*/ curfptr[21]), (melt_ptr_t)(/*_.LOCV__V19*/ curfptr[18]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3194:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3194:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3194:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3194:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_lambda result oblock";
-     MELT_LOCATION("warmelt-genobj.melt:3194:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:3194:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3194:/ apply.arg");
-     argtab[3].bp_long = 3194;
-     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3194:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3194:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3194:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.OBLOCK__V23*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.NPRO__V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.NAM__V17*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.NCLOVTUP__V18*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_#NBCLOSED__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.LOCV__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.NROU__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.OROUT__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.OLIS__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.OBLOCK__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.DESTLIST__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.PROGN___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V33*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.INST___V34*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3149:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3145:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3145:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3145:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3145:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3145:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3145:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_104_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3183:/ getarg");
- /*_.CLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3183:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3183:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3184:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3184:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3184:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3184:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_lambda clov";
-    MELT_LOCATION("warmelt-genobj.melt:3184:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:3184:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3184:/ apply.arg");
-    argtab[3].bp_long = 3184;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3184:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3184:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3184:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 
-  (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L1*/ curfnum[0])));;
- MELT_LOCATION("warmelt-genobj.melt:3191:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:3191:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[3]);
-  /*_.COMPILE_OBJ__V6*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:3187:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3187:/ rawallocobj");
-  /*rawallocobj*/ { melt_ptr_t newobj = 0;
-   melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV");/*_.INST__V8*/ curfptr[7] =
-   newobj; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3187:/ putslot");
-  /*putslot*/
-  melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3187:/ putslot");
-  /*putslot*/
-  melt_assertmsg("putslot checkobj @OPCLOV_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), ((/*~LOCV*/ curfclos->tabval[2])), "OPCLOV_CLOS");
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3187:/ putslot");
-  /*putslot*/
-  melt_assertmsg("putslot checkobj @OPCLOV_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), (/*_.MAKE_INTEGERBOX__V5*/ curfptr[3]), "OPCLOV_OFF");
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3187:/ putslot");
-  /*putslot*/
-  melt_assertmsg("putslot checkobj @OPCLOV_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-  melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (3), (/*_.COMPILE_OBJ__V6*/ curfptr[5]), "OPCLOV_CVAL");
-  ;
-  /*_.INST___V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
- ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:3185:/ locexp");
- meltgc_append_list((melt_ptr_t)((/*~OLIS*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.INST___V7*/ curfptr[6]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3183:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3183:/ clear");
- /*clear*/ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3183:/ clear");
- /*clear*/ /*_.COMPILE_OBJ__V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3183:/ clear");
- /*clear*/ /*_.INST___V7*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_104_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_MAKEINST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3200:/ getarg");
- /*_.NMKI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3200:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3200:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3201:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3201:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3201:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3201:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3201:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3201:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3201:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3201)?(3201):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3201:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3201:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3201:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3202:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3202:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_INSTANCE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3202:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3202:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3202:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3202:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3202:/ locexp");
-      melt_assert_failed(( "check nmki"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3202)?(3202):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3202:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3202:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3202:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3203:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3203:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3203:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3203:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_makeinst nmki";
-    MELT_LOCATION("warmelt-genobj.melt:3203:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3203:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3203:/ apply.arg");
-    argtab[3].bp_long = 3203;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3203:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3203:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3203:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3205:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3206:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 1, "NMINS_CLASS");/*_.NCLA__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3207:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 2, "NMINS_CLADATA");/*_.NCLADAT__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3208:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMKI__V2*/ curfptr[1]), 3, "NMINS_FIELDS");/*_.NFIELDS__V14*/ curfptr[13] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3210:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3210:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3210:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3210:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3210:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3210:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3210:/ locexp");
-       melt_assert_failed(( "check ncla"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3210)?(3210):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3210:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3210:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3210:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3211:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V18*/ curfptr[17] = slot; };
-   ;
-   /*_#NBFLD__L5*/ curfnum[0] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V18*/ curfptr[17])));;
-   /*_.DESTLIST__V19*/ curfptr[18] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-   MELT_LOCATION("warmelt-genobj.melt:3213:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3213:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_6_INST*/ curfrout->tabval[6]);
-    /*_.LOCV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.OLIS__V21*/ curfptr[20] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-   MELT_LOCATION("warmelt-genobj.melt:3215:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3215:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OCLADAT__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NCLADAT__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3216:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3216:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[8])), (3), "CLASS_OBJBLOCK");/*_.INST__V24*/ curfptr[23] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3216:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3216:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.OLIS__V21*/ curfptr[20]), "OBLO_BODYL");
-    ;
-    /*_.OBLOCK__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-   ;
-   /*_.MAKE_INTEGERBOX__V25*/ curfptr[24] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NBFLD__L5*/ curfnum[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3223:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3219:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3219:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJRAWALLOCOBJ*/ curfrout->tabval[9])), (5), "CLASS_OBJRAWALLOCOBJ");/*_.INST__V28*/ curfptr[27] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3219:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3219:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBRALLOBJ_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.OCLADAT__V22*/ curfptr[21]), "OBRALLOBJ_CLASS");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3219:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBRALLOBJ_LEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.MAKE_INTEGERBOX__V25*/ curfptr[24]), "OBRALLOBJ_LEN");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3219:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBRALLOBJ_CLASSNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (4), (/*_.NAMED_NAME__V26*/ curfptr[25]), "OBRALLOBJ_CLASSNAME");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3219:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.DESTLIST__V19*/ curfptr[18]), "OBDI_DESTLIST");
-    ;
-    /*_.ORALLOBJ__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3226:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.DESTLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.LOCV__V20*/ curfptr[19]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3227:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.OLIS__V21*/ curfptr[20]), (melt_ptr_t)(/*_.ORALLOBJ__V27*/ curfptr[26]));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3231:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3231:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (4));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3231:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.OLIS__V21*/ curfptr[20]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3231:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3231:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.NLOC__V11*/ curfptr[10]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3231:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[3] = (melt_ptr_t)(/*_.LOCV__V20*/ curfptr[19]);
-    ;
-    /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3229:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3229:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
-    /*_.MULTIPLE_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NFIELDS__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3249:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.OLIS__V21*/ curfptr[20]), (melt_ptr_t)(/*_.LOCV__V20*/ curfptr[19]));}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3250:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3250:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3250:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3250:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_makeinst result oblock";
-      MELT_LOCATION("warmelt-genobj.melt:3250:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:3250:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3250:/ apply.arg");
-      argtab[3].bp_long = 3250;
-      /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBLOCK__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V32*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3250:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3250:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3250:/ cppif.else");
-   /*_.IFCPP___V32*/ curfptr[31] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V17*/ curfptr[15] = /*_.OBLOCK__V23*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.CLASS_FIELDS__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_#NBFLD__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.DESTLIST__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.LOCV__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.OLIS__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.OCLADAT__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.OBLOCK__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.ORALLOBJ__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3211:/ clear");
-   /*clear*/ /*_.IFCPP___V32*/ curfptr[31] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V17*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
-  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
-  /*clear*/ /*_.NCLA__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
-  /*clear*/ /*_.NCLADAT__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
-  /*clear*/ /*_.NFIELDS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3205:/ clear");
-  /*clear*/ /*_.LET___V17*/ curfptr[15] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3200:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3200:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3200:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3200:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3200:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3200:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_MAKEINST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_106_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3231:/ getarg");
- /*_.CFLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3231:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3231:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3232:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3232:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3232:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3232:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3232:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3232:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3232:/ locexp");
-      melt_assert_failed(( "compilobj_nrep_makeinst check cfla"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3232)?(3232):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3232:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3232:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3232:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3233:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3233:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.CFLOC__V5*/ curfptr[3] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3234:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 1, "NFLA_FIELD");/*_.CFIELD__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3235:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLA__V2*/ curfptr[1]), 2, "NFLA_VAL");/*_.CVAL__V7*/ curfptr[6] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3236:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3236:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CFIELD__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-genobj.melt:3236:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3236:/ cond.then");
-    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3236:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3236:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3236:/ locexp");
-       melt_assert_failed(( "compilobj_nrep_makeinst check cfield"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3236)?(3236):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3236:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3236:/ clear");
-    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3236:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3239:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3239:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[1]);
-    /*_.OVAL__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.CVAL__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3240:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3240:/ block");
-    /*block*/{
-     /*_#IS_A__L4*/ curfnum[1] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.OVAL__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[3])));;
-     /*_#NOT__L5*/ curfnum[4] = 
-      (!(/*_#IS_A__L4*/ curfnum[1]));;
-     MELT_LOCATION("warmelt-genobj.melt:3240:/ cond");
-     /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3240:/ cond.then");
-     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3240:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:3240:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3240:/ locexp");
-        melt_assert_failed(( "compilobj_nrep_makeinst check oval not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3240)?(3240):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3240:/ clear");
-     /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3240:/ clear");
-     /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3240:/ clear");
-     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3240:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:3242:/ cond");
-   /*cond*/ if (/*_.CFLOC__V5*/ curfptr[3]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3242:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[12] = /*_.CFLOC__V5*/ curfptr[3];;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3242:/ cond.else");
-   
-    /*_.IFELSE___V14*/ curfptr[12] = (/*~NLOC*/ curfclos->tabval[2]);;
-    }
-   ;
-   /*_#GET_INT__L6*/ curfnum[1] = 
-    (melt_get_int((melt_ptr_t)(/*_.CFIELD__V6*/ curfptr[5])));;
-   /*_.MAKE_INTEGERBOX__V15*/ curfptr[14] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (/*_#GET_INT__L6*/ curfnum[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3241:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3241:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[4])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V17*/ curfptr[16] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.IFELSE___V14*/ curfptr[12]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_ODATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*~LOCV*/ curfclos->tabval[3])), "OSLOT_ODATA");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), (/*_.CFIELD__V6*/ curfptr[5]), "OSLOT_FIELD");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.MAKE_INTEGERBOX__V15*/ curfptr[14]), "OSLOT_OFFSET");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OSLOT_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (4), (/*_.OVAL__V11*/ curfptr[10]), "OSLOT_VALUE");
-    ;
-    /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-   ;
-   /*_.LET___V10*/ curfptr[8] = /*_.INST___V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ clear");
-   /*clear*/ /*_.OVAL__V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ clear");
-   /*clear*/ /*_#GET_INT__L6*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3239:/ clear");
-   /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3237:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~OLIS*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.LET___V10*/ curfptr[8]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3233:/ clear");
-  /*clear*/ /*_.CFLOC__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3233:/ clear");
-  /*clear*/ /*_.CFIELD__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3233:/ clear");
-  /*clear*/ /*_.CVAL__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3233:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3233:/ clear");
-  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3231:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_106_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_ROUTPROC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3258:/ getarg");
- /*_.NPRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3258:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3258:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3259:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3259:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3259:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3259:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3259:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3259:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3259:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3259)?(3259):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3259:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3259:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3259:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3260:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3260:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3260:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3260:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3260:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3260:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3260:/ locexp");
-      melt_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3260)?(3260):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3260:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3260:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3261:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3261:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3261:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3261:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_routproc gcx";
-    MELT_LOCATION("warmelt-genobj.melt:3261:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3261:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3261:/ apply.arg");
-    argtab[3].bp_long = 3261;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3261:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3261:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3261:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3262:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3262:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3262:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3262:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_routproc npro";
-    MELT_LOCATION("warmelt-genobj.melt:3262:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3262:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3262:/ apply.arg");
-    argtab[3].bp_long = 3262;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3262:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3262:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3262:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3263:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3263:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3263:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3263:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3263:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3263:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3263:/ locexp");
-      melt_assert_failed(( "UNEXPECTED CALL TO compilobj_routproc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3263)?(3263):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3263:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3263:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3258:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-genobj.melt:3258:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3258:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3258:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3258:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3258:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3258:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_ROUTPROC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_PREDEF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3268:/ getarg");
- /*_.NPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3268:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3268:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3269:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3269:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3269:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3269:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3269:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3269:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3269:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3269)?(3269):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3269:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3269:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3269:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3271:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3273:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NPR__V2*/ curfptr[1]), 1, "NRPREDEF");/*_.NRPREDEF__V7*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3271:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3271:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPREDEF*/ curfrout->tabval[1])), (2), "CLASS_OBJPREDEF");/*_.INST__V9*/ curfptr[8] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3271:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[2])), "OBV_TYPE");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3271:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (1), (/*_.NRPREDEF__V7*/ curfptr[6]), "OBPREDEF");
-   ;
-   /*_.OPR__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
-  ;
-  /*_.LET___V6*/ curfptr[4] = /*_.OPR__V8*/ curfptr[7];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3271:/ clear");
-  /*clear*/ /*_.NRPREDEF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3271:/ clear");
-  /*clear*/ /*_.OPR__V8*/ curfptr[7] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3268:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-genobj.melt:3268:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3268:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3268:/ clear");
- /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_PREDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 83
-  void* varptr[83];
-#define CURFRAM_NBVARNUM 18
-  long varnum[18];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<83; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 83;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPIL_DATA_AND_SLOTS_FILL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3286:/ getarg");
- /*_.NDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3286:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OBJ__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:3286:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.ODISCR__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ODISCR__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-genobj.melt:3286:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.IROUT__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-genobj.melt:3286:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V6*/ curfptr[5])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3286:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3287:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3287:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3287:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3287:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3287:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3287:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3287:/ locexp");
-      melt_assert_failed(( "compil_data_and_slots_fill check ndat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3287)?(3287):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3287:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3287:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3287:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3288:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3288:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3288:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3288:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3288:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3288:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3288:/ locexp");
-      melt_assert_failed(( "compil_data_and_slots_fill check obj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3288)?(3288):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3288:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3288:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3289:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3289:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ODISCR__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:3289:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3289:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3289:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3289:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3289:/ locexp");
-      melt_assert_failed(( "compil_data_and_slots_fill check odiscr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3289)?(3289):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3289:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3289:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3289:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3290:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3290:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:3290:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3290:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3290:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3290:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3290:/ locexp");
-      melt_assert_failed(( "compil_data_and_slots_fill check irout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3290)?(3290):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3290:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3290:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3290:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3291:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3291:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[4])));;
-   MELT_LOCATION("warmelt-genobj.melt:3291:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3291:/ cond.then");
-   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3291:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3291:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3291:/ locexp");
-      melt_assert_failed(( "compil_data_and_slots_fill check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3291)?(3291):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3291:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3291:/ clear");
-   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3291:/ cppif.else");
- /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3292:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3292:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3292:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3292:/ apply.arg");
-    argtab[0].bp_cstring =  "compil_data_and_slots_fill start ndat";
-    MELT_LOCATION("warmelt-genobj.melt:3292:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3292:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3292:/ apply.arg");
-    argtab[3].bp_long = 3292;
-    /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3292:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3292:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3292:/ cppif.else");
- /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3293:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3293:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3293:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3293:/ apply.arg");
-    argtab[0].bp_cstring =  "compil_data_and_slots_fill start obj";
-    MELT_LOCATION("warmelt-genobj.melt:3293:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3293:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3293:/ apply.arg");
-    argtab[3].bp_long = 3293;
-    /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3293:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3293:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3293:/ cppif.else");
- /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3294:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3294:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3294:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
-    argtab[0].bp_cstring =  "compil_data_and_slots_fill odiscr";
-    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3294:/ apply.arg");
-    argtab[3].bp_long = 3294;
-    /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ODISCR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3294:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3294:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3294:/ cppif.else");
- /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3295:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3295:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3295:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
-    argtab[0].bp_cstring =  "compil_data_and_slots_fill irout un";
-    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3295:/ apply.arg");
-    argtab[3].bp_long = 3295;
-    /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3295:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3295:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3295:/ cppif.else");
- /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3296:/ block");
- /*block*/{
-  /*_#IS_A__L10*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[6])));;
-  MELT_LOCATION("warmelt-genobj.melt:3297:/ cond");
-  /*cond*/ if (/*_#IS_A__L10*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3297:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3297:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3297:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 6, "NINST_PREDEF");/*_.NINST_PREDEF__V27*/ curfptr[26] = slot; };
-    ;
-    /*_.IPREDEF__V26*/ curfptr[25] = /*_.NINST_PREDEF__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3297:/ clear");
-    /*clear*/ /*_.NINST_PREDEF__V27*/ curfptr[26] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3297:/ cond.else");
-  
-   /*_.IPREDEF__V26*/ curfptr[25] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3298:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), 3, "OBROUT_BODY");/*_.IBODYLIS__V28*/ curfptr[26] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3299:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.IROUT__V5*/ curfptr[4]), 11, "OIROUT_FILL");/*_.IFILLLIS__V29*/ curfptr[28] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3300:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3300:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_8_VALDATA_*/ curfrout->tabval[8]);
-   /*_.LOCVAR__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3301:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)((/*!konst_9_VALUEDATA_*/ curfrout->tabval[9])), 1, "NAMED_NAME");/*_.COMM__V31*/ curfptr[30] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3302:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V32*/ curfptr[31] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3303:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 4, "NDATA_LOCBIND");/*_.DLOCBIND__V33*/ curfptr[32] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3304:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V34*/ curfptr[33] = slot; };
-  ;
-  /*_.ISTMTLIS__V35*/ curfptr[34] = /*_.IBODYLIS__V28*/ curfptr[26];;
-  /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.LOCMAP__V34*/ curfptr[33])));;
-  /*_.TUPVAR__V36*/ curfptr[35] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3309:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3309:/ block");
-   /*block*/{
-    /*_#IS_LIST__L12*/ curfnum[11] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-genobj.melt:3309:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3309:/ cond.then");
-    /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3309:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3309:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3309:/ locexp");
-       melt_assert_failed(( "compil_data_and_slots_fill check ibodylis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3309)?(3309):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V37*/ curfptr[36] = /*_.IFELSE___V38*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3309:/ clear");
-    /*clear*/ /*_#IS_LIST__L12*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3309:/ clear");
-    /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3309:/ cppif.else");
-  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3310:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3310:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3310:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]), 4, "OIE_LOCVAR");/*_.OIE_LOCVAR__V40*/ curfptr[39] = slot; };
-    ;
-    /*_#NULL__L13*/ curfnum[11] = 
-     ((/*_.OIE_LOCVAR__V40*/ curfptr[39]) == NULL);;
-    MELT_LOCATION("warmelt-genobj.melt:3310:/ cond");
-    /*cond*/ if (/*_#NULL__L13*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3310:/ cond.then");
-    /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3310:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3310:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3310:/ locexp");
-       melt_assert_failed(( "compil_data_and_slots_fill check fresh obj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3310)?(3310):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V41*/ curfptr[40];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3310:/ clear");
-    /*clear*/ /*_.OIE_LOCVAR__V40*/ curfptr[39] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3310:/ clear");
-    /*clear*/ /*_#NULL__L13*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3310:/ clear");
-    /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3310:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3311:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3311:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.OBJ__V3*/ curfptr[2]), (4), (/*_.LOCVAR__V30*/ curfptr[29]), "OIE_LOCVAR");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3311:/ touch");
-   meltgc_touch(/*_.OBJ__V3*/ curfptr[2]);
-   ;
-   /*epilog*/}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3312:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3312:/ block");
-   /*block*/{
-    /*_#IS_LIST__L14*/ curfnum[11] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.IFILLLIS__V29*/ curfptr[28])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-genobj.melt:3312:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3312:/ cond.then");
-    /*_.IFELSE___V43*/ curfptr[40] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3312:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3312:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3312:/ locexp");
-       melt_assert_failed(( "compil_data_and_slots_fill check ifilllis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3312)?(3312):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V43*/ curfptr[40] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V42*/ curfptr[39] = /*_.IFELSE___V43*/ curfptr[40];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3312:/ clear");
-    /*clear*/ /*_#IS_LIST__L14*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3312:/ clear");
-    /*clear*/ /*_.IFELSE___V43*/ curfptr[40] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3312:/ cppif.else");
-  /*_.IFCPP___V42*/ curfptr[39] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3313:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3313:/ block");
-   /*block*/{
-    /*_#IS_LIST__L15*/ curfnum[11] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-genobj.melt:3313:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L15*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3313:/ cond.then");
-    /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3313:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3313:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3313:/ locexp");
-       melt_assert_failed(( "compil_data_and_slots_fill check ibodylis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3313)?(3313):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V44*/ curfptr[40] = /*_.IFELSE___V45*/ curfptr[44];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3313:/ clear");
-    /*clear*/ /*_#IS_LIST__L15*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3313:/ clear");
-    /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3313:/ cppif.else");
-  /*_.IFCPP___V44*/ curfptr[40] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3315:/ cond");
-  /*cond*/ if (/*_.IPREDEF__V26*/ curfptr[25]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3315:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3315:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3316:/ block");
-    /*block*/{
-     /*_#IS_A__L16*/ curfnum[11] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[11])));;
-     MELT_LOCATION("warmelt-genobj.melt:3319:/ cond");
-     /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3319:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:3319:/ block");
-      /*block*/{
-       /*_.MAKE_STRINGCONST__V47*/ curfptr[46] = 
-        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( "MELTPREDEFIX(predefinited,")));;
-       MELT_LOCATION("warmelt-genobj.melt:3326:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V48*/ curfptr[47] = slot; };
-       ;
-       /*_.MAKE_STRING__V49*/ curfptr[48] = 
-        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), 
-			  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V48*/ curfptr[47]))));;
-       /*_.MAKE_STRINGCONST__V50*/ curfptr[49] = 
-        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( ")")));;
-       /*_.MAKE_TUPLE3__V51*/ curfptr[50] = 
-        (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V47*/ curfptr[46]),  (melt_ptr_t)(/*_.MAKE_STRING__V49*/ curfptr[48]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V50*/ curfptr[49])));;
-       MELT_LOCATION("warmelt-genobj.melt:3320:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:3320:/ rawallocobj");
-        /*rawallocobj*/ { melt_ptr_t newobj = 0;
-         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[12])), (2), "CLASS_OBJEXPV");/*_.INST__V53*/ curfptr[52] =
-         newobj; };
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:3320:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.MAKE_TUPLE3__V51*/ curfptr[50]), "OBX_CONT");
-        ;
-        /*_.INST___V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;}
-       ;
-       /*_.OTESTPREDEF__V46*/ curfptr[44] = /*_.INST___V52*/ curfptr[51];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.MAKE_STRINGCONST__V47*/ curfptr[46] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V48*/ curfptr[47] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.MAKE_STRING__V49*/ curfptr[48] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.MAKE_STRINGCONST__V50*/ curfptr[49] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.MAKE_TUPLE3__V51*/ curfptr[50] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.INST___V52*/ curfptr[51] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3319:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:3319:/ block");
-      /*block*/{
-       /*_#IS_INTEGERBOX__L17*/ curfnum[16] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25])) == OBMAG_INT);;
-       MELT_LOCATION("warmelt-genobj.melt:3331:/ cond");
-       /*cond*/ if (/*_#IS_INTEGERBOX__L17*/ curfnum[16]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:3331:/ cond.then");
-       MELT_LOCATION("warmelt-genobj.melt:3331:/ block");
-        /*block*/{
-         /*_.MAKE_STRINGCONST__V55*/ curfptr[47] = 
-          (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( "predefinited[")));;
-         /*_.MAKE_STRINGCONST__V56*/ curfptr[48] = 
-          (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[13])), ( "]")));;
-         /*_.MAKE_TUPLE3__V57*/ curfptr[49] = 
-          (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V55*/ curfptr[47]),  (melt_ptr_t)(/*_.IPREDEF__V26*/ curfptr[25]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V56*/ curfptr[48])));;
-         MELT_LOCATION("warmelt-genobj.melt:3332:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:3332:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[12])), (2), "CLASS_OBJEXPV");/*_.INST__V59*/ curfptr[51] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:3332:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[51])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V59*/ curfptr[51]), (1), (/*_.MAKE_TUPLE3__V57*/ curfptr[49]), "OBX_CONT");
-          ;
-          /*_.INST___V58*/ curfptr[50] = /*_.INST__V59*/ curfptr[51];;}
-         ;
-         /*_.IFELSE___V54*/ curfptr[46] = /*_.INST___V58*/ curfptr[50];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:3331:/ clear");
-         /*clear*/ /*_.MAKE_STRINGCONST__V55*/ curfptr[47] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:3331:/ clear");
-         /*clear*/ /*_.MAKE_STRINGCONST__V56*/ curfptr[48] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:3331:/ clear");
-         /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[49] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:3331:/ clear");
-         /*clear*/ /*_.INST___V58*/ curfptr[50] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-genobj.melt:3331:/ cond.else");
-       
-        /*_.IFELSE___V54*/ curfptr[46] = NULL;;
-        }
-       ;
-       /*_.OTESTPREDEF__V46*/ curfptr[44] = /*_.IFELSE___V54*/ curfptr[46];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_#IS_INTEGERBOX__L17*/ curfnum[16] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3319:/ clear");
-       /*clear*/ /*_.IFELSE___V54*/ curfptr[46] = 0 ;}
-      ;
-      }
-     ;
-     /*_.INITLIS__V60*/ curfptr[47] = 
-      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[14]))));;
-     MELT_LOCATION("warmelt-genobj.melt:3344:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3344:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[15])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V62*/ curfptr[49] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3344:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[49])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V62*/ curfptr[49]), (1), (/*_.INITLIS__V60*/ curfptr[47]), "OBLO_BODYL");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3344:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[49])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V62*/ curfptr[49]), (3), ((/*!konst_16*/ curfrout->tabval[16])), "OCOMBLO_COMMENT");
-      ;
-      /*_.OBLOCKPREDEF__V61*/ curfptr[48] = /*_.INST__V62*/ curfptr[49];;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3348:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3348:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[17])), (4), "CLASS_OBJCOND");/*_.INST__V64*/ curfptr[46] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3348:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (0), (/*_.NLOC__V32*/ curfptr[31]), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3348:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (1), (/*_.OTESTPREDEF__V46*/ curfptr[44]), "OBCOND_TEST");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3348:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (2), ((/*nil*/NULL)), "OBCOND_THEN");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3348:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V64*/ curfptr[46]), (3), (/*_.OBLOCKPREDEF__V61*/ curfptr[48]), "OBCOND_ELSE");
-      ;
-      /*_.OCONDPREDEF__V63*/ curfptr[50] = /*_.INST__V64*/ curfptr[46];;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3355:/ compute");
-     /*_.ISTMTLIS__V35*/ curfptr[34] = /*_.SETQ___V65*/ curfptr[64] = /*_.INITLIS__V60*/ curfptr[47];;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3356:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]), (melt_ptr_t)(/*_.OCONDPREDEF__V63*/ curfptr[50]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3316:/ clear");
-     /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3316:/ clear");
-     /*clear*/ /*_.OTESTPREDEF__V46*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3316:/ clear");
-     /*clear*/ /*_.INITLIS__V60*/ curfptr[47] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3316:/ clear");
-     /*clear*/ /*_.OBLOCKPREDEF__V61*/ curfptr[48] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3316:/ clear");
-     /*clear*/ /*_.OCONDPREDEF__V63*/ curfptr[50] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3316:/ clear");
-     /*clear*/ /*_.SETQ___V65*/ curfptr[64] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3361:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3361:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V67*/ curfptr[47] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (4));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3361:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[0] = (melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3361:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V34*/ curfptr[33]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3361:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[2] = (melt_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3361:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V67*/ curfptr[47])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V67*/ curfptr[47])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V67*/ curfptr[47])->tabval[3] = (melt_ptr_t)(/*_.TUPVAR__V36*/ curfptr[35]);
-   ;
-   /*_.LAMBDA___V66*/ curfptr[44] = /*_.LAMBDA___V67*/ curfptr[47];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3359:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3359:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V66*/ curfptr[44];
-   /*_.MULTIPLE_EVERY__V68*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.DLOCBIND__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3379:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.NINST_SLOTS__V69*/ curfptr[50] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3380:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3380:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V71*/ curfptr[70] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (4));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3380:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[0] = (melt_ptr_t)(/*_.GCX__V6*/ curfptr[5]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3380:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V32*/ curfptr[31]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3380:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[2] = (melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3380:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V71*/ curfptr[70])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V71*/ curfptr[70])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V71*/ curfptr[70])->tabval[3] = (melt_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]);
-   ;
-   /*_.LAMBDA___V70*/ curfptr[64] = /*_.LAMBDA___V71*/ curfptr[70];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3378:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3378:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V70*/ curfptr[64];
-   /*_.MULTIPLE_EVERY__V72*/ curfptr[71] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NINST_SLOTS__V69*/ curfptr[50]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3403:/ cond");
-  /*cond*/ if (/*_.NLOC__V32*/ curfptr[31]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3403:/ cond.then");
-  /*_.IFELSE___V73*/ curfptr[72] = /*_.NLOC__V32*/ curfptr[31];;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3403:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:3403:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3403:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NDAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V74*/ curfptr[73] = slot; };
-    ;
-    /*_.IFELSE___V73*/ curfptr[72] = /*_.NREP_LOC__V74*/ curfptr[73];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3403:/ clear");
-    /*clear*/ /*_.NREP_LOC__V74*/ curfptr[73] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3402:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3402:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[29])), (3), "CLASS_OBJTOUCH");/*_.INST__V76*/ curfptr[75] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3402:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.IFELSE___V73*/ curfptr[72]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3402:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.COMM__V31*/ curfptr[30]), "OTOUCH_COMMENT");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3402:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.OBJ__V3*/ curfptr[2]), "OTOUCH_VAL");
-   ;
-   /*_.INST___V75*/ curfptr[73] = /*_.INST__V76*/ curfptr[75];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3401:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.ISTMTLIS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.INST___V75*/ curfptr[73]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3409:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3409:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V78*/ curfptr[77] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3409:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V78*/ curfptr[77])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V78*/ curfptr[77])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V78*/ curfptr[77])->tabval[0] = (melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3409:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V78*/ curfptr[77])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V78*/ curfptr[77])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V78*/ curfptr[77])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V32*/ curfptr[31]);
-   ;
-   /*_.LAMBDA___V77*/ curfptr[76] = /*_.LAMBDA___V78*/ curfptr[77];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3407:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3407:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V77*/ curfptr[76];
-   /*_.MULTIPLE_EVERY__V79*/ curfptr[78] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.TUPVAR__V36*/ curfptr[35]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3418:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.IBODYLIS__V28*/ curfptr[26]), (melt_ptr_t)(/*_.OBJ__V3*/ curfptr[2]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3420:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3420:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3420:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3420:/ apply.arg");
-     argtab[0].bp_cstring =  "compil_data_and_slots_fill final dlocbind";
-     MELT_LOCATION("warmelt-genobj.melt:3420:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16];
-     MELT_LOCATION("warmelt-genobj.melt:3420:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3420:/ apply.arg");
-     argtab[3].bp_long = 3420;
-     /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.DLOCBIND__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V80*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[80];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3420:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3420:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3420:/ cppif.else");
-  /*_.IFCPP___V80*/ curfptr[79] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3424:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.DLOCBIND__V33*/ curfptr[32];;
-   MELT_LOCATION("warmelt-genobj.melt:3424:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V25*/ curfptr[23] = /*_.RETURN___V82*/ curfptr[80];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_#IS_A__L10*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IPREDEF__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IBODYLIS__V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFILLLIS__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.LOCVAR__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.COMM__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.NLOC__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.DLOCBIND__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.LOCMAP__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.ISTMTLIS__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.TUPVAR__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFCPP___V42*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFCPP___V44*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.LAMBDA___V66*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V68*/ curfptr[48] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.NINST_SLOTS__V69*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.LAMBDA___V70*/ curfptr[64] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V72*/ curfptr[71] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFELSE___V73*/ curfptr[72] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.INST___V75*/ curfptr[73] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.LAMBDA___V77*/ curfptr[76] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V79*/ curfptr[78] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.IFCPP___V80*/ curfptr[79] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3296:/ clear");
-  /*clear*/ /*_.RETURN___V82*/ curfptr[80] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3426:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-  MELT_LOCATION("warmelt-genobj.melt:3426:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V83*/ curfptr[25];;
-  MELT_LOCATION("warmelt-genobj.melt:3286:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3286:/ clear");
- /*clear*/ /*_.RETURN___V83*/ curfptr[25] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPIL_DATA_AND_SLOTS_FILL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_110_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3361:/ getarg");
- /*_.LBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3361:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#BINDRK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3361:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3363:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3363:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3363:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3363:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3363:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3363:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3363:/ locexp");
-      melt_assert_failed(( "compil_data_and_slots_fill check lbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3363)?(3363):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3363:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3363:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3363:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3364:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3364:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BDER__V5*/ curfptr[3] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3365:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 1, "LETBIND_TYPE");/*_.CTY__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3366:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.LBIND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NEXP__V7*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3367:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3367:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BDER__V5*/ curfptr[3];
-   MELT_LOCATION("warmelt-genobj.melt:3367:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CTY__V6*/ curfptr[5];
-   /*_.OBVA__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[1])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3368:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3368:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OBNX__V9*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.NEXP__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3370:/ cond");
-  /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3370:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3370:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3370:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.LBIND__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBVA__V8*/ curfptr[7]));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3371:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3371:/ cond");
-   /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3371:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3371:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3371:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3371:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBVA__V8*/ curfptr[7];
-      /*_.PUT_OBJDEST__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.OBNX__V9*/ curfptr[8]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.OBMY__V10*/ curfptr[9] = /*_.PUT_OBJDEST__V11*/ curfptr[10];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3371:/ clear");
-     /*clear*/ /*_.PUT_OBJDEST__V11*/ curfptr[10] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3371:/ cond.else");
-   
-    /*_.OBMY__V10*/ curfptr[9] = /*_.OBNX__V9*/ curfptr[8];;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3373:/ locexp");
-   meltgc_append_list((melt_ptr_t)((/*~ISTMTLIS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.OBMY__V10*/ curfptr[9]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3371:/ clear");
-   /*clear*/ /*_.OBMY__V10*/ curfptr[9] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3375:/ cond");
-  /*cond*/ if (/*_.OBVA__V8*/ curfptr[7]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3375:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3375:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3375:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPVAR*/ curfclos->tabval[3])), (/*_#BINDRK__L1*/ curfnum[0]), (melt_ptr_t)(/*_.OBVA__V8*/ curfptr[7]));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3364:/ clear");
-  /*clear*/ /*_.BDER__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3364:/ clear");
-  /*clear*/ /*_.CTY__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3364:/ clear");
-  /*clear*/ /*_.NEXP__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3364:/ clear");
-  /*clear*/ /*_.OBVA__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3364:/ clear");
-  /*clear*/ /*_.OBNX__V9*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3361:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_110_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_111_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3380:/ getarg");
- /*_.SLOVAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3380:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#SLORK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3380:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3382:/ cond");
- /*cond*/ if (/*_.SLOVAL__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:3382:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:3382:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3384:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3384:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3384:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-     /*_.SLOBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.SLOVAL__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3387:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3387:/ block");
-     /*block*/{
-      /*_#IS_A__L2*/ curfnum[1] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.SLOBJ__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[1])));;
-      /*_#NOT__L3*/ curfnum[2] = 
-       (!(/*_#IS_A__L2*/ curfnum[1]));;
-      MELT_LOCATION("warmelt-genobj.melt:3387:/ cond");
-      /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:3387:/ cond.then");
-      /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:3387:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:3387:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-genobj.melt:3387:/ locexp");
-         melt_assert_failed(( "compil_data_and_slots_fill check slobj not nrep"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3387)?(3387):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3387:/ clear");
-      /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3387:/ clear");
-      /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3387:/ clear");
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3387:/ cppif.else");
-    /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3388:/ block");
-    /*block*/{
-     /*_.OOFF__V6*/ curfptr[4] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#SLORK__L1*/ curfnum[0])));;
-     MELT_LOCATION("warmelt-genobj.melt:3391:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3391:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[3])), (5), "CLASS_OBJPUTSLOT");/*_.INST__V8*/ curfptr[7] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3391:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3391:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OSLOT_ODATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), ((/*~OBJ*/ curfclos->tabval[2])), "OSLOT_ODATA");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3391:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OSLOT_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), (/*_.OOFF__V6*/ curfptr[4]), "OSLOT_OFFSET");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3391:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OSLOT_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (4), (/*_.SLOBJ__V3*/ curfptr[2]), "OSLOT_VALUE");
-      ;
-      /*_.OPUT__V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3398:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~ISTMTLIS*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OPUT__V7*/ curfptr[6]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3388:/ clear");
-     /*clear*/ /*_.OOFF__V6*/ curfptr[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3388:/ clear");
-     /*clear*/ /*_.OPUT__V7*/ curfptr[6] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3384:/ clear");
-    /*clear*/ /*_.SLOBJ__V3*/ curfptr[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3384:/ clear");
-    /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_111_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_112_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3409:/ getarg");
- /*_.OBVA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3409:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3409:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3410:/ cond");
- /*cond*/ if (/*_.OBVA__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:3410:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:3410:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3413:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3413:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])), (2), "CLASS_OBJCLEAR");/*_.INST__V4*/ curfptr[3] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3413:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3413:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V4*/ curfptr[3])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V4*/ curfptr[3]), (1), (/*_.OBVA__V2*/ curfptr[1]), "OCLR_VLOC");
-    ;
-    /*_.INST___V3*/ curfptr[2] = /*_.INST__V4*/ curfptr[3];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3412:/ locexp");
-   meltgc_append_list((melt_ptr_t)((/*~IBODYLIS*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.INST___V3*/ curfptr[2]));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3411:/ block");
-   /*block*/{}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3410:/ clear");
-   /*clear*/ /*_.INST___V3*/ curfptr[2] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_112_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3431:/ getarg");
- /*_.DLOCBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3431:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3431:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3432:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3432:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3432:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3432:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3432:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3432:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3432:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3432)?(3432):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3432:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3432:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3432:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3433:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3433:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3433:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3433:/ apply.arg");
-    argtab[0].bp_cstring =  "dispose_dlocbind_after_data_and_slots_fill dlocbind";
-    MELT_LOCATION("warmelt-genobj.melt:3433:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3433:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3433:/ apply.arg");
-    argtab[3].bp_long = 3433;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DLOCBIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3433:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3433:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3433:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3436:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3436:/ newclosure");
-   /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] =
-   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1));
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3436:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-  ;
-  /*_.LAMBDA___V8*/ curfptr[6] = /*_.LAMBDA___V9*/ curfptr[8];;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3434:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:3434:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V8*/ curfptr[6];
-  /*_.MULTIPLE_EVERY__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DLOCBIND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:3431:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V10*/ curfptr[9];;
-  MELT_LOCATION("warmelt-genobj.melt:3431:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3431:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3431:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3431:/ clear");
- /*clear*/ /*_.LAMBDA___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3431:/ clear");
- /*clear*/ /*_.MULTIPLE_EVERY__V10*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_114_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3436:/ getarg");
- /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3436:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3436:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3436:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:3436:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_BND_OBJ*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:3436:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:3436:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3436:/ clear");
- /*clear*/ /*_.DISPOSE_BND_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_114_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 39
-  void* varptr[39];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<39; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 39;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATASYMBOL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3439:/ getarg");
- /*_.SYV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3439:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3439:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3440:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3440:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3440:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3440:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3440:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3440:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3440:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3440)?(3440):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3440:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3440:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3440:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3441:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3441:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3441:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3441:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3441:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3441:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3441:/ locexp");
-      melt_assert_failed(( "check syv"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3441)?(3441):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3441:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3441:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3441:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3442:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3442:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3442:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3442:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_datasymbol syv";
-    MELT_LOCATION("warmelt-genobj.melt:3442:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3442:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3442:/ apply.arg");
-    argtab[3].bp_long = 3442;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3442:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3442:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3442:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3443:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.CHOBJ__V12*/ curfptr[11] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.SYV__V2*/ curfptr[1]));;
-  MELT_LOCATION("warmelt-genobj.melt:3445:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V13*/ curfptr[12] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3448:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3448:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3448:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3448:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3448:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3448:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3448:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3448)?(3448):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3448:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3448:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3448:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3449:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V12*/ curfptr[11]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3449:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3449:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3451:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3451:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3451:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3451:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_datasymbol found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3451:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3451:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3451:/ apply.arg");
-       argtab[3].bp_long = 3451;
-       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3451:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3451:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3451:/ cppif.else");
-    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3452:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V12*/ curfptr[11];;
-     MELT_LOCATION("warmelt-genobj.melt:3452:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3450:/ block");
-    /*block*/{
-     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3449:/ clear");
-    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3449:/ clear");
-    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3449:/ clear");
-    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3449:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3453:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3454:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDATA_DISCRX__V22*/ curfptr[17] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3454:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3454:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.ODISCR__V23*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NDATA_DISCRX__V22*/ curfptr[17]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3456:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3456:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[5])), (6), "CLASS_OBJINITOBJECT");/*_.INST__V25*/ curfptr[24] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3456:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[6])), "OBV_TYPE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3456:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.SYV__V2*/ curfptr[1]), "OIE_DATA");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3456:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (3), (/*_.ODISCR__V23*/ curfptr[19]), "OIE_DISCR");
-    ;
-    /*_.OBSYM__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3462:/ locexp");
-   meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.SYV__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]));}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3463:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3463:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3463:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3463:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_datasymbol inirout";
-      MELT_LOCATION("warmelt-genobj.melt:3463:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:3463:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3463:/ apply.arg");
-      argtab[3].bp_long = 3463;
-      /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3463:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3463:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3463:/ cppif.else");
-   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:3465:/ block");
-   /*block*/{
-    /*_.NAMBUF__V28*/ curfptr[26] = 
-     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[7])), (char*)0);;
-    MELT_LOCATION("warmelt-genobj.melt:3466:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.NDATA_RANK__V29*/ curfptr[28] = slot; };
-    ;
-    /*_#SYRK__L7*/ curfnum[0] = 
-     (melt_get_int((melt_ptr_t)(/*_.NDATA_RANK__V29*/ curfptr[28])));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3468:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), ( "dsym_"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3469:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), (/*_#SYRK__L7*/ curfnum[0]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3470:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]), ( "__"));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3471:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 9, "NDSY_NAMESTR");/*_.NDSY_NAMESTR__V30*/ curfptr[29] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3471:/ locexp");
-    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]),
-  melt_string_str((melt_ptr_t)(/*_.NDSY_NAMESTR__V30*/ curfptr[29])));}
-    ;
-    /*_.STRBUF2STRING__V31*/ curfptr[30] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V28*/ curfptr[26]))));;
-    MELT_LOCATION("warmelt-genobj.melt:3472:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3472:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.OBSYM__V24*/ curfptr[23]), (1), (/*_.STRBUF2STRING__V31*/ curfptr[30]), "OIE_CNAME");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3472:/ touch");
-     meltgc_touch(/*_.OBSYM__V24*/ curfptr[23]);
-     ;
-     /*epilog*/}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
-    /*clear*/ /*_.NAMBUF__V28*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
-    /*clear*/ /*_.NDATA_RANK__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
-    /*clear*/ /*_#SYRK__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
-    /*clear*/ /*_.NDSY_NAMESTR__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3465:/ clear");
-    /*clear*/ /*_.STRBUF2STRING__V31*/ curfptr[30] = 0 ;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3475:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.NINST_SLOTS__V32*/ curfptr[26] = slot; };
-   ;
-   /*_#MULTIPLE_LENGTH__L8*/ curfnum[0] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.NINST_SLOTS__V32*/ curfptr[26])));;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3475:/ locexp");
-   melt_put_int((melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[0]));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3478:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3478:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3478:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OBSYM__V24*/ curfptr[23];
-     MELT_LOCATION("warmelt-genobj.melt:3478:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ODISCR__V23*/ curfptr[19];
-     MELT_LOCATION("warmelt-genobj.melt:3478:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.INIROUT__V13*/ curfptr[12];
-     MELT_LOCATION("warmelt-genobj.melt:3478:/ apply.arg");
-     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     /*_.DLOCBIND__V34*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!COMPIL_DATA_AND_SLOTS_FILL*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SYV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3479:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3479:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3479:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3479:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_datasymbol dlocbind";
-       MELT_LOCATION("warmelt-genobj.melt:3479:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-       MELT_LOCATION("warmelt-genobj.melt:3479:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3479:/ apply.arg");
-       argtab[3].bp_long = 3479;
-       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DLOCBIND__V34*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V35*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3479:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3479:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3479:/ cppif.else");
-    /*_.IFCPP___V35*/ curfptr[30] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V33*/ curfptr[28] = /*_.IFCPP___V35*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3478:/ clear");
-    /*clear*/ /*_.DLOCBIND__V34*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3478:/ clear");
-    /*clear*/ /*_.IFCPP___V35*/ curfptr[30] = 0 ;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3482:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3482:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3482:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3482:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_datasymbol obsym final";
-      MELT_LOCATION("warmelt-genobj.melt:3482:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-      MELT_LOCATION("warmelt-genobj.melt:3482:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3482:/ apply.arg");
-      argtab[3].bp_long = 3482;
-      /*_.DEBUG_MSG_FUN__V38*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBSYM__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3482:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3482:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3482:/ cppif.else");
-   /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:3483:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.OBSYM__V24*/ curfptr[23];;
-    MELT_LOCATION("warmelt-genobj.melt:3483:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V21*/ curfptr[16] = /*_.RETURN___V39*/ curfptr[30];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.NDATA_DISCRX__V22*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.ODISCR__V23*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.OBSYM__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.NINST_SLOTS__V32*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.LET___V33*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3453:/ clear");
-   /*clear*/ /*_.RETURN___V39*/ curfptr[30] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
-  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
-  /*clear*/ /*_.CHOBJ__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
-  /*clear*/ /*_.INIROUT__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3443:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3439:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3439:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3439:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3439:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3439:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3439:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATASYMBOL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 59
-  void* varptr[59];
-#define CURFRAM_NBVARNUM 16
-  long varnum[16];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<59; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 59;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATAINSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3490:/ getarg");
- /*_.DAI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3490:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3490:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3491:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3491:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3491:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3491:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3491:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3491:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3491:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3491)?(3491):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3491:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3491:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3491:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3493:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3493:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3493:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3493:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_datainstance dai";
-    MELT_LOCATION("warmelt-genobj.melt:3493:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3493:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3493:/ apply.arg");
-    argtab[3].bp_long = 3493;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3493:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3493:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3493:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3494:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V9*/ curfptr[8] = slot; };
-  ;
-  /*_.CHOBJ__V10*/ curfptr[9] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V9*/ curfptr[8]), (meltobject_ptr_t)(/*_.DAI__V2*/ curfptr[1]));;
-  MELT_LOCATION("warmelt-genobj.melt:3496:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V11*/ curfptr[10] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3499:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3499:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-genobj.melt:3499:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3499:/ cond.then");
-    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3499:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3499:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3499:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3499)?(3499):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3499:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3499:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3499:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3500:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V10*/ curfptr[9]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3500:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3500:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3502:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3502:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3502:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3502:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_datainstance return found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3502:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3502:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3502:/ apply.arg");
-       argtab[3].bp_long = 3502;
-       /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CHOBJ__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3502:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3502:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3502:/ cppif.else");
-    /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3503:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V10*/ curfptr[9];;
-     MELT_LOCATION("warmelt-genobj.melt:3503:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3501:/ block");
-    /*block*/{
-     /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[15];;}
-    ;
-    /*_.IF___V14*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3500:/ clear");
-    /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3500:/ clear");
-    /*clear*/ /*_.RETURN___V17*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3500:/ clear");
-    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3500:/ cond.else");
-  
-   /*_.IF___V14*/ curfptr[12] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3504:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.LOC__V20*/ curfptr[15] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3505:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V21*/ curfptr[17] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3507:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V22*/ curfptr[21] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3508:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V23*/ curfptr[22] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3509:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 7, "NINST_HASH");/*_.DHASH__V24*/ curfptr[23] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3510:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 6, "NINST_PREDEF");/*_.DPREDEF__V25*/ curfptr[24] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3511:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.DSLOTS__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3512:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), 2, "NINIT_TOPL");/*_.ININSL__V27*/ curfptr[26] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3513:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V11*/ curfptr[10]), 11, "OIROUT_FILL");/*_.INIFILL__V28*/ curfptr[27] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3517:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3517:/ block");
-    /*block*/{
-     /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.DRANK__V23*/ curfptr[22])) == OBMAG_INT);;
-     MELT_LOCATION("warmelt-genobj.melt:3517:/ cond");
-     /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3517:/ cond.then");
-     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3517:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:3517:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3517:/ locexp");
-        melt_assert_failed(( "compilobj_datainstance check drank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3517)?(3517):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[28] = /*_.IFELSE___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3517:/ clear");
-     /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3517:/ clear");
-     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3517:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3520:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3520:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3520:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3520:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_datainstance loc before cdisx";
-      MELT_LOCATION("warmelt-genobj.melt:3520:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:3520:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3520:/ apply.arg");
-      argtab[3].bp_long = 3520;
-      /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3520:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3520:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3520:/ cppif.else");
-   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:3521:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3521:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3521:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     /*_.CDISX__V34*/ curfptr[33] = meltgc_send((melt_ptr_t)(/*_.DISX__V22*/ curfptr[21]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3523:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3523:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3523:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3523:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_datainstance loc after cdisx";
-       MELT_LOCATION("warmelt-genobj.melt:3523:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3523:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3523:/ apply.arg");
-       argtab[3].bp_long = 3523;
-       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3523:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3523:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3523:/ cppif.else");
-    /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3525:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3527:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3527:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[4])), (6), "CLASS_OBJINITOBJECT");/*_.INST__V39*/ curfptr[38] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3527:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[5])), "OBV_TYPE");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3527:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.DAI__V2*/ curfptr[1]), "OIE_DATA");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3527:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.CDISX__V34*/ curfptr[33]), "OIE_DISCR");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3527:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIO_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (5), (/*_.DPREDEF__V25*/ curfptr[24]), "OIO_PREDEF");
-      ;
-      /*_.OINI__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
-     ;
-     /*_.NAMBUF__V40*/ curfptr[39] = 
-      meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[6])), (char*)0);;
-     /*_#DRK__L8*/ curfnum[0] = 
-      (melt_get_int((melt_ptr_t)(/*_.DRANK__V23*/ curfptr[22])));;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3536:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V9*/ curfptr[8]), 
-			   (meltobject_ptr_t) (/*_.DAI__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3537:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3537:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3537:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3537:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_datainstance loc after put compicache";
-        MELT_LOCATION("warmelt-genobj.melt:3537:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-        MELT_LOCATION("warmelt-genobj.melt:3537:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3537:/ apply.arg");
-        argtab[3].bp_long = 3537;
-        /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3537:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3537:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3537:/ cppif.else");
-     /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3538:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), ( "dobj_"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3539:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), (/*_#DRK__L8*/ curfnum[0]));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3540:/ cond");
-     /*cond*/ if (/*_.NAM__V21*/ curfptr[17]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3540:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:3540:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3541:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]), ( "__"));}
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:3542:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V21*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ curfptr[41] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3542:/ locexp");
-       meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V43*/ curfptr[41])));}
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:3540:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3540:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V43*/ curfptr[41] = 0 ;}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3543:/ block");
-     /*block*/{
-      /*_.CNAM__V45*/ curfptr[44] = 
-       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V40*/ curfptr[39]))));;
-      MELT_LOCATION("warmelt-genobj.melt:3544:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:3544:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OINI__V38*/ curfptr[37])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.OINI__V38*/ curfptr[37]), (1), (/*_.CNAM__V45*/ curfptr[44]), "OIE_CNAME");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:3544:/ touch");
-       meltgc_touch(/*_.OINI__V38*/ curfptr[37]);
-       ;
-       /*epilog*/}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:3545:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:3545:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:3545:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:3545:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_datainstance cnam";
-         MELT_LOCATION("warmelt-genobj.melt:3545:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-         MELT_LOCATION("warmelt-genobj.melt:3545:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:3545:/ apply.arg");
-         argtab[3].bp_long = 3545;
-         /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CNAM__V45*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:3545:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3545:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:3545:/ cppif.else");
-      /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.LET___V44*/ curfptr[41] = /*_.IFCPP___V46*/ curfptr[45];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3543:/ clear");
-      /*clear*/ /*_.CNAM__V45*/ curfptr[44] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3543:/ clear");
-      /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ;}
-     ;
-     /*_#MULTIPLE_LENGTH__L11*/ curfnum[8] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.DSLOTS__V26*/ curfptr[25])));;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3547:/ locexp");
-     melt_put_int((melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[8]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3549:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3549:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3549:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3549:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_datainstance oini before data&slots";
-        MELT_LOCATION("warmelt-genobj.melt:3549:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
-        MELT_LOCATION("warmelt-genobj.melt:3549:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3549:/ apply.arg");
-        argtab[3].bp_long = 3549;
-        /*_.DEBUG_MSG_FUN__V49*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[44];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3549:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3549:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[44] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3549:/ cppif.else");
-     /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3550:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3550:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3550:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3550:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_datainstance loc before data&slots";
-        MELT_LOCATION("warmelt-genobj.melt:3550:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
-        MELT_LOCATION("warmelt-genobj.melt:3550:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3550:/ apply.arg");
-        argtab[3].bp_long = 3550;
-        /*_.DEBUG_MSG_FUN__V51*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V50*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[44];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3550:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3550:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[44] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3550:/ cppif.else");
-     /*_.IFCPP___V50*/ curfptr[45] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:3551:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3551:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OINI__V38*/ curfptr[37];
-       MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CDISX__V34*/ curfptr[33];
-       MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.INIROUT__V11*/ curfptr[10];
-       MELT_LOCATION("warmelt-genobj.melt:3551:/ apply.arg");
-       argtab[3].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       /*_.DLOCBIND__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!COMPIL_DATA_AND_SLOTS_FILL*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.DAI__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:3552:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:3552:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:3552:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_datainstance dlocbind";
-         MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11];
-         MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:3552:/ apply.arg");
-         argtab[3].bp_long = 3552;
-         /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DLOCBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:3552:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3552:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:3552:/ cppif.else");
-      /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.LET___V52*/ curfptr[44] = /*_.IFCPP___V54*/ curfptr[53];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3551:/ clear");
-      /*clear*/ /*_.DLOCBIND__V53*/ curfptr[52] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3551:/ clear");
-      /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3555:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3555:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3555:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3555:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_datainstance loc after data&slots";
-        MELT_LOCATION("warmelt-genobj.melt:3555:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[11];
-        MELT_LOCATION("warmelt-genobj.melt:3555:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3555:/ apply.arg");
-        argtab[3].bp_long = 3555;
-        /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.LOC__V20*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[52];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3555:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3555:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3555:/ cppif.else");
-     /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3556:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3556:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3556:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3556:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_datainstance final oini";
-        MELT_LOCATION("warmelt-genobj.melt:3556:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[11];
-        MELT_LOCATION("warmelt-genobj.melt:3556:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3556:/ apply.arg");
-        argtab[3].bp_long = 3556;
-        /*_.DEBUG_MSG_FUN__V59*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OINI__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V58*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[52];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3556:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3556:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[52] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3556:/ cppif.else");
-     /*_.IFCPP___V58*/ curfptr[53] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V37*/ curfptr[35] = /*_.OINI__V38*/ curfptr[37];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.OINI__V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.NAMBUF__V40*/ curfptr[39] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_#DRK__L8*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.LET___V44*/ curfptr[41] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.IFCPP___V50*/ curfptr[45] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.LET___V52*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3525:/ clear");
-     /*clear*/ /*_.IFCPP___V58*/ curfptr[53] = 0 ;}
-    ;
-    /*_.LET___V33*/ curfptr[31] = /*_.LET___V37*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3521:/ clear");
-    /*clear*/ /*_.CDISX__V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3521:/ clear");
-    /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3521:/ clear");
-    /*clear*/ /*_.LET___V37*/ curfptr[35] = 0 ;}
-   ;
-   /*_.LET___V19*/ curfptr[14] = /*_.LET___V33*/ curfptr[31];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.LOC__V20*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.NAM__V21*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.DISX__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.DRANK__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.DHASH__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.DPREDEF__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.DSLOTS__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.ININSL__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.INIFILL__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3504:/ clear");
-   /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V19*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ clear");
-  /*clear*/ /*_.COMPICACHE__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ clear");
-  /*clear*/ /*_.CHOBJ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ clear");
-  /*clear*/ /*_.INIROUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ clear");
-  /*clear*/ /*_.IF___V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3494:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[14] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3490:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-genobj.melt:3490:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3490:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3490:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3490:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATAINSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 46
-  void* varptr[46];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<46; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 46;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATATUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3568:/ getarg");
- /*_.NTI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3568:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3568:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3569:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3569:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3569:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3569:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3569:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3569:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3569:/ locexp");
-      melt_assert_failed(( "check nti"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3569)?(3569):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3569:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3569:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3569:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3570:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3570:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3570:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3570:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3570:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3570:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3570:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3570)?(3570):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3570:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3570:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3570:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3572:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3572:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3572:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3572:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_datatuple nti";
-    MELT_LOCATION("warmelt-genobj.melt:3572:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3572:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3572:/ apply.arg");
-    argtab[3].bp_long = 3572;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3572:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3572:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3572:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3573:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.CHOBJ__V12*/ curfptr[11] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NTI__V2*/ curfptr[1]));;
-  MELT_LOCATION("warmelt-genobj.melt:3575:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V13*/ curfptr[12] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3578:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3578:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3578:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3578:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3578:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3578:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3578:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3578)?(3578):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3578:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3578:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3578:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3579:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V12*/ curfptr[11]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3579:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3579:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3581:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3581:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3581:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3581:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_datatuple found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3581:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3581:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3581:/ apply.arg");
-       argtab[3].bp_long = 3581;
-       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3581:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3581:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3581:/ cppif.else");
-    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3582:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V12*/ curfptr[11];;
-     MELT_LOCATION("warmelt-genobj.melt:3582:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3580:/ block");
-    /*block*/{
-     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3579:/ clear");
-    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3579:/ clear");
-    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3579:/ clear");
-    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3579:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3583:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 5, "NTUP_COMP");/*_.NCOMPI__V22*/ curfptr[17] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3586:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3586:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3586:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    /*_.LAMBDA___V23*/ curfptr[19] = /*_.LAMBDA___V24*/ curfptr[23];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3584:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3584:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[19];
-    /*_.OCOMPI__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3587:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3588:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V27*/ curfptr[26] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3589:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3589:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.ODISCR__V28*/ curfptr[27] = meltgc_send((melt_ptr_t)(/*_.DISX__V26*/ curfptr[25]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3590:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NTI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V29*/ curfptr[28] = slot; };
-   ;
-   /*_.NAMBUF__V30*/ curfptr[29] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
-   MELT_LOCATION("warmelt-genobj.melt:3592:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3592:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_10_VALTUP_*/ curfrout->tabval[10]);
-    /*_.LOCVAR__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#DRK__L6*/ curfnum[0] = 
-    (melt_get_int((melt_ptr_t)(/*_.DRANK__V27*/ curfptr[26])));;
-   MELT_LOCATION("warmelt-genobj.melt:3594:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V13*/ curfptr[12]), 3, "OBROUT_BODY");/*_.INIBODY__V32*/ curfptr[31] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3595:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)((/*!konst_11_INITUP_*/ curfrout->tabval[11])), 1, "NAMED_NAME");/*_.COMM__V33*/ curfptr[32] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3597:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), ( "dtup_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3598:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), (/*_#DRK__L6*/ curfnum[0]));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3599:/ cond");
-   /*cond*/ if (/*_.NAM__V29*/ curfptr[28]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3599:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3599:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3600:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]), ( "__"));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3601:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3601:/ locexp");
-     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33])));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3599:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3599:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3602:/ block");
-   /*block*/{
-    /*_.STRBUF2STRING__V36*/ curfptr[35] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[14])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V30*/ curfptr[29]))));;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3602:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[12])), (6), "CLASS_OBJINITMULTIPLE");/*_.INST__V38*/ curfptr[37] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3602:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "OBV_TYPE");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3602:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.ODISCR__V28*/ curfptr[27]), "OIE_DISCR");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3602:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (4), (/*_.LOCVAR__V31*/ curfptr[30]), "OIE_LOCVAR");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3602:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.STRBUF2STRING__V36*/ curfptr[35]), "OIE_CNAME");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3602:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIM_TUPVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (5), (/*_.OCOMPI__V25*/ curfptr[24]), "OIM_TUPVAL");
-     ;
-     /*_.OTUP__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3610:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.NTI__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]));}
-    ;
-    /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17])));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3611:/ locexp");
-    melt_put_int((melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3614:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3614:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (3));
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3614:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (melt_ptr_t)(/*_.OCOMPI__V25*/ curfptr[24]);
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3614:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[1] = (melt_ptr_t)(/*_.INIBODY__V32*/ curfptr[31]);
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3614:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[2] = (melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]);
-     ;
-     /*_.LAMBDA___V39*/ curfptr[38] = /*_.LAMBDA___V40*/ curfptr[39];;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3612:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3612:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[38];
-     /*_.MULTIPLE_EVERY__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.NCOMPI__V22*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3624:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3624:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[19])), (3), "CLASS_OBJTOUCH");/*_.INST__V43*/ curfptr[42] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3624:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.OTUP__V37*/ curfptr[36]), "OTOUCH_VAL");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3624:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.COMM__V33*/ curfptr[32]), "OTOUCH_COMMENT");
-     ;
-     /*_.INST___V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3623:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V32*/ curfptr[31]), (melt_ptr_t)(/*_.INST___V42*/ curfptr[41]));}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3627:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3627:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3627:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3627:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj datatuple otup";
-       MELT_LOCATION("warmelt-genobj.melt:3627:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-       MELT_LOCATION("warmelt-genobj.melt:3627:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3627:/ apply.arg");
-       argtab[3].bp_long = 3627;
-       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OTUP__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3627:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3627:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3627:/ cppif.else");
-    /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3628:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.OTUP__V37*/ curfptr[36];;
-     MELT_LOCATION("warmelt-genobj.melt:3628:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V35*/ curfptr[33] = /*_.RETURN___V46*/ curfptr[44];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.OTUP__V37*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.LAMBDA___V39*/ curfptr[38] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.INST___V42*/ curfptr[41] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3602:/ clear");
-    /*clear*/ /*_.RETURN___V46*/ curfptr[44] = 0 ;}
-   ;
-   /*_.LET___V21*/ curfptr[16] = /*_.LET___V35*/ curfptr[33];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.NCOMPI__V22*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.LAMBDA___V23*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.OCOMPI__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.DISX__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.DRANK__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.ODISCR__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.NAM__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.NAMBUF__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.LOCVAR__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.INIBODY__V32*/ curfptr[31] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.COMM__V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3583:/ clear");
-   /*clear*/ /*_.LET___V35*/ curfptr[33] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ clear");
-  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ clear");
-  /*clear*/ /*_.CHOBJ__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ clear");
-  /*clear*/ /*_.INIROUT__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3573:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3568:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3568:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3568:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3568:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3568:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3568:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATATUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_118_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_118_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3586:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3586:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3586:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3586:/ cond");
- /*cond*/ if (/*_.C__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:3586:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:3586:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3586:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3586:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-    /*_.COMPILE_OBJ__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IF___V3*/ curfptr[2] = /*_.COMPILE_OBJ__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3586:/ clear");
-   /*clear*/ /*_.COMPILE_OBJ__V4*/ curfptr[3] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:3586:/ cond.else");
- 
-  /*_.IF___V3*/ curfptr[2] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:3586:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:3586:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3586:/ clear");
- /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_118_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_119_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_119_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3614:/ getarg");
- /*_.SCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3614:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#SRK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3614:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3615:/ cond");
- /*cond*/ if (/*_.SCOMP__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:3615:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:3615:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3616:/ block");
-   /*block*/{
-    /*_.OCOMP__V3*/ curfptr[2] = 
-     (melt_multiple_nth((melt_ptr_t)((/*~OCOMPI*/ curfclos->tabval[0])), (/*_#SRK__L1*/ curfnum[0])));;
-    /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
-     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#SRK__L1*/ curfnum[0])));;
-    MELT_LOCATION("warmelt-genobj.melt:3618:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3618:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTUPLE*/ curfrout->tabval[0])), (4), "CLASS_OBJPUTUPLE");/*_.INST__V6*/ curfptr[5] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3618:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OPUTU_TUPLED", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), ((/*~OTUP*/ curfclos->tabval[2])), "OPUTU_TUPLED");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3618:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OPUTU_OFFSET", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ curfptr[3]), "OPUTU_OFFSET");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3618:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OPUTU_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (3), (/*_.OCOMP__V3*/ curfptr[2]), "OPUTU_VALUE");
-     ;
-     /*_.INST___V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3617:/ locexp");
-    meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.INST___V5*/ curfptr[4]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3616:/ clear");
-    /*clear*/ /*_.OCOMP__V3*/ curfptr[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3616:/ clear");
-    /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3616:/ clear");
-    /*clear*/ /*_.INST___V5*/ curfptr[4] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_119_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATASTRING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3639:/ getarg");
- /*_.NDS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3639:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3639:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3640:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3640:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3640:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3640:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3640:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3640:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3640:/ locexp");
-      melt_assert_failed(( "check nds"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3640)?(3640):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3640:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3640:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3640:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3641:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3641:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3641:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3641:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3641:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3641:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3641:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3641)?(3641):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3641:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3641:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3641:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3643:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3643:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3643:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3643:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_datastring nds";
-    MELT_LOCATION("warmelt-genobj.melt:3643:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3643:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3643:/ apply.arg");
-    argtab[3].bp_long = 3643;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3643:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3643:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3643:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3644:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3645:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
-  ;
-  /*_.CHOBJ__V13*/ curfptr[12] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NDS__V2*/ curfptr[1]));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3649:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3649:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3649:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3649:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3649:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3649:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3649:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3649)?(3649):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3649:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3649:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3649:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3650:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3650:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3650:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3652:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3652:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3652:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3652:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_datastring found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3652:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3652:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3652:/ apply.arg");
-       argtab[3].bp_long = 3652;
-       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3652:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3652:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3652:/ cppif.else");
-    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3653:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];;
-     MELT_LOCATION("warmelt-genobj.melt:3653:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3651:/ block");
-    /*block*/{
-     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3650:/ clear");
-    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3650:/ clear");
-    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3650:/ clear");
-    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3650:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3654:/ block");
-  /*block*/{
-   /*_.NAMBUF__V22*/ curfptr[17] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-   MELT_LOCATION("warmelt-genobj.melt:3656:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDISX__V23*/ curfptr[19] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3657:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3657:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.ODISCR__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NDISX__V23*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3658:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 5, "NSTR_STRING");/*_.ODATA__V25*/ curfptr[24] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3659:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3660:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDS__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3661:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3661:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_7_VALSTR_*/ curfrout->tabval[7]);
-    /*_.LOCVAR__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#DRK__L6*/ curfnum[0] = 
-    (melt_get_int((melt_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));;
-   MELT_LOCATION("warmelt-genobj.melt:3663:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3663:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITSTRING*/ curfrout->tabval[8])), (5), "CLASS_OBJINITSTRING");/*_.INST__V30*/ curfptr[29] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3663:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.ODATA__V25*/ curfptr[24]), "OIE_DATA");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3663:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.ODISCR__V24*/ curfptr[23]), "OIE_DISCR");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3663:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (4), (/*_.LOCVAR__V28*/ curfptr[27]), "OIE_LOCVAR");
-    ;
-    /*_.OSTR__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3669:/ locexp");
-   meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.NDS__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3670:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "dstr_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3671:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), (/*_#DRK__L6*/ curfnum[0]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3672:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3673:/ locexp");
-   meltgc_add_strbuf_cidentprefix((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), melt_string_str((melt_ptr_t)(/*_.ODATA__V25*/ curfptr[24])), (16));}
-   ;
-   /*_#STRING_LENGTH__L7*/ curfnum[6] = 
-    melt_string_length((melt_ptr_t)(/*_.ODATA__V25*/ curfptr[24]));;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3674:/ locexp");
-   melt_put_int((melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28]), (/*_#STRING_LENGTH__L7*/ curfnum[6]));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3675:/ cond");
-   /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3675:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3675:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3677:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3678:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3678:/ locexp");
-     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30])));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3676:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3675:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*_.STRBUF2STRING__V32*/ curfptr[30] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]))));;
-   MELT_LOCATION("warmelt-genobj.melt:3679:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3679:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.OSTR__V29*/ curfptr[28]), (1), (/*_.STRBUF2STRING__V32*/ curfptr[30]), "OIE_CNAME");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3679:/ touch");
-    meltgc_touch(/*_.OSTR__V29*/ curfptr[28]);
-    ;
-    /*epilog*/}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3680:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3680:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3680:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3680:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_datastring ostr";
-      MELT_LOCATION("warmelt-genobj.melt:3680:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-      MELT_LOCATION("warmelt-genobj.melt:3680:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3680:/ apply.arg");
-      argtab[3].bp_long = 3680;
-      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OSTR__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3680:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3680:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3680:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V21*/ curfptr[16] = /*_.OSTR__V29*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.NAMBUF__V22*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.NDISX__V23*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.ODISCR__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.ODATA__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.LOCVAR__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.OSTR__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_#STRING_LENGTH__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3654:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ clear");
-  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ clear");
-  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ clear");
-  /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3644:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3639:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3639:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3639:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3639:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3639:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3639:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATASTRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATABOXEDINTEGER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3687:/ getarg");
- /*_.NDI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3687:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3687:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3688:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3688:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATABOXEDINTEGER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3688:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3688:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3688:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3688:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3688:/ locexp");
-      melt_assert_failed(( "check ndi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3688)?(3688):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3688:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3688:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3688:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3689:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3689:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3689:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3689:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3689:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3689:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3689:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3689)?(3689):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3689:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3689:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3689:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3691:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3691:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3691:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3691:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_databoxedinteger ndi";
-    MELT_LOCATION("warmelt-genobj.melt:3691:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3691:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3691:/ apply.arg");
-    argtab[3].bp_long = 3691;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3691:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3691:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3691:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3692:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3693:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
-  ;
-  /*_.CHOBJ__V13*/ curfptr[12] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NDI__V2*/ curfptr[1]));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3697:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3697:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3697:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3697:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3697:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3697:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3697:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3697)?(3697):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3697:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3697:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3697:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3698:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3698:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3698:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3700:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3700:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3700:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3700:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_databoxedinteger found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3700:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3700:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3700:/ apply.arg");
-       argtab[3].bp_long = 3700;
-       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3700:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3700:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3700:/ cppif.else");
-    /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3701:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];;
-     MELT_LOCATION("warmelt-genobj.melt:3701:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3699:/ block");
-    /*block*/{
-     /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3698:/ clear");
-    /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3698:/ clear");
-    /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3698:/ clear");
-    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3698:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3702:/ block");
-  /*block*/{
-   /*_.NAMBUF__V22*/ curfptr[17] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-   MELT_LOCATION("warmelt-genobj.melt:3704:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.NDISX__V23*/ curfptr[19] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3705:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3705:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.ODISCR__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.NDISX__V23*/ curfptr[19]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3706:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 5, "NBOXINT_NUM");/*_.ODATA__V25*/ curfptr[24] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3707:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3708:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDI__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3709:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3709:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_7_VALBXINT_*/ curfrout->tabval[7]);
-    /*_.LOCVAR__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#DRK__L6*/ curfnum[0] = 
-    (melt_get_int((melt_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));;
-   MELT_LOCATION("warmelt-genobj.melt:3711:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3711:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITBOXINTEGER*/ curfrout->tabval[8])), (5), "CLASS_OBJINITBOXINTEGER");/*_.INST__V30*/ curfptr[29] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3711:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.ODATA__V25*/ curfptr[24]), "OIE_DATA");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3711:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.ODISCR__V24*/ curfptr[23]), "OIE_DISCR");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3711:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (4), (/*_.LOCVAR__V28*/ curfptr[27]), "OIE_LOCVAR");
-    ;
-    /*_.OINT__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3717:/ locexp");
-   meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.NDI__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OINT__V29*/ curfptr[28]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3718:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "dint_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3719:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), (/*_#DRK__L6*/ curfnum[0]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3720:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3721:/ locexp");
-   meltgc_add_strbuf_cidentprefix((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), melt_string_str((melt_ptr_t)(/*_.ODATA__V25*/ curfptr[24])), (16));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3722:/ cond");
-   /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3722:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3722:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3724:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]), ( "__"));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3725:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3725:/ locexp");
-     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30])));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3723:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3722:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*_.STRBUF2STRING__V32*/ curfptr[30] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V22*/ curfptr[17]))));;
-   MELT_LOCATION("warmelt-genobj.melt:3726:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3726:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.OINT__V29*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.OINT__V29*/ curfptr[28]), (1), (/*_.STRBUF2STRING__V32*/ curfptr[30]), "OIE_CNAME");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3726:/ touch");
-    meltgc_touch(/*_.OINT__V29*/ curfptr[28]);
-    ;
-    /*epilog*/}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3727:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3727:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:3727:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3727:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_databoxedinteger oint";
-      MELT_LOCATION("warmelt-genobj.melt:3727:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-      MELT_LOCATION("warmelt-genobj.melt:3727:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:3727:/ apply.arg");
-      argtab[3].bp_long = 3727;
-      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OINT__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3727:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3727:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3727:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V21*/ curfptr[16] = /*_.OINT__V29*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.NAMBUF__V22*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.NDISX__V23*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.ODISCR__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.ODATA__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.LOCVAR__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_#DRK__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.OINT__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V32*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3702:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V21*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ clear");
-  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ clear");
-  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ clear");
-  /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3692:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3687:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3687:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3687:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3687:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3687:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3687:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATABOXEDINTEGER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 59
-  void* varptr[59];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<59; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 59;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATACLOSURE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3735:/ getarg");
- /*_.NCL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3735:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3735:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3736:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3736:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3736:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3736:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3736:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3736:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3736:/ locexp");
-      melt_assert_failed(( "check ncl"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3736)?(3736):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3736:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3736:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3736:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3737:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3737:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3737:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3737:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3737:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3737:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3737:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3737)?(3737):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3737:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3737:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3737:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3739:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3739:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3739:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3739:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_dataclosure ncl";
-    MELT_LOCATION("warmelt-genobj.melt:3739:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3739:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3739:/ apply.arg");
-    argtab[3].bp_long = 3739;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3739:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3739:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3739:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3740:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3741:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3742:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), 3, "OBROUT_BODY");/*_.INIBODY__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.CHOBJ__V14*/ curfptr[13] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NCL__V2*/ curfptr[1]));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3745:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3745:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3745:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3745:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3745:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3745:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3745:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3745)?(3745):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3745:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3745:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3745:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3746:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V14*/ curfptr[13]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3746:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3746:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3748:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3748:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3748:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3748:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_dataclosure found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3748:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3748:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3748:/ apply.arg");
-       argtab[3].bp_long = 3748;
-       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3748:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3748:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3748:/ cppif.else");
-    /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3749:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V14*/ curfptr[13];;
-     MELT_LOCATION("warmelt-genobj.melt:3749:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3747:/ block");
-    /*block*/{
-     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[18];;}
-    ;
-    /*_.IF___V17*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3746:/ clear");
-    /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3746:/ clear");
-    /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3746:/ clear");
-    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3746:/ cond.else");
-  
-   /*_.IF___V17*/ curfptr[15] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3750:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3751:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V23*/ curfptr[18] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3752:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISCX__V24*/ curfptr[20] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3753:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.NRANK__V25*/ curfptr[24] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3754:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3755:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 5, "NDCLO_PROC");/*_.NPRO__V27*/ curfptr[26] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3756:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCL__V2*/ curfptr[1]), 6, "NDCLO_CLOSV");/*_.NCLOV__V28*/ curfptr[27] = slot; };
-   ;
-   /*_#NBCLOS__L6*/ curfnum[0] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.NCLOV__V28*/ curfptr[27])));;
-   /*_.NAMBUF__V29*/ curfptr[28] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-   MELT_LOCATION("warmelt-genobj.melt:3759:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3759:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.ODISCR__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.DISCX__V24*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3760:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3760:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_7_VALCLO_*/ curfrout->tabval[7]);
-    /*_.LOCVAR__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3761:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)((/*!konst_8_DATACLOSURE_*/ curfrout->tabval[8])), 1, "NAMED_NAME");/*_.COMM__V32*/ curfptr[31] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3763:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3763:/ block");
-    /*block*/{
-     /*_#IS_A__L7*/ curfnum[6] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[9])));;
-     MELT_LOCATION("warmelt-genobj.melt:3763:/ cond");
-     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3763:/ cond.then");
-     /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3763:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:3763:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3763:/ locexp");
-        melt_assert_failed(( "check npro"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3763)?(3763):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[32] = /*_.IFELSE___V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3763:/ clear");
-     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3763:/ clear");
-     /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3763:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3764:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), ( "dclo_"));}
-   ;
-   /*_#GET_INT__L8*/ curfnum[6] = 
-    (melt_get_int((melt_ptr_t)(/*_.NRANK__V25*/ curfptr[24])));;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:3765:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), (/*_#GET_INT__L8*/ curfnum[6]));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3766:/ cond");
-   /*cond*/ if (/*_.NAM__V23*/ curfptr[18]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3766:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3766:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3767:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]), ( "__"));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3768:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V23*/ curfptr[18]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[33] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3768:/ locexp");
-     meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[33])));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3766:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3766:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[33] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3770:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3771:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V27*/ curfptr[26]), 6, "NRPRO_DATAROUT");/*_.NDATAROU__V37*/ curfptr[36] = slot; };
-    ;
-    /*_.STRBUF2STRING__V38*/ curfptr[37] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[12])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V29*/ curfptr[28]))));;
-    MELT_LOCATION("warmelt-genobj.melt:3773:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3773:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[10])), (5), "CLASS_OBJINITCLOSURE");/*_.INST__V40*/ curfptr[39] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3773:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[11])), "OBV_TYPE");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3773:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (3), (/*_.ODISCR__V30*/ curfptr[29]), "OIE_DISCR");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3773:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NCL__V2*/ curfptr[1]), "OIE_DATA");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3773:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (4), (/*_.LOCVAR__V31*/ curfptr[30]), "OIE_LOCVAR");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3773:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.STRBUF2STRING__V38*/ curfptr[37]), "OIE_CNAME");
-     ;
-     /*_.OICLO__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3781:/ locexp");
-    melt_put_int((melt_ptr_t)(/*_.OICLO__V39*/ curfptr[38]), (/*_#NBCLOS__L6*/ curfnum[0]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3782:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.NCL__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OICLO__V39*/ curfptr[38]));}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3783:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3783:/ block");
-     /*block*/{
-      /*_#IS_A__L9*/ curfnum[8] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.NDATAROU__V37*/ curfptr[36]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[13])));;
-      MELT_LOCATION("warmelt-genobj.melt:3783:/ cond");
-      /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:3783:/ cond.then");
-      /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:3783:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:3783:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-genobj.melt:3783:/ locexp");
-         melt_assert_failed(( "check ndatarou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3783)?(3783):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V41*/ curfptr[40] = /*_.IFELSE___V42*/ curfptr[41];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3783:/ clear");
-      /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3783:/ clear");
-      /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3783:/ cppif.else");
-    /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3784:/ block");
-    /*block*/{
-     /*_.OCROUT__V44*/ curfptr[43] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NPRO__V27*/ curfptr[26]));;
-     MELT_LOCATION("warmelt-genobj.melt:3787:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3787:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-      /*_.ODATROUT__V45*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.NDATAROU__V37*/ curfptr[36]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3788:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3788:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ curfrout->tabval[14])), (3), "CLASS_OBJPUTCLOSUROUT");/*_.INST__V47*/ curfptr[46] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3788:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (0), (/*_.NLOC__V26*/ curfptr[25]), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3788:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OPCLOR_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.OICLO__V39*/ curfptr[38]), "OPCLOR_CLOS");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3788:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OPCLOR_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.ODATROUT__V45*/ curfptr[44]), "OPCLOR_ROUT");
-      ;
-      /*_.OCPUTROUT__V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;}
-     ;
-     /*_.BXOFF__V48*/ curfptr[47] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[15])), (0)));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3796:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3796:/ block");
-      /*block*/{
-       /*_#IS_A__L10*/ curfnum[8] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.OCROUT__V44*/ curfptr[43]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[16])));;
-       MELT_LOCATION("warmelt-genobj.melt:3796:/ cond");
-       /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:3796:/ cond.then");
-       /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:3796:/ cond.else");
-       
-        MELT_LOCATION("warmelt-genobj.melt:3796:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-genobj.melt:3796:/ locexp");
-          melt_assert_failed(( "check ocrout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3796)?(3796):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3796:/ clear");
-       /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3796:/ clear");
-       /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3796:/ cppif.else");
-     /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3797:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]), (melt_ptr_t)(/*_.OCPUTROUT__V46*/ curfptr[45]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3798:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3798:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3798:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3798:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_dataclosure nclov";
-        MELT_LOCATION("warmelt-genobj.melt:3798:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
-        MELT_LOCATION("warmelt-genobj.melt:3798:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3798:/ apply.arg");
-        argtab[3].bp_long = 3798;
-        /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NCLOV__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3798:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3798:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3798:/ cppif.else");
-     /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3799:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3799:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3799:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3799:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_dataclosure ocrout";
-        MELT_LOCATION("warmelt-genobj.melt:3799:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
-        MELT_LOCATION("warmelt-genobj.melt:3799:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3799:/ apply.arg");
-        argtab[3].bp_long = 3799;
-        /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCROUT__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V53*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3799:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3799:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3799:/ cppif.else");
-     /*_.IFCPP___V53*/ curfptr[51] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:3802:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3802:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V56*/ curfptr[55] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (5));
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3802:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3802:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V26*/ curfptr[25]);
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3802:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[2] = (melt_ptr_t)(/*_.OICLO__V39*/ curfptr[38]);
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3802:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[3] = (melt_ptr_t)(/*_.BXOFF__V48*/ curfptr[47]);
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3802:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V56*/ curfptr[55])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V56*/ curfptr[55])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V56*/ curfptr[55])->tabval[4] = (melt_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]);
-      ;
-      /*_.LAMBDA___V55*/ curfptr[53] = /*_.LAMBDA___V56*/ curfptr[55];;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3800:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3800:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V55*/ curfptr[53];
-      /*_.MULTIPLE_EVERY__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.NCLOV__V28*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3813:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3813:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[22])), (3), "CLASS_OBJTOUCH");/*_.INST__V59*/ curfptr[58] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3813:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.NLOC__V26*/ curfptr[25]), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3813:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.COMM__V32*/ curfptr[31]), "OTOUCH_COMMENT");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3813:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.OICLO__V39*/ curfptr[38]), "OTOUCH_VAL");
-      ;
-      /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3813:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V13*/ curfptr[12]), (melt_ptr_t)(/*_.INST___V58*/ curfptr[57]));}
-     ;
-     /*_.LET___V43*/ curfptr[41] = /*_.OICLO__V39*/ curfptr[38];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.OCROUT__V44*/ curfptr[43] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.ODATROUT__V45*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.OCPUTROUT__V46*/ curfptr[45] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.BXOFF__V48*/ curfptr[47] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.IFCPP___V53*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.LAMBDA___V55*/ curfptr[53] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.MULTIPLE_EVERY__V57*/ curfptr[56] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3784:/ clear");
-     /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ;}
-    ;
-    /*_.LET___V36*/ curfptr[33] = /*_.LET___V43*/ curfptr[41];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3770:/ clear");
-    /*clear*/ /*_.NDATAROU__V37*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3770:/ clear");
-    /*clear*/ /*_.STRBUF2STRING__V38*/ curfptr[37] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3770:/ clear");
-    /*clear*/ /*_.OICLO__V39*/ curfptr[38] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3770:/ clear");
-    /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3770:/ clear");
-    /*clear*/ /*_.LET___V43*/ curfptr[41] = 0 ;}
-   ;
-   /*_.LET___V22*/ curfptr[17] = /*_.LET___V36*/ curfptr[33];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.NAM__V23*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.DISCX__V24*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.NRANK__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.NLOC__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.NPRO__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.NCLOV__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_#NBCLOS__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.NAMBUF__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.ODISCR__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.LOCVAR__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.COMM__V32*/ curfptr[31] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3750:/ clear");
-   /*clear*/ /*_.LET___V36*/ curfptr[33] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.INIBODY__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.CHOBJ__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.IF___V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3740:/ clear");
-  /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3735:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3735:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3735:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3735:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3735:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3735:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATACLOSURE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_123_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_123_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3802:/ getarg");
- /*_.CLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3802:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3802:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:3803:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3803:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3803:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.CLOVAL__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#GET_INT__L2*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[3]))));;
-  /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#GET_INT__L2*/ curfnum[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:3804:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3804:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[1])), (4), "CLASS_OBJPUTCLOSEDV");/*_.INST__V6*/ curfptr[5] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3804:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3804:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OPCLOV_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (1), ((/*~OICLO*/ curfclos->tabval[2])), "OPCLOV_CLOS");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3804:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OPCLOV_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (2), (/*_.MAKE_INTEGERBOX__V4*/ curfptr[3]), "OPCLOV_OFF");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3804:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OPCLOV_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V6*/ curfptr[5])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V6*/ curfptr[5]), (3), (/*_.CLOVAL__V3*/ curfptr[2]), "OPCLOV_CVAL");
-   ;
-   /*_.OCPUTCLOS__V5*/ curfptr[4] = /*_.INST__V6*/ curfptr[5];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:3810:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.OCPUTCLOS__V5*/ curfptr[4]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3803:/ clear");
-  /*clear*/ /*_.CLOVAL__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3803:/ clear");
-  /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3803:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3803:/ clear");
-  /*clear*/ /*_.OCPUTCLOS__V5*/ curfptr[4] = 0 ;}
- ;
- /*_#GET_INT__L3*/ curfnum[1] = 
-  (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[3]))));;
- /*_#I__L4*/ curfnum[3] = 
-  ((/*_#GET_INT__L3*/ curfnum[1]) + (1));;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:3812:/ locexp");
- melt_put_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[3])), (/*_#I__L4*/ curfnum[3]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3802:/ clear");
- /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3802:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_123_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 61
-  void* varptr[61];
-#define CURFRAM_NBVARNUM 16
-  long varnum[16];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<61; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 61;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_DATAROUTINE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3826:/ getarg");
- /*_.NDROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3826:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3826:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3827:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3827:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3827:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3827:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3827:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3827:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3827:/ locexp");
-      melt_assert_failed(( "check ndrou"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3827)?(3827):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3827:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3827:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3827:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3828:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3828:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3828:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3828:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3828:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3828:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3828:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3828)?(3828):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3828:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3828:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3828:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3830:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3830:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3830:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3830:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_dataroutine+ ndrou";
-    MELT_LOCATION("warmelt-genobj.melt:3830:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3830:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3830:/ apply.arg");
-    argtab[3].bp_long = 3830;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3830:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3830:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3830:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3831:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 6, "GNCX_COMPICACHE");/*_.COMPICACHE__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3832:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 0, "GNCX_OBJROUT");/*_.INIROUT__V12*/ curfptr[11] = slot; };
-  ;
-  /*_.CHOBJ__V13*/ curfptr[12] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NDROU__V2*/ curfptr[1]));;
-  /*_.UNUSED_STUFF__V14*/ curfptr[13] = (/*nil*/NULL);;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3837:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3837:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:3837:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3837:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3837:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:3837:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:3837:/ locexp");
-       melt_assert_failed(( "check inirout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3837)?(3837):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3837:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3837:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3837:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3838:/ cond");
-  /*cond*/ if (/*_.CHOBJ__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3838:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3838:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3840:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3840:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:3840:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3840:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_dataroutine+ found chobj";
-       MELT_LOCATION("warmelt-genobj.melt:3840:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-genobj.melt:3840:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:3840:/ apply.arg");
-       argtab[3].bp_long = 3840;
-       /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CHOBJ__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3840:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3840:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3840:/ cppif.else");
-    /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3841:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.CHOBJ__V13*/ curfptr[12];;
-     MELT_LOCATION("warmelt-genobj.melt:3841:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3839:/ block");
-    /*block*/{
-     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[18];;}
-    ;
-    /*_.IF___V17*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3838:/ clear");
-    /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3838:/ clear");
-    /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3838:/ clear");
-    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3838:/ cond.else");
-  
-   /*_.IF___V17*/ curfptr[15] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3842:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V23*/ curfptr[18] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3843:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 2, "NDATA_DISCRX");/*_.DISX__V24*/ curfptr[20] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3844:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V25*/ curfptr[24] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3845:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 3, "NDATA_RANK");/*_.DRANK__V26*/ curfptr[25] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3846:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 1, "NDATA_NAME");/*_.NAM__V27*/ curfptr[26] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3847:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NDROU__V2*/ curfptr[1]), 5, "NDROU_PROC");/*_.NPRO__V28*/ curfptr[27] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3848:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.INIROUT__V12*/ curfptr[11]), 3, "OBROUT_BODY");/*_.INIBODY__V29*/ curfptr[28] = slot; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:3849:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3849:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_5_VALROUT_*/ curfrout->tabval[5]);
-    /*_.LOCVAR__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#NULL__L6*/ curfnum[0] = 
-    ((/*_.NLOC__V25*/ curfptr[24]) == NULL);;
-   MELT_LOCATION("warmelt-genobj.melt:3851:/ cond");
-   /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3851:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3851:/ block");
-    /*block*/{
-     /*_#IS_A__L7*/ curfnum[6] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[6])));;
-     MELT_LOCATION("warmelt-genobj.melt:3852:/ cond");
-     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3852:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:3852:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:3853:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), 0, "NREP_LOC");/*_.NREP_LOC__V33*/ curfptr[32] = slot; };
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:3853:/ compute");
-       /*_.NLOC__V25*/ curfptr[24] = /*_.SETQ___V34*/ curfptr[33] = /*_.NREP_LOC__V33*/ curfptr[32];;
-       /*_.IF___V32*/ curfptr[31] = /*_.SETQ___V34*/ curfptr[33];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3852:/ clear");
-       /*clear*/ /*_.NREP_LOC__V33*/ curfptr[32] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3852:/ clear");
-       /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3852:/ cond.else");
-     
-      /*_.IF___V32*/ curfptr[31] = NULL;;
-      }
-     ;
-     /*_.IF___V31*/ curfptr[30] = /*_.IF___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3851:/ clear");
-     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3851:/ clear");
-     /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3851:/ cond.else");
-   
-    /*_.IF___V31*/ curfptr[30] = NULL;;
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:3854:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:3854:/ block");
-    /*block*/{
-     /*_#IS_MAPOBJECT__L8*/ curfnum[6] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10])) == OBMAG_MAPOBJECTS);;
-     MELT_LOCATION("warmelt-genobj.melt:3854:/ cond");
-     /*cond*/ if (/*_#IS_MAPOBJECT__L8*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3854:/ cond.then");
-     /*_.IFELSE___V36*/ curfptr[33] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3854:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:3854:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3854:/ locexp");
-        melt_assert_failed(( "check compicache"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3854)?(3854):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V36*/ curfptr[33] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V35*/ curfptr[32] = /*_.IFELSE___V36*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3854:/ clear");
-     /*clear*/ /*_#IS_MAPOBJECT__L8*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3854:/ clear");
-     /*clear*/ /*_.IFELSE___V36*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:3854:/ cppif.else");
-   /*_.IFCPP___V35*/ curfptr[32] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:3855:/ block");
-   /*block*/{
-    /*_.NAMBUF__V38*/ curfptr[33] = 
-     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[7])), (char*)0);;
-    /*_#DRK__L9*/ curfnum[6] = 
-     (melt_get_int((melt_ptr_t)(/*_.DRANK__V26*/ curfptr[25])));;
-    MELT_LOCATION("warmelt-genobj.melt:3858:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3858:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     /*_.ODISCR__V39*/ curfptr[38] = meltgc_send((melt_ptr_t)(/*_.DISX__V24*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[8])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3860:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), ( "drout_"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:3861:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), (/*_#DRK__L9*/ curfnum[6]));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3862:/ cond");
-    /*cond*/ if (/*_.NAM__V27*/ curfptr[26]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3862:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:3862:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3863:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]), ( "__"));}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3864:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3864:/ locexp");
-      meltgc_add_strbuf_cident((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39])));}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3862:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3862:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3866:/ block");
-    /*block*/{
-     /*_.STRBUF2STRING__V42*/ curfptr[41] = 
-      (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V38*/ curfptr[33]))));;
-     /*_.MAPOBJECT_GET__V43*/ curfptr[42] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.COMPICACHE__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.NPRO__V28*/ curfptr[27]));;
-     MELT_LOCATION("warmelt-genobj.melt:3868:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[9])), (6), "CLASS_OBJINITROUTINE");/*_.INST__V45*/ curfptr[44] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "OBV_TYPE");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIE_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (3), (/*_.ODISCR__V39*/ curfptr[38]), "OIE_DISCR");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIE_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.NDROU__V2*/ curfptr[1]), "OIE_DATA");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIE_LOCVAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (4), (/*_.LOCVAR__V30*/ curfptr[29]), "OIE_LOCVAR");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIE_CNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), (/*_.STRBUF2STRING__V42*/ curfptr[41]), "OIE_CNAME");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:3868:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OIR_PROCROUTINE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (5), (/*_.MAPOBJECT_GET__V43*/ curfptr[42]), "OIR_PROCROUTINE");
-      ;
-      /*_.OIROUT__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:3877:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.COMPICACHE__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.NDROU__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]));}
-     ;
-     /*_#IS_A__L10*/ curfnum[9] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[12])));;
-     MELT_LOCATION("warmelt-genobj.melt:3878:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3878:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:3878:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:3879:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), 5, "NRPRO_CONST");/*_.PCONSTL__V48*/ curfptr[47] = slot; };
-        ;
-        /*_#NBCONST__L11*/ curfnum[10] = 
-         (melt_list_length((melt_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47])));;
-        /*_.BXOFF__V49*/ curfptr[48] = 
-         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (0)));;
-        MELT_LOCATION("warmelt-genobj.melt:3882:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)((/*!konst_14_IROUTVAL_*/ curfrout->tabval[14])), 1, "NAMED_NAME");/*_.COMM__V50*/ curfptr[49] = slot; };
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:3884:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:3884:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
-           callcount;;
-          MELT_LOCATION("warmelt-genobj.melt:3884:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-genobj.melt:3884:/ apply.arg");
-           argtab[0].bp_cstring =  "compilobj_dataroutine pconstl";
-           MELT_LOCATION("warmelt-genobj.melt:3884:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
-           MELT_LOCATION("warmelt-genobj.melt:3884:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-           MELT_LOCATION("warmelt-genobj.melt:3884:/ apply.arg");
-           argtab[3].bp_long = 3884;
-           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:3884:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:3884:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:3884:/ cppif.else");
-        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3885:/ locexp");
-        melt_put_int((melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]), (/*_#NBCONST__L11*/ curfnum[10]));}
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:3888:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:3888:/ newclosure");
-          /*newclosure*/ /*_.LAMBDA___V54*/ curfptr[53] =
-          meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (5));
-         ;
-         MELT_LOCATION("warmelt-genobj.melt:3888:/ putclosedv");
-         /*putclosv*/
-         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
-         melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
-         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-         ;
-         MELT_LOCATION("warmelt-genobj.melt:3888:/ putclosedv");
-         /*putclosv*/
-         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
-         melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
-         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[1] = (melt_ptr_t)(/*_.BXOFF__V49*/ curfptr[48]);
-         ;
-         MELT_LOCATION("warmelt-genobj.melt:3888:/ putclosedv");
-         /*putclosv*/
-         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
-         melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
-         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[2] = (melt_ptr_t)(/*_.NLOC__V25*/ curfptr[24]);
-         ;
-         MELT_LOCATION("warmelt-genobj.melt:3888:/ putclosedv");
-         /*putclosv*/
-         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
-         melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
-         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[3] = (melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]);
-         ;
-         MELT_LOCATION("warmelt-genobj.melt:3888:/ putclosedv");
-         /*putclosv*/
-         melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V54*/ curfptr[53])) == OBMAG_CLOSURE);
-         melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V54*/ curfptr[53])));
-         ((meltclosure_ptr_t)/*_.LAMBDA___V54*/ curfptr[53])->tabval[4] = (melt_ptr_t)(/*_.INIBODY__V29*/ curfptr[28]);
-         ;
-         /*_.LAMBDA___V53*/ curfptr[51] = /*_.LAMBDA___V54*/ curfptr[53];;}
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:3886:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:3886:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V53*/ curfptr[51];
-         /*_.LIST_EVERY__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.PCONSTL__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#GET_INT__L13*/ curfnum[11] = 
-         (melt_get_int((melt_ptr_t)(/*_.BXOFF__V49*/ curfptr[48])));;
-        /*_#I__L14*/ curfnum[13] = 
-         ((/*_#GET_INT__L13*/ curfnum[11]) > (0));;
-        MELT_LOCATION("warmelt-genobj.melt:3938:/ cond");
-        /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:3938:/ cond.then");
-        MELT_LOCATION("warmelt-genobj.melt:3938:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:3939:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-genobj.melt:3939:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[26])), (3), "CLASS_OBJTOUCH");/*_.INST__V57*/ curfptr[56] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3939:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.NLOC__V25*/ curfptr[24]), "OBI_LOC");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3939:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.OIROUT__V44*/ curfptr[43]), "OTOUCH_VAL");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3939:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.COMM__V50*/ curfptr[49]), "OTOUCH_COMMENT");
-           ;
-           /*_.INST___V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;}
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-genobj.melt:3939:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.INIBODY__V29*/ curfptr[28]), (melt_ptr_t)(/*_.INST___V56*/ curfptr[55]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:3938:/ clear");
-          /*clear*/ /*_.INST___V56*/ curfptr[55] = 0 ;}
-         ;
-        } /*noelse*/
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:3944:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:3944:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
-           callcount;;
-          MELT_LOCATION("warmelt-genobj.melt:3944:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-genobj.melt:3944:/ apply.arg");
-           argtab[0].bp_cstring =  "compilobj_dataroutine here npro";
-           MELT_LOCATION("warmelt-genobj.melt:3944:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
-           MELT_LOCATION("warmelt-genobj.melt:3944:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-           MELT_LOCATION("warmelt-genobj.melt:3944:/ apply.arg");
-           argtab[3].bp_long = 3944;
-           /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRO__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V58*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:3944:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:3944:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:3944:/ cppif.else");
-        /*_.IFCPP___V58*/ curfptr[55] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:3945:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:3945:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
-           callcount;;
-          MELT_LOCATION("warmelt-genobj.melt:3945:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-genobj.melt:3945:/ apply.arg");
-           argtab[0].bp_cstring =  "compilobj_dataroutine here fresh oirout";
-           MELT_LOCATION("warmelt-genobj.melt:3945:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
-           MELT_LOCATION("warmelt-genobj.melt:3945:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-           MELT_LOCATION("warmelt-genobj.melt:3945:/ apply.arg");
-           argtab[3].bp_long = 3945;
-           /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OIROUT__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V60*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:3945:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:3945:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:3945:/ cppif.else");
-        /*_.IFCPP___V60*/ curfptr[58] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        /*_.LET___V47*/ curfptr[46] = /*_.OIROUT__V44*/ curfptr[43];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.PCONSTL__V48*/ curfptr[47] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_#NBCONST__L11*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.BXOFF__V49*/ curfptr[48] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.COMM__V50*/ curfptr[49] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.LAMBDA___V53*/ curfptr[51] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.LIST_EVERY__V55*/ curfptr[54] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_#GET_INT__L13*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.IFCPP___V58*/ curfptr[55] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3879:/ clear");
-        /*clear*/ /*_.IFCPP___V60*/ curfptr[58] = 0 ;}
-       ;
-       /*_.IF___V46*/ curfptr[45] = /*_.LET___V47*/ curfptr[46];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3878:/ clear");
-       /*clear*/ /*_.LET___V47*/ curfptr[46] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:3878:/ cond.else");
-     
-      /*_.IF___V46*/ curfptr[45] = NULL;;
-      }
-     ;
-     /*_.LET___V41*/ curfptr[39] = /*_.IF___V46*/ curfptr[45];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3866:/ clear");
-     /*clear*/ /*_.STRBUF2STRING__V42*/ curfptr[41] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3866:/ clear");
-     /*clear*/ /*_.MAPOBJECT_GET__V43*/ curfptr[42] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3866:/ clear");
-     /*clear*/ /*_.OIROUT__V44*/ curfptr[43] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3866:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3866:/ clear");
-     /*clear*/ /*_.IF___V46*/ curfptr[45] = 0 ;}
-    ;
-    /*_.LET___V37*/ curfptr[31] = /*_.LET___V41*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3855:/ clear");
-    /*clear*/ /*_.NAMBUF__V38*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3855:/ clear");
-    /*clear*/ /*_#DRK__L9*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3855:/ clear");
-    /*clear*/ /*_.ODISCR__V39*/ curfptr[38] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3855:/ clear");
-    /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;}
-   ;
-   /*_.LET___V22*/ curfptr[17] = /*_.LET___V37*/ curfptr[31];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.NAM__V23*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.DISX__V24*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.NLOC__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.DRANK__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.NPRO__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.INIBODY__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.LOCVAR__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.IF___V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.IFCPP___V35*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3842:/ clear");
-   /*clear*/ /*_.LET___V37*/ curfptr[31] = 0 ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.LET___V22*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.COMPICACHE__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.INIROUT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.CHOBJ__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.UNUSED_STUFF__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.IF___V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3831:/ clear");
-  /*clear*/ /*_.LET___V22*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3826:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3826:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3826:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3826:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3826:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3826:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_DATAROUTINE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_125_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_125_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 28
-  void* varptr[28];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<28; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 28;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3888:/ getarg");
- /*_.CONSTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3888:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3889:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3889:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3889:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3889:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_dataroutine constx";
-    MELT_LOCATION("warmelt-genobj.melt:3889:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3889:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3889:/ apply.arg");
-    argtab[3].bp_long = 3889;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3889:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3889:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3889:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#IS_A__L2*/ curfnum[0] = 
-  melt_is_instance_of((melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[1])));;
- MELT_LOCATION("warmelt-genobj.melt:3891:/ cond");
- /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:3891:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:3891:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3892:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:3892:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.CNSTBIND__V6*/ curfptr[5] = slot; };
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:3893:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:3893:/ block");
-     /*block*/{
-      /*_#IS_A__L3*/ curfnum[2] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])));;
-      MELT_LOCATION("warmelt-genobj.melt:3893:/ cond");
-      /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:3893:/ cond.then");
-      /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:3893:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:3893:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-genobj.melt:3893:/ locexp");
-         melt_assert_failed(( "compilobj_dataroutine check cnstbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3893)?(3893):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3893:/ clear");
-      /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3893:/ clear");
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:3893:/ cppif.else");
-    /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:3894:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3895:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:3895:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-      /*_.OCONSTX__V9*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_#OFF__L4*/ curfnum[2] = 
-      (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1]))));;
-     MELT_LOCATION("warmelt-genobj.melt:3898:/ cond");
-     /*cond*/ if (/*_.OCONSTX__V9*/ curfptr[7]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:3898:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:3898:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:3899:/ block");
-       /*block*/{
-        /*_#IS_A__L5*/ curfnum[4] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.CNSTBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[4])));;
-        MELT_LOCATION("warmelt-genobj.melt:3901:/ cond");
-        /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:3901:/ cond.then");
-        MELT_LOCATION("warmelt-genobj.melt:3901:/ block");
-         /*block*/{
-          /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = 
-           (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L4*/ curfnum[2])));;
-          MELT_LOCATION("warmelt-genobj.melt:3902:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-genobj.melt:3902:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ curfrout->tabval[5])), (4), "CLASS_OBJPUTROUTCONSTNOTNULL");/*_.INST__V13*/ curfptr[12] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3902:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3902:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3902:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.MAKE_INTEGERBOX__V11*/ curfptr[10]), "OPRCONST_OFF");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3902:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (3), (/*_.OCONSTX__V9*/ curfptr[7]), "OPRCONST_CVAL");
-           ;
-           /*_.INST___V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;}
-          ;
-          /*_.IPUT__V10*/ curfptr[9] = /*_.INST___V12*/ curfptr[11];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
-          /*clear*/ /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
-          /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-genobj.melt:3901:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:3901:/ block");
-         /*block*/{
-          /*_.MAKE_INTEGERBOX__V14*/ curfptr[10] = 
-           (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L4*/ curfnum[2])));;
-          MELT_LOCATION("warmelt-genobj.melt:3907:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-genobj.melt:3907:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[7])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V16*/ curfptr[15] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3907:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3907:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3907:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.MAKE_INTEGERBOX__V14*/ curfptr[10]), "OPRCONST_OFF");
-           ;
-           MELT_LOCATION("warmelt-genobj.melt:3907:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (3), (/*_.OCONSTX__V9*/ curfptr[7]), "OPRCONST_CVAL");
-           ;
-           /*_.INST___V15*/ curfptr[11] = /*_.INST__V16*/ curfptr[15];;}
-          ;
-          /*_.IPUT__V10*/ curfptr[9] = /*_.INST___V15*/ curfptr[11];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
-          /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ curfptr[10] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:3901:/ clear");
-          /*clear*/ /*_.INST___V15*/ curfptr[11] = 0 ;}
-         ;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3914:/ locexp");
-        meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.IPUT__V10*/ curfptr[9]));}
-        ;
-        /*_#I__L6*/ curfnum[5] = 
-         ((/*_#OFF__L4*/ curfnum[2]) + (1));;
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:3915:/ locexp");
-        melt_put_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1])), (/*_#I__L6*/ curfnum[5]));}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:3899:/ clear");
-        /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3899:/ clear");
-        /*clear*/ /*_.IPUT__V10*/ curfptr[9] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:3899:/ clear");
-        /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3894:/ clear");
-     /*clear*/ /*_.OCONSTX__V9*/ curfptr[7] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3894:/ clear");
-     /*clear*/ /*_#OFF__L4*/ curfnum[2] = 0 ;}
-    ;
-    /*_.IFELSE___V5*/ curfptr[3] = /*_.IFCPP___V7*/ curfptr[6];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3892:/ clear");
-    /*clear*/ /*_.CNSTBIND__V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3892:/ clear");
-    /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:3891:/ cond.else");
- 
-  MELT_LOCATION("warmelt-genobj.melt:3891:/ block");
-  /*block*/{
-   /*_#IS_A__L7*/ curfnum[4] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA*/ curfrout->tabval[8])));;
-   MELT_LOCATION("warmelt-genobj.melt:3917:/ cond");
-   /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3917:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:3917:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3918:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3918:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3918:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3918:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_dataroutine constx data";
-        MELT_LOCATION("warmelt-genobj.melt:3918:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-        MELT_LOCATION("warmelt-genobj.melt:3918:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3918:/ apply.arg");
-        argtab[3].bp_long = 3918;
-        /*_.DEBUG_MSG_FUN__V19*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V18*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[9];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3918:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3918:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[9] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3918:/ cppif.else");
-     /*_.IFCPP___V18*/ curfptr[11] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:3919:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:3920:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:3920:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-       /*_.OCONSTX__V20*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_#OFF__L9*/ curfnum[2] = 
-       (melt_get_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1]))));;
-      MELT_LOCATION("warmelt-genobj.melt:3923:/ cond");
-      /*cond*/ if (/*_.OCONSTX__V20*/ curfptr[7]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:3923:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:3923:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:3924:/ block");
-        /*block*/{
-         /*_.MAKE_INTEGERBOX__V21*/ curfptr[5] = 
-          (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[6])), (/*_#OFF__L9*/ curfnum[2])));;
-         MELT_LOCATION("warmelt-genobj.melt:3924:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:3924:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[7])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V23*/ curfptr[9] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:3924:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (0), ((/*~NLOC*/ curfclos->tabval[2])), "OBI_LOC");
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:3924:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (1), ((/*~OIROUT*/ curfclos->tabval[3])), "OPRCONST_ROUT");
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:3924:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (2), (/*_.MAKE_INTEGERBOX__V21*/ curfptr[5]), "OPRCONST_OFF");
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:3924:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[9])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V23*/ curfptr[9]), (3), (/*_.OCONSTX__V20*/ curfptr[7]), "OPRCONST_CVAL");
-          ;
-          /*_.IPUT__V22*/ curfptr[6] = /*_.INST__V23*/ curfptr[9];;}
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-genobj.melt:3929:/ locexp");
-         meltgc_append_list((melt_ptr_t)((/*~INIBODY*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.IPUT__V22*/ curfptr[6]));}
-         ;
-         /*_#I__L10*/ curfnum[5] = 
-          ((/*_#OFF__L9*/ curfnum[2]) + (1));;
-         
-         {
-         MELT_LOCATION("warmelt-genobj.melt:3930:/ locexp");
-         melt_put_int((melt_ptr_t)((/*~BXOFF*/ curfclos->tabval[1])), (/*_#I__L10*/ curfnum[5]));}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:3924:/ clear");
-         /*clear*/ /*_.MAKE_INTEGERBOX__V21*/ curfptr[5] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:3924:/ clear");
-         /*clear*/ /*_.IPUT__V22*/ curfptr[6] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:3924:/ clear");
-         /*clear*/ /*_#I__L10*/ curfnum[5] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:3919:/ clear");
-      /*clear*/ /*_.OCONSTX__V20*/ curfptr[7] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:3919:/ clear");
-      /*clear*/ /*_#OFF__L9*/ curfnum[2] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3917:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3917:/ clear");
-     /*clear*/ /*_.IFCPP___V18*/ curfptr[11] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3917:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3917:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3932:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3932:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:3932:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:3932:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_dataroutine unexpected constx";
-        MELT_LOCATION("warmelt-genobj.melt:3932:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5];
-        MELT_LOCATION("warmelt-genobj.melt:3932:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:3932:/ apply.arg");
-        argtab[3].bp_long = 3932;
-        /*_.DEBUG_MSG_FUN__V25*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V24*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[6];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3932:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:3932:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[6] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3932:/ cppif.else");
-     /*_.IFCPP___V24*/ curfptr[5] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:3933:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:3933:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:3933:/ cond");
-       /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:3933:/ cond.then");
-       /*_.IFELSE___V27*/ curfptr[11] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:3933:/ cond.else");
-       
-        MELT_LOCATION("warmelt-genobj.melt:3933:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-genobj.melt:3933:/ locexp");
-          melt_assert_failed(( "compilobj_dataroutine unexepected constx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3933)?(3933):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V27*/ curfptr[11] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V26*/ curfptr[7] = /*_.IFELSE___V27*/ curfptr[11];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:3933:/ clear");
-       /*clear*/ /*_.IFELSE___V27*/ curfptr[11] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:3933:/ cppif.else");
-     /*_.IFCPP___V26*/ curfptr[7] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:3931:/ block");
-     /*block*/{
-      /*_.PROGN___V28*/ curfptr[6] = /*_.IFCPP___V26*/ curfptr[7];;}
-     ;
-     /*_.IFELSE___V17*/ curfptr[10] = /*_.PROGN___V28*/ curfptr[6];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:3917:/ clear");
-     /*clear*/ /*_.IFCPP___V24*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3917:/ clear");
-     /*clear*/ /*_.IFCPP___V26*/ curfptr[7] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:3917:/ clear");
-     /*clear*/ /*_.PROGN___V28*/ curfptr[6] = 0 ;}
-    ;
-    }
-   ;
-   /*_.IFELSE___V5*/ curfptr[3] = /*_.IFELSE___V17*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3891:/ clear");
-   /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3891:/ clear");
-   /*clear*/ /*_.IFELSE___V17*/ curfptr[10] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:3888:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-genobj.melt:3888:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3888:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3888:/ clear");
- /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3888:/ clear");
- /*clear*/ /*_.IFELSE___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_125_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3953:/ getarg");
- /*_.QDCM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3953:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3953:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3954:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3954:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.QDCM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3954:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3954:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3954:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3954:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3954:/ locexp");
-      melt_assert_failed(( "check qdcm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3954)?(3954):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3954:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3954:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3954:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3955:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3955:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3955:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3955:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3955:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3955:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3955:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3955)?(3955):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3955:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3955:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3955:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3956:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3956:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3956:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3956:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_quasidata_current_module_environment_container qdcm";
-    MELT_LOCATION("warmelt-genobj.melt:3956:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3956:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3956:/ apply.arg");
-    argtab[3].bp_long = 3956;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.QDCM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3956:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3956:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3956:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3957:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3957:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 10, "IGNCX_CONTENVLOC");/*_.LOCBOX__V11*/ curfptr[10] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3959:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3959:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3959:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3959:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_quasidata_current_module_environment_container return locbox";
-     MELT_LOCATION("warmelt-genobj.melt:3959:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:3959:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3959:/ apply.arg");
-     argtab[3].bp_long = 3959;
-     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCBOX__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3959:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3959:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3959:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3960:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCBOX__V11*/ curfptr[10];;
-   MELT_LOCATION("warmelt-genobj.melt:3960:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V14*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3957:/ clear");
-  /*clear*/ /*_.LOCBOX__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3957:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3957:/ clear");
-  /*clear*/ /*_.RETURN___V14*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3953:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3953:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3953:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3953:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3953:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3953:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3965:/ getarg");
- /*_.QDPM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3965:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3965:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3966:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3966:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.QDPM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3966:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3966:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3966:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3966:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3966:/ locexp");
-      melt_assert_failed(( "check qdpm"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3966)?(3966):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3966:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3966:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3966:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3967:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3967:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3967:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3967:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3967:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3967:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3967:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3967)?(3967):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3967:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3967:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3967:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3968:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3968:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3968:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3968:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_quasidata_parent_module_environment qdpm";
-    MELT_LOCATION("warmelt-genobj.melt:3968:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3968:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3968:/ apply.arg");
-    argtab[3].bp_long = 3968;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.QDPM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3968:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3968:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3968:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3969:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3969:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 9, "IGNCX_PREVENVLOC");/*_.PREVENVLOC__V11*/ curfptr[10] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:3971:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:3971:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:3971:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:3971:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_quasidata_parent_module_environment return prevenvloc";
-     MELT_LOCATION("warmelt-genobj.melt:3971:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:3971:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:3971:/ apply.arg");
-     argtab[3].bp_long = 3971;
-     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PREVENVLOC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3971:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3971:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:3971:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:3972:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.PREVENVLOC__V11*/ curfptr[10];;
-   MELT_LOCATION("warmelt-genobj.melt:3972:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V14*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3969:/ clear");
-  /*clear*/ /*_.PREVENVLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3969:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3969:/ clear");
-  /*clear*/ /*_.RETURN___V14*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3965:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3965:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3965:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3965:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3965:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3965:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 41
-  void* varptr[41];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<41; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 41;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_STORE_PREDEFINED", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:3977:/ getarg");
- /*_.NSPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:3977:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:3977:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3978:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3978:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:3978:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3978:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3978:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3978:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3978:/ locexp");
-      melt_assert_failed(( "check nspr"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3978)?(3978):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3978:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3978:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3978:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3979:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3979:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:3979:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:3979:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:3979:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:3979:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:3979:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (3979)?(3979):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3979:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3979:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3979:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:3980:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:3980:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:3980:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:3980:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_store_predefined start nspr";
-    MELT_LOCATION("warmelt-genobj.melt:3980:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:3980:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:3980:/ apply.arg");
-    argtab[3].bp_long = 3980;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:3980:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:3980:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:3980:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:3981:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3982:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 1, "NSTPD_PREDEF");/*_.NPRED__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3983:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NSPR__V2*/ curfptr[1]), 2, "NSTPD_VALUE");/*_.NVAL__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:3984:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3984:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OVAL__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.NVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.RES__V15*/ curfptr[14] = (/*nil*/NULL);;
-  /*_#IS_A__L4*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-genobj.melt:3988:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:3988:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:3988:/ block");
-   /*block*/{
-    /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "MELT_STORE_PREDEF(")));;
-    MELT_LOCATION("warmelt-genobj.melt:3998:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:3998:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:3998:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:3998:/ cond.else");
-    
-     /*_.NAMED_NAME__V18*/ curfptr[17] = NULL;;
-     }
-    ;
-    /*_.MAKE_STRING__V19*/ curfptr[18] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), 
-			  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17]))));;
-    /*_.MAKE_STRINGCONST__V20*/ curfptr[19] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( ", (")));;
-    /*_.MAKE_STRINGCONST__V21*/ curfptr[20] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "))")));;
-    /*_.MAKE_TUPLE5__V22*/ curfptr[21] = 
-     (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V17*/ curfptr[16]),  
-		      (melt_ptr_t)(/*_.MAKE_STRING__V19*/ curfptr[18]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V20*/ curfptr[19]),  (melt_ptr_t)(/*_.OVAL__V14*/ curfptr[13]),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V21*/ curfptr[20])));;
-    MELT_LOCATION("warmelt-genobj.melt:3990:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:3990:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[5])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V24*/ curfptr[23] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3990:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:3990:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.MAKE_TUPLE5__V22*/ curfptr[21]), "OBCPT_EXPR");
-     ;
-     /*_.INST___V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:3989:/ compute");
-    /*_.RES__V15*/ curfptr[14] = /*_.SETQ___V25*/ curfptr[24] = /*_.INST___V23*/ curfptr[22];;
-    /*_.IFELSE___V16*/ curfptr[15] = /*_.SETQ___V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.MAKE_STRING__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.MAKE_STRINGCONST__V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.MAKE_STRINGCONST__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.MAKE_TUPLE5__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.INST___V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:3988:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:3988:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-genobj.melt:4004:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4004:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4004:/ block");
-     /*block*/{
-      /*_.MAKE_STRINGCONST__V27*/ curfptr[17] = 
-       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "melt_store_predefined(")));;
-      /*_.MAKE_STRINGCONST__V28*/ curfptr[18] = 
-       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( ", (")));;
-      /*_.MAKE_STRINGCONST__V29*/ curfptr[19] = 
-       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), ( "))")));;
-      /*_.MAKE_TUPLE5__V30*/ curfptr[20] = 
-       (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V27*/ curfptr[17]),  
-		      (melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V28*/ curfptr[18]),  (melt_ptr_t)(/*_.OVAL__V14*/ curfptr[13]),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V29*/ curfptr[19])));;
-      MELT_LOCATION("warmelt-genobj.melt:4006:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:4006:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[5])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V32*/ curfptr[22] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:4006:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[22])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V32*/ curfptr[22]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:4006:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[22])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V32*/ curfptr[22]), (2), (/*_.MAKE_TUPLE5__V30*/ curfptr[20]), "OBCPT_EXPR");
-       ;
-       /*_.INST___V31*/ curfptr[21] = /*_.INST__V32*/ curfptr[22];;}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4005:/ compute");
-      /*_.RES__V15*/ curfptr[14] = /*_.SETQ___V33*/ curfptr[24] = /*_.INST___V31*/ curfptr[21];;
-      /*_.IFELSE___V26*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.MAKE_STRINGCONST__V27*/ curfptr[17] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.MAKE_STRINGCONST__V28*/ curfptr[18] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.MAKE_STRINGCONST__V29*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.MAKE_TUPLE5__V30*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.INST___V31*/ curfptr[21] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.SETQ___V33*/ curfptr[24] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4004:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4004:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4020:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4020:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:4020:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:4020:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_store_predefined";
-         MELT_LOCATION("warmelt-genobj.melt:4020:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-         MELT_LOCATION("warmelt-genobj.melt:4020:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:4020:/ apply.arg");
-         argtab[3].bp_long = 4020;
-         /*_.DEBUG_MSG_FUN__V35*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NPRED__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V34*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[18];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4020:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4020:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[18] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4020:/ cppif.else");
-      /*_.IFCPP___V34*/ curfptr[17] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4021:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4021:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:4021:/ cond");
-        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4021:/ cond.then");
-        /*_.IFELSE___V37*/ curfptr[20] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4021:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:4021:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:4021:/ locexp");
-           melt_assert_failed(( "compilobj_nrep_store_predefined invalid npred"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4021)?(4021):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V37*/ curfptr[20] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V36*/ curfptr[19] = /*_.IFELSE___V37*/ curfptr[20];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4021:/ clear");
-        /*clear*/ /*_.IFELSE___V37*/ curfptr[20] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4021:/ cppif.else");
-      /*_.IFCPP___V36*/ curfptr[19] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-genobj.melt:4022:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-       MELT_LOCATION("warmelt-genobj.melt:4022:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4019:/ block");
-      /*block*/{
-       /*_.PROGN___V39*/ curfptr[24] = /*_.RETURN___V38*/ curfptr[21];;}
-      ;
-      /*_.IFELSE___V26*/ curfptr[16] = /*_.PROGN___V39*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.IFCPP___V34*/ curfptr[17] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.IFCPP___V36*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.RETURN___V38*/ curfptr[21] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4004:/ clear");
-      /*clear*/ /*_.PROGN___V39*/ curfptr[24] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V26*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:3988:/ clear");
-    /*clear*/ /*_.IFELSE___V26*/ curfptr[16] = 0 ;}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4024:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4024:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4024:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4024:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_store_predefined result res";
-     MELT_LOCATION("warmelt-genobj.melt:4024:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4024:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4024:/ apply.arg");
-     argtab[3].bp_long = 4024;
-     /*_.DEBUG_MSG_FUN__V41*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V40*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4024:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4024:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4024:/ cppif.else");
-  /*_.IFCPP___V40*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RES__V15*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.NPRED__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.NVAL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.OVAL__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.RES__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3981:/ clear");
-  /*clear*/ /*_.IFCPP___V40*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:3977:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:3977:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:3977:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3977:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3977:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:3977:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_STORE_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4032:/ getarg");
- /*_.NUCMEB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4032:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4032:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4033:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4033:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:4033:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4033:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4033:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4033:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4033:/ locexp");
-      melt_assert_failed(( "check nucmeb"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4033)?(4033):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4033:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4033:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4033:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4034:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4034:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIAL_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4034:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4034:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4034:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4034:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4034:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4034)?(4034):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4034:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4034:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4034:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4035:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4035:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4035:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4035:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_update_current_module_environment_container nucmeb";
-    MELT_LOCATION("warmelt-genobj.melt:4035:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4035:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4035:/ apply.arg");
-    argtab[3].bp_long = 4035;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4035:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4035:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4035:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4036:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4037:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 2, "NCUMEB_COMMENT");/*_.NCOMM__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4038:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NUCMEB__V2*/ curfptr[1]), 1, "NUCMEB_EXPR");/*_.NEX__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4039:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 11, "IGNCX_PROCURMODENVLIST");/*_.PCML__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4040:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 10, "IGNCX_CONTENVLOC");/*_.OCONTENVLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4041:/ block");
-  /*block*/{
-   /*_.SB__V17*/ curfptr[16] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4043:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V17*/ curfptr[16]), ( "upd.cur.mod.env.cont"));}
-   ;
-   /*_#IS_STRING__L4*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.NCOMM__V12*/ curfptr[11])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-genobj.melt:4044:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4044:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4044:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:4046:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V17*/ curfptr[16]), ( " : "));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:4047:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V17*/ curfptr[16]), melt_string_str((melt_ptr_t)(/*_.NCOMM__V12*/ curfptr[11])));}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4045:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   /*_.LET___V16*/ curfptr[15] = /*_.SB__V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4041:/ clear");
-   /*clear*/ /*_.SB__V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4041:/ clear");
-   /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;}
-  ;
-  /*_.CSBUF__V18*/ curfptr[16] = /*_.LET___V16*/ curfptr[15];;
-  /*_.OBODL__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.STRBUF2STRING__V20*/ curfptr[19] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[6])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V18*/ curfptr[16]))));;
-  MELT_LOCATION("warmelt-genobj.melt:4051:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4051:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[5])), (4), "CLASS_OBJCOMMENTEDBLOCK");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4051:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4051:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OBODL__V19*/ curfptr[18]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4051:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OCOMBLO_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.STRBUF2STRING__V20*/ curfptr[19]), "OCOMBLO_COMMENT");
-   ;
-   /*_.OCBLO__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4056:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4056:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OEX__V23*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.NEX__V13*/ curfptr[12]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4058:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4058:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4058:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4058:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box pcml";
-     MELT_LOCATION("warmelt-genobj.melt:4058:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4058:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4058:/ apply.arg");
-     argtab[3].bp_long = 4058;
-     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PCML__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4058:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4058:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4058:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4064:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4064:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V27*/ curfptr[26] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (5));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4064:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4064:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[1] = (melt_ptr_t)(/*_.NLOC__V11*/ curfptr[10]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4064:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[2] = (melt_ptr_t)(/*_.OEX__V23*/ curfptr[22]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4064:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[3] = (melt_ptr_t)(/*_.OCONTENVLOC__V15*/ curfptr[14]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4064:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[4] = (melt_ptr_t)(/*_.OBODL__V19*/ curfptr[18]);
-   ;
-   /*_.LAMBDA___V26*/ curfptr[24] = /*_.LAMBDA___V27*/ curfptr[26];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4062:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4062:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V26*/ curfptr[24];
-   /*_.LIST_EVERY__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.PCML__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4118:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4118:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4118:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4118:/ apply.arg");
-     argtab[0].bp_cstring =  "compobj.upd.mod.env.box result ocblo";
-     MELT_LOCATION("warmelt-genobj.melt:4118:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4118:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4118:/ apply.arg");
-     argtab[3].bp_long = 4118;
-     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OCBLO__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4118:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4118:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4118:/ cppif.else");
-  /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4119:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OCBLO__V21*/ curfptr[20];;
-   MELT_LOCATION("warmelt-genobj.melt:4119:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V31*/ curfptr[29];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.NCOMM__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.NEX__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.PCML__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.OCONTENVLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.CSBUF__V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.OBODL__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.STRBUF2STRING__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.OCBLO__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.OEX__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.LAMBDA___V26*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4036:/ clear");
-  /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4032:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:4032:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4032:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4032:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4032:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4032:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_130_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_130_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4064:/ getarg");
- /*_.CUROUT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4064:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4065:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4065:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4065:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4065:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box curout";
-    MELT_LOCATION("warmelt-genobj.melt:4065:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4065:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4065:/ apply.arg");
-    argtab[3].bp_long = 4065;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4065:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4065:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4065:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#IS_A__L2*/ curfnum[0] = 
-  melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[1])));;
- MELT_LOCATION("warmelt-genobj.melt:4066:/ cond");
- /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4066:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4066:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4067:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4068:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), 2, "OBROUT_PROC");/*_.CURPROC__V5*/ curfptr[3] = slot; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4069:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V5*/ curfptr[3]), 5, "NRPRO_CONST");/*_.CNSLIS__V6*/ curfptr[5] = slot; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4070:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V5*/ curfptr[3]), 6, "NRPRO_DATAROUT");/*_.DATAROUT__V7*/ curfptr[6] = slot; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4071:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4071:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-     /*_.ODATAROUT__V8*/ curfptr[7] = meltgc_send((melt_ptr_t)(/*_.DATAROUT__V7*/ curfptr[6]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.BOXCOUNT__V9*/ curfptr[8] = 
-     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (0)));;
-    MELT_LOCATION("warmelt-genobj.melt:4073:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), 4, "OIE_LOCVAR");/*_.OROUTLOCVAR__V10*/ curfptr[9] = slot; };
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4075:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4075:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4075:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4075:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box cnslis";
-       MELT_LOCATION("warmelt-genobj.melt:4075:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2];
-       MELT_LOCATION("warmelt-genobj.melt:4075:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4075:/ apply.arg");
-       argtab[3].bp_long = 4075;
-       /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CNSLIS__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4075:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4075:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4075:/ cppif.else");
-    /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4076:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4076:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4076:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4076:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box odatarout";
-       MELT_LOCATION("warmelt-genobj.melt:4076:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[2];
-       MELT_LOCATION("warmelt-genobj.melt:4076:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4076:/ apply.arg");
-       argtab[3].bp_long = 4076;
-       /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4076:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4076:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4076:/ cppif.else");
-    /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4077:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4077:/ block");
-     /*block*/{
-      /*_#IS_A__L5*/ curfnum[2] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.ODATAROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-genobj.melt:4077:/ cond");
-      /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4077:/ cond.then");
-      /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4077:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:4077:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-genobj.melt:4077:/ locexp");
-         melt_assert_failed(( "check odatarout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4077)?(4077):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4077:/ clear");
-      /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4077:/ clear");
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4077:/ cppif.else");
-    /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4078:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4078:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[2] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4078:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box oroutlocvar";
-       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[2];
-       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4078:/ apply.arg");
-       argtab[3].bp_long = 4078;
-       /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OROUTLOCVAR__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4078:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[2] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4078:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4078:/ cppif.else");
-    /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:4081:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (6));
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8]);
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)((/*~NLOC*/ curfclos->tabval[1]));
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.OROUTLOCVAR__V10*/ curfptr[9]);
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[3] = (melt_ptr_t)((/*~OEX*/ curfclos->tabval[2]));
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[4] = (melt_ptr_t)((/*~OCONTENVLOC*/ curfclos->tabval[3]));
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[5] = (melt_ptr_t)((/*~OBODL*/ curfclos->tabval[4]));
-     ;
-     /*_.LAMBDA___V19*/ curfptr[17] = /*_.LAMBDA___V20*/ curfptr[19];;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4079:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4079:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[17];
-     /*_.LIST_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.CNSLIS__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#GET_INT__L7*/ curfnum[2] = 
-     (melt_get_int((melt_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8])));;
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#GET_INT__L7*/ curfnum[2]) + (1));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4116:/ locexp");
-    melt_put_int((melt_ptr_t)(/*_.BOXCOUNT__V9*/ curfptr[8]), (/*_#I__L8*/ curfnum[7]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.CURPROC__V5*/ curfptr[3] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.CNSLIS__V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.DATAROUT__V7*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.ODATAROUT__V8*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.BOXCOUNT__V9*/ curfptr[8] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.OROUTLOCVAR__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.LAMBDA___V19*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_#GET_INT__L7*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4067:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4064:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4064:/ clear");
- /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_130_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_131_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_131_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4081:/ getarg");
- /*_.CURCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4081:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4082:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4082:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4082:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4082:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj.upd.cur.mod.env.box curconst";
-    MELT_LOCATION("warmelt-genobj.melt:4082:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4082:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4082:/ apply.arg");
-    argtab[3].bp_long = 4082;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCONST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4082:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4082:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4082:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4083:/ block");
- /*block*/{
-  /*_#CURCOUNT__L2*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXCOUNT*/ curfclos->tabval[0]))));;
-  /*_#IS_A__L3*/ curfnum[2] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4086:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4086:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4086:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4089:/ block");
-    /*block*/{
-     /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#CURCOUNT__L2*/ curfnum[0])));;
-     MELT_LOCATION("warmelt-genobj.melt:4090:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4090:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[2])), (4), "CLASS_OBJPUTROUTCONST");/*_.INST__V7*/ curfptr[6] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4090:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4090:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OPRCONST_ROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (1), ((/*~OROUTLOCVAR*/ curfclos->tabval[2])), "OPRCONST_ROUT");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4090:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OPRCONST_OFF", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.MAKE_INTEGERBOX__V5*/ curfptr[3]), "OPRCONST_OFF");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4090:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OPRCONST_CVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (3), ((/*~OEX*/ curfclos->tabval[3])), "OPRCONST_CVAL");
-      ;
-      /*_.OPUTROUT__V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4096:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4096:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[4])), (3), "CLASS_OBJTOUCH");/*_.INST__V9*/ curfptr[8] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4096:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4096:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OTOUCH_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (1), ((/*~OROUTLOCVAR*/ curfclos->tabval[2])), "OTOUCH_VAL");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4096:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OTOUCH_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V9*/ curfptr[8])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V9*/ curfptr[8]), (2), ((/*!konst_5*/ curfrout->tabval[5])), "OTOUCH_COMMENT");
-      ;
-      /*_.OTOUCHROUT__V8*/ curfptr[7] = /*_.INST__V9*/ curfptr[8];;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4103:/ apply");
-     /*apply*/{
-      /*_.LIST1__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[7])), (melt_ptr_t)((/*~OCONTENVLOC*/ curfclos->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4101:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4101:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[6])), (3), "CLASS_OBJCOMPUTE");/*_.INST__V12*/ curfptr[11] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4101:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (0), ((/*~NLOC*/ curfclos->tabval[1])), "OBI_LOC");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4101:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (1), (/*_.LIST1__V10*/ curfptr[9]), "OBDI_DESTLIST");
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4101:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @OBCPT_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V12*/ curfptr[11]), (2), ((/*~OEX*/ curfclos->tabval[3])), "OBCPT_EXPR");
-      ;
-      /*_.OCOPY__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:4107:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:4107:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:4107:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:4107:/ apply.arg");
-        argtab[0].bp_cstring =  "compobj.upd.mod.env.box oputrout";
-        MELT_LOCATION("warmelt-genobj.melt:4107:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-        MELT_LOCATION("warmelt-genobj.melt:4107:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:4107:/ apply.arg");
-        argtab[3].bp_long = 4107;
-        /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OPUTROUT__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4107:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4107:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:4107:/ cppif.else");
-     /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:4108:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:4108:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:4108:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:4108:/ apply.arg");
-        argtab[0].bp_cstring =  "compobj.upd.mod.env.box otouchrout";
-        MELT_LOCATION("warmelt-genobj.melt:4108:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
-        MELT_LOCATION("warmelt-genobj.melt:4108:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:4108:/ apply.arg");
-        argtab[3].bp_long = 4108;
-        /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTOUCHROUT__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4108:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4108:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:4108:/ cppif.else");
-     /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:4109:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OPUTROUT__V6*/ curfptr[5]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:4110:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OTOUCHROUT__V8*/ curfptr[7]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:4111:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~OBODL*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.OCOPY__V11*/ curfptr[10]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.MAKE_INTEGERBOX__V5*/ curfptr[3] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.OPUTROUT__V6*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.OTOUCHROUT__V8*/ curfptr[7] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.LIST1__V10*/ curfptr[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.OCOPY__V11*/ curfptr[10] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4089:/ clear");
-     /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4083:/ clear");
-  /*clear*/ /*_#CURCOUNT__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4083:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4081:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_131_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_ANYTESTER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4171:/ getarg");
- /*_.NTESTER__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4171:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4171:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4171:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4172:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4172:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTESTER__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:4172:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4172:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4172:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4172:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4172:/ locexp");
-      melt_assert_failed(( "check ntester"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4172)?(4172):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4172:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4172:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4172:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4173:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4173:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4173:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4173:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4173:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4173:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4173:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4173)?(4173):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4173:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4173:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4174:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4174:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4174:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4174:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4174:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4174:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4174:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4174)?(4174):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4174:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4174:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4174:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4175:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4175:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4175:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4175:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_anytester ntester";
-    MELT_LOCATION("warmelt-genobj.melt:4175:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4175:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4175:/ apply.arg");
-    argtab[3].bp_long = 4175;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NTESTER__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4175:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4175:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4175:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:4176:/ locexp");
- melt_puts(stderr,( "* compiltst unimplemented reciever class "));}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4177:/ block");
- /*block*/{
-  /*_.DISCR__V13*/ curfptr[11] = 
-   (melt_discr((melt_ptr_t)(/*_.NTESTER__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4177:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V13*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4177:/ locexp");
-  melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4177:/ clear");
-  /*clear*/ /*_.DISCR__V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4177:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;}
- ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:4178:/ locexp");
- melt_newlineflush(stderr);}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4179:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4179:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4179:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4179:/ cond.then");
-   /*_.IFELSE___V16*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4179:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4179:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4179:/ locexp");
-      melt_assert_failed(( "@@compile_tester should be implemented in normtesters-s subclasses"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4179)?(4179):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V15*/ curfptr[11] = /*_.IFELSE___V16*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4179:/ clear");
-   /*clear*/ /*_.IFELSE___V16*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4179:/ cppif.else");
- /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4171:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V15*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:4171:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4171:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4171:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4171:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4171:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4171:/ clear");
- /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_ANYTESTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 146
-  void* varptr[146];
-#define CURFRAM_NBVARNUM 47
-  long varnum[47];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<146; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 146;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILOBJ_NREP_MATCH", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4185:/ getarg");
- /*_.NMAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4185:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4185:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4186:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4186:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:4186:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4186:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4186:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4186:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4186:/ locexp");
-      melt_assert_failed(( "check nmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4186)?(4186):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4186:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4186:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4186:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4187:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4187:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4187:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4187:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4187:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4187:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4187:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4187)?(4187):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4187:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4187:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4187:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4188:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4188:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4188:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4188:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_match nmat";
-    MELT_LOCATION("warmelt-genobj.melt:4188:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4188:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4188:/ apply.arg");
-    argtab[3].bp_long = 4188;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4188:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4188:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4188:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4189:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4190:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4191:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 1, "NEXPR_CTYP");/*_.NCTYP__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4192:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 2, "NMATCH_TESTS");/*_.NTESTS__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4193:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 3, "NMATCH_STUFFMAP");/*_.STUFFMAP__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4194:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4194:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4194:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NMAT__V2*/ curfptr[1]), 4, "NMATCH_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4194:/ cond.else");
-  
-   /*_.NMATCHED__V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4195:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATMAP__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4196:/ block");
-  /*block*/{
-   /*_#NBMAT__L4*/ curfnum[0] = 
-    (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MATMAP__V16*/ curfptr[15])));;
-   /*_.LABUF__V18*/ curfptr[17] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4199:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), ( "mtch"));}
-   ;
-   /*_#I__L5*/ curfnum[4] = 
-    ((/*_#NBMAT__L4*/ curfnum[0]) + (1));;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4200:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), (/*_#I__L5*/ curfnum[4]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4201:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]), ( "_"));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4202:/ block");
-   /*block*/{
-    /*_.LABSTR__V20*/ curfptr[19] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V18*/ curfptr[17]))));;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4203:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MATMAP__V16*/ curfptr[15]), 
-			   (meltobject_ptr_t) (/*_.NMAT__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.LABSTR__V20*/ curfptr[19]));}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4204:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4204:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4204:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4204:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_nrep_match matlabel";
-       MELT_LOCATION("warmelt-genobj.melt:4204:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-       MELT_LOCATION("warmelt-genobj.melt:4204:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4204:/ apply.arg");
-       argtab[3].bp_long = 4204;
-       /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LABSTR__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4204:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4204:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4204:/ cppif.else");
-    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V19*/ curfptr[18] = /*_.LABSTR__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4202:/ clear");
-    /*clear*/ /*_.LABSTR__V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4202:/ clear");
-    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
-   ;
-   /*_.LET___V17*/ curfptr[16] = /*_.LET___V19*/ curfptr[18];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4196:/ clear");
-   /*clear*/ /*_#NBMAT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4196:/ clear");
-   /*clear*/ /*_.LABUF__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4196:/ clear");
-   /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4196:/ clear");
-   /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
-  ;
-  /*_.MATLABEL__V23*/ curfptr[21] = /*_.LET___V17*/ curfptr[16];;
-  MELT_LOCATION("warmelt-genobj.melt:4207:/ block");
-  /*block*/{
-   /*_.LABUF__V25*/ curfptr[20] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4210:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V25*/ curfptr[20]), melt_string_str((melt_ptr_t)(/*_.MATLABEL__V23*/ curfptr[21])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4211:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V25*/ curfptr[20]), ( "_end"));}
-   ;
-   /*_.STRBUF2STRING__V26*/ curfptr[17] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[4])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V25*/ curfptr[20]))));;
-   /*_.LET___V24*/ curfptr[19] = /*_.STRBUF2STRING__V26*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4207:/ clear");
-   /*clear*/ /*_.LABUF__V25*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4207:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V26*/ curfptr[17] = 0 ;}
-  ;
-  /*_.ENDLABEL__V27*/ curfptr[18] = /*_.LET___V24*/ curfptr[19];;
-  /*_.SUBCOMPLIST__V28*/ curfptr[20] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  /*_.OBODYL__V29*/ curfptr[17] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  MELT_LOCATION("warmelt-genobj.melt:4217:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4217:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[6])), (4), "CLASS_OBJMULTIBLOCK");/*_.INST__V31*/ curfptr[30] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4217:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4217:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.OBODYL__V29*/ curfptr[17]), "OBLO_BODYL");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4217:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OMULBLO_SUBCOMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), ((/*nil*/NULL)), "OMULBLO_SUBCOMP");
-   ;
-   /*_.OMBLOC__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-  ;
-  /*_.MAKE_INTEGERBOX__V32*/ curfptr[31] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (0)));;
-  MELT_LOCATION("warmelt-genobj.melt:4222:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4222:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[7])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V34*/ curfptr[33] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4222:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4222:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.MATLABEL__V23*/ curfptr[21]), "OBGOTO_PREFIX");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4222:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.MAKE_INTEGERBOX__V32*/ curfptr[31]), "OBGOTO_RANK");
-   ;
-   /*_.OFIRSTGOTO__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4227:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4227:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[9])), (3), "CLASS_OBJLABELINSTR");/*_.INST__V36*/ curfptr[35] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4227:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.NLOC__V11*/ curfptr[10]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4227:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.ENDLABEL__V27*/ curfptr[18]), "OBLAB_PREFIX");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4227:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), ((/*nil*/NULL)), "OBLAB_RANK");
-   ;
-   /*_.OENDLABEL__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-  ;
-  /*_.MAKE_LIST__V37*/ curfptr[36] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  MELT_LOCATION("warmelt-genobj.melt:4231:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4231:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[10])), (4), "CLASS_TESTERCOMPILCONTEXT");/*_.INST__V39*/ curfptr[38] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4231:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @TCX_NRMATCH", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.NMAT__V2*/ curfptr[1]), "TCX_NRMATCH");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4231:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @TCX_FREELIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.MAKE_LIST__V37*/ curfptr[36]), "TCX_FREELIST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4231:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @TCX_NEXTEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), ((/*nil*/NULL)), "TCX_NEXTEST");
-   ;
-   /*_.TCX__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
-  ;
-  /*_.DONETESTS__V40*/ curfptr[39] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4239:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4239:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4239:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4239:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_match nmatched";
-     MELT_LOCATION("warmelt-genobj.melt:4239:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4239:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4239:/ apply.arg");
-     argtab[3].bp_long = 4239;
-     /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4239:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4239:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4239:/ cppif.else");
-  /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4240:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4240:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.COMPILE_OBJ__V43*/ curfptr[41] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4238:/ block");
-  /*block*/{
-   /*_.OMATCHED__V44*/ curfptr[43] = /*_.COMPILE_OBJ__V43*/ curfptr[41];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4242:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.OFIRSTGOTO__V33*/ curfptr[32]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4243:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4243:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4243:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4243:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_match ntests";
-     MELT_LOCATION("warmelt-genobj.melt:4243:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4243:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4243:/ apply.arg");
-     argtab[3].bp_long = 4243;
-     /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4243:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4243:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4243:/ cppif.else");
-  /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4244:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4244:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4244:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4244:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_match omatched";
-     MELT_LOCATION("warmelt-genobj.melt:4244:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[4];
-     MELT_LOCATION("warmelt-genobj.melt:4244:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4244:/ apply.arg");
-     argtab[3].bp_long = 4244;
-     /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4244:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4244:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4244:/ cppif.else");
-  /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4245:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4245:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4245:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_match oendlabel";
-     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4245:/ apply.arg");
-     argtab[3].bp_long = 4245;
-     /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OENDLABEL__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4245:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4245:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4245:/ cppif.else");
-  /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NTESTS__V13*/ curfptr[12]);
-   for (/*_#TESTIX__L11*/ curfnum[0] = 0;  
-	(/*_#TESTIX__L11*/ curfnum[0] >= 0) && (/*_#TESTIX__L11*/ curfnum[0] <  cit1__EACHTUP_ln);  
-	/*_#TESTIX__L11*/ curfnum[0]++) {
-   /*_.CUROTEST__V51*/ curfptr[49] = melt_multiple_nth((melt_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]),  /*_#TESTIX__L11*/ curfnum[0]);
-   
-  
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4249:/ locexp");
-   debugnum(( "compilobj_nrep_match testix="), (/*_#TESTIX__L11*/ curfnum[0]));}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4250:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4250:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L12*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4250:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4250:/ apply.arg");
-      argtab[0].bp_cstring =  "compilobj_nrep_match curotest";
-      MELT_LOCATION("warmelt-genobj.melt:4250:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[4];
-      MELT_LOCATION("warmelt-genobj.melt:4250:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4250:/ apply.arg");
-      argtab[3].bp_long = 4250;
-      /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4250:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4250:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4250:/ cppif.else");
-   /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4251:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4251:/ block");
-    /*block*/{
-     /*_#IS_A__L13*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])));;
-     MELT_LOCATION("warmelt-genobj.melt:4251:/ cond");
-     /*cond*/ if (/*_#IS_A__L13*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4251:/ cond.then");
-     /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4251:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4251:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4251:/ locexp");
-        melt_assert_failed(( "check curotest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4251)?(4251):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V54*/ curfptr[52] = /*_.IFELSE___V55*/ curfptr[54];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4251:/ clear");
-     /*clear*/ /*_#IS_A__L13*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4251:/ clear");
-     /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4251:/ cppif.else");
-   /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4252:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4252:/ block");
-    /*block*/{
-     /*_#GET_INT__L14*/ curfnum[4] = 
-      (melt_get_int((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49])));;
-     /*_#I__L15*/ curfnum[5] = 
-      ((/*_#GET_INT__L14*/ curfnum[4]) == (/*_#TESTIX__L11*/ curfnum[0]));;
-     MELT_LOCATION("warmelt-genobj.melt:4252:/ cond");
-     /*cond*/ if (/*_#I__L15*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4252:/ cond.then");
-     /*_.IFELSE___V57*/ curfptr[56] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4252:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4252:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4252:/ locexp");
-        melt_assert_failed(( "check curotest rank"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4252)?(4252):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V56*/ curfptr[54] = /*_.IFELSE___V57*/ curfptr[56];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4252:/ clear");
-     /*clear*/ /*_#GET_INT__L14*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4252:/ clear");
-     /*clear*/ /*_#I__L15*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4252:/ clear");
-     /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4252:/ cppif.else");
-   /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_#IS_A__L16*/ curfnum[4] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANYTESTER*/ curfrout->tabval[13])));;
-   MELT_LOCATION("warmelt-genobj.melt:4258:/ cond");
-   /*cond*/ if (/*_#IS_A__L16*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4258:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4258:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4259:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), 2, "NTEST_THEN");/*_.CURNTHEN__V60*/ curfptr[59] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4259:/ cond.else");
-      
-       /*_.CURNTHEN__V60*/ curfptr[59] = NULL;;
-       }
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4260:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4260:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4260:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), 3, "NTEST_ELSE");/*_.CURNELSE__V61*/ curfptr[60] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4260:/ cond.else");
-      
-       /*_.CURNELSE__V61*/ curfptr[60] = NULL;;
-       }
-      ;
-      /*_#NULL__L17*/ curfnum[5] = 
-       ((/*_.CURNTHEN__V60*/ curfptr[59]) == NULL);;
-      MELT_LOCATION("warmelt-genobj.melt:4263:/ cond");
-      /*cond*/ if (/*_#NULL__L17*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4263:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4263:/ block");
-       /*block*/{
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:4264:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:4264:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 
-           callcount;;
-          MELT_LOCATION("warmelt-genobj.melt:4264:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-genobj.melt:4264:/ apply.arg");
-           argtab[0].bp_cstring =  "compilobj_nrep_match curotest with null then";
-           MELT_LOCATION("warmelt-genobj.melt:4264:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17];
-           MELT_LOCATION("warmelt-genobj.melt:4264:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-           MELT_LOCATION("warmelt-genobj.melt:4264:/ apply.arg");
-           argtab[3].bp_long = 4264;
-           /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:4264:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:4264:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:4264:/ cppif.else");
-        /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4265:/ locexp");
-         
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "compilobj_nrep_match curotest has null then"), (14));
-#endif
-;}
-        ;
-        MELT_LOCATION("warmelt-genobj.melt:4263:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4263:/ clear");
-        /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4263:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:4263:/ block");
-       /*block*/{
-        /*_#NULL__L19*/ curfnum[17] = 
-         ((/*_.CURNELSE__V61*/ curfptr[60]) == NULL);;
-        MELT_LOCATION("warmelt-genobj.melt:4267:/ cond");
-        /*cond*/ if (/*_#NULL__L19*/ curfnum[17]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4267:/ cond.then");
-        MELT_LOCATION("warmelt-genobj.melt:4267:/ block");
-         /*block*/{
-          
-          #if ENABLE_CHECKING
-           MELT_LOCATION("warmelt-genobj.melt:4268:/ cppif.then");
-          MELT_LOCATION("warmelt-genobj.melt:4268:/ block");
-           /*block*/{
-            /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
-             callcount;;
-            MELT_LOCATION("warmelt-genobj.melt:4268:/ apply");
-            /*apply*/{
-             union meltparam_un argtab[4];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-genobj.melt:4268:/ apply.arg");
-             argtab[0].bp_cstring =  "compilobj_nrep_match curotest with null else";
-             MELT_LOCATION("warmelt-genobj.melt:4268:/ apply.arg");
-             argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
-             MELT_LOCATION("warmelt-genobj.melt:4268:/ apply.arg");
-             argtab[2].bp_cstring =  "warmelt-genobj.melt";
-             MELT_LOCATION("warmelt-genobj.melt:4268:/ apply.arg");
-             argtab[3].bp_long = 4268;
-             /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            /*_.IFCPP___V66*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:4268:/ clear");
-            /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:4268:/ clear");
-            /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;}
-           
-           #else /*ENABLE_CHECKING*/
-           MELT_LOCATION("warmelt-genobj.melt:4268:/ cppif.else");
-          /*_.IFCPP___V66*/ curfptr[62] = (/*nil*/NULL);
-           #endif /*ENABLE_CHECKING*/
-           ;
-          
-          {
-          MELT_LOCATION("warmelt-genobj.melt:4269:/ locexp");
-           
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "compilobj_nrep_match curotest has null else"), (14));
-#endif
-;}
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:4267:/ block");
-          /*block*/{}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:4267:/ clear");
-          /*clear*/ /*_.IFCPP___V66*/ curfptr[62] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4267:/ cond.else");
-        
-         /*_.IFELSE___V65*/ curfptr[63] = NULL;;
-         }
-        ;
-        /*_.IFELSE___V62*/ curfptr[61] = /*_.IFELSE___V65*/ curfptr[63];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4263:/ clear");
-        /*clear*/ /*_#NULL__L19*/ curfnum[17] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4263:/ clear");
-        /*clear*/ /*_.IFELSE___V65*/ curfptr[63] = 0 ;}
-       ;
-       }
-      ;
-      /*_.LET___V59*/ curfptr[58] = /*_.IFELSE___V62*/ curfptr[61];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ clear");
-      /*clear*/ /*_.CURNTHEN__V60*/ curfptr[59] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ clear");
-      /*clear*/ /*_.CURNELSE__V61*/ curfptr[60] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ clear");
-      /*clear*/ /*_#NULL__L17*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4259:/ clear");
-      /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;}
-     ;
-     /*_.IF___V58*/ curfptr[56] = /*_.LET___V59*/ curfptr[58];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4258:/ clear");
-     /*clear*/ /*_.LET___V59*/ curfptr[58] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4258:/ cond.else");
-   
-    /*_.IF___V58*/ curfptr[56] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4272:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4273:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4273:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     /*_.LABINS__V68*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_LABELINSTR*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4274:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[12])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4274:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4274:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), 1, "NTEST_MATCHED");/*_.CURNMATCHED__V69*/ curfptr[62] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4274:/ cond.else");
-    
-     /*_.CURNMATCHED__V69*/ curfptr[62] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4276:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4276:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4276:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4276:/ apply.arg");
-       argtab[0].bp_cstring =  "compilobj_nrep_match labins";
-       MELT_LOCATION("warmelt-genobj.melt:4276:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19];
-       MELT_LOCATION("warmelt-genobj.melt:4276:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4276:/ apply.arg");
-       argtab[3].bp_long = 4276;
-       /*_.DEBUG_MSG_FUN__V71*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LABINS__V68*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V70*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[59];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4276:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4276:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[59] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4276:/ cppif.else");
-    /*_.IFCPP___V70*/ curfptr[63] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:4277:/ block");
-    /*block*/{
-     /*_#I__L22*/ curfnum[17] = 
-      ((/*_#TESTIX__L11*/ curfnum[0]) + (1));;
-     /*_.NEXTEST__V73*/ curfptr[61] = 
-      (melt_multiple_nth((melt_ptr_t)(/*_.NTESTS__V13*/ curfptr[12]), (/*_#I__L22*/ curfnum[17])));;
-     MELT_LOCATION("warmelt-genobj.melt:4278:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V38*/ curfptr[37]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[10])))) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4278:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:4278:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:4278:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @TCX_NEXTEST", melt_magic_discr((melt_ptr_t)(/*_.TCX__V38*/ curfptr[37])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.TCX__V38*/ curfptr[37]), (3), (/*_.NEXTEST__V73*/ curfptr[61]), "TCX_NEXTEST");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:4278:/ touch");
-       meltgc_touch(/*_.TCX__V38*/ curfptr[37]);
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:4279:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:4279:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L23*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:4279:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:4279:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_match nextest";
-        MELT_LOCATION("warmelt-genobj.melt:4279:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[5];
-        MELT_LOCATION("warmelt-genobj.melt:4279:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:4279:/ apply.arg");
-        argtab[3].bp_long = 4279;
-        /*_.DEBUG_MSG_FUN__V75*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NEXTEST__V73*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V74*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V75*/ curfptr[59];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4279:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4279:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[59] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:4279:/ cppif.else");
-     /*_.IFCPP___V74*/ curfptr[58] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:4280:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:4280:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L24*/ curfnum[19] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:4280:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:4280:/ apply.arg");
-        argtab[0].bp_cstring =  "compilobj_nrep_match updated tcx";
-        MELT_LOCATION("warmelt-genobj.melt:4280:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[19];
-        MELT_LOCATION("warmelt-genobj.melt:4280:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:4280:/ apply.arg");
-        argtab[3].bp_long = 4280;
-        /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.TCX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V76*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4280:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[19] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4280:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:4280:/ cppif.else");
-     /*_.IFCPP___V76*/ curfptr[59] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V72*/ curfptr[60] = /*_.IFCPP___V76*/ curfptr[59];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4277:/ clear");
-     /*clear*/ /*_#I__L22*/ curfnum[17] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4277:/ clear");
-     /*clear*/ /*_.NEXTEST__V73*/ curfptr[61] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4277:/ clear");
-     /*clear*/ /*_.IFCPP___V74*/ curfptr[58] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4277:/ clear");
-     /*clear*/ /*_.IFCPP___V76*/ curfptr[59] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4281:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4281:/ multimsend");
-     /*multimsend*/{
-      union meltparam_un argtab[2];
-      union meltparam_un restab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      memset(&restab, 0, sizeof(restab));
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ multimsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];MELT_LOCATION("warmelt-genobj.melt:4281:/ multimsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V38*/ curfptr[37];
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ multimsend.xres");
-      restab[0].bp_aptr = (melt_ptr_t*) &/*_.CUROBDEST__V79*/ curfptr[61];MELT_LOCATION("warmelt-genobj.melt:4281:/ multimsend.send");
-      /*_.CURCOMP__V78*/ curfptr[76] =  meltgc_send ((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), ((melt_ptr_t)((/*!COMPILE_TESTER*/ curfrout->tabval[15]))), (BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-      }
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4281:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4284:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4284:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L25*/ curfnum[5] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:4284:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:4284:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_match curcomp";
-         MELT_LOCATION("warmelt-genobj.melt:4284:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[5];
-         MELT_LOCATION("warmelt-genobj.melt:4284:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:4284:/ apply.arg");
-         argtab[3].bp_long = 4284;
-         /*_.DEBUG_MSG_FUN__V81*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V80*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[59];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4284:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[5] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4284:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[59] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4284:/ cppif.else");
-      /*_.IFCPP___V80*/ curfptr[58] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4285:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4285:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L26*/ curfnum[19] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:4285:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:4285:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_match curobdest";
-         MELT_LOCATION("warmelt-genobj.melt:4285:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[19];
-         MELT_LOCATION("warmelt-genobj.melt:4285:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:4285:/ apply.arg");
-         argtab[3].bp_long = 4285;
-         /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROBDEST__V79*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V82*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[82];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4285:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[19] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4285:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4285:/ cppif.else");
-      /*_.IFCPP___V82*/ curfptr[59] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4286:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4286:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L27*/ curfnum[17] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:4286:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
-         argtab[0].bp_cstring =  "compilobj_nrep_match tcx";
-         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[17];
-         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:4286:/ apply.arg");
-         argtab[3].bp_long = 4286;
-         /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.TCX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V84*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[84];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4286:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[17] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4286:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4286:/ cppif.else");
-      /*_.IFCPP___V84*/ curfptr[82] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4287:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4287:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:4287:/ cond");
-        /*cond*/ if (/*_.CURCOMP__V78*/ curfptr[76]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4287:/ cond.then");
-        /*_.IFELSE___V87*/ curfptr[86] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4287:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:4287:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:4287:/ locexp");
-           melt_assert_failed(( "check curcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4287)?(4287):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V86*/ curfptr[84] = /*_.IFELSE___V87*/ curfptr[86];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4287:/ clear");
-        /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4287:/ cppif.else");
-      /*_.IFCPP___V86*/ curfptr[84] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4289:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.LABINS__V68*/ curfptr[66]));}
-      ;
-      /*_#IS_LIST__L28*/ curfnum[5] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])) == OBMAG_LIST);;
-      MELT_LOCATION("warmelt-genobj.melt:4291:/ cond");
-      /*cond*/ if (/*_#IS_LIST__L28*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4291:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4291:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-genobj.melt:4292:/ block");
-        /*block*/{
-         /*_.LIST_LAST__V90*/ curfptr[89] = 
-          (melt_list_last((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])));;
-         /*_.LASTLICOMP__V91*/ curfptr[90] = 
-          (melt_pair_head((melt_ptr_t)(/*_.LIST_LAST__V90*/ curfptr[89])));;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-genobj.melt:4293:/ cppif.then");
-         MELT_LOCATION("warmelt-genobj.melt:4293:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L29*/ curfnum[19] = 
-            callcount;;
-           MELT_LOCATION("warmelt-genobj.melt:4293:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-genobj.melt:4293:/ apply.arg");
-            argtab[0].bp_cstring =  "compilobj_nrep_match lastlicomp";
-            MELT_LOCATION("warmelt-genobj.melt:4293:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[19];
-            MELT_LOCATION("warmelt-genobj.melt:4293:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-genobj.melt";
-            MELT_LOCATION("warmelt-genobj.melt:4293:/ apply.arg");
-            argtab[3].bp_long = 4293;
-            /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LASTLICOMP__V91*/ curfptr[90]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4293:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[19] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:4293:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-genobj.melt:4293:/ cppif.else");
-         /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-genobj.melt:4294:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:4294:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCOMP__V78*/ curfptr[76];
-          /*_.LIST_APPEND2LIST__V94*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.LET___V89*/ curfptr[88] = /*_.LIST_APPEND2LIST__V94*/ curfptr[92];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:4292:/ clear");
-         /*clear*/ /*_.LIST_LAST__V90*/ curfptr[89] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4292:/ clear");
-         /*clear*/ /*_.LASTLICOMP__V91*/ curfptr[90] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4292:/ clear");
-         /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4292:/ clear");
-         /*clear*/ /*_.LIST_APPEND2LIST__V94*/ curfptr[92] = 0 ;}
-        ;
-        /*_.IFELSE___V88*/ curfptr[86] = /*_.LET___V89*/ curfptr[88];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4291:/ clear");
-        /*clear*/ /*_.LET___V89*/ curfptr[88] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4291:/ cond.else");
-      
-       MELT_LOCATION("warmelt-genobj.melt:4291:/ block");
-       /*block*/{
-        /*_#IS_MULTIPLE__L30*/ curfnum[17] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])) == OBMAG_MULTIPLE);;
-        MELT_LOCATION("warmelt-genobj.melt:4296:/ cond");
-        /*cond*/ if (/*_#IS_MULTIPLE__L30*/ curfnum[17]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4296:/ cond.then");
-        MELT_LOCATION("warmelt-genobj.melt:4296:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:4297:/ block");
-          /*block*/{
-           /*_.LASTUPCOMP__V96*/ curfptr[90] = 
-            (melt_multiple_nth((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]), (-1)));;
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-genobj.melt:4298:/ cppif.then");
-           MELT_LOCATION("warmelt-genobj.melt:4298:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L31*/ curfnum[19] = 
-              callcount;;
-             MELT_LOCATION("warmelt-genobj.melt:4298:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-genobj.melt:4298:/ apply.arg");
-              argtab[0].bp_cstring =  "compilobj_nrep_match lastupcomp";
-              MELT_LOCATION("warmelt-genobj.melt:4298:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[19];
-              MELT_LOCATION("warmelt-genobj.melt:4298:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-genobj.melt";
-              MELT_LOCATION("warmelt-genobj.melt:4298:/ apply.arg");
-              argtab[3].bp_long = 4298;
-              /*_.DEBUG_MSG_FUN__V98*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LASTUPCOMP__V96*/ curfptr[90]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V97*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[92];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:4298:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[19] = 0 ;
-             MELT_LOCATION("warmelt-genobj.melt:4298:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[92] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-genobj.melt:4298:/ cppif.else");
-           /*_.IFCPP___V97*/ curfptr[91] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           /*citerblock FOREACH_IN_MULTIPLE*/ {
-            /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURCOMP__V78*/ curfptr[76]);
-   for (/*_#SUBIX__L32*/ curfnum[19] = 0;  
-	(/*_#SUBIX__L32*/ curfnum[19] >= 0) && (/*_#SUBIX__L32*/ curfnum[19] <  cit2__EACHTUP_ln);  
-	/*_#SUBIX__L32*/ curfnum[19]++) {
-   /*_.SUBTEST__V99*/ curfptr[88] = melt_multiple_nth((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]),  /*_#SUBIX__L32*/ curfnum[19]);
-   
-           
-            
-            {
-            MELT_LOCATION("warmelt-genobj.melt:4302:/ locexp");
-            meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.SUBTEST__V99*/ curfptr[88]));}
-            ;
-            if (/*_#SUBIX__L32*/ curfnum[19]<0) break;
-   } /* end cit2__EACHTUP */ 
-           
-            /*citerepilog*/
-            MELT_LOCATION("warmelt-genobj.melt:4299:/ clear");
-            /*clear*/ /*_.SUBTEST__V99*/ curfptr[88] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:4299:/ clear");
-            /*clear*/ /*_#SUBIX__L32*/ curfnum[19] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-           ;
-           /*_.IFELSE___V95*/ curfptr[89] = /*_.IFCPP___V97*/ curfptr[91];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4297:/ clear");
-           /*clear*/ /*_.LASTUPCOMP__V96*/ curfptr[90] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:4297:/ clear");
-           /*clear*/ /*_.IFCPP___V97*/ curfptr[91] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4296:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:4296:/ block");
-         /*block*/{
-          /*_#IS_OBJECT__L33*/ curfnum[32] = 
-           (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76])) == OBMAG_OBJECT);;
-          MELT_LOCATION("warmelt-genobj.melt:4304:/ cond");
-          /*cond*/ if (/*_#IS_OBJECT__L33*/ curfnum[32]) /*then*/ {
-          MELT_LOCATION("warmelt-genobj.melt:4304:/ cond.then");
-          MELT_LOCATION("warmelt-genobj.melt:4304:/ block");
-           /*block*/{
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-genobj.melt:4305:/ cppif.then");
-            MELT_LOCATION("warmelt-genobj.melt:4305:/ block");
-             /*block*/{
-              /*_#THE_CALLCOUNT__L34*/ curfnum[33] = 
-               callcount;;
-              MELT_LOCATION("warmelt-genobj.melt:4305:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[4];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-genobj.melt:4305:/ apply.arg");
-               argtab[0].bp_cstring =  "compilobj_nrep_match obj curcomp";
-               MELT_LOCATION("warmelt-genobj.melt:4305:/ apply.arg");
-               argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[33];
-               MELT_LOCATION("warmelt-genobj.melt:4305:/ apply.arg");
-               argtab[2].bp_cstring =  "warmelt-genobj.melt";
-               MELT_LOCATION("warmelt-genobj.melt:4305:/ apply.arg");
-               argtab[3].bp_long = 4305;
-               /*_.DEBUG_MSG_FUN__V102*/ curfptr[91] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              /*_.IFCPP___V101*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[91];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-genobj.melt:4305:/ clear");
-              /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[33] = 0 ;
-              MELT_LOCATION("warmelt-genobj.melt:4305:/ clear");
-              /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[91] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-genobj.melt:4305:/ cppif.else");
-            /*_.IFCPP___V101*/ curfptr[90] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            
-            {
-            MELT_LOCATION("warmelt-genobj.melt:4306:/ locexp");
-            meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.CURCOMP__V78*/ curfptr[76]));}
-            ;
-            MELT_LOCATION("warmelt-genobj.melt:4304:/ block");
-            /*block*/{}
-            ;
-            /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:4304:/ clear");
-            /*clear*/ /*_.IFCPP___V101*/ curfptr[90] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-genobj.melt:4304:/ cond.else");
-          
-           MELT_LOCATION("warmelt-genobj.melt:4304:/ block");
-           /*block*/{
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-genobj.melt:4309:/ cppif.then");
-            MELT_LOCATION("warmelt-genobj.melt:4309:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-genobj.melt:4309:/ cond");
-              /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-              MELT_LOCATION("warmelt-genobj.melt:4309:/ cond.then");
-              /*_.IFELSE___V104*/ curfptr[90] = (/*nil*/NULL);;
-              } else {MELT_LOCATION("warmelt-genobj.melt:4309:/ cond.else");
-              
-               MELT_LOCATION("warmelt-genobj.melt:4309:/ block");
-               /*block*/{
-                /*block*/{
-                 
-                 {
-                 MELT_LOCATION("warmelt-genobj.melt:4309:/ locexp");
-                 melt_assert_failed(( "unexpected curcomp"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4309)?(4309):__LINE__, __FUNCTION__);
-;}
-                 ;
-                 /*clear*/ /*_.IFELSE___V104*/ curfptr[90] = 0 ;}
-                ;
-                /*epilog*/}
-               ;
-               }
-              ;
-              /*_.IFCPP___V103*/ curfptr[91] = /*_.IFELSE___V104*/ curfptr[90];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-genobj.melt:4309:/ clear");
-              /*clear*/ /*_.IFELSE___V104*/ curfptr[90] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-genobj.melt:4309:/ cppif.else");
-            /*_.IFCPP___V103*/ curfptr[91] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            MELT_LOCATION("warmelt-genobj.melt:4308:/ block");
-            /*block*/{
-             /*_.PROGN___V105*/ curfptr[90] = /*_.IFCPP___V103*/ curfptr[91];;}
-            ;
-            /*_.IFELSE___V100*/ curfptr[92] = /*_.PROGN___V105*/ curfptr[90];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-genobj.melt:4304:/ clear");
-            /*clear*/ /*_.IFCPP___V103*/ curfptr[91] = 0 ;
-            MELT_LOCATION("warmelt-genobj.melt:4304:/ clear");
-            /*clear*/ /*_.PROGN___V105*/ curfptr[90] = 0 ;}
-           ;
-           }
-          ;
-          /*_.IFELSE___V95*/ curfptr[89] = /*_.IFELSE___V100*/ curfptr[92];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:4296:/ clear");
-          /*clear*/ /*_#IS_OBJECT__L33*/ curfnum[32] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:4296:/ clear");
-          /*clear*/ /*_.IFELSE___V100*/ curfptr[92] = 0 ;}
-         ;
-         }
-        ;
-        /*_.IFELSE___V88*/ curfptr[86] = /*_.IFELSE___V95*/ curfptr[89];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4291:/ clear");
-        /*clear*/ /*_#IS_MULTIPLE__L30*/ curfnum[17] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4291:/ clear");
-        /*clear*/ /*_.IFELSE___V95*/ curfptr[89] = 0 ;}
-       ;
-       }
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4312:/ cond");
-      /*cond*/ if (/*_.CUROBDEST__V79*/ curfptr[61]) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4312:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4312:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4312:/ locexp");
-        meltgc_append_list((melt_ptr_t)(/*_.SUBCOMPLIST__V28*/ curfptr[20]), (melt_ptr_t)(/*_.CUROBDEST__V79*/ curfptr[61]));}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4314:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.DONETESTS__V40*/ curfptr[39]), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]));}
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4316:/ block");
-      /*block*/{
-       /*_.DISPOSABLIST__V106*/ curfptr[91] = 
-        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-genobj.melt:4317:/ cppif.then");
-       MELT_LOCATION("warmelt-genobj.melt:4317:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L35*/ curfnum[33] = 
-          callcount;;
-         MELT_LOCATION("warmelt-genobj.melt:4317:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:4317:/ apply.arg");
-          argtab[0].bp_cstring =  "compilobj_nrep_match disposing curotest";
-          MELT_LOCATION("warmelt-genobj.melt:4317:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L35*/ curfnum[33];
-          MELT_LOCATION("warmelt-genobj.melt:4317:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-genobj.melt";
-          MELT_LOCATION("warmelt-genobj.melt:4317:/ apply.arg");
-          argtab[3].bp_long = 4317;
-          /*_.DEBUG_MSG_FUN__V108*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V107*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V108*/ curfptr[92];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:4317:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L35*/ curfnum[33] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4317:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V108*/ curfptr[92] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-genobj.melt:4317:/ cppif.else");
-       /*_.IFCPP___V107*/ curfptr[90] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       /*_#IS_A__L36*/ curfnum[32] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CUROTEST__V51*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ curfrout->tabval[17])));;
-       MELT_LOCATION("warmelt-genobj.melt:4321:/ cond");
-       /*cond*/ if (/*_#IS_A__L36*/ curfnum[32]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:4321:/ cond.then");
-       MELT_LOCATION("warmelt-genobj.melt:4321:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:4324:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-genobj.melt:4324:/ newclosure");
-           /*newclosure*/ /*_.LAMBDA___V111*/ curfptr[110] =
-           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (3));
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:4324:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V111*/ curfptr[110])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V111*/ curfptr[110])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V111*/ curfptr[110])->tabval[0] = (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]);
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:4324:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V111*/ curfptr[110])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V111*/ curfptr[110])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V111*/ curfptr[110])->tabval[1] = (melt_ptr_t)(/*_.DONETESTS__V40*/ curfptr[39]);
-          ;
-          MELT_LOCATION("warmelt-genobj.melt:4324:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V111*/ curfptr[110])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V111*/ curfptr[110])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V111*/ curfptr[110])->tabval[2] = (melt_ptr_t)(/*_.DISPOSABLIST__V106*/ curfptr[91]);
-          ;
-          /*_.LAMBDA___V110*/ curfptr[92] = /*_.LAMBDA___V111*/ curfptr[110];;}
-         ;
-         MELT_LOCATION("warmelt-genobj.melt:4322:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:4322:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V110*/ curfptr[92];
-          /*_.MAPOBJECT_EVERY__V112*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.STUFFMAP__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFELSE___V109*/ curfptr[89] = /*_.MAPOBJECT_EVERY__V112*/ curfptr[111];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:4321:/ clear");
-         /*clear*/ /*_.LAMBDA___V110*/ curfptr[92] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4321:/ clear");
-         /*clear*/ /*_.MAPOBJECT_EVERY__V112*/ curfptr[111] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-genobj.melt:4321:/ cond.else");
-       
-        MELT_LOCATION("warmelt-genobj.melt:4321:/ block");
-        /*block*/{
-         /*_#__L37*/ curfnum[17] = 
-          ((/*_.CURNMATCHED__V69*/ curfptr[62]) == (/*_.NMATCHED__V15*/ curfptr[14]));;
-         MELT_LOCATION("warmelt-genobj.melt:4341:/ cond");
-         /*cond*/ if (/*_#__L37*/ curfnum[17]) /*then*/ {
-         MELT_LOCATION("warmelt-genobj.melt:4341:/ cond.then");
-         MELT_LOCATION("warmelt-genobj.melt:4341:/ block");
-          /*block*/{
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-genobj.melt:4342:/ cppif.then");
-           MELT_LOCATION("warmelt-genobj.melt:4342:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L38*/ curfnum[33] = 
-              callcount;;
-             MELT_LOCATION("warmelt-genobj.melt:4342:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-genobj.melt:4342:/ apply.arg");
-              argtab[0].bp_cstring =  "compilobj_nrep_match curnmatched == nmatched";
-              MELT_LOCATION("warmelt-genobj.melt:4342:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L38*/ curfnum[33];
-              MELT_LOCATION("warmelt-genobj.melt:4342:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-genobj.melt";
-              MELT_LOCATION("warmelt-genobj.melt:4342:/ apply.arg");
-              argtab[3].bp_long = 4342;
-              /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V114*/ curfptr[111] = /*_.DEBUG_MSG_FUN__V115*/ curfptr[114];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:4342:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L38*/ curfnum[33] = 0 ;
-             MELT_LOCATION("warmelt-genobj.melt:4342:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-genobj.melt:4342:/ cppif.else");
-           /*_.IFCPP___V114*/ curfptr[111] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           /*_.IFELSE___V113*/ curfptr[92] = /*_.IFCPP___V114*/ curfptr[111];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4341:/ clear");
-           /*clear*/ /*_.IFCPP___V114*/ curfptr[111] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-genobj.melt:4341:/ cond.else");
-         
-          MELT_LOCATION("warmelt-genobj.melt:4341:/ block");
-          /*block*/{
-           /*_#IS_OBJECT__L39*/ curfnum[33] = 
-            (melt_magic_discr((melt_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62])) == OBMAG_OBJECT);;
-           MELT_LOCATION("warmelt-genobj.melt:4348:/ cond");
-           /*cond*/ if (/*_#IS_OBJECT__L39*/ curfnum[33]) /*then*/ {
-           MELT_LOCATION("warmelt-genobj.melt:4348:/ cond.then");
-           MELT_LOCATION("warmelt-genobj.melt:4348:/ block");
-            /*block*/{
-             
-             #if ENABLE_CHECKING
-              MELT_LOCATION("warmelt-genobj.melt:4349:/ cppif.then");
-             MELT_LOCATION("warmelt-genobj.melt:4349:/ block");
-              /*block*/{
-               /*_#THE_CALLCOUNT__L40*/ curfnum[39] = 
-                callcount;;
-               MELT_LOCATION("warmelt-genobj.melt:4349:/ apply");
-               /*apply*/{
-                union meltparam_un argtab[4];
-                memset(&argtab, 0, sizeof(argtab));
-                MELT_LOCATION("warmelt-genobj.melt:4349:/ apply.arg");
-                argtab[0].bp_cstring =  "compilobj_nrep_match disposing curnmatched";
-                MELT_LOCATION("warmelt-genobj.melt:4349:/ apply.arg");
-                argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[39];
-                MELT_LOCATION("warmelt-genobj.melt:4349:/ apply.arg");
-                argtab[2].bp_cstring =  "warmelt-genobj.melt";
-                MELT_LOCATION("warmelt-genobj.melt:4349:/ apply.arg");
-                argtab[3].bp_long = 4349;
-                /*_.DEBUG_MSG_FUN__V118*/ curfptr[117] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                }
-               ;
-               /*_.IFCPP___V117*/ curfptr[111] = /*_.DEBUG_MSG_FUN__V118*/ curfptr[117];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-genobj.melt:4349:/ clear");
-               /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[39] = 0 ;
-               MELT_LOCATION("warmelt-genobj.melt:4349:/ clear");
-               /*clear*/ /*_.DEBUG_MSG_FUN__V118*/ curfptr[117] = 0 ;}
-              
-              #else /*ENABLE_CHECKING*/
-              MELT_LOCATION("warmelt-genobj.melt:4349:/ cppif.else");
-             /*_.IFCPP___V117*/ curfptr[111] = (/*nil*/NULL);
-              #endif /*ENABLE_CHECKING*/
-              ;
-             
-             #if ENABLE_CHECKING
-              MELT_LOCATION("warmelt-genobj.melt:4351:/ cppif.then");
-             MELT_LOCATION("warmelt-genobj.melt:4351:/ block");
-              /*block*/{
-               /*_#THE_CALLCOUNT__L41*/ curfnum[39] = 
-                callcount;;
-               MELT_LOCATION("warmelt-genobj.melt:4351:/ apply");
-               /*apply*/{
-                union meltparam_un argtab[4];
-                memset(&argtab, 0, sizeof(argtab));
-                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
-                argtab[0].bp_cstring =  "compilobj_nrep_match omatched";
-                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
-                argtab[1].bp_long = /*_#THE_CALLCOUNT__L41*/ curfnum[39];
-                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
-                argtab[2].bp_cstring =  "warmelt-genobj.melt";
-                MELT_LOCATION("warmelt-genobj.melt:4351:/ apply.arg");
-                argtab[3].bp_long = 4351;
-                /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                }
-               ;
-               /*_.IFCPP___V119*/ curfptr[117] = /*_.DEBUG_MSG_FUN__V120*/ curfptr[119];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-genobj.melt:4351:/ clear");
-               /*clear*/ /*_#THE_CALLCOUNT__L41*/ curfnum[39] = 0 ;
-               MELT_LOCATION("warmelt-genobj.melt:4351:/ clear");
-               /*clear*/ /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] = 0 ;}
-              
-              #else /*ENABLE_CHECKING*/
-              MELT_LOCATION("warmelt-genobj.melt:4351:/ cppif.else");
-             /*_.IFCPP___V119*/ curfptr[117] = (/*nil*/NULL);
-              #endif /*ENABLE_CHECKING*/
-              ;
-             MELT_LOCATION("warmelt-genobj.melt:4353:/ block");
-             /*block*/{
-              /*_.STUTESTS__V121*/ curfptr[119] = 
-               melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.STUFFMAP__V14*/ curfptr[13]), (meltobject_ptr_t)(/*_.CURNMATCHED__V69*/ curfptr[62]));;
-              MELT_LOCATION("warmelt-genobj.melt:4354:/ block");
-              /*block*/{
-               /*_.REMSTUFF__V122*/ curfptr[121] = /*_.CURNMATCHED__V69*/ curfptr[62];;
-               /*citerblock FOREACH_IN_LIST*/ {
-               /* start cit3__EACHLIST */
-   for (/*_.TESTPAIR__V123*/ curfptr[122] = melt_list_first(/*_.STUTESTS__V121*/ curfptr[119]);
-	melt_magic_discr(/*_.TESTPAIR__V123*/ curfptr[122]) == OBMAG_PAIR;
-        /*_.TESTPAIR__V123*/ curfptr[122] = melt_pair_tail(/*_.TESTPAIR__V123*/ curfptr[122])) {
-	/*_.CURTEST__V124*/ curfptr[123] = melt_pair_head(/*_.TESTPAIR__V123*/ curfptr[122]); 
-               
-                MELT_LOCATION("warmelt-genobj.melt:4358:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[1];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-genobj.melt:4358:/ apply.arg");
-                 argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURTEST__V124*/ curfptr[123];
-                 /*_.LIST_FIND__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_FIND*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.DONETESTS__V40*/ curfptr[39]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                MELT_LOCATION("warmelt-genobj.melt:4358:/ cond");
-                /*cond*/ if (/*_.LIST_FIND__V125*/ curfptr[124]) /*then*/ {
-                MELT_LOCATION("warmelt-genobj.melt:4358:/ cond.then");
-                MELT_LOCATION("warmelt-genobj.melt:4358:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-genobj.melt:4359:/ compute");
-                  /*_.TESTPAIR__V123*/ curfptr[122] = /*_.SETQ___V127*/ curfptr[126] = (/*nil*/NULL);;
-                  /*_.IFELSE___V126*/ curfptr[125] = /*_.SETQ___V127*/ curfptr[126];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-genobj.melt:4358:/ clear");
-                  /*clear*/ /*_.SETQ___V127*/ curfptr[126] = 0 ;}
-                 ;
-                } else {MELT_LOCATION("warmelt-genobj.melt:4358:/ cond.else");
-                
-                 MELT_LOCATION("warmelt-genobj.melt:4358:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-genobj.melt:4360:/ compute");
-                  /*_.REMSTUFF__V122*/ curfptr[121] = /*_.SETQ___V128*/ curfptr[126] = (/*nil*/NULL);;
-                  /*_.IFELSE___V126*/ curfptr[125] = /*_.SETQ___V128*/ curfptr[126];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-genobj.melt:4358:/ clear");
-                  /*clear*/ /*_.SETQ___V128*/ curfptr[126] = 0 ;}
-                 ;
-                 }
-                ;
-                } /* end cit3__EACHLIST */
-               
-                /*citerepilog*/
-                MELT_LOCATION("warmelt-genobj.melt:4355:/ clear");
-                /*clear*/ /*_.TESTPAIR__V123*/ curfptr[122] = 0 ;
-                MELT_LOCATION("warmelt-genobj.melt:4355:/ clear");
-                /*clear*/ /*_.CURTEST__V124*/ curfptr[123] = 0 ;
-                MELT_LOCATION("warmelt-genobj.melt:4355:/ clear");
-                /*clear*/ /*_.LIST_FIND__V125*/ curfptr[124] = 0 ;
-                MELT_LOCATION("warmelt-genobj.melt:4355:/ clear");
-                /*clear*/ /*_.IFELSE___V126*/ curfptr[125] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-               ;
-               MELT_LOCATION("warmelt-genobj.melt:4362:/ cond");
-               /*cond*/ if (/*_.REMSTUFF__V122*/ curfptr[121]) /*then*/ {
-               MELT_LOCATION("warmelt-genobj.melt:4362:/ cond.then");
-               MELT_LOCATION("warmelt-genobj.melt:4362:/ block");
-                /*block*/{
-                 
-                 {
-                 MELT_LOCATION("warmelt-genobj.melt:4363:/ locexp");
-                 meltgc_append_list((melt_ptr_t)(/*_.DISPOSABLIST__V106*/ curfptr[91]), (melt_ptr_t)(/*_.REMSTUFF__V122*/ curfptr[121]));}
-                 ;
-                 /*epilog*/}
-                ;
-               } /*noelse*/
-               ;
-               /*epilog*/
-               MELT_LOCATION("warmelt-genobj.melt:4354:/ clear");
-               /*clear*/ /*_.REMSTUFF__V122*/ curfptr[121] = 0 ;}
-              ;
-              /*epilog*/
-              MELT_LOCATION("warmelt-genobj.melt:4353:/ clear");
-              /*clear*/ /*_.STUTESTS__V121*/ curfptr[119] = 0 ;}
-             ;
-             MELT_LOCATION("warmelt-genobj.melt:4348:/ block");
-             /*block*/{}
-             ;
-             /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:4348:/ clear");
-             /*clear*/ /*_.IFCPP___V117*/ curfptr[111] = 0 ;
-             MELT_LOCATION("warmelt-genobj.melt:4348:/ clear");
-             /*clear*/ /*_.IFCPP___V119*/ curfptr[117] = 0 ;}
-            ;
-           } else {MELT_LOCATION("warmelt-genobj.melt:4348:/ cond.else");
-           
-            /*_.IFELSE___V116*/ curfptr[114] = NULL;;
-            }
-           ;
-           /*_.IFELSE___V113*/ curfptr[92] = /*_.IFELSE___V116*/ curfptr[114];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4341:/ clear");
-           /*clear*/ /*_#IS_OBJECT__L39*/ curfnum[33] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:4341:/ clear");
-           /*clear*/ /*_.IFELSE___V116*/ curfptr[114] = 0 ;}
-          ;
-          }
-         ;
-         /*_.IFELSE___V109*/ curfptr[89] = /*_.IFELSE___V113*/ curfptr[92];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:4321:/ clear");
-         /*clear*/ /*_#__L37*/ curfnum[17] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4321:/ clear");
-         /*clear*/ /*_.IFELSE___V113*/ curfptr[92] = 0 ;}
-        ;
-        }
-       ;
-       /*citerblock FOREACH_IN_LIST*/ {
-       /* start cit4__EACHLIST */
-   for (/*_.DISPAIR__V129*/ curfptr[126] = melt_list_first(/*_.DISPOSABLIST__V106*/ curfptr[91]);
-	melt_magic_discr(/*_.DISPAIR__V129*/ curfptr[126]) == OBMAG_PAIR;
-        /*_.DISPAIR__V129*/ curfptr[126] = melt_pair_tail(/*_.DISPAIR__V129*/ curfptr[126])) {
-	/*_.DISPSTUFF__V130*/ curfptr[121] = melt_pair_head(/*_.DISPAIR__V129*/ curfptr[126]); 
-       
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4369:/ locexp");
-        meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.STUFFMAP__V14*/ curfptr[13]), 
-			      (meltobject_ptr_t)(/*_.DISPSTUFF__V130*/ curfptr[121]));}
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-genobj.melt:4370:/ cppif.then");
-        MELT_LOCATION("warmelt-genobj.melt:4370:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L42*/ curfnum[39] = 
-           callcount;;
-          MELT_LOCATION("warmelt-genobj.melt:4370:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-genobj.melt:4370:/ apply.arg");
-           argtab[0].bp_cstring =  "compilobj_nrep_match dispstuff";
-           MELT_LOCATION("warmelt-genobj.melt:4370:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L42*/ curfnum[39];
-           MELT_LOCATION("warmelt-genobj.melt:4370:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-genobj.melt";
-           MELT_LOCATION("warmelt-genobj.melt:4370:/ apply.arg");
-           argtab[3].bp_long = 4370;
-           /*_.DEBUG_MSG_FUN__V132*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISPSTUFF__V130*/ curfptr[121]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V131*/ curfptr[119] = /*_.DEBUG_MSG_FUN__V132*/ curfptr[111];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-genobj.melt:4370:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L42*/ curfnum[39] = 0 ;
-          MELT_LOCATION("warmelt-genobj.melt:4370:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V132*/ curfptr[111] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-genobj.melt:4370:/ cppif.else");
-        /*_.IFCPP___V131*/ curfptr[119] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-genobj.melt:4371:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-genobj.melt:4371:/ msend");
-         /*msend*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-genobj.melt:4371:/ ojbmsend.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-          /*_.DISPOBJ__V134*/ curfptr[114] = meltgc_send((melt_ptr_t)(/*_.DISPSTUFF__V130*/ curfptr[121]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-genobj.melt:4372:/ cppif.then");
-         MELT_LOCATION("warmelt-genobj.melt:4372:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L43*/ curfnum[33] = 
-            callcount;;
-           MELT_LOCATION("warmelt-genobj.melt:4372:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
-            argtab[0].bp_cstring =  "compilobj_nrep_match dispobj";
-            MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L43*/ curfnum[33];
-            MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-genobj.melt";
-            MELT_LOCATION("warmelt-genobj.melt:4372:/ apply.arg");
-            argtab[3].bp_long = 4372;
-            /*_.DEBUG_MSG_FUN__V136*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISPOBJ__V134*/ curfptr[114]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V135*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V136*/ curfptr[111];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4372:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L43*/ curfnum[33] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:4372:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V136*/ curfptr[111] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-genobj.melt:4372:/ cppif.else");
-         /*_.IFCPP___V135*/ curfptr[92] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-genobj.melt:4373:/ cppif.then");
-         MELT_LOCATION("warmelt-genobj.melt:4373:/ block");
-          /*block*/{
-           /*_#IS_A__L44*/ curfnum[17] = 
-            melt_is_instance_of((melt_ptr_t)(/*_.DISPOBJ__V134*/ curfptr[114]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[23])));;
-           MELT_LOCATION("warmelt-genobj.melt:4373:/ cond");
-           /*cond*/ if (/*_#IS_A__L44*/ curfnum[17]) /*then*/ {
-           MELT_LOCATION("warmelt-genobj.melt:4373:/ cond.then");
-           /*_.IFELSE___V138*/ curfptr[137] = (/*nil*/NULL);;
-           } else {MELT_LOCATION("warmelt-genobj.melt:4373:/ cond.else");
-           
-            MELT_LOCATION("warmelt-genobj.melt:4373:/ block");
-            /*block*/{
-             /*block*/{
-              
-              {
-              MELT_LOCATION("warmelt-genobj.melt:4373:/ locexp");
-              melt_assert_failed(( "check dispobj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4373)?(4373):__LINE__, __FUNCTION__);
-;}
-              ;
-              /*clear*/ /*_.IFELSE___V138*/ curfptr[137] = 0 ;}
-             ;
-             /*epilog*/}
-            ;
-            }
-           ;
-           /*_.IFCPP___V137*/ curfptr[111] = /*_.IFELSE___V138*/ curfptr[137];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
-           /*clear*/ /*_#IS_A__L44*/ curfnum[17] = 0 ;
-           MELT_LOCATION("warmelt-genobj.melt:4373:/ clear");
-           /*clear*/ /*_.IFELSE___V138*/ curfptr[137] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-genobj.melt:4373:/ cppif.else");
-         /*_.IFCPP___V137*/ curfptr[111] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         /*_#__L45*/ curfnum[39] = 
-          ((/*_.DISPOBJ__V134*/ curfptr[114]) != (/*_.OMATCHED__V44*/ curfptr[43]));;
-         MELT_LOCATION("warmelt-genobj.melt:4375:/ cond");
-         /*cond*/ if (/*_#__L45*/ curfnum[39]) /*then*/ {
-         MELT_LOCATION("warmelt-genobj.melt:4375:/ cond.then");
-         MELT_LOCATION("warmelt-genobj.melt:4375:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-genobj.melt:4376:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[1];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-genobj.melt:4376:/ apply.arg");
-            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-            /*_.DISPOSE_OBJLOC__V140*/ curfptr[139] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.DISPOBJ__V134*/ curfptr[114]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFELSE___V139*/ curfptr[137] = /*_.DISPOSE_OBJLOC__V140*/ curfptr[139];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4375:/ clear");
-           /*clear*/ /*_.DISPOSE_OBJLOC__V140*/ curfptr[139] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-genobj.melt:4375:/ cond.else");
-         
-          MELT_LOCATION("warmelt-genobj.melt:4375:/ block");
-          /*block*/{
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-genobj.melt:4377:/ cppif.then");
-           MELT_LOCATION("warmelt-genobj.melt:4377:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L46*/ curfnum[33] = 
-              callcount;;
-             MELT_LOCATION("warmelt-genobj.melt:4377:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-genobj.melt:4377:/ apply.arg");
-              argtab[0].bp_cstring =  "compilobj_nrep_match dont dispose omatched";
-              MELT_LOCATION("warmelt-genobj.melt:4377:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L46*/ curfnum[33];
-              MELT_LOCATION("warmelt-genobj.melt:4377:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-genobj.melt";
-              MELT_LOCATION("warmelt-genobj.melt:4377:/ apply.arg");
-              argtab[3].bp_long = 4377;
-              /*_.DEBUG_MSG_FUN__V142*/ curfptr[141] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMATCHED__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V141*/ curfptr[139] = /*_.DEBUG_MSG_FUN__V142*/ curfptr[141];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-genobj.melt:4377:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L46*/ curfnum[33] = 0 ;
-             MELT_LOCATION("warmelt-genobj.melt:4377:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V142*/ curfptr[141] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-genobj.melt:4377:/ cppif.else");
-           /*_.IFCPP___V141*/ curfptr[139] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           /*_.IFELSE___V139*/ curfptr[137] = /*_.IFCPP___V141*/ curfptr[139];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-genobj.melt:4375:/ clear");
-           /*clear*/ /*_.IFCPP___V141*/ curfptr[139] = 0 ;}
-          ;
-          }
-         ;
-         /*_.LET___V133*/ curfptr[117] = /*_.IFELSE___V139*/ curfptr[137];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-genobj.melt:4371:/ clear");
-         /*clear*/ /*_.DISPOBJ__V134*/ curfptr[114] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4371:/ clear");
-         /*clear*/ /*_.IFCPP___V135*/ curfptr[92] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4371:/ clear");
-         /*clear*/ /*_.IFCPP___V137*/ curfptr[111] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4371:/ clear");
-         /*clear*/ /*_#__L45*/ curfnum[39] = 0 ;
-         MELT_LOCATION("warmelt-genobj.melt:4371:/ clear");
-         /*clear*/ /*_.IFELSE___V139*/ curfptr[137] = 0 ;}
-        ;
-        } /* end cit4__EACHLIST */
-       
-        /*citerepilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4366:/ clear");
-        /*clear*/ /*_.DISPAIR__V129*/ curfptr[126] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4366:/ clear");
-        /*clear*/ /*_.DISPSTUFF__V130*/ curfptr[121] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4366:/ clear");
-        /*clear*/ /*_.IFCPP___V131*/ curfptr[119] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4366:/ clear");
-        /*clear*/ /*_.LET___V133*/ curfptr[117] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4316:/ clear");
-       /*clear*/ /*_.DISPOSABLIST__V106*/ curfptr[91] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4316:/ clear");
-       /*clear*/ /*_.IFCPP___V107*/ curfptr[90] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4316:/ clear");
-       /*clear*/ /*_#IS_A__L36*/ curfnum[32] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4316:/ clear");
-       /*clear*/ /*_.IFELSE___V109*/ curfptr[89] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-      /*clear*/ /*_.IFCPP___V80*/ curfptr[58] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-      /*clear*/ /*_.IFCPP___V82*/ curfptr[59] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-      /*clear*/ /*_.IFCPP___V84*/ curfptr[82] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-      /*clear*/ /*_.IFCPP___V86*/ curfptr[84] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-      /*clear*/ /*_#IS_LIST__L28*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-      /*clear*/ /*_.IFELSE___V88*/ curfptr[86] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4281:/ clear");
-     /*clear*/ /*_.CUROBDEST__V79*/ curfptr[61] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4272:/ clear");
-    /*clear*/ /*_.LABINS__V68*/ curfptr[66] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4272:/ clear");
-    /*clear*/ /*_.CURNMATCHED__V69*/ curfptr[62] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4272:/ clear");
-    /*clear*/ /*_.IFCPP___V70*/ curfptr[63] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4272:/ clear");
-    /*clear*/ /*_.LET___V72*/ curfptr[60] = 0 ;}
-   ;
-   if (/*_#TESTIX__L11*/ curfnum[0]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_.CUROTEST__V51*/ curfptr[49] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_#TESTIX__L11*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_#IS_A__L16*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4246:/ clear");
-   /*clear*/ /*_.IF___V58*/ curfptr[56] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4379:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OBODYL__V29*/ curfptr[17]), (melt_ptr_t)(/*_.OENDLABEL__V35*/ curfptr[34]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4381:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4381:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[26]);
-   /*_.LIST_TO_MULTIPLE__V143*/ curfptr[141] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.SUBCOMPLIST__V28*/ curfptr[20]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4380:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OMBLOC__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_OBJMULTIBLOCK*/ curfrout->tabval[6])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4380:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4380:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4380:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OMULBLO_SUBCOMP", melt_magic_discr((melt_ptr_t)(/*_.OMBLOC__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.OMBLOC__V30*/ curfptr[29]), (3), (/*_.LIST_TO_MULTIPLE__V143*/ curfptr[141]), "OMULBLO_SUBCOMP");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4380:/ touch");
-    meltgc_touch(/*_.OMBLOC__V30*/ curfptr[29]);
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4382:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4382:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L47*/ curfnum[17] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4382:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4382:/ apply.arg");
-     argtab[0].bp_cstring =  "compilobj_nrep_match return ombloc";
-     MELT_LOCATION("warmelt-genobj.melt:4382:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L47*/ curfnum[17];
-     MELT_LOCATION("warmelt-genobj.melt:4382:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4382:/ apply.arg");
-     argtab[3].bp_long = 4382;
-     /*_.DEBUG_MSG_FUN__V145*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OMBLOC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V144*/ curfptr[139] = /*_.DEBUG_MSG_FUN__V145*/ curfptr[114];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4382:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L47*/ curfnum[17] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4382:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V145*/ curfptr[114] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4382:/ cppif.else");
-  /*_.IFCPP___V144*/ curfptr[139] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4383:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OMBLOC__V30*/ curfptr[29];;
-   MELT_LOCATION("warmelt-genobj.melt:4383:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V146*/ curfptr[92];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.NLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.NCTYP__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.NTESTS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.STUFFMAP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.MATMAP__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.LET___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.MATLABEL__V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.LET___V24*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.ENDLABEL__V27*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.SUBCOMPLIST__V28*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.OBODYL__V29*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.OMBLOC__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.OFIRSTGOTO__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.OENDLABEL__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.TCX__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.DONETESTS__V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.COMPILE_OBJ__V43*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.OMATCHED__V44*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.LIST_TO_MULTIPLE__V143*/ curfptr[141] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.IFCPP___V144*/ curfptr[139] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4189:/ clear");
-  /*clear*/ /*_.RETURN___V146*/ curfptr[92] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4185:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:4185:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4185:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4185:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4185:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4185:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILOBJ_NREP_MATCH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_134_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_134_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4324:/ getarg");
- /*_.STUFF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4324:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.STUTESTS__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.STUTESTS__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4324:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4325:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4325:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4325:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4325:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_match succ stuff";
-    MELT_LOCATION("warmelt-genobj.melt:4325:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4325:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4325:/ apply.arg");
-    argtab[3].bp_long = 4325;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STUFF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4325:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4325:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4325:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4326:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4326:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4326:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4326:/ apply.arg");
-    argtab[0].bp_cstring =  "compilobj_nrep_match succ stutest";
-    MELT_LOCATION("warmelt-genobj.melt:4326:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4326:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4326:/ apply.arg");
-    argtab[3].bp_long = 4326;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STUTESTS__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4326:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4326:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4326:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#__L3*/ curfnum[0] = 
-  ((/*_.STUFF__V2*/ curfptr[1]) != ((/*~OMATCHED*/ curfclos->tabval[0])));;
- MELT_LOCATION("warmelt-genobj.melt:4327:/ cond");
- /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4327:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4327:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4328:/ block");
-   /*block*/{
-    /*_.REMSTUFF__V8*/ curfptr[6] = /*_.STUFF__V2*/ curfptr[1];;
-    /*citerblock FOREACH_IN_LIST*/ {
-    /* start cit1__EACHLIST */
-   for (/*_.TESTPAIR__V9*/ curfptr[8] = melt_list_first(/*_.STUTESTS__V3*/ curfptr[2]);
-	melt_magic_discr(/*_.TESTPAIR__V9*/ curfptr[8]) == OBMAG_PAIR;
-        /*_.TESTPAIR__V9*/ curfptr[8] = melt_pair_tail(/*_.TESTPAIR__V9*/ curfptr[8])) {
-	/*_.CURTEST__V10*/ curfptr[9] = melt_pair_head(/*_.TESTPAIR__V9*/ curfptr[8]); 
-    
-     MELT_LOCATION("warmelt-genobj.melt:4332:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4332:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURTEST__V10*/ curfptr[9];
-      /*_.LIST_FIND__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_FIND*/ curfrout->tabval[1])), (melt_ptr_t)((/*~DONETESTS*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4332:/ cond");
-     /*cond*/ if (/*_.LIST_FIND__V11*/ curfptr[10]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4332:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:4332:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:4333:/ compute");
-       /*_.TESTPAIR__V9*/ curfptr[8] = /*_.SETQ___V13*/ curfptr[12] = (/*nil*/NULL);;
-       /*_.IFELSE___V12*/ curfptr[11] = /*_.SETQ___V13*/ curfptr[12];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4332:/ clear");
-       /*clear*/ /*_.SETQ___V13*/ curfptr[12] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4332:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4332:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:4334:/ compute");
-       /*_.REMSTUFF__V8*/ curfptr[6] = /*_.SETQ___V14*/ curfptr[12] = (/*nil*/NULL);;
-       /*_.IFELSE___V12*/ curfptr[11] = /*_.SETQ___V14*/ curfptr[12];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4332:/ clear");
-       /*clear*/ /*_.SETQ___V14*/ curfptr[12] = 0 ;}
-      ;
-      }
-     ;
-     } /* end cit1__EACHLIST */
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4329:/ clear");
-     /*clear*/ /*_.TESTPAIR__V9*/ curfptr[8] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4329:/ clear");
-     /*clear*/ /*_.CURTEST__V10*/ curfptr[9] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4329:/ clear");
-     /*clear*/ /*_.LIST_FIND__V11*/ curfptr[10] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4329:/ clear");
-     /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4336:/ cond");
-    /*cond*/ if (/*_.REMSTUFF__V8*/ curfptr[6]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4336:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4336:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4337:/ locexp");
-      meltgc_append_list((melt_ptr_t)((/*~DISPOSABLIST*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.REMSTUFF__V8*/ curfptr[6]));}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4328:/ clear");
-    /*clear*/ /*_.REMSTUFF__V8*/ curfptr[6] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4324:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4324:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4324:/ clear");
- /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_134_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMTESTER_LABELINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4389:/ getarg");
- /*_.NT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4389:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4389:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4390:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4390:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4390:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4390:/ apply.arg");
-    argtab[0].bp_cstring =  "normtester_labelinstr start nt";
-    MELT_LOCATION("warmelt-genobj.melt:4390:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4390:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4390:/ apply.arg");
-    argtab[3].bp_long = 4390;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4390:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4390:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4390:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4391:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4391:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4391:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4391:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4391:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4391:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4391:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4391)?(4391):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4391:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4391:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#IS_NOT_A__L3*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[2])));;
- MELT_LOCATION("warmelt-genobj.melt:4392:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4392:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4392:/ block");
-  /*block*/{
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4394:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4394:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4394:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4394:/ apply.arg");
-      argtab[0].bp_cstring =  "normtester_labelinstr return nil";
-      MELT_LOCATION("warmelt-genobj.melt:4394:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-      MELT_LOCATION("warmelt-genobj.melt:4394:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4394:/ apply.arg");
-      argtab[3].bp_long = 4394;
-      /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4394:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4394:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4394:/ cppif.else");
-   /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4395:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-genobj.melt:4395:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4393:/ block");
-   /*block*/{
-    /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[9];;}
-   ;
-   /*_.IF___V8*/ curfptr[6] = /*_.PROGN___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4392:/ clear");
-   /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4392:/ clear");
-   /*clear*/ /*_.RETURN___V11*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4392:/ clear");
-   /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:4392:/ cond.else");
- 
-  /*_.IF___V8*/ curfptr[6] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:4396:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4397:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[9] = slot; };
-  ;
-  /*_#NTESTIX__L5*/ curfnum[3] = 
-   (melt_get_int((melt_ptr_t)(/*_.NT__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4399:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V15*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4400:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V16*/ curfptr[15] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4402:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4402:/ block");
-   /*block*/{
-    /*_#IS_A__L6*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:4402:/ cond");
-    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4402:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4402:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4402:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4402:/ locexp");
-       melt_assert_failed(( "check normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4402)?(4402):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4402:/ clear");
-    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4402:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4402:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4403:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4403:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4404:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4404:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4404:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), 2, "NMATCH_TESTS");/*_.NMATCH_TESTS__V20*/ curfptr[19] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4404:/ cond.else");
-    
-     /*_.NMATCH_TESTS__V20*/ curfptr[19] = NULL;;
-     }
-    ;
-    /*_.MULTIPLE_NTH__V21*/ curfptr[20] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.NMATCH_TESTS__V20*/ curfptr[19]), (/*_#NTESTIX__L5*/ curfnum[3])));;
-    /*_#__L7*/ curfnum[5] = 
-     ((/*_.MULTIPLE_NTH__V21*/ curfptr[20]) == (/*_.NT__V2*/ curfptr[1]));;
-    MELT_LOCATION("warmelt-genobj.melt:4403:/ cond");
-    /*cond*/ if (/*_#__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4403:/ cond.then");
-    /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4403:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4403:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4403:/ locexp");
-       melt_assert_failed(( "check valid normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4403)?(4403):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4403:/ clear");
-    /*clear*/ /*_.NMATCH_TESTS__V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4403:/ clear");
-    /*clear*/ /*_.MULTIPLE_NTH__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4403:/ clear");
-    /*clear*/ /*_#__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4403:/ clear");
-    /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4403:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4407:/ block");
-  /*block*/{
-   /*_.PREFIX__V24*/ curfptr[20] = 
-    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V16*/ curfptr[15]), (meltobject_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]));;
-   MELT_LOCATION("warmelt-genobj.melt:4409:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4409:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJLABELINSTR");/*_.INST__V26*/ curfptr[25] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4409:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (0), (/*_.NLOC__V14*/ curfptr[9]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4409:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBLAB_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.PREFIX__V24*/ curfptr[20]), "OBLAB_PREFIX");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4409:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBLAB_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (2), (/*_.NT__V2*/ curfptr[1]), "OBLAB_RANK");
-    ;
-    /*_.LABINS__V25*/ curfptr[21] = /*_.INST__V26*/ curfptr[25];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4414:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4414:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4414:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4414:/ apply.arg");
-      argtab[0].bp_cstring =  "normtester_labelinstr result labins";
-      MELT_LOCATION("warmelt-genobj.melt:4414:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:4414:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4414:/ apply.arg");
-      argtab[3].bp_long = 4414;
-      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LABINS__V25*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4414:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4414:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4414:/ cppif.else");
-   /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4415:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4415:/ block");
-    /*block*/{
-     /*_#IS_STRING__L9*/ curfnum[5] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V24*/ curfptr[20])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-genobj.melt:4415:/ cond");
-     /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4415:/ cond.then");
-     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4415:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4415:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4415:/ locexp");
-        melt_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4415)?(4415):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4415:/ clear");
-     /*clear*/ /*_#IS_STRING__L9*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4415:/ clear");
-     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4415:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4416:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.LABINS__V25*/ curfptr[21];;
-    MELT_LOCATION("warmelt-genobj.melt:4416:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V23*/ curfptr[19] = /*_.RETURN___V31*/ curfptr[29];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4407:/ clear");
-   /*clear*/ /*_.PREFIX__V24*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4407:/ clear");
-   /*clear*/ /*_.LABINS__V25*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4407:/ clear");
-   /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4407:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4407:/ clear");
-   /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[8] = /*_.LET___V23*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_.NLOC__V14*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_#NTESTIX__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_.NORMATCH__V15*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_.MATCHMAP__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4396:/ clear");
-  /*clear*/ /*_.LET___V23*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4389:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:4389:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4389:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4389:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4389:/ clear");
- /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4389:/ clear");
- /*clear*/ /*_.IF___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4389:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMTESTER_LABELINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMTESTER_GOTOINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4421:/ getarg");
- /*_.NT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4421:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4421:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4422:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4422:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4422:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4422:/ apply.arg");
-    argtab[0].bp_cstring =  "normtester_gotoinstr start nt";
-    MELT_LOCATION("warmelt-genobj.melt:4422:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4422:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4422:/ apply.arg");
-    argtab[3].bp_long = 4422;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4422:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4422:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4422:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4423:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4423:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4423:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4423:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4423:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4423:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4423:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4423)?(4423):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4423:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4423:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#IS_NOT_A__L3*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[2])));;
- MELT_LOCATION("warmelt-genobj.melt:4424:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4424:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4424:/ block");
-  /*block*/{
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4426:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4426:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4426:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4426:/ apply.arg");
-      argtab[0].bp_cstring =  "normtester_gotoinstr return nil";
-      MELT_LOCATION("warmelt-genobj.melt:4426:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-      MELT_LOCATION("warmelt-genobj.melt:4426:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4426:/ apply.arg");
-      argtab[3].bp_long = 4426;
-      /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4426:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4426:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4426:/ cppif.else");
-   /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4427:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-genobj.melt:4427:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4425:/ block");
-   /*block*/{
-    /*_.PROGN___V12*/ curfptr[11] = /*_.RETURN___V11*/ curfptr[9];;}
-   ;
-   /*_.IF___V8*/ curfptr[6] = /*_.PROGN___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4424:/ clear");
-   /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4424:/ clear");
-   /*clear*/ /*_.RETURN___V11*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4424:/ clear");
-   /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:4424:/ cond.else");
- 
-  /*_.IF___V8*/ curfptr[6] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:4428:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4429:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[9] = slot; };
-  ;
-  /*_#NTESTIX__L5*/ curfnum[3] = 
-   (melt_get_int((melt_ptr_t)(/*_.NT__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4431:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V15*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4432:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V16*/ curfptr[15] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4434:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4434:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4434:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4434:/ apply.arg");
-     argtab[0].bp_cstring =  "normtester_gotoinstr normatch";
-     MELT_LOCATION("warmelt-genobj.melt:4434:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4434:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4434:/ apply.arg");
-     argtab[3].bp_long = 4434;
-     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4434:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4434:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4434:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4435:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4435:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-genobj.melt:4435:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4435:/ cond.then");
-    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4435:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4435:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4435:/ locexp");
-       melt_assert_failed(( "check normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4435)?(4435):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4435:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4435:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4435:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4436:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4436:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4437:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[3])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4437:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4437:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]), 2, "NMATCH_TESTS");/*_.NMATCH_TESTS__V22*/ curfptr[21] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4437:/ cond.else");
-    
-     /*_.NMATCH_TESTS__V22*/ curfptr[21] = NULL;;
-     }
-    ;
-    /*_.MULTIPLE_NTH__V23*/ curfptr[22] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.NMATCH_TESTS__V22*/ curfptr[21]), (/*_#NTESTIX__L5*/ curfnum[3])));;
-    /*_#__L8*/ curfnum[5] = 
-     ((/*_.MULTIPLE_NTH__V23*/ curfptr[22]) == (/*_.NT__V2*/ curfptr[1]));;
-    MELT_LOCATION("warmelt-genobj.melt:4436:/ cond");
-    /*cond*/ if (/*_#__L8*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4436:/ cond.then");
-    /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4436:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4436:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4436:/ locexp");
-       melt_assert_failed(( "check valid normatch"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4436)?(4436):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4436:/ clear");
-    /*clear*/ /*_.NMATCH_TESTS__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4436:/ clear");
-    /*clear*/ /*_.MULTIPLE_NTH__V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4436:/ clear");
-    /*clear*/ /*_#__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4436:/ clear");
-    /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4436:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4440:/ block");
-  /*block*/{
-   /*_.PREFIX__V26*/ curfptr[22] = 
-    melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V16*/ curfptr[15]), (meltobject_ptr_t)(/*_.NORMATCH__V15*/ curfptr[11]));;
-   MELT_LOCATION("warmelt-genobj.melt:4442:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4442:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V28*/ curfptr[27] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4442:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.NLOC__V14*/ curfptr[9]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4442:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.PREFIX__V26*/ curfptr[22]), "OBGOTO_PREFIX");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4442:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.NT__V2*/ curfptr[1]), "OBGOTO_RANK");
-    ;
-    /*_.GOINS__V27*/ curfptr[23] = /*_.INST__V28*/ curfptr[27];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4447:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4447:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4447:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4447:/ apply.arg");
-      argtab[0].bp_cstring =  "normtester_gotoinstr result goins";
-      MELT_LOCATION("warmelt-genobj.melt:4447:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:4447:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4447:/ apply.arg");
-      argtab[3].bp_long = 4447;
-      /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOINS__V27*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4447:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4447:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4447:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4448:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4448:/ block");
-    /*block*/{
-     /*_#IS_STRING__L10*/ curfnum[5] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V26*/ curfptr[22])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-genobj.melt:4448:/ cond");
-     /*cond*/ if (/*_#IS_STRING__L10*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4448:/ cond.then");
-     /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4448:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4448:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4448:/ locexp");
-        melt_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4448)?(4448):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4448:/ clear");
-     /*clear*/ /*_#IS_STRING__L10*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4448:/ clear");
-     /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4448:/ cppif.else");
-   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4449:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V27*/ curfptr[23];;
-    MELT_LOCATION("warmelt-genobj.melt:4449:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V25*/ curfptr[21] = /*_.RETURN___V33*/ curfptr[31];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4440:/ clear");
-   /*clear*/ /*_.PREFIX__V26*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4440:/ clear");
-   /*clear*/ /*_.GOINS__V27*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4440:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4440:/ clear");
-   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4440:/ clear");
-   /*clear*/ /*_.RETURN___V33*/ curfptr[31] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[8] = /*_.LET___V25*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.NLOC__V14*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_#NTESTIX__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.NORMATCH__V15*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.MATCHMAP__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4428:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4421:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[8];;
-  MELT_LOCATION("warmelt-genobj.melt:4421:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4421:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4421:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4421:/ clear");
- /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4421:/ clear");
- /*clear*/ /*_.IF___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4421:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMTESTER_GOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("ENDMATCH_GOTOINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4454:/ getarg");
- /*_.NMA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4454:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4454:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NLOC__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4454:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4455:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4455:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:4455:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4455:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4455:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4455:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4455:/ locexp");
-      melt_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4455)?(4455):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4455:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4455:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4455:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4456:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4456:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4456:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4456:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4456:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4456:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4456:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4456)?(4456):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4456:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4456:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4456:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4457:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4457:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4457:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4457:/ apply.arg");
-    argtab[0].bp_cstring =  "endmatch_gotoinstr nma";
-    MELT_LOCATION("warmelt-genobj.melt:4457:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4457:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4457:/ apply.arg");
-    argtab[3].bp_long = 4457;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4457:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4457:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4457:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:4458:/ locexp");
-  
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "endmatch_gotoinstr"), (15));
-#endif
-;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4459:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4460:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V12*/ curfptr[11] = slot; };
-  ;
-  /*_.PREFIX__V13*/ curfptr[12] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V12*/ curfptr[11]), (meltobject_ptr_t)(/*_.NMA__V2*/ curfptr[1]));;
-  /*_.LABUF__V14*/ curfptr[13] = 
-   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[3])), (char*)0);;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4464:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V14*/ curfptr[13]), melt_string_str((melt_ptr_t)(/*_.PREFIX__V13*/ curfptr[12])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4465:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V14*/ curfptr[13]), ( "_end /*endmatch*/"));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4466:/ block");
-  /*block*/{
-   /*_.STRBUF2STRING__V16*/ curfptr[15] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V14*/ curfptr[13]))));;
-   MELT_LOCATION("warmelt-genobj.melt:4467:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4467:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[4])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V18*/ curfptr[17] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4467:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.NLOC__V4*/ curfptr[3]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4467:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.STRBUF2STRING__V16*/ curfptr[15]), "OBGOTO_PREFIX");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4467:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), ((/*nil*/NULL)), "OBGOTO_RANK");
-    ;
-    /*_.GOINS__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4473:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4473:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4473:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4473:/ apply.arg");
-      argtab[0].bp_cstring =  "endmatch_gotoinstr goins";
-      MELT_LOCATION("warmelt-genobj.melt:4473:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:4473:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4473:/ apply.arg");
-      argtab[3].bp_long = 4473;
-      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GOINS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4473:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4473:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4473:/ cppif.else");
-   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4474:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V17*/ curfptr[16];;
-    MELT_LOCATION("warmelt-genobj.melt:4474:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V15*/ curfptr[14] = /*_.RETURN___V21*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4466:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4466:/ clear");
-   /*clear*/ /*_.GOINS__V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4466:/ clear");
-   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4466:/ clear");
-   /*clear*/ /*_.RETURN___V21*/ curfptr[19] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V15*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4459:/ clear");
-  /*clear*/ /*_.MATCHMAP__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4459:/ clear");
-  /*clear*/ /*_.PREFIX__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4459:/ clear");
-  /*clear*/ /*_.LABUF__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4459:/ clear");
-  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4454:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-genobj.melt:4454:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4454:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4454:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4454:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4454:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("ENDMATCH_GOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 24
-  void* varptr[24];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<24; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 24;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("TESTMATCH_GOTOINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4478:/ getarg");
- /*_.NTEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4478:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NMA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NMA__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4478:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-genobj.melt:4478:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.NLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4478:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4479:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4479:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4479:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4479:/ apply.arg");
-    argtab[0].bp_cstring =  "testmatch_gotoinstr ntest";
-    MELT_LOCATION("warmelt-genobj.melt:4479:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4479:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4479:/ apply.arg");
-    argtab[3].bp_long = 4479;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTEST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4479:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4479:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4479:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4480:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4480:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4480:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4480:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4480:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4480:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4480:/ locexp");
-      melt_assert_failed(( "check ntest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4480)?(4480):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4480:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4480:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4481:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4481:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMA__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP_MATCH*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4481:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4481:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4481:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4481:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4481:/ locexp");
-      melt_assert_failed(( "check nma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4481)?(4481):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4481:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4481:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4481:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4482:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4482:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4482:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4482:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4482:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4482:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4482:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4482)?(4482):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4482:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4482:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4482:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:4483:/ locexp");
-  
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "testmatch_gotoinstr"), (15));
-#endif
-;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4484:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4485:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.PREFIX__V16*/ curfptr[15] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V15*/ curfptr[14]), (meltobject_ptr_t)(/*_.NMA__V3*/ curfptr[2]));;
-  /*_.LABUF__V17*/ curfptr[16] = 
-   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4489:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]), melt_string_str((melt_ptr_t)(/*_.PREFIX__V16*/ curfptr[15])));}
-  ;
-  /*_#GET_INT__L5*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.NTEST__V2*/ curfptr[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4490:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]), (/*_#GET_INT__L5*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4491:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]), ( " /*testmatch*/"));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4492:/ block");
-  /*block*/{
-   /*_.STRBUF2STRING__V19*/ curfptr[18] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[6])), melt_strbuf_str((melt_ptr_t)(/*_.LABUF__V17*/ curfptr[16]))));;
-   MELT_LOCATION("warmelt-genobj.melt:4493:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4493:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[5])), (3), "CLASS_OBJGOTOINSTR");/*_.INST__V21*/ curfptr[20] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.NLOC__V5*/ curfptr[4]), "OBI_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBGOTO_PREFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.STRBUF2STRING__V19*/ curfptr[18]), "OBGOTO_PREFIX");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4493:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBGOTO_RANK", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), ((/*nil*/NULL)), "OBGOTO_RANK");
-    ;
-    /*_.GOINS__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4499:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4499:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4499:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4499:/ apply.arg");
-      argtab[0].bp_cstring =  "testmatch_gotoinstr goins";
-      MELT_LOCATION("warmelt-genobj.melt:4499:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:4499:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4499:/ apply.arg");
-      argtab[3].bp_long = 4499;
-      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOINS__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4499:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4499:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4499:/ cppif.else");
-   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4500:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.GOINS__V20*/ curfptr[19];;
-    MELT_LOCATION("warmelt-genobj.melt:4500:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V18*/ curfptr[17] = /*_.RETURN___V24*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4492:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4492:/ clear");
-   /*clear*/ /*_.GOINS__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4492:/ clear");
-   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4492:/ clear");
-   /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V18*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
-  /*clear*/ /*_.MATCHMAP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
-  /*clear*/ /*_.PREFIX__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
-  /*clear*/ /*_.LABUF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4484:/ clear");
-  /*clear*/ /*_.LET___V18*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4478:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-genobj.melt:4478:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4478:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4478:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4478:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4478:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4478:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("TESTMATCH_GOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 26
-  void* varptr[26];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<26; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 26;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMTESTER_FREE_OBJLOC_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4504:/ getarg");
- /*_.NT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4504:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4504:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4504:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4505:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4505:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4505:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4505:/ apply.arg");
-    argtab[0].bp_cstring =  "normtester_free_objloc_list nt";
-    MELT_LOCATION("warmelt-genobj.melt:4505:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4505:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4505:/ apply.arg");
-    argtab[3].bp_long = 4505;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4505:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4505:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4505:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4506:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4506:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4506:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4506:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4506:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4506:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4506:/ locexp");
-      melt_assert_failed(( "check nt"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4506)?(4506):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4506:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4506:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4507:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4507:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4507:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4507:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4507:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4507:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4507:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4507)?(4507):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4507:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4507:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4507:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4508:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4508:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4508:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4508:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4508:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4508:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4508:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4508)?(4508):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4508:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4508:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4508:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4509:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4510:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NT__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCLIST__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4511:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 1, "GNCX_LOCMAP");/*_.LOCMAP__V15*/ curfptr[14] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4513:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4513:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4513:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4513:/ apply.arg");
-     argtab[0].bp_cstring =  "normtester_free_objloc_list nloclist";
-     MELT_LOCATION("warmelt-genobj.melt:4513:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4513:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4513:/ apply.arg");
-     argtab[3].bp_long = 4513;
-     /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCLIST__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4513:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4513:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4513:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4514:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4517:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4517:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (2));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4517:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4517:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.LOCMAP__V15*/ curfptr[14]);
-    ;
-    /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4515:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4515:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18];
-    /*_.FREELIST__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NLOCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4528:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4528:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4528:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), 2, "TCX_FREELIST");/*_.TCX_FREELIST__V22*/ curfptr[21] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4528:/ cond.else");
-   
-    /*_.TCX_FREELIST__V22*/ curfptr[21] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4528:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4528:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FREELIST__V21*/ curfptr[20];
-    /*_.LIST_APPEND2LIST__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.TCX_FREELIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4529:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4529:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4529:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4529:/ apply.arg");
-      argtab[0].bp_cstring =  "normtester_free_objloc_list result freelist";
-      MELT_LOCATION("warmelt-genobj.melt:4529:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:4529:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4529:/ apply.arg");
-      argtab[3].bp_long = 4529;
-      /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FREELIST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4529:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4529:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4529:/ cppif.else");
-   /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4530:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.FREELIST__V21*/ curfptr[20];;
-    MELT_LOCATION("warmelt-genobj.melt:4530:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V18*/ curfptr[16] = /*_.RETURN___V26*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4514:/ clear");
-   /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4514:/ clear");
-   /*clear*/ /*_.FREELIST__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4514:/ clear");
-   /*clear*/ /*_.TCX_FREELIST__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4514:/ clear");
-   /*clear*/ /*_.LIST_APPEND2LIST__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4514:/ clear");
-   /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4514:/ clear");
-   /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.LET___V18*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4509:/ clear");
-  /*clear*/ /*_.NLOCLIST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4509:/ clear");
-  /*clear*/ /*_.LOCMAP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4509:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4509:/ clear");
-  /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4504:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:4504:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4504:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4504:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4504:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4504:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4504:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMTESTER_FREE_OBJLOC_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_140_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_140_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4517:/ getarg");
- /*_.NLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4517:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4518:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4518:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-genobj.melt:4518:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4518:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4518:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4518:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4518:/ locexp");
-      melt_assert_failed(( "check nloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4518)?(4518):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4518:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4518:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4518:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4519:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4521:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4521:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4521:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 1, "NOCC_SYMB");/*_.NOCC_SYMB__V6*/ curfptr[5] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4521:/ cond.else");
-  
-   /*_.NOCC_SYMB__V6*/ curfptr[5] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4522:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4522:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4522:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V7*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4522:/ cond.else");
-  
-   /*_.NOCC_CTYP__V7*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4520:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4520:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOCC_SYMB__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-genobj.melt:4520:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NOCC_CTYP__V7*/ curfptr[6];
-   /*_.OBLO__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCTYPED*/ curfrout->tabval[1])), (melt_ptr_t)((/*~GCX*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4524:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4524:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4524:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLOC__V2*/ curfptr[1]), 3, "NOCC_BIND");/*_.NOCC_BIND__V9*/ curfptr[8] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4524:/ cond.else");
-  
-   /*_.NOCC_BIND__V9*/ curfptr[8] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4524:/ locexp");
-  meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~LOCMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.NOCC_BIND__V9*/ curfptr[8]), 
-			   (melt_ptr_t)(/*_.OBLO__V8*/ curfptr[7]));}
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.OBLO__V8*/ curfptr[7];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4519:/ clear");
-  /*clear*/ /*_.NOCC_SYMB__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4519:/ clear");
-  /*clear*/ /*_.NOCC_CTYP__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4519:/ clear");
-  /*clear*/ /*_.OBLO__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4519:/ clear");
-  /*clear*/ /*_.NOCC_BIND__V9*/ curfptr[8] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4517:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-genobj.melt:4517:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4517:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4517:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_140_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_NORMTESTER_ANY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4535:/ getarg");
- /*_.NTA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4535:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4535:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4535:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4536:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4536:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4536:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4536:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_any nta";
-    MELT_LOCATION("warmelt-genobj.melt:4536:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4536:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4536:/ apply.arg");
-    argtab[3].bp_long = 4536;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4536:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4536:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4536:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4537:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[1])))) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4537:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4537:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NREP_LOC__V7*/ curfptr[5] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:4537:/ cond.else");
- 
-  /*_.NREP_LOC__V7*/ curfptr[5] = NULL;;
-  }
- ;
- /*_.DISCRIM__V8*/ curfptr[7] = 
-  (melt_discr((melt_ptr_t)(/*_.NTA__V2*/ curfptr[1])));;
- MELT_LOCATION("warmelt-genobj.melt:4539:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4539:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4539:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V8*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:4539:/ cond.else");
- 
-  /*_.NAMED_NAME__V9*/ curfptr[8] = NULL;;
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-genobj.melt:4537:/ locexp");
- melt_error_str((melt_ptr_t)(/*_.NREP_LOC__V7*/ curfptr[5]), ( "**UNIMPLEMENTED normal tester compilation "), (melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8]));}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4540:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4540:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4540:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4540:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4540:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4540:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4540:/ locexp");
-      melt_assert_failed(( "@$@UNIMPLEMENTED normal tester compilation"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4540)?(4540):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4540:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4540:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4535:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[9];;
-  MELT_LOCATION("warmelt-genobj.melt:4535:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4535:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4535:/ clear");
- /*clear*/ /*_.NREP_LOC__V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4535:/ clear");
- /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4535:/ clear");
- /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4535:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_NORMTESTER_ANY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 78
-  void* varptr[78];
-#define CURFRAM_NBVARNUM 20
-  long varnum[20];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<78; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 78;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_NORMTESTER_MATCHER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4545:/ getarg");
- /*_.NTMA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4545:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4545:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4545:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4546:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4546:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4546:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4546:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_matcher ntma";
-    MELT_LOCATION("warmelt-genobj.melt:4546:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4546:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4546:/ apply.arg");
-    argtab[3].bp_long = 4546;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4546:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4546:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4546:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4547:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4547:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4547:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4547:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4547:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4547:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4547:/ locexp");
-      melt_assert_failed(( "check ntma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4547)?(4547):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4547:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4547:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4548:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4548:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4548:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4548:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4548:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4548:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4548:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4548)?(4548):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4548:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4548:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4548:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4549:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4549:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4549:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4549:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4549:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4549:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4549:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4549)?(4549):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4549:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4549:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4549:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4550:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4551:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4552:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4553:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4554:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4555:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 7, "NTMATCH_MATCHER");/*_.NMATCHER__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4556:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 9, "NTMATCH_INARGS");/*_.NINS__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4557:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 10, "NTMATCH_OUTLOCS");/*_.NOUTS__V20*/ curfptr[19] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4558:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V21*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4559:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4559:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.GOTOTHEN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4560:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4560:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.GOTOELSE__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.OLIST__V24*/ curfptr[23] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  MELT_LOCATION("warmelt-genobj.melt:4562:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), 8, "GNCX_MATCHMAP");/*_.MATCHMAP__V25*/ curfptr[24] = slot; };
-  ;
-  /*_.PREFIX__V26*/ curfptr[25] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MATCHMAP__V25*/ curfptr[24]), (meltobject_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]));;
-  MELT_LOCATION("warmelt-genobj.melt:4564:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4564:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-genobj.melt:4564:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ curfptr[3];
-   /*_.FREELIST__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NTMA__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4565:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4565:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4565:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), 3, "TCX_NEXTEST");/*_.NEXTEST__V28*/ curfptr[27] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4565:/ cond.else");
-  
-   /*_.NEXTEST__V28*/ curfptr[27] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4567:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4567:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4567:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4567:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher matchmap";
-     MELT_LOCATION("warmelt-genobj.melt:4567:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4567:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4567:/ apply.arg");
-     argtab[3].bp_long = 4567;
-     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MATCHMAP__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4567:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4567:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4567:/ cppif.else");
-  /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4568:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4568:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4568:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4568:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher nextest";
-     MELT_LOCATION("warmelt-genobj.melt:4568:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4568:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4568:/ apply.arg");
-     argtab[3].bp_long = 4568;
-     /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXTEST__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4568:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4568:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4568:/ cppif.else");
-  /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4569:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4569:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4569:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher unfixed gotothen";
-     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4569:/ apply.arg");
-     argtab[3].bp_long = 4569;
-     /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOTHEN__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4569:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4569:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4569:/ cppif.else");
-  /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#NULL__L8*/ curfnum[0] = 
-   ((/*_.GOTOTHEN__V22*/ curfptr[21]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:4570:/ cond");
-  /*cond*/ if (/*_#NULL__L8*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4570:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4570:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4571:/ locexp");
-     
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "compiltst_normtester_matcher null gotothen"), (14));
-#endif
-;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4573:/ cond");
-    /*cond*/ if (/*_.NEXTEST__V28*/ curfptr[27]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4573:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4573:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4574:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4574:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NORMATCH__V21*/ curfptr[20];
-       MELT_LOCATION("warmelt-genobj.melt:4574:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-genobj.melt:4574:/ apply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-       /*_.TESTMATCH_GOTOINSTR__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!TESTMATCH_GOTOINSTR*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NEXTEST__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFELSE___V36*/ curfptr[35] = /*_.TESTMATCH_GOTOINSTR__V37*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4573:/ clear");
-      /*clear*/ /*_.TESTMATCH_GOTOINSTR__V37*/ curfptr[36] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4573:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4573:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4575:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4575:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-genobj.melt:4575:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-       /*_.ENDMATCH_GOTOINSTR__V38*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFELSE___V36*/ curfptr[35] = /*_.ENDMATCH_GOTOINSTR__V38*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4573:/ clear");
-      /*clear*/ /*_.ENDMATCH_GOTOINSTR__V38*/ curfptr[36] = 0 ;}
-     ;
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4572:/ compute");
-    /*_.GOTOTHEN__V22*/ curfptr[21] = /*_.SETQ___V39*/ curfptr[36] = /*_.IFELSE___V36*/ curfptr[35];;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4576:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4576:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4576:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
-       argtab[0].bp_cstring =  "compiltst_normtester_matcher fixed gotothen";
-       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4576:/ apply.arg");
-       argtab[3].bp_long = 4576;
-       /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOTHEN__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4576:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4576:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4576:/ cppif.else");
-    /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:4570:/ block");
-    /*block*/{
-     /*_.PROGN___V42*/ curfptr[40] = /*_.IFCPP___V40*/ curfptr[39];;}
-    ;
-    /*_.IFELSE___V35*/ curfptr[33] = /*_.PROGN___V42*/ curfptr[40];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4570:/ clear");
-    /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4570:/ clear");
-    /*clear*/ /*_.SETQ___V39*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4570:/ clear");
-    /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4570:/ clear");
-    /*clear*/ /*_.PROGN___V42*/ curfptr[40] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4570:/ cond.else");
-  
-   /*_.IFELSE___V35*/ curfptr[33] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4578:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4578:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4578:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher unfixed gotoelse";
-     MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-     MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4578:/ apply.arg");
-     argtab[3].bp_long = 4578;
-     /*_.DEBUG_MSG_FUN__V44*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V43*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[36];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4578:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4578:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[36] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4578:/ cppif.else");
-  /*_.IFCPP___V43*/ curfptr[35] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#NULL__L11*/ curfnum[8] = 
-   ((/*_.GOTOELSE__V23*/ curfptr[22]) == NULL);;
-  MELT_LOCATION("warmelt-genobj.melt:4579:/ cond");
-  /*cond*/ if (/*_#NULL__L11*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4579:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4579:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4580:/ locexp");
-     
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "compiltst_normtester_matcher null gotoelse"), (14));
-#endif
-;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4582:/ cond");
-    /*cond*/ if (/*_.NEXTEST__V28*/ curfptr[27]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4582:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4582:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4583:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4583:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NORMATCH__V21*/ curfptr[20];
-       MELT_LOCATION("warmelt-genobj.melt:4583:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-genobj.melt:4583:/ apply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-       /*_.TESTMATCH_GOTOINSTR__V47*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!TESTMATCH_GOTOINSTR*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NEXTEST__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFELSE___V46*/ curfptr[40] = /*_.TESTMATCH_GOTOINSTR__V47*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4582:/ clear");
-      /*clear*/ /*_.TESTMATCH_GOTOINSTR__V47*/ curfptr[36] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4582:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4582:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4584:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4584:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-genobj.melt:4584:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-       /*_.ENDMATCH_GOTOINSTR__V48*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFELSE___V46*/ curfptr[40] = /*_.ENDMATCH_GOTOINSTR__V48*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4582:/ clear");
-      /*clear*/ /*_.ENDMATCH_GOTOINSTR__V48*/ curfptr[36] = 0 ;}
-     ;
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4581:/ compute");
-    /*_.GOTOELSE__V23*/ curfptr[22] = /*_.SETQ___V49*/ curfptr[36] = /*_.IFELSE___V46*/ curfptr[40];;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4585:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4585:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4585:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
-       argtab[0].bp_cstring =  "compiltst_normtester_matcher fixed gotoelse";
-       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
-       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4585:/ apply.arg");
-       argtab[3].bp_long = 4585;
-       /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4585:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4585:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4585:/ cppif.else");
-    /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:4579:/ block");
-    /*block*/{
-     /*_.PROGN___V52*/ curfptr[50] = /*_.IFCPP___V50*/ curfptr[49];;}
-    ;
-    /*_.IFELSE___V45*/ curfptr[39] = /*_.PROGN___V52*/ curfptr[50];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4579:/ clear");
-    /*clear*/ /*_.IFELSE___V46*/ curfptr[40] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4579:/ clear");
-    /*clear*/ /*_.SETQ___V49*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4579:/ clear");
-    /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4579:/ clear");
-    /*clear*/ /*_.PROGN___V52*/ curfptr[50] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4579:/ cond.else");
-  
-   /*_.IFELSE___V45*/ curfptr[39] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4587:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4587:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4587:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher freelist";
-     MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
-     MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4587:/ apply.arg");
-     argtab[3].bp_long = 4587;
-     /*_.DEBUG_MSG_FUN__V54*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FREELIST__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V53*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[36];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4587:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4587:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[36] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4587:/ cppif.else");
-  /*_.IFCPP___V53*/ curfptr[40] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4588:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4588:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4588:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4588:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher prefix";
-     MELT_LOCATION("warmelt-genobj.melt:4588:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11];
-     MELT_LOCATION("warmelt-genobj.melt:4588:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4588:/ apply.arg");
-     argtab[3].bp_long = 4588;
-     /*_.DEBUG_MSG_FUN__V56*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PREFIX__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V55*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[50];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4588:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4588:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[50] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4588:/ cppif.else");
-  /*_.IFCPP___V55*/ curfptr[49] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4589:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4589:/ block");
-   /*block*/{
-    /*_#IS_STRING__L15*/ curfnum[11] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.PREFIX__V26*/ curfptr[25])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-genobj.melt:4589:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L15*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4589:/ cond.then");
-    /*_.IFELSE___V58*/ curfptr[50] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4589:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4589:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4589:/ locexp");
-       melt_assert_failed(( "check prefix"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4589)?(4589):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V58*/ curfptr[50] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V57*/ curfptr[36] = /*_.IFELSE___V58*/ curfptr[50];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4589:/ clear");
-    /*clear*/ /*_#IS_STRING__L15*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4589:/ clear");
-    /*clear*/ /*_.IFELSE___V58*/ curfptr[50] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4589:/ cppif.else");
-  /*_.IFCPP___V57*/ curfptr[36] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_LIST*/ {
-  /* start cit1__EACHLIST */
-   for (/*_.LOCPAIR__V59*/ curfptr[50] = melt_list_first(/*_.FREELIST__V27*/ curfptr[26]);
-	melt_magic_discr(/*_.LOCPAIR__V59*/ curfptr[50]) == OBMAG_PAIR;
-        /*_.LOCPAIR__V59*/ curfptr[50] = melt_pair_tail(/*_.LOCPAIR__V59*/ curfptr[50])) {
-	/*_.OBLOC__V60*/ curfptr[59] = melt_pair_head(/*_.LOCPAIR__V59*/ curfptr[50]); 
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4594:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4594:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4594:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4594:/ apply.arg");
-      argtab[0].bp_cstring =  "compiltst_normtester_matcher obloc";
-      MELT_LOCATION("warmelt-genobj.melt:4594:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[11];
-      MELT_LOCATION("warmelt-genobj.melt:4594:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4594:/ apply.arg");
-      argtab[3].bp_long = 4594;
-      /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOC__V60*/ curfptr[59]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4594:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4594:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4594:/ cppif.else");
-   /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4595:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4595:/ block");
-    /*block*/{
-     /*_#IS_A__L17*/ curfnum[11] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.OBLOC__V60*/ curfptr[59]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[9])));;
-     MELT_LOCATION("warmelt-genobj.melt:4595:/ cond");
-     /*cond*/ if (/*_#IS_A__L17*/ curfnum[11]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4595:/ cond.then");
-     /*_.IFELSE___V64*/ curfptr[63] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4595:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4595:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4595:/ locexp");
-        melt_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4595)?(4595):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V64*/ curfptr[63] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V63*/ curfptr[61] = /*_.IFELSE___V64*/ curfptr[63];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4595:/ clear");
-     /*clear*/ /*_#IS_A__L17*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4595:/ clear");
-     /*clear*/ /*_.IFELSE___V64*/ curfptr[63] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4595:/ cppif.else");
-   /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4596:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4596:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4596:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[10])), (2), "CLASS_OBJCLEAR");/*_.INST__V66*/ curfptr[65] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4596:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4596:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (1), (/*_.OBLOC__V60*/ curfptr[59]), "OCLR_VLOC");
-     ;
-     /*_.OCLEAROB__V65*/ curfptr[63] = /*_.INST__V66*/ curfptr[65];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4600:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V24*/ curfptr[23]), (melt_ptr_t)(/*_.OCLEAROB__V65*/ curfptr[63]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4596:/ clear");
-    /*clear*/ /*_.OCLEAROB__V65*/ curfptr[63] = 0 ;}
-   ;
-   } /* end cit1__EACHLIST */
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4591:/ clear");
-   /*clear*/ /*_.LOCPAIR__V59*/ curfptr[50] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4591:/ clear");
-   /*clear*/ /*_.OBLOC__V60*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4591:/ clear");
-   /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4591:/ clear");
-   /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4602:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4602:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L18*/ curfnum[11] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4602:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4602:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_matcher before nmatcher";
-     MELT_LOCATION("warmelt-genobj.melt:4602:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[11];
-     MELT_LOCATION("warmelt-genobj.melt:4602:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4602:/ apply.arg");
-     argtab[3].bp_long = 4602;
-     /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V67*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[67];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4602:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4602:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4602:/ cppif.else");
-  /*_.IFCPP___V67*/ curfptr[63] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4603:/ block");
-  /*block*/{
-   /*_.MAKE_INTEGERBOX__V70*/ curfptr[69] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[12])), (0)));;
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[11])), (8), "CLASS_MATCHCOMPILCONTEXT");/*_.INST__V72*/ curfptr[71] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (1), (/*_.NLOC__V14*/ curfptr[13]), "MCX_LOC");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_NORMTESTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (2), (/*_.NTMA__V2*/ curfptr[1]), "MCX_NORMTESTER");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_GOTOTHEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (3), (/*_.GOTOTHEN__V22*/ curfptr[21]), "MCX_GOTOTHEN");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_GOTOELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (4), (/*_.GOTOELSE__V23*/ curfptr[22]), "MCX_GOTOELSE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_OLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (5), (/*_.OLIST__V24*/ curfptr[23]), "MCX_OLIST");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_SUFFIX", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (6), (/*_.PREFIX__V26*/ curfptr[25]), "MCX_SUFFIX");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4603:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @MCX_STATECOUNTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[71])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V72*/ curfptr[71]), (7), (/*_.MAKE_INTEGERBOX__V70*/ curfptr[69]), "MCX_STATECOUNTER");
-    ;
-    /*_.MATCX__V71*/ curfptr[70] = /*_.INST__V72*/ curfptr[71];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4612:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4612:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L19*/ curfnum[11] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4612:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4612:/ apply.arg");
-      argtab[0].bp_cstring =  "compiltst_normtester_matcher matcx";
-      MELT_LOCATION("warmelt-genobj.melt:4612:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[11];
-      MELT_LOCATION("warmelt-genobj.melt:4612:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4612:/ apply.arg");
-      argtab[3].bp_long = 4612;
-      /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MATCX__V71*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V73*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4612:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4612:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4612:/ cppif.else");
-   /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4613:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4613:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MATCX__V71*/ curfptr[70];
-    MELT_LOCATION("warmelt-genobj.melt:4613:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.COMPILE_MATCHER__V75*/ curfptr[73] = meltgc_send((melt_ptr_t)(/*_.NMATCHER__V18*/ curfptr[17]), (melt_ptr_t)((/*!COMPILE_MATCHER*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4614:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4614:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L20*/ curfnum[11] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4614:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
-      argtab[0].bp_cstring =  "compiltst_normtester_matcher return olist";
-      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[11];
-      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4614:/ apply.arg");
-      argtab[3].bp_long = 4614;
-      /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLIST__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V76*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[76];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4614:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4614:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[76] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4614:/ cppif.else");
-   /*_.IFCPP___V76*/ curfptr[75] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4615:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V24*/ curfptr[23];;
-    MELT_LOCATION("warmelt-genobj.melt:4615:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V69*/ curfptr[67] = /*_.RETURN___V78*/ curfptr[76];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V70*/ curfptr[69] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ clear");
-   /*clear*/ /*_.MATCX__V71*/ curfptr[70] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ clear");
-   /*clear*/ /*_.IFCPP___V73*/ curfptr[72] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ clear");
-   /*clear*/ /*_.COMPILE_MATCHER__V75*/ curfptr[73] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ clear");
-   /*clear*/ /*_.IFCPP___V76*/ curfptr[75] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4603:/ clear");
-   /*clear*/ /*_.RETURN___V78*/ curfptr[76] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.LET___V69*/ curfptr[67];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NMATCHER__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NINS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NOUTS__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NORMATCH__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.GOTOTHEN__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.GOTOELSE__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.OLIST__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.MATCHMAP__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.PREFIX__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.FREELIST__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.NEXTEST__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_#NULL__L8*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFELSE___V35*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V43*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_#NULL__L11*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFELSE___V45*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V53*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V55*/ curfptr[49] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V57*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.IFCPP___V67*/ curfptr[63] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4550:/ clear");
-  /*clear*/ /*_.LET___V69*/ curfptr[67] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4545:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:4545:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4545:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4545:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4545:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4545:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4545:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_NORMTESTER_MATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 94
-  void* varptr[94];
-#define CURFRAM_NBVARNUM 25
-  long varnum[25];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<94; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 94;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_NORMTESTER_INSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4621:/ getarg");
- /*_.NTMI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4621:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4621:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4621:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4622:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4622:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4622:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4622:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_instance ntmi";
-    MELT_LOCATION("warmelt-genobj.melt:4622:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4622:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4622:/ apply.arg");
-    argtab[3].bp_long = 4622;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4622:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4622:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4622:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4623:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4623:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_INSTANCE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4623:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4623:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4623:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4623:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4623:/ locexp");
-      melt_assert_failed(( "check ntmi"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4623)?(4623):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4623:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4623:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4624:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4624:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4624:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4624:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4624:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4624:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4624:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4624)?(4624):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4624:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4624:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4624:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4625:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4625:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4625:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4625:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4625:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4625:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4625:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4625)?(4625):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4625:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4625:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4625:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4626:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4627:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4628:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4629:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4630:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4631:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4632:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCCLIST__V19*/ curfptr[18] = slot; };
-  ;
-  /*_.OLIST__V20*/ curfptr[19] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_#NTESTIX__L5*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4635:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 7, "NTINST_CLASS");/*_.NTCLASS__V21*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4636:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), 8, "NTINST_FIELDLOCS");/*_.NTFLDS__V22*/ curfptr[21] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4637:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4637:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4637:/ cond");
-  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4637:/ cond.then");
-  /*_.GOTOTHEN__V24*/ curfptr[23] = /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22];;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4637:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:4637:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4638:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4638:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-genobj.melt:4638:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-     /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.GOTOTHEN__V24*/ curfptr[23] = /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4637:/ clear");
-    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V25*/ curfptr[24] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4639:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4639:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4639:/ cond");
-  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4639:/ cond.then");
-  /*_.GOTOELSE__V27*/ curfptr[26] = /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24];;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4639:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:4639:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4640:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4640:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-genobj.melt:4640:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-     /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.GOTOELSE__V27*/ curfptr[26] = /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4639:/ clear");
-    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V28*/ curfptr[27] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4641:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4641:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OCLASS__V29*/ curfptr[27] = meltgc_send((melt_ptr_t)(/*_.NTCLASS__V21*/ curfptr[20]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4642:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4642:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OMATCHED__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4643:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4643:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-genobj.melt:4643:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ curfptr[3];
-   /*_.FREELIST__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NTMI__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.OTHENLIST__V32*/ curfptr[31] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.OELSELIST__V33*/ curfptr[32] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-genobj.melt:4646:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4646:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V35*/ curfptr[34] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4646:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4646:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.OTHENLIST__V32*/ curfptr[31]), "OBLO_BODYL");
-   ;
-   /*_.OTHENBLOCK__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4650:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4650:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V37*/ curfptr[36] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4650:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4650:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OELSELIST__V33*/ curfptr[32]), "OBLO_BODYL");
-   ;
-   /*_.OELSEBLOCK__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
-  ;
-  /*_.MAKE_STRINGCONST__V38*/ curfptr[37] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "/*normtesterinst*/ (melt_is_instance_of((")));;
-  /*_.MAKE_STRINGCONST__V39*/ curfptr[38] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "), (")));;
-  /*_.MAKE_STRINGCONST__V40*/ curfptr[39] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( ")))")));;
-  /*_.MAKE_TUPLE5__V41*/ curfptr[40] = 
-   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V38*/ curfptr[37]),  
-		      (melt_ptr_t)(/*_.OMATCHED__V30*/ curfptr[29]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V39*/ curfptr[38]),  (melt_ptr_t)(/*_.OCLASS__V29*/ curfptr[27]),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V40*/ curfptr[39])));;
-  MELT_LOCATION("warmelt-genobj.melt:4653:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4653:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V43*/ curfptr[42] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4653:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.NLOC__V14*/ curfptr[13]), "OBCX_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4653:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.MAKE_TUPLE5__V41*/ curfptr[40]), "OBX_CONT");
-   ;
-   /*_.OTEST__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4665:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4665:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[13])), (4), "CLASS_OBJCOND");/*_.INST__V45*/ curfptr[44] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4665:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4665:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), (/*_.OTEST__V42*/ curfptr[41]), "OBCOND_TEST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4665:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.OTHENBLOCK__V34*/ curfptr[33]), "OBCOND_THEN");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4665:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (3), (/*_.OELSEBLOCK__V36*/ curfptr[35]), "OBCOND_ELSE");
-   ;
-   /*_.OCOND__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4671:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4671:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4671:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4671:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance otest";
-     MELT_LOCATION("warmelt-genobj.melt:4671:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4671:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4671:/ apply.arg");
-     argtab[3].bp_long = 4671;
-     /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTEST__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4671:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4671:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4671:/ cppif.else");
-  /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4672:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4672:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4672:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4672:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance gotothen";
-     MELT_LOCATION("warmelt-genobj.melt:4672:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4672:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4672:/ apply.arg");
-     argtab[3].bp_long = 4672;
-     /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V48*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4672:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4672:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4672:/ cppif.else");
-  /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4673:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4673:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4673:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance gotoelse";
-     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4673:/ apply.arg");
-     argtab[3].bp_long = 4673;
-     /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V50*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4673:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4673:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4673:/ cppif.else");
-  /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4674:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4674:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4674:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance oclass";
-     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4674:/ apply.arg");
-     argtab[3].bp_long = 4674;
-     /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V52*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4674:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4674:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4674:/ cppif.else");
-  /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4675:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4675:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L10*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.OCLASS__V29*/ curfptr[27])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:4675:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L10*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4675:/ cond.then");
-    /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4675:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4675:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4675:/ locexp");
-       melt_assert_failed(( "check oclass"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4675)?(4675):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V54*/ curfptr[52] = /*_.IFELSE___V55*/ curfptr[54];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4675:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L10*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4675:/ clear");
-    /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4675:/ cppif.else");
-  /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_LIST*/ {
-  /* start cit1__EACHLIST */
-   for (/*_.LOCPAIR__V56*/ curfptr[54] = melt_list_first(/*_.FREELIST__V31*/ curfptr[30]);
-	melt_magic_discr(/*_.LOCPAIR__V56*/ curfptr[54]) == OBMAG_PAIR;
-        /*_.LOCPAIR__V56*/ curfptr[54] = melt_pair_tail(/*_.LOCPAIR__V56*/ curfptr[54])) {
-	/*_.OBLOC__V57*/ curfptr[56] = melt_pair_head(/*_.LOCPAIR__V56*/ curfptr[54]); 
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4680:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4680:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4680:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4680:/ apply.arg");
-      argtab[0].bp_cstring =  "compiltst_normtester_instance obloc";
-      MELT_LOCATION("warmelt-genobj.melt:4680:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:4680:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4680:/ apply.arg");
-      argtab[3].bp_long = 4680;
-      /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOC__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V58*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4680:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4680:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4680:/ cppif.else");
-   /*_.IFCPP___V58*/ curfptr[57] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4681:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4681:/ block");
-    /*block*/{
-     /*_#IS_A__L12*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.OBLOC__V57*/ curfptr[56]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[14])));;
-     MELT_LOCATION("warmelt-genobj.melt:4681:/ cond");
-     /*cond*/ if (/*_#IS_A__L12*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4681:/ cond.then");
-     /*_.IFELSE___V61*/ curfptr[60] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4681:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4681:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4681:/ locexp");
-        melt_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4681)?(4681):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V60*/ curfptr[58] = /*_.IFELSE___V61*/ curfptr[60];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4681:/ clear");
-     /*clear*/ /*_#IS_A__L12*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4681:/ clear");
-     /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4681:/ cppif.else");
-   /*_.IFCPP___V60*/ curfptr[58] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4682:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4682:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4682:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[15])), (2), "CLASS_OBJCLEAR");/*_.INST__V63*/ curfptr[62] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4682:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4682:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.OBLOC__V57*/ curfptr[56]), "OCLR_VLOC");
-     ;
-     /*_.OCLEAROB__V62*/ curfptr[60] = /*_.INST__V63*/ curfptr[62];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4686:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OCLEAROB__V62*/ curfptr[60]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4682:/ clear");
-    /*clear*/ /*_.OCLEAROB__V62*/ curfptr[60] = 0 ;}
-   ;
-   } /* end cit1__EACHLIST */
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4677:/ clear");
-   /*clear*/ /*_.LOCPAIR__V56*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4677:/ clear");
-   /*clear*/ /*_.OBLOC__V57*/ curfptr[56] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4677:/ clear");
-   /*clear*/ /*_.IFCPP___V58*/ curfptr[57] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4677:/ clear");
-   /*clear*/ /*_.IFCPP___V60*/ curfptr[58] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4689:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (melt_ptr_t)(/*_.OCOND__V44*/ curfptr[43]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4692:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4692:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L13*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4692:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4692:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance ntflds";
-     MELT_LOCATION("warmelt-genobj.melt:4692:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4692:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4692:/ apply.arg");
-     argtab[3].bp_long = 4692;
-     /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTFLDS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V64*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4692:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4692:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4692:/ cppif.else");
-  /*_.IFCPP___V64*/ curfptr[60] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4693:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4693:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L14*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4693:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4693:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance nlocclist";
-     MELT_LOCATION("warmelt-genobj.melt:4693:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4693:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4693:/ apply.arg");
-     argtab[3].bp_long = 4693;
-     /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCCLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V66*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4693:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4693:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4693:/ cppif.else");
-  /*_.IFCPP___V66*/ curfptr[64] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NTFLDS__V22*/ curfptr[21]);
-   for (/*_#FLDIX__L15*/ curfnum[5] = 0;  
-	(/*_#FLDIX__L15*/ curfnum[5] >= 0) && (/*_#FLDIX__L15*/ curfnum[5] <  cit2__EACHTUP_ln);  
-	/*_#FLDIX__L15*/ curfnum[5]++) {
-   /*_.FLDOC__V68*/ curfptr[66] = melt_multiple_nth((melt_ptr_t)(/*_.NTFLDS__V22*/ curfptr[21]),  /*_#FLDIX__L15*/ curfnum[5]);
-   
-  
-   MELT_LOCATION("warmelt-genobj.melt:4697:/ cond");
-   /*cond*/ if (/*_.FLDOC__V68*/ curfptr[66]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4697:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4697:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:4699:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:4699:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:4699:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:4699:/ apply.arg");
-        argtab[0].bp_cstring =  "compiltst_normtester_instance fldoc";
-        MELT_LOCATION("warmelt-genobj.melt:4699:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15];
-        MELT_LOCATION("warmelt-genobj.melt:4699:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:4699:/ apply.arg");
-        argtab[3].bp_long = 4699;
-        /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4699:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4699:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:4699:/ cppif.else");
-     /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:4700:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:4700:/ block");
-      /*block*/{
-       /*_#IS_A__L17*/ curfnum[15] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[16])));;
-       MELT_LOCATION("warmelt-genobj.melt:4700:/ cond");
-       /*cond*/ if (/*_#IS_A__L17*/ curfnum[15]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:4700:/ cond.then");
-       /*_.IFELSE___V72*/ curfptr[71] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:4700:/ cond.else");
-       
-        MELT_LOCATION("warmelt-genobj.melt:4700:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-genobj.melt:4700:/ locexp");
-          melt_assert_failed(( "check fldoc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4700)?(4700):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V71*/ curfptr[69] = /*_.IFELSE___V72*/ curfptr[71];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4700:/ clear");
-       /*clear*/ /*_#IS_A__L17*/ curfnum[15] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:4700:/ clear");
-       /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:4700:/ cppif.else");
-     /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:4701:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4701:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       /*_.FLOVAR__V73*/ curfptr[71] = meltgc_send((melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4702:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDOC__V68*/ curfptr[66]), 3, "NOCC_BIND");/*_.FLBIND__V74*/ curfptr[73] = slot; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4703:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLBIND__V74*/ curfptr[73]), 2, "LETBIND_EXPR");/*_.FLDGET__V75*/ curfptr[74] = slot; };
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4704:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4704:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-       /*_.OFGET__V76*/ curfptr[75] = meltgc_send((melt_ptr_t)(/*_.FLDGET__V75*/ curfptr[74]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4706:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4706:/ block");
-       /*block*/{
-        /*_#IS_A__L18*/ curfnum[15] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.FLBIND__V74*/ curfptr[73]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[17])));;
-        MELT_LOCATION("warmelt-genobj.melt:4706:/ cond");
-        /*cond*/ if (/*_#IS_A__L18*/ curfnum[15]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4706:/ cond.then");
-        /*_.IFELSE___V78*/ curfptr[77] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4706:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:4706:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:4706:/ locexp");
-           melt_assert_failed(( "check flbind"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4706)?(4706):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V77*/ curfptr[76] = /*_.IFELSE___V78*/ curfptr[77];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4706:/ clear");
-        /*clear*/ /*_#IS_A__L18*/ curfnum[15] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4706:/ clear");
-        /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4706:/ cppif.else");
-      /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4707:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4707:/ block");
-       /*block*/{
-        /*_#IS_A__L19*/ curfnum[15] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.FLDGET__V75*/ curfptr[74]), (melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[18])));;
-        MELT_LOCATION("warmelt-genobj.melt:4707:/ cond");
-        /*cond*/ if (/*_#IS_A__L19*/ curfnum[15]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4707:/ cond.then");
-        /*_.IFELSE___V80*/ curfptr[79] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4707:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:4707:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:4707:/ locexp");
-           melt_assert_failed(( "check fldget"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4707)?(4707):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V79*/ curfptr[77] = /*_.IFELSE___V80*/ curfptr[79];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4707:/ clear");
-        /*clear*/ /*_#IS_A__L19*/ curfnum[15] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4707:/ clear");
-        /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4707:/ cppif.else");
-      /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-genobj.melt:4708:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4708:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLOVAR__V73*/ curfptr[71];
-       /*_.PUT_OBJDEST__V81*/ curfptr[79] = meltgc_send((melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75]), (melt_ptr_t)((/*!PUT_OBJDEST*/ curfrout->tabval[19])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4709:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4709:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:4709:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:4709:/ apply.arg");
-         argtab[0].bp_cstring =  "compiltst_normtester_instance ofget";
-         MELT_LOCATION("warmelt-genobj.melt:4709:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[15];
-         MELT_LOCATION("warmelt-genobj.melt:4709:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:4709:/ apply.arg");
-         argtab[3].bp_long = 4709;
-         /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V82*/ curfptr[81] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[82];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4709:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[15] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4709:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4709:/ cppif.else");
-      /*_.IFCPP___V82*/ curfptr[81] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:4710:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:4710:/ block");
-       /*block*/{
-        /*_#IS_OBJECT__L21*/ curfnum[15] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75])) == OBMAG_OBJECT);;
-        MELT_LOCATION("warmelt-genobj.melt:4710:/ cond");
-        /*cond*/ if (/*_#IS_OBJECT__L21*/ curfnum[15]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:4710:/ cond.then");
-        /*_.IFELSE___V85*/ curfptr[84] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:4710:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:4710:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:4710:/ locexp");
-           melt_assert_failed(( "check ofget"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4710)?(4710):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V85*/ curfptr[84] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V84*/ curfptr[82] = /*_.IFELSE___V85*/ curfptr[84];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:4710:/ clear");
-        /*clear*/ /*_#IS_OBJECT__L21*/ curfnum[15] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:4710:/ clear");
-        /*clear*/ /*_.IFELSE___V85*/ curfptr[84] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:4710:/ cppif.else");
-      /*_.IFCPP___V84*/ curfptr[82] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4711:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.OFGET__V76*/ curfptr[75]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.FLOVAR__V73*/ curfptr[71] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.FLBIND__V74*/ curfptr[73] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.FLDGET__V75*/ curfptr[74] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.OFGET__V76*/ curfptr[75] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.PUT_OBJDEST__V81*/ curfptr[79] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.IFCPP___V82*/ curfptr[81] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4701:/ clear");
-      /*clear*/ /*_.IFCPP___V84*/ curfptr[82] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4698:/ block");
-     /*block*/{}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4697:/ clear");
-     /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4697:/ clear");
-     /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   if (/*_#FLDIX__L15*/ curfnum[5]<0) break;
-   } /* end cit2__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4694:/ clear");
-   /*clear*/ /*_.FLDOC__V68*/ curfptr[66] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4694:/ clear");
-   /*clear*/ /*_#FLDIX__L15*/ curfnum[5] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4714:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4714:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L22*/ curfnum[15] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:4714:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L22*/ curfnum[15]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4714:/ cond.then");
-    /*_.IFELSE___V87*/ curfptr[71] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4714:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4714:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4714:/ locexp");
-       melt_assert_failed(( "check gotothen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4714)?(4714):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V87*/ curfptr[71] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V86*/ curfptr[84] = /*_.IFELSE___V87*/ curfptr[71];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4714:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L22*/ curfnum[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4714:/ clear");
-    /*clear*/ /*_.IFELSE___V87*/ curfptr[71] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4714:/ cppif.else");
-  /*_.IFCPP___V86*/ curfptr[84] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4715:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.GOTOTHEN__V24*/ curfptr[23]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4718:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4718:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L23*/ curfnum[15] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4718:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4718:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance gotoelse";
-     MELT_LOCATION("warmelt-genobj.melt:4718:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[15];
-     MELT_LOCATION("warmelt-genobj.melt:4718:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4718:/ apply.arg");
-     argtab[3].bp_long = 4718;
-     /*_.DEBUG_MSG_FUN__V89*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V88*/ curfptr[73] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[74];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4718:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4718:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[74] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4718:/ cppif.else");
-  /*_.IFCPP___V88*/ curfptr[73] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4719:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4719:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L24*/ curfnum[15] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:4719:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L24*/ curfnum[15]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4719:/ cond.then");
-    /*_.IFELSE___V91*/ curfptr[76] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4719:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4719:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4719:/ locexp");
-       melt_assert_failed(( "check gotoelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4719)?(4719):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V91*/ curfptr[76] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V90*/ curfptr[75] = /*_.IFELSE___V91*/ curfptr[76];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4719:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L24*/ curfnum[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4719:/ clear");
-    /*clear*/ /*_.IFELSE___V91*/ curfptr[76] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4719:/ cppif.else");
-  /*_.IFCPP___V90*/ curfptr[75] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4720:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V33*/ curfptr[32]), (melt_ptr_t)(/*_.GOTOELSE__V27*/ curfptr[26]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4721:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4721:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4721:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4721:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance final olist";
-     MELT_LOCATION("warmelt-genobj.melt:4721:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[15];
-     MELT_LOCATION("warmelt-genobj.melt:4721:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4721:/ apply.arg");
-     argtab[3].bp_long = 4721;
-     /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLIST__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V92*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[79];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4721:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4721:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4721:/ cppif.else");
-  /*_.IFCPP___V92*/ curfptr[77] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4722:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V20*/ curfptr[19];;
-   MELT_LOCATION("warmelt-genobj.melt:4722:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V94*/ curfptr[81];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NORMATCH__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NLOCCLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OLIST__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NTCLASS__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NTFLDS__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.GOTOTHEN__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V26*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.GOTOELSE__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OCLASS__V29*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OMATCHED__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.FREELIST__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OTHENLIST__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OELSELIST__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OTHENBLOCK__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OELSEBLOCK__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.MAKE_TUPLE5__V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OTEST__V42*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.OCOND__V44*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V64*/ curfptr[60] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V66*/ curfptr[64] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V86*/ curfptr[84] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V88*/ curfptr[73] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V90*/ curfptr[75] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.IFCPP___V92*/ curfptr[77] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4626:/ clear");
-  /*clear*/ /*_.RETURN___V94*/ curfptr[81] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4621:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:4621:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4621:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4621:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4621:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4621:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4621:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_NORMTESTER_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 60
-  void* varptr[60];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<60; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 60;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_NORMTESTER_SAME", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4727:/ getarg");
- /*_.NTSA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4727:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4727:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4727:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4728:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4728:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4728:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4728:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_same ntsa";
-    MELT_LOCATION("warmelt-genobj.melt:4728:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4728:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4728:/ apply.arg");
-    argtab[3].bp_long = 4728;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4728:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4728:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4728:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4729:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4729:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SAME*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4729:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4729:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4729:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4729:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4729:/ locexp");
-      melt_assert_failed(( "check ntsa"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4729)?(4729):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4729:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4729:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4730:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4730:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4730:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4730:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4730:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4730:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4730:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4730)?(4730):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4730:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4730:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4730:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4731:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4731:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4731:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4731:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4731:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4731:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4731:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4731)?(4731):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4731:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4731:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4731:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4732:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4733:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4734:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4735:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4736:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4737:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4738:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), 7, "NTSAME_IDENTICAL");/*_.NIDENTICAL__V19*/ curfptr[18] = slot; };
-  ;
-  /*_#NTESTIX__L5*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4740:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4740:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OMATCHED__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V15*/ curfptr[14]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4741:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4741:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.OIDENTICAL__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.NIDENTICAL__V19*/ curfptr[18]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4742:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4742:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NTHEN__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4742:/ cond");
-  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4742:/ cond.then");
-  /*_.GOTOTHEN__V23*/ curfptr[22] = /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21];;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4742:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:4742:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4743:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4743:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-genobj.melt:4743:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-     /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.GOTOTHEN__V23*/ curfptr[22] = /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4742:/ clear");
-    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V24*/ curfptr[23] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4744:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4744:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NELSE__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4744:/ cond");
-  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4744:/ cond.then");
-  /*_.GOTOELSE__V26*/ curfptr[25] = /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23];;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4744:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:4744:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4745:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4745:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-genobj.melt:4745:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-     /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NORMATCH__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.GOTOELSE__V26*/ curfptr[25] = /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4744:/ clear");
-    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V27*/ curfptr[26] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4746:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4746:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-genobj.melt:4746:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.TCX__V4*/ curfptr[3];
-   /*_.FREELIST__V28*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_FREE_OBJLOC_LIST*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NTSA__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.OTHENLIST__V29*/ curfptr[28] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  /*_.OELSELIST__V30*/ curfptr[29] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  MELT_LOCATION("warmelt-genobj.melt:4749:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4749:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V32*/ curfptr[31] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4749:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4749:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.OTHENLIST__V29*/ curfptr[28]), "OBLO_BODYL");
-   ;
-   /*_.OTHENBLOCK__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4753:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4753:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[9])), (3), "CLASS_OBJBLOCK");/*_.INST__V34*/ curfptr[33] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4753:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4753:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.OELSELIST__V30*/ curfptr[29]), "OBLO_BODYL");
-   ;
-   /*_.OELSEBLOCK__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
-  ;
-  /*_.MAKE_STRINGCONST__V35*/ curfptr[34] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "/*same*/ ((")));;
-  /*_.MAKE_STRINGCONST__V36*/ curfptr[35] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( ") == (")));;
-  /*_.MAKE_STRINGCONST__V37*/ curfptr[36] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[12])), ( "))")));;
-  /*_.MAKE_TUPLE5__V38*/ curfptr[37] = 
-   (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.MAKE_STRINGCONST__V35*/ curfptr[34]),  
-		      (melt_ptr_t)(/*_.OMATCHED__V20*/ curfptr[19]),  (melt_ptr_t)(/*_.MAKE_STRINGCONST__V36*/ curfptr[35]),  (melt_ptr_t)(/*_.OIDENTICAL__V21*/ curfptr[20]),
-		      (melt_ptr_t)(/*_.MAKE_STRINGCONST__V37*/ curfptr[36])));;
-  MELT_LOCATION("warmelt-genobj.melt:4756:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4756:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[10])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V40*/ curfptr[39] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4756:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NLOC__V14*/ curfptr[13]), "OBCX_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4756:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.MAKE_TUPLE5__V38*/ curfptr[37]), "OBX_CONT");
-   ;
-   /*_.OTEST__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4768:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4768:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[13])), (4), "CLASS_OBJCOND");/*_.INST__V42*/ curfptr[41] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4768:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4768:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.OTEST__V39*/ curfptr[38]), "OBCOND_TEST");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4768:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.OTHENBLOCK__V31*/ curfptr[30]), "OBCOND_THEN");
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4768:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), (/*_.OELSEBLOCK__V33*/ curfptr[32]), "OBCOND_ELSE");
-   ;
-   /*_.OCOND__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
-  ;
-  /*_.OLIST__V43*/ curfptr[42] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4775:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4775:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4775:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4775:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_same ocond";
-     MELT_LOCATION("warmelt-genobj.melt:4775:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4775:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4775:/ apply.arg");
-     argtab[3].bp_long = 4775;
-     /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4775:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4775:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4775:/ cppif.else");
-  /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_LIST*/ {
-  /* start cit1__EACHLIST */
-   for (/*_.LOCPAIR__V46*/ curfptr[44] = melt_list_first(/*_.FREELIST__V28*/ curfptr[26]);
-	melt_magic_discr(/*_.LOCPAIR__V46*/ curfptr[44]) == OBMAG_PAIR;
-        /*_.LOCPAIR__V46*/ curfptr[44] = melt_pair_tail(/*_.LOCPAIR__V46*/ curfptr[44])) {
-	/*_.OBLOC__V47*/ curfptr[46] = melt_pair_head(/*_.LOCPAIR__V46*/ curfptr[44]); 
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4780:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4780:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4780:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4780:/ apply.arg");
-      argtab[0].bp_cstring =  "compiltst_normtester_same obloc";
-      MELT_LOCATION("warmelt-genobj.melt:4780:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-      MELT_LOCATION("warmelt-genobj.melt:4780:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4780:/ apply.arg");
-      argtab[3].bp_long = 4780;
-      /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLOC__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4780:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4780:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4780:/ cppif.else");
-   /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4781:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4781:/ block");
-    /*block*/{
-     /*_#IS_A__L8*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.OBLOC__V47*/ curfptr[46]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[14])));;
-     MELT_LOCATION("warmelt-genobj.melt:4781:/ cond");
-     /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4781:/ cond.then");
-     /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4781:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4781:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4781:/ locexp");
-        melt_assert_failed(( "check obloc"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4781)?(4781):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4781:/ clear");
-     /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4781:/ clear");
-     /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4781:/ cppif.else");
-   /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4782:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4782:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4782:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[15])), (2), "CLASS_OBJCLEAR");/*_.INST__V53*/ curfptr[52] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4782:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (0), (/*_.NLOC__V14*/ curfptr[13]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4782:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.OBLOC__V47*/ curfptr[46]), "OCLR_VLOC");
-     ;
-     /*_.OCLEAROB__V52*/ curfptr[50] = /*_.INST__V53*/ curfptr[52];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4786:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V43*/ curfptr[42]), (melt_ptr_t)(/*_.OCLEAROB__V52*/ curfptr[50]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4782:/ clear");
-    /*clear*/ /*_.OCLEAROB__V52*/ curfptr[50] = 0 ;}
-   ;
-   } /* end cit1__EACHLIST */
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4777:/ clear");
-   /*clear*/ /*_.LOCPAIR__V46*/ curfptr[44] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4777:/ clear");
-   /*clear*/ /*_.OBLOC__V47*/ curfptr[46] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4777:/ clear");
-   /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4777:/ clear");
-   /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4789:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OLIST__V43*/ curfptr[42]), (melt_ptr_t)(/*_.OCOND__V41*/ curfptr[40]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4791:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4791:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L9*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.GOTOTHEN__V23*/ curfptr[22])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:4791:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L9*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4791:/ cond.then");
-    /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4791:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4791:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4791:/ locexp");
-       melt_assert_failed(( "check gotothen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4791)?(4791):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V54*/ curfptr[50] = /*_.IFELSE___V55*/ curfptr[54];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4791:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L9*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4791:/ clear");
-    /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4791:/ cppif.else");
-  /*_.IFCPP___V54*/ curfptr[50] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4792:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V29*/ curfptr[28]), (melt_ptr_t)(/*_.GOTOTHEN__V23*/ curfptr[22]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4794:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4794:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4794:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4794:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_instance gotoelse";
-     MELT_LOCATION("warmelt-genobj.melt:4794:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4794:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4794:/ apply.arg");
-     argtab[3].bp_long = 4794;
-     /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4794:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4794:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4794:/ cppif.else");
-  /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4795:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4795:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L11*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-genobj.melt:4795:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L11*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4795:/ cond.then");
-    /*_.IFELSE___V59*/ curfptr[58] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4795:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4795:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4795:/ locexp");
-       melt_assert_failed(( "check gotoelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4795)?(4795):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V58*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4795:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L11*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4795:/ clear");
-    /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4795:/ cppif.else");
-  /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4796:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V30*/ curfptr[29]), (melt_ptr_t)(/*_.GOTOELSE__V26*/ curfptr[25]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4797:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.OLIST__V43*/ curfptr[42];;
-   MELT_LOCATION("warmelt-genobj.melt:4797:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V60*/ curfptr[58];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NMATCHED__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NTHEN__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NELSE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NORMATCH__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NIDENTICAL__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OMATCHED__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OIDENTICAL__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.GOTOTHEN__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V25*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.GOTOELSE__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.FREELIST__V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OTHENLIST__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OELSELIST__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OTHENBLOCK__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OELSEBLOCK__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.MAKE_STRINGCONST__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.MAKE_TUPLE5__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OTEST__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OCOND__V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.OLIST__V43*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.IFCPP___V54*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4732:/ clear");
-  /*clear*/ /*_.RETURN___V60*/ curfptr[58] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4727:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:4727:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4727:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4727:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4727:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4727:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4727:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_NORMTESTER_SAME", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 41
-  void* varptr[41];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<41; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 41;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_NORMTESTER_SUCCESS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4804:/ getarg");
- /*_.NTSU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4804:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4804:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4804:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4805:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4805:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4805:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4805:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_success ntsu";
-    MELT_LOCATION("warmelt-genobj.melt:4805:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4805:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4805:/ apply.arg");
-    argtab[3].bp_long = 4805;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4805:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4805:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4805:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4806:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4806:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4806:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4806:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_success tcx";
-    MELT_LOCATION("warmelt-genobj.melt:4806:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4806:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4806:/ apply.arg");
-    argtab[3].bp_long = 4806;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4806:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4806:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4807:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4807:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_SUCCESS*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4807:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4807:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4807:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4807:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4807:/ locexp");
-      melt_assert_failed(( "check ntsu"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4807)?(4807):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4807:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4807:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4807:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4808:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4808:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4808:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4808:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4808:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4808:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4808:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4808)?(4808):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4808:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4808:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4808:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4809:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4809:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4809:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4809:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4809:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4809:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4809:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4809)?(4809):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4809:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4809:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4809:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4810:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4811:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4812:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 1, "NTEST_MATCHED");/*_.NMATCHED__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4813:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 2, "NTEST_THEN");/*_.NTHEN__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4814:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4815:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 5, "NTEST_LOCCLIST");/*_.NLOCLIS__V20*/ curfptr[19] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4816:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V21*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4817:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1]), 7, "NTSUCCESS_DO");/*_.NSUCDO__V22*/ curfptr[21] = slot; };
-  ;
-  /*_#NTESTIX__L6*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.NTSU__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4819:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4819:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-genobj.melt:4819:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V16*/ curfptr[15];
-   /*_.GOTOEND__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NORMATCH__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4821:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4821:/ block");
-   /*block*/{
-    /*_#NULL__L7*/ curfnum[6] = 
-     ((/*_.NLOCLIS__V20*/ curfptr[19]) == NULL);;
-    MELT_LOCATION("warmelt-genobj.melt:4821:/ cond");
-    /*cond*/ if (/*_#NULL__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4821:/ cond.then");
-    /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4821:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4821:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4821:/ locexp");
-       melt_assert_failed(( "check nil nloclis"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4821)?(4821):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4821:/ clear");
-    /*clear*/ /*_#NULL__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4821:/ clear");
-    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4821:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4822:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4822:/ block");
-   /*block*/{
-    /*_#NULL__L8*/ curfnum[6] = 
-     ((/*_.NTHEN__V18*/ curfptr[17]) == NULL);;
-    MELT_LOCATION("warmelt-genobj.melt:4822:/ cond");
-    /*cond*/ if (/*_#NULL__L8*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4822:/ cond.then");
-    /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4822:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4822:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4822:/ locexp");
-       melt_assert_failed(( "check nil nthen"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4822)?(4822):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4822:/ clear");
-    /*clear*/ /*_#NULL__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4822:/ clear");
-    /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4822:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4823:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4823:/ block");
-   /*block*/{
-    /*_#NULL__L9*/ curfnum[6] = 
-     ((/*_.NELSE__V19*/ curfptr[18]) == NULL);;
-    MELT_LOCATION("warmelt-genobj.melt:4823:/ cond");
-    /*cond*/ if (/*_#NULL__L9*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4823:/ cond.then");
-    /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4823:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:4823:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4823:/ locexp");
-       melt_assert_failed(( "check nil nelse"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4823)?(4823):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4823:/ clear");
-    /*clear*/ /*_#NULL__L9*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4823:/ clear");
-    /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4823:/ cppif.else");
-  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4824:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4824:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4824:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4824:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_success nsucdo";
-     MELT_LOCATION("warmelt-genobj.melt:4824:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6];
-     MELT_LOCATION("warmelt-genobj.melt:4824:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4824:/ apply.arg");
-     argtab[3].bp_long = 4824;
-     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSUCDO__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V30*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4824:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4824:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4824:/ cppif.else");
-  /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4825:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4825:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4825:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-    /*_.OSUCC__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.NSUCDO__V22*/ curfptr[21]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4827:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4827:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4827:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4827:/ apply.arg");
-      argtab[0].bp_cstring =  "compiltst_normtester_success osucc";
-      MELT_LOCATION("warmelt-genobj.melt:4827:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[6];
-      MELT_LOCATION("warmelt-genobj.melt:4827:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4827:/ apply.arg");
-      argtab[3].bp_long = 4827;
-      /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4827:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4827:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4827:/ cppif.else");
-   /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_#IS_LIST__L12*/ curfnum[6] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-genobj.melt:4829:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[6]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4829:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4829:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:4831:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (melt_ptr_t)(/*_.GOTOEND__V23*/ curfptr[22]));}
-     ;
-     /*_.LIST_LAST__V37*/ curfptr[36] = 
-      (melt_list_last((melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32])));;
-     MELT_LOCATION("warmelt-genobj.melt:4832:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.OSUCC__V33*/ curfptr[32];;
-      MELT_LOCATION("warmelt-genobj.melt:4832:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.LIST_LAST__V37*/ curfptr[36]);
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4832:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4830:/ block");
-     /*block*/{
-      /*_.PROGN___V39*/ curfptr[38] = /*_.RETURN___V38*/ curfptr[37];;}
-     ;
-     /*_.IFELSE___V36*/ curfptr[34] = /*_.PROGN___V39*/ curfptr[38];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
-     /*clear*/ /*_.LIST_LAST__V37*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
-     /*clear*/ /*_.RETURN___V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
-     /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4829:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4829:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4833:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4833:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GOTOEND__V23*/ curfptr[22];
-      /*_.LIST2__V40*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!LIST2*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OSUCC__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4833:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST2__V40*/ curfptr[36];;
-      MELT_LOCATION("warmelt-genobj.melt:4833:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.OSUCC__V33*/ curfptr[32]);
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4833:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.IFELSE___V36*/ curfptr[34] = /*_.RETURN___V41*/ curfptr[37];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
-     /*clear*/ /*_.LIST2__V40*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4829:/ clear");
-     /*clear*/ /*_.RETURN___V41*/ curfptr[37] = 0 ;}
-    ;
-    }
-   ;
-   /*_.LET___V32*/ curfptr[30] = /*_.IFELSE___V36*/ curfptr[34];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4825:/ clear");
-   /*clear*/ /*_.OSUCC__V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4825:/ clear");
-   /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4825:/ clear");
-   /*clear*/ /*_#IS_LIST__L12*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4825:/ clear");
-   /*clear*/ /*_.IFELSE___V36*/ curfptr[34] = 0 ;}
-  ;
-  /*_.LET___V15*/ curfptr[13] = /*_.LET___V32*/ curfptr[30];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NLOC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NMATCHED__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NTHEN__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NELSE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NLOCLIS__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NORMATCH__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.NSUCDO__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_#NTESTIX__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.GOTOEND__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4810:/ clear");
-  /*clear*/ /*_.LET___V32*/ curfptr[30] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4804:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[13];;
-  MELT_LOCATION("warmelt-genobj.melt:4804:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4804:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4804:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4804:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4804:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4804:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4804:/ clear");
- /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_NORMTESTER_SUCCESS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILTST_NORMTESTER_DISJUNCTION", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4842:/ getarg");
- /*_.NTDJ__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4842:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4842:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.TCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4842:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4843:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4843:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4843:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4843:/ apply.arg");
-    argtab[0].bp_cstring =  "compiltst_normtester_disjunction ntdj";
-    MELT_LOCATION("warmelt-genobj.melt:4843:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4843:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4843:/ apply.arg");
-    argtab[3].bp_long = 4843;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4843:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4843:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4843:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4844:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4844:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMTESTER_DISJUNCTION*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4844:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4844:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4844:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4844:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4844:/ locexp");
-      melt_assert_failed(( "check ntdj"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4844)?(4844):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4844:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4844:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4845:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4845:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4845:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4845:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4845:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4845:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4845:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4845)?(4845):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4845:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4845:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4845:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4846:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4846:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.TCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_TESTERCOMPILCONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4846:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4846:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4846:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4846:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4846:/ locexp");
-      melt_assert_failed(( "check tcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4846)?(4846):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4846:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4846:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4846:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4847:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4848:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), 0, "NREP_LOC");/*_.NLOC__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4849:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), 3, "NTEST_ELSE");/*_.NELSE__V15*/ curfptr[14] = slot; };
-  ;
-  /*_#NTESTIX__L5*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-genobj.melt:4851:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NTDJ__V2*/ curfptr[1]), 4, "NTEST_NORMATCH");/*_.NORMATCH__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4852:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4852:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-   /*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMTESTER_GOTOINSTR*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NELSE__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4852:/ cond");
-  /*cond*/ if (/*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16]) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4852:/ cond.then");
-  /*_.GOTOELSE__V18*/ curfptr[17] = /*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16];;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4852:/ cond.else");
-  
-   MELT_LOCATION("warmelt-genobj.melt:4852:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4853:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4853:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-genobj.melt:4853:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NLOC__V14*/ curfptr[13];
-     /*_.ENDMATCH_GOTOINSTR__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!ENDMATCH_GOTOINSTR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NORMATCH__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.GOTOELSE__V18*/ curfptr[17] = /*_.ENDMATCH_GOTOINSTR__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4852:/ clear");
-    /*clear*/ /*_.ENDMATCH_GOTOINSTR__V19*/ curfptr[18] = 0 ;}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4855:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4855:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4855:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4855:/ apply.arg");
-     argtab[0].bp_cstring =  "compiltst_normtester_disjunction gotoelse";
-     MELT_LOCATION("warmelt-genobj.melt:4855:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-genobj.melt:4855:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4855:/ apply.arg");
-     argtab[3].bp_long = 4855;
-     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.GOTOELSE__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4855:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4855:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4855:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4856:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.GOTOELSE__V18*/ curfptr[17];;
-   MELT_LOCATION("warmelt-genobj.melt:4856:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V22*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.NLOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.NELSE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_#NTESTIX__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.NORMATCH__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.NORMTESTER_GOTOINSTR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.GOTOELSE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4847:/ clear");
-  /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4842:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-genobj.melt:4842:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4842:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4842:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4842:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4842:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4842:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILTST_NORMTESTER_DISJUNCTION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 98
-  void* varptr[98];
-#define CURFRAM_NBVARNUM 29
-  long varnum[29];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<98; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 98;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILMATCHER_CMATCHER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4862:/ getarg");
- /*_.CMAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4862:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4862:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4862:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4863:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4863:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4863:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4863:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_cmatcher cmat";
-    MELT_LOCATION("warmelt-genobj.melt:4863:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4863:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4863:/ apply.arg");
-    argtab[3].bp_long = 4863;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4863:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4863:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4863:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4864:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4864:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4864:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4864:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_cmatcher mcx";
-    MELT_LOCATION("warmelt-genobj.melt:4864:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:4864:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4864:/ apply.arg");
-    argtab[3].bp_long = 4864;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4864:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4864:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4865:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4865:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4865:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4865:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4865:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4865:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4865:/ locexp");
-      melt_assert_failed(( "check cmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4865)?(4865):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4865:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4865:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4865:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4866:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4866:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:4866:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4866:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4866:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4866:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4866:/ locexp");
-      melt_assert_failed(( "check mcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4866)?(4866):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4866:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4866:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4866:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4867:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4867:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:4867:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4867:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4867:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4867:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4867:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4867)?(4867):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4867:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4867:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4867:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4868:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4869:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 2, "AMATCH_IN");/*_.CMINS__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4870:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 3, "AMATCH_MATCHBIND");/*_.CMBIND__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4871:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 4, "AMATCH_OUT");/*_.CMOUTS__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4872:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 5, "CMATCH_STATE");/*_.CMSTATE__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4873:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 6, "CMATCH_EXPTEST");/*_.CMEXPTEST__V20*/ curfptr[19] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4874:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMAT__V2*/ curfptr[1]), 7, "CMATCH_EXPFILL");/*_.CMEXPFILL__V21*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4876:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 2, "MCX_NORMTESTER");/*_.NORMTESTER__V22*/ curfptr[21] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L6*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CMINS__V16*/ curfptr[15])));;
-  /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CMOUTS__V18*/ curfptr[17])));;
-  /*_#I__L8*/ curfnum[7] = 
-   ((/*_#MULTIPLE_LENGTH__L6*/ curfnum[0]) + (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]));;
-  /*_#I__L9*/ curfnum[8] = 
-   ((2) * (/*_#I__L8*/ curfnum[7]));;
-  /*_#I__L10*/ curfnum[9] = 
-   ((5) + (/*_#I__L9*/ curfnum[8]));;
-  /*_.SUBSTMAP__V23*/ curfptr[22] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[4])), (/*_#I__L10*/ curfnum[9])));;
-  MELT_LOCATION("warmelt-genobj.melt:4882:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4882:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4882:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4882:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 7, "MCX_STATECOUNTER");/*_.BOXCNT__V24*/ curfptr[23] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4882:/ cond.else");
-   
-    /*_.BOXCNT__V24*/ curfptr[23] = NULL;;
-    }
-   ;
-   /*_#GET_INT__L12*/ curfnum[11] = 
-    (melt_get_int((melt_ptr_t)(/*_.BOXCNT__V24*/ curfptr[23])));;
-   /*_#CNT__L13*/ curfnum[12] = 
-    ((1) + (/*_#GET_INT__L12*/ curfnum[11]));;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4884:/ locexp");
-   melt_put_int((melt_ptr_t)(/*_.BOXCNT__V24*/ curfptr[23]), (/*_#CNT__L13*/ curfnum[12]));}
-   ;
-   /*_#LET___L11*/ curfnum[10] = /*_#CNT__L13*/ curfnum[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4882:/ clear");
-   /*clear*/ /*_.BOXCNT__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4882:/ clear");
-   /*clear*/ /*_#GET_INT__L12*/ curfnum[11] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4882:/ clear");
-   /*clear*/ /*_#CNT__L13*/ curfnum[12] = 0 ;}
-  ;
-  /*_#MCXCOUNT__L14*/ curfnum[11] = /*_#LET___L11*/ curfnum[10];;
-  MELT_LOCATION("warmelt-genobj.melt:4887:/ block");
-  /*block*/{
-   /*_.SBUF__V26*/ curfptr[25] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[5])), (char*)0);;
-   MELT_LOCATION("warmelt-genobj.melt:4888:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMSTATE__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4888:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4888:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CMSTATE__V19*/ curfptr[18]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4888:/ cond.else");
-   
-    /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4888:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4889:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), ( "_"));}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4890:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4890:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4890:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 6, "MCX_SUFFIX");/*_.MCX_SUFFIX__V28*/ curfptr[27] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4890:/ cond.else");
-   
-    /*_.MCX_SUFFIX__V28*/ curfptr[27] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4890:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), melt_string_str((melt_ptr_t)(/*_.MCX_SUFFIX__V28*/ curfptr[27])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4891:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), ( "_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-genobj.melt:4892:/ locexp");
-   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]), (/*_#MCXCOUNT__L14*/ curfnum[11]));}
-   ;
-   /*_.STRBUF2STRING__V29*/ curfptr[28] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[7])), melt_strbuf_str((melt_ptr_t)(/*_.SBUF__V26*/ curfptr[25]))));;
-   /*_.LET___V25*/ curfptr[23] = /*_.STRBUF2STRING__V29*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4887:/ clear");
-   /*clear*/ /*_.SBUF__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4887:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4887:/ clear");
-   /*clear*/ /*_.MCX_SUFFIX__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4887:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V29*/ curfptr[28] = 0 ;}
-  ;
-  /*_.UNIQSTATE__V30*/ curfptr[25] = /*_.LET___V25*/ curfptr[23];;
-  MELT_LOCATION("warmelt-genobj.melt:4895:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4895:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4895:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 5, "MCX_OLIST");/*_.OLIST__V31*/ curfptr[26] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4895:/ cond.else");
-  
-   /*_.OLIST__V31*/ curfptr[26] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4898:/ locexp");
-  meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V23*/ curfptr[22]), 
-			   (meltobject_ptr_t) (/*_.CMSTATE__V19*/ curfptr[18]), 
-			   (melt_ptr_t)(/*_.UNIQSTATE__V30*/ curfptr[25]));}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4900:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4900:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[8])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4900:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4900:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 1, "NTEST_MATCHED");/*_.NMATCHED__V32*/ curfptr[27] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4900:/ cond.else");
-   
-    /*_.NMATCHED__V32*/ curfptr[27] = NULL;;
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4901:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4901:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4901:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4901:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_cmatcher nmatched";
-      MELT_LOCATION("warmelt-genobj.melt:4901:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12];
-      MELT_LOCATION("warmelt-genobj.melt:4901:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4901:/ apply.arg");
-      argtab[3].bp_long = 4901;
-      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHED__V32*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4901:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4901:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4901:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4902:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4902:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4902:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
-     /*_.OBMATCHED__V35*/ curfptr[33] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V32*/ curfptr[27]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[9])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4903:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4903:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L16*/ curfnum[12] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4903:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
-       argtab[0].bp_cstring =  "compilmatcher_cmatcher obmatched";
-       MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[12];
-       MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4903:/ apply.arg");
-       argtab[3].bp_long = 4903;
-       /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBMATCHED__V35*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V36*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4903:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[12] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4903:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4903:/ cppif.else");
-    /*_.IFCPP___V36*/ curfptr[35] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-genobj.melt:4905:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMBIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[10])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4905:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4905:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V38*/ curfptr[36] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:4905:/ cond.else");
-    
-     /*_.BINDER__V38*/ curfptr[36] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4904:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SUBSTMAP__V23*/ curfptr[22]), 
-			   (meltobject_ptr_t) (/*_.BINDER__V38*/ curfptr[36]), 
-			   (melt_ptr_t)(/*_.OBMATCHED__V35*/ curfptr[33]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4902:/ clear");
-    /*clear*/ /*_.OBMATCHED__V35*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4902:/ clear");
-    /*clear*/ /*_.IFCPP___V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4902:/ clear");
-    /*clear*/ /*_.BINDER__V38*/ curfptr[36] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4900:/ clear");
-   /*clear*/ /*_.NMATCHED__V32*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4900:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4909:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4909:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4909:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4909:/ apply.arg");
-     argtab[0].bp_cstring =  "compilmatcher_cmatcher normtester";
-     MELT_LOCATION("warmelt-genobj.melt:4909:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[12];
-     MELT_LOCATION("warmelt-genobj.melt:4909:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4909:/ apply.arg");
-     argtab[3].bp_long = 4909;
-     /*_.DEBUG_MSG_FUN__V40*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4909:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4909:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[35] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4909:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[33] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4912:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[12])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4912:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4912:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 9, "NTMATCH_INARGS");/*_.NTMATCH_INARGS__V41*/ curfptr[36] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4912:/ cond.else");
-  
-   /*_.NTMATCH_INARGS__V41*/ curfptr[36] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4914:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4914:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[28] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4914:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4914:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V43*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V43*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]);
-   ;
-   /*_.LAMBDA___V42*/ curfptr[27] = /*_.LAMBDA___V43*/ curfptr[28];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4911:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4911:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMINS__V16*/ curfptr[15];
-   MELT_LOCATION("warmelt-genobj.melt:4911:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[27];
-   /*_.MULTIPLE_EVERY_BOTH__V44*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NTMATCH_INARGS__V41*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4926:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[12])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4926:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4926:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NORMTESTER__V22*/ curfptr[21]), 10, "NTMATCH_OUTLOCS");/*_.NTMATCH_OUTLOCS__V45*/ curfptr[44] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4926:/ cond.else");
-  
-   /*_.NTMATCH_OUTLOCS__V45*/ curfptr[44] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4928:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4928:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (2));
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4928:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4928:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]);
-   ;
-   /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;}
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4925:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4925:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMOUTS__V18*/ curfptr[17];
-   MELT_LOCATION("warmelt-genobj.melt:4925:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45];
-   /*_.MULTIPLE_EVERY_BOTH__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.NTMATCH_OUTLOCS__V45*/ curfptr[44]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4938:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4938:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L18*/ curfnum[12] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4938:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4938:/ apply.arg");
-     argtab[0].bp_cstring =  "compilmatcher_cmatcher substmap";
-     MELT_LOCATION("warmelt-genobj.melt:4938:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[12];
-     MELT_LOCATION("warmelt-genobj.melt:4938:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4938:/ apply.arg");
-     argtab[3].bp_long = 4938;
-     /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4938:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4938:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4938:/ cppif.else");
-  /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4940:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4942:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4942:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V53*/ curfptr[52] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_28*/ curfrout->tabval[28])), (2));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4942:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V53*/ curfptr[52])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V53*/ curfptr[52])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V53*/ curfptr[52])->tabval[0] = (melt_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]);
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4942:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V53*/ curfptr[52])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V53*/ curfptr[52])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V53*/ curfptr[52])->tabval[1] = (melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]);
-    ;
-    /*_.EXPANDER__V52*/ curfptr[51] = /*_.LAMBDA___V53*/ curfptr[52];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4961:/ apply");
-   /*apply*/{
-    /*_.EXPTEST__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)(/*_.EXPANDER__V52*/ curfptr[51]), (melt_ptr_t)(/*_.CMEXPTEST__V20*/ curfptr[19]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4962:/ apply");
-   /*apply*/{
-    /*_.EXPFILL__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)(/*_.EXPANDER__V52*/ curfptr[51]), (melt_ptr_t)(/*_.CMEXPFILL__V21*/ curfptr[20]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4963:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4963:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4963:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 1, "MCX_LOC");/*_.MLOC__V56*/ curfptr[55] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4963:/ cond.else");
-   
-    /*_.MLOC__V56*/ curfptr[55] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4964:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4964:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[29])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V58*/ curfptr[57] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4964:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), ((/*!CTYPE_LONG*/ curfrout->tabval[30])), "OBV_TYPE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4964:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.EXPTEST__V54*/ curfptr[53]), "OBX_CONT");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4964:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), (/*_.MLOC__V56*/ curfptr[55]), "OBCX_LOC");
-    ;
-    /*_.TESTCHUNK__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:4968:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:4968:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[29])), (3), "CLASS_OBJLOCATEDEXPV");/*_.INST__V60*/ curfptr[59] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4968:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBV_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), ((/*!CTYPE_VOID*/ curfrout->tabval[31])), "OBV_TYPE");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4968:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBX_CONT", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), (/*_.EXPFILL__V55*/ curfptr[54]), "OBX_CONT");
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4968:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @OBCX_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), (/*_.MLOC__V56*/ curfptr[55]), "OBCX_LOC");
-    ;
-    /*_.FILLCHUNK__V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4973:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4973:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L19*/ curfnum[12] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4973:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4973:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_cmatcher exptest";
-      MELT_LOCATION("warmelt-genobj.melt:4973:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[12];
-      MELT_LOCATION("warmelt-genobj.melt:4973:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4973:/ apply.arg");
-      argtab[3].bp_long = 4973;
-      /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTEST__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4973:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4973:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4973:/ cppif.else");
-   /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4974:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4974:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L20*/ curfnum[12] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4974:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4974:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_cmatcher expfill";
-      MELT_LOCATION("warmelt-genobj.melt:4974:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[12];
-      MELT_LOCATION("warmelt-genobj.melt:4974:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4974:/ apply.arg");
-      argtab[3].bp_long = 4974;
-      /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.EXPFILL__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V63*/ curfptr[61] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4974:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4974:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4974:/ cppif.else");
-   /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4975:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4975:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4975:/ cond");
-     /*cond*/ if (/*_.EXPTEST__V54*/ curfptr[53]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4975:/ cond.then");
-     /*_.IFELSE___V66*/ curfptr[65] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4975:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4975:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-genobj.melt:4975:/ locexp");
-        melt_assert_failed(( "compilmatcher_cmatcher check exptest"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4975)?(4975):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V66*/ curfptr[65] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V65*/ curfptr[63] = /*_.IFELSE___V66*/ curfptr[65];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4975:/ clear");
-     /*clear*/ /*_.IFELSE___V66*/ curfptr[65] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4975:/ cppif.else");
-   /*_.IFCPP___V65*/ curfptr[63] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4976:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4976:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L21*/ curfnum[12] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4976:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_cmatcher testchunk";
-      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[12];
-      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4976:/ apply.arg");
-      argtab[3].bp_long = 4976;
-      /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.TESTCHUNK__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V67*/ curfptr[65] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[67];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4976:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4976:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[67] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4976:/ cppif.else");
-   /*_.IFCPP___V67*/ curfptr[65] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:4977:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:4977:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L22*/ curfnum[12] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:4977:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:4977:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_cmatcher fillchunk";
-      MELT_LOCATION("warmelt-genobj.melt:4977:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[12];
-      MELT_LOCATION("warmelt-genobj.melt:4977:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:4977:/ apply.arg");
-      argtab[3].bp_long = 4977;
-      /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FILLCHUNK__V59*/ curfptr[58]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V69*/ curfptr[67] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4977:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4977:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:4977:/ cppif.else");
-   /*_.IFCPP___V69*/ curfptr[67] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:4978:/ block");
-   /*block*/{
-    /*_.OTHENLIST__V72*/ curfptr[71] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[32]))));;
-    MELT_LOCATION("warmelt-genobj.melt:4980:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4980:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[33])), (3), "CLASS_OBJBLOCK");/*_.INST__V74*/ curfptr[73] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4980:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V74*/ curfptr[73]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4980:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V74*/ curfptr[73]), (1), (/*_.OTHENLIST__V72*/ curfptr[71]), "OBLO_BODYL");
-     ;
-     /*_.OTHENBODY__V73*/ curfptr[72] = /*_.INST__V74*/ curfptr[73];;}
-    ;
-    /*_.OELSELIST__V75*/ curfptr[74] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[32]))));;
-    MELT_LOCATION("warmelt-genobj.melt:4985:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4985:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[33])), (3), "CLASS_OBJBLOCK");/*_.INST__V77*/ curfptr[76] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4985:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V77*/ curfptr[76]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4985:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V77*/ curfptr[76]), (1), (/*_.OELSELIST__V75*/ curfptr[74]), "OBLO_BODYL");
-     ;
-     /*_.OELSEBODY__V76*/ curfptr[75] = /*_.INST__V77*/ curfptr[76];;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:4989:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4989:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[34])), (4), "CLASS_OBJCOND");/*_.INST__V79*/ curfptr[78] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4989:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4989:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), (/*_.TESTCHUNK__V57*/ curfptr[56]), "OBCOND_TEST");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4989:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), (/*_.OTHENBODY__V73*/ curfptr[72]), "OBCOND_THEN");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:4989:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.OELSEBODY__V76*/ curfptr[75]), "OBCOND_ELSE");
-     ;
-     /*_.OCOND__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:4996:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:4996:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L23*/ curfnum[12] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:4996:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:4996:/ apply.arg");
-       argtab[0].bp_cstring =  "compilmatcher_cmatcher ocond";
-       MELT_LOCATION("warmelt-genobj.melt:4996:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[12];
-       MELT_LOCATION("warmelt-genobj.melt:4996:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:4996:/ apply.arg");
-       argtab[3].bp_long = 4996;
-       /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V78*/ curfptr[77]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V80*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[80];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4996:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[12] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4996:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:4996:/ cppif.else");
-    /*_.IFCPP___V80*/ curfptr[79] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:4997:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V31*/ curfptr[26]), (melt_ptr_t)(/*_.OCOND__V78*/ curfptr[77]));}
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CMOUTS__V18*/ curfptr[17]);
-   for (/*_#OUTIX__L24*/ curfnum[12] = 0;  
-	(/*_#OUTIX__L24*/ curfnum[12] >= 0) && (/*_#OUTIX__L24*/ curfnum[12] <  cit1__EACHTUP_ln);  
-	/*_#OUTIX__L24*/ curfnum[12]++) {
-   /*_.CUROUT__V82*/ curfptr[80] = melt_multiple_nth((melt_ptr_t)(/*_.CMOUTS__V18*/ curfptr[17]),  /*_#OUTIX__L24*/ curfnum[12]);
-   
-    
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:5001:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:5001:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 
-        callcount;;
-       MELT_LOCATION("warmelt-genobj.melt:5001:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-genobj.melt:5001:/ apply.arg");
-        argtab[0].bp_cstring =  "compilmatcher_cmatcher curout";
-        MELT_LOCATION("warmelt-genobj.melt:5001:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24];
-        MELT_LOCATION("warmelt-genobj.melt:5001:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-genobj.melt";
-        MELT_LOCATION("warmelt-genobj.melt:5001:/ apply.arg");
-        argtab[3].bp_long = 5001;
-        /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V82*/ curfptr[80]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V83*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V84*/ curfptr[83];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:5001:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:5001:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:5001:/ cppif.else");
-     /*_.IFCPP___V83*/ curfptr[82] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-genobj.melt:5002:/ cppif.then");
-     MELT_LOCATION("warmelt-genobj.melt:5002:/ block");
-      /*block*/{
-       /*_#IS_A__L26*/ curfnum[24] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CUROUT__V82*/ curfptr[80]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[35])));;
-       MELT_LOCATION("warmelt-genobj.melt:5002:/ cond");
-       /*cond*/ if (/*_#IS_A__L26*/ curfnum[24]) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:5002:/ cond.then");
-       /*_.IFELSE___V86*/ curfptr[85] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-genobj.melt:5002:/ cond.else");
-       
-        MELT_LOCATION("warmelt-genobj.melt:5002:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-genobj.melt:5002:/ locexp");
-          melt_assert_failed(( "check curout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (5002)?(5002):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V86*/ curfptr[85] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V85*/ curfptr[83] = /*_.IFELSE___V86*/ curfptr[85];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:5002:/ clear");
-       /*clear*/ /*_#IS_A__L26*/ curfnum[24] = 0 ;
-       MELT_LOCATION("warmelt-genobj.melt:5002:/ clear");
-       /*clear*/ /*_.IFELSE___V86*/ curfptr[85] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-genobj.melt:5002:/ cppif.else");
-     /*_.IFCPP___V85*/ curfptr[83] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-genobj.melt:5003:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:5005:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CUROUT__V82*/ curfptr[80]), 0, "BINDER");/*_.BINDER__V87*/ curfptr[85] = slot; };
-      ;
-      /*_.LOCOUT__V88*/ curfptr[87] = 
-       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SUBSTMAP__V23*/ curfptr[22]), (meltobject_ptr_t)(/*_.BINDER__V87*/ curfptr[85]));;
-      MELT_LOCATION("warmelt-genobj.melt:5006:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:5006:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[36])), (2), "CLASS_OBJCLEAR");/*_.INST__V90*/ curfptr[89] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:5006:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[89])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V90*/ curfptr[89]), (0), (/*_.MLOC__V56*/ curfptr[55]), "OBI_LOC");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:5006:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[89])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V90*/ curfptr[89]), (1), (/*_.LOCOUT__V88*/ curfptr[87]), "OCLR_VLOC");
-       ;
-       /*_.OCLEAROUT__V89*/ curfptr[88] = /*_.INST__V90*/ curfptr[89];;}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:5009:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:5009:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:5009:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:5009:/ apply.arg");
-         argtab[0].bp_cstring =  "compilmatcher_cmatcher oclearout";
-         MELT_LOCATION("warmelt-genobj.melt:5009:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[24];
-         MELT_LOCATION("warmelt-genobj.melt:5009:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:5009:/ apply.arg");
-         argtab[3].bp_long = 5009;
-         /*_.DEBUG_MSG_FUN__V92*/ curfptr[91] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCLEAROUT__V89*/ curfptr[88]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V91*/ curfptr[90] = /*_.DEBUG_MSG_FUN__V92*/ curfptr[91];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:5009:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:5009:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V92*/ curfptr[91] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:5009:/ cppif.else");
-      /*_.IFCPP___V91*/ curfptr[90] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:5010:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:5010:/ block");
-       /*block*/{
-        /*_#IS_OBJECT__L28*/ curfnum[24] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.LOCOUT__V88*/ curfptr[87])) == OBMAG_OBJECT);;
-        MELT_LOCATION("warmelt-genobj.melt:5010:/ cond");
-        /*cond*/ if (/*_#IS_OBJECT__L28*/ curfnum[24]) /*then*/ {
-        MELT_LOCATION("warmelt-genobj.melt:5010:/ cond.then");
-        /*_.IFELSE___V94*/ curfptr[93] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-genobj.melt:5010:/ cond.else");
-        
-         MELT_LOCATION("warmelt-genobj.melt:5010:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-genobj.melt:5010:/ locexp");
-           melt_assert_failed(( "check locout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (5010)?(5010):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V94*/ curfptr[93] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V93*/ curfptr[91] = /*_.IFELSE___V94*/ curfptr[93];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:5010:/ clear");
-        /*clear*/ /*_#IS_OBJECT__L28*/ curfnum[24] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:5010:/ clear");
-        /*clear*/ /*_.IFELSE___V94*/ curfptr[93] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:5010:/ cppif.else");
-      /*_.IFCPP___V93*/ curfptr[91] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:5011:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V72*/ curfptr[71]), (melt_ptr_t)(/*_.OCLEAROUT__V89*/ curfptr[88]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
-      /*clear*/ /*_.BINDER__V87*/ curfptr[85] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
-      /*clear*/ /*_.LOCOUT__V88*/ curfptr[87] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
-      /*clear*/ /*_.OCLEAROUT__V89*/ curfptr[88] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
-      /*clear*/ /*_.IFCPP___V91*/ curfptr[90] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5003:/ clear");
-      /*clear*/ /*_.IFCPP___V93*/ curfptr[91] = 0 ;}
-     ;
-     if (/*_#OUTIX__L24*/ curfnum[12]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4998:/ clear");
-     /*clear*/ /*_.CUROUT__V82*/ curfptr[80] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4998:/ clear");
-     /*clear*/ /*_#OUTIX__L24*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4998:/ clear");
-     /*clear*/ /*_.IFCPP___V83*/ curfptr[82] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4998:/ clear");
-     /*clear*/ /*_.IFCPP___V85*/ curfptr[83] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5014:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V72*/ curfptr[71]), (melt_ptr_t)(/*_.FILLCHUNK__V59*/ curfptr[58]));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5015:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:5015:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:5015:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 3, "MCX_GOTOTHEN");/*_.MCX_GOTOTHEN__V95*/ curfptr[93] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:5015:/ cond.else");
-    
-     /*_.MCX_GOTOTHEN__V95*/ curfptr[93] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5015:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V72*/ curfptr[71]), (melt_ptr_t)(/*_.MCX_GOTOTHEN__V95*/ curfptr[93]));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5016:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:5016:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:5016:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 4, "MCX_GOTOELSE");/*_.MCX_GOTOELSE__V96*/ curfptr[85] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:5016:/ cond.else");
-    
-     /*_.MCX_GOTOELSE__V96*/ curfptr[85] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5016:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V75*/ curfptr[74]), (melt_ptr_t)(/*_.MCX_GOTOELSE__V96*/ curfptr[85]));}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:5017:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:5017:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:5017:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:5017:/ apply.arg");
-       argtab[0].bp_cstring =  "compilmatcher_cmatcher final ocond";
-       MELT_LOCATION("warmelt-genobj.melt:5017:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[24];
-       MELT_LOCATION("warmelt-genobj.melt:5017:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:5017:/ apply.arg");
-       argtab[3].bp_long = 5017;
-       /*_.DEBUG_MSG_FUN__V98*/ curfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V78*/ curfptr[77]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V97*/ curfptr[87] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[88];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:5017:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5017:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[88] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:5017:/ cppif.else");
-    /*_.IFCPP___V97*/ curfptr[87] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V71*/ curfptr[69] = /*_.IFCPP___V97*/ curfptr[87];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.OTHENLIST__V72*/ curfptr[71] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.OTHENBODY__V73*/ curfptr[72] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.OELSELIST__V75*/ curfptr[74] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.OELSEBODY__V76*/ curfptr[75] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.OCOND__V78*/ curfptr[77] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.IFCPP___V80*/ curfptr[79] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.MCX_GOTOTHEN__V95*/ curfptr[93] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.MCX_GOTOELSE__V96*/ curfptr[85] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4978:/ clear");
-    /*clear*/ /*_.IFCPP___V97*/ curfptr[87] = 0 ;}
-   ;
-   /*_.LET___V51*/ curfptr[49] = /*_.LET___V71*/ curfptr[69];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.EXPANDER__V52*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.EXPTEST__V54*/ curfptr[53] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.EXPFILL__V55*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.MLOC__V56*/ curfptr[55] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.TESTCHUNK__V57*/ curfptr[56] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.FILLCHUNK__V59*/ curfptr[58] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.IFCPP___V65*/ curfptr[63] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.IFCPP___V67*/ curfptr[65] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.IFCPP___V69*/ curfptr[67] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4940:/ clear");
-   /*clear*/ /*_.LET___V71*/ curfptr[69] = 0 ;}
-  ;
-  /*_.LET___V15*/ curfptr[13] = /*_.LET___V51*/ curfptr[49];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.CMINS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.CMBIND__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.CMOUTS__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.CMSTATE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.CMEXPTEST__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.CMEXPFILL__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.NORMTESTER__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.SUBSTMAP__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#LET___L11*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_#MCXCOUNT__L14*/ curfnum[11] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.UNIQSTATE__V30*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.OLIST__V31*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.NTMATCH_INARGS__V41*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.LAMBDA___V42*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V44*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.NTMATCH_OUTLOCS__V45*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V48*/ curfptr[47] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4868:/ clear");
-  /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4862:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V15*/ curfptr[13];;
-  MELT_LOCATION("warmelt-genobj.melt:4862:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4862:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4862:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4862:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4862:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4862:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4862:/ clear");
- /*clear*/ /*_.LET___V15*/ curfptr[13] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILMATCHER_CMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_148_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_148_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4914:/ getarg");
- /*_.CURIN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4914:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.FORMIN__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4914:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4914:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4915:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4915:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4915:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4915:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_cmatcher curin";
-    MELT_LOCATION("warmelt-genobj.melt:4915:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:4915:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4915:/ apply.arg");
-    argtab[3].bp_long = 4915;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURIN__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4915:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4915:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4915:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4916:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4916:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4916:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4916:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_cmatcher formin";
-    MELT_LOCATION("warmelt-genobj.melt:4916:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:4916:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4916:/ apply.arg");
-    argtab[3].bp_long = 4916;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4916:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4916:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4916:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4917:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4917:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4917:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4917:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4917:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4917:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4917:/ locexp");
-      melt_assert_failed(( "check formin"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4917)?(4917):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4917:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4917:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4917:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4918:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4918:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4918:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OIN__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CURIN__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4919:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4919:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4919:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4919:/ apply.arg");
-     argtab[0].bp_cstring =  "compilmatcher_cmatcher oin";
-     MELT_LOCATION("warmelt-genobj.melt:4919:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:4919:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4919:/ apply.arg");
-     argtab[3].bp_long = 4919;
-     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OIN__V10*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4919:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4919:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4919:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4921:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4921:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4921:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMIN__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDER__V13*/ curfptr[11] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4921:/ cond.else");
-  
-   /*_.BINDER__V13*/ curfptr[11] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4920:/ locexp");
-  meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SUBSTMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.BINDER__V13*/ curfptr[11]), 
-			   (melt_ptr_t)(/*_.OIN__V10*/ curfptr[8]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4918:/ clear");
-  /*clear*/ /*_.OIN__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4918:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4918:/ clear");
-  /*clear*/ /*_.BINDER__V13*/ curfptr[11] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4914:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4914:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4914:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_148_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_149_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_149_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4928:/ getarg");
- /*_.CUROUT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:4928:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.FORMOUT__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:4928:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4928:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4929:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4929:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4929:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4929:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_cmatcher curout";
-    MELT_LOCATION("warmelt-genobj.melt:4929:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:4929:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4929:/ apply.arg");
-    argtab[3].bp_long = 4929;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4929:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4929:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4929:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4930:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4930:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:4930:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:4930:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_cmatcher formout";
-    MELT_LOCATION("warmelt-genobj.melt:4930:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-genobj.melt:4930:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:4930:/ apply.arg");
-    argtab[3].bp_long = 4930;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4930:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4930:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4930:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:4931:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:4931:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:4931:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4931:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4931:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4931:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4931:/ locexp");
-      melt_assert_failed(( "check formout"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (4931)?(4931):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4931:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4931:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:4931:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:4932:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4932:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4932:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-   /*_.OOUT__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CUROUT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:4933:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:4933:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:4933:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:4933:/ apply.arg");
-     argtab[0].bp_cstring =  "compilmatcher_cmatcher oout";
-     MELT_LOCATION("warmelt-genobj.melt:4933:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
-     MELT_LOCATION("warmelt-genobj.melt:4933:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:4933:/ apply.arg");
-     argtab[3].bp_long = 4933;
-     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OOUT__V10*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4933:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4933:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:4933:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:4935:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:4935:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:4935:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMOUT__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDER__V13*/ curfptr[11] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:4935:/ cond.else");
-  
-   /*_.BINDER__V13*/ curfptr[11] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-genobj.melt:4934:/ locexp");
-  meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SUBSTMAP*/ curfclos->tabval[1])), 
-			   (meltobject_ptr_t) (/*_.BINDER__V13*/ curfptr[11]), 
-			   (melt_ptr_t)(/*_.OOUT__V10*/ curfptr[8]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4932:/ clear");
-  /*clear*/ /*_.OOUT__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4932:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:4932:/ clear");
-  /*clear*/ /*_.BINDER__V13*/ curfptr[11] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4928:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4928:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4928:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_149_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_150_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_150_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4942:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4942:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:4945:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4945:/ newclosure");
-   /*newclosure*/ /*_.LAMBDA___V4*/ curfptr[3] =
-   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2));
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4945:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V4*/ curfptr[3])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V4*/ curfptr[3])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V4*/ curfptr[3])->tabval[0] = (melt_ptr_t)((/*~SUBSTMAP*/ curfclos->tabval[0]));
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:4945:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V4*/ curfptr[3])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V4*/ curfptr[3])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V4*/ curfptr[3])->tabval[1] = (melt_ptr_t)((/*~MCX*/ curfclos->tabval[1]));
-  ;
-  /*_.LAMBDA___V3*/ curfptr[2] = /*_.LAMBDA___V4*/ curfptr[3];;}
- ;
- MELT_LOCATION("warmelt-genobj.melt:4943:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:4943:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V3*/ curfptr[2];
-  /*_.MULTIPLE_MAP__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:4942:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-genobj.melt:4942:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
- /*clear*/ /*_.LAMBDA___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4942:/ clear");
- /*clear*/ /*_.MULTIPLE_MAP__V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_150_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_151_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_151_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:4945:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:4945:/ block");
-/*block*/{
- /*_#IS_A__L1*/ curfnum[0] = 
-  melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-genobj.melt:4947:/ cond");
- /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-genobj.melt:4947:/ cond.then");
- MELT_LOCATION("warmelt-genobj.melt:4947:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:4948:/ block");
-   /*block*/{
-    /*_.R__V5*/ curfptr[4] = 
-     melt_get_mapobjects((meltmapobjects_ptr_t)((/*~SUBSTMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.C__V2*/ curfptr[1]));;
-    /*_#NULL__L2*/ curfnum[1] = 
-     ((/*_.R__V5*/ curfptr[4]) == NULL);;
-    MELT_LOCATION("warmelt-genobj.melt:4949:/ cond");
-    /*cond*/ if (/*_#NULL__L2*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:4949:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:4949:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:4950:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4950:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4950:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V6*/ curfptr[5] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4950:/ cond.else");
-      
-       /*_.MCX_LOC__V6*/ curfptr[5] = NULL;;
-       }
-      ;
-      MELT_LOCATION("warmelt-genobj.melt:4951:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
-      MELT_LOCATION("warmelt-genobj.melt:4951:/ cond.then");
-      MELT_LOCATION("warmelt-genobj.melt:4951:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.C__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ curfptr[6] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-genobj.melt:4951:/ cond.else");
-      
-       /*_.NAMED_NAME__V7*/ curfptr[6] = NULL;;
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4950:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.MCX_LOC__V6*/ curfptr[5]), ( "invalid symbol to expand for cmatcher"), (melt_ptr_t)(/*_.NAMED_NAME__V7*/ curfptr[6]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:4949:/ clear");
-      /*clear*/ /*_.MCX_LOC__V6*/ curfptr[5] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:4949:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V7*/ curfptr[6] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    /*_.LET___V4*/ curfptr[3] = /*_.R__V5*/ curfptr[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:4948:/ clear");
-    /*clear*/ /*_.R__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:4948:/ clear");
-    /*clear*/ /*_#NULL__L2*/ curfnum[1] = 0 ;}
-   ;
-   /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4947:/ clear");
-   /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-genobj.melt:4947:/ cond.else");
- 
-  MELT_LOCATION("warmelt-genobj.melt:4947:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-genobj.melt:4953:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:4953:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:4953:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:4954:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4954:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:4954:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V9*/ curfptr[6] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4954:/ cond.else");
-     
-      /*_.MCX_LOC__V9*/ curfptr[6] = NULL;;
-      }
-     ;
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:4954:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.MCX_LOC__V9*/ curfptr[6]), ( "invalid object to expand for cmatcher"), (melt_ptr_t)0);}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4953:/ clear");
-     /*clear*/ /*_.MCX_LOC__V9*/ curfptr[6] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:4953:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:4953:/ block");
-    /*block*/{
-     /*_#IS_STRING__L4*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.C__V2*/ curfptr[1])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-genobj.melt:4956:/ cond");
-     /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-genobj.melt:4956:/ cond.then");
-     MELT_LOCATION("warmelt-genobj.melt:4956:/ block");
-      /*block*/{
-       /*_.MAKE_STRING__V11*/ curfptr[3] = 
-        (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[3])), 
-			  melt_string_str((melt_ptr_t)(/*_.C__V2*/ curfptr[1]))));;
-       /*_.IFELSE___V10*/ curfptr[4] = /*_.MAKE_STRING__V11*/ curfptr[3];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4956:/ clear");
-       /*clear*/ /*_.MAKE_STRING__V11*/ curfptr[3] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-genobj.melt:4956:/ cond.else");
-     
-      MELT_LOCATION("warmelt-genobj.melt:4956:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:4959:/ cond");
-       /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[1])))) /*then*/ {
-       MELT_LOCATION("warmelt-genobj.melt:4959:/ cond.then");
-       MELT_LOCATION("warmelt-genobj.melt:4959:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)((/*~MCX*/ curfclos->tabval[1])), 1, "MCX_LOC");/*_.MCX_LOC__V12*/ curfptr[6] = slot; };
-        ;
-       } else {MELT_LOCATION("warmelt-genobj.melt:4959:/ cond.else");
-       
-        /*_.MCX_LOC__V12*/ curfptr[6] = NULL;;
-        }
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:4959:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.MCX_LOC__V12*/ curfptr[6]), ( "invalid stuff to expand for cmatcher"), (melt_ptr_t)0);}
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:4958:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-genobj.melt:4956:/ clear");
-       /*clear*/ /*_.MCX_LOC__V12*/ curfptr[6] = 0 ;}
-      ;
-      }
-     ;
-     /*_.IFELSE___V8*/ curfptr[5] = /*_.IFELSE___V10*/ curfptr[4];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:4953:/ clear");
-     /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:4953:/ clear");
-     /*clear*/ /*_.IFELSE___V10*/ curfptr[4] = 0 ;}
-    ;
-    }
-   ;
-   /*_.IFELSE___V3*/ curfptr[2] = /*_.IFELSE___V8*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:4947:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:4947:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:4945:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:4945:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:4945:/ clear");
- /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:4945:/ clear");
- /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_151_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 97
-  void* varptr[97];
-#define CURFRAM_NBVARNUM 30
-  long varnum[30];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<97; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 97;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILMATCHER_FUNMATCHER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:5029:/ getarg");
- /*_.FMAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-genobj.melt:5029:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-genobj.melt:5029:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.GCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:5029:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:5030:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:5030:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:5030:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5030:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_funmatcher fmat";
-    MELT_LOCATION("warmelt-genobj.melt:5030:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:5030:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:5030:/ apply.arg");
-    argtab[3].bp_long = 5030;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:5030:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5030:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:5030:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:5031:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:5031:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-genobj.melt:5031:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5031:/ apply.arg");
-    argtab[0].bp_cstring =  "compilmatcher_funmatcher mcx";
-    MELT_LOCATION("warmelt-genobj.melt:5031:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-genobj.melt:5031:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-genobj.melt";
-    MELT_LOCATION("warmelt-genobj.melt:5031:/ apply.arg");
-    argtab[3].bp_long = 5031;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5031:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:5031:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:5032:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:5032:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-genobj.melt:5032:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5032:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5032:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:5032:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:5032:/ locexp");
-      melt_assert_failed(( "check fmat"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (5032)?(5032):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:5032:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5032:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:5032:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:5033:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:5033:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-genobj.melt:5033:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5033:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5033:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:5033:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:5033:/ locexp");
-      melt_assert_failed(( "check mcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (5033)?(5033):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:5033:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5033:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:5033:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-genobj.melt:5034:/ cppif.then");
- MELT_LOCATION("warmelt-genobj.melt:5034:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_C_GENERATION_CONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-genobj.melt:5034:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5034:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5034:/ cond.else");
-   
-    MELT_LOCATION("warmelt-genobj.melt:5034:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:5034:/ locexp");
-      melt_assert_failed(( "check gcx"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (5034)?(5034):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:5034:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5034:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-genobj.melt:5034:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-genobj.melt:5035:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:5036:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), 2, "AMATCH_IN");/*_.FMINS__V15*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:5037:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), 3, "AMATCH_MATCHBIND");/*_.FMBIND__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:5038:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FMAT__V2*/ curfptr[1]), 4, "AMATCH_OUT");/*_.FMOUTS__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:5039:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:5039:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:5039:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 2, "MCX_NORMTESTER");/*_.NTMA__V18*/ curfptr[17] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:5039:/ cond.else");
-  
-   /*_.NTMA__V18*/ curfptr[17] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:5041:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:5041:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:5041:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 5, "MCX_OLIST");/*_.OLIST__V19*/ curfptr[18] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:5041:/ cond.else");
-  
-   /*_.OLIST__V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-genobj.melt:5042:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-genobj.melt:5042:/ cond.then");
-  MELT_LOCATION("warmelt-genobj.melt:5042:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 1, "MCX_LOC");/*_.MLOC__V20*/ curfptr[19] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-genobj.melt:5042:/ cond.else");
-  
-   /*_.MLOC__V20*/ curfptr[19] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:5044:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:5044:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-genobj.melt:5044:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:5044:/ apply.arg");
-     argtab[0].bp_cstring =  "compilmatcher_funmatcher ntma";
-     MELT_LOCATION("warmelt-genobj.melt:5044:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-genobj.melt:5044:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-genobj.melt";
-     MELT_LOCATION("warmelt-genobj.melt:5044:/ apply.arg");
-     argtab[3].bp_long = 5044;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:5044:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5044:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:5044:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-genobj.melt:5045:/ cppif.then");
-  MELT_LOCATION("warmelt-genobj.melt:5045:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-genobj.melt:5045:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:5045:/ cond.then");
-    /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-genobj.melt:5045:/ cond.else");
-    
-     MELT_LOCATION("warmelt-genobj.melt:5045:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-genobj.melt:5045:/ locexp");
-       melt_assert_failed(( "check ntma"),( "warmelt-genobj.melt")?( "warmelt-genobj.melt"):__FILE__,
-  (5045)?(5045):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:5045:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5045:/ clear");
-    /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-genobj.melt:5045:/ cppif.else");
-  /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-genobj.melt:5046:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 8, "NTMATCH_MATNDATA");/*_.MATNDATA__V25*/ curfptr[23] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5046:/ cond.else");
-   
-    /*_.MATNDATA__V25*/ curfptr[23] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5047:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5047:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
-    /*_.OMATDATA__V26*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.MATNDATA__V25*/ curfptr[23]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5048:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_ANY*/ curfrout->tabval[6])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5048:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:5048:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 1, "NTEST_MATCHED");/*_.NMATCHED__V27*/ curfptr[26] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5048:/ cond.else");
-   
-    /*_.NMATCHED__V27*/ curfptr[26] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5049:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5049:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
-    /*_.OMATCHED__V28*/ curfptr[27] = meltgc_send((melt_ptr_t)(/*_.NMATCHED__V27*/ curfptr[26]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5050:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5050:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:5050:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 9, "NTMATCH_INARGS");/*_.NINS__V29*/ curfptr[28] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5050:/ cond.else");
-   
-    /*_.NINS__V29*/ curfptr[28] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5051:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NORMTESTER_MATCHER*/ curfrout->tabval[4])))) /*then*/ {
-   MELT_LOCATION("warmelt-genobj.melt:5051:/ cond.then");
-   MELT_LOCATION("warmelt-genobj.melt:5051:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), 10, "NTMATCH_OUTLOCS");/*_.NOUTS__V30*/ curfptr[29] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-genobj.melt:5051:/ cond.else");
-   
-    /*_.NOUTS__V30*/ curfptr[29] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5054:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:5054:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[31] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5054:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
-    ;
-    /*_.LAMBDA___V31*/ curfptr[30] = /*_.LAMBDA___V32*/ curfptr[31];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5052:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5052:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[30];
-    /*_.OINS__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NINS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5059:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-genobj.melt:5059:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V35*/ curfptr[34] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5059:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[0] = (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]);
-    ;
-    /*_.LAMBDA___V34*/ curfptr[33] = /*_.LAMBDA___V35*/ curfptr[34];;}
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5057:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5057:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V34*/ curfptr[33];
-    /*_.OOUTS__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NOUTS__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5062:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5062:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FMAT__V2*/ curfptr[1];
-    /*_.OTESTRES__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-genobj.melt:5063:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-genobj.melt:5063:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!konst_13_CLOSFUNMATCH*/ curfrout->tabval[13]);
-    /*_.OTESTCLOS__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!GET_FREE_OBJLOCPTR*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.GCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5065:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5065:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5065:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5065:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher matndata";
-      MELT_LOCATION("warmelt-genobj.melt:5065:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5065:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5065:/ apply.arg");
-      argtab[3].bp_long = 5065;
-      /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MATNDATA__V25*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5065:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5065:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5065:/ cppif.else");
-   /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5066:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5066:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5066:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5066:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher omatdata";
-      MELT_LOCATION("warmelt-genobj.melt:5066:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5066:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5066:/ apply.arg");
-      argtab[3].bp_long = 5066;
-      /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMATDATA__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5066:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5066:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5066:/ cppif.else");
-   /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5067:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5067:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5067:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher fmins";
-      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5067:/ apply.arg");
-      argtab[3].bp_long = 5067;
-      /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMINS__V15*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V43*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5067:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5067:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5067:/ cppif.else");
-   /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5068:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5068:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5068:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher fmbind";
-      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5068:/ apply.arg");
-      argtab[3].bp_long = 5068;
-      /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5068:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5068:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5068:/ cppif.else");
-   /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5069:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5069:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5069:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher fmouts";
-      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5069:/ apply.arg");
-      argtab[3].bp_long = 5069;
-      /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMOUTS__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5069:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5069:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5069:/ cppif.else");
-   /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5070:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5070:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5070:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher nins";
-      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5070:/ apply.arg");
-      argtab[3].bp_long = 5070;
-      /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NINS__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5070:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5070:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5070:/ cppif.else");
-   /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5071:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5071:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5071:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher nouts";
-      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5071:/ apply.arg");
-      argtab[3].bp_long = 5071;
-      /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NOUTS__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5071:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5071:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5071:/ cppif.else");
-   /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5072:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5072:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5072:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher nmatched";
-      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5072:/ apply.arg");
-      argtab[3].bp_long = 5072;
-      /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHED__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V53*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5072:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5072:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5072:/ cppif.else");
-   /*_.IFCPP___V53*/ curfptr[51] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5073:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5073:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5073:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher omatched";
-      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5073:/ apply.arg");
-      argtab[3].bp_long = 5073;
-      /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMATCHED__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V55*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5073:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5073:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5073:/ cppif.else");
-   /*_.IFCPP___V55*/ curfptr[53] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5074:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5074:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5074:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher oins";
-      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5074:/ apply.arg");
-      argtab[3].bp_long = 5074;
-      /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OINS__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V57*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5074:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5074:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5074:/ cppif.else");
-   /*_.IFCPP___V57*/ curfptr[55] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5075:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5075:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L18*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5075:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher oouts";
-      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5075:/ apply.arg");
-      argtab[3].bp_long = 5075;
-      /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OOUTS__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V59*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5075:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5075:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5075:/ cppif.else");
-   /*_.IFCPP___V59*/ curfptr[57] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5076:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5076:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L19*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5076:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher ntma";
-      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5076:/ apply.arg");
-      argtab[3].bp_long = 5076;
-      /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NTMA__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V61*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5076:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5076:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5076:/ cppif.else");
-   /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5077:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5077:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L20*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5077:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher otestres";
-      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5077:/ apply.arg");
-      argtab[3].bp_long = 5077;
-      /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTESTRES__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V63*/ curfptr[61] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5077:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5077:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5077:/ cppif.else");
-   /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-genobj.melt:5078:/ cppif.then");
-   MELT_LOCATION("warmelt-genobj.melt:5078:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-genobj.melt:5078:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
-      argtab[0].bp_cstring =  "compilmatcher_funmatcher otestclos";
-      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0];
-      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-genobj.melt";
-      MELT_LOCATION("warmelt-genobj.melt:5078:/ apply.arg");
-      argtab[3].bp_long = 5078;
-      /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OTESTCLOS__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V65*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5078:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5078:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-genobj.melt:5078:/ cppif.else");
-   /*_.IFCPP___V65*/ curfptr[63] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-genobj.melt:5080:/ block");
-   /*block*/{
-    /*_#MULTIPLE_LENGTH__L22*/ curfnum[0] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.OINS__V33*/ curfptr[32])));;
-    /*_#I__L23*/ curfnum[22] = 
-     ((2) + (/*_#MULTIPLE_LENGTH__L22*/ curfnum[0]));;
-    /*_.OARGS__V67*/ curfptr[65] = 
-     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#I__L23*/ curfnum[22])));;
-    MELT_LOCATION("warmelt-genobj.melt:5084:/ apply");
-    /*apply*/{
-     /*_.LIST1__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OTESTCLOS__V38*/ curfptr[37]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5082:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:5082:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[15])), (4), "CLASS_OBJGETSLOT");/*_.INST__V70*/ curfptr[69] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5082:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5082:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (1), (/*_.LIST1__V68*/ curfptr[67]), "OBDI_DESTLIST");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5082:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OGETSL_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (2), (/*_.OMATDATA__V26*/ curfptr[25]), "OGETSL_OBJ");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5082:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OGETSL_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (3), ((/*!FMATCH_MATCHF*/ curfrout->tabval[17])), "OGETSL_FIELD");
-     ;
-     /*_.OGETCLOS__V69*/ curfptr[68] = /*_.INST__V70*/ curfptr[69];;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5090:/ apply");
-    /*apply*/{
-     /*_.LIST1__V71*/ curfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!LIST1*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OTESTRES__V37*/ curfptr[36]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5088:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:5088:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[18])), (5), "CLASS_OBJMULTIAPPLY");/*_.INST__V73*/ curfptr[72] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5088:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5088:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBDI_DESTLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (1), (/*_.LIST1__V71*/ curfptr[70]), "OBDI_DESTLIST");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5088:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBAPP_CLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (2), (/*_.OTESTCLOS__V38*/ curfptr[37]), "OBAPP_CLOS");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5088:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBAPP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (3), (/*_.OARGS__V67*/ curfptr[65]), "OBAPP_ARGS");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5088:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBMULTAPP_XRES", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (4), (/*_.OOUTS__V36*/ curfptr[35]), "OBMULTAPP_XRES");
-     ;
-     /*_.OMAPP__V72*/ curfptr[71] = /*_.INST__V73*/ curfptr[72];;}
-    ;
-    /*_.OTHENLIST__V74*/ curfptr[73] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[19]))));;
-    MELT_LOCATION("warmelt-genobj.melt:5096:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:5096:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[20])), (3), "CLASS_OBJBLOCK");/*_.INST__V76*/ curfptr[75] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5096:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5096:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.OTHENLIST__V74*/ curfptr[73]), "OBLO_BODYL");
-     ;
-     /*_.OTHENBODY__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;}
-    ;
-    /*_.OELSELIST__V77*/ curfptr[76] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[19]))));;
-    MELT_LOCATION("warmelt-genobj.melt:5101:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:5101:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[20])), (3), "CLASS_OBJBLOCK");/*_.INST__V79*/ curfptr[78] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5101:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5101:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBLO_BODYL", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), (/*_.OELSELIST__V77*/ curfptr[76]), "OBLO_BODYL");
-     ;
-     /*_.OELSEBODY__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5105:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-genobj.melt:5105:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[21])), (4), "CLASS_OBJCOND");/*_.INST__V81*/ curfptr[80] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5105:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5105:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCOND_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (1), (/*_.OTESTRES__V37*/ curfptr[36]), "OBCOND_TEST");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5105:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCOND_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (2), (/*_.OTHENBODY__V75*/ curfptr[74]), "OBCOND_THEN");
-     ;
-     MELT_LOCATION("warmelt-genobj.melt:5105:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @OBCOND_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (3), (/*_.OELSEBODY__V78*/ curfptr[77]), "OBCOND_ELSE");
-     ;
-     /*_.OCOND__V80*/ curfptr[79] = /*_.INST__V81*/ curfptr[80];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5112:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.OARGS__V67*/ curfptr[65]), (0), (melt_ptr_t)(/*_.OMATDATA__V26*/ curfptr[25]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5113:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.OARGS__V67*/ curfptr[65]), (1), (melt_ptr_t)(/*_.OMATCHED__V28*/ curfptr[27]));}
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OINS__V33*/ curfptr[32]);
-   for (/*_#INIX__L24*/ curfnum[23] = 0;  
-	(/*_#INIX__L24*/ curfnum[23] >= 0) && (/*_#INIX__L24*/ curfnum[23] <  cit1__EACHTUP_ln);  
-	/*_#INIX__L24*/ curfnum[23]++) {
-   /*_.CURINS__V82*/ curfptr[81] = melt_multiple_nth((melt_ptr_t)(/*_.OINS__V33*/ curfptr[32]),  /*_#INIX__L24*/ curfnum[23]);
-   
-    
-     /*_#I__L25*/ curfnum[24] = 
-      ((/*_#INIX__L24*/ curfnum[23]) + (2));;
-     
-     {
-     MELT_LOCATION("warmelt-genobj.melt:5117:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.OARGS__V67*/ curfptr[65]), (/*_#I__L25*/ curfnum[24]), (melt_ptr_t)(/*_.CURINS__V82*/ curfptr[81]));}
-     ;
-     if (/*_#INIX__L24*/ curfnum[23]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5114:/ clear");
-     /*clear*/ /*_.CURINS__V82*/ curfptr[81] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5114:/ clear");
-     /*clear*/ /*_#INIX__L24*/ curfnum[23] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5114:/ clear");
-     /*clear*/ /*_#I__L25*/ curfnum[24] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OOUTS__V36*/ curfptr[35]);
-   for (/*_#OUTIX__L26*/ curfnum[25] = 0;  
-	(/*_#OUTIX__L26*/ curfnum[25] >= 0) && (/*_#OUTIX__L26*/ curfnum[25] <  cit2__EACHTUP_ln);  
-	/*_#OUTIX__L26*/ curfnum[25]++) {
-   /*_.CUROUTS__V83*/ curfptr[82] = melt_multiple_nth((melt_ptr_t)(/*_.OOUTS__V36*/ curfptr[35]),  /*_#OUTIX__L26*/ curfnum[25]);
-   
-    
-     MELT_LOCATION("warmelt-genobj.melt:5123:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-genobj.melt:5123:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-genobj.melt:5123:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[22])), (2), "CLASS_OBJCLEAR");/*_.INST__V85*/ curfptr[84] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:5123:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OBI_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (0), (/*_.MLOC__V20*/ curfptr[19]), "OBI_LOC");
-       ;
-       MELT_LOCATION("warmelt-genobj.melt:5123:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @OCLR_VLOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (1), (/*_.CUROUTS__V83*/ curfptr[82]), "OCLR_VLOC");
-       ;
-       /*_.OBCL__V84*/ curfptr[83] = /*_.INST__V85*/ curfptr[84];;}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-genobj.melt:5126:/ cppif.then");
-      MELT_LOCATION("warmelt-genobj.melt:5126:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 
-         callcount;;
-        MELT_LOCATION("warmelt-genobj.melt:5126:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-genobj.melt:5126:/ apply.arg");
-         argtab[0].bp_cstring =  "compilmatcher_funmatcher obcl";
-         MELT_LOCATION("warmelt-genobj.melt:5126:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[26];
-         MELT_LOCATION("warmelt-genobj.melt:5126:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-genobj.melt";
-         MELT_LOCATION("warmelt-genobj.melt:5126:/ apply.arg");
-         argtab[3].bp_long = 5126;
-         /*_.DEBUG_MSG_FUN__V87*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBCL__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V86*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V87*/ curfptr[86];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-genobj.melt:5126:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 0 ;
-        MELT_LOCATION("warmelt-genobj.melt:5126:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[86] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-genobj.melt:5126:/ cppif.else");
-      /*_.IFCPP___V86*/ curfptr[85] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-genobj.melt:5127:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V77*/ curfptr[76]), (melt_ptr_t)(/*_.OBCL__V84*/ curfptr[83]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:5123:/ clear");
-      /*clear*/ /*_.OBCL__V84*/ curfptr[83] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5123:/ clear");
-      /*clear*/ /*_.IFCPP___V86*/ curfptr[85] = 0 ;}
-     ;
-     if (/*_#OUTIX__L26*/ curfnum[25]<0) break;
-   } /* end cit2__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-genobj.melt:5120:/ clear");
-     /*clear*/ /*_.CUROUTS__V83*/ curfptr[82] = 0 ;
-     MELT_LOCATION("warmelt-genobj.melt:5120:/ clear");
-     /*clear*/ /*_#OUTIX__L26*/ curfnum[25] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5130:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:5130:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
-     /*_.DISPOSE_OBJLOC__V88*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.OTESTRES__V37*/ curfptr[36]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5131:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-genobj.melt:5131:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GCX__V4*/ curfptr[3];
-     /*_.DISPOSE_OBJLOC__V89*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DISPOSE_OBJLOC*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.OTESTCLOS__V38*/ curfptr[37]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5133:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:5133:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:5133:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 3, "MCX_GOTOTHEN");/*_.MCX_GOTOTHEN__V90*/ curfptr[85] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:5133:/ cond.else");
-    
-     /*_.MCX_GOTOTHEN__V90*/ curfptr[85] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5133:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OTHENLIST__V74*/ curfptr[73]), (melt_ptr_t)(/*_.MCX_GOTOTHEN__V90*/ curfptr[85]));}
-    ;
-    MELT_LOCATION("warmelt-genobj.melt:5134:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_MATCHCOMPILCONTEXT*/ curfrout->tabval[2])))) /*then*/ {
-    MELT_LOCATION("warmelt-genobj.melt:5134:/ cond.then");
-    MELT_LOCATION("warmelt-genobj.melt:5134:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.MCX__V3*/ curfptr[2]), 4, "MCX_GOTOELSE");/*_.MCX_GOTOELSE__V91*/ curfptr[90] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-genobj.melt:5134:/ cond.else");
-    
-     /*_.MCX_GOTOELSE__V91*/ curfptr[90] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5134:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OELSELIST__V77*/ curfptr[76]), (melt_ptr_t)(/*_.MCX_GOTOELSE__V91*/ curfptr[90]));}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:5135:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:5135:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L28*/ curfnum[26] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:5135:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:5135:/ apply.arg");
-       argtab[0].bp_cstring =  "compilmatcher_funmatcher ogetclos";
-       MELT_LOCATION("warmelt-genobj.melt:5135:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[26];
-       MELT_LOCATION("warmelt-genobj.melt:5135:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:5135:/ apply.arg");
-       argtab[3].bp_long = 5135;
-       /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OGETCLOS__V69*/ curfptr[68]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:5135:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[26] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5135:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:5135:/ cppif.else");
-    /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:5136:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:5136:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L29*/ curfnum[26] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:5136:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:5136:/ apply.arg");
-       argtab[0].bp_cstring =  "compilmatcher_funmatcher omapp";
-       MELT_LOCATION("warmelt-genobj.melt:5136:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[26];
-       MELT_LOCATION("warmelt-genobj.melt:5136:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:5136:/ apply.arg");
-       argtab[3].bp_long = 5136;
-       /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMAPP__V72*/ curfptr[71]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V94*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:5136:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[26] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5136:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:5136:/ cppif.else");
-    /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-genobj.melt:5137:/ cppif.then");
-    MELT_LOCATION("warmelt-genobj.melt:5137:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L30*/ curfnum[26] = 
-       callcount;;
-      MELT_LOCATION("warmelt-genobj.melt:5137:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
-       argtab[0].bp_cstring =  "compilmatcher_funmatcher ocond";
-       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[26];
-       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-genobj.melt";
-       MELT_LOCATION("warmelt-genobj.melt:5137:/ apply.arg");
-       argtab[3].bp_long = 5137;
-       /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OCOND__V80*/ curfptr[79]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V96*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[96];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-genobj.melt:5137:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[26] = 0 ;
-      MELT_LOCATION("warmelt-genobj.melt:5137:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-genobj.melt:5137:/ cppif.else");
-    /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5138:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.OGETCLOS__V69*/ curfptr[68]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5139:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.OMAPP__V72*/ curfptr[71]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-genobj.melt:5140:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.OLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.OCOND__V80*/ curfptr[79]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L22*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OARGS__V67*/ curfptr[65] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.LIST1__V68*/ curfptr[67] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OGETCLOS__V69*/ curfptr[68] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.LIST1__V71*/ curfptr[70] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OMAPP__V72*/ curfptr[71] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OTHENLIST__V74*/ curfptr[73] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OTHENBODY__V75*/ curfptr[74] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OELSELIST__V77*/ curfptr[76] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OELSEBODY__V78*/ curfptr[77] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.OCOND__V80*/ curfptr[79] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.DISPOSE_OBJLOC__V88*/ curfptr[86] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.DISPOSE_OBJLOC__V89*/ curfptr[83] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.MCX_GOTOTHEN__V90*/ curfptr[85] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.MCX_GOTOELSE__V91*/ curfptr[90] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ;
-    MELT_LOCATION("warmelt-genobj.melt:5080:/ clear");
-    /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.MATNDATA__V25*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.OMATDATA__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.NMATCHED__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.OMATCHED__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.NINS__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.NOUTS__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.LAMBDA___V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.OINS__V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.LAMBDA___V34*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.OOUTS__V36*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.OTESTRES__V37*/ curfptr[36] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.OTESTCLOS__V38*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V53*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V55*/ curfptr[53] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V57*/ curfptr[55] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V59*/ curfptr[57] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ;
-   MELT_LOCATION("warmelt-genobj.melt:5046:/ clear");
-   /*clear*/ /*_.IFCPP___V65*/ curfptr[63] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.FMINS__V15*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.FMBIND__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.FMOUTS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.NTMA__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.OLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.MLOC__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:5035:/ clear");
-  /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:5029:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:5029:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:5029:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:5029:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-genobj.melt:5029:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILMATCHER_FUNMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_153_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_153_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:5054:/ getarg");
- /*_.THEIN__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:5054:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:5055:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:5055:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.THEIN__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:5054:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:5054:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:5054:/ clear");
- /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_153_warmelt_genobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_154_warmelt_genobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_154_warmelt_genobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-genobj.melt:5059:/ getarg");
- /*_.THEOUT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-genobj.melt:5059:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-genobj.melt:5060:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-genobj.melt:5060:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~GCX*/ curfclos->tabval[0]);
-  /*_.COMPILE_OBJ__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.THEOUT__V2*/ curfptr[1]), (melt_ptr_t)((/*!COMPILE_OBJ*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-genobj.melt:5059:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPILE_OBJ__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-genobj.melt:5059:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-genobj.melt:5059:/ clear");
- /*clear*/ /*_.COMPILE_OBJ__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_154_warmelt_genobj_LAMBDA_*/
-
-
-
 typedef 
  struct frame_start_module_melt_st { unsigned nbvar;
 #if ENABLE_CHECKING
@@ -64990,7 +19147,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3__CLASS_GENERATED_C_CODE
   melt_assertmsg("iniobj checkdiscr dobj_5__CLASS_OBJVALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_5__CLASS_OBJVALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_5__CLASS_OBJVALUE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 42800417;
+  cdat->dobj_5__CLASS_OBJVALUE.obj_hash = 964647375;
   cdat->dobj_5__CLASS_OBJVALUE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_5__CLASS_OBJVALUE));
  
@@ -65026,7 +19183,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_9__OBV_TYPE));
   melt_assertmsg("iniobj checkdiscr dobj_11__OBV_TYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_11__OBV_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_11__OBV_TYPE.obj_num = 0;
-  cdat->dobj_11__OBV_TYPE.obj_hash = 857179682;
+  cdat->dobj_11__OBV_TYPE.obj_hash = 207912320;
   cdat->dobj_11__OBV_TYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_11__OBV_TYPE));
  
@@ -65054,7 +19211,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_13__CLASS_OBJPUREVALUE));
   melt_assertmsg("iniobj checkdiscr dobj_15__CLASS_OBJPUREVALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_15__CLASS_OBJPUREVALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_15__CLASS_OBJPUREVALUE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 20616360;
+  cdat->dobj_15__CLASS_OBJPUREVALUE.obj_hash = 565539358;
   cdat->dobj_15__CLASS_OBJPUREVALUE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_15__CLASS_OBJPUREVALUE));
  
@@ -65090,7 +19247,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_19__CLASS_OBJLOCV));
   melt_assertmsg("iniobj checkdiscr dobj_21__CLASS_OBJLOCV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_21__CLASS_OBJLOCV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_21__CLASS_OBJLOCV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 726463756;
+  cdat->dobj_21__CLASS_OBJLOCV.obj_hash = 945152378;
   cdat->dobj_21__CLASS_OBJLOCV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_21__CLASS_OBJLOCV));
  
@@ -65126,7 +19283,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_25__OBL_OFF));
   melt_assertmsg("iniobj checkdiscr dobj_27__OBL_OFF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_27__OBL_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_27__OBL_OFF.obj_num = 1;
-  cdat->dobj_27__OBL_OFF.obj_hash = 652544691;
+  cdat->dobj_27__OBL_OFF.obj_hash = 436883409;
   cdat->dobj_27__OBL_OFF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_27__OBL_OFF));
  
@@ -65154,7 +19311,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_29__OBL_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_31__OBL_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_31__OBL_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_31__OBL_PROC.obj_num = 2;
-  cdat->dobj_31__OBL_PROC.obj_hash = 211945447;
+  cdat->dobj_31__OBL_PROC.obj_hash = 1054772533;
   cdat->dobj_31__OBL_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_31__OBL_PROC));
  
@@ -65182,7 +19339,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_33__OBL_CNAME));
   melt_assertmsg("iniobj checkdiscr dobj_35__OBL_CNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_35__OBL_CNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_35__OBL_CNAME.obj_num = 3;
-  cdat->dobj_35__OBL_CNAME.obj_hash = 569845836;
+  cdat->dobj_35__OBL_CNAME.obj_hash = 792650058;
   cdat->dobj_35__OBL_CNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_35__OBL_CNAME));
  
@@ -65210,7 +19367,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_37__CLASS_OBJCLOCCV));
   melt_assertmsg("iniobj checkdiscr dobj_39__CLASS_OBJCLOCCV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_39__CLASS_OBJCLOCCV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_39__CLASS_OBJCLOCCV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 93798905;
+  cdat->dobj_39__CLASS_OBJCLOCCV.obj_hash = 316376463;
   cdat->dobj_39__CLASS_OBJCLOCCV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_39__CLASS_OBJCLOCCV));
  
@@ -65246,7 +19403,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_43__OBC_OFF));
   melt_assertmsg("iniobj checkdiscr dobj_45__OBC_OFF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_45__OBC_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_45__OBC_OFF.obj_num = 1;
-  cdat->dobj_45__OBC_OFF.obj_hash = 334604658;
+  cdat->dobj_45__OBC_OFF.obj_hash = 1070939640;
   cdat->dobj_45__OBC_OFF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_45__OBC_OFF));
  
@@ -65274,7 +19431,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_47__OBC_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_49__OBC_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_49__OBC_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_49__OBC_PROC.obj_num = 2;
-  cdat->dobj_49__OBC_PROC.obj_hash = 101592518;
+  cdat->dobj_49__OBC_PROC.obj_hash = 343102652;
   cdat->dobj_49__OBC_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_49__OBC_PROC));
  
@@ -65302,7 +19459,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_51__OBC_NAME));
   melt_assertmsg("iniobj checkdiscr dobj_53__OBC_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_53__OBC_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_53__OBC_NAME.obj_num = 3;
-  cdat->dobj_53__OBC_NAME.obj_hash = 142055053;
+  cdat->dobj_53__OBC_NAME.obj_hash = 934948211;
   cdat->dobj_53__OBC_NAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_53__OBC_NAME));
  
@@ -65330,7 +19487,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_55__CLASS_OBJCONSTV));
   melt_assertmsg("iniobj checkdiscr dobj_57__CLASS_OBJCONSTV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_57__CLASS_OBJCONSTV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_57__CLASS_OBJCONSTV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 320584995;
+  cdat->dobj_57__CLASS_OBJCONSTV.obj_hash = 733251009;
   cdat->dobj_57__CLASS_OBJCONSTV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_57__CLASS_OBJCONSTV));
  
@@ -65366,7 +19523,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_61__CLASS_OBJPREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_63__CLASS_OBJPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_63__CLASS_OBJPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_63__CLASS_OBJPREDEF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 41145556;
+  cdat->dobj_63__CLASS_OBJPREDEF.obj_hash = 473867402;
   cdat->dobj_63__CLASS_OBJPREDEF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_63__CLASS_OBJPREDEF));
  
@@ -65402,7 +19559,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_67__OBPREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_69__OBPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_69__OBPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_69__OBPREDEF.obj_num = 1;
-  cdat->dobj_69__OBPREDEF.obj_hash = 278034263;
+  cdat->dobj_69__OBPREDEF.obj_hash = 756991229;
   cdat->dobj_69__OBPREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_69__OBPREDEF));
  
@@ -65430,7 +19587,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_71__CLASS_OBJNIL));
   melt_assertmsg("iniobj checkdiscr dobj_73__CLASS_OBJNIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_73__CLASS_OBJNIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_73__CLASS_OBJNIL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_73__CLASS_OBJNIL.obj_hash = 790861831;
+  cdat->dobj_73__CLASS_OBJNIL.obj_hash = 541431397;
   cdat->dobj_73__CLASS_OBJNIL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_73__CLASS_OBJNIL));
  
@@ -65466,7 +19623,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_77__CLASS_OBJINITELEM));
   melt_assertmsg("iniobj checkdiscr dobj_79__CLASS_OBJINITELEM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_79__CLASS_OBJINITELEM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_79__CLASS_OBJINITELEM.obj_num = OBMAG_OBJECT;
-  cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 1046945862;
+  cdat->dobj_79__CLASS_OBJINITELEM.obj_hash = 400289980;
   cdat->dobj_79__CLASS_OBJINITELEM.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_79__CLASS_OBJINITELEM));
  
@@ -65502,7 +19659,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_83__OIE_CNAME));
   melt_assertmsg("iniobj checkdiscr dobj_85__OIE_CNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_85__OIE_CNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_85__OIE_CNAME.obj_num = 1;
-  cdat->dobj_85__OIE_CNAME.obj_hash = 1068358121;
+  cdat->dobj_85__OIE_CNAME.obj_hash = 620492367;
   cdat->dobj_85__OIE_CNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_85__OIE_CNAME));
  
@@ -65530,7 +19687,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_87__OIE_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_89__OIE_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_89__OIE_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_89__OIE_DATA.obj_num = 2;
-  cdat->dobj_89__OIE_DATA.obj_hash = 274931833;
+  cdat->dobj_89__OIE_DATA.obj_hash = 147374671;
   cdat->dobj_89__OIE_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_89__OIE_DATA));
  
@@ -65558,7 +19715,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_91__OIE_DISCR));
   melt_assertmsg("iniobj checkdiscr dobj_93__OIE_DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_93__OIE_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_93__OIE_DISCR.obj_num = 3;
-  cdat->dobj_93__OIE_DISCR.obj_hash = 489511036;
+  cdat->dobj_93__OIE_DISCR.obj_hash = 527373634;
   cdat->dobj_93__OIE_DISCR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_93__OIE_DISCR));
  
@@ -65586,7 +19743,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_95__OIE_LOCVAR));
   melt_assertmsg("iniobj checkdiscr dobj_97__OIE_LOCVAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_97__OIE_LOCVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_97__OIE_LOCVAR.obj_num = 4;
-  cdat->dobj_97__OIE_LOCVAR.obj_hash = 901679537;
+  cdat->dobj_97__OIE_LOCVAR.obj_hash = 911520487;
   cdat->dobj_97__OIE_LOCVAR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_97__OIE_LOCVAR));
  
@@ -65614,7 +19771,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_99__CLASS_OBJINITOBJECT))
   melt_assertmsg("iniobj checkdiscr dobj_101__CLASS_OBJINITOBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_101__CLASS_OBJINITOBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_101__CLASS_OBJINITOBJECT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 423223172;
+  cdat->dobj_101__CLASS_OBJINITOBJECT.obj_hash = 890133170;
   cdat->dobj_101__CLASS_OBJINITOBJECT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_101__CLASS_OBJINITOBJECT));
  
@@ -65650,7 +19807,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_105__OIO_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_107__OIO_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_107__OIO_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_107__OIO_PREDEF.obj_num = 5;
-  cdat->dobj_107__OIO_PREDEF.obj_hash = 888559701;
+  cdat->dobj_107__OIO_PREDEF.obj_hash = 892119603;
   cdat->dobj_107__OIO_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_107__OIO_PREDEF));
  
@@ -65678,7 +19835,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_109__CLASS_OBJINITMULTIPL
   melt_assertmsg("iniobj checkdiscr dobj_111__CLASS_OBJINITMULTIPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_hash = 196178381;
+  cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_hash = 561204163;
   cdat->dobj_111__CLASS_OBJINITMULTIPLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_111__CLASS_OBJINITMULTIPLE));
  
@@ -65714,7 +19871,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_115__OIM_TUPVAL));
   melt_assertmsg("iniobj checkdiscr dobj_117__OIM_TUPVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_117__OIM_TUPVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_117__OIM_TUPVAL.obj_num = 5;
-  cdat->dobj_117__OIM_TUPVAL.obj_hash = 195239226;
+  cdat->dobj_117__OIM_TUPVAL.obj_hash = 1055465248;
   cdat->dobj_117__OIM_TUPVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_117__OIM_TUPVAL));
  
@@ -65742,7 +19899,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_119__CLASS_OBJINITCLOSURE
   melt_assertmsg("iniobj checkdiscr dobj_121__CLASS_OBJINITCLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_hash = 692861472;
+  cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_hash = 607889854;
   cdat->dobj_121__CLASS_OBJINITCLOSURE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_121__CLASS_OBJINITCLOSURE));
  
@@ -65778,7 +19935,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_125__CLASS_OBJINITROUTINE
   melt_assertmsg("iniobj checkdiscr dobj_127__CLASS_OBJINITROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_127__CLASS_OBJINITROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_127__CLASS_OBJINITROUTINE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_127__CLASS_OBJINITROUTINE.obj_hash = 745349812;
+  cdat->dobj_127__CLASS_OBJINITROUTINE.obj_hash = 727188842;
   cdat->dobj_127__CLASS_OBJINITROUTINE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_127__CLASS_OBJINITROUTINE));
  
@@ -65814,7 +19971,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_131__OIR_PROCROUTINE));
   melt_assertmsg("iniobj checkdiscr dobj_133__OIR_PROCROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_133__OIR_PROCROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_133__OIR_PROCROUTINE.obj_num = 5;
-  cdat->dobj_133__OIR_PROCROUTINE.obj_hash = 6240510;
+  cdat->dobj_133__OIR_PROCROUTINE.obj_hash = 936464804;
   cdat->dobj_133__OIR_PROCROUTINE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_133__OIR_PROCROUTINE));
  
@@ -65842,7 +19999,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_135__CLASS_OBJINITSTRING)
   melt_assertmsg("iniobj checkdiscr dobj_137__CLASS_OBJINITSTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_137__CLASS_OBJINITSTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_137__CLASS_OBJINITSTRING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_137__CLASS_OBJINITSTRING.obj_hash = 166172932;
+  cdat->dobj_137__CLASS_OBJINITSTRING.obj_hash = 485367394;
   cdat->dobj_137__CLASS_OBJINITSTRING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_137__CLASS_OBJINITSTRING));
  
@@ -65878,7 +20035,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_141__CLASS_OBJINITBOXINTE
   melt_assertmsg("iniobj checkdiscr dobj_143__CLASS_OBJINITBOXINTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_143__CLASS_OBJINITBOXINTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_143__CLASS_OBJINITBOXINTEGER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_143__CLASS_OBJINITBOXINTEGER.obj_hash = 15718944;
+  cdat->dobj_143__CLASS_OBJINITBOXINTEGER.obj_hash = 240393622;
   cdat->dobj_143__CLASS_OBJINITBOXINTEGER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_143__CLASS_OBJINITBOXINTEGER));
  
@@ -65914,7 +20071,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_147__CLASS_OBJEXPV));
   melt_assertmsg("iniobj checkdiscr dobj_149__CLASS_OBJEXPV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_149__CLASS_OBJEXPV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_149__CLASS_OBJEXPV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_149__CLASS_OBJEXPV.obj_hash = 914009400;
+  cdat->dobj_149__CLASS_OBJEXPV.obj_hash = 849393574;
   cdat->dobj_149__CLASS_OBJEXPV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_149__CLASS_OBJEXPV));
  
@@ -65950,7 +20107,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_153__OBX_CONT));
   melt_assertmsg("iniobj checkdiscr dobj_155__OBX_CONT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_155__OBX_CONT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_155__OBX_CONT.obj_num = 1;
-  cdat->dobj_155__OBX_CONT.obj_hash = 920184499;
+  cdat->dobj_155__OBX_CONT.obj_hash = 538671569;
   cdat->dobj_155__OBX_CONT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_155__OBX_CONT));
  
@@ -65978,7 +20135,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_157__CLASS_OBJLOCATEDEXPV
   melt_assertmsg("iniobj checkdiscr dobj_159__CLASS_OBJLOCATEDEXPV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_159__CLASS_OBJLOCATEDEXPV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_159__CLASS_OBJLOCATEDEXPV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_159__CLASS_OBJLOCATEDEXPV.obj_hash = 618847152;
+  cdat->dobj_159__CLASS_OBJLOCATEDEXPV.obj_hash = 784586726;
   cdat->dobj_159__CLASS_OBJLOCATEDEXPV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_159__CLASS_OBJLOCATEDEXPV));
  
@@ -66014,7 +20171,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_163__OBCX_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_165__OBCX_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_165__OBCX_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_165__OBCX_LOC.obj_num = 2;
-  cdat->dobj_165__OBCX_LOC.obj_hash = 434347204;
+  cdat->dobj_165__OBCX_LOC.obj_hash = 1027943146;
   cdat->dobj_165__OBCX_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_165__OBCX_LOC));
  
@@ -66042,7 +20199,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_167__CLASS_OBJINSTR));
   melt_assertmsg("iniobj checkdiscr dobj_169__CLASS_OBJINSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_169__CLASS_OBJINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_169__CLASS_OBJINSTR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_169__CLASS_OBJINSTR.obj_hash = 405568439;
+  cdat->dobj_169__CLASS_OBJINSTR.obj_hash = 678892693;
   cdat->dobj_169__CLASS_OBJINSTR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_169__CLASS_OBJINSTR));
  
@@ -66078,7 +20235,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_173__OBI_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_175__OBI_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_175__OBI_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_175__OBI_LOC.obj_num = 0;
-  cdat->dobj_175__OBI_LOC.obj_hash = 1051990342;
+  cdat->dobj_175__OBI_LOC.obj_hash = 42301524;
   cdat->dobj_175__OBI_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_175__OBI_LOC));
  
@@ -66106,7 +20263,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__CLASS_OBJCOMMENTINST
   melt_assertmsg("iniobj checkdiscr dobj_179__CLASS_OBJCOMMENTINSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_179__CLASS_OBJCOMMENTINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_179__CLASS_OBJCOMMENTINSTR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_179__CLASS_OBJCOMMENTINSTR.obj_hash = 665660728;
+  cdat->dobj_179__CLASS_OBJCOMMENTINSTR.obj_hash = 872946206;
   cdat->dobj_179__CLASS_OBJCOMMENTINSTR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_179__CLASS_OBJCOMMENTINSTR));
  
@@ -66142,7 +20299,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_183__OBCI_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_185__OBCI_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_185__OBCI_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_185__OBCI_COMMENT.obj_num = 1;
-  cdat->dobj_185__OBCI_COMMENT.obj_hash = 778348458;
+  cdat->dobj_185__OBCI_COMMENT.obj_hash = 456183296;
   cdat->dobj_185__OBCI_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_185__OBCI_COMMENT));
  
@@ -66170,7 +20327,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_187__CLASS_OBJDESTINSTR))
   melt_assertmsg("iniobj checkdiscr dobj_189__CLASS_OBJDESTINSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_189__CLASS_OBJDESTINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_189__CLASS_OBJDESTINSTR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_189__CLASS_OBJDESTINSTR.obj_hash = 86981162;
+  cdat->dobj_189__CLASS_OBJDESTINSTR.obj_hash = 1010576632;
   cdat->dobj_189__CLASS_OBJDESTINSTR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_189__CLASS_OBJDESTINSTR));
  
@@ -66206,7 +20363,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_193__OBDI_DESTLIST));
   melt_assertmsg("iniobj checkdiscr dobj_195__OBDI_DESTLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_195__OBDI_DESTLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_195__OBDI_DESTLIST.obj_num = 1;
-  cdat->dobj_195__OBDI_DESTLIST.obj_hash = 679214434;
+  cdat->dobj_195__OBDI_DESTLIST.obj_hash = 596090848;
   cdat->dobj_195__OBDI_DESTLIST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_195__OBDI_DESTLIST));
  
@@ -66234,7 +20391,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_197__CLASS_OBJCOMPUTE));
   melt_assertmsg("iniobj checkdiscr dobj_199__CLASS_OBJCOMPUTE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_199__CLASS_OBJCOMPUTE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_199__CLASS_OBJCOMPUTE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_199__CLASS_OBJCOMPUTE.obj_hash = 213249093;
+  cdat->dobj_199__CLASS_OBJCOMPUTE.obj_hash = 323241819;
   cdat->dobj_199__CLASS_OBJCOMPUTE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_199__CLASS_OBJCOMPUTE));
  
@@ -66270,7 +20427,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_203__OBCPT_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_205__OBCPT_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_205__OBCPT_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_205__OBCPT_EXPR.obj_num = 2;
-  cdat->dobj_205__OBCPT_EXPR.obj_hash = 312704713;
+  cdat->dobj_205__OBCPT_EXPR.obj_hash = 852866767;
   cdat->dobj_205__OBCPT_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_205__OBCPT_EXPR));
  
@@ -66298,7 +20455,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_207__CLASS_OBJGETARG));
   melt_assertmsg("iniobj checkdiscr dobj_209__CLASS_OBJGETARG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_209__CLASS_OBJGETARG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_209__CLASS_OBJGETARG.obj_num = OBMAG_OBJECT;
-  cdat->dobj_209__CLASS_OBJGETARG.obj_hash = 643617444;
+  cdat->dobj_209__CLASS_OBJGETARG.obj_hash = 989791970;
   cdat->dobj_209__CLASS_OBJGETARG.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_209__CLASS_OBJGETARG));
  
@@ -66334,7 +20491,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_213__OBARG_OBLOC));
   melt_assertmsg("iniobj checkdiscr dobj_215__OBARG_OBLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_215__OBARG_OBLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_215__OBARG_OBLOC.obj_num = 1;
-  cdat->dobj_215__OBARG_OBLOC.obj_hash = 16067868;
+  cdat->dobj_215__OBARG_OBLOC.obj_hash = 1019676298;
   cdat->dobj_215__OBARG_OBLOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_215__OBARG_OBLOC));
  
@@ -66362,7 +20519,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_217__OBARG_BIND));
   melt_assertmsg("iniobj checkdiscr dobj_219__OBARG_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_219__OBARG_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_219__OBARG_BIND.obj_num = 2;
-  cdat->dobj_219__OBARG_BIND.obj_hash = 557159739;
+  cdat->dobj_219__OBARG_BIND.obj_hash = 1040584537;
   cdat->dobj_219__OBARG_BIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_219__OBARG_BIND));
  
@@ -66390,7 +20547,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_221__CLASS_OBJPUTXTRARESU
   melt_assertmsg("iniobj checkdiscr dobj_223__CLASS_OBJPUTXTRARESULT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_223__CLASS_OBJPUTXTRARESULT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_223__CLASS_OBJPUTXTRARESULT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_223__CLASS_OBJPUTXTRARESULT.obj_hash = 442989447;
+  cdat->dobj_223__CLASS_OBJPUTXTRARESULT.obj_hash = 41470653;
   cdat->dobj_223__CLASS_OBJPUTXTRARESULT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_223__CLASS_OBJPUTXTRARESULT));
  
@@ -66426,7 +20583,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_227__OBXRES_RANK));
   melt_assertmsg("iniobj checkdiscr dobj_229__OBXRES_RANK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_229__OBXRES_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_229__OBXRES_RANK.obj_num = 1;
-  cdat->dobj_229__OBXRES_RANK.obj_hash = 477965728;
+  cdat->dobj_229__OBXRES_RANK.obj_hash = 619628230;
   cdat->dobj_229__OBXRES_RANK.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_229__OBXRES_RANK));
  
@@ -66454,7 +20611,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_231__OBXRES_OBLOC));
   melt_assertmsg("iniobj checkdiscr dobj_233__OBXRES_OBLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_233__OBXRES_OBLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_233__OBXRES_OBLOC.obj_num = 2;
-  cdat->dobj_233__OBXRES_OBLOC.obj_hash = 932596680;
+  cdat->dobj_233__OBXRES_OBLOC.obj_hash = 74029150;
   cdat->dobj_233__OBXRES_OBLOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_233__OBXRES_OBLOC));
  
@@ -66482,7 +20639,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_235__CLASS_OBJFINALRETURN
   melt_assertmsg("iniobj checkdiscr dobj_237__CLASS_OBJFINALRETURN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_237__CLASS_OBJFINALRETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_237__CLASS_OBJFINALRETURN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_237__CLASS_OBJFINALRETURN.obj_hash = 1046692294;
+  cdat->dobj_237__CLASS_OBJFINALRETURN.obj_hash = 306659284;
   cdat->dobj_237__CLASS_OBJFINALRETURN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_237__CLASS_OBJFINALRETURN));
  
@@ -66518,7 +20675,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_241__CLASS_OBJCLEAR));
   melt_assertmsg("iniobj checkdiscr dobj_243__CLASS_OBJCLEAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_243__CLASS_OBJCLEAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_243__CLASS_OBJCLEAR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_243__CLASS_OBJCLEAR.obj_hash = 564424907;
+  cdat->dobj_243__CLASS_OBJCLEAR.obj_hash = 48613553;
   cdat->dobj_243__CLASS_OBJCLEAR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_243__CLASS_OBJCLEAR));
  
@@ -66554,7 +20711,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_247__OCLR_VLOC));
   melt_assertmsg("iniobj checkdiscr dobj_249__OCLR_VLOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_249__OCLR_VLOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_249__OCLR_VLOC.obj_num = 1;
-  cdat->dobj_249__OCLR_VLOC.obj_hash = 672426193;
+  cdat->dobj_249__OCLR_VLOC.obj_hash = 126906919;
   cdat->dobj_249__OCLR_VLOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_249__OCLR_VLOC));
  
@@ -66582,7 +20739,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_251__CLASS_OBJBLOCK));
   melt_assertmsg("iniobj checkdiscr dobj_253__CLASS_OBJBLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_253__CLASS_OBJBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_253__CLASS_OBJBLOCK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_253__CLASS_OBJBLOCK.obj_hash = 606068720;
+  cdat->dobj_253__CLASS_OBJBLOCK.obj_hash = 961827262;
   cdat->dobj_253__CLASS_OBJBLOCK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_253__CLASS_OBJBLOCK));
  
@@ -66618,7 +20775,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_257__OBLO_BODYL));
   melt_assertmsg("iniobj checkdiscr dobj_259__OBLO_BODYL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_259__OBLO_BODYL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_259__OBLO_BODYL.obj_num = 1;
-  cdat->dobj_259__OBLO_BODYL.obj_hash = 311910040;
+  cdat->dobj_259__OBLO_BODYL.obj_hash = 382474262;
   cdat->dobj_259__OBLO_BODYL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_259__OBLO_BODYL));
  
@@ -66646,7 +20803,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_261__OBLO_EPIL));
   melt_assertmsg("iniobj checkdiscr dobj_263__OBLO_EPIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_263__OBLO_EPIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_263__OBLO_EPIL.obj_num = 2;
-  cdat->dobj_263__OBLO_EPIL.obj_hash = 944376184;
+  cdat->dobj_263__OBLO_EPIL.obj_hash = 677972518;
   cdat->dobj_263__OBLO_EPIL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_263__OBLO_EPIL));
  
@@ -66674,7 +20831,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_265__CLASS_OBJMULTIALLOCB
   melt_assertmsg("iniobj checkdiscr dobj_267__CLASS_OBJMULTIALLOCBLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_267__CLASS_OBJMULTIALLOCBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_267__CLASS_OBJMULTIALLOCBLOCK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_267__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 996824725;
+  cdat->dobj_267__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 984025499;
   cdat->dobj_267__CLASS_OBJMULTIALLOCBLOCK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_267__CLASS_OBJMULTIALLOCBLOCK));
  
@@ -66710,7 +20867,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_271__OMALBLO_ALLSTRUCT));
   melt_assertmsg("iniobj checkdiscr dobj_273__OMALBLO_ALLSTRUCT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_273__OMALBLO_ALLSTRUCT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_273__OMALBLO_ALLSTRUCT.obj_num = 3;
-  cdat->dobj_273__OMALBLO_ALLSTRUCT.obj_hash = 640079128;
+  cdat->dobj_273__OMALBLO_ALLSTRUCT.obj_hash = 256540302;
   cdat->dobj_273__OMALBLO_ALLSTRUCT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_273__OMALBLO_ALLSTRUCT));
  
@@ -66738,7 +20895,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_275__CLASS_OBJCOMMENTEDBL
   melt_assertmsg("iniobj checkdiscr dobj_277__CLASS_OBJCOMMENTEDBLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_277__CLASS_OBJCOMMENTEDBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_277__CLASS_OBJCOMMENTEDBLOCK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_277__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 66392442;
+  cdat->dobj_277__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 612776424;
   cdat->dobj_277__CLASS_OBJCOMMENTEDBLOCK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_277__CLASS_OBJCOMMENTEDBLOCK));
  
@@ -66774,7 +20931,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_281__OCOMBLO_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_283__OCOMBLO_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_283__OCOMBLO_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_283__OCOMBLO_COMMENT.obj_num = 3;
-  cdat->dobj_283__OCOMBLO_COMMENT.obj_hash = 670317114;
+  cdat->dobj_283__OCOMBLO_COMMENT.obj_hash = 810687320;
   cdat->dobj_283__OCOMBLO_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_283__OCOMBLO_COMMENT));
  
@@ -66802,7 +20959,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_285__CLASS_OBJMULTIBLOCK)
   melt_assertmsg("iniobj checkdiscr dobj_287__CLASS_OBJMULTIBLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_287__CLASS_OBJMULTIBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_287__CLASS_OBJMULTIBLOCK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_287__CLASS_OBJMULTIBLOCK.obj_hash = 247771740;
+  cdat->dobj_287__CLASS_OBJMULTIBLOCK.obj_hash = 179033234;
   cdat->dobj_287__CLASS_OBJMULTIBLOCK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_287__CLASS_OBJMULTIBLOCK));
  
@@ -66838,7 +20995,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_291__OMULBLO_SUBCOMP));
   melt_assertmsg("iniobj checkdiscr dobj_293__OMULBLO_SUBCOMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_293__OMULBLO_SUBCOMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_293__OMULBLO_SUBCOMP.obj_num = 3;
-  cdat->dobj_293__OMULBLO_SUBCOMP.obj_hash = 609586836;
+  cdat->dobj_293__OMULBLO_SUBCOMP.obj_hash = 163099322;
   cdat->dobj_293__OMULBLO_SUBCOMP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_293__OMULBLO_SUBCOMP));
  
@@ -66866,7 +21023,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_295__CLASS_OBJLABELINSTR)
   melt_assertmsg("iniobj checkdiscr dobj_297__CLASS_OBJLABELINSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_297__CLASS_OBJLABELINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_297__CLASS_OBJLABELINSTR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_297__CLASS_OBJLABELINSTR.obj_hash = 806060082;
+  cdat->dobj_297__CLASS_OBJLABELINSTR.obj_hash = 1045243664;
   cdat->dobj_297__CLASS_OBJLABELINSTR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_297__CLASS_OBJLABELINSTR));
  
@@ -66902,7 +21059,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_301__OBLAB_PREFIX));
   melt_assertmsg("iniobj checkdiscr dobj_303__OBLAB_PREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_303__OBLAB_PREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_303__OBLAB_PREFIX.obj_num = 1;
-  cdat->dobj_303__OBLAB_PREFIX.obj_hash = 681197071;
+  cdat->dobj_303__OBLAB_PREFIX.obj_hash = 1028414237;
   cdat->dobj_303__OBLAB_PREFIX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_303__OBLAB_PREFIX));
  
@@ -66930,7 +21087,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_305__OBLAB_RANK));
   melt_assertmsg("iniobj checkdiscr dobj_307__OBLAB_RANK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_307__OBLAB_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_307__OBLAB_RANK.obj_num = 2;
-  cdat->dobj_307__OBLAB_RANK.obj_hash = 353847604;
+  cdat->dobj_307__OBLAB_RANK.obj_hash = 76005362;
   cdat->dobj_307__OBLAB_RANK.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_307__OBLAB_RANK));
  
@@ -66958,7 +21115,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_309__CLASS_OBJGOTOINSTR))
   melt_assertmsg("iniobj checkdiscr dobj_311__CLASS_OBJGOTOINSTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_311__CLASS_OBJGOTOINSTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_311__CLASS_OBJGOTOINSTR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_311__CLASS_OBJGOTOINSTR.obj_hash = 620783334;
+  cdat->dobj_311__CLASS_OBJGOTOINSTR.obj_hash = 869913404;
   cdat->dobj_311__CLASS_OBJGOTOINSTR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_311__CLASS_OBJGOTOINSTR));
  
@@ -66994,7 +21151,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_315__OBGOTO_PREFIX));
   melt_assertmsg("iniobj checkdiscr dobj_317__OBGOTO_PREFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_317__OBGOTO_PREFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_317__OBGOTO_PREFIX.obj_num = 1;
-  cdat->dobj_317__OBGOTO_PREFIX.obj_hash = 169664441;
+  cdat->dobj_317__OBGOTO_PREFIX.obj_hash = 935701247;
   cdat->dobj_317__OBGOTO_PREFIX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_317__OBGOTO_PREFIX));
  
@@ -67022,7 +21179,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_319__OBGOTO_RANK));
   melt_assertmsg("iniobj checkdiscr dobj_321__OBGOTO_RANK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_321__OBGOTO_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_321__OBGOTO_RANK.obj_num = 2;
-  cdat->dobj_321__OBGOTO_RANK.obj_hash = 922911500;
+  cdat->dobj_321__OBGOTO_RANK.obj_hash = 997105346;
   cdat->dobj_321__OBGOTO_RANK.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_321__OBGOTO_RANK));
  
@@ -67050,7 +21207,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_323__CLASS_OBJLOOP));
   melt_assertmsg("iniobj checkdiscr dobj_325__CLASS_OBJLOOP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_325__CLASS_OBJLOOP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_325__CLASS_OBJLOOP.obj_num = OBMAG_OBJECT;
-  cdat->dobj_325__CLASS_OBJLOOP.obj_hash = 275584877;
+  cdat->dobj_325__CLASS_OBJLOOP.obj_hash = 691013403;
   cdat->dobj_325__CLASS_OBJLOOP.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_325__CLASS_OBJLOOP));
  
@@ -67086,7 +21243,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_329__OBLOOP_LABEL));
   melt_assertmsg("iniobj checkdiscr dobj_331__OBLOOP_LABEL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_331__OBLOOP_LABEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_331__OBLOOP_LABEL.obj_num = 3;
-  cdat->dobj_331__OBLOOP_LABEL.obj_hash = 972634714;
+  cdat->dobj_331__OBLOOP_LABEL.obj_hash = 948589752;
   cdat->dobj_331__OBLOOP_LABEL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_331__OBLOOP_LABEL));
  
@@ -67114,7 +21271,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_333__OBLOOP_RESV));
   melt_assertmsg("iniobj checkdiscr dobj_335__OBLOOP_RESV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_335__OBLOOP_RESV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_335__OBLOOP_RESV.obj_num = 4;
-  cdat->dobj_335__OBLOOP_RESV.obj_hash = 302753443;
+  cdat->dobj_335__OBLOOP_RESV.obj_hash = 567747377;
   cdat->dobj_335__OBLOOP_RESV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_335__OBLOOP_RESV));
  
@@ -67142,7 +21299,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_337__CLASS_OBJEXIT));
   melt_assertmsg("iniobj checkdiscr dobj_339__CLASS_OBJEXIT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_339__CLASS_OBJEXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_339__CLASS_OBJEXIT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_339__CLASS_OBJEXIT.obj_hash = 708765409;
+  cdat->dobj_339__CLASS_OBJEXIT.obj_hash = 335982407;
   cdat->dobj_339__CLASS_OBJEXIT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_339__CLASS_OBJEXIT));
  
@@ -67178,7 +21335,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_343__OBEXIT_LABEL));
   melt_assertmsg("iniobj checkdiscr dobj_345__OBEXIT_LABEL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_345__OBEXIT_LABEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_345__OBEXIT_LABEL.obj_num = 1;
-  cdat->dobj_345__OBEXIT_LABEL.obj_hash = 581450957;
+  cdat->dobj_345__OBEXIT_LABEL.obj_hash = 833448611;
   cdat->dobj_345__OBEXIT_LABEL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_345__OBEXIT_LABEL));
  
@@ -67206,7 +21363,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_347__CLASS_OBJCITERBLOCK)
   melt_assertmsg("iniobj checkdiscr dobj_349__CLASS_OBJCITERBLOCK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_349__CLASS_OBJCITERBLOCK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_349__CLASS_OBJCITERBLOCK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_349__CLASS_OBJCITERBLOCK.obj_hash = 469713112;
+  cdat->dobj_349__CLASS_OBJCITERBLOCK.obj_hash = 974946598;
   cdat->dobj_349__CLASS_OBJCITERBLOCK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_349__CLASS_OBJCITERBLOCK));
  
@@ -67242,7 +21399,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_353__OBCITER_CITER));
   melt_assertmsg("iniobj checkdiscr dobj_355__OBCITER_CITER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_355__OBCITER_CITER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_355__OBCITER_CITER.obj_num = 3;
-  cdat->dobj_355__OBCITER_CITER.obj_hash = 101437568;
+  cdat->dobj_355__OBCITER_CITER.obj_hash = 969817214;
   cdat->dobj_355__OBCITER_CITER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_355__OBCITER_CITER));
  
@@ -67270,7 +21427,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_357__OBCITER_BEFORE));
   melt_assertmsg("iniobj checkdiscr dobj_359__OBCITER_BEFORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__OBCITER_BEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__OBCITER_BEFORE.obj_num = 4;
-  cdat->dobj_359__OBCITER_BEFORE.obj_hash = 706839545;
+  cdat->dobj_359__OBCITER_BEFORE.obj_hash = 341293863;
   cdat->dobj_359__OBCITER_BEFORE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_359__OBCITER_BEFORE));
  
@@ -67298,7 +21455,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_361__OBCITER_AFTER));
   melt_assertmsg("iniobj checkdiscr dobj_363__OBCITER_AFTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_363__OBCITER_AFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_363__OBCITER_AFTER.obj_num = 5;
-  cdat->dobj_363__OBCITER_AFTER.obj_hash = 177182324;
+  cdat->dobj_363__OBCITER_AFTER.obj_hash = 36963410;
   cdat->dobj_363__OBCITER_AFTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_363__OBCITER_AFTER));
  
@@ -67326,7 +21483,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_365__CLASS_OBJCOND));
   melt_assertmsg("iniobj checkdiscr dobj_367__CLASS_OBJCOND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_367__CLASS_OBJCOND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_367__CLASS_OBJCOND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_367__CLASS_OBJCOND.obj_hash = 859737439;
+  cdat->dobj_367__CLASS_OBJCOND.obj_hash = 524956501;
   cdat->dobj_367__CLASS_OBJCOND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_367__CLASS_OBJCOND));
  
@@ -67362,7 +21519,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_371__OBCOND_TEST));
   melt_assertmsg("iniobj checkdiscr dobj_373__OBCOND_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_373__OBCOND_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_373__OBCOND_TEST.obj_num = 1;
-  cdat->dobj_373__OBCOND_TEST.obj_hash = 631666114;
+  cdat->dobj_373__OBCOND_TEST.obj_hash = 522789800;
   cdat->dobj_373__OBCOND_TEST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_373__OBCOND_TEST));
  
@@ -67390,7 +21547,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_375__OBCOND_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_377__OBCOND_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_377__OBCOND_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_377__OBCOND_THEN.obj_num = 2;
-  cdat->dobj_377__OBCOND_THEN.obj_hash = 137208782;
+  cdat->dobj_377__OBCOND_THEN.obj_hash = 668070692;
   cdat->dobj_377__OBCOND_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_377__OBCOND_THEN));
  
@@ -67418,7 +21575,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_379__OBCOND_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_381__OBCOND_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_381__OBCOND_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_381__OBCOND_ELSE.obj_num = 3;
-  cdat->dobj_381__OBCOND_ELSE.obj_hash = 211000971;
+  cdat->dobj_381__OBCOND_ELSE.obj_hash = 709985489;
   cdat->dobj_381__OBCOND_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_381__OBCOND_ELSE));
  
@@ -67446,7 +21603,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_383__CLASS_OBJCPPIF));
   melt_assertmsg("iniobj checkdiscr dobj_385__CLASS_OBJCPPIF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_385__CLASS_OBJCPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_385__CLASS_OBJCPPIF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_385__CLASS_OBJCPPIF.obj_hash = 368946394;
+  cdat->dobj_385__CLASS_OBJCPPIF.obj_hash = 776672344;
   cdat->dobj_385__CLASS_OBJCPPIF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_385__CLASS_OBJCPPIF));
  
@@ -67482,7 +21639,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_389__OBIFP_COND));
   melt_assertmsg("iniobj checkdiscr dobj_391__OBIFP_COND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_391__OBIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_391__OBIFP_COND.obj_num = 1;
-  cdat->dobj_391__OBIFP_COND.obj_hash = 955544791;
+  cdat->dobj_391__OBIFP_COND.obj_hash = 503239557;
   cdat->dobj_391__OBIFP_COND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_391__OBIFP_COND));
  
@@ -67510,7 +21667,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_393__OBIFP_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_395__OBIFP_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_395__OBIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_395__OBIFP_THEN.obj_num = 2;
-  cdat->dobj_395__OBIFP_THEN.obj_hash = 146619779;
+  cdat->dobj_395__OBIFP_THEN.obj_hash = 988864225;
   cdat->dobj_395__OBIFP_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_395__OBIFP_THEN));
  
@@ -67538,7 +21695,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_397__OBIFP_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_399__OBIFP_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_399__OBIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_399__OBIFP_ELSE.obj_num = 3;
-  cdat->dobj_399__OBIFP_ELSE.obj_hash = 699321003;
+  cdat->dobj_399__OBIFP_ELSE.obj_hash = 543794745;
   cdat->dobj_399__OBIFP_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_399__OBIFP_ELSE));
  
@@ -67566,7 +21723,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_401__CLASS_OBJINTERNCOMMO
   melt_assertmsg("iniobj checkdiscr dobj_403__CLASS_OBJINTERNCOMMON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_403__CLASS_OBJINTERNCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_403__CLASS_OBJINTERNCOMMON.obj_num = OBMAG_OBJECT;
-  cdat->dobj_403__CLASS_OBJINTERNCOMMON.obj_hash = 91444852;
+  cdat->dobj_403__CLASS_OBJINTERNCOMMON.obj_hash = 825575898;
   cdat->dobj_403__CLASS_OBJINTERNCOMMON.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_403__CLASS_OBJINTERNCOMMON));
  
@@ -67602,7 +21759,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_407__OBINTERN_IOBJ));
   melt_assertmsg("iniobj checkdiscr dobj_409__OBINTERN_IOBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_409__OBINTERN_IOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_409__OBINTERN_IOBJ.obj_num = 1;
-  cdat->dobj_409__OBINTERN_IOBJ.obj_hash = 943357044;
+  cdat->dobj_409__OBINTERN_IOBJ.obj_hash = 1015631178;
   cdat->dobj_409__OBINTERN_IOBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_409__OBINTERN_IOBJ));
  
@@ -67630,7 +21787,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_411__CLASS_OBJINTERNSYMBO
   melt_assertmsg("iniobj checkdiscr dobj_413__CLASS_OBJINTERNSYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_413__CLASS_OBJINTERNSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_413__CLASS_OBJINTERNSYMBOL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_413__CLASS_OBJINTERNSYMBOL.obj_hash = 191855950;
+  cdat->dobj_413__CLASS_OBJINTERNSYMBOL.obj_hash = 359201948;
   cdat->dobj_413__CLASS_OBJINTERNSYMBOL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_413__CLASS_OBJINTERNSYMBOL));
  
@@ -67666,7 +21823,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_417__CLASS_OBJINTERNKEYWO
   melt_assertmsg("iniobj checkdiscr dobj_419__CLASS_OBJINTERNKEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_419__CLASS_OBJINTERNKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_419__CLASS_OBJINTERNKEYWORD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_419__CLASS_OBJINTERNKEYWORD.obj_hash = 945379797;
+  cdat->dobj_419__CLASS_OBJINTERNKEYWORD.obj_hash = 440669179;
   cdat->dobj_419__CLASS_OBJINTERNKEYWORD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_419__CLASS_OBJINTERNKEYWORD));
  
@@ -67702,7 +21859,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_423__CLASS_OBJGETNAMEDCOM
   melt_assertmsg("iniobj checkdiscr dobj_425__CLASS_OBJGETNAMEDCOMMON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_425__CLASS_OBJGETNAMEDCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_425__CLASS_OBJGETNAMEDCOMMON.obj_num = OBMAG_OBJECT;
-  cdat->dobj_425__CLASS_OBJGETNAMEDCOMMON.obj_hash = 965680681;
+  cdat->dobj_425__CLASS_OBJGETNAMEDCOMMON.obj_hash = 1048957703;
   cdat->dobj_425__CLASS_OBJGETNAMEDCOMMON.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_425__CLASS_OBJGETNAMEDCOMMON));
  
@@ -67738,7 +21895,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_429__OBGNAMED_IOBJ));
   melt_assertmsg("iniobj checkdiscr dobj_431__OBGNAMED_IOBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_431__OBGNAMED_IOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_431__OBGNAMED_IOBJ.obj_num = 1;
-  cdat->dobj_431__OBGNAMED_IOBJ.obj_hash = 400435916;
+  cdat->dobj_431__OBGNAMED_IOBJ.obj_hash = 794756570;
   cdat->dobj_431__OBGNAMED_IOBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_431__OBGNAMED_IOBJ));
  
@@ -67766,7 +21923,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_433__CLASS_OBJGETNAMEDSYM
   melt_assertmsg("iniobj checkdiscr dobj_435__CLASS_OBJGETNAMEDSYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_435__CLASS_OBJGETNAMEDSYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_435__CLASS_OBJGETNAMEDSYMBOL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_435__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 46319022;
+  cdat->dobj_435__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 757096084;
   cdat->dobj_435__CLASS_OBJGETNAMEDSYMBOL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_435__CLASS_OBJGETNAMEDSYMBOL));
  
@@ -67802,7 +21959,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_439__CLASS_OBJGETNAMEDKEY
   melt_assertmsg("iniobj checkdiscr dobj_441__CLASS_OBJGETNAMEDKEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_441__CLASS_OBJGETNAMEDKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_441__CLASS_OBJGETNAMEDKEYWORD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_441__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 826577545;
+  cdat->dobj_441__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 360564007;
   cdat->dobj_441__CLASS_OBJGETNAMEDKEYWORD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_441__CLASS_OBJGETNAMEDKEYWORD));
  
@@ -67838,7 +21995,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_445__CLASS_OBJAPPLY));
   melt_assertmsg("iniobj checkdiscr dobj_447__CLASS_OBJAPPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_447__CLASS_OBJAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_447__CLASS_OBJAPPLY.obj_num = OBMAG_OBJECT;
-  cdat->dobj_447__CLASS_OBJAPPLY.obj_hash = 227085131;
+  cdat->dobj_447__CLASS_OBJAPPLY.obj_hash = 350670081;
   cdat->dobj_447__CLASS_OBJAPPLY.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_447__CLASS_OBJAPPLY));
  
@@ -67874,7 +22031,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_451__OBAPP_CLOS));
   melt_assertmsg("iniobj checkdiscr dobj_453__OBAPP_CLOS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_453__OBAPP_CLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_453__OBAPP_CLOS.obj_num = 2;
-  cdat->dobj_453__OBAPP_CLOS.obj_hash = 861532803;
+  cdat->dobj_453__OBAPP_CLOS.obj_hash = 1050640937;
   cdat->dobj_453__OBAPP_CLOS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_453__OBAPP_CLOS));
  
@@ -67902,7 +22059,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_455__OBAPP_ARGS));
   melt_assertmsg("iniobj checkdiscr dobj_457__OBAPP_ARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_457__OBAPP_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_457__OBAPP_ARGS.obj_num = 3;
-  cdat->dobj_457__OBAPP_ARGS.obj_hash = 404447206;
+  cdat->dobj_457__OBAPP_ARGS.obj_hash = 92260092;
   cdat->dobj_457__OBAPP_ARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_457__OBAPP_ARGS));
  
@@ -67930,7 +22087,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_459__CLASS_OBJMULTIAPPLY)
   melt_assertmsg("iniobj checkdiscr dobj_461__CLASS_OBJMULTIAPPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_461__CLASS_OBJMULTIAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_461__CLASS_OBJMULTIAPPLY.obj_num = OBMAG_OBJECT;
-  cdat->dobj_461__CLASS_OBJMULTIAPPLY.obj_hash = 162185855;
+  cdat->dobj_461__CLASS_OBJMULTIAPPLY.obj_hash = 91258125;
   cdat->dobj_461__CLASS_OBJMULTIAPPLY.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_461__CLASS_OBJMULTIAPPLY));
  
@@ -67966,7 +22123,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_465__OBMULTAPP_XRES));
   melt_assertmsg("iniobj checkdiscr dobj_467__OBMULTAPP_XRES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_467__OBMULTAPP_XRES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_467__OBMULTAPP_XRES.obj_num = 4;
-  cdat->dobj_467__OBMULTAPP_XRES.obj_hash = 971238901;
+  cdat->dobj_467__OBMULTAPP_XRES.obj_hash = 75955763;
   cdat->dobj_467__OBMULTAPP_XRES.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_467__OBMULTAPP_XRES));
  
@@ -67994,7 +22151,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_469__CLASS_OBJMSEND));
   melt_assertmsg("iniobj checkdiscr dobj_471__CLASS_OBJMSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_471__CLASS_OBJMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_471__CLASS_OBJMSEND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_471__CLASS_OBJMSEND.obj_hash = 633960835;
+  cdat->dobj_471__CLASS_OBJMSEND.obj_hash = 737111385;
   cdat->dobj_471__CLASS_OBJMSEND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_471__CLASS_OBJMSEND));
  
@@ -68030,7 +22187,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_475__OBMSND_SEL));
   melt_assertmsg("iniobj checkdiscr dobj_477__OBMSND_SEL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_477__OBMSND_SEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_477__OBMSND_SEL.obj_num = 2;
-  cdat->dobj_477__OBMSND_SEL.obj_hash = 796822129;
+  cdat->dobj_477__OBMSND_SEL.obj_hash = 416672055;
   cdat->dobj_477__OBMSND_SEL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_477__OBMSND_SEL));
  
@@ -68058,7 +22215,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_479__OBMSND_RECV));
   melt_assertmsg("iniobj checkdiscr dobj_481__OBMSND_RECV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_481__OBMSND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_481__OBMSND_RECV.obj_num = 3;
-  cdat->dobj_481__OBMSND_RECV.obj_hash = 486505008;
+  cdat->dobj_481__OBMSND_RECV.obj_hash = 1036588390;
   cdat->dobj_481__OBMSND_RECV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_481__OBMSND_RECV));
  
@@ -68086,7 +22243,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_483__OBMSND_ARGS));
   melt_assertmsg("iniobj checkdiscr dobj_485__OBMSND_ARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_485__OBMSND_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_485__OBMSND_ARGS.obj_num = 4;
-  cdat->dobj_485__OBMSND_ARGS.obj_hash = 482053546;
+  cdat->dobj_485__OBMSND_ARGS.obj_hash = 465326800;
   cdat->dobj_485__OBMSND_ARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_485__OBMSND_ARGS));
  
@@ -68114,7 +22271,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_487__CLASS_OBJMULTIMSEND)
   melt_assertmsg("iniobj checkdiscr dobj_489__CLASS_OBJMULTIMSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_489__CLASS_OBJMULTIMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_489__CLASS_OBJMULTIMSEND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_489__CLASS_OBJMULTIMSEND.obj_hash = 34640613;
+  cdat->dobj_489__CLASS_OBJMULTIMSEND.obj_hash = 638127811;
   cdat->dobj_489__CLASS_OBJMULTIMSEND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_489__CLASS_OBJMULTIMSEND));
  
@@ -68150,7 +22307,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_493__OBMULTSND_XRES));
   melt_assertmsg("iniobj checkdiscr dobj_495__OBMULTSND_XRES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_495__OBMULTSND_XRES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_495__OBMULTSND_XRES.obj_num = 5;
-  cdat->dobj_495__OBMULTSND_XRES.obj_hash = 510075049;
+  cdat->dobj_495__OBMULTSND_XRES.obj_hash = 526949047;
   cdat->dobj_495__OBMULTSND_XRES.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_495__OBMULTSND_XRES));
  
@@ -68178,7 +22335,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_497__CLASS_OBJRAWALLOCOBJ
   melt_assertmsg("iniobj checkdiscr dobj_499__CLASS_OBJRAWALLOCOBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_499__CLASS_OBJRAWALLOCOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_499__CLASS_OBJRAWALLOCOBJ.obj_num = OBMAG_OBJECT;
-  cdat->dobj_499__CLASS_OBJRAWALLOCOBJ.obj_hash = 1035036223;
+  cdat->dobj_499__CLASS_OBJRAWALLOCOBJ.obj_hash = 800811557;
   cdat->dobj_499__CLASS_OBJRAWALLOCOBJ.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_499__CLASS_OBJRAWALLOCOBJ));
  
@@ -68214,7 +22371,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_503__OBRALLOBJ_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_505__OBRALLOBJ_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_505__OBRALLOBJ_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_505__OBRALLOBJ_CLASS.obj_num = 2;
-  cdat->dobj_505__OBRALLOBJ_CLASS.obj_hash = 630107045;
+  cdat->dobj_505__OBRALLOBJ_CLASS.obj_hash = 1041318139;
   cdat->dobj_505__OBRALLOBJ_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_505__OBRALLOBJ_CLASS));
  
@@ -68242,7 +22399,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_507__OBRALLOBJ_LEN));
   melt_assertmsg("iniobj checkdiscr dobj_509__OBRALLOBJ_LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_509__OBRALLOBJ_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_509__OBRALLOBJ_LEN.obj_num = 3;
-  cdat->dobj_509__OBRALLOBJ_LEN.obj_hash = 511093052;
+  cdat->dobj_509__OBRALLOBJ_LEN.obj_hash = 1041974658;
   cdat->dobj_509__OBRALLOBJ_LEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_509__OBRALLOBJ_LEN));
  
@@ -68270,7 +22427,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_511__OBRALLOBJ_CLASSNAME)
   melt_assertmsg("iniobj checkdiscr dobj_513__OBRALLOBJ_CLASSNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_513__OBRALLOBJ_CLASSNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_513__OBRALLOBJ_CLASSNAME.obj_num = 4;
-  cdat->dobj_513__OBRALLOBJ_CLASSNAME.obj_hash = 384253808;
+  cdat->dobj_513__OBRALLOBJ_CLASSNAME.obj_hash = 298193958;
   cdat->dobj_513__OBRALLOBJ_CLASSNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_513__OBRALLOBJ_CLASSNAME));
  
@@ -68298,7 +22455,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_515__CLASS_OBJNEWCLOSURE)
   melt_assertmsg("iniobj checkdiscr dobj_517__CLASS_OBJNEWCLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_517__CLASS_OBJNEWCLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_517__CLASS_OBJNEWCLOSURE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_517__CLASS_OBJNEWCLOSURE.obj_hash = 518677978;
+  cdat->dobj_517__CLASS_OBJNEWCLOSURE.obj_hash = 107881096;
   cdat->dobj_517__CLASS_OBJNEWCLOSURE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_517__CLASS_OBJNEWCLOSURE));
  
@@ -68334,7 +22491,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_521__OBNCLO_DISCR));
   melt_assertmsg("iniobj checkdiscr dobj_523__OBNCLO_DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_523__OBNCLO_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_523__OBNCLO_DISCR.obj_num = 2;
-  cdat->dobj_523__OBNCLO_DISCR.obj_hash = 617957472;
+  cdat->dobj_523__OBNCLO_DISCR.obj_hash = 410810302;
   cdat->dobj_523__OBNCLO_DISCR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_523__OBNCLO_DISCR));
  
@@ -68362,7 +22519,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_525__OBNCLO_ROUT));
   melt_assertmsg("iniobj checkdiscr dobj_527__OBNCLO_ROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_527__OBNCLO_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_527__OBNCLO_ROUT.obj_num = 3;
-  cdat->dobj_527__OBNCLO_ROUT.obj_hash = 530143953;
+  cdat->dobj_527__OBNCLO_ROUT.obj_hash = 843412575;
   cdat->dobj_527__OBNCLO_ROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_527__OBNCLO_ROUT));
  
@@ -68390,7 +22547,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_529__OBNCLO_LEN));
   melt_assertmsg("iniobj checkdiscr dobj_531__OBNCLO_LEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_531__OBNCLO_LEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_531__OBNCLO_LEN.obj_num = 4;
-  cdat->dobj_531__OBNCLO_LEN.obj_hash = 715460610;
+  cdat->dobj_531__OBNCLO_LEN.obj_hash = 964368192;
   cdat->dobj_531__OBNCLO_LEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_531__OBNCLO_LEN));
  
@@ -68418,7 +22575,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_533__CLASS_OBJPUTUPLE));
   melt_assertmsg("iniobj checkdiscr dobj_535__CLASS_OBJPUTUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_535__CLASS_OBJPUTUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_535__CLASS_OBJPUTUPLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_535__CLASS_OBJPUTUPLE.obj_hash = 764803807;
+  cdat->dobj_535__CLASS_OBJPUTUPLE.obj_hash = 383816117;
   cdat->dobj_535__CLASS_OBJPUTUPLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_535__CLASS_OBJPUTUPLE));
  
@@ -68454,7 +22611,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_539__OPUTU_TUPLED));
   melt_assertmsg("iniobj checkdiscr dobj_541__OPUTU_TUPLED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_541__OPUTU_TUPLED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_541__OPUTU_TUPLED.obj_num = 1;
-  cdat->dobj_541__OPUTU_TUPLED.obj_hash = 208954125;
+  cdat->dobj_541__OPUTU_TUPLED.obj_hash = 774937811;
   cdat->dobj_541__OPUTU_TUPLED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_541__OPUTU_TUPLED));
  
@@ -68482,7 +22639,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_543__OPUTU_OFFSET));
   melt_assertmsg("iniobj checkdiscr dobj_545__OPUTU_OFFSET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_545__OPUTU_OFFSET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_545__OPUTU_OFFSET.obj_num = 2;
-  cdat->dobj_545__OPUTU_OFFSET.obj_hash = 408719456;
+  cdat->dobj_545__OPUTU_OFFSET.obj_hash = 722599574;
   cdat->dobj_545__OPUTU_OFFSET.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_545__OPUTU_OFFSET));
  
@@ -68510,7 +22667,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_547__OPUTU_VALUE));
   melt_assertmsg("iniobj checkdiscr dobj_549__OPUTU_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_549__OPUTU_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_549__OPUTU_VALUE.obj_num = 3;
-  cdat->dobj_549__OPUTU_VALUE.obj_hash = 189539495;
+  cdat->dobj_549__OPUTU_VALUE.obj_hash = 440693965;
   cdat->dobj_549__OPUTU_VALUE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_549__OPUTU_VALUE));
  
@@ -68538,7 +22695,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_551__CLASS_OBJPUTSLOT));
   melt_assertmsg("iniobj checkdiscr dobj_553__CLASS_OBJPUTSLOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_553__CLASS_OBJPUTSLOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_553__CLASS_OBJPUTSLOT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_553__CLASS_OBJPUTSLOT.obj_hash = 503564860;
+  cdat->dobj_553__CLASS_OBJPUTSLOT.obj_hash = 7179546;
   cdat->dobj_553__CLASS_OBJPUTSLOT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_553__CLASS_OBJPUTSLOT));
  
@@ -68574,7 +22731,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_557__OSLOT_ODATA));
   melt_assertmsg("iniobj checkdiscr dobj_559__OSLOT_ODATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_559__OSLOT_ODATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_559__OSLOT_ODATA.obj_num = 1;
-  cdat->dobj_559__OSLOT_ODATA.obj_hash = 896136479;
+  cdat->dobj_559__OSLOT_ODATA.obj_hash = 531074605;
   cdat->dobj_559__OSLOT_ODATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_559__OSLOT_ODATA));
  
@@ -68602,7 +22759,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_561__OSLOT_OFFSET));
   melt_assertmsg("iniobj checkdiscr dobj_563__OSLOT_OFFSET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_563__OSLOT_OFFSET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_563__OSLOT_OFFSET.obj_num = 2;
-  cdat->dobj_563__OSLOT_OFFSET.obj_hash = 616150300;
+  cdat->dobj_563__OSLOT_OFFSET.obj_hash = 490211290;
   cdat->dobj_563__OSLOT_OFFSET.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_563__OSLOT_OFFSET));
  
@@ -68630,7 +22787,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_565__OSLOT_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_567__OSLOT_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_567__OSLOT_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_567__OSLOT_FIELD.obj_num = 3;
-  cdat->dobj_567__OSLOT_FIELD.obj_hash = 598933949;
+  cdat->dobj_567__OSLOT_FIELD.obj_hash = 503209387;
   cdat->dobj_567__OSLOT_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_567__OSLOT_FIELD));
  
@@ -68658,7 +22815,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_569__OSLOT_VALUE));
   melt_assertmsg("iniobj checkdiscr dobj_571__OSLOT_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_571__OSLOT_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_571__OSLOT_VALUE.obj_num = 4;
-  cdat->dobj_571__OSLOT_VALUE.obj_hash = 786063883;
+  cdat->dobj_571__OSLOT_VALUE.obj_hash = 446325417;
   cdat->dobj_571__OSLOT_VALUE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_571__OSLOT_VALUE));
  
@@ -68686,7 +22843,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_573__CLASS_OBJGETSLOT));
   melt_assertmsg("iniobj checkdiscr dobj_575__CLASS_OBJGETSLOT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_575__CLASS_OBJGETSLOT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_575__CLASS_OBJGETSLOT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_575__CLASS_OBJGETSLOT.obj_hash = 406691957;
+  cdat->dobj_575__CLASS_OBJGETSLOT.obj_hash = 866322475;
   cdat->dobj_575__CLASS_OBJGETSLOT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_575__CLASS_OBJGETSLOT));
  
@@ -68722,7 +22879,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_579__OGETSL_OBJ));
   melt_assertmsg("iniobj checkdiscr dobj_581__OGETSL_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_581__OGETSL_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_581__OGETSL_OBJ.obj_num = 2;
-  cdat->dobj_581__OGETSL_OBJ.obj_hash = 698873070;
+  cdat->dobj_581__OGETSL_OBJ.obj_hash = 948738708;
   cdat->dobj_581__OGETSL_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_581__OGETSL_OBJ));
  
@@ -68750,7 +22907,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_583__OGETSL_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_585__OGETSL_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_585__OGETSL_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_585__OGETSL_FIELD.obj_num = 3;
-  cdat->dobj_585__OGETSL_FIELD.obj_hash = 353213819;
+  cdat->dobj_585__OGETSL_FIELD.obj_hash = 898501265;
   cdat->dobj_585__OGETSL_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_585__OGETSL_FIELD));
  
@@ -68778,7 +22935,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_587__CLASS_OBJPUTCLOSUROU
   melt_assertmsg("iniobj checkdiscr dobj_589__CLASS_OBJPUTCLOSUROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_589__CLASS_OBJPUTCLOSUROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_589__CLASS_OBJPUTCLOSUROUT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_589__CLASS_OBJPUTCLOSUROUT.obj_hash = 882690647;
+  cdat->dobj_589__CLASS_OBJPUTCLOSUROUT.obj_hash = 63619813;
   cdat->dobj_589__CLASS_OBJPUTCLOSUROUT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_589__CLASS_OBJPUTCLOSUROUT));
  
@@ -68814,7 +22971,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_593__OPCLOR_CLOS));
   melt_assertmsg("iniobj checkdiscr dobj_595__OPCLOR_CLOS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_595__OPCLOR_CLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_595__OPCLOR_CLOS.obj_num = 1;
-  cdat->dobj_595__OPCLOR_CLOS.obj_hash = 917075355;
+  cdat->dobj_595__OPCLOR_CLOS.obj_hash = 158987225;
   cdat->dobj_595__OPCLOR_CLOS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_595__OPCLOR_CLOS));
  
@@ -68842,7 +22999,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_597__OPCLOR_ROUT));
   melt_assertmsg("iniobj checkdiscr dobj_599__OPCLOR_ROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_599__OPCLOR_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_599__OPCLOR_ROUT.obj_num = 2;
-  cdat->dobj_599__OPCLOR_ROUT.obj_hash = 839866574;
+  cdat->dobj_599__OPCLOR_ROUT.obj_hash = 1036094524;
   cdat->dobj_599__OPCLOR_ROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_599__OPCLOR_ROUT));
  
@@ -68870,7 +23027,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_601__CLASS_OBJPUTCLOSEDV)
   melt_assertmsg("iniobj checkdiscr dobj_603__CLASS_OBJPUTCLOSEDV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_603__CLASS_OBJPUTCLOSEDV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_603__CLASS_OBJPUTCLOSEDV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_603__CLASS_OBJPUTCLOSEDV.obj_hash = 135399905;
+  cdat->dobj_603__CLASS_OBJPUTCLOSEDV.obj_hash = 884776615;
   cdat->dobj_603__CLASS_OBJPUTCLOSEDV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_603__CLASS_OBJPUTCLOSEDV));
  
@@ -68906,7 +23063,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_607__OPCLOV_CLOS));
   melt_assertmsg("iniobj checkdiscr dobj_609__OPCLOV_CLOS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_609__OPCLOV_CLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_609__OPCLOV_CLOS.obj_num = 1;
-  cdat->dobj_609__OPCLOV_CLOS.obj_hash = 36071746;
+  cdat->dobj_609__OPCLOV_CLOS.obj_hash = 2959992;
   cdat->dobj_609__OPCLOV_CLOS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_609__OPCLOV_CLOS));
  
@@ -68934,7 +23091,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_611__OPCLOV_OFF));
   melt_assertmsg("iniobj checkdiscr dobj_613__OPCLOV_OFF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_613__OPCLOV_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_613__OPCLOV_OFF.obj_num = 2;
-  cdat->dobj_613__OPCLOV_OFF.obj_hash = 1474705;
+  cdat->dobj_613__OPCLOV_OFF.obj_hash = 547871671;
   cdat->dobj_613__OPCLOV_OFF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_613__OPCLOV_OFF));
  
@@ -68962,7 +23119,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_615__OPCLOV_CVAL));
   melt_assertmsg("iniobj checkdiscr dobj_617__OPCLOV_CVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_617__OPCLOV_CVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_617__OPCLOV_CVAL.obj_num = 3;
-  cdat->dobj_617__OPCLOV_CVAL.obj_hash = 487907273;
+  cdat->dobj_617__OPCLOV_CVAL.obj_hash = 209895007;
   cdat->dobj_617__OPCLOV_CVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_617__OPCLOV_CVAL));
  
@@ -68990,7 +23147,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_619__CLASS_OBJPUTCLOSEDNO
   melt_assertmsg("iniobj checkdiscr dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV.obj_num = OBMAG_OBJECT;
-  cdat->dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 1016329185;
+  cdat->dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 327756783;
   cdat->dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_621__CLASS_OBJPUTCLOSEDNOTNULLV));
  
@@ -69026,7 +23183,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_625__CLASS_OBJPUTROUTCONS
   melt_assertmsg("iniobj checkdiscr dobj_627__CLASS_OBJPUTROUTCONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_627__CLASS_OBJPUTROUTCONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_627__CLASS_OBJPUTROUTCONST.obj_num = OBMAG_OBJECT;
-  cdat->dobj_627__CLASS_OBJPUTROUTCONST.obj_hash = 191143008;
+  cdat->dobj_627__CLASS_OBJPUTROUTCONST.obj_hash = 205256262;
   cdat->dobj_627__CLASS_OBJPUTROUTCONST.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_627__CLASS_OBJPUTROUTCONST));
  
@@ -69062,7 +23219,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_631__OPRCONST_ROUT));
   melt_assertmsg("iniobj checkdiscr dobj_633__OPRCONST_ROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_633__OPRCONST_ROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_633__OPRCONST_ROUT.obj_num = 1;
-  cdat->dobj_633__OPRCONST_ROUT.obj_hash = 270055286;
+  cdat->dobj_633__OPRCONST_ROUT.obj_hash = 3117772;
   cdat->dobj_633__OPRCONST_ROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_633__OPRCONST_ROUT));
  
@@ -69090,7 +23247,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_635__OPRCONST_OFF));
   melt_assertmsg("iniobj checkdiscr dobj_637__OPRCONST_OFF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_637__OPRCONST_OFF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_637__OPRCONST_OFF.obj_num = 2;
-  cdat->dobj_637__OPRCONST_OFF.obj_hash = 211819205;
+  cdat->dobj_637__OPRCONST_OFF.obj_hash = 584150283;
   cdat->dobj_637__OPRCONST_OFF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_637__OPRCONST_OFF));
  
@@ -69118,7 +23275,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_639__OPRCONST_CVAL));
   melt_assertmsg("iniobj checkdiscr dobj_641__OPRCONST_CVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_641__OPRCONST_CVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_641__OPRCONST_CVAL.obj_num = 3;
-  cdat->dobj_641__OPRCONST_CVAL.obj_hash = 669938301;
+  cdat->dobj_641__OPRCONST_CVAL.obj_hash = 27258163;
   cdat->dobj_641__OPRCONST_CVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_641__OPRCONST_CVAL));
  
@@ -69146,7 +23303,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_643__CLASS_OBJPUTROUTCONS
   melt_assertmsg("iniobj checkdiscr dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 428232734;
+  cdat->dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 252799692;
   cdat->dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_645__CLASS_OBJPUTROUTCONSTNOTNULL));
  
@@ -69182,7 +23339,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_649__CLASS_OBJTOUCH));
   melt_assertmsg("iniobj checkdiscr dobj_651__CLASS_OBJTOUCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_651__CLASS_OBJTOUCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_651__CLASS_OBJTOUCH.obj_num = OBMAG_OBJECT;
-  cdat->dobj_651__CLASS_OBJTOUCH.obj_hash = 257949125;
+  cdat->dobj_651__CLASS_OBJTOUCH.obj_hash = 737350347;
   cdat->dobj_651__CLASS_OBJTOUCH.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_651__CLASS_OBJTOUCH));
  
@@ -69218,7 +23375,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_655__OTOUCH_VAL));
   melt_assertmsg("iniobj checkdiscr dobj_657__OTOUCH_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_657__OTOUCH_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_657__OTOUCH_VAL.obj_num = 1;
-  cdat->dobj_657__OTOUCH_VAL.obj_hash = 837659200;
+  cdat->dobj_657__OTOUCH_VAL.obj_hash = 55805366;
   cdat->dobj_657__OTOUCH_VAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_657__OTOUCH_VAL));
  
@@ -69246,7 +23403,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_659__OTOUCH_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_661__OTOUCH_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_661__OTOUCH_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_661__OTOUCH_COMMENT.obj_num = 2;
-  cdat->dobj_661__OTOUCH_COMMENT.obj_hash = 619232262;
+  cdat->dobj_661__OTOUCH_COMMENT.obj_hash = 109206380;
   cdat->dobj_661__OTOUCH_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_661__OTOUCH_COMMENT));
  
@@ -69274,7 +23431,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_663__CLASS_OBJSETPREDEF))
   melt_assertmsg("iniobj checkdiscr dobj_665__CLASS_OBJSETPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_665__CLASS_OBJSETPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_665__CLASS_OBJSETPREDEF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_665__CLASS_OBJSETPREDEF.obj_hash = 444917821;
+  cdat->dobj_665__CLASS_OBJSETPREDEF.obj_hash = 36221787;
   cdat->dobj_665__CLASS_OBJSETPREDEF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_665__CLASS_OBJSETPREDEF));
  
@@ -69310,7 +23467,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_669__OSPR_OBJECT));
   melt_assertmsg("iniobj checkdiscr dobj_671__OSPR_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_671__OSPR_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_671__OSPR_OBJECT.obj_num = 1;
-  cdat->dobj_671__OSPR_OBJECT.obj_hash = 976762752;
+  cdat->dobj_671__OSPR_OBJECT.obj_hash = 630567630;
   cdat->dobj_671__OSPR_OBJECT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_671__OSPR_OBJECT));
  
@@ -69338,7 +23495,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_673__OSPR_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_675__OSPR_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_675__OSPR_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_675__OSPR_PREDEF.obj_num = 2;
-  cdat->dobj_675__OSPR_PREDEF.obj_hash = 197228596;
+  cdat->dobj_675__OSPR_PREDEF.obj_hash = 287971122;
   cdat->dobj_675__OSPR_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_675__OSPR_PREDEF));
  
@@ -69379,7 +23536,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_679__CLASS_NAMED));
   melt_assertmsg("iniobj checkdiscr dobj_681__CLASS_ROUTINEOBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_681__CLASS_ROUTINEOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_681__CLASS_ROUTINEOBJ.obj_num = OBMAG_OBJECT;
-  cdat->dobj_681__CLASS_ROUTINEOBJ.obj_hash = 315587390;
+  cdat->dobj_681__CLASS_ROUTINEOBJ.obj_hash = 997088468;
   cdat->dobj_681__CLASS_ROUTINEOBJ.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_681__CLASS_ROUTINEOBJ));
  
@@ -69415,7 +23572,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_685__OBROUT_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_687__OBROUT_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_687__OBROUT_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_687__OBROUT_PROC.obj_num = 2;
-  cdat->dobj_687__OBROUT_PROC.obj_hash = 7501882;
+  cdat->dobj_687__OBROUT_PROC.obj_hash = 783080128;
   cdat->dobj_687__OBROUT_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_687__OBROUT_PROC));
  
@@ -69443,7 +23600,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_689__OBROUT_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_691__OBROUT_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_691__OBROUT_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_691__OBROUT_BODY.obj_num = 3;
-  cdat->dobj_691__OBROUT_BODY.obj_hash = 815975847;
+  cdat->dobj_691__OBROUT_BODY.obj_hash = 414085789;
   cdat->dobj_691__OBROUT_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_691__OBROUT_BODY));
  
@@ -69471,7 +23628,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_693__OBROUT_NBVAL));
   melt_assertmsg("iniobj checkdiscr dobj_695__OBROUT_NBVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_695__OBROUT_NBVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_695__OBROUT_NBVAL.obj_num = 4;
-  cdat->dobj_695__OBROUT_NBVAL.obj_hash = 353259640;
+  cdat->dobj_695__OBROUT_NBVAL.obj_hash = 176592222;
   cdat->dobj_695__OBROUT_NBVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_695__OBROUT_NBVAL));
  
@@ -69499,7 +23656,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_697__OBROUT_NBLONG));
   melt_assertmsg("iniobj checkdiscr dobj_699__OBROUT_NBLONG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__OBROUT_NBLONG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__OBROUT_NBLONG.obj_num = 5;
-  cdat->dobj_699__OBROUT_NBLONG.obj_hash = 580571351;
+  cdat->dobj_699__OBROUT_NBLONG.obj_hash = 299896621;
   cdat->dobj_699__OBROUT_NBLONG.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_699__OBROUT_NBLONG));
  
@@ -69527,7 +23684,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_701__OBROUT_OTHERS));
   melt_assertmsg("iniobj checkdiscr dobj_703__OBROUT_OTHERS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_703__OBROUT_OTHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_703__OBROUT_OTHERS.obj_num = 6;
-  cdat->dobj_703__OBROUT_OTHERS.obj_hash = 216071588;
+  cdat->dobj_703__OBROUT_OTHERS.obj_hash = 1022814954;
   cdat->dobj_703__OBROUT_OTHERS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_703__OBROUT_OTHERS));
  
@@ -69555,7 +23712,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_705__OBROUT_RETVAL));
   melt_assertmsg("iniobj checkdiscr dobj_707__OBROUT_RETVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_707__OBROUT_RETVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_707__OBROUT_RETVAL.obj_num = 7;
-  cdat->dobj_707__OBROUT_RETVAL.obj_hash = 941939627;
+  cdat->dobj_707__OBROUT_RETVAL.obj_hash = 1051191649;
   cdat->dobj_707__OBROUT_RETVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_707__OBROUT_RETVAL));
  
@@ -69583,7 +23740,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_709__OBROUT_CNTCITER));
   melt_assertmsg("iniobj checkdiscr dobj_711__OBROUT_CNTCITER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_711__OBROUT_CNTCITER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_711__OBROUT_CNTCITER.obj_num = 8;
-  cdat->dobj_711__OBROUT_CNTCITER.obj_hash = 390368147;
+  cdat->dobj_711__OBROUT_CNTCITER.obj_hash = 1036928825;
   cdat->dobj_711__OBROUT_CNTCITER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_711__OBROUT_CNTCITER));
  
@@ -69611,7 +23768,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_713__CLASS_PROCROUTINEOBJ
   melt_assertmsg("iniobj checkdiscr dobj_715__CLASS_PROCROUTINEOBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_715__CLASS_PROCROUTINEOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_715__CLASS_PROCROUTINEOBJ.obj_num = OBMAG_OBJECT;
-  cdat->dobj_715__CLASS_PROCROUTINEOBJ.obj_hash = 755313330;
+  cdat->dobj_715__CLASS_PROCROUTINEOBJ.obj_hash = 42856208;
   cdat->dobj_715__CLASS_PROCROUTINEOBJ.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_715__CLASS_PROCROUTINEOBJ));
  
@@ -69647,7 +23804,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_719__OPROUT_GETARGS));
   melt_assertmsg("iniobj checkdiscr dobj_721__OPROUT_GETARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_721__OPROUT_GETARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_721__OPROUT_GETARGS.obj_num = 9;
-  cdat->dobj_721__OPROUT_GETARGS.obj_hash = 595794892;
+  cdat->dobj_721__OPROUT_GETARGS.obj_hash = 193417818;
   cdat->dobj_721__OPROUT_GETARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_721__OPROUT_GETARGS));
  
@@ -69675,7 +23832,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_723__OPROUT_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_725__OPROUT_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_725__OPROUT_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_725__OPROUT_LOC.obj_num = 10;
-  cdat->dobj_725__OPROUT_LOC.obj_hash = 415059133;
+  cdat->dobj_725__OPROUT_LOC.obj_hash = 970537211;
   cdat->dobj_725__OPROUT_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_725__OPROUT_LOC));
  
@@ -69703,7 +23860,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_727__OPROUT_FUNAM));
   melt_assertmsg("iniobj checkdiscr dobj_729__OPROUT_FUNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_729__OPROUT_FUNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_729__OPROUT_FUNAM.obj_num = 11;
-  cdat->dobj_729__OPROUT_FUNAM.obj_hash = 4271467;
+  cdat->dobj_729__OPROUT_FUNAM.obj_hash = 456097497;
   cdat->dobj_729__OPROUT_FUNAM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_729__OPROUT_FUNAM));
  
@@ -69731,7 +23888,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_731__OPROUT_FILENUM));
   melt_assertmsg("iniobj checkdiscr dobj_733__OPROUT_FILENUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_733__OPROUT_FILENUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_733__OPROUT_FILENUM.obj_num = 12;
-  cdat->dobj_733__OPROUT_FILENUM.obj_hash = 356202661;
+  cdat->dobj_733__OPROUT_FILENUM.obj_hash = 292088515;
   cdat->dobj_733__OPROUT_FILENUM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_733__OPROUT_FILENUM));
  
@@ -69759,7 +23916,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_735__CLASS_INITIALROUTINE
   melt_assertmsg("iniobj checkdiscr dobj_737__CLASS_INITIALROUTINEOBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_737__CLASS_INITIALROUTINEOBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_737__CLASS_INITIALROUTINEOBJ.obj_num = OBMAG_OBJECT;
-  cdat->dobj_737__CLASS_INITIALROUTINEOBJ.obj_hash = 938744233;
+  cdat->dobj_737__CLASS_INITIALROUTINEOBJ.obj_hash = 466485471;
   cdat->dobj_737__CLASS_INITIALROUTINEOBJ.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_737__CLASS_INITIALROUTINEOBJ));
  
@@ -69795,7 +23952,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_741__OIROUT_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_743__OIROUT_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_743__OIROUT_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_743__OIROUT_DATA.obj_num = 9;
-  cdat->dobj_743__OIROUT_DATA.obj_hash = 560990265;
+  cdat->dobj_743__OIROUT_DATA.obj_hash = 85457247;
   cdat->dobj_743__OIROUT_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_743__OIROUT_DATA));
  
@@ -69823,7 +23980,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_745__OIROUT_PROLOG));
   melt_assertmsg("iniobj checkdiscr dobj_747__OIROUT_PROLOG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_747__OIROUT_PROLOG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_747__OIROUT_PROLOG.obj_num = 10;
-  cdat->dobj_747__OIROUT_PROLOG.obj_hash = 616308533;
+  cdat->dobj_747__OIROUT_PROLOG.obj_hash = 977896395;
   cdat->dobj_747__OIROUT_PROLOG.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_747__OIROUT_PROLOG));
  
@@ -69851,7 +24008,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_749__OIROUT_FILL));
   melt_assertmsg("iniobj checkdiscr dobj_751__OIROUT_FILL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_751__OIROUT_FILL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_751__OIROUT_FILL.obj_num = 11;
-  cdat->dobj_751__OIROUT_FILL.obj_hash = 997872658;
+  cdat->dobj_751__OIROUT_FILL.obj_hash = 145125784;
   cdat->dobj_751__OIROUT_FILL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_751__OIROUT_FILL));
  
@@ -69891,7 +24048,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_755__CLASS_SELECTOR));
  if (!/*_.VALDATA___V883*/ curfptr[882]) /*_.VALDATA___V883*/ curfptr[882] = (void*)&cdat->dobj_757__OUTPUT_C_DECLINIT;
   melt_assertmsg("iniobj checkdiscr dobj_757__OUTPUT_C_DECLINIT", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_757__OUTPUT_C_DECLINIT.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_757__OUTPUT_C_DECLINIT.obj_hash = 645883275;
+  cdat->dobj_757__OUTPUT_C_DECLINIT.obj_hash = 990190081;
   cdat->dobj_757__OUTPUT_C_DECLINIT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_757__OUTPUT_C_DECLINIT));
  
@@ -69918,7 +24075,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_759__PUT_OBJDEST));
  if (!/*_.VALDATA___V887*/ curfptr[886]) /*_.VALDATA___V887*/ curfptr[886] = (void*)&cdat->dobj_761__PUT_OBJDEST;
   melt_assertmsg("iniobj checkdiscr dobj_761__PUT_OBJDEST", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_761__PUT_OBJDEST.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_761__PUT_OBJDEST.obj_hash = 345689363;
+  cdat->dobj_761__PUT_OBJDEST.obj_hash = 603609673;
   cdat->dobj_761__PUT_OBJDEST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_761__PUT_OBJDEST));
  
@@ -69945,7 +24102,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_763__OUTPUT_C_CODE));
  if (!/*_.VALDATA___V891*/ curfptr[890]) /*_.VALDATA___V891*/ curfptr[890] = (void*)&cdat->dobj_765__OUTPUT_C_CODE;
   melt_assertmsg("iniobj checkdiscr dobj_765__OUTPUT_C_CODE", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_765__OUTPUT_C_CODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_765__OUTPUT_C_CODE.obj_hash = 825176390;
+  cdat->dobj_765__OUTPUT_C_CODE.obj_hash = 939716412;
   cdat->dobj_765__OUTPUT_C_CODE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_765__OUTPUT_C_CODE));
  
@@ -69972,7 +24129,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_767__OUTPUT_C_INITFILL));
  if (!/*_.VALDATA___V895*/ curfptr[894]) /*_.VALDATA___V895*/ curfptr[894] = (void*)&cdat->dobj_769__OUTPUT_C_INITFILL;
   melt_assertmsg("iniobj checkdiscr dobj_769__OUTPUT_C_INITFILL", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_769__OUTPUT_C_INITFILL.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_769__OUTPUT_C_INITFILL.obj_hash = 262111391;
+  cdat->dobj_769__OUTPUT_C_INITFILL.obj_hash = 846514005;
   cdat->dobj_769__OUTPUT_C_INITFILL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_769__OUTPUT_C_INITFILL));
  
@@ -69999,7 +24156,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_771__OUTPUT_C_INITPREDEF)
  if (!/*_.VALDATA___V899*/ curfptr[898]) /*_.VALDATA___V899*/ curfptr[898] = (void*)&cdat->dobj_773__OUTPUT_C_INITPREDEF;
   melt_assertmsg("iniobj checkdiscr dobj_773__OUTPUT_C_INITPREDEF", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_773__OUTPUT_C_INITPREDEF.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_773__OUTPUT_C_INITPREDEF.obj_hash = 432785721;
+  cdat->dobj_773__OUTPUT_C_INITPREDEF.obj_hash = 277016751;
   cdat->dobj_773__OUTPUT_C_INITPREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_773__OUTPUT_C_INITPREDEF));
  
@@ -70405,7 +24562,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_835__MULTIPLE_MAP));
  /*inirout drout_837__LAMBDA_*/
  /*_.VALROUT___V948*/ curfptr[947] = (void*)&cdat->drout_837__LAMBDA_;
   cdat->drout_837__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_837__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:748",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_837__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:750",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_837__LAMBDA_.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_837__LAMBDA_, meltrout_10_warmelt_genobj_LAMBDA_);
  
@@ -70464,7 +24621,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_844__LIST_EVERY));
  /*inirout drout_846__LAMBDA_*/
  /*_.VALROUT___V949*/ curfptr[948] = (void*)&cdat->drout_846__LAMBDA_;
   cdat->drout_846__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_846__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:796",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_846__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:798",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_846__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_846__LAMBDA_, meltrout_11_warmelt_genobj_LAMBDA_);
  
@@ -70481,12 +24638,12 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_847__INITIALSYSTEMDATA_OB
   cdat->dstr_848__INITIALSYSTEMDAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_848__INITIALSYSTEMDAT.val, "INITIALSYSTEMDATA_OBJPREDEF", sizeof(cdat->dstr_848__INITIALSYSTEMDAT.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:815:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:817:/ iniobj");
  /*iniobj dobj_849__INITIALSYSTEMDATA_OBJPREDEF*/
  if (!/*_.VALDATA___V981*/ curfptr[980]) /*_.VALDATA___V981*/ curfptr[980] = (void*)&cdat->dobj_849__INITIALSYSTEMDATA_OBJPREDEF;
   melt_assertmsg("iniobj checkdiscr dobj_849__INITIALSYSTEMDATA_OBJPREDEF", NULL != (void*)/*_.VALDATA___V189*/ curfptr[188]);
   cdat->dobj_849__INITIALSYSTEMDATA_OBJPREDEF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]);
-  cdat->dobj_849__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 791107532;
+  cdat->dobj_849__INITIALSYSTEMDATA_OBJPREDEF.obj_hash = 401595306;
   cdat->dobj_849__INITIALSYSTEMDATA_OBJPREDEF.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_849__INITIALSYSTEMDATA_OBJPREDEF));
  
@@ -70506,7 +24663,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_850__INITIAL_SYSTEM_DATA)
  /*inirout drout_852__APPEND_COMMENT*/
  /*_.VALROUT___V984*/ curfptr[983] = (void*)&cdat->drout_852__APPEND_COMMENT;
   cdat->drout_852__APPEND_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_852__APPEND_COMMENT.routdescr, "APPEND_COMMENT @warmelt-genobj.melt:820",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_852__APPEND_COMMENT.routdescr, "APPEND_COMMENT @warmelt-genobj.melt:822",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_852__APPEND_COMMENT.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_852__APPEND_COMMENT, meltrout_12_warmelt_genobj_APPEND_COMMENT);
  
@@ -70518,7 +24675,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_850__INITIAL_SYSTEM_DATA)
  /*inirout drout_854__APPEND_COMMENTCONST*/
  /*_.VALROUT___V986*/ curfptr[985] = (void*)&cdat->drout_854__APPEND_COMMENTCONST;
   cdat->drout_854__APPEND_COMMENTCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_854__APPEND_COMMENTCONST.routdescr, "APPEND_COMMENTCONST @warmelt-genobj.melt:822",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_854__APPEND_COMMENTCONST.routdescr, "APPEND_COMMENTCONST @warmelt-genobj.melt:824",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_854__APPEND_COMMENTCONST.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_854__APPEND_COMMENTCONST, meltrout_13_warmelt_genobj_APPEND_COMMENTCONST);
  
@@ -70530,7 +24687,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_850__INITIAL_SYSTEM_DATA)
  /*inirout drout_856__COMPILE2OBJ_INITPROC*/
  /*_.VALROUT___V988*/ curfptr[987] = (void*)&cdat->drout_856__COMPILE2OBJ_INITPROC;
   cdat->drout_856__COMPILE2OBJ_INITPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_856__COMPILE2OBJ_INITPROC.routdescr, "COMPILE2OBJ_INITPROC @warmelt-genobj.melt:826",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_856__COMPILE2OBJ_INITPROC.routdescr, "COMPILE2OBJ_INITPROC @warmelt-genobj.melt:828",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_856__COMPILE2OBJ_INITPROC.nbval = 70;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_856__COMPILE2OBJ_INITPROC, meltrout_14_warmelt_genobj_COMPILE2OBJ_INITPROC);
  
@@ -70586,7 +24743,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_863__LIST_MAP));
  /*inirout drout_865__LAMBDA_*/
  /*_.VALROUT___V990*/ curfptr[989] = (void*)&cdat->drout_865__LAMBDA_;
   cdat->drout_865__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_865__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:865",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_865__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:867",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_865__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_865__LAMBDA_, meltrout_15_warmelt_genobj_LAMBDA_);
  
@@ -70710,7 +24867,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_882__DISCR_VERBATIM_STRIN
  /*inirout drout_884__LAMBDA_*/
  /*_.VALROUT___V1003*/ curfptr[1002] = (void*)&cdat->drout_884__LAMBDA_;
   cdat->drout_884__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_884__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:954",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_884__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:956",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_884__LAMBDA_.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_884__LAMBDA_, meltrout_16_warmelt_genobj_LAMBDA_);
  
@@ -70743,7 +24900,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_887__LIST_TO_MULTIPLE));
  /*inirout drout_889__LAMBDA_*/
  /*_.VALROUT___V1004*/ curfptr[1003] = (void*)&cdat->drout_889__LAMBDA_;
   cdat->drout_889__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_889__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:985",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_889__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:987",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_889__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_889__LAMBDA_, meltrout_17_warmelt_genobj_LAMBDA_);
  
@@ -70763,7 +24920,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_890__CLASS_NREP_DATA));
  /*inirout drout_892__LAMBDA_*/
  /*_.VALROUT___V1005*/ curfptr[1004] = (void*)&cdat->drout_892__LAMBDA_;
   cdat->drout_892__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_892__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1000",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_892__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1002",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_892__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_892__LAMBDA_, meltrout_18_warmelt_genobj_LAMBDA_);
  
@@ -70783,7 +24940,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_893__MULTIPLE_EVERY));
  /*inirout drout_895__LAMBDA_*/
  /*_.VALROUT___V1006*/ curfptr[1005] = (void*)&cdat->drout_895__LAMBDA_;
   cdat->drout_895__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_895__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1009",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_895__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1011",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_895__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_895__LAMBDA_, meltrout_19_warmelt_genobj_LAMBDA_);
  
@@ -70829,21 +24986,21 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_900__SYSDATA_VALUE_IMPORT
  /*inirout drout_902__LAMBDA_*/
  /*_.VALROUT___V1007*/ curfptr[1006] = (void*)&cdat->drout_902__LAMBDA_;
   cdat->drout_902__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_902__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1047",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_902__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1049",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_902__LAMBDA_.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_902__LAMBDA_, meltrout_20_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_903__LAMBDA_*/
  /*_.VALROUT___V1008*/ curfptr[1007] = (void*)&cdat->drout_903__LAMBDA_;
   cdat->drout_903__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_903__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1070",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_903__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1072",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_903__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_903__LAMBDA_, meltrout_21_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_904__LAMBDA_*/
  /*_.VALROUT___V1009*/ curfptr[1008] = (void*)&cdat->drout_904__LAMBDA_;
   cdat->drout_904__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_904__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1080",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_904__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1082",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_904__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_904__LAMBDA_, meltrout_22_warmelt_genobj_LAMBDA_);
  
@@ -70876,7 +25033,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_907__COMPILE2OBJ_PROCEDUR
  /*inirout drout_909__GET_FREE_OBJLOCPTR*/
  /*_.VALROUT___V941*/ curfptr[940] = (void*)&cdat->drout_909__GET_FREE_OBJLOCPTR;
   cdat->drout_909__GET_FREE_OBJLOCPTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_909__GET_FREE_OBJLOCPTR.routdescr, "GET_FREE_OBJLOCPTR @warmelt-genobj.melt:1137",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_909__GET_FREE_OBJLOCPTR.routdescr, "GET_FREE_OBJLOCPTR @warmelt-genobj.melt:1139",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_909__GET_FREE_OBJLOCPTR.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_909__GET_FREE_OBJLOCPTR, meltrout_23_warmelt_genobj_GET_FREE_OBJLOCPTR);
  
@@ -70888,7 +25045,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_907__COMPILE2OBJ_PROCEDUR
  /*inirout drout_911__GET_FREE_OBJLOCLONG*/
  /*_.VALROUT___V945*/ curfptr[944] = (void*)&cdat->drout_911__GET_FREE_OBJLOCLONG;
   cdat->drout_911__GET_FREE_OBJLOCLONG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_911__GET_FREE_OBJLOCLONG.routdescr, "GET_FREE_OBJLOCLONG @warmelt-genobj.melt:1188",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_911__GET_FREE_OBJLOCLONG.routdescr, "GET_FREE_OBJLOCLONG @warmelt-genobj.melt:1190",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_911__GET_FREE_OBJLOCLONG.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_911__GET_FREE_OBJLOCLONG, meltrout_24_warmelt_genobj_GET_FREE_OBJLOCLONG);
  
@@ -70900,7 +25057,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_907__COMPILE2OBJ_PROCEDUR
  /*inirout drout_913__GET_FREE_OBJLOCTYPED*/
  /*_.VALROUT___V947*/ curfptr[946] = (void*)&cdat->drout_913__GET_FREE_OBJLOCTYPED;
   cdat->drout_913__GET_FREE_OBJLOCTYPED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_913__GET_FREE_OBJLOCTYPED.routdescr, "GET_FREE_OBJLOCTYPED @warmelt-genobj.melt:1229",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_913__GET_FREE_OBJLOCTYPED.routdescr, "GET_FREE_OBJLOCTYPED @warmelt-genobj.melt:1231",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_913__GET_FREE_OBJLOCTYPED.nbval = 15;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_913__GET_FREE_OBJLOCTYPED, meltrout_25_warmelt_genobj_GET_FREE_OBJLOCTYPED);
  
@@ -70938,7 +25095,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_917__CTYPE_VOID));
  /*inirout drout_919__DISPOSE_OBJLOC*/
  /*_.VALROUT___V1045*/ curfptr[1044] = (void*)&cdat->drout_919__DISPOSE_OBJLOC;
   cdat->drout_919__DISPOSE_OBJLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_919__DISPOSE_OBJLOC.routdescr, "DISPOSE_OBJLOC @warmelt-genobj.melt:1290",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_919__DISPOSE_OBJLOC.routdescr, "DISPOSE_OBJLOC @warmelt-genobj.melt:1292",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_919__DISPOSE_OBJLOC.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_919__DISPOSE_OBJLOC, meltrout_26_warmelt_genobj_DISPOSE_OBJLOC);
  
@@ -70950,7 +25107,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_917__CTYPE_VOID));
  /*inirout drout_921__DISPOSE_BND_OBJ*/
  /*_.VALROUT___V1047*/ curfptr[1046] = (void*)&cdat->drout_921__DISPOSE_BND_OBJ;
   cdat->drout_921__DISPOSE_BND_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_921__DISPOSE_BND_OBJ.routdescr, "DISPOSE_BND_OBJ @warmelt-genobj.melt:1319",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_921__DISPOSE_BND_OBJ.routdescr, "DISPOSE_BND_OBJ @warmelt-genobj.melt:1321",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_921__DISPOSE_BND_OBJ.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_921__DISPOSE_BND_OBJ, meltrout_27_warmelt_genobj_DISPOSE_BND_OBJ);
  
@@ -70988,7 +25145,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_925__CLASS_LET_BINDING));
  /*inirout drout_927__COMPILOBJ_NREP_CHUNK*/
  /*_.VALROUT___V1053*/ curfptr[1052] = (void*)&cdat->drout_927__COMPILOBJ_NREP_CHUNK;
   cdat->drout_927__COMPILOBJ_NREP_CHUNK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_927__COMPILOBJ_NREP_CHUNK.routdescr, "COMPILOBJ_NREP_CHUNK @warmelt-genobj.melt:1342",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_927__COMPILOBJ_NREP_CHUNK.routdescr, "COMPILOBJ_NREP_CHUNK @warmelt-genobj.melt:1344",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_927__COMPILOBJ_NREP_CHUNK.nbval = 12;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_927__COMPILOBJ_NREP_CHUNK, meltrout_28_warmelt_genobj_COMPILOBJ_NREP_CHUNK);
  
@@ -71013,14 +25170,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_929__CLASS_NREP_CHUNK));
  /*inirout drout_931__LAMBDA_*/
  /*_.VALROUT___V1054*/ curfptr[1053] = (void*)&cdat->drout_931__LAMBDA_;
   cdat->drout_931__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_931__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1356",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_931__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1358",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_931__LAMBDA_.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_931__LAMBDA_, meltrout_29_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_932__GETCTYPE_TYPEXPR*/
  /*_.VALROUT___V1058*/ curfptr[1057] = (void*)&cdat->drout_932__GETCTYPE_TYPEXPR;
   cdat->drout_932__GETCTYPE_TYPEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_932__GETCTYPE_TYPEXPR.routdescr, "GETCTYPE_TYPEXPR @warmelt-genobj.melt:1381",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_932__GETCTYPE_TYPEXPR.routdescr, "GETCTYPE_TYPEXPR @warmelt-genobj.melt:1383",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_932__GETCTYPE_TYPEXPR.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_932__GETCTYPE_TYPEXPR, meltrout_30_warmelt_genobj_GETCTYPE_TYPEXPR);
  
@@ -71045,7 +25202,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_934__CLASS_NREP_TYPED_EXP
  /*inirout drout_936__COMPILOBJ_NREP_NIL*/
  /*_.VALROUT___V1062*/ curfptr[1061] = (void*)&cdat->drout_936__COMPILOBJ_NREP_NIL;
   cdat->drout_936__COMPILOBJ_NREP_NIL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_936__COMPILOBJ_NREP_NIL.routdescr, "COMPILOBJ_NREP_NIL @warmelt-genobj.melt:1387",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_936__COMPILOBJ_NREP_NIL.routdescr, "COMPILOBJ_NREP_NIL @warmelt-genobj.melt:1389",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_936__COMPILOBJ_NREP_NIL.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_936__COMPILOBJ_NREP_NIL, meltrout_31_warmelt_genobj_COMPILOBJ_NREP_NIL);
  
@@ -71070,7 +25227,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_938__CLASS_NREP_NIL));
  /*inirout drout_940__COMPILOBJ_NREP_COMMENT*/
  /*_.VALROUT___V1066*/ curfptr[1065] = (void*)&cdat->drout_940__COMPILOBJ_NREP_COMMENT;
   cdat->drout_940__COMPILOBJ_NREP_COMMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_940__COMPILOBJ_NREP_COMMENT.routdescr, "COMPILOBJ_NREP_COMMENT @warmelt-genobj.melt:1399",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_940__COMPILOBJ_NREP_COMMENT.routdescr, "COMPILOBJ_NREP_COMMENT @warmelt-genobj.melt:1401",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_940__COMPILOBJ_NREP_COMMENT.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_940__COMPILOBJ_NREP_COMMENT, meltrout_32_warmelt_genobj_COMPILOBJ_NREP_COMMENT);
  
@@ -71095,7 +25252,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_942__CLASS_NREP_COMMENT))
  /*inirout drout_944__COMPILOBJ_NREP_LOCSYMOCC*/
  /*_.VALROUT___V1070*/ curfptr[1069] = (void*)&cdat->drout_944__COMPILOBJ_NREP_LOCSYMOCC;
   cdat->drout_944__COMPILOBJ_NREP_LOCSYMOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_944__COMPILOBJ_NREP_LOCSYMOCC.routdescr, "COMPILOBJ_NREP_LOCSYMOCC @warmelt-genobj.melt:1423",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_944__COMPILOBJ_NREP_LOCSYMOCC.routdescr, "COMPILOBJ_NREP_LOCSYMOCC @warmelt-genobj.melt:1425",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_944__COMPILOBJ_NREP_LOCSYMOCC.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_944__COMPILOBJ_NREP_LOCSYMOCC, meltrout_33_warmelt_genobj_COMPILOBJ_NREP_LOCSYMOCC);
  
@@ -71120,7 +25277,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_946__CLASS_NREP_LOCSYMOCC
  /*inirout drout_948__COMPILOBJ_NREP_CLOSEDOCC*/
  /*_.VALROUT___V1074*/ curfptr[1073] = (void*)&cdat->drout_948__COMPILOBJ_NREP_CLOSEDOCC;
   cdat->drout_948__COMPILOBJ_NREP_CLOSEDOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_948__COMPILOBJ_NREP_CLOSEDOCC.routdescr, "COMPILOBJ_NREP_CLOSEDOCC @warmelt-genobj.melt:1460",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_948__COMPILOBJ_NREP_CLOSEDOCC.routdescr, "COMPILOBJ_NREP_CLOSEDOCC @warmelt-genobj.melt:1462",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_948__COMPILOBJ_NREP_CLOSEDOCC.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_948__COMPILOBJ_NREP_CLOSEDOCC, meltrout_34_warmelt_genobj_COMPILOBJ_NREP_CLOSEDOCC);
  
@@ -71145,7 +25302,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_950__CLASS_NREP_CLOSEDOCC
  /*inirout drout_952__COMPILOBJ_NREP_CONSTOCC*/
  /*_.VALROUT___V1078*/ curfptr[1077] = (void*)&cdat->drout_952__COMPILOBJ_NREP_CONSTOCC;
   cdat->drout_952__COMPILOBJ_NREP_CONSTOCC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_952__COMPILOBJ_NREP_CONSTOCC.routdescr, "COMPILOBJ_NREP_CONSTOCC @warmelt-genobj.melt:1514",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_952__COMPILOBJ_NREP_CONSTOCC.routdescr, "COMPILOBJ_NREP_CONSTOCC @warmelt-genobj.melt:1516",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_952__COMPILOBJ_NREP_CONSTOCC.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_952__COMPILOBJ_NREP_CONSTOCC, meltrout_35_warmelt_genobj_COMPILOBJ_NREP_CONSTOCC);
  
@@ -71170,7 +25327,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_954__CLASS_NREP_CONSTOCC)
  /*inirout drout_956__COMPILOBJ_NREP_IMPORTEDVAL*/
  /*_.VALROUT___V1082*/ curfptr[1081] = (void*)&cdat->drout_956__COMPILOBJ_NREP_IMPORTEDVAL;
   cdat->drout_956__COMPILOBJ_NREP_IMPORTEDVAL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_956__COMPILOBJ_NREP_IMPORTEDVAL.routdescr, "COMPILOBJ_NREP_IMPORTEDVAL @warmelt-genobj.melt:1566",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_956__COMPILOBJ_NREP_IMPORTEDVAL.routdescr, "COMPILOBJ_NREP_IMPORTEDVAL @warmelt-genobj.melt:1568",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_956__COMPILOBJ_NREP_IMPORTEDVAL.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_956__COMPILOBJ_NREP_IMPORTEDVAL, meltrout_36_warmelt_genobj_COMPILOBJ_NREP_IMPORTEDVAL);
  
@@ -71195,7 +25352,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_958__CLASS_SYMBOL));
  /*inirout drout_960__COMPILOBJ_NREP_QUASICONSTANT*/
  /*_.VALROUT___V1086*/ curfptr[1085] = (void*)&cdat->drout_960__COMPILOBJ_NREP_QUASICONSTANT;
   cdat->drout_960__COMPILOBJ_NREP_QUASICONSTANT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_960__COMPILOBJ_NREP_QUASICONSTANT.routdescr, "COMPILOBJ_NREP_QUASICONSTANT @warmelt-genobj.melt:1583",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_960__COMPILOBJ_NREP_QUASICONSTANT.routdescr, "COMPILOBJ_NREP_QUASICONSTANT @warmelt-genobj.melt:1585",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_960__COMPILOBJ_NREP_QUASICONSTANT.nbval = 11;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_960__COMPILOBJ_NREP_QUASICONSTANT, meltrout_37_warmelt_genobj_COMPILOBJ_NREP_QUASICONSTANT);
  
@@ -71220,7 +25377,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_962__CLASS_NREP_QUASICONS
  /*inirout drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
  /*_.VALROUT___V1090*/ curfptr[1089] = (void*)&cdat->drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
   cdat->drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:1642",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:1644",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_38_warmelt_genobj_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER);
  
@@ -71245,7 +25402,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_966__CLASS_NREP_QUASICONS
  /*inirout drout_968__COMPILOBJ_NREP_FOREVER*/
  /*_.VALROUT___V1094*/ curfptr[1093] = (void*)&cdat->drout_968__COMPILOBJ_NREP_FOREVER;
   cdat->drout_968__COMPILOBJ_NREP_FOREVER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_968__COMPILOBJ_NREP_FOREVER.routdescr, "COMPILOBJ_NREP_FOREVER @warmelt-genobj.melt:1671",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_968__COMPILOBJ_NREP_FOREVER.routdescr, "COMPILOBJ_NREP_FOREVER @warmelt-genobj.melt:1673",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_968__COMPILOBJ_NREP_FOREVER.nbval = 12;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_968__COMPILOBJ_NREP_FOREVER, meltrout_39_warmelt_genobj_COMPILOBJ_NREP_FOREVER);
  
@@ -71296,14 +25453,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_974__CLASS_CLONED_SYMBOL)
  /*inirout drout_976__LAMBDA_*/
  /*_.VALROUT___V1095*/ curfptr[1094] = (void*)&cdat->drout_976__LAMBDA_;
   cdat->drout_976__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_976__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1704",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_976__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1706",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_976__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_976__LAMBDA_, meltrout_40_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_977__COMPILOBJ_NREP_EXIT*/
  /*_.VALROUT___V1103*/ curfptr[1102] = (void*)&cdat->drout_977__COMPILOBJ_NREP_EXIT;
   cdat->drout_977__COMPILOBJ_NREP_EXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_977__COMPILOBJ_NREP_EXIT.routdescr, "COMPILOBJ_NREP_EXIT @warmelt-genobj.melt:1715",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_977__COMPILOBJ_NREP_EXIT.routdescr, "COMPILOBJ_NREP_EXIT @warmelt-genobj.melt:1717",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_977__COMPILOBJ_NREP_EXIT.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_977__COMPILOBJ_NREP_EXIT, meltrout_41_warmelt_genobj_COMPILOBJ_NREP_EXIT);
  
@@ -71328,7 +25485,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_979__CLASS_NREP_EXIT));
  /*inirout drout_981__COMPILOBJ_DISCRANY*/
  /*_.VALROUT___V1107*/ curfptr[1106] = (void*)&cdat->drout_981__COMPILOBJ_DISCRANY;
   cdat->drout_981__COMPILOBJ_DISCRANY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_981__COMPILOBJ_DISCRANY.routdescr, "COMPILOBJ_DISCRANY @warmelt-genobj.melt:1754",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_981__COMPILOBJ_DISCRANY.routdescr, "COMPILOBJ_DISCRANY @warmelt-genobj.melt:1756",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_981__COMPILOBJ_DISCRANY.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_981__COMPILOBJ_DISCRANY, meltrout_42_warmelt_genobj_COMPILOBJ_DISCRANY);
  
@@ -71340,7 +25497,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_979__CLASS_NREP_EXIT));
  /*inirout drout_983__COMPILOBJ_NREP_LET*/
  /*_.VALROUT___V1109*/ curfptr[1108] = (void*)&cdat->drout_983__COMPILOBJ_NREP_LET;
   cdat->drout_983__COMPILOBJ_NREP_LET.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_983__COMPILOBJ_NREP_LET.routdescr, "COMPILOBJ_NREP_LET @warmelt-genobj.melt:1762",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_983__COMPILOBJ_NREP_LET.routdescr, "COMPILOBJ_NREP_LET @warmelt-genobj.melt:1764",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_983__COMPILOBJ_NREP_LET.nbval = 20;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_983__COMPILOBJ_NREP_LET, meltrout_43_warmelt_genobj_COMPILOBJ_NREP_LET);
  
@@ -71365,7 +25522,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_985__CLASS_NREP_LET));
  /*inirout drout_987__LAMBDA_*/
  /*_.VALROUT___V1110*/ curfptr[1109] = (void*)&cdat->drout_987__LAMBDA_;
   cdat->drout_987__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_987__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1789",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_987__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1791",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_987__LAMBDA_.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_987__LAMBDA_, meltrout_44_warmelt_genobj_LAMBDA_);
  
@@ -71398,14 +25555,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_990__CLASS_SEXPR));
  /*inirout drout_992__LAMBDA_*/
  /*_.VALROUT___V1111*/ curfptr[1110] = (void*)&cdat->drout_992__LAMBDA_;
   cdat->drout_992__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_992__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1838",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_992__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1840",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_992__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_992__LAMBDA_, meltrout_45_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_993__LAMBDA_*/
  /*_.VALROUT___V1112*/ curfptr[1111] = (void*)&cdat->drout_993__LAMBDA_;
   cdat->drout_993__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_993__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1852",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_993__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:1854",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_993__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_993__LAMBDA_, meltrout_46_warmelt_genobj_LAMBDA_);
  
@@ -71435,13 +25592,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_996__RECV));
   cdat->dstr_997__RECV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_997__RECV.val, "RECV", sizeof(cdat->dstr_997__RECV.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ iniobj");
  /*iniobj dobj_998*/
  if (!/*_.VALDATA___V1124*/ curfptr[1123]) /*_.VALDATA___V1124*/ curfptr[1123] = (void*)&cdat->dobj_998;
   melt_assertmsg("iniobj checkdiscr dobj_998", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_998.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_998.obj_num = 0;
-  cdat->dobj_998.obj_hash = 801672561;
+  cdat->dobj_998.obj_hash = 20301159;
   cdat->dobj_998.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_998));
  
@@ -71458,13 +25615,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_999__OBVA));
   cdat->dstr_1000__OBVA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1000__OBVA.val, "OBVA", sizeof(cdat->dstr_1000__OBVA.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ iniobj");
  /*iniobj dobj_1001*/
  if (!/*_.VALDATA___V1127*/ curfptr[1126]) /*_.VALDATA___V1127*/ curfptr[1126] = (void*)&cdat->dobj_1001;
   melt_assertmsg("iniobj checkdiscr dobj_1001", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1001.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1001.obj_num = 1;
-  cdat->dobj_1001.obj_hash = 163393393;
+  cdat->dobj_1001.obj_hash = 1059139623;
   cdat->dobj_1001.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1001));
  
@@ -71481,13 +25638,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1002__OBODL));
   cdat->dstr_1003__OBODL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1003__OBODL.val, "OBODL", sizeof(cdat->dstr_1003__OBODL.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ iniobj");
  /*iniobj dobj_1004*/
  if (!/*_.VALDATA___V1130*/ curfptr[1129]) /*_.VALDATA___V1130*/ curfptr[1129] = (void*)&cdat->dobj_1004;
   melt_assertmsg("iniobj checkdiscr dobj_1004", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1004.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1004.obj_num = 2;
-  cdat->dobj_1004.obj_hash = 938754581;
+  cdat->dobj_1004.obj_hash = 446129035;
   cdat->dobj_1004.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1004));
  
@@ -71504,13 +25661,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1005__GCX));
   cdat->dstr_1006__GCX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1006__GCX.val, "GCX", sizeof(cdat->dstr_1006__GCX.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ iniobj");
  /*iniobj dobj_1007*/
  if (!/*_.VALDATA___V1133*/ curfptr[1132]) /*_.VALDATA___V1133*/ curfptr[1132] = (void*)&cdat->dobj_1007;
   melt_assertmsg("iniobj checkdiscr dobj_1007", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1007.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1007.obj_num = 3;
-  cdat->dobj_1007.obj_hash = 341163595;
+  cdat->dobj_1007.obj_hash = 1026775169;
   cdat->dobj_1007.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1007));
  
@@ -71527,13 +25684,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1008__SLOC));
   cdat->dstr_1009__SLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1009__SLOC.val, "SLOC", sizeof(cdat->dstr_1009__SLOC.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ iniobj");
  /*iniobj dobj_1010*/
  if (!/*_.VALDATA___V1136*/ curfptr[1135]) /*_.VALDATA___V1136*/ curfptr[1135] = (void*)&cdat->dobj_1010;
   melt_assertmsg("iniobj checkdiscr dobj_1010", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1010.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1010.obj_num = 4;
-  cdat->dobj_1010.obj_hash = 271193891;
+  cdat->dobj_1010.obj_hash = 189825561;
   cdat->dobj_1010.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1010));
  
@@ -71541,12 +25698,12 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1010));
  /*_.VALTUP___V1137*/ curfptr[1136] = (void*)&cdat->dtup_1011__COMPILE_LETREC_FILL;
   cdat->dtup_1011__COMPILE_LETREC_FILL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
   cdat->dtup_1011__COMPILE_LETREC_FILL.nbval = 5;
- MELT_LOCATION("warmelt-genobj.melt:1872:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ iniobj");
  /*iniobj dobj_1012__COMPILE_LETREC_FILL*/
  if (!/*_.VALDATA___V1138*/ curfptr[1137]) /*_.VALDATA___V1138*/ curfptr[1137] = (void*)&cdat->dobj_1012__COMPILE_LETREC_FILL;
   melt_assertmsg("iniobj checkdiscr dobj_1012__COMPILE_LETREC_FILL", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_1012__COMPILE_LETREC_FILL.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_1012__COMPILE_LETREC_FILL.obj_hash = 1066463506;
+  cdat->dobj_1012__COMPILE_LETREC_FILL.obj_hash = 208020032;
   cdat->dobj_1012__COMPILE_LETREC_FILL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1012__COMPILE_LETREC_FILL));
  
@@ -71558,7 +25715,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1012__COMPILE_LETREC_FILL
  /*inirout drout_1014__FAIL_COMPILETRECFILL*/
  /*_.VALROUT___V1140*/ curfptr[1139] = (void*)&cdat->drout_1014__FAIL_COMPILETRECFILL;
   cdat->drout_1014__FAIL_COMPILETRECFILL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1014__FAIL_COMPILETRECFILL.routdescr, "FAIL_COMPILETRECFILL @warmelt-genobj.melt:1881",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1014__FAIL_COMPILETRECFILL.routdescr, "FAIL_COMPILETRECFILL @warmelt-genobj.melt:1883",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1014__FAIL_COMPILETRECFILL.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1014__FAIL_COMPILETRECFILL, meltrout_47_warmelt_genobj_FAIL_COMPILETRECFILL);
  
@@ -71570,7 +25727,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1012__COMPILE_LETREC_FILL
  /*inirout drout_1016__COMPILETREC_LAMBDA*/
  /*_.VALROUT___V1142*/ curfptr[1141] = (void*)&cdat->drout_1016__COMPILETREC_LAMBDA;
   cdat->drout_1016__COMPILETREC_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1016__COMPILETREC_LAMBDA.routdescr, "COMPILETREC_LAMBDA @warmelt-genobj.melt:1892",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1016__COMPILETREC_LAMBDA.routdescr, "COMPILETREC_LAMBDA @warmelt-genobj.melt:1894",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1016__COMPILETREC_LAMBDA.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1016__COMPILETREC_LAMBDA, meltrout_48_warmelt_genobj_COMPILETREC_LAMBDA);
  
@@ -71582,7 +25739,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1012__COMPILE_LETREC_FILL
  /*inirout drout_1018__COMPILOBJ_NREP_LETREC*/
  /*_.VALROUT___V1144*/ curfptr[1143] = (void*)&cdat->drout_1018__COMPILOBJ_NREP_LETREC;
   cdat->drout_1018__COMPILOBJ_NREP_LETREC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1018__COMPILOBJ_NREP_LETREC.routdescr, "COMPILOBJ_NREP_LETREC @warmelt-genobj.melt:1900",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1018__COMPILOBJ_NREP_LETREC.routdescr, "COMPILOBJ_NREP_LETREC @warmelt-genobj.melt:1902",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1018__COMPILOBJ_NREP_LETREC.nbval = 12;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1018__COMPILOBJ_NREP_LETREC, meltrout_49_warmelt_genobj_COMPILOBJ_NREP_LETREC);
  
@@ -71620,7 +25777,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1022__CLASS_NREP_SYMOCC))
  /*inirout drout_1024__COMPILOBJ_NREP_CITERATION*/
  /*_.VALROUT___V1150*/ curfptr[1149] = (void*)&cdat->drout_1024__COMPILOBJ_NREP_CITERATION;
   cdat->drout_1024__COMPILOBJ_NREP_CITERATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1024__COMPILOBJ_NREP_CITERATION.routdescr, "COMPILOBJ_NREP_CITERATION @warmelt-genobj.melt:1970",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1024__COMPILOBJ_NREP_CITERATION.routdescr, "COMPILOBJ_NREP_CITERATION @warmelt-genobj.melt:1972",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1024__COMPILOBJ_NREP_CITERATION.nbval = 37;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1024__COMPILOBJ_NREP_CITERATION, meltrout_50_warmelt_genobj_COMPILOBJ_NREP_CITERATION);
  
@@ -71658,42 +25815,42 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1028__CLASS_CITERATOR));
  /*inirout drout_1030__LAMBDA_*/
  /*_.VALROUT___V1151*/ curfptr[1150] = (void*)&cdat->drout_1030__LAMBDA_;
   cdat->drout_1030__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1030__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2009",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1030__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2011",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1030__LAMBDA_.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1030__LAMBDA_, meltrout_51_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1031__LAMBDA_*/
  /*_.VALROUT___V1152*/ curfptr[1151] = (void*)&cdat->drout_1031__LAMBDA_;
   cdat->drout_1031__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1031__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2045",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1031__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2047",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1031__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1031__LAMBDA_, meltrout_52_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1032__LAMBDA_*/
  /*_.VALROUT___V1153*/ curfptr[1152] = (void*)&cdat->drout_1032__LAMBDA_;
   cdat->drout_1032__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1032__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2057",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1032__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2059",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1032__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1032__LAMBDA_, meltrout_53_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1033__LAMBDA_*/
  /*_.VALROUT___V1154*/ curfptr[1153] = (void*)&cdat->drout_1033__LAMBDA_;
   cdat->drout_1033__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1033__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2073",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1033__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2075",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1033__LAMBDA_.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1033__LAMBDA_, meltrout_54_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1034__LAMBDA_*/
  /*_.VALROUT___V1155*/ curfptr[1154] = (void*)&cdat->drout_1034__LAMBDA_;
   cdat->drout_1034__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1034__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2111",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1034__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2113",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1034__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1034__LAMBDA_, meltrout_55_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1035__COMPILOBJ_NREP_SETQ*/
  /*_.VALROUT___V1161*/ curfptr[1160] = (void*)&cdat->drout_1035__COMPILOBJ_NREP_SETQ;
   cdat->drout_1035__COMPILOBJ_NREP_SETQ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1035__COMPILOBJ_NREP_SETQ.routdescr, "COMPILOBJ_NREP_SETQ @warmelt-genobj.melt:2127",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1035__COMPILOBJ_NREP_SETQ.routdescr, "COMPILOBJ_NREP_SETQ @warmelt-genobj.melt:2129",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1035__COMPILOBJ_NREP_SETQ.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1035__COMPILOBJ_NREP_SETQ, meltrout_56_warmelt_genobj_COMPILOBJ_NREP_SETQ);
  
@@ -71718,7 +25875,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1037__CLASS_NREP_SETQ));
  /*inirout drout_1039__COMPILOBJ_NREP_PROGN*/
  /*_.VALROUT___V1165*/ curfptr[1164] = (void*)&cdat->drout_1039__COMPILOBJ_NREP_PROGN;
   cdat->drout_1039__COMPILOBJ_NREP_PROGN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1039__COMPILOBJ_NREP_PROGN.routdescr, "COMPILOBJ_NREP_PROGN @warmelt-genobj.melt:2149",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1039__COMPILOBJ_NREP_PROGN.routdescr, "COMPILOBJ_NREP_PROGN @warmelt-genobj.melt:2151",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1039__COMPILOBJ_NREP_PROGN.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1039__COMPILOBJ_NREP_PROGN, meltrout_57_warmelt_genobj_COMPILOBJ_NREP_PROGN);
  
@@ -71743,14 +25900,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1041__CLASS_NREP_PROGN));
  /*inirout drout_1043__LAMBDA_*/
  /*_.VALROUT___V1166*/ curfptr[1165] = (void*)&cdat->drout_1043__LAMBDA_;
   cdat->drout_1043__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1043__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2165",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1043__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2167",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1043__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1043__LAMBDA_, meltrout_58_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1044__COMPILOBJ_NREP_MULTACC*/
  /*_.VALROUT___V1170*/ curfptr[1169] = (void*)&cdat->drout_1044__COMPILOBJ_NREP_MULTACC;
   cdat->drout_1044__COMPILOBJ_NREP_MULTACC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1044__COMPILOBJ_NREP_MULTACC.routdescr, "COMPILOBJ_NREP_MULTACC @warmelt-genobj.melt:2177",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1044__COMPILOBJ_NREP_MULTACC.routdescr, "COMPILOBJ_NREP_MULTACC @warmelt-genobj.melt:2179",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1044__COMPILOBJ_NREP_MULTACC.nbval = 11;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1044__COMPILOBJ_NREP_MULTACC, meltrout_59_warmelt_genobj_COMPILOBJ_NREP_MULTACC);
  
@@ -71775,14 +25932,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1046__CLASS_NREP_MULTACC)
  /*inirout drout_1048__LAMBDA_*/
  /*_.VALROUT___V1171*/ curfptr[1170] = (void*)&cdat->drout_1048__LAMBDA_;
   cdat->drout_1048__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1048__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2188",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1048__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2190",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1048__LAMBDA_.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1048__LAMBDA_, meltrout_60_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1049__COMPILOBJ_NREP_FIELDACC*/
  /*_.VALROUT___V1175*/ curfptr[1174] = (void*)&cdat->drout_1049__COMPILOBJ_NREP_FIELDACC;
   cdat->drout_1049__COMPILOBJ_NREP_FIELDACC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1049__COMPILOBJ_NREP_FIELDACC.routdescr, "COMPILOBJ_NREP_FIELDACC @warmelt-genobj.melt:2229",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1049__COMPILOBJ_NREP_FIELDACC.routdescr, "COMPILOBJ_NREP_FIELDACC @warmelt-genobj.melt:2231",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1049__COMPILOBJ_NREP_FIELDACC.nbval = 15;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1049__COMPILOBJ_NREP_FIELDACC, meltrout_61_warmelt_genobj_COMPILOBJ_NREP_FIELDACC);
  
@@ -71807,7 +25964,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1051__CLASS_NREP_FIELDACC
  /*inirout drout_1053__LAMBDA_*/
  /*_.VALROUT___V1176*/ curfptr[1175] = (void*)&cdat->drout_1053__LAMBDA_;
   cdat->drout_1053__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1053__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2242",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1053__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2244",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1053__LAMBDA_.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1053__LAMBDA_, meltrout_62_warmelt_genobj_LAMBDA_);
  
@@ -71840,7 +25997,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1056__CLASS_NREP_DATAINST
  /*inirout drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD*/
  /*_.VALROUT___V1184*/ curfptr[1183] = (void*)&cdat->drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD;
   cdat->drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD.routdescr, "COMPILOBJ_NREP_UNSAFE_GET_FIELD @warmelt-genobj.melt:2284",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD.routdescr, "COMPILOBJ_NREP_UNSAFE_GET_FIELD @warmelt-genobj.melt:2286",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD, meltrout_63_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD);
  
@@ -71865,7 +26022,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1060__CLASS_NREP_UNSAFE_G
  /*inirout drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS*/
  /*_.VALROUT___V1188*/ curfptr[1187] = (void*)&cdat->drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS;
   cdat->drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.routdescr, "COMPILOBJ_NREP_UNSAFE_PUT_FIELDS @warmelt-genobj.melt:2306",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.routdescr, "COMPILOBJ_NREP_UNSAFE_PUT_FIELDS @warmelt-genobj.melt:2308",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS.nbval = 15;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS, meltrout_64_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS);
  
@@ -71890,7 +26047,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1064__CLASS_NREP_UNSAFE_P
  /*inirout drout_1066__LAMBDA_*/
  /*_.VALROUT___V1189*/ curfptr[1188] = (void*)&cdat->drout_1066__LAMBDA_;
   cdat->drout_1066__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1066__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2323",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1066__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2325",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1066__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1066__LAMBDA_, meltrout_65_warmelt_genobj_LAMBDA_);
  
@@ -71910,7 +26067,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1067__CLASS_NREP_FIELDASS
  /*inirout drout_1069__COMPILOBJ_NREP_APPLY*/
  /*_.VALROUT___V1195*/ curfptr[1194] = (void*)&cdat->drout_1069__COMPILOBJ_NREP_APPLY;
   cdat->drout_1069__COMPILOBJ_NREP_APPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1069__COMPILOBJ_NREP_APPLY.routdescr, "COMPILOBJ_NREP_APPLY @warmelt-genobj.melt:2352",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1069__COMPILOBJ_NREP_APPLY.routdescr, "COMPILOBJ_NREP_APPLY @warmelt-genobj.melt:2354",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1069__COMPILOBJ_NREP_APPLY.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1069__COMPILOBJ_NREP_APPLY, meltrout_66_warmelt_genobj_COMPILOBJ_NREP_APPLY);
  
@@ -71935,14 +26092,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1071__CLASS_NREP_APPLY));
  /*inirout drout_1073__LAMBDA_*/
  /*_.VALROUT___V1196*/ curfptr[1195] = (void*)&cdat->drout_1073__LAMBDA_;
   cdat->drout_1073__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1073__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2363",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1073__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2365",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1073__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1073__LAMBDA_, meltrout_67_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1074__COMPILOBJ_NREP_MULTIAPPLY*/
  /*_.VALROUT___V1200*/ curfptr[1199] = (void*)&cdat->drout_1074__COMPILOBJ_NREP_MULTIAPPLY;
   cdat->drout_1074__COMPILOBJ_NREP_MULTIAPPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1074__COMPILOBJ_NREP_MULTIAPPLY.routdescr, "COMPILOBJ_NREP_MULTIAPPLY @warmelt-genobj.melt:2383",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1074__COMPILOBJ_NREP_MULTIAPPLY.routdescr, "COMPILOBJ_NREP_MULTIAPPLY @warmelt-genobj.melt:2385",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1074__COMPILOBJ_NREP_MULTIAPPLY.nbval = 24;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1074__COMPILOBJ_NREP_MULTIAPPLY, meltrout_68_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY);
  
@@ -71967,42 +26124,42 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1076__CLASS_NREP_MULTIAPP
  /*inirout drout_1078__LAMBDA_*/
  /*_.VALROUT___V1201*/ curfptr[1200] = (void*)&cdat->drout_1078__LAMBDA_;
   cdat->drout_1078__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1078__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2397",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1078__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2399",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1078__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1078__LAMBDA_, meltrout_69_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1079__LAMBDA_*/
  /*_.VALROUT___V1202*/ curfptr[1201] = (void*)&cdat->drout_1079__LAMBDA_;
   cdat->drout_1079__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1079__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2423",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1079__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2425",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1079__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1079__LAMBDA_, meltrout_70_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1080__LAMBDA_*/
  /*_.VALROUT___V1203*/ curfptr[1202] = (void*)&cdat->drout_1080__LAMBDA_;
   cdat->drout_1080__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1080__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2437",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1080__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2439",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1080__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1080__LAMBDA_, meltrout_71_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1081__LAMBDA_*/
  /*_.VALROUT___V1204*/ curfptr[1203] = (void*)&cdat->drout_1081__LAMBDA_;
   cdat->drout_1081__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1081__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2449",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1081__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2451",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1081__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1081__LAMBDA_, meltrout_72_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1082__LAMBDA_*/
  /*_.VALROUT___V1205*/ curfptr[1204] = (void*)&cdat->drout_1082__LAMBDA_;
   cdat->drout_1082__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1082__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2460",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1082__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2462",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1082__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1082__LAMBDA_, meltrout_73_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1083__COMPILOBJ_NREP_MSEND*/
  /*_.VALROUT___V1209*/ curfptr[1208] = (void*)&cdat->drout_1083__COMPILOBJ_NREP_MSEND;
   cdat->drout_1083__COMPILOBJ_NREP_MSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1083__COMPILOBJ_NREP_MSEND.routdescr, "COMPILOBJ_NREP_MSEND @warmelt-genobj.melt:2469",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1083__COMPILOBJ_NREP_MSEND.routdescr, "COMPILOBJ_NREP_MSEND @warmelt-genobj.melt:2471",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1083__COMPILOBJ_NREP_MSEND.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1083__COMPILOBJ_NREP_MSEND, meltrout_74_warmelt_genobj_COMPILOBJ_NREP_MSEND);
  
@@ -72027,14 +26184,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1085__CLASS_NREP_MSEND));
  /*inirout drout_1087__LAMBDA_*/
  /*_.VALROUT___V1210*/ curfptr[1209] = (void*)&cdat->drout_1087__LAMBDA_;
   cdat->drout_1087__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1087__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2484",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1087__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2486",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1087__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1087__LAMBDA_, meltrout_75_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1088__COMPILOBJ_NREP_MULTIMSEND*/
  /*_.VALROUT___V1214*/ curfptr[1213] = (void*)&cdat->drout_1088__COMPILOBJ_NREP_MULTIMSEND;
   cdat->drout_1088__COMPILOBJ_NREP_MULTIMSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1088__COMPILOBJ_NREP_MULTIMSEND.routdescr, "COMPILOBJ_NREP_MULTIMSEND @warmelt-genobj.melt:2510",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1088__COMPILOBJ_NREP_MULTIMSEND.routdescr, "COMPILOBJ_NREP_MULTIMSEND @warmelt-genobj.melt:2512",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1088__COMPILOBJ_NREP_MULTIMSEND.nbval = 24;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1088__COMPILOBJ_NREP_MULTIMSEND, meltrout_76_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND);
  
@@ -72059,42 +26216,42 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1090__CLASS_NREP_MULTIMSE
  /*inirout drout_1092__LAMBDA_*/
  /*_.VALROUT___V1215*/ curfptr[1214] = (void*)&cdat->drout_1092__LAMBDA_;
   cdat->drout_1092__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1092__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2525",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1092__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2527",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1092__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1092__LAMBDA_, meltrout_77_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1093__LAMBDA_*/
  /*_.VALROUT___V1216*/ curfptr[1215] = (void*)&cdat->drout_1093__LAMBDA_;
   cdat->drout_1093__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1093__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2547",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1093__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2549",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1093__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1093__LAMBDA_, meltrout_78_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1094__LAMBDA_*/
  /*_.VALROUT___V1217*/ curfptr[1216] = (void*)&cdat->drout_1094__LAMBDA_;
   cdat->drout_1094__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1094__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2571",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1094__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2573",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1094__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1094__LAMBDA_, meltrout_79_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1095__LAMBDA_*/
  /*_.VALROUT___V1218*/ curfptr[1217] = (void*)&cdat->drout_1095__LAMBDA_;
   cdat->drout_1095__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1095__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2582",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1095__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2584",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1095__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1095__LAMBDA_, meltrout_80_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1096__LAMBDA_*/
  /*_.VALROUT___V1219*/ curfptr[1218] = (void*)&cdat->drout_1096__LAMBDA_;
   cdat->drout_1096__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1096__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2592",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1096__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:2594",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1096__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1096__LAMBDA_, meltrout_81_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1097__COMPILOBJ_ANY_BINDING*/
  /*_.VALROUT___V1223*/ curfptr[1222] = (void*)&cdat->drout_1097__COMPILOBJ_ANY_BINDING;
   cdat->drout_1097__COMPILOBJ_ANY_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1097__COMPILOBJ_ANY_BINDING.routdescr, "COMPILOBJ_ANY_BINDING @warmelt-genobj.melt:2602",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1097__COMPILOBJ_ANY_BINDING.routdescr, "COMPILOBJ_ANY_BINDING @warmelt-genobj.melt:2604",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1097__COMPILOBJ_ANY_BINDING.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1097__COMPILOBJ_ANY_BINDING, meltrout_82_warmelt_genobj_COMPILOBJ_ANY_BINDING);
  
@@ -72106,7 +26263,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1090__CLASS_NREP_MULTIMSE
  /*inirout drout_1099__COMPILOBJ_VALUE_BINDING*/
  /*_.VALROUT___V1225*/ curfptr[1224] = (void*)&cdat->drout_1099__COMPILOBJ_VALUE_BINDING;
   cdat->drout_1099__COMPILOBJ_VALUE_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1099__COMPILOBJ_VALUE_BINDING.routdescr, "COMPILOBJ_VALUE_BINDING @warmelt-genobj.melt:2616",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1099__COMPILOBJ_VALUE_BINDING.routdescr, "COMPILOBJ_VALUE_BINDING @warmelt-genobj.melt:2618",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1099__COMPILOBJ_VALUE_BINDING.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1099__COMPILOBJ_VALUE_BINDING, meltrout_83_warmelt_genobj_COMPILOBJ_VALUE_BINDING);
  
@@ -72131,7 +26288,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1101__CLASS_VALUE_BINDING
  /*inirout drout_1103__COMPILOBJ_FIXED_BINDING*/
  /*_.VALROUT___V1229*/ curfptr[1228] = (void*)&cdat->drout_1103__COMPILOBJ_FIXED_BINDING;
   cdat->drout_1103__COMPILOBJ_FIXED_BINDING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1103__COMPILOBJ_FIXED_BINDING.routdescr, "COMPILOBJ_FIXED_BINDING @warmelt-genobj.melt:2632",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1103__COMPILOBJ_FIXED_BINDING.routdescr, "COMPILOBJ_FIXED_BINDING @warmelt-genobj.melt:2634",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1103__COMPILOBJ_FIXED_BINDING.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1103__COMPILOBJ_FIXED_BINDING, meltrout_84_warmelt_genobj_COMPILOBJ_FIXED_BINDING);
  
@@ -72156,7 +26313,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1105__CLASS_FIXED_BINDING
  /*inirout drout_1107__COMPILOBJ_CONSLAMBDABIND*/
  /*_.VALROUT___V1233*/ curfptr[1232] = (void*)&cdat->drout_1107__COMPILOBJ_CONSLAMBDABIND;
   cdat->drout_1107__COMPILOBJ_CONSLAMBDABIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1107__COMPILOBJ_CONSLAMBDABIND.routdescr, "COMPILOBJ_CONSLAMBDABIND @warmelt-genobj.melt:2645",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1107__COMPILOBJ_CONSLAMBDABIND.routdescr, "COMPILOBJ_CONSLAMBDABIND @warmelt-genobj.melt:2647",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1107__COMPILOBJ_CONSLAMBDABIND.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1107__COMPILOBJ_CONSLAMBDABIND, meltrout_85_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND);
  
@@ -72181,7 +26338,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1109__CLASS_NORMAL_CONSTR
  /*inirout drout_1111__COMPILOBJ_CONSTUPLEBIND*/
  /*_.VALROUT___V1237*/ curfptr[1236] = (void*)&cdat->drout_1111__COMPILOBJ_CONSTUPLEBIND;
   cdat->drout_1111__COMPILOBJ_CONSTUPLEBIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1111__COMPILOBJ_CONSTUPLEBIND.routdescr, "COMPILOBJ_CONSTUPLEBIND @warmelt-genobj.melt:2689",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1111__COMPILOBJ_CONSTUPLEBIND.routdescr, "COMPILOBJ_CONSTUPLEBIND @warmelt-genobj.melt:2691",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1111__COMPILOBJ_CONSTUPLEBIND.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1111__COMPILOBJ_CONSTUPLEBIND, meltrout_86_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND);
  
@@ -72206,7 +26363,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1113__CLASS_NORMAL_CONSTR
  /*inirout drout_1115__PUTOBJDEST_OBJVALUE*/
  /*_.VALROUT___V1241*/ curfptr[1240] = (void*)&cdat->drout_1115__PUTOBJDEST_OBJVALUE;
   cdat->drout_1115__PUTOBJDEST_OBJVALUE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1115__PUTOBJDEST_OBJVALUE.routdescr, "PUTOBJDEST_OBJVALUE @warmelt-genobj.melt:2728",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1115__PUTOBJDEST_OBJVALUE.routdescr, "PUTOBJDEST_OBJVALUE @warmelt-genobj.melt:2730",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1115__PUTOBJDEST_OBJVALUE.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1115__PUTOBJDEST_OBJVALUE, meltrout_87_warmelt_genobj_PUTOBJDEST_OBJVALUE);
  
@@ -72218,7 +26375,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1113__CLASS_NORMAL_CONSTR
  /*inirout drout_1117__PUTOBJDEST_INTEGER*/
  /*_.VALROUT___V1243*/ curfptr[1242] = (void*)&cdat->drout_1117__PUTOBJDEST_INTEGER;
   cdat->drout_1117__PUTOBJDEST_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1117__PUTOBJDEST_INTEGER.routdescr, "PUTOBJDEST_INTEGER @warmelt-genobj.melt:2795",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1117__PUTOBJDEST_INTEGER.routdescr, "PUTOBJDEST_INTEGER @warmelt-genobj.melt:2797",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1117__PUTOBJDEST_INTEGER.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1117__PUTOBJDEST_INTEGER, meltrout_88_warmelt_genobj_PUTOBJDEST_INTEGER);
  
@@ -72230,7 +26387,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1113__CLASS_NORMAL_CONSTR
  /*inirout drout_1119__PUTOBJDEST_STRING*/
  /*_.VALROUT___V1245*/ curfptr[1244] = (void*)&cdat->drout_1119__PUTOBJDEST_STRING;
   cdat->drout_1119__PUTOBJDEST_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1119__PUTOBJDEST_STRING.routdescr, "PUTOBJDEST_STRING @warmelt-genobj.melt:2821",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1119__PUTOBJDEST_STRING.routdescr, "PUTOBJDEST_STRING @warmelt-genobj.melt:2823",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1119__PUTOBJDEST_STRING.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1119__PUTOBJDEST_STRING, meltrout_89_warmelt_genobj_PUTOBJDEST_STRING);
  
@@ -72255,7 +26412,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1121__CTYPE_CSTRING));
  /*inirout drout_1123__PUTOBJDEST_NULL*/
  /*_.VALROUT___V1249*/ curfptr[1248] = (void*)&cdat->drout_1123__PUTOBJDEST_NULL;
   cdat->drout_1123__PUTOBJDEST_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1123__PUTOBJDEST_NULL.routdescr, "PUTOBJDEST_NULL @warmelt-genobj.melt:2844",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1123__PUTOBJDEST_NULL.routdescr, "PUTOBJDEST_NULL @warmelt-genobj.melt:2846",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1123__PUTOBJDEST_NULL.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1123__PUTOBJDEST_NULL, meltrout_90_warmelt_genobj_PUTOBJDEST_NULL);
  
@@ -72280,7 +26437,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1125__DISCR_NULL_RECEIVER
  /*inirout drout_1127__PUTOBJDEST_OBJBLOCK*/
  /*_.VALROUT___V1253*/ curfptr[1252] = (void*)&cdat->drout_1127__PUTOBJDEST_OBJBLOCK;
   cdat->drout_1127__PUTOBJDEST_OBJBLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1127__PUTOBJDEST_OBJBLOCK.routdescr, "PUTOBJDEST_OBJBLOCK @warmelt-genobj.melt:2869",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1127__PUTOBJDEST_OBJBLOCK.routdescr, "PUTOBJDEST_OBJBLOCK @warmelt-genobj.melt:2871",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1127__PUTOBJDEST_OBJBLOCK.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1127__PUTOBJDEST_OBJBLOCK, meltrout_91_warmelt_genobj_PUTOBJDEST_OBJBLOCK);
  
@@ -72292,7 +26449,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1125__DISCR_NULL_RECEIVER
  /*inirout drout_1129__PUTOBJDEST_OBJMULTIBLOCK*/
  /*_.VALROUT___V1255*/ curfptr[1254] = (void*)&cdat->drout_1129__PUTOBJDEST_OBJMULTIBLOCK;
   cdat->drout_1129__PUTOBJDEST_OBJMULTIBLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1129__PUTOBJDEST_OBJMULTIBLOCK.routdescr, "PUTOBJDEST_OBJMULTIBLOCK @warmelt-genobj.melt:2897",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1129__PUTOBJDEST_OBJMULTIBLOCK.routdescr, "PUTOBJDEST_OBJMULTIBLOCK @warmelt-genobj.melt:2899",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1129__PUTOBJDEST_OBJMULTIBLOCK.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1129__PUTOBJDEST_OBJMULTIBLOCK, meltrout_92_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK);
  
@@ -72304,7 +26461,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1125__DISCR_NULL_RECEIVER
  /*inirout drout_1131__PUTOBJDEST_OBJLOOP*/
  /*_.VALROUT___V1257*/ curfptr[1256] = (void*)&cdat->drout_1131__PUTOBJDEST_OBJLOOP;
   cdat->drout_1131__PUTOBJDEST_OBJLOOP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1131__PUTOBJDEST_OBJLOOP.routdescr, "PUTOBJDEST_OBJLOOP @warmelt-genobj.melt:2912",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1131__PUTOBJDEST_OBJLOOP.routdescr, "PUTOBJDEST_OBJLOOP @warmelt-genobj.melt:2914",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1131__PUTOBJDEST_OBJLOOP.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1131__PUTOBJDEST_OBJLOOP, meltrout_93_warmelt_genobj_PUTOBJDEST_OBJLOOP);
  
@@ -72316,7 +26473,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1125__DISCR_NULL_RECEIVER
  /*inirout drout_1133__PUTOBJDEST_OBJEXIT*/
  /*_.VALROUT___V1259*/ curfptr[1258] = (void*)&cdat->drout_1133__PUTOBJDEST_OBJEXIT;
   cdat->drout_1133__PUTOBJDEST_OBJEXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1133__PUTOBJDEST_OBJEXIT.routdescr, "PUTOBJDEST_OBJEXIT @warmelt-genobj.melt:2936",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1133__PUTOBJDEST_OBJEXIT.routdescr, "PUTOBJDEST_OBJEXIT @warmelt-genobj.melt:2938",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1133__PUTOBJDEST_OBJEXIT.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1133__PUTOBJDEST_OBJEXIT, meltrout_94_warmelt_genobj_PUTOBJDEST_OBJEXIT);
  
@@ -72328,7 +26485,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1125__DISCR_NULL_RECEIVER
  /*inirout drout_1135__COMPILOBJ_NREP_IF*/
  /*_.VALROUT___V1261*/ curfptr[1260] = (void*)&cdat->drout_1135__COMPILOBJ_NREP_IF;
   cdat->drout_1135__COMPILOBJ_NREP_IF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1135__COMPILOBJ_NREP_IF.routdescr, "COMPILOBJ_NREP_IF @warmelt-genobj.melt:2946",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1135__COMPILOBJ_NREP_IF.routdescr, "COMPILOBJ_NREP_IF @warmelt-genobj.melt:2948",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1135__COMPILOBJ_NREP_IF.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1135__COMPILOBJ_NREP_IF, meltrout_95_warmelt_genobj_COMPILOBJ_NREP_IF);
  
@@ -72353,7 +26510,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1137__CLASS_NREP_IF));
  /*inirout drout_1139__COMPILOBJ_NREP_IFISA*/
  /*_.VALROUT___V1265*/ curfptr[1264] = (void*)&cdat->drout_1139__COMPILOBJ_NREP_IFISA;
   cdat->drout_1139__COMPILOBJ_NREP_IFISA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1139__COMPILOBJ_NREP_IFISA.routdescr, "COMPILOBJ_NREP_IFISA @warmelt-genobj.melt:2975",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1139__COMPILOBJ_NREP_IFISA.routdescr, "COMPILOBJ_NREP_IFISA @warmelt-genobj.melt:2977",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1139__COMPILOBJ_NREP_IFISA.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1139__COMPILOBJ_NREP_IFISA, meltrout_96_warmelt_genobj_COMPILOBJ_NREP_IFISA);
  
@@ -72378,7 +26535,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1141__CLASS_NREP_IFISA));
  /*inirout drout_1143__PUTOBJDEST_OBJCOND*/
  /*_.VALROUT___V1269*/ curfptr[1268] = (void*)&cdat->drout_1143__PUTOBJDEST_OBJCOND;
   cdat->drout_1143__PUTOBJDEST_OBJCOND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1143__PUTOBJDEST_OBJCOND.routdescr, "PUTOBJDEST_OBJCOND @warmelt-genobj.melt:3017",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1143__PUTOBJDEST_OBJCOND.routdescr, "PUTOBJDEST_OBJCOND @warmelt-genobj.melt:3019",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1143__PUTOBJDEST_OBJCOND.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1143__PUTOBJDEST_OBJCOND, meltrout_97_warmelt_genobj_PUTOBJDEST_OBJCOND);
  
@@ -72390,7 +26547,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1141__CLASS_NREP_IFISA));
  /*inirout drout_1145__COMPILOBJ_NREP_CPPIF*/
  /*_.VALROUT___V1271*/ curfptr[1270] = (void*)&cdat->drout_1145__COMPILOBJ_NREP_CPPIF;
   cdat->drout_1145__COMPILOBJ_NREP_CPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1145__COMPILOBJ_NREP_CPPIF.routdescr, "COMPILOBJ_NREP_CPPIF @warmelt-genobj.melt:3041",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1145__COMPILOBJ_NREP_CPPIF.routdescr, "COMPILOBJ_NREP_CPPIF @warmelt-genobj.melt:3043",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1145__COMPILOBJ_NREP_CPPIF.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1145__COMPILOBJ_NREP_CPPIF, meltrout_98_warmelt_genobj_COMPILOBJ_NREP_CPPIF);
  
@@ -72415,7 +26572,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1147__CLASS_NREP_CPPIF));
  /*inirout drout_1149__PUTOBJDEST_OBJCPPIF*/
  /*_.VALROUT___V1275*/ curfptr[1274] = (void*)&cdat->drout_1149__PUTOBJDEST_OBJCPPIF;
   cdat->drout_1149__PUTOBJDEST_OBJCPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1149__PUTOBJDEST_OBJCPPIF.routdescr, "PUTOBJDEST_OBJCPPIF @warmelt-genobj.melt:3069",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1149__PUTOBJDEST_OBJCPPIF.routdescr, "PUTOBJDEST_OBJCPPIF @warmelt-genobj.melt:3071",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1149__PUTOBJDEST_OBJCPPIF.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1149__PUTOBJDEST_OBJCPPIF, meltrout_99_warmelt_genobj_PUTOBJDEST_OBJCPPIF);
  
@@ -72427,7 +26584,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1147__CLASS_NREP_CPPIF));
  /*inirout drout_1151__COMPILOBJ_NREP_RETURN*/
  /*_.VALROUT___V1277*/ curfptr[1276] = (void*)&cdat->drout_1151__COMPILOBJ_NREP_RETURN;
   cdat->drout_1151__COMPILOBJ_NREP_RETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1151__COMPILOBJ_NREP_RETURN.routdescr, "COMPILOBJ_NREP_RETURN @warmelt-genobj.melt:3093",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1151__COMPILOBJ_NREP_RETURN.routdescr, "COMPILOBJ_NREP_RETURN @warmelt-genobj.melt:3095",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1151__COMPILOBJ_NREP_RETURN.nbval = 14;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1151__COMPILOBJ_NREP_RETURN, meltrout_100_warmelt_genobj_COMPILOBJ_NREP_RETURN);
  
@@ -72452,14 +26609,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1153__CLASS_NREP_RETURN))
  /*inirout drout_1155__LAMBDA_*/
  /*_.VALROUT___V1278*/ curfptr[1277] = (void*)&cdat->drout_1155__LAMBDA_;
   cdat->drout_1155__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1155__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3117",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1155__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3119",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1155__LAMBDA_.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1155__LAMBDA_, meltrout_101_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1156__LAMBDA_*/
  /*_.VALROUT___V1282*/ curfptr[1281] = (void*)&cdat->drout_1156__LAMBDA_;
   cdat->drout_1156__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1156__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3137",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1156__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3139",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1156__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1156__LAMBDA_, meltrout_102_warmelt_genobj_LAMBDA_);
  
@@ -72476,12 +26633,12 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1157__DISCRCLOSURE_OBJPRE
   cdat->dstr_1158__DISCRCLOSURE_OBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1158__DISCRCLOSURE_OBJ.val, "DISCRCLOSURE_OBJPREDEF", sizeof(cdat->dstr_1158__DISCRCLOSURE_OBJ.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:3139:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:3141:/ iniobj");
  /*iniobj dobj_1159__DISCRCLOSURE_OBJPREDEF*/
  if (!/*_.VALDATA___V1285*/ curfptr[1284]) /*_.VALDATA___V1285*/ curfptr[1284] = (void*)&cdat->dobj_1159__DISCRCLOSURE_OBJPREDEF;
   melt_assertmsg("iniobj checkdiscr dobj_1159__DISCRCLOSURE_OBJPREDEF", NULL != (void*)/*_.VALDATA___V189*/ curfptr[188]);
   cdat->dobj_1159__DISCRCLOSURE_OBJPREDEF.obj_class = (meltobject_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]);
-  cdat->dobj_1159__DISCRCLOSURE_OBJPREDEF.obj_hash = 20722414;
+  cdat->dobj_1159__DISCRCLOSURE_OBJPREDEF.obj_hash = 977240036;
   cdat->dobj_1159__DISCRCLOSURE_OBJPREDEF.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1159__DISCRCLOSURE_OBJPREDEF));
  
@@ -72501,7 +26658,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1160__DISCR_CLOSURE));
  /*inirout drout_1162__COMPILOBJ_NREP_LAMBDA*/
  /*_.VALROUT___V1288*/ curfptr[1287] = (void*)&cdat->drout_1162__COMPILOBJ_NREP_LAMBDA;
   cdat->drout_1162__COMPILOBJ_NREP_LAMBDA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1162__COMPILOBJ_NREP_LAMBDA.routdescr, "COMPILOBJ_NREP_LAMBDA @warmelt-genobj.melt:3145",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1162__COMPILOBJ_NREP_LAMBDA.routdescr, "COMPILOBJ_NREP_LAMBDA @warmelt-genobj.melt:3147",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1162__COMPILOBJ_NREP_LAMBDA.nbval = 17;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1162__COMPILOBJ_NREP_LAMBDA, meltrout_103_warmelt_genobj_COMPILOBJ_NREP_LAMBDA);
  
@@ -72526,14 +26683,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1164__CLASS_NREP_LAMBDA))
  /*inirout drout_1166__LAMBDA_*/
  /*_.VALROUT___V1289*/ curfptr[1288] = (void*)&cdat->drout_1166__LAMBDA_;
   cdat->drout_1166__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1166__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3183",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1166__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3185",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1166__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1166__LAMBDA_, meltrout_104_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1167__COMPILOBJ_NREP_MAKEINST*/
  /*_.VALROUT___V1293*/ curfptr[1292] = (void*)&cdat->drout_1167__COMPILOBJ_NREP_MAKEINST;
   cdat->drout_1167__COMPILOBJ_NREP_MAKEINST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1167__COMPILOBJ_NREP_MAKEINST.routdescr, "COMPILOBJ_NREP_MAKEINST @warmelt-genobj.melt:3200",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1167__COMPILOBJ_NREP_MAKEINST.routdescr, "COMPILOBJ_NREP_MAKEINST @warmelt-genobj.melt:3202",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1167__COMPILOBJ_NREP_MAKEINST.nbval = 19;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1167__COMPILOBJ_NREP_MAKEINST, meltrout_105_warmelt_genobj_COMPILOBJ_NREP_MAKEINST);
  
@@ -72584,14 +26741,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1173__INST));
  /*inirout drout_1175__LAMBDA_*/
  /*_.VALROUT___V1296*/ curfptr[1295] = (void*)&cdat->drout_1175__LAMBDA_;
   cdat->drout_1175__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1175__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3231",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1175__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3233",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1175__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1175__LAMBDA_, meltrout_106_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1176__COMPILOBJ_ROUTPROC*/
  /*_.VALROUT___V1302*/ curfptr[1301] = (void*)&cdat->drout_1176__COMPILOBJ_ROUTPROC;
   cdat->drout_1176__COMPILOBJ_ROUTPROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1176__COMPILOBJ_ROUTPROC.routdescr, "COMPILOBJ_ROUTPROC @warmelt-genobj.melt:3258",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1176__COMPILOBJ_ROUTPROC.routdescr, "COMPILOBJ_ROUTPROC @warmelt-genobj.melt:3260",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1176__COMPILOBJ_ROUTPROC.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1176__COMPILOBJ_ROUTPROC, meltrout_107_warmelt_genobj_COMPILOBJ_ROUTPROC);
  
@@ -72603,7 +26760,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1173__INST));
  /*inirout drout_1178__COMPILOBJ_PREDEF*/
  /*_.VALROUT___V1304*/ curfptr[1303] = (void*)&cdat->drout_1178__COMPILOBJ_PREDEF;
   cdat->drout_1178__COMPILOBJ_PREDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1178__COMPILOBJ_PREDEF.routdescr, "COMPILOBJ_PREDEF @warmelt-genobj.melt:3268",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1178__COMPILOBJ_PREDEF.routdescr, "COMPILOBJ_PREDEF @warmelt-genobj.melt:3270",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1178__COMPILOBJ_PREDEF.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1178__COMPILOBJ_PREDEF, meltrout_108_warmelt_genobj_COMPILOBJ_PREDEF);
  
@@ -72628,7 +26785,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1180__CLASS_NREP_PREDEF))
  /*inirout drout_1182__COMPIL_DATA_AND_SLOTS_FILL*/
  /*_.VALROUT___V1308*/ curfptr[1307] = (void*)&cdat->drout_1182__COMPIL_DATA_AND_SLOTS_FILL;
   cdat->drout_1182__COMPIL_DATA_AND_SLOTS_FILL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1182__COMPIL_DATA_AND_SLOTS_FILL.routdescr, "COMPIL_DATA_AND_SLOTS_FILL @warmelt-genobj.melt:3286",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1182__COMPIL_DATA_AND_SLOTS_FILL.routdescr, "COMPIL_DATA_AND_SLOTS_FILL @warmelt-genobj.melt:3288",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1182__COMPIL_DATA_AND_SLOTS_FILL.nbval = 32;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1182__COMPIL_DATA_AND_SLOTS_FILL, meltrout_109_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL);
  
@@ -72671,28 +26828,28 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1186__VALUEDATA_));
  /*inirout drout_1189__LAMBDA_*/
  /*_.VALROUT___V1314*/ curfptr[1313] = (void*)&cdat->drout_1189__LAMBDA_;
   cdat->drout_1189__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1189__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3361",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1189__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3363",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1189__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1189__LAMBDA_, meltrout_110_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1190__LAMBDA_*/
  /*_.VALROUT___V1315*/ curfptr[1314] = (void*)&cdat->drout_1190__LAMBDA_;
   cdat->drout_1190__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1190__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3380",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1190__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3382",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1190__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1190__LAMBDA_, meltrout_111_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1191__LAMBDA_*/
  /*_.VALROUT___V1316*/ curfptr[1315] = (void*)&cdat->drout_1191__LAMBDA_;
   cdat->drout_1191__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1191__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3409",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1191__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3411",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1191__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1191__LAMBDA_, meltrout_112_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL*/
  /*_.VALROUT___V1318*/ curfptr[1317] = (void*)&cdat->drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL;
   cdat->drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.routdescr, "DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL @warmelt-genobj.melt:3431",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.routdescr, "DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL @warmelt-genobj.melt:3433",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL, meltrout_113_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL);
  
@@ -72704,14 +26861,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1186__VALUEDATA_));
  /*inirout drout_1194__LAMBDA_*/
  /*_.VALROUT___V1319*/ curfptr[1318] = (void*)&cdat->drout_1194__LAMBDA_;
   cdat->drout_1194__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1194__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3436",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1194__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3438",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1194__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1194__LAMBDA_, meltrout_114_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1195__COMPILOBJ_DATASYMBOL*/
  /*_.VALROUT___V1321*/ curfptr[1320] = (void*)&cdat->drout_1195__COMPILOBJ_DATASYMBOL;
   cdat->drout_1195__COMPILOBJ_DATASYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1195__COMPILOBJ_DATASYMBOL.routdescr, "COMPILOBJ_DATASYMBOL @warmelt-genobj.melt:3439",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1195__COMPILOBJ_DATASYMBOL.routdescr, "COMPILOBJ_DATASYMBOL @warmelt-genobj.melt:3441",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1195__COMPILOBJ_DATASYMBOL.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1195__COMPILOBJ_DATASYMBOL, meltrout_115_warmelt_genobj_COMPILOBJ_DATASYMBOL);
  
@@ -72723,7 +26880,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1186__VALUEDATA_));
  /*inirout drout_1197__COMPILOBJ_DATAINSTANCE*/
  /*_.VALROUT___V1323*/ curfptr[1322] = (void*)&cdat->drout_1197__COMPILOBJ_DATAINSTANCE;
   cdat->drout_1197__COMPILOBJ_DATAINSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1197__COMPILOBJ_DATAINSTANCE.routdescr, "COMPILOBJ_DATAINSTANCE @warmelt-genobj.melt:3490",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1197__COMPILOBJ_DATAINSTANCE.routdescr, "COMPILOBJ_DATAINSTANCE @warmelt-genobj.melt:3492",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1197__COMPILOBJ_DATAINSTANCE.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1197__COMPILOBJ_DATAINSTANCE, meltrout_116_warmelt_genobj_COMPILOBJ_DATAINSTANCE);
  
@@ -72735,7 +26892,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1186__VALUEDATA_));
  /*inirout drout_1199__COMPILOBJ_DATATUPLE*/
  /*_.VALROUT___V1325*/ curfptr[1324] = (void*)&cdat->drout_1199__COMPILOBJ_DATATUPLE;
   cdat->drout_1199__COMPILOBJ_DATATUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1199__COMPILOBJ_DATATUPLE.routdescr, "COMPILOBJ_DATATUPLE @warmelt-genobj.melt:3568",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1199__COMPILOBJ_DATATUPLE.routdescr, "COMPILOBJ_DATATUPLE @warmelt-genobj.melt:3570",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1199__COMPILOBJ_DATATUPLE.nbval = 20;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1199__COMPILOBJ_DATATUPLE, meltrout_117_warmelt_genobj_COMPILOBJ_DATATUPLE);
  
@@ -72760,7 +26917,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1201__CLASS_NREP_DATATUPL
  /*inirout drout_1203__LAMBDA_*/
  /*_.VALROUT___V1326*/ curfptr[1325] = (void*)&cdat->drout_1203__LAMBDA_;
   cdat->drout_1203__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1203__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3586",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1203__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3588",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1203__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1203__LAMBDA_, meltrout_118_warmelt_genobj_LAMBDA_);
  
@@ -72793,14 +26950,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1206__INITUP_));
  /*inirout drout_1208__LAMBDA_*/
  /*_.VALROUT___V1331*/ curfptr[1330] = (void*)&cdat->drout_1208__LAMBDA_;
   cdat->drout_1208__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1208__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3614",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1208__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3616",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1208__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1208__LAMBDA_, meltrout_119_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1209__COMPILOBJ_DATASTRING*/
  /*_.VALROUT___V1335*/ curfptr[1334] = (void*)&cdat->drout_1209__COMPILOBJ_DATASTRING;
   cdat->drout_1209__COMPILOBJ_DATASTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1209__COMPILOBJ_DATASTRING.routdescr, "COMPILOBJ_DATASTRING @warmelt-genobj.melt:3639",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1209__COMPILOBJ_DATASTRING.routdescr, "COMPILOBJ_DATASTRING @warmelt-genobj.melt:3641",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1209__COMPILOBJ_DATASTRING.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1209__COMPILOBJ_DATASTRING, meltrout_120_warmelt_genobj_COMPILOBJ_DATASTRING);
  
@@ -72838,7 +26995,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1213__VALSTR_));
  /*inirout drout_1215__COMPILOBJ_DATABOXEDINTEGER*/
  /*_.VALROUT___V1341*/ curfptr[1340] = (void*)&cdat->drout_1215__COMPILOBJ_DATABOXEDINTEGER;
   cdat->drout_1215__COMPILOBJ_DATABOXEDINTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1215__COMPILOBJ_DATABOXEDINTEGER.routdescr, "COMPILOBJ_DATABOXEDINTEGER @warmelt-genobj.melt:3687",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1215__COMPILOBJ_DATABOXEDINTEGER.routdescr, "COMPILOBJ_DATABOXEDINTEGER @warmelt-genobj.melt:3689",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1215__COMPILOBJ_DATABOXEDINTEGER.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1215__COMPILOBJ_DATABOXEDINTEGER, meltrout_121_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER);
  
@@ -72876,7 +27033,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1219__VALBXINT_));
  /*inirout drout_1221__COMPILOBJ_DATACLOSURE*/
  /*_.VALROUT___V1347*/ curfptr[1346] = (void*)&cdat->drout_1221__COMPILOBJ_DATACLOSURE;
   cdat->drout_1221__COMPILOBJ_DATACLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1221__COMPILOBJ_DATACLOSURE.routdescr, "COMPILOBJ_DATACLOSURE @warmelt-genobj.melt:3735",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1221__COMPILOBJ_DATACLOSURE.routdescr, "COMPILOBJ_DATACLOSURE @warmelt-genobj.melt:3737",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1221__COMPILOBJ_DATACLOSURE.nbval = 23;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1221__COMPILOBJ_DATACLOSURE, meltrout_122_warmelt_genobj_COMPILOBJ_DATACLOSURE);
  
@@ -72940,14 +27097,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1229__CLASS_NREP_DATAROUT
  /*inirout drout_1231__LAMBDA_*/
  /*_.VALROUT___V1352*/ curfptr[1351] = (void*)&cdat->drout_1231__LAMBDA_;
   cdat->drout_1231__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1231__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3802",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1231__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3804",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1231__LAMBDA_.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1231__LAMBDA_, meltrout_123_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1232__COMPILOBJ_DATAROUTINE*/
  /*_.VALROUT___V1358*/ curfptr[1357] = (void*)&cdat->drout_1232__COMPILOBJ_DATAROUTINE;
   cdat->drout_1232__COMPILOBJ_DATAROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1232__COMPILOBJ_DATAROUTINE.routdescr, "COMPILOBJ_DATAROUTINE @warmelt-genobj.melt:3826",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1232__COMPILOBJ_DATAROUTINE.routdescr, "COMPILOBJ_DATAROUTINE @warmelt-genobj.melt:3828",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1232__COMPILOBJ_DATAROUTINE.nbval = 27;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1232__COMPILOBJ_DATAROUTINE, meltrout_124_warmelt_genobj_COMPILOBJ_DATAROUTINE);
  
@@ -72985,7 +27142,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1236__IROUTVAL_));
  /*inirout drout_1238__LAMBDA_*/
  /*_.VALROUT___V1363*/ curfptr[1362] = (void*)&cdat->drout_1238__LAMBDA_;
   cdat->drout_1238__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1238__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3888",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1238__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:3890",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1238__LAMBDA_.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1238__LAMBDA_, meltrout_125_warmelt_genobj_LAMBDA_);
  
@@ -73005,7 +27162,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1239__CLASS_NREP_QUASIDAT
  /*inirout drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
  /*_.VALROUT___V1367*/ curfptr[1366] = (void*)&cdat->drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
   cdat->drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:3953",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:3955",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_126_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER);
  
@@ -73030,7 +27187,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1243__CLASS_NREP_QUASIDAT
  /*inirout drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/
  /*_.VALROUT___V1371*/ curfptr[1370] = (void*)&cdat->drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT;
   cdat->drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.routdescr, "COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT @warmelt-genobj.melt:3965",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.routdescr, "COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT @warmelt-genobj.melt:3967",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT, meltrout_127_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT);
  
@@ -73055,7 +27212,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1247__CLASS_NREP_QUASIDAT
  /*inirout drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED*/
  /*_.VALROUT___V1375*/ curfptr[1374] = (void*)&cdat->drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED;
   cdat->drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED.routdescr, "COMPILOBJ_NREP_STORE_PREDEFINED @warmelt-genobj.melt:3977",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED.routdescr, "COMPILOBJ_NREP_STORE_PREDEFINED @warmelt-genobj.melt:3979",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED, meltrout_128_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED);
  
@@ -73080,7 +27237,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1251__CLASS_NREP_STORE_PR
  /*inirout drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
  /*_.VALROUT___V1379*/ curfptr[1378] = (void*)&cdat->drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
   cdat->drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:4032",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-genobj.melt:4034",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 23;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_129_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER);
  
@@ -73105,14 +27262,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1255__CLASS_NREP_UPDATE_C
  /*inirout drout_1257__LAMBDA_*/
  /*_.VALROUT___V1380*/ curfptr[1379] = (void*)&cdat->drout_1257__LAMBDA_;
   cdat->drout_1257__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1257__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4064",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1257__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4066",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1257__LAMBDA_.nbval = 14;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1257__LAMBDA_, meltrout_130_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1258__LAMBDA_*/
  /*_.VALROUT___V1381*/ curfptr[1380] = (void*)&cdat->drout_1258__LAMBDA_;
   cdat->drout_1258__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1258__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4081",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1258__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4083",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1258__LAMBDA_.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1258__LAMBDA_, meltrout_131_warmelt_genobj_LAMBDA_);
  
@@ -73134,12 +27291,12 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1260__COMPILE_MATCHER));
   cdat->dstr_1261__COMPILE_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1261__COMPILE_MATCHER.val, "COMPILE_MATCHER", sizeof(cdat->dstr_1261__COMPILE_MATCHER.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4136:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4138:/ iniobj");
  /*iniobj dobj_1262__COMPILE_MATCHER*/
  if (!/*_.VALDATA___V1388*/ curfptr[1387]) /*_.VALDATA___V1388*/ curfptr[1387] = (void*)&cdat->dobj_1262__COMPILE_MATCHER;
   melt_assertmsg("iniobj checkdiscr dobj_1262__COMPILE_MATCHER", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_1262__COMPILE_MATCHER.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_1262__COMPILE_MATCHER.obj_hash = 352302585;
+  cdat->dobj_1262__COMPILE_MATCHER.obj_hash = 926610111;
   cdat->dobj_1262__COMPILE_MATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1262__COMPILE_MATCHER));
  
@@ -73174,13 +27331,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1266__CLASS_PROPED));
   cdat->dstr_1267__CLASS_PROPED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1267__CLASS_PROPED.val, "CLASS_PROPED", sizeof(cdat->dstr_1267__CLASS_PROPED.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1268__CLASS_MATCHCOMPILCONTEXT*/
  if (!/*_.VALDATA___V1394*/ curfptr[1393]) /*_.VALDATA___V1394*/ curfptr[1393] = (void*)&cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT;
   melt_assertmsg("iniobj checkdiscr dobj_1268__CLASS_MATCHCOMPILCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT.obj_hash = 1042933823;
+  cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT.obj_hash = 84508669;
   cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1268__CLASS_MATCHCOMPILCONTEXT));
  
@@ -73210,13 +27367,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1272__MCX_LOC));
   cdat->dstr_1273__MCX_LOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1273__MCX_LOC.val, "MCX_LOC", sizeof(cdat->dstr_1273__MCX_LOC.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1274__MCX_LOC*/
  if (!/*_.VALDATA___V1397*/ curfptr[1396]) /*_.VALDATA___V1397*/ curfptr[1396] = (void*)&cdat->dobj_1274__MCX_LOC;
   melt_assertmsg("iniobj checkdiscr dobj_1274__MCX_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1274__MCX_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1274__MCX_LOC.obj_num = 1;
-  cdat->dobj_1274__MCX_LOC.obj_hash = 490502564;
+  cdat->dobj_1274__MCX_LOC.obj_hash = 706683538;
   cdat->dobj_1274__MCX_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1274__MCX_LOC));
  
@@ -73238,13 +27395,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1276__MCX_NORMTESTER));
   cdat->dstr_1277__MCX_NORMTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1277__MCX_NORMTESTER.val, "MCX_NORMTESTER", sizeof(cdat->dstr_1277__MCX_NORMTESTER.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1278__MCX_NORMTESTER*/
  if (!/*_.VALDATA___V1399*/ curfptr[1398]) /*_.VALDATA___V1399*/ curfptr[1398] = (void*)&cdat->dobj_1278__MCX_NORMTESTER;
   melt_assertmsg("iniobj checkdiscr dobj_1278__MCX_NORMTESTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1278__MCX_NORMTESTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1278__MCX_NORMTESTER.obj_num = 2;
-  cdat->dobj_1278__MCX_NORMTESTER.obj_hash = 948386145;
+  cdat->dobj_1278__MCX_NORMTESTER.obj_hash = 223858431;
   cdat->dobj_1278__MCX_NORMTESTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1278__MCX_NORMTESTER));
  
@@ -73266,13 +27423,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1280__MCX_GOTOTHEN));
   cdat->dstr_1281__MCX_GOTOTHEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1281__MCX_GOTOTHEN.val, "MCX_GOTOTHEN", sizeof(cdat->dstr_1281__MCX_GOTOTHEN.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1282__MCX_GOTOTHEN*/
  if (!/*_.VALDATA___V1401*/ curfptr[1400]) /*_.VALDATA___V1401*/ curfptr[1400] = (void*)&cdat->dobj_1282__MCX_GOTOTHEN;
   melt_assertmsg("iniobj checkdiscr dobj_1282__MCX_GOTOTHEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1282__MCX_GOTOTHEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1282__MCX_GOTOTHEN.obj_num = 3;
-  cdat->dobj_1282__MCX_GOTOTHEN.obj_hash = 742803083;
+  cdat->dobj_1282__MCX_GOTOTHEN.obj_hash = 250335321;
   cdat->dobj_1282__MCX_GOTOTHEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1282__MCX_GOTOTHEN));
  
@@ -73294,13 +27451,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1284__MCX_GOTOELSE));
   cdat->dstr_1285__MCX_GOTOELSE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1285__MCX_GOTOELSE.val, "MCX_GOTOELSE", sizeof(cdat->dstr_1285__MCX_GOTOELSE.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1286__MCX_GOTOELSE*/
  if (!/*_.VALDATA___V1403*/ curfptr[1402]) /*_.VALDATA___V1403*/ curfptr[1402] = (void*)&cdat->dobj_1286__MCX_GOTOELSE;
   melt_assertmsg("iniobj checkdiscr dobj_1286__MCX_GOTOELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1286__MCX_GOTOELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1286__MCX_GOTOELSE.obj_num = 4;
-  cdat->dobj_1286__MCX_GOTOELSE.obj_hash = 1055601408;
+  cdat->dobj_1286__MCX_GOTOELSE.obj_hash = 829604990;
   cdat->dobj_1286__MCX_GOTOELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1286__MCX_GOTOELSE));
  
@@ -73322,13 +27479,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1288__MCX_OLIST));
   cdat->dstr_1289__MCX_OLIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1289__MCX_OLIST.val, "MCX_OLIST", sizeof(cdat->dstr_1289__MCX_OLIST.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1290__MCX_OLIST*/
  if (!/*_.VALDATA___V1405*/ curfptr[1404]) /*_.VALDATA___V1405*/ curfptr[1404] = (void*)&cdat->dobj_1290__MCX_OLIST;
   melt_assertmsg("iniobj checkdiscr dobj_1290__MCX_OLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1290__MCX_OLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1290__MCX_OLIST.obj_num = 5;
-  cdat->dobj_1290__MCX_OLIST.obj_hash = 228158560;
+  cdat->dobj_1290__MCX_OLIST.obj_hash = 975373582;
   cdat->dobj_1290__MCX_OLIST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1290__MCX_OLIST));
  
@@ -73350,13 +27507,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1292__MCX_SUFFIX));
   cdat->dstr_1293__MCX_SUFFIX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1293__MCX_SUFFIX.val, "MCX_SUFFIX", sizeof(cdat->dstr_1293__MCX_SUFFIX.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1294__MCX_SUFFIX*/
  if (!/*_.VALDATA___V1407*/ curfptr[1406]) /*_.VALDATA___V1407*/ curfptr[1406] = (void*)&cdat->dobj_1294__MCX_SUFFIX;
   melt_assertmsg("iniobj checkdiscr dobj_1294__MCX_SUFFIX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1294__MCX_SUFFIX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1294__MCX_SUFFIX.obj_num = 6;
-  cdat->dobj_1294__MCX_SUFFIX.obj_hash = 649899088;
+  cdat->dobj_1294__MCX_SUFFIX.obj_hash = 610473902;
   cdat->dobj_1294__MCX_SUFFIX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1294__MCX_SUFFIX));
  
@@ -73378,13 +27535,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1296__MCX_STATECOUNTER));
   cdat->dstr_1297__MCX_STATECOUNTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1297__MCX_STATECOUNTER.val, "MCX_STATECOUNTER", sizeof(cdat->dstr_1297__MCX_STATECOUNTER.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ iniobj");
  /*iniobj dobj_1298__MCX_STATECOUNTER*/
  if (!/*_.VALDATA___V1409*/ curfptr[1408]) /*_.VALDATA___V1409*/ curfptr[1408] = (void*)&cdat->dobj_1298__MCX_STATECOUNTER;
   melt_assertmsg("iniobj checkdiscr dobj_1298__MCX_STATECOUNTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1298__MCX_STATECOUNTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1298__MCX_STATECOUNTER.obj_num = 7;
-  cdat->dobj_1298__MCX_STATECOUNTER.obj_hash = 897971691;
+  cdat->dobj_1298__MCX_STATECOUNTER.obj_hash = 439987065;
   cdat->dobj_1298__MCX_STATECOUNTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1298__MCX_STATECOUNTER));
  
@@ -73406,12 +27563,12 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1300__COMPILE_TESTER));
   cdat->dstr_1301__COMPILE_TESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1301__COMPILE_TESTER.val, "COMPILE_TESTER", sizeof(cdat->dstr_1301__COMPILE_TESTER.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4158:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4160:/ iniobj");
  /*iniobj dobj_1302__COMPILE_TESTER*/
  if (!/*_.VALDATA___V1428*/ curfptr[1427]) /*_.VALDATA___V1428*/ curfptr[1427] = (void*)&cdat->dobj_1302__COMPILE_TESTER;
   melt_assertmsg("iniobj checkdiscr dobj_1302__COMPILE_TESTER", NULL != (void*)/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
   cdat->dobj_1302__COMPILE_TESTER.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V9*/ curfptr[8]);
-  cdat->dobj_1302__COMPILE_TESTER.obj_hash = 806659875;
+  cdat->dobj_1302__COMPILE_TESTER.obj_hash = 970654385;
   cdat->dobj_1302__COMPILE_TESTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1302__COMPILE_TESTER));
  
@@ -73433,13 +27590,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1304__CLASS_TESTERCOMPILC
   cdat->dstr_1305__CLASS_TESTERCOMP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1305__CLASS_TESTERCOMP.val, "CLASS_TESTERCOMPILCONTEXT", sizeof(cdat->dstr_1305__CLASS_TESTERCOMP.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ iniobj");
  /*iniobj dobj_1306__CLASS_TESTERCOMPILCONTEXT*/
  if (!/*_.VALDATA___V1432*/ curfptr[1431]) /*_.VALDATA___V1432*/ curfptr[1431] = (void*)&cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT;
   melt_assertmsg("iniobj checkdiscr dobj_1306__CLASS_TESTERCOMPILCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT.obj_hash = 322621515;
+  cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT.obj_hash = 135337489;
   cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1306__CLASS_TESTERCOMPILCONTEXT));
  
@@ -73469,13 +27626,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1310__TCX_NRMATCH));
   cdat->dstr_1311__TCX_NRMATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1311__TCX_NRMATCH.val, "TCX_NRMATCH", sizeof(cdat->dstr_1311__TCX_NRMATCH.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ iniobj");
  /*iniobj dobj_1312__TCX_NRMATCH*/
  if (!/*_.VALDATA___V1435*/ curfptr[1434]) /*_.VALDATA___V1435*/ curfptr[1434] = (void*)&cdat->dobj_1312__TCX_NRMATCH;
   melt_assertmsg("iniobj checkdiscr dobj_1312__TCX_NRMATCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1312__TCX_NRMATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1312__TCX_NRMATCH.obj_num = 1;
-  cdat->dobj_1312__TCX_NRMATCH.obj_hash = 386375922;
+  cdat->dobj_1312__TCX_NRMATCH.obj_hash = 65272616;
   cdat->dobj_1312__TCX_NRMATCH.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1312__TCX_NRMATCH));
  
@@ -73497,13 +27654,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1314__TCX_FREELIST));
   cdat->dstr_1315__TCX_FREELIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1315__TCX_FREELIST.val, "TCX_FREELIST", sizeof(cdat->dstr_1315__TCX_FREELIST.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ iniobj");
  /*iniobj dobj_1316__TCX_FREELIST*/
  if (!/*_.VALDATA___V1437*/ curfptr[1436]) /*_.VALDATA___V1437*/ curfptr[1436] = (void*)&cdat->dobj_1316__TCX_FREELIST;
   melt_assertmsg("iniobj checkdiscr dobj_1316__TCX_FREELIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1316__TCX_FREELIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1316__TCX_FREELIST.obj_num = 2;
-  cdat->dobj_1316__TCX_FREELIST.obj_hash = 622803400;
+  cdat->dobj_1316__TCX_FREELIST.obj_hash = 860247534;
   cdat->dobj_1316__TCX_FREELIST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1316__TCX_FREELIST));
  
@@ -73525,13 +27682,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1318__TCX_NEXTEST));
   cdat->dstr_1319__TCX_NEXTEST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_1319__TCX_NEXTEST.val, "TCX_NEXTEST", sizeof(cdat->dstr_1319__TCX_NEXTEST.val)-1);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ iniobj");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ iniobj");
  /*iniobj dobj_1320__TCX_NEXTEST*/
  if (!/*_.VALDATA___V1439*/ curfptr[1438]) /*_.VALDATA___V1439*/ curfptr[1438] = (void*)&cdat->dobj_1320__TCX_NEXTEST;
   melt_assertmsg("iniobj checkdiscr dobj_1320__TCX_NEXTEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1320__TCX_NEXTEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_1320__TCX_NEXTEST.obj_num = 3;
-  cdat->dobj_1320__TCX_NEXTEST.obj_hash = 936759546;
+  cdat->dobj_1320__TCX_NEXTEST.obj_hash = 322558096;
   cdat->dobj_1320__TCX_NEXTEST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1320__TCX_NEXTEST));
  
@@ -73543,7 +27700,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1320__TCX_NEXTEST));
  /*inirout drout_1322__COMPILTST_ANYTESTER*/
  /*_.VALROUT___V1448*/ curfptr[1447] = (void*)&cdat->drout_1322__COMPILTST_ANYTESTER;
   cdat->drout_1322__COMPILTST_ANYTESTER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1322__COMPILTST_ANYTESTER.routdescr, "COMPILTST_ANYTESTER @warmelt-genobj.melt:4171",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1322__COMPILTST_ANYTESTER.routdescr, "COMPILTST_ANYTESTER @warmelt-genobj.melt:4173",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1322__COMPILTST_ANYTESTER.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1322__COMPILTST_ANYTESTER, meltrout_132_warmelt_genobj_COMPILTST_ANYTESTER);
  
@@ -73568,7 +27725,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1324__CLASS_NORMTESTER_AN
  /*inirout drout_1326__COMPILOBJ_NREP_MATCH*/
  /*_.VALROUT___V1452*/ curfptr[1451] = (void*)&cdat->drout_1326__COMPILOBJ_NREP_MATCH;
   cdat->drout_1326__COMPILOBJ_NREP_MATCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1326__COMPILOBJ_NREP_MATCH.routdescr, "COMPILOBJ_NREP_MATCH @warmelt-genobj.melt:4185",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1326__COMPILOBJ_NREP_MATCH.routdescr, "COMPILOBJ_NREP_MATCH @warmelt-genobj.melt:4187",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1326__COMPILOBJ_NREP_MATCH.nbval = 27;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1326__COMPILOBJ_NREP_MATCH, meltrout_133_warmelt_genobj_COMPILOBJ_NREP_MATCH);
  
@@ -73645,7 +27802,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1336__MAPOBJECT_EVERY));
  /*inirout drout_1338__LAMBDA_*/
  /*_.VALROUT___V1455*/ curfptr[1454] = (void*)&cdat->drout_1338__LAMBDA_;
   cdat->drout_1338__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1338__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4324",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1338__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4326",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1338__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1338__LAMBDA_, meltrout_134_warmelt_genobj_LAMBDA_);
  
@@ -73665,7 +27822,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1341__NORMTESTER_LABELINSTR*/
  /*_.VALROUT___V1454*/ curfptr[1453] = (void*)&cdat->drout_1341__NORMTESTER_LABELINSTR;
   cdat->drout_1341__NORMTESTER_LABELINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1341__NORMTESTER_LABELINSTR.routdescr, "NORMTESTER_LABELINSTR @warmelt-genobj.melt:4389",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1341__NORMTESTER_LABELINSTR.routdescr, "NORMTESTER_LABELINSTR @warmelt-genobj.melt:4391",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1341__NORMTESTER_LABELINSTR.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1341__NORMTESTER_LABELINSTR, meltrout_135_warmelt_genobj_NORMTESTER_LABELINSTR);
  
@@ -73677,7 +27834,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1343__NORMTESTER_GOTOINSTR*/
  /*_.VALROUT___V1469*/ curfptr[1468] = (void*)&cdat->drout_1343__NORMTESTER_GOTOINSTR;
   cdat->drout_1343__NORMTESTER_GOTOINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1343__NORMTESTER_GOTOINSTR.routdescr, "NORMTESTER_GOTOINSTR @warmelt-genobj.melt:4421",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1343__NORMTESTER_GOTOINSTR.routdescr, "NORMTESTER_GOTOINSTR @warmelt-genobj.melt:4423",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1343__NORMTESTER_GOTOINSTR.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1343__NORMTESTER_GOTOINSTR, meltrout_136_warmelt_genobj_NORMTESTER_GOTOINSTR);
  
@@ -73689,7 +27846,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1345__ENDMATCH_GOTOINSTR*/
  /*_.VALROUT___V1471*/ curfptr[1470] = (void*)&cdat->drout_1345__ENDMATCH_GOTOINSTR;
   cdat->drout_1345__ENDMATCH_GOTOINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1345__ENDMATCH_GOTOINSTR.routdescr, "ENDMATCH_GOTOINSTR @warmelt-genobj.melt:4454",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1345__ENDMATCH_GOTOINSTR.routdescr, "ENDMATCH_GOTOINSTR @warmelt-genobj.melt:4456",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1345__ENDMATCH_GOTOINSTR.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1345__ENDMATCH_GOTOINSTR, meltrout_137_warmelt_genobj_ENDMATCH_GOTOINSTR);
  
@@ -73701,7 +27858,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1347__TESTMATCH_GOTOINSTR*/
  /*_.VALROUT___V1473*/ curfptr[1472] = (void*)&cdat->drout_1347__TESTMATCH_GOTOINSTR;
   cdat->drout_1347__TESTMATCH_GOTOINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1347__TESTMATCH_GOTOINSTR.routdescr, "TESTMATCH_GOTOINSTR @warmelt-genobj.melt:4478",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1347__TESTMATCH_GOTOINSTR.routdescr, "TESTMATCH_GOTOINSTR @warmelt-genobj.melt:4480",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1347__TESTMATCH_GOTOINSTR.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1347__TESTMATCH_GOTOINSTR, meltrout_138_warmelt_genobj_TESTMATCH_GOTOINSTR);
  
@@ -73713,7 +27870,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1349__NORMTESTER_FREE_OBJLOC_LIST*/
  /*_.VALROUT___V1475*/ curfptr[1474] = (void*)&cdat->drout_1349__NORMTESTER_FREE_OBJLOC_LIST;
   cdat->drout_1349__NORMTESTER_FREE_OBJLOC_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1349__NORMTESTER_FREE_OBJLOC_LIST.routdescr, "NORMTESTER_FREE_OBJLOC_LIST @warmelt-genobj.melt:4504",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1349__NORMTESTER_FREE_OBJLOC_LIST.routdescr, "NORMTESTER_FREE_OBJLOC_LIST @warmelt-genobj.melt:4506",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1349__NORMTESTER_FREE_OBJLOC_LIST.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1349__NORMTESTER_FREE_OBJLOC_LIST, meltrout_139_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST);
  
@@ -73725,14 +27882,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1351__LAMBDA_*/
  /*_.VALROUT___V1476*/ curfptr[1475] = (void*)&cdat->drout_1351__LAMBDA_;
   cdat->drout_1351__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1351__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4517",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1351__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4519",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1351__LAMBDA_.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1351__LAMBDA_, meltrout_140_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1352__COMPILTST_NORMTESTER_ANY*/
  /*_.VALROUT___V1478*/ curfptr[1477] = (void*)&cdat->drout_1352__COMPILTST_NORMTESTER_ANY;
   cdat->drout_1352__COMPILTST_NORMTESTER_ANY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1352__COMPILTST_NORMTESTER_ANY.routdescr, "COMPILTST_NORMTESTER_ANY @warmelt-genobj.melt:4535",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1352__COMPILTST_NORMTESTER_ANY.routdescr, "COMPILTST_NORMTESTER_ANY @warmelt-genobj.melt:4537",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1352__COMPILTST_NORMTESTER_ANY.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1352__COMPILTST_NORMTESTER_ANY, meltrout_141_warmelt_genobj_COMPILTST_NORMTESTER_ANY);
  
@@ -73744,7 +27901,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__LIST_FIND));
  /*inirout drout_1354__COMPILTST_NORMTESTER_MATCHER*/
  /*_.VALROUT___V1480*/ curfptr[1479] = (void*)&cdat->drout_1354__COMPILTST_NORMTESTER_MATCHER;
   cdat->drout_1354__COMPILTST_NORMTESTER_MATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1354__COMPILTST_NORMTESTER_MATCHER.routdescr, "COMPILTST_NORMTESTER_MATCHER @warmelt-genobj.melt:4545",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1354__COMPILTST_NORMTESTER_MATCHER.routdescr, "COMPILTST_NORMTESTER_MATCHER @warmelt-genobj.melt:4547",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1354__COMPILTST_NORMTESTER_MATCHER.nbval = 14;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1354__COMPILTST_NORMTESTER_MATCHER, meltrout_142_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER);
  
@@ -73769,7 +27926,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1356__CLASS_NORMTESTER_MA
  /*inirout drout_1358__COMPILTST_NORMTESTER_INSTANCE*/
  /*_.VALROUT___V1484*/ curfptr[1483] = (void*)&cdat->drout_1358__COMPILTST_NORMTESTER_INSTANCE;
   cdat->drout_1358__COMPILTST_NORMTESTER_INSTANCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1358__COMPILTST_NORMTESTER_INSTANCE.routdescr, "COMPILTST_NORMTESTER_INSTANCE @warmelt-genobj.melt:4621",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1358__COMPILTST_NORMTESTER_INSTANCE.routdescr, "COMPILTST_NORMTESTER_INSTANCE @warmelt-genobj.melt:4623",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1358__COMPILTST_NORMTESTER_INSTANCE.nbval = 20;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1358__COMPILTST_NORMTESTER_INSTANCE, meltrout_143_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE);
  
@@ -73794,7 +27951,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1360__CLASS_NORMTESTER_IN
  /*inirout drout_1362__COMPILTST_NORMTESTER_SAME*/
  /*_.VALROUT___V1488*/ curfptr[1487] = (void*)&cdat->drout_1362__COMPILTST_NORMTESTER_SAME;
   cdat->drout_1362__COMPILTST_NORMTESTER_SAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1362__COMPILTST_NORMTESTER_SAME.routdescr, "COMPILTST_NORMTESTER_SAME @warmelt-genobj.melt:4727",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1362__COMPILTST_NORMTESTER_SAME.routdescr, "COMPILTST_NORMTESTER_SAME @warmelt-genobj.melt:4729",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1362__COMPILTST_NORMTESTER_SAME.nbval = 16;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1362__COMPILTST_NORMTESTER_SAME, meltrout_144_warmelt_genobj_COMPILTST_NORMTESTER_SAME);
  
@@ -73819,7 +27976,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1364__CLASS_NORMTESTER_SA
  /*inirout drout_1366__COMPILTST_NORMTESTER_SUCCESS*/
  /*_.VALROUT___V1492*/ curfptr[1491] = (void*)&cdat->drout_1366__COMPILTST_NORMTESTER_SUCCESS;
   cdat->drout_1366__COMPILTST_NORMTESTER_SUCCESS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1366__COMPILTST_NORMTESTER_SUCCESS.routdescr, "COMPILTST_NORMTESTER_SUCCESS @warmelt-genobj.melt:4804",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1366__COMPILTST_NORMTESTER_SUCCESS.routdescr, "COMPILTST_NORMTESTER_SUCCESS @warmelt-genobj.melt:4806",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1366__COMPILTST_NORMTESTER_SUCCESS.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1366__COMPILTST_NORMTESTER_SUCCESS, meltrout_145_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS);
  
@@ -73844,7 +28001,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1368__LIST2));
  /*inirout drout_1370__COMPILTST_NORMTESTER_DISJUNCTION*/
  /*_.VALROUT___V1496*/ curfptr[1495] = (void*)&cdat->drout_1370__COMPILTST_NORMTESTER_DISJUNCTION;
   cdat->drout_1370__COMPILTST_NORMTESTER_DISJUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1370__COMPILTST_NORMTESTER_DISJUNCTION.routdescr, "COMPILTST_NORMTESTER_DISJUNCTION @warmelt-genobj.melt:4842",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1370__COMPILTST_NORMTESTER_DISJUNCTION.routdescr, "COMPILTST_NORMTESTER_DISJUNCTION @warmelt-genobj.melt:4844",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1370__COMPILTST_NORMTESTER_DISJUNCTION.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1370__COMPILTST_NORMTESTER_DISJUNCTION, meltrout_146_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION);
  
@@ -73869,7 +28026,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1372__CLASS_NORMTESTER_DI
  /*inirout drout_1374__COMPILMATCHER_CMATCHER*/
  /*_.VALROUT___V1500*/ curfptr[1499] = (void*)&cdat->drout_1374__COMPILMATCHER_CMATCHER;
   cdat->drout_1374__COMPILMATCHER_CMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1374__COMPILMATCHER_CMATCHER.routdescr, "COMPILMATCHER_CMATCHER @warmelt-genobj.melt:4862",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1374__COMPILMATCHER_CMATCHER.routdescr, "COMPILMATCHER_CMATCHER @warmelt-genobj.melt:4864",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1374__COMPILMATCHER_CMATCHER.nbval = 37;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1374__COMPILMATCHER_CMATCHER, meltrout_147_warmelt_genobj_COMPILMATCHER_CMATCHER);
  
@@ -73907,35 +28064,35 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1378__MULTIPLE_EVERY_BOTH
  /*inirout drout_1380__LAMBDA_*/
  /*_.VALROUT___V1501*/ curfptr[1500] = (void*)&cdat->drout_1380__LAMBDA_;
   cdat->drout_1380__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1380__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4914",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1380__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4916",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1380__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1380__LAMBDA_, meltrout_148_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1381__LAMBDA_*/
  /*_.VALROUT___V1502*/ curfptr[1501] = (void*)&cdat->drout_1381__LAMBDA_;
   cdat->drout_1381__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1381__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4928",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1381__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4930",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1381__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1381__LAMBDA_, meltrout_149_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1382__LAMBDA_*/
  /*_.VALROUT___V1503*/ curfptr[1502] = (void*)&cdat->drout_1382__LAMBDA_;
   cdat->drout_1382__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1382__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4942",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1382__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4944",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1382__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1382__LAMBDA_, meltrout_150_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1383__LAMBDA_*/
  /*_.VALROUT___V1504*/ curfptr[1503] = (void*)&cdat->drout_1383__LAMBDA_;
   cdat->drout_1383__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1383__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4945",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1383__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:4947",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1383__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1383__LAMBDA_, meltrout_151_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1384__COMPILMATCHER_FUNMATCHER*/
  /*_.VALROUT___V1510*/ curfptr[1509] = (void*)&cdat->drout_1384__COMPILMATCHER_FUNMATCHER;
   cdat->drout_1384__COMPILMATCHER_FUNMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1384__COMPILMATCHER_FUNMATCHER.routdescr, "COMPILMATCHER_FUNMATCHER @warmelt-genobj.melt:5029",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1384__COMPILMATCHER_FUNMATCHER.routdescr, "COMPILMATCHER_FUNMATCHER @warmelt-genobj.melt:5031",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1384__COMPILMATCHER_FUNMATCHER.nbval = 24;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1384__COMPILMATCHER_FUNMATCHER, meltrout_152_warmelt_genobj_COMPILMATCHER_FUNMATCHER);
  
@@ -73960,14 +28117,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1386__CLASS_FUNMATCHER));
  /*inirout drout_1388__LAMBDA_*/
  /*_.VALROUT___V1511*/ curfptr[1510] = (void*)&cdat->drout_1388__LAMBDA_;
   cdat->drout_1388__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1388__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:5054",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1388__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:5056",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1388__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1388__LAMBDA_, meltrout_153_warmelt_genobj_LAMBDA_);
  
  /*inirout drout_1389__LAMBDA_*/
  /*_.VALROUT___V1512*/ curfptr[1511] = (void*)&cdat->drout_1389__LAMBDA_;
   cdat->drout_1389__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_1389__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:5059",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_1389__LAMBDA_.routdescr, "LAMBDA_ @warmelt-genobj.melt:5061",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_1389__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_1389__LAMBDA_, meltrout_154_warmelt_genobj_LAMBDA_);
  
@@ -85573,61 +39730,61 @@ initial_frame_st     curfram__;
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__COMPILE2OBJ_PROCEDURE#12", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V939*/ curfptr[938])->tabval[12] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V807*/ curfptr[806]);
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#5", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#6", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[6] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#7", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[7] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V941*/ curfptr[940])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_909__GET_FREE_OBJLOCPTR#8", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V941*/ curfptr[940])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1137:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1139:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V941*/ curfptr[940]);
  
@@ -85691,61 +39848,61 @@ initial_frame_st     curfram__;
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__COMPILE2OBJ_PROCEDURE#19", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V939*/ curfptr[938])->tabval[19] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V807*/ curfptr[806]);
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#5", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#6", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[6] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#7", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[7] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V945*/ curfptr[944])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_911__GET_FREE_OBJLOCLONG#8", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V945*/ curfptr[944])->tabval[8] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:1188:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1190:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V945*/ curfptr[944]);
  
@@ -85763,97 +39920,97 @@ initial_frame_st     curfram__;
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V944*/ curfptr[943]);
  ((meltroutine_ptr_t)/*_.VALROUT___V939*/ curfptr[938])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V944*/ curfptr[943]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#2", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#3", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V944*/ curfptr[943]);
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V944*/ curfptr[943]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#5", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[5] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V940*/ curfptr[939]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#7", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[7] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V807*/ curfptr[806]);
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#9", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#11", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[11] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#12", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#13", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[13] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V947*/ curfptr[946])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_913__GET_FREE_OBJLOCTYPED#14", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V947*/ curfptr[946])->tabval[14] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:1229:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1231:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V947*/ curfptr[946]);
  
@@ -85877,49 +40034,49 @@ initial_frame_st     curfram__;
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V335*/ curfptr[334]);
  ((meltroutine_ptr_t)/*_.VALROUT___V939*/ curfptr[938])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_837__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_837__LAMBDA_#1", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[1] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V940*/ curfptr[939]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_837__LAMBDA_#3", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V944*/ curfptr[943]);
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V944*/ curfptr[943]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V948*/ curfptr[947])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V335*/ curfptr[334]);
  ((meltroutine_ptr_t)/*_.VALROUT___V948*/ curfptr[947])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]);
  
- MELT_LOCATION("warmelt-genobj.melt:748:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:750:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V948*/ curfptr[947]);
  
@@ -85953,13 +40110,13 @@ initial_frame_st     curfram__;
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__COMPILE2OBJ_PROCEDURE#27", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V939*/ curfptr[938])->tabval[27] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:796:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V949*/ curfptr[948])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_846__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V949*/ curfptr[948])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:796:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:798:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V949*/ curfptr[948]);
  
@@ -86137,7 +40294,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V979*/ curfptr[978]);
  
- MELT_LOCATION("warmelt-genobj.melt:815:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:817:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT);
  
@@ -86155,7 +40312,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V982*/ curfptr[981]);
  
- MELT_LOCATION("warmelt-genobj.melt:815:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:817:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT);
  
@@ -86163,17 +40320,17 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALDATA___V982*/ curfptr[981]);
  
- MELT_LOCATION("warmelt-genobj.melt:815:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:817:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V981*/ curfptr[980]);
  
- MELT_LOCATION("warmelt-genobj.melt:820:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:822:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V984*/ curfptr[983])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V305*/ curfptr[304]);
  ((meltroutine_ptr_t)/*_.VALROUT___V984*/ curfptr[983])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V305*/ curfptr[304]);
  
- MELT_LOCATION("warmelt-genobj.melt:820:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:822:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V984*/ curfptr[983]);
  
@@ -86185,19 +40342,19 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V985*/ curfptr[984]);
  
- MELT_LOCATION("warmelt-genobj.melt:822:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V986*/ curfptr[985])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V305*/ curfptr[304]);
  ((meltroutine_ptr_t)/*_.VALROUT___V986*/ curfptr[985])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V305*/ curfptr[304]);
  
- MELT_LOCATION("warmelt-genobj.melt:822:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V986*/ curfptr[985])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_854__APPEND_COMMENTCONST#1", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V986*/ curfptr[985])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:822:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:824:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V986*/ curfptr[985]);
  
@@ -86209,89 +40366,89 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V987*/ curfptr[986]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#0", NULL != (/*_.CLASS_NREP_INITPROC__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_INITPROC__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#1", NULL != (/*_.CLASS_MODULE_CONTEXT__V22*/ curfptr[21]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[1] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V22*/ curfptr[21]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#3", NULL != (/*_.DISCR_MAP_OBJECTS__V28*/ curfptr[27]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V28*/ curfptr[27]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#6", NULL != (/*_.VALSTR___V989*/ curfptr[988]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V989*/ curfptr[988]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#7", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[7] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#8", NULL != (/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[8] = (melt_ptr_t)(/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#9", NULL != (/*_.LIST_MAP__V37*/ curfptr[36]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[9] = (melt_ptr_t)(/*_.LIST_MAP__V37*/ curfptr[36]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:865:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:867:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V990*/ curfptr[989])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_865__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V990*/ curfptr[989])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:865:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:867:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V990*/ curfptr[989]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#11", NULL != (/*_.VALROUT___V990*/ curfptr[989]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V990*/ curfptr[989]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -86307,7 +40464,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V991*/ curfptr[990]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#13", NULL != (/*_.VALDATA___V991*/ curfptr[990]));
@@ -86323,7 +40480,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V993*/ curfptr[992]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#14", NULL != (/*_.VALDATA___V993*/ curfptr[992]));
@@ -86339,7 +40496,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V995*/ curfptr[994]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#15", NULL != (/*_.VALDATA___V995*/ curfptr[994]));
@@ -86355,7 +40512,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V997*/ curfptr[996]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#16", NULL != (/*_.VALDATA___V997*/ curfptr[996]));
@@ -86371,7 +40528,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V999*/ curfptr[998]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#17", NULL != (/*_.VALDATA___V999*/ curfptr[998]));
@@ -86387,505 +40544,505 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1001*/ curfptr[1000]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#18", NULL != (/*_.VALDATA___V1001*/ curfptr[1000]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V1001*/ curfptr[1000]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V987*/ curfptr[986]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[19] = (melt_ptr_t)(/*_.VALCLO___V987*/ curfptr[986]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V701*/ curfptr[700]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#21", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[21] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V981*/ curfptr[980]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#23", NULL != (/*_.SYSDATA_CONT_FRESH_ENV__V39*/ curfptr[38]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[23] = (melt_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V39*/ curfptr[38]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[24] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#25", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[25] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#26", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[26] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V573*/ curfptr[572]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V403*/ curfptr[402]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[28] = (melt_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#29", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[29] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[30] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[31] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#32", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[32] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#33", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[33] = (melt_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[34] = (melt_ptr_t)(/*_.VALCLO___V940*/ curfptr[939]);
  
- MELT_LOCATION("warmelt-genobj.melt:954:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_884__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:954:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_884__LAMBDA_#1", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-genobj.melt:954:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1003*/ curfptr[1002])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V940*/ curfptr[939]);
  
- MELT_LOCATION("warmelt-genobj.melt:954:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:956:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1003*/ curfptr[1002]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#35", NULL != (/*_.VALROUT___V1003*/ curfptr[1002]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[35] = (melt_ptr_t)(/*_.VALROUT___V1003*/ curfptr[1002]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#36", NULL != (/*_.LIST_TO_MULTIPLE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[36] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#37", NULL != (/*_.CLASS_NREP_DATA__V43*/ curfptr[42]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[37] = (melt_ptr_t)(/*_.CLASS_NREP_DATA__V43*/ curfptr[42]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#38", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[38] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:985:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_889__LAMBDA_#0", NULL != (/*_.CLASS_NREP_DATA__V43*/ curfptr[42]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ curfptr[1003])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATA__V43*/ curfptr[42]);
  
- MELT_LOCATION("warmelt-genobj.melt:985:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_889__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1004*/ curfptr[1003])->tabval[1] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:985:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:987:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1004*/ curfptr[1003]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#39", NULL != (/*_.VALROUT___V1004*/ curfptr[1003]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[39] = (melt_ptr_t)(/*_.VALROUT___V1004*/ curfptr[1003]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#40", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[40] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#41", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[41] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1000:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1002:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1005*/ curfptr[1004])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_892__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1005*/ curfptr[1004])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1000:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1002:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1005*/ curfptr[1004])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_892__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1005*/ curfptr[1004])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1000:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1002:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1005*/ curfptr[1004]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#42", NULL != (/*_.VALROUT___V1005*/ curfptr[1004]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[42] = (melt_ptr_t)(/*_.VALROUT___V1005*/ curfptr[1004]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#43", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[43] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[44] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#45", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[45] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#46", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[46] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V567*/ curfptr[566]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[47] = (melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#48", NULL != (/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[48] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ curfptr[560]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[49] = (melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__LAMBDA_#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V567*/ curfptr[566]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_895__LAMBDA_#4", NULL != (/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V561*/ curfptr[560]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1006*/ curfptr[1005])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]);
  
- MELT_LOCATION("warmelt-genobj.melt:1009:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1011:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1006*/ curfptr[1005]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#50", NULL != (/*_.VALROUT___V1006*/ curfptr[1005]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[50] = (melt_ptr_t)(/*_.VALROUT___V1006*/ curfptr[1005]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#51", NULL != (/*_.SYSDATA_VALUE_IMPORTER__V47*/ curfptr[46]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[51] = (melt_ptr_t)(/*_.SYSDATA_VALUE_IMPORTER__V47*/ curfptr[46]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#52", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[52] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#53", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[53] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#54", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[54] = (melt_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#55", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[55] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#56", NULL != (/*_.CLASS_MODULE_CONTEXT__V22*/ curfptr[21]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[56] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V22*/ curfptr[21]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#57", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[57] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V573*/ curfptr[572]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[58] = (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#59", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[59] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#60", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[60] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#1", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#3", NULL != (/*_.CLASS_MODULE_CONTEXT__V22*/ curfptr[21]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[3] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V22*/ curfptr[21]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V573*/ curfptr[572]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#6", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[6] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_902__LAMBDA_#7", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1007*/ curfptr[1006])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:1047:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1049:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1007*/ curfptr[1006]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#61", NULL != (/*_.VALROUT___V1007*/ curfptr[1006]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[61] = (melt_ptr_t)(/*_.VALROUT___V1007*/ curfptr[1006]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#62", NULL != (/*_.VALROUT___V1008*/ curfptr[1007]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[62] = (melt_ptr_t)(/*_.VALROUT___V1008*/ curfptr[1007]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[63] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#64", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[64] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#65", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[65] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V545*/ curfptr[544]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[66] = (melt_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#67", NULL != (/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[67] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V539*/ curfptr[538]);
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[68] = (melt_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__LAMBDA_#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V45*/ curfptr[44]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V545*/ curfptr[544]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_904__LAMBDA_#4", NULL != (/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V539*/ curfptr[538]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1009*/ curfptr[1008])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]);
  
- MELT_LOCATION("warmelt-genobj.melt:1080:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1082:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1009*/ curfptr[1008]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V988*/ curfptr[987])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_856__COMPILE2OBJ_INITPROC#69", NULL != (/*_.VALROUT___V1009*/ curfptr[1008]));
  ((meltroutine_ptr_t)/*_.VALROUT___V988*/ curfptr[987])->tabval[69] = (melt_ptr_t)(/*_.VALROUT___V1009*/ curfptr[1008]);
  
- MELT_LOCATION("warmelt-genobj.melt:826:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:828:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V988*/ curfptr[987]);
  
@@ -87067,55 +41224,55 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1043*/ curfptr[1042]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__DISPOSE_OBJLOC#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__DISPOSE_OBJLOC#2", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__DISPOSE_OBJLOC#3", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__DISPOSE_OBJLOC#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__DISPOSE_OBJLOC#5", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[5] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_919__DISPOSE_OBJLOC#6", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[6] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1045*/ curfptr[1044])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V807*/ curfptr[806]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1045*/ curfptr[1044])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]);
  
- MELT_LOCATION("warmelt-genobj.melt:1290:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1292:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1045*/ curfptr[1044]);
  
@@ -87127,49 +41284,49 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1046*/ curfptr[1045]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_921__DISPOSE_BND_OBJ#0", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_921__DISPOSE_BND_OBJ#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_921__DISPOSE_BND_OBJ#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_921__DISPOSE_BND_OBJ#3", NULL != (/*_.CLASS_LET_BINDING__V51*/ curfptr[50]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V51*/ curfptr[50]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_921__DISPOSE_BND_OBJ#4", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1047*/ curfptr[1046])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1046*/ curfptr[1045]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1047*/ curfptr[1046])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1046*/ curfptr[1045]);
  
- MELT_LOCATION("warmelt-genobj.melt:1319:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1321:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1047*/ curfptr[1046]);
  
@@ -87201,101 +41358,101 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1051*/ curfptr[1050]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#0", NULL != (/*_.CLASS_NREP_CHUNK__V52*/ curfptr[51]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_CHUNK__V52*/ curfptr[51]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#3", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#4", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#5", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#7", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[8] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1356:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_931__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1356:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_931__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[1] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:1356:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_931__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1054*/ curfptr[1053])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1356:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1358:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1054*/ curfptr[1053]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_927__COMPILOBJ_NREP_CHUNK#9", NULL != (/*_.VALROUT___V1054*/ curfptr[1053]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V285*/ curfptr[284]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:1342:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1344:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1053*/ curfptr[1052]);
  
@@ -87317,13 +41474,13 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1056*/ curfptr[1055]);
  
- MELT_LOCATION("warmelt-genobj.melt:1381:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1058*/ curfptr[1057])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_932__GETCTYPE_TYPEXPR#0", NULL != (/*_.CLASS_NREP_TYPED_EXPRESSION__V53*/ curfptr[52]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1058*/ curfptr[1057])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V53*/ curfptr[52]);
  
- MELT_LOCATION("warmelt-genobj.melt:1381:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1383:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1058*/ curfptr[1057]);
  
@@ -87345,37 +41502,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1060*/ curfptr[1059]);
  
- MELT_LOCATION("warmelt-genobj.melt:1387:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1062*/ curfptr[1061])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_936__COMPILOBJ_NREP_NIL#0", NULL != (/*_.CLASS_NREP_NIL__V54*/ curfptr[53]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1062*/ curfptr[1061])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_NIL__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-genobj.melt:1387:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1062*/ curfptr[1061])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_936__COMPILOBJ_NREP_NIL#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1062*/ curfptr[1061])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1387:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1062*/ curfptr[1061])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_936__COMPILOBJ_NREP_NIL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1062*/ curfptr[1061])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1387:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1062*/ curfptr[1061])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V199*/ curfptr[198]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1062*/ curfptr[1061])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]);
  
- MELT_LOCATION("warmelt-genobj.melt:1387:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1062*/ curfptr[1061])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_936__COMPILOBJ_NREP_NIL#4", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1062*/ curfptr[1061])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1387:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1389:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1062*/ curfptr[1061]);
  
@@ -87397,43 +41554,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1064*/ curfptr[1063]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_940__COMPILOBJ_NREP_COMMENT#0", NULL != (/*_.CLASS_NREP_COMMENT__V55*/ curfptr[54]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_COMMENT__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_940__COMPILOBJ_NREP_COMMENT#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_940__COMPILOBJ_NREP_COMMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_940__COMPILOBJ_NREP_COMMENT#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_940__COMPILOBJ_NREP_COMMENT#4", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[4] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:1399:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1401:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1066*/ curfptr[1065]);
  
@@ -87455,37 +41612,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1068*/ curfptr[1067]);
  
- MELT_LOCATION("warmelt-genobj.melt:1423:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_944__COMPILOBJ_NREP_LOCSYMOCC#0", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-genobj.melt:1423:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_944__COMPILOBJ_NREP_LOCSYMOCC#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1423:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_944__COMPILOBJ_NREP_LOCSYMOCC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1423:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_944__COMPILOBJ_NREP_LOCSYMOCC#3", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:1423:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1070*/ curfptr[1069])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1070*/ curfptr[1069])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1423:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1425:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1070*/ curfptr[1069]);
  
@@ -87507,49 +41664,49 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1072*/ curfptr[1071]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_948__COMPILOBJ_NREP_CLOSEDOCC#0", NULL != (/*_.CLASS_NREP_CLOSEDOCC__V57*/ curfptr[56]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_CLOSEDOCC__V57*/ curfptr[56]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_948__COMPILOBJ_NREP_CLOSEDOCC#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_948__COMPILOBJ_NREP_CLOSEDOCC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_948__COMPILOBJ_NREP_CLOSEDOCC#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V165*/ curfptr[164]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_948__COMPILOBJ_NREP_CLOSEDOCC#5", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[5] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1074*/ curfptr[1073])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_948__COMPILOBJ_NREP_CLOSEDOCC#6", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1074*/ curfptr[1073])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:1460:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1462:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1074*/ curfptr[1073]);
  
@@ -87571,49 +41728,49 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1076*/ curfptr[1075]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_CONSTOCC#0", NULL != (/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_CONSTOCC#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_CONSTOCC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_CONSTOCC#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V183*/ curfptr[182]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_CONSTOCC#5", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[5] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1078*/ curfptr[1077])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_952__COMPILOBJ_NREP_CONSTOCC#6", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1078*/ curfptr[1077])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:1514:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1516:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1078*/ curfptr[1077]);
  
@@ -87635,37 +41792,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1080*/ curfptr[1079]);
  
- MELT_LOCATION("warmelt-genobj.melt:1566:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_956__COMPILOBJ_NREP_IMPORTEDVAL#0", NULL != (/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[0] = (melt_ptr_t)(/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-genobj.melt:1566:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_956__COMPILOBJ_NREP_IMPORTEDVAL#1", NULL != (/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-genobj.melt:1566:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_956__COMPILOBJ_NREP_IMPORTEDVAL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1566:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_956__COMPILOBJ_NREP_IMPORTEDVAL#3", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:1566:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1082*/ curfptr[1081])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1082*/ curfptr[1081])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1566:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1568:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1082*/ curfptr[1081]);
  
@@ -87687,73 +41844,73 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1084*/ curfptr[1083]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#1", NULL != (/*_.CLASS_NREP_QUASICONSTANT__V60*/ curfptr[59]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_QUASICONSTANT__V60*/ curfptr[59]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#5", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V183*/ curfptr[182]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V183*/ curfptr[182]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#7", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[7] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#8", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[8] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#9", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[9] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_960__COMPILOBJ_NREP_QUASICONSTANT#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[10] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1583:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1585:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1086*/ curfptr[1085]);
  
@@ -87775,55 +41932,55 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1088*/ curfptr[1087]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V61*/ curfptr[60]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V61*/ curfptr[60]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1087*/ curfptr[1086]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V1087*/ curfptr[1086]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#4", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[4] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V285*/ curfptr[284]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#6", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[6] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1090*/ curfptr[1089])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_964__COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER#7", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1090*/ curfptr[1089])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:1642:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1644:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1090*/ curfptr[1089]);
  
@@ -87845,89 +42002,89 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1092*/ curfptr[1091]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#1", NULL != (/*_.CLASS_NREP_FOREVER__V62*/ curfptr[61]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_FOREVER__V62*/ curfptr[61]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V940*/ curfptr[939]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V63*/ curfptr[62]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[4] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V63*/ curfptr[62]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#6", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#8", NULL != (/*_.CLASS_CLONED_SYMBOL__V64*/ curfptr[63]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V64*/ curfptr[63]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#9", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[9] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[10] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1704:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1706:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_976__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1095*/ curfptr[1094])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1704:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1706:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1095*/ curfptr[1094]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1094*/ curfptr[1093])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_968__COMPILOBJ_NREP_FOREVER#11", NULL != (/*_.VALROUT___V1095*/ curfptr[1094]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1094*/ curfptr[1093])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V1095*/ curfptr[1094]);
  
- MELT_LOCATION("warmelt-genobj.melt:1671:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1673:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1094*/ curfptr[1093]);
  
@@ -87969,61 +42126,61 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1101*/ curfptr[1100]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_977__COMPILOBJ_NREP_EXIT#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_977__COMPILOBJ_NREP_EXIT#1", NULL != (/*_.CLASS_NREP_EXIT__V65*/ curfptr[64]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_EXIT__V65*/ curfptr[64]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_977__COMPILOBJ_NREP_EXIT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_977__COMPILOBJ_NREP_EXIT#3", NULL != (/*_.CLASS_LABEL_BINDING__V63*/ curfptr[62]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[3] = (melt_ptr_t)(/*_.CLASS_LABEL_BINDING__V63*/ curfptr[62]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_977__COMPILOBJ_NREP_EXIT#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_977__COMPILOBJ_NREP_EXIT#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V465*/ curfptr[464]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:1715:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1717:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1103*/ curfptr[1102]);
  
@@ -88045,13 +42202,13 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1105*/ curfptr[1104]);
  
- MELT_LOCATION("warmelt-genobj.melt:1754:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1756:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_981__COMPILOBJ_DISCRANY#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1754:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1756:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1107*/ curfptr[1106]);
  
@@ -88063,205 +42220,205 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1108*/ curfptr[1107]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#0", NULL != (/*_.CLASS_NREP_LET__V66*/ curfptr[65]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_LET__V66*/ curfptr[65]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#5", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#7", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[9] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#10", NULL != (/*_.CLASS_SEXPR__V68*/ curfptr[67]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[10] = (melt_ptr_t)(/*_.CLASS_SEXPR__V68*/ curfptr[67]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__LAMBDA_#1", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__LAMBDA_#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_987__LAMBDA_#4", NULL != (/*_.CLASS_SEXPR__V68*/ curfptr[67]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SEXPR__V68*/ curfptr[67]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1110*/ curfptr[1109])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:1789:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1791:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1110*/ curfptr[1109]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#13", NULL != (/*_.VALROUT___V1110*/ curfptr[1109]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[13] = (melt_ptr_t)(/*_.VALROUT___V1110*/ curfptr[1109]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#14", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[14] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#15", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[15] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1838:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_992__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1838:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_992__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1111*/ curfptr[1110])->tabval[1] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1838:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1840:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1111*/ curfptr[1110]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#16", NULL != (/*_.VALROUT___V1111*/ curfptr[1110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V1111*/ curfptr[1110]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#17", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[17] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:1852:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_993__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1852:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1112*/ curfptr[1111])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:1852:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1854:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1112*/ curfptr[1111]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1109*/ curfptr[1108])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_983__COMPILOBJ_NREP_LET#19", NULL != (/*_.VALROUT___V1112*/ curfptr[1111]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1109*/ curfptr[1108])->tabval[19] = (melt_ptr_t)(/*_.VALROUT___V1112*/ curfptr[1111]);
  
- MELT_LOCATION("warmelt-genobj.melt:1762:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1764:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1109*/ curfptr[1108]);
  
@@ -88323,7 +42480,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1122*/ curfptr[1121]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1124*/ curfptr[1123])) == OBMAG_OBJECT);
  
@@ -88331,7 +42488,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1124*/ curfptr[1123]))->obj_vartab[0] = (melt_ptr_t)(
   /*_.VALDATA___V1122*/ curfptr[1121]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1124*/ curfptr[1123])) == OBMAG_OBJECT);
  
@@ -88339,7 +42496,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1124*/ curfptr[1123]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1124*/ curfptr[1123]);
  
@@ -88353,7 +42510,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1125*/ curfptr[1124]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126])) == OBMAG_OBJECT);
  
@@ -88361,7 +42518,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]))->obj_vartab[0] = (melt_ptr_t)(
   /*_.VALDATA___V1125*/ curfptr[1124]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126])) == OBMAG_OBJECT);
  
@@ -88369,7 +42526,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1127*/ curfptr[1126]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1127*/ curfptr[1126]);
  
@@ -88383,7 +42540,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1128*/ curfptr[1127]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129])) == OBMAG_OBJECT);
  
@@ -88391,7 +42548,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))->obj_vartab[0] = (melt_ptr_t)(
   /*_.VALDATA___V1128*/ curfptr[1127]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129])) == OBMAG_OBJECT);
  
@@ -88399,7 +42556,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1130*/ curfptr[1129]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1130*/ curfptr[1129]);
  
@@ -88413,7 +42570,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1131*/ curfptr[1130]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1133*/ curfptr[1132])) == OBMAG_OBJECT);
  
@@ -88421,7 +42578,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1133*/ curfptr[1132]))->obj_vartab[0] = (melt_ptr_t)(
   /*_.VALDATA___V1131*/ curfptr[1130]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1133*/ curfptr[1132])) == OBMAG_OBJECT);
  
@@ -88429,7 +42586,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1133*/ curfptr[1132]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1133*/ curfptr[1132]);
  
@@ -88443,7 +42600,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1134*/ curfptr[1133]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135])) == OBMAG_OBJECT);
  
@@ -88451,7 +42608,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135]))->obj_vartab[0] = (melt_ptr_t)(
   /*_.VALDATA___V1134*/ curfptr[1133]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135])) == OBMAG_OBJECT);
  
@@ -88459,7 +42616,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_VALUE))));
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1136*/ curfptr[1135]);
  
@@ -88491,7 +42648,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V1137*/ curfptr[1136]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137])) == OBMAG_OBJECT);
  
@@ -88499,23 +42656,23 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1139*/ curfptr[1138]);
  
- MELT_LOCATION("warmelt-genobj.melt:1872:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1874:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1138*/ curfptr[1137]);
  
- MELT_LOCATION("warmelt-genobj.melt:1881:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1014__FAIL_COMPILETRECFILL#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1881:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1014__FAIL_COMPILETRECFILL#1", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:1881:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1883:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1140*/ curfptr[1139]);
  
@@ -88527,13 +42684,13 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1141*/ curfptr[1140]);
  
- MELT_LOCATION("warmelt-genobj.melt:1892:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1142*/ curfptr[1141])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1016__COMPILETREC_LAMBDA#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1142*/ curfptr[1141])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1892:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1894:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1142*/ curfptr[1141]);
  
@@ -88545,79 +42702,79 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1143*/ curfptr[1142]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#1", NULL != (/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#3", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[3] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V393*/ curfptr[392]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#6", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#8", NULL != (/*_.CLASS_NREP_SYMOCC__V70*/ curfptr[69]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V70*/ curfptr[69]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#9", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[9] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1018__COMPILOBJ_NREP_LETREC#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[10] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1138*/ curfptr[1137]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]);
  
- MELT_LOCATION("warmelt-genobj.melt:1900:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1902:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1144*/ curfptr[1143]);
  
@@ -88649,357 +42806,357 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1148*/ curfptr[1147]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#0", NULL != (/*_.CLASS_NREP_CITERATION__V71*/ curfptr[70]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_CITERATION__V71*/ curfptr[70]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#3", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#4", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#6", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V475*/ curfptr[474]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V475*/ curfptr[474]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#8", NULL != (/*_.CLASS_CITERATOR__V72*/ curfptr[71]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#9", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[9] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[10] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#11", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#13", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[13] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2009:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2009:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__LAMBDA_#1", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:2009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:2009:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1030__LAMBDA_#3", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:2009:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1151*/ curfptr[1150])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2009:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2011:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1151*/ curfptr[1150]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#15", NULL != (/*_.VALROUT___V1151*/ curfptr[1150]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[15] = (melt_ptr_t)(/*_.VALROUT___V1151*/ curfptr[1150]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#16", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[16] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#17", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[17] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#18", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[18] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#19", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[19] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#20", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[20] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2045:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1031__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2045:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1031__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[1] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2045:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2047:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#21", NULL != (/*_.VALROUT___V1152*/ curfptr[1151]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#22", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[22] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#23", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[23] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2057:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1032__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2057:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1032__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1153*/ curfptr[1152])->tabval[1] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2057:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2059:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1153*/ curfptr[1152]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#24", NULL != (/*_.VALROUT___V1153*/ curfptr[1152]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[24] = (melt_ptr_t)(/*_.VALROUT___V1153*/ curfptr[1152]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#25", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[25] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#26", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[26] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#27", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[27] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[28] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#29", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[29] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[30] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#31", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[31] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[32] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1033__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1033__LAMBDA_#1", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1033__LAMBDA_#3", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1033__LAMBDA_#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1154*/ curfptr[1153])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:2073:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2075:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1154*/ curfptr[1153]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#33", NULL != (/*_.VALROUT___V1154*/ curfptr[1153]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[33] = (melt_ptr_t)(/*_.VALROUT___V1154*/ curfptr[1153]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#34", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[34] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#35", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[35] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2111:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2113:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1155*/ curfptr[1154])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1155*/ curfptr[1154])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2111:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2113:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1155*/ curfptr[1154])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1034__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1155*/ curfptr[1154])->tabval[1] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2111:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2113:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1155*/ curfptr[1154]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1150*/ curfptr[1149])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1024__COMPILOBJ_NREP_CITERATION#36", NULL != (/*_.VALROUT___V1155*/ curfptr[1154]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1150*/ curfptr[1149])->tabval[36] = (melt_ptr_t)(/*_.VALROUT___V1155*/ curfptr[1154]);
  
- MELT_LOCATION("warmelt-genobj.melt:1970:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:1972:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1150*/ curfptr[1149]);
  
@@ -89031,43 +43188,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1159*/ curfptr[1158]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1035__COMPILOBJ_NREP_SETQ#0", NULL != (/*_.CLASS_NREP_SETQ__V73*/ curfptr[72]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_SETQ__V73*/ curfptr[72]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1035__COMPILOBJ_NREP_SETQ#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1035__COMPILOBJ_NREP_SETQ#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1035__COMPILOBJ_NREP_SETQ#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1161*/ curfptr[1160])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V295*/ curfptr[294]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1161*/ curfptr[1160])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]);
  
- MELT_LOCATION("warmelt-genobj.melt:2127:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2129:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1161*/ curfptr[1160]);
  
@@ -89089,71 +43246,71 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1163*/ curfptr[1162]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#0", NULL != (/*_.CLASS_NREP_PROGN__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_PROGN__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#5", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#6", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[6] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2165:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2167:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1043__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1166*/ curfptr[1165])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2165:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2167:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1166*/ curfptr[1165]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#7", NULL != (/*_.VALROUT___V1166*/ curfptr[1165]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1166*/ curfptr[1165]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1165*/ curfptr[1164])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1039__COMPILOBJ_NREP_PROGN#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1165*/ curfptr[1164])->tabval[8] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2149:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2151:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1165*/ curfptr[1164]);
  
@@ -89175,107 +43332,107 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1168*/ curfptr[1167]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#0", NULL != (/*_.CLASS_NREP_MULTACC__V75*/ curfptr[74]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_MULTACC__V75*/ curfptr[74]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#4", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#5", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[5] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#7", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[7] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#8", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[8] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1048__LAMBDA_#0", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1048__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[1] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:2188:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:2188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1048__LAMBDA_#3", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:2188:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1048__LAMBDA_#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1171*/ curfptr[1170])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2188:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2190:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1171*/ curfptr[1170]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1044__COMPILOBJ_NREP_MULTACC#9", NULL != (/*_.VALROUT___V1171*/ curfptr[1170]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1171*/ curfptr[1170]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1170*/ curfptr[1169])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V237*/ curfptr[236]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1170*/ curfptr[1169])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]);
  
- MELT_LOCATION("warmelt-genobj.melt:2177:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2179:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1170*/ curfptr[1169]);
  
@@ -89297,131 +43454,131 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1173*/ curfptr[1172]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#0", NULL != (/*_.CLASS_NREP_FIELDACC__V76*/ curfptr[75]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_FIELDACC__V76*/ curfptr[75]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#3", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#5", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#6", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[6] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#8", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#9", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[9] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2242:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1053__LAMBDA_#0", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[0] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2242:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1053__LAMBDA_#1", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[1] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:2242:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:2242:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1053__LAMBDA_#3", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:2242:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1053__LAMBDA_#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1176*/ curfptr[1175])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2242:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2244:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1176*/ curfptr[1175]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#10", NULL != (/*_.VALROUT___V1176*/ curfptr[1175]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V1176*/ curfptr[1175]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#11", NULL != (/*_.CLASS_FIELD__V77*/ curfptr[76]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FIELD__V77*/ curfptr[76]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#13", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V78*/ curfptr[77]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V78*/ curfptr[77]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1175*/ curfptr[1174])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1049__COMPILOBJ_NREP_FIELDACC#14", NULL != (/*_.CLASS_NREP_DATA__V43*/ curfptr[42]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1175*/ curfptr[1174])->tabval[14] = (melt_ptr_t)(/*_.CLASS_NREP_DATA__V43*/ curfptr[42]);
  
- MELT_LOCATION("warmelt-genobj.melt:2229:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2231:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1175*/ curfptr[1174]);
  
@@ -89463,43 +43620,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1182*/ curfptr[1181]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_NREP_UNSAFE_GET_FIELD__V79*/ curfptr[78]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V79*/ curfptr[78]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1058__COMPILOBJ_NREP_UNSAFE_GET_FIELD#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1184*/ curfptr[1183])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V701*/ curfptr[700]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1184*/ curfptr[1183])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]);
  
- MELT_LOCATION("warmelt-genobj.melt:2284:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2286:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1184*/ curfptr[1183]);
  
@@ -89521,137 +43678,137 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1186*/ curfptr[1185]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V80*/ curfptr[79]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V80*/ curfptr[79]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#6", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[6] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#7", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#8", NULL != (/*_.CLASS_FIELD__V77*/ curfptr[76]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FIELD__V77*/ curfptr[76]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[9] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#11", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[11] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#12", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1066__LAMBDA_#0", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1066__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V77*/ curfptr[76]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FIELD__V77*/ curfptr[76]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1066__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1066__LAMBDA_#4", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[4] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1066__LAMBDA_#5", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1189*/ curfptr[1188])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:2323:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2325:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1189*/ curfptr[1188]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1062__COMPILOBJ_NREP_UNSAFE_PUT_FIELDS#13", NULL != (/*_.VALROUT___V1189*/ curfptr[1188]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[13] = (melt_ptr_t)(/*_.VALROUT___V1189*/ curfptr[1188]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1188*/ curfptr[1187])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1188*/ curfptr[1187])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:2306:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2308:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1188*/ curfptr[1187]);
  
@@ -89683,83 +43840,83 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1193*/ curfptr[1192]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#0", NULL != (/*_.CLASS_NREP_APPLY__V82*/ curfptr[81]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_APPLY__V82*/ curfptr[81]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#4", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V295*/ curfptr[294]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]);
  
- MELT_LOCATION("warmelt-genobj.melt:2363:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1196*/ curfptr[1195])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1073__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1196*/ curfptr[1195])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2363:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1196*/ curfptr[1195])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V295*/ curfptr[294]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1196*/ curfptr[1195])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]);
  
- MELT_LOCATION("warmelt-genobj.melt:2363:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2365:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1196*/ curfptr[1195]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#7", NULL != (/*_.VALROUT___V1196*/ curfptr[1195]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1196*/ curfptr[1195]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1069__COMPILOBJ_NREP_APPLY#8", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1195*/ curfptr[1194])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V573*/ curfptr[572]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1195*/ curfptr[1194])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]);
  
- MELT_LOCATION("warmelt-genobj.melt:2352:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2354:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1195*/ curfptr[1194]);
  
@@ -89781,225 +43938,225 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1198*/ curfptr[1197]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#0", NULL != (/*_.CLASS_NREP_MULTIAPPLY__V83*/ curfptr[82]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_MULTIAPPLY__V83*/ curfptr[82]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#3", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[3] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#5", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#7", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2397:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1201*/ curfptr[1200])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1201*/ curfptr[1200])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2397:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1201*/ curfptr[1200])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1201*/ curfptr[1200])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:2397:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1201*/ curfptr[1200])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1201*/ curfptr[1200])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:2397:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1201*/ curfptr[1200])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1078__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1201*/ curfptr[1200])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2397:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2399:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1201*/ curfptr[1200]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#8", NULL != (/*_.VALROUT___V1201*/ curfptr[1200]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1201*/ curfptr[1200]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#9", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#11", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#12", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[12] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#13", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[13] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2423:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2425:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1202*/ curfptr[1201])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1079__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1202*/ curfptr[1201])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2423:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2425:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1202*/ curfptr[1201]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#14", NULL != (/*_.VALROUT___V1202*/ curfptr[1201]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V1202*/ curfptr[1201]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ curfptr[586]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#16", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[16] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#17", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[17] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V141*/ curfptr[140]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]);
  
- MELT_LOCATION("warmelt-genobj.melt:2437:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1203*/ curfptr[1202])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1080__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1203*/ curfptr[1202])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2437:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1203*/ curfptr[1202])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V141*/ curfptr[140]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1203*/ curfptr[1202])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]);
  
- MELT_LOCATION("warmelt-genobj.melt:2437:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2439:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1203*/ curfptr[1202]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#19", NULL != (/*_.VALROUT___V1203*/ curfptr[1202]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[19] = (melt_ptr_t)(/*_.VALROUT___V1203*/ curfptr[1202]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2449:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2451:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1204*/ curfptr[1203])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1204*/ curfptr[1203])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2449:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2451:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1204*/ curfptr[1203]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#21", NULL != (/*_.VALROUT___V1204*/ curfptr[1203]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V1204*/ curfptr[1203]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:2460:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:2460:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2462:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1205*/ curfptr[1204]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1200*/ curfptr[1199])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1074__COMPILOBJ_NREP_MULTIAPPLY#23", NULL != (/*_.VALROUT___V1205*/ curfptr[1204]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1200*/ curfptr[1199])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204]);
  
- MELT_LOCATION("warmelt-genobj.melt:2383:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2385:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1200*/ curfptr[1199]);
  
@@ -90021,83 +44178,83 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1207*/ curfptr[1206]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#0", NULL != (/*_.CLASS_NREP_MSEND__V84*/ curfptr[83]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_MSEND__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#4", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#5", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#6", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[6] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2484:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1087__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2484:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1087__LAMBDA_#1", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1210*/ curfptr[1209])->tabval[1] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2484:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2486:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1210*/ curfptr[1209]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#7", NULL != (/*_.VALROUT___V1210*/ curfptr[1209]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V1210*/ curfptr[1209]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V597*/ curfptr[596]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1209*/ curfptr[1208])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1083__COMPILOBJ_NREP_MSEND#9", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1209*/ curfptr[1208])->tabval[9] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2469:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2471:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1209*/ curfptr[1208]);
  
@@ -90119,225 +44276,225 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1212*/ curfptr[1211]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#0", NULL != (/*_.CLASS_NREP_MULTIMSEND__V85*/ curfptr[84]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_MULTIMSEND__V85*/ curfptr[84]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#3", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[3] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#5", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[5] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#7", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2525:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2525:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:2525:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:2525:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1092__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1215*/ curfptr[1214])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2525:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2527:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1215*/ curfptr[1214]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#8", NULL != (/*_.VALROUT___V1215*/ curfptr[1214]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1215*/ curfptr[1214]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#9", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[9] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[10] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#11", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[11] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#12", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[12] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2547:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2549:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1216*/ curfptr[1215])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1093__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1216*/ curfptr[1215])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2547:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2549:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1216*/ curfptr[1215]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#13", NULL != (/*_.VALROUT___V1216*/ curfptr[1215]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[13] = (melt_ptr_t)(/*_.VALROUT___V1216*/ curfptr[1215]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V615*/ curfptr[614]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V615*/ curfptr[614]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#16", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[16] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#17", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[17] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V141*/ curfptr[140]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]);
  
- MELT_LOCATION("warmelt-genobj.melt:2571:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ curfptr[1216])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1094__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ curfptr[1216])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2571:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1217*/ curfptr[1216])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V141*/ curfptr[140]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1217*/ curfptr[1216])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]);
  
- MELT_LOCATION("warmelt-genobj.melt:2571:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2573:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1217*/ curfptr[1216]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#19", NULL != (/*_.VALROUT___V1217*/ curfptr[1216]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[19] = (melt_ptr_t)(/*_.VALROUT___V1217*/ curfptr[1216]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2582:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2584:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2582:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2584:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1218*/ curfptr[1217]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#21", NULL != (/*_.VALROUT___V1218*/ curfptr[1217]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[22] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:2592:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1219*/ curfptr[1218])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:2592:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2594:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1219*/ curfptr[1218]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1088__COMPILOBJ_NREP_MULTIMSEND#23", NULL != (/*_.VALROUT___V1219*/ curfptr[1218]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218]);
  
- MELT_LOCATION("warmelt-genobj.melt:2510:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2512:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1214*/ curfptr[1213]);
  
@@ -90359,31 +44516,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1221*/ curfptr[1220]);
  
- MELT_LOCATION("warmelt-genobj.melt:2602:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1223*/ curfptr[1222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1097__COMPILOBJ_ANY_BINDING#0", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1223*/ curfptr[1222])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:2602:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1223*/ curfptr[1222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1097__COMPILOBJ_ANY_BINDING#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1223*/ curfptr[1222])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2602:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1223*/ curfptr[1222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1097__COMPILOBJ_ANY_BINDING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1223*/ curfptr[1222])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2602:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1223*/ curfptr[1222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1097__COMPILOBJ_ANY_BINDING#3", NULL != (/*_.DISPLAY_DEBUG_MESSAGE__V11*/ curfptr[10]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1223*/ curfptr[1222])->tabval[3] = (melt_ptr_t)(/*_.DISPLAY_DEBUG_MESSAGE__V11*/ curfptr[10]);
  
- MELT_LOCATION("warmelt-genobj.melt:2602:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2604:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1223*/ curfptr[1222]);
  
@@ -90395,31 +44552,31 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1224*/ curfptr[1223]);
  
- MELT_LOCATION("warmelt-genobj.melt:2616:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1099__COMPILOBJ_VALUE_BINDING#0", NULL != (/*_.CLASS_VALUE_BINDING__V86*/ curfptr[85]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[0] = (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V86*/ curfptr[85]);
  
- MELT_LOCATION("warmelt-genobj.melt:2616:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1099__COMPILOBJ_VALUE_BINDING#1", NULL != (/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-genobj.melt:2616:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1099__COMPILOBJ_VALUE_BINDING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2616:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2616:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2618:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1225*/ curfptr[1224]);
  
@@ -90441,31 +44598,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1227*/ curfptr[1226]);
  
- MELT_LOCATION("warmelt-genobj.melt:2632:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__COMPILOBJ_FIXED_BINDING#0", NULL != (/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]);
  
- MELT_LOCATION("warmelt-genobj.melt:2632:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__COMPILOBJ_FIXED_BINDING#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2632:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__COMPILOBJ_FIXED_BINDING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2632:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1103__COMPILOBJ_FIXED_BINDING#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2632:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2634:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1229*/ curfptr[1228]);
  
@@ -90487,61 +44644,61 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1231*/ curfptr[1230]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#0", NULL != (/*_.CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING__V88*/ curfptr[87]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING__V88*/ curfptr[87]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#5", NULL != (/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V247*/ curfptr[246]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#7", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[7] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1233*/ curfptr[1232])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1107__COMPILOBJ_CONSLAMBDABIND#8", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1233*/ curfptr[1232])->tabval[8] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:2645:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2647:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1233*/ curfptr[1232]);
  
@@ -90563,67 +44720,67 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1235*/ curfptr[1234]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#1", NULL != (/*_.CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING__V89*/ curfptr[88]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING__V89*/ curfptr[88]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#5", NULL != (/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#6", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V237*/ curfptr[236]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#8", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1237*/ curfptr[1236])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1111__COMPILOBJ_CONSTUPLEBIND#9", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1237*/ curfptr[1236])->tabval[9] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:2689:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2691:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1237*/ curfptr[1236]);
  
@@ -90645,61 +44802,61 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1239*/ curfptr[1238]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V131*/ curfptr[130]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1115__PUTOBJDEST_OBJVALUE#2", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1115__PUTOBJDEST_OBJVALUE#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1115__PUTOBJDEST_OBJVALUE#6", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1115__PUTOBJDEST_OBJVALUE#8", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[8] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2728:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2730:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1241*/ curfptr[1240]);
  
@@ -90711,37 +44868,37 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1242*/ curfptr[1241]);
  
- MELT_LOCATION("warmelt-genobj.melt:2795:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ curfptr[1242])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2795:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1117__PUTOBJDEST_INTEGER#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ curfptr[1242])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2795:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1117__PUTOBJDEST_INTEGER#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ curfptr[1242])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2795:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ curfptr[1242])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:2795:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1117__PUTOBJDEST_INTEGER#4", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1243*/ curfptr[1242])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:2795:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2797:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1243*/ curfptr[1242]);
  
@@ -90753,37 +44910,37 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1244*/ curfptr[1243]);
  
- MELT_LOCATION("warmelt-genobj.melt:2821:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2821:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__PUTOBJDEST_STRING#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2821:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__PUTOBJDEST_STRING#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2821:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:2821:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1119__PUTOBJDEST_STRING#4", NULL != (/*_.CTYPE_CSTRING__V90*/ curfptr[89]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_CSTRING__V90*/ curfptr[89]);
  
- MELT_LOCATION("warmelt-genobj.melt:2821:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2823:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1245*/ curfptr[1244]);
  
@@ -90805,43 +44962,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1247*/ curfptr[1246]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__PUTOBJDEST_NULL#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__PUTOBJDEST_NULL#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__PUTOBJDEST_NULL#4", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1123__PUTOBJDEST_NULL#5", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[5] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:2844:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2846:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1249*/ curfptr[1248]);
  
@@ -90863,25 +45020,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1251*/ curfptr[1250]);
  
- MELT_LOCATION("warmelt-genobj.melt:2869:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:2869:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2869:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1253*/ curfptr[1252])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1253*/ curfptr[1252])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:2869:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2871:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1253*/ curfptr[1252]);
  
@@ -90893,25 +45050,25 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1254*/ curfptr[1253]);
  
- MELT_LOCATION("warmelt-genobj.melt:2897:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V413*/ curfptr[412]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]);
  
- MELT_LOCATION("warmelt-genobj.melt:2897:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1129__PUTOBJDEST_OBJMULTIBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2897:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1255*/ curfptr[1254])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1255*/ curfptr[1254])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:2897:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2899:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1255*/ curfptr[1254]);
  
@@ -90923,37 +45080,37 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1256*/ curfptr[1255]);
  
- MELT_LOCATION("warmelt-genobj.melt:2912:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V451*/ curfptr[450]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ curfptr[1256])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]);
  
- MELT_LOCATION("warmelt-genobj.melt:2912:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ curfptr[1256])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2912:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1131__PUTOBJDEST_OBJLOOP#2", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ curfptr[1256])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:2912:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ curfptr[1256])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:2912:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1131__PUTOBJDEST_OBJLOOP#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1257*/ curfptr[1256])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2912:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2914:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1257*/ curfptr[1256]);
  
@@ -90965,19 +45122,19 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1258*/ curfptr[1257]);
  
- MELT_LOCATION("warmelt-genobj.melt:2936:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V465*/ curfptr[464]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]);
  
- MELT_LOCATION("warmelt-genobj.melt:2936:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:2936:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2938:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1259*/ curfptr[1258]);
  
@@ -90989,49 +45146,49 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1260*/ curfptr[1259]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1135__COMPILOBJ_NREP_IF#0", NULL != (/*_.CLASS_NREP_IF__V92*/ curfptr[91]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_IF__V92*/ curfptr[91]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1135__COMPILOBJ_NREP_IF#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1135__COMPILOBJ_NREP_IF#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1135__COMPILOBJ_NREP_IF#3", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1135__COMPILOBJ_NREP_IF#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1135__COMPILOBJ_NREP_IF#5", NULL != (/*_.CLASS_NREP_NIL__V54*/ curfptr[53]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_NIL__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:2946:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2948:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1261*/ curfptr[1260]);
  
@@ -91053,67 +45210,67 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1263*/ curfptr[1262]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#0", NULL != (/*_.CLASS_NREP_IFISA__V93*/ curfptr[92]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_IFISA__V93*/ curfptr[92]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#3", NULL != (/*_.CLASS_CTYPE__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#5", NULL != (/*_.CLASS_NREP_NIL__V54*/ curfptr[53]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_NIL__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#7", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1139__COMPILOBJ_NREP_IFISA#8", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[8] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:2975:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:2977:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1265*/ curfptr[1264]);
  
@@ -91135,25 +45292,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1267*/ curfptr[1266]);
  
- MELT_LOCATION("warmelt-genobj.melt:3017:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:3017:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:3017:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:3017:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3019:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1269*/ curfptr[1268]);
  
@@ -91165,43 +45322,43 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1270*/ curfptr[1269]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ curfptr[1270])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1145__COMPILOBJ_NREP_CPPIF#0", NULL != (/*_.CLASS_NREP_CPPIF__V94*/ curfptr[93]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ curfptr[1270])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_CPPIF__V94*/ curfptr[93]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ curfptr[1270])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1145__COMPILOBJ_NREP_CPPIF#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ curfptr[1270])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ curfptr[1270])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1145__COMPILOBJ_NREP_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ curfptr[1270])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ curfptr[1270])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1145__COMPILOBJ_NREP_CPPIF#3", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ curfptr[1270])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ curfptr[1270])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1145__COMPILOBJ_NREP_CPPIF#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ curfptr[1270])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1271*/ curfptr[1270])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V511*/ curfptr[510]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1271*/ curfptr[1270])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]);
  
- MELT_LOCATION("warmelt-genobj.melt:3041:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3043:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1271*/ curfptr[1270]);
  
@@ -91223,25 +45380,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1273*/ curfptr[1272]);
  
- MELT_LOCATION("warmelt-genobj.melt:3069:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V511*/ curfptr[510]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]);
  
- MELT_LOCATION("warmelt-genobj.melt:3069:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:3069:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:3069:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3071:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1275*/ curfptr[1274]);
  
@@ -91253,113 +45410,113 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1276*/ curfptr[1275]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#0", NULL != (/*_.CLASS_NREP_RETURN__V95*/ curfptr[94]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_RETURN__V95*/ curfptr[94]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#3", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V807*/ curfptr[806]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#8", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[8] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V349*/ curfptr[348]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#10", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[10] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#11", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[11] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3117:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3119:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V349*/ curfptr[348]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]);
  
- MELT_LOCATION("warmelt-genobj.melt:3117:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3119:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1155__LAMBDA_#1", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[1] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3117:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3119:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1155__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1278*/ curfptr[1277])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3117:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3119:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1278*/ curfptr[1277]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1151__COMPILOBJ_NREP_RETURN#12", NULL != (/*_.VALROUT___V1278*/ curfptr[1277]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V1278*/ curfptr[1277]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1277*/ curfptr[1276])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V363*/ curfptr[362]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1277*/ curfptr[1276])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]);
  
- MELT_LOCATION("warmelt-genobj.melt:3093:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3095:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1277*/ curfptr[1276]);
  
@@ -91381,13 +45538,13 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1280*/ curfptr[1279]);
  
- MELT_LOCATION("warmelt-genobj.melt:3137:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3139:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1156__LAMBDA_#0", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[0] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3137:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3139:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1282*/ curfptr[1281]);
  
@@ -91401,7 +45558,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1283*/ curfptr[1282]);
  
- MELT_LOCATION("warmelt-genobj.melt:3139:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:3141:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284])) == OBMAG_OBJECT);
  
@@ -91419,7 +45576,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1286*/ curfptr[1285]);
  
- MELT_LOCATION("warmelt-genobj.melt:3139:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:3141:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284])) == OBMAG_OBJECT);
  
@@ -91427,141 +45584,141 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALDATA___V1286*/ curfptr[1285]);
  
- MELT_LOCATION("warmelt-genobj.melt:3139:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3141:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1285*/ curfptr[1284]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#1", NULL != (/*_.CLASS_NREP_LAMBDA__V96*/ curfptr[95]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_LAMBDA__V96*/ curfptr[95]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#3", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V940*/ curfptr[939]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V643*/ curfptr[642]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1285*/ curfptr[1284]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1285*/ curfptr[1284]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[9] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#10", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[10] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#11", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[11] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#12", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[12] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V729*/ curfptr[728]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#14", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[14] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#15", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[15] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3183:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1289*/ curfptr[1288])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1166__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1289*/ curfptr[1288])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3183:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1289*/ curfptr[1288])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V729*/ curfptr[728]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1289*/ curfptr[1288])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]);
  
- MELT_LOCATION("warmelt-genobj.melt:3183:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1289*/ curfptr[1288])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1166__LAMBDA_#2", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1289*/ curfptr[1288])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3183:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1289*/ curfptr[1288])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1166__LAMBDA_#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1289*/ curfptr[1288])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3183:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3185:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1289*/ curfptr[1288]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1162__COMPILOBJ_NREP_LAMBDA#16", NULL != (/*_.VALROUT___V1289*/ curfptr[1288]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V1289*/ curfptr[1288]);
  
- MELT_LOCATION("warmelt-genobj.melt:3145:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3147:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1288*/ curfptr[1287]);
  
@@ -91583,37 +45740,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1291*/ curfptr[1290]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#1", NULL != (/*_.CLASS_NREP_INSTANCE__V97*/ curfptr[96]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_INSTANCE__V97*/ curfptr[96]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#3", NULL != (/*_.CLASS_CLASS__V98*/ curfptr[97]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V98*/ curfptr[97]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -91629,125 +45786,125 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1294*/ curfptr[1293]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#6", NULL != (/*_.VALDATA___V1294*/ curfptr[1293]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[7] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V625*/ curfptr[624]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#10", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[10] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#11", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[11] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#12", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#13", NULL != (/*_.CLASS_FIELD__V77*/ curfptr[76]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[13] = (melt_ptr_t)(/*_.CLASS_FIELD__V77*/ curfptr[76]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#14", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[14] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#15", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#17", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[17] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1175__LAMBDA_#0", NULL != (/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_FIELDASSIGN__V81*/ curfptr[80]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1175__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V77*/ curfptr[76]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FIELD__V77*/ curfptr[76]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1175__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1175__LAMBDA_#3", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1175__LAMBDA_#5", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[5] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3231:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3233:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1296*/ curfptr[1295]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1167__COMPILOBJ_NREP_MAKEINST#18", NULL != (/*_.VALROUT___V1296*/ curfptr[1295]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[18] = (melt_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295]);
  
- MELT_LOCATION("warmelt-genobj.melt:3200:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3202:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1293*/ curfptr[1292]);
  
@@ -91779,25 +45936,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1300*/ curfptr[1299]);
  
- MELT_LOCATION("warmelt-genobj.melt:3258:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1302*/ curfptr[1301])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__COMPILOBJ_ROUTPROC#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1302*/ curfptr[1301])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3258:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1302*/ curfptr[1301])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__COMPILOBJ_ROUTPROC#1", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1302*/ curfptr[1301])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:3258:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1302*/ curfptr[1301])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1176__COMPILOBJ_ROUTPROC#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1302*/ curfptr[1301])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3258:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3260:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1302*/ curfptr[1301]);
  
@@ -91809,25 +45966,25 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1303*/ curfptr[1302]);
  
- MELT_LOCATION("warmelt-genobj.melt:3268:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ curfptr[1303])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1178__COMPILOBJ_PREDEF#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ curfptr[1303])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3268:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ curfptr[1303])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V189*/ curfptr[188]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ curfptr[1303])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]);
  
- MELT_LOCATION("warmelt-genobj.melt:3268:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1304*/ curfptr[1303])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1178__COMPILOBJ_PREDEF#2", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1304*/ curfptr[1303])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3268:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3270:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1304*/ curfptr[1303]);
  
@@ -91849,49 +46006,49 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1306*/ curfptr[1305]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#0", NULL != (/*_.CLASS_NREP_DATA__V43*/ curfptr[42]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATA__V43*/ curfptr[42]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V131*/ curfptr[130]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#4", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[4] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#5", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[5] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#6", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V78*/ curfptr[77]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V78*/ curfptr[77]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -91907,7 +46064,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1309*/ curfptr[1308]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#8", NULL != (/*_.VALDATA___V1309*/ curfptr[1308]));
@@ -91923,211 +46080,211 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1311*/ curfptr[1310]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#9", NULL != (/*_.VALDATA___V1311*/ curfptr[1310]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#10", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#11", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V275*/ curfptr[274]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#13", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[13] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#14", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[14] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V403*/ curfptr[402]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#16", NULL != (/*_.VALSTR___V1313*/ curfptr[1312]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[16] = (melt_ptr_t)(/*_.VALSTR___V1313*/ curfptr[1312]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#18", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[18] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#19", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[19] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#21", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[21] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:3361:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1314*/ curfptr[1313])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1189__LAMBDA_#0", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1314*/ curfptr[1313])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:3361:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1314*/ curfptr[1313])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1314*/ curfptr[1313])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:3361:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1314*/ curfptr[1313])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1189__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1314*/ curfptr[1313])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3361:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1314*/ curfptr[1313])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1314*/ curfptr[1313])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:3361:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3363:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1314*/ curfptr[1313]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#23", NULL != (/*_.VALROUT___V1314*/ curfptr[1313]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V1314*/ curfptr[1313]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#24", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[24] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#25", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[25] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#26", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[26] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[27] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-genobj.melt:3380:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ curfptr[1314])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ curfptr[1314])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3380:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ curfptr[1314])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__LAMBDA_#1", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ curfptr[1314])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:3380:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ curfptr[1314])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1190__LAMBDA_#2", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ curfptr[1314])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3380:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1315*/ curfptr[1314])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V679*/ curfptr[678]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1315*/ curfptr[1314])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-genobj.melt:3380:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3382:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1315*/ curfptr[1314]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#28", NULL != (/*_.VALROUT___V1315*/ curfptr[1314]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[28] = (melt_ptr_t)(/*_.VALROUT___V1315*/ curfptr[1314]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[30] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:3409:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3411:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1316*/ curfptr[1315])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1316*/ curfptr[1315])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:3409:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3411:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1316*/ curfptr[1315]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1308*/ curfptr[1307])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1182__COMPIL_DATA_AND_SLOTS_FILL#31", NULL != (/*_.VALROUT___V1316*/ curfptr[1315]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1308*/ curfptr[1307])->tabval[31] = (melt_ptr_t)(/*_.VALROUT___V1316*/ curfptr[1315]);
  
- MELT_LOCATION("warmelt-genobj.melt:3286:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3288:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1308*/ curfptr[1307]);
  
@@ -92139,47 +46296,47 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1317*/ curfptr[1316]);
  
- MELT_LOCATION("warmelt-genobj.melt:3431:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1318*/ curfptr[1317])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1318*/ curfptr[1317])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3431:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1318*/ curfptr[1317])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1318*/ curfptr[1317])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3431:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1318*/ curfptr[1317])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#2", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1318*/ curfptr[1317])->tabval[2] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3431:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1318*/ curfptr[1317])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1318*/ curfptr[1317])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:3436:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1319*/ curfptr[1318])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1048*/ curfptr[1047]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1319*/ curfptr[1318])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V1048*/ curfptr[1047]);
  
- MELT_LOCATION("warmelt-genobj.melt:3436:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3438:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1319*/ curfptr[1318]);
  
- MELT_LOCATION("warmelt-genobj.melt:3431:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1318*/ curfptr[1317])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1192__DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL#4", NULL != (/*_.VALROUT___V1319*/ curfptr[1318]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1318*/ curfptr[1317])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V1319*/ curfptr[1318]);
  
- MELT_LOCATION("warmelt-genobj.melt:3431:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3433:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1318*/ curfptr[1317]);
  
@@ -92191,67 +46348,67 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1320*/ curfptr[1319]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#1", NULL != (/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#6", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[6] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#7", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1195__COMPILOBJ_DATASYMBOL#8", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[8] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1321*/ curfptr[1320])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1317*/ curfptr[1316]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1321*/ curfptr[1320])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V1317*/ curfptr[1316]);
  
- MELT_LOCATION("warmelt-genobj.melt:3439:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3441:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1321*/ curfptr[1320]);
  
@@ -92263,61 +46420,61 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1322*/ curfptr[1321]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1197__COMPILOBJ_DATAINSTANCE#0", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[0] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1197__COMPILOBJ_DATAINSTANCE#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1197__COMPILOBJ_DATAINSTANCE#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V227*/ curfptr[226]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1197__COMPILOBJ_DATAINSTANCE#5", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[5] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1197__COMPILOBJ_DATAINSTANCE#6", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[6] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1197__COMPILOBJ_DATAINSTANCE#7", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1317*/ curfptr[1316]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1317*/ curfptr[1316]);
  
- MELT_LOCATION("warmelt-genobj.melt:3490:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3492:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1323*/ curfptr[1322]);
  
@@ -92329,71 +46486,71 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1324*/ curfptr[1323]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#0", NULL != (/*_.CLASS_NREP_DATATUPLE__V100*/ curfptr[99]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATATUPLE__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#4", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3586:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1326*/ curfptr[1325])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1203__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1326*/ curfptr[1325])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3586:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3588:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1326*/ curfptr[1325]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#6", NULL != (/*_.VALROUT___V1326*/ curfptr[1325]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V1326*/ curfptr[1325]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[7] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#8", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[8] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -92409,7 +46566,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1327*/ curfptr[1326]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#10", NULL != (/*_.VALDATA___V1327*/ curfptr[1326]));
@@ -92425,77 +46582,77 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1329*/ curfptr[1328]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#11", NULL != (/*_.VALDATA___V1329*/ curfptr[1328]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1329*/ curfptr[1328]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V237*/ curfptr[236]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#13", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[13] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#14", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[14] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#15", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[15] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V661*/ curfptr[660]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#17", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[17] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3614:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3616:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V661*/ curfptr[660]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]);
  
- MELT_LOCATION("warmelt-genobj.melt:3614:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3616:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1208__LAMBDA_#1", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[1] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3614:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3616:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1331*/ curfptr[1330]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1199__COMPILOBJ_DATATUPLE#18", NULL != (/*_.VALROUT___V1331*/ curfptr[1330]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[18] = (melt_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1325*/ curfptr[1324])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1325*/ curfptr[1324])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:3568:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3570:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1325*/ curfptr[1324]);
  
@@ -92517,43 +46674,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1333*/ curfptr[1332]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#0", NULL != (/*_.CLASS_NREP_DATASTRING__V101*/ curfptr[100]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATASTRING__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -92569,25 +46726,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1336*/ curfptr[1335]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#7", NULL != (/*_.VALDATA___V1336*/ curfptr[1335]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1336*/ curfptr[1335]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V263*/ curfptr[262]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1335*/ curfptr[1334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1209__COMPILOBJ_DATASTRING#9", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1335*/ curfptr[1334])->tabval[9] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3639:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3641:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1335*/ curfptr[1334]);
  
@@ -92609,43 +46766,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1339*/ curfptr[1338]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#0", NULL != (/*_.CLASS_NREP_DATABOXEDINTEGER__V102*/ curfptr[101]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATABOXEDINTEGER__V102*/ curfptr[101]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -92661,25 +46818,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1342*/ curfptr[1341]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#7", NULL != (/*_.VALDATA___V1342*/ curfptr[1341]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V1342*/ curfptr[1341]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V269*/ curfptr[268]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1341*/ curfptr[1340])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1215__COMPILOBJ_DATABOXEDINTEGER#9", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1341*/ curfptr[1340])->tabval[9] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3687:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3689:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1341*/ curfptr[1340]);
  
@@ -92701,43 +46858,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1345*/ curfptr[1344]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#0", NULL != (/*_.CLASS_NREP_DATACLOSURE__V103*/ curfptr[102]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATACLOSURE__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -92753,7 +46910,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1348*/ curfptr[1347]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#7", NULL != (/*_.VALDATA___V1348*/ curfptr[1347]));
@@ -92769,119 +46926,119 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1350*/ curfptr[1349]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#8", NULL != (/*_.VALDATA___V1350*/ curfptr[1349]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V1350*/ curfptr[1349]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#9", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V247*/ curfptr[246]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#11", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[11] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#12", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[12] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#13", NULL != (/*_.CLASS_NREP_DATAROUTINE__V104*/ curfptr[103]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V104*/ curfptr[103]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V715*/ curfptr[714]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V715*/ curfptr[714]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#15", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[15] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V841*/ curfptr[840]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[16] = (melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#17", NULL != (/*_.MULTIPLE_EVERY__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[17] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#18", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[18] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V729*/ curfptr[728]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#20", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[20] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1352*/ curfptr[1351])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1231__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1352*/ curfptr[1351])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3802:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1352*/ curfptr[1351])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V729*/ curfptr[728]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1352*/ curfptr[1351])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V729*/ curfptr[728]);
  
- MELT_LOCATION("warmelt-genobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1352*/ curfptr[1351])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1231__LAMBDA_#2", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1352*/ curfptr[1351])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3802:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3804:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1352*/ curfptr[1351]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1221__COMPILOBJ_DATACLOSURE#21", NULL != (/*_.VALROUT___V1352*/ curfptr[1351]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V1352*/ curfptr[1351]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1347*/ curfptr[1346])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1347*/ curfptr[1346])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:3735:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3737:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1347*/ curfptr[1346]);
  
@@ -92913,31 +47070,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1356*/ curfptr[1355]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#0", NULL != (/*_.CLASS_NREP_DATAROUTINE__V104*/ curfptr[103]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V104*/ curfptr[103]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V863*/ curfptr[862]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V863*/ curfptr[862]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -92953,55 +47110,55 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1359*/ curfptr[1358]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#5", NULL != (/*_.VALDATA___V1359*/ curfptr[1358]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V1359*/ curfptr[1358]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#6", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#7", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[8] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V253*/ curfptr[252]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V253*/ curfptr[252]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#10", NULL != (/*_.CTYPE_VALUE__V17*/ curfptr[16]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[10] = (melt_ptr_t)(/*_.CTYPE_VALUE__V17*/ curfptr[16]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#11", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[11] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#12", NULL != (/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#13", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
@@ -93017,143 +47174,143 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1361*/ curfptr[1360]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#14", NULL != (/*_.VALDATA___V1361*/ curfptr[1360]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V1361*/ curfptr[1360]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#15", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[15] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#16", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[16] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#17", NULL != (/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[17] = (melt_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#18", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[18] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#19", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[19] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#20", NULL != (/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[20] = (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V771*/ curfptr[770]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#22", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[22] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V753*/ curfptr[752]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#24", NULL != (/*_.CLASS_NREP_QUASIDATA__V105*/ curfptr[104]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[24] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA__V105*/ curfptr[104]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#1", NULL != (/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#2", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#4", NULL != (/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[4] = (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V771*/ curfptr[770]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#6", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[6] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V753*/ curfptr[752]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1238__LAMBDA_#8", NULL != (/*_.CLASS_NREP_QUASIDATA__V105*/ curfptr[104]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA__V105*/ curfptr[104]);
  
- MELT_LOCATION("warmelt-genobj.melt:3888:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3890:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1363*/ curfptr[1362]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1232__COMPILOBJ_DATAROUTINE#25", NULL != (/*_.VALROUT___V1363*/ curfptr[1362]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[25] = (melt_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1358*/ curfptr[1357])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1358*/ curfptr[1357])->tabval[26] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:3826:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3828:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1358*/ curfptr[1357]);
  
@@ -93175,25 +47332,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1365*/ curfptr[1364]);
  
- MELT_LOCATION("warmelt-genobj.melt:3953:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1367*/ curfptr[1366])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1367*/ curfptr[1366])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]);
  
- MELT_LOCATION("warmelt-genobj.melt:3953:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1367*/ curfptr[1366])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1367*/ curfptr[1366])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-genobj.melt:3953:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1367*/ curfptr[1366])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1241__COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1367*/ curfptr[1366])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3953:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3955:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1367*/ curfptr[1366]);
  
@@ -93215,25 +47372,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1369*/ curfptr[1368]);
  
- MELT_LOCATION("warmelt-genobj.melt:3965:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1371*/ curfptr[1370])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V107*/ curfptr[106]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1371*/ curfptr[1370])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V107*/ curfptr[106]);
  
- MELT_LOCATION("warmelt-genobj.melt:3965:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1371*/ curfptr[1370])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1371*/ curfptr[1370])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-genobj.melt:3965:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1371*/ curfptr[1370])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1245__COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1371*/ curfptr[1370])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3965:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3967:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1371*/ curfptr[1370]);
  
@@ -93255,61 +47412,61 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1373*/ curfptr[1372]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#0", NULL != (/*_.CLASS_NREP_STORE_PREDEFINED__V108*/ curfptr[107]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_STORE_PREDEFINED__V108*/ curfptr[107]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#3", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[3] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#6", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#7", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1375*/ curfptr[1374])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1249__COMPILOBJ_NREP_STORE_PREDEFINED#8", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1375*/ curfptr[1374])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:3977:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:3979:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1375*/ curfptr[1374]);
  
@@ -93331,285 +47488,285 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1377*/ curfptr[1376]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V109*/ curfptr[108]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V109*/ curfptr[108]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_GENERATION_CONTEXT__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V403*/ curfptr[402]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#6", NULL != (/*_.DISCR_STRING__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[6] = (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[7] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#8", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[8] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#9", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[9] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V841*/ curfptr[840]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#11", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[11] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#12", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V253*/ curfptr[252]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V253*/ curfptr[252]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#14", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[14] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#15", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[15] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#16", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[16] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V753*/ curfptr[752]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[17] = (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#18", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[18] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#21", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[21] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V841*/ curfptr[840]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#3", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V253*/ curfptr[252]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V253*/ curfptr[252]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#5", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[5] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#7", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V753*/ curfptr[752]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#9", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[9] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#12", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[12] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1258__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1258__LAMBDA_#1", NULL != (/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V753*/ curfptr[752]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V753*/ curfptr[752]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1258__LAMBDA_#3", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V777*/ curfptr[776]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1258__LAMBDA_#5", NULL != (/*_.VALSTR___V1382*/ curfptr[1381]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[5] = (melt_ptr_t)(/*_.VALSTR___V1382*/ curfptr[1381]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V325*/ curfptr[324]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1258__LAMBDA_#7", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1381*/ curfptr[1380])->tabval[7] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:4081:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4083:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1381*/ curfptr[1380]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1257__LAMBDA_#13", NULL != (/*_.VALROUT___V1381*/ curfptr[1380]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[13] = (melt_ptr_t)(/*_.VALROUT___V1381*/ curfptr[1380]);
  
- MELT_LOCATION("warmelt-genobj.melt:4064:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4066:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1380*/ curfptr[1379]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1253__COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#22", NULL != (/*_.VALROUT___V1380*/ curfptr[1379]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[22] = (melt_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379]);
  
- MELT_LOCATION("warmelt-genobj.melt:4032:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4034:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1379*/ curfptr[1378]);
  
@@ -93641,7 +47798,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1386*/ curfptr[1385]);
  
- MELT_LOCATION("warmelt-genobj.melt:4136:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4138:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387])) == OBMAG_OBJECT);
  
@@ -93649,7 +47806,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1389*/ curfptr[1388]);
  
- MELT_LOCATION("warmelt-genobj.melt:4136:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4138:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1388*/ curfptr[1387]);
  
@@ -93673,7 +47830,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1392*/ curfptr[1391]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393])) == OBMAG_OBJECT);
  
@@ -93681,7 +47838,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1395*/ curfptr[1394]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393])) == OBMAG_OBJECT);
  
@@ -93702,7 +47859,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V1396*/ curfptr[1395]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393])) == OBMAG_OBJECT);
  
@@ -93710,7 +47867,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]))->obj_vartab[5] = (melt_ptr_t)(
   /*_.VALTUP___V1396*/ curfptr[1395]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396])) == OBMAG_OBJECT);
  
@@ -93718,7 +47875,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1398*/ curfptr[1397]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396])) == OBMAG_OBJECT);
  
@@ -93726,11 +47883,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1397*/ curfptr[1396]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1397*/ curfptr[1396]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1399*/ curfptr[1398])) == OBMAG_OBJECT);
  
@@ -93738,7 +47895,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1399*/ curfptr[1398]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1400*/ curfptr[1399]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1399*/ curfptr[1398])) == OBMAG_OBJECT);
  
@@ -93746,11 +47903,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1399*/ curfptr[1398]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1399*/ curfptr[1398]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400])) == OBMAG_OBJECT);
  
@@ -93758,7 +47915,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1402*/ curfptr[1401]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400])) == OBMAG_OBJECT);
  
@@ -93766,11 +47923,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1401*/ curfptr[1400]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1401*/ curfptr[1400]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402])) == OBMAG_OBJECT);
  
@@ -93778,7 +47935,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1404*/ curfptr[1403]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402])) == OBMAG_OBJECT);
  
@@ -93786,11 +47943,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1403*/ curfptr[1402]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404])) == OBMAG_OBJECT);
  
@@ -93798,7 +47955,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1406*/ curfptr[1405]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404])) == OBMAG_OBJECT);
  
@@ -93806,11 +47963,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1405*/ curfptr[1404]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406])) == OBMAG_OBJECT);
  
@@ -93818,7 +47975,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1408*/ curfptr[1407]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406])) == OBMAG_OBJECT);
  
@@ -93826,11 +47983,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1407*/ curfptr[1406]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1407*/ curfptr[1406]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
  
@@ -93838,7 +47995,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1410*/ curfptr[1409]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408])) == OBMAG_OBJECT);
  
@@ -93846,7 +48003,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1409*/ curfptr[1408]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1409*/ curfptr[1408]);
  
@@ -93893,7 +48050,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V1411*/ curfptr[1410]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393])) == OBMAG_OBJECT);
  
@@ -93901,7 +48058,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]))->obj_vartab[6] = (melt_ptr_t)(
   /*_.VALTUP___V1411*/ curfptr[1410]);
  
- MELT_LOCATION("warmelt-genobj.melt:4140:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4142:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1394*/ curfptr[1393]);
  
@@ -93985,7 +48142,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1426*/ curfptr[1425]);
  
- MELT_LOCATION("warmelt-genobj.melt:4158:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4160:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427])) == OBMAG_OBJECT);
  
@@ -93993,7 +48150,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1429*/ curfptr[1428]);
  
- MELT_LOCATION("warmelt-genobj.melt:4158:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4160:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1428*/ curfptr[1427]);
  
@@ -94007,7 +48164,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1430*/ curfptr[1429]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431])) == OBMAG_OBJECT);
  
@@ -94015,7 +48172,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1433*/ curfptr[1432]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431])) == OBMAG_OBJECT);
  
@@ -94036,7 +48193,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V1434*/ curfptr[1433]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431])) == OBMAG_OBJECT);
  
@@ -94044,7 +48201,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))->obj_vartab[5] = (melt_ptr_t)(
   /*_.VALTUP___V1434*/ curfptr[1433]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
  
@@ -94052,7 +48209,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1436*/ curfptr[1435]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434])) == OBMAG_OBJECT);
  
@@ -94060,11 +48217,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1435*/ curfptr[1434]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1435*/ curfptr[1434]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436])) == OBMAG_OBJECT);
  
@@ -94072,7 +48229,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1438*/ curfptr[1437]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436])) == OBMAG_OBJECT);
  
@@ -94080,11 +48237,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1437*/ curfptr[1436]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1437*/ curfptr[1436]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1439*/ curfptr[1438])) == OBMAG_OBJECT);
  
@@ -94092,7 +48249,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1439*/ curfptr[1438]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V1440*/ curfptr[1439]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1439*/ curfptr[1438])) == OBMAG_OBJECT);
  
@@ -94100,7 +48257,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1439*/ curfptr[1438]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1439*/ curfptr[1438]);
  
@@ -94127,7 +48284,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V1441*/ curfptr[1440]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ putslot");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431])) == OBMAG_OBJECT);
  
@@ -94135,7 +48292,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]))->obj_vartab[6] = (melt_ptr_t)(
   /*_.VALTUP___V1441*/ curfptr[1440]);
  
- MELT_LOCATION("warmelt-genobj.melt:4161:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4163:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1432*/ curfptr[1431]);
  
@@ -94169,31 +48326,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1446*/ curfptr[1445]);
  
- MELT_LOCATION("warmelt-genobj.melt:4171:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ curfptr[1447])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1322__COMPILTST_ANYTESTER#0", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ curfptr[1447])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4171:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ curfptr[1447])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1322__COMPILTST_ANYTESTER#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ curfptr[1447])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4171:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ curfptr[1447])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ curfptr[1447])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4171:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1448*/ curfptr[1447])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1322__COMPILTST_ANYTESTER#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1448*/ curfptr[1447])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4171:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4173:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1448*/ curfptr[1447]);
  
@@ -94215,121 +48372,121 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1450*/ curfptr[1449]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#0", NULL != (/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#4", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[4] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V413*/ curfptr[412]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V437*/ curfptr[436]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#8", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[8] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#11", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[11] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#12", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#13", NULL != (/*_.CLASS_NORMTESTER_ANYTESTER__V113*/ curfptr[112]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANYTESTER__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-genobj.melt:4389:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1454*/ curfptr[1453])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__NORMTESTER_LABELINSTR#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1454*/ curfptr[1453])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4389:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1454*/ curfptr[1453])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__NORMTESTER_LABELINSTR#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1454*/ curfptr[1453])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4389:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1454*/ curfptr[1453])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__NORMTESTER_LABELINSTR#2", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1454*/ curfptr[1453])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4389:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1454*/ curfptr[1453])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1341__NORMTESTER_LABELINSTR#3", NULL != (/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1454*/ curfptr[1453])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]);
  
- MELT_LOCATION("warmelt-genobj.melt:4389:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1454*/ curfptr[1453])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1454*/ curfptr[1453])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]);
  
- MELT_LOCATION("warmelt-genobj.melt:4389:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4391:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1454*/ curfptr[1453]);
  
@@ -94341,101 +48498,101 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1453*/ curfptr[1452]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1453*/ curfptr[1452]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V1453*/ curfptr[1452]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1428*/ curfptr[1427]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V1428*/ curfptr[1427]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#16", NULL != (/*_.LIST_APPEND2LIST__V114*/ curfptr[113]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[16] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V114*/ curfptr[113]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#17", NULL != (/*_.CLASS_NORMTESTER_SUCCESS__V115*/ curfptr[114]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[17] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_SUCCESS__V115*/ curfptr[114]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#18", NULL != (/*_.MAPOBJECT_EVERY__V116*/ curfptr[115]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[18] = (melt_ptr_t)(/*_.MAPOBJECT_EVERY__V116*/ curfptr[115]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#19", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[19] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#20", NULL != (/*_.LIST_FIND__V117*/ curfptr[116]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[20] = (melt_ptr_t)(/*_.LIST_FIND__V117*/ curfptr[116]);
  
- MELT_LOCATION("warmelt-genobj.melt:4324:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1338__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4324:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1338__LAMBDA_#1", NULL != (/*_.LIST_FIND__V117*/ curfptr[116]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[1] = (melt_ptr_t)(/*_.LIST_FIND__V117*/ curfptr[116]);
  
- MELT_LOCATION("warmelt-genobj.melt:4324:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4326:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1455*/ curfptr[1454]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#21", NULL != (/*_.VALROUT___V1455*/ curfptr[1454]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#22", NULL != (/*_.LIST_FIND__V117*/ curfptr[116]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[22] = (melt_ptr_t)(/*_.LIST_FIND__V117*/ curfptr[116]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[23] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1046*/ curfptr[1045]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[24] = (melt_ptr_t)(/*_.VALCLO___V1046*/ curfptr[1045]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#25", NULL != (/*_.LIST_TO_MULTIPLE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[25] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1452*/ curfptr[1451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1326__COMPILOBJ_NREP_MATCH#26", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1452*/ curfptr[1451])->tabval[26] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:4185:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4187:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1452*/ curfptr[1451]);
  
@@ -94507,37 +48664,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1467*/ curfptr[1466]);
  
- MELT_LOCATION("warmelt-genobj.melt:4421:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ curfptr[1468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1343__NORMTESTER_GOTOINSTR#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ curfptr[1468])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4421:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ curfptr[1468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1343__NORMTESTER_GOTOINSTR#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ curfptr[1468])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4421:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ curfptr[1468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1343__NORMTESTER_GOTOINSTR#2", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ curfptr[1468])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4421:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ curfptr[1468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1343__NORMTESTER_GOTOINSTR#3", NULL != (/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ curfptr[1468])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]);
  
- MELT_LOCATION("warmelt-genobj.melt:4421:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1469*/ curfptr[1468])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V437*/ curfptr[436]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1469*/ curfptr[1468])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]);
  
- MELT_LOCATION("warmelt-genobj.melt:4421:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4423:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1469*/ curfptr[1468]);
  
@@ -94549,43 +48706,43 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1470*/ curfptr[1469]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1471*/ curfptr[1470])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1345__ENDMATCH_GOTOINSTR#0", NULL != (/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1471*/ curfptr[1470])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1471*/ curfptr[1470])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1345__ENDMATCH_GOTOINSTR#1", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1471*/ curfptr[1470])->tabval[1] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1471*/ curfptr[1470])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1345__ENDMATCH_GOTOINSTR#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1471*/ curfptr[1470])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1471*/ curfptr[1470])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1345__ENDMATCH_GOTOINSTR#3", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1471*/ curfptr[1470])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1471*/ curfptr[1470])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V437*/ curfptr[436]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1471*/ curfptr[1470])->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1471*/ curfptr[1470])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1345__ENDMATCH_GOTOINSTR#5", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1471*/ curfptr[1470])->tabval[5] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4454:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4456:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1471*/ curfptr[1470]);
  
@@ -94597,49 +48754,49 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1472*/ curfptr[1471]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__TESTMATCH_GOTOINSTR#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__TESTMATCH_GOTOINSTR#1", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__TESTMATCH_GOTOINSTR#2", NULL != (/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__TESTMATCH_GOTOINSTR#3", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[3] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__TESTMATCH_GOTOINSTR#4", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V437*/ curfptr[436]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1473*/ curfptr[1472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1347__TESTMATCH_GOTOINSTR#6", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1473*/ curfptr[1472])->tabval[6] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4478:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4480:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1473*/ curfptr[1472]);
  
@@ -94651,89 +48808,89 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1474*/ curfptr[1473]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#1", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#4", NULL != (/*_.LIST_MAP__V37*/ curfptr[36]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[4] = (melt_ptr_t)(/*_.LIST_MAP__V37*/ curfptr[36]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#5", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#7", NULL != (/*_.CLASS_NREP_SYMOCC__V70*/ curfptr[69]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V70*/ curfptr[69]);
  
- MELT_LOCATION("warmelt-genobj.melt:4517:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ curfptr[1475])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1351__LAMBDA_#0", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ curfptr[1475])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-genobj.melt:4517:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ curfptr[1475])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V946*/ curfptr[945]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ curfptr[1475])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V946*/ curfptr[945]);
  
- MELT_LOCATION("warmelt-genobj.melt:4517:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1476*/ curfptr[1475])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1351__LAMBDA_#2", NULL != (/*_.CLASS_NREP_SYMOCC__V70*/ curfptr[69]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1476*/ curfptr[1475])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_SYMOCC__V70*/ curfptr[69]);
  
- MELT_LOCATION("warmelt-genobj.melt:4517:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4519:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1476*/ curfptr[1475]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#8", NULL != (/*_.VALROUT___V1476*/ curfptr[1475]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V1476*/ curfptr[1475]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1475*/ curfptr[1474])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1349__NORMTESTER_FREE_OBJLOC_LIST#9", NULL != (/*_.LIST_APPEND2LIST__V114*/ curfptr[113]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1475*/ curfptr[1474])->tabval[9] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V114*/ curfptr[113]);
  
- MELT_LOCATION("warmelt-genobj.melt:4504:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4506:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1475*/ curfptr[1474]);
  
@@ -94745,25 +48902,25 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1477*/ curfptr[1476]);
  
- MELT_LOCATION("warmelt-genobj.melt:4535:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1478*/ curfptr[1477])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1352__COMPILTST_NORMTESTER_ANY#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1478*/ curfptr[1477])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4535:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1478*/ curfptr[1477])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1352__COMPILTST_NORMTESTER_ANY#1", NULL != (/*_.CLASS_NREP__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1478*/ curfptr[1477])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NREP__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-genobj.melt:4535:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1478*/ curfptr[1477])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1352__COMPILTST_NORMTESTER_ANY#2", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1478*/ curfptr[1477])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:4535:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4537:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1478*/ curfptr[1477]);
  
@@ -94775,91 +48932,91 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V1479*/ curfptr[1478]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1354__COMPILTST_NORMTESTER_MATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1354__COMPILTST_NORMTESTER_MATCHER#1", NULL != (/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1354__COMPILTST_NORMTESTER_MATCHER#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1470*/ curfptr[1469]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1470*/ curfptr[1469]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1354__COMPILTST_NORMTESTER_MATCHER#5", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[5] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1477*/ curfptr[1476]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1477*/ curfptr[1476]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1474*/ curfptr[1473]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V1474*/ curfptr[1473]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1472*/ curfptr[1471]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1472*/ curfptr[1471]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1394*/ curfptr[1393]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1354__COMPILTST_NORMTESTER_MATCHER#12", NULL != (/*_.DISCR_INTEGER__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1480*/ curfptr[1479])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1388*/ curfptr[1387]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1480*/ curfptr[1479])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1388*/ curfptr[1387]);
  
- MELT_LOCATION("warmelt-genobj.melt:4545:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4547:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1480*/ curfptr[1479]);
  
@@ -94881,127 +49038,127 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1482*/ curfptr[1481]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#1", NULL != (/*_.CLASS_NORMTESTER_INSTANCE__V119*/ curfptr[118]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_INSTANCE__V119*/ curfptr[118]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#4", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1472*/ curfptr[1471]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1472*/ curfptr[1471]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1470*/ curfptr[1469]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1470*/ curfptr[1469]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#7", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[7] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1477*/ curfptr[1476]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V1477*/ curfptr[1476]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V285*/ curfptr[284]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#11", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#12", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[12] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#16", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[16] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#17", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[17] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1358__COMPILTST_NORMTESTER_INSTANCE#18", NULL != (/*_.CLASS_NREP_UNSAFE_GET_FIELD__V79*/ curfptr[78]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V79*/ curfptr[78]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V887*/ curfptr[886]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[19] = (melt_ptr_t)(/*_.VALDATA___V887*/ curfptr[886]);
  
- MELT_LOCATION("warmelt-genobj.melt:4621:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4623:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1484*/ curfptr[1483]);
  
@@ -95023,103 +49180,103 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1486*/ curfptr[1485]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#1", NULL != (/*_.CLASS_NORMTESTER_SAME__V120*/ curfptr[119]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_SAME__V120*/ curfptr[119]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#4", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[4] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1472*/ curfptr[1471]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1472*/ curfptr[1471]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1470*/ curfptr[1469]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V1470*/ curfptr[1469]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1477*/ curfptr[1476]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V1477*/ curfptr[1476]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#8", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V285*/ curfptr[284]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#11", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1362__COMPILTST_NORMTESTER_SAME#12", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[12] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V147*/ curfptr[146]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1488*/ curfptr[1487])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1488*/ curfptr[1487])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:4727:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4729:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1488*/ curfptr[1487]);
  
@@ -95141,49 +49298,49 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1490*/ curfptr[1489]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1366__COMPILTST_NORMTESTER_SUCCESS#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1366__COMPILTST_NORMTESTER_SUCCESS#1", NULL != (/*_.CLASS_NORMTESTER_SUCCESS__V115*/ curfptr[114]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_SUCCESS__V115*/ curfptr[114]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1366__COMPILTST_NORMTESTER_SUCCESS#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1472*/ curfptr[1471]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1472*/ curfptr[1471]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1366__COMPILTST_NORMTESTER_SUCCESS#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1492*/ curfptr[1491])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1366__COMPILTST_NORMTESTER_SUCCESS#6", NULL != (/*_.LIST2__V121*/ curfptr[120]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1492*/ curfptr[1491])->tabval[6] = (melt_ptr_t)(/*_.LIST2__V121*/ curfptr[120]);
  
- MELT_LOCATION("warmelt-genobj.melt:4804:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4806:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1492*/ curfptr[1491]);
  
@@ -95205,43 +49362,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1494*/ curfptr[1493]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1370__COMPILTST_NORMTESTER_DISJUNCTION#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1370__COMPILTST_NORMTESTER_DISJUNCTION#1", NULL != (/*_.CLASS_NORMTESTER_DISJUNCTION__V122*/ curfptr[121]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_DISJUNCTION__V122*/ curfptr[121]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1370__COMPILTST_NORMTESTER_DISJUNCTION#2", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[2] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1432*/ curfptr[1431]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V1432*/ curfptr[1431]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1472*/ curfptr[1471]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V1472*/ curfptr[1471]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1470*/ curfptr[1469]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V1470*/ curfptr[1469]);
  
- MELT_LOCATION("warmelt-genobj.melt:4842:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4844:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1496*/ curfptr[1495]);
  
@@ -95263,353 +49420,353 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1498*/ curfptr[1497]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#1", NULL != (/*_.CLASS_CMATCHER__V123*/ curfptr[122]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V123*/ curfptr[122]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1394*/ curfptr[1393]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#3", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[3] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#4", NULL != (/*_.DISCR_MAP_OBJECTS__V28*/ curfptr[27]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V28*/ curfptr[27]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#5", NULL != (/*_.DISCR_STRBUF__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRBUF__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#6", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#7", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#8", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#9", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[9] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#10", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[10] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#11", NULL != (/*_.MULTIPLE_EVERY_BOTH__V124*/ curfptr[123]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[11] = (melt_ptr_t)(/*_.MULTIPLE_EVERY_BOTH__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#12", NULL != (/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#13", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[13] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#14", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[14] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#15", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[15] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#16", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[16] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:4914:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ curfptr[1500])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1380__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ curfptr[1500])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4914:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ curfptr[1500])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1380__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ curfptr[1500])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:4914:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ curfptr[1500])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1380__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ curfptr[1500])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4914:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1501*/ curfptr[1500])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1380__LAMBDA_#3", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1501*/ curfptr[1500])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:4914:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4916:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1501*/ curfptr[1500]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#17", NULL != (/*_.VALROUT___V1501*/ curfptr[1500]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[17] = (melt_ptr_t)(/*_.VALROUT___V1501*/ curfptr[1500]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#18", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[18] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#19", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#20", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[20] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#21", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[21] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:4928:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1381__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:4928:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1381__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:4928:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1381__LAMBDA_#2", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[2] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:4928:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1381__LAMBDA_#3", NULL != (/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-genobj.melt:4928:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4930:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1502*/ curfptr[1501]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#22", NULL != (/*_.VALROUT___V1502*/ curfptr[1501]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[22] = (melt_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#23", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[23] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#24", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[24] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1394*/ curfptr[1393]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[25] = (melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#26", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[26] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#27", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[27] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__LAMBDA_#0", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1503*/ curfptr[1502])->tabval[0] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1503*/ curfptr[1502])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1394*/ curfptr[1393]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1503*/ curfptr[1502])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1503*/ curfptr[1502])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__LAMBDA_#4", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1503*/ curfptr[1502])->tabval[4] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4945:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1504*/ curfptr[1503])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1383__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1504*/ curfptr[1503])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-genobj.melt:4945:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1504*/ curfptr[1503])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1394*/ curfptr[1393]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1504*/ curfptr[1503])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:4945:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1504*/ curfptr[1503])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1383__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1504*/ curfptr[1503])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-genobj.melt:4945:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1504*/ curfptr[1503])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1383__LAMBDA_#3", NULL != (/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1504*/ curfptr[1503])->tabval[3] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-genobj.melt:4945:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4947:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1504*/ curfptr[1503]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1382__LAMBDA_#5", NULL != (/*_.VALROUT___V1504*/ curfptr[1503]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1503*/ curfptr[1502])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V1504*/ curfptr[1503]);
  
- MELT_LOCATION("warmelt-genobj.melt:4942:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4944:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1503*/ curfptr[1502]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#28", NULL != (/*_.VALROUT___V1503*/ curfptr[1502]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[28] = (melt_ptr_t)(/*_.VALROUT___V1503*/ curfptr[1502]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V285*/ curfptr[284]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[29] = (melt_ptr_t)(/*_.VALDATA___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#30", NULL != (/*_.CTYPE_LONG__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[30] = (melt_ptr_t)(/*_.CTYPE_LONG__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#31", NULL != (/*_.CTYPE_VOID__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[31] = (melt_ptr_t)(/*_.CTYPE_VOID__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#32", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[32] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[33] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[34] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1374__COMPILMATCHER_CMATCHER#35", NULL != (/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[35] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V31*/ curfptr[30]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[36] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:4862:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:4864:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1500*/ curfptr[1499]);
  
@@ -95641,99 +49798,99 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1508*/ curfptr[1507]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#1", NULL != (/*_.CLASS_FUNMATCHER__V125*/ curfptr[124]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V125*/ curfptr[124]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1394*/ curfptr[1393]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V1394*/ curfptr[1393]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#3", NULL != (/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[3] = (melt_ptr_t)(/*_.CLASS_C_GENERATION_CONTEXT__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#4", NULL != (/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#5", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[5] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#6", NULL != (/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#7", NULL != (/*_.MULTIPLE_MAP__V30*/ curfptr[29]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[7] = (melt_ptr_t)(/*_.MULTIPLE_MAP__V30*/ curfptr[29]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#8", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[8] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:5054:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5056:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1511*/ curfptr[1510])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1388__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1511*/ curfptr[1510])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:5054:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:5056:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1511*/ curfptr[1510]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#9", NULL != (/*_.VALROUT___V1511*/ curfptr[1510]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V1511*/ curfptr[1510]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#10", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[10] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:5059:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5061:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1389__LAMBDA_#0", NULL != (/*_.COMPILE_OBJ__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[0] = (melt_ptr_t)(/*_.COMPILE_OBJ__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-genobj.melt:5059:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:5061:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1512*/ curfptr[1511]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#11", NULL != (/*_.VALROUT___V1512*/ curfptr[1511]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V940*/ curfptr[939]);
@@ -95749,73 +49906,73 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V1513*/ curfptr[1512]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#13", NULL != (/*_.VALDATA___V1513*/ curfptr[1512]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V1513*/ curfptr[1512]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#14", NULL != (/*_.DISCR_MULTIPLE__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[14] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V701*/ curfptr[700]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[15] = (melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#16", NULL != (/*_.LIST1__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[16] = (melt_ptr_t)(/*_.LIST1__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#17", NULL != (/*_.FMATCH_MATCHF__V126*/ curfptr[125]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[17] = (melt_ptr_t)(/*_.FMATCH_MATCHF__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V587*/ curfptr[586]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconst");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_1384__COMPILMATCHER_FUNMATCHER#19", NULL != (/*_.DISCR_LIST__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[19] = (melt_ptr_t)(/*_.DISCR_LIST__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V379*/ curfptr[378]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[20] = (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[21] = (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V369*/ curfptr[368]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[22] = (melt_ptr_t)(/*_.VALDATA___V369*/ curfptr[368]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V1510*/ curfptr[1509])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1046*/ curfptr[1045]);
  ((meltroutine_ptr_t)/*_.VALROUT___V1510*/ curfptr[1509])->tabval[23] = (melt_ptr_t)(/*_.VALCLO___V1046*/ curfptr[1045]);
  
- MELT_LOCATION("warmelt-genobj.melt:5029:/ touch");
+ MELT_LOCATION("warmelt-genobj.melt:5031:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V1510*/ curfptr[1509]);
  
@@ -98154,32 +52311,32 @@ initial_frame_st     curfram__;
   MELT_LOCATION("warmelt-genobj.melt:677:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1532*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1129:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1131:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1129:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1131:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1533*/ curfptr[1521] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1129:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1131:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1129:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1131:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1010*/ curfptr[1009];
-   MELT_LOCATION("warmelt-genobj.melt:1129:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1131:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPILE2OBJ_INITPROC*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1533*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1129:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1131:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1129:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1131:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V950*/ curfptr[949];
-   MELT_LOCATION("warmelt-genobj.melt:1129:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1131:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPILE2OBJ_PROCEDURE*/
 /*_.CONTENV___V2*/ curfptr[1];
@@ -98187,260 +52344,260 @@ initial_frame_st     curfram__;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1129:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1131:/ clear");
   /*clear*/ /*_.VALUEXPORTER___V1533*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1377:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1379:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1377:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1379:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1377:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1379:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1377:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1379:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1055*/ curfptr[1054];
    /*_.INSTALL_METHOD__V1534*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_CHUNK__V52*/ curfptr[51]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1377:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1379:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1534*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1384:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1386:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1384:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1386:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1384:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1386:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GET_CTYPE__V16*/ curfptr[15];
-   MELT_LOCATION("warmelt-genobj.melt:1384:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1386:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1059*/ curfptr[1058];
    /*_.INSTALL_METHOD__V1535*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_TYPED_EXPRESSION__V53*/ curfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1384:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1386:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1535*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1396:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1398:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1396:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1398:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1396:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1398:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1396:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1398:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1063*/ curfptr[1062];
    /*_.INSTALL_METHOD__V1536*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_NIL__V54*/ curfptr[53]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1396:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1398:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1536*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1419:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1421:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1419:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1421:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1419:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1421:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1419:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1421:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1067*/ curfptr[1066];
    /*_.INSTALL_METHOD__V1537*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_COMMENT__V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1419:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1421:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1537*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1457:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1459:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1457:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1459:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1457:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1459:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1457:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1459:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1071*/ curfptr[1070];
    /*_.INSTALL_METHOD__V1538*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1457:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1459:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1538*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1511:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1513:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1511:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1513:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1511:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1513:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1511:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1513:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1075*/ curfptr[1074];
    /*_.INSTALL_METHOD__V1539*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_CLOSEDOCC__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1511:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1513:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1539*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1563:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1565:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1563:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1565:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1563:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1565:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1563:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1565:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1079*/ curfptr[1078];
    /*_.INSTALL_METHOD__V1540*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_CONSTOCC__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1563:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1565:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1540*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1579:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1581:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1579:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1581:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1579:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1581:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1579:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1581:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1083*/ curfptr[1082];
    /*_.INSTALL_METHOD__V1541*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_IMPORTEDVAL__V41*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1579:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1581:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1541*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1640:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1642:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1640:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1642:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1640:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1642:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1640:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1642:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1087*/ curfptr[1086];
    /*_.INSTALL_METHOD__V1542*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_QUASICONSTANT__V60*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1640:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1642:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1542*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1667:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1669:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1667:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1669:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1667:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1669:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1667:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1669:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1091*/ curfptr[1090];
    /*_.INSTALL_METHOD__V1543*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1667:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1669:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1543*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1711:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1713:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1711:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1713:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1711:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1713:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1711:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1713:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1096*/ curfptr[1095];
    /*_.INSTALL_METHOD__V1544*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_FOREVER__V62*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1711:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1713:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1544*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1751:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1753:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1751:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1753:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1751:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1753:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1751:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1753:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1104*/ curfptr[1103];
    /*_.INSTALL_METHOD__V1545*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_EXIT__V65*/ curfptr[64]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1751:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1753:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1545*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1759:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1761:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1759:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1761:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1759:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1761:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1759:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1761:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1108*/ curfptr[1107];
    /*_.INSTALL_METHOD__V1546*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1759:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1761:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1546*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1863:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1865:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1863:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1865:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1863:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1865:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1863:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1865:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1113*/ curfptr[1112];
    /*_.INSTALL_METHOD__V1547*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_LET__V66*/ curfptr[65]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1863:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1865:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1547*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1879:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1881:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1879:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:1881:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1548*/ curfptr[1521] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:1879:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1881:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1879:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1881:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1138*/ curfptr[1137];
-   MELT_LOCATION("warmelt-genobj.melt:1879:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1881:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_LETREC_FILL*/
 /*_.CONTENV___V2*/ curfptr[1];
@@ -98448,848 +52605,848 @@ initial_frame_st     curfram__;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1879:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1881:/ clear");
   /*clear*/ /*_.VALUEXPORTER___V1548*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1889:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1891:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1889:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1891:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1889:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1891:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1138*/ curfptr[1137];
-   MELT_LOCATION("warmelt-genobj.melt:1889:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1891:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1141*/ curfptr[1140];
    /*_.INSTALL_METHOD__V1549*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1889:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1891:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1549*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:1966:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:1968:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:1966:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:1968:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:1966:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1968:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:1966:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:1968:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1145*/ curfptr[1144];
    /*_.INSTALL_METHOD__V1550*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_LETREC__V69*/ curfptr[68]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:1966:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:1968:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1550*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2123:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2125:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2123:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2125:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2123:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2125:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2123:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2125:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1156*/ curfptr[1155];
    /*_.INSTALL_METHOD__V1551*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_CITERATION__V71*/ curfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2123:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2125:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1551*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2144:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2146:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2144:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2146:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2144:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2146:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2144:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2146:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1162*/ curfptr[1161];
    /*_.INSTALL_METHOD__V1552*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_SETQ__V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2144:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2146:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1552*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2174:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2176:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2174:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2176:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2174:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2176:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2174:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2176:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1167*/ curfptr[1166];
    /*_.INSTALL_METHOD__V1553*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_PROGN__V74*/ curfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2174:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2176:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1553*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2226:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2228:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2226:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2228:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2226:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2228:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2226:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2228:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1172*/ curfptr[1171];
    /*_.INSTALL_METHOD__V1554*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_MULTACC__V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2226:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2228:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1554*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2280:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2282:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2280:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2282:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2280:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2282:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2280:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2282:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1177*/ curfptr[1176];
    /*_.INSTALL_METHOD__V1555*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_FIELDACC__V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2280:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2282:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1555*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2301:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2303:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2301:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2303:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2301:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2303:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2301:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2303:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1185*/ curfptr[1184];
    /*_.INSTALL_METHOD__V1556*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_GET_FIELD__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2301:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2303:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1556*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2349:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2351:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2349:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2351:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2349:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2351:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2349:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2351:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1190*/ curfptr[1189];
    /*_.INSTALL_METHOD__V1557*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_UNSAFE_PUT_FIELDS__V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2349:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2351:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1557*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2380:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2382:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2380:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2382:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2380:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2382:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2380:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2382:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1197*/ curfptr[1196];
    /*_.INSTALL_METHOD__V1558*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_APPLY__V82*/ curfptr[81]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2380:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2382:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1558*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2464:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2466:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2464:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2466:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2464:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2466:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2464:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2466:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1206*/ curfptr[1205];
    /*_.INSTALL_METHOD__V1559*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_MULTIAPPLY__V83*/ curfptr[82]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2464:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2466:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1559*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2506:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2508:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2506:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2508:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2506:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2508:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2506:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2508:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1211*/ curfptr[1210];
    /*_.INSTALL_METHOD__V1560*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_MSEND__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2506:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2508:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1560*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2597:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2599:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2597:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2599:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2597:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2599:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2597:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2599:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1220*/ curfptr[1219];
    /*_.INSTALL_METHOD__V1561*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_MULTIMSEND__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2597:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2599:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1561*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2612:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2614:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2612:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2614:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2612:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2614:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2612:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2614:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1224*/ curfptr[1223];
    /*_.INSTALL_METHOD__V1562*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V50*/ curfptr[49]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2612:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2614:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1562*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2629:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2631:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2629:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2631:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2629:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2631:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2629:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2631:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1226*/ curfptr[1225];
    /*_.INSTALL_METHOD__V1563*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_VALUE_BINDING__V86*/ curfptr[85]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2629:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2631:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1563*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2642:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2644:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2642:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2644:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2642:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2644:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2642:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2644:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1230*/ curfptr[1229];
    /*_.INSTALL_METHOD__V1564*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_FIXED_BINDING__V87*/ curfptr[86]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2642:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2644:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1564*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2686:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2688:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2686:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2688:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2686:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2688:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2686:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2688:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1234*/ curfptr[1233];
    /*_.INSTALL_METHOD__V1565*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2686:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2688:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1565*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2725:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2727:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2725:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2727:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2725:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2727:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2725:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2727:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1238*/ curfptr[1237];
    /*_.INSTALL_METHOD__V1566*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2725:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2727:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1566*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2791:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2793:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2791:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2793:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2791:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2793:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2791:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2793:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1242*/ curfptr[1241];
    /*_.INSTALL_METHOD__V1567*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2791:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2793:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1567*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2815:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2817:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2815:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2817:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2815:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2817:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2815:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2817:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1244*/ curfptr[1243];
    /*_.INSTALL_METHOD__V1568*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.DISCR_INTEGER__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2815:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2817:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1568*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2841:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2843:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2841:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2843:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2841:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2843:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2841:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2843:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1246*/ curfptr[1245];
    /*_.INSTALL_METHOD__V1569*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.DISCR_STRING__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2841:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2843:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1569*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2866:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2868:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2866:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2868:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2866:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2868:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2866:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2868:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1250*/ curfptr[1249];
    /*_.INSTALL_METHOD__V1570*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.DISCR_NULL_RECEIVER__V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2866:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2868:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1570*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2893:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2895:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2893:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2895:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2893:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2895:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2893:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2895:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1254*/ curfptr[1253];
    /*_.INSTALL_METHOD__V1571*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V379*/ curfptr[378]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2893:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2895:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1571*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2910:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2912:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2910:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2912:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2910:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2912:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2910:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2912:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1256*/ curfptr[1255];
    /*_.INSTALL_METHOD__V1572*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V413*/ curfptr[412]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2910:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2912:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1572*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2932:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2934:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2932:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2934:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2932:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2934:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2932:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2934:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1258*/ curfptr[1257];
    /*_.INSTALL_METHOD__V1573*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2932:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2934:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1573*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2941:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2943:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2941:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2943:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2941:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2943:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:2941:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2943:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1260*/ curfptr[1259];
    /*_.INSTALL_METHOD__V1574*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V465*/ curfptr[464]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2941:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2943:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1574*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:2971:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:2973:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:2971:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:2973:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:2971:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2973:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:2971:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:2973:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1262*/ curfptr[1261];
    /*_.INSTALL_METHOD__V1575*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_IF__V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:2971:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:2973:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1575*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3013:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3015:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3013:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3015:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3013:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3015:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3013:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3015:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1266*/ curfptr[1265];
    /*_.INSTALL_METHOD__V1576*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_IFISA__V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3013:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3015:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1576*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3038:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3040:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3038:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3040:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3038:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3040:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:3038:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3040:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1270*/ curfptr[1269];
    /*_.INSTALL_METHOD__V1577*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3038:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3040:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1577*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3065:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3067:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3065:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3067:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3065:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3067:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3065:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3067:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1272*/ curfptr[1271];
    /*_.INSTALL_METHOD__V1578*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_CPPIF__V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3065:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3067:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1578*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3090:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3092:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3090:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3092:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3090:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3092:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V887*/ curfptr[886];
-   MELT_LOCATION("warmelt-genobj.melt:3090:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3092:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1276*/ curfptr[1275];
    /*_.INSTALL_METHOD__V1579*/ curfptr[1519] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3090:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3092:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1579*/ curfptr[1519] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3134:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3136:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3134:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3136:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3134:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3136:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3134:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3136:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1279*/ curfptr[1278];
    /*_.INSTALL_METHOD__V1580*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_RETURN__V95*/ curfptr[94]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3134:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3136:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1580*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3136:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3138:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3137:/ block");
+  MELT_LOCATION("warmelt-genobj.melt:3139:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-genobj.melt:3137:/ newclosure");
+   MELT_LOCATION("warmelt-genobj.melt:3139:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V1582*/ curfptr[1519] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281]), (0));
    ;
    /*_.LAMBDA___V1581*/ curfptr[1521] = /*_.LAMBDA___V1582*/ curfptr[1519];;}
   ;
-  MELT_LOCATION("warmelt-genobj.melt:3136:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3138:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3136:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3138:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.GET_CTYPE__V16*/ curfptr[15];
-   MELT_LOCATION("warmelt-genobj.melt:3136:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3138:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V1581*/ curfptr[1521];
    /*_.INSTALL_METHOD__V1583*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_RETURN__V95*/ curfptr[94]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3136:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3138:/ clear");
   /*clear*/ /*_.LAMBDA___V1581*/ curfptr[1521] = 0 ;
-  MELT_LOCATION("warmelt-genobj.melt:3136:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3138:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1583*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3197:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3199:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3197:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3199:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3197:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3199:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3197:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3199:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1290*/ curfptr[1289];
    /*_.INSTALL_METHOD__V1584*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_LAMBDA__V96*/ curfptr[95]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3197:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3199:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1584*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3254:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3256:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3254:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3256:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3254:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3256:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3254:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3256:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1297*/ curfptr[1296];
    /*_.INSTALL_METHOD__V1585*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_INSTANCE__V97*/ curfptr[96]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3254:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3256:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1585*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3265:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3267:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3265:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3267:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3265:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3267:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3265:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3267:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1303*/ curfptr[1302];
    /*_.INSTALL_METHOD__V1586*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3265:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3267:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1586*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3278:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3280:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3278:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3280:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3278:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3280:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3278:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3280:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1305*/ curfptr[1304];
    /*_.INSTALL_METHOD__V1587*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_PREDEF__V99*/ curfptr[98]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3278:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3280:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1587*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3485:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3487:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3485:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3487:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3485:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3487:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3485:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3487:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1322*/ curfptr[1321];
    /*_.INSTALL_METHOD__V1588*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3485:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3487:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1588*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3563:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3565:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3563:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3565:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3563:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3565:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3563:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3565:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1324*/ curfptr[1323];
    /*_.INSTALL_METHOD__V1589*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3563:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3565:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1589*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3634:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3636:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3634:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3636:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3634:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3636:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3634:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3636:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1332*/ curfptr[1331];
    /*_.INSTALL_METHOD__V1590*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATATUPLE__V100*/ curfptr[99]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3634:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3636:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1590*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3684:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3686:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3684:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3686:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3684:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3686:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3684:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3686:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1338*/ curfptr[1337];
    /*_.INSTALL_METHOD__V1591*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATASTRING__V101*/ curfptr[100]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3684:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3686:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1591*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3731:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3733:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3731:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3733:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3731:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3733:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3731:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3733:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1344*/ curfptr[1343];
    /*_.INSTALL_METHOD__V1592*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATABOXEDINTEGER__V102*/ curfptr[101]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3731:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3733:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1592*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3821:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3823:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3821:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3823:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3821:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3823:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3821:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3823:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1353*/ curfptr[1352];
    /*_.INSTALL_METHOD__V1593*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATACLOSURE__V103*/ curfptr[102]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3821:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3823:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1593*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3950:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3952:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3950:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3952:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3950:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3952:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3950:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3952:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1364*/ curfptr[1363];
    /*_.INSTALL_METHOD__V1594*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V104*/ curfptr[103]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3950:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3952:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1594*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3961:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3963:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3961:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3963:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3961:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3963:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3961:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3963:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1368*/ curfptr[1367];
    /*_.INSTALL_METHOD__V1595*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V106*/ curfptr[105]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3961:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3963:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1595*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:3973:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:3975:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:3973:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:3975:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:3973:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3975:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:3973:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:3975:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1372*/ curfptr[1371];
    /*_.INSTALL_METHOD__V1596*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT__V107*/ curfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:3973:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:3975:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1596*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4027:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4029:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4027:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4029:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4027:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4029:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:4027:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4029:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1376*/ curfptr[1375];
    /*_.INSTALL_METHOD__V1597*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_STORE_PREDEFINED__V108*/ curfptr[107]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4027:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4029:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1597*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4121:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4123:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4121:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4123:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4121:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4123:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:4121:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4123:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1383*/ curfptr[1382];
    /*_.INSTALL_METHOD__V1598*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V109*/ curfptr[108]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4121:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4123:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1598*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4139:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4141:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4139:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:4141:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1599*/ curfptr[1520] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4139:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4141:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4139:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4141:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1388*/ curfptr[1387];
-   MELT_LOCATION("warmelt-genobj.melt:4139:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4141:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_MATCHER*/
 /*_.CONTENV___V2*/ curfptr[1];
@@ -99297,113 +53454,113 @@ initial_frame_st     curfram__;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4139:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4141:/ clear");
   /*clear*/ /*_.VALUEXPORTER___V1599*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4150:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4152:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1600*/ curfptr[1521] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1394*/ curfptr[1393];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MATCHCOMPILCONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1390*/ curfptr[1389]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1397*/ curfptr[1396];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_LOC*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1412*/ curfptr[1411]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1399*/ curfptr[1398];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_NORMTESTER*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1414*/ curfptr[1413]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1401*/ curfptr[1400];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_GOTOTHEN*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1416*/ curfptr[1415]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1403*/ curfptr[1402];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_GOTOELSE*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1418*/ curfptr[1417]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1405*/ curfptr[1404];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_OLIST*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1420*/ curfptr[1419]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1407*/ curfptr[1406];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_SUFFIX*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1600*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1422*/ curfptr[1421]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1409*/ curfptr[1408];
-   MELT_LOCATION("warmelt-genobj.melt:4150:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4152:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MCX_STATECOUNTER*/
 /*_.CONTENV___V2*/ curfptr[1];
@@ -99411,22 +53568,22 @@ initial_frame_st     curfram__;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4150:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4152:/ clear");
   /*clear*/ /*_.VALUEXPORTER___V1600*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4160:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4162:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4160:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:4162:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1601*/ curfptr[1520] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4160:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4162:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4160:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4162:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4160:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4162:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_TESTER*/
 /*_.CONTENV___V2*/ curfptr[1];
@@ -99434,61 +53591,61 @@ initial_frame_st     curfram__;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4160:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4162:/ clear");
   /*clear*/ /*_.VALUEXPORTER___V1601*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4167:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4169:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4167:/ getslot");
+  MELT_LOCATION("warmelt-genobj.melt:4169:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1602*/ curfptr[1521] = slot; };
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4167:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4169:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1432*/ curfptr[1431];
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : CLASS_TESTERCOMPILCONTEXT*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1602*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1430*/ curfptr[1429]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4167:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4169:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1435*/ curfptr[1434];
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : TCX_NRMATCH*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1602*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1442*/ curfptr[1441]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4167:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4169:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1437*/ curfptr[1436];
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : TCX_FREELIST*/
 /*_.CONTENV___V2*/ curfptr[1];
     melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V1602*/ curfptr[1521]), (melt_ptr_t)(/*_.VALDATA___V1444*/ curfptr[1443]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-genobj.melt:4167:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4169:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1439*/ curfptr[1438];
-   MELT_LOCATION("warmelt-genobj.melt:4167:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4169:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : TCX_NEXTEST*/
 /*_.CONTENV___V2*/ curfptr[1];
@@ -99496,177 +53653,177 @@ initial_frame_st     curfram__;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4167:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4169:/ clear");
   /*clear*/ /*_.VALUEXPORTER___V1602*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4181:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4183:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4181:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4183:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4181:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4183:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4181:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4183:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1449*/ curfptr[1448];
    /*_.INSTALL_METHOD__V1603*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4181:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4183:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1603*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4385:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4387:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4385:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4387:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4385:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4387:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.COMPILE_OBJ__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-genobj.melt:4385:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4387:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1456*/ curfptr[1455];
    /*_.INSTALL_METHOD__V1604*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NREP_MATCH__V112*/ curfptr[111]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4385:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4387:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1604*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4542:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4544:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4542:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4544:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4542:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4544:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4542:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4544:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1479*/ curfptr[1478];
    /*_.INSTALL_METHOD__V1605*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_ANY__V111*/ curfptr[110]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4542:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4544:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1605*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4618:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4620:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4618:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4620:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4618:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4620:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4618:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4620:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1481*/ curfptr[1480];
    /*_.INSTALL_METHOD__V1606*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_MATCHER__V118*/ curfptr[117]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4618:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4620:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1606*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4725:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4727:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4725:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4727:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4725:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4727:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4725:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4727:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1485*/ curfptr[1484];
    /*_.INSTALL_METHOD__V1607*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_INSTANCE__V119*/ curfptr[118]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4725:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4727:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1607*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4800:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4802:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4800:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4802:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4800:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4802:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4800:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4802:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1489*/ curfptr[1488];
    /*_.INSTALL_METHOD__V1608*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_SAME__V120*/ curfptr[119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4800:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4802:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1608*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4835:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4837:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4835:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4837:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4835:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4837:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4835:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4837:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1493*/ curfptr[1492];
    /*_.INSTALL_METHOD__V1609*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_SUCCESS__V115*/ curfptr[114]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4835:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4837:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1609*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:4859:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:4861:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:4859:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:4861:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:4859:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4861:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1428*/ curfptr[1427];
-   MELT_LOCATION("warmelt-genobj.melt:4859:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:4861:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1497*/ curfptr[1496];
    /*_.INSTALL_METHOD__V1610*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_NORMTESTER_DISJUNCTION__V122*/ curfptr[121]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:4859:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:4861:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1610*/ curfptr[1521] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:5020:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:5022:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:5020:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:5022:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:5020:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:5022:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1388*/ curfptr[1387];
-   MELT_LOCATION("warmelt-genobj.melt:5020:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:5022:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1505*/ curfptr[1504];
    /*_.INSTALL_METHOD__V1611*/ curfptr[1520] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_CMATCHER__V123*/ curfptr[122]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:5020:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:5022:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1611*/ curfptr[1520] = 0 ;}
  
- MELT_LOCATION("warmelt-genobj.melt:5144:/ block");
+ MELT_LOCATION("warmelt-genobj.melt:5146:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-genobj.melt:5144:/ apply");
+  MELT_LOCATION("warmelt-genobj.melt:5146:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-genobj.melt:5144:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:5146:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V1388*/ curfptr[1387];
-   MELT_LOCATION("warmelt-genobj.melt:5144:/ apply.arg");
+   MELT_LOCATION("warmelt-genobj.melt:5146:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V1515*/ curfptr[1514];
    /*_.INSTALL_METHOD__V1612*/ curfptr[1521] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CLASS_FUNMATCHER__V125*/ curfptr[124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-genobj.melt:5144:/ clear");
+  MELT_LOCATION("warmelt-genobj.melt:5146:/ clear");
   /*clear*/ /*_.INSTALL_METHOD__V1612*/ curfptr[1521] = 0 ;}
  
  /**COMMENT: after toplevel body **/;
@@ -100875,4 +55032,4 @@ const int meltclasslen__CLASS_ROUTINEOBJ = 9;
 const int meltclasslen__CLASS_TESTERCOMPILCONTEXT = 4;
 
 
-/**** end of warmelt-genobj.3.c ****/
+/**** end of warmelt-genobj.0.c ****/
diff --git a/gcc/melt/warmelt-macro.0+1.c b/gcc/melt/warmelt-macro.0+1.c
new file mode 100644
index 00000000000..717fcc164b7
--- /dev/null
+++ b/gcc/melt/warmelt-macro.0+1.c
@@ -0,0 +1,17889 @@
+/* GCC MELT GENERATED FILE warmelt-macro.0+1.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #1 */
+#include "run-melt.h"
+
+/**** warmelt-macro.0+1.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_macro_EXPAND_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_macro_EXPAND_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_macro_EXPAND_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_macro_EXPAND_CMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_macro_EXPAND_FUNMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_macro_EXPAND_KEYWORDFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_macro_MACROEXPAND_1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_macro_EXPAND_PRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_macro_PATMACEXPAND_FOR_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_macro_PATTERNEXPAND_EXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_macro_PATTERNEXPAND_1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_macro_LAMBDA_ARG_BINDINGS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_macro_INSTALL_INITIAL_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_macro_INSTALL_INITIAL_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_macro_WARN_IF_REDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_macro_CHECK_C_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_macro_MEXPAND_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_macro_MEXPAND_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-macro.0+1.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 92
+  void* varptr[92];
+#define CURFRAM_NBVARNUM 21
+  long varnum[21];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<92; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 92;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_DEFSELECTOR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:2730:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:2730:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:2730:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:2730:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2731:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2731:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:2731:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2731:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2731:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2731:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2731:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2731)?(2731):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2731:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2731:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2731:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2732:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2732:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:2732:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2732:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2732:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2732:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2732:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2732)?(2732):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2732:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2732:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2732:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2733:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2733:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:2733:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
+    argtab[0].bp_cstring =  "mexp.definstance sexpr";
+    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
+    argtab[3].bp_long = 2733;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2733:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2733:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2733:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:2734:/ 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);;
+  MELT_LOCATION("warmelt-macro.melt:2738:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2739:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V17*/ curfptr[16] = slot; };
+  ;
+  /*_.LIST_FIRST__V18*/ curfptr[17] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V16*/ curfptr[15])));;
+  /*_.CURPAIR__V19*/ curfptr[18] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
+  /*_.SYMB__V20*/ curfptr[19] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+  /*_.CLANAME__V21*/ curfptr[20] = (/*nil*/NULL);;
+  /*_.CLA__V22*/ curfptr[21] = (/*nil*/NULL);;
+  /*_.DOCV__V23*/ curfptr[22] = (/*nil*/NULL);;
+  /*_.CLABIND__V24*/ curfptr[23] = (/*nil*/NULL);;
+  /*_.FORMALS__V25*/ curfptr[24] = (/*nil*/NULL);;
+  /*_#IS_NOT_A__L4*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-macro.melt:2748:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:2748:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:2748:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:2749:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing symbol for DEFSELECTOR"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+  MELT_LOCATION("warmelt-macro.melt:2750:/ compute");
+  /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
+  MELT_LOCATION("warmelt-macro.melt:2751:/ block");
+  /*block*/{
+   /*_.NAM__V29*/ curfptr[28] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+   /*_#IS_NOT_A__L5*/ curfnum[4] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.NAM__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-macro.melt:2752:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2752:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:2752:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:2753:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing class name for DEFSELECTOR"), (melt_ptr_t)0);}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:2754:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:2754:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:2754:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAM__V29*/ curfptr[28];
+     /*_.BND__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.FLDLIST__V32*/ curfptr[31] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+    /*_#IS_A__L6*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));;
+    MELT_LOCATION("warmelt-macro.melt:2758:/ cond");
+    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:2758:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:2758:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:2759:/ compute");
+      /*_.CLABIND__V24*/ curfptr[23] = /*_.SETQ___V34*/ curfptr[33] = /*_.BND__V31*/ curfptr[30];;
+      MELT_LOCATION("warmelt-macro.melt:2760:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V35*/ curfptr[34] = slot; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2760:/ compute");
+      /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V36*/ curfptr[35] = /*_.CBIND_CLASS__V35*/ curfptr[34];;
+      MELT_LOCATION("warmelt-macro.melt:2758:/ block");
+      /*block*/{
+       /*_.PROGN___V37*/ curfptr[36] = /*_.SETQ___V36*/ curfptr[35];;}
+      ;
+      /*_.IFELSE___V33*/ curfptr[32] = /*_.PROGN___V37*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_.CBIND_CLASS__V35*/ curfptr[34] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:2758:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:2758:/ block");
+     /*block*/{
+      /*_#IS_A__L7*/ curfnum[6] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));;
+      MELT_LOCATION("warmelt-macro.melt:2761:/ cond");
+      /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:2761:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:2761:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:2762:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V38*/ curfptr[33] = slot; };
+        ;
+        /*_#IS_A__L9*/ curfnum[8] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V38*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
+        /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.VBIND_VALUE__V38*/ curfptr[33] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-macro.melt:2761:/ cond.else");
+      
+       /*_#IF___L8*/ curfnum[7] = 0;;
+       }
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2761:/ cond");
+      /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:2761:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:2761:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:2763:/ compute");
+        /*_.CLABIND__V24*/ curfptr[23] = /*_.SETQ___V40*/ curfptr[35] = /*_.BND__V31*/ curfptr[30];;
+        MELT_LOCATION("warmelt-macro.melt:2764:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V41*/ curfptr[36] = slot; };
+        ;
+        MELT_LOCATION("warmelt-macro.melt:2764:/ compute");
+        /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V42*/ curfptr[33] = /*_.VBIND_VALUE__V41*/ curfptr[36];;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ block");
+        /*block*/{
+         /*_.PROGN___V43*/ curfptr[42] = /*_.SETQ___V42*/ curfptr[33];;}
+        ;
+        /*_.IFELSE___V39*/ curfptr[34] = /*_.PROGN___V43*/ curfptr[42];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.SETQ___V40*/ curfptr[35] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.VBIND_VALUE__V41*/ curfptr[36] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.SETQ___V42*/ curfptr[33] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-macro.melt:2761:/ cond.else");
+      
+       MELT_LOCATION("warmelt-macro.melt:2761:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:2767:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V44*/ curfptr[35] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:2766:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "invalid class name for DEFSELECTOR"), (melt_ptr_t)(/*_.NAMED_NAME__V44*/ curfptr[35]));}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:2768:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+         MELT_LOCATION("warmelt-macro.melt:2768:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:2765:/ block");
+        /*block*/{
+         /*_.PROGN___V46*/ curfptr[33] = /*_.RETURN___V45*/ curfptr[36];;}
+        ;
+        /*_.IFELSE___V39*/ curfptr[34] = /*_.PROGN___V46*/ curfptr[33];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V44*/ curfptr[35] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.RETURN___V45*/ curfptr[36] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
+        /*clear*/ /*_.PROGN___V46*/ curfptr[33] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V33*/ curfptr[32] = /*_.IFELSE___V39*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
+      /*clear*/ /*_.IFELSE___V39*/ curfptr[34] = 0 ;}
+     ;
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2770:/ compute");
+    /*_.CLANAME__V21*/ curfptr[20] = /*_.SETQ___V47*/ curfptr[42] = /*_.NAM__V29*/ curfptr[28];;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:2771:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:2771:/ block");
+     /*block*/{
+      /*_#IS_A__L10*/ curfnum[8] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
+      MELT_LOCATION("warmelt-macro.melt:2771:/ cond");
+      /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:2771:/ cond.then");
+      /*_.IFELSE___V49*/ curfptr[36] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-macro.melt:2771:/ cond.else");
+      
+       MELT_LOCATION("warmelt-macro.melt:2771:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-macro.melt:2771:/ locexp");
+         melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2771)?(2771):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V49*/ curfptr[36] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V48*/ curfptr[35] = /*_.IFELSE___V49*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2771:/ clear");
+      /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2771:/ clear");
+      /*clear*/ /*_.IFELSE___V49*/ curfptr[36] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:2771:/ cppif.else");
+    /*_.IFCPP___V48*/ curfptr[35] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.PAIR_TAIL__V50*/ curfptr[33] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+    MELT_LOCATION("warmelt-macro.melt:2772:/ compute");
+    /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V51*/ curfptr[34] = /*_.PAIR_TAIL__V50*/ curfptr[33];;
+    MELT_LOCATION("warmelt-macro.melt:2773:/ loop");
+    /*loop*/{ labloop_INSLOOP_2:;MELT_LOCATION("warmelt-macro.melt:2773:/ loopbody");
+    
+     MELT_LOCATION("warmelt-macro.melt:2773:/ block");
+     /*block*/{
+      /*_#IS_PAIR__L11*/ curfnum[6] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);;
+      /*_#NOT__L12*/ curfnum[7] = 
+       (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
+      MELT_LOCATION("warmelt-macro.melt:2774:/ cond");
+      /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:2774:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:2774:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:2774:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:2774:/ compute");
+         /*_.INSLOOP__V53*/ curfptr[52] = NULL;;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:2774:/ exit");
+         /*exit*/{
+          goto labexit_INSLOOP_2;}
+         ;}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2775:/ block");
+      /*block*/{
+       /*_.CURFKW__V55*/ curfptr[54] = 
+        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+       /*_#IS_NOT_A__L13*/ curfnum[8] = 
+        !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V55*/ curfptr[54]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));;
+       MELT_LOCATION("warmelt-macro.melt:2776:/ cond");
+       /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:2776:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:2776:/ block");
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-macro.melt:2777:/ locexp");
+         melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "expecting keyword in DEFSELECTOR"), (melt_ptr_t)0);}
+         ;
+         /*epilog*/}
+        ;
+       } /*noelse*/
+       ;
+       /*_.PAIR_TAIL__V56*/ curfptr[55] = 
+        (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+       MELT_LOCATION("warmelt-macro.melt:2778:/ compute");
+       /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V57*/ curfptr[56] = /*_.PAIR_TAIL__V56*/ curfptr[55];;
+       MELT_LOCATION("warmelt-macro.melt:2779:/ block");
+       /*block*/{
+        /*_.CUREXP__V59*/ curfptr[58] = 
+         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+        /*_#__L14*/ curfnum[13] = 
+         ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_10_OBJ_NUM*/ curfrout->tabval[10])));;
+        MELT_LOCATION("warmelt-macro.melt:2780:/ cond");
+        /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:2780:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:2780:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:2781:/ cond");
+          /*cond*/ if (/*_.CUREXP__V59*/ curfptr[58]) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:2781:/ cond.then");
+          MELT_LOCATION("warmelt-macro.melt:2781:/ block");
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-macro.melt:2781:/ locexp");
+            melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :obj_num in DEFSELECTOR"), (melt_ptr_t)0);}
+            ;
+            /*epilog*/}
+           ;
+          } /*noelse*/
+          ;
+          /*_#IS_A__L15*/ curfnum[14] = 
+           melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+          MELT_LOCATION("warmelt-macro.melt:2783:/ cond");
+          /*cond*/ if (/*_#IS_A__L15*/ curfnum[14]) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:2783:/ cond.then");
+          MELT_LOCATION("warmelt-macro.melt:2783:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-macro.melt:2784:/ apply");
+            /*apply*/{
+             union meltparam_un argtab[2];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-macro.melt:2784:/ apply.arg");
+             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+             MELT_LOCATION("warmelt-macro.melt:2784:/ apply.arg");
+             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+             /*_.MACROEXPAND_1__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            /*_.IFELSE___V61*/ curfptr[60] = /*_.MACROEXPAND_1__V62*/ curfptr[61];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-macro.melt:2783:/ clear");
+            /*clear*/ /*_.MACROEXPAND_1__V62*/ curfptr[61] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-macro.melt:2783:/ cond.else");
+          
+           /*_.IFELSE___V61*/ curfptr[60] = /*_.CUREXP__V59*/ curfptr[58];;
+           }
+          ;
+          MELT_LOCATION("warmelt-macro.melt:2782:/ compute");
+          /*_.OBJNUM__V13*/ curfptr[12] = /*_.SETQ___V63*/ curfptr[61] = /*_.IFELSE___V61*/ curfptr[60];;
+          MELT_LOCATION("warmelt-macro.melt:2780:/ block");
+          /*block*/{
+           /*_.PROGN___V64*/ curfptr[63] = /*_.SETQ___V63*/ curfptr[61];;}
+          ;
+          /*_.IFELSE___V60*/ curfptr[59] = /*_.PROGN___V64*/ curfptr[63];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
+          /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
+          /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
+          /*clear*/ /*_.SETQ___V63*/ curfptr[61] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
+          /*clear*/ /*_.PROGN___V64*/ curfptr[63] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:2780:/ cond.else");
+        
+         MELT_LOCATION("warmelt-macro.melt:2780:/ block");
+         /*block*/{
+          /*_#__L16*/ curfnum[14] = 
+           ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_12_PREDEF*/ curfrout->tabval[12])));;
+          MELT_LOCATION("warmelt-macro.melt:2787:/ cond");
+          /*cond*/ if (/*_#__L16*/ curfnum[14]) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:2787:/ cond.then");
+          MELT_LOCATION("warmelt-macro.melt:2787:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-macro.melt:2788:/ cond");
+            /*cond*/ if (/*_.CUREXP__V59*/ curfptr[58]) /*then*/ {
+            MELT_LOCATION("warmelt-macro.melt:2788:/ cond.then");
+            MELT_LOCATION("warmelt-macro.melt:2788:/ block");
+             /*block*/{
+              
+              {
+              MELT_LOCATION("warmelt-macro.melt:2788:/ locexp");
+              melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :predef in DEFSELECTOR"), (melt_ptr_t)0);}
+              ;
+              /*epilog*/}
+             ;
+            } /*noelse*/
+            ;
+            /*_#IS_A__L17*/ curfnum[16] = 
+             melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+            MELT_LOCATION("warmelt-macro.melt:2790:/ cond");
+            /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ {
+            MELT_LOCATION("warmelt-macro.melt:2790:/ cond.then");
+            MELT_LOCATION("warmelt-macro.melt:2790:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-macro.melt:2791:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[2];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-macro.melt:2791:/ apply.arg");
+               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+               MELT_LOCATION("warmelt-macro.melt:2791:/ apply.arg");
+               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+               /*_.MACROEXPAND_1__V67*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              /*_.IFELSE___V66*/ curfptr[61] = /*_.MACROEXPAND_1__V67*/ curfptr[63];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-macro.melt:2790:/ clear");
+              /*clear*/ /*_.MACROEXPAND_1__V67*/ curfptr[63] = 0 ;}
+             ;
+            } else {MELT_LOCATION("warmelt-macro.melt:2790:/ cond.else");
+            
+             /*_.IFELSE___V66*/ curfptr[61] = /*_.CUREXP__V59*/ curfptr[58];;
+             }
+            ;
+            MELT_LOCATION("warmelt-macro.melt:2789:/ compute");
+            /*_.PREDEF__V12*/ curfptr[11] = /*_.SETQ___V68*/ curfptr[63] = /*_.IFELSE___V66*/ curfptr[61];;
+            MELT_LOCATION("warmelt-macro.melt:2787:/ block");
+            /*block*/{
+             /*_.PROGN___V69*/ curfptr[68] = /*_.SETQ___V68*/ curfptr[63];;}
+            ;
+            /*_.IFELSE___V65*/ curfptr[60] = /*_.PROGN___V69*/ curfptr[68];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
+            /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
+            /*clear*/ /*_.IFELSE___V66*/ curfptr[61] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
+            /*clear*/ /*_.SETQ___V68*/ curfptr[63] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
+            /*clear*/ /*_.PROGN___V69*/ curfptr[68] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-macro.melt:2787:/ cond.else");
+          
+           MELT_LOCATION("warmelt-macro.melt:2787:/ block");
+           /*block*/{
+            /*_#__L18*/ curfnum[16] = 
+             ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_13_DOC*/ curfrout->tabval[13])));;
+            MELT_LOCATION("warmelt-macro.melt:2794:/ cond");
+            /*cond*/ if (/*_#__L18*/ curfnum[16]) /*then*/ {
+            MELT_LOCATION("warmelt-macro.melt:2794:/ cond.then");
+            MELT_LOCATION("warmelt-macro.melt:2794:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-macro.melt:2795:/ cond");
+              /*cond*/ if (/*_.DOCV__V23*/ curfptr[22]) /*then*/ {
+              MELT_LOCATION("warmelt-macro.melt:2795:/ cond.then");
+              MELT_LOCATION("warmelt-macro.melt:2795:/ block");
+               /*block*/{
+                
+                {
+                MELT_LOCATION("warmelt-macro.melt:2795:/ locexp");
+                melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :doc in DEFSELECTOR"), (melt_ptr_t)0);}
+                ;
+                /*epilog*/}
+               ;
+              } /*noelse*/
+              ;
+              MELT_LOCATION("warmelt-macro.melt:2796:/ compute");
+              /*_.DOCV__V23*/ curfptr[22] = /*_.SETQ___V71*/ curfptr[63] = /*_.CUREXP__V59*/ curfptr[58];;
+              MELT_LOCATION("warmelt-macro.melt:2794:/ block");
+              /*block*/{
+               /*_.PROGN___V72*/ curfptr[68] = /*_.SETQ___V71*/ curfptr[63];;}
+              ;
+              /*_.IFELSE___V70*/ curfptr[61] = /*_.PROGN___V72*/ curfptr[68];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
+              /*clear*/ /*_.SETQ___V71*/ curfptr[63] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
+              /*clear*/ /*_.PROGN___V72*/ curfptr[68] = 0 ;}
+             ;
+            } else {MELT_LOCATION("warmelt-macro.melt:2794:/ cond.else");
+            
+             MELT_LOCATION("warmelt-macro.melt:2794:/ block");
+             /*block*/{
+              /*_#__L19*/ curfnum[18] = 
+               ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_14_FORMALS*/ curfrout->tabval[14])));;
+              MELT_LOCATION("warmelt-macro.melt:2798:/ cond");
+              /*cond*/ if (/*_#__L19*/ curfnum[18]) /*then*/ {
+              MELT_LOCATION("warmelt-macro.melt:2798:/ cond.then");
+              MELT_LOCATION("warmelt-macro.melt:2798:/ block");
+               /*block*/{
+                MELT_LOCATION("warmelt-macro.melt:2799:/ cond");
+                /*cond*/ if (/*_.FORMALS__V25*/ curfptr[24]) /*then*/ {
+                MELT_LOCATION("warmelt-macro.melt:2799:/ cond.then");
+                MELT_LOCATION("warmelt-macro.melt:2799:/ block");
+                 /*block*/{
+                  
+                  {
+                  MELT_LOCATION("warmelt-macro.melt:2799:/ locexp");
+                  melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :formals in DEFSELECTOR"), (melt_ptr_t)0);}
+                  ;
+                  /*epilog*/}
+                 ;
+                } /*noelse*/
+                ;
+                MELT_LOCATION("warmelt-macro.melt:2803:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[1];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-macro.melt:2803:/ apply.arg");
+                 argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V55*/ curfptr[54];
+                 /*_.LAMBDA_ARG_BINDINGS__V74*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                MELT_LOCATION("warmelt-macro.melt:2803:/ compute");
+                /*_.FORMALS__V25*/ curfptr[24] = /*_.SETQ___V75*/ curfptr[74] = /*_.LAMBDA_ARG_BINDINGS__V74*/ curfptr[68];;
+                MELT_LOCATION("warmelt-macro.melt:2804:/ block");
+                /*block*/{
+                 /*_.FIRSTF__V77*/ curfptr[76] = 
+                  (melt_multiple_nth((melt_ptr_t)(/*_.FORMALS__V25*/ curfptr[24]), (0)));;
+                 /*_#NULL__L20*/ curfnum[19] = 
+                  ((/*_.FIRSTF__V77*/ curfptr[76]) == NULL);;
+                 MELT_LOCATION("warmelt-macro.melt:2806:/ cond");
+                 /*cond*/ if (/*_#NULL__L20*/ curfnum[19]) /*then*/ {
+                 MELT_LOCATION("warmelt-macro.melt:2806:/ cond.then");
+                 MELT_LOCATION("warmelt-macro.melt:2806:/ block");
+                  /*block*/{
+                   /*block*/{
+                    
+                    {
+                    MELT_LOCATION("warmelt-macro.melt:2807:/ locexp");
+                    melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( ":formals of DEFSELECTOR should have at least one value argument for the reciever"), (melt_ptr_t)0);}
+                    ;
+                    /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
+                   ;
+                   /*epilog*/}
+                  ;
+                 } else {MELT_LOCATION("warmelt-macro.melt:2806:/ cond.else");
+                 
+                  MELT_LOCATION("warmelt-macro.melt:2806:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond");
+                   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FIRSTF__V77*/ curfptr[76]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[16])))) /*then*/ {
+                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond.then");
+                   MELT_LOCATION("warmelt-macro.melt:2808:/ getslot");
+                    { melt_ptr_t slot=0;
+                     melt_object_get_field(slot,(melt_ptr_t)(/*_.FIRSTF__V77*/ curfptr[76]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V79*/ curfptr[78] = slot; };
+                    ;
+                   } else {MELT_LOCATION("warmelt-macro.melt:2808:/ cond.else");
+                   
+                    /*_.FBIND_TYPE__V79*/ curfptr[78] = NULL;;
+                    }
+                   ;
+                   /*_#__L21*/ curfnum[20] = 
+                    ((/*_.FBIND_TYPE__V79*/ curfptr[78]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[17])));;
+                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond");
+                   /*cond*/ if (/*_#__L21*/ curfnum[20]) /*then*/ {
+                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond.then");
+                   MELT_LOCATION("warmelt-macro.melt:2808:/ block");
+                    /*block*/{
+                     /*block*/{
+                      
+                      {
+                      MELT_LOCATION("warmelt-macro.melt:2809:/ locexp");
+                      melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "first :formals of DEFSELECTOR should be a :value"), (melt_ptr_t)0);}
+                      ;
+                      /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
+                     ;
+                     /*epilog*/}
+                    ;
+                   } else {MELT_LOCATION("warmelt-macro.melt:2808:/ cond.else");
+                   
+                    /*_.IFELSE___V80*/ curfptr[79] = NULL;;
+                    }
+                   ;
+                   /*_.IFELSE___V78*/ curfptr[77] = /*_.IFELSE___V80*/ curfptr[79];;
+                   /*epilog*/
+                   MELT_LOCATION("warmelt-macro.melt:2806:/ clear");
+                   /*clear*/ /*_.FBIND_TYPE__V79*/ curfptr[78] = 0 ;
+                   MELT_LOCATION("warmelt-macro.melt:2806:/ clear");
+                   /*clear*/ /*_#__L21*/ curfnum[20] = 0 ;
+                   MELT_LOCATION("warmelt-macro.melt:2806:/ clear");
+                   /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
+                  ;
+                  }
+                 ;
+                 /*_.LET___V76*/ curfptr[75] = /*_.IFELSE___V78*/ curfptr[77];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-macro.melt:2804:/ clear");
+                 /*clear*/ /*_.FIRSTF__V77*/ curfptr[76] = 0 ;
+                 MELT_LOCATION("warmelt-macro.melt:2804:/ clear");
+                 /*clear*/ /*_#NULL__L20*/ curfnum[19] = 0 ;
+                 MELT_LOCATION("warmelt-macro.melt:2804:/ clear");
+                 /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
+                ;
+                MELT_LOCATION("warmelt-macro.melt:2798:/ block");
+                /*block*/{
+                 /*_.PROGN___V81*/ curfptr[78] = /*_.LET___V76*/ curfptr[75];;}
+                ;
+                /*_.IFELSE___V73*/ curfptr[63] = /*_.PROGN___V81*/ curfptr[78];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
+                /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V74*/ curfptr[68] = 0 ;
+                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
+                /*clear*/ /*_.SETQ___V75*/ curfptr[74] = 0 ;
+                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
+                /*clear*/ /*_.LET___V76*/ curfptr[75] = 0 ;
+                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
+                /*clear*/ /*_.PROGN___V81*/ curfptr[78] = 0 ;}
+               ;
+              } else {MELT_LOCATION("warmelt-macro.melt:2798:/ cond.else");
+              
+               MELT_LOCATION("warmelt-macro.melt:2798:/ block");
+               /*block*/{
+                MELT_LOCATION("warmelt-macro.melt:2812:/ block");
+                /*block*/{
+                 MELT_LOCATION("warmelt-macro.melt:2812:/ apply");
+                 /*apply*/{
+                  union meltparam_un argtab[5];
+                  memset(&argtab, 0, sizeof(argtab));
+                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
+                  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V17*/ curfptr[16];
+                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
+                  argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V55*/ curfptr[54];
+                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
+                  argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V59*/ curfptr[58];
+                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
+                  argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
+                  argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+                  /*_.FLDA__V82*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+                  }
+                 ;
+                 MELT_LOCATION("warmelt-macro.melt:2813:/ cond");
+                 /*cond*/ if (/*_.FLDA__V82*/ curfptr[79]) /*then*/ {
+                 MELT_LOCATION("warmelt-macro.melt:2813:/ cond.then");
+                 MELT_LOCATION("warmelt-macro.melt:2813:/ block");
+                  /*block*/{
+                   
+                   {
+                   MELT_LOCATION("warmelt-macro.melt:2814:/ locexp");
+                   meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.FLDA__V82*/ curfptr[79]));}
+                   ;
+                   /*epilog*/}
+                  ;
+                 } /*noelse*/
+                 ;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-macro.melt:2812:/ clear");
+                 /*clear*/ /*_.FLDA__V82*/ curfptr[79] = 0 ;}
+                ;
+                MELT_LOCATION("warmelt-macro.melt:2811:/ block");
+                /*block*/{}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFELSE___V70*/ curfptr[61] = /*_.IFELSE___V73*/ curfptr[63];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
+              /*clear*/ /*_#__L19*/ curfnum[18] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
+              /*clear*/ /*_.IFELSE___V73*/ curfptr[63] = 0 ;}
+             ;
+             }
+            ;
+            /*_.IFELSE___V65*/ curfptr[60] = /*_.IFELSE___V70*/ curfptr[61];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
+            /*clear*/ /*_#__L18*/ curfnum[16] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
+            /*clear*/ /*_.IFELSE___V70*/ curfptr[61] = 0 ;}
+           ;
+           }
+          ;
+          /*_.IFELSE___V60*/ curfptr[59] = /*_.IFELSE___V65*/ curfptr[60];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
+          /*clear*/ /*_#__L16*/ curfnum[14] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
+          /*clear*/ /*_.IFELSE___V65*/ curfptr[60] = 0 ;}
+         ;
+         }
+        ;
+        /*_.LET___V58*/ curfptr[57] = /*_.IFELSE___V60*/ curfptr[59];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2779:/ clear");
+        /*clear*/ /*_.CUREXP__V59*/ curfptr[58] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2779:/ clear");
+        /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2779:/ clear");
+        /*clear*/ /*_.IFELSE___V60*/ curfptr[59] = 0 ;}
+       ;
+       /*_.PAIR_TAIL__V83*/ curfptr[76] = 
+        (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+       MELT_LOCATION("warmelt-macro.melt:2817:/ compute");
+       /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V84*/ curfptr[77] = /*_.PAIR_TAIL__V83*/ curfptr[76];;
+       /*_.LET___V54*/ curfptr[53] = /*_.SETQ___V84*/ curfptr[77];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_.CURFKW__V55*/ curfptr[54] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_.PAIR_TAIL__V56*/ curfptr[55] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_.SETQ___V57*/ curfptr[56] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_.LET___V58*/ curfptr[57] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_.PAIR_TAIL__V83*/ curfptr[76] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
+       /*clear*/ /*_.SETQ___V84*/ curfptr[77] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2773:/ clear");
+      /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2773:/ clear");
+      /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2773:/ clear");
+      /*clear*/ /*_.LET___V54*/ curfptr[53] = 0 ;}
+     ;
+     ;
+      goto labloop_INSLOOP_2;
+      labexit_INSLOOP_2:;MELT_LOCATION("warmelt-macro.melt:2773:/ loopepilog");
+    /*loopepilog*/
+     /*_.FOREVER___V52*/ curfptr[36] = /*_.INSLOOP__V53*/ curfptr[52];;
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2819:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:2819:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:2819:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[20]);
+      /*_.FASTUP__V86*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.FLDLIST__V32*/ curfptr[31]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2820:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:2820:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[21])), (10), "CLASS_SOURCE_DEFSELECTOR");/*_.INST__V88*/ curfptr[78] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (1), (/*_.LOC__V17*/ curfptr[16]), "LOCA_LOCATION");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (2), (/*_.SYMB__V20*/ curfptr[19]), "SDEF_NAME");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SOBJ_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (4), (/*_.PREDEF__V12*/ curfptr[11]), "SOBJ_PREDEF");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SINST_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (5), (/*_.CLA__V22*/ curfptr[21]), "SINST_CLASS");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SINST_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (6), (/*_.CLABIND__V24*/ curfptr[23]), "SINST_CLABIND");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (7), (/*_.OBJNUM__V13*/ curfptr[12]), "SINST_OBJNUM");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SINST_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (8), (/*_.FASTUP__V86*/ curfptr[74]), "SINST_FIELDS");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SDEFSEL_FORMALS", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (9), (/*_.FORMALS__V25*/ curfptr[24]), "SDEFSEL_FORMALS");
+      ;
+      /*_.RES__V87*/ curfptr[75] = /*_.INST__V88*/ curfptr[78];;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2830:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:2830:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[22])), (3), "CLASS_SELECTOR_BINDING");/*_.INST__V90*/ curfptr[63] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2830:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[63])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V90*/ curfptr[63]), (0), (/*_.SYMB__V20*/ curfptr[19]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2830:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SBIND_SELECTORDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[63])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V90*/ curfptr[63]), (2), (/*_.RES__V87*/ curfptr[75]), "SBIND_SELECTORDEF");
+      ;
+      /*_.SELBIND__V89*/ curfptr[79] = /*_.INST__V90*/ curfptr[63];;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2835:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:2835:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-macro.melt:2835:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LOC__V17*/ curfptr[16];
+      /*_.WARN_IF_REDEFINED__V91*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2836:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:2836:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SELBIND__V89*/ curfptr[79];
+      /*_.PUT_ENV__V92*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.LET___V85*/ curfptr[68] = /*_.RES__V87*/ curfptr[75];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
+     /*clear*/ /*_.FASTUP__V86*/ curfptr[74] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
+     /*clear*/ /*_.RES__V87*/ curfptr[75] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
+     /*clear*/ /*_.SELBIND__V89*/ curfptr[79] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
+     /*clear*/ /*_.WARN_IF_REDEFINED__V91*/ curfptr[61] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
+     /*clear*/ /*_.PUT_ENV__V92*/ curfptr[60] = 0 ;}
+    ;
+    /*_.LET___V30*/ curfptr[29] = /*_.LET___V85*/ curfptr[68];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.BND__V31*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.FLDLIST__V32*/ curfptr[31] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.SETQ___V47*/ curfptr[42] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.IFCPP___V48*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V50*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.SETQ___V51*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.FOREVER___V52*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
+    /*clear*/ /*_.LET___V85*/ curfptr[68] = 0 ;}
+   ;
+   /*_.LET___V28*/ curfptr[27] = /*_.LET___V30*/ curfptr[29];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2751:/ clear");
+   /*clear*/ /*_.NAM__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2751:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2751:/ clear");
+   /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V28*/ curfptr[27];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.PREDEF__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.OBJNUM__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.FIELDS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.FIELDNAMS__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.CONT__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.LOC__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.SYMB__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.CLANAME__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.CLA__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.DOCV__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.CLABIND__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.FORMALS__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
+  /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2730:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:2730:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_DEFSELECTOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_42_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_42_warmelt_macro_MEXPAND_INSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 59
+  void* varptr[59];
+#define CURFRAM_NBVARNUM 14
+  long varnum[14];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<59; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 59;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_INSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:2844:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:2844:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:2844:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:2844:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2845:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2845:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:2845:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2845:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2845:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2845:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2845:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2845)?(2845):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2845:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2845:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2845:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2846:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2846:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:2846:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2846:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2846:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2846:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2846:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2846)?(2846):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2846:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2846:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2846:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:2847:/ block");
+ /*block*/{
+  /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);;
+  /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-macro.melt:2849:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2850:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.CLANAME__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_.CLA__V17*/ curfptr[16] = (/*nil*/NULL);;
+  /*_.CLABIND__V18*/ curfptr[17] = (/*nil*/NULL);;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:2856:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:2856:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:2856:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_instance start sexpr";
+     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
+     argtab[3].bp_long = 2856;
+     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2856:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2856:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:2856:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_NOT_A__L4*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-macro.melt:2857:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:2857:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:2857:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:2858:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing class symbol for INSTANCE"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2859:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:2859:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:2859:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLANAME__V16*/ curfptr[15];
+    /*_.BND__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.FLDLIST__V23*/ curfptr[22] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+   /*_#IS_A__L5*/ curfnum[4] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));;
+   MELT_LOCATION("warmelt-macro.melt:2863:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2863:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:2863:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:2864:/ compute");
+     /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.BND__V22*/ curfptr[21];;
+     MELT_LOCATION("warmelt-macro.melt:2865:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V26*/ curfptr[25] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2865:/ compute");
+     /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V27*/ curfptr[26] = /*_.CBIND_CLASS__V26*/ curfptr[25];;
+     MELT_LOCATION("warmelt-macro.melt:2863:/ block");
+     /*block*/{
+      /*_.PROGN___V28*/ curfptr[27] = /*_.SETQ___V27*/ curfptr[26];;}
+     ;
+     /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_.CBIND_CLASS__V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:2863:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2863:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));;
+     MELT_LOCATION("warmelt-macro.melt:2867:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:2867:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:2867:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:2868:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V29*/ curfptr[24] = slot; };
+       ;
+       /*_#IS_A__L8*/ curfnum[7] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V29*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
+       /*_#IF___L7*/ curfnum[6] = /*_#IS_A__L8*/ curfnum[7];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.VBIND_VALUE__V29*/ curfptr[24] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:2867:/ cond.else");
+     
+      /*_#IF___L7*/ curfnum[6] = 0;;
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2867:/ cond");
+     /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:2867:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:2867:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:2869:/ compute");
+       /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[26] = /*_.BND__V22*/ curfptr[21];;
+       MELT_LOCATION("warmelt-macro.melt:2870:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V32*/ curfptr[27] = slot; };
+       ;
+       MELT_LOCATION("warmelt-macro.melt:2870:/ compute");
+       /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[24] = /*_.VBIND_VALUE__V32*/ curfptr[27];;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ block");
+       /*block*/{
+        /*_.PROGN___V34*/ curfptr[33] = /*_.SETQ___V33*/ curfptr[24];;}
+       ;
+       /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V34*/ curfptr[33];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.SETQ___V31*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.VBIND_VALUE__V32*/ curfptr[27] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.SETQ___V33*/ curfptr[24] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:2867:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:2867:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:2874:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[26] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:2873:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid class name for INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[26]));}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:2875:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+        MELT_LOCATION("warmelt-macro.melt:2875:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:2872:/ block");
+       /*block*/{
+        /*_.PROGN___V37*/ curfptr[24] = /*_.RETURN___V36*/ curfptr[27];;}
+       ;
+       /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V37*/ curfptr[24];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.RETURN___V36*/ curfptr[27] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
+       /*clear*/ /*_.PROGN___V37*/ curfptr[24] = 0 ;}
+      ;
+      }
+     ;
+     /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V30*/ curfptr[25];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
+     /*clear*/ /*_.IFELSE___V30*/ curfptr[25] = 0 ;}
+    ;
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:2877:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:2877:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:2877:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_instance cla";
+      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
+      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
+      argtab[3].bp_long = 2877;
+      /*_.DEBUG_MSG_FUN__V39*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V38*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2877:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2877:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[26] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:2877:/ cppif.else");
+   /*_.IFCPP___V38*/ curfptr[33] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:2878:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:2878:/ block");
+    /*block*/{
+     /*_#IS_A__L10*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
+     MELT_LOCATION("warmelt-macro.melt:2878:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:2878:/ cond.then");
+     /*_.IFELSE___V41*/ curfptr[24] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-macro.melt:2878:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:2878:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:2878:/ locexp");
+        melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2878)?(2878):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V41*/ curfptr[24] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V40*/ curfptr[27] = /*_.IFELSE___V41*/ curfptr[24];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2878:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2878:/ clear");
+     /*clear*/ /*_.IFELSE___V41*/ curfptr[24] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:2878:/ cppif.else");
+   /*_.IFCPP___V40*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.PAIR_TAIL__V42*/ curfptr[25] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+   MELT_LOCATION("warmelt-macro.melt:2879:/ compute");
+   /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V43*/ curfptr[26] = /*_.PAIR_TAIL__V42*/ curfptr[25];;
+   MELT_LOCATION("warmelt-macro.melt:2880:/ loop");
+   /*loop*/{ labloop_INSLOOP_3:;MELT_LOCATION("warmelt-macro.melt:2880:/ loopbody");
+   
+    MELT_LOCATION("warmelt-macro.melt:2880:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L11*/ curfnum[6] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+     /*_#NOT__L12*/ curfnum[7] = 
+      (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
+     MELT_LOCATION("warmelt-macro.melt:2881:/ cond");
+     /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:2881:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:2881:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:2881:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:2881:/ compute");
+        /*_.INSLOOP__V45*/ curfptr[44] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2881:/ exit");
+        /*exit*/{
+         goto labexit_INSLOOP_3;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2882:/ block");
+     /*block*/{
+      /*_.CURFKW__V46*/ curfptr[45] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+      /*_#IS_NOT_A__L13*/ curfnum[5] = 
+       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));;
+      MELT_LOCATION("warmelt-macro.melt:2883:/ cond");
+      /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:2883:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:2883:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:2884:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting keyword in INSTANCE"), (melt_ptr_t)0);}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_.PAIR_TAIL__V47*/ curfptr[46] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+      MELT_LOCATION("warmelt-macro.melt:2885:/ compute");
+      /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V48*/ curfptr[47] = /*_.PAIR_TAIL__V47*/ curfptr[46];;
+      MELT_LOCATION("warmelt-macro.melt:2886:/ block");
+      /*block*/{
+       /*_.CUREXP__V49*/ curfptr[48] = 
+        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+       MELT_LOCATION("warmelt-macro.melt:2887:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:2887:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[5];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ curfptr[12];
+         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V46*/ curfptr[45];
+         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
+         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V49*/ curfptr[48];
+         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
+         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
+         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+         /*_.FLDA__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:2888:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:2888:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:2888:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_instance flda";
+           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
+           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
+           argtab[3].bp_long = 2888;
+           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.FLDA__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:2888:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:2888:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:2888:/ cppif.else");
+        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-macro.melt:2889:/ cond");
+        /*cond*/ if (/*_.FLDA__V50*/ curfptr[49]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:2889:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:2889:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:2890:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (melt_ptr_t)(/*_.FLDA__V50*/ curfptr[49]));}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:2889:/ cond.else");
+        
+         MELT_LOCATION("warmelt-macro.melt:2889:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:2892:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:2891:/ locexp");
+          melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad field name in INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:2889:/ clear");
+          /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;}
+         ;
+         }
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2887:/ clear");
+        /*clear*/ /*_.FLDA__V50*/ curfptr[49] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2887:/ clear");
+        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:2886:/ clear");
+       /*clear*/ /*_.CUREXP__V49*/ curfptr[48] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
+      /*clear*/ /*_.CURFKW__V46*/ curfptr[45] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
+      /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[46] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
+      /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ;}
+     ;
+     /*_.PAIR_TAIL__V54*/ curfptr[51] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+     MELT_LOCATION("warmelt-macro.melt:2894:/ compute");
+     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V55*/ curfptr[49] = /*_.PAIR_TAIL__V54*/ curfptr[51];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
+     /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
+     /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V54*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
+     /*clear*/ /*_.SETQ___V55*/ curfptr[49] = 0 ;}
+    ;
+    ;
+     goto labloop_INSLOOP_3;
+     labexit_INSLOOP_3:;MELT_LOCATION("warmelt-macro.melt:2880:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V44*/ curfptr[24] = /*_.INSLOOP__V45*/ curfptr[44];;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:2896:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:2896:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:2896:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[12]);
+     /*_.FASTUP__V57*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2897:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:2897:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[13])), (5), "CLASS_SOURCE_INSTANCE");/*_.INST__V59*/ curfptr[46] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SMINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (2), (/*_.CLA__V17*/ curfptr[16]), "SMINS_CLASS");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SMINS_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (3), (/*_.CLABIND__V18*/ curfptr[17]), "SMINS_CLABIND");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SMINS_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (4), (/*_.FASTUP__V57*/ curfptr[48]), "SMINS_FIELDS");
+     ;
+     /*_.INST___V58*/ curfptr[45] = /*_.INST__V59*/ curfptr[46];;}
+    ;
+    /*_.LET___V56*/ curfptr[50] = /*_.INST___V58*/ curfptr[45];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2896:/ clear");
+    /*clear*/ /*_.FASTUP__V57*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2896:/ clear");
+    /*clear*/ /*_.INST___V58*/ curfptr[45] = 0 ;}
+   ;
+   /*_.LET___V21*/ curfptr[19] = /*_.LET___V56*/ curfptr[50];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.BND__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.FLDLIST__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.IFCPP___V38*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.IFCPP___V40*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.SETQ___V43*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.FOREVER___V44*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
+   /*clear*/ /*_.LET___V56*/ curfptr[50] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.CLANAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.CLA__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.CLABIND__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2844:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:2844:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:2844:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2844:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2844:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_42_warmelt_macro_MEXPAND_INSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_43_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_43_warmelt_macro_MEXPAND_LOAD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 37
+  void* varptr[37];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<37; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 37;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_LOAD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:2909:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:2909:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:2909:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:2909:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2910:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2910:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:2910:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_load start sexpr";
+    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
+    argtab[3].bp_long = 2910;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2910:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2910:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2910:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2911:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2911:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:2911:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2911:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2911:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2911:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2911:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2911)?(2911):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2911:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2911:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2911:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2912:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2912:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:2912:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2912:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2912:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2912:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2912:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2912)?(2912):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2912:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2912:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2912:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:2913:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:2913:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2914:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.FILNAM__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_.PAIR_TAIL__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:2918:/ cond");
+  /*cond*/ if (/*_.PAIR_TAIL__V17*/ curfptr[16]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:2918:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:2918:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:2919:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "LOAD expects one argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_A__L4*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-macro.melt:2920:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:2920:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:2920:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:2921:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:2921:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:2921:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.MACROEXPAND_1__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2921:/ compute");
+    /*_.FILNAM__V16*/ curfptr[15] = /*_.SETQ___V20*/ curfptr[19] = /*_.MACROEXPAND_1__V19*/ curfptr[18];;
+    /*_.IF___V18*/ curfptr[17] = /*_.SETQ___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2920:/ clear");
+    /*clear*/ /*_.MACROEXPAND_1__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2920:/ clear");
+    /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:2920:/ cond.else");
+  
+   /*_.IF___V18*/ curfptr[17] = NULL;;
+   }
+  ;
+  /*_#IS_A__L5*/ curfnum[4] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:2922:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:2922:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:2922:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:2923:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[19] = slot; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2923:/ compute");
+    /*_.FILNAM__V16*/ curfptr[15] = /*_.SETQ___V23*/ curfptr[22] = /*_.NAMED_NAME__V22*/ curfptr[19];;
+    /*_.IF___V21*/ curfptr[18] = /*_.SETQ___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2922:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2922:/ clear");
+    /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:2922:/ cond.else");
+  
+   /*_.IF___V21*/ curfptr[18] = NULL;;
+   }
+  ;
+  /*_#IS_STRING__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-macro.melt:2925:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:2925:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:2925:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:2926:/ locexp");
+    melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "; loading file "), (melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]));}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2927:/ block");
+    /*block*/{
+     /*_.CUREAD__V26*/ curfptr[25] = 
+      (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15])), (char*)0));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:2928:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:2928:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:2928:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_load curead";
+        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
+        argtab[3].bp_long = 2928;
+        /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:2928:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:2928:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:2928:/ cppif.else");
+     /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-macro.melt:2929:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:2929:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:2929:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-macro.melt:2929:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+       /*_.EXPLIST__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.CUREAD__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-macro.melt:2930:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:2930:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
+       /*_.EXPTUPLE__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EXPLIST__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-macro.melt:2932:/ cppif.then");
+      MELT_LOCATION("warmelt-macro.melt:2932:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+         callcount;;
+        MELT_LOCATION("warmelt-macro.melt:2932:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
+         argtab[0].bp_cstring =  "mexpand_load return exptuple";
+         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-macro.melt";
+         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
+         argtab[3].bp_long = 2932;
+         /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTUPLE__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V32*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:2932:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:2932:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-macro.melt:2932:/ cppif.else");
+      /*_.IFCPP___V32*/ curfptr[31] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-macro.melt:2933:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.EXPTUPLE__V31*/ curfptr[30];;
+       MELT_LOCATION("warmelt-macro.melt:2933:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.LET___V29*/ curfptr[27] = /*_.RETURN___V34*/ curfptr[32];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
+      /*clear*/ /*_.EXPLIST__V30*/ curfptr[29] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
+      /*clear*/ /*_.EXPTUPLE__V31*/ curfptr[30] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
+      /*clear*/ /*_.IFCPP___V32*/ curfptr[31] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
+      /*clear*/ /*_.RETURN___V34*/ curfptr[32] = 0 ;}
+     ;
+     /*_.LET___V25*/ curfptr[22] = /*_.LET___V29*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2927:/ clear");
+     /*clear*/ /*_.CUREAD__V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2927:/ clear");
+     /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2927:/ clear");
+     /*clear*/ /*_.LET___V29*/ curfptr[27] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2925:/ block");
+    /*block*/{
+     /*_.PROGN___V35*/ curfptr[29] = /*_.LET___V25*/ curfptr[22];;}
+    ;
+    /*_.IFELSE___V24*/ curfptr[19] = /*_.PROGN___V35*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2925:/ clear");
+    /*clear*/ /*_.LET___V25*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2925:/ clear");
+    /*clear*/ /*_.PROGN___V35*/ curfptr[29] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:2925:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:2925:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:2938:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:2938:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:2938:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
+       argtab[0].bp_cstring =  "mexpand_load strange filnam";
+       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
+       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
+       argtab[3].bp_long = 2938;
+       /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V36*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[31];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2938:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2938:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:2938:/ cppif.else");
+    /*_.IFCPP___V36*/ curfptr[30] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:2939:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "LOAD expects a string filename"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:2937:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2925:/ clear");
+    /*clear*/ /*_.IFCPP___V36*/ curfptr[30] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V24*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.FILNAM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.IF___V21*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_#IS_STRING__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
+  /*clear*/ /*_.IFELSE___V24*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2909:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:2909:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_LOAD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_43_warmelt_macro_MEXPAND_LOAD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 36
+  void* varptr[36];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<36; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 36;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PARSE_FIELD_PATTERN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
+ /*_.FKEYW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CLA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CLA__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FLPSEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:2946:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2947:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2947:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:2947:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
+    argtab[0].bp_cstring =  "parse_field_pattern keyw";
+    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
+    argtab[3].bp_long = 2947;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2947:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2947:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2947:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2948:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2948:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:2948:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2948:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2948:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2948:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2948:/ locexp");
+      melt_assert_failed(( "check fkeyw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2948)?(2948):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2948:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2948:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2948:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2949:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2949:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:2949:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2949:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2949:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2949:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2949:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2949)?(2949):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2949:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2949:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2949:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2950:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2950:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-macro.melt:2950:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2950:/ cond.then");
+   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2950:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2950:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2950:/ locexp");
+      melt_assert_failed(( "check pctc"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2950)?(2950):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2950:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2950:/ clear");
+   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2950:/ cppif.else");
+ /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2951:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2951:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CLA__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));;
+   MELT_LOCATION("warmelt-macro.melt:2951:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2951:/ cond.then");
+   /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2951:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2951:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2951:/ locexp");
+      melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2951)?(2951):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2951:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2951:/ clear");
+   /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2951:/ cppif.else");
+ /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:2952:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:2953:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V3*/ curfptr[2]), 6, "CLASS_FIELDS");/*_.CLAFIELDS__V19*/ curfptr[18] = slot; };
+  ;
+  /*_.FLDBOX__V20*/ curfptr[19] = 
+   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));;
+  MELT_LOCATION("warmelt-macro.melt:2955:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:2955:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-macro.melt:2955:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V6*/ curfptr[5];
+   MELT_LOCATION("warmelt-macro.melt:2955:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
+   /*_.FLPAT__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2960:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:2960:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:2960:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:2960:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[1] = (melt_ptr_t)(/*_.FLDBOX__V20*/ curfptr[19]);
+   ;
+   /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2958:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:2958:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
+   /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_ITERATE_TEST*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CLAFIELDS__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2970:/ block");
+  /*block*/{
+   /*_.FLD__V26*/ curfptr[25] = 
+    melt_box_content((meltbox_ptr_t)(/*_.FLDBOX__V20*/ curfptr[19]));;
+   /*_#IS_NOT_A__L6*/ curfnum[0] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.FLD__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[10])));;
+   MELT_LOCATION("warmelt-macro.melt:2972:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2972:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:2972:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:2975:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[27] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:2974:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6]), ( "invalid :field in pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[27]));}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2976:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+      MELT_LOCATION("warmelt-macro.melt:2976:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2973:/ block");
+     /*block*/{
+      /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;}
+     ;
+     /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:2972:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2972:/ clear");
+     /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:2972:/ clear");
+     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:2972:/ cond.else");
+   
+    /*_.IF___V27*/ curfptr[26] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:2977:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:2978:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:2978:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ curfrout->tabval[11])), (4), "CLASS_SOURCE_FIELD_PATTERN");/*_.INST__V33*/ curfptr[29] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2978:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V33*/ curfptr[29]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2978:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SPAF_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V33*/ curfptr[29]), (2), (/*_.FLD__V26*/ curfptr[25]), "SPAF_FIELD");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:2978:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SPAF_PATTERN", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V33*/ curfptr[29]), (3), (/*_.FLPAT__V21*/ curfptr[20]), "SPAF_PATTERN");
+     ;
+     /*_.PATF__V32*/ curfptr[28] = /*_.INST__V33*/ curfptr[29];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:2984:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:2984:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:2984:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
+       argtab[0].bp_cstring =  "parse_field_pattern return patf";
+       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
+       argtab[3].bp_long = 2984;
+       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PATF__V32*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:2984:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:2984:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:2984:/ cppif.else");
+    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:2985:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.PATF__V32*/ curfptr[28];;
+     MELT_LOCATION("warmelt-macro.melt:2985:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V31*/ curfptr[27] = /*_.RETURN___V36*/ curfptr[34];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:2977:/ clear");
+    /*clear*/ /*_.PATF__V32*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2977:/ clear");
+    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:2977:/ clear");
+    /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
+   ;
+   /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
+   /*clear*/ /*_.FLD__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
+   /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
+   /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;}
+  ;
+  /*_.LET___V18*/ curfptr[16] = /*_.LET___V25*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
+  /*clear*/ /*_.CLAFIELDS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
+  /*clear*/ /*_.FLDBOX__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
+  /*clear*/ /*_.FLPAT__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
+  /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
+  /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2946:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V18*/ curfptr[16];;
+  MELT_LOCATION("warmelt-macro.melt:2946:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
+ /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
+ /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
+ /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PARSE_FIELD_PATTERN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:2960:/ getarg");
+ /*_.CFLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:2960:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:2960:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2961:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2961:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:2961:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2961:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2961:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2961:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2961:/ locexp");
+      melt_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2961)?(2961):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2961:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2961:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2961:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:2962:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; };
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2963:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)((/*~FKEYW*/ curfclos->tabval[0])), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
+ ;
+ /*_#S__L3*/ curfnum[1] = 
+  melt_string_same((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]), (melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]));;
+ MELT_LOCATION("warmelt-macro.melt:2962:/ cond");
+ /*cond*/ if (/*_#S__L3*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-macro.melt:2962:/ cond.then");
+ MELT_LOCATION("warmelt-macro.melt:2962:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-macro.melt:2965:/ locexp");
+   meltgc_box_put((melt_ptr_t)((/*~FLDBOX*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.CFLD__V2*/ curfptr[1]));}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:2964:/ block");
+   /*block*/{
+    /*_.PROGN___V8*/ curfptr[7] = (/*nil*/NULL);;}
+   ;
+   /*_.IFELSE___V7*/ curfptr[6] = /*_.PROGN___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2962:/ clear");
+   /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-macro.melt:2962:/ cond.else");
+ 
+  /*_.IFELSE___V7*/ curfptr[6] = /*_.CFLD__V2*/ curfptr[1];;
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2960:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[6];;
+  MELT_LOCATION("warmelt-macro.melt:2960:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
+ /*clear*/ /*_#S__L3*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
+ /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_45_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_46_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_macro_PATEXPAND_INSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 62
+  void* varptr[62];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<62; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 62;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_INSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:2988:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:2988:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:2988:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:2988:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2989:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2989:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:2989:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2989:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2989:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2989:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2989:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2989)?(2989):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2989:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2989:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2989:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2990:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2990:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:2990:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2990:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2990:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2990:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2990:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2990)?(2990):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2990:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2990:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2990:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2991:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2991:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:2991:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:2991:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:2991:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:2991:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:2991:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (2991)?(2991):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2991:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2991:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2991:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:2992:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:2992:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:2992:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_instance sexpr";
+    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
+    argtab[3].bp_long = 2992;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:2992:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:2992:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:2992:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:2993:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:2994:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:2995:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.FIELDS__V16*/ curfptr[15] = (/*nil*/NULL);;
+  /*_.FIELDNAMS__V17*/ curfptr[16] = (/*nil*/NULL);;
+  /*_.LIST_FIRST__V18*/ curfptr[17] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V19*/ curfptr[18] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
+  /*_.CLANAME__V20*/ curfptr[19] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+  /*_.CLA__V21*/ curfptr[20] = (/*nil*/NULL);;
+  /*_.CLABIND__V22*/ curfptr[21] = (/*nil*/NULL);;
+  /*_#IS_NOT_A__L5*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:3003:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3003:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3003:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3004:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for INSTANCE pattern"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3005:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3005:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3005:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLANAME__V20*/ curfptr[19];
+    /*_.BND__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.FLDLIST__V25*/ curfptr[24] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+   /*_#IS_A__L6*/ curfnum[5] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[7])));;
+   MELT_LOCATION("warmelt-macro.melt:3009:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3009:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3009:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3010:/ compute");
+     /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];;
+     MELT_LOCATION("warmelt-macro.melt:3011:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ curfptr[27] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3011:/ compute");
+     /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];;
+     MELT_LOCATION("warmelt-macro.melt:3009:/ block");
+     /*block*/{
+      /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;}
+     ;
+     /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:3009:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3009:/ block");
+    /*block*/{
+     /*_#IS_A__L7*/ curfnum[6] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));;
+     MELT_LOCATION("warmelt-macro.melt:3013:/ cond");
+     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3013:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3013:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3014:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ curfptr[26] = slot; };
+       ;
+       /*_#IS_A__L9*/ curfnum[8] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V31*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
+       /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3013:/ cond.else");
+     
+      /*_#IF___L8*/ curfnum[7] = 0;;
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3013:/ cond");
+     /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3013:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3013:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3015:/ compute");
+       /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];;
+       MELT_LOCATION("warmelt-macro.melt:3016:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ curfptr[29] = slot; };
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3016:/ compute");
+       /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ block");
+       /*block*/{
+        /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;}
+       ;
+       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3013:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3013:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3020:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[28] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:3019:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "invalid class name for INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[28]));}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3021:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+        MELT_LOCATION("warmelt-macro.melt:3021:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3018:/ block");
+       /*block*/{
+        /*_.PROGN___V39*/ curfptr[26] = /*_.RETURN___V38*/ curfptr[29];;}
+       ;
+       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V39*/ curfptr[26];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.RETURN___V38*/ curfptr[29] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
+       /*clear*/ /*_.PROGN___V39*/ curfptr[26] = 0 ;}
+      ;
+      }
+     ;
+     /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
+     /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;}
+    ;
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3023:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3023:/ block");
+    /*block*/{
+     /*_#IS_A__L10*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CLA__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
+     MELT_LOCATION("warmelt-macro.melt:3023:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3023:/ cond.then");
+     /*_.IFELSE___V41*/ curfptr[28] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-macro.melt:3023:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3023:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3023:/ locexp");
+        melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3023)?(3023):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V40*/ curfptr[35] = /*_.IFELSE___V41*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3023:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3023:/ clear");
+     /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3023:/ cppif.else");
+   /*_.IFCPP___V40*/ curfptr[35] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.PAIR_TAIL__V42*/ curfptr[29] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+   MELT_LOCATION("warmelt-macro.melt:3024:/ compute");
+   /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V43*/ curfptr[26] = /*_.PAIR_TAIL__V42*/ curfptr[29];;
+   MELT_LOCATION("warmelt-macro.melt:3026:/ loop");
+   /*loop*/{ labloop_INSLOOP_4:;MELT_LOCATION("warmelt-macro.melt:3026:/ loopbody");
+   
+    MELT_LOCATION("warmelt-macro.melt:3026:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L11*/ curfnum[6] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);;
+     /*_#NOT__L12*/ curfnum[7] = 
+      (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
+     MELT_LOCATION("warmelt-macro.melt:3028:/ cond");
+     /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3028:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3028:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3028:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3028:/ compute");
+        /*_.INSLOOP__V45*/ curfptr[28] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3028:/ exit");
+        /*exit*/{
+         goto labexit_INSLOOP_4;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3029:/ block");
+     /*block*/{
+      /*_.CURFKW__V46*/ curfptr[45] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+      /*_#IS_NOT_A__L13*/ curfnum[8] = 
+       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[10])));;
+      MELT_LOCATION("warmelt-macro.melt:3030:/ cond");
+      /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:3030:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:3030:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3031:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in INSTANCE"), (melt_ptr_t)0);}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_.PAIR_TAIL__V47*/ curfptr[46] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+      MELT_LOCATION("warmelt-macro.melt:3032:/ compute");
+      /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V48*/ curfptr[47] = /*_.PAIR_TAIL__V47*/ curfptr[46];;
+      MELT_LOCATION("warmelt-macro.melt:3033:/ block");
+      /*block*/{
+       /*_.CUREXP__V49*/ curfptr[48] = 
+        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+       MELT_LOCATION("warmelt-macro.melt:3034:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3034:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[5];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLA__V21*/ curfptr[20];
+         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V49*/ curfptr[48];
+         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
+         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
+         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
+         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+         /*_.FLDP__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_PATTERN*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3035:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3035:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3035:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
+           argtab[0].bp_cstring =  "patexpand_instance fldp";
+           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
+           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
+           argtab[3].bp_long = 3035;
+           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3035:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3035:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3035:/ cppif.else");
+        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-macro.melt:3036:/ cond");
+        /*cond*/ if (/*_.FLDP__V50*/ curfptr[49]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3036:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3036:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3037:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]));}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:3036:/ cond.else");
+        
+         MELT_LOCATION("warmelt-macro.melt:3036:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3039:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3038:/ locexp");
+          melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "bad field name in INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3036:/ clear");
+          /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;}
+         ;
+         }
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3034:/ clear");
+        /*clear*/ /*_.FLDP__V50*/ curfptr[49] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3034:/ clear");
+        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3033:/ clear");
+       /*clear*/ /*_.CUREXP__V49*/ curfptr[48] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
+      /*clear*/ /*_.CURFKW__V46*/ curfptr[45] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
+      /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[46] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
+      /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ;}
+     ;
+     /*_.PAIR_TAIL__V54*/ curfptr[51] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+     MELT_LOCATION("warmelt-macro.melt:3041:/ compute");
+     /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V55*/ curfptr[49] = /*_.PAIR_TAIL__V54*/ curfptr[51];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
+     /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
+     /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V54*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
+     /*clear*/ /*_.SETQ___V55*/ curfptr[49] = 0 ;}
+    ;
+    ;
+     goto labloop_INSLOOP_4;
+     labexit_INSLOOP_4:;MELT_LOCATION("warmelt-macro.melt:3026:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V44*/ curfptr[27] = /*_.INSLOOP__V45*/ curfptr[28];;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3043:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3046:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3046:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
+     /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3043:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3043:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_INSTANCE*/ curfrout->tabval[12])), (4), "CLASS_SOURCE_PATTERN_INSTANCE");/*_.INST__V59*/ curfptr[46] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3043:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3043:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SPAT_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (2), (/*_.CLA__V21*/ curfptr[20]), "SPAT_CLASS");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3043:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SPAT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (3), (/*_.LIST_TO_MULTIPLE__V57*/ curfptr[48]), "SPAT_FIELDS");
+     ;
+     /*_.SPATI__V58*/ curfptr[45] = /*_.INST__V59*/ curfptr[46];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:3048:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:3048:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:3048:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
+       argtab[0].bp_cstring =  "patexpand_instance return spati";
+       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
+       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
+       argtab[3].bp_long = 3048;
+       /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SPATI__V58*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V60*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[51];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3048:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3048:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:3048:/ cppif.else");
+    /*_.IFCPP___V60*/ curfptr[47] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:3049:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V58*/ curfptr[45];;
+     MELT_LOCATION("warmelt-macro.melt:3049:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V56*/ curfptr[50] = /*_.RETURN___V62*/ curfptr[49];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
+    /*clear*/ /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
+    /*clear*/ /*_.SPATI__V58*/ curfptr[45] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
+    /*clear*/ /*_.IFCPP___V60*/ curfptr[47] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
+    /*clear*/ /*_.RETURN___V62*/ curfptr[49] = 0 ;}
+   ;
+   /*_.LET___V23*/ curfptr[22] = /*_.LET___V56*/ curfptr[50];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.IFCPP___V40*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.SETQ___V43*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.FOREVER___V44*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
+   /*clear*/ /*_.LET___V56*/ curfptr[50] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
+  /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:2988:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:2988:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_46_warmelt_macro_PATEXPAND_INSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_47_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_macro_PATEXPAND_OBJECT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 62
+  void* varptr[62];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<62; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 62;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_OBJECT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3069:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3069:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3069:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3069:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3070:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3070:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3070:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3070:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3070:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3070:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3070:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3070)?(3070):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3070:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3070:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3070:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3071:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3071:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3071:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3071:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3071:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3071:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3071:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3071)?(3071):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3071:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3071:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3071:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3072:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3072:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3072:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3072:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3072:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3072:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3072:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3072)?(3072):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3072:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3072:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3072:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3073:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3073:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3073:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_object sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
+    argtab[3].bp_long = 3073;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3073:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3073:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3073:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3074:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3075:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3076:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.FIELDS__V16*/ curfptr[15] = (/*nil*/NULL);;
+  /*_.FIELDNAMS__V17*/ curfptr[16] = (/*nil*/NULL);;
+  /*_.LIST_FIRST__V18*/ curfptr[17] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V19*/ curfptr[18] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
+  /*_.CLANAME__V20*/ curfptr[19] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+  /*_.CLA__V21*/ curfptr[20] = (/*nil*/NULL);;
+  /*_.CLABIND__V22*/ curfptr[21] = (/*nil*/NULL);;
+  /*_#IS_NOT_A__L5*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:3084:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3084:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3084:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3085:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for  OBJECT pattern"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3086:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3086:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3086:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLANAME__V20*/ curfptr[19];
+    /*_.BND__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.FLDLIST__V25*/ curfptr[24] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+   /*_#IS_A__L6*/ curfnum[5] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[7])));;
+   MELT_LOCATION("warmelt-macro.melt:3090:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3090:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3090:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3091:/ compute");
+     /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];;
+     MELT_LOCATION("warmelt-macro.melt:3092:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ curfptr[27] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3092:/ compute");
+     /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];;
+     MELT_LOCATION("warmelt-macro.melt:3090:/ block");
+     /*block*/{
+      /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;}
+     ;
+     /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:3090:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3090:/ block");
+    /*block*/{
+     /*_#IS_A__L7*/ curfnum[6] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));;
+     MELT_LOCATION("warmelt-macro.melt:3094:/ cond");
+     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3094:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3094:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3095:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ curfptr[26] = slot; };
+       ;
+       /*_#IS_A__L9*/ curfnum[8] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V31*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
+       /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3094:/ cond.else");
+     
+      /*_#IF___L8*/ curfnum[7] = 0;;
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3094:/ cond");
+     /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3094:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3094:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3096:/ compute");
+       /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];;
+       MELT_LOCATION("warmelt-macro.melt:3097:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ curfptr[29] = slot; };
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3097:/ compute");
+       /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ block");
+       /*block*/{
+        /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;}
+       ;
+       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3094:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3094:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3101:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[28] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:3100:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "invalid class name for OBJECT pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[28]));}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3102:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+        MELT_LOCATION("warmelt-macro.melt:3102:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3099:/ block");
+       /*block*/{
+        /*_.PROGN___V39*/ curfptr[26] = /*_.RETURN___V38*/ curfptr[29];;}
+       ;
+       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V39*/ curfptr[26];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.RETURN___V38*/ curfptr[29] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
+       /*clear*/ /*_.PROGN___V39*/ curfptr[26] = 0 ;}
+      ;
+      }
+     ;
+     /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
+     /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;}
+    ;
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3104:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3104:/ block");
+    /*block*/{
+     /*_#IS_A__L10*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CLA__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
+     MELT_LOCATION("warmelt-macro.melt:3104:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3104:/ cond.then");
+     /*_.IFELSE___V41*/ curfptr[28] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-macro.melt:3104:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3104:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3104:/ locexp");
+        melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3104)?(3104):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V40*/ curfptr[35] = /*_.IFELSE___V41*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3104:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3104:/ clear");
+     /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3104:/ cppif.else");
+   /*_.IFCPP___V40*/ curfptr[35] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.PAIR_TAIL__V42*/ curfptr[29] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+   MELT_LOCATION("warmelt-macro.melt:3105:/ compute");
+   /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V43*/ curfptr[26] = /*_.PAIR_TAIL__V42*/ curfptr[29];;
+   MELT_LOCATION("warmelt-macro.melt:3107:/ loop");
+   /*loop*/{ labloop_INSLOOP_5:;MELT_LOCATION("warmelt-macro.melt:3107:/ loopbody");
+   
+    MELT_LOCATION("warmelt-macro.melt:3107:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L11*/ curfnum[6] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);;
+     /*_#NOT__L12*/ curfnum[7] = 
+      (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
+     MELT_LOCATION("warmelt-macro.melt:3109:/ cond");
+     /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3109:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3109:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3109:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3109:/ compute");
+        /*_.INSLOOP__V45*/ curfptr[28] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3109:/ exit");
+        /*exit*/{
+         goto labexit_INSLOOP_5;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3110:/ block");
+     /*block*/{
+      /*_.CURFKW__V46*/ curfptr[45] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+      /*_#IS_NOT_A__L13*/ curfnum[8] = 
+       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[10])));;
+      MELT_LOCATION("warmelt-macro.melt:3111:/ cond");
+      /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:3111:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:3111:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3112:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in OBJECT pattern"), (melt_ptr_t)0);}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_.PAIR_TAIL__V47*/ curfptr[46] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+      MELT_LOCATION("warmelt-macro.melt:3113:/ compute");
+      /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V48*/ curfptr[47] = /*_.PAIR_TAIL__V47*/ curfptr[46];;
+      MELT_LOCATION("warmelt-macro.melt:3114:/ block");
+      /*block*/{
+       /*_.CUREXP__V49*/ curfptr[48] = 
+        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+       MELT_LOCATION("warmelt-macro.melt:3115:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3115:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[5];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLA__V21*/ curfptr[20];
+         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V49*/ curfptr[48];
+         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
+         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
+         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
+         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+         /*_.FLDP__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_PATTERN*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3116:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3116:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3116:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
+           argtab[0].bp_cstring =  "patexpand_object fldp";
+           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
+           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
+           argtab[3].bp_long = 3116;
+           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3116:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3116:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3116:/ cppif.else");
+        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-macro.melt:3117:/ cond");
+        /*cond*/ if (/*_.FLDP__V50*/ curfptr[49]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3117:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3117:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3118:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]));}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:3117:/ cond.else");
+        
+         MELT_LOCATION("warmelt-macro.melt:3117:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3120:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3119:/ locexp");
+          melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "bad field name in OBJECT pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3117:/ clear");
+          /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;}
+         ;
+         }
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3115:/ clear");
+        /*clear*/ /*_.FLDP__V50*/ curfptr[49] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3115:/ clear");
+        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3114:/ clear");
+       /*clear*/ /*_.CUREXP__V49*/ curfptr[48] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
+      /*clear*/ /*_.CURFKW__V46*/ curfptr[45] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
+      /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[46] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
+      /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ;}
+     ;
+     /*_.PAIR_TAIL__V54*/ curfptr[51] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
+     MELT_LOCATION("warmelt-macro.melt:3122:/ compute");
+     /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V55*/ curfptr[49] = /*_.PAIR_TAIL__V54*/ curfptr[51];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
+     /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
+     /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V54*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
+     /*clear*/ /*_.SETQ___V55*/ curfptr[49] = 0 ;}
+    ;
+    ;
+     goto labloop_INSLOOP_5;
+     labexit_INSLOOP_5:;MELT_LOCATION("warmelt-macro.melt:3107:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V44*/ curfptr[27] = /*_.INSLOOP__V45*/ curfptr[28];;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3124:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3127:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3127:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
+     /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3124:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3124:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OBJECT*/ curfrout->tabval[12])), (4), "CLASS_SOURCE_PATTERN_OBJECT");/*_.INST__V59*/ curfptr[46] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3124:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3124:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SPAT_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (2), (/*_.CLA__V21*/ curfptr[20]), "SPAT_CLASS");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3124:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SPAT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (3), (/*_.LIST_TO_MULTIPLE__V57*/ curfptr[48]), "SPAT_FIELDS");
+     ;
+     /*_.SPATI__V58*/ curfptr[45] = /*_.INST__V59*/ curfptr[46];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:3129:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:3129:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:3129:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
+       argtab[0].bp_cstring =  "patexpand_object return spati";
+       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
+       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
+       argtab[3].bp_long = 3129;
+       /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SPATI__V58*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V60*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[51];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3129:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3129:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:3129:/ cppif.else");
+    /*_.IFCPP___V60*/ curfptr[47] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:3130:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V58*/ curfptr[45];;
+     MELT_LOCATION("warmelt-macro.melt:3130:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V56*/ curfptr[50] = /*_.RETURN___V62*/ curfptr[49];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
+    /*clear*/ /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
+    /*clear*/ /*_.SPATI__V58*/ curfptr[45] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
+    /*clear*/ /*_.IFCPP___V60*/ curfptr[47] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
+    /*clear*/ /*_.RETURN___V62*/ curfptr[49] = 0 ;}
+   ;
+   /*_.LET___V23*/ curfptr[22] = /*_.LET___V56*/ curfptr[50];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.IFCPP___V40*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.SETQ___V43*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.FOREVER___V44*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
+   /*clear*/ /*_.LET___V56*/ curfptr[50] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
+  /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3069:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3069:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_OBJECT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_47_warmelt_macro_PATEXPAND_OBJECT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_48_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_macro_MEXPAND_OBJECT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_OBJECT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3134:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3134:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3134:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3134:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3135:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3135:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3135:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3135:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3135:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3135:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3135:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3135)?(3135):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3135:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3135:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3135:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3136:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3136:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3136:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3136:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3136:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3136:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3136:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3136)?(3136):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3136:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3136:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3136:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3137:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3137:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3137:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_object sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
+    argtab[3].bp_long = 3137;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3137:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3137:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3137:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3138:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3139:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-macro.melt:3141:/ locexp");
+  melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"), (melt_ptr_t)0);}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3142:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+   MELT_LOCATION("warmelt-macro.melt:3142:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3138:/ clear");
+  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3138:/ clear");
+  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3134:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3134:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_OBJECT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_48_warmelt_macro_MEXPAND_OBJECT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 40
+  void* varptr[40];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<40; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 40;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_CODE_CHUNK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3157:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3157:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3157:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3157:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3158:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3158:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3158:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3158:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3158:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3158:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3158:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3158)?(3158):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3158:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3158:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3158:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3159:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3159:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3159:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3159:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3159:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3159:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3159:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3159)?(3159):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3159:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3159:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3159:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3160:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3160:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3161:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.CURCHK__V14*/ curfptr[13] = (/*nil*/NULL);;
+  /*_.GSYM__V15*/ curfptr[14] = (/*nil*/NULL);;
+  /*_.CHKLIST__V16*/ curfptr[15] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_.CUREL__V17*/ curfptr[16] = (/*nil*/NULL);;
+  /*_.PAIR_HEAD__V18*/ curfptr[17] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3168:/ compute");
+  /*_.CUREL__V17*/ curfptr[16] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_HEAD__V18*/ curfptr[17];;
+  /*_#IS_A__L3*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CUREL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-macro.melt:3169:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3169:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3169:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3170:/ compute");
+    /*_.GSYM__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.CUREL__V17*/ curfptr[16];;
+    /*_.IFELSE___V20*/ curfptr[19] = /*_.SETQ___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3169:/ clear");
+    /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3169:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:3169:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3171:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "missing symbol in (CODE_CHUNK <state-symbol> <chunk>)"), (melt_ptr_t)0);}
+     ;
+     /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  /*_.PAIR_TAIL__V22*/ curfptr[20] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3172:/ compute");
+  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[20];;
+  /*_.PAIR_HEAD__V24*/ curfptr[23] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3173:/ compute");
+  /*_.CURCHK__V14*/ curfptr[13] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_HEAD__V24*/ curfptr[23];;
+  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3174:/ cond");
+  /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3174:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3174:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3175:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "CODE_CHUNK expects one single chunk sexpr"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_NOT_A__L4*/ curfnum[3] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+  MELT_LOCATION("warmelt-macro.melt:3176:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3176:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3176:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3177:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "CODE_CHUNK expects a chunk sexpr"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3178:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3178:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3178:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3178:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), 1, "LOCA_LOCATION");/*_.LOC__V28*/ curfptr[27] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:3178:/ cond.else");
+   
+    /*_.LOC__V28*/ curfptr[27] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3179:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])))) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3179:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3179:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), 2, "SEXP_CONTENTS");/*_.CHKCONT__V29*/ curfptr[28] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:3179:/ cond.else");
+   
+    /*_.CHKCONT__V29*/ curfptr[28] = NULL;;
+    }
+   ;
+   /*citerblock FOREACH_IN_LIST*/ {
+   /* start cit1__EACHLIST */
+   for (/*_.CURPAIR__V30*/ curfptr[29] = melt_list_first(/*_.CHKCONT__V29*/ curfptr[28]);
+	melt_magic_discr(/*_.CURPAIR__V30*/ curfptr[29]) == OBMAG_PAIR;
+        /*_.CURPAIR__V30*/ curfptr[29] = melt_pair_tail(/*_.CURPAIR__V30*/ curfptr[29])) {
+	/*_.CURCOMP__V31*/ curfptr[30] = melt_pair_head(/*_.CURPAIR__V30*/ curfptr[29]); 
+   
+    /*_#IS_STRING__L5*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-macro.melt:3184:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3184:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3184:/ block");
+     /*block*/{
+      /*_.MAKE_STRING__V32*/ curfptr[31] = 
+       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[5])), 
+			  melt_string_str((melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]))));;
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3185:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (melt_ptr_t)(/*_.MAKE_STRING__V32*/ curfptr[31]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3184:/ clear");
+      /*clear*/ /*_.MAKE_STRING__V32*/ curfptr[31] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:3184:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:3184:/ block");
+     /*block*/{
+      /*_#IS_A__L6*/ curfnum[5] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+      MELT_LOCATION("warmelt-macro.melt:3187:/ cond");
+      /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:3187:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:3187:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3188:/ locexp");
+        meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]));}
+        ;
+        /*epilog*/}
+       ;
+      } else {MELT_LOCATION("warmelt-macro.melt:3187:/ cond.else");
+      
+       MELT_LOCATION("warmelt-macro.melt:3187:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3190:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V28*/ curfptr[27]), ( "bad content in CODE_CHUNK - expecting string or symbol"), (melt_ptr_t)0);}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3189:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3184:/ clear");
+      /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;}
+     ;
+     }
+    ;
+    } /* end cit1__EACHLIST */
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-macro.melt:3181:/ clear");
+    /*clear*/ /*_.CURPAIR__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3181:/ clear");
+    /*clear*/ /*_.CURCOMP__V31*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3181:/ clear");
+    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3192:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3193:/ cond");
+    /*cond*/ if (/*_.LOC__V28*/ curfptr[27]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3193:/ cond.then");
+    /*_.OR___V34*/ curfptr[33] = /*_.LOC__V28*/ curfptr[27];;
+    } else {MELT_LOCATION("warmelt-macro.melt:3193:/ cond.else");
+    
+     /*_.OR___V34*/ curfptr[33] = /*_.SLOC__V11*/ curfptr[10];;
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3195:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3195:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]);
+     /*_.LIST_TO_MULTIPLE__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3192:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3192:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CODECHUNK*/ curfrout->tabval[6])), (4), "CLASS_SOURCE_CODECHUNK");/*_.INST__V37*/ curfptr[36] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3192:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OR___V34*/ curfptr[33]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3192:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SCH_GENSYM", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.GSYM__V15*/ curfptr[14]), "SCH_GENSYM");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3192:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SCH_CHUNKS", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (3), (/*_.LIST_TO_MULTIPLE__V35*/ curfptr[34]), "SCH_CHUNKS");
+     ;
+     /*_.MRES__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:3197:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:3197:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:3197:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
+       argtab[0].bp_cstring =  "mexpand_code_chunk result";
+       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
+       argtab[3].bp_long = 3197;
+       /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.MRES__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3197:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3197:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:3197:/ cppif.else");
+    /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:3198:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.MRES__V36*/ curfptr[35];;
+     MELT_LOCATION("warmelt-macro.melt:3198:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V33*/ curfptr[31] = /*_.RETURN___V40*/ curfptr[38];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
+    /*clear*/ /*_.OR___V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
+    /*clear*/ /*_.LIST_TO_MULTIPLE__V35*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
+    /*clear*/ /*_.MRES__V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
+    /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
+    /*clear*/ /*_.RETURN___V40*/ curfptr[38] = 0 ;}
+   ;
+   /*_.LET___V27*/ curfptr[26] = /*_.LET___V33*/ curfptr[31];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3178:/ clear");
+   /*clear*/ /*_.LOC__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3178:/ clear");
+   /*clear*/ /*_.CHKCONT__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3178:/ clear");
+   /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V27*/ curfptr[26];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.SLOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.CURCHK__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.GSYM__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.CHKLIST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.CUREL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
+  /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3157:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:3157:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3157:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3157:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3157:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_CODE_CHUNK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 35
+  void* varptr[35];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<35; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 35;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3208:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3208:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3208:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3208:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3209:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3209:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3209:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3209:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3209:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3209:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3209:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3209)?(3209):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3209:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3209:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3209:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3210:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3210:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3210:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3210:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3210:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3210:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3210:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3210)?(3210):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3210:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3210:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3210:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3211:/ block");
+ /*block*/{
+  /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);;
+  /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-macro.melt:3213:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3214:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.OBJSRC__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#IS_A__L3*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+  MELT_LOCATION("warmelt-macro.melt:3218:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3218:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3218:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3219:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3219:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:3219:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.MACROEXPAND_1__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.OBJEXP__V17*/ curfptr[16] = /*_.MACROEXPAND_1__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3218:/ clear");
+    /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3218:/ cond.else");
+  
+   /*_.OBJEXP__V17*/ curfptr[16] = /*_.OBJSRC__V16*/ curfptr[15];;
+   }
+  ;
+  /*_.PAIR_TAIL__V19*/ curfptr[17] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:3222:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];;
+  MELT_LOCATION("warmelt-macro.melt:3223:/ block");
+  /*block*/{
+   /*_.FLDLIST__V22*/ curfptr[21] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+   MELT_LOCATION("warmelt-macro.melt:3225:/ loop");
+   /*loop*/{ labloop_INSLOOP_6:;MELT_LOCATION("warmelt-macro.melt:3225:/ loopbody");
+   
+    MELT_LOCATION("warmelt-macro.melt:3225:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L4*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+     /*_#NOT__L5*/ curfnum[4] = 
+      (!(/*_#IS_PAIR__L4*/ curfnum[3]));;
+     MELT_LOCATION("warmelt-macro.melt:3226:/ cond");
+     /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3226:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3226:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3226:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3226:/ compute");
+        /*_.INSLOOP__V24*/ curfptr[23] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3226:/ exit");
+        /*exit*/{
+         goto labexit_INSLOOP_6;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3227:/ block");
+     /*block*/{
+      /*_.CURFKW__V25*/ curfptr[24] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+      /*_#IS_NOT_A__L6*/ curfnum[5] = 
+       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
+      MELT_LOCATION("warmelt-macro.melt:3228:/ cond");
+      /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:3228:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:3228:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3229:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in UNSAFE_PUT_FIELDS"), (melt_ptr_t)0);}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_.PAIR_TAIL__V26*/ curfptr[25] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+      MELT_LOCATION("warmelt-macro.melt:3230:/ compute");
+      /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
+      MELT_LOCATION("warmelt-macro.melt:3231:/ block");
+      /*block*/{
+       /*_.CUREXP__V28*/ curfptr[27] = 
+        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+       MELT_LOCATION("warmelt-macro.melt:3232:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3232:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[5];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ curfptr[12];
+         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24];
+         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
+         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27];
+         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
+         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
+         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+         /*_.FLDA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3233:/ cond");
+        /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3233:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3233:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3234:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ curfptr[28]));}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3232:/ clear");
+        /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3231:/ clear");
+       /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
+      /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
+      /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
+      /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;}
+     ;
+     /*_.PAIR_TAIL__V30*/ curfptr[28] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+     MELT_LOCATION("warmelt-macro.melt:3236:/ compute");
+     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
+     /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
+     /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
+     /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;}
+    ;
+    ;
+     goto labloop_INSLOOP_6;
+     labexit_INSLOOP_6:;MELT_LOCATION("warmelt-macro.melt:3225:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3238:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3238:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3238:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
+     /*_.FASTUP__V33*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3239:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3239:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ curfrout->tabval[8])), (4), "CLASS_SOURCE_UNSAFE_PUT_FIELDS");/*_.INST__V35*/ curfptr[28] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3239:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3239:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (2), (/*_.OBJEXP__V17*/ curfptr[16]), "SUPUT_OBJ");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3239:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (3), (/*_.FASTUP__V33*/ curfptr[25]), "SUPUT_FIELDS");
+     ;
+     /*_.INST___V34*/ curfptr[26] = /*_.INST__V35*/ curfptr[28];;}
+    ;
+    /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3238:/ clear");
+    /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3238:/ clear");
+    /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;}
+   ;
+   /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3223:/ clear");
+   /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3223:/ clear");
+   /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3223:/ clear");
+   /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3208:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:3208:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3208:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3208:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3208:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_UNSAFE_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 35
+  void* varptr[35];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<35; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 35;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_PUT_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3248:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3248:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3248:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3248:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3249:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3249:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3249:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3249:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3249:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3249:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3249:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3249)?(3249):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3249:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3249:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3249:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3250:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3250:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3250:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3250:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3250:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3250:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3250:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3250)?(3250):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3250:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3250:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3250:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3251:/ block");
+ /*block*/{
+  /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);;
+  /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-macro.melt:3253:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3254:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.OBJSRC__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#IS_A__L3*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+  MELT_LOCATION("warmelt-macro.melt:3258:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3258:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3258:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3259:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3259:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:3259:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.MACROEXPAND_1__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.OBJEXP__V17*/ curfptr[16] = /*_.MACROEXPAND_1__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3258:/ clear");
+    /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3258:/ cond.else");
+  
+   /*_.OBJEXP__V17*/ curfptr[16] = /*_.OBJSRC__V16*/ curfptr[15];;
+   }
+  ;
+  /*_.PAIR_TAIL__V19*/ curfptr[17] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:3262:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];;
+  MELT_LOCATION("warmelt-macro.melt:3263:/ block");
+  /*block*/{
+   /*_.FLDLIST__V22*/ curfptr[21] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+   MELT_LOCATION("warmelt-macro.melt:3265:/ loop");
+   /*loop*/{ labloop_INSLOOP_7:;MELT_LOCATION("warmelt-macro.melt:3265:/ loopbody");
+   
+    MELT_LOCATION("warmelt-macro.melt:3265:/ block");
+    /*block*/{
+     /*_#IS_PAIR__L4*/ curfnum[3] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+     /*_#NOT__L5*/ curfnum[4] = 
+      (!(/*_#IS_PAIR__L4*/ curfnum[3]));;
+     MELT_LOCATION("warmelt-macro.melt:3266:/ cond");
+     /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3266:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3266:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3266:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3266:/ compute");
+        /*_.INSLOOP__V24*/ curfptr[23] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3266:/ exit");
+        /*exit*/{
+         goto labexit_INSLOOP_7;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3267:/ block");
+     /*block*/{
+      /*_.CURFKW__V25*/ curfptr[24] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+      /*_#IS_NOT_A__L6*/ curfnum[5] = 
+       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
+      MELT_LOCATION("warmelt-macro.melt:3268:/ cond");
+      /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:3268:/ cond.then");
+      MELT_LOCATION("warmelt-macro.melt:3268:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3269:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in PUT_FIELDS"), (melt_ptr_t)0);}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*_.PAIR_TAIL__V26*/ curfptr[25] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+      MELT_LOCATION("warmelt-macro.melt:3270:/ compute");
+      /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
+      MELT_LOCATION("warmelt-macro.melt:3271:/ block");
+      /*block*/{
+       /*_.CUREXP__V28*/ curfptr[27] = 
+        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+       MELT_LOCATION("warmelt-macro.melt:3272:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3272:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[5];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ curfptr[12];
+         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24];
+         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
+         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27];
+         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
+         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
+         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+         /*_.FLDA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3273:/ cond");
+        /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3273:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3273:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3274:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ curfptr[28]));}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3272:/ clear");
+        /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3271:/ clear");
+       /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
+      /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
+      /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
+      /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;}
+     ;
+     /*_.PAIR_TAIL__V30*/ curfptr[28] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+     MELT_LOCATION("warmelt-macro.melt:3276:/ compute");
+     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
+     /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
+     /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
+     /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;}
+    ;
+    ;
+     goto labloop_INSLOOP_7;
+     labexit_INSLOOP_7:;MELT_LOCATION("warmelt-macro.melt:3265:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3278:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3278:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3278:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
+     /*_.FASTUP__V33*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3279:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3279:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ curfrout->tabval[8])), (4), "CLASS_SOURCE_PUT_FIELDS");/*_.INST__V35*/ curfptr[28] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3279:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3279:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (2), (/*_.OBJEXP__V17*/ curfptr[16]), "SUPUT_OBJ");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3279:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (3), (/*_.FASTUP__V33*/ curfptr[25]), "SUPUT_FIELDS");
+     ;
+     /*_.INST___V34*/ curfptr[26] = /*_.INST__V35*/ curfptr[28];;}
+    ;
+    /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3278:/ clear");
+    /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3278:/ clear");
+    /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;}
+   ;
+   /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3263:/ clear");
+   /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3263:/ clear");
+   /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3263:/ clear");
+   /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3248:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:3248:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3248:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3248:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3248:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_UNSAFE_GET_FIELD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3288:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3288:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3288:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3288:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3289:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3289:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3289:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3289:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3289:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3289:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3289:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3289)?(3289):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3289:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3289:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3289:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3290:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3290:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3290:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3290:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3290:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3290:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3290:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3290)?(3290):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3290:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3290:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3290:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3291:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3291:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3292:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.CURFKW__V14*/ curfptr[13] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  /*_#IS_NOT_A__L3*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-macro.melt:3296:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3296:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3296:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3298:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "field keyword expected in UNSAFE_GET_FIELD"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3299:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:3299:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3297:/ block");
+    /*block*/{
+     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3296:/ clear");
+    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3296:/ clear");
+    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3296:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3300:/ compute");
+  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
+  MELT_LOCATION("warmelt-macro.melt:3301:/ block");
+  /*block*/{
+   /*_.CUREXP__V21*/ curfptr[20] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   /*_.PAIR_TAIL__V22*/ curfptr[21] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:3302:/ compute");
+   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
+   MELT_LOCATION("warmelt-macro.melt:3303:/ cond");
+   /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3303:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3303:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3303:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (melt_ptr_t)0);}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3306:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3306:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[5];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ curfptr[10];
+     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13];
+     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V21*/ curfptr[20];
+     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
+     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
+     argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.FLDA__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[4])));;
+    /*_#NOT__L5*/ curfnum[4] = 
+     (!(/*_#IS_A__L4*/ curfnum[3]));;
+    MELT_LOCATION("warmelt-macro.melt:3307:/ cond");
+    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3307:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3307:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3309:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "bad field and expression in UNSAFE_GET_FIELD"), (melt_ptr_t)0);}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3310:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+       MELT_LOCATION("warmelt-macro.melt:3310:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3308:/ block");
+      /*block*/{
+       /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;}
+      ;
+      /*_.IF___V26*/ curfptr[25] = /*_.PROGN___V28*/ curfptr[27];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3307:/ clear");
+      /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3307:/ clear");
+      /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:3307:/ cond.else");
+    
+     /*_.IF___V26*/ curfptr[25] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3311:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3311:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ curfptr[27] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3312:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ curfptr[30] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3313:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3313:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD");/*_.INST__V33*/ curfptr[32] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3313:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3313:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.EXP__V31*/ curfptr[30]), "SUGET_OBJ");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3313:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.FLD__V30*/ curfptr[27]), "SUGET_FIELD");
+      ;
+      /*_.INST___V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
+     ;
+     /*_.LET___V29*/ curfptr[26] = /*_.INST___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3311:/ clear");
+     /*clear*/ /*_.FLD__V30*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3311:/ clear");
+     /*clear*/ /*_.EXP__V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3311:/ clear");
+     /*clear*/ /*_.INST___V32*/ curfptr[31] = 0 ;}
+    ;
+    /*_.LET___V24*/ curfptr[23] = /*_.LET___V29*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
+    /*clear*/ /*_.FLDA__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
+    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
+    /*clear*/ /*_.IF___V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
+    /*clear*/ /*_.LET___V29*/ curfptr[26] = 0 ;}
+   ;
+   /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
+   /*clear*/ /*_.CUREXP__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
+   /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
+   /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V20*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3288:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:3288:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3288:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3288:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_UNSAFE_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_53_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_macro_MEXPAND_GET_FIELD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_GET_FIELD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3322:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3322:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3322:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3322:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3323:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3323:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3323:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3323:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3323:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3323:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3323:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3323)?(3323):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3323:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3323:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3323:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3324:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3324:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3324:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3324:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3324:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3324:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3324:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3324)?(3324):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3324:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3324:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3324:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3325:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3325:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3326:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.CURFKW__V14*/ curfptr[13] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  /*_#IS_NOT_A__L3*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-macro.melt:3330:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3330:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3330:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3332:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "field keyword expected in GET_FIELD"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3333:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:3333:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3331:/ block");
+    /*block*/{
+     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3330:/ clear");
+    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3330:/ clear");
+    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3330:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3334:/ compute");
+  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
+  MELT_LOCATION("warmelt-macro.melt:3335:/ block");
+  /*block*/{
+   /*_.CUREXP__V21*/ curfptr[20] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   /*_.PAIR_TAIL__V22*/ curfptr[21] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:3336:/ compute");
+   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
+   MELT_LOCATION("warmelt-macro.melt:3337:/ cond");
+   /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3337:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3337:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3337:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (melt_ptr_t)0);}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3340:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3340:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[5];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ curfptr[10];
+     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13];
+     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V21*/ curfptr[20];
+     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
+     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
+     argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.FLDA__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[4])));;
+    /*_#NOT__L5*/ curfnum[4] = 
+     (!(/*_#IS_A__L4*/ curfnum[3]));;
+    MELT_LOCATION("warmelt-macro.melt:3341:/ cond");
+    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3341:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3341:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3343:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "bad field and expression in GET_FIELD"), (melt_ptr_t)0);}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3344:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+       MELT_LOCATION("warmelt-macro.melt:3344:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3342:/ block");
+      /*block*/{
+       /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;}
+      ;
+      /*_.IF___V26*/ curfptr[25] = /*_.PROGN___V28*/ curfptr[27];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3341:/ clear");
+      /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3341:/ clear");
+      /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:3341:/ cond.else");
+    
+     /*_.IF___V26*/ curfptr[25] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3345:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3345:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ curfptr[27] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3346:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ curfptr[30] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3347:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3347:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_GET_FIELD");/*_.INST__V33*/ curfptr[32] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3347:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3347:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.EXP__V31*/ curfptr[30]), "SUGET_OBJ");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3347:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.FLD__V30*/ curfptr[27]), "SUGET_FIELD");
+      ;
+      /*_.INST___V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
+     ;
+     /*_.LET___V29*/ curfptr[26] = /*_.INST___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3345:/ clear");
+     /*clear*/ /*_.FLD__V30*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3345:/ clear");
+     /*clear*/ /*_.EXP__V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3345:/ clear");
+     /*clear*/ /*_.INST___V32*/ curfptr[31] = 0 ;}
+    ;
+    /*_.LET___V24*/ curfptr[23] = /*_.LET___V29*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
+    /*clear*/ /*_.FLDA__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
+    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
+    /*clear*/ /*_.IF___V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
+    /*clear*/ /*_.LET___V29*/ curfptr[26] = 0 ;}
+   ;
+   /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
+   /*clear*/ /*_.CUREXP__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
+   /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
+   /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V20*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3322:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:3322:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3322:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3322:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3322:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_53_warmelt_macro_MEXPAND_GET_FIELD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_54_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_macro_MEXPAND_SETQ_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 26
+  void* varptr[26];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<26; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 26;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_SETQ", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3357:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3357:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3357:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3357:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3358:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3358:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3358:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3358:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3358:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3358:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3358:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3358)?(3358):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3358:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3358:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3358:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3359:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3359:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3359:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3359:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3359:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3359:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3359:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3359)?(3359):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3359:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3359:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3359:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3360:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3360:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3361:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.CURSYM__V14*/ curfptr[13] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  /*_#IS_NOT_A__L3*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-macro.melt:3365:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3365:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3365:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3367:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "var symbol name expected in SETQ"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3368:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:3368:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3366:/ block");
+    /*block*/{
+     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3365:/ clear");
+    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3365:/ clear");
+    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3365:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:3369:/ compute");
+  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
+  MELT_LOCATION("warmelt-macro.melt:3370:/ block");
+  /*block*/{
+   /*_.CUREXP__V21*/ curfptr[20] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   /*_.PAIR_TAIL__V22*/ curfptr[21] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:3371:/ compute");
+   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
+   MELT_LOCATION("warmelt-macro.melt:3372:/ cond");
+   /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3372:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3372:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3372:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "SETQ with more than two sons"), (melt_ptr_t)0);}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3376:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3376:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-macro.melt:3376:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+    /*_.MACROEXPAND_1__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CUREXP__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3373:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3373:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ curfrout->tabval[3])), (4), "CLASS_SOURCE_SETQ");/*_.INST__V26*/ curfptr[25] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3373:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3373:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (2), (/*_.CURSYM__V14*/ curfptr[13]), "SSTQ_VAR");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3373:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SSTQ_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (3), (/*_.MACROEXPAND_1__V24*/ curfptr[23]), "SSTQ_EXPR");
+    ;
+    /*_.INST___V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;}
+   ;
+   /*_.LET___V20*/ curfptr[19] = /*_.INST___V25*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
+   /*clear*/ /*_.CUREXP__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
+   /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
+   /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
+   /*clear*/ /*_.INST___V25*/ curfptr[24] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V20*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.CURSYM__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3357:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:3357:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3357:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3357:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3357:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_SETQ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_54_warmelt_macro_MEXPAND_SETQ*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_55_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_macro_MEXPAND_IF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 50
+  void* varptr[50];
+#define CURFRAM_NBVARNUM 14
+  long varnum[14];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<50; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 50;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_IF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3383:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3383:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3383:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3383:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3384:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3384:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3384:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3384:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3384:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3384:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3384:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3384)?(3384):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3384:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3384:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3384:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3385:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3385:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3385:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3385:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3385:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3385:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3385:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3385)?(3385):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3385:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3385:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3385:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3386:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3386:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3386:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_if sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
+    argtab[3].bp_long = 3386;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3386:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3386:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3386:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3387:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3388:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3389:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.CURIF__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#IS_PAIR__L4*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  /*_#NOT__L5*/ curfnum[4] = 
+   (!(/*_#IS_PAIR__L4*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:3392:/ cond");
+  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3392:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3392:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3393:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in IF"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:3394:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];;
+  /*_#IS_PAIR__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  /*_#NOT__L7*/ curfnum[6] = 
+   (!(/*_#IS_PAIR__L6*/ curfnum[5]));;
+  MELT_LOCATION("warmelt-macro.melt:3395:/ cond");
+  /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3395:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3395:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3396:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in IF"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3397:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3397:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3397:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-macro.melt:3397:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+    /*_.XCOND__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3398:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3398:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:3398:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_if xcond";
+      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
+      argtab[3].bp_long = 3398;
+      /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3398:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3398:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3398:/ cppif.else");
+   /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:3399:/ block");
+   /*block*/{
+    /*_.CURTHEN__V24*/ curfptr[23] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    /*_.PAIR_TAIL__V25*/ curfptr[24] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:3400:/ compute");
+    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];;
+    MELT_LOCATION("warmelt-macro.melt:3401:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3401:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3401:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-macro.melt:3401:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+      /*_.XTHEN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:3402:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:3402:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:3402:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_if xthen";
+        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
+        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
+        argtab[3].bp_long = 3402;
+        /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3402:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3402:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:3402:/ cppif.else");
+     /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_#IS_PAIR__L10*/ curfnum[7] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+     MELT_LOCATION("warmelt-macro.melt:3403:/ cond");
+     /*cond*/ if (/*_#IS_PAIR__L10*/ curfnum[7]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3403:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3403:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3404:/ block");
+       /*block*/{
+        /*_.CURELSE__V33*/ curfptr[32] = 
+         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+        MELT_LOCATION("warmelt-macro.melt:3405:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3405:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3405:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+         /*_.XELSE__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3406:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3406:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3406:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_if xelse";
+           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
+           argtab[3].bp_long = 3406;
+           /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XELSE__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3406:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3406:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3406:/ cppif.else");
+        /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        /*_.PAIR_TAIL__V37*/ curfptr[35] = 
+         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+        MELT_LOCATION("warmelt-macro.melt:3407:/ compute");
+        /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_TAIL__V37*/ curfptr[35];;
+        /*_#IS_PAIR__L12*/ curfnum[10] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+        MELT_LOCATION("warmelt-macro.melt:3408:/ cond");
+        /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[10]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3408:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3408:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3409:/ locexp");
+          melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "IF with more than three sons"), (melt_ptr_t)0);}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3410:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3411:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3411:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[4])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V41*/ curfptr[40] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.XCOND__V20*/ curfptr[19]), "SIF_TEST");
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (3), (/*_.XTHEN__V28*/ curfptr[27]), "SIF_THEN");
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (4), (/*_.XELSE__V34*/ curfptr[33]), "SIF_ELSE");
+          ;
+          /*_.RESE__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;}
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-macro.melt:3417:/ cppif.then");
+         MELT_LOCATION("warmelt-macro.melt:3417:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 
+            callcount;;
+           MELT_LOCATION("warmelt-macro.melt:3417:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
+            argtab[0].bp_cstring =  "mexpand_if with else return rese";
+            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12];
+            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-macro.melt";
+            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
+            argtab[3].bp_long = 3417;
+            /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESE__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:3417:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:3417:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-macro.melt:3417:/ cppif.else");
+         /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-macro.melt:3418:/ block");
+         /*block*/{
+          /*_.RETVAL___V1*/ curfptr[0] = /*_.RESE__V40*/ curfptr[39];;
+          MELT_LOCATION("warmelt-macro.melt:3418:/ finalreturn");
+          ;
+          /*finalret*/ goto labend_rout ;}
+         ;
+         /*_.LET___V39*/ curfptr[38] = /*_.RETURN___V44*/ curfptr[42];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3410:/ clear");
+         /*clear*/ /*_.RESE__V40*/ curfptr[39] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3410:/ clear");
+         /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3410:/ clear");
+         /*clear*/ /*_.RETURN___V44*/ curfptr[42] = 0 ;}
+        ;
+        /*_.LET___V32*/ curfptr[31] = /*_.LET___V39*/ curfptr[38];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_.CURELSE__V33*/ curfptr[32] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_.XELSE__V34*/ curfptr[33] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_.PAIR_TAIL__V37*/ curfptr[35] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_#IS_PAIR__L12*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
+        /*clear*/ /*_.LET___V39*/ curfptr[38] = 0 ;}
+       ;
+       /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V32*/ curfptr[31];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3403:/ clear");
+       /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3403:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3403:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3419:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3419:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3419:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_IF");/*_.INST__V47*/ curfptr[42] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3419:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V47*/ curfptr[42]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3419:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V47*/ curfptr[42]), (2), (/*_.XCOND__V20*/ curfptr[19]), "SIF_TEST");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3419:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V47*/ curfptr[42]), (3), (/*_.XTHEN__V28*/ curfptr[27]), "SIF_THEN");
+         ;
+         /*_.RESP__V46*/ curfptr[41] = /*_.INST__V47*/ curfptr[42];;}
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3423:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3423:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3423:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_if plain return resp";
+           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12];
+           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
+           argtab[3].bp_long = 3423;
+           /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V46*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V48*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[33];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3423:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3423:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3423:/ cppif.else");
+        /*_.IFCPP___V48*/ curfptr[32] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-macro.melt:3424:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V46*/ curfptr[41];;
+         MELT_LOCATION("warmelt-macro.melt:3424:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        /*_.LET___V45*/ curfptr[39] = /*_.RETURN___V50*/ curfptr[34];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3419:/ clear");
+        /*clear*/ /*_.RESP__V46*/ curfptr[41] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3419:/ clear");
+        /*clear*/ /*_.IFCPP___V48*/ curfptr[32] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3419:/ clear");
+        /*clear*/ /*_.RETURN___V50*/ curfptr[34] = 0 ;}
+       ;
+       /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V45*/ curfptr[39];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3403:/ clear");
+       /*clear*/ /*_.LET___V45*/ curfptr[39] = 0 ;}
+      ;
+      }
+     ;
+     /*_.LET___V27*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
+     /*clear*/ /*_.XTHEN__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
+     /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
+     /*clear*/ /*_#IS_PAIR__L10*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
+     /*clear*/ /*_.IFELSE___V31*/ curfptr[29] = 0 ;}
+    ;
+    /*_.LET___V23*/ curfptr[21] = /*_.LET___V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
+    /*clear*/ /*_.CURTHEN__V24*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
+    /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
+    /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;}
+   ;
+   /*_.LET___V19*/ curfptr[18] = /*_.LET___V23*/ curfptr[21];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3397:/ clear");
+   /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3397:/ clear");
+   /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3397:/ clear");
+   /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3383:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3383:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_IF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_55_warmelt_macro_MEXPAND_IF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_56_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_macro_MEXPAND_CPPIF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 48
+  void* varptr[48];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<48; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 48;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_CPPIF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3430:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3430:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3430:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3430:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3431:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3431:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3431:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3431:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3431:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3431:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3431:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3431)?(3431):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3431:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3431:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3431:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3432:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3432:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3432:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3432:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3432:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3432:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3432:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3432)?(3432):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3432:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3432:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3432:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3433:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3433:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3433:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_cppif sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
+    argtab[3].bp_long = 3433;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3433:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3433:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3433:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3434:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3435:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3436:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.CURIF__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#IS_PAIR__L4*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  /*_#NOT__L5*/ curfnum[4] = 
+   (!(/*_#IS_PAIR__L4*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:3439:/ cond");
+  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3439:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3439:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3440:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in CPPIF"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:3441:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];;
+  /*_#IS_PAIR__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  /*_#NOT__L7*/ curfnum[6] = 
+   (!(/*_#IS_PAIR__L6*/ curfnum[5]));;
+  MELT_LOCATION("warmelt-macro.melt:3442:/ cond");
+  /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3442:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3442:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3443:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in CPPIF"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3444:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3444:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3444:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-macro.melt:3444:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+    /*_.XCOND__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3445:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3445:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:3445:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_cppif xcond";
+      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
+      argtab[3].bp_long = 3445;
+      /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3445:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3445:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3445:/ cppif.else");
+   /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_#IS_STRING__L9*/ curfnum[7] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-macro.melt:3447:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[7]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3447:/ cond.then");
+   /*_.IFELSE___V23*/ curfptr[21] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3447:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3447:/ block");
+    /*block*/{
+     /*_#IS_A__L10*/ curfnum[9] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+     MELT_LOCATION("warmelt-macro.melt:3448:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3448:/ cond.then");
+     /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-macro.melt:3448:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3448:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:3450:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid cpp-condition in CPPIF - string or symbol expected"), (melt_ptr_t)0);}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3451:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+        MELT_LOCATION("warmelt-macro.melt:3451:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3449:/ block");
+       /*block*/{
+        /*_.PROGN___V26*/ curfptr[25] = /*_.RETURN___V25*/ curfptr[24];;}
+       ;
+       /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V26*/ curfptr[25];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3448:/ clear");
+       /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3448:/ clear");
+       /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;}
+      ;
+      }
+     ;
+     /*_.IFELSE___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3447:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3447:/ clear");
+     /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3452:/ block");
+   /*block*/{
+    /*_.CURTHEN__V28*/ curfptr[25] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    /*_.PAIR_TAIL__V29*/ curfptr[23] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:3453:/ compute");
+    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V30*/ curfptr[29] = /*_.PAIR_TAIL__V29*/ curfptr[23];;
+    MELT_LOCATION("warmelt-macro.melt:3454:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3454:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3454:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-macro.melt:3454:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+      /*_.XTHEN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V28*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.XELSE__V33*/ curfptr[32] = (/*nil*/NULL);;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:3457:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:3457:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:3457:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_cppif xthen";
+        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9];
+        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
+        argtab[3].bp_long = 3457;
+        /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3457:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3457:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:3457:/ cppif.else");
+     /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_#IS_PAIR__L12*/ curfnum[9] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+     MELT_LOCATION("warmelt-macro.melt:3458:/ cond");
+     /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3458:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3458:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3459:/ block");
+       /*block*/{
+        /*_.CURELSE__V36*/ curfptr[34] = 
+         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+        MELT_LOCATION("warmelt-macro.melt:3460:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3460:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3460:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+         /*_.GOTXELSE__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V36*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3461:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3461:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3461:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_cppif gotxelse";
+           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12];
+           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
+           argtab[3].bp_long = 3461;
+           /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GOTXELSE__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3461:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3461:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3461:/ cppif.else");
+        /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        /*_.PAIR_TAIL__V40*/ curfptr[38] = 
+         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+        MELT_LOCATION("warmelt-macro.melt:3462:/ compute");
+        /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V41*/ curfptr[40] = /*_.PAIR_TAIL__V40*/ curfptr[38];;
+        MELT_LOCATION("warmelt-macro.melt:3463:/ compute");
+        /*_.XELSE__V33*/ curfptr[32] = /*_.SETQ___V42*/ curfptr[41] = /*_.GOTXELSE__V37*/ curfptr[36];;
+        /*_#IS_PAIR__L14*/ curfnum[12] = 
+         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+        MELT_LOCATION("warmelt-macro.melt:3464:/ cond");
+        /*cond*/ if (/*_#IS_PAIR__L14*/ curfnum[12]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3464:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3464:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3465:/ locexp");
+          melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "CPPIF with more than three sons"), (melt_ptr_t)0);}
+          ;
+          /*epilog*/}
+         ;
+        } /*noelse*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_.CURELSE__V36*/ curfptr[34] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_.GOTXELSE__V37*/ curfptr[36] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_.PAIR_TAIL__V40*/ curfptr[38] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_.SETQ___V42*/ curfptr[41] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
+        /*clear*/ /*_#IS_PAIR__L14*/ curfnum[12] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3466:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3466:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3466:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ curfrout->tabval[5])), (5), "CLASS_SOURCE_CPPIF");/*_.INST__V45*/ curfptr[37] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (2), (/*_.XCOND__V20*/ curfptr[19]), "SIFP_COND");
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (3), (/*_.XTHEN__V32*/ curfptr[31]), "SIFP_THEN");
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (4), (/*_.XELSE__V33*/ curfptr[32]), "SIFP_ELSE");
+       ;
+       /*_.RESP__V44*/ curfptr[36] = /*_.INST__V45*/ curfptr[37];;}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-macro.melt:3473:/ cppif.then");
+      MELT_LOCATION("warmelt-macro.melt:3473:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 
+         callcount;;
+        MELT_LOCATION("warmelt-macro.melt:3473:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
+         argtab[0].bp_cstring =  "mexpand_cppif return resp";
+         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12];
+         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-macro.melt";
+         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
+         argtab[3].bp_long = 3473;
+         /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V44*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V46*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[40];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3473:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3473:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-macro.melt:3473:/ cppif.else");
+      /*_.IFCPP___V46*/ curfptr[38] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-macro.melt:3474:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V44*/ curfptr[36];;
+       MELT_LOCATION("warmelt-macro.melt:3474:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.LET___V43*/ curfptr[34] = /*_.RETURN___V48*/ curfptr[41];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3466:/ clear");
+      /*clear*/ /*_.RESP__V44*/ curfptr[36] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3466:/ clear");
+      /*clear*/ /*_.IFCPP___V46*/ curfptr[38] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3466:/ clear");
+      /*clear*/ /*_.RETURN___V48*/ curfptr[41] = 0 ;}
+     ;
+     /*_.LET___V31*/ curfptr[30] = /*_.LET___V43*/ curfptr[34];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
+     /*clear*/ /*_.XTHEN__V32*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
+     /*clear*/ /*_.XELSE__V33*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
+     /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
+     /*clear*/ /*_#IS_PAIR__L12*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
+     /*clear*/ /*_.LET___V43*/ curfptr[34] = 0 ;}
+    ;
+    /*_.LET___V27*/ curfptr[24] = /*_.LET___V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
+    /*clear*/ /*_.CURTHEN__V28*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
+    /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
+    /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ;}
+   ;
+   /*_.LET___V19*/ curfptr[18] = /*_.LET___V27*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
+   /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
+   /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
+   /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
+   /*clear*/ /*_.IFELSE___V23*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
+   /*clear*/ /*_.LET___V27*/ curfptr[24] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3430:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3430:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_CPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_56_warmelt_macro_MEXPAND_CPPIF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_57_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_macro_MEXPAND_COND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 92
+  void* varptr[92];
+#define CURFRAM_NBVARNUM 25
+  long varnum[25];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<92; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 92;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_COND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3482:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3482:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3482:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3482:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3483:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3483:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3483:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3483:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3483:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3483:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3483:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3483)?(3483):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3483:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3483:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3483:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3484:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3484:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3484:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3484:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3484:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3484:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3484:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3484)?(3484):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3484:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3484:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3484:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3485:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3485:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3485:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_cond sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
+    argtab[3].bp_long = 3485;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3485:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3485:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3485:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3486:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3487:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3488:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:3492:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3492:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3492:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3489:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3489:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+   MELT_LOCATION("warmelt-macro.melt:3489:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.CEXPTUPLE__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NBCOND__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17])));;
+  MELT_LOCATION("warmelt-macro.melt:3498:/ block");
+  /*block*/{
+   /*_.LX__V20*/ curfptr[19] = 
+    (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (-1)));;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3499:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3499:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:3499:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_cond lastcexp lx";
+      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
+      argtab[3].bp_long = 3499;
+      /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3499:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3499:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3499:/ cppif.else");
+   /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V19*/ curfptr[18] = /*_.LX__V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3498:/ clear");
+   /*clear*/ /*_.LX__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3498:/ clear");
+   /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
+  ;
+  /*_.LASTCEXP__V23*/ curfptr[21] = /*_.LET___V19*/ curfptr[18];;
+  /*_#IX__L6*/ curfnum[4] = 
+   ((/*_#NBCOND__L4*/ curfnum[0]) - (1));;
+  /*_.RES__V24*/ curfptr[19] = (/*nil*/NULL);;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3504:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3504:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3504:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_cond cexptuple";
+     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
+     argtab[3].bp_long = 3504;
+     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V25*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3504:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3504:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3504:/ cppif.else");
+  /*_.IFCPP___V25*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3505:/ loop");
+  /*loop*/{ labloop_CONDLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3505:/ loopbody");
+  
+   MELT_LOCATION("warmelt-macro.melt:3505:/ block");
+   /*block*/{
+    /*_#I__L8*/ curfnum[6] = 
+     ((/*_#IX__L6*/ curfnum[4]) < (0));;
+    MELT_LOCATION("warmelt-macro.melt:3506:/ cond");
+    /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3506:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3506:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3506:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3506:/ compute");
+       /*_.CONDLOOP__V28*/ curfptr[27] = NULL;;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3506:/ exit");
+       /*exit*/{
+        goto labexit_CONDLOOP_1;}
+       ;}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3507:/ block");
+    /*block*/{
+     /*_.CURCOND__V30*/ curfptr[29] = 
+      (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (/*_#IX__L6*/ curfnum[4])));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:3508:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:3508:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:3508:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_cond curcond";
+        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
+        argtab[3].bp_long = 3508;
+        /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3508:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3508:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:3508:/ cppif.else");
+     /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_#NULL__L10*/ curfnum[8] = 
+      ((/*_.RES__V24*/ curfptr[19]) == NULL);;
+     MELT_LOCATION("warmelt-macro.melt:3510:/ cond");
+     /*cond*/ if (/*_#NULL__L10*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3510:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3510:/ block");
+      /*block*/{
+       /*_#IS_A__L12*/ curfnum[11] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+       MELT_LOCATION("warmelt-macro.melt:3510:/ cond");
+       /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:3510:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:3510:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3513:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V33*/ curfptr[31] = slot; };
+         ;
+         /*_.LIST_FIRST__V34*/ curfptr[33] = 
+          (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V33*/ curfptr[31])));;
+         /*_.PAIR_HEAD__V35*/ curfptr[34] = 
+          (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V34*/ curfptr[33])));;
+         /*_#__L14*/ curfnum[13] = 
+          (((/*!konst_7_ELSE*/ curfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ curfptr[34]));;
+         /*_#IF___L13*/ curfnum[12] = /*_#__L14*/ curfnum[13];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+         /*clear*/ /*_.SEXP_CONTENTS__V33*/ curfptr[31] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+         /*clear*/ /*_.LIST_FIRST__V34*/ curfptr[33] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+         /*clear*/ /*_.PAIR_HEAD__V35*/ curfptr[34] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+         /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-macro.melt:3510:/ cond.else");
+       
+        /*_#IF___L13*/ curfnum[12] = 0;;
+        }
+       ;
+       /*_#IF___L11*/ curfnum[10] = /*_#IF___L13*/ curfnum[12];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+       /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+       /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3510:/ cond.else");
+     
+      /*_#IF___L11*/ curfnum[10] = 0;;
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3510:/ cond");
+     /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3510:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3510:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3514:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3515:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V38*/ curfptr[34] = slot; };
+        ;
+        /*_.LIST_FIRST__V39*/ curfptr[38] = 
+         (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V38*/ curfptr[34])));;
+        /*_.RESTPAIRS__V40*/ curfptr[39] = 
+         (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V39*/ curfptr[38])));;
+        MELT_LOCATION("warmelt-macro.melt:3517:/ cond");
+        /*cond*/ if (/*_.RESTPAIRS__V40*/ curfptr[39]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3517:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3517:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3519:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ curfptr[41] = slot; };
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3518:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[3];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3518:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V42*/ curfptr[41];
+           MELT_LOCATION("warmelt-macro.melt:3518:/ apply.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+           MELT_LOCATION("warmelt-macro.melt:3518:/ apply.arg");
+           argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+           /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RESTPAIRS__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3518:/ compute");
+          /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V44*/ curfptr[43] = /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42];;
+          /*_.IF___V41*/ curfptr[40] = /*_.SETQ___V44*/ curfptr[43];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3517:/ clear");
+          /*clear*/ /*_.LOCA_LOCATION__V42*/ curfptr[41] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3517:/ clear");
+          /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3517:/ clear");
+          /*clear*/ /*_.SETQ___V44*/ curfptr[43] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:3517:/ cond.else");
+        
+         /*_.IF___V41*/ curfptr[40] = NULL;;
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3521:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3521:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3521:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_cond res for :else";
+           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
+           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
+           argtab[3].bp_long = 3521;
+           /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V45*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[42];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3521:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3521:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3521:/ cppif.else");
+        /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        /*_.LET___V37*/ curfptr[33] = /*_.IFCPP___V45*/ curfptr[41];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
+        /*clear*/ /*_.SEXP_CONTENTS__V38*/ curfptr[34] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
+        /*clear*/ /*_.LIST_FIRST__V39*/ curfptr[38] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
+        /*clear*/ /*_.RESTPAIRS__V40*/ curfptr[39] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
+        /*clear*/ /*_.IF___V41*/ curfptr[40] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
+        /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;}
+       ;
+       /*_.IFELSE___V36*/ curfptr[31] = /*_.LET___V37*/ curfptr[33];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+       /*clear*/ /*_.LET___V37*/ curfptr[33] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3510:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3510:/ block");
+      /*block*/{
+       /*_#IS_A__L16*/ curfnum[11] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+       MELT_LOCATION("warmelt-macro.melt:3523:/ cond");
+       /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:3523:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:3523:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3524:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3524:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.CURCONDCONT__V49*/ curfptr[34] = slot; };
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3525:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.CURCONDLOC__V50*/ curfptr[38] = slot; };
+          ;
+          /*_.LIST_FIRST__V51*/ curfptr[39] = 
+           (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ curfptr[34])));;
+          /*_.CURCONDTEST__V52*/ curfptr[40] = 
+           (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V51*/ curfptr[39])));;
+          /*_.LIST_FIRST__V53*/ curfptr[41] = 
+           (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ curfptr[34])));;
+          /*_.CURCONDRESTPAIRS__V54*/ curfptr[33] = 
+           (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V53*/ curfptr[41])));;
+          /*_#NULL__L17*/ curfnum[12] = 
+           ((/*_.CURCONDRESTPAIRS__V54*/ curfptr[33]) == NULL);;
+          MELT_LOCATION("warmelt-macro.melt:3529:/ cond");
+          /*cond*/ if (/*_#NULL__L17*/ curfnum[12]) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:3529:/ cond.then");
+          MELT_LOCATION("warmelt-macro.melt:3529:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-macro.melt:3533:/ apply");
+            /*apply*/{
+             union meltparam_un argtab[2];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-macro.melt:3533:/ apply.arg");
+             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+             MELT_LOCATION("warmelt-macro.melt:3533:/ apply.arg");
+             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+             /*_.MACROEXPAND_1__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            /*_.MAKE_TUPLE2__V57*/ curfptr[56] = 
+             (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MACROEXPAND_1__V56*/ curfptr[55]),  (melt_ptr_t)(/*_.RES__V24*/ curfptr[19])));;
+            MELT_LOCATION("warmelt-macro.melt:3530:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-macro.melt:3530:/ rawallocobj");
+             /*rawallocobj*/ { melt_ptr_t newobj = 0;
+              melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_OR");/*_.INST__V59*/ curfptr[58] =
+              newobj; };
+             ;
+             MELT_LOCATION("warmelt-macro.melt:3530:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.CURCONDLOC__V50*/ curfptr[38]), "LOCA_LOCATION");
+             ;
+             MELT_LOCATION("warmelt-macro.melt:3530:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.MAKE_TUPLE2__V57*/ curfptr[56]), "SOR_DISJ");
+             ;
+             /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;}
+            ;
+            MELT_LOCATION("warmelt-macro.melt:3530:/ compute");
+            /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V60*/ curfptr[59] = /*_.INST___V58*/ curfptr[57];;
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-macro.melt:3535:/ cppif.then");
+            MELT_LOCATION("warmelt-macro.melt:3535:/ block");
+             /*block*/{
+              /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 
+               callcount;;
+              MELT_LOCATION("warmelt-macro.melt:3535:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[4];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
+               argtab[0].bp_cstring =  "mexpand_cond res for monoexp cond";
+               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
+               argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13];
+               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
+               argtab[2].bp_cstring =  "warmelt-macro.melt";
+               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
+               argtab[3].bp_long = 3535;
+               /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-macro.melt:3535:/ clear");
+              /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3535:/ clear");
+              /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-macro.melt:3535:/ cppif.else");
+            /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ block");
+            /*block*/{
+             /*_.PROGN___V63*/ curfptr[61] = /*_.IFCPP___V61*/ curfptr[60];;}
+            ;
+            /*_.IFELSE___V55*/ curfptr[54] = /*_.PROGN___V63*/ curfptr[61];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.MACROEXPAND_1__V56*/ curfptr[55] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.MAKE_TUPLE2__V57*/ curfptr[56] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.SETQ___V60*/ curfptr[59] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.PROGN___V63*/ curfptr[61] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-macro.melt:3529:/ cond.else");
+          
+           MELT_LOCATION("warmelt-macro.melt:3529:/ block");
+           /*block*/{
+            /*_.PAIR_TAIL__V64*/ curfptr[55] = 
+             (melt_pair_tail((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33])));;
+            /*_#NULL__L19*/ curfnum[13] = 
+             ((/*_.PAIR_TAIL__V64*/ curfptr[55]) == NULL);;
+            MELT_LOCATION("warmelt-macro.melt:3537:/ cond");
+            /*cond*/ if (/*_#NULL__L19*/ curfnum[13]) /*then*/ {
+            MELT_LOCATION("warmelt-macro.melt:3537:/ cond.then");
+            MELT_LOCATION("warmelt-macro.melt:3537:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-macro.melt:3540:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[2];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-macro.melt:3540:/ apply.arg");
+               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+               MELT_LOCATION("warmelt-macro.melt:3540:/ apply.arg");
+               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+               /*_.MACROEXPAND_1__V66*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              /*_.PAIR_HEAD__V67*/ curfptr[59] = 
+               (melt_pair_head((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33])));;
+              MELT_LOCATION("warmelt-macro.melt:3541:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[2];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-macro.melt:3541:/ apply.arg");
+               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+               MELT_LOCATION("warmelt-macro.melt:3541:/ apply.arg");
+               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+               /*_.MACROEXPAND_1__V68*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.PAIR_HEAD__V67*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              MELT_LOCATION("warmelt-macro.melt:3538:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-macro.melt:3538:/ rawallocobj");
+               /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V70*/ curfptr[69] =
+                newobj; };
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (1), (/*_.CURCONDLOC__V50*/ curfptr[38]), "LOCA_LOCATION");
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (2), (/*_.MACROEXPAND_1__V66*/ curfptr[57]), "SIF_TEST");
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (3), (/*_.MACROEXPAND_1__V68*/ curfptr[60]), "SIF_THEN");
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (4), (/*_.RES__V24*/ curfptr[19]), "SIF_ELSE");
+               ;
+               /*_.INST___V69*/ curfptr[61] = /*_.INST__V70*/ curfptr[69];;}
+              ;
+              MELT_LOCATION("warmelt-macro.melt:3538:/ compute");
+              /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V71*/ curfptr[70] = /*_.INST___V69*/ curfptr[61];;
+              
+              #if ENABLE_CHECKING
+               MELT_LOCATION("warmelt-macro.melt:3544:/ cppif.then");
+              MELT_LOCATION("warmelt-macro.melt:3544:/ block");
+               /*block*/{
+                /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
+                 callcount;;
+                MELT_LOCATION("warmelt-macro.melt:3544:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[4];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
+                 argtab[0].bp_cstring =  "mexpand_cond res for biexp cond";
+                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
+                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
+                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
+                 argtab[2].bp_cstring =  "warmelt-macro.melt";
+                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
+                 argtab[3].bp_long = 3544;
+                 /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                /*_.IFCPP___V72*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[72];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-macro.melt:3544:/ clear");
+                /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
+                MELT_LOCATION("warmelt-macro.melt:3544:/ clear");
+                /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;}
+               
+               #else /*ENABLE_CHECKING*/
+               MELT_LOCATION("warmelt-macro.melt:3544:/ cppif.else");
+              /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL);
+               #endif /*ENABLE_CHECKING*/
+               ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ block");
+              /*block*/{
+               /*_.PROGN___V74*/ curfptr[72] = /*_.IFCPP___V72*/ curfptr[71];;}
+              ;
+              /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V74*/ curfptr[72];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[57] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.PAIR_HEAD__V67*/ curfptr[59] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.MACROEXPAND_1__V68*/ curfptr[60] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.INST___V69*/ curfptr[61] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.SETQ___V71*/ curfptr[70] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.PROGN___V74*/ curfptr[72] = 0 ;}
+             ;
+            } else {MELT_LOCATION("warmelt-macro.melt:3537:/ cond.else");
+            
+             MELT_LOCATION("warmelt-macro.melt:3537:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-macro.melt:3549:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[2];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-macro.melt:3549:/ apply.arg");
+               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+               MELT_LOCATION("warmelt-macro.melt:3549:/ apply.arg");
+               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+               /*_.MACROEXPAND_1__V75*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              MELT_LOCATION("warmelt-macro.melt:3550:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[3];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-macro.melt:3550:/ apply.arg");
+               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCONDLOC__V50*/ curfptr[38];
+               MELT_LOCATION("warmelt-macro.melt:3550:/ apply.arg");
+               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+               MELT_LOCATION("warmelt-macro.melt:3550:/ apply.arg");
+               argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+               /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              MELT_LOCATION("warmelt-macro.melt:3547:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-macro.melt:3547:/ rawallocobj");
+               /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V78*/ curfptr[61] =
+                newobj; };
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (1), (/*_.CURCONDLOC__V50*/ curfptr[38]), "LOCA_LOCATION");
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (2), (/*_.MACROEXPAND_1__V75*/ curfptr[57]), "SIF_TEST");
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (3), (/*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59]), "SIF_THEN");
+               ;
+               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (4), (/*_.RES__V24*/ curfptr[19]), "SIF_ELSE");
+               ;
+               /*_.INST___V77*/ curfptr[60] = /*_.INST__V78*/ curfptr[61];;}
+              ;
+              MELT_LOCATION("warmelt-macro.melt:3547:/ compute");
+              /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V79*/ curfptr[70] = /*_.INST___V77*/ curfptr[60];;
+              
+              #if ENABLE_CHECKING
+               MELT_LOCATION("warmelt-macro.melt:3552:/ cppif.then");
+              MELT_LOCATION("warmelt-macro.melt:3552:/ block");
+               /*block*/{
+                /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 
+                 callcount;;
+                MELT_LOCATION("warmelt-macro.melt:3552:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[4];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
+                 argtab[0].bp_cstring =  "mexpand_cond res for manyexp cond";
+                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
+                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19];
+                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
+                 argtab[2].bp_cstring =  "warmelt-macro.melt";
+                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
+                 argtab[3].bp_long = 3552;
+                 /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                /*_.IFCPP___V80*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[72];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-macro.melt:3552:/ clear");
+                /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ;
+                MELT_LOCATION("warmelt-macro.melt:3552:/ clear");
+                /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] = 0 ;}
+               
+               #else /*ENABLE_CHECKING*/
+               MELT_LOCATION("warmelt-macro.melt:3552:/ cppif.else");
+              /*_.IFCPP___V80*/ curfptr[71] = (/*nil*/NULL);
+               #endif /*ENABLE_CHECKING*/
+               ;
+              MELT_LOCATION("warmelt-macro.melt:3546:/ block");
+              /*block*/{
+               /*_.PROGN___V82*/ curfptr[72] = /*_.IFCPP___V80*/ curfptr[71];;}
+              ;
+              /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V82*/ curfptr[72];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.MACROEXPAND_1__V75*/ curfptr[57] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.INST___V77*/ curfptr[60] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.SETQ___V79*/ curfptr[70] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.IFCPP___V80*/ curfptr[71] = 0 ;
+              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
+              /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;}
+             ;
+             }
+            ;
+            /*_.IFELSE___V55*/ curfptr[54] = /*_.IFELSE___V65*/ curfptr[56];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.PAIR_TAIL__V64*/ curfptr[55] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_#NULL__L19*/ curfnum[13] = 0 ;
+            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
+            /*clear*/ /*_.IFELSE___V65*/ curfptr[56] = 0 ;}
+           ;
+           }
+          ;
+          /*_.LET___V48*/ curfptr[42] = /*_.IFELSE___V55*/ curfptr[54];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.CURCONDCONT__V49*/ curfptr[34] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.CURCONDLOC__V50*/ curfptr[38] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.LIST_FIRST__V51*/ curfptr[39] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.CURCONDTEST__V52*/ curfptr[40] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.LIST_FIRST__V53*/ curfptr[41] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ curfptr[33] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_#NULL__L17*/ curfnum[12] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
+          /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+         ;
+         /*_.IFELSE___V47*/ curfptr[43] = /*_.LET___V48*/ curfptr[42];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
+         /*clear*/ /*_.LET___V48*/ curfptr[42] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-macro.melt:3523:/ cond.else");
+       
+        MELT_LOCATION("warmelt-macro.melt:3523:/ block");
+        /*block*/{
+         /*_.MAKE_TUPLE2__V83*/ curfptr[57] = 
+          (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]),  (melt_ptr_t)(/*_.RES__V24*/ curfptr[19])));;
+         MELT_LOCATION("warmelt-macro.melt:3556:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3556:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_OR");/*_.INST__V85*/ curfptr[60] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3556:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[60])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V85*/ curfptr[60]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+          ;
+          MELT_LOCATION("warmelt-macro.melt:3556:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[60])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V85*/ curfptr[60]), (2), (/*_.MAKE_TUPLE2__V83*/ curfptr[57]), "SOR_DISJ");
+          ;
+          /*_.INST___V84*/ curfptr[59] = /*_.INST__V85*/ curfptr[60];;}
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3556:/ compute");
+         /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V86*/ curfptr[70] = /*_.INST___V84*/ curfptr[59];;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-macro.melt:3559:/ cppif.then");
+         MELT_LOCATION("warmelt-macro.melt:3559:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 
+            callcount;;
+           MELT_LOCATION("warmelt-macro.melt:3559:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
+            argtab[0].bp_cstring =  "mexpand_cond res for nonsexp cond";
+            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19];
+            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-macro.melt";
+            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
+            argtab[3].bp_long = 3559;
+            /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V87*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[72];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:3559:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:3559:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-macro.melt:3559:/ cppif.else");
+         /*_.IFCPP___V87*/ curfptr[71] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-macro.melt:3555:/ block");
+         /*block*/{
+          /*_.PROGN___V89*/ curfptr[55] = /*_.IFCPP___V87*/ curfptr[71];;}
+         ;
+         /*_.IFELSE___V47*/ curfptr[43] = /*_.PROGN___V89*/ curfptr[55];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
+         /*clear*/ /*_.MAKE_TUPLE2__V83*/ curfptr[57] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
+         /*clear*/ /*_.INST___V84*/ curfptr[59] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
+         /*clear*/ /*_.SETQ___V86*/ curfptr[70] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
+         /*clear*/ /*_.IFCPP___V87*/ curfptr[71] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
+         /*clear*/ /*_.PROGN___V89*/ curfptr[55] = 0 ;}
+        ;
+        }
+       ;
+       /*_.IFELSE___V36*/ curfptr[31] = /*_.IFELSE___V47*/ curfptr[43];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+       /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
+       /*clear*/ /*_.IFELSE___V47*/ curfptr[43] = 0 ;}
+      ;
+      }
+     ;
+     /*_.LET___V29*/ curfptr[28] = /*_.IFELSE___V36*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
+     /*clear*/ /*_.CURCOND__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
+     /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
+     /*clear*/ /*_#NULL__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
+     /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
+     /*clear*/ /*_.IFELSE___V36*/ curfptr[31] = 0 ;}
+    ;
+    /*_#I__L23*/ curfnum[13] = 
+     ((/*_#IX__L6*/ curfnum[4]) - (1));;
+    MELT_LOCATION("warmelt-macro.melt:3563:/ compute");
+    /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L24*/ curfnum[12] = /*_#I__L23*/ curfnum[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
+    /*clear*/ /*_.LET___V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
+    /*clear*/ /*_#I__L23*/ curfnum[13] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
+    /*clear*/ /*_#SETQ___L24*/ curfnum[12] = 0 ;}
+   ;
+   ;
+    goto labloop_CONDLOOP_1;
+    labexit_CONDLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3505:/ loopepilog");
+  /*loopepilog*/
+   /*_.FOREVER___V27*/ curfptr[25] = /*_.CONDLOOP__V28*/ curfptr[27];;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3565:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3565:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L25*/ curfnum[19] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3565:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_cond final res";
+     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[19];
+     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
+     argtab[3].bp_long = 3565;
+     /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V90*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[34];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3565:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[19] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3565:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3565:/ cppif.else");
+  /*_.IFCPP___V90*/ curfptr[56] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3566:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[19];;
+   MELT_LOCATION("warmelt-macro.melt:3566:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V92*/ curfptr[38];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.CEXPTUPLE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_#NBCOND__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.LASTCEXP__V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.RES__V24*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.IFCPP___V25*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.FOREVER___V27*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.IFCPP___V90*/ curfptr[56] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
+  /*clear*/ /*_.RETURN___V92*/ curfptr[38] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3482:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3482:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_COND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_57_warmelt_macro_MEXPAND_COND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_58_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3492:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3492:/ block");
+/*block*/{
+ /*_#IS_NOT_A__L1*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-macro.melt:3493:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-macro.melt:3493:/ cond.then");
+ MELT_LOCATION("warmelt-macro.melt:3493:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-macro.melt:3494:/ locexp");
+   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "COND with non-sexpr"), (melt_ptr_t)0);}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3492:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-macro.melt:3492:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3492:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_58_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_59_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_macro_MEXPAND_AND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 35
+  void* varptr[35];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<35; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 35;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_AND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3577:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3577:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3577:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3577:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3578:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3578:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3578:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3578:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3578:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3578:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3578:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3578)?(3578):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3578:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3578:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3578:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3579:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3579:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3579:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3579:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3579:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3579:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3579:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3579)?(3579):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3579:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3579:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3579:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3580:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3580:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3580:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_and sexpr:";
+    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
+    argtab[3].bp_long = 3580;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3580:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3580:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3580:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3581:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3582:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3583:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:3588:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3588:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3588:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3588:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3585:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3585:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+   MELT_LOCATION("warmelt-macro.melt:3585:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.CXTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NBCOMP__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3592:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3592:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3592:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_and cxtup";
+     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
+     argtab[3].bp_long = 3592;
+     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3592:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3592:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3592:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#I__L6*/ curfnum[4] = 
+   ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));;
+  MELT_LOCATION("warmelt-macro.melt:3593:/ cond");
+  /*cond*/ if (/*_#I__L6*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3593:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3593:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3595:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "AND without sons"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3596:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-macro.melt:3596:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3594:/ block");
+    /*block*/{
+     /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[21];;}
+    ;
+    /*_.IFELSE___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3593:/ clear");
+    /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3593:/ clear");
+    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3593:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:3593:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3597:/ block");
+    /*block*/{
+     /*_#I__L7*/ curfnum[6] = 
+      ((/*_#NBCOMP__L4*/ curfnum[0]) - (1));;
+     /*_.RES__V25*/ curfptr[22] = 
+      (melt_multiple_nth((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#I__L7*/ curfnum[6])));;
+     /*_#IX__L8*/ curfnum[7] = 
+      ((/*_#NBCOMP__L4*/ curfnum[0]) - (2));;
+     MELT_LOCATION("warmelt-macro.melt:3599:/ loop");
+     /*loop*/{ labloop_REVLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3599:/ loopbody");
+     
+      MELT_LOCATION("warmelt-macro.melt:3599:/ block");
+      /*block*/{
+       /*_#I__L9*/ curfnum[8] = 
+        ((/*_#IX__L8*/ curfnum[7]) < (0));;
+       MELT_LOCATION("warmelt-macro.melt:3600:/ cond");
+       /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:3600:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:3600:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3600:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3600:/ compute");
+          /*_.REVLOOP__V27*/ curfptr[26] = NULL;;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3600:/ exit");
+          /*exit*/{
+           goto labexit_REVLOOP_1;}
+          ;}
+         ;
+         /*epilog*/}
+        ;
+       } /*noelse*/
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3601:/ block");
+       /*block*/{
+        /*_.CURC__V29*/ curfptr[28] = 
+         (melt_multiple_nth((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#IX__L8*/ curfnum[7])));;
+        MELT_LOCATION("warmelt-macro.melt:3603:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3603:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ curfrout->tabval[7])), (4), "CLASS_SOURCE_IF");/*_.INST__V31*/ curfptr[30] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3603:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3603:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.CURC__V29*/ curfptr[28]), "SIF_TEST");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3603:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.RES__V25*/ curfptr[22]), "SIF_THEN");
+         ;
+         /*_.INST___V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3602:/ compute");
+        /*_.RES__V25*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.INST___V30*/ curfptr[29];;
+        /*_.LET___V28*/ curfptr[27] = /*_.SETQ___V32*/ curfptr[31];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3601:/ clear");
+        /*clear*/ /*_.CURC__V29*/ curfptr[28] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3601:/ clear");
+        /*clear*/ /*_.INST___V30*/ curfptr[29] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3601:/ clear");
+        /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;}
+       ;
+       /*_#I__L10*/ curfnum[9] = 
+        ((/*_#IX__L8*/ curfnum[7]) - (1));;
+       MELT_LOCATION("warmelt-macro.melt:3608:/ compute");
+       /*_#IX__L8*/ curfnum[7] = /*_#SETQ___L11*/ curfnum[10] = /*_#I__L10*/ curfnum[9];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
+       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
+       /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
+       /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
+       /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;}
+      ;
+      ;
+       goto labloop_REVLOOP_1;
+       labexit_REVLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3599:/ loopepilog");
+     /*loopepilog*/
+      /*_.FOREVER___V26*/ curfptr[25] = /*_.REVLOOP__V27*/ curfptr[26];;
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:3610:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:3610:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:3610:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_and res:";
+        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
+        argtab[3].bp_long = 3610;
+        /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V25*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[29];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3610:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3610:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:3610:/ cppif.else");
+     /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-macro.melt:3611:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V25*/ curfptr[22];;
+      MELT_LOCATION("warmelt-macro.melt:3611:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V24*/ curfptr[21] = /*_.RETURN___V35*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
+     /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
+     /*clear*/ /*_.RES__V25*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
+     /*clear*/ /*_#IX__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
+     /*clear*/ /*_.FOREVER___V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
+     /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
+     /*clear*/ /*_.RETURN___V35*/ curfptr[31] = 0 ;}
+    ;
+    /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V24*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3593:/ clear");
+    /*clear*/ /*_.LET___V24*/ curfptr[21] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V21*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
+  /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3577:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3577:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_AND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_59_warmelt_macro_MEXPAND_AND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_60_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3588:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3588:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:3588:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:3588:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:3588:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3588:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:3588:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3588:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_60_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_61_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_macro_PATEXPAND_AS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 36
+  void* varptr[36];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<36; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 36;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_AS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3615:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3615:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3615:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3615:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3616:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3616:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3616:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3616:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3616:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3616:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3616:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3616)?(3616):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3616:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3616:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3616:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3617:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3617:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3617:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3617:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3617:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3617:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3617:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3617)?(3617):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3617:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3617:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3617:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3618:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3618:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3618:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3618:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3618:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3618:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3618:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3618)?(3618):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3618:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3618:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3618:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3619:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3619:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3619:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_as sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
+    argtab[3].bp_long = 3619;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3619:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3619:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3619:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3620:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3621:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3622:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.LIST_FIRST__V16*/ curfptr[15] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
+  MELT_LOCATION("warmelt-macro.melt:3624:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3624:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3624:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-macro.melt:3624:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.ARGSP__V18*/ curfptr[17])));;
+  /*_#I__L6*/ curfnum[5] = 
+   ((/*_#MULTIPLE_LENGTH__L5*/ curfnum[0]) != (2));;
+  MELT_LOCATION("warmelt-macro.melt:3626:/ cond");
+  /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3626:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3626:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3628:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern expects two arguments: ?patvar subpattern"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3629:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-macro.melt:3629:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3627:/ block");
+    /*block*/{
+     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;}
+    ;
+    /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3626:/ clear");
+    /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3626:/ clear");
+    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3626:/ cond.else");
+  
+   /*_.IF___V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3630:/ block");
+  /*block*/{
+   /*_.ARGVAR__V23*/ curfptr[20] = 
+    (melt_multiple_nth((melt_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (0)));;
+   /*_.ARGSUB__V24*/ curfptr[23] = 
+    (melt_multiple_nth((melt_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (1)));;
+   /*_#IS_A__L7*/ curfnum[6] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ curfrout->tabval[5])));;
+   MELT_LOCATION("warmelt-macro.melt:3633:/ cond");
+   /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3633:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3633:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3635:/ locexp");
+     melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern with useless joker"), (melt_ptr_t)0);}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3636:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.ARGSUB__V24*/ curfptr[23];;
+      MELT_LOCATION("warmelt-macro.melt:3636:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3634:/ block");
+     /*block*/{
+      /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;}
+     ;
+     /*_.IF___V25*/ curfptr[24] = /*_.PROGN___V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3633:/ clear");
+     /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3633:/ clear");
+     /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:3633:/ cond.else");
+   
+    /*_.IF___V25*/ curfptr[24] = NULL;;
+    }
+   ;
+   /*_#IS_NOT_A__L8*/ curfnum[7] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ curfrout->tabval[6])));;
+   MELT_LOCATION("warmelt-macro.melt:3637:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L8*/ curfnum[7]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3637:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:3637:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3639:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern needs a pattern variable as first argument"), (melt_ptr_t)0);}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3640:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+      MELT_LOCATION("warmelt-macro.melt:3640:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3638:/ block");
+     /*block*/{
+      /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[26];;}
+     ;
+     /*_.IF___V28*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3637:/ clear");
+     /*clear*/ /*_.RETURN___V29*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3637:/ clear");
+     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:3637:/ cond.else");
+   
+    /*_.IF___V28*/ curfptr[25] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3641:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3642:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3642:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AS*/ curfrout->tabval[7])), (4), "CLASS_SOURCE_PATTERN_AS");/*_.INST__V33*/ curfptr[32] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3642:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3642:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @ASPAT_VARPAT", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.ARGVAR__V23*/ curfptr[20]), "ASPAT_VARPAT");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3642:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @ASPAT_SUBPAT", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.ARGSUB__V24*/ curfptr[23]), "ASPAT_SUBPAT");
+     ;
+     /*_.RES__V32*/ curfptr[29] = /*_.INST__V33*/ curfptr[32];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:3647:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:3647:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:3647:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
+       argtab[0].bp_cstring =  "patexpand_as returns res";
+       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
+       argtab[3].bp_long = 3647;
+       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V32*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3647:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3647:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:3647:/ cppif.else");
+    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:3648:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V32*/ curfptr[29];;
+     MELT_LOCATION("warmelt-macro.melt:3648:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V31*/ curfptr[26] = /*_.RETURN___V36*/ curfptr[34];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3641:/ clear");
+    /*clear*/ /*_.RES__V32*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3641:/ clear");
+    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3641:/ clear");
+    /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
+   ;
+   /*_.LET___V22*/ curfptr[19] = /*_.LET___V31*/ curfptr[26];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_.ARGVAR__V23*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_.ARGSUB__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L8*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_.IF___V28*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
+   /*clear*/ /*_.LET___V31*/ curfptr[26] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.LET___V22*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
+  /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3615:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3615:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_AS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_61_warmelt_macro_PATEXPAND_AS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_62_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_macro_MEXPAND_AS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_AS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3651:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3651:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3651:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3651:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3652:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3652:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3652:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3652:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3652:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3652:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3652:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3652)?(3652):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3652:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3652:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3652:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3653:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3653:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3653:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3653:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3653:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3653:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3653:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3653)?(3653):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3653:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3653:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3653:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3654:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3654:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3654:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_as sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
+    argtab[3].bp_long = 3654;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3654:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3654:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3654:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3655:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3656:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-macro.melt:3658:/ locexp");
+  melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "AS cannot be macro-expanded in expression context"), (melt_ptr_t)0);}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3659:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+   MELT_LOCATION("warmelt-macro.melt:3659:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3655:/ clear");
+  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3655:/ clear");
+  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3651:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3651:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_AS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_62_warmelt_macro_MEXPAND_AS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_63_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_macro_PATEXPAND_WHEN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_WHEN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3665:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3665:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3665:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3665:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3666:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3666:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3666:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3666:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3666:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3666:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3666:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3666)?(3666):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3666:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3666:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3666:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3667:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3667:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3667:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3667:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3667:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3667:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3667:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3667)?(3667):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3667:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3667:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3667:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3668:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3668:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3668:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3668:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3668:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3668:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3668:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3668)?(3668):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3668:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3668:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3668:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3669:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3669:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3669:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_when sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
+    argtab[3].bp_long = 3669;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3669:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3669:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3669:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3670:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3671:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3672:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-macro.melt:3675:/ locexp");
+  melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "WHEN is not yet implemented in patterns"), (melt_ptr_t)0);}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3676:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3676:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3676:/ cond");
+    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3676:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-macro.melt:3676:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:3676:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:3676:/ locexp");
+       melt_assert_failed(( "@$@ unimplemented patexpand_when"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3676)?(3676):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3676:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3676:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3677:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+   MELT_LOCATION("warmelt-macro.melt:3677:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V18*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
+  /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3665:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3665:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_WHEN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_63_warmelt_macro_PATEXPAND_WHEN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_64_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_macro_MEXPAND_WHEN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_WHEN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3680:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt: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(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt: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(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3680:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3681:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3681:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3681:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3681:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3681:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3681:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3681:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3681)?(3681):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3681:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3681:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3681:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3682:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3682:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3682:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3682:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3682:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3682:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3682:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3682)?(3682):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3682:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3682:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3682:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3683:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3683:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3683:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_when sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
+    argtab[3].bp_long = 3683;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3683:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3683:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3683:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3684:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3685:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-macro.melt:3687:/ locexp");
+  melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "WHEN cannot be macro-expanded in expression context"), (melt_ptr_t)0);}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3688:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+   MELT_LOCATION("warmelt-macro.melt:3688:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3684:/ clear");
+  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3684:/ clear");
+  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3680:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3680:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_WHEN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_64_warmelt_macro_MEXPAND_WHEN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_65_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_macro_PATEXPAND_AND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_AND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3695:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3695:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3695:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3695:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3696:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3696:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3696:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3696:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3696:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3696:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3696:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3696)?(3696):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3696:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3696:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3696:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3697:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3697:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3697:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3697:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3697:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3697:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3697:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3697)?(3697):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3697:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3697:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3697:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3698:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3698:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3698:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3698:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3698:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3698:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3698:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3698)?(3698):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3698:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3698:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3698:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3699:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3699:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3699:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_and sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
+    argtab[3].bp_long = 3699;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3699:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3699:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3699:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3700:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3701:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3702:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.LIST_FIRST__V16*/ curfptr[15] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
+  MELT_LOCATION("warmelt-macro.melt:3704:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3704:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3704:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-macro.melt:3704:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3705:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3705:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_AND");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3705:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3705:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @ANDPAT_CONJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "ANDPAT_CONJ");
+   ;
+   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3709:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3709:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3709:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
+     argtab[0].bp_cstring =  "patexpand_and res";
+     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
+     argtab[3].bp_long = 3709;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3709:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3709:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3709:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3710:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-macro.melt:3710:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3695:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3695:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_AND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_65_warmelt_macro_PATEXPAND_AND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_66_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_macro_MEXPAND_OR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 27
+  void* varptr[27];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<27; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 27;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_OR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3718:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3718:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3718:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3718:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3719:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3719:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3719:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_or sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
+    argtab[3].bp_long = 3719;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3719:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3719:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3719:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3720:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3720:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3720:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3720:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3720:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3720:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3720:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3720)?(3720):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3720:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3720:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3720:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3721:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3721:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3721:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3721:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3721:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3721:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3721:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3721)?(3721):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3721:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3721:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3721:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3722:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3723:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3724:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:3728:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3728:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3728:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3728:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3725:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3725:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+   MELT_LOCATION("warmelt-macro.melt:3725:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.CXTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NBCOMP__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));;
+  /*_#I__L5*/ curfnum[4] = 
+   ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));;
+  MELT_LOCATION("warmelt-macro.melt:3732:/ cond");
+  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3732:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3732:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3734:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "OR without sons"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3735:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:3735:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3733:/ block");
+    /*block*/{
+     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;}
+    ;
+    /*_.IFELSE___V19*/ curfptr[18] = /*_.PROGN___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3732:/ clear");
+    /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3732:/ clear");
+    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3732:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:3732:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3736:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3737:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3737:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[7])), (3), "CLASS_SOURCE_OR");/*_.INST__V24*/ curfptr[23] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3737:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:3737:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.CXTUP__V18*/ curfptr[17]), "SOR_DISJ");
+      ;
+      /*_.RES__V23*/ curfptr[20] = /*_.INST__V24*/ curfptr[23];;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:3740:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:3740:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:3740:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_or res";
+        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
+        argtab[3].bp_long = 3740;
+        /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V23*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3740:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3740:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:3740:/ cppif.else");
+     /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-macro.melt:3741:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V23*/ curfptr[20];;
+      MELT_LOCATION("warmelt-macro.melt:3741:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V22*/ curfptr[19] = /*_.RETURN___V27*/ curfptr[25];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3736:/ clear");
+     /*clear*/ /*_.RES__V23*/ curfptr[20] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3736:/ clear");
+     /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3736:/ clear");
+     /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;}
+    ;
+    /*_.IFELSE___V19*/ curfptr[18] = /*_.LET___V22*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3732:/ clear");
+    /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V19*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
+  /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3718:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3718:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_OR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_66_warmelt_macro_MEXPAND_OR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_67_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3728:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3728:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:3728:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:3728:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:3728:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3728:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:3728:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3728:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_67_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_68_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_macro_PATEXPAND_OR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_OR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3745:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3745:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3745:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3745:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3746:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3746:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3746:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3746:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3746:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3746:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3746:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3746)?(3746):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3746:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3746:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3746:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3747:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3747:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3747:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3747:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3747:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3747:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3747:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3747)?(3747):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3747:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3747:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3747:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3748:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3748:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3748:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3748:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3748:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3748:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3748:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3748)?(3748):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3748:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3748:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3748:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3749:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3749:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3749:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_or sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
+    argtab[3].bp_long = 3749;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3749:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3749:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3749:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3750:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3751:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3752:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.LIST_FIRST__V16*/ curfptr[15] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
+  MELT_LOCATION("warmelt-macro.melt:3754:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3754:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3754:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-macro.melt:3754:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3755:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3755:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_OR");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3755:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3755:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @ORPAT_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "ORPAT_DISJ");
+   ;
+   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3759:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3759:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3759:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
+     argtab[0].bp_cstring =  "patexpand_or res";
+     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
+     argtab[3].bp_long = 3759;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3759:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3759:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3759:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3760:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-macro.melt:3760:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3745:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3745:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_OR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_68_warmelt_macro_PATEXPAND_OR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_69_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_macro_MEXPAND_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3768:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3768:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3768:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3768:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3769:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3769:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3769:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_tuple sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
+    argtab[3].bp_long = 3769;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3769:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3769:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3769:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3770:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3770:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3770:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3770:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3770:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3770:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3770:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3770)?(3770):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3770:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3770:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3770:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3771:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3771:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3771:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3771:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3771:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3771:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3771:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3771)?(3771):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3771:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3771:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3771:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3772:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3773:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3774:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3775:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3775:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3775:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XARGTUP__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3776:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3776:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[4])), (3), "CLASS_SOURCE_TUPLE");/*_.INST__V16*/ curfptr[15] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3776:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3776:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.XARGTUP__V14*/ curfptr[13]), "SARGOP_ARGS");
+   ;
+   /*_.RES__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3780:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3780:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3780:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_tuple result";
+     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
+     argtab[3].bp_long = 3780;
+     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3780:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3780:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3780:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3781:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V15*/ curfptr[14];;
+   MELT_LOCATION("warmelt-macro.melt:3781:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V19*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
+  /*clear*/ /*_.XARGTUP__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
+  /*clear*/ /*_.RES__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
+  /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3768:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3768:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_69_warmelt_macro_MEXPAND_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_70_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_macro_PATEXPAND_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3785:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3785:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3785:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3785:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3786:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3786:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3786:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3786:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3786:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3786:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3786:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3786)?(3786):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3786:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3786:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3786:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3787:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3787:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3787:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3787:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3787:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3787:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3787:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3787)?(3787):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3787:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3787:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3787:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3788:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3788:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3788:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3788:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3788:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3788:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3788:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3788)?(3788):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3788:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3788:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3788:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3789:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3789:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3789:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_tuple sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
+    argtab[3].bp_long = 3789;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3789:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3789:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3789:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3790:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3791:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3792:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.LIST_FIRST__V16*/ curfptr[15] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
+  MELT_LOCATION("warmelt-macro.melt:3794:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3794:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3794:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-macro.melt:3794:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3795:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3795:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_TUPLE*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_TUPLE");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3795:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3795:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @CTPAT_SUBPA", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "CTPAT_SUBPA");
+   ;
+   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3799:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3799:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3799:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
+     argtab[0].bp_cstring =  "patexpand_tuple res";
+     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
+     argtab[3].bp_long = 3799;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3799:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3799:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3799:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3800:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-macro.melt:3800:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3785:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3785:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_70_warmelt_macro_PATEXPAND_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_71_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_macro_MEXPAND_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3807:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3807:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3807:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3807:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3808:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3808:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3808:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_list sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
+    argtab[3].bp_long = 3808;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3808:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3808:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3808:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3809:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3809:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3809:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3809:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3809:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3809:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3809:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3809)?(3809):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3809:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3809:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3809:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3810:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3810:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3810:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3810:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3810:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3810:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3810:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3810)?(3810):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3810:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3810:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3810:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3811:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3812:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3813:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3814:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3814:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3814:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XARGTUP__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3815:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3815:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[4])), (3), "CLASS_SOURCE_LIST");/*_.INST__V16*/ curfptr[15] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3815:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3815:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.XARGTUP__V14*/ curfptr[13]), "SARGOP_ARGS");
+   ;
+   /*_.RES__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3819:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3819:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3819:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_list result";
+     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
+     argtab[3].bp_long = 3819;
+     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3819:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3819:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3819:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3820:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V15*/ curfptr[14];;
+   MELT_LOCATION("warmelt-macro.melt:3820:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V19*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
+  /*clear*/ /*_.XARGTUP__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
+  /*clear*/ /*_.RES__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
+  /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3807:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3807:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_71_warmelt_macro_MEXPAND_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_72_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_macro_PATEXPAND_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PATEXPAND_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3824:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3824:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3824:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3824:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3825:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3825:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3825:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3825:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3825:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3825:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3825:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3825)?(3825):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3825:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3825:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3825:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3826:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3826:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3826:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3826:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3826:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3826:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3826:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3826)?(3826):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3826:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3826:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3826:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3827:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3827:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3827:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3827:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3827:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3827:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3827:/ locexp");
+      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3827)?(3827):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3827:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3827:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3827:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3828:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3828:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3828:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
+    argtab[0].bp_cstring =  "patexpand_or sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
+    argtab[3].bp_long = 3828;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3828:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3828:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3828:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3829:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3830:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3831:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
+  ;
+  /*_.LIST_FIRST__V16*/ curfptr[15] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
+  /*_.CURPAIR__V17*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
+  MELT_LOCATION("warmelt-macro.melt:3833:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3833:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3833:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-macro.melt:3833:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
+   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3834:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3834:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_LIST*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_LIST");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3834:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3834:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @CTPAT_SUBPA", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "CTPAT_SUBPA");
+   ;
+   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3838:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3838:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3838:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
+     argtab[0].bp_cstring =  "patexpand_list res";
+     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
+     argtab[3].bp_long = 3838;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3838:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3838:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3838:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3839:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-macro.melt:3839:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3824:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-macro.melt:3824:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PATEXPAND_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_72_warmelt_macro_PATEXPAND_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_73_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_macro_MEXPAND_MATCH_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 66
+  void* varptr[66];
+#define CURFRAM_NBVARNUM 16
+  long varnum[16];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<66; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 66;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_MATCH", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3847:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3847:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3847:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3847:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3848:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3848:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:3848:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3848:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3848:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3848:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3848:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3848)?(3848):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3848:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3848:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3848:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3849:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3849:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3849:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3849:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3849:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3849:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3849:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3849)?(3849):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3849:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3849:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3849:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3850:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3850:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3850:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_match sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
+    argtab[3].bp_long = 3850;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3850:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3850:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3850:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3851:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3852:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3853:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.MSEXP__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:3855:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3855:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:3855:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MATSX__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MSEXP__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LIST_FIRST__V18*/ curfptr[17] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.PAIR_TAIL__V19*/ curfptr[18] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
+  /*_.PAIR_TAIL__V20*/ curfptr[19] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.PAIR_TAIL__V19*/ curfptr[18])));;
+  MELT_LOCATION("warmelt-macro.melt:3859:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3859:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3859:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
+   ;
+   /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3856:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:3856:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
+   MELT_LOCATION("warmelt-macro.melt:3856:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20];
+   /*_.MEXPTUPLE__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_TAIL__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NBMATCH__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22])));;
+  MELT_LOCATION("warmelt-macro.melt:3865:/ block");
+  /*block*/{
+   /*_.LX__V25*/ curfptr[24] = 
+    (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (-1)));;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3866:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3866:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:3866:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_match lastmexp lx";
+      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
+      argtab[3].bp_long = 3866;
+      /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3866:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3866:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3866:/ cppif.else");
+   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V24*/ curfptr[23] = /*_.LX__V25*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3865:/ clear");
+   /*clear*/ /*_.LX__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3865:/ clear");
+   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;}
+  ;
+  /*_.LASTMEXP__V28*/ curfptr[26] = /*_.LET___V24*/ curfptr[23];;
+  /*_#IX__L6*/ curfnum[4] = 
+   ((/*_#NBMATCH__L4*/ curfnum[0]) - (1));;
+  /*_.CASELIST__V29*/ curfptr[24] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3871:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3871:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3871:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_match mexptuple";
+     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
+     argtab[3].bp_long = 3871;
+     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3871:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3871:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3871:/ cppif.else");
+  /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3872:/ loop");
+  /*loop*/{ labloop_MATCHLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3872:/ loopbody");
+  
+   MELT_LOCATION("warmelt-macro.melt:3872:/ block");
+   /*block*/{
+    /*_#I__L8*/ curfnum[6] = 
+     ((/*_#IX__L6*/ curfnum[4]) < (0));;
+    MELT_LOCATION("warmelt-macro.melt:3873:/ cond");
+    /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3873:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3873:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3873:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3873:/ compute");
+       /*_.MATCHLOOP__V33*/ curfptr[32] = NULL;;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3873:/ exit");
+       /*exit*/{
+        goto labexit_MATCHLOOP_1;}
+       ;}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3874:/ block");
+    /*block*/{
+     /*_.CURMATCH__V34*/ curfptr[33] = 
+      (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (/*_#IX__L6*/ curfnum[4])));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:3875:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:3875:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:3875:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_match curmatch";
+        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
+        argtab[3].bp_long = 3875;
+        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3875:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3875:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:3875:/ cppif.else");
+     /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_#IS_A__L10*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+     MELT_LOCATION("warmelt-macro.melt:3878:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3878:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3878:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3879:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3879:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 2, "SEXP_CONTENTS");/*_.CURMATCHCONT__V37*/ curfptr[35] = slot; };
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3880:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 1, "LOCA_LOCATION");/*_.CURMATCHLOC__V38*/ curfptr[37] = slot; };
+        ;
+        /*_.LIST_FIRST__V39*/ curfptr[38] = 
+         (melt_list_first((melt_ptr_t)(/*_.CURMATCHCONT__V37*/ curfptr[35])));;
+        /*_.CURMATCHPATX__V40*/ curfptr[39] = 
+         (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V39*/ curfptr[38])));;
+        /*_.LIST_FIRST__V41*/ curfptr[40] = 
+         (melt_list_first((melt_ptr_t)(/*_.CURMATCHCONT__V37*/ curfptr[35])));;
+        /*_.CURMATCHRESTPAIRS__V42*/ curfptr[41] = 
+         (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V41*/ curfptr[40])));;
+        /*_.MAKE_MAPOBJECT__V43*/ curfptr[42] = 
+         (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[11])), (13)));;
+        MELT_LOCATION("warmelt-macro.melt:3883:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3883:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[9])), (3), "CLASS_PATTERN_EXPANSION_CONTEXT");/*_.INST__V45*/ curfptr[44] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3883:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @PCTX_MEXPANDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), (/*_.MEXPANDER__V4*/ curfptr[3]), "PCTX_MEXPANDER");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3883:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @PCTX_PEXPANDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), ((/*!PATTERNEXPAND_1*/ curfrout->tabval[10])), "PCTX_PEXPANDER");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3883:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @PCTX_VARMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.MAKE_MAPOBJECT__V43*/ curfptr[42]), "PCTX_VARMAP");
+         ;
+         /*_.CURPATCTX__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3887:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3887:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[3];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:3887:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-macro.melt:3887:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURPATCTX__V44*/ curfptr[43];
+          MELT_LOCATION("warmelt-macro.melt:3887:/ apply.arg");
+          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CURMATCHLOC__V38*/ curfptr[37];
+          /*_.CP__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURMATCHPATX__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-macro.melt:3888:/ cppif.then");
+         MELT_LOCATION("warmelt-macro.melt:3888:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+            callcount;;
+           MELT_LOCATION("warmelt-macro.melt:3888:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
+            argtab[0].bp_cstring =  "mexpand_match curpat";
+            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-macro.melt";
+            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
+            argtab[3].bp_long = 3888;
+            /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CP__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:3888:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:3888:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-macro.melt:3888:/ cppif.else");
+         /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-macro.melt:3889:/ cppif.then");
+         MELT_LOCATION("warmelt-macro.melt:3889:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-macro.melt:3889:/ cond");
+           /*cond*/ if (/*_.CP__V47*/ curfptr[46]) /*then*/ {
+           MELT_LOCATION("warmelt-macro.melt:3889:/ cond.then");
+           /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);;
+           } else {MELT_LOCATION("warmelt-macro.melt:3889:/ cond.else");
+           
+            MELT_LOCATION("warmelt-macro.melt:3889:/ block");
+            /*block*/{
+             /*block*/{
+              
+              {
+              MELT_LOCATION("warmelt-macro.melt:3889:/ locexp");
+              melt_assert_failed(( "check curpat"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3889)?(3889):__LINE__, __FUNCTION__);
+;}
+              ;
+              /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
+             ;
+             /*epilog*/}
+            ;
+            }
+           ;
+           /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:3889:/ clear");
+           /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-macro.melt:3889:/ cppif.else");
+         /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         /*_.LET___V46*/ curfptr[45] = /*_.CP__V47*/ curfptr[46];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3887:/ clear");
+         /*clear*/ /*_.CP__V47*/ curfptr[46] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3887:/ clear");
+         /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3887:/ clear");
+         /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;}
+        ;
+        /*_.CURPAT__V52*/ curfptr[50] = /*_.LET___V46*/ curfptr[45];;
+        MELT_LOCATION("warmelt-macro.melt:3891:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-macro.melt:3891:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+         MELT_LOCATION("warmelt-macro.melt:3891:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+         /*_.CURBODY__V53*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.CURMATCHRESTPAIRS__V42*/ curfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3892:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3892:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ curfrout->tabval[13])), (4), "CLASS_SOURCE_MATCH_CASE");/*_.INST__V55*/ curfptr[48] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3892:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[48])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V55*/ curfptr[48]), (1), (/*_.CURMATCHLOC__V38*/ curfptr[37]), "LOCA_LOCATION");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3892:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @SCAM_PATT", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[48])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V55*/ curfptr[48]), (2), (/*_.CURPAT__V52*/ curfptr[50]), "SCAM_PATT");
+         ;
+         MELT_LOCATION("warmelt-macro.melt:3892:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @SCAM_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[48])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V55*/ curfptr[48]), (3), (/*_.CURBODY__V53*/ curfptr[46]), "SCAM_BODY");
+         ;
+         /*_.CURCASE__V54*/ curfptr[47] = /*_.INST__V55*/ curfptr[48];;}
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:3897:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:3897:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:3897:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_match curcase";
+           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
+           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
+           argtab[3].bp_long = 3897;
+           /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCASE__V54*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3897:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:3897:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:3897:/ cppif.else");
+        /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3898:/ locexp");
+        meltgc_prepend_list((melt_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (melt_ptr_t)(/*_.CURCASE__V54*/ curfptr[47]));}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURMATCHCONT__V37*/ curfptr[35] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURMATCHLOC__V38*/ curfptr[37] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.LIST_FIRST__V39*/ curfptr[38] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURMATCHPATX__V40*/ curfptr[39] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.LIST_FIRST__V41*/ curfptr[40] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURMATCHRESTPAIRS__V42*/ curfptr[41] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.MAKE_MAPOBJECT__V43*/ curfptr[42] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURPATCTX__V44*/ curfptr[43] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.LET___V46*/ curfptr[45] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURPAT__V52*/ curfptr[50] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURBODY__V53*/ curfptr[46] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.CURCASE__V54*/ curfptr[47] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
+        /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3878:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3878:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:3902:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(MATCH <expr> <match-case>...) with non sexpr matchcase"), (melt_ptr_t)0);}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:3901:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3874:/ clear");
+     /*clear*/ /*_.CURMATCH__V34*/ curfptr[33] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3874:/ clear");
+     /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3874:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;}
+    ;
+    /*_#I__L13*/ curfnum[10] = 
+     ((/*_#IX__L6*/ curfnum[4]) - (1));;
+    MELT_LOCATION("warmelt-macro.melt:3904:/ compute");
+    /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L14*/ curfnum[8] = /*_#I__L13*/ curfnum[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3872:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3872:/ clear");
+    /*clear*/ /*_#I__L13*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3872:/ clear");
+    /*clear*/ /*_#SETQ___L14*/ curfnum[8] = 0 ;}
+   ;
+   ;
+    goto labloop_MATCHLOOP_1;
+    labexit_MATCHLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3872:/ loopepilog");
+  /*loopepilog*/
+   /*_.FOREVER___V32*/ curfptr[30] = /*_.MATCHLOOP__V33*/ curfptr[32];;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:3905:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:3905:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:3905:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_match caselist";
+     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[6];
+     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
+     argtab[3].bp_long = 3905;
+     /*_.DEBUG_MSG_FUN__V59*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V58*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3905:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3905:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[35] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:3905:/ cppif.else");
+  /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:3906:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3909:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3909:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
+    /*_.LIST_TO_MULTIPLE__V61*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3906:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3906:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_MATCH*/ curfrout->tabval[14])), (4), "CLASS_SOURCE_MATCH");/*_.INST__V63*/ curfptr[40] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3906:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[40])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[40]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3906:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SMAT_MATCHEDX", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[40])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[40]), (2), (/*_.MATSX__V17*/ curfptr[16]), "SMAT_MATCHEDX");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3906:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SMAT_CASES", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[40])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[40]), (3), (/*_.LIST_TO_MULTIPLE__V61*/ curfptr[38]), "SMAT_CASES");
+    ;
+    /*_.SMAT__V62*/ curfptr[39] = /*_.INST__V63*/ curfptr[40];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:3911:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:3911:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:3911:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_match result smat";
+      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10];
+      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
+      argtab[3].bp_long = 3911;
+      /*_.DEBUG_MSG_FUN__V65*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SMAT__V62*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V64*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[42];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3911:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3911:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[42] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:3911:/ cppif.else");
+   /*_.IFCPP___V64*/ curfptr[41] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:3912:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.SMAT__V62*/ curfptr[39];;
+    MELT_LOCATION("warmelt-macro.melt:3912:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V60*/ curfptr[37] = /*_.RETURN___V66*/ curfptr[43];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
+   /*clear*/ /*_.LIST_TO_MULTIPLE__V61*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
+   /*clear*/ /*_.SMAT__V62*/ curfptr[39] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
+   /*clear*/ /*_.IFCPP___V64*/ curfptr[41] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
+   /*clear*/ /*_.RETURN___V66*/ curfptr[43] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V60*/ curfptr[37];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.MSEXP__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.MATSX__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.MEXPTUPLE__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_#NBMATCH__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LASTMEXP__V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.CASELIST__V29*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.FOREVER___V32*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
+  /*clear*/ /*_.LET___V60*/ curfptr[37] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3847:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3847:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_MATCH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_73_warmelt_macro_MEXPAND_MATCH*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_74_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3859:/ getarg");
+ /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3859:/ block");
+/*block*/{
+ /*_#IS_NOT_A__L1*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-macro.melt:3860:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-macro.melt:3860:/ cond.then");
+ MELT_LOCATION("warmelt-macro.melt:3860:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-macro.melt:3861:/ locexp");
+   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "MATCH with non-sexpr"), (melt_ptr_t)0);}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3859:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-macro.melt:3859:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3859:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_74_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_75_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_macro_MEXPAND_LETBINDING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 64
+  void* varptr[64];
+#define CURFRAM_NBVARNUM 13
+  long varnum[13];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<64; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 64;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_LETBINDING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:3920:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:3920:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:3920:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:3920:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3921:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3921:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:3921:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_letbinding sexpr";
+    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
+    argtab[3].bp_long = 3921;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3921:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3921:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3921:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3922:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3922:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:3922:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3922:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3922:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3922:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3922:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3922)?(3922):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3922:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3922:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3922:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:3923:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:3923:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-macro.melt:3923:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3923:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3923:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3923:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3923:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (3923)?(3923):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3923:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3923:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:3923:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:3924:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:3925:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3926:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.CTYP__V14*/ curfptr[13] = (/*!CTYPE_VALUE*/ curfrout->tabval[3]);;
+  /*_.VAR__V15*/ curfptr[14] = (/*nil*/NULL);;
+  /*_.EXPR__V16*/ curfptr[15] = (/*nil*/NULL);;
+  /*_.CURPAIR__V17*/ curfptr[16] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURARG__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_.PAIR_HEAD__V19*/ curfptr[18] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+  MELT_LOCATION("warmelt-macro.melt:3933:/ compute");
+  /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_HEAD__V19*/ curfptr[18];;
+  /*_#IS_A__L4*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:3934:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3934:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3934:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3935:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:3935:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 2, "SYMB_DATA");/*_.CTY__V23*/ curfptr[22] = slot; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:3936:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.TYNAM__V24*/ curfptr[23] = slot; };
+     ;
+     /*_#IS_NOT_A__L5*/ curfnum[4] = 
+      !melt_is_instance_of((melt_ptr_t)(/*_.CTY__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[5])));;
+     MELT_LOCATION("warmelt-macro.melt:3939:/ cond");
+     /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3939:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3939:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3940:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ curfptr[23]));}
+        ;
+        /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3939:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3939:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3941:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ curfptr[22]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V26*/ curfptr[25] = slot; };
+       ;
+       /*_#__L6*/ curfnum[5] = 
+        ((/*_.CTYPE_KEYWORD__V26*/ curfptr[25]) == (/*_.CURARG__V18*/ curfptr[17]));;
+       MELT_LOCATION("warmelt-macro.melt:3941:/ cond");
+       /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:3941:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:3941:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3942:/ compute");
+         /*_.CTYP__V14*/ curfptr[13] = /*_.SETQ___V28*/ curfptr[27] = /*_.CTY__V23*/ curfptr[22];;
+         /*_.IFELSE___V27*/ curfptr[26] = /*_.SETQ___V28*/ curfptr[27];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3941:/ clear");
+         /*clear*/ /*_.SETQ___V28*/ curfptr[27] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-macro.melt:3941:/ cond.else");
+       
+        MELT_LOCATION("warmelt-macro.melt:3941:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3943:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ curfptr[22]), 10, "CTYPE_ALTKEYWORD");/*_.CTYPE_ALTKEYWORD__V29*/ curfptr[27] = slot; };
+         ;
+         /*_#__L7*/ curfnum[6] = 
+          ((/*_.CTYPE_ALTKEYWORD__V29*/ curfptr[27]) == (/*_.CURARG__V18*/ curfptr[17]));;
+         MELT_LOCATION("warmelt-macro.melt:3943:/ cond");
+         /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:3943:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:3943:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-macro.melt:3944:/ compute");
+           /*_.CTYP__V14*/ curfptr[13] = /*_.SETQ___V30*/ curfptr[29] = /*_.CTY__V23*/ curfptr[22];;
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:3945:/ locexp");
+           melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "obsolete alternate ctype keyword in let binding"), (melt_ptr_t)(/*_.TYNAM__V24*/ curfptr[23]));}
+           ;
+           MELT_LOCATION("warmelt-macro.melt:3947:/ cond");
+           /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[5])))) /*then*/ {
+           MELT_LOCATION("warmelt-macro.melt:3947:/ cond.then");
+           MELT_LOCATION("warmelt-macro.melt:3947:/ getslot");
+            { melt_ptr_t slot=0;
+             melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V14*/ curfptr[13]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V31*/ curfptr[30] = slot; };
+            ;
+           } else {MELT_LOCATION("warmelt-macro.melt:3947:/ cond.else");
+           
+            /*_.CTYPE_KEYWORD__V31*/ curfptr[30] = NULL;;
+            }
+           ;
+           MELT_LOCATION("warmelt-macro.melt:3947:/ cond");
+           /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
+           MELT_LOCATION("warmelt-macro.melt:3947:/ cond.then");
+           MELT_LOCATION("warmelt-macro.melt:3947:/ getslot");
+            { melt_ptr_t slot=0;
+             melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V31*/ curfptr[30]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; };
+            ;
+           } else {MELT_LOCATION("warmelt-macro.melt:3947:/ cond.else");
+           
+            /*_.NAMED_NAME__V32*/ curfptr[31] = NULL;;
+            }
+           ;
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:3947:/ locexp");
+           melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "prefered ctype keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31]));}
+           ;
+           MELT_LOCATION("warmelt-macro.melt:3943:/ block");
+           /*block*/{}
+           ;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:3943:/ clear");
+           /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:3943:/ clear");
+           /*clear*/ /*_.CTYPE_KEYWORD__V31*/ curfptr[30] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:3943:/ clear");
+           /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:3943:/ cond.else");
+         
+          MELT_LOCATION("warmelt-macro.melt:3943:/ block");
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:3950:/ locexp");
+           melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ curfptr[23]));}
+           ;
+           MELT_LOCATION("warmelt-macro.melt:3949:/ block");
+           /*block*/{}
+           ;
+           /*epilog*/}
+          ;
+          }
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3941:/ clear");
+         /*clear*/ /*_.CTYPE_ALTKEYWORD__V29*/ curfptr[27] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:3941:/ clear");
+         /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;}
+        ;
+        }
+       ;
+       /*_.IFELSE___V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3939:/ clear");
+       /*clear*/ /*_.CTYPE_KEYWORD__V26*/ curfptr[25] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3939:/ clear");
+       /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3939:/ clear");
+       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+      ;
+      }
+     ;
+     /*_.PAIR_TAIL__V33*/ curfptr[29] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+     MELT_LOCATION("warmelt-macro.melt:3952:/ compute");
+     /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V34*/ curfptr[30] = /*_.PAIR_TAIL__V33*/ curfptr[29];;
+     /*_.PAIR_HEAD__V35*/ curfptr[31] = 
+      (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+     MELT_LOCATION("warmelt-macro.melt:3953:/ compute");
+     /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V36*/ curfptr[27] = /*_.PAIR_HEAD__V35*/ curfptr[31];;
+     /*_.LET___V22*/ curfptr[21] = /*_.SETQ___V36*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.CTY__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.TYNAM__V24*/ curfptr[23] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V33*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.SETQ___V34*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.PAIR_HEAD__V35*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
+     /*clear*/ /*_.SETQ___V36*/ curfptr[27] = 0 ;}
+    ;
+    /*_.IF___V21*/ curfptr[20] = /*_.LET___V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3934:/ clear");
+    /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3934:/ cond.else");
+  
+   /*_.IF___V21*/ curfptr[20] = NULL;;
+   }
+  ;
+  /*_#IS_A__L8*/ curfnum[6] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:3955:/ cond");
+  /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3955:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3955:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3957:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[26] = slot; };
+    ;
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:3956:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding cannot bind keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[26]));}
+     ;
+     /*clear*/ /*_.IFELSE___V37*/ curfptr[25] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3955:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[26] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:3955:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:3955:/ block");
+   /*block*/{
+    /*_#IS_A__L9*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-macro.melt:3958:/ cond");
+    /*cond*/ if (/*_#IS_A__L9*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3958:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3958:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:3959:/ compute");
+      /*_.VAR__V15*/ curfptr[14] = /*_.SETQ___V40*/ curfptr[23] = /*_.CURARG__V18*/ curfptr[17];;
+      /*_.PAIR_TAIL__V41*/ curfptr[24] = 
+       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+      MELT_LOCATION("warmelt-macro.melt:3960:/ compute");
+      /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V42*/ curfptr[29] = /*_.PAIR_TAIL__V41*/ curfptr[24];;
+      /*_.PAIR_HEAD__V43*/ curfptr[30] = 
+       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+      MELT_LOCATION("warmelt-macro.melt:3961:/ compute");
+      /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V44*/ curfptr[31] = /*_.PAIR_HEAD__V43*/ curfptr[30];;
+      MELT_LOCATION("warmelt-macro.melt:3958:/ block");
+      /*block*/{
+       /*_.PROGN___V45*/ curfptr[27] = /*_.SETQ___V44*/ curfptr[31];;}
+      ;
+      /*_.IFELSE___V39*/ curfptr[22] = /*_.PROGN___V45*/ curfptr[27];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
+      /*clear*/ /*_.SETQ___V40*/ curfptr[23] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
+      /*clear*/ /*_.PAIR_TAIL__V41*/ curfptr[24] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
+      /*clear*/ /*_.SETQ___V42*/ curfptr[29] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
+      /*clear*/ /*_.PAIR_HEAD__V43*/ curfptr[30] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
+      /*clear*/ /*_.SETQ___V44*/ curfptr[31] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
+      /*clear*/ /*_.PROGN___V45*/ curfptr[27] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:3958:/ cond.else");
+    
+     /*_.IFELSE___V39*/ curfptr[22] = NULL;;
+     }
+    ;
+    /*_.IFELSE___V37*/ curfptr[25] = /*_.IFELSE___V39*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3955:/ clear");
+    /*clear*/ /*_#IS_A__L9*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3955:/ clear");
+    /*clear*/ /*_.IFELSE___V39*/ curfptr[22] = 0 ;}
+   ;
+   }
+  ;
+  /*_#NULL__L10*/ curfnum[4] = 
+   ((/*_.VAR__V15*/ curfptr[14]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:3963:/ cond");
+  /*cond*/ if (/*_#NULL__L10*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3963:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3963:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:3964:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing variable in letbinding"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3965:/ cond");
+  /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:3965:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:3965:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3967:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:3967:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:3967:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.MACROEXPAND_1__V46*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3967:/ compute");
+    /*_.EXPR__V16*/ curfptr[15] = /*_.SETQ___V47*/ curfptr[26] = /*_.MACROEXPAND_1__V46*/ curfptr[21];;
+    /*_.PAIR_TAIL__V48*/ curfptr[23] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+    MELT_LOCATION("warmelt-macro.melt:3968:/ compute");
+    /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V49*/ curfptr[24] = /*_.PAIR_TAIL__V48*/ curfptr[23];;
+    /*_.PAIR_HEAD__V50*/ curfptr[29] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
+    MELT_LOCATION("warmelt-macro.melt:3969:/ compute");
+    /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V51*/ curfptr[30] = /*_.PAIR_HEAD__V50*/ curfptr[29];;
+    MELT_LOCATION("warmelt-macro.melt:3970:/ cond");
+    /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:3970:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:3970:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:3970:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too long letbinding"), (melt_ptr_t)0);}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3966:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
+    /*clear*/ /*_.MACROEXPAND_1__V46*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
+    /*clear*/ /*_.SETQ___V47*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V48*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
+    /*clear*/ /*_.SETQ___V49*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
+    /*clear*/ /*_.PAIR_HEAD__V50*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
+    /*clear*/ /*_.SETQ___V51*/ curfptr[30] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3972:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3972:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:3972:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VAR__V15*/ curfptr[14];
+    /*_.PREVBIND__V53*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#NULL__L11*/ curfnum[5] = 
+    ((/*_.PREVBIND__V53*/ curfptr[27]) == NULL);;
+   MELT_LOCATION("warmelt-macro.melt:3974:/ cond");
+   /*cond*/ if (/*_#NULL__L11*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:3974:/ cond.then");
+   /*_.IFELSE___V54*/ curfptr[22] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:3974:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:3974:/ block");
+    /*block*/{
+     /*_#IS_A__L12*/ curfnum[11] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[10])));;
+     MELT_LOCATION("warmelt-macro.melt:3975:/ cond");
+     /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:3975:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:3975:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:3976:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:3976:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[10])))) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3976:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3976:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), 3, "LETBIND_LOC");/*_.PREVLOC__V56*/ curfptr[26] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:3976:/ cond.else");
+        
+         /*_.PREVLOC__V56*/ curfptr[26] = NULL;;
+         }
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3979:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3979:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3979:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V57*/ curfptr[23] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:3979:/ cond.else");
+        
+         /*_.NAMED_NAME__V57*/ curfptr[23] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:3977:/ locexp");
+        melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "local let binding hides upper one"), (melt_ptr_t)(/*_.NAMED_NAME__V57*/ curfptr[23]));}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:3980:/ cond");
+        /*cond*/ if (/*_.PREVLOC__V56*/ curfptr[26]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:3980:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:3980:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:3983:/ cond");
+          /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:3983:/ cond.then");
+          MELT_LOCATION("warmelt-macro.melt:3983:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ curfptr[24] = slot; };
+           ;
+          } else {MELT_LOCATION("warmelt-macro.melt:3983:/ cond.else");
+          
+           /*_.NAMED_NAME__V58*/ curfptr[24] = NULL;;
+           }
+          ;
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:3981:/ locexp");
+           melt_warning_str(0, (melt_ptr_t)(/*_.PREVLOC__V56*/ curfptr[26]), ( "here is the hidden binding"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ curfptr[24]));}
+           ;
+           /*clear*/ /*_.IFELSE___V55*/ curfptr[21] = 0 ;}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:3980:/ clear");
+          /*clear*/ /*_.NAMED_NAME__V58*/ curfptr[24] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:3980:/ cond.else");
+        
+         /*_.IFELSE___V55*/ curfptr[21] = NULL;;
+         }
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:3976:/ clear");
+        /*clear*/ /*_.PREVLOC__V56*/ curfptr[26] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:3976:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V57*/ curfptr[23] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:3975:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:3975:/ block");
+      /*block*/{
+       /*_#IS_A__L13*/ curfnum[12] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[11])));;
+       MELT_LOCATION("warmelt-macro.melt:3986:/ cond");
+       /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:3986:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:3986:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:3989:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:3989:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:3989:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V60*/ curfptr[30] = slot; };
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:3989:/ cond.else");
+         
+          /*_.NAMED_NAME__V60*/ curfptr[30] = NULL;;
+          }
+         ;
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:3987:/ locexp");
+          melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "local let binding hides definition"), (melt_ptr_t)(/*_.NAMED_NAME__V60*/ curfptr[30]));}
+          ;
+          /*clear*/ /*_.IFELSE___V59*/ curfptr[29] = 0 ;}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:3986:/ clear");
+         /*clear*/ /*_.NAMED_NAME__V60*/ curfptr[30] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-macro.melt:3986:/ cond.else");
+       
+        /*_.IFELSE___V59*/ curfptr[29] = NULL;;
+        }
+       ;
+       /*_.IFELSE___V55*/ curfptr[21] = /*_.IFELSE___V59*/ curfptr[29];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:3975:/ clear");
+       /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:3975:/ clear");
+       /*clear*/ /*_.IFELSE___V59*/ curfptr[29] = 0 ;}
+      ;
+      }
+     ;
+     /*_.IFELSE___V54*/ curfptr[22] = /*_.IFELSE___V55*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:3974:/ clear");
+     /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:3974:/ clear");
+     /*clear*/ /*_.IFELSE___V55*/ curfptr[21] = 0 ;}
+    ;
+    }
+   ;
+   /*_.LET___V52*/ curfptr[31] = /*_.IFELSE___V54*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3972:/ clear");
+   /*clear*/ /*_.PREVBIND__V53*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3972:/ clear");
+   /*clear*/ /*_#NULL__L11*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3972:/ clear");
+   /*clear*/ /*_.IFELSE___V54*/ curfptr[22] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:3992:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:3993:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:3993:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ curfrout->tabval[12])), (5), "CLASS_SOURCE_LET_BINDING");/*_.INST__V63*/ curfptr[23] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLETB_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (2), (/*_.CTYP__V14*/ curfptr[13]), "SLETB_TYPE");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLETB_BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (3), (/*_.VAR__V15*/ curfptr[14]), "SLETB_BINDER");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLETB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (4), (/*_.EXPR__V16*/ curfptr[15]), "SLETB_EXPR");
+    ;
+    /*_.LETB__V62*/ curfptr[26] = /*_.INST__V63*/ curfptr[23];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:3998:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.LETB__V62*/ curfptr[26];;
+    MELT_LOCATION("warmelt-macro.melt:3998:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V61*/ curfptr[24] = /*_.RETURN___V64*/ curfptr[30];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:3992:/ clear");
+   /*clear*/ /*_.LETB__V62*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:3992:/ clear");
+   /*clear*/ /*_.RETURN___V64*/ curfptr[30] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V61*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.CTYP__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.VAR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.EXPR__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.CURARG__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.IF___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.IFELSE___V37*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_#NULL__L10*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.LET___V52*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
+  /*clear*/ /*_.LET___V61*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:3920:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:3920:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_LETBINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_75_warmelt_macro_MEXPAND_LETBINDING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_76_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_macro_MEXPAND_LET_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 37
+  void* varptr[37];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<37; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 37;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_LET", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4002:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4002:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4002:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4002:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4003:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4003:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4003:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4003:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4003:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4003:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4003:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4003)?(4003):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4003:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4003:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4003:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4004:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4004:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4004:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4004:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4004:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4004:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4004:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4004)?(4004):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4004:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4004:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4004:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4005:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4006:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4007:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.SECPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.RESTPAIR__V14*/ curfptr[13] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.SECPAIR__V13*/ curfptr[12])));;
+  /*_.BINDEXPR__V15*/ curfptr[14] = 
+   (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:4011:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.BINDTUP__V17*/ curfptr[16] = (/*nil*/NULL);;
+  /*_.BODYTUP__V18*/ curfptr[17] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4015:/ cond");
+  /*cond*/ if (/*_.BINDEXPR__V15*/ curfptr[14]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4015:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4015:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+    MELT_LOCATION("warmelt-macro.melt:4016:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:4016:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:4016:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:4019:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V15*/ curfptr[14]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V21*/ curfptr[20] = slot; };
+      ;
+      /*_.LIST_FIRST__V22*/ curfptr[21] = 
+       (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V21*/ curfptr[20])));;
+      MELT_LOCATION("warmelt-macro.melt:4021:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4021:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4021:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4021:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4021:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+       ;
+       /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4018:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:4018:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+       MELT_LOCATION("warmelt-macro.melt:4018:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[22];
+       /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LIST_FIRST__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4017:/ compute");
+      /*_.BINDTUP__V17*/ curfptr[16] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24];;
+      /*_.IFELSE___V20*/ curfptr[19] = /*_.SETQ___V26*/ curfptr[25];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
+      /*clear*/ /*_.SEXP_CONTENTS__V21*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
+      /*clear*/ /*_.LIST_FIRST__V22*/ curfptr[21] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
+      /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
+      /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
+      /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:4016:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:4016:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:4025:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing letbinding-s in LET"), (melt_ptr_t)0);}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IF___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4015:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4015:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4015:/ cond.else");
+  
+   /*_.IF___V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4029:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4029:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[21] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (1));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4029:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[21])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[21])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V16*/ curfptr[15]);
+   ;
+   /*_.LAMBDA___V27*/ curfptr[20] = /*_.LAMBDA___V28*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4027:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4027:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[20];
+   /*_.MULTIPLE_EVERY__V29*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.BINDTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4041:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4041:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[25] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4041:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[25])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[25])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V16*/ curfptr[15]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4041:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[25])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[25])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V30*/ curfptr[24] = /*_.LAMBDA___V31*/ curfptr[25];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4040:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4040:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+   MELT_LOCATION("warmelt-macro.melt:4040:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[24];
+   /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESTPAIR__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4040:/ compute");
+  /*_.BODYTUP__V18*/ curfptr[17] = /*_.SETQ___V33*/ curfptr[32] = /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19];;
+  MELT_LOCATION("warmelt-macro.melt:4042:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4043:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4043:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LET*/ curfrout->tabval[15])), (4), "CLASS_SOURCE_LET");/*_.INST__V36*/ curfptr[35] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4043:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4043:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.BINDTUP__V17*/ curfptr[16]), "SLET_BINDINGS");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4043:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.BODYTUP__V18*/ curfptr[17]), "SLET_BODY");
+    ;
+    /*_.LETR__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4047:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.LETR__V35*/ curfptr[34];;
+    MELT_LOCATION("warmelt-macro.melt:4047:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V37*/ curfptr[36];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4042:/ clear");
+   /*clear*/ /*_.LETR__V35*/ curfptr[34] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4042:/ clear");
+   /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V34*/ curfptr[33];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.SECPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.RESTPAIR__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.BINDEXPR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.NEWENV__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.BINDTUP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.BODYTUP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.LAMBDA___V27*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.LAMBDA___V30*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
+  /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4002:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:4002:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4002:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4002:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4002:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_LET", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_76_warmelt_macro_MEXPAND_LET*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_77_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4021:/ getarg");
+ /*_.B__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4021:/ block");
+/*block*/{
+ /*_#IS_NOT_A__L1*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.B__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-macro.melt:4022:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-macro.melt:4022:/ cond.then");
+ MELT_LOCATION("warmelt-macro.melt:4022:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-macro.melt:4023:/ locexp");
+   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "sexpr expected in LET binding"), (melt_ptr_t)0);}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4024:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4024:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-macro.melt:4024:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[2]);
+  /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MEXPAND_LETBINDING*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.B__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4021:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4021:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4021:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4021:/ clear");
+ /*clear*/ /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_77_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4029:/ getarg");
+ /*_.SLB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4029:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4030:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4030:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4030:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4030:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4030:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4030:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4030:/ locexp");
+      melt_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4030)?(4030):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4030:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4030:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4030:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4031:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4032:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 4, "SLETB_EXPR");/*_.SX__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4034:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 3, "SLETB_BINDER");/*_.SLETB_BINDER__V7*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4035:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 2, "SLETB_TYPE");/*_.SLETB_TYPE__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4033:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4033:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[1])), (4), "CLASS_LET_BINDING");/*_.INST__V10*/ curfptr[9] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4033:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V10*/ curfptr[9]), (0), (/*_.SLETB_BINDER__V7*/ curfptr[6]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4033:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V10*/ curfptr[9]), (1), (/*_.SLETB_TYPE__V8*/ curfptr[7]), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4033:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V10*/ curfptr[9]), (2), (/*_.SX__V6*/ curfptr[5]), "LETBIND_EXPR");
+   ;
+   /*_.LB__V9*/ curfptr[8] = /*_.INST__V10*/ curfptr[9];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4037:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4037:/ block");
+   /*block*/{
+    /*_#IS_LIST__L2*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.LB__V9*/ curfptr[8])) == OBMAG_LIST);;
+    /*_#NOT__L3*/ curfnum[2] = 
+     (!(/*_#IS_LIST__L2*/ curfnum[0]));;
+    MELT_LOCATION("warmelt-macro.melt:4037:/ cond");
+    /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:4037:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-macro.melt:4037:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:4037:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:4037:/ locexp");
+       melt_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4037)?(4037):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4037:/ clear");
+    /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4037:/ clear");
+    /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4037:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4037:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4038:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4038:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LB__V9*/ curfptr[8];
+   /*_.PUT_ENV__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[2])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.PUT_ENV__V13*/ curfptr[11];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
+  /*clear*/ /*_.SX__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
+  /*clear*/ /*_.SLETB_BINDER__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
+  /*clear*/ /*_.SLETB_TYPE__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
+  /*clear*/ /*_.LB__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
+  /*clear*/ /*_.PUT_ENV__V13*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4029:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-macro.melt:4029:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4029:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4029:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_78_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4041:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4041:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4041:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4041:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4041:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4041:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4041:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4041:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_79_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("YES_RECURSIVELY_CONSTRUCTIBLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4055:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4055:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4056:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4056:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4056:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
+    argtab[0].bp_cstring =  "yes_recursively_constructible recv";
+    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
+    argtab[3].bp_long = 4056;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4056:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4056:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4056:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4057:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-macro.melt:4057:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4055:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-macro.melt:4055:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4055:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4055:/ clear");
+ /*clear*/ /*_.RETURN___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("YES_RECURSIVELY_CONSTRUCTIBLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE*/
+
+
+
+/**** end of warmelt-macro.0+1.c ****/
diff --git a/gcc/melt/warmelt-macro.0+2.c b/gcc/melt/warmelt-macro.0+2.c
new file mode 100644
index 00000000000..e3e0d33f3b8
--- /dev/null
+++ b/gcc/melt/warmelt-macro.0+2.c
@@ -0,0 +1,12330 @@
+/* GCC MELT GENERATED FILE warmelt-macro.0+2.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #2 */
+#include "run-melt.h"
+
+/**** warmelt-macro.0+2.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_macro_EXPAND_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_macro_EXPAND_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_macro_EXPAND_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_macro_EXPAND_CMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_macro_EXPAND_FUNMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_macro_EXPAND_KEYWORDFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_macro_MACROEXPAND_1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_macro_EXPAND_PRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_macro_PATMACEXPAND_FOR_MATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_macro_PATTERNEXPAND_EXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_macro_PATTERNEXPAND_1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_macro_LAMBDA_ARG_BINDINGS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_macro_INSTALL_INITIAL_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_macro_INSTALL_INITIAL_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_macro_WARN_IF_REDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_macro_CHECK_C_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_macro_MEXPAND_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_macro_MEXPAND_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-macro.0+2.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_81_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_macro_MEXPAND_LETREC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 103
+  void* varptr[103];
+#define CURFRAM_NBVARNUM 24
+  long varnum[24];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<103; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 103;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_LETREC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4068:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4068:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4068:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4068:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4069:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4069:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4069:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4069:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4069:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4069:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4069:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4069)?(4069):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4069:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4069:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4069:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4070:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4070:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4070:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4070:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4070:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4070:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4070:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4070)?(4070):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4070:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4070:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4070:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4071:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4071:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4071:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_letrec sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
+    argtab[3].bp_long = 4071;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4071:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4071:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4071:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4072:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4073:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4074:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.SECPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.RESTPAIR__V16*/ curfptr[15] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.SECPAIR__V15*/ curfptr[14])));;
+  /*_.BINDEXPR__V17*/ curfptr[16] = 
+   (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4078:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NBIND__L4*/ curfnum[0] = 0;;
+  /*_.BINDTUP__V19*/ curfptr[18] = (/*nil*/NULL);;
+  /*_.SRCBINDTUP__V20*/ curfptr[19] = (/*nil*/NULL);;
+  /*_.VARTUP__V21*/ curfptr[20] = (/*nil*/NULL);;
+  /*_.EXPRTUP__V22*/ curfptr[21] = (/*nil*/NULL);;
+  /*_.BODYTUP__V23*/ curfptr[22] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4087:/ cond");
+  /*cond*/ if (/*_.BINDEXPR__V17*/ curfptr[16]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4087:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4087:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+    MELT_LOCATION("warmelt-macro.melt:4088:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:4088:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:4088:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:4089:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4091:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V17*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V27*/ curfptr[26] = slot; };
+       ;
+       /*_.LIST_FIRST__V28*/ curfptr[27] = 
+        (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V27*/ curfptr[26])));;
+       MELT_LOCATION("warmelt-macro.melt:4093:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:4093:/ newclosure");
+         /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
+         meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+        ;
+        MELT_LOCATION("warmelt-macro.melt:4093:/ putclosedv");
+        /*putclosv*/
+        melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+        melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+        ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
+        ;
+        /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4090:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[2];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:4090:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
+        MELT_LOCATION("warmelt-macro.melt:4090:/ apply.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
+        /*_.RECBINDTUP__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LIST_FIRST__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_#NBRECBIND__L6*/ curfnum[5] = 
+        (melt_multiple_length((melt_ptr_t)(/*_.RECBINDTUP__V31*/ curfptr[30])));;
+       /*_.RECSEXPRTUP__V32*/ curfptr[31] = 
+        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBRECBIND__L6*/ curfnum[5])));;
+       MELT_LOCATION("warmelt-macro.melt:4100:/ compute");
+       /*_#NBIND__L4*/ curfnum[0] = /*_#SETQ___L7*/ curfnum[6] = /*_#NBRECBIND__L6*/ curfnum[5];;
+       /*_.MAKE_MULTIPLE__V33*/ curfptr[32] = 
+        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
+       MELT_LOCATION("warmelt-macro.melt:4101:/ compute");
+       /*_.BINDTUP__V19*/ curfptr[18] = /*_.SETQ___V34*/ curfptr[33] = /*_.MAKE_MULTIPLE__V33*/ curfptr[32];;
+       /*_.MAKE_MULTIPLE__V35*/ curfptr[34] = 
+        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
+       MELT_LOCATION("warmelt-macro.melt:4102:/ compute");
+       /*_.SRCBINDTUP__V20*/ curfptr[19] = /*_.SETQ___V36*/ curfptr[35] = /*_.MAKE_MULTIPLE__V35*/ curfptr[34];;
+       /*_.MAKE_MULTIPLE__V37*/ curfptr[36] = 
+        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
+       MELT_LOCATION("warmelt-macro.melt:4103:/ compute");
+       /*_.VARTUP__V21*/ curfptr[20] = /*_.SETQ___V38*/ curfptr[37] = /*_.MAKE_MULTIPLE__V37*/ curfptr[36];;
+       /*_.MAKE_MULTIPLE__V39*/ curfptr[38] = 
+        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
+       MELT_LOCATION("warmelt-macro.melt:4104:/ compute");
+       /*_.EXPRTUP__V22*/ curfptr[21] = /*_.SETQ___V40*/ curfptr[39] = /*_.MAKE_MULTIPLE__V39*/ curfptr[38];;
+       /*citerblock FOREACH_IN_MULTIPLE*/ {
+        /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.RECBINDTUP__V31*/ curfptr[30]);
+   for (/*_#BINDIX__L8*/ curfnum[7] = 0;  
+	(/*_#BINDIX__L8*/ curfnum[7] >= 0) && (/*_#BINDIX__L8*/ curfnum[7] <  cit1__EACHTUP_ln);  
+	/*_#BINDIX__L8*/ curfnum[7]++) {
+   /*_.CURBINDEXPR__V41*/ curfptr[40] = melt_multiple_nth((melt_ptr_t)(/*_.RECBINDTUP__V31*/ curfptr[30]),  /*_#BINDIX__L8*/ curfnum[7]);
+   
+       
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-macro.melt:4109:/ cppif.then");
+        MELT_LOCATION("warmelt-macro.melt:4109:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+           callcount;;
+          MELT_LOCATION("warmelt-macro.melt:4109:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
+           argtab[0].bp_cstring =  "mexpand_letrec firstloop curbindexpr";
+           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-macro.melt";
+           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
+           argtab[3].bp_long = 4109;
+           /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:4109:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:4109:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-macro.melt:4109:/ cppif.else");
+        /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        /*_#IS_NOT_A__L10*/ curfnum[8] = 
+         !melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+        MELT_LOCATION("warmelt-macro.melt:4110:/ cond");
+        /*cond*/ if (/*_#IS_NOT_A__L10*/ curfnum[8]) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:4110:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:4110:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:4112:/ block");
+          /*block*/{
+           /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+           MELT_LOCATION("warmelt-macro.melt:4112:/ finalreturn");
+           ;
+           /*finalret*/ goto labend_rout ;}
+          ;
+          /*_.IF___V44*/ curfptr[42] = /*_.RETURN___V45*/ curfptr[44];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:4110:/ clear");
+          /*clear*/ /*_.RETURN___V45*/ curfptr[44] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:4110:/ cond.else");
+        
+         /*_.IF___V44*/ curfptr[42] = NULL;;
+         }
+        ;
+        MELT_LOCATION("warmelt-macro.melt:4113:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:4113:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])))) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4113:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4113:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), 2, "SEXP_CONTENTS");/*_.CURCONT__V46*/ curfptr[44] = slot; };
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:4113:/ cond.else");
+         
+          /*_.CURCONT__V46*/ curfptr[44] = NULL;;
+          }
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4114:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4114:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4114:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), 1, "LOCA_LOCATION");/*_.CURLOC__V47*/ curfptr[46] = slot; };
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:4114:/ cond.else");
+         
+          /*_.CURLOC__V47*/ curfptr[46] = NULL;;
+          }
+         ;
+         /*_.CURPAIR__V48*/ curfptr[47] = 
+          (melt_list_first((melt_ptr_t)(/*_.CURCONT__V46*/ curfptr[44])));;
+         /*_.CURCOMP__V49*/ curfptr[48] = 
+          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
+         /*_.CURSYMB__V50*/ curfptr[49] = (/*nil*/NULL);;
+         /*_.CURSEXPR__V51*/ curfptr[50] = (/*nil*/NULL);;
+         /*_#IS_A__L11*/ curfnum[10] = 
+          melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ curfptr[48]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));;
+         MELT_LOCATION("warmelt-macro.melt:4120:/ cond");
+         /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4120:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4120:/ block");
+          /*block*/{
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-macro.melt:4121:/ locexp");
+            melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "keyword invalid in LETREC binding"), (melt_ptr_t)0);}
+            ;
+            /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;}
+           ;
+           /*epilog*/}
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:4120:/ cond.else");
+         
+          MELT_LOCATION("warmelt-macro.melt:4120:/ block");
+          /*block*/{
+           /*_#IS_A__L12*/ curfnum[11] = 
+            melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ curfptr[48]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[10])));;
+           MELT_LOCATION("warmelt-macro.melt:4123:/ cond");
+           /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
+           MELT_LOCATION("warmelt-macro.melt:4123:/ cond.then");
+           MELT_LOCATION("warmelt-macro.melt:4123:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-macro.melt:4124:/ compute");
+             /*_.CURSYMB__V50*/ curfptr[49] = /*_.SETQ___V54*/ curfptr[53] = /*_.CURCOMP__V49*/ curfptr[48];;
+             /*_.IFELSE___V53*/ curfptr[52] = /*_.SETQ___V54*/ curfptr[53];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-macro.melt:4123:/ clear");
+             /*clear*/ /*_.SETQ___V54*/ curfptr[53] = 0 ;}
+            ;
+           } else {MELT_LOCATION("warmelt-macro.melt:4123:/ cond.else");
+           
+            MELT_LOCATION("warmelt-macro.melt:4123:/ block");
+            /*block*/{
+             
+             {
+             MELT_LOCATION("warmelt-macro.melt:4127:/ locexp");
+             melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "invalid LETREC binding - expecting (<symbol> <constructive-expr>)"), (melt_ptr_t)0);}
+             ;
+             MELT_LOCATION("warmelt-macro.melt:4126:/ block");
+             /*block*/{}
+             ;
+             /*epilog*/}
+            ;
+            }
+           ;
+           /*_.IFELSE___V52*/ curfptr[51] = /*_.IFELSE___V53*/ curfptr[52];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:4120:/ clear");
+           /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:4120:/ clear");
+           /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;}
+          ;
+          }
+         ;
+         /*_.PAIR_TAIL__V55*/ curfptr[53] = 
+          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
+         MELT_LOCATION("warmelt-macro.melt:4129:/ compute");
+         /*_.CURPAIR__V48*/ curfptr[47] = /*_.SETQ___V56*/ curfptr[52] = /*_.PAIR_TAIL__V55*/ curfptr[53];;
+         /*_.PAIR_HEAD__V57*/ curfptr[56] = 
+          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
+         MELT_LOCATION("warmelt-macro.melt:4130:/ compute");
+         /*_.CURCOMP__V49*/ curfptr[48] = /*_.SETQ___V58*/ curfptr[57] = /*_.PAIR_HEAD__V57*/ curfptr[56];;
+         /*_#IS_A__L13*/ curfnum[11] = 
+          melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ curfptr[48]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+         MELT_LOCATION("warmelt-macro.melt:4131:/ cond");
+         /*cond*/ if (/*_#IS_A__L13*/ curfnum[11]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4131:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4131:/ block");
+          /*block*/{
+           /*_#IS_A__L14*/ curfnum[13] = 
+            melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V50*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[10])));;
+           MELT_LOCATION("warmelt-macro.melt:4132:/ cond");
+           /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ {
+           MELT_LOCATION("warmelt-macro.melt:4132:/ cond.then");
+           MELT_LOCATION("warmelt-macro.melt:4132:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-macro.melt:4134:/ compute");
+             /*_.CURSEXPR__V51*/ curfptr[50] = /*_.SETQ___V59*/ curfptr[58] = /*_.CURCOMP__V49*/ curfptr[48];;
+             
+             {
+             MELT_LOCATION("warmelt-macro.melt:4135:/ locexp");
+             meltgc_multiple_put_nth((melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ curfptr[31]), (/*_#BINDIX__L8*/ curfnum[7]), (melt_ptr_t)(/*_.CURSEXPR__V51*/ curfptr[50]));}
+             ;
+             
+             {
+             MELT_LOCATION("warmelt-macro.melt:4136:/ locexp");
+             meltgc_multiple_put_nth((melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]), (/*_#BINDIX__L8*/ curfnum[7]), (melt_ptr_t)(/*_.CURSYMB__V50*/ curfptr[49]));}
+             ;
+             MELT_LOCATION("warmelt-macro.melt:4133:/ block");
+             /*block*/{}
+             ;
+             /*epilog*/
+             MELT_LOCATION("warmelt-macro.melt:4132:/ clear");
+             /*clear*/ /*_.SETQ___V59*/ curfptr[58] = 0 ;}
+            ;
+           } /*noelse*/
+           ;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:4131:/ clear");
+           /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:4131:/ cond.else");
+         
+          MELT_LOCATION("warmelt-macro.melt:4131:/ block");
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:4138:/ locexp");
+           melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "invalid LETREC binding - missing constructive expression"), (melt_ptr_t)0);}
+           ;
+           /*epilog*/}
+          ;
+          }
+         ;
+         /*_.PAIR_TAIL__V60*/ curfptr[58] = 
+          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
+         MELT_LOCATION("warmelt-macro.melt:4139:/ cond");
+         /*cond*/ if (/*_.PAIR_TAIL__V60*/ curfptr[58]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4139:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4139:/ block");
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:4140:/ locexp");
+           melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "invalid LETREC binding - more than two components"), (melt_ptr_t)0);}
+           ;
+           /*epilog*/}
+          ;
+         } /*noelse*/
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.CURCONT__V46*/ curfptr[44] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.CURLOC__V47*/ curfptr[46] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.CURPAIR__V48*/ curfptr[47] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.CURCOMP__V49*/ curfptr[48] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.CURSYMB__V50*/ curfptr[49] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.CURSEXPR__V51*/ curfptr[50] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[53] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.SETQ___V56*/ curfptr[52] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.PAIR_HEAD__V57*/ curfptr[56] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.SETQ___V58*/ curfptr[57] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_#IS_A__L13*/ curfnum[11] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
+         /*clear*/ /*_.PAIR_TAIL__V60*/ curfptr[58] = 0 ;}
+        ;
+        if (/*_#BINDIX__L8*/ curfnum[7]<0) break;
+   } /* end cit1__EACHTUP */ 
+       
+        /*citerepilog*/
+        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
+        /*clear*/ /*_.CURBINDEXPR__V41*/ curfptr[40] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
+        /*clear*/ /*_#BINDIX__L8*/ curfnum[7] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
+        /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
+        /*clear*/ /*_#IS_NOT_A__L10*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
+        /*clear*/ /*_.IF___V44*/ curfptr[42] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+       ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-macro.melt:4142:/ cppif.then");
+       MELT_LOCATION("warmelt-macro.melt:4142:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
+          callcount;;
+         MELT_LOCATION("warmelt-macro.melt:4142:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
+          argtab[0].bp_cstring =  "mexpand_letrec recsexprtup after firstloop";
+          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
+          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-macro.melt";
+          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
+          argtab[3].bp_long = 4142;
+          /*_.DEBUG_MSG_FUN__V62*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V61*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[46];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4142:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4142:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[46] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-macro.melt:4142:/ cppif.else");
+       /*_.IFCPP___V61*/ curfptr[44] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-macro.melt:4143:/ cppif.then");
+       MELT_LOCATION("warmelt-macro.melt:4143:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 
+          callcount;;
+         MELT_LOCATION("warmelt-macro.melt:4143:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
+          argtab[0].bp_cstring =  "mexpand_letrec vartup after firstloop";
+          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10];
+          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-macro.melt";
+          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
+          argtab[3].bp_long = 4143;
+          /*_.DEBUG_MSG_FUN__V64*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V63*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[48];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4143:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4143:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[48] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-macro.melt:4143:/ cppif.else");
+       /*_.IFCPP___V63*/ curfptr[47] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-macro.melt:4146:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-macro.melt:4146:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])))) /*then*/ {
+        MELT_LOCATION("warmelt-macro.melt:4146:/ cond.then");
+        MELT_LOCATION("warmelt-macro.melt:4146:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), 0, "ENV_BIND");/*_.ENVMAP__V65*/ curfptr[49] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-macro.melt:4146:/ cond.else");
+        
+         /*_.ENVMAP__V65*/ curfptr[49] = NULL;;
+         }
+        ;
+        /*citerblock FOREACH_IN_MULTIPLE*/ {
+         /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.VARTUP__V21*/ curfptr[20]);
+   for (/*_#VARIX__L17*/ curfnum[11] = 0;  
+	(/*_#VARIX__L17*/ curfnum[11] >= 0) && (/*_#VARIX__L17*/ curfnum[11] <  cit2__EACHTUP_ln);  
+	/*_#VARIX__L17*/ curfnum[11]++) {
+   /*_.CURVAR__V66*/ curfptr[50] = melt_multiple_nth((melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]),  /*_#VARIX__L17*/ curfnum[11]);
+   
+        
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-macro.melt:4151:/ cppif.then");
+         MELT_LOCATION("warmelt-macro.melt:4151:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 
+            callcount;;
+           MELT_LOCATION("warmelt-macro.melt:4151:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
+            argtab[0].bp_cstring =  "mexpand_letrec second loop curvar";
+            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13];
+            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-macro.melt";
+            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
+            argtab[3].bp_long = 4151;
+            /*_.DEBUG_MSG_FUN__V68*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V67*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[53];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:4151:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:4151:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[53] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-macro.melt:4151:/ cppif.else");
+         /*_.IFCPP___V67*/ curfptr[51] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         /*_.MAPOBJECT_GET__V69*/ curfptr[52] = 
+          melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ENVMAP__V65*/ curfptr[49]), (meltobject_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]));;
+         MELT_LOCATION("warmelt-macro.melt:4152:/ cond");
+         /*cond*/ if (/*_.MAPOBJECT_GET__V69*/ curfptr[52]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4152:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4152:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-macro.melt:4154:/ cond");
+           /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[11])))) /*then*/ {
+           MELT_LOCATION("warmelt-macro.melt:4154:/ cond.then");
+           MELT_LOCATION("warmelt-macro.melt:4154:/ getslot");
+            { melt_ptr_t slot=0;
+             melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]), 1, "NAMED_NAME");/*_.NAMED_NAME__V70*/ curfptr[56] = slot; };
+            ;
+           } else {MELT_LOCATION("warmelt-macro.melt:4154:/ cond.else");
+           
+            /*_.NAMED_NAME__V70*/ curfptr[56] = NULL;;
+            }
+           ;
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:4153:/ locexp");
+           melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "repeated variable in LETREC binding"), (melt_ptr_t)(/*_.NAMED_NAME__V70*/ curfptr[56]));}
+           ;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:4152:/ clear");
+           /*clear*/ /*_.NAMED_NAME__V70*/ curfptr[56] = 0 ;}
+          ;
+         } /*noelse*/
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4156:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:4156:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-macro.melt:4156:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_LETREC_BINDING*/ curfrout->tabval[12])), (4), "CLASS_LETREC_BINDING");/*_.INST__V72*/ curfptr[58] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4156:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[58])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V72*/ curfptr[58]), (0), (/*_.CURVAR__V66*/ curfptr[50]), "BINDER");
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4156:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[58])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V72*/ curfptr[58]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "LETBIND_TYPE");
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4156:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[58])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V72*/ curfptr[58]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
+           ;
+           /*_.CURBIND__V71*/ curfptr[57] = /*_.INST__V72*/ curfptr[58];;}
+          ;
+          MELT_LOCATION("warmelt-macro.melt:4162:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[1];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-macro.melt:4162:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURBIND__V71*/ curfptr[57];
+           /*_.PUT_ENV__V73*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:4163:/ locexp");
+          meltgc_multiple_put_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ curfptr[18]), (/*_#VARIX__L17*/ curfnum[11]), (melt_ptr_t)(/*_.CURBIND__V71*/ curfptr[57]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:4156:/ clear");
+          /*clear*/ /*_.CURBIND__V71*/ curfptr[57] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:4156:/ clear");
+          /*clear*/ /*_.PUT_ENV__V73*/ curfptr[46] = 0 ;}
+         ;
+         if (/*_#VARIX__L17*/ curfnum[11]<0) break;
+   } /* end cit2__EACHTUP */ 
+        
+         /*citerepilog*/
+         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
+         /*clear*/ /*_.CURVAR__V66*/ curfptr[50] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
+         /*clear*/ /*_#VARIX__L17*/ curfnum[11] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
+         /*clear*/ /*_.IFCPP___V67*/ curfptr[51] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
+         /*clear*/ /*_.MAPOBJECT_GET__V69*/ curfptr[52] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-macro.melt:4146:/ clear");
+        /*clear*/ /*_.ENVMAP__V65*/ curfptr[49] = 0 ;}
+       ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-macro.melt:4165:/ cppif.then");
+       MELT_LOCATION("warmelt-macro.melt:4165:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L19*/ curfnum[10] = 
+          callcount;;
+         MELT_LOCATION("warmelt-macro.melt:4165:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
+          argtab[0].bp_cstring =  "mexpand_letrec bindtup after secondloop";
+          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[10];
+          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-macro.melt";
+          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
+          argtab[3].bp_long = 4165;
+          /*_.DEBUG_MSG_FUN__V75*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDTUP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V74*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V75*/ curfptr[53];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4165:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4165:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[53] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-macro.melt:4165:/ cppif.else");
+       /*_.IFCPP___V74*/ curfptr[48] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       /*citerblock FOREACH_IN_MULTIPLE*/ {
+        /* start cit3__EACHTUP: */
+   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.RECSEXPRTUP__V32*/ curfptr[31]);
+   for (/*_#EXPIX__L20*/ curfnum[13] = 0;  
+	(/*_#EXPIX__L20*/ curfnum[13] >= 0) && (/*_#EXPIX__L20*/ curfnum[13] <  cit3__EACHTUP_ln);  
+	/*_#EXPIX__L20*/ curfnum[13]++) {
+   /*_.CURSEXPR__V76*/ curfptr[56] = melt_multiple_nth((melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ curfptr[31]),  /*_#EXPIX__L20*/ curfnum[13]);
+   
+       
+        MELT_LOCATION("warmelt-macro.melt:4171:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:4172:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSEXPR__V76*/ curfptr[56]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4172:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4172:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSEXPR__V76*/ curfptr[56]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V77*/ curfptr[57] = slot; };
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:4172:/ cond.else");
+         
+          /*_.LOCA_LOCATION__V77*/ curfptr[57] = NULL;;
+          }
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4172:/ cond");
+         /*cond*/ if (/*_.LOCA_LOCATION__V77*/ curfptr[57]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4172:/ cond.then");
+         /*_.CURLOC__V78*/ curfptr[46] = /*_.LOCA_LOCATION__V77*/ curfptr[57];;
+         } else {MELT_LOCATION("warmelt-macro.melt:4172:/ cond.else");
+         
+          /*_.CURLOC__V78*/ curfptr[46] = /*_.LOC__V13*/ curfptr[12];;
+          }
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4173:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[2];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:4173:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];
+          MELT_LOCATION("warmelt-macro.melt:4173:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+          /*_.CUREXP__V79*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.CURSEXPR__V76*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.CURBIND__V80*/ curfptr[53] = 
+          (melt_multiple_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ curfptr[18]), (/*_#EXPIX__L20*/ curfnum[13])));;
+         MELT_LOCATION("warmelt-macro.melt:4176:/ msend");
+         /*msend*/{
+          /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ curfptr[80] = meltgc_send((melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]), (melt_ptr_t)((/*!IS_RECURSIVELY_CONSTRUCTIBLE*/ curfrout->tabval[16])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_#NULL__L21*/ curfnum[10] = 
+          ((/*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ curfptr[80]) == NULL);;
+         MELT_LOCATION("warmelt-macro.melt:4176:/ cond");
+         /*cond*/ if (/*_#NULL__L21*/ curfnum[10]) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4176:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4176:/ block");
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-macro.melt:4178:/ locexp");
+           melt_error_str((melt_ptr_t)(/*_.CURLOC__V78*/ curfptr[46]), ( "invalid expression in LETREC binding [not recursively constructible]"), (melt_ptr_t)0);}
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4179:/ block");
+           /*block*/{
+            /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+            MELT_LOCATION("warmelt-macro.melt:4179:/ finalreturn");
+            ;
+            /*finalret*/ goto labend_rout ;}
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4177:/ block");
+           /*block*/{
+            /*_.PROGN___V84*/ curfptr[83] = /*_.RETURN___V83*/ curfptr[82];;}
+           ;
+           /*_.IF___V82*/ curfptr[81] = /*_.PROGN___V84*/ curfptr[83];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:4176:/ clear");
+           /*clear*/ /*_.RETURN___V83*/ curfptr[82] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:4176:/ clear");
+           /*clear*/ /*_.PROGN___V84*/ curfptr[83] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-macro.melt:4176:/ cond.else");
+         
+          /*_.IF___V82*/ curfptr[81] = NULL;;
+          }
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4180:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V80*/ curfptr[53]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[17])))) /*then*/ {
+         MELT_LOCATION("warmelt-macro.melt:4180:/ cond.then");
+         MELT_LOCATION("warmelt-macro.melt:4180:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-macro.melt:4180:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CURBIND__V80*/ curfptr[53])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.CURBIND__V80*/ curfptr[53]), (2), (/*_.CUREXP__V79*/ curfptr[49]), "LETBIND_EXPR");
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4180:/ touch");
+           meltgc_touch(/*_.CURBIND__V80*/ curfptr[53]);
+           ;
+           /*epilog*/}
+          ;
+         } /*noelse*/
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-macro.melt:4181:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.EXPRTUP__V22*/ curfptr[21]), (/*_#EXPIX__L20*/ curfnum[13]), (melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]));}
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4182:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-macro.melt:4184:/ cond");
+          /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:4184:/ cond.then");
+          MELT_LOCATION("warmelt-macro.melt:4184:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V85*/ curfptr[82] = slot; };
+           ;
+          } else {MELT_LOCATION("warmelt-macro.melt:4184:/ cond.else");
+          
+           /*_.LOCA_LOCATION__V85*/ curfptr[82] = NULL;;
+           }
+          ;
+          MELT_LOCATION("warmelt-macro.melt:4184:/ cond");
+          /*cond*/ if (/*_.LOCA_LOCATION__V85*/ curfptr[82]) /*then*/ {
+          MELT_LOCATION("warmelt-macro.melt:4184:/ cond.then");
+          /*_.OR___V86*/ curfptr[83] = /*_.LOCA_LOCATION__V85*/ curfptr[82];;
+          } else {MELT_LOCATION("warmelt-macro.melt:4184:/ cond.else");
+          
+           /*_.OR___V86*/ curfptr[83] = /*_.LOC__V13*/ curfptr[12];;
+           }
+          ;
+          /*_.MULTIPLE_NTH__V87*/ curfptr[86] = 
+           (melt_multiple_nth((melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]), (/*_#EXPIX__L20*/ curfnum[13])));;
+          MELT_LOCATION("warmelt-macro.melt:4183:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-macro.melt:4183:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[18])), (5), "CLASS_SOURCE_LETREC_BINDING");/*_.INST__V89*/ curfptr[88] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (1), (/*_.OR___V86*/ curfptr[83]), "LOCA_LOCATION");
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @SLETB_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "SLETB_TYPE");
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @SLETB_BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (3), (/*_.MULTIPLE_NTH__V87*/ curfptr[86]), "SLETB_BINDER");
+           ;
+           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @SLETB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (4), (/*_.CUREXP__V79*/ curfptr[49]), "SLETB_EXPR");
+           ;
+           /*_.SBIND__V88*/ curfptr[87] = /*_.INST__V89*/ curfptr[88];;}
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:4190:/ locexp");
+          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SRCBINDTUP__V20*/ curfptr[19]), (/*_#EXPIX__L20*/ curfnum[13]), (melt_ptr_t)(/*_.SBIND__V88*/ curfptr[87]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
+          /*clear*/ /*_.LOCA_LOCATION__V85*/ curfptr[82] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
+          /*clear*/ /*_.OR___V86*/ curfptr[83] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
+          /*clear*/ /*_.MULTIPLE_NTH__V87*/ curfptr[86] = 0 ;
+          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
+          /*clear*/ /*_.SBIND__V88*/ curfptr[87] = 0 ;}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_.LOCA_LOCATION__V77*/ curfptr[57] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_.CURLOC__V78*/ curfptr[46] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_.CUREXP__V79*/ curfptr[49] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_.CURBIND__V80*/ curfptr[53] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ curfptr[80] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_#NULL__L21*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
+         /*clear*/ /*_.IF___V82*/ curfptr[81] = 0 ;}
+        ;
+        if (/*_#EXPIX__L20*/ curfnum[13]<0) break;
+   } /* end cit3__EACHTUP */ 
+       
+        /*citerepilog*/
+        MELT_LOCATION("warmelt-macro.melt:4168:/ clear");
+        /*clear*/ /*_.CURSEXPR__V76*/ curfptr[56] = 0 ;
+        MELT_LOCATION("warmelt-macro.melt:4168:/ clear");
+        /*clear*/ /*_#EXPIX__L20*/ curfnum[13] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+       ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-macro.melt:4192:/ cppif.then");
+       MELT_LOCATION("warmelt-macro.melt:4192:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L22*/ curfnum[10] = 
+          callcount;;
+         MELT_LOCATION("warmelt-macro.melt:4192:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
+          argtab[0].bp_cstring =  "mexpand_letrec exprtup after thirdloop";
+          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[10];
+          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-macro.melt";
+          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
+          argtab[3].bp_long = 4192;
+          /*_.DEBUG_MSG_FUN__V91*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.EXPRTUP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V90*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[83];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4192:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4192:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[83] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-macro.melt:4192:/ cppif.else");
+       /*_.IFCPP___V90*/ curfptr[82] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       /*_.LET___V26*/ curfptr[25] = /*_.IFCPP___V90*/ curfptr[82];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.SEXP_CONTENTS__V27*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.LIST_FIRST__V28*/ curfptr[27] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.RECBINDTUP__V31*/ curfptr[30] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_#NBRECBIND__L6*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.RECSEXPRTUP__V32*/ curfptr[31] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.MAKE_MULTIPLE__V33*/ curfptr[32] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.MAKE_MULTIPLE__V35*/ curfptr[34] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.MAKE_MULTIPLE__V37*/ curfptr[36] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.MAKE_MULTIPLE__V39*/ curfptr[38] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.IFCPP___V61*/ curfptr[44] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.IFCPP___V63*/ curfptr[47] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.IFCPP___V74*/ curfptr[48] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
+       /*clear*/ /*_.IFCPP___V90*/ curfptr[82] = 0 ;}
+      ;
+      /*_.IFELSE___V25*/ curfptr[24] = /*_.LET___V26*/ curfptr[25];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:4088:/ clear");
+      /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-macro.melt:4088:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:4088:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:4194:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing letbinding-s in LETREC"), (melt_ptr_t)0);}
+       ;
+       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IF___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4087:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4087:/ clear");
+    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4087:/ cond.else");
+  
+   /*_.IF___V24*/ curfptr[23] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4196:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4196:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L23*/ curfnum[10] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4196:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_letrec srcbindtup";
+     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[10];
+     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
+     argtab[3].bp_long = 4196;
+     /*_.DEBUG_MSG_FUN__V93*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SRCBINDTUP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V92*/ curfptr[86] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[87];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4196:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4196:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[87] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4196:/ cppif.else");
+  /*_.IFCPP___V92*/ curfptr[86] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4198:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4198:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V95*/ curfptr[46] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4198:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V95*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V95*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V95*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4198:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V95*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V95*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V95*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V94*/ curfptr[57] = /*_.LAMBDA___V95*/ curfptr[46];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4197:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4197:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
+   MELT_LOCATION("warmelt-macro.melt:4197:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V94*/ curfptr[57];
+   /*_.PAIRLIST_TO_MULTIPLE__V96*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RESTPAIR__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4197:/ compute");
+  /*_.BODYTUP__V23*/ curfptr[22] = /*_.SETQ___V97*/ curfptr[53] = /*_.PAIRLIST_TO_MULTIPLE__V96*/ curfptr[49];;
+  MELT_LOCATION("warmelt-macro.melt:4199:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4200:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4200:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LETREC*/ curfrout->tabval[21])), (4), "CLASS_SOURCE_LETREC");/*_.INST__V100*/ curfptr[83] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4200:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ curfptr[83])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V100*/ curfptr[83]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4200:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ curfptr[83])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V100*/ curfptr[83]), (2), (/*_.SRCBINDTUP__V20*/ curfptr[19]), "SLET_BINDINGS");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4200:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ curfptr[83])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V100*/ curfptr[83]), (3), (/*_.BODYTUP__V23*/ curfptr[22]), "SLET_BODY");
+    ;
+    /*_.LETR__V99*/ curfptr[81] = /*_.INST__V100*/ curfptr[83];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4204:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4204:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L24*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4204:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_letrec result";
+      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[5];
+      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
+      argtab[3].bp_long = 4204;
+      /*_.DEBUG_MSG_FUN__V102*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LETR__V99*/ curfptr[81]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V101*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4204:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4204:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[27] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4204:/ cppif.else");
+   /*_.IFCPP___V101*/ curfptr[26] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4205:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.LETR__V99*/ curfptr[81];;
+    MELT_LOCATION("warmelt-macro.melt:4205:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V98*/ curfptr[80] = /*_.RETURN___V103*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4199:/ clear");
+   /*clear*/ /*_.LETR__V99*/ curfptr[81] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4199:/ clear");
+   /*clear*/ /*_.IFCPP___V101*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4199:/ clear");
+   /*clear*/ /*_.RETURN___V103*/ curfptr[28] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V98*/ curfptr[80];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.SECPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.RESTPAIR__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.BINDEXPR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_#NBIND__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.BINDTUP__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.SRCBINDTUP__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.VARTUP__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.EXPRTUP__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.BODYTUP__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.IF___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.IFCPP___V92*/ curfptr[86] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.LAMBDA___V94*/ curfptr[57] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V96*/ curfptr[49] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.SETQ___V97*/ curfptr[53] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
+  /*clear*/ /*_.LET___V98*/ curfptr[80] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4068:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4068:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_LETREC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_81_warmelt_macro_MEXPAND_LETREC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_82_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4093:/ getarg");
+ /*_.BX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4093:/ block");
+/*block*/{
+ /*_#IS_NOT_A__L1*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.BX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-macro.melt:4094:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-macro.melt:4094:/ cond.then");
+ MELT_LOCATION("warmelt-macro.melt:4094:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-macro.melt:4095:/ locexp");
+   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "sexpr expected in LETREC binding"), (melt_ptr_t)0);}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4093:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.BX__V2*/ curfptr[1];;
+  MELT_LOCATION("warmelt-macro.melt:4093:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4093:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_82_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_83_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4198:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4198:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4198:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4198:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4198:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4198:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4198:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4198:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_83_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_84_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_macro_MEXPAND_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 29
+  void* varptr[29];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<29; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 29;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4211:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4211:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4211:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4211:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4212:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4212:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4212:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4212:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4212:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4212:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4212:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4212)?(4212):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4212:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4212:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4212:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4213:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4213:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4213:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4213:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4213:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4213:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4213:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4213)?(4213):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4213:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4213:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4213:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4214:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4214:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4215:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  MELT_LOCATION("warmelt-macro.melt:4217:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.FORMALS__V15*/ curfptr[14] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  /*_#NOTNULL__L3*/ curfnum[0] = 
+   ((/*_.FORMALS__V15*/ curfptr[14]) != NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4221:/ cond");
+  /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4221:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4221:/ block");
+   /*block*/{
+    /*_#IS_NOT_A__L5*/ curfnum[4] = 
+     !melt_is_instance_of((melt_ptr_t)(/*_.FORMALS__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+    /*_#IF___L4*/ curfnum[3] = /*_#IS_NOT_A__L5*/ curfnum[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4221:/ clear");
+    /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4221:/ cond.else");
+  
+   /*_#IF___L4*/ curfnum[3] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4221:/ cond");
+  /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4221:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4221:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4222:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing formal argument list in (LAMBDA (arglist...) body...)"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4223:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4223:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4223:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1];
+    /*_.ARGTUP__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FORMALS__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.PAIR_TAIL__V18*/ curfptr[17] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:4224:/ compute");
+   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];;
+   MELT_LOCATION("warmelt-macro.melt:4226:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4226:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4226:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
+    ;
+    /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4225:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4225:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
+    /*_.MULTIPLE_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ARGTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4227:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4228:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4228:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (2));
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4228:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4228:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+     ;
+     /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4227:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4227:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]);
+     MELT_LOCATION("warmelt-macro.melt:4227:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[23];
+     /*_.BODYTUP__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4230:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4230:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[11])), (4), "CLASS_SOURCE_LAMBDA");/*_.INST__V28*/ curfptr[27] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4230:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4230:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SLAM_ARGBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.ARGTUP__V17*/ curfptr[16]), "SLAM_ARGBIND");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4230:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SLAM_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.BODYTUP__V26*/ curfptr[25]), "SLAM_BODY");
+     ;
+     /*_.LAMBR__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4235:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.LAMBR__V27*/ curfptr[26];;
+     MELT_LOCATION("warmelt-macro.melt:4235:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V29*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
+    /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
+    /*clear*/ /*_.BODYTUP__V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
+    /*clear*/ /*_.LAMBR__V27*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
+    /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;}
+   ;
+   /*_.LET___V16*/ curfptr[15] = /*_.LET___V23*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
+   /*clear*/ /*_.ARGTUP__V17*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
+   /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
+   /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
+   /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
+   /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.FORMALS__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_#NOTNULL__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
+  /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4211:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:4211:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4211:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4211:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4211:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_84_warmelt_macro_MEXPAND_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4226:/ getarg");
+ /*_.LB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4226:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4226:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4226:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LB__V2*/ curfptr[1];
+  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4226:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4226:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4226:/ clear");
+ /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_85_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4228:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4228:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4228:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4228:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4228:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4228:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4228:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4228:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_86_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_87_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_macro_MEXPAND_MULTICALL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 40
+  void* varptr[40];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<40; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 40;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_MULTICALL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4241:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4241:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4241:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4241:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4242:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4242:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4242:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4242:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4242:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4242:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4242:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4242)?(4242):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4242:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4242:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4242:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4243:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4243:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4243:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4243:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4243:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4243:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4243:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4243)?(4243):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4243:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4243:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4243:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4244:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4244:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4245:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  MELT_LOCATION("warmelt-macro.melt:4247:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4250:/ block");
+  /*block*/{
+   /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:4250:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4250:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1];
+    /*_.RESTUP__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.PAIR_TAIL__V18*/ curfptr[17] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:4251:/ compute");
+   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];;
+   MELT_LOCATION("warmelt-macro.melt:4252:/ block");
+   /*block*/{
+    /*_.CURCALLEXP__V21*/ curfptr[20] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+    /*_#IS_A__L3*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURCALLEXP__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+    /*_#NOT__L4*/ curfnum[3] = 
+     (!(/*_#IS_A__L3*/ curfnum[0]));;
+    MELT_LOCATION("warmelt-macro.melt:4253:/ cond");
+    /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:4253:/ cond.then");
+    MELT_LOCATION("warmelt-macro.melt:4253:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4254:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing called expression in MULTICALL"), (melt_ptr_t)0);}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*_.PAIR_TAIL__V22*/ curfptr[21] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+    MELT_LOCATION("warmelt-macro.melt:4255:/ compute");
+    /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
+    MELT_LOCATION("warmelt-macro.melt:4256:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4256:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4256:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-macro.melt:4256:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+      /*_.CURCALL__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCALLEXP__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_#IS_A__L5*/ curfnum[4] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURCALL__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[6])));;
+     MELT_LOCATION("warmelt-macro.melt:4259:/ cond");
+     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:4259:/ cond.then");
+     /*_#OR___L6*/ curfnum[5] = /*_#IS_A__L5*/ curfnum[4];;
+     } else {MELT_LOCATION("warmelt-macro.melt:4259:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:4259:/ block");
+      /*block*/{
+       /*_#IS_A__L7*/ curfnum[6] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CURCALL__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ curfrout->tabval[5])));;
+       /*_#OR___L6*/ curfnum[5] = /*_#IS_A__L7*/ curfnum[6];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
+       /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;}
+      ;
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4259:/ cond");
+     /*cond*/ if (/*_#OR___L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:4259:/ cond.then");
+     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-macro.melt:4259:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:4259:/ block");
+      /*block*/{
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-macro.melt:4263:/ cppif.then");
+       MELT_LOCATION("warmelt-macro.melt:4263:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+          callcount;;
+         MELT_LOCATION("warmelt-macro.melt:4263:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
+          argtab[0].bp_cstring =  "mexpand_multicall bad curcall";
+          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-macro.melt";
+          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
+          argtab[3].bp_long = 4263;
+          /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURCALL__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4263:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4263:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-macro.melt:4263:/ cppif.else");
+       /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       {
+       MELT_LOCATION("warmelt-macro.melt:4264:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "called expression in MULTICALL is invalid, expecting application or send"), (melt_ptr_t)0);}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4265:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+        MELT_LOCATION("warmelt-macro.melt:4265:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4262:/ block");
+       /*block*/{
+        /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[27];;}
+       ;
+       /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
+       /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
+       /*clear*/ /*_.RETURN___V29*/ curfptr[27] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
+       /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
+      ;
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4267:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:4267:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[27] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (1));
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4267:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[27])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[27])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[27])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
+      ;
+      /*_.LAMBDA___V31*/ curfptr[26] = /*_.LAMBDA___V32*/ curfptr[27];;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4266:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4266:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[26];
+      /*_.MULTIPLE_EVERY__V33*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RESTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4269:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:4270:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4270:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (2));
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4270:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4270:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+       ;
+       /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4269:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:4269:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[12]);
+       MELT_LOCATION("warmelt-macro.melt:4269:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34];
+       /*_.BODYTUP__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4272:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4272:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_MULTICALL*/ curfrout->tabval[15])), (5), "CLASS_SOURCE_MULTICALL");/*_.INST__V39*/ curfptr[38] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @SMULC_RESBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.RESTUP__V17*/ curfptr[16]), "SMULC_RESBIND");
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @SMULC_CALL", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.CURCALL__V25*/ curfptr[24]), "SMULC_CALL");
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @SMULC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (4), (/*_.BODYTUP__V37*/ curfptr[36]), "SMULC_BODY");
+       ;
+       /*_.MULCR__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4279:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.MULCR__V38*/ curfptr[37];;
+       MELT_LOCATION("warmelt-macro.melt:4279:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V40*/ curfptr[39];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
+      /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
+      /*clear*/ /*_.BODYTUP__V37*/ curfptr[36] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
+      /*clear*/ /*_.MULCR__V38*/ curfptr[37] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
+      /*clear*/ /*_.RETURN___V40*/ curfptr[39] = 0 ;}
+     ;
+     /*_.LET___V24*/ curfptr[23] = /*_.LET___V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_.CURCALL__V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_#OR___L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_.LAMBDA___V31*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_.MULTIPLE_EVERY__V33*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
+     /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;}
+    ;
+    /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
+    /*clear*/ /*_.CURCALLEXP__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
+    /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
+    /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
+    /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
+   ;
+   /*_.LET___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
+   /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
+   /*clear*/ /*_.RESTUP__V17*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
+   /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
+   /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V15*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
+  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
+  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4241:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:4241:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4241:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4241:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4241:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_MULTICALL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_87_warmelt_macro_MEXPAND_MULTICALL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4267:/ getarg");
+ /*_.LB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4267:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4267:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4267:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LB__V2*/ curfptr[1];
+  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4267:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4267:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4267:/ clear");
+ /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_88_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4270:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4270:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4270:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4270:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4270:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4270:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4270:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4270:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_89_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_90_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_macro_MEXPAND_QUOTE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 24
+  void* varptr[24];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<24; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 24;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_QUOTE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4286:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4286:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4286:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4286:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4287:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4287:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4287:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4287:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4287:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4287:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4287:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4287)?(4287):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4287:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4287:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4287:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4288:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4288:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4288:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4288:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4288:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4288:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4288:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4288)?(4288):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4288:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4288:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4288:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4289:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4289:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4290:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.QUOTED__V14*/ curfptr[13] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:4294:/ cond");
+  /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4294:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4294:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4295:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have only one argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_A__L3*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-macro.melt:4296:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4296:/ cond.then");
+  /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+  } else {MELT_LOCATION("warmelt-macro.melt:4296:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:4296:/ block");
+   /*block*/{
+    /*_#IS_STRING__L4*/ curfnum[3] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-macro.melt:4299:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-macro.melt:4299:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-macro.melt:4299:/ cond.else");
+    
+     MELT_LOCATION("warmelt-macro.melt:4299:/ block");
+     /*block*/{
+      /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13])) == OBMAG_INT);;
+      MELT_LOCATION("warmelt-macro.melt:4302:/ cond");
+      /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-macro.melt:4302:/ cond.then");
+      /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-macro.melt:4302:/ cond.else");
+      
+       MELT_LOCATION("warmelt-macro.melt:4302:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-macro.melt:4306:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have a symbol, string, or integer argument"), (melt_ptr_t)0);}
+        ;
+        MELT_LOCATION("warmelt-macro.melt:4305:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFELSE___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:4299:/ clear");
+      /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4299:/ clear");
+      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4296:/ clear");
+    /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4296:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   ;
+   }
+  ;
+  /*_#IS_A__L6*/ curfnum[4] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-macro.melt:4308:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4308:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4308:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4309:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.QUOTED__V14*/ curfptr[13];;
+     MELT_LOCATION("warmelt-macro.melt:4309:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IF___V19*/ curfptr[17] = /*_.RETURN___V20*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4308:/ clear");
+    /*clear*/ /*_.RETURN___V20*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4308:/ cond.else");
+  
+   /*_.IF___V19*/ curfptr[17] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4310:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4310:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4310:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_QUOTE*/ curfrout->tabval[4])), (3), "CLASS_SOURCE_QUOTE");/*_.INST__V23*/ curfptr[22] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4310:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4310:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SQUOTED", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.QUOTED__V14*/ curfptr[13]), "SQUOTED");
+    ;
+    /*_.SQU__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4313:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.SQU__V22*/ curfptr[21];;
+    MELT_LOCATION("warmelt-macro.melt:4313:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V21*/ curfptr[16] = /*_.RETURN___V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4310:/ clear");
+   /*clear*/ /*_.SQU__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4310:/ clear");
+   /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.QUOTED__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.IF___V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4286:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:4286:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4286:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4286:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4286:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_QUOTE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_90_warmelt_macro_MEXPAND_QUOTE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_91_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_macro_MEXPAND_COMMENT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_COMMENT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4319:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4319:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4319:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4319:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4320:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4320:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4320:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4320:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4320:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4320:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4320:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4320)?(4320):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4320:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4320:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4320:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4321:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4321:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4321:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4321:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4321:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4321:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4321:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4321)?(4321):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4321:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4321:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4321:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4322:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4322:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4323:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.COMSTR__V14*/ curfptr[13] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:4327:/ cond");
+  /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4327:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4327:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4328:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have only one string argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_STRING__L3*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.COMSTR__V14*/ curfptr[13])) == OBMAG_STRING);;
+  /*_#NOT__L4*/ curfnum[3] = 
+   (!(/*_#IS_STRING__L3*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:4329:/ cond");
+  /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4329:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4329:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4331:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have a string"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4332:/ compute");
+    /*_.COMSTR__V14*/ curfptr[13] = /*_.SETQ___V17*/ curfptr[16] = (/*nil*/NULL);;
+    MELT_LOCATION("warmelt-macro.melt:4330:/ block");
+    /*block*/{
+     /*_.PROGN___V18*/ curfptr[17] = /*_.SETQ___V17*/ curfptr[16];;}
+    ;
+    /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4329:/ clear");
+    /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4329:/ clear");
+    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4329:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4334:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4334:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4334:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[2])), (3), "CLASS_SOURCE_COMMENT");/*_.INST__V21*/ curfptr[20] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4334:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4334:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SCOMM_STR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.COMSTR__V14*/ curfptr[13]), "SCOMM_STR");
+    ;
+    /*_.SCOM__V20*/ curfptr[17] = /*_.INST__V21*/ curfptr[20];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4337:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.SCOM__V20*/ curfptr[17];;
+    MELT_LOCATION("warmelt-macro.melt:4337:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V19*/ curfptr[16] = /*_.RETURN___V22*/ curfptr[21];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4334:/ clear");
+   /*clear*/ /*_.SCOM__V20*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4334:/ clear");
+   /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V19*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.COMSTR__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4319:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:4319:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4319:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4319:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4319:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_COMMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_91_warmelt_macro_MEXPAND_COMMENT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PAIRLIST_TO_PROGN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
+ /*_.PAIR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4344:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4345:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4345:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4345:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4345:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4345:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4345:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4345:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4345)?(4345):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4345:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4345:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4345:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4346:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4346:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4346:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
+    argtab[0].bp_cstring =  "pairlist_to_progn pair";
+    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
+    argtab[3].bp_long = 4346;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4346:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4346:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4346:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4347:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4347:/ block");
+  /*block*/{
+   /*_#IS_PAIR__L3*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1])) == OBMAG_PAIR);;
+   MELT_LOCATION("warmelt-macro.melt:4347:/ cond");
+   /*cond*/ if (/*_#IS_PAIR__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4347:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4347:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4347:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4347:/ locexp");
+      melt_assert_failed(( "check_pair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4347)?(4347):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4347:/ clear");
+   /*clear*/ /*_#IS_PAIR__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4347:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4347:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4348:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4351:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4351:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4351:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4351:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4]);
+   ;
+   /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4348:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4348:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[3]);
+   MELT_LOCATION("warmelt-macro.melt:4348:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
+   /*_.BODYTUP__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4353:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4353:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PROGN*/ curfrout->tabval[6])), (3), "CLASS_SOURCE_PROGN");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4353:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V3*/ curfptr[2]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4353:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @SPROGN_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.BODYTUP__V15*/ curfptr[14]), "SPROGN_BODY");
+   ;
+   /*_.SPROGN__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4357:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4357:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4357:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
+     argtab[0].bp_cstring =  "pairlist_to_progn sprogn";
+     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
+     argtab[3].bp_long = 4357;
+     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SPROGN__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4357:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4357:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4357:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4358:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.SPROGN__V16*/ curfptr[15];;
+   MELT_LOCATION("warmelt-macro.melt:4358:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V20*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
+  /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
+  /*clear*/ /*_.BODYTUP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
+  /*clear*/ /*_.SPROGN__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
+  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4344:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-macro.melt:4344:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PAIRLIST_TO_PROGN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4351:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4351:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4351:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4351:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4351:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4351:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4351:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4351:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_93_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PAIRLIST_TO_RETURN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
+ /*_.PAIR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4362:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4363:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4363:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4363:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4363:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4363:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4363:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4363:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4363)?(4363):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4363:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4363:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4363:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4364:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4367:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4367:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (2));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4367:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4367:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4]);
+   ;
+   /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4364:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4364:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   MELT_LOCATION("warmelt-macro.melt:4364:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8];
+   /*_.BODYTUP__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4368:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4368:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_RETURN*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_RETURN");/*_.INST__V13*/ curfptr[12] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4368:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.LOC__V3*/ curfptr[2]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4368:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.BODYTUP__V11*/ curfptr[10]), "SARGOP_ARGS");
+   ;
+   /*_.INST___V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.INST___V12*/ curfptr[11];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4364:/ clear");
+  /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4364:/ clear");
+  /*clear*/ /*_.BODYTUP__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4364:/ clear");
+  /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4362:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-macro.melt:4362:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4362:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4362:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PAIRLIST_TO_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4367:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4367:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4367:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4367:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4367:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4367:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4367:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4367:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_95_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_96_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_macro_MEXPAND_PROGN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_PROGN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4375:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4375:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4375:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4375:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4376:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4376:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4376:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4376:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4376:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4376:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4376:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4376)?(4376):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4376:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4376:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4376:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4377:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4377:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4379:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V9*/ curfptr[8] = slot; };
+  ;
+  /*_.LIST_FIRST__V10*/ curfptr[9] = 
+   (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V9*/ curfptr[8])));;
+  /*_.PAIRS__V11*/ curfptr[10] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));;
+  /*_#IS_PAIR__L2*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.PAIRS__V11*/ curfptr[10])) == OBMAG_PAIR);;
+  /*_#NOT__L3*/ curfnum[2] = 
+   (!(/*_#IS_PAIR__L2*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:4381:/ cond");
+  /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4381:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4381:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4383:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V8*/ curfptr[7]), ( "empty PROGN"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4384:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-macro.melt:4384:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4382:/ block");
+    /*block*/{
+     /*_.PROGN___V14*/ curfptr[13] = /*_.RETURN___V13*/ curfptr[12];;}
+    ;
+    /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4381:/ clear");
+    /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4381:/ clear");
+    /*clear*/ /*_.PROGN___V14*/ curfptr[13] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4381:/ cond.else");
+  
+   /*_.IF___V12*/ curfptr[11] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4385:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4386:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4386:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V8*/ curfptr[7];
+    MELT_LOCATION("warmelt-macro.melt:4386:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-macro.melt:4386:/ apply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+    /*_.PROGR__V16*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIRS__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4390:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.PROGR__V16*/ curfptr[13];;
+    MELT_LOCATION("warmelt-macro.melt:4390:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V15*/ curfptr[12] = /*_.RETURN___V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4385:/ clear");
+   /*clear*/ /*_.PROGR__V16*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4385:/ clear");
+   /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;}
+  ;
+  /*_.LET___V7*/ curfptr[5] = /*_.LET___V15*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_.SLOC__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_.PAIRS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_#IS_PAIR__L2*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
+  /*clear*/ /*_.LET___V15*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4375:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-macro.melt:4375:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4375:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4375:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_PROGN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_96_warmelt_macro_MEXPAND_PROGN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_97_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_macro_MEXPAND_RETURN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_RETURN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4396:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4396:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4396:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4396:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4397:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4397:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4397:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4397:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4397:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4397:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4397:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4397)?(4397):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4397:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4397:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4397:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4398:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4399:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ curfptr[7] = slot; };
+  ;
+  /*_.LIST_FIRST__V9*/ curfptr[8] = 
+   (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V8*/ curfptr[7])));;
+  /*_.PAIR_TAIL__V10*/ curfptr[9] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V9*/ curfptr[8])));;
+  MELT_LOCATION("warmelt-macro.melt:4400:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4399:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4399:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V11*/ curfptr[10];
+   MELT_LOCATION("warmelt-macro.melt:4399:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4399:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.RETR__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_RETURN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR_TAIL__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4404:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETR__V12*/ curfptr[11];;
+   MELT_LOCATION("warmelt-macro.melt:4404:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V7*/ curfptr[5] = /*_.RETURN___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
+  /*clear*/ /*_.RETR__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
+  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4396:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-macro.melt:4396:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4396:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4396:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_97_warmelt_macro_MEXPAND_RETURN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_98_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_macro_MEXPAND_FOREVER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 30
+  void* varptr[30];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<30; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 30;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_FOREVER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4411:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4411:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4411:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4411:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4412:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4412:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4412:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4412:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4412:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4412:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4412:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4412)?(4412):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4412:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4412:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4412:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4413:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4413:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4414:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ curfptr[8] = slot; };
+  ;
+  /*_.LIST_FIRST__V10*/ curfptr[9] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V8*/ curfptr[7])));;
+  /*_.CURPAIR__V11*/ curfptr[10] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));;
+  /*_.SLABNAM__V12*/ curfptr[11] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
+  MELT_LOCATION("warmelt-macro.melt:4417:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4417:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4417:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XLABNAM__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SLABNAM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4418:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_NOT_A__L2*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-macro.melt:4420:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4420:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4420:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4422:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "missing label in FOREVER"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4423:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:4423:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4421:/ block");
+    /*block*/{
+     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4420:/ clear");
+    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4420:/ clear");
+    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4420:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
+  MELT_LOCATION("warmelt-macro.melt:4424:/ compute");
+  /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
+  MELT_LOCATION("warmelt-macro.melt:4425:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4425:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4425:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[4])), (4), "CLASS_LABEL_BINDING");/*_.INST__V22*/ curfptr[21] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4425:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.XLABNAM__V13*/ curfptr[12]), "BINDER");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4425:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LABIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.LOC__V9*/ curfptr[8]), "LABIND_LOC");
+    ;
+    /*_.LABIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4428:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4428:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LABIND__V21*/ curfptr[20];
+    /*_.PUT_ENV__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4429:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4432:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4432:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4432:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4432:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+     ;
+     /*_.LAMBDA___V25*/ curfptr[24] = /*_.LAMBDA___V26*/ curfptr[25];;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4429:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4429:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
+     MELT_LOCATION("warmelt-macro.melt:4429:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[24];
+     /*_.BODYTUP__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4434:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4434:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FOREVER*/ curfrout->tabval[10])), (4), "CLASS_SOURCE_FOREVER");/*_.INST__V29*/ curfptr[28] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4434:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.LOC__V9*/ curfptr[8]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4434:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SLABEL_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.LABIND__V21*/ curfptr[20]), "SLABEL_BIND");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4434:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SFRV_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.BODYTUP__V27*/ curfptr[26]), "SFRV_BODY");
+     ;
+     /*_.FORR__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4439:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.FORR__V28*/ curfptr[27];;
+     MELT_LOCATION("warmelt-macro.melt:4439:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V24*/ curfptr[23] = /*_.RETURN___V30*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
+    /*clear*/ /*_.LAMBDA___V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
+    /*clear*/ /*_.BODYTUP__V27*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
+    /*clear*/ /*_.FORR__V28*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
+    /*clear*/ /*_.RETURN___V30*/ curfptr[29] = 0 ;}
+   ;
+   /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4425:/ clear");
+   /*clear*/ /*_.LABIND__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4425:/ clear");
+   /*clear*/ /*_.PUT_ENV__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4425:/ clear");
+   /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V7*/ curfptr[5] = /*_.LET___V20*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4411:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-macro.melt:4411:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4411:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4411:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_FOREVER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_98_warmelt_macro_MEXPAND_FOREVER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4432:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4432:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4432:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4432:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4432:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4432:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4432:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4432:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_99_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_100_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_macro_MEXPAND_EXIT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 32
+  void* varptr[32];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<32; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 32;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_EXIT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4445:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4445:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4445:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4445:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4446:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4446:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4446:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4446:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4446:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4446:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4446:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4446)?(4446):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4446:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4446:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4446:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4447:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4447:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4448:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ curfptr[8] = slot; };
+  ;
+  /*_.LIST_FIRST__V10*/ curfptr[9] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V8*/ curfptr[7])));;
+  /*_.CURPAIR__V11*/ curfptr[10] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));;
+  /*_.SLABNAM__V12*/ curfptr[11] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
+  MELT_LOCATION("warmelt-macro.melt:4451:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4451:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4451:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XLABNAM__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SLABNAM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4452:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_NOT_A__L2*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-macro.melt:4454:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4454:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4454:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4456:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "missing label in EXIT"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4457:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:4457:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4455:/ block");
+    /*block*/{
+     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
+    ;
+    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4454:/ clear");
+    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4454:/ clear");
+    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4454:/ cond.else");
+  
+   /*_.IF___V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
+  MELT_LOCATION("warmelt-macro.melt:4458:/ compute");
+  /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
+  MELT_LOCATION("warmelt-macro.melt:4459:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4459:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4459:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XLABNAM__V13*/ curfptr[12];
+    /*_.LABIND__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#IS_NOT_A__L3*/ curfnum[2] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.LABIND__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));;
+   MELT_LOCATION("warmelt-macro.melt:4460:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4460:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4460:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4463:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:4462:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "bad label in EXIT"), (melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22]));}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4464:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+      MELT_LOCATION("warmelt-macro.melt:4464:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4461:/ block");
+     /*block*/{
+      /*_.PROGN___V25*/ curfptr[24] = /*_.RETURN___V24*/ curfptr[23];;}
+     ;
+     /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V25*/ curfptr[24];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4460:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4460:/ clear");
+     /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4460:/ clear");
+     /*clear*/ /*_.PROGN___V25*/ curfptr[24] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:4460:/ cond.else");
+   
+    /*_.IF___V22*/ curfptr[21] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4465:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4468:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4468:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[24] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4468:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4468:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+     ;
+     /*_.LAMBDA___V27*/ curfptr[23] = /*_.LAMBDA___V28*/ curfptr[24];;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4465:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4465:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
+     MELT_LOCATION("warmelt-macro.melt:4465:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[23];
+     /*_.BODYTUP__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4470:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4470:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXIT*/ curfrout->tabval[10])), (4), "CLASS_SOURCE_EXIT");/*_.INST__V31*/ curfptr[30] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4470:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.LOC__V9*/ curfptr[8]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4470:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SLABEL_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.LABIND__V21*/ curfptr[20]), "SLABEL_BIND");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4470:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SEXI_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.BODYTUP__V29*/ curfptr[28]), "SEXI_BODY");
+     ;
+     /*_.EXR__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4475:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.EXR__V30*/ curfptr[29];;
+     MELT_LOCATION("warmelt-macro.melt:4475:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V26*/ curfptr[22] = /*_.RETURN___V32*/ curfptr[31];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
+    /*clear*/ /*_.LAMBDA___V27*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
+    /*clear*/ /*_.BODYTUP__V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
+    /*clear*/ /*_.EXR__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
+    /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ;}
+   ;
+   /*_.LET___V20*/ curfptr[19] = /*_.LET___V26*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
+   /*clear*/ /*_.LABIND__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
+   /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
+   /*clear*/ /*_.LET___V26*/ curfptr[22] = 0 ;}
+  ;
+  /*_.LET___V7*/ curfptr[5] = /*_.LET___V20*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4445:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-macro.melt:4445:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4445:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4445:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_EXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_100_warmelt_macro_MEXPAND_EXIT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4468:/ getarg");
+ /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4468:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4468:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[2];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-macro.melt:4468:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-macro.melt:4468:/ apply.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4468:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4468:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4468:/ clear");
+ /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_101_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_COMPILE_WARNING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4483:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4483:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4483:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4483:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4484:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4484:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4484:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4484:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4484:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4484:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4484:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4484)?(4484):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4484:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4484:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4484:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4485:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4485:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4485:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_compile_warning sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
+    argtab[3].bp_long = 4485;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4485:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4485:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4485:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4486:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4486:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4487:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.LIST_FIRST__V12*/ curfptr[11] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
+  /*_.CURPAIR__V13*/ curfptr[12] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
+  /*_.SMSG__V14*/ curfptr[13] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:4490:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4490:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4490:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XMSG__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SMSG__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_STRING__L3*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V15*/ curfptr[14])) == OBMAG_STRING);;
+  /*_#NOT__L4*/ curfnum[3] = 
+   (!(/*_#IS_STRING__L3*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:4492:/ cond");
+  /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4492:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4492:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4494:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing message string in (COMPILE_WARNING <msg> <exp>)"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4495:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-macro.melt:4495:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4493:/ block");
+    /*block*/{
+     /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;}
+    ;
+    /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4492:/ clear");
+    /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4492:/ clear");
+    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4492:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  /*_.PAIR_TAIL__V19*/ curfptr[16] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+  MELT_LOCATION("warmelt-macro.melt:4496:/ compute");
+  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[17] = /*_.PAIR_TAIL__V19*/ curfptr[16];;
+  MELT_LOCATION("warmelt-macro.melt:4497:/ block");
+  /*block*/{
+   /*_.SEXP__V22*/ curfptr[21] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:4498:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4498:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-macro.melt:4498:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+    /*_.XEXP__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXP__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.PAIR_TAIL__V24*/ curfptr[23] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
+   MELT_LOCATION("warmelt-macro.melt:4500:/ compute");
+   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];;
+   /*_#NOTNULL__L5*/ curfnum[4] = 
+    ((/*_.CURPAIR__V13*/ curfptr[12]) != NULL);;
+   MELT_LOCATION("warmelt-macro.melt:4501:/ cond");
+   /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4501:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4501:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:4502:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "too many arguments in (COMPILE_WARNING <msg> [<exp>])"), (melt_ptr_t)0);}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4503:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4503:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4503:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_COMPILEWARNING*/ curfrout->tabval[3])), (4), "CLASS_SOURCE_COMPILEWARNING");/*_.INST__V28*/ curfptr[27] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4503:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4503:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SCWARN_MSG", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.XMSG__V15*/ curfptr[14]), "SCWARN_MSG");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4503:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SCWARN_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.XEXP__V23*/ curfptr[22]), "SCWARN_EXPR");
+     ;
+     /*_.RES__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:4509:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:4509:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:4509:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
+       argtab[0].bp_cstring =  "mexpand_compile_warning result";
+       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
+       argtab[3].bp_long = 4509;
+       /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RES__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:4509:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4509:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:4509:/ cppif.else");
+    /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:4510:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V27*/ curfptr[26];;
+     MELT_LOCATION("warmelt-macro.melt:4510:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V26*/ curfptr[25] = /*_.RETURN___V31*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4503:/ clear");
+    /*clear*/ /*_.RES__V27*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4503:/ clear");
+    /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4503:/ clear");
+    /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
+   ;
+   /*_.LET___V21*/ curfptr[20] = /*_.LET___V26*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
+   /*clear*/ /*_.SEXP__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
+   /*clear*/ /*_.XEXP__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
+   /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
+   /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
+   /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.SMSG__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.XMSG__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.SETQ___V20*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4483:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-macro.melt:4483:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4483:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4483:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4483:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_COMPILE_WARNING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 66
+  void* varptr[66];
+#define CURFRAM_NBVARNUM 21
+  long varnum[21];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<66; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 66;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_ASSERT_MSG", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4522:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4522:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4522:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4522:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4523:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4523:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4523:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4523:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4523:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4523:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4523:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4523)?(4523):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4523:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4523:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4523:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4524:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4524:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4524:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4524:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4524:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4524:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4524)?(4524):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4524:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4524:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4525:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4525:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4525:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_assert_msg sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
+    argtab[3].bp_long = 4525;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4525:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4525:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4525:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4526:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4527:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4528:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4530:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4530:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4530:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XMSG__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.XTEST__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = (/*!konst_4_ASSERT_FAILED*/ curfrout->tabval[4]);;
+  MELT_LOCATION("warmelt-macro.melt:4533:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4533:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ASSFAIL_SYMB__V19*/ curfptr[18];
+   /*_.ASSFAIL_BINDING__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_STRING__L4*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V17*/ curfptr[16])) == OBMAG_STRING);;
+  /*_#NOT__L5*/ curfnum[4] = 
+   (!(/*_#IS_STRING__L4*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:4535:/ cond");
+  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4535:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4535:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4536:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "non string message in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V21*/ curfptr[20] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4537:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V22*/ curfptr[21] = /*_.PAIR_TAIL__V21*/ curfptr[20];;
+  /*_#IS_PAIR__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  /*_#NOT__L7*/ curfnum[6] = 
+   (!(/*_#IS_PAIR__L6*/ curfnum[5]));;
+  MELT_LOCATION("warmelt-macro.melt:4538:/ cond");
+  /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4538:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4538:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4539:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing test in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_HEAD__V23*/ curfptr[22] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4540:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4540:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4540:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4540:/ compute");
+  /*_.XTEST__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.MACROEXPAND_1__V24*/ curfptr[23];;
+  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4541:/ cond");
+  /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4541:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4541:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4542:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra arg for (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4543:/ block");
+  /*block*/{
+   /*_#NULL__L8*/ curfnum[7] = 
+    ((/*_.ASSFAIL_BINDING__V20*/ curfptr[19]) == NULL);;
+   MELT_LOCATION("warmelt-macro.melt:4546:/ cond");
+   /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4546:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4546:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:4547:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "unbound ASSERT_FAILED in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:4548:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:4548:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:4548:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_assert_msg env without assert_failed";
+        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
+        argtab[3].bp_long = 4548;
+        /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4548:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4548:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:4548:/ cppif.else");
+     /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:4549:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:4549:/ block");
+      /*block*/{
+       /*_.DISCRIM__V32*/ curfptr[31] = 
+        (melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])));;
+       /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:4549:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_assert_msg env\'s class without assert_failed";
+        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
+        argtab[3].bp_long = 4549;
+        /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISCRIM__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4549:/ clear");
+       /*clear*/ /*_.DISCRIM__V32*/ curfptr[31] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4549:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4549:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:4549:/ cppif.else");
+     /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:4550:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:4550:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4550:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[1];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ASSFAIL_SYMB__V19*/ curfptr[18];
+        /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV_DEBUG*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:4550:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_assert_msg findenvdbg give";
+        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
+        argtab[3].bp_long = 4550;
+        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.FIND_ENV_DEBUG__V35*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4550:/ clear");
+       /*clear*/ /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4550:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4550:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:4550:/ cppif.else");
+     /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:4551:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:4551:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-macro.melt:4551:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
+        argtab[0].bp_cstring =  "mexpand_assert_msg ASSERT_FAILED symbol";
+        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
+        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-macro.melt";
+        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
+        argtab[3].bp_long = 4551;
+        /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ASSFAIL_SYMB__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V37*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4551:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4551:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:4551:/ cppif.else");
+     /*_.IFCPP___V37*/ curfptr[32] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-macro.melt:4552:/ cppif.then");
+     MELT_LOCATION("warmelt-macro.melt:4552:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4552:/ cond");
+       /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:4552:/ cond.then");
+       /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-macro.melt:4552:/ cond.else");
+       
+        MELT_LOCATION("warmelt-macro.melt:4552:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-macro.melt:4552:/ locexp");
+          melt_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4552)?(4552):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[39];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4552:/ clear");
+       /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-macro.melt:4552:/ cppif.else");
+     /*_.IFCPP___V39*/ curfptr[35] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-macro.melt:4553:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+      MELT_LOCATION("warmelt-macro.melt:4553:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ block");
+     /*block*/{
+      /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[39];;}
+     ;
+     /*_.AFPRIM__V28*/ curfptr[27] = /*_.PROGN___V42*/ curfptr[41];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.IFCPP___V37*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.IFCPP___V39*/ curfptr[35] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:4546:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4546:/ block");
+    /*block*/{
+     /*_#IS_A__L13*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[7])));;
+     MELT_LOCATION("warmelt-macro.melt:4554:/ cond");
+     /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:4554:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:4554:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-macro.melt:4555:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_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*/
+       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
+       /*clear*/ /*_.PBIND_PRIMITIVE__V44*/ curfptr[29] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:4554:/ cond.else");
+     
+      MELT_LOCATION("warmelt-macro.melt:4554:/ block");
+      /*block*/{
+       /*_#IS_A__L14*/ curfnum[13] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));;
+       MELT_LOCATION("warmelt-macro.melt:4556:/ cond");
+       /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:4556:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:4556:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:4557:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V45*/ curfptr[31] = slot; };
+         ;
+         /*_#IS_A__L16*/ curfnum[15] = 
+          melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V45*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[9])));;
+         /*_#IF___L15*/ curfnum[14] = /*_#IS_A__L16*/ curfnum[15];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
+         /*clear*/ /*_.VBIND_VALUE__V45*/ curfptr[31] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
+         /*clear*/ /*_#IS_A__L16*/ curfnum[15] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-macro.melt:4556:/ cond.else");
+       
+        /*_#IF___L15*/ curfnum[14] = 0;;
+        }
+       ;
+       MELT_LOCATION("warmelt-macro.melt:4556:/ cond");
+       /*cond*/ if (/*_#IF___L15*/ curfnum[14]) /*then*/ {
+       MELT_LOCATION("warmelt-macro.melt:4556:/ cond.then");
+       MELT_LOCATION("warmelt-macro.melt:4556:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-macro.melt:4559:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_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*/
+         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
+         /*clear*/ /*_.VBIND_VALUE__V47*/ curfptr[35] = 0 ;}
+        ;
+       } else {MELT_LOCATION("warmelt-macro.melt:4556:/ cond.else");
+       
+        MELT_LOCATION("warmelt-macro.melt:4556:/ block");
+        /*block*/{
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-macro.melt:4561:/ cppif.then");
+         MELT_LOCATION("warmelt-macro.melt:4561:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 
+            callcount;;
+           MELT_LOCATION("warmelt-macro.melt:4561:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
+            argtab[0].bp_cstring =  "bad assfail_binding";
+            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[15];
+            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-macro.melt";
+            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
+            argtab[3].bp_long = 4561;
+            /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V48*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[41];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-macro.melt:4561:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 0 ;
+           MELT_LOCATION("warmelt-macro.melt:4561:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-macro.melt:4561:/ cppif.else");
+         /*_.IFCPP___V48*/ curfptr[39] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         {
+         MELT_LOCATION("warmelt-macro.melt:4562:/ locexp");
+         melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "ASSERT_FAILED not bound to a primitive in  (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4563:/ block");
+         /*block*/{
+          /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+          MELT_LOCATION("warmelt-macro.melt:4563:/ finalreturn");
+          ;
+          /*finalret*/ goto labend_rout ;}
+         ;
+         MELT_LOCATION("warmelt-macro.melt:4560:/ block");
+         /*block*/{
+          /*_.PROGN___V51*/ curfptr[31] = /*_.RETURN___V50*/ curfptr[29];;}
+         ;
+         /*_.IFELSE___V46*/ curfptr[32] = /*_.PROGN___V51*/ curfptr[31];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
+         /*clear*/ /*_.IFCPP___V48*/ curfptr[39] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
+         /*clear*/ /*_.RETURN___V50*/ curfptr[29] = 0 ;
+         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
+         /*clear*/ /*_.PROGN___V51*/ curfptr[31] = 0 ;}
+        ;
+        }
+       ;
+       /*_.IFELSE___V43*/ curfptr[28] = /*_.IFELSE___V46*/ curfptr[32];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
+       /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
+       /*clear*/ /*_#IF___L15*/ curfnum[14] = 0 ;
+       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
+       /*clear*/ /*_.IFELSE___V46*/ curfptr[32] = 0 ;}
+      ;
+      }
+     ;
+     /*_.AFPRIM__V28*/ curfptr[27] = /*_.IFELSE___V43*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
+     /*clear*/ /*_.IFELSE___V43*/ curfptr[28] = 0 ;}
+    ;
+    }
+   ;
+   /*_#IS_MIXINT__L18*/ curfnum[15] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);;
+   MELT_LOCATION("warmelt-macro.melt:4566:/ cond");
+   /*cond*/ if (/*_#IS_MIXINT__L18*/ curfnum[15]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4566:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4566:/ block");
+    /*block*/{
+     /*_.MIXINT_VAL__V53*/ curfptr[41] = 
+      (melt_val_mixint((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
+     /*_.FILNAM__V52*/ curfptr[35] = /*_.MIXINT_VAL__V53*/ curfptr[41];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4566:/ clear");
+     /*clear*/ /*_.MIXINT_VAL__V53*/ curfptr[41] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:4566:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4566:/ block");
+    /*block*/{
+     /*_#IS_MIXLOC__L19*/ curfnum[13] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);;
+     MELT_LOCATION("warmelt-macro.melt:4567:/ cond");
+     /*cond*/ if (/*_#IS_MIXLOC__L19*/ curfnum[13]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:4567:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:4567:/ block");
+      /*block*/{
+       /*_.MIXLOC_VAL__V55*/ curfptr[29] = 
+        (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
+       /*_.IFELSE___V54*/ curfptr[39] = /*_.MIXLOC_VAL__V55*/ curfptr[29];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4567:/ clear");
+       /*clear*/ /*_.MIXLOC_VAL__V55*/ curfptr[29] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:4567:/ cond.else");
+     
+      /*_.IFELSE___V54*/ curfptr[39] = NULL;;
+      }
+     ;
+     /*_.FILNAM__V52*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[39];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4566:/ clear");
+     /*clear*/ /*_#IS_MIXLOC__L19*/ curfnum[13] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4566:/ clear");
+     /*clear*/ /*_.IFELSE___V54*/ curfptr[39] = 0 ;}
+    ;
+    }
+   ;
+   /*_#GET_INT__L20*/ curfnum[14] = 
+    (melt_get_int((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
+   /*_.MAKE_INTEGERBOX__V56*/ curfptr[31] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[12])), (/*_#GET_INT__L20*/ curfnum[14])));;
+   /*_.MAKE_TUPLE3__V57*/ curfptr[32] = 
+    (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.XMSG__V17*/ curfptr[16]),  (melt_ptr_t)(/*_.FILNAM__V52*/ curfptr[35]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V56*/ curfptr[31])));;
+   MELT_LOCATION("warmelt-macro.melt:4568:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4568:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ curfrout->tabval[10])), (4), "CLASS_SOURCE_PRIMITIVE");/*_.INST__V59*/ curfptr[41] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4568:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[41]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4568:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SPRIM_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[41]), (3), (/*_.AFPRIM__V28*/ curfptr[27]), "SPRIM_OPER");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4568:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[41]), (2), (/*_.MAKE_TUPLE3__V57*/ curfptr[32]), "SARGOP_ARGS");
+    ;
+    /*_.APRIM__V58*/ curfptr[28] = /*_.INST__V59*/ curfptr[41];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4576:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4576:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[13])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V61*/ curfptr[39] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (2), (/*_.XTEST__V18*/ curfptr[17]), "SIF_TEST");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (3), ((/*nil*/NULL)), "SIF_THEN");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (4), (/*_.APRIM__V58*/ curfptr[28]), "SIF_ELSE");
+    ;
+    /*_.ATEST__V60*/ curfptr[29] = /*_.INST__V61*/ curfptr[39];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4582:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4582:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ curfrout->tabval[14])), (5), "CLASS_SOURCE_CPPIF");/*_.INST__V63*/ curfptr[62] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), ((/*!konst_15_ENABLE_CHECKING*/ curfrout->tabval[15])), "SIFP_COND");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), (/*_.ATEST__V60*/ curfptr[29]), "SIFP_THEN");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (4), ((/*nil*/NULL)), "SIFP_ELSE");
+    ;
+    /*_.ACPPIF__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4589:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4589:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L21*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4589:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_assert_msg result acppif";
+      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[8];
+      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
+      argtab[3].bp_long = 4589;
+      /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ACPPIF__V62*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V64*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4589:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4589:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4589:/ cppif.else");
+   /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4590:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.ACPPIF__V62*/ curfptr[61];;
+    MELT_LOCATION("warmelt-macro.melt:4590:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V27*/ curfptr[26] = /*_.RETURN___V66*/ curfptr[64];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.AFPRIM__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_#IS_MIXINT__L18*/ curfnum[15] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.FILNAM__V52*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_#GET_INT__L20*/ curfnum[14] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[31] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.APRIM__V58*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.ATEST__V60*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.ACPPIF__V62*/ curfptr[61] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
+   /*clear*/ /*_.RETURN___V66*/ curfptr[64] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V27*/ curfptr[26];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.XMSG__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.XTEST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.ASSFAIL_BINDING__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.SETQ___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
+  /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4522:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4522:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_ASSERT_MSG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 54
+  void* varptr[54];
+#define CURFRAM_NBVARNUM 13
+  long varnum[13];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<54; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 54;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_DEBUG_MSG", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4602:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4602:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4602:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4602:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4603:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4603:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4603:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4603:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4603:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4603:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4603:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4603)?(4603):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4603:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4603:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4603:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4604:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4604:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4604:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4604:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4604:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4604:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4604:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4604)?(4604):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4604:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4604:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4604:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4605:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4605:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4605:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_debug_msg sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
+    argtab[3].bp_long = 4605;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4605:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4605:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4605:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4606:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4607:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4608:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4610:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4610:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4610:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.XVAL__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.XMSG__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_.XCOUNT__V19*/ curfptr[18] = (/*nil*/NULL);;
+  /*_.PAIR_TAIL__V20*/ curfptr[19] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4614:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.PAIR_TAIL__V20*/ curfptr[19];;
+  /*_#IS_PAIR__L4*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  /*_#NOT__L5*/ curfnum[4] = 
+   (!(/*_#IS_PAIR__L4*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-macro.melt:4615:/ cond");
+  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4615:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4615:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4616:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing message in DEBUG_MSG"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_HEAD__V22*/ curfptr[21] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4617:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4617:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4617:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4617:/ compute");
+  /*_.XMSG__V18*/ curfptr[17] = /*_.SETQ___V24*/ curfptr[23] = /*_.MACROEXPAND_1__V23*/ curfptr[22];;
+  /*_.PAIR_TAIL__V25*/ curfptr[24] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4618:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];;
+  /*_#IS_PAIR__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
+  MELT_LOCATION("warmelt-macro.melt:4619:/ cond");
+  /*cond*/ if (/*_#IS_PAIR__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4619:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4619:/ block");
+   /*block*/{
+    /*_.PAIR_HEAD__V28*/ curfptr[27] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:4621:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4621:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-macro.melt:4621:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+     /*_.MACROEXPAND_1__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4621:/ compute");
+    /*_.XCOUNT__V19*/ curfptr[18] = /*_.SETQ___V30*/ curfptr[29] = /*_.MACROEXPAND_1__V29*/ curfptr[28];;
+    /*_.PAIR_TAIL__V31*/ curfptr[30] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:4622:/ compute");
+    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[30];;
+    MELT_LOCATION("warmelt-macro.melt:4620:/ block");
+    /*block*/{
+     /*_.PROGN___V33*/ curfptr[32] = /*_.SETQ___V32*/ curfptr[31];;}
+    ;
+    /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V33*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
+    /*clear*/ /*_.PAIR_HEAD__V28*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
+    /*clear*/ /*_.MACROEXPAND_1__V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
+    /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
+    /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
+    /*clear*/ /*_.PROGN___V33*/ curfptr[32] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4619:/ cond.else");
+  
+   /*_.IF___V27*/ curfptr[26] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4623:/ cond");
+  /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4623:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4623:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4624:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too many arguments to DEBUG_MSG"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_STRING__L7*/ curfnum[6] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V18*/ curfptr[17])) == OBMAG_STRING);;
+  /*_#NOT__L8*/ curfnum[7] = 
+   (!(/*_#IS_STRING__L7*/ curfnum[6]));;
+  MELT_LOCATION("warmelt-macro.melt:4625:/ cond");
+  /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4625:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4625:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4626:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "message argument should be string in DEBUG_MSG"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#NULL__L9*/ curfnum[8] = 
+   ((/*_.XCOUNT__V19*/ curfptr[18]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4627:/ cond");
+  /*cond*/ if (/*_#NULL__L9*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4627:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4627:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4628:/ block");
+    /*block*/{
+     /*_.CONLIS__V36*/ curfptr[29] = 
+      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:4629:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.CONLIS__V36*/ curfptr[29]), (melt_ptr_t)((/*!konst_5_THE_CALLCOUNT*/ curfrout->tabval[5])));}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4630:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-macro.melt:4630:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])), (3), "CLASS_SEXPR");/*_.INST__V38*/ curfptr[31] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4630:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @SEXP_CONTENTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[31])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V38*/ curfptr[31]), (2), (/*_.CONLIS__V36*/ curfptr[29]), "SEXP_CONTENTS");
+      ;
+      MELT_LOCATION("warmelt-macro.melt:4630:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[31])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V38*/ curfptr[31]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+      ;
+      /*_.INST___V37*/ curfptr[30] = /*_.INST__V38*/ curfptr[31];;}
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4630:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4630:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-macro.melt:4630:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+      /*_.MACROEXPAND_1__V39*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INST___V37*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4630:/ compute");
+     /*_.XCOUNT__V19*/ curfptr[18] = /*_.SETQ___V40*/ curfptr[39] = /*_.MACROEXPAND_1__V39*/ curfptr[32];;
+     /*_.LET___V35*/ curfptr[28] = /*_.SETQ___V40*/ curfptr[39];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
+     /*clear*/ /*_.CONLIS__V36*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
+     /*clear*/ /*_.INST___V37*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
+     /*clear*/ /*_.MACROEXPAND_1__V39*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
+     /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;}
+    ;
+    /*_.IF___V34*/ curfptr[27] = /*_.LET___V35*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4627:/ clear");
+    /*clear*/ /*_.LET___V35*/ curfptr[28] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4627:/ cond.else");
+  
+   /*_.IF___V34*/ curfptr[27] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4634:/ block");
+  /*block*/{
+   /*_#IS_MIXINT__L10*/ curfnum[9] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);;
+   MELT_LOCATION("warmelt-macro.melt:4636:/ cond");
+   /*cond*/ if (/*_#IS_MIXINT__L10*/ curfnum[9]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4636:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4636:/ block");
+    /*block*/{
+     /*_.MIXINT_VAL__V43*/ curfptr[32] = 
+      (melt_val_mixint((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
+     /*_.DFILNAM__V42*/ curfptr[30] = /*_.MIXINT_VAL__V43*/ curfptr[32];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4636:/ clear");
+     /*clear*/ /*_.MIXINT_VAL__V43*/ curfptr[32] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:4636:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4636:/ block");
+    /*block*/{
+     /*_#IS_MIXLOC__L11*/ curfnum[10] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);;
+     MELT_LOCATION("warmelt-macro.melt:4637:/ cond");
+     /*cond*/ if (/*_#IS_MIXLOC__L11*/ curfnum[10]) /*then*/ {
+     MELT_LOCATION("warmelt-macro.melt:4637:/ cond.then");
+     MELT_LOCATION("warmelt-macro.melt:4637:/ block");
+      /*block*/{
+       /*_.MIXLOC_VAL__V45*/ curfptr[28] = 
+        (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
+       /*_.IFELSE___V44*/ curfptr[39] = /*_.MIXLOC_VAL__V45*/ curfptr[28];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-macro.melt:4637:/ clear");
+       /*clear*/ /*_.MIXLOC_VAL__V45*/ curfptr[28] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-macro.melt:4637:/ cond.else");
+     
+      /*_.IFELSE___V44*/ curfptr[39] = NULL;;
+      }
+     ;
+     /*_.DFILNAM__V42*/ curfptr[30] = /*_.IFELSE___V44*/ curfptr[39];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4636:/ clear");
+     /*clear*/ /*_#IS_MIXLOC__L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4636:/ clear");
+     /*clear*/ /*_.IFELSE___V44*/ curfptr[39] = 0 ;}
+    ;
+    }
+   ;
+   /*_#GET_INT__L12*/ curfnum[10] = 
+    (melt_get_int((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
+   /*_.MAKE_INTEGERBOX__V46*/ curfptr[32] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[9])), (/*_#GET_INT__L12*/ curfnum[10])));;
+   /*_.MAKE_TUPLE5__V47*/ curfptr[28] = 
+    (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.XVAL__V17*/ curfptr[16]),  
+		      (melt_ptr_t)(/*_.XMSG__V18*/ curfptr[17]),  (melt_ptr_t)(/*_.XCOUNT__V19*/ curfptr[18]),  (melt_ptr_t)(/*_.DFILNAM__V42*/ curfptr[30]),
+		      (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V46*/ curfptr[32])));;
+   MELT_LOCATION("warmelt-macro.melt:4638:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4638:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[6])), (4), "CLASS_SOURCE_APPLY");/*_.INST__V49*/ curfptr[48] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4638:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4638:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (3), ((/*!konst_7_DEBUG_MSG_FUN*/ curfrout->tabval[7])), "SAPP_FUN");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4638:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (2), (/*_.MAKE_TUPLE5__V47*/ curfptr[28]), "SARGOP_ARGS");
+    ;
+    /*_.DCALL__V48*/ curfptr[39] = /*_.INST__V49*/ curfptr[48];;}
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4648:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4648:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ curfrout->tabval[10])), (5), "CLASS_SOURCE_CPPIF");/*_.INST__V51*/ curfptr[50] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), ((/*!konst_11_ENABLE_CHECKING*/ curfrout->tabval[11])), "SIFP_COND");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.DCALL__V48*/ curfptr[39]), "SIFP_THEN");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (4), ((/*nil*/NULL)), "SIFP_ELSE");
+    ;
+    /*_.DCPPIF__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4655:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4655:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4655:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_debug_msg result dcppif";
+      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12];
+      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
+      argtab[3].bp_long = 4655;
+      /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DCPPIF__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4655:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4655:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4655:/ cppif.else");
+   /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4656:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.DCPPIF__V50*/ curfptr[49];;
+    MELT_LOCATION("warmelt-macro.melt:4656:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V41*/ curfptr[29] = /*_.RETURN___V54*/ curfptr[52];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_#IS_MIXINT__L10*/ curfnum[9] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.DFILNAM__V42*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V46*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.MAKE_TUPLE5__V47*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.DCALL__V48*/ curfptr[39] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.DCPPIF__V50*/ curfptr[49] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
+   /*clear*/ /*_.RETURN___V54*/ curfptr[52] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V41*/ curfptr[29];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.XVAL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.XMSG__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.XCOUNT__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_#NULL__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.IF___V34*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
+  /*clear*/ /*_.LET___V41*/ curfptr[29] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4602:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4602:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_DEBUG_MSG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_EXPORT_VALUES", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4663:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4663:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4663:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4663:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4664:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4664:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4664:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4664:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4664:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4664:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4664:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4664)?(4664):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4664:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4664:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4664:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4665:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4665:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4665:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4665:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4665:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4665:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4665:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4665)?(4665):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4665:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4665:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4665:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4666:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4666:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4666:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_export_values sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
+    argtab[3].bp_long = 4666;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4666:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4666:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4666:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4667:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4668:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4669:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:4673:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4673:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4673:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4673:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4673:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4671:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4671:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+   MELT_LOCATION("warmelt-macro.melt:4671:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.SYMBTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4681:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4681:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_EXPORT_VALUES");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4681:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4681:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @SEXPORT_NAMES", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.SYMBTUP__V18*/ curfptr[17]), "SEXPORT_NAMES");
+   ;
+   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4685:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4685:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4685:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_export_values result res";
+     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
+     argtab[3].bp_long = 4685;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4685:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4685:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4685:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4686:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-macro.melt:4686:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4663:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4663:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_EXPORT_VALUES", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4673:/ getarg");
+ /*_.S__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4673:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4674:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4674:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4674:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-macro.melt:4674:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+   /*_.SYM__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.S__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_NOT_A__L1*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-macro.melt:4675:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4675:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4675:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4677:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4677:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_export_values bad sym";
+     /*_.DEBUGMSG__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUGMSG*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4678:/ locexp");
+    melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_VALUES <sym>...) expecting symbol"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4676:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4675:/ clear");
+    /*clear*/ /*_.DEBUGMSG__V5*/ curfptr[4] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4674:/ clear");
+  /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4674:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4673:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4673:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4673:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_106_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 38
+  void* varptr[38];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<38; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 38;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_EXPORT_MACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4693:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4693:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4693:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4693:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4694:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4694:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4694:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4694:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4694:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4694:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4694:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4694)?(4694):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4694:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4694:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4694:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4695:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4695:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4695:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4695:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4695:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4695:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4695:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4695)?(4695):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4695:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4695:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4695:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4696:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4696:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4696:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_export_macro sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
+    argtab[3].bp_long = 4696;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4696:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4696:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4696:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4697:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4698:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4699:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4701:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4701:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4701:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.SYMB__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.DOC__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_#IS_NOT_A__L4*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:4704:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4704:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4704:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4705:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander>) expecting symbol"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V19*/ curfptr[18] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4706:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[18];;
+  MELT_LOCATION("warmelt-macro.melt:4707:/ block");
+  /*block*/{
+   /*_.PAIR_HEAD__V22*/ curfptr[21] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4707:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-macro.melt:4707:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+    /*_.EXPV__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.PAIR_TAIL__V24*/ curfptr[23] = 
+    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+   MELT_LOCATION("warmelt-macro.melt:4709:/ compute");
+   /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];;
+   /*_.PAIR_HEAD__V26*/ curfptr[25] = 
+    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+   /*_#__L5*/ curfnum[4] = 
+    ((/*_.PAIR_HEAD__V26*/ curfptr[25]) == ((/*!konst_5_DOC*/ curfrout->tabval[5])));;
+   MELT_LOCATION("warmelt-macro.melt:4710:/ cond");
+   /*cond*/ if (/*_#__L5*/ curfnum[4]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4710:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4710:/ block");
+    /*block*/{
+     /*_.PAIR_TAIL__V28*/ curfptr[27] = 
+      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+     MELT_LOCATION("warmelt-macro.melt:4712:/ compute");
+     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V29*/ curfptr[28] = /*_.PAIR_TAIL__V28*/ curfptr[27];;
+     /*_.PAIR_HEAD__V30*/ curfptr[29] = 
+      (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+     MELT_LOCATION("warmelt-macro.melt:4713:/ compute");
+     /*_.DOC__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_HEAD__V30*/ curfptr[29];;
+     MELT_LOCATION("warmelt-macro.melt:4711:/ block");
+     /*block*/{
+      /*_.PROGN___V32*/ curfptr[31] = /*_.SETQ___V31*/ curfptr[30];;}
+     ;
+     /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
+     /*clear*/ /*_.PAIR_TAIL__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
+     /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
+     /*clear*/ /*_.PAIR_HEAD__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
+     /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
+     /*clear*/ /*_.PROGN___V32*/ curfptr[31] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-macro.melt:4710:/ cond.else");
+   
+    /*_.IF___V27*/ curfptr[26] = NULL;;
+    }
+   ;
+   /*_#NULL__L6*/ curfnum[5] = 
+    ((/*_.EXPV__V23*/ curfptr[22]) == NULL);;
+   MELT_LOCATION("warmelt-macro.melt:4714:/ cond");
+   /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4714:/ cond.then");
+   MELT_LOCATION("warmelt-macro.melt:4714:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-macro.melt:4715:/ locexp");
+     melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander> [:doc <docum>]) expecting expander"), (melt_ptr_t)0);}
+     ;
+     /*epilog*/}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4716:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4716:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-macro.melt:4716:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[6])), (5), "CLASS_SOURCE_EXPORT_MACRO");/*_.INST__V35*/ curfptr[29] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SEXPMAC_MNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (2), (/*_.SYMB__V17*/ curfptr[16]), "SEXPMAC_MNAME");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SEXPMAC_MVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (3), (/*_.EXPV__V23*/ curfptr[22]), "SEXPMAC_MVAL");
+     ;
+     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @SEXPMAC_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (4), (/*_.DOC__V18*/ curfptr[17]), "SEXPMAC_DOC");
+     ;
+     /*_.RES__V34*/ curfptr[28] = /*_.INST__V35*/ curfptr[29];;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-macro.melt:4723:/ cppif.then");
+    MELT_LOCATION("warmelt-macro.melt:4723:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+       callcount;;
+      MELT_LOCATION("warmelt-macro.melt:4723:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
+       argtab[0].bp_cstring =  "mexpand_export_macro result res";
+       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-macro.melt";
+       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
+       argtab[3].bp_long = 4723;
+       /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V34*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V36*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[31];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-macro.melt:4723:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-macro.melt:4723:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-macro.melt:4723:/ cppif.else");
+    /*_.IFCPP___V36*/ curfptr[30] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-macro.melt:4724:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V34*/ curfptr[28];;
+     MELT_LOCATION("warmelt-macro.melt:4724:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.LET___V33*/ curfptr[27] = /*_.RETURN___V38*/ curfptr[31];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4716:/ clear");
+    /*clear*/ /*_.RES__V34*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4716:/ clear");
+    /*clear*/ /*_.IFCPP___V36*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4716:/ clear");
+    /*clear*/ /*_.RETURN___V38*/ curfptr[31] = 0 ;}
+   ;
+   /*_.LET___V21*/ curfptr[20] = /*_.LET___V33*/ curfptr[27];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.EXPV__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.PAIR_HEAD__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_#__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
+   /*clear*/ /*_.LET___V33*/ curfptr[27] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V21*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.DOC__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4693:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4693:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_EXPORT_MACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 45
+  void* varptr[45];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<45; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 45;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_EXPORT_PATMACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4734:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4734:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4734:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4734:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4735:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4735:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4735:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4735:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4735:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4735:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4735:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4735)?(4735):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4735:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4735:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4735:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4736:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4736:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4736:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4736:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4736:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4736:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4736:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4736)?(4736):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4736:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4736:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4736:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4737:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4737:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4737:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_export_patmacro sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
+    argtab[3].bp_long = 4737;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4737:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4737:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4737:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4738:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4739:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4740:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4742:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4742:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4742:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.SYMB__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.PATEXPV__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_.MACEXPV__V19*/ curfptr[18] = (/*nil*/NULL);;
+  /*_.DOC__V20*/ curfptr[19] = (/*nil*/NULL);;
+  /*_#IS_NOT_A__L4*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:4747:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4747:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4747:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4748:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting symbol"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V21*/ curfptr[20] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4749:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V22*/ curfptr[21] = /*_.PAIR_TAIL__V21*/ curfptr[20];;
+  /*_.PAIR_HEAD__V23*/ curfptr[22] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4750:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4750:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4750:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4750:/ compute");
+  /*_.PATEXPV__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.MACROEXPAND_1__V24*/ curfptr[23];;
+  /*_#NULL__L5*/ curfnum[4] = 
+   ((/*_.PATEXPV__V18*/ curfptr[17]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4751:/ cond");
+  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4751:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4751:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4752:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting patexpander"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4753:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
+  /*_.PAIR_HEAD__V28*/ curfptr[27] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4754:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4754:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4754:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4754:/ compute");
+  /*_.MACEXPV__V19*/ curfptr[18] = /*_.SETQ___V30*/ curfptr[29] = /*_.MACROEXPAND_1__V29*/ curfptr[28];;
+  /*_#NULL__L6*/ curfnum[5] = 
+   ((/*_.MACEXPV__V19*/ curfptr[18]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4755:/ cond");
+  /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4755:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4755:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4756:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting macexpander"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V31*/ curfptr[30] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4757:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[30];;
+  /*_.PAIR_HEAD__V33*/ curfptr[32] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#__L7*/ curfnum[6] = 
+   ((/*_.PAIR_HEAD__V33*/ curfptr[32]) == ((/*!konst_5_DOC*/ curfrout->tabval[5])));;
+  MELT_LOCATION("warmelt-macro.melt:4758:/ cond");
+  /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4758:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4758:/ block");
+   /*block*/{
+    /*_.PAIR_TAIL__V35*/ curfptr[34] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:4760:/ compute");
+    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V36*/ curfptr[35] = /*_.PAIR_TAIL__V35*/ curfptr[34];;
+    /*_.PAIR_HEAD__V37*/ curfptr[36] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:4761:/ compute");
+    /*_.DOC__V20*/ curfptr[19] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_HEAD__V37*/ curfptr[36];;
+    MELT_LOCATION("warmelt-macro.melt:4759:/ block");
+    /*block*/{
+     /*_.PROGN___V39*/ curfptr[38] = /*_.SETQ___V38*/ curfptr[37];;}
+    ;
+    /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V39*/ curfptr[38];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V35*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
+    /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
+    /*clear*/ /*_.PAIR_HEAD__V37*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
+    /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
+    /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4758:/ cond.else");
+  
+   /*_.IF___V34*/ curfptr[33] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4764:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4764:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4764:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[6])), (6), "CLASS_SOURCE_EXPORT_PATMACRO");/*_.INST__V42*/ curfptr[36] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPMAC_MNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (2), (/*_.SYMB__V17*/ curfptr[16]), "SEXPMAC_MNAME");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPPAT_PVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (5), (/*_.PATEXPV__V18*/ curfptr[17]), "SEXPPAT_PVAL");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPMAC_MVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (3), (/*_.MACEXPV__V19*/ curfptr[18]), "SEXPMAC_MVAL");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPMAC_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (4), (/*_.DOC__V20*/ curfptr[19]), "SEXPMAC_DOC");
+    ;
+    /*_.RES__V41*/ curfptr[35] = /*_.INST__V42*/ curfptr[36];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4772:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4772:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4772:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_export_patmacro result res";
+      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
+      argtab[3].bp_long = 4772;
+      /*_.DEBUG_MSG_FUN__V44*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V41*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V43*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[38];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4772:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4772:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[38] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4772:/ cppif.else");
+   /*_.IFCPP___V43*/ curfptr[37] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4773:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V41*/ curfptr[35];;
+    MELT_LOCATION("warmelt-macro.melt:4773:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V40*/ curfptr[34] = /*_.RETURN___V45*/ curfptr[38];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4764:/ clear");
+   /*clear*/ /*_.RES__V41*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4764:/ clear");
+   /*clear*/ /*_.IFCPP___V43*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4764:/ clear");
+   /*clear*/ /*_.RETURN___V45*/ curfptr[38] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V40*/ curfptr[34];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PATEXPV__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.MACEXPV__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.DOC__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.SETQ___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
+  /*clear*/ /*_.LET___V40*/ curfptr[34] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4734:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4734:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_EXPORT_PATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_EXPORT_CLASS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4780:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4780:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4780:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4780:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4781:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4781:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4781:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4781:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4781:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4781:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4781:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4781)?(4781):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4781:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4781:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4781:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4782:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4782:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4782:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4782:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4782:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4782:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4782:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4782)?(4782):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4782:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4782:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4782:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4783:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4783:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4783:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_export_class sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
+    argtab[3].bp_long = 4783;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4783:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4783:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4783:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4784:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4785:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4786:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:4790:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4790:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4790:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4790:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4790:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4788:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4788:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
+   MELT_LOCATION("warmelt-macro.melt:4788:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.SYMBTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4796:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4796:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ curfrout->tabval[8])), (3), "CLASS_SOURCE_EXPORT_CLASS");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4796:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4796:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @SEXPORT_NAMES", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.SYMBTUP__V18*/ curfptr[17]), "SEXPORT_NAMES");
+   ;
+   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4800:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4800:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4800:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_export_class result res";
+     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
+     argtab[3].bp_long = 4800;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4800:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4800:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4800:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4801:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-macro.melt:4801:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
+  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4780:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4780:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_EXPORT_CLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_macro_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4790:/ getarg");
+ /*_.S__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4790:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-macro.melt:4791:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4791:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4791:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-macro.melt:4791:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
+   /*_.SYM__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.S__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_NOT_A__L1*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-macro.melt:4792:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4792:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4792:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4793:/ locexp");
+    melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_CLASS <sym>...) expecting symbol"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4791:/ clear");
+  /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4791:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4790:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-macro.melt:4790:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4790:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_110_warmelt_macro_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 47
+  void* varptr[47];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<47; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 47;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_EXPORT_SYNONYM", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4807:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4807:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4807:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4807:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4808:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4808:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4808:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4808:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4808:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4808:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4808:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4808)?(4808):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4808:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4808:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4808:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4809:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4809:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4809:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4809:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4809:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4809:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4809:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4809)?(4809):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4809:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4809:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4809:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4810:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4810:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4810:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_export_synonym sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
+    argtab[3].bp_long = 4810;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4810:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4810:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4810:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4811:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4812:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4813:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.NEWSYMB__V16*/ curfptr[15] = (/*nil*/NULL);;
+  /*_.OLDSYMB__V17*/ curfptr[16] = (/*nil*/NULL);;
+  /*_.DOC__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_.PAIR_HEAD__V19*/ curfptr[18] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4820:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4820:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4820:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4820:/ compute");
+  /*_.NEWSYMB__V16*/ curfptr[15] = /*_.SETQ___V21*/ curfptr[20] = /*_.MACROEXPAND_1__V20*/ curfptr[19];;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4821:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4821:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4821:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpander_export_synonym newsymb";
+     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
+     argtab[3].bp_long = 4821;
+     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NEWSYMB__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4821:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4821:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4821:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_NOT_A__L5*/ curfnum[0] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.NEWSYMB__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:4822:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4822:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4822:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4823:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad new name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V24*/ curfptr[22] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4824:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[22];;
+  /*_.PAIR_HEAD__V26*/ curfptr[25] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4826:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4826:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4826:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4826:/ compute");
+  /*_.OLDSYMB__V17*/ curfptr[16] = /*_.SETQ___V28*/ curfptr[27] = /*_.MACROEXPAND_1__V27*/ curfptr[26];;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4827:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4827:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4827:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpander_export_synonym oldsymb";
+     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
+     argtab[3].bp_long = 4827;
+     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLDSYMB__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4827:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4827:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4827:/ cppif.else");
+  /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_NOT_A__L7*/ curfnum[5] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.OLDSYMB__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:4828:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4828:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4828:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4829:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad old name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V31*/ curfptr[29] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4830:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[29];;
+  /*_.PAIR_HEAD__V33*/ curfptr[32] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#__L8*/ curfnum[7] = 
+   ((/*_.PAIR_HEAD__V33*/ curfptr[32]) == ((/*!konst_5_DOC*/ curfrout->tabval[5])));;
+  MELT_LOCATION("warmelt-macro.melt:4831:/ cond");
+  /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4831:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4831:/ block");
+   /*block*/{
+    /*_.PAIR_TAIL__V35*/ curfptr[34] = 
+     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:4833:/ compute");
+    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V36*/ curfptr[35] = /*_.PAIR_TAIL__V35*/ curfptr[34];;
+    /*_.PAIR_HEAD__V37*/ curfptr[36] = 
+     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+    MELT_LOCATION("warmelt-macro.melt:4834:/ compute");
+    /*_.DOC__V18*/ curfptr[17] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_HEAD__V37*/ curfptr[36];;
+    MELT_LOCATION("warmelt-macro.melt:4832:/ block");
+    /*block*/{
+     /*_.PROGN___V39*/ curfptr[38] = /*_.SETQ___V38*/ curfptr[37];;}
+    ;
+    /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V39*/ curfptr[38];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
+    /*clear*/ /*_.PAIR_TAIL__V35*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
+    /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
+    /*clear*/ /*_.PAIR_HEAD__V37*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
+    /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
+    /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-macro.melt:4831:/ cond.else");
+  
+   /*_.IF___V34*/ curfptr[33] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4836:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4836:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4836:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpander_export_synonym doc";
+     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
+     argtab[3].bp_long = 4836;
+     /*_.DEBUG_MSG_FUN__V41*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DOC__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V40*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4836:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4836:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[35] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4836:/ cppif.else");
+  /*_.IFCPP___V40*/ curfptr[34] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4837:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4838:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4838:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ curfrout->tabval[6])), (5), "CLASS_SOURCE_EXPORT_SYNONYM");/*_.INST__V44*/ curfptr[38] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPSYN_NEWNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (2), (/*_.NEWSYMB__V16*/ curfptr[15]), "SEXPSYN_NEWNAME");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPSYN_OLDNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (3), (/*_.OLDSYMB__V17*/ curfptr[16]), "SEXPSYN_OLDNAME");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SEXPSYN_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (4), (/*_.DOC__V18*/ curfptr[17]), "SEXPSYN_DOC");
+    ;
+    /*_.RES__V43*/ curfptr[37] = /*_.INST__V44*/ curfptr[38];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4844:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4844:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4844:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpander_export_synonym result";
+      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
+      argtab[3].bp_long = 4844;
+      /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V43*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V45*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4844:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4844:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4844:/ cppif.else");
+   /*_.IFCPP___V45*/ curfptr[35] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4845:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V43*/ curfptr[37];;
+    MELT_LOCATION("warmelt-macro.melt:4845:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V42*/ curfptr[36] = /*_.RETURN___V47*/ curfptr[45];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4837:/ clear");
+   /*clear*/ /*_.RES__V43*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4837:/ clear");
+   /*clear*/ /*_.IFCPP___V45*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4837:/ clear");
+   /*clear*/ /*_.RETURN___V47*/ curfptr[45] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V42*/ curfptr[36];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.NEWSYMB__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.OLDSYMB__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.DOC__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.SETQ___V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.IFCPP___V40*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
+  /*clear*/ /*_.LET___V42*/ curfptr[36] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4807:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4807:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_EXPORT_SYNONYM", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4852:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4852:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4852:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4852:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4853:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4853:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4853:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4853:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4853:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4853:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4853:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4853)?(4853):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4853:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4853:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4853:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4854:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4854:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4854:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4854:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4854:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4854:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4854:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4854)?(4854):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4854:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4854:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4854:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4855:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4855:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4855:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_current_module_environment_container sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
+    argtab[3].bp_long = 4855;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4855:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4855:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4855:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4856:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4857:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4858:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:4860:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4860:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[3])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4860:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+   ;
+   /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  /*_#NOTNULL__L4*/ curfnum[0] = 
+   ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4863:/ cond");
+  /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4863:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4863:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4864:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4865:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4865:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4865:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_current_module_environment_container return res";
+     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
+     argtab[3].bp_long = 4865;
+     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4865:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4865:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4865:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4866:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
+   MELT_LOCATION("warmelt-macro.melt:4866:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
+  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4852:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4852:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4875:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4875:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4875:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4875:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4876:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4876:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4876:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4876:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4876:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4876:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4876)?(4876):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4876:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4876:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4877:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4877:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4877:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4877:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4877:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4877:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4877:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4877)?(4877):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4877:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4877:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4877:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4878:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4878:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4878:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_parent_module_environment sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
+    argtab[3].bp_long = 4878;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4878:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4878:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4878:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4879:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4880:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4881:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:4883:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4883:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[3])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4883:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+   ;
+   /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  /*_#NOTNULL__L4*/ curfnum[0] = 
+   ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4886:/ cond");
+  /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4886:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4886:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4887:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4888:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4888:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4888:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_parent_module_environment return res";
+     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
+     argtab[3].bp_long = 4888;
+     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4888:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4888:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4888:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4889:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
+   MELT_LOCATION("warmelt-macro.melt:4889:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
+  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4875:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4875:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4898:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4898:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4898:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4898:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4899:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4899:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4899:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4899:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4899:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4899:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4899:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4899)?(4899):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4899:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4899:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4899:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4900:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4900:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4900:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4900:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4900:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4900:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4900:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4900)?(4900):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4900:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4900:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4900:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4901:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4901:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4901:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_update_current_module_environment_container sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
+    argtab[3].bp_long = 4901;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4901:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4901:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4901:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4902:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4903:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4904:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V13*/ curfptr[12])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-macro.melt:4906:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4906:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[3])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-macro.melt:4906:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V12*/ curfptr[11]), "LOCA_LOCATION");
+   ;
+   /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  /*_#NOTNULL__L4*/ curfnum[0] = 
+   ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4909:/ cond");
+  /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4909:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4909:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4910:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-macro.melt:4911:/ cppif.then");
+  MELT_LOCATION("warmelt-macro.melt:4911:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-macro.melt:4911:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
+     argtab[0].bp_cstring =  "mexpand_update_current_module_environment_container return res";
+     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-macro.melt";
+     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
+     argtab[3].bp_long = 4911;
+     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4911:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-macro.melt:4911:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-macro.melt:4911:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-macro.melt:4912:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
+   MELT_LOCATION("warmelt-macro.melt:4912:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.CONT__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
+  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4898:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4898:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 24
+  void* varptr[24];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<24; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 24;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_FETCH_PREDEFINED", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4922:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4922:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4922:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4922:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4923:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4923:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4923:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4923:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4923:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4923:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4923:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4923)?(4923):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4923:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4923:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4923:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4924:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4924:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4924:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4924:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4924:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4924:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4924:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4924)?(4924):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4924:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4924:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4924:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4925:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4925:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4925:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_fetch_predefined sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
+    argtab[3].bp_long = 4925;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4925:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4925:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4925:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4926:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4927:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4928:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4930:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4930:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4930:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.SPREDEF__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NULL__L4*/ curfnum[0] = 
+   ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4932:/ cond");
+  /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4932:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4932:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4933:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V18*/ curfptr[17] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#NOTNULL__L5*/ curfnum[4] = 
+   ((/*_.PAIR_TAIL__V18*/ curfptr[17]) != NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4934:/ cond");
+  /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4934:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4934:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4935:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_A__L6*/ curfnum[5] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:4936:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4936:/ cond.then");
+  /*_#OR___L7*/ curfnum[6] = /*_#IS_A__L6*/ curfnum[5];;
+  } else {MELT_LOCATION("warmelt-macro.melt:4936:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:4936:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
+    /*_#OR___L7*/ curfnum[6] = /*_#IS_INTEGERBOX__L8*/ curfnum[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4936:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;}
+   ;
+   }
+  ;
+  /*_#NOT__L9*/ curfnum[7] = 
+   (!(/*_#OR___L7*/ curfnum[6]));;
+  MELT_LOCATION("warmelt-macro.melt:4936:/ cond");
+  /*cond*/ if (/*_#NOT__L9*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4936:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4936:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4937:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4938:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4938:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4938:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_FETCH_PREDEFINED");/*_.INST__V21*/ curfptr[20] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4938:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4938:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SFEPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.SPREDEF__V17*/ curfptr[16]), "SFEPD_PREDEF");
+    ;
+    /*_.RES__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4941:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4941:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4941:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_fetch_predefined result";
+      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
+      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
+      argtab[3].bp_long = 4941;
+      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4941:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4941:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4941:/ cppif.else");
+   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4942:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V20*/ curfptr[19];;
+    MELT_LOCATION("warmelt-macro.melt:4942:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V19*/ curfptr[18] = /*_.RETURN___V24*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4938:/ clear");
+   /*clear*/ /*_.RES__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4938:/ clear");
+   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4938:/ clear");
+   /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_#OR___L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_#NOT__L9*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
+  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4922:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4922:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_FETCH_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 30
+  void* varptr[30];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<30; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 30;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MEXPAND_STORE_PREDEFINED", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-macro.melt:4948:/ getarg");
+ /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-macro.melt:4948:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-macro.melt:4948:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-macro.melt:4948:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4949:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4949:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-macro.melt:4949:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4949:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4949:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4949:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4949:/ locexp");
+      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4949)?(4949):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4949:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4949:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4949:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4950:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4950:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-macro.melt:4950:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-macro.melt:4950:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-macro.melt:4950:/ cond.else");
+   
+    MELT_LOCATION("warmelt-macro.melt:4950:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-macro.melt:4950:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
+  (4950)?(4950):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4950:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4950:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4950:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-macro.melt:4951:/ cppif.then");
+ MELT_LOCATION("warmelt-macro.melt:4951:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-macro.melt:4951:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
+    argtab[0].bp_cstring =  "mexpand_store_predefined sexpr";
+    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-macro.melt";
+    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
+    argtab[3].bp_long = 4951;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4951:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4951:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-macro.melt:4951:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-macro.melt:4952:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-macro.melt:4953:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4954:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.LIST_FIRST__V14*/ curfptr[13] = 
+   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
+  /*_.CURPAIR__V15*/ curfptr[14] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
+  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4956:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4956:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4956:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.SPREDEF__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SVAL__V18*/ curfptr[17] = (/*nil*/NULL);;
+  /*_#NULL__L4*/ curfnum[0] = 
+   ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4959:/ cond");
+  /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4959:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4959:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4960:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_TAIL__V19*/ curfptr[18] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4961:/ compute");
+  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[18];;
+  /*_#NULL__L5*/ curfnum[4] = 
+   ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4962:/ cond");
+  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4962:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4962:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4963:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_.PAIR_HEAD__V21*/ curfptr[20] = 
+   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  MELT_LOCATION("warmelt-macro.melt:4964:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-macro.melt:4964:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-macro.melt:4964:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
+   /*_.MACROEXPAND_1__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4964:/ compute");
+  /*_.SVAL__V18*/ curfptr[17] = /*_.SETQ___V23*/ curfptr[22] = /*_.MACROEXPAND_1__V22*/ curfptr[21];;
+  /*_.PAIR_TAIL__V24*/ curfptr[23] = 
+   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
+  /*_#NOTNULL__L6*/ curfnum[5] = 
+   ((/*_.PAIR_TAIL__V24*/ curfptr[23]) != NULL);;
+  MELT_LOCATION("warmelt-macro.melt:4965:/ cond");
+  /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4965:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4965:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4966:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_A__L7*/ curfnum[6] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-macro.melt:4967:/ cond");
+  /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4967:/ cond.then");
+  /*_#OR___L8*/ curfnum[7] = /*_#IS_A__L7*/ curfnum[6];;
+  } else {MELT_LOCATION("warmelt-macro.melt:4967:/ cond.else");
+  
+   MELT_LOCATION("warmelt-macro.melt:4967:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
+    /*_#OR___L8*/ curfnum[7] = /*_#IS_INTEGERBOX__L9*/ curfnum[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-macro.melt:4967:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ;}
+   ;
+   }
+  ;
+  /*_#NOT__L10*/ curfnum[8] = 
+   (!(/*_#OR___L8*/ curfnum[7]));;
+  MELT_LOCATION("warmelt-macro.melt:4967:/ cond");
+  /*cond*/ if (/*_#NOT__L10*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-macro.melt:4967:/ cond.then");
+  MELT_LOCATION("warmelt-macro.melt:4967:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-macro.melt:4968:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), (melt_ptr_t)0);}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-macro.melt:4969:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-macro.melt:4969:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-macro.melt:4969:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_STORE_PREDEFINED");/*_.INST__V27*/ curfptr[26] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4969:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4969:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SSTPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SPREDEF__V17*/ curfptr[16]), "SSTPD_PREDEF");
+    ;
+    MELT_LOCATION("warmelt-macro.melt:4969:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SSTPD_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.SVAL__V18*/ curfptr[17]), "SSTPD_VALUE");
+    ;
+    /*_.RES__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-macro.melt:4974:/ cppif.then");
+   MELT_LOCATION("warmelt-macro.melt:4974:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+      callcount;;
+     MELT_LOCATION("warmelt-macro.melt:4974:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
+      argtab[0].bp_cstring =  "mexpand_store_predefined result";
+      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-macro.melt";
+      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
+      argtab[3].bp_long = 4974;
+      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-macro.melt:4974:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-macro.melt:4974:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-macro.melt:4974:/ cppif.else");
+   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-macro.melt:4975:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V26*/ curfptr[25];;
+    MELT_LOCATION("warmelt-macro.melt:4975:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V30*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-macro.melt:4969:/ clear");
+   /*clear*/ /*_.RES__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4969:/ clear");
+   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-macro.melt:4969:/ clear");
+   /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;}
+  ;
+  /*_.LET___V11*/ curfptr[9] = /*_.LET___V25*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.SVAL__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.PAIR_HEAD__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.MACROEXPAND_1__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_#NOT__L10*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-macro.melt:4948:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
+  MELT_LOCATION("warmelt-macro.melt:4948:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
+ /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MEXPAND_STORE_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED*/
+
+
+
+/**** end of warmelt-macro.0+2.c ****/
diff --git a/gcc/melt/warmelt-macro.0.c b/gcc/melt/warmelt-macro.0.c
index f60936354bd..e6bedd7ed69 100644
--- a/gcc/melt/warmelt-macro.0.c
+++ b/gcc/melt/warmelt-macro.0.c
@@ -1,14 +1,14 @@
-/* GCC MELT GENERATED FILE warmelt-macro.3.c - DO NOT EDIT */
+/* GCC MELT GENERATED FILE warmelt-macro.0.c - DO NOT EDIT */
 
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.5.0 20091124 (experimental) [melt-branch revision 154669]";
+ "4.5.0 20091130 (experimental) [melt-branch revision 154718]";
 #endif
 
 #include "run-melt.h"
 
-/**** warmelt-macro.3.c declarations ****/
+/**** warmelt-macro.0.c declarations ****/
 #define MELT_HAS_INITIAL_ENVIRONMENT 1
 
 /**!!** ***
@@ -618,7 +618,7 @@ void mark_module_melt(void*);
 void* initial_frame_melt;
 
 
-/**** warmelt-macro.3.c implementations ****/
+/**** warmelt-macro.0.c implementations ****/
 
 
 
@@ -25765,28989 +25765,6 @@ melt_trace_end("MEXPAND_DEFINSTANCE", callcount);  melt_topframe = (struct callf
 
 
 
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 92
-  void* varptr[92];
-#define CURFRAM_NBVARNUM 21
-  long varnum[21];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<92; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 92;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_DEFSELECTOR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:2730:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:2730:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:2730:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:2730:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2731:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2731:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:2731:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2731:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2731:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2731:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2731:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2731)?(2731):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2731:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2731:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2731:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2732:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2732:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:2732:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2732:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2732:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2732:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2732:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2732)?(2732):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2732:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2732:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2732:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2733:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2733:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:2733:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
-    argtab[0].bp_cstring =  "mexp.definstance sexpr";
-    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:2733:/ apply.arg");
-    argtab[3].bp_long = 2733;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2733:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2733:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2733:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:2734:/ 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);;
-  MELT_LOCATION("warmelt-macro.melt:2738:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2739:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V17*/ curfptr[16] = slot; };
-  ;
-  /*_.LIST_FIRST__V18*/ curfptr[17] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V16*/ curfptr[15])));;
-  /*_.CURPAIR__V19*/ curfptr[18] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
-  /*_.SYMB__V20*/ curfptr[19] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-  /*_.CLANAME__V21*/ curfptr[20] = (/*nil*/NULL);;
-  /*_.CLA__V22*/ curfptr[21] = (/*nil*/NULL);;
-  /*_.DOCV__V23*/ curfptr[22] = (/*nil*/NULL);;
-  /*_.CLABIND__V24*/ curfptr[23] = (/*nil*/NULL);;
-  /*_.FORMALS__V25*/ curfptr[24] = (/*nil*/NULL);;
-  /*_#IS_NOT_A__L4*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-macro.melt:2748:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:2748:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:2748:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:2749:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing symbol for DEFSELECTOR"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-  MELT_LOCATION("warmelt-macro.melt:2750:/ compute");
-  /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
-  MELT_LOCATION("warmelt-macro.melt:2751:/ block");
-  /*block*/{
-   /*_.NAM__V29*/ curfptr[28] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-   /*_#IS_NOT_A__L5*/ curfnum[4] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.NAM__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-macro.melt:2752:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2752:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:2752:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:2753:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing class name for DEFSELECTOR"), (melt_ptr_t)0);}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:2754:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:2754:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:2754:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAM__V29*/ curfptr[28];
-     /*_.BND__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.FLDLIST__V32*/ curfptr[31] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-    /*_#IS_A__L6*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));;
-    MELT_LOCATION("warmelt-macro.melt:2758:/ cond");
-    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:2758:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:2758:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:2759:/ compute");
-      /*_.CLABIND__V24*/ curfptr[23] = /*_.SETQ___V34*/ curfptr[33] = /*_.BND__V31*/ curfptr[30];;
-      MELT_LOCATION("warmelt-macro.melt:2760:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V35*/ curfptr[34] = slot; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2760:/ compute");
-      /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V36*/ curfptr[35] = /*_.CBIND_CLASS__V35*/ curfptr[34];;
-      MELT_LOCATION("warmelt-macro.melt:2758:/ block");
-      /*block*/{
-       /*_.PROGN___V37*/ curfptr[36] = /*_.SETQ___V36*/ curfptr[35];;}
-      ;
-      /*_.IFELSE___V33*/ curfptr[32] = /*_.PROGN___V37*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_.CBIND_CLASS__V35*/ curfptr[34] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:2758:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:2758:/ block");
-     /*block*/{
-      /*_#IS_A__L7*/ curfnum[6] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));;
-      MELT_LOCATION("warmelt-macro.melt:2761:/ cond");
-      /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:2761:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:2761:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:2762:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V38*/ curfptr[33] = slot; };
-        ;
-        /*_#IS_A__L9*/ curfnum[8] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V38*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
-        /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.VBIND_VALUE__V38*/ curfptr[33] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-macro.melt:2761:/ cond.else");
-      
-       /*_#IF___L8*/ curfnum[7] = 0;;
-       }
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2761:/ cond");
-      /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:2761:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:2761:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:2763:/ compute");
-        /*_.CLABIND__V24*/ curfptr[23] = /*_.SETQ___V40*/ curfptr[35] = /*_.BND__V31*/ curfptr[30];;
-        MELT_LOCATION("warmelt-macro.melt:2764:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V31*/ curfptr[30]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V41*/ curfptr[36] = slot; };
-        ;
-        MELT_LOCATION("warmelt-macro.melt:2764:/ compute");
-        /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V42*/ curfptr[33] = /*_.VBIND_VALUE__V41*/ curfptr[36];;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ block");
-        /*block*/{
-         /*_.PROGN___V43*/ curfptr[42] = /*_.SETQ___V42*/ curfptr[33];;}
-        ;
-        /*_.IFELSE___V39*/ curfptr[34] = /*_.PROGN___V43*/ curfptr[42];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.SETQ___V40*/ curfptr[35] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.VBIND_VALUE__V41*/ curfptr[36] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.SETQ___V42*/ curfptr[33] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-macro.melt:2761:/ cond.else");
-      
-       MELT_LOCATION("warmelt-macro.melt:2761:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:2767:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V44*/ curfptr[35] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:2766:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "invalid class name for DEFSELECTOR"), (melt_ptr_t)(/*_.NAMED_NAME__V44*/ curfptr[35]));}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:2768:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-         MELT_LOCATION("warmelt-macro.melt:2768:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:2765:/ block");
-        /*block*/{
-         /*_.PROGN___V46*/ curfptr[33] = /*_.RETURN___V45*/ curfptr[36];;}
-        ;
-        /*_.IFELSE___V39*/ curfptr[34] = /*_.PROGN___V46*/ curfptr[33];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V44*/ curfptr[35] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.RETURN___V45*/ curfptr[36] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2761:/ clear");
-        /*clear*/ /*_.PROGN___V46*/ curfptr[33] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V33*/ curfptr[32] = /*_.IFELSE___V39*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2758:/ clear");
-      /*clear*/ /*_.IFELSE___V39*/ curfptr[34] = 0 ;}
-     ;
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2770:/ compute");
-    /*_.CLANAME__V21*/ curfptr[20] = /*_.SETQ___V47*/ curfptr[42] = /*_.NAM__V29*/ curfptr[28];;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:2771:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:2771:/ block");
-     /*block*/{
-      /*_#IS_A__L10*/ curfnum[8] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
-      MELT_LOCATION("warmelt-macro.melt:2771:/ cond");
-      /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:2771:/ cond.then");
-      /*_.IFELSE___V49*/ curfptr[36] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-macro.melt:2771:/ cond.else");
-      
-       MELT_LOCATION("warmelt-macro.melt:2771:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-macro.melt:2771:/ locexp");
-         melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2771)?(2771):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V49*/ curfptr[36] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V48*/ curfptr[35] = /*_.IFELSE___V49*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2771:/ clear");
-      /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2771:/ clear");
-      /*clear*/ /*_.IFELSE___V49*/ curfptr[36] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:2771:/ cppif.else");
-    /*_.IFCPP___V48*/ curfptr[35] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.PAIR_TAIL__V50*/ curfptr[33] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-    MELT_LOCATION("warmelt-macro.melt:2772:/ compute");
-    /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V51*/ curfptr[34] = /*_.PAIR_TAIL__V50*/ curfptr[33];;
-    MELT_LOCATION("warmelt-macro.melt:2773:/ loop");
-    /*loop*/{ labloop_INSLOOP_2:;MELT_LOCATION("warmelt-macro.melt:2773:/ loopbody");
-    
-     MELT_LOCATION("warmelt-macro.melt:2773:/ block");
-     /*block*/{
-      /*_#IS_PAIR__L11*/ curfnum[6] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);;
-      /*_#NOT__L12*/ curfnum[7] = 
-       (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
-      MELT_LOCATION("warmelt-macro.melt:2774:/ cond");
-      /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:2774:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:2774:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:2774:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:2774:/ compute");
-         /*_.INSLOOP__V53*/ curfptr[52] = NULL;;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:2774:/ exit");
-         /*exit*/{
-          goto labexit_INSLOOP_2;}
-         ;}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2775:/ block");
-      /*block*/{
-       /*_.CURFKW__V55*/ curfptr[54] = 
-        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-       /*_#IS_NOT_A__L13*/ curfnum[8] = 
-        !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V55*/ curfptr[54]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));;
-       MELT_LOCATION("warmelt-macro.melt:2776:/ cond");
-       /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:2776:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:2776:/ block");
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-macro.melt:2777:/ locexp");
-         melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "expecting keyword in DEFSELECTOR"), (melt_ptr_t)0);}
-         ;
-         /*epilog*/}
-        ;
-       } /*noelse*/
-       ;
-       /*_.PAIR_TAIL__V56*/ curfptr[55] = 
-        (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-       MELT_LOCATION("warmelt-macro.melt:2778:/ compute");
-       /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V57*/ curfptr[56] = /*_.PAIR_TAIL__V56*/ curfptr[55];;
-       MELT_LOCATION("warmelt-macro.melt:2779:/ block");
-       /*block*/{
-        /*_.CUREXP__V59*/ curfptr[58] = 
-         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-        /*_#__L14*/ curfnum[13] = 
-         ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_10_OBJ_NUM*/ curfrout->tabval[10])));;
-        MELT_LOCATION("warmelt-macro.melt:2780:/ cond");
-        /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:2780:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:2780:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:2781:/ cond");
-          /*cond*/ if (/*_.CUREXP__V59*/ curfptr[58]) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:2781:/ cond.then");
-          MELT_LOCATION("warmelt-macro.melt:2781:/ block");
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-macro.melt:2781:/ locexp");
-            melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :obj_num in DEFSELECTOR"), (melt_ptr_t)0);}
-            ;
-            /*epilog*/}
-           ;
-          } /*noelse*/
-          ;
-          /*_#IS_A__L15*/ curfnum[14] = 
-           melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-          MELT_LOCATION("warmelt-macro.melt:2783:/ cond");
-          /*cond*/ if (/*_#IS_A__L15*/ curfnum[14]) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:2783:/ cond.then");
-          MELT_LOCATION("warmelt-macro.melt:2783:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-macro.melt:2784:/ apply");
-            /*apply*/{
-             union meltparam_un argtab[2];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-macro.melt:2784:/ apply.arg");
-             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-             MELT_LOCATION("warmelt-macro.melt:2784:/ apply.arg");
-             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-             /*_.MACROEXPAND_1__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            /*_.IFELSE___V61*/ curfptr[60] = /*_.MACROEXPAND_1__V62*/ curfptr[61];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-macro.melt:2783:/ clear");
-            /*clear*/ /*_.MACROEXPAND_1__V62*/ curfptr[61] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-macro.melt:2783:/ cond.else");
-          
-           /*_.IFELSE___V61*/ curfptr[60] = /*_.CUREXP__V59*/ curfptr[58];;
-           }
-          ;
-          MELT_LOCATION("warmelt-macro.melt:2782:/ compute");
-          /*_.OBJNUM__V13*/ curfptr[12] = /*_.SETQ___V63*/ curfptr[61] = /*_.IFELSE___V61*/ curfptr[60];;
-          MELT_LOCATION("warmelt-macro.melt:2780:/ block");
-          /*block*/{
-           /*_.PROGN___V64*/ curfptr[63] = /*_.SETQ___V63*/ curfptr[61];;}
-          ;
-          /*_.IFELSE___V60*/ curfptr[59] = /*_.PROGN___V64*/ curfptr[63];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
-          /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
-          /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
-          /*clear*/ /*_.SETQ___V63*/ curfptr[61] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
-          /*clear*/ /*_.PROGN___V64*/ curfptr[63] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:2780:/ cond.else");
-        
-         MELT_LOCATION("warmelt-macro.melt:2780:/ block");
-         /*block*/{
-          /*_#__L16*/ curfnum[14] = 
-           ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_12_PREDEF*/ curfrout->tabval[12])));;
-          MELT_LOCATION("warmelt-macro.melt:2787:/ cond");
-          /*cond*/ if (/*_#__L16*/ curfnum[14]) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:2787:/ cond.then");
-          MELT_LOCATION("warmelt-macro.melt:2787:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-macro.melt:2788:/ cond");
-            /*cond*/ if (/*_.CUREXP__V59*/ curfptr[58]) /*then*/ {
-            MELT_LOCATION("warmelt-macro.melt:2788:/ cond.then");
-            MELT_LOCATION("warmelt-macro.melt:2788:/ block");
-             /*block*/{
-              
-              {
-              MELT_LOCATION("warmelt-macro.melt:2788:/ locexp");
-              melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :predef in DEFSELECTOR"), (melt_ptr_t)0);}
-              ;
-              /*epilog*/}
-             ;
-            } /*noelse*/
-            ;
-            /*_#IS_A__L17*/ curfnum[16] = 
-             melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-            MELT_LOCATION("warmelt-macro.melt:2790:/ cond");
-            /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ {
-            MELT_LOCATION("warmelt-macro.melt:2790:/ cond.then");
-            MELT_LOCATION("warmelt-macro.melt:2790:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-macro.melt:2791:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[2];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-macro.melt:2791:/ apply.arg");
-               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-               MELT_LOCATION("warmelt-macro.melt:2791:/ apply.arg");
-               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-               /*_.MACROEXPAND_1__V67*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              /*_.IFELSE___V66*/ curfptr[61] = /*_.MACROEXPAND_1__V67*/ curfptr[63];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-macro.melt:2790:/ clear");
-              /*clear*/ /*_.MACROEXPAND_1__V67*/ curfptr[63] = 0 ;}
-             ;
-            } else {MELT_LOCATION("warmelt-macro.melt:2790:/ cond.else");
-            
-             /*_.IFELSE___V66*/ curfptr[61] = /*_.CUREXP__V59*/ curfptr[58];;
-             }
-            ;
-            MELT_LOCATION("warmelt-macro.melt:2789:/ compute");
-            /*_.PREDEF__V12*/ curfptr[11] = /*_.SETQ___V68*/ curfptr[63] = /*_.IFELSE___V66*/ curfptr[61];;
-            MELT_LOCATION("warmelt-macro.melt:2787:/ block");
-            /*block*/{
-             /*_.PROGN___V69*/ curfptr[68] = /*_.SETQ___V68*/ curfptr[63];;}
-            ;
-            /*_.IFELSE___V65*/ curfptr[60] = /*_.PROGN___V69*/ curfptr[68];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
-            /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
-            /*clear*/ /*_.IFELSE___V66*/ curfptr[61] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
-            /*clear*/ /*_.SETQ___V68*/ curfptr[63] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
-            /*clear*/ /*_.PROGN___V69*/ curfptr[68] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-macro.melt:2787:/ cond.else");
-          
-           MELT_LOCATION("warmelt-macro.melt:2787:/ block");
-           /*block*/{
-            /*_#__L18*/ curfnum[16] = 
-             ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_13_DOC*/ curfrout->tabval[13])));;
-            MELT_LOCATION("warmelt-macro.melt:2794:/ cond");
-            /*cond*/ if (/*_#__L18*/ curfnum[16]) /*then*/ {
-            MELT_LOCATION("warmelt-macro.melt:2794:/ cond.then");
-            MELT_LOCATION("warmelt-macro.melt:2794:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-macro.melt:2795:/ cond");
-              /*cond*/ if (/*_.DOCV__V23*/ curfptr[22]) /*then*/ {
-              MELT_LOCATION("warmelt-macro.melt:2795:/ cond.then");
-              MELT_LOCATION("warmelt-macro.melt:2795:/ block");
-               /*block*/{
-                
-                {
-                MELT_LOCATION("warmelt-macro.melt:2795:/ locexp");
-                melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :doc in DEFSELECTOR"), (melt_ptr_t)0);}
-                ;
-                /*epilog*/}
-               ;
-              } /*noelse*/
-              ;
-              MELT_LOCATION("warmelt-macro.melt:2796:/ compute");
-              /*_.DOCV__V23*/ curfptr[22] = /*_.SETQ___V71*/ curfptr[63] = /*_.CUREXP__V59*/ curfptr[58];;
-              MELT_LOCATION("warmelt-macro.melt:2794:/ block");
-              /*block*/{
-               /*_.PROGN___V72*/ curfptr[68] = /*_.SETQ___V71*/ curfptr[63];;}
-              ;
-              /*_.IFELSE___V70*/ curfptr[61] = /*_.PROGN___V72*/ curfptr[68];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
-              /*clear*/ /*_.SETQ___V71*/ curfptr[63] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
-              /*clear*/ /*_.PROGN___V72*/ curfptr[68] = 0 ;}
-             ;
-            } else {MELT_LOCATION("warmelt-macro.melt:2794:/ cond.else");
-            
-             MELT_LOCATION("warmelt-macro.melt:2794:/ block");
-             /*block*/{
-              /*_#__L19*/ curfnum[18] = 
-               ((/*_.CURFKW__V55*/ curfptr[54]) == ((/*!konst_14_FORMALS*/ curfrout->tabval[14])));;
-              MELT_LOCATION("warmelt-macro.melt:2798:/ cond");
-              /*cond*/ if (/*_#__L19*/ curfnum[18]) /*then*/ {
-              MELT_LOCATION("warmelt-macro.melt:2798:/ cond.then");
-              MELT_LOCATION("warmelt-macro.melt:2798:/ block");
-               /*block*/{
-                MELT_LOCATION("warmelt-macro.melt:2799:/ cond");
-                /*cond*/ if (/*_.FORMALS__V25*/ curfptr[24]) /*then*/ {
-                MELT_LOCATION("warmelt-macro.melt:2799:/ cond.then");
-                MELT_LOCATION("warmelt-macro.melt:2799:/ block");
-                 /*block*/{
-                  
-                  {
-                  MELT_LOCATION("warmelt-macro.melt:2799:/ locexp");
-                  melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :formals in DEFSELECTOR"), (melt_ptr_t)0);}
-                  ;
-                  /*epilog*/}
-                 ;
-                } /*noelse*/
-                ;
-                MELT_LOCATION("warmelt-macro.melt:2803:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[1];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-macro.melt:2803:/ apply.arg");
-                 argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V55*/ curfptr[54];
-                 /*_.LAMBDA_ARG_BINDINGS__V74*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.CUREXP__V59*/ curfptr[58]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                MELT_LOCATION("warmelt-macro.melt:2803:/ compute");
-                /*_.FORMALS__V25*/ curfptr[24] = /*_.SETQ___V75*/ curfptr[74] = /*_.LAMBDA_ARG_BINDINGS__V74*/ curfptr[68];;
-                MELT_LOCATION("warmelt-macro.melt:2804:/ block");
-                /*block*/{
-                 /*_.FIRSTF__V77*/ curfptr[76] = 
-                  (melt_multiple_nth((melt_ptr_t)(/*_.FORMALS__V25*/ curfptr[24]), (0)));;
-                 /*_#NULL__L20*/ curfnum[19] = 
-                  ((/*_.FIRSTF__V77*/ curfptr[76]) == NULL);;
-                 MELT_LOCATION("warmelt-macro.melt:2806:/ cond");
-                 /*cond*/ if (/*_#NULL__L20*/ curfnum[19]) /*then*/ {
-                 MELT_LOCATION("warmelt-macro.melt:2806:/ cond.then");
-                 MELT_LOCATION("warmelt-macro.melt:2806:/ block");
-                  /*block*/{
-                   /*block*/{
-                    
-                    {
-                    MELT_LOCATION("warmelt-macro.melt:2807:/ locexp");
-                    melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( ":formals of DEFSELECTOR should have at least one value argument for the reciever"), (melt_ptr_t)0);}
-                    ;
-                    /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
-                   ;
-                   /*epilog*/}
-                  ;
-                 } else {MELT_LOCATION("warmelt-macro.melt:2806:/ cond.else");
-                 
-                  MELT_LOCATION("warmelt-macro.melt:2806:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond");
-                   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FIRSTF__V77*/ curfptr[76]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[16])))) /*then*/ {
-                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond.then");
-                   MELT_LOCATION("warmelt-macro.melt:2808:/ getslot");
-                    { melt_ptr_t slot=0;
-                     melt_object_get_field(slot,(melt_ptr_t)(/*_.FIRSTF__V77*/ curfptr[76]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V79*/ curfptr[78] = slot; };
-                    ;
-                   } else {MELT_LOCATION("warmelt-macro.melt:2808:/ cond.else");
-                   
-                    /*_.FBIND_TYPE__V79*/ curfptr[78] = NULL;;
-                    }
-                   ;
-                   /*_#__L21*/ curfnum[20] = 
-                    ((/*_.FBIND_TYPE__V79*/ curfptr[78]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[17])));;
-                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond");
-                   /*cond*/ if (/*_#__L21*/ curfnum[20]) /*then*/ {
-                   MELT_LOCATION("warmelt-macro.melt:2808:/ cond.then");
-                   MELT_LOCATION("warmelt-macro.melt:2808:/ block");
-                    /*block*/{
-                     /*block*/{
-                      
-                      {
-                      MELT_LOCATION("warmelt-macro.melt:2809:/ locexp");
-                      melt_error_str((melt_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "first :formals of DEFSELECTOR should be a :value"), (melt_ptr_t)0);}
-                      ;
-                      /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
-                     ;
-                     /*epilog*/}
-                    ;
-                   } else {MELT_LOCATION("warmelt-macro.melt:2808:/ cond.else");
-                   
-                    /*_.IFELSE___V80*/ curfptr[79] = NULL;;
-                    }
-                   ;
-                   /*_.IFELSE___V78*/ curfptr[77] = /*_.IFELSE___V80*/ curfptr[79];;
-                   /*epilog*/
-                   MELT_LOCATION("warmelt-macro.melt:2806:/ clear");
-                   /*clear*/ /*_.FBIND_TYPE__V79*/ curfptr[78] = 0 ;
-                   MELT_LOCATION("warmelt-macro.melt:2806:/ clear");
-                   /*clear*/ /*_#__L21*/ curfnum[20] = 0 ;
-                   MELT_LOCATION("warmelt-macro.melt:2806:/ clear");
-                   /*clear*/ /*_.IFELSE___V80*/ curfptr[79] = 0 ;}
-                  ;
-                  }
-                 ;
-                 /*_.LET___V76*/ curfptr[75] = /*_.IFELSE___V78*/ curfptr[77];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-macro.melt:2804:/ clear");
-                 /*clear*/ /*_.FIRSTF__V77*/ curfptr[76] = 0 ;
-                 MELT_LOCATION("warmelt-macro.melt:2804:/ clear");
-                 /*clear*/ /*_#NULL__L20*/ curfnum[19] = 0 ;
-                 MELT_LOCATION("warmelt-macro.melt:2804:/ clear");
-                 /*clear*/ /*_.IFELSE___V78*/ curfptr[77] = 0 ;}
-                ;
-                MELT_LOCATION("warmelt-macro.melt:2798:/ block");
-                /*block*/{
-                 /*_.PROGN___V81*/ curfptr[78] = /*_.LET___V76*/ curfptr[75];;}
-                ;
-                /*_.IFELSE___V73*/ curfptr[63] = /*_.PROGN___V81*/ curfptr[78];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
-                /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V74*/ curfptr[68] = 0 ;
-                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
-                /*clear*/ /*_.SETQ___V75*/ curfptr[74] = 0 ;
-                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
-                /*clear*/ /*_.LET___V76*/ curfptr[75] = 0 ;
-                MELT_LOCATION("warmelt-macro.melt:2798:/ clear");
-                /*clear*/ /*_.PROGN___V81*/ curfptr[78] = 0 ;}
-               ;
-              } else {MELT_LOCATION("warmelt-macro.melt:2798:/ cond.else");
-              
-               MELT_LOCATION("warmelt-macro.melt:2798:/ block");
-               /*block*/{
-                MELT_LOCATION("warmelt-macro.melt:2812:/ block");
-                /*block*/{
-                 MELT_LOCATION("warmelt-macro.melt:2812:/ apply");
-                 /*apply*/{
-                  union meltparam_un argtab[5];
-                  memset(&argtab, 0, sizeof(argtab));
-                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
-                  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V17*/ curfptr[16];
-                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
-                  argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V55*/ curfptr[54];
-                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
-                  argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V59*/ curfptr[58];
-                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
-                  argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-                  MELT_LOCATION("warmelt-macro.melt:2812:/ apply.arg");
-                  argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-                  /*_.FLDA__V82*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-                  }
-                 ;
-                 MELT_LOCATION("warmelt-macro.melt:2813:/ cond");
-                 /*cond*/ if (/*_.FLDA__V82*/ curfptr[79]) /*then*/ {
-                 MELT_LOCATION("warmelt-macro.melt:2813:/ cond.then");
-                 MELT_LOCATION("warmelt-macro.melt:2813:/ block");
-                  /*block*/{
-                   
-                   {
-                   MELT_LOCATION("warmelt-macro.melt:2814:/ locexp");
-                   meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.FLDA__V82*/ curfptr[79]));}
-                   ;
-                   /*epilog*/}
-                  ;
-                 } /*noelse*/
-                 ;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-macro.melt:2812:/ clear");
-                 /*clear*/ /*_.FLDA__V82*/ curfptr[79] = 0 ;}
-                ;
-                MELT_LOCATION("warmelt-macro.melt:2811:/ block");
-                /*block*/{}
-                ;
-                /*epilog*/}
-               ;
-               }
-              ;
-              /*_.IFELSE___V70*/ curfptr[61] = /*_.IFELSE___V73*/ curfptr[63];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
-              /*clear*/ /*_#__L19*/ curfnum[18] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:2794:/ clear");
-              /*clear*/ /*_.IFELSE___V73*/ curfptr[63] = 0 ;}
-             ;
-             }
-            ;
-            /*_.IFELSE___V65*/ curfptr[60] = /*_.IFELSE___V70*/ curfptr[61];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
-            /*clear*/ /*_#__L18*/ curfnum[16] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:2787:/ clear");
-            /*clear*/ /*_.IFELSE___V70*/ curfptr[61] = 0 ;}
-           ;
-           }
-          ;
-          /*_.IFELSE___V60*/ curfptr[59] = /*_.IFELSE___V65*/ curfptr[60];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
-          /*clear*/ /*_#__L16*/ curfnum[14] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:2780:/ clear");
-          /*clear*/ /*_.IFELSE___V65*/ curfptr[60] = 0 ;}
-         ;
-         }
-        ;
-        /*_.LET___V58*/ curfptr[57] = /*_.IFELSE___V60*/ curfptr[59];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2779:/ clear");
-        /*clear*/ /*_.CUREXP__V59*/ curfptr[58] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2779:/ clear");
-        /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2779:/ clear");
-        /*clear*/ /*_.IFELSE___V60*/ curfptr[59] = 0 ;}
-       ;
-       /*_.PAIR_TAIL__V83*/ curfptr[76] = 
-        (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-       MELT_LOCATION("warmelt-macro.melt:2817:/ compute");
-       /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V84*/ curfptr[77] = /*_.PAIR_TAIL__V83*/ curfptr[76];;
-       /*_.LET___V54*/ curfptr[53] = /*_.SETQ___V84*/ curfptr[77];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_.CURFKW__V55*/ curfptr[54] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_.PAIR_TAIL__V56*/ curfptr[55] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_.SETQ___V57*/ curfptr[56] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_.LET___V58*/ curfptr[57] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_.PAIR_TAIL__V83*/ curfptr[76] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2775:/ clear");
-       /*clear*/ /*_.SETQ___V84*/ curfptr[77] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2773:/ clear");
-      /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2773:/ clear");
-      /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2773:/ clear");
-      /*clear*/ /*_.LET___V54*/ curfptr[53] = 0 ;}
-     ;
-     ;
-      goto labloop_INSLOOP_2;
-      labexit_INSLOOP_2:;MELT_LOCATION("warmelt-macro.melt:2773:/ loopepilog");
-    /*loopepilog*/
-     /*_.FOREVER___V52*/ curfptr[36] = /*_.INSLOOP__V53*/ curfptr[52];;
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2819:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:2819:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:2819:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[20]);
-      /*_.FASTUP__V86*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.FLDLIST__V32*/ curfptr[31]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2820:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:2820:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[21])), (10), "CLASS_SOURCE_DEFSELECTOR");/*_.INST__V88*/ curfptr[78] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (1), (/*_.LOC__V17*/ curfptr[16]), "LOCA_LOCATION");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SDEF_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (2), (/*_.SYMB__V20*/ curfptr[19]), "SDEF_NAME");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SOBJ_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (4), (/*_.PREDEF__V12*/ curfptr[11]), "SOBJ_PREDEF");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SINST_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (5), (/*_.CLA__V22*/ curfptr[21]), "SINST_CLASS");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SINST_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (6), (/*_.CLABIND__V24*/ curfptr[23]), "SINST_CLABIND");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (7), (/*_.OBJNUM__V13*/ curfptr[12]), "SINST_OBJNUM");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SINST_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (8), (/*_.FASTUP__V86*/ curfptr[74]), "SINST_FIELDS");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2820:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SDEFSEL_FORMALS", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[78])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V88*/ curfptr[78]), (9), (/*_.FORMALS__V25*/ curfptr[24]), "SDEFSEL_FORMALS");
-      ;
-      /*_.RES__V87*/ curfptr[75] = /*_.INST__V88*/ curfptr[78];;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2830:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:2830:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[22])), (3), "CLASS_SELECTOR_BINDING");/*_.INST__V90*/ curfptr[63] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2830:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[63])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V90*/ curfptr[63]), (0), (/*_.SYMB__V20*/ curfptr[19]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2830:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SBIND_SELECTORDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V90*/ curfptr[63])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V90*/ curfptr[63]), (2), (/*_.RES__V87*/ curfptr[75]), "SBIND_SELECTORDEF");
-      ;
-      /*_.SELBIND__V89*/ curfptr[79] = /*_.INST__V90*/ curfptr[63];;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2835:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:2835:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-macro.melt:2835:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LOC__V17*/ curfptr[16];
-      /*_.WARN_IF_REDEFINED__V91*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2836:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:2836:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SELBIND__V89*/ curfptr[79];
-      /*_.PUT_ENV__V92*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.LET___V85*/ curfptr[68] = /*_.RES__V87*/ curfptr[75];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
-     /*clear*/ /*_.FASTUP__V86*/ curfptr[74] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
-     /*clear*/ /*_.RES__V87*/ curfptr[75] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
-     /*clear*/ /*_.SELBIND__V89*/ curfptr[79] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
-     /*clear*/ /*_.WARN_IF_REDEFINED__V91*/ curfptr[61] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2819:/ clear");
-     /*clear*/ /*_.PUT_ENV__V92*/ curfptr[60] = 0 ;}
-    ;
-    /*_.LET___V30*/ curfptr[29] = /*_.LET___V85*/ curfptr[68];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.BND__V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.FLDLIST__V32*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.SETQ___V47*/ curfptr[42] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.IFCPP___V48*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V50*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.SETQ___V51*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.FOREVER___V52*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2754:/ clear");
-    /*clear*/ /*_.LET___V85*/ curfptr[68] = 0 ;}
-   ;
-   /*_.LET___V28*/ curfptr[27] = /*_.LET___V30*/ curfptr[29];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2751:/ clear");
-   /*clear*/ /*_.NAM__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2751:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2751:/ clear");
-   /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V28*/ curfptr[27];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.PREDEF__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.OBJNUM__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.FIELDS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.FIELDNAMS__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.CONT__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.LOC__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.SYMB__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.CLANAME__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.CLA__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.DOCV__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.CLABIND__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.FORMALS__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2734:/ clear");
-  /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:2730:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:2730:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2730:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_DEFSELECTOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_41_warmelt_macro_MEXPAND_DEFSELECTOR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_42_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_42_warmelt_macro_MEXPAND_INSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 59
-  void* varptr[59];
-#define CURFRAM_NBVARNUM 14
-  long varnum[14];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<59; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 59;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_INSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:2844:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:2844:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:2844:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:2844:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2845:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2845:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:2845:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2845:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2845:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2845:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2845:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2845)?(2845):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2845:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2845:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2845:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2846:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2846:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:2846:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2846:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2846:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2846:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2846:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2846)?(2846):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2846:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2846:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2846:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:2847:/ block");
- /*block*/{
-  /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);;
-  /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-macro.melt:2849:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2850:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.CLANAME__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_.CLA__V17*/ curfptr[16] = (/*nil*/NULL);;
-  /*_.CLABIND__V18*/ curfptr[17] = (/*nil*/NULL);;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:2856:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:2856:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:2856:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_instance start sexpr";
-     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:2856:/ apply.arg");
-     argtab[3].bp_long = 2856;
-     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2856:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2856:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:2856:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_NOT_A__L4*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-macro.melt:2857:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:2857:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:2857:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:2858:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing class symbol for INSTANCE"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2859:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:2859:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:2859:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLANAME__V16*/ curfptr[15];
-    /*_.BND__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.FLDLIST__V23*/ curfptr[22] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-   /*_#IS_A__L5*/ curfnum[4] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));;
-   MELT_LOCATION("warmelt-macro.melt:2863:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2863:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:2863:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:2864:/ compute");
-     /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.BND__V22*/ curfptr[21];;
-     MELT_LOCATION("warmelt-macro.melt:2865:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V26*/ curfptr[25] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2865:/ compute");
-     /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V27*/ curfptr[26] = /*_.CBIND_CLASS__V26*/ curfptr[25];;
-     MELT_LOCATION("warmelt-macro.melt:2863:/ block");
-     /*block*/{
-      /*_.PROGN___V28*/ curfptr[27] = /*_.SETQ___V27*/ curfptr[26];;}
-     ;
-     /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_.CBIND_CLASS__V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:2863:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2863:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));;
-     MELT_LOCATION("warmelt-macro.melt:2867:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:2867:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:2867:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:2868:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V29*/ curfptr[24] = slot; };
-       ;
-       /*_#IS_A__L8*/ curfnum[7] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V29*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
-       /*_#IF___L7*/ curfnum[6] = /*_#IS_A__L8*/ curfnum[7];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.VBIND_VALUE__V29*/ curfptr[24] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:2867:/ cond.else");
-     
-      /*_#IF___L7*/ curfnum[6] = 0;;
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2867:/ cond");
-     /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:2867:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:2867:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:2869:/ compute");
-       /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[26] = /*_.BND__V22*/ curfptr[21];;
-       MELT_LOCATION("warmelt-macro.melt:2870:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V22*/ curfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V32*/ curfptr[27] = slot; };
-       ;
-       MELT_LOCATION("warmelt-macro.melt:2870:/ compute");
-       /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[24] = /*_.VBIND_VALUE__V32*/ curfptr[27];;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ block");
-       /*block*/{
-        /*_.PROGN___V34*/ curfptr[33] = /*_.SETQ___V33*/ curfptr[24];;}
-       ;
-       /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V34*/ curfptr[33];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.SETQ___V31*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.VBIND_VALUE__V32*/ curfptr[27] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.SETQ___V33*/ curfptr[24] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:2867:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:2867:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:2874:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[26] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:2873:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid class name for INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[26]));}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:2875:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-        MELT_LOCATION("warmelt-macro.melt:2875:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:2872:/ block");
-       /*block*/{
-        /*_.PROGN___V37*/ curfptr[24] = /*_.RETURN___V36*/ curfptr[27];;}
-       ;
-       /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V37*/ curfptr[24];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.RETURN___V36*/ curfptr[27] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2867:/ clear");
-       /*clear*/ /*_.PROGN___V37*/ curfptr[24] = 0 ;}
-      ;
-      }
-     ;
-     /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V30*/ curfptr[25];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2863:/ clear");
-     /*clear*/ /*_.IFELSE___V30*/ curfptr[25] = 0 ;}
-    ;
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:2877:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:2877:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:2877:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_instance cla";
-      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
-      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:2877:/ apply.arg");
-      argtab[3].bp_long = 2877;
-      /*_.DEBUG_MSG_FUN__V39*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V38*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2877:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2877:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[26] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:2877:/ cppif.else");
-   /*_.IFCPP___V38*/ curfptr[33] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:2878:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:2878:/ block");
-    /*block*/{
-     /*_#IS_A__L10*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
-     MELT_LOCATION("warmelt-macro.melt:2878:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:2878:/ cond.then");
-     /*_.IFELSE___V41*/ curfptr[24] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-macro.melt:2878:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:2878:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:2878:/ locexp");
-        melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2878)?(2878):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V41*/ curfptr[24] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V40*/ curfptr[27] = /*_.IFELSE___V41*/ curfptr[24];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2878:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2878:/ clear");
-     /*clear*/ /*_.IFELSE___V41*/ curfptr[24] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:2878:/ cppif.else");
-   /*_.IFCPP___V40*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.PAIR_TAIL__V42*/ curfptr[25] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-   MELT_LOCATION("warmelt-macro.melt:2879:/ compute");
-   /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V43*/ curfptr[26] = /*_.PAIR_TAIL__V42*/ curfptr[25];;
-   MELT_LOCATION("warmelt-macro.melt:2880:/ loop");
-   /*loop*/{ labloop_INSLOOP_3:;MELT_LOCATION("warmelt-macro.melt:2880:/ loopbody");
-   
-    MELT_LOCATION("warmelt-macro.melt:2880:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L11*/ curfnum[6] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-     /*_#NOT__L12*/ curfnum[7] = 
-      (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
-     MELT_LOCATION("warmelt-macro.melt:2881:/ cond");
-     /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:2881:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:2881:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:2881:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:2881:/ compute");
-        /*_.INSLOOP__V45*/ curfptr[44] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2881:/ exit");
-        /*exit*/{
-         goto labexit_INSLOOP_3;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2882:/ block");
-     /*block*/{
-      /*_.CURFKW__V46*/ curfptr[45] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-      /*_#IS_NOT_A__L13*/ curfnum[5] = 
-       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));;
-      MELT_LOCATION("warmelt-macro.melt:2883:/ cond");
-      /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:2883:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:2883:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:2884:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting keyword in INSTANCE"), (melt_ptr_t)0);}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_.PAIR_TAIL__V47*/ curfptr[46] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-      MELT_LOCATION("warmelt-macro.melt:2885:/ compute");
-      /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V48*/ curfptr[47] = /*_.PAIR_TAIL__V47*/ curfptr[46];;
-      MELT_LOCATION("warmelt-macro.melt:2886:/ block");
-      /*block*/{
-       /*_.CUREXP__V49*/ curfptr[48] = 
-        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-       MELT_LOCATION("warmelt-macro.melt:2887:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:2887:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[5];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ curfptr[12];
-         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V46*/ curfptr[45];
-         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
-         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V49*/ curfptr[48];
-         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
-         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:2887:/ apply.arg");
-         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-         /*_.FLDA__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:2888:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:2888:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:2888:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_instance flda";
-           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
-           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:2888:/ apply.arg");
-           argtab[3].bp_long = 2888;
-           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.FLDA__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:2888:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:2888:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:2888:/ cppif.else");
-        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-macro.melt:2889:/ cond");
-        /*cond*/ if (/*_.FLDA__V50*/ curfptr[49]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:2889:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:2889:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:2890:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (melt_ptr_t)(/*_.FLDA__V50*/ curfptr[49]));}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:2889:/ cond.else");
-        
-         MELT_LOCATION("warmelt-macro.melt:2889:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:2892:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:2891:/ locexp");
-          melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad field name in INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:2889:/ clear");
-          /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;}
-         ;
-         }
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2887:/ clear");
-        /*clear*/ /*_.FLDA__V50*/ curfptr[49] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2887:/ clear");
-        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:2886:/ clear");
-       /*clear*/ /*_.CUREXP__V49*/ curfptr[48] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
-      /*clear*/ /*_.CURFKW__V46*/ curfptr[45] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
-      /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[46] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2882:/ clear");
-      /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ;}
-     ;
-     /*_.PAIR_TAIL__V54*/ curfptr[51] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-     MELT_LOCATION("warmelt-macro.melt:2894:/ compute");
-     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V55*/ curfptr[49] = /*_.PAIR_TAIL__V54*/ curfptr[51];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
-     /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
-     /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V54*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2880:/ clear");
-     /*clear*/ /*_.SETQ___V55*/ curfptr[49] = 0 ;}
-    ;
-    ;
-     goto labloop_INSLOOP_3;
-     labexit_INSLOOP_3:;MELT_LOCATION("warmelt-macro.melt:2880:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V44*/ curfptr[24] = /*_.INSLOOP__V45*/ curfptr[44];;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:2896:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:2896:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:2896:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[12]);
-     /*_.FASTUP__V57*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2897:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:2897:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[13])), (5), "CLASS_SOURCE_INSTANCE");/*_.INST__V59*/ curfptr[46] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SMINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (2), (/*_.CLA__V17*/ curfptr[16]), "SMINS_CLASS");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SMINS_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (3), (/*_.CLABIND__V18*/ curfptr[17]), "SMINS_CLABIND");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2897:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SMINS_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (4), (/*_.FASTUP__V57*/ curfptr[48]), "SMINS_FIELDS");
-     ;
-     /*_.INST___V58*/ curfptr[45] = /*_.INST__V59*/ curfptr[46];;}
-    ;
-    /*_.LET___V56*/ curfptr[50] = /*_.INST___V58*/ curfptr[45];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2896:/ clear");
-    /*clear*/ /*_.FASTUP__V57*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2896:/ clear");
-    /*clear*/ /*_.INST___V58*/ curfptr[45] = 0 ;}
-   ;
-   /*_.LET___V21*/ curfptr[19] = /*_.LET___V56*/ curfptr[50];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.BND__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.FLDLIST__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.IFCPP___V38*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.IFCPP___V40*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.SETQ___V43*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.FOREVER___V44*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2859:/ clear");
-   /*clear*/ /*_.LET___V56*/ curfptr[50] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.CLANAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.CLA__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.CLABIND__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2847:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:2844:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:2844:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:2844:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2844:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2844:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_42_warmelt_macro_MEXPAND_INSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_43_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_43_warmelt_macro_MEXPAND_LOAD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 37
-  void* varptr[37];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<37; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 37;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_LOAD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:2909:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:2909:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:2909:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:2909:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2910:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2910:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:2910:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_load start sexpr";
-    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:2910:/ apply.arg");
-    argtab[3].bp_long = 2910;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2910:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2910:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2910:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2911:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2911:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:2911:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2911:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2911:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2911:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2911:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2911)?(2911):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2911:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2911:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2911:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2912:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2912:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:2912:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2912:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2912:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2912:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2912:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2912)?(2912):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2912:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2912:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2912:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:2913:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:2913:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2914:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.FILNAM__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_.PAIR_TAIL__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:2918:/ cond");
-  /*cond*/ if (/*_.PAIR_TAIL__V17*/ curfptr[16]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:2918:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:2918:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:2919:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "LOAD expects one argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_A__L4*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-macro.melt:2920:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:2920:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:2920:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:2921:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:2921:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:2921:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.MACROEXPAND_1__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2921:/ compute");
-    /*_.FILNAM__V16*/ curfptr[15] = /*_.SETQ___V20*/ curfptr[19] = /*_.MACROEXPAND_1__V19*/ curfptr[18];;
-    /*_.IF___V18*/ curfptr[17] = /*_.SETQ___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2920:/ clear");
-    /*clear*/ /*_.MACROEXPAND_1__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2920:/ clear");
-    /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:2920:/ cond.else");
-  
-   /*_.IF___V18*/ curfptr[17] = NULL;;
-   }
-  ;
-  /*_#IS_A__L5*/ curfnum[4] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:2922:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:2922:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:2922:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:2923:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[19] = slot; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2923:/ compute");
-    /*_.FILNAM__V16*/ curfptr[15] = /*_.SETQ___V23*/ curfptr[22] = /*_.NAMED_NAME__V22*/ curfptr[19];;
-    /*_.IF___V21*/ curfptr[18] = /*_.SETQ___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2922:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2922:/ clear");
-    /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:2922:/ cond.else");
-  
-   /*_.IF___V21*/ curfptr[18] = NULL;;
-   }
-  ;
-  /*_#IS_STRING__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-macro.melt:2925:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:2925:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:2925:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:2926:/ locexp");
-    melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "; loading file "), (melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]));}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2927:/ block");
-    /*block*/{
-     /*_.CUREAD__V26*/ curfptr[25] = 
-      (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15])), (char*)0));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:2928:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:2928:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:2928:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_load curead";
-        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:2928:/ apply.arg");
-        argtab[3].bp_long = 2928;
-        /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:2928:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:2928:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:2928:/ cppif.else");
-     /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-macro.melt:2929:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:2929:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:2929:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-macro.melt:2929:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-       /*_.EXPLIST__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.CUREAD__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-macro.melt:2930:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:2930:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
-       /*_.EXPTUPLE__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EXPLIST__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-macro.melt:2932:/ cppif.then");
-      MELT_LOCATION("warmelt-macro.melt:2932:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-         callcount;;
-        MELT_LOCATION("warmelt-macro.melt:2932:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
-         argtab[0].bp_cstring =  "mexpand_load return exptuple";
-         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-macro.melt";
-         MELT_LOCATION("warmelt-macro.melt:2932:/ apply.arg");
-         argtab[3].bp_long = 2932;
-         /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.EXPTUPLE__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V32*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:2932:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:2932:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-macro.melt:2932:/ cppif.else");
-      /*_.IFCPP___V32*/ curfptr[31] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-macro.melt:2933:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.EXPTUPLE__V31*/ curfptr[30];;
-       MELT_LOCATION("warmelt-macro.melt:2933:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.LET___V29*/ curfptr[27] = /*_.RETURN___V34*/ curfptr[32];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
-      /*clear*/ /*_.EXPLIST__V30*/ curfptr[29] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
-      /*clear*/ /*_.EXPTUPLE__V31*/ curfptr[30] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
-      /*clear*/ /*_.IFCPP___V32*/ curfptr[31] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2929:/ clear");
-      /*clear*/ /*_.RETURN___V34*/ curfptr[32] = 0 ;}
-     ;
-     /*_.LET___V25*/ curfptr[22] = /*_.LET___V29*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2927:/ clear");
-     /*clear*/ /*_.CUREAD__V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2927:/ clear");
-     /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2927:/ clear");
-     /*clear*/ /*_.LET___V29*/ curfptr[27] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2925:/ block");
-    /*block*/{
-     /*_.PROGN___V35*/ curfptr[29] = /*_.LET___V25*/ curfptr[22];;}
-    ;
-    /*_.IFELSE___V24*/ curfptr[19] = /*_.PROGN___V35*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2925:/ clear");
-    /*clear*/ /*_.LET___V25*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2925:/ clear");
-    /*clear*/ /*_.PROGN___V35*/ curfptr[29] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:2925:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:2925:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:2938:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:2938:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:2938:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
-       argtab[0].bp_cstring =  "mexpand_load strange filnam";
-       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
-       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:2938:/ apply.arg");
-       argtab[3].bp_long = 2938;
-       /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FILNAM__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V36*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[31];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2938:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2938:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:2938:/ cppif.else");
-    /*_.IFCPP___V36*/ curfptr[30] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:2939:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "LOAD expects a string filename"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:2937:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2925:/ clear");
-    /*clear*/ /*_.IFCPP___V36*/ curfptr[30] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V24*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.FILNAM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.IF___V21*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_#IS_STRING__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2913:/ clear");
-  /*clear*/ /*_.IFELSE___V24*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:2909:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:2909:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2909:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_LOAD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_43_warmelt_macro_MEXPAND_LOAD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 36
-  void* varptr[36];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<36; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 36;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PARSE_FIELD_PATTERN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
- /*_.FKEYW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CLA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CLA__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.FLPSEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:2946:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2947:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2947:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:2947:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
-    argtab[0].bp_cstring =  "parse_field_pattern keyw";
-    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:2947:/ apply.arg");
-    argtab[3].bp_long = 2947;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2947:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2947:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2947:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2948:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2948:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:2948:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2948:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2948:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2948:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2948:/ locexp");
-      melt_assert_failed(( "check fkeyw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2948)?(2948):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2948:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2948:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2948:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2949:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2949:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:2949:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2949:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2949:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2949:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2949:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2949)?(2949):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2949:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2949:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2949:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2950:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2950:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-macro.melt:2950:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2950:/ cond.then");
-   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2950:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2950:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2950:/ locexp");
-      melt_assert_failed(( "check pctc"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2950)?(2950):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2950:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2950:/ clear");
-   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2950:/ cppif.else");
- /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2951:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2951:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CLA__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));;
-   MELT_LOCATION("warmelt-macro.melt:2951:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2951:/ cond.then");
-   /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2951:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2951:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2951:/ locexp");
-      melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2951)?(2951):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2951:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2951:/ clear");
-   /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2951:/ cppif.else");
- /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:2952:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:2953:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V3*/ curfptr[2]), 6, "CLASS_FIELDS");/*_.CLAFIELDS__V19*/ curfptr[18] = slot; };
-  ;
-  /*_.FLDBOX__V20*/ curfptr[19] = 
-   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));;
-  MELT_LOCATION("warmelt-macro.melt:2955:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:2955:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-macro.melt:2955:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-macro.melt:2955:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
-   /*_.FLPAT__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2960:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:2960:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:2960:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:2960:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[1] = (melt_ptr_t)(/*_.FLDBOX__V20*/ curfptr[19]);
-   ;
-   /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2958:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:2958:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
-   /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_ITERATE_TEST*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CLAFIELDS__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2970:/ block");
-  /*block*/{
-   /*_.FLD__V26*/ curfptr[25] = 
-    melt_box_content((meltbox_ptr_t)(/*_.FLDBOX__V20*/ curfptr[19]));;
-   /*_#IS_NOT_A__L6*/ curfnum[0] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.FLD__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[10])));;
-   MELT_LOCATION("warmelt-macro.melt:2972:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2972:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:2972:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:2975:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[27] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:2974:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6]), ( "invalid :field in pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[27]));}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2976:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-      MELT_LOCATION("warmelt-macro.melt:2976:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2973:/ block");
-     /*block*/{
-      /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;}
-     ;
-     /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:2972:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2972:/ clear");
-     /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:2972:/ clear");
-     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:2972:/ cond.else");
-   
-    /*_.IF___V27*/ curfptr[26] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:2977:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:2978:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:2978:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FIELD_PATTERN*/ curfrout->tabval[11])), (4), "CLASS_SOURCE_FIELD_PATTERN");/*_.INST__V33*/ curfptr[29] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2978:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V33*/ curfptr[29]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2978:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SPAF_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V33*/ curfptr[29]), (2), (/*_.FLD__V26*/ curfptr[25]), "SPAF_FIELD");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:2978:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SPAF_PATTERN", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V33*/ curfptr[29]), (3), (/*_.FLPAT__V21*/ curfptr[20]), "SPAF_PATTERN");
-     ;
-     /*_.PATF__V32*/ curfptr[28] = /*_.INST__V33*/ curfptr[29];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:2984:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:2984:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:2984:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
-       argtab[0].bp_cstring =  "parse_field_pattern return patf";
-       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:2984:/ apply.arg");
-       argtab[3].bp_long = 2984;
-       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PATF__V32*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:2984:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:2984:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:2984:/ cppif.else");
-    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:2985:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.PATF__V32*/ curfptr[28];;
-     MELT_LOCATION("warmelt-macro.melt:2985:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V31*/ curfptr[27] = /*_.RETURN___V36*/ curfptr[34];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:2977:/ clear");
-    /*clear*/ /*_.PATF__V32*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2977:/ clear");
-    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:2977:/ clear");
-    /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
-   ;
-   /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
-   /*clear*/ /*_.FLD__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
-   /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2970:/ clear");
-   /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;}
-  ;
-  /*_.LET___V18*/ curfptr[16] = /*_.LET___V25*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
-  /*clear*/ /*_.CLAFIELDS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
-  /*clear*/ /*_.FLDBOX__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
-  /*clear*/ /*_.FLPAT__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
-  /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
-  /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2952:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:2946:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V18*/ curfptr[16];;
-  MELT_LOCATION("warmelt-macro.melt:2946:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
- /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2946:/ clear");
- /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PARSE_FIELD_PATTERN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_44_warmelt_macro_PARSE_FIELD_PATTERN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:2960:/ getarg");
- /*_.CFLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:2960:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:2960:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2961:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2961:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:2961:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2961:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2961:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2961:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2961:/ locexp");
-      melt_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2961)?(2961):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2961:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2961:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2961:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:2962:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; };
- ;
- MELT_LOCATION("warmelt-macro.melt:2963:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)((/*~FKEYW*/ curfclos->tabval[0])), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
- ;
- /*_#S__L3*/ curfnum[1] = 
-  melt_string_same((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]), (melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]));;
- MELT_LOCATION("warmelt-macro.melt:2962:/ cond");
- /*cond*/ if (/*_#S__L3*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-macro.melt:2962:/ cond.then");
- MELT_LOCATION("warmelt-macro.melt:2962:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-macro.melt:2965:/ locexp");
-   meltgc_box_put((melt_ptr_t)((/*~FLDBOX*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.CFLD__V2*/ curfptr[1]));}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:2964:/ block");
-   /*block*/{
-    /*_.PROGN___V8*/ curfptr[7] = (/*nil*/NULL);;}
-   ;
-   /*_.IFELSE___V7*/ curfptr[6] = /*_.PROGN___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2962:/ clear");
-   /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-macro.melt:2962:/ cond.else");
- 
-  /*_.IFELSE___V7*/ curfptr[6] = /*_.CFLD__V2*/ curfptr[1];;
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:2960:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[6];;
-  MELT_LOCATION("warmelt-macro.melt:2960:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
- /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
- /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
- /*clear*/ /*_#S__L3*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2960:/ clear");
- /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_45_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_46_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_macro_PATEXPAND_INSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 62
-  void* varptr[62];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<62; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 62;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_INSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:2988:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:2988:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:2988:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:2988:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2989:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2989:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:2989:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2989:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2989:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2989:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2989:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2989)?(2989):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2989:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2989:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2989:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2990:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2990:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:2990:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2990:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2990:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2990:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2990:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2990)?(2990):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2990:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2990:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2990:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2991:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2991:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:2991:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:2991:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:2991:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:2991:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:2991:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (2991)?(2991):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2991:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2991:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2991:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:2992:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:2992:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:2992:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_instance sexpr";
-    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:2992:/ apply.arg");
-    argtab[3].bp_long = 2992;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:2992:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:2992:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:2992:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:2993:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:2994:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:2995:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.FIELDS__V16*/ curfptr[15] = (/*nil*/NULL);;
-  /*_.FIELDNAMS__V17*/ curfptr[16] = (/*nil*/NULL);;
-  /*_.LIST_FIRST__V18*/ curfptr[17] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V19*/ curfptr[18] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
-  /*_.CLANAME__V20*/ curfptr[19] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-  /*_.CLA__V21*/ curfptr[20] = (/*nil*/NULL);;
-  /*_.CLABIND__V22*/ curfptr[21] = (/*nil*/NULL);;
-  /*_#IS_NOT_A__L5*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:3003:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3003:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3003:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3004:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for INSTANCE pattern"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3005:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3005:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3005:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLANAME__V20*/ curfptr[19];
-    /*_.BND__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.FLDLIST__V25*/ curfptr[24] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-   /*_#IS_A__L6*/ curfnum[5] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[7])));;
-   MELT_LOCATION("warmelt-macro.melt:3009:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3009:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3009:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3010:/ compute");
-     /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];;
-     MELT_LOCATION("warmelt-macro.melt:3011:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ curfptr[27] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3011:/ compute");
-     /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];;
-     MELT_LOCATION("warmelt-macro.melt:3009:/ block");
-     /*block*/{
-      /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;}
-     ;
-     /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:3009:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3009:/ block");
-    /*block*/{
-     /*_#IS_A__L7*/ curfnum[6] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));;
-     MELT_LOCATION("warmelt-macro.melt:3013:/ cond");
-     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3013:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3013:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3014:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ curfptr[26] = slot; };
-       ;
-       /*_#IS_A__L9*/ curfnum[8] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V31*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
-       /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3013:/ cond.else");
-     
-      /*_#IF___L8*/ curfnum[7] = 0;;
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3013:/ cond");
-     /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3013:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3013:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3015:/ compute");
-       /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];;
-       MELT_LOCATION("warmelt-macro.melt:3016:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ curfptr[29] = slot; };
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3016:/ compute");
-       /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ block");
-       /*block*/{
-        /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;}
-       ;
-       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3013:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3013:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3020:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[28] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:3019:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "invalid class name for INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[28]));}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3021:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-        MELT_LOCATION("warmelt-macro.melt:3021:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3018:/ block");
-       /*block*/{
-        /*_.PROGN___V39*/ curfptr[26] = /*_.RETURN___V38*/ curfptr[29];;}
-       ;
-       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V39*/ curfptr[26];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.RETURN___V38*/ curfptr[29] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3013:/ clear");
-       /*clear*/ /*_.PROGN___V39*/ curfptr[26] = 0 ;}
-      ;
-      }
-     ;
-     /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3009:/ clear");
-     /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;}
-    ;
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3023:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3023:/ block");
-    /*block*/{
-     /*_#IS_A__L10*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CLA__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
-     MELT_LOCATION("warmelt-macro.melt:3023:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3023:/ cond.then");
-     /*_.IFELSE___V41*/ curfptr[28] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-macro.melt:3023:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3023:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3023:/ locexp");
-        melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3023)?(3023):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V40*/ curfptr[35] = /*_.IFELSE___V41*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3023:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3023:/ clear");
-     /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3023:/ cppif.else");
-   /*_.IFCPP___V40*/ curfptr[35] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.PAIR_TAIL__V42*/ curfptr[29] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-   MELT_LOCATION("warmelt-macro.melt:3024:/ compute");
-   /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V43*/ curfptr[26] = /*_.PAIR_TAIL__V42*/ curfptr[29];;
-   MELT_LOCATION("warmelt-macro.melt:3026:/ loop");
-   /*loop*/{ labloop_INSLOOP_4:;MELT_LOCATION("warmelt-macro.melt:3026:/ loopbody");
-   
-    MELT_LOCATION("warmelt-macro.melt:3026:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L11*/ curfnum[6] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);;
-     /*_#NOT__L12*/ curfnum[7] = 
-      (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
-     MELT_LOCATION("warmelt-macro.melt:3028:/ cond");
-     /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3028:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3028:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3028:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3028:/ compute");
-        /*_.INSLOOP__V45*/ curfptr[28] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3028:/ exit");
-        /*exit*/{
-         goto labexit_INSLOOP_4;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3029:/ block");
-     /*block*/{
-      /*_.CURFKW__V46*/ curfptr[45] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-      /*_#IS_NOT_A__L13*/ curfnum[8] = 
-       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[10])));;
-      MELT_LOCATION("warmelt-macro.melt:3030:/ cond");
-      /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:3030:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:3030:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3031:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in INSTANCE"), (melt_ptr_t)0);}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_.PAIR_TAIL__V47*/ curfptr[46] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-      MELT_LOCATION("warmelt-macro.melt:3032:/ compute");
-      /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V48*/ curfptr[47] = /*_.PAIR_TAIL__V47*/ curfptr[46];;
-      MELT_LOCATION("warmelt-macro.melt:3033:/ block");
-      /*block*/{
-       /*_.CUREXP__V49*/ curfptr[48] = 
-        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-       MELT_LOCATION("warmelt-macro.melt:3034:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3034:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[5];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLA__V21*/ curfptr[20];
-         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V49*/ curfptr[48];
-         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
-         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
-         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-         MELT_LOCATION("warmelt-macro.melt:3034:/ apply.arg");
-         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-         /*_.FLDP__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_PATTERN*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3035:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3035:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3035:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
-           argtab[0].bp_cstring =  "patexpand_instance fldp";
-           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
-           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3035:/ apply.arg");
-           argtab[3].bp_long = 3035;
-           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3035:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3035:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3035:/ cppif.else");
-        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-macro.melt:3036:/ cond");
-        /*cond*/ if (/*_.FLDP__V50*/ curfptr[49]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3036:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3036:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3037:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]));}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:3036:/ cond.else");
-        
-         MELT_LOCATION("warmelt-macro.melt:3036:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3039:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3038:/ locexp");
-          melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "bad field name in INSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3036:/ clear");
-          /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;}
-         ;
-         }
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3034:/ clear");
-        /*clear*/ /*_.FLDP__V50*/ curfptr[49] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3034:/ clear");
-        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3033:/ clear");
-       /*clear*/ /*_.CUREXP__V49*/ curfptr[48] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
-      /*clear*/ /*_.CURFKW__V46*/ curfptr[45] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
-      /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[46] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3029:/ clear");
-      /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ;}
-     ;
-     /*_.PAIR_TAIL__V54*/ curfptr[51] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-     MELT_LOCATION("warmelt-macro.melt:3041:/ compute");
-     /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V55*/ curfptr[49] = /*_.PAIR_TAIL__V54*/ curfptr[51];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
-     /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
-     /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V54*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3026:/ clear");
-     /*clear*/ /*_.SETQ___V55*/ curfptr[49] = 0 ;}
-    ;
-    ;
-     goto labloop_INSLOOP_4;
-     labexit_INSLOOP_4:;MELT_LOCATION("warmelt-macro.melt:3026:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V44*/ curfptr[27] = /*_.INSLOOP__V45*/ curfptr[28];;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3043:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3046:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3046:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
-     /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3043:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3043:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_INSTANCE*/ curfrout->tabval[12])), (4), "CLASS_SOURCE_PATTERN_INSTANCE");/*_.INST__V59*/ curfptr[46] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3043:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3043:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SPAT_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (2), (/*_.CLA__V21*/ curfptr[20]), "SPAT_CLASS");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3043:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SPAT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (3), (/*_.LIST_TO_MULTIPLE__V57*/ curfptr[48]), "SPAT_FIELDS");
-     ;
-     /*_.SPATI__V58*/ curfptr[45] = /*_.INST__V59*/ curfptr[46];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:3048:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:3048:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:3048:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
-       argtab[0].bp_cstring =  "patexpand_instance return spati";
-       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
-       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:3048:/ apply.arg");
-       argtab[3].bp_long = 3048;
-       /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SPATI__V58*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V60*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[51];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3048:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3048:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:3048:/ cppif.else");
-    /*_.IFCPP___V60*/ curfptr[47] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:3049:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V58*/ curfptr[45];;
-     MELT_LOCATION("warmelt-macro.melt:3049:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V56*/ curfptr[50] = /*_.RETURN___V62*/ curfptr[49];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
-    /*clear*/ /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
-    /*clear*/ /*_.SPATI__V58*/ curfptr[45] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
-    /*clear*/ /*_.IFCPP___V60*/ curfptr[47] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3043:/ clear");
-    /*clear*/ /*_.RETURN___V62*/ curfptr[49] = 0 ;}
-   ;
-   /*_.LET___V23*/ curfptr[22] = /*_.LET___V56*/ curfptr[50];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.IFCPP___V40*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.SETQ___V43*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.FOREVER___V44*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3005:/ clear");
-   /*clear*/ /*_.LET___V56*/ curfptr[50] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:2993:/ clear");
-  /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:2988:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:2988:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:2988:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_46_warmelt_macro_PATEXPAND_INSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_47_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_macro_PATEXPAND_OBJECT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 62
-  void* varptr[62];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<62; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 62;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_OBJECT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3069:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3069:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3069:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3069:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3070:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3070:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3070:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3070:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3070:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3070:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3070:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3070)?(3070):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3070:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3070:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3070:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3071:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3071:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3071:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3071:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3071:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3071:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3071:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3071)?(3071):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3071:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3071:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3071:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3072:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3072:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3072:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3072:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3072:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3072:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3072:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3072)?(3072):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3072:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3072:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3072:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3073:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3073:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3073:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_object sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3073:/ apply.arg");
-    argtab[3].bp_long = 3073;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3073:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3073:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3073:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3074:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3075:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3076:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.FIELDS__V16*/ curfptr[15] = (/*nil*/NULL);;
-  /*_.FIELDNAMS__V17*/ curfptr[16] = (/*nil*/NULL);;
-  /*_.LIST_FIRST__V18*/ curfptr[17] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V19*/ curfptr[18] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
-  /*_.CLANAME__V20*/ curfptr[19] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-  /*_.CLA__V21*/ curfptr[20] = (/*nil*/NULL);;
-  /*_.CLABIND__V22*/ curfptr[21] = (/*nil*/NULL);;
-  /*_#IS_NOT_A__L5*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:3084:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3084:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3084:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3085:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for  OBJECT pattern"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3086:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3086:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3086:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLANAME__V20*/ curfptr[19];
-    /*_.BND__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.FLDLIST__V25*/ curfptr[24] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-   /*_#IS_A__L6*/ curfnum[5] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[7])));;
-   MELT_LOCATION("warmelt-macro.melt:3090:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3090:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3090:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3091:/ compute");
-     /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];;
-     MELT_LOCATION("warmelt-macro.melt:3092:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ curfptr[27] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3092:/ compute");
-     /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];;
-     MELT_LOCATION("warmelt-macro.melt:3090:/ block");
-     /*block*/{
-      /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;}
-     ;
-     /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:3090:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3090:/ block");
-    /*block*/{
-     /*_#IS_A__L7*/ curfnum[6] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));;
-     MELT_LOCATION("warmelt-macro.melt:3094:/ cond");
-     /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3094:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3094:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3095:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ curfptr[26] = slot; };
-       ;
-       /*_#IS_A__L9*/ curfnum[8] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V31*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
-       /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3094:/ cond.else");
-     
-      /*_#IF___L8*/ curfnum[7] = 0;;
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3094:/ cond");
-     /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3094:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3094:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3096:/ compute");
-       /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];;
-       MELT_LOCATION("warmelt-macro.melt:3097:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ curfptr[29] = slot; };
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3097:/ compute");
-       /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ block");
-       /*block*/{
-        /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;}
-       ;
-       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3094:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3094:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3101:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[28] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:3100:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "invalid class name for OBJECT pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[28]));}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3102:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-        MELT_LOCATION("warmelt-macro.melt:3102:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3099:/ block");
-       /*block*/{
-        /*_.PROGN___V39*/ curfptr[26] = /*_.RETURN___V38*/ curfptr[29];;}
-       ;
-       /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V39*/ curfptr[26];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.RETURN___V38*/ curfptr[29] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3094:/ clear");
-       /*clear*/ /*_.PROGN___V39*/ curfptr[26] = 0 ;}
-      ;
-      }
-     ;
-     /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3090:/ clear");
-     /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;}
-    ;
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3104:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3104:/ block");
-    /*block*/{
-     /*_#IS_A__L10*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CLA__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));;
-     MELT_LOCATION("warmelt-macro.melt:3104:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3104:/ cond.then");
-     /*_.IFELSE___V41*/ curfptr[28] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-macro.melt:3104:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3104:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3104:/ locexp");
-        melt_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3104)?(3104):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V40*/ curfptr[35] = /*_.IFELSE___V41*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3104:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3104:/ clear");
-     /*clear*/ /*_.IFELSE___V41*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3104:/ cppif.else");
-   /*_.IFCPP___V40*/ curfptr[35] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.PAIR_TAIL__V42*/ curfptr[29] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-   MELT_LOCATION("warmelt-macro.melt:3105:/ compute");
-   /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V43*/ curfptr[26] = /*_.PAIR_TAIL__V42*/ curfptr[29];;
-   MELT_LOCATION("warmelt-macro.melt:3107:/ loop");
-   /*loop*/{ labloop_INSLOOP_5:;MELT_LOCATION("warmelt-macro.melt:3107:/ loopbody");
-   
-    MELT_LOCATION("warmelt-macro.melt:3107:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L11*/ curfnum[6] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);;
-     /*_#NOT__L12*/ curfnum[7] = 
-      (!(/*_#IS_PAIR__L11*/ curfnum[6]));;
-     MELT_LOCATION("warmelt-macro.melt:3109:/ cond");
-     /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3109:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3109:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3109:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3109:/ compute");
-        /*_.INSLOOP__V45*/ curfptr[28] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3109:/ exit");
-        /*exit*/{
-         goto labexit_INSLOOP_5;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3110:/ block");
-     /*block*/{
-      /*_.CURFKW__V46*/ curfptr[45] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-      /*_#IS_NOT_A__L13*/ curfnum[8] = 
-       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[10])));;
-      MELT_LOCATION("warmelt-macro.melt:3111:/ cond");
-      /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:3111:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:3111:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3112:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in OBJECT pattern"), (melt_ptr_t)0);}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_.PAIR_TAIL__V47*/ curfptr[46] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-      MELT_LOCATION("warmelt-macro.melt:3113:/ compute");
-      /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V48*/ curfptr[47] = /*_.PAIR_TAIL__V47*/ curfptr[46];;
-      MELT_LOCATION("warmelt-macro.melt:3114:/ block");
-      /*block*/{
-       /*_.CUREXP__V49*/ curfptr[48] = 
-        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-       MELT_LOCATION("warmelt-macro.melt:3115:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3115:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[5];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLA__V21*/ curfptr[20];
-         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V49*/ curfptr[48];
-         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
-         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
-         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-         MELT_LOCATION("warmelt-macro.melt:3115:/ apply.arg");
-         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-         /*_.FLDP__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_PATTERN*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3116:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3116:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3116:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
-           argtab[0].bp_cstring =  "patexpand_object fldp";
-           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
-           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3116:/ apply.arg");
-           argtab[3].bp_long = 3116;
-           /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3116:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3116:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3116:/ cppif.else");
-        /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-macro.melt:3117:/ cond");
-        /*cond*/ if (/*_.FLDP__V50*/ curfptr[49]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3117:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3117:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3118:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FLDP__V50*/ curfptr[49]));}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:3117:/ cond.else");
-        
-         MELT_LOCATION("warmelt-macro.melt:3117:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3120:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFKW__V46*/ curfptr[45]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3119:/ locexp");
-          melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "bad field name in OBJECT pattern"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3117:/ clear");
-          /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;}
-         ;
-         }
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3115:/ clear");
-        /*clear*/ /*_.FLDP__V50*/ curfptr[49] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3115:/ clear");
-        /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3114:/ clear");
-       /*clear*/ /*_.CUREXP__V49*/ curfptr[48] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
-      /*clear*/ /*_.CURFKW__V46*/ curfptr[45] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
-      /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[46] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3110:/ clear");
-      /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ;}
-     ;
-     /*_.PAIR_TAIL__V54*/ curfptr[51] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));;
-     MELT_LOCATION("warmelt-macro.melt:3122:/ compute");
-     /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V55*/ curfptr[49] = /*_.PAIR_TAIL__V54*/ curfptr[51];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
-     /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
-     /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V54*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3107:/ clear");
-     /*clear*/ /*_.SETQ___V55*/ curfptr[49] = 0 ;}
-    ;
-    ;
-     goto labloop_INSLOOP_5;
-     labexit_INSLOOP_5:;MELT_LOCATION("warmelt-macro.melt:3107:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V44*/ curfptr[27] = /*_.INSLOOP__V45*/ curfptr[28];;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3124:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3127:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3127:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
-     /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3124:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3124:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OBJECT*/ curfrout->tabval[12])), (4), "CLASS_SOURCE_PATTERN_OBJECT");/*_.INST__V59*/ curfptr[46] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3124:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3124:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SPAT_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (2), (/*_.CLA__V21*/ curfptr[20]), "SPAT_CLASS");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3124:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SPAT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[46])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V59*/ curfptr[46]), (3), (/*_.LIST_TO_MULTIPLE__V57*/ curfptr[48]), "SPAT_FIELDS");
-     ;
-     /*_.SPATI__V58*/ curfptr[45] = /*_.INST__V59*/ curfptr[46];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:3129:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:3129:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:3129:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
-       argtab[0].bp_cstring =  "patexpand_object return spati";
-       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
-       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:3129:/ apply.arg");
-       argtab[3].bp_long = 3129;
-       /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SPATI__V58*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V60*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[51];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3129:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3129:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[51] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:3129:/ cppif.else");
-    /*_.IFCPP___V60*/ curfptr[47] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:3130:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V58*/ curfptr[45];;
-     MELT_LOCATION("warmelt-macro.melt:3130:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V56*/ curfptr[50] = /*_.RETURN___V62*/ curfptr[49];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
-    /*clear*/ /*_.LIST_TO_MULTIPLE__V57*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
-    /*clear*/ /*_.SPATI__V58*/ curfptr[45] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
-    /*clear*/ /*_.IFCPP___V60*/ curfptr[47] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3124:/ clear");
-    /*clear*/ /*_.RETURN___V62*/ curfptr[49] = 0 ;}
-   ;
-   /*_.LET___V23*/ curfptr[22] = /*_.LET___V56*/ curfptr[50];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.IFCPP___V40*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.SETQ___V43*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.FOREVER___V44*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3086:/ clear");
-   /*clear*/ /*_.LET___V56*/ curfptr[50] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3074:/ clear");
-  /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3069:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3069:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3069:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_OBJECT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_47_warmelt_macro_PATEXPAND_OBJECT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_48_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_macro_MEXPAND_OBJECT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_OBJECT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3134:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3134:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3134:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3134:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3135:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3135:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3135:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3135:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3135:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3135:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3135:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3135)?(3135):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3135:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3135:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3135:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3136:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3136:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3136:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3136:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3136:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3136:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3136:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3136)?(3136):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3136:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3136:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3136:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3137:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3137:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3137:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_object sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3137:/ apply.arg");
-    argtab[3].bp_long = 3137;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3137:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3137:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3137:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3138:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3139:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-macro.melt:3141:/ locexp");
-  melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"), (melt_ptr_t)0);}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3142:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-   MELT_LOCATION("warmelt-macro.melt:3142:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3138:/ clear");
-  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3138:/ clear");
-  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3134:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3134:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3134:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_OBJECT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_48_warmelt_macro_MEXPAND_OBJECT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 40
-  void* varptr[40];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<40; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 40;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_CODE_CHUNK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3157:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3157:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3157:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3157:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3158:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3158:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3158:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3158:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3158:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3158:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3158:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3158)?(3158):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3158:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3158:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3158:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3159:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3159:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3159:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3159:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3159:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3159:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3159:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3159)?(3159):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3159:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3159:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3159:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3160:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3160:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3161:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.CURCHK__V14*/ curfptr[13] = (/*nil*/NULL);;
-  /*_.GSYM__V15*/ curfptr[14] = (/*nil*/NULL);;
-  /*_.CHKLIST__V16*/ curfptr[15] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_.CUREL__V17*/ curfptr[16] = (/*nil*/NULL);;
-  /*_.PAIR_HEAD__V18*/ curfptr[17] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3168:/ compute");
-  /*_.CUREL__V17*/ curfptr[16] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_HEAD__V18*/ curfptr[17];;
-  /*_#IS_A__L3*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CUREL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-macro.melt:3169:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3169:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3169:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3170:/ compute");
-    /*_.GSYM__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.CUREL__V17*/ curfptr[16];;
-    /*_.IFELSE___V20*/ curfptr[19] = /*_.SETQ___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3169:/ clear");
-    /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3169:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:3169:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3171:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "missing symbol in (CODE_CHUNK <state-symbol> <chunk>)"), (melt_ptr_t)0);}
-     ;
-     /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  /*_.PAIR_TAIL__V22*/ curfptr[20] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3172:/ compute");
-  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[20];;
-  /*_.PAIR_HEAD__V24*/ curfptr[23] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3173:/ compute");
-  /*_.CURCHK__V14*/ curfptr[13] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_HEAD__V24*/ curfptr[23];;
-  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3174:/ cond");
-  /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3174:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3174:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3175:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "CODE_CHUNK expects one single chunk sexpr"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_NOT_A__L4*/ curfnum[3] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-  MELT_LOCATION("warmelt-macro.melt:3176:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3176:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3176:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3177:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "CODE_CHUNK expects a chunk sexpr"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3178:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3178:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3178:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3178:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), 1, "LOCA_LOCATION");/*_.LOC__V28*/ curfptr[27] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:3178:/ cond.else");
-   
-    /*_.LOC__V28*/ curfptr[27] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3179:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])))) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3179:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3179:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), 2, "SEXP_CONTENTS");/*_.CHKCONT__V29*/ curfptr[28] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:3179:/ cond.else");
-   
-    /*_.CHKCONT__V29*/ curfptr[28] = NULL;;
-    }
-   ;
-   /*citerblock FOREACH_IN_LIST*/ {
-   /* start cit1__EACHLIST */
-   for (/*_.CURPAIR__V30*/ curfptr[29] = melt_list_first(/*_.CHKCONT__V29*/ curfptr[28]);
-	melt_magic_discr(/*_.CURPAIR__V30*/ curfptr[29]) == OBMAG_PAIR;
-        /*_.CURPAIR__V30*/ curfptr[29] = melt_pair_tail(/*_.CURPAIR__V30*/ curfptr[29])) {
-	/*_.CURCOMP__V31*/ curfptr[30] = melt_pair_head(/*_.CURPAIR__V30*/ curfptr[29]); 
-   
-    /*_#IS_STRING__L5*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-macro.melt:3184:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3184:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3184:/ block");
-     /*block*/{
-      /*_.MAKE_STRING__V32*/ curfptr[31] = 
-       (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[5])), 
-			  melt_string_str((melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]))));;
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3185:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (melt_ptr_t)(/*_.MAKE_STRING__V32*/ curfptr[31]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3184:/ clear");
-      /*clear*/ /*_.MAKE_STRING__V32*/ curfptr[31] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:3184:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:3184:/ block");
-     /*block*/{
-      /*_#IS_A__L6*/ curfnum[5] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-      MELT_LOCATION("warmelt-macro.melt:3187:/ cond");
-      /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:3187:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:3187:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3188:/ locexp");
-        meltgc_append_list((melt_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (melt_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]));}
-        ;
-        /*epilog*/}
-       ;
-      } else {MELT_LOCATION("warmelt-macro.melt:3187:/ cond.else");
-      
-       MELT_LOCATION("warmelt-macro.melt:3187:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3190:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V28*/ curfptr[27]), ( "bad content in CODE_CHUNK - expecting string or symbol"), (melt_ptr_t)0);}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3189:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3184:/ clear");
-      /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;}
-     ;
-     }
-    ;
-    } /* end cit1__EACHLIST */
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-macro.melt:3181:/ clear");
-    /*clear*/ /*_.CURPAIR__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3181:/ clear");
-    /*clear*/ /*_.CURCOMP__V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3181:/ clear");
-    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3192:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3193:/ cond");
-    /*cond*/ if (/*_.LOC__V28*/ curfptr[27]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3193:/ cond.then");
-    /*_.OR___V34*/ curfptr[33] = /*_.LOC__V28*/ curfptr[27];;
-    } else {MELT_LOCATION("warmelt-macro.melt:3193:/ cond.else");
-    
-     /*_.OR___V34*/ curfptr[33] = /*_.SLOC__V11*/ curfptr[10];;
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3195:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3195:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]);
-     /*_.LIST_TO_MULTIPLE__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3192:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3192:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CODECHUNK*/ curfrout->tabval[6])), (4), "CLASS_SOURCE_CODECHUNK");/*_.INST__V37*/ curfptr[36] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3192:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.OR___V34*/ curfptr[33]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3192:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SCH_GENSYM", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.GSYM__V15*/ curfptr[14]), "SCH_GENSYM");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3192:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SCH_CHUNKS", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (3), (/*_.LIST_TO_MULTIPLE__V35*/ curfptr[34]), "SCH_CHUNKS");
-     ;
-     /*_.MRES__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:3197:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:3197:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:3197:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
-       argtab[0].bp_cstring =  "mexpand_code_chunk result";
-       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:3197:/ apply.arg");
-       argtab[3].bp_long = 3197;
-       /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.MRES__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3197:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3197:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:3197:/ cppif.else");
-    /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:3198:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.MRES__V36*/ curfptr[35];;
-     MELT_LOCATION("warmelt-macro.melt:3198:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V33*/ curfptr[31] = /*_.RETURN___V40*/ curfptr[38];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
-    /*clear*/ /*_.OR___V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
-    /*clear*/ /*_.LIST_TO_MULTIPLE__V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
-    /*clear*/ /*_.MRES__V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
-    /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3192:/ clear");
-    /*clear*/ /*_.RETURN___V40*/ curfptr[38] = 0 ;}
-   ;
-   /*_.LET___V27*/ curfptr[26] = /*_.LET___V33*/ curfptr[31];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3178:/ clear");
-   /*clear*/ /*_.LOC__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3178:/ clear");
-   /*clear*/ /*_.CHKCONT__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3178:/ clear");
-   /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V27*/ curfptr[26];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.SLOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.CURCHK__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.GSYM__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.CHKLIST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.CUREL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3160:/ clear");
-  /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3157:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:3157:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3157:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3157:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3157:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_CODE_CHUNK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_49_warmelt_macro_MEXPAND_CODE_CHUNK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 35
-  void* varptr[35];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<35; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 35;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3208:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3208:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3208:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3208:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3209:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3209:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3209:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3209:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3209:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3209:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3209:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3209)?(3209):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3209:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3209:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3209:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3210:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3210:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3210:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3210:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3210:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3210:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3210:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3210)?(3210):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3210:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3210:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3210:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3211:/ block");
- /*block*/{
-  /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);;
-  /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-macro.melt:3213:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3214:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.OBJSRC__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#IS_A__L3*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-  MELT_LOCATION("warmelt-macro.melt:3218:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3218:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3218:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3219:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3219:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:3219:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.MACROEXPAND_1__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.OBJEXP__V17*/ curfptr[16] = /*_.MACROEXPAND_1__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3218:/ clear");
-    /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3218:/ cond.else");
-  
-   /*_.OBJEXP__V17*/ curfptr[16] = /*_.OBJSRC__V16*/ curfptr[15];;
-   }
-  ;
-  /*_.PAIR_TAIL__V19*/ curfptr[17] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:3222:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];;
-  MELT_LOCATION("warmelt-macro.melt:3223:/ block");
-  /*block*/{
-   /*_.FLDLIST__V22*/ curfptr[21] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-   MELT_LOCATION("warmelt-macro.melt:3225:/ loop");
-   /*loop*/{ labloop_INSLOOP_6:;MELT_LOCATION("warmelt-macro.melt:3225:/ loopbody");
-   
-    MELT_LOCATION("warmelt-macro.melt:3225:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L4*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-     /*_#NOT__L5*/ curfnum[4] = 
-      (!(/*_#IS_PAIR__L4*/ curfnum[3]));;
-     MELT_LOCATION("warmelt-macro.melt:3226:/ cond");
-     /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3226:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3226:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3226:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3226:/ compute");
-        /*_.INSLOOP__V24*/ curfptr[23] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3226:/ exit");
-        /*exit*/{
-         goto labexit_INSLOOP_6;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3227:/ block");
-     /*block*/{
-      /*_.CURFKW__V25*/ curfptr[24] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-      /*_#IS_NOT_A__L6*/ curfnum[5] = 
-       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-macro.melt:3228:/ cond");
-      /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:3228:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:3228:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3229:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in UNSAFE_PUT_FIELDS"), (melt_ptr_t)0);}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_.PAIR_TAIL__V26*/ curfptr[25] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-      MELT_LOCATION("warmelt-macro.melt:3230:/ compute");
-      /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
-      MELT_LOCATION("warmelt-macro.melt:3231:/ block");
-      /*block*/{
-       /*_.CUREXP__V28*/ curfptr[27] = 
-        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-       MELT_LOCATION("warmelt-macro.melt:3232:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3232:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[5];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ curfptr[12];
-         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24];
-         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
-         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27];
-         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
-         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3232:/ apply.arg");
-         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-         /*_.FLDA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3233:/ cond");
-        /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3233:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3233:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3234:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ curfptr[28]));}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3232:/ clear");
-        /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3231:/ clear");
-       /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
-      /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
-      /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3227:/ clear");
-      /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;}
-     ;
-     /*_.PAIR_TAIL__V30*/ curfptr[28] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-     MELT_LOCATION("warmelt-macro.melt:3236:/ compute");
-     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
-     /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
-     /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3225:/ clear");
-     /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;}
-    ;
-    ;
-     goto labloop_INSLOOP_6;
-     labexit_INSLOOP_6:;MELT_LOCATION("warmelt-macro.melt:3225:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3238:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3238:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3238:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
-     /*_.FASTUP__V33*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3239:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3239:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ curfrout->tabval[8])), (4), "CLASS_SOURCE_UNSAFE_PUT_FIELDS");/*_.INST__V35*/ curfptr[28] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3239:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3239:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (2), (/*_.OBJEXP__V17*/ curfptr[16]), "SUPUT_OBJ");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3239:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (3), (/*_.FASTUP__V33*/ curfptr[25]), "SUPUT_FIELDS");
-     ;
-     /*_.INST___V34*/ curfptr[26] = /*_.INST__V35*/ curfptr[28];;}
-    ;
-    /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3238:/ clear");
-    /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3238:/ clear");
-    /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;}
-   ;
-   /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3223:/ clear");
-   /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3223:/ clear");
-   /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3223:/ clear");
-   /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3211:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3208:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:3208:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3208:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3208:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3208:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_UNSAFE_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_50_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 35
-  void* varptr[35];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<35; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 35;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_PUT_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3248:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3248:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3248:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3248:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3249:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3249:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3249:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3249:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3249:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3249:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3249:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3249)?(3249):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3249:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3249:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3249:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3250:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3250:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3250:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3250:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3250:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3250:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3250:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3250)?(3250):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3250:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3250:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3250:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3251:/ block");
- /*block*/{
-  /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);;
-  /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-macro.melt:3253:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3254:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.OBJSRC__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#IS_A__L3*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-  MELT_LOCATION("warmelt-macro.melt:3258:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3258:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3258:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3259:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3259:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:3259:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.MACROEXPAND_1__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.OBJEXP__V17*/ curfptr[16] = /*_.MACROEXPAND_1__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3258:/ clear");
-    /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3258:/ cond.else");
-  
-   /*_.OBJEXP__V17*/ curfptr[16] = /*_.OBJSRC__V16*/ curfptr[15];;
-   }
-  ;
-  /*_.PAIR_TAIL__V19*/ curfptr[17] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:3262:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];;
-  MELT_LOCATION("warmelt-macro.melt:3263:/ block");
-  /*block*/{
-   /*_.FLDLIST__V22*/ curfptr[21] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-   MELT_LOCATION("warmelt-macro.melt:3265:/ loop");
-   /*loop*/{ labloop_INSLOOP_7:;MELT_LOCATION("warmelt-macro.melt:3265:/ loopbody");
-   
-    MELT_LOCATION("warmelt-macro.melt:3265:/ block");
-    /*block*/{
-     /*_#IS_PAIR__L4*/ curfnum[3] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-     /*_#NOT__L5*/ curfnum[4] = 
-      (!(/*_#IS_PAIR__L4*/ curfnum[3]));;
-     MELT_LOCATION("warmelt-macro.melt:3266:/ cond");
-     /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3266:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3266:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3266:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3266:/ compute");
-        /*_.INSLOOP__V24*/ curfptr[23] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3266:/ exit");
-        /*exit*/{
-         goto labexit_INSLOOP_7;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3267:/ block");
-     /*block*/{
-      /*_.CURFKW__V25*/ curfptr[24] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-      /*_#IS_NOT_A__L6*/ curfnum[5] = 
-       !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-macro.melt:3268:/ cond");
-      /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:3268:/ cond.then");
-      MELT_LOCATION("warmelt-macro.melt:3268:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3269:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in PUT_FIELDS"), (melt_ptr_t)0);}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*_.PAIR_TAIL__V26*/ curfptr[25] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-      MELT_LOCATION("warmelt-macro.melt:3270:/ compute");
-      /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
-      MELT_LOCATION("warmelt-macro.melt:3271:/ block");
-      /*block*/{
-       /*_.CUREXP__V28*/ curfptr[27] = 
-        (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-       MELT_LOCATION("warmelt-macro.melt:3272:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3272:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[5];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V13*/ curfptr[12];
-         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24];
-         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
-         argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27];
-         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
-         argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3272:/ apply.arg");
-         argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-         /*_.FLDA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3273:/ cond");
-        /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3273:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3273:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3274:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (melt_ptr_t)(/*_.FLDA__V29*/ curfptr[28]));}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3272:/ clear");
-        /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3271:/ clear");
-       /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
-      /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
-      /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3267:/ clear");
-      /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;}
-     ;
-     /*_.PAIR_TAIL__V30*/ curfptr[28] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-     MELT_LOCATION("warmelt-macro.melt:3276:/ compute");
-     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
-     /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
-     /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3265:/ clear");
-     /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;}
-    ;
-    ;
-     goto labloop_INSLOOP_7;
-     labexit_INSLOOP_7:;MELT_LOCATION("warmelt-macro.melt:3265:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3278:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3278:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3278:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
-     /*_.FASTUP__V33*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3279:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3279:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ curfrout->tabval[8])), (4), "CLASS_SOURCE_PUT_FIELDS");/*_.INST__V35*/ curfptr[28] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3279:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3279:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (2), (/*_.OBJEXP__V17*/ curfptr[16]), "SUPUT_OBJ");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3279:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[28]), (3), (/*_.FASTUP__V33*/ curfptr[25]), "SUPUT_FIELDS");
-     ;
-     /*_.INST___V34*/ curfptr[26] = /*_.INST__V35*/ curfptr[28];;}
-    ;
-    /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3278:/ clear");
-    /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3278:/ clear");
-    /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;}
-   ;
-   /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3263:/ clear");
-   /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3263:/ clear");
-   /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3263:/ clear");
-   /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3251:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3248:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:3248:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3248:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3248:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3248:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_51_warmelt_macro_MEXPAND_PUT_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_UNSAFE_GET_FIELD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3288:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3288:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3288:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3288:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3289:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3289:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3289:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3289:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3289:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3289:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3289:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3289)?(3289):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3289:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3289:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3289:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3290:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3290:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3290:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3290:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3290:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3290:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3290:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3290)?(3290):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3290:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3290:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3290:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3291:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3291:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3292:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.CURFKW__V14*/ curfptr[13] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  /*_#IS_NOT_A__L3*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-macro.melt:3296:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3296:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3296:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3298:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "field keyword expected in UNSAFE_GET_FIELD"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3299:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:3299:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3297:/ block");
-    /*block*/{
-     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3296:/ clear");
-    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3296:/ clear");
-    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3296:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3300:/ compute");
-  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
-  MELT_LOCATION("warmelt-macro.melt:3301:/ block");
-  /*block*/{
-   /*_.CUREXP__V21*/ curfptr[20] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   /*_.PAIR_TAIL__V22*/ curfptr[21] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:3302:/ compute");
-   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
-   MELT_LOCATION("warmelt-macro.melt:3303:/ cond");
-   /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3303:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3303:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3303:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (melt_ptr_t)0);}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3306:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3306:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[5];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ curfptr[10];
-     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13];
-     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V21*/ curfptr[20];
-     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
-     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:3306:/ apply.arg");
-     argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.FLDA__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[4])));;
-    /*_#NOT__L5*/ curfnum[4] = 
-     (!(/*_#IS_A__L4*/ curfnum[3]));;
-    MELT_LOCATION("warmelt-macro.melt:3307:/ cond");
-    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3307:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3307:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3309:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "bad field and expression in UNSAFE_GET_FIELD"), (melt_ptr_t)0);}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3310:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-       MELT_LOCATION("warmelt-macro.melt:3310:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3308:/ block");
-      /*block*/{
-       /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;}
-      ;
-      /*_.IF___V26*/ curfptr[25] = /*_.PROGN___V28*/ curfptr[27];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3307:/ clear");
-      /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3307:/ clear");
-      /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:3307:/ cond.else");
-    
-     /*_.IF___V26*/ curfptr[25] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3311:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3311:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ curfptr[27] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3312:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ curfptr[30] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3313:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3313:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD");/*_.INST__V33*/ curfptr[32] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3313:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3313:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.EXP__V31*/ curfptr[30]), "SUGET_OBJ");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3313:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.FLD__V30*/ curfptr[27]), "SUGET_FIELD");
-      ;
-      /*_.INST___V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
-     ;
-     /*_.LET___V29*/ curfptr[26] = /*_.INST___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3311:/ clear");
-     /*clear*/ /*_.FLD__V30*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3311:/ clear");
-     /*clear*/ /*_.EXP__V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3311:/ clear");
-     /*clear*/ /*_.INST___V32*/ curfptr[31] = 0 ;}
-    ;
-    /*_.LET___V24*/ curfptr[23] = /*_.LET___V29*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
-    /*clear*/ /*_.FLDA__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
-    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
-    /*clear*/ /*_.IF___V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3306:/ clear");
-    /*clear*/ /*_.LET___V29*/ curfptr[26] = 0 ;}
-   ;
-   /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
-   /*clear*/ /*_.CUREXP__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
-   /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3301:/ clear");
-   /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V20*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3291:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3288:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:3288:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3288:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3288:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3288:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_UNSAFE_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_52_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_53_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_macro_MEXPAND_GET_FIELD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_GET_FIELD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3322:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3322:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3322:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3322:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3323:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3323:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3323:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3323:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3323:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3323:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3323:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3323)?(3323):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3323:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3323:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3323:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3324:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3324:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3324:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3324:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3324:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3324:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3324:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3324)?(3324):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3324:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3324:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3324:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3325:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3325:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3326:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.CURFKW__V14*/ curfptr[13] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  /*_#IS_NOT_A__L3*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CURFKW__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-macro.melt:3330:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3330:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3330:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3332:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "field keyword expected in GET_FIELD"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3333:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:3333:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3331:/ block");
-    /*block*/{
-     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3330:/ clear");
-    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3330:/ clear");
-    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3330:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3334:/ compute");
-  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
-  MELT_LOCATION("warmelt-macro.melt:3335:/ block");
-  /*block*/{
-   /*_.CUREXP__V21*/ curfptr[20] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   /*_.PAIR_TAIL__V22*/ curfptr[21] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:3336:/ compute");
-   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
-   MELT_LOCATION("warmelt-macro.melt:3337:/ cond");
-   /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3337:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3337:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3337:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (melt_ptr_t)0);}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3340:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3340:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[5];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOC__V11*/ curfptr[10];
-     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13];
-     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V21*/ curfptr[20];
-     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
-     argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:3340:/ apply.arg");
-     argtab[4].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.FLDA__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[4])));;
-    /*_#NOT__L5*/ curfnum[4] = 
-     (!(/*_#IS_A__L4*/ curfnum[3]));;
-    MELT_LOCATION("warmelt-macro.melt:3341:/ cond");
-    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3341:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3341:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3343:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "bad field and expression in GET_FIELD"), (melt_ptr_t)0);}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3344:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-       MELT_LOCATION("warmelt-macro.melt:3344:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3342:/ block");
-      /*block*/{
-       /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;}
-      ;
-      /*_.IF___V26*/ curfptr[25] = /*_.PROGN___V28*/ curfptr[27];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3341:/ clear");
-      /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3341:/ clear");
-      /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:3341:/ cond.else");
-    
-     /*_.IF___V26*/ curfptr[25] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3345:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3345:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 2, "SFLA_FIELD");/*_.FLD__V30*/ curfptr[27] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3346:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V25*/ curfptr[24]), 3, "SFLA_EXPR");/*_.EXP__V31*/ curfptr[30] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3347:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3347:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_GET_FIELD");/*_.INST__V33*/ curfptr[32] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3347:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3347:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.EXP__V31*/ curfptr[30]), "SUGET_OBJ");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3347:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.FLD__V30*/ curfptr[27]), "SUGET_FIELD");
-      ;
-      /*_.INST___V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
-     ;
-     /*_.LET___V29*/ curfptr[26] = /*_.INST___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3345:/ clear");
-     /*clear*/ /*_.FLD__V30*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3345:/ clear");
-     /*clear*/ /*_.EXP__V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3345:/ clear");
-     /*clear*/ /*_.INST___V32*/ curfptr[31] = 0 ;}
-    ;
-    /*_.LET___V24*/ curfptr[23] = /*_.LET___V29*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
-    /*clear*/ /*_.FLDA__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
-    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
-    /*clear*/ /*_.IF___V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3340:/ clear");
-    /*clear*/ /*_.LET___V29*/ curfptr[26] = 0 ;}
-   ;
-   /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
-   /*clear*/ /*_.CUREXP__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
-   /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3335:/ clear");
-   /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V20*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3325:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3322:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:3322:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3322:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3322:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3322:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_53_warmelt_macro_MEXPAND_GET_FIELD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_54_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_macro_MEXPAND_SETQ_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 26
-  void* varptr[26];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<26; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 26;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_SETQ", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3357:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3357:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3357:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3357:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3358:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3358:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3358:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3358:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3358:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3358:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3358:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3358)?(3358):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3358:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3358:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3358:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3359:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3359:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3359:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3359:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3359:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3359:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3359:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3359)?(3359):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3359:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3359:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3359:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3360:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3360:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3361:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.CURSYM__V14*/ curfptr[13] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  /*_#IS_NOT_A__L3*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.CURSYM__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-macro.melt:3365:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3365:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3365:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3367:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "var symbol name expected in SETQ"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3368:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:3368:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3366:/ block");
-    /*block*/{
-     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3365:/ clear");
-    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3365:/ clear");
-    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3365:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:3369:/ compute");
-  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
-  MELT_LOCATION("warmelt-macro.melt:3370:/ block");
-  /*block*/{
-   /*_.CUREXP__V21*/ curfptr[20] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   /*_.PAIR_TAIL__V22*/ curfptr[21] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:3371:/ compute");
-   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
-   MELT_LOCATION("warmelt-macro.melt:3372:/ cond");
-   /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3372:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3372:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3372:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "SETQ with more than two sons"), (melt_ptr_t)0);}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3376:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3376:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-macro.melt:3376:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-    /*_.MACROEXPAND_1__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CUREXP__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3373:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3373:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ curfrout->tabval[3])), (4), "CLASS_SOURCE_SETQ");/*_.INST__V26*/ curfptr[25] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3373:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3373:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (2), (/*_.CURSYM__V14*/ curfptr[13]), "SSTQ_VAR");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3373:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SSTQ_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (3), (/*_.MACROEXPAND_1__V24*/ curfptr[23]), "SSTQ_EXPR");
-    ;
-    /*_.INST___V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;}
-   ;
-   /*_.LET___V20*/ curfptr[19] = /*_.INST___V25*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
-   /*clear*/ /*_.CUREXP__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
-   /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
-   /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3370:/ clear");
-   /*clear*/ /*_.INST___V25*/ curfptr[24] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V20*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.CURSYM__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3360:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3357:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:3357:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3357:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3357:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3357:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_SETQ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_54_warmelt_macro_MEXPAND_SETQ*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_55_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_macro_MEXPAND_IF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 50
-  void* varptr[50];
-#define CURFRAM_NBVARNUM 14
-  long varnum[14];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<50; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 50;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_IF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3383:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3383:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3383:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3383:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3384:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3384:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3384:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3384:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3384:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3384:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3384:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3384)?(3384):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3384:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3384:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3384:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3385:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3385:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3385:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3385:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3385:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3385:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3385:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3385)?(3385):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3385:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3385:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3385:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3386:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3386:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3386:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_if sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3386:/ apply.arg");
-    argtab[3].bp_long = 3386;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3386:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3386:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3386:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3387:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3388:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3389:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.CURIF__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#IS_PAIR__L4*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  /*_#NOT__L5*/ curfnum[4] = 
-   (!(/*_#IS_PAIR__L4*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:3392:/ cond");
-  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3392:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3392:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3393:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in IF"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:3394:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];;
-  /*_#IS_PAIR__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  /*_#NOT__L7*/ curfnum[6] = 
-   (!(/*_#IS_PAIR__L6*/ curfnum[5]));;
-  MELT_LOCATION("warmelt-macro.melt:3395:/ cond");
-  /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3395:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3395:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3396:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in IF"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3397:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3397:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3397:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-macro.melt:3397:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-    /*_.XCOND__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3398:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3398:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:3398:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_if xcond";
-      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:3398:/ apply.arg");
-      argtab[3].bp_long = 3398;
-      /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3398:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3398:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3398:/ cppif.else");
-   /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:3399:/ block");
-   /*block*/{
-    /*_.CURTHEN__V24*/ curfptr[23] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    /*_.PAIR_TAIL__V25*/ curfptr[24] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:3400:/ compute");
-    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];;
-    MELT_LOCATION("warmelt-macro.melt:3401:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3401:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3401:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-macro.melt:3401:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-      /*_.XTHEN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:3402:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:3402:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:3402:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_if xthen";
-        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
-        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:3402:/ apply.arg");
-        argtab[3].bp_long = 3402;
-        /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3402:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3402:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:3402:/ cppif.else");
-     /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_#IS_PAIR__L10*/ curfnum[7] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-     MELT_LOCATION("warmelt-macro.melt:3403:/ cond");
-     /*cond*/ if (/*_#IS_PAIR__L10*/ curfnum[7]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3403:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3403:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3404:/ block");
-       /*block*/{
-        /*_.CURELSE__V33*/ curfptr[32] = 
-         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-        MELT_LOCATION("warmelt-macro.melt:3405:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3405:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3405:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-         /*_.XELSE__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3406:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3406:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3406:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_if xelse";
-           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3406:/ apply.arg");
-           argtab[3].bp_long = 3406;
-           /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XELSE__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3406:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3406:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3406:/ cppif.else");
-        /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        /*_.PAIR_TAIL__V37*/ curfptr[35] = 
-         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-        MELT_LOCATION("warmelt-macro.melt:3407:/ compute");
-        /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_TAIL__V37*/ curfptr[35];;
-        /*_#IS_PAIR__L12*/ curfnum[10] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-        MELT_LOCATION("warmelt-macro.melt:3408:/ cond");
-        /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[10]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3408:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3408:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3409:/ locexp");
-          melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "IF with more than three sons"), (melt_ptr_t)0);}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3410:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3411:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3411:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[4])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V41*/ curfptr[40] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.XCOND__V20*/ curfptr[19]), "SIF_TEST");
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (3), (/*_.XTHEN__V28*/ curfptr[27]), "SIF_THEN");
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3411:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (4), (/*_.XELSE__V34*/ curfptr[33]), "SIF_ELSE");
-          ;
-          /*_.RESE__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;}
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-macro.melt:3417:/ cppif.then");
-         MELT_LOCATION("warmelt-macro.melt:3417:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 
-            callcount;;
-           MELT_LOCATION("warmelt-macro.melt:3417:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
-            argtab[0].bp_cstring =  "mexpand_if with else return rese";
-            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12];
-            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-macro.melt";
-            MELT_LOCATION("warmelt-macro.melt:3417:/ apply.arg");
-            argtab[3].bp_long = 3417;
-            /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESE__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:3417:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:3417:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-macro.melt:3417:/ cppif.else");
-         /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-macro.melt:3418:/ block");
-         /*block*/{
-          /*_.RETVAL___V1*/ curfptr[0] = /*_.RESE__V40*/ curfptr[39];;
-          MELT_LOCATION("warmelt-macro.melt:3418:/ finalreturn");
-          ;
-          /*finalret*/ goto labend_rout ;}
-         ;
-         /*_.LET___V39*/ curfptr[38] = /*_.RETURN___V44*/ curfptr[42];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3410:/ clear");
-         /*clear*/ /*_.RESE__V40*/ curfptr[39] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3410:/ clear");
-         /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3410:/ clear");
-         /*clear*/ /*_.RETURN___V44*/ curfptr[42] = 0 ;}
-        ;
-        /*_.LET___V32*/ curfptr[31] = /*_.LET___V39*/ curfptr[38];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_.CURELSE__V33*/ curfptr[32] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_.XELSE__V34*/ curfptr[33] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_.PAIR_TAIL__V37*/ curfptr[35] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_#IS_PAIR__L12*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3404:/ clear");
-        /*clear*/ /*_.LET___V39*/ curfptr[38] = 0 ;}
-       ;
-       /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V32*/ curfptr[31];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3403:/ clear");
-       /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3403:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3403:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3419:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3419:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3419:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_IF");/*_.INST__V47*/ curfptr[42] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3419:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V47*/ curfptr[42]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3419:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V47*/ curfptr[42]), (2), (/*_.XCOND__V20*/ curfptr[19]), "SIF_TEST");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3419:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V47*/ curfptr[42]), (3), (/*_.XTHEN__V28*/ curfptr[27]), "SIF_THEN");
-         ;
-         /*_.RESP__V46*/ curfptr[41] = /*_.INST__V47*/ curfptr[42];;}
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3423:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3423:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3423:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_if plain return resp";
-           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12];
-           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3423:/ apply.arg");
-           argtab[3].bp_long = 3423;
-           /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V46*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V48*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[33];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3423:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3423:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3423:/ cppif.else");
-        /*_.IFCPP___V48*/ curfptr[32] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-macro.melt:3424:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V46*/ curfptr[41];;
-         MELT_LOCATION("warmelt-macro.melt:3424:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        /*_.LET___V45*/ curfptr[39] = /*_.RETURN___V50*/ curfptr[34];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3419:/ clear");
-        /*clear*/ /*_.RESP__V46*/ curfptr[41] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3419:/ clear");
-        /*clear*/ /*_.IFCPP___V48*/ curfptr[32] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3419:/ clear");
-        /*clear*/ /*_.RETURN___V50*/ curfptr[34] = 0 ;}
-       ;
-       /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V45*/ curfptr[39];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3403:/ clear");
-       /*clear*/ /*_.LET___V45*/ curfptr[39] = 0 ;}
-      ;
-      }
-     ;
-     /*_.LET___V27*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
-     /*clear*/ /*_.XTHEN__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
-     /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
-     /*clear*/ /*_#IS_PAIR__L10*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3401:/ clear");
-     /*clear*/ /*_.IFELSE___V31*/ curfptr[29] = 0 ;}
-    ;
-    /*_.LET___V23*/ curfptr[21] = /*_.LET___V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
-    /*clear*/ /*_.CURTHEN__V24*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
-    /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3399:/ clear");
-    /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;}
-   ;
-   /*_.LET___V19*/ curfptr[18] = /*_.LET___V23*/ curfptr[21];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3397:/ clear");
-   /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3397:/ clear");
-   /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3397:/ clear");
-   /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3387:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3383:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3383:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3383:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_IF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_55_warmelt_macro_MEXPAND_IF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_56_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_macro_MEXPAND_CPPIF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 48
-  void* varptr[48];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<48; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 48;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_CPPIF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3430:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3430:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3430:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3430:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3431:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3431:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3431:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3431:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3431:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3431:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3431:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3431)?(3431):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3431:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3431:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3431:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3432:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3432:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3432:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3432:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3432:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3432:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3432:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3432)?(3432):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3432:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3432:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3432:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3433:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3433:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3433:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_cppif sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3433:/ apply.arg");
-    argtab[3].bp_long = 3433;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3433:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3433:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3433:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3434:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3435:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3436:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.CURIF__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#IS_PAIR__L4*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  /*_#NOT__L5*/ curfnum[4] = 
-   (!(/*_#IS_PAIR__L4*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:3439:/ cond");
-  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3439:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3439:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3440:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in CPPIF"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:3441:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];;
-  /*_#IS_PAIR__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  /*_#NOT__L7*/ curfnum[6] = 
-   (!(/*_#IS_PAIR__L6*/ curfnum[5]));;
-  MELT_LOCATION("warmelt-macro.melt:3442:/ cond");
-  /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3442:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3442:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3443:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in CPPIF"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3444:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3444:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3444:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-macro.melt:3444:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-    /*_.XCOND__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURIF__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3445:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3445:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:3445:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_cppif xcond";
-      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:3445:/ apply.arg");
-      argtab[3].bp_long = 3445;
-      /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3445:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3445:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3445:/ cppif.else");
-   /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_#IS_STRING__L9*/ curfnum[7] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-macro.melt:3447:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[7]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3447:/ cond.then");
-   /*_.IFELSE___V23*/ curfptr[21] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3447:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3447:/ block");
-    /*block*/{
-     /*_#IS_A__L10*/ curfnum[9] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-macro.melt:3448:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3448:/ cond.then");
-     /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-macro.melt:3448:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3448:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:3450:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid cpp-condition in CPPIF - string or symbol expected"), (melt_ptr_t)0);}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3451:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-        MELT_LOCATION("warmelt-macro.melt:3451:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3449:/ block");
-       /*block*/{
-        /*_.PROGN___V26*/ curfptr[25] = /*_.RETURN___V25*/ curfptr[24];;}
-       ;
-       /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V26*/ curfptr[25];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3448:/ clear");
-       /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3448:/ clear");
-       /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;}
-      ;
-      }
-     ;
-     /*_.IFELSE___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3447:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3447:/ clear");
-     /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3452:/ block");
-   /*block*/{
-    /*_.CURTHEN__V28*/ curfptr[25] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    /*_.PAIR_TAIL__V29*/ curfptr[23] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:3453:/ compute");
-    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V30*/ curfptr[29] = /*_.PAIR_TAIL__V29*/ curfptr[23];;
-    MELT_LOCATION("warmelt-macro.melt:3454:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3454:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3454:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-macro.melt:3454:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-      /*_.XTHEN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURTHEN__V28*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.XELSE__V33*/ curfptr[32] = (/*nil*/NULL);;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:3457:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:3457:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:3457:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_cppif xthen";
-        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9];
-        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:3457:/ apply.arg");
-        argtab[3].bp_long = 3457;
-        /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XTHEN__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3457:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3457:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:3457:/ cppif.else");
-     /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_#IS_PAIR__L12*/ curfnum[9] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-     MELT_LOCATION("warmelt-macro.melt:3458:/ cond");
-     /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3458:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3458:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3459:/ block");
-       /*block*/{
-        /*_.CURELSE__V36*/ curfptr[34] = 
-         (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-        MELT_LOCATION("warmelt-macro.melt:3460:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3460:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3460:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-         /*_.GOTXELSE__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURELSE__V36*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3461:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3461:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3461:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_cppif gotxelse";
-           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12];
-           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3461:/ apply.arg");
-           argtab[3].bp_long = 3461;
-           /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.GOTXELSE__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3461:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3461:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3461:/ cppif.else");
-        /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        /*_.PAIR_TAIL__V40*/ curfptr[38] = 
-         (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-        MELT_LOCATION("warmelt-macro.melt:3462:/ compute");
-        /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V41*/ curfptr[40] = /*_.PAIR_TAIL__V40*/ curfptr[38];;
-        MELT_LOCATION("warmelt-macro.melt:3463:/ compute");
-        /*_.XELSE__V33*/ curfptr[32] = /*_.SETQ___V42*/ curfptr[41] = /*_.GOTXELSE__V37*/ curfptr[36];;
-        /*_#IS_PAIR__L14*/ curfnum[12] = 
-         (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-        MELT_LOCATION("warmelt-macro.melt:3464:/ cond");
-        /*cond*/ if (/*_#IS_PAIR__L14*/ curfnum[12]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3464:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3464:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3465:/ locexp");
-          melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "CPPIF with more than three sons"), (melt_ptr_t)0);}
-          ;
-          /*epilog*/}
-         ;
-        } /*noelse*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_.CURELSE__V36*/ curfptr[34] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_.GOTXELSE__V37*/ curfptr[36] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_.PAIR_TAIL__V40*/ curfptr[38] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_.SETQ___V42*/ curfptr[41] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3459:/ clear");
-        /*clear*/ /*_#IS_PAIR__L14*/ curfnum[12] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3466:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3466:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3466:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ curfrout->tabval[5])), (5), "CLASS_SOURCE_CPPIF");/*_.INST__V45*/ curfptr[37] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (2), (/*_.XCOND__V20*/ curfptr[19]), "SIFP_COND");
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (3), (/*_.XTHEN__V32*/ curfptr[31]), "SIFP_THEN");
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3466:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V45*/ curfptr[37]), (4), (/*_.XELSE__V33*/ curfptr[32]), "SIFP_ELSE");
-       ;
-       /*_.RESP__V44*/ curfptr[36] = /*_.INST__V45*/ curfptr[37];;}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-macro.melt:3473:/ cppif.then");
-      MELT_LOCATION("warmelt-macro.melt:3473:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 
-         callcount;;
-        MELT_LOCATION("warmelt-macro.melt:3473:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
-         argtab[0].bp_cstring =  "mexpand_cppif return resp";
-         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12];
-         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-macro.melt";
-         MELT_LOCATION("warmelt-macro.melt:3473:/ apply.arg");
-         argtab[3].bp_long = 3473;
-         /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RESP__V44*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V46*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[40];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3473:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3473:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-macro.melt:3473:/ cppif.else");
-      /*_.IFCPP___V46*/ curfptr[38] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-macro.melt:3474:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V44*/ curfptr[36];;
-       MELT_LOCATION("warmelt-macro.melt:3474:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.LET___V43*/ curfptr[34] = /*_.RETURN___V48*/ curfptr[41];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3466:/ clear");
-      /*clear*/ /*_.RESP__V44*/ curfptr[36] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3466:/ clear");
-      /*clear*/ /*_.IFCPP___V46*/ curfptr[38] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3466:/ clear");
-      /*clear*/ /*_.RETURN___V48*/ curfptr[41] = 0 ;}
-     ;
-     /*_.LET___V31*/ curfptr[30] = /*_.LET___V43*/ curfptr[34];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
-     /*clear*/ /*_.XTHEN__V32*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
-     /*clear*/ /*_.XELSE__V33*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
-     /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
-     /*clear*/ /*_#IS_PAIR__L12*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3454:/ clear");
-     /*clear*/ /*_.LET___V43*/ curfptr[34] = 0 ;}
-    ;
-    /*_.LET___V27*/ curfptr[24] = /*_.LET___V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
-    /*clear*/ /*_.CURTHEN__V28*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
-    /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3452:/ clear");
-    /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ;}
-   ;
-   /*_.LET___V19*/ curfptr[18] = /*_.LET___V27*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
-   /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
-   /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
-   /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
-   /*clear*/ /*_.IFELSE___V23*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3444:/ clear");
-   /*clear*/ /*_.LET___V27*/ curfptr[24] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3434:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3430:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3430:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3430:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_CPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_56_warmelt_macro_MEXPAND_CPPIF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_57_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_macro_MEXPAND_COND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 92
-  void* varptr[92];
-#define CURFRAM_NBVARNUM 25
-  long varnum[25];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<92; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 92;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_COND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3482:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3482:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3482:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3482:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3483:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3483:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3483:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3483:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3483:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3483:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3483:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3483)?(3483):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3483:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3483:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3483:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3484:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3484:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3484:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3484:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3484:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3484:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3484:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3484)?(3484):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3484:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3484:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3484:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3485:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3485:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3485:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_cond sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3485:/ apply.arg");
-    argtab[3].bp_long = 3485;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3485:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3485:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3485:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3486:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3487:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3488:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:3492:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3492:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3492:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3489:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3489:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-   MELT_LOCATION("warmelt-macro.melt:3489:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.CEXPTUPLE__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NBCOND__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17])));;
-  MELT_LOCATION("warmelt-macro.melt:3498:/ block");
-  /*block*/{
-   /*_.LX__V20*/ curfptr[19] = 
-    (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (-1)));;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3499:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3499:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:3499:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_cond lastcexp lx";
-      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:3499:/ apply.arg");
-      argtab[3].bp_long = 3499;
-      /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3499:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3499:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3499:/ cppif.else");
-   /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V19*/ curfptr[18] = /*_.LX__V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3498:/ clear");
-   /*clear*/ /*_.LX__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3498:/ clear");
-   /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
-  ;
-  /*_.LASTCEXP__V23*/ curfptr[21] = /*_.LET___V19*/ curfptr[18];;
-  /*_#IX__L6*/ curfnum[4] = 
-   ((/*_#NBCOND__L4*/ curfnum[0]) - (1));;
-  /*_.RES__V24*/ curfptr[19] = (/*nil*/NULL);;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3504:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3504:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3504:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_cond cexptuple";
-     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3504:/ apply.arg");
-     argtab[3].bp_long = 3504;
-     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V25*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3504:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3504:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3504:/ cppif.else");
-  /*_.IFCPP___V25*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3505:/ loop");
-  /*loop*/{ labloop_CONDLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3505:/ loopbody");
-  
-   MELT_LOCATION("warmelt-macro.melt:3505:/ block");
-   /*block*/{
-    /*_#I__L8*/ curfnum[6] = 
-     ((/*_#IX__L6*/ curfnum[4]) < (0));;
-    MELT_LOCATION("warmelt-macro.melt:3506:/ cond");
-    /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3506:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3506:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3506:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3506:/ compute");
-       /*_.CONDLOOP__V28*/ curfptr[27] = NULL;;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3506:/ exit");
-       /*exit*/{
-        goto labexit_CONDLOOP_1;}
-       ;}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3507:/ block");
-    /*block*/{
-     /*_.CURCOND__V30*/ curfptr[29] = 
-      (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (/*_#IX__L6*/ curfnum[4])));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:3508:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:3508:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:3508:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_cond curcond";
-        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:3508:/ apply.arg");
-        argtab[3].bp_long = 3508;
-        /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3508:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3508:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:3508:/ cppif.else");
-     /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_#NULL__L10*/ curfnum[8] = 
-      ((/*_.RES__V24*/ curfptr[19]) == NULL);;
-     MELT_LOCATION("warmelt-macro.melt:3510:/ cond");
-     /*cond*/ if (/*_#NULL__L10*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3510:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3510:/ block");
-      /*block*/{
-       /*_#IS_A__L12*/ curfnum[11] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-       MELT_LOCATION("warmelt-macro.melt:3510:/ cond");
-       /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:3510:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:3510:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3513:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V33*/ curfptr[31] = slot; };
-         ;
-         /*_.LIST_FIRST__V34*/ curfptr[33] = 
-          (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V33*/ curfptr[31])));;
-         /*_.PAIR_HEAD__V35*/ curfptr[34] = 
-          (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V34*/ curfptr[33])));;
-         /*_#__L14*/ curfnum[13] = 
-          (((/*!konst_7_ELSE*/ curfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ curfptr[34]));;
-         /*_#IF___L13*/ curfnum[12] = /*_#__L14*/ curfnum[13];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-         /*clear*/ /*_.SEXP_CONTENTS__V33*/ curfptr[31] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-         /*clear*/ /*_.LIST_FIRST__V34*/ curfptr[33] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-         /*clear*/ /*_.PAIR_HEAD__V35*/ curfptr[34] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-         /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-macro.melt:3510:/ cond.else");
-       
-        /*_#IF___L13*/ curfnum[12] = 0;;
-        }
-       ;
-       /*_#IF___L11*/ curfnum[10] = /*_#IF___L13*/ curfnum[12];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-       /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-       /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3510:/ cond.else");
-     
-      /*_#IF___L11*/ curfnum[10] = 0;;
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3510:/ cond");
-     /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3510:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3510:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3514:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3515:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V38*/ curfptr[34] = slot; };
-        ;
-        /*_.LIST_FIRST__V39*/ curfptr[38] = 
-         (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V38*/ curfptr[34])));;
-        /*_.RESTPAIRS__V40*/ curfptr[39] = 
-         (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V39*/ curfptr[38])));;
-        MELT_LOCATION("warmelt-macro.melt:3517:/ cond");
-        /*cond*/ if (/*_.RESTPAIRS__V40*/ curfptr[39]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3517:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3517:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3519:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ curfptr[41] = slot; };
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3518:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[3];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3518:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V42*/ curfptr[41];
-           MELT_LOCATION("warmelt-macro.melt:3518:/ apply.arg");
-           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-           MELT_LOCATION("warmelt-macro.melt:3518:/ apply.arg");
-           argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-           /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RESTPAIRS__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3518:/ compute");
-          /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V44*/ curfptr[43] = /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42];;
-          /*_.IF___V41*/ curfptr[40] = /*_.SETQ___V44*/ curfptr[43];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3517:/ clear");
-          /*clear*/ /*_.LOCA_LOCATION__V42*/ curfptr[41] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3517:/ clear");
-          /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3517:/ clear");
-          /*clear*/ /*_.SETQ___V44*/ curfptr[43] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:3517:/ cond.else");
-        
-         /*_.IF___V41*/ curfptr[40] = NULL;;
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3521:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3521:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3521:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_cond res for :else";
-           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
-           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3521:/ apply.arg");
-           argtab[3].bp_long = 3521;
-           /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V45*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[42];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3521:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3521:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3521:/ cppif.else");
-        /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        /*_.LET___V37*/ curfptr[33] = /*_.IFCPP___V45*/ curfptr[41];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
-        /*clear*/ /*_.SEXP_CONTENTS__V38*/ curfptr[34] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
-        /*clear*/ /*_.LIST_FIRST__V39*/ curfptr[38] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
-        /*clear*/ /*_.RESTPAIRS__V40*/ curfptr[39] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
-        /*clear*/ /*_.IF___V41*/ curfptr[40] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3514:/ clear");
-        /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;}
-       ;
-       /*_.IFELSE___V36*/ curfptr[31] = /*_.LET___V37*/ curfptr[33];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-       /*clear*/ /*_.LET___V37*/ curfptr[33] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3510:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3510:/ block");
-      /*block*/{
-       /*_#IS_A__L16*/ curfnum[11] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-       MELT_LOCATION("warmelt-macro.melt:3523:/ cond");
-       /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:3523:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:3523:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3524:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3524:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.CURCONDCONT__V49*/ curfptr[34] = slot; };
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3525:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.CURCONDLOC__V50*/ curfptr[38] = slot; };
-          ;
-          /*_.LIST_FIRST__V51*/ curfptr[39] = 
-           (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ curfptr[34])));;
-          /*_.CURCONDTEST__V52*/ curfptr[40] = 
-           (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V51*/ curfptr[39])));;
-          /*_.LIST_FIRST__V53*/ curfptr[41] = 
-           (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ curfptr[34])));;
-          /*_.CURCONDRESTPAIRS__V54*/ curfptr[33] = 
-           (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V53*/ curfptr[41])));;
-          /*_#NULL__L17*/ curfnum[12] = 
-           ((/*_.CURCONDRESTPAIRS__V54*/ curfptr[33]) == NULL);;
-          MELT_LOCATION("warmelt-macro.melt:3529:/ cond");
-          /*cond*/ if (/*_#NULL__L17*/ curfnum[12]) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:3529:/ cond.then");
-          MELT_LOCATION("warmelt-macro.melt:3529:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-macro.melt:3533:/ apply");
-            /*apply*/{
-             union meltparam_un argtab[2];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-macro.melt:3533:/ apply.arg");
-             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-             MELT_LOCATION("warmelt-macro.melt:3533:/ apply.arg");
-             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-             /*_.MACROEXPAND_1__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            /*_.MAKE_TUPLE2__V57*/ curfptr[56] = 
-             (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MACROEXPAND_1__V56*/ curfptr[55]),  (melt_ptr_t)(/*_.RES__V24*/ curfptr[19])));;
-            MELT_LOCATION("warmelt-macro.melt:3530:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-macro.melt:3530:/ rawallocobj");
-             /*rawallocobj*/ { melt_ptr_t newobj = 0;
-              melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_OR");/*_.INST__V59*/ curfptr[58] =
-              newobj; };
-             ;
-             MELT_LOCATION("warmelt-macro.melt:3530:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.CURCONDLOC__V50*/ curfptr[38]), "LOCA_LOCATION");
-             ;
-             MELT_LOCATION("warmelt-macro.melt:3530:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.MAKE_TUPLE2__V57*/ curfptr[56]), "SOR_DISJ");
-             ;
-             /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;}
-            ;
-            MELT_LOCATION("warmelt-macro.melt:3530:/ compute");
-            /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V60*/ curfptr[59] = /*_.INST___V58*/ curfptr[57];;
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-macro.melt:3535:/ cppif.then");
-            MELT_LOCATION("warmelt-macro.melt:3535:/ block");
-             /*block*/{
-              /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 
-               callcount;;
-              MELT_LOCATION("warmelt-macro.melt:3535:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[4];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
-               argtab[0].bp_cstring =  "mexpand_cond res for monoexp cond";
-               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
-               argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13];
-               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
-               argtab[2].bp_cstring =  "warmelt-macro.melt";
-               MELT_LOCATION("warmelt-macro.melt:3535:/ apply.arg");
-               argtab[3].bp_long = 3535;
-               /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-macro.melt:3535:/ clear");
-              /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3535:/ clear");
-              /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-macro.melt:3535:/ cppif.else");
-            /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ block");
-            /*block*/{
-             /*_.PROGN___V63*/ curfptr[61] = /*_.IFCPP___V61*/ curfptr[60];;}
-            ;
-            /*_.IFELSE___V55*/ curfptr[54] = /*_.PROGN___V63*/ curfptr[61];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.MACROEXPAND_1__V56*/ curfptr[55] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.MAKE_TUPLE2__V57*/ curfptr[56] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.SETQ___V60*/ curfptr[59] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.PROGN___V63*/ curfptr[61] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-macro.melt:3529:/ cond.else");
-          
-           MELT_LOCATION("warmelt-macro.melt:3529:/ block");
-           /*block*/{
-            /*_.PAIR_TAIL__V64*/ curfptr[55] = 
-             (melt_pair_tail((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33])));;
-            /*_#NULL__L19*/ curfnum[13] = 
-             ((/*_.PAIR_TAIL__V64*/ curfptr[55]) == NULL);;
-            MELT_LOCATION("warmelt-macro.melt:3537:/ cond");
-            /*cond*/ if (/*_#NULL__L19*/ curfnum[13]) /*then*/ {
-            MELT_LOCATION("warmelt-macro.melt:3537:/ cond.then");
-            MELT_LOCATION("warmelt-macro.melt:3537:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-macro.melt:3540:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[2];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-macro.melt:3540:/ apply.arg");
-               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-               MELT_LOCATION("warmelt-macro.melt:3540:/ apply.arg");
-               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-               /*_.MACROEXPAND_1__V66*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              /*_.PAIR_HEAD__V67*/ curfptr[59] = 
-               (melt_pair_head((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33])));;
-              MELT_LOCATION("warmelt-macro.melt:3541:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[2];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-macro.melt:3541:/ apply.arg");
-               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-               MELT_LOCATION("warmelt-macro.melt:3541:/ apply.arg");
-               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-               /*_.MACROEXPAND_1__V68*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.PAIR_HEAD__V67*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              MELT_LOCATION("warmelt-macro.melt:3538:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-macro.melt:3538:/ rawallocobj");
-               /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V70*/ curfptr[69] =
-                newobj; };
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (1), (/*_.CURCONDLOC__V50*/ curfptr[38]), "LOCA_LOCATION");
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (2), (/*_.MACROEXPAND_1__V66*/ curfptr[57]), "SIF_TEST");
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (3), (/*_.MACROEXPAND_1__V68*/ curfptr[60]), "SIF_THEN");
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3538:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V70*/ curfptr[69]), (4), (/*_.RES__V24*/ curfptr[19]), "SIF_ELSE");
-               ;
-               /*_.INST___V69*/ curfptr[61] = /*_.INST__V70*/ curfptr[69];;}
-              ;
-              MELT_LOCATION("warmelt-macro.melt:3538:/ compute");
-              /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V71*/ curfptr[70] = /*_.INST___V69*/ curfptr[61];;
-              
-              #if ENABLE_CHECKING
-               MELT_LOCATION("warmelt-macro.melt:3544:/ cppif.then");
-              MELT_LOCATION("warmelt-macro.melt:3544:/ block");
-               /*block*/{
-                /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
-                 callcount;;
-                MELT_LOCATION("warmelt-macro.melt:3544:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[4];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
-                 argtab[0].bp_cstring =  "mexpand_cond res for biexp cond";
-                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
-                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
-                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
-                 argtab[2].bp_cstring =  "warmelt-macro.melt";
-                 MELT_LOCATION("warmelt-macro.melt:3544:/ apply.arg");
-                 argtab[3].bp_long = 3544;
-                 /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                /*_.IFCPP___V72*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[72];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-macro.melt:3544:/ clear");
-                /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
-                MELT_LOCATION("warmelt-macro.melt:3544:/ clear");
-                /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;}
-               
-               #else /*ENABLE_CHECKING*/
-               MELT_LOCATION("warmelt-macro.melt:3544:/ cppif.else");
-              /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL);
-               #endif /*ENABLE_CHECKING*/
-               ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ block");
-              /*block*/{
-               /*_.PROGN___V74*/ curfptr[72] = /*_.IFCPP___V72*/ curfptr[71];;}
-              ;
-              /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V74*/ curfptr[72];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[57] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.PAIR_HEAD__V67*/ curfptr[59] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.MACROEXPAND_1__V68*/ curfptr[60] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.INST___V69*/ curfptr[61] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.SETQ___V71*/ curfptr[70] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.PROGN___V74*/ curfptr[72] = 0 ;}
-             ;
-            } else {MELT_LOCATION("warmelt-macro.melt:3537:/ cond.else");
-            
-             MELT_LOCATION("warmelt-macro.melt:3537:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-macro.melt:3549:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[2];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-macro.melt:3549:/ apply.arg");
-               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-               MELT_LOCATION("warmelt-macro.melt:3549:/ apply.arg");
-               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-               /*_.MACROEXPAND_1__V75*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              MELT_LOCATION("warmelt-macro.melt:3550:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[3];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-macro.melt:3550:/ apply.arg");
-               argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCONDLOC__V50*/ curfptr[38];
-               MELT_LOCATION("warmelt-macro.melt:3550:/ apply.arg");
-               argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-               MELT_LOCATION("warmelt-macro.melt:3550:/ apply.arg");
-               argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-               /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              MELT_LOCATION("warmelt-macro.melt:3547:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-macro.melt:3547:/ rawallocobj");
-               /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V78*/ curfptr[61] =
-                newobj; };
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (1), (/*_.CURCONDLOC__V50*/ curfptr[38]), "LOCA_LOCATION");
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (2), (/*_.MACROEXPAND_1__V75*/ curfptr[57]), "SIF_TEST");
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (3), (/*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59]), "SIF_THEN");
-               ;
-               MELT_LOCATION("warmelt-macro.melt:3547:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V78*/ curfptr[61]), (4), (/*_.RES__V24*/ curfptr[19]), "SIF_ELSE");
-               ;
-               /*_.INST___V77*/ curfptr[60] = /*_.INST__V78*/ curfptr[61];;}
-              ;
-              MELT_LOCATION("warmelt-macro.melt:3547:/ compute");
-              /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V79*/ curfptr[70] = /*_.INST___V77*/ curfptr[60];;
-              
-              #if ENABLE_CHECKING
-               MELT_LOCATION("warmelt-macro.melt:3552:/ cppif.then");
-              MELT_LOCATION("warmelt-macro.melt:3552:/ block");
-               /*block*/{
-                /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 
-                 callcount;;
-                MELT_LOCATION("warmelt-macro.melt:3552:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[4];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
-                 argtab[0].bp_cstring =  "mexpand_cond res for manyexp cond";
-                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
-                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19];
-                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
-                 argtab[2].bp_cstring =  "warmelt-macro.melt";
-                 MELT_LOCATION("warmelt-macro.melt:3552:/ apply.arg");
-                 argtab[3].bp_long = 3552;
-                 /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                /*_.IFCPP___V80*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[72];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-macro.melt:3552:/ clear");
-                /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ;
-                MELT_LOCATION("warmelt-macro.melt:3552:/ clear");
-                /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] = 0 ;}
-               
-               #else /*ENABLE_CHECKING*/
-               MELT_LOCATION("warmelt-macro.melt:3552:/ cppif.else");
-              /*_.IFCPP___V80*/ curfptr[71] = (/*nil*/NULL);
-               #endif /*ENABLE_CHECKING*/
-               ;
-              MELT_LOCATION("warmelt-macro.melt:3546:/ block");
-              /*block*/{
-               /*_.PROGN___V82*/ curfptr[72] = /*_.IFCPP___V80*/ curfptr[71];;}
-              ;
-              /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V82*/ curfptr[72];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.MACROEXPAND_1__V75*/ curfptr[57] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.INST___V77*/ curfptr[60] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.SETQ___V79*/ curfptr[70] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.IFCPP___V80*/ curfptr[71] = 0 ;
-              MELT_LOCATION("warmelt-macro.melt:3537:/ clear");
-              /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;}
-             ;
-             }
-            ;
-            /*_.IFELSE___V55*/ curfptr[54] = /*_.IFELSE___V65*/ curfptr[56];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.PAIR_TAIL__V64*/ curfptr[55] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_#NULL__L19*/ curfnum[13] = 0 ;
-            MELT_LOCATION("warmelt-macro.melt:3529:/ clear");
-            /*clear*/ /*_.IFELSE___V65*/ curfptr[56] = 0 ;}
-           ;
-           }
-          ;
-          /*_.LET___V48*/ curfptr[42] = /*_.IFELSE___V55*/ curfptr[54];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.CURCONDCONT__V49*/ curfptr[34] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.CURCONDLOC__V50*/ curfptr[38] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.LIST_FIRST__V51*/ curfptr[39] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.CURCONDTEST__V52*/ curfptr[40] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.LIST_FIRST__V53*/ curfptr[41] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ curfptr[33] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_#NULL__L17*/ curfnum[12] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3524:/ clear");
-          /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-         ;
-         /*_.IFELSE___V47*/ curfptr[43] = /*_.LET___V48*/ curfptr[42];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
-         /*clear*/ /*_.LET___V48*/ curfptr[42] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-macro.melt:3523:/ cond.else");
-       
-        MELT_LOCATION("warmelt-macro.melt:3523:/ block");
-        /*block*/{
-         /*_.MAKE_TUPLE2__V83*/ curfptr[57] = 
-          (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]),  (melt_ptr_t)(/*_.RES__V24*/ curfptr[19])));;
-         MELT_LOCATION("warmelt-macro.melt:3556:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3556:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_OR");/*_.INST__V85*/ curfptr[60] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3556:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[60])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V85*/ curfptr[60]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-          ;
-          MELT_LOCATION("warmelt-macro.melt:3556:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[60])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V85*/ curfptr[60]), (2), (/*_.MAKE_TUPLE2__V83*/ curfptr[57]), "SOR_DISJ");
-          ;
-          /*_.INST___V84*/ curfptr[59] = /*_.INST__V85*/ curfptr[60];;}
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3556:/ compute");
-         /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V86*/ curfptr[70] = /*_.INST___V84*/ curfptr[59];;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-macro.melt:3559:/ cppif.then");
-         MELT_LOCATION("warmelt-macro.melt:3559:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 
-            callcount;;
-           MELT_LOCATION("warmelt-macro.melt:3559:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
-            argtab[0].bp_cstring =  "mexpand_cond res for nonsexp cond";
-            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19];
-            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-macro.melt";
-            MELT_LOCATION("warmelt-macro.melt:3559:/ apply.arg");
-            argtab[3].bp_long = 3559;
-            /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V87*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[72];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:3559:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:3559:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-macro.melt:3559:/ cppif.else");
-         /*_.IFCPP___V87*/ curfptr[71] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-macro.melt:3555:/ block");
-         /*block*/{
-          /*_.PROGN___V89*/ curfptr[55] = /*_.IFCPP___V87*/ curfptr[71];;}
-         ;
-         /*_.IFELSE___V47*/ curfptr[43] = /*_.PROGN___V89*/ curfptr[55];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
-         /*clear*/ /*_.MAKE_TUPLE2__V83*/ curfptr[57] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
-         /*clear*/ /*_.INST___V84*/ curfptr[59] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
-         /*clear*/ /*_.SETQ___V86*/ curfptr[70] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
-         /*clear*/ /*_.IFCPP___V87*/ curfptr[71] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3523:/ clear");
-         /*clear*/ /*_.PROGN___V89*/ curfptr[55] = 0 ;}
-        ;
-        }
-       ;
-       /*_.IFELSE___V36*/ curfptr[31] = /*_.IFELSE___V47*/ curfptr[43];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-       /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3510:/ clear");
-       /*clear*/ /*_.IFELSE___V47*/ curfptr[43] = 0 ;}
-      ;
-      }
-     ;
-     /*_.LET___V29*/ curfptr[28] = /*_.IFELSE___V36*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
-     /*clear*/ /*_.CURCOND__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
-     /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
-     /*clear*/ /*_#NULL__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
-     /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3507:/ clear");
-     /*clear*/ /*_.IFELSE___V36*/ curfptr[31] = 0 ;}
-    ;
-    /*_#I__L23*/ curfnum[13] = 
-     ((/*_#IX__L6*/ curfnum[4]) - (1));;
-    MELT_LOCATION("warmelt-macro.melt:3563:/ compute");
-    /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L24*/ curfnum[12] = /*_#I__L23*/ curfnum[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
-    /*clear*/ /*_.LET___V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
-    /*clear*/ /*_#I__L23*/ curfnum[13] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3505:/ clear");
-    /*clear*/ /*_#SETQ___L24*/ curfnum[12] = 0 ;}
-   ;
-   ;
-    goto labloop_CONDLOOP_1;
-    labexit_CONDLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3505:/ loopepilog");
-  /*loopepilog*/
-   /*_.FOREVER___V27*/ curfptr[25] = /*_.CONDLOOP__V28*/ curfptr[27];;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3565:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3565:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L25*/ curfnum[19] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3565:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_cond final res";
-     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[19];
-     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3565:/ apply.arg");
-     argtab[3].bp_long = 3565;
-     /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V90*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[34];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3565:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[19] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3565:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3565:/ cppif.else");
-  /*_.IFCPP___V90*/ curfptr[56] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3566:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[19];;
-   MELT_LOCATION("warmelt-macro.melt:3566:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V92*/ curfptr[38];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.CEXPTUPLE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_#NBCOND__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.LASTCEXP__V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.RES__V24*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.IFCPP___V25*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.FOREVER___V27*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.IFCPP___V90*/ curfptr[56] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3486:/ clear");
-  /*clear*/ /*_.RETURN___V92*/ curfptr[38] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3482:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3482:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3482:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_COND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_57_warmelt_macro_MEXPAND_COND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_58_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3492:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3492:/ block");
-/*block*/{
- /*_#IS_NOT_A__L1*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-macro.melt:3493:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-macro.melt:3493:/ cond.then");
- MELT_LOCATION("warmelt-macro.melt:3493:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-macro.melt:3494:/ locexp");
-   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "COND with non-sexpr"), (melt_ptr_t)0);}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- MELT_LOCATION("warmelt-macro.melt:3492:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-macro.melt:3492:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3492:/ clear");
- /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_58_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_59_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_macro_MEXPAND_AND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 35
-  void* varptr[35];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<35; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 35;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_AND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3577:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3577:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3577:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3577:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3578:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3578:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3578:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3578:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3578:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3578:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3578:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3578)?(3578):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3578:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3578:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3578:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3579:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3579:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3579:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3579:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3579:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3579:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3579:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3579)?(3579):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3579:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3579:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3579:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3580:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3580:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3580:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_and sexpr:";
-    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3580:/ apply.arg");
-    argtab[3].bp_long = 3580;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3580:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3580:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3580:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3581:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3582:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3583:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:3588:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3588:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3588:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3588:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3585:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3585:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-   MELT_LOCATION("warmelt-macro.melt:3585:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.CXTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NBCOMP__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3592:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3592:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3592:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_and cxtup";
-     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3592:/ apply.arg");
-     argtab[3].bp_long = 3592;
-     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3592:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3592:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3592:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#I__L6*/ curfnum[4] = 
-   ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));;
-  MELT_LOCATION("warmelt-macro.melt:3593:/ cond");
-  /*cond*/ if (/*_#I__L6*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3593:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3593:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3595:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "AND without sons"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3596:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-macro.melt:3596:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3594:/ block");
-    /*block*/{
-     /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[21];;}
-    ;
-    /*_.IFELSE___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3593:/ clear");
-    /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3593:/ clear");
-    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3593:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:3593:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3597:/ block");
-    /*block*/{
-     /*_#I__L7*/ curfnum[6] = 
-      ((/*_#NBCOMP__L4*/ curfnum[0]) - (1));;
-     /*_.RES__V25*/ curfptr[22] = 
-      (melt_multiple_nth((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#I__L7*/ curfnum[6])));;
-     /*_#IX__L8*/ curfnum[7] = 
-      ((/*_#NBCOMP__L4*/ curfnum[0]) - (2));;
-     MELT_LOCATION("warmelt-macro.melt:3599:/ loop");
-     /*loop*/{ labloop_REVLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3599:/ loopbody");
-     
-      MELT_LOCATION("warmelt-macro.melt:3599:/ block");
-      /*block*/{
-       /*_#I__L9*/ curfnum[8] = 
-        ((/*_#IX__L8*/ curfnum[7]) < (0));;
-       MELT_LOCATION("warmelt-macro.melt:3600:/ cond");
-       /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:3600:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:3600:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3600:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3600:/ compute");
-          /*_.REVLOOP__V27*/ curfptr[26] = NULL;;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3600:/ exit");
-          /*exit*/{
-           goto labexit_REVLOOP_1;}
-          ;}
-         ;
-         /*epilog*/}
-        ;
-       } /*noelse*/
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3601:/ block");
-       /*block*/{
-        /*_.CURC__V29*/ curfptr[28] = 
-         (melt_multiple_nth((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#IX__L8*/ curfnum[7])));;
-        MELT_LOCATION("warmelt-macro.melt:3603:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3603:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ curfrout->tabval[7])), (4), "CLASS_SOURCE_IF");/*_.INST__V31*/ curfptr[30] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3603:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3603:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.CURC__V29*/ curfptr[28]), "SIF_TEST");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3603:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.RES__V25*/ curfptr[22]), "SIF_THEN");
-         ;
-         /*_.INST___V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3602:/ compute");
-        /*_.RES__V25*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.INST___V30*/ curfptr[29];;
-        /*_.LET___V28*/ curfptr[27] = /*_.SETQ___V32*/ curfptr[31];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3601:/ clear");
-        /*clear*/ /*_.CURC__V29*/ curfptr[28] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3601:/ clear");
-        /*clear*/ /*_.INST___V30*/ curfptr[29] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3601:/ clear");
-        /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;}
-       ;
-       /*_#I__L10*/ curfnum[9] = 
-        ((/*_#IX__L8*/ curfnum[7]) - (1));;
-       MELT_LOCATION("warmelt-macro.melt:3608:/ compute");
-       /*_#IX__L8*/ curfnum[7] = /*_#SETQ___L11*/ curfnum[10] = /*_#I__L10*/ curfnum[9];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
-       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
-       /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
-       /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3599:/ clear");
-       /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;}
-      ;
-      ;
-       goto labloop_REVLOOP_1;
-       labexit_REVLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3599:/ loopepilog");
-     /*loopepilog*/
-      /*_.FOREVER___V26*/ curfptr[25] = /*_.REVLOOP__V27*/ curfptr[26];;
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:3610:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:3610:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:3610:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_and res:";
-        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:3610:/ apply.arg");
-        argtab[3].bp_long = 3610;
-        /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V25*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[29];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3610:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3610:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:3610:/ cppif.else");
-     /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-macro.melt:3611:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V25*/ curfptr[22];;
-      MELT_LOCATION("warmelt-macro.melt:3611:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V24*/ curfptr[21] = /*_.RETURN___V35*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
-     /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
-     /*clear*/ /*_.RES__V25*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
-     /*clear*/ /*_#IX__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
-     /*clear*/ /*_.FOREVER___V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
-     /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3597:/ clear");
-     /*clear*/ /*_.RETURN___V35*/ curfptr[31] = 0 ;}
-    ;
-    /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V24*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3593:/ clear");
-    /*clear*/ /*_.LET___V24*/ curfptr[21] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V21*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3581:/ clear");
-  /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3577:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3577:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3577:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_AND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_59_warmelt_macro_MEXPAND_AND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_60_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3588:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3588:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:3588:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:3588:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:3588:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:3588:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:3588:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3588:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_60_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_61_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_macro_PATEXPAND_AS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 36
-  void* varptr[36];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<36; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 36;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_AS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3615:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3615:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3615:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3615:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3616:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3616:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3616:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3616:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3616:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3616:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3616:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3616)?(3616):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3616:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3616:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3616:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3617:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3617:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3617:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3617:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3617:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3617:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3617:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3617)?(3617):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3617:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3617:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3617:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3618:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3618:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3618:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3618:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3618:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3618:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3618:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3618)?(3618):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3618:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3618:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3618:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3619:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3619:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3619:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_as sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3619:/ apply.arg");
-    argtab[3].bp_long = 3619;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3619:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3619:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3619:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3620:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3621:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3622:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.LIST_FIRST__V16*/ curfptr[15] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
-  MELT_LOCATION("warmelt-macro.melt:3624:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3624:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3624:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-macro.melt:3624:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.ARGSP__V18*/ curfptr[17])));;
-  /*_#I__L6*/ curfnum[5] = 
-   ((/*_#MULTIPLE_LENGTH__L5*/ curfnum[0]) != (2));;
-  MELT_LOCATION("warmelt-macro.melt:3626:/ cond");
-  /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3626:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3626:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3628:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern expects two arguments: ?patvar subpattern"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3629:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-macro.melt:3629:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3627:/ block");
-    /*block*/{
-     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;}
-    ;
-    /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3626:/ clear");
-    /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3626:/ clear");
-    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3626:/ cond.else");
-  
-   /*_.IF___V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3630:/ block");
-  /*block*/{
-   /*_.ARGVAR__V23*/ curfptr[20] = 
-    (melt_multiple_nth((melt_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (0)));;
-   /*_.ARGSUB__V24*/ curfptr[23] = 
-    (melt_multiple_nth((melt_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (1)));;
-   /*_#IS_A__L7*/ curfnum[6] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-macro.melt:3633:/ cond");
-   /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3633:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3633:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3635:/ locexp");
-     melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern with useless joker"), (melt_ptr_t)0);}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3636:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.ARGSUB__V24*/ curfptr[23];;
-      MELT_LOCATION("warmelt-macro.melt:3636:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3634:/ block");
-     /*block*/{
-      /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;}
-     ;
-     /*_.IF___V25*/ curfptr[24] = /*_.PROGN___V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3633:/ clear");
-     /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3633:/ clear");
-     /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:3633:/ cond.else");
-   
-    /*_.IF___V25*/ curfptr[24] = NULL;;
-    }
-   ;
-   /*_#IS_NOT_A__L8*/ curfnum[7] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ curfrout->tabval[6])));;
-   MELT_LOCATION("warmelt-macro.melt:3637:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L8*/ curfnum[7]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3637:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:3637:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3639:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern needs a pattern variable as first argument"), (melt_ptr_t)0);}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3640:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-      MELT_LOCATION("warmelt-macro.melt:3640:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3638:/ block");
-     /*block*/{
-      /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[26];;}
-     ;
-     /*_.IF___V28*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3637:/ clear");
-     /*clear*/ /*_.RETURN___V29*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3637:/ clear");
-     /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:3637:/ cond.else");
-   
-    /*_.IF___V28*/ curfptr[25] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3641:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3642:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3642:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AS*/ curfrout->tabval[7])), (4), "CLASS_SOURCE_PATTERN_AS");/*_.INST__V33*/ curfptr[32] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3642:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3642:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @ASPAT_VARPAT", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.ARGVAR__V23*/ curfptr[20]), "ASPAT_VARPAT");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3642:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @ASPAT_SUBPAT", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.ARGSUB__V24*/ curfptr[23]), "ASPAT_SUBPAT");
-     ;
-     /*_.RES__V32*/ curfptr[29] = /*_.INST__V33*/ curfptr[32];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:3647:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:3647:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:3647:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
-       argtab[0].bp_cstring =  "patexpand_as returns res";
-       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:3647:/ apply.arg");
-       argtab[3].bp_long = 3647;
-       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V32*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3647:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3647:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:3647:/ cppif.else");
-    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:3648:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V32*/ curfptr[29];;
-     MELT_LOCATION("warmelt-macro.melt:3648:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V31*/ curfptr[26] = /*_.RETURN___V36*/ curfptr[34];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3641:/ clear");
-    /*clear*/ /*_.RES__V32*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3641:/ clear");
-    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3641:/ clear");
-    /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
-   ;
-   /*_.LET___V22*/ curfptr[19] = /*_.LET___V31*/ curfptr[26];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_.ARGVAR__V23*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_.ARGSUB__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_.IF___V28*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3630:/ clear");
-   /*clear*/ /*_.LET___V31*/ curfptr[26] = 0 ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.LET___V22*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3620:/ clear");
-  /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3615:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3615:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3615:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_AS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_61_warmelt_macro_PATEXPAND_AS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_62_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_macro_MEXPAND_AS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_AS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3651:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3651:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3651:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3651:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3652:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3652:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3652:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3652:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3652:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3652:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3652:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3652)?(3652):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3652:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3652:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3652:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3653:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3653:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3653:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3653:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3653:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3653:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3653:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3653)?(3653):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3653:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3653:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3653:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3654:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3654:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3654:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_as sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3654:/ apply.arg");
-    argtab[3].bp_long = 3654;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3654:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3654:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3654:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3655:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3656:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-macro.melt:3658:/ locexp");
-  melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "AS cannot be macro-expanded in expression context"), (melt_ptr_t)0);}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3659:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-   MELT_LOCATION("warmelt-macro.melt:3659:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3655:/ clear");
-  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3655:/ clear");
-  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3651:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3651:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3651:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_AS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_62_warmelt_macro_MEXPAND_AS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_63_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_macro_PATEXPAND_WHEN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_WHEN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3665:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3665:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3665:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3665:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3666:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3666:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3666:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3666:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3666:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3666:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3666:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3666)?(3666):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3666:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3666:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3666:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3667:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3667:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3667:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3667:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3667:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3667:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3667:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3667)?(3667):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3667:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3667:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3667:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3668:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3668:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3668:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3668:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3668:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3668:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3668:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3668)?(3668):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3668:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3668:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3668:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3669:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3669:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3669:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_when sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3669:/ apply.arg");
-    argtab[3].bp_long = 3669;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3669:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3669:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3669:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3670:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3671:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3672:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-macro.melt:3675:/ locexp");
-  melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "WHEN is not yet implemented in patterns"), (melt_ptr_t)0);}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3676:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3676:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3676:/ cond");
-    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3676:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-macro.melt:3676:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:3676:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:3676:/ locexp");
-       melt_assert_failed(( "@$@ unimplemented patexpand_when"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3676)?(3676):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3676:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3676:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3677:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-   MELT_LOCATION("warmelt-macro.melt:3677:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V18*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3670:/ clear");
-  /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3665:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3665:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3665:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_WHEN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_63_warmelt_macro_PATEXPAND_WHEN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_64_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_macro_MEXPAND_WHEN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_WHEN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3680:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt: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(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt: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(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3680:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3681:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3681:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3681:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3681:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3681:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3681:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3681:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3681)?(3681):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3681:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3681:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3681:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3682:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3682:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3682:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3682:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3682:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3682:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3682:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3682)?(3682):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3682:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3682:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3682:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3683:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3683:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3683:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_when sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3683:/ apply.arg");
-    argtab[3].bp_long = 3683;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3683:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3683:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3683:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3684:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3685:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-macro.melt:3687:/ locexp");
-  melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "WHEN cannot be macro-expanded in expression context"), (melt_ptr_t)0);}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3688:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-   MELT_LOCATION("warmelt-macro.melt:3688:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3684:/ clear");
-  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3684:/ clear");
-  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3680:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3680:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3680:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_WHEN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_64_warmelt_macro_MEXPAND_WHEN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_65_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_macro_PATEXPAND_AND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_AND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3695:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3695:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3695:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3695:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3696:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3696:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3696:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3696:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3696:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3696:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3696:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3696)?(3696):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3696:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3696:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3696:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3697:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3697:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3697:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3697:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3697:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3697:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3697:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3697)?(3697):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3697:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3697:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3697:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3698:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3698:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3698:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3698:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3698:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3698:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3698:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3698)?(3698):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3698:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3698:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3698:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3699:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3699:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3699:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_and sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3699:/ apply.arg");
-    argtab[3].bp_long = 3699;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3699:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3699:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3699:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3700:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3701:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3702:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.LIST_FIRST__V16*/ curfptr[15] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
-  MELT_LOCATION("warmelt-macro.melt:3704:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3704:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3704:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-macro.melt:3704:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3705:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3705:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_AND*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_AND");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3705:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3705:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @ANDPAT_CONJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "ANDPAT_CONJ");
-   ;
-   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3709:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3709:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3709:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
-     argtab[0].bp_cstring =  "patexpand_and res";
-     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3709:/ apply.arg");
-     argtab[3].bp_long = 3709;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3709:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3709:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3709:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3710:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-macro.melt:3710:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3700:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3695:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3695:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3695:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_AND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_65_warmelt_macro_PATEXPAND_AND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_66_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_macro_MEXPAND_OR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 27
-  void* varptr[27];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<27; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 27;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_OR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3718:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3718:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3718:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3718:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3719:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3719:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3719:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_or sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3719:/ apply.arg");
-    argtab[3].bp_long = 3719;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3719:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3719:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3719:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3720:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3720:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3720:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3720:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3720:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3720:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3720:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3720)?(3720):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3720:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3720:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3720:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3721:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3721:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3721:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3721:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3721:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3721:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3721:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3721)?(3721):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3721:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3721:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3721:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3722:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3723:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3724:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:3728:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3728:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3728:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3728:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3725:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3725:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-   MELT_LOCATION("warmelt-macro.melt:3725:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.CXTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NBCOMP__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));;
-  /*_#I__L5*/ curfnum[4] = 
-   ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));;
-  MELT_LOCATION("warmelt-macro.melt:3732:/ cond");
-  /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3732:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3732:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3734:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "OR without sons"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3735:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:3735:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3733:/ block");
-    /*block*/{
-     /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;}
-    ;
-    /*_.IFELSE___V19*/ curfptr[18] = /*_.PROGN___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3732:/ clear");
-    /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3732:/ clear");
-    /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3732:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:3732:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3736:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3737:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3737:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[7])), (3), "CLASS_SOURCE_OR");/*_.INST__V24*/ curfptr[23] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3737:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:3737:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.CXTUP__V18*/ curfptr[17]), "SOR_DISJ");
-      ;
-      /*_.RES__V23*/ curfptr[20] = /*_.INST__V24*/ curfptr[23];;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:3740:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:3740:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:3740:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_or res";
-        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:3740:/ apply.arg");
-        argtab[3].bp_long = 3740;
-        /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V23*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3740:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3740:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:3740:/ cppif.else");
-     /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-macro.melt:3741:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V23*/ curfptr[20];;
-      MELT_LOCATION("warmelt-macro.melt:3741:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V22*/ curfptr[19] = /*_.RETURN___V27*/ curfptr[25];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3736:/ clear");
-     /*clear*/ /*_.RES__V23*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3736:/ clear");
-     /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3736:/ clear");
-     /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;}
-    ;
-    /*_.IFELSE___V19*/ curfptr[18] = /*_.LET___V22*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3732:/ clear");
-    /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V19*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3722:/ clear");
-  /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3718:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3718:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3718:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_OR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_66_warmelt_macro_MEXPAND_OR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_67_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3728:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3728:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:3728:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:3728:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:3728:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:3728:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:3728:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3728:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_67_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_68_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_macro_PATEXPAND_OR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_OR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3745:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3745:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3745:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3745:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3746:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3746:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3746:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3746:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3746:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3746:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3746:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3746)?(3746):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3746:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3746:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3746:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3747:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3747:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3747:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3747:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3747:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3747:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3747:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3747)?(3747):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3747:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3747:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3747:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3748:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3748:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3748:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3748:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3748:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3748:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3748:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3748)?(3748):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3748:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3748:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3748:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3749:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3749:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3749:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_or sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3749:/ apply.arg");
-    argtab[3].bp_long = 3749;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3749:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3749:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3749:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3750:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3751:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3752:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.LIST_FIRST__V16*/ curfptr[15] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
-  MELT_LOCATION("warmelt-macro.melt:3754:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3754:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3754:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-macro.melt:3754:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3755:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3755:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_OR*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_OR");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3755:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3755:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @ORPAT_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "ORPAT_DISJ");
-   ;
-   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3759:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3759:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3759:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
-     argtab[0].bp_cstring =  "patexpand_or res";
-     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3759:/ apply.arg");
-     argtab[3].bp_long = 3759;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3759:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3759:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3759:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3760:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-macro.melt:3760:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3750:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3745:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3745:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3745:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_OR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_68_warmelt_macro_PATEXPAND_OR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_69_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_macro_MEXPAND_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3768:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3768:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3768:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3768:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3769:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3769:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3769:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_tuple sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3769:/ apply.arg");
-    argtab[3].bp_long = 3769;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3769:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3769:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3769:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3770:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3770:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3770:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3770:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3770:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3770:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3770:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3770)?(3770):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3770:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3770:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3770:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3771:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3771:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3771:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3771:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3771:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3771:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3771:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3771)?(3771):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3771:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3771:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3771:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3772:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3773:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3774:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3775:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3775:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3775:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XARGTUP__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3776:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3776:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[4])), (3), "CLASS_SOURCE_TUPLE");/*_.INST__V16*/ curfptr[15] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3776:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3776:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.XARGTUP__V14*/ curfptr[13]), "SARGOP_ARGS");
-   ;
-   /*_.RES__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3780:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3780:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3780:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_tuple result";
-     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3780:/ apply.arg");
-     argtab[3].bp_long = 3780;
-     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3780:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3780:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3780:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3781:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V15*/ curfptr[14];;
-   MELT_LOCATION("warmelt-macro.melt:3781:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V19*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
-  /*clear*/ /*_.XARGTUP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
-  /*clear*/ /*_.RES__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3772:/ clear");
-  /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3768:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3768:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3768:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_69_warmelt_macro_MEXPAND_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_70_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_macro_PATEXPAND_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3785:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3785:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3785:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3785:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3786:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3786:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3786:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3786:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3786:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3786:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3786:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3786)?(3786):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3786:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3786:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3786:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3787:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3787:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3787:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3787:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3787:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3787:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3787:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3787)?(3787):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3787:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3787:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3787:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3788:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3788:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3788:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3788:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3788:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3788:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3788:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3788)?(3788):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3788:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3788:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3788:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3789:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3789:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3789:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_tuple sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3789:/ apply.arg");
-    argtab[3].bp_long = 3789;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3789:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3789:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3789:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3790:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3791:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3792:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.LIST_FIRST__V16*/ curfptr[15] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
-  MELT_LOCATION("warmelt-macro.melt:3794:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3794:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3794:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-macro.melt:3794:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3795:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3795:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_TUPLE*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_TUPLE");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3795:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3795:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @CTPAT_SUBPA", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "CTPAT_SUBPA");
-   ;
-   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3799:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3799:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3799:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
-     argtab[0].bp_cstring =  "patexpand_tuple res";
-     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3799:/ apply.arg");
-     argtab[3].bp_long = 3799;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3799:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3799:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3799:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3800:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-macro.melt:3800:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3790:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3785:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3785:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3785:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_70_warmelt_macro_PATEXPAND_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_71_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_macro_MEXPAND_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3807:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3807:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3807:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3807:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3808:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3808:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3808:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_list sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3808:/ apply.arg");
-    argtab[3].bp_long = 3808;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3808:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3808:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3808:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3809:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3809:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3809:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3809:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3809:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3809:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3809:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3809)?(3809):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3809:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3809:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3809:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3810:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3810:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3810:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3810:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3810:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3810:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3810:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3810)?(3810):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3810:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3810:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3810:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3811:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3812:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3813:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3814:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3814:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3814:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XARGTUP__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3815:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3815:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[4])), (3), "CLASS_SOURCE_LIST");/*_.INST__V16*/ curfptr[15] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3815:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3815:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.XARGTUP__V14*/ curfptr[13]), "SARGOP_ARGS");
-   ;
-   /*_.RES__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3819:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3819:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3819:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_list result";
-     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3819:/ apply.arg");
-     argtab[3].bp_long = 3819;
-     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3819:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3819:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3819:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3820:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V15*/ curfptr[14];;
-   MELT_LOCATION("warmelt-macro.melt:3820:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V19*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
-  /*clear*/ /*_.XARGTUP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
-  /*clear*/ /*_.RES__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3811:/ clear");
-  /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3807:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3807:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3807:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_71_warmelt_macro_MEXPAND_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_72_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_macro_PATEXPAND_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PATEXPAND_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3824:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3824:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3824:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3824:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3825:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3825:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3825:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3825:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3825:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3825:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3825:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3825)?(3825):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3825:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3825:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3825:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3826:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3826:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3826:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3826:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3826:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3826:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3826:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3826)?(3826):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3826:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3826:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3826:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3827:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3827:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3827:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3827:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3827:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3827:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3827:/ locexp");
-      melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3827)?(3827):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3827:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3827:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3827:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3828:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3828:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3828:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
-    argtab[0].bp_cstring =  "patexpand_or sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3828:/ apply.arg");
-    argtab[3].bp_long = 3828;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3828:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3828:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3828:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3829:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3830:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3831:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; };
-  ;
-  /*_.LIST_FIRST__V16*/ curfptr[15] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V14*/ curfptr[13])));;
-  /*_.CURPAIR__V17*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));;
-  MELT_LOCATION("warmelt-macro.melt:3833:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3833:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3833:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PCTX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-macro.melt:3833:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V15*/ curfptr[14];
-   /*_.ARGSP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3834:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3834:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_LIST*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_PATTERN_LIST");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3834:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3834:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @CTPAT_SUBPA", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.ARGSP__V18*/ curfptr[17]), "CTPAT_SUBPA");
-   ;
-   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3838:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3838:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3838:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
-     argtab[0].bp_cstring =  "patexpand_list res";
-     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3838:/ apply.arg");
-     argtab[3].bp_long = 3838;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3838:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3838:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3838:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3839:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-macro.melt:3839:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3829:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3824:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
-  MELT_LOCATION("warmelt-macro.melt:3824:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3824:/ clear");
- /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PATEXPAND_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_72_warmelt_macro_PATEXPAND_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_73_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_macro_MEXPAND_MATCH_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 66
-  void* varptr[66];
-#define CURFRAM_NBVARNUM 16
-  long varnum[16];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<66; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 66;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_MATCH", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3847:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3847:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3847:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3847:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3848:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3848:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:3848:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3848:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3848:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3848:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3848:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3848)?(3848):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3848:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3848:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3848:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3849:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3849:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3849:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3849:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3849:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3849:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3849:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3849)?(3849):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3849:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3849:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3849:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3850:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3850:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3850:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_match sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3850:/ apply.arg");
-    argtab[3].bp_long = 3850;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3850:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3850:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3850:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3851:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3852:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3853:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.MSEXP__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:3855:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3855:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:3855:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MATSX__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MSEXP__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LIST_FIRST__V18*/ curfptr[17] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.PAIR_TAIL__V19*/ curfptr[18] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));;
-  /*_.PAIR_TAIL__V20*/ curfptr[19] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.PAIR_TAIL__V19*/ curfptr[18])));;
-  MELT_LOCATION("warmelt-macro.melt:3859:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3859:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3859:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
-   ;
-   /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3856:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:3856:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
-   MELT_LOCATION("warmelt-macro.melt:3856:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20];
-   /*_.MEXPTUPLE__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_TAIL__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NBMATCH__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22])));;
-  MELT_LOCATION("warmelt-macro.melt:3865:/ block");
-  /*block*/{
-   /*_.LX__V25*/ curfptr[24] = 
-    (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (-1)));;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3866:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3866:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:3866:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_match lastmexp lx";
-      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:3866:/ apply.arg");
-      argtab[3].bp_long = 3866;
-      /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3866:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3866:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3866:/ cppif.else");
-   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V24*/ curfptr[23] = /*_.LX__V25*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3865:/ clear");
-   /*clear*/ /*_.LX__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3865:/ clear");
-   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;}
-  ;
-  /*_.LASTMEXP__V28*/ curfptr[26] = /*_.LET___V24*/ curfptr[23];;
-  /*_#IX__L6*/ curfnum[4] = 
-   ((/*_#NBMATCH__L4*/ curfnum[0]) - (1));;
-  /*_.CASELIST__V29*/ curfptr[24] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3871:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3871:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3871:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_match mexptuple";
-     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3871:/ apply.arg");
-     argtab[3].bp_long = 3871;
-     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3871:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3871:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3871:/ cppif.else");
-  /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3872:/ loop");
-  /*loop*/{ labloop_MATCHLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3872:/ loopbody");
-  
-   MELT_LOCATION("warmelt-macro.melt:3872:/ block");
-   /*block*/{
-    /*_#I__L8*/ curfnum[6] = 
-     ((/*_#IX__L6*/ curfnum[4]) < (0));;
-    MELT_LOCATION("warmelt-macro.melt:3873:/ cond");
-    /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3873:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3873:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3873:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3873:/ compute");
-       /*_.MATCHLOOP__V33*/ curfptr[32] = NULL;;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3873:/ exit");
-       /*exit*/{
-        goto labexit_MATCHLOOP_1;}
-       ;}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3874:/ block");
-    /*block*/{
-     /*_.CURMATCH__V34*/ curfptr[33] = 
-      (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (/*_#IX__L6*/ curfnum[4])));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:3875:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:3875:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:3875:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_match curmatch";
-        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:3875:/ apply.arg");
-        argtab[3].bp_long = 3875;
-        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3875:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3875:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:3875:/ cppif.else");
-     /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_#IS_A__L10*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-     MELT_LOCATION("warmelt-macro.melt:3878:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3878:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3878:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3879:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3879:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 2, "SEXP_CONTENTS");/*_.CURMATCHCONT__V37*/ curfptr[35] = slot; };
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3880:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 1, "LOCA_LOCATION");/*_.CURMATCHLOC__V38*/ curfptr[37] = slot; };
-        ;
-        /*_.LIST_FIRST__V39*/ curfptr[38] = 
-         (melt_list_first((melt_ptr_t)(/*_.CURMATCHCONT__V37*/ curfptr[35])));;
-        /*_.CURMATCHPATX__V40*/ curfptr[39] = 
-         (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V39*/ curfptr[38])));;
-        /*_.LIST_FIRST__V41*/ curfptr[40] = 
-         (melt_list_first((melt_ptr_t)(/*_.CURMATCHCONT__V37*/ curfptr[35])));;
-        /*_.CURMATCHRESTPAIRS__V42*/ curfptr[41] = 
-         (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V41*/ curfptr[40])));;
-        /*_.MAKE_MAPOBJECT__V43*/ curfptr[42] = 
-         (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[11])), (13)));;
-        MELT_LOCATION("warmelt-macro.melt:3883:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3883:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ curfrout->tabval[9])), (3), "CLASS_PATTERN_EXPANSION_CONTEXT");/*_.INST__V45*/ curfptr[44] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3883:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @PCTX_MEXPANDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (0), (/*_.MEXPANDER__V4*/ curfptr[3]), "PCTX_MEXPANDER");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3883:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @PCTX_PEXPANDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (1), ((/*!PATTERNEXPAND_1*/ curfrout->tabval[10])), "PCTX_PEXPANDER");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3883:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @PCTX_VARMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V45*/ curfptr[44])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V45*/ curfptr[44]), (2), (/*_.MAKE_MAPOBJECT__V43*/ curfptr[42]), "PCTX_VARMAP");
-         ;
-         /*_.CURPATCTX__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3887:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3887:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[3];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:3887:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-macro.melt:3887:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURPATCTX__V44*/ curfptr[43];
-          MELT_LOCATION("warmelt-macro.melt:3887:/ apply.arg");
-          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CURMATCHLOC__V38*/ curfptr[37];
-          /*_.CP__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.CURMATCHPATX__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-macro.melt:3888:/ cppif.then");
-         MELT_LOCATION("warmelt-macro.melt:3888:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-            callcount;;
-           MELT_LOCATION("warmelt-macro.melt:3888:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
-            argtab[0].bp_cstring =  "mexpand_match curpat";
-            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-macro.melt";
-            MELT_LOCATION("warmelt-macro.melt:3888:/ apply.arg");
-            argtab[3].bp_long = 3888;
-            /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CP__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:3888:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:3888:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-macro.melt:3888:/ cppif.else");
-         /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-macro.melt:3889:/ cppif.then");
-         MELT_LOCATION("warmelt-macro.melt:3889:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-macro.melt:3889:/ cond");
-           /*cond*/ if (/*_.CP__V47*/ curfptr[46]) /*then*/ {
-           MELT_LOCATION("warmelt-macro.melt:3889:/ cond.then");
-           /*_.IFELSE___V51*/ curfptr[50] = (/*nil*/NULL);;
-           } else {MELT_LOCATION("warmelt-macro.melt:3889:/ cond.else");
-           
-            MELT_LOCATION("warmelt-macro.melt:3889:/ block");
-            /*block*/{
-             /*block*/{
-              
-              {
-              MELT_LOCATION("warmelt-macro.melt:3889:/ locexp");
-              melt_assert_failed(( "check curpat"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3889)?(3889):__LINE__, __FUNCTION__);
-;}
-              ;
-              /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
-             ;
-             /*epilog*/}
-            ;
-            }
-           ;
-           /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V51*/ curfptr[50];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:3889:/ clear");
-           /*clear*/ /*_.IFELSE___V51*/ curfptr[50] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-macro.melt:3889:/ cppif.else");
-         /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         /*_.LET___V46*/ curfptr[45] = /*_.CP__V47*/ curfptr[46];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3887:/ clear");
-         /*clear*/ /*_.CP__V47*/ curfptr[46] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3887:/ clear");
-         /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3887:/ clear");
-         /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;}
-        ;
-        /*_.CURPAT__V52*/ curfptr[50] = /*_.LET___V46*/ curfptr[45];;
-        MELT_LOCATION("warmelt-macro.melt:3891:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-macro.melt:3891:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-         MELT_LOCATION("warmelt-macro.melt:3891:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-         /*_.CURBODY__V53*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.CURMATCHRESTPAIRS__V42*/ curfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3892:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3892:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ curfrout->tabval[13])), (4), "CLASS_SOURCE_MATCH_CASE");/*_.INST__V55*/ curfptr[48] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3892:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[48])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V55*/ curfptr[48]), (1), (/*_.CURMATCHLOC__V38*/ curfptr[37]), "LOCA_LOCATION");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3892:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @SCAM_PATT", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[48])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V55*/ curfptr[48]), (2), (/*_.CURPAT__V52*/ curfptr[50]), "SCAM_PATT");
-         ;
-         MELT_LOCATION("warmelt-macro.melt:3892:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @SCAM_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[48])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V55*/ curfptr[48]), (3), (/*_.CURBODY__V53*/ curfptr[46]), "SCAM_BODY");
-         ;
-         /*_.CURCASE__V54*/ curfptr[47] = /*_.INST__V55*/ curfptr[48];;}
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:3897:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:3897:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:3897:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_match curcase";
-           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
-           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:3897:/ apply.arg");
-           argtab[3].bp_long = 3897;
-           /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURCASE__V54*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3897:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:3897:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:3897:/ cppif.else");
-        /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3898:/ locexp");
-        meltgc_prepend_list((melt_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (melt_ptr_t)(/*_.CURCASE__V54*/ curfptr[47]));}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURMATCHCONT__V37*/ curfptr[35] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURMATCHLOC__V38*/ curfptr[37] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.LIST_FIRST__V39*/ curfptr[38] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURMATCHPATX__V40*/ curfptr[39] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.LIST_FIRST__V41*/ curfptr[40] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURMATCHRESTPAIRS__V42*/ curfptr[41] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.MAKE_MAPOBJECT__V43*/ curfptr[42] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURPATCTX__V44*/ curfptr[43] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.LET___V46*/ curfptr[45] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURPAT__V52*/ curfptr[50] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURBODY__V53*/ curfptr[46] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.CURCASE__V54*/ curfptr[47] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3879:/ clear");
-        /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3878:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3878:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:3902:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(MATCH <expr> <match-case>...) with non sexpr matchcase"), (melt_ptr_t)0);}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:3901:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3874:/ clear");
-     /*clear*/ /*_.CURMATCH__V34*/ curfptr[33] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3874:/ clear");
-     /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3874:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;}
-    ;
-    /*_#I__L13*/ curfnum[10] = 
-     ((/*_#IX__L6*/ curfnum[4]) - (1));;
-    MELT_LOCATION("warmelt-macro.melt:3904:/ compute");
-    /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L14*/ curfnum[8] = /*_#I__L13*/ curfnum[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3872:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3872:/ clear");
-    /*clear*/ /*_#I__L13*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3872:/ clear");
-    /*clear*/ /*_#SETQ___L14*/ curfnum[8] = 0 ;}
-   ;
-   ;
-    goto labloop_MATCHLOOP_1;
-    labexit_MATCHLOOP_1:;MELT_LOCATION("warmelt-macro.melt:3872:/ loopepilog");
-  /*loopepilog*/
-   /*_.FOREVER___V32*/ curfptr[30] = /*_.MATCHLOOP__V33*/ curfptr[32];;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:3905:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:3905:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:3905:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_match caselist";
-     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[6];
-     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:3905:/ apply.arg");
-     argtab[3].bp_long = 3905;
-     /*_.DEBUG_MSG_FUN__V59*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V58*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3905:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3905:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[35] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:3905:/ cppif.else");
-  /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:3906:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3909:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3909:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
-    /*_.LIST_TO_MULTIPLE__V61*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3906:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3906:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_MATCH*/ curfrout->tabval[14])), (4), "CLASS_SOURCE_MATCH");/*_.INST__V63*/ curfptr[40] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3906:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[40])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[40]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3906:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SMAT_MATCHEDX", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[40])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[40]), (2), (/*_.MATSX__V17*/ curfptr[16]), "SMAT_MATCHEDX");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3906:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SMAT_CASES", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[40])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[40]), (3), (/*_.LIST_TO_MULTIPLE__V61*/ curfptr[38]), "SMAT_CASES");
-    ;
-    /*_.SMAT__V62*/ curfptr[39] = /*_.INST__V63*/ curfptr[40];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:3911:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:3911:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:3911:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_match result smat";
-      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10];
-      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:3911:/ apply.arg");
-      argtab[3].bp_long = 3911;
-      /*_.DEBUG_MSG_FUN__V65*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SMAT__V62*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V64*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[42];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3911:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3911:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[42] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:3911:/ cppif.else");
-   /*_.IFCPP___V64*/ curfptr[41] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:3912:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.SMAT__V62*/ curfptr[39];;
-    MELT_LOCATION("warmelt-macro.melt:3912:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V60*/ curfptr[37] = /*_.RETURN___V66*/ curfptr[43];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
-   /*clear*/ /*_.LIST_TO_MULTIPLE__V61*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
-   /*clear*/ /*_.SMAT__V62*/ curfptr[39] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
-   /*clear*/ /*_.IFCPP___V64*/ curfptr[41] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3906:/ clear");
-   /*clear*/ /*_.RETURN___V66*/ curfptr[43] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V60*/ curfptr[37];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.MSEXP__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.MATSX__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.MEXPTUPLE__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_#NBMATCH__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LASTMEXP__V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.CASELIST__V29*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.FOREVER___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3851:/ clear");
-  /*clear*/ /*_.LET___V60*/ curfptr[37] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3847:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3847:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3847:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_MATCH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_73_warmelt_macro_MEXPAND_MATCH*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_74_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3859:/ getarg");
- /*_.C__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3859:/ block");
-/*block*/{
- /*_#IS_NOT_A__L1*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-macro.melt:3860:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-macro.melt:3860:/ cond.then");
- MELT_LOCATION("warmelt-macro.melt:3860:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-macro.melt:3861:/ locexp");
-   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "MATCH with non-sexpr"), (melt_ptr_t)0);}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- MELT_LOCATION("warmelt-macro.melt:3859:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-macro.melt:3859:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3859:/ clear");
- /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_74_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_75_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_macro_MEXPAND_LETBINDING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 64
-  void* varptr[64];
-#define CURFRAM_NBVARNUM 13
-  long varnum[13];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<64; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 64;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_LETBINDING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:3920:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:3920:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:3920:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:3920:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3921:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3921:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:3921:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_letbinding sexpr";
-    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:3921:/ apply.arg");
-    argtab[3].bp_long = 3921;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3921:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3921:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3921:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3922:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3922:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:3922:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3922:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3922:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3922:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3922:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3922)?(3922):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3922:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3922:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3922:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:3923:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:3923:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-macro.melt:3923:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3923:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3923:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3923:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3923:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (3923)?(3923):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3923:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3923:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:3923:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:3924:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:3925:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3926:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.CTYP__V14*/ curfptr[13] = (/*!CTYPE_VALUE*/ curfrout->tabval[3]);;
-  /*_.VAR__V15*/ curfptr[14] = (/*nil*/NULL);;
-  /*_.EXPR__V16*/ curfptr[15] = (/*nil*/NULL);;
-  /*_.CURPAIR__V17*/ curfptr[16] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURARG__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_.PAIR_HEAD__V19*/ curfptr[18] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-  MELT_LOCATION("warmelt-macro.melt:3933:/ compute");
-  /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_HEAD__V19*/ curfptr[18];;
-  /*_#IS_A__L4*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:3934:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3934:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3934:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3935:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:3935:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 2, "SYMB_DATA");/*_.CTY__V23*/ curfptr[22] = slot; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:3936:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.TYNAM__V24*/ curfptr[23] = slot; };
-     ;
-     /*_#IS_NOT_A__L5*/ curfnum[4] = 
-      !melt_is_instance_of((melt_ptr_t)(/*_.CTY__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-macro.melt:3939:/ cond");
-     /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3939:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3939:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3940:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ curfptr[23]));}
-        ;
-        /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3939:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3939:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3941:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ curfptr[22]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V26*/ curfptr[25] = slot; };
-       ;
-       /*_#__L6*/ curfnum[5] = 
-        ((/*_.CTYPE_KEYWORD__V26*/ curfptr[25]) == (/*_.CURARG__V18*/ curfptr[17]));;
-       MELT_LOCATION("warmelt-macro.melt:3941:/ cond");
-       /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:3941:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:3941:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3942:/ compute");
-         /*_.CTYP__V14*/ curfptr[13] = /*_.SETQ___V28*/ curfptr[27] = /*_.CTY__V23*/ curfptr[22];;
-         /*_.IFELSE___V27*/ curfptr[26] = /*_.SETQ___V28*/ curfptr[27];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3941:/ clear");
-         /*clear*/ /*_.SETQ___V28*/ curfptr[27] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-macro.melt:3941:/ cond.else");
-       
-        MELT_LOCATION("warmelt-macro.melt:3941:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3943:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ curfptr[22]), 10, "CTYPE_ALTKEYWORD");/*_.CTYPE_ALTKEYWORD__V29*/ curfptr[27] = slot; };
-         ;
-         /*_#__L7*/ curfnum[6] = 
-          ((/*_.CTYPE_ALTKEYWORD__V29*/ curfptr[27]) == (/*_.CURARG__V18*/ curfptr[17]));;
-         MELT_LOCATION("warmelt-macro.melt:3943:/ cond");
-         /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:3943:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:3943:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-macro.melt:3944:/ compute");
-           /*_.CTYP__V14*/ curfptr[13] = /*_.SETQ___V30*/ curfptr[29] = /*_.CTY__V23*/ curfptr[22];;
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:3945:/ locexp");
-           melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "obsolete alternate ctype keyword in let binding"), (melt_ptr_t)(/*_.TYNAM__V24*/ curfptr[23]));}
-           ;
-           MELT_LOCATION("warmelt-macro.melt:3947:/ cond");
-           /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[5])))) /*then*/ {
-           MELT_LOCATION("warmelt-macro.melt:3947:/ cond.then");
-           MELT_LOCATION("warmelt-macro.melt:3947:/ getslot");
-            { melt_ptr_t slot=0;
-             melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYP__V14*/ curfptr[13]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V31*/ curfptr[30] = slot; };
-            ;
-           } else {MELT_LOCATION("warmelt-macro.melt:3947:/ cond.else");
-           
-            /*_.CTYPE_KEYWORD__V31*/ curfptr[30] = NULL;;
-            }
-           ;
-           MELT_LOCATION("warmelt-macro.melt:3947:/ cond");
-           /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V31*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
-           MELT_LOCATION("warmelt-macro.melt:3947:/ cond.then");
-           MELT_LOCATION("warmelt-macro.melt:3947:/ getslot");
-            { melt_ptr_t slot=0;
-             melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V31*/ curfptr[30]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; };
-            ;
-           } else {MELT_LOCATION("warmelt-macro.melt:3947:/ cond.else");
-           
-            /*_.NAMED_NAME__V32*/ curfptr[31] = NULL;;
-            }
-           ;
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:3947:/ locexp");
-           melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "prefered ctype keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31]));}
-           ;
-           MELT_LOCATION("warmelt-macro.melt:3943:/ block");
-           /*block*/{}
-           ;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:3943:/ clear");
-           /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:3943:/ clear");
-           /*clear*/ /*_.CTYPE_KEYWORD__V31*/ curfptr[30] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:3943:/ clear");
-           /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:3943:/ cond.else");
-         
-          MELT_LOCATION("warmelt-macro.melt:3943:/ block");
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:3950:/ locexp");
-           melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ curfptr[23]));}
-           ;
-           MELT_LOCATION("warmelt-macro.melt:3949:/ block");
-           /*block*/{}
-           ;
-           /*epilog*/}
-          ;
-          }
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3941:/ clear");
-         /*clear*/ /*_.CTYPE_ALTKEYWORD__V29*/ curfptr[27] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:3941:/ clear");
-         /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;}
-        ;
-        }
-       ;
-       /*_.IFELSE___V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3939:/ clear");
-       /*clear*/ /*_.CTYPE_KEYWORD__V26*/ curfptr[25] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3939:/ clear");
-       /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3939:/ clear");
-       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-      ;
-      }
-     ;
-     /*_.PAIR_TAIL__V33*/ curfptr[29] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-     MELT_LOCATION("warmelt-macro.melt:3952:/ compute");
-     /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V34*/ curfptr[30] = /*_.PAIR_TAIL__V33*/ curfptr[29];;
-     /*_.PAIR_HEAD__V35*/ curfptr[31] = 
-      (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-     MELT_LOCATION("warmelt-macro.melt:3953:/ compute");
-     /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V36*/ curfptr[27] = /*_.PAIR_HEAD__V35*/ curfptr[31];;
-     /*_.LET___V22*/ curfptr[21] = /*_.SETQ___V36*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.CTY__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.TYNAM__V24*/ curfptr[23] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V33*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.SETQ___V34*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.PAIR_HEAD__V35*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3935:/ clear");
-     /*clear*/ /*_.SETQ___V36*/ curfptr[27] = 0 ;}
-    ;
-    /*_.IF___V21*/ curfptr[20] = /*_.LET___V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3934:/ clear");
-    /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3934:/ cond.else");
-  
-   /*_.IF___V21*/ curfptr[20] = NULL;;
-   }
-  ;
-  /*_#IS_A__L8*/ curfnum[6] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:3955:/ cond");
-  /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3955:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3955:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3957:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[26] = slot; };
-    ;
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:3956:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding cannot bind keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[26]));}
-     ;
-     /*clear*/ /*_.IFELSE___V37*/ curfptr[25] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3955:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[26] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:3955:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:3955:/ block");
-   /*block*/{
-    /*_#IS_A__L9*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-macro.melt:3958:/ cond");
-    /*cond*/ if (/*_#IS_A__L9*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3958:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3958:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:3959:/ compute");
-      /*_.VAR__V15*/ curfptr[14] = /*_.SETQ___V40*/ curfptr[23] = /*_.CURARG__V18*/ curfptr[17];;
-      /*_.PAIR_TAIL__V41*/ curfptr[24] = 
-       (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-      MELT_LOCATION("warmelt-macro.melt:3960:/ compute");
-      /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V42*/ curfptr[29] = /*_.PAIR_TAIL__V41*/ curfptr[24];;
-      /*_.PAIR_HEAD__V43*/ curfptr[30] = 
-       (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-      MELT_LOCATION("warmelt-macro.melt:3961:/ compute");
-      /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V44*/ curfptr[31] = /*_.PAIR_HEAD__V43*/ curfptr[30];;
-      MELT_LOCATION("warmelt-macro.melt:3958:/ block");
-      /*block*/{
-       /*_.PROGN___V45*/ curfptr[27] = /*_.SETQ___V44*/ curfptr[31];;}
-      ;
-      /*_.IFELSE___V39*/ curfptr[22] = /*_.PROGN___V45*/ curfptr[27];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
-      /*clear*/ /*_.SETQ___V40*/ curfptr[23] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
-      /*clear*/ /*_.PAIR_TAIL__V41*/ curfptr[24] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
-      /*clear*/ /*_.SETQ___V42*/ curfptr[29] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
-      /*clear*/ /*_.PAIR_HEAD__V43*/ curfptr[30] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
-      /*clear*/ /*_.SETQ___V44*/ curfptr[31] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:3958:/ clear");
-      /*clear*/ /*_.PROGN___V45*/ curfptr[27] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:3958:/ cond.else");
-    
-     /*_.IFELSE___V39*/ curfptr[22] = NULL;;
-     }
-    ;
-    /*_.IFELSE___V37*/ curfptr[25] = /*_.IFELSE___V39*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3955:/ clear");
-    /*clear*/ /*_#IS_A__L9*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3955:/ clear");
-    /*clear*/ /*_.IFELSE___V39*/ curfptr[22] = 0 ;}
-   ;
-   }
-  ;
-  /*_#NULL__L10*/ curfnum[4] = 
-   ((/*_.VAR__V15*/ curfptr[14]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:3963:/ cond");
-  /*cond*/ if (/*_#NULL__L10*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3963:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3963:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:3964:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing variable in letbinding"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3965:/ cond");
-  /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:3965:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:3965:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3967:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:3967:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:3967:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.MACROEXPAND_1__V46*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3967:/ compute");
-    /*_.EXPR__V16*/ curfptr[15] = /*_.SETQ___V47*/ curfptr[26] = /*_.MACROEXPAND_1__V46*/ curfptr[21];;
-    /*_.PAIR_TAIL__V48*/ curfptr[23] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-    MELT_LOCATION("warmelt-macro.melt:3968:/ compute");
-    /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V49*/ curfptr[24] = /*_.PAIR_TAIL__V48*/ curfptr[23];;
-    /*_.PAIR_HEAD__V50*/ curfptr[29] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));;
-    MELT_LOCATION("warmelt-macro.melt:3969:/ compute");
-    /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V51*/ curfptr[30] = /*_.PAIR_HEAD__V50*/ curfptr[29];;
-    MELT_LOCATION("warmelt-macro.melt:3970:/ cond");
-    /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:3970:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:3970:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:3970:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too long letbinding"), (melt_ptr_t)0);}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3966:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
-    /*clear*/ /*_.MACROEXPAND_1__V46*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
-    /*clear*/ /*_.SETQ___V47*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V48*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
-    /*clear*/ /*_.SETQ___V49*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
-    /*clear*/ /*_.PAIR_HEAD__V50*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:3965:/ clear");
-    /*clear*/ /*_.SETQ___V51*/ curfptr[30] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3972:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3972:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:3972:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VAR__V15*/ curfptr[14];
-    /*_.PREVBIND__V53*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#NULL__L11*/ curfnum[5] = 
-    ((/*_.PREVBIND__V53*/ curfptr[27]) == NULL);;
-   MELT_LOCATION("warmelt-macro.melt:3974:/ cond");
-   /*cond*/ if (/*_#NULL__L11*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:3974:/ cond.then");
-   /*_.IFELSE___V54*/ curfptr[22] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:3974:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:3974:/ block");
-    /*block*/{
-     /*_#IS_A__L12*/ curfnum[11] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[10])));;
-     MELT_LOCATION("warmelt-macro.melt:3975:/ cond");
-     /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:3975:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:3975:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:3976:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:3976:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[10])))) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3976:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3976:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), 3, "LETBIND_LOC");/*_.PREVLOC__V56*/ curfptr[26] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:3976:/ cond.else");
-        
-         /*_.PREVLOC__V56*/ curfptr[26] = NULL;;
-         }
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3979:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3979:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3979:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V57*/ curfptr[23] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:3979:/ cond.else");
-        
-         /*_.NAMED_NAME__V57*/ curfptr[23] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:3977:/ locexp");
-        melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "local let binding hides upper one"), (melt_ptr_t)(/*_.NAMED_NAME__V57*/ curfptr[23]));}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:3980:/ cond");
-        /*cond*/ if (/*_.PREVLOC__V56*/ curfptr[26]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:3980:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:3980:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:3983:/ cond");
-          /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:3983:/ cond.then");
-          MELT_LOCATION("warmelt-macro.melt:3983:/ getslot");
-           { melt_ptr_t slot=0;
-            melt_object_get_field(slot,(melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ curfptr[24] = slot; };
-           ;
-          } else {MELT_LOCATION("warmelt-macro.melt:3983:/ cond.else");
-          
-           /*_.NAMED_NAME__V58*/ curfptr[24] = NULL;;
-           }
-          ;
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:3981:/ locexp");
-           melt_warning_str(0, (melt_ptr_t)(/*_.PREVLOC__V56*/ curfptr[26]), ( "here is the hidden binding"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ curfptr[24]));}
-           ;
-           /*clear*/ /*_.IFELSE___V55*/ curfptr[21] = 0 ;}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:3980:/ clear");
-          /*clear*/ /*_.NAMED_NAME__V58*/ curfptr[24] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:3980:/ cond.else");
-        
-         /*_.IFELSE___V55*/ curfptr[21] = NULL;;
-         }
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:3976:/ clear");
-        /*clear*/ /*_.PREVLOC__V56*/ curfptr[26] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:3976:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V57*/ curfptr[23] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:3975:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:3975:/ block");
-      /*block*/{
-       /*_#IS_A__L13*/ curfnum[12] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[11])));;
-       MELT_LOCATION("warmelt-macro.melt:3986:/ cond");
-       /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:3986:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:3986:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:3989:/ cond");
-         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:3989:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:3989:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V60*/ curfptr[30] = slot; };
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:3989:/ cond.else");
-         
-          /*_.NAMED_NAME__V60*/ curfptr[30] = NULL;;
-          }
-         ;
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:3987:/ locexp");
-          melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "local let binding hides definition"), (melt_ptr_t)(/*_.NAMED_NAME__V60*/ curfptr[30]));}
-          ;
-          /*clear*/ /*_.IFELSE___V59*/ curfptr[29] = 0 ;}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:3986:/ clear");
-         /*clear*/ /*_.NAMED_NAME__V60*/ curfptr[30] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-macro.melt:3986:/ cond.else");
-       
-        /*_.IFELSE___V59*/ curfptr[29] = NULL;;
-        }
-       ;
-       /*_.IFELSE___V55*/ curfptr[21] = /*_.IFELSE___V59*/ curfptr[29];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:3975:/ clear");
-       /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:3975:/ clear");
-       /*clear*/ /*_.IFELSE___V59*/ curfptr[29] = 0 ;}
-      ;
-      }
-     ;
-     /*_.IFELSE___V54*/ curfptr[22] = /*_.IFELSE___V55*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:3974:/ clear");
-     /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:3974:/ clear");
-     /*clear*/ /*_.IFELSE___V55*/ curfptr[21] = 0 ;}
-    ;
-    }
-   ;
-   /*_.LET___V52*/ curfptr[31] = /*_.IFELSE___V54*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3972:/ clear");
-   /*clear*/ /*_.PREVBIND__V53*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3972:/ clear");
-   /*clear*/ /*_#NULL__L11*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3972:/ clear");
-   /*clear*/ /*_.IFELSE___V54*/ curfptr[22] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:3992:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:3993:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:3993:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ curfrout->tabval[12])), (5), "CLASS_SOURCE_LET_BINDING");/*_.INST__V63*/ curfptr[23] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLETB_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (2), (/*_.CTYP__V14*/ curfptr[13]), "SLETB_TYPE");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLETB_BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (3), (/*_.VAR__V15*/ curfptr[14]), "SLETB_BINDER");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:3993:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLETB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[23]), (4), (/*_.EXPR__V16*/ curfptr[15]), "SLETB_EXPR");
-    ;
-    /*_.LETB__V62*/ curfptr[26] = /*_.INST__V63*/ curfptr[23];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:3998:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.LETB__V62*/ curfptr[26];;
-    MELT_LOCATION("warmelt-macro.melt:3998:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V61*/ curfptr[24] = /*_.RETURN___V64*/ curfptr[30];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:3992:/ clear");
-   /*clear*/ /*_.LETB__V62*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:3992:/ clear");
-   /*clear*/ /*_.RETURN___V64*/ curfptr[30] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V61*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.CTYP__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.VAR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.EXPR__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.CURARG__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.IF___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.IFELSE___V37*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_#NULL__L10*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.LET___V52*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:3924:/ clear");
-  /*clear*/ /*_.LET___V61*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:3920:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:3920:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:3920:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_LETBINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_75_warmelt_macro_MEXPAND_LETBINDING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_76_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_macro_MEXPAND_LET_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 37
-  void* varptr[37];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<37; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 37;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_LET", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4002:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4002:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4002:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4002:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4003:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4003:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4003:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4003:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4003:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4003:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4003:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4003)?(4003):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4003:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4003:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4003:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4004:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4004:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4004:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4004:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4004:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4004:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4004:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4004)?(4004):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4004:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4004:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4004:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4005:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4006:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4007:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.SECPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.RESTPAIR__V14*/ curfptr[13] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.SECPAIR__V13*/ curfptr[12])));;
-  /*_.BINDEXPR__V15*/ curfptr[14] = 
-   (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:4011:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.BINDTUP__V17*/ curfptr[16] = (/*nil*/NULL);;
-  /*_.BODYTUP__V18*/ curfptr[17] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4015:/ cond");
-  /*cond*/ if (/*_.BINDEXPR__V15*/ curfptr[14]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4015:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4015:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-    MELT_LOCATION("warmelt-macro.melt:4016:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:4016:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:4016:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:4019:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V15*/ curfptr[14]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V21*/ curfptr[20] = slot; };
-      ;
-      /*_.LIST_FIRST__V22*/ curfptr[21] = 
-       (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V21*/ curfptr[20])));;
-      MELT_LOCATION("warmelt-macro.melt:4021:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4021:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4021:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]);
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4021:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4021:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-       ;
-       /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4018:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:4018:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-       MELT_LOCATION("warmelt-macro.melt:4018:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[22];
-       /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LIST_FIRST__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4017:/ compute");
-      /*_.BINDTUP__V17*/ curfptr[16] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24];;
-      /*_.IFELSE___V20*/ curfptr[19] = /*_.SETQ___V26*/ curfptr[25];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
-      /*clear*/ /*_.SEXP_CONTENTS__V21*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
-      /*clear*/ /*_.LIST_FIRST__V22*/ curfptr[21] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
-      /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
-      /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4016:/ clear");
-      /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:4016:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:4016:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:4025:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing letbinding-s in LET"), (melt_ptr_t)0);}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IF___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4015:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4015:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4015:/ cond.else");
-  
-   /*_.IF___V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4029:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4029:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[21] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (1));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4029:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[21])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[21])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V16*/ curfptr[15]);
-   ;
-   /*_.LAMBDA___V27*/ curfptr[20] = /*_.LAMBDA___V28*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4027:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4027:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[20];
-   /*_.MULTIPLE_EVERY__V29*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.BINDTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4041:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4041:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[25] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4041:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[25])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[25])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V16*/ curfptr[15]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4041:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V31*/ curfptr[25])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V31*/ curfptr[25])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V30*/ curfptr[24] = /*_.LAMBDA___V31*/ curfptr[25];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4040:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4040:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-   MELT_LOCATION("warmelt-macro.melt:4040:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[24];
-   /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESTPAIR__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4040:/ compute");
-  /*_.BODYTUP__V18*/ curfptr[17] = /*_.SETQ___V33*/ curfptr[32] = /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19];;
-  MELT_LOCATION("warmelt-macro.melt:4042:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4043:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4043:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LET*/ curfrout->tabval[15])), (4), "CLASS_SOURCE_LET");/*_.INST__V36*/ curfptr[35] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4043:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4043:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.BINDTUP__V17*/ curfptr[16]), "SLET_BINDINGS");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4043:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.BODYTUP__V18*/ curfptr[17]), "SLET_BODY");
-    ;
-    /*_.LETR__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4047:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.LETR__V35*/ curfptr[34];;
-    MELT_LOCATION("warmelt-macro.melt:4047:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V37*/ curfptr[36];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4042:/ clear");
-   /*clear*/ /*_.LETR__V35*/ curfptr[34] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4042:/ clear");
-   /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V34*/ curfptr[33];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.SECPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.RESTPAIR__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.BINDEXPR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.NEWENV__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.BINDTUP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.BODYTUP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.LAMBDA___V27*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.LAMBDA___V30*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4005:/ clear");
-  /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4002:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:4002:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4002:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4002:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4002:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_LET", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_76_warmelt_macro_MEXPAND_LET*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_77_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4021:/ getarg");
- /*_.B__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4021:/ block");
-/*block*/{
- /*_#IS_NOT_A__L1*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.B__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-macro.melt:4022:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-macro.melt:4022:/ cond.then");
- MELT_LOCATION("warmelt-macro.melt:4022:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-macro.melt:4023:/ locexp");
-   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "sexpr expected in LET binding"), (melt_ptr_t)0);}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- MELT_LOCATION("warmelt-macro.melt:4024:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4024:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-macro.melt:4024:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[2]);
-  /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MEXPAND_LETBINDING*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.B__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4021:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4021:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4021:/ clear");
- /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4021:/ clear");
- /*clear*/ /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_77_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4029:/ getarg");
- /*_.SLB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4029:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4030:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4030:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4030:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4030:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4030:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4030:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4030:/ locexp");
-      melt_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4030)?(4030):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4030:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4030:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4030:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4031:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4032:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 4, "SLETB_EXPR");/*_.SX__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4034:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 3, "SLETB_BINDER");/*_.SLETB_BINDER__V7*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4035:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 2, "SLETB_TYPE");/*_.SLETB_TYPE__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4033:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4033:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[1])), (4), "CLASS_LET_BINDING");/*_.INST__V10*/ curfptr[9] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4033:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V10*/ curfptr[9]), (0), (/*_.SLETB_BINDER__V7*/ curfptr[6]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4033:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V10*/ curfptr[9]), (1), (/*_.SLETB_TYPE__V8*/ curfptr[7]), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4033:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V10*/ curfptr[9]), (2), (/*_.SX__V6*/ curfptr[5]), "LETBIND_EXPR");
-   ;
-   /*_.LB__V9*/ curfptr[8] = /*_.INST__V10*/ curfptr[9];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4037:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4037:/ block");
-   /*block*/{
-    /*_#IS_LIST__L2*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.LB__V9*/ curfptr[8])) == OBMAG_LIST);;
-    /*_#NOT__L3*/ curfnum[2] = 
-     (!(/*_#IS_LIST__L2*/ curfnum[0]));;
-    MELT_LOCATION("warmelt-macro.melt:4037:/ cond");
-    /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:4037:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-macro.melt:4037:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:4037:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:4037:/ locexp");
-       melt_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4037)?(4037):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4037:/ clear");
-    /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4037:/ clear");
-    /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4037:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4037:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4038:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4038:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LB__V9*/ curfptr[8];
-   /*_.PUT_ENV__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[2])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.PUT_ENV__V13*/ curfptr[11];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
-  /*clear*/ /*_.SX__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
-  /*clear*/ /*_.SLETB_BINDER__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
-  /*clear*/ /*_.SLETB_TYPE__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
-  /*clear*/ /*_.LB__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4031:/ clear");
-  /*clear*/ /*_.PUT_ENV__V13*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4029:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-macro.melt:4029:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4029:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4029:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_78_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4041:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4041:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4041:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4041:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4041:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4041:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4041:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4041:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_79_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("YES_RECURSIVELY_CONSTRUCTIBLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4055:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4055:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4056:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4056:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4056:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
-    argtab[0].bp_cstring =  "yes_recursively_constructible recv";
-    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4056:/ apply.arg");
-    argtab[3].bp_long = 4056;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4056:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4056:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4056:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4057:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-macro.melt:4057:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4055:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-macro.melt:4055:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4055:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4055:/ clear");
- /*clear*/ /*_.RETURN___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("YES_RECURSIVELY_CONSTRUCTIBLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_80_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_81_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_macro_MEXPAND_LETREC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 103
-  void* varptr[103];
-#define CURFRAM_NBVARNUM 24
-  long varnum[24];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<103; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 103;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_LETREC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4068:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4068:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4068:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4068:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4069:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4069:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4069:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4069:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4069:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4069:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4069:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4069)?(4069):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4069:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4069:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4069:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4070:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4070:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4070:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4070:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4070:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4070:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4070:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4070)?(4070):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4070:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4070:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4070:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4071:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4071:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4071:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_letrec sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4071:/ apply.arg");
-    argtab[3].bp_long = 4071;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4071:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4071:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4071:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4072:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4073:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4074:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.SECPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.RESTPAIR__V16*/ curfptr[15] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.SECPAIR__V15*/ curfptr[14])));;
-  /*_.BINDEXPR__V17*/ curfptr[16] = 
-   (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4078:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NBIND__L4*/ curfnum[0] = 0;;
-  /*_.BINDTUP__V19*/ curfptr[18] = (/*nil*/NULL);;
-  /*_.SRCBINDTUP__V20*/ curfptr[19] = (/*nil*/NULL);;
-  /*_.VARTUP__V21*/ curfptr[20] = (/*nil*/NULL);;
-  /*_.EXPRTUP__V22*/ curfptr[21] = (/*nil*/NULL);;
-  /*_.BODYTUP__V23*/ curfptr[22] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4087:/ cond");
-  /*cond*/ if (/*_.BINDEXPR__V17*/ curfptr[16]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4087:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4087:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-    MELT_LOCATION("warmelt-macro.melt:4088:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:4088:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:4088:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:4089:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4091:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V17*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V27*/ curfptr[26] = slot; };
-       ;
-       /*_.LIST_FIRST__V28*/ curfptr[27] = 
-        (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V27*/ curfptr[26])));;
-       MELT_LOCATION("warmelt-macro.melt:4093:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:4093:/ newclosure");
-         /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
-         meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-        ;
-        MELT_LOCATION("warmelt-macro.melt:4093:/ putclosedv");
-        /*putclosv*/
-        melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-        melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-        ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
-        ;
-        /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4090:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[2];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:4090:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
-        MELT_LOCATION("warmelt-macro.melt:4090:/ apply.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
-        /*_.RECBINDTUP__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LIST_FIRST__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_#NBRECBIND__L6*/ curfnum[5] = 
-        (melt_multiple_length((melt_ptr_t)(/*_.RECBINDTUP__V31*/ curfptr[30])));;
-       /*_.RECSEXPRTUP__V32*/ curfptr[31] = 
-        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBRECBIND__L6*/ curfnum[5])));;
-       MELT_LOCATION("warmelt-macro.melt:4100:/ compute");
-       /*_#NBIND__L4*/ curfnum[0] = /*_#SETQ___L7*/ curfnum[6] = /*_#NBRECBIND__L6*/ curfnum[5];;
-       /*_.MAKE_MULTIPLE__V33*/ curfptr[32] = 
-        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
-       MELT_LOCATION("warmelt-macro.melt:4101:/ compute");
-       /*_.BINDTUP__V19*/ curfptr[18] = /*_.SETQ___V34*/ curfptr[33] = /*_.MAKE_MULTIPLE__V33*/ curfptr[32];;
-       /*_.MAKE_MULTIPLE__V35*/ curfptr[34] = 
-        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
-       MELT_LOCATION("warmelt-macro.melt:4102:/ compute");
-       /*_.SRCBINDTUP__V20*/ curfptr[19] = /*_.SETQ___V36*/ curfptr[35] = /*_.MAKE_MULTIPLE__V35*/ curfptr[34];;
-       /*_.MAKE_MULTIPLE__V37*/ curfptr[36] = 
-        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
-       MELT_LOCATION("warmelt-macro.melt:4103:/ compute");
-       /*_.VARTUP__V21*/ curfptr[20] = /*_.SETQ___V38*/ curfptr[37] = /*_.MAKE_MULTIPLE__V37*/ curfptr[36];;
-       /*_.MAKE_MULTIPLE__V39*/ curfptr[38] = 
-        (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBIND__L4*/ curfnum[0])));;
-       MELT_LOCATION("warmelt-macro.melt:4104:/ compute");
-       /*_.EXPRTUP__V22*/ curfptr[21] = /*_.SETQ___V40*/ curfptr[39] = /*_.MAKE_MULTIPLE__V39*/ curfptr[38];;
-       /*citerblock FOREACH_IN_MULTIPLE*/ {
-        /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.RECBINDTUP__V31*/ curfptr[30]);
-   for (/*_#BINDIX__L8*/ curfnum[7] = 0;  
-	(/*_#BINDIX__L8*/ curfnum[7] >= 0) && (/*_#BINDIX__L8*/ curfnum[7] <  cit1__EACHTUP_ln);  
-	/*_#BINDIX__L8*/ curfnum[7]++) {
-   /*_.CURBINDEXPR__V41*/ curfptr[40] = melt_multiple_nth((melt_ptr_t)(/*_.RECBINDTUP__V31*/ curfptr[30]),  /*_#BINDIX__L8*/ curfnum[7]);
-   
-       
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-macro.melt:4109:/ cppif.then");
-        MELT_LOCATION("warmelt-macro.melt:4109:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-           callcount;;
-          MELT_LOCATION("warmelt-macro.melt:4109:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
-           argtab[0].bp_cstring =  "mexpand_letrec firstloop curbindexpr";
-           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-macro.melt";
-           MELT_LOCATION("warmelt-macro.melt:4109:/ apply.arg");
-           argtab[3].bp_long = 4109;
-           /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:4109:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:4109:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-macro.melt:4109:/ cppif.else");
-        /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        /*_#IS_NOT_A__L10*/ curfnum[8] = 
-         !melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-        MELT_LOCATION("warmelt-macro.melt:4110:/ cond");
-        /*cond*/ if (/*_#IS_NOT_A__L10*/ curfnum[8]) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:4110:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:4110:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:4112:/ block");
-          /*block*/{
-           /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-           MELT_LOCATION("warmelt-macro.melt:4112:/ finalreturn");
-           ;
-           /*finalret*/ goto labend_rout ;}
-          ;
-          /*_.IF___V44*/ curfptr[42] = /*_.RETURN___V45*/ curfptr[44];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:4110:/ clear");
-          /*clear*/ /*_.RETURN___V45*/ curfptr[44] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:4110:/ cond.else");
-        
-         /*_.IF___V44*/ curfptr[42] = NULL;;
-         }
-        ;
-        MELT_LOCATION("warmelt-macro.melt:4113:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:4113:/ cond");
-         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])))) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4113:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4113:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), 2, "SEXP_CONTENTS");/*_.CURCONT__V46*/ curfptr[44] = slot; };
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:4113:/ cond.else");
-         
-          /*_.CURCONT__V46*/ curfptr[44] = NULL;;
-          }
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4114:/ cond");
-         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4114:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4114:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBINDEXPR__V41*/ curfptr[40]), 1, "LOCA_LOCATION");/*_.CURLOC__V47*/ curfptr[46] = slot; };
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:4114:/ cond.else");
-         
-          /*_.CURLOC__V47*/ curfptr[46] = NULL;;
-          }
-         ;
-         /*_.CURPAIR__V48*/ curfptr[47] = 
-          (melt_list_first((melt_ptr_t)(/*_.CURCONT__V46*/ curfptr[44])));;
-         /*_.CURCOMP__V49*/ curfptr[48] = 
-          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
-         /*_.CURSYMB__V50*/ curfptr[49] = (/*nil*/NULL);;
-         /*_.CURSEXPR__V51*/ curfptr[50] = (/*nil*/NULL);;
-         /*_#IS_A__L11*/ curfnum[10] = 
-          melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ curfptr[48]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));;
-         MELT_LOCATION("warmelt-macro.melt:4120:/ cond");
-         /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4120:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4120:/ block");
-          /*block*/{
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-macro.melt:4121:/ locexp");
-            melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "keyword invalid in LETREC binding"), (melt_ptr_t)0);}
-            ;
-            /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;}
-           ;
-           /*epilog*/}
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:4120:/ cond.else");
-         
-          MELT_LOCATION("warmelt-macro.melt:4120:/ block");
-          /*block*/{
-           /*_#IS_A__L12*/ curfnum[11] = 
-            melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ curfptr[48]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[10])));;
-           MELT_LOCATION("warmelt-macro.melt:4123:/ cond");
-           /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
-           MELT_LOCATION("warmelt-macro.melt:4123:/ cond.then");
-           MELT_LOCATION("warmelt-macro.melt:4123:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-macro.melt:4124:/ compute");
-             /*_.CURSYMB__V50*/ curfptr[49] = /*_.SETQ___V54*/ curfptr[53] = /*_.CURCOMP__V49*/ curfptr[48];;
-             /*_.IFELSE___V53*/ curfptr[52] = /*_.SETQ___V54*/ curfptr[53];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-macro.melt:4123:/ clear");
-             /*clear*/ /*_.SETQ___V54*/ curfptr[53] = 0 ;}
-            ;
-           } else {MELT_LOCATION("warmelt-macro.melt:4123:/ cond.else");
-           
-            MELT_LOCATION("warmelt-macro.melt:4123:/ block");
-            /*block*/{
-             
-             {
-             MELT_LOCATION("warmelt-macro.melt:4127:/ locexp");
-             melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "invalid LETREC binding - expecting (<symbol> <constructive-expr>)"), (melt_ptr_t)0);}
-             ;
-             MELT_LOCATION("warmelt-macro.melt:4126:/ block");
-             /*block*/{}
-             ;
-             /*epilog*/}
-            ;
-            }
-           ;
-           /*_.IFELSE___V52*/ curfptr[51] = /*_.IFELSE___V53*/ curfptr[52];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:4120:/ clear");
-           /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:4120:/ clear");
-           /*clear*/ /*_.IFELSE___V53*/ curfptr[52] = 0 ;}
-          ;
-          }
-         ;
-         /*_.PAIR_TAIL__V55*/ curfptr[53] = 
-          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
-         MELT_LOCATION("warmelt-macro.melt:4129:/ compute");
-         /*_.CURPAIR__V48*/ curfptr[47] = /*_.SETQ___V56*/ curfptr[52] = /*_.PAIR_TAIL__V55*/ curfptr[53];;
-         /*_.PAIR_HEAD__V57*/ curfptr[56] = 
-          (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
-         MELT_LOCATION("warmelt-macro.melt:4130:/ compute");
-         /*_.CURCOMP__V49*/ curfptr[48] = /*_.SETQ___V58*/ curfptr[57] = /*_.PAIR_HEAD__V57*/ curfptr[56];;
-         /*_#IS_A__L13*/ curfnum[11] = 
-          melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ curfptr[48]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-         MELT_LOCATION("warmelt-macro.melt:4131:/ cond");
-         /*cond*/ if (/*_#IS_A__L13*/ curfnum[11]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4131:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4131:/ block");
-          /*block*/{
-           /*_#IS_A__L14*/ curfnum[13] = 
-            melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V50*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[10])));;
-           MELT_LOCATION("warmelt-macro.melt:4132:/ cond");
-           /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ {
-           MELT_LOCATION("warmelt-macro.melt:4132:/ cond.then");
-           MELT_LOCATION("warmelt-macro.melt:4132:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-macro.melt:4134:/ compute");
-             /*_.CURSEXPR__V51*/ curfptr[50] = /*_.SETQ___V59*/ curfptr[58] = /*_.CURCOMP__V49*/ curfptr[48];;
-             
-             {
-             MELT_LOCATION("warmelt-macro.melt:4135:/ locexp");
-             meltgc_multiple_put_nth((melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ curfptr[31]), (/*_#BINDIX__L8*/ curfnum[7]), (melt_ptr_t)(/*_.CURSEXPR__V51*/ curfptr[50]));}
-             ;
-             
-             {
-             MELT_LOCATION("warmelt-macro.melt:4136:/ locexp");
-             meltgc_multiple_put_nth((melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]), (/*_#BINDIX__L8*/ curfnum[7]), (melt_ptr_t)(/*_.CURSYMB__V50*/ curfptr[49]));}
-             ;
-             MELT_LOCATION("warmelt-macro.melt:4133:/ block");
-             /*block*/{}
-             ;
-             /*epilog*/
-             MELT_LOCATION("warmelt-macro.melt:4132:/ clear");
-             /*clear*/ /*_.SETQ___V59*/ curfptr[58] = 0 ;}
-            ;
-           } /*noelse*/
-           ;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:4131:/ clear");
-           /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:4131:/ cond.else");
-         
-          MELT_LOCATION("warmelt-macro.melt:4131:/ block");
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:4138:/ locexp");
-           melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "invalid LETREC binding - missing constructive expression"), (melt_ptr_t)0);}
-           ;
-           /*epilog*/}
-          ;
-          }
-         ;
-         /*_.PAIR_TAIL__V60*/ curfptr[58] = 
-          (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ curfptr[47])));;
-         MELT_LOCATION("warmelt-macro.melt:4139:/ cond");
-         /*cond*/ if (/*_.PAIR_TAIL__V60*/ curfptr[58]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4139:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4139:/ block");
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:4140:/ locexp");
-           melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ curfptr[46]), ( "invalid LETREC binding - more than two components"), (melt_ptr_t)0);}
-           ;
-           /*epilog*/}
-          ;
-         } /*noelse*/
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.CURCONT__V46*/ curfptr[44] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.CURLOC__V47*/ curfptr[46] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.CURPAIR__V48*/ curfptr[47] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.CURCOMP__V49*/ curfptr[48] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.CURSYMB__V50*/ curfptr[49] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.CURSEXPR__V51*/ curfptr[50] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[53] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.SETQ___V56*/ curfptr[52] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.PAIR_HEAD__V57*/ curfptr[56] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.SETQ___V58*/ curfptr[57] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_#IS_A__L13*/ curfnum[11] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4113:/ clear");
-         /*clear*/ /*_.PAIR_TAIL__V60*/ curfptr[58] = 0 ;}
-        ;
-        if (/*_#BINDIX__L8*/ curfnum[7]<0) break;
-   } /* end cit1__EACHTUP */ 
-       
-        /*citerepilog*/
-        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
-        /*clear*/ /*_.CURBINDEXPR__V41*/ curfptr[40] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
-        /*clear*/ /*_#BINDIX__L8*/ curfnum[7] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
-        /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
-        /*clear*/ /*_#IS_NOT_A__L10*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:4106:/ clear");
-        /*clear*/ /*_.IF___V44*/ curfptr[42] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-       ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-macro.melt:4142:/ cppif.then");
-       MELT_LOCATION("warmelt-macro.melt:4142:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
-          callcount;;
-         MELT_LOCATION("warmelt-macro.melt:4142:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
-          argtab[0].bp_cstring =  "mexpand_letrec recsexprtup after firstloop";
-          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
-          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-macro.melt";
-          MELT_LOCATION("warmelt-macro.melt:4142:/ apply.arg");
-          argtab[3].bp_long = 4142;
-          /*_.DEBUG_MSG_FUN__V62*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V61*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[46];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4142:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4142:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[46] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-macro.melt:4142:/ cppif.else");
-       /*_.IFCPP___V61*/ curfptr[44] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-macro.melt:4143:/ cppif.then");
-       MELT_LOCATION("warmelt-macro.melt:4143:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 
-          callcount;;
-         MELT_LOCATION("warmelt-macro.melt:4143:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
-          argtab[0].bp_cstring =  "mexpand_letrec vartup after firstloop";
-          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10];
-          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-macro.melt";
-          MELT_LOCATION("warmelt-macro.melt:4143:/ apply.arg");
-          argtab[3].bp_long = 4143;
-          /*_.DEBUG_MSG_FUN__V64*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V63*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[48];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4143:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4143:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[48] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-macro.melt:4143:/ cppif.else");
-       /*_.IFCPP___V63*/ curfptr[47] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-macro.melt:4146:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-macro.melt:4146:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])))) /*then*/ {
-        MELT_LOCATION("warmelt-macro.melt:4146:/ cond.then");
-        MELT_LOCATION("warmelt-macro.melt:4146:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), 0, "ENV_BIND");/*_.ENVMAP__V65*/ curfptr[49] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-macro.melt:4146:/ cond.else");
-        
-         /*_.ENVMAP__V65*/ curfptr[49] = NULL;;
-         }
-        ;
-        /*citerblock FOREACH_IN_MULTIPLE*/ {
-         /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.VARTUP__V21*/ curfptr[20]);
-   for (/*_#VARIX__L17*/ curfnum[11] = 0;  
-	(/*_#VARIX__L17*/ curfnum[11] >= 0) && (/*_#VARIX__L17*/ curfnum[11] <  cit2__EACHTUP_ln);  
-	/*_#VARIX__L17*/ curfnum[11]++) {
-   /*_.CURVAR__V66*/ curfptr[50] = melt_multiple_nth((melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]),  /*_#VARIX__L17*/ curfnum[11]);
-   
-        
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-macro.melt:4151:/ cppif.then");
-         MELT_LOCATION("warmelt-macro.melt:4151:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 
-            callcount;;
-           MELT_LOCATION("warmelt-macro.melt:4151:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
-            argtab[0].bp_cstring =  "mexpand_letrec second loop curvar";
-            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13];
-            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-macro.melt";
-            MELT_LOCATION("warmelt-macro.melt:4151:/ apply.arg");
-            argtab[3].bp_long = 4151;
-            /*_.DEBUG_MSG_FUN__V68*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V67*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[53];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:4151:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:4151:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[53] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-macro.melt:4151:/ cppif.else");
-         /*_.IFCPP___V67*/ curfptr[51] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         /*_.MAPOBJECT_GET__V69*/ curfptr[52] = 
-          melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ENVMAP__V65*/ curfptr[49]), (meltobject_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]));;
-         MELT_LOCATION("warmelt-macro.melt:4152:/ cond");
-         /*cond*/ if (/*_.MAPOBJECT_GET__V69*/ curfptr[52]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4152:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4152:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-macro.melt:4154:/ cond");
-           /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[11])))) /*then*/ {
-           MELT_LOCATION("warmelt-macro.melt:4154:/ cond.then");
-           MELT_LOCATION("warmelt-macro.melt:4154:/ getslot");
-            { melt_ptr_t slot=0;
-             melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVAR__V66*/ curfptr[50]), 1, "NAMED_NAME");/*_.NAMED_NAME__V70*/ curfptr[56] = slot; };
-            ;
-           } else {MELT_LOCATION("warmelt-macro.melt:4154:/ cond.else");
-           
-            /*_.NAMED_NAME__V70*/ curfptr[56] = NULL;;
-            }
-           ;
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:4153:/ locexp");
-           melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "repeated variable in LETREC binding"), (melt_ptr_t)(/*_.NAMED_NAME__V70*/ curfptr[56]));}
-           ;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:4152:/ clear");
-           /*clear*/ /*_.NAMED_NAME__V70*/ curfptr[56] = 0 ;}
-          ;
-         } /*noelse*/
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4156:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:4156:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-macro.melt:4156:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_LETREC_BINDING*/ curfrout->tabval[12])), (4), "CLASS_LETREC_BINDING");/*_.INST__V72*/ curfptr[58] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4156:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[58])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V72*/ curfptr[58]), (0), (/*_.CURVAR__V66*/ curfptr[50]), "BINDER");
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4156:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[58])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V72*/ curfptr[58]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "LETBIND_TYPE");
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4156:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V72*/ curfptr[58])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V72*/ curfptr[58]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
-           ;
-           /*_.CURBIND__V71*/ curfptr[57] = /*_.INST__V72*/ curfptr[58];;}
-          ;
-          MELT_LOCATION("warmelt-macro.melt:4162:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[1];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-macro.melt:4162:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURBIND__V71*/ curfptr[57];
-           /*_.PUT_ENV__V73*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:4163:/ locexp");
-          meltgc_multiple_put_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ curfptr[18]), (/*_#VARIX__L17*/ curfnum[11]), (melt_ptr_t)(/*_.CURBIND__V71*/ curfptr[57]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:4156:/ clear");
-          /*clear*/ /*_.CURBIND__V71*/ curfptr[57] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:4156:/ clear");
-          /*clear*/ /*_.PUT_ENV__V73*/ curfptr[46] = 0 ;}
-         ;
-         if (/*_#VARIX__L17*/ curfnum[11]<0) break;
-   } /* end cit2__EACHTUP */ 
-        
-         /*citerepilog*/
-         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
-         /*clear*/ /*_.CURVAR__V66*/ curfptr[50] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
-         /*clear*/ /*_#VARIX__L17*/ curfnum[11] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
-         /*clear*/ /*_.IFCPP___V67*/ curfptr[51] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4148:/ clear");
-         /*clear*/ /*_.MAPOBJECT_GET__V69*/ curfptr[52] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-macro.melt:4146:/ clear");
-        /*clear*/ /*_.ENVMAP__V65*/ curfptr[49] = 0 ;}
-       ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-macro.melt:4165:/ cppif.then");
-       MELT_LOCATION("warmelt-macro.melt:4165:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L19*/ curfnum[10] = 
-          callcount;;
-         MELT_LOCATION("warmelt-macro.melt:4165:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
-          argtab[0].bp_cstring =  "mexpand_letrec bindtup after secondloop";
-          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[10];
-          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-macro.melt";
-          MELT_LOCATION("warmelt-macro.melt:4165:/ apply.arg");
-          argtab[3].bp_long = 4165;
-          /*_.DEBUG_MSG_FUN__V75*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDTUP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V74*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V75*/ curfptr[53];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4165:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4165:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[53] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-macro.melt:4165:/ cppif.else");
-       /*_.IFCPP___V74*/ curfptr[48] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       /*citerblock FOREACH_IN_MULTIPLE*/ {
-        /* start cit3__EACHTUP: */
-   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.RECSEXPRTUP__V32*/ curfptr[31]);
-   for (/*_#EXPIX__L20*/ curfnum[13] = 0;  
-	(/*_#EXPIX__L20*/ curfnum[13] >= 0) && (/*_#EXPIX__L20*/ curfnum[13] <  cit3__EACHTUP_ln);  
-	/*_#EXPIX__L20*/ curfnum[13]++) {
-   /*_.CURSEXPR__V76*/ curfptr[56] = melt_multiple_nth((melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ curfptr[31]),  /*_#EXPIX__L20*/ curfnum[13]);
-   
-       
-        MELT_LOCATION("warmelt-macro.melt:4171:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:4172:/ cond");
-         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSEXPR__V76*/ curfptr[56]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4172:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4172:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSEXPR__V76*/ curfptr[56]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V77*/ curfptr[57] = slot; };
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:4172:/ cond.else");
-         
-          /*_.LOCA_LOCATION__V77*/ curfptr[57] = NULL;;
-          }
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4172:/ cond");
-         /*cond*/ if (/*_.LOCA_LOCATION__V77*/ curfptr[57]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4172:/ cond.then");
-         /*_.CURLOC__V78*/ curfptr[46] = /*_.LOCA_LOCATION__V77*/ curfptr[57];;
-         } else {MELT_LOCATION("warmelt-macro.melt:4172:/ cond.else");
-         
-          /*_.CURLOC__V78*/ curfptr[46] = /*_.LOC__V13*/ curfptr[12];;
-          }
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4173:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[2];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:4173:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];
-          MELT_LOCATION("warmelt-macro.melt:4173:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-          /*_.CUREXP__V79*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.CURSEXPR__V76*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.CURBIND__V80*/ curfptr[53] = 
-          (melt_multiple_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ curfptr[18]), (/*_#EXPIX__L20*/ curfnum[13])));;
-         MELT_LOCATION("warmelt-macro.melt:4176:/ msend");
-         /*msend*/{
-          /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ curfptr[80] = meltgc_send((melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]), (melt_ptr_t)((/*!IS_RECURSIVELY_CONSTRUCTIBLE*/ curfrout->tabval[16])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_#NULL__L21*/ curfnum[10] = 
-          ((/*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ curfptr[80]) == NULL);;
-         MELT_LOCATION("warmelt-macro.melt:4176:/ cond");
-         /*cond*/ if (/*_#NULL__L21*/ curfnum[10]) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4176:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4176:/ block");
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-macro.melt:4178:/ locexp");
-           melt_error_str((melt_ptr_t)(/*_.CURLOC__V78*/ curfptr[46]), ( "invalid expression in LETREC binding [not recursively constructible]"), (melt_ptr_t)0);}
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4179:/ block");
-           /*block*/{
-            /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-            MELT_LOCATION("warmelt-macro.melt:4179:/ finalreturn");
-            ;
-            /*finalret*/ goto labend_rout ;}
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4177:/ block");
-           /*block*/{
-            /*_.PROGN___V84*/ curfptr[83] = /*_.RETURN___V83*/ curfptr[82];;}
-           ;
-           /*_.IF___V82*/ curfptr[81] = /*_.PROGN___V84*/ curfptr[83];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:4176:/ clear");
-           /*clear*/ /*_.RETURN___V83*/ curfptr[82] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:4176:/ clear");
-           /*clear*/ /*_.PROGN___V84*/ curfptr[83] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-macro.melt:4176:/ cond.else");
-         
-          /*_.IF___V82*/ curfptr[81] = NULL;;
-          }
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4180:/ cond");
-         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V80*/ curfptr[53]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[17])))) /*then*/ {
-         MELT_LOCATION("warmelt-macro.melt:4180:/ cond.then");
-         MELT_LOCATION("warmelt-macro.melt:4180:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-macro.melt:4180:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CURBIND__V80*/ curfptr[53])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.CURBIND__V80*/ curfptr[53]), (2), (/*_.CUREXP__V79*/ curfptr[49]), "LETBIND_EXPR");
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4180:/ touch");
-           meltgc_touch(/*_.CURBIND__V80*/ curfptr[53]);
-           ;
-           /*epilog*/}
-          ;
-         } /*noelse*/
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-macro.melt:4181:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.EXPRTUP__V22*/ curfptr[21]), (/*_#EXPIX__L20*/ curfnum[13]), (melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]));}
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4182:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-macro.melt:4184:/ cond");
-          /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:4184:/ cond.then");
-          MELT_LOCATION("warmelt-macro.melt:4184:/ getslot");
-           { melt_ptr_t slot=0;
-            melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V79*/ curfptr[49]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V85*/ curfptr[82] = slot; };
-           ;
-          } else {MELT_LOCATION("warmelt-macro.melt:4184:/ cond.else");
-          
-           /*_.LOCA_LOCATION__V85*/ curfptr[82] = NULL;;
-           }
-          ;
-          MELT_LOCATION("warmelt-macro.melt:4184:/ cond");
-          /*cond*/ if (/*_.LOCA_LOCATION__V85*/ curfptr[82]) /*then*/ {
-          MELT_LOCATION("warmelt-macro.melt:4184:/ cond.then");
-          /*_.OR___V86*/ curfptr[83] = /*_.LOCA_LOCATION__V85*/ curfptr[82];;
-          } else {MELT_LOCATION("warmelt-macro.melt:4184:/ cond.else");
-          
-           /*_.OR___V86*/ curfptr[83] = /*_.LOC__V13*/ curfptr[12];;
-           }
-          ;
-          /*_.MULTIPLE_NTH__V87*/ curfptr[86] = 
-           (melt_multiple_nth((melt_ptr_t)(/*_.VARTUP__V21*/ curfptr[20]), (/*_#EXPIX__L20*/ curfnum[13])));;
-          MELT_LOCATION("warmelt-macro.melt:4183:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-macro.melt:4183:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[18])), (5), "CLASS_SOURCE_LETREC_BINDING");/*_.INST__V89*/ curfptr[88] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (1), (/*_.OR___V86*/ curfptr[83]), "LOCA_LOCATION");
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @SLETB_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[13])), "SLETB_TYPE");
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @SLETB_BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (3), (/*_.MULTIPLE_NTH__V87*/ curfptr[86]), "SLETB_BINDER");
-           ;
-           MELT_LOCATION("warmelt-macro.melt:4183:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @SLETB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V89*/ curfptr[88])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V89*/ curfptr[88]), (4), (/*_.CUREXP__V79*/ curfptr[49]), "SLETB_EXPR");
-           ;
-           /*_.SBIND__V88*/ curfptr[87] = /*_.INST__V89*/ curfptr[88];;}
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:4190:/ locexp");
-          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SRCBINDTUP__V20*/ curfptr[19]), (/*_#EXPIX__L20*/ curfnum[13]), (melt_ptr_t)(/*_.SBIND__V88*/ curfptr[87]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
-          /*clear*/ /*_.LOCA_LOCATION__V85*/ curfptr[82] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
-          /*clear*/ /*_.OR___V86*/ curfptr[83] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
-          /*clear*/ /*_.MULTIPLE_NTH__V87*/ curfptr[86] = 0 ;
-          MELT_LOCATION("warmelt-macro.melt:4182:/ clear");
-          /*clear*/ /*_.SBIND__V88*/ curfptr[87] = 0 ;}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_.LOCA_LOCATION__V77*/ curfptr[57] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_.CURLOC__V78*/ curfptr[46] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_.CUREXP__V79*/ curfptr[49] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_.CURBIND__V80*/ curfptr[53] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ curfptr[80] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_#NULL__L21*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4171:/ clear");
-         /*clear*/ /*_.IF___V82*/ curfptr[81] = 0 ;}
-        ;
-        if (/*_#EXPIX__L20*/ curfnum[13]<0) break;
-   } /* end cit3__EACHTUP */ 
-       
-        /*citerepilog*/
-        MELT_LOCATION("warmelt-macro.melt:4168:/ clear");
-        /*clear*/ /*_.CURSEXPR__V76*/ curfptr[56] = 0 ;
-        MELT_LOCATION("warmelt-macro.melt:4168:/ clear");
-        /*clear*/ /*_#EXPIX__L20*/ curfnum[13] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-       ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-macro.melt:4192:/ cppif.then");
-       MELT_LOCATION("warmelt-macro.melt:4192:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L22*/ curfnum[10] = 
-          callcount;;
-         MELT_LOCATION("warmelt-macro.melt:4192:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
-          argtab[0].bp_cstring =  "mexpand_letrec exprtup after thirdloop";
-          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[10];
-          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-macro.melt";
-          MELT_LOCATION("warmelt-macro.melt:4192:/ apply.arg");
-          argtab[3].bp_long = 4192;
-          /*_.DEBUG_MSG_FUN__V91*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.EXPRTUP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V90*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[83];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4192:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4192:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[83] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-macro.melt:4192:/ cppif.else");
-       /*_.IFCPP___V90*/ curfptr[82] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       /*_.LET___V26*/ curfptr[25] = /*_.IFCPP___V90*/ curfptr[82];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.SEXP_CONTENTS__V27*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.LIST_FIRST__V28*/ curfptr[27] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.RECBINDTUP__V31*/ curfptr[30] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_#NBRECBIND__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.RECSEXPRTUP__V32*/ curfptr[31] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_#SETQ___L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.MAKE_MULTIPLE__V33*/ curfptr[32] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.MAKE_MULTIPLE__V35*/ curfptr[34] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.MAKE_MULTIPLE__V37*/ curfptr[36] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.MAKE_MULTIPLE__V39*/ curfptr[38] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.IFCPP___V61*/ curfptr[44] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.IFCPP___V63*/ curfptr[47] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.IFCPP___V74*/ curfptr[48] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4089:/ clear");
-       /*clear*/ /*_.IFCPP___V90*/ curfptr[82] = 0 ;}
-      ;
-      /*_.IFELSE___V25*/ curfptr[24] = /*_.LET___V26*/ curfptr[25];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:4088:/ clear");
-      /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-macro.melt:4088:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:4088:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:4194:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing letbinding-s in LETREC"), (melt_ptr_t)0);}
-       ;
-       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IF___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4087:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4087:/ clear");
-    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4087:/ cond.else");
-  
-   /*_.IF___V24*/ curfptr[23] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4196:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4196:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L23*/ curfnum[10] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4196:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_letrec srcbindtup";
-     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[10];
-     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4196:/ apply.arg");
-     argtab[3].bp_long = 4196;
-     /*_.DEBUG_MSG_FUN__V93*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SRCBINDTUP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V92*/ curfptr[86] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[87];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4196:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4196:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[87] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4196:/ cppif.else");
-  /*_.IFCPP___V92*/ curfptr[86] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4198:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4198:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V95*/ curfptr[46] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4198:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V95*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V95*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V95*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4198:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V95*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V95*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V95*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V94*/ curfptr[57] = /*_.LAMBDA___V95*/ curfptr[46];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4197:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4197:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
-   MELT_LOCATION("warmelt-macro.melt:4197:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V94*/ curfptr[57];
-   /*_.PAIRLIST_TO_MULTIPLE__V96*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RESTPAIR__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4197:/ compute");
-  /*_.BODYTUP__V23*/ curfptr[22] = /*_.SETQ___V97*/ curfptr[53] = /*_.PAIRLIST_TO_MULTIPLE__V96*/ curfptr[49];;
-  MELT_LOCATION("warmelt-macro.melt:4199:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4200:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4200:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LETREC*/ curfrout->tabval[21])), (4), "CLASS_SOURCE_LETREC");/*_.INST__V100*/ curfptr[83] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4200:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ curfptr[83])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V100*/ curfptr[83]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4200:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ curfptr[83])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V100*/ curfptr[83]), (2), (/*_.SRCBINDTUP__V20*/ curfptr[19]), "SLET_BINDINGS");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4200:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V100*/ curfptr[83])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V100*/ curfptr[83]), (3), (/*_.BODYTUP__V23*/ curfptr[22]), "SLET_BODY");
-    ;
-    /*_.LETR__V99*/ curfptr[81] = /*_.INST__V100*/ curfptr[83];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4204:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4204:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L24*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4204:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_letrec result";
-      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[5];
-      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4204:/ apply.arg");
-      argtab[3].bp_long = 4204;
-      /*_.DEBUG_MSG_FUN__V102*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LETR__V99*/ curfptr[81]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V101*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4204:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4204:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[27] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4204:/ cppif.else");
-   /*_.IFCPP___V101*/ curfptr[26] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4205:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.LETR__V99*/ curfptr[81];;
-    MELT_LOCATION("warmelt-macro.melt:4205:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V98*/ curfptr[80] = /*_.RETURN___V103*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4199:/ clear");
-   /*clear*/ /*_.LETR__V99*/ curfptr[81] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4199:/ clear");
-   /*clear*/ /*_.IFCPP___V101*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4199:/ clear");
-   /*clear*/ /*_.RETURN___V103*/ curfptr[28] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V98*/ curfptr[80];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.SECPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.RESTPAIR__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.BINDEXPR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_#NBIND__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.BINDTUP__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.SRCBINDTUP__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.VARTUP__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.EXPRTUP__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.BODYTUP__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.IF___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.IFCPP___V92*/ curfptr[86] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.LAMBDA___V94*/ curfptr[57] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V96*/ curfptr[49] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.SETQ___V97*/ curfptr[53] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4072:/ clear");
-  /*clear*/ /*_.LET___V98*/ curfptr[80] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4068:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4068:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4068:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_LETREC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_81_warmelt_macro_MEXPAND_LETREC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_82_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4093:/ getarg");
- /*_.BX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4093:/ block");
-/*block*/{
- /*_#IS_NOT_A__L1*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.BX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-macro.melt:4094:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-macro.melt:4094:/ cond.then");
- MELT_LOCATION("warmelt-macro.melt:4094:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-macro.melt:4095:/ locexp");
-   melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "sexpr expected in LETREC binding"), (melt_ptr_t)0);}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- MELT_LOCATION("warmelt-macro.melt:4093:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.BX__V2*/ curfptr[1];;
-  MELT_LOCATION("warmelt-macro.melt:4093:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4093:/ clear");
- /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_82_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_83_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4198:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4198:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4198:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4198:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4198:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4198:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4198:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4198:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_83_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_84_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_macro_MEXPAND_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 29
-  void* varptr[29];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<29; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 29;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4211:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4211:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4211:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4211:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4212:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4212:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4212:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4212:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4212:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4212:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4212:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4212)?(4212):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4212:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4212:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4212:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4213:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4213:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4213:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4213:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4213:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4213:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4213:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4213)?(4213):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4213:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4213:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4213:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4214:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4214:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4215:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  MELT_LOCATION("warmelt-macro.melt:4217:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.FORMALS__V15*/ curfptr[14] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  /*_#NOTNULL__L3*/ curfnum[0] = 
-   ((/*_.FORMALS__V15*/ curfptr[14]) != NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4221:/ cond");
-  /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4221:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4221:/ block");
-   /*block*/{
-    /*_#IS_NOT_A__L5*/ curfnum[4] = 
-     !melt_is_instance_of((melt_ptr_t)(/*_.FORMALS__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-    /*_#IF___L4*/ curfnum[3] = /*_#IS_NOT_A__L5*/ curfnum[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4221:/ clear");
-    /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4221:/ cond.else");
-  
-   /*_#IF___L4*/ curfnum[3] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4221:/ cond");
-  /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4221:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4221:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4222:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing formal argument list in (LAMBDA (arglist...) body...)"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4223:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4223:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4223:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1];
-    /*_.ARGTUP__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FORMALS__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.PAIR_TAIL__V18*/ curfptr[17] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:4224:/ compute");
-   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];;
-   MELT_LOCATION("warmelt-macro.melt:4226:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4226:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4226:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
-    ;
-    /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4225:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4225:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
-    /*_.MULTIPLE_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ARGTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4227:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4228:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4228:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (2));
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4228:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4228:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-     ;
-     /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4227:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4227:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]);
-     MELT_LOCATION("warmelt-macro.melt:4227:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[23];
-     /*_.BODYTUP__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4230:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4230:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[11])), (4), "CLASS_SOURCE_LAMBDA");/*_.INST__V28*/ curfptr[27] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4230:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4230:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SLAM_ARGBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.ARGTUP__V17*/ curfptr[16]), "SLAM_ARGBIND");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4230:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SLAM_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.BODYTUP__V26*/ curfptr[25]), "SLAM_BODY");
-     ;
-     /*_.LAMBR__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4235:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.LAMBR__V27*/ curfptr[26];;
-     MELT_LOCATION("warmelt-macro.melt:4235:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V29*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
-    /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
-    /*clear*/ /*_.BODYTUP__V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
-    /*clear*/ /*_.LAMBR__V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4227:/ clear");
-    /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;}
-   ;
-   /*_.LET___V16*/ curfptr[15] = /*_.LET___V23*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
-   /*clear*/ /*_.ARGTUP__V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
-   /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
-   /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
-   /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4223:/ clear");
-   /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.FORMALS__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_#NOTNULL__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4214:/ clear");
-  /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4211:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:4211:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4211:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4211:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4211:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_84_warmelt_macro_MEXPAND_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4226:/ getarg");
- /*_.LB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4226:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4226:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4226:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LB__V2*/ curfptr[1];
-  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4226:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4226:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4226:/ clear");
- /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_85_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4228:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4228:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4228:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4228:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4228:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4228:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4228:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4228:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_86_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_87_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_macro_MEXPAND_MULTICALL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 40
-  void* varptr[40];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<40; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 40;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_MULTICALL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4241:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4241:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4241:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4241:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4242:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4242:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4242:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4242:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4242:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4242:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4242:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4242)?(4242):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4242:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4242:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4242:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4243:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4243:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4243:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4243:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4243:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4243:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4243:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4243)?(4243):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4243:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4243:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4243:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4244:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4244:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4245:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  MELT_LOCATION("warmelt-macro.melt:4247:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4250:/ block");
-  /*block*/{
-   /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:4250:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4250:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1];
-    /*_.RESTUP__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.PAIR_TAIL__V18*/ curfptr[17] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:4251:/ compute");
-   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];;
-   MELT_LOCATION("warmelt-macro.melt:4252:/ block");
-   /*block*/{
-    /*_.CURCALLEXP__V21*/ curfptr[20] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-    /*_#IS_A__L3*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURCALLEXP__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-    /*_#NOT__L4*/ curfnum[3] = 
-     (!(/*_#IS_A__L3*/ curfnum[0]));;
-    MELT_LOCATION("warmelt-macro.melt:4253:/ cond");
-    /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:4253:/ cond.then");
-    MELT_LOCATION("warmelt-macro.melt:4253:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4254:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing called expression in MULTICALL"), (melt_ptr_t)0);}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*_.PAIR_TAIL__V22*/ curfptr[21] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-    MELT_LOCATION("warmelt-macro.melt:4255:/ compute");
-    /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];;
-    MELT_LOCATION("warmelt-macro.melt:4256:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4256:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4256:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-macro.melt:4256:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-      /*_.CURCALL__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCALLEXP__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_#IS_A__L5*/ curfnum[4] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURCALL__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[6])));;
-     MELT_LOCATION("warmelt-macro.melt:4259:/ cond");
-     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:4259:/ cond.then");
-     /*_#OR___L6*/ curfnum[5] = /*_#IS_A__L5*/ curfnum[4];;
-     } else {MELT_LOCATION("warmelt-macro.melt:4259:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:4259:/ block");
-      /*block*/{
-       /*_#IS_A__L7*/ curfnum[6] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CURCALL__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ curfrout->tabval[5])));;
-       /*_#OR___L6*/ curfnum[5] = /*_#IS_A__L7*/ curfnum[6];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
-       /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;}
-      ;
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4259:/ cond");
-     /*cond*/ if (/*_#OR___L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:4259:/ cond.then");
-     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-macro.melt:4259:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:4259:/ block");
-      /*block*/{
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-macro.melt:4263:/ cppif.then");
-       MELT_LOCATION("warmelt-macro.melt:4263:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-          callcount;;
-         MELT_LOCATION("warmelt-macro.melt:4263:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
-          argtab[0].bp_cstring =  "mexpand_multicall bad curcall";
-          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-macro.melt";
-          MELT_LOCATION("warmelt-macro.melt:4263:/ apply.arg");
-          argtab[3].bp_long = 4263;
-          /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURCALL__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4263:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4263:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-macro.melt:4263:/ cppif.else");
-       /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       {
-       MELT_LOCATION("warmelt-macro.melt:4264:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "called expression in MULTICALL is invalid, expecting application or send"), (melt_ptr_t)0);}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4265:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-        MELT_LOCATION("warmelt-macro.melt:4265:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4262:/ block");
-       /*block*/{
-        /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[27];;}
-       ;
-       /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
-       /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
-       /*clear*/ /*_.RETURN___V29*/ curfptr[27] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4259:/ clear");
-       /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;}
-      ;
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4267:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:4267:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[27] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (1));
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4267:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[27])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[27])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[27])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
-      ;
-      /*_.LAMBDA___V31*/ curfptr[26] = /*_.LAMBDA___V32*/ curfptr[27];;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4266:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4266:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[26];
-      /*_.MULTIPLE_EVERY__V33*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.RESTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4269:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:4270:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4270:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (2));
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4270:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4270:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-       ;
-       /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4269:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:4269:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[12]);
-       MELT_LOCATION("warmelt-macro.melt:4269:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34];
-       /*_.BODYTUP__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4272:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4272:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_MULTICALL*/ curfrout->tabval[15])), (5), "CLASS_SOURCE_MULTICALL");/*_.INST__V39*/ curfptr[38] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @SMULC_RESBIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.RESTUP__V17*/ curfptr[16]), "SMULC_RESBIND");
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @SMULC_CALL", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (3), (/*_.CURCALL__V25*/ curfptr[24]), "SMULC_CALL");
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4272:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @SMULC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (4), (/*_.BODYTUP__V37*/ curfptr[36]), "SMULC_BODY");
-       ;
-       /*_.MULCR__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4279:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.MULCR__V38*/ curfptr[37];;
-       MELT_LOCATION("warmelt-macro.melt:4279:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V40*/ curfptr[39];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
-      /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
-      /*clear*/ /*_.BODYTUP__V37*/ curfptr[36] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
-      /*clear*/ /*_.MULCR__V38*/ curfptr[37] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4269:/ clear");
-      /*clear*/ /*_.RETURN___V40*/ curfptr[39] = 0 ;}
-     ;
-     /*_.LET___V24*/ curfptr[23] = /*_.LET___V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_.CURCALL__V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_#OR___L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_.LAMBDA___V31*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_.MULTIPLE_EVERY__V33*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4256:/ clear");
-     /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;}
-    ;
-    /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
-    /*clear*/ /*_.CURCALLEXP__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
-    /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
-    /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4252:/ clear");
-    /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
-   ;
-   /*_.LET___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
-   /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
-   /*clear*/ /*_.RESTUP__V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
-   /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4250:/ clear");
-   /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V15*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
-  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4244:/ clear");
-  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4241:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:4241:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4241:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4241:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4241:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_MULTICALL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_87_warmelt_macro_MEXPAND_MULTICALL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4267:/ getarg");
- /*_.LB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4267:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4267:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4267:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LB__V2*/ curfptr[1];
-  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4267:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4267:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4267:/ clear");
- /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_88_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4270:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4270:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4270:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4270:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4270:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4270:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4270:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4270:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_89_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_90_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_macro_MEXPAND_QUOTE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 24
-  void* varptr[24];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<24; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 24;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_QUOTE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4286:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4286:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4286:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4286:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4287:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4287:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4287:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4287:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4287:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4287:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4287:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4287)?(4287):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4287:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4287:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4287:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4288:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4288:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4288:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4288:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4288:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4288:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4288:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4288)?(4288):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4288:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4288:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4288:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4289:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4289:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4290:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.QUOTED__V14*/ curfptr[13] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:4294:/ cond");
-  /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4294:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4294:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4295:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have only one argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_A__L3*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-macro.melt:4296:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4296:/ cond.then");
-  /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-  } else {MELT_LOCATION("warmelt-macro.melt:4296:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:4296:/ block");
-   /*block*/{
-    /*_#IS_STRING__L4*/ curfnum[3] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-macro.melt:4299:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-macro.melt:4299:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-macro.melt:4299:/ cond.else");
-    
-     MELT_LOCATION("warmelt-macro.melt:4299:/ block");
-     /*block*/{
-      /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13])) == OBMAG_INT);;
-      MELT_LOCATION("warmelt-macro.melt:4302:/ cond");
-      /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-macro.melt:4302:/ cond.then");
-      /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-macro.melt:4302:/ cond.else");
-      
-       MELT_LOCATION("warmelt-macro.melt:4302:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-macro.melt:4306:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have a symbol, string, or integer argument"), (melt_ptr_t)0);}
-        ;
-        MELT_LOCATION("warmelt-macro.melt:4305:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFELSE___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:4299:/ clear");
-      /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4299:/ clear");
-      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4296:/ clear");
-    /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4296:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   ;
-   }
-  ;
-  /*_#IS_A__L6*/ curfnum[4] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-macro.melt:4308:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4308:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4308:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4309:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.QUOTED__V14*/ curfptr[13];;
-     MELT_LOCATION("warmelt-macro.melt:4309:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IF___V19*/ curfptr[17] = /*_.RETURN___V20*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4308:/ clear");
-    /*clear*/ /*_.RETURN___V20*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4308:/ cond.else");
-  
-   /*_.IF___V19*/ curfptr[17] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4310:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4310:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4310:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_QUOTE*/ curfrout->tabval[4])), (3), "CLASS_SOURCE_QUOTE");/*_.INST__V23*/ curfptr[22] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4310:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4310:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SQUOTED", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.QUOTED__V14*/ curfptr[13]), "SQUOTED");
-    ;
-    /*_.SQU__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4313:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.SQU__V22*/ curfptr[21];;
-    MELT_LOCATION("warmelt-macro.melt:4313:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V21*/ curfptr[16] = /*_.RETURN___V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4310:/ clear");
-   /*clear*/ /*_.SQU__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4310:/ clear");
-   /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.QUOTED__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.IF___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4289:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4286:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:4286:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4286:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4286:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4286:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_QUOTE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_90_warmelt_macro_MEXPAND_QUOTE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_91_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_macro_MEXPAND_COMMENT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_COMMENT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4319:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4319:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4319:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4319:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4320:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4320:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4320:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4320:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4320:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4320:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4320:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4320)?(4320):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4320:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4320:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4320:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4321:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4321:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4321:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4321:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4321:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4321:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4321:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4321)?(4321):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4321:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4321:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4321:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4322:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4322:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4323:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.COMSTR__V14*/ curfptr[13] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  /*_.PAIR_TAIL__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:4327:/ cond");
-  /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4327:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4327:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4328:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have only one string argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_STRING__L3*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.COMSTR__V14*/ curfptr[13])) == OBMAG_STRING);;
-  /*_#NOT__L4*/ curfnum[3] = 
-   (!(/*_#IS_STRING__L3*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:4329:/ cond");
-  /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4329:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4329:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4331:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have a string"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4332:/ compute");
-    /*_.COMSTR__V14*/ curfptr[13] = /*_.SETQ___V17*/ curfptr[16] = (/*nil*/NULL);;
-    MELT_LOCATION("warmelt-macro.melt:4330:/ block");
-    /*block*/{
-     /*_.PROGN___V18*/ curfptr[17] = /*_.SETQ___V17*/ curfptr[16];;}
-    ;
-    /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4329:/ clear");
-    /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4329:/ clear");
-    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4329:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[15] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4334:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4334:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4334:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[2])), (3), "CLASS_SOURCE_COMMENT");/*_.INST__V21*/ curfptr[20] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4334:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4334:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SCOMM_STR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.COMSTR__V14*/ curfptr[13]), "SCOMM_STR");
-    ;
-    /*_.SCOM__V20*/ curfptr[17] = /*_.INST__V21*/ curfptr[20];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4337:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.SCOM__V20*/ curfptr[17];;
-    MELT_LOCATION("warmelt-macro.melt:4337:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V19*/ curfptr[16] = /*_.RETURN___V22*/ curfptr[21];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4334:/ clear");
-   /*clear*/ /*_.SCOM__V20*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4334:/ clear");
-   /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V19*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.COMSTR__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4322:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4319:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:4319:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4319:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4319:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4319:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_COMMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_91_warmelt_macro_MEXPAND_COMMENT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PAIRLIST_TO_PROGN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
- /*_.PAIR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-macro.melt:4344:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4344:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4345:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4345:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4345:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4345:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4345:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4345:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4345:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4345)?(4345):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4345:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4345:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4345:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4346:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4346:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4346:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
-    argtab[0].bp_cstring =  "pairlist_to_progn pair";
-    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4346:/ apply.arg");
-    argtab[3].bp_long = 4346;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4346:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4346:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4346:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4347:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4347:/ block");
-  /*block*/{
-   /*_#IS_PAIR__L3*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1])) == OBMAG_PAIR);;
-   MELT_LOCATION("warmelt-macro.melt:4347:/ cond");
-   /*cond*/ if (/*_#IS_PAIR__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4347:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4347:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4347:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4347:/ locexp");
-      melt_assert_failed(( "check_pair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4347)?(4347):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4347:/ clear");
-   /*clear*/ /*_#IS_PAIR__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4347:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4347:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4348:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4351:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4351:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4351:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4351:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4]);
-   ;
-   /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4348:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4348:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[3]);
-   MELT_LOCATION("warmelt-macro.melt:4348:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
-   /*_.BODYTUP__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4353:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4353:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PROGN*/ curfrout->tabval[6])), (3), "CLASS_SOURCE_PROGN");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4353:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V3*/ curfptr[2]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4353:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @SPROGN_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), (/*_.BODYTUP__V15*/ curfptr[14]), "SPROGN_BODY");
-   ;
-   /*_.SPROGN__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4357:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4357:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4357:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
-     argtab[0].bp_cstring =  "pairlist_to_progn sprogn";
-     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4357:/ apply.arg");
-     argtab[3].bp_long = 4357;
-     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SPROGN__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4357:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4357:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4357:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4358:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.SPROGN__V16*/ curfptr[15];;
-   MELT_LOCATION("warmelt-macro.melt:4358:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
-  /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
-  /*clear*/ /*_.BODYTUP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
-  /*clear*/ /*_.SPROGN__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4348:/ clear");
-  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4344:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-macro.melt:4344:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4344:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PAIRLIST_TO_PROGN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_92_warmelt_macro_PAIRLIST_TO_PROGN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4351:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4351:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4351:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4351:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4351:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4351:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4351:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4351:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_93_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PAIRLIST_TO_RETURN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
- /*_.PAIR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-macro.melt:4362:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4362:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4363:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4363:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4363:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4363:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4363:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4363:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4363:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4363)?(4363):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4363:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4363:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4363:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4364:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4367:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4367:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (2));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4367:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (melt_ptr_t)(/*_.ENV__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4367:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4]);
-   ;
-   /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4364:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4364:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   MELT_LOCATION("warmelt-macro.melt:4364:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8];
-   /*_.BODYTUP__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4368:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4368:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_RETURN*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_RETURN");/*_.INST__V13*/ curfptr[12] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4368:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.LOC__V3*/ curfptr[2]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4368:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.BODYTUP__V11*/ curfptr[10]), "SARGOP_ARGS");
-   ;
-   /*_.INST___V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.INST___V12*/ curfptr[11];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4364:/ clear");
-  /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4364:/ clear");
-  /*clear*/ /*_.BODYTUP__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4364:/ clear");
-  /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4362:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-macro.melt:4362:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4362:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4362:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PAIRLIST_TO_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_94_warmelt_macro_PAIRLIST_TO_RETURN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4367:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4367:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4367:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4367:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4367:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4367:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4367:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4367:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_95_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_96_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_macro_MEXPAND_PROGN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_PROGN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4375:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4375:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4375:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4375:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4376:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4376:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4376:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4376:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4376:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4376:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4376:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4376)?(4376):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4376:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4376:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4376:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4377:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4377:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4379:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V9*/ curfptr[8] = slot; };
-  ;
-  /*_.LIST_FIRST__V10*/ curfptr[9] = 
-   (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V9*/ curfptr[8])));;
-  /*_.PAIRS__V11*/ curfptr[10] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));;
-  /*_#IS_PAIR__L2*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.PAIRS__V11*/ curfptr[10])) == OBMAG_PAIR);;
-  /*_#NOT__L3*/ curfnum[2] = 
-   (!(/*_#IS_PAIR__L2*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:4381:/ cond");
-  /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4381:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4381:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4383:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V8*/ curfptr[7]), ( "empty PROGN"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4384:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-macro.melt:4384:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4382:/ block");
-    /*block*/{
-     /*_.PROGN___V14*/ curfptr[13] = /*_.RETURN___V13*/ curfptr[12];;}
-    ;
-    /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4381:/ clear");
-    /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4381:/ clear");
-    /*clear*/ /*_.PROGN___V14*/ curfptr[13] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4381:/ cond.else");
-  
-   /*_.IF___V12*/ curfptr[11] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4385:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4386:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4386:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V8*/ curfptr[7];
-    MELT_LOCATION("warmelt-macro.melt:4386:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-macro.melt:4386:/ apply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-    /*_.PROGR__V16*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIRS__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4390:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.PROGR__V16*/ curfptr[13];;
-    MELT_LOCATION("warmelt-macro.melt:4390:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V15*/ curfptr[12] = /*_.RETURN___V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4385:/ clear");
-   /*clear*/ /*_.PROGR__V16*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4385:/ clear");
-   /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;}
-  ;
-  /*_.LET___V7*/ curfptr[5] = /*_.LET___V15*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_.SLOC__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_.PAIRS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_#IS_PAIR__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4377:/ clear");
-  /*clear*/ /*_.LET___V15*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4375:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-macro.melt:4375:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4375:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4375:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_PROGN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_96_warmelt_macro_MEXPAND_PROGN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_97_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_macro_MEXPAND_RETURN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_RETURN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4396:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4396:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4396:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4396:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4397:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4397:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4397:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4397:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4397:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4397:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4397:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4397)?(4397):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4397:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4397:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4397:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4398:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4399:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ curfptr[7] = slot; };
-  ;
-  /*_.LIST_FIRST__V9*/ curfptr[8] = 
-   (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V8*/ curfptr[7])));;
-  /*_.PAIR_TAIL__V10*/ curfptr[9] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V9*/ curfptr[8])));;
-  MELT_LOCATION("warmelt-macro.melt:4400:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4399:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4399:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V11*/ curfptr[10];
-   MELT_LOCATION("warmelt-macro.melt:4399:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4399:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.RETR__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_RETURN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR_TAIL__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4404:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETR__V12*/ curfptr[11];;
-   MELT_LOCATION("warmelt-macro.melt:4404:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V7*/ curfptr[5] = /*_.RETURN___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
-  /*clear*/ /*_.RETR__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4398:/ clear");
-  /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4396:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-macro.melt:4396:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4396:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4396:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_97_warmelt_macro_MEXPAND_RETURN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_98_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_macro_MEXPAND_FOREVER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 30
-  void* varptr[30];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<30; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 30;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_FOREVER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4411:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4411:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4411:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4411:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4412:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4412:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4412:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4412:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4412:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4412:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4412:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4412)?(4412):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4412:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4412:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4412:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4413:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4413:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4414:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ curfptr[8] = slot; };
-  ;
-  /*_.LIST_FIRST__V10*/ curfptr[9] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V8*/ curfptr[7])));;
-  /*_.CURPAIR__V11*/ curfptr[10] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));;
-  /*_.SLABNAM__V12*/ curfptr[11] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
-  MELT_LOCATION("warmelt-macro.melt:4417:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4417:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4417:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XLABNAM__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SLABNAM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4418:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_NOT_A__L2*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-macro.melt:4420:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4420:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4420:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4422:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "missing label in FOREVER"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4423:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:4423:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4421:/ block");
-    /*block*/{
-     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4420:/ clear");
-    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4420:/ clear");
-    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4420:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
-  MELT_LOCATION("warmelt-macro.melt:4424:/ compute");
-  /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
-  MELT_LOCATION("warmelt-macro.melt:4425:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4425:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4425:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[4])), (4), "CLASS_LABEL_BINDING");/*_.INST__V22*/ curfptr[21] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4425:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.XLABNAM__V13*/ curfptr[12]), "BINDER");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4425:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LABIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.LOC__V9*/ curfptr[8]), "LABIND_LOC");
-    ;
-    /*_.LABIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4428:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4428:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LABIND__V21*/ curfptr[20];
-    /*_.PUT_ENV__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4429:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4432:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4432:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4432:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4432:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-     ;
-     /*_.LAMBDA___V25*/ curfptr[24] = /*_.LAMBDA___V26*/ curfptr[25];;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4429:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4429:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
-     MELT_LOCATION("warmelt-macro.melt:4429:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[24];
-     /*_.BODYTUP__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4434:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4434:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FOREVER*/ curfrout->tabval[10])), (4), "CLASS_SOURCE_FOREVER");/*_.INST__V29*/ curfptr[28] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4434:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.LOC__V9*/ curfptr[8]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4434:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SLABEL_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.LABIND__V21*/ curfptr[20]), "SLABEL_BIND");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4434:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SFRV_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.BODYTUP__V27*/ curfptr[26]), "SFRV_BODY");
-     ;
-     /*_.FORR__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4439:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.FORR__V28*/ curfptr[27];;
-     MELT_LOCATION("warmelt-macro.melt:4439:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V24*/ curfptr[23] = /*_.RETURN___V30*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
-    /*clear*/ /*_.LAMBDA___V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
-    /*clear*/ /*_.BODYTUP__V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
-    /*clear*/ /*_.FORR__V28*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4429:/ clear");
-    /*clear*/ /*_.RETURN___V30*/ curfptr[29] = 0 ;}
-   ;
-   /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4425:/ clear");
-   /*clear*/ /*_.LABIND__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4425:/ clear");
-   /*clear*/ /*_.PUT_ENV__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4425:/ clear");
-   /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V7*/ curfptr[5] = /*_.LET___V20*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4413:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4411:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-macro.melt:4411:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4411:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4411:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_FOREVER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_98_warmelt_macro_MEXPAND_FOREVER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4432:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4432:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4432:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4432:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4432:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4432:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4432:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4432:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_99_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_100_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_macro_MEXPAND_EXIT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 32
-  void* varptr[32];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<32; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 32;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_EXIT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4445:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4445:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4445:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4445:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4446:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4446:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4446:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4446:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4446:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4446:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4446:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4446)?(4446):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4446:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4446:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4446:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4447:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4447:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4448:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ curfptr[8] = slot; };
-  ;
-  /*_.LIST_FIRST__V10*/ curfptr[9] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V8*/ curfptr[7])));;
-  /*_.CURPAIR__V11*/ curfptr[10] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));;
-  /*_.SLABNAM__V12*/ curfptr[11] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
-  MELT_LOCATION("warmelt-macro.melt:4451:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4451:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4451:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XLABNAM__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SLABNAM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4452:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_NOT_A__L2*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-macro.melt:4454:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4454:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4454:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4456:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "missing label in EXIT"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4457:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:4457:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4455:/ block");
-    /*block*/{
-     /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[15];;}
-    ;
-    /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4454:/ clear");
-    /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4454:/ clear");
-    /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4454:/ cond.else");
-  
-   /*_.IF___V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_.PAIR_TAIL__V18*/ curfptr[15] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));;
-  MELT_LOCATION("warmelt-macro.melt:4458:/ compute");
-  /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V19*/ curfptr[16] = /*_.PAIR_TAIL__V18*/ curfptr[15];;
-  MELT_LOCATION("warmelt-macro.melt:4459:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4459:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4459:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XLABNAM__V13*/ curfptr[12];
-    /*_.LABIND__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#IS_NOT_A__L3*/ curfnum[2] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.LABIND__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-macro.melt:4460:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4460:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4460:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4463:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:4462:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "bad label in EXIT"), (melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22]));}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4464:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-      MELT_LOCATION("warmelt-macro.melt:4464:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4461:/ block");
-     /*block*/{
-      /*_.PROGN___V25*/ curfptr[24] = /*_.RETURN___V24*/ curfptr[23];;}
-     ;
-     /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V25*/ curfptr[24];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4460:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4460:/ clear");
-     /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4460:/ clear");
-     /*clear*/ /*_.PROGN___V25*/ curfptr[24] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:4460:/ cond.else");
-   
-    /*_.IF___V22*/ curfptr[21] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4465:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4468:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4468:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[24] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4468:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]);
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4468:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-     ;
-     /*_.LAMBDA___V27*/ curfptr[23] = /*_.LAMBDA___V28*/ curfptr[24];;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4465:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4465:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]);
-     MELT_LOCATION("warmelt-macro.melt:4465:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[23];
-     /*_.BODYTUP__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4470:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4470:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXIT*/ curfrout->tabval[10])), (4), "CLASS_SOURCE_EXIT");/*_.INST__V31*/ curfptr[30] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4470:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.LOC__V9*/ curfptr[8]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4470:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SLABEL_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.LABIND__V21*/ curfptr[20]), "SLABEL_BIND");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4470:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SEXI_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.BODYTUP__V29*/ curfptr[28]), "SEXI_BODY");
-     ;
-     /*_.EXR__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4475:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.EXR__V30*/ curfptr[29];;
-     MELT_LOCATION("warmelt-macro.melt:4475:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V26*/ curfptr[22] = /*_.RETURN___V32*/ curfptr[31];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
-    /*clear*/ /*_.LAMBDA___V27*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
-    /*clear*/ /*_.BODYTUP__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
-    /*clear*/ /*_.EXR__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4465:/ clear");
-    /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ;}
-   ;
-   /*_.LET___V20*/ curfptr[19] = /*_.LET___V26*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
-   /*clear*/ /*_.LABIND__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
-   /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4459:/ clear");
-   /*clear*/ /*_.LET___V26*/ curfptr[22] = 0 ;}
-  ;
-  /*_.LET___V7*/ curfptr[5] = /*_.LET___V20*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.SETQ___V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4447:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4445:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-macro.melt:4445:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4445:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4445:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_EXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_100_warmelt_macro_MEXPAND_EXIT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4468:/ getarg");
- /*_.E__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4468:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4468:/ apply");
- /*apply*/{
-  union meltparam_un argtab[2];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-macro.melt:4468:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-macro.melt:4468:/ apply.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-  /*_.MACROEXPAND_1__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-macro.melt:4468:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4468:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4468:/ clear");
- /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_101_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_COMPILE_WARNING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4483:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4483:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4483:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4483:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4484:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4484:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4484:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4484:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4484:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4484:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4484:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4484)?(4484):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4484:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4484:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4484:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4485:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4485:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4485:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_compile_warning sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4485:/ apply.arg");
-    argtab[3].bp_long = 4485;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4485:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4485:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4485:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4486:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4486:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4487:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.LIST_FIRST__V12*/ curfptr[11] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V10*/ curfptr[9])));;
-  /*_.CURPAIR__V13*/ curfptr[12] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));;
-  /*_.SMSG__V14*/ curfptr[13] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:4490:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4490:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4490:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XMSG__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SMSG__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_STRING__L3*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V15*/ curfptr[14])) == OBMAG_STRING);;
-  /*_#NOT__L4*/ curfnum[3] = 
-   (!(/*_#IS_STRING__L3*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:4492:/ cond");
-  /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4492:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4492:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4494:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing message string in (COMPILE_WARNING <msg> <exp>)"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4495:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-macro.melt:4495:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4493:/ block");
-    /*block*/{
-     /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;}
-    ;
-    /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4492:/ clear");
-    /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4492:/ clear");
-    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4492:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[15] = NULL;;
-   }
-  ;
-  /*_.PAIR_TAIL__V19*/ curfptr[16] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-  MELT_LOCATION("warmelt-macro.melt:4496:/ compute");
-  /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[17] = /*_.PAIR_TAIL__V19*/ curfptr[16];;
-  MELT_LOCATION("warmelt-macro.melt:4497:/ block");
-  /*block*/{
-   /*_.SEXP__V22*/ curfptr[21] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:4498:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4498:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-macro.melt:4498:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-    /*_.XEXP__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXP__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.PAIR_TAIL__V24*/ curfptr[23] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));;
-   MELT_LOCATION("warmelt-macro.melt:4500:/ compute");
-   /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];;
-   /*_#NOTNULL__L5*/ curfnum[4] = 
-    ((/*_.CURPAIR__V13*/ curfptr[12]) != NULL);;
-   MELT_LOCATION("warmelt-macro.melt:4501:/ cond");
-   /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4501:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4501:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:4502:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "too many arguments in (COMPILE_WARNING <msg> [<exp>])"), (melt_ptr_t)0);}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4503:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4503:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4503:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_COMPILEWARNING*/ curfrout->tabval[3])), (4), "CLASS_SOURCE_COMPILEWARNING");/*_.INST__V28*/ curfptr[27] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4503:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.LOC__V11*/ curfptr[10]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4503:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SCWARN_MSG", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.XMSG__V15*/ curfptr[14]), "SCWARN_MSG");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4503:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SCWARN_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V28*/ curfptr[27]), (3), (/*_.XEXP__V23*/ curfptr[22]), "SCWARN_EXPR");
-     ;
-     /*_.RES__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:4509:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:4509:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:4509:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
-       argtab[0].bp_cstring =  "mexpand_compile_warning result";
-       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:4509:/ apply.arg");
-       argtab[3].bp_long = 4509;
-       /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RES__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:4509:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4509:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:4509:/ cppif.else");
-    /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:4510:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V27*/ curfptr[26];;
-     MELT_LOCATION("warmelt-macro.melt:4510:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V26*/ curfptr[25] = /*_.RETURN___V31*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4503:/ clear");
-    /*clear*/ /*_.RES__V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4503:/ clear");
-    /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4503:/ clear");
-    /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
-   ;
-   /*_.LET___V21*/ curfptr[20] = /*_.LET___V26*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
-   /*clear*/ /*_.SEXP__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
-   /*clear*/ /*_.XEXP__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
-   /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
-   /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4497:/ clear");
-   /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.SMSG__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.XMSG__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.SETQ___V20*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4486:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4483:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-macro.melt:4483:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4483:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4483:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4483:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_COMPILE_WARNING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_102_warmelt_macro_MEXPAND_COMPILE_WARNING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 66
-  void* varptr[66];
-#define CURFRAM_NBVARNUM 21
-  long varnum[21];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<66; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 66;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_ASSERT_MSG", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4522:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4522:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4522:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4522:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4523:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4523:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4523:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4523:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4523:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4523:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4523:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4523)?(4523):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4523:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4523:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4523:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4524:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4524:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4524:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4524:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4524:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4524:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4524)?(4524):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4524:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4524:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4525:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4525:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4525:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_assert_msg sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4525:/ apply.arg");
-    argtab[3].bp_long = 4525;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4525:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4525:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4525:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4526:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4527:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4528:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4530:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4530:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4530:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XMSG__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.XTEST__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = (/*!konst_4_ASSERT_FAILED*/ curfrout->tabval[4]);;
-  MELT_LOCATION("warmelt-macro.melt:4533:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4533:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ASSFAIL_SYMB__V19*/ curfptr[18];
-   /*_.ASSFAIL_BINDING__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_STRING__L4*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V17*/ curfptr[16])) == OBMAG_STRING);;
-  /*_#NOT__L5*/ curfnum[4] = 
-   (!(/*_#IS_STRING__L4*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:4535:/ cond");
-  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4535:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4535:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4536:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "non string message in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V21*/ curfptr[20] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4537:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V22*/ curfptr[21] = /*_.PAIR_TAIL__V21*/ curfptr[20];;
-  /*_#IS_PAIR__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  /*_#NOT__L7*/ curfnum[6] = 
-   (!(/*_#IS_PAIR__L6*/ curfnum[5]));;
-  MELT_LOCATION("warmelt-macro.melt:4538:/ cond");
-  /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4538:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4538:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4539:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing test in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_HEAD__V23*/ curfptr[22] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4540:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4540:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4540:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4540:/ compute");
-  /*_.XTEST__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.MACROEXPAND_1__V24*/ curfptr[23];;
-  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4541:/ cond");
-  /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4541:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4541:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4542:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra arg for (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4543:/ block");
-  /*block*/{
-   /*_#NULL__L8*/ curfnum[7] = 
-    ((/*_.ASSFAIL_BINDING__V20*/ curfptr[19]) == NULL);;
-   MELT_LOCATION("warmelt-macro.melt:4546:/ cond");
-   /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4546:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4546:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:4547:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "unbound ASSERT_FAILED in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:4548:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:4548:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:4548:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_assert_msg env without assert_failed";
-        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:4548:/ apply.arg");
-        argtab[3].bp_long = 4548;
-        /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4548:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4548:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:4548:/ cppif.else");
-     /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:4549:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:4549:/ block");
-      /*block*/{
-       /*_.DISCRIM__V32*/ curfptr[31] = 
-        (melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])));;
-       /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:4549:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_assert_msg env\'s class without assert_failed";
-        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:4549:/ apply.arg");
-        argtab[3].bp_long = 4549;
-        /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DISCRIM__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4549:/ clear");
-       /*clear*/ /*_.DISCRIM__V32*/ curfptr[31] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4549:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4549:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:4549:/ cppif.else");
-     /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:4550:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:4550:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4550:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[1];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ASSFAIL_SYMB__V19*/ curfptr[18];
-        /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV_DEBUG*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:4550:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_assert_msg findenvdbg give";
-        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:4550:/ apply.arg");
-        argtab[3].bp_long = 4550;
-        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.FIND_ENV_DEBUG__V35*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4550:/ clear");
-       /*clear*/ /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4550:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4550:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:4550:/ cppif.else");
-     /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:4551:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:4551:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-macro.melt:4551:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
-        argtab[0].bp_cstring =  "mexpand_assert_msg ASSERT_FAILED symbol";
-        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
-        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-macro.melt";
-        MELT_LOCATION("warmelt-macro.melt:4551:/ apply.arg");
-        argtab[3].bp_long = 4551;
-        /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ASSFAIL_SYMB__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V37*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4551:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4551:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:4551:/ cppif.else");
-     /*_.IFCPP___V37*/ curfptr[32] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-macro.melt:4552:/ cppif.then");
-     MELT_LOCATION("warmelt-macro.melt:4552:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4552:/ cond");
-       /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:4552:/ cond.then");
-       /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-macro.melt:4552:/ cond.else");
-       
-        MELT_LOCATION("warmelt-macro.melt:4552:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-macro.melt:4552:/ locexp");
-          melt_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4552)?(4552):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[39];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4552:/ clear");
-       /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-macro.melt:4552:/ cppif.else");
-     /*_.IFCPP___V39*/ curfptr[35] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-macro.melt:4553:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-      MELT_LOCATION("warmelt-macro.melt:4553:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ block");
-     /*block*/{
-      /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[39];;}
-     ;
-     /*_.AFPRIM__V28*/ curfptr[27] = /*_.PROGN___V42*/ curfptr[41];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.IFCPP___V37*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.IFCPP___V39*/ curfptr[35] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:4546:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4546:/ block");
-    /*block*/{
-     /*_#IS_A__L13*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[7])));;
-     MELT_LOCATION("warmelt-macro.melt:4554:/ cond");
-     /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:4554:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:4554:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-macro.melt:4555:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_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*/
-       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
-       /*clear*/ /*_.PBIND_PRIMITIVE__V44*/ curfptr[29] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:4554:/ cond.else");
-     
-      MELT_LOCATION("warmelt-macro.melt:4554:/ block");
-      /*block*/{
-       /*_#IS_A__L14*/ curfnum[13] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));;
-       MELT_LOCATION("warmelt-macro.melt:4556:/ cond");
-       /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:4556:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:4556:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:4557:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V45*/ curfptr[31] = slot; };
-         ;
-         /*_#IS_A__L16*/ curfnum[15] = 
-          melt_is_instance_of((melt_ptr_t)(/*_.VBIND_VALUE__V45*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[9])));;
-         /*_#IF___L15*/ curfnum[14] = /*_#IS_A__L16*/ curfnum[15];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
-         /*clear*/ /*_.VBIND_VALUE__V45*/ curfptr[31] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
-         /*clear*/ /*_#IS_A__L16*/ curfnum[15] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-macro.melt:4556:/ cond.else");
-       
-        /*_#IF___L15*/ curfnum[14] = 0;;
-        }
-       ;
-       MELT_LOCATION("warmelt-macro.melt:4556:/ cond");
-       /*cond*/ if (/*_#IF___L15*/ curfnum[14]) /*then*/ {
-       MELT_LOCATION("warmelt-macro.melt:4556:/ cond.then");
-       MELT_LOCATION("warmelt-macro.melt:4556:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-macro.melt:4559:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_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*/
-         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
-         /*clear*/ /*_.VBIND_VALUE__V47*/ curfptr[35] = 0 ;}
-        ;
-       } else {MELT_LOCATION("warmelt-macro.melt:4556:/ cond.else");
-       
-        MELT_LOCATION("warmelt-macro.melt:4556:/ block");
-        /*block*/{
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-macro.melt:4561:/ cppif.then");
-         MELT_LOCATION("warmelt-macro.melt:4561:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 
-            callcount;;
-           MELT_LOCATION("warmelt-macro.melt:4561:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
-            argtab[0].bp_cstring =  "bad assfail_binding";
-            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[15];
-            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-macro.melt";
-            MELT_LOCATION("warmelt-macro.melt:4561:/ apply.arg");
-            argtab[3].bp_long = 4561;
-            /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V48*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[41];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-macro.melt:4561:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 0 ;
-           MELT_LOCATION("warmelt-macro.melt:4561:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-macro.melt:4561:/ cppif.else");
-         /*_.IFCPP___V48*/ curfptr[39] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         {
-         MELT_LOCATION("warmelt-macro.melt:4562:/ locexp");
-         melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "ASSERT_FAILED not bound to a primitive in  (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0);}
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4563:/ block");
-         /*block*/{
-          /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-          MELT_LOCATION("warmelt-macro.melt:4563:/ finalreturn");
-          ;
-          /*finalret*/ goto labend_rout ;}
-         ;
-         MELT_LOCATION("warmelt-macro.melt:4560:/ block");
-         /*block*/{
-          /*_.PROGN___V51*/ curfptr[31] = /*_.RETURN___V50*/ curfptr[29];;}
-         ;
-         /*_.IFELSE___V46*/ curfptr[32] = /*_.PROGN___V51*/ curfptr[31];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
-         /*clear*/ /*_.IFCPP___V48*/ curfptr[39] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
-         /*clear*/ /*_.RETURN___V50*/ curfptr[29] = 0 ;
-         MELT_LOCATION("warmelt-macro.melt:4556:/ clear");
-         /*clear*/ /*_.PROGN___V51*/ curfptr[31] = 0 ;}
-        ;
-        }
-       ;
-       /*_.IFELSE___V43*/ curfptr[28] = /*_.IFELSE___V46*/ curfptr[32];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
-       /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
-       /*clear*/ /*_#IF___L15*/ curfnum[14] = 0 ;
-       MELT_LOCATION("warmelt-macro.melt:4554:/ clear");
-       /*clear*/ /*_.IFELSE___V46*/ curfptr[32] = 0 ;}
-      ;
-      }
-     ;
-     /*_.AFPRIM__V28*/ curfptr[27] = /*_.IFELSE___V43*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4546:/ clear");
-     /*clear*/ /*_.IFELSE___V43*/ curfptr[28] = 0 ;}
-    ;
-    }
-   ;
-   /*_#IS_MIXINT__L18*/ curfnum[15] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);;
-   MELT_LOCATION("warmelt-macro.melt:4566:/ cond");
-   /*cond*/ if (/*_#IS_MIXINT__L18*/ curfnum[15]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4566:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4566:/ block");
-    /*block*/{
-     /*_.MIXINT_VAL__V53*/ curfptr[41] = 
-      (melt_val_mixint((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
-     /*_.FILNAM__V52*/ curfptr[35] = /*_.MIXINT_VAL__V53*/ curfptr[41];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4566:/ clear");
-     /*clear*/ /*_.MIXINT_VAL__V53*/ curfptr[41] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:4566:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4566:/ block");
-    /*block*/{
-     /*_#IS_MIXLOC__L19*/ curfnum[13] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);;
-     MELT_LOCATION("warmelt-macro.melt:4567:/ cond");
-     /*cond*/ if (/*_#IS_MIXLOC__L19*/ curfnum[13]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:4567:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:4567:/ block");
-      /*block*/{
-       /*_.MIXLOC_VAL__V55*/ curfptr[29] = 
-        (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
-       /*_.IFELSE___V54*/ curfptr[39] = /*_.MIXLOC_VAL__V55*/ curfptr[29];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4567:/ clear");
-       /*clear*/ /*_.MIXLOC_VAL__V55*/ curfptr[29] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:4567:/ cond.else");
-     
-      /*_.IFELSE___V54*/ curfptr[39] = NULL;;
-      }
-     ;
-     /*_.FILNAM__V52*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[39];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4566:/ clear");
-     /*clear*/ /*_#IS_MIXLOC__L19*/ curfnum[13] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4566:/ clear");
-     /*clear*/ /*_.IFELSE___V54*/ curfptr[39] = 0 ;}
-    ;
-    }
-   ;
-   /*_#GET_INT__L20*/ curfnum[14] = 
-    (melt_get_int((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
-   /*_.MAKE_INTEGERBOX__V56*/ curfptr[31] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[12])), (/*_#GET_INT__L20*/ curfnum[14])));;
-   /*_.MAKE_TUPLE3__V57*/ curfptr[32] = 
-    (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.XMSG__V17*/ curfptr[16]),  (melt_ptr_t)(/*_.FILNAM__V52*/ curfptr[35]),  (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V56*/ curfptr[31])));;
-   MELT_LOCATION("warmelt-macro.melt:4568:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4568:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ curfrout->tabval[10])), (4), "CLASS_SOURCE_PRIMITIVE");/*_.INST__V59*/ curfptr[41] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4568:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[41]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4568:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SPRIM_OPER", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[41]), (3), (/*_.AFPRIM__V28*/ curfptr[27]), "SPRIM_OPER");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4568:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[41]), (2), (/*_.MAKE_TUPLE3__V57*/ curfptr[32]), "SARGOP_ARGS");
-    ;
-    /*_.APRIM__V58*/ curfptr[28] = /*_.INST__V59*/ curfptr[41];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4576:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4576:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ curfrout->tabval[13])), (5), "CLASS_SOURCE_IFELSE");/*_.INST__V61*/ curfptr[39] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (2), (/*_.XTEST__V18*/ curfptr[17]), "SIF_TEST");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (3), ((/*nil*/NULL)), "SIF_THEN");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4576:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V61*/ curfptr[39]), (4), (/*_.APRIM__V58*/ curfptr[28]), "SIF_ELSE");
-    ;
-    /*_.ATEST__V60*/ curfptr[29] = /*_.INST__V61*/ curfptr[39];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4582:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4582:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ curfrout->tabval[14])), (5), "CLASS_SOURCE_CPPIF");/*_.INST__V63*/ curfptr[62] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), ((/*!konst_15_ENABLE_CHECKING*/ curfrout->tabval[15])), "SIFP_COND");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), (/*_.ATEST__V60*/ curfptr[29]), "SIFP_THEN");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4582:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (4), ((/*nil*/NULL)), "SIFP_ELSE");
-    ;
-    /*_.ACPPIF__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4589:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4589:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L21*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4589:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_assert_msg result acppif";
-      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[8];
-      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4589:/ apply.arg");
-      argtab[3].bp_long = 4589;
-      /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ACPPIF__V62*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V64*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4589:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4589:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4589:/ cppif.else");
-   /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4590:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.ACPPIF__V62*/ curfptr[61];;
-    MELT_LOCATION("warmelt-macro.melt:4590:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V27*/ curfptr[26] = /*_.RETURN___V66*/ curfptr[64];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.AFPRIM__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_#IS_MIXINT__L18*/ curfnum[15] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.FILNAM__V52*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_#GET_INT__L20*/ curfnum[14] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[31] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.APRIM__V58*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.ATEST__V60*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.ACPPIF__V62*/ curfptr[61] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4543:/ clear");
-   /*clear*/ /*_.RETURN___V66*/ curfptr[64] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V27*/ curfptr[26];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.XMSG__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.XTEST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.ASSFAIL_BINDING__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.SETQ___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4526:/ clear");
-  /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4522:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4522:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4522:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_ASSERT_MSG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_103_warmelt_macro_MEXPAND_ASSERT_MSG*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 54
-  void* varptr[54];
-#define CURFRAM_NBVARNUM 13
-  long varnum[13];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<54; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 54;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_DEBUG_MSG", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4602:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4602:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4602:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4602:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4603:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4603:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4603:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4603:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4603:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4603:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4603:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4603)?(4603):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4603:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4603:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4603:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4604:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4604:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4604:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4604:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4604:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4604:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4604:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4604)?(4604):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4604:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4604:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4604:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4605:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4605:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4605:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_debug_msg sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4605:/ apply.arg");
-    argtab[3].bp_long = 4605;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4605:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4605:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4605:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4606:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4607:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4608:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4610:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4610:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4610:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.XVAL__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.XMSG__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_.XCOUNT__V19*/ curfptr[18] = (/*nil*/NULL);;
-  /*_.PAIR_TAIL__V20*/ curfptr[19] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4614:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.PAIR_TAIL__V20*/ curfptr[19];;
-  /*_#IS_PAIR__L4*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  /*_#NOT__L5*/ curfnum[4] = 
-   (!(/*_#IS_PAIR__L4*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-macro.melt:4615:/ cond");
-  /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4615:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4615:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4616:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing message in DEBUG_MSG"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_HEAD__V22*/ curfptr[21] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4617:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4617:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4617:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4617:/ compute");
-  /*_.XMSG__V18*/ curfptr[17] = /*_.SETQ___V24*/ curfptr[23] = /*_.MACROEXPAND_1__V23*/ curfptr[22];;
-  /*_.PAIR_TAIL__V25*/ curfptr[24] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4618:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];;
-  /*_#IS_PAIR__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);;
-  MELT_LOCATION("warmelt-macro.melt:4619:/ cond");
-  /*cond*/ if (/*_#IS_PAIR__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4619:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4619:/ block");
-   /*block*/{
-    /*_.PAIR_HEAD__V28*/ curfptr[27] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:4621:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4621:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-macro.melt:4621:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-     /*_.MACROEXPAND_1__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4621:/ compute");
-    /*_.XCOUNT__V19*/ curfptr[18] = /*_.SETQ___V30*/ curfptr[29] = /*_.MACROEXPAND_1__V29*/ curfptr[28];;
-    /*_.PAIR_TAIL__V31*/ curfptr[30] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:4622:/ compute");
-    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[30];;
-    MELT_LOCATION("warmelt-macro.melt:4620:/ block");
-    /*block*/{
-     /*_.PROGN___V33*/ curfptr[32] = /*_.SETQ___V32*/ curfptr[31];;}
-    ;
-    /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V33*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
-    /*clear*/ /*_.PAIR_HEAD__V28*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
-    /*clear*/ /*_.MACROEXPAND_1__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
-    /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
-    /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4619:/ clear");
-    /*clear*/ /*_.PROGN___V33*/ curfptr[32] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4619:/ cond.else");
-  
-   /*_.IF___V27*/ curfptr[26] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4623:/ cond");
-  /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4623:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4623:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4624:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too many arguments to DEBUG_MSG"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_STRING__L7*/ curfnum[6] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V18*/ curfptr[17])) == OBMAG_STRING);;
-  /*_#NOT__L8*/ curfnum[7] = 
-   (!(/*_#IS_STRING__L7*/ curfnum[6]));;
-  MELT_LOCATION("warmelt-macro.melt:4625:/ cond");
-  /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4625:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4625:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4626:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "message argument should be string in DEBUG_MSG"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#NULL__L9*/ curfnum[8] = 
-   ((/*_.XCOUNT__V19*/ curfptr[18]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4627:/ cond");
-  /*cond*/ if (/*_#NULL__L9*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4627:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4627:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4628:/ block");
-    /*block*/{
-     /*_.CONLIS__V36*/ curfptr[29] = 
-      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:4629:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.CONLIS__V36*/ curfptr[29]), (melt_ptr_t)((/*!konst_5_THE_CALLCOUNT*/ curfrout->tabval[5])));}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4630:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-macro.melt:4630:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])), (3), "CLASS_SEXPR");/*_.INST__V38*/ curfptr[31] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4630:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @SEXP_CONTENTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[31])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V38*/ curfptr[31]), (2), (/*_.CONLIS__V36*/ curfptr[29]), "SEXP_CONTENTS");
-      ;
-      MELT_LOCATION("warmelt-macro.melt:4630:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[31])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V38*/ curfptr[31]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-      ;
-      /*_.INST___V37*/ curfptr[30] = /*_.INST__V38*/ curfptr[31];;}
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4630:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4630:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-macro.melt:4630:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-      /*_.MACROEXPAND_1__V39*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INST___V37*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4630:/ compute");
-     /*_.XCOUNT__V19*/ curfptr[18] = /*_.SETQ___V40*/ curfptr[39] = /*_.MACROEXPAND_1__V39*/ curfptr[32];;
-     /*_.LET___V35*/ curfptr[28] = /*_.SETQ___V40*/ curfptr[39];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
-     /*clear*/ /*_.CONLIS__V36*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
-     /*clear*/ /*_.INST___V37*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
-     /*clear*/ /*_.MACROEXPAND_1__V39*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4628:/ clear");
-     /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;}
-    ;
-    /*_.IF___V34*/ curfptr[27] = /*_.LET___V35*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4627:/ clear");
-    /*clear*/ /*_.LET___V35*/ curfptr[28] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4627:/ cond.else");
-  
-   /*_.IF___V34*/ curfptr[27] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4634:/ block");
-  /*block*/{
-   /*_#IS_MIXINT__L10*/ curfnum[9] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);;
-   MELT_LOCATION("warmelt-macro.melt:4636:/ cond");
-   /*cond*/ if (/*_#IS_MIXINT__L10*/ curfnum[9]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4636:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4636:/ block");
-    /*block*/{
-     /*_.MIXINT_VAL__V43*/ curfptr[32] = 
-      (melt_val_mixint((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
-     /*_.DFILNAM__V42*/ curfptr[30] = /*_.MIXINT_VAL__V43*/ curfptr[32];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4636:/ clear");
-     /*clear*/ /*_.MIXINT_VAL__V43*/ curfptr[32] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:4636:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4636:/ block");
-    /*block*/{
-     /*_#IS_MIXLOC__L11*/ curfnum[10] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);;
-     MELT_LOCATION("warmelt-macro.melt:4637:/ cond");
-     /*cond*/ if (/*_#IS_MIXLOC__L11*/ curfnum[10]) /*then*/ {
-     MELT_LOCATION("warmelt-macro.melt:4637:/ cond.then");
-     MELT_LOCATION("warmelt-macro.melt:4637:/ block");
-      /*block*/{
-       /*_.MIXLOC_VAL__V45*/ curfptr[28] = 
-        (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
-       /*_.IFELSE___V44*/ curfptr[39] = /*_.MIXLOC_VAL__V45*/ curfptr[28];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-macro.melt:4637:/ clear");
-       /*clear*/ /*_.MIXLOC_VAL__V45*/ curfptr[28] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-macro.melt:4637:/ cond.else");
-     
-      /*_.IFELSE___V44*/ curfptr[39] = NULL;;
-      }
-     ;
-     /*_.DFILNAM__V42*/ curfptr[30] = /*_.IFELSE___V44*/ curfptr[39];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4636:/ clear");
-     /*clear*/ /*_#IS_MIXLOC__L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4636:/ clear");
-     /*clear*/ /*_.IFELSE___V44*/ curfptr[39] = 0 ;}
-    ;
-    }
-   ;
-   /*_#GET_INT__L12*/ curfnum[10] = 
-    (melt_get_int((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12])));;
-   /*_.MAKE_INTEGERBOX__V46*/ curfptr[32] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[9])), (/*_#GET_INT__L12*/ curfnum[10])));;
-   /*_.MAKE_TUPLE5__V47*/ curfptr[28] = 
-    (meltgc_new_mult5((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.XVAL__V17*/ curfptr[16]),  
-		      (melt_ptr_t)(/*_.XMSG__V18*/ curfptr[17]),  (melt_ptr_t)(/*_.XCOUNT__V19*/ curfptr[18]),  (melt_ptr_t)(/*_.DFILNAM__V42*/ curfptr[30]),
-		      (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V46*/ curfptr[32])));;
-   MELT_LOCATION("warmelt-macro.melt:4638:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4638:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[6])), (4), "CLASS_SOURCE_APPLY");/*_.INST__V49*/ curfptr[48] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4638:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4638:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (3), ((/*!konst_7_DEBUG_MSG_FUN*/ curfrout->tabval[7])), "SAPP_FUN");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4638:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (2), (/*_.MAKE_TUPLE5__V47*/ curfptr[28]), "SARGOP_ARGS");
-    ;
-    /*_.DCALL__V48*/ curfptr[39] = /*_.INST__V49*/ curfptr[48];;}
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4648:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4648:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ curfrout->tabval[10])), (5), "CLASS_SOURCE_CPPIF");/*_.INST__V51*/ curfptr[50] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIFP_COND", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), ((/*!konst_11_ENABLE_CHECKING*/ curfrout->tabval[11])), "SIFP_COND");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIFP_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.DCALL__V48*/ curfptr[39]), "SIFP_THEN");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4648:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SIFP_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (4), ((/*nil*/NULL)), "SIFP_ELSE");
-    ;
-    /*_.DCPPIF__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4655:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4655:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4655:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_debug_msg result dcppif";
-      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12];
-      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4655:/ apply.arg");
-      argtab[3].bp_long = 4655;
-      /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DCPPIF__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4655:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4655:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4655:/ cppif.else");
-   /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4656:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.DCPPIF__V50*/ curfptr[49];;
-    MELT_LOCATION("warmelt-macro.melt:4656:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V41*/ curfptr[29] = /*_.RETURN___V54*/ curfptr[52];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_#IS_MIXINT__L10*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.DFILNAM__V42*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V46*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.MAKE_TUPLE5__V47*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.DCALL__V48*/ curfptr[39] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.DCPPIF__V50*/ curfptr[49] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4634:/ clear");
-   /*clear*/ /*_.RETURN___V54*/ curfptr[52] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V41*/ curfptr[29];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.XVAL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.XMSG__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.XCOUNT__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_#NULL__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.IF___V34*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4606:/ clear");
-  /*clear*/ /*_.LET___V41*/ curfptr[29] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4602:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4602:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4602:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_DEBUG_MSG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_104_warmelt_macro_MEXPAND_DEBUG_MSG*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_EXPORT_VALUES", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4663:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4663:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4663:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4663:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4664:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4664:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4664:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4664:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4664:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4664:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4664:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4664)?(4664):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4664:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4664:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4664:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4665:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4665:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4665:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4665:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4665:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4665:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4665:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4665)?(4665):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4665:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4665:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4665:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4666:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4666:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4666:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_export_values sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4666:/ apply.arg");
-    argtab[3].bp_long = 4666;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4666:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4666:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4666:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4667:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4668:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4669:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:4673:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4673:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4673:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4673:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4673:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4671:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4671:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-   MELT_LOCATION("warmelt-macro.melt:4671:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.SYMBTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4681:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4681:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_EXPORT_VALUES");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4681:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4681:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @SEXPORT_NAMES", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.SYMBTUP__V18*/ curfptr[17]), "SEXPORT_NAMES");
-   ;
-   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4685:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4685:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4685:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_export_values result res";
-     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4685:/ apply.arg");
-     argtab[3].bp_long = 4685;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4685:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4685:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4685:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4686:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-macro.melt:4686:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4667:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4663:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4663:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4663:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_EXPORT_VALUES", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_105_warmelt_macro_MEXPAND_EXPORT_VALUES*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4673:/ getarg");
- /*_.S__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4673:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4674:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4674:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4674:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-macro.melt:4674:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-   /*_.SYM__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.S__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_NOT_A__L1*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-macro.melt:4675:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4675:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4675:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4677:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4677:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_export_values bad sym";
-     /*_.DEBUGMSG__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUGMSG*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4678:/ locexp");
-    melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_VALUES <sym>...) expecting symbol"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4676:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4675:/ clear");
-    /*clear*/ /*_.DEBUGMSG__V5*/ curfptr[4] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4674:/ clear");
-  /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4674:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4673:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4673:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4673:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_106_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 38
-  void* varptr[38];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<38; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 38;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_EXPORT_MACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4693:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4693:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4693:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4693:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4694:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4694:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4694:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4694:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4694:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4694:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4694:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4694)?(4694):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4694:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4694:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4694:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4695:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4695:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4695:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4695:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4695:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4695:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4695:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4695)?(4695):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4695:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4695:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4695:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4696:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4696:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4696:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_export_macro sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4696:/ apply.arg");
-    argtab[3].bp_long = 4696;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4696:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4696:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4696:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4697:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4698:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4699:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4701:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4701:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4701:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.SYMB__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.DOC__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_#IS_NOT_A__L4*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:4704:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4704:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4704:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4705:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander>) expecting symbol"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V19*/ curfptr[18] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4706:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[18];;
-  MELT_LOCATION("warmelt-macro.melt:4707:/ block");
-  /*block*/{
-   /*_.PAIR_HEAD__V22*/ curfptr[21] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4707:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-macro.melt:4707:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-    /*_.EXPV__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.PAIR_TAIL__V24*/ curfptr[23] = 
-    (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-   MELT_LOCATION("warmelt-macro.melt:4709:/ compute");
-   /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];;
-   /*_.PAIR_HEAD__V26*/ curfptr[25] = 
-    (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-   /*_#__L5*/ curfnum[4] = 
-    ((/*_.PAIR_HEAD__V26*/ curfptr[25]) == ((/*!konst_5_DOC*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-macro.melt:4710:/ cond");
-   /*cond*/ if (/*_#__L5*/ curfnum[4]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4710:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4710:/ block");
-    /*block*/{
-     /*_.PAIR_TAIL__V28*/ curfptr[27] = 
-      (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-     MELT_LOCATION("warmelt-macro.melt:4712:/ compute");
-     /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V29*/ curfptr[28] = /*_.PAIR_TAIL__V28*/ curfptr[27];;
-     /*_.PAIR_HEAD__V30*/ curfptr[29] = 
-      (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-     MELT_LOCATION("warmelt-macro.melt:4713:/ compute");
-     /*_.DOC__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_HEAD__V30*/ curfptr[29];;
-     MELT_LOCATION("warmelt-macro.melt:4711:/ block");
-     /*block*/{
-      /*_.PROGN___V32*/ curfptr[31] = /*_.SETQ___V31*/ curfptr[30];;}
-     ;
-     /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
-     /*clear*/ /*_.PAIR_TAIL__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
-     /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
-     /*clear*/ /*_.PAIR_HEAD__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
-     /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4710:/ clear");
-     /*clear*/ /*_.PROGN___V32*/ curfptr[31] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-macro.melt:4710:/ cond.else");
-   
-    /*_.IF___V27*/ curfptr[26] = NULL;;
-    }
-   ;
-   /*_#NULL__L6*/ curfnum[5] = 
-    ((/*_.EXPV__V23*/ curfptr[22]) == NULL);;
-   MELT_LOCATION("warmelt-macro.melt:4714:/ cond");
-   /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4714:/ cond.then");
-   MELT_LOCATION("warmelt-macro.melt:4714:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-macro.melt:4715:/ locexp");
-     melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander> [:doc <docum>]) expecting expander"), (melt_ptr_t)0);}
-     ;
-     /*epilog*/}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4716:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4716:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-macro.melt:4716:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[6])), (5), "CLASS_SOURCE_EXPORT_MACRO");/*_.INST__V35*/ curfptr[29] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SEXPMAC_MNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (2), (/*_.SYMB__V17*/ curfptr[16]), "SEXPMAC_MNAME");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SEXPMAC_MVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (3), (/*_.EXPV__V23*/ curfptr[22]), "SEXPMAC_MVAL");
-     ;
-     MELT_LOCATION("warmelt-macro.melt:4716:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @SEXPMAC_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V35*/ curfptr[29])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V35*/ curfptr[29]), (4), (/*_.DOC__V18*/ curfptr[17]), "SEXPMAC_DOC");
-     ;
-     /*_.RES__V34*/ curfptr[28] = /*_.INST__V35*/ curfptr[29];;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-macro.melt:4723:/ cppif.then");
-    MELT_LOCATION("warmelt-macro.melt:4723:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-       callcount;;
-      MELT_LOCATION("warmelt-macro.melt:4723:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
-       argtab[0].bp_cstring =  "mexpand_export_macro result res";
-       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-macro.melt";
-       MELT_LOCATION("warmelt-macro.melt:4723:/ apply.arg");
-       argtab[3].bp_long = 4723;
-       /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V34*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V36*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[31];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-macro.melt:4723:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-macro.melt:4723:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[31] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-macro.melt:4723:/ cppif.else");
-    /*_.IFCPP___V36*/ curfptr[30] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-macro.melt:4724:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V34*/ curfptr[28];;
-     MELT_LOCATION("warmelt-macro.melt:4724:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.LET___V33*/ curfptr[27] = /*_.RETURN___V38*/ curfptr[31];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4716:/ clear");
-    /*clear*/ /*_.RES__V34*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4716:/ clear");
-    /*clear*/ /*_.IFCPP___V36*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4716:/ clear");
-    /*clear*/ /*_.RETURN___V38*/ curfptr[31] = 0 ;}
-   ;
-   /*_.LET___V21*/ curfptr[20] = /*_.LET___V33*/ curfptr[27];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.EXPV__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.PAIR_HEAD__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_#__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4707:/ clear");
-   /*clear*/ /*_.LET___V33*/ curfptr[27] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V21*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.DOC__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4697:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4693:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4693:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4693:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_EXPORT_MACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_107_warmelt_macro_MEXPAND_EXPORT_MACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 45
-  void* varptr[45];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<45; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 45;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_EXPORT_PATMACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4734:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4734:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4734:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4734:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4735:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4735:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4735:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4735:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4735:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4735:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4735:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4735)?(4735):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4735:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4735:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4735:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4736:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4736:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4736:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4736:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4736:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4736:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4736:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4736)?(4736):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4736:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4736:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4736:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4737:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4737:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4737:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_export_patmacro sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4737:/ apply.arg");
-    argtab[3].bp_long = 4737;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4737:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4737:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4737:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4738:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4739:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4740:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4742:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4742:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4742:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.SYMB__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.PATEXPV__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_.MACEXPV__V19*/ curfptr[18] = (/*nil*/NULL);;
-  /*_.DOC__V20*/ curfptr[19] = (/*nil*/NULL);;
-  /*_#IS_NOT_A__L4*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:4747:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4747:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4747:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4748:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting symbol"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V21*/ curfptr[20] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4749:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V22*/ curfptr[21] = /*_.PAIR_TAIL__V21*/ curfptr[20];;
-  /*_.PAIR_HEAD__V23*/ curfptr[22] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4750:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4750:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4750:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4750:/ compute");
-  /*_.PATEXPV__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.MACROEXPAND_1__V24*/ curfptr[23];;
-  /*_#NULL__L5*/ curfnum[4] = 
-   ((/*_.PATEXPV__V18*/ curfptr[17]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4751:/ cond");
-  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4751:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4751:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4752:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting patexpander"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V26*/ curfptr[25] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4753:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];;
-  /*_.PAIR_HEAD__V28*/ curfptr[27] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4754:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4754:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4754:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4754:/ compute");
-  /*_.MACEXPV__V19*/ curfptr[18] = /*_.SETQ___V30*/ curfptr[29] = /*_.MACROEXPAND_1__V29*/ curfptr[28];;
-  /*_#NULL__L6*/ curfnum[5] = 
-   ((/*_.MACEXPV__V19*/ curfptr[18]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4755:/ cond");
-  /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4755:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4755:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4756:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting macexpander"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V31*/ curfptr[30] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4757:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[30];;
-  /*_.PAIR_HEAD__V33*/ curfptr[32] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#__L7*/ curfnum[6] = 
-   ((/*_.PAIR_HEAD__V33*/ curfptr[32]) == ((/*!konst_5_DOC*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-macro.melt:4758:/ cond");
-  /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4758:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4758:/ block");
-   /*block*/{
-    /*_.PAIR_TAIL__V35*/ curfptr[34] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:4760:/ compute");
-    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V36*/ curfptr[35] = /*_.PAIR_TAIL__V35*/ curfptr[34];;
-    /*_.PAIR_HEAD__V37*/ curfptr[36] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:4761:/ compute");
-    /*_.DOC__V20*/ curfptr[19] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_HEAD__V37*/ curfptr[36];;
-    MELT_LOCATION("warmelt-macro.melt:4759:/ block");
-    /*block*/{
-     /*_.PROGN___V39*/ curfptr[38] = /*_.SETQ___V38*/ curfptr[37];;}
-    ;
-    /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V39*/ curfptr[38];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
-    /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
-    /*clear*/ /*_.PAIR_HEAD__V37*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
-    /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4758:/ clear");
-    /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4758:/ cond.else");
-  
-   /*_.IF___V34*/ curfptr[33] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4764:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4764:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4764:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[6])), (6), "CLASS_SOURCE_EXPORT_PATMACRO");/*_.INST__V42*/ curfptr[36] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPMAC_MNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (2), (/*_.SYMB__V17*/ curfptr[16]), "SEXPMAC_MNAME");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPPAT_PVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (5), (/*_.PATEXPV__V18*/ curfptr[17]), "SEXPPAT_PVAL");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPMAC_MVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (3), (/*_.MACEXPV__V19*/ curfptr[18]), "SEXPMAC_MVAL");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4764:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPMAC_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[36]), (4), (/*_.DOC__V20*/ curfptr[19]), "SEXPMAC_DOC");
-    ;
-    /*_.RES__V41*/ curfptr[35] = /*_.INST__V42*/ curfptr[36];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4772:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4772:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4772:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_export_patmacro result res";
-      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4772:/ apply.arg");
-      argtab[3].bp_long = 4772;
-      /*_.DEBUG_MSG_FUN__V44*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V41*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V43*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[38];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4772:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4772:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[38] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4772:/ cppif.else");
-   /*_.IFCPP___V43*/ curfptr[37] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4773:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V41*/ curfptr[35];;
-    MELT_LOCATION("warmelt-macro.melt:4773:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V40*/ curfptr[34] = /*_.RETURN___V45*/ curfptr[38];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4764:/ clear");
-   /*clear*/ /*_.RES__V41*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4764:/ clear");
-   /*clear*/ /*_.IFCPP___V43*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4764:/ clear");
-   /*clear*/ /*_.RETURN___V45*/ curfptr[38] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V40*/ curfptr[34];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PATEXPV__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.MACEXPV__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.DOC__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.SETQ___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4738:/ clear");
-  /*clear*/ /*_.LET___V40*/ curfptr[34] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4734:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4734:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4734:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_EXPORT_PATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_108_warmelt_macro_MEXPAND_EXPORT_PATMACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_EXPORT_CLASS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4780:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4780:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4780:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4780:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4781:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4781:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4781:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4781:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4781:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4781:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4781:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4781)?(4781):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4781:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4781:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4781:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4782:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4782:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4782:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4782:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4782:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4782:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4782:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4782)?(4782):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4782:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4782:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4782:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4783:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4783:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4783:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_export_class sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4783:/ apply.arg");
-    argtab[3].bp_long = 4783;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4783:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4783:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4783:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4784:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4785:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4786:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:4790:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4790:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4790:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4790:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4790:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4788:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4788:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]);
-   MELT_LOCATION("warmelt-macro.melt:4788:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.SYMBTUP__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4796:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4796:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ curfrout->tabval[8])), (3), "CLASS_SOURCE_EXPORT_CLASS");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4796:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4796:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @SEXPORT_NAMES", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.SYMBTUP__V18*/ curfptr[17]), "SEXPORT_NAMES");
-   ;
-   /*_.RES__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4800:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4800:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4800:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_export_class result res";
-     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4800:/ apply.arg");
-     argtab[3].bp_long = 4800;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4800:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4800:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4800:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4801:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-macro.melt:4801:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4784:/ clear");
-  /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4780:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4780:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4780:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_EXPORT_CLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_109_warmelt_macro_MEXPAND_EXPORT_CLASS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_macro_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4790:/ getarg");
- /*_.S__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4790:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-macro.melt:4791:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4791:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4791:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-macro.melt:4791:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]);
-   /*_.SYM__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.S__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_NOT_A__L1*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-macro.melt:4792:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4792:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4792:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4793:/ locexp");
-    melt_error_str((melt_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_CLASS <sym>...) expecting symbol"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4791:/ clear");
-  /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4791:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4790:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-macro.melt:4790:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4790:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_110_warmelt_macro_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 47
-  void* varptr[47];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<47; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 47;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_EXPORT_SYNONYM", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4807:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4807:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4807:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4807:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4808:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4808:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4808:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4808:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4808:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4808:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4808:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4808)?(4808):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4808:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4808:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4808:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4809:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4809:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4809:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4809:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4809:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4809:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4809:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4809)?(4809):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4809:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4809:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4809:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4810:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4810:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4810:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_export_synonym sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4810:/ apply.arg");
-    argtab[3].bp_long = 4810;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4810:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4810:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4810:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4811:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4812:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4813:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.NEWSYMB__V16*/ curfptr[15] = (/*nil*/NULL);;
-  /*_.OLDSYMB__V17*/ curfptr[16] = (/*nil*/NULL);;
-  /*_.DOC__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_.PAIR_HEAD__V19*/ curfptr[18] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4820:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4820:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4820:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4820:/ compute");
-  /*_.NEWSYMB__V16*/ curfptr[15] = /*_.SETQ___V21*/ curfptr[20] = /*_.MACROEXPAND_1__V20*/ curfptr[19];;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4821:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4821:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4821:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpander_export_synonym newsymb";
-     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4821:/ apply.arg");
-     argtab[3].bp_long = 4821;
-     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NEWSYMB__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4821:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4821:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4821:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_NOT_A__L5*/ curfnum[0] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.NEWSYMB__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:4822:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4822:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4822:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4823:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad new name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V24*/ curfptr[22] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4824:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[22];;
-  /*_.PAIR_HEAD__V26*/ curfptr[25] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4826:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4826:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4826:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4826:/ compute");
-  /*_.OLDSYMB__V17*/ curfptr[16] = /*_.SETQ___V28*/ curfptr[27] = /*_.MACROEXPAND_1__V27*/ curfptr[26];;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4827:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4827:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4827:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpander_export_synonym oldsymb";
-     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4827:/ apply.arg");
-     argtab[3].bp_long = 4827;
-     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLDSYMB__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4827:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4827:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4827:/ cppif.else");
-  /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_NOT_A__L7*/ curfnum[5] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.OLDSYMB__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:4828:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4828:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4828:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4829:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad old name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V31*/ curfptr[29] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4830:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[29];;
-  /*_.PAIR_HEAD__V33*/ curfptr[32] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#__L8*/ curfnum[7] = 
-   ((/*_.PAIR_HEAD__V33*/ curfptr[32]) == ((/*!konst_5_DOC*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-macro.melt:4831:/ cond");
-  /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4831:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4831:/ block");
-   /*block*/{
-    /*_.PAIR_TAIL__V35*/ curfptr[34] = 
-     (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:4833:/ compute");
-    /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V36*/ curfptr[35] = /*_.PAIR_TAIL__V35*/ curfptr[34];;
-    /*_.PAIR_HEAD__V37*/ curfptr[36] = 
-     (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-    MELT_LOCATION("warmelt-macro.melt:4834:/ compute");
-    /*_.DOC__V18*/ curfptr[17] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_HEAD__V37*/ curfptr[36];;
-    MELT_LOCATION("warmelt-macro.melt:4832:/ block");
-    /*block*/{
-     /*_.PROGN___V39*/ curfptr[38] = /*_.SETQ___V38*/ curfptr[37];;}
-    ;
-    /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V39*/ curfptr[38];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
-    /*clear*/ /*_.PAIR_TAIL__V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
-    /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
-    /*clear*/ /*_.PAIR_HEAD__V37*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
-    /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4831:/ clear");
-    /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-macro.melt:4831:/ cond.else");
-  
-   /*_.IF___V34*/ curfptr[33] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4836:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4836:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4836:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpander_export_synonym doc";
-     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4836:/ apply.arg");
-     argtab[3].bp_long = 4836;
-     /*_.DEBUG_MSG_FUN__V41*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.DOC__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V40*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4836:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4836:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[35] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4836:/ cppif.else");
-  /*_.IFCPP___V40*/ curfptr[34] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4837:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4838:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4838:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ curfrout->tabval[6])), (5), "CLASS_SOURCE_EXPORT_SYNONYM");/*_.INST__V44*/ curfptr[38] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPSYN_NEWNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (2), (/*_.NEWSYMB__V16*/ curfptr[15]), "SEXPSYN_NEWNAME");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPSYN_OLDNAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (3), (/*_.OLDSYMB__V17*/ curfptr[16]), "SEXPSYN_OLDNAME");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4838:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SEXPSYN_DOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[38])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V44*/ curfptr[38]), (4), (/*_.DOC__V18*/ curfptr[17]), "SEXPSYN_DOC");
-    ;
-    /*_.RES__V43*/ curfptr[37] = /*_.INST__V44*/ curfptr[38];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4844:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4844:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4844:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpander_export_synonym result";
-      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4844:/ apply.arg");
-      argtab[3].bp_long = 4844;
-      /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V43*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V45*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4844:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4844:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4844:/ cppif.else");
-   /*_.IFCPP___V45*/ curfptr[35] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4845:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V43*/ curfptr[37];;
-    MELT_LOCATION("warmelt-macro.melt:4845:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V42*/ curfptr[36] = /*_.RETURN___V47*/ curfptr[45];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4837:/ clear");
-   /*clear*/ /*_.RES__V43*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4837:/ clear");
-   /*clear*/ /*_.IFCPP___V45*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4837:/ clear");
-   /*clear*/ /*_.RETURN___V47*/ curfptr[45] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V42*/ curfptr[36];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.NEWSYMB__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.OLDSYMB__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.DOC__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.SETQ___V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.IFCPP___V40*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4811:/ clear");
-  /*clear*/ /*_.LET___V42*/ curfptr[36] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4807:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4807:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4807:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_EXPORT_SYNONYM", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_111_warmelt_macro_MEXPAND_EXPORT_SYNONYM*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4852:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4852:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4852:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4852:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4853:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4853:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4853:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4853:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4853:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4853:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4853:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4853)?(4853):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4853:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4853:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4853:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4854:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4854:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4854:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4854:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4854:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4854:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4854:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4854)?(4854):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4854:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4854:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4854:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4855:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4855:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4855:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_current_module_environment_container sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4855:/ apply.arg");
-    argtab[3].bp_long = 4855;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4855:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4855:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4855:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4856:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4857:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4858:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:4860:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4860:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[3])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4860:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-   ;
-   /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  /*_#NOTNULL__L4*/ curfnum[0] = 
-   ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4863:/ cond");
-  /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4863:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4863:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4864:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4865:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4865:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4865:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_current_module_environment_container return res";
-     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4865:/ apply.arg");
-     argtab[3].bp_long = 4865;
-     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4865:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4865:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4865:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4866:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
-   MELT_LOCATION("warmelt-macro.melt:4866:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4856:/ clear");
-  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4852:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4852:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4852:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_112_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4875:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4875:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4875:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4875:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4876:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4876:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4876:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4876:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4876:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4876:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4876)?(4876):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4876:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4876:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4877:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4877:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4877:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4877:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4877:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4877:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4877:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4877)?(4877):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4877:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4877:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4877:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4878:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4878:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4878:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_parent_module_environment sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4878:/ apply.arg");
-    argtab[3].bp_long = 4878;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4878:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4878:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4878:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4879:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4880:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4881:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:4883:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4883:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[3])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4883:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-   ;
-   /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  /*_#NOTNULL__L4*/ curfnum[0] = 
-   ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4886:/ cond");
-  /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4886:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4886:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4887:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4888:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4888:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4888:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_parent_module_environment return res";
-     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4888:/ apply.arg");
-     argtab[3].bp_long = 4888;
-     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4888:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4888:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4888:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4889:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
-   MELT_LOCATION("warmelt-macro.melt:4889:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4879:/ clear");
-  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4875:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4875:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4875:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_113_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4898:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4898:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4898:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4898:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4899:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4899:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4899:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4899:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4899:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4899:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4899:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4899)?(4899):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4899:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4899:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4899:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4900:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4900:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4900:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4900:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4900:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4900:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4900:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4900)?(4900):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4900:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4900:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4900:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4901:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4901:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4901:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_update_current_module_environment_container sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4901:/ apply.arg");
-    argtab[3].bp_long = 4901;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4901:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4901:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4901:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4902:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4903:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4904:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V13*/ curfptr[12])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-macro.melt:4906:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4906:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[3])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-macro.melt:4906:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LOC__V12*/ curfptr[11]), "LOCA_LOCATION");
-   ;
-   /*_.RES__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  /*_#NOTNULL__L4*/ curfnum[0] = 
-   ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4909:/ cond");
-  /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4909:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4909:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4910:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-macro.melt:4911:/ cppif.then");
-  MELT_LOCATION("warmelt-macro.melt:4911:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-macro.melt:4911:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
-     argtab[0].bp_cstring =  "mexpand_update_current_module_environment_container return res";
-     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-macro.melt";
-     MELT_LOCATION("warmelt-macro.melt:4911:/ apply.arg");
-     argtab[3].bp_long = 4911;
-     /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4911:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-macro.melt:4911:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-macro.melt:4911:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-macro.melt:4912:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];;
-   MELT_LOCATION("warmelt-macro.melt:4912:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.CONT__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4902:/ clear");
-  /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4898:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4898:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4898:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_114_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 24
-  void* varptr[24];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<24; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 24;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_FETCH_PREDEFINED", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4922:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4922:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4922:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4922:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4923:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4923:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4923:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4923:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4923:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4923:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4923:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4923)?(4923):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4923:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4923:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4923:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4924:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4924:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4924:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4924:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4924:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4924:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4924:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4924)?(4924):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4924:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4924:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4924:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4925:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4925:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4925:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_fetch_predefined sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4925:/ apply.arg");
-    argtab[3].bp_long = 4925;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4925:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4925:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4925:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4926:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4927:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4928:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4930:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4930:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4930:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.SPREDEF__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NULL__L4*/ curfnum[0] = 
-   ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4932:/ cond");
-  /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4932:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4932:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4933:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V18*/ curfptr[17] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#NOTNULL__L5*/ curfnum[4] = 
-   ((/*_.PAIR_TAIL__V18*/ curfptr[17]) != NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4934:/ cond");
-  /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4934:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4934:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4935:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_A__L6*/ curfnum[5] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:4936:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4936:/ cond.then");
-  /*_#OR___L7*/ curfnum[6] = /*_#IS_A__L6*/ curfnum[5];;
-  } else {MELT_LOCATION("warmelt-macro.melt:4936:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:4936:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
-    /*_#OR___L7*/ curfnum[6] = /*_#IS_INTEGERBOX__L8*/ curfnum[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4936:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;}
-   ;
-   }
-  ;
-  /*_#NOT__L9*/ curfnum[7] = 
-   (!(/*_#OR___L7*/ curfnum[6]));;
-  MELT_LOCATION("warmelt-macro.melt:4936:/ cond");
-  /*cond*/ if (/*_#NOT__L9*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4936:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4936:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4937:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4938:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4938:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4938:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[5])), (3), "CLASS_SOURCE_FETCH_PREDEFINED");/*_.INST__V21*/ curfptr[20] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4938:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4938:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SFEPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.SPREDEF__V17*/ curfptr[16]), "SFEPD_PREDEF");
-    ;
-    /*_.RES__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4941:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4941:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4941:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_fetch_predefined result";
-      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
-      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4941:/ apply.arg");
-      argtab[3].bp_long = 4941;
-      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4941:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4941:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4941:/ cppif.else");
-   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4942:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V20*/ curfptr[19];;
-    MELT_LOCATION("warmelt-macro.melt:4942:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V19*/ curfptr[18] = /*_.RETURN___V24*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4938:/ clear");
-   /*clear*/ /*_.RES__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4938:/ clear");
-   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4938:/ clear");
-   /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_#OR___L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_#NOT__L9*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4926:/ clear");
-  /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4922:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4922:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4922:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_FETCH_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_115_warmelt_macro_MEXPAND_FETCH_PREDEFINED*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 30
-  void* varptr[30];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<30; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 30;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MEXPAND_STORE_PREDEFINED", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-macro.melt:4948:/ getarg");
- /*_.SEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-macro.melt:4948:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-macro.melt:4948:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-macro.melt:4948:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4949:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4949:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-macro.melt:4949:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4949:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4949:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4949:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4949:/ locexp");
-      melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4949)?(4949):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4949:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4949:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4949:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4950:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4950:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-macro.melt:4950:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-macro.melt:4950:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-macro.melt:4950:/ cond.else");
-   
-    MELT_LOCATION("warmelt-macro.melt:4950:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-macro.melt:4950:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,
-  (4950)?(4950):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4950:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4950:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4950:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-macro.melt:4951:/ cppif.then");
- MELT_LOCATION("warmelt-macro.melt:4951:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-macro.melt:4951:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
-    argtab[0].bp_cstring =  "mexpand_store_predefined sexpr";
-    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-macro.melt";
-    MELT_LOCATION("warmelt-macro.melt:4951:/ apply.arg");
-    argtab[3].bp_long = 4951;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4951:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4951:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-macro.melt:4951:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-macro.melt:4952:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-macro.melt:4953:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4954:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.LIST_FIRST__V14*/ curfptr[13] = 
-   (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ curfptr[11])));;
-  /*_.CURPAIR__V15*/ curfptr[14] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));;
-  /*_.PAIR_HEAD__V16*/ curfptr[15] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4956:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4956:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4956:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.SPREDEF__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SVAL__V18*/ curfptr[17] = (/*nil*/NULL);;
-  /*_#NULL__L4*/ curfnum[0] = 
-   ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4959:/ cond");
-  /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4959:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4959:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4960:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_TAIL__V19*/ curfptr[18] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4961:/ compute");
-  /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[18];;
-  /*_#NULL__L5*/ curfnum[4] = 
-   ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4962:/ cond");
-  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4962:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4962:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4963:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_.PAIR_HEAD__V21*/ curfptr[20] = 
-   (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  MELT_LOCATION("warmelt-macro.melt:4964:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-macro.melt:4964:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-macro.melt:4964:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3];
-   /*_.MACROEXPAND_1__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_HEAD__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4964:/ compute");
-  /*_.SVAL__V18*/ curfptr[17] = /*_.SETQ___V23*/ curfptr[22] = /*_.MACROEXPAND_1__V22*/ curfptr[21];;
-  /*_.PAIR_TAIL__V24*/ curfptr[23] = 
-   (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));;
-  /*_#NOTNULL__L6*/ curfnum[5] = 
-   ((/*_.PAIR_TAIL__V24*/ curfptr[23]) != NULL);;
-  MELT_LOCATION("warmelt-macro.melt:4965:/ cond");
-  /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4965:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4965:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4966:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_A__L7*/ curfnum[6] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-macro.melt:4967:/ cond");
-  /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4967:/ cond.then");
-  /*_#OR___L8*/ curfnum[7] = /*_#IS_A__L7*/ curfnum[6];;
-  } else {MELT_LOCATION("warmelt-macro.melt:4967:/ cond.else");
-  
-   MELT_LOCATION("warmelt-macro.melt:4967:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
-    /*_#OR___L8*/ curfnum[7] = /*_#IS_INTEGERBOX__L9*/ curfnum[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-macro.melt:4967:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ;}
-   ;
-   }
-  ;
-  /*_#NOT__L10*/ curfnum[8] = 
-   (!(/*_#OR___L8*/ curfnum[7]));;
-  MELT_LOCATION("warmelt-macro.melt:4967:/ cond");
-  /*cond*/ if (/*_#NOT__L10*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-macro.melt:4967:/ cond.then");
-  MELT_LOCATION("warmelt-macro.melt:4967:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-macro.melt:4968:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), (melt_ptr_t)0);}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-macro.melt:4969:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-macro.melt:4969:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-macro.melt:4969:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ curfrout->tabval[5])), (4), "CLASS_SOURCE_STORE_PREDEFINED");/*_.INST__V27*/ curfptr[26] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4969:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4969:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SSTPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SPREDEF__V17*/ curfptr[16]), "SSTPD_PREDEF");
-    ;
-    MELT_LOCATION("warmelt-macro.melt:4969:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SSTPD_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.SVAL__V18*/ curfptr[17]), "SSTPD_VALUE");
-    ;
-    /*_.RES__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-macro.melt:4974:/ cppif.then");
-   MELT_LOCATION("warmelt-macro.melt:4974:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-      callcount;;
-     MELT_LOCATION("warmelt-macro.melt:4974:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
-      argtab[0].bp_cstring =  "mexpand_store_predefined result";
-      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-macro.melt";
-      MELT_LOCATION("warmelt-macro.melt:4974:/ apply.arg");
-      argtab[3].bp_long = 4974;
-      /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-macro.melt:4974:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-macro.melt:4974:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-macro.melt:4974:/ cppif.else");
-   /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-macro.melt:4975:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V26*/ curfptr[25];;
-    MELT_LOCATION("warmelt-macro.melt:4975:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V30*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-macro.melt:4969:/ clear");
-   /*clear*/ /*_.RES__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4969:/ clear");
-   /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-macro.melt:4969:/ clear");
-   /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V25*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.SVAL__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.PAIR_HEAD__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.MACROEXPAND_1__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_#NOT__L10*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-macro.melt:4952:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-macro.melt:4948:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-macro.melt:4948:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-macro.melt:4948:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MEXPAND_STORE_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_116_warmelt_macro_MEXPAND_STORE_PREDEFINED*/
-
-
-
 typedef 
  struct frame_start_module_melt_st { unsigned nbvar;
 #if ENABLE_CHECKING
@@ -56220,7 +27237,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_5__RECV));
   melt_assertmsg("iniobj checkdiscr dobj_7", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_7.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_7.obj_num = 0;
-  cdat->dobj_7.obj_hash = 250961503;
+  cdat->dobj_7.obj_hash = 313572827;
   cdat->dobj_7.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_7));
  
@@ -56233,7 +27250,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_7));
  if (!/*_.VALDATA___V73*/ curfptr[72]) /*_.VALDATA___V73*/ curfptr[72] = (void*)&cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE;
   melt_assertmsg("iniobj checkdiscr dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", NULL != (void*)/*_.CLASS_SELECTOR__V7*/ curfptr[6]);
   cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V7*/ curfptr[6]);
-  cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 896429616;
+  cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 129918812;
   cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE));
  
@@ -56274,7 +27291,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_13__CLASS_SOURCE));
   melt_assertmsg("iniobj checkdiscr dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 452189706;
+  cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 339254966;
   cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_15__CLASS_SOURCE_ARGUMENTED_OPERATOR));
  
@@ -56310,7 +27327,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_19__SARGOP_ARGS));
   melt_assertmsg("iniobj checkdiscr dobj_21__SARGOP_ARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_21__SARGOP_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_21__SARGOP_ARGS.obj_num = 2;
-  cdat->dobj_21__SARGOP_ARGS.obj_hash = 697012256;
+  cdat->dobj_21__SARGOP_ARGS.obj_hash = 113594028;
   cdat->dobj_21__SARGOP_ARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_21__SARGOP_ARGS));
  
@@ -56338,7 +27355,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_23__CLASS_SOURCE_APPLY));
   melt_assertmsg("iniobj checkdiscr dobj_25__CLASS_SOURCE_APPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_25__CLASS_SOURCE_APPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_25__CLASS_SOURCE_APPLY.obj_num = OBMAG_OBJECT;
-  cdat->dobj_25__CLASS_SOURCE_APPLY.obj_hash = 482953852;
+  cdat->dobj_25__CLASS_SOURCE_APPLY.obj_hash = 167261048;
   cdat->dobj_25__CLASS_SOURCE_APPLY.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_25__CLASS_SOURCE_APPLY));
  
@@ -56374,7 +27391,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_29__SAPP_FUN));
   melt_assertmsg("iniobj checkdiscr dobj_31__SAPP_FUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_31__SAPP_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_31__SAPP_FUN.obj_num = 3;
-  cdat->dobj_31__SAPP_FUN.obj_hash = 860783532;
+  cdat->dobj_31__SAPP_FUN.obj_hash = 522578696;
   cdat->dobj_31__SAPP_FUN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_31__SAPP_FUN));
  
@@ -56402,7 +27419,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_33__CLASS_SOURCE_MSEND));
   melt_assertmsg("iniobj checkdiscr dobj_35__CLASS_SOURCE_MSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_35__CLASS_SOURCE_MSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_35__CLASS_SOURCE_MSEND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_35__CLASS_SOURCE_MSEND.obj_hash = 318692462;
+  cdat->dobj_35__CLASS_SOURCE_MSEND.obj_hash = 855990394;
   cdat->dobj_35__CLASS_SOURCE_MSEND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_35__CLASS_SOURCE_MSEND));
  
@@ -56438,7 +27455,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_39__MSEND_SELSYMB));
   melt_assertmsg("iniobj checkdiscr dobj_41__MSEND_SELSYMB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_41__MSEND_SELSYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_41__MSEND_SELSYMB.obj_num = 3;
-  cdat->dobj_41__MSEND_SELSYMB.obj_hash = 444672010;
+  cdat->dobj_41__MSEND_SELSYMB.obj_hash = 852871414;
   cdat->dobj_41__MSEND_SELSYMB.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_41__MSEND_SELSYMB));
  
@@ -56466,7 +27483,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_43__MSEND_RECV));
   melt_assertmsg("iniobj checkdiscr dobj_45__MSEND_RECV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_45__MSEND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_45__MSEND_RECV.obj_num = 4;
-  cdat->dobj_45__MSEND_RECV.obj_hash = 269122295;
+  cdat->dobj_45__MSEND_RECV.obj_hash = 562672579;
   cdat->dobj_45__MSEND_RECV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_45__MSEND_RECV));
  
@@ -56494,7 +27511,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_47__CLASS_SOURCE_PRIMITIV
   melt_assertmsg("iniobj checkdiscr dobj_49__CLASS_SOURCE_PRIMITIVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_hash = 754999658;
+  cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_hash = 124238246;
   cdat->dobj_49__CLASS_SOURCE_PRIMITIVE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_49__CLASS_SOURCE_PRIMITIVE));
  
@@ -56530,7 +27547,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_53__SPRIM_OPER));
   melt_assertmsg("iniobj checkdiscr dobj_55__SPRIM_OPER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_55__SPRIM_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_55__SPRIM_OPER.obj_num = 3;
-  cdat->dobj_55__SPRIM_OPER.obj_hash = 753521813;
+  cdat->dobj_55__SPRIM_OPER.obj_hash = 289365297;
   cdat->dobj_55__SPRIM_OPER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_55__SPRIM_OPER));
  
@@ -56558,7 +27575,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_57__CLASS_SOURCE_CITERATI
   melt_assertmsg("iniobj checkdiscr dobj_59__CLASS_SOURCE_CITERATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_hash = 607654009;
+  cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_hash = 325129925;
   cdat->dobj_59__CLASS_SOURCE_CITERATION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_59__CLASS_SOURCE_CITERATION));
  
@@ -56594,7 +27611,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_63__SCITER_OPER));
   melt_assertmsg("iniobj checkdiscr dobj_65__SCITER_OPER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_65__SCITER_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_65__SCITER_OPER.obj_num = 3;
-  cdat->dobj_65__SCITER_OPER.obj_hash = 427697641;
+  cdat->dobj_65__SCITER_OPER.obj_hash = 403747605;
   cdat->dobj_65__SCITER_OPER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_65__SCITER_OPER));
  
@@ -56622,7 +27639,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_67__SCITER_VARBIND));
   melt_assertmsg("iniobj checkdiscr dobj_69__SCITER_VARBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_69__SCITER_VARBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_69__SCITER_VARBIND.obj_num = 4;
-  cdat->dobj_69__SCITER_VARBIND.obj_hash = 600843095;
+  cdat->dobj_69__SCITER_VARBIND.obj_hash = 670024291;
   cdat->dobj_69__SCITER_VARBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_69__SCITER_VARBIND));
  
@@ -56650,7 +27667,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_71__SCITER_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_73__SCITER_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_73__SCITER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_73__SCITER_BODY.obj_num = 5;
-  cdat->dobj_73__SCITER_BODY.obj_hash = 263069135;
+  cdat->dobj_73__SCITER_BODY.obj_hash = 291295675;
   cdat->dobj_73__SCITER_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_73__SCITER_BODY));
  
@@ -56678,7 +27695,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_75__CLASS_SOURCE_CMATCHEX
   melt_assertmsg("iniobj checkdiscr dobj_77__CLASS_SOURCE_CMATCHEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_hash = 340993493;
+  cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_hash = 164694961;
   cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_77__CLASS_SOURCE_CMATCHEXPR));
  
@@ -56714,7 +27731,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_81__SCMATX_CMATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_83__SCMATX_CMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_83__SCMATX_CMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_83__SCMATX_CMATCHER.obj_num = 3;
-  cdat->dobj_83__SCMATX_CMATCHER.obj_hash = 3903427;
+  cdat->dobj_83__SCMATX_CMATCHER.obj_hash = 1046048511;
   cdat->dobj_83__SCMATX_CMATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_83__SCMATX_CMATCHER));
  
@@ -56742,7 +27759,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_85__CLASS_SOURCE_FUNMATCH
   melt_assertmsg("iniobj checkdiscr dobj_87__CLASS_SOURCE_FUNMATCHEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 212363730;
+  cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 453586750;
   cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_87__CLASS_SOURCE_FUNMATCHEXPR));
  
@@ -56778,7 +27795,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_91__SFMATX_FMATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_93__SFMATX_FMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_93__SFMATX_FMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_93__SFMATX_FMATCHER.obj_num = 3;
-  cdat->dobj_93__SFMATX_FMATCHER.obj_hash = 334387682;
+  cdat->dobj_93__SFMATX_FMATCHER.obj_hash = 970296110;
   cdat->dobj_93__SFMATX_FMATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_93__SFMATX_FMATCHER));
  
@@ -56806,7 +27823,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_95__SFMATX_FMATBIND));
   melt_assertmsg("iniobj checkdiscr dobj_97__SFMATX_FMATBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_97__SFMATX_FMATBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_97__SFMATX_FMATBIND.obj_num = 4;
-  cdat->dobj_97__SFMATX_FMATBIND.obj_hash = 565672648;
+  cdat->dobj_97__SFMATX_FMATBIND.obj_hash = 569879284;
   cdat->dobj_97__SFMATX_FMATBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_97__SFMATX_FMATBIND));
  
@@ -56834,7 +27851,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_99__CLASS_SOURCE_TUPLE));
   melt_assertmsg("iniobj checkdiscr dobj_101__CLASS_SOURCE_TUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_hash = 740357860;
+  cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_hash = 471643648;
   cdat->dobj_101__CLASS_SOURCE_TUPLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_101__CLASS_SOURCE_TUPLE));
  
@@ -56870,7 +27887,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_105__CLASS_SOURCE_LIST));
   melt_assertmsg("iniobj checkdiscr dobj_107__CLASS_SOURCE_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_107__CLASS_SOURCE_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_107__CLASS_SOURCE_LIST.obj_num = OBMAG_OBJECT;
-  cdat->dobj_107__CLASS_SOURCE_LIST.obj_hash = 175608677;
+  cdat->dobj_107__CLASS_SOURCE_LIST.obj_hash = 417276465;
   cdat->dobj_107__CLASS_SOURCE_LIST.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_107__CLASS_SOURCE_LIST));
  
@@ -56906,7 +27923,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_111__CLASS_SOURCE_PROGN))
   melt_assertmsg("iniobj checkdiscr dobj_113__CLASS_SOURCE_PROGN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_113__CLASS_SOURCE_PROGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_113__CLASS_SOURCE_PROGN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_113__CLASS_SOURCE_PROGN.obj_hash = 722862349;
+  cdat->dobj_113__CLASS_SOURCE_PROGN.obj_hash = 328869705;
   cdat->dobj_113__CLASS_SOURCE_PROGN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_113__CLASS_SOURCE_PROGN));
  
@@ -56942,7 +27959,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_117__SPROGN_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_119__SPROGN_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_119__SPROGN_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_119__SPROGN_BODY.obj_num = 2;
-  cdat->dobj_119__SPROGN_BODY.obj_hash = 951005122;
+  cdat->dobj_119__SPROGN_BODY.obj_hash = 115422814;
   cdat->dobj_119__SPROGN_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_119__SPROGN_BODY));
  
@@ -56970,7 +27987,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_121__CLASS_SOURCE_RETURN)
   melt_assertmsg("iniobj checkdiscr dobj_123__CLASS_SOURCE_RETURN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_123__CLASS_SOURCE_RETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_123__CLASS_SOURCE_RETURN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_123__CLASS_SOURCE_RETURN.obj_hash = 1065076316;
+  cdat->dobj_123__CLASS_SOURCE_RETURN.obj_hash = 67232424;
   cdat->dobj_123__CLASS_SOURCE_RETURN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_123__CLASS_SOURCE_RETURN));
  
@@ -57006,7 +28023,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_127__CLASS_SOURCE_SETQ));
   melt_assertmsg("iniobj checkdiscr dobj_129__CLASS_SOURCE_SETQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_129__CLASS_SOURCE_SETQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_129__CLASS_SOURCE_SETQ.obj_num = OBMAG_OBJECT;
-  cdat->dobj_129__CLASS_SOURCE_SETQ.obj_hash = 17946176;
+  cdat->dobj_129__CLASS_SOURCE_SETQ.obj_hash = 411437052;
   cdat->dobj_129__CLASS_SOURCE_SETQ.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_129__CLASS_SOURCE_SETQ));
  
@@ -57042,7 +28059,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_133__SSTQ_VAR));
   melt_assertmsg("iniobj checkdiscr dobj_135__SSTQ_VAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_135__SSTQ_VAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_135__SSTQ_VAR.obj_num = 2;
-  cdat->dobj_135__SSTQ_VAR.obj_hash = 874936816;
+  cdat->dobj_135__SSTQ_VAR.obj_hash = 859846668;
   cdat->dobj_135__SSTQ_VAR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_135__SSTQ_VAR));
  
@@ -57070,7 +28087,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_137__SSTQ_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_139__SSTQ_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_139__SSTQ_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_139__SSTQ_EXPR.obj_num = 3;
-  cdat->dobj_139__SSTQ_EXPR.obj_hash = 797935044;
+  cdat->dobj_139__SSTQ_EXPR.obj_hash = 218863424;
   cdat->dobj_139__SSTQ_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_139__SSTQ_EXPR));
  
@@ -57098,7 +28115,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_141__CLASS_SOURCE_COMMENT
   melt_assertmsg("iniobj checkdiscr dobj_143__CLASS_SOURCE_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_hash = 1067473695;
+  cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_hash = 278112203;
   cdat->dobj_143__CLASS_SOURCE_COMMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_143__CLASS_SOURCE_COMMENT));
  
@@ -57134,7 +28151,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_147__SCOMM_STR));
   melt_assertmsg("iniobj checkdiscr dobj_149__SCOMM_STR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_149__SCOMM_STR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_149__SCOMM_STR.obj_num = 2;
-  cdat->dobj_149__SCOMM_STR.obj_hash = 260009816;
+  cdat->dobj_149__SCOMM_STR.obj_hash = 885561828;
   cdat->dobj_149__SCOMM_STR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_149__SCOMM_STR));
  
@@ -57162,7 +28179,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_151__CLASS_SOURCE_QUOTE))
   melt_assertmsg("iniobj checkdiscr dobj_153__CLASS_SOURCE_QUOTE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_hash = 615763626;
+  cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_hash = 192549798;
   cdat->dobj_153__CLASS_SOURCE_QUOTE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_153__CLASS_SOURCE_QUOTE));
  
@@ -57198,7 +28215,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_157__SQUOTED));
   melt_assertmsg("iniobj checkdiscr dobj_159__SQUOTED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_159__SQUOTED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_159__SQUOTED.obj_num = 2;
-  cdat->dobj_159__SQUOTED.obj_hash = 1042437059;
+  cdat->dobj_159__SQUOTED.obj_hash = 849770271;
   cdat->dobj_159__SQUOTED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_159__SQUOTED));
  
@@ -57226,7 +28243,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_161__CLASS_SOURCE_EXPORTC
   melt_assertmsg("iniobj checkdiscr dobj_163__CLASS_SOURCE_EXPORTCOMMON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_num = OBMAG_OBJECT;
-  cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 260423459;
+  cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 698167087;
   cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_163__CLASS_SOURCE_EXPORTCOMMON));
  
@@ -57262,7 +28279,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_167__SEXPORT_NAMES));
   melt_assertmsg("iniobj checkdiscr dobj_169__SEXPORT_NAMES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_169__SEXPORT_NAMES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_169__SEXPORT_NAMES.obj_num = 2;
-  cdat->dobj_169__SEXPORT_NAMES.obj_hash = 783602722;
+  cdat->dobj_169__SEXPORT_NAMES.obj_hash = 20070670;
   cdat->dobj_169__SEXPORT_NAMES.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_169__SEXPORT_NAMES));
  
@@ -57290,7 +28307,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_171__CLASS_SOURCE_EXPORT_
   melt_assertmsg("iniobj checkdiscr dobj_173__CLASS_SOURCE_EXPORT_VALUES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_num = OBMAG_OBJECT;
-  cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 491849187;
+  cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 882620607;
   cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_173__CLASS_SOURCE_EXPORT_VALUES));
  
@@ -57326,7 +28343,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__CLASS_SOURCE_EXPORT_
   melt_assertmsg("iniobj checkdiscr dobj_179__CLASS_SOURCE_EXPORT_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 102200396;
+  cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 393239000;
   cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_179__CLASS_SOURCE_EXPORT_CLASS));
  
@@ -57362,7 +28379,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_183__CLASS_SOURCE_EXPORT_
   melt_assertmsg("iniobj checkdiscr dobj_185__CLASS_SOURCE_EXPORT_MACRO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_num = OBMAG_OBJECT;
-  cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 144870677;
+  cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 800327953;
   cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_185__CLASS_SOURCE_EXPORT_MACRO));
  
@@ -57398,7 +28415,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_189__SEXPMAC_MNAME));
   melt_assertmsg("iniobj checkdiscr dobj_191__SEXPMAC_MNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_191__SEXPMAC_MNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_191__SEXPMAC_MNAME.obj_num = 2;
-  cdat->dobj_191__SEXPMAC_MNAME.obj_hash = 77588897;
+  cdat->dobj_191__SEXPMAC_MNAME.obj_hash = 673422333;
   cdat->dobj_191__SEXPMAC_MNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_191__SEXPMAC_MNAME));
  
@@ -57426,7 +28443,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_193__SEXPMAC_MVAL));
   melt_assertmsg("iniobj checkdiscr dobj_195__SEXPMAC_MVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_195__SEXPMAC_MVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_195__SEXPMAC_MVAL.obj_num = 3;
-  cdat->dobj_195__SEXPMAC_MVAL.obj_hash = 297021792;
+  cdat->dobj_195__SEXPMAC_MVAL.obj_hash = 439349532;
   cdat->dobj_195__SEXPMAC_MVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_195__SEXPMAC_MVAL));
  
@@ -57454,7 +28471,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_197__SEXPMAC_DOC));
   melt_assertmsg("iniobj checkdiscr dobj_199__SEXPMAC_DOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_199__SEXPMAC_DOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_199__SEXPMAC_DOC.obj_num = 4;
-  cdat->dobj_199__SEXPMAC_DOC.obj_hash = 161307939;
+  cdat->dobj_199__SEXPMAC_DOC.obj_hash = 811358527;
   cdat->dobj_199__SEXPMAC_DOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_199__SEXPMAC_DOC));
  
@@ -57482,7 +28499,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_201__CLASS_SOURCE_EXPORT_
   melt_assertmsg("iniobj checkdiscr dobj_203__CLASS_SOURCE_EXPORT_PATMACRO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = OBMAG_OBJECT;
-  cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 798710377;
+  cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 314640949;
   cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_203__CLASS_SOURCE_EXPORT_PATMACRO));
  
@@ -57518,7 +28535,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_207__SEXPPAT_PVAL));
   melt_assertmsg("iniobj checkdiscr dobj_209__SEXPPAT_PVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_209__SEXPPAT_PVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_209__SEXPPAT_PVAL.obj_num = 5;
-  cdat->dobj_209__SEXPPAT_PVAL.obj_hash = 908676938;
+  cdat->dobj_209__SEXPPAT_PVAL.obj_hash = 905732598;
   cdat->dobj_209__SEXPPAT_PVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_209__SEXPPAT_PVAL));
  
@@ -57546,7 +28563,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_211__CLASS_SOURCE_EXPORT_
   melt_assertmsg("iniobj checkdiscr dobj_213__CLASS_SOURCE_EXPORT_SYNONYM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = OBMAG_OBJECT;
-  cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 853533924;
+  cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 606062720;
   cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_213__CLASS_SOURCE_EXPORT_SYNONYM));
  
@@ -57582,7 +28599,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_217__SEXPSYN_NEWNAME));
   melt_assertmsg("iniobj checkdiscr dobj_219__SEXPSYN_NEWNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_219__SEXPSYN_NEWNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_219__SEXPSYN_NEWNAME.obj_num = 2;
-  cdat->dobj_219__SEXPSYN_NEWNAME.obj_hash = 381995209;
+  cdat->dobj_219__SEXPSYN_NEWNAME.obj_hash = 324877253;
   cdat->dobj_219__SEXPSYN_NEWNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_219__SEXPSYN_NEWNAME));
  
@@ -57610,7 +28627,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_221__SEXPSYN_OLDNAME));
   melt_assertmsg("iniobj checkdiscr dobj_223__SEXPSYN_OLDNAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_223__SEXPSYN_OLDNAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_223__SEXPSYN_OLDNAME.obj_num = 3;
-  cdat->dobj_223__SEXPSYN_OLDNAME.obj_hash = 68913377;
+  cdat->dobj_223__SEXPSYN_OLDNAME.obj_hash = 564169277;
   cdat->dobj_223__SEXPSYN_OLDNAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_223__SEXPSYN_OLDNAME));
  
@@ -57638,7 +28655,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_225__SEXPSYN_DOC));
   melt_assertmsg("iniobj checkdiscr dobj_227__SEXPSYN_DOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_227__SEXPSYN_DOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_227__SEXPSYN_DOC.obj_num = 4;
-  cdat->dobj_227__SEXPSYN_DOC.obj_hash = 417517436;
+  cdat->dobj_227__SEXPSYN_DOC.obj_hash = 419296824;
   cdat->dobj_227__SEXPSYN_DOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_227__SEXPSYN_DOC));
  
@@ -57666,7 +28683,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_229__CLASS_SOURCE_DEFINIT
   melt_assertmsg("iniobj checkdiscr dobj_231__CLASS_SOURCE_DEFINITION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_hash = 790576251;
+  cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_hash = 458329959;
   cdat->dobj_231__CLASS_SOURCE_DEFINITION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_231__CLASS_SOURCE_DEFINITION));
  
@@ -57702,7 +28719,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_235__SDEF_NAME));
   melt_assertmsg("iniobj checkdiscr dobj_237__SDEF_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_237__SDEF_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_237__SDEF_NAME.obj_num = 2;
-  cdat->dobj_237__SDEF_NAME.obj_hash = 986136391;
+  cdat->dobj_237__SDEF_NAME.obj_hash = 455637523;
   cdat->dobj_237__SDEF_NAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_237__SDEF_NAME));
  
@@ -57730,7 +28747,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_239__SDEF_DOC));
   melt_assertmsg("iniobj checkdiscr dobj_241__SDEF_DOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_241__SDEF_DOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_241__SDEF_DOC.obj_num = 3;
-  cdat->dobj_241__SDEF_DOC.obj_hash = 2937143;
+  cdat->dobj_241__SDEF_DOC.obj_hash = 282715875;
   cdat->dobj_241__SDEF_DOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_241__SDEF_DOC));
  
@@ -57758,7 +28775,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_243__CLASS_SOURCE_DEFINIT
   melt_assertmsg("iniobj checkdiscr dobj_245__CLASS_SOURCE_DEFINITION_FORMAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 417024288;
+  cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 1015761852;
   cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_245__CLASS_SOURCE_DEFINITION_FORMAL));
  
@@ -57794,7 +28811,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_249__SFORMAL_ARGS));
   melt_assertmsg("iniobj checkdiscr dobj_251__SFORMAL_ARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_251__SFORMAL_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_251__SFORMAL_ARGS.obj_num = 4;
-  cdat->dobj_251__SFORMAL_ARGS.obj_hash = 1062408377;
+  cdat->dobj_251__SFORMAL_ARGS.obj_hash = 756955829;
   cdat->dobj_251__SFORMAL_ARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_251__SFORMAL_ARGS));
  
@@ -57822,7 +28839,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_253__CLASS_SOURCE_DEFUN))
   melt_assertmsg("iniobj checkdiscr dobj_255__CLASS_SOURCE_DEFUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_hash = 274023252;
+  cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_hash = 754377344;
   cdat->dobj_255__CLASS_SOURCE_DEFUN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_255__CLASS_SOURCE_DEFUN));
  
@@ -57858,7 +28875,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_259__SFUN_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_261__SFUN_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_261__SFUN_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_261__SFUN_BODY.obj_num = 5;
-  cdat->dobj_261__SFUN_BODY.obj_hash = 306853418;
+  cdat->dobj_261__SFUN_BODY.obj_hash = 21772086;
   cdat->dobj_261__SFUN_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_261__SFUN_BODY));
  
@@ -57886,7 +28903,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_263__CLASS_SOURCE_DEFPRIM
   melt_assertmsg("iniobj checkdiscr dobj_265__CLASS_SOURCE_DEFPRIMITIVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 971161520;
+  cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 630369580;
   cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_265__CLASS_SOURCE_DEFPRIMITIVE));
  
@@ -57922,7 +28939,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_269__SPRIM_TYPE));
   melt_assertmsg("iniobj checkdiscr dobj_271__SPRIM_TYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_271__SPRIM_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_271__SPRIM_TYPE.obj_num = 5;
-  cdat->dobj_271__SPRIM_TYPE.obj_hash = 343677039;
+  cdat->dobj_271__SPRIM_TYPE.obj_hash = 493574219;
   cdat->dobj_271__SPRIM_TYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_271__SPRIM_TYPE));
  
@@ -57950,7 +28967,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_273__SPRIM_EXPANSION));
   melt_assertmsg("iniobj checkdiscr dobj_275__SPRIM_EXPANSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_275__SPRIM_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_275__SPRIM_EXPANSION.obj_num = 6;
-  cdat->dobj_275__SPRIM_EXPANSION.obj_hash = 641421489;
+  cdat->dobj_275__SPRIM_EXPANSION.obj_hash = 190519789;
   cdat->dobj_275__SPRIM_EXPANSION.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_275__SPRIM_EXPANSION));
  
@@ -57978,7 +28995,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_277__CLASS_SOURCE_DEFCITE
   melt_assertmsg("iniobj checkdiscr dobj_279__CLASS_SOURCE_DEFCITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_hash = 614950547;
+  cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_hash = 579509759;
   cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_279__CLASS_SOURCE_DEFCITERATOR));
  
@@ -58014,7 +29031,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_283__SCITERDEF_CITERATOR)
   melt_assertmsg("iniobj checkdiscr dobj_285__SCITERDEF_CITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_285__SCITERDEF_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_285__SCITERDEF_CITERATOR.obj_num = 5;
-  cdat->dobj_285__SCITERDEF_CITERATOR.obj_hash = 4541932;
+  cdat->dobj_285__SCITERDEF_CITERATOR.obj_hash = 992035128;
   cdat->dobj_285__SCITERDEF_CITERATOR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_285__SCITERDEF_CITERATOR));
  
@@ -58042,7 +29059,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_287__CLASS_SOURCE_DEFCMAT
   melt_assertmsg("iniobj checkdiscr dobj_289__CLASS_SOURCE_DEFCMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_hash = 357083177;
+  cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_hash = 906616037;
   cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_289__CLASS_SOURCE_DEFCMATCHER));
  
@@ -58078,7 +29095,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_293__SCMATDEF_CMATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_295__SCMATDEF_CMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_295__SCMATDEF_CMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_295__SCMATDEF_CMATCHER.obj_num = 5;
-  cdat->dobj_295__SCMATDEF_CMATCHER.obj_hash = 475594800;
+  cdat->dobj_295__SCMATDEF_CMATCHER.obj_hash = 237435212;
   cdat->dobj_295__SCMATDEF_CMATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_295__SCMATDEF_CMATCHER));
  
@@ -58106,7 +29123,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_297__CLASS_SOURCE_DEFUNMA
   melt_assertmsg("iniobj checkdiscr dobj_299__CLASS_SOURCE_DEFUNMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 292917029;
+  cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 568860657;
   cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_299__CLASS_SOURCE_DEFUNMATCHER));
  
@@ -58142,7 +29159,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_303__SFUMATDEF_INS));
   melt_assertmsg("iniobj checkdiscr dobj_305__SFUMATDEF_INS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_305__SFUMATDEF_INS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_305__SFUMATDEF_INS.obj_num = 5;
-  cdat->dobj_305__SFUMATDEF_INS.obj_hash = 144795913;
+  cdat->dobj_305__SFUMATDEF_INS.obj_hash = 1036436661;
   cdat->dobj_305__SFUMATDEF_INS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_305__SFUMATDEF_INS));
  
@@ -58170,7 +29187,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_307__SFUMATDEF_OUTS));
   melt_assertmsg("iniobj checkdiscr dobj_309__SFUMATDEF_OUTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_309__SFUMATDEF_OUTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_309__SFUMATDEF_OUTS.obj_num = 6;
-  cdat->dobj_309__SFUMATDEF_OUTS.obj_hash = 1010748872;
+  cdat->dobj_309__SFUMATDEF_OUTS.obj_hash = 245768020;
   cdat->dobj_309__SFUMATDEF_OUTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_309__SFUMATDEF_OUTS));
  
@@ -58198,7 +29215,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_311__SFUMATDEF_MATCHF));
   melt_assertmsg("iniobj checkdiscr dobj_313__SFUMATDEF_MATCHF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_313__SFUMATDEF_MATCHF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_313__SFUMATDEF_MATCHF.obj_num = 7;
-  cdat->dobj_313__SFUMATDEF_MATCHF.obj_hash = 658950918;
+  cdat->dobj_313__SFUMATDEF_MATCHF.obj_hash = 22459762;
   cdat->dobj_313__SFUMATDEF_MATCHF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_313__SFUMATDEF_MATCHF));
  
@@ -58226,7 +29243,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_315__SFUMATDEF_APPLYF));
   melt_assertmsg("iniobj checkdiscr dobj_317__SFUMATDEF_APPLYF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_317__SFUMATDEF_APPLYF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_317__SFUMATDEF_APPLYF.obj_num = 8;
-  cdat->dobj_317__SFUMATDEF_APPLYF.obj_hash = 20428461;
+  cdat->dobj_317__SFUMATDEF_APPLYF.obj_hash = 694621433;
   cdat->dobj_317__SFUMATDEF_APPLYF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_317__SFUMATDEF_APPLYF));
  
@@ -58254,7 +29271,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_319__SFUMATDEF_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_321__SFUMATDEF_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_321__SFUMATDEF_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_321__SFUMATDEF_DATA.obj_num = 9;
-  cdat->dobj_321__SFUMATDEF_DATA.obj_hash = 381227568;
+  cdat->dobj_321__SFUMATDEF_DATA.obj_hash = 945141596;
   cdat->dobj_321__SFUMATDEF_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_321__SFUMATDEF_DATA));
  
@@ -58282,7 +29299,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_323__CLASS_SOURCE_DEFOBJC
   melt_assertmsg("iniobj checkdiscr dobj_325__CLASS_SOURCE_DEFOBJCOMMON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_num = OBMAG_OBJECT;
-  cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 989686069;
+  cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 485220689;
   cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_325__CLASS_SOURCE_DEFOBJCOMMON));
  
@@ -58318,7 +29335,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_329__SOBJ_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_331__SOBJ_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_331__SOBJ_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_331__SOBJ_PREDEF.obj_num = 4;
-  cdat->dobj_331__SOBJ_PREDEF.obj_hash = 507739281;
+  cdat->dobj_331__SOBJ_PREDEF.obj_hash = 339990541;
   cdat->dobj_331__SOBJ_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_331__SOBJ_PREDEF));
  
@@ -58346,7 +29363,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_333__CLASS_SOURCE_DEFCLAS
   melt_assertmsg("iniobj checkdiscr dobj_335__CLASS_SOURCE_DEFCLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_hash = 238902145;
+  cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_hash = 560003629;
   cdat->dobj_335__CLASS_SOURCE_DEFCLASS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_335__CLASS_SOURCE_DEFCLASS));
  
@@ -58382,7 +29399,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_339__SCLASS_CLABIND));
   melt_assertmsg("iniobj checkdiscr dobj_341__SCLASS_CLABIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_341__SCLASS_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_341__SCLASS_CLABIND.obj_num = 5;
-  cdat->dobj_341__SCLASS_CLABIND.obj_hash = 915899962;
+  cdat->dobj_341__SCLASS_CLABIND.obj_hash = 619074246;
   cdat->dobj_341__SCLASS_CLABIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_341__SCLASS_CLABIND));
  
@@ -58410,7 +29427,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_343__SCLASS_SUPERBIND));
   melt_assertmsg("iniobj checkdiscr dobj_345__SCLASS_SUPERBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_345__SCLASS_SUPERBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_345__SCLASS_SUPERBIND.obj_num = 6;
-  cdat->dobj_345__SCLASS_SUPERBIND.obj_hash = 155226302;
+  cdat->dobj_345__SCLASS_SUPERBIND.obj_hash = 1044010;
   cdat->dobj_345__SCLASS_SUPERBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_345__SCLASS_SUPERBIND));
  
@@ -58438,7 +29455,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_347__SCLASS_FLDBINDS));
   melt_assertmsg("iniobj checkdiscr dobj_349__SCLASS_FLDBINDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_349__SCLASS_FLDBINDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_349__SCLASS_FLDBINDS.obj_num = 7;
-  cdat->dobj_349__SCLASS_FLDBINDS.obj_hash = 653688395;
+  cdat->dobj_349__SCLASS_FLDBINDS.obj_hash = 875169687;
   cdat->dobj_349__SCLASS_FLDBINDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_349__SCLASS_FLDBINDS));
  
@@ -58466,7 +29483,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_351__CLASS_SOURCE_DEFINST
   melt_assertmsg("iniobj checkdiscr dobj_353__CLASS_SOURCE_DEFINSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_hash = 883384586;
+  cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_hash = 942515142;
   cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_353__CLASS_SOURCE_DEFINSTANCE));
  
@@ -58502,7 +29519,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_357__SINST_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_359__SINST_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__SINST_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__SINST_CLASS.obj_num = 5;
-  cdat->dobj_359__SINST_CLASS.obj_hash = 1066360437;
+  cdat->dobj_359__SINST_CLASS.obj_hash = 649860497;
   cdat->dobj_359__SINST_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_359__SINST_CLASS));
  
@@ -58530,7 +29547,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_361__SINST_CLABIND));
   melt_assertmsg("iniobj checkdiscr dobj_363__SINST_CLABIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_363__SINST_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_363__SINST_CLABIND.obj_num = 6;
-  cdat->dobj_363__SINST_CLABIND.obj_hash = 618400930;
+  cdat->dobj_363__SINST_CLABIND.obj_hash = 265961246;
   cdat->dobj_363__SINST_CLABIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_363__SINST_CLABIND));
  
@@ -58558,7 +29575,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_365__SINST_OBJNUM));
   melt_assertmsg("iniobj checkdiscr dobj_367__SINST_OBJNUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_367__SINST_OBJNUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_367__SINST_OBJNUM.obj_num = 7;
-  cdat->dobj_367__SINST_OBJNUM.obj_hash = 901328770;
+  cdat->dobj_367__SINST_OBJNUM.obj_hash = 611630174;
   cdat->dobj_367__SINST_OBJNUM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_367__SINST_OBJNUM));
  
@@ -58586,7 +29603,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_369__SINST_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_371__SINST_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_371__SINST_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_371__SINST_FIELDS.obj_num = 8;
-  cdat->dobj_371__SINST_FIELDS.obj_hash = 1009241491;
+  cdat->dobj_371__SINST_FIELDS.obj_hash = 1024797647;
   cdat->dobj_371__SINST_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_371__SINST_FIELDS));
  
@@ -58614,7 +29631,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_373__CLASS_SOURCE_DEFSELE
   melt_assertmsg("iniobj checkdiscr dobj_375__CLASS_SOURCE_DEFSELECTOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_hash = 55041182;
+  cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_hash = 563703050;
   cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_375__CLASS_SOURCE_DEFSELECTOR));
  
@@ -58650,7 +29667,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_379__SDEFSEL_FORMALS));
   melt_assertmsg("iniobj checkdiscr dobj_381__SDEFSEL_FORMALS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_381__SDEFSEL_FORMALS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_381__SDEFSEL_FORMALS.obj_num = 9;
-  cdat->dobj_381__SDEFSEL_FORMALS.obj_hash = 157064877;
+  cdat->dobj_381__SDEFSEL_FORMALS.obj_hash = 16061177;
   cdat->dobj_381__SDEFSEL_FORMALS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_381__SDEFSEL_FORMALS));
  
@@ -58678,7 +29695,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_383__CLASS_SOURCE_FIELDAS
   melt_assertmsg("iniobj checkdiscr dobj_385__CLASS_SOURCE_FIELDASSIGN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_hash = 991558686;
+  cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_hash = 702965210;
   cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_385__CLASS_SOURCE_FIELDASSIGN));
  
@@ -58714,7 +29731,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_389__SFLA_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_391__SFLA_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_391__SFLA_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_391__SFLA_FIELD.obj_num = 2;
-  cdat->dobj_391__SFLA_FIELD.obj_hash = 198953948;
+  cdat->dobj_391__SFLA_FIELD.obj_hash = 273973752;
   cdat->dobj_391__SFLA_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_391__SFLA_FIELD));
  
@@ -58742,7 +29759,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_393__SFLA_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_395__SFLA_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_395__SFLA_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_395__SFLA_EXPR.obj_num = 3;
-  cdat->dobj_395__SFLA_EXPR.obj_hash = 842411028;
+  cdat->dobj_395__SFLA_EXPR.obj_hash = 961934736;
   cdat->dobj_395__SFLA_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_395__SFLA_EXPR));
  
@@ -58770,7 +29787,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_397__CLASS_SOURCE_INSTANC
   melt_assertmsg("iniobj checkdiscr dobj_399__CLASS_SOURCE_INSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_hash = 219494455;
+  cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_hash = 396991715;
   cdat->dobj_399__CLASS_SOURCE_INSTANCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_399__CLASS_SOURCE_INSTANCE));
  
@@ -58806,7 +29823,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_403__SMINS_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_405__SMINS_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_405__SMINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_405__SMINS_CLASS.obj_num = 2;
-  cdat->dobj_405__SMINS_CLASS.obj_hash = 134775215;
+  cdat->dobj_405__SMINS_CLASS.obj_hash = 458523707;
   cdat->dobj_405__SMINS_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_405__SMINS_CLASS));
  
@@ -58834,7 +29851,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_407__SMINS_CLABIND));
   melt_assertmsg("iniobj checkdiscr dobj_409__SMINS_CLABIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_409__SMINS_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_409__SMINS_CLABIND.obj_num = 3;
-  cdat->dobj_409__SMINS_CLABIND.obj_hash = 130339113;
+  cdat->dobj_409__SMINS_CLABIND.obj_hash = 244012181;
   cdat->dobj_409__SMINS_CLABIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_409__SMINS_CLABIND));
  
@@ -58862,7 +29879,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_411__SMINS_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_413__SMINS_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_413__SMINS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_413__SMINS_FIELDS.obj_num = 4;
-  cdat->dobj_413__SMINS_FIELDS.obj_hash = 426334297;
+  cdat->dobj_413__SMINS_FIELDS.obj_hash = 444037029;
   cdat->dobj_413__SMINS_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_413__SMINS_FIELDS));
  
@@ -58890,7 +29907,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_415__CLASS_SOURCE_GET_FIE
   melt_assertmsg("iniobj checkdiscr dobj_417__CLASS_SOURCE_GET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_hash = 456965473;
+  cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_hash = 1059524125;
   cdat->dobj_417__CLASS_SOURCE_GET_FIELD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_417__CLASS_SOURCE_GET_FIELD));
  
@@ -58926,7 +29943,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_421__SUGET_OBJ));
   melt_assertmsg("iniobj checkdiscr dobj_423__SUGET_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_423__SUGET_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_423__SUGET_OBJ.obj_num = 2;
-  cdat->dobj_423__SUGET_OBJ.obj_hash = 636252534;
+  cdat->dobj_423__SUGET_OBJ.obj_hash = 1051649682;
   cdat->dobj_423__SUGET_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_423__SUGET_OBJ));
  
@@ -58954,7 +29971,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_425__SUGET_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_427__SUGET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_427__SUGET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_427__SUGET_FIELD.obj_num = 3;
-  cdat->dobj_427__SUGET_FIELD.obj_hash = 813833479;
+  cdat->dobj_427__SUGET_FIELD.obj_hash = 190266755;
   cdat->dobj_427__SUGET_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_427__SUGET_FIELD));
  
@@ -58982,7 +29999,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_429__CLASS_SOURCE_UNSAFE_
   melt_assertmsg("iniobj checkdiscr dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 648273097;
+  cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 487244917;
   cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_431__CLASS_SOURCE_UNSAFE_GET_FIELD));
  
@@ -59018,7 +30035,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_435__CLASS_SOURCE_PUT_FIE
   melt_assertmsg("iniobj checkdiscr dobj_437__CLASS_SOURCE_PUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_hash = 697624980;
+  cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_hash = 846095920;
   cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_437__CLASS_SOURCE_PUT_FIELDS));
  
@@ -59054,7 +30071,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_441__SUPUT_OBJ));
   melt_assertmsg("iniobj checkdiscr dobj_443__SUPUT_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_443__SUPUT_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_443__SUPUT_OBJ.obj_num = 2;
-  cdat->dobj_443__SUPUT_OBJ.obj_hash = 841304962;
+  cdat->dobj_443__SUPUT_OBJ.obj_hash = 1018658686;
   cdat->dobj_443__SUPUT_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_443__SUPUT_OBJ));
  
@@ -59082,7 +30099,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_445__SUPUT_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_447__SUPUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_447__SUPUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_447__SUPUT_FIELDS.obj_num = 3;
-  cdat->dobj_447__SUPUT_FIELDS.obj_hash = 448651299;
+  cdat->dobj_447__SUPUT_FIELDS.obj_hash = 356321919;
   cdat->dobj_447__SUPUT_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_447__SUPUT_FIELDS));
  
@@ -59110,7 +30127,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_449__CLASS_SOURCE_UNSAFE_
   melt_assertmsg("iniobj checkdiscr dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 285349286;
+  cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 485587122;
   cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_451__CLASS_SOURCE_UNSAFE_PUT_FIELDS));
  
@@ -59146,7 +30163,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_455__CLASS_SOURCE_IF));
   melt_assertmsg("iniobj checkdiscr dobj_457__CLASS_SOURCE_IF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_457__CLASS_SOURCE_IF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_457__CLASS_SOURCE_IF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_457__CLASS_SOURCE_IF.obj_hash = 490662588;
+  cdat->dobj_457__CLASS_SOURCE_IF.obj_hash = 265101880;
   cdat->dobj_457__CLASS_SOURCE_IF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_457__CLASS_SOURCE_IF));
  
@@ -59182,7 +30199,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_461__SIF_TEST));
   melt_assertmsg("iniobj checkdiscr dobj_463__SIF_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_463__SIF_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_463__SIF_TEST.obj_num = 2;
-  cdat->dobj_463__SIF_TEST.obj_hash = 562505031;
+  cdat->dobj_463__SIF_TEST.obj_hash = 713473827;
   cdat->dobj_463__SIF_TEST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_463__SIF_TEST));
  
@@ -59210,7 +30227,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_465__SIF_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_467__SIF_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_467__SIF_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_467__SIF_THEN.obj_num = 3;
-  cdat->dobj_467__SIF_THEN.obj_hash = 5852771;
+  cdat->dobj_467__SIF_THEN.obj_hash = 263324063;
   cdat->dobj_467__SIF_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_467__SIF_THEN));
  
@@ -59238,7 +30255,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_469__CLASS_SOURCE_IFELSE)
   melt_assertmsg("iniobj checkdiscr dobj_471__CLASS_SOURCE_IFELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_hash = 883106409;
+  cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_hash = 65784789;
   cdat->dobj_471__CLASS_SOURCE_IFELSE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_471__CLASS_SOURCE_IFELSE));
  
@@ -59274,7 +30291,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_475__SIF_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_477__SIF_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_477__SIF_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_477__SIF_ELSE.obj_num = 4;
-  cdat->dobj_477__SIF_ELSE.obj_hash = 376203978;
+  cdat->dobj_477__SIF_ELSE.obj_hash = 710418454;
   cdat->dobj_477__SIF_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_477__SIF_ELSE));
  
@@ -59302,7 +30319,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_479__CLASS_SOURCE_OR));
   melt_assertmsg("iniobj checkdiscr dobj_481__CLASS_SOURCE_OR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_481__CLASS_SOURCE_OR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_481__CLASS_SOURCE_OR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_481__CLASS_SOURCE_OR.obj_hash = 224227956;
+  cdat->dobj_481__CLASS_SOURCE_OR.obj_hash = 181063984;
   cdat->dobj_481__CLASS_SOURCE_OR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_481__CLASS_SOURCE_OR));
  
@@ -59338,7 +30355,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_485__SOR_DISJ));
   melt_assertmsg("iniobj checkdiscr dobj_487__SOR_DISJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_487__SOR_DISJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_487__SOR_DISJ.obj_num = 2;
-  cdat->dobj_487__SOR_DISJ.obj_hash = 784546328;
+  cdat->dobj_487__SOR_DISJ.obj_hash = 483552564;
   cdat->dobj_487__SOR_DISJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_487__SOR_DISJ));
  
@@ -59366,7 +30383,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_489__CLASS_SOURCE_CPPIF))
   melt_assertmsg("iniobj checkdiscr dobj_491__CLASS_SOURCE_CPPIF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_hash = 418366175;
+  cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_hash = 937973163;
   cdat->dobj_491__CLASS_SOURCE_CPPIF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_491__CLASS_SOURCE_CPPIF));
  
@@ -59402,7 +30419,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_495__SIFP_COND));
   melt_assertmsg("iniobj checkdiscr dobj_497__SIFP_COND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_497__SIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_497__SIFP_COND.obj_num = 2;
-  cdat->dobj_497__SIFP_COND.obj_hash = 409299807;
+  cdat->dobj_497__SIFP_COND.obj_hash = 1049991435;
   cdat->dobj_497__SIFP_COND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_497__SIFP_COND));
  
@@ -59430,7 +30447,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_499__SIFP_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_501__SIFP_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_501__SIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_501__SIFP_THEN.obj_num = 3;
-  cdat->dobj_501__SIFP_THEN.obj_hash = 277790576;
+  cdat->dobj_501__SIFP_THEN.obj_hash = 748303100;
   cdat->dobj_501__SIFP_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_501__SIFP_THEN));
  
@@ -59458,7 +30475,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_503__SIFP_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_505__SIFP_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_505__SIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_505__SIFP_ELSE.obj_num = 4;
-  cdat->dobj_505__SIFP_ELSE.obj_hash = 172990531;
+  cdat->dobj_505__SIFP_ELSE.obj_hash = 33914031;
   cdat->dobj_505__SIFP_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_505__SIFP_ELSE));
  
@@ -59486,7 +30503,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_507__CLASS_SOURCE_MATCH))
   melt_assertmsg("iniobj checkdiscr dobj_509__CLASS_SOURCE_MATCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_509__CLASS_SOURCE_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_509__CLASS_SOURCE_MATCH.obj_num = OBMAG_OBJECT;
-  cdat->dobj_509__CLASS_SOURCE_MATCH.obj_hash = 43907258;
+  cdat->dobj_509__CLASS_SOURCE_MATCH.obj_hash = 992837910;
   cdat->dobj_509__CLASS_SOURCE_MATCH.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_509__CLASS_SOURCE_MATCH));
  
@@ -59522,7 +30539,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_513__SMAT_MATCHEDX));
   melt_assertmsg("iniobj checkdiscr dobj_515__SMAT_MATCHEDX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_515__SMAT_MATCHEDX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_515__SMAT_MATCHEDX.obj_num = 2;
-  cdat->dobj_515__SMAT_MATCHEDX.obj_hash = 739970069;
+  cdat->dobj_515__SMAT_MATCHEDX.obj_hash = 214798801;
   cdat->dobj_515__SMAT_MATCHEDX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_515__SMAT_MATCHEDX));
  
@@ -59550,7 +30567,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_517__SMAT_CASES));
   melt_assertmsg("iniobj checkdiscr dobj_519__SMAT_CASES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_519__SMAT_CASES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_519__SMAT_CASES.obj_num = 3;
-  cdat->dobj_519__SMAT_CASES.obj_hash = 922651097;
+  cdat->dobj_519__SMAT_CASES.obj_hash = 804305909;
   cdat->dobj_519__SMAT_CASES.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_519__SMAT_CASES));
  
@@ -59578,7 +30595,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_521__CLASS_SOURCE_MATCH_C
   melt_assertmsg("iniobj checkdiscr dobj_523__CLASS_SOURCE_MATCH_CASE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_hash = 839659976;
+  cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_hash = 79630228;
   cdat->dobj_523__CLASS_SOURCE_MATCH_CASE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_523__CLASS_SOURCE_MATCH_CASE));
  
@@ -59614,7 +30631,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_527__SCAM_PATT));
   melt_assertmsg("iniobj checkdiscr dobj_529__SCAM_PATT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_529__SCAM_PATT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_529__SCAM_PATT.obj_num = 2;
-  cdat->dobj_529__SCAM_PATT.obj_hash = 1056947577;
+  cdat->dobj_529__SCAM_PATT.obj_hash = 59158053;
   cdat->dobj_529__SCAM_PATT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_529__SCAM_PATT));
  
@@ -59642,7 +30659,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_531__SCAM_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_533__SCAM_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_533__SCAM_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_533__SCAM_BODY.obj_num = 3;
-  cdat->dobj_533__SCAM_BODY.obj_hash = 655588366;
+  cdat->dobj_533__SCAM_BODY.obj_hash = 944958106;
   cdat->dobj_533__SCAM_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_533__SCAM_BODY));
  
@@ -59670,7 +30687,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_535__CLASS_SOURCE_LET_BIN
   melt_assertmsg("iniobj checkdiscr dobj_537__CLASS_SOURCE_LET_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_hash = 339701847;
+  cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_hash = 70502739;
   cdat->dobj_537__CLASS_SOURCE_LET_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_537__CLASS_SOURCE_LET_BINDING));
  
@@ -59706,7 +30723,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_541__SLETB_TYPE));
   melt_assertmsg("iniobj checkdiscr dobj_543__SLETB_TYPE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_543__SLETB_TYPE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_543__SLETB_TYPE.obj_num = 2;
-  cdat->dobj_543__SLETB_TYPE.obj_hash = 908970699;
+  cdat->dobj_543__SLETB_TYPE.obj_hash = 996155943;
   cdat->dobj_543__SLETB_TYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_543__SLETB_TYPE));
  
@@ -59734,7 +30751,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_545__SLETB_BINDER));
   melt_assertmsg("iniobj checkdiscr dobj_547__SLETB_BINDER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_547__SLETB_BINDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_547__SLETB_BINDER.obj_num = 3;
-  cdat->dobj_547__SLETB_BINDER.obj_hash = 265693063;
+  cdat->dobj_547__SLETB_BINDER.obj_hash = 459641923;
   cdat->dobj_547__SLETB_BINDER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_547__SLETB_BINDER));
  
@@ -59762,7 +30779,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_549__SLETB_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_551__SLETB_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_551__SLETB_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_551__SLETB_EXPR.obj_num = 4;
-  cdat->dobj_551__SLETB_EXPR.obj_hash = 437058367;
+  cdat->dobj_551__SLETB_EXPR.obj_hash = 681569371;
   cdat->dobj_551__SLETB_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_551__SLETB_EXPR));
  
@@ -59790,7 +30807,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_553__CLASS_SOURCE_LETREC_
   melt_assertmsg("iniobj checkdiscr dobj_555__CLASS_SOURCE_LETREC_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_hash = 826576597;
+  cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_hash = 383416225;
   cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_555__CLASS_SOURCE_LETREC_BINDING));
  
@@ -59826,7 +30843,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_559__CLASS_SOURCE_LET));
   melt_assertmsg("iniobj checkdiscr dobj_561__CLASS_SOURCE_LET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_561__CLASS_SOURCE_LET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_561__CLASS_SOURCE_LET.obj_num = OBMAG_OBJECT;
-  cdat->dobj_561__CLASS_SOURCE_LET.obj_hash = 867179080;
+  cdat->dobj_561__CLASS_SOURCE_LET.obj_hash = 14803588;
   cdat->dobj_561__CLASS_SOURCE_LET.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_561__CLASS_SOURCE_LET));
  
@@ -59862,7 +30879,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_565__SLET_BINDINGS));
   melt_assertmsg("iniobj checkdiscr dobj_567__SLET_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_567__SLET_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_567__SLET_BINDINGS.obj_num = 2;
-  cdat->dobj_567__SLET_BINDINGS.obj_hash = 570261941;
+  cdat->dobj_567__SLET_BINDINGS.obj_hash = 62585425;
   cdat->dobj_567__SLET_BINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_567__SLET_BINDINGS));
  
@@ -59890,7 +30907,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_569__SLET_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_571__SLET_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_571__SLET_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_571__SLET_BODY.obj_num = 3;
-  cdat->dobj_571__SLET_BODY.obj_hash = 997058493;
+  cdat->dobj_571__SLET_BODY.obj_hash = 593131449;
   cdat->dobj_571__SLET_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_571__SLET_BODY));
  
@@ -59918,7 +30935,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_573__CLASS_SOURCE_LETREC)
   melt_assertmsg("iniobj checkdiscr dobj_575__CLASS_SOURCE_LETREC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_575__CLASS_SOURCE_LETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_575__CLASS_SOURCE_LETREC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_575__CLASS_SOURCE_LETREC.obj_hash = 723249740;
+  cdat->dobj_575__CLASS_SOURCE_LETREC.obj_hash = 796043128;
   cdat->dobj_575__CLASS_SOURCE_LETREC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_575__CLASS_SOURCE_LETREC));
  
@@ -59954,7 +30971,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_579__CLASS_SOURCE_LAMBDA)
   melt_assertmsg("iniobj checkdiscr dobj_581__CLASS_SOURCE_LAMBDA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_num = OBMAG_OBJECT;
-  cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_hash = 315075319;
+  cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_hash = 749280019;
   cdat->dobj_581__CLASS_SOURCE_LAMBDA.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_581__CLASS_SOURCE_LAMBDA));
  
@@ -59990,7 +31007,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_585__SLAM_ARGBIND));
   melt_assertmsg("iniobj checkdiscr dobj_587__SLAM_ARGBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_587__SLAM_ARGBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_587__SLAM_ARGBIND.obj_num = 2;
-  cdat->dobj_587__SLAM_ARGBIND.obj_hash = 650305934;
+  cdat->dobj_587__SLAM_ARGBIND.obj_hash = 219870474;
   cdat->dobj_587__SLAM_ARGBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_587__SLAM_ARGBIND));
  
@@ -60018,7 +31035,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_589__SLAM_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_591__SLAM_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_591__SLAM_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_591__SLAM_BODY.obj_num = 3;
-  cdat->dobj_591__SLAM_BODY.obj_hash = 1000464518;
+  cdat->dobj_591__SLAM_BODY.obj_hash = 621065826;
   cdat->dobj_591__SLAM_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_591__SLAM_BODY));
  
@@ -60046,7 +31063,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_593__CLASS_SOURCE_MULTICA
   melt_assertmsg("iniobj checkdiscr dobj_595__CLASS_SOURCE_MULTICALL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_hash = 65695713;
+  cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_hash = 958403693;
   cdat->dobj_595__CLASS_SOURCE_MULTICALL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_595__CLASS_SOURCE_MULTICALL));
  
@@ -60082,7 +31099,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_599__SMULC_RESBIND));
   melt_assertmsg("iniobj checkdiscr dobj_601__SMULC_RESBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_601__SMULC_RESBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_601__SMULC_RESBIND.obj_num = 2;
-  cdat->dobj_601__SMULC_RESBIND.obj_hash = 654779320;
+  cdat->dobj_601__SMULC_RESBIND.obj_hash = 922032420;
   cdat->dobj_601__SMULC_RESBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_601__SMULC_RESBIND));
  
@@ -60110,7 +31127,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_603__SMULC_CALL));
   melt_assertmsg("iniobj checkdiscr dobj_605__SMULC_CALL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_605__SMULC_CALL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_605__SMULC_CALL.obj_num = 3;
-  cdat->dobj_605__SMULC_CALL.obj_hash = 498173350;
+  cdat->dobj_605__SMULC_CALL.obj_hash = 711026418;
   cdat->dobj_605__SMULC_CALL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_605__SMULC_CALL));
  
@@ -60138,7 +31155,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_607__SMULC_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_609__SMULC_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_609__SMULC_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_609__SMULC_BODY.obj_num = 4;
-  cdat->dobj_609__SMULC_BODY.obj_hash = 250183412;
+  cdat->dobj_609__SMULC_BODY.obj_hash = 240770848;
   cdat->dobj_609__SMULC_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_609__SMULC_BODY));
  
@@ -60166,7 +31183,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_611__CLASS_SOURCE_LABELLE
   melt_assertmsg("iniobj checkdiscr dobj_613__CLASS_SOURCE_LABELLED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_hash = 850541006;
+  cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_hash = 343927018;
   cdat->dobj_613__CLASS_SOURCE_LABELLED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_613__CLASS_SOURCE_LABELLED));
  
@@ -60202,7 +31219,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_617__SLABEL_BIND));
   melt_assertmsg("iniobj checkdiscr dobj_619__SLABEL_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_619__SLABEL_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_619__SLABEL_BIND.obj_num = 2;
-  cdat->dobj_619__SLABEL_BIND.obj_hash = 714626868;
+  cdat->dobj_619__SLABEL_BIND.obj_hash = 726417840;
   cdat->dobj_619__SLABEL_BIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_619__SLABEL_BIND));
  
@@ -60230,7 +31247,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_621__CLASS_SOURCE_FOREVER
   melt_assertmsg("iniobj checkdiscr dobj_623__CLASS_SOURCE_FOREVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_hash = 108127134;
+  cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_hash = 973446474;
   cdat->dobj_623__CLASS_SOURCE_FOREVER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_623__CLASS_SOURCE_FOREVER));
  
@@ -60266,7 +31283,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_627__SFRV_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_629__SFRV_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_629__SFRV_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_629__SFRV_BODY.obj_num = 3;
-  cdat->dobj_629__SFRV_BODY.obj_hash = 586759538;
+  cdat->dobj_629__SFRV_BODY.obj_hash = 542186750;
   cdat->dobj_629__SFRV_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_629__SFRV_BODY));
  
@@ -60294,7 +31311,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_631__CLASS_SOURCE_EXIT));
   melt_assertmsg("iniobj checkdiscr dobj_633__CLASS_SOURCE_EXIT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_633__CLASS_SOURCE_EXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_633__CLASS_SOURCE_EXIT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_633__CLASS_SOURCE_EXIT.obj_hash = 156404586;
+  cdat->dobj_633__CLASS_SOURCE_EXIT.obj_hash = 118671718;
   cdat->dobj_633__CLASS_SOURCE_EXIT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_633__CLASS_SOURCE_EXIT));
  
@@ -60330,7 +31347,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_637__SEXI_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_639__SEXI_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_639__SEXI_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_639__SEXI_BODY.obj_num = 3;
-  cdat->dobj_639__SEXI_BODY.obj_hash = 1018812711;
+  cdat->dobj_639__SEXI_BODY.obj_hash = 25107843;
   cdat->dobj_639__SEXI_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_639__SEXI_BODY));
  
@@ -60358,7 +31375,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_641__CLASS_SOURCE_COMPILE
   melt_assertmsg("iniobj checkdiscr dobj_643__CLASS_SOURCE_COMPILEWARNING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_hash = 2364592;
+  cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_hash = 158057164;
   cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_643__CLASS_SOURCE_COMPILEWARNING));
  
@@ -60394,7 +31411,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_647__SCWARN_MSG));
   melt_assertmsg("iniobj checkdiscr dobj_649__SCWARN_MSG", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_649__SCWARN_MSG.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_649__SCWARN_MSG.obj_num = 2;
-  cdat->dobj_649__SCWARN_MSG.obj_hash = 1006185663;
+  cdat->dobj_649__SCWARN_MSG.obj_hash = 296529467;
   cdat->dobj_649__SCWARN_MSG.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_649__SCWARN_MSG));
  
@@ -60422,7 +31439,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_651__SCWARN_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_653__SCWARN_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_653__SCWARN_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_653__SCWARN_EXPR.obj_num = 3;
-  cdat->dobj_653__SCWARN_EXPR.obj_hash = 934432299;
+  cdat->dobj_653__SCWARN_EXPR.obj_hash = 534856199;
   cdat->dobj_653__SCWARN_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_653__SCWARN_EXPR));
  
@@ -60450,7 +31467,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_655__CLASS_SOURCE_CURRENT
   melt_assertmsg("iniobj checkdiscr dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 672201745;
+  cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 915396253;
   cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_657__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
  
@@ -60486,7 +31503,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_661__CMEC_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_663__CMEC_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_663__CMEC_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_663__CMEC_COMMENT.obj_num = 2;
-  cdat->dobj_663__CMEC_COMMENT.obj_hash = 673647343;
+  cdat->dobj_663__CMEC_COMMENT.obj_hash = 859317851;
   cdat->dobj_663__CMEC_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_663__CMEC_COMMENT));
  
@@ -60514,7 +31531,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_665__CLASS_SOURCE_PARENT_
   melt_assertmsg("iniobj checkdiscr dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 635128611;
+  cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 539647615;
   cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_667__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT));
  
@@ -60550,7 +31567,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_671__CLASS_SOURCE_UPDATE_
   melt_assertmsg("iniobj checkdiscr dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 986260186;
+  cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 756826854;
   cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_673__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
  
@@ -60586,7 +31603,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_677__SUCME_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_679__SUCME_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_679__SUCME_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_679__SUCME_COMMENT.obj_num = 2;
-  cdat->dobj_679__SUCME_COMMENT.obj_hash = 690769870;
+  cdat->dobj_679__SUCME_COMMENT.obj_hash = 17099962;
   cdat->dobj_679__SUCME_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_679__SUCME_COMMENT));
  
@@ -60614,7 +31631,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_681__CLASS_SOURCE_FETCH_P
   melt_assertmsg("iniobj checkdiscr dobj_683__CLASS_SOURCE_FETCH_PREDEFINED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 247776219;
+  cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 541615799;
   cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_683__CLASS_SOURCE_FETCH_PREDEFINED));
  
@@ -60650,7 +31667,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_687__SFEPD_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_689__SFEPD_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_689__SFEPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_689__SFEPD_PREDEF.obj_num = 2;
-  cdat->dobj_689__SFEPD_PREDEF.obj_hash = 942411802;
+  cdat->dobj_689__SFEPD_PREDEF.obj_hash = 235304022;
   cdat->dobj_689__SFEPD_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_689__SFEPD_PREDEF));
  
@@ -60678,7 +31695,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_691__CLASS_SOURCE_STORE_P
   melt_assertmsg("iniobj checkdiscr dobj_693__CLASS_SOURCE_STORE_PREDEFINED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 571952779;
+  cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 9837815;
   cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_693__CLASS_SOURCE_STORE_PREDEFINED));
  
@@ -60714,7 +31731,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_697__SSTPD_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_699__SSTPD_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__SSTPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__SSTPD_PREDEF.obj_num = 2;
-  cdat->dobj_699__SSTPD_PREDEF.obj_hash = 238440326;
+  cdat->dobj_699__SSTPD_PREDEF.obj_hash = 482947538;
   cdat->dobj_699__SSTPD_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_699__SSTPD_PREDEF));
  
@@ -60742,7 +31759,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_701__SSTPD_VALUE));
   melt_assertmsg("iniobj checkdiscr dobj_703__SSTPD_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_703__SSTPD_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_703__SSTPD_VALUE.obj_num = 3;
-  cdat->dobj_703__SSTPD_VALUE.obj_hash = 515034971;
+  cdat->dobj_703__SSTPD_VALUE.obj_hash = 575182983;
   cdat->dobj_703__SSTPD_VALUE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_703__SSTPD_VALUE));
  
@@ -60770,7 +31787,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_705__CLASS_SOURCE_CODECHU
   melt_assertmsg("iniobj checkdiscr dobj_707__CLASS_SOURCE_CODECHUNK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_hash = 549719783;
+  cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_hash = 795409155;
   cdat->dobj_707__CLASS_SOURCE_CODECHUNK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_707__CLASS_SOURCE_CODECHUNK));
  
@@ -60806,7 +31823,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_711__SCH_GENSYM));
   melt_assertmsg("iniobj checkdiscr dobj_713__SCH_GENSYM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_713__SCH_GENSYM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_713__SCH_GENSYM.obj_num = 2;
-  cdat->dobj_713__SCH_GENSYM.obj_hash = 580758823;
+  cdat->dobj_713__SCH_GENSYM.obj_hash = 268147875;
   cdat->dobj_713__SCH_GENSYM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_713__SCH_GENSYM));
  
@@ -60834,7 +31851,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_715__SCH_CHUNKS));
   melt_assertmsg("iniobj checkdiscr dobj_717__SCH_CHUNKS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_717__SCH_CHUNKS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_717__SCH_CHUNKS.obj_num = 3;
-  cdat->dobj_717__SCH_CHUNKS.obj_hash = 752199856;
+  cdat->dobj_717__SCH_CHUNKS.obj_hash = 842513036;
   cdat->dobj_717__SCH_CHUNKS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_717__SCH_CHUNKS));
  
@@ -60862,7 +31879,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_719__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_721__CLASS_SOURCE_PATTERN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_hash = 227677201;
+  cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_hash = 271393949;
   cdat->dobj_721__CLASS_SOURCE_PATTERN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_721__CLASS_SOURCE_PATTERN));
  
@@ -60898,7 +31915,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_725__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_727__CLASS_SOURCE_PATTERN_OR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_num = OBMAG_OBJECT;
-  cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_hash = 774149271;
+  cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_hash = 1072330643;
   cdat->dobj_727__CLASS_SOURCE_PATTERN_OR.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_727__CLASS_SOURCE_PATTERN_OR));
  
@@ -60934,7 +31951,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_731__ORPAT_DISJ));
   melt_assertmsg("iniobj checkdiscr dobj_733__ORPAT_DISJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_733__ORPAT_DISJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_733__ORPAT_DISJ.obj_num = 2;
-  cdat->dobj_733__ORPAT_DISJ.obj_hash = 676551697;
+  cdat->dobj_733__ORPAT_DISJ.obj_hash = 1004227949;
   cdat->dobj_733__ORPAT_DISJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_733__ORPAT_DISJ));
  
@@ -60962,7 +31979,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_735__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_737__CLASS_SOURCE_PATTERN_AND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_hash = 105887333;
+  cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_hash = 63949937;
   cdat->dobj_737__CLASS_SOURCE_PATTERN_AND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_737__CLASS_SOURCE_PATTERN_AND));
  
@@ -60998,7 +32015,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_741__ANDPAT_CONJ));
   melt_assertmsg("iniobj checkdiscr dobj_743__ANDPAT_CONJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_743__ANDPAT_CONJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_743__ANDPAT_CONJ.obj_num = 2;
-  cdat->dobj_743__ANDPAT_CONJ.obj_hash = 87787718;
+  cdat->dobj_743__ANDPAT_CONJ.obj_hash = 874580914;
   cdat->dobj_743__ANDPAT_CONJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_743__ANDPAT_CONJ));
  
@@ -61026,7 +32043,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_745__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_747__CLASS_SOURCE_PATTERN_AS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_747__CLASS_SOURCE_PATTERN_AS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_747__CLASS_SOURCE_PATTERN_AS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_747__CLASS_SOURCE_PATTERN_AS.obj_hash = 126678589;
+  cdat->dobj_747__CLASS_SOURCE_PATTERN_AS.obj_hash = 21444377;
   cdat->dobj_747__CLASS_SOURCE_PATTERN_AS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_747__CLASS_SOURCE_PATTERN_AS));
  
@@ -61062,7 +32079,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_751__ASPAT_VARPAT));
   melt_assertmsg("iniobj checkdiscr dobj_753__ASPAT_VARPAT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_753__ASPAT_VARPAT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_753__ASPAT_VARPAT.obj_num = 2;
-  cdat->dobj_753__ASPAT_VARPAT.obj_hash = 315105668;
+  cdat->dobj_753__ASPAT_VARPAT.obj_hash = 154489792;
   cdat->dobj_753__ASPAT_VARPAT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_753__ASPAT_VARPAT));
  
@@ -61090,7 +32107,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_755__ASPAT_SUBPAT));
   melt_assertmsg("iniobj checkdiscr dobj_757__ASPAT_SUBPAT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_757__ASPAT_SUBPAT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_757__ASPAT_SUBPAT.obj_num = 3;
-  cdat->dobj_757__ASPAT_SUBPAT.obj_hash = 794386804;
+  cdat->dobj_757__ASPAT_SUBPAT.obj_hash = 211375120;
   cdat->dobj_757__ASPAT_SUBPAT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_757__ASPAT_SUBPAT));
  
@@ -61118,7 +32135,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_759__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_761__CLASS_SOURCE_PATTERN_VARIABLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_761__CLASS_SOURCE_PATTERN_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_761__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_761__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 704155080;
+  cdat->dobj_761__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 872842772;
   cdat->dobj_761__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_761__CLASS_SOURCE_PATTERN_VARIABLE));
  
@@ -61154,7 +32171,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_765__SPAT_VAR));
   melt_assertmsg("iniobj checkdiscr dobj_767__SPAT_VAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_767__SPAT_VAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_767__SPAT_VAR.obj_num = 2;
-  cdat->dobj_767__SPAT_VAR.obj_hash = 470082376;
+  cdat->dobj_767__SPAT_VAR.obj_hash = 334672500;
   cdat->dobj_767__SPAT_VAR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_767__SPAT_VAR));
  
@@ -61182,7 +32199,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_769__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 707634049;
+  cdat->dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 463916445;
   cdat->dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_771__CLASS_SOURCE_PATTERN_JOKER_VARIABLE));
  
@@ -61218,7 +32235,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_775__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_777__CLASS_SOURCE_PATTERN_CONSTANT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_777__CLASS_SOURCE_PATTERN_CONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_777__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_777__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 520334772;
+  cdat->dobj_777__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 788784000;
   cdat->dobj_777__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_777__CLASS_SOURCE_PATTERN_CONSTANT));
  
@@ -61254,7 +32271,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_781__SPAT_CONSTX));
   melt_assertmsg("iniobj checkdiscr dobj_783__SPAT_CONSTX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_783__SPAT_CONSTX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_783__SPAT_CONSTX.obj_num = 2;
-  cdat->dobj_783__SPAT_CONSTX.obj_hash = 31294091;
+  cdat->dobj_783__SPAT_CONSTX.obj_hash = 814582583;
   cdat->dobj_783__SPAT_CONSTX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_783__SPAT_CONSTX));
  
@@ -61282,7 +32299,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_785__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 942772033;
+  cdat->dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 335765725;
   cdat->dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_787__CLASS_SOURCE_PATTERN_CONSTRUCT));
  
@@ -61318,7 +32335,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_791__CTPAT_SUBPA));
   melt_assertmsg("iniobj checkdiscr dobj_793__CTPAT_SUBPA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_793__CTPAT_SUBPA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_793__CTPAT_SUBPA.obj_num = 2;
-  cdat->dobj_793__CTPAT_SUBPA.obj_hash = 280455592;
+  cdat->dobj_793__CTPAT_SUBPA.obj_hash = 913734308;
   cdat->dobj_793__CTPAT_SUBPA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_793__CTPAT_SUBPA));
  
@@ -61346,7 +32363,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_795__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_797__CLASS_SOURCE_PATTERN_TUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_797__CLASS_SOURCE_PATTERN_TUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_797__CLASS_SOURCE_PATTERN_TUPLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_797__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 675292177;
+  cdat->dobj_797__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 389027389;
   cdat->dobj_797__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_797__CLASS_SOURCE_PATTERN_TUPLE));
  
@@ -61382,7 +32399,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_801__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_803__CLASS_SOURCE_PATTERN_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_803__CLASS_SOURCE_PATTERN_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_803__CLASS_SOURCE_PATTERN_LIST.obj_num = OBMAG_OBJECT;
-  cdat->dobj_803__CLASS_SOURCE_PATTERN_LIST.obj_hash = 64877782;
+  cdat->dobj_803__CLASS_SOURCE_PATTERN_LIST.obj_hash = 447077874;
   cdat->dobj_803__CLASS_SOURCE_PATTERN_LIST.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_803__CLASS_SOURCE_PATTERN_LIST));
  
@@ -61418,7 +32435,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_807__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_809__CLASS_SOURCE_PATTERN_OBJECT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_809__CLASS_SOURCE_PATTERN_OBJECT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_809__CLASS_SOURCE_PATTERN_OBJECT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_809__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 742983431;
+  cdat->dobj_809__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 489834451;
   cdat->dobj_809__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_809__CLASS_SOURCE_PATTERN_OBJECT));
  
@@ -61454,7 +32471,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_813__SPAT_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_815__SPAT_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_815__SPAT_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_815__SPAT_CLASS.obj_num = 2;
-  cdat->dobj_815__SPAT_CLASS.obj_hash = 996269203;
+  cdat->dobj_815__SPAT_CLASS.obj_hash = 605382719;
   cdat->dobj_815__SPAT_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_815__SPAT_CLASS));
  
@@ -61482,7 +32499,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_817__SPAT_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_819__SPAT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_819__SPAT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_819__SPAT_FIELDS.obj_num = 3;
-  cdat->dobj_819__SPAT_FIELDS.obj_hash = 303858402;
+  cdat->dobj_819__SPAT_FIELDS.obj_hash = 397771886;
   cdat->dobj_819__SPAT_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_819__SPAT_FIELDS));
  
@@ -61510,7 +32527,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_821__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_823__CLASS_SOURCE_PATTERN_INSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_823__CLASS_SOURCE_PATTERN_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_823__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_823__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 156803805;
+  cdat->dobj_823__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 254667481;
   cdat->dobj_823__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_823__CLASS_SOURCE_PATTERN_INSTANCE));
  
@@ -61546,7 +32563,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_827__CLASS_SOURCE_FIELD_P
   melt_assertmsg("iniobj checkdiscr dobj_829__CLASS_SOURCE_FIELD_PATTERN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_829__CLASS_SOURCE_FIELD_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_829__CLASS_SOURCE_FIELD_PATTERN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_829__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 536945471;
+  cdat->dobj_829__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 650246251;
   cdat->dobj_829__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_829__CLASS_SOURCE_FIELD_PATTERN));
  
@@ -61582,7 +32599,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_833__SPAF_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_835__SPAF_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_835__SPAF_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_835__SPAF_FIELD.obj_num = 2;
-  cdat->dobj_835__SPAF_FIELD.obj_hash = 386714505;
+  cdat->dobj_835__SPAF_FIELD.obj_hash = 83358357;
   cdat->dobj_835__SPAF_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_835__SPAF_FIELD));
  
@@ -61610,7 +32627,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_837__SPAF_PATTERN));
   melt_assertmsg("iniobj checkdiscr dobj_839__SPAF_PATTERN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_839__SPAF_PATTERN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_839__SPAF_PATTERN.obj_num = 3;
-  cdat->dobj_839__SPAF_PATTERN.obj_hash = 700496459;
+  cdat->dobj_839__SPAF_PATTERN.obj_hash = 54146615;
   cdat->dobj_839__SPAF_PATTERN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_839__SPAF_PATTERN));
  
@@ -61638,7 +32655,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_841__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 958863078;
+  cdat->dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 304374978;
   cdat->dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_843__CLASS_SOURCE_PATTERN_COMPOSITE));
  
@@ -61674,7 +32691,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_847__SPAC_OPERATOR));
   melt_assertmsg("iniobj checkdiscr dobj_849__SPAC_OPERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_849__SPAC_OPERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_849__SPAC_OPERATOR.obj_num = 4;
-  cdat->dobj_849__SPAC_OPERATOR.obj_hash = 161424582;
+  cdat->dobj_849__SPAC_OPERATOR.obj_hash = 286174210;
   cdat->dobj_849__SPAC_OPERATOR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_849__SPAC_OPERATOR));
  
@@ -61702,7 +32719,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_851__SPAC_OPERBIND));
   melt_assertmsg("iniobj checkdiscr dobj_853__SPAC_OPERBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_853__SPAC_OPERBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_853__SPAC_OPERBIND.obj_num = 5;
-  cdat->dobj_853__SPAC_OPERBIND.obj_hash = 322287018;
+  cdat->dobj_853__SPAC_OPERBIND.obj_hash = 566003014;
   cdat->dobj_853__SPAC_OPERBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_853__SPAC_OPERBIND));
  
@@ -61730,7 +32747,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_855__SPAC_INARGS));
   melt_assertmsg("iniobj checkdiscr dobj_857__SPAC_INARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_857__SPAC_INARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_857__SPAC_INARGS.obj_num = 6;
-  cdat->dobj_857__SPAC_INARGS.obj_hash = 145932775;
+  cdat->dobj_857__SPAC_INARGS.obj_hash = 211419363;
   cdat->dobj_857__SPAC_INARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_857__SPAC_INARGS));
  
@@ -61758,7 +32775,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_859__SPAC_OUTARGS));
   melt_assertmsg("iniobj checkdiscr dobj_861__SPAC_OUTARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_861__SPAC_OUTARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_861__SPAC_OUTARGS.obj_num = 7;
-  cdat->dobj_861__SPAC_OUTARGS.obj_hash = 1058330277;
+  cdat->dobj_861__SPAC_OUTARGS.obj_hash = 803439617;
   cdat->dobj_861__SPAC_OUTARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_861__SPAC_OUTARGS));
  
@@ -61786,7 +32803,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_863__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_865__CLASS_SOURCE_PATTERN_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_865__CLASS_SOURCE_PATTERN_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_865__CLASS_SOURCE_PATTERN_MATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_865__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 523663874;
+  cdat->dobj_865__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 262765582;
   cdat->dobj_865__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_865__CLASS_SOURCE_PATTERN_MATCHER));
  
@@ -61822,7 +32839,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_869__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_871__CLASS_SOURCE_PATTERN_C_MATCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_871__CLASS_SOURCE_PATTERN_C_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_871__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = OBMAG_OBJECT;
-  cdat->dobj_871__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 630592771;
+  cdat->dobj_871__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 619689855;
   cdat->dobj_871__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_871__CLASS_SOURCE_PATTERN_C_MATCH));
  
@@ -61858,7 +32875,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_875__CLASS_SOURCE_PATTERN
   melt_assertmsg("iniobj checkdiscr dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = OBMAG_OBJECT;
-  cdat->dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 404901776;
+  cdat->dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 666968380;
   cdat->dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_877__CLASS_SOURCE_PATTERN_FUN_MATCH));
  
@@ -62287,7 +33304,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_943__CLASS_ROOT));
   melt_assertmsg("iniobj checkdiscr dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 138921786;
+  cdat->dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 492271590;
   cdat->dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_945__CLASS_PATTERN_EXPANSION_CONTEXT));
  
@@ -62323,7 +33340,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_949__PCTX_MEXPANDER));
   melt_assertmsg("iniobj checkdiscr dobj_951__PCTX_MEXPANDER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_951__PCTX_MEXPANDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_951__PCTX_MEXPANDER.obj_num = 0;
-  cdat->dobj_951__PCTX_MEXPANDER.obj_hash = 255639915;
+  cdat->dobj_951__PCTX_MEXPANDER.obj_hash = 1241079;
   cdat->dobj_951__PCTX_MEXPANDER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_951__PCTX_MEXPANDER));
  
@@ -62351,7 +33368,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_953__PCTX_PEXPANDER));
   melt_assertmsg("iniobj checkdiscr dobj_955__PCTX_PEXPANDER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_955__PCTX_PEXPANDER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_955__PCTX_PEXPANDER.obj_num = 1;
-  cdat->dobj_955__PCTX_PEXPANDER.obj_hash = 1057237521;
+  cdat->dobj_955__PCTX_PEXPANDER.obj_hash = 154057085;
   cdat->dobj_955__PCTX_PEXPANDER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_955__PCTX_PEXPANDER));
  
@@ -62379,7 +33396,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_957__PCTX_VARMAP));
   melt_assertmsg("iniobj checkdiscr dobj_959__PCTX_VARMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_959__PCTX_VARMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_959__PCTX_VARMAP.obj_num = 2;
-  cdat->dobj_959__PCTX_VARMAP.obj_hash = 484122271;
+  cdat->dobj_959__PCTX_VARMAP.obj_hash = 711600619;
   cdat->dobj_959__PCTX_VARMAP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_959__PCTX_VARMAP));
  
@@ -62718,7 +33735,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1010__WARN_SHADOW));
  if (!/*_.VALDATA___V1076*/ curfptr[1075]) /*_.VALDATA___V1076*/ curfptr[1075] = (void*)&cdat->dobj_1012__WARN_SHADOW;
   melt_assertmsg("iniobj checkdiscr dobj_1012__WARN_SHADOW", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
   cdat->dobj_1012__WARN_SHADOW.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1012__WARN_SHADOW.obj_hash = 500615814;
+  cdat->dobj_1012__WARN_SHADOW.obj_hash = 962119810;
   cdat->dobj_1012__WARN_SHADOW.obj_len = 5;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1012__WARN_SHADOW));
  
@@ -92006,4 +63023,4 @@ const int meltclasslen__CLASS_SOURCE_UNSAFE_PUT_FIELDS = 4;
 const int meltclasslen__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3;
 
 
-/**** end of warmelt-macro.3.c ****/
+/**** end of warmelt-macro.0.c ****/
diff --git a/gcc/melt/warmelt-normal.0+1.c b/gcc/melt/warmelt-normal.0+1.c
new file mode 100644
index 00000000000..6a256f49a12
--- /dev/null
+++ b/gcc/melt/warmelt-normal.0+1.c
@@ -0,0 +1,23838 @@
+/* GCC MELT GENERATED FILE warmelt-normal.0+1.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #1 */
+#include "run-melt.h"
+
+/**** warmelt-normal.0+1.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_normal_ADD_NCTX_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_normal_FILL_INITIAL_PREDEFMAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_normal_CREATE_NORMCONTEXT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_normal_NORMEXP_IDENTICAL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_normal_NORMEXP_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_normal_NORMEXP_SRC_CATCHALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_normal_GECTYP_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_normal_GECTYP_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_normal_GECTYP_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_normal_GECTYP_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_normal_NORMALIZE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_normal_WRAP_NORMAL_LETSEQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_normal_WRAP_NORMAL_LET1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_normal_CHECK_CTYPE_NARGS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_normal_NORMEXP_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_normal_GECTYP_SYMOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_normal_NORMEXP_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_normal_NORMEXP_PRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_normal_NORMEXP_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_normal_NORMEXP_CMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_normal_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_normal_NORMEXP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_normal_NORMEXP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_normal_NORMEXP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_normal_NORMEXP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_normal_NORMEXP_IFELSE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normal_NORMEXP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normal_NORMEXP_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normal_NORMEXP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normal_NORMEXP_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normal_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normal_NORMEXP_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normal_NORMEXP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normal_NORMEXP_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normal_NORMEXP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normal_NORMEXP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normal_NORMEXP_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_normal_NORMALIZE_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_normal_NORMEXP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_normal_NORMEXP_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_normal_NORMEXP_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_normal_NORMEXP_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_normal_PREPCONS_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_normal_NORMLETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_normal_PREPCONS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_normal_NORMLETREC_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_normal_PREPCONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_normal_NORMLETREC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_normal_PREPCONS_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_normal_NORMLETREC_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_normal_NORMEXP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_normal_NORMAL_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_normal_CREATE_DATA_SLOTS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_normal_FILL_DATA_SLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_normal_NORMEXP_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_normal_NORMEXP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_normal_NORMEXP_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_normal_NORMEXP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_normal_NORMEXP_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-normal.0+1.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_64_warmelt_normal_NORMEXP_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_normal_NORMEXP_GET_FIELD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 49
+  void* varptr[49];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<49; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 49;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_GET_FIELD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2414:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2415:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2415:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2415:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2415:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2415:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2415:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2415:/ locexp");
+      melt_assert_failed(( "check getfield recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2415)?(2415):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2415:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2415:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2415:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2416:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2416:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2416:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2416:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2416:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2416:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2416)?(2416):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2416:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2416:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2417:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2417:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2417:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2417:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2417:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2417:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2417:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2417)?(2417):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2417:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2417:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2417:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2418:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2418:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2418:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_get_field recv";
+    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
+    argtab[3].bp_long = 2418;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2418:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2418:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2418:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2419:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2419:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2420:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUGET_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2421:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUGET_FIELD");/*_.SFLD__V17*/ curfptr[16] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:2423:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:2423:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-normal.melt:2423:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2423:/ cond.then");
+    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:2423:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:2423:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:2423:/ locexp");
+       melt_assert_failed(( "check sfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2423)?(2423):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2423:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2423:/ clear");
+    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:2423:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:2424:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ curfptr[21];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.send");
+    /*_.NOBJ__V21*/ curfptr[20] =  meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2424:/ block");
+   /*block*/{
+    /*_#NULL__L6*/ curfnum[0] = 
+     ((/*_.NBIND__V22*/ curfptr[21]) == NULL);;
+    MELT_LOCATION("warmelt-normal.melt:2427:/ cond");
+    /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2427:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:2427:/ block");
+     /*block*/{
+      /*_.MAKE_LIST__V24*/ curfptr[23] = 
+       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+      MELT_LOCATION("warmelt-normal.melt:2427:/ compute");
+      /*_.NBIND__V22*/ curfptr[21] = /*_.SETQ___V25*/ curfptr[24] = /*_.MAKE_LIST__V24*/ curfptr[23];;
+      /*_.IF___V23*/ curfptr[22] = /*_.SETQ___V25*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2427:/ clear");
+      /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2427:/ clear");
+      /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:2427:/ cond.else");
+    
+     /*_.IF___V23*/ curfptr[22] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:2428:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:2428:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:2428:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_get_field nobj";
+       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
+       argtab[3].bp_long = 2428;
+       /*_.DEBUG_MSG_FUN__V27*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOBJ__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V26*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2428:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2428:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[24] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:2428:/ cppif.else");
+    /*_.IFCPP___V26*/ curfptr[23] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:2429:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2429:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ apply");
+     /*apply*/{
+      /*_.CSYM__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2430:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 2, "FLD_OWNCLASS");/*_.FCLA__V31*/ curfptr[30] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2431:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2431:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+       MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
+       /*_.NC__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.FCLA__V31*/ curfptr[30]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:2432:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:2432:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:2432:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_get_field ncla";
+         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
+         argtab[3].bp_long = 2432;
+         /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2432:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2432:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:2432:/ cppif.else");
+      /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.LET___V32*/ curfptr[31] = /*_.NC__V33*/ curfptr[32];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2431:/ clear");
+      /*clear*/ /*_.NC__V33*/ curfptr[32] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2431:/ clear");
+      /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;}
+     ;
+     /*_.NCLA__V36*/ curfptr[34] = /*_.LET___V32*/ curfptr[31];;
+     MELT_LOCATION("warmelt-normal.melt:2434:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2434:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V38*/ curfptr[33] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2434:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2434:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (1), (/*_.NOBJ__V21*/ curfptr[20]), "NUGET_OBJ");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2434:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (2), (/*_.SFLD__V17*/ curfptr[16]), "NUGET_FIELD");
+      ;
+      /*_.NUGET__V37*/ curfptr[32] = /*_.INST__V38*/ curfptr[33];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2443:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2443:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[11])), (6), "CLASS_NREP_IFISA");/*_.INST__V40*/ curfptr[39] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NIFA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (4), (/*_.NOBJ__V21*/ curfptr[20]), "NIFA_VAL");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NIFA_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (5), (/*_.NCLA__V36*/ curfptr[34]), "NIFA_CLASS");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NUGET__V37*/ curfptr[32]), "NIF_THEN");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "NEXPR_CTYP");
+      ;
+      /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2438:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2438:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V42*/ curfptr[41] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.CSYM__V30*/ curfptr[29]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.INST___V39*/ curfptr[38]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2450:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2450:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V44*/ curfptr[43] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.CSYM__V30*/ curfptr[29]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (3), (/*_.CBIND__V41*/ curfptr[40]), "NOCC_BIND");
+      ;
+      /*_.CLOCC__V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:2456:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (melt_ptr_t)(/*_.CBIND__V41*/ curfptr[40]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2457:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2457:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2457:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_get_field clocc";
+        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
+        argtab[3].bp_long = 2457;
+        /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2457:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2457:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2457:/ cppif.else");
+     /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2458:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2458:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2458:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_get_field nbind";
+        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
+        argtab[3].bp_long = 2458;
+        /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2458:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2458:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2458:/ cppif.else");
+     /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:2459:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V43*/ curfptr[42];;
+      MELT_LOCATION("warmelt-normal.melt:2459:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V22*/ curfptr[21]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2459:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V28*/ curfptr[24] = /*_.RETURN___V49*/ curfptr[47];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.CSYM__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.FCLA__V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.NCLA__V36*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.NUGET__V37*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.CBIND__V41*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.CLOCC__V43*/ curfptr[42] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
+     /*clear*/ /*_.RETURN___V49*/ curfptr[47] = 0 ;}
+    ;
+    /*_.MULTI___V20*/ curfptr[18] = /*_.LET___V28*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
+    /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
+    /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
+    /*clear*/ /*_.IFCPP___V26*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
+    /*clear*/ /*_.LET___V28*/ curfptr[24] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
+   /*clear*/ /*_.NBIND__V22*/ curfptr[21] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
+  /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
+  /*clear*/ /*_.SFLD__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
+  /*clear*/ /*_.MULTI___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2414:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2414:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_64_warmelt_normal_NORMEXP_GET_FIELD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 39
+  void* varptr[39];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<39; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 39;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_UNSAFE_PUT_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2466:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2467:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2467:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2467:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2467:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2467:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2467:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2467:/ locexp");
+      melt_assert_failed(( "check unsafeputfields recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2467)?(2467):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2467:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2467:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2467:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2468:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2468:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2468:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2468:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2468:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2468:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2468)?(2468):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2468:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2468:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2469:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2469:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2469:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2469:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2469:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2469:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2469:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2469)?(2469):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2469:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2469:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2469:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2470:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2470:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2470:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_unsafe_put_fields recv";
+    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
+    argtab[3].bp_long = 2470;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2470:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2470:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2470:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2471:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2471:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2472:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2473:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; };
+  ;
+  /*_#NBFIELDS__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));;
+  /*_.NFIELDS__V18*/ curfptr[17] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));;
+  /*_.NBINDLIST__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  MELT_LOCATION("warmelt-normal.melt:2477:/ apply");
+  /*apply*/{
+   /*_.CSYM__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UNSAFPUT_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2478:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2478:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.CSYM__V20*/ curfptr[19]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
+   ;
+   /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2484:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2484:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND");
+   ;
+   /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2490:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.send");
+    /*_.NOBJ__V26*/ curfptr[25] =  meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2490:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2493:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2493:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26];
+     /*_.LIST_APPEND2LIST__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2496:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2496:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (5));
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[3] = (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]);
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[4] = (melt_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]);
+     ;
+     /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2494:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2494:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
+     /*_.MULTIPLE_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2511:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2511:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2511:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[20])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V34*/ curfptr[33] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2511:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2511:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.NOBJ__V26*/ curfptr[25]), "NUPUT_OBJ");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2511:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS");
+      ;
+      /*_.NPUF__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2515:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2515:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NPUF__V33*/ curfptr[32]), "LETBIND_EXPR");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2515:/ touch");
+      meltgc_touch(/*_.CBIND__V21*/ curfptr[20]);
+      ;
+      /*epilog*/}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:2516:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2517:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2517:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2517:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_unsafe_put_fields result clocc";
+        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
+        argtab[3].bp_long = 2517;
+        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2517:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2517:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2517:/ cppif.else");
+     /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2518:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2518:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2518:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_unsafe_put_fields result nbindlist";
+        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
+        argtab[3].bp_long = 2518;
+        /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2518:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2518:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2518:/ cppif.else");
+     /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:2519:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];;
+      MELT_LOCATION("warmelt-normal.melt:2519:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V19*/ curfptr[18]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2519:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V39*/ curfptr[37];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
+     /*clear*/ /*_.NPUF__V33*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
+     /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
+     /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
+     /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;}
+    ;
+    /*_.MULTI___V25*/ curfptr[24] = /*_.LET___V32*/ curfptr[31];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
+    /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
+    /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
+   /*clear*/ /*_.NOBJBIND__V27*/ curfptr[26] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V25*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
+  /*clear*/ /*_.MULTI___V25*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2466:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2466:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_UNSAFE_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_66_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2496:/ getarg");
+ /*_.FLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2496:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2496:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2497:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2497:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2497:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2497:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2497:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2497:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2497:/ locexp");
+      melt_assert_failed(( "check fla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2497)?(2497):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2497:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2497:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2497:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2498:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2498:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.FLD__V5*/ curfptr[3] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2499:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.EXP__V6*/ curfptr[5] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:2500:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:2500:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.FLD__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-normal.melt:2500:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2500:/ cond.then");
+    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:2500:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:2500:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:2500:/ locexp");
+       melt_assert_failed(( "check fld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2500)?(2500):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2500:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2500:/ clear");
+    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:2500:/ cppif.else");
+  /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:2501:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+    MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9];MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.send");
+    /*_.NEXP__V9*/ curfptr[7] =  meltgc_send ((melt_ptr_t)(/*_.EXP__V6*/ curfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2501:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2504:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2504:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9];
+     /*_.LIST_APPEND2LIST__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)((/*~NBINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2505:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2505:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2505:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[4])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V13*/ curfptr[12] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2505:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~SLOC*/ curfclos->tabval[2])), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2505:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.FLD__V5*/ curfptr[3]), "NFLA_FIELD");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2505:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.NEXP__V9*/ curfptr[7]), "NFLA_VAL");
+      ;
+      /*_.NFLA__V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:2509:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)((/*~NFIELDS*/ curfclos->tabval[4])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NFLA__V12*/ curfptr[11]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2505:/ clear");
+     /*clear*/ /*_.NFLA__V12*/ curfptr[11] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2501:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[10] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2501:/ clear");
+   /*clear*/ /*_.NEXPBIND__V10*/ curfptr[9] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2498:/ clear");
+  /*clear*/ /*_.FLD__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2498:/ clear");
+  /*clear*/ /*_.EXP__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2498:/ clear");
+  /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2496:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_66_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_67_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2522:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2522:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2522:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:2522:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VOID*/ curfrout->tabval[0]);;
+  MELT_LOCATION("warmelt-normal.melt:2522:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_67_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 72
+  void* varptr[72];
+#define CURFRAM_NBVARNUM 19
+  long varnum[19];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<72; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 72;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_PUT_FIELDS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2526:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2527:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2527:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2527:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2527:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2527:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2527:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2527:/ locexp");
+      melt_assert_failed(( "check putfields recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2527)?(2527):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2527:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2527:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2527:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2528:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2528:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2528:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2528:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2528:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2528:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2528:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2528)?(2528):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2528:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2528:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2528:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2529:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2529:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2529:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2529:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2529:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2529:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2529:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2529)?(2529):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2529:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2529:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2529:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2530:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2530:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2530:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_put_fields recv";
+    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
+    argtab[3].bp_long = 2530;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2530:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2530:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2530:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2531:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2531:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2532:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2533:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; };
+  ;
+  /*_#NBFIELDS__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));;
+  /*_.NFIELDS__V18*/ curfptr[17] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));;
+  /*_.NBINDLIST__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  MELT_LOCATION("warmelt-normal.melt:2537:/ apply");
+  /*apply*/{
+   /*_.CSYM__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_PUTFLD_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2538:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2538:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.CSYM__V20*/ curfptr[19]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
+   ;
+   /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2544:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2544:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND");
+   ;
+   /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+  ;
+  /*_.CLABOX__V25*/ curfptr[24] = 
+   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[11])), (melt_ptr_t)((/*nil*/NULL)));;
+  MELT_LOCATION("warmelt-normal.melt:2551:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V28*/ curfptr[27];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.send");
+    /*_.NOBJ__V27*/ curfptr[26] =  meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2551:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2554:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2554:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V28*/ curfptr[27];
+     /*_.LIST_APPEND2LIST__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SFIELDS__V17*/ curfptr[16]);
+   for (/*_#IX__L6*/ curfnum[5] = 0;  
+	(/*_#IX__L6*/ curfnum[5] >= 0) && (/*_#IX__L6*/ curfnum[5] <  cit1__EACHTUP_ln);  
+	/*_#IX__L6*/ curfnum[5]++) {
+   /*_.FLA__V30*/ curfptr[29] = melt_multiple_nth((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]),  /*_#IX__L6*/ curfnum[5]);
+   
+    
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2558:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2558:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2558:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_put_fields fla";
+        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
+        argtab[3].bp_long = 2558;
+        /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2558:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2558:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2558:/ cppif.else");
+     /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2559:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2559:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2559:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_put_fields clabox";
+        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
+        argtab[3].bp_long = 2559;
+        /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2559:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2559:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2559:/ cppif.else");
+     /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2560:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2560:/ block");
+      /*block*/{
+       /*_#IS_A__L9*/ curfnum[6] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[14])));;
+       MELT_LOCATION("warmelt-normal.melt:2560:/ cond");
+       /*cond*/ if (/*_#IS_A__L9*/ curfnum[6]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:2560:/ cond.then");
+       /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-normal.melt:2560:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:2560:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:2560:/ locexp");
+          melt_assert_failed(( "check fla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2560)?(2560):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2560:/ clear");
+       /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2560:/ clear");
+       /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2560:/ cppif.else");
+     /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:2561:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2561:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), 2, "SFLA_FIELD");/*_.FLD__V37*/ curfptr[35] = slot; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2562:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), 3, "SFLA_EXPR");/*_.EXP__V38*/ curfptr[37] = slot; };
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:2563:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:2563:/ block");
+       /*block*/{
+        /*_#IS_A__L10*/ curfnum[6] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[15])));;
+        MELT_LOCATION("warmelt-normal.melt:2563:/ cond");
+        /*cond*/ if (/*_#IS_A__L10*/ curfnum[6]) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:2563:/ cond.then");
+        /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-normal.melt:2563:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:2563:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:2563:/ locexp");
+           melt_assert_failed(( "check fld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2563)?(2563):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V39*/ curfptr[38] = /*_.IFELSE___V40*/ curfptr[39];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2563:/ clear");
+        /*clear*/ /*_#IS_A__L10*/ curfnum[6] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2563:/ clear");
+        /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:2563:/ cppif.else");
+      /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:2564:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2564:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), 2, "FLD_OWNCLASS");/*_.FCLA__V42*/ curfptr[41] = slot; };
+       ;
+       /*_.PRECLA__V43*/ curfptr[42] = 
+        melt_box_content((meltbox_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]));;
+       /*_#NULL__L11*/ curfnum[6] = 
+        ((/*_.PRECLA__V43*/ curfptr[42]) == NULL);;
+       MELT_LOCATION("warmelt-normal.melt:2567:/ cond");
+       /*cond*/ if (/*_#NULL__L11*/ curfnum[6]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:2567:/ cond.then");
+       MELT_LOCATION("warmelt-normal.melt:2567:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:2568:/ locexp");
+          meltgc_box_put((melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));}
+          ;
+          /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+       } else {MELT_LOCATION("warmelt-normal.melt:2567:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:2567:/ block");
+        /*block*/{
+         /*_#__L12*/ curfnum[11] = 
+          ((/*_.PRECLA__V43*/ curfptr[42]) == (/*_.FCLA__V42*/ curfptr[41]));;
+         MELT_LOCATION("warmelt-normal.melt:2570:/ cond");
+         /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:2570:/ cond.then");
+         /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
+         } else {MELT_LOCATION("warmelt-normal.melt:2570:/ cond.else");
+         
+          MELT_LOCATION("warmelt-normal.melt:2570:/ block");
+          /*block*/{
+           /*_#SUBCLASS_OF__L13*/ curfnum[12] = 
+            melt_is_subclass_of((meltobject_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), (meltobject_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));;
+           MELT_LOCATION("warmelt-normal.melt:2573:/ cond");
+           /*cond*/ if (/*_#SUBCLASS_OF__L13*/ curfnum[12]) /*then*/ {
+           MELT_LOCATION("warmelt-normal.melt:2573:/ cond.then");
+           /*_.IFELSE___V46*/ curfptr[45] = (/*nil*/NULL);;
+           } else {MELT_LOCATION("warmelt-normal.melt:2573:/ cond.else");
+           
+            MELT_LOCATION("warmelt-normal.melt:2573:/ block");
+            /*block*/{
+             /*_#SUBCLASS_OF__L14*/ curfnum[13] = 
+              melt_is_subclass_of((meltobject_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (meltobject_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]));;
+             MELT_LOCATION("warmelt-normal.melt:2576:/ cond");
+             /*cond*/ if (/*_#SUBCLASS_OF__L14*/ curfnum[13]) /*then*/ {
+             MELT_LOCATION("warmelt-normal.melt:2576:/ cond.then");
+             MELT_LOCATION("warmelt-normal.melt:2576:/ block");
+              /*block*/{
+               /*block*/{
+                
+                {
+                MELT_LOCATION("warmelt-normal.melt:2577:/ locexp");
+                meltgc_box_put((melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));}
+                ;
+                /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
+               ;
+               /*epilog*/}
+              ;
+             } else {MELT_LOCATION("warmelt-normal.melt:2576:/ cond.else");
+             
+              MELT_LOCATION("warmelt-normal.melt:2576:/ block");
+              /*block*/{
+               
+               #if ENABLE_CHECKING
+                MELT_LOCATION("warmelt-normal.melt:2580:/ cppif.then");
+               MELT_LOCATION("warmelt-normal.melt:2580:/ block");
+                /*block*/{
+                 /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
+                  callcount;;
+                 MELT_LOCATION("warmelt-normal.melt:2580:/ apply");
+                 /*apply*/{
+                  union meltparam_un argtab[4];
+                  memset(&argtab, 0, sizeof(argtab));
+                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
+                  argtab[0].bp_cstring =  "normexp_put_fields bad fld";
+                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
+                  argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
+                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
+                  argtab[2].bp_cstring =  "warmelt-normal.melt";
+                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
+                  argtab[3].bp_long = 2580;
+                  /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                  }
+                 ;
+                 /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-normal.melt:2580:/ clear");
+                 /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
+                 MELT_LOCATION("warmelt-normal.melt:2580:/ clear");
+                 /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+                
+                #else /*ENABLE_CHECKING*/
+                MELT_LOCATION("warmelt-normal.melt:2580:/ cppif.else");
+               /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
+                #endif /*ENABLE_CHECKING*/
+                ;
+               
+               #if ENABLE_CHECKING
+                MELT_LOCATION("warmelt-normal.melt:2581:/ cppif.then");
+               MELT_LOCATION("warmelt-normal.melt:2581:/ block");
+                /*block*/{
+                 /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
+                  callcount;;
+                 MELT_LOCATION("warmelt-normal.melt:2581:/ apply");
+                 /*apply*/{
+                  union meltparam_un argtab[4];
+                  memset(&argtab, 0, sizeof(argtab));
+                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
+                  argtab[0].bp_cstring =  "normexp_put_fields bad fcla";
+                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
+                  argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
+                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
+                  argtab[2].bp_cstring =  "warmelt-normal.melt";
+                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
+                  argtab[3].bp_long = 2581;
+                  /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                  }
+                 ;
+                 /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-normal.melt:2581:/ clear");
+                 /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
+                 MELT_LOCATION("warmelt-normal.melt:2581:/ clear");
+                 /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+                
+                #else /*ENABLE_CHECKING*/
+                MELT_LOCATION("warmelt-normal.melt:2581:/ cppif.else");
+               /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
+                #endif /*ENABLE_CHECKING*/
+                ;
+               
+               #if ENABLE_CHECKING
+                MELT_LOCATION("warmelt-normal.melt:2582:/ cppif.then");
+               MELT_LOCATION("warmelt-normal.melt:2582:/ block");
+                /*block*/{
+                 /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 
+                  callcount;;
+                 MELT_LOCATION("warmelt-normal.melt:2582:/ apply");
+                 /*apply*/{
+                  union meltparam_un argtab[4];
+                  memset(&argtab, 0, sizeof(argtab));
+                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
+                  argtab[0].bp_cstring =  "normexp_put_fields bad precla";
+                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
+                  argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[14];
+                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
+                  argtab[2].bp_cstring =  "warmelt-normal.melt";
+                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
+                  argtab[3].bp_long = 2582;
+                  /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                  }
+                 ;
+                 /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-normal.melt:2582:/ clear");
+                 /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 0 ;
+                 MELT_LOCATION("warmelt-normal.melt:2582:/ clear");
+                 /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+                
+                #else /*ENABLE_CHECKING*/
+                MELT_LOCATION("warmelt-normal.melt:2582:/ cppif.else");
+               /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
+                #endif /*ENABLE_CHECKING*/
+                ;
+               MELT_LOCATION("warmelt-normal.melt:2583:/ getslot");
+               { melt_ptr_t slot=0;
+                melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
+               ;
+               
+               {
+               MELT_LOCATION("warmelt-normal.melt:2583:/ locexp");
+               melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad field name in PUT_FIELD"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
+               ;
+               MELT_LOCATION("warmelt-normal.melt:2584:/ getslot");
+               { melt_ptr_t slot=0;
+                melt_object_get_field(slot,(melt_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), 1, "NAMED_NAME");/*_.NAMED_NAME__V54*/ curfptr[53] = slot; };
+               ;
+               
+               {
+               MELT_LOCATION("warmelt-normal.melt:2584:/ locexp");
+               melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "PUT_FIELD expecting field of class"), (melt_ptr_t)(/*_.NAMED_NAME__V54*/ curfptr[53]));}
+               ;
+               MELT_LOCATION("warmelt-normal.melt:2585:/ cond");
+               /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[16])))) /*then*/ {
+               MELT_LOCATION("warmelt-normal.melt:2585:/ cond.then");
+               MELT_LOCATION("warmelt-normal.melt:2585:/ getslot");
+                { melt_ptr_t slot=0;
+                 melt_object_get_field(slot,(melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[54] = slot; };
+                ;
+               } else {MELT_LOCATION("warmelt-normal.melt:2585:/ cond.else");
+               
+                /*_.NAMED_NAME__V55*/ curfptr[54] = NULL;;
+                }
+               ;
+               
+               {
+               MELT_LOCATION("warmelt-normal.melt:2585:/ locexp");
+               melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "PUT_FIELD got field of class"), (melt_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[54]));}
+               ;
+               MELT_LOCATION("warmelt-normal.melt:2579:/ block");
+               /*block*/{}
+               ;
+               /*epilog*/
+               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
+               /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
+               /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
+               /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
+               /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
+               /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[53] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
+               /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[54] = 0 ;}
+              ;
+              }
+             ;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:2573:/ clear");
+             /*clear*/ /*_#SUBCLASS_OF__L14*/ curfnum[13] = 0 ;}
+            ;
+            }
+           ;
+           /*_.IFELSE___V45*/ curfptr[44] = /*_.IFELSE___V46*/ curfptr[45];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:2570:/ clear");
+           /*clear*/ /*_#SUBCLASS_OF__L13*/ curfnum[12] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:2570:/ clear");
+           /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
+          ;
+          }
+         ;
+         /*_.IFELSE___V44*/ curfptr[43] = /*_.IFELSE___V45*/ curfptr[44];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:2567:/ clear");
+         /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:2567:/ clear");
+         /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+        ;
+        }
+       ;
+       /*_.LET___V41*/ curfptr[39] = /*_.IFELSE___V44*/ curfptr[43];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
+       /*clear*/ /*_.FCLA__V42*/ curfptr[41] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
+       /*clear*/ /*_.PRECLA__V43*/ curfptr[42] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
+       /*clear*/ /*_#NULL__L11*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
+       /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2589:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend");
+       /*multimsend*/{
+        union meltparam_un argtab[3];
+        union meltparam_un restab[1];
+        memset(&argtab, 0, sizeof(argtab));
+        memset(&restab, 0, sizeof(restab));
+        MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg");
+        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+        MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.xres");
+        restab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V57*/ curfptr[47];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.send");
+        /*_.NEXP__V56*/ curfptr[46] =  meltgc_send ((melt_ptr_t)(/*_.EXP__V38*/ curfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2589:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:2592:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:2592:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V57*/ curfptr[47];
+         /*_.LIST_APPEND2LIST__V58*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:2593:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:2593:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:2593:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[17])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V60*/ curfptr[53] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:2593:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:2593:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (1), (/*_.FLD__V37*/ curfptr[35]), "NFLA_FIELD");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:2593:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (2), (/*_.NEXP__V56*/ curfptr[46]), "NFLA_VAL");
+          ;
+          /*_.NFLA__V59*/ curfptr[51] = /*_.INST__V60*/ curfptr[53];;}
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:2597:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]), (/*_#IX__L6*/ curfnum[5]), (melt_ptr_t)(/*_.NFLA__V59*/ curfptr[51]));}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:2593:/ clear");
+         /*clear*/ /*_.NFLA__V59*/ curfptr[51] = 0 ;}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2589:/ clear");
+        /*clear*/ /*_.LIST_APPEND2LIST__V58*/ curfptr[49] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2589:/ clear");
+       /*clear*/ /*_.NEXPBIND__V57*/ curfptr[47] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
+      /*clear*/ /*_.FLD__V37*/ curfptr[35] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
+      /*clear*/ /*_.EXP__V38*/ curfptr[37] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
+      /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
+      /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;}
+     ;
+     if (/*_#IX__L6*/ curfnum[5]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
+     /*clear*/ /*_.FLA__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
+     /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
+     /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
+     /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
+     /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2599:/ block");
+    /*block*/{
+     /*_.BOX_CONTENT__V62*/ curfptr[45] = 
+      melt_box_content((meltbox_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]));;
+     MELT_LOCATION("warmelt-normal.melt:2600:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      /*_.NCLA__V63*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.BOX_CONTENT__V62*/ curfptr[45]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2601:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2601:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[18])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V65*/ curfptr[42] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2601:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2601:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (1), (/*_.NOBJ__V27*/ curfptr[26]), "NUPUT_OBJ");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2601:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (2), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS");
+      ;
+      /*_.NPUF__V64*/ curfptr[41] = /*_.INST__V65*/ curfptr[42];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2605:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2605:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[19])), (6), "CLASS_NREP_IFISA");/*_.INST__V67*/ curfptr[51] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NIFA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (4), (/*_.NOBJ__V27*/ curfptr[26]), "NIFA_VAL");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NIFA_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (5), (/*_.NCLA__V63*/ curfptr[44]), "NIFA_CLASS");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (2), (/*_.NPUF__V64*/ curfptr[41]), "NIF_THEN");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NEXPR_CTYP");
+      ;
+      /*_.NIF__V66*/ curfptr[43] = /*_.INST__V67*/ curfptr[51];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2613:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2613:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NIF__V66*/ curfptr[43]), "LETBIND_EXPR");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2613:/ touch");
+      meltgc_touch(/*_.CBIND__V21*/ curfptr[20]);
+      ;
+      /*epilog*/}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:2614:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2615:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2615:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2615:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_put_fields result clocc";
+        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[14];
+        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
+        argtab[3].bp_long = 2615;
+        /*_.DEBUG_MSG_FUN__V69*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V68*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[46];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2615:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2615:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[46] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2615:/ cppif.else");
+     /*_.IFCPP___V68*/ curfptr[49] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2616:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2616:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L19*/ curfnum[13] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2616:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_put_fields result nbindlist";
+        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[13];
+        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
+        argtab[3].bp_long = 2616;
+        /*_.DEBUG_MSG_FUN__V71*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V70*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[35];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2616:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2616:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[35] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2616:/ cppif.else");
+     /*_.IFCPP___V70*/ curfptr[47] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:2617:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];;
+      MELT_LOCATION("warmelt-normal.melt:2617:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V19*/ curfptr[18]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2617:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V61*/ curfptr[54] = /*_.RETURN___V72*/ curfptr[37];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.BOX_CONTENT__V62*/ curfptr[45] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.NCLA__V63*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.NPUF__V64*/ curfptr[41] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.NIF__V66*/ curfptr[43] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.IFCPP___V68*/ curfptr[49] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.IFCPP___V70*/ curfptr[47] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
+     /*clear*/ /*_.RETURN___V72*/ curfptr[37] = 0 ;}
+    ;
+    /*_.MULTI___V26*/ curfptr[25] = /*_.LET___V61*/ curfptr[54];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
+    /*clear*/ /*_.LET___V61*/ curfptr[54] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
+   /*clear*/ /*_.NOBJBIND__V28*/ curfptr[27] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V26*/ curfptr[25];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.CLABOX__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
+  /*clear*/ /*_.MULTI___V26*/ curfptr[25] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2526:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2526:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_69_warmelt_normal_NORMEXP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_normal_NORMEXP_SETQ_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 49
+  void* varptr[49];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<49; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 49;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_SETQ", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2622:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2623:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2623:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2623:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2623:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2623:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2623:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2623:/ locexp");
+      melt_assert_failed(( "check setq recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2623)?(2623):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2623:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2623:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2623:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2624:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2624:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2624:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2624:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2624:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2624:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2624)?(2624):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2624:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2624:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2625:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2625:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2625:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2625:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2625:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2625:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2625:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2625)?(2625):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2625:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2625:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2625:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2626:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2626:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2626:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp setq recv";
+    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
+    argtab[3].bp_long = 2626;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2626:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2626:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2626:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2627:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2627:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2628:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTQ_VAR");/*_.SVAR__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2629:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SSTQ_EXPR");/*_.SEXP__V17*/ curfptr[16] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:2630:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:2630:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-normal.melt:2630:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2630:/ cond.then");
+    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:2630:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:2630:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:2630:/ locexp");
+       melt_assert_failed(( "check svar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2630)?(2630):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2630:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2630:/ clear");
+    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:2630:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:2631:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2631:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    /*_.NVAR__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2632:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2632:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    /*_.VARCTYP__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NVAR__V21*/ curfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2634:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2634:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_setq varctyp";
+      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
+      argtab[3].bp_long = 2634;
+      /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2634:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2634:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.else");
+   /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2635:/ block");
+    /*block*/{
+     /*_#IS_A__L7*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));;
+     MELT_LOCATION("warmelt-normal.melt:2635:/ cond");
+     /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:2635:/ cond.then");
+     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:2635:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:2635:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2635:/ locexp");
+        melt_assert_failed(( "check varctyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2635)?(2635):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2635:/ clear");
+     /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2635:/ clear");
+     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.else");
+   /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:2636:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend");
+    /*multimsend*/{
+     union meltparam_un argtab[3];
+     union meltparam_un restab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     memset(&restab, 0, sizeof(restab));
+     MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.xres");
+     restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V29*/ curfptr[28];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.send");
+     /*_.NEXP__V28*/ curfptr[27] =  meltgc_send ((melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2636:/ block");
+    /*block*/{
+     /*_#NULL__L8*/ curfnum[0] = 
+      ((/*_.NBIND__V29*/ curfptr[28]) == NULL);;
+     MELT_LOCATION("warmelt-normal.melt:2639:/ cond");
+     /*cond*/ if (/*_#NULL__L8*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:2639:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:2639:/ block");
+      /*block*/{
+       /*_.MAKE_LIST__V31*/ curfptr[30] = 
+        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+       MELT_LOCATION("warmelt-normal.melt:2639:/ compute");
+       /*_.NBIND__V29*/ curfptr[28] = /*_.SETQ___V32*/ curfptr[31] = /*_.MAKE_LIST__V31*/ curfptr[30];;
+       /*_.IF___V30*/ curfptr[29] = /*_.SETQ___V32*/ curfptr[31];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2639:/ clear");
+       /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2639:/ clear");
+       /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:2639:/ cond.else");
+     
+      /*_.IF___V30*/ curfptr[29] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2640:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2640:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:2640:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+       /*_.EXPCTYP__V33*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.NEXP__V28*/ curfptr[27]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:2642:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:2642:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_setq expctyp";
+         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
+         argtab[3].bp_long = 2642;
+         /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2642:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2642:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.else");
+      /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:2643:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:2643:/ block");
+       /*block*/{
+        /*_#IS_A__L10*/ curfnum[8] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));;
+        MELT_LOCATION("warmelt-normal.melt:2643:/ cond");
+        /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:2643:/ cond.then");
+        /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-normal.melt:2643:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:2643:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:2643:/ locexp");
+           melt_assert_failed(( "check expctyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2643)?(2643):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2643:/ clear");
+        /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2643:/ clear");
+        /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:2643:/ cppif.else");
+      /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_#__L11*/ curfnum[8] = 
+       ((/*_.VARCTYP__V22*/ curfptr[21]) != (/*_.EXPCTYP__V33*/ curfptr[30]));;
+      MELT_LOCATION("warmelt-normal.melt:2644:/ cond");
+      /*cond*/ if (/*_#__L11*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:2644:/ cond.then");
+      MELT_LOCATION("warmelt-normal.melt:2644:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:2647:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[36] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2646:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "incompatible type for SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[36]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:2649:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[38] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2648:/ locexp");
+        melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "left [var] type for incomatible SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[38]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:2651:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2650:/ locexp");
+        melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "right [expr] type for incomatible SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:2645:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[36] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[38] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;}
+       ;
+      } /*noelse*/
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
+      /*clear*/ /*_.EXPCTYP__V33*/ curfptr[30] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
+      /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
+      /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
+      /*clear*/ /*_#__L11*/ curfnum[8] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2653:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2653:/ apply");
+      /*apply*/{
+       /*_.CSYM__V42*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_SETQ_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2659:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2659:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[13])), (3), "CLASS_NREP_SETQ");/*_.INST__V44*/ curfptr[30] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2659:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2659:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (1), (/*_.NVAR__V21*/ curfptr[20]), "NSTQ_VAR");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2659:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NSTQ_EXP", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (2), (/*_.NEXP__V28*/ curfptr[27]), "NSTQ_EXP");
+       ;
+       /*_.INST___V43*/ curfptr[39] = /*_.INST__V44*/ curfptr[30];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2654:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2654:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V46*/ curfptr[34] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (0), (/*_.CSYM__V42*/ curfptr[38]), "BINDER");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (1), (/*_.VARCTYP__V22*/ curfptr[21]), "LETBIND_TYPE");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (2), (/*_.INST___V43*/ curfptr[39]), "LETBIND_EXPR");
+       ;
+       /*_.CBIND__V45*/ curfptr[31] = /*_.INST__V46*/ curfptr[34];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2663:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2663:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V48*/ curfptr[47] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (2), (/*_.VARCTYP__V22*/ curfptr[21]), "NOCC_CTYP");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (1), (/*_.CSYM__V42*/ curfptr[38]), "NOCC_SYMB");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (3), (/*_.CBIND__V45*/ curfptr[31]), "NOCC_BIND");
+       ;
+       /*_.CLOCC__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2669:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.NBIND__V29*/ curfptr[28]), (melt_ptr_t)(/*_.CBIND__V45*/ curfptr[31]));}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2670:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V47*/ curfptr[46];;
+       MELT_LOCATION("warmelt-normal.melt:2670:/ putxtraresult");
+       if (!xrestab_ || !xresdescr_) goto labend_rout;
+       if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+       if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V29*/ curfptr[28]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2670:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.LET___V41*/ curfptr[36] = /*_.RETURN___V49*/ curfptr[48];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
+      /*clear*/ /*_.CSYM__V42*/ curfptr[38] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
+      /*clear*/ /*_.INST___V43*/ curfptr[39] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
+      /*clear*/ /*_.CBIND__V45*/ curfptr[31] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
+      /*clear*/ /*_.CLOCC__V47*/ curfptr[46] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
+      /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;}
+     ;
+     /*_.MULTI___V27*/ curfptr[25] = /*_.LET___V41*/ curfptr[36];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
+     /*clear*/ /*_#NULL__L8*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
+     /*clear*/ /*_.IF___V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
+     /*clear*/ /*_.LET___V41*/ curfptr[36] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
+    /*clear*/ /*_.NBIND__V29*/ curfptr[28] = 0 ;}
+   ;
+   /*_.LET___V20*/ curfptr[18] = /*_.MULTI___V27*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
+   /*clear*/ /*_.NVAR__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
+   /*clear*/ /*_.VARCTYP__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
+   /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
+   /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
+   /*clear*/ /*_.MULTI___V27*/ curfptr[25] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V20*/ curfptr[18];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
+  /*clear*/ /*_.SVAR__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
+  /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2622:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2622:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_SETQ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_69_warmelt_normal_NORMEXP_SETQ*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_70_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2674:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2674:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2674:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:2675:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.NSTQ_VAR__V4*/ curfptr[3] = slot; };
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2675:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:2675:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+  /*_.GET_CTYPE__V5*/ curfptr[4] = meltgc_send((melt_ptr_t)(/*_.NSTQ_VAR__V4*/ curfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2674:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-normal.melt:2674:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2674:/ clear");
+ /*clear*/ /*_.NSTQ_VAR__V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2674:/ clear");
+ /*clear*/ /*_.GET_CTYPE__V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_70_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_71_warmelt_normal_NORMEXP_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_normal_NORMEXP_INSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 43
+  void* varptr[43];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<43; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 43;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_INSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2681:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2682:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2682:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2682:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2682:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2682:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2682:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2682:/ locexp");
+      melt_assert_failed(( "check instance recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2682)?(2682):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2682:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2682:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2682:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2683:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2683:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2683:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2683:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2683:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2683:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2683:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2683)?(2683):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2683:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2683:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2683:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2684:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2684:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2684:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2684:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2684:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2684:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2684:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2684)?(2684):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2684:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2684:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2684:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2685:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2685:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2685:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_instance recv";
+    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
+    argtab[3].bp_long = 2685;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2685:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2685:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2685:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2686:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2686:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2687:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLASS");/*_.SCLASS__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2688:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_CLABIND");/*_.SCLABIND__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2689:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SMINS_FIELDS");/*_.SFIELDS__V18*/ curfptr[17] = slot; };
+  ;
+  /*_#IS_A__L5*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:2690:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:2690:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:2690:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2690:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V20*/ curfptr[19] = slot; };
+    ;
+    /*_.SCLASYM__V19*/ curfptr[18] = /*_.BINDER__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2690:/ clear");
+    /*clear*/ /*_.BINDER__V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:2690:/ cond.else");
+  
+   /*_.SCLASYM__V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  /*_#IS_A__L6*/ curfnum[5] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[5])));;
+  MELT_LOCATION("warmelt-normal.melt:2691:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:2691:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:2691:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2692:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     /*_.NORMAL_EXP__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.CLADATA__V21*/ curfptr[19] = /*_.NORMAL_EXP__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2691:/ clear");
+    /*clear*/ /*_.NORMAL_EXP__V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:2691:/ cond.else");
+  
+   /*_.CLADATA__V21*/ curfptr[19] = NULL;;
+   }
+  ;
+  /*_.BINDLIST__V23*/ curfptr[21] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[7]))));;
+  /*_#IS_A__L7*/ curfnum[6] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V21*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[8])));;
+  /*_#NOT__L8*/ curfnum[7] = 
+   (!(/*_#IS_A__L7*/ curfnum[6]));;
+  MELT_LOCATION("warmelt-normal.melt:2696:/ cond");
+  /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:2696:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:2696:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2698:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:2698:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in (INSTANCE ..)"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2699:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-normal.melt:2699:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2697:/ block");
+    /*block*/{
+     /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;}
+    ;
+    /*_.IF___V24*/ curfptr[23] = /*_.PROGN___V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
+    /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
+    /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:2696:/ cond.else");
+  
+   /*_.IF___V24*/ curfptr[23] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2700:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2703:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2703:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[26] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4));
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[3] = (melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]);
+    ;
+    /*_.LAMBDA___V29*/ curfptr[25] = /*_.LAMBDA___V30*/ curfptr[26];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2701:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2701:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[25];
+    /*_.NFIELDS__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SFIELDS__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2720:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2720:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_INSTANCE*/ curfrout->tabval[15])), (4), "CLASS_NREP_INSTANCE");/*_.INST__V33*/ curfptr[32] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NMINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SCLASS__V16*/ curfptr[15]), "NMINS_CLASS");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NMINS_CLADATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.CLADATA__V21*/ curfptr[19]), "NMINS_CLADATA");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NMINS_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.NFIELDS__V31*/ curfptr[30]), "NMINS_FIELDS");
+    ;
+    /*_.NMKINS__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2725:/ apply");
+   /*apply*/{
+    /*_.CSYM__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[16])), (melt_ptr_t)((/*!konst_17_INST_*/ curfrout->tabval[17])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2726:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2726:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V36*/ curfptr[35] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.CSYM__V34*/ curfptr[33]), "BINDER");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "LETBIND_TYPE");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.NMKINS__V32*/ curfptr[31]), "LETBIND_EXPR");
+    ;
+    /*_.CBIND__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2731:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2731:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V38*/ curfptr[37] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "NOCC_CTYP");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.CSYM__V34*/ curfptr[33]), "NOCC_SYMB");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.CBIND__V35*/ curfptr[34]), "NOCC_BIND");
+    ;
+    /*_.CLOCC__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:2737:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (melt_ptr_t)(/*_.CBIND__V35*/ curfptr[34]));}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2738:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2738:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2738:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_instance result clocc";
+      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
+      argtab[3].bp_long = 2738;
+      /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2738:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2738:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2738:/ cppif.else");
+   /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2739:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2739:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2739:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_instance result bindlist";
+      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
+      argtab[3].bp_long = 2739;
+      /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2739:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2739:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2739:/ cppif.else");
+   /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:2740:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V37*/ curfptr[36];;
+    MELT_LOCATION("warmelt-normal.melt:2740:/ putxtraresult");
+    if (!xrestab_ || !xresdescr_) goto labend_rout;
+    if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+    if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V23*/ curfptr[21]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2740:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V28*/ curfptr[24] = /*_.RETURN___V43*/ curfptr[41];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.LAMBDA___V29*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.NFIELDS__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.NMKINS__V32*/ curfptr[31] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.CSYM__V34*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.CBIND__V35*/ curfptr[34] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.CLOCC__V37*/ curfptr[36] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
+   /*clear*/ /*_.RETURN___V43*/ curfptr[41] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V28*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.SCLASS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.SCLABIND__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.SFIELDS__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.SCLASYM__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.CLADATA__V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.BINDLIST__V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.IF___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
+  /*clear*/ /*_.LET___V28*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2681:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2681:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_71_warmelt_normal_NORMEXP_INSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_72_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2703:/ getarg");
+ /*_.CURFLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2703:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2703:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2704:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2704:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2704:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2704:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2704:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2704:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2704:/ locexp");
+      melt_assert_failed(( "check curflda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2704)?(2704):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2704:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2704:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2704:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2705:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2705:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.CURFLOC__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2706:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFIELD__V7*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2707:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#NULL__L3*/ curfnum[1] = 
+   ((/*_.CURFLOC__V6*/ curfptr[5]) == NULL);;
+  MELT_LOCATION("warmelt-normal.melt:2708:/ cond");
+  /*cond*/ if (/*_#NULL__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:2708:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:2708:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2708:/ compute");
+    /*_.CURFLOC__V6*/ curfptr[5] = /*_.SETQ___V10*/ curfptr[9] = (/*~SLOC*/ curfclos->tabval[0]);;
+    /*_.IF___V9*/ curfptr[8] = /*_.SETQ___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2708:/ clear");
+    /*clear*/ /*_.SETQ___V10*/ curfptr[9] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:2708:/ cond.else");
+  
+   /*_.IF___V9*/ curfptr[8] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2709:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CURFLOC__V6*/ curfptr[5];
+    MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V13*/ curfptr[12];MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.send");
+    /*_.NEXP__V12*/ curfptr[11] =  meltgc_send ((melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2709:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:2712:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:2712:/ block");
+     /*block*/{
+      /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = 
+       ((/*_.NBIND__V13*/ curfptr[12]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V13*/ curfptr[12])) == OBMAG_LIST));;
+      MELT_LOCATION("warmelt-normal.melt:2712:/ cond");
+      /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[3]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:2712:/ cond.then");
+      /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:2712:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:2712:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:2712:/ locexp");
+         melt_assert_failed(( "check nbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2712)?(2712):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2712:/ clear");
+      /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2712:/ clear");
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:2712:/ cppif.else");
+    /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:2713:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2713:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V13*/ curfptr[12];
+     /*_.LIST_APPEND2LIST__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)((/*~BINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2714:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2714:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[3])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V18*/ curfptr[17] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2714:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.CURFLOC__V6*/ curfptr[5]), "NREP_LOC");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2714:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.CURFIELD__V7*/ curfptr[6]), "NFLA_FIELD");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2714:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NEXP__V12*/ curfptr[11]), "NFLA_VAL");
+     ;
+     /*_.INST___V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
+    ;
+    /*_.MULTI___V11*/ curfptr[9] = /*_.INST___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
+    /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
+    /*clear*/ /*_.INST___V17*/ curfptr[16] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
+   /*clear*/ /*_.NBIND__V13*/ curfptr[12] = 0 ;}
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.MULTI___V11*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
+  /*clear*/ /*_.CURFLOC__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
+  /*clear*/ /*_.CURFIELD__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
+  /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
+  /*clear*/ /*_#NULL__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
+  /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
+  /*clear*/ /*_.MULTI___V11*/ curfptr[9] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2703:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:2703:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2703:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2703:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_72_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_73_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2746:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2746:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2746:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:2746:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);;
+  MELT_LOCATION("warmelt-normal.melt:2746:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_73_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_74_warmelt_normal_NORMEXP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_normal_NORMEXP_FOREVER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 73
+  void* varptr[73];
+#define CURFRAM_NBVARNUM 22
+  long varnum[22];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<73; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 73;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_FOREVER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2751:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt: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(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2751:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2751:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2751:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2752:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FOREVER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2752:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2752:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2752:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2752:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2752:/ locexp");
+      melt_assert_failed(( "check forever recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2752)?(2752):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2752:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2752:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2753:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2753:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2753:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2753:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2753:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2753:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2753:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2753)?(2753):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2753:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2753:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2753:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2754:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2754:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2754:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2754:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2754:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2754:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2754:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2754)?(2754):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2754:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2754:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2754:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2755:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2755:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_forever recv";
+    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
+    argtab[3].bp_long = 2755;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2755:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2755:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2756:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2756:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2757:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2758:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SFRV_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2759:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:2761:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:2761:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));;
+    MELT_LOCATION("warmelt-normal.melt:2761:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2761:/ cond.then");
+    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:2761:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:2761:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:2761:/ locexp");
+       melt_assert_failed(( "check slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2761)?(2761):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2761:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2761:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:2761:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:2762:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:2762:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15];
+   /*_.PUT_ENV__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2763:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2763:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[22] = slot; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ apply");
+   /*apply*/{
+    /*_.RESY__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.BINDER__V23*/ curfptr[22]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2764:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2764:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2764:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_forever putting resy..";
+      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
+      argtab[3].bp_long = 2764;
+      /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2764:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2764:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2764:/ cppif.else");
+   /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2765:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2765:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2765:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
+      argtab[0].bp_cstring =  "..normexp_forever in slbind";
+      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
+      argtab[3].bp_long = 2765;
+      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2765:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2765:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2765:/ cppif.else");
+   /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2766:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2766:/ block");
+    /*block*/{
+     /*_#IS_OBJECT__L8*/ curfnum[0] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);;
+     MELT_LOCATION("warmelt-normal.melt:2766:/ cond");
+     /*cond*/ if (/*_#IS_OBJECT__L8*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:2766:/ cond.then");
+     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:2766:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:2766:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2766:/ locexp");
+        melt_assert_failed(( "check resy obj1"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2766)?(2766):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2766:/ clear");
+     /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2766:/ clear");
+     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2766:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:2767:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2767:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LABIND_CLONSY", melt_magic_discr((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.SLBIND__V16*/ curfptr[15]), (2), (/*_.RESY__V24*/ curfptr[23]), "LABIND_CLONSY");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2767:/ touch");
+    meltgc_touch(/*_.SLBIND__V16*/ curfptr[15]);
+    ;
+    /*epilog*/}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2768:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2768:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2768:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_forever updated slbind";
+      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
+      argtab[3].bp_long = 2768;
+      /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2768:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2768:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2768:/ cppif.else");
+   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2769:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2769:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2769:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_forever clonsy put resy";
+      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
+      argtab[3].bp_long = 2769;
+      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2769:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2769:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2769:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2770:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2770:/ block");
+    /*block*/{
+     /*_#IS_A__L11*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[8])));;
+     MELT_LOCATION("warmelt-normal.melt:2770:/ cond");
+     /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:2770:/ cond.then");
+     /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:2770:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:2770:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2770:/ locexp");
+        melt_assert_failed(( "check resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2770)?(2770):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2770:/ clear");
+     /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2770:/ clear");
+     /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2770:/ cppif.else");
+   /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2771:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2771:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2771:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V38*/ curfptr[37] = slot; };
+     ;
+     /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:2771:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_forever got1 clonsy";
+      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
+      argtab[3].bp_long = 2771;
+      /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LABIND_CLONSY__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2771:/ clear");
+     /*clear*/ /*_.LABIND_CLONSY__V38*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2771:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2771:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2771:/ cppif.else");
+   /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2772:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2772:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:2772:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V41*/ curfptr[38] = slot; };
+     ;
+     /*_#__L13*/ curfnum[0] = 
+      ((/*_.LABIND_CLONSY__V41*/ curfptr[38]) == (/*_.RESY__V24*/ curfptr[23]));;
+     MELT_LOCATION("warmelt-normal.melt:2772:/ cond");
+     /*cond*/ if (/*_#__L13*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:2772:/ cond.then");
+     /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:2772:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:2772:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2772:/ locexp");
+        melt_assert_failed(( "check did1 put resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2772)?(2772):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V40*/ curfptr[37] = /*_.IFELSE___V42*/ curfptr[41];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2772:/ clear");
+     /*clear*/ /*_.LABIND_CLONSY__V41*/ curfptr[38] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2772:/ clear");
+     /*clear*/ /*_#__L13*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2772:/ clear");
+     /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2772:/ cppif.else");
+   /*_.IFCPP___V40*/ curfptr[37] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:2773:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:2773:/ block");
+    /*block*/{
+     /*_#IS_OBJECT__L14*/ curfnum[0] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);;
+     MELT_LOCATION("warmelt-normal.melt:2773:/ cond");
+     /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:2773:/ cond.then");
+     /*_.IFELSE___V44*/ curfptr[41] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:2773:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:2773:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2773:/ locexp");
+        melt_assert_failed(( "check resy obj2"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2773)?(2773):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V43*/ curfptr[38] = /*_.IFELSE___V44*/ curfptr[41];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2773:/ clear");
+     /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2773:/ clear");
+     /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:2773:/ cppif.else");
+   /*_.IFCPP___V43*/ curfptr[38] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:2774:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply");
+    /*multiapply 4args, 1x.res*/ {
+     union meltparam_un argtab[3];
+     
+     union meltparam_un restab[1];
+     memset(&restab, 0, sizeof(restab));
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.xres");
+     restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46];
+     MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.appl");
+     /*_.NBODY__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2774:/ block");
+    /*block*/{
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2777:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2777:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2777:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_forever again slbind";
+        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
+        argtab[3].bp_long = 2777;
+        /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2777:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2777:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2777:/ cppif.else");
+     /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2778:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2778:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2778:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V51*/ curfptr[50] = slot; };
+       ;
+       /*_#__L16*/ curfnum[0] = 
+        ((/*_.LABIND_CLONSY__V51*/ curfptr[50]) == (/*_.RESY__V24*/ curfptr[23]));;
+       MELT_LOCATION("warmelt-normal.melt:2778:/ cond");
+       /*cond*/ if (/*_#__L16*/ curfnum[0]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:2778:/ cond.then");
+       /*_.IFELSE___V52*/ curfptr[51] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-normal.melt:2778:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:2778:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:2778:/ locexp");
+          melt_assert_failed(( "check did2 put resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2778)?(2778):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V52*/ curfptr[51];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2778:/ clear");
+       /*clear*/ /*_.LABIND_CLONSY__V51*/ curfptr[50] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2778:/ clear");
+       /*clear*/ /*_#__L16*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2778:/ clear");
+       /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2778:/ cppif.else");
+     /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2779:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2779:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2779:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V54*/ curfptr[51] = slot; };
+       ;
+       /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2779:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_forever got2 clonsy";
+        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
+        argtab[3].bp_long = 2779;
+        /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LABIND_CLONSY__V54*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V53*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2779:/ clear");
+       /*clear*/ /*_.LABIND_CLONSY__V54*/ curfptr[51] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2779:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2779:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2779:/ cppif.else");
+     /*_.IFCPP___V53*/ curfptr[50] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2780:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2780:/ block");
+      /*block*/{
+       /*_#GET_INT__L18*/ curfnum[0] = 
+        (melt_get_int((melt_ptr_t)((/*!LABIND_CLONSY*/ curfrout->tabval[10]))));;
+       /*_#OBJECT_LENGTH__L19*/ curfnum[18] = 
+        ((long)melt_object_length((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])));;
+       /*_#I__L20*/ curfnum[19] = 
+        ((/*_#GET_INT__L18*/ curfnum[0]) < (/*_#OBJECT_LENGTH__L19*/ curfnum[18]));;
+       MELT_LOCATION("warmelt-normal.melt:2780:/ cond");
+       /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:2780:/ cond.then");
+       /*_.IFELSE___V57*/ curfptr[54] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-normal.melt:2780:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:2780:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:2780:/ locexp");
+          melt_assert_failed(( "check size slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2780)?(2780):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V56*/ curfptr[51] = /*_.IFELSE___V57*/ curfptr[54];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
+       /*clear*/ /*_#GET_INT__L18*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
+       /*clear*/ /*_#OBJECT_LENGTH__L19*/ curfnum[18] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
+       /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
+       /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2780:/ cppif.else");
+     /*_.IFCPP___V56*/ curfptr[51] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:2781:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2783:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:2783:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46];
+       MELT_LOCATION("warmelt-normal.melt:2783:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+       /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.RESBODY__V60*/ curfptr[59] = 
+       (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58])));;
+      MELT_LOCATION("warmelt-normal.melt:2784:/ apply");
+      /*apply*/{
+       /*_.CSYM__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)((/*!konst_13_FOREVER_*/ curfrout->tabval[13])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2785:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2785:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FOREVER*/ curfrout->tabval[14])), (4), "CLASS_NREP_FOREVER");/*_.INST__V63*/ curfptr[62] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NFOREVER_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NFOREVER_BIND");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NFOREVER_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.RESBODY__V60*/ curfptr[59]), "NFOREVER_BODY");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NFOREVER_RESULT", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), (/*_.RESY__V24*/ curfptr[23]), "NFOREVER_RESULT");
+       ;
+       /*_.NFOREVER__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2790:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2790:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V65*/ curfptr[64] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.CSYM__V61*/ curfptr[60]), "BINDER");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "LETBIND_TYPE");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), (/*_.NFOREVER__V62*/ curfptr[61]), "LETBIND_EXPR");
+       ;
+       /*_.CBIND__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2795:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:2795:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V67*/ curfptr[66] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (1), (/*_.CSYM__V61*/ curfptr[60]), "NOCC_SYMB");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (3), (/*_.CBIND__V64*/ curfptr[63]), "NOCC_BIND");
+       ;
+       /*_.CLOCC__V66*/ curfptr[65] = /*_.INST__V67*/ curfptr[66];;}
+      ;
+      /*_.NFORBINDINGS__V68*/ curfptr[67] = 
+       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[18]))));;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2802:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.NFORBINDINGS__V68*/ curfptr[67]), (melt_ptr_t)(/*_.CBIND__V64*/ curfptr[63]));}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:2803:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:2803:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:2803:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_forever return nforever";
+         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0];
+         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
+         argtab[3].bp_long = 2803;
+         /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2803:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2803:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:2803:/ cppif.else");
+      /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:2804:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:2804:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L22*/ curfnum[18] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:2804:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_forever return nforever";
+         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[18];
+         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
+         argtab[3].bp_long = 2804;
+         /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V71*/ curfptr[69] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2804:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[18] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2804:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:2804:/ cppif.else");
+      /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:2805:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V66*/ curfptr[65];;
+       MELT_LOCATION("warmelt-normal.melt:2805:/ putxtraresult");
+       if (!xrestab_ || !xresdescr_) goto labend_rout;
+       if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+       if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NFORBINDINGS__V68*/ curfptr[67]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:2805:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.LET___V58*/ curfptr[54] = /*_.RETURN___V73*/ curfptr[71];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.RESBODY__V60*/ curfptr[59] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.CSYM__V61*/ curfptr[60] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.NFOREVER__V62*/ curfptr[61] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.CBIND__V64*/ curfptr[63] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.CLOCC__V66*/ curfptr[65] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.NFORBINDINGS__V68*/ curfptr[67] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
+      /*clear*/ /*_.RETURN___V73*/ curfptr[71] = 0 ;}
+     ;
+     /*_.MULTI___V45*/ curfptr[41] = /*_.LET___V58*/ curfptr[54];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
+     /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
+     /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
+     /*clear*/ /*_.IFCPP___V53*/ curfptr[50] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
+     /*clear*/ /*_.IFCPP___V56*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
+     /*clear*/ /*_.LET___V58*/ curfptr[54] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
+    /*clear*/ /*_.NBODBINDINGS__V47*/ curfptr[46] = 0 ;}
+   ;
+   /*_.LET___V22*/ curfptr[21] = /*_.MULTI___V45*/ curfptr[41];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.BINDER__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.RESY__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V40*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.IFCPP___V43*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
+   /*clear*/ /*_.MULTI___V45*/ curfptr[41] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V22*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
+  /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2751:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2751:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_FOREVER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_74_warmelt_normal_NORMEXP_FOREVER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_75_warmelt_normal_NORMEXP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_normal_NORMEXP_EXIT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 41
+  void* varptr[41];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<41; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 41;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_EXIT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2815:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2816:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXIT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2816:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2816:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2816:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2816:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2816:/ locexp");
+      melt_assert_failed(( "check exit recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2816)?(2816):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2816:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2816:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2817:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2817:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2817:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2817:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2817:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2817:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2817:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2817)?(2817):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2817:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2817:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2817:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2818:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2818:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2818:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2818:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2818:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2818:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2818:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2818)?(2818):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2818:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2818:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2818:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2819:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2819:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2819:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_exit recv";
+    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
+    argtab[3].bp_long = 2819;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2819:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2819:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2819:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2820:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2820:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2821:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2822:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXI_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2823:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:2825:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:2825:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));;
+    MELT_LOCATION("warmelt-normal.melt:2825:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2825:/ cond.then");
+    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:2825:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:2825:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:2825:/ locexp");
+       melt_assert_failed(( "check slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2825)?(2825):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2825:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2825:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:2825:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:2826:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:2826:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15];
+   /*_.PUT_ENV__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2827:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply");
+   /*multiapply 4args, 1x.res*/ {
+    union meltparam_un argtab[3];
+    
+    union meltparam_un restab[1];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V24*/ curfptr[23];
+    MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.appl");
+    /*_.NBODY__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2827:/ block");
+   /*block*/{
+    /*_#NULL__L6*/ curfnum[0] = 
+     ((/*_.NBODBINDINGS__V24*/ curfptr[23]) == NULL);;
+    MELT_LOCATION("warmelt-normal.melt:2830:/ cond");
+    /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2830:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:2830:/ block");
+     /*block*/{
+      /*_.MAKE_LIST__V26*/ curfptr[25] = 
+       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+      MELT_LOCATION("warmelt-normal.melt:2831:/ compute");
+      /*_.NBODBINDINGS__V24*/ curfptr[23] = /*_.SETQ___V27*/ curfptr[26] = /*_.MAKE_LIST__V26*/ curfptr[25];;
+      /*_.IF___V25*/ curfptr[24] = /*_.SETQ___V27*/ curfptr[26];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2830:/ clear");
+      /*clear*/ /*_.MAKE_LIST__V26*/ curfptr[25] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2830:/ clear");
+      /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:2830:/ cond.else");
+    
+     /*_.IF___V25*/ curfptr[24] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:2833:/ block");
+    /*block*/{
+     /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.NBODY__V23*/ curfptr[22])));;
+     /*_#I__L8*/ curfnum[7] = 
+      ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) - (1));;
+     /*_.MULTIPLE_NTH__V29*/ curfptr[26] = 
+      (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V23*/ curfptr[22]), (/*_#I__L8*/ curfnum[7])));;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2833:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_EXIT*/ curfrout->tabval[9])), (3), "CLASS_NREP_EXIT");/*_.INST__V31*/ curfptr[30] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2833:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2833:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXIT_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NEXIT_BIND");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2833:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXIT_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.MULTIPLE_NTH__V29*/ curfptr[26]), "NEXIT_VAL");
+      ;
+      /*_.NEXIT__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2837:/ apply");
+     /*apply*/{
+      /*_.CSYM__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_EXIT_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2838:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2838:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V34*/ curfptr[33] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.CSYM__V32*/ curfptr[31]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.NEXIT__V30*/ curfptr[29]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2843:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2843:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V36*/ curfptr[35] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.CSYM__V32*/ curfptr[31]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.CBIND__V33*/ curfptr[32]), "NOCC_BIND");
+      ;
+      /*_.CLOCC__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:2849:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (melt_ptr_t)(/*_.CBIND__V33*/ curfptr[32]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2850:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2850:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2850:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_exit nexit";
+        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
+        argtab[3].bp_long = 2850;
+        /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXIT__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2850:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2850:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2850:/ cppif.else");
+     /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:2851:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:2851:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:2851:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_exit nbodbindings";
+        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
+        argtab[3].bp_long = 2851;
+        /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:2851:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:2851:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:2851:/ cppif.else");
+     /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:2852:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V35*/ curfptr[34];;
+      MELT_LOCATION("warmelt-normal.melt:2852:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBODBINDINGS__V24*/ curfptr[23]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2852:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V28*/ curfptr[25] = /*_.RETURN___V41*/ curfptr[39];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.MULTIPLE_NTH__V29*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.NEXIT__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.CSYM__V32*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.CBIND__V33*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.CLOCC__V35*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
+     /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ;}
+    ;
+    /*_.MULTI___V22*/ curfptr[21] = /*_.LET___V28*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
+    /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
+    /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
+    /*clear*/ /*_.LET___V28*/ curfptr[25] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
+   /*clear*/ /*_.NBODBINDINGS__V24*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
+  /*clear*/ /*_.MULTI___V22*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2815:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2815:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_EXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_75_warmelt_normal_NORMEXP_EXIT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_COMPILEWARNING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2858:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2859:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2859:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMPILEWARNING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2859:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2859:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2859:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2859:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2859:/ locexp");
+      melt_assert_failed(( "check compilewarn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2859)?(2859):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2859:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2859:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2859:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2860:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2860:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2860:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2860:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2860:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2860:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2860:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2860)?(2860):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2860:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2860:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2860:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2861:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2861:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2861:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2861:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2861:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2861:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2861:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2861)?(2861):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2861:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2861:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2861:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2862:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2862:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2862:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_compile_warning recv";
+    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
+    argtab[3].bp_long = 2862;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2862:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2862:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2862:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2863:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2863:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2864:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCWARN_MSG");/*_.SWMSG__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2865:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCWARN_EXPR");/*_.SWEXP__V17*/ curfptr[16] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:2867:/ locexp");
+  melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "COMPILE_WARNING:"), (melt_ptr_t)(/*_.SWMSG__V16*/ curfptr[15]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2868:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.send");
+    /*_.NEXP__V19*/ curfptr[18] =  meltgc_send ((melt_ptr_t)(/*_.SWEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[4]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2868:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:2871:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:2871:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:2871:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_compile_warning nesult nexp";
+       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
+       argtab[3].bp_long = 2871;
+       /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2871:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2871:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:2871:/ cppif.else");
+    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:2872:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:2872:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:2872:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_compile_warning result nbind";
+       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
+       argtab[3].bp_long = 2872;
+       /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBIND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2872:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2872:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:2872:/ cppif.else");
+    /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:2873:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.NEXP__V19*/ curfptr[18];;
+     MELT_LOCATION("warmelt-normal.melt:2873:/ putxtraresult");
+     if (!xrestab_ || !xresdescr_) goto labend_rout;
+     if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+     if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V20*/ curfptr[19]);
+     ;
+     MELT_LOCATION("warmelt-normal.melt:2873:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.MULTI___V18*/ curfptr[17] = /*_.RETURN___V25*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
+    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
+    /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
+    /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
+   /*clear*/ /*_.NBIND__V20*/ curfptr[19] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V18*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
+  /*clear*/ /*_.SWMSG__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
+  /*clear*/ /*_.SWEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
+  /*clear*/ /*_.MULTI___V18*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2858:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2858:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_COMPILEWARNING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_77_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2878:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2878:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2878:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:2878:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCWARN_EXPR");/*_.SCWARN_EXPR__V4*/ curfptr[3] = slot; };
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2878:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:2878:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+  /*_.GET_CTYPE__V5*/ curfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCWARN_EXPR__V4*/ curfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2878:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-normal.melt:2878:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2878:/ clear");
+ /*clear*/ /*_.SCWARN_EXPR__V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2878:/ clear");
+ /*clear*/ /*_.GET_CTYPE__V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_77_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 57
+  void* varptr[57];
+#define CURFRAM_NBVARNUM 17
+  long varnum[17];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<57; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 57;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("REPLACE_LAST_BY_RETURN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2882:/ getarg");
+ /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2882:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2882:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2882:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2883:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2883:/ block");
+  /*block*/{
+   /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
+   MELT_LOCATION("warmelt-normal.melt:2883:/ cond");
+   /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2883:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2883:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2883:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2883:/ locexp");
+      melt_assert_failed(( "check tup"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2883)?(2883):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2883:/ clear");
+   /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2883:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2883:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2884:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2884:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2884:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2884:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2884:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2884:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2884:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2884)?(2884):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2884:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2884:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2884:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2885:/ block");
+ /*block*/{
+  /*_#TUPLEN__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])));;
+  /*_#I__L4*/ curfnum[3] = 
+   ((/*_#TUPLEN__L3*/ curfnum[0]) > (0));;
+  MELT_LOCATION("warmelt-normal.melt:2886:/ cond");
+  /*cond*/ if (/*_#I__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:2886:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:2886:/ block");
+   /*block*/{
+    /*_#I__L5*/ curfnum[4] = 
+     ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
+    /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L5*/ curfnum[4])));;
+    /*_.LASTCOMP__V10*/ curfptr[9] = /*_.MULTIPLE_NTH__V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2886:/ clear");
+    /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2886:/ clear");
+    /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:2886:/ cond.else");
+  
+   /*_.LASTCOMP__V10*/ curfptr[9] = NULL;;
+   }
+  ;
+  /*_#IS_A__L6*/ curfnum[4] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-normal.melt:2889:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:2889:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:2889:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:2890:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+     MELT_LOCATION("warmelt-normal.melt:2890:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IFELSE___V12*/ curfptr[10] = /*_.RETURN___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2889:/ clear");
+    /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:2889:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:2889:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[6] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-normal.melt:2893:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:2893:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:2893:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:2894:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V15*/ curfptr[14] = slot; };
+      ;
+      /*_#__L8*/ curfnum[7] = 
+       ((/*_.NOCC_CTYP__V15*/ curfptr[14]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));;
+      MELT_LOCATION("warmelt-normal.melt:2894:/ cond");
+      /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:2894:/ cond.then");
+      MELT_LOCATION("warmelt-normal.melt:2894:/ block");
+       /*block*/{
+        /*_#I__L9*/ curfnum[8] = 
+         ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
+        MELT_LOCATION("warmelt-normal.melt:2897:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:2897:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V17*/ curfptr[16] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:2897:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:2897:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN");
+         ;
+         /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2895:/ locexp");
+        meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L9*/ curfnum[8]), (melt_ptr_t)(/*_.INST___V16*/ curfptr[15]));}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2894:/ clear");
+        /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2894:/ clear");
+        /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;}
+       ;
+      } /*noelse*/
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2900:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+       MELT_LOCATION("warmelt-normal.melt:2900:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:2893:/ block");
+      /*block*/{
+       /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[15];;}
+      ;
+      /*_.IFELSE___V14*/ curfptr[12] = /*_.PROGN___V19*/ curfptr[18];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
+      /*clear*/ /*_.NOCC_CTYP__V15*/ curfptr[14] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
+      /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
+      /*clear*/ /*_.RETURN___V18*/ curfptr[15] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
+      /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:2893:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:2893:/ block");
+     /*block*/{
+      /*_#IS_A__L10*/ curfnum[8] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[4])));;
+      MELT_LOCATION("warmelt-normal.melt:2903:/ cond");
+      /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:2903:/ cond.then");
+      MELT_LOCATION("warmelt-normal.melt:2903:/ block");
+       /*block*/{
+        /*_#I__L11*/ curfnum[7] = 
+         ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
+        MELT_LOCATION("warmelt-normal.melt:2906:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:2906:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V22*/ curfptr[18] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:2906:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V22*/ curfptr[18]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:2906:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V22*/ curfptr[18]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN");
+         ;
+         /*_.INST___V21*/ curfptr[15] = /*_.INST__V22*/ curfptr[18];;}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:2904:/ locexp");
+        meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L11*/ curfnum[7]), (melt_ptr_t)(/*_.INST___V21*/ curfptr[15]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:2909:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+         MELT_LOCATION("warmelt-normal.melt:2909:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:2903:/ block");
+        /*block*/{
+         /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;}
+        ;
+        /*_.IFELSE___V20*/ curfptr[14] = /*_.PROGN___V24*/ curfptr[23];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
+        /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
+        /*clear*/ /*_.INST___V21*/ curfptr[15] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
+        /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
+        /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-normal.melt:2903:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:2903:/ block");
+       /*block*/{
+        /*_#NULL__L12*/ curfnum[7] = 
+         ((/*_.LASTCOMP__V10*/ curfptr[9]) == NULL);;
+        MELT_LOCATION("warmelt-normal.melt:2912:/ cond");
+        /*cond*/ if (/*_#NULL__L12*/ curfnum[7]) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:2912:/ cond.then");
+        MELT_LOCATION("warmelt-normal.melt:2912:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:2913:/ block");
+          /*block*/{
+           /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+           MELT_LOCATION("warmelt-normal.melt:2913:/ finalreturn");
+           ;
+           /*finalret*/ goto labend_rout ;}
+          ;
+          /*_.IFELSE___V25*/ curfptr[15] = /*_.RETURN___V26*/ curfptr[22];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:2912:/ clear");
+          /*clear*/ /*_.RETURN___V26*/ curfptr[22] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-normal.melt:2912:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:2912:/ block");
+         /*block*/{
+          /*_#IS_A__L13*/ curfnum[12] = 
+           melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])));;
+          MELT_LOCATION("warmelt-normal.melt:2916:/ cond");
+          /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
+          MELT_LOCATION("warmelt-normal.melt:2916:/ cond.then");
+          MELT_LOCATION("warmelt-normal.melt:2916:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-normal.melt:2917:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-normal.melt:2917:/ getslot");
+             { melt_ptr_t slot=0;
+              melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NLET_BODY");/*_.LBODY__V29*/ curfptr[28] = slot; };
+             ;
+             MELT_LOCATION("warmelt-normal.melt:2918:/ getslot");
+             { melt_ptr_t slot=0;
+              melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 1, "NLET_BINDINGS");/*_.LBINDING__V30*/ curfptr[29] = slot; };
+             ;
+             MELT_LOCATION("warmelt-normal.melt:2919:/ getslot");
+             { melt_ptr_t slot=0;
+              melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LLOC__V31*/ curfptr[30] = slot; };
+             ;
+             MELT_LOCATION("warmelt-normal.melt:2920:/ apply");
+             /*apply*/{
+              /*_.NEWENV__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+              }
+             ;
+             MELT_LOCATION("warmelt-normal.melt:2924:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-normal.melt:2924:/ newclosure");
+               /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[33] =
+               meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
+              ;
+              MELT_LOCATION("warmelt-normal.melt:2924:/ putclosedv");
+              /*putclosv*/
+              melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[33])) == OBMAG_CLOSURE);
+              melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[33])));
+              ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[33])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V32*/ curfptr[31]);
+              ;
+              /*_.LAMBDA___V33*/ curfptr[32] = /*_.LAMBDA___V34*/ curfptr[33];;}
+             ;
+             MELT_LOCATION("warmelt-normal.melt:2922:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[1];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-normal.melt:2922:/ apply.arg");
+              argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[32];
+              /*_.MULTIPLE_EVERY__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.LBINDING__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_#IS_MULTIPLE__L14*/ curfnum[13] = 
+              (melt_magic_discr((melt_ptr_t)(/*_.LBODY__V29*/ curfptr[28])) == OBMAG_MULTIPLE);;
+             MELT_LOCATION("warmelt-normal.melt:2927:/ cond");
+             /*cond*/ if (/*_#IS_MULTIPLE__L14*/ curfnum[13]) /*then*/ {
+             MELT_LOCATION("warmelt-normal.melt:2927:/ cond.then");
+             MELT_LOCATION("warmelt-normal.melt:2927:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-normal.melt:2928:/ apply");
+               /*apply*/{
+                union meltparam_un argtab[2];
+                memset(&argtab, 0, sizeof(argtab));
+                MELT_LOCATION("warmelt-normal.melt:2928:/ apply.arg");
+                argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V32*/ curfptr[31];
+                MELT_LOCATION("warmelt-normal.melt:2928:/ apply.arg");
+                argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LLOC__V31*/ curfptr[30];
+                /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.LBODY__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+                }
+               ;
+               /*_.IF___V36*/ curfptr[35] = /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-normal.melt:2927:/ clear");
+               /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] = 0 ;}
+              ;
+             } else {MELT_LOCATION("warmelt-normal.melt:2927:/ cond.else");
+             
+              /*_.IF___V36*/ curfptr[35] = NULL;;
+              }
+             ;
+             MELT_LOCATION("warmelt-normal.melt:2929:/ block");
+             /*block*/{
+              /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+              MELT_LOCATION("warmelt-normal.melt:2929:/ finalreturn");
+              ;
+              /*finalret*/ goto labend_rout ;}
+             ;
+             /*_.LET___V28*/ curfptr[22] = /*_.RETURN___V38*/ curfptr[36];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.LBODY__V29*/ curfptr[28] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.LBINDING__V30*/ curfptr[29] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.LLOC__V31*/ curfptr[30] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.NEWENV__V32*/ curfptr[31] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.LAMBDA___V33*/ curfptr[32] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.MULTIPLE_EVERY__V35*/ curfptr[34] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_#IS_MULTIPLE__L14*/ curfnum[13] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.IF___V36*/ curfptr[35] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
+             /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;}
+            ;
+            /*_.IFELSE___V27*/ curfptr[23] = /*_.LET___V28*/ curfptr[22];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-normal.melt:2916:/ clear");
+            /*clear*/ /*_.LET___V28*/ curfptr[22] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-normal.melt:2916:/ cond.else");
+          
+           MELT_LOCATION("warmelt-normal.melt:2916:/ block");
+           /*block*/{
+            /*_#IS_A__L15*/ curfnum[13] = 
+             melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[11])));;
+            MELT_LOCATION("warmelt-normal.melt:2933:/ cond");
+            /*cond*/ if (/*_#IS_A__L15*/ curfnum[13]) /*then*/ {
+            MELT_LOCATION("warmelt-normal.melt:2933:/ cond.then");
+            MELT_LOCATION("warmelt-normal.melt:2933:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-normal.melt:2934:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-normal.melt:2934:/ msend");
+               /*msend*/{
+                union meltparam_un argtab[1];
+                memset(&argtab, 0, sizeof(argtab));
+                MELT_LOCATION("warmelt-normal.melt:2934:/ ojbmsend.arg");
+                argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+                /*_.LASTYP__V41*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+                }
+               ;
+               MELT_LOCATION("warmelt-normal.melt:2935:/ getslot");
+               { melt_ptr_t slot=0;
+                melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LOC__V42*/ curfptr[31] = slot; };
+               ;
+               /*_#__L16*/ curfnum[15] = 
+                ((/*_.LASTYP__V41*/ curfptr[30]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));;
+               MELT_LOCATION("warmelt-normal.melt:2937:/ cond");
+               /*cond*/ if (/*_#__L16*/ curfnum[15]) /*then*/ {
+               MELT_LOCATION("warmelt-normal.melt:2937:/ cond.then");
+               MELT_LOCATION("warmelt-normal.melt:2937:/ block");
+                /*block*/{
+                 MELT_LOCATION("warmelt-normal.melt:2938:/ block");
+                 /*block*/{
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ apply");
+                  /*apply*/{
+                   /*_.RCLOSYM__V45*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[13])), (melt_ptr_t)((/*!konst_14_RETVAL_*/ curfrout->tabval[14])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+                   }
+                  ;
+                  MELT_LOCATION("warmelt-normal.melt:2939:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-normal.melt:2939:/ rawallocobj");
+                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V47*/ curfptr[22] =
+                    newobj; };
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2939:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2939:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (1), (/*_.RCLOSYM__V45*/ curfptr[35]), "NOCC_SYMB");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2939:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "NOCC_CTYP");
+                   ;
+                   /*_.RCLOCC__V46*/ curfptr[36] = /*_.INST__V47*/ curfptr[22];;}
+                  ;
+                  MELT_LOCATION("warmelt-normal.melt:2943:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-normal.melt:2943:/ rawallocobj");
+                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V49*/ curfptr[48] =
+                    newobj; };
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2943:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2943:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.RCLOCC__V46*/ curfptr[36]), "NRET_MAIN");
+                   ;
+                   /*_.RETN__V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;}
+                  ;
+                  MELT_LOCATION("warmelt-normal.melt:2947:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-normal.melt:2947:/ rawallocobj");
+                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[16])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V51*/ curfptr[50] =
+                    newobj; };
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.RCLOSYM__V45*/ curfptr[35]), "BINDER");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "LETBIND_TYPE");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.LASTCOMP__V10*/ curfptr[9]), "LETBIND_EXPR");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.LOC__V42*/ curfptr[31]), "LETBIND_LOC");
+                   ;
+                   /*_.RBIND__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;}
+                  ;
+                  /*_.RBINTUP__V52*/ curfptr[51] = 
+                   (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.RBIND__V50*/ curfptr[49])));;
+                  /*_.MAKE_TUPLE1__V53*/ curfptr[52] = 
+                   (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.RETN__V48*/ curfptr[47])));;
+                  MELT_LOCATION("warmelt-normal.melt:2954:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-normal.melt:2954:/ rawallocobj");
+                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])), (3), "CLASS_NREP_LET");/*_.INST__V55*/ curfptr[54] =
+                    newobj; };
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2954:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2954:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.RBINTUP__V52*/ curfptr[51]), "NLET_BINDINGS");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2954:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.MAKE_TUPLE1__V53*/ curfptr[52]), "NLET_BODY");
+                   ;
+                   /*_.RLET__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;}
+                  ;
+                  MELT_LOCATION("warmelt-normal.melt:2959:/ block");
+                  /*block*/{
+                   MELT_LOCATION("warmelt-normal.melt:2959:/ putslot");
+                   /*putslot*/
+                   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.RCLOCC__V46*/ curfptr[36])) == OBMAG_OBJECT);
+                   melt_putfield_object((/*_.RCLOCC__V46*/ curfptr[36]), (3), (/*_.RBIND__V50*/ curfptr[49]), "NOCC_BIND");
+                   ;
+                   MELT_LOCATION("warmelt-normal.melt:2959:/ touch");
+                   meltgc_touch(/*_.RCLOCC__V46*/ curfptr[36]);
+                   ;
+                   /*epilog*/}
+                  ;
+                  /*_#I__L17*/ curfnum[16] = 
+                   ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
+                  
+                  {
+                  MELT_LOCATION("warmelt-normal.melt:2960:/ locexp");
+                  meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L17*/ curfnum[16]), (melt_ptr_t)(/*_.RLET__V54*/ curfptr[53]));}
+                  ;
+                  MELT_LOCATION("warmelt-normal.melt:2963:/ block");
+                  /*block*/{
+                   /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+                   MELT_LOCATION("warmelt-normal.melt:2963:/ finalreturn");
+                   ;
+                   /*finalret*/ goto labend_rout ;}
+                  ;
+                  /*_.LET___V44*/ curfptr[34] = /*_.RETURN___V56*/ curfptr[55];;
+                  /*epilog*/
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RCLOSYM__V45*/ curfptr[35] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RCLOCC__V46*/ curfptr[36] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RETN__V48*/ curfptr[47] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RBIND__V50*/ curfptr[49] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RBINTUP__V52*/ curfptr[51] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.MAKE_TUPLE1__V53*/ curfptr[52] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RLET__V54*/ curfptr[53] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
+                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
+                  /*clear*/ /*_.RETURN___V56*/ curfptr[55] = 0 ;}
+                 ;
+                 /*_.IF___V43*/ curfptr[32] = /*_.LET___V44*/ curfptr[34];;
+                 /*epilog*/
+                 MELT_LOCATION("warmelt-normal.melt:2937:/ clear");
+                 /*clear*/ /*_.LET___V44*/ curfptr[34] = 0 ;}
+                ;
+               } else {MELT_LOCATION("warmelt-normal.melt:2937:/ cond.else");
+               
+                /*_.IF___V43*/ curfptr[32] = NULL;;
+                }
+               ;
+               /*_.LET___V40*/ curfptr[29] = /*_.IF___V43*/ curfptr[32];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
+               /*clear*/ /*_.LASTYP__V41*/ curfptr[30] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
+               /*clear*/ /*_.LOC__V42*/ curfptr[31] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
+               /*clear*/ /*_#__L16*/ curfnum[15] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
+               /*clear*/ /*_.IF___V43*/ curfptr[32] = 0 ;}
+              ;
+              /*_.IFELSE___V39*/ curfptr[28] = /*_.LET___V40*/ curfptr[29];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-normal.melt:2933:/ clear");
+              /*clear*/ /*_.LET___V40*/ curfptr[29] = 0 ;}
+             ;
+            } else {MELT_LOCATION("warmelt-normal.melt:2933:/ cond.else");
+            
+             /*_.IFELSE___V39*/ curfptr[28] = NULL;;
+             }
+            ;
+            /*_.IFELSE___V27*/ curfptr[23] = /*_.IFELSE___V39*/ curfptr[28];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-normal.melt:2916:/ clear");
+            /*clear*/ /*_#IS_A__L15*/ curfnum[13] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:2916:/ clear");
+            /*clear*/ /*_.IFELSE___V39*/ curfptr[28] = 0 ;}
+           ;
+           }
+          ;
+          /*_.IFELSE___V25*/ curfptr[15] = /*_.IFELSE___V27*/ curfptr[23];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:2912:/ clear");
+          /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:2912:/ clear");
+          /*clear*/ /*_.IFELSE___V27*/ curfptr[23] = 0 ;}
+         ;
+         }
+        ;
+        /*_.IFELSE___V20*/ curfptr[14] = /*_.IFELSE___V25*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
+        /*clear*/ /*_#NULL__L12*/ curfnum[7] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
+        /*clear*/ /*_.IFELSE___V25*/ curfptr[15] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V14*/ curfptr[12] = /*_.IFELSE___V20*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
+      /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
+      /*clear*/ /*_.IFELSE___V20*/ curfptr[14] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V12*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:2889:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:2889:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2965:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
+   MELT_LOCATION("warmelt-normal.melt:2965:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V57*/ curfptr[35];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
+  /*clear*/ /*_#TUPLEN__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
+  /*clear*/ /*_.LASTCOMP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
+  /*clear*/ /*_.IFELSE___V12*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
+  /*clear*/ /*_.RETURN___V57*/ curfptr[35] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2882:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-normal.melt:2882:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("REPLACE_LAST_BY_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_79_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2924:/ getarg");
+ /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2924:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2924:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:2925:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:2925:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ curfptr[1];
+  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2924:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-normal.melt:2924:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2924:/ clear");
+ /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_79_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_80_warmelt_normal_NORMEXP_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_normal_NORMEXP_DEFUN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 63
+  void* varptr[63];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<63; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 63;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFUN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:2973:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2974:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2974:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:2974:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2974:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2974:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2974:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2974:/ locexp");
+      melt_assert_failed(( "check defun recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2974)?(2974):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2974:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2974:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2974:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2975:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2975:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:2975:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2975:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2975:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2975:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2975:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2975)?(2975):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2975:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2975:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2975:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2976:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2976:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:2976:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:2976:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:2976:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:2976:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:2976:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (2976)?(2976):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2976:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2976:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2976:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:2977:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:2977:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_defun recv";
+    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
+    argtab[3].bp_long = 2977;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:2977:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:2977:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:2978:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:2978:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2979:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAM__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2980:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2981:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SFUN_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2982:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:2982:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAM__V16*/ curfptr[15];
+   /*_.SFUBIND__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2983:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2984:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.OLDPROC__V21*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2985:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.OLDSYMBCACHE__V22*/ curfptr[21] = slot; };
+  ;
+  /*_.CLOSBLIS__V23*/ curfptr[22] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+  /*_.MAKE_LIST__V24*/ curfptr[23] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+  /*_.MAKE_LIST__V25*/ curfptr[24] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+  MELT_LOCATION("warmelt-normal.melt:2987:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2987:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DEFUNROUTPROC*/ curfrout->tabval[7])), (9), "CLASS_NREP_DEFUNROUTPROC");/*_.INST__V27*/ curfptr[26] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), ((/*nil*/NULL)), "NPROC_BODY");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SNAM__V16*/ curfptr[15]), "NRPRO_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_ARGB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.SFORMALS__V17*/ curfptr[16]), "NRPRO_ARGB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_CLOSEDB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.CLOSBLIS__V23*/ curfptr[22]), "NRPRO_CLOSEDB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_CONST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.MAKE_LIST__V24*/ curfptr[23]), "NRPRO_CONST");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_THUNKLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (8), (/*_.MAKE_LIST__V25*/ curfptr[24]), "NRPRO_THUNKLIST");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (6), ((/*nil*/NULL)), "NRPRO_DATAROUT");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (7), ((/*nil*/NULL)), "NRPRO_DATACLOS");
+   ;
+   /*_.NPROC__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3001:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_routine";
+   /*_.NORMAL_PREDEF__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:2999:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:2999:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[8])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V30*/ curfptr[29] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2999:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2999:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:2999:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDROU_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (5), (/*_.NPROC__V26*/ curfptr[25]), "NDROU_PROC");
+   ;
+   /*_.NDATAROUT__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3006:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_closure";
+   /*_.NORMAL_PREDEF__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3004:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3004:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[11])), (7), "CLASS_NREP_DATACLOSURE");/*_.INST__V33*/ curfptr[32] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.NORMAL_PREDEF__V31*/ curfptr[30]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDCLO_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (5), (/*_.NPROC__V26*/ curfptr[25]), "NDCLO_PROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDCLO_CLOSV", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (6), ((/*nil*/NULL)), "NDCLO_CLOSV");
+   ;
+   /*_.NDATACLOS__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
+  ;
+  /*_.MAKE_MAPOBJECT__V34*/ curfptr[33] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[13])), (40)));;
+  MELT_LOCATION("warmelt-normal.melt:3011:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3011:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.NPROC__V26*/ curfptr[25]), "NCTX_CURPROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3011:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.MAKE_MAPOBJECT__V34*/ curfptr[33]), "NCTX_SYMBCACHEMAP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3011:/ touch");
+   meltgc_touch(/*_.NCX__V4*/ curfptr[3]);
+   ;
+   /*epilog*/}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3014:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3014:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V29*/ curfptr[28];
+   /*_.ADD_NCTX_DATA__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3015:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3015:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V32*/ curfptr[31];
+   /*_.ADD_NCTX_DATA__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3016:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3016:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[15])));;
+    MELT_LOCATION("warmelt-normal.melt:3016:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3016:/ cond.then");
+    /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:3016:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3016:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3016:/ locexp");
+       melt_assert_failed(( "check sfubind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3016)?(3016):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V37*/ curfptr[36] = /*_.IFELSE___V38*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3016:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3016:/ clear");
+    /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3016:/ cppif.else");
+  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3017:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3017:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (6), (/*_.NDATAROUT__V29*/ curfptr[28]), "NRPRO_DATAROUT");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3017:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (7), (/*_.NDATACLOS__V32*/ curfptr[31]), "NRPRO_DATACLOS");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3017:/ touch");
+   meltgc_touch(/*_.NPROC__V26*/ curfptr[25]);
+   ;
+   /*epilog*/}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3020:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3020:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3020:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]);
+   ;
+   /*_.LAMBDA___V39*/ curfptr[37] = /*_.LAMBDA___V40*/ curfptr[39];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3018:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3018:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[37];
+   /*_.MULTIPLE_EVERY__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.SFORMALS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3023:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3023:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @ENV_PROC", melt_magic_discr((melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NEWENV__V20*/ curfptr[19]), (2), (/*_.NPROC__V26*/ curfptr[25]), "ENV_PROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3023:/ touch");
+   meltgc_touch(/*_.NEWENV__V20*/ curfptr[19]);
+   ;
+   /*epilog*/}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3024:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3024:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3024:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_defun updated :env_proc of of newenv";
+     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
+     argtab[3].bp_long = 3024;
+     /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3024:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3024:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3024:/ cppif.else");
+  /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3026:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V44*/ curfptr[42] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3026:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.NCTX_PROCLIST__V44*/ curfptr[42]), (melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3027:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply");
+   /*multiapply 4args, 1x.res*/ {
+    union meltparam_un argtab[3];
+    
+    union meltparam_un restab[1];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V47*/ curfptr[46];
+    MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.appl");
+    /*_.NBODY__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[20])), (melt_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3027:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3030:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3030:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3030:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_defun nbody before replace_last_by_return";
+       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
+       argtab[3].bp_long = 3030;
+       /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3030:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3030:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3030:/ cppif.else");
+    /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3033:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3033:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V51*/ curfptr[50] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (1));
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3033:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V51*/ curfptr[50])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V51*/ curfptr[50])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V51*/ curfptr[50])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]);
+     ;
+     /*_.LAMBDA___V50*/ curfptr[48] = /*_.LAMBDA___V51*/ curfptr[50];;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3031:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3031:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V50*/ curfptr[48];
+     /*_.MULTIPLE_EVERY__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NBINDINGS__V47*/ curfptr[46]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3035:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3035:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3035:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];
+      MELT_LOCATION("warmelt-normal.melt:3035:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      /*_.NRBODY__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3036:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3036:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V47*/ curfptr[46];
+      MELT_LOCATION("warmelt-normal.melt:3036:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      /*_.NPBODY__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.NRBODY__V54*/ curfptr[53]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3038:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3038:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (1), (/*_.NPBODY__V55*/ curfptr[54]), "NPROC_BODY");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3038:/ touch");
+      meltgc_touch(/*_.NPROC__V26*/ curfptr[25]);
+      ;
+      /*epilog*/}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3039:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3039:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3039:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_defun npbody after replace_last_by_return";
+        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
+        argtab[3].bp_long = 3039;
+        /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPBODY__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3039:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3039:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3039:/ cppif.else");
+     /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V53*/ curfptr[52] = /*_.IFCPP___V56*/ curfptr[55];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
+     /*clear*/ /*_.NRBODY__V54*/ curfptr[53] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
+     /*clear*/ /*_.NPBODY__V55*/ curfptr[54] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
+     /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3041:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3041:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.OLDPROC__V21*/ curfptr[20]), "NCTX_CURPROC");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3041:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.OLDSYMBCACHE__V22*/ curfptr[21]), "NCTX_SYMBCACHEMAP");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3041:/ touch");
+     meltgc_touch(/*_.NCX__V4*/ curfptr[3]);
+     ;
+     /*epilog*/}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3042:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3046:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3046:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[53] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ curfrout->tabval[29])), (3));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+      ;
+      /*_.LAMBDA___V58*/ curfptr[56] = /*_.LAMBDA___V59*/ curfptr[53];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3043:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3043:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[26]);
+      MELT_LOCATION("warmelt-normal.melt:3043:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[56];
+      /*_.CLOVTUP__V60*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.CLOSBLIS__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3055:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3055:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDCLO_CLOSV", melt_magic_discr((melt_ptr_t)(/*_.NDATACLOS__V32*/ curfptr[31])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.NDATACLOS__V32*/ curfptr[31]), (6), (/*_.CLOVTUP__V60*/ curfptr[54]), "NDCLO_CLOSV");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3055:/ touch");
+      meltgc_touch(/*_.NDATACLOS__V32*/ curfptr[31]);
+      ;
+      /*epilog*/}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3042:/ clear");
+     /*clear*/ /*_.LAMBDA___V58*/ curfptr[56] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3042:/ clear");
+     /*clear*/ /*_.CLOVTUP__V60*/ curfptr[54] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3057:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3057:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.SFUBIND__V19*/ curfptr[18]), (1), (/*_.NDATACLOS__V32*/ curfptr[31]), "FIXBIND_DATA");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3057:/ touch");
+     meltgc_touch(/*_.SFUBIND__V19*/ curfptr[18]);
+     ;
+     /*epilog*/}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3060:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3060:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3060:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_defun return nproc";
+       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
+       argtab[3].bp_long = 3060;
+       /*_.DEBUG_MSG_FUN__V62*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V61*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[56];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3060:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3060:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[56] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3060:/ cppif.else");
+    /*_.IFCPP___V61*/ curfptr[55] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3061:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V26*/ curfptr[25];;
+     MELT_LOCATION("warmelt-normal.melt:3061:/ putxtraresult");
+     if (!xrestab_ || !xresdescr_) goto labend_rout;
+     if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+     if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3061:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.MULTI___V45*/ curfptr[44] = /*_.RETURN___V63*/ curfptr[54];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+    /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+    /*clear*/ /*_.LAMBDA___V50*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V52*/ curfptr[51] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+    /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+    /*clear*/ /*_.IFCPP___V61*/ curfptr[55] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+    /*clear*/ /*_.RETURN___V63*/ curfptr[54] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
+   /*clear*/ /*_.NBINDINGS__V47*/ curfptr[46] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V45*/ curfptr[44];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.SNAM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.SFUBIND__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.OLDPROC__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.OLDSYMBCACHE__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.CLOSBLIS__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NPROC__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NDATAROUT__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NDATACLOS__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.MAKE_MAPOBJECT__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.LAMBDA___V39*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.NCTX_PROCLIST__V44*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
+  /*clear*/ /*_.MULTI___V45*/ curfptr[44] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:2973:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:2973:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFUN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_80_warmelt_normal_NORMEXP_DEFUN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_81_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3020:/ getarg");
+ /*_.FBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3020:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3020:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3021:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3021:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3021:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3021:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3021:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3021:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3021:/ locexp");
+      melt_assert_failed(( "check fbi"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3021)?(3021):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3021:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3021:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3021:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3022:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:3022:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FBI__V2*/ curfptr[1];
+  /*_.PUT_ENV__V5*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3020:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:3020:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3020:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3020:/ clear");
+ /*clear*/ /*_.PUT_ENV__V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_81_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_82_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3033:/ getarg");
+ /*_.NBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3033:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3033:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:3034:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:3034:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ curfptr[1];
+  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3033:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-normal.melt:3033:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3033:/ clear");
+ /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_82_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_83_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3046:/ getarg");
+ /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3046:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3047:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3047:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3047:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3047:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3047:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3047:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3047:/ locexp");
+      melt_assert_failed(( "normexp_defun check bnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3047)?(3047):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3047:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3047:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3047:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3048:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3048:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3051:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+   /*_.NSY__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.SY__V6*/ curfptr[5]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3048:/ clear");
+  /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3048:/ clear");
+  /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3046:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:3046:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3046:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3046:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_83_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_84_warmelt_normal_NORMALIZE_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_normal_NORMALIZE_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 62
+  void* varptr[62];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<62; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 62;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMALIZE_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NEWENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ curfptr[5])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3073:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3074:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3074:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3074:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3074:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3074:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3074:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3074:/ locexp");
+      melt_assert_failed(( "check lambda recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3074)?(3074):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3074:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3074:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3074:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3075:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3075:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3075:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3075:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3075:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3075:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3075:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3075)?(3075):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3075:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3075:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3075:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3076:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3076:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3076:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3076:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3076:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3076:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3076:/ locexp");
+      melt_assert_failed(( "check newenv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3076)?(3076):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3076:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3076:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3076:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3077:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3077:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3077:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3077:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3077:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3077:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3077:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3077)?(3077):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3077:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3077:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3077:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3078:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3078:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3078:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
+    argtab[0].bp_cstring =  "normalize_lambda recv";
+    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
+    argtab[3].bp_long = 3078;
+    /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3078:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3078:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3078:/ cppif.else");
+ /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3079:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3079:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3079:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
+    argtab[0].bp_cstring =  "normalize_lambda env";
+    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
+    argtab[3].bp_long = 3079;
+    /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3079:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3079:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3079:/ cppif.else");
+ /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3080:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3080:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3080:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
+    argtab[0].bp_cstring =  "normalize_lambda newenv";
+    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
+    argtab[3].bp_long = 3080;
+    /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3080:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3080:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3080:/ cppif.else");
+ /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3081:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3081:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V22*/ curfptr[21] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3082:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLAM_ARGBIND");/*_.SARGS__V23*/ curfptr[22] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3083:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SLAM_BODY");/*_.SBODY__V24*/ curfptr[23] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3084:/ apply");
+  /*apply*/{
+   /*_.CSYM__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[4])), (melt_ptr_t)((/*!konst_5_LAMBDA_*/ curfrout->tabval[5])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3085:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3085:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V27*/ curfptr[26] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3085:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3085:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3085:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.CSYM__V25*/ curfptr[24]), "NOCC_SYMB");
+   ;
+   /*_.CLOCC__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3089:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 10, "NCTX_CURPROC");/*_.OLDPROC__V28*/ curfptr[27] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3090:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 6, "NCTX_SYMBCACHEMAP");/*_.SAVEDCACHEMAP__V29*/ curfptr[28] = slot; };
+  ;
+  /*_.CLOSEDBLIST__V30*/ curfptr[29] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  /*_.MAKE_LIST__V31*/ curfptr[30] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  /*_.MAKE_LIST__V32*/ curfptr[31] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+  MELT_LOCATION("warmelt-normal.melt:3092:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3092:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LAMBDAROUTPROC*/ curfrout->tabval[9])), (9), "CLASS_NREP_LAMBDAROUTPROC");/*_.INST__V34*/ curfptr[33] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), ((/*nil*/NULL)), "NPROC_BODY");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.CSYM__V25*/ curfptr[24]), "NRPRO_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_ARGB", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.SARGS__V23*/ curfptr[22]), "NRPRO_ARGB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_CLOSEDB", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (4), (/*_.CLOSEDBLIST__V30*/ curfptr[29]), "NRPRO_CLOSEDB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_CONST", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (5), (/*_.MAKE_LIST__V31*/ curfptr[30]), "NRPRO_CONST");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (6), ((/*nil*/NULL)), "NRPRO_DATAROUT");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (7), ((/*nil*/NULL)), "NRPRO_DATACLOS");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_THUNKLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (8), (/*_.MAKE_LIST__V32*/ curfptr[31]), "NRPRO_THUNKLIST");
+   ;
+   /*_.NPROC__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3105:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
+   MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_routine";
+   /*_.NORMAL_PREDEF__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3103:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3103:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[10])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V37*/ curfptr[36] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3103:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.CSYM__V25*/ curfptr[24]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3103:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3103:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDROU_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.NPROC__V33*/ curfptr[32]), "NDROU_PROC");
+   ;
+   /*_.NDATAROUT__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3109:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3109:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V36*/ curfptr[35];
+   /*_.ADD_NCTX_DATA__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.MAKE_MAPOBJECT__V39*/ curfptr[38] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[14])), (40)));;
+  MELT_LOCATION("warmelt-normal.melt:3111:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3111:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (10), (/*_.NPROC__V33*/ curfptr[32]), "NCTX_CURPROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3111:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (6), (/*_.MAKE_MAPOBJECT__V39*/ curfptr[38]), "NCTX_SYMBCACHEMAP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3111:/ touch");
+   meltgc_touch(/*_.NCX__V5*/ curfptr[4]);
+   ;
+   /*epilog*/}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3114:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3114:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NPROC__V33*/ curfptr[32]), (6), (/*_.NDATAROUT__V36*/ curfptr[35]), "NRPRO_DATAROUT");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3114:/ touch");
+   meltgc_touch(/*_.NPROC__V33*/ curfptr[32]);
+   ;
+   /*epilog*/}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3117:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3117:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V41*/ curfptr[40] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (1));
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3117:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V41*/ curfptr[40])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V41*/ curfptr[40])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V41*/ curfptr[40])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V40*/ curfptr[39] = /*_.LAMBDA___V41*/ curfptr[40];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3115:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3115:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V40*/ curfptr[39];
+   /*_.MULTIPLE_EVERY__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SARGS__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3120:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3120:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @ENV_PROC", melt_magic_discr((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.NEWENV__V4*/ curfptr[3]), (2), (/*_.NPROC__V33*/ curfptr[32]), "ENV_PROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3120:/ touch");
+   meltgc_touch(/*_.NEWENV__V4*/ curfptr[3]);
+   ;
+   /*epilog*/}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3121:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3121:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3121:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
+     argtab[0].bp_cstring =  "normalize_lambda updated :env_proc of newenv";
+     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
+     argtab[3].bp_long = 3121;
+     /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3121:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3121:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3121:/ cppif.else");
+  /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3122:/ locexp");
+   
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "normalize_lambda"), (15));
+#endif
+;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3124:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V45*/ curfptr[43] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3124:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.NCTX_PROCLIST__V45*/ curfptr[43]), (melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3125:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply");
+   /*multiapply 4args, 1x.res*/ {
+    union meltparam_un argtab[3];
+    
+    union meltparam_un restab[1];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
+    MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V48*/ curfptr[47];
+    MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.appl");
+    /*_.NBODY__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.SBODY__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3125:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3130:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3130:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V50*/ curfptr[49] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (1));
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3130:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V50*/ curfptr[49])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V50*/ curfptr[49])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V50*/ curfptr[49])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]);
+     ;
+     /*_.LAMBDA___V49*/ curfptr[48] = /*_.LAMBDA___V50*/ curfptr[49];;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3128:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3128:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V49*/ curfptr[48];
+     /*_.MULTIPLE_EVERY__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDINGS__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3134:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
+     /*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3134:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V48*/ curfptr[47];
+     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
+     /*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3132:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3132:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.NPROC__V33*/ curfptr[32]), (1), (/*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52]), "NPROC_BODY");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3132:/ touch");
+     meltgc_touch(/*_.NPROC__V33*/ curfptr[32]);
+     ;
+     /*epilog*/}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3137:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3137:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (6), (/*_.SAVEDCACHEMAP__V29*/ curfptr[28]), "NCTX_SYMBCACHEMAP");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3137:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (10), (/*_.OLDPROC__V28*/ curfptr[27]), "NCTX_CURPROC");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3137:/ touch");
+     meltgc_touch(/*_.NCX__V5*/ curfptr[4]);
+     ;
+     /*epilog*/}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3141:/ block");
+    /*block*/{
+     /*_#INSIDEFLAG__L9*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.OLDPROC__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[24])));;
+     MELT_LOCATION("warmelt-normal.melt:3144:/ cond");
+     /*cond*/ if (/*_#INSIDEFLAG__L9*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3144:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:3144:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3145:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:3145:/ rawallocobj");
+        /*rawallocobj*/ { melt_ptr_t newobj = 0;
+         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[25])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V57*/ curfptr[56] =
+         newobj; };
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (3), (/*_.NDATAROUT__V36*/ curfptr[35]), "NCONST_DATA");
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.OLDPROC__V28*/ curfptr[27]), "NCONST_PROC");
+        ;
+        /*_.INST___V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;}
+       ;
+       /*_.KROUT__V55*/ curfptr[54] = /*_.INST___V56*/ curfptr[55];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3144:/ clear");
+       /*clear*/ /*_.INST___V56*/ curfptr[55] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:3144:/ cond.else");
+     
+      /*_.KROUT__V55*/ curfptr[54] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3153:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3153:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[58] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (3));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[1] = (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V22*/ curfptr[21]);
+      ;
+      /*_.LAMBDA___V58*/ curfptr[55] = /*_.LAMBDA___V59*/ curfptr[58];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3151:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3151:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[27]);
+      MELT_LOCATION("warmelt-normal.melt:3151:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[55];
+      /*_.CLOVTUP__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.CLOSEDBLIST__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3161:/ cond");
+     /*cond*/ if (/*_#INSIDEFLAG__L9*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3161:/ cond.then");
+     /*_.CONSTROUT__V61*/ curfptr[60] = /*_.KROUT__V55*/ curfptr[54];;
+     } else {MELT_LOCATION("warmelt-normal.melt:3161:/ cond.else");
+     
+      /*_.CONSTROUT__V61*/ curfptr[60] = /*_.NDATAROUT__V36*/ curfptr[35];;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3163:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V33*/ curfptr[32];;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.CSYM__V25*/ curfptr[24]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[1] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.CLOCC__V26*/ curfptr[25]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[2] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[2].bp_aptr) *(xrestab_[2].bp_aptr) = (melt_ptr_t) (/*_.CONSTROUT__V61*/ curfptr[60]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[3] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[3].bp_aptr) *(xrestab_[3].bp_aptr) = (melt_ptr_t) (/*_.CLOVTUP__V60*/ curfptr[59]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[4] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[4].bp_aptr) *(xrestab_[4].bp_aptr) = (melt_ptr_t) (/*_.SLOC__V22*/ curfptr[21]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[5] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[5].bp_aptr) *(xrestab_[5].bp_aptr) = (melt_ptr_t) (/*_.OLDPROC__V28*/ curfptr[27]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[6] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[6].bp_aptr) *(xrestab_[6].bp_aptr) = (melt_ptr_t) (/*_.NDATAROUT__V36*/ curfptr[35]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[7] != BPAR_LONG) goto labend_rout;
+      if (xrestab_[7].bp_longptr) *(xrestab_[7].bp_longptr) = (/*_#INSIDEFLAG__L9*/ curfnum[0]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3163:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V54*/ curfptr[53] = /*_.RETURN___V62*/ curfptr[61];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
+     /*clear*/ /*_#INSIDEFLAG__L9*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
+     /*clear*/ /*_.KROUT__V55*/ curfptr[54] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
+     /*clear*/ /*_.LAMBDA___V58*/ curfptr[55] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
+     /*clear*/ /*_.CLOVTUP__V60*/ curfptr[59] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
+     /*clear*/ /*_.CONSTROUT__V61*/ curfptr[60] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
+     /*clear*/ /*_.RETURN___V62*/ curfptr[61] = 0 ;}
+    ;
+    /*_.MULTI___V46*/ curfptr[45] = /*_.LET___V54*/ curfptr[53];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
+    /*clear*/ /*_.LAMBDA___V49*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V51*/ curfptr[50] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
+    /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
+    /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
+    /*clear*/ /*_.LET___V54*/ curfptr[53] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
+   /*clear*/ /*_.NBINDINGS__V48*/ curfptr[47] = 0 ;}
+  ;
+  /*_.LET___V21*/ curfptr[19] = /*_.MULTI___V46*/ curfptr[45];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.SLOC__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.SARGS__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.SBODY__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.CSYM__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.CLOCC__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.OLDPROC__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.SAVEDCACHEMAP__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.CLOSEDBLIST__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.NPROC__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.NDATAROUT__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.MAKE_MAPOBJECT__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.LAMBDA___V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V42*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.NCTX_PROCLIST__V45*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
+  /*clear*/ /*_.MULTI___V46*/ curfptr[45] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V21*/ curfptr[19];;
+  MELT_LOCATION("warmelt-normal.melt:3073:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
+ /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMALIZE_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_84_warmelt_normal_NORMALIZE_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_85_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3117:/ getarg");
+ /*_.FBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3117:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3117:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3118:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3118:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3118:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3118:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3118:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3118:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3118:/ locexp");
+      melt_assert_failed(( "check fbi"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3118)?(3118):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3118:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3118:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3118:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3119:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:3119:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FBI__V2*/ curfptr[1];
+  /*_.PUT_ENV__V5*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3117:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:3117:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3117:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3117:/ clear");
+ /*clear*/ /*_.PUT_ENV__V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_85_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_86_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3130:/ getarg");
+ /*_.NBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3130:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3130:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:3131:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:3131:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ curfptr[1];
+  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3130:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-normal.melt:3130:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3130:/ clear");
+ /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_86_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_87_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3153:/ getarg");
+ /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3153:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3154:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3154:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3154:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3154:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3154:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3154:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3154:/ locexp");
+      melt_assert_failed(( "normalize_lambda check bnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3154)?(3154):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3154:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3154:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3154:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3155:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3155:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3158:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+   MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+   /*_.NSY__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.SY__V6*/ curfptr[5]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3155:/ clear");
+  /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3155:/ clear");
+  /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3153:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:3153:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3153:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3153:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_87_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_88_warmelt_normal_NORMEXP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_normal_NORMEXP_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 38
+  void* varptr[38];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<38; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 38;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3167:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3168:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3168:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3168:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3168:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3168:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3168:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3168:/ locexp");
+      melt_assert_failed(( "check lambda recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3168)?(3168):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3168:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3168:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3168:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3169:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3169:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3169:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3169:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3169:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3169:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3169:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3169)?(3169):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3169:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3169:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3169:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3170:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3170:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3170:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3170:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3170:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3170:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3170)?(3170):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3170:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3170:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3171:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3171:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3171:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_lambda recv";
+    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
+    argtab[3].bp_long = 3171;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3171:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3171:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3171:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3172:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3173:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3175:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply");
+   /*multiapply 5args, 8x.res*/ {
+    union meltparam_un argtab[4];
+    
+    union meltparam_un restab[8];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V15*/ curfptr[14];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
+    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CSYM__V18*/ curfptr[17];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[1].bp_aptr = (melt_ptr_t*) &/*_.CLOCC__V19*/ curfptr[18];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[2].bp_aptr = (melt_ptr_t*) &/*_.CONSTROUT__V20*/ curfptr[19];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[3].bp_aptr = (melt_ptr_t*) &/*_.CLOVTUP__V21*/ curfptr[20];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[5].bp_aptr = (melt_ptr_t*) &/*_.OLDPROC__V23*/ curfptr[22];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[6].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V24*/ curfptr[23];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
+    restab[7].bp_longptr =  & /*_#INSIDEFLAG__L5*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.appl");
+    /*_.NPROC__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3178:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3178:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3178:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_lambda after normalize_lambda nproc";
+       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
+       argtab[3].bp_long = 3178;
+       /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPROC__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3178:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3178:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3178:/ cppif.else");
+    /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3179:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3180:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3180:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[6])), (4), "CLASS_NREP_LAMBDA");/*_.INST__V29*/ curfptr[28] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NLAMBDA_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.NPROC__V17*/ curfptr[16]), "NLAMBDA_PROC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NLAMBDA_CONSTROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.CONSTROUT__V20*/ curfptr[19]), "NLAMBDA_CONSTROUT");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NLAMBDA_CLOSEDV", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.CLOVTUP__V21*/ curfptr[20]), "NLAMBDA_CLOSEDV");
+      ;
+      /*_.NLAMBDA__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3186:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3186:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V31*/ curfptr[30] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.SLOC__V22*/ curfptr[21]), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.CSYM__V18*/ curfptr[17]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NLAMBDA__V28*/ curfptr[27]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+     ;
+     /*_.NBINDLIST__V32*/ curfptr[31] = 
+      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+     MELT_LOCATION("warmelt-normal.melt:3193:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3193:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.CLOCC__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CLOCC__V19*/ curfptr[18]), (3), (/*_.CBIND__V30*/ curfptr[29]), "NOCC_BIND");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3193:/ touch");
+      meltgc_touch(/*_.CLOCC__V19*/ curfptr[18]);
+      ;
+      /*epilog*/}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3194:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.CBIND__V30*/ curfptr[29]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3195:/ cond");
+     /*cond*/ if (/*_#INSIDEFLAG__L5*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3195:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:3195:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3196:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDPROC__V23*/ curfptr[22]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V33*/ curfptr[32] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3196:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V33*/ curfptr[32]), (melt_ptr_t)(/*_.NDATAROUT__V24*/ curfptr[23]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3195:/ clear");
+       /*clear*/ /*_.NRPRO_CONST__V33*/ curfptr[32] = 0 ;}
+      ;
+     } /*noelse*/
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3197:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3197:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3197:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_lambda return clocc";
+        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
+        argtab[3].bp_long = 3197;
+        /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V34*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3197:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3197:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3197:/ cppif.else");
+     /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3198:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3198:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3198:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_lambda return nbindlist";
+        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
+        argtab[3].bp_long = 3198;
+        /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V36*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3198:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3198:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3198:/ cppif.else");
+     /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:3199:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V19*/ curfptr[18];;
+      MELT_LOCATION("warmelt-normal.melt:3199:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V32*/ curfptr[31]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3199:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V27*/ curfptr[25] = /*_.RETURN___V38*/ curfptr[36];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
+     /*clear*/ /*_.NLAMBDA__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
+     /*clear*/ /*_.CBIND__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
+     /*clear*/ /*_.NBINDLIST__V32*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
+     /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
+     /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
+     /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;}
+    ;
+    /*_.MULTI___V16*/ curfptr[15] = /*_.LET___V27*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+    /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+    /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.CSYM__V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.CLOCC__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.CONSTROUT__V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.CLOVTUP__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.SLOC__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.OLDPROC__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_.NDATAROUT__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
+   /*clear*/ /*_#INSIDEFLAG__L5*/ curfnum[0] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3172:/ clear");
+  /*clear*/ /*_.NEWENV__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3172:/ clear");
+  /*clear*/ /*_.MULTI___V16*/ curfptr[15] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3167:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3167:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_88_warmelt_normal_NORMEXP_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_89_warmelt_normal_NORMEXP_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_normal_NORMEXP_MULTICALL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 105
+  void* varptr[105];
+#define CURFRAM_NBVARNUM 22
+  long varnum[22];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<105; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 105;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_MULTICALL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3204:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3205:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3205:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MULTICALL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3205:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3205:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3205:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3205:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3205:/ locexp");
+      melt_assert_failed(( "check multicall recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3205)?(3205):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3205:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3205:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3205:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3206:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3206:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3206:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3206:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3206:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3206:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3206:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3206)?(3206):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3206:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3206:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3206:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3207:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3207:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3207:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3207:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3207:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3207:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3207:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3207)?(3207):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3207:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3207:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3207:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3208:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3208:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_multicall recv";
+    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
+    argtab[3].bp_long = 3208;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3208:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3208:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3209:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3209:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3210:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMULC_RESBIND");/*_.SRESBIND__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3211:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMULC_CALL");/*_.SCALL__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3212:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SMULC_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3213:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3215:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3215:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3215:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_multicall scall";
+     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
+     argtab[3].bp_long = 3215;
+     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3215:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3215:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3215:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3216:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NCALLBINDINGS__V24*/ curfptr[23];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.send");
+    /*_.NCALL__V23*/ curfptr[22] =  meltgc_send ((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3216:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3219:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3219:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3219:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_multicall ncall";
+       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
+       argtab[3].bp_long = 3219;
+       /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3219:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3219:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3219:/ cppif.else");
+    /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3220:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3220:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3220:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_multicall ncallbindings";
+       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
+       argtab[3].bp_long = 3220;
+       /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCALLBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3220:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3220:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3220:/ cppif.else");
+    /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3224:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3224:/ block");
+     /*block*/{
+      /*_#IS_A__L8*/ curfnum[0] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])));;
+      MELT_LOCATION("warmelt-normal.melt:3224:/ cond");
+      /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3224:/ cond.then");
+      /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3224:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3224:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3224:/ locexp");
+         melt_assert_failed(( "normexp_multicall check ncall"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3224)?(3224):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3224:/ clear");
+      /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3224:/ clear");
+      /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3224:/ cppif.else");
+    /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3225:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3225:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), 1, "NOCC_SYMB");/*_.NCALLSYM__V32*/ curfptr[31] = slot; };
+     ;
+     /*_.NBOXCALL__V33*/ curfptr[32] = 
+      meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)));;
+     /*_.NREALCALL__V34*/ curfptr[33] = (/*nil*/NULL);;
+     /*_.NINCALLBINDINGS__V35*/ curfptr[34] = 
+      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+     MELT_LOCATION("warmelt-normal.melt:3232:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3232:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.NCALLSYM__V32*/ curfptr[31]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[1] = (melt_ptr_t)(/*_.NBOXCALL__V33*/ curfptr[32]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[2] = (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]);
+      ;
+      /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3230:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3230:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35];
+      /*_.LIST_ITERATE_TEST__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_ITERATE_TEST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCALLBINDINGS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.BOX_CONTENT__V39*/ curfptr[38] = 
+      melt_box_content((meltbox_ptr_t)(/*_.NBOXCALL__V33*/ curfptr[32]));;
+     MELT_LOCATION("warmelt-normal.melt:3239:/ compute");
+     /*_.NREALCALL__V34*/ curfptr[33] = /*_.SETQ___V40*/ curfptr[39] = /*_.BOX_CONTENT__V39*/ curfptr[38];;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3240:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3240:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3240:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_multicall got nrealcall";
+        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
+        argtab[3].bp_long = 3240;
+        /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3240:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3240:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3240:/ cppif.else");
+     /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:3243:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3243:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3243:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V19*/ curfptr[18]);
+      ;
+      /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3241:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3241:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41];
+      /*_.MULTIPLE_EVERY__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3245:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply");
+      /*multiapply 4args, 1x.res*/ {
+       union meltparam_un argtab[3];
+       
+       union meltparam_un restab[1];
+       memset(&restab, 0, sizeof(restab));
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18];MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+       MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.xres");
+       restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODYBINDINGS__V48*/ curfptr[47];
+       MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.appl");
+       /*_.NBODY__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3245:/ block");
+      /*block*/{
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:3248:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:3248:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+          callcount;;
+         MELT_LOCATION("warmelt-normal.melt:3248:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
+          argtab[0].bp_cstring =  "normexp_multicall nbody";
+          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-normal.melt";
+          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
+          argtab[3].bp_long = 3248;
+          /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3248:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3248:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:3248:/ cppif.else");
+       /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:3249:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:3249:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+          callcount;;
+         MELT_LOCATION("warmelt-normal.melt:3249:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
+          argtab[0].bp_cstring =  "normexp_multicall nbodybindings";
+          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-normal.melt";
+          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
+          argtab[3].bp_long = 3249;
+          /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODYBINDINGS__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3249:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3249:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:3249:/ cppif.else");
+       /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-normal.melt:3250:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:3250:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:3250:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODYBINDINGS__V48*/ curfptr[47];
+         MELT_LOCATION("warmelt-normal.melt:3250:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+         /*_.WNBODYLET__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3252:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:3252:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V56*/ curfptr[55] = slot; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3254:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:3254:/ newclosure");
+           /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] =
+           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (1));
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3254:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V56*/ curfptr[55]);
+          ;
+          /*_.LAMBDA___V57*/ curfptr[56] = /*_.LAMBDA___V58*/ curfptr[57];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3253:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3253:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[56];
+          /*_.MULTIPLE_EVERY__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.LET___V55*/ curfptr[54] = /*_.MULTIPLE_EVERY__V59*/ curfptr[58];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3252:/ clear");
+         /*clear*/ /*_.SYCMAP__V56*/ curfptr[55] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3252:/ clear");
+         /*clear*/ /*_.LAMBDA___V57*/ curfptr[56] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3252:/ clear");
+         /*clear*/ /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = 0 ;}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3257:/ block");
+        /*block*/{
+         /*_.LASTNBODY__V61*/ curfptr[56] = 
+          (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (-1)));;
+         MELT_LOCATION("warmelt-normal.melt:3259:/ cond");
+         /*cond*/ if (/*_.LASTNBODY__V61*/ curfptr[56]) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:3259:/ cond.then");
+         MELT_LOCATION("warmelt-normal.melt:3259:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-normal.melt:3259:/ msend");
+           /*msend*/{
+            union meltparam_un argtab[1];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:3259:/ ojbmsend.arg");
+            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18];
+            /*_.GET_CTYPE__V63*/ curfptr[62] = meltgc_send((melt_ptr_t)(/*_.LASTNBODY__V61*/ curfptr[56]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.LASTNTYPE__V62*/ curfptr[58] = /*_.GET_CTYPE__V63*/ curfptr[62];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3259:/ clear");
+           /*clear*/ /*_.GET_CTYPE__V63*/ curfptr[62] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-normal.melt:3259:/ cond.else");
+         
+          /*_.LASTNTYPE__V62*/ curfptr[58] = (/*!CTYPE_VOID*/ curfrout->tabval[19]);;
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3260:/ apply");
+         /*apply*/{
+          /*_.CSYM__V64*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[20])), (melt_ptr_t)((/*!konst_21_MULTI_*/ curfrout->tabval[21])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3261:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:3261:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V66*/ curfptr[65] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3261:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (0), (/*_.CSYM__V64*/ curfptr[62]), "BINDER");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3261:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3261:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "LETBIND_TYPE");
+          ;
+          /*_.CBIND__V65*/ curfptr[64] = /*_.INST__V66*/ curfptr[65];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3267:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:3267:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V68*/ curfptr[67] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NOCC_CTYP");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.CSYM__V64*/ curfptr[62]), "NOCC_SYMB");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (3), (/*_.CBIND__V65*/ curfptr[64]), "NOCC_BIND");
+          ;
+          /*_.CLOCC__V67*/ curfptr[66] = /*_.INST__V68*/ curfptr[67];;}
+         ;
+         /*_#IS_A__L12*/ curfnum[0] = 
+          melt_is_instance_of((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[23])));;
+         MELT_LOCATION("warmelt-normal.melt:3275:/ cond");
+         /*cond*/ if (/*_#IS_A__L12*/ curfnum[0]) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:3275:/ cond.then");
+         MELT_LOCATION("warmelt-normal.melt:3275:/ block");
+          /*block*/{
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.then");
+           MELT_LOCATION("warmelt-normal.melt:3276:/ block");
+            /*block*/{
+             /*_#IS_A__L13*/ curfnum[12] = 
+              melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[24])));;
+             MELT_LOCATION("warmelt-normal.melt:3276:/ cond");
+             /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
+             MELT_LOCATION("warmelt-normal.melt:3276:/ cond.then");
+             /*_.IFELSE___V71*/ curfptr[70] = (/*nil*/NULL);;
+             } else {MELT_LOCATION("warmelt-normal.melt:3276:/ cond.else");
+             
+              MELT_LOCATION("warmelt-normal.melt:3276:/ block");
+              /*block*/{
+               /*block*/{
+                
+                {
+                MELT_LOCATION("warmelt-normal.melt:3276:/ locexp");
+                melt_assert_failed(( "normexp_multicall check nrealcall apply"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3276)?(3276):__LINE__, __FUNCTION__);
+;}
+                ;
+                /*clear*/ /*_.IFELSE___V71*/ curfptr[70] = 0 ;}
+               ;
+               /*epilog*/}
+              ;
+              }
+             ;
+             /*_.IFCPP___V70*/ curfptr[69] = /*_.IFELSE___V71*/ curfptr[70];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:3276:/ clear");
+             /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:3276:/ clear");
+             /*clear*/ /*_.IFELSE___V71*/ curfptr[70] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.else");
+           /*_.IFCPP___V70*/ curfptr[69] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           MELT_LOCATION("warmelt-normal.melt:3277:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-normal.melt:3279:/ getslot");
+            { melt_ptr_t slot=0;
+             melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 3, "NAPP_FUN");/*_.NAPP_FUN__V73*/ curfptr[72] = slot; };
+            ;
+            MELT_LOCATION("warmelt-normal.melt:3280:/ getslot");
+            { melt_ptr_t slot=0;
+             melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 2, "NEXPR_ARGS");/*_.NEXPR_ARGS__V74*/ curfptr[73] = slot; };
+            ;
+            MELT_LOCATION("warmelt-normal.melt:3277:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-normal.melt:3277:/ rawallocobj");
+             /*rawallocobj*/ { melt_ptr_t newobj = 0;
+              melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[25])), (6), "CLASS_NREP_MULTIAPPLY");/*_.INST__V76*/ curfptr[75] =
+              newobj; };
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (3), (/*_.NAPP_FUN__V73*/ curfptr[72]), "NAPP_FUN");
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.NEXPR_ARGS__V74*/ curfptr[73]), "NEXPR_ARGS");
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NEXPR_CTYP");
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @NMULAPP_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (4), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULAPP_BINDINGS");
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @NMULAPP_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (5), (/*_.WNBODYLET__V54*/ curfptr[53]), "NMULAPP_BODY");
+             ;
+             /*_.NRES__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;}
+            ;
+            MELT_LOCATION("warmelt-normal.melt:3284:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-normal.melt:3284:/ putslot");
+             /*putslot*/
+             melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64])) == OBMAG_OBJECT);
+             melt_putfield_object((/*_.CBIND__V65*/ curfptr[64]), (2), (/*_.NRES__V75*/ curfptr[74]), "LETBIND_EXPR");
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3284:/ touch");
+             meltgc_touch(/*_.CBIND__V65*/ curfptr[64]);
+             ;
+             /*epilog*/}
+            ;
+            
+            {
+            MELT_LOCATION("warmelt-normal.melt:3285:/ locexp");
+            meltgc_append_list((melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64]));}
+            ;
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-normal.melt:3286:/ cppif.then");
+            MELT_LOCATION("warmelt-normal.melt:3286:/ block");
+             /*block*/{
+              /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 
+               callcount;;
+              MELT_LOCATION("warmelt-normal.melt:3286:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[4];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
+               argtab[0].bp_cstring =  "normexp_multicall multiapply result clocc";
+               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
+               argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12];
+               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
+               argtab[2].bp_cstring =  "warmelt-normal.melt";
+               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
+               argtab[3].bp_long = 3286;
+               /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-normal.melt:3286:/ clear");
+              /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3286:/ clear");
+              /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-normal.melt:3286:/ cppif.else");
+            /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-normal.melt:3287:/ cppif.then");
+            MELT_LOCATION("warmelt-normal.melt:3287:/ block");
+             /*block*/{
+              /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 
+               callcount;;
+              MELT_LOCATION("warmelt-normal.melt:3287:/ apply");
+              /*apply*/{
+               union meltparam_un argtab[4];
+               memset(&argtab, 0, sizeof(argtab));
+               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
+               argtab[0].bp_cstring =  "normexp_multicall multiapply result nincallbindings";
+               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
+               argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12];
+               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
+               argtab[2].bp_cstring =  "warmelt-normal.melt";
+               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
+               argtab[3].bp_long = 3287;
+               /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+               }
+              ;
+              /*_.IFCPP___V79*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V80*/ curfptr[79];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-normal.melt:3287:/ clear");
+              /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3287:/ clear");
+              /*clear*/ /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-normal.melt:3287:/ cppif.else");
+            /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            MELT_LOCATION("warmelt-normal.melt:3288:/ block");
+            /*block*/{
+             /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V67*/ curfptr[66];;
+             MELT_LOCATION("warmelt-normal.melt:3288:/ putxtraresult");
+             if (!xrestab_ || !xresdescr_) goto labend_rout;
+             if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+             if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NINCALLBINDINGS__V35*/ curfptr[34]);
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3288:/ finalreturn");
+             ;
+             /*finalret*/ goto labend_rout ;}
+            ;
+            /*_.LET___V72*/ curfptr[70] = /*_.RETURN___V81*/ curfptr[79];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
+            /*clear*/ /*_.NAPP_FUN__V73*/ curfptr[72] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
+            /*clear*/ /*_.NEXPR_ARGS__V74*/ curfptr[73] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
+            /*clear*/ /*_.NRES__V75*/ curfptr[74] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
+            /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
+            /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
+            /*clear*/ /*_.RETURN___V81*/ curfptr[79] = 0 ;}
+           ;
+           MELT_LOCATION("warmelt-normal.melt:3275:/ block");
+           /*block*/{
+            /*_.PROGN___V82*/ curfptr[72] = /*_.LET___V72*/ curfptr[70];;}
+           ;
+           /*_.IFELSE___V69*/ curfptr[68] = /*_.PROGN___V82*/ curfptr[72];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
+           /*clear*/ /*_.IFCPP___V70*/ curfptr[69] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
+           /*clear*/ /*_.LET___V72*/ curfptr[70] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
+           /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-normal.melt:3275:/ cond.else");
+         
+          MELT_LOCATION("warmelt-normal.melt:3275:/ block");
+          /*block*/{
+           /*_#IS_A__L16*/ curfnum[12] = 
+            melt_is_instance_of((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ curfrout->tabval[26])));;
+           MELT_LOCATION("warmelt-normal.melt:3291:/ cond");
+           /*cond*/ if (/*_#IS_A__L16*/ curfnum[12]) /*then*/ {
+           MELT_LOCATION("warmelt-normal.melt:3291:/ cond.then");
+           MELT_LOCATION("warmelt-normal.melt:3291:/ block");
+            /*block*/{
+             
+             #if ENABLE_CHECKING
+              MELT_LOCATION("warmelt-normal.melt:3292:/ cppif.then");
+             MELT_LOCATION("warmelt-normal.melt:3292:/ block");
+              /*block*/{
+               /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 
+                callcount;;
+               MELT_LOCATION("warmelt-normal.melt:3292:/ apply");
+               /*apply*/{
+                union meltparam_un argtab[4];
+                memset(&argtab, 0, sizeof(argtab));
+                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
+                argtab[0].bp_cstring =  "normexp_multicall multicall nrealcall";
+                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
+                argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16];
+                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
+                argtab[2].bp_cstring =  "warmelt-normal.melt";
+                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
+                argtab[3].bp_long = 3292;
+                /*_.DEBUG_MSG_FUN__V85*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                }
+               ;
+               /*_.IFCPP___V84*/ curfptr[74] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[76];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-normal.melt:3292:/ clear");
+               /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:3292:/ clear");
+               /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[76] = 0 ;}
+              
+              #else /*ENABLE_CHECKING*/
+              MELT_LOCATION("warmelt-normal.melt:3292:/ cppif.else");
+             /*_.IFCPP___V84*/ curfptr[74] = (/*nil*/NULL);
+              #endif /*ENABLE_CHECKING*/
+              ;
+             
+             #if ENABLE_CHECKING
+              MELT_LOCATION("warmelt-normal.melt:3294:/ cppif.then");
+             MELT_LOCATION("warmelt-normal.melt:3294:/ block");
+              /*block*/{
+               /*_#IS_A__L18*/ curfnum[16] = 
+                melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])));;
+               MELT_LOCATION("warmelt-normal.melt:3294:/ cond");
+               /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ {
+               MELT_LOCATION("warmelt-normal.melt:3294:/ cond.then");
+               /*_.IFELSE___V87*/ curfptr[79] = (/*nil*/NULL);;
+               } else {MELT_LOCATION("warmelt-normal.melt:3294:/ cond.else");
+               
+                MELT_LOCATION("warmelt-normal.melt:3294:/ block");
+                /*block*/{
+                 /*block*/{
+                  
+                  {
+                  MELT_LOCATION("warmelt-normal.melt:3294:/ locexp");
+                  melt_assert_failed(( "normexp_multicall check nrealcall send"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3294)?(3294):__LINE__, __FUNCTION__);
+;}
+                  ;
+                  /*clear*/ /*_.IFELSE___V87*/ curfptr[79] = 0 ;}
+                 ;
+                 /*epilog*/}
+                ;
+                }
+               ;
+               /*_.IFCPP___V86*/ curfptr[77] = /*_.IFELSE___V87*/ curfptr[79];;
+               /*epilog*/
+               MELT_LOCATION("warmelt-normal.melt:3294:/ clear");
+               /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ;
+               MELT_LOCATION("warmelt-normal.melt:3294:/ clear");
+               /*clear*/ /*_.IFELSE___V87*/ curfptr[79] = 0 ;}
+              
+              #else /*ENABLE_CHECKING*/
+              MELT_LOCATION("warmelt-normal.melt:3294:/ cppif.else");
+             /*_.IFCPP___V86*/ curfptr[77] = (/*nil*/NULL);
+              #endif /*ENABLE_CHECKING*/
+              ;
+             MELT_LOCATION("warmelt-normal.melt:3295:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-normal.melt:3295:/ cond");
+              /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])))) /*then*/ {
+              MELT_LOCATION("warmelt-normal.melt:3295:/ cond.then");
+              MELT_LOCATION("warmelt-normal.melt:3295:/ getslot");
+               { melt_ptr_t slot=0;
+                melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 4, "NSEND_RECV");/*_.NRECV__V89*/ curfptr[70] = slot; };
+               ;
+              } else {MELT_LOCATION("warmelt-normal.melt:3295:/ cond.else");
+              
+               /*_.NRECV__V89*/ curfptr[70] = NULL;;
+               }
+              ;
+              MELT_LOCATION("warmelt-normal.melt:3299:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 3, "NSEND_SEL");/*_.NSEND_SEL__V90*/ curfptr[72] = slot; };
+              ;
+              MELT_LOCATION("warmelt-normal.melt:3301:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 2, "NEXPR_ARGS");/*_.NEXPR_ARGS__V91*/ curfptr[76] = slot; };
+              ;
+              MELT_LOCATION("warmelt-normal.melt:3296:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-normal.melt:3296:/ rawallocobj");
+               /*rawallocobj*/ { melt_ptr_t newobj = 0;
+                melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[28])), (7), "CLASS_NREP_MULTIMSEND");/*_.INST__V93*/ curfptr[92] =
+                newobj; };
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NEXPR_CTYP");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NSEND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (3), (/*_.NSEND_SEL__V90*/ curfptr[72]), "NSEND_SEL");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NSEND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (4), (/*_.NRECV__V89*/ curfptr[70]), "NSEND_RECV");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (2), (/*_.NEXPR_ARGS__V91*/ curfptr[76]), "NEXPR_ARGS");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NMULSEND_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (5), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULSEND_BINDINGS");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @NMULSEND_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (6), (/*_.WNBODYLET__V54*/ curfptr[53]), "NMULSEND_BODY");
+               ;
+               /*_.NRES__V92*/ curfptr[79] = /*_.INST__V93*/ curfptr[92];;}
+              ;
+              
+              #if ENABLE_CHECKING
+               MELT_LOCATION("warmelt-normal.melt:3305:/ cppif.then");
+              MELT_LOCATION("warmelt-normal.melt:3305:/ block");
+               /*block*/{
+                /*_#THE_CALLCOUNT__L19*/ curfnum[16] = 
+                 callcount;;
+                MELT_LOCATION("warmelt-normal.melt:3305:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[4];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
+                 argtab[0].bp_cstring =  "normexp_multicall nrecv from multicall";
+                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
+                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[16];
+                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
+                 argtab[2].bp_cstring =  "warmelt-normal.melt";
+                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
+                 argtab[3].bp_long = 3305;
+                 /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NRECV__V89*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                /*_.IFCPP___V94*/ curfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-normal.melt:3305:/ clear");
+                /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[16] = 0 ;
+                MELT_LOCATION("warmelt-normal.melt:3305:/ clear");
+                /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
+               
+               #else /*ENABLE_CHECKING*/
+               MELT_LOCATION("warmelt-normal.melt:3305:/ cppif.else");
+              /*_.IFCPP___V94*/ curfptr[93] = (/*nil*/NULL);
+               #endif /*ENABLE_CHECKING*/
+               ;
+              
+              #if ENABLE_CHECKING
+               MELT_LOCATION("warmelt-normal.melt:3306:/ cppif.then");
+              MELT_LOCATION("warmelt-normal.melt:3306:/ block");
+               /*block*/{
+                /*_#IS_OBJECT__L20*/ curfnum[16] = 
+                 (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V89*/ curfptr[70])) == OBMAG_OBJECT);;
+                MELT_LOCATION("warmelt-normal.melt:3306:/ cond");
+                /*cond*/ if (/*_#IS_OBJECT__L20*/ curfnum[16]) /*then*/ {
+                MELT_LOCATION("warmelt-normal.melt:3306:/ cond.then");
+                /*_.IFELSE___V97*/ curfptr[96] = (/*nil*/NULL);;
+                } else {MELT_LOCATION("warmelt-normal.melt:3306:/ cond.else");
+                
+                 MELT_LOCATION("warmelt-normal.melt:3306:/ block");
+                 /*block*/{
+                  /*block*/{
+                   
+                   {
+                   MELT_LOCATION("warmelt-normal.melt:3306:/ locexp");
+                   melt_assert_failed(( "check nrecv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3306)?(3306):__LINE__, __FUNCTION__);
+;}
+                   ;
+                   /*clear*/ /*_.IFELSE___V97*/ curfptr[96] = 0 ;}
+                  ;
+                  /*epilog*/}
+                 ;
+                 }
+                ;
+                /*_.IFCPP___V96*/ curfptr[94] = /*_.IFELSE___V97*/ curfptr[96];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-normal.melt:3306:/ clear");
+                /*clear*/ /*_#IS_OBJECT__L20*/ curfnum[16] = 0 ;
+                MELT_LOCATION("warmelt-normal.melt:3306:/ clear");
+                /*clear*/ /*_.IFELSE___V97*/ curfptr[96] = 0 ;}
+               
+               #else /*ENABLE_CHECKING*/
+               MELT_LOCATION("warmelt-normal.melt:3306:/ cppif.else");
+              /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL);
+               #endif /*ENABLE_CHECKING*/
+               ;
+              MELT_LOCATION("warmelt-normal.melt:3307:/ block");
+              /*block*/{
+               MELT_LOCATION("warmelt-normal.melt:3307:/ putslot");
+               /*putslot*/
+               melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64])) == OBMAG_OBJECT);
+               melt_putfield_object((/*_.CBIND__V65*/ curfptr[64]), (2), (/*_.NRES__V92*/ curfptr[79]), "LETBIND_EXPR");
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3307:/ touch");
+               meltgc_touch(/*_.CBIND__V65*/ curfptr[64]);
+               ;
+               /*epilog*/}
+              ;
+              
+              {
+              MELT_LOCATION("warmelt-normal.melt:3308:/ locexp");
+              meltgc_append_list((melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64]));}
+              ;
+              
+              #if ENABLE_CHECKING
+               MELT_LOCATION("warmelt-normal.melt:3309:/ cppif.then");
+              MELT_LOCATION("warmelt-normal.melt:3309:/ block");
+               /*block*/{
+                /*_#THE_CALLCOUNT__L21*/ curfnum[16] = 
+                 callcount;;
+                MELT_LOCATION("warmelt-normal.melt:3309:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[4];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
+                 argtab[0].bp_cstring =  "normexp_multicall multisend result clocc";
+                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
+                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[16];
+                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
+                 argtab[2].bp_cstring =  "warmelt-normal.melt";
+                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
+                 argtab[3].bp_long = 3309;
+                 /*_.DEBUG_MSG_FUN__V99*/ curfptr[98] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                /*_.IFCPP___V98*/ curfptr[96] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[98];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-normal.melt:3309:/ clear");
+                /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[16] = 0 ;
+                MELT_LOCATION("warmelt-normal.melt:3309:/ clear");
+                /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[98] = 0 ;}
+               
+               #else /*ENABLE_CHECKING*/
+               MELT_LOCATION("warmelt-normal.melt:3309:/ cppif.else");
+              /*_.IFCPP___V98*/ curfptr[96] = (/*nil*/NULL);
+               #endif /*ENABLE_CHECKING*/
+               ;
+              
+              #if ENABLE_CHECKING
+               MELT_LOCATION("warmelt-normal.melt:3310:/ cppif.then");
+              MELT_LOCATION("warmelt-normal.melt:3310:/ block");
+               /*block*/{
+                /*_#THE_CALLCOUNT__L22*/ curfnum[16] = 
+                 callcount;;
+                MELT_LOCATION("warmelt-normal.melt:3310:/ apply");
+                /*apply*/{
+                 union meltparam_un argtab[4];
+                 memset(&argtab, 0, sizeof(argtab));
+                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
+                 argtab[0].bp_cstring =  "normexp_multicall multisend result nincallbindings";
+                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
+                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[16];
+                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
+                 argtab[2].bp_cstring =  "warmelt-normal.melt";
+                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
+                 argtab[3].bp_long = 3310;
+                 /*_.DEBUG_MSG_FUN__V101*/ curfptr[100] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+                 }
+                ;
+                /*_.IFCPP___V100*/ curfptr[98] = /*_.DEBUG_MSG_FUN__V101*/ curfptr[100];;
+                /*epilog*/
+                MELT_LOCATION("warmelt-normal.melt:3310:/ clear");
+                /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[16] = 0 ;
+                MELT_LOCATION("warmelt-normal.melt:3310:/ clear");
+                /*clear*/ /*_.DEBUG_MSG_FUN__V101*/ curfptr[100] = 0 ;}
+               
+               #else /*ENABLE_CHECKING*/
+               MELT_LOCATION("warmelt-normal.melt:3310:/ cppif.else");
+              /*_.IFCPP___V100*/ curfptr[98] = (/*nil*/NULL);
+               #endif /*ENABLE_CHECKING*/
+               ;
+              MELT_LOCATION("warmelt-normal.melt:3311:/ block");
+              /*block*/{
+               /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V67*/ curfptr[66];;
+               MELT_LOCATION("warmelt-normal.melt:3311:/ putxtraresult");
+               if (!xrestab_ || !xresdescr_) goto labend_rout;
+               if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+               if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NINCALLBINDINGS__V35*/ curfptr[34]);
+               ;
+               MELT_LOCATION("warmelt-normal.melt:3311:/ finalreturn");
+               ;
+               /*finalret*/ goto labend_rout ;}
+              ;
+              /*_.LET___V88*/ curfptr[69] = /*_.RETURN___V102*/ curfptr[100];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.NRECV__V89*/ curfptr[70] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.NSEND_SEL__V90*/ curfptr[72] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.NEXPR_ARGS__V91*/ curfptr[76] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.NRES__V92*/ curfptr[79] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.IFCPP___V94*/ curfptr[93] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.IFCPP___V98*/ curfptr[96] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.IFCPP___V100*/ curfptr[98] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
+              /*clear*/ /*_.RETURN___V102*/ curfptr[100] = 0 ;}
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3291:/ block");
+             /*block*/{
+              /*_.PROGN___V103*/ curfptr[70] = /*_.LET___V88*/ curfptr[69];;}
+             ;
+             /*_.IFELSE___V83*/ curfptr[73] = /*_.PROGN___V103*/ curfptr[70];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
+             /*clear*/ /*_.IFCPP___V84*/ curfptr[74] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
+             /*clear*/ /*_.IFCPP___V86*/ curfptr[77] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
+             /*clear*/ /*_.LET___V88*/ curfptr[69] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
+             /*clear*/ /*_.PROGN___V103*/ curfptr[70] = 0 ;}
+            ;
+           } else {MELT_LOCATION("warmelt-normal.melt:3291:/ cond.else");
+           
+            MELT_LOCATION("warmelt-normal.melt:3291:/ block");
+            /*block*/{
+             
+             {
+             MELT_LOCATION("warmelt-normal.melt:3315:/ locexp");
+             melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "multi-called expression neither apply nor send"), (melt_ptr_t)0);}
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3316:/ block");
+             /*block*/{
+              /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+              MELT_LOCATION("warmelt-normal.melt:3316:/ finalreturn");
+              ;
+              /*finalret*/ goto labend_rout ;}
+             ;
+             MELT_LOCATION("warmelt-normal.melt:3314:/ block");
+             /*block*/{
+              /*_.PROGN___V105*/ curfptr[76] = /*_.RETURN___V104*/ curfptr[72];;}
+             ;
+             /*_.IFELSE___V83*/ curfptr[73] = /*_.PROGN___V105*/ curfptr[76];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
+             /*clear*/ /*_.RETURN___V104*/ curfptr[72] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
+             /*clear*/ /*_.PROGN___V105*/ curfptr[76] = 0 ;}
+            ;
+            }
+           ;
+           /*_.IFELSE___V69*/ curfptr[68] = /*_.IFELSE___V83*/ curfptr[73];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
+           /*clear*/ /*_#IS_A__L16*/ curfnum[12] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
+           /*clear*/ /*_.IFELSE___V83*/ curfptr[73] = 0 ;}
+          ;
+          }
+         ;
+         /*_.LET___V60*/ curfptr[55] = /*_.IFELSE___V69*/ curfptr[68];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_.LASTNBODY__V61*/ curfptr[56] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_.LASTNTYPE__V62*/ curfptr[58] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_.CSYM__V64*/ curfptr[62] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_.CBIND__V65*/ curfptr[64] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_.CLOCC__V67*/ curfptr[66] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_#IS_A__L12*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
+         /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;}
+        ;
+        /*_.LET___V53*/ curfptr[51] = /*_.LET___V60*/ curfptr[55];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3250:/ clear");
+        /*clear*/ /*_.WNBODYLET__V54*/ curfptr[53] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3250:/ clear");
+        /*clear*/ /*_.LET___V55*/ curfptr[54] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3250:/ clear");
+        /*clear*/ /*_.LET___V60*/ curfptr[55] = 0 ;}
+       ;
+       /*_.MULTI___V46*/ curfptr[45] = /*_.LET___V53*/ curfptr[51];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
+       /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
+       /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
+       /*clear*/ /*_.LET___V53*/ curfptr[51] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
+      /*clear*/ /*_.NBODYBINDINGS__V48*/ curfptr[47] = 0 ;}
+     ;
+     /*_.LET___V31*/ curfptr[29] = /*_.MULTI___V46*/ curfptr[45];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.NCALLSYM__V32*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.NBOXCALL__V33*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.NREALCALL__V34*/ curfptr[33] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.NINCALLBINDINGS__V35*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.LIST_ITERATE_TEST__V38*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.BOX_CONTENT__V39*/ curfptr[38] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
+     /*clear*/ /*_.MULTI___V46*/ curfptr[45] = 0 ;}
+    ;
+    /*_.MULTI___V22*/ curfptr[20] = /*_.LET___V31*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
+    /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
+    /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
+    /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
+    /*clear*/ /*_.LET___V31*/ curfptr[29] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
+   /*clear*/ /*_.NCALLBINDINGS__V24*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.SRESBIND__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.SCALL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.NEWENV__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
+  /*clear*/ /*_.MULTI___V22*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3204:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3204:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_MULTICALL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_89_warmelt_normal_NORMEXP_MULTICALL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_90_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3232:/ getarg");
+ /*_.CBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3232:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3233:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3233:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3233:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3233:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3233:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3233:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3233:/ locexp");
+      melt_assert_failed(( "normexp_multicall check cbnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3233)?(3233):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3233:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3233:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3233:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3234:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; };
+ ;
+ /*_#__L2*/ curfnum[0] = 
+  (((/*~NCALLSYM*/ curfclos->tabval[0])) == (/*_.BINDER__V5*/ curfptr[3]));;
+ MELT_LOCATION("warmelt-normal.melt:3234:/ cond");
+ /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:3234:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:3234:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3235:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3235:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NREALCALLEX__V8*/ curfptr[7] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3236:/ locexp");
+    meltgc_box_put((melt_ptr_t)((/*~NBOXCALL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.NREALCALLEX__V8*/ curfptr[7]));}
+    ;
+    /*_.LET___V7*/ curfptr[6] = (/*nil*/NULL);;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3235:/ clear");
+    /*clear*/ /*_.NREALCALLEX__V8*/ curfptr[7] = 0 ;}
+   ;
+   /*_.IFELSE___V6*/ curfptr[5] = /*_.LET___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3234:/ clear");
+   /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-normal.melt:3234:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-normal.melt:3234:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:3238:/ locexp");
+   meltgc_append_list((melt_ptr_t)((/*~NINCALLBINDINGS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]));}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3238:/ block");
+   /*block*/{
+    /*_.PROGN___V9*/ curfptr[7] = /*_.CBND__V2*/ curfptr[1];;}
+   ;
+   /*_.IFELSE___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3234:/ clear");
+   /*clear*/ /*_.PROGN___V9*/ curfptr[7] = 0 ;}
+  ;
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3232:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V6*/ curfptr[5];;
+  MELT_LOCATION("warmelt-normal.melt:3232:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
+ /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
+ /*clear*/ /*_#__L2*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
+ /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_90_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_91_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3243:/ getarg");
+ /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3243:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3243:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:3244:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:3244:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ curfptr[1];
+  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3243:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-normal.melt:3243:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3243:/ clear");
+ /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_91_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_92_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3254:/ getarg");
+ /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3254:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:3255:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V3*/ curfptr[2] = slot; };
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:3255:/ locexp");
+ meltgc_remove_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), 
+			      (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3254:/ clear");
+ /*clear*/ /*_.BINDER__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_92_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_93_warmelt_normal_NORMEXP_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_normal_NORMEXP_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3325:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3326:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3326:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3326:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3326:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3326:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3326:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3326:/ locexp");
+      melt_assert_failed(( "check tuple recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3326)?(3326):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3326:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3326:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3326:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3327:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3327:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3327:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3327:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3327:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3327:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3327)?(3327):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3327:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3327:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3328:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3328:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3328:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3328:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3328:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3328:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3328:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3328)?(3328):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3328:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3328:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3328:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3329:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3329:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3329:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_tuple recv";
+    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
+    argtab[3].bp_long = 3329;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3329:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3329:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3329:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3330:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3330:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3331:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3333:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply");
+   /*multiapply 4args, 1x.res*/ {
+    union meltparam_un argtab[3];
+    
+    union meltparam_un restab[1];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V19*/ curfptr[18];
+    MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.appl");
+    /*_.NARGS__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SARGS__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3333:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3336:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3336:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3336:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_tuple nargs";
+       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
+       argtab[3].bp_long = 3336;
+       /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NARGS__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3336:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3336:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3336:/ cppif.else");
+    /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3337:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3337:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3337:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_tuple nbindings";
+       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
+       argtab[3].bp_long = 3337;
+       /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDINGS__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3337:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3337:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3337:/ cppif.else");
+    /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3341:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unimplemented TUPLE normalization"), (melt_ptr_t)0);}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3342:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3342:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3342:/ cond");
+      /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3342:/ cond.then");
+      /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3342:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3342:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3342:/ locexp");
+         melt_assert_failed(( "@$@unimplemented TUPLE"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3342)?(3342):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3342:/ clear");
+      /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3342:/ cppif.else");
+    /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.MULTI___V17*/ curfptr[16] = /*_.IFCPP___V24*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
+    /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
+    /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
+    /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
+   /*clear*/ /*_.NBINDINGS__V19*/ curfptr[18] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V17*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3330:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3330:/ clear");
+  /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3330:/ clear");
+  /*clear*/ /*_.MULTI___V17*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3325:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3325:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_93_warmelt_normal_NORMEXP_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_94_warmelt_normal_NORMEXP_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_normal_NORMEXP_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3349:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3350:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3350:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3350:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3350:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3350:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3350:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3350:/ locexp");
+      melt_assert_failed(( "check list recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3350)?(3350):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3350:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3350:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3350:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3351:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3351:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3351:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3351:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3351:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3351:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3351:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3351)?(3351):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3351:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3351:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3351:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3352:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3352:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3352:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3352:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3352:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3352:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3352)?(3352):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3352:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3352:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3353:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3353:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_list recv";
+    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
+    argtab[3].bp_long = 3353;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3353:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3353:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3354:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3354:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3355:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V16*/ curfptr[15] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3358:/ locexp");
+  melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unimplemented LIST normalization"), (melt_ptr_t)0);}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3359:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3359:/ cond");
+    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3359:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:3359:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3359:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3359:/ locexp");
+       melt_assert_failed(( "@$@unimplemented LIST"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3359)?(3359):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3359:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V17*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3354:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3354:/ clear");
+  /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3354:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3349:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3349:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_94_warmelt_normal_NORMEXP_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("BADMETH_PREPARE_CONSTRUCTOR_BINDING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3372:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3373:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3373:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3373:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
+    argtab[0].bp_cstring =  "bad_prepare_constructor_binding recv";
+    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
+    argtab[3].bp_long = 3373;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3373:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3373:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3373:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3374:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3374:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3374:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
+    argtab[0].bp_cstring =  "bad_prepare_constructor_binding symb";
+    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
+    argtab[3].bp_long = 3374;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3374:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3374:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3374:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3375:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:3375:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:3375:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-normal.melt:3375:/ cond.else");
+ 
+  /*_.NAMED_NAME__V10*/ curfptr[8] = NULL;;
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:3375:/ locexp");
+ melt_error_str((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]), ( "invalid constructor binding"), (melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8]));}
+ ;
+ /*_.DISCRIM__V11*/ curfptr[10] = 
+  (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
+ MELT_LOCATION("warmelt-normal.melt:3377:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:3377:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:3377:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-normal.melt:3377:/ cond.else");
+ 
+  /*_.NAMED_NAME__V12*/ curfptr[11] = NULL;;
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:3376:/ locexp");
+ melt_error_str((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]), ( "reciever unprepared to constructor binding"), (melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11]));}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3378:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3378:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3378:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3378:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3378:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3378:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3378:/ locexp");
+      melt_assert_failed(( "@$@badmeth_prepare_constructor_binding"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3378)?(3378):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3378:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3378:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3372:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V13*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3372:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
+ /*clear*/ /*_.DISCRIM__V11*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("BADMETH_PREPARE_CONSTRUCTOR_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("BADMETH_NORMAL_LETREC_CONSTRUCTIVE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
+ /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3391:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3392:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3392:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3392:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
+    argtab[0].bp_cstring =  "badmeth_normal_letrec_constructive cexpr";
+    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
+    argtab[3].bp_long = 3392;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3392:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3392:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3392:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3393:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3393:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3393:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
+    argtab[0].bp_cstring =  "badmeth_normal_letrec_constructive symb";
+    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
+    argtab[3].bp_long = 3393;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3393:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3393:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3393:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3394:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3394:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3394:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
+    argtab[0].bp_cstring =  "badmeth_normal_letrec_constructive cbind";
+    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
+    argtab[3].bp_long = 3394;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3394:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3394:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3394:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3395:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:3395:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:3395:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[12] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-normal.melt:3395:/ cond.else");
+ 
+  /*_.NAMED_NAME__V14*/ curfptr[12] = NULL;;
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:3395:/ locexp");
+ melt_error_str((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6]), ( "invalid letrec constructive symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[12]));}
+ ;
+ /*_.DISCRIM__V15*/ curfptr[14] = 
+  (melt_discr((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1])));;
+ MELT_LOCATION("warmelt-normal.melt:3397:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:3397:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:3397:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-normal.melt:3397:/ cond.else");
+ 
+  /*_.NAMED_NAME__V16*/ curfptr[15] = NULL;;
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:3396:/ locexp");
+ melt_error_str((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6]), ( "reciever unprepared to normal_letrec_constructive"), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3398:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3398:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3398:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3398:/ cond.then");
+   /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3398:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3398:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3398:/ locexp");
+      melt_assert_failed(( "@$@badmeth_normal_letrec_constructive"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3398)?(3398):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3398:/ clear");
+   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3398:/ cppif.else");
+ /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V17*/ curfptr[16];;
+  MELT_LOCATION("warmelt-normal.melt:3391:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[12] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.DISCRIM__V15*/ curfptr[14] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
+ /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("BADMETH_NORMAL_LETREC_CONSTRUCTIVE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_97_warmelt_normal_PREPCONS_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_normal_PREPCONS_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PREPCONS_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3403:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3404:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3404:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3404:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_lambda recv";
+    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
+    argtab[3].bp_long = 3404;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3404:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3404:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3404:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3405:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3405:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3405:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_lambda symb";
+    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
+    argtab[3].bp_long = 3405;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3405:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3405:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3405:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3406:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3406:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3406:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3406:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3406:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3406:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3406:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3406)?(3406):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3406:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3406:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3406:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3407:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3410:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_closure";
+   /*_.NORMAL_PREDEF__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3407:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3407:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[2])), (7), "CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING");/*_.INST__V15*/ curfptr[14] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3407:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3407:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.SLOC__V5*/ curfptr[4]), "NCONSB_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3407:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (2), (/*_.NORMAL_PREDEF__V13*/ curfptr[12]), "NCONSB_DISCR");
+   ;
+   /*_.CONSLAM__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3413:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3413:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3413:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
+     argtab[0].bp_cstring =  "prepcons_lambda gives conslam";
+     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
+     argtab[3].bp_long = 3413;
+     /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSLAM__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3413:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3413:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3413:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3414:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSLAM__V14*/ curfptr[13];;
+   MELT_LOCATION("warmelt-normal.melt:3414:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V18*/ curfptr[16];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
+  /*clear*/ /*_.CONSLAM__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
+  /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3403:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:3403:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PREPCONS_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_97_warmelt_normal_PREPCONS_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_98_warmelt_normal_NORMLETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_normal_NORMLETREC_LAMBDA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 45
+  void* varptr[45];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<45; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 45;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMLETREC_LAMBDA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
+ /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3421:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3422:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3422:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3422:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_lambda cexpr";
+    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
+    argtab[3].bp_long = 3422;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3422:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3422:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3422:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3423:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3423:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3423:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_lambda symb";
+    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
+    argtab[3].bp_long = 3423;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3423:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3423:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3423:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3424:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3424:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3424:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_lambda cbind";
+    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
+    argtab[3].bp_long = 3424;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3424:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3424:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3424:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3425:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3425:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3425:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_lambda env";
+    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
+    argtab[3].bp_long = 3425;
+    /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3425:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3425:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3425:/ cppif.else");
+ /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3426:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3426:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3426:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3426:/ cond.then");
+   /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3426:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3426:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3426:/ locexp");
+      melt_assert_failed(( "check cbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3426)?(3426):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3426:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3426:/ clear");
+   /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3426:/ cppif.else");
+ /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3427:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3427:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3429:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3429:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3429:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
+     argtab[0].bp_cstring =  "normletrec_lambda newenv";
+     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
+     argtab[3].bp_long = 3429;
+     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3429:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3429:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3429:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3430:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3430:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-normal.melt:3430:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3430:/ cond.then");
+    /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:3430:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3430:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3430:/ locexp");
+       melt_assert_failed(( "check newenv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3430)?(3430):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3430:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3430:/ clear");
+    /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3430:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3431:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply");
+   /*multiapply 5args, 8x.res*/ {
+    union meltparam_un argtab[4];
+    
+    union meltparam_un restab[8];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[16];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[16];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
+    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CSYM__V24*/ curfptr[23];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[1].bp_aptr = (melt_ptr_t*) &/*_.CLOCC__V25*/ curfptr[24];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[2].bp_aptr = (melt_ptr_t*) &/*_.CONSTROUT__V26*/ curfptr[25];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[3].bp_aptr = (melt_ptr_t*) &/*_.CLOVTUP__V27*/ curfptr[26];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V28*/ curfptr[27];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[5].bp_aptr = (melt_ptr_t*) &/*_.OLDPROC__V29*/ curfptr[28];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[6].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V30*/ curfptr[29];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
+    restab[7].bp_longptr =  & /*_#INSIDEFLAG__L8*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.appl");
+    /*_.NPROC__V23*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3435:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3435:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3435:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda csym";
+       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
+       argtab[3].bp_long = 3435;
+       /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CSYM__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3435:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3435:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3435:/ cppif.else");
+    /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3436:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3436:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3436:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda clocc";
+       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
+       argtab[3].bp_long = 3436;
+       /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOCC__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3436:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3436:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3436:/ cppif.else");
+    /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3437:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3437:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3437:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda constrout";
+       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
+       argtab[3].bp_long = 3437;
+       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTROUT__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V35*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3437:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3437:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3437:/ cppif.else");
+    /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3438:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3438:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3438:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda clovtup";
+       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
+       argtab[3].bp_long = 3438;
+       /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOVTUP__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3438:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3438:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3438:/ cppif.else");
+    /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3439:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3439:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L13*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3439:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda oldproc";
+       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
+       argtab[3].bp_long = 3439;
+       /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLDPROC__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3439:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3439:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3439:/ cppif.else");
+    /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3440:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3440:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L14*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3440:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda ndatarout";
+       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
+       argtab[3].bp_long = 3440;
+       /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NDATAROUT__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3440:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3440:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3440:/ cppif.else");
+    /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3441:/ cond");
+    /*cond*/ if (/*_#INSIDEFLAG__L8*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3441:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:3441:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3442:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDPROC__V29*/ curfptr[28]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V43*/ curfptr[41] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3442:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V43*/ curfptr[41]), (melt_ptr_t)(/*_.NDATAROUT__V30*/ curfptr[29]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3441:/ clear");
+      /*clear*/ /*_.NRPRO_CONST__V43*/ curfptr[41] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3443:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[1])))) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3443:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:3443:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NLAMBDAB_NCLOSED", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (4), (/*_.CLOVTUP__V27*/ curfptr[26]), "NLAMBDAB_NCLOSED");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NLAMBDAB_CONSTROUT", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (5), (/*_.CONSTROUT__V26*/ curfptr[25]), "NLAMBDAB_CONSTROUT");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3443:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NLAMBDAB_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (6), (/*_.NDATAROUT__V30*/ curfptr[29]), "NLAMBDAB_DATAROUT");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3443:/ touch");
+      meltgc_touch(/*_.CBIND__V4*/ curfptr[3]);
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3447:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3447:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3447:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
+       argtab[0].bp_cstring =  "normletrec_lambda updated cbind";
+       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
+       argtab[3].bp_long = 3447;
+       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V44*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3447:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3447:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3447:/ cppif.else");
+    /*_.IFCPP___V44*/ curfptr[41] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3449:/ locexp");
+     
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "normletrec_lambda ended"), (15));
+#endif
+;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+    /*clear*/ /*_.IFCPP___V44*/ curfptr[41] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.CSYM__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.CLOCC__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.CONSTROUT__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.CLOVTUP__V27*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.SLOC__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.OLDPROC__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_.NDATAROUT__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
+   /*clear*/ /*_#INSIDEFLAG__L8*/ curfnum[0] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3427:/ clear");
+  /*clear*/ /*_.NEWENV__V18*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3427:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3427:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
+ /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
+ /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMLETREC_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_98_warmelt_normal_NORMLETREC_LAMBDA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_99_warmelt_normal_PREPCONS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_normal_PREPCONS_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PREPCONS_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3455:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3456:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3456:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3456:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_tuple recv";
+    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
+    argtab[3].bp_long = 3456;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3456:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3456:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3456:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3457:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3457:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3457:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_tuple symb";
+    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
+    argtab[3].bp_long = 3457;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3457:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3457:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3457:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3458:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3458:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3458:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3458:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3458:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3458:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3458:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3458)?(3458):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3458:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3458:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3458:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3459:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3460:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3460:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3460:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3460:/ cond.else");
+  
+   /*_.LOC__V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3461:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_ARGUMENTED_OPERATOR*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3461:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3461:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.TUPARG__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3461:/ cond.else");
+  
+   /*_.TUPARG__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  /*_#NBTUPARG__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.TUPARG__V14*/ curfptr[13])));;
+  /*_.NTUP__V15*/ curfptr[14] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBTUPARG__L4*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-normal.melt:3466:/ cond");
+  /*cond*/ if (/*_.LOC__V13*/ curfptr[12]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3466:/ cond.then");
+  /*_.OR___V16*/ curfptr[15] = /*_.LOC__V13*/ curfptr[12];;
+  } else {MELT_LOCATION("warmelt-normal.melt:3466:/ cond.else");
+  
+   /*_.OR___V16*/ curfptr[15] = /*_.SLOC__V5*/ curfptr[4];;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3467:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_multiple";
+   /*_.NORMAL_PREDEF__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3464:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3464:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[5])), (5), "CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING");/*_.INST__V19*/ curfptr[18] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.OR___V16*/ curfptr[15]), "NCONSB_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.NORMAL_PREDEF__V17*/ curfptr[16]), "NCONSB_DISCR");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NTUPB_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (4), (/*_.NTUP__V15*/ curfptr[14]), "NTUPB_COMP");
+   ;
+   /*_.CONSTUP__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3471:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3471:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3471:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
+     argtab[0].bp_cstring =  "prepcons_tuple gives constup";
+     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
+     argtab[3].bp_long = 3471;
+     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTUP__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3471:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3471:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3471:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3472:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSTUP__V18*/ curfptr[17];;
+   MELT_LOCATION("warmelt-normal.melt:3472:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.TUPARG__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_#NBTUPARG__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.NTUP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.OR___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.CONSTUP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
+  /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3455:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:3455:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PREPCONS_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_99_warmelt_normal_PREPCONS_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_100_warmelt_normal_NORMLETREC_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_normal_NORMLETREC_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 53
+  void* varptr[53];
+#define CURFRAM_NBVARNUM 21
+  long varnum[21];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<53; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 53;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMLETREC_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
+ /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3477:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3478:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3478:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3478:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_tuple cexpr";
+    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
+    argtab[3].bp_long = 3478;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3478:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3478:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3478:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3479:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3479:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3479:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_tuple symb";
+    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
+    argtab[3].bp_long = 3479;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3479:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3479:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3479:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3480:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3480:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3480:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_tuple cbind";
+    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
+    argtab[3].bp_long = 3480;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3480:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3480:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3480:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3481:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3481:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3481:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3481:/ cond.then");
+   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3481:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3481:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3481:/ locexp");
+      melt_assert_failed(( "check cexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3481)?(3481):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3481:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3481:/ clear");
+   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3481:/ cppif.else");
+ /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3482:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3482:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3482:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3482:/ cond.then");
+   /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3482:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3482:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3482:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3482)?(3482):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3482:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3482:/ clear");
+   /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3482:/ cppif.else");
+ /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3483:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3483:/ block");
+  /*block*/{
+   /*_#IS_A__L6*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-normal.melt:3483:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3483:/ cond.then");
+   /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3483:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3483:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3483:/ locexp");
+      melt_assert_failed(( "check cbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3483)?(3483):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3483:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3483:/ clear");
+   /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3483:/ cppif.else");
+ /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3484:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3485:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3485:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3485:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ curfptr[18] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3485:/ cond.else");
+  
+   /*_.LOCA_LOCATION__V20*/ curfptr[18] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3485:/ cond");
+  /*cond*/ if (/*_.LOCA_LOCATION__V20*/ curfptr[18]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3485:/ cond.then");
+  /*_.LOC__V21*/ curfptr[20] = /*_.LOCA_LOCATION__V20*/ curfptr[18];;
+  } else {MELT_LOCATION("warmelt-normal.melt:3485:/ cond.else");
+  
+   /*_.LOC__V21*/ curfptr[20] = /*_.SLOC__V7*/ curfptr[6];;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3486:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V22*/ curfptr[21] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3487:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3487:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3487:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), 4, "NTUPB_COMP");/*_.BCOMP__V23*/ curfptr[22] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3487:/ cond.else");
+  
+   /*_.BCOMP__V23*/ curfptr[22] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3488:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[5])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3488:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3488:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), 3, "NCONSB_NLETREC");/*_.NLETREC__V24*/ curfptr[23] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3488:/ cond.else");
+  
+   /*_.NLETREC__V24*/ curfptr[23] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3489:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[6])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3489:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3489:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), 3, "NLETREC_BINDINGS");/*_.NRECBINDS__V25*/ curfptr[24] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3489:/ cond.else");
+  
+   /*_.NRECBINDS__V25*/ curfptr[24] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3491:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3491:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3491:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
+     argtab[0].bp_cstring =  "normletrec_tuple sargs";
+     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
+     argtab[3].bp_long = 3491;
+     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SARGS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3491:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3491:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3491:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3492:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3492:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3492:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
+     argtab[0].bp_cstring =  "normletrec_tuple bcomp";
+     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
+     argtab[3].bp_long = 3492;
+     /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3492:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3492:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3492:/ cppif.else");
+  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3493:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3493:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3493:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
+     argtab[0].bp_cstring =  "normletrec_tuple nletrec";
+     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
+     argtab[3].bp_long = 3493;
+     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V30*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3493:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3493:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3493:/ cppif.else");
+  /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3494:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3494:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3494:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
+     argtab[0].bp_cstring =  "normletrec_tuple nrecbinds";
+     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
+     argtab[3].bp_long = 3494;
+     /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3494:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3494:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3494:/ cppif.else");
+  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3495:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3495:/ block");
+   /*block*/{
+    /*_#IS_A__L11*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[6])));;
+    MELT_LOCATION("warmelt-normal.melt:3495:/ cond");
+    /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3495:/ cond.then");
+    /*_.IFELSE___V35*/ curfptr[34] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:3495:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3495:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3495:/ locexp");
+       melt_assert_failed(( "check nletrec"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3495)?(3495):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V34*/ curfptr[32] = /*_.IFELSE___V35*/ curfptr[34];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3495:/ clear");
+    /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3495:/ clear");
+    /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3495:/ cppif.else");
+  /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3496:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3496:/ block");
+   /*block*/{
+    /*_#IS_LIST__L12*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-normal.melt:3496:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3496:/ cond.then");
+    /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:3496:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3496:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3496:/ locexp");
+       melt_assert_failed(( "check nrecbinds"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3496)?(3496):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3496:/ clear");
+    /*clear*/ /*_#IS_LIST__L12*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3496:/ clear");
+    /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3496:/ cppif.else");
+  /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3497:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply");
+   /*multiapply 4args, 1x.res*/ {
+    union meltparam_un argtab[3];
+    
+    union meltparam_un restab[1];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V21*/ curfptr[20];
+    MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V39*/ curfptr[38];
+    MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.appl");
+    /*_.NARGS__V38*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SARGS__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3497:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3500:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3500:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3500:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
+       argtab[0].bp_cstring =  "normalize_tuple nargs";
+       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
+       argtab[3].bp_long = 3500;
+       /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3500:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3500:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3500:/ cppif.else");
+    /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3501:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3501:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3501:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
+       argtab[0].bp_cstring =  "normalize_tuple nbinds";
+       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
+       argtab[3].bp_long = 3501;
+       /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDS__V39*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3501:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3501:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3501:/ cppif.else");
+    /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3502:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3502:/ block");
+     /*block*/{
+      /*_#MULTIPLE_LENGTH__L15*/ curfnum[0] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22])));;
+      /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36])));;
+      /*_#I__L17*/ curfnum[16] = 
+       ((/*_#MULTIPLE_LENGTH__L15*/ curfnum[0]) == (/*_#MULTIPLE_LENGTH__L16*/ curfnum[15]));;
+      MELT_LOCATION("warmelt-normal.melt:3502:/ cond");
+      /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3502:/ cond.then");
+      /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3502:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3502:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3502:/ locexp");
+         melt_assert_failed(( "check nargs & bcomp samelength"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3502)?(3502):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V44*/ curfptr[42] = /*_.IFELSE___V45*/ curfptr[44];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
+      /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
+      /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
+      /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
+      /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3502:/ cppif.else");
+    /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3503:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3503:/ block");
+     /*block*/{
+      /*_#IS_LIST_OR_NULL__L18*/ curfnum[0] = 
+       ((/*_.NBINDS__V39*/ curfptr[38]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDS__V39*/ curfptr[38])) == OBMAG_LIST));;
+      MELT_LOCATION("warmelt-normal.melt:3503:/ cond");
+      /*cond*/ if (/*_#IS_LIST_OR_NULL__L18*/ curfnum[0]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3503:/ cond.then");
+      /*_.IFELSE___V47*/ curfptr[46] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3503:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3503:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3503:/ locexp");
+         melt_assert_failed(( "check nbinds"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3503)?(3503):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3503:/ clear");
+      /*clear*/ /*_#IS_LIST_OR_NULL__L18*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3503:/ clear");
+      /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3503:/ cppif.else");
+    /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NARGS__V38*/ curfptr[36]);
+   for (/*_#NIX__L19*/ curfnum[15] = 0;  
+	(/*_#NIX__L19*/ curfnum[15] >= 0) && (/*_#NIX__L19*/ curfnum[15] <  cit1__EACHTUP_ln);  
+	/*_#NIX__L19*/ curfnum[15]++) {
+   /*_.CURNARG__V48*/ curfptr[46] = melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36]),  /*_#NIX__L19*/ curfnum[15]);
+   
+    
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3507:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (/*_#NIX__L19*/ curfnum[15]), (melt_ptr_t)(/*_.CURNARG__V48*/ curfptr[46]));}
+     ;
+     if (/*_#NIX__L19*/ curfnum[15]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-normal.melt:3504:/ clear");
+     /*clear*/ /*_.CURNARG__V48*/ curfptr[46] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3504:/ clear");
+     /*clear*/ /*_#NIX__L19*/ curfnum[15] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3508:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3508:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L20*/ curfnum[16] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3508:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
+       argtab[0].bp_cstring =  "normalize_tuple updated bcomp";
+       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[16];
+       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
+       argtab[3].bp_long = 3508;
+       /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3508:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[16] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3508:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3508:/ cppif.else");
+    /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3509:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3509:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V39*/ curfptr[38];
+     /*_.LIST_APPEND2LIST__V51*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3510:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3510:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3510:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
+       argtab[0].bp_cstring =  "normalize_tuple updated nrecbinds";
+       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
+       argtab[3].bp_long = 3510;
+       /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3510:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3510:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3510:/ cppif.else");
+    /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3511:/ locexp");
+     
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "normletrec_tuple ended"), (15));
+#endif
+;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V51*/ curfptr[49] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+    /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
+   /*clear*/ /*_.NBINDS__V39*/ curfptr[38] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V20*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.LOC__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.SARGS__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.BCOMP__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.NLETREC__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.NRECBINDS__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
+  /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
+ /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
+ /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
+ /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMLETREC_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_100_warmelt_normal_NORMLETREC_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_101_warmelt_normal_PREPCONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_normal_PREPCONS_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PREPCONS_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3517:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3518:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3518:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3518:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_list recv";
+    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
+    argtab[3].bp_long = 3518;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3518:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3518:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3518:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3519:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3519:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3519:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_list symb";
+    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
+    argtab[3].bp_long = 3519;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3519:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3519:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3519:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3520:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3520:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3520:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3520:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3520:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3520:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3520:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3520)?(3520):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3520:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3520:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3520:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3521:/ block");
+ /*block*/{
+  /*_.RESLIST__V13*/ curfptr[12] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  MELT_LOCATION("warmelt-normal.melt:3523:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3523:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3523:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3523:/ cond.else");
+  
+   /*_.LOC__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3524:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_ARGUMENTED_OPERATOR*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3524:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3524:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.LISTARG__V15*/ curfptr[14] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3524:/ cond.else");
+  
+   /*_.LISTARG__V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_#NBLISTARG__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.LISTARG__V15*/ curfptr[14])));;
+  /*_.PAIRSB__V16*/ curfptr[15] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBLISTARG__L4*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-normal.melt:3529:/ cond");
+  /*cond*/ if (/*_.LOC__V14*/ curfptr[13]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3529:/ cond.then");
+  /*_.OR___V17*/ curfptr[16] = /*_.LOC__V14*/ curfptr[13];;
+  } else {MELT_LOCATION("warmelt-normal.melt:3529:/ cond.else");
+  
+   /*_.OR___V17*/ curfptr[16] = /*_.SLOC__V5*/ curfptr[4];;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3530:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_list";
+   /*_.NORMAL_PREDEF__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3527:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3527:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LIST_BINDING*/ curfrout->tabval[6])), (7), "CLASS_NORMAL_CONSTRUCTED_LIST_BINDING");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.OR___V17*/ curfptr[16]), "NCONSB_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.NORMAL_PREDEF__V18*/ curfptr[17]), "NCONSB_DISCR");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NLISTB_FIRST", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (4), ((/*nil*/NULL)), "NLISTB_FIRST");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NLISTB_LAST", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (5), ((/*nil*/NULL)), "NLISTB_LAST");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NLISTB_PAIRSB", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (6), (/*_.PAIRSB__V16*/ curfptr[15]), "NLISTB_PAIRSB");
+   ;
+   /*_.CONSLIST__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.LISTARG__V15*/ curfptr[14]);
+   for (/*_#CURIX__L5*/ curfnum[4] = 0;  
+	(/*_#CURIX__L5*/ curfnum[4] >= 0) && (/*_#CURIX__L5*/ curfnum[4] <  cit1__EACHTUP_ln);  
+	/*_#CURIX__L5*/ curfnum[4]++) {
+   /*_.CURARG__V21*/ curfptr[20] = melt_multiple_nth((melt_ptr_t)(/*_.LISTARG__V15*/ curfptr[14]),  /*_#CURIX__L5*/ curfnum[4]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:3539:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:3539:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:3539:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
+      argtab[0].bp_cstring =  "prepcons_list curarg";
+      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
+      argtab[3].bp_long = 3539;
+      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3539:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3539:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:3539:/ cppif.else");
+   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:3540:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])));;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3540:/ cond.then");
+    /*_.IFELSE___V24*/ curfptr[22] = /*_.CURARG__V21*/ curfptr[20];;
+    } else {MELT_LOCATION("warmelt-normal.melt:3540:/ cond.else");
+    
+     /*_.IFELSE___V24*/ curfptr[22] = (/*!konst_10_PAIROFLIST*/ curfrout->tabval[10]);;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ apply");
+    /*apply*/{
+     /*_.PAIRSYMB__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.IFELSE___V24*/ curfptr[22]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[3])))) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:3543:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V26*/ curfptr[25] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
+    
+     /*_.LOCA_LOCATION__V26*/ curfptr[25] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
+    /*cond*/ if (/*_.LOCA_LOCATION__V26*/ curfptr[25]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then");
+    /*_.OR___V27*/ curfptr[26] = /*_.LOCA_LOCATION__V26*/ curfptr[25];;
+    } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3543:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
+      /*cond*/ if (/*_.LOC__V14*/ curfptr[13]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then");
+      /*_.OR___V28*/ curfptr[27] = /*_.LOC__V14*/ curfptr[13];;
+      } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
+      
+       /*_.OR___V28*/ curfptr[27] = /*_.SLOC__V5*/ curfptr[4];;
+       }
+      ;
+      /*_.OR___V27*/ curfptr[26] = /*_.OR___V28*/ curfptr[27];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3543:/ clear");
+      /*clear*/ /*_.OR___V28*/ curfptr[27] = 0 ;}
+     ;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3544:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
+     MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg");
+     argtab[2].bp_cstring =  "discr_pair";
+     /*_.NORMAL_PREDEF__V29*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_PAIR*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3541:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3541:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING*/ curfrout->tabval[11])), (6), "CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING");/*_.INST__V31*/ curfptr[30] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.PAIRSYMB__V25*/ curfptr[24]), "BINDER");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.OR___V27*/ curfptr[26]), "NCONSB_LOC");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[27]), "NCONSB_DISCR");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NPAIRB_HEAD", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (4), ((/*nil*/NULL)), "NPAIRB_HEAD");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NPAIRB_TAIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), ((/*nil*/NULL)), "NPAIRB_TAIL");
+     ;
+     /*_.CONSPAIR__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3549:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.PAIRSB__V16*/ curfptr[15]), (/*_#CURIX__L5*/ curfnum[4]), (melt_ptr_t)(/*_.CONSPAIR__V30*/ curfptr[29]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3550:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (melt_ptr_t)(/*_.CONSPAIR__V30*/ curfptr[29]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_.PAIRSYMB__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_.LOCA_LOCATION__V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_.OR___V27*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
+    /*clear*/ /*_.CONSPAIR__V30*/ curfptr[29] = 0 ;}
+   ;
+   if (/*_#CURIX__L5*/ curfnum[4]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-normal.melt:3536:/ clear");
+   /*clear*/ /*_.CURARG__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3536:/ clear");
+   /*clear*/ /*_#CURIX__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3536:/ clear");
+   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3552:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (melt_ptr_t)(/*_.CONSLIST__V19*/ curfptr[18]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3553:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3553:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3553:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
+     argtab[0].bp_cstring =  "prepcons_list gives reslist";
+     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
+     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
+     argtab[3].bp_long = 3553;
+     /*_.DEBUG_MSG_FUN__V33*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V32*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3553:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3553:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3553:/ cppif.else");
+  /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3554:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RESLIST__V13*/ curfptr[12];;
+   MELT_LOCATION("warmelt-normal.melt:3554:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V34*/ curfptr[25];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.RESLIST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.LOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.LISTARG__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_#NBLISTARG__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.PAIRSB__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.OR___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.CONSLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.IFCPP___V32*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
+  /*clear*/ /*_.RETURN___V34*/ curfptr[25] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3517:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:3517:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PREPCONS_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_101_warmelt_normal_PREPCONS_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_102_warmelt_normal_NORMLETREC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_normal_NORMLETREC_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMLETREC_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
+ /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3559:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3560:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3560:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3560:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_list cexpr";
+    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
+    argtab[3].bp_long = 3560;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3560:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3560:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3560:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3561:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3561:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3561:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_list symb";
+    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
+    argtab[3].bp_long = 3561;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3561:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3561:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3561:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3562:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3562:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3562:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_list cbind";
+    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
+    argtab[3].bp_long = 3562;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3562:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3562:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3562:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3564:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3564:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3564:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3564:/ cond.then");
+   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3564:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3564:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3564:/ locexp");
+      melt_assert_failed(( "@$@unimplemented normletrec_list"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3564)?(3564):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3564:/ clear");
+   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3564:/ cppif.else");
+ /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3559:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3559:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
+ /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMLETREC_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_102_warmelt_normal_NORMLETREC_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_103_warmelt_normal_PREPCONS_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_normal_PREPCONS_INSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 27
+  void* varptr[27];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<27; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 27;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("PREPCONS_INSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3570:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3571:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3571:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3571:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_instance recv";
+    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
+    argtab[3].bp_long = 3571;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3571:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3571:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3571:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3572:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3572:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3572:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
+    argtab[0].bp_cstring =  "prepcons_instance symb";
+    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
+    argtab[3].bp_long = 3572;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3572:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3572:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3572:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3573:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3573:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3573:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3573:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3573:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3573:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3573:/ locexp");
+      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3573)?(3573):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3573:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3573:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3573:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3574:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3575:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3575:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3575:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3575:/ cond.else");
+  
+   /*_.LOC__V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3576:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3576:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3576:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLASS");/*_.CLA__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3576:/ cond.else");
+  
+   /*_.CLA__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3577:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3577:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3577:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_CLABIND");/*_.CLABIND__V15*/ curfptr[14] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3577:/ cond.else");
+  
+   /*_.CLABIND__V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  /*_#IS_A__L4*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])));;
+  MELT_LOCATION("warmelt-normal.melt:3578:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3578:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3578:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3578:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CLABIND__V15*/ curfptr[14]), 0, "BINDER");/*_.BINDER__V17*/ curfptr[16] = slot; };
+    ;
+    /*_.SCLASYM__V16*/ curfptr[15] = /*_.BINDER__V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3578:/ clear");
+    /*clear*/ /*_.BINDER__V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3578:/ cond.else");
+  
+   /*_.SCLASYM__V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3579:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3579:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3579:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V18*/ curfptr[16] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3579:/ cond.else");
+  
+   /*_.CLASS_FIELDS__V18*/ curfptr[16] = NULL;;
+   }
+  ;
+  /*_#NBCLAFLD__L5*/ curfnum[4] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V18*/ curfptr[16])));;
+  /*_.TUPSLOT__V19*/ curfptr[18] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBCLAFLD__L5*/ curfnum[4])));;
+  MELT_LOCATION("warmelt-normal.melt:3583:/ cond");
+  /*cond*/ if (/*_.LOC__V13*/ curfptr[12]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3583:/ cond.then");
+  /*_.OR___V20*/ curfptr[19] = /*_.LOC__V13*/ curfptr[12];;
+  } else {MELT_LOCATION("warmelt-normal.melt:3583:/ cond.else");
+  
+   /*_.OR___V20*/ curfptr[19] = /*_.SLOC__V5*/ curfptr[4];;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3581:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3581:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[6])), (6), "CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OR___V20*/ curfptr[19]), "NCONSB_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "NCONSB_DISCR");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINSTB_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (4), (/*_.TUPSLOT__V19*/ curfptr[18]), "NINSTB_SLOTS");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINSTB_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (5), (/*_.CLABIND__V15*/ curfptr[14]), "NINSTB_CLABIND");
+   ;
+   /*_.CONSINST__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3589:/ block");
+   /*block*/{
+    /*_#IS_A__L6*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-normal.melt:3589:/ cond");
+    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3589:/ cond.then");
+    /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:3589:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3589:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3589:/ locexp");
+       melt_assert_failed(( "prepcons_instance check class"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3589)?(3589):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3589:/ clear");
+    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3589:/ clear");
+    /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.else");
+  /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3590:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3590:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3590:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
+     argtab[0].bp_cstring =  "prepcons_instance gives consinst";
+     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
+     argtab[3].bp_long = 3590;
+     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSINST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3590:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3590:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3590:/ cppif.else");
+  /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3591:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSINST__V21*/ curfptr[20];;
+   MELT_LOCATION("warmelt-normal.melt:3591:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V27*/ curfptr[25];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.CLA__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.CLABIND__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.SCLASYM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.CLASS_FIELDS__V18*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_#NBCLAFLD__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.TUPSLOT__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.OR___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.CONSINST__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
+  /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3570:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:3570:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("PREPCONS_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_103_warmelt_normal_PREPCONS_INSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_104_warmelt_normal_NORMLETREC_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_normal_NORMLETREC_INSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMLETREC_INSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
+ /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3597:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3598:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3598:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3598:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_instance cexpr";
+    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
+    argtab[3].bp_long = 3598;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3598:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3598:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3598:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3599:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3599:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_instance symb";
+    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
+    argtab[3].bp_long = 3599;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3599:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3599:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3600:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3600:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3600:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
+    argtab[0].bp_cstring =  "normletrec_instance cbind";
+    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
+    argtab[3].bp_long = 3600;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3600:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3600:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3600:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3602:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3602:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3602:/ cond.then");
+   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3602:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3602:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3602:/ locexp");
+      melt_assert_failed(( "@$@unimplemented normletrec_instance"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3602)?(3602):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3602:/ clear");
+   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.else");
+ /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3597:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3597:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
+ /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMLETREC_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_104_warmelt_normal_NORMLETREC_INSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_105_warmelt_normal_NORMEXP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_normal_NORMEXP_LETREC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 154
+  void* varptr[154];
+#define CURFRAM_NBVARNUM 49
+  long varnum[49];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<154; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 154;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_LETREC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3607:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3608:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3608:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3608:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3608:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3608:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3608:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3608:/ locexp");
+      melt_assert_failed(( "check letrec recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3608)?(3608):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3608:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3608:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3608:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3609:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3609:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3609:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3609:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3609:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3609:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3609:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3609)?(3609):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3609:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3609:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3609:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3610:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3610:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3610:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3610:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3610:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3610:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3610)?(3610):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3610:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3610:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3611:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3611:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3611:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_letrec recv";
+    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
+    argtab[3].bp_long = 3611;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3611:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3611:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3611:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3612:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3612:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3613:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLET_BINDINGS");/*_.SBINDS__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3614:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SLET_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; };
+  ;
+  /*_#NBBIND__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15])));;
+  /*_.BINDLIST__V18*/ curfptr[17] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.CONSBINDLIST__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-normal.melt:3618:/ apply");
+  /*apply*/{
+   /*_.NEWENV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#I__L6*/ curfnum[5] = 
+   ((/*_#NBBIND__L5*/ curfnum[0]) * (2));;
+  /*_#MAPLEN__L7*/ curfnum[6] = 
+   ((5) + (/*_#I__L6*/ curfnum[5]));;
+  /*_.SYMBEXPRMAP__V21*/ curfptr[20] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#MAPLEN__L7*/ curfnum[6])));;
+  /*_.SYMBINDMAP__V22*/ curfptr[21] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#MAPLEN__L7*/ curfnum[6])));;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SBINDS__V16*/ curfptr[15]);
+   for (/*_#SBIX__L8*/ curfnum[7] = 0;  
+	(/*_#SBIX__L8*/ curfnum[7] >= 0) && (/*_#SBIX__L8*/ curfnum[7] <  cit1__EACHTUP_ln);  
+	/*_#SBIX__L8*/ curfnum[7]++) {
+   /*_.CURSBIND__V23*/ curfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15]),  /*_#SBIX__L8*/ curfnum[7]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:3627:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:3627:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:3627:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_letrec cursbind";
+      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
+      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
+      argtab[3].bp_long = 3627;
+      /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3627:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3627:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:3627:/ cppif.else");
+   /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:3628:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:3628:/ block");
+    /*block*/{
+     /*_#IS_A__L10*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[7])));;
+     MELT_LOCATION("warmelt-normal.melt:3628:/ cond");
+     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3628:/ cond.then");
+     /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:3628:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:3628:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:3628:/ locexp");
+        melt_assert_failed(( "check cursbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3628)?(3628):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3628:/ clear");
+     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3628:/ clear");
+     /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:3628:/ cppif.else");
+   /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:3629:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3629:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V29*/ curfptr[28] = slot; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ cond");
+    /*cond*/ if (/*_.LOCA_LOCATION__V29*/ curfptr[28]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3629:/ cond.then");
+    /*_.LOCB__V30*/ curfptr[29] = /*_.LOCA_LOCATION__V29*/ curfptr[28];;
+    } else {MELT_LOCATION("warmelt-normal.melt:3629:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3629:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3629:/ cond");
+      /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3629:/ cond.then");
+      /*_.OR___V31*/ curfptr[30] = /*_.SLOC__V15*/ curfptr[14];;
+      } else {MELT_LOCATION("warmelt-normal.melt:3629:/ cond.else");
+      
+       /*_.OR___V31*/ curfptr[30] = /*_.PSLOC__V5*/ curfptr[4];;
+       }
+      ;
+      /*_.LOCB__V30*/ curfptr[29] = /*_.OR___V31*/ curfptr[30];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+      /*clear*/ /*_.OR___V31*/ curfptr[30] = 0 ;}
+     ;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3630:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 3, "SLETB_BINDER");/*_.CURSYMB__V32*/ curfptr[30] = slot; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3631:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 4, "SLETB_EXPR");/*_.CUREXPR__V33*/ curfptr[32] = slot; };
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3633:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3633:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3633:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_letrec curexpr";
+       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
+       argtab[3].bp_long = 3633;
+       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3633:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3633:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3633:/ cppif.else");
+    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3634:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3634:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3634:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_letrec cursymb";
+       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
+       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
+       argtab[3].bp_long = 3634;
+       /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSYMB__V32*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V36*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3634:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3634:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3634:/ cppif.else");
+    /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3635:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3635:/ block");
+     /*block*/{
+      /*_#IS_A__L13*/ curfnum[8] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_SOURCE*/ curfrout->tabval[8])));;
+      MELT_LOCATION("warmelt-normal.melt:3635:/ cond");
+      /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3635:/ cond.then");
+      /*_.IFELSE___V39*/ curfptr[38] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3635:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3635:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3635:/ locexp");
+         melt_assert_failed(( "check curexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3635)?(3635):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V39*/ curfptr[38] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V38*/ curfptr[36] = /*_.IFELSE___V39*/ curfptr[38];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3635:/ clear");
+      /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3635:/ clear");
+      /*clear*/ /*_.IFELSE___V39*/ curfptr[38] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3635:/ cppif.else");
+    /*_.IFCPP___V38*/ curfptr[36] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3636:/ block");
+     /*block*/{
+      /*_#IS_A__L14*/ curfnum[8] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V32*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+      MELT_LOCATION("warmelt-normal.melt:3636:/ cond");
+      /*cond*/ if (/*_#IS_A__L14*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3636:/ cond.then");
+      /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3636:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3636:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3636:/ locexp");
+         melt_assert_failed(( "check cursymb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3636)?(3636):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V40*/ curfptr[38] = /*_.IFELSE___V41*/ curfptr[40];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3636:/ clear");
+      /*clear*/ /*_#IS_A__L14*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3636:/ clear");
+      /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.else");
+    /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3637:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBEXPRMAP__V21*/ curfptr[20]), 
+			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
+			   (melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3638:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3638:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSYMB__V32*/ curfptr[30];
+      MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOCB__V30*/ curfptr[29];
+      /*_.CURCONSBIND__V43*/ curfptr[42] = meltgc_send((melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (melt_ptr_t)((/*!PREPARE_CONSTRUCTOR_BINDING*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3640:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3640:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3640:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_letrec curconsbind";
+        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8];
+        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
+        argtab[3].bp_long = 3640;
+        /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3640:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3640:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3640:/ cppif.else");
+     /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_#IS_A__L16*/ curfnum[8] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
+     MELT_LOCATION("warmelt-normal.melt:3641:/ cond");
+     /*cond*/ if (/*_#IS_A__L16*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3641:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:3641:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3642:/ locexp");
+       meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3643:/ locexp");
+       meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), 
+			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
+			   (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));}
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3641:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/}
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:3641:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:3641:/ block");
+      /*block*/{
+       /*_#IS_MULTIPLE__L17*/ curfnum[16] = 
+        (melt_magic_discr((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42])) == OBMAG_MULTIPLE);;
+       MELT_LOCATION("warmelt-normal.melt:3645:/ cond");
+       /*cond*/ if (/*_#IS_MULTIPLE__L17*/ curfnum[16]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:3645:/ cond.then");
+       MELT_LOCATION("warmelt-normal.melt:3645:/ block");
+        /*block*/{
+         /*citerblock FOREACH_IN_MULTIPLE*/ {
+          /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURCONSBIND__V43*/ curfptr[42]);
+   for (/*_#SUBIX__L18*/ curfnum[17] = 0;  
+	(/*_#SUBIX__L18*/ curfnum[17] >= 0) && (/*_#SUBIX__L18*/ curfnum[17] <  cit2__EACHTUP_ln);  
+	/*_#SUBIX__L18*/ curfnum[17]++) {
+   /*_.SUBCONSBIND__V48*/ curfptr[47] = melt_multiple_nth((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]),  /*_#SUBIX__L18*/ curfnum[17]);
+   
+         
+          
+          #if ENABLE_CHECKING
+           MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.then");
+          MELT_LOCATION("warmelt-normal.melt:3649:/ block");
+           /*block*/{
+            /*_#IS_A__L19*/ curfnum[18] = 
+             melt_is_instance_of((melt_ptr_t)(/*_.SUBCONSBIND__V48*/ curfptr[47]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
+            MELT_LOCATION("warmelt-normal.melt:3649:/ cond");
+            /*cond*/ if (/*_#IS_A__L19*/ curfnum[18]) /*then*/ {
+            MELT_LOCATION("warmelt-normal.melt:3649:/ cond.then");
+            /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);;
+            } else {MELT_LOCATION("warmelt-normal.melt:3649:/ cond.else");
+            
+             MELT_LOCATION("warmelt-normal.melt:3649:/ block");
+             /*block*/{
+              /*block*/{
+               
+               {
+               MELT_LOCATION("warmelt-normal.melt:3649:/ locexp");
+               melt_assert_failed(( "normexp_letrec check subconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3649)?(3649):__LINE__, __FUNCTION__);
+;}
+               ;
+               /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
+              ;
+              /*epilog*/}
+             ;
+             }
+            ;
+            /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-normal.melt:3649:/ clear");
+            /*clear*/ /*_#IS_A__L19*/ curfnum[18] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3649:/ clear");
+            /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
+           
+           #else /*ENABLE_CHECKING*/
+           MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.else");
+          /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
+           #endif /*ENABLE_CHECKING*/
+           ;
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:3651:/ locexp");
+          meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.SUBCONSBIND__V48*/ curfptr[47]));}
+          ;
+          if (/*_#SUBIX__L18*/ curfnum[17]<0) break;
+   } /* end cit2__EACHTUP */ 
+         
+          /*citerepilog*/
+          MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
+          /*clear*/ /*_.SUBCONSBIND__V48*/ curfptr[47] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
+          /*clear*/ /*_#SUBIX__L18*/ curfnum[17] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
+          /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3652:/ locexp");
+         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), 
+			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
+			   (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3645:/ block");
+         /*block*/{}
+         ;
+         /*epilog*/}
+        ;
+       } else {MELT_LOCATION("warmelt-normal.melt:3645:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:3645:/ block");
+        /*block*/{
+         /*_#IS_LIST__L20*/ curfnum[18] = 
+          (melt_magic_discr((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42])) == OBMAG_LIST);;
+         MELT_LOCATION("warmelt-normal.melt:3654:/ cond");
+         /*cond*/ if (/*_#IS_LIST__L20*/ curfnum[18]) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:3654:/ cond.then");
+         MELT_LOCATION("warmelt-normal.melt:3654:/ block");
+          /*block*/{
+           /*citerblock FOREACH_IN_LIST*/ {
+           /* start cit3__EACHLIST */
+   for (/*_.SUBCONSPAIR__V52*/ curfptr[51] = melt_list_first(/*_.CURCONSBIND__V43*/ curfptr[42]);
+	melt_magic_discr(/*_.SUBCONSPAIR__V52*/ curfptr[51]) == OBMAG_PAIR;
+        /*_.SUBCONSPAIR__V52*/ curfptr[51] = melt_pair_tail(/*_.SUBCONSPAIR__V52*/ curfptr[51])) {
+	/*_.SUBCONSBIND__V53*/ curfptr[52] = melt_pair_head(/*_.SUBCONSPAIR__V52*/ curfptr[51]); 
+           
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-normal.melt:3658:/ cppif.then");
+            MELT_LOCATION("warmelt-normal.melt:3658:/ block");
+             /*block*/{
+              /*_#IS_A__L21*/ curfnum[20] = 
+               melt_is_instance_of((melt_ptr_t)(/*_.SUBCONSBIND__V53*/ curfptr[52]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
+              MELT_LOCATION("warmelt-normal.melt:3658:/ cond");
+              /*cond*/ if (/*_#IS_A__L21*/ curfnum[20]) /*then*/ {
+              MELT_LOCATION("warmelt-normal.melt:3658:/ cond.then");
+              /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
+              } else {MELT_LOCATION("warmelt-normal.melt:3658:/ cond.else");
+              
+               MELT_LOCATION("warmelt-normal.melt:3658:/ block");
+               /*block*/{
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-normal.melt:3658:/ locexp");
+                 melt_assert_failed(( "normexp_letrec check subconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3658)?(3658):__LINE__, __FUNCTION__);
+;}
+                 ;
+                 /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFCPP___V54*/ curfptr[53] = /*_.IFELSE___V55*/ curfptr[54];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-normal.melt:3658:/ clear");
+              /*clear*/ /*_#IS_A__L21*/ curfnum[20] = 0 ;
+              MELT_LOCATION("warmelt-normal.melt:3658:/ clear");
+              /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-normal.melt:3658:/ cppif.else");
+            /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            
+            {
+            MELT_LOCATION("warmelt-normal.melt:3660:/ locexp");
+            meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.SUBCONSBIND__V53*/ curfptr[52]));}
+            ;
+            } /* end cit3__EACHLIST */
+           
+            /*citerepilog*/
+            MELT_LOCATION("warmelt-normal.melt:3655:/ clear");
+            /*clear*/ /*_.SUBCONSPAIR__V52*/ curfptr[51] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3655:/ clear");
+            /*clear*/ /*_.SUBCONSBIND__V53*/ curfptr[52] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:3655:/ clear");
+            /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+           ;
+           MELT_LOCATION("warmelt-normal.melt:3661:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[1];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:3661:/ apply.arg");
+            argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[13]);
+            /*_.LIST_TO_MULTIPLE__V56*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:3661:/ locexp");
+           meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), 
+			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
+			   (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[54]));}
+           ;
+           MELT_LOCATION("warmelt-normal.melt:3654:/ block");
+           /*block*/{}
+           ;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3654:/ clear");
+           /*clear*/ /*_.LIST_TO_MULTIPLE__V56*/ curfptr[54] = 0 ;}
+          ;
+         } else {MELT_LOCATION("warmelt-normal.melt:3654:/ cond.else");
+         
+          MELT_LOCATION("warmelt-normal.melt:3654:/ block");
+          /*block*/{
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-normal.melt:3664:/ cppif.then");
+           MELT_LOCATION("warmelt-normal.melt:3664:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-normal.melt:3664:/ cond");
+             /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+             MELT_LOCATION("warmelt-normal.melt:3664:/ cond.then");
+             /*_.IFELSE___V58*/ curfptr[57] = (/*nil*/NULL);;
+             } else {MELT_LOCATION("warmelt-normal.melt:3664:/ cond.else");
+             
+              MELT_LOCATION("warmelt-normal.melt:3664:/ block");
+              /*block*/{
+               /*block*/{
+                
+                {
+                MELT_LOCATION("warmelt-normal.melt:3664:/ locexp");
+                melt_assert_failed(( "normexp_letrec bad curconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3664)?(3664):__LINE__, __FUNCTION__);
+;}
+                ;
+                /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;}
+               ;
+               /*epilog*/}
+              ;
+              }
+             ;
+             /*_.IFCPP___V57*/ curfptr[54] = /*_.IFELSE___V58*/ curfptr[57];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:3664:/ clear");
+             /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-normal.melt:3664:/ cppif.else");
+           /*_.IFCPP___V57*/ curfptr[54] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           MELT_LOCATION("warmelt-normal.melt:3663:/ block");
+           /*block*/{
+            /*_.PROGN___V59*/ curfptr[57] = /*_.IFCPP___V57*/ curfptr[54];;}
+           ;
+           /*_.IFELSE___V51*/ curfptr[49] = /*_.PROGN___V59*/ curfptr[57];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3654:/ clear");
+           /*clear*/ /*_.IFCPP___V57*/ curfptr[54] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:3654:/ clear");
+           /*clear*/ /*_.PROGN___V59*/ curfptr[57] = 0 ;}
+          ;
+          }
+         ;
+         /*_.IFELSE___V47*/ curfptr[46] = /*_.IFELSE___V51*/ curfptr[49];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3645:/ clear");
+         /*clear*/ /*_#IS_LIST__L20*/ curfnum[18] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3645:/ clear");
+         /*clear*/ /*_.IFELSE___V51*/ curfptr[49] = 0 ;}
+        ;
+        }
+       ;
+       /*_.IFELSE___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3641:/ clear");
+       /*clear*/ /*_#IS_MULTIPLE__L17*/ curfnum[16] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3641:/ clear");
+       /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;}
+      ;
+      }
+     ;
+     /*_.LET___V42*/ curfptr[40] = /*_.IFELSE___V46*/ curfptr[44];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
+     /*clear*/ /*_.CURCONSBIND__V43*/ curfptr[42] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
+     /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
+     /*clear*/ /*_#IS_A__L16*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
+     /*clear*/ /*_.IFELSE___V46*/ curfptr[44] = 0 ;}
+    ;
+    /*_.LET___V28*/ curfptr[26] = /*_.LET___V42*/ curfptr[40];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.LOCA_LOCATION__V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.LOCB__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.CURSYMB__V32*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.CUREXPR__V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.IFCPP___V38*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
+    /*clear*/ /*_.LET___V42*/ curfptr[40] = 0 ;}
+   ;
+   if (/*_#SBIX__L8*/ curfnum[7]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
+   /*clear*/ /*_.CURSBIND__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
+   /*clear*/ /*_#SBIX__L8*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
+   /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
+   /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
+   /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3669:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3669:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L22*/ curfnum[20] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3669:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_letrec consbindlist";
+     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[20];
+     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
+     argtab[3].bp_long = 3669;
+     /*_.DEBUG_MSG_FUN__V61*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V60*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[57];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3669:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[20] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3669:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[57] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3669:/ cppif.else");
+  /*_.IFCPP___V60*/ curfptr[54] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3670:/ block");
+  /*block*/{
+   /*_#NBCONSBIND__L23*/ curfnum[18] = 
+    (melt_list_length((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18])));;
+   /*_#CURCIX__L24*/ curfnum[16] = 0;;
+   /*_.NLOCSYMS__V63*/ curfptr[46] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (/*_#NBCONSBIND__L23*/ curfnum[18])));;
+   /*_.NCBINDTUP__V64*/ curfptr[42] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (/*_#NBCONSBIND__L23*/ curfnum[18])));;
+   /*_.RECBINDINGS__V65*/ curfptr[43] = 
+    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+   MELT_LOCATION("warmelt-normal.melt:3676:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3676:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[14])), (5), "CLASS_NREP_LETREC");/*_.INST__V67*/ curfptr[28] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (1), (/*_.NCBINDTUP__V64*/ curfptr[42]), "NLET_BINDINGS");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (2), ((/*nil*/NULL)), "NLET_BODY");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NLETREC_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (3), (/*_.RECBINDINGS__V65*/ curfptr[43]), "NLETREC_BINDINGS");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NLETREC_LOCSYMS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (4), (/*_.NLOCSYMS__V63*/ curfptr[46]), "NLETREC_LOCSYMS");
+    ;
+    /*_.NLETREC__V66*/ curfptr[44] = /*_.INST__V67*/ curfptr[28];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:3684:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:3684:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L25*/ curfnum[8] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:3684:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_letrec unfilled nletrec";
+      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[8];
+      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
+      argtab[3].bp_long = 3684;
+      /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NLETREC__V66*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V68*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[30];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3684:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3684:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:3684:/ cppif.else");
+   /*_.IFCPP___V68*/ curfptr[29] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*citerblock FOREACH_IN_LIST*/ {
+   /* start cit4__EACHLIST */
+   for (/*_.CURPAIR__V70*/ curfptr[32] = melt_list_first(/*_.CONSBINDLIST__V19*/ curfptr[18]);
+	melt_magic_discr(/*_.CURPAIR__V70*/ curfptr[32]) == OBMAG_PAIR;
+        /*_.CURPAIR__V70*/ curfptr[32] = melt_pair_tail(/*_.CURPAIR__V70*/ curfptr[32])) {
+	/*_.CURCBIND__V71*/ curfptr[33] = melt_pair_head(/*_.CURPAIR__V70*/ curfptr[32]); 
+   
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3691:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3691:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L26*/ curfnum[20] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3691:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_letrec curcbind";
+       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[20];
+       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
+       argtab[3].bp_long = 3691;
+       /*_.DEBUG_MSG_FUN__V73*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V72*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[36];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3691:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[20] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3691:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[36] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3691:/ cppif.else");
+    /*_.IFCPP___V72*/ curfptr[34] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3692:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3692:/ block");
+     /*block*/{
+      /*_#IS_A__L27*/ curfnum[8] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
+      MELT_LOCATION("warmelt-normal.melt:3692:/ cond");
+      /*cond*/ if (/*_#IS_A__L27*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3692:/ cond.then");
+      /*_.IFELSE___V75*/ curfptr[40] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3692:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3692:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3692:/ locexp");
+         melt_assert_failed(( "check curcbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3692)?(3692):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V75*/ curfptr[40] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V74*/ curfptr[38] = /*_.IFELSE___V75*/ curfptr[40];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3692:/ clear");
+      /*clear*/ /*_#IS_A__L27*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3692:/ clear");
+      /*clear*/ /*_.IFELSE___V75*/ curfptr[40] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3692:/ cppif.else");
+    /*_.IFCPP___V74*/ curfptr[38] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3693:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.NCBINDTUP__V64*/ curfptr[42]), (/*_#CURCIX__L24*/ curfnum[16]), (melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:3694:/ locexp");
+    melt_put_int((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (/*_#CURCIX__L24*/ curfnum[16]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3695:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3695:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:3695:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3695:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONSB_NLETREC", melt_magic_discr((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.CURCBIND__V71*/ curfptr[33]), (3), (/*_.NLETREC__V66*/ curfptr[44]), "NCONSB_NLETREC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3695:/ touch");
+      meltgc_touch(/*_.CURCBIND__V71*/ curfptr[33]);
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3696:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3696:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 2, "NCONSB_DISCR");/*_.CURBDISCR__V76*/ curfptr[57] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3697:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 0, "BINDER");/*_.CURBINDER__V77*/ curfptr[30] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3699:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:3699:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 1, "NCONSB_LOC");/*_.NCONSB_LOC__V78*/ curfptr[36] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else");
+     
+      /*_.NCONSB_LOC__V78*/ curfptr[36] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3699:/ cond");
+     /*cond*/ if (/*_.NCONSB_LOC__V78*/ curfptr[36]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then");
+     /*_.OR___V79*/ curfptr[40] = /*_.NCONSB_LOC__V78*/ curfptr[36];;
+     } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:3699:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3699:/ cond");
+       /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then");
+       /*_.OR___V80*/ curfptr[79] = /*_.SLOC__V15*/ curfptr[14];;
+       } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else");
+       
+        /*_.OR___V80*/ curfptr[79] = /*_.PSLOC__V5*/ curfptr[4];;
+        }
+       ;
+       /*_.OR___V79*/ curfptr[40] = /*_.OR___V80*/ curfptr[79];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3699:/ clear");
+       /*clear*/ /*_.OR___V80*/ curfptr[79] = 0 ;}
+      ;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3698:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3698:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V82*/ curfptr[81] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.OR___V79*/ curfptr[40]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.CURBINDER__V77*/ curfptr[30]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (3), (/*_.CURCBIND__V71*/ curfptr[33]), "NOCC_BIND");
+      ;
+      /*_.NLOCSYM__V81*/ curfptr[79] = /*_.INST__V82*/ curfptr[81];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3706:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.NLOCSYMS__V63*/ curfptr[46]), (/*_#CURCIX__L24*/ curfnum[16]), (melt_ptr_t)(/*_.NLOCSYM__V81*/ curfptr[79]));}
+     ;
+     /*_#NULL__L28*/ curfnum[20] = 
+      ((/*_.CURBDISCR__V76*/ curfptr[57]) == NULL);;
+     MELT_LOCATION("warmelt-normal.melt:3707:/ cond");
+     /*cond*/ if (/*_#NULL__L28*/ curfnum[20]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3707:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:3707:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3708:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:3708:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[17])))) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:3708:/ cond.then");
+        MELT_LOCATION("warmelt-normal.melt:3708:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 5, "NINSTB_CLABIND");/*_.CLABIND__V83*/ curfptr[82] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-normal.melt:3708:/ cond.else");
+        
+         /*_.CLABIND__V83*/ curfptr[82] = NULL;;
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3709:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[18])))) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:3709:/ cond.then");
+        MELT_LOCATION("warmelt-normal.melt:3709:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), 0, "BINDER");/*_.CLASYM__V84*/ curfptr[83] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-normal.melt:3709:/ cond.else");
+        
+         /*_.CLASYM__V84*/ curfptr[83] = NULL;;
+         }
+        ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:3711:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:3711:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L29*/ curfnum[8] = 
+           callcount;;
+          MELT_LOCATION("warmelt-normal.melt:3711:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
+           argtab[0].bp_cstring =  "normexp_letrec clabind";
+           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[8];
+           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-normal.melt";
+           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
+           argtab[3].bp_long = 3711;
+           /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V85*/ curfptr[84] = /*_.DEBUG_MSG_FUN__V86*/ curfptr[85];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:3711:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[8] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:3711:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:3711:/ cppif.else");
+        /*_.IFCPP___V85*/ curfptr[84] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:3712:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:3712:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L30*/ curfnum[8] = 
+           callcount;;
+          MELT_LOCATION("warmelt-normal.melt:3712:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
+           argtab[0].bp_cstring =  "normexp_letrec clasym";
+           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[8];
+           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-normal.melt";
+           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
+           argtab[3].bp_long = 3712;
+           /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLASYM__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V87*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:3712:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[8] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:3712:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:3712:/ cppif.else");
+        /*_.IFCPP___V87*/ curfptr[85] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:3714:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:3714:/ block");
+         /*block*/{
+          /*_#IS_A__L31*/ curfnum[8] = 
+           melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[17])));;
+          MELT_LOCATION("warmelt-normal.melt:3714:/ cond");
+          /*cond*/ if (/*_#IS_A__L31*/ curfnum[8]) /*then*/ {
+          MELT_LOCATION("warmelt-normal.melt:3714:/ cond.then");
+          /*_.IFELSE___V90*/ curfptr[89] = (/*nil*/NULL);;
+          } else {MELT_LOCATION("warmelt-normal.melt:3714:/ cond.else");
+          
+           MELT_LOCATION("warmelt-normal.melt:3714:/ block");
+           /*block*/{
+            /*block*/{
+             
+             {
+             MELT_LOCATION("warmelt-normal.melt:3714:/ locexp");
+             melt_assert_failed(( "check curcbind for instance"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3714)?(3714):__LINE__, __FUNCTION__);
+;}
+             ;
+             /*clear*/ /*_.IFELSE___V90*/ curfptr[89] = 0 ;}
+            ;
+            /*epilog*/}
+           ;
+           }
+          ;
+          /*_.IFCPP___V89*/ curfptr[87] = /*_.IFELSE___V90*/ curfptr[89];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:3714:/ clear");
+          /*clear*/ /*_#IS_A__L31*/ curfnum[8] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:3714:/ clear");
+          /*clear*/ /*_.IFELSE___V90*/ curfptr[89] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:3714:/ cppif.else");
+        /*_.IFCPP___V89*/ curfptr[87] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-normal.melt:3715:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:3716:/ msend");
+         /*msend*/{
+          union meltparam_un argtab[3];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+          MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg");
+          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+          /*_.CLADATA__V91*/ curfptr[89] = meltgc_send((melt_ptr_t)(/*_.CLASYM__V84*/ curfptr[83]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:3718:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:3718:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L32*/ curfnum[8] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:3718:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_letrec cladata";
+            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[8];
+            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
+            argtab[3].bp_long = 3718;
+            /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLADATA__V91*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3718:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[8] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:3718:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:3718:/ cppif.else");
+         /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:3719:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:3719:/ block");
+          /*block*/{
+           /*_#IS_A__L33*/ curfnum[8] = 
+            melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V91*/ curfptr[89]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[20])));;
+           MELT_LOCATION("warmelt-normal.melt:3719:/ cond");
+           /*cond*/ if (/*_#IS_A__L33*/ curfnum[8]) /*then*/ {
+           MELT_LOCATION("warmelt-normal.melt:3719:/ cond.then");
+           /*_.IFELSE___V95*/ curfptr[94] = (/*nil*/NULL);;
+           } else {MELT_LOCATION("warmelt-normal.melt:3719:/ cond.else");
+           
+            MELT_LOCATION("warmelt-normal.melt:3719:/ block");
+            /*block*/{
+             /*block*/{
+              
+              {
+              MELT_LOCATION("warmelt-normal.melt:3719:/ locexp");
+              melt_assert_failed(( "check cladata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3719)?(3719):__LINE__, __FUNCTION__);
+;}
+              ;
+              /*clear*/ /*_.IFELSE___V95*/ curfptr[94] = 0 ;}
+             ;
+             /*epilog*/}
+            ;
+            }
+           ;
+           /*_.IFCPP___V94*/ curfptr[92] = /*_.IFELSE___V95*/ curfptr[94];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:3719:/ clear");
+           /*clear*/ /*_#IS_A__L33*/ curfnum[8] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:3719:/ clear");
+           /*clear*/ /*_.IFELSE___V95*/ curfptr[94] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:3719:/ cppif.else");
+         /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-normal.melt:3720:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:3720:/ cond.then");
+         MELT_LOCATION("warmelt-normal.melt:3720:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-normal.melt:3720:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.CURCBIND__V71*/ curfptr[33]), (2), (/*_.CLADATA__V91*/ curfptr[89]), "NCONSB_DISCR");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:3720:/ touch");
+           meltgc_touch(/*_.CURCBIND__V71*/ curfptr[33]);
+           ;
+           /*epilog*/}
+          ;
+         } /*noelse*/
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3715:/ clear");
+         /*clear*/ /*_.CLADATA__V91*/ curfptr[89] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3715:/ clear");
+         /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3715:/ clear");
+         /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ;}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
+        /*clear*/ /*_.CLABIND__V83*/ curfptr[82] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
+        /*clear*/ /*_.CLASYM__V84*/ curfptr[83] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
+        /*clear*/ /*_.IFCPP___V85*/ curfptr[84] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
+        /*clear*/ /*_.IFCPP___V87*/ curfptr[85] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
+        /*clear*/ /*_.IFCPP___V89*/ curfptr[87] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
+     /*clear*/ /*_.CURBDISCR__V76*/ curfptr[57] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
+     /*clear*/ /*_.CURBINDER__V77*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
+     /*clear*/ /*_.NCONSB_LOC__V78*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
+     /*clear*/ /*_.OR___V79*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
+     /*clear*/ /*_.NLOCSYM__V81*/ curfptr[79] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
+     /*clear*/ /*_#NULL__L28*/ curfnum[20] = 0 ;}
+    ;
+    /*_#I__L34*/ curfnum[8] = 
+     ((/*_#CURCIX__L24*/ curfnum[16]) + (1));;
+    MELT_LOCATION("warmelt-normal.melt:3723:/ compute");
+    /*_#CURCIX__L24*/ curfnum[16] = /*_#SETQ___L35*/ curfnum[20] = /*_#I__L34*/ curfnum[8];;
+    MELT_LOCATION("warmelt-normal.melt:3724:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3724:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCBIND__V71*/ curfptr[33];
+     /*_.PUT_ENV__V96*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    } /* end cit4__EACHLIST */
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_.CURPAIR__V70*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_.CURCBIND__V71*/ curfptr[33] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_.IFCPP___V72*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_.IFCPP___V74*/ curfptr[38] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_#I__L34*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_#SETQ___L35*/ curfnum[20] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
+    /*clear*/ /*_.PUT_ENV__V96*/ curfptr[94] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit5__EACHTUP: */
+   long  cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SBINDS__V16*/ curfptr[15]);
+   for (/*_#SBIX__L36*/ curfnum[35] = 0;  
+	(/*_#SBIX__L36*/ curfnum[35] >= 0) && (/*_#SBIX__L36*/ curfnum[35] <  cit5__EACHTUP_ln);  
+	/*_#SBIX__L36*/ curfnum[35]++) {
+   /*_.CURSBIND__V97*/ curfptr[89] = melt_multiple_nth((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15]),  /*_#SBIX__L36*/ curfnum[35]);
+   
+   
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3731:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3731:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L37*/ curfnum[36] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3731:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_letrec thirdloop cursbind";
+       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L37*/ curfnum[36];
+       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
+       argtab[3].bp_long = 3731;
+       /*_.DEBUG_MSG_FUN__V99*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V98*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[92];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3731:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L37*/ curfnum[36] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3731:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[92] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3731:/ cppif.else");
+    /*_.IFCPP___V98*/ curfptr[91] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3732:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3732:/ block");
+     /*block*/{
+      /*_#IS_A__L38*/ curfnum[36] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[7])));;
+      MELT_LOCATION("warmelt-normal.melt:3732:/ cond");
+      /*cond*/ if (/*_#IS_A__L38*/ curfnum[36]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3732:/ cond.then");
+      /*_.IFELSE___V101*/ curfptr[83] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3732:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3732:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3732:/ locexp");
+         melt_assert_failed(( "check cursbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3732)?(3732):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V101*/ curfptr[83] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V100*/ curfptr[82] = /*_.IFELSE___V101*/ curfptr[83];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3732:/ clear");
+      /*clear*/ /*_#IS_A__L38*/ curfnum[36] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3732:/ clear");
+      /*clear*/ /*_.IFELSE___V101*/ curfptr[83] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3732:/ cppif.else");
+    /*_.IFCPP___V100*/ curfptr[82] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3733:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3733:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V103*/ curfptr[85] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ cond");
+     /*cond*/ if (/*_.LOCA_LOCATION__V103*/ curfptr[85]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:3733:/ cond.then");
+     /*_.LOCB__V104*/ curfptr[87] = /*_.LOCA_LOCATION__V103*/ curfptr[85];;
+     } else {MELT_LOCATION("warmelt-normal.melt:3733:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:3733:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3733:/ cond");
+       /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:3733:/ cond.then");
+       /*_.OR___V105*/ curfptr[57] = /*_.SLOC__V15*/ curfptr[14];;
+       } else {MELT_LOCATION("warmelt-normal.melt:3733:/ cond.else");
+       
+        /*_.OR___V105*/ curfptr[57] = /*_.PSLOC__V5*/ curfptr[4];;
+        }
+       ;
+       /*_.LOCB__V104*/ curfptr[87] = /*_.OR___V105*/ curfptr[57];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+       /*clear*/ /*_.OR___V105*/ curfptr[57] = 0 ;}
+      ;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3734:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 3, "SLETB_BINDER");/*_.CURSYMB__V106*/ curfptr[30] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3735:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 4, "SLETB_EXPR");/*_.CUREXPR__V107*/ curfptr[36] = slot; };
+     ;
+     /*_.CURBIND__V108*/ curfptr[40] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYMBINDMAP__V22*/ curfptr[21]), (meltobject_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]));;
+     /*_.CURSEXPR__V109*/ curfptr[79] = 
+      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYMBEXPRMAP__V21*/ curfptr[20]), (meltobject_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]));;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3739:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3739:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L39*/ curfnum[36] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3739:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_letrec thirdloop curexpr";
+        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L39*/ curfnum[36];
+        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
+        argtab[3].bp_long = 3739;
+        /*_.DEBUG_MSG_FUN__V111*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V110*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V111*/ curfptr[83];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3739:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L39*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3739:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V111*/ curfptr[83] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3739:/ cppif.else");
+     /*_.IFCPP___V110*/ curfptr[92] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3740:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3740:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L40*/ curfnum[36] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3740:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_letrec thirdloop cursymb";
+        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[36];
+        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
+        argtab[3].bp_long = 3740;
+        /*_.DEBUG_MSG_FUN__V113*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V112*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V113*/ curfptr[83];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3740:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3740:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V113*/ curfptr[83] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3740:/ cppif.else");
+     /*_.IFCPP___V112*/ curfptr[57] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3741:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3741:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L41*/ curfnum[36] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3741:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_letrec thirdloop curbind";
+        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L41*/ curfnum[36];
+        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
+        argtab[3].bp_long = 3741;
+        /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURBIND__V108*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V114*/ curfptr[83] = /*_.DEBUG_MSG_FUN__V115*/ curfptr[114];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3741:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L41*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3741:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3741:/ cppif.else");
+     /*_.IFCPP___V114*/ curfptr[83] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3742:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3742:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L42*/ curfnum[36] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3742:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_letrec thirdloop cursexpr";
+        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L42*/ curfnum[36];
+        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
+        argtab[3].bp_long = 3742;
+        /*_.DEBUG_MSG_FUN__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSEXPR__V109*/ curfptr[79]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V116*/ curfptr[114] = /*_.DEBUG_MSG_FUN__V117*/ curfptr[116];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3742:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L42*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3742:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V117*/ curfptr[116] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3742:/ cppif.else");
+     /*_.IFCPP___V116*/ curfptr[114] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3743:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3743:/ block");
+      /*block*/{
+       /*_#__L43*/ curfnum[36] = 
+        ((/*_.CUREXPR__V107*/ curfptr[36]) == (/*_.CURSEXPR__V109*/ curfptr[79]));;
+       MELT_LOCATION("warmelt-normal.melt:3743:/ cond");
+       /*cond*/ if (/*_#__L43*/ curfnum[36]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:3743:/ cond.then");
+       /*_.IFELSE___V119*/ curfptr[118] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-normal.melt:3743:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:3743:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:3743:/ locexp");
+          melt_assert_failed(( "check curxpr same cursexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3743)?(3743):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V119*/ curfptr[118] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V118*/ curfptr[116] = /*_.IFELSE___V119*/ curfptr[118];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3743:/ clear");
+       /*clear*/ /*_#__L43*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3743:/ clear");
+       /*clear*/ /*_.IFELSE___V119*/ curfptr[118] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3743:/ cppif.else");
+     /*_.IFCPP___V118*/ curfptr[116] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:3744:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[5];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSYMB__V106*/ curfptr[30];
+      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURBIND__V108*/ curfptr[40];
+      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];
+      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
+      argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
+      argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      /*_.NORMAL_LETREC_CONSTRUCTIVE__V120*/ curfptr[118] = meltgc_send((melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (melt_ptr_t)((/*!NORMAL_LETREC_CONSTRUCTIVE*/ curfrout->tabval[22])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3745:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3745:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L44*/ curfnum[36] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3745:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_letrec thirdloop done curexpr";
+        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L44*/ curfnum[36];
+        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
+        argtab[3].bp_long = 3745;
+        /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V121*/ curfptr[120] = /*_.DEBUG_MSG_FUN__V122*/ curfptr[121];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3745:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L44*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3745:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3745:/ cppif.else");
+     /*_.IFCPP___V121*/ curfptr[120] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V102*/ curfptr[84] = /*_.IFCPP___V121*/ curfptr[120];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.LOCA_LOCATION__V103*/ curfptr[85] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.LOCB__V104*/ curfptr[87] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.CURSYMB__V106*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.CUREXPR__V107*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.CURBIND__V108*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.CURSEXPR__V109*/ curfptr[79] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.IFCPP___V110*/ curfptr[92] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.IFCPP___V112*/ curfptr[57] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.IFCPP___V114*/ curfptr[83] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.IFCPP___V116*/ curfptr[114] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.IFCPP___V118*/ curfptr[116] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.NORMAL_LETREC_CONSTRUCTIVE__V120*/ curfptr[118] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
+     /*clear*/ /*_.IFCPP___V121*/ curfptr[120] = 0 ;}
+    ;
+    if (/*_#SBIX__L36*/ curfnum[35]<0) break;
+   } /* end cit5__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
+    /*clear*/ /*_.CURSBIND__V97*/ curfptr[89] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
+    /*clear*/ /*_#SBIX__L36*/ curfnum[35] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
+    /*clear*/ /*_.IFCPP___V98*/ curfptr[91] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
+    /*clear*/ /*_.IFCPP___V100*/ curfptr[82] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
+    /*clear*/ /*_.LET___V102*/ curfptr[84] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:3750:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:3750:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L45*/ curfnum[36] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:3750:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_letrec normalizing sbody";
+      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L45*/ curfnum[36];
+      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
+      argtab[3].bp_long = 3750;
+      /*_.DEBUG_MSG_FUN__V124*/ curfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V123*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V124*/ curfptr[85];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3750:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L45*/ curfnum[36] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3750:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V124*/ curfptr[85] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:3750:/ cppif.else");
+   /*_.IFCPP___V123*/ curfptr[121] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:3751:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply");
+    /*multiapply 4args, 1x.res*/ {
+     union meltparam_un argtab[3];
+     
+     union meltparam_un restab[1];
+     memset(&restab, 0, sizeof(restab));
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.xres");
+     restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V127*/ curfptr[36];
+     MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.appl");
+     /*_.NBODY__V126*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3751:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3754:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3754:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V127*/ curfptr[36];
+      /*_.LIST_APPEND2LIST__V128*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3755:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3755:/ block");
+      /*block*/{
+       /*_#IS_LIST_OR_NULL__L46*/ curfnum[36] = 
+        ((/*_.BINDLIST__V18*/ curfptr[17]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17])) == OBMAG_LIST));;
+       MELT_LOCATION("warmelt-normal.melt:3755:/ cond");
+       /*cond*/ if (/*_#IS_LIST_OR_NULL__L46*/ curfnum[36]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:3755:/ cond.then");
+       /*_.IFELSE___V130*/ curfptr[92] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-normal.melt:3755:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:3755:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:3755:/ locexp");
+          melt_assert_failed(( "normexp_letrec check bindlist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3755)?(3755):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V130*/ curfptr[92] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V129*/ curfptr[79] = /*_.IFELSE___V130*/ curfptr[92];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3755:/ clear");
+       /*clear*/ /*_#IS_LIST_OR_NULL__L46*/ curfnum[36] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3755:/ clear");
+       /*clear*/ /*_.IFELSE___V130*/ curfptr[92] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3755:/ cppif.else");
+     /*_.IFCPP___V129*/ curfptr[79] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:3758:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3758:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V132*/ curfptr[83] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (0));
+      ;
+      /*_.LAMBDA___V131*/ curfptr[57] = /*_.LAMBDA___V132*/ curfptr[83];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3756:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3756:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V131*/ curfptr[57];
+      /*_.LIST_EVERY__V133*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3761:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3761:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V134*/ curfptr[116] = slot; };
+      ;
+      /*citerblock FOREACH_IN_LIST*/ {
+      /* start cit6__EACHLIST */
+   for (/*_.CURPAIR__V135*/ curfptr[118] = melt_list_first(/*_.BINDLIST__V18*/ curfptr[17]);
+	melt_magic_discr(/*_.CURPAIR__V135*/ curfptr[118]) == OBMAG_PAIR;
+        /*_.CURPAIR__V135*/ curfptr[118] = melt_pair_tail(/*_.CURPAIR__V135*/ curfptr[118])) {
+	/*_.BND__V136*/ curfptr[120] = melt_pair_head(/*_.CURPAIR__V135*/ curfptr[118]); 
+      
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:3765:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:3765:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L47*/ curfnum[36] = 
+          callcount;;
+         MELT_LOCATION("warmelt-normal.melt:3765:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
+          argtab[0].bp_cstring =  "normexp_letrec remobing from sycmap bnd";
+          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L47*/ curfnum[36];
+          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-normal.melt";
+          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
+          argtab[3].bp_long = 3765;
+          /*_.DEBUG_MSG_FUN__V138*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BND__V136*/ curfptr[120]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V137*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V138*/ curfptr[92];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3765:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L47*/ curfnum[36] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3765:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V138*/ curfptr[92] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:3765:/ cppif.else");
+       /*_.IFCPP___V137*/ curfptr[85] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-normal.melt:3766:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V136*/ curfptr[120]), 0, "BINDER");/*_.BINDER__V139*/ curfptr[92] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:3766:/ locexp");
+       meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V134*/ curfptr[116]), 
+			      (meltobject_ptr_t)(/*_.BINDER__V139*/ curfptr[92]));}
+       ;
+       } /* end cit6__EACHLIST */
+      
+       /*citerepilog*/
+       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
+       /*clear*/ /*_.CURPAIR__V135*/ curfptr[118] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
+       /*clear*/ /*_.BND__V136*/ curfptr[120] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
+       /*clear*/ /*_.IFCPP___V137*/ curfptr[85] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
+       /*clear*/ /*_.BINDER__V139*/ curfptr[92] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3761:/ clear");
+      /*clear*/ /*_.SYCMAP__V134*/ curfptr[116] = 0 ;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3769:/ block");
+     /*block*/{
+      /*_.NLASTBODY__V141*/ curfptr[140] = 
+       (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V126*/ curfptr[30]), (-1)));;
+      MELT_LOCATION("warmelt-normal.melt:3772:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3772:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];
+       /*_.GET_CTYPE__V142*/ curfptr[141] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V141*/ curfptr[140]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[29])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3772:/ cond");
+      /*cond*/ if (/*_.GET_CTYPE__V142*/ curfptr[141]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3772:/ cond.then");
+      /*_.NLASTYP__V143*/ curfptr[142] = /*_.GET_CTYPE__V142*/ curfptr[141];;
+      } else {MELT_LOCATION("warmelt-normal.melt:3772:/ cond.else");
+      
+       /*_.NLASTYP__V143*/ curfptr[142] = (/*!CTYPE_VOID*/ curfrout->tabval[28]);;
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3773:/ apply");
+      /*apply*/{
+       /*_.CSYM__V144*/ curfptr[143] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[30])), (melt_ptr_t)((/*!konst_31_LETREC_*/ curfrout->tabval[31])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3774:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3774:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[32])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V146*/ curfptr[145] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (0), (/*_.CSYM__V144*/ curfptr[143]), "BINDER");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (1), (/*_.NLASTYP__V143*/ curfptr[142]), "LETBIND_TYPE");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (2), (/*_.NLETREC__V66*/ curfptr[44]), "LETBIND_EXPR");
+       ;
+       /*_.CBIND__V145*/ curfptr[144] = /*_.INST__V146*/ curfptr[145];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3779:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3779:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V148*/ curfptr[147] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3779:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3779:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (2), (/*_.NLASTYP__V143*/ curfptr[142]), "NOCC_CTYP");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3779:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (3), (/*_.CBIND__V145*/ curfptr[144]), "NOCC_BIND");
+       ;
+       /*_.CLOCC__V147*/ curfptr[146] = /*_.INST__V148*/ curfptr[147];;}
+      ;
+      /*_.RESBINDS__V149*/ curfptr[148] = 
+       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3785:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.RESBINDS__V149*/ curfptr[148]), (melt_ptr_t)(/*_.CBIND__V145*/ curfptr[144]));}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:3786:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:3786:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L48*/ curfnum[36] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:3786:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_letrec result clocc";
+         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L48*/ curfnum[36];
+         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
+         argtab[3].bp_long = 3786;
+         /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V147*/ curfptr[146]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V150*/ curfptr[149] = /*_.DEBUG_MSG_FUN__V151*/ curfptr[150];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3786:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L48*/ curfnum[36] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3786:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:3786:/ cppif.else");
+      /*_.IFCPP___V150*/ curfptr[149] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:3787:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:3787:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L49*/ curfnum[36] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:3787:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_letrec result resbinds";
+         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L49*/ curfnum[36];
+         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
+         argtab[3].bp_long = 3787;
+         /*_.DEBUG_MSG_FUN__V153*/ curfptr[152] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESBINDS__V149*/ curfptr[148]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V152*/ curfptr[150] = /*_.DEBUG_MSG_FUN__V153*/ curfptr[152];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3787:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L49*/ curfnum[36] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3787:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V153*/ curfptr[152] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:3787:/ cppif.else");
+      /*_.IFCPP___V152*/ curfptr[150] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3788:/ locexp");
+       
+#if ENABLE_CHECKING
+  if (flag_melt_debug)
+    melt_dbgshortbacktrace(( "normexp_letrec ending"), (15));
+#endif
+;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3789:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V147*/ curfptr[146];;
+       MELT_LOCATION("warmelt-normal.melt:3789:/ putxtraresult");
+       if (!xrestab_ || !xresdescr_) goto labend_rout;
+       if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+       if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.RESBINDS__V149*/ curfptr[148]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3789:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      /*_.LET___V140*/ curfptr[116] = (/*nil*/NULL);;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.NLASTBODY__V141*/ curfptr[140] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.GET_CTYPE__V142*/ curfptr[141] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.NLASTYP__V143*/ curfptr[142] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.CSYM__V144*/ curfptr[143] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.CBIND__V145*/ curfptr[144] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.CLOCC__V147*/ curfptr[146] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.RESBINDS__V149*/ curfptr[148] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.IFCPP___V150*/ curfptr[149] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.IFCPP___V152*/ curfptr[150] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
+      /*clear*/ /*_.RETURN___V154*/ curfptr[152] = 0 ;}
+     ;
+     /*_.MULTI___V125*/ curfptr[87] = /*_.LET___V140*/ curfptr[116];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
+     /*clear*/ /*_.LIST_APPEND2LIST__V128*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
+     /*clear*/ /*_.IFCPP___V129*/ curfptr[79] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
+     /*clear*/ /*_.LAMBDA___V131*/ curfptr[57] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
+     /*clear*/ /*_.LIST_EVERY__V133*/ curfptr[114] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
+     /*clear*/ /*_.LET___V140*/ curfptr[116] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
+    /*clear*/ /*_.NBODBINDINGS__V127*/ curfptr[36] = 0 ;}
+   ;
+   /*_.LET___V62*/ curfptr[49] = /*_.MULTI___V125*/ curfptr[87];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_#NBCONSBIND__L23*/ curfnum[18] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_#CURCIX__L24*/ curfnum[16] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.NLOCSYMS__V63*/ curfptr[46] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.NCBINDTUP__V64*/ curfptr[42] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.RECBINDINGS__V65*/ curfptr[43] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.NLETREC__V66*/ curfptr[44] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.IFCPP___V68*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.IFCPP___V123*/ curfptr[121] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
+   /*clear*/ /*_.MULTI___V125*/ curfptr[87] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V62*/ curfptr[49];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.SBINDS__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_#NBBIND__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.BINDLIST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.CONSBINDLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_#MAPLEN__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.SYMBEXPRMAP__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.SYMBINDMAP__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.IFCPP___V60*/ curfptr[54] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
+  /*clear*/ /*_.LET___V62*/ curfptr[49] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3607:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3607:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_LETREC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_105_warmelt_normal_NORMEXP_LETREC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_106_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3758:/ getarg");
+ /*_.CBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3758:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3759:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3759:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3759:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3759:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3759:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3759:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3759:/ locexp");
+      melt_assert_failed(( "normexp_letrec check cbnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3759)?(3759):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3759:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3759:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3759:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3758:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-normal.melt:3758:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3758:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_106_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_107_warmelt_normal_NORMAL_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_normal_NORMAL_PREDEF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_PREDEF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
+ /*_.PRED__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MSG__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MSG__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3799:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3800:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3800:/ block");
+  /*block*/{
+   /*_#IS_OBJECT__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.PRED__V2*/ curfptr[1])) == OBMAG_OBJECT);;
+   MELT_LOCATION("warmelt-normal.melt:3800:/ cond");
+   /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3800:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3800:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3800:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3800:/ locexp");
+      melt_assert_failed(( "check pred"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3800)?(3800):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3800:/ clear");
+   /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3800:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3800:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3801:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3801:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3801:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3801:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3801:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3801:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3801:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3801)?(3801):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3801:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3801:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3801:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3802:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3802:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.BRK__V12*/ curfptr[11] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.PRED__V2*/ curfptr[1]));;
+  /*_#IS_INTEGERBOX__L3*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.BRK__V12*/ curfptr[11])) == OBMAG_INT);;
+  MELT_LOCATION("warmelt-normal.melt:3804:/ cond");
+  /*cond*/ if (/*_#IS_INTEGERBOX__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3804:/ cond.then");
+  /*_#OR___L4*/ curfnum[3] = /*_#IS_INTEGERBOX__L3*/ curfnum[0];;
+  } else {MELT_LOCATION("warmelt-normal.melt:3804:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:3804:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BRK__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+    /*_#OR___L4*/ curfnum[3] = /*_#IS_A__L5*/ curfnum[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3804:/ cond");
+  /*cond*/ if (/*_#OR___L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3804:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3804:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3805:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3805:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[2])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3805:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3805:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.BRK__V12*/ curfptr[11]), "NRPREDEF");
+     ;
+     /*_.INST___V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;}
+    ;
+    /*_.IFELSE___V13*/ curfptr[12] = /*_.INST___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
+    /*clear*/ /*_.INST___V14*/ curfptr[13] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3804:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:3804:/ block");
+   /*block*/{
+    /*_#IS_STRING__L6*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.MSG__V5*/ curfptr[4])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-normal.melt:3808:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3808:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:3808:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:3810:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:3810:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:3810:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
+         argtab[0].bp_cstring =  "normalpredef predefmap";
+         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
+         argtab[3].bp_long = 3810;
+         /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3810:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3810:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:3810:/ cppif.else");
+      /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:3811:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:3811:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:3811:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
+         argtab[0].bp_cstring =  "normalpredef pred";
+         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
+         argtab[3].bp_long = 3811;
+         /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PRED__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3811:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3811:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:3811:/ cppif.else");
+      /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3812:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3]), ( "not a predef:"), (melt_ptr_t)(/*_.MSG__V5*/ curfptr[4]));}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3809:/ block");
+      /*block*/{
+       /*_.PROGN___V21*/ curfptr[19] = (/*nil*/NULL);;}
+      ;
+      /*_.IF___V16*/ curfptr[13] = /*_.PROGN___V21*/ curfptr[19];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3808:/ clear");
+      /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3808:/ clear");
+      /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3808:/ clear");
+      /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:3808:/ cond.else");
+    
+     /*_.IF___V16*/ curfptr[13] = NULL;;
+     }
+    ;
+    /*_.IFELSE___V13*/ curfptr[12] = /*_.IF___V16*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
+    /*clear*/ /*_#IS_STRING__L6*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
+    /*clear*/ /*_.IF___V16*/ curfptr[13] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
+  /*clear*/ /*_.PREDEFMAP__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
+  /*clear*/ /*_.BRK__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
+  /*clear*/ /*_#IS_INTEGERBOX__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
+  /*clear*/ /*_#OR___L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
+  /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3799:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-normal.melt:3799:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3799:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3799:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3799:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_PREDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_107_warmelt_normal_NORMAL_PREDEF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 36
+  void* varptr[36];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<36; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 36;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_SYMBOL_DATA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3818:/ getarg");
+ /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3818:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3818:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3818:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3820:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3820:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3820:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_symbol_data start sym";
+    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
+    argtab[3].bp_long = 3820;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3820:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3820:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3820:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3821:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3821:/ block");
+  /*block*/{
+   /*_.DISCRIM__V8*/ curfptr[7] = 
+    (melt_discr((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1])));;
+   /*_#__L2*/ curfnum[0] = 
+    ((/*_.DISCRIM__V8*/ curfptr[7]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3821:/ cond");
+   /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3821:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3821:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3821:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3821:/ locexp");
+      melt_assert_failed(( "check symb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3821)?(3821):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3821:/ clear");
+   /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3821:/ clear");
+   /*clear*/ /*_#__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3821:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3821:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3822:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3822:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3822:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3822:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3822:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3822:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3822:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3822)?(3822):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3822:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3822:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3822:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3823:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3823:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V13*/ curfptr[12] = slot; };
+  ;
+  /*_.OSYDATA__V14*/ curfptr[13] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V13*/ curfptr[12]), (meltobject_ptr_t)(/*_.SYM__V2*/ curfptr[1]));;
+  MELT_LOCATION("warmelt-normal.melt:3825:/ cond");
+  /*cond*/ if (/*_.OSYDATA__V14*/ curfptr[13]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3825:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3825:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3827:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3827:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3827:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_symbol_data found osydata";
+       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
+       argtab[3].bp_long = 3827;
+       /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OSYDATA__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3827:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3827:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3827:/ cppif.else");
+    /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3828:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.OSYDATA__V14*/ curfptr[13];;
+     MELT_LOCATION("warmelt-normal.melt:3828:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3826:/ block");
+    /*block*/{
+     /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[16];;}
+    ;
+    /*_.IFELSE___V15*/ curfptr[14] = /*_.PROGN___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
+    /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
+    /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
+    /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3825:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:3825:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3829:/ block");
+    /*block*/{
+     /*_#SYHASH__L5*/ curfnum[0] = 
+      (melt_obj_hash((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1])));;
+     MELT_LOCATION("warmelt-normal.melt:3830:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V21*/ curfptr[16] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3834:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg");
+      argtab[2].bp_cstring =  "discr_string";
+      /*_.NORMAL_PREDEF__V22*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3833:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3833:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[3])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V24*/ curfptr[23] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3833:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V22*/ curfptr[18]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3833:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NSTR_STRING");
+      ;
+      /*_.SYNAMSTRDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3838:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V25*/ curfptr[24] = slot; };
+     ;
+     /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V25*/ curfptr[24])));;
+     /*_.SYSLOTS__V26*/ curfptr[25] = 
+      (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));;
+     MELT_LOCATION("warmelt-normal.melt:3841:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg");
+      argtab[2].bp_cstring =  "class_symbol";
+      /*_.NORMAL_PREDEF__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (/*_#SYHASH__L5*/ curfnum[0])));;
+     MELT_LOCATION("warmelt-normal.melt:3839:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3839:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[7])), (10), "CLASS_NREP_DATASYMBOL");/*_.INST__V30*/ curfptr[29] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.SYM__V2*/ curfptr[1]), "NDATA_NAME");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NORMAL_PREDEF__V27*/ curfptr[26]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (7), (/*_.MAKE_INTEGERBOX__V28*/ curfptr[27]), "NINST_HASH");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (8), (/*_.SYSLOTS__V26*/ curfptr[25]), "NINST_SLOTS");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDSY_NAMESTR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (9), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NDSY_NAMESTR");
+      ;
+      /*_.SYDATA__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
+     ;
+     /*_#OBJ_NUM__L7*/ curfnum[6] = 
+      (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[9]))));;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3846:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SYSLOTS__V26*/ curfptr[25]), (/*_#OBJ_NUM__L7*/ curfnum[6]), (melt_ptr_t)(/*_.SYNAMSTRDATA__V23*/ curfptr[22]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3847:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3847:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYDATA__V29*/ curfptr[28];
+      /*_.ADD_NCTX_DATA__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3848:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3848:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V23*/ curfptr[22];
+      /*_.ADD_NCTX_DATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3849:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALMAP__V13*/ curfptr[12]), 
+			   (meltobject_ptr_t) (/*_.SYM__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3850:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 4, "NCTX_SYMBMAP");/*_.NCTX_SYMBMAP__V33*/ curfptr[32] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3850:/ locexp");
+     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.NCTX_SYMBMAP__V33*/ curfptr[32]), melt_string_str((melt_ptr_t)(/*_.SYNAMSTR__V21*/ curfptr[16])), (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3851:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3851:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3851:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_symbol_data return sydata";
+        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
+        argtab[3].bp_long = 3851;
+        /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3851:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3851:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3851:/ cppif.else");
+     /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:3852:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V29*/ curfptr[28];;
+      MELT_LOCATION("warmelt-normal.melt:3852:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V20*/ curfptr[15] = /*_.RETURN___V36*/ curfptr[34];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_#SYHASH__L5*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.SYNAMSTR__V21*/ curfptr[16] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[18] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.SYNAMSTRDATA__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.CLASS_FIELDS__V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.SYSLOTS__V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.SYDATA__V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_#OBJ_NUM__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V31*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.NCTX_SYMBMAP__V33*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
+     /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
+    ;
+    /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
+    /*clear*/ /*_.LET___V20*/ curfptr[15] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V12*/ curfptr[8] = /*_.IFELSE___V15*/ curfptr[14];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3823:/ clear");
+  /*clear*/ /*_.VALMAP__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3823:/ clear");
+  /*clear*/ /*_.OSYDATA__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3823:/ clear");
+  /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3818:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[8];;
+  MELT_LOCATION("warmelt-normal.melt:3818:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_SYMBOL_DATA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 28
+  void* varptr[28];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<28; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 28;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_KEYWORD_DATA", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3858:/ getarg");
+ /*_.KEYW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3858:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3858:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3858:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3860:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3860:/ block");
+  /*block*/{
+   /*_.DISCRIM__V6*/ curfptr[5] = 
+    (melt_discr((melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));;
+   /*_#__L1*/ curfnum[0] = 
+    ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3860:/ cond");
+   /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3860:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3860:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3860:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3860:/ locexp");
+      melt_assert_failed(( "check keywb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3860)?(3860):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3860:/ clear");
+   /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3860:/ clear");
+   /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3860:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3860:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3861:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3861:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3861:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3861:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3861:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3861:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3861:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3861)?(3861):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3861:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3861:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3861:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3862:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3862:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V11*/ curfptr[10] = slot; };
+  ;
+  /*_.OSYDATA__V12*/ curfptr[11] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.KEYW__V2*/ curfptr[1]));;
+  MELT_LOCATION("warmelt-normal.melt:3864:/ cond");
+  /*cond*/ if (/*_.OSYDATA__V12*/ curfptr[11]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3864:/ cond.then");
+  /*_.IFELSE___V13*/ curfptr[12] = /*_.OSYDATA__V12*/ curfptr[11];;
+  } else {MELT_LOCATION("warmelt-normal.melt:3864:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:3864:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3865:/ block");
+    /*block*/{
+     /*_#SYHASH__L3*/ curfnum[0] = 
+      (melt_obj_hash((melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));;
+     MELT_LOCATION("warmelt-normal.melt:3866:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V15*/ curfptr[14] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3870:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg");
+      argtab[2].bp_cstring =  "discr_string";
+      /*_.NORMAL_PREDEF__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3869:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3869:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V18*/ curfptr[17] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3869:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NORMAL_PREDEF__V16*/ curfptr[15]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3869:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (5), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NSTR_STRING");
+      ;
+      /*_.SYNAMSTRDATA__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3874:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V19*/ curfptr[18] = slot; };
+     ;
+     /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V19*/ curfptr[18])));;
+     /*_.SYSLOTS__V20*/ curfptr[19] = 
+      (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[3])));;
+     MELT_LOCATION("warmelt-normal.melt:3877:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg");
+      argtab[2].bp_cstring =  "class_keyword";
+      /*_.NORMAL_PREDEF__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = 
+      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#SYHASH__L3*/ curfnum[0])));;
+     MELT_LOCATION("warmelt-normal.melt:3875:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3875:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[6])), (10), "CLASS_NREP_DATAKEYWORD");/*_.INST__V24*/ curfptr[23] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.KEYW__V2*/ curfptr[1]), "NDATA_NAME");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V21*/ curfptr[20]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (7), (/*_.MAKE_INTEGERBOX__V22*/ curfptr[21]), "NINST_HASH");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (8), (/*_.SYSLOTS__V20*/ curfptr[19]), "NINST_SLOTS");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDSY_NAMESTR", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (9), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NDSY_NAMESTR");
+      ;
+      /*_.SYDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+     ;
+     /*_#OBJ_NUM__L5*/ curfnum[4] = 
+      (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[8]))));;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3882:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SYSLOTS__V20*/ curfptr[19]), (/*_#OBJ_NUM__L5*/ curfnum[4]), (melt_ptr_t)(/*_.SYNAMSTRDATA__V17*/ curfptr[16]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3883:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3883:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYDATA__V23*/ curfptr[22];
+      /*_.ADD_NCTX_DATA__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3884:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:3884:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V17*/ curfptr[16];
+      /*_.ADD_NCTX_DATA__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3885:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALMAP__V11*/ curfptr[10]), 
+			   (meltobject_ptr_t) (/*_.KEYW__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.SYDATA__V23*/ curfptr[22]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3886:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 5, "NCTX_KEYWMAP");/*_.NCTX_KEYWMAP__V27*/ curfptr[26] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3886:/ locexp");
+     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.NCTX_KEYWMAP__V27*/ curfptr[26]), melt_string_str((melt_ptr_t)(/*_.SYNAMSTR__V15*/ curfptr[14])), (melt_ptr_t)(/*_.SYDATA__V23*/ curfptr[22]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3887:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V23*/ curfptr[22];;
+      MELT_LOCATION("warmelt-normal.melt:3887:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V14*/ curfptr[13] = /*_.RETURN___V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_#SYHASH__L3*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.SYNAMSTR__V15*/ curfptr[14] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V16*/ curfptr[15] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.SYNAMSTRDATA__V17*/ curfptr[16] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.CLASS_FIELDS__V19*/ curfptr[18] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.SYSLOTS__V20*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V21*/ curfptr[20] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.SYDATA__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_#OBJ_NUM__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.NCTX_KEYWMAP__V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
+     /*clear*/ /*_.RETURN___V28*/ curfptr[27] = 0 ;}
+    ;
+    /*_.IFELSE___V13*/ curfptr[12] = /*_.LET___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3864:/ clear");
+    /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V10*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3862:/ clear");
+  /*clear*/ /*_.VALMAP__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3862:/ clear");
+  /*clear*/ /*_.OSYDATA__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3862:/ clear");
+  /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3858:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[6];;
+  MELT_LOCATION("warmelt-normal.melt:3858:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3858:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3858:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3858:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_KEYWORD_DATA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_110_warmelt_normal_CREATE_DATA_SLOTS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_normal_CREATE_DATA_SLOTS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("CREATE_DATA_SLOTS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3892:/ getarg");
+ /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3892:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3893:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3893:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3893:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3893:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3893:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3893:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3893:/ locexp");
+      melt_assert_failed(( "check cla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3893)?(3893):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3893:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3893:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3893:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3894:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3894:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3894:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
+    argtab[0].bp_cstring =  "create_data_slots cla";
+    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
+    argtab[3].bp_long = 3894;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3894:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3894:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3894:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3895:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3896:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V8*/ curfptr[7])));;
+  /*_.TUPSLO__V9*/ curfptr[8] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3898:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3898:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3898:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
+     argtab[0].bp_cstring =  "create_data_slots tupslo";
+     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
+     argtab[3].bp_long = 3898;
+     /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.TUPSLO__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3898:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3898:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3898:/ cppif.else");
+  /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_.LET___V7*/ curfptr[5] = /*_.TUPSLO__V9*/ curfptr[8];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
+  /*clear*/ /*_.CLASS_FIELDS__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
+  /*clear*/ /*_.TUPSLO__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
+  /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3892:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-normal.melt:3892:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3892:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3892:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3892:/ clear");
+ /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("CREATE_DATA_SLOTS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_110_warmelt_normal_CREATE_DATA_SLOTS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_111_warmelt_normal_FILL_DATA_SLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_normal_FILL_DATA_SLOT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FILL_DATA_SLOT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3903:/ getarg");
+ /*_.DI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3903:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FIELD__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3903:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VAL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3903:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3904:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3904:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3904:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3904:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3904:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3904:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3904:/ locexp");
+      melt_assert_failed(( "check di"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3904)?(3904):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3904:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3904:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3904:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3905:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3905:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3905:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3905:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3905:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3905:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3905:/ locexp");
+      melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3905)?(3905):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3905:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3905:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3905:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3906:/ block");
+ /*block*/{
+  /*_#FIX__L3*/ curfnum[0] = 
+   (melt_obj_num((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2])));;
+  MELT_LOCATION("warmelt-normal.melt:3907:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.DI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.SLOTS__V9*/ curfptr[7] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3908:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTS__V9*/ curfptr[7]), (/*_#FIX__L3*/ curfnum[0]), (melt_ptr_t)(/*_.VAL__V4*/ curfptr[3]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3906:/ clear");
+  /*clear*/ /*_#FIX__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3906:/ clear");
+  /*clear*/ /*_.SLOTS__V9*/ curfptr[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3903:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3903:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FILL_DATA_SLOT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_111_warmelt_normal_FILL_DATA_SLOT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_112_warmelt_normal_NORMEXP_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_normal_NORMEXP_QUOTE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 49
+  void* varptr[49];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<49; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 49;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_QUOTE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3913:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3914:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3914:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_QUOTE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3914:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3914:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3914:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3914:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3914:/ locexp");
+      melt_assert_failed(( "check quote recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3914)?(3914):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3914:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3914:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3914:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3915:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3915:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3915:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3915:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3915:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3915:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3915:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3915)?(3915):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3915:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3915:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3915:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3916:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3916:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3916:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3916:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3916:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3916:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3916:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3916)?(3916):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3916:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3916:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3916:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3918:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3918:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3918:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_quote recv";
+    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
+    argtab[3].bp_long = 3918;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3918:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3918:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3918:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3919:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3919:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3920:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SQUOTED");/*_.QUOTED__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3921:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; };
+  ;
+  /*_.DISCRIM__V18*/ curfptr[17] = 
+   (melt_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])));;
+  /*_#__L5*/ curfnum[0] = 
+   ((/*_.DISCRIM__V18*/ curfptr[17]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:3924:/ cond");
+  /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3924:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3924:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3925:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3925:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:3925:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
+     /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.NDATA__V19*/ curfptr[18] = /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3924:/ clear");
+    /*clear*/ /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3924:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:3924:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L6*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-normal.melt:3926:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:3926:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:3926:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3927:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:3929:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[3];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+        MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+        MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg");
+        argtab[2].bp_cstring =  "discr_constant_integer";
+        /*_.NORMAL_PREDEF__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ curfrout->tabval[8])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3928:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:3928:/ rawallocobj");
+        /*rawallocobj*/ { melt_ptr_t newobj = 0;
+         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATABOXEDINTEGER*/ curfrout->tabval[6])), (6), "CLASS_NREP_DATABOXEDINTEGER");/*_.INST__V25*/ curfptr[24] =
+         newobj; };
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3928:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.NORMAL_PREDEF__V23*/ curfptr[22]), "NDATA_DISCRX");
+        ;
+        MELT_LOCATION("warmelt-normal.melt:3928:/ putslot");
+        /*putslot*/
+        melt_assertmsg("putslot checkobj @NBOXINT_NUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
+        melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (5), (/*_.QUOTED__V16*/ curfptr[15]), "NBOXINT_NUM");
+        ;
+        /*_.NINTDATA__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;}
+       ;
+       MELT_LOCATION("warmelt-normal.melt:3932:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[1];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3932:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NINTDATA__V24*/ curfptr[23];
+        /*_.ADD_NCTX_DATA__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.LET___V22*/ curfptr[21] = /*_.NINTDATA__V24*/ curfptr[23];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3927:/ clear");
+       /*clear*/ /*_.NORMAL_PREDEF__V23*/ curfptr[22] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3927:/ clear");
+       /*clear*/ /*_.NINTDATA__V24*/ curfptr[23] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3927:/ clear");
+       /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ;}
+      ;
+      /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V22*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3926:/ clear");
+      /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:3926:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:3926:/ block");
+     /*block*/{
+      /*_#IS_STRING__L7*/ curfnum[6] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])) == OBMAG_STRING);;
+      MELT_LOCATION("warmelt-normal.melt:3935:/ cond");
+      /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[6]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3935:/ cond.then");
+      MELT_LOCATION("warmelt-normal.melt:3935:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:3936:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:3938:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[3];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+          MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+          MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg");
+          argtab[2].bp_cstring =  "discr_string";
+          /*_.NORMAL_PREDEF__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3937:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:3937:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[10])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V31*/ curfptr[30] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3937:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[25]), "NDATA_DISCRX");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:3937:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), (/*_.QUOTED__V16*/ curfptr[15]), "NSTR_STRING");
+          ;
+          /*_.NSTRDATA__V30*/ curfptr[21] = /*_.INST__V31*/ curfptr[30];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:3941:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:3941:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTRDATA__V30*/ curfptr[21];
+          /*_.ADD_NCTX_DATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.LET___V28*/ curfptr[23] = /*_.NSTRDATA__V30*/ curfptr[21];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:3936:/ clear");
+         /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[25] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3936:/ clear");
+         /*clear*/ /*_.NSTRDATA__V30*/ curfptr[21] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:3936:/ clear");
+         /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ;}
+        ;
+        /*_.IFELSE___V27*/ curfptr[22] = /*_.LET___V28*/ curfptr[23];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3935:/ clear");
+        /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-normal.melt:3935:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3935:/ block");
+       /*block*/{
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:3946:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:3946:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:3946:/ cond");
+          /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+          MELT_LOCATION("warmelt-normal.melt:3946:/ cond.then");
+          /*_.IFELSE___V34*/ curfptr[21] = (/*nil*/NULL);;
+          } else {MELT_LOCATION("warmelt-normal.melt:3946:/ cond.else");
+          
+           MELT_LOCATION("warmelt-normal.melt:3946:/ block");
+           /*block*/{
+            /*block*/{
+             
+             {
+             MELT_LOCATION("warmelt-normal.melt:3946:/ locexp");
+             melt_assert_failed(( "unexpected quoted stuff"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3946)?(3946):__LINE__, __FUNCTION__);
+;}
+             ;
+             /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;}
+            ;
+            /*epilog*/}
+           ;
+           }
+          ;
+          /*_.IFCPP___V33*/ curfptr[25] = /*_.IFELSE___V34*/ curfptr[21];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:3946:/ clear");
+          /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:3946:/ cppif.else");
+        /*_.IFCPP___V33*/ curfptr[25] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-normal.melt:3943:/ block");
+        /*block*/{
+         /*_.PROGN___V35*/ curfptr[31] = /*_.IFCPP___V33*/ curfptr[25];;}
+        ;
+        /*_.IFELSE___V27*/ curfptr[22] = /*_.PROGN___V35*/ curfptr[31];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:3935:/ clear");
+        /*clear*/ /*_.IFCPP___V33*/ curfptr[25] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:3935:/ clear");
+        /*clear*/ /*_.PROGN___V35*/ curfptr[31] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V21*/ curfptr[19] = /*_.IFELSE___V27*/ curfptr[22];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3926:/ clear");
+      /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3926:/ clear");
+      /*clear*/ /*_.IFELSE___V27*/ curfptr[22] = 0 ;}
+     ;
+     }
+    ;
+    /*_.NDATA__V19*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3924:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3924:/ clear");
+    /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3950:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3950:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3950:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_quote ndata";
+     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
+     argtab[3].bp_long = 3950;
+     /*_.DEBUG_MSG_FUN__V37*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V36*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3950:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3950:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3950:/ cppif.else");
+  /*_.IFCPP___V36*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L9*/ curfnum[5] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[12])));;
+  MELT_LOCATION("warmelt-normal.melt:3951:/ cond");
+  /*cond*/ if (/*_#IS_A__L9*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3951:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3951:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:3952:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:3953:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:3953:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[13])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V41*/ curfptr[19] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (1), (/*_.QUOTED__V16*/ curfptr[15]), "NCONST_SVAL");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (3), (/*_.NDATA__V19*/ curfptr[18]), "NCONST_DATA");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (2), (/*_.CURPROC__V17*/ curfptr[16]), "NCONST_PROC");
+      ;
+      /*_.NCONST__V40*/ curfptr[22] = /*_.INST__V41*/ curfptr[19];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:3959:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V17*/ curfptr[16]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V42*/ curfptr[21] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:3959:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V42*/ curfptr[21]), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:3960:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:3960:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:3960:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_quote in routine nconst";
+        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
+        argtab[3].bp_long = 3960;
+        /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCONST__V40*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:3960:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:3960:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:3960:/ cppif.else");
+     /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:3961:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V40*/ curfptr[22];;
+      MELT_LOCATION("warmelt-normal.melt:3961:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V39*/ curfptr[31] = /*_.RETURN___V45*/ curfptr[43];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
+     /*clear*/ /*_.NCONST__V40*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
+     /*clear*/ /*_.NRPRO_CONST__V42*/ curfptr[21] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
+     /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
+     /*clear*/ /*_.RETURN___V45*/ curfptr[43] = 0 ;}
+    ;
+    /*_.IFELSE___V38*/ curfptr[25] = /*_.LET___V39*/ curfptr[31];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
+    /*clear*/ /*_.LET___V39*/ curfptr[31] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3951:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:3951:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3963:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3963:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:3963:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_quote in init ndata";
+       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[6];
+       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
+       argtab[3].bp_long = 3963;
+       /*_.DEBUG_MSG_FUN__V47*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V46*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3963:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3963:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[21] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3963:/ cppif.else");
+    /*_.IFCPP___V46*/ curfptr[22] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:3964:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.NDATA__V19*/ curfptr[18];;
+     MELT_LOCATION("warmelt-normal.melt:3964:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:3962:/ block");
+    /*block*/{
+     /*_.PROGN___V49*/ curfptr[43] = /*_.RETURN___V48*/ curfptr[42];;}
+    ;
+    /*_.IFELSE___V38*/ curfptr[25] = /*_.PROGN___V49*/ curfptr[43];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
+    /*clear*/ /*_.IFCPP___V46*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
+    /*clear*/ /*_.RETURN___V48*/ curfptr[42] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
+    /*clear*/ /*_.PROGN___V49*/ curfptr[43] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V38*/ curfptr[25];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.QUOTED__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.DISCRIM__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.NDATA__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.IFCPP___V36*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_#IS_A__L9*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
+  /*clear*/ /*_.IFELSE___V38*/ curfptr[25] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3913:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3913:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_QUOTE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_112_warmelt_normal_NORMEXP_QUOTE*/
+
+
+
+/**** end of warmelt-normal.0+1.c ****/
diff --git a/gcc/melt/warmelt-normal.0+2.c b/gcc/melt/warmelt-normal.0+2.c
new file mode 100644
index 00000000000..7802ecefe74
--- /dev/null
+++ b/gcc/melt/warmelt-normal.0+2.c
@@ -0,0 +1,26737 @@
+/* GCC MELT GENERATED FILE warmelt-normal.0+2.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #2 */
+#include "run-melt.h"
+
+/**** warmelt-normal.0+2.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_normal_ADD_NCTX_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_normal_FILL_INITIAL_PREDEFMAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_normal_CREATE_NORMCONTEXT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_normal_NORMEXP_IDENTICAL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_normal_NORMEXP_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_normal_NORMEXP_SRC_CATCHALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_normal_GECTYP_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_normal_GECTYP_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_normal_GECTYP_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_normal_GECTYP_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_normal_NORMALIZE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_normal_WRAP_NORMAL_LETSEQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_normal_WRAP_NORMAL_LET1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_normal_CHECK_CTYPE_NARGS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_normal_NORMEXP_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_normal_GECTYP_SYMOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_normal_NORMEXP_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_normal_NORMEXP_PRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_normal_NORMEXP_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_normal_NORMEXP_CMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_normal_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_normal_NORMEXP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_normal_NORMEXP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_normal_NORMEXP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_normal_NORMEXP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_normal_NORMEXP_IFELSE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normal_NORMEXP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normal_NORMEXP_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normal_NORMEXP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normal_NORMEXP_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normal_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normal_NORMEXP_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normal_NORMEXP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normal_NORMEXP_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normal_NORMEXP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normal_NORMEXP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normal_NORMEXP_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_normal_NORMALIZE_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_normal_NORMEXP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_normal_NORMEXP_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_normal_NORMEXP_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_normal_NORMEXP_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_normal_PREPCONS_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_normal_NORMLETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_normal_PREPCONS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_normal_NORMLETREC_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_normal_PREPCONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_normal_NORMLETREC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_normal_PREPCONS_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_normal_NORMLETREC_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_normal_NORMEXP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_normal_NORMAL_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_normal_CREATE_DATA_SLOTS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_normal_FILL_DATA_SLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_normal_NORMEXP_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_normal_NORMEXP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_normal_NORMEXP_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_normal_NORMEXP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_normal_NORMEXP_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-normal.0+2.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_113_warmelt_normal_NORMEXP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_normal_NORMEXP_COMMENT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_COMMENT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:3969:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3970:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3970:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:3970:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3970:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3970:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3970:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3970:/ locexp");
+      melt_assert_failed(( "check comment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3970)?(3970):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3970:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3970:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3970:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3971:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3971:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:3971:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3971:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3971:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3971:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3971:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3971)?(3971):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3971:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3971:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3971:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3972:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3972:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:3972:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:3972:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:3972:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:3972:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:3972:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3972)?(3972):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3972:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3972:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3972:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:3973:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:3973:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:3973:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_comment start recv";
+    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
+    argtab[3].bp_long = 3973;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:3973:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:3973:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:3973:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:3974:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:3974:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3975:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCOMM_STR");/*_.SCOMM__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3976:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3976:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_COMMENT*/ curfrout->tabval[4])), (2), "CLASS_NREP_COMMENT");/*_.INST__V18*/ curfptr[17] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3976:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3976:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCOMM_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.SCOMM__V16*/ curfptr[15]), "NCOMM_STRING");
+   ;
+   /*_.NCOMM__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3980:/ apply");
+  /*apply*/{
+   /*_.CSYM__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_COMMENT_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3981:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3981:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYM__V19*/ curfptr[18]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.NCOMM__V17*/ curfptr[16]), "LETBIND_EXPR");
+   ;
+   /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:3986:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:3986:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[9])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYM__V19*/ curfptr[18]), "NOCC_SYMB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND");
+   ;
+   /*_.CLOCC__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+  ;
+  /*_.BINDLIST__V24*/ curfptr[23] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[10]))));;
+  MELT_LOCATION("warmelt-normal.melt:3993:/ cond");
+  /*cond*/ if (/*_.SCOMM__V16*/ curfptr[15]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:3993:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:3993:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:3993:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:3993:/ block");
+     /*block*/{
+      /*_#IS_STRING__L5*/ curfnum[0] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])) == OBMAG_STRING);;
+      MELT_LOCATION("warmelt-normal.melt:3993:/ cond");
+      /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:3993:/ cond.then");
+      /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:3993:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:3993:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:3993:/ locexp");
+         melt_assert_failed(( "check scomm"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (3993)?(3993):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:3993:/ clear");
+      /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:3993:/ clear");
+      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:3993:/ cppif.else");
+    /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.IF___V25*/ curfptr[24] = /*_.IFCPP___V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3993:/ clear");
+    /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:3993:/ cond.else");
+  
+   /*_.IF___V25*/ curfptr[24] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:3994:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3995:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3995:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3995:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_comment end ncomm";
+     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
+     argtab[3].bp_long = 3995;
+     /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCOMM__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3995:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3995:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3995:/ cppif.else");
+  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3996:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3996:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3996:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_comment return clocc";
+     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
+     argtab[3].bp_long = 3996;
+     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3996:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3996:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3996:/ cppif.else");
+  /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:3997:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:3997:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:3997:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_comment return bindlist";
+     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
+     argtab[3].bp_long = 3997;
+     /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:3997:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:3997:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:3997:/ cppif.else");
+  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:3998:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V22*/ curfptr[21];;
+   MELT_LOCATION("warmelt-normal.melt:3998:/ putxtraresult");
+   if (!xrestab_ || !xresdescr_) goto labend_rout;
+   if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+   if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V24*/ curfptr[23]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:3998:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V34*/ curfptr[32];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.NCOMM__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.CSYM__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.CLOCC__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.BINDLIST__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
+  /*clear*/ /*_.RETURN___V34*/ curfptr[32] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:3969:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:3969:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_COMMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_113_warmelt_normal_NORMEXP_COMMENT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_114_warmelt_normal_NORMEXP_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_normal_NORMEXP_KEYWORD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 32
+  void* varptr[32];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<32; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 32;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_KEYWORD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4003:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4004:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4004:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4004:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4004:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4004:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4004:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4004:/ locexp");
+      melt_assert_failed(( "check keyword recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4004)?(4004):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4004:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4004:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4004:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4005:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4005:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4005:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4005:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4005:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4005:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4005:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4005)?(4005):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4005:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4005:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4005:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4006:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4006:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4006:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4006:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4006:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4006:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4006:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4006)?(4006):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4006:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4006:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4006:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4008:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4008:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4008:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_keyword recv";
+    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
+    argtab[3].bp_long = 4008;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4008:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4008:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4008:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4009:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4009:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4009:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4009:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
+   /*_.KDATA__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_KEYWORD_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4010:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4012:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4012:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));;
+    MELT_LOCATION("warmelt-normal.melt:4012:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4012:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4012:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4012:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4012:/ locexp");
+       melt_assert_failed(( "check curproc"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4012)?(4012):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4012:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4012:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4012:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L6*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));;
+  MELT_LOCATION("warmelt-normal.melt:4013:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4013:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4013:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4014:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4015:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.CONSTLIST__V21*/ curfptr[20] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4016:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4016:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[7])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V23*/ curfptr[22] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.KDATA__V15*/ curfptr[14]), "NCONST_DATA");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC");
+      ;
+      /*_.NCONST__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:4022:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:4022:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:4022:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_keyword routine curproc";
+        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
+        argtab[3].bp_long = 4022;
+        /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4022:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4022:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:4022:/ cppif.else");
+     /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4023:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.CONSTLIST__V21*/ curfptr[20]), (melt_ptr_t)(/*_.KDATA__V15*/ curfptr[14]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:4024:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:4024:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:4024:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_keyword result nconst";
+        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
+        argtab[3].bp_long = 4024;
+        /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCONST__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4024:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4024:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:4024:/ cppif.else");
+     /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:4025:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V22*/ curfptr[21];;
+      MELT_LOCATION("warmelt-normal.melt:4025:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V20*/ curfptr[19] = /*_.RETURN___V28*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
+     /*clear*/ /*_.CONSTLIST__V21*/ curfptr[20] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
+     /*clear*/ /*_.NCONST__V22*/ curfptr[21] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
+     /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
+     /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
+     /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;}
+    ;
+    /*_.IFELSE___V19*/ curfptr[17] = /*_.LET___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
+    /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4013:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:4013:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:4028:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:4028:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:4028:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_keyword routineinit result kdata";
+       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
+       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
+       argtab[3].bp_long = 4028;
+       /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.KDATA__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V29*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4028:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4028:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:4028:/ cppif.else");
+    /*_.IFCPP___V29*/ curfptr[20] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:4029:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.KDATA__V15*/ curfptr[14];;
+     MELT_LOCATION("warmelt-normal.melt:4029:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4027:/ block");
+    /*block*/{
+     /*_.PROGN___V32*/ curfptr[24] = /*_.RETURN___V31*/ curfptr[23];;}
+    ;
+    /*_.IFELSE___V19*/ curfptr[17] = /*_.PROGN___V32*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
+    /*clear*/ /*_.IFCPP___V29*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
+    /*clear*/ /*_.RETURN___V31*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
+    /*clear*/ /*_.PROGN___V32*/ curfptr[24] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V19*/ curfptr[17];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
+  /*clear*/ /*_.KDATA__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
+  /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
+  /*clear*/ /*_.IFELSE___V19*/ curfptr[17] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4003:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:4003:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_KEYWORD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_114_warmelt_normal_NORMEXP_KEYWORD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 24
+  void* varptr[24];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<24; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 24;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FILL_NORMAL_FORMALBIND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
+ /*_.FARGB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FORMSYMBMAP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4036:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4037:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4037:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4037:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4037:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4037:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4037:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4037:/ locexp");
+      melt_assert_failed(( "check fargb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4037)?(4037):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4037:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4037:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4037:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4038:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4038:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.FTYP__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4039:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 0, "BINDER");/*_.FSYMB__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4040:/ apply");
+  /*apply*/{
+   /*_.FDATASLOT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[1])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4045:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5];
+   MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg");
+   argtab[2].bp_cstring =  "class_formal_binding";
+   /*_.NORMAL_PREDEF__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NONZERO_HASH__L2*/ curfnum[0] = 
+   (melt_nonzerohash());;
+  /*_.MAKE_INTEGERBOX__V14*/ curfptr[13] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#NONZERO_HASH__L2*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-normal.melt:4042:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4042:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V16*/ curfptr[15] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.SLOC__V6*/ curfptr[5]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.NORMAL_PREDEF__V13*/ curfptr[12]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (7), (/*_.MAKE_INTEGERBOX__V14*/ curfptr[13]), "NINST_HASH");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (8), (/*_.FDATASLOT__V12*/ curfptr[11]), "NINST_SLOTS");
+   ;
+   /*_.FARGDATA__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4049:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4049:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:4049:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5];
+   /*_.FSYMBDATA__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.FSYMB__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4050:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
+   MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5];
+   MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg");
+   argtab[2].bp_cstring =  "primitive arg type";
+   /*_.FTYPDATA__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FTYP__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4052:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4052:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[2] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.FTYP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
+    MELT_LOCATION("warmelt-normal.melt:4052:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4052:/ cond.then");
+    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4052:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4052:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4052:/ locexp");
+       melt_assert_failed(( "check ftyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4052)?(4052):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4052:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4052:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4052:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4053:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4053:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FARGDATA__V15*/ curfptr[14];
+   /*_.ADD_NCTX_DATA__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4054:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4054:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!BINDER*/ curfrout->tabval[9]);
+   MELT_LOCATION("warmelt-normal.melt:4054:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FSYMBDATA__V17*/ curfptr[16];
+   /*_.FILL_DATA_SLOT__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4055:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4055:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FBIND_TYPE*/ curfrout->tabval[10]);
+   MELT_LOCATION("warmelt-normal.melt:4055:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FTYPDATA__V18*/ curfptr[17];
+   /*_.FILL_DATA_SLOT__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:4056:/ locexp");
+  meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.FORMSYMBMAP__V3*/ curfptr[2]), 
+			   (meltobject_ptr_t) (/*_.FSYMB__V11*/ curfptr[10]), 
+			   (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4057:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.FARGDATA__V15*/ curfptr[14];;
+   MELT_LOCATION("warmelt-normal.melt:4057:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V24*/ curfptr[23];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FTYP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FSYMB__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FDATASLOT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_#NONZERO_HASH__L2*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FARGDATA__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FSYMBDATA__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FTYPDATA__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FILL_DATA_SLOT__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.FILL_DATA_SLOT__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
+  /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4036:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-normal.melt:4036:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4036:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4036:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FILL_NORMAL_FORMALBIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FILL_NORMAL_FORMALS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
+ /*_.SARGS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NARGTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FORMSYMBMAP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4061:/ block");
+/*block*/{
+ /*citerblock FOREACH_IN_MULTIPLE*/ {
+  /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SARGS__V2*/ curfptr[1]);
+   for (/*_#IX__L1*/ curfnum[0] = 0;  
+	(/*_#IX__L1*/ curfnum[0] >= 0) && (/*_#IX__L1*/ curfnum[0] <  cit1__EACHTUP_ln);  
+	/*_#IX__L1*/ curfnum[0]++) {
+   /*_.FARGB__V8*/ curfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V2*/ curfptr[1]),  /*_#IX__L1*/ curfnum[0]);
+   
+ 
+  MELT_LOCATION("warmelt-normal.melt:4065:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4065:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];
+    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];
+    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
+    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V7*/ curfptr[6];
+    /*_.FARGDATA__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FARGB__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4067:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4067:/ block");
+    /*block*/{
+     /*_#IS_A__L2*/ curfnum[1] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[1])));;
+     MELT_LOCATION("warmelt-normal.melt:4067:/ cond");
+     /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4067:/ cond.then");
+     /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4067:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4067:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4067:/ locexp");
+        melt_assert_failed(( "check fargdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4067)?(4067):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4067:/ clear");
+     /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4067:/ clear");
+     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4067:/ cppif.else");
+   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.MAKE_INTEGERBOX__V12*/ curfptr[10] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L1*/ curfnum[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4068:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4068:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.FARGDATA__V9*/ curfptr[8]), (5), (/*_.MAKE_INTEGERBOX__V12*/ curfptr[10]), "NINST_OBJNUM");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4068:/ touch");
+    meltgc_touch(/*_.FARGDATA__V9*/ curfptr[8]);
+    ;
+    /*epilog*/}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4070:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2]), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4065:/ clear");
+   /*clear*/ /*_.FARGDATA__V9*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4065:/ clear");
+   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4065:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V12*/ curfptr[10] = 0 ;}
+  ;
+  if (/*_#IX__L1*/ curfnum[0]<0) break;
+   } /* end cit1__EACHTUP */ 
+ 
+  /*citerepilog*/
+  MELT_LOCATION("warmelt-normal.melt:4062:/ clear");
+  /*clear*/ /*_.FARGB__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4062:/ clear");
+  /*clear*/ /*_#IX__L1*/ curfnum[0] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FILL_NORMAL_FORMALS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("FILL_NORMAL_EXPANSION", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
+ /*_.SEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NEXPTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4074:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:4077:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4077:/ newclosure");
+   /*newclosure*/ /*_.LAMBDA___V7*/ curfptr[6] =
+   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[0] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[1] = (melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]);
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[2] = (melt_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2]);
+  ;
+  /*_.LAMBDA___V6*/ curfptr[5] = /*_.LAMBDA___V7*/ curfptr[6];;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4075:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:4075:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V6*/ curfptr[5];
+  /*_.MULTIPLE_EVERY__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4074:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V8*/ curfptr[7];;
+  MELT_LOCATION("warmelt-normal.melt:4074:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4074:/ clear");
+ /*clear*/ /*_.LAMBDA___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4074:/ clear");
+ /*clear*/ /*_.MULTIPLE_EVERY__V8*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("FILL_NORMAL_EXPANSION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_118_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_118_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4077:/ getarg");
+ /*_.EXPCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4077:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4077:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-normal.melt:4078:/ block");
+ /*block*/{
+  /*_.DISCRCOMP__V3*/ curfptr[2] = 
+   (melt_discr((melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1])));;
+  /*_#__L2*/ curfnum[1] = 
+   ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])));;
+  MELT_LOCATION("warmelt-normal.melt:4080:/ cond");
+  /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4080:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4080:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4084:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]);
+     MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg");
+     argtab[2].bp_cstring =  "discr_verbatim_string";
+     /*_.NORMAL_PREDEF__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4082:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4082:/ rawallocobj");
+     /*rawallocobj*/ { melt_ptr_t newobj = 0;
+      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V7*/ curfptr[6] =
+      newobj; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4082:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.NORMAL_PREDEF__V5*/ curfptr[4]), "NDATA_DISCRX");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4082:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (5), (/*_.EXPCOMP__V2*/ curfptr[1]), "NSTR_STRING");
+     ;
+     /*_.INST___V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4081:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4081:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INST___V6*/ curfptr[5];
+     /*_.ADD_NCTX_DATA__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.COMPDATA__V4*/ curfptr[3] = /*_.ADD_NCTX_DATA__V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
+    /*clear*/ /*_.NORMAL_PREDEF__V5*/ curfptr[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
+    /*clear*/ /*_.INST___V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
+    /*clear*/ /*_.ADD_NCTX_DATA__V8*/ curfptr[7] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4080:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:4080:/ block");
+   /*block*/{
+    /*_#__L3*/ curfnum[2] = 
+     ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-normal.melt:4087:/ cond");
+    /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4087:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:4087:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4088:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4088:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]);
+       MELT_LOCATION("warmelt-normal.melt:4088:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]);
+       /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFELSE___V9*/ curfptr[4] = /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4087:/ clear");
+      /*clear*/ /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:4087:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4087:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4091:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4091:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:4091:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
+         argtab[0].bp_cstring =  "bad component in C code expansion expcomp";
+         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
+         argtab[3].bp_long = 4091;
+         /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V11*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[5];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4091:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4091:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4091:/ cppif.else");
+      /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4092:/ locexp");
+      melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "unexpected component in C code expansion"), (melt_ptr_t)0);}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4090:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4087:/ clear");
+      /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;}
+     ;
+     }
+    ;
+    /*_.COMPDATA__V4*/ curfptr[3] = /*_.IFELSE___V9*/ curfptr[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
+    /*clear*/ /*_#__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
+    /*clear*/ /*_.IFELSE___V9*/ curfptr[4] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:4094:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)((/*~NEXPTUPLE*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.COMPDATA__V4*/ curfptr[3]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4078:/ clear");
+  /*clear*/ /*_.DISCRCOMP__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4078:/ clear");
+  /*clear*/ /*_#__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4078:/ clear");
+  /*clear*/ /*_.COMPDATA__V4*/ curfptr[3] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_118_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 49
+  void* varptr[49];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<49; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 49;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFPRIMITIVE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4099:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4100:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4100:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4100:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4100:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4100:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4100:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4100:/ locexp");
+      melt_assert_failed(( "check defprimitive recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4100)?(4100):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4100:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4100:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4100:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4101:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4101:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4101:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4101:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4101:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4101:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4101:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4101)?(4101):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4101:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4101:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4101:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4102:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4102:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4102:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4102:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4102:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4102:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4102:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4102)?(4102):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4102:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4102:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4102:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4103:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4103:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4104:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4105:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SARGS__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4106:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SPRIM_TYPE");/*_.STYPE__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4107:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SPRIM_EXPANSION");/*_.SEXP__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4108:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4108:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V14*/ curfptr[13];
+   /*_.SPRIMBIND__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4110:/ apply");
+  /*apply*/{
+   /*_.NSLOTUPLE__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16])));;
+  /*_.NEXPTUPLE__V20*/ curfptr[19] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[0])));;
+  /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));;
+  /*_.NARGTUPLE__V21*/ curfptr[20] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[4])));;
+  MELT_LOCATION("warmelt-normal.melt:4118:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_multiple";
+   /*_.NORMAL_PREDEF__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4115:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4115:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V24*/ curfptr[23] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V22*/ curfptr[21]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.NEXPTUPLE__V20*/ curfptr[19]), "NTUP_COMP");
+   ;
+   /*_.NEXPDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4123:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_multiple";
+   /*_.NORMAL_PREDEF__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4120:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4120:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V27*/ curfptr[26] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.NORMAL_PREDEF__V25*/ curfptr[24]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NARGTUPLE__V21*/ curfptr[20]), "NTUP_COMP");
+   ;
+   /*_.NARGDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4128:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg");
+   argtab[2].bp_cstring =  "class_primitive";
+   /*_.NORMAL_PREDEF__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NONZERO_HASH__L6*/ curfnum[5] = 
+   (melt_nonzerohash());;
+  /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NONZERO_HASH__L6*/ curfnum[5])));;
+  MELT_LOCATION("warmelt-normal.melt:4125:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4125:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V31*/ curfptr[30] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (7), (/*_.MAKE_INTEGERBOX__V29*/ curfptr[28]), "NINST_HASH");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (8), (/*_.NSLOTUPLE__V19*/ curfptr[18]), "NINST_SLOTS");
+   ;
+   /*_.NPRIMDATA__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4131:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4131:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4131:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.NSYMDATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));;
+  /*_#I__L8*/ curfnum[7] = 
+   ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) * (2));;
+  /*_#I__L9*/ curfnum[8] = 
+   ((3) + (/*_#I__L8*/ curfnum[7]));;
+  /*_.FORMSYMBMAP__V33*/ curfptr[32] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[12])), (/*_#I__L9*/ curfnum[8])));;
+  MELT_LOCATION("warmelt-normal.melt:4135:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4135:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPRIMDATA__V30*/ curfptr[29];
+   /*_.ADD_NCTX_DATA__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4136:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4136:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22];
+   /*_.ADD_NCTX_DATA__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4137:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4137:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25];
+   /*_.ADD_NCTX_DATA__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4140:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[5];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGTUPLE__V21*/ curfptr[20];
+   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V33*/ curfptr[32];
+   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4142:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPTUPLE__V20*/ curfptr[19];
+   MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4149:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_string";
+   /*_.NORMAL_PREDEF__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4150:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4147:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4147:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[18])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V42*/ curfptr[41] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4147:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.NORMAL_PREDEF__V39*/ curfptr[38]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4147:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.NAMED_NAME__V40*/ curfptr[39]), "NSTR_STRING");
+   ;
+   /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4145:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4145:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INST___V41*/ curfptr[40];
+   /*_.ADD_NCTX_DATA__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4144:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4144:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[17]);
+   MELT_LOCATION("warmelt-normal.melt:4144:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ADD_NCTX_DATA__V43*/ curfptr[42];
+   /*_.FILL_DATA_SLOT__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4151:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4151:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_FORMALS*/ curfrout->tabval[20]);
+   MELT_LOCATION("warmelt-normal.melt:4151:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25];
+   /*_.FILL_DATA_SLOT__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4152:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4152:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_EXPANSION*/ curfrout->tabval[21]);
+   MELT_LOCATION("warmelt-normal.melt:4152:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22];
+   /*_.FILL_DATA_SLOT__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4154:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg");
+   argtab[2].bp_cstring =  "primitive res type";
+   /*_.NORMAL_PREDEF__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.STYPE__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4153:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4153:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_TYPE*/ curfrout->tabval[22]);
+   MELT_LOCATION("warmelt-normal.melt:4153:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NORMAL_PREDEF__V47*/ curfptr[46];
+   /*_.FILL_DATA_SLOT__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_A__L10*/ curfnum[9] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[23])));;
+  MELT_LOCATION("warmelt-normal.melt:4156:/ cond");
+  /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4156:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4156:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4157:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4157:/ putslot");
+     /*putslot*/
+     melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17])) == OBMAG_OBJECT);
+     melt_putfield_object((/*_.SPRIMBIND__V18*/ curfptr[17]), (1), (/*_.NPRIMDATA__V30*/ curfptr[29]), "FIXBIND_DATA");
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4157:/ touch");
+     meltgc_touch(/*_.SPRIMBIND__V18*/ curfptr[17]);
+     ;
+     /*epilog*/}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4160:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+   MELT_LOCATION("warmelt-normal.melt:4160:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V49*/ curfptr[48];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.SARGS__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.STYPE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.SPRIMBIND__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NSLOTUPLE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NEXPTUPLE__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NARGTUPLE__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NEXPDATA__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NARGDATA__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#NONZERO_HASH__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NPRIMDATA__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NSYMDATA__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FORMSYMBMAP__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V43*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FILL_DATA_SLOT__V44*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FILL_DATA_SLOT__V45*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FILL_DATA_SLOT__V46*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V47*/ curfptr[46] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.FILL_DATA_SLOT__V48*/ curfptr[47] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
+  /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4099:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:4099:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFPRIMITIVE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 70
+  void* varptr[70];
+#define CURFRAM_NBVARNUM 24
+  long varnum[24];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<70; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 70;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFCITERATOR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4167:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4168:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4168:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4168:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4168:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4168:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4168:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4168:/ locexp");
+      melt_assert_failed(( "check defciterator recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4168)?(4168):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4168:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4168:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4168:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4169:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4169:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4169:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4169:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4169:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4169:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4169:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4169)?(4169):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4169:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4169:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4169:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4170:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4170:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4170:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4170:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4170:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4170:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4170:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4170)?(4170):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4170:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4170:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4170:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4171:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4172:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4173:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4174:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4174:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCITERDEF_CITERATOR");/*_.SC__V16*/ curfptr[15] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4175:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4175:/ block");
+    /*block*/{
+     /*_#IS_A__L4*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.SC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));;
+     MELT_LOCATION("warmelt-normal.melt:4175:/ cond");
+     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4175:/ cond.then");
+     /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4175:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4175:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4175:/ locexp");
+        melt_assert_failed(( "check sciter"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4175)?(4175):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4175:/ clear");
+     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4175:/ clear");
+     /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4175:/ cppif.else");
+   /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V15*/ curfptr[14] = /*_.SC__V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4174:/ clear");
+   /*clear*/ /*_.SC__V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4174:/ clear");
+   /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
+  ;
+  /*_.SCITER__V19*/ curfptr[17] = /*_.LET___V15*/ curfptr[14];;
+  MELT_LOCATION("warmelt-normal.melt:4177:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4177:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V14*/ curfptr[13];
+   /*_.CITBIND__V20*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4178:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 2, "CITER_START_FORMALS");/*_.CITSTAFOR__V21*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4180:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V22*/ curfptr[21] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V22*/ curfptr[21])));;
+  /*_.SLOTUP__V23*/ curfptr[22] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));;
+  /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16])));;
+  /*_.FORMSTATUP__V24*/ curfptr[23] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));;
+  MELT_LOCATION("warmelt-normal.melt:4183:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 4, "CITER_BODY_FORMALS");/*_.CITBODFOR__V25*/ curfptr[24] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24])));;
+  /*_.FORMBODTUP__V26*/ curfptr[25] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6])));;
+  MELT_LOCATION("warmelt-normal.melt:4186:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 3, "CITER_STATE");/*_.CITSTATSY__V27*/ curfptr[26] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4187:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEF__V28*/ curfptr[27] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CITEXPBEF__V28*/ curfptr[27])));;
+  /*_.EXPBEFTUP__V29*/ curfptr[28] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[7])));;
+  MELT_LOCATION("warmelt-normal.melt:4189:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 6, "CITER_EXPAFTER");/*_.CITEXPAFT__V30*/ curfptr[29] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CITEXPAFT__V30*/ curfptr[29])));;
+  /*_.EXPAFTTUP__V31*/ curfptr[30] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L9*/ curfnum[8])));;
+  /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16])));;
+  /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24])));;
+  /*_#I__L12*/ curfnum[11] = 
+   ((/*_#MULTIPLE_LENGTH__L10*/ curfnum[9]) + (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10]));;
+  /*_#I__L13*/ curfnum[12] = 
+   ((/*_#I__L12*/ curfnum[11]) * (2));;
+  /*_#I__L14*/ curfnum[13] = 
+   ((5) + (/*_#I__L13*/ curfnum[12]));;
+  /*_.FORMSYMBMAP__V32*/ curfptr[31] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#I__L14*/ curfnum[13])));;
+  MELT_LOCATION("warmelt-normal.melt:4196:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_string";
+   /*_.NORMAL_PREDEF__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4197:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4194:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4194:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V36*/ curfptr[35] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4194:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4194:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.NORMAL_PREDEF__V33*/ curfptr[32]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4194:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.NAMED_NAME__V34*/ curfptr[33]), "NSTR_STRING");
+   ;
+   /*_.NAMSTRDATA__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4201:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg");
+   argtab[2].bp_cstring =  "class_citerator";
+   /*_.NORMAL_PREDEF__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#NONZERO_HASH__L15*/ curfnum[14] = 
+   (melt_nonzerohash());;
+  /*_.MAKE_INTEGERBOX__V38*/ curfptr[37] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#NONZERO_HASH__L15*/ curfnum[14])));;
+  MELT_LOCATION("warmelt-normal.melt:4198:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4198:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[10])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V40*/ curfptr[39] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NORMAL_PREDEF__V37*/ curfptr[36]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (7), (/*_.MAKE_INTEGERBOX__V38*/ curfptr[37]), "NINST_HASH");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (8), (/*_.SLOTUP__V23*/ curfptr[22]), "NINST_SLOTS");
+   ;
+   /*_.INSDATA__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4206:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4206:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V39*/ curfptr[38];
+   /*_.ADD_NCTX_DATA__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4207:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4207:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V35*/ curfptr[34];
+   /*_.ADD_NCTX_DATA__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#GET_INT__L16*/ curfnum[15] = 
+   (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[13]))));;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:4209:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L16*/ curfnum[15]), (melt_ptr_t)(/*_.NAMSTRDATA__V35*/ curfptr[34]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4211:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[5];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSTATUP__V24*/ curfptr[23];
+   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V32*/ curfptr[31];
+   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.FILL_NORMAL_FORMALS__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4212:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4215:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_multiple";
+    /*_.NORMAL_PREDEF__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4212:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4212:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V46*/ curfptr[45] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (2), (/*_.NORMAL_PREDEF__V44*/ curfptr[43]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (5), (/*_.FORMSTATUP__V24*/ curfptr[23]), "NTUP_COMP");
+    ;
+    /*_.NSTATUPDATA__V45*/ curfptr[44] = /*_.INST__V46*/ curfptr[45];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4218:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4218:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTATUPDATA__V45*/ curfptr[44];
+    /*_.ADD_NCTX_DATA__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L17*/ curfnum[16] = 
+    (melt_get_int((melt_ptr_t)((/*!CITER_START_FORMALS*/ curfrout->tabval[16]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4219:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L17*/ curfnum[16]), (melt_ptr_t)(/*_.NSTATUPDATA__V45*/ curfptr[44]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V44*/ curfptr[43] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
+   /*clear*/ /*_.NSTATUPDATA__V45*/ curfptr[44] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V47*/ curfptr[46] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
+   /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4223:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4223:/ block");
+   /*block*/{
+    /*_#IS_A__L18*/ curfnum[16] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CITSTATSY__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[17])));;
+    MELT_LOCATION("warmelt-normal.melt:4223:/ cond");
+    /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4223:/ cond.then");
+    /*_.IFELSE___V49*/ curfptr[44] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4223:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4223:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4223:/ locexp");
+       melt_assert_failed(( "check citstatsy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4223)?(4223):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V48*/ curfptr[43] = /*_.IFELSE___V49*/ curfptr[44];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4223:/ clear");
+    /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4223:/ clear");
+    /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4223:/ cppif.else");
+  /*_.IFCPP___V48*/ curfptr[43] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4224:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4224:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4224:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4224:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    /*_.NSTATSYDATA__V50*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.CITSTATSY__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L19*/ curfnum[16] = 
+    (melt_get_int((melt_ptr_t)((/*!CITER_STATE*/ curfrout->tabval[19]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4225:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L19*/ curfnum[16]), (melt_ptr_t)(/*_.NSTATSYDATA__V50*/ curfptr[46]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4224:/ clear");
+   /*clear*/ /*_.NSTATSYDATA__V50*/ curfptr[46] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4224:/ clear");
+   /*clear*/ /*_#GET_INT__L19*/ curfnum[16] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4229:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[5];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMBODTUP__V26*/ curfptr[25];
+   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V32*/ curfptr[31];
+   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.FILL_NORMAL_FORMALS__V51*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4230:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4233:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_multiple";
+    /*_.NORMAL_PREDEF__V52*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4230:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4230:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V54*/ curfptr[53] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.NORMAL_PREDEF__V52*/ curfptr[46]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (5), (/*_.FORMBODTUP__V26*/ curfptr[25]), "NTUP_COMP");
+    ;
+    /*_.NBODTUPDATA__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4236:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4236:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODTUPDATA__V53*/ curfptr[52];
+    /*_.ADD_NCTX_DATA__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L20*/ curfnum[16] = 
+    (melt_get_int((melt_ptr_t)((/*!CITER_BODY_FORMALS*/ curfrout->tabval[20]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4237:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L20*/ curfnum[16]), (melt_ptr_t)(/*_.NBODTUPDATA__V53*/ curfptr[52]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V52*/ curfptr[46] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
+   /*clear*/ /*_.NBODTUPDATA__V53*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
+   /*clear*/ /*_#GET_INT__L20*/ curfnum[16] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4240:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.EXPBEFTUP__V29*/ curfptr[28];
+   MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.FILL_NORMAL_EXPANSION__V56*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITEXPBEF__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4241:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4244:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_multiple";
+    /*_.NORMAL_PREDEF__V57*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4241:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4241:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V59*/ curfptr[58] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.NORMAL_PREDEF__V57*/ curfptr[52]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (5), (/*_.EXPBEFTUP__V29*/ curfptr[28]), "NTUP_COMP");
+    ;
+    /*_.NBEFTUPDATA__V58*/ curfptr[54] = /*_.INST__V59*/ curfptr[58];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4247:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4247:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBEFTUPDATA__V58*/ curfptr[54];
+    /*_.ADD_NCTX_DATA__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L21*/ curfnum[16] = 
+    (melt_get_int((melt_ptr_t)((/*!CITER_EXPBEFORE*/ curfrout->tabval[22]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4248:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L21*/ curfnum[16]), (melt_ptr_t)(/*_.NBEFTUPDATA__V58*/ curfptr[54]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V57*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
+   /*clear*/ /*_.NBEFTUPDATA__V58*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V60*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
+   /*clear*/ /*_#GET_INT__L21*/ curfnum[16] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4251:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.EXPAFTTUP__V31*/ curfptr[30];
+   MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+   /*_.FILL_NORMAL_EXPANSION__V61*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITEXPAFT__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4252:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4255:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_multiple";
+    /*_.NORMAL_PREDEF__V62*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4252:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4252:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V64*/ curfptr[63] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (2), (/*_.NORMAL_PREDEF__V62*/ curfptr[54]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (5), (/*_.EXPAFTTUP__V31*/ curfptr[30]), "NTUP_COMP");
+    ;
+    /*_.NAFTTUPDATA__V63*/ curfptr[59] = /*_.INST__V64*/ curfptr[63];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4258:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4258:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAFTTUPDATA__V63*/ curfptr[59];
+    /*_.ADD_NCTX_DATA__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L22*/ curfnum[16] = 
+    (melt_get_int((melt_ptr_t)((/*!CITER_EXPAFTER*/ curfrout->tabval[23]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4259:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L22*/ curfnum[16]), (melt_ptr_t)(/*_.NAFTTUPDATA__V63*/ curfptr[59]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V62*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
+   /*clear*/ /*_.NAFTTUPDATA__V63*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V65*/ curfptr[64] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
+   /*clear*/ /*_#GET_INT__L22*/ curfnum[16] = 0 ;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4261:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4261:/ block");
+   /*block*/{
+    /*_#IS_A__L23*/ curfnum[16] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CITBIND__V20*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR_BINDING*/ curfrout->tabval[24])));;
+    MELT_LOCATION("warmelt-normal.melt:4261:/ cond");
+    /*cond*/ if (/*_#IS_A__L23*/ curfnum[16]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4261:/ cond.then");
+    /*_.IFELSE___V67*/ curfptr[59] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4261:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4261:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4261:/ locexp");
+       melt_assert_failed(( "check citbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4261)?(4261):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V67*/ curfptr[59] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V66*/ curfptr[54] = /*_.IFELSE___V67*/ curfptr[59];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4261:/ clear");
+    /*clear*/ /*_#IS_A__L23*/ curfnum[16] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4261:/ clear");
+    /*clear*/ /*_.IFELSE___V67*/ curfptr[59] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4261:/ cppif.else");
+  /*_.IFCPP___V66*/ curfptr[54] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4262:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4262:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.CITBIND__V20*/ curfptr[15])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.CITBIND__V20*/ curfptr[15]), (1), (/*_.INSDATA__V39*/ curfptr[38]), "FIXBIND_DATA");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4262:/ touch");
+   meltgc_touch(/*_.CITBIND__V20*/ curfptr[15]);
+   ;
+   /*epilog*/}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4267:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4267:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:4267:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_defciterator return insdata";
+     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[16];
+     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
+     argtab[3].bp_long = 4267;
+     /*_.DEBUG_MSG_FUN__V69*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.INSDATA__V39*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V68*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[59];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4267:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4267:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[59] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4267:/ cppif.else");
+  /*_.IFCPP___V68*/ curfptr[64] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4268:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V39*/ curfptr[38];;
+   MELT_LOCATION("warmelt-normal.melt:4268:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V70*/ curfptr[59];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.SCITER__V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CITBIND__V20*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CITSTAFOR__V21*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CLASS_FIELDS__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.SLOTUP__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FORMSTATUP__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CITBODFOR__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FORMBODTUP__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CITSTATSY__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CITEXPBEF__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.EXPBEFTUP__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.CITEXPAFT__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.EXPAFTTUP__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FORMSYMBMAP__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.NAMSTRDATA__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#NONZERO_HASH__L15*/ curfnum[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.INSDATA__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V42*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_#GET_INT__L16*/ curfnum[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_FORMALS__V43*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.IFCPP___V48*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_FORMALS__V51*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_EXPANSION__V56*/ curfptr[46] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_EXPANSION__V61*/ curfptr[52] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.IFCPP___V66*/ curfptr[54] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.IFCPP___V68*/ curfptr[64] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
+  /*clear*/ /*_.RETURN___V70*/ curfptr[59] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4167:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:4167:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFCITERATOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_121_warmelt_normal_NORMEXP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_121_warmelt_normal_NORMEXP_CITERATION_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 128
+  void* varptr[128];
+#define CURFRAM_NBVARNUM 34
+  long varnum[34];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<128; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 128;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_CITERATION", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4276:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4277:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4277:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4277:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration recv";
+    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
+    argtab[3].bp_long = 4277;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4277:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4277:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4277:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4278:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4278:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CITERATION*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4278:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4278:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4278:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4278:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4278:/ locexp");
+      melt_assert_failed(( "check citeration recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4278)?(4278):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4278:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4278:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4278:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4279:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4279:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4279:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4279:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4279:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4279:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4279:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4279)?(4279):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4279:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4279:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4279:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4280:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4280:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-normal.melt:4280:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4280:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4280:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4280:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4280:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4280)?(4280):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4280:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4280:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4280:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4281:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4281:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4282:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCITER_OPER");/*_.SOPER__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4283:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4284:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SCITER_VARBIND");/*_.SVBIND__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4285:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCITER_BODY");/*_.SBODY__V19*/ curfptr[18] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));;
+  /*_.NBNDTUP__V20*/ curfptr[19] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-normal.melt:4287:/ apply");
+  /*apply*/{
+   /*_.BODYENV__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4289:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V22*/ curfptr[21] = slot; };
+  ;
+  /*_.UNCACHELIST__V23*/ curfptr[22] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4293:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4293:/ block");
+   /*block*/{
+    /*_#IS_A__L6*/ curfnum[5] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-normal.melt:4293:/ cond");
+    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4293:/ cond.then");
+    /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4293:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4293:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4293:/ locexp");
+       melt_assert_failed(( "check soper"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4293)?(4293):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4293:/ clear");
+    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4293:/ clear");
+    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4293:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4295:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply");
+   /*multiapply 4args, 1x.res*/ {
+    union meltparam_un argtab[3];
+    
+    union meltparam_un restab[1];
+    memset(&restab, 0, sizeof(restab));
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V28*/ curfptr[27];
+    MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.appl");
+    /*_.NARGS__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SARGS__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4295:/ block");
+   /*block*/{
+    /*_#NULL__L7*/ curfnum[5] = 
+     ((/*_.NBINDINGS__V28*/ curfptr[27]) == NULL);;
+    MELT_LOCATION("warmelt-normal.melt:4298:/ cond");
+    /*cond*/ if (/*_#NULL__L7*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4298:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:4298:/ block");
+     /*block*/{
+      /*_.MAKE_LIST__V30*/ curfptr[29] = 
+       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
+      MELT_LOCATION("warmelt-normal.melt:4298:/ compute");
+      /*_.NBINDINGS__V28*/ curfptr[27] = /*_.SETQ___V31*/ curfptr[30] = /*_.MAKE_LIST__V30*/ curfptr[29];;
+      /*_.IF___V29*/ curfptr[28] = /*_.SETQ___V31*/ curfptr[30];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4298:/ clear");
+      /*clear*/ /*_.MAKE_LIST__V30*/ curfptr[29] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4298:/ clear");
+      /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:4298:/ cond.else");
+    
+     /*_.IF___V29*/ curfptr[28] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:4299:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:4299:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:4299:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_citeration nargs";
+       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
+       argtab[3].bp_long = 4299;
+       /*_.DEBUG_MSG_FUN__V33*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V32*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[30];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4299:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4299:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[30] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:4299:/ cppif.else");
+    /*_.IFCPP___V32*/ curfptr[29] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:4300:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:4300:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:4300:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_citeration nbindings";
+       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
+       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
+       argtab[3].bp_long = 4300;
+       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V34*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4300:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4300:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:4300:/ cppif.else");
+    /*_.IFCPP___V34*/ curfptr[30] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:4301:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4301:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 2, "CITER_START_FORMALS");/*_.STARFORMALS__V37*/ curfptr[36] = slot; };
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:4302:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:4302:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:4302:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_citeration starformals";
+        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[7];
+        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
+        argtab[3].bp_long = 4302;
+        /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4302:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4302:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:4302:/ cppif.else");
+     /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36])));;
+     /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26])));;
+     /*_#I__L13*/ curfnum[12] = 
+      ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[7]) != (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11]));;
+     MELT_LOCATION("warmelt-normal.melt:4303:/ cond");
+     /*cond*/ if (/*_#I__L13*/ curfnum[12]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4303:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:4303:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4305:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V41*/ curfptr[40] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4305:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "start formals and actuals length mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V41*/ curfptr[40]));}
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4306:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+        MELT_LOCATION("warmelt-normal.melt:4306:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4304:/ block");
+       /*block*/{
+        /*_.PROGN___V43*/ curfptr[42] = /*_.RETURN___V42*/ curfptr[41];;}
+       ;
+       /*_.IF___V40*/ curfptr[38] = /*_.PROGN___V43*/ curfptr[42];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4303:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V41*/ curfptr[40] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4303:/ clear");
+       /*clear*/ /*_.RETURN___V42*/ curfptr[41] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4303:/ clear");
+       /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:4303:/ cond.else");
+     
+      /*_.IF___V40*/ curfptr[38] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4309:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4309:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[41] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[1] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[2] = (melt_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[3] = (melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]);
+      ;
+      /*_.LAMBDA___V44*/ curfptr[40] = /*_.LAMBDA___V45*/ curfptr[41];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4307:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4307:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STARFORMALS__V37*/ curfptr[36];
+      MELT_LOCATION("warmelt-normal.melt:4307:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[40];
+      /*_.MULTIPLE_EVERY_BOTH__V46*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:4331:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:4331:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:4331:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_citeration nbndtup";
+        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
+        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
+        argtab[3].bp_long = 4331;
+        /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4331:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4331:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:4331:/ cppif.else");
+     /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:4333:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:4333:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:4333:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_citeration svbind";
+        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
+        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
+        argtab[3].bp_long = 4333;
+        /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4333:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4333:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:4333:/ cppif.else");
+     /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:4334:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4334:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 4, "CITER_BODY_FORMALS");/*_.CITBFORM__V52*/ curfptr[51] = slot; };
+      ;
+      /*_#NBCITBFORM__L16*/ curfnum[13] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51])));;
+      /*_.NLOCBINDTUP__V53*/ curfptr[52] = 
+       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));;
+      /*_.NSYMOCCTUP__V54*/ curfptr[53] = 
+       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4339:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4339:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:4339:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_citeration citbform";
+         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16];
+         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
+         argtab[3].bp_long = 4339;
+         /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V55*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4339:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4339:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4339:/ cppif.else");
+      /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));;
+      /*_#I__L19*/ curfnum[18] = 
+       ((/*_#NBCITBFORM__L16*/ curfnum[13]) != (/*_#MULTIPLE_LENGTH__L18*/ curfnum[16]));;
+      MELT_LOCATION("warmelt-normal.melt:4340:/ cond");
+      /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:4340:/ cond.then");
+      MELT_LOCATION("warmelt-normal.melt:4340:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:4342:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ curfptr[57] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4342:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "body formals and actuals length mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ curfptr[57]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4343:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+         MELT_LOCATION("warmelt-normal.melt:4343:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4341:/ block");
+        /*block*/{
+         /*_.PROGN___V60*/ curfptr[59] = /*_.RETURN___V59*/ curfptr[58];;}
+        ;
+        /*_.IF___V57*/ curfptr[55] = /*_.PROGN___V60*/ curfptr[59];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4340:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V58*/ curfptr[57] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4340:/ clear");
+        /*clear*/ /*_.RETURN___V59*/ curfptr[58] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4340:/ clear");
+        /*clear*/ /*_.PROGN___V60*/ curfptr[59] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-normal.melt:4340:/ cond.else");
+      
+       /*_.IF___V57*/ curfptr[55] = NULL;;
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4346:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4346:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V62*/ curfptr[58] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (7));
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[0] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[1] = (melt_ptr_t)(/*_.NLOCBINDTUP__V53*/ curfptr[52]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[2] = (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[3] = (melt_ptr_t)(/*_.SYCMAP__V22*/ curfptr[21]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[4] = (melt_ptr_t)(/*_.UNCACHELIST__V23*/ curfptr[22]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[5] = (melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]);
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[6] = (melt_ptr_t)(/*_.BODYENV__V21*/ curfptr[20]);
+       ;
+       /*_.LAMBDA___V61*/ curfptr[57] = /*_.LAMBDA___V62*/ curfptr[58];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4344:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4344:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITBFORM__V52*/ curfptr[51];
+       MELT_LOCATION("warmelt-normal.melt:4344:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V61*/ curfptr[57];
+       /*_.MULTIPLE_EVERY_BOTH__V63*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4386:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4386:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:4386:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_citeration nlocbindtup";
+         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
+         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
+         argtab[3].bp_long = 4386;
+         /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCBINDTUP__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V64*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4386:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4386:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4386:/ cppif.else");
+      /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4387:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4387:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:4387:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_citeration nsymocctup";
+         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19];
+         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
+         argtab[3].bp_long = 4387;
+         /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V66*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4387:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4387:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4387:/ cppif.else");
+      /*_.IFCPP___V66*/ curfptr[64] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:4388:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply");
+       /*multiapply 4args, 1x.res*/ {
+        union meltparam_un argtab[3];
+        
+        union meltparam_un restab[1];
+        memset(&restab, 0, sizeof(restab));
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BODYENV__V21*/ curfptr[20];MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg");
+        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+        MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.xres");
+        restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V70*/ curfptr[69];
+        MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.appl");
+        /*_.NBODY__V69*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4388:/ block");
+       /*block*/{
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:4391:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:4391:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 
+           callcount;;
+          MELT_LOCATION("warmelt-normal.melt:4391:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
+           argtab[0].bp_cstring =  "normexp_citeration nbody";
+           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19];
+           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-normal.melt";
+           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
+           argtab[3].bp_long = 4391;
+           /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODY__V69*/ curfptr[68]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V71*/ curfptr[70] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4391:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4391:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:4391:/ cppif.else");
+        /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:4392:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:4392:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L23*/ curfnum[19] = 
+           callcount;;
+          MELT_LOCATION("warmelt-normal.melt:4392:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
+           argtab[0].bp_cstring =  "normexp_citeration nbodbindings";
+           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[19];
+           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-normal.melt";
+           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
+           argtab[3].bp_long = 4392;
+           /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODBINDINGS__V70*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V73*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4392:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[19] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4392:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:4392:/ cppif.else");
+        /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-normal.melt:4393:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:4393:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 3, "CITER_STATE");/*_.CITSTATE__V76*/ curfptr[75] = slot; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4394:/ apply");
+         /*apply*/{
+          /*_.CITSTSYM__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITSTATE__V76*/ curfptr[75]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4395:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4395:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V79*/ curfptr[78] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.CITSTSYM__V77*/ curfptr[76]), "BINDER");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
+          ;
+          /*_.CITSTBIND__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4400:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4400:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V81*/ curfptr[80] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (1), (/*_.CITSTSYM__V77*/ curfptr[76]), "NOCC_SYMB");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (3), (/*_.CITSTBIND__V78*/ curfptr[77]), "NOCC_BIND");
+          ;
+          /*_.CITSTOCC__V80*/ curfptr[79] = /*_.INST__V81*/ curfptr[80];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4405:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEFORE__V82*/ curfptr[81] = slot; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4406:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 6, "CITER_EXPAFTER");/*_.CITEXPAFTER__V83*/ curfptr[82] = slot; };
+         ;
+         /*_#I__L24*/ curfnum[19] = 
+          ((10) + (/*_#NBCITBFORM__L16*/ curfnum[13]));;
+         /*_.CITLOCMAP__V84*/ curfptr[83] = 
+          (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[25])), (/*_#I__L24*/ curfnum[19])));;
+         MELT_LOCATION("warmelt-normal.melt:4409:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4409:/ newclosure");
+           /*newclosure*/ /*_.LAMBDA___V86*/ curfptr[85] =
+           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (1));
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4409:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V86*/ curfptr[85])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V86*/ curfptr[85])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V86*/ curfptr[85])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]);
+          ;
+          /*_.CITEXPANDER__V85*/ curfptr[84] = /*_.LAMBDA___V86*/ curfptr[85];;}
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:4424:/ locexp");
+         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.CITLOCMAP__V84*/ curfptr[83]), 
+			   (meltobject_ptr_t) (/*_.CITSTATE__V76*/ curfptr[75]), 
+			   (melt_ptr_t)(/*_.CITSTOCC__V80*/ curfptr[79]));}
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4425:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4425:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4425:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_citeration starformals again";
+            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24];
+            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
+            argtab[3].bp_long = 4425;
+            /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V87*/ curfptr[86] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4425:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4425:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4425:/ cppif.else");
+         /*_.IFCPP___V87*/ curfptr[86] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4426:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4426:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4426:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_citeration nsymocctup again";
+            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[24];
+            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
+            argtab[3].bp_long = 4426;
+            /*_.DEBUG_MSG_FUN__V90*/ curfptr[89] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V89*/ curfptr[87] = /*_.DEBUG_MSG_FUN__V90*/ curfptr[89];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4426:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4426:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ curfptr[89] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4426:/ cppif.else");
+         /*_.IFCPP___V89*/ curfptr[87] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-normal.melt:4429:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4429:/ newclosure");
+           /*newclosure*/ /*_.LAMBDA___V92*/ curfptr[91] =
+           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_32*/ curfrout->tabval[32])), (1));
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4429:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V92*/ curfptr[91])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V92*/ curfptr[91])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V92*/ curfptr[91])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]);
+          ;
+          /*_.LAMBDA___V91*/ curfptr[89] = /*_.LAMBDA___V92*/ curfptr[91];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4427:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[2];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4427:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGS__V27*/ curfptr[26];
+          MELT_LOCATION("warmelt-normal.melt:4427:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V91*/ curfptr[89];
+          /*_.MULTIPLE_EVERY_BOTH__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4434:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4434:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4434:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_citeration citlocmap middle";
+            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[24];
+            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
+            argtab[3].bp_long = 4434;
+            /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V94*/ curfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4434:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4434:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4434:/ cppif.else");
+         /*_.IFCPP___V94*/ curfptr[93] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4435:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4435:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L28*/ curfnum[24] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4435:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_citeration citbform again";
+            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[24];
+            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
+            argtab[3].bp_long = 4435;
+            /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V96*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[96];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4435:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[24] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4435:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4435:/ cppif.else");
+         /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-normal.melt:4438:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4438:/ newclosure");
+           /*newclosure*/ /*_.LAMBDA___V99*/ curfptr[98] =
+           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ curfrout->tabval[35])), (2));
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4438:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V99*/ curfptr[98])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ curfptr[98])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ curfptr[98])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]);
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4438:/ putclosedv");
+          /*putclosv*/
+          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V99*/ curfptr[98])) == OBMAG_CLOSURE);
+          melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ curfptr[98])));
+          ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ curfptr[98])->tabval[1] = (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]);
+          ;
+          /*_.LAMBDA___V98*/ curfptr[96] = /*_.LAMBDA___V99*/ curfptr[98];;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4436:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4436:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V98*/ curfptr[96];
+          /*_.MULTIPLE_EVERY__V100*/ curfptr[99] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[33])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4445:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4445:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4445:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_citeration citlocmap done";
+            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[24];
+            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
+            argtab[3].bp_long = 4445;
+            /*_.DEBUG_MSG_FUN__V102*/ curfptr[101] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V101*/ curfptr[100] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[101];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4445:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4445:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[101] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4445:/ cppif.else");
+         /*_.IFCPP___V101*/ curfptr[100] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-normal.melt:4446:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4446:/ apply");
+          /*apply*/{
+           /*_.CHKBEFORE__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)(/*_.CITEXPANDER__V85*/ curfptr[84]), (melt_ptr_t)(/*_.CITEXPBEFORE__V82*/ curfptr[81]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4447:/ apply");
+          /*apply*/{
+           /*_.CHKAFTER__V105*/ curfptr[104] =  melt_apply ((meltclosure_ptr_t)(/*_.CITEXPANDER__V85*/ curfptr[84]), (melt_ptr_t)(/*_.CITEXPAFTER__V83*/ curfptr[82]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+           }
+          ;
+          
+          #if ENABLE_CHECKING
+           MELT_LOCATION("warmelt-normal.melt:4449:/ cppif.then");
+          MELT_LOCATION("warmelt-normal.melt:4449:/ block");
+           /*block*/{
+            /*_#THE_CALLCOUNT__L30*/ curfnum[24] = 
+             callcount;;
+            MELT_LOCATION("warmelt-normal.melt:4449:/ apply");
+            /*apply*/{
+             union meltparam_un argtab[4];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
+             argtab[0].bp_cstring =  "normexp_citeration chkbefore";
+             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
+             argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[24];
+             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
+             argtab[2].bp_cstring =  "warmelt-normal.melt";
+             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
+             argtab[3].bp_long = 4449;
+             /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CHKBEFORE__V104*/ curfptr[103]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            /*_.IFCPP___V106*/ curfptr[105] = /*_.DEBUG_MSG_FUN__V107*/ curfptr[106];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-normal.melt:4449:/ clear");
+            /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[24] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:4449:/ clear");
+            /*clear*/ /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] = 0 ;}
+           
+           #else /*ENABLE_CHECKING*/
+           MELT_LOCATION("warmelt-normal.melt:4449:/ cppif.else");
+          /*_.IFCPP___V106*/ curfptr[105] = (/*nil*/NULL);
+           #endif /*ENABLE_CHECKING*/
+           ;
+          
+          #if ENABLE_CHECKING
+           MELT_LOCATION("warmelt-normal.melt:4450:/ cppif.then");
+          MELT_LOCATION("warmelt-normal.melt:4450:/ block");
+           /*block*/{
+            /*_#THE_CALLCOUNT__L31*/ curfnum[24] = 
+             callcount;;
+            MELT_LOCATION("warmelt-normal.melt:4450:/ apply");
+            /*apply*/{
+             union meltparam_un argtab[4];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
+             argtab[0].bp_cstring =  "normexp_citeration chkafter";
+             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
+             argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[24];
+             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
+             argtab[2].bp_cstring =  "warmelt-normal.melt";
+             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
+             argtab[3].bp_long = 4450;
+             /*_.DEBUG_MSG_FUN__V109*/ curfptr[108] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CHKAFTER__V105*/ curfptr[104]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            /*_.IFCPP___V108*/ curfptr[106] = /*_.DEBUG_MSG_FUN__V109*/ curfptr[108];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-normal.melt:4450:/ clear");
+            /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[24] = 0 ;
+            MELT_LOCATION("warmelt-normal.melt:4450:/ clear");
+            /*clear*/ /*_.DEBUG_MSG_FUN__V109*/ curfptr[108] = 0 ;}
+           
+           #else /*ENABLE_CHECKING*/
+           MELT_LOCATION("warmelt-normal.melt:4450:/ cppif.else");
+          /*_.IFCPP___V108*/ curfptr[106] = (/*nil*/NULL);
+           #endif /*ENABLE_CHECKING*/
+           ;
+          MELT_LOCATION("warmelt-normal.melt:4451:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-normal.melt:4452:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-normal.melt:4452:/ rawallocobj");
+            /*rawallocobj*/ { melt_ptr_t newobj = 0;
+             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[36])), (8), "CLASS_NREP_CITERATION");/*_.INST__V112*/ curfptr[111] =
+             newobj; };
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_CITERATOR", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (1), (/*_.SOPER__V16*/ curfptr[15]), "NCITER_CITERATOR");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_LOCBINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (6), (/*_.NLOCBINDTUP__V53*/ curfptr[52]), "NCITER_LOCBINDINGS");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_CHUNKBEFORE", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (2), (/*_.CHKBEFORE__V104*/ curfptr[103]), "NCITER_CHUNKBEFORE");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (4), (/*_.NBODY__V69*/ curfptr[68]), "NCITER_BODY");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_STATOCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (5), (/*_.CITSTOCC__V80*/ curfptr[79]), "NCITER_STATOCC");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_BODBINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (7), (/*_.NBODBINDINGS__V70*/ curfptr[69]), "NCITER_BODBINDINGS");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NCITER_CHUNKAFTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (3), (/*_.CHKAFTER__V105*/ curfptr[104]), "NCITER_CHUNKAFTER");
+            ;
+            /*_.NCITER__V111*/ curfptr[110] = /*_.INST__V112*/ curfptr[111];;}
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4462:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V113*/ curfptr[112] = slot; };
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4462:/ apply");
+           /*apply*/{
+            /*_.CSYM__V114*/ curfptr[113] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.NAMED_NAME__V113*/ curfptr[112]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+            }
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4463:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-normal.melt:4463:/ rawallocobj");
+            /*rawallocobj*/ { melt_ptr_t newobj = 0;
+             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V116*/ curfptr[115] =
+             newobj; };
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (0), (/*_.CSYM__V114*/ curfptr[113]), "BINDER");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (2), (/*_.NCITER__V111*/ curfptr[110]), "LETBIND_EXPR");
+            ;
+            /*_.CBIND__V115*/ curfptr[114] = /*_.INST__V116*/ curfptr[115];;}
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4468:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-normal.melt:4468:/ rawallocobj");
+            /*rawallocobj*/ { melt_ptr_t newobj = 0;
+             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V118*/ curfptr[117] =
+             newobj; };
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (1), (/*_.CSYM__V114*/ curfptr[113]), "NOCC_SYMB");
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
+            /*putslot*/
+            melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
+            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (3), (/*_.CBIND__V115*/ curfptr[114]), "NOCC_BIND");
+            ;
+            /*_.CLOCC__V117*/ curfptr[116] = /*_.INST__V118*/ curfptr[117];;}
+           ;
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:4474:/ locexp");
+           meltgc_append_list((melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (melt_ptr_t)(/*_.CBIND__V115*/ curfptr[114]));}
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4478:/ block");
+           /*block*/{
+            MELT_LOCATION("warmelt-normal.melt:4478:/ newclosure");
+             /*newclosure*/ /*_.LAMBDA___V120*/ curfptr[119] =
+             meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_38*/ curfrout->tabval[38])), (1));
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4478:/ putclosedv");
+            /*putclosv*/
+            melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V120*/ curfptr[119])) == OBMAG_CLOSURE);
+            melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V120*/ curfptr[119])));
+            ((meltclosure_ptr_t)/*_.LAMBDA___V120*/ curfptr[119])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V22*/ curfptr[21]);
+            ;
+            /*_.LAMBDA___V119*/ curfptr[118] = /*_.LAMBDA___V120*/ curfptr[119];;}
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4476:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[1];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4476:/ apply.arg");
+            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V119*/ curfptr[118];
+            /*_.LIST_EVERY__V121*/ curfptr[120] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[37])), (melt_ptr_t)(/*_.UNCACHELIST__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-normal.melt:4479:/ cppif.then");
+           MELT_LOCATION("warmelt-normal.melt:4479:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L32*/ curfnum[24] = 
+              callcount;;
+             MELT_LOCATION("warmelt-normal.melt:4479:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
+              argtab[0].bp_cstring =  "normexp_citeration nciter";
+              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[24];
+              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-normal.melt";
+              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
+              argtab[3].bp_long = 4479;
+              /*_.DEBUG_MSG_FUN__V123*/ curfptr[122] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCITER__V111*/ curfptr[110]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V122*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V123*/ curfptr[122];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:4479:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[24] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:4479:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V123*/ curfptr[122] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-normal.melt:4479:/ cppif.else");
+           /*_.IFCPP___V122*/ curfptr[121] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-normal.melt:4480:/ cppif.then");
+           MELT_LOCATION("warmelt-normal.melt:4480:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L33*/ curfnum[24] = 
+              callcount;;
+             MELT_LOCATION("warmelt-normal.melt:4480:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
+              argtab[0].bp_cstring =  "normexp_citeration result clocc";
+              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[24];
+              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-normal.melt";
+              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
+              argtab[3].bp_long = 4480;
+              /*_.DEBUG_MSG_FUN__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOCC__V117*/ curfptr[116]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V124*/ curfptr[122] = /*_.DEBUG_MSG_FUN__V125*/ curfptr[124];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:4480:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[24] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:4480:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V125*/ curfptr[124] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-normal.melt:4480:/ cppif.else");
+           /*_.IFCPP___V124*/ curfptr[122] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           
+           #if ENABLE_CHECKING
+            MELT_LOCATION("warmelt-normal.melt:4481:/ cppif.then");
+           MELT_LOCATION("warmelt-normal.melt:4481:/ block");
+            /*block*/{
+             /*_#THE_CALLCOUNT__L34*/ curfnum[24] = 
+              callcount;;
+             MELT_LOCATION("warmelt-normal.melt:4481:/ apply");
+             /*apply*/{
+              union meltparam_un argtab[4];
+              memset(&argtab, 0, sizeof(argtab));
+              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
+              argtab[0].bp_cstring =  "normexp_citeration result nbindings";
+              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
+              argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[24];
+              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
+              argtab[2].bp_cstring =  "warmelt-normal.melt";
+              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
+              argtab[3].bp_long = 4481;
+              /*_.DEBUG_MSG_FUN__V127*/ curfptr[126] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+              }
+             ;
+             /*_.IFCPP___V126*/ curfptr[124] = /*_.DEBUG_MSG_FUN__V127*/ curfptr[126];;
+             /*epilog*/
+             MELT_LOCATION("warmelt-normal.melt:4481:/ clear");
+             /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[24] = 0 ;
+             MELT_LOCATION("warmelt-normal.melt:4481:/ clear");
+             /*clear*/ /*_.DEBUG_MSG_FUN__V127*/ curfptr[126] = 0 ;}
+            
+            #else /*ENABLE_CHECKING*/
+            MELT_LOCATION("warmelt-normal.melt:4481:/ cppif.else");
+           /*_.IFCPP___V126*/ curfptr[124] = (/*nil*/NULL);
+            #endif /*ENABLE_CHECKING*/
+            ;
+           MELT_LOCATION("warmelt-normal.melt:4482:/ block");
+           /*block*/{
+            /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V117*/ curfptr[116];;
+            MELT_LOCATION("warmelt-normal.melt:4482:/ putxtraresult");
+            if (!xrestab_ || !xresdescr_) goto labend_rout;
+            if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+            if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDINGS__V28*/ curfptr[27]);
+            ;
+            MELT_LOCATION("warmelt-normal.melt:4482:/ finalreturn");
+            ;
+            /*finalret*/ goto labend_rout ;}
+           ;
+           /*_.LET___V110*/ curfptr[108] = /*_.RETURN___V128*/ curfptr[126];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.NCITER__V111*/ curfptr[110] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.NAMED_NAME__V113*/ curfptr[112] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.CSYM__V114*/ curfptr[113] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.CBIND__V115*/ curfptr[114] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.CLOCC__V117*/ curfptr[116] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.LAMBDA___V119*/ curfptr[118] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.LIST_EVERY__V121*/ curfptr[120] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.IFCPP___V122*/ curfptr[121] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.IFCPP___V124*/ curfptr[122] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.IFCPP___V126*/ curfptr[124] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
+           /*clear*/ /*_.RETURN___V128*/ curfptr[126] = 0 ;}
+          ;
+          /*_.LET___V103*/ curfptr[101] = /*_.LET___V110*/ curfptr[108];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
+          /*clear*/ /*_.CHKBEFORE__V104*/ curfptr[103] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
+          /*clear*/ /*_.CHKAFTER__V105*/ curfptr[104] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
+          /*clear*/ /*_.IFCPP___V106*/ curfptr[105] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
+          /*clear*/ /*_.IFCPP___V108*/ curfptr[106] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
+          /*clear*/ /*_.LET___V110*/ curfptr[108] = 0 ;}
+         ;
+         /*_.LET___V75*/ curfptr[73] = /*_.LET___V103*/ curfptr[101];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITSTATE__V76*/ curfptr[75] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITSTSYM__V77*/ curfptr[76] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITSTBIND__V78*/ curfptr[77] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITSTOCC__V80*/ curfptr[79] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITEXPBEFORE__V82*/ curfptr[81] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITEXPAFTER__V83*/ curfptr[82] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_#I__L24*/ curfnum[19] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITLOCMAP__V84*/ curfptr[83] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.CITEXPANDER__V85*/ curfptr[84] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.IFCPP___V87*/ curfptr[86] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.IFCPP___V89*/ curfptr[87] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.LAMBDA___V91*/ curfptr[89] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V93*/ curfptr[92] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.IFCPP___V94*/ curfptr[93] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.LAMBDA___V98*/ curfptr[96] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.MULTIPLE_EVERY__V100*/ curfptr[99] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.IFCPP___V101*/ curfptr[100] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
+         /*clear*/ /*_.LET___V103*/ curfptr[101] = 0 ;}
+        ;
+        /*_.MULTI___V68*/ curfptr[66] = /*_.LET___V75*/ curfptr[73];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
+        /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
+        /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
+        /*clear*/ /*_.LET___V75*/ curfptr[73] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
+       /*clear*/ /*_.NBODBINDINGS__V70*/ curfptr[69] = 0 ;}
+      ;
+      /*_.LET___V51*/ curfptr[49] = /*_.MULTI___V68*/ curfptr[66];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.CITBFORM__V52*/ curfptr[51] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_#NBCITBFORM__L16*/ curfnum[13] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.NLOCBINDTUP__V53*/ curfptr[52] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.NSYMOCCTUP__V54*/ curfptr[53] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.IF___V57*/ curfptr[55] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.LAMBDA___V61*/ curfptr[57] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V63*/ curfptr[59] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.IFCPP___V66*/ curfptr[64] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
+      /*clear*/ /*_.MULTI___V68*/ curfptr[66] = 0 ;}
+     ;
+     /*_.LET___V36*/ curfptr[34] = /*_.LET___V51*/ curfptr[49];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.STARFORMALS__V37*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.IF___V40*/ curfptr[38] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.LAMBDA___V44*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V46*/ curfptr[42] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
+     /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;}
+    ;
+    /*_.MULTI___V26*/ curfptr[24] = /*_.LET___V36*/ curfptr[34];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
+    /*clear*/ /*_#NULL__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
+    /*clear*/ /*_.IF___V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
+    /*clear*/ /*_.IFCPP___V32*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
+    /*clear*/ /*_.IFCPP___V34*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
+    /*clear*/ /*_.LET___V36*/ curfptr[34] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
+   /*clear*/ /*_.NBINDINGS__V28*/ curfptr[27] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V26*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.SOPER__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.SARGS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.SVBIND__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.SBODY__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.NBNDTUP__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.BODYENV__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.SYCMAP__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.UNCACHELIST__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
+  /*clear*/ /*_.MULTI___V26*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4276:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:4276:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_CITERATION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_121_warmelt_normal_NORMEXP_CITERATION*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_122_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_122_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4309:/ getarg");
+ /*_.CURNARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4309:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CURFORB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4309:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4309:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4310:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4310:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4310:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration curnarg";
+    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
+    argtab[3].bp_long = 4310;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4310:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4310:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4310:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4311:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4311:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4311:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration curforb";
+    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
+    argtab[3].bp_long = 4311;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4311:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4311:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4311:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4312:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4312:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4312:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4312:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4312:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4312:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4312:/ locexp");
+      melt_assert_failed(( "check curforb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4312)?(4312):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4312:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4312:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4312:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4313:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4313:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4313:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+   /*_.CURCTYP__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4314:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FORMCTYP__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4315:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 0, "BINDER");/*_.FORMARG__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#__L5*/ curfnum[1] = 
+   ((/*_.CURCTYP__V10*/ curfptr[8]) == (/*_.FORMCTYP__V11*/ curfptr[10]));;
+  MELT_LOCATION("warmelt-normal.melt:4317:/ cond");
+  /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4317:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4317:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4318:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4318:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4318:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[3])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V14*/ curfptr[13] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), ((/*~SLOC*/ curfclos->tabval[1])), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (0), (/*_.FORMARG__V12*/ curfptr[11]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), (/*_.CURCTYP__V10*/ curfptr[8]), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), (/*_.CURNARG__V2*/ curfptr[1]), "LETBIND_EXPR");
+      ;
+      /*_.NLBIND__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4324:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)((/*~NBNDTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NLBIND__V13*/ curfptr[12]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4318:/ clear");
+     /*clear*/ /*_.NLBIND__V13*/ curfptr[12] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4317:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:4317:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4327:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~SOPER*/ curfclos->tabval[3])), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[12] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:4327:/ locexp");
+    melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "start formal and actual type mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[12]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4328:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMARG__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:4328:/ locexp");
+    melt_inform_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "mismatched citerator start formal argument"), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4326:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4317:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4317:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
+  /*clear*/ /*_.CURCTYP__V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
+  /*clear*/ /*_.FORMCTYP__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
+  /*clear*/ /*_.FORMARG__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
+  /*clear*/ /*_#__L5*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4309:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4309:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4309:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_122_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_123_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_123_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4346:/ getarg");
+ /*_.CURVBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4346:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CURBFORM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4346:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4346:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4347:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4347:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4347:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration curvbind";
+    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
+    argtab[3].bp_long = 4347;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4347:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4347:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4347:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4348:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4348:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4348:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration curbform";
+    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
+    argtab[3].bp_long = 4348;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4348:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4348:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4348:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4349:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4349:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4349:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4349:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4349:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4349:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4349:/ locexp");
+      melt_assert_failed(( "check curvbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4349)?(4349):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4349:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4349:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4349:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4350:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4350:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4350:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4350:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4350:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4350:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4350:/ locexp");
+      melt_assert_failed(( "check curbform"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4350)?(4350):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4350:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4350:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4350:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4351:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4351:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.CURVSYM__V12*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4352:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CURCTYP__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4353:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 0, "BINDER");/*_.CURVFOR__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4355:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V15*/ curfptr[14] = slot; };
+  ;
+  /*_#__L6*/ curfnum[1] = 
+   ((/*_.CURCTYP__V13*/ curfptr[12]) == (/*_.FBIND_TYPE__V15*/ curfptr[14]));;
+  MELT_LOCATION("warmelt-normal.melt:4355:/ cond");
+  /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4355:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4355:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4356:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4356:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4356:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[2])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V17*/ curfptr[16] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), ((/*~SLOC*/ curfclos->tabval[0])), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.CURVSYM__V12*/ curfptr[10]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.CURCTYP__V13*/ curfptr[12]), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
+      ;
+      /*_.NLVBIND__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4362:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4362:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V19*/ curfptr[18] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), ((/*~SLOC*/ curfclos->tabval[0])), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURCTYP__V13*/ curfptr[12]), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.CURVSYM__V12*/ curfptr[10]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.NLVBIND__V16*/ curfptr[15]), "NOCC_BIND");
+      ;
+      /*_.CLOCC__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4368:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)((/*~NLOCBINDTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NLVBIND__V16*/ curfptr[15]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4369:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.CLOCC__V18*/ curfptr[17]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:4370:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:4370:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:4370:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_citeration nlvbind";
+        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
+        argtab[3].bp_long = 4370;
+        /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLVBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4370:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4370:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:4370:/ cppif.else");
+     /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4375:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[3])), 
+			   (meltobject_ptr_t) (/*_.CURVSYM__V12*/ curfptr[10]), 
+			   (melt_ptr_t)(/*_.CLOCC__V18*/ curfptr[17]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4376:/ locexp");
+     meltgc_append_list((melt_ptr_t)((/*~UNCACHELIST*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.CURVSYM__V12*/ curfptr[10]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4356:/ clear");
+     /*clear*/ /*_.NLVBIND__V16*/ curfptr[15] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4356:/ clear");
+     /*clear*/ /*_.CLOCC__V18*/ curfptr[17] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4356:/ clear");
+     /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4355:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:4355:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4379:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~SOPER*/ curfclos->tabval[5])), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[20] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:4379:/ locexp");
+    melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "local formal and actual type mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V22*/ curfptr[20]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4381:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[15] = slot; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4381:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V23*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[17] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:4380:/ locexp");
+    melt_inform_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "mismatched citerator local variable"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[17]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4378:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4355:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4355:/ clear");
+    /*clear*/ /*_.BINDER__V23*/ curfptr[15] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4355:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[17] = 0 ;}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
+  /*clear*/ /*_.CURVSYM__V12*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
+  /*clear*/ /*_.CURCTYP__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
+  /*clear*/ /*_.CURVFOR__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
+  /*clear*/ /*_.FBIND_TYPE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
+  /*clear*/ /*_#__L6*/ curfnum[1] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4384:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:4384:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVBIND__V2*/ curfptr[1];
+  /*_.PUT_ENV__V25*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[4])), (melt_ptr_t)((/*~BODYENV*/ curfclos->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4346:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V25*/ curfptr[19];;
+  MELT_LOCATION("warmelt-normal.melt:4346:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
+ /*clear*/ /*_.PUT_ENV__V25*/ curfptr[19] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_123_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_124_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_124_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4409:/ getarg");
+ /*_.XTUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4409:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4410:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4410:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4410:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration expanding xtup";
+    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
+    argtab[3].bp_long = 4410;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4410:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4410:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4410:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4413:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4413:/ newclosure");
+   /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] =
+   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1));
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4413:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (melt_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0]));
+  ;
+  /*_.LAMBDA___V5*/ curfptr[3] = /*_.LAMBDA___V6*/ curfptr[5];;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4411:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-normal.melt:4411:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[3];
+  /*_.MULTIPLE_MAP__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4409:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V7*/ curfptr[6];;
+  MELT_LOCATION("warmelt-normal.melt:4409:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4409:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4409:/ clear");
+ /*clear*/ /*_.LAMBDA___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4409:/ clear");
+ /*clear*/ /*_.MULTIPLE_MAP__V7*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_124_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_125_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_125_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4413:/ getarg");
+ /*_.CURELEM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4413:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4413:/ block");
+/*block*/{
+ /*_#IS_A__L2*/ curfnum[1] = 
+  melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-normal.melt:4414:/ cond");
+ /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:4414:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:4414:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4415:/ block");
+   /*block*/{
+    /*_.EXELEM__V5*/ curfptr[4] = 
+     melt_get_mapobjects((meltmapobjects_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]));;
+    /*_#NULL__L3*/ curfnum[2] = 
+     ((/*_.EXELEM__V5*/ curfptr[4]) == NULL);;
+    MELT_LOCATION("warmelt-normal.melt:4416:/ cond");
+    /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4416:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:4416:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4417:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4417:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:4417:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_citeration bad curelem";
+         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
+         argtab[3].bp_long = 4417;
+         /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4417:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4417:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4417:/ cppif.else");
+      /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.IF___V6*/ curfptr[5] = /*_.IFCPP___V7*/ curfptr[6];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4416:/ clear");
+      /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:4416:/ cond.else");
+    
+     /*_.IF___V6*/ curfptr[5] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:4418:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:4418:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4418:/ cond");
+      /*cond*/ if (/*_.EXELEM__V5*/ curfptr[4]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:4418:/ cond.then");
+      /*_.IFELSE___V10*/ curfptr[6] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:4418:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:4418:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:4418:/ locexp");
+         melt_assert_failed(( "check exelem in citeration"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4418)?(4418):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[6];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4418:/ clear");
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:4418:/ cppif.else");
+    /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V4*/ curfptr[3] = /*_.EXELEM__V5*/ curfptr[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
+    /*clear*/ /*_.EXELEM__V5*/ curfptr[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
+    /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
+    /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
+    /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+   ;
+   /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4414:/ clear");
+   /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-normal.melt:4414:/ cond.else");
+ 
+  /*_.IFELSE___V3*/ curfptr[2] = /*_.CURELEM__V2*/ curfptr[1];;
+  }
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4413:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-normal.melt:4413:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4413:/ clear");
+ /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4413:/ clear");
+ /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_125_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_126_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_126_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4429:/ getarg");
+ /*_.CURVLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4429:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CURNARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4429:/ getarg");
+ if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4429:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4430:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4430:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4430:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration curvloc";
+    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
+    argtab[3].bp_long = 4430;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4430:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4430:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4430:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4431:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4431:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4431:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_citeration curnarg";
+    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
+    argtab[3].bp_long = 4431;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4431:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4431:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4431:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4432:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V8*/ curfptr[6] = slot; };
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:4432:/ locexp");
+ meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), 
+			   (meltobject_ptr_t) (/*_.BINDER__V8*/ curfptr[6]), 
+			   (melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4429:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4429:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4429:/ clear");
+ /*clear*/ /*_.BINDER__V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_126_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_127_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_127_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4438:/ getarg");
+ /*_.CURFORMB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4438:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4438:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4439:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4439:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4439:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4439:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4439:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4439:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4439:/ locexp");
+      melt_assert_failed(( "check curform"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4439)?(4439):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4439:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4439:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4439:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4441:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; };
+ ;
+ /*_.MULTIPLE_NTH__V6*/ curfptr[5] = 
+  (melt_multiple_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0])));;
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:4440:/ locexp");
+ meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), 
+			   (meltobject_ptr_t) (/*_.BINDER__V5*/ curfptr[3]), 
+			   (melt_ptr_t)(/*_.MULTIPLE_NTH__V6*/ curfptr[5]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4438:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4438:/ clear");
+ /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4438:/ clear");
+ /*clear*/ /*_.MULTIPLE_NTH__V6*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_127_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_128_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_128_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4478:/ getarg");
+ /*_.CSY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4478:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-normal.melt:4478:/ locexp");
+ meltgc_remove_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), 
+			      (meltobject_ptr_t)(/*_.CSY__V2*/ curfptr[1]));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_128_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 90
+  void* varptr[90];
+#define CURFRAM_NBVARNUM 33
+  long varnum[33];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<90; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 90;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFCMATCHER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4495:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4496:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4496:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4496:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4496:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4496:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4496:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4496:/ locexp");
+      melt_assert_failed(( "check defcmatcher recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4496)?(4496):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4496:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4496:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4496:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4497:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4497:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4497:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4497:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4497:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4497:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4497:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4497)?(4497):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4497:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4497:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4497:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4498:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4498:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4498:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4498:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4498:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4498:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4498:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4498)?(4498):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4498:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4498:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4498:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4499:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4499:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4499:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_defcmatcher recv";
+    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
+    argtab[3].bp_long = 4499;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4499:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4499:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4499:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4500:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4500:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4501:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4502:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4503:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4503:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCMATDEF_CMATCHER");/*_.CM__V19*/ curfptr[18] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4504:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4504:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:4504:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_defcmatcher cmatcher";
+      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
+      argtab[3].bp_long = 4504;
+      /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CM__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4504:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4504:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4504:/ cppif.else");
+   /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4505:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4505:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CM__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[4])));;
+     MELT_LOCATION("warmelt-normal.melt:4505:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4505:/ cond.then");
+     /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4505:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4505:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4505:/ locexp");
+        melt_assert_failed(( "check cmatcher"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4505)?(4505):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V22*/ curfptr[20] = /*_.IFELSE___V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4505:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4505:/ clear");
+     /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4505:/ cppif.else");
+   /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V18*/ curfptr[17] = /*_.CM__V19*/ curfptr[18];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4503:/ clear");
+   /*clear*/ /*_.CM__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4503:/ clear");
+   /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4503:/ clear");
+   /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;}
+  ;
+  /*_.CMATCHER__V24*/ curfptr[22] = /*_.LET___V18*/ curfptr[17];;
+  MELT_LOCATION("warmelt-normal.melt:4507:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4507:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4507:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
+    /*_.B__V26*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4508:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4508:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:4508:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_defcmatcher cmbind";
+      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
+      argtab[3].bp_long = 4508;
+      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.B__V26*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V27*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4508:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4508:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4508:/ cppif.else");
+   /*_.IFCPP___V27*/ curfptr[20] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4509:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4509:/ block");
+    /*block*/{
+     /*_#IS_A__L8*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.B__V26*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ curfrout->tabval[6])));;
+     MELT_LOCATION("warmelt-normal.melt:4509:/ cond");
+     /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4509:/ cond.then");
+     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4509:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4509:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4509:/ locexp");
+        melt_assert_failed(( "check cmbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4509)?(4509):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4509:/ clear");
+     /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4509:/ clear");
+     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4509:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V25*/ curfptr[18] = /*_.B__V26*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4507:/ clear");
+   /*clear*/ /*_.B__V26*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4507:/ clear");
+   /*clear*/ /*_.IFCPP___V27*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4507:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;}
+  ;
+  /*_.CMBIND__V31*/ curfptr[29] = /*_.LET___V25*/ curfptr[18];;
+  /*_#OBJECT_LENGTH__L9*/ curfnum[0] = 
+   ((long)melt_object_length((melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22])));;
+  /*_.SLOTUP__V32*/ curfptr[19] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#OBJECT_LENGTH__L9*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-normal.melt:4512:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 2, "AMATCH_IN");/*_.INSCMA__V33*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4513:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 3, "AMATCH_MATCHBIND");/*_.MBICMA__V34*/ curfptr[27] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4514:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 4, "AMATCH_OUT");/*_.OUTSCMA__V35*/ curfptr[34] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4515:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 5, "CMATCH_STATE");/*_.STATCMA__V36*/ curfptr[35] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4516:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 6, "CMATCH_EXPTEST");/*_.TESTCMA__V37*/ curfptr[36] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4517:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 7, "CMATCH_EXPFILL");/*_.FILLCMA__V38*/ curfptr[37] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4518:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 8, "CMATCH_EXPOPER");/*_.OPERCMA__V39*/ curfptr[38] = slot; };
+  ;
+  /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20])));;
+  /*_.INSTUP__V40*/ curfptr[39] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L10*/ curfnum[9])));;
+  /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34])));;
+  /*_.OUTSTUP__V41*/ curfptr[40] = 
+   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10])));;
+  MELT_LOCATION("warmelt-normal.melt:4521:/ cond");
+  /*cond*/ if (/*_.TESTCMA__V37*/ curfptr[36]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4521:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4521:/ block");
+   /*block*/{
+    /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36])));;
+    /*_.MAKE_MULTIPLE__V43*/ curfptr[42] = 
+     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11])));;
+    /*_.TESTTUP__V42*/ curfptr[41] = /*_.MAKE_MULTIPLE__V43*/ curfptr[42];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4521:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4521:/ clear");
+    /*clear*/ /*_.MAKE_MULTIPLE__V43*/ curfptr[42] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4521:/ cond.else");
+  
+   /*_.TESTTUP__V42*/ curfptr[41] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4522:/ cond");
+  /*cond*/ if (/*_.FILLCMA__V38*/ curfptr[37]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4522:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4522:/ block");
+   /*block*/{
+    /*_#MULTIPLE_LENGTH__L13*/ curfnum[11] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37])));;
+    /*_.MAKE_MULTIPLE__V45*/ curfptr[44] = 
+     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L13*/ curfnum[11])));;
+    /*_.FILLTUP__V44*/ curfptr[42] = /*_.MAKE_MULTIPLE__V45*/ curfptr[44];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4522:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4522:/ clear");
+    /*clear*/ /*_.MAKE_MULTIPLE__V45*/ curfptr[44] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4522:/ cond.else");
+  
+   /*_.FILLTUP__V44*/ curfptr[42] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4523:/ cond");
+  /*cond*/ if (/*_.OPERCMA__V39*/ curfptr[38]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4523:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4523:/ block");
+   /*block*/{
+    /*_#MULTIPLE_LENGTH__L14*/ curfnum[11] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38])));;
+    /*_.MAKE_MULTIPLE__V47*/ curfptr[46] = 
+     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L14*/ curfnum[11])));;
+    /*_.OPERTUP__V46*/ curfptr[44] = /*_.MAKE_MULTIPLE__V47*/ curfptr[46];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4523:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L14*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4523:/ clear");
+    /*clear*/ /*_.MAKE_MULTIPLE__V47*/ curfptr[46] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4523:/ cond.else");
+  
+   /*_.OPERTUP__V46*/ curfptr[44] = NULL;;
+   }
+  ;
+  /*_#MULTIPLE_LENGTH__L15*/ curfnum[11] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20])));;
+  /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34])));;
+  /*_#I__L17*/ curfnum[16] = 
+   ((/*_#MULTIPLE_LENGTH__L15*/ curfnum[11]) + (/*_#MULTIPLE_LENGTH__L16*/ curfnum[15]));;
+  /*_#I__L18*/ curfnum[17] = 
+   ((/*_#I__L17*/ curfnum[16]) * (2));;
+  /*_#I__L19*/ curfnum[18] = 
+   ((5) + (/*_#I__L18*/ curfnum[17]));;
+  /*_.FORMSYMBMAP__V48*/ curfptr[46] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[8])), (/*_#I__L19*/ curfnum[18])));;
+  MELT_LOCATION("warmelt-normal.melt:4529:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg");
+   argtab[2].bp_cstring =  "discr_string";
+   /*_.NORMAL_PREDEF__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4530:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4527:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4527:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[9])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V52*/ curfptr[51] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.NORMAL_PREDEF__V49*/ curfptr[48]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (5), (/*_.NAMED_NAME__V50*/ curfptr[49]), "NSTR_STRING");
+   ;
+   /*_.NAMSTRDATA__V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4534:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg");
+   argtab[2].bp_cstring =  "class_cmatcher";
+   /*_.NORMAL_PREDEF__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#OBJ_HASH__L20*/ curfnum[19] = 
+   (melt_obj_hash((melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22])));;
+  /*_.MAKE_INTEGERBOX__V54*/ curfptr[53] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (/*_#OBJ_HASH__L20*/ curfnum[19])));;
+  MELT_LOCATION("warmelt-normal.melt:4531:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4531:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[12])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V56*/ curfptr[55] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.NORMAL_PREDEF__V53*/ curfptr[52]), "NDATA_DISCRX");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (7), (/*_.MAKE_INTEGERBOX__V54*/ curfptr[53]), "NINST_HASH");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (8), (/*_.SLOTUP__V32*/ curfptr[19]), "NINST_SLOTS");
+   ;
+   /*_.INSDATA__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4539:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4539:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V55*/ curfptr[54];
+   /*_.ADD_NCTX_DATA__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4540:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4540:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V51*/ curfptr[50];
+   /*_.ADD_NCTX_DATA__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#GET_INT__L21*/ curfnum[20] = 
+   (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[15]))));;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:4542:/ locexp");
+  meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L21*/ curfnum[20]), (melt_ptr_t)(/*_.NAMSTRDATA__V51*/ curfptr[50]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4544:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[5];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUP__V40*/ curfptr[39];
+   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46];
+   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   /*_.FILL_NORMAL_FORMALS__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4545:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4548:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_multiple";
+    /*_.NORMAL_PREDEF__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4545:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4545:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V62*/ curfptr[61] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (2), (/*_.NORMAL_PREDEF__V60*/ curfptr[59]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (5), (/*_.INSTUP__V40*/ curfptr[39]), "NTUP_COMP");
+    ;
+    /*_.INSTUPDATA__V61*/ curfptr[60] = /*_.INST__V62*/ curfptr[61];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4551:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4551:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V61*/ curfptr[60];
+    /*_.ADD_NCTX_DATA__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L22*/ curfnum[21] = 
+    (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ curfrout->tabval[18]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4552:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L22*/ curfnum[21]), (melt_ptr_t)(/*_.INSTUPDATA__V61*/ curfptr[60]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V60*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
+   /*clear*/ /*_.INSTUPDATA__V61*/ curfptr[60] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V63*/ curfptr[62] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
+   /*clear*/ /*_#GET_INT__L22*/ curfnum[21] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4556:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4556:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46];
+    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
+    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    /*_.MBDATA__V64*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.MBICMA__V34*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L23*/ curfnum[21] = 
+    (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ curfrout->tabval[20]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4557:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L23*/ curfnum[21]), (melt_ptr_t)(/*_.MBDATA__V64*/ curfptr[59]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4556:/ clear");
+   /*clear*/ /*_.MBDATA__V64*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4556:/ clear");
+   /*clear*/ /*_#GET_INT__L23*/ curfnum[21] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4561:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[5];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUP__V41*/ curfptr[40];
+   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46];
+   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
+   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
+   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   /*_.FILL_NORMAL_FORMALS__V65*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4562:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4565:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_multiple";
+    /*_.NORMAL_PREDEF__V66*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4562:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4562:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V68*/ curfptr[67] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.NORMAL_PREDEF__V66*/ curfptr[62]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (5), (/*_.OUTSTUP__V41*/ curfptr[40]), "NTUP_COMP");
+    ;
+    /*_.OUTSTUPDATA__V67*/ curfptr[59] = /*_.INST__V68*/ curfptr[67];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4568:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4568:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V67*/ curfptr[59];
+    /*_.ADD_NCTX_DATA__V69*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L24*/ curfnum[21] = 
+    (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ curfrout->tabval[21]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4569:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L24*/ curfnum[21]), (melt_ptr_t)(/*_.OUTSTUPDATA__V67*/ curfptr[59]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V66*/ curfptr[62] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
+   /*clear*/ /*_.OUTSTUPDATA__V67*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V69*/ curfptr[68] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
+   /*clear*/ /*_#GET_INT__L24*/ curfnum[21] = 0 ;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4573:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4573:/ block");
+   /*block*/{
+    /*_#IS_A__L25*/ curfnum[21] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.STATCMA__V36*/ curfptr[35]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[22])));;
+    MELT_LOCATION("warmelt-normal.melt:4573:/ cond");
+    /*cond*/ if (/*_#IS_A__L25*/ curfnum[21]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4573:/ cond.then");
+    /*_.IFELSE___V71*/ curfptr[59] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4573:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4573:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4573:/ locexp");
+       melt_assert_failed(( "check statcma"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4573)?(4573):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V71*/ curfptr[59] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V70*/ curfptr[62] = /*_.IFELSE___V71*/ curfptr[59];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4573:/ clear");
+    /*clear*/ /*_#IS_A__L25*/ curfnum[21] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4573:/ clear");
+    /*clear*/ /*_.IFELSE___V71*/ curfptr[59] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4573:/ cppif.else");
+  /*_.IFCPP___V70*/ curfptr[62] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4574:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4574:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4574:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4574:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    /*_.NSTATCMADATA__V72*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.STATCMA__V36*/ curfptr[35]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#GET_INT__L26*/ curfnum[21] = 
+    (melt_get_int((melt_ptr_t)((/*!CMATCH_STATE*/ curfrout->tabval[24]))));;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:4575:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L26*/ curfnum[21]), (melt_ptr_t)(/*_.NSTATCMADATA__V72*/ curfptr[68]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4574:/ clear");
+   /*clear*/ /*_.NSTATCMADATA__V72*/ curfptr[68] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4574:/ clear");
+   /*clear*/ /*_#GET_INT__L26*/ curfnum[21] = 0 ;}
+  ;
+  /*_#IS_MULTIPLE__L27*/ curfnum[21] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36])) == OBMAG_MULTIPLE);;
+  MELT_LOCATION("warmelt-normal.melt:4579:/ cond");
+  /*cond*/ if (/*_#IS_MULTIPLE__L27*/ curfnum[21]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4579:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4579:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4581:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.TESTTUP__V42*/ curfptr[41];
+     MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     /*_.FILL_NORMAL_EXPANSION__V73*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4582:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4585:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg");
+      argtab[2].bp_cstring =  "discr_multiple";
+      /*_.NORMAL_PREDEF__V74*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4582:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4582:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V76*/ curfptr[75] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.NORMAL_PREDEF__V74*/ curfptr[68]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (5), (/*_.TESTTUP__V42*/ curfptr[41]), "NTUP_COMP");
+      ;
+      /*_.NTESTTUPDATA__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4588:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4588:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NTESTTUPDATA__V75*/ curfptr[74];
+      /*_.ADD_NCTX_DATA__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_#GET_INT__L28*/ curfnum[27] = 
+      (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPTEST*/ curfrout->tabval[26]))));;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4589:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L28*/ curfnum[27]), (melt_ptr_t)(/*_.NTESTTUPDATA__V75*/ curfptr[74]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V74*/ curfptr[68] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
+     /*clear*/ /*_.NTESTTUPDATA__V75*/ curfptr[74] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
+     /*clear*/ /*_#GET_INT__L28*/ curfnum[27] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4580:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4579:/ clear");
+    /*clear*/ /*_.FILL_NORMAL_EXPANSION__V73*/ curfptr[59] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_MULTIPLE__L29*/ curfnum[27] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37])) == OBMAG_MULTIPLE);;
+  MELT_LOCATION("warmelt-normal.melt:4593:/ cond");
+  /*cond*/ if (/*_#IS_MULTIPLE__L29*/ curfnum[27]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4593:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4593:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4595:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FILLTUP__V44*/ curfptr[42];
+     MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     /*_.FILL_NORMAL_EXPANSION__V78*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4596:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4599:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg");
+      argtab[2].bp_cstring =  "discr_multiple";
+      /*_.NORMAL_PREDEF__V79*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4596:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4596:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V81*/ curfptr[59] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (2), (/*_.NORMAL_PREDEF__V79*/ curfptr[74]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (5), (/*_.FILLTUP__V44*/ curfptr[42]), "NTUP_COMP");
+      ;
+      /*_.NFILLTUPDATA__V80*/ curfptr[76] = /*_.INST__V81*/ curfptr[59];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4602:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4602:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFILLTUPDATA__V80*/ curfptr[76];
+      /*_.ADD_NCTX_DATA__V82*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_#GET_INT__L30*/ curfnum[29] = 
+      (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPFILL*/ curfrout->tabval[27]))));;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4603:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L30*/ curfnum[29]), (melt_ptr_t)(/*_.NFILLTUPDATA__V80*/ curfptr[76]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V79*/ curfptr[74] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
+     /*clear*/ /*_.NFILLTUPDATA__V80*/ curfptr[76] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V82*/ curfptr[81] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
+     /*clear*/ /*_#GET_INT__L30*/ curfnum[29] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4594:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4593:/ clear");
+    /*clear*/ /*_.FILL_NORMAL_EXPANSION__V78*/ curfptr[68] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_MULTIPLE__L31*/ curfnum[29] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38])) == OBMAG_MULTIPLE);;
+  MELT_LOCATION("warmelt-normal.melt:4607:/ cond");
+  /*cond*/ if (/*_#IS_MULTIPLE__L31*/ curfnum[29]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4607:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4607:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4609:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OPERTUP__V46*/ curfptr[44];
+     MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     /*_.FILL_NORMAL_EXPANSION__V83*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4610:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4613:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg");
+      argtab[2].bp_cstring =  "discr_multiple";
+      /*_.NORMAL_PREDEF__V84*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4610:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4610:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V86*/ curfptr[68] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (2), (/*_.NORMAL_PREDEF__V84*/ curfptr[76]), "NDATA_DISCRX");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (5), (/*_.OPERTUP__V46*/ curfptr[44]), "NTUP_COMP");
+      ;
+      /*_.NOPERTUPDATA__V85*/ curfptr[81] = /*_.INST__V86*/ curfptr[68];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4616:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4616:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOPERTUPDATA__V85*/ curfptr[81];
+      /*_.ADD_NCTX_DATA__V87*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_#GET_INT__L32*/ curfnum[31] = 
+      (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPOPER*/ curfrout->tabval[28]))));;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4617:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L32*/ curfnum[31]), (melt_ptr_t)(/*_.NOPERTUPDATA__V85*/ curfptr[81]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
+     /*clear*/ /*_.NORMAL_PREDEF__V84*/ curfptr[76] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
+     /*clear*/ /*_.NOPERTUPDATA__V85*/ curfptr[81] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
+     /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
+     /*clear*/ /*_#GET_INT__L32*/ curfnum[31] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4608:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4607:/ clear");
+    /*clear*/ /*_.FILL_NORMAL_EXPANSION__V83*/ curfptr[74] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4621:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4621:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.CMBIND__V31*/ curfptr[29])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.CMBIND__V31*/ curfptr[29]), (1), (/*_.INSDATA__V55*/ curfptr[54]), "FIXBIND_DATA");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4621:/ touch");
+   meltgc_touch(/*_.CMBIND__V31*/ curfptr[29]);
+   ;
+   /*epilog*/}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4623:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4623:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:4623:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_defcmatcher return insdata";
+     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[31];
+     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
+     argtab[3].bp_long = 4623;
+     /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V88*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[81];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4623:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4623:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4623:/ cppif.else");
+  /*_.IFCPP___V88*/ curfptr[76] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4624:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V55*/ curfptr[54];;
+   MELT_LOCATION("warmelt-normal.melt:4624:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V90*/ curfptr[86];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.LET___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.CMATCHER__V24*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.CMBIND__V31*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#OBJECT_LENGTH__L9*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.SLOTUP__V32*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.INSCMA__V33*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.MBICMA__V34*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.OUTSCMA__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.STATCMA__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.TESTCMA__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.FILLCMA__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.OPERCMA__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.INSTUP__V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.OUTSTUP__V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.TESTTUP__V42*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.FILLTUP__V44*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.OPERTUP__V46*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ curfnum[11] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.FORMSYMBMAP__V48*/ curfptr[46] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V49*/ curfptr[48] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.NAMSTRDATA__V51*/ curfptr[50] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.NORMAL_PREDEF__V53*/ curfptr[52] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#OBJ_HASH__L20*/ curfnum[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V54*/ curfptr[53] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.INSDATA__V55*/ curfptr[54] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V57*/ curfptr[56] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.ADD_NCTX_DATA__V58*/ curfptr[57] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#GET_INT__L21*/ curfnum[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_FORMALS__V59*/ curfptr[58] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.FILL_NORMAL_FORMALS__V65*/ curfptr[60] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.IFCPP___V70*/ curfptr[62] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#IS_MULTIPLE__L27*/ curfnum[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#IS_MULTIPLE__L29*/ curfnum[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_#IS_MULTIPLE__L31*/ curfnum[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.IFCPP___V88*/ curfptr[76] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
+  /*clear*/ /*_.RETURN___V90*/ curfptr[86] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4495:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:4495:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFCMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 96
+  void* varptr[96];
+#define CURFRAM_NBVARNUM 34
+  long varnum[34];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<96; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 96;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFUNMATCHER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4633:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4634:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4634:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4634:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_defunmatcher start recv";
+    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
+    argtab[3].bp_long = 4634;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4634:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4634:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4634:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4635:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4635:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUNMATCHER*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4635:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4635:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4635:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4635:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4635:/ locexp");
+      melt_assert_failed(( "normexp_defunmatcher check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4635)?(4635):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4635:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4635:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4635:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4636:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4636:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4636:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4636:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4636:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4636:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4636:/ locexp");
+      melt_assert_failed(( "normexp_defunmatcher check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4636)?(4636):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4636:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4636:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4636:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4637:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4637:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-normal.melt:4637:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4637:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4637:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4637:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4637:/ locexp");
+      melt_assert_failed(( "normexp_defunmatcher check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4637)?(4637):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4637:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4637:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4637:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4638:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4638:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4639:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4640:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4640:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4640:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V17*/ curfptr[16] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4640:/ cond.else");
+  
+   /*_.SFORMAL_ARGS__V17*/ curfptr[16] = NULL;;
+   }
+  ;
+  /*_.SMATCHED__V18*/ curfptr[17] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.SFORMAL_ARGS__V17*/ curfptr[16]), (0)));;
+  MELT_LOCATION("warmelt-normal.melt:4641:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SFUMATDEF_INS");/*_.SINS__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4642:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SFUMATDEF_OUTS");/*_.SOUTS__V20*/ curfptr[19] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4643:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SFUMATDEF_MATCHF");/*_.SMATCHF__V21*/ curfptr[20] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4644:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SFUMATDEF_APPLYF");/*_.SAPPLYF__V22*/ curfptr[21] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4645:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 9, "SFUMATDEF_DATA");/*_.SDATA__V23*/ curfptr[22] = slot; };
+  ;
+  /*_.RESBINDS__V24*/ curfptr[23] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  /*_.INSFMA__V25*/ curfptr[24] = 
+    meltgc_new_subseq_multiple((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18]),
+				  (int)(1), (int)(-1)) ;;
+  /*_.MBIFMA__V26*/ curfptr[25] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18]), (0)));;
+  MELT_LOCATION("warmelt-normal.melt:4649:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4649:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4649:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
+    /*_.B__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4650:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4650:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:4650:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_defunmatcher fmbind";
+      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
+      argtab[3].bp_long = 4650;
+      /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.B__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4650:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4650:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4650:/ cppif.else");
+   /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4651:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4651:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.B__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[7])));;
+     MELT_LOCATION("warmelt-normal.melt:4651:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4651:/ cond.then");
+     /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4651:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4651:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4651:/ locexp");
+        melt_assert_failed(( "check fmbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4651)?(4651):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4651:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4651:/ clear");
+     /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4651:/ cppif.else");
+   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LET___V27*/ curfptr[26] = /*_.B__V28*/ curfptr[27];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4649:/ clear");
+   /*clear*/ /*_.B__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4649:/ clear");
+   /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4649:/ clear");
+   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;}
+  ;
+  /*_.FMBIND__V33*/ curfptr[31] = /*_.LET___V27*/ curfptr[26];;
+  MELT_LOCATION("warmelt-normal.melt:4653:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[7])))) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4653:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4653:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), 2, "FMBIND_FUNMATCHER");/*_.FUNMATCHER__V34*/ curfptr[27] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4653:/ cond.else");
+  
+   /*_.FUNMATCHER__V34*/ curfptr[27] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4655:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4655:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:4655:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_defunmatcher made funmatcher";
+     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
+     argtab[3].bp_long = 4655;
+     /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FUNMATCHER__V34*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V35*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4655:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4655:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4655:/ cppif.else");
+  /*_.IFCPP___V35*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4656:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4656:/ block");
+   /*block*/{
+    /*_#IS_A__L8*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SMATCHED__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));;
+    MELT_LOCATION("warmelt-normal.melt:4656:/ cond");
+    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4656:/ cond.then");
+    /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4656:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4656:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4656:/ locexp");
+       melt_assert_failed(( "check smatched"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4656)?(4656):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V37*/ curfptr[29] = /*_.IFELSE___V38*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4656:/ clear");
+    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4656:/ clear");
+    /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4656:/ cppif.else");
+  /*_.IFCPP___V37*/ curfptr[29] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4657:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4657:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE__L9*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18])) == OBMAG_MULTIPLE);;
+    MELT_LOCATION("warmelt-normal.melt:4657:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4657:/ cond.then");
+    /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4657:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4657:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4657:/ locexp");
+       melt_assert_failed(( "check sins"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4657)?(4657):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4657:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4657:/ clear");
+    /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4657:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4658:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4658:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE__L10*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])) == OBMAG_MULTIPLE);;
+    MELT_LOCATION("warmelt-normal.melt:4658:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4658:/ cond.then");
+    /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4658:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4658:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4658:/ locexp");
+       melt_assert_failed(( "check souts"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4658)?(4658):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4658:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4658:/ clear");
+    /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4658:/ cppif.else");
+  /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4659:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4659:/ block");
+   /*block*/{
+    /*_#IS_A__L11*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.MBIFMA__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));;
+    MELT_LOCATION("warmelt-normal.melt:4659:/ cond");
+    /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4659:/ cond.then");
+    /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4659:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4659:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4659:/ locexp");
+       melt_assert_failed(( "check mbifma"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4659)?(4659):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4659:/ clear");
+    /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4659:/ clear");
+    /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4659:/ cppif.else");
+  /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4660:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V47*/ curfptr[46];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.send");
+    /*_.NMATCHF__V46*/ curfptr[45] =  meltgc_send ((melt_ptr_t)(/*_.SMATCHF__V21*/ curfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4660:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:4663:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:4663:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:4663:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_defunmatcher nmatchf";
+       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
+       argtab[3].bp_long = 4663;
+       /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHF__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4663:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4663:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:4663:/ cppif.else");
+    /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:4664:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4664:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V47*/ curfptr[46];
+     /*_.LIST_APPEND2LIST__V50*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4665:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend");
+     /*multimsend*/{
+      union meltparam_un argtab[3];
+      union meltparam_un restab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      memset(&restab, 0, sizeof(restab));
+      MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.xres");
+      restab[0].bp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V53*/ curfptr[52];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.send");
+      /*_.NAPPLF__V52*/ curfptr[51] =  meltgc_send ((melt_ptr_t)(/*_.SAPPLYF__V22*/ curfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4665:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4668:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4668:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:4668:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_defunmatcher napplf";
+         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
+         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
+         argtab[3].bp_long = 4668;
+         /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NAPPLF__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4668:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4668:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4668:/ cppif.else");
+      /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:4669:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4669:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V53*/ curfptr[52];
+       /*_.LIST_APPEND2LIST__V56*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:4670:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend");
+       /*multimsend*/{
+        union meltparam_un argtab[3];
+        union meltparam_un restab[1];
+        memset(&argtab, 0, sizeof(argtab));
+        memset(&restab, 0, sizeof(restab));
+        MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg");
+        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+        MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.xres");
+        restab[0].bp_aptr = (melt_ptr_t*) &/*_.NDABINDS__V59*/ curfptr[58];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.send");
+        /*_.NDATA__V58*/ curfptr[57] =  meltgc_send ((melt_ptr_t)(/*_.SDATA__V23*/ curfptr[22]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4670:/ block");
+       /*block*/{
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:4673:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:4673:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
+           callcount;;
+          MELT_LOCATION("warmelt-normal.melt:4673:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
+           argtab[0].bp_cstring =  "normexp_defunmatcher ndata";
+           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
+           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-normal.melt";
+           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
+           argtab[3].bp_long = 4673;
+           /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NDATA__V58*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4673:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4673:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:4673:/ cppif.else");
+        /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-normal.melt:4674:/ cppif.then");
+        MELT_LOCATION("warmelt-normal.melt:4674:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 
+           callcount;;
+          MELT_LOCATION("warmelt-normal.melt:4674:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
+           argtab[0].bp_cstring =  "normexp_defunmatcher resbinds";
+           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0];
+           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-normal.melt";
+           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
+           argtab[3].bp_long = 4674;
+           /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V62*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4674:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4674:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-normal.melt:4674:/ cppif.else");
+        /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-normal.melt:4675:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:4678:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[3];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+          MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+          MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg");
+          argtab[2].bp_cstring =  "discr_string";
+          /*_.NORMAL_PREDEF__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4679:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V66*/ curfptr[65] = slot; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4676:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4676:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[11])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V68*/ curfptr[67] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4676:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4676:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.NORMAL_PREDEF__V65*/ curfptr[64]), "NDATA_DISCRX");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4676:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (5), (/*_.NAMED_NAME__V66*/ curfptr[65]), "NSTR_STRING");
+          ;
+          /*_.NAMSTRDATA__V67*/ curfptr[66] = /*_.INST__V68*/ curfptr[67];;}
+         ;
+         /*_#OBJECT_LENGTH__L16*/ curfnum[0] = 
+          ((long)melt_object_length((melt_ptr_t)(/*_.FUNMATCHER__V34*/ curfptr[27])));;
+         /*_.SLOTUP__V69*/ curfptr[68] = 
+          (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#OBJECT_LENGTH__L16*/ curfnum[0])));;
+         MELT_LOCATION("warmelt-normal.melt:4684:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[3];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+          MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+          MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg");
+          argtab[2].bp_cstring =  "class_funmatcher";
+          /*_.NORMAL_PREDEF__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[16])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_#NONZERO_HASH__L17*/ curfnum[16] = 
+          (melt_nonzerohash());;
+         /*_.MAKE_INTEGERBOX__V71*/ curfptr[70] = 
+          (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[17])), (/*_#NONZERO_HASH__L17*/ curfnum[16])));;
+         MELT_LOCATION("warmelt-normal.melt:4681:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4681:/ rawallocobj");
+          /*rawallocobj*/ { melt_ptr_t newobj = 0;
+           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V73*/ curfptr[72] =
+           newobj; };
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (2), (/*_.NORMAL_PREDEF__V70*/ curfptr[69]), "NDATA_DISCRX");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (7), (/*_.MAKE_INTEGERBOX__V71*/ curfptr[70]), "NINST_HASH");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (8), (/*_.SLOTUP__V69*/ curfptr[68]), "NINST_SLOTS");
+          ;
+          /*_.INSDATA__V72*/ curfptr[71] = /*_.INST__V73*/ curfptr[72];;}
+         ;
+         /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 
+          (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24])));;
+         /*_.INSTUP__V74*/ curfptr[73] = 
+          (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L18*/ curfnum[17])));;
+         /*_#MULTIPLE_LENGTH__L19*/ curfnum[18] = 
+          (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])));;
+         /*_.OUTSTUP__V75*/ curfptr[74] = 
+          (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L19*/ curfnum[18])));;
+         /*_#MULTIPLE_LENGTH__L20*/ curfnum[19] = 
+          (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24])));;
+         /*_#MULTIPLE_LENGTH__L21*/ curfnum[20] = 
+          (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])));;
+         /*_#I__L22*/ curfnum[21] = 
+          ((/*_#MULTIPLE_LENGTH__L20*/ curfnum[19]) + (/*_#MULTIPLE_LENGTH__L21*/ curfnum[20]));;
+         /*_#I__L23*/ curfnum[22] = 
+          ((/*_#I__L22*/ curfnum[21]) * (2));;
+         /*_#I__L24*/ curfnum[23] = 
+          ((5) + (/*_#I__L23*/ curfnum[22]));;
+         /*_.FORMSYMBMAP__V76*/ curfptr[75] = 
+          (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[18])), (/*_#I__L24*/ curfnum[23])));;
+         MELT_LOCATION("warmelt-normal.melt:4695:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4695:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V67*/ curfptr[66];
+          /*_.ADD_NCTX_DATA__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4696:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[1];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4696:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V72*/ curfptr[71];
+          /*_.ADD_NCTX_DATA__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_#GET_INT__L25*/ curfnum[24] = 
+          (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[20]))));;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:4698:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L25*/ curfnum[24]), (melt_ptr_t)(/*_.NAMSTRDATA__V67*/ curfptr[66]));}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4700:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[5];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUP__V74*/ curfptr[73];
+          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75];
+          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
+          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
+          argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
+          argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+          /*_.FILL_NORMAL_FORMALS__V79*/ curfptr[78] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4701:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4704:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[3];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+           MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+           MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg");
+           argtab[2].bp_cstring =  "discr_multiple";
+           /*_.NORMAL_PREDEF__V80*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4701:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-normal.melt:4701:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[22])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V82*/ curfptr[81] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), (/*_.NORMAL_PREDEF__V80*/ curfptr[79]), "NDATA_DISCRX");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (5), (/*_.INSTUP__V74*/ curfptr[73]), "NTUP_COMP");
+           ;
+           /*_.INSTUPDATA__V81*/ curfptr[80] = /*_.INST__V82*/ curfptr[81];;}
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4707:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[1];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4707:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V81*/ curfptr[80];
+           /*_.ADD_NCTX_DATA__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_#GET_INT__L26*/ curfnum[25] = 
+           (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ curfrout->tabval[23]))));;
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:4708:/ locexp");
+          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L26*/ curfnum[25]), (melt_ptr_t)(/*_.INSTUPDATA__V81*/ curfptr[80]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
+          /*clear*/ /*_.NORMAL_PREDEF__V80*/ curfptr[79] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
+          /*clear*/ /*_.INSTUPDATA__V81*/ curfptr[80] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
+          /*clear*/ /*_.ADD_NCTX_DATA__V83*/ curfptr[82] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
+          /*clear*/ /*_#GET_INT__L26*/ curfnum[25] = 0 ;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4712:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4712:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75];
+           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
+           argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
+           argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+           /*_.MBDATA__V84*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.MBIFMA__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_#GET_INT__L27*/ curfnum[25] = 
+           (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ curfrout->tabval[25]))));;
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:4713:/ locexp");
+          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L27*/ curfnum[25]), (melt_ptr_t)(/*_.MBDATA__V84*/ curfptr[79]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4712:/ clear");
+          /*clear*/ /*_.MBDATA__V84*/ curfptr[79] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4712:/ clear");
+          /*clear*/ /*_#GET_INT__L27*/ curfnum[25] = 0 ;}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4717:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[5];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUP__V75*/ curfptr[74];
+          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75];
+          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
+          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
+          argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
+          argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+          /*_.FILL_NORMAL_FORMALS__V85*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4718:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4721:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[3];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+           MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+           MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg");
+           argtab[2].bp_cstring =  "discr_multiple";
+           /*_.NORMAL_PREDEF__V86*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4718:/ block");
+          /*block*/{
+           MELT_LOCATION("warmelt-normal.melt:4718:/ rawallocobj");
+           /*rawallocobj*/ { melt_ptr_t newobj = 0;
+            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[22])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V88*/ curfptr[87] =
+            newobj; };
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (2), (/*_.NORMAL_PREDEF__V86*/ curfptr[82]), "NDATA_DISCRX");
+           ;
+           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
+           /*putslot*/
+           melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
+           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (5), (/*_.OUTSTUP__V75*/ curfptr[74]), "NTUP_COMP");
+           ;
+           /*_.OUTSTUPDATA__V87*/ curfptr[79] = /*_.INST__V88*/ curfptr[87];;}
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4724:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[1];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-normal.melt:4724:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V87*/ curfptr[79];
+           /*_.ADD_NCTX_DATA__V89*/ curfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_#GET_INT__L28*/ curfnum[25] = 
+           (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ curfrout->tabval[26]))));;
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:4725:/ locexp");
+          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L28*/ curfnum[25]), (melt_ptr_t)(/*_.OUTSTUPDATA__V87*/ curfptr[79]));}
+          ;
+          /*epilog*/
+          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
+          /*clear*/ /*_.NORMAL_PREDEF__V86*/ curfptr[82] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
+          /*clear*/ /*_.OUTSTUPDATA__V87*/ curfptr[79] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
+          /*clear*/ /*_.ADD_NCTX_DATA__V89*/ curfptr[88] = 0 ;
+          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
+          /*clear*/ /*_#GET_INT__L28*/ curfnum[25] = 0 ;}
+         ;
+         /*_#GET_INT__L29*/ curfnum[25] = 
+          (melt_get_int((melt_ptr_t)((/*!FMATCH_MATCHF*/ curfrout->tabval[27]))));;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:4729:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L29*/ curfnum[25]), (melt_ptr_t)(/*_.NMATCHF__V46*/ curfptr[45]));}
+         ;
+         /*_#GET_INT__L30*/ curfnum[29] = 
+          (melt_get_int((melt_ptr_t)((/*!FMATCH_APPLYF*/ curfrout->tabval[28]))));;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:4732:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L30*/ curfnum[29]), (melt_ptr_t)(/*_.NAPPLF__V52*/ curfptr[51]));}
+         ;
+         /*_#GET_INT__L31*/ curfnum[30] = 
+          (melt_get_int((melt_ptr_t)((/*!FMATCH_DATA*/ curfrout->tabval[29]))));;
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:4735:/ locexp");
+         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L31*/ curfnum[30]), (melt_ptr_t)(/*_.NDATA__V58*/ curfptr[57]));}
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4738:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-normal.melt:4738:/ putslot");
+          /*putslot*/
+          melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31])) == OBMAG_OBJECT);
+          melt_putfield_object((/*_.FMBIND__V33*/ curfptr[31]), (1), (/*_.INSDATA__V72*/ curfptr[71]), "FIXBIND_DATA");
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4738:/ touch");
+          meltgc_touch(/*_.FMBIND__V33*/ curfptr[31]);
+          ;
+          /*epilog*/}
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4740:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4740:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4740:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_defunmatcher final fmbind";
+            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[31];
+            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
+            argtab[3].bp_long = 4740;
+            /*_.DEBUG_MSG_FUN__V91*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V90*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[79];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4740:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4740:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[79] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4740:/ cppif.else");
+         /*_.IFCPP___V90*/ curfptr[82] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4743:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4743:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4743:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_defunmatcher return insdata";
+            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[31];
+            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
+            argtab[3].bp_long = 4743;
+            /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INSDATA__V72*/ curfptr[71]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V92*/ curfptr[88] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[79];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4743:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4743:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4743:/ cppif.else");
+         /*_.IFCPP___V92*/ curfptr[88] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-normal.melt:4744:/ cppif.then");
+         MELT_LOCATION("warmelt-normal.melt:4744:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L34*/ curfnum[31] = 
+            callcount;;
+           MELT_LOCATION("warmelt-normal.melt:4744:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
+            argtab[0].bp_cstring =  "normexp_defunmatcher return resbinds";
+            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[31];
+            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-normal.melt";
+            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
+            argtab[3].bp_long = 4744;
+            /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V94*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-normal.melt:4744:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[31] = 0 ;
+           MELT_LOCATION("warmelt-normal.melt:4744:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-normal.melt:4744:/ cppif.else");
+         /*_.IFCPP___V94*/ curfptr[79] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-normal.melt:4745:/ block");
+         /*block*/{
+          /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V72*/ curfptr[71];;
+          MELT_LOCATION("warmelt-normal.melt:4745:/ putxtraresult");
+          if (!xrestab_ || !xresdescr_) goto labend_rout;
+          if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+          if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.RESBINDS__V24*/ curfptr[23]);
+          ;
+          MELT_LOCATION("warmelt-normal.melt:4745:/ finalreturn");
+          ;
+          /*finalret*/ goto labend_rout ;}
+         ;
+         /*_.LET___V64*/ curfptr[62] = /*_.RETURN___V96*/ curfptr[94];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.NORMAL_PREDEF__V65*/ curfptr[64] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.NAMED_NAME__V66*/ curfptr[65] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.NAMSTRDATA__V67*/ curfptr[66] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#OBJECT_LENGTH__L16*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.SLOTUP__V69*/ curfptr[68] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.NORMAL_PREDEF__V70*/ curfptr[69] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[16] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.MAKE_INTEGERBOX__V71*/ curfptr[70] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.INSDATA__V72*/ curfptr[71] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.INSTUP__V74*/ curfptr[73] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[18] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.OUTSTUP__V75*/ curfptr[74] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#MULTIPLE_LENGTH__L20*/ curfnum[19] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#MULTIPLE_LENGTH__L21*/ curfnum[20] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.FORMSYMBMAP__V76*/ curfptr[75] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.ADD_NCTX_DATA__V78*/ curfptr[77] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#GET_INT__L25*/ curfnum[24] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.FILL_NORMAL_FORMALS__V79*/ curfptr[78] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.FILL_NORMAL_FORMALS__V85*/ curfptr[80] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#GET_INT__L29*/ curfnum[25] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#GET_INT__L30*/ curfnum[29] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_#GET_INT__L31*/ curfnum[30] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.IFCPP___V90*/ curfptr[82] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.IFCPP___V92*/ curfptr[88] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.IFCPP___V94*/ curfptr[79] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
+         /*clear*/ /*_.RETURN___V96*/ curfptr[94] = 0 ;}
+        ;
+        /*_.MULTI___V57*/ curfptr[56] = /*_.LET___V64*/ curfptr[62];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
+        /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
+        /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
+        /*clear*/ /*_.LET___V64*/ curfptr[62] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
+       /*clear*/ /*_.NDABINDS__V59*/ curfptr[58] = 0 ;}
+      ;
+      /*_.MULTI___V51*/ curfptr[50] = /*_.MULTI___V57*/ curfptr[56];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
+      /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
+      /*clear*/ /*_.LIST_APPEND2LIST__V56*/ curfptr[54] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
+      /*clear*/ /*_.MULTI___V57*/ curfptr[56] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
+     /*clear*/ /*_.NAPBINDS__V53*/ curfptr[52] = 0 ;}
+    ;
+    /*_.MULTI___V45*/ curfptr[43] = /*_.MULTI___V51*/ curfptr[50];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
+    /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V50*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
+    /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
+   /*clear*/ /*_.NMABINDS__V47*/ curfptr[46] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V45*/ curfptr[43];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SFORMAL_ARGS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SMATCHED__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SINS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SOUTS__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SMATCHF__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SAPPLYF__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.SDATA__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.RESBINDS__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.INSFMA__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.MBIFMA__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.FMBIND__V33*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.FUNMATCHER__V34*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.IFCPP___V35*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.IFCPP___V37*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
+  /*clear*/ /*_.MULTI___V45*/ curfptr[43] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4633:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:4633:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFUNMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_131_warmelt_normal_NORMEXP_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_131_warmelt_normal_NORMEXP_DEFCLASS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 98
+  void* varptr[98];
+#define CURFRAM_NBVARNUM 35
+  long varnum[35];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<98; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 98;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFCLASS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4756:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4757:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4757:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4757:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4757:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4757:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4757:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4757:/ locexp");
+      melt_assert_failed(( "check defclass recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4757)?(4757):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4757:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4757:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4757:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4758:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4758:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4758:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4758:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4758:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4758:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4758:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4758)?(4758):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4758:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4758:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4758:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4759:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4759:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4759:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4759:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4759:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4759:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4759:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4759)?(4759):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4759:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4759:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4759:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4760:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4760:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4761:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4762:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4763:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLABIND__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4764:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SCLASS_SUPERBIND");/*_.SUPERBIND__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4765:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SCLASS_FLDBINDS");/*_.SFLDBINDS__V18*/ curfptr[17] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4767:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4767:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-normal.melt:4767:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4767:/ cond.then");
+    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4767:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4767:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4767:/ locexp");
+       melt_assert_failed(( "check sclabind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4767)?(4767):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4767:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4767:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4767:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4768:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4768:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), 3, "CBIND_CLASS");/*_.CLAOBJ__V22*/ curfptr[21] = slot; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4769:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4769:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4769:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    /*_.NAMSYMDATA__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4772:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_string";
+    /*_.NORMAL_PREDEF__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4773:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4771:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4771:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V27*/ curfptr[26] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4771:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.NORMAL_PREDEF__V24*/ curfptr[23]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4771:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NAMED_NAME__V25*/ curfptr[24]), "NSTR_STRING");
+    ;
+    /*_.NAMSTRDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
+   ;
+   /*_#OBJ_LEN__L5*/ curfnum[0] = 
+    (melt_obj_len((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));;
+   /*_.CLASLOTS__V28*/ curfptr[27] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L5*/ curfnum[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4780:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg");
+    argtab[2].bp_cstring =  "class_class";
+    /*_.NORMAL_PREDEF__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_#OBJ_HASH__L6*/ curfnum[5] = 
+    (melt_obj_hash((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));;
+   /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L6*/ curfnum[5])));;
+   MELT_LOCATION("warmelt-normal.melt:4777:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4777:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V32*/ curfptr[31] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[28]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (7), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "NINST_HASH");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (6), (/*_.SPREDEF__V15*/ curfptr[14]), "NINST_PREDEF");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (8), (/*_.CLASLOTS__V28*/ curfptr[27]), "NINST_SLOTS");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (5), ((/*!konst_12_OBMAG_OBJECT*/ curfrout->tabval[12])), "NINST_OBJNUM");
+    ;
+    /*_.CLADATA__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4786:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 5, "CLASS_ANCESTORS");/*_.ANCSEQ__V33*/ curfptr[32] = slot; };
+   ;
+   /*_#NBANC__L7*/ curfnum[6] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.ANCSEQ__V33*/ curfptr[32])));;
+   /*_.ANCTUP__V34*/ curfptr[33] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBANC__L7*/ curfnum[6])));;
+   MELT_LOCATION("warmelt-normal.melt:4793:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_class_sequence";
+    /*_.NORMAL_PREDEF__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_CLASS_SEQUENCE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4789:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4789:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V37*/ curfptr[36] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.ANCTUP__V34*/ curfptr[33]), "NTUP_COMP");
+    ;
+    /*_.ANCDATA__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4796:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 6, "CLASS_FIELDS");/*_.FLDSEQ__V38*/ curfptr[37] = slot; };
+   ;
+   /*_#NBFLD__L8*/ curfnum[7] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.FLDSEQ__V38*/ curfptr[37])));;
+   /*_#NBOWNFLD__L9*/ curfnum[8] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17])));;
+   /*_#NBSUPFLD__L10*/ curfnum[9] = 
+    ((/*_#NBFLD__L8*/ curfnum[7]) - (/*_#NBOWNFLD__L9*/ curfnum[8]));;
+   /*_#IX__L11*/ curfnum[10] = 0;;
+   /*_.FLDTUP__V39*/ curfptr[38] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBFLD__L8*/ curfnum[7])));;
+   MELT_LOCATION("warmelt-normal.melt:4806:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+    MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_field_sequence";
+    /*_.NORMAL_PREDEF__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_FIELD_SEQUENCE*/ curfrout->tabval[15])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4802:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4802:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V42*/ curfptr[41] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.NORMAL_PREDEF__V40*/ curfptr[39]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.FLDTUP__V39*/ curfptr[38]), "NTUP_COMP");
+    ;
+    /*_.FLDDATA__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
+   ;
+   /*_#IS_A__L12*/ curfnum[11] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[16])));;
+   MELT_LOCATION("warmelt-normal.melt:4810:/ cond");
+   /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4810:/ cond.then");
+   MELT_LOCATION("warmelt-normal.melt:4810:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4811:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V44*/ curfptr[43] = slot; };
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4811:/ msend");
+     /*msend*/{
+      union meltparam_un argtab[3];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+      /*_.NORMAL_EXP__V45*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.BINDER__V44*/ curfptr[43]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.SUPERDATA__V43*/ curfptr[42] = /*_.NORMAL_EXP__V45*/ curfptr[44];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4810:/ clear");
+     /*clear*/ /*_.BINDER__V44*/ curfptr[43] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4810:/ clear");
+     /*clear*/ /*_.NORMAL_EXP__V45*/ curfptr[44] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-normal.melt:4810:/ cond.else");
+   
+    /*_.SUPERDATA__V43*/ curfptr[42] = NULL;;
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4813:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4813:/ block");
+    /*block*/{
+     /*_#IS_A__L13*/ curfnum[12] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])));;
+     MELT_LOCATION("warmelt-normal.melt:4813:/ cond");
+     /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4813:/ cond.then");
+     /*_.IFELSE___V47*/ curfptr[44] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4813:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4813:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4813:/ locexp");
+        melt_assert_failed(( "check claobj"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4813)?(4813):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V46*/ curfptr[43] = /*_.IFELSE___V47*/ curfptr[44];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4813:/ clear");
+     /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4813:/ clear");
+     /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4813:/ cppif.else");
+   /*_.IFCPP___V46*/ curfptr[43] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:4814:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4814:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30];
+    /*_.ADD_NCTX_DATA__V48*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4815:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4815:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25];
+    /*_.ADD_NCTX_DATA__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4816:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4816:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35];
+    /*_.ADD_NCTX_DATA__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4817:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4817:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40];
+    /*_.ADD_NCTX_DATA__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4818:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4818:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]);
+    MELT_LOCATION("warmelt-normal.melt:4818:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25];
+    /*_.FILL_DATA_SLOT__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4819:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4819:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!CLASS_ANCESTORS*/ curfrout->tabval[21]);
+    MELT_LOCATION("warmelt-normal.melt:4819:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35];
+    /*_.FILL_DATA_SLOT__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4820:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4820:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!CLASS_FIELDS*/ curfrout->tabval[22]);
+    MELT_LOCATION("warmelt-normal.melt:4820:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40];
+    /*_.FILL_DATA_SLOT__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:4821:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:4821:/ block");
+    /*block*/{
+     /*_#IS_A__L14*/ curfnum[12] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));;
+     MELT_LOCATION("warmelt-normal.melt:4821:/ cond");
+     /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4821:/ cond.then");
+     /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-normal.melt:4821:/ cond.else");
+     
+      MELT_LOCATION("warmelt-normal.melt:4821:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4821:/ locexp");
+        melt_assert_failed(( "check sclabind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4821)?(4821):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V55*/ curfptr[54] = /*_.IFELSE___V56*/ curfptr[55];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4821:/ clear");
+     /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4821:/ clear");
+     /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:4821:/ cppif.else");
+   /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:4822:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4822:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.SCLABIND__V16*/ curfptr[15]), (1), (/*_.CLADATA__V31*/ curfptr[30]), "FIXBIND_DATA");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4822:/ touch");
+    meltgc_touch(/*_.SCLABIND__V16*/ curfptr[15]);
+    ;
+    /*epilog*/}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4826:/ compute");
+   /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L15*/ curfnum[12] = 0;;
+   MELT_LOCATION("warmelt-normal.melt:4827:/ loop");
+   /*loop*/{ labloop_LOOPSUPERFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4827:/ loopbody");
+   
+    MELT_LOCATION("warmelt-normal.melt:4827:/ block");
+    /*block*/{
+     /*_#I__L16*/ curfnum[15] = 
+      ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBSUPFLD__L10*/ curfnum[9]));;
+     MELT_LOCATION("warmelt-normal.melt:4828:/ cond");
+     /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4828:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:4828:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4828:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:4828:/ compute");
+        /*_.LOOPSUPERFIELD__V58*/ curfptr[57] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4828:/ exit");
+        /*exit*/{
+         goto labexit_LOOPSUPERFIELD_1;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4829:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4833:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4833:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V60*/ curfptr[59] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4833:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4833:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCF_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4833:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCF_FLD", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), ((/*!CLASS_FIELDS*/ curfrout->tabval[22])), "NACCF_FLD");
+       ;
+       /*_.INST___V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;}
+      ;
+      /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = 
+       (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));;
+      MELT_LOCATION("warmelt-normal.melt:4830:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4830:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V63*/ curfptr[62] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4830:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4830:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCM_MUL", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.INST___V59*/ curfptr[58]), "NACCM_MUL");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4830:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCM_IX", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.MAKE_INTEGERBOX__V61*/ curfptr[60]), "NACCM_IX");
+       ;
+       /*_.SUPFLDATA__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4841:/ locexp");
+      meltgc_multiple_put_nth((melt_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#IX__L11*/ curfnum[10]), (melt_ptr_t)(/*_.SUPFLDATA__V62*/ curfptr[61]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4829:/ clear");
+      /*clear*/ /*_.INST___V59*/ curfptr[58] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4829:/ clear");
+      /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4829:/ clear");
+      /*clear*/ /*_.SUPFLDATA__V62*/ curfptr[61] = 0 ;}
+     ;
+     /*_#I__L17*/ curfnum[16] = 
+      ((/*_#IX__L11*/ curfnum[10]) + (1));;
+     MELT_LOCATION("warmelt-normal.melt:4843:/ compute");
+     /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L18*/ curfnum[17] = /*_#I__L17*/ curfnum[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4827:/ clear");
+     /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4827:/ clear");
+     /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4827:/ clear");
+     /*clear*/ /*_#SETQ___L18*/ curfnum[17] = 0 ;}
+    ;
+    ;
+     goto labloop_LOOPSUPERFIELD_1;
+     labexit_LOOPSUPERFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4827:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V57*/ curfptr[55] = /*_.LOOPSUPERFIELD__V58*/ curfptr[57];;
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4845:/ compute");
+   /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L19*/ curfnum[15] = 0;;
+   MELT_LOCATION("warmelt-normal.melt:4847:/ loop");
+   /*loop*/{ labloop_LOOPOWNFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4847:/ loopbody");
+   
+    MELT_LOCATION("warmelt-normal.melt:4847:/ block");
+    /*block*/{
+     /*_#I__L20*/ curfnum[16] = 
+      ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBOWNFLD__L9*/ curfnum[8]));;
+     MELT_LOCATION("warmelt-normal.melt:4848:/ cond");
+     /*cond*/ if (/*_#I__L20*/ curfnum[16]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4848:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:4848:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4848:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:4848:/ compute");
+        /*_.LOOPOWNFIELD__V65*/ curfptr[60] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4848:/ exit");
+        /*exit*/{
+         goto labexit_LOOPOWNFIELD_1;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4849:/ block");
+     /*block*/{
+      /*_.OWNFLDBIND__V66*/ curfptr[61] = 
+       (melt_multiple_nth((melt_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17]), (/*_#IX__L11*/ curfnum[10])));;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:4850:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:4850:/ block");
+       /*block*/{
+        /*_#IS_A__L21*/ curfnum[17] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[25])));;
+        MELT_LOCATION("warmelt-normal.melt:4850:/ cond");
+        /*cond*/ if (/*_#IS_A__L21*/ curfnum[17]) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:4850:/ cond.then");
+        /*_.IFELSE___V68*/ curfptr[67] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-normal.melt:4850:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:4850:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:4850:/ locexp");
+           melt_assert_failed(( "check ownfldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4850)?(4850):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V67*/ curfptr[66] = /*_.IFELSE___V68*/ curfptr[67];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4850:/ clear");
+        /*clear*/ /*_#IS_A__L21*/ curfnum[17] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4850:/ clear");
+        /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:4850:/ cppif.else");
+      /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:4851:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4851:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 0, "BINDER");/*_.OWNFLDSYM__V69*/ curfptr[67] = slot; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4852:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 3, "FLBIND_FIELD");/*_.OWNFLD__V70*/ curfptr[69] = slot; };
+       ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:4854:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:4854:/ block");
+        /*block*/{
+         /*_#IS_A__L22*/ curfnum[17] = 
+          melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[26])));;
+         MELT_LOCATION("warmelt-normal.melt:4854:/ cond");
+         /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:4854:/ cond.then");
+         /*_.IFELSE___V72*/ curfptr[71] = (/*nil*/NULL);;
+         } else {MELT_LOCATION("warmelt-normal.melt:4854:/ cond.else");
+         
+          MELT_LOCATION("warmelt-normal.melt:4854:/ block");
+          /*block*/{
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-normal.melt:4854:/ locexp");
+            melt_assert_failed(( "check ownfldsym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4854)?(4854):__LINE__, __FUNCTION__);
+;}
+            ;
+            /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
+           ;
+           /*epilog*/}
+          ;
+          }
+         ;
+         /*_.IFCPP___V71*/ curfptr[70] = /*_.IFELSE___V72*/ curfptr[71];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:4854:/ clear");
+         /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4854:/ clear");
+         /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:4854:/ cppif.else");
+       /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:4855:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:4855:/ block");
+        /*block*/{
+         /*_#IS_A__L23*/ curfnum[17] = 
+          melt_is_instance_of((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])));;
+         MELT_LOCATION("warmelt-normal.melt:4855:/ cond");
+         /*cond*/ if (/*_#IS_A__L23*/ curfnum[17]) /*then*/ {
+         MELT_LOCATION("warmelt-normal.melt:4855:/ cond.then");
+         /*_.IFELSE___V74*/ curfptr[73] = (/*nil*/NULL);;
+         } else {MELT_LOCATION("warmelt-normal.melt:4855:/ cond.else");
+         
+          MELT_LOCATION("warmelt-normal.melt:4855:/ block");
+          /*block*/{
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-normal.melt:4855:/ locexp");
+            melt_assert_failed(( "check ownfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4855)?(4855):__LINE__, __FUNCTION__);
+;}
+            ;
+            /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;}
+           ;
+           /*epilog*/}
+          ;
+          }
+         ;
+         /*_.IFCPP___V73*/ curfptr[71] = /*_.IFELSE___V74*/ curfptr[73];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:4855:/ clear");
+         /*clear*/ /*_#IS_A__L23*/ curfnum[17] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:4855:/ clear");
+         /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:4855:/ cppif.else");
+       /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-normal.melt:4856:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:4856:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4856:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+         MELT_LOCATION("warmelt-normal.melt:4856:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+         /*_.OWNFLDSYMDATA__V75*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#OBJ_LEN__L24*/ curfnum[17] = 
+         (melt_obj_len((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));;
+        /*_.OWNFLDSLOTS__V76*/ curfptr[75] = 
+         (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L24*/ curfnum[17])));;
+        MELT_LOCATION("warmelt-normal.melt:4860:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[3];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+         MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+         MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg");
+         argtab[2].bp_cstring =  "discr_string";
+         /*_.NORMAL_PREDEF__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4861:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), 1, "NAMED_NAME");/*_.NAMED_NAME__V78*/ curfptr[77] = slot; };
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4859:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:4859:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V80*/ curfptr[79] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4859:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V80*/ curfptr[79]), (2), (/*_.NORMAL_PREDEF__V77*/ curfptr[76]), "NDATA_DISCRX");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4859:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V80*/ curfptr[79]), (5), (/*_.NAMED_NAME__V78*/ curfptr[77]), "NSTR_STRING");
+         ;
+         /*_.OWNFLSTRDATA__V79*/ curfptr[78] = /*_.INST__V80*/ curfptr[79];;}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4866:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[3];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+         MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
+         MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg");
+         argtab[2].bp_cstring =  "class_field";
+         /*_.NORMAL_PREDEF__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#OBJ_HASH__L25*/ curfnum[24] = 
+         (melt_obj_hash((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));;
+        /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = 
+         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L25*/ curfnum[24])));;
+        /*_#OBJ_NUM__L26*/ curfnum[25] = 
+         (melt_obj_num((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));;
+        /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = 
+         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_NUM__L26*/ curfnum[25])));;
+        MELT_LOCATION("warmelt-normal.melt:4863:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:4863:/ rawallocobj");
+         /*rawallocobj*/ { melt_ptr_t newobj = 0;
+          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V85*/ curfptr[84] =
+          newobj; };
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (1), (/*_.OWNFLDSYM__V69*/ curfptr[67]), "NDATA_NAME");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (2), (/*_.NORMAL_PREDEF__V81*/ curfptr[80]), "NDATA_DISCRX");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (7), (/*_.MAKE_INTEGERBOX__V82*/ curfptr[81]), "NINST_HASH");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (5), (/*_.MAKE_INTEGERBOX__V83*/ curfptr[82]), "NINST_OBJNUM");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (8), (/*_.OWNFLDSLOTS__V76*/ curfptr[75]), "NINST_SLOTS");
+         ;
+         /*_.OWNFLDATA__V84*/ curfptr[83] = /*_.INST__V85*/ curfptr[84];;}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4871:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4871:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OWNFLDATA__V84*/ curfptr[83];
+         /*_.ADD_NCTX_DATA__V86*/ curfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4872:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4872:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78];
+         /*_.ADD_NCTX_DATA__V87*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4873:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4873:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]);
+         MELT_LOCATION("warmelt-normal.melt:4873:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78];
+         /*_.FILL_DATA_SLOT__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4874:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[2];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:4874:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FLD_OWNCLASS*/ curfrout->tabval[28]);
+         MELT_LOCATION("warmelt-normal.melt:4874:/ apply.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30];
+         /*_.FILL_DATA_SLOT__V89*/ curfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_#I__L27*/ curfnum[26] = 
+         ((/*_#IX__L11*/ curfnum[10]) + (/*_#NBSUPFLD__L10*/ curfnum[9]));;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4875:/ locexp");
+        meltgc_multiple_put_nth((melt_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#I__L27*/ curfnum[26]), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4877:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-normal.melt:4877:/ putslot");
+         /*putslot*/
+         melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61])) == OBMAG_OBJECT);
+         melt_putfield_object((/*_.OWNFLDBIND__V66*/ curfptr[61]), (1), (/*_.OWNFLDATA__V84*/ curfptr[83]), "FIXBIND_DATA");
+         ;
+         MELT_LOCATION("warmelt-normal.melt:4877:/ touch");
+         meltgc_touch(/*_.OWNFLDBIND__V66*/ curfptr[61]);
+         ;
+         /*epilog*/}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.OWNFLDSYMDATA__V75*/ curfptr[73] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_#OBJ_LEN__L24*/ curfnum[17] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.OWNFLDSLOTS__V76*/ curfptr[75] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.NORMAL_PREDEF__V77*/ curfptr[76] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V78*/ curfptr[77] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.OWNFLSTRDATA__V79*/ curfptr[78] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.NORMAL_PREDEF__V81*/ curfptr[80] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_#OBJ_HASH__L25*/ curfnum[24] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_#OBJ_NUM__L26*/ curfnum[25] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.OWNFLDATA__V84*/ curfptr[83] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.ADD_NCTX_DATA__V86*/ curfptr[85] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.FILL_DATA_SLOT__V88*/ curfptr[87] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_.FILL_DATA_SLOT__V89*/ curfptr[88] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
+        /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
+       /*clear*/ /*_.OWNFLDSYM__V69*/ curfptr[67] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
+       /*clear*/ /*_.OWNFLD__V70*/ curfptr[69] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
+       /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
+       /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ;}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4849:/ clear");
+      /*clear*/ /*_.OWNFLDBIND__V66*/ curfptr[61] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4849:/ clear");
+      /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ;}
+     ;
+     /*_#I__L28*/ curfnum[17] = 
+      ((/*_#IX__L11*/ curfnum[10]) + (1));;
+     MELT_LOCATION("warmelt-normal.melt:4881:/ compute");
+     /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L29*/ curfnum[24] = /*_#I__L28*/ curfnum[17];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4847:/ clear");
+     /*clear*/ /*_#I__L20*/ curfnum[16] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4847:/ clear");
+     /*clear*/ /*_#I__L28*/ curfnum[17] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4847:/ clear");
+     /*clear*/ /*_#SETQ___L29*/ curfnum[24] = 0 ;}
+    ;
+    ;
+     goto labloop_LOOPOWNFIELD_1;
+     labexit_LOOPOWNFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4847:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V64*/ curfptr[58] = /*_.LOOPOWNFIELD__V65*/ curfptr[60];;
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4884:/ cond");
+   /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4884:/ cond.then");
+   MELT_LOCATION("warmelt-normal.melt:4884:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:4884:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[2];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:4884:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISC_SUPER*/ curfrout->tabval[29]);
+      MELT_LOCATION("warmelt-normal.melt:4884:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SUPERDATA__V43*/ curfptr[42];
+      /*_.FILL_DATA_SLOT__V91*/ curfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IF___V90*/ curfptr[73] = /*_.FILL_DATA_SLOT__V91*/ curfptr[75];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4884:/ clear");
+     /*clear*/ /*_.FILL_DATA_SLOT__V91*/ curfptr[75] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-normal.melt:4884:/ cond.else");
+   
+    /*_.IF___V90*/ curfptr[73] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4886:/ compute");
+   /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L30*/ curfnum[25] = 0;;
+   MELT_LOCATION("warmelt-normal.melt:4888:/ loop");
+   /*loop*/{ labloop_LOOPANCESTORSUPER_1:;MELT_LOCATION("warmelt-normal.melt:4888:/ loopbody");
+   
+    MELT_LOCATION("warmelt-normal.melt:4888:/ block");
+    /*block*/{
+     /*_#I__L31*/ curfnum[26] = 
+      ((/*_#NBANC__L7*/ curfnum[6]) - (1));;
+     /*_#I__L32*/ curfnum[16] = 
+      ((/*_#IX__L11*/ curfnum[10]) >= (/*_#I__L31*/ curfnum[26]));;
+     MELT_LOCATION("warmelt-normal.melt:4889:/ cond");
+     /*cond*/ if (/*_#I__L32*/ curfnum[16]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:4889:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:4889:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4889:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:4889:/ compute");
+        /*_.LOOPANCESTORSUPER__V93*/ curfptr[77] = NULL;;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4889:/ exit");
+        /*exit*/{
+         goto labexit_LOOPANCESTORSUPER_1;}
+        ;}
+       ;
+       /*epilog*/}
+      ;
+     } /*noelse*/
+     ;
+     MELT_LOCATION("warmelt-normal.melt:4890:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4894:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4894:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V95*/ curfptr[80] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4894:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4894:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCF_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4894:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCF_FLD", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (2), ((/*!CLASS_ANCESTORS*/ curfrout->tabval[21])), "NACCF_FLD");
+       ;
+       /*_.INST___V94*/ curfptr[78] = /*_.INST__V95*/ curfptr[80];;}
+      ;
+      /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = 
+       (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));;
+      MELT_LOCATION("warmelt-normal.melt:4891:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4891:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V98*/ curfptr[83] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4891:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4891:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCM_MUL", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (1), (/*_.INST___V94*/ curfptr[78]), "NACCM_MUL");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4891:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NACCM_IX", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (2), (/*_.MAKE_INTEGERBOX__V96*/ curfptr[81]), "NACCM_IX");
+       ;
+       /*_.SUPANCDATA__V97*/ curfptr[82] = /*_.INST__V98*/ curfptr[83];;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4899:/ locexp");
+      meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#IX__L11*/ curfnum[10]), (melt_ptr_t)(/*_.SUPANCDATA__V97*/ curfptr[82]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4890:/ clear");
+      /*clear*/ /*_.INST___V94*/ curfptr[78] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4890:/ clear");
+      /*clear*/ /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4890:/ clear");
+      /*clear*/ /*_.SUPANCDATA__V97*/ curfptr[82] = 0 ;}
+     ;
+     /*_#I__L33*/ curfnum[17] = 
+      ((/*_#IX__L11*/ curfnum[10]) + (1));;
+     MELT_LOCATION("warmelt-normal.melt:4901:/ compute");
+     /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L34*/ curfnum[24] = /*_#I__L33*/ curfnum[17];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
+     /*clear*/ /*_#I__L31*/ curfnum[26] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
+     /*clear*/ /*_#I__L32*/ curfnum[16] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
+     /*clear*/ /*_#I__L33*/ curfnum[17] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
+     /*clear*/ /*_#SETQ___L34*/ curfnum[24] = 0 ;}
+    ;
+    ;
+     goto labloop_LOOPANCESTORSUPER_1;
+     labexit_LOOPANCESTORSUPER_1:;MELT_LOCATION("warmelt-normal.melt:4888:/ loopepilog");
+   /*loopepilog*/
+    /*_.FOREVER___V92*/ curfptr[76] = /*_.LOOPANCESTORSUPER__V93*/ curfptr[77];;
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4904:/ cond");
+   /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4904:/ cond.then");
+   MELT_LOCATION("warmelt-normal.melt:4904:/ block");
+    /*block*/{
+     /*_#I__L35*/ curfnum[26] = 
+      ((/*_#NBANC__L7*/ curfnum[6]) - (1));;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:4904:/ locexp");
+     meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#I__L35*/ curfnum[26]), (melt_ptr_t)(/*_.SUPERDATA__V43*/ curfptr[42]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:4904:/ clear");
+     /*clear*/ /*_#I__L35*/ curfnum[26] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*_.LET___V21*/ curfptr[19] = /*_.CLADATA__V31*/ curfptr[30];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.CLAOBJ__V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NAMSYMDATA__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NAMSTRDATA__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#OBJ_LEN__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.CLASLOTS__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#OBJ_HASH__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.CLADATA__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ANCSEQ__V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#NBANC__L7*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ANCTUP__V34*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ANCDATA__V36*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FLDSEQ__V38*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#NBFLD__L8*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#NBOWNFLD__L9*/ curfnum[8] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#NBSUPFLD__L10*/ curfnum[9] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#IX__L11*/ curfnum[10] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FLDTUP__V39*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V40*/ curfptr[39] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FLDDATA__V41*/ curfptr[40] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.SUPERDATA__V43*/ curfptr[42] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.IFCPP___V46*/ curfptr[43] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V48*/ curfptr[44] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V49*/ curfptr[48] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V50*/ curfptr[49] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V51*/ curfptr[50] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FILL_DATA_SLOT__V52*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FILL_DATA_SLOT__V53*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FILL_DATA_SLOT__V54*/ curfptr[53] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#SETQ___L15*/ curfnum[12] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FOREVER___V57*/ curfptr[55] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#SETQ___L19*/ curfnum[15] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FOREVER___V64*/ curfptr[58] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.IF___V90*/ curfptr[73] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_#SETQ___L30*/ curfnum[25] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
+   /*clear*/ /*_.FOREVER___V92*/ curfptr[76] = 0 ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.LET___V21*/ curfptr[19];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.SPREDEF__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.SCLABIND__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.SUPERBIND__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.SFLDBINDS__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
+  /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4756:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:4756:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFCLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_131_warmelt_normal_NORMEXP_DEFCLASS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 64
+  void* varptr[64];
+#define CURFRAM_NBVARNUM 20
+  long varnum[20];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<64; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 64;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFINSTANCE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4915:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4916:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4916:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINSTANCE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:4916:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4916:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4916:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4916:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4916:/ locexp");
+      melt_assert_failed(( "check definstance recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4916)?(4916):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4916:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4916:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4916:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4917:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4917:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4917:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4917:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4917:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4917:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4917:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4917)?(4917):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4917:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4917:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4917:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4918:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4918:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:4918:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4918:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4918:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4918:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4918:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4918)?(4918):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4918:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4918:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4918:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4919:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4919:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4919:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_definstance recv";
+    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
+    argtab[3].bp_long = 4919;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4919:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4919:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4919:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4920:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4920:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4921:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4922:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4923:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDOCSTR__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4924:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4925:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; };
+  ;
+  /*_#IS_A__L5*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:4926:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4926:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4926:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4926:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; };
+    ;
+    /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4926:/ clear");
+    /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4926:/ cond.else");
+  
+   /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4927:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4928:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; };
+  ;
+  /*_.NBINDLIST__V25*/ curfptr[24] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  /*_.NBINDBOX__V26*/ curfptr[25] = 
+   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]));;
+  MELT_LOCATION("warmelt-normal.melt:4931:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4931:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
+   /*_.BINDINS__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4932:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:4932:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:4932:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   /*_.NAMDATA__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_A__L6*/ curfnum[5] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+  MELT_LOCATION("warmelt-normal.melt:4934:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4934:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4934:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4935:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     /*_.NORMAL_EXP__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.ICLADATA__V29*/ curfptr[28] = /*_.NORMAL_EXP__V30*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4934:/ clear");
+    /*clear*/ /*_.NORMAL_EXP__V30*/ curfptr[29] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4934:/ cond.else");
+  
+   /*_.ICLADATA__V29*/ curfptr[28] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4937:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4937:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:4937:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_definstance bindins";
+     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
+     argtab[3].bp_long = 4937;
+     /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4937:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4937:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4937:/ cppif.else");
+  /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4938:/ block");
+   /*block*/{
+    /*_#IS_A__L8*/ curfnum[6] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[11])));;
+    MELT_LOCATION("warmelt-normal.melt:4938:/ cond");
+    /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4938:/ cond.then");
+    /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4938:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4938:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4938:/ locexp");
+       melt_assert_failed(( "check bindins"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4938)?(4938):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V33*/ curfptr[31] = /*_.IFELSE___V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4938:/ clear");
+    /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4938:/ clear");
+    /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.else");
+  /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L9*/ curfnum[6] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));;
+  /*_#NOT__L10*/ curfnum[9] = 
+   (!(/*_#IS_A__L9*/ curfnum[6]));;
+  MELT_LOCATION("warmelt-normal.melt:4939:/ cond");
+  /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4939:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:4939:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4941:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:4941:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in definstance"), (melt_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4942:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-normal.melt:4942:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4940:/ block");
+    /*block*/{
+     /*_.PROGN___V38*/ curfptr[37] = /*_.RETURN___V37*/ curfptr[36];;}
+    ;
+    /*_.IF___V35*/ curfptr[33] = /*_.PROGN___V38*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4939:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4939:/ clear");
+    /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4939:/ clear");
+    /*clear*/ /*_.PROGN___V38*/ curfptr[37] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:4939:/ cond.else");
+  
+   /*_.IF___V35*/ curfptr[33] = NULL;;
+   }
+  ;
+  /*_#NULL__L11*/ curfnum[10] = 
+   ((/*_.SPREDEF__V17*/ curfptr[16]) == NULL);;
+  MELT_LOCATION("warmelt-normal.melt:4944:/ cond");
+  /*cond*/ if (/*_#NULL__L11*/ curfnum[10]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:4944:/ cond.then");
+  /*_.IFELSE___V39*/ curfptr[35] = (/*nil*/NULL);;
+  } else {MELT_LOCATION("warmelt-normal.melt:4944:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:4944:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L12*/ curfnum[11] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-normal.melt:4945:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L12*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4945:/ cond.then");
+    /*_.IFELSE___V40*/ curfptr[36] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4945:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4945:/ block");
+     /*block*/{
+      /*_#IS_A__L13*/ curfnum[12] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+      MELT_LOCATION("warmelt-normal.melt:4946:/ cond");
+      /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:4946:/ cond.then");
+      /*_.IFELSE___V41*/ curfptr[37] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:4946:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:4946:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:4948:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[41] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-normal.melt:4948:/ locexp");
+        melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in DEFINSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[41]));}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4949:/ block");
+        /*block*/{
+         /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+         MELT_LOCATION("warmelt-normal.melt:4949:/ finalreturn");
+         ;
+         /*finalret*/ goto labend_rout ;}
+        ;
+        MELT_LOCATION("warmelt-normal.melt:4947:/ block");
+        /*block*/{
+         /*_.PROGN___V44*/ curfptr[43] = /*_.RETURN___V43*/ curfptr[42];;}
+        ;
+        /*_.IFELSE___V41*/ curfptr[37] = /*_.PROGN___V44*/ curfptr[43];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:4946:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[41] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4946:/ clear");
+        /*clear*/ /*_.RETURN___V43*/ curfptr[42] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:4946:/ clear");
+        /*clear*/ /*_.PROGN___V44*/ curfptr[43] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V40*/ curfptr[36] = /*_.IFELSE___V41*/ curfptr[37];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4945:/ clear");
+      /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4945:/ clear");
+      /*clear*/ /*_.IFELSE___V41*/ curfptr[37] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[36];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4944:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L12*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4944:/ clear");
+    /*clear*/ /*_.IFELSE___V40*/ curfptr[36] = 0 ;}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4950:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4950:/ block");
+   /*block*/{
+    /*_#IS_A__L14*/ curfnum[12] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));;
+    MELT_LOCATION("warmelt-normal.melt:4950:/ cond");
+    /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4950:/ cond.then");
+    /*_.IFELSE___V46*/ curfptr[42] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4950:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4950:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4950:/ locexp");
+       melt_assert_failed(( "check sinstclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4950)?(4950):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V46*/ curfptr[42] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V45*/ curfptr[41] = /*_.IFELSE___V46*/ curfptr[42];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4950:/ clear");
+    /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4950:/ clear");
+    /*clear*/ /*_.IFELSE___V46*/ curfptr[42] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4950:/ cppif.else");
+  /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4951:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4951:/ block");
+   /*block*/{
+    /*_#IS_A__L15*/ curfnum[11] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+    MELT_LOCATION("warmelt-normal.melt:4951:/ cond");
+    /*cond*/ if (/*_#IS_A__L15*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4951:/ cond.then");
+    /*_.IFELSE___V48*/ curfptr[37] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4951:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4951:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4951:/ locexp");
+       melt_assert_failed(( "check sinstclasym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4951)?(4951):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V48*/ curfptr[37] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V47*/ curfptr[43] = /*_.IFELSE___V48*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4951:/ clear");
+    /*clear*/ /*_#IS_A__L15*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4951:/ clear");
+    /*clear*/ /*_.IFELSE___V48*/ curfptr[37] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4951:/ cppif.else");
+  /*_.IFCPP___V47*/ curfptr[43] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4952:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4954:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V50*/ curfptr[42] = slot; };
+   ;
+   /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V50*/ curfptr[42])));;
+   /*_.SLOTUP__V51*/ curfptr[37] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L16*/ curfnum[12])));;
+   /*_#NONZERO_HASH__L17*/ curfnum[11] = 
+    (melt_nonzerohash());;
+   /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[16])), (/*_#NONZERO_HASH__L17*/ curfnum[11])));;
+   MELT_LOCATION("warmelt-normal.melt:4955:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4955:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V54*/ curfptr[53] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.ICLADATA__V29*/ curfptr[28]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (7), (/*_.MAKE_INTEGERBOX__V52*/ curfptr[51]), "NINST_HASH");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (8), (/*_.SLOTUP__V51*/ curfptr[37]), "NINST_SLOTS");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM");
+    ;
+    /*_.INSDATA__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4965:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4965:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V53*/ curfptr[52];
+    /*_.ADD_NCTX_DATA__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4966:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4966:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDINS__V27*/ curfptr[26];
+    /*_.PUT_ENV__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4967:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4967:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.BINDINS__V27*/ curfptr[26]), (1), (/*_.INSDATA__V53*/ curfptr[52]), "FIXBIND_DATA");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4967:/ touch");
+    meltgc_touch(/*_.BINDINS__V27*/ curfptr[26]);
+    ;
+    /*epilog*/}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4973:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4973:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (6));
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[3] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[4] = (melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[37]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[5] = (melt_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]);
+    ;
+    /*_.LAMBDA___V57*/ curfptr[56] = /*_.LAMBDA___V58*/ curfptr[57];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4971:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4971:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[56];
+    /*_.MULTIPLE_EVERY__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4995:/ block");
+   /*block*/{
+    /*_.THEBINDLIST__V61*/ curfptr[60] = 
+     melt_box_content((meltbox_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]));;
+    MELT_LOCATION("warmelt-normal.melt:4996:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4996:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
+     /*_.NBINDTUP__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.THEBINDLIST__V61*/ curfptr[60]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V62*/ curfptr[61])));;
+    /*_#I__L19*/ curfnum[18] = 
+     ((/*_#MULTIPLE_LENGTH__L18*/ curfnum[17]) > (0));;
+    MELT_LOCATION("warmelt-normal.melt:4998:/ cond");
+    /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4998:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:4998:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4999:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:4999:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NDATA_LOCBIND", melt_magic_discr((melt_ptr_t)(/*_.INSDATA__V53*/ curfptr[52])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INSDATA__V53*/ curfptr[52]), (4), (/*_.NBINDTUP__V62*/ curfptr[61]), "NDATA_LOCBIND");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4999:/ touch");
+       meltgc_touch(/*_.INSDATA__V53*/ curfptr[52]);
+       ;
+       /*epilog*/}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5001:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5001:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5001:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_definstance return insdata";
+       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
+       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
+       argtab[3].bp_long = 5001;
+       /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5001:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5001:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5001:/ cppif.else");
+    /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V60*/ curfptr[59] = /*_.INSDATA__V53*/ curfptr[52];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
+    /*clear*/ /*_.THEBINDLIST__V61*/ curfptr[60] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
+    /*clear*/ /*_.NBINDTUP__V62*/ curfptr[61] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
+    /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
+    /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;}
+   ;
+   /*_.LET___V49*/ curfptr[36] = /*_.LET___V60*/ curfptr[59];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.CLASS_FIELDS__V50*/ curfptr[42] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.SLOTUP__V51*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[11] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.INSDATA__V53*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.PUT_ENV__V56*/ curfptr[55] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.LAMBDA___V57*/ curfptr[56] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
+   /*clear*/ /*_.LET___V60*/ curfptr[59] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V49*/ curfptr[36];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.NBINDLIST__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.NBINDBOX__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.BINDINS__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.NAMDATA__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.ICLADATA__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.IF___V35*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_#NULL__L11*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.IFELSE___V39*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.IFCPP___V47*/ curfptr[43] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
+  /*clear*/ /*_.LET___V49*/ curfptr[36] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:4915:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:4915:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFINSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_133_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_133_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 23
+  void* varptr[23];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<23; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 23;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:4973:/ getarg");
+ /*_.FLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:4973:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:4973:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4974:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4974:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:4974:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_definstance flda";
+    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
+    argtab[3].bp_long = 4974;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4974:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4974:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4974:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:4975:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:4975:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:4975:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:4975:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:4975:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:4975:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:4975:/ locexp");
+      melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4975)?(4975):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4975:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:4975:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:4975:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:4976:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:4976:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:4977:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#CUROFF__L4*/ curfnum[1] = 
+   (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V7*/ curfptr[5])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4980:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4980:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-normal.melt:4980:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4980:/ cond.then");
+    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4980:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4980:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4980:/ locexp");
+       melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4980)?(4980):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4980:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4980:/ clear");
+    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4980:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4981:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4981:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:4982:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V12*/ curfptr[11] = slot; };
+    ;
+    /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V12*/ curfptr[11]), (/*_#CUROFF__L4*/ curfnum[1])));;
+    /*_#__L6*/ curfnum[4] = 
+     ((/*_.MULTIPLE_NTH__V13*/ curfptr[12]) == (/*_.CURFLD__V7*/ curfptr[5]));;
+    MELT_LOCATION("warmelt-normal.melt:4981:/ cond");
+    /*cond*/ if (/*_#__L6*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4981:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:4981:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:4981:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4981:/ locexp");
+       melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (4981)?(4981):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
+    /*clear*/ /*_.CLASS_FIELDS__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
+    /*clear*/ /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
+    /*clear*/ /*_#__L6*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4981:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:4984:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:4984:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:4984:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_definstance field curexp";
+     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
+     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
+     argtab[3].bp_long = 4984;
+     /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4984:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4984:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:4984:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:4985:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]);
+    MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12];MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.send");
+    /*_.NCUR__V17*/ curfptr[13] =  meltgc_send ((melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:4985:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:4988:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:4988:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:4988:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_definstance field ncur";
+       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4];
+       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
+       argtab[3].bp_long = 4988;
+       /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCUR__V17*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:4988:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:4988:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:4988:/ cppif.else");
+    /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:4989:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L4*/ curfnum[1]), (melt_ptr_t)(/*_.NCUR__V17*/ curfptr[13]));}
+    ;
+    /*_#IS_LIST__L9*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V18*/ curfptr[12])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-normal.melt:4990:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:4990:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:4990:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:4991:/ block");
+      /*block*/{
+       /*_.THEBINDLIST__V21*/ curfptr[19] = 
+        melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));;
+       MELT_LOCATION("warmelt-normal.melt:4992:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[1];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:4992:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12];
+        /*_.LIST_APPEND2LIST__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.THEBINDLIST__V21*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:4992:/ compute");
+       /*_.THEBINDLIST__V21*/ curfptr[19] = /*_.SETQ___V23*/ curfptr[22] = /*_.LIST_APPEND2LIST__V22*/ curfptr[21];;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:4993:/ locexp");
+       meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V21*/ curfptr[19]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:4991:/ clear");
+       /*clear*/ /*_.THEBINDLIST__V21*/ curfptr[19] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4991:/ clear");
+       /*clear*/ /*_.LIST_APPEND2LIST__V22*/ curfptr[21] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:4991:/ clear");
+       /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:4985:/ clear");
+    /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:4985:/ clear");
+    /*clear*/ /*_#IS_LIST__L9*/ curfnum[4] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:4985:/ clear");
+   /*clear*/ /*_.NBINDCUR__V18*/ curfptr[12] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
+  /*clear*/ /*_.CURFLD__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
+  /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
+  /*clear*/ /*_#CUROFF__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:4973:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:4973:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_133_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 78
+  void* varptr[78];
+#define CURFRAM_NBVARNUM 27
+  long varnum[27];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<78; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 78;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_DEFSELECTOR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5009:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5010:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5010:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5010:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5010:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5010:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5010:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5010:/ locexp");
+      melt_assert_failed(( "check defselector recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5010)?(5010):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5010:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5010:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5010:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5011:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5011:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5011:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5011:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5011:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5011:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5011:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5011)?(5011):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5011:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5011:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5011:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5012:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5012:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5012:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5012:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5012:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5012:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5012:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5012)?(5012):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5012:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5012:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5012:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5013:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5013:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5013:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp defselector recv";
+    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
+    argtab[3].bp_long = 5013;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5013:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5013:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5013:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5014:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5015:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5016:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5017:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5018:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDOCSTR__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5019:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5020:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; };
+  ;
+  /*_#IS_A__L5*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:5021:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5021:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5021:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5021:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; };
+    ;
+    /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5021:/ clear");
+    /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5021:/ cond.else");
+  
+   /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5022:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5023:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5024:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 9, "SDEFSEL_FORMALS");/*_.SFORMALS__V25*/ curfptr[24] = slot; };
+  ;
+  /*_.NBINDLIST__V26*/ curfptr[25] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
+  /*_.NBINDBOX__V27*/ curfptr[26] = 
+   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NBINDLIST__V26*/ curfptr[25]));;
+  MELT_LOCATION("warmelt-normal.melt:5027:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5027:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
+   /*_.BINDSEL__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5028:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5028:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:5028:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   /*_.NAMDATA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_A__L6*/ curfnum[5] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+  MELT_LOCATION("warmelt-normal.melt:5030:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5030:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5030:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5031:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     /*_.NORMAL_EXP__V31*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.ICLADATA__V30*/ curfptr[29] = /*_.NORMAL_EXP__V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5030:/ clear");
+    /*clear*/ /*_.NORMAL_EXP__V31*/ curfptr[30] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5030:/ cond.else");
+  
+   /*_.ICLADATA__V30*/ curfptr[29] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5033:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5033:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[6] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));;
+    MELT_LOCATION("warmelt-normal.melt:5033:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5033:/ cond.then");
+    /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5033:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5033:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5033:/ locexp");
+       melt_assert_failed(( "check bindsel"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5033)?(5033):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5033:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5033:/ clear");
+    /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5033:/ cppif.else");
+  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L8*/ curfnum[6] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));;
+  /*_#NOT__L9*/ curfnum[8] = 
+   (!(/*_#IS_A__L8*/ curfnum[6]));;
+  MELT_LOCATION("warmelt-normal.melt:5034:/ cond");
+  /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5034:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5034:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5036:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5036:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in defselector"), (melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5037:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+     MELT_LOCATION("warmelt-normal.melt:5037:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5035:/ block");
+    /*block*/{
+     /*_.PROGN___V37*/ curfptr[36] = /*_.RETURN___V36*/ curfptr[35];;}
+    ;
+    /*_.IF___V34*/ curfptr[32] = /*_.PROGN___V37*/ curfptr[36];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5034:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5034:/ clear");
+    /*clear*/ /*_.RETURN___V36*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5034:/ clear");
+    /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5034:/ cond.else");
+  
+   /*_.IF___V34*/ curfptr[32] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5038:/ cond");
+  /*cond*/ if (/*_.SPREDEF__V17*/ curfptr[16]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5038:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5038:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L10*/ curfnum[9] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-normal.melt:5039:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L10*/ curfnum[9]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5039:/ cond.then");
+    /*_#OR___L11*/ curfnum[10] = /*_#IS_INTEGERBOX__L10*/ curfnum[9];;
+    } else {MELT_LOCATION("warmelt-normal.melt:5039:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5039:/ block");
+     /*block*/{
+      /*_#IS_A__L12*/ curfnum[11] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+      /*_#OR___L11*/ curfnum[10] = /*_#IS_A__L12*/ curfnum[11];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
+      /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;}
+     ;
+     }
+    ;
+    /*_#NOT__L13*/ curfnum[11] = 
+     (!(/*_#OR___L11*/ curfnum[10]));;
+    MELT_LOCATION("warmelt-normal.melt:5039:/ cond");
+    /*cond*/ if (/*_#NOT__L13*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5039:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5039:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5040:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[36] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5040:/ locexp");
+      melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in defselector"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[36]));}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5041:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
+       MELT_LOCATION("warmelt-normal.melt:5041:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5040:/ block");
+      /*block*/{
+       /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[40];;}
+      ;
+      /*_.IF___V39*/ curfptr[35] = /*_.PROGN___V42*/ curfptr[41];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[36] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
+      /*clear*/ /*_.RETURN___V41*/ curfptr[40] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
+      /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:5039:/ cond.else");
+    
+     /*_.IF___V39*/ curfptr[35] = NULL;;
+     }
+    ;
+    /*_.IF___V38*/ curfptr[34] = /*_.IF___V39*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L10*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
+    /*clear*/ /*_#OR___L11*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
+    /*clear*/ /*_#NOT__L13*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
+    /*clear*/ /*_.IF___V39*/ curfptr[35] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5038:/ cond.else");
+  
+   /*_.IF___V38*/ curfptr[34] = NULL;;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5042:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5042:/ block");
+   /*block*/{
+    /*_#IS_A__L14*/ curfnum[9] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));;
+    MELT_LOCATION("warmelt-normal.melt:5042:/ cond");
+    /*cond*/ if (/*_#IS_A__L14*/ curfnum[9]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5042:/ cond.then");
+    /*_.IFELSE___V44*/ curfptr[40] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5042:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5042:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5042:/ locexp");
+       melt_assert_failed(( "check sinstclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5042)?(5042):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V44*/ curfptr[40] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V43*/ curfptr[36] = /*_.IFELSE___V44*/ curfptr[40];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5042:/ clear");
+    /*clear*/ /*_#IS_A__L14*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5042:/ clear");
+    /*clear*/ /*_.IFELSE___V44*/ curfptr[40] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5042:/ cppif.else");
+  /*_.IFCPP___V43*/ curfptr[36] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5043:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5043:/ block");
+   /*block*/{
+    /*_#IS_A__L15*/ curfnum[10] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+    MELT_LOCATION("warmelt-normal.melt:5043:/ cond");
+    /*cond*/ if (/*_#IS_A__L15*/ curfnum[10]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5043:/ cond.then");
+    /*_.IFELSE___V46*/ curfptr[35] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5043:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5043:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5043:/ locexp");
+       melt_assert_failed(( "check sinstclasym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5043)?(5043):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V46*/ curfptr[35] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V45*/ curfptr[41] = /*_.IFELSE___V46*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5043:/ clear");
+    /*clear*/ /*_#IS_A__L15*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5043:/ clear");
+    /*clear*/ /*_.IFELSE___V46*/ curfptr[35] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5043:/ cppif.else");
+  /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5044:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5044:/ block");
+   /*block*/{
+    /*_#IS_A__L16*/ curfnum[11] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
+    MELT_LOCATION("warmelt-normal.melt:5044:/ cond");
+    /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5044:/ cond.then");
+    /*_.IFELSE___V48*/ curfptr[35] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5044:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5044:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5044:/ locexp");
+       melt_assert_failed(( "check sname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5044)?(5044):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V48*/ curfptr[35] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V47*/ curfptr[40] = /*_.IFELSE___V48*/ curfptr[35];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5044:/ clear");
+    /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5044:/ clear");
+    /*clear*/ /*_.IFELSE___V48*/ curfptr[35] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5044:/ cppif.else");
+  /*_.IFCPP___V47*/ curfptr[40] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5045:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5047:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V50*/ curfptr[49] = slot; };
+   ;
+   /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V50*/ curfptr[49])));;
+   /*_.SLOTUP__V51*/ curfptr[50] = 
+    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L17*/ curfnum[9])));;
+   MELT_LOCATION("warmelt-normal.melt:5050:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg");
+    argtab[2].bp_cstring =  "discr_string";
+    /*_.NORMAL_PREDEF__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5051:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[52] = slot; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5048:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5048:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V55*/ curfptr[54] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5048:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5048:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.NORMAL_PREDEF__V52*/ curfptr[51]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5048:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (5), (/*_.NAMED_NAME__V53*/ curfptr[52]), "NSTR_STRING");
+    ;
+    /*_.NAMSTRDATA__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;}
+   ;
+   /*_#NONZERO_HASH__L18*/ curfnum[10] = 
+    (melt_nonzerohash());;
+   /*_.MAKE_INTEGERBOX__V56*/ curfptr[55] = 
+    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[19])), (/*_#NONZERO_HASH__L18*/ curfnum[10])));;
+   MELT_LOCATION("warmelt-normal.melt:5052:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5052:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[18])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V58*/ curfptr[57] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), (/*_.ICLADATA__V30*/ curfptr[29]), "NDATA_DISCRX");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (7), (/*_.MAKE_INTEGERBOX__V56*/ curfptr[55]), "NINST_HASH");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (8), (/*_.SLOTUP__V51*/ curfptr[50]), "NINST_SLOTS");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM");
+    ;
+    /*_.INSDATA__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;}
+   ;
+   /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = 
+    (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24])));;
+   /*_#I__L20*/ curfnum[19] = 
+    ((/*_#MULTIPLE_LENGTH__L19*/ curfnum[11]) * (2));;
+   /*_#I__L21*/ curfnum[20] = 
+    ((3) + (/*_#I__L20*/ curfnum[19]));;
+   /*_.FORMSYMBMAP__V59*/ curfptr[58] = 
+    (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[20])), (/*_#I__L21*/ curfnum[20])));;
+   MELT_LOCATION("warmelt-normal.melt:5062:/ cond");
+   /*cond*/ if (/*_.SFORMALS__V25*/ curfptr[24]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5062:/ cond.then");
+   MELT_LOCATION("warmelt-normal.melt:5062:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5063:/ block");
+     /*block*/{
+      /*_#NBFORMALS__L22*/ curfnum[21] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24])));;
+      /*_.NFORMALTUPLE__V62*/ curfptr[61] = 
+       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#NBFORMALS__L22*/ curfnum[21])));;
+      MELT_LOCATION("warmelt-normal.melt:5069:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+       MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+       MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg");
+       argtab[2].bp_cstring =  "discr_multiple";
+       /*_.NORMAL_PREDEF__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5065:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5065:/ rawallocobj");
+       /*rawallocobj*/ { melt_ptr_t newobj = 0;
+        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[21])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V65*/ curfptr[64] =
+        newobj; };
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), (/*_.NORMAL_PREDEF__V63*/ curfptr[62]), "NDATA_DISCRX");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (5), (/*_.NFORMALTUPLE__V62*/ curfptr[61]), "NTUP_COMP");
+       ;
+       /*_.NFORMDATA__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;}
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5072:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[5];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFORMALTUPLE__V62*/ curfptr[61];
+       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V59*/ curfptr[58];
+       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
+       argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
+       argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+       /*_.FILL_NORMAL_FORMALS__V66*/ curfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5073:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5073:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V64*/ curfptr[63];
+       /*_.ADD_NCTX_DATA__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5074:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5074:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!SDEFSEL_FORMALS*/ curfrout->tabval[25]);
+       MELT_LOCATION("warmelt-normal.melt:5074:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V64*/ curfptr[63];
+       /*_.FILL_DATA_SLOT__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.LET___V61*/ curfptr[60] = /*_.NFORMALTUPLE__V62*/ curfptr[61];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_#NBFORMALS__L22*/ curfnum[21] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_.NFORMALTUPLE__V62*/ curfptr[61] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_.NORMAL_PREDEF__V63*/ curfptr[62] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_.NFORMDATA__V64*/ curfptr[63] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_.FILL_NORMAL_FORMALS__V66*/ curfptr[65] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_.ADD_NCTX_DATA__V67*/ curfptr[66] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
+      /*clear*/ /*_.FILL_DATA_SLOT__V68*/ curfptr[67] = 0 ;}
+     ;
+     /*_.NFORMTUP__V60*/ curfptr[59] = /*_.LET___V61*/ curfptr[60];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5062:/ clear");
+     /*clear*/ /*_.LET___V61*/ curfptr[60] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-normal.melt:5062:/ cond.else");
+   
+    /*_.NFORMTUP__V60*/ curfptr[59] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5078:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5078:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V57*/ curfptr[56];
+    /*_.ADD_NCTX_DATA__V69*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5079:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5079:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V54*/ curfptr[53];
+    /*_.ADD_NCTX_DATA__V70*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5080:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5080:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.BINDSEL__V28*/ curfptr[27]), (1), (/*_.INSDATA__V57*/ curfptr[56]), "FIXBIND_DATA");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5080:/ touch");
+    meltgc_touch(/*_.BINDSEL__V28*/ curfptr[27]);
+    ;
+    /*epilog*/}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5086:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5086:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V72*/ curfptr[65] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (6));
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[0] = (melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[3] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[4] = (melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[50]);
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[5] = (melt_ptr_t)(/*_.NBINDBOX__V27*/ curfptr[26]);
+    ;
+    /*_.LAMBDA___V71*/ curfptr[63] = /*_.LAMBDA___V72*/ curfptr[65];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5084:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5084:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V71*/ curfptr[63];
+    /*_.MULTIPLE_EVERY__V73*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5105:/ block");
+   /*block*/{
+    /*_.THEBINDLIST__V75*/ curfptr[60] = 
+     melt_box_content((meltbox_ptr_t)(/*_.NBINDBOX__V27*/ curfptr[26]));;
+    MELT_LOCATION("warmelt-normal.melt:5106:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5106:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
+     /*_.NBINDTUP__V76*/ curfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[32])), (melt_ptr_t)(/*_.THEBINDLIST__V75*/ curfptr[60]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#MULTIPLE_LENGTH__L23*/ curfnum[21] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V76*/ curfptr[75])));;
+    /*_#I__L24*/ curfnum[23] = 
+     ((/*_#MULTIPLE_LENGTH__L23*/ curfnum[21]) > (0));;
+    MELT_LOCATION("warmelt-normal.melt:5108:/ cond");
+    /*cond*/ if (/*_#I__L24*/ curfnum[23]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5108:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5108:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5109:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5109:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @NDATA_LOCBIND", melt_magic_discr((melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.INSDATA__V57*/ curfptr[56]), (4), (/*_.NBINDTUP__V76*/ curfptr[75]), "NDATA_LOCBIND");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5109:/ touch");
+       meltgc_touch(/*_.INSDATA__V57*/ curfptr[56]);
+       ;
+       /*epilog*/}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*_#GET_INT__L25*/ curfnum[24] = 
+     (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[33]))));;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5111:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[50]), (/*_#GET_INT__L25*/ curfnum[24]), (melt_ptr_t)(/*_.NAMSTRDATA__V54*/ curfptr[53]));}
+    ;
+    /*_#IS_A__L26*/ curfnum[25] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));;
+    MELT_LOCATION("warmelt-normal.melt:5112:/ cond");
+    /*cond*/ if (/*_#IS_A__L26*/ curfnum[25]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5112:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5112:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5113:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5113:/ putslot");
+       /*putslot*/
+       melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27])) == OBMAG_OBJECT);
+       melt_putfield_object((/*_.BINDSEL__V28*/ curfptr[27]), (1), (/*_.INSDATA__V57*/ curfptr[56]), "FIXBIND_DATA");
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5113:/ touch");
+       meltgc_touch(/*_.BINDSEL__V28*/ curfptr[27]);
+       ;
+       /*epilog*/}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5117:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5117:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5117:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_defselector return insdata";
+       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[26];
+       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
+       argtab[3].bp_long = 5117;
+       /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5117:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5117:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5117:/ cppif.else");
+    /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V74*/ curfptr[67] = /*_.INSDATA__V57*/ curfptr[56];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_.THEBINDLIST__V75*/ curfptr[60] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_.NBINDTUP__V76*/ curfptr[75] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ curfnum[21] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_#GET_INT__L25*/ curfnum[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_#IS_A__L26*/ curfnum[25] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
+    /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;}
+   ;
+   /*_.LET___V49*/ curfptr[35] = /*_.LET___V74*/ curfptr[67];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.CLASS_FIELDS__V50*/ curfptr[49] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.SLOTUP__V51*/ curfptr[50] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.NORMAL_PREDEF__V52*/ curfptr[51] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[52] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.NAMSTRDATA__V54*/ curfptr[53] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_#NONZERO_HASH__L18*/ curfnum[10] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[55] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.INSDATA__V57*/ curfptr[56] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.FORMSYMBMAP__V59*/ curfptr[58] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.NFORMTUP__V60*/ curfptr[59] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V69*/ curfptr[61] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.ADD_NCTX_DATA__V70*/ curfptr[62] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.LAMBDA___V71*/ curfptr[63] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.MULTIPLE_EVERY__V73*/ curfptr[66] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
+   /*clear*/ /*_.LET___V74*/ curfptr[67] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V49*/ curfptr[35];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.SFORMALS__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.NBINDLIST__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.NBINDBOX__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.BINDSEL__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.NAMDATA__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.ICLADATA__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.IF___V34*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.IF___V38*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.IFCPP___V43*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.IFCPP___V47*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
+  /*clear*/ /*_.LET___V49*/ curfptr[35] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5009:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5009:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_DEFSELECTOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_135_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_135_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5086:/ getarg");
+ /*_.FLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5086:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5086:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5087:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5087:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5087:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5087:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5087:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5087:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5087:/ locexp");
+      melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5087)?(5087):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5087:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5087:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5087:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5088:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5088:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V5*/ curfptr[3] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5089:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V6*/ curfptr[5] = slot; };
+  ;
+  /*_#CUROFF__L3*/ curfnum[1] = 
+   (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V5*/ curfptr[3])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5092:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5092:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-normal.melt:5092:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5092:/ cond.then");
+    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5092:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5092:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5092:/ locexp");
+       melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5092)?(5092):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5092:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5092:/ clear");
+    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5092:/ cppif.else");
+  /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5093:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5093:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5094:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V10*/ curfptr[9] = slot; };
+    ;
+    /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 
+     (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V10*/ curfptr[9]), (/*_#CUROFF__L3*/ curfnum[1])));;
+    /*_#__L5*/ curfnum[3] = 
+     ((/*_.MULTIPLE_NTH__V11*/ curfptr[10]) == (/*_.CURFLD__V5*/ curfptr[3]));;
+    MELT_LOCATION("warmelt-normal.melt:5093:/ cond");
+    /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5093:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5093:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5093:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5093:/ locexp");
+       melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5093)?(5093):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
+    /*clear*/ /*_.CLASS_FIELDS__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
+    /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
+    /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5093:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5096:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]);
+    MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10];MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.send");
+    /*_.NCUR__V13*/ curfptr[9] =  meltgc_send ((melt_ptr_t)(/*_.CUREXP__V6*/ curfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5096:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5099:/ locexp");
+    meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L3*/ curfnum[1]), (melt_ptr_t)(/*_.NCUR__V13*/ curfptr[9]));}
+    ;
+    /*_#IS_LIST__L6*/ curfnum[3] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V14*/ curfptr[10])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-normal.melt:5100:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5100:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5100:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5101:/ block");
+      /*block*/{
+       /*_.THEBINDLIST__V15*/ curfptr[11] = 
+        melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));;
+       MELT_LOCATION("warmelt-normal.melt:5102:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[1];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5102:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10];
+        /*_.LIST_APPEND2LIST__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5102:/ compute");
+       /*_.THEBINDLIST__V15*/ curfptr[11] = /*_.SETQ___V17*/ curfptr[16] = /*_.LIST_APPEND2LIST__V16*/ curfptr[15];;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5103:/ locexp");
+       meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ curfptr[11]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5101:/ clear");
+       /*clear*/ /*_.THEBINDLIST__V15*/ curfptr[11] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5101:/ clear");
+       /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[15] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5101:/ clear");
+       /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5096:/ clear");
+    /*clear*/ /*_#IS_LIST__L6*/ curfnum[3] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5096:/ clear");
+   /*clear*/ /*_.NBINDCUR__V14*/ curfptr[10] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
+  /*clear*/ /*_.CURFLD__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
+  /*clear*/ /*_.CUREXP__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
+  /*clear*/ /*_#CUROFF__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
+  /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5086:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_135_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_VALUE_EXPORTER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5138:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5139:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5139:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5139:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5139:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5139:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5139:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5139:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5139)?(5139):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5139:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5139:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5139:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5140:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5140:/ block");
+  /*block*/{
+   /*_#IS_LIST__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-normal.melt:5140:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5140:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5140:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5140:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5140:/ locexp");
+      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5140)?(5140):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5140:/ clear");
+   /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5140:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5140:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5141:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5141:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5141:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5141:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5141:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5141:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5141:/ locexp");
+      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5141)?(5141):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5141:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5141:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5141:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5142:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5142:/ apply");
+  /*apply*/{
+   /*_.CSYMVALEXP__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[2])), (melt_ptr_t)((/*!konst_3_VALUEXPORTER_*/ curfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5143:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5143:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[4])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5143:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5143:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), ((/*!konst_5_INITIAL_SYSTEM_DATA*/ curfrout->tabval[5])), "NRPREDEF");
+   ;
+   /*_.NSYSDAT__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5150:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5150:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5150:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5150:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.NSYSDAT__V14*/ curfptr[13]), "NUGET_OBJ");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5150:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*!SYSDATA_VALUE_EXPORTER*/ curfrout->tabval[9])), "NUGET_FIELD");
+   ;
+   /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5146:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5146:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V19*/ curfptr[18] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.INST___V16*/ curfptr[15]), "LETBIND_EXPR");
+   ;
+   /*_.CBIND__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5154:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5154:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "NOCC_SYMB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.CBIND__V18*/ curfptr[17]), "NOCC_BIND");
+   ;
+   /*_.LOCSYM__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:5160:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V18*/ curfptr[17]));}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5161:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V20*/ curfptr[19];;
+   MELT_LOCATION("warmelt-normal.melt:5161:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
+  /*clear*/ /*_.CSYMVALEXP__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
+  /*clear*/ /*_.NSYSDAT__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
+  /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
+  /*clear*/ /*_.CBIND__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
+  /*clear*/ /*_.LOCSYM__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
+  /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5138:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
+  MELT_LOCATION("warmelt-normal.melt:5138:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
+ /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_VALUE_EXPORTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 60
+  void* varptr[60];
+#define CURFRAM_NBVARNUM 14
+  long varnum[14];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<60; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 60;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_EXPORTED_VALUE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NVALUEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
+ 
+ 
+ /*getarg#6*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
+ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5173:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5174:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5174:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5174:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_value start sym";
+    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
+    argtab[3].bp_long = 5174;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5174:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5174:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5174:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5175:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5175:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5175:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_value start nexp";
+    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
+    argtab[3].bp_long = 5175;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5175:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5175:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5175:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5176:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5176:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5176:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_value start nvaluexp";
+    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
+    argtab[3].bp_long = 5176;
+    /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5176:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5176:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5176:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5177:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5177:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5177:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5177:/ cond.then");
+   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5177:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5177:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5177:/ locexp");
+      melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5177)?(5177):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5177:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5177:/ clear");
+   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5177:/ cppif.else");
+ /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5178:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5178:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5178:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5178:/ cond.then");
+   /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5178:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5178:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5178:/ locexp");
+      melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5178)?(5178):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5178:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5178:/ clear");
+   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5178:/ cppif.else");
+ /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5179:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5179:/ block");
+  /*block*/{
+   /*_#IS_A__L6*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5179:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5179:/ cond.then");
+   /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5179:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5179:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5179:/ locexp");
+      melt_assert_failed(( "check nvaluexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5179)?(5179):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5179:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5179:/ clear");
+   /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5179:/ cppif.else");
+ /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5180:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5180:/ block");
+  /*block*/{
+   /*_#IS_A__L7*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-normal.melt:5180:/ cond");
+   /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5180:/ cond.then");
+   /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5180:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5180:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5180:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5180)?(5180):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5180:/ clear");
+   /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5180:/ clear");
+   /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5180:/ cppif.else");
+ /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5181:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5181:/ block");
+  /*block*/{
+   /*_#IS_A__L8*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));;
+   MELT_LOCATION("warmelt-normal.melt:5181:/ cond");
+   /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5181:/ cond.then");
+   /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5181:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5181:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5181:/ locexp");
+      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5181)?(5181):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5181:/ clear");
+   /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5181:/ clear");
+   /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5181:/ cppif.else");
+ /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5182:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5182:/ block");
+  /*block*/{
+   /*_#IS_LIST__L9*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-normal.melt:5182:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5182:/ cond.then");
+   /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5182:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5182:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5182:/ locexp");
+      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5182)?(5182):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5182:/ clear");
+   /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5182:/ clear");
+   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5182:/ cppif.else");
+ /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5183:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5183:/ apply");
+  /*apply*/{
+   /*_.CSYMEXPO__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTED_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5184:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5184:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];
+   MELT_LOCATION("warmelt-normal.melt:5184:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
+   /*_.SYMDATA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5185:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 0, "NCTX_INITPROC");/*_.INIPROC__V30*/ curfptr[29] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5186:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 10, "NCTX_CURPROC");/*_.CURPROC__V31*/ curfptr[30] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5187:/ block");
+  /*block*/{
+   /*_.SB__V33*/ curfptr[32] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5188:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ curfptr[32]), ( "norm.exp.val : "));}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5189:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5189:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ curfptr[32]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33])));}
+   ;
+   /*_.LET___V32*/ curfptr[31] = /*_.SB__V33*/ curfptr[32];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5187:/ clear");
+   /*clear*/ /*_.SB__V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5187:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;}
+  ;
+  /*_.CSBUF__V35*/ curfptr[32] = /*_.LET___V32*/ curfptr[31];;
+  /*_.STRBUF2STRING__V36*/ curfptr[33] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ curfptr[32]))));;
+  MELT_LOCATION("warmelt-normal.melt:5191:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5191:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5191:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5191:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ curfptr[33]), "CMEC_COMMENT");
+   ;
+   /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5195:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5195:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5195:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
+     argtab[0].bp_cstring =  "normal_exported_value scurenvbox";
+     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
+     argtab[3].bp_long = 5195;
+     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5195:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5195:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5195:/ cppif.else");
+  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5196:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
+    MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.send");
+    /*_.NCURENVBOX__V42*/ curfptr[41] =  meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5196:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5199:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5199:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5199:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_exported_value ncurenvbox";
+       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
+       argtab[3].bp_long = 5199;
+       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5199:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5199:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5199:/ cppif.else");
+    /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5200:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5200:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5200:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_exported_value curenvbinds";
+       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
+       argtab[3].bp_long = 5200;
+       /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5200:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5200:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5200:/ cppif.else");
+    /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:5202:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5202:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42];
+     /*_.LIST_APPEND2LIST__V48*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5203:/ block");
+    /*block*/{
+     /*_.ARGTUP__V50*/ curfptr[49] = 
+      (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]),  (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41])));;
+     MELT_LOCATION("warmelt-normal.melt:5209:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5209:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V52*/ curfptr[51] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[17])), "NEXPR_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (3), (/*_.NVALUEXP__V4*/ curfptr[3]), "NAPP_FUN");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.ARGTUP__V50*/ curfptr[49]), "NEXPR_ARGS");
+      ;
+      /*_.INST___V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5205:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5205:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V54*/ curfptr[53] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.INST___V51*/ curfptr[50]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5215:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5215:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[18])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V56*/ curfptr[55] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.CBIND__V53*/ curfptr[52]), "NOCC_BIND");
+      ;
+      /*_.SYOCC__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5221:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5221:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5221:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_exported_value cbind";
+        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
+        argtab[3].bp_long = 5221;
+        /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V57*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5221:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5221:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5221:/ cppif.else");
+     /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5222:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5222:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5222:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_exported_value return syocc";
+        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
+        argtab[3].bp_long = 5222;
+        /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V59*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5222:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5222:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5222:/ cppif.else");
+     /*_.IFCPP___V59*/ curfptr[57] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5223:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (melt_ptr_t)(/*_.CBIND__V53*/ curfptr[52]));}
+     ;
+     /*_.LET___V49*/ curfptr[48] = /*_.SYOCC__V55*/ curfptr[54];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
+     /*clear*/ /*_.ARGTUP__V50*/ curfptr[49] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
+     /*clear*/ /*_.INST___V51*/ curfptr[50] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
+     /*clear*/ /*_.CBIND__V53*/ curfptr[52] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
+     /*clear*/ /*_.SYOCC__V55*/ curfptr[54] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
+     /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
+     /*clear*/ /*_.IFCPP___V59*/ curfptr[57] = 0 ;}
+    ;
+    /*_.MULTI___V41*/ curfptr[39] = /*_.LET___V49*/ curfptr[48];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
+    /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
+    /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V48*/ curfptr[46] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
+    /*clear*/ /*_.LET___V49*/ curfptr[48] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
+   /*clear*/ /*_.CURENVBINDS__V43*/ curfptr[42] = 0 ;}
+  ;
+  /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V41*/ curfptr[39];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.INIPROC__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.CURPROC__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.CSBUF__V35*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
+  /*clear*/ /*_.MULTI___V41*/ curfptr[39] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];;
+  MELT_LOCATION("warmelt-normal.melt:5173:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
+ /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_EXPORTED_VALUE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 30
+  void* varptr[30];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<30; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 30;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_EXPORT_VALUES", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5230:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5237:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5237:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5237:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5237:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5237:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5237:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5237:/ locexp");
+      melt_assert_failed(( "check exportval recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5237)?(5237):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5237:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5237:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5237:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5238:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5238:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5238:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5238:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5238:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5238:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5238:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5238)?(5238):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5238:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5238:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5238:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5239:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5239:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5239:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5239:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5239:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5239:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5239:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5239)?(5239):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5239:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5239:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5239:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5240:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5240:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5240:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_export_values recv";
+    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
+    argtab[3].bp_long = 5240;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5240:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5240:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5240:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5241:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5242:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5243:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; };
+  ;
+  /*_.BINDSLIST__V17*/ curfptr[16] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-normal.melt:5245:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16];
+   /*_.NVALUEXPORTER__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5246:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5246:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5246:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5249:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5249:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5249:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_values nvaluexporter";
+     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
+     argtab[3].bp_long = 5249;
+     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5249:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5249:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5249:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5252:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5252:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (5));
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[3] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[4] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]);
+   ;
+   /*_.LAMBDA___V23*/ curfptr[21] = /*_.LAMBDA___V24*/ curfptr[23];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5250:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5250:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[21];
+   /*_.MULTIPLE_EVERY__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5267:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5267:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5267:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_values final nilnrep";
+     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
+     argtab[3].bp_long = 5267;
+     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5267:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5267:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5267:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5268:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5268:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5268:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_values final bindslist";
+     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
+     argtab[3].bp_long = 5268;
+     /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5268:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5268:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5268:/ cppif.else");
+  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5269:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-normal.melt:5269:/ putxtraresult");
+   if (!xrestab_ || !xresdescr_) goto labend_rout;
+   if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+   if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ curfptr[16]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5269:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V30*/ curfptr[28];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.LAMBDA___V23*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
+  /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5230:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5230:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_EXPORT_VALUES", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_139_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_139_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5252:/ getarg");
+ /*_.XNAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5252:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5252:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5253:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5253:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5253:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5253:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5253:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5253:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5253:/ locexp");
+      melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5253)?(5253):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5253:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5253:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5253:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5254:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5254:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5254:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_export_values xnam";
+    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
+    argtab[3].bp_long = 5254;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5254:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5254:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5254:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5255:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend");
+  /*multimsend*/{
+   union meltparam_un argtab[3];
+   union meltparam_un restab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   memset(&restab, 0, sizeof(restab));
+   MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+   MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.xres");
+   restab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8];MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.send");
+   /*_.NSYM__V8*/ curfptr[7] =  meltgc_send ((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5255:/ block");
+  /*block*/{
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:5258:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:5258:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:5258:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_export_values nsym";
+      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
+      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
+      argtab[3].bp_long = 5258;
+      /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NSYM__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5258:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5258:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:5258:/ cppif.else");
+   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:5259:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:5259:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:5259:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_export_values nsymbinds";
+      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
+      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
+      argtab[3].bp_long = 5259;
+      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NSYMBINDS__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5259:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5259:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:5259:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:5260:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5260:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8];
+    /*_.LIST_APPEND2LIST__V14*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:5261:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:5261:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:5261:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_export_values xnam again";
+      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1];
+      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
+      argtab[3].bp_long = 5261;
+      /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5261:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5261:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:5261:/ cppif.else");
+   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:5262:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:5262:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:5262:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_export_values before normal_exported_value bindslist";
+      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1];
+      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
+      argtab[3].bp_long = 5262;
+      /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5262:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5262:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:5262:/ cppif.else");
+   /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:5263:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5263:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[6];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYM__V8*/ curfptr[7];
+     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[4]);
+     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
+     argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
+     argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
+     argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[3]);
+     /*_.NEXPV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5265:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5265:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5265:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_values normal_exported_value gave nexpv";
+       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1];
+       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
+       argtab[3].bp_long = 5265;
+       /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NEXPV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5265:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5265:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5265:/ cppif.else");
+    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_.LET___V19*/ curfptr[17] = /*_.IFCPP___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5263:/ clear");
+    /*clear*/ /*_.NEXPV__V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5263:/ clear");
+    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
+   ;
+   /*_.MULTI___V7*/ curfptr[5] = /*_.LET___V19*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+   /*clear*/ /*_.LIST_APPEND2LIST__V14*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+   /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+   /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
+  /*clear*/ /*_.NSYMBINDS__V9*/ curfptr[8] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5252:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V7*/ curfptr[5];;
+  MELT_LOCATION("warmelt-normal.melt:5252:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5252:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5252:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5252:/ clear");
+ /*clear*/ /*_.MULTI___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_139_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 48
+  void* varptr[48];
+#define CURFRAM_NBVARNUM 14
+  long varnum[14];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<48; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 48;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_EXPORT_SYNONYM", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5276:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5278:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5278:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5278:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5278:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5278:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5278:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5278:/ locexp");
+      melt_assert_failed(( "check exportsyn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5278)?(5278):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5278:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5278:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5278:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5279:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5279:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5279:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5279:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5279:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5279:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5279:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5279)?(5279):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5279:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5279:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5279:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5280:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5280:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5280:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5280:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5280:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5280:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5280:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5280)?(5280):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5280:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5280:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5280:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5281:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5281:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5281:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_export_synonym recv";
+    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
+    argtab[3].bp_long = 5281;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5281:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5281:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5281:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5282:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5283:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5284:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPSYN_NEWNAME");/*_.NEWNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5285:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPSYN_OLDNAME");/*_.OLDNAME__V17*/ curfptr[16] = slot; };
+  ;
+  /*_.BINDSLIST__V18*/ curfptr[17] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-normal.melt:5287:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
+   /*_.NVALUEXPORTER__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5288:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5288:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5288:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   /*_.NILNREP__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5291:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5291:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5291:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_synonym nvaluexporter";
+     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
+     argtab[3].bp_long = 5291;
+     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5291:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5291:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5291:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5292:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5292:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5292:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_synonym newname";
+     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
+     argtab[3].bp_long = 5292;
+     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5292:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5292:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5292:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5293:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5293:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5293:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_synonym oldname";
+     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
+     argtab[3].bp_long = 5293;
+     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5293:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5293:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5293:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5294:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5294:/ block");
+   /*block*/{
+    /*_#IS_A__L8*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-normal.melt:5294:/ cond");
+    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5294:/ cond.then");
+    /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5294:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5294:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5294:/ locexp");
+       melt_assert_failed(( "check newname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5294)?(5294):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5294:/ clear");
+    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5294:/ clear");
+    /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5294:/ cppif.else");
+  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5295:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5295:/ block");
+   /*block*/{
+    /*_#IS_A__L9*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-normal.melt:5295:/ cond");
+    /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5295:/ cond.then");
+    /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5295:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5295:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5295:/ locexp");
+       melt_assert_failed(( "check oldname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5295)?(5295):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5295:/ clear");
+    /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5295:/ clear");
+    /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5295:/ cppif.else");
+  /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5301:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ curfptr[33];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.send");
+    /*_.NOLDSYM__V33*/ curfptr[32] =  meltgc_send ((melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5301:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5304:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5304:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5304:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_synonym noldsym";
+       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
+       argtab[3].bp_long = 5304;
+       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYM__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5304:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5304:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5304:/ cppif.else");
+    /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5305:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5305:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5305:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_synonym noldsymbinds";
+       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
+       argtab[3].bp_long = 5305;
+       /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYMBINDS__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5305:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5305:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5305:/ cppif.else");
+    /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:5306:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5306:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ curfptr[33];
+     /*_.LIST_APPEND2LIST__V39*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5307:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5307:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[6];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYM__V33*/ curfptr[32];
+      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NVALUEXPORTER__V19*/ curfptr[18];
+      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
+      argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
+      argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
+      argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
+      /*_.NEXPV__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5309:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5309:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5309:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_export_synonym normal_exported_value gave nexpv";
+        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
+        argtab[3].bp_long = 5309;
+        /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPV__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5309:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5309:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5309:/ cppif.else");
+     /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5310:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5310:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5310:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_export_synonym final nilnrep";
+        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
+        argtab[3].bp_long = 5310;
+        /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5310:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5310:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5310:/ cppif.else");
+     /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5311:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5311:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5311:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_export_synonym final bindslist";
+        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
+        argtab[3].bp_long = 5311;
+        /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5311:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5311:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5311:/ cppif.else");
+     /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:5312:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V20*/ curfptr[19];;
+      MELT_LOCATION("warmelt-normal.melt:5312:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ curfptr[17]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5312:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V40*/ curfptr[39] = /*_.RETURN___V48*/ curfptr[46];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
+     /*clear*/ /*_.NEXPV__V41*/ curfptr[40] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
+     /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
+     /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
+     /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
+     /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;}
+    ;
+    /*_.MULTI___V32*/ curfptr[30] = /*_.LET___V40*/ curfptr[39];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
+    /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
+    /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V39*/ curfptr[37] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
+    /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
+   /*clear*/ /*_.NOLDSYMBINDS__V34*/ curfptr[33] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V32*/ curfptr[30];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.NEWNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.OLDNAME__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.NVALUEXPORTER__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.NILNREP__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
+  /*clear*/ /*_.MULTI___V32*/ curfptr[30] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5276:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5276:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_EXPORT_SYNONYM", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_EXPORT_CLASS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5319:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5320:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5320:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5320:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5320:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5320:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5320:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5320:/ locexp");
+      melt_assert_failed(( "check export_class recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5320)?(5320):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5320:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5320:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5320:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5321:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5321:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5321:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5321:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5321:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5321:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5321:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5321)?(5321):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5321:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5321:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5321:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5322:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5322:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5322:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5322:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5322:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5322:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5322:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5322)?(5322):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5322:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5322:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5322:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5323:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5323:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5323:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp export_class recv";
+    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
+    argtab[3].bp_long = 5323;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5323:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5323:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5323:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5324:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5325:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5326:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; };
+  ;
+  /*_.BINDSLIST__V17*/ curfptr[16] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-normal.melt:5328:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16];
+   /*_.NVALUEXPORTER__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5329:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5329:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5329:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5331:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MOCX__V21*/ curfptr[20] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5333:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5333:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.MOCX__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-normal.melt:5333:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5333:/ cond.then");
+    /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5333:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5333:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5333:/ locexp");
+       melt_assert_failed(( "check mocx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5333)?(5333):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5333:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5333:/ clear");
+    /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5333:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5336:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5336:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (6));
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[3] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[4] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[5] = (melt_ptr_t)(/*_.MOCX__V21*/ curfptr[20]);
+   ;
+   /*_.LAMBDA___V24*/ curfptr[22] = /*_.LAMBDA___V25*/ curfptr[24];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5334:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5334:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[22];
+   /*_.MULTIPLE_EVERY__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5392:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5392:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5392:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_class final nilnrep";
+     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
+     argtab[3].bp_long = 5392;
+     /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5392:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5392:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5392:/ cppif.else");
+  /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5393:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5393:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5393:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_class final bindslist";
+     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
+     argtab[3].bp_long = 5393;
+     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5393:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5393:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5393:/ cppif.else");
+  /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5394:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];;
+   MELT_LOCATION("warmelt-normal.melt:5394:/ putxtraresult");
+   if (!xrestab_ || !xresdescr_) goto labend_rout;
+   if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+   if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ curfptr[16]);
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5394:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V31*/ curfptr[29];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.MOCX__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.LAMBDA___V24*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
+  /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5319:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5319:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_EXPORT_CLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_142_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_142_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 37
+  void* varptr[37];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<37; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 37;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5336:/ getarg");
+ /*_.XNAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5336:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5336:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5337:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5337:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5337:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5337:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5337:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5337:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5337:/ locexp");
+      melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5337)?(5337):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5337:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5337:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5337:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5338:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5338:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5338:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XNAM__V2*/ curfptr[1];
+   /*_.XBIND__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5339:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5339:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-normal.melt:5339:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+   /*_.XSYMDATA__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5341:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5341:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5341:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_export_class xbind";
+     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
+     argtab[3].bp_long = 5341;
+     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5341:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5341:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5341:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5342:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5342:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.XSYMDATA__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-normal.melt:5342:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5342:/ cond.then");
+    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5342:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5342:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5342:/ locexp");
+       melt_assert_failed(( "check xsymdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5342)?(5342):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5342:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5342:/ clear");
+    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5342:/ cppif.else");
+  /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_NOT_A__L5*/ curfnum[1] = 
+   !melt_is_instance_of((melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[5])));;
+  MELT_LOCATION("warmelt-normal.melt:5343:/ cond");
+  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5343:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5343:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5346:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5345:/ locexp");
+    melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "EXPORT_CLASS with non-class-bound symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5347:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-normal.melt:5347:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5344:/ block");
+    /*block*/{
+     /*_.PROGN___V15*/ curfptr[14] = /*_.RETURN___V14*/ curfptr[13];;}
+    ;
+    /*_.IF___V12*/ curfptr[10] = /*_.PROGN___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5343:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5343:/ clear");
+    /*clear*/ /*_.RETURN___V14*/ curfptr[13] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5343:/ clear");
+    /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5343:/ cond.else");
+  
+   /*_.IF___V12*/ curfptr[10] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5349:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5349:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 1, "FIXBIND_DATA");/*_.XDATA__V17*/ curfptr[13] = slot; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5350:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 3, "CBIND_CLASS");/*_.XCLASS__V18*/ curfptr[14] = slot; };
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:5352:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:5352:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:5352:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_export_class xdata";
+      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
+      argtab[3].bp_long = 5352;
+      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5352:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5352:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:5352:/ cppif.else");
+   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_#IS_NOT_A__L7*/ curfnum[5] = 
+    !melt_is_instance_of((melt_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[6])));;
+   MELT_LOCATION("warmelt-normal.melt:5353:/ cond");
+   /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5353:/ cond.then");
+   MELT_LOCATION("warmelt-normal.melt:5353:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5355:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[19] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5354:/ locexp");
+     melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "forward defined class symbol to EXPORT_CLASS"), (melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[19]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5353:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[19] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5356:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5356:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[6];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XDATA__V17*/ curfptr[13];
+     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[3]);
+     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
+     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
+     argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
+     argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
+     argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[4]);
+     /*_.NCLAV__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5358:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5358:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_class nclav";
+       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
+       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
+       argtab[3].bp_long = 5358;
+       /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCLAV__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5358:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5358:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.else");
+    /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5359:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5359:/ block");
+     /*block*/{
+      /*_#IS_A__L9*/ curfnum[7] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
+      MELT_LOCATION("warmelt-normal.melt:5359:/ cond");
+      /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-normal.melt:5359:/ cond.then");
+      /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-normal.melt:5359:/ cond.else");
+      
+       MELT_LOCATION("warmelt-normal.melt:5359:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-normal.melt:5359:/ locexp");
+         melt_assert_failed(( "check xclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5359)?(5359):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5359:/ clear");
+      /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5359:/ clear");
+      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5359:/ cppif.else");
+    /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:5360:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5360:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 6, "CLASS_FIELDS");/*_.XCLFIELDS__V29*/ curfptr[28] = slot; };
+     ;
+     /*_#OBJECT_LENGTH__L10*/ curfnum[7] = 
+      ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));;
+     /*_#GET_INT__L11*/ curfnum[10] = 
+      (melt_get_int((melt_ptr_t)((/*!MOCX_EXPCLASSDICT*/ curfrout->tabval[9]))));;
+     /*_#I__L12*/ curfnum[11] = 
+      ((/*_#OBJECT_LENGTH__L10*/ curfnum[7]) > (/*_#GET_INT__L11*/ curfnum[10]));;
+     MELT_LOCATION("warmelt-normal.melt:5364:/ cond");
+     /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:5364:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:5364:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5365:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = slot; };
+       ;
+       /*_.EXPCLADIC__V30*/ curfptr[29] = /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5364:/ clear");
+       /*clear*/ /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:5364:/ cond.else");
+     
+      /*_.EXPCLADIC__V30*/ curfptr[29] = NULL;;
+      }
+     ;
+     /*_#OBJECT_LENGTH__L13*/ curfnum[12] = 
+      ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));;
+     /*_#GET_INT__L14*/ curfnum[13] = 
+      (melt_get_int((melt_ptr_t)((/*!MOCX_EXPFIELDICT*/ curfrout->tabval[10]))));;
+     /*_#I__L15*/ curfnum[14] = 
+      ((/*_#OBJECT_LENGTH__L13*/ curfnum[12]) > (/*_#GET_INT__L14*/ curfnum[13]));;
+     MELT_LOCATION("warmelt-normal.melt:5367:/ cond");
+     /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:5367:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:5367:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5368:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = slot; };
+       ;
+       /*_.EXPFLDIC__V32*/ curfptr[30] = /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5367:/ clear");
+       /*clear*/ /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-normal.melt:5367:/ cond.else");
+     
+      /*_.EXPFLDIC__V32*/ curfptr[30] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5370:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[32] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5370:/ locexp");
+     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.EXPCLADIC__V30*/ curfptr[29]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[32])), (melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5373:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5373:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (7));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[1] = (melt_ptr_t)((/*~ENV*/ curfclos->tabval[0]));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[2] = (melt_ptr_t)((/*~NVALUEXPORTER*/ curfclos->tabval[3]));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[3] = (melt_ptr_t)((/*~NCX*/ curfclos->tabval[1]));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[4] = (melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2]));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[5] = (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[4]));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[6] = (melt_ptr_t)(/*_.EXPFLDIC__V32*/ curfptr[30]);
+      ;
+      /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5371:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5371:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34];
+      /*_.MULTIPLE_EVERY__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.XCLFIELDS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.LET___V28*/ curfptr[26] = /*_.MULTIPLE_EVERY__V37*/ curfptr[36];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_.XCLFIELDS__V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_#OBJECT_LENGTH__L10*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_.EXPCLADIC__V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_#OBJECT_LENGTH__L13*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_#GET_INT__L14*/ curfnum[13] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_.EXPFLDIC__V32*/ curfptr[30] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[32] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
+     /*clear*/ /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = 0 ;}
+    ;
+    /*_.LET___V22*/ curfptr[19] = /*_.LET___V28*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
+    /*clear*/ /*_.NCLAV__V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
+    /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
+    /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
+    /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;}
+   ;
+   /*_.LET___V16*/ curfptr[12] = /*_.LET___V22*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
+   /*clear*/ /*_.XDATA__V17*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
+   /*clear*/ /*_.XCLASS__V18*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
+   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
+   /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
+   /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;}
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.LET___V16*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_.XBIND__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_.XSYMDATA__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_.IF___V12*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
+  /*clear*/ /*_.LET___V16*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5336:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:5336:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5336:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5336:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_142_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_143_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_143_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5373:/ getarg");
+ /*_.CURFLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5373:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5373:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5374:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5374:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5374:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5374:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5374:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5374:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5374:/ locexp");
+      melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5374)?(5374):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5374:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5374:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5374:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5375:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5375:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.FLDNAM__V6*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5376:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 2, "FLD_OWNCLASS");/*_.FLDCLASS__V7*/ curfptr[6] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.FLDCLASS__V7*/ curfptr[6]) == ((/*~XCLASS*/ curfclos->tabval[0])));;
+  MELT_LOCATION("warmelt-normal.melt:5378:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5378:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5378:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5379:/ block");
+    /*block*/{
+     /*_.FLDSYM__V10*/ curfptr[9] = 
+      meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.FLDNAM__V6*/ curfptr[5])), MELT_GET);;
+     MELT_LOCATION("warmelt-normal.melt:5380:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5380:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDSYM__V10*/ curfptr[9];
+      /*_.FLDBIND__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5382:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5382:/ block");
+      /*block*/{
+       /*_#IS_A__L4*/ curfnum[3] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[2])));;
+       MELT_LOCATION("warmelt-normal.melt:5382:/ cond");
+       /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:5382:/ cond.then");
+       /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-normal.melt:5382:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:5382:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:5382:/ locexp");
+          melt_assert_failed(( "check fldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5382)?(5382):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5382:/ clear");
+       /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5382:/ clear");
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5382:/ cppif.else");
+     /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:5383:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5383:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 1, "FIXBIND_DATA");/*_.FLDATA__V15*/ curfptr[14] = slot; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5384:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 3, "FLBIND_FIELD");/*_.FIELD__V16*/ curfptr[15] = slot; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5385:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[6];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDATA__V15*/ curfptr[14];
+       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[2]);
+       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
+       argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[3]);
+       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
+       argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[4]);
+       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
+       argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[5]);
+       /*_.NFLD__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDSYM__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:5387:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:5387:/ block");
+       /*block*/{
+        /*_#IS_A__L5*/ curfnum[3] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
+        MELT_LOCATION("warmelt-normal.melt:5387:/ cond");
+        /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:5387:/ cond.then");
+        /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-normal.melt:5387:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:5387:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:5387:/ locexp");
+           melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5387)?(5387):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:5387:/ clear");
+        /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:5387:/ clear");
+        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:5387:/ cppif.else");
+      /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:5388:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[18] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5388:/ locexp");
+      meltgc_put_mapstrings((struct meltmapstrings_st *) ((/*~EXPFLDIC*/ curfclos->tabval[6])), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[18])), (melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]));}
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:5389:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:5389:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:5389:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_export_class nfld";
+         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3];
+         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
+         argtab[3].bp_long = 5389;
+         /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NFLD__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:5389:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:5389:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:5389:/ cppif.else");
+      /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V21*/ curfptr[20];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
+      /*clear*/ /*_.FLDATA__V15*/ curfptr[14] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
+      /*clear*/ /*_.FIELD__V16*/ curfptr[15] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
+      /*clear*/ /*_.NFLD__V17*/ curfptr[16] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
+      /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[18] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
+      /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
+     ;
+     /*_.LET___V9*/ curfptr[8] = /*_.LET___V14*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
+     /*clear*/ /*_.FLDSYM__V10*/ curfptr[9] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
+     /*clear*/ /*_.FLDBIND__V11*/ curfptr[10] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
+     /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
+     /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+    ;
+    /*_.IF___V8*/ curfptr[7] = /*_.LET___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5378:/ clear");
+    /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5378:/ cond.else");
+  
+   /*_.IF___V8*/ curfptr[7] = NULL;;
+   }
+  ;
+  /*_.LET___V5*/ curfptr[3] = /*_.IF___V8*/ curfptr[7];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
+  /*clear*/ /*_.FLDNAM__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
+  /*clear*/ /*_.FLDCLASS__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
+  /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5373:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
+  MELT_LOCATION("warmelt-normal.melt:5373:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5373:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5373:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_143_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 26
+  void* varptr[26];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<26; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 26;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_MACRO_EXPORTER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5401:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5402:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5402:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5402:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5402:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5402:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5402:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5402:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5402)?(5402):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5402:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5402:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5402:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5403:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5403:/ block");
+  /*block*/{
+   /*_#IS_LIST__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-normal.melt:5403:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5403:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5403:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5403:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5403:/ locexp");
+      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5403)?(5403):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5403:/ clear");
+   /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5403:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5403:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5404:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5404:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5404:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5404:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5404:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5404:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5404:/ locexp");
+      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5404)?(5404):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5404:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5404:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5404:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5405:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5405:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5405:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_macro_exporter start psloc";
+    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
+    argtab[3].bp_long = 5405;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5405:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5405:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5405:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5406:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5406:/ apply");
+  /*apply*/{
+   /*_.CSYMVALEXP__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_MACROXPORTER_*/ curfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5407:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5407:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5407:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5407:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF");
+   ;
+   /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5414:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5414:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5414:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5414:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5414:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_MACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD");
+   ;
+   /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5410:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5410:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR");
+   ;
+   /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5418:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5418:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND");
+   ;
+   /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:5424:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5425:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5425:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5425:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
+     argtab[0].bp_cstring =  "normal_macro_exporter return locsym";
+     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
+     argtab[3].bp_long = 5425;
+     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5425:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5425:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5425:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5426:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];;
+   MELT_LOCATION("warmelt-normal.melt:5426:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
+  /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5401:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5401:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_MACRO_EXPORTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 26
+  void* varptr[26];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<26; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 26;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_PATMACRO_EXPORTER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
+ /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5431:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5432:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5432:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5432:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5432:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5432:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5432:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5432:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5432)?(5432):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5432:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5432:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5432:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5433:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5433:/ block");
+  /*block*/{
+   /*_#IS_LIST__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-normal.melt:5433:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5433:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5433:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5433:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5433:/ locexp");
+      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5433)?(5433):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5433:/ clear");
+   /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5433:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5433:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5434:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5434:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5434:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5434:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5434:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5434:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5434:/ locexp");
+      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5434)?(5434):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5434:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5434:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5434:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5435:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5435:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5435:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_patmacro_exporter start psloc";
+    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
+    argtab[3].bp_long = 5435;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5435:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5435:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5435:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5436:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5436:/ apply");
+  /*apply*/{
+   /*_.CSYMVALEXP__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_PATMACROXPORTER_*/ curfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5437:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5437:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5437:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5437:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF");
+   ;
+   /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5444:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5444:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5444:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5444:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5444:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_PATMACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD");
+   ;
+   /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5440:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5440:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR");
+   ;
+   /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5448:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5448:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND");
+   ;
+   /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-normal.melt:5454:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5455:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5455:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5455:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
+     argtab[0].bp_cstring =  "normal_patmacro_exporter return locsym";
+     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
+     argtab[3].bp_long = 5455;
+     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5455:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5455:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5455:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5456:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];;
+   MELT_LOCATION("warmelt-normal.melt:5456:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
+  /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5431:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5431:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_PATMACRO_EXPORTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 59
+  void* varptr[59];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<59; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 59;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_EXPORTED_MACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
+ 
+ 
+ /*getarg#6*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
+ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5463:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5464:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5464:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5464:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_macro start sym";
+    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
+    argtab[3].bp_long = 5464;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5464:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5464:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5464:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5465:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5465:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5465:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_macro start nexp";
+    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
+    argtab[3].bp_long = 5465;
+    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5465:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5465:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5465:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5466:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5466:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5466:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_macro start nmacroxp";
+    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
+    argtab[3].bp_long = 5466;
+    /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5466:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5466:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5466:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5467:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5467:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5467:/ cond.then");
+   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5467:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5467:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5467:/ locexp");
+      melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5467)?(5467):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5467:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5467:/ clear");
+   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.else");
+ /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5468:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5468:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5468:/ cond.then");
+   /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5468:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5468:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5468:/ locexp");
+      melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5468)?(5468):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5468:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5468:/ clear");
+   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.else");
+ /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5469:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5469:/ block");
+  /*block*/{
+   /*_#IS_A__L6*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5469:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5469:/ cond.then");
+   /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5469:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5469:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5469:/ locexp");
+      melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5469)?(5469):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5469:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5469:/ clear");
+   /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5469:/ cppif.else");
+ /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5470:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5470:/ block");
+  /*block*/{
+   /*_#IS_A__L7*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-normal.melt:5470:/ cond");
+   /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5470:/ cond.then");
+   /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5470:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5470:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5470:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5470)?(5470):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5470:/ clear");
+   /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5470:/ clear");
+   /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5470:/ cppif.else");
+ /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5471:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5471:/ block");
+  /*block*/{
+   /*_#IS_A__L8*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));;
+   MELT_LOCATION("warmelt-normal.melt:5471:/ cond");
+   /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5471:/ cond.then");
+   /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5471:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5471:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5471:/ locexp");
+      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5471)?(5471):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5471:/ clear");
+   /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5471:/ clear");
+   /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5471:/ cppif.else");
+ /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5472:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5472:/ block");
+  /*block*/{
+   /*_#IS_LIST__L9*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-normal.melt:5472:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5472:/ cond.then");
+   /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5472:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5472:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5472:/ locexp");
+      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5472)?(5472):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5472:/ clear");
+   /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5472:/ clear");
+   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5472:/ cppif.else");
+ /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5473:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5473:/ apply");
+  /*apply*/{
+   /*_.CSYMEXPO__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDM_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5474:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5474:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];
+   MELT_LOCATION("warmelt-normal.melt:5474:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
+   /*_.SYMDATA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5475:/ block");
+  /*block*/{
+   /*_.SB__V31*/ curfptr[30] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5476:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ curfptr[30]), ( "norm.exp.val : "));}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5477:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5477:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ curfptr[30]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31])));}
+   ;
+   /*_.LET___V30*/ curfptr[29] = /*_.SB__V31*/ curfptr[30];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5475:/ clear");
+   /*clear*/ /*_.SB__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5475:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ;}
+  ;
+  /*_.CSBUF__V33*/ curfptr[30] = /*_.LET___V30*/ curfptr[29];;
+  /*_.STRBUF2STRING__V34*/ curfptr[31] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V33*/ curfptr[30]))));;
+  MELT_LOCATION("warmelt-normal.melt:5479:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5479:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V36*/ curfptr[35] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5479:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5479:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.STRBUF2STRING__V34*/ curfptr[31]), "CMEC_COMMENT");
+   ;
+   /*_.SCURENVBOX__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5483:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5483:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5483:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
+     argtab[0].bp_cstring =  "normal_exported_macro sgetcurenvbox";
+     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
+     argtab[3].bp_long = 5483;
+     /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5483:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5483:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5483:/ cppif.else");
+  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5484:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
+    MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.send");
+    /*_.NCURENVBOX__V40*/ curfptr[39] =  meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5484:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5487:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5487:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5487:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_exported_macro ncurenvbox";
+       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
+       argtab[3].bp_long = 5487;
+       /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5487:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5487:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5487:/ cppif.else");
+    /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5488:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5488:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5488:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_exported_macro curenvbinds";
+       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
+       argtab[3].bp_long = 5488;
+       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5488:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5488:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5488:/ cppif.else");
+    /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_#IS_LIST__L13*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-normal.melt:5489:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L13*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5489:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5489:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5489:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5489:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40];
+       /*_.LIST_APPEND2LIST__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IF___V46*/ curfptr[44] = /*_.LIST_APPEND2LIST__V47*/ curfptr[46];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5489:/ clear");
+      /*clear*/ /*_.LIST_APPEND2LIST__V47*/ curfptr[46] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:5489:/ cond.else");
+    
+     /*_.IF___V46*/ curfptr[44] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5490:/ block");
+    /*block*/{
+     /*_.ARGTUP__V49*/ curfptr[48] = 
+      (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]),  (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39])));;
+     MELT_LOCATION("warmelt-normal.melt:5496:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5496:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V51*/ curfptr[50] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NEXPR_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.NMACROXP__V4*/ curfptr[3]), "NAPP_FUN");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.ARGTUP__V49*/ curfptr[48]), "NEXPR_ARGS");
+      ;
+      /*_.INST___V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5492:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5492:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V53*/ curfptr[52] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.INST___V50*/ curfptr[49]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5502:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5502:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V55*/ curfptr[54] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (3), (/*_.CBIND__V52*/ curfptr[51]), "NOCC_BIND");
+      ;
+      /*_.SYOCC__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5508:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5508:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5508:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_exported_macro cbind";
+        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
+        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
+        argtab[3].bp_long = 5508;
+        /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5508:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5508:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5508:/ cppif.else");
+     /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5509:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5509:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5509:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_exported_macro return syocc";
+        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
+        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
+        argtab[3].bp_long = 5509;
+        /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V58*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5509:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5509:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5509:/ cppif.else");
+     /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5510:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (melt_ptr_t)(/*_.CBIND__V52*/ curfptr[51]));}
+     ;
+     /*_.LET___V48*/ curfptr[46] = /*_.SYOCC__V54*/ curfptr[53];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
+     /*clear*/ /*_.ARGTUP__V49*/ curfptr[48] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
+     /*clear*/ /*_.INST___V50*/ curfptr[49] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
+     /*clear*/ /*_.CBIND__V52*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
+     /*clear*/ /*_.SYOCC__V54*/ curfptr[53] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
+     /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
+     /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;}
+    ;
+    /*_.MULTI___V39*/ curfptr[37] = /*_.LET___V48*/ curfptr[46];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
+    /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
+    /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
+    /*clear*/ /*_#IS_LIST__L13*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
+    /*clear*/ /*_.IF___V46*/ curfptr[44] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
+    /*clear*/ /*_.LET___V48*/ curfptr[46] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
+   /*clear*/ /*_.CURENVBINDS__V41*/ curfptr[40] = 0 ;}
+  ;
+  /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V39*/ curfptr[37];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.CSBUF__V33*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.STRBUF2STRING__V34*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.SCURENVBOX__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
+  /*clear*/ /*_.MULTI___V39*/ curfptr[37] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];;
+  MELT_LOCATION("warmelt-normal.melt:5463:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
+ /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_EXPORTED_MACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 36
+  void* varptr[36];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<36; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 36;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_EXPORT_MACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5516:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5517:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5517:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5517:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5517:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5517:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5517:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5517:/ locexp");
+      melt_assert_failed(( "check export_macro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5517)?(5517):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5517:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5517:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5517:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5518:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5518:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5518:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5518:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5518:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5518:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5518:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5518)?(5518):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5518:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5518:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5518:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5519:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5519:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5519:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5519:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5519:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5519:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5519:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5519)?(5519):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5519:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5519:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5519:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5520:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5520:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5520:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp export_macro recv";
+    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
+    argtab[3].bp_long = 5520;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5520:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5520:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5520:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5521:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5522:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5523:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5524:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; };
+  ;
+  /*_.BINDSLIST__V18*/ curfptr[17] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-normal.melt:5526:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
+   /*_.NMACEXP__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_MACRO_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5527:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5527:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5527:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   /*_.NREPNIL__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5529:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5529:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-normal.melt:5529:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5529:/ cond.then");
+    /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5529:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5529:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5529:/ locexp");
+       melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5529)?(5529):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5529:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5529:/ clear");
+    /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5529:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5530:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.send");
+    /*_.NEXP__V25*/ curfptr[24] =  meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5530:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5533:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5533:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25];
+     /*_.LIST_APPEND2LIST__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5534:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5535:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[6];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXP__V25*/ curfptr[24];
+      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NMACEXP__V19*/ curfptr[18];
+      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
+      argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
+      argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
+      argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
+      /*_.NEXPM__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_MACRO*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5537:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5537:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5537:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_export_macro nexpm";
+        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
+        argtab[3].bp_long = 5537;
+        /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5537:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5537:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5537:/ cppif.else");
+     /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     /*_.LET___V28*/ curfptr[27] = /*_.IFCPP___V30*/ curfptr[29];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5534:/ clear");
+     /*clear*/ /*_.NEXPM__V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5534:/ clear");
+     /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;}
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5539:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5539:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5539:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_macro final nrepnil";
+       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
+       argtab[3].bp_long = 5539;
+       /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[28];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5539:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5539:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5539:/ cppif.else");
+    /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5540:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5540:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5540:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_macro final bindslist";
+       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
+       argtab[3].bp_long = 5540;
+       /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V34*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[28];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5540:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5540:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5540:/ cppif.else");
+    /*_.IFCPP___V34*/ curfptr[29] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:5541:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V20*/ curfptr[19];;
+     MELT_LOCATION("warmelt-normal.melt:5541:/ putxtraresult");
+     if (!xrestab_ || !xresdescr_) goto labend_rout;
+     if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+     if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ curfptr[17]);
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5541:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.MULTI___V24*/ curfptr[22] = /*_.RETURN___V36*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V27*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
+    /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
+    /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
+    /*clear*/ /*_.IFCPP___V34*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
+    /*clear*/ /*_.RETURN___V36*/ curfptr[28] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
+   /*clear*/ /*_.NBINDS__V26*/ curfptr[25] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V24*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.NMACEXP__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.NREPNIL__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
+  /*clear*/ /*_.MULTI___V24*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5516:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5516:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_EXPORT_MACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 62
+  void* varptr[62];
+#define CURFRAM_NBVARNUM 16
+  long varnum[16];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<62; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 62;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMAL_EXPORTED_PATMACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NPATTXP__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4])) != NULL);
+ 
+ 
+ /*getarg#4*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V6*/ curfptr[5])) != NULL);
+ 
+ 
+ /*getarg#5*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V7*/ curfptr[6])) != NULL);
+ 
+ 
+ /*getarg#6*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V8*/ curfptr[7])) != NULL);
+ 
+ 
+ /*getarg#7*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
+ if (xargdescr_[6] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BINDSLIST__V9*/ curfptr[8] = (xargtab_[6].bp_aptr) ? (*(xargtab_[6].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5553:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5554:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5554:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_patmacro start sym";
+    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
+    argtab[3].bp_long = 5554;
+    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5554:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5554:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5555:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5555:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_patmacro start nexp";
+    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
+    argtab[3].bp_long = 5555;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5555:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5555:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5556:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5556:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_patmacro start nmacroxp";
+    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
+    argtab[3].bp_long = 5556;
+    /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5556:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5556:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.else");
+ /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5557:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5557:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
+    argtab[0].bp_cstring =  "normal_exported_patmacro start npattxp";
+    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
+    argtab[3].bp_long = 5557;
+    /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5557:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5557:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.else");
+ /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5558:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5558:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5558:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5558:/ cond.then");
+   /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5558:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5558:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5558:/ locexp");
+      melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5558)?(5558):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5558:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5558:/ clear");
+   /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5558:/ cppif.else");
+ /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5559:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5559:/ block");
+  /*block*/{
+   /*_#IS_A__L6*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5559:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5559:/ cond.then");
+   /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5559:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5559:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5559:/ locexp");
+      melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5559)?(5559):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5559:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5559:/ clear");
+   /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5559:/ cppif.else");
+ /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5560:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5560:/ block");
+  /*block*/{
+   /*_#IS_A__L7*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5560:/ cond");
+   /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5560:/ cond.then");
+   /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5560:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5560:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5560:/ locexp");
+      melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5560)?(5560):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V22*/ curfptr[20] = /*_.IFELSE___V23*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5560:/ clear");
+   /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5560:/ clear");
+   /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5560:/ cppif.else");
+ /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5561:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5561:/ block");
+  /*block*/{
+   /*_#IS_A__L8*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
+   MELT_LOCATION("warmelt-normal.melt:5561:/ cond");
+   /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5561:/ cond.then");
+   /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5561:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5561:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5561:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5561)?(5561):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5561:/ clear");
+   /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5561:/ clear");
+   /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5561:/ cppif.else");
+ /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5562:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5562:/ block");
+  /*block*/{
+   /*_#IS_A__L9*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));;
+   MELT_LOCATION("warmelt-normal.melt:5562:/ cond");
+   /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5562:/ cond.then");
+   /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5562:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5562:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5562:/ locexp");
+      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5562)?(5562):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5562:/ clear");
+   /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5562:/ clear");
+   /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5562:/ cppif.else");
+ /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5563:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5563:/ block");
+  /*block*/{
+   /*_#IS_LIST__L10*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-normal.melt:5563:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5563:/ cond.then");
+   /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5563:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5563:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5563:/ locexp");
+      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5563)?(5563):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5563:/ clear");
+   /*clear*/ /*_#IS_LIST__L10*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5563:/ clear");
+   /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5563:/ cppif.else");
+ /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5564:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5564:/ apply");
+  /*apply*/{
+   /*_.CSYMEXPO__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDPAT_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5565:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5565:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ curfptr[6];
+   MELT_LOCATION("warmelt-normal.melt:5565:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ curfptr[7];
+   /*_.SYMDATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5566:/ block");
+  /*block*/{
+   /*_.SB__V34*/ curfptr[33] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5567:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), ( "norm.exp.pat : "));}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5568:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; };
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5568:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34])));}
+   ;
+   /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5566:/ clear");
+   /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5566:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;}
+  ;
+  /*_.CSBUF__V36*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];;
+  /*_.STRBUF2STRING__V37*/ curfptr[34] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V36*/ curfptr[33]))));;
+  MELT_LOCATION("warmelt-normal.melt:5570:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5570:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V39*/ curfptr[38] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5570:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.PSLOC__V8*/ curfptr[7]), "LOCA_LOCATION");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5570:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.STRBUF2STRING__V37*/ curfptr[34]), "CMEC_COMMENT");
+   ;
+   /*_.SCURENVBOX__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5574:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5574:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
+     argtab[0].bp_cstring =  "normal_exported_patmacro sgetcurenvbox";
+     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
+     argtab[3].bp_long = 5574;
+     /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5574:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5574:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.else");
+  /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5575:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ curfptr[6];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ curfptr[7];
+    MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ curfptr[43];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.send");
+    /*_.NCURENVBOX__V43*/ curfptr[42] =  meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V38*/ curfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5575:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5578:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5578:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5578:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_exported_patmacro ncurenvbox";
+       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
+       argtab[3].bp_long = 5578;
+       /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5578:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5578:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5578:/ cppif.else");
+    /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5579:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5579:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5579:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
+       argtab[0].bp_cstring =  "normal_exported_patmacro curenvbinds";
+       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
+       argtab[3].bp_long = 5579;
+       /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5579:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5579:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5579:/ cppif.else");
+    /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_#IS_LIST__L14*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V44*/ curfptr[43])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-normal.melt:5580:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5580:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5580:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5580:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5580:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ curfptr[43];
+       /*_.LIST_APPEND2LIST__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IF___V49*/ curfptr[47] = /*_.LIST_APPEND2LIST__V50*/ curfptr[49];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5580:/ clear");
+      /*clear*/ /*_.LIST_APPEND2LIST__V50*/ curfptr[49] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:5580:/ cond.else");
+    
+     /*_.IF___V49*/ curfptr[47] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5581:/ block");
+    /*block*/{
+     /*_.ARGTUP__V52*/ curfptr[51] = 
+      (meltgc_new_mult4((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V32*/ curfptr[31]),  
+		      (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]),  (melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4]),  (melt_ptr_t)(/*_.NCURENVBOX__V43*/ curfptr[42])));;
+     MELT_LOCATION("warmelt-normal.melt:5587:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5587:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V54*/ curfptr[53] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.PSLOC__V8*/ curfptr[7]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NEXPR_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.NEXP__V3*/ curfptr[2]), "NAPP_FUN");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.ARGTUP__V52*/ curfptr[51]), "NEXPR_ARGS");
+      ;
+      /*_.INST___V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5583:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5583:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V56*/ curfptr[55] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.PSLOC__V8*/ curfptr[7]), "LETBIND_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.CSYMEXPO__V31*/ curfptr[30]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.INST___V53*/ curfptr[52]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5593:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5593:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V58*/ curfptr[57] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.PSLOC__V8*/ curfptr[7]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.CSYMEXPO__V31*/ curfptr[30]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (3), (/*_.CBIND__V55*/ curfptr[54]), "NOCC_BIND");
+      ;
+      /*_.SYOCC__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5599:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5599:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5599:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_exported_patmacro cbind";
+        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
+        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
+        argtab[3].bp_long = 5599;
+        /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V59*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5599:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5599:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5599:/ cppif.else");
+     /*_.IFCPP___V59*/ curfptr[58] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5600:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5600:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5600:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
+        argtab[0].bp_cstring =  "normal_exported_patmacro return syocc";
+        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
+        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
+        argtab[3].bp_long = 5600;
+        /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V61*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5600:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5600:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5600:/ cppif.else");
+     /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5601:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CBIND__V55*/ curfptr[54]));}
+     ;
+     /*_.LET___V51*/ curfptr[49] = /*_.SYOCC__V57*/ curfptr[56];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
+     /*clear*/ /*_.ARGTUP__V52*/ curfptr[51] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
+     /*clear*/ /*_.INST___V53*/ curfptr[52] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
+     /*clear*/ /*_.CBIND__V55*/ curfptr[54] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
+     /*clear*/ /*_.SYOCC__V57*/ curfptr[56] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
+     /*clear*/ /*_.IFCPP___V59*/ curfptr[58] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
+     /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;}
+    ;
+    /*_.MULTI___V42*/ curfptr[40] = /*_.LET___V51*/ curfptr[49];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
+    /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
+    /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
+    /*clear*/ /*_#IS_LIST__L14*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
+    /*clear*/ /*_.IF___V49*/ curfptr[47] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
+    /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
+   /*clear*/ /*_.CURENVBINDS__V44*/ curfptr[43] = 0 ;}
+  ;
+  /*_.LET___V30*/ curfptr[28] = /*_.MULTI___V42*/ curfptr[40];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.CSYMEXPO__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.SYMDATA__V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.CSBUF__V36*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.STRBUF2STRING__V37*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.SCURENVBOX__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
+  /*clear*/ /*_.MULTI___V42*/ curfptr[40] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V30*/ curfptr[28];;
+  MELT_LOCATION("warmelt-normal.melt:5553:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
+ /*clear*/ /*_.LET___V30*/ curfptr[28] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMAL_EXPORTED_PATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 49
+  void* varptr[49];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<49; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 49;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_EXPORT_PATMACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5607:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5608:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5608:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5608:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5608:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5608:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5608:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5608:/ locexp");
+      melt_assert_failed(( "check export_patmacro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5608)?(5608):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5608:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5608:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5608:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5609:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5609:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5609:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5609:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5609:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5609:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5609:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5609)?(5609):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5609:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5609:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5609:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5610:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5610:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5610:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5610:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5610:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5610:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5610:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5610)?(5610):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5610:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5610:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5610:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5611:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5611:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5611:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp export_patmacro recv";
+    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
+    argtab[3].bp_long = 5611;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5611:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5611:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5611:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5612:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5613:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5614:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5615:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5616:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SEXPPAT_PVAL");/*_.MPATEXP__V18*/ curfptr[17] = slot; };
+  ;
+  /*_.BINDSLIST__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  MELT_LOCATION("warmelt-normal.melt:5618:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg");
+   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ curfptr[18];
+   /*_.NPMAEXP__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PATMACRO_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5619:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5619:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5619:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   /*_.NREPNIL__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5621:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5621:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5621:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp export_patmacro mname";
+     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
+     argtab[3].bp_long = 5621;
+     /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5621:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5621:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5621:/ cppif.else");
+  /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5622:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5622:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5622:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp export_patmacro npmaexp";
+     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
+     argtab[3].bp_long = 5622;
+     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPMAEXP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5622:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5622:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5622:/ cppif.else");
+  /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5623:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5623:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-normal.melt:5623:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5623:/ cond.then");
+    /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5623:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5623:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5623:/ locexp");
+       melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5623)?(5623):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V27*/ curfptr[25] = /*_.IFELSE___V28*/ curfptr[27];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5623:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5623:/ clear");
+    /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5623:/ cppif.else");
+  /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5624:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ curfptr[30];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.send");
+    /*_.NEXPMAC__V30*/ curfptr[29] =  meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5624:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5627:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5627:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ curfptr[30];
+     /*_.LIST_APPEND2LIST__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.then");
+    MELT_LOCATION("warmelt-normal.melt:5628:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
+       callcount;;
+      MELT_LOCATION("warmelt-normal.melt:5628:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
+       argtab[0].bp_cstring =  "normexp_export_patmacro nexpmac";
+       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
+       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-normal.melt";
+       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
+       argtab[3].bp_long = 5628;
+       /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5628:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5628:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.else");
+    /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-normal.melt:5629:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend");
+     /*multimsend*/{
+      union meltparam_un argtab[3];
+      union meltparam_un restab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      memset(&restab, 0, sizeof(restab));
+      MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+      MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.xres");
+      restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ curfptr[36];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.send");
+      /*_.NEXPPAT__V36*/ curfptr[35] =  meltgc_send ((melt_ptr_t)(/*_.MPATEXP__V18*/ curfptr[17]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5629:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5632:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-normal.melt:5632:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ curfptr[36];
+       /*_.LIST_APPEND2LIST__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:5633:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
+         callcount;;
+        MELT_LOCATION("warmelt-normal.melt:5633:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
+         argtab[0].bp_cstring =  "normexp_export_patmacro nexppat";
+         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
+         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-normal.melt";
+         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
+         argtab[3].bp_long = 5633;
+         /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:5633:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
+        MELT_LOCATION("warmelt-normal.melt:5633:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.else");
+      /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:5634:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5634:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[7];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPMAEXP__V20*/ curfptr[19];
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPMAC__V30*/ curfptr[29];
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEXPPAT__V36*/ curfptr[35];
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[4].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[5].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
+        argtab[6].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ curfptr[18];
+        /*_.NEXPM__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_PATMACRO*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:5635:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:5635:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
+          callcount;;
+         MELT_LOCATION("warmelt-normal.melt:5635:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
+          argtab[0].bp_cstring =  "normexp_export_patmacro nexpm";
+          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
+          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-normal.melt";
+          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
+          argtab[3].bp_long = 5635;
+          /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:5635:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:5635:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:5635:/ cppif.else");
+       /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:5636:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
+          callcount;;
+         MELT_LOCATION("warmelt-normal.melt:5636:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
+          argtab[0].bp_cstring =  "normexp_export_macro final nrepnil";
+          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
+          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-normal.melt";
+          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
+          argtab[3].bp_long = 5636;
+          /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:5636:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:5636:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.else");
+       /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.then");
+       MELT_LOCATION("warmelt-normal.melt:5637:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
+          callcount;;
+         MELT_LOCATION("warmelt-normal.melt:5637:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
+          argtab[0].bp_cstring =  "normexp_export_macro final bindslist";
+          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
+          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-normal.melt";
+          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
+          argtab[3].bp_long = 5637;
+          /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:5637:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:5637:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.else");
+       /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-normal.melt:5638:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V21*/ curfptr[20];;
+        MELT_LOCATION("warmelt-normal.melt:5638:/ putxtraresult");
+        if (!xrestab_ || !xresdescr_) goto labend_rout;
+        if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+        if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V19*/ curfptr[18]);
+        ;
+        MELT_LOCATION("warmelt-normal.melt:5638:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       /*_.LET___V41*/ curfptr[39] = /*_.RETURN___V49*/ curfptr[47];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
+       /*clear*/ /*_.NEXPM__V42*/ curfptr[41] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
+       /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
+       /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
+       /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
+       /*clear*/ /*_.RETURN___V49*/ curfptr[47] = 0 ;}
+      ;
+      /*_.MULTI___V35*/ curfptr[33] = /*_.LET___V41*/ curfptr[39];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
+      /*clear*/ /*_.LIST_APPEND2LIST__V38*/ curfptr[37] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
+      /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
+      /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
+     /*clear*/ /*_.NBINDPS__V37*/ curfptr[36] = 0 ;}
+    ;
+    /*_.MULTI___V29*/ curfptr[27] = /*_.MULTI___V35*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V32*/ curfptr[31] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
+    /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
+    /*clear*/ /*_.MULTI___V35*/ curfptr[33] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
+   /*clear*/ /*_.NBINDMS__V31*/ curfptr[30] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V29*/ curfptr[27];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.MPATEXP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.BINDSLIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.NPMAEXP__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.NREPNIL__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
+  /*clear*/ /*_.MULTI___V29*/ curfptr[27] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5607:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5607:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_EXPORT_PATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 27
+  void* varptr[27];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<27; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 27;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5646:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5647:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5647:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5647:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5647:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5647:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5647:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5647:/ locexp");
+      melt_assert_failed(( "check current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5647)?(5647):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5647:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5647:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5647:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5648:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5648:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5648:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5648:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5648:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5648:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5648:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5648)?(5648):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5648:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5648:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5648:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5649:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5649:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5649:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5649:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5649:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5649:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5649:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5649)?(5649):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5649:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5649:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5649:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5650:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5650:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5650:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_current_module_environment_container recv";
+    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
+    argtab[3].bp_long = 5650;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5650:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5650:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5650:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5651:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5652:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5653:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "CMEC_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5654:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 14, "NCTX_PROCURMODENVLIST");/*_.NCURMODENVLIST__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5655:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5656:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 12, "NCTX_QDATCURMODENVBOX");/*_.QDATCUR__V19*/ curfptr[18] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5657:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5657:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[4])), (5), "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V21*/ curfptr[20] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.CURPROC__V18*/ curfptr[17]), "NCONST_PROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.QDATCUR__V19*/ curfptr[18]), "NCONST_DATA");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NQCMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (4), (/*_.SCOMM__V16*/ curfptr[15]), "NQCMEC_COMMENT");
+   ;
+   /*_.NQUASI__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5665:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5665:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])));;
+    MELT_LOCATION("warmelt-normal.melt:5665:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5665:/ cond.then");
+    /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5665:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5665:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5665:/ locexp");
+       melt_assert_failed(( "check qdatcur"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5665)?(5665):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5665:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5665:/ clear");
+    /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5665:/ cppif.else");
+  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L6*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));;
+  MELT_LOCATION("warmelt-normal.melt:5666:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5666:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5666:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5668:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V24*/ curfptr[22] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5668:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V24*/ curfptr[22]), (melt_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5669:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.NCURMODENVLIST__V17*/ curfptr[16]), (melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]));}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5667:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5666:/ clear");
+    /*clear*/ /*_.NRPRO_CONST__V24*/ curfptr[22] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5671:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5671:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5671:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_current_module_environment_container nquasi";
+     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
+     argtab[3].bp_long = 5671;
+     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V25*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5671:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5671:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5671:/ cppif.else");
+  /*_.IFCPP___V25*/ curfptr[22] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5672:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V20*/ curfptr[19];;
+   MELT_LOCATION("warmelt-normal.melt:5672:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V27*/ curfptr[25];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.NCURMODENVLIST__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.CURPROC__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.QDATCUR__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.NQUASI__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.IFCPP___V25*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
+  /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5646:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5646:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5678:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5679:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5679:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5679:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5679:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5679:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5679:/ locexp");
+      melt_assert_failed(( "check parent_module_environment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5679)?(5679):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5679:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5679:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5680:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5680:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5680:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5680:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5680:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5680:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5680)?(5680):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5680:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5680:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5681:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5681:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5681:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5681:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5681:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5681:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5681:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5681)?(5681):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5681:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5681:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5681:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5682:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5682:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5682:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_parent_module_environment  recv";
+    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
+    argtab[3].bp_long = 5682;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5682:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5682:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5682:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5683:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5684:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5685:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5686:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 13, "NCTX_QDATPARMODENV");/*_.QDATPAR__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5687:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5687:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[4])), (4), "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT");/*_.INST__V19*/ curfptr[18] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC");
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.QDATPAR__V17*/ curfptr[16]), "NCONST_DATA");
+   ;
+   /*_.NQUASI__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5694:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5694:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[5])));;
+    MELT_LOCATION("warmelt-normal.melt:5694:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5694:/ cond.then");
+    /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-normal.melt:5694:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5694:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5694:/ locexp");
+       melt_assert_failed(( "check qdatpar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5694)?(5694):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5694:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5694:/ clear");
+    /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5694:/ cppif.else");
+  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#IS_A__L6*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));;
+  MELT_LOCATION("warmelt-normal.melt:5695:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5695:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5695:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5696:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V22*/ curfptr[20] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5696:/ locexp");
+    meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V22*/ curfptr[20]), (melt_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5695:/ clear");
+    /*clear*/ /*_.NRPRO_CONST__V22*/ curfptr[20] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.then");
+  MELT_LOCATION("warmelt-normal.melt:5697:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-normal.melt:5697:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
+     argtab[0].bp_cstring =  "normexp_parent_module_environment nquasi";
+     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-normal.melt";
+     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
+     argtab[3].bp_long = 5697;
+     /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V23*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5697:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5697:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.else");
+  /*_.IFCPP___V23*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-normal.melt:5698:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V18*/ curfptr[17];;
+   MELT_LOCATION("warmelt-normal.melt:5698:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V25*/ curfptr[23];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.QDATPAR__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.NQUASI__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.IFCPP___V23*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
+  /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5678:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5678:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 58
+  void* varptr[58];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<58; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 58;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5704:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5705:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5705:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5705:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5705:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5705:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5705:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5705:/ locexp");
+      melt_assert_failed(( "check update_current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5705)?(5705):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5705:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5705:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5705:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5706:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5706:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5706:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5706:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5706:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5706:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5706:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5706)?(5706):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5706:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5706:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5706:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5707:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5707:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5707:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5707:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5707:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5707:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5707:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5707)?(5707):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5707:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5707:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5707:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5708:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5708:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_update_current_module_environment_container recv";
+    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
+    argtab[3].bp_long = 5708;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5708:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5708:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5709:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5710:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5711:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUCME_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5712:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5713:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 0, "NCTX_INITPROC");/*_.INIPROC__V18*/ curfptr[17] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5714:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MODCTX__V19*/ curfptr[18] = slot; };
+  ;
+  /*_#IS_A__L5*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:5715:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5715:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5715:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5715:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), 0, "MOCX_MODULENAME");/*_.MOCX_MODULENAME__V21*/ curfptr[20] = slot; };
+    ;
+    /*_.MODNAM__V20*/ curfptr[19] = /*_.MOCX_MODULENAME__V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5715:/ clear");
+    /*clear*/ /*_.MOCX_MODULENAME__V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5715:/ cond.else");
+  
+   /*_.MODNAM__V20*/ curfptr[19] = NULL;;
+   }
+  ;
+  /*_#__L6*/ curfnum[5] = 
+   ((/*_.CURPROC__V17*/ curfptr[16]) != (/*_.INIPROC__V18*/ curfptr[17]));;
+  MELT_LOCATION("warmelt-normal.melt:5717:/ cond");
+  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5717:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5717:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5719:/ locexp");
+    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) not at toplevel"), (melt_ptr_t)0);}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5720:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-normal.melt:5720:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5718:/ block");
+    /*block*/{
+     /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;}
+    ;
+    /*_.IF___V22*/ curfptr[20] = /*_.PROGN___V24*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5717:/ clear");
+    /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5717:/ clear");
+    /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5717:/ cond.else");
+  
+   /*_.IF___V22*/ curfptr[20] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5721:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5721:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5721:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])), (3), "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V27*/ curfptr[26] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5721:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5721:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NCUMEB_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SCOMM__V16*/ curfptr[15]), "NCUMEB_COMMENT");
+    ;
+    /*_.NUP__V26*/ curfptr[23] = /*_.INST__V27*/ curfptr[26];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5726:/ apply");
+   /*apply*/{
+    /*_.CSYM__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UPDATCURMODENVBOX_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5727:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5727:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V30*/ curfptr[29] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.CSYM__V28*/ curfptr[27]), "BINDER");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NUP__V26*/ curfptr[23]), "LETBIND_EXPR");
+    ;
+    /*_.CBIND__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5734:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5734:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V32*/ curfptr[31] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.CSYM__V28*/ curfptr[27]), "NOCC_SYMB");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.CBIND__V29*/ curfptr[28]), "NOCC_BIND");
+    ;
+    /*_.CLOCC__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5740:/ block");
+   /*block*/{
+    /*_.SB__V34*/ curfptr[33] = 
+     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[11])), (char*)0);;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5741:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), ( "cur.mod.env.cont : "));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-normal.melt:5742:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), melt_string_str((melt_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])));}
+    ;
+    /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5740:/ clear");
+    /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ;}
+   ;
+   /*_.CSBUF__V35*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];;
+   /*_.STRBUF2STRING__V36*/ curfptr[35] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ curfptr[33]))));;
+   MELT_LOCATION("warmelt-normal.melt:5744:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5744:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[12])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5744:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.SLOC__V15*/ curfptr[14]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5744:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ curfptr[35]), "CMEC_COMMENT");
+    ;
+    /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5761:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5761:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[18])), (3), "CLASS_SOURCE_FETCH_PREDEFINED");/*_.INST__V40*/ curfptr[39] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5761:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5761:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SFEPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), ((/*!konst_19_INITIAL_SYSTEM_DATA*/ curfrout->tabval[19])), "SFEPD_PREDEF");
+    ;
+    /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5758:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5758:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ curfrout->tabval[17])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD");/*_.INST__V42*/ curfptr[41] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5758:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5758:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.INST___V39*/ curfptr[38]), "SUGET_OBJ");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5758:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), ((/*!SYSDATA_CONT_FRESH_ENV*/ curfrout->tabval[20])), "SUGET_FIELD");
+    ;
+    /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5769:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5769:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[21])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT");/*_.INST__V44*/ curfptr[43] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5769:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
+    ;
+    /*_.INST___V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;}
+   ;
+   /*_.MAKE_TUPLE2__V45*/ curfptr[44] = 
+    (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.INST___V43*/ curfptr[42]),  (melt_ptr_t)(/*_.MODNAM__V20*/ curfptr[19])));;
+   MELT_LOCATION("warmelt-normal.melt:5755:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5755:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[16])), (4), "CLASS_SOURCE_APPLY");/*_.INST__V47*/ curfptr[46] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5755:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5755:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (3), (/*_.INST___V41*/ curfptr[40]), "SAPP_FUN");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5755:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.MAKE_TUPLE2__V45*/ curfptr[44]), "SARGOP_ARGS");
+    ;
+    /*_.INST___V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;}
+   ;
+   /*_.MAKE_TUPLE2__V48*/ curfptr[47] = 
+    (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]),  (melt_ptr_t)(/*_.INST___V46*/ curfptr[45])));;
+   MELT_LOCATION("warmelt-normal.melt:5748:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5748:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[14])), (3), "CLASS_SOURCE_OR");/*_.INST__V50*/ curfptr[49] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5748:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V50*/ curfptr[49]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5748:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V50*/ curfptr[49]), (2), (/*_.MAKE_TUPLE2__V48*/ curfptr[47]), "SOR_DISJ");
+    ;
+    /*_.SGETCURENVBOX__V49*/ curfptr[48] = /*_.INST__V50*/ curfptr[49];;}
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5774:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend");
+    /*multimsend*/{
+     union meltparam_un argtab[3];
+     union meltparam_un restab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     memset(&restab, 0, sizeof(restab));
+     MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+     MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.xres");
+     restab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V53*/ curfptr[52];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.send");
+     /*_.NCURENVBOX__V52*/ curfptr[51] =  meltgc_send ((melt_ptr_t)(/*_.SGETCURENVBOX__V49*/ curfptr[48]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[22]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5774:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5777:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (melt_ptr_t)(/*_.CBIND__V29*/ curfptr[28]));}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5778:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5778:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NUCMEB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.NUP__V26*/ curfptr[23])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.NUP__V26*/ curfptr[23]), (1), (/*_.NCURENVBOX__V52*/ curfptr[51]), "NUCMEB_EXPR");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5778:/ touch");
+      meltgc_touch(/*_.NUP__V26*/ curfptr[23]);
+      ;
+      /*epilog*/}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5779:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5779:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_update_current_module_environment_container result bindlist";
+        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
+        argtab[3].bp_long = 5779;
+        /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5779:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5779:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.else");
+     /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5780:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5780:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_update_current_module_environment_container result clocc";
+        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
+        argtab[3].bp_long = 5780;
+        /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5780:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5780:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.else");
+     /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:5781:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V31*/ curfptr[30];;
+      MELT_LOCATION("warmelt-normal.melt:5781:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V53*/ curfptr[52]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5781:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.MULTI___V51*/ curfptr[50] = /*_.RETURN___V58*/ curfptr[56];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
+     /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
+     /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
+     /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
+    /*clear*/ /*_.BINDLIST__V53*/ curfptr[52] = 0 ;}
+   ;
+   /*_.LET___V25*/ curfptr[22] = /*_.MULTI___V51*/ curfptr[50];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.NUP__V26*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.CSYM__V28*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.CBIND__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.CLOCC__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.CSBUF__V35*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.INST___V43*/ curfptr[42] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.MAKE_TUPLE2__V45*/ curfptr[44] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.INST___V46*/ curfptr[45] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.MAKE_TUPLE2__V48*/ curfptr[47] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.SGETCURENVBOX__V49*/ curfptr[48] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
+   /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V25*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.INIPROC__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.MODCTX__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.MODNAM__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5704:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5704:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 13
+  long varnum[13];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_FETCH_PREDEFINED", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5789:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5790:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5790:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5790:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5790:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5790:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5790:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5790:/ locexp");
+      melt_assert_failed(( "check fetch_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5790)?(5790):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5790:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5790:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5790:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5791:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5791:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5791:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5791:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5791:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5791:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5791:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5791)?(5791):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5791:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5791:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5791:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5792:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5792:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5792:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5792:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5792:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5792:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5792:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5792)?(5792):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5792:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5792:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5792:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5793:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5793:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5793:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_fetch_predefined recv";
+    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
+    argtab[3].bp_long = 5793;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5793:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5793:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5793:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5794:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5795:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5796:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SFEPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5797:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V17*/ curfptr[16] = slot; };
+  ;
+  /*_#IS_A__L5*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:5799:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5799:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5799:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5801:/ block");
+    /*block*/{
+     /*_.BOXK__V19*/ curfptr[18] = 
+      meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));;
+     MELT_LOCATION("warmelt-normal.melt:5804:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5804:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5804:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V19*/ curfptr[18]);
+      ;
+      /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5803:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5803:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
+      /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.BOX_CONTENT__V23*/ curfptr[22] = 
+      melt_box_content((meltbox_ptr_t)(/*_.BOXK__V19*/ curfptr[18]));;
+     /*_#NULL__L6*/ curfnum[5] = 
+      ((/*_.BOX_CONTENT__V23*/ curfptr[22]) == NULL);;
+     MELT_LOCATION("warmelt-normal.melt:5806:/ cond");
+     /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:5806:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:5806:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5808:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[23] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5807:/ locexp");
+       melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[23]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5806:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[23] = 0 ;}
+      ;
+     } /*noelse*/
+     ;
+     /*_.IFELSE___V18*/ curfptr[17] = /*_.MAPOBJECT_EVERY__V22*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
+     /*clear*/ /*_.BOXK__V19*/ curfptr[18] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
+     /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
+     /*clear*/ /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
+     /*clear*/ /*_.BOX_CONTENT__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
+     /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5799:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:5799:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-normal.melt:5811:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5811:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5811:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5813:/ block");
+      /*block*/{
+       /*_#PREDRK__L8*/ curfnum[7] = 
+        (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));;
+       /*_#I__L9*/ curfnum[8] = 
+        ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));;
+       MELT_LOCATION("warmelt-normal.melt:5814:/ cond");
+       /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:5814:/ cond.then");
+       /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];;
+       } else {MELT_LOCATION("warmelt-normal.melt:5814:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:5814:/ block");
+        /*block*/{
+         /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 
+          BGLOB__LASTGLOB;;
+         /*_#I__L12*/ curfnum[11] = 
+          ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));;
+         /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:5814:/ clear");
+         /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:5814:/ clear");
+         /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
+        ;
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5814:/ cond");
+       /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:5814:/ cond.then");
+       MELT_LOCATION("warmelt-normal.melt:5814:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:5815:/ locexp");
+          melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED invalid predef rank"), (melt_ptr_t)0);}
+          ;
+          /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+       } else {MELT_LOCATION("warmelt-normal.melt:5814:/ cond.else");
+       
+        /*_.IFELSE___V25*/ curfptr[23] = NULL;;
+        }
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5813:/ clear");
+       /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5813:/ clear");
+       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5813:/ clear");
+       /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:5811:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5811:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:5819:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:5819:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:5819:/ cond");
+        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:5819:/ cond.then");
+        /*_.IFELSE___V27*/ curfptr[19] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-normal.melt:5819:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:5819:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:5819:/ locexp");
+           melt_assert_failed(( "FETCH_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5819)?(5819):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V26*/ curfptr[18] = /*_.IFELSE___V27*/ curfptr[19];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:5819:/ clear");
+        /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:5819:/ cppif.else");
+      /*_.IFCPP___V26*/ curfptr[18] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:5818:/ block");
+      /*block*/{
+       /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[18];;}
+      ;
+      /*_.IFELSE___V25*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5811:/ clear");
+      /*clear*/ /*_.IFCPP___V26*/ curfptr[18] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5811:/ clear");
+      /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V18*/ curfptr[17] = /*_.IFELSE___V25*/ curfptr[23];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5799:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5799:/ clear");
+    /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5821:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5821:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5821:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[8])), (2), "CLASS_NREP_PREDEF");/*_.INST__V31*/ curfptr[18] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5821:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V31*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5821:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V31*/ curfptr[18]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NRPREDEF");
+    ;
+    /*_.NPRE__V30*/ curfptr[19] = /*_.INST__V31*/ curfptr[18];;}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-normal.melt:5826:/ cppif.then");
+   MELT_LOCATION("warmelt-normal.melt:5826:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 
+      callcount;;
+     MELT_LOCATION("warmelt-normal.melt:5826:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
+      argtab[0].bp_cstring =  "normexp_fetch_predefined result npre";
+      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[10];
+      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-normal.melt";
+      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
+      argtab[3].bp_long = 5826;
+      /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPRE__V30*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V32*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[23];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5826:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5826:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-normal.melt:5826:/ cppif.else");
+   /*_.IFCPP___V32*/ curfptr[21] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-normal.melt:5827:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.NPRE__V30*/ curfptr[19];;
+    MELT_LOCATION("warmelt-normal.melt:5827:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V29*/ curfptr[22] = /*_.RETURN___V34*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5821:/ clear");
+   /*clear*/ /*_.NPRE__V30*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5821:/ clear");
+   /*clear*/ /*_.IFCPP___V32*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5821:/ clear");
+   /*clear*/ /*_.RETURN___V34*/ curfptr[23] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.LET___V29*/ curfptr[22];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
+  /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
+  /*clear*/ /*_.PREDEFMAP__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
+  /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
+  /*clear*/ /*_.LET___V29*/ curfptr[22] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5789:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5789:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_FETCH_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_154_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_154_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5804:/ getarg");
+ /*_.KEY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5804:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5804:/ block");
+/*block*/{
+ /*_#__L1*/ curfnum[0] = 
+  ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));;
+ MELT_LOCATION("warmelt-normal.melt:5805:/ cond");
+ /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:5805:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:5805:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5805:/ locexp");
+   meltgc_box_put((melt_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ curfptr[1]));}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5804:/ clear");
+ /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_154_warmelt_normal_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 48
+  void* varptr[48];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<48; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 48;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NORMEXP_STORE_PREDEFINED", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
+ /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5835:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5836:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5836:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-normal.melt:5836:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5836:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5836:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5836:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5836:/ locexp");
+      melt_assert_failed(( "check store_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5836)?(5836):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5836:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5836:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5836:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5837:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5837:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-normal.melt:5837:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5837:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5837:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5837:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5837:/ locexp");
+      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5837)?(5837):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5837:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5837:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5837:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5838:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5838:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
+   MELT_LOCATION("warmelt-normal.melt:5838:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-normal.melt:5838:/ cond.then");
+   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-normal.melt:5838:/ cond.else");
+   
+    MELT_LOCATION("warmelt-normal.melt:5838:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-normal.melt:5838:/ locexp");
+      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5838)?(5838):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5838:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5838:/ clear");
+   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5838:/ cppif.else");
+ /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.then");
+ MELT_LOCATION("warmelt-normal.melt:5839:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-normal.melt:5839:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
+    argtab[0].bp_cstring =  "normexp_store_predefined recv";
+    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-normal.melt";
+    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
+    argtab[3].bp_long = 5839;
+    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5839:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-normal.melt:5839:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-normal.melt:5840:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-normal.melt:5841:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5842:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5843:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SSTPD_VALUE");/*_.SVAL__V17*/ curfptr[16] = slot; };
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5844:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V18*/ curfptr[17] = slot; };
+  ;
+  /*_#IS_A__L5*/ curfnum[0] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-normal.melt:5846:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-normal.melt:5846:/ cond.then");
+  MELT_LOCATION("warmelt-normal.melt:5846:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-normal.melt:5848:/ block");
+    /*block*/{
+     /*_.BOXK__V20*/ curfptr[19] = 
+      meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));;
+     MELT_LOCATION("warmelt-normal.melt:5851:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5851:/ newclosure");
+       /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] =
+       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5851:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5851:/ putclosedv");
+      /*putclosv*/
+      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
+      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
+      ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V20*/ curfptr[19]);
+      ;
+      /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5850:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-normal.melt:5850:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20];
+      /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.BOX_CONTENT__V24*/ curfptr[23] = 
+      melt_box_content((meltbox_ptr_t)(/*_.BOXK__V20*/ curfptr[19]));;
+     /*_#NULL__L6*/ curfnum[5] = 
+      ((/*_.BOX_CONTENT__V24*/ curfptr[23]) == NULL);;
+     MELT_LOCATION("warmelt-normal.melt:5853:/ cond");
+     /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-normal.melt:5853:/ cond.then");
+     MELT_LOCATION("warmelt-normal.melt:5853:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-normal.melt:5855:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-normal.melt:5854:/ locexp");
+       melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5853:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;}
+      ;
+     } /*noelse*/
+     ;
+     /*_.IFELSE___V19*/ curfptr[18] = /*_.MAPOBJECT_EVERY__V23*/ curfptr[22];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
+     /*clear*/ /*_.BOXK__V20*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
+     /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
+     /*clear*/ /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
+     /*clear*/ /*_.BOX_CONTENT__V24*/ curfptr[23] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
+     /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-normal.melt:5846:/ cond.else");
+  
+   MELT_LOCATION("warmelt-normal.melt:5846:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-normal.melt:5858:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5858:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5858:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5860:/ block");
+      /*block*/{
+       /*_#PREDRK__L8*/ curfnum[7] = 
+        (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));;
+       /*_#I__L9*/ curfnum[8] = 
+        ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));;
+       MELT_LOCATION("warmelt-normal.melt:5861:/ cond");
+       /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:5861:/ cond.then");
+       /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];;
+       } else {MELT_LOCATION("warmelt-normal.melt:5861:/ cond.else");
+       
+        MELT_LOCATION("warmelt-normal.melt:5861:/ block");
+        /*block*/{
+         /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 
+          BGLOB__LASTGLOB;;
+         /*_#I__L12*/ curfnum[11] = 
+          ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));;
+         /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-normal.melt:5861:/ clear");
+         /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ;
+         MELT_LOCATION("warmelt-normal.melt:5861:/ clear");
+         /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
+        ;
+        }
+       ;
+       MELT_LOCATION("warmelt-normal.melt:5861:/ cond");
+       /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ {
+       MELT_LOCATION("warmelt-normal.melt:5861:/ cond.then");
+       MELT_LOCATION("warmelt-normal.melt:5861:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-normal.melt:5862:/ locexp");
+          melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED invalid predef rank"), (melt_ptr_t)0);}
+          ;
+          /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+       } else {MELT_LOCATION("warmelt-normal.melt:5861:/ cond.else");
+       
+        /*_.IFELSE___V26*/ curfptr[24] = NULL;;
+        }
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5860:/ clear");
+       /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5860:/ clear");
+       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5860:/ clear");
+       /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:5858:/ cond.else");
+    
+     MELT_LOCATION("warmelt-normal.melt:5858:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-normal.melt:5866:/ cppif.then");
+      MELT_LOCATION("warmelt-normal.melt:5866:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-normal.melt:5866:/ cond");
+        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+        MELT_LOCATION("warmelt-normal.melt:5866:/ cond.then");
+        /*_.IFELSE___V28*/ curfptr[20] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-normal.melt:5866:/ cond.else");
+        
+         MELT_LOCATION("warmelt-normal.melt:5866:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-normal.melt:5866:/ locexp");
+           melt_assert_failed(( "STORE_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
+  (5866)?(5866):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V27*/ curfptr[19] = /*_.IFELSE___V28*/ curfptr[20];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-normal.melt:5866:/ clear");
+        /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-normal.melt:5866:/ cppif.else");
+      /*_.IFCPP___V27*/ curfptr[19] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-normal.melt:5865:/ block");
+      /*block*/{
+       /*_.PROGN___V29*/ curfptr[22] = /*_.IFCPP___V27*/ curfptr[19];;}
+      ;
+      /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V29*/ curfptr[22];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5858:/ clear");
+      /*clear*/ /*_.IFCPP___V27*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5858:/ clear");
+      /*clear*/ /*_.PROGN___V29*/ curfptr[22] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V19*/ curfptr[18] = /*_.IFELSE___V26*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5846:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5846:/ clear");
+    /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-normal.melt:5868:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend");
+   /*multimsend*/{
+    union meltparam_un argtab[3];
+    union meltparam_un restab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    memset(&restab, 0, sizeof(restab));
+    MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg");
+    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
+    MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.xres");
+    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V32*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.send");
+    /*_.NVAL__V31*/ curfptr[20] =  meltgc_send ((melt_ptr_t)(/*_.SVAL__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+    }
+   ;
+   MELT_LOCATION("warmelt-normal.melt:5868:/ block");
+   /*block*/{
+    /*_#NULL__L13*/ curfnum[10] = 
+     ((/*_.NBINDS__V32*/ curfptr[19]) == NULL);;
+    MELT_LOCATION("warmelt-normal.melt:5871:/ cond");
+    /*cond*/ if (/*_#NULL__L13*/ curfnum[10]) /*then*/ {
+    MELT_LOCATION("warmelt-normal.melt:5871:/ cond.then");
+    MELT_LOCATION("warmelt-normal.melt:5871:/ block");
+     /*block*/{
+      /*_.MAKE_LIST__V34*/ curfptr[24] = 
+       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
+      MELT_LOCATION("warmelt-normal.melt:5872:/ compute");
+      /*_.NBINDS__V32*/ curfptr[19] = /*_.SETQ___V35*/ curfptr[34] = /*_.MAKE_LIST__V34*/ curfptr[24];;
+      /*_.IF___V33*/ curfptr[22] = /*_.SETQ___V35*/ curfptr[34];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-normal.melt:5871:/ clear");
+      /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[24] = 0 ;
+      MELT_LOCATION("warmelt-normal.melt:5871:/ clear");
+      /*clear*/ /*_.SETQ___V35*/ curfptr[34] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-normal.melt:5871:/ cond.else");
+    
+     /*_.IF___V33*/ curfptr[22] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-normal.melt:5873:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-normal.melt:5873:/ apply");
+     /*apply*/{
+      /*_.CSYM__V37*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_STOREPREDEF_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+      }
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5874:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5874:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[12])), (3), "CLASS_NREP_STORE_PREDEFINED");/*_.INST__V39*/ curfptr[38] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5874:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5874:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NSTPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NSTPD_PREDEF");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5874:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NSTPD_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.NVAL__V31*/ curfptr[20]), "NSTPD_VALUE");
+      ;
+      /*_.NFPRE__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5878:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5878:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V41*/ curfptr[40] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5878:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (0), (/*_.CSYM__V37*/ curfptr[34]), "BINDER");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5878:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "LETBIND_TYPE");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5878:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.NFPRE__V38*/ curfptr[37]), "LETBIND_EXPR");
+      ;
+      /*_.CBIND__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;}
+     ;
+     MELT_LOCATION("warmelt-normal.melt:5882:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-normal.melt:5882:/ rawallocobj");
+      /*rawallocobj*/ { melt_ptr_t newobj = 0;
+       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V43*/ curfptr[42] =
+       newobj; };
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "NOCC_CTYP");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.CSYM__V37*/ curfptr[34]), "NOCC_SYMB");
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
+      /*putslot*/
+      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
+      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (3), (/*_.CBIND__V40*/ curfptr[39]), "NOCC_BIND");
+      ;
+      /*_.SYOCC__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-normal.melt:5888:/ locexp");
+     meltgc_append_list((melt_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (melt_ptr_t)(/*_.CBIND__V40*/ curfptr[39]));}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5889:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5889:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5889:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_store_predefined result nbinds";
+        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11];
+        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
+        argtab[3].bp_long = 5889;
+        /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5889:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5889:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5889:/ cppif.else");
+     /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-normal.melt:5890:/ cppif.then");
+     MELT_LOCATION("warmelt-normal.melt:5890:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L15*/ curfnum[7] = 
+        callcount;;
+       MELT_LOCATION("warmelt-normal.melt:5890:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
+        argtab[0].bp_cstring =  "normexp_store_predefined result syocc";
+        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[7];
+        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-normal.melt";
+        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
+        argtab[3].bp_long = 5890;
+        /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SYOCC__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-normal.melt:5890:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[7] = 0 ;
+       MELT_LOCATION("warmelt-normal.melt:5890:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-normal.melt:5890:/ cppif.else");
+     /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-normal.melt:5891:/ block");
+     /*block*/{
+      /*_.RETVAL___V1*/ curfptr[0] = /*_.SYOCC__V42*/ curfptr[41];;
+      MELT_LOCATION("warmelt-normal.melt:5891:/ putxtraresult");
+      if (!xrestab_ || !xresdescr_) goto labend_rout;
+      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
+      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDS__V32*/ curfptr[19]);
+      ;
+      MELT_LOCATION("warmelt-normal.melt:5891:/ finalreturn");
+      ;
+      /*finalret*/ goto labend_rout ;}
+     ;
+     /*_.LET___V36*/ curfptr[24] = /*_.RETURN___V48*/ curfptr[46];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.CSYM__V37*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.NFPRE__V38*/ curfptr[37] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.CBIND__V40*/ curfptr[39] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.SYOCC__V42*/ curfptr[41] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
+     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
+     /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;}
+    ;
+    /*_.MULTI___V30*/ curfptr[23] = /*_.LET___V36*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
+    /*clear*/ /*_#NULL__L13*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
+    /*clear*/ /*_.IF___V33*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
+    /*clear*/ /*_.LET___V36*/ curfptr[24] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
+   /*clear*/ /*_.NBINDS__V32*/ curfptr[19] = 0 ;}
+  ;
+  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V30*/ curfptr[23];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_.SVAL__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_.PREDEFMAP__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
+  /*clear*/ /*_.MULTI___V30*/ curfptr[23] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-normal.melt:5835:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
+  MELT_LOCATION("warmelt-normal.melt:5835:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
+ /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
+ /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NORMEXP_STORE_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_156_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_156_warmelt_normal_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-normal.melt:5851:/ getarg");
+ /*_.KEY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-normal.melt:5851:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-normal.melt:5851:/ block");
+/*block*/{
+ /*_#__L1*/ curfnum[0] = 
+  ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));;
+ MELT_LOCATION("warmelt-normal.melt:5852:/ cond");
+ /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-normal.melt:5852:/ cond.then");
+ MELT_LOCATION("warmelt-normal.melt:5852:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-normal.melt:5852:/ locexp");
+   meltgc_box_put((melt_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ curfptr[1]));}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-normal.melt:5851:/ clear");
+ /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_156_warmelt_normal_LAMBDA_*/
+
+
+
+/**** end of warmelt-normal.0+2.c ****/
diff --git a/gcc/melt/warmelt-normal.0.c b/gcc/melt/warmelt-normal.0.c
index 49005075a39..cdef3014ade 100644
--- a/gcc/melt/warmelt-normal.0.c
+++ b/gcc/melt/warmelt-normal.0.c
@@ -1,14 +1,14 @@
-/* GCC MELT GENERATED FILE warmelt-normal.3.c - DO NOT EDIT */
+/* GCC MELT GENERATED FILE warmelt-normal.0.c - DO NOT EDIT */
 
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.5.0 20091124 (experimental) [melt-branch revision 154669]";
+ "4.5.0 20091130 (experimental) [melt-branch revision 154718]";
 #endif
 
 #include "run-melt.h"
 
-/**** warmelt-normal.3.c declarations ****/
+/**** warmelt-normal.0.c declarations ****/
 #define MELT_HAS_INITIAL_ENVIRONMENT 1
 
 /**!!** ***
@@ -818,7 +818,7 @@ void mark_module_melt(void*);
 void* initial_frame_melt;
 
 
-/**** warmelt-normal.3.c implementations ****/
+/**** warmelt-normal.0.c implementations ****/
 
 
 
@@ -25874,48945 +25874,6 @@ melt_trace_end("NORMEXP_UNSAFE_GET_FIELD", callcount);  melt_topframe = (struct
 
 
 
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_64_warmelt_normal_NORMEXP_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_normal_NORMEXP_GET_FIELD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 49
-  void* varptr[49];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<49; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 49;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_GET_FIELD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2414:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2414:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2415:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2415:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_GET_FIELD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2415:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2415:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2415:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2415:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2415:/ locexp");
-      melt_assert_failed(( "check getfield recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2415)?(2415):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2415:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2415:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2415:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2416:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2416:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2416:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2416:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2416:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2416:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2416)?(2416):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2416:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2416:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2416:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2417:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2417:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2417:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2417:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2417:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2417:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2417:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2417)?(2417):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2417:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2417:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2417:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2418:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2418:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2418:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_get_field recv";
-    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2418:/ apply.arg");
-    argtab[3].bp_long = 2418;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2418:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2418:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2418:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2419:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2419:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2420:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUGET_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2421:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUGET_FIELD");/*_.SFLD__V17*/ curfptr[16] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:2423:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:2423:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-normal.melt:2423:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2423:/ cond.then");
-    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:2423:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:2423:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:2423:/ locexp");
-       melt_assert_failed(( "check sfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2423)?(2423):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2423:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2423:/ clear");
-    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:2423:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:2424:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V22*/ curfptr[21];MELT_LOCATION("warmelt-normal.melt:2424:/ multimsend.send");
-    /*_.NOBJ__V21*/ curfptr[20] =  meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2424:/ block");
-   /*block*/{
-    /*_#NULL__L6*/ curfnum[0] = 
-     ((/*_.NBIND__V22*/ curfptr[21]) == NULL);;
-    MELT_LOCATION("warmelt-normal.melt:2427:/ cond");
-    /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2427:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:2427:/ block");
-     /*block*/{
-      /*_.MAKE_LIST__V24*/ curfptr[23] = 
-       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-      MELT_LOCATION("warmelt-normal.melt:2427:/ compute");
-      /*_.NBIND__V22*/ curfptr[21] = /*_.SETQ___V25*/ curfptr[24] = /*_.MAKE_LIST__V24*/ curfptr[23];;
-      /*_.IF___V23*/ curfptr[22] = /*_.SETQ___V25*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2427:/ clear");
-      /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2427:/ clear");
-      /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:2427:/ cond.else");
-    
-     /*_.IF___V23*/ curfptr[22] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:2428:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:2428:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:2428:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_get_field nobj";
-       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:2428:/ apply.arg");
-       argtab[3].bp_long = 2428;
-       /*_.DEBUG_MSG_FUN__V27*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOBJ__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V26*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2428:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2428:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[24] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:2428:/ cppif.else");
-    /*_.IFCPP___V26*/ curfptr[23] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:2429:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2429:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ apply");
-     /*apply*/{
-      /*_.CSYM__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2430:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 2, "FLD_OWNCLASS");/*_.FCLA__V31*/ curfptr[30] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2431:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2431:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-       MELT_LOCATION("warmelt-normal.melt:2431:/ ojbmsend.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
-       /*_.NC__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.FCLA__V31*/ curfptr[30]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:2432:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:2432:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:2432:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_get_field ncla";
-         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:2432:/ apply.arg");
-         argtab[3].bp_long = 2432;
-         /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NC__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2432:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2432:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:2432:/ cppif.else");
-      /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.LET___V32*/ curfptr[31] = /*_.NC__V33*/ curfptr[32];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2431:/ clear");
-      /*clear*/ /*_.NC__V33*/ curfptr[32] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2431:/ clear");
-      /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;}
-     ;
-     /*_.NCLA__V36*/ curfptr[34] = /*_.LET___V32*/ curfptr[31];;
-     MELT_LOCATION("warmelt-normal.melt:2434:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2434:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V38*/ curfptr[33] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2434:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2434:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (1), (/*_.NOBJ__V21*/ curfptr[20]), "NUGET_OBJ");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2434:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V38*/ curfptr[33]), (2), (/*_.SFLD__V17*/ curfptr[16]), "NUGET_FIELD");
-      ;
-      /*_.NUGET__V37*/ curfptr[32] = /*_.INST__V38*/ curfptr[33];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2443:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2443:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[11])), (6), "CLASS_NREP_IFISA");/*_.INST__V40*/ curfptr[39] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NIFA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (4), (/*_.NOBJ__V21*/ curfptr[20]), "NIFA_VAL");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NIFA_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (5), (/*_.NCLA__V36*/ curfptr[34]), "NIFA_CLASS");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NUGET__V37*/ curfptr[32]), "NIF_THEN");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "NEXPR_CTYP");
-      ;
-      /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2438:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2438:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[9])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V42*/ curfptr[41] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.CSYM__V30*/ curfptr[29]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2438:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.INST___V39*/ curfptr[38]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2450:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2450:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V44*/ curfptr[43] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[10])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.CSYM__V30*/ curfptr[29]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2450:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (3), (/*_.CBIND__V41*/ curfptr[40]), "NOCC_BIND");
-      ;
-      /*_.CLOCC__V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:2456:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (melt_ptr_t)(/*_.CBIND__V41*/ curfptr[40]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2457:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2457:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2457:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_get_field clocc";
-        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2457:/ apply.arg");
-        argtab[3].bp_long = 2457;
-        /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2457:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2457:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2457:/ cppif.else");
-     /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2458:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2458:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2458:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_get_field nbind";
-        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2458:/ apply.arg");
-        argtab[3].bp_long = 2458;
-        /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2458:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2458:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2458:/ cppif.else");
-     /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:2459:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V43*/ curfptr[42];;
-      MELT_LOCATION("warmelt-normal.melt:2459:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V22*/ curfptr[21]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2459:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V28*/ curfptr[24] = /*_.RETURN___V49*/ curfptr[47];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.CSYM__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.FCLA__V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.NCLA__V36*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.NUGET__V37*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.CBIND__V41*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.CLOCC__V43*/ curfptr[42] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2429:/ clear");
-     /*clear*/ /*_.RETURN___V49*/ curfptr[47] = 0 ;}
-    ;
-    /*_.MULTI___V20*/ curfptr[18] = /*_.LET___V28*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
-    /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
-    /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
-    /*clear*/ /*_.IFCPP___V26*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
-    /*clear*/ /*_.LET___V28*/ curfptr[24] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2424:/ clear");
-   /*clear*/ /*_.NBIND__V22*/ curfptr[21] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
-  /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
-  /*clear*/ /*_.SFLD__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2419:/ clear");
-  /*clear*/ /*_.MULTI___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2414:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2414:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2414:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_GET_FIELD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_64_warmelt_normal_NORMEXP_GET_FIELD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 39
-  void* varptr[39];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<39; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 39;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_UNSAFE_PUT_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2466:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2466:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2467:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2467:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2467:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2467:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2467:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2467:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2467:/ locexp");
-      melt_assert_failed(( "check unsafeputfields recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2467)?(2467):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2467:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2467:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2467:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2468:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2468:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2468:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2468:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2468:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2468:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2468)?(2468):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2468:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2468:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2468:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2469:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2469:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2469:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2469:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2469:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2469:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2469:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2469)?(2469):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2469:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2469:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2469:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2470:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2470:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2470:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_unsafe_put_fields recv";
-    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2470:/ apply.arg");
-    argtab[3].bp_long = 2470;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2470:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2470:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2470:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2471:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2471:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2472:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2473:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; };
-  ;
-  /*_#NBFIELDS__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));;
-  /*_.NFIELDS__V18*/ curfptr[17] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));;
-  /*_.NBINDLIST__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  MELT_LOCATION("warmelt-normal.melt:2477:/ apply");
-  /*apply*/{
-   /*_.CSYM__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UNSAFPUT_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2478:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2478:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.CSYM__V20*/ curfptr[19]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2478:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
-   ;
-   /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2484:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2484:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2484:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND");
-   ;
-   /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2490:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26];MELT_LOCATION("warmelt-normal.melt:2490:/ multimsend.send");
-    /*_.NOBJ__V26*/ curfptr[25] =  meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2490:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2493:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2493:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26];
-     /*_.LIST_APPEND2LIST__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2496:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2496:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (5));
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[3] = (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]);
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2496:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[4] = (melt_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]);
-     ;
-     /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2494:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2494:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28];
-     /*_.MULTIPLE_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2511:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2511:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2511:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[20])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V34*/ curfptr[33] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2511:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2511:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.NOBJ__V26*/ curfptr[25]), "NUPUT_OBJ");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2511:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS");
-      ;
-      /*_.NPUF__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2515:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2515:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NPUF__V33*/ curfptr[32]), "LETBIND_EXPR");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2515:/ touch");
-      meltgc_touch(/*_.CBIND__V21*/ curfptr[20]);
-      ;
-      /*epilog*/}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:2516:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2517:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2517:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2517:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_unsafe_put_fields result clocc";
-        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2517:/ apply.arg");
-        argtab[3].bp_long = 2517;
-        /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2517:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2517:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2517:/ cppif.else");
-     /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2518:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2518:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2518:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_unsafe_put_fields result nbindlist";
-        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2518:/ apply.arg");
-        argtab[3].bp_long = 2518;
-        /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2518:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2518:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2518:/ cppif.else");
-     /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:2519:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];;
-      MELT_LOCATION("warmelt-normal.melt:2519:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V19*/ curfptr[18]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2519:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V39*/ curfptr[37];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
-     /*clear*/ /*_.NPUF__V33*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
-     /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
-     /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2511:/ clear");
-     /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;}
-    ;
-    /*_.MULTI___V25*/ curfptr[24] = /*_.LET___V32*/ curfptr[31];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
-    /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
-    /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2490:/ clear");
-   /*clear*/ /*_.NOBJBIND__V27*/ curfptr[26] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V25*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2471:/ clear");
-  /*clear*/ /*_.MULTI___V25*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2466:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2466:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2466:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_UNSAFE_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_65_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_66_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2496:/ getarg");
- /*_.FLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2496:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2496:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2497:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2497:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2497:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2497:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2497:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2497:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2497:/ locexp");
-      melt_assert_failed(( "check fla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2497)?(2497):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2497:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2497:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2497:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2498:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2498:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.FLD__V5*/ curfptr[3] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2499:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.EXP__V6*/ curfptr[5] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:2500:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:2500:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.FLD__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-normal.melt:2500:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2500:/ cond.then");
-    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:2500:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:2500:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:2500:/ locexp");
-       melt_assert_failed(( "check fld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2500)?(2500):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2500:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2500:/ clear");
-    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:2500:/ cppif.else");
-  /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:2501:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-    MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9];MELT_LOCATION("warmelt-normal.melt:2501:/ multimsend.send");
-    /*_.NEXP__V9*/ curfptr[7] =  meltgc_send ((melt_ptr_t)(/*_.EXP__V6*/ curfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2501:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2504:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2504:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9];
-     /*_.LIST_APPEND2LIST__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)((/*~NBINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2505:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2505:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2505:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[4])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V13*/ curfptr[12] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2505:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), ((/*~SLOC*/ curfclos->tabval[2])), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2505:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.FLD__V5*/ curfptr[3]), "NFLA_FIELD");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2505:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V13*/ curfptr[12]), (2), (/*_.NEXP__V9*/ curfptr[7]), "NFLA_VAL");
-      ;
-      /*_.NFLA__V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:2509:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)((/*~NFIELDS*/ curfclos->tabval[4])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NFLA__V12*/ curfptr[11]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2505:/ clear");
-     /*clear*/ /*_.NFLA__V12*/ curfptr[11] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2501:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[10] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2501:/ clear");
-   /*clear*/ /*_.NEXPBIND__V10*/ curfptr[9] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2498:/ clear");
-  /*clear*/ /*_.FLD__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2498:/ clear");
-  /*clear*/ /*_.EXP__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2498:/ clear");
-  /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2496:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_66_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_67_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2522:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2522:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2522:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:2522:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VOID*/ curfrout->tabval[0]);;
-  MELT_LOCATION("warmelt-normal.melt:2522:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_67_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 72
-  void* varptr[72];
-#define CURFRAM_NBVARNUM 19
-  long varnum[19];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<72; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 72;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_PUT_FIELDS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2526:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2526:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2527:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2527:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PUT_FIELDS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2527:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2527:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2527:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2527:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2527:/ locexp");
-      melt_assert_failed(( "check putfields recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2527)?(2527):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2527:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2527:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2527:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2528:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2528:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2528:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2528:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2528:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2528:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2528:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2528)?(2528):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2528:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2528:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2528:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2529:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2529:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2529:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2529:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2529:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2529:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2529:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2529)?(2529):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2529:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2529:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2529:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2530:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2530:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2530:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_put_fields recv";
-    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2530:/ apply.arg");
-    argtab[3].bp_long = 2530;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2530:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2530:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2530:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2531:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2531:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2532:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2533:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; };
-  ;
-  /*_#NBFIELDS__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));;
-  /*_.NFIELDS__V18*/ curfptr[17] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));;
-  /*_.NBINDLIST__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  MELT_LOCATION("warmelt-normal.melt:2537:/ apply");
-  /*apply*/{
-   /*_.CSYM__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_PUTFLD_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2538:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2538:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.CSYM__V20*/ curfptr[19]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2538:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
-   ;
-   /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2544:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2544:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2544:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND");
-   ;
-   /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-  ;
-  /*_.CLABOX__V25*/ curfptr[24] = 
-   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[11])), (melt_ptr_t)((/*nil*/NULL)));;
-  MELT_LOCATION("warmelt-normal.melt:2551:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V28*/ curfptr[27];MELT_LOCATION("warmelt-normal.melt:2551:/ multimsend.send");
-    /*_.NOBJ__V27*/ curfptr[26] =  meltgc_send ((melt_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2551:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2554:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2554:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOBJBIND__V28*/ curfptr[27];
-     /*_.LIST_APPEND2LIST__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SFIELDS__V17*/ curfptr[16]);
-   for (/*_#IX__L6*/ curfnum[5] = 0;  
-	(/*_#IX__L6*/ curfnum[5] >= 0) && (/*_#IX__L6*/ curfnum[5] <  cit1__EACHTUP_ln);  
-	/*_#IX__L6*/ curfnum[5]++) {
-   /*_.FLA__V30*/ curfptr[29] = melt_multiple_nth((melt_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]),  /*_#IX__L6*/ curfnum[5]);
-   
-    
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2558:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2558:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2558:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_put_fields fla";
-        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2558:/ apply.arg");
-        argtab[3].bp_long = 2558;
-        /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2558:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2558:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2558:/ cppif.else");
-     /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2559:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2559:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2559:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_put_fields clabox";
-        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2559:/ apply.arg");
-        argtab[3].bp_long = 2559;
-        /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2559:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2559:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2559:/ cppif.else");
-     /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2560:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2560:/ block");
-      /*block*/{
-       /*_#IS_A__L9*/ curfnum[6] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[14])));;
-       MELT_LOCATION("warmelt-normal.melt:2560:/ cond");
-       /*cond*/ if (/*_#IS_A__L9*/ curfnum[6]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:2560:/ cond.then");
-       /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-normal.melt:2560:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:2560:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:2560:/ locexp");
-          melt_assert_failed(( "check fla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2560)?(2560):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2560:/ clear");
-       /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2560:/ clear");
-       /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2560:/ cppif.else");
-     /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:2561:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2561:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), 2, "SFLA_FIELD");/*_.FLD__V37*/ curfptr[35] = slot; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2562:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLA__V30*/ curfptr[29]), 3, "SFLA_EXPR");/*_.EXP__V38*/ curfptr[37] = slot; };
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:2563:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:2563:/ block");
-       /*block*/{
-        /*_#IS_A__L10*/ curfnum[6] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[15])));;
-        MELT_LOCATION("warmelt-normal.melt:2563:/ cond");
-        /*cond*/ if (/*_#IS_A__L10*/ curfnum[6]) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:2563:/ cond.then");
-        /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-normal.melt:2563:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:2563:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:2563:/ locexp");
-           melt_assert_failed(( "check fld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2563)?(2563):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V39*/ curfptr[38] = /*_.IFELSE___V40*/ curfptr[39];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2563:/ clear");
-        /*clear*/ /*_#IS_A__L10*/ curfnum[6] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2563:/ clear");
-        /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:2563:/ cppif.else");
-      /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:2564:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2564:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), 2, "FLD_OWNCLASS");/*_.FCLA__V42*/ curfptr[41] = slot; };
-       ;
-       /*_.PRECLA__V43*/ curfptr[42] = 
-        melt_box_content((meltbox_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]));;
-       /*_#NULL__L11*/ curfnum[6] = 
-        ((/*_.PRECLA__V43*/ curfptr[42]) == NULL);;
-       MELT_LOCATION("warmelt-normal.melt:2567:/ cond");
-       /*cond*/ if (/*_#NULL__L11*/ curfnum[6]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:2567:/ cond.then");
-       MELT_LOCATION("warmelt-normal.melt:2567:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:2568:/ locexp");
-          meltgc_box_put((melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));}
-          ;
-          /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-       } else {MELT_LOCATION("warmelt-normal.melt:2567:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:2567:/ block");
-        /*block*/{
-         /*_#__L12*/ curfnum[11] = 
-          ((/*_.PRECLA__V43*/ curfptr[42]) == (/*_.FCLA__V42*/ curfptr[41]));;
-         MELT_LOCATION("warmelt-normal.melt:2570:/ cond");
-         /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:2570:/ cond.then");
-         /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-normal.melt:2570:/ cond.else");
-         
-          MELT_LOCATION("warmelt-normal.melt:2570:/ block");
-          /*block*/{
-           /*_#SUBCLASS_OF__L13*/ curfnum[12] = 
-            melt_is_subclass_of((meltobject_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), (meltobject_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));;
-           MELT_LOCATION("warmelt-normal.melt:2573:/ cond");
-           /*cond*/ if (/*_#SUBCLASS_OF__L13*/ curfnum[12]) /*then*/ {
-           MELT_LOCATION("warmelt-normal.melt:2573:/ cond.then");
-           /*_.IFELSE___V46*/ curfptr[45] = (/*nil*/NULL);;
-           } else {MELT_LOCATION("warmelt-normal.melt:2573:/ cond.else");
-           
-            MELT_LOCATION("warmelt-normal.melt:2573:/ block");
-            /*block*/{
-             /*_#SUBCLASS_OF__L14*/ curfnum[13] = 
-              melt_is_subclass_of((meltobject_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (meltobject_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]));;
-             MELT_LOCATION("warmelt-normal.melt:2576:/ cond");
-             /*cond*/ if (/*_#SUBCLASS_OF__L14*/ curfnum[13]) /*then*/ {
-             MELT_LOCATION("warmelt-normal.melt:2576:/ cond.then");
-             MELT_LOCATION("warmelt-normal.melt:2576:/ block");
-              /*block*/{
-               /*block*/{
-                
-                {
-                MELT_LOCATION("warmelt-normal.melt:2577:/ locexp");
-                meltgc_box_put((melt_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]));}
-                ;
-                /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
-               ;
-               /*epilog*/}
-              ;
-             } else {MELT_LOCATION("warmelt-normal.melt:2576:/ cond.else");
-             
-              MELT_LOCATION("warmelt-normal.melt:2576:/ block");
-              /*block*/{
-               
-               #if ENABLE_CHECKING
-                MELT_LOCATION("warmelt-normal.melt:2580:/ cppif.then");
-               MELT_LOCATION("warmelt-normal.melt:2580:/ block");
-                /*block*/{
-                 /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
-                  callcount;;
-                 MELT_LOCATION("warmelt-normal.melt:2580:/ apply");
-                 /*apply*/{
-                  union meltparam_un argtab[4];
-                  memset(&argtab, 0, sizeof(argtab));
-                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
-                  argtab[0].bp_cstring =  "normexp_put_fields bad fld";
-                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
-                  argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
-                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
-                  argtab[2].bp_cstring =  "warmelt-normal.melt";
-                  MELT_LOCATION("warmelt-normal.melt:2580:/ apply.arg");
-                  argtab[3].bp_long = 2580;
-                  /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                  }
-                 ;
-                 /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-normal.melt:2580:/ clear");
-                 /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
-                 MELT_LOCATION("warmelt-normal.melt:2580:/ clear");
-                 /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-                
-                #else /*ENABLE_CHECKING*/
-                MELT_LOCATION("warmelt-normal.melt:2580:/ cppif.else");
-               /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
-                #endif /*ENABLE_CHECKING*/
-                ;
-               
-               #if ENABLE_CHECKING
-                MELT_LOCATION("warmelt-normal.melt:2581:/ cppif.then");
-               MELT_LOCATION("warmelt-normal.melt:2581:/ block");
-                /*block*/{
-                 /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
-                  callcount;;
-                 MELT_LOCATION("warmelt-normal.melt:2581:/ apply");
-                 /*apply*/{
-                  union meltparam_un argtab[4];
-                  memset(&argtab, 0, sizeof(argtab));
-                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
-                  argtab[0].bp_cstring =  "normexp_put_fields bad fcla";
-                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
-                  argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
-                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
-                  argtab[2].bp_cstring =  "warmelt-normal.melt";
-                  MELT_LOCATION("warmelt-normal.melt:2581:/ apply.arg");
-                  argtab[3].bp_long = 2581;
-                  /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                  }
-                 ;
-                 /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-normal.melt:2581:/ clear");
-                 /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
-                 MELT_LOCATION("warmelt-normal.melt:2581:/ clear");
-                 /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-                
-                #else /*ENABLE_CHECKING*/
-                MELT_LOCATION("warmelt-normal.melt:2581:/ cppif.else");
-               /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
-                #endif /*ENABLE_CHECKING*/
-                ;
-               
-               #if ENABLE_CHECKING
-                MELT_LOCATION("warmelt-normal.melt:2582:/ cppif.then");
-               MELT_LOCATION("warmelt-normal.melt:2582:/ block");
-                /*block*/{
-                 /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 
-                  callcount;;
-                 MELT_LOCATION("warmelt-normal.melt:2582:/ apply");
-                 /*apply*/{
-                  union meltparam_un argtab[4];
-                  memset(&argtab, 0, sizeof(argtab));
-                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
-                  argtab[0].bp_cstring =  "normexp_put_fields bad precla";
-                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
-                  argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[14];
-                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
-                  argtab[2].bp_cstring =  "warmelt-normal.melt";
-                  MELT_LOCATION("warmelt-normal.melt:2582:/ apply.arg");
-                  argtab[3].bp_long = 2582;
-                  /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                  }
-                 ;
-                 /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-normal.melt:2582:/ clear");
-                 /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[14] = 0 ;
-                 MELT_LOCATION("warmelt-normal.melt:2582:/ clear");
-                 /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-                
-                #else /*ENABLE_CHECKING*/
-                MELT_LOCATION("warmelt-normal.melt:2582:/ cppif.else");
-               /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
-                #endif /*ENABLE_CHECKING*/
-                ;
-               MELT_LOCATION("warmelt-normal.melt:2583:/ getslot");
-               { melt_ptr_t slot=0;
-                melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V37*/ curfptr[35]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[51] = slot; };
-               ;
-               
-               {
-               MELT_LOCATION("warmelt-normal.melt:2583:/ locexp");
-               melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad field name in PUT_FIELD"), (melt_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[51]));}
-               ;
-               MELT_LOCATION("warmelt-normal.melt:2584:/ getslot");
-               { melt_ptr_t slot=0;
-                melt_object_get_field(slot,(melt_ptr_t)(/*_.PRECLA__V43*/ curfptr[42]), 1, "NAMED_NAME");/*_.NAMED_NAME__V54*/ curfptr[53] = slot; };
-               ;
-               
-               {
-               MELT_LOCATION("warmelt-normal.melt:2584:/ locexp");
-               melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "PUT_FIELD expecting field of class"), (melt_ptr_t)(/*_.NAMED_NAME__V54*/ curfptr[53]));}
-               ;
-               MELT_LOCATION("warmelt-normal.melt:2585:/ cond");
-               /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[16])))) /*then*/ {
-               MELT_LOCATION("warmelt-normal.melt:2585:/ cond.then");
-               MELT_LOCATION("warmelt-normal.melt:2585:/ getslot");
-                { melt_ptr_t slot=0;
-                 melt_object_get_field(slot,(melt_ptr_t)(/*_.FCLA__V42*/ curfptr[41]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[54] = slot; };
-                ;
-               } else {MELT_LOCATION("warmelt-normal.melt:2585:/ cond.else");
-               
-                /*_.NAMED_NAME__V55*/ curfptr[54] = NULL;;
-                }
-               ;
-               
-               {
-               MELT_LOCATION("warmelt-normal.melt:2585:/ locexp");
-               melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "PUT_FIELD got field of class"), (melt_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[54]));}
-               ;
-               MELT_LOCATION("warmelt-normal.melt:2579:/ block");
-               /*block*/{}
-               ;
-               /*epilog*/
-               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
-               /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
-               /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
-               /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
-               /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[51] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
-               /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[53] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2576:/ clear");
-               /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[54] = 0 ;}
-              ;
-              }
-             ;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:2573:/ clear");
-             /*clear*/ /*_#SUBCLASS_OF__L14*/ curfnum[13] = 0 ;}
-            ;
-            }
-           ;
-           /*_.IFELSE___V45*/ curfptr[44] = /*_.IFELSE___V46*/ curfptr[45];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:2570:/ clear");
-           /*clear*/ /*_#SUBCLASS_OF__L13*/ curfnum[12] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:2570:/ clear");
-           /*clear*/ /*_.IFELSE___V46*/ curfptr[45] = 0 ;}
-          ;
-          }
-         ;
-         /*_.IFELSE___V44*/ curfptr[43] = /*_.IFELSE___V45*/ curfptr[44];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:2567:/ clear");
-         /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:2567:/ clear");
-         /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-        ;
-        }
-       ;
-       /*_.LET___V41*/ curfptr[39] = /*_.IFELSE___V44*/ curfptr[43];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
-       /*clear*/ /*_.FCLA__V42*/ curfptr[41] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
-       /*clear*/ /*_.PRECLA__V43*/ curfptr[42] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
-       /*clear*/ /*_#NULL__L11*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2564:/ clear");
-       /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2589:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend");
-       /*multimsend*/{
-        union meltparam_un argtab[3];
-        union meltparam_un restab[1];
-        memset(&argtab, 0, sizeof(argtab));
-        memset(&restab, 0, sizeof(restab));
-        MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.arg");
-        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-        MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.xres");
-        restab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V57*/ curfptr[47];MELT_LOCATION("warmelt-normal.melt:2589:/ multimsend.send");
-        /*_.NEXP__V56*/ curfptr[46] =  meltgc_send ((melt_ptr_t)(/*_.EXP__V38*/ curfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2589:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:2592:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:2592:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPBIND__V57*/ curfptr[47];
-         /*_.LIST_APPEND2LIST__V58*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:2593:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:2593:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:2593:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[17])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V60*/ curfptr[53] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:2593:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:2593:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (1), (/*_.FLD__V37*/ curfptr[35]), "NFLA_FIELD");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:2593:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[53])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V60*/ curfptr[53]), (2), (/*_.NEXP__V56*/ curfptr[46]), "NFLA_VAL");
-          ;
-          /*_.NFLA__V59*/ curfptr[51] = /*_.INST__V60*/ curfptr[53];;}
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:2597:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]), (/*_#IX__L6*/ curfnum[5]), (melt_ptr_t)(/*_.NFLA__V59*/ curfptr[51]));}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:2593:/ clear");
-         /*clear*/ /*_.NFLA__V59*/ curfptr[51] = 0 ;}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2589:/ clear");
-        /*clear*/ /*_.LIST_APPEND2LIST__V58*/ curfptr[49] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2589:/ clear");
-       /*clear*/ /*_.NEXPBIND__V57*/ curfptr[47] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
-      /*clear*/ /*_.FLD__V37*/ curfptr[35] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
-      /*clear*/ /*_.EXP__V38*/ curfptr[37] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
-      /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2561:/ clear");
-      /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;}
-     ;
-     if (/*_#IX__L6*/ curfnum[5]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
-     /*clear*/ /*_.FLA__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
-     /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
-     /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
-     /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2555:/ clear");
-     /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2599:/ block");
-    /*block*/{
-     /*_.BOX_CONTENT__V62*/ curfptr[45] = 
-      melt_box_content((meltbox_ptr_t)(/*_.CLABOX__V25*/ curfptr[24]));;
-     MELT_LOCATION("warmelt-normal.melt:2600:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:2600:/ ojbmsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      /*_.NCLA__V63*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.BOX_CONTENT__V62*/ curfptr[45]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2601:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2601:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[18])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V65*/ curfptr[42] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2601:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2601:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUPUT_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (1), (/*_.NOBJ__V27*/ curfptr[26]), "NUPUT_OBJ");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2601:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUPUT_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V65*/ curfptr[42]), (2), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS");
-      ;
-      /*_.NPUF__V64*/ curfptr[41] = /*_.INST__V65*/ curfptr[42];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2605:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2605:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_IFISA*/ curfrout->tabval[19])), (6), "CLASS_NREP_IFISA");/*_.INST__V67*/ curfptr[51] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NIFA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (4), (/*_.NOBJ__V27*/ curfptr[26]), "NIFA_VAL");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NIFA_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (5), (/*_.NCLA__V63*/ curfptr[44]), "NIFA_CLASS");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (2), (/*_.NPUF__V64*/ curfptr[41]), "NIF_THEN");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2605:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V67*/ curfptr[51]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NEXPR_CTYP");
-      ;
-      /*_.NIF__V66*/ curfptr[43] = /*_.INST__V67*/ curfptr[51];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2613:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2613:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NIF__V66*/ curfptr[43]), "LETBIND_EXPR");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2613:/ touch");
-      meltgc_touch(/*_.CBIND__V21*/ curfptr[20]);
-      ;
-      /*epilog*/}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:2614:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CBIND__V21*/ curfptr[20]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2615:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2615:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2615:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_put_fields result clocc";
-        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[14];
-        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2615:/ apply.arg");
-        argtab[3].bp_long = 2615;
-        /*_.DEBUG_MSG_FUN__V69*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V68*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[46];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2615:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[14] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2615:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[46] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2615:/ cppif.else");
-     /*_.IFCPP___V68*/ curfptr[49] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2616:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2616:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L19*/ curfnum[13] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2616:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_put_fields result nbindlist";
-        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[13];
-        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2616:/ apply.arg");
-        argtab[3].bp_long = 2616;
-        /*_.DEBUG_MSG_FUN__V71*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V70*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[35];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2616:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2616:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[35] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2616:/ cppif.else");
-     /*_.IFCPP___V70*/ curfptr[47] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:2617:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];;
-      MELT_LOCATION("warmelt-normal.melt:2617:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V19*/ curfptr[18]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2617:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V61*/ curfptr[54] = /*_.RETURN___V72*/ curfptr[37];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.BOX_CONTENT__V62*/ curfptr[45] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.NCLA__V63*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.NPUF__V64*/ curfptr[41] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.NIF__V66*/ curfptr[43] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.IFCPP___V68*/ curfptr[49] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.IFCPP___V70*/ curfptr[47] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2599:/ clear");
-     /*clear*/ /*_.RETURN___V72*/ curfptr[37] = 0 ;}
-    ;
-    /*_.MULTI___V26*/ curfptr[25] = /*_.LET___V61*/ curfptr[54];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
-    /*clear*/ /*_.LET___V61*/ curfptr[54] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2551:/ clear");
-   /*clear*/ /*_.NOBJBIND__V28*/ curfptr[27] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V26*/ curfptr[25];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.CLABOX__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2531:/ clear");
-  /*clear*/ /*_.MULTI___V26*/ curfptr[25] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2526:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2526:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2526:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_PUT_FIELDS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_68_warmelt_normal_NORMEXP_PUT_FIELDS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_69_warmelt_normal_NORMEXP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_normal_NORMEXP_SETQ_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 49
-  void* varptr[49];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<49; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 49;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_SETQ", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2622:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2622:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2623:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2623:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_SETQ*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2623:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2623:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2623:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2623:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2623:/ locexp");
-      melt_assert_failed(( "check setq recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2623)?(2623):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2623:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2623:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2623:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2624:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2624:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2624:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2624:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2624:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2624:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2624)?(2624):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2624:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2624:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2624:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2625:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2625:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2625:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2625:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2625:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2625:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2625:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2625)?(2625):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2625:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2625:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2625:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2626:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2626:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2626:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp setq recv";
-    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2626:/ apply.arg");
-    argtab[3].bp_long = 2626;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2626:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2626:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2626:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2627:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2627:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2628:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTQ_VAR");/*_.SVAR__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2629:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SSTQ_EXPR");/*_.SEXP__V17*/ curfptr[16] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:2630:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:2630:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-normal.melt:2630:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2630:/ cond.then");
-    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:2630:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:2630:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:2630:/ locexp");
-       melt_assert_failed(( "check svar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2630)?(2630):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2630:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2630:/ clear");
-    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:2630:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:2631:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2631:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:2631:/ apply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    /*_.NVAR__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2632:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2632:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    /*_.VARCTYP__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.NVAR__V21*/ curfptr[20]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2634:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2634:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_setq varctyp";
-      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2634:/ apply.arg");
-      argtab[3].bp_long = 2634;
-      /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2634:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2634:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2634:/ cppif.else");
-   /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2635:/ block");
-    /*block*/{
-     /*_#IS_A__L7*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));;
-     MELT_LOCATION("warmelt-normal.melt:2635:/ cond");
-     /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:2635:/ cond.then");
-     /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:2635:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:2635:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2635:/ locexp");
-        melt_assert_failed(( "check varctyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2635)?(2635):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2635:/ clear");
-     /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2635:/ clear");
-     /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2635:/ cppif.else");
-   /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:2636:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend");
-    /*multimsend*/{
-     union meltparam_un argtab[3];
-     union meltparam_un restab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     memset(&restab, 0, sizeof(restab));
-     MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.xres");
-     restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V29*/ curfptr[28];MELT_LOCATION("warmelt-normal.melt:2636:/ multimsend.send");
-     /*_.NEXP__V28*/ curfptr[27] =  meltgc_send ((melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2636:/ block");
-    /*block*/{
-     /*_#NULL__L8*/ curfnum[0] = 
-      ((/*_.NBIND__V29*/ curfptr[28]) == NULL);;
-     MELT_LOCATION("warmelt-normal.melt:2639:/ cond");
-     /*cond*/ if (/*_#NULL__L8*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:2639:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:2639:/ block");
-      /*block*/{
-       /*_.MAKE_LIST__V31*/ curfptr[30] = 
-        (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-       MELT_LOCATION("warmelt-normal.melt:2639:/ compute");
-       /*_.NBIND__V29*/ curfptr[28] = /*_.SETQ___V32*/ curfptr[31] = /*_.MAKE_LIST__V31*/ curfptr[30];;
-       /*_.IF___V30*/ curfptr[29] = /*_.SETQ___V32*/ curfptr[31];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2639:/ clear");
-       /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2639:/ clear");
-       /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:2639:/ cond.else");
-     
-      /*_.IF___V30*/ curfptr[29] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2640:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2640:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:2640:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-       /*_.EXPCTYP__V33*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.NEXP__V28*/ curfptr[27]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:2642:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:2642:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_setq expctyp";
-         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:2642:/ apply.arg");
-         argtab[3].bp_long = 2642;
-         /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2642:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2642:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:2642:/ cppif.else");
-      /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:2643:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:2643:/ block");
-       /*block*/{
-        /*_#IS_A__L10*/ curfnum[8] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));;
-        MELT_LOCATION("warmelt-normal.melt:2643:/ cond");
-        /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:2643:/ cond.then");
-        /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-normal.melt:2643:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:2643:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:2643:/ locexp");
-           melt_assert_failed(( "check expctyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2643)?(2643):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2643:/ clear");
-        /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2643:/ clear");
-        /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:2643:/ cppif.else");
-      /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_#__L11*/ curfnum[8] = 
-       ((/*_.VARCTYP__V22*/ curfptr[21]) != (/*_.EXPCTYP__V33*/ curfptr[30]));;
-      MELT_LOCATION("warmelt-normal.melt:2644:/ cond");
-      /*cond*/ if (/*_#__L11*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:2644:/ cond.then");
-      MELT_LOCATION("warmelt-normal.melt:2644:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:2647:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[36] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2646:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "incompatible type for SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[36]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:2649:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[38] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2648:/ locexp");
-        melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "left [var] type for incomatible SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[38]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:2651:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2650:/ locexp");
-        melt_inform_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "right [expr] type for incomatible SETQ"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:2645:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[36] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[38] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2644:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;}
-       ;
-      } /*noelse*/
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
-      /*clear*/ /*_.EXPCTYP__V33*/ curfptr[30] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
-      /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
-      /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2640:/ clear");
-      /*clear*/ /*_#__L11*/ curfnum[8] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2653:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2653:/ apply");
-      /*apply*/{
-       /*_.CSYM__V42*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_SETQ_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2659:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2659:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[13])), (3), "CLASS_NREP_SETQ");/*_.INST__V44*/ curfptr[30] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2659:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2659:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NSTQ_VAR", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (1), (/*_.NVAR__V21*/ curfptr[20]), "NSTQ_VAR");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2659:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NSTQ_EXP", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V44*/ curfptr[30]), (2), (/*_.NEXP__V28*/ curfptr[27]), "NSTQ_EXP");
-       ;
-       /*_.INST___V43*/ curfptr[39] = /*_.INST__V44*/ curfptr[30];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2654:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2654:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V46*/ curfptr[34] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (0), (/*_.CSYM__V42*/ curfptr[38]), "BINDER");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (1), (/*_.VARCTYP__V22*/ curfptr[21]), "LETBIND_TYPE");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2654:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V46*/ curfptr[34]), (2), (/*_.INST___V43*/ curfptr[39]), "LETBIND_EXPR");
-       ;
-       /*_.CBIND__V45*/ curfptr[31] = /*_.INST__V46*/ curfptr[34];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2663:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2663:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V48*/ curfptr[47] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (2), (/*_.VARCTYP__V22*/ curfptr[21]), "NOCC_CTYP");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (1), (/*_.CSYM__V42*/ curfptr[38]), "NOCC_SYMB");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2663:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ curfptr[47])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V48*/ curfptr[47]), (3), (/*_.CBIND__V45*/ curfptr[31]), "NOCC_BIND");
-       ;
-       /*_.CLOCC__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2669:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.NBIND__V29*/ curfptr[28]), (melt_ptr_t)(/*_.CBIND__V45*/ curfptr[31]));}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2670:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V47*/ curfptr[46];;
-       MELT_LOCATION("warmelt-normal.melt:2670:/ putxtraresult");
-       if (!xrestab_ || !xresdescr_) goto labend_rout;
-       if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-       if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V29*/ curfptr[28]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2670:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.LET___V41*/ curfptr[36] = /*_.RETURN___V49*/ curfptr[48];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
-      /*clear*/ /*_.CSYM__V42*/ curfptr[38] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
-      /*clear*/ /*_.INST___V43*/ curfptr[39] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
-      /*clear*/ /*_.CBIND__V45*/ curfptr[31] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
-      /*clear*/ /*_.CLOCC__V47*/ curfptr[46] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2653:/ clear");
-      /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;}
-     ;
-     /*_.MULTI___V27*/ curfptr[25] = /*_.LET___V41*/ curfptr[36];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
-     /*clear*/ /*_#NULL__L8*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
-     /*clear*/ /*_.IF___V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
-     /*clear*/ /*_.LET___V41*/ curfptr[36] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2636:/ clear");
-    /*clear*/ /*_.NBIND__V29*/ curfptr[28] = 0 ;}
-   ;
-   /*_.LET___V20*/ curfptr[18] = /*_.MULTI___V27*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
-   /*clear*/ /*_.NVAR__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
-   /*clear*/ /*_.VARCTYP__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
-   /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
-   /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2631:/ clear");
-   /*clear*/ /*_.MULTI___V27*/ curfptr[25] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
-  /*clear*/ /*_.SVAR__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
-  /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2627:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2622:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2622:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2622:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_SETQ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_69_warmelt_normal_NORMEXP_SETQ*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_70_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2674:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2674:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2674:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:2675:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.NSTQ_VAR__V4*/ curfptr[3] = slot; };
- ;
- MELT_LOCATION("warmelt-normal.melt:2675:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:2675:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-  /*_.GET_CTYPE__V5*/ curfptr[4] = meltgc_send((melt_ptr_t)(/*_.NSTQ_VAR__V4*/ curfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:2674:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-normal.melt:2674:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2674:/ clear");
- /*clear*/ /*_.NSTQ_VAR__V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2674:/ clear");
- /*clear*/ /*_.GET_CTYPE__V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_70_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_71_warmelt_normal_NORMEXP_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_normal_NORMEXP_INSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 43
-  void* varptr[43];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<43; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 43;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_INSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2681:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2681:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2682:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2682:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2682:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2682:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2682:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2682:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2682:/ locexp");
-      melt_assert_failed(( "check instance recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2682)?(2682):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2682:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2682:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2682:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2683:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2683:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2683:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2683:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2683:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2683:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2683:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2683)?(2683):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2683:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2683:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2683:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2684:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2684:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2684:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2684:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2684:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2684:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2684:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2684)?(2684):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2684:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2684:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2684:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2685:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2685:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2685:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_instance recv";
-    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2685:/ apply.arg");
-    argtab[3].bp_long = 2685;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2685:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2685:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2685:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2686:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2686:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2687:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLASS");/*_.SCLASS__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2688:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_CLABIND");/*_.SCLABIND__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2689:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SMINS_FIELDS");/*_.SFIELDS__V18*/ curfptr[17] = slot; };
-  ;
-  /*_#IS_A__L5*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:2690:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:2690:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:2690:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2690:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V20*/ curfptr[19] = slot; };
-    ;
-    /*_.SCLASYM__V19*/ curfptr[18] = /*_.BINDER__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2690:/ clear");
-    /*clear*/ /*_.BINDER__V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:2690:/ cond.else");
-  
-   /*_.SCLASYM__V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  /*_#IS_A__L6*/ curfnum[5] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-normal.melt:2691:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:2691:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:2691:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2692:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:2692:/ ojbmsend.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     /*_.NORMAL_EXP__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.CLADATA__V21*/ curfptr[19] = /*_.NORMAL_EXP__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2691:/ clear");
-    /*clear*/ /*_.NORMAL_EXP__V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:2691:/ cond.else");
-  
-   /*_.CLADATA__V21*/ curfptr[19] = NULL;;
-   }
-  ;
-  /*_.BINDLIST__V23*/ curfptr[21] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[7]))));;
-  /*_#IS_A__L7*/ curfnum[6] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V21*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[8])));;
-  /*_#NOT__L8*/ curfnum[7] = 
-   (!(/*_#IS_A__L7*/ curfnum[6]));;
-  MELT_LOCATION("warmelt-normal.melt:2696:/ cond");
-  /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:2696:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:2696:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2698:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:2698:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in (INSTANCE ..)"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2699:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-normal.melt:2699:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2697:/ block");
-    /*block*/{
-     /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;}
-    ;
-    /*_.IF___V24*/ curfptr[23] = /*_.PROGN___V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
-    /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2696:/ clear");
-    /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:2696:/ cond.else");
-  
-   /*_.IF___V24*/ curfptr[23] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2700:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2703:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2703:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[26] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4));
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2703:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[26])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[26])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[26])->tabval[3] = (melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]);
-    ;
-    /*_.LAMBDA___V29*/ curfptr[25] = /*_.LAMBDA___V30*/ curfptr[26];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2701:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2701:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[25];
-    /*_.NFIELDS__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SFIELDS__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2720:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2720:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_INSTANCE*/ curfrout->tabval[15])), (4), "CLASS_NREP_INSTANCE");/*_.INST__V33*/ curfptr[32] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NMINS_CLASS", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SCLASS__V16*/ curfptr[15]), "NMINS_CLASS");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NMINS_CLADATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.CLADATA__V21*/ curfptr[19]), "NMINS_CLADATA");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2720:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NMINS_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.NFIELDS__V31*/ curfptr[30]), "NMINS_FIELDS");
-    ;
-    /*_.NMKINS__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2725:/ apply");
-   /*apply*/{
-    /*_.CSYM__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[16])), (melt_ptr_t)((/*!konst_17_INST_*/ curfrout->tabval[17])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2726:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2726:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V36*/ curfptr[35] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.CSYM__V34*/ curfptr[33]), "BINDER");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "LETBIND_TYPE");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2726:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.NMKINS__V32*/ curfptr[31]), "LETBIND_EXPR");
-    ;
-    /*_.CBIND__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2731:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2731:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V38*/ curfptr[37] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "NOCC_CTYP");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.CSYM__V34*/ curfptr[33]), "NOCC_SYMB");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2731:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (3), (/*_.CBIND__V35*/ curfptr[34]), "NOCC_BIND");
-    ;
-    /*_.CLOCC__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:2737:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (melt_ptr_t)(/*_.CBIND__V35*/ curfptr[34]));}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2738:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2738:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2738:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_instance result clocc";
-      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2738:/ apply.arg");
-      argtab[3].bp_long = 2738;
-      /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2738:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2738:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2738:/ cppif.else");
-   /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2739:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2739:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2739:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_instance result bindlist";
-      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2739:/ apply.arg");
-      argtab[3].bp_long = 2739;
-      /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2739:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2739:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2739:/ cppif.else");
-   /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:2740:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V37*/ curfptr[36];;
-    MELT_LOCATION("warmelt-normal.melt:2740:/ putxtraresult");
-    if (!xrestab_ || !xresdescr_) goto labend_rout;
-    if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-    if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V23*/ curfptr[21]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2740:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V28*/ curfptr[24] = /*_.RETURN___V43*/ curfptr[41];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.LAMBDA___V29*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.NFIELDS__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.NMKINS__V32*/ curfptr[31] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.CSYM__V34*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.CBIND__V35*/ curfptr[34] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.CLOCC__V37*/ curfptr[36] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2700:/ clear");
-   /*clear*/ /*_.RETURN___V43*/ curfptr[41] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V28*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.SCLASS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.SCLABIND__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.SFIELDS__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.SCLASYM__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.CLADATA__V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.BINDLIST__V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.IF___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2686:/ clear");
-  /*clear*/ /*_.LET___V28*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2681:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2681:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2681:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_71_warmelt_normal_NORMEXP_INSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_72_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2703:/ getarg");
- /*_.CURFLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2703:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2703:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2704:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2704:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2704:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2704:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2704:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2704:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2704:/ locexp");
-      melt_assert_failed(( "check curflda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2704)?(2704):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2704:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2704:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2704:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2705:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2705:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.CURFLOC__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2706:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFIELD__V7*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2707:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#NULL__L3*/ curfnum[1] = 
-   ((/*_.CURFLOC__V6*/ curfptr[5]) == NULL);;
-  MELT_LOCATION("warmelt-normal.melt:2708:/ cond");
-  /*cond*/ if (/*_#NULL__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:2708:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:2708:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2708:/ compute");
-    /*_.CURFLOC__V6*/ curfptr[5] = /*_.SETQ___V10*/ curfptr[9] = (/*~SLOC*/ curfclos->tabval[0]);;
-    /*_.IF___V9*/ curfptr[8] = /*_.SETQ___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2708:/ clear");
-    /*clear*/ /*_.SETQ___V10*/ curfptr[9] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:2708:/ cond.else");
-  
-   /*_.IF___V9*/ curfptr[8] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2709:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.CURFLOC__V6*/ curfptr[5];
-    MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V13*/ curfptr[12];MELT_LOCATION("warmelt-normal.melt:2709:/ multimsend.send");
-    /*_.NEXP__V12*/ curfptr[11] =  meltgc_send ((melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2709:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:2712:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:2712:/ block");
-     /*block*/{
-      /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = 
-       ((/*_.NBIND__V13*/ curfptr[12]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBIND__V13*/ curfptr[12])) == OBMAG_LIST));;
-      MELT_LOCATION("warmelt-normal.melt:2712:/ cond");
-      /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[3]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:2712:/ cond.then");
-      /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:2712:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:2712:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:2712:/ locexp");
-         melt_assert_failed(( "check nbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2712)?(2712):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2712:/ clear");
-      /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2712:/ clear");
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:2712:/ cppif.else");
-    /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:2713:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2713:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V13*/ curfptr[12];
-     /*_.LIST_APPEND2LIST__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)((/*~BINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2714:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2714:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[3])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V18*/ curfptr[17] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2714:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.CURFLOC__V6*/ curfptr[5]), "NREP_LOC");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2714:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NFLA_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.CURFIELD__V7*/ curfptr[6]), "NFLA_FIELD");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2714:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NFLA_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NEXP__V12*/ curfptr[11]), "NFLA_VAL");
-     ;
-     /*_.INST___V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
-    ;
-    /*_.MULTI___V11*/ curfptr[9] = /*_.INST___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
-    /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
-    /*clear*/ /*_.INST___V17*/ curfptr[16] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2709:/ clear");
-   /*clear*/ /*_.NBIND__V13*/ curfptr[12] = 0 ;}
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.MULTI___V11*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
-  /*clear*/ /*_.CURFLOC__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
-  /*clear*/ /*_.CURFIELD__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
-  /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
-  /*clear*/ /*_#NULL__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
-  /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2705:/ clear");
-  /*clear*/ /*_.MULTI___V11*/ curfptr[9] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2703:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:2703:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2703:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2703:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_72_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_73_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2746:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2746:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2746:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:2746:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);;
-  MELT_LOCATION("warmelt-normal.melt:2746:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_73_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_74_warmelt_normal_NORMEXP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_normal_NORMEXP_FOREVER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 73
-  void* varptr[73];
-#define CURFRAM_NBVARNUM 22
-  long varnum[22];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<73; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 73;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_FOREVER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2751:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt: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(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2751:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2751:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2751:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2752:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FOREVER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2752:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2752:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2752:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2752:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2752:/ locexp");
-      melt_assert_failed(( "check forever recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2752)?(2752):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2752:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2752:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2752:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2753:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2753:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2753:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2753:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2753:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2753:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2753:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2753)?(2753):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2753:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2753:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2753:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2754:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2754:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2754:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2754:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2754:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2754:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2754:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2754)?(2754):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2754:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2754:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2754:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2755:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2755:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_forever recv";
-    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2755:/ apply.arg");
-    argtab[3].bp_long = 2755;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2755:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2755:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2755:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2756:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2756:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2757:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2758:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SFRV_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2759:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:2761:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:2761:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-normal.melt:2761:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2761:/ cond.then");
-    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:2761:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:2761:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:2761:/ locexp");
-       melt_assert_failed(( "check slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2761)?(2761):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2761:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2761:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:2761:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:2762:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:2762:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15];
-   /*_.PUT_ENV__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2763:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2763:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[22] = slot; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ apply");
-   /*apply*/{
-    /*_.RESY__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.BINDER__V23*/ curfptr[22]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2764:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2764:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2764:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_forever putting resy..";
-      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2764:/ apply.arg");
-      argtab[3].bp_long = 2764;
-      /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2764:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2764:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2764:/ cppif.else");
-   /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2765:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2765:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2765:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
-      argtab[0].bp_cstring =  "..normexp_forever in slbind";
-      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2765:/ apply.arg");
-      argtab[3].bp_long = 2765;
-      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2765:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2765:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2765:/ cppif.else");
-   /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2766:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2766:/ block");
-    /*block*/{
-     /*_#IS_OBJECT__L8*/ curfnum[0] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);;
-     MELT_LOCATION("warmelt-normal.melt:2766:/ cond");
-     /*cond*/ if (/*_#IS_OBJECT__L8*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:2766:/ cond.then");
-     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:2766:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:2766:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2766:/ locexp");
-        melt_assert_failed(( "check resy obj1"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2766)?(2766):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2766:/ clear");
-     /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2766:/ clear");
-     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2766:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:2767:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2767:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LABIND_CLONSY", melt_magic_discr((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.SLBIND__V16*/ curfptr[15]), (2), (/*_.RESY__V24*/ curfptr[23]), "LABIND_CLONSY");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2767:/ touch");
-    meltgc_touch(/*_.SLBIND__V16*/ curfptr[15]);
-    ;
-    /*epilog*/}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2768:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2768:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2768:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_forever updated slbind";
-      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2768:/ apply.arg");
-      argtab[3].bp_long = 2768;
-      /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2768:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2768:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2768:/ cppif.else");
-   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2769:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2769:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2769:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_forever clonsy put resy";
-      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2769:/ apply.arg");
-      argtab[3].bp_long = 2769;
-      /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2769:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2769:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2769:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2770:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2770:/ block");
-    /*block*/{
-     /*_#IS_A__L11*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[8])));;
-     MELT_LOCATION("warmelt-normal.melt:2770:/ cond");
-     /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:2770:/ cond.then");
-     /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:2770:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:2770:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2770:/ locexp");
-        melt_assert_failed(( "check resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2770)?(2770):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2770:/ clear");
-     /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2770:/ clear");
-     /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2770:/ cppif.else");
-   /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2771:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2771:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2771:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V38*/ curfptr[37] = slot; };
-     ;
-     /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:2771:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_forever got1 clonsy";
-      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:2771:/ apply.arg");
-      argtab[3].bp_long = 2771;
-      /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LABIND_CLONSY__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2771:/ clear");
-     /*clear*/ /*_.LABIND_CLONSY__V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2771:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2771:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2771:/ cppif.else");
-   /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2772:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2772:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:2772:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V41*/ curfptr[38] = slot; };
-     ;
-     /*_#__L13*/ curfnum[0] = 
-      ((/*_.LABIND_CLONSY__V41*/ curfptr[38]) == (/*_.RESY__V24*/ curfptr[23]));;
-     MELT_LOCATION("warmelt-normal.melt:2772:/ cond");
-     /*cond*/ if (/*_#__L13*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:2772:/ cond.then");
-     /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:2772:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:2772:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2772:/ locexp");
-        melt_assert_failed(( "check did1 put resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2772)?(2772):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V40*/ curfptr[37] = /*_.IFELSE___V42*/ curfptr[41];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2772:/ clear");
-     /*clear*/ /*_.LABIND_CLONSY__V41*/ curfptr[38] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2772:/ clear");
-     /*clear*/ /*_#__L13*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2772:/ clear");
-     /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2772:/ cppif.else");
-   /*_.IFCPP___V40*/ curfptr[37] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:2773:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:2773:/ block");
-    /*block*/{
-     /*_#IS_OBJECT__L14*/ curfnum[0] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);;
-     MELT_LOCATION("warmelt-normal.melt:2773:/ cond");
-     /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:2773:/ cond.then");
-     /*_.IFELSE___V44*/ curfptr[41] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:2773:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:2773:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2773:/ locexp");
-        melt_assert_failed(( "check resy obj2"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2773)?(2773):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V43*/ curfptr[38] = /*_.IFELSE___V44*/ curfptr[41];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2773:/ clear");
-     /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2773:/ clear");
-     /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:2773:/ cppif.else");
-   /*_.IFCPP___V43*/ curfptr[38] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:2774:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply");
-    /*multiapply 4args, 1x.res*/ {
-     union meltparam_un argtab[3];
-     
-     union meltparam_un restab[1];
-     memset(&restab, 0, sizeof(restab));
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.xres");
-     restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46];
-     MELT_LOCATION("warmelt-normal.melt:2774:/ multiapply.appl");
-     /*_.NBODY__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2774:/ block");
-    /*block*/{
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2777:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2777:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2777:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_forever again slbind";
-        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2777:/ apply.arg");
-        argtab[3].bp_long = 2777;
-        /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2777:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2777:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2777:/ cppif.else");
-     /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2778:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2778:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2778:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V51*/ curfptr[50] = slot; };
-       ;
-       /*_#__L16*/ curfnum[0] = 
-        ((/*_.LABIND_CLONSY__V51*/ curfptr[50]) == (/*_.RESY__V24*/ curfptr[23]));;
-       MELT_LOCATION("warmelt-normal.melt:2778:/ cond");
-       /*cond*/ if (/*_#__L16*/ curfnum[0]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:2778:/ cond.then");
-       /*_.IFELSE___V52*/ curfptr[51] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-normal.melt:2778:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:2778:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:2778:/ locexp");
-          melt_assert_failed(( "check did2 put resy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2778)?(2778):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V52*/ curfptr[51];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2778:/ clear");
-       /*clear*/ /*_.LABIND_CLONSY__V51*/ curfptr[50] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2778:/ clear");
-       /*clear*/ /*_#__L16*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2778:/ clear");
-       /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2778:/ cppif.else");
-     /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2779:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2779:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2779:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V54*/ curfptr[51] = slot; };
-       ;
-       /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2779:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_forever got2 clonsy";
-        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2779:/ apply.arg");
-        argtab[3].bp_long = 2779;
-        /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LABIND_CLONSY__V54*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V53*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2779:/ clear");
-       /*clear*/ /*_.LABIND_CLONSY__V54*/ curfptr[51] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2779:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2779:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2779:/ cppif.else");
-     /*_.IFCPP___V53*/ curfptr[50] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2780:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2780:/ block");
-      /*block*/{
-       /*_#GET_INT__L18*/ curfnum[0] = 
-        (melt_get_int((melt_ptr_t)((/*!LABIND_CLONSY*/ curfrout->tabval[10]))));;
-       /*_#OBJECT_LENGTH__L19*/ curfnum[18] = 
-        ((long)melt_object_length((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])));;
-       /*_#I__L20*/ curfnum[19] = 
-        ((/*_#GET_INT__L18*/ curfnum[0]) < (/*_#OBJECT_LENGTH__L19*/ curfnum[18]));;
-       MELT_LOCATION("warmelt-normal.melt:2780:/ cond");
-       /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:2780:/ cond.then");
-       /*_.IFELSE___V57*/ curfptr[54] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-normal.melt:2780:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:2780:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:2780:/ locexp");
-          melt_assert_failed(( "check size slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2780)?(2780):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V56*/ curfptr[51] = /*_.IFELSE___V57*/ curfptr[54];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
-       /*clear*/ /*_#GET_INT__L18*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
-       /*clear*/ /*_#OBJECT_LENGTH__L19*/ curfnum[18] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
-       /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2780:/ clear");
-       /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2780:/ cppif.else");
-     /*_.IFCPP___V56*/ curfptr[51] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:2781:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2783:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:2783:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46];
-       MELT_LOCATION("warmelt-normal.melt:2783:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-       /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.RESBODY__V60*/ curfptr[59] = 
-       (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58])));;
-      MELT_LOCATION("warmelt-normal.melt:2784:/ apply");
-      /*apply*/{
-       /*_.CSYM__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (melt_ptr_t)((/*!konst_13_FOREVER_*/ curfrout->tabval[13])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2785:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2785:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FOREVER*/ curfrout->tabval[14])), (4), "CLASS_NREP_FOREVER");/*_.INST__V63*/ curfptr[62] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NFOREVER_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NFOREVER_BIND");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NFOREVER_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.RESBODY__V60*/ curfptr[59]), "NFOREVER_BODY");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2785:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NFOREVER_RESULT", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), (/*_.RESY__V24*/ curfptr[23]), "NFOREVER_RESULT");
-       ;
-       /*_.NFOREVER__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2790:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2790:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[15])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V65*/ curfptr[64] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.CSYM__V61*/ curfptr[60]), "BINDER");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "LETBIND_TYPE");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2790:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), (/*_.NFOREVER__V62*/ curfptr[61]), "LETBIND_EXPR");
-       ;
-       /*_.CBIND__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2795:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:2795:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V67*/ curfptr[66] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (1), (/*_.CSYM__V61*/ curfptr[60]), "NOCC_SYMB");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2795:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V67*/ curfptr[66]), (3), (/*_.CBIND__V64*/ curfptr[63]), "NOCC_BIND");
-       ;
-       /*_.CLOCC__V66*/ curfptr[65] = /*_.INST__V67*/ curfptr[66];;}
-      ;
-      /*_.NFORBINDINGS__V68*/ curfptr[67] = 
-       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[18]))));;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2802:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.NFORBINDINGS__V68*/ curfptr[67]), (melt_ptr_t)(/*_.CBIND__V64*/ curfptr[63]));}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:2803:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:2803:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:2803:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_forever return nforever";
-         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0];
-         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:2803:/ apply.arg");
-         argtab[3].bp_long = 2803;
-         /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2803:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2803:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:2803:/ cppif.else");
-      /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:2804:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:2804:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L22*/ curfnum[18] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:2804:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_forever return nforever";
-         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[18];
-         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:2804:/ apply.arg");
-         argtab[3].bp_long = 2804;
-         /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V71*/ curfptr[69] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2804:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[18] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2804:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:2804:/ cppif.else");
-      /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:2805:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V66*/ curfptr[65];;
-       MELT_LOCATION("warmelt-normal.melt:2805:/ putxtraresult");
-       if (!xrestab_ || !xresdescr_) goto labend_rout;
-       if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-       if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NFORBINDINGS__V68*/ curfptr[67]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:2805:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.LET___V58*/ curfptr[54] = /*_.RETURN___V73*/ curfptr[71];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.RESBODY__V60*/ curfptr[59] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.CSYM__V61*/ curfptr[60] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.NFOREVER__V62*/ curfptr[61] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.CBIND__V64*/ curfptr[63] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.CLOCC__V66*/ curfptr[65] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.NFORBINDINGS__V68*/ curfptr[67] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2781:/ clear");
-      /*clear*/ /*_.RETURN___V73*/ curfptr[71] = 0 ;}
-     ;
-     /*_.MULTI___V45*/ curfptr[41] = /*_.LET___V58*/ curfptr[54];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
-     /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
-     /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
-     /*clear*/ /*_.IFCPP___V53*/ curfptr[50] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
-     /*clear*/ /*_.IFCPP___V56*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
-     /*clear*/ /*_.LET___V58*/ curfptr[54] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2774:/ clear");
-    /*clear*/ /*_.NBODBINDINGS__V47*/ curfptr[46] = 0 ;}
-   ;
-   /*_.LET___V22*/ curfptr[21] = /*_.MULTI___V45*/ curfptr[41];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.BINDER__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.RESY__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V40*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.IFCPP___V43*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2763:/ clear");
-   /*clear*/ /*_.MULTI___V45*/ curfptr[41] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V22*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2756:/ clear");
-  /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2751:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2751:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2751:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_FOREVER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_74_warmelt_normal_NORMEXP_FOREVER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_75_warmelt_normal_NORMEXP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_normal_NORMEXP_EXIT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 41
-  void* varptr[41];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<41; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 41;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_EXIT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2815:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2815:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2816:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXIT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2816:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2816:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2816:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2816:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2816:/ locexp");
-      melt_assert_failed(( "check exit recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2816)?(2816):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2816:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2816:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2816:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2817:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2817:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2817:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2817:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2817:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2817:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2817:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2817)?(2817):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2817:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2817:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2817:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2818:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2818:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2818:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2818:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2818:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2818:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2818:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2818)?(2818):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2818:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2818:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2818:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2819:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2819:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2819:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_exit recv";
-    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2819:/ apply.arg");
-    argtab[3].bp_long = 2819;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2819:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2819:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2819:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2820:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2820:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2821:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2822:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXI_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2823:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:2825:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:2825:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-normal.melt:2825:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2825:/ cond.then");
-    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:2825:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:2825:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:2825:/ locexp");
-       melt_assert_failed(( "check slbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2825)?(2825):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2825:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2825:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:2825:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:2826:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:2826:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15];
-   /*_.PUT_ENV__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2827:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply");
-   /*multiapply 4args, 1x.res*/ {
-    union meltparam_un argtab[3];
-    
-    union meltparam_un restab[1];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17];MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V24*/ curfptr[23];
-    MELT_LOCATION("warmelt-normal.melt:2827:/ multiapply.appl");
-    /*_.NBODY__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2827:/ block");
-   /*block*/{
-    /*_#NULL__L6*/ curfnum[0] = 
-     ((/*_.NBODBINDINGS__V24*/ curfptr[23]) == NULL);;
-    MELT_LOCATION("warmelt-normal.melt:2830:/ cond");
-    /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2830:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:2830:/ block");
-     /*block*/{
-      /*_.MAKE_LIST__V26*/ curfptr[25] = 
-       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-      MELT_LOCATION("warmelt-normal.melt:2831:/ compute");
-      /*_.NBODBINDINGS__V24*/ curfptr[23] = /*_.SETQ___V27*/ curfptr[26] = /*_.MAKE_LIST__V26*/ curfptr[25];;
-      /*_.IF___V25*/ curfptr[24] = /*_.SETQ___V27*/ curfptr[26];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2830:/ clear");
-      /*clear*/ /*_.MAKE_LIST__V26*/ curfptr[25] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2830:/ clear");
-      /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:2830:/ cond.else");
-    
-     /*_.IF___V25*/ curfptr[24] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:2833:/ block");
-    /*block*/{
-     /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.NBODY__V23*/ curfptr[22])));;
-     /*_#I__L8*/ curfnum[7] = 
-      ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) - (1));;
-     /*_.MULTIPLE_NTH__V29*/ curfptr[26] = 
-      (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V23*/ curfptr[22]), (/*_#I__L8*/ curfnum[7])));;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2833:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_EXIT*/ curfrout->tabval[9])), (3), "CLASS_NREP_EXIT");/*_.INST__V31*/ curfptr[30] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2833:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2833:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXIT_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NEXIT_BIND");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2833:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXIT_VAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.MULTIPLE_NTH__V29*/ curfptr[26]), "NEXIT_VAL");
-      ;
-      /*_.NEXIT__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2837:/ apply");
-     /*apply*/{
-      /*_.CSYM__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_EXIT_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2838:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2838:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V34*/ curfptr[33] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.CSYM__V32*/ curfptr[31]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2838:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.NEXIT__V30*/ curfptr[29]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2843:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2843:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V36*/ curfptr[35] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.CSYM__V32*/ curfptr[31]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2843:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (3), (/*_.CBIND__V33*/ curfptr[32]), "NOCC_BIND");
-      ;
-      /*_.CLOCC__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:2849:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (melt_ptr_t)(/*_.CBIND__V33*/ curfptr[32]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2850:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2850:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2850:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_exit nexit";
-        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2850:/ apply.arg");
-        argtab[3].bp_long = 2850;
-        /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXIT__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2850:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2850:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2850:/ cppif.else");
-     /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:2851:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:2851:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:2851:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_exit nbodbindings";
-        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:2851:/ apply.arg");
-        argtab[3].bp_long = 2851;
-        /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:2851:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:2851:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:2851:/ cppif.else");
-     /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:2852:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V35*/ curfptr[34];;
-      MELT_LOCATION("warmelt-normal.melt:2852:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBODBINDINGS__V24*/ curfptr[23]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2852:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V28*/ curfptr[25] = /*_.RETURN___V41*/ curfptr[39];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.MULTIPLE_NTH__V29*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.NEXIT__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.CSYM__V32*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.CBIND__V33*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.CLOCC__V35*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:2833:/ clear");
-     /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ;}
-    ;
-    /*_.MULTI___V22*/ curfptr[21] = /*_.LET___V28*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
-    /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
-    /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
-    /*clear*/ /*_.LET___V28*/ curfptr[25] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2827:/ clear");
-   /*clear*/ /*_.NBODBINDINGS__V24*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2820:/ clear");
-  /*clear*/ /*_.MULTI___V22*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2815:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2815:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2815:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_EXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_75_warmelt_normal_NORMEXP_EXIT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_COMPILEWARNING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2858:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2858:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2859:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2859:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMPILEWARNING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2859:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2859:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2859:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2859:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2859:/ locexp");
-      melt_assert_failed(( "check compilewarn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2859)?(2859):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2859:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2859:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2859:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2860:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2860:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2860:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2860:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2860:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2860:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2860:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2860)?(2860):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2860:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2860:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2860:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2861:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2861:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2861:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2861:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2861:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2861:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2861:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2861)?(2861):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2861:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2861:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2861:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2862:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2862:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2862:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_compile_warning recv";
-    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2862:/ apply.arg");
-    argtab[3].bp_long = 2862;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2862:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2862:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2862:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2863:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2863:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2864:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCWARN_MSG");/*_.SWMSG__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2865:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCWARN_EXPR");/*_.SWEXP__V17*/ curfptr[16] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:2867:/ locexp");
-  melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "COMPILE_WARNING:"), (melt_ptr_t)(/*_.SWMSG__V16*/ curfptr[15]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2868:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:2868:/ multimsend.send");
-    /*_.NEXP__V19*/ curfptr[18] =  meltgc_send ((melt_ptr_t)(/*_.SWEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[4]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2868:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:2871:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:2871:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:2871:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_compile_warning nesult nexp";
-       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:2871:/ apply.arg");
-       argtab[3].bp_long = 2871;
-       /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2871:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2871:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:2871:/ cppif.else");
-    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:2872:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:2872:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:2872:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_compile_warning result nbind";
-       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:2872:/ apply.arg");
-       argtab[3].bp_long = 2872;
-       /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBIND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2872:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2872:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:2872:/ cppif.else");
-    /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:2873:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.NEXP__V19*/ curfptr[18];;
-     MELT_LOCATION("warmelt-normal.melt:2873:/ putxtraresult");
-     if (!xrestab_ || !xresdescr_) goto labend_rout;
-     if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-     if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBIND__V20*/ curfptr[19]);
-     ;
-     MELT_LOCATION("warmelt-normal.melt:2873:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.MULTI___V18*/ curfptr[17] = /*_.RETURN___V25*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
-    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
-    /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
-    /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2868:/ clear");
-   /*clear*/ /*_.NBIND__V20*/ curfptr[19] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V18*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
-  /*clear*/ /*_.SWMSG__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
-  /*clear*/ /*_.SWEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2863:/ clear");
-  /*clear*/ /*_.MULTI___V18*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2858:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2858:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2858:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_COMPILEWARNING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_76_warmelt_normal_NORMEXP_COMPILEWARNING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_77_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2878:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2878:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2878:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:2878:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCWARN_EXPR");/*_.SCWARN_EXPR__V4*/ curfptr[3] = slot; };
- ;
- MELT_LOCATION("warmelt-normal.melt:2878:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:2878:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-  /*_.GET_CTYPE__V5*/ curfptr[4] = meltgc_send((melt_ptr_t)(/*_.SCWARN_EXPR__V4*/ curfptr[3]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:2878:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-normal.melt:2878:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2878:/ clear");
- /*clear*/ /*_.SCWARN_EXPR__V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2878:/ clear");
- /*clear*/ /*_.GET_CTYPE__V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_77_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 57
-  void* varptr[57];
-#define CURFRAM_NBVARNUM 17
-  long varnum[17];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<57; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 57;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("REPLACE_LAST_BY_RETURN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2882:/ getarg");
- /*_.TUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2882:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2882:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2882:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2883:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2883:/ block");
-  /*block*/{
-   /*_#IS_MULTIPLE__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);;
-   MELT_LOCATION("warmelt-normal.melt:2883:/ cond");
-   /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2883:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2883:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2883:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2883:/ locexp");
-      melt_assert_failed(( "check tup"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2883)?(2883):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2883:/ clear");
-   /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2883:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2883:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2884:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2884:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2884:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2884:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2884:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2884:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2884:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2884)?(2884):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2884:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2884:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2884:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2885:/ block");
- /*block*/{
-  /*_#TUPLEN__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1])));;
-  /*_#I__L4*/ curfnum[3] = 
-   ((/*_#TUPLEN__L3*/ curfnum[0]) > (0));;
-  MELT_LOCATION("warmelt-normal.melt:2886:/ cond");
-  /*cond*/ if (/*_#I__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:2886:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:2886:/ block");
-   /*block*/{
-    /*_#I__L5*/ curfnum[4] = 
-     ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
-    /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L5*/ curfnum[4])));;
-    /*_.LASTCOMP__V10*/ curfptr[9] = /*_.MULTIPLE_NTH__V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2886:/ clear");
-    /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2886:/ clear");
-    /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:2886:/ cond.else");
-  
-   /*_.LASTCOMP__V10*/ curfptr[9] = NULL;;
-   }
-  ;
-  /*_#IS_A__L6*/ curfnum[4] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-normal.melt:2889:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:2889:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:2889:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:2890:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-     MELT_LOCATION("warmelt-normal.melt:2890:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IFELSE___V12*/ curfptr[10] = /*_.RETURN___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2889:/ clear");
-    /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:2889:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:2889:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[6] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-normal.melt:2893:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:2893:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:2893:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:2894:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V15*/ curfptr[14] = slot; };
-      ;
-      /*_#__L8*/ curfnum[7] = 
-       ((/*_.NOCC_CTYP__V15*/ curfptr[14]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));;
-      MELT_LOCATION("warmelt-normal.melt:2894:/ cond");
-      /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:2894:/ cond.then");
-      MELT_LOCATION("warmelt-normal.melt:2894:/ block");
-       /*block*/{
-        /*_#I__L9*/ curfnum[8] = 
-         ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
-        MELT_LOCATION("warmelt-normal.melt:2897:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:2897:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V17*/ curfptr[16] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:2897:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:2897:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN");
-         ;
-         /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2895:/ locexp");
-        meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L9*/ curfnum[8]), (melt_ptr_t)(/*_.INST___V16*/ curfptr[15]));}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2894:/ clear");
-        /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2894:/ clear");
-        /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;}
-       ;
-      } /*noelse*/
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2900:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-       MELT_LOCATION("warmelt-normal.melt:2900:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:2893:/ block");
-      /*block*/{
-       /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[15];;}
-      ;
-      /*_.IFELSE___V14*/ curfptr[12] = /*_.PROGN___V19*/ curfptr[18];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
-      /*clear*/ /*_.NOCC_CTYP__V15*/ curfptr[14] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
-      /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
-      /*clear*/ /*_.RETURN___V18*/ curfptr[15] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
-      /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:2893:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:2893:/ block");
-     /*block*/{
-      /*_#IS_A__L10*/ curfnum[8] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-normal.melt:2903:/ cond");
-      /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:2903:/ cond.then");
-      MELT_LOCATION("warmelt-normal.melt:2903:/ block");
-       /*block*/{
-        /*_#I__L11*/ curfnum[7] = 
-         ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
-        MELT_LOCATION("warmelt-normal.melt:2906:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:2906:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V22*/ curfptr[18] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:2906:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V22*/ curfptr[18]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:2906:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V22*/ curfptr[18]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN");
-         ;
-         /*_.INST___V21*/ curfptr[15] = /*_.INST__V22*/ curfptr[18];;}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:2904:/ locexp");
-        meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L11*/ curfnum[7]), (melt_ptr_t)(/*_.INST___V21*/ curfptr[15]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:2909:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-         MELT_LOCATION("warmelt-normal.melt:2909:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:2903:/ block");
-        /*block*/{
-         /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;}
-        ;
-        /*_.IFELSE___V20*/ curfptr[14] = /*_.PROGN___V24*/ curfptr[23];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
-        /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
-        /*clear*/ /*_.INST___V21*/ curfptr[15] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
-        /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
-        /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-normal.melt:2903:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:2903:/ block");
-       /*block*/{
-        /*_#NULL__L12*/ curfnum[7] = 
-         ((/*_.LASTCOMP__V10*/ curfptr[9]) == NULL);;
-        MELT_LOCATION("warmelt-normal.melt:2912:/ cond");
-        /*cond*/ if (/*_#NULL__L12*/ curfnum[7]) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:2912:/ cond.then");
-        MELT_LOCATION("warmelt-normal.melt:2912:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:2913:/ block");
-          /*block*/{
-           /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-           MELT_LOCATION("warmelt-normal.melt:2913:/ finalreturn");
-           ;
-           /*finalret*/ goto labend_rout ;}
-          ;
-          /*_.IFELSE___V25*/ curfptr[15] = /*_.RETURN___V26*/ curfptr[22];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:2912:/ clear");
-          /*clear*/ /*_.RETURN___V26*/ curfptr[22] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-normal.melt:2912:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:2912:/ block");
-         /*block*/{
-          /*_#IS_A__L13*/ curfnum[12] = 
-           melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])));;
-          MELT_LOCATION("warmelt-normal.melt:2916:/ cond");
-          /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
-          MELT_LOCATION("warmelt-normal.melt:2916:/ cond.then");
-          MELT_LOCATION("warmelt-normal.melt:2916:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-normal.melt:2917:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-normal.melt:2917:/ getslot");
-             { melt_ptr_t slot=0;
-              melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NLET_BODY");/*_.LBODY__V29*/ curfptr[28] = slot; };
-             ;
-             MELT_LOCATION("warmelt-normal.melt:2918:/ getslot");
-             { melt_ptr_t slot=0;
-              melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 1, "NLET_BINDINGS");/*_.LBINDING__V30*/ curfptr[29] = slot; };
-             ;
-             MELT_LOCATION("warmelt-normal.melt:2919:/ getslot");
-             { melt_ptr_t slot=0;
-              melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LLOC__V31*/ curfptr[30] = slot; };
-             ;
-             MELT_LOCATION("warmelt-normal.melt:2920:/ apply");
-             /*apply*/{
-              /*_.NEWENV__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-              }
-             ;
-             MELT_LOCATION("warmelt-normal.melt:2924:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-normal.melt:2924:/ newclosure");
-               /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[33] =
-               meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
-              ;
-              MELT_LOCATION("warmelt-normal.melt:2924:/ putclosedv");
-              /*putclosv*/
-              melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[33])) == OBMAG_CLOSURE);
-              melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[33])));
-              ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[33])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V32*/ curfptr[31]);
-              ;
-              /*_.LAMBDA___V33*/ curfptr[32] = /*_.LAMBDA___V34*/ curfptr[33];;}
-             ;
-             MELT_LOCATION("warmelt-normal.melt:2922:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[1];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-normal.melt:2922:/ apply.arg");
-              argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[32];
-              /*_.MULTIPLE_EVERY__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.LBINDING__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_#IS_MULTIPLE__L14*/ curfnum[13] = 
-              (melt_magic_discr((melt_ptr_t)(/*_.LBODY__V29*/ curfptr[28])) == OBMAG_MULTIPLE);;
-             MELT_LOCATION("warmelt-normal.melt:2927:/ cond");
-             /*cond*/ if (/*_#IS_MULTIPLE__L14*/ curfnum[13]) /*then*/ {
-             MELT_LOCATION("warmelt-normal.melt:2927:/ cond.then");
-             MELT_LOCATION("warmelt-normal.melt:2927:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-normal.melt:2928:/ apply");
-               /*apply*/{
-                union meltparam_un argtab[2];
-                memset(&argtab, 0, sizeof(argtab));
-                MELT_LOCATION("warmelt-normal.melt:2928:/ apply.arg");
-                argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V32*/ curfptr[31];
-                MELT_LOCATION("warmelt-normal.melt:2928:/ apply.arg");
-                argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LLOC__V31*/ curfptr[30];
-                /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.LBODY__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-                }
-               ;
-               /*_.IF___V36*/ curfptr[35] = /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-normal.melt:2927:/ clear");
-               /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] = 0 ;}
-              ;
-             } else {MELT_LOCATION("warmelt-normal.melt:2927:/ cond.else");
-             
-              /*_.IF___V36*/ curfptr[35] = NULL;;
-              }
-             ;
-             MELT_LOCATION("warmelt-normal.melt:2929:/ block");
-             /*block*/{
-              /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-              MELT_LOCATION("warmelt-normal.melt:2929:/ finalreturn");
-              ;
-              /*finalret*/ goto labend_rout ;}
-             ;
-             /*_.LET___V28*/ curfptr[22] = /*_.RETURN___V38*/ curfptr[36];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.LBODY__V29*/ curfptr[28] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.LBINDING__V30*/ curfptr[29] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.LLOC__V31*/ curfptr[30] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.NEWENV__V32*/ curfptr[31] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.LAMBDA___V33*/ curfptr[32] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.MULTIPLE_EVERY__V35*/ curfptr[34] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_#IS_MULTIPLE__L14*/ curfnum[13] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.IF___V36*/ curfptr[35] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:2917:/ clear");
-             /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;}
-            ;
-            /*_.IFELSE___V27*/ curfptr[23] = /*_.LET___V28*/ curfptr[22];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-normal.melt:2916:/ clear");
-            /*clear*/ /*_.LET___V28*/ curfptr[22] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-normal.melt:2916:/ cond.else");
-          
-           MELT_LOCATION("warmelt-normal.melt:2916:/ block");
-           /*block*/{
-            /*_#IS_A__L15*/ curfnum[13] = 
-             melt_is_instance_of((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[11])));;
-            MELT_LOCATION("warmelt-normal.melt:2933:/ cond");
-            /*cond*/ if (/*_#IS_A__L15*/ curfnum[13]) /*then*/ {
-            MELT_LOCATION("warmelt-normal.melt:2933:/ cond.then");
-            MELT_LOCATION("warmelt-normal.melt:2933:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-normal.melt:2934:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-normal.melt:2934:/ msend");
-               /*msend*/{
-                union meltparam_un argtab[1];
-                memset(&argtab, 0, sizeof(argtab));
-                MELT_LOCATION("warmelt-normal.melt:2934:/ ojbmsend.arg");
-                argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-                /*_.LASTYP__V41*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-                }
-               ;
-               MELT_LOCATION("warmelt-normal.melt:2935:/ getslot");
-               { melt_ptr_t slot=0;
-                melt_object_get_field(slot,(melt_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LOC__V42*/ curfptr[31] = slot; };
-               ;
-               /*_#__L16*/ curfnum[15] = 
-                ((/*_.LASTYP__V41*/ curfptr[30]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));;
-               MELT_LOCATION("warmelt-normal.melt:2937:/ cond");
-               /*cond*/ if (/*_#__L16*/ curfnum[15]) /*then*/ {
-               MELT_LOCATION("warmelt-normal.melt:2937:/ cond.then");
-               MELT_LOCATION("warmelt-normal.melt:2937:/ block");
-                /*block*/{
-                 MELT_LOCATION("warmelt-normal.melt:2938:/ block");
-                 /*block*/{
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ apply");
-                  /*apply*/{
-                   /*_.RCLOSYM__V45*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[13])), (melt_ptr_t)((/*!konst_14_RETVAL_*/ curfrout->tabval[14])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-                   }
-                  ;
-                  MELT_LOCATION("warmelt-normal.melt:2939:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-normal.melt:2939:/ rawallocobj");
-                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V47*/ curfptr[22] =
-                    newobj; };
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2939:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2939:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (1), (/*_.RCLOSYM__V45*/ curfptr[35]), "NOCC_SYMB");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2939:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V47*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "NOCC_CTYP");
-                   ;
-                   /*_.RCLOCC__V46*/ curfptr[36] = /*_.INST__V47*/ curfptr[22];;}
-                  ;
-                  MELT_LOCATION("warmelt-normal.melt:2943:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-normal.melt:2943:/ rawallocobj");
-                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V49*/ curfptr[48] =
-                    newobj; };
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2943:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2943:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NRET_MAIN", melt_magic_discr((melt_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.RCLOCC__V46*/ curfptr[36]), "NRET_MAIN");
-                   ;
-                   /*_.RETN__V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;}
-                  ;
-                  MELT_LOCATION("warmelt-normal.melt:2947:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-normal.melt:2947:/ rawallocobj");
-                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[16])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V51*/ curfptr[50] =
-                    newobj; };
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.RCLOSYM__V45*/ curfptr[35]), "BINDER");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "LETBIND_TYPE");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.LASTCOMP__V10*/ curfptr[9]), "LETBIND_EXPR");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2947:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.LOC__V42*/ curfptr[31]), "LETBIND_LOC");
-                   ;
-                   /*_.RBIND__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;}
-                  ;
-                  /*_.RBINTUP__V52*/ curfptr[51] = 
-                   (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.RBIND__V50*/ curfptr[49])));;
-                  /*_.MAKE_TUPLE1__V53*/ curfptr[52] = 
-                   (meltgc_new_mult1((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.RETN__V48*/ curfptr[47])));;
-                  MELT_LOCATION("warmelt-normal.melt:2954:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-normal.melt:2954:/ rawallocobj");
-                   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])), (3), "CLASS_NREP_LET");/*_.INST__V55*/ curfptr[54] =
-                    newobj; };
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2954:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2954:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.RBINTUP__V52*/ curfptr[51]), "NLET_BINDINGS");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2954:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.MAKE_TUPLE1__V53*/ curfptr[52]), "NLET_BODY");
-                   ;
-                   /*_.RLET__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;}
-                  ;
-                  MELT_LOCATION("warmelt-normal.melt:2959:/ block");
-                  /*block*/{
-                   MELT_LOCATION("warmelt-normal.melt:2959:/ putslot");
-                   /*putslot*/
-                   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.RCLOCC__V46*/ curfptr[36])) == OBMAG_OBJECT);
-                   melt_putfield_object((/*_.RCLOCC__V46*/ curfptr[36]), (3), (/*_.RBIND__V50*/ curfptr[49]), "NOCC_BIND");
-                   ;
-                   MELT_LOCATION("warmelt-normal.melt:2959:/ touch");
-                   meltgc_touch(/*_.RCLOCC__V46*/ curfptr[36]);
-                   ;
-                   /*epilog*/}
-                  ;
-                  /*_#I__L17*/ curfnum[16] = 
-                   ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));;
-                  
-                  {
-                  MELT_LOCATION("warmelt-normal.melt:2960:/ locexp");
-                  meltgc_multiple_put_nth((melt_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L17*/ curfnum[16]), (melt_ptr_t)(/*_.RLET__V54*/ curfptr[53]));}
-                  ;
-                  MELT_LOCATION("warmelt-normal.melt:2963:/ block");
-                  /*block*/{
-                   /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-                   MELT_LOCATION("warmelt-normal.melt:2963:/ finalreturn");
-                   ;
-                   /*finalret*/ goto labend_rout ;}
-                  ;
-                  /*_.LET___V44*/ curfptr[34] = /*_.RETURN___V56*/ curfptr[55];;
-                  /*epilog*/
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RCLOSYM__V45*/ curfptr[35] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RCLOCC__V46*/ curfptr[36] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RETN__V48*/ curfptr[47] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RBIND__V50*/ curfptr[49] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RBINTUP__V52*/ curfptr[51] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.MAKE_TUPLE1__V53*/ curfptr[52] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RLET__V54*/ curfptr[53] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
-                  MELT_LOCATION("warmelt-normal.melt:2938:/ clear");
-                  /*clear*/ /*_.RETURN___V56*/ curfptr[55] = 0 ;}
-                 ;
-                 /*_.IF___V43*/ curfptr[32] = /*_.LET___V44*/ curfptr[34];;
-                 /*epilog*/
-                 MELT_LOCATION("warmelt-normal.melt:2937:/ clear");
-                 /*clear*/ /*_.LET___V44*/ curfptr[34] = 0 ;}
-                ;
-               } else {MELT_LOCATION("warmelt-normal.melt:2937:/ cond.else");
-               
-                /*_.IF___V43*/ curfptr[32] = NULL;;
-                }
-               ;
-               /*_.LET___V40*/ curfptr[29] = /*_.IF___V43*/ curfptr[32];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
-               /*clear*/ /*_.LASTYP__V41*/ curfptr[30] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
-               /*clear*/ /*_.LOC__V42*/ curfptr[31] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
-               /*clear*/ /*_#__L16*/ curfnum[15] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:2934:/ clear");
-               /*clear*/ /*_.IF___V43*/ curfptr[32] = 0 ;}
-              ;
-              /*_.IFELSE___V39*/ curfptr[28] = /*_.LET___V40*/ curfptr[29];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-normal.melt:2933:/ clear");
-              /*clear*/ /*_.LET___V40*/ curfptr[29] = 0 ;}
-             ;
-            } else {MELT_LOCATION("warmelt-normal.melt:2933:/ cond.else");
-            
-             /*_.IFELSE___V39*/ curfptr[28] = NULL;;
-             }
-            ;
-            /*_.IFELSE___V27*/ curfptr[23] = /*_.IFELSE___V39*/ curfptr[28];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-normal.melt:2916:/ clear");
-            /*clear*/ /*_#IS_A__L15*/ curfnum[13] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:2916:/ clear");
-            /*clear*/ /*_.IFELSE___V39*/ curfptr[28] = 0 ;}
-           ;
-           }
-          ;
-          /*_.IFELSE___V25*/ curfptr[15] = /*_.IFELSE___V27*/ curfptr[23];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:2912:/ clear");
-          /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:2912:/ clear");
-          /*clear*/ /*_.IFELSE___V27*/ curfptr[23] = 0 ;}
-         ;
-         }
-        ;
-        /*_.IFELSE___V20*/ curfptr[14] = /*_.IFELSE___V25*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
-        /*clear*/ /*_#NULL__L12*/ curfnum[7] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:2903:/ clear");
-        /*clear*/ /*_.IFELSE___V25*/ curfptr[15] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V14*/ curfptr[12] = /*_.IFELSE___V20*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
-      /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:2893:/ clear");
-      /*clear*/ /*_.IFELSE___V20*/ curfptr[14] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V12*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:2889:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:2889:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2965:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];;
-   MELT_LOCATION("warmelt-normal.melt:2965:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V57*/ curfptr[35];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
-  /*clear*/ /*_#TUPLEN__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
-  /*clear*/ /*_.LASTCOMP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
-  /*clear*/ /*_.IFELSE___V12*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2885:/ clear");
-  /*clear*/ /*_.RETURN___V57*/ curfptr[35] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2882:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-normal.melt:2882:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2882:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("REPLACE_LAST_BY_RETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_78_warmelt_normal_REPLACE_LAST_BY_RETURN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_79_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2924:/ getarg");
- /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2924:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2924:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:2925:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:2925:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ curfptr[1];
-  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:2924:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-normal.melt:2924:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2924:/ clear");
- /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_79_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_80_warmelt_normal_NORMEXP_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_normal_NORMEXP_DEFUN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 63
-  void* varptr[63];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<63; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 63;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFUN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:2973:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:2973:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2974:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2974:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:2974:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2974:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2974:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2974:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2974:/ locexp");
-      melt_assert_failed(( "check defun recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2974)?(2974):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2974:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2974:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2974:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2975:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2975:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:2975:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2975:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2975:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2975:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2975:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2975)?(2975):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2975:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2975:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2975:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2976:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2976:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:2976:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:2976:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:2976:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:2976:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:2976:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (2976)?(2976):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2976:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2976:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2976:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:2977:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:2977:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_defun recv";
-    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:2977:/ apply.arg");
-    argtab[3].bp_long = 2977;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:2977:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:2977:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:2977:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:2978:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:2978:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2979:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAM__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2980:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2981:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SFUN_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2982:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:2982:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAM__V16*/ curfptr[15];
-   /*_.SFUBIND__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2983:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2984:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.OLDPROC__V21*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2985:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.OLDSYMBCACHE__V22*/ curfptr[21] = slot; };
-  ;
-  /*_.CLOSBLIS__V23*/ curfptr[22] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-  /*_.MAKE_LIST__V24*/ curfptr[23] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-  /*_.MAKE_LIST__V25*/ curfptr[24] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-  MELT_LOCATION("warmelt-normal.melt:2987:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2987:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DEFUNROUTPROC*/ curfrout->tabval[7])), (9), "CLASS_NREP_DEFUNROUTPROC");/*_.INST__V27*/ curfptr[26] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), ((/*nil*/NULL)), "NPROC_BODY");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SNAM__V16*/ curfptr[15]), "NRPRO_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_ARGB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (3), (/*_.SFORMALS__V17*/ curfptr[16]), "NRPRO_ARGB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_CLOSEDB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (4), (/*_.CLOSBLIS__V23*/ curfptr[22]), "NRPRO_CLOSEDB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_CONST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.MAKE_LIST__V24*/ curfptr[23]), "NRPRO_CONST");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_THUNKLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (8), (/*_.MAKE_LIST__V25*/ curfptr[24]), "NRPRO_THUNKLIST");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (6), ((/*nil*/NULL)), "NRPRO_DATAROUT");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2987:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (7), ((/*nil*/NULL)), "NRPRO_DATACLOS");
-   ;
-   /*_.NPROC__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3001:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:3001:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_routine";
-   /*_.NORMAL_PREDEF__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:2999:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:2999:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[8])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V30*/ curfptr[29] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2999:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2999:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:2999:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDROU_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (5), (/*_.NPROC__V26*/ curfptr[25]), "NDROU_PROC");
-   ;
-   /*_.NDATAROUT__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3006:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:3006:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_closure";
-   /*_.NORMAL_PREDEF__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3004:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3004:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[11])), (7), "CLASS_NREP_DATACLOSURE");/*_.INST__V33*/ curfptr[32] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.NORMAL_PREDEF__V31*/ curfptr[30]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDCLO_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (5), (/*_.NPROC__V26*/ curfptr[25]), "NDCLO_PROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3004:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDCLO_CLOSV", melt_magic_discr((melt_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V33*/ curfptr[32]), (6), ((/*nil*/NULL)), "NDCLO_CLOSV");
-   ;
-   /*_.NDATACLOS__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;}
-  ;
-  /*_.MAKE_MAPOBJECT__V34*/ curfptr[33] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[13])), (40)));;
-  MELT_LOCATION("warmelt-normal.melt:3011:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3011:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.NPROC__V26*/ curfptr[25]), "NCTX_CURPROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3011:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.MAKE_MAPOBJECT__V34*/ curfptr[33]), "NCTX_SYMBCACHEMAP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3011:/ touch");
-   meltgc_touch(/*_.NCX__V4*/ curfptr[3]);
-   ;
-   /*epilog*/}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3014:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3014:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V29*/ curfptr[28];
-   /*_.ADD_NCTX_DATA__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3015:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3015:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATACLOS__V32*/ curfptr[31];
-   /*_.ADD_NCTX_DATA__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3016:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3016:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[15])));;
-    MELT_LOCATION("warmelt-normal.melt:3016:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3016:/ cond.then");
-    /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:3016:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3016:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3016:/ locexp");
-       melt_assert_failed(( "check sfubind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3016)?(3016):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V37*/ curfptr[36] = /*_.IFELSE___V38*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3016:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3016:/ clear");
-    /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3016:/ cppif.else");
-  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3017:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3017:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (6), (/*_.NDATAROUT__V29*/ curfptr[28]), "NRPRO_DATAROUT");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3017:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (7), (/*_.NDATACLOS__V32*/ curfptr[31]), "NRPRO_DATACLOS");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3017:/ touch");
-   meltgc_touch(/*_.NPROC__V26*/ curfptr[25]);
-   ;
-   /*epilog*/}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3020:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3020:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V40*/ curfptr[39] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3020:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V40*/ curfptr[39])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V40*/ curfptr[39])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V40*/ curfptr[39])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]);
-   ;
-   /*_.LAMBDA___V39*/ curfptr[37] = /*_.LAMBDA___V40*/ curfptr[39];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3018:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3018:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V39*/ curfptr[37];
-   /*_.MULTIPLE_EVERY__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.SFORMALS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3023:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3023:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @ENV_PROC", melt_magic_discr((melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NEWENV__V20*/ curfptr[19]), (2), (/*_.NPROC__V26*/ curfptr[25]), "ENV_PROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3023:/ touch");
-   meltgc_touch(/*_.NEWENV__V20*/ curfptr[19]);
-   ;
-   /*epilog*/}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3024:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3024:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3024:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_defun updated :env_proc of of newenv";
-     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3024:/ apply.arg");
-     argtab[3].bp_long = 3024;
-     /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3024:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3024:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3024:/ cppif.else");
-  /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3026:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V44*/ curfptr[42] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3026:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.NCTX_PROCLIST__V44*/ curfptr[42]), (melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3027:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply");
-   /*multiapply 4args, 1x.res*/ {
-    union meltparam_un argtab[3];
-    
-    union meltparam_un restab[1];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V47*/ curfptr[46];
-    MELT_LOCATION("warmelt-normal.melt:3027:/ multiapply.appl");
-    /*_.NBODY__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[20])), (melt_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3027:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3030:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3030:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3030:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_defun nbody before replace_last_by_return";
-       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3030:/ apply.arg");
-       argtab[3].bp_long = 3030;
-       /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3030:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3030:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3030:/ cppif.else");
-    /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3033:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3033:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V51*/ curfptr[50] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (1));
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3033:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V51*/ curfptr[50])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V51*/ curfptr[50])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V51*/ curfptr[50])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]);
-     ;
-     /*_.LAMBDA___V50*/ curfptr[48] = /*_.LAMBDA___V51*/ curfptr[50];;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3031:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3031:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V50*/ curfptr[48];
-     /*_.MULTIPLE_EVERY__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NBINDINGS__V47*/ curfptr[46]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3035:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3035:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3035:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];
-      MELT_LOCATION("warmelt-normal.melt:3035:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      /*_.NRBODY__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3036:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3036:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V47*/ curfptr[46];
-      MELT_LOCATION("warmelt-normal.melt:3036:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      /*_.NPBODY__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.NRBODY__V54*/ curfptr[53]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3038:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3038:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.NPROC__V26*/ curfptr[25]), (1), (/*_.NPBODY__V55*/ curfptr[54]), "NPROC_BODY");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3038:/ touch");
-      meltgc_touch(/*_.NPROC__V26*/ curfptr[25]);
-      ;
-      /*epilog*/}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3039:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3039:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3039:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_defun npbody after replace_last_by_return";
-        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3039:/ apply.arg");
-        argtab[3].bp_long = 3039;
-        /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPBODY__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3039:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3039:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3039:/ cppif.else");
-     /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V53*/ curfptr[52] = /*_.IFCPP___V56*/ curfptr[55];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
-     /*clear*/ /*_.NRBODY__V54*/ curfptr[53] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
-     /*clear*/ /*_.NPBODY__V55*/ curfptr[54] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3035:/ clear");
-     /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3041:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3041:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.OLDPROC__V21*/ curfptr[20]), "NCTX_CURPROC");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3041:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.OLDSYMBCACHE__V22*/ curfptr[21]), "NCTX_SYMBCACHEMAP");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3041:/ touch");
-     meltgc_touch(/*_.NCX__V4*/ curfptr[3]);
-     ;
-     /*epilog*/}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3042:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3046:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3046:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[53] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ curfrout->tabval[29])), (3));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3046:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[53])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[53])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[53])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-      ;
-      /*_.LAMBDA___V58*/ curfptr[56] = /*_.LAMBDA___V59*/ curfptr[53];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3043:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3043:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[26]);
-      MELT_LOCATION("warmelt-normal.melt:3043:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[56];
-      /*_.CLOVTUP__V60*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.CLOSBLIS__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3055:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3055:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDCLO_CLOSV", melt_magic_discr((melt_ptr_t)(/*_.NDATACLOS__V32*/ curfptr[31])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.NDATACLOS__V32*/ curfptr[31]), (6), (/*_.CLOVTUP__V60*/ curfptr[54]), "NDCLO_CLOSV");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3055:/ touch");
-      meltgc_touch(/*_.NDATACLOS__V32*/ curfptr[31]);
-      ;
-      /*epilog*/}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3042:/ clear");
-     /*clear*/ /*_.LAMBDA___V58*/ curfptr[56] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3042:/ clear");
-     /*clear*/ /*_.CLOVTUP__V60*/ curfptr[54] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3057:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3057:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.SFUBIND__V19*/ curfptr[18]), (1), (/*_.NDATACLOS__V32*/ curfptr[31]), "FIXBIND_DATA");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3057:/ touch");
-     meltgc_touch(/*_.SFUBIND__V19*/ curfptr[18]);
-     ;
-     /*epilog*/}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3060:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3060:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3060:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_defun return nproc";
-       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3060:/ apply.arg");
-       argtab[3].bp_long = 3060;
-       /*_.DEBUG_MSG_FUN__V62*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPROC__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V61*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[56];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3060:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3060:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[56] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3060:/ cppif.else");
-    /*_.IFCPP___V61*/ curfptr[55] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3061:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V26*/ curfptr[25];;
-     MELT_LOCATION("warmelt-normal.melt:3061:/ putxtraresult");
-     if (!xrestab_ || !xresdescr_) goto labend_rout;
-     if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-     if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) ((/*nil*/NULL));
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3061:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.MULTI___V45*/ curfptr[44] = /*_.RETURN___V63*/ curfptr[54];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-    /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-    /*clear*/ /*_.LAMBDA___V50*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V52*/ curfptr[51] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-    /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-    /*clear*/ /*_.IFCPP___V61*/ curfptr[55] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-    /*clear*/ /*_.RETURN___V63*/ curfptr[54] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3027:/ clear");
-   /*clear*/ /*_.NBINDINGS__V47*/ curfptr[46] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V45*/ curfptr[44];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.SNAM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.SFUBIND__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.OLDPROC__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.OLDSYMBCACHE__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.CLOSBLIS__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NPROC__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NDATAROUT__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NDATACLOS__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.MAKE_MAPOBJECT__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.LAMBDA___V39*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.NCTX_PROCLIST__V44*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:2978:/ clear");
-  /*clear*/ /*_.MULTI___V45*/ curfptr[44] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:2973:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:2973:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:2973:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFUN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_80_warmelt_normal_NORMEXP_DEFUN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_81_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3020:/ getarg");
- /*_.FBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3020:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3020:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3021:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3021:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3021:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3021:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3021:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3021:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3021:/ locexp");
-      melt_assert_failed(( "check fbi"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3021)?(3021):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3021:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3021:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3021:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3022:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:3022:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FBI__V2*/ curfptr[1];
-  /*_.PUT_ENV__V5*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:3020:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:3020:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3020:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3020:/ clear");
- /*clear*/ /*_.PUT_ENV__V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_81_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_82_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3033:/ getarg");
- /*_.NBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3033:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3033:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:3034:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:3034:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ curfptr[1];
-  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:3033:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-normal.melt:3033:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3033:/ clear");
- /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_82_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_83_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3046:/ getarg");
- /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3046:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3047:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3047:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3047:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3047:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3047:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3047:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3047:/ locexp");
-      melt_assert_failed(( "normexp_defun check bnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3047)?(3047):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3047:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3047:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3047:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3048:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3048:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3051:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-normal.melt:3051:/ ojbmsend.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-   /*_.NSY__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.SY__V6*/ curfptr[5]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3048:/ clear");
-  /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3048:/ clear");
-  /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3046:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:3046:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3046:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3046:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_83_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_84_warmelt_normal_NORMALIZE_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_normal_NORMALIZE_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 62
-  void* varptr[62];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<62; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 62;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMALIZE_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NEWENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:3073:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V6*/ curfptr[5])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3073:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3074:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3074:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3074:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3074:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3074:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3074:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3074:/ locexp");
-      melt_assert_failed(( "check lambda recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3074)?(3074):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3074:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3074:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3074:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3075:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3075:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3075:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3075:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3075:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3075:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3075:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3075)?(3075):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3075:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3075:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3075:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3076:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3076:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3076:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3076:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3076:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3076:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3076:/ locexp");
-      melt_assert_failed(( "check newenv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3076)?(3076):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3076:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3076:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3076:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3077:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3077:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3077:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3077:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3077:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3077:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3077:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3077)?(3077):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3077:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3077:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3077:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3078:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3078:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3078:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
-    argtab[0].bp_cstring =  "normalize_lambda recv";
-    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3078:/ apply.arg");
-    argtab[3].bp_long = 3078;
-    /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3078:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3078:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3078:/ cppif.else");
- /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3079:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3079:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3079:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
-    argtab[0].bp_cstring =  "normalize_lambda env";
-    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3079:/ apply.arg");
-    argtab[3].bp_long = 3079;
-    /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3079:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3079:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3079:/ cppif.else");
- /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3080:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3080:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3080:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
-    argtab[0].bp_cstring =  "normalize_lambda newenv";
-    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3080:/ apply.arg");
-    argtab[3].bp_long = 3080;
-    /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3080:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3080:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3080:/ cppif.else");
- /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3081:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3081:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V22*/ curfptr[21] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3082:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLAM_ARGBIND");/*_.SARGS__V23*/ curfptr[22] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3083:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SLAM_BODY");/*_.SBODY__V24*/ curfptr[23] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3084:/ apply");
-  /*apply*/{
-   /*_.CSYM__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[4])), (melt_ptr_t)((/*!konst_5_LAMBDA_*/ curfrout->tabval[5])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3085:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3085:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V27*/ curfptr[26] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3085:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3085:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3085:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.CSYM__V25*/ curfptr[24]), "NOCC_SYMB");
-   ;
-   /*_.CLOCC__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3089:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 10, "NCTX_CURPROC");/*_.OLDPROC__V28*/ curfptr[27] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3090:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 6, "NCTX_SYMBCACHEMAP");/*_.SAVEDCACHEMAP__V29*/ curfptr[28] = slot; };
-  ;
-  /*_.CLOSEDBLIST__V30*/ curfptr[29] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  /*_.MAKE_LIST__V31*/ curfptr[30] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  /*_.MAKE_LIST__V32*/ curfptr[31] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-  MELT_LOCATION("warmelt-normal.melt:3092:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3092:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LAMBDAROUTPROC*/ curfrout->tabval[9])), (9), "CLASS_NREP_LAMBDAROUTPROC");/*_.INST__V34*/ curfptr[33] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), ((/*nil*/NULL)), "NPROC_BODY");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.CSYM__V25*/ curfptr[24]), "NRPRO_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_ARGB", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.SARGS__V23*/ curfptr[22]), "NRPRO_ARGB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_CLOSEDB", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (4), (/*_.CLOSEDBLIST__V30*/ curfptr[29]), "NRPRO_CLOSEDB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_CONST", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (5), (/*_.MAKE_LIST__V31*/ curfptr[30]), "NRPRO_CONST");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (6), ((/*nil*/NULL)), "NRPRO_DATAROUT");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATACLOS", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (7), ((/*nil*/NULL)), "NRPRO_DATACLOS");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3092:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_THUNKLIST", melt_magic_discr((melt_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V34*/ curfptr[33]), (8), (/*_.MAKE_LIST__V32*/ curfptr[31]), "NRPRO_THUNKLIST");
-   ;
-   /*_.NPROC__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3105:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
-   MELT_LOCATION("warmelt-normal.melt:3105:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_routine";
-   /*_.NORMAL_PREDEF__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3103:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3103:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[10])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V37*/ curfptr[36] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3103:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.CSYM__V25*/ curfptr[24]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3103:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3103:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDROU_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.NPROC__V33*/ curfptr[32]), "NDROU_PROC");
-   ;
-   /*_.NDATAROUT__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3109:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3109:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V36*/ curfptr[35];
-   /*_.ADD_NCTX_DATA__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.MAKE_MAPOBJECT__V39*/ curfptr[38] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[14])), (40)));;
-  MELT_LOCATION("warmelt-normal.melt:3111:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3111:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (10), (/*_.NPROC__V33*/ curfptr[32]), "NCTX_CURPROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3111:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (6), (/*_.MAKE_MAPOBJECT__V39*/ curfptr[38]), "NCTX_SYMBCACHEMAP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3111:/ touch");
-   meltgc_touch(/*_.NCX__V5*/ curfptr[4]);
-   ;
-   /*epilog*/}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3114:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3114:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPRO_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NPROC__V33*/ curfptr[32]), (6), (/*_.NDATAROUT__V36*/ curfptr[35]), "NRPRO_DATAROUT");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3114:/ touch");
-   meltgc_touch(/*_.NPROC__V33*/ curfptr[32]);
-   ;
-   /*epilog*/}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3117:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3117:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V41*/ curfptr[40] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (1));
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3117:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V41*/ curfptr[40])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V41*/ curfptr[40])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V41*/ curfptr[40])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V40*/ curfptr[39] = /*_.LAMBDA___V41*/ curfptr[40];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3115:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3115:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V40*/ curfptr[39];
-   /*_.MULTIPLE_EVERY__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SARGS__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3120:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @ENV_PROC", melt_magic_discr((melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.NEWENV__V4*/ curfptr[3]), (2), (/*_.NPROC__V33*/ curfptr[32]), "ENV_PROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3120:/ touch");
-   meltgc_touch(/*_.NEWENV__V4*/ curfptr[3]);
-   ;
-   /*epilog*/}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3121:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3121:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3121:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
-     argtab[0].bp_cstring =  "normalize_lambda updated :env_proc of newenv";
-     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3121:/ apply.arg");
-     argtab[3].bp_long = 3121;
-     /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3121:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3121:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3121:/ cppif.else");
-  /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3122:/ locexp");
-   
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "normalize_lambda"), (15));
-#endif
-;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3124:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V45*/ curfptr[43] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3124:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.NCTX_PROCLIST__V45*/ curfptr[43]), (melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3125:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply");
-   /*multiapply 4args, 1x.res*/ {
-    union meltparam_un argtab[3];
-    
-    union meltparam_un restab[1];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
-    MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V48*/ curfptr[47];
-    MELT_LOCATION("warmelt-normal.melt:3125:/ multiapply.appl");
-    /*_.NBODY__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.SBODY__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3125:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3130:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3130:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V50*/ curfptr[49] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (1));
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3130:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V50*/ curfptr[49])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V50*/ curfptr[49])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V50*/ curfptr[49])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V4*/ curfptr[3]);
-     ;
-     /*_.LAMBDA___V49*/ curfptr[48] = /*_.LAMBDA___V50*/ curfptr[49];;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3128:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3128:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V49*/ curfptr[48];
-     /*_.MULTIPLE_EVERY__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.NBINDINGS__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3134:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
-     /*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3134:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V48*/ curfptr[47];
-     MELT_LOCATION("warmelt-normal.melt:3134:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
-     /*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3132:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3132:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NPROC_BODY", melt_magic_discr((melt_ptr_t)(/*_.NPROC__V33*/ curfptr[32])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.NPROC__V33*/ curfptr[32]), (1), (/*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52]), "NPROC_BODY");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3132:/ touch");
-     meltgc_touch(/*_.NPROC__V33*/ curfptr[32]);
-     ;
-     /*epilog*/}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3137:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3137:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NCTX_SYMBCACHEMAP", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (6), (/*_.SAVEDCACHEMAP__V29*/ curfptr[28]), "NCTX_SYMBCACHEMAP");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3137:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NCTX_CURPROC", melt_magic_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.NCX__V5*/ curfptr[4]), (10), (/*_.OLDPROC__V28*/ curfptr[27]), "NCTX_CURPROC");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3137:/ touch");
-     meltgc_touch(/*_.NCX__V5*/ curfptr[4]);
-     ;
-     /*epilog*/}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3141:/ block");
-    /*block*/{
-     /*_#INSIDEFLAG__L9*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.OLDPROC__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[24])));;
-     MELT_LOCATION("warmelt-normal.melt:3144:/ cond");
-     /*cond*/ if (/*_#INSIDEFLAG__L9*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3144:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:3144:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3145:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:3145:/ rawallocobj");
-        /*rawallocobj*/ { melt_ptr_t newobj = 0;
-         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[25])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V57*/ curfptr[56] =
-         newobj; };
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (3), (/*_.NDATAROUT__V36*/ curfptr[35]), "NCONST_DATA");
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3145:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V57*/ curfptr[56]), (2), (/*_.OLDPROC__V28*/ curfptr[27]), "NCONST_PROC");
-        ;
-        /*_.INST___V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;}
-       ;
-       /*_.KROUT__V55*/ curfptr[54] = /*_.INST___V56*/ curfptr[55];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3144:/ clear");
-       /*clear*/ /*_.INST___V56*/ curfptr[55] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:3144:/ cond.else");
-     
-      /*_.KROUT__V55*/ curfptr[54] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3153:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3153:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V59*/ curfptr[58] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (3));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[1] = (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3153:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V59*/ curfptr[58])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V59*/ curfptr[58])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V59*/ curfptr[58])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V22*/ curfptr[21]);
-      ;
-      /*_.LAMBDA___V58*/ curfptr[55] = /*_.LAMBDA___V59*/ curfptr[58];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3151:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3151:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[27]);
-      MELT_LOCATION("warmelt-normal.melt:3151:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V58*/ curfptr[55];
-      /*_.CLOVTUP__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.CLOSEDBLIST__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3161:/ cond");
-     /*cond*/ if (/*_#INSIDEFLAG__L9*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3161:/ cond.then");
-     /*_.CONSTROUT__V61*/ curfptr[60] = /*_.KROUT__V55*/ curfptr[54];;
-     } else {MELT_LOCATION("warmelt-normal.melt:3161:/ cond.else");
-     
-      /*_.CONSTROUT__V61*/ curfptr[60] = /*_.NDATAROUT__V36*/ curfptr[35];;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3163:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V33*/ curfptr[32];;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.CSYM__V25*/ curfptr[24]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[1] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (melt_ptr_t) (/*_.CLOCC__V26*/ curfptr[25]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[2] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[2].bp_aptr) *(xrestab_[2].bp_aptr) = (melt_ptr_t) (/*_.CONSTROUT__V61*/ curfptr[60]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[3] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[3].bp_aptr) *(xrestab_[3].bp_aptr) = (melt_ptr_t) (/*_.CLOVTUP__V60*/ curfptr[59]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[4] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[4].bp_aptr) *(xrestab_[4].bp_aptr) = (melt_ptr_t) (/*_.SLOC__V22*/ curfptr[21]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[5] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[5].bp_aptr) *(xrestab_[5].bp_aptr) = (melt_ptr_t) (/*_.OLDPROC__V28*/ curfptr[27]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[6] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[6].bp_aptr) *(xrestab_[6].bp_aptr) = (melt_ptr_t) (/*_.NDATAROUT__V36*/ curfptr[35]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[7] != BPAR_LONG) goto labend_rout;
-      if (xrestab_[7].bp_longptr) *(xrestab_[7].bp_longptr) = (/*_#INSIDEFLAG__L9*/ curfnum[0]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3163:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V54*/ curfptr[53] = /*_.RETURN___V62*/ curfptr[61];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
-     /*clear*/ /*_#INSIDEFLAG__L9*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
-     /*clear*/ /*_.KROUT__V55*/ curfptr[54] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
-     /*clear*/ /*_.LAMBDA___V58*/ curfptr[55] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
-     /*clear*/ /*_.CLOVTUP__V60*/ curfptr[59] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
-     /*clear*/ /*_.CONSTROUT__V61*/ curfptr[60] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3141:/ clear");
-     /*clear*/ /*_.RETURN___V62*/ curfptr[61] = 0 ;}
-    ;
-    /*_.MULTI___V46*/ curfptr[45] = /*_.LET___V54*/ curfptr[53];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
-    /*clear*/ /*_.LAMBDA___V49*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V51*/ curfptr[50] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
-    /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V52*/ curfptr[51] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
-    /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V53*/ curfptr[52] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
-    /*clear*/ /*_.LET___V54*/ curfptr[53] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3125:/ clear");
-   /*clear*/ /*_.NBINDINGS__V48*/ curfptr[47] = 0 ;}
-  ;
-  /*_.LET___V21*/ curfptr[19] = /*_.MULTI___V46*/ curfptr[45];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.SLOC__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.SARGS__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.SBODY__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.CSYM__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.CLOCC__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.OLDPROC__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.SAVEDCACHEMAP__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.CLOSEDBLIST__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.NPROC__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.NDATAROUT__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.MAKE_MAPOBJECT__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.LAMBDA___V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V42*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.NCTX_PROCLIST__V45*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3081:/ clear");
-  /*clear*/ /*_.MULTI___V46*/ curfptr[45] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V21*/ curfptr[19];;
-  MELT_LOCATION("warmelt-normal.melt:3073:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3073:/ clear");
- /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMALIZE_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_84_warmelt_normal_NORMALIZE_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_85_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3117:/ getarg");
- /*_.FBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3117:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3117:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3118:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3118:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3118:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3118:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3118:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3118:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3118:/ locexp");
-      melt_assert_failed(( "check fbi"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3118)?(3118):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3118:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3118:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3118:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3119:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:3119:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FBI__V2*/ curfptr[1];
-  /*_.PUT_ENV__V5*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:3117:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:3117:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3117:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3117:/ clear");
- /*clear*/ /*_.PUT_ENV__V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_85_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_86_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3130:/ getarg");
- /*_.NBI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3130:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3130:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:3131:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:3131:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBI__V2*/ curfptr[1];
-  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:3130:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-normal.melt:3130:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3130:/ clear");
- /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_86_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_87_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3153:/ getarg");
- /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3153:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3154:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3154:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3154:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3154:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3154:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3154:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3154:/ locexp");
-      melt_assert_failed(( "normalize_lambda check bnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3154)?(3154):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3154:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3154:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3154:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3155:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3155:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3158:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-   MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-normal.melt:3158:/ ojbmsend.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-   /*_.NSY__V7*/ curfptr[6] = meltgc_send((melt_ptr_t)(/*_.SY__V6*/ curfptr[5]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3155:/ clear");
-  /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3155:/ clear");
-  /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3153:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:3153:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3153:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3153:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_87_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_88_warmelt_normal_NORMEXP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_normal_NORMEXP_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 38
-  void* varptr[38];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<38; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 38;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3167:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3167:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3168:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3168:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3168:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3168:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3168:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3168:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3168:/ locexp");
-      melt_assert_failed(( "check lambda recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3168)?(3168):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3168:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3168:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3168:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3169:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3169:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3169:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3169:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3169:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3169:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3169:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3169)?(3169):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3169:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3169:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3169:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3170:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3170:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3170:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3170:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3170:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3170:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3170)?(3170):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3170:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3170:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3170:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3171:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3171:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3171:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_lambda recv";
-    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3171:/ apply.arg");
-    argtab[3].bp_long = 3171;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3171:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3171:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3171:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3172:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3173:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3175:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply");
-   /*multiapply 5args, 8x.res*/ {
-    union meltparam_un argtab[4];
-    
-    union meltparam_un restab[8];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V15*/ curfptr[14];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.arg");
-    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CSYM__V18*/ curfptr[17];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[1].bp_aptr = (melt_ptr_t*) &/*_.CLOCC__V19*/ curfptr[18];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[2].bp_aptr = (melt_ptr_t*) &/*_.CONSTROUT__V20*/ curfptr[19];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[3].bp_aptr = (melt_ptr_t*) &/*_.CLOVTUP__V21*/ curfptr[20];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V22*/ curfptr[21];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[5].bp_aptr = (melt_ptr_t*) &/*_.OLDPROC__V23*/ curfptr[22];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[6].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V24*/ curfptr[23];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.xres");
-    restab[7].bp_longptr =  & /*_#INSIDEFLAG__L5*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3175:/ multiapply.appl");
-    /*_.NPROC__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3178:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3178:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3178:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_lambda after normalize_lambda nproc";
-       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3178:/ apply.arg");
-       argtab[3].bp_long = 3178;
-       /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPROC__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3178:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3178:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3178:/ cppif.else");
-    /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3179:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3180:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3180:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[6])), (4), "CLASS_NREP_LAMBDA");/*_.INST__V29*/ curfptr[28] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.SLOC__V22*/ curfptr[21]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NLAMBDA_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.NPROC__V17*/ curfptr[16]), "NLAMBDA_PROC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NLAMBDA_CONSTROUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.CONSTROUT__V20*/ curfptr[19]), "NLAMBDA_CONSTROUT");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3180:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NLAMBDA_CLOSEDV", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.CLOVTUP__V21*/ curfptr[20]), "NLAMBDA_CLOSEDV");
-      ;
-      /*_.NLAMBDA__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3186:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3186:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V31*/ curfptr[30] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.SLOC__V22*/ curfptr[21]), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.CSYM__V18*/ curfptr[17]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3186:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NLAMBDA__V28*/ curfptr[27]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-     ;
-     /*_.NBINDLIST__V32*/ curfptr[31] = 
-      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-     MELT_LOCATION("warmelt-normal.melt:3193:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3193:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.CLOCC__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CLOCC__V19*/ curfptr[18]), (3), (/*_.CBIND__V30*/ curfptr[29]), "NOCC_BIND");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3193:/ touch");
-      meltgc_touch(/*_.CLOCC__V19*/ curfptr[18]);
-      ;
-      /*epilog*/}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3194:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NBINDLIST__V32*/ curfptr[31]), (melt_ptr_t)(/*_.CBIND__V30*/ curfptr[29]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3195:/ cond");
-     /*cond*/ if (/*_#INSIDEFLAG__L5*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3195:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:3195:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3196:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDPROC__V23*/ curfptr[22]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V33*/ curfptr[32] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3196:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V33*/ curfptr[32]), (melt_ptr_t)(/*_.NDATAROUT__V24*/ curfptr[23]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3195:/ clear");
-       /*clear*/ /*_.NRPRO_CONST__V33*/ curfptr[32] = 0 ;}
-      ;
-     } /*noelse*/
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3197:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3197:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3197:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_lambda return clocc";
-        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3197:/ apply.arg");
-        argtab[3].bp_long = 3197;
-        /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V34*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3197:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3197:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3197:/ cppif.else");
-     /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3198:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3198:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3198:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_lambda return nbindlist";
-        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3198:/ apply.arg");
-        argtab[3].bp_long = 3198;
-        /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDLIST__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V36*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3198:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3198:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3198:/ cppif.else");
-     /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:3199:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V19*/ curfptr[18];;
-      MELT_LOCATION("warmelt-normal.melt:3199:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDLIST__V32*/ curfptr[31]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3199:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V27*/ curfptr[25] = /*_.RETURN___V38*/ curfptr[36];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
-     /*clear*/ /*_.NLAMBDA__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
-     /*clear*/ /*_.CBIND__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
-     /*clear*/ /*_.NBINDLIST__V32*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
-     /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
-     /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3179:/ clear");
-     /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;}
-    ;
-    /*_.MULTI___V16*/ curfptr[15] = /*_.LET___V27*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-    /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-    /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.CSYM__V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.CLOCC__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.CONSTROUT__V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.CLOVTUP__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.SLOC__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.OLDPROC__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_.NDATAROUT__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3175:/ clear");
-   /*clear*/ /*_#INSIDEFLAG__L5*/ curfnum[0] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3172:/ clear");
-  /*clear*/ /*_.NEWENV__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3172:/ clear");
-  /*clear*/ /*_.MULTI___V16*/ curfptr[15] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3167:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3167:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3167:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_88_warmelt_normal_NORMEXP_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_89_warmelt_normal_NORMEXP_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_normal_NORMEXP_MULTICALL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 105
-  void* varptr[105];
-#define CURFRAM_NBVARNUM 22
-  long varnum[22];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<105; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 105;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_MULTICALL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3204:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3204:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3205:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3205:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_MULTICALL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3205:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3205:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3205:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3205:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3205:/ locexp");
-      melt_assert_failed(( "check multicall recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3205)?(3205):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3205:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3205:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3205:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3206:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3206:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3206:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3206:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3206:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3206:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3206:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3206)?(3206):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3206:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3206:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3206:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3207:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3207:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3207:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3207:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3207:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3207:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3207:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3207)?(3207):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3207:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3207:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3207:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3208:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3208:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_multicall recv";
-    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3208:/ apply.arg");
-    argtab[3].bp_long = 3208;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3208:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3208:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3208:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3209:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3209:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3210:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMULC_RESBIND");/*_.SRESBIND__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3211:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMULC_CALL");/*_.SCALL__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3212:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SMULC_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3213:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3215:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3215:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3215:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_multicall scall";
-     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3215:/ apply.arg");
-     argtab[3].bp_long = 3215;
-     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3215:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3215:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3215:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3216:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NCALLBINDINGS__V24*/ curfptr[23];MELT_LOCATION("warmelt-normal.melt:3216:/ multimsend.send");
-    /*_.NCALL__V23*/ curfptr[22] =  meltgc_send ((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3216:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3219:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3219:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3219:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_multicall ncall";
-       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3219:/ apply.arg");
-       argtab[3].bp_long = 3219;
-       /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3219:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3219:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3219:/ cppif.else");
-    /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3220:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3220:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3220:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_multicall ncallbindings";
-       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3220:/ apply.arg");
-       argtab[3].bp_long = 3220;
-       /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCALLBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3220:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3220:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3220:/ cppif.else");
-    /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3224:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3224:/ block");
-     /*block*/{
-      /*_#IS_A__L8*/ curfnum[0] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])));;
-      MELT_LOCATION("warmelt-normal.melt:3224:/ cond");
-      /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3224:/ cond.then");
-      /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3224:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3224:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3224:/ locexp");
-         melt_assert_failed(( "normexp_multicall check ncall"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3224)?(3224):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3224:/ clear");
-      /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3224:/ clear");
-      /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3224:/ cppif.else");
-    /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3225:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3225:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCALL__V23*/ curfptr[22]), 1, "NOCC_SYMB");/*_.NCALLSYM__V32*/ curfptr[31] = slot; };
-     ;
-     /*_.NBOXCALL__V33*/ curfptr[32] = 
-      meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)));;
-     /*_.NREALCALL__V34*/ curfptr[33] = (/*nil*/NULL);;
-     /*_.NINCALLBINDINGS__V35*/ curfptr[34] = 
-      (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-     MELT_LOCATION("warmelt-normal.melt:3232:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3232:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[0] = (melt_ptr_t)(/*_.NCALLSYM__V32*/ curfptr[31]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[1] = (melt_ptr_t)(/*_.NBOXCALL__V33*/ curfptr[32]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3232:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[36])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[36])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[36])->tabval[2] = (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]);
-      ;
-      /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3230:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3230:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35];
-      /*_.LIST_ITERATE_TEST__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_ITERATE_TEST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCALLBINDINGS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.BOX_CONTENT__V39*/ curfptr[38] = 
-      melt_box_content((meltbox_ptr_t)(/*_.NBOXCALL__V33*/ curfptr[32]));;
-     MELT_LOCATION("warmelt-normal.melt:3239:/ compute");
-     /*_.NREALCALL__V34*/ curfptr[33] = /*_.SETQ___V40*/ curfptr[39] = /*_.BOX_CONTENT__V39*/ curfptr[38];;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3240:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3240:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3240:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_multicall got nrealcall";
-        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3240:/ apply.arg");
-        argtab[3].bp_long = 3240;
-        /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3240:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3240:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3240:/ cppif.else");
-     /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:3243:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3243:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3243:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[43])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[43])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[43])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V19*/ curfptr[18]);
-      ;
-      /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3241:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3241:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41];
-      /*_.MULTIPLE_EVERY__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3245:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply");
-      /*multiapply 4args, 1x.res*/ {
-       union meltparam_un argtab[3];
-       
-       union meltparam_un restab[1];
-       memset(&restab, 0, sizeof(restab));
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18];MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-       MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.xres");
-       restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODYBINDINGS__V48*/ curfptr[47];
-       MELT_LOCATION("warmelt-normal.melt:3245:/ multiapply.appl");
-       /*_.NBODY__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3245:/ block");
-      /*block*/{
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:3248:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:3248:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-          callcount;;
-         MELT_LOCATION("warmelt-normal.melt:3248:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
-          argtab[0].bp_cstring =  "normexp_multicall nbody";
-          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-normal.melt";
-          MELT_LOCATION("warmelt-normal.melt:3248:/ apply.arg");
-          argtab[3].bp_long = 3248;
-          /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3248:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3248:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:3248:/ cppif.else");
-       /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:3249:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:3249:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-          callcount;;
-         MELT_LOCATION("warmelt-normal.melt:3249:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
-          argtab[0].bp_cstring =  "normexp_multicall nbodybindings";
-          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-normal.melt";
-          MELT_LOCATION("warmelt-normal.melt:3249:/ apply.arg");
-          argtab[3].bp_long = 3249;
-          /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBODYBINDINGS__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V51*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3249:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3249:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:3249:/ cppif.else");
-       /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-normal.melt:3250:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:3250:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:3250:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODYBINDINGS__V48*/ curfptr[47];
-         MELT_LOCATION("warmelt-normal.melt:3250:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-         /*_.WNBODYLET__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3252:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:3252:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V56*/ curfptr[55] = slot; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3254:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:3254:/ newclosure");
-           /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] =
-           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (1));
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3254:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V56*/ curfptr[55]);
-          ;
-          /*_.LAMBDA___V57*/ curfptr[56] = /*_.LAMBDA___V58*/ curfptr[57];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3253:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3253:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[56];
-          /*_.MULTIPLE_EVERY__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.LET___V55*/ curfptr[54] = /*_.MULTIPLE_EVERY__V59*/ curfptr[58];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3252:/ clear");
-         /*clear*/ /*_.SYCMAP__V56*/ curfptr[55] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3252:/ clear");
-         /*clear*/ /*_.LAMBDA___V57*/ curfptr[56] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3252:/ clear");
-         /*clear*/ /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = 0 ;}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3257:/ block");
-        /*block*/{
-         /*_.LASTNBODY__V61*/ curfptr[56] = 
-          (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V47*/ curfptr[46]), (-1)));;
-         MELT_LOCATION("warmelt-normal.melt:3259:/ cond");
-         /*cond*/ if (/*_.LASTNBODY__V61*/ curfptr[56]) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:3259:/ cond.then");
-         MELT_LOCATION("warmelt-normal.melt:3259:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-normal.melt:3259:/ msend");
-           /*msend*/{
-            union meltparam_un argtab[1];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:3259:/ ojbmsend.arg");
-            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18];
-            /*_.GET_CTYPE__V63*/ curfptr[62] = meltgc_send((melt_ptr_t)(/*_.LASTNBODY__V61*/ curfptr[56]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.LASTNTYPE__V62*/ curfptr[58] = /*_.GET_CTYPE__V63*/ curfptr[62];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3259:/ clear");
-           /*clear*/ /*_.GET_CTYPE__V63*/ curfptr[62] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-normal.melt:3259:/ cond.else");
-         
-          /*_.LASTNTYPE__V62*/ curfptr[58] = (/*!CTYPE_VOID*/ curfrout->tabval[19]);;
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3260:/ apply");
-         /*apply*/{
-          /*_.CSYM__V64*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[20])), (melt_ptr_t)((/*!konst_21_MULTI_*/ curfrout->tabval[21])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3261:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:3261:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V66*/ curfptr[65] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3261:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (0), (/*_.CSYM__V64*/ curfptr[62]), "BINDER");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3261:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3261:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V66*/ curfptr[65]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "LETBIND_TYPE");
-          ;
-          /*_.CBIND__V65*/ curfptr[64] = /*_.INST__V66*/ curfptr[65];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3267:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:3267:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V68*/ curfptr[67] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NOCC_CTYP");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.CSYM__V64*/ curfptr[62]), "NOCC_SYMB");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3267:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (3), (/*_.CBIND__V65*/ curfptr[64]), "NOCC_BIND");
-          ;
-          /*_.CLOCC__V67*/ curfptr[66] = /*_.INST__V68*/ curfptr[67];;}
-         ;
-         /*_#IS_A__L12*/ curfnum[0] = 
-          melt_is_instance_of((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[23])));;
-         MELT_LOCATION("warmelt-normal.melt:3275:/ cond");
-         /*cond*/ if (/*_#IS_A__L12*/ curfnum[0]) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:3275:/ cond.then");
-         MELT_LOCATION("warmelt-normal.melt:3275:/ block");
-          /*block*/{
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.then");
-           MELT_LOCATION("warmelt-normal.melt:3276:/ block");
-            /*block*/{
-             /*_#IS_A__L13*/ curfnum[12] = 
-              melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[24])));;
-             MELT_LOCATION("warmelt-normal.melt:3276:/ cond");
-             /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
-             MELT_LOCATION("warmelt-normal.melt:3276:/ cond.then");
-             /*_.IFELSE___V71*/ curfptr[70] = (/*nil*/NULL);;
-             } else {MELT_LOCATION("warmelt-normal.melt:3276:/ cond.else");
-             
-              MELT_LOCATION("warmelt-normal.melt:3276:/ block");
-              /*block*/{
-               /*block*/{
-                
-                {
-                MELT_LOCATION("warmelt-normal.melt:3276:/ locexp");
-                melt_assert_failed(( "normexp_multicall check nrealcall apply"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3276)?(3276):__LINE__, __FUNCTION__);
-;}
-                ;
-                /*clear*/ /*_.IFELSE___V71*/ curfptr[70] = 0 ;}
-               ;
-               /*epilog*/}
-              ;
-              }
-             ;
-             /*_.IFCPP___V70*/ curfptr[69] = /*_.IFELSE___V71*/ curfptr[70];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:3276:/ clear");
-             /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:3276:/ clear");
-             /*clear*/ /*_.IFELSE___V71*/ curfptr[70] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-normal.melt:3276:/ cppif.else");
-           /*_.IFCPP___V70*/ curfptr[69] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           MELT_LOCATION("warmelt-normal.melt:3277:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-normal.melt:3279:/ getslot");
-            { melt_ptr_t slot=0;
-             melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 3, "NAPP_FUN");/*_.NAPP_FUN__V73*/ curfptr[72] = slot; };
-            ;
-            MELT_LOCATION("warmelt-normal.melt:3280:/ getslot");
-            { melt_ptr_t slot=0;
-             melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 2, "NEXPR_ARGS");/*_.NEXPR_ARGS__V74*/ curfptr[73] = slot; };
-            ;
-            MELT_LOCATION("warmelt-normal.melt:3277:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-normal.melt:3277:/ rawallocobj");
-             /*rawallocobj*/ { melt_ptr_t newobj = 0;
-              melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[25])), (6), "CLASS_NREP_MULTIAPPLY");/*_.INST__V76*/ curfptr[75] =
-              newobj; };
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (3), (/*_.NAPP_FUN__V73*/ curfptr[72]), "NAPP_FUN");
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.NEXPR_ARGS__V74*/ curfptr[73]), "NEXPR_ARGS");
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NEXPR_CTYP");
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @NMULAPP_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (4), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULAPP_BINDINGS");
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3277:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @NMULAPP_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (5), (/*_.WNBODYLET__V54*/ curfptr[53]), "NMULAPP_BODY");
-             ;
-             /*_.NRES__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;}
-            ;
-            MELT_LOCATION("warmelt-normal.melt:3284:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-normal.melt:3284:/ putslot");
-             /*putslot*/
-             melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64])) == OBMAG_OBJECT);
-             melt_putfield_object((/*_.CBIND__V65*/ curfptr[64]), (2), (/*_.NRES__V75*/ curfptr[74]), "LETBIND_EXPR");
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3284:/ touch");
-             meltgc_touch(/*_.CBIND__V65*/ curfptr[64]);
-             ;
-             /*epilog*/}
-            ;
-            
-            {
-            MELT_LOCATION("warmelt-normal.melt:3285:/ locexp");
-            meltgc_append_list((melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64]));}
-            ;
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-normal.melt:3286:/ cppif.then");
-            MELT_LOCATION("warmelt-normal.melt:3286:/ block");
-             /*block*/{
-              /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 
-               callcount;;
-              MELT_LOCATION("warmelt-normal.melt:3286:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[4];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
-               argtab[0].bp_cstring =  "normexp_multicall multiapply result clocc";
-               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
-               argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12];
-               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
-               argtab[2].bp_cstring =  "warmelt-normal.melt";
-               MELT_LOCATION("warmelt-normal.melt:3286:/ apply.arg");
-               argtab[3].bp_long = 3286;
-               /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-normal.melt:3286:/ clear");
-              /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3286:/ clear");
-              /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-normal.melt:3286:/ cppif.else");
-            /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-normal.melt:3287:/ cppif.then");
-            MELT_LOCATION("warmelt-normal.melt:3287:/ block");
-             /*block*/{
-              /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 
-               callcount;;
-              MELT_LOCATION("warmelt-normal.melt:3287:/ apply");
-              /*apply*/{
-               union meltparam_un argtab[4];
-               memset(&argtab, 0, sizeof(argtab));
-               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
-               argtab[0].bp_cstring =  "normexp_multicall multiapply result nincallbindings";
-               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
-               argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12];
-               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
-               argtab[2].bp_cstring =  "warmelt-normal.melt";
-               MELT_LOCATION("warmelt-normal.melt:3287:/ apply.arg");
-               argtab[3].bp_long = 3287;
-               /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-               }
-              ;
-              /*_.IFCPP___V79*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V80*/ curfptr[79];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-normal.melt:3287:/ clear");
-              /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3287:/ clear");
-              /*clear*/ /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-normal.melt:3287:/ cppif.else");
-            /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            MELT_LOCATION("warmelt-normal.melt:3288:/ block");
-            /*block*/{
-             /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V67*/ curfptr[66];;
-             MELT_LOCATION("warmelt-normal.melt:3288:/ putxtraresult");
-             if (!xrestab_ || !xresdescr_) goto labend_rout;
-             if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-             if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NINCALLBINDINGS__V35*/ curfptr[34]);
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3288:/ finalreturn");
-             ;
-             /*finalret*/ goto labend_rout ;}
-            ;
-            /*_.LET___V72*/ curfptr[70] = /*_.RETURN___V81*/ curfptr[79];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
-            /*clear*/ /*_.NAPP_FUN__V73*/ curfptr[72] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
-            /*clear*/ /*_.NEXPR_ARGS__V74*/ curfptr[73] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
-            /*clear*/ /*_.NRES__V75*/ curfptr[74] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
-            /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
-            /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3277:/ clear");
-            /*clear*/ /*_.RETURN___V81*/ curfptr[79] = 0 ;}
-           ;
-           MELT_LOCATION("warmelt-normal.melt:3275:/ block");
-           /*block*/{
-            /*_.PROGN___V82*/ curfptr[72] = /*_.LET___V72*/ curfptr[70];;}
-           ;
-           /*_.IFELSE___V69*/ curfptr[68] = /*_.PROGN___V82*/ curfptr[72];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
-           /*clear*/ /*_.IFCPP___V70*/ curfptr[69] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
-           /*clear*/ /*_.LET___V72*/ curfptr[70] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
-           /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-normal.melt:3275:/ cond.else");
-         
-          MELT_LOCATION("warmelt-normal.melt:3275:/ block");
-          /*block*/{
-           /*_#IS_A__L16*/ curfnum[12] = 
-            melt_is_instance_of((melt_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SOURCE_MSEND*/ curfrout->tabval[26])));;
-           MELT_LOCATION("warmelt-normal.melt:3291:/ cond");
-           /*cond*/ if (/*_#IS_A__L16*/ curfnum[12]) /*then*/ {
-           MELT_LOCATION("warmelt-normal.melt:3291:/ cond.then");
-           MELT_LOCATION("warmelt-normal.melt:3291:/ block");
-            /*block*/{
-             
-             #if ENABLE_CHECKING
-              MELT_LOCATION("warmelt-normal.melt:3292:/ cppif.then");
-             MELT_LOCATION("warmelt-normal.melt:3292:/ block");
-              /*block*/{
-               /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 
-                callcount;;
-               MELT_LOCATION("warmelt-normal.melt:3292:/ apply");
-               /*apply*/{
-                union meltparam_un argtab[4];
-                memset(&argtab, 0, sizeof(argtab));
-                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
-                argtab[0].bp_cstring =  "normexp_multicall multicall nrealcall";
-                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
-                argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16];
-                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
-                argtab[2].bp_cstring =  "warmelt-normal.melt";
-                MELT_LOCATION("warmelt-normal.melt:3292:/ apply.arg");
-                argtab[3].bp_long = 3292;
-                /*_.DEBUG_MSG_FUN__V85*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                }
-               ;
-               /*_.IFCPP___V84*/ curfptr[74] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[76];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-normal.melt:3292:/ clear");
-               /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:3292:/ clear");
-               /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[76] = 0 ;}
-              
-              #else /*ENABLE_CHECKING*/
-              MELT_LOCATION("warmelt-normal.melt:3292:/ cppif.else");
-             /*_.IFCPP___V84*/ curfptr[74] = (/*nil*/NULL);
-              #endif /*ENABLE_CHECKING*/
-              ;
-             
-             #if ENABLE_CHECKING
-              MELT_LOCATION("warmelt-normal.melt:3294:/ cppif.then");
-             MELT_LOCATION("warmelt-normal.melt:3294:/ block");
-              /*block*/{
-               /*_#IS_A__L18*/ curfnum[16] = 
-                melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])));;
-               MELT_LOCATION("warmelt-normal.melt:3294:/ cond");
-               /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ {
-               MELT_LOCATION("warmelt-normal.melt:3294:/ cond.then");
-               /*_.IFELSE___V87*/ curfptr[79] = (/*nil*/NULL);;
-               } else {MELT_LOCATION("warmelt-normal.melt:3294:/ cond.else");
-               
-                MELT_LOCATION("warmelt-normal.melt:3294:/ block");
-                /*block*/{
-                 /*block*/{
-                  
-                  {
-                  MELT_LOCATION("warmelt-normal.melt:3294:/ locexp");
-                  melt_assert_failed(( "normexp_multicall check nrealcall send"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3294)?(3294):__LINE__, __FUNCTION__);
-;}
-                  ;
-                  /*clear*/ /*_.IFELSE___V87*/ curfptr[79] = 0 ;}
-                 ;
-                 /*epilog*/}
-                ;
-                }
-               ;
-               /*_.IFCPP___V86*/ curfptr[77] = /*_.IFELSE___V87*/ curfptr[79];;
-               /*epilog*/
-               MELT_LOCATION("warmelt-normal.melt:3294:/ clear");
-               /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ;
-               MELT_LOCATION("warmelt-normal.melt:3294:/ clear");
-               /*clear*/ /*_.IFELSE___V87*/ curfptr[79] = 0 ;}
-              
-              #else /*ENABLE_CHECKING*/
-              MELT_LOCATION("warmelt-normal.melt:3294:/ cppif.else");
-             /*_.IFCPP___V86*/ curfptr[77] = (/*nil*/NULL);
-              #endif /*ENABLE_CHECKING*/
-              ;
-             MELT_LOCATION("warmelt-normal.melt:3295:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-normal.melt:3295:/ cond");
-              /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])))) /*then*/ {
-              MELT_LOCATION("warmelt-normal.melt:3295:/ cond.then");
-              MELT_LOCATION("warmelt-normal.melt:3295:/ getslot");
-               { melt_ptr_t slot=0;
-                melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 4, "NSEND_RECV");/*_.NRECV__V89*/ curfptr[70] = slot; };
-               ;
-              } else {MELT_LOCATION("warmelt-normal.melt:3295:/ cond.else");
-              
-               /*_.NRECV__V89*/ curfptr[70] = NULL;;
-               }
-              ;
-              MELT_LOCATION("warmelt-normal.melt:3299:/ getslot");
-              { melt_ptr_t slot=0;
-               melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 3, "NSEND_SEL");/*_.NSEND_SEL__V90*/ curfptr[72] = slot; };
-              ;
-              MELT_LOCATION("warmelt-normal.melt:3301:/ getslot");
-              { melt_ptr_t slot=0;
-               melt_object_get_field(slot,(melt_ptr_t)(/*_.NREALCALL__V34*/ curfptr[33]), 2, "NEXPR_ARGS");/*_.NEXPR_ARGS__V91*/ curfptr[76] = slot; };
-              ;
-              MELT_LOCATION("warmelt-normal.melt:3296:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-normal.melt:3296:/ rawallocobj");
-               /*rawallocobj*/ { melt_ptr_t newobj = 0;
-                melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[28])), (7), "CLASS_NREP_MULTIMSEND");/*_.INST__V93*/ curfptr[92] =
-                newobj; };
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (1), (/*_.LASTNTYPE__V62*/ curfptr[58]), "NEXPR_CTYP");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NSEND_SEL", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (3), (/*_.NSEND_SEL__V90*/ curfptr[72]), "NSEND_SEL");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NSEND_RECV", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (4), (/*_.NRECV__V89*/ curfptr[70]), "NSEND_RECV");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (2), (/*_.NEXPR_ARGS__V91*/ curfptr[76]), "NEXPR_ARGS");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NMULSEND_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (5), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULSEND_BINDINGS");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3296:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @NMULSEND_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.INST__V93*/ curfptr[92]), (6), (/*_.WNBODYLET__V54*/ curfptr[53]), "NMULSEND_BODY");
-               ;
-               /*_.NRES__V92*/ curfptr[79] = /*_.INST__V93*/ curfptr[92];;}
-              ;
-              
-              #if ENABLE_CHECKING
-               MELT_LOCATION("warmelt-normal.melt:3305:/ cppif.then");
-              MELT_LOCATION("warmelt-normal.melt:3305:/ block");
-               /*block*/{
-                /*_#THE_CALLCOUNT__L19*/ curfnum[16] = 
-                 callcount;;
-                MELT_LOCATION("warmelt-normal.melt:3305:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[4];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
-                 argtab[0].bp_cstring =  "normexp_multicall nrecv from multicall";
-                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
-                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[16];
-                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
-                 argtab[2].bp_cstring =  "warmelt-normal.melt";
-                 MELT_LOCATION("warmelt-normal.melt:3305:/ apply.arg");
-                 argtab[3].bp_long = 3305;
-                 /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NRECV__V89*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                /*_.IFCPP___V94*/ curfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-normal.melt:3305:/ clear");
-                /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[16] = 0 ;
-                MELT_LOCATION("warmelt-normal.melt:3305:/ clear");
-                /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
-               
-               #else /*ENABLE_CHECKING*/
-               MELT_LOCATION("warmelt-normal.melt:3305:/ cppif.else");
-              /*_.IFCPP___V94*/ curfptr[93] = (/*nil*/NULL);
-               #endif /*ENABLE_CHECKING*/
-               ;
-              
-              #if ENABLE_CHECKING
-               MELT_LOCATION("warmelt-normal.melt:3306:/ cppif.then");
-              MELT_LOCATION("warmelt-normal.melt:3306:/ block");
-               /*block*/{
-                /*_#IS_OBJECT__L20*/ curfnum[16] = 
-                 (melt_magic_discr((melt_ptr_t)(/*_.NRECV__V89*/ curfptr[70])) == OBMAG_OBJECT);;
-                MELT_LOCATION("warmelt-normal.melt:3306:/ cond");
-                /*cond*/ if (/*_#IS_OBJECT__L20*/ curfnum[16]) /*then*/ {
-                MELT_LOCATION("warmelt-normal.melt:3306:/ cond.then");
-                /*_.IFELSE___V97*/ curfptr[96] = (/*nil*/NULL);;
-                } else {MELT_LOCATION("warmelt-normal.melt:3306:/ cond.else");
-                
-                 MELT_LOCATION("warmelt-normal.melt:3306:/ block");
-                 /*block*/{
-                  /*block*/{
-                   
-                   {
-                   MELT_LOCATION("warmelt-normal.melt:3306:/ locexp");
-                   melt_assert_failed(( "check nrecv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3306)?(3306):__LINE__, __FUNCTION__);
-;}
-                   ;
-                   /*clear*/ /*_.IFELSE___V97*/ curfptr[96] = 0 ;}
-                  ;
-                  /*epilog*/}
-                 ;
-                 }
-                ;
-                /*_.IFCPP___V96*/ curfptr[94] = /*_.IFELSE___V97*/ curfptr[96];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-normal.melt:3306:/ clear");
-                /*clear*/ /*_#IS_OBJECT__L20*/ curfnum[16] = 0 ;
-                MELT_LOCATION("warmelt-normal.melt:3306:/ clear");
-                /*clear*/ /*_.IFELSE___V97*/ curfptr[96] = 0 ;}
-               
-               #else /*ENABLE_CHECKING*/
-               MELT_LOCATION("warmelt-normal.melt:3306:/ cppif.else");
-              /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL);
-               #endif /*ENABLE_CHECKING*/
-               ;
-              MELT_LOCATION("warmelt-normal.melt:3307:/ block");
-              /*block*/{
-               MELT_LOCATION("warmelt-normal.melt:3307:/ putslot");
-               /*putslot*/
-               melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64])) == OBMAG_OBJECT);
-               melt_putfield_object((/*_.CBIND__V65*/ curfptr[64]), (2), (/*_.NRES__V92*/ curfptr[79]), "LETBIND_EXPR");
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3307:/ touch");
-               meltgc_touch(/*_.CBIND__V65*/ curfptr[64]);
-               ;
-               /*epilog*/}
-              ;
-              
-              {
-              MELT_LOCATION("warmelt-normal.melt:3308:/ locexp");
-              meltgc_append_list((melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (melt_ptr_t)(/*_.CBIND__V65*/ curfptr[64]));}
-              ;
-              
-              #if ENABLE_CHECKING
-               MELT_LOCATION("warmelt-normal.melt:3309:/ cppif.then");
-              MELT_LOCATION("warmelt-normal.melt:3309:/ block");
-               /*block*/{
-                /*_#THE_CALLCOUNT__L21*/ curfnum[16] = 
-                 callcount;;
-                MELT_LOCATION("warmelt-normal.melt:3309:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[4];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
-                 argtab[0].bp_cstring =  "normexp_multicall multisend result clocc";
-                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
-                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[16];
-                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
-                 argtab[2].bp_cstring =  "warmelt-normal.melt";
-                 MELT_LOCATION("warmelt-normal.melt:3309:/ apply.arg");
-                 argtab[3].bp_long = 3309;
-                 /*_.DEBUG_MSG_FUN__V99*/ curfptr[98] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                /*_.IFCPP___V98*/ curfptr[96] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[98];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-normal.melt:3309:/ clear");
-                /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[16] = 0 ;
-                MELT_LOCATION("warmelt-normal.melt:3309:/ clear");
-                /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[98] = 0 ;}
-               
-               #else /*ENABLE_CHECKING*/
-               MELT_LOCATION("warmelt-normal.melt:3309:/ cppif.else");
-              /*_.IFCPP___V98*/ curfptr[96] = (/*nil*/NULL);
-               #endif /*ENABLE_CHECKING*/
-               ;
-              
-              #if ENABLE_CHECKING
-               MELT_LOCATION("warmelt-normal.melt:3310:/ cppif.then");
-              MELT_LOCATION("warmelt-normal.melt:3310:/ block");
-               /*block*/{
-                /*_#THE_CALLCOUNT__L22*/ curfnum[16] = 
-                 callcount;;
-                MELT_LOCATION("warmelt-normal.melt:3310:/ apply");
-                /*apply*/{
-                 union meltparam_un argtab[4];
-                 memset(&argtab, 0, sizeof(argtab));
-                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
-                 argtab[0].bp_cstring =  "normexp_multicall multisend result nincallbindings";
-                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
-                 argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[16];
-                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
-                 argtab[2].bp_cstring =  "warmelt-normal.melt";
-                 MELT_LOCATION("warmelt-normal.melt:3310:/ apply.arg");
-                 argtab[3].bp_long = 3310;
-                 /*_.DEBUG_MSG_FUN__V101*/ curfptr[100] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NINCALLBINDINGS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-                 }
-                ;
-                /*_.IFCPP___V100*/ curfptr[98] = /*_.DEBUG_MSG_FUN__V101*/ curfptr[100];;
-                /*epilog*/
-                MELT_LOCATION("warmelt-normal.melt:3310:/ clear");
-                /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[16] = 0 ;
-                MELT_LOCATION("warmelt-normal.melt:3310:/ clear");
-                /*clear*/ /*_.DEBUG_MSG_FUN__V101*/ curfptr[100] = 0 ;}
-               
-               #else /*ENABLE_CHECKING*/
-               MELT_LOCATION("warmelt-normal.melt:3310:/ cppif.else");
-              /*_.IFCPP___V100*/ curfptr[98] = (/*nil*/NULL);
-               #endif /*ENABLE_CHECKING*/
-               ;
-              MELT_LOCATION("warmelt-normal.melt:3311:/ block");
-              /*block*/{
-               /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V67*/ curfptr[66];;
-               MELT_LOCATION("warmelt-normal.melt:3311:/ putxtraresult");
-               if (!xrestab_ || !xresdescr_) goto labend_rout;
-               if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-               if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NINCALLBINDINGS__V35*/ curfptr[34]);
-               ;
-               MELT_LOCATION("warmelt-normal.melt:3311:/ finalreturn");
-               ;
-               /*finalret*/ goto labend_rout ;}
-              ;
-              /*_.LET___V88*/ curfptr[69] = /*_.RETURN___V102*/ curfptr[100];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.NRECV__V89*/ curfptr[70] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.NSEND_SEL__V90*/ curfptr[72] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.NEXPR_ARGS__V91*/ curfptr[76] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.NRES__V92*/ curfptr[79] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.IFCPP___V94*/ curfptr[93] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.IFCPP___V98*/ curfptr[96] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.IFCPP___V100*/ curfptr[98] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3295:/ clear");
-              /*clear*/ /*_.RETURN___V102*/ curfptr[100] = 0 ;}
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3291:/ block");
-             /*block*/{
-              /*_.PROGN___V103*/ curfptr[70] = /*_.LET___V88*/ curfptr[69];;}
-             ;
-             /*_.IFELSE___V83*/ curfptr[73] = /*_.PROGN___V103*/ curfptr[70];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
-             /*clear*/ /*_.IFCPP___V84*/ curfptr[74] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
-             /*clear*/ /*_.IFCPP___V86*/ curfptr[77] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
-             /*clear*/ /*_.LET___V88*/ curfptr[69] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
-             /*clear*/ /*_.PROGN___V103*/ curfptr[70] = 0 ;}
-            ;
-           } else {MELT_LOCATION("warmelt-normal.melt:3291:/ cond.else");
-           
-            MELT_LOCATION("warmelt-normal.melt:3291:/ block");
-            /*block*/{
-             
-             {
-             MELT_LOCATION("warmelt-normal.melt:3315:/ locexp");
-             melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "multi-called expression neither apply nor send"), (melt_ptr_t)0);}
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3316:/ block");
-             /*block*/{
-              /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-              MELT_LOCATION("warmelt-normal.melt:3316:/ finalreturn");
-              ;
-              /*finalret*/ goto labend_rout ;}
-             ;
-             MELT_LOCATION("warmelt-normal.melt:3314:/ block");
-             /*block*/{
-              /*_.PROGN___V105*/ curfptr[76] = /*_.RETURN___V104*/ curfptr[72];;}
-             ;
-             /*_.IFELSE___V83*/ curfptr[73] = /*_.PROGN___V105*/ curfptr[76];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
-             /*clear*/ /*_.RETURN___V104*/ curfptr[72] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:3291:/ clear");
-             /*clear*/ /*_.PROGN___V105*/ curfptr[76] = 0 ;}
-            ;
-            }
-           ;
-           /*_.IFELSE___V69*/ curfptr[68] = /*_.IFELSE___V83*/ curfptr[73];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
-           /*clear*/ /*_#IS_A__L16*/ curfnum[12] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:3275:/ clear");
-           /*clear*/ /*_.IFELSE___V83*/ curfptr[73] = 0 ;}
-          ;
-          }
-         ;
-         /*_.LET___V60*/ curfptr[55] = /*_.IFELSE___V69*/ curfptr[68];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_.LASTNBODY__V61*/ curfptr[56] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_.LASTNTYPE__V62*/ curfptr[58] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_.CSYM__V64*/ curfptr[62] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_.CBIND__V65*/ curfptr[64] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_.CLOCC__V67*/ curfptr[66] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_#IS_A__L12*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3257:/ clear");
-         /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;}
-        ;
-        /*_.LET___V53*/ curfptr[51] = /*_.LET___V60*/ curfptr[55];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3250:/ clear");
-        /*clear*/ /*_.WNBODYLET__V54*/ curfptr[53] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3250:/ clear");
-        /*clear*/ /*_.LET___V55*/ curfptr[54] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3250:/ clear");
-        /*clear*/ /*_.LET___V60*/ curfptr[55] = 0 ;}
-       ;
-       /*_.MULTI___V46*/ curfptr[45] = /*_.LET___V53*/ curfptr[51];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
-       /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
-       /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
-       /*clear*/ /*_.LET___V53*/ curfptr[51] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3245:/ clear");
-      /*clear*/ /*_.NBODYBINDINGS__V48*/ curfptr[47] = 0 ;}
-     ;
-     /*_.LET___V31*/ curfptr[29] = /*_.MULTI___V46*/ curfptr[45];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.NCALLSYM__V32*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.NBOXCALL__V33*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.NREALCALL__V34*/ curfptr[33] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.NINCALLBINDINGS__V35*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.LIST_ITERATE_TEST__V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.BOX_CONTENT__V39*/ curfptr[38] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3225:/ clear");
-     /*clear*/ /*_.MULTI___V46*/ curfptr[45] = 0 ;}
-    ;
-    /*_.MULTI___V22*/ curfptr[20] = /*_.LET___V31*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
-    /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
-    /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
-    /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
-    /*clear*/ /*_.LET___V31*/ curfptr[29] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3216:/ clear");
-   /*clear*/ /*_.NCALLBINDINGS__V24*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.SRESBIND__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.SCALL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.NEWENV__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3209:/ clear");
-  /*clear*/ /*_.MULTI___V22*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3204:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3204:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3204:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_MULTICALL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_89_warmelt_normal_NORMEXP_MULTICALL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_90_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3232:/ getarg");
- /*_.CBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3232:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3233:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3233:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3233:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3233:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3233:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3233:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3233:/ locexp");
-      melt_assert_failed(( "normexp_multicall check cbnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3233)?(3233):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3233:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3233:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3233:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3234:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; };
- ;
- /*_#__L2*/ curfnum[0] = 
-  (((/*~NCALLSYM*/ curfclos->tabval[0])) == (/*_.BINDER__V5*/ curfptr[3]));;
- MELT_LOCATION("warmelt-normal.melt:3234:/ cond");
- /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:3234:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:3234:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3235:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3235:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NREALCALLEX__V8*/ curfptr[7] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3236:/ locexp");
-    meltgc_box_put((melt_ptr_t)((/*~NBOXCALL*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.NREALCALLEX__V8*/ curfptr[7]));}
-    ;
-    /*_.LET___V7*/ curfptr[6] = (/*nil*/NULL);;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3235:/ clear");
-    /*clear*/ /*_.NREALCALLEX__V8*/ curfptr[7] = 0 ;}
-   ;
-   /*_.IFELSE___V6*/ curfptr[5] = /*_.LET___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3234:/ clear");
-   /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-normal.melt:3234:/ cond.else");
- 
-  MELT_LOCATION("warmelt-normal.melt:3234:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:3238:/ locexp");
-   meltgc_append_list((melt_ptr_t)((/*~NINCALLBINDINGS*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]));}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3238:/ block");
-   /*block*/{
-    /*_.PROGN___V9*/ curfptr[7] = /*_.CBND__V2*/ curfptr[1];;}
-   ;
-   /*_.IFELSE___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3234:/ clear");
-   /*clear*/ /*_.PROGN___V9*/ curfptr[7] = 0 ;}
-  ;
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:3232:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V6*/ curfptr[5];;
-  MELT_LOCATION("warmelt-normal.melt:3232:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
- /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
- /*clear*/ /*_#__L2*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3232:/ clear");
- /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_90_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_91_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3243:/ getarg");
- /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3243:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3243:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:3244:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:3244:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BND__V2*/ curfptr[1];
-  /*_.PUT_ENV__V3*/ curfptr[2] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (melt_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:3243:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-normal.melt:3243:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3243:/ clear");
- /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_91_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_92_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3254:/ getarg");
- /*_.BND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3254:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:3255:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V3*/ curfptr[2] = slot; };
- ;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:3255:/ locexp");
- meltgc_remove_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), 
-			      (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3254:/ clear");
- /*clear*/ /*_.BINDER__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_92_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_93_warmelt_normal_NORMEXP_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_normal_NORMEXP_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3325:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3325:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3326:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3326:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3326:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3326:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3326:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3326:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3326:/ locexp");
-      melt_assert_failed(( "check tuple recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3326)?(3326):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3326:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3326:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3326:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3327:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3327:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3327:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3327:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3327:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3327:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3327)?(3327):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3327:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3327:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3327:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3328:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3328:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3328:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3328:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3328:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3328:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3328:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3328)?(3328):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3328:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3328:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3328:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3329:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3329:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3329:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_tuple recv";
-    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3329:/ apply.arg");
-    argtab[3].bp_long = 3329;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3329:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3329:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3329:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3330:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3330:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3331:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3333:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply");
-   /*multiapply 4args, 1x.res*/ {
-    union meltparam_un argtab[3];
-    
-    union meltparam_un restab[1];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V19*/ curfptr[18];
-    MELT_LOCATION("warmelt-normal.melt:3333:/ multiapply.appl");
-    /*_.NARGS__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SARGS__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3333:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3336:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3336:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3336:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_tuple nargs";
-       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3336:/ apply.arg");
-       argtab[3].bp_long = 3336;
-       /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NARGS__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3336:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3336:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3336:/ cppif.else");
-    /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3337:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3337:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3337:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_tuple nbindings";
-       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3337:/ apply.arg");
-       argtab[3].bp_long = 3337;
-       /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDINGS__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V22*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3337:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3337:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3337:/ cppif.else");
-    /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3341:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unimplemented TUPLE normalization"), (melt_ptr_t)0);}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3342:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3342:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3342:/ cond");
-      /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3342:/ cond.then");
-      /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3342:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3342:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3342:/ locexp");
-         melt_assert_failed(( "@$@unimplemented TUPLE"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3342)?(3342):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3342:/ clear");
-      /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3342:/ cppif.else");
-    /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.MULTI___V17*/ curfptr[16] = /*_.IFCPP___V24*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
-    /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
-    /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
-    /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3333:/ clear");
-   /*clear*/ /*_.NBINDINGS__V19*/ curfptr[18] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V17*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3330:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3330:/ clear");
-  /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3330:/ clear");
-  /*clear*/ /*_.MULTI___V17*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3325:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3325:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3325:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_93_warmelt_normal_NORMEXP_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_94_warmelt_normal_NORMEXP_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_normal_NORMEXP_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3349:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3349:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3350:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3350:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3350:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3350:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3350:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3350:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3350:/ locexp");
-      melt_assert_failed(( "check list recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3350)?(3350):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3350:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3350:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3350:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3351:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3351:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3351:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3351:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3351:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3351:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3351:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3351)?(3351):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3351:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3351:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3351:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3352:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3352:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3352:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3352:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3352:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3352:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3352)?(3352):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3352:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3352:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3352:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3353:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3353:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_list recv";
-    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3353:/ apply.arg");
-    argtab[3].bp_long = 3353;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3353:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3353:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3353:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3354:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3354:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3355:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V16*/ curfptr[15] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3358:/ locexp");
-  melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unimplemented LIST normalization"), (melt_ptr_t)0);}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3359:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3359:/ cond");
-    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3359:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:3359:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3359:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3359:/ locexp");
-       melt_assert_failed(( "@$@unimplemented LIST"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3359)?(3359):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3359:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3359:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V17*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3354:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3354:/ clear");
-  /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3354:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3349:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3349:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3349:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_94_warmelt_normal_NORMEXP_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("BADMETH_PREPARE_CONSTRUCTOR_BINDING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3372:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3372:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3373:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3373:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3373:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
-    argtab[0].bp_cstring =  "bad_prepare_constructor_binding recv";
-    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3373:/ apply.arg");
-    argtab[3].bp_long = 3373;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3373:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3373:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3373:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3374:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3374:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3374:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
-    argtab[0].bp_cstring =  "bad_prepare_constructor_binding symb";
-    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3374:/ apply.arg");
-    argtab[3].bp_long = 3374;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3374:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3374:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3374:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3375:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:3375:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:3375:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-normal.melt:3375:/ cond.else");
- 
-  /*_.NAMED_NAME__V10*/ curfptr[8] = NULL;;
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:3375:/ locexp");
- melt_error_str((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]), ( "invalid constructor binding"), (melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8]));}
- ;
- /*_.DISCRIM__V11*/ curfptr[10] = 
-  (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
- MELT_LOCATION("warmelt-normal.melt:3377:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:3377:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:3377:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V11*/ curfptr[10]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-normal.melt:3377:/ cond.else");
- 
-  /*_.NAMED_NAME__V12*/ curfptr[11] = NULL;;
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:3376:/ locexp");
- melt_error_str((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]), ( "reciever unprepared to constructor binding"), (melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11]));}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3378:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3378:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3378:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3378:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3378:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3378:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3378:/ locexp");
-      melt_assert_failed(( "@$@badmeth_prepare_constructor_binding"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3378)?(3378):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3378:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3378:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3372:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V13*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3372:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
- /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
- /*clear*/ /*_.DISCRIM__V11*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
- /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3372:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("BADMETH_PREPARE_CONSTRUCTOR_BINDING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_95_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("BADMETH_NORMAL_LETREC_CONSTRUCTIVE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
- /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3391:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3392:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3392:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3392:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
-    argtab[0].bp_cstring =  "badmeth_normal_letrec_constructive cexpr";
-    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3392:/ apply.arg");
-    argtab[3].bp_long = 3392;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3392:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3392:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3392:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3393:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3393:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3393:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
-    argtab[0].bp_cstring =  "badmeth_normal_letrec_constructive symb";
-    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3393:/ apply.arg");
-    argtab[3].bp_long = 3393;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3393:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3393:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3393:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3394:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3394:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3394:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
-    argtab[0].bp_cstring =  "badmeth_normal_letrec_constructive cbind";
-    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3394:/ apply.arg");
-    argtab[3].bp_long = 3394;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3394:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3394:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3394:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3395:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:3395:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:3395:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[12] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-normal.melt:3395:/ cond.else");
- 
-  /*_.NAMED_NAME__V14*/ curfptr[12] = NULL;;
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:3395:/ locexp");
- melt_error_str((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6]), ( "invalid letrec constructive symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[12]));}
- ;
- /*_.DISCRIM__V15*/ curfptr[14] = 
-  (melt_discr((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1])));;
- MELT_LOCATION("warmelt-normal.melt:3397:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:3397:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:3397:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-normal.melt:3397:/ cond.else");
- 
-  /*_.NAMED_NAME__V16*/ curfptr[15] = NULL;;
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:3396:/ locexp");
- melt_error_str((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6]), ( "reciever unprepared to normal_letrec_constructive"), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3398:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3398:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3398:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3398:/ cond.then");
-   /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3398:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3398:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3398:/ locexp");
-      melt_assert_failed(( "@$@badmeth_normal_letrec_constructive"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3398)?(3398):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3398:/ clear");
-   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3398:/ cppif.else");
- /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V17*/ curfptr[16];;
-  MELT_LOCATION("warmelt-normal.melt:3391:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[12] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.DISCRIM__V15*/ curfptr[14] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3391:/ clear");
- /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("BADMETH_NORMAL_LETREC_CONSTRUCTIVE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_96_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_97_warmelt_normal_PREPCONS_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_normal_PREPCONS_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PREPCONS_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3403:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3403:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3404:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3404:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3404:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_lambda recv";
-    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3404:/ apply.arg");
-    argtab[3].bp_long = 3404;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3404:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3404:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3404:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3405:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3405:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3405:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_lambda symb";
-    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3405:/ apply.arg");
-    argtab[3].bp_long = 3405;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3405:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3405:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3405:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3406:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3406:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LAMBDA*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3406:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3406:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3406:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3406:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3406:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3406)?(3406):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3406:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3406:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3406:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3407:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3410:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:3410:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_closure";
-   /*_.NORMAL_PREDEF__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3407:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3407:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[2])), (7), "CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING");/*_.INST__V15*/ curfptr[14] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3407:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3407:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.SLOC__V5*/ curfptr[4]), "NCONSB_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3407:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (2), (/*_.NORMAL_PREDEF__V13*/ curfptr[12]), "NCONSB_DISCR");
-   ;
-   /*_.CONSLAM__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3413:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3413:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3413:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
-     argtab[0].bp_cstring =  "prepcons_lambda gives conslam";
-     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3413:/ apply.arg");
-     argtab[3].bp_long = 3413;
-     /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSLAM__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3413:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3413:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3413:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3414:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSLAM__V14*/ curfptr[13];;
-   MELT_LOCATION("warmelt-normal.melt:3414:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V18*/ curfptr[16];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
-  /*clear*/ /*_.CONSLAM__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3407:/ clear");
-  /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3403:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:3403:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3403:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PREPCONS_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_97_warmelt_normal_PREPCONS_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_98_warmelt_normal_NORMLETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_normal_NORMLETREC_LAMBDA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 45
-  void* varptr[45];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<45; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 45;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMLETREC_LAMBDA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
- /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3421:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3422:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3422:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3422:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_lambda cexpr";
-    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3422:/ apply.arg");
-    argtab[3].bp_long = 3422;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3422:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3422:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3422:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3423:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3423:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3423:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_lambda symb";
-    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3423:/ apply.arg");
-    argtab[3].bp_long = 3423;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3423:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3423:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3423:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3424:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3424:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3424:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_lambda cbind";
-    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3424:/ apply.arg");
-    argtab[3].bp_long = 3424;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3424:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3424:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3424:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3425:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3425:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3425:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_lambda env";
-    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3425:/ apply.arg");
-    argtab[3].bp_long = 3425;
-    /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3425:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3425:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3425:/ cppif.else");
- /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3426:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3426:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3426:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3426:/ cond.then");
-   /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3426:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3426:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3426:/ locexp");
-      melt_assert_failed(( "check cbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3426)?(3426):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3426:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3426:/ clear");
-   /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3426:/ cppif.else");
- /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3427:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3427:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3429:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3429:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3429:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
-     argtab[0].bp_cstring =  "normletrec_lambda newenv";
-     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3429:/ apply.arg");
-     argtab[3].bp_long = 3429;
-     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3429:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3429:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3429:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3430:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3430:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NEWENV__V18*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-normal.melt:3430:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3430:/ cond.then");
-    /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:3430:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3430:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3430:/ locexp");
-       melt_assert_failed(( "check newenv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3430)?(3430):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3430:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3430:/ clear");
-    /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3430:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3431:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply");
-   /*multiapply 5args, 8x.res*/ {
-    union meltparam_un argtab[4];
-    
-    union meltparam_un restab[8];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[16];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V18*/ curfptr[16];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.arg");
-    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CSYM__V24*/ curfptr[23];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[1].bp_aptr = (melt_ptr_t*) &/*_.CLOCC__V25*/ curfptr[24];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[2].bp_aptr = (melt_ptr_t*) &/*_.CONSTROUT__V26*/ curfptr[25];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[3].bp_aptr = (melt_ptr_t*) &/*_.CLOVTUP__V27*/ curfptr[26];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V28*/ curfptr[27];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[5].bp_aptr = (melt_ptr_t*) &/*_.OLDPROC__V29*/ curfptr[28];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[6].bp_aptr = (melt_ptr_t*) &/*_.NDATAROUT__V30*/ curfptr[29];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.xres");
-    restab[7].bp_longptr =  & /*_#INSIDEFLAG__L8*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3431:/ multiapply.appl");
-    /*_.NPROC__V23*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_LAMBDA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3435:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3435:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3435:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda csym";
-       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3435:/ apply.arg");
-       argtab[3].bp_long = 3435;
-       /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CSYM__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3435:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3435:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3435:/ cppif.else");
-    /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3436:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3436:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3436:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda clocc";
-       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3436:/ apply.arg");
-       argtab[3].bp_long = 3436;
-       /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOCC__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3436:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3436:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3436:/ cppif.else");
-    /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3437:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3437:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3437:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda constrout";
-       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3437:/ apply.arg");
-       argtab[3].bp_long = 3437;
-       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTROUT__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V35*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3437:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3437:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3437:/ cppif.else");
-    /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3438:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3438:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3438:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda clovtup";
-       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3438:/ apply.arg");
-       argtab[3].bp_long = 3438;
-       /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOVTUP__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3438:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3438:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3438:/ cppif.else");
-    /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3439:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3439:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L13*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3439:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda oldproc";
-       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3439:/ apply.arg");
-       argtab[3].bp_long = 3439;
-       /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLDPROC__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3439:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3439:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3439:/ cppif.else");
-    /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3440:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3440:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L14*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3440:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda after normalize_lambda ndatarout";
-       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3440:/ apply.arg");
-       argtab[3].bp_long = 3440;
-       /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NDATAROUT__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V41*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3440:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3440:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3440:/ cppif.else");
-    /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3441:/ cond");
-    /*cond*/ if (/*_#INSIDEFLAG__L8*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3441:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:3441:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3442:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.OLDPROC__V29*/ curfptr[28]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V43*/ curfptr[41] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3442:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V43*/ curfptr[41]), (melt_ptr_t)(/*_.NDATAROUT__V30*/ curfptr[29]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3441:/ clear");
-      /*clear*/ /*_.NRPRO_CONST__V43*/ curfptr[41] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3443:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING*/ curfrout->tabval[1])))) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3443:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:3443:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NLAMBDAB_NCLOSED", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (4), (/*_.CLOVTUP__V27*/ curfptr[26]), "NLAMBDAB_NCLOSED");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NLAMBDAB_CONSTROUT", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (5), (/*_.CONSTROUT__V26*/ curfptr[25]), "NLAMBDAB_CONSTROUT");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3443:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NLAMBDAB_DATAROUT", melt_magic_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CBIND__V4*/ curfptr[3]), (6), (/*_.NDATAROUT__V30*/ curfptr[29]), "NLAMBDAB_DATAROUT");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3443:/ touch");
-      meltgc_touch(/*_.CBIND__V4*/ curfptr[3]);
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3447:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3447:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3447:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
-       argtab[0].bp_cstring =  "normletrec_lambda updated cbind";
-       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3447:/ apply.arg");
-       argtab[3].bp_long = 3447;
-       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V44*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3447:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3447:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3447:/ cppif.else");
-    /*_.IFCPP___V44*/ curfptr[41] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3449:/ locexp");
-     
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "normletrec_lambda ended"), (15));
-#endif
-;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-    /*clear*/ /*_.IFCPP___V44*/ curfptr[41] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.CSYM__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.CLOCC__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.CONSTROUT__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.CLOVTUP__V27*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.SLOC__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.OLDPROC__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_.NDATAROUT__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3431:/ clear");
-   /*clear*/ /*_#INSIDEFLAG__L8*/ curfnum[0] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3427:/ clear");
-  /*clear*/ /*_.NEWENV__V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3427:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3427:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
- /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3421:/ clear");
- /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMLETREC_LAMBDA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_98_warmelt_normal_NORMLETREC_LAMBDA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_99_warmelt_normal_PREPCONS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_normal_PREPCONS_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PREPCONS_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3455:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3455:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3456:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3456:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3456:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_tuple recv";
-    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3456:/ apply.arg");
-    argtab[3].bp_long = 3456;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3456:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3456:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3456:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3457:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3457:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3457:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_tuple symb";
-    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3457:/ apply.arg");
-    argtab[3].bp_long = 3457;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3457:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3457:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3457:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3458:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3458:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3458:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3458:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3458:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3458:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3458:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3458)?(3458):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3458:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3458:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3458:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3459:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3460:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3460:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3460:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3460:/ cond.else");
-  
-   /*_.LOC__V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3461:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_ARGUMENTED_OPERATOR*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3461:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3461:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.TUPARG__V14*/ curfptr[13] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3461:/ cond.else");
-  
-   /*_.TUPARG__V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  /*_#NBTUPARG__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.TUPARG__V14*/ curfptr[13])));;
-  /*_.NTUP__V15*/ curfptr[14] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBTUPARG__L4*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-normal.melt:3466:/ cond");
-  /*cond*/ if (/*_.LOC__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3466:/ cond.then");
-  /*_.OR___V16*/ curfptr[15] = /*_.LOC__V13*/ curfptr[12];;
-  } else {MELT_LOCATION("warmelt-normal.melt:3466:/ cond.else");
-  
-   /*_.OR___V16*/ curfptr[15] = /*_.SLOC__V5*/ curfptr[4];;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3467:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:3467:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_multiple";
-   /*_.NORMAL_PREDEF__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3464:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3464:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[5])), (5), "CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING");/*_.INST__V19*/ curfptr[18] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.OR___V16*/ curfptr[15]), "NCONSB_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.NORMAL_PREDEF__V17*/ curfptr[16]), "NCONSB_DISCR");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3464:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NTUPB_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (4), (/*_.NTUP__V15*/ curfptr[14]), "NTUPB_COMP");
-   ;
-   /*_.CONSTUP__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3471:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3471:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3471:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
-     argtab[0].bp_cstring =  "prepcons_tuple gives constup";
-     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3471:/ apply.arg");
-     argtab[3].bp_long = 3471;
-     /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSTUP__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3471:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3471:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3471:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3472:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSTUP__V18*/ curfptr[17];;
-   MELT_LOCATION("warmelt-normal.melt:3472:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[20];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.TUPARG__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_#NBTUPARG__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.NTUP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.OR___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.CONSTUP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3459:/ clear");
-  /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3455:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:3455:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3455:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PREPCONS_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_99_warmelt_normal_PREPCONS_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_100_warmelt_normal_NORMLETREC_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_normal_NORMLETREC_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 53
-  void* varptr[53];
-#define CURFRAM_NBVARNUM 21
-  long varnum[21];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<53; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 53;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMLETREC_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
- /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3477:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3478:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3478:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3478:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_tuple cexpr";
-    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3478:/ apply.arg");
-    argtab[3].bp_long = 3478;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3478:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3478:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3478:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3479:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3479:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3479:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_tuple symb";
-    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3479:/ apply.arg");
-    argtab[3].bp_long = 3479;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3479:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3479:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3479:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3480:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3480:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3480:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_tuple cbind";
-    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3480:/ apply.arg");
-    argtab[3].bp_long = 3480;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3480:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3480:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3480:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3481:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3481:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_TUPLE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3481:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3481:/ cond.then");
-   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3481:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3481:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3481:/ locexp");
-      melt_assert_failed(( "check cexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3481)?(3481):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3481:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3481:/ clear");
-   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3481:/ cppif.else");
- /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3482:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3482:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3482:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3482:/ cond.then");
-   /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3482:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3482:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3482:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3482)?(3482):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3482:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3482:/ clear");
-   /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3482:/ cppif.else");
- /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3483:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3483:/ block");
-  /*block*/{
-   /*_#IS_A__L6*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-normal.melt:3483:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3483:/ cond.then");
-   /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3483:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3483:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3483:/ locexp");
-      melt_assert_failed(( "check cbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3483)?(3483):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3483:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3483:/ clear");
-   /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3483:/ cppif.else");
- /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3484:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3485:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3485:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3485:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V20*/ curfptr[18] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3485:/ cond.else");
-  
-   /*_.LOCA_LOCATION__V20*/ curfptr[18] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3485:/ cond");
-  /*cond*/ if (/*_.LOCA_LOCATION__V20*/ curfptr[18]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3485:/ cond.then");
-  /*_.LOC__V21*/ curfptr[20] = /*_.LOCA_LOCATION__V20*/ curfptr[18];;
-  } else {MELT_LOCATION("warmelt-normal.melt:3485:/ cond.else");
-  
-   /*_.LOC__V21*/ curfptr[20] = /*_.SLOC__V7*/ curfptr[6];;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3486:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V22*/ curfptr[21] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3487:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3487:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3487:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), 4, "NTUPB_COMP");/*_.BCOMP__V23*/ curfptr[22] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3487:/ cond.else");
-  
-   /*_.BCOMP__V23*/ curfptr[22] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3488:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[5])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3488:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3488:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), 3, "NCONSB_NLETREC");/*_.NLETREC__V24*/ curfptr[23] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3488:/ cond.else");
-  
-   /*_.NLETREC__V24*/ curfptr[23] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3489:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[6])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3489:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3489:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), 3, "NLETREC_BINDINGS");/*_.NRECBINDS__V25*/ curfptr[24] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3489:/ cond.else");
-  
-   /*_.NRECBINDS__V25*/ curfptr[24] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3491:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3491:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3491:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
-     argtab[0].bp_cstring =  "normletrec_tuple sargs";
-     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3491:/ apply.arg");
-     argtab[3].bp_long = 3491;
-     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SARGS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3491:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3491:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3491:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3492:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3492:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3492:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
-     argtab[0].bp_cstring =  "normletrec_tuple bcomp";
-     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3492:/ apply.arg");
-     argtab[3].bp_long = 3492;
-     /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3492:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3492:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3492:/ cppif.else");
-  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3493:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3493:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3493:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
-     argtab[0].bp_cstring =  "normletrec_tuple nletrec";
-     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3493:/ apply.arg");
-     argtab[3].bp_long = 3493;
-     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V30*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3493:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3493:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3493:/ cppif.else");
-  /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3494:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3494:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3494:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
-     argtab[0].bp_cstring =  "normletrec_tuple nrecbinds";
-     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3494:/ apply.arg");
-     argtab[3].bp_long = 3494;
-     /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3494:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3494:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3494:/ cppif.else");
-  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3495:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3495:/ block");
-   /*block*/{
-    /*_#IS_A__L11*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NLETREC__V24*/ curfptr[23]), (melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[6])));;
-    MELT_LOCATION("warmelt-normal.melt:3495:/ cond");
-    /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3495:/ cond.then");
-    /*_.IFELSE___V35*/ curfptr[34] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:3495:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3495:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3495:/ locexp");
-       melt_assert_failed(( "check nletrec"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3495)?(3495):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V34*/ curfptr[32] = /*_.IFELSE___V35*/ curfptr[34];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3495:/ clear");
-    /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3495:/ clear");
-    /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3495:/ cppif.else");
-  /*_.IFCPP___V34*/ curfptr[32] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3496:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3496:/ block");
-   /*block*/{
-    /*_#IS_LIST__L12*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-normal.melt:3496:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L12*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3496:/ cond.then");
-    /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:3496:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3496:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3496:/ locexp");
-       melt_assert_failed(( "check nrecbinds"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3496)?(3496):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3496:/ clear");
-    /*clear*/ /*_#IS_LIST__L12*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3496:/ clear");
-    /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3496:/ cppif.else");
-  /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3497:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply");
-   /*multiapply 4args, 1x.res*/ {
-    union meltparam_un argtab[3];
-    
-    union meltparam_un restab[1];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOC__V21*/ curfptr[20];
-    MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V39*/ curfptr[38];
-    MELT_LOCATION("warmelt-normal.melt:3497:/ multiapply.appl");
-    /*_.NARGS__V38*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SARGS__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3497:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3500:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3500:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3500:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
-       argtab[0].bp_cstring =  "normalize_tuple nargs";
-       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3500:/ apply.arg");
-       argtab[3].bp_long = 3500;
-       /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3500:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3500:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3500:/ cppif.else");
-    /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3501:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3501:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3501:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
-       argtab[0].bp_cstring =  "normalize_tuple nbinds";
-       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3501:/ apply.arg");
-       argtab[3].bp_long = 3501;
-       /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDS__V39*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V42*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3501:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3501:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3501:/ cppif.else");
-    /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3502:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3502:/ block");
-     /*block*/{
-      /*_#MULTIPLE_LENGTH__L15*/ curfnum[0] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22])));;
-      /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36])));;
-      /*_#I__L17*/ curfnum[16] = 
-       ((/*_#MULTIPLE_LENGTH__L15*/ curfnum[0]) == (/*_#MULTIPLE_LENGTH__L16*/ curfnum[15]));;
-      MELT_LOCATION("warmelt-normal.melt:3502:/ cond");
-      /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3502:/ cond.then");
-      /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3502:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3502:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3502:/ locexp");
-         melt_assert_failed(( "check nargs & bcomp samelength"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3502)?(3502):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V44*/ curfptr[42] = /*_.IFELSE___V45*/ curfptr[44];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
-      /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
-      /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
-      /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3502:/ clear");
-      /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3502:/ cppif.else");
-    /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3503:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3503:/ block");
-     /*block*/{
-      /*_#IS_LIST_OR_NULL__L18*/ curfnum[0] = 
-       ((/*_.NBINDS__V39*/ curfptr[38]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.NBINDS__V39*/ curfptr[38])) == OBMAG_LIST));;
-      MELT_LOCATION("warmelt-normal.melt:3503:/ cond");
-      /*cond*/ if (/*_#IS_LIST_OR_NULL__L18*/ curfnum[0]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3503:/ cond.then");
-      /*_.IFELSE___V47*/ curfptr[46] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3503:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3503:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3503:/ locexp");
-         melt_assert_failed(( "check nbinds"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3503)?(3503):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3503:/ clear");
-      /*clear*/ /*_#IS_LIST_OR_NULL__L18*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3503:/ clear");
-      /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3503:/ cppif.else");
-    /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.NARGS__V38*/ curfptr[36]);
-   for (/*_#NIX__L19*/ curfnum[15] = 0;  
-	(/*_#NIX__L19*/ curfnum[15] >= 0) && (/*_#NIX__L19*/ curfnum[15] <  cit1__EACHTUP_ln);  
-	/*_#NIX__L19*/ curfnum[15]++) {
-   /*_.CURNARG__V48*/ curfptr[46] = melt_multiple_nth((melt_ptr_t)(/*_.NARGS__V38*/ curfptr[36]),  /*_#NIX__L19*/ curfnum[15]);
-   
-    
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3507:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (/*_#NIX__L19*/ curfnum[15]), (melt_ptr_t)(/*_.CURNARG__V48*/ curfptr[46]));}
-     ;
-     if (/*_#NIX__L19*/ curfnum[15]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-normal.melt:3504:/ clear");
-     /*clear*/ /*_.CURNARG__V48*/ curfptr[46] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3504:/ clear");
-     /*clear*/ /*_#NIX__L19*/ curfnum[15] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3508:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3508:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L20*/ curfnum[16] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3508:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
-       argtab[0].bp_cstring =  "normalize_tuple updated bcomp";
-       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[16];
-       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3508:/ apply.arg");
-       argtab[3].bp_long = 3508;
-       /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.BCOMP__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3508:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[16] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3508:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3508:/ cppif.else");
-    /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3509:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3509:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V39*/ curfptr[38];
-     /*_.LIST_APPEND2LIST__V51*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3510:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3510:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3510:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
-       argtab[0].bp_cstring =  "normalize_tuple updated nrecbinds";
-       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3510:/ apply.arg");
-       argtab[3].bp_long = 3510;
-       /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NRECBINDS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3510:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3510:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3510:/ cppif.else");
-    /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3511:/ locexp");
-     
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "normletrec_tuple ended"), (15));
-#endif
-;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V51*/ curfptr[49] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-    /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3497:/ clear");
-   /*clear*/ /*_.NBINDS__V39*/ curfptr[38] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.LOC__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.SARGS__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.BCOMP__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.NLETREC__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.NRECBINDS__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.IFCPP___V34*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3484:/ clear");
-  /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
- /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
- /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3477:/ clear");
- /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMLETREC_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_100_warmelt_normal_NORMLETREC_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_101_warmelt_normal_PREPCONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_normal_PREPCONS_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PREPCONS_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3517:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3517:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3518:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3518:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3518:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_list recv";
-    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3518:/ apply.arg");
-    argtab[3].bp_long = 3518;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3518:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3518:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3518:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3519:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3519:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3519:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_list symb";
-    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3519:/ apply.arg");
-    argtab[3].bp_long = 3519;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3519:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3519:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3519:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3520:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3520:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LIST*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3520:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3520:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3520:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3520:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3520:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3520)?(3520):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3520:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3520:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3520:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3521:/ block");
- /*block*/{
-  /*_.RESLIST__V13*/ curfptr[12] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  MELT_LOCATION("warmelt-normal.melt:3523:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3523:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3523:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V14*/ curfptr[13] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3523:/ cond.else");
-  
-   /*_.LOC__V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3524:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_ARGUMENTED_OPERATOR*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3524:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3524:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.LISTARG__V15*/ curfptr[14] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3524:/ cond.else");
-  
-   /*_.LISTARG__V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_#NBLISTARG__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.LISTARG__V15*/ curfptr[14])));;
-  /*_.PAIRSB__V16*/ curfptr[15] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBLISTARG__L4*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-normal.melt:3529:/ cond");
-  /*cond*/ if (/*_.LOC__V14*/ curfptr[13]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3529:/ cond.then");
-  /*_.OR___V17*/ curfptr[16] = /*_.LOC__V14*/ curfptr[13];;
-  } else {MELT_LOCATION("warmelt-normal.melt:3529:/ cond.else");
-  
-   /*_.OR___V17*/ curfptr[16] = /*_.SLOC__V5*/ curfptr[4];;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3530:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:3530:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_list";
-   /*_.NORMAL_PREDEF__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3527:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3527:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_LIST_BINDING*/ curfrout->tabval[6])), (7), "CLASS_NORMAL_CONSTRUCTED_LIST_BINDING");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.OR___V17*/ curfptr[16]), "NCONSB_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), (/*_.NORMAL_PREDEF__V18*/ curfptr[17]), "NCONSB_DISCR");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NLISTB_FIRST", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (4), ((/*nil*/NULL)), "NLISTB_FIRST");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NLISTB_LAST", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (5), ((/*nil*/NULL)), "NLISTB_LAST");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NLISTB_PAIRSB", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (6), (/*_.PAIRSB__V16*/ curfptr[15]), "NLISTB_PAIRSB");
-   ;
-   /*_.CONSLIST__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.LISTARG__V15*/ curfptr[14]);
-   for (/*_#CURIX__L5*/ curfnum[4] = 0;  
-	(/*_#CURIX__L5*/ curfnum[4] >= 0) && (/*_#CURIX__L5*/ curfnum[4] <  cit1__EACHTUP_ln);  
-	/*_#CURIX__L5*/ curfnum[4]++) {
-   /*_.CURARG__V21*/ curfptr[20] = melt_multiple_nth((melt_ptr_t)(/*_.LISTARG__V15*/ curfptr[14]),  /*_#CURIX__L5*/ curfnum[4]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:3539:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:3539:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:3539:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
-      argtab[0].bp_cstring =  "prepcons_list curarg";
-      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:3539:/ apply.arg");
-      argtab[3].bp_long = 3539;
-      /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3539:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3539:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:3539:/ cppif.else");
-   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:3540:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])));;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3540:/ cond.then");
-    /*_.IFELSE___V24*/ curfptr[22] = /*_.CURARG__V21*/ curfptr[20];;
-    } else {MELT_LOCATION("warmelt-normal.melt:3540:/ cond.else");
-    
-     /*_.IFELSE___V24*/ curfptr[22] = (/*!konst_10_PAIROFLIST*/ curfrout->tabval[10]);;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ apply");
-    /*apply*/{
-     /*_.PAIRSYMB__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.IFELSE___V24*/ curfptr[22]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[3])))) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:3543:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V21*/ curfptr[20]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V26*/ curfptr[25] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
-    
-     /*_.LOCA_LOCATION__V26*/ curfptr[25] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
-    /*cond*/ if (/*_.LOCA_LOCATION__V26*/ curfptr[25]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then");
-    /*_.OR___V27*/ curfptr[26] = /*_.LOCA_LOCATION__V26*/ curfptr[25];;
-    } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3543:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3543:/ cond");
-      /*cond*/ if (/*_.LOC__V14*/ curfptr[13]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3543:/ cond.then");
-      /*_.OR___V28*/ curfptr[27] = /*_.LOC__V14*/ curfptr[13];;
-      } else {MELT_LOCATION("warmelt-normal.melt:3543:/ cond.else");
-      
-       /*_.OR___V28*/ curfptr[27] = /*_.SLOC__V5*/ curfptr[4];;
-       }
-      ;
-      /*_.OR___V27*/ curfptr[26] = /*_.OR___V28*/ curfptr[27];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3543:/ clear");
-      /*clear*/ /*_.OR___V28*/ curfptr[27] = 0 ;}
-     ;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3544:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V5*/ curfptr[4];
-     MELT_LOCATION("warmelt-normal.melt:3544:/ apply.arg");
-     argtab[2].bp_cstring =  "discr_pair";
-     /*_.NORMAL_PREDEF__V29*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_PAIR*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3541:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3541:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING*/ curfrout->tabval[11])), (6), "CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING");/*_.INST__V31*/ curfptr[30] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.PAIRSYMB__V25*/ curfptr[24]), "BINDER");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.OR___V27*/ curfptr[26]), "NCONSB_LOC");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[27]), "NCONSB_DISCR");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NPAIRB_HEAD", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (4), ((/*nil*/NULL)), "NPAIRB_HEAD");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3541:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NPAIRB_TAIL", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), ((/*nil*/NULL)), "NPAIRB_TAIL");
-     ;
-     /*_.CONSPAIR__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3549:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.PAIRSB__V16*/ curfptr[15]), (/*_#CURIX__L5*/ curfnum[4]), (melt_ptr_t)(/*_.CONSPAIR__V30*/ curfptr[29]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3550:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (melt_ptr_t)(/*_.CONSPAIR__V30*/ curfptr[29]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_.PAIRSYMB__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_.LOCA_LOCATION__V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_.OR___V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3540:/ clear");
-    /*clear*/ /*_.CONSPAIR__V30*/ curfptr[29] = 0 ;}
-   ;
-   if (/*_#CURIX__L5*/ curfnum[4]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-normal.melt:3536:/ clear");
-   /*clear*/ /*_.CURARG__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3536:/ clear");
-   /*clear*/ /*_#CURIX__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3536:/ clear");
-   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3552:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (melt_ptr_t)(/*_.CONSLIST__V19*/ curfptr[18]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3553:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3553:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3553:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
-     argtab[0].bp_cstring =  "prepcons_list gives reslist";
-     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[5];
-     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3553:/ apply.arg");
-     argtab[3].bp_long = 3553;
-     /*_.DEBUG_MSG_FUN__V33*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESLIST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V32*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3553:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3553:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3553:/ cppif.else");
-  /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3554:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RESLIST__V13*/ curfptr[12];;
-   MELT_LOCATION("warmelt-normal.melt:3554:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V34*/ curfptr[25];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.RESLIST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.LOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.LISTARG__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_#NBLISTARG__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.PAIRSB__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.OR___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.CONSLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.IFCPP___V32*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3521:/ clear");
-  /*clear*/ /*_.RETURN___V34*/ curfptr[25] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3517:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:3517:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3517:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PREPCONS_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_101_warmelt_normal_PREPCONS_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_102_warmelt_normal_NORMLETREC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_normal_NORMLETREC_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMLETREC_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
- /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3559:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3560:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3560:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3560:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_list cexpr";
-    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3560:/ apply.arg");
-    argtab[3].bp_long = 3560;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3560:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3560:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3560:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3561:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3561:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3561:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_list symb";
-    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3561:/ apply.arg");
-    argtab[3].bp_long = 3561;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3561:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3561:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3561:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3562:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3562:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3562:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_list cbind";
-    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3562:/ apply.arg");
-    argtab[3].bp_long = 3562;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3562:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3562:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3562:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3564:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3564:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3564:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3564:/ cond.then");
-   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3564:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3564:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3564:/ locexp");
-      melt_assert_failed(( "@$@unimplemented normletrec_list"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3564)?(3564):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3564:/ clear");
-   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3564:/ cppif.else");
- /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3559:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3559:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3559:/ clear");
- /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMLETREC_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_102_warmelt_normal_NORMLETREC_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_103_warmelt_normal_PREPCONS_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_normal_PREPCONS_INSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 27
-  void* varptr[27];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<27; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 27;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("PREPCONS_INSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3570:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3570:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3571:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3571:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3571:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_instance recv";
-    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3571:/ apply.arg");
-    argtab[3].bp_long = 3571;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3571:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3571:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3571:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3572:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3572:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3572:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
-    argtab[0].bp_cstring =  "prepcons_instance symb";
-    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3572:/ apply.arg");
-    argtab[3].bp_long = 3572;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3572:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3572:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3572:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3573:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3573:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3573:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3573:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3573:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3573:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3573:/ locexp");
-      melt_assert_failed(( "check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3573)?(3573):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3573:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3573:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3573:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3574:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3575:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3575:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3575:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3575:/ cond.else");
-  
-   /*_.LOC__V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3576:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3576:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3576:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLASS");/*_.CLA__V14*/ curfptr[13] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3576:/ cond.else");
-  
-   /*_.CLA__V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3577:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_INSTANCE*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3577:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3577:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_CLABIND");/*_.CLABIND__V15*/ curfptr[14] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3577:/ cond.else");
-  
-   /*_.CLABIND__V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_#IS_A__L4*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-normal.melt:3578:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3578:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3578:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3578:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CLABIND__V15*/ curfptr[14]), 0, "BINDER");/*_.BINDER__V17*/ curfptr[16] = slot; };
-    ;
-    /*_.SCLASYM__V16*/ curfptr[15] = /*_.BINDER__V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3578:/ clear");
-    /*clear*/ /*_.BINDER__V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3578:/ cond.else");
-  
-   /*_.SCLASYM__V16*/ curfptr[15] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3579:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3579:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3579:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V18*/ curfptr[16] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3579:/ cond.else");
-  
-   /*_.CLASS_FIELDS__V18*/ curfptr[16] = NULL;;
-   }
-  ;
-  /*_#NBCLAFLD__L5*/ curfnum[4] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V18*/ curfptr[16])));;
-  /*_.TUPSLOT__V19*/ curfptr[18] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#NBCLAFLD__L5*/ curfnum[4])));;
-  MELT_LOCATION("warmelt-normal.melt:3583:/ cond");
-  /*cond*/ if (/*_.LOC__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3583:/ cond.then");
-  /*_.OR___V20*/ curfptr[19] = /*_.LOC__V13*/ curfptr[12];;
-  } else {MELT_LOCATION("warmelt-normal.melt:3583:/ cond.else");
-  
-   /*_.OR___V20*/ curfptr[19] = /*_.SLOC__V5*/ curfptr[4];;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3581:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3581:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[6])), (6), "CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.SYMB__V3*/ curfptr[2]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.OR___V20*/ curfptr[19]), "NCONSB_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "NCONSB_DISCR");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINSTB_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (4), (/*_.TUPSLOT__V19*/ curfptr[18]), "NINSTB_SLOTS");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3581:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINSTB_CLABIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (5), (/*_.CLABIND__V15*/ curfptr[14]), "NINSTB_CLABIND");
-   ;
-   /*_.CONSINST__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3589:/ block");
-   /*block*/{
-    /*_#IS_A__L6*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CLA__V14*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-normal.melt:3589:/ cond");
-    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3589:/ cond.then");
-    /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:3589:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3589:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3589:/ locexp");
-       melt_assert_failed(( "prepcons_instance check class"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3589)?(3589):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3589:/ clear");
-    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3589:/ clear");
-    /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3589:/ cppif.else");
-  /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3590:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3590:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3590:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
-     argtab[0].bp_cstring =  "prepcons_instance gives consinst";
-     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3590:/ apply.arg");
-     argtab[3].bp_long = 3590;
-     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CONSINST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3590:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3590:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3590:/ cppif.else");
-  /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3591:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.CONSINST__V21*/ curfptr[20];;
-   MELT_LOCATION("warmelt-normal.melt:3591:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V27*/ curfptr[25];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.CLA__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.CLABIND__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.SCLASYM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.CLASS_FIELDS__V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_#NBCLAFLD__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.TUPSLOT__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.OR___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.CONSINST__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3574:/ clear");
-  /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3570:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:3570:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3570:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("PREPCONS_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_103_warmelt_normal_PREPCONS_INSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_104_warmelt_normal_NORMLETREC_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_normal_NORMLETREC_INSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMLETREC_INSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
- /*_.CEXPR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.SYMB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CBIND__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3597:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3598:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3598:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3598:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_instance cexpr";
-    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3598:/ apply.arg");
-    argtab[3].bp_long = 3598;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3598:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3598:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3598:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3599:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3599:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_instance symb";
-    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3599:/ apply.arg");
-    argtab[3].bp_long = 3599;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYMB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3599:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3599:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3599:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3600:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3600:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3600:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
-    argtab[0].bp_cstring =  "normletrec_instance cbind";
-    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3600:/ apply.arg");
-    argtab[3].bp_long = 3600;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3600:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3600:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3600:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3602:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3602:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3602:/ cond.then");
-   /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3602:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3602:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3602:/ locexp");
-      melt_assert_failed(( "@$@unimplemented normletrec_instance"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3602)?(3602):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3602:/ clear");
-   /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3602:/ cppif.else");
- /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3597:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3597:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3597:/ clear");
- /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMLETREC_INSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_104_warmelt_normal_NORMLETREC_INSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_105_warmelt_normal_NORMEXP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_normal_NORMEXP_LETREC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 154
-  void* varptr[154];
-#define CURFRAM_NBVARNUM 49
-  long varnum[49];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<154; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 154;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_LETREC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3607:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3607:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3608:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3608:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3608:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3608:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3608:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3608:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3608:/ locexp");
-      melt_assert_failed(( "check letrec recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3608)?(3608):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3608:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3608:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3608:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3609:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3609:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3609:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3609:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3609:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3609:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3609:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3609)?(3609):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3609:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3609:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3609:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3610:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3610:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3610:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3610:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3610:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3610:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3610)?(3610):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3610:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3610:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3610:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3611:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3611:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3611:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_letrec recv";
-    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3611:/ apply.arg");
-    argtab[3].bp_long = 3611;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3611:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3611:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3611:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3612:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3612:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3613:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLET_BINDINGS");/*_.SBINDS__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3614:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SLET_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; };
-  ;
-  /*_#NBBIND__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15])));;
-  /*_.BINDLIST__V18*/ curfptr[17] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.CONSBINDLIST__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-normal.melt:3618:/ apply");
-  /*apply*/{
-   /*_.NEWENV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#I__L6*/ curfnum[5] = 
-   ((/*_#NBBIND__L5*/ curfnum[0]) * (2));;
-  /*_#MAPLEN__L7*/ curfnum[6] = 
-   ((5) + (/*_#I__L6*/ curfnum[5]));;
-  /*_.SYMBEXPRMAP__V21*/ curfptr[20] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#MAPLEN__L7*/ curfnum[6])));;
-  /*_.SYMBINDMAP__V22*/ curfptr[21] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#MAPLEN__L7*/ curfnum[6])));;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SBINDS__V16*/ curfptr[15]);
-   for (/*_#SBIX__L8*/ curfnum[7] = 0;  
-	(/*_#SBIX__L8*/ curfnum[7] >= 0) && (/*_#SBIX__L8*/ curfnum[7] <  cit1__EACHTUP_ln);  
-	/*_#SBIX__L8*/ curfnum[7]++) {
-   /*_.CURSBIND__V23*/ curfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15]),  /*_#SBIX__L8*/ curfnum[7]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:3627:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:3627:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:3627:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_letrec cursbind";
-      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8];
-      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:3627:/ apply.arg");
-      argtab[3].bp_long = 3627;
-      /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3627:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3627:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:3627:/ cppif.else");
-   /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:3628:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:3628:/ block");
-    /*block*/{
-     /*_#IS_A__L10*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[7])));;
-     MELT_LOCATION("warmelt-normal.melt:3628:/ cond");
-     /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3628:/ cond.then");
-     /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:3628:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:3628:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:3628:/ locexp");
-        melt_assert_failed(( "check cursbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3628)?(3628):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3628:/ clear");
-     /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3628:/ clear");
-     /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:3628:/ cppif.else");
-   /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:3629:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3629:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V29*/ curfptr[28] = slot; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ cond");
-    /*cond*/ if (/*_.LOCA_LOCATION__V29*/ curfptr[28]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3629:/ cond.then");
-    /*_.LOCB__V30*/ curfptr[29] = /*_.LOCA_LOCATION__V29*/ curfptr[28];;
-    } else {MELT_LOCATION("warmelt-normal.melt:3629:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3629:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3629:/ cond");
-      /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3629:/ cond.then");
-      /*_.OR___V31*/ curfptr[30] = /*_.SLOC__V15*/ curfptr[14];;
-      } else {MELT_LOCATION("warmelt-normal.melt:3629:/ cond.else");
-      
-       /*_.OR___V31*/ curfptr[30] = /*_.PSLOC__V5*/ curfptr[4];;
-       }
-      ;
-      /*_.LOCB__V30*/ curfptr[29] = /*_.OR___V31*/ curfptr[30];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-      /*clear*/ /*_.OR___V31*/ curfptr[30] = 0 ;}
-     ;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3630:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 3, "SLETB_BINDER");/*_.CURSYMB__V32*/ curfptr[30] = slot; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3631:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V23*/ curfptr[22]), 4, "SLETB_EXPR");/*_.CUREXPR__V33*/ curfptr[32] = slot; };
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3633:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3633:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3633:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_letrec curexpr";
-       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3633:/ apply.arg");
-       argtab[3].bp_long = 3633;
-       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3633:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3633:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3633:/ cppif.else");
-    /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3634:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3634:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3634:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_letrec cursymb";
-       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8];
-       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3634:/ apply.arg");
-       argtab[3].bp_long = 3634;
-       /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSYMB__V32*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V36*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3634:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3634:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3634:/ cppif.else");
-    /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3635:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3635:/ block");
-     /*block*/{
-      /*_#IS_A__L13*/ curfnum[8] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_SOURCE*/ curfrout->tabval[8])));;
-      MELT_LOCATION("warmelt-normal.melt:3635:/ cond");
-      /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3635:/ cond.then");
-      /*_.IFELSE___V39*/ curfptr[38] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3635:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3635:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3635:/ locexp");
-         melt_assert_failed(( "check curexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3635)?(3635):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V39*/ curfptr[38] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V38*/ curfptr[36] = /*_.IFELSE___V39*/ curfptr[38];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3635:/ clear");
-      /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3635:/ clear");
-      /*clear*/ /*_.IFELSE___V39*/ curfptr[38] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3635:/ cppif.else");
-    /*_.IFCPP___V38*/ curfptr[36] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3636:/ block");
-     /*block*/{
-      /*_#IS_A__L14*/ curfnum[8] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V32*/ curfptr[30]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-      MELT_LOCATION("warmelt-normal.melt:3636:/ cond");
-      /*cond*/ if (/*_#IS_A__L14*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3636:/ cond.then");
-      /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3636:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3636:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3636:/ locexp");
-         melt_assert_failed(( "check cursymb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3636)?(3636):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V40*/ curfptr[38] = /*_.IFELSE___V41*/ curfptr[40];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3636:/ clear");
-      /*clear*/ /*_#IS_A__L14*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3636:/ clear");
-      /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3636:/ cppif.else");
-    /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3637:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBEXPRMAP__V21*/ curfptr[20]), 
-			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
-			   (melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3638:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3638:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSYMB__V32*/ curfptr[30];
-      MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:3638:/ ojbmsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.LOCB__V30*/ curfptr[29];
-      /*_.CURCONSBIND__V43*/ curfptr[42] = meltgc_send((melt_ptr_t)(/*_.CUREXPR__V33*/ curfptr[32]), (melt_ptr_t)((/*!PREPARE_CONSTRUCTOR_BINDING*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3640:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3640:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3640:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_letrec curconsbind";
-        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[8];
-        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3640:/ apply.arg");
-        argtab[3].bp_long = 3640;
-        /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3640:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3640:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3640:/ cppif.else");
-     /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_#IS_A__L16*/ curfnum[8] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
-     MELT_LOCATION("warmelt-normal.melt:3641:/ cond");
-     /*cond*/ if (/*_#IS_A__L16*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3641:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:3641:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3642:/ locexp");
-       meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3643:/ locexp");
-       meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), 
-			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
-			   (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));}
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3641:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/}
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:3641:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:3641:/ block");
-      /*block*/{
-       /*_#IS_MULTIPLE__L17*/ curfnum[16] = 
-        (melt_magic_discr((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42])) == OBMAG_MULTIPLE);;
-       MELT_LOCATION("warmelt-normal.melt:3645:/ cond");
-       /*cond*/ if (/*_#IS_MULTIPLE__L17*/ curfnum[16]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:3645:/ cond.then");
-       MELT_LOCATION("warmelt-normal.melt:3645:/ block");
-        /*block*/{
-         /*citerblock FOREACH_IN_MULTIPLE*/ {
-          /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CURCONSBIND__V43*/ curfptr[42]);
-   for (/*_#SUBIX__L18*/ curfnum[17] = 0;  
-	(/*_#SUBIX__L18*/ curfnum[17] >= 0) && (/*_#SUBIX__L18*/ curfnum[17] <  cit2__EACHTUP_ln);  
-	/*_#SUBIX__L18*/ curfnum[17]++) {
-   /*_.SUBCONSBIND__V48*/ curfptr[47] = melt_multiple_nth((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]),  /*_#SUBIX__L18*/ curfnum[17]);
-   
-         
-          
-          #if ENABLE_CHECKING
-           MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.then");
-          MELT_LOCATION("warmelt-normal.melt:3649:/ block");
-           /*block*/{
-            /*_#IS_A__L19*/ curfnum[18] = 
-             melt_is_instance_of((melt_ptr_t)(/*_.SUBCONSBIND__V48*/ curfptr[47]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
-            MELT_LOCATION("warmelt-normal.melt:3649:/ cond");
-            /*cond*/ if (/*_#IS_A__L19*/ curfnum[18]) /*then*/ {
-            MELT_LOCATION("warmelt-normal.melt:3649:/ cond.then");
-            /*_.IFELSE___V50*/ curfptr[49] = (/*nil*/NULL);;
-            } else {MELT_LOCATION("warmelt-normal.melt:3649:/ cond.else");
-            
-             MELT_LOCATION("warmelt-normal.melt:3649:/ block");
-             /*block*/{
-              /*block*/{
-               
-               {
-               MELT_LOCATION("warmelt-normal.melt:3649:/ locexp");
-               melt_assert_failed(( "normexp_letrec check subconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3649)?(3649):__LINE__, __FUNCTION__);
-;}
-               ;
-               /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
-              ;
-              /*epilog*/}
-             ;
-             }
-            ;
-            /*_.IFCPP___V49*/ curfptr[48] = /*_.IFELSE___V50*/ curfptr[49];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-normal.melt:3649:/ clear");
-            /*clear*/ /*_#IS_A__L19*/ curfnum[18] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3649:/ clear");
-            /*clear*/ /*_.IFELSE___V50*/ curfptr[49] = 0 ;}
-           
-           #else /*ENABLE_CHECKING*/
-           MELT_LOCATION("warmelt-normal.melt:3649:/ cppif.else");
-          /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL);
-           #endif /*ENABLE_CHECKING*/
-           ;
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:3651:/ locexp");
-          meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.SUBCONSBIND__V48*/ curfptr[47]));}
-          ;
-          if (/*_#SUBIX__L18*/ curfnum[17]<0) break;
-   } /* end cit2__EACHTUP */ 
-         
-          /*citerepilog*/
-          MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
-          /*clear*/ /*_.SUBCONSBIND__V48*/ curfptr[47] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
-          /*clear*/ /*_#SUBIX__L18*/ curfnum[17] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:3646:/ clear");
-          /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3652:/ locexp");
-         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), 
-			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
-			   (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]));}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3645:/ block");
-         /*block*/{}
-         ;
-         /*epilog*/}
-        ;
-       } else {MELT_LOCATION("warmelt-normal.melt:3645:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:3645:/ block");
-        /*block*/{
-         /*_#IS_LIST__L20*/ curfnum[18] = 
-          (melt_magic_discr((melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42])) == OBMAG_LIST);;
-         MELT_LOCATION("warmelt-normal.melt:3654:/ cond");
-         /*cond*/ if (/*_#IS_LIST__L20*/ curfnum[18]) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:3654:/ cond.then");
-         MELT_LOCATION("warmelt-normal.melt:3654:/ block");
-          /*block*/{
-           /*citerblock FOREACH_IN_LIST*/ {
-           /* start cit3__EACHLIST */
-   for (/*_.SUBCONSPAIR__V52*/ curfptr[51] = melt_list_first(/*_.CURCONSBIND__V43*/ curfptr[42]);
-	melt_magic_discr(/*_.SUBCONSPAIR__V52*/ curfptr[51]) == OBMAG_PAIR;
-        /*_.SUBCONSPAIR__V52*/ curfptr[51] = melt_pair_tail(/*_.SUBCONSPAIR__V52*/ curfptr[51])) {
-	/*_.SUBCONSBIND__V53*/ curfptr[52] = melt_pair_head(/*_.SUBCONSPAIR__V52*/ curfptr[51]); 
-           
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-normal.melt:3658:/ cppif.then");
-            MELT_LOCATION("warmelt-normal.melt:3658:/ block");
-             /*block*/{
-              /*_#IS_A__L21*/ curfnum[20] = 
-               melt_is_instance_of((melt_ptr_t)(/*_.SUBCONSBIND__V53*/ curfptr[52]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
-              MELT_LOCATION("warmelt-normal.melt:3658:/ cond");
-              /*cond*/ if (/*_#IS_A__L21*/ curfnum[20]) /*then*/ {
-              MELT_LOCATION("warmelt-normal.melt:3658:/ cond.then");
-              /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);;
-              } else {MELT_LOCATION("warmelt-normal.melt:3658:/ cond.else");
-              
-               MELT_LOCATION("warmelt-normal.melt:3658:/ block");
-               /*block*/{
-                /*block*/{
-                 
-                 {
-                 MELT_LOCATION("warmelt-normal.melt:3658:/ locexp");
-                 melt_assert_failed(( "normexp_letrec check subconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3658)?(3658):__LINE__, __FUNCTION__);
-;}
-                 ;
-                 /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-                ;
-                /*epilog*/}
-               ;
-               }
-              ;
-              /*_.IFCPP___V54*/ curfptr[53] = /*_.IFELSE___V55*/ curfptr[54];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-normal.melt:3658:/ clear");
-              /*clear*/ /*_#IS_A__L21*/ curfnum[20] = 0 ;
-              MELT_LOCATION("warmelt-normal.melt:3658:/ clear");
-              /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-normal.melt:3658:/ cppif.else");
-            /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            
-            {
-            MELT_LOCATION("warmelt-normal.melt:3660:/ locexp");
-            meltgc_append_list((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (melt_ptr_t)(/*_.SUBCONSBIND__V53*/ curfptr[52]));}
-            ;
-            } /* end cit3__EACHLIST */
-           
-            /*citerepilog*/
-            MELT_LOCATION("warmelt-normal.melt:3655:/ clear");
-            /*clear*/ /*_.SUBCONSPAIR__V52*/ curfptr[51] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3655:/ clear");
-            /*clear*/ /*_.SUBCONSBIND__V53*/ curfptr[52] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:3655:/ clear");
-            /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-           ;
-           MELT_LOCATION("warmelt-normal.melt:3661:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[1];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:3661:/ apply.arg");
-            argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[13]);
-            /*_.LIST_TO_MULTIPLE__V56*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.CURCONSBIND__V43*/ curfptr[42]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:3661:/ locexp");
-           meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.SYMBINDMAP__V22*/ curfptr[21]), 
-			   (meltobject_ptr_t) (/*_.CURSYMB__V32*/ curfptr[30]), 
-			   (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V56*/ curfptr[54]));}
-           ;
-           MELT_LOCATION("warmelt-normal.melt:3654:/ block");
-           /*block*/{}
-           ;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3654:/ clear");
-           /*clear*/ /*_.LIST_TO_MULTIPLE__V56*/ curfptr[54] = 0 ;}
-          ;
-         } else {MELT_LOCATION("warmelt-normal.melt:3654:/ cond.else");
-         
-          MELT_LOCATION("warmelt-normal.melt:3654:/ block");
-          /*block*/{
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-normal.melt:3664:/ cppif.then");
-           MELT_LOCATION("warmelt-normal.melt:3664:/ block");
-            /*block*/{
-             MELT_LOCATION("warmelt-normal.melt:3664:/ cond");
-             /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-             MELT_LOCATION("warmelt-normal.melt:3664:/ cond.then");
-             /*_.IFELSE___V58*/ curfptr[57] = (/*nil*/NULL);;
-             } else {MELT_LOCATION("warmelt-normal.melt:3664:/ cond.else");
-             
-              MELT_LOCATION("warmelt-normal.melt:3664:/ block");
-              /*block*/{
-               /*block*/{
-                
-                {
-                MELT_LOCATION("warmelt-normal.melt:3664:/ locexp");
-                melt_assert_failed(( "normexp_letrec bad curconsbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3664)?(3664):__LINE__, __FUNCTION__);
-;}
-                ;
-                /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;}
-               ;
-               /*epilog*/}
-              ;
-              }
-             ;
-             /*_.IFCPP___V57*/ curfptr[54] = /*_.IFELSE___V58*/ curfptr[57];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:3664:/ clear");
-             /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-normal.melt:3664:/ cppif.else");
-           /*_.IFCPP___V57*/ curfptr[54] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           MELT_LOCATION("warmelt-normal.melt:3663:/ block");
-           /*block*/{
-            /*_.PROGN___V59*/ curfptr[57] = /*_.IFCPP___V57*/ curfptr[54];;}
-           ;
-           /*_.IFELSE___V51*/ curfptr[49] = /*_.PROGN___V59*/ curfptr[57];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3654:/ clear");
-           /*clear*/ /*_.IFCPP___V57*/ curfptr[54] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:3654:/ clear");
-           /*clear*/ /*_.PROGN___V59*/ curfptr[57] = 0 ;}
-          ;
-          }
-         ;
-         /*_.IFELSE___V47*/ curfptr[46] = /*_.IFELSE___V51*/ curfptr[49];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3645:/ clear");
-         /*clear*/ /*_#IS_LIST__L20*/ curfnum[18] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3645:/ clear");
-         /*clear*/ /*_.IFELSE___V51*/ curfptr[49] = 0 ;}
-        ;
-        }
-       ;
-       /*_.IFELSE___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3641:/ clear");
-       /*clear*/ /*_#IS_MULTIPLE__L17*/ curfnum[16] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3641:/ clear");
-       /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;}
-      ;
-      }
-     ;
-     /*_.LET___V42*/ curfptr[40] = /*_.IFELSE___V46*/ curfptr[44];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
-     /*clear*/ /*_.CURCONSBIND__V43*/ curfptr[42] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
-     /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
-     /*clear*/ /*_#IS_A__L16*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3638:/ clear");
-     /*clear*/ /*_.IFELSE___V46*/ curfptr[44] = 0 ;}
-    ;
-    /*_.LET___V28*/ curfptr[26] = /*_.LET___V42*/ curfptr[40];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.LOCA_LOCATION__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.LOCB__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.CURSYMB__V32*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.CUREXPR__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.IFCPP___V38*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3629:/ clear");
-    /*clear*/ /*_.LET___V42*/ curfptr[40] = 0 ;}
-   ;
-   if (/*_#SBIX__L8*/ curfnum[7]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
-   /*clear*/ /*_.CURSBIND__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
-   /*clear*/ /*_#SBIX__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
-   /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
-   /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3624:/ clear");
-   /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3669:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3669:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L22*/ curfnum[20] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3669:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_letrec consbindlist";
-     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[20];
-     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3669:/ apply.arg");
-     argtab[3].bp_long = 3669;
-     /*_.DEBUG_MSG_FUN__V61*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V60*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[57];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3669:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[20] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3669:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[57] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3669:/ cppif.else");
-  /*_.IFCPP___V60*/ curfptr[54] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3670:/ block");
-  /*block*/{
-   /*_#NBCONSBIND__L23*/ curfnum[18] = 
-    (melt_list_length((melt_ptr_t)(/*_.CONSBINDLIST__V19*/ curfptr[18])));;
-   /*_#CURCIX__L24*/ curfnum[16] = 0;;
-   /*_.NLOCSYMS__V63*/ curfptr[46] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (/*_#NBCONSBIND__L23*/ curfnum[18])));;
-   /*_.NCBINDTUP__V64*/ curfptr[42] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (/*_#NBCONSBIND__L23*/ curfnum[18])));;
-   /*_.RECBINDINGS__V65*/ curfptr[43] = 
-    (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-   MELT_LOCATION("warmelt-normal.melt:3676:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3676:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LETREC*/ curfrout->tabval[14])), (5), "CLASS_NREP_LETREC");/*_.INST__V67*/ curfptr[28] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NLET_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (1), (/*_.NCBINDTUP__V64*/ curfptr[42]), "NLET_BINDINGS");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NLET_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (2), ((/*nil*/NULL)), "NLET_BODY");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NLETREC_BINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (3), (/*_.RECBINDINGS__V65*/ curfptr[43]), "NLETREC_BINDINGS");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3676:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NLETREC_LOCSYMS", melt_magic_discr((melt_ptr_t)(/*_.INST__V67*/ curfptr[28])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V67*/ curfptr[28]), (4), (/*_.NLOCSYMS__V63*/ curfptr[46]), "NLETREC_LOCSYMS");
-    ;
-    /*_.NLETREC__V66*/ curfptr[44] = /*_.INST__V67*/ curfptr[28];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:3684:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:3684:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L25*/ curfnum[8] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:3684:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_letrec unfilled nletrec";
-      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[8];
-      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:3684:/ apply.arg");
-      argtab[3].bp_long = 3684;
-      /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NLETREC__V66*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V68*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[30];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3684:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3684:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:3684:/ cppif.else");
-   /*_.IFCPP___V68*/ curfptr[29] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*citerblock FOREACH_IN_LIST*/ {
-   /* start cit4__EACHLIST */
-   for (/*_.CURPAIR__V70*/ curfptr[32] = melt_list_first(/*_.CONSBINDLIST__V19*/ curfptr[18]);
-	melt_magic_discr(/*_.CURPAIR__V70*/ curfptr[32]) == OBMAG_PAIR;
-        /*_.CURPAIR__V70*/ curfptr[32] = melt_pair_tail(/*_.CURPAIR__V70*/ curfptr[32])) {
-	/*_.CURCBIND__V71*/ curfptr[33] = melt_pair_head(/*_.CURPAIR__V70*/ curfptr[32]); 
-   
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3691:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3691:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L26*/ curfnum[20] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3691:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_letrec curcbind";
-       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[20];
-       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3691:/ apply.arg");
-       argtab[3].bp_long = 3691;
-       /*_.DEBUG_MSG_FUN__V73*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V72*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[36];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3691:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[20] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3691:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[36] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3691:/ cppif.else");
-    /*_.IFCPP___V72*/ curfptr[34] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3692:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3692:/ block");
-     /*block*/{
-      /*_#IS_A__L27*/ curfnum[8] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])));;
-      MELT_LOCATION("warmelt-normal.melt:3692:/ cond");
-      /*cond*/ if (/*_#IS_A__L27*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3692:/ cond.then");
-      /*_.IFELSE___V75*/ curfptr[40] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3692:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3692:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3692:/ locexp");
-         melt_assert_failed(( "check curcbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3692)?(3692):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V75*/ curfptr[40] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V74*/ curfptr[38] = /*_.IFELSE___V75*/ curfptr[40];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3692:/ clear");
-      /*clear*/ /*_#IS_A__L27*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3692:/ clear");
-      /*clear*/ /*_.IFELSE___V75*/ curfptr[40] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3692:/ cppif.else");
-    /*_.IFCPP___V74*/ curfptr[38] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3693:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.NCBINDTUP__V64*/ curfptr[42]), (/*_#CURCIX__L24*/ curfnum[16]), (melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:3694:/ locexp");
-    melt_put_int((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (/*_#CURCIX__L24*/ curfnum[16]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3695:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3695:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:3695:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3695:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONSB_NLETREC", melt_magic_discr((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.CURCBIND__V71*/ curfptr[33]), (3), (/*_.NLETREC__V66*/ curfptr[44]), "NCONSB_NLETREC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3695:/ touch");
-      meltgc_touch(/*_.CURCBIND__V71*/ curfptr[33]);
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3696:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3696:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 2, "NCONSB_DISCR");/*_.CURBDISCR__V76*/ curfptr[57] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3697:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 0, "BINDER");/*_.CURBINDER__V77*/ curfptr[30] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3699:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:3699:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 1, "NCONSB_LOC");/*_.NCONSB_LOC__V78*/ curfptr[36] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else");
-     
-      /*_.NCONSB_LOC__V78*/ curfptr[36] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3699:/ cond");
-     /*cond*/ if (/*_.NCONSB_LOC__V78*/ curfptr[36]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then");
-     /*_.OR___V79*/ curfptr[40] = /*_.NCONSB_LOC__V78*/ curfptr[36];;
-     } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:3699:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3699:/ cond");
-       /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:3699:/ cond.then");
-       /*_.OR___V80*/ curfptr[79] = /*_.SLOC__V15*/ curfptr[14];;
-       } else {MELT_LOCATION("warmelt-normal.melt:3699:/ cond.else");
-       
-        /*_.OR___V80*/ curfptr[79] = /*_.PSLOC__V5*/ curfptr[4];;
-        }
-       ;
-       /*_.OR___V79*/ curfptr[40] = /*_.OR___V80*/ curfptr[79];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3699:/ clear");
-       /*clear*/ /*_.OR___V80*/ curfptr[79] = 0 ;}
-      ;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3698:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3698:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V82*/ curfptr[81] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.OR___V79*/ curfptr[40]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.CURBINDER__V77*/ curfptr[30]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3698:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (3), (/*_.CURCBIND__V71*/ curfptr[33]), "NOCC_BIND");
-      ;
-      /*_.NLOCSYM__V81*/ curfptr[79] = /*_.INST__V82*/ curfptr[81];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3706:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.NLOCSYMS__V63*/ curfptr[46]), (/*_#CURCIX__L24*/ curfnum[16]), (melt_ptr_t)(/*_.NLOCSYM__V81*/ curfptr[79]));}
-     ;
-     /*_#NULL__L28*/ curfnum[20] = 
-      ((/*_.CURBDISCR__V76*/ curfptr[57]) == NULL);;
-     MELT_LOCATION("warmelt-normal.melt:3707:/ cond");
-     /*cond*/ if (/*_#NULL__L28*/ curfnum[20]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3707:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:3707:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3708:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:3708:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[17])))) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:3708:/ cond.then");
-        MELT_LOCATION("warmelt-normal.melt:3708:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), 5, "NINSTB_CLABIND");/*_.CLABIND__V83*/ curfptr[82] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-normal.melt:3708:/ cond.else");
-        
-         /*_.CLABIND__V83*/ curfptr[82] = NULL;;
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3709:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[18])))) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:3709:/ cond.then");
-        MELT_LOCATION("warmelt-normal.melt:3709:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), 0, "BINDER");/*_.CLASYM__V84*/ curfptr[83] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-normal.melt:3709:/ cond.else");
-        
-         /*_.CLASYM__V84*/ curfptr[83] = NULL;;
-         }
-        ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:3711:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:3711:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L29*/ curfnum[8] = 
-           callcount;;
-          MELT_LOCATION("warmelt-normal.melt:3711:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
-           argtab[0].bp_cstring =  "normexp_letrec clabind";
-           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[8];
-           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-normal.melt";
-           MELT_LOCATION("warmelt-normal.melt:3711:/ apply.arg");
-           argtab[3].bp_long = 3711;
-           /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLABIND__V83*/ curfptr[82]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V85*/ curfptr[84] = /*_.DEBUG_MSG_FUN__V86*/ curfptr[85];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:3711:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[8] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:3711:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:3711:/ cppif.else");
-        /*_.IFCPP___V85*/ curfptr[84] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:3712:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:3712:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L30*/ curfnum[8] = 
-           callcount;;
-          MELT_LOCATION("warmelt-normal.melt:3712:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
-           argtab[0].bp_cstring =  "normexp_letrec clasym";
-           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[8];
-           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-normal.melt";
-           MELT_LOCATION("warmelt-normal.melt:3712:/ apply.arg");
-           argtab[3].bp_long = 3712;
-           /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLASYM__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V87*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:3712:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[8] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:3712:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:3712:/ cppif.else");
-        /*_.IFCPP___V87*/ curfptr[85] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:3714:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:3714:/ block");
-         /*block*/{
-          /*_#IS_A__L31*/ curfnum[8] = 
-           melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING*/ curfrout->tabval[17])));;
-          MELT_LOCATION("warmelt-normal.melt:3714:/ cond");
-          /*cond*/ if (/*_#IS_A__L31*/ curfnum[8]) /*then*/ {
-          MELT_LOCATION("warmelt-normal.melt:3714:/ cond.then");
-          /*_.IFELSE___V90*/ curfptr[89] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-normal.melt:3714:/ cond.else");
-          
-           MELT_LOCATION("warmelt-normal.melt:3714:/ block");
-           /*block*/{
-            /*block*/{
-             
-             {
-             MELT_LOCATION("warmelt-normal.melt:3714:/ locexp");
-             melt_assert_failed(( "check curcbind for instance"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3714)?(3714):__LINE__, __FUNCTION__);
-;}
-             ;
-             /*clear*/ /*_.IFELSE___V90*/ curfptr[89] = 0 ;}
-            ;
-            /*epilog*/}
-           ;
-           }
-          ;
-          /*_.IFCPP___V89*/ curfptr[87] = /*_.IFELSE___V90*/ curfptr[89];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:3714:/ clear");
-          /*clear*/ /*_#IS_A__L31*/ curfnum[8] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:3714:/ clear");
-          /*clear*/ /*_.IFELSE___V90*/ curfptr[89] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:3714:/ cppif.else");
-        /*_.IFCPP___V89*/ curfptr[87] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-normal.melt:3715:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:3716:/ msend");
-         /*msend*/{
-          union meltparam_un argtab[3];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-          MELT_LOCATION("warmelt-normal.melt:3716:/ ojbmsend.arg");
-          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-          /*_.CLADATA__V91*/ curfptr[89] = meltgc_send((melt_ptr_t)(/*_.CLASYM__V84*/ curfptr[83]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:3718:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:3718:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L32*/ curfnum[8] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:3718:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_letrec cladata";
-            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[8];
-            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:3718:/ apply.arg");
-            argtab[3].bp_long = 3718;
-            /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLADATA__V91*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3718:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[8] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:3718:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:3718:/ cppif.else");
-         /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:3719:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:3719:/ block");
-          /*block*/{
-           /*_#IS_A__L33*/ curfnum[8] = 
-            melt_is_instance_of((melt_ptr_t)(/*_.CLADATA__V91*/ curfptr[89]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[20])));;
-           MELT_LOCATION("warmelt-normal.melt:3719:/ cond");
-           /*cond*/ if (/*_#IS_A__L33*/ curfnum[8]) /*then*/ {
-           MELT_LOCATION("warmelt-normal.melt:3719:/ cond.then");
-           /*_.IFELSE___V95*/ curfptr[94] = (/*nil*/NULL);;
-           } else {MELT_LOCATION("warmelt-normal.melt:3719:/ cond.else");
-           
-            MELT_LOCATION("warmelt-normal.melt:3719:/ block");
-            /*block*/{
-             /*block*/{
-              
-              {
-              MELT_LOCATION("warmelt-normal.melt:3719:/ locexp");
-              melt_assert_failed(( "check cladata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3719)?(3719):__LINE__, __FUNCTION__);
-;}
-              ;
-              /*clear*/ /*_.IFELSE___V95*/ curfptr[94] = 0 ;}
-             ;
-             /*epilog*/}
-            ;
-            }
-           ;
-           /*_.IFCPP___V94*/ curfptr[92] = /*_.IFELSE___V95*/ curfptr[94];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:3719:/ clear");
-           /*clear*/ /*_#IS_A__L33*/ curfnum[8] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:3719:/ clear");
-           /*clear*/ /*_.IFELSE___V95*/ curfptr[94] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:3719:/ cppif.else");
-         /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-normal.melt:3720:/ cond");
-         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33]), (melt_ptr_t)((/*!CLASS_NORMAL_CONSTRUCTOR_BINDING*/ curfrout->tabval[11])))) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:3720:/ cond.then");
-         MELT_LOCATION("warmelt-normal.melt:3720:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-normal.melt:3720:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NCONSB_DISCR", melt_magic_discr((melt_ptr_t)(/*_.CURCBIND__V71*/ curfptr[33])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.CURCBIND__V71*/ curfptr[33]), (2), (/*_.CLADATA__V91*/ curfptr[89]), "NCONSB_DISCR");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:3720:/ touch");
-           meltgc_touch(/*_.CURCBIND__V71*/ curfptr[33]);
-           ;
-           /*epilog*/}
-          ;
-         } /*noelse*/
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3715:/ clear");
-         /*clear*/ /*_.CLADATA__V91*/ curfptr[89] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3715:/ clear");
-         /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3715:/ clear");
-         /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ;}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
-        /*clear*/ /*_.CLABIND__V83*/ curfptr[82] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
-        /*clear*/ /*_.CLASYM__V84*/ curfptr[83] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
-        /*clear*/ /*_.IFCPP___V85*/ curfptr[84] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
-        /*clear*/ /*_.IFCPP___V87*/ curfptr[85] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3708:/ clear");
-        /*clear*/ /*_.IFCPP___V89*/ curfptr[87] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
-     /*clear*/ /*_.CURBDISCR__V76*/ curfptr[57] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
-     /*clear*/ /*_.CURBINDER__V77*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
-     /*clear*/ /*_.NCONSB_LOC__V78*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
-     /*clear*/ /*_.OR___V79*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
-     /*clear*/ /*_.NLOCSYM__V81*/ curfptr[79] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3696:/ clear");
-     /*clear*/ /*_#NULL__L28*/ curfnum[20] = 0 ;}
-    ;
-    /*_#I__L34*/ curfnum[8] = 
-     ((/*_#CURCIX__L24*/ curfnum[16]) + (1));;
-    MELT_LOCATION("warmelt-normal.melt:3723:/ compute");
-    /*_#CURCIX__L24*/ curfnum[16] = /*_#SETQ___L35*/ curfnum[20] = /*_#I__L34*/ curfnum[8];;
-    MELT_LOCATION("warmelt-normal.melt:3724:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3724:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCBIND__V71*/ curfptr[33];
-     /*_.PUT_ENV__V96*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    } /* end cit4__EACHLIST */
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_.CURPAIR__V70*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_.CURCBIND__V71*/ curfptr[33] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_.IFCPP___V72*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_.IFCPP___V74*/ curfptr[38] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_#I__L34*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_#SETQ___L35*/ curfnum[20] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3688:/ clear");
-    /*clear*/ /*_.PUT_ENV__V96*/ curfptr[94] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit5__EACHTUP: */
-   long  cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SBINDS__V16*/ curfptr[15]);
-   for (/*_#SBIX__L36*/ curfnum[35] = 0;  
-	(/*_#SBIX__L36*/ curfnum[35] >= 0) && (/*_#SBIX__L36*/ curfnum[35] <  cit5__EACHTUP_ln);  
-	/*_#SBIX__L36*/ curfnum[35]++) {
-   /*_.CURSBIND__V97*/ curfptr[89] = melt_multiple_nth((melt_ptr_t)(/*_.SBINDS__V16*/ curfptr[15]),  /*_#SBIX__L36*/ curfnum[35]);
-   
-   
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3731:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3731:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L37*/ curfnum[36] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3731:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_letrec thirdloop cursbind";
-       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L37*/ curfnum[36];
-       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3731:/ apply.arg");
-       argtab[3].bp_long = 3731;
-       /*_.DEBUG_MSG_FUN__V99*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V98*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[92];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3731:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L37*/ curfnum[36] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3731:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[92] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3731:/ cppif.else");
-    /*_.IFCPP___V98*/ curfptr[91] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3732:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3732:/ block");
-     /*block*/{
-      /*_#IS_A__L38*/ curfnum[36] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), (melt_ptr_t)((/*!CLASS_SOURCE_LETREC_BINDING*/ curfrout->tabval[7])));;
-      MELT_LOCATION("warmelt-normal.melt:3732:/ cond");
-      /*cond*/ if (/*_#IS_A__L38*/ curfnum[36]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3732:/ cond.then");
-      /*_.IFELSE___V101*/ curfptr[83] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3732:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3732:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3732:/ locexp");
-         melt_assert_failed(( "check cursbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3732)?(3732):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V101*/ curfptr[83] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V100*/ curfptr[82] = /*_.IFELSE___V101*/ curfptr[83];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3732:/ clear");
-      /*clear*/ /*_#IS_A__L38*/ curfnum[36] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3732:/ clear");
-      /*clear*/ /*_.IFELSE___V101*/ curfptr[83] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3732:/ cppif.else");
-    /*_.IFCPP___V100*/ curfptr[82] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3733:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3733:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V103*/ curfptr[85] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ cond");
-     /*cond*/ if (/*_.LOCA_LOCATION__V103*/ curfptr[85]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:3733:/ cond.then");
-     /*_.LOCB__V104*/ curfptr[87] = /*_.LOCA_LOCATION__V103*/ curfptr[85];;
-     } else {MELT_LOCATION("warmelt-normal.melt:3733:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:3733:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3733:/ cond");
-       /*cond*/ if (/*_.SLOC__V15*/ curfptr[14]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:3733:/ cond.then");
-       /*_.OR___V105*/ curfptr[57] = /*_.SLOC__V15*/ curfptr[14];;
-       } else {MELT_LOCATION("warmelt-normal.melt:3733:/ cond.else");
-       
-        /*_.OR___V105*/ curfptr[57] = /*_.PSLOC__V5*/ curfptr[4];;
-        }
-       ;
-       /*_.LOCB__V104*/ curfptr[87] = /*_.OR___V105*/ curfptr[57];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-       /*clear*/ /*_.OR___V105*/ curfptr[57] = 0 ;}
-      ;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3734:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 3, "SLETB_BINDER");/*_.CURSYMB__V106*/ curfptr[30] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3735:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURSBIND__V97*/ curfptr[89]), 4, "SLETB_EXPR");/*_.CUREXPR__V107*/ curfptr[36] = slot; };
-     ;
-     /*_.CURBIND__V108*/ curfptr[40] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYMBINDMAP__V22*/ curfptr[21]), (meltobject_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]));;
-     /*_.CURSEXPR__V109*/ curfptr[79] = 
-      melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.SYMBEXPRMAP__V21*/ curfptr[20]), (meltobject_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]));;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3739:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3739:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L39*/ curfnum[36] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3739:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_letrec thirdloop curexpr";
-        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L39*/ curfnum[36];
-        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3739:/ apply.arg");
-        argtab[3].bp_long = 3739;
-        /*_.DEBUG_MSG_FUN__V111*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V110*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V111*/ curfptr[83];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3739:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L39*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3739:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V111*/ curfptr[83] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3739:/ cppif.else");
-     /*_.IFCPP___V110*/ curfptr[92] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3740:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3740:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L40*/ curfnum[36] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3740:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_letrec thirdloop cursymb";
-        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[36];
-        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3740:/ apply.arg");
-        argtab[3].bp_long = 3740;
-        /*_.DEBUG_MSG_FUN__V113*/ curfptr[83] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSYMB__V106*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V112*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V113*/ curfptr[83];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3740:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3740:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V113*/ curfptr[83] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3740:/ cppif.else");
-     /*_.IFCPP___V112*/ curfptr[57] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3741:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3741:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L41*/ curfnum[36] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3741:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_letrec thirdloop curbind";
-        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L41*/ curfnum[36];
-        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3741:/ apply.arg");
-        argtab[3].bp_long = 3741;
-        /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURBIND__V108*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V114*/ curfptr[83] = /*_.DEBUG_MSG_FUN__V115*/ curfptr[114];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3741:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L41*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3741:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ curfptr[114] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3741:/ cppif.else");
-     /*_.IFCPP___V114*/ curfptr[83] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3742:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3742:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L42*/ curfnum[36] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3742:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_letrec thirdloop cursexpr";
-        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L42*/ curfnum[36];
-        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3742:/ apply.arg");
-        argtab[3].bp_long = 3742;
-        /*_.DEBUG_MSG_FUN__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURSEXPR__V109*/ curfptr[79]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V116*/ curfptr[114] = /*_.DEBUG_MSG_FUN__V117*/ curfptr[116];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3742:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L42*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3742:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V117*/ curfptr[116] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3742:/ cppif.else");
-     /*_.IFCPP___V116*/ curfptr[114] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3743:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3743:/ block");
-      /*block*/{
-       /*_#__L43*/ curfnum[36] = 
-        ((/*_.CUREXPR__V107*/ curfptr[36]) == (/*_.CURSEXPR__V109*/ curfptr[79]));;
-       MELT_LOCATION("warmelt-normal.melt:3743:/ cond");
-       /*cond*/ if (/*_#__L43*/ curfnum[36]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:3743:/ cond.then");
-       /*_.IFELSE___V119*/ curfptr[118] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-normal.melt:3743:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:3743:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:3743:/ locexp");
-          melt_assert_failed(( "check curxpr same cursexpr"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3743)?(3743):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V119*/ curfptr[118] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V118*/ curfptr[116] = /*_.IFELSE___V119*/ curfptr[118];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3743:/ clear");
-       /*clear*/ /*_#__L43*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3743:/ clear");
-       /*clear*/ /*_.IFELSE___V119*/ curfptr[118] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3743:/ cppif.else");
-     /*_.IFCPP___V118*/ curfptr[116] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:3744:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[5];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURSYMB__V106*/ curfptr[30];
-      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURBIND__V108*/ curfptr[40];
-      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];
-      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
-      argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:3744:/ ojbmsend.arg");
-      argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      /*_.NORMAL_LETREC_CONSTRUCTIVE__V120*/ curfptr[118] = meltgc_send((melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (melt_ptr_t)((/*!NORMAL_LETREC_CONSTRUCTIVE*/ curfrout->tabval[22])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3745:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3745:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L44*/ curfnum[36] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3745:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_letrec thirdloop done curexpr";
-        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L44*/ curfnum[36];
-        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3745:/ apply.arg");
-        argtab[3].bp_long = 3745;
-        /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREXPR__V107*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V121*/ curfptr[120] = /*_.DEBUG_MSG_FUN__V122*/ curfptr[121];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3745:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L44*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3745:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3745:/ cppif.else");
-     /*_.IFCPP___V121*/ curfptr[120] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V102*/ curfptr[84] = /*_.IFCPP___V121*/ curfptr[120];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.LOCA_LOCATION__V103*/ curfptr[85] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.LOCB__V104*/ curfptr[87] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.CURSYMB__V106*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.CUREXPR__V107*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.CURBIND__V108*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.CURSEXPR__V109*/ curfptr[79] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.IFCPP___V110*/ curfptr[92] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.IFCPP___V112*/ curfptr[57] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.IFCPP___V114*/ curfptr[83] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.IFCPP___V116*/ curfptr[114] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.IFCPP___V118*/ curfptr[116] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.NORMAL_LETREC_CONSTRUCTIVE__V120*/ curfptr[118] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3733:/ clear");
-     /*clear*/ /*_.IFCPP___V121*/ curfptr[120] = 0 ;}
-    ;
-    if (/*_#SBIX__L36*/ curfnum[35]<0) break;
-   } /* end cit5__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
-    /*clear*/ /*_.CURSBIND__V97*/ curfptr[89] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
-    /*clear*/ /*_#SBIX__L36*/ curfnum[35] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
-    /*clear*/ /*_.IFCPP___V98*/ curfptr[91] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
-    /*clear*/ /*_.IFCPP___V100*/ curfptr[82] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3728:/ clear");
-    /*clear*/ /*_.LET___V102*/ curfptr[84] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:3750:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:3750:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L45*/ curfnum[36] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:3750:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_letrec normalizing sbody";
-      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L45*/ curfnum[36];
-      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:3750:/ apply.arg");
-      argtab[3].bp_long = 3750;
-      /*_.DEBUG_MSG_FUN__V124*/ curfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V123*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V124*/ curfptr[85];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3750:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L45*/ curfnum[36] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3750:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V124*/ curfptr[85] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:3750:/ cppif.else");
-   /*_.IFCPP___V123*/ curfptr[121] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:3751:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply");
-    /*multiapply 4args, 1x.res*/ {
-     union meltparam_un argtab[3];
-     
-     union meltparam_un restab[1];
-     memset(&restab, 0, sizeof(restab));
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.xres");
-     restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V127*/ curfptr[36];
-     MELT_LOCATION("warmelt-normal.melt:3751:/ multiapply.appl");
-     /*_.NBODY__V126*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3751:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3754:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3754:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V127*/ curfptr[36];
-      /*_.LIST_APPEND2LIST__V128*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3755:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3755:/ block");
-      /*block*/{
-       /*_#IS_LIST_OR_NULL__L46*/ curfnum[36] = 
-        ((/*_.BINDLIST__V18*/ curfptr[17]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17])) == OBMAG_LIST));;
-       MELT_LOCATION("warmelt-normal.melt:3755:/ cond");
-       /*cond*/ if (/*_#IS_LIST_OR_NULL__L46*/ curfnum[36]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:3755:/ cond.then");
-       /*_.IFELSE___V130*/ curfptr[92] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-normal.melt:3755:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:3755:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:3755:/ locexp");
-          melt_assert_failed(( "normexp_letrec check bindlist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3755)?(3755):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V130*/ curfptr[92] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V129*/ curfptr[79] = /*_.IFELSE___V130*/ curfptr[92];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3755:/ clear");
-       /*clear*/ /*_#IS_LIST_OR_NULL__L46*/ curfnum[36] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3755:/ clear");
-       /*clear*/ /*_.IFELSE___V130*/ curfptr[92] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3755:/ cppif.else");
-     /*_.IFCPP___V129*/ curfptr[79] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:3758:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3758:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V132*/ curfptr[83] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (0));
-      ;
-      /*_.LAMBDA___V131*/ curfptr[57] = /*_.LAMBDA___V132*/ curfptr[83];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3756:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3756:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V131*/ curfptr[57];
-      /*_.LIST_EVERY__V133*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.BINDLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3761:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3761:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V134*/ curfptr[116] = slot; };
-      ;
-      /*citerblock FOREACH_IN_LIST*/ {
-      /* start cit6__EACHLIST */
-   for (/*_.CURPAIR__V135*/ curfptr[118] = melt_list_first(/*_.BINDLIST__V18*/ curfptr[17]);
-	melt_magic_discr(/*_.CURPAIR__V135*/ curfptr[118]) == OBMAG_PAIR;
-        /*_.CURPAIR__V135*/ curfptr[118] = melt_pair_tail(/*_.CURPAIR__V135*/ curfptr[118])) {
-	/*_.BND__V136*/ curfptr[120] = melt_pair_head(/*_.CURPAIR__V135*/ curfptr[118]); 
-      
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:3765:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:3765:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L47*/ curfnum[36] = 
-          callcount;;
-         MELT_LOCATION("warmelt-normal.melt:3765:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
-          argtab[0].bp_cstring =  "normexp_letrec remobing from sycmap bnd";
-          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L47*/ curfnum[36];
-          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-normal.melt";
-          MELT_LOCATION("warmelt-normal.melt:3765:/ apply.arg");
-          argtab[3].bp_long = 3765;
-          /*_.DEBUG_MSG_FUN__V138*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BND__V136*/ curfptr[120]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V137*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V138*/ curfptr[92];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3765:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L47*/ curfnum[36] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3765:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V138*/ curfptr[92] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:3765:/ cppif.else");
-       /*_.IFCPP___V137*/ curfptr[85] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-normal.melt:3766:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.BND__V136*/ curfptr[120]), 0, "BINDER");/*_.BINDER__V139*/ curfptr[92] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:3766:/ locexp");
-       meltgc_remove_mapobjects( (meltmapobjects_ptr_t) (/*_.SYCMAP__V134*/ curfptr[116]), 
-			      (meltobject_ptr_t)(/*_.BINDER__V139*/ curfptr[92]));}
-       ;
-       } /* end cit6__EACHLIST */
-      
-       /*citerepilog*/
-       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
-       /*clear*/ /*_.CURPAIR__V135*/ curfptr[118] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
-       /*clear*/ /*_.BND__V136*/ curfptr[120] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
-       /*clear*/ /*_.IFCPP___V137*/ curfptr[85] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3762:/ clear");
-       /*clear*/ /*_.BINDER__V139*/ curfptr[92] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3761:/ clear");
-      /*clear*/ /*_.SYCMAP__V134*/ curfptr[116] = 0 ;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3769:/ block");
-     /*block*/{
-      /*_.NLASTBODY__V141*/ curfptr[140] = 
-       (melt_multiple_nth((melt_ptr_t)(/*_.NBODY__V126*/ curfptr[30]), (-1)));;
-      MELT_LOCATION("warmelt-normal.melt:3772:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3772:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19];
-       /*_.GET_CTYPE__V142*/ curfptr[141] = meltgc_send((melt_ptr_t)(/*_.NLASTBODY__V141*/ curfptr[140]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[29])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3772:/ cond");
-      /*cond*/ if (/*_.GET_CTYPE__V142*/ curfptr[141]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3772:/ cond.then");
-      /*_.NLASTYP__V143*/ curfptr[142] = /*_.GET_CTYPE__V142*/ curfptr[141];;
-      } else {MELT_LOCATION("warmelt-normal.melt:3772:/ cond.else");
-      
-       /*_.NLASTYP__V143*/ curfptr[142] = (/*!CTYPE_VOID*/ curfrout->tabval[28]);;
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3773:/ apply");
-      /*apply*/{
-       /*_.CSYM__V144*/ curfptr[143] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[30])), (melt_ptr_t)((/*!konst_31_LETREC_*/ curfrout->tabval[31])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3774:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3774:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[32])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V146*/ curfptr[145] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (0), (/*_.CSYM__V144*/ curfptr[143]), "BINDER");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (1), (/*_.NLASTYP__V143*/ curfptr[142]), "LETBIND_TYPE");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3774:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V146*/ curfptr[145])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V146*/ curfptr[145]), (2), (/*_.NLETREC__V66*/ curfptr[44]), "LETBIND_EXPR");
-       ;
-       /*_.CBIND__V145*/ curfptr[144] = /*_.INST__V146*/ curfptr[145];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3779:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3779:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V148*/ curfptr[147] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3779:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3779:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (2), (/*_.NLASTYP__V143*/ curfptr[142]), "NOCC_CTYP");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3779:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V148*/ curfptr[147])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V148*/ curfptr[147]), (3), (/*_.CBIND__V145*/ curfptr[144]), "NOCC_BIND");
-       ;
-       /*_.CLOCC__V147*/ curfptr[146] = /*_.INST__V148*/ curfptr[147];;}
-      ;
-      /*_.RESBINDS__V149*/ curfptr[148] = 
-       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3785:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.RESBINDS__V149*/ curfptr[148]), (melt_ptr_t)(/*_.CBIND__V145*/ curfptr[144]));}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:3786:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:3786:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L48*/ curfnum[36] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:3786:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_letrec result clocc";
-         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L48*/ curfnum[36];
-         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:3786:/ apply.arg");
-         argtab[3].bp_long = 3786;
-         /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V147*/ curfptr[146]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V150*/ curfptr[149] = /*_.DEBUG_MSG_FUN__V151*/ curfptr[150];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3786:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L48*/ curfnum[36] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3786:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:3786:/ cppif.else");
-      /*_.IFCPP___V150*/ curfptr[149] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:3787:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:3787:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L49*/ curfnum[36] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:3787:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_letrec result resbinds";
-         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L49*/ curfnum[36];
-         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:3787:/ apply.arg");
-         argtab[3].bp_long = 3787;
-         /*_.DEBUG_MSG_FUN__V153*/ curfptr[152] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RESBINDS__V149*/ curfptr[148]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V152*/ curfptr[150] = /*_.DEBUG_MSG_FUN__V153*/ curfptr[152];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3787:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L49*/ curfnum[36] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3787:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V153*/ curfptr[152] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:3787:/ cppif.else");
-      /*_.IFCPP___V152*/ curfptr[150] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3788:/ locexp");
-       
-#if ENABLE_CHECKING
-  if (flag_melt_debug)
-    melt_dbgshortbacktrace(( "normexp_letrec ending"), (15));
-#endif
-;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3789:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V147*/ curfptr[146];;
-       MELT_LOCATION("warmelt-normal.melt:3789:/ putxtraresult");
-       if (!xrestab_ || !xresdescr_) goto labend_rout;
-       if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-       if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.RESBINDS__V149*/ curfptr[148]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3789:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      /*_.LET___V140*/ curfptr[116] = (/*nil*/NULL);;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.NLASTBODY__V141*/ curfptr[140] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.GET_CTYPE__V142*/ curfptr[141] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.NLASTYP__V143*/ curfptr[142] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.CSYM__V144*/ curfptr[143] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.CBIND__V145*/ curfptr[144] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.CLOCC__V147*/ curfptr[146] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.RESBINDS__V149*/ curfptr[148] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.IFCPP___V150*/ curfptr[149] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.IFCPP___V152*/ curfptr[150] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3769:/ clear");
-      /*clear*/ /*_.RETURN___V154*/ curfptr[152] = 0 ;}
-     ;
-     /*_.MULTI___V125*/ curfptr[87] = /*_.LET___V140*/ curfptr[116];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
-     /*clear*/ /*_.LIST_APPEND2LIST__V128*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
-     /*clear*/ /*_.IFCPP___V129*/ curfptr[79] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
-     /*clear*/ /*_.LAMBDA___V131*/ curfptr[57] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
-     /*clear*/ /*_.LIST_EVERY__V133*/ curfptr[114] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
-     /*clear*/ /*_.LET___V140*/ curfptr[116] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3751:/ clear");
-    /*clear*/ /*_.NBODBINDINGS__V127*/ curfptr[36] = 0 ;}
-   ;
-   /*_.LET___V62*/ curfptr[49] = /*_.MULTI___V125*/ curfptr[87];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_#NBCONSBIND__L23*/ curfnum[18] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_#CURCIX__L24*/ curfnum[16] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.NLOCSYMS__V63*/ curfptr[46] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.NCBINDTUP__V64*/ curfptr[42] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.RECBINDINGS__V65*/ curfptr[43] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.NLETREC__V66*/ curfptr[44] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.IFCPP___V68*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.IFCPP___V123*/ curfptr[121] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3670:/ clear");
-   /*clear*/ /*_.MULTI___V125*/ curfptr[87] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V62*/ curfptr[49];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.SBINDS__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_#NBBIND__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.BINDLIST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.CONSBINDLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_#MAPLEN__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.SYMBEXPRMAP__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.SYMBINDMAP__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.IFCPP___V60*/ curfptr[54] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3612:/ clear");
-  /*clear*/ /*_.LET___V62*/ curfptr[49] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3607:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3607:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3607:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_LETREC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_105_warmelt_normal_NORMEXP_LETREC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_106_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3758:/ getarg");
- /*_.CBND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3758:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3759:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3759:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3759:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3759:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3759:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3759:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3759:/ locexp");
-      melt_assert_failed(( "normexp_letrec check cbnd"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3759)?(3759):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3759:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3759:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3759:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3758:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-normal.melt:3758:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3758:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_106_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_107_warmelt_normal_NORMAL_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_normal_NORMAL_PREDEF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_PREDEF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
- /*_.PRED__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3799:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.MSG__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MSG__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3799:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3800:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3800:/ block");
-  /*block*/{
-   /*_#IS_OBJECT__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.PRED__V2*/ curfptr[1])) == OBMAG_OBJECT);;
-   MELT_LOCATION("warmelt-normal.melt:3800:/ cond");
-   /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3800:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3800:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3800:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3800:/ locexp");
-      melt_assert_failed(( "check pred"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3800)?(3800):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3800:/ clear");
-   /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3800:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3800:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3801:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3801:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3801:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3801:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3801:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3801:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3801:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3801)?(3801):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3801:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3801:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3801:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3802:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3802:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.BRK__V12*/ curfptr[11] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.PRED__V2*/ curfptr[1]));;
-  /*_#IS_INTEGERBOX__L3*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.BRK__V12*/ curfptr[11])) == OBMAG_INT);;
-  MELT_LOCATION("warmelt-normal.melt:3804:/ cond");
-  /*cond*/ if (/*_#IS_INTEGERBOX__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3804:/ cond.then");
-  /*_#OR___L4*/ curfnum[3] = /*_#IS_INTEGERBOX__L3*/ curfnum[0];;
-  } else {MELT_LOCATION("warmelt-normal.melt:3804:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:3804:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BRK__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-    /*_#OR___L4*/ curfnum[3] = /*_#IS_A__L5*/ curfnum[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3804:/ cond");
-  /*cond*/ if (/*_#OR___L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3804:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3804:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3805:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3805:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[2])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3805:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3805:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.BRK__V12*/ curfptr[11]), "NRPREDEF");
-     ;
-     /*_.INST___V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;}
-    ;
-    /*_.IFELSE___V13*/ curfptr[12] = /*_.INST___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
-    /*clear*/ /*_.INST___V14*/ curfptr[13] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3804:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:3804:/ block");
-   /*block*/{
-    /*_#IS_STRING__L6*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.MSG__V5*/ curfptr[4])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-normal.melt:3808:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3808:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:3808:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:3810:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:3810:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:3810:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
-         argtab[0].bp_cstring =  "normalpredef predefmap";
-         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:3810:/ apply.arg");
-         argtab[3].bp_long = 3810;
-         /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3810:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3810:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:3810:/ cppif.else");
-      /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:3811:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:3811:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:3811:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
-         argtab[0].bp_cstring =  "normalpredef pred";
-         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:3811:/ apply.arg");
-         argtab[3].bp_long = 3811;
-         /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.PRED__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3811:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3811:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:3811:/ cppif.else");
-      /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3812:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3]), ( "not a predef:"), (melt_ptr_t)(/*_.MSG__V5*/ curfptr[4]));}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3809:/ block");
-      /*block*/{
-       /*_.PROGN___V21*/ curfptr[19] = (/*nil*/NULL);;}
-      ;
-      /*_.IF___V16*/ curfptr[13] = /*_.PROGN___V21*/ curfptr[19];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3808:/ clear");
-      /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3808:/ clear");
-      /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3808:/ clear");
-      /*clear*/ /*_.PROGN___V21*/ curfptr[19] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:3808:/ cond.else");
-    
-     /*_.IF___V16*/ curfptr[13] = NULL;;
-     }
-    ;
-    /*_.IFELSE___V13*/ curfptr[12] = /*_.IF___V16*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
-    /*clear*/ /*_#IS_STRING__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3804:/ clear");
-    /*clear*/ /*_.IF___V16*/ curfptr[13] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
-  /*clear*/ /*_.PREDEFMAP__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
-  /*clear*/ /*_.BRK__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
-  /*clear*/ /*_#IS_INTEGERBOX__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
-  /*clear*/ /*_#OR___L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3802:/ clear");
-  /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3799:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-normal.melt:3799:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3799:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3799:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3799:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_PREDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_107_warmelt_normal_NORMAL_PREDEF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 36
-  void* varptr[36];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<36; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 36;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_SYMBOL_DATA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3818:/ getarg");
- /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3818:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3818:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3818:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3820:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3820:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3820:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_symbol_data start sym";
-    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3820:/ apply.arg");
-    argtab[3].bp_long = 3820;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3820:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3820:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3820:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3821:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3821:/ block");
-  /*block*/{
-   /*_.DISCRIM__V8*/ curfptr[7] = 
-    (melt_discr((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1])));;
-   /*_#__L2*/ curfnum[0] = 
-    ((/*_.DISCRIM__V8*/ curfptr[7]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3821:/ cond");
-   /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3821:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3821:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3821:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3821:/ locexp");
-      melt_assert_failed(( "check symb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3821)?(3821):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3821:/ clear");
-   /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3821:/ clear");
-   /*clear*/ /*_#__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3821:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3821:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3822:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3822:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3822:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3822:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3822:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3822:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3822:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3822)?(3822):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3822:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3822:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3822:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3823:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3823:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V13*/ curfptr[12] = slot; };
-  ;
-  /*_.OSYDATA__V14*/ curfptr[13] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V13*/ curfptr[12]), (meltobject_ptr_t)(/*_.SYM__V2*/ curfptr[1]));;
-  MELT_LOCATION("warmelt-normal.melt:3825:/ cond");
-  /*cond*/ if (/*_.OSYDATA__V14*/ curfptr[13]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3825:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3825:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3827:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3827:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3827:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_symbol_data found osydata";
-       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3827:/ apply.arg");
-       argtab[3].bp_long = 3827;
-       /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OSYDATA__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3827:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3827:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3827:/ cppif.else");
-    /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3828:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.OSYDATA__V14*/ curfptr[13];;
-     MELT_LOCATION("warmelt-normal.melt:3828:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3826:/ block");
-    /*block*/{
-     /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[16];;}
-    ;
-    /*_.IFELSE___V15*/ curfptr[14] = /*_.PROGN___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
-    /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
-    /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
-    /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3825:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:3825:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3829:/ block");
-    /*block*/{
-     /*_#SYHASH__L5*/ curfnum[0] = 
-      (melt_obj_hash((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1])));;
-     MELT_LOCATION("warmelt-normal.melt:3830:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V21*/ curfptr[16] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3834:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:3834:/ apply.arg");
-      argtab[2].bp_cstring =  "discr_string";
-      /*_.NORMAL_PREDEF__V22*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3833:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3833:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[3])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V24*/ curfptr[23] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3833:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V22*/ curfptr[18]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3833:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NSTR_STRING");
-      ;
-      /*_.SYNAMSTRDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3838:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V25*/ curfptr[24] = slot; };
-     ;
-     /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V25*/ curfptr[24])));;
-     /*_.SYSLOTS__V26*/ curfptr[25] = 
-      (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));;
-     MELT_LOCATION("warmelt-normal.melt:3841:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:3841:/ apply.arg");
-      argtab[2].bp_cstring =  "class_symbol";
-      /*_.NORMAL_PREDEF__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (/*_#SYHASH__L5*/ curfnum[0])));;
-     MELT_LOCATION("warmelt-normal.melt:3839:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3839:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[7])), (10), "CLASS_NREP_DATASYMBOL");/*_.INST__V30*/ curfptr[29] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.SYM__V2*/ curfptr[1]), "NDATA_NAME");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NORMAL_PREDEF__V27*/ curfptr[26]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (7), (/*_.MAKE_INTEGERBOX__V28*/ curfptr[27]), "NINST_HASH");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (8), (/*_.SYSLOTS__V26*/ curfptr[25]), "NINST_SLOTS");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3839:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDSY_NAMESTR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (9), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NDSY_NAMESTR");
-      ;
-      /*_.SYDATA__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
-     ;
-     /*_#OBJ_NUM__L7*/ curfnum[6] = 
-      (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[9]))));;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3846:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SYSLOTS__V26*/ curfptr[25]), (/*_#OBJ_NUM__L7*/ curfnum[6]), (melt_ptr_t)(/*_.SYNAMSTRDATA__V23*/ curfptr[22]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3847:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3847:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYDATA__V29*/ curfptr[28];
-      /*_.ADD_NCTX_DATA__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3848:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3848:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V23*/ curfptr[22];
-      /*_.ADD_NCTX_DATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3849:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALMAP__V13*/ curfptr[12]), 
-			   (meltobject_ptr_t) (/*_.SYM__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3850:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 4, "NCTX_SYMBMAP");/*_.NCTX_SYMBMAP__V33*/ curfptr[32] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3850:/ locexp");
-     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.NCTX_SYMBMAP__V33*/ curfptr[32]), melt_string_str((melt_ptr_t)(/*_.SYNAMSTR__V21*/ curfptr[16])), (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3851:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3851:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3851:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_symbol_data return sydata";
-        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3851:/ apply.arg");
-        argtab[3].bp_long = 3851;
-        /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3851:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3851:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3851:/ cppif.else");
-     /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:3852:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V29*/ curfptr[28];;
-      MELT_LOCATION("warmelt-normal.melt:3852:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V20*/ curfptr[15] = /*_.RETURN___V36*/ curfptr[34];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_#SYHASH__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.SYNAMSTR__V21*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.SYNAMSTRDATA__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.CLASS_FIELDS__V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.SYSLOTS__V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.SYDATA__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_#OBJ_NUM__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V31*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.NCTX_SYMBMAP__V33*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3829:/ clear");
-     /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;}
-    ;
-    /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3825:/ clear");
-    /*clear*/ /*_.LET___V20*/ curfptr[15] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V12*/ curfptr[8] = /*_.IFELSE___V15*/ curfptr[14];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3823:/ clear");
-  /*clear*/ /*_.VALMAP__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3823:/ clear");
-  /*clear*/ /*_.OSYDATA__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3823:/ clear");
-  /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3818:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[8];;
-  MELT_LOCATION("warmelt-normal.melt:3818:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3818:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_SYMBOL_DATA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_108_warmelt_normal_NORMAL_SYMBOL_DATA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 28
-  void* varptr[28];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<28; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 28;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_KEYWORD_DATA", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3858:/ getarg");
- /*_.KEYW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3858:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3858:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3858:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3860:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3860:/ block");
-  /*block*/{
-   /*_.DISCRIM__V6*/ curfptr[5] = 
-    (melt_discr((melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));;
-   /*_#__L1*/ curfnum[0] = 
-    ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3860:/ cond");
-   /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3860:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3860:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3860:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3860:/ locexp");
-      melt_assert_failed(( "check keywb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3860)?(3860):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3860:/ clear");
-   /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3860:/ clear");
-   /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3860:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3860:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3861:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3861:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3861:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3861:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3861:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3861:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3861:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3861)?(3861):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3861:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3861:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3861:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3862:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3862:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V11*/ curfptr[10] = slot; };
-  ;
-  /*_.OSYDATA__V12*/ curfptr[11] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.VALMAP__V11*/ curfptr[10]), (meltobject_ptr_t)(/*_.KEYW__V2*/ curfptr[1]));;
-  MELT_LOCATION("warmelt-normal.melt:3864:/ cond");
-  /*cond*/ if (/*_.OSYDATA__V12*/ curfptr[11]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3864:/ cond.then");
-  /*_.IFELSE___V13*/ curfptr[12] = /*_.OSYDATA__V12*/ curfptr[11];;
-  } else {MELT_LOCATION("warmelt-normal.melt:3864:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:3864:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3865:/ block");
-    /*block*/{
-     /*_#SYHASH__L3*/ curfnum[0] = 
-      (melt_obj_hash((melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));;
-     MELT_LOCATION("warmelt-normal.melt:3866:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.KEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V15*/ curfptr[14] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3870:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:3870:/ apply.arg");
-      argtab[2].bp_cstring =  "discr_string";
-      /*_.NORMAL_PREDEF__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3869:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3869:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V18*/ curfptr[17] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3869:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (2), (/*_.NORMAL_PREDEF__V16*/ curfptr[15]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3869:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (5), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NSTR_STRING");
-      ;
-      /*_.SYNAMSTRDATA__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3874:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V19*/ curfptr[18] = slot; };
-     ;
-     /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V19*/ curfptr[18])));;
-     /*_.SYSLOTS__V20*/ curfptr[19] = 
-      (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[3])));;
-     MELT_LOCATION("warmelt-normal.melt:3877:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:3877:/ apply.arg");
-      argtab[2].bp_cstring =  "class_keyword";
-      /*_.NORMAL_PREDEF__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = 
-      (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#SYHASH__L3*/ curfnum[0])));;
-     MELT_LOCATION("warmelt-normal.melt:3875:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3875:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[6])), (10), "CLASS_NREP_DATAKEYWORD");/*_.INST__V24*/ curfptr[23] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.KEYW__V2*/ curfptr[1]), "NDATA_NAME");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V21*/ curfptr[20]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (7), (/*_.MAKE_INTEGERBOX__V22*/ curfptr[21]), "NINST_HASH");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (8), (/*_.SYSLOTS__V20*/ curfptr[19]), "NINST_SLOTS");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3875:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDSY_NAMESTR", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (9), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NDSY_NAMESTR");
-      ;
-      /*_.SYDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-     ;
-     /*_#OBJ_NUM__L5*/ curfnum[4] = 
-      (melt_obj_num((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[8]))));;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3882:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SYSLOTS__V20*/ curfptr[19]), (/*_#OBJ_NUM__L5*/ curfnum[4]), (melt_ptr_t)(/*_.SYNAMSTRDATA__V17*/ curfptr[16]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3883:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3883:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYDATA__V23*/ curfptr[22];
-      /*_.ADD_NCTX_DATA__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3884:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:3884:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SYNAMSTRDATA__V17*/ curfptr[16];
-      /*_.ADD_NCTX_DATA__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3885:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.VALMAP__V11*/ curfptr[10]), 
-			   (meltobject_ptr_t) (/*_.KEYW__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.SYDATA__V23*/ curfptr[22]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3886:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 5, "NCTX_KEYWMAP");/*_.NCTX_KEYWMAP__V27*/ curfptr[26] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3886:/ locexp");
-     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.NCTX_KEYWMAP__V27*/ curfptr[26]), melt_string_str((melt_ptr_t)(/*_.SYNAMSTR__V15*/ curfptr[14])), (melt_ptr_t)(/*_.SYDATA__V23*/ curfptr[22]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3887:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V23*/ curfptr[22];;
-      MELT_LOCATION("warmelt-normal.melt:3887:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V14*/ curfptr[13] = /*_.RETURN___V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_#SYHASH__L3*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.SYNAMSTR__V15*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V16*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.SYNAMSTRDATA__V17*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.CLASS_FIELDS__V19*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.SYSLOTS__V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V21*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.SYDATA__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_#OBJ_NUM__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.NCTX_KEYWMAP__V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3865:/ clear");
-     /*clear*/ /*_.RETURN___V28*/ curfptr[27] = 0 ;}
-    ;
-    /*_.IFELSE___V13*/ curfptr[12] = /*_.LET___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3864:/ clear");
-    /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V10*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3862:/ clear");
-  /*clear*/ /*_.VALMAP__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3862:/ clear");
-  /*clear*/ /*_.OSYDATA__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3862:/ clear");
-  /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3858:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[6];;
-  MELT_LOCATION("warmelt-normal.melt:3858:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3858:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3858:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3858:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_KEYWORD_DATA", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_109_warmelt_normal_NORMAL_KEYWORD_DATA*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_110_warmelt_normal_CREATE_DATA_SLOTS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_normal_CREATE_DATA_SLOTS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("CREATE_DATA_SLOTS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3892:/ getarg");
- /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3892:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3893:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3893:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3893:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3893:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3893:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3893:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3893:/ locexp");
-      melt_assert_failed(( "check cla"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3893)?(3893):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3893:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3893:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3893:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3894:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3894:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3894:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
-    argtab[0].bp_cstring =  "create_data_slots cla";
-    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3894:/ apply.arg");
-    argtab[3].bp_long = 3894;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3894:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3894:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3894:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3895:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3896:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V8*/ curfptr[7])));;
-  /*_.TUPSLO__V9*/ curfptr[8] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3898:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3898:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3898:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
-     argtab[0].bp_cstring =  "create_data_slots tupslo";
-     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3898:/ apply.arg");
-     argtab[3].bp_long = 3898;
-     /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.TUPSLO__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3898:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3898:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3898:/ cppif.else");
-  /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_.LET___V7*/ curfptr[5] = /*_.TUPSLO__V9*/ curfptr[8];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
-  /*clear*/ /*_.CLASS_FIELDS__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
-  /*clear*/ /*_.TUPSLO__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3895:/ clear");
-  /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3892:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-normal.melt:3892:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3892:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3892:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3892:/ clear");
- /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("CREATE_DATA_SLOTS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_110_warmelt_normal_CREATE_DATA_SLOTS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_111_warmelt_normal_FILL_DATA_SLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_normal_FILL_DATA_SLOT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FILL_DATA_SLOT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3903:/ getarg");
- /*_.DI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3903:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.FIELD__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3903:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.VAL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3903:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3904:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3904:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3904:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3904:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3904:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3904:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3904:/ locexp");
-      melt_assert_failed(( "check di"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3904)?(3904):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3904:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3904:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3904:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3905:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3905:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3905:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3905:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3905:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3905:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3905:/ locexp");
-      melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3905)?(3905):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3905:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3905:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3905:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3906:/ block");
- /*block*/{
-  /*_#FIX__L3*/ curfnum[0] = 
-   (melt_obj_num((melt_ptr_t)(/*_.FIELD__V3*/ curfptr[2])));;
-  MELT_LOCATION("warmelt-normal.melt:3907:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.DI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.SLOTS__V9*/ curfptr[7] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3908:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTS__V9*/ curfptr[7]), (/*_#FIX__L3*/ curfnum[0]), (melt_ptr_t)(/*_.VAL__V4*/ curfptr[3]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3906:/ clear");
-  /*clear*/ /*_#FIX__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3906:/ clear");
-  /*clear*/ /*_.SLOTS__V9*/ curfptr[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3903:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3903:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FILL_DATA_SLOT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_111_warmelt_normal_FILL_DATA_SLOT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_112_warmelt_normal_NORMEXP_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_normal_NORMEXP_QUOTE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 49
-  void* varptr[49];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<49; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 49;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_QUOTE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3913:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3913:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3914:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3914:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_QUOTE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3914:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3914:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3914:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3914:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3914:/ locexp");
-      melt_assert_failed(( "check quote recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3914)?(3914):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3914:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3914:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3914:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3915:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3915:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3915:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3915:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3915:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3915:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3915:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3915)?(3915):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3915:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3915:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3915:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3916:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3916:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3916:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3916:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3916:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3916:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3916:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3916)?(3916):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3916:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3916:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3916:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3918:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3918:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3918:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_quote recv";
-    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3918:/ apply.arg");
-    argtab[3].bp_long = 3918;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3918:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3918:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3918:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3919:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3919:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3920:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SQUOTED");/*_.QUOTED__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3921:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; };
-  ;
-  /*_.DISCRIM__V18*/ curfptr[17] = 
-   (melt_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])));;
-  /*_#__L5*/ curfnum[0] = 
-   ((/*_.DISCRIM__V18*/ curfptr[17]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:3924:/ cond");
-  /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3924:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3924:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3925:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3925:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:3925:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
-     /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.NDATA__V19*/ curfptr[18] = /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3924:/ clear");
-    /*clear*/ /*_.NORMAL_SYMBOL_DATA__V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3924:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:3924:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L6*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-normal.melt:3926:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:3926:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:3926:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3927:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:3929:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[3];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-        MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-        MELT_LOCATION("warmelt-normal.melt:3929:/ apply.arg");
-        argtab[2].bp_cstring =  "discr_constant_integer";
-        /*_.NORMAL_PREDEF__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ curfrout->tabval[8])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3928:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:3928:/ rawallocobj");
-        /*rawallocobj*/ { melt_ptr_t newobj = 0;
-         melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATABOXEDINTEGER*/ curfrout->tabval[6])), (6), "CLASS_NREP_DATABOXEDINTEGER");/*_.INST__V25*/ curfptr[24] =
-         newobj; };
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3928:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.NORMAL_PREDEF__V23*/ curfptr[22]), "NDATA_DISCRX");
-        ;
-        MELT_LOCATION("warmelt-normal.melt:3928:/ putslot");
-        /*putslot*/
-        melt_assertmsg("putslot checkobj @NBOXINT_NUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT);
-        melt_putfield_object((/*_.INST__V25*/ curfptr[24]), (5), (/*_.QUOTED__V16*/ curfptr[15]), "NBOXINT_NUM");
-        ;
-        /*_.NINTDATA__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;}
-       ;
-       MELT_LOCATION("warmelt-normal.melt:3932:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[1];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3932:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NINTDATA__V24*/ curfptr[23];
-        /*_.ADD_NCTX_DATA__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.LET___V22*/ curfptr[21] = /*_.NINTDATA__V24*/ curfptr[23];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3927:/ clear");
-       /*clear*/ /*_.NORMAL_PREDEF__V23*/ curfptr[22] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3927:/ clear");
-       /*clear*/ /*_.NINTDATA__V24*/ curfptr[23] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3927:/ clear");
-       /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ;}
-      ;
-      /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V22*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3926:/ clear");
-      /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:3926:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:3926:/ block");
-     /*block*/{
-      /*_#IS_STRING__L7*/ curfnum[6] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V16*/ curfptr[15])) == OBMAG_STRING);;
-      MELT_LOCATION("warmelt-normal.melt:3935:/ cond");
-      /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3935:/ cond.then");
-      MELT_LOCATION("warmelt-normal.melt:3935:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:3936:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:3938:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[3];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-          MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-          MELT_LOCATION("warmelt-normal.melt:3938:/ apply.arg");
-          argtab[2].bp_cstring =  "discr_string";
-          /*_.NORMAL_PREDEF__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3937:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:3937:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[10])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V31*/ curfptr[30] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3937:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[25]), "NDATA_DISCRX");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:3937:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), (/*_.QUOTED__V16*/ curfptr[15]), "NSTR_STRING");
-          ;
-          /*_.NSTRDATA__V30*/ curfptr[21] = /*_.INST__V31*/ curfptr[30];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:3941:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:3941:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTRDATA__V30*/ curfptr[21];
-          /*_.ADD_NCTX_DATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.LET___V28*/ curfptr[23] = /*_.NSTRDATA__V30*/ curfptr[21];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:3936:/ clear");
-         /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[25] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3936:/ clear");
-         /*clear*/ /*_.NSTRDATA__V30*/ curfptr[21] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:3936:/ clear");
-         /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ;}
-        ;
-        /*_.IFELSE___V27*/ curfptr[22] = /*_.LET___V28*/ curfptr[23];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3935:/ clear");
-        /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-normal.melt:3935:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3935:/ block");
-       /*block*/{
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:3946:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:3946:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:3946:/ cond");
-          /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-          MELT_LOCATION("warmelt-normal.melt:3946:/ cond.then");
-          /*_.IFELSE___V34*/ curfptr[21] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-normal.melt:3946:/ cond.else");
-          
-           MELT_LOCATION("warmelt-normal.melt:3946:/ block");
-           /*block*/{
-            /*block*/{
-             
-             {
-             MELT_LOCATION("warmelt-normal.melt:3946:/ locexp");
-             melt_assert_failed(( "unexpected quoted stuff"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3946)?(3946):__LINE__, __FUNCTION__);
-;}
-             ;
-             /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;}
-            ;
-            /*epilog*/}
-           ;
-           }
-          ;
-          /*_.IFCPP___V33*/ curfptr[25] = /*_.IFELSE___V34*/ curfptr[21];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:3946:/ clear");
-          /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:3946:/ cppif.else");
-        /*_.IFCPP___V33*/ curfptr[25] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-normal.melt:3943:/ block");
-        /*block*/{
-         /*_.PROGN___V35*/ curfptr[31] = /*_.IFCPP___V33*/ curfptr[25];;}
-        ;
-        /*_.IFELSE___V27*/ curfptr[22] = /*_.PROGN___V35*/ curfptr[31];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:3935:/ clear");
-        /*clear*/ /*_.IFCPP___V33*/ curfptr[25] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:3935:/ clear");
-        /*clear*/ /*_.PROGN___V35*/ curfptr[31] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V21*/ curfptr[19] = /*_.IFELSE___V27*/ curfptr[22];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3926:/ clear");
-      /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3926:/ clear");
-      /*clear*/ /*_.IFELSE___V27*/ curfptr[22] = 0 ;}
-     ;
-     }
-    ;
-    /*_.NDATA__V19*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3924:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3924:/ clear");
-    /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3950:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3950:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3950:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_quote ndata";
-     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3950:/ apply.arg");
-     argtab[3].bp_long = 3950;
-     /*_.DEBUG_MSG_FUN__V37*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V36*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3950:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3950:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3950:/ cppif.else");
-  /*_.IFCPP___V36*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L9*/ curfnum[5] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[12])));;
-  MELT_LOCATION("warmelt-normal.melt:3951:/ cond");
-  /*cond*/ if (/*_#IS_A__L9*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3951:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3951:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:3952:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:3953:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:3953:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[13])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V41*/ curfptr[19] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (1), (/*_.QUOTED__V16*/ curfptr[15]), "NCONST_SVAL");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (3), (/*_.NDATA__V19*/ curfptr[18]), "NCONST_DATA");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:3953:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[19])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[19]), (2), (/*_.CURPROC__V17*/ curfptr[16]), "NCONST_PROC");
-      ;
-      /*_.NCONST__V40*/ curfptr[22] = /*_.INST__V41*/ curfptr[19];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:3959:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V17*/ curfptr[16]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V42*/ curfptr[21] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:3959:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V42*/ curfptr[21]), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:3960:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:3960:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:3960:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_quote in routine nconst";
-        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:3960:/ apply.arg");
-        argtab[3].bp_long = 3960;
-        /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCONST__V40*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:3960:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:3960:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:3960:/ cppif.else");
-     /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:3961:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V40*/ curfptr[22];;
-      MELT_LOCATION("warmelt-normal.melt:3961:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V39*/ curfptr[31] = /*_.RETURN___V45*/ curfptr[43];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
-     /*clear*/ /*_.NCONST__V40*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
-     /*clear*/ /*_.NRPRO_CONST__V42*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
-     /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:3952:/ clear");
-     /*clear*/ /*_.RETURN___V45*/ curfptr[43] = 0 ;}
-    ;
-    /*_.IFELSE___V38*/ curfptr[25] = /*_.LET___V39*/ curfptr[31];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
-    /*clear*/ /*_.LET___V39*/ curfptr[31] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3951:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:3951:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3963:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3963:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:3963:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_quote in init ndata";
-       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[6];
-       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:3963:/ apply.arg");
-       argtab[3].bp_long = 3963;
-       /*_.DEBUG_MSG_FUN__V47*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NDATA__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V46*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3963:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3963:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[21] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3963:/ cppif.else");
-    /*_.IFCPP___V46*/ curfptr[22] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:3964:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.NDATA__V19*/ curfptr[18];;
-     MELT_LOCATION("warmelt-normal.melt:3964:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:3962:/ block");
-    /*block*/{
-     /*_.PROGN___V49*/ curfptr[43] = /*_.RETURN___V48*/ curfptr[42];;}
-    ;
-    /*_.IFELSE___V38*/ curfptr[25] = /*_.PROGN___V49*/ curfptr[43];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
-    /*clear*/ /*_.IFCPP___V46*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
-    /*clear*/ /*_.RETURN___V48*/ curfptr[42] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3951:/ clear");
-    /*clear*/ /*_.PROGN___V49*/ curfptr[43] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V38*/ curfptr[25];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.QUOTED__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.DISCRIM__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_#__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.NDATA__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.IFCPP___V36*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_#IS_A__L9*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3919:/ clear");
-  /*clear*/ /*_.IFELSE___V38*/ curfptr[25] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3913:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3913:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3913:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_QUOTE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_112_warmelt_normal_NORMEXP_QUOTE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_113_warmelt_normal_NORMEXP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_normal_NORMEXP_COMMENT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_COMMENT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:3969:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:3969:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3970:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3970:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:3970:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3970:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3970:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3970:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3970:/ locexp");
-      melt_assert_failed(( "check comment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3970)?(3970):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3970:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3970:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3970:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3971:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3971:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:3971:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3971:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3971:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3971:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3971:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3971)?(3971):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3971:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3971:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3971:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3972:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3972:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:3972:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:3972:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:3972:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:3972:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:3972:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3972)?(3972):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3972:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3972:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3972:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:3973:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:3973:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:3973:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_comment start recv";
-    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:3973:/ apply.arg");
-    argtab[3].bp_long = 3973;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:3973:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:3973:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:3973:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:3974:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:3974:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3975:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCOMM_STR");/*_.SCOMM__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3976:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3976:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_COMMENT*/ curfrout->tabval[4])), (2), "CLASS_NREP_COMMENT");/*_.INST__V18*/ curfptr[17] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3976:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3976:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCOMM_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V18*/ curfptr[17]), (1), (/*_.SCOMM__V16*/ curfptr[15]), "NCOMM_STRING");
-   ;
-   /*_.NCOMM__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3980:/ apply");
-  /*apply*/{
-   /*_.CSYM__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_COMMENT_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3981:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3981:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYM__V19*/ curfptr[18]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3981:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.NCOMM__V17*/ curfptr[16]), "LETBIND_EXPR");
-   ;
-   /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:3986:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:3986:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[9])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYM__V19*/ curfptr[18]), "NOCC_SYMB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3986:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND");
-   ;
-   /*_.CLOCC__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-  ;
-  /*_.BINDLIST__V24*/ curfptr[23] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[10]))));;
-  MELT_LOCATION("warmelt-normal.melt:3993:/ cond");
-  /*cond*/ if (/*_.SCOMM__V16*/ curfptr[15]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:3993:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:3993:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:3993:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:3993:/ block");
-     /*block*/{
-      /*_#IS_STRING__L5*/ curfnum[0] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])) == OBMAG_STRING);;
-      MELT_LOCATION("warmelt-normal.melt:3993:/ cond");
-      /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:3993:/ cond.then");
-      /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:3993:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:3993:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:3993:/ locexp");
-         melt_assert_failed(( "check scomm"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (3993)?(3993):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:3993:/ clear");
-      /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:3993:/ clear");
-      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:3993:/ cppif.else");
-    /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.IF___V25*/ curfptr[24] = /*_.IFCPP___V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3993:/ clear");
-    /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:3993:/ cond.else");
-  
-   /*_.IF___V25*/ curfptr[24] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:3994:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3995:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3995:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3995:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_comment end ncomm";
-     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3995:/ apply.arg");
-     argtab[3].bp_long = 3995;
-     /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCOMM__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3995:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3995:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3995:/ cppif.else");
-  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3996:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3996:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3996:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_comment return clocc";
-     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3996:/ apply.arg");
-     argtab[3].bp_long = 3996;
-     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3996:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3996:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3996:/ cppif.else");
-  /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:3997:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:3997:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:3997:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_comment return bindlist";
-     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:3997:/ apply.arg");
-     argtab[3].bp_long = 3997;
-     /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:3997:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:3997:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:3997:/ cppif.else");
-  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:3998:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V22*/ curfptr[21];;
-   MELT_LOCATION("warmelt-normal.melt:3998:/ putxtraresult");
-   if (!xrestab_ || !xresdescr_) goto labend_rout;
-   if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-   if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V24*/ curfptr[23]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:3998:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V34*/ curfptr[32];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.NCOMM__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.CSYM__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.CLOCC__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.BINDLIST__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:3974:/ clear");
-  /*clear*/ /*_.RETURN___V34*/ curfptr[32] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:3969:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:3969:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:3969:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_COMMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_113_warmelt_normal_NORMEXP_COMMENT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_114_warmelt_normal_NORMEXP_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_normal_NORMEXP_KEYWORD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 32
-  void* varptr[32];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<32; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 32;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_KEYWORD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4003:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4003:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4004:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4004:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4004:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4004:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4004:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4004:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4004:/ locexp");
-      melt_assert_failed(( "check keyword recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4004)?(4004):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4004:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4004:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4004:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4005:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4005:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4005:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4005:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4005:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4005:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4005:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4005)?(4005):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4005:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4005:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4005:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4006:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4006:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4006:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4006:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4006:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4006:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4006:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4006)?(4006):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4006:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4006:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4006:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4008:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4008:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4008:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_keyword recv";
-    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4008:/ apply.arg");
-    argtab[3].bp_long = 4008;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4008:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4008:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4008:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4009:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4009:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4009:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4009:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4];
-   /*_.KDATA__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_KEYWORD_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4010:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4012:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4012:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-normal.melt:4012:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4012:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4012:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4012:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4012:/ locexp");
-       melt_assert_failed(( "check curproc"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4012)?(4012):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4012:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4012:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4012:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L6*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));;
-  MELT_LOCATION("warmelt-normal.melt:4013:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4013:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4013:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4014:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4015:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.CONSTLIST__V21*/ curfptr[20] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4016:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4016:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[7])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V23*/ curfptr[22] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.KDATA__V15*/ curfptr[14]), "NCONST_DATA");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4016:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC");
-      ;
-      /*_.NCONST__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:4022:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:4022:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:4022:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_keyword routine curproc";
-        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:4022:/ apply.arg");
-        argtab[3].bp_long = 4022;
-        /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4022:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4022:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:4022:/ cppif.else");
-     /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4023:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.CONSTLIST__V21*/ curfptr[20]), (melt_ptr_t)(/*_.KDATA__V15*/ curfptr[14]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:4024:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:4024:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:4024:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_keyword result nconst";
-        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:4024:/ apply.arg");
-        argtab[3].bp_long = 4024;
-        /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCONST__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4024:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4024:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:4024:/ cppif.else");
-     /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:4025:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V22*/ curfptr[21];;
-      MELT_LOCATION("warmelt-normal.melt:4025:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V20*/ curfptr[19] = /*_.RETURN___V28*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
-     /*clear*/ /*_.CONSTLIST__V21*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
-     /*clear*/ /*_.NCONST__V22*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
-     /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
-     /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4014:/ clear");
-     /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;}
-    ;
-    /*_.IFELSE___V19*/ curfptr[17] = /*_.LET___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
-    /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4013:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:4013:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:4028:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:4028:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:4028:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_keyword routineinit result kdata";
-       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
-       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:4028:/ apply.arg");
-       argtab[3].bp_long = 4028;
-       /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.KDATA__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V29*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4028:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4028:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:4028:/ cppif.else");
-    /*_.IFCPP___V29*/ curfptr[20] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:4029:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.KDATA__V15*/ curfptr[14];;
-     MELT_LOCATION("warmelt-normal.melt:4029:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4027:/ block");
-    /*block*/{
-     /*_.PROGN___V32*/ curfptr[24] = /*_.RETURN___V31*/ curfptr[23];;}
-    ;
-    /*_.IFELSE___V19*/ curfptr[17] = /*_.PROGN___V32*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
-    /*clear*/ /*_.IFCPP___V29*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
-    /*clear*/ /*_.RETURN___V31*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4013:/ clear");
-    /*clear*/ /*_.PROGN___V32*/ curfptr[24] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V19*/ curfptr[17];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
-  /*clear*/ /*_.KDATA__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
-  /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4009:/ clear");
-  /*clear*/ /*_.IFELSE___V19*/ curfptr[17] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4003:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:4003:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4003:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_KEYWORD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_114_warmelt_normal_NORMEXP_KEYWORD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 24
-  void* varptr[24];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<24; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 24;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FILL_NORMAL_FORMALBIND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
- /*_.FARGB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.FORMSYMBMAP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:4036:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V6*/ curfptr[5])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4036:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4037:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4037:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4037:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4037:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4037:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4037:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4037:/ locexp");
-      melt_assert_failed(( "check fargb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4037)?(4037):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4037:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4037:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4037:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4038:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4038:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.FTYP__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4039:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 0, "BINDER");/*_.FSYMB__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4040:/ apply");
-  /*apply*/{
-   /*_.FDATASLOT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[1])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4045:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-normal.melt:4045:/ apply.arg");
-   argtab[2].bp_cstring =  "class_formal_binding";
-   /*_.NORMAL_PREDEF__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NONZERO_HASH__L2*/ curfnum[0] = 
-   (melt_nonzerohash());;
-  /*_.MAKE_INTEGERBOX__V14*/ curfptr[13] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#NONZERO_HASH__L2*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-normal.melt:4042:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4042:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V16*/ curfptr[15] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (0), (/*_.SLOC__V6*/ curfptr[5]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (2), (/*_.NORMAL_PREDEF__V13*/ curfptr[12]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (7), (/*_.MAKE_INTEGERBOX__V14*/ curfptr[13]), "NINST_HASH");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4042:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V16*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V16*/ curfptr[15]), (8), (/*_.FDATASLOT__V12*/ curfptr[11]), "NINST_SLOTS");
-   ;
-   /*_.FARGDATA__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4049:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4049:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:4049:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5];
-   /*_.FSYMBDATA__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.FSYMB__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4050:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V5*/ curfptr[4];
-   MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-normal.melt:4050:/ apply.arg");
-   argtab[2].bp_cstring =  "primitive arg type";
-   /*_.FTYPDATA__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FTYP__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4052:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4052:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[2] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.FTYP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
-    MELT_LOCATION("warmelt-normal.melt:4052:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4052:/ cond.then");
-    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4052:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4052:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4052:/ locexp");
-       melt_assert_failed(( "check ftyp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4052)?(4052):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4052:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4052:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4052:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4053:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4053:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FARGDATA__V15*/ curfptr[14];
-   /*_.ADD_NCTX_DATA__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.NCX__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4054:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4054:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!BINDER*/ curfrout->tabval[9]);
-   MELT_LOCATION("warmelt-normal.melt:4054:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FSYMBDATA__V17*/ curfptr[16];
-   /*_.FILL_DATA_SLOT__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4055:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4055:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FBIND_TYPE*/ curfrout->tabval[10]);
-   MELT_LOCATION("warmelt-normal.melt:4055:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FTYPDATA__V18*/ curfptr[17];
-   /*_.FILL_DATA_SLOT__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:4056:/ locexp");
-  meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.FORMSYMBMAP__V3*/ curfptr[2]), 
-			   (meltobject_ptr_t) (/*_.FSYMB__V11*/ curfptr[10]), 
-			   (melt_ptr_t)(/*_.FARGDATA__V15*/ curfptr[14]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4057:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.FARGDATA__V15*/ curfptr[14];;
-   MELT_LOCATION("warmelt-normal.melt:4057:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V24*/ curfptr[23];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FTYP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FSYMB__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FDATASLOT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_#NONZERO_HASH__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FARGDATA__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FSYMBDATA__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FTYPDATA__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FILL_DATA_SLOT__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.FILL_DATA_SLOT__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4038:/ clear");
-  /*clear*/ /*_.RETURN___V24*/ curfptr[23] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4036:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-normal.melt:4036:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4036:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4036:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FILL_NORMAL_FORMALBIND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_115_warmelt_normal_FILL_NORMAL_FORMALBIND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FILL_NORMAL_FORMALS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
- /*_.SARGS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NARGTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.FORMSYMBMAP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FORMSYMBMAP__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:4061:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4061:/ block");
-/*block*/{
- /*citerblock FOREACH_IN_MULTIPLE*/ {
-  /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SARGS__V2*/ curfptr[1]);
-   for (/*_#IX__L1*/ curfnum[0] = 0;  
-	(/*_#IX__L1*/ curfnum[0] >= 0) && (/*_#IX__L1*/ curfnum[0] <  cit1__EACHTUP_ln);  
-	/*_#IX__L1*/ curfnum[0]++) {
-   /*_.FARGB__V8*/ curfptr[7] = melt_multiple_nth((melt_ptr_t)(/*_.SARGS__V2*/ curfptr[1]),  /*_#IX__L1*/ curfnum[0]);
-   
- 
-  MELT_LOCATION("warmelt-normal.melt:4065:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4065:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];
-    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];
-    MELT_LOCATION("warmelt-normal.melt:4065:/ apply.arg");
-    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V7*/ curfptr[6];
-    /*_.FARGDATA__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FARGB__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4067:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4067:/ block");
-    /*block*/{
-     /*_#IS_A__L2*/ curfnum[1] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[1])));;
-     MELT_LOCATION("warmelt-normal.melt:4067:/ cond");
-     /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4067:/ cond.then");
-     /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4067:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4067:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4067:/ locexp");
-        melt_assert_failed(( "check fargdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4067)?(4067):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4067:/ clear");
-     /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4067:/ clear");
-     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4067:/ cppif.else");
-   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.MAKE_INTEGERBOX__V12*/ curfptr[10] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L1*/ curfnum[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4068:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4068:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.FARGDATA__V9*/ curfptr[8]), (5), (/*_.MAKE_INTEGERBOX__V12*/ curfptr[10]), "NINST_OBJNUM");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4068:/ touch");
-    meltgc_touch(/*_.FARGDATA__V9*/ curfptr[8]);
-    ;
-    /*epilog*/}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4070:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2]), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.FARGDATA__V9*/ curfptr[8]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4065:/ clear");
-   /*clear*/ /*_.FARGDATA__V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4065:/ clear");
-   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4065:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V12*/ curfptr[10] = 0 ;}
-  ;
-  if (/*_#IX__L1*/ curfnum[0]<0) break;
-   } /* end cit1__EACHTUP */ 
- 
-  /*citerepilog*/
-  MELT_LOCATION("warmelt-normal.melt:4062:/ clear");
-  /*clear*/ /*_.FARGB__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4062:/ clear");
-  /*clear*/ /*_#IX__L1*/ curfnum[0] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FILL_NORMAL_FORMALS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_116_warmelt_normal_FILL_NORMAL_FORMALS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("FILL_NORMAL_EXPANSION", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
- /*_.SEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NEXPTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4074:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4074:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:4077:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4077:/ newclosure");
-   /*newclosure*/ /*_.LAMBDA___V7*/ curfptr[6] =
-   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[0] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[1] = (melt_ptr_t)(/*_.SLOC__V5*/ curfptr[4]);
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4077:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[2] = (melt_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2]);
-  ;
-  /*_.LAMBDA___V6*/ curfptr[5] = /*_.LAMBDA___V7*/ curfptr[6];;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4075:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:4075:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V6*/ curfptr[5];
-  /*_.MULTIPLE_EVERY__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:4074:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V8*/ curfptr[7];;
-  MELT_LOCATION("warmelt-normal.melt:4074:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4074:/ clear");
- /*clear*/ /*_.LAMBDA___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4074:/ clear");
- /*clear*/ /*_.MULTIPLE_EVERY__V8*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("FILL_NORMAL_EXPANSION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_117_warmelt_normal_FILL_NORMAL_EXPANSION*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_118_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_118_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4077:/ getarg");
- /*_.EXPCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4077:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4077:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-normal.melt:4078:/ block");
- /*block*/{
-  /*_.DISCRCOMP__V3*/ curfptr[2] = 
-   (melt_discr((melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1])));;
-  /*_#__L2*/ curfnum[1] = 
-   ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])));;
-  MELT_LOCATION("warmelt-normal.melt:4080:/ cond");
-  /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4080:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4080:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4084:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]);
-     MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-normal.melt:4084:/ apply.arg");
-     argtab[2].bp_cstring =  "discr_verbatim_string";
-     /*_.NORMAL_PREDEF__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4082:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4082:/ rawallocobj");
-     /*rawallocobj*/ { melt_ptr_t newobj = 0;
-      melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V7*/ curfptr[6] =
-      newobj; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4082:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (2), (/*_.NORMAL_PREDEF__V5*/ curfptr[4]), "NDATA_DISCRX");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4082:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.INST__V7*/ curfptr[6]), (5), (/*_.EXPCOMP__V2*/ curfptr[1]), "NSTR_STRING");
-     ;
-     /*_.INST___V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4081:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4081:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INST___V6*/ curfptr[5];
-     /*_.ADD_NCTX_DATA__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[1])), (melt_ptr_t)((/*~NCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.COMPDATA__V4*/ curfptr[3] = /*_.ADD_NCTX_DATA__V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
-    /*clear*/ /*_.NORMAL_PREDEF__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
-    /*clear*/ /*_.INST___V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
-    /*clear*/ /*_.ADD_NCTX_DATA__V8*/ curfptr[7] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4080:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:4080:/ block");
-   /*block*/{
-    /*_#__L3*/ curfnum[2] = 
-     ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-normal.melt:4087:/ cond");
-    /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4087:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:4087:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4088:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4088:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]);
-       MELT_LOCATION("warmelt-normal.melt:4088:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]);
-       /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFELSE___V9*/ curfptr[4] = /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4087:/ clear");
-      /*clear*/ /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:4087:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4087:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4091:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4091:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:4091:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
-         argtab[0].bp_cstring =  "bad component in C code expansion expcomp";
-         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:4091:/ apply.arg");
-         argtab[3].bp_long = 4091;
-         /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V11*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[5];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4091:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4091:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4091:/ cppif.else");
-      /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4092:/ locexp");
-      melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "unexpected component in C code expansion"), (melt_ptr_t)0);}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4090:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4087:/ clear");
-      /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;}
-     ;
-     }
-    ;
-    /*_.COMPDATA__V4*/ curfptr[3] = /*_.IFELSE___V9*/ curfptr[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
-    /*clear*/ /*_#__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4080:/ clear");
-    /*clear*/ /*_.IFELSE___V9*/ curfptr[4] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:4094:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)((/*~NEXPTUPLE*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.COMPDATA__V4*/ curfptr[3]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4078:/ clear");
-  /*clear*/ /*_.DISCRCOMP__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4078:/ clear");
-  /*clear*/ /*_#__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4078:/ clear");
-  /*clear*/ /*_.COMPDATA__V4*/ curfptr[3] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_118_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 49
-  void* varptr[49];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<49; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 49;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFPRIMITIVE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4099:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4099:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4100:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4100:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4100:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4100:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4100:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4100:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4100:/ locexp");
-      melt_assert_failed(( "check defprimitive recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4100)?(4100):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4100:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4100:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4100:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4101:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4101:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4101:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4101:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4101:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4101:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4101:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4101)?(4101):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4101:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4101:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4101:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4102:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4102:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4102:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4102:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4102:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4102:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4102:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4102)?(4102):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4102:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4102:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4102:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4103:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4103:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4104:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4105:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SARGS__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4106:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SPRIM_TYPE");/*_.STYPE__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4107:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SPRIM_EXPANSION");/*_.SEXP__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4108:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4108:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V14*/ curfptr[13];
-   /*_.SPRIMBIND__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4110:/ apply");
-  /*apply*/{
-   /*_.NSLOTUPLE__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[4])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16])));;
-  /*_.NEXPTUPLE__V20*/ curfptr[19] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[0])));;
-  /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));;
-  /*_.NARGTUPLE__V21*/ curfptr[20] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[4])));;
-  MELT_LOCATION("warmelt-normal.melt:4118:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4118:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_multiple";
-   /*_.NORMAL_PREDEF__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4115:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4115:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V24*/ curfptr[23] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.NORMAL_PREDEF__V22*/ curfptr[21]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4115:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.NEXPTUPLE__V20*/ curfptr[19]), "NTUP_COMP");
-   ;
-   /*_.NEXPDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4123:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4123:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_multiple";
-   /*_.NORMAL_PREDEF__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4120:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4120:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V27*/ curfptr[26] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.NORMAL_PREDEF__V25*/ curfptr[24]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4120:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NARGTUPLE__V21*/ curfptr[20]), "NTUP_COMP");
-   ;
-   /*_.NARGDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4128:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4128:/ apply.arg");
-   argtab[2].bp_cstring =  "class_primitive";
-   /*_.NORMAL_PREDEF__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NONZERO_HASH__L6*/ curfnum[5] = 
-   (melt_nonzerohash());;
-  /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NONZERO_HASH__L6*/ curfnum[5])));;
-  MELT_LOCATION("warmelt-normal.melt:4125:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4125:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V31*/ curfptr[30] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (7), (/*_.MAKE_INTEGERBOX__V29*/ curfptr[28]), "NINST_HASH");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4125:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V31*/ curfptr[30]), (8), (/*_.NSLOTUPLE__V19*/ curfptr[18]), "NINST_SLOTS");
-   ;
-   /*_.NPRIMDATA__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4131:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4131:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4131:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.NSYMDATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));;
-  /*_#I__L8*/ curfnum[7] = 
-   ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) * (2));;
-  /*_#I__L9*/ curfnum[8] = 
-   ((3) + (/*_#I__L8*/ curfnum[7]));;
-  /*_.FORMSYMBMAP__V33*/ curfptr[32] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[12])), (/*_#I__L9*/ curfnum[8])));;
-  MELT_LOCATION("warmelt-normal.melt:4135:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4135:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPRIMDATA__V30*/ curfptr[29];
-   /*_.ADD_NCTX_DATA__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4136:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4136:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22];
-   /*_.ADD_NCTX_DATA__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4137:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4137:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25];
-   /*_.ADD_NCTX_DATA__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4140:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[5];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGTUPLE__V21*/ curfptr[20];
-   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V33*/ curfptr[32];
-   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4140:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.SARGS__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4142:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXPTUPLE__V20*/ curfptr[19];
-   MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4142:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4149:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4149:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_string";
-   /*_.NORMAL_PREDEF__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4150:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4147:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4147:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[18])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V42*/ curfptr[41] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4147:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.NORMAL_PREDEF__V39*/ curfptr[38]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4147:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.NAMED_NAME__V40*/ curfptr[39]), "NSTR_STRING");
-   ;
-   /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4145:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4145:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INST___V41*/ curfptr[40];
-   /*_.ADD_NCTX_DATA__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4144:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4144:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[17]);
-   MELT_LOCATION("warmelt-normal.melt:4144:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ADD_NCTX_DATA__V43*/ curfptr[42];
-   /*_.FILL_DATA_SLOT__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4151:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4151:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_FORMALS*/ curfrout->tabval[20]);
-   MELT_LOCATION("warmelt-normal.melt:4151:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25];
-   /*_.FILL_DATA_SLOT__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4152:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4152:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_EXPANSION*/ curfrout->tabval[21]);
-   MELT_LOCATION("warmelt-normal.melt:4152:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22];
-   /*_.FILL_DATA_SLOT__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4154:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4154:/ apply.arg");
-   argtab[2].bp_cstring =  "primitive res type";
-   /*_.NORMAL_PREDEF__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.STYPE__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4153:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4153:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!PRIM_TYPE*/ curfrout->tabval[22]);
-   MELT_LOCATION("warmelt-normal.melt:4153:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NORMAL_PREDEF__V47*/ curfptr[46];
-   /*_.FILL_DATA_SLOT__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_A__L10*/ curfnum[9] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[23])));;
-  MELT_LOCATION("warmelt-normal.melt:4156:/ cond");
-  /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4156:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4156:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4157:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4157:/ putslot");
-     /*putslot*/
-     melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17])) == OBMAG_OBJECT);
-     melt_putfield_object((/*_.SPRIMBIND__V18*/ curfptr[17]), (1), (/*_.NPRIMDATA__V30*/ curfptr[29]), "FIXBIND_DATA");
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4157:/ touch");
-     meltgc_touch(/*_.SPRIMBIND__V18*/ curfptr[17]);
-     ;
-     /*epilog*/}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4160:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-   MELT_LOCATION("warmelt-normal.melt:4160:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V49*/ curfptr[48];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.SARGS__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.STYPE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.SPRIMBIND__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NSLOTUPLE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NEXPTUPLE__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NARGTUPLE__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NEXPDATA__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NARGDATA__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#NONZERO_HASH__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NPRIMDATA__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NSYMDATA__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FORMSYMBMAP__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V43*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FILL_DATA_SLOT__V44*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FILL_DATA_SLOT__V45*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FILL_DATA_SLOT__V46*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V47*/ curfptr[46] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.FILL_DATA_SLOT__V48*/ curfptr[47] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4103:/ clear");
-  /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4099:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:4099:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4099:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFPRIMITIVE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_119_warmelt_normal_NORMEXP_DEFPRIMITIVE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 70
-  void* varptr[70];
-#define CURFRAM_NBVARNUM 24
-  long varnum[24];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<70; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 70;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFCITERATOR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4167:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4167:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4168:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4168:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4168:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4168:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4168:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4168:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4168:/ locexp");
-      melt_assert_failed(( "check defciterator recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4168)?(4168):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4168:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4168:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4168:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4169:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4169:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4169:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4169:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4169:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4169:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4169:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4169)?(4169):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4169:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4169:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4169:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4170:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4170:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4170:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4170:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4170:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4170:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4170:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4170)?(4170):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4170:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4170:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4170:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4171:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4172:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4173:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4174:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4174:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCITERDEF_CITERATOR");/*_.SC__V16*/ curfptr[15] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4175:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4175:/ block");
-    /*block*/{
-     /*_#IS_A__L4*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.SC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));;
-     MELT_LOCATION("warmelt-normal.melt:4175:/ cond");
-     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4175:/ cond.then");
-     /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4175:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4175:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4175:/ locexp");
-        melt_assert_failed(( "check sciter"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4175)?(4175):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4175:/ clear");
-     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4175:/ clear");
-     /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4175:/ cppif.else");
-   /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V15*/ curfptr[14] = /*_.SC__V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4174:/ clear");
-   /*clear*/ /*_.SC__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4174:/ clear");
-   /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;}
-  ;
-  /*_.SCITER__V19*/ curfptr[17] = /*_.LET___V15*/ curfptr[14];;
-  MELT_LOCATION("warmelt-normal.melt:4177:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4177:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V14*/ curfptr[13];
-   /*_.CITBIND__V20*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4178:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 2, "CITER_START_FORMALS");/*_.CITSTAFOR__V21*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4180:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V22*/ curfptr[21] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V22*/ curfptr[21])));;
-  /*_.SLOTUP__V23*/ curfptr[22] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));;
-  /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16])));;
-  /*_.FORMSTATUP__V24*/ curfptr[23] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));;
-  MELT_LOCATION("warmelt-normal.melt:4183:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 4, "CITER_BODY_FORMALS");/*_.CITBODFOR__V25*/ curfptr[24] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24])));;
-  /*_.FORMBODTUP__V26*/ curfptr[25] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6])));;
-  MELT_LOCATION("warmelt-normal.melt:4186:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 3, "CITER_STATE");/*_.CITSTATSY__V27*/ curfptr[26] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4187:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEF__V28*/ curfptr[27] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CITEXPBEF__V28*/ curfptr[27])));;
-  /*_.EXPBEFTUP__V29*/ curfptr[28] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[7])));;
-  MELT_LOCATION("warmelt-normal.melt:4189:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 6, "CITER_EXPAFTER");/*_.CITEXPAFT__V30*/ curfptr[29] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CITEXPAFT__V30*/ curfptr[29])));;
-  /*_.EXPAFTTUP__V31*/ curfptr[30] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L9*/ curfnum[8])));;
-  /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16])));;
-  /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24])));;
-  /*_#I__L12*/ curfnum[11] = 
-   ((/*_#MULTIPLE_LENGTH__L10*/ curfnum[9]) + (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10]));;
-  /*_#I__L13*/ curfnum[12] = 
-   ((/*_#I__L12*/ curfnum[11]) * (2));;
-  /*_#I__L14*/ curfnum[13] = 
-   ((5) + (/*_#I__L13*/ curfnum[12]));;
-  /*_.FORMSYMBMAP__V32*/ curfptr[31] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (/*_#I__L14*/ curfnum[13])));;
-  MELT_LOCATION("warmelt-normal.melt:4196:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4196:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_string";
-   /*_.NORMAL_PREDEF__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4197:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4194:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4194:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V36*/ curfptr[35] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4194:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4194:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.NORMAL_PREDEF__V33*/ curfptr[32]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4194:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (5), (/*_.NAMED_NAME__V34*/ curfptr[33]), "NSTR_STRING");
-   ;
-   /*_.NAMSTRDATA__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4201:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-normal.melt:4201:/ apply.arg");
-   argtab[2].bp_cstring =  "class_citerator";
-   /*_.NORMAL_PREDEF__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#NONZERO_HASH__L15*/ curfnum[14] = 
-   (melt_nonzerohash());;
-  /*_.MAKE_INTEGERBOX__V38*/ curfptr[37] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#NONZERO_HASH__L15*/ curfnum[14])));;
-  MELT_LOCATION("warmelt-normal.melt:4198:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4198:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[10])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V40*/ curfptr[39] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), (/*_.NORMAL_PREDEF__V37*/ curfptr[36]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (7), (/*_.MAKE_INTEGERBOX__V38*/ curfptr[37]), "NINST_HASH");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4198:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (8), (/*_.SLOTUP__V23*/ curfptr[22]), "NINST_SLOTS");
-   ;
-   /*_.INSDATA__V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4206:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4206:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V39*/ curfptr[38];
-   /*_.ADD_NCTX_DATA__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4207:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4207:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V35*/ curfptr[34];
-   /*_.ADD_NCTX_DATA__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#GET_INT__L16*/ curfnum[15] = 
-   (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[13]))));;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:4209:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L16*/ curfnum[15]), (melt_ptr_t)(/*_.NAMSTRDATA__V35*/ curfptr[34]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4211:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[5];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSTATUP__V24*/ curfptr[23];
-   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V32*/ curfptr[31];
-   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4211:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.FILL_NORMAL_FORMALS__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CITSTAFOR__V21*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4212:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4215:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4215:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_multiple";
-    /*_.NORMAL_PREDEF__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4212:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4212:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V46*/ curfptr[45] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (2), (/*_.NORMAL_PREDEF__V44*/ curfptr[43]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4212:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V46*/ curfptr[45]), (5), (/*_.FORMSTATUP__V24*/ curfptr[23]), "NTUP_COMP");
-    ;
-    /*_.NSTATUPDATA__V45*/ curfptr[44] = /*_.INST__V46*/ curfptr[45];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4218:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4218:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSTATUPDATA__V45*/ curfptr[44];
-    /*_.ADD_NCTX_DATA__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L17*/ curfnum[16] = 
-    (melt_get_int((melt_ptr_t)((/*!CITER_START_FORMALS*/ curfrout->tabval[16]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4219:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L17*/ curfnum[16]), (melt_ptr_t)(/*_.NSTATUPDATA__V45*/ curfptr[44]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V44*/ curfptr[43] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
-   /*clear*/ /*_.NSTATUPDATA__V45*/ curfptr[44] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V47*/ curfptr[46] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4212:/ clear");
-   /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4223:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4223:/ block");
-   /*block*/{
-    /*_#IS_A__L18*/ curfnum[16] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CITSTATSY__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[17])));;
-    MELT_LOCATION("warmelt-normal.melt:4223:/ cond");
-    /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4223:/ cond.then");
-    /*_.IFELSE___V49*/ curfptr[44] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4223:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4223:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4223:/ locexp");
-       melt_assert_failed(( "check citstatsy"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4223)?(4223):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V48*/ curfptr[43] = /*_.IFELSE___V49*/ curfptr[44];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4223:/ clear");
-    /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4223:/ clear");
-    /*clear*/ /*_.IFELSE___V49*/ curfptr[44] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4223:/ cppif.else");
-  /*_.IFCPP___V48*/ curfptr[43] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4224:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4224:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4224:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4224:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    /*_.NSTATSYDATA__V50*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.CITSTATSY__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L19*/ curfnum[16] = 
-    (melt_get_int((melt_ptr_t)((/*!CITER_STATE*/ curfrout->tabval[19]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4225:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L19*/ curfnum[16]), (melt_ptr_t)(/*_.NSTATSYDATA__V50*/ curfptr[46]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4224:/ clear");
-   /*clear*/ /*_.NSTATSYDATA__V50*/ curfptr[46] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4224:/ clear");
-   /*clear*/ /*_#GET_INT__L19*/ curfnum[16] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4229:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[5];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMBODTUP__V26*/ curfptr[25];
-   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V32*/ curfptr[31];
-   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4229:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.FILL_NORMAL_FORMALS__V51*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.CITBODFOR__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4230:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4233:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4233:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_multiple";
-    /*_.NORMAL_PREDEF__V52*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4230:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4230:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V54*/ curfptr[53] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.NORMAL_PREDEF__V52*/ curfptr[46]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4230:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (5), (/*_.FORMBODTUP__V26*/ curfptr[25]), "NTUP_COMP");
-    ;
-    /*_.NBODTUPDATA__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4236:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4236:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODTUPDATA__V53*/ curfptr[52];
-    /*_.ADD_NCTX_DATA__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L20*/ curfnum[16] = 
-    (melt_get_int((melt_ptr_t)((/*!CITER_BODY_FORMALS*/ curfrout->tabval[20]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4237:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L20*/ curfnum[16]), (melt_ptr_t)(/*_.NBODTUPDATA__V53*/ curfptr[52]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V52*/ curfptr[46] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
-   /*clear*/ /*_.NBODTUPDATA__V53*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4230:/ clear");
-   /*clear*/ /*_#GET_INT__L20*/ curfnum[16] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4240:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.EXPBEFTUP__V29*/ curfptr[28];
-   MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4240:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.FILL_NORMAL_EXPANSION__V56*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITEXPBEF__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4241:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4244:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4244:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_multiple";
-    /*_.NORMAL_PREDEF__V57*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4241:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4241:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V59*/ curfptr[58] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.NORMAL_PREDEF__V57*/ curfptr[52]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4241:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V59*/ curfptr[58]), (5), (/*_.EXPBEFTUP__V29*/ curfptr[28]), "NTUP_COMP");
-    ;
-    /*_.NBEFTUPDATA__V58*/ curfptr[54] = /*_.INST__V59*/ curfptr[58];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4247:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4247:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBEFTUPDATA__V58*/ curfptr[54];
-    /*_.ADD_NCTX_DATA__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L21*/ curfnum[16] = 
-    (melt_get_int((melt_ptr_t)((/*!CITER_EXPBEFORE*/ curfrout->tabval[22]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4248:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L21*/ curfnum[16]), (melt_ptr_t)(/*_.NBEFTUPDATA__V58*/ curfptr[54]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V57*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
-   /*clear*/ /*_.NBEFTUPDATA__V58*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V60*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4241:/ clear");
-   /*clear*/ /*_#GET_INT__L21*/ curfnum[16] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4251:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.EXPAFTTUP__V31*/ curfptr[30];
-   MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4251:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-   /*_.FILL_NORMAL_EXPANSION__V61*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITEXPAFT__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4252:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4255:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4255:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_multiple";
-    /*_.NORMAL_PREDEF__V62*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4252:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4252:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V64*/ curfptr[63] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (2), (/*_.NORMAL_PREDEF__V62*/ curfptr[54]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4252:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V64*/ curfptr[63]), (5), (/*_.EXPAFTTUP__V31*/ curfptr[30]), "NTUP_COMP");
-    ;
-    /*_.NAFTTUPDATA__V63*/ curfptr[59] = /*_.INST__V64*/ curfptr[63];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4258:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4258:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAFTTUPDATA__V63*/ curfptr[59];
-    /*_.ADD_NCTX_DATA__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L22*/ curfnum[16] = 
-    (melt_get_int((melt_ptr_t)((/*!CITER_EXPAFTER*/ curfrout->tabval[23]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4259:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V23*/ curfptr[22]), (/*_#GET_INT__L22*/ curfnum[16]), (melt_ptr_t)(/*_.NAFTTUPDATA__V63*/ curfptr[59]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V62*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
-   /*clear*/ /*_.NAFTTUPDATA__V63*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V65*/ curfptr[64] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4252:/ clear");
-   /*clear*/ /*_#GET_INT__L22*/ curfnum[16] = 0 ;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4261:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4261:/ block");
-   /*block*/{
-    /*_#IS_A__L23*/ curfnum[16] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CITBIND__V20*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR_BINDING*/ curfrout->tabval[24])));;
-    MELT_LOCATION("warmelt-normal.melt:4261:/ cond");
-    /*cond*/ if (/*_#IS_A__L23*/ curfnum[16]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4261:/ cond.then");
-    /*_.IFELSE___V67*/ curfptr[59] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4261:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4261:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4261:/ locexp");
-       melt_assert_failed(( "check citbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4261)?(4261):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V67*/ curfptr[59] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V66*/ curfptr[54] = /*_.IFELSE___V67*/ curfptr[59];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4261:/ clear");
-    /*clear*/ /*_#IS_A__L23*/ curfnum[16] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4261:/ clear");
-    /*clear*/ /*_.IFELSE___V67*/ curfptr[59] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4261:/ cppif.else");
-  /*_.IFCPP___V66*/ curfptr[54] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4262:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4262:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.CITBIND__V20*/ curfptr[15])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.CITBIND__V20*/ curfptr[15]), (1), (/*_.INSDATA__V39*/ curfptr[38]), "FIXBIND_DATA");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4262:/ touch");
-   meltgc_touch(/*_.CITBIND__V20*/ curfptr[15]);
-   ;
-   /*epilog*/}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4267:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4267:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:4267:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_defciterator return insdata";
-     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[16];
-     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:4267:/ apply.arg");
-     argtab[3].bp_long = 4267;
-     /*_.DEBUG_MSG_FUN__V69*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.INSDATA__V39*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V68*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[59];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4267:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4267:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[59] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4267:/ cppif.else");
-  /*_.IFCPP___V68*/ curfptr[64] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4268:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V39*/ curfptr[38];;
-   MELT_LOCATION("warmelt-normal.melt:4268:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V70*/ curfptr[59];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.SCITER__V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CITBIND__V20*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CITSTAFOR__V21*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CLASS_FIELDS__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.SLOTUP__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FORMSTATUP__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CITBODFOR__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FORMBODTUP__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CITSTATSY__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CITEXPBEF__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.EXPBEFTUP__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.CITEXPAFT__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.EXPAFTTUP__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FORMSYMBMAP__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.NAMSTRDATA__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#NONZERO_HASH__L15*/ curfnum[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.INSDATA__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V42*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_#GET_INT__L16*/ curfnum[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_FORMALS__V43*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.IFCPP___V48*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_FORMALS__V51*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_EXPANSION__V56*/ curfptr[46] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_EXPANSION__V61*/ curfptr[52] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.IFCPP___V66*/ curfptr[54] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.IFCPP___V68*/ curfptr[64] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4171:/ clear");
-  /*clear*/ /*_.RETURN___V70*/ curfptr[59] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4167:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:4167:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4167:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFCITERATOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_120_warmelt_normal_NORMEXP_DEFCITERATOR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_121_warmelt_normal_NORMEXP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_121_warmelt_normal_NORMEXP_CITERATION_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 128
-  void* varptr[128];
-#define CURFRAM_NBVARNUM 34
-  long varnum[34];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<128; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 128;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_CITERATION", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4276:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4276:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4277:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4277:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4277:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration recv";
-    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4277:/ apply.arg");
-    argtab[3].bp_long = 4277;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4277:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4277:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4277:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4278:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4278:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CITERATION*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4278:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4278:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4278:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4278:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4278:/ locexp");
-      melt_assert_failed(( "check citeration recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4278)?(4278):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4278:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4278:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4278:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4279:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4279:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4279:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4279:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4279:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4279:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4279:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4279)?(4279):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4279:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4279:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4279:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4280:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4280:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-normal.melt:4280:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4280:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4280:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4280:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4280:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4280)?(4280):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4280:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4280:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4280:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4281:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4281:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4282:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCITER_OPER");/*_.SOPER__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4283:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SARGOP_ARGS");/*_.SARGS__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4284:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SCITER_VARBIND");/*_.SVBIND__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4285:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCITER_BODY");/*_.SBODY__V19*/ curfptr[18] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));;
-  /*_.NBNDTUP__V20*/ curfptr[19] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-normal.melt:4287:/ apply");
-  /*apply*/{
-   /*_.BODYENV__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4289:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V22*/ curfptr[21] = slot; };
-  ;
-  /*_.UNCACHELIST__V23*/ curfptr[22] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4293:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4293:/ block");
-   /*block*/{
-    /*_#IS_A__L6*/ curfnum[5] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-normal.melt:4293:/ cond");
-    /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4293:/ cond.then");
-    /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4293:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4293:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4293:/ locexp");
-       melt_assert_failed(( "check soper"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4293)?(4293):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4293:/ clear");
-    /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4293:/ clear");
-    /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4293:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4295:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply");
-   /*multiapply 4args, 1x.res*/ {
-    union meltparam_un argtab[3];
-    
-    union meltparam_un restab[1];
-    memset(&restab, 0, sizeof(restab));
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDINGS__V28*/ curfptr[27];
-    MELT_LOCATION("warmelt-normal.melt:4295:/ multiapply.appl");
-    /*_.NARGS__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SARGS__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4295:/ block");
-   /*block*/{
-    /*_#NULL__L7*/ curfnum[5] = 
-     ((/*_.NBINDINGS__V28*/ curfptr[27]) == NULL);;
-    MELT_LOCATION("warmelt-normal.melt:4298:/ cond");
-    /*cond*/ if (/*_#NULL__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4298:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:4298:/ block");
-     /*block*/{
-      /*_.MAKE_LIST__V30*/ curfptr[29] = 
-       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));;
-      MELT_LOCATION("warmelt-normal.melt:4298:/ compute");
-      /*_.NBINDINGS__V28*/ curfptr[27] = /*_.SETQ___V31*/ curfptr[30] = /*_.MAKE_LIST__V30*/ curfptr[29];;
-      /*_.IF___V29*/ curfptr[28] = /*_.SETQ___V31*/ curfptr[30];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4298:/ clear");
-      /*clear*/ /*_.MAKE_LIST__V30*/ curfptr[29] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4298:/ clear");
-      /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:4298:/ cond.else");
-    
-     /*_.IF___V29*/ curfptr[28] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:4299:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:4299:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:4299:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_citeration nargs";
-       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:4299:/ apply.arg");
-       argtab[3].bp_long = 4299;
-       /*_.DEBUG_MSG_FUN__V33*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V32*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[30];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4299:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4299:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[30] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:4299:/ cppif.else");
-    /*_.IFCPP___V32*/ curfptr[29] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:4300:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:4300:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:4300:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_citeration nbindings";
-       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7];
-       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:4300:/ apply.arg");
-       argtab[3].bp_long = 4300;
-       /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V34*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4300:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4300:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:4300:/ cppif.else");
-    /*_.IFCPP___V34*/ curfptr[30] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:4301:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4301:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 2, "CITER_START_FORMALS");/*_.STARFORMALS__V37*/ curfptr[36] = slot; };
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:4302:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:4302:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:4302:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_citeration starformals";
-        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[7];
-        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:4302:/ apply.arg");
-        argtab[3].bp_long = 4302;
-        /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4302:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4302:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:4302:/ cppif.else");
-     /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36])));;
-     /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26])));;
-     /*_#I__L13*/ curfnum[12] = 
-      ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[7]) != (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11]));;
-     MELT_LOCATION("warmelt-normal.melt:4303:/ cond");
-     /*cond*/ if (/*_#I__L13*/ curfnum[12]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4303:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:4303:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4305:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V41*/ curfptr[40] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4305:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "start formals and actuals length mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V41*/ curfptr[40]));}
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4306:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-        MELT_LOCATION("warmelt-normal.melt:4306:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4304:/ block");
-       /*block*/{
-        /*_.PROGN___V43*/ curfptr[42] = /*_.RETURN___V42*/ curfptr[41];;}
-       ;
-       /*_.IF___V40*/ curfptr[38] = /*_.PROGN___V43*/ curfptr[42];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4303:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V41*/ curfptr[40] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4303:/ clear");
-       /*clear*/ /*_.RETURN___V42*/ curfptr[41] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4303:/ clear");
-       /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:4303:/ cond.else");
-     
-      /*_.IF___V40*/ curfptr[38] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4309:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4309:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[41] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[1] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[2] = (melt_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4309:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V45*/ curfptr[41])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V45*/ curfptr[41])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V45*/ curfptr[41])->tabval[3] = (melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]);
-      ;
-      /*_.LAMBDA___V44*/ curfptr[40] = /*_.LAMBDA___V45*/ curfptr[41];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4307:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4307:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.STARFORMALS__V37*/ curfptr[36];
-      MELT_LOCATION("warmelt-normal.melt:4307:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[40];
-      /*_.MULTIPLE_EVERY_BOTH__V46*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.NARGS__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:4331:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:4331:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:4331:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_citeration nbndtup";
-        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
-        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:4331:/ apply.arg");
-        argtab[3].bp_long = 4331;
-        /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4331:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4331:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:4331:/ cppif.else");
-     /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:4333:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:4333:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:4333:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_citeration svbind";
-        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
-        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:4333:/ apply.arg");
-        argtab[3].bp_long = 4333;
-        /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4333:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4333:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:4333:/ cppif.else");
-     /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:4334:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4334:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 4, "CITER_BODY_FORMALS");/*_.CITBFORM__V52*/ curfptr[51] = slot; };
-      ;
-      /*_#NBCITBFORM__L16*/ curfnum[13] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51])));;
-      /*_.NLOCBINDTUP__V53*/ curfptr[52] = 
-       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));;
-      /*_.NSYMOCCTUP__V54*/ curfptr[53] = 
-       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4339:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4339:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:4339:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_citeration citbform";
-         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16];
-         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:4339:/ apply.arg");
-         argtab[3].bp_long = 4339;
-         /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V55*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4339:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4339:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4339:/ cppif.else");
-      /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));;
-      /*_#I__L19*/ curfnum[18] = 
-       ((/*_#NBCITBFORM__L16*/ curfnum[13]) != (/*_#MULTIPLE_LENGTH__L18*/ curfnum[16]));;
-      MELT_LOCATION("warmelt-normal.melt:4340:/ cond");
-      /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:4340:/ cond.then");
-      MELT_LOCATION("warmelt-normal.melt:4340:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:4342:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V58*/ curfptr[57] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4342:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "body formals and actuals length mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ curfptr[57]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4343:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-         MELT_LOCATION("warmelt-normal.melt:4343:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4341:/ block");
-        /*block*/{
-         /*_.PROGN___V60*/ curfptr[59] = /*_.RETURN___V59*/ curfptr[58];;}
-        ;
-        /*_.IF___V57*/ curfptr[55] = /*_.PROGN___V60*/ curfptr[59];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4340:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V58*/ curfptr[57] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4340:/ clear");
-        /*clear*/ /*_.RETURN___V59*/ curfptr[58] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4340:/ clear");
-        /*clear*/ /*_.PROGN___V60*/ curfptr[59] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-normal.melt:4340:/ cond.else");
-      
-       /*_.IF___V57*/ curfptr[55] = NULL;;
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4346:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4346:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V62*/ curfptr[58] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (7));
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[0] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[1] = (melt_ptr_t)(/*_.NLOCBINDTUP__V53*/ curfptr[52]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[2] = (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[3] = (melt_ptr_t)(/*_.SYCMAP__V22*/ curfptr[21]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[4] = (melt_ptr_t)(/*_.UNCACHELIST__V23*/ curfptr[22]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[5] = (melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]);
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4346:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V62*/ curfptr[58])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V62*/ curfptr[58])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V62*/ curfptr[58])->tabval[6] = (melt_ptr_t)(/*_.BODYENV__V21*/ curfptr[20]);
-       ;
-       /*_.LAMBDA___V61*/ curfptr[57] = /*_.LAMBDA___V62*/ curfptr[58];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4344:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4344:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITBFORM__V52*/ curfptr[51];
-       MELT_LOCATION("warmelt-normal.melt:4344:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V61*/ curfptr[57];
-       /*_.MULTIPLE_EVERY_BOTH__V63*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4386:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4386:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:4386:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_citeration nlocbindtup";
-         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
-         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:4386:/ apply.arg");
-         argtab[3].bp_long = 4386;
-         /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLOCBINDTUP__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V64*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4386:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4386:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4386:/ cppif.else");
-      /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4387:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4387:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:4387:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_citeration nsymocctup";
-         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19];
-         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:4387:/ apply.arg");
-         argtab[3].bp_long = 4387;
-         /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V66*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4387:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4387:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4387:/ cppif.else");
-      /*_.IFCPP___V66*/ curfptr[64] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:4388:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply");
-       /*multiapply 4args, 1x.res*/ {
-        union meltparam_un argtab[3];
-        
-        union meltparam_un restab[1];
-        memset(&restab, 0, sizeof(restab));
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BODYENV__V21*/ curfptr[20];MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.arg");
-        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-        MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.xres");
-        restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBODBINDINGS__V70*/ curfptr[69];
-        MELT_LOCATION("warmelt-normal.melt:4388:/ multiapply.appl");
-        /*_.NBODY__V69*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SBODY__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4388:/ block");
-       /*block*/{
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:4391:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:4391:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 
-           callcount;;
-          MELT_LOCATION("warmelt-normal.melt:4391:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
-           argtab[0].bp_cstring =  "normexp_citeration nbody";
-           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19];
-           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-normal.melt";
-           MELT_LOCATION("warmelt-normal.melt:4391:/ apply.arg");
-           argtab[3].bp_long = 4391;
-           /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODY__V69*/ curfptr[68]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V71*/ curfptr[70] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4391:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4391:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:4391:/ cppif.else");
-        /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:4392:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:4392:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L23*/ curfnum[19] = 
-           callcount;;
-          MELT_LOCATION("warmelt-normal.melt:4392:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
-           argtab[0].bp_cstring =  "normexp_citeration nbodbindings";
-           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[19];
-           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-normal.melt";
-           MELT_LOCATION("warmelt-normal.melt:4392:/ apply.arg");
-           argtab[3].bp_long = 4392;
-           /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBODBINDINGS__V70*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V73*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4392:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[19] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4392:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:4392:/ cppif.else");
-        /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-normal.melt:4393:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:4393:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 3, "CITER_STATE");/*_.CITSTATE__V76*/ curfptr[75] = slot; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4394:/ apply");
-         /*apply*/{
-          /*_.CITSTSYM__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.CITSTATE__V76*/ curfptr[75]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4395:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4395:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V79*/ curfptr[78] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.CITSTSYM__V77*/ curfptr[76]), "BINDER");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4395:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
-          ;
-          /*_.CITSTBIND__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4400:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4400:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V81*/ curfptr[80] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (1), (/*_.CITSTSYM__V77*/ curfptr[76]), "NOCC_SYMB");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4400:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[80])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V81*/ curfptr[80]), (3), (/*_.CITSTBIND__V78*/ curfptr[77]), "NOCC_BIND");
-          ;
-          /*_.CITSTOCC__V80*/ curfptr[79] = /*_.INST__V81*/ curfptr[80];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4405:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEFORE__V82*/ curfptr[81] = slot; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4406:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 6, "CITER_EXPAFTER");/*_.CITEXPAFTER__V83*/ curfptr[82] = slot; };
-         ;
-         /*_#I__L24*/ curfnum[19] = 
-          ((10) + (/*_#NBCITBFORM__L16*/ curfnum[13]));;
-         /*_.CITLOCMAP__V84*/ curfptr[83] = 
-          (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[25])), (/*_#I__L24*/ curfnum[19])));;
-         MELT_LOCATION("warmelt-normal.melt:4409:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4409:/ newclosure");
-           /*newclosure*/ /*_.LAMBDA___V86*/ curfptr[85] =
-           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (1));
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4409:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V86*/ curfptr[85])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V86*/ curfptr[85])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V86*/ curfptr[85])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]);
-          ;
-          /*_.CITEXPANDER__V85*/ curfptr[84] = /*_.LAMBDA___V86*/ curfptr[85];;}
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:4424:/ locexp");
-         meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.CITLOCMAP__V84*/ curfptr[83]), 
-			   (meltobject_ptr_t) (/*_.CITSTATE__V76*/ curfptr[75]), 
-			   (melt_ptr_t)(/*_.CITSTOCC__V80*/ curfptr[79]));}
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4425:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4425:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4425:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_citeration starformals again";
-            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24];
-            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4425:/ apply.arg");
-            argtab[3].bp_long = 4425;
-            /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V87*/ curfptr[86] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4425:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4425:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4425:/ cppif.else");
-         /*_.IFCPP___V87*/ curfptr[86] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4426:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4426:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4426:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_citeration nsymocctup again";
-            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[24];
-            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4426:/ apply.arg");
-            argtab[3].bp_long = 4426;
-            /*_.DEBUG_MSG_FUN__V90*/ curfptr[89] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V89*/ curfptr[87] = /*_.DEBUG_MSG_FUN__V90*/ curfptr[89];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4426:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4426:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ curfptr[89] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4426:/ cppif.else");
-         /*_.IFCPP___V89*/ curfptr[87] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-normal.melt:4429:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4429:/ newclosure");
-           /*newclosure*/ /*_.LAMBDA___V92*/ curfptr[91] =
-           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_32*/ curfrout->tabval[32])), (1));
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4429:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V92*/ curfptr[91])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V92*/ curfptr[91])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V92*/ curfptr[91])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]);
-          ;
-          /*_.LAMBDA___V91*/ curfptr[89] = /*_.LAMBDA___V92*/ curfptr[91];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4427:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[2];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4427:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NARGS__V27*/ curfptr[26];
-          MELT_LOCATION("warmelt-normal.melt:4427:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V91*/ curfptr[89];
-          /*_.MULTIPLE_EVERY_BOTH__V93*/ curfptr[92] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.STARFORMALS__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4434:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4434:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4434:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_citeration citlocmap middle";
-            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[24];
-            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4434:/ apply.arg");
-            argtab[3].bp_long = 4434;
-            /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V94*/ curfptr[93] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4434:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4434:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4434:/ cppif.else");
-         /*_.IFCPP___V94*/ curfptr[93] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4435:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4435:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L28*/ curfnum[24] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4435:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_citeration citbform again";
-            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[24];
-            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4435:/ apply.arg");
-            argtab[3].bp_long = 4435;
-            /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V96*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[96];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4435:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[24] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4435:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4435:/ cppif.else");
-         /*_.IFCPP___V96*/ curfptr[94] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-normal.melt:4438:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4438:/ newclosure");
-           /*newclosure*/ /*_.LAMBDA___V99*/ curfptr[98] =
-           meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_35*/ curfrout->tabval[35])), (2));
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4438:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V99*/ curfptr[98])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ curfptr[98])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ curfptr[98])->tabval[0] = (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]);
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4438:/ putclosedv");
-          /*putclosv*/
-          melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V99*/ curfptr[98])) == OBMAG_CLOSURE);
-          melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V99*/ curfptr[98])));
-          ((meltclosure_ptr_t)/*_.LAMBDA___V99*/ curfptr[98])->tabval[1] = (melt_ptr_t)(/*_.NSYMOCCTUP__V54*/ curfptr[53]);
-          ;
-          /*_.LAMBDA___V98*/ curfptr[96] = /*_.LAMBDA___V99*/ curfptr[98];;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4436:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4436:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V98*/ curfptr[96];
-          /*_.MULTIPLE_EVERY__V100*/ curfptr[99] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[33])), (melt_ptr_t)(/*_.CITBFORM__V52*/ curfptr[51]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4445:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4445:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4445:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_citeration citlocmap done";
-            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[24];
-            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4445:/ apply.arg");
-            argtab[3].bp_long = 4445;
-            /*_.DEBUG_MSG_FUN__V102*/ curfptr[101] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CITLOCMAP__V84*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V101*/ curfptr[100] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[101];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4445:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4445:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[101] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4445:/ cppif.else");
-         /*_.IFCPP___V101*/ curfptr[100] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-normal.melt:4446:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4446:/ apply");
-          /*apply*/{
-           /*_.CHKBEFORE__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)(/*_.CITEXPANDER__V85*/ curfptr[84]), (melt_ptr_t)(/*_.CITEXPBEFORE__V82*/ curfptr[81]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4447:/ apply");
-          /*apply*/{
-           /*_.CHKAFTER__V105*/ curfptr[104] =  melt_apply ((meltclosure_ptr_t)(/*_.CITEXPANDER__V85*/ curfptr[84]), (melt_ptr_t)(/*_.CITEXPAFTER__V83*/ curfptr[82]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-           }
-          ;
-          
-          #if ENABLE_CHECKING
-           MELT_LOCATION("warmelt-normal.melt:4449:/ cppif.then");
-          MELT_LOCATION("warmelt-normal.melt:4449:/ block");
-           /*block*/{
-            /*_#THE_CALLCOUNT__L30*/ curfnum[24] = 
-             callcount;;
-            MELT_LOCATION("warmelt-normal.melt:4449:/ apply");
-            /*apply*/{
-             union meltparam_un argtab[4];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
-             argtab[0].bp_cstring =  "normexp_citeration chkbefore";
-             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
-             argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[24];
-             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
-             argtab[2].bp_cstring =  "warmelt-normal.melt";
-             MELT_LOCATION("warmelt-normal.melt:4449:/ apply.arg");
-             argtab[3].bp_long = 4449;
-             /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CHKBEFORE__V104*/ curfptr[103]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            /*_.IFCPP___V106*/ curfptr[105] = /*_.DEBUG_MSG_FUN__V107*/ curfptr[106];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-normal.melt:4449:/ clear");
-            /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[24] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:4449:/ clear");
-            /*clear*/ /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] = 0 ;}
-           
-           #else /*ENABLE_CHECKING*/
-           MELT_LOCATION("warmelt-normal.melt:4449:/ cppif.else");
-          /*_.IFCPP___V106*/ curfptr[105] = (/*nil*/NULL);
-           #endif /*ENABLE_CHECKING*/
-           ;
-          
-          #if ENABLE_CHECKING
-           MELT_LOCATION("warmelt-normal.melt:4450:/ cppif.then");
-          MELT_LOCATION("warmelt-normal.melt:4450:/ block");
-           /*block*/{
-            /*_#THE_CALLCOUNT__L31*/ curfnum[24] = 
-             callcount;;
-            MELT_LOCATION("warmelt-normal.melt:4450:/ apply");
-            /*apply*/{
-             union meltparam_un argtab[4];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
-             argtab[0].bp_cstring =  "normexp_citeration chkafter";
-             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
-             argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[24];
-             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
-             argtab[2].bp_cstring =  "warmelt-normal.melt";
-             MELT_LOCATION("warmelt-normal.melt:4450:/ apply.arg");
-             argtab[3].bp_long = 4450;
-             /*_.DEBUG_MSG_FUN__V109*/ curfptr[108] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CHKAFTER__V105*/ curfptr[104]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            /*_.IFCPP___V108*/ curfptr[106] = /*_.DEBUG_MSG_FUN__V109*/ curfptr[108];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-normal.melt:4450:/ clear");
-            /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[24] = 0 ;
-            MELT_LOCATION("warmelt-normal.melt:4450:/ clear");
-            /*clear*/ /*_.DEBUG_MSG_FUN__V109*/ curfptr[108] = 0 ;}
-           
-           #else /*ENABLE_CHECKING*/
-           MELT_LOCATION("warmelt-normal.melt:4450:/ cppif.else");
-          /*_.IFCPP___V108*/ curfptr[106] = (/*nil*/NULL);
-           #endif /*ENABLE_CHECKING*/
-           ;
-          MELT_LOCATION("warmelt-normal.melt:4451:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-normal.melt:4452:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-normal.melt:4452:/ rawallocobj");
-            /*rawallocobj*/ { melt_ptr_t newobj = 0;
-             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[36])), (8), "CLASS_NREP_CITERATION");/*_.INST__V112*/ curfptr[111] =
-             newobj; };
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_CITERATOR", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (1), (/*_.SOPER__V16*/ curfptr[15]), "NCITER_CITERATOR");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_LOCBINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (6), (/*_.NLOCBINDTUP__V53*/ curfptr[52]), "NCITER_LOCBINDINGS");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_CHUNKBEFORE", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (2), (/*_.CHKBEFORE__V104*/ curfptr[103]), "NCITER_CHUNKBEFORE");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_BODY", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (4), (/*_.NBODY__V69*/ curfptr[68]), "NCITER_BODY");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_STATOCC", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (5), (/*_.CITSTOCC__V80*/ curfptr[79]), "NCITER_STATOCC");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_BODBINDINGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (7), (/*_.NBODBINDINGS__V70*/ curfptr[69]), "NCITER_BODBINDINGS");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4452:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NCITER_CHUNKAFTER", melt_magic_discr((melt_ptr_t)(/*_.INST__V112*/ curfptr[111])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V112*/ curfptr[111]), (3), (/*_.CHKAFTER__V105*/ curfptr[104]), "NCITER_CHUNKAFTER");
-            ;
-            /*_.NCITER__V111*/ curfptr[110] = /*_.INST__V112*/ curfptr[111];;}
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4462:/ getslot");
-           { melt_ptr_t slot=0;
-            melt_object_get_field(slot,(melt_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V113*/ curfptr[112] = slot; };
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4462:/ apply");
-           /*apply*/{
-            /*_.CSYM__V114*/ curfptr[113] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.NAMED_NAME__V113*/ curfptr[112]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-            }
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4463:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-normal.melt:4463:/ rawallocobj");
-            /*rawallocobj*/ { melt_ptr_t newobj = 0;
-             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V116*/ curfptr[115] =
-             newobj; };
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (0), (/*_.CSYM__V114*/ curfptr[113]), "BINDER");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4463:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V116*/ curfptr[115]), (2), (/*_.NCITER__V111*/ curfptr[110]), "LETBIND_EXPR");
-            ;
-            /*_.CBIND__V115*/ curfptr[114] = /*_.INST__V116*/ curfptr[115];;}
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4468:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-normal.melt:4468:/ rawallocobj");
-            /*rawallocobj*/ { melt_ptr_t newobj = 0;
-             melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V118*/ curfptr[117] =
-             newobj; };
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (1), (/*_.CSYM__V114*/ curfptr[113]), "NOCC_SYMB");
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4468:/ putslot");
-            /*putslot*/
-            melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V118*/ curfptr[117])) == OBMAG_OBJECT);
-            melt_putfield_object((/*_.INST__V118*/ curfptr[117]), (3), (/*_.CBIND__V115*/ curfptr[114]), "NOCC_BIND");
-            ;
-            /*_.CLOCC__V117*/ curfptr[116] = /*_.INST__V118*/ curfptr[117];;}
-           ;
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:4474:/ locexp");
-           meltgc_append_list((melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (melt_ptr_t)(/*_.CBIND__V115*/ curfptr[114]));}
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4478:/ block");
-           /*block*/{
-            MELT_LOCATION("warmelt-normal.melt:4478:/ newclosure");
-             /*newclosure*/ /*_.LAMBDA___V120*/ curfptr[119] =
-             meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_38*/ curfrout->tabval[38])), (1));
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4478:/ putclosedv");
-            /*putclosv*/
-            melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V120*/ curfptr[119])) == OBMAG_CLOSURE);
-            melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V120*/ curfptr[119])));
-            ((meltclosure_ptr_t)/*_.LAMBDA___V120*/ curfptr[119])->tabval[0] = (melt_ptr_t)(/*_.SYCMAP__V22*/ curfptr[21]);
-            ;
-            /*_.LAMBDA___V119*/ curfptr[118] = /*_.LAMBDA___V120*/ curfptr[119];;}
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4476:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[1];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4476:/ apply.arg");
-            argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V119*/ curfptr[118];
-            /*_.LIST_EVERY__V121*/ curfptr[120] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[37])), (melt_ptr_t)(/*_.UNCACHELIST__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-normal.melt:4479:/ cppif.then");
-           MELT_LOCATION("warmelt-normal.melt:4479:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L32*/ curfnum[24] = 
-              callcount;;
-             MELT_LOCATION("warmelt-normal.melt:4479:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
-              argtab[0].bp_cstring =  "normexp_citeration nciter";
-              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[24];
-              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-normal.melt";
-              MELT_LOCATION("warmelt-normal.melt:4479:/ apply.arg");
-              argtab[3].bp_long = 4479;
-              /*_.DEBUG_MSG_FUN__V123*/ curfptr[122] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCITER__V111*/ curfptr[110]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V122*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V123*/ curfptr[122];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:4479:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[24] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:4479:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V123*/ curfptr[122] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-normal.melt:4479:/ cppif.else");
-           /*_.IFCPP___V122*/ curfptr[121] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-normal.melt:4480:/ cppif.then");
-           MELT_LOCATION("warmelt-normal.melt:4480:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L33*/ curfnum[24] = 
-              callcount;;
-             MELT_LOCATION("warmelt-normal.melt:4480:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
-              argtab[0].bp_cstring =  "normexp_citeration result clocc";
-              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[24];
-              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-normal.melt";
-              MELT_LOCATION("warmelt-normal.melt:4480:/ apply.arg");
-              argtab[3].bp_long = 4480;
-              /*_.DEBUG_MSG_FUN__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLOCC__V117*/ curfptr[116]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V124*/ curfptr[122] = /*_.DEBUG_MSG_FUN__V125*/ curfptr[124];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:4480:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[24] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:4480:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V125*/ curfptr[124] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-normal.melt:4480:/ cppif.else");
-           /*_.IFCPP___V124*/ curfptr[122] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           
-           #if ENABLE_CHECKING
-            MELT_LOCATION("warmelt-normal.melt:4481:/ cppif.then");
-           MELT_LOCATION("warmelt-normal.melt:4481:/ block");
-            /*block*/{
-             /*_#THE_CALLCOUNT__L34*/ curfnum[24] = 
-              callcount;;
-             MELT_LOCATION("warmelt-normal.melt:4481:/ apply");
-             /*apply*/{
-              union meltparam_un argtab[4];
-              memset(&argtab, 0, sizeof(argtab));
-              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
-              argtab[0].bp_cstring =  "normexp_citeration result nbindings";
-              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
-              argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[24];
-              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
-              argtab[2].bp_cstring =  "warmelt-normal.melt";
-              MELT_LOCATION("warmelt-normal.melt:4481:/ apply.arg");
-              argtab[3].bp_long = 4481;
-              /*_.DEBUG_MSG_FUN__V127*/ curfptr[126] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBINDINGS__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-              }
-             ;
-             /*_.IFCPP___V126*/ curfptr[124] = /*_.DEBUG_MSG_FUN__V127*/ curfptr[126];;
-             /*epilog*/
-             MELT_LOCATION("warmelt-normal.melt:4481:/ clear");
-             /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[24] = 0 ;
-             MELT_LOCATION("warmelt-normal.melt:4481:/ clear");
-             /*clear*/ /*_.DEBUG_MSG_FUN__V127*/ curfptr[126] = 0 ;}
-            
-            #else /*ENABLE_CHECKING*/
-            MELT_LOCATION("warmelt-normal.melt:4481:/ cppif.else");
-           /*_.IFCPP___V126*/ curfptr[124] = (/*nil*/NULL);
-            #endif /*ENABLE_CHECKING*/
-            ;
-           MELT_LOCATION("warmelt-normal.melt:4482:/ block");
-           /*block*/{
-            /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V117*/ curfptr[116];;
-            MELT_LOCATION("warmelt-normal.melt:4482:/ putxtraresult");
-            if (!xrestab_ || !xresdescr_) goto labend_rout;
-            if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-            if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDINGS__V28*/ curfptr[27]);
-            ;
-            MELT_LOCATION("warmelt-normal.melt:4482:/ finalreturn");
-            ;
-            /*finalret*/ goto labend_rout ;}
-           ;
-           /*_.LET___V110*/ curfptr[108] = /*_.RETURN___V128*/ curfptr[126];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.NCITER__V111*/ curfptr[110] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.NAMED_NAME__V113*/ curfptr[112] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.CSYM__V114*/ curfptr[113] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.CBIND__V115*/ curfptr[114] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.CLOCC__V117*/ curfptr[116] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.LAMBDA___V119*/ curfptr[118] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.LIST_EVERY__V121*/ curfptr[120] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.IFCPP___V122*/ curfptr[121] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.IFCPP___V124*/ curfptr[122] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.IFCPP___V126*/ curfptr[124] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4451:/ clear");
-           /*clear*/ /*_.RETURN___V128*/ curfptr[126] = 0 ;}
-          ;
-          /*_.LET___V103*/ curfptr[101] = /*_.LET___V110*/ curfptr[108];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
-          /*clear*/ /*_.CHKBEFORE__V104*/ curfptr[103] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
-          /*clear*/ /*_.CHKAFTER__V105*/ curfptr[104] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
-          /*clear*/ /*_.IFCPP___V106*/ curfptr[105] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
-          /*clear*/ /*_.IFCPP___V108*/ curfptr[106] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4446:/ clear");
-          /*clear*/ /*_.LET___V110*/ curfptr[108] = 0 ;}
-         ;
-         /*_.LET___V75*/ curfptr[73] = /*_.LET___V103*/ curfptr[101];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITSTATE__V76*/ curfptr[75] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITSTSYM__V77*/ curfptr[76] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITSTBIND__V78*/ curfptr[77] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITSTOCC__V80*/ curfptr[79] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITEXPBEFORE__V82*/ curfptr[81] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITEXPAFTER__V83*/ curfptr[82] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_#I__L24*/ curfnum[19] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITLOCMAP__V84*/ curfptr[83] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.CITEXPANDER__V85*/ curfptr[84] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.IFCPP___V87*/ curfptr[86] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.IFCPP___V89*/ curfptr[87] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.LAMBDA___V91*/ curfptr[89] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V93*/ curfptr[92] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.IFCPP___V94*/ curfptr[93] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.IFCPP___V96*/ curfptr[94] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.LAMBDA___V98*/ curfptr[96] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.MULTIPLE_EVERY__V100*/ curfptr[99] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.IFCPP___V101*/ curfptr[100] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4393:/ clear");
-         /*clear*/ /*_.LET___V103*/ curfptr[101] = 0 ;}
-        ;
-        /*_.MULTI___V68*/ curfptr[66] = /*_.LET___V75*/ curfptr[73];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
-        /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
-        /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
-        /*clear*/ /*_.LET___V75*/ curfptr[73] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4388:/ clear");
-       /*clear*/ /*_.NBODBINDINGS__V70*/ curfptr[69] = 0 ;}
-      ;
-      /*_.LET___V51*/ curfptr[49] = /*_.MULTI___V68*/ curfptr[66];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.CITBFORM__V52*/ curfptr[51] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_#NBCITBFORM__L16*/ curfnum[13] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.NLOCBINDTUP__V53*/ curfptr[52] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.NSYMOCCTUP__V54*/ curfptr[53] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.IF___V57*/ curfptr[55] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.LAMBDA___V61*/ curfptr[57] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V63*/ curfptr[59] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.IFCPP___V66*/ curfptr[64] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4334:/ clear");
-      /*clear*/ /*_.MULTI___V68*/ curfptr[66] = 0 ;}
-     ;
-     /*_.LET___V36*/ curfptr[34] = /*_.LET___V51*/ curfptr[49];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.STARFORMALS__V37*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.IF___V40*/ curfptr[38] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.LAMBDA___V44*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V46*/ curfptr[42] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4301:/ clear");
-     /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;}
-    ;
-    /*_.MULTI___V26*/ curfptr[24] = /*_.LET___V36*/ curfptr[34];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
-    /*clear*/ /*_#NULL__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
-    /*clear*/ /*_.IF___V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
-    /*clear*/ /*_.IFCPP___V32*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
-    /*clear*/ /*_.IFCPP___V34*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
-    /*clear*/ /*_.LET___V36*/ curfptr[34] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4295:/ clear");
-   /*clear*/ /*_.NBINDINGS__V28*/ curfptr[27] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V26*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.SOPER__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.SARGS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.SVBIND__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.SBODY__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.NBNDTUP__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.BODYENV__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.SYCMAP__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.UNCACHELIST__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4281:/ clear");
-  /*clear*/ /*_.MULTI___V26*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4276:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:4276:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4276:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_CITERATION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_121_warmelt_normal_NORMEXP_CITERATION*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_122_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_122_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4309:/ getarg");
- /*_.CURNARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4309:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CURFORB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4309:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4309:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4310:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4310:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4310:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration curnarg";
-    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4310:/ apply.arg");
-    argtab[3].bp_long = 4310;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4310:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4310:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4310:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4311:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4311:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4311:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration curforb";
-    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4311:/ apply.arg");
-    argtab[3].bp_long = 4311;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4311:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4311:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4311:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4312:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4312:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4312:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4312:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4312:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4312:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4312:/ locexp");
-      melt_assert_failed(( "check curforb"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4312)?(4312):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4312:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4312:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4312:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4313:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4313:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4313:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-   /*_.CURCTYP__V10*/ curfptr[8] = meltgc_send((melt_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4314:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FORMCTYP__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4315:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 0, "BINDER");/*_.FORMARG__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#__L5*/ curfnum[1] = 
-   ((/*_.CURCTYP__V10*/ curfptr[8]) == (/*_.FORMCTYP__V11*/ curfptr[10]));;
-  MELT_LOCATION("warmelt-normal.melt:4317:/ cond");
-  /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4317:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4317:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4318:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4318:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4318:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[3])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V14*/ curfptr[13] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (3), ((/*~SLOC*/ curfclos->tabval[1])), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (0), (/*_.FORMARG__V12*/ curfptr[11]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (1), (/*_.CURCTYP__V10*/ curfptr[8]), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4318:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V14*/ curfptr[13])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V14*/ curfptr[13]), (2), (/*_.CURNARG__V2*/ curfptr[1]), "LETBIND_EXPR");
-      ;
-      /*_.NLBIND__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4324:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)((/*~NBNDTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NLBIND__V13*/ curfptr[12]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4318:/ clear");
-     /*clear*/ /*_.NLBIND__V13*/ curfptr[12] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4317:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:4317:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4327:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~SOPER*/ curfclos->tabval[3])), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[12] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:4327:/ locexp");
-    melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "start formal and actual type mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[12]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4328:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMARG__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:4328:/ locexp");
-    melt_inform_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "mismatched citerator start formal argument"), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4326:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4317:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4317:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
-  /*clear*/ /*_.CURCTYP__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
-  /*clear*/ /*_.FORMCTYP__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
-  /*clear*/ /*_.FORMARG__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4313:/ clear");
-  /*clear*/ /*_#__L5*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4309:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4309:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4309:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_122_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_123_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_123_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4346:/ getarg");
- /*_.CURVBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4346:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CURBFORM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4346:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4346:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4347:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4347:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4347:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration curvbind";
-    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4347:/ apply.arg");
-    argtab[3].bp_long = 4347;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4347:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4347:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4347:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4348:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4348:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4348:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration curbform";
-    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4348:/ apply.arg");
-    argtab[3].bp_long = 4348;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4348:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4348:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4348:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4349:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4349:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4349:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4349:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4349:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4349:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4349:/ locexp");
-      melt_assert_failed(( "check curvbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4349)?(4349):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4349:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4349:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4349:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4350:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4350:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4350:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4350:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4350:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4350:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4350:/ locexp");
-      melt_assert_failed(( "check curbform"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4350)?(4350):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4350:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4350:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4350:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4351:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4351:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.CURVSYM__V12*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4352:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CURCTYP__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4353:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 0, "BINDER");/*_.CURVFOR__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4355:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V15*/ curfptr[14] = slot; };
-  ;
-  /*_#__L6*/ curfnum[1] = 
-   ((/*_.CURCTYP__V13*/ curfptr[12]) == (/*_.FBIND_TYPE__V15*/ curfptr[14]));;
-  MELT_LOCATION("warmelt-normal.melt:4355:/ cond");
-  /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4355:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4355:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4356:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4356:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4356:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[2])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V17*/ curfptr[16] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (3), ((/*~SLOC*/ curfclos->tabval[0])), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.CURVSYM__V12*/ curfptr[10]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.CURCTYP__V13*/ curfptr[12]), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4356:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*nil*/NULL)), "LETBIND_EXPR");
-      ;
-      /*_.NLVBIND__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4362:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4362:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V19*/ curfptr[18] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), ((/*~SLOC*/ curfclos->tabval[0])), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURCTYP__V13*/ curfptr[12]), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.CURVSYM__V12*/ curfptr[10]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4362:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.NLVBIND__V16*/ curfptr[15]), "NOCC_BIND");
-      ;
-      /*_.CLOCC__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4368:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)((/*~NLOCBINDTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NLVBIND__V16*/ curfptr[15]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4369:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.CLOCC__V18*/ curfptr[17]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:4370:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:4370:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:4370:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_citeration nlvbind";
-        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:4370:/ apply.arg");
-        argtab[3].bp_long = 4370;
-        /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NLVBIND__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4370:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4370:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:4370:/ cppif.else");
-     /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4375:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[3])), 
-			   (meltobject_ptr_t) (/*_.CURVSYM__V12*/ curfptr[10]), 
-			   (melt_ptr_t)(/*_.CLOCC__V18*/ curfptr[17]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4376:/ locexp");
-     meltgc_append_list((melt_ptr_t)((/*~UNCACHELIST*/ curfclos->tabval[4])), (melt_ptr_t)(/*_.CURVSYM__V12*/ curfptr[10]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4356:/ clear");
-     /*clear*/ /*_.NLVBIND__V16*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4356:/ clear");
-     /*clear*/ /*_.CLOCC__V18*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4356:/ clear");
-     /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4355:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:4355:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4379:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~SOPER*/ curfclos->tabval[5])), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[20] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:4379:/ locexp");
-    melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "local formal and actual type mismatch in citerator"), (melt_ptr_t)(/*_.NAMED_NAME__V22*/ curfptr[20]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4381:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[15] = slot; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4381:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V23*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[17] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:4380:/ locexp");
-    melt_inform_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "mismatched citerator local variable"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[17]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4378:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4355:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4355:/ clear");
-    /*clear*/ /*_.BINDER__V23*/ curfptr[15] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4355:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[17] = 0 ;}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
-  /*clear*/ /*_.CURVSYM__V12*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
-  /*clear*/ /*_.CURCTYP__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
-  /*clear*/ /*_.CURVFOR__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
-  /*clear*/ /*_.FBIND_TYPE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4351:/ clear");
-  /*clear*/ /*_#__L6*/ curfnum[1] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4384:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:4384:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURVBIND__V2*/ curfptr[1];
-  /*_.PUT_ENV__V25*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[4])), (melt_ptr_t)((/*~BODYENV*/ curfclos->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:4346:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V25*/ curfptr[19];;
-  MELT_LOCATION("warmelt-normal.melt:4346:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4346:/ clear");
- /*clear*/ /*_.PUT_ENV__V25*/ curfptr[19] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_123_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_124_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_124_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4409:/ getarg");
- /*_.XTUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4409:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4410:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4410:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4410:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration expanding xtup";
-    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4410:/ apply.arg");
-    argtab[3].bp_long = 4410;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4410:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4410:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4410:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4413:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4413:/ newclosure");
-   /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] =
-   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1));
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4413:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (melt_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0]));
-  ;
-  /*_.LAMBDA___V5*/ curfptr[3] = /*_.LAMBDA___V6*/ curfptr[5];;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4411:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-normal.melt:4411:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[3];
-  /*_.MULTIPLE_MAP__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:4409:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V7*/ curfptr[6];;
-  MELT_LOCATION("warmelt-normal.melt:4409:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4409:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4409:/ clear");
- /*clear*/ /*_.LAMBDA___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4409:/ clear");
- /*clear*/ /*_.MULTIPLE_MAP__V7*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_124_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_125_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_125_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4413:/ getarg");
- /*_.CURELEM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4413:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4413:/ block");
-/*block*/{
- /*_#IS_A__L2*/ curfnum[1] = 
-  melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-normal.melt:4414:/ cond");
- /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:4414:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:4414:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4415:/ block");
-   /*block*/{
-    /*_.EXELEM__V5*/ curfptr[4] = 
-     melt_get_mapobjects((meltmapobjects_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]));;
-    /*_#NULL__L3*/ curfnum[2] = 
-     ((/*_.EXELEM__V5*/ curfptr[4]) == NULL);;
-    MELT_LOCATION("warmelt-normal.melt:4416:/ cond");
-    /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4416:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:4416:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4417:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4417:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:4417:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_citeration bad curelem";
-         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:4417:/ apply.arg");
-         argtab[3].bp_long = 4417;
-         /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4417:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4417:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4417:/ cppif.else");
-      /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.IF___V6*/ curfptr[5] = /*_.IFCPP___V7*/ curfptr[6];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4416:/ clear");
-      /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:4416:/ cond.else");
-    
-     /*_.IF___V6*/ curfptr[5] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:4418:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:4418:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4418:/ cond");
-      /*cond*/ if (/*_.EXELEM__V5*/ curfptr[4]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:4418:/ cond.then");
-      /*_.IFELSE___V10*/ curfptr[6] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:4418:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:4418:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:4418:/ locexp");
-         melt_assert_failed(( "check exelem in citeration"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4418)?(4418):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[6];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4418:/ clear");
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:4418:/ cppif.else");
-    /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V4*/ curfptr[3] = /*_.EXELEM__V5*/ curfptr[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
-    /*clear*/ /*_.EXELEM__V5*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
-    /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
-    /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4415:/ clear");
-    /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
-   ;
-   /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4414:/ clear");
-   /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-normal.melt:4414:/ cond.else");
- 
-  /*_.IFELSE___V3*/ curfptr[2] = /*_.CURELEM__V2*/ curfptr[1];;
-  }
- ;
- MELT_LOCATION("warmelt-normal.melt:4413:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-normal.melt:4413:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4413:/ clear");
- /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4413:/ clear");
- /*clear*/ /*_.IFELSE___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_125_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_126_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_126_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4429:/ getarg");
- /*_.CURVLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4429:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CURNARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4429:/ getarg");
- if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[1].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4429:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4430:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4430:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4430:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration curvloc";
-    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4430:/ apply.arg");
-    argtab[3].bp_long = 4430;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4430:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4430:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4430:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4431:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4431:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4431:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_citeration curnarg";
-    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4431:/ apply.arg");
-    argtab[3].bp_long = 4431;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4431:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4431:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4431:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4432:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V8*/ curfptr[6] = slot; };
- ;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:4432:/ locexp");
- meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), 
-			   (meltobject_ptr_t) (/*_.BINDER__V8*/ curfptr[6]), 
-			   (melt_ptr_t)(/*_.CURNARG__V3*/ curfptr[2]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4429:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4429:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4429:/ clear");
- /*clear*/ /*_.BINDER__V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_126_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_127_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_127_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4438:/ getarg");
- /*_.CURFORMB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4438:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4438:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4439:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4439:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4439:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4439:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4439:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4439:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4439:/ locexp");
-      melt_assert_failed(( "check curform"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4439)?(4439):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4439:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4439:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4439:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4441:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; };
- ;
- /*_.MULTIPLE_NTH__V6*/ curfptr[5] = 
-  (melt_multiple_nth((melt_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0])));;
- 
- {
- MELT_LOCATION("warmelt-normal.melt:4440:/ locexp");
- meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), 
-			   (meltobject_ptr_t) (/*_.BINDER__V5*/ curfptr[3]), 
-			   (melt_ptr_t)(/*_.MULTIPLE_NTH__V6*/ curfptr[5]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4438:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4438:/ clear");
- /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4438:/ clear");
- /*clear*/ /*_.MULTIPLE_NTH__V6*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_127_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_128_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_128_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4478:/ getarg");
- /*_.CSY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4478:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-normal.melt:4478:/ locexp");
- meltgc_remove_mapobjects( (meltmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), 
-			      (meltobject_ptr_t)(/*_.CSY__V2*/ curfptr[1]));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_128_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 90
-  void* varptr[90];
-#define CURFRAM_NBVARNUM 33
-  long varnum[33];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<90; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 90;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFCMATCHER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4495:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4495:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4496:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4496:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4496:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4496:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4496:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4496:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4496:/ locexp");
-      melt_assert_failed(( "check defcmatcher recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4496)?(4496):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4496:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4496:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4496:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4497:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4497:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4497:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4497:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4497:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4497:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4497:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4497)?(4497):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4497:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4497:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4497:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4498:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4498:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4498:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4498:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4498:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4498:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4498:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4498)?(4498):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4498:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4498:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4498:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4499:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4499:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4499:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_defcmatcher recv";
-    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4499:/ apply.arg");
-    argtab[3].bp_long = 4499;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4499:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4499:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4499:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4500:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4500:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4501:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4502:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4503:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4503:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCMATDEF_CMATCHER");/*_.CM__V19*/ curfptr[18] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4504:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4504:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:4504:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_defcmatcher cmatcher";
-      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:4504:/ apply.arg");
-      argtab[3].bp_long = 4504;
-      /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CM__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4504:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4504:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4504:/ cppif.else");
-   /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4505:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4505:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CM__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-normal.melt:4505:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4505:/ cond.then");
-     /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4505:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4505:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4505:/ locexp");
-        melt_assert_failed(( "check cmatcher"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4505)?(4505):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V22*/ curfptr[20] = /*_.IFELSE___V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4505:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4505:/ clear");
-     /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4505:/ cppif.else");
-   /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V18*/ curfptr[17] = /*_.CM__V19*/ curfptr[18];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4503:/ clear");
-   /*clear*/ /*_.CM__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4503:/ clear");
-   /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4503:/ clear");
-   /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;}
-  ;
-  /*_.CMATCHER__V24*/ curfptr[22] = /*_.LET___V18*/ curfptr[17];;
-  MELT_LOCATION("warmelt-normal.melt:4507:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4507:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4507:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
-    /*_.B__V26*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4508:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4508:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:4508:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_defcmatcher cmbind";
-      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:4508:/ apply.arg");
-      argtab[3].bp_long = 4508;
-      /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.B__V26*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V27*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4508:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4508:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4508:/ cppif.else");
-   /*_.IFCPP___V27*/ curfptr[20] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4509:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4509:/ block");
-    /*block*/{
-     /*_#IS_A__L8*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.B__V26*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ curfrout->tabval[6])));;
-     MELT_LOCATION("warmelt-normal.melt:4509:/ cond");
-     /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4509:/ cond.then");
-     /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4509:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4509:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4509:/ locexp");
-        melt_assert_failed(( "check cmbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4509)?(4509):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4509:/ clear");
-     /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4509:/ clear");
-     /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4509:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V25*/ curfptr[18] = /*_.B__V26*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4507:/ clear");
-   /*clear*/ /*_.B__V26*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4507:/ clear");
-   /*clear*/ /*_.IFCPP___V27*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4507:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;}
-  ;
-  /*_.CMBIND__V31*/ curfptr[29] = /*_.LET___V25*/ curfptr[18];;
-  /*_#OBJECT_LENGTH__L9*/ curfnum[0] = 
-   ((long)melt_object_length((melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22])));;
-  /*_.SLOTUP__V32*/ curfptr[19] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#OBJECT_LENGTH__L9*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-normal.melt:4512:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 2, "AMATCH_IN");/*_.INSCMA__V33*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4513:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 3, "AMATCH_MATCHBIND");/*_.MBICMA__V34*/ curfptr[27] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4514:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 4, "AMATCH_OUT");/*_.OUTSCMA__V35*/ curfptr[34] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4515:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 5, "CMATCH_STATE");/*_.STATCMA__V36*/ curfptr[35] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4516:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 6, "CMATCH_EXPTEST");/*_.TESTCMA__V37*/ curfptr[36] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4517:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 7, "CMATCH_EXPFILL");/*_.FILLCMA__V38*/ curfptr[37] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4518:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22]), 8, "CMATCH_EXPOPER");/*_.OPERCMA__V39*/ curfptr[38] = slot; };
-  ;
-  /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20])));;
-  /*_.INSTUP__V40*/ curfptr[39] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L10*/ curfnum[9])));;
-  /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34])));;
-  /*_.OUTSTUP__V41*/ curfptr[40] = 
-   (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10])));;
-  MELT_LOCATION("warmelt-normal.melt:4521:/ cond");
-  /*cond*/ if (/*_.TESTCMA__V37*/ curfptr[36]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4521:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4521:/ block");
-   /*block*/{
-    /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36])));;
-    /*_.MAKE_MULTIPLE__V43*/ curfptr[42] = 
-     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11])));;
-    /*_.TESTTUP__V42*/ curfptr[41] = /*_.MAKE_MULTIPLE__V43*/ curfptr[42];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4521:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4521:/ clear");
-    /*clear*/ /*_.MAKE_MULTIPLE__V43*/ curfptr[42] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4521:/ cond.else");
-  
-   /*_.TESTTUP__V42*/ curfptr[41] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4522:/ cond");
-  /*cond*/ if (/*_.FILLCMA__V38*/ curfptr[37]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4522:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4522:/ block");
-   /*block*/{
-    /*_#MULTIPLE_LENGTH__L13*/ curfnum[11] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37])));;
-    /*_.MAKE_MULTIPLE__V45*/ curfptr[44] = 
-     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L13*/ curfnum[11])));;
-    /*_.FILLTUP__V44*/ curfptr[42] = /*_.MAKE_MULTIPLE__V45*/ curfptr[44];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4522:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L13*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4522:/ clear");
-    /*clear*/ /*_.MAKE_MULTIPLE__V45*/ curfptr[44] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4522:/ cond.else");
-  
-   /*_.FILLTUP__V44*/ curfptr[42] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4523:/ cond");
-  /*cond*/ if (/*_.OPERCMA__V39*/ curfptr[38]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4523:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4523:/ block");
-   /*block*/{
-    /*_#MULTIPLE_LENGTH__L14*/ curfnum[11] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38])));;
-    /*_.MAKE_MULTIPLE__V47*/ curfptr[46] = 
-     (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#MULTIPLE_LENGTH__L14*/ curfnum[11])));;
-    /*_.OPERTUP__V46*/ curfptr[44] = /*_.MAKE_MULTIPLE__V47*/ curfptr[46];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4523:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L14*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4523:/ clear");
-    /*clear*/ /*_.MAKE_MULTIPLE__V47*/ curfptr[46] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4523:/ cond.else");
-  
-   /*_.OPERTUP__V46*/ curfptr[44] = NULL;;
-   }
-  ;
-  /*_#MULTIPLE_LENGTH__L15*/ curfnum[11] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20])));;
-  /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34])));;
-  /*_#I__L17*/ curfnum[16] = 
-   ((/*_#MULTIPLE_LENGTH__L15*/ curfnum[11]) + (/*_#MULTIPLE_LENGTH__L16*/ curfnum[15]));;
-  /*_#I__L18*/ curfnum[17] = 
-   ((/*_#I__L17*/ curfnum[16]) * (2));;
-  /*_#I__L19*/ curfnum[18] = 
-   ((5) + (/*_#I__L18*/ curfnum[17]));;
-  /*_.FORMSYMBMAP__V48*/ curfptr[46] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[8])), (/*_#I__L19*/ curfnum[18])));;
-  MELT_LOCATION("warmelt-normal.melt:4529:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:4529:/ apply.arg");
-   argtab[2].bp_cstring =  "discr_string";
-   /*_.NORMAL_PREDEF__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[11])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4530:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4527:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4527:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[9])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V52*/ curfptr[51] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.NORMAL_PREDEF__V49*/ curfptr[48]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (5), (/*_.NAMED_NAME__V50*/ curfptr[49]), "NSTR_STRING");
-   ;
-   /*_.NAMSTRDATA__V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4534:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:4534:/ apply.arg");
-   argtab[2].bp_cstring =  "class_cmatcher";
-   /*_.NORMAL_PREDEF__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#OBJ_HASH__L20*/ curfnum[19] = 
-   (melt_obj_hash((melt_ptr_t)(/*_.CMATCHER__V24*/ curfptr[22])));;
-  /*_.MAKE_INTEGERBOX__V54*/ curfptr[53] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[13])), (/*_#OBJ_HASH__L20*/ curfnum[19])));;
-  MELT_LOCATION("warmelt-normal.melt:4531:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4531:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[12])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V56*/ curfptr[55] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.NORMAL_PREDEF__V53*/ curfptr[52]), "NDATA_DISCRX");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (7), (/*_.MAKE_INTEGERBOX__V54*/ curfptr[53]), "NINST_HASH");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4531:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (8), (/*_.SLOTUP__V32*/ curfptr[19]), "NINST_SLOTS");
-   ;
-   /*_.INSDATA__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4539:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4539:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V55*/ curfptr[54];
-   /*_.ADD_NCTX_DATA__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4540:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4540:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V51*/ curfptr[50];
-   /*_.ADD_NCTX_DATA__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#GET_INT__L21*/ curfnum[20] = 
-   (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[15]))));;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:4542:/ locexp");
-  meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L21*/ curfnum[20]), (melt_ptr_t)(/*_.NAMSTRDATA__V51*/ curfptr[50]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4544:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[5];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUP__V40*/ curfptr[39];
-   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46];
-   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4544:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   /*_.FILL_NORMAL_FORMALS__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.INSCMA__V33*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4545:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4548:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:4548:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_multiple";
-    /*_.NORMAL_PREDEF__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4545:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4545:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V62*/ curfptr[61] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (2), (/*_.NORMAL_PREDEF__V60*/ curfptr[59]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4545:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V62*/ curfptr[61]), (5), (/*_.INSTUP__V40*/ curfptr[39]), "NTUP_COMP");
-    ;
-    /*_.INSTUPDATA__V61*/ curfptr[60] = /*_.INST__V62*/ curfptr[61];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4551:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4551:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V61*/ curfptr[60];
-    /*_.ADD_NCTX_DATA__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L22*/ curfnum[21] = 
-    (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ curfrout->tabval[18]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4552:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L22*/ curfnum[21]), (melt_ptr_t)(/*_.INSTUPDATA__V61*/ curfptr[60]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V60*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
-   /*clear*/ /*_.INSTUPDATA__V61*/ curfptr[60] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V63*/ curfptr[62] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4545:/ clear");
-   /*clear*/ /*_#GET_INT__L22*/ curfnum[21] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4556:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4556:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46];
-    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4556:/ apply.arg");
-    argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    /*_.MBDATA__V64*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.MBICMA__V34*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L23*/ curfnum[21] = 
-    (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ curfrout->tabval[20]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4557:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L23*/ curfnum[21]), (melt_ptr_t)(/*_.MBDATA__V64*/ curfptr[59]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4556:/ clear");
-   /*clear*/ /*_.MBDATA__V64*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4556:/ clear");
-   /*clear*/ /*_#GET_INT__L23*/ curfnum[21] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4561:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[5];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUP__V41*/ curfptr[40];
-   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V48*/ curfptr[46];
-   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
-   argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4561:/ apply.arg");
-   argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   /*_.FILL_NORMAL_FORMALS__V65*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[16])), (melt_ptr_t)(/*_.OUTSCMA__V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4562:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4565:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:4565:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_multiple";
-    /*_.NORMAL_PREDEF__V66*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4562:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4562:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V68*/ curfptr[67] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.NORMAL_PREDEF__V66*/ curfptr[62]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4562:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (5), (/*_.OUTSTUP__V41*/ curfptr[40]), "NTUP_COMP");
-    ;
-    /*_.OUTSTUPDATA__V67*/ curfptr[59] = /*_.INST__V68*/ curfptr[67];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4568:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4568:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V67*/ curfptr[59];
-    /*_.ADD_NCTX_DATA__V69*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L24*/ curfnum[21] = 
-    (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ curfrout->tabval[21]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4569:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L24*/ curfnum[21]), (melt_ptr_t)(/*_.OUTSTUPDATA__V67*/ curfptr[59]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V66*/ curfptr[62] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
-   /*clear*/ /*_.OUTSTUPDATA__V67*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V69*/ curfptr[68] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4562:/ clear");
-   /*clear*/ /*_#GET_INT__L24*/ curfnum[21] = 0 ;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4573:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4573:/ block");
-   /*block*/{
-    /*_#IS_A__L25*/ curfnum[21] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.STATCMA__V36*/ curfptr[35]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[22])));;
-    MELT_LOCATION("warmelt-normal.melt:4573:/ cond");
-    /*cond*/ if (/*_#IS_A__L25*/ curfnum[21]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4573:/ cond.then");
-    /*_.IFELSE___V71*/ curfptr[59] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4573:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4573:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4573:/ locexp");
-       melt_assert_failed(( "check statcma"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4573)?(4573):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V71*/ curfptr[59] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V70*/ curfptr[62] = /*_.IFELSE___V71*/ curfptr[59];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4573:/ clear");
-    /*clear*/ /*_#IS_A__L25*/ curfnum[21] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4573:/ clear");
-    /*clear*/ /*_.IFELSE___V71*/ curfptr[59] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4573:/ cppif.else");
-  /*_.IFCPP___V70*/ curfptr[62] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4574:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4574:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4574:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4574:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    /*_.NSTATCMADATA__V72*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.STATCMA__V36*/ curfptr[35]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#GET_INT__L26*/ curfnum[21] = 
-    (melt_get_int((melt_ptr_t)((/*!CMATCH_STATE*/ curfrout->tabval[24]))));;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:4575:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L26*/ curfnum[21]), (melt_ptr_t)(/*_.NSTATCMADATA__V72*/ curfptr[68]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4574:/ clear");
-   /*clear*/ /*_.NSTATCMADATA__V72*/ curfptr[68] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4574:/ clear");
-   /*clear*/ /*_#GET_INT__L26*/ curfnum[21] = 0 ;}
-  ;
-  /*_#IS_MULTIPLE__L27*/ curfnum[21] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36])) == OBMAG_MULTIPLE);;
-  MELT_LOCATION("warmelt-normal.melt:4579:/ cond");
-  /*cond*/ if (/*_#IS_MULTIPLE__L27*/ curfnum[21]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4579:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4579:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4581:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.TESTTUP__V42*/ curfptr[41];
-     MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:4581:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     /*_.FILL_NORMAL_EXPANSION__V73*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.TESTCMA__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4582:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4585:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:4585:/ apply.arg");
-      argtab[2].bp_cstring =  "discr_multiple";
-      /*_.NORMAL_PREDEF__V74*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4582:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4582:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V76*/ curfptr[75] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (2), (/*_.NORMAL_PREDEF__V74*/ curfptr[68]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4582:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V76*/ curfptr[75])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V76*/ curfptr[75]), (5), (/*_.TESTTUP__V42*/ curfptr[41]), "NTUP_COMP");
-      ;
-      /*_.NTESTTUPDATA__V75*/ curfptr[74] = /*_.INST__V76*/ curfptr[75];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4588:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4588:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NTESTTUPDATA__V75*/ curfptr[74];
-      /*_.ADD_NCTX_DATA__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_#GET_INT__L28*/ curfnum[27] = 
-      (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPTEST*/ curfrout->tabval[26]))));;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4589:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L28*/ curfnum[27]), (melt_ptr_t)(/*_.NTESTTUPDATA__V75*/ curfptr[74]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V74*/ curfptr[68] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
-     /*clear*/ /*_.NTESTTUPDATA__V75*/ curfptr[74] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4582:/ clear");
-     /*clear*/ /*_#GET_INT__L28*/ curfnum[27] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4580:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4579:/ clear");
-    /*clear*/ /*_.FILL_NORMAL_EXPANSION__V73*/ curfptr[59] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_MULTIPLE__L29*/ curfnum[27] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37])) == OBMAG_MULTIPLE);;
-  MELT_LOCATION("warmelt-normal.melt:4593:/ cond");
-  /*cond*/ if (/*_#IS_MULTIPLE__L29*/ curfnum[27]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4593:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4593:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4595:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FILLTUP__V44*/ curfptr[42];
-     MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:4595:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     /*_.FILL_NORMAL_EXPANSION__V78*/ curfptr[68] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.FILLCMA__V38*/ curfptr[37]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4596:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4599:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:4599:/ apply.arg");
-      argtab[2].bp_cstring =  "discr_multiple";
-      /*_.NORMAL_PREDEF__V79*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4596:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4596:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V81*/ curfptr[59] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (2), (/*_.NORMAL_PREDEF__V79*/ curfptr[74]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4596:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V81*/ curfptr[59])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V81*/ curfptr[59]), (5), (/*_.FILLTUP__V44*/ curfptr[42]), "NTUP_COMP");
-      ;
-      /*_.NFILLTUPDATA__V80*/ curfptr[76] = /*_.INST__V81*/ curfptr[59];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4602:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4602:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFILLTUPDATA__V80*/ curfptr[76];
-      /*_.ADD_NCTX_DATA__V82*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_#GET_INT__L30*/ curfnum[29] = 
-      (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPFILL*/ curfrout->tabval[27]))));;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4603:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L30*/ curfnum[29]), (melt_ptr_t)(/*_.NFILLTUPDATA__V80*/ curfptr[76]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V79*/ curfptr[74] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
-     /*clear*/ /*_.NFILLTUPDATA__V80*/ curfptr[76] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V82*/ curfptr[81] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4596:/ clear");
-     /*clear*/ /*_#GET_INT__L30*/ curfnum[29] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4594:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4593:/ clear");
-    /*clear*/ /*_.FILL_NORMAL_EXPANSION__V78*/ curfptr[68] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_MULTIPLE__L31*/ curfnum[29] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38])) == OBMAG_MULTIPLE);;
-  MELT_LOCATION("warmelt-normal.melt:4607:/ cond");
-  /*cond*/ if (/*_#IS_MULTIPLE__L31*/ curfnum[29]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4607:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4607:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4609:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OPERTUP__V46*/ curfptr[44];
-     MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:4609:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     /*_.FILL_NORMAL_EXPANSION__V83*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[25])), (melt_ptr_t)(/*_.OPERCMA__V39*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4610:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4613:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:4613:/ apply.arg");
-      argtab[2].bp_cstring =  "discr_multiple";
-      /*_.NORMAL_PREDEF__V84*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[10])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4610:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4610:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[17])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V86*/ curfptr[68] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (2), (/*_.NORMAL_PREDEF__V84*/ curfptr[76]), "NDATA_DISCRX");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4610:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V86*/ curfptr[68])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V86*/ curfptr[68]), (5), (/*_.OPERTUP__V46*/ curfptr[44]), "NTUP_COMP");
-      ;
-      /*_.NOPERTUPDATA__V85*/ curfptr[81] = /*_.INST__V86*/ curfptr[68];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4616:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4616:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOPERTUPDATA__V85*/ curfptr[81];
-      /*_.ADD_NCTX_DATA__V87*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_#GET_INT__L32*/ curfnum[31] = 
-      (melt_get_int((melt_ptr_t)((/*!CMATCH_EXPOPER*/ curfrout->tabval[28]))));;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4617:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V32*/ curfptr[19]), (/*_#GET_INT__L32*/ curfnum[31]), (melt_ptr_t)(/*_.NOPERTUPDATA__V85*/ curfptr[81]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
-     /*clear*/ /*_.NORMAL_PREDEF__V84*/ curfptr[76] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
-     /*clear*/ /*_.NOPERTUPDATA__V85*/ curfptr[81] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
-     /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4610:/ clear");
-     /*clear*/ /*_#GET_INT__L32*/ curfnum[31] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4608:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4607:/ clear");
-    /*clear*/ /*_.FILL_NORMAL_EXPANSION__V83*/ curfptr[74] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4621:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4621:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.CMBIND__V31*/ curfptr[29])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.CMBIND__V31*/ curfptr[29]), (1), (/*_.INSDATA__V55*/ curfptr[54]), "FIXBIND_DATA");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4621:/ touch");
-   meltgc_touch(/*_.CMBIND__V31*/ curfptr[29]);
-   ;
-   /*epilog*/}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4623:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4623:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:4623:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_defcmatcher return insdata";
-     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[31];
-     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:4623:/ apply.arg");
-     argtab[3].bp_long = 4623;
-     /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V88*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[81];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4623:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4623:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4623:/ cppif.else");
-  /*_.IFCPP___V88*/ curfptr[76] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4624:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V55*/ curfptr[54];;
-   MELT_LOCATION("warmelt-normal.melt:4624:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V90*/ curfptr[86];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.LET___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.CMATCHER__V24*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.CMBIND__V31*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#OBJECT_LENGTH__L9*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.SLOTUP__V32*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.INSCMA__V33*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.MBICMA__V34*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.OUTSCMA__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.STATCMA__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.TESTCMA__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.FILLCMA__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.OPERCMA__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.INSTUP__V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.OUTSTUP__V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.TESTTUP__V42*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.FILLTUP__V44*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.OPERTUP__V46*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L15*/ curfnum[11] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#I__L18*/ curfnum[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.FORMSYMBMAP__V48*/ curfptr[46] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V49*/ curfptr[48] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.NAMSTRDATA__V51*/ curfptr[50] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.NORMAL_PREDEF__V53*/ curfptr[52] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#OBJ_HASH__L20*/ curfnum[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V54*/ curfptr[53] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.INSDATA__V55*/ curfptr[54] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V57*/ curfptr[56] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.ADD_NCTX_DATA__V58*/ curfptr[57] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#GET_INT__L21*/ curfnum[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_FORMALS__V59*/ curfptr[58] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.FILL_NORMAL_FORMALS__V65*/ curfptr[60] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.IFCPP___V70*/ curfptr[62] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#IS_MULTIPLE__L27*/ curfnum[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#IS_MULTIPLE__L29*/ curfnum[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_#IS_MULTIPLE__L31*/ curfnum[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.IFCPP___V88*/ curfptr[76] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4500:/ clear");
-  /*clear*/ /*_.RETURN___V90*/ curfptr[86] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4495:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:4495:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4495:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFCMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_129_warmelt_normal_NORMEXP_DEFCMATCHER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 96
-  void* varptr[96];
-#define CURFRAM_NBVARNUM 34
-  long varnum[34];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<96; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 96;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFUNMATCHER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4633:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4633:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4634:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4634:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4634:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_defunmatcher start recv";
-    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4634:/ apply.arg");
-    argtab[3].bp_long = 4634;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4634:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4634:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4634:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4635:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4635:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUNMATCHER*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4635:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4635:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4635:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4635:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4635:/ locexp");
-      melt_assert_failed(( "normexp_defunmatcher check recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4635)?(4635):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4635:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4635:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4635:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4636:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4636:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4636:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4636:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4636:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4636:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4636:/ locexp");
-      melt_assert_failed(( "normexp_defunmatcher check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4636)?(4636):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4636:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4636:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4636:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4637:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4637:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-normal.melt:4637:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4637:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4637:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4637:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4637:/ locexp");
-      melt_assert_failed(( "normexp_defunmatcher check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4637)?(4637):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4637:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4637:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4637:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4638:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4638:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4639:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4640:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4640:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4640:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V17*/ curfptr[16] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4640:/ cond.else");
-  
-   /*_.SFORMAL_ARGS__V17*/ curfptr[16] = NULL;;
-   }
-  ;
-  /*_.SMATCHED__V18*/ curfptr[17] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.SFORMAL_ARGS__V17*/ curfptr[16]), (0)));;
-  MELT_LOCATION("warmelt-normal.melt:4641:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SFUMATDEF_INS");/*_.SINS__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4642:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SFUMATDEF_OUTS");/*_.SOUTS__V20*/ curfptr[19] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4643:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SFUMATDEF_MATCHF");/*_.SMATCHF__V21*/ curfptr[20] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4644:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SFUMATDEF_APPLYF");/*_.SAPPLYF__V22*/ curfptr[21] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4645:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 9, "SFUMATDEF_DATA");/*_.SDATA__V23*/ curfptr[22] = slot; };
-  ;
-  /*_.RESBINDS__V24*/ curfptr[23] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  /*_.INSFMA__V25*/ curfptr[24] = 
-    meltgc_new_subseq_multiple((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18]),
-				  (int)(1), (int)(-1)) ;;
-  /*_.MBIFMA__V26*/ curfptr[25] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18]), (0)));;
-  MELT_LOCATION("warmelt-normal.melt:4649:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4649:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4649:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
-    /*_.B__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4650:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4650:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:4650:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_defunmatcher fmbind";
-      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:4650:/ apply.arg");
-      argtab[3].bp_long = 4650;
-      /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.B__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4650:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4650:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4650:/ cppif.else");
-   /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4651:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4651:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.B__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[7])));;
-     MELT_LOCATION("warmelt-normal.melt:4651:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4651:/ cond.then");
-     /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4651:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4651:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4651:/ locexp");
-        melt_assert_failed(( "check fmbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4651)?(4651):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4651:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4651:/ clear");
-     /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4651:/ cppif.else");
-   /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LET___V27*/ curfptr[26] = /*_.B__V28*/ curfptr[27];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4649:/ clear");
-   /*clear*/ /*_.B__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4649:/ clear");
-   /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4649:/ clear");
-   /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;}
-  ;
-  /*_.FMBIND__V33*/ curfptr[31] = /*_.LET___V27*/ curfptr[26];;
-  MELT_LOCATION("warmelt-normal.melt:4653:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[7])))) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4653:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4653:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), 2, "FMBIND_FUNMATCHER");/*_.FUNMATCHER__V34*/ curfptr[27] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4653:/ cond.else");
-  
-   /*_.FUNMATCHER__V34*/ curfptr[27] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4655:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4655:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:4655:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_defunmatcher made funmatcher";
-     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:4655:/ apply.arg");
-     argtab[3].bp_long = 4655;
-     /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FUNMATCHER__V34*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V35*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4655:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4655:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4655:/ cppif.else");
-  /*_.IFCPP___V35*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4656:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4656:/ block");
-   /*block*/{
-    /*_#IS_A__L8*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SMATCHED__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));;
-    MELT_LOCATION("warmelt-normal.melt:4656:/ cond");
-    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4656:/ cond.then");
-    /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4656:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4656:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4656:/ locexp");
-       melt_assert_failed(( "check smatched"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4656)?(4656):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V37*/ curfptr[29] = /*_.IFELSE___V38*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4656:/ clear");
-    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4656:/ clear");
-    /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4656:/ cppif.else");
-  /*_.IFCPP___V37*/ curfptr[29] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4657:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4657:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE__L9*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SINS__V19*/ curfptr[18])) == OBMAG_MULTIPLE);;
-    MELT_LOCATION("warmelt-normal.melt:4657:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4657:/ cond.then");
-    /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4657:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4657:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4657:/ locexp");
-       melt_assert_failed(( "check sins"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4657)?(4657):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4657:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4657:/ clear");
-    /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4657:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4658:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4658:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE__L10*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])) == OBMAG_MULTIPLE);;
-    MELT_LOCATION("warmelt-normal.melt:4658:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4658:/ cond.then");
-    /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4658:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4658:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4658:/ locexp");
-       melt_assert_failed(( "check souts"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4658)?(4658):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4658:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4658:/ clear");
-    /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4658:/ cppif.else");
-  /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4659:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4659:/ block");
-   /*block*/{
-    /*_#IS_A__L11*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.MBIFMA__V26*/ curfptr[25]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));;
-    MELT_LOCATION("warmelt-normal.melt:4659:/ cond");
-    /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4659:/ cond.then");
-    /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4659:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4659:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4659:/ locexp");
-       melt_assert_failed(( "check mbifma"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4659)?(4659):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4659:/ clear");
-    /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4659:/ clear");
-    /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4659:/ cppif.else");
-  /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4660:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V47*/ curfptr[46];MELT_LOCATION("warmelt-normal.melt:4660:/ multimsend.send");
-    /*_.NMATCHF__V46*/ curfptr[45] =  meltgc_send ((melt_ptr_t)(/*_.SMATCHF__V21*/ curfptr[20]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4660:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:4663:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:4663:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:4663:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_defunmatcher nmatchf";
-       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:4663:/ apply.arg");
-       argtab[3].bp_long = 4663;
-       /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMATCHF__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V48*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[48];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4663:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4663:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:4663:/ cppif.else");
-    /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:4664:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4664:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NMABINDS__V47*/ curfptr[46];
-     /*_.LIST_APPEND2LIST__V50*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4665:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend");
-     /*multimsend*/{
-      union meltparam_un argtab[3];
-      union meltparam_un restab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      memset(&restab, 0, sizeof(restab));
-      MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.xres");
-      restab[0].bp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V53*/ curfptr[52];MELT_LOCATION("warmelt-normal.melt:4665:/ multimsend.send");
-      /*_.NAPPLF__V52*/ curfptr[51] =  meltgc_send ((melt_ptr_t)(/*_.SAPPLYF__V22*/ curfptr[21]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4665:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4668:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4668:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:4668:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_defunmatcher napplf";
-         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:4668:/ apply.arg");
-         argtab[3].bp_long = 4668;
-         /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NAPPLF__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4668:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4668:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4668:/ cppif.else");
-      /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:4669:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4669:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAPBINDS__V53*/ curfptr[52];
-       /*_.LIST_APPEND2LIST__V56*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:4670:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend");
-       /*multimsend*/{
-        union meltparam_un argtab[3];
-        union meltparam_un restab[1];
-        memset(&argtab, 0, sizeof(argtab));
-        memset(&restab, 0, sizeof(restab));
-        MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.arg");
-        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-        MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.xres");
-        restab[0].bp_aptr = (melt_ptr_t*) &/*_.NDABINDS__V59*/ curfptr[58];MELT_LOCATION("warmelt-normal.melt:4670:/ multimsend.send");
-        /*_.NDATA__V58*/ curfptr[57] =  meltgc_send ((melt_ptr_t)(/*_.SDATA__V23*/ curfptr[22]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[9]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4670:/ block");
-       /*block*/{
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:4673:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:4673:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
-           callcount;;
-          MELT_LOCATION("warmelt-normal.melt:4673:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
-           argtab[0].bp_cstring =  "normexp_defunmatcher ndata";
-           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
-           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-normal.melt";
-           MELT_LOCATION("warmelt-normal.melt:4673:/ apply.arg");
-           argtab[3].bp_long = 4673;
-           /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NDATA__V58*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4673:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4673:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:4673:/ cppif.else");
-        /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-normal.melt:4674:/ cppif.then");
-        MELT_LOCATION("warmelt-normal.melt:4674:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 
-           callcount;;
-          MELT_LOCATION("warmelt-normal.melt:4674:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
-           argtab[0].bp_cstring =  "normexp_defunmatcher resbinds";
-           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0];
-           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-normal.melt";
-           MELT_LOCATION("warmelt-normal.melt:4674:/ apply.arg");
-           argtab[3].bp_long = 4674;
-           /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V62*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ curfptr[62];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4674:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4674:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-normal.melt:4674:/ cppif.else");
-        /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-normal.melt:4675:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:4678:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[3];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-          MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-          MELT_LOCATION("warmelt-normal.melt:4678:/ apply.arg");
-          argtab[2].bp_cstring =  "discr_string";
-          /*_.NORMAL_PREDEF__V65*/ curfptr[64] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4679:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V66*/ curfptr[65] = slot; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4676:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4676:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[11])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V68*/ curfptr[67] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4676:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4676:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (2), (/*_.NORMAL_PREDEF__V65*/ curfptr[64]), "NDATA_DISCRX");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4676:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V68*/ curfptr[67])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V68*/ curfptr[67]), (5), (/*_.NAMED_NAME__V66*/ curfptr[65]), "NSTR_STRING");
-          ;
-          /*_.NAMSTRDATA__V67*/ curfptr[66] = /*_.INST__V68*/ curfptr[67];;}
-         ;
-         /*_#OBJECT_LENGTH__L16*/ curfnum[0] = 
-          ((long)melt_object_length((melt_ptr_t)(/*_.FUNMATCHER__V34*/ curfptr[27])));;
-         /*_.SLOTUP__V69*/ curfptr[68] = 
-          (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#OBJECT_LENGTH__L16*/ curfnum[0])));;
-         MELT_LOCATION("warmelt-normal.melt:4684:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[3];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-          MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-          MELT_LOCATION("warmelt-normal.melt:4684:/ apply.arg");
-          argtab[2].bp_cstring =  "class_funmatcher";
-          /*_.NORMAL_PREDEF__V70*/ curfptr[69] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[16])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_#NONZERO_HASH__L17*/ curfnum[16] = 
-          (melt_nonzerohash());;
-         /*_.MAKE_INTEGERBOX__V71*/ curfptr[70] = 
-          (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[17])), (/*_#NONZERO_HASH__L17*/ curfnum[16])));;
-         MELT_LOCATION("warmelt-normal.melt:4681:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4681:/ rawallocobj");
-          /*rawallocobj*/ { melt_ptr_t newobj = 0;
-           melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V73*/ curfptr[72] =
-           newobj; };
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (2), (/*_.NORMAL_PREDEF__V70*/ curfptr[69]), "NDATA_DISCRX");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (7), (/*_.MAKE_INTEGERBOX__V71*/ curfptr[70]), "NINST_HASH");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4681:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V73*/ curfptr[72])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.INST__V73*/ curfptr[72]), (8), (/*_.SLOTUP__V69*/ curfptr[68]), "NINST_SLOTS");
-          ;
-          /*_.INSDATA__V72*/ curfptr[71] = /*_.INST__V73*/ curfptr[72];;}
-         ;
-         /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 
-          (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24])));;
-         /*_.INSTUP__V74*/ curfptr[73] = 
-          (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L18*/ curfnum[17])));;
-         /*_#MULTIPLE_LENGTH__L19*/ curfnum[18] = 
-          (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])));;
-         /*_.OUTSTUP__V75*/ curfptr[74] = 
-          (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L19*/ curfnum[18])));;
-         /*_#MULTIPLE_LENGTH__L20*/ curfnum[19] = 
-          (melt_multiple_length((melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24])));;
-         /*_#MULTIPLE_LENGTH__L21*/ curfnum[20] = 
-          (melt_multiple_length((melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19])));;
-         /*_#I__L22*/ curfnum[21] = 
-          ((/*_#MULTIPLE_LENGTH__L20*/ curfnum[19]) + (/*_#MULTIPLE_LENGTH__L21*/ curfnum[20]));;
-         /*_#I__L23*/ curfnum[22] = 
-          ((/*_#I__L22*/ curfnum[21]) * (2));;
-         /*_#I__L24*/ curfnum[23] = 
-          ((5) + (/*_#I__L23*/ curfnum[22]));;
-         /*_.FORMSYMBMAP__V76*/ curfptr[75] = 
-          (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[18])), (/*_#I__L24*/ curfnum[23])));;
-         MELT_LOCATION("warmelt-normal.melt:4695:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4695:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V67*/ curfptr[66];
-          /*_.ADD_NCTX_DATA__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4696:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[1];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4696:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V72*/ curfptr[71];
-          /*_.ADD_NCTX_DATA__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_#GET_INT__L25*/ curfnum[24] = 
-          (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[20]))));;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:4698:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L25*/ curfnum[24]), (melt_ptr_t)(/*_.NAMSTRDATA__V67*/ curfptr[66]));}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4700:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[5];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUP__V74*/ curfptr[73];
-          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75];
-          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
-          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
-          argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-          MELT_LOCATION("warmelt-normal.melt:4700:/ apply.arg");
-          argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-          /*_.FILL_NORMAL_FORMALS__V79*/ curfptr[78] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.INSFMA__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4701:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4704:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[3];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-           MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg");
-           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-           MELT_LOCATION("warmelt-normal.melt:4704:/ apply.arg");
-           argtab[2].bp_cstring =  "discr_multiple";
-           /*_.NORMAL_PREDEF__V80*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4701:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-normal.melt:4701:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[22])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V82*/ curfptr[81] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (2), (/*_.NORMAL_PREDEF__V80*/ curfptr[79]), "NDATA_DISCRX");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4701:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V82*/ curfptr[81]), (5), (/*_.INSTUP__V74*/ curfptr[73]), "NTUP_COMP");
-           ;
-           /*_.INSTUPDATA__V81*/ curfptr[80] = /*_.INST__V82*/ curfptr[81];;}
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4707:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[1];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4707:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSTUPDATA__V81*/ curfptr[80];
-           /*_.ADD_NCTX_DATA__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_#GET_INT__L26*/ curfnum[25] = 
-           (melt_get_int((melt_ptr_t)((/*!AMATCH_IN*/ curfrout->tabval[23]))));;
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:4708:/ locexp");
-          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L26*/ curfnum[25]), (melt_ptr_t)(/*_.INSTUPDATA__V81*/ curfptr[80]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
-          /*clear*/ /*_.NORMAL_PREDEF__V80*/ curfptr[79] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
-          /*clear*/ /*_.INSTUPDATA__V81*/ curfptr[80] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
-          /*clear*/ /*_.ADD_NCTX_DATA__V83*/ curfptr[82] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4701:/ clear");
-          /*clear*/ /*_#GET_INT__L26*/ curfnum[25] = 0 ;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4712:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4712:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75];
-           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
-           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
-           argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-           MELT_LOCATION("warmelt-normal.melt:4712:/ apply.arg");
-           argtab[3].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-           /*_.MBDATA__V84*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALBIND*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.MBIFMA__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_#GET_INT__L27*/ curfnum[25] = 
-           (melt_get_int((melt_ptr_t)((/*!AMATCH_MATCHBIND*/ curfrout->tabval[25]))));;
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:4713:/ locexp");
-          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L27*/ curfnum[25]), (melt_ptr_t)(/*_.MBDATA__V84*/ curfptr[79]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4712:/ clear");
-          /*clear*/ /*_.MBDATA__V84*/ curfptr[79] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4712:/ clear");
-          /*clear*/ /*_#GET_INT__L27*/ curfnum[25] = 0 ;}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4717:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[5];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUP__V75*/ curfptr[74];
-          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V76*/ curfptr[75];
-          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
-          argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
-          argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-          MELT_LOCATION("warmelt-normal.melt:4717:/ apply.arg");
-          argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-          /*_.FILL_NORMAL_FORMALS__V85*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[21])), (melt_ptr_t)(/*_.SOUTS__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4718:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4721:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[3];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-           MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg");
-           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-           MELT_LOCATION("warmelt-normal.melt:4721:/ apply.arg");
-           argtab[2].bp_cstring =  "discr_multiple";
-           /*_.NORMAL_PREDEF__V86*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4718:/ block");
-          /*block*/{
-           MELT_LOCATION("warmelt-normal.melt:4718:/ rawallocobj");
-           /*rawallocobj*/ { melt_ptr_t newobj = 0;
-            melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[22])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V88*/ curfptr[87] =
-            newobj; };
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (2), (/*_.NORMAL_PREDEF__V86*/ curfptr[82]), "NDATA_DISCRX");
-           ;
-           MELT_LOCATION("warmelt-normal.melt:4718:/ putslot");
-           /*putslot*/
-           melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT);
-           melt_putfield_object((/*_.INST__V88*/ curfptr[87]), (5), (/*_.OUTSTUP__V75*/ curfptr[74]), "NTUP_COMP");
-           ;
-           /*_.OUTSTUPDATA__V87*/ curfptr[79] = /*_.INST__V88*/ curfptr[87];;}
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4724:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[1];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-normal.melt:4724:/ apply.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTSTUPDATA__V87*/ curfptr[79];
-           /*_.ADD_NCTX_DATA__V89*/ curfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_#GET_INT__L28*/ curfnum[25] = 
-           (melt_get_int((melt_ptr_t)((/*!AMATCH_OUT*/ curfrout->tabval[26]))));;
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:4725:/ locexp");
-          meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L28*/ curfnum[25]), (melt_ptr_t)(/*_.OUTSTUPDATA__V87*/ curfptr[79]));}
-          ;
-          /*epilog*/
-          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
-          /*clear*/ /*_.NORMAL_PREDEF__V86*/ curfptr[82] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
-          /*clear*/ /*_.OUTSTUPDATA__V87*/ curfptr[79] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
-          /*clear*/ /*_.ADD_NCTX_DATA__V89*/ curfptr[88] = 0 ;
-          MELT_LOCATION("warmelt-normal.melt:4718:/ clear");
-          /*clear*/ /*_#GET_INT__L28*/ curfnum[25] = 0 ;}
-         ;
-         /*_#GET_INT__L29*/ curfnum[25] = 
-          (melt_get_int((melt_ptr_t)((/*!FMATCH_MATCHF*/ curfrout->tabval[27]))));;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:4729:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L29*/ curfnum[25]), (melt_ptr_t)(/*_.NMATCHF__V46*/ curfptr[45]));}
-         ;
-         /*_#GET_INT__L30*/ curfnum[29] = 
-          (melt_get_int((melt_ptr_t)((/*!FMATCH_APPLYF*/ curfrout->tabval[28]))));;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:4732:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L30*/ curfnum[29]), (melt_ptr_t)(/*_.NAPPLF__V52*/ curfptr[51]));}
-         ;
-         /*_#GET_INT__L31*/ curfnum[30] = 
-          (melt_get_int((melt_ptr_t)((/*!FMATCH_DATA*/ curfrout->tabval[29]))));;
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:4735:/ locexp");
-         meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V69*/ curfptr[68]), (/*_#GET_INT__L31*/ curfnum[30]), (melt_ptr_t)(/*_.NDATA__V58*/ curfptr[57]));}
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4738:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-normal.melt:4738:/ putslot");
-          /*putslot*/
-          melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31])) == OBMAG_OBJECT);
-          melt_putfield_object((/*_.FMBIND__V33*/ curfptr[31]), (1), (/*_.INSDATA__V72*/ curfptr[71]), "FIXBIND_DATA");
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4738:/ touch");
-          meltgc_touch(/*_.FMBIND__V33*/ curfptr[31]);
-          ;
-          /*epilog*/}
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4740:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4740:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4740:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_defunmatcher final fmbind";
-            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[31];
-            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4740:/ apply.arg");
-            argtab[3].bp_long = 4740;
-            /*_.DEBUG_MSG_FUN__V91*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FMBIND__V33*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V90*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[79];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4740:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4740:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[79] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4740:/ cppif.else");
-         /*_.IFCPP___V90*/ curfptr[82] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4743:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4743:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4743:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_defunmatcher return insdata";
-            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[31];
-            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4743:/ apply.arg");
-            argtab[3].bp_long = 4743;
-            /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INSDATA__V72*/ curfptr[71]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V92*/ curfptr[88] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[79];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4743:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4743:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[79] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4743:/ cppif.else");
-         /*_.IFCPP___V92*/ curfptr[88] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-normal.melt:4744:/ cppif.then");
-         MELT_LOCATION("warmelt-normal.melt:4744:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L34*/ curfnum[31] = 
-            callcount;;
-           MELT_LOCATION("warmelt-normal.melt:4744:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
-            argtab[0].bp_cstring =  "normexp_defunmatcher return resbinds";
-            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[31];
-            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-normal.melt";
-            MELT_LOCATION("warmelt-normal.melt:4744:/ apply.arg");
-            argtab[3].bp_long = 4744;
-            /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RESBINDS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V94*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-normal.melt:4744:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[31] = 0 ;
-           MELT_LOCATION("warmelt-normal.melt:4744:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-normal.melt:4744:/ cppif.else");
-         /*_.IFCPP___V94*/ curfptr[79] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-normal.melt:4745:/ block");
-         /*block*/{
-          /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V72*/ curfptr[71];;
-          MELT_LOCATION("warmelt-normal.melt:4745:/ putxtraresult");
-          if (!xrestab_ || !xresdescr_) goto labend_rout;
-          if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-          if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.RESBINDS__V24*/ curfptr[23]);
-          ;
-          MELT_LOCATION("warmelt-normal.melt:4745:/ finalreturn");
-          ;
-          /*finalret*/ goto labend_rout ;}
-         ;
-         /*_.LET___V64*/ curfptr[62] = /*_.RETURN___V96*/ curfptr[94];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.NORMAL_PREDEF__V65*/ curfptr[64] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.NAMED_NAME__V66*/ curfptr[65] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.NAMSTRDATA__V67*/ curfptr[66] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#OBJECT_LENGTH__L16*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.SLOTUP__V69*/ curfptr[68] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.NORMAL_PREDEF__V70*/ curfptr[69] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[16] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.MAKE_INTEGERBOX__V71*/ curfptr[70] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.INSDATA__V72*/ curfptr[71] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.INSTUP__V74*/ curfptr[73] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[18] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.OUTSTUP__V75*/ curfptr[74] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#MULTIPLE_LENGTH__L20*/ curfnum[19] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#MULTIPLE_LENGTH__L21*/ curfnum[20] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.FORMSYMBMAP__V76*/ curfptr[75] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.ADD_NCTX_DATA__V77*/ curfptr[76] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.ADD_NCTX_DATA__V78*/ curfptr[77] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#GET_INT__L25*/ curfnum[24] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.FILL_NORMAL_FORMALS__V79*/ curfptr[78] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.FILL_NORMAL_FORMALS__V85*/ curfptr[80] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#GET_INT__L29*/ curfnum[25] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#GET_INT__L30*/ curfnum[29] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_#GET_INT__L31*/ curfnum[30] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.IFCPP___V90*/ curfptr[82] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.IFCPP___V92*/ curfptr[88] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.IFCPP___V94*/ curfptr[79] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4675:/ clear");
-         /*clear*/ /*_.RETURN___V96*/ curfptr[94] = 0 ;}
-        ;
-        /*_.MULTI___V57*/ curfptr[56] = /*_.LET___V64*/ curfptr[62];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
-        /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
-        /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
-        /*clear*/ /*_.LET___V64*/ curfptr[62] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4670:/ clear");
-       /*clear*/ /*_.NDABINDS__V59*/ curfptr[58] = 0 ;}
-      ;
-      /*_.MULTI___V51*/ curfptr[50] = /*_.MULTI___V57*/ curfptr[56];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
-      /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
-      /*clear*/ /*_.LIST_APPEND2LIST__V56*/ curfptr[54] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
-      /*clear*/ /*_.MULTI___V57*/ curfptr[56] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4665:/ clear");
-     /*clear*/ /*_.NAPBINDS__V53*/ curfptr[52] = 0 ;}
-    ;
-    /*_.MULTI___V45*/ curfptr[43] = /*_.MULTI___V51*/ curfptr[50];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
-    /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V50*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
-    /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4660:/ clear");
-   /*clear*/ /*_.NMABINDS__V47*/ curfptr[46] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V45*/ curfptr[43];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SFORMAL_ARGS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SMATCHED__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SINS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SOUTS__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SMATCHF__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SAPPLYF__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.SDATA__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.RESBINDS__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.INSFMA__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.MBIFMA__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.FMBIND__V33*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.FUNMATCHER__V34*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.IFCPP___V35*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.IFCPP___V37*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4638:/ clear");
-  /*clear*/ /*_.MULTI___V45*/ curfptr[43] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4633:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:4633:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4633:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFUNMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_130_warmelt_normal_NORMEXP_DEFUNMATCHER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_131_warmelt_normal_NORMEXP_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_131_warmelt_normal_NORMEXP_DEFCLASS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 98
-  void* varptr[98];
-#define CURFRAM_NBVARNUM 35
-  long varnum[35];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<98; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 98;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFCLASS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4756:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4756:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4757:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4757:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4757:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4757:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4757:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4757:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4757:/ locexp");
-      melt_assert_failed(( "check defclass recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4757)?(4757):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4757:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4757:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4757:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4758:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4758:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4758:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4758:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4758:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4758:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4758:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4758)?(4758):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4758:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4758:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4758:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4759:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4759:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4759:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4759:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4759:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4759:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4759:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4759)?(4759):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4759:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4759:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4759:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4760:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4760:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4761:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4762:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4763:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLABIND__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4764:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SCLASS_SUPERBIND");/*_.SUPERBIND__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4765:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SCLASS_FLDBINDS");/*_.SFLDBINDS__V18*/ curfptr[17] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4767:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4767:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-normal.melt:4767:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4767:/ cond.then");
-    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4767:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4767:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4767:/ locexp");
-       melt_assert_failed(( "check sclabind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4767)?(4767):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4767:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4767:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4767:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4768:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4768:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), 3, "CBIND_CLASS");/*_.CLAOBJ__V22*/ curfptr[21] = slot; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4769:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4769:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4769:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    /*_.NAMSYMDATA__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4772:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4772:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_string";
-    /*_.NORMAL_PREDEF__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4773:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4771:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4771:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V27*/ curfptr[26] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4771:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.NORMAL_PREDEF__V24*/ curfptr[23]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4771:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NAMED_NAME__V25*/ curfptr[24]), "NSTR_STRING");
-    ;
-    /*_.NAMSTRDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;}
-   ;
-   /*_#OBJ_LEN__L5*/ curfnum[0] = 
-    (melt_obj_len((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));;
-   /*_.CLASLOTS__V28*/ curfptr[27] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L5*/ curfnum[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4780:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4780:/ apply.arg");
-    argtab[2].bp_cstring =  "class_class";
-    /*_.NORMAL_PREDEF__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_#OBJ_HASH__L6*/ curfnum[5] = 
-    (melt_obj_hash((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));;
-   /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L6*/ curfnum[5])));;
-   MELT_LOCATION("warmelt-normal.melt:4777:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4777:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V32*/ curfptr[31] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.NORMAL_PREDEF__V29*/ curfptr[28]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (7), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "NINST_HASH");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (6), (/*_.SPREDEF__V15*/ curfptr[14]), "NINST_PREDEF");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (8), (/*_.CLASLOTS__V28*/ curfptr[27]), "NINST_SLOTS");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4777:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (5), ((/*!konst_12_OBMAG_OBJECT*/ curfrout->tabval[12])), "NINST_OBJNUM");
-    ;
-    /*_.CLADATA__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4786:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 5, "CLASS_ANCESTORS");/*_.ANCSEQ__V33*/ curfptr[32] = slot; };
-   ;
-   /*_#NBANC__L7*/ curfnum[6] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.ANCSEQ__V33*/ curfptr[32])));;
-   /*_.ANCTUP__V34*/ curfptr[33] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBANC__L7*/ curfnum[6])));;
-   MELT_LOCATION("warmelt-normal.melt:4793:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4793:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_class_sequence";
-    /*_.NORMAL_PREDEF__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_CLASS_SEQUENCE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4789:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4789:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V37*/ curfptr[36] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4789:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (5), (/*_.ANCTUP__V34*/ curfptr[33]), "NTUP_COMP");
-    ;
-    /*_.ANCDATA__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4796:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 6, "CLASS_FIELDS");/*_.FLDSEQ__V38*/ curfptr[37] = slot; };
-   ;
-   /*_#NBFLD__L8*/ curfnum[7] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.FLDSEQ__V38*/ curfptr[37])));;
-   /*_#NBOWNFLD__L9*/ curfnum[8] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17])));;
-   /*_#NBSUPFLD__L10*/ curfnum[9] = 
-    ((/*_#NBFLD__L8*/ curfnum[7]) - (/*_#NBOWNFLD__L9*/ curfnum[8]));;
-   /*_#IX__L11*/ curfnum[10] = 0;;
-   /*_.FLDTUP__V39*/ curfptr[38] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBFLD__L8*/ curfnum[7])));;
-   MELT_LOCATION("warmelt-normal.melt:4806:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-    MELT_LOCATION("warmelt-normal.melt:4806:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_field_sequence";
-    /*_.NORMAL_PREDEF__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_FIELD_SEQUENCE*/ curfrout->tabval[15])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4802:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4802:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V42*/ curfptr[41] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.NORMAL_PREDEF__V40*/ curfptr[39]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4802:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.FLDTUP__V39*/ curfptr[38]), "NTUP_COMP");
-    ;
-    /*_.FLDDATA__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
-   ;
-   /*_#IS_A__L12*/ curfnum[11] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[16])));;
-   MELT_LOCATION("warmelt-normal.melt:4810:/ cond");
-   /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4810:/ cond.then");
-   MELT_LOCATION("warmelt-normal.melt:4810:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4811:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V44*/ curfptr[43] = slot; };
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4811:/ msend");
-     /*msend*/{
-      union meltparam_un argtab[3];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:4811:/ ojbmsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-      /*_.NORMAL_EXP__V45*/ curfptr[44] = meltgc_send((melt_ptr_t)(/*_.BINDER__V44*/ curfptr[43]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.SUPERDATA__V43*/ curfptr[42] = /*_.NORMAL_EXP__V45*/ curfptr[44];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4810:/ clear");
-     /*clear*/ /*_.BINDER__V44*/ curfptr[43] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4810:/ clear");
-     /*clear*/ /*_.NORMAL_EXP__V45*/ curfptr[44] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-normal.melt:4810:/ cond.else");
-   
-    /*_.SUPERDATA__V43*/ curfptr[42] = NULL;;
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4813:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4813:/ block");
-    /*block*/{
-     /*_#IS_A__L13*/ curfnum[12] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])));;
-     MELT_LOCATION("warmelt-normal.melt:4813:/ cond");
-     /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4813:/ cond.then");
-     /*_.IFELSE___V47*/ curfptr[44] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4813:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4813:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4813:/ locexp");
-        melt_assert_failed(( "check claobj"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4813)?(4813):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V46*/ curfptr[43] = /*_.IFELSE___V47*/ curfptr[44];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4813:/ clear");
-     /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4813:/ clear");
-     /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4813:/ cppif.else");
-   /*_.IFCPP___V46*/ curfptr[43] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:4814:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4814:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30];
-    /*_.ADD_NCTX_DATA__V48*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4815:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4815:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25];
-    /*_.ADD_NCTX_DATA__V49*/ curfptr[48] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4816:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4816:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35];
-    /*_.ADD_NCTX_DATA__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4817:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4817:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40];
-    /*_.ADD_NCTX_DATA__V51*/ curfptr[50] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4818:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4818:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]);
-    MELT_LOCATION("warmelt-normal.melt:4818:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25];
-    /*_.FILL_DATA_SLOT__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4819:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4819:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!CLASS_ANCESTORS*/ curfrout->tabval[21]);
-    MELT_LOCATION("warmelt-normal.melt:4819:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35];
-    /*_.FILL_DATA_SLOT__V53*/ curfptr[52] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4820:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4820:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*!CLASS_FIELDS*/ curfrout->tabval[22]);
-    MELT_LOCATION("warmelt-normal.melt:4820:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40];
-    /*_.FILL_DATA_SLOT__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:4821:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:4821:/ block");
-    /*block*/{
-     /*_#IS_A__L14*/ curfnum[12] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));;
-     MELT_LOCATION("warmelt-normal.melt:4821:/ cond");
-     /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4821:/ cond.then");
-     /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-normal.melt:4821:/ cond.else");
-     
-      MELT_LOCATION("warmelt-normal.melt:4821:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4821:/ locexp");
-        melt_assert_failed(( "check sclabind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4821)?(4821):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V55*/ curfptr[54] = /*_.IFELSE___V56*/ curfptr[55];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4821:/ clear");
-     /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4821:/ clear");
-     /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:4821:/ cppif.else");
-   /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:4822:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4822:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.SCLABIND__V16*/ curfptr[15]), (1), (/*_.CLADATA__V31*/ curfptr[30]), "FIXBIND_DATA");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4822:/ touch");
-    meltgc_touch(/*_.SCLABIND__V16*/ curfptr[15]);
-    ;
-    /*epilog*/}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4826:/ compute");
-   /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L15*/ curfnum[12] = 0;;
-   MELT_LOCATION("warmelt-normal.melt:4827:/ loop");
-   /*loop*/{ labloop_LOOPSUPERFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4827:/ loopbody");
-   
-    MELT_LOCATION("warmelt-normal.melt:4827:/ block");
-    /*block*/{
-     /*_#I__L16*/ curfnum[15] = 
-      ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBSUPFLD__L10*/ curfnum[9]));;
-     MELT_LOCATION("warmelt-normal.melt:4828:/ cond");
-     /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4828:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:4828:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4828:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:4828:/ compute");
-        /*_.LOOPSUPERFIELD__V58*/ curfptr[57] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4828:/ exit");
-        /*exit*/{
-         goto labexit_LOOPSUPERFIELD_1;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4829:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4833:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4833:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V60*/ curfptr[59] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4833:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4833:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCF_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4833:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCF_FLD", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), ((/*!CLASS_FIELDS*/ curfrout->tabval[22])), "NACCF_FLD");
-       ;
-       /*_.INST___V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;}
-      ;
-      /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = 
-       (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));;
-      MELT_LOCATION("warmelt-normal.melt:4830:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4830:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V63*/ curfptr[62] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4830:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4830:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCM_MUL", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.INST___V59*/ curfptr[58]), "NACCM_MUL");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4830:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCM_IX", melt_magic_discr((melt_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.MAKE_INTEGERBOX__V61*/ curfptr[60]), "NACCM_IX");
-       ;
-       /*_.SUPFLDATA__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4841:/ locexp");
-      meltgc_multiple_put_nth((melt_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#IX__L11*/ curfnum[10]), (melt_ptr_t)(/*_.SUPFLDATA__V62*/ curfptr[61]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4829:/ clear");
-      /*clear*/ /*_.INST___V59*/ curfptr[58] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4829:/ clear");
-      /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4829:/ clear");
-      /*clear*/ /*_.SUPFLDATA__V62*/ curfptr[61] = 0 ;}
-     ;
-     /*_#I__L17*/ curfnum[16] = 
-      ((/*_#IX__L11*/ curfnum[10]) + (1));;
-     MELT_LOCATION("warmelt-normal.melt:4843:/ compute");
-     /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L18*/ curfnum[17] = /*_#I__L17*/ curfnum[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4827:/ clear");
-     /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4827:/ clear");
-     /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4827:/ clear");
-     /*clear*/ /*_#SETQ___L18*/ curfnum[17] = 0 ;}
-    ;
-    ;
-     goto labloop_LOOPSUPERFIELD_1;
-     labexit_LOOPSUPERFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4827:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V57*/ curfptr[55] = /*_.LOOPSUPERFIELD__V58*/ curfptr[57];;
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4845:/ compute");
-   /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L19*/ curfnum[15] = 0;;
-   MELT_LOCATION("warmelt-normal.melt:4847:/ loop");
-   /*loop*/{ labloop_LOOPOWNFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4847:/ loopbody");
-   
-    MELT_LOCATION("warmelt-normal.melt:4847:/ block");
-    /*block*/{
-     /*_#I__L20*/ curfnum[16] = 
-      ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBOWNFLD__L9*/ curfnum[8]));;
-     MELT_LOCATION("warmelt-normal.melt:4848:/ cond");
-     /*cond*/ if (/*_#I__L20*/ curfnum[16]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4848:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:4848:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4848:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:4848:/ compute");
-        /*_.LOOPOWNFIELD__V65*/ curfptr[60] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4848:/ exit");
-        /*exit*/{
-         goto labexit_LOOPOWNFIELD_1;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4849:/ block");
-     /*block*/{
-      /*_.OWNFLDBIND__V66*/ curfptr[61] = 
-       (melt_multiple_nth((melt_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17]), (/*_#IX__L11*/ curfnum[10])));;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:4850:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:4850:/ block");
-       /*block*/{
-        /*_#IS_A__L21*/ curfnum[17] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[25])));;
-        MELT_LOCATION("warmelt-normal.melt:4850:/ cond");
-        /*cond*/ if (/*_#IS_A__L21*/ curfnum[17]) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:4850:/ cond.then");
-        /*_.IFELSE___V68*/ curfptr[67] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-normal.melt:4850:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:4850:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:4850:/ locexp");
-           melt_assert_failed(( "check ownfldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4850)?(4850):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V67*/ curfptr[66] = /*_.IFELSE___V68*/ curfptr[67];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4850:/ clear");
-        /*clear*/ /*_#IS_A__L21*/ curfnum[17] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4850:/ clear");
-        /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:4850:/ cppif.else");
-      /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:4851:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4851:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 0, "BINDER");/*_.OWNFLDSYM__V69*/ curfptr[67] = slot; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4852:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 3, "FLBIND_FIELD");/*_.OWNFLD__V70*/ curfptr[69] = slot; };
-       ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:4854:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:4854:/ block");
-        /*block*/{
-         /*_#IS_A__L22*/ curfnum[17] = 
-          melt_is_instance_of((melt_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[26])));;
-         MELT_LOCATION("warmelt-normal.melt:4854:/ cond");
-         /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:4854:/ cond.then");
-         /*_.IFELSE___V72*/ curfptr[71] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-normal.melt:4854:/ cond.else");
-         
-          MELT_LOCATION("warmelt-normal.melt:4854:/ block");
-          /*block*/{
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-normal.melt:4854:/ locexp");
-            melt_assert_failed(( "check ownfldsym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4854)?(4854):__LINE__, __FUNCTION__);
-;}
-            ;
-            /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
-           ;
-           /*epilog*/}
-          ;
-          }
-         ;
-         /*_.IFCPP___V71*/ curfptr[70] = /*_.IFELSE___V72*/ curfptr[71];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:4854:/ clear");
-         /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4854:/ clear");
-         /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:4854:/ cppif.else");
-       /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:4855:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:4855:/ block");
-        /*block*/{
-         /*_#IS_A__L23*/ curfnum[17] = 
-          melt_is_instance_of((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])));;
-         MELT_LOCATION("warmelt-normal.melt:4855:/ cond");
-         /*cond*/ if (/*_#IS_A__L23*/ curfnum[17]) /*then*/ {
-         MELT_LOCATION("warmelt-normal.melt:4855:/ cond.then");
-         /*_.IFELSE___V74*/ curfptr[73] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-normal.melt:4855:/ cond.else");
-         
-          MELT_LOCATION("warmelt-normal.melt:4855:/ block");
-          /*block*/{
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-normal.melt:4855:/ locexp");
-            melt_assert_failed(( "check ownfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4855)?(4855):__LINE__, __FUNCTION__);
-;}
-            ;
-            /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;}
-           ;
-           /*epilog*/}
-          ;
-          }
-         ;
-         /*_.IFCPP___V73*/ curfptr[71] = /*_.IFELSE___V74*/ curfptr[73];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:4855:/ clear");
-         /*clear*/ /*_#IS_A__L23*/ curfnum[17] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:4855:/ clear");
-         /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:4855:/ cppif.else");
-       /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-normal.melt:4856:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:4856:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4856:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-         MELT_LOCATION("warmelt-normal.melt:4856:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-         /*_.OWNFLDSYMDATA__V75*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#OBJ_LEN__L24*/ curfnum[17] = 
-         (melt_obj_len((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));;
-        /*_.OWNFLDSLOTS__V76*/ curfptr[75] = 
-         (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L24*/ curfnum[17])));;
-        MELT_LOCATION("warmelt-normal.melt:4860:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[3];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-         MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-         MELT_LOCATION("warmelt-normal.melt:4860:/ apply.arg");
-         argtab[2].bp_cstring =  "discr_string";
-         /*_.NORMAL_PREDEF__V77*/ curfptr[76] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4861:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), 1, "NAMED_NAME");/*_.NAMED_NAME__V78*/ curfptr[77] = slot; };
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4859:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:4859:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V80*/ curfptr[79] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4859:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V80*/ curfptr[79]), (2), (/*_.NORMAL_PREDEF__V77*/ curfptr[76]), "NDATA_DISCRX");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4859:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V80*/ curfptr[79]), (5), (/*_.NAMED_NAME__V78*/ curfptr[77]), "NSTR_STRING");
-         ;
-         /*_.OWNFLSTRDATA__V79*/ curfptr[78] = /*_.INST__V80*/ curfptr[79];;}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4866:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[3];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-         MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V13*/ curfptr[12];
-         MELT_LOCATION("warmelt-normal.melt:4866:/ apply.arg");
-         argtab[2].bp_cstring =  "class_field";
-         /*_.NORMAL_PREDEF__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#OBJ_HASH__L25*/ curfnum[24] = 
-         (melt_obj_hash((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));;
-        /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = 
-         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L25*/ curfnum[24])));;
-        /*_#OBJ_NUM__L26*/ curfnum[25] = 
-         (melt_obj_num((melt_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));;
-        /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = 
-         (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_NUM__L26*/ curfnum[25])));;
-        MELT_LOCATION("warmelt-normal.melt:4863:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:4863:/ rawallocobj");
-         /*rawallocobj*/ { melt_ptr_t newobj = 0;
-          melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V85*/ curfptr[84] =
-          newobj; };
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (1), (/*_.OWNFLDSYM__V69*/ curfptr[67]), "NDATA_NAME");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (2), (/*_.NORMAL_PREDEF__V81*/ curfptr[80]), "NDATA_DISCRX");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (7), (/*_.MAKE_INTEGERBOX__V82*/ curfptr[81]), "NINST_HASH");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (5), (/*_.MAKE_INTEGERBOX__V83*/ curfptr[82]), "NINST_OBJNUM");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4863:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.INST__V85*/ curfptr[84]), (8), (/*_.OWNFLDSLOTS__V76*/ curfptr[75]), "NINST_SLOTS");
-         ;
-         /*_.OWNFLDATA__V84*/ curfptr[83] = /*_.INST__V85*/ curfptr[84];;}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4871:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4871:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OWNFLDATA__V84*/ curfptr[83];
-         /*_.ADD_NCTX_DATA__V86*/ curfptr[85] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4872:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4872:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78];
-         /*_.ADD_NCTX_DATA__V87*/ curfptr[86] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4873:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4873:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]);
-         MELT_LOCATION("warmelt-normal.melt:4873:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78];
-         /*_.FILL_DATA_SLOT__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4874:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[2];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:4874:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &(/*!FLD_OWNCLASS*/ curfrout->tabval[28]);
-         MELT_LOCATION("warmelt-normal.melt:4874:/ apply.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30];
-         /*_.FILL_DATA_SLOT__V89*/ curfptr[88] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_#I__L27*/ curfnum[26] = 
-         ((/*_#IX__L11*/ curfnum[10]) + (/*_#NBSUPFLD__L10*/ curfnum[9]));;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4875:/ locexp");
-        meltgc_multiple_put_nth((melt_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#I__L27*/ curfnum[26]), (melt_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4877:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-normal.melt:4877:/ putslot");
-         /*putslot*/
-         melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61])) == OBMAG_OBJECT);
-         melt_putfield_object((/*_.OWNFLDBIND__V66*/ curfptr[61]), (1), (/*_.OWNFLDATA__V84*/ curfptr[83]), "FIXBIND_DATA");
-         ;
-         MELT_LOCATION("warmelt-normal.melt:4877:/ touch");
-         meltgc_touch(/*_.OWNFLDBIND__V66*/ curfptr[61]);
-         ;
-         /*epilog*/}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.OWNFLDSYMDATA__V75*/ curfptr[73] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_#OBJ_LEN__L24*/ curfnum[17] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.OWNFLDSLOTS__V76*/ curfptr[75] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.NORMAL_PREDEF__V77*/ curfptr[76] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V78*/ curfptr[77] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.OWNFLSTRDATA__V79*/ curfptr[78] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.NORMAL_PREDEF__V81*/ curfptr[80] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_#OBJ_HASH__L25*/ curfnum[24] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_#OBJ_NUM__L26*/ curfnum[25] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.OWNFLDATA__V84*/ curfptr[83] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.ADD_NCTX_DATA__V86*/ curfptr[85] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.FILL_DATA_SLOT__V88*/ curfptr[87] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_.FILL_DATA_SLOT__V89*/ curfptr[88] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4856:/ clear");
-        /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
-       /*clear*/ /*_.OWNFLDSYM__V69*/ curfptr[67] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
-       /*clear*/ /*_.OWNFLD__V70*/ curfptr[69] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
-       /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4851:/ clear");
-       /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ;}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4849:/ clear");
-      /*clear*/ /*_.OWNFLDBIND__V66*/ curfptr[61] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4849:/ clear");
-      /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ;}
-     ;
-     /*_#I__L28*/ curfnum[17] = 
-      ((/*_#IX__L11*/ curfnum[10]) + (1));;
-     MELT_LOCATION("warmelt-normal.melt:4881:/ compute");
-     /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L29*/ curfnum[24] = /*_#I__L28*/ curfnum[17];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4847:/ clear");
-     /*clear*/ /*_#I__L20*/ curfnum[16] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4847:/ clear");
-     /*clear*/ /*_#I__L28*/ curfnum[17] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4847:/ clear");
-     /*clear*/ /*_#SETQ___L29*/ curfnum[24] = 0 ;}
-    ;
-    ;
-     goto labloop_LOOPOWNFIELD_1;
-     labexit_LOOPOWNFIELD_1:;MELT_LOCATION("warmelt-normal.melt:4847:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V64*/ curfptr[58] = /*_.LOOPOWNFIELD__V65*/ curfptr[60];;
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4884:/ cond");
-   /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4884:/ cond.then");
-   MELT_LOCATION("warmelt-normal.melt:4884:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:4884:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[2];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:4884:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISC_SUPER*/ curfrout->tabval[29]);
-      MELT_LOCATION("warmelt-normal.melt:4884:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SUPERDATA__V43*/ curfptr[42];
-      /*_.FILL_DATA_SLOT__V91*/ curfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IF___V90*/ curfptr[73] = /*_.FILL_DATA_SLOT__V91*/ curfptr[75];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4884:/ clear");
-     /*clear*/ /*_.FILL_DATA_SLOT__V91*/ curfptr[75] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-normal.melt:4884:/ cond.else");
-   
-    /*_.IF___V90*/ curfptr[73] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4886:/ compute");
-   /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L30*/ curfnum[25] = 0;;
-   MELT_LOCATION("warmelt-normal.melt:4888:/ loop");
-   /*loop*/{ labloop_LOOPANCESTORSUPER_1:;MELT_LOCATION("warmelt-normal.melt:4888:/ loopbody");
-   
-    MELT_LOCATION("warmelt-normal.melt:4888:/ block");
-    /*block*/{
-     /*_#I__L31*/ curfnum[26] = 
-      ((/*_#NBANC__L7*/ curfnum[6]) - (1));;
-     /*_#I__L32*/ curfnum[16] = 
-      ((/*_#IX__L11*/ curfnum[10]) >= (/*_#I__L31*/ curfnum[26]));;
-     MELT_LOCATION("warmelt-normal.melt:4889:/ cond");
-     /*cond*/ if (/*_#I__L32*/ curfnum[16]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:4889:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:4889:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4889:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:4889:/ compute");
-        /*_.LOOPANCESTORSUPER__V93*/ curfptr[77] = NULL;;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4889:/ exit");
-        /*exit*/{
-         goto labexit_LOOPANCESTORSUPER_1;}
-        ;}
-       ;
-       /*epilog*/}
-      ;
-     } /*noelse*/
-     ;
-     MELT_LOCATION("warmelt-normal.melt:4890:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4894:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4894:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V95*/ curfptr[80] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4894:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4894:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCF_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4894:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCF_FLD", melt_magic_discr((melt_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V95*/ curfptr[80]), (2), ((/*!CLASS_ANCESTORS*/ curfrout->tabval[21])), "NACCF_FLD");
-       ;
-       /*_.INST___V94*/ curfptr[78] = /*_.INST__V95*/ curfptr[80];;}
-      ;
-      /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = 
-       (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));;
-      MELT_LOCATION("warmelt-normal.melt:4891:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4891:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V98*/ curfptr[83] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4891:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4891:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCM_MUL", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (1), (/*_.INST___V94*/ curfptr[78]), "NACCM_MUL");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4891:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NACCM_IX", melt_magic_discr((melt_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V98*/ curfptr[83]), (2), (/*_.MAKE_INTEGERBOX__V96*/ curfptr[81]), "NACCM_IX");
-       ;
-       /*_.SUPANCDATA__V97*/ curfptr[82] = /*_.INST__V98*/ curfptr[83];;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4899:/ locexp");
-      meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#IX__L11*/ curfnum[10]), (melt_ptr_t)(/*_.SUPANCDATA__V97*/ curfptr[82]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4890:/ clear");
-      /*clear*/ /*_.INST___V94*/ curfptr[78] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4890:/ clear");
-      /*clear*/ /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4890:/ clear");
-      /*clear*/ /*_.SUPANCDATA__V97*/ curfptr[82] = 0 ;}
-     ;
-     /*_#I__L33*/ curfnum[17] = 
-      ((/*_#IX__L11*/ curfnum[10]) + (1));;
-     MELT_LOCATION("warmelt-normal.melt:4901:/ compute");
-     /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L34*/ curfnum[24] = /*_#I__L33*/ curfnum[17];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
-     /*clear*/ /*_#I__L31*/ curfnum[26] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
-     /*clear*/ /*_#I__L32*/ curfnum[16] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
-     /*clear*/ /*_#I__L33*/ curfnum[17] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:4888:/ clear");
-     /*clear*/ /*_#SETQ___L34*/ curfnum[24] = 0 ;}
-    ;
-    ;
-     goto labloop_LOOPANCESTORSUPER_1;
-     labexit_LOOPANCESTORSUPER_1:;MELT_LOCATION("warmelt-normal.melt:4888:/ loopepilog");
-   /*loopepilog*/
-    /*_.FOREVER___V92*/ curfptr[76] = /*_.LOOPANCESTORSUPER__V93*/ curfptr[77];;
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4904:/ cond");
-   /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4904:/ cond.then");
-   MELT_LOCATION("warmelt-normal.melt:4904:/ block");
-    /*block*/{
-     /*_#I__L35*/ curfnum[26] = 
-      ((/*_#NBANC__L7*/ curfnum[6]) - (1));;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:4904:/ locexp");
-     meltgc_multiple_put_nth((melt_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#I__L35*/ curfnum[26]), (melt_ptr_t)(/*_.SUPERDATA__V43*/ curfptr[42]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:4904:/ clear");
-     /*clear*/ /*_#I__L35*/ curfnum[26] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*_.LET___V21*/ curfptr[19] = /*_.CLADATA__V31*/ curfptr[30];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.CLAOBJ__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NAMSYMDATA__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NAMSTRDATA__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#OBJ_LEN__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.CLASLOTS__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#OBJ_HASH__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.CLADATA__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ANCSEQ__V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#NBANC__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ANCTUP__V34*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ANCDATA__V36*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FLDSEQ__V38*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#NBFLD__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#NBOWNFLD__L9*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#NBSUPFLD__L10*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#IX__L11*/ curfnum[10] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FLDTUP__V39*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V40*/ curfptr[39] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FLDDATA__V41*/ curfptr[40] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.SUPERDATA__V43*/ curfptr[42] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.IFCPP___V46*/ curfptr[43] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V48*/ curfptr[44] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V49*/ curfptr[48] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V50*/ curfptr[49] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V51*/ curfptr[50] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FILL_DATA_SLOT__V52*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FILL_DATA_SLOT__V53*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FILL_DATA_SLOT__V54*/ curfptr[53] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#SETQ___L15*/ curfnum[12] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FOREVER___V57*/ curfptr[55] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#SETQ___L19*/ curfnum[15] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FOREVER___V64*/ curfptr[58] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.IF___V90*/ curfptr[73] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_#SETQ___L30*/ curfnum[25] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4768:/ clear");
-   /*clear*/ /*_.FOREVER___V92*/ curfptr[76] = 0 ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.LET___V21*/ curfptr[19];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.SPREDEF__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.SCLABIND__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.SUPERBIND__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.SFLDBINDS__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4760:/ clear");
-  /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4756:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:4756:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4756:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFCLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_131_warmelt_normal_NORMEXP_DEFCLASS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 64
-  void* varptr[64];
-#define CURFRAM_NBVARNUM 20
-  long varnum[20];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<64; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 64;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFINSTANCE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:4915:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4915:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4916:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4916:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINSTANCE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:4916:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4916:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4916:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4916:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4916:/ locexp");
-      melt_assert_failed(( "check definstance recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4916)?(4916):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4916:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4916:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4916:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4917:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4917:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4917:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4917:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4917:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4917:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4917:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4917)?(4917):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4917:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4917:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4917:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4918:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4918:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:4918:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4918:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4918:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4918:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4918:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4918)?(4918):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4918:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4918:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4918:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4919:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4919:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4919:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_definstance recv";
-    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4919:/ apply.arg");
-    argtab[3].bp_long = 4919;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4919:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4919:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4919:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4920:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4920:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4921:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4922:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4923:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDOCSTR__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4924:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4925:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; };
-  ;
-  /*_#IS_A__L5*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:4926:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4926:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4926:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4926:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; };
-    ;
-    /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4926:/ clear");
-    /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4926:/ cond.else");
-  
-   /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4927:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4928:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; };
-  ;
-  /*_.NBINDLIST__V25*/ curfptr[24] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  /*_.NBINDBOX__V26*/ curfptr[25] = 
-   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]));;
-  MELT_LOCATION("warmelt-normal.melt:4931:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4931:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
-   /*_.BINDINS__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4932:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:4932:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:4932:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   /*_.NAMDATA__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_A__L6*/ curfnum[5] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-  MELT_LOCATION("warmelt-normal.melt:4934:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4934:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4934:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4935:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:4935:/ ojbmsend.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     /*_.NORMAL_EXP__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.ICLADATA__V29*/ curfptr[28] = /*_.NORMAL_EXP__V30*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4934:/ clear");
-    /*clear*/ /*_.NORMAL_EXP__V30*/ curfptr[29] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4934:/ cond.else");
-  
-   /*_.ICLADATA__V29*/ curfptr[28] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4937:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4937:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:4937:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_definstance bindins";
-     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:4937:/ apply.arg");
-     argtab[3].bp_long = 4937;
-     /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4937:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4937:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4937:/ cppif.else");
-  /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4938:/ block");
-   /*block*/{
-    /*_#IS_A__L8*/ curfnum[6] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[11])));;
-    MELT_LOCATION("warmelt-normal.melt:4938:/ cond");
-    /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4938:/ cond.then");
-    /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4938:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4938:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4938:/ locexp");
-       melt_assert_failed(( "check bindins"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4938)?(4938):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V33*/ curfptr[31] = /*_.IFELSE___V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4938:/ clear");
-    /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4938:/ clear");
-    /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4938:/ cppif.else");
-  /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L9*/ curfnum[6] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));;
-  /*_#NOT__L10*/ curfnum[9] = 
-   (!(/*_#IS_A__L9*/ curfnum[6]));;
-  MELT_LOCATION("warmelt-normal.melt:4939:/ cond");
-  /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4939:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:4939:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4941:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:4941:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in definstance"), (melt_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4942:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-normal.melt:4942:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4940:/ block");
-    /*block*/{
-     /*_.PROGN___V38*/ curfptr[37] = /*_.RETURN___V37*/ curfptr[36];;}
-    ;
-    /*_.IF___V35*/ curfptr[33] = /*_.PROGN___V38*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4939:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4939:/ clear");
-    /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4939:/ clear");
-    /*clear*/ /*_.PROGN___V38*/ curfptr[37] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:4939:/ cond.else");
-  
-   /*_.IF___V35*/ curfptr[33] = NULL;;
-   }
-  ;
-  /*_#NULL__L11*/ curfnum[10] = 
-   ((/*_.SPREDEF__V17*/ curfptr[16]) == NULL);;
-  MELT_LOCATION("warmelt-normal.melt:4944:/ cond");
-  /*cond*/ if (/*_#NULL__L11*/ curfnum[10]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:4944:/ cond.then");
-  /*_.IFELSE___V39*/ curfptr[35] = (/*nil*/NULL);;
-  } else {MELT_LOCATION("warmelt-normal.melt:4944:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:4944:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L12*/ curfnum[11] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-normal.melt:4945:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L12*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4945:/ cond.then");
-    /*_.IFELSE___V40*/ curfptr[36] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4945:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4945:/ block");
-     /*block*/{
-      /*_#IS_A__L13*/ curfnum[12] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-      MELT_LOCATION("warmelt-normal.melt:4946:/ cond");
-      /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:4946:/ cond.then");
-      /*_.IFELSE___V41*/ curfptr[37] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:4946:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:4946:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:4948:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[41] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-normal.melt:4948:/ locexp");
-        melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in DEFINSTANCE"), (melt_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[41]));}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4949:/ block");
-        /*block*/{
-         /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-         MELT_LOCATION("warmelt-normal.melt:4949:/ finalreturn");
-         ;
-         /*finalret*/ goto labend_rout ;}
-        ;
-        MELT_LOCATION("warmelt-normal.melt:4947:/ block");
-        /*block*/{
-         /*_.PROGN___V44*/ curfptr[43] = /*_.RETURN___V43*/ curfptr[42];;}
-        ;
-        /*_.IFELSE___V41*/ curfptr[37] = /*_.PROGN___V44*/ curfptr[43];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:4946:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[41] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4946:/ clear");
-        /*clear*/ /*_.RETURN___V43*/ curfptr[42] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:4946:/ clear");
-        /*clear*/ /*_.PROGN___V44*/ curfptr[43] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V40*/ curfptr[36] = /*_.IFELSE___V41*/ curfptr[37];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4945:/ clear");
-      /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4945:/ clear");
-      /*clear*/ /*_.IFELSE___V41*/ curfptr[37] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[36];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4944:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L12*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4944:/ clear");
-    /*clear*/ /*_.IFELSE___V40*/ curfptr[36] = 0 ;}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4950:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4950:/ block");
-   /*block*/{
-    /*_#IS_A__L14*/ curfnum[12] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));;
-    MELT_LOCATION("warmelt-normal.melt:4950:/ cond");
-    /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4950:/ cond.then");
-    /*_.IFELSE___V46*/ curfptr[42] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4950:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4950:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4950:/ locexp");
-       melt_assert_failed(( "check sinstclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4950)?(4950):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V46*/ curfptr[42] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V45*/ curfptr[41] = /*_.IFELSE___V46*/ curfptr[42];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4950:/ clear");
-    /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4950:/ clear");
-    /*clear*/ /*_.IFELSE___V46*/ curfptr[42] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4950:/ cppif.else");
-  /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4951:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4951:/ block");
-   /*block*/{
-    /*_#IS_A__L15*/ curfnum[11] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-    MELT_LOCATION("warmelt-normal.melt:4951:/ cond");
-    /*cond*/ if (/*_#IS_A__L15*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4951:/ cond.then");
-    /*_.IFELSE___V48*/ curfptr[37] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4951:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4951:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4951:/ locexp");
-       melt_assert_failed(( "check sinstclasym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4951)?(4951):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V48*/ curfptr[37] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V47*/ curfptr[43] = /*_.IFELSE___V48*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4951:/ clear");
-    /*clear*/ /*_#IS_A__L15*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4951:/ clear");
-    /*clear*/ /*_.IFELSE___V48*/ curfptr[37] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4951:/ cppif.else");
-  /*_.IFCPP___V47*/ curfptr[43] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4952:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4954:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V50*/ curfptr[42] = slot; };
-   ;
-   /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V50*/ curfptr[42])));;
-   /*_.SLOTUP__V51*/ curfptr[37] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L16*/ curfnum[12])));;
-   /*_#NONZERO_HASH__L17*/ curfnum[11] = 
-    (melt_nonzerohash());;
-   /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[16])), (/*_#NONZERO_HASH__L17*/ curfnum[11])));;
-   MELT_LOCATION("warmelt-normal.melt:4955:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4955:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V54*/ curfptr[53] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.ICLADATA__V29*/ curfptr[28]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (7), (/*_.MAKE_INTEGERBOX__V52*/ curfptr[51]), "NINST_HASH");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (8), (/*_.SLOTUP__V51*/ curfptr[37]), "NINST_SLOTS");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4955:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM");
-    ;
-    /*_.INSDATA__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4965:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4965:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V53*/ curfptr[52];
-    /*_.ADD_NCTX_DATA__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[17])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4966:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4966:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDINS__V27*/ curfptr[26];
-    /*_.PUT_ENV__V56*/ curfptr[55] =  melt_apply ((meltclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[18])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4967:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4967:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDINS__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.BINDINS__V27*/ curfptr[26]), (1), (/*_.INSDATA__V53*/ curfptr[52]), "FIXBIND_DATA");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4967:/ touch");
-    meltgc_touch(/*_.BINDINS__V27*/ curfptr[26]);
-    ;
-    /*epilog*/}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4973:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4973:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (6));
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[3] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[4] = (melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[37]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:4973:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[5] = (melt_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]);
-    ;
-    /*_.LAMBDA___V57*/ curfptr[56] = /*_.LAMBDA___V58*/ curfptr[57];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4971:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4971:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[56];
-    /*_.MULTIPLE_EVERY__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[19])), (melt_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4995:/ block");
-   /*block*/{
-    /*_.THEBINDLIST__V61*/ curfptr[60] = 
-     melt_box_content((meltbox_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]));;
-    MELT_LOCATION("warmelt-normal.melt:4996:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4996:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
-     /*_.NBINDTUP__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.THEBINDLIST__V61*/ curfptr[60]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V62*/ curfptr[61])));;
-    /*_#I__L19*/ curfnum[18] = 
-     ((/*_#MULTIPLE_LENGTH__L18*/ curfnum[17]) > (0));;
-    MELT_LOCATION("warmelt-normal.melt:4998:/ cond");
-    /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4998:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:4998:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4999:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:4999:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NDATA_LOCBIND", melt_magic_discr((melt_ptr_t)(/*_.INSDATA__V53*/ curfptr[52])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INSDATA__V53*/ curfptr[52]), (4), (/*_.NBINDTUP__V62*/ curfptr[61]), "NDATA_LOCBIND");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4999:/ touch");
-       meltgc_touch(/*_.INSDATA__V53*/ curfptr[52]);
-       ;
-       /*epilog*/}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5001:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5001:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5001:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_definstance return insdata";
-       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19];
-       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5001:/ apply.arg");
-       argtab[3].bp_long = 5001;
-       /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5001:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5001:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5001:/ cppif.else");
-    /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V60*/ curfptr[59] = /*_.INSDATA__V53*/ curfptr[52];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
-    /*clear*/ /*_.THEBINDLIST__V61*/ curfptr[60] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
-    /*clear*/ /*_.NBINDTUP__V62*/ curfptr[61] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
-    /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4995:/ clear");
-    /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;}
-   ;
-   /*_.LET___V49*/ curfptr[36] = /*_.LET___V60*/ curfptr[59];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.CLASS_FIELDS__V50*/ curfptr[42] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.SLOTUP__V51*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[11] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.INSDATA__V53*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V55*/ curfptr[54] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.PUT_ENV__V56*/ curfptr[55] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.LAMBDA___V57*/ curfptr[56] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.MULTIPLE_EVERY__V59*/ curfptr[58] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4952:/ clear");
-   /*clear*/ /*_.LET___V60*/ curfptr[59] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V49*/ curfptr[36];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.NBINDLIST__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.NBINDBOX__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.BINDINS__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.NAMDATA__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.ICLADATA__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.IF___V35*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_#NULL__L11*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.IFELSE___V39*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.IFCPP___V47*/ curfptr[43] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4920:/ clear");
-  /*clear*/ /*_.LET___V49*/ curfptr[36] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:4915:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:4915:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4915:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFINSTANCE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_132_warmelt_normal_NORMEXP_DEFINSTANCE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_133_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_133_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 23
-  void* varptr[23];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<23; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 23;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:4973:/ getarg");
- /*_.FLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:4973:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:4973:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4974:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4974:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:4974:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_definstance flda";
-    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:4974:/ apply.arg");
-    argtab[3].bp_long = 4974;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4974:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4974:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4974:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:4975:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:4975:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:4975:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:4975:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:4975:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:4975:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:4975:/ locexp");
-      melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4975)?(4975):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4975:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:4975:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:4975:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:4976:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:4976:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:4977:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#CUROFF__L4*/ curfnum[1] = 
-   (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V7*/ curfptr[5])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4980:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4980:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-normal.melt:4980:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4980:/ cond.then");
-    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4980:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4980:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4980:/ locexp");
-       melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4980)?(4980):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4980:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4980:/ clear");
-    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4980:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4981:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4981:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:4982:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V12*/ curfptr[11] = slot; };
-    ;
-    /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V12*/ curfptr[11]), (/*_#CUROFF__L4*/ curfnum[1])));;
-    /*_#__L6*/ curfnum[4] = 
-     ((/*_.MULTIPLE_NTH__V13*/ curfptr[12]) == (/*_.CURFLD__V7*/ curfptr[5]));;
-    MELT_LOCATION("warmelt-normal.melt:4981:/ cond");
-    /*cond*/ if (/*_#__L6*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4981:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:4981:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:4981:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4981:/ locexp");
-       melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (4981)?(4981):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
-    /*clear*/ /*_.CLASS_FIELDS__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
-    /*clear*/ /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
-    /*clear*/ /*_#__L6*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4981:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4981:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:4984:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:4984:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:4984:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_definstance field curexp";
-     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4];
-     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:4984:/ apply.arg");
-     argtab[3].bp_long = 4984;
-     /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4984:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4984:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:4984:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:4985:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]);
-    MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12];MELT_LOCATION("warmelt-normal.melt:4985:/ multimsend.send");
-    /*_.NCUR__V17*/ curfptr[13] =  meltgc_send ((melt_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:4985:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:4988:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:4988:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:4988:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_definstance field ncur";
-       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4];
-       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:4988:/ apply.arg");
-       argtab[3].bp_long = 4988;
-       /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCUR__V17*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:4988:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:4988:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:4988:/ cppif.else");
-    /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:4989:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L4*/ curfnum[1]), (melt_ptr_t)(/*_.NCUR__V17*/ curfptr[13]));}
-    ;
-    /*_#IS_LIST__L9*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V18*/ curfptr[12])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-normal.melt:4990:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:4990:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:4990:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:4991:/ block");
-      /*block*/{
-       /*_.THEBINDLIST__V21*/ curfptr[19] = 
-        melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));;
-       MELT_LOCATION("warmelt-normal.melt:4992:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[1];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:4992:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12];
-        /*_.LIST_APPEND2LIST__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.THEBINDLIST__V21*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:4992:/ compute");
-       /*_.THEBINDLIST__V21*/ curfptr[19] = /*_.SETQ___V23*/ curfptr[22] = /*_.LIST_APPEND2LIST__V22*/ curfptr[21];;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:4993:/ locexp");
-       meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V21*/ curfptr[19]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:4991:/ clear");
-       /*clear*/ /*_.THEBINDLIST__V21*/ curfptr[19] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4991:/ clear");
-       /*clear*/ /*_.LIST_APPEND2LIST__V22*/ curfptr[21] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:4991:/ clear");
-       /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:4985:/ clear");
-    /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:4985:/ clear");
-    /*clear*/ /*_#IS_LIST__L9*/ curfnum[4] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:4985:/ clear");
-   /*clear*/ /*_.NBINDCUR__V18*/ curfptr[12] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
-  /*clear*/ /*_.CURFLD__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
-  /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
-  /*clear*/ /*_#CUROFF__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:4976:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:4973:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:4973:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_133_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 78
-  void* varptr[78];
-#define CURFRAM_NBVARNUM 27
-  long varnum[27];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<78; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 78;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_DEFSELECTOR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5009:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5009:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5010:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5010:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5010:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5010:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5010:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5010:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5010:/ locexp");
-      melt_assert_failed(( "check defselector recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5010)?(5010):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5010:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5010:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5010:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5011:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5011:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5011:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5011:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5011:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5011:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5011:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5011)?(5011):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5011:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5011:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5011:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5012:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5012:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5012:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5012:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5012:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5012:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5012:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5012)?(5012):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5012:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5012:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5012:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5013:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5013:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5013:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp defselector recv";
-    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5013:/ apply.arg");
-    argtab[3].bp_long = 5013;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5013:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5013:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5013:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5014:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5015:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5016:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5017:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5018:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDOCSTR__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5019:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5020:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; };
-  ;
-  /*_#IS_A__L5*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:5021:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5021:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5021:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5021:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; };
-    ;
-    /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5021:/ clear");
-    /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5021:/ cond.else");
-  
-   /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5022:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5023:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 8, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5024:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 9, "SDEFSEL_FORMALS");/*_.SFORMALS__V25*/ curfptr[24] = slot; };
-  ;
-  /*_.NBINDLIST__V26*/ curfptr[25] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));;
-  /*_.NBINDBOX__V27*/ curfptr[26] = 
-   meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NBINDLIST__V26*/ curfptr[25]));;
-  MELT_LOCATION("warmelt-normal.melt:5027:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5027:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SNAME__V16*/ curfptr[15];
-   /*_.BINDSEL__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5028:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5028:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:5028:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   /*_.NAMDATA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_A__L6*/ curfnum[5] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-  MELT_LOCATION("warmelt-normal.melt:5030:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5030:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5030:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5031:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-normal.melt:5031:/ ojbmsend.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     /*_.NORMAL_EXP__V31*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.ICLADATA__V30*/ curfptr[29] = /*_.NORMAL_EXP__V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5030:/ clear");
-    /*clear*/ /*_.NORMAL_EXP__V31*/ curfptr[30] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5030:/ cond.else");
-  
-   /*_.ICLADATA__V30*/ curfptr[29] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5033:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5033:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[6] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));;
-    MELT_LOCATION("warmelt-normal.melt:5033:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5033:/ cond.then");
-    /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5033:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5033:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5033:/ locexp");
-       melt_assert_failed(( "check bindsel"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5033)?(5033):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5033:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5033:/ clear");
-    /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5033:/ cppif.else");
-  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L8*/ curfnum[6] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.ICLADATA__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));;
-  /*_#NOT__L9*/ curfnum[8] = 
-   (!(/*_#IS_A__L8*/ curfnum[6]));;
-  MELT_LOCATION("warmelt-normal.melt:5034:/ cond");
-  /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5034:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5034:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5036:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5036:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in defselector"), (melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5037:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-normal.melt:5037:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5035:/ block");
-    /*block*/{
-     /*_.PROGN___V37*/ curfptr[36] = /*_.RETURN___V36*/ curfptr[35];;}
-    ;
-    /*_.IF___V34*/ curfptr[32] = /*_.PROGN___V37*/ curfptr[36];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5034:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5034:/ clear");
-    /*clear*/ /*_.RETURN___V36*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5034:/ clear");
-    /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5034:/ cond.else");
-  
-   /*_.IF___V34*/ curfptr[32] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5038:/ cond");
-  /*cond*/ if (/*_.SPREDEF__V17*/ curfptr[16]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5038:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5038:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L10*/ curfnum[9] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-normal.melt:5039:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L10*/ curfnum[9]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5039:/ cond.then");
-    /*_#OR___L11*/ curfnum[10] = /*_#IS_INTEGERBOX__L10*/ curfnum[9];;
-    } else {MELT_LOCATION("warmelt-normal.melt:5039:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5039:/ block");
-     /*block*/{
-      /*_#IS_A__L12*/ curfnum[11] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-      /*_#OR___L11*/ curfnum[10] = /*_#IS_A__L12*/ curfnum[11];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
-      /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;}
-     ;
-     }
-    ;
-    /*_#NOT__L13*/ curfnum[11] = 
-     (!(/*_#OR___L11*/ curfnum[10]));;
-    MELT_LOCATION("warmelt-normal.melt:5039:/ cond");
-    /*cond*/ if (/*_#NOT__L13*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5039:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5039:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5040:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[36] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5040:/ locexp");
-      melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in defselector"), (melt_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[36]));}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5041:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-       MELT_LOCATION("warmelt-normal.melt:5041:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5040:/ block");
-      /*block*/{
-       /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[40];;}
-      ;
-      /*_.IF___V39*/ curfptr[35] = /*_.PROGN___V42*/ curfptr[41];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[36] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
-      /*clear*/ /*_.RETURN___V41*/ curfptr[40] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5039:/ clear");
-      /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:5039:/ cond.else");
-    
-     /*_.IF___V39*/ curfptr[35] = NULL;;
-     }
-    ;
-    /*_.IF___V38*/ curfptr[34] = /*_.IF___V39*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L10*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
-    /*clear*/ /*_#OR___L11*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
-    /*clear*/ /*_#NOT__L13*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5038:/ clear");
-    /*clear*/ /*_.IF___V39*/ curfptr[35] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5038:/ cond.else");
-  
-   /*_.IF___V38*/ curfptr[34] = NULL;;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5042:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5042:/ block");
-   /*block*/{
-    /*_#IS_A__L14*/ curfnum[9] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));;
-    MELT_LOCATION("warmelt-normal.melt:5042:/ cond");
-    /*cond*/ if (/*_#IS_A__L14*/ curfnum[9]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5042:/ cond.then");
-    /*_.IFELSE___V44*/ curfptr[40] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5042:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5042:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5042:/ locexp");
-       melt_assert_failed(( "check sinstclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5042)?(5042):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V44*/ curfptr[40] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V43*/ curfptr[36] = /*_.IFELSE___V44*/ curfptr[40];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5042:/ clear");
-    /*clear*/ /*_#IS_A__L14*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5042:/ clear");
-    /*clear*/ /*_.IFELSE___V44*/ curfptr[40] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5042:/ cppif.else");
-  /*_.IFCPP___V43*/ curfptr[36] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5043:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5043:/ block");
-   /*block*/{
-    /*_#IS_A__L15*/ curfnum[10] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-    MELT_LOCATION("warmelt-normal.melt:5043:/ cond");
-    /*cond*/ if (/*_#IS_A__L15*/ curfnum[10]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5043:/ cond.then");
-    /*_.IFELSE___V46*/ curfptr[35] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5043:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5043:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5043:/ locexp");
-       melt_assert_failed(( "check sinstclasym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5043)?(5043):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V46*/ curfptr[35] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V45*/ curfptr[41] = /*_.IFELSE___V46*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5043:/ clear");
-    /*clear*/ /*_#IS_A__L15*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5043:/ clear");
-    /*clear*/ /*_.IFELSE___V46*/ curfptr[35] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5043:/ cppif.else");
-  /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5044:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5044:/ block");
-   /*block*/{
-    /*_#IS_A__L16*/ curfnum[11] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));;
-    MELT_LOCATION("warmelt-normal.melt:5044:/ cond");
-    /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5044:/ cond.then");
-    /*_.IFELSE___V48*/ curfptr[35] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5044:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5044:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5044:/ locexp");
-       melt_assert_failed(( "check sname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5044)?(5044):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V48*/ curfptr[35] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V47*/ curfptr[40] = /*_.IFELSE___V48*/ curfptr[35];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5044:/ clear");
-    /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5044:/ clear");
-    /*clear*/ /*_.IFELSE___V48*/ curfptr[35] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5044:/ cppif.else");
-  /*_.IFCPP___V47*/ curfptr[40] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5045:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5047:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V50*/ curfptr[49] = slot; };
-   ;
-   /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V50*/ curfptr[49])));;
-   /*_.SLOTUP__V51*/ curfptr[50] = 
-    (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L17*/ curfnum[9])));;
-   MELT_LOCATION("warmelt-normal.melt:5050:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:5050:/ apply.arg");
-    argtab[2].bp_cstring =  "discr_string";
-    /*_.NORMAL_PREDEF__V52*/ curfptr[51] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (melt_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5051:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[52] = slot; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5048:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5048:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V55*/ curfptr[54] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5048:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5048:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.NORMAL_PREDEF__V52*/ curfptr[51]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5048:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NSTR_STRING", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (5), (/*_.NAMED_NAME__V53*/ curfptr[52]), "NSTR_STRING");
-    ;
-    /*_.NAMSTRDATA__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;}
-   ;
-   /*_#NONZERO_HASH__L18*/ curfnum[10] = 
-    (melt_nonzerohash());;
-   /*_.MAKE_INTEGERBOX__V56*/ curfptr[55] = 
-    (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[19])), (/*_#NONZERO_HASH__L18*/ curfnum[10])));;
-   MELT_LOCATION("warmelt-normal.melt:5052:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5052:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[18])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V58*/ curfptr[57] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), (/*_.ICLADATA__V30*/ curfptr[29]), "NDATA_DISCRX");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_HASH", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (7), (/*_.MAKE_INTEGERBOX__V56*/ curfptr[55]), "NINST_HASH");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_SLOTS", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (8), (/*_.SLOTUP__V51*/ curfptr[50]), "NINST_SLOTS");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5052:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NINST_OBJNUM", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM");
-    ;
-    /*_.INSDATA__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;}
-   ;
-   /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = 
-    (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24])));;
-   /*_#I__L20*/ curfnum[19] = 
-    ((/*_#MULTIPLE_LENGTH__L19*/ curfnum[11]) * (2));;
-   /*_#I__L21*/ curfnum[20] = 
-    ((3) + (/*_#I__L20*/ curfnum[19]));;
-   /*_.FORMSYMBMAP__V59*/ curfptr[58] = 
-    (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[20])), (/*_#I__L21*/ curfnum[20])));;
-   MELT_LOCATION("warmelt-normal.melt:5062:/ cond");
-   /*cond*/ if (/*_.SFORMALS__V25*/ curfptr[24]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5062:/ cond.then");
-   MELT_LOCATION("warmelt-normal.melt:5062:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5063:/ block");
-     /*block*/{
-      /*_#NBFORMALS__L22*/ curfnum[21] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24])));;
-      /*_.NFORMALTUPLE__V62*/ curfptr[61] = 
-       (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#NBFORMALS__L22*/ curfnum[21])));;
-      MELT_LOCATION("warmelt-normal.melt:5069:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-       MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-       MELT_LOCATION("warmelt-normal.melt:5069:/ apply.arg");
-       argtab[2].bp_cstring =  "discr_multiple";
-       /*_.NORMAL_PREDEF__V63*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5065:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5065:/ rawallocobj");
-       /*rawallocobj*/ { melt_ptr_t newobj = 0;
-        melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[21])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V65*/ curfptr[64] =
-        newobj; };
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NDATA_NAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NDATA_DISCRX", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (2), (/*_.NORMAL_PREDEF__V63*/ curfptr[62]), "NDATA_DISCRX");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5065:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NTUP_COMP", melt_magic_discr((melt_ptr_t)(/*_.INST__V65*/ curfptr[64])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INST__V65*/ curfptr[64]), (5), (/*_.NFORMALTUPLE__V62*/ curfptr[61]), "NTUP_COMP");
-       ;
-       /*_.NFORMDATA__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;}
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5072:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[5];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFORMALTUPLE__V62*/ curfptr[61];
-       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.FORMSYMBMAP__V59*/ curfptr[58];
-       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
-       argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-       MELT_LOCATION("warmelt-normal.melt:5072:/ apply.arg");
-       argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-       /*_.FILL_NORMAL_FORMALS__V66*/ curfptr[65] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.SFORMALS__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5073:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5073:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V64*/ curfptr[63];
-       /*_.ADD_NCTX_DATA__V67*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5074:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5074:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*!SDEFSEL_FORMALS*/ curfrout->tabval[25]);
-       MELT_LOCATION("warmelt-normal.melt:5074:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NFORMDATA__V64*/ curfptr[63];
-       /*_.FILL_DATA_SLOT__V68*/ curfptr[67] =  melt_apply ((meltclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[24])), (melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.LET___V61*/ curfptr[60] = /*_.NFORMALTUPLE__V62*/ curfptr[61];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_#NBFORMALS__L22*/ curfnum[21] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_.NFORMALTUPLE__V62*/ curfptr[61] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_.NORMAL_PREDEF__V63*/ curfptr[62] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_.NFORMDATA__V64*/ curfptr[63] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_.FILL_NORMAL_FORMALS__V66*/ curfptr[65] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_.ADD_NCTX_DATA__V67*/ curfptr[66] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5063:/ clear");
-      /*clear*/ /*_.FILL_DATA_SLOT__V68*/ curfptr[67] = 0 ;}
-     ;
-     /*_.NFORMTUP__V60*/ curfptr[59] = /*_.LET___V61*/ curfptr[60];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5062:/ clear");
-     /*clear*/ /*_.LET___V61*/ curfptr[60] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-normal.melt:5062:/ cond.else");
-   
-    /*_.NFORMTUP__V60*/ curfptr[59] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5078:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5078:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INSDATA__V57*/ curfptr[56];
-    /*_.ADD_NCTX_DATA__V69*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5079:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5079:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NAMSTRDATA__V54*/ curfptr[53];
-    /*_.ADD_NCTX_DATA__V70*/ curfptr[62] =  melt_apply ((meltclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[23])), (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5080:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5080:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.BINDSEL__V28*/ curfptr[27]), (1), (/*_.INSDATA__V57*/ curfptr[56]), "FIXBIND_DATA");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5080:/ touch");
-    meltgc_touch(/*_.BINDSEL__V28*/ curfptr[27]);
-    ;
-    /*epilog*/}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5086:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5086:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V72*/ curfptr[65] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (6));
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[0] = (melt_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[1] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[2] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[3] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[4] = (melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[50]);
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5086:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V72*/ curfptr[65])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V72*/ curfptr[65])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[65])->tabval[5] = (melt_ptr_t)(/*_.NBINDBOX__V27*/ curfptr[26]);
-    ;
-    /*_.LAMBDA___V71*/ curfptr[63] = /*_.LAMBDA___V72*/ curfptr[65];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5084:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5084:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V71*/ curfptr[63];
-    /*_.MULTIPLE_EVERY__V73*/ curfptr[66] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[26])), (melt_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5105:/ block");
-   /*block*/{
-    /*_.THEBINDLIST__V75*/ curfptr[60] = 
-     melt_box_content((meltbox_ptr_t)(/*_.NBINDBOX__V27*/ curfptr[26]));;
-    MELT_LOCATION("warmelt-normal.melt:5106:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5106:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]);
-     /*_.NBINDTUP__V76*/ curfptr[75] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[32])), (melt_ptr_t)(/*_.THEBINDLIST__V75*/ curfptr[60]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#MULTIPLE_LENGTH__L23*/ curfnum[21] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.NBINDTUP__V76*/ curfptr[75])));;
-    /*_#I__L24*/ curfnum[23] = 
-     ((/*_#MULTIPLE_LENGTH__L23*/ curfnum[21]) > (0));;
-    MELT_LOCATION("warmelt-normal.melt:5108:/ cond");
-    /*cond*/ if (/*_#I__L24*/ curfnum[23]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5108:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5108:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5109:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5109:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @NDATA_LOCBIND", melt_magic_discr((melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.INSDATA__V57*/ curfptr[56]), (4), (/*_.NBINDTUP__V76*/ curfptr[75]), "NDATA_LOCBIND");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5109:/ touch");
-       meltgc_touch(/*_.INSDATA__V57*/ curfptr[56]);
-       ;
-       /*epilog*/}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*_#GET_INT__L25*/ curfnum[24] = 
-     (melt_get_int((melt_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[33]))));;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5111:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)(/*_.SLOTUP__V51*/ curfptr[50]), (/*_#GET_INT__L25*/ curfnum[24]), (melt_ptr_t)(/*_.NAMSTRDATA__V54*/ curfptr[53]));}
-    ;
-    /*_#IS_A__L26*/ curfnum[25] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));;
-    MELT_LOCATION("warmelt-normal.melt:5112:/ cond");
-    /*cond*/ if (/*_#IS_A__L26*/ curfnum[25]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5112:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5112:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5113:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5113:/ putslot");
-       /*putslot*/
-       melt_assertmsg("putslot checkobj @FIXBIND_DATA", melt_magic_discr((melt_ptr_t)(/*_.BINDSEL__V28*/ curfptr[27])) == OBMAG_OBJECT);
-       melt_putfield_object((/*_.BINDSEL__V28*/ curfptr[27]), (1), (/*_.INSDATA__V57*/ curfptr[56]), "FIXBIND_DATA");
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5113:/ touch");
-       meltgc_touch(/*_.BINDSEL__V28*/ curfptr[27]);
-       ;
-       /*epilog*/}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5117:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5117:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5117:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_defselector return insdata";
-       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[26];
-       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5117:/ apply.arg");
-       argtab[3].bp_long = 5117;
-       /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.INSDATA__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5117:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[26] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5117:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5117:/ cppif.else");
-    /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V74*/ curfptr[67] = /*_.INSDATA__V57*/ curfptr[56];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_.THEBINDLIST__V75*/ curfptr[60] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_.NBINDTUP__V76*/ curfptr[75] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_#MULTIPLE_LENGTH__L23*/ curfnum[21] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_#GET_INT__L25*/ curfnum[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_#IS_A__L26*/ curfnum[25] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5105:/ clear");
-    /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;}
-   ;
-   /*_.LET___V49*/ curfptr[35] = /*_.LET___V74*/ curfptr[67];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.CLASS_FIELDS__V50*/ curfptr[49] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.SLOTUP__V51*/ curfptr[50] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.NORMAL_PREDEF__V52*/ curfptr[51] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[52] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.NAMSTRDATA__V54*/ curfptr[53] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_#NONZERO_HASH__L18*/ curfnum[10] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[55] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.INSDATA__V57*/ curfptr[56] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.FORMSYMBMAP__V59*/ curfptr[58] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.NFORMTUP__V60*/ curfptr[59] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V69*/ curfptr[61] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.ADD_NCTX_DATA__V70*/ curfptr[62] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.LAMBDA___V71*/ curfptr[63] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.MULTIPLE_EVERY__V73*/ curfptr[66] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5045:/ clear");
-   /*clear*/ /*_.LET___V74*/ curfptr[67] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V49*/ curfptr[35];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.SFORMALS__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.NBINDLIST__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.NBINDBOX__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.BINDSEL__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.NAMDATA__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.ICLADATA__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.IF___V34*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.IF___V38*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.IFCPP___V43*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.IFCPP___V47*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5014:/ clear");
-  /*clear*/ /*_.LET___V49*/ curfptr[35] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5009:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5009:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5009:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_DEFSELECTOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_134_warmelt_normal_NORMEXP_DEFSELECTOR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_135_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_135_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5086:/ getarg");
- /*_.FLDA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5086:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5086:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5087:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5087:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5087:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5087:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5087:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5087:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5087:/ locexp");
-      melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5087)?(5087):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5087:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5087:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5087:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5088:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5088:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V5*/ curfptr[3] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5089:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V6*/ curfptr[5] = slot; };
-  ;
-  /*_#CUROFF__L3*/ curfnum[1] = 
-   (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V5*/ curfptr[3])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5092:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5092:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-normal.melt:5092:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5092:/ cond.then");
-    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5092:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5092:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5092:/ locexp");
-       melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5092)?(5092):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5092:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5092:/ clear");
-    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5092:/ cppif.else");
-  /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5093:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5093:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5094:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V10*/ curfptr[9] = slot; };
-    ;
-    /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 
-     (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V10*/ curfptr[9]), (/*_#CUROFF__L3*/ curfnum[1])));;
-    /*_#__L5*/ curfnum[3] = 
-     ((/*_.MULTIPLE_NTH__V11*/ curfptr[10]) == (/*_.CURFLD__V5*/ curfptr[3]));;
-    MELT_LOCATION("warmelt-normal.melt:5093:/ cond");
-    /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5093:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5093:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5093:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5093:/ locexp");
-       melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5093)?(5093):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
-    /*clear*/ /*_.CLASS_FIELDS__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
-    /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
-    /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5093:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5093:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5096:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]);
-    MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10];MELT_LOCATION("warmelt-normal.melt:5096:/ multimsend.send");
-    /*_.NCUR__V13*/ curfptr[9] =  meltgc_send ((melt_ptr_t)(/*_.CUREXP__V6*/ curfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5096:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5099:/ locexp");
-    meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L3*/ curfnum[1]), (melt_ptr_t)(/*_.NCUR__V13*/ curfptr[9]));}
-    ;
-    /*_#IS_LIST__L6*/ curfnum[3] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V14*/ curfptr[10])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-normal.melt:5100:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5100:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5100:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5101:/ block");
-      /*block*/{
-       /*_.THEBINDLIST__V15*/ curfptr[11] = 
-        melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));;
-       MELT_LOCATION("warmelt-normal.melt:5102:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[1];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5102:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10];
-        /*_.LIST_APPEND2LIST__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5102:/ compute");
-       /*_.THEBINDLIST__V15*/ curfptr[11] = /*_.SETQ___V17*/ curfptr[16] = /*_.LIST_APPEND2LIST__V16*/ curfptr[15];;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5103:/ locexp");
-       meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ curfptr[11]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5101:/ clear");
-       /*clear*/ /*_.THEBINDLIST__V15*/ curfptr[11] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5101:/ clear");
-       /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[15] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5101:/ clear");
-       /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5096:/ clear");
-    /*clear*/ /*_#IS_LIST__L6*/ curfnum[3] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5096:/ clear");
-   /*clear*/ /*_.NBINDCUR__V14*/ curfptr[10] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
-  /*clear*/ /*_.CURFLD__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
-  /*clear*/ /*_.CUREXP__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
-  /*clear*/ /*_#CUROFF__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
-  /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5088:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5086:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_135_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_VALUE_EXPORTER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5138:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5138:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5139:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5139:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5139:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5139:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5139:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5139:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5139:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5139)?(5139):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5139:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5139:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5139:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5140:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5140:/ block");
-  /*block*/{
-   /*_#IS_LIST__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-normal.melt:5140:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5140:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5140:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5140:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5140:/ locexp");
-      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5140)?(5140):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5140:/ clear");
-   /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5140:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5140:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5141:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5141:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5141:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5141:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5141:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5141:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5141:/ locexp");
-      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5141)?(5141):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5141:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5141:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5141:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5142:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5142:/ apply");
-  /*apply*/{
-   /*_.CSYMVALEXP__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[2])), (melt_ptr_t)((/*!konst_3_VALUEXPORTER_*/ curfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5143:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5143:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[4])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5143:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5143:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), ((/*!konst_5_INITIAL_SYSTEM_DATA*/ curfrout->tabval[5])), "NRPREDEF");
-   ;
-   /*_.NSYSDAT__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5150:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5150:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5150:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5150:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.NSYSDAT__V14*/ curfptr[13]), "NUGET_OBJ");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5150:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (2), ((/*!SYSDATA_VALUE_EXPORTER*/ curfrout->tabval[9])), "NUGET_FIELD");
-   ;
-   /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5146:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5146:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V19*/ curfptr[18] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5146:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.INST___V16*/ curfptr[15]), "LETBIND_EXPR");
-   ;
-   /*_.CBIND__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5154:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5154:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "NOCC_SYMB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5154:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.CBIND__V18*/ curfptr[17]), "NOCC_BIND");
-   ;
-   /*_.LOCSYM__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:5160:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V18*/ curfptr[17]));}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5161:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V20*/ curfptr[19];;
-   MELT_LOCATION("warmelt-normal.melt:5161:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
-  /*clear*/ /*_.CSYMVALEXP__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
-  /*clear*/ /*_.NSYSDAT__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
-  /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
-  /*clear*/ /*_.CBIND__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
-  /*clear*/ /*_.LOCSYM__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5142:/ clear");
-  /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5138:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];;
-  MELT_LOCATION("warmelt-normal.melt:5138:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5138:/ clear");
- /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_VALUE_EXPORTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_136_warmelt_normal_NORMAL_VALUE_EXPORTER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 60
-  void* varptr[60];
-#define CURFRAM_NBVARNUM 14
-  long varnum[14];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<60; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 60;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_EXPORTED_VALUE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NVALUEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
- 
- 
- /*getarg#6*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ getarg");
- if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5173:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5174:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5174:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5174:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_value start sym";
-    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5174:/ apply.arg");
-    argtab[3].bp_long = 5174;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5174:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5174:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5174:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5175:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5175:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5175:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_value start nexp";
-    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5175:/ apply.arg");
-    argtab[3].bp_long = 5175;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5175:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5175:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5175:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5176:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5176:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5176:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_value start nvaluexp";
-    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5176:/ apply.arg");
-    argtab[3].bp_long = 5176;
-    /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5176:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5176:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5176:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5177:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5177:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5177:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5177:/ cond.then");
-   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5177:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5177:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5177:/ locexp");
-      melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5177)?(5177):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5177:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5177:/ clear");
-   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5177:/ cppif.else");
- /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5178:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5178:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5178:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5178:/ cond.then");
-   /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5178:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5178:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5178:/ locexp");
-      melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5178)?(5178):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5178:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5178:/ clear");
-   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5178:/ cppif.else");
- /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5179:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5179:/ block");
-  /*block*/{
-   /*_#IS_A__L6*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5179:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5179:/ cond.then");
-   /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5179:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5179:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5179:/ locexp");
-      melt_assert_failed(( "check nvaluexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5179)?(5179):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5179:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5179:/ clear");
-   /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5179:/ cppif.else");
- /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5180:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5180:/ block");
-  /*block*/{
-   /*_#IS_A__L7*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-normal.melt:5180:/ cond");
-   /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5180:/ cond.then");
-   /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5180:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5180:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5180:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5180)?(5180):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5180:/ clear");
-   /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5180:/ clear");
-   /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5180:/ cppif.else");
- /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5181:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5181:/ block");
-  /*block*/{
-   /*_#IS_A__L8*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));;
-   MELT_LOCATION("warmelt-normal.melt:5181:/ cond");
-   /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5181:/ cond.then");
-   /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5181:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5181:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5181:/ locexp");
-      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5181)?(5181):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5181:/ clear");
-   /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5181:/ clear");
-   /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5181:/ cppif.else");
- /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5182:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5182:/ block");
-  /*block*/{
-   /*_#IS_LIST__L9*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-normal.melt:5182:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5182:/ cond.then");
-   /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5182:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5182:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5182:/ locexp");
-      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5182)?(5182):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5182:/ clear");
-   /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5182:/ clear");
-   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5182:/ cppif.else");
- /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5183:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5183:/ apply");
-  /*apply*/{
-   /*_.CSYMEXPO__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTED_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5184:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5184:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-normal.melt:5184:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
-   /*_.SYMDATA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5185:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 0, "NCTX_INITPROC");/*_.INIPROC__V30*/ curfptr[29] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5186:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 10, "NCTX_CURPROC");/*_.CURPROC__V31*/ curfptr[30] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5187:/ block");
-  /*block*/{
-   /*_.SB__V33*/ curfptr[32] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5188:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ curfptr[32]), ( "norm.exp.val : "));}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5189:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5189:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ curfptr[32]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33])));}
-   ;
-   /*_.LET___V32*/ curfptr[31] = /*_.SB__V33*/ curfptr[32];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5187:/ clear");
-   /*clear*/ /*_.SB__V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5187:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;}
-  ;
-  /*_.CSBUF__V35*/ curfptr[32] = /*_.LET___V32*/ curfptr[31];;
-  /*_.STRBUF2STRING__V36*/ curfptr[33] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ curfptr[32]))));;
-  MELT_LOCATION("warmelt-normal.melt:5191:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5191:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5191:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5191:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ curfptr[33]), "CMEC_COMMENT");
-   ;
-   /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5195:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5195:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5195:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
-     argtab[0].bp_cstring =  "normal_exported_value scurenvbox";
-     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5195:/ apply.arg");
-     argtab[3].bp_long = 5195;
-     /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5195:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5195:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5195:/ cppif.else");
-  /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5196:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
-    MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42];MELT_LOCATION("warmelt-normal.melt:5196:/ multimsend.send");
-    /*_.NCURENVBOX__V42*/ curfptr[41] =  meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5196:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5199:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5199:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5199:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_exported_value ncurenvbox";
-       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5199:/ apply.arg");
-       argtab[3].bp_long = 5199;
-       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5199:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5199:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5199:/ cppif.else");
-    /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5200:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5200:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5200:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_exported_value curenvbinds";
-       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5200:/ apply.arg");
-       argtab[3].bp_long = 5200;
-       /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5200:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5200:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5200:/ cppif.else");
-    /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:5202:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5202:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42];
-     /*_.LIST_APPEND2LIST__V48*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5203:/ block");
-    /*block*/{
-     /*_.ARGTUP__V50*/ curfptr[49] = 
-      (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]),  (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41])));;
-     MELT_LOCATION("warmelt-normal.melt:5209:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5209:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V52*/ curfptr[51] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[17])), "NEXPR_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (3), (/*_.NVALUEXP__V4*/ curfptr[3]), "NAPP_FUN");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5209:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.ARGTUP__V50*/ curfptr[49]), "NEXPR_ARGS");
-      ;
-      /*_.INST___V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5205:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5205:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V54*/ curfptr[53] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5205:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.INST___V51*/ curfptr[50]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5215:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5215:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[18])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V56*/ curfptr[55] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5215:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.CBIND__V53*/ curfptr[52]), "NOCC_BIND");
-      ;
-      /*_.SYOCC__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5221:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5221:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5221:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_exported_value cbind";
-        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5221:/ apply.arg");
-        argtab[3].bp_long = 5221;
-        /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V57*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5221:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5221:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5221:/ cppif.else");
-     /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5222:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5222:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5222:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_exported_value return syocc";
-        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5222:/ apply.arg");
-        argtab[3].bp_long = 5222;
-        /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V59*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5222:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5222:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5222:/ cppif.else");
-     /*_.IFCPP___V59*/ curfptr[57] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5223:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (melt_ptr_t)(/*_.CBIND__V53*/ curfptr[52]));}
-     ;
-     /*_.LET___V49*/ curfptr[48] = /*_.SYOCC__V55*/ curfptr[54];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
-     /*clear*/ /*_.ARGTUP__V50*/ curfptr[49] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
-     /*clear*/ /*_.INST___V51*/ curfptr[50] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
-     /*clear*/ /*_.CBIND__V53*/ curfptr[52] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
-     /*clear*/ /*_.SYOCC__V55*/ curfptr[54] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
-     /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5203:/ clear");
-     /*clear*/ /*_.IFCPP___V59*/ curfptr[57] = 0 ;}
-    ;
-    /*_.MULTI___V41*/ curfptr[39] = /*_.LET___V49*/ curfptr[48];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
-    /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
-    /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V48*/ curfptr[46] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
-    /*clear*/ /*_.LET___V49*/ curfptr[48] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5196:/ clear");
-   /*clear*/ /*_.CURENVBINDS__V43*/ curfptr[42] = 0 ;}
-  ;
-  /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V41*/ curfptr[39];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.INIPROC__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.CURPROC__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.CSBUF__V35*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5183:/ clear");
-  /*clear*/ /*_.MULTI___V41*/ curfptr[39] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];;
-  MELT_LOCATION("warmelt-normal.melt:5173:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5173:/ clear");
- /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_EXPORTED_VALUE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_137_warmelt_normal_NORMAL_EXPORTED_VALUE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 30
-  void* varptr[30];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<30; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 30;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_EXPORT_VALUES", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5230:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5230:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5237:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5237:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5237:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5237:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5237:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5237:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5237:/ locexp");
-      melt_assert_failed(( "check exportval recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5237)?(5237):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5237:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5237:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5237:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5238:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5238:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5238:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5238:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5238:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5238:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5238:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5238)?(5238):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5238:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5238:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5238:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5239:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5239:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5239:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5239:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5239:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5239:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5239:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5239)?(5239):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5239:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5239:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5239:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5240:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5240:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5240:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_export_values recv";
-    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5240:/ apply.arg");
-    argtab[3].bp_long = 5240;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5240:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5240:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5240:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5241:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5242:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5243:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; };
-  ;
-  /*_.BINDSLIST__V17*/ curfptr[16] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-normal.melt:5245:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:5245:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16];
-   /*_.NVALUEXPORTER__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5246:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5246:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5246:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5249:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5249:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5249:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_values nvaluexporter";
-     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5249:/ apply.arg");
-     argtab[3].bp_long = 5249;
-     /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5249:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5249:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5249:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5252:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5252:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (5));
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[3] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5252:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[4] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]);
-   ;
-   /*_.LAMBDA___V23*/ curfptr[21] = /*_.LAMBDA___V24*/ curfptr[23];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5250:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5250:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[21];
-   /*_.MULTIPLE_EVERY__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5267:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5267:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5267:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_values final nilnrep";
-     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5267:/ apply.arg");
-     argtab[3].bp_long = 5267;
-     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5267:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5267:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5267:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5268:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5268:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5268:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_values final bindslist";
-     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5268:/ apply.arg");
-     argtab[3].bp_long = 5268;
-     /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5268:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5268:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5268:/ cppif.else");
-  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5269:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-normal.melt:5269:/ putxtraresult");
-   if (!xrestab_ || !xresdescr_) goto labend_rout;
-   if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-   if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ curfptr[16]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5269:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V30*/ curfptr[28];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.LAMBDA___V23*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5241:/ clear");
-  /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5230:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5230:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5230:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_EXPORT_VALUES", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_138_warmelt_normal_NORMEXP_EXPORT_VALUES*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_139_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_139_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5252:/ getarg");
- /*_.XNAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5252:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5252:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5253:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5253:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5253:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5253:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5253:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5253:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5253:/ locexp");
-      melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5253)?(5253):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5253:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5253:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5253:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5254:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5254:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5254:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_export_values xnam";
-    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5254:/ apply.arg");
-    argtab[3].bp_long = 5254;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5254:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5254:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5254:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5255:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend");
-  /*multimsend*/{
-   union meltparam_un argtab[3];
-   union meltparam_un restab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   memset(&restab, 0, sizeof(restab));
-   MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-   MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.xres");
-   restab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8];MELT_LOCATION("warmelt-normal.melt:5255:/ multimsend.send");
-   /*_.NSYM__V8*/ curfptr[7] =  meltgc_send ((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5255:/ block");
-  /*block*/{
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:5258:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:5258:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:5258:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_export_values nsym";
-      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1];
-      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:5258:/ apply.arg");
-      argtab[3].bp_long = 5258;
-      /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NSYM__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5258:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5258:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:5258:/ cppif.else");
-   /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:5259:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:5259:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:5259:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_export_values nsymbinds";
-      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1];
-      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:5259:/ apply.arg");
-      argtab[3].bp_long = 5259;
-      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NSYMBINDS__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5259:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5259:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:5259:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:5260:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5260:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8];
-    /*_.LIST_APPEND2LIST__V14*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:5261:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:5261:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:5261:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_export_values xnam again";
-      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1];
-      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:5261:/ apply.arg");
-      argtab[3].bp_long = 5261;
-      /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5261:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5261:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:5261:/ cppif.else");
-   /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:5262:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:5262:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:5262:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_export_values before normal_exported_value bindslist";
-      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1];
-      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:5262:/ apply.arg");
-      argtab[3].bp_long = 5262;
-      /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5262:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5262:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:5262:/ cppif.else");
-   /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:5263:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5263:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[6];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYM__V8*/ curfptr[7];
-     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[4]);
-     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
-     argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
-     argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-normal.melt:5263:/ apply.arg");
-     argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[3]);
-     /*_.NEXPV__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5265:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5265:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5265:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_values normal_exported_value gave nexpv";
-       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1];
-       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5265:/ apply.arg");
-       argtab[3].bp_long = 5265;
-       /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NEXPV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5265:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5265:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5265:/ cppif.else");
-    /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_.LET___V19*/ curfptr[17] = /*_.IFCPP___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5263:/ clear");
-    /*clear*/ /*_.NEXPV__V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5263:/ clear");
-    /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
-   ;
-   /*_.MULTI___V7*/ curfptr[5] = /*_.LET___V19*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-   /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-   /*clear*/ /*_.LIST_APPEND2LIST__V14*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-   /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-   /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-   /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5255:/ clear");
-  /*clear*/ /*_.NSYMBINDS__V9*/ curfptr[8] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5252:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V7*/ curfptr[5];;
-  MELT_LOCATION("warmelt-normal.melt:5252:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5252:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5252:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5252:/ clear");
- /*clear*/ /*_.MULTI___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_139_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 48
-  void* varptr[48];
-#define CURFRAM_NBVARNUM 14
-  long varnum[14];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<48; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 48;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_EXPORT_SYNONYM", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5276:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5276:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5278:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5278:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5278:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5278:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5278:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5278:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5278:/ locexp");
-      melt_assert_failed(( "check exportsyn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5278)?(5278):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5278:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5278:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5278:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5279:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5279:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5279:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5279:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5279:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5279:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5279:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5279)?(5279):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5279:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5279:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5279:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5280:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5280:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5280:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5280:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5280:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5280:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5280:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5280)?(5280):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5280:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5280:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5280:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5281:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5281:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5281:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_export_synonym recv";
-    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5281:/ apply.arg");
-    argtab[3].bp_long = 5281;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5281:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5281:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5281:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5282:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5283:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5284:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPSYN_NEWNAME");/*_.NEWNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5285:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPSYN_OLDNAME");/*_.OLDNAME__V17*/ curfptr[16] = slot; };
-  ;
-  /*_.BINDSLIST__V18*/ curfptr[17] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-normal.melt:5287:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:5287:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
-   /*_.NVALUEXPORTER__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5288:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5288:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5288:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   /*_.NILNREP__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5291:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5291:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5291:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_synonym nvaluexporter";
-     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5291:/ apply.arg");
-     argtab[3].bp_long = 5291;
-     /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5291:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5291:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5291:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5292:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5292:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5292:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_synonym newname";
-     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5292:/ apply.arg");
-     argtab[3].bp_long = 5292;
-     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5292:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5292:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5292:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5293:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5293:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5293:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_synonym oldname";
-     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5293:/ apply.arg");
-     argtab[3].bp_long = 5293;
-     /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5293:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5293:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5293:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5294:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5294:/ block");
-   /*block*/{
-    /*_#IS_A__L8*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-normal.melt:5294:/ cond");
-    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5294:/ cond.then");
-    /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5294:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5294:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5294:/ locexp");
-       melt_assert_failed(( "check newname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5294)?(5294):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5294:/ clear");
-    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5294:/ clear");
-    /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5294:/ cppif.else");
-  /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5295:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5295:/ block");
-   /*block*/{
-    /*_#IS_A__L9*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-normal.melt:5295:/ cond");
-    /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5295:/ cond.then");
-    /*_.IFELSE___V31*/ curfptr[30] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5295:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5295:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5295:/ locexp");
-       melt_assert_failed(( "check oldname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5295)?(5295):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V30*/ curfptr[28] = /*_.IFELSE___V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5295:/ clear");
-    /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5295:/ clear");
-    /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5295:/ cppif.else");
-  /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5301:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ curfptr[33];MELT_LOCATION("warmelt-normal.melt:5301:/ multimsend.send");
-    /*_.NOLDSYM__V33*/ curfptr[32] =  meltgc_send ((melt_ptr_t)(/*_.OLDNAME__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5301:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5304:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5304:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5304:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_synonym noldsym";
-       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5304:/ apply.arg");
-       argtab[3].bp_long = 5304;
-       /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYM__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5304:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5304:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5304:/ cppif.else");
-    /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5305:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5305:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5305:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_synonym noldsymbinds";
-       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5305:/ apply.arg");
-       argtab[3].bp_long = 5305;
-       /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYMBINDS__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5305:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5305:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5305:/ cppif.else");
-    /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:5306:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5306:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ curfptr[33];
-     /*_.LIST_APPEND2LIST__V39*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5307:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5307:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[6];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYM__V33*/ curfptr[32];
-      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NVALUEXPORTER__V19*/ curfptr[18];
-      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
-      argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
-      argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:5307:/ apply.arg");
-      argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
-      /*_.NEXPV__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.NEWNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5309:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5309:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5309:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_export_synonym normal_exported_value gave nexpv";
-        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5309:/ apply.arg");
-        argtab[3].bp_long = 5309;
-        /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPV__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5309:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5309:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5309:/ cppif.else");
-     /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5310:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5310:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5310:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_export_synonym final nilnrep";
-        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5310:/ apply.arg");
-        argtab[3].bp_long = 5310;
-        /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5310:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5310:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5310:/ cppif.else");
-     /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5311:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5311:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5311:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_export_synonym final bindslist";
-        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5311:/ apply.arg");
-        argtab[3].bp_long = 5311;
-        /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5311:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5311:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5311:/ cppif.else");
-     /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:5312:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V20*/ curfptr[19];;
-      MELT_LOCATION("warmelt-normal.melt:5312:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ curfptr[17]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5312:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V40*/ curfptr[39] = /*_.RETURN___V48*/ curfptr[46];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
-     /*clear*/ /*_.NEXPV__V41*/ curfptr[40] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
-     /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
-     /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
-     /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5307:/ clear");
-     /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;}
-    ;
-    /*_.MULTI___V32*/ curfptr[30] = /*_.LET___V40*/ curfptr[39];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
-    /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
-    /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V39*/ curfptr[37] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
-    /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5301:/ clear");
-   /*clear*/ /*_.NOLDSYMBINDS__V34*/ curfptr[33] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V32*/ curfptr[30];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.NEWNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.OLDNAME__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.NVALUEXPORTER__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.NILNREP__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5282:/ clear");
-  /*clear*/ /*_.MULTI___V32*/ curfptr[30] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5276:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5276:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5276:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_EXPORT_SYNONYM", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_140_warmelt_normal_NORMEXP_EXPORT_SYNONYM*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_EXPORT_CLASS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5319:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5319:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5320:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5320:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5320:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5320:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5320:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5320:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5320:/ locexp");
-      melt_assert_failed(( "check export_class recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5320)?(5320):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5320:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5320:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5320:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5321:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5321:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5321:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5321:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5321:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5321:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5321:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5321)?(5321):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5321:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5321:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5321:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5322:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5322:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5322:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5322:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5322:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5322:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5322:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5322)?(5322):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5322:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5322:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5322:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5323:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5323:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5323:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp export_class recv";
-    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5323:/ apply.arg");
-    argtab[3].bp_long = 5323;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5323:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5323:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5323:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5324:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5325:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5326:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; };
-  ;
-  /*_.BINDSLIST__V17*/ curfptr[16] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-normal.melt:5328:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:5328:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16];
-   /*_.NVALUEXPORTER__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5329:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5329:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5329:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5331:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MOCX__V21*/ curfptr[20] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5333:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5333:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.MOCX__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-normal.melt:5333:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5333:/ cond.then");
-    /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5333:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5333:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5333:/ locexp");
-       melt_assert_failed(( "check mocx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5333)?(5333):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5333:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5333:/ clear");
-    /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5333:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5336:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5336:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (6));
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[3] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[4] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5336:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[5] = (melt_ptr_t)(/*_.MOCX__V21*/ curfptr[20]);
-   ;
-   /*_.LAMBDA___V24*/ curfptr[22] = /*_.LAMBDA___V25*/ curfptr[24];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5334:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5334:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[22];
-   /*_.MULTIPLE_EVERY__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5392:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5392:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5392:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_class final nilnrep";
-     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5392:/ apply.arg");
-     argtab[3].bp_long = 5392;
-     /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5392:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5392:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5392:/ cppif.else");
-  /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5393:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5393:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5393:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_class final bindslist";
-     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5393:/ apply.arg");
-     argtab[3].bp_long = 5393;
-     /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5393:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5393:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5393:/ cppif.else");
-  /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5394:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];;
-   MELT_LOCATION("warmelt-normal.melt:5394:/ putxtraresult");
-   if (!xrestab_ || !xresdescr_) goto labend_rout;
-   if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-   if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ curfptr[16]);
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5394:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V31*/ curfptr[29];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.MOCX__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.LAMBDA___V24*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5324:/ clear");
-  /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5319:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5319:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5319:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_EXPORT_CLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_141_warmelt_normal_NORMEXP_EXPORT_CLASS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_142_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_142_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 37
-  void* varptr[37];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<37; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 37;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5336:/ getarg");
- /*_.XNAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5336:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5336:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5337:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5337:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5337:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5337:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5337:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5337:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5337:/ locexp");
-      melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5337)?(5337):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5337:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5337:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5337:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5338:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5338:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5338:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XNAM__V2*/ curfptr[1];
-   /*_.XBIND__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5339:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5339:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-normal.melt:5339:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-   /*_.XSYMDATA__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5341:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5341:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5341:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_export_class xbind";
-     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5341:/ apply.arg");
-     argtab[3].bp_long = 5341;
-     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5341:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5341:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5341:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5342:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5342:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.XSYMDATA__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-normal.melt:5342:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5342:/ cond.then");
-    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5342:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5342:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5342:/ locexp");
-       melt_assert_failed(( "check xsymdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5342)?(5342):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5342:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5342:/ clear");
-    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5342:/ cppif.else");
-  /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_NOT_A__L5*/ curfnum[1] = 
-   !melt_is_instance_of((melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-normal.melt:5343:/ cond");
-  /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5343:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5343:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5346:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5345:/ locexp");
-    melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "EXPORT_CLASS with non-class-bound symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5347:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-normal.melt:5347:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5344:/ block");
-    /*block*/{
-     /*_.PROGN___V15*/ curfptr[14] = /*_.RETURN___V14*/ curfptr[13];;}
-    ;
-    /*_.IF___V12*/ curfptr[10] = /*_.PROGN___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5343:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5343:/ clear");
-    /*clear*/ /*_.RETURN___V14*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5343:/ clear");
-    /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5343:/ cond.else");
-  
-   /*_.IF___V12*/ curfptr[10] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5349:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5349:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 1, "FIXBIND_DATA");/*_.XDATA__V17*/ curfptr[13] = slot; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5350:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 3, "CBIND_CLASS");/*_.XCLASS__V18*/ curfptr[14] = slot; };
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:5352:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:5352:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:5352:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_export_class xdata";
-      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:5352:/ apply.arg");
-      argtab[3].bp_long = 5352;
-      /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5352:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5352:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:5352:/ cppif.else");
-   /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_#IS_NOT_A__L7*/ curfnum[5] = 
-    !melt_is_instance_of((melt_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[6])));;
-   MELT_LOCATION("warmelt-normal.melt:5353:/ cond");
-   /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5353:/ cond.then");
-   MELT_LOCATION("warmelt-normal.melt:5353:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5355:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[19] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5354:/ locexp");
-     melt_error_str((melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "forward defined class symbol to EXPORT_CLASS"), (melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[19]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5353:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[19] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5356:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5356:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[6];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XDATA__V17*/ curfptr[13];
-     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[3]);
-     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]);
-     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
-     argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
-     argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-normal.melt:5356:/ apply.arg");
-     argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[4]);
-     /*_.NCLAV__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5358:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5358:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_class nclav";
-       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7];
-       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5358:/ apply.arg");
-       argtab[3].bp_long = 5358;
-       /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NCLAV__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5358:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5358:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5358:/ cppif.else");
-    /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5359:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5359:/ block");
-     /*block*/{
-      /*_#IS_A__L9*/ curfnum[7] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));;
-      MELT_LOCATION("warmelt-normal.melt:5359:/ cond");
-      /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-normal.melt:5359:/ cond.then");
-      /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-normal.melt:5359:/ cond.else");
-      
-       MELT_LOCATION("warmelt-normal.melt:5359:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-normal.melt:5359:/ locexp");
-         melt_assert_failed(( "check xclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5359)?(5359):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5359:/ clear");
-      /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5359:/ clear");
-      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5359:/ cppif.else");
-    /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:5360:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5360:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 6, "CLASS_FIELDS");/*_.XCLFIELDS__V29*/ curfptr[28] = slot; };
-     ;
-     /*_#OBJECT_LENGTH__L10*/ curfnum[7] = 
-      ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));;
-     /*_#GET_INT__L11*/ curfnum[10] = 
-      (melt_get_int((melt_ptr_t)((/*!MOCX_EXPCLASSDICT*/ curfrout->tabval[9]))));;
-     /*_#I__L12*/ curfnum[11] = 
-      ((/*_#OBJECT_LENGTH__L10*/ curfnum[7]) > (/*_#GET_INT__L11*/ curfnum[10]));;
-     MELT_LOCATION("warmelt-normal.melt:5364:/ cond");
-     /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:5364:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:5364:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5365:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = slot; };
-       ;
-       /*_.EXPCLADIC__V30*/ curfptr[29] = /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5364:/ clear");
-       /*clear*/ /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:5364:/ cond.else");
-     
-      /*_.EXPCLADIC__V30*/ curfptr[29] = NULL;;
-      }
-     ;
-     /*_#OBJECT_LENGTH__L13*/ curfnum[12] = 
-      ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));;
-     /*_#GET_INT__L14*/ curfnum[13] = 
-      (melt_get_int((melt_ptr_t)((/*!MOCX_EXPFIELDICT*/ curfrout->tabval[10]))));;
-     /*_#I__L15*/ curfnum[14] = 
-      ((/*_#OBJECT_LENGTH__L13*/ curfnum[12]) > (/*_#GET_INT__L14*/ curfnum[13]));;
-     MELT_LOCATION("warmelt-normal.melt:5367:/ cond");
-     /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:5367:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:5367:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5368:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = slot; };
-       ;
-       /*_.EXPFLDIC__V32*/ curfptr[30] = /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5367:/ clear");
-       /*clear*/ /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-normal.melt:5367:/ cond.else");
-     
-      /*_.EXPFLDIC__V32*/ curfptr[30] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5370:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[32] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5370:/ locexp");
-     meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.EXPCLADIC__V30*/ curfptr[29]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[32])), (melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5373:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5373:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (7));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[0] = (melt_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[1] = (melt_ptr_t)((/*~ENV*/ curfclos->tabval[0]));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[2] = (melt_ptr_t)((/*~NVALUEXPORTER*/ curfclos->tabval[3]));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[3] = (melt_ptr_t)((/*~NCX*/ curfclos->tabval[1]));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[4] = (melt_ptr_t)((/*~SLOC*/ curfclos->tabval[2]));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[5] = (melt_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[4]));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5373:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[6] = (melt_ptr_t)(/*_.EXPFLDIC__V32*/ curfptr[30]);
-      ;
-      /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5371:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5371:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34];
-      /*_.MULTIPLE_EVERY__V37*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.XCLFIELDS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.LET___V28*/ curfptr[26] = /*_.MULTIPLE_EVERY__V37*/ curfptr[36];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_.XCLFIELDS__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_#OBJECT_LENGTH__L10*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_.EXPCLADIC__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_#OBJECT_LENGTH__L13*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_#GET_INT__L14*/ curfnum[13] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_.EXPFLDIC__V32*/ curfptr[30] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[32] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5360:/ clear");
-     /*clear*/ /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = 0 ;}
-    ;
-    /*_.LET___V22*/ curfptr[19] = /*_.LET___V28*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
-    /*clear*/ /*_.NCLAV__V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
-    /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
-    /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5356:/ clear");
-    /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;}
-   ;
-   /*_.LET___V16*/ curfptr[12] = /*_.LET___V22*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
-   /*clear*/ /*_.XDATA__V17*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
-   /*clear*/ /*_.XCLASS__V18*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
-   /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
-   /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5349:/ clear");
-   /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;}
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.LET___V16*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_.XBIND__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_.XSYMDATA__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_.IF___V12*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5338:/ clear");
-  /*clear*/ /*_.LET___V16*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5336:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:5336:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5336:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5336:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_142_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_143_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_143_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5373:/ getarg");
- /*_.CURFLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5373:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5373:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5374:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5374:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5374:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5374:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5374:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5374:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5374:/ locexp");
-      melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5374)?(5374):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5374:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5374:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5374:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5375:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5375:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.FLDNAM__V6*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5376:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 2, "FLD_OWNCLASS");/*_.FLDCLASS__V7*/ curfptr[6] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.FLDCLASS__V7*/ curfptr[6]) == ((/*~XCLASS*/ curfclos->tabval[0])));;
-  MELT_LOCATION("warmelt-normal.melt:5378:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5378:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5378:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5379:/ block");
-    /*block*/{
-     /*_.FLDSYM__V10*/ curfptr[9] = 
-      meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.FLDNAM__V6*/ curfptr[5])), MELT_GET);;
-     MELT_LOCATION("warmelt-normal.melt:5380:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5380:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDSYM__V10*/ curfptr[9];
-      /*_.FLDBIND__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5382:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5382:/ block");
-      /*block*/{
-       /*_#IS_A__L4*/ curfnum[3] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[2])));;
-       MELT_LOCATION("warmelt-normal.melt:5382:/ cond");
-       /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:5382:/ cond.then");
-       /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-normal.melt:5382:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:5382:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:5382:/ locexp");
-          melt_assert_failed(( "check fldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5382)?(5382):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5382:/ clear");
-       /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5382:/ clear");
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5382:/ cppif.else");
-     /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:5383:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5383:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 1, "FIXBIND_DATA");/*_.FLDATA__V15*/ curfptr[14] = slot; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5384:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 3, "FLBIND_FIELD");/*_.FIELD__V16*/ curfptr[15] = slot; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5385:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[6];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDATA__V15*/ curfptr[14];
-       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[2]);
-       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
-       argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[3]);
-       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
-       argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ curfclos->tabval[4]);
-       MELT_LOCATION("warmelt-normal.melt:5385:/ apply.arg");
-       argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[5]);
-       /*_.NFLD__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.FLDSYM__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:5387:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:5387:/ block");
-       /*block*/{
-        /*_#IS_A__L5*/ curfnum[3] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
-        MELT_LOCATION("warmelt-normal.melt:5387:/ cond");
-        /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:5387:/ cond.then");
-        /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-normal.melt:5387:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:5387:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:5387:/ locexp");
-           melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5387)?(5387):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:5387:/ clear");
-        /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:5387:/ clear");
-        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:5387:/ cppif.else");
-      /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:5388:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[18] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5388:/ locexp");
-      meltgc_put_mapstrings((struct meltmapstrings_st *) ((/*~EXPFLDIC*/ curfclos->tabval[6])), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[18])), (melt_ptr_t)(/*_.FIELD__V16*/ curfptr[15]));}
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:5389:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:5389:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:5389:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_export_class nfld";
-         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3];
-         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:5389:/ apply.arg");
-         argtab[3].bp_long = 5389;
-         /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.NFLD__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:5389:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:5389:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:5389:/ cppif.else");
-      /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V21*/ curfptr[20];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
-      /*clear*/ /*_.FLDATA__V15*/ curfptr[14] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
-      /*clear*/ /*_.FIELD__V16*/ curfptr[15] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
-      /*clear*/ /*_.NFLD__V17*/ curfptr[16] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
-      /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[18] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5383:/ clear");
-      /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;}
-     ;
-     /*_.LET___V9*/ curfptr[8] = /*_.LET___V14*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
-     /*clear*/ /*_.FLDSYM__V10*/ curfptr[9] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
-     /*clear*/ /*_.FLDBIND__V11*/ curfptr[10] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
-     /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5379:/ clear");
-     /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-    ;
-    /*_.IF___V8*/ curfptr[7] = /*_.LET___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5378:/ clear");
-    /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5378:/ cond.else");
-  
-   /*_.IF___V8*/ curfptr[7] = NULL;;
-   }
-  ;
-  /*_.LET___V5*/ curfptr[3] = /*_.IF___V8*/ curfptr[7];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
-  /*clear*/ /*_.FLDNAM__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
-  /*clear*/ /*_.FLDCLASS__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5375:/ clear");
-  /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5373:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-normal.melt:5373:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5373:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5373:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_143_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 26
-  void* varptr[26];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<26; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 26;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_MACRO_EXPORTER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5401:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5401:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5402:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5402:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5402:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5402:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5402:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5402:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5402:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5402)?(5402):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5402:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5402:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5402:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5403:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5403:/ block");
-  /*block*/{
-   /*_#IS_LIST__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-normal.melt:5403:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5403:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5403:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5403:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5403:/ locexp");
-      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5403)?(5403):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5403:/ clear");
-   /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5403:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5403:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5404:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5404:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5404:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5404:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5404:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5404:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5404:/ locexp");
-      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5404)?(5404):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5404:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5404:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5404:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5405:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5405:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5405:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_macro_exporter start psloc";
-    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5405:/ apply.arg");
-    argtab[3].bp_long = 5405;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5405:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5405:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5405:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5406:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5406:/ apply");
-  /*apply*/{
-   /*_.CSYMVALEXP__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_MACROXPORTER_*/ curfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5407:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5407:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5407:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5407:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF");
-   ;
-   /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5414:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5414:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5414:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5414:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5414:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_MACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD");
-   ;
-   /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5410:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5410:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5410:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR");
-   ;
-   /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5418:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5418:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5418:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND");
-   ;
-   /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:5424:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5425:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5425:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5425:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
-     argtab[0].bp_cstring =  "normal_macro_exporter return locsym";
-     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5425:/ apply.arg");
-     argtab[3].bp_long = 5425;
-     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5425:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5425:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5425:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5426:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];;
-   MELT_LOCATION("warmelt-normal.melt:5426:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5406:/ clear");
-  /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5401:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5401:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5401:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_MACRO_EXPORTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_144_warmelt_normal_NORMAL_MACRO_EXPORTER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 26
-  void* varptr[26];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<26; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 26;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_PATMACRO_EXPORTER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
- /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5431:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5431:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5432:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5432:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5432:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5432:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5432:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5432:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5432:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5432)?(5432):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5432:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5432:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5432:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5433:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5433:/ block");
-  /*block*/{
-   /*_#IS_LIST__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-normal.melt:5433:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5433:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5433:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5433:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5433:/ locexp");
-      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5433)?(5433):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5433:/ clear");
-   /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5433:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5433:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5434:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5434:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5434:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5434:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5434:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5434:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5434:/ locexp");
-      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5434)?(5434):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5434:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5434:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5434:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5435:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5435:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5435:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_patmacro_exporter start psloc";
-    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5435:/ apply.arg");
-    argtab[3].bp_long = 5435;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5435:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5435:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5435:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5436:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5436:/ apply");
-  /*apply*/{
-   /*_.CSYMVALEXP__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_PATMACROXPORTER_*/ curfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5437:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5437:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5437:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5437:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF");
-   ;
-   /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5444:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5444:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5444:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5444:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5444:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_PATMACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD");
-   ;
-   /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5440:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5440:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5440:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR");
-   ;
-   /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5448:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5448:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5448:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V23*/ curfptr[22]), (3), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND");
-   ;
-   /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-normal.melt:5454:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ curfptr[19]));}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5455:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5455:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5455:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
-     argtab[0].bp_cstring =  "normal_patmacro_exporter return locsym";
-     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5455:/ apply.arg");
-     argtab[3].bp_long = 5455;
-     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5455:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5455:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5455:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5456:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];;
-   MELT_LOCATION("warmelt-normal.melt:5456:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5436:/ clear");
-  /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5431:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5431:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5431:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_PATMACRO_EXPORTER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_145_warmelt_normal_NORMAL_PATMACRO_EXPORTER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 59
-  void* varptr[59];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<59; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 59;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_EXPORTED_MACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL);
- 
- 
- /*getarg#6*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ getarg");
- if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5463:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5464:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5464:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5464:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_macro start sym";
-    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5464:/ apply.arg");
-    argtab[3].bp_long = 5464;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5464:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5464:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5464:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5465:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5465:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5465:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_macro start nexp";
-    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5465:/ apply.arg");
-    argtab[3].bp_long = 5465;
-    /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5465:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5465:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5465:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5466:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5466:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5466:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_macro start nmacroxp";
-    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5466:/ apply.arg");
-    argtab[3].bp_long = 5466;
-    /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5466:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5466:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5466:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5467:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5467:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5467:/ cond.then");
-   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5467:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5467:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5467:/ locexp");
-      melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5467)?(5467):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5467:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5467:/ clear");
-   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.else");
- /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5468:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5468:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5468:/ cond.then");
-   /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5468:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5468:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5468:/ locexp");
-      melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5468)?(5468):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5468:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5468:/ clear");
-   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.else");
- /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5469:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5469:/ block");
-  /*block*/{
-   /*_#IS_A__L6*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5469:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5469:/ cond.then");
-   /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5469:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5469:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5469:/ locexp");
-      melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5469)?(5469):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5469:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5469:/ clear");
-   /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5469:/ cppif.else");
- /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5470:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5470:/ block");
-  /*block*/{
-   /*_#IS_A__L7*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-normal.melt:5470:/ cond");
-   /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5470:/ cond.then");
-   /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5470:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5470:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5470:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5470)?(5470):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5470:/ clear");
-   /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5470:/ clear");
-   /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5470:/ cppif.else");
- /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5471:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5471:/ block");
-  /*block*/{
-   /*_#IS_A__L8*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));;
-   MELT_LOCATION("warmelt-normal.melt:5471:/ cond");
-   /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5471:/ cond.then");
-   /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5471:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5471:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5471:/ locexp");
-      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5471)?(5471):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5471:/ clear");
-   /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5471:/ clear");
-   /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5471:/ cppif.else");
- /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5472:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5472:/ block");
-  /*block*/{
-   /*_#IS_LIST__L9*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-normal.melt:5472:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5472:/ cond.then");
-   /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5472:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5472:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5472:/ locexp");
-      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5472)?(5472):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5472:/ clear");
-   /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5472:/ clear");
-   /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5472:/ cppif.else");
- /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5473:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5473:/ apply");
-  /*apply*/{
-   /*_.CSYMEXPO__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDM_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5474:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5474:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];
-   MELT_LOCATION("warmelt-normal.melt:5474:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
-   /*_.SYMDATA__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5475:/ block");
-  /*block*/{
-   /*_.SB__V31*/ curfptr[30] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5476:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ curfptr[30]), ( "norm.exp.val : "));}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5477:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5477:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ curfptr[30]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31])));}
-   ;
-   /*_.LET___V30*/ curfptr[29] = /*_.SB__V31*/ curfptr[30];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5475:/ clear");
-   /*clear*/ /*_.SB__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5475:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ;}
-  ;
-  /*_.CSBUF__V33*/ curfptr[30] = /*_.LET___V30*/ curfptr[29];;
-  /*_.STRBUF2STRING__V34*/ curfptr[31] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V33*/ curfptr[30]))));;
-  MELT_LOCATION("warmelt-normal.melt:5479:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5479:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V36*/ curfptr[35] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5479:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.PSLOC__V7*/ curfptr[6]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5479:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.STRBUF2STRING__V34*/ curfptr[31]), "CMEC_COMMENT");
-   ;
-   /*_.SCURENVBOX__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5483:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5483:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5483:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
-     argtab[0].bp_cstring =  "normal_exported_macro sgetcurenvbox";
-     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5483:/ apply.arg");
-     argtab[3].bp_long = 5483;
-     /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5483:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5483:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5483:/ cppif.else");
-  /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5484:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ curfptr[4];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6];
-    MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40];MELT_LOCATION("warmelt-normal.melt:5484:/ multimsend.send");
-    /*_.NCURENVBOX__V40*/ curfptr[39] =  meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5484:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5487:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5487:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5487:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_exported_macro ncurenvbox";
-       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5487:/ apply.arg");
-       argtab[3].bp_long = 5487;
-       /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5487:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5487:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5487:/ cppif.else");
-    /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5488:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5488:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5488:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_exported_macro curenvbinds";
-       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5488:/ apply.arg");
-       argtab[3].bp_long = 5488;
-       /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V44*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5488:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5488:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5488:/ cppif.else");
-    /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_#IS_LIST__L13*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-normal.melt:5489:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L13*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5489:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5489:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5489:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5489:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40];
-       /*_.LIST_APPEND2LIST__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IF___V46*/ curfptr[44] = /*_.LIST_APPEND2LIST__V47*/ curfptr[46];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5489:/ clear");
-      /*clear*/ /*_.LIST_APPEND2LIST__V47*/ curfptr[46] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:5489:/ cond.else");
-    
-     /*_.IF___V46*/ curfptr[44] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5490:/ block");
-    /*block*/{
-     /*_.ARGTUP__V49*/ curfptr[48] = 
-      (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]),  (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]),  (melt_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39])));;
-     MELT_LOCATION("warmelt-normal.melt:5496:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5496:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V51*/ curfptr[50] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NEXPR_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.NMACROXP__V4*/ curfptr[3]), "NAPP_FUN");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5496:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.ARGTUP__V49*/ curfptr[48]), "NEXPR_ARGS");
-      ;
-      /*_.INST___V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5492:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5492:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V53*/ curfptr[52] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5492:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.INST___V50*/ curfptr[49]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5502:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5502:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V55*/ curfptr[54] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5502:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V55*/ curfptr[54]), (3), (/*_.CBIND__V52*/ curfptr[51]), "NOCC_BIND");
-      ;
-      /*_.SYOCC__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5508:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5508:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5508:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_exported_macro cbind";
-        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
-        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5508:/ apply.arg");
-        argtab[3].bp_long = 5508;
-        /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V56*/ curfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5508:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5508:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5508:/ cppif.else");
-     /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5509:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5509:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5509:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_exported_macro return syocc";
-        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13];
-        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5509:/ apply.arg");
-        argtab[3].bp_long = 5509;
-        /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V58*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5509:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5509:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5509:/ cppif.else");
-     /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5510:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (melt_ptr_t)(/*_.CBIND__V52*/ curfptr[51]));}
-     ;
-     /*_.LET___V48*/ curfptr[46] = /*_.SYOCC__V54*/ curfptr[53];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
-     /*clear*/ /*_.ARGTUP__V49*/ curfptr[48] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
-     /*clear*/ /*_.INST___V50*/ curfptr[49] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
-     /*clear*/ /*_.CBIND__V52*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
-     /*clear*/ /*_.SYOCC__V54*/ curfptr[53] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
-     /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5490:/ clear");
-     /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;}
-    ;
-    /*_.MULTI___V39*/ curfptr[37] = /*_.LET___V48*/ curfptr[46];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
-    /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
-    /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
-    /*clear*/ /*_#IS_LIST__L13*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
-    /*clear*/ /*_.IF___V46*/ curfptr[44] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
-    /*clear*/ /*_.LET___V48*/ curfptr[46] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5484:/ clear");
-   /*clear*/ /*_.CURENVBINDS__V41*/ curfptr[40] = 0 ;}
-  ;
-  /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V39*/ curfptr[37];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.CSBUF__V33*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.STRBUF2STRING__V34*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.SCURENVBOX__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5473:/ clear");
-  /*clear*/ /*_.MULTI___V39*/ curfptr[37] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];;
-  MELT_LOCATION("warmelt-normal.melt:5463:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5463:/ clear");
- /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_EXPORTED_MACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_146_warmelt_normal_NORMAL_EXPORTED_MACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 36
-  void* varptr[36];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<36; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 36;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_EXPORT_MACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5516:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5516:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5517:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5517:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5517:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5517:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5517:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5517:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5517:/ locexp");
-      melt_assert_failed(( "check export_macro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5517)?(5517):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5517:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5517:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5517:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5518:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5518:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5518:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5518:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5518:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5518:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5518:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5518)?(5518):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5518:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5518:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5518:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5519:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5519:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5519:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5519:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5519:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5519:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5519:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5519)?(5519):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5519:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5519:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5519:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5520:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5520:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5520:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp export_macro recv";
-    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5520:/ apply.arg");
-    argtab[3].bp_long = 5520;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5520:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5520:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5520:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5521:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5522:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5523:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5524:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; };
-  ;
-  /*_.BINDSLIST__V18*/ curfptr[17] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-normal.melt:5526:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:5526:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
-   /*_.NMACEXP__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_MACRO_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5527:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5527:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5527:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   /*_.NREPNIL__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5529:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5529:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-normal.melt:5529:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5529:/ cond.then");
-    /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5529:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5529:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5529:/ locexp");
-       melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5529)?(5529):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5529:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5529:/ clear");
-    /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5529:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5530:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25];MELT_LOCATION("warmelt-normal.melt:5530:/ multimsend.send");
-    /*_.NEXP__V25*/ curfptr[24] =  meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5530:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5533:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5533:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25];
-     /*_.LIST_APPEND2LIST__V27*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5534:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5535:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[6];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXP__V25*/ curfptr[24];
-      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NMACEXP__V19*/ curfptr[18];
-      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
-      argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
-      argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:5535:/ apply.arg");
-      argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17];
-      /*_.NEXPM__V29*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_MACRO*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5537:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5537:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5537:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_export_macro nexpm";
-        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5537:/ apply.arg");
-        argtab[3].bp_long = 5537;
-        /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5537:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5537:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5537:/ cppif.else");
-     /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     /*_.LET___V28*/ curfptr[27] = /*_.IFCPP___V30*/ curfptr[29];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5534:/ clear");
-     /*clear*/ /*_.NEXPM__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5534:/ clear");
-     /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;}
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5539:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5539:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5539:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_macro final nrepnil";
-       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5539:/ apply.arg");
-       argtab[3].bp_long = 5539;
-       /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[28];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5539:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5539:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5539:/ cppif.else");
-    /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5540:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5540:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5540:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_macro final bindslist";
-       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5540:/ apply.arg");
-       argtab[3].bp_long = 5540;
-       /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V34*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[28];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5540:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5540:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5540:/ cppif.else");
-    /*_.IFCPP___V34*/ curfptr[29] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:5541:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V20*/ curfptr[19];;
-     MELT_LOCATION("warmelt-normal.melt:5541:/ putxtraresult");
-     if (!xrestab_ || !xresdescr_) goto labend_rout;
-     if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-     if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ curfptr[17]);
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5541:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.MULTI___V24*/ curfptr[22] = /*_.RETURN___V36*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
-    /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
-    /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
-    /*clear*/ /*_.IFCPP___V34*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
-    /*clear*/ /*_.RETURN___V36*/ curfptr[28] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5530:/ clear");
-   /*clear*/ /*_.NBINDS__V26*/ curfptr[25] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V24*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.NMACEXP__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.NREPNIL__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5521:/ clear");
-  /*clear*/ /*_.MULTI___V24*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5516:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5516:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5516:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_EXPORT_MACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_147_warmelt_normal_NORMEXP_EXPORT_MACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 62
-  void* varptr[62];
-#define CURFRAM_NBVARNUM 16
-  long varnum[16];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<62; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 62;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMAL_EXPORTED_PATMACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- /*_.SYM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.NPATTXP__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4])) != NULL);
- 
- 
- /*getarg#4*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V6*/ curfptr[5])) != NULL);
- 
- 
- /*getarg#5*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V7*/ curfptr[6])) != NULL);
- 
- 
- /*getarg#6*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V8*/ curfptr[7])) != NULL);
- 
- 
- /*getarg#7*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ getarg");
- if (xargdescr_[6] != BPAR_PTR) goto lab_endgetargs;
- /*_.BINDSLIST__V9*/ curfptr[8] = (xargtab_[6].bp_aptr) ? (*(xargtab_[6].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5553:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5554:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5554:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_patmacro start sym";
-    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5554:/ apply.arg");
-    argtab[3].bp_long = 5554;
-    /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5554:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5554:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5555:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5555:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_patmacro start nexp";
-    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5555:/ apply.arg");
-    argtab[3].bp_long = 5555;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5555:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5555:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5556:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5556:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_patmacro start nmacroxp";
-    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5556:/ apply.arg");
-    argtab[3].bp_long = 5556;
-    /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5556:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5556:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.else");
- /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5557:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5557:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
-    argtab[0].bp_cstring =  "normal_exported_patmacro start npattxp";
-    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5557:/ apply.arg");
-    argtab[3].bp_long = 5557;
-    /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V16*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5557:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5557:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.else");
- /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5558:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5558:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5558:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5558:/ cond.then");
-   /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5558:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5558:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5558:/ locexp");
-      melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5558)?(5558):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5558:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5558:/ clear");
-   /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5558:/ cppif.else");
- /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5559:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5559:/ block");
-  /*block*/{
-   /*_#IS_A__L6*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5559:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5559:/ cond.then");
-   /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5559:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5559:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5559:/ locexp");
-      melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5559)?(5559):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[20];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5559:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5559:/ clear");
-   /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5559:/ cppif.else");
- /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5560:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5560:/ block");
-  /*block*/{
-   /*_#IS_A__L7*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5560:/ cond");
-   /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5560:/ cond.then");
-   /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5560:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5560:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5560:/ locexp");
-      melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5560)?(5560):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V22*/ curfptr[20] = /*_.IFELSE___V23*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5560:/ clear");
-   /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5560:/ clear");
-   /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5560:/ cppif.else");
- /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5561:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5561:/ block");
-  /*block*/{
-   /*_#IS_A__L8*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));;
-   MELT_LOCATION("warmelt-normal.melt:5561:/ cond");
-   /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5561:/ cond.then");
-   /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5561:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5561:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5561:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5561)?(5561):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5561:/ clear");
-   /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5561:/ clear");
-   /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5561:/ cppif.else");
- /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5562:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5562:/ block");
-  /*block*/{
-   /*_#IS_A__L9*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V7*/ curfptr[6]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[4])));;
-   MELT_LOCATION("warmelt-normal.melt:5562:/ cond");
-   /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5562:/ cond.then");
-   /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5562:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5562:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5562:/ locexp");
-      melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5562)?(5562):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5562:/ clear");
-   /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5562:/ clear");
-   /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5562:/ cppif.else");
- /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5563:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5563:/ block");
-  /*block*/{
-   /*_#IS_LIST__L10*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-normal.melt:5563:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5563:/ cond.then");
-   /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5563:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5563:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5563:/ locexp");
-      melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5563)?(5563):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5563:/ clear");
-   /*clear*/ /*_#IS_LIST__L10*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5563:/ clear");
-   /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5563:/ cppif.else");
- /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5564:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5564:/ apply");
-  /*apply*/{
-   /*_.CSYMEXPO__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDPAT_*/ curfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5565:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5565:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ curfptr[6];
-   MELT_LOCATION("warmelt-normal.melt:5565:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ curfptr[7];
-   /*_.SYMDATA__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5566:/ block");
-  /*block*/{
-   /*_.SB__V34*/ curfptr[33] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5567:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), ( "norm.exp.pat : "));}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5568:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; };
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5568:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34])));}
-   ;
-   /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5566:/ clear");
-   /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5566:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;}
-  ;
-  /*_.CSBUF__V36*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];;
-  /*_.STRBUF2STRING__V37*/ curfptr[34] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V36*/ curfptr[33]))));;
-  MELT_LOCATION("warmelt-normal.melt:5570:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5570:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V39*/ curfptr[38] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5570:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.PSLOC__V8*/ curfptr[7]), "LOCA_LOCATION");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5570:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.STRBUF2STRING__V37*/ curfptr[34]), "CMEC_COMMENT");
-   ;
-   /*_.SCURENVBOX__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5574:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5574:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
-     argtab[0].bp_cstring =  "normal_exported_patmacro sgetcurenvbox";
-     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5574:/ apply.arg");
-     argtab[3].bp_long = 5574;
-     /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5574:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5574:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.else");
-  /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5575:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V6*/ curfptr[5];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ curfptr[6];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ curfptr[7];
-    MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ curfptr[43];MELT_LOCATION("warmelt-normal.melt:5575:/ multimsend.send");
-    /*_.NCURENVBOX__V43*/ curfptr[42] =  meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V38*/ curfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5575:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5578:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5578:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5578:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_exported_patmacro ncurenvbox";
-       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5578:/ apply.arg");
-       argtab[3].bp_long = 5578;
-       /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5578:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5578:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5578:/ cppif.else");
-    /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5579:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5579:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5579:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
-       argtab[0].bp_cstring =  "normal_exported_patmacro curenvbinds";
-       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5579:/ apply.arg");
-       argtab[3].bp_long = 5579;
-       /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V44*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5579:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5579:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5579:/ cppif.else");
-    /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_#IS_LIST__L14*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V44*/ curfptr[43])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-normal.melt:5580:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5580:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5580:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5580:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5580:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ curfptr[43];
-       /*_.LIST_APPEND2LIST__V50*/ curfptr[49] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IF___V49*/ curfptr[47] = /*_.LIST_APPEND2LIST__V50*/ curfptr[49];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5580:/ clear");
-      /*clear*/ /*_.LIST_APPEND2LIST__V50*/ curfptr[49] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:5580:/ cond.else");
-    
-     /*_.IF___V49*/ curfptr[47] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5581:/ block");
-    /*block*/{
-     /*_.ARGTUP__V52*/ curfptr[51] = 
-      (meltgc_new_mult4((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.SYMDATA__V32*/ curfptr[31]),  
-		      (melt_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]),  (melt_ptr_t)(/*_.NPATTXP__V5*/ curfptr[4]),  (melt_ptr_t)(/*_.NCURENVBOX__V43*/ curfptr[42])));;
-     MELT_LOCATION("warmelt-normal.melt:5587:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5587:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[16])), (4), "CLASS_NREP_APPLY");/*_.INST__V54*/ curfptr[53] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.PSLOC__V8*/ curfptr[7]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NEXPR_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.NEXP__V3*/ curfptr[2]), "NAPP_FUN");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5587:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.ARGTUP__V52*/ curfptr[51]), "NEXPR_ARGS");
-      ;
-      /*_.INST___V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5583:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5583:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V56*/ curfptr[55] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.PSLOC__V8*/ curfptr[7]), "LETBIND_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.CSYMEXPO__V31*/ curfptr[30]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5583:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.INST___V53*/ curfptr[52]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5593:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5593:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V58*/ curfptr[57] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.PSLOC__V8*/ curfptr[7]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[15])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (1), (/*_.CSYMEXPO__V31*/ curfptr[30]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5593:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V58*/ curfptr[57]), (3), (/*_.CBIND__V55*/ curfptr[54]), "NOCC_BIND");
-      ;
-      /*_.SYOCC__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5599:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5599:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5599:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_exported_patmacro cbind";
-        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14];
-        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5599:/ apply.arg");
-        argtab[3].bp_long = 5599;
-        /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V59*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5599:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5599:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5599:/ cppif.else");
-     /*_.IFCPP___V59*/ curfptr[58] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5600:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5600:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5600:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
-        argtab[0].bp_cstring =  "normal_exported_patmacro return syocc";
-        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[14];
-        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5600:/ apply.arg");
-        argtab[3].bp_long = 5600;
-        /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V57*/ curfptr[56]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V61*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5600:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[14] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5600:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5600:/ cppif.else");
-     /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5601:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CBIND__V55*/ curfptr[54]));}
-     ;
-     /*_.LET___V51*/ curfptr[49] = /*_.SYOCC__V57*/ curfptr[56];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
-     /*clear*/ /*_.ARGTUP__V52*/ curfptr[51] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
-     /*clear*/ /*_.INST___V53*/ curfptr[52] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
-     /*clear*/ /*_.CBIND__V55*/ curfptr[54] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
-     /*clear*/ /*_.SYOCC__V57*/ curfptr[56] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
-     /*clear*/ /*_.IFCPP___V59*/ curfptr[58] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5581:/ clear");
-     /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;}
-    ;
-    /*_.MULTI___V42*/ curfptr[40] = /*_.LET___V51*/ curfptr[49];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
-    /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
-    /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
-    /*clear*/ /*_#IS_LIST__L14*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
-    /*clear*/ /*_.IF___V49*/ curfptr[47] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
-    /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5575:/ clear");
-   /*clear*/ /*_.CURENVBINDS__V44*/ curfptr[43] = 0 ;}
-  ;
-  /*_.LET___V30*/ curfptr[28] = /*_.MULTI___V42*/ curfptr[40];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.CSYMEXPO__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.SYMDATA__V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.CSBUF__V36*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.STRBUF2STRING__V37*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.SCURENVBOX__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5564:/ clear");
-  /*clear*/ /*_.MULTI___V42*/ curfptr[40] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V30*/ curfptr[28];;
-  MELT_LOCATION("warmelt-normal.melt:5553:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5553:/ clear");
- /*clear*/ /*_.LET___V30*/ curfptr[28] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMAL_EXPORTED_PATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_148_warmelt_normal_NORMAL_EXPORTED_PATMACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 49
-  void* varptr[49];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<49; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 49;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_EXPORT_PATMACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5607:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5607:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5608:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5608:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5608:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5608:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5608:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5608:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5608:/ locexp");
-      melt_assert_failed(( "check export_patmacro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5608)?(5608):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5608:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5608:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5608:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5609:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5609:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5609:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5609:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5609:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5609:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5609:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5609)?(5609):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5609:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5609:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5609:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5610:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5610:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5610:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5610:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5610:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5610:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5610:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5610)?(5610):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5610:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5610:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5610:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5611:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5611:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5611:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp export_patmacro recv";
-    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5611:/ apply.arg");
-    argtab[3].bp_long = 5611;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5611:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5611:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5611:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5612:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5613:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5614:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5615:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5616:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SEXPPAT_PVAL");/*_.MPATEXP__V18*/ curfptr[17] = slot; };
-  ;
-  /*_.BINDSLIST__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  MELT_LOCATION("warmelt-normal.melt:5618:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-normal.melt:5618:/ apply.arg");
-   argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ curfptr[18];
-   /*_.NPMAEXP__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PATMACRO_EXPORTER*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5619:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5619:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5619:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   /*_.NREPNIL__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5621:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5621:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5621:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp export_patmacro mname";
-     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5621:/ apply.arg");
-     argtab[3].bp_long = 5621;
-     /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5621:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5621:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5621:/ cppif.else");
-  /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5622:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5622:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5622:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp export_patmacro npmaexp";
-     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5622:/ apply.arg");
-     argtab[3].bp_long = 5622;
-     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPMAEXP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5622:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5622:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5622:/ cppif.else");
-  /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5623:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5623:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-normal.melt:5623:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5623:/ cond.then");
-    /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5623:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5623:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5623:/ locexp");
-       melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5623)?(5623):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V27*/ curfptr[25] = /*_.IFELSE___V28*/ curfptr[27];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5623:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5623:/ clear");
-    /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5623:/ cppif.else");
-  /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5624:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ curfptr[30];MELT_LOCATION("warmelt-normal.melt:5624:/ multimsend.send");
-    /*_.NEXPMAC__V30*/ curfptr[29] =  meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5624:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5627:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5627:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ curfptr[30];
-     /*_.LIST_APPEND2LIST__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.then");
-    MELT_LOCATION("warmelt-normal.melt:5628:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 
-       callcount;;
-      MELT_LOCATION("warmelt-normal.melt:5628:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
-       argtab[0].bp_cstring =  "normexp_export_patmacro nexpmac";
-       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0];
-       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-normal.melt";
-       MELT_LOCATION("warmelt-normal.melt:5628:/ apply.arg");
-       argtab[3].bp_long = 5628;
-       /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5628:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5628:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.else");
-    /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-normal.melt:5629:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend");
-     /*multimsend*/{
-      union meltparam_un argtab[3];
-      union meltparam_un restab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      memset(&restab, 0, sizeof(restab));
-      MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-      MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.xres");
-      restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ curfptr[36];MELT_LOCATION("warmelt-normal.melt:5629:/ multimsend.send");
-      /*_.NEXPPAT__V36*/ curfptr[35] =  meltgc_send ((melt_ptr_t)(/*_.MPATEXP__V18*/ curfptr[17]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5629:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5632:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-normal.melt:5632:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ curfptr[36];
-       /*_.LIST_APPEND2LIST__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:5633:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 
-         callcount;;
-        MELT_LOCATION("warmelt-normal.melt:5633:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
-         argtab[0].bp_cstring =  "normexp_export_patmacro nexppat";
-         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0];
-         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-normal.melt";
-         MELT_LOCATION("warmelt-normal.melt:5633:/ apply.arg");
-         argtab[3].bp_long = 5633;
-         /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V39*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:5633:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ;
-        MELT_LOCATION("warmelt-normal.melt:5633:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.else");
-      /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:5634:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5634:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[7];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPMAEXP__V20*/ curfptr[19];
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPMAC__V30*/ curfptr[29];
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEXPPAT__V36*/ curfptr[35];
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[4].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[5].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-        MELT_LOCATION("warmelt-normal.melt:5634:/ apply.arg");
-        argtab[6].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ curfptr[18];
-        /*_.NEXPM__V42*/ curfptr[41] =  melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_PATMACRO*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:5635:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:5635:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 
-          callcount;;
-         MELT_LOCATION("warmelt-normal.melt:5635:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
-          argtab[0].bp_cstring =  "normexp_export_patmacro nexpm";
-          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0];
-          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-normal.melt";
-          MELT_LOCATION("warmelt-normal.melt:5635:/ apply.arg");
-          argtab[3].bp_long = 5635;
-          /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V43*/ curfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[43];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:5635:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:5635:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[43] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:5635:/ cppif.else");
-       /*_.IFCPP___V43*/ curfptr[42] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:5636:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 
-          callcount;;
-         MELT_LOCATION("warmelt-normal.melt:5636:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
-          argtab[0].bp_cstring =  "normexp_export_macro final nrepnil";
-          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0];
-          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-normal.melt";
-          MELT_LOCATION("warmelt-normal.melt:5636:/ apply.arg");
-          argtab[3].bp_long = 5636;
-          /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V45*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:5636:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:5636:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.else");
-       /*_.IFCPP___V45*/ curfptr[43] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.then");
-       MELT_LOCATION("warmelt-normal.melt:5637:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 
-          callcount;;
-         MELT_LOCATION("warmelt-normal.melt:5637:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
-          argtab[0].bp_cstring =  "normexp_export_macro final bindslist";
-          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0];
-          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-normal.melt";
-          MELT_LOCATION("warmelt-normal.melt:5637:/ apply.arg");
-          argtab[3].bp_long = 5637;
-          /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:5637:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:5637:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.else");
-       /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-normal.melt:5638:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V21*/ curfptr[20];;
-        MELT_LOCATION("warmelt-normal.melt:5638:/ putxtraresult");
-        if (!xrestab_ || !xresdescr_) goto labend_rout;
-        if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-        if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V19*/ curfptr[18]);
-        ;
-        MELT_LOCATION("warmelt-normal.melt:5638:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       /*_.LET___V41*/ curfptr[39] = /*_.RETURN___V49*/ curfptr[47];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
-       /*clear*/ /*_.NEXPM__V42*/ curfptr[41] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
-       /*clear*/ /*_.IFCPP___V43*/ curfptr[42] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
-       /*clear*/ /*_.IFCPP___V45*/ curfptr[43] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
-       /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5634:/ clear");
-       /*clear*/ /*_.RETURN___V49*/ curfptr[47] = 0 ;}
-      ;
-      /*_.MULTI___V35*/ curfptr[33] = /*_.LET___V41*/ curfptr[39];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
-      /*clear*/ /*_.LIST_APPEND2LIST__V38*/ curfptr[37] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
-      /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
-      /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5629:/ clear");
-     /*clear*/ /*_.NBINDPS__V37*/ curfptr[36] = 0 ;}
-    ;
-    /*_.MULTI___V29*/ curfptr[27] = /*_.MULTI___V35*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V32*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
-    /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
-    /*clear*/ /*_.MULTI___V35*/ curfptr[33] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5624:/ clear");
-   /*clear*/ /*_.NBINDMS__V31*/ curfptr[30] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V29*/ curfptr[27];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.MPATEXP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.BINDSLIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.NPMAEXP__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.NREPNIL__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5612:/ clear");
-  /*clear*/ /*_.MULTI___V29*/ curfptr[27] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5607:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5607:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5607:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_EXPORT_PATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_149_warmelt_normal_NORMEXP_EXPORT_PATMACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 27
-  void* varptr[27];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<27; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 27;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5646:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5646:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5647:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5647:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5647:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5647:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5647:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5647:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5647:/ locexp");
-      melt_assert_failed(( "check current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5647)?(5647):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5647:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5647:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5647:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5648:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5648:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5648:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5648:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5648:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5648:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5648:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5648)?(5648):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5648:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5648:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5648:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5649:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5649:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5649:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5649:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5649:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5649:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5649:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5649)?(5649):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5649:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5649:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5649:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5650:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5650:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5650:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_current_module_environment_container recv";
-    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5650:/ apply.arg");
-    argtab[3].bp_long = 5650;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5650:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5650:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5650:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5651:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5652:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5653:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "CMEC_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5654:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 14, "NCTX_PROCURMODENVLIST");/*_.NCURMODENVLIST__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5655:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5656:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 12, "NCTX_QDATCURMODENVBOX");/*_.QDATCUR__V19*/ curfptr[18] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5657:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5657:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[4])), (5), "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V21*/ curfptr[20] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (2), (/*_.CURPROC__V18*/ curfptr[17]), "NCONST_PROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (3), (/*_.QDATCUR__V19*/ curfptr[18]), "NCONST_DATA");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5657:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NQCMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V21*/ curfptr[20]), (4), (/*_.SCOMM__V16*/ curfptr[15]), "NQCMEC_COMMENT");
-   ;
-   /*_.NQUASI__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5665:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5665:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-normal.melt:5665:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5665:/ cond.then");
-    /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5665:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5665:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5665:/ locexp");
-       melt_assert_failed(( "check qdatcur"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5665)?(5665):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5665:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5665:/ clear");
-    /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5665:/ cppif.else");
-  /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L6*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));;
-  MELT_LOCATION("warmelt-normal.melt:5666:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5666:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5666:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5668:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V24*/ curfptr[22] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5668:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V24*/ curfptr[22]), (melt_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5669:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.NCURMODENVLIST__V17*/ curfptr[16]), (melt_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]));}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5667:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5666:/ clear");
-    /*clear*/ /*_.NRPRO_CONST__V24*/ curfptr[22] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5671:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5671:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5671:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_current_module_environment_container nquasi";
-     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5671:/ apply.arg");
-     argtab[3].bp_long = 5671;
-     /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V25*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5671:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5671:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5671:/ cppif.else");
-  /*_.IFCPP___V25*/ curfptr[22] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5672:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V20*/ curfptr[19];;
-   MELT_LOCATION("warmelt-normal.melt:5672:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V27*/ curfptr[25];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.NCURMODENVLIST__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.CURPROC__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.QDATCUR__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.NQUASI__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.IFCPP___V25*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5651:/ clear");
-  /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5646:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5646:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5646:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_150_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5678:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5678:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5679:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5679:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5679:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5679:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5679:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5679:/ locexp");
-      melt_assert_failed(( "check parent_module_environment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5679)?(5679):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5679:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5679:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5680:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5680:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5680:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5680:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5680:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5680:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5680)?(5680):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5680:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5680:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5681:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5681:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5681:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5681:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5681:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5681:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5681:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5681)?(5681):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5681:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5681:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5681:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5682:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5682:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5682:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_parent_module_environment  recv";
-    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5682:/ apply.arg");
-    argtab[3].bp_long = 5682;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5682:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5682:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5682:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5683:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5684:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5685:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5686:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 13, "NCTX_QDATPARMODENV");/*_.QDATPAR__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5687:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5687:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[4])), (4), "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT");/*_.INST__V19*/ curfptr[18] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC");
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5687:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.QDATPAR__V17*/ curfptr[16]), "NCONST_DATA");
-   ;
-   /*_.NQUASI__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5694:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5694:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[5])));;
-    MELT_LOCATION("warmelt-normal.melt:5694:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5694:/ cond.then");
-    /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-normal.melt:5694:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5694:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5694:/ locexp");
-       melt_assert_failed(( "check qdatpar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5694)?(5694):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5694:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5694:/ clear");
-    /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5694:/ cppif.else");
-  /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#IS_A__L6*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));;
-  MELT_LOCATION("warmelt-normal.melt:5695:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5695:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5695:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5696:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V22*/ curfptr[20] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5696:/ locexp");
-    meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V22*/ curfptr[20]), (melt_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5695:/ clear");
-    /*clear*/ /*_.NRPRO_CONST__V22*/ curfptr[20] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.then");
-  MELT_LOCATION("warmelt-normal.melt:5697:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-normal.melt:5697:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
-     argtab[0].bp_cstring =  "normexp_parent_module_environment nquasi";
-     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-normal.melt";
-     MELT_LOCATION("warmelt-normal.melt:5697:/ apply.arg");
-     argtab[3].bp_long = 5697;
-     /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V23*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5697:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5697:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.else");
-  /*_.IFCPP___V23*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-normal.melt:5698:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V18*/ curfptr[17];;
-   MELT_LOCATION("warmelt-normal.melt:5698:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V25*/ curfptr[23];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.QDATPAR__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.NQUASI__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.IFCPP___V23*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5683:/ clear");
-  /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5678:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5678:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5678:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_151_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 58
-  void* varptr[58];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<58; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 58;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5704:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5704:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5705:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5705:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5705:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5705:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5705:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5705:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5705:/ locexp");
-      melt_assert_failed(( "check update_current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5705)?(5705):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5705:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5705:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5705:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5706:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5706:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5706:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5706:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5706:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5706:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5706:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5706)?(5706):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5706:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5706:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5706:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5707:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5707:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5707:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5707:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5707:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5707:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5707:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5707)?(5707):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5707:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5707:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5707:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5708:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5708:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_update_current_module_environment_container recv";
-    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5708:/ apply.arg");
-    argtab[3].bp_long = 5708;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5708:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5708:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5709:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5710:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5711:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUCME_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5712:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5713:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 0, "NCTX_INITPROC");/*_.INIPROC__V18*/ curfptr[17] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5714:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MODCTX__V19*/ curfptr[18] = slot; };
-  ;
-  /*_#IS_A__L5*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:5715:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5715:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5715:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5715:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), 0, "MOCX_MODULENAME");/*_.MOCX_MODULENAME__V21*/ curfptr[20] = slot; };
-    ;
-    /*_.MODNAM__V20*/ curfptr[19] = /*_.MOCX_MODULENAME__V21*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5715:/ clear");
-    /*clear*/ /*_.MOCX_MODULENAME__V21*/ curfptr[20] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5715:/ cond.else");
-  
-   /*_.MODNAM__V20*/ curfptr[19] = NULL;;
-   }
-  ;
-  /*_#__L6*/ curfnum[5] = 
-   ((/*_.CURPROC__V17*/ curfptr[16]) != (/*_.INIPROC__V18*/ curfptr[17]));;
-  MELT_LOCATION("warmelt-normal.melt:5717:/ cond");
-  /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5717:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5717:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5719:/ locexp");
-    melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) not at toplevel"), (melt_ptr_t)0);}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5720:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-normal.melt:5720:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5718:/ block");
-    /*block*/{
-     /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;}
-    ;
-    /*_.IF___V22*/ curfptr[20] = /*_.PROGN___V24*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5717:/ clear");
-    /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5717:/ clear");
-    /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5717:/ cond.else");
-  
-   /*_.IF___V22*/ curfptr[20] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5721:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5721:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5721:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])), (3), "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V27*/ curfptr[26] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5721:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5721:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NCUMEB_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SCOMM__V16*/ curfptr[15]), "NCUMEB_COMMENT");
-    ;
-    /*_.NUP__V26*/ curfptr[23] = /*_.INST__V27*/ curfptr[26];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5726:/ apply");
-   /*apply*/{
-    /*_.CSYM__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UPDATCURMODENVBOX_*/ curfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5727:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5727:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V30*/ curfptr[29] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.CSYM__V28*/ curfptr[27]), "BINDER");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5727:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.NUP__V26*/ curfptr[23]), "LETBIND_EXPR");
-    ;
-    /*_.CBIND__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5734:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5734:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V32*/ curfptr[31] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.CSYM__V28*/ curfptr[27]), "NOCC_SYMB");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5734:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.CBIND__V29*/ curfptr[28]), "NOCC_BIND");
-    ;
-    /*_.CLOCC__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5740:/ block");
-   /*block*/{
-    /*_.SB__V34*/ curfptr[33] = 
-     meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[11])), (char*)0);;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5741:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), ( "cur.mod.env.cont : "));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-normal.melt:5742:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ curfptr[33]), melt_string_str((melt_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])));}
-    ;
-    /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5740:/ clear");
-    /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ;}
-   ;
-   /*_.CSBUF__V35*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];;
-   /*_.STRBUF2STRING__V36*/ curfptr[35] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ curfptr[33]))));;
-   MELT_LOCATION("warmelt-normal.melt:5744:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5744:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[12])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5744:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (1), (/*_.SLOC__V15*/ curfptr[14]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5744:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ curfptr[37])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V38*/ curfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ curfptr[35]), "CMEC_COMMENT");
-    ;
-    /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5761:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5761:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[18])), (3), "CLASS_SOURCE_FETCH_PREDEFINED");/*_.INST__V40*/ curfptr[39] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5761:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5761:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SFEPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ curfptr[39])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V40*/ curfptr[39]), (2), ((/*!konst_19_INITIAL_SYSTEM_DATA*/ curfrout->tabval[19])), "SFEPD_PREDEF");
-    ;
-    /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5758:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5758:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ curfrout->tabval[17])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD");/*_.INST__V42*/ curfptr[41] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5758:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5758:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (2), (/*_.INST___V39*/ curfptr[38]), "SUGET_OBJ");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5758:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V42*/ curfptr[41]), (3), ((/*!SYSDATA_CONT_FRESH_ENV*/ curfrout->tabval[20])), "SUGET_FIELD");
-    ;
-    /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5769:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5769:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[21])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT");/*_.INST__V44*/ curfptr[43] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5769:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
-    ;
-    /*_.INST___V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;}
-   ;
-   /*_.MAKE_TUPLE2__V45*/ curfptr[44] = 
-    (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.INST___V43*/ curfptr[42]),  (melt_ptr_t)(/*_.MODNAM__V20*/ curfptr[19])));;
-   MELT_LOCATION("warmelt-normal.melt:5755:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5755:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ curfrout->tabval[16])), (4), "CLASS_SOURCE_APPLY");/*_.INST__V47*/ curfptr[46] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5755:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5755:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (3), (/*_.INST___V41*/ curfptr[40]), "SAPP_FUN");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5755:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V47*/ curfptr[46])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V47*/ curfptr[46]), (2), (/*_.MAKE_TUPLE2__V45*/ curfptr[44]), "SARGOP_ARGS");
-    ;
-    /*_.INST___V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;}
-   ;
-   /*_.MAKE_TUPLE2__V48*/ curfptr[47] = 
-    (meltgc_new_mult2((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]),  (melt_ptr_t)(/*_.INST___V46*/ curfptr[45])));;
-   MELT_LOCATION("warmelt-normal.melt:5748:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5748:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ curfrout->tabval[14])), (3), "CLASS_SOURCE_OR");/*_.INST__V50*/ curfptr[49] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5748:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V50*/ curfptr[49]), (1), (/*_.PSLOC__V5*/ curfptr[4]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5748:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V50*/ curfptr[49]), (2), (/*_.MAKE_TUPLE2__V48*/ curfptr[47]), "SOR_DISJ");
-    ;
-    /*_.SGETCURENVBOX__V49*/ curfptr[48] = /*_.INST__V50*/ curfptr[49];;}
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5774:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend");
-    /*multimsend*/{
-     union meltparam_un argtab[3];
-     union meltparam_un restab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     memset(&restab, 0, sizeof(restab));
-     MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-     MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.xres");
-     restab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V53*/ curfptr[52];MELT_LOCATION("warmelt-normal.melt:5774:/ multimsend.send");
-     /*_.NCURENVBOX__V52*/ curfptr[51] =  meltgc_send ((melt_ptr_t)(/*_.SGETCURENVBOX__V49*/ curfptr[48]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[22]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5774:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5777:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (melt_ptr_t)(/*_.CBIND__V29*/ curfptr[28]));}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5778:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5778:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NUCMEB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.NUP__V26*/ curfptr[23])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.NUP__V26*/ curfptr[23]), (1), (/*_.NCURENVBOX__V52*/ curfptr[51]), "NUCMEB_EXPR");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5778:/ touch");
-      meltgc_touch(/*_.NUP__V26*/ curfptr[23]);
-      ;
-      /*epilog*/}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5779:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5779:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_update_current_module_environment_container result bindlist";
-        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5779:/ apply.arg");
-        argtab[3].bp_long = 5779;
-        /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V54*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5779:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5779:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.else");
-     /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5780:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5780:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_update_current_module_environment_container result clocc";
-        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5780:/ apply.arg");
-        argtab[3].bp_long = 5780;
-        /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5780:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5780:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.else");
-     /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:5781:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V31*/ curfptr[30];;
-      MELT_LOCATION("warmelt-normal.melt:5781:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V53*/ curfptr[52]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5781:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.MULTI___V51*/ curfptr[50] = /*_.RETURN___V58*/ curfptr[56];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
-     /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
-     /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
-     /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5774:/ clear");
-    /*clear*/ /*_.BINDLIST__V53*/ curfptr[52] = 0 ;}
-   ;
-   /*_.LET___V25*/ curfptr[22] = /*_.MULTI___V51*/ curfptr[50];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.NUP__V26*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.CSYM__V28*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.CBIND__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.CLOCC__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.CSBUF__V35*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.INST___V43*/ curfptr[42] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.MAKE_TUPLE2__V45*/ curfptr[44] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.INST___V46*/ curfptr[45] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.MAKE_TUPLE2__V48*/ curfptr[47] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.SGETCURENVBOX__V49*/ curfptr[48] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5721:/ clear");
-   /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V25*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.INIPROC__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.MODCTX__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.MODNAM__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5709:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5704:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5704:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5704:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_152_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 13
-  long varnum[13];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_FETCH_PREDEFINED", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5789:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5789:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5790:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5790:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5790:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5790:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5790:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5790:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5790:/ locexp");
-      melt_assert_failed(( "check fetch_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5790)?(5790):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5790:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5790:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5790:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5791:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5791:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5791:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5791:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5791:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5791:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5791:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5791)?(5791):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5791:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5791:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5791:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5792:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5792:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5792:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5792:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5792:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5792:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5792:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5792)?(5792):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5792:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5792:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5792:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5793:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5793:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5793:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_fetch_predefined recv";
-    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5793:/ apply.arg");
-    argtab[3].bp_long = 5793;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5793:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5793:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5793:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5794:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5795:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5796:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SFEPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5797:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V17*/ curfptr[16] = slot; };
-  ;
-  /*_#IS_A__L5*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:5799:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5799:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5799:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5801:/ block");
-    /*block*/{
-     /*_.BOXK__V19*/ curfptr[18] = 
-      meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));;
-     MELT_LOCATION("warmelt-normal.melt:5804:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5804:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5804:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5804:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V19*/ curfptr[18]);
-      ;
-      /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5803:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5803:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
-      /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.BOX_CONTENT__V23*/ curfptr[22] = 
-      melt_box_content((meltbox_ptr_t)(/*_.BOXK__V19*/ curfptr[18]));;
-     /*_#NULL__L6*/ curfnum[5] = 
-      ((/*_.BOX_CONTENT__V23*/ curfptr[22]) == NULL);;
-     MELT_LOCATION("warmelt-normal.melt:5806:/ cond");
-     /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:5806:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:5806:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5808:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[23] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5807:/ locexp");
-       melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[23]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5806:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[23] = 0 ;}
-      ;
-     } /*noelse*/
-     ;
-     /*_.IFELSE___V18*/ curfptr[17] = /*_.MAPOBJECT_EVERY__V22*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
-     /*clear*/ /*_.BOXK__V19*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
-     /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
-     /*clear*/ /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
-     /*clear*/ /*_.BOX_CONTENT__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5801:/ clear");
-     /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5799:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:5799:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-normal.melt:5811:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5811:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5811:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5813:/ block");
-      /*block*/{
-       /*_#PREDRK__L8*/ curfnum[7] = 
-        (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));;
-       /*_#I__L9*/ curfnum[8] = 
-        ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));;
-       MELT_LOCATION("warmelt-normal.melt:5814:/ cond");
-       /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:5814:/ cond.then");
-       /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];;
-       } else {MELT_LOCATION("warmelt-normal.melt:5814:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:5814:/ block");
-        /*block*/{
-         /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 
-          BGLOB__LASTGLOB;;
-         /*_#I__L12*/ curfnum[11] = 
-          ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));;
-         /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:5814:/ clear");
-         /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:5814:/ clear");
-         /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
-        ;
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5814:/ cond");
-       /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:5814:/ cond.then");
-       MELT_LOCATION("warmelt-normal.melt:5814:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:5815:/ locexp");
-          melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED invalid predef rank"), (melt_ptr_t)0);}
-          ;
-          /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-       } else {MELT_LOCATION("warmelt-normal.melt:5814:/ cond.else");
-       
-        /*_.IFELSE___V25*/ curfptr[23] = NULL;;
-        }
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5813:/ clear");
-       /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5813:/ clear");
-       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5813:/ clear");
-       /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:5811:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5811:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:5819:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:5819:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:5819:/ cond");
-        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:5819:/ cond.then");
-        /*_.IFELSE___V27*/ curfptr[19] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-normal.melt:5819:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:5819:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:5819:/ locexp");
-           melt_assert_failed(( "FETCH_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5819)?(5819):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V26*/ curfptr[18] = /*_.IFELSE___V27*/ curfptr[19];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:5819:/ clear");
-        /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:5819:/ cppif.else");
-      /*_.IFCPP___V26*/ curfptr[18] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:5818:/ block");
-      /*block*/{
-       /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[18];;}
-      ;
-      /*_.IFELSE___V25*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5811:/ clear");
-      /*clear*/ /*_.IFCPP___V26*/ curfptr[18] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5811:/ clear");
-      /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V18*/ curfptr[17] = /*_.IFELSE___V25*/ curfptr[23];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5799:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5799:/ clear");
-    /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5821:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5821:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5821:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[8])), (2), "CLASS_NREP_PREDEF");/*_.INST__V31*/ curfptr[18] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5821:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V31*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5821:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V31*/ curfptr[18]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NRPREDEF");
-    ;
-    /*_.NPRE__V30*/ curfptr[19] = /*_.INST__V31*/ curfptr[18];;}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-normal.melt:5826:/ cppif.then");
-   MELT_LOCATION("warmelt-normal.melt:5826:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 
-      callcount;;
-     MELT_LOCATION("warmelt-normal.melt:5826:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
-      argtab[0].bp_cstring =  "normexp_fetch_predefined result npre";
-      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[10];
-      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-normal.melt";
-      MELT_LOCATION("warmelt-normal.melt:5826:/ apply.arg");
-      argtab[3].bp_long = 5826;
-      /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NPRE__V30*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V32*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[23];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5826:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5826:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-normal.melt:5826:/ cppif.else");
-   /*_.IFCPP___V32*/ curfptr[21] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-normal.melt:5827:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.NPRE__V30*/ curfptr[19];;
-    MELT_LOCATION("warmelt-normal.melt:5827:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V29*/ curfptr[22] = /*_.RETURN___V34*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5821:/ clear");
-   /*clear*/ /*_.NPRE__V30*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5821:/ clear");
-   /*clear*/ /*_.IFCPP___V32*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5821:/ clear");
-   /*clear*/ /*_.RETURN___V34*/ curfptr[23] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.LET___V29*/ curfptr[22];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
-  /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
-  /*clear*/ /*_.PREDEFMAP__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
-  /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5794:/ clear");
-  /*clear*/ /*_.LET___V29*/ curfptr[22] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5789:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5789:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5789:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_FETCH_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_153_warmelt_normal_NORMEXP_FETCH_PREDEFINED*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_154_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_154_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5804:/ getarg");
- /*_.KEY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5804:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5804:/ block");
-/*block*/{
- /*_#__L1*/ curfnum[0] = 
-  ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));;
- MELT_LOCATION("warmelt-normal.melt:5805:/ cond");
- /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:5805:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:5805:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5805:/ locexp");
-   meltgc_box_put((melt_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ curfptr[1]));}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5804:/ clear");
- /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_154_warmelt_normal_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 48
-  void* varptr[48];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<48; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 48;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NORMEXP_STORE_PREDEFINED", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
- /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-normal.melt:5835:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5835:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5836:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5836:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-normal.melt:5836:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5836:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5836:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5836:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5836:/ locexp");
-      melt_assert_failed(( "check store_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5836)?(5836):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5836:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5836:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5836:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5837:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5837:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-normal.melt:5837:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5837:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5837:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5837:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5837:/ locexp");
-      melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5837)?(5837):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5837:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5837:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5837:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5838:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5838:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[2])));;
-   MELT_LOCATION("warmelt-normal.melt:5838:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-normal.melt:5838:/ cond.then");
-   /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-normal.melt:5838:/ cond.else");
-   
-    MELT_LOCATION("warmelt-normal.melt:5838:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-normal.melt:5838:/ locexp");
-      melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5838)?(5838):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5838:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5838:/ clear");
-   /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5838:/ cppif.else");
- /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.then");
- MELT_LOCATION("warmelt-normal.melt:5839:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-normal.melt:5839:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
-    argtab[0].bp_cstring =  "normexp_store_predefined recv";
-    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-normal.melt";
-    MELT_LOCATION("warmelt-normal.melt:5839:/ apply.arg");
-    argtab[3].bp_long = 5839;
-    /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5839:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-normal.melt:5839:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-normal.melt:5840:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-normal.melt:5841:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5842:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5843:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SSTPD_VALUE");/*_.SVAL__V17*/ curfptr[16] = slot; };
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5844:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V18*/ curfptr[17] = slot; };
-  ;
-  /*_#IS_A__L5*/ curfnum[0] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-normal.melt:5846:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-normal.melt:5846:/ cond.then");
-  MELT_LOCATION("warmelt-normal.melt:5846:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-normal.melt:5848:/ block");
-    /*block*/{
-     /*_.BOXK__V20*/ curfptr[19] = 
-      meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));;
-     MELT_LOCATION("warmelt-normal.melt:5851:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5851:/ newclosure");
-       /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] =
-       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5851:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5851:/ putclosedv");
-      /*putclosv*/
-      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
-      melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
-      ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V20*/ curfptr[19]);
-      ;
-      /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5850:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-normal.melt:5850:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20];
-      /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.BOX_CONTENT__V24*/ curfptr[23] = 
-      melt_box_content((meltbox_ptr_t)(/*_.BOXK__V20*/ curfptr[19]));;
-     /*_#NULL__L6*/ curfnum[5] = 
-      ((/*_.BOX_CONTENT__V24*/ curfptr[23]) == NULL);;
-     MELT_LOCATION("warmelt-normal.melt:5853:/ cond");
-     /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-normal.melt:5853:/ cond.then");
-     MELT_LOCATION("warmelt-normal.melt:5853:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-normal.melt:5855:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-normal.melt:5854:/ locexp");
-       melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5853:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;}
-      ;
-     } /*noelse*/
-     ;
-     /*_.IFELSE___V19*/ curfptr[18] = /*_.MAPOBJECT_EVERY__V23*/ curfptr[22];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
-     /*clear*/ /*_.BOXK__V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
-     /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
-     /*clear*/ /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
-     /*clear*/ /*_.BOX_CONTENT__V24*/ curfptr[23] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5848:/ clear");
-     /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-normal.melt:5846:/ cond.else");
-  
-   MELT_LOCATION("warmelt-normal.melt:5846:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-normal.melt:5858:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5858:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5858:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5860:/ block");
-      /*block*/{
-       /*_#PREDRK__L8*/ curfnum[7] = 
-        (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));;
-       /*_#I__L9*/ curfnum[8] = 
-        ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));;
-       MELT_LOCATION("warmelt-normal.melt:5861:/ cond");
-       /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:5861:/ cond.then");
-       /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];;
-       } else {MELT_LOCATION("warmelt-normal.melt:5861:/ cond.else");
-       
-        MELT_LOCATION("warmelt-normal.melt:5861:/ block");
-        /*block*/{
-         /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 
-          BGLOB__LASTGLOB;;
-         /*_#I__L12*/ curfnum[11] = 
-          ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));;
-         /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-normal.melt:5861:/ clear");
-         /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ;
-         MELT_LOCATION("warmelt-normal.melt:5861:/ clear");
-         /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
-        ;
-        }
-       ;
-       MELT_LOCATION("warmelt-normal.melt:5861:/ cond");
-       /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-normal.melt:5861:/ cond.then");
-       MELT_LOCATION("warmelt-normal.melt:5861:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-normal.melt:5862:/ locexp");
-          melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED invalid predef rank"), (melt_ptr_t)0);}
-          ;
-          /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-       } else {MELT_LOCATION("warmelt-normal.melt:5861:/ cond.else");
-       
-        /*_.IFELSE___V26*/ curfptr[24] = NULL;;
-        }
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5860:/ clear");
-       /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5860:/ clear");
-       /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5860:/ clear");
-       /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:5858:/ cond.else");
-    
-     MELT_LOCATION("warmelt-normal.melt:5858:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-normal.melt:5866:/ cppif.then");
-      MELT_LOCATION("warmelt-normal.melt:5866:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-normal.melt:5866:/ cond");
-        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-        MELT_LOCATION("warmelt-normal.melt:5866:/ cond.then");
-        /*_.IFELSE___V28*/ curfptr[20] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-normal.melt:5866:/ cond.else");
-        
-         MELT_LOCATION("warmelt-normal.melt:5866:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-normal.melt:5866:/ locexp");
-           melt_assert_failed(( "STORE_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__,
-  (5866)?(5866):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V27*/ curfptr[19] = /*_.IFELSE___V28*/ curfptr[20];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-normal.melt:5866:/ clear");
-        /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-normal.melt:5866:/ cppif.else");
-      /*_.IFCPP___V27*/ curfptr[19] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-normal.melt:5865:/ block");
-      /*block*/{
-       /*_.PROGN___V29*/ curfptr[22] = /*_.IFCPP___V27*/ curfptr[19];;}
-      ;
-      /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V29*/ curfptr[22];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5858:/ clear");
-      /*clear*/ /*_.IFCPP___V27*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5858:/ clear");
-      /*clear*/ /*_.PROGN___V29*/ curfptr[22] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V19*/ curfptr[18] = /*_.IFELSE___V26*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5846:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5846:/ clear");
-    /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-normal.melt:5868:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend");
-   /*multimsend*/{
-    union meltparam_un argtab[3];
-    union meltparam_un restab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    memset(&restab, 0, sizeof(restab));
-    MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ curfptr[2];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ curfptr[3];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.arg");
-    argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];
-    MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.xres");
-    restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V32*/ curfptr[19];MELT_LOCATION("warmelt-normal.melt:5868:/ multimsend.send");
-    /*_.NVAL__V31*/ curfptr[20] =  meltgc_send ((melt_ptr_t)(/*_.SVAL__V17*/ curfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-    }
-   ;
-   MELT_LOCATION("warmelt-normal.melt:5868:/ block");
-   /*block*/{
-    /*_#NULL__L13*/ curfnum[10] = 
-     ((/*_.NBINDS__V32*/ curfptr[19]) == NULL);;
-    MELT_LOCATION("warmelt-normal.melt:5871:/ cond");
-    /*cond*/ if (/*_#NULL__L13*/ curfnum[10]) /*then*/ {
-    MELT_LOCATION("warmelt-normal.melt:5871:/ cond.then");
-    MELT_LOCATION("warmelt-normal.melt:5871:/ block");
-     /*block*/{
-      /*_.MAKE_LIST__V34*/ curfptr[24] = 
-       (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));;
-      MELT_LOCATION("warmelt-normal.melt:5872:/ compute");
-      /*_.NBINDS__V32*/ curfptr[19] = /*_.SETQ___V35*/ curfptr[34] = /*_.MAKE_LIST__V34*/ curfptr[24];;
-      /*_.IF___V33*/ curfptr[22] = /*_.SETQ___V35*/ curfptr[34];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-normal.melt:5871:/ clear");
-      /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[24] = 0 ;
-      MELT_LOCATION("warmelt-normal.melt:5871:/ clear");
-      /*clear*/ /*_.SETQ___V35*/ curfptr[34] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-normal.melt:5871:/ cond.else");
-    
-     /*_.IF___V33*/ curfptr[22] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-normal.melt:5873:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-normal.melt:5873:/ apply");
-     /*apply*/{
-      /*_.CSYM__V37*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_STOREPREDEF_*/ curfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-      }
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5874:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5874:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[12])), (3), "CLASS_NREP_STORE_PREDEFINED");/*_.INST__V39*/ curfptr[38] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5874:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5874:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NSTPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NSTPD_PREDEF");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5874:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NSTPD_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ curfptr[38])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V39*/ curfptr[38]), (2), (/*_.NVAL__V31*/ curfptr[20]), "NSTPD_VALUE");
-      ;
-      /*_.NFPRE__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5878:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5878:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ curfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V41*/ curfptr[40] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5878:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (0), (/*_.CSYM__V37*/ curfptr[34]), "BINDER");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5878:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "LETBIND_TYPE");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5878:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.NFPRE__V38*/ curfptr[37]), "LETBIND_EXPR");
-      ;
-      /*_.CBIND__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;}
-     ;
-     MELT_LOCATION("warmelt-normal.melt:5882:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-normal.melt:5882:/ rawallocobj");
-      /*rawallocobj*/ { melt_ptr_t newobj = 0;
-       melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V43*/ curfptr[42] =
-       newobj; };
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "NOCC_CTYP");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (1), (/*_.CSYM__V37*/ curfptr[34]), "NOCC_SYMB");
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5882:/ putslot");
-      /*putslot*/
-      melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT);
-      melt_putfield_object((/*_.INST__V43*/ curfptr[42]), (3), (/*_.CBIND__V40*/ curfptr[39]), "NOCC_BIND");
-      ;
-      /*_.SYOCC__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-normal.melt:5888:/ locexp");
-     meltgc_append_list((melt_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (melt_ptr_t)(/*_.CBIND__V40*/ curfptr[39]));}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5889:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5889:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5889:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_store_predefined result nbinds";
-        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11];
-        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5889:/ apply.arg");
-        argtab[3].bp_long = 5889;
-        /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V44*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ curfptr[44];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5889:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5889:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5889:/ cppif.else");
-     /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-normal.melt:5890:/ cppif.then");
-     MELT_LOCATION("warmelt-normal.melt:5890:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L15*/ curfnum[7] = 
-        callcount;;
-       MELT_LOCATION("warmelt-normal.melt:5890:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
-        argtab[0].bp_cstring =  "normexp_store_predefined result syocc";
-        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[7];
-        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-normal.melt";
-        MELT_LOCATION("warmelt-normal.melt:5890:/ apply.arg");
-        argtab[3].bp_long = 5890;
-        /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SYOCC__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-normal.melt:5890:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[7] = 0 ;
-       MELT_LOCATION("warmelt-normal.melt:5890:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-normal.melt:5890:/ cppif.else");
-     /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-normal.melt:5891:/ block");
-     /*block*/{
-      /*_.RETVAL___V1*/ curfptr[0] = /*_.SYOCC__V42*/ curfptr[41];;
-      MELT_LOCATION("warmelt-normal.melt:5891:/ putxtraresult");
-      if (!xrestab_ || !xresdescr_) goto labend_rout;
-      if (xresdescr_[0] != BPAR_PTR) goto labend_rout;
-      if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDS__V32*/ curfptr[19]);
-      ;
-      MELT_LOCATION("warmelt-normal.melt:5891:/ finalreturn");
-      ;
-      /*finalret*/ goto labend_rout ;}
-     ;
-     /*_.LET___V36*/ curfptr[24] = /*_.RETURN___V48*/ curfptr[46];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.CSYM__V37*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.NFPRE__V38*/ curfptr[37] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.CBIND__V40*/ curfptr[39] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.SYOCC__V42*/ curfptr[41] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ;
-     MELT_LOCATION("warmelt-normal.melt:5873:/ clear");
-     /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;}
-    ;
-    /*_.MULTI___V30*/ curfptr[23] = /*_.LET___V36*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
-    /*clear*/ /*_#NULL__L13*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
-    /*clear*/ /*_.IF___V33*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
-    /*clear*/ /*_.LET___V36*/ curfptr[24] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-normal.melt:5868:/ clear");
-   /*clear*/ /*_.NBINDS__V32*/ curfptr[19] = 0 ;}
-  ;
-  /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V30*/ curfptr[23];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_.SVAL__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_.PREDEFMAP__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-normal.melt:5840:/ clear");
-  /*clear*/ /*_.MULTI___V30*/ curfptr[23] = 0 ;}
- ;
- MELT_LOCATION("warmelt-normal.melt:5835:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];;
-  MELT_LOCATION("warmelt-normal.melt:5835:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
- /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-normal.melt:5835:/ clear");
- /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NORMEXP_STORE_PREDEFINED", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_155_warmelt_normal_NORMEXP_STORE_PREDEFINED*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_156_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_156_warmelt_normal_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-normal.melt:5851:/ getarg");
- /*_.KEY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-normal.melt:5851:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-normal.melt:5851:/ block");
-/*block*/{
- /*_#__L1*/ curfnum[0] = 
-  ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));;
- MELT_LOCATION("warmelt-normal.melt:5852:/ cond");
- /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-normal.melt:5852:/ cond.then");
- MELT_LOCATION("warmelt-normal.melt:5852:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-normal.melt:5852:/ locexp");
-   meltgc_box_put((melt_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ curfptr[1]));}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-normal.melt:5851:/ clear");
- /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_156_warmelt_normal_LAMBDA_*/
-
-
-
 typedef 
  struct frame_start_module_melt_st { unsigned nbvar;
 #if ENABLE_CHECKING
@@ -76504,7 +27565,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3__CLASS_ROOT));
   melt_assertmsg("iniobj checkdiscr dobj_5__CLASS_NREP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_5__CLASS_NREP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_5__CLASS_NREP.obj_num = OBMAG_OBJECT;
-  cdat->dobj_5__CLASS_NREP.obj_hash = 912250501;
+  cdat->dobj_5__CLASS_NREP.obj_hash = 449508168;
   cdat->dobj_5__CLASS_NREP.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_5__CLASS_NREP));
  
@@ -76540,7 +27601,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_9__NREP_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_11__NREP_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_11__NREP_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_11__NREP_LOC.obj_num = 0;
-  cdat->dobj_11__NREP_LOC.obj_hash = 704388135;
+  cdat->dobj_11__NREP_LOC.obj_hash = 774538786;
   cdat->dobj_11__NREP_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_11__NREP_LOC));
  
@@ -76568,7 +27629,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_13__CLASS_NREP_SIMPLE));
   melt_assertmsg("iniobj checkdiscr dobj_15__CLASS_NREP_SIMPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_15__CLASS_NREP_SIMPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_15__CLASS_NREP_SIMPLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 872299092;
+  cdat->dobj_15__CLASS_NREP_SIMPLE.obj_hash = 616649931;
   cdat->dobj_15__CLASS_NREP_SIMPLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_15__CLASS_NREP_SIMPLE));
  
@@ -76604,7 +27665,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_19__CLASS_NREP_EXPRESSION
   melt_assertmsg("iniobj checkdiscr dobj_21__CLASS_NREP_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 1021491771;
+  cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_hash = 985500766;
   cdat->dobj_21__CLASS_NREP_EXPRESSION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_21__CLASS_NREP_EXPRESSION));
  
@@ -76640,7 +27701,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_25__CLASS_NREP_TYPED_EXPR
   melt_assertmsg("iniobj checkdiscr dobj_27__CLASS_NREP_TYPED_EXPRESSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 904377868;
+  cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_hash = 115283147;
   cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_27__CLASS_NREP_TYPED_EXPRESSION));
  
@@ -76676,7 +27737,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_31__NEXPR_CTYP));
   melt_assertmsg("iniobj checkdiscr dobj_33__NEXPR_CTYP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_33__NEXPR_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_33__NEXPR_CTYP.obj_num = 1;
-  cdat->dobj_33__NEXPR_CTYP.obj_hash = 816844157;
+  cdat->dobj_33__NEXPR_CTYP.obj_hash = 595156948;
   cdat->dobj_33__NEXPR_CTYP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_33__NEXPR_CTYP));
  
@@ -76704,7 +27765,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_35__CLASS_NREP_TYPED_EXPR
   melt_assertmsg("iniobj checkdiscr dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 393165432;
+  cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_hash = 355929595;
   cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_37__CLASS_NREP_TYPED_EXPRESSION_WITH_ARGUMENTS));
  
@@ -76740,7 +27801,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_41__NEXPR_ARGS));
   melt_assertmsg("iniobj checkdiscr dobj_43__NEXPR_ARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_43__NEXPR_ARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_43__NEXPR_ARGS.obj_num = 2;
-  cdat->dobj_43__NEXPR_ARGS.obj_hash = 1020827310;
+  cdat->dobj_43__NEXPR_ARGS.obj_hash = 254899561;
   cdat->dobj_43__NEXPR_ARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_43__NEXPR_ARGS));
  
@@ -76768,7 +27829,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_45__CLASS_NREP_APPLY));
   melt_assertmsg("iniobj checkdiscr dobj_47__CLASS_NREP_APPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_47__CLASS_NREP_APPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_47__CLASS_NREP_APPLY.obj_num = OBMAG_OBJECT;
-  cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 7191562;
+  cdat->dobj_47__CLASS_NREP_APPLY.obj_hash = 102261313;
   cdat->dobj_47__CLASS_NREP_APPLY.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_47__CLASS_NREP_APPLY));
  
@@ -76804,7 +27865,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_51__NAPP_FUN));
   melt_assertmsg("iniobj checkdiscr dobj_53__NAPP_FUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_53__NAPP_FUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_53__NAPP_FUN.obj_num = 3;
-  cdat->dobj_53__NAPP_FUN.obj_hash = 305185637;
+  cdat->dobj_53__NAPP_FUN.obj_hash = 273487348;
   cdat->dobj_53__NAPP_FUN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_53__NAPP_FUN));
  
@@ -76832,7 +27893,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_55__CLASS_NREP_MULTIAPPLY
   melt_assertmsg("iniobj checkdiscr dobj_57__CLASS_NREP_MULTIAPPLY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_num = OBMAG_OBJECT;
-  cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 624689832;
+  cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_hash = 185458115;
   cdat->dobj_57__CLASS_NREP_MULTIAPPLY.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_57__CLASS_NREP_MULTIAPPLY));
  
@@ -76868,7 +27929,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_61__NMULAPP_BINDINGS));
   melt_assertmsg("iniobj checkdiscr dobj_63__NMULAPP_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_63__NMULAPP_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_63__NMULAPP_BINDINGS.obj_num = 4;
-  cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 471863082;
+  cdat->dobj_63__NMULAPP_BINDINGS.obj_hash = 937556797;
   cdat->dobj_63__NMULAPP_BINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_63__NMULAPP_BINDINGS));
  
@@ -76896,7 +27957,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_65__NMULAPP_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_67__NMULAPP_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_67__NMULAPP_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_67__NMULAPP_BODY.obj_num = 5;
-  cdat->dobj_67__NMULAPP_BODY.obj_hash = 684981019;
+  cdat->dobj_67__NMULAPP_BODY.obj_hash = 28740838;
   cdat->dobj_67__NMULAPP_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_67__NMULAPP_BODY));
  
@@ -76924,7 +27985,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_69__CLASS_NREP_MSEND));
   melt_assertmsg("iniobj checkdiscr dobj_71__CLASS_NREP_MSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_71__CLASS_NREP_MSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_71__CLASS_NREP_MSEND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 87683622;
+  cdat->dobj_71__CLASS_NREP_MSEND.obj_hash = 637039277;
   cdat->dobj_71__CLASS_NREP_MSEND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_71__CLASS_NREP_MSEND));
  
@@ -76960,7 +28021,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_75__NSEND_SEL));
   melt_assertmsg("iniobj checkdiscr dobj_77__NSEND_SEL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_77__NSEND_SEL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_77__NSEND_SEL.obj_num = 3;
-  cdat->dobj_77__NSEND_SEL.obj_hash = 467596049;
+  cdat->dobj_77__NSEND_SEL.obj_hash = 430370928;
   cdat->dobj_77__NSEND_SEL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_77__NSEND_SEL));
  
@@ -76988,7 +28049,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_79__NSEND_RECV));
   melt_assertmsg("iniobj checkdiscr dobj_81__NSEND_RECV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_81__NSEND_RECV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_81__NSEND_RECV.obj_num = 4;
-  cdat->dobj_81__NSEND_RECV.obj_hash = 437957838;
+  cdat->dobj_81__NSEND_RECV.obj_hash = 279402181;
   cdat->dobj_81__NSEND_RECV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_81__NSEND_RECV));
  
@@ -77016,7 +28077,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_83__CLASS_NREP_MULTIMSEND
   melt_assertmsg("iniobj checkdiscr dobj_85__CLASS_NREP_MULTIMSEND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_num = OBMAG_OBJECT;
-  cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 981298672;
+  cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_hash = 647171475;
   cdat->dobj_85__CLASS_NREP_MULTIMSEND.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_85__CLASS_NREP_MULTIMSEND));
  
@@ -77052,7 +28113,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_89__NMULSEND_BINDINGS));
   melt_assertmsg("iniobj checkdiscr dobj_91__NMULSEND_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_91__NMULSEND_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_91__NMULSEND_BINDINGS.obj_num = 5;
-  cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 776455193;
+  cdat->dobj_91__NMULSEND_BINDINGS.obj_hash = 344103924;
   cdat->dobj_91__NMULSEND_BINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_91__NMULSEND_BINDINGS));
  
@@ -77080,7 +28141,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_93__NMULSEND_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_95__NMULSEND_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_95__NMULSEND_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_95__NMULSEND_BODY.obj_num = 6;
-  cdat->dobj_95__NMULSEND_BODY.obj_hash = 12574937;
+  cdat->dobj_95__NMULSEND_BODY.obj_hash = 695269292;
   cdat->dobj_95__NMULSEND_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_95__NMULSEND_BODY));
  
@@ -77108,7 +28169,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_97__CLASS_NREP_CHUNK));
   melt_assertmsg("iniobj checkdiscr dobj_99__CLASS_NREP_CHUNK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_99__CLASS_NREP_CHUNK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_99__CLASS_NREP_CHUNK.obj_num = OBMAG_OBJECT;
-  cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 680931018;
+  cdat->dobj_99__CLASS_NREP_CHUNK.obj_hash = 780328441;
   cdat->dobj_99__CLASS_NREP_CHUNK.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_99__CLASS_NREP_CHUNK));
  
@@ -77144,7 +28205,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_103__NCHUNK_EXPANSION));
   melt_assertmsg("iniobj checkdiscr dobj_105__NCHUNK_EXPANSION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_105__NCHUNK_EXPANSION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_105__NCHUNK_EXPANSION.obj_num = 2;
-  cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 942469331;
+  cdat->dobj_105__NCHUNK_EXPANSION.obj_hash = 582525210;
   cdat->dobj_105__NCHUNK_EXPANSION.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_105__NCHUNK_EXPANSION));
  
@@ -77172,7 +28233,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_107__NCHUNK_OPER));
   melt_assertmsg("iniobj checkdiscr dobj_109__NCHUNK_OPER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_109__NCHUNK_OPER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_109__NCHUNK_OPER.obj_num = 3;
-  cdat->dobj_109__NCHUNK_OPER.obj_hash = 1025018291;
+  cdat->dobj_109__NCHUNK_OPER.obj_hash = 736533714;
   cdat->dobj_109__NCHUNK_OPER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_109__NCHUNK_OPER));
  
@@ -77200,7 +28261,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_111__CLASS_NREP_COMMENT))
   melt_assertmsg("iniobj checkdiscr dobj_113__CLASS_NREP_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_113__CLASS_NREP_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_113__CLASS_NREP_COMMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 89634212;
+  cdat->dobj_113__CLASS_NREP_COMMENT.obj_hash = 98891407;
   cdat->dobj_113__CLASS_NREP_COMMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_113__CLASS_NREP_COMMENT));
  
@@ -77236,7 +28297,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_117__NCOMM_STRING));
   melt_assertmsg("iniobj checkdiscr dobj_119__NCOMM_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_119__NCOMM_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_119__NCOMM_STRING.obj_num = 1;
-  cdat->dobj_119__NCOMM_STRING.obj_hash = 628663288;
+  cdat->dobj_119__NCOMM_STRING.obj_hash = 940667483;
   cdat->dobj_119__NCOMM_STRING.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_119__NCOMM_STRING));
  
@@ -77264,7 +28325,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_121__CLASS_NREP_LET));
   melt_assertmsg("iniobj checkdiscr dobj_123__CLASS_NREP_LET", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_123__CLASS_NREP_LET.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_123__CLASS_NREP_LET.obj_num = OBMAG_OBJECT;
-  cdat->dobj_123__CLASS_NREP_LET.obj_hash = 997571744;
+  cdat->dobj_123__CLASS_NREP_LET.obj_hash = 107050143;
   cdat->dobj_123__CLASS_NREP_LET.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_123__CLASS_NREP_LET));
  
@@ -77300,7 +28361,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_127__NLET_BINDINGS));
   melt_assertmsg("iniobj checkdiscr dobj_129__NLET_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_129__NLET_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_129__NLET_BINDINGS.obj_num = 1;
-  cdat->dobj_129__NLET_BINDINGS.obj_hash = 963236284;
+  cdat->dobj_129__NLET_BINDINGS.obj_hash = 887635795;
   cdat->dobj_129__NLET_BINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_129__NLET_BINDINGS));
  
@@ -77328,7 +28389,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_131__NLET_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_133__NLET_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_133__NLET_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_133__NLET_BODY.obj_num = 2;
-  cdat->dobj_133__NLET_BODY.obj_hash = 771279004;
+  cdat->dobj_133__NLET_BODY.obj_hash = 163291531;
   cdat->dobj_133__NLET_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_133__NLET_BODY));
  
@@ -77356,7 +28417,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_135__CLASS_NREP_LETREC));
   melt_assertmsg("iniobj checkdiscr dobj_137__CLASS_NREP_LETREC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_137__CLASS_NREP_LETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_137__CLASS_NREP_LETREC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 469967427;
+  cdat->dobj_137__CLASS_NREP_LETREC.obj_hash = 389250878;
   cdat->dobj_137__CLASS_NREP_LETREC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_137__CLASS_NREP_LETREC));
  
@@ -77392,7 +28453,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_141__NLETREC_BINDINGS));
   melt_assertmsg("iniobj checkdiscr dobj_143__NLETREC_BINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_143__NLETREC_BINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_143__NLETREC_BINDINGS.obj_num = 3;
-  cdat->dobj_143__NLETREC_BINDINGS.obj_hash = 915730733;
+  cdat->dobj_143__NLETREC_BINDINGS.obj_hash = 992797216;
   cdat->dobj_143__NLETREC_BINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_143__NLETREC_BINDINGS));
  
@@ -77420,7 +28481,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_145__NLETREC_LOCSYMS));
   melt_assertmsg("iniobj checkdiscr dobj_147__NLETREC_LOCSYMS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_147__NLETREC_LOCSYMS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_147__NLETREC_LOCSYMS.obj_num = 4;
-  cdat->dobj_147__NLETREC_LOCSYMS.obj_hash = 818427669;
+  cdat->dobj_147__NLETREC_LOCSYMS.obj_hash = 967018688;
   cdat->dobj_147__NLETREC_LOCSYMS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_147__NLETREC_LOCSYMS));
  
@@ -77448,7 +28509,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_149__CLASS_NREP_RETURN));
   melt_assertmsg("iniobj checkdiscr dobj_151__CLASS_NREP_RETURN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_151__CLASS_NREP_RETURN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_151__CLASS_NREP_RETURN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_151__CLASS_NREP_RETURN.obj_hash = 228202307;
+  cdat->dobj_151__CLASS_NREP_RETURN.obj_hash = 719307050;
   cdat->dobj_151__CLASS_NREP_RETURN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_151__CLASS_NREP_RETURN));
  
@@ -77484,7 +28545,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_155__NRET_MAIN));
   melt_assertmsg("iniobj checkdiscr dobj_157__NRET_MAIN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_157__NRET_MAIN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_157__NRET_MAIN.obj_num = 1;
-  cdat->dobj_157__NRET_MAIN.obj_hash = 321650141;
+  cdat->dobj_157__NRET_MAIN.obj_hash = 805417884;
   cdat->dobj_157__NRET_MAIN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_157__NRET_MAIN));
  
@@ -77512,7 +28573,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_159__NRET_REST));
   melt_assertmsg("iniobj checkdiscr dobj_161__NRET_REST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_161__NRET_REST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_161__NRET_REST.obj_num = 2;
-  cdat->dobj_161__NRET_REST.obj_hash = 670798033;
+  cdat->dobj_161__NRET_REST.obj_hash = 140284456;
   cdat->dobj_161__NRET_REST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_161__NRET_REST));
  
@@ -77540,7 +28601,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_163__CLASS_NREP_IFCOMMON)
   melt_assertmsg("iniobj checkdiscr dobj_165__CLASS_NREP_IFCOMMON", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_num = OBMAG_OBJECT;
-  cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_hash = 830232336;
+  cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_hash = 56669911;
   cdat->dobj_165__CLASS_NREP_IFCOMMON.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_165__CLASS_NREP_IFCOMMON));
  
@@ -77576,7 +28637,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_169__NIF_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_171__NIF_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_171__NIF_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_171__NIF_THEN.obj_num = 2;
-  cdat->dobj_171__NIF_THEN.obj_hash = 944888152;
+  cdat->dobj_171__NIF_THEN.obj_hash = 291170295;
   cdat->dobj_171__NIF_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_171__NIF_THEN));
  
@@ -77604,7 +28665,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_173__NIF_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_175__NIF_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_175__NIF_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_175__NIF_ELSE.obj_num = 3;
-  cdat->dobj_175__NIF_ELSE.obj_hash = 599265495;
+  cdat->dobj_175__NIF_ELSE.obj_hash = 178341390;
   cdat->dobj_175__NIF_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_175__NIF_ELSE));
  
@@ -77632,7 +28693,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__CLASS_NREP_IFISA));
   melt_assertmsg("iniobj checkdiscr dobj_179__CLASS_NREP_IFISA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_179__CLASS_NREP_IFISA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_179__CLASS_NREP_IFISA.obj_num = OBMAG_OBJECT;
-  cdat->dobj_179__CLASS_NREP_IFISA.obj_hash = 720741713;
+  cdat->dobj_179__CLASS_NREP_IFISA.obj_hash = 700211508;
   cdat->dobj_179__CLASS_NREP_IFISA.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_179__CLASS_NREP_IFISA));
  
@@ -77668,7 +28729,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_183__NIFA_VAL));
   melt_assertmsg("iniobj checkdiscr dobj_185__NIFA_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_185__NIFA_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_185__NIFA_VAL.obj_num = 4;
-  cdat->dobj_185__NIFA_VAL.obj_hash = 361698201;
+  cdat->dobj_185__NIFA_VAL.obj_hash = 696844724;
   cdat->dobj_185__NIFA_VAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_185__NIFA_VAL));
  
@@ -77696,7 +28757,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_187__NIFA_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_189__NIFA_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_189__NIFA_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_189__NIFA_CLASS.obj_num = 5;
-  cdat->dobj_189__NIFA_CLASS.obj_hash = 974666128;
+  cdat->dobj_189__NIFA_CLASS.obj_hash = 889712803;
   cdat->dobj_189__NIFA_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_189__NIFA_CLASS));
  
@@ -77724,7 +28785,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_191__CLASS_NREP_IF));
   melt_assertmsg("iniobj checkdiscr dobj_193__CLASS_NREP_IF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_193__CLASS_NREP_IF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_193__CLASS_NREP_IF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_193__CLASS_NREP_IF.obj_hash = 169005293;
+  cdat->dobj_193__CLASS_NREP_IF.obj_hash = 729271644;
   cdat->dobj_193__CLASS_NREP_IF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_193__CLASS_NREP_IF));
  
@@ -77760,7 +28821,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_197__NIF_TEST));
   melt_assertmsg("iniobj checkdiscr dobj_199__NIF_TEST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_199__NIF_TEST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_199__NIF_TEST.obj_num = 4;
-  cdat->dobj_199__NIF_TEST.obj_hash = 299229413;
+  cdat->dobj_199__NIF_TEST.obj_hash = 733855852;
   cdat->dobj_199__NIF_TEST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_199__NIF_TEST));
  
@@ -77788,7 +28849,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_201__CLASS_NREP_CPPIF));
   melt_assertmsg("iniobj checkdiscr dobj_203__CLASS_NREP_CPPIF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_203__CLASS_NREP_CPPIF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_203__CLASS_NREP_CPPIF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_203__CLASS_NREP_CPPIF.obj_hash = 16976863;
+  cdat->dobj_203__CLASS_NREP_CPPIF.obj_hash = 1063088722;
   cdat->dobj_203__CLASS_NREP_CPPIF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_203__CLASS_NREP_CPPIF));
  
@@ -77824,7 +28885,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_207__NIFP_COND));
   melt_assertmsg("iniobj checkdiscr dobj_209__NIFP_COND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_209__NIFP_COND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_209__NIFP_COND.obj_num = 1;
-  cdat->dobj_209__NIFP_COND.obj_hash = 771107492;
+  cdat->dobj_209__NIFP_COND.obj_hash = 271232463;
   cdat->dobj_209__NIFP_COND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_209__NIFP_COND));
  
@@ -77852,7 +28913,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_211__NIFP_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_213__NIFP_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_213__NIFP_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_213__NIFP_THEN.obj_num = 2;
-  cdat->dobj_213__NIFP_THEN.obj_hash = 820577019;
+  cdat->dobj_213__NIFP_THEN.obj_hash = 833781150;
   cdat->dobj_213__NIFP_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_213__NIFP_THEN));
  
@@ -77880,7 +28941,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_215__NIFP_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_217__NIFP_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_217__NIFP_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_217__NIFP_ELSE.obj_num = 3;
-  cdat->dobj_217__NIFP_ELSE.obj_hash = 961690144;
+  cdat->dobj_217__NIFP_ELSE.obj_hash = 65004795;
   cdat->dobj_217__NIFP_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_217__NIFP_ELSE));
  
@@ -77908,7 +28969,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_219__NIFP_CTYP));
   melt_assertmsg("iniobj checkdiscr dobj_221__NIFP_CTYP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_221__NIFP_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_221__NIFP_CTYP.obj_num = 4;
-  cdat->dobj_221__NIFP_CTYP.obj_hash = 917396222;
+  cdat->dobj_221__NIFP_CTYP.obj_hash = 563477713;
   cdat->dobj_221__NIFP_CTYP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_221__NIFP_CTYP));
  
@@ -77936,7 +28997,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_223__CLASS_NREP_PROGN));
   melt_assertmsg("iniobj checkdiscr dobj_225__CLASS_NREP_PROGN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_225__CLASS_NREP_PROGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_225__CLASS_NREP_PROGN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_225__CLASS_NREP_PROGN.obj_hash = 29269545;
+  cdat->dobj_225__CLASS_NREP_PROGN.obj_hash = 145200216;
   cdat->dobj_225__CLASS_NREP_PROGN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_225__CLASS_NREP_PROGN));
  
@@ -77972,7 +29033,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_229__NPROGN_SEQ));
   melt_assertmsg("iniobj checkdiscr dobj_231__NPROGN_SEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_231__NPROGN_SEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_231__NPROGN_SEQ.obj_num = 1;
-  cdat->dobj_231__NPROGN_SEQ.obj_hash = 318238231;
+  cdat->dobj_231__NPROGN_SEQ.obj_hash = 532856158;
   cdat->dobj_231__NPROGN_SEQ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_231__NPROGN_SEQ));
  
@@ -78000,7 +29061,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_233__NPROGN_LAST));
   melt_assertmsg("iniobj checkdiscr dobj_235__NPROGN_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_235__NPROGN_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_235__NPROGN_LAST.obj_num = 2;
-  cdat->dobj_235__NPROGN_LAST.obj_hash = 711593692;
+  cdat->dobj_235__NPROGN_LAST.obj_hash = 1011996923;
   cdat->dobj_235__NPROGN_LAST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_235__NPROGN_LAST));
  
@@ -78028,7 +29089,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_237__CLASS_NREP_UNSAFE_GE
   melt_assertmsg("iniobj checkdiscr dobj_239__CLASS_NREP_UNSAFE_GET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 861472114;
+  cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 456173917;
   cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_239__CLASS_NREP_UNSAFE_GET_FIELD));
  
@@ -78064,7 +29125,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_243__NUGET_OBJ));
   melt_assertmsg("iniobj checkdiscr dobj_245__NUGET_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_245__NUGET_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_245__NUGET_OBJ.obj_num = 1;
-  cdat->dobj_245__NUGET_OBJ.obj_hash = 777941779;
+  cdat->dobj_245__NUGET_OBJ.obj_hash = 643292278;
   cdat->dobj_245__NUGET_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_245__NUGET_OBJ));
  
@@ -78092,7 +29153,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_247__NUGET_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_249__NUGET_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_249__NUGET_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_249__NUGET_FIELD.obj_num = 2;
-  cdat->dobj_249__NUGET_FIELD.obj_hash = 379847925;
+  cdat->dobj_249__NUGET_FIELD.obj_hash = 724442256;
   cdat->dobj_249__NUGET_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_249__NUGET_FIELD));
  
@@ -78120,7 +29181,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_251__CLASS_NREP_UNSAFE_PU
   melt_assertmsg("iniobj checkdiscr dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 970982435;
+  cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 346251450;
   cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_253__CLASS_NREP_UNSAFE_PUT_FIELDS));
  
@@ -78156,7 +29217,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_257__NUPUT_OBJ));
   melt_assertmsg("iniobj checkdiscr dobj_259__NUPUT_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_259__NUPUT_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_259__NUPUT_OBJ.obj_num = 1;
-  cdat->dobj_259__NUPUT_OBJ.obj_hash = 862304678;
+  cdat->dobj_259__NUPUT_OBJ.obj_hash = 868522389;
   cdat->dobj_259__NUPUT_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_259__NUPUT_OBJ));
  
@@ -78184,7 +29245,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_261__NUPUT_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_263__NUPUT_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_263__NUPUT_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_263__NUPUT_FIELDS.obj_num = 2;
-  cdat->dobj_263__NUPUT_FIELDS.obj_hash = 267081689;
+  cdat->dobj_263__NUPUT_FIELDS.obj_hash = 825525984;
   cdat->dobj_263__NUPUT_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_263__NUPUT_FIELDS));
  
@@ -78212,7 +29273,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_265__CLASS_NREP_SETQ));
   melt_assertmsg("iniobj checkdiscr dobj_267__CLASS_NREP_SETQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_267__CLASS_NREP_SETQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_267__CLASS_NREP_SETQ.obj_num = OBMAG_OBJECT;
-  cdat->dobj_267__CLASS_NREP_SETQ.obj_hash = 679396675;
+  cdat->dobj_267__CLASS_NREP_SETQ.obj_hash = 981754166;
   cdat->dobj_267__CLASS_NREP_SETQ.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_267__CLASS_NREP_SETQ));
  
@@ -78248,7 +29309,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_271__NSTQ_VAR));
   melt_assertmsg("iniobj checkdiscr dobj_273__NSTQ_VAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_273__NSTQ_VAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_273__NSTQ_VAR.obj_num = 1;
-  cdat->dobj_273__NSTQ_VAR.obj_hash = 45102064;
+  cdat->dobj_273__NSTQ_VAR.obj_hash = 909420699;
   cdat->dobj_273__NSTQ_VAR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_273__NSTQ_VAR));
  
@@ -78276,7 +29337,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_275__NSTQ_EXP));
   melt_assertmsg("iniobj checkdiscr dobj_277__NSTQ_EXP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_277__NSTQ_EXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_277__NSTQ_EXP.obj_num = 2;
-  cdat->dobj_277__NSTQ_EXP.obj_hash = 989714199;
+  cdat->dobj_277__NSTQ_EXP.obj_hash = 83910458;
   cdat->dobj_277__NSTQ_EXP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_277__NSTQ_EXP));
  
@@ -78304,7 +29365,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_279__CLASS_NREP_FOREVER))
   melt_assertmsg("iniobj checkdiscr dobj_281__CLASS_NREP_FOREVER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_281__CLASS_NREP_FOREVER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_281__CLASS_NREP_FOREVER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_281__CLASS_NREP_FOREVER.obj_hash = 916913724;
+  cdat->dobj_281__CLASS_NREP_FOREVER.obj_hash = 587860731;
   cdat->dobj_281__CLASS_NREP_FOREVER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_281__CLASS_NREP_FOREVER));
  
@@ -78340,7 +29401,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_285__NFOREVER_BIND));
   melt_assertmsg("iniobj checkdiscr dobj_287__NFOREVER_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_287__NFOREVER_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_287__NFOREVER_BIND.obj_num = 1;
-  cdat->dobj_287__NFOREVER_BIND.obj_hash = 606749714;
+  cdat->dobj_287__NFOREVER_BIND.obj_hash = 183104617;
   cdat->dobj_287__NFOREVER_BIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_287__NFOREVER_BIND));
  
@@ -78368,7 +29429,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_289__NFOREVER_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_291__NFOREVER_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_291__NFOREVER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_291__NFOREVER_BODY.obj_num = 2;
-  cdat->dobj_291__NFOREVER_BODY.obj_hash = 90717265;
+  cdat->dobj_291__NFOREVER_BODY.obj_hash = 864744960;
   cdat->dobj_291__NFOREVER_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_291__NFOREVER_BODY));
  
@@ -78396,7 +29457,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_293__NFOREVER_RESULT));
   melt_assertmsg("iniobj checkdiscr dobj_295__NFOREVER_RESULT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_295__NFOREVER_RESULT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_295__NFOREVER_RESULT.obj_num = 3;
-  cdat->dobj_295__NFOREVER_RESULT.obj_hash = 310618364;
+  cdat->dobj_295__NFOREVER_RESULT.obj_hash = 128100291;
   cdat->dobj_295__NFOREVER_RESULT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_295__NFOREVER_RESULT));
  
@@ -78424,7 +29485,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_297__CLASS_NREP_EXIT));
   melt_assertmsg("iniobj checkdiscr dobj_299__CLASS_NREP_EXIT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_299__CLASS_NREP_EXIT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_299__CLASS_NREP_EXIT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_299__CLASS_NREP_EXIT.obj_hash = 313100559;
+  cdat->dobj_299__CLASS_NREP_EXIT.obj_hash = 996804546;
   cdat->dobj_299__CLASS_NREP_EXIT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_299__CLASS_NREP_EXIT));
  
@@ -78460,7 +29521,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_303__NEXIT_BIND));
   melt_assertmsg("iniobj checkdiscr dobj_305__NEXIT_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_305__NEXIT_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_305__NEXIT_BIND.obj_num = 1;
-  cdat->dobj_305__NEXIT_BIND.obj_hash = 406858311;
+  cdat->dobj_305__NEXIT_BIND.obj_hash = 860299186;
   cdat->dobj_305__NEXIT_BIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_305__NEXIT_BIND));
  
@@ -78488,7 +29549,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_307__NEXIT_VAL));
   melt_assertmsg("iniobj checkdiscr dobj_309__NEXIT_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_309__NEXIT_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_309__NEXIT_VAL.obj_num = 2;
-  cdat->dobj_309__NEXIT_VAL.obj_hash = 76834979;
+  cdat->dobj_309__NEXIT_VAL.obj_hash = 606420870;
   cdat->dobj_309__NEXIT_VAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_309__NEXIT_VAL));
  
@@ -78516,7 +29577,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_311__CLASS_NREP_FIELDASSI
   melt_assertmsg("iniobj checkdiscr dobj_313__CLASS_NREP_FIELDASSIGN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_num = OBMAG_OBJECT;
-  cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_hash = 632391614;
+  cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_hash = 394084925;
   cdat->dobj_313__CLASS_NREP_FIELDASSIGN.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_313__CLASS_NREP_FIELDASSIGN));
  
@@ -78552,7 +29613,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_317__NFLA_FIELD));
   melt_assertmsg("iniobj checkdiscr dobj_319__NFLA_FIELD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_319__NFLA_FIELD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_319__NFLA_FIELD.obj_num = 1;
-  cdat->dobj_319__NFLA_FIELD.obj_hash = 52631779;
+  cdat->dobj_319__NFLA_FIELD.obj_hash = 547065082;
   cdat->dobj_319__NFLA_FIELD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_319__NFLA_FIELD));
  
@@ -78580,7 +29641,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_321__NFLA_VAL));
   melt_assertmsg("iniobj checkdiscr dobj_323__NFLA_VAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_323__NFLA_VAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_323__NFLA_VAL.obj_num = 2;
-  cdat->dobj_323__NFLA_VAL.obj_hash = 846223290;
+  cdat->dobj_323__NFLA_VAL.obj_hash = 838916905;
   cdat->dobj_323__NFLA_VAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_323__NFLA_VAL));
  
@@ -78608,7 +29669,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_325__CLASS_NREP_INSTANCE)
   melt_assertmsg("iniobj checkdiscr dobj_327__CLASS_NREP_INSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_327__CLASS_NREP_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_327__CLASS_NREP_INSTANCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_327__CLASS_NREP_INSTANCE.obj_hash = 509375539;
+  cdat->dobj_327__CLASS_NREP_INSTANCE.obj_hash = 159407534;
   cdat->dobj_327__CLASS_NREP_INSTANCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_327__CLASS_NREP_INSTANCE));
  
@@ -78644,7 +29705,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_331__NMINS_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_333__NMINS_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_333__NMINS_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_333__NMINS_CLASS.obj_num = 1;
-  cdat->dobj_333__NMINS_CLASS.obj_hash = 608951166;
+  cdat->dobj_333__NMINS_CLASS.obj_hash = 121990385;
   cdat->dobj_333__NMINS_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_333__NMINS_CLASS));
  
@@ -78672,7 +29733,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_335__NMINS_CLADATA));
   melt_assertmsg("iniobj checkdiscr dobj_337__NMINS_CLADATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_337__NMINS_CLADATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_337__NMINS_CLADATA.obj_num = 2;
-  cdat->dobj_337__NMINS_CLADATA.obj_hash = 481081279;
+  cdat->dobj_337__NMINS_CLADATA.obj_hash = 467131882;
   cdat->dobj_337__NMINS_CLADATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_337__NMINS_CLADATA));
  
@@ -78700,7 +29761,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_339__NMINS_FIELDS));
   melt_assertmsg("iniobj checkdiscr dobj_341__NMINS_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_341__NMINS_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_341__NMINS_FIELDS.obj_num = 3;
-  cdat->dobj_341__NMINS_FIELDS.obj_hash = 295371124;
+  cdat->dobj_341__NMINS_FIELDS.obj_hash = 904615703;
   cdat->dobj_341__NMINS_FIELDS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_341__NMINS_FIELDS));
  
@@ -78728,7 +29789,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_343__CLASS_NREP_LAMBDA));
   melt_assertmsg("iniobj checkdiscr dobj_345__CLASS_NREP_LAMBDA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_345__CLASS_NREP_LAMBDA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_345__CLASS_NREP_LAMBDA.obj_num = OBMAG_OBJECT;
-  cdat->dobj_345__CLASS_NREP_LAMBDA.obj_hash = 1032283042;
+  cdat->dobj_345__CLASS_NREP_LAMBDA.obj_hash = 457358305;
   cdat->dobj_345__CLASS_NREP_LAMBDA.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_345__CLASS_NREP_LAMBDA));
  
@@ -78764,7 +29825,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_349__NLAMBDA_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_351__NLAMBDA_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_351__NLAMBDA_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_351__NLAMBDA_PROC.obj_num = 1;
-  cdat->dobj_351__NLAMBDA_PROC.obj_hash = 456934526;
+  cdat->dobj_351__NLAMBDA_PROC.obj_hash = 36039765;
   cdat->dobj_351__NLAMBDA_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_351__NLAMBDA_PROC));
  
@@ -78792,7 +29853,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_353__NLAMBDA_CONSTROUT));
   melt_assertmsg("iniobj checkdiscr dobj_355__NLAMBDA_CONSTROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_355__NLAMBDA_CONSTROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_355__NLAMBDA_CONSTROUT.obj_num = 2;
-  cdat->dobj_355__NLAMBDA_CONSTROUT.obj_hash = 413777422;
+  cdat->dobj_355__NLAMBDA_CONSTROUT.obj_hash = 195951421;
   cdat->dobj_355__NLAMBDA_CONSTROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_355__NLAMBDA_CONSTROUT));
  
@@ -78820,7 +29881,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_357__NLAMBDA_CLOSEDV));
   melt_assertmsg("iniobj checkdiscr dobj_359__NLAMBDA_CLOSEDV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__NLAMBDA_CLOSEDV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_359__NLAMBDA_CLOSEDV.obj_num = 3;
-  cdat->dobj_359__NLAMBDA_CLOSEDV.obj_hash = 947819731;
+  cdat->dobj_359__NLAMBDA_CLOSEDV.obj_hash = 222266138;
   cdat->dobj_359__NLAMBDA_CLOSEDV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_359__NLAMBDA_CLOSEDV));
  
@@ -78848,7 +29909,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_361__CLASS_NREP_CITERATIO
   melt_assertmsg("iniobj checkdiscr dobj_363__CLASS_NREP_CITERATION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_363__CLASS_NREP_CITERATION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_363__CLASS_NREP_CITERATION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_363__CLASS_NREP_CITERATION.obj_hash = 682398115;
+  cdat->dobj_363__CLASS_NREP_CITERATION.obj_hash = 88696278;
   cdat->dobj_363__CLASS_NREP_CITERATION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_363__CLASS_NREP_CITERATION));
  
@@ -78884,7 +29945,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_367__NCITER_CITERATOR));
   melt_assertmsg("iniobj checkdiscr dobj_369__NCITER_CITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_369__NCITER_CITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_369__NCITER_CITERATOR.obj_num = 1;
-  cdat->dobj_369__NCITER_CITERATOR.obj_hash = 101060289;
+  cdat->dobj_369__NCITER_CITERATOR.obj_hash = 297997740;
   cdat->dobj_369__NCITER_CITERATOR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_369__NCITER_CITERATOR));
  
@@ -78912,7 +29973,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_371__NCITER_CHUNKBEFORE))
   melt_assertmsg("iniobj checkdiscr dobj_373__NCITER_CHUNKBEFORE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_373__NCITER_CHUNKBEFORE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_373__NCITER_CHUNKBEFORE.obj_num = 2;
-  cdat->dobj_373__NCITER_CHUNKBEFORE.obj_hash = 299787109;
+  cdat->dobj_373__NCITER_CHUNKBEFORE.obj_hash = 415983560;
   cdat->dobj_373__NCITER_CHUNKBEFORE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_373__NCITER_CHUNKBEFORE));
  
@@ -78940,7 +30001,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_375__NCITER_CHUNKAFTER));
   melt_assertmsg("iniobj checkdiscr dobj_377__NCITER_CHUNKAFTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_377__NCITER_CHUNKAFTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_377__NCITER_CHUNKAFTER.obj_num = 3;
-  cdat->dobj_377__NCITER_CHUNKAFTER.obj_hash = 322416007;
+  cdat->dobj_377__NCITER_CHUNKAFTER.obj_hash = 767186978;
   cdat->dobj_377__NCITER_CHUNKAFTER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_377__NCITER_CHUNKAFTER));
  
@@ -78968,7 +30029,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_379__NCITER_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_381__NCITER_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_381__NCITER_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_381__NCITER_BODY.obj_num = 4;
-  cdat->dobj_381__NCITER_BODY.obj_hash = 373315030;
+  cdat->dobj_381__NCITER_BODY.obj_hash = 111304041;
   cdat->dobj_381__NCITER_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_381__NCITER_BODY));
  
@@ -78996,7 +30057,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_383__NCITER_STATOCC));
   melt_assertmsg("iniobj checkdiscr dobj_385__NCITER_STATOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_385__NCITER_STATOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_385__NCITER_STATOCC.obj_num = 5;
-  cdat->dobj_385__NCITER_STATOCC.obj_hash = 347954472;
+  cdat->dobj_385__NCITER_STATOCC.obj_hash = 878589555;
   cdat->dobj_385__NCITER_STATOCC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_385__NCITER_STATOCC));
  
@@ -79024,7 +30085,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_387__NCITER_LOCBINDINGS))
   melt_assertmsg("iniobj checkdiscr dobj_389__NCITER_LOCBINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_389__NCITER_LOCBINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_389__NCITER_LOCBINDINGS.obj_num = 6;
-  cdat->dobj_389__NCITER_LOCBINDINGS.obj_hash = 611873551;
+  cdat->dobj_389__NCITER_LOCBINDINGS.obj_hash = 504266962;
   cdat->dobj_389__NCITER_LOCBINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_389__NCITER_LOCBINDINGS));
  
@@ -79052,7 +30113,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_391__NCITER_BODBINDINGS))
   melt_assertmsg("iniobj checkdiscr dobj_393__NCITER_BODBINDINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_393__NCITER_BODBINDINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_393__NCITER_BODBINDINGS.obj_num = 7;
-  cdat->dobj_393__NCITER_BODBINDINGS.obj_hash = 449247585;
+  cdat->dobj_393__NCITER_BODBINDINGS.obj_hash = 452738140;
   cdat->dobj_393__NCITER_BODBINDINGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_393__NCITER_BODBINDINGS));
  
@@ -79080,7 +30141,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_395__CLASS_NREP_TESTS));
   melt_assertmsg("iniobj checkdiscr dobj_397__CLASS_NREP_TESTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_397__CLASS_NREP_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_397__CLASS_NREP_TESTS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_397__CLASS_NREP_TESTS.obj_hash = 246318882;
+  cdat->dobj_397__CLASS_NREP_TESTS.obj_hash = 678235801;
   cdat->dobj_397__CLASS_NREP_TESTS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_397__CLASS_NREP_TESTS));
  
@@ -79116,7 +30177,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_401__NTESTS_TESTSEQ));
   melt_assertmsg("iniobj checkdiscr dobj_403__NTESTS_TESTSEQ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_403__NTESTS_TESTSEQ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_403__NTESTS_TESTSEQ.obj_num = 1;
-  cdat->dobj_403__NTESTS_TESTSEQ.obj_hash = 733242463;
+  cdat->dobj_403__NTESTS_TESTSEQ.obj_hash = 616864302;
   cdat->dobj_403__NTESTS_TESTSEQ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_403__NTESTS_TESTSEQ));
  
@@ -79157,7 +30218,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_407__CLASS_ANY_BINDING));
   melt_assertmsg("iniobj checkdiscr dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 139379805;
+  cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_hash = 923618232;
   cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_409__CLASS_NORMAL_CONSTRUCTOR_BINDING));
  
@@ -79193,7 +30254,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_413__NCONSB_LOC));
   melt_assertmsg("iniobj checkdiscr dobj_415__NCONSB_LOC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_415__NCONSB_LOC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_415__NCONSB_LOC.obj_num = 1;
-  cdat->dobj_415__NCONSB_LOC.obj_hash = 410494122;
+  cdat->dobj_415__NCONSB_LOC.obj_hash = 872855293;
   cdat->dobj_415__NCONSB_LOC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_415__NCONSB_LOC));
  
@@ -79221,7 +30282,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_417__NCONSB_DISCR));
   melt_assertmsg("iniobj checkdiscr dobj_419__NCONSB_DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_419__NCONSB_DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_419__NCONSB_DISCR.obj_num = 2;
-  cdat->dobj_419__NCONSB_DISCR.obj_hash = 501564802;
+  cdat->dobj_419__NCONSB_DISCR.obj_hash = 1030424461;
   cdat->dobj_419__NCONSB_DISCR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_419__NCONSB_DISCR));
  
@@ -79249,7 +30310,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_421__NCONSB_NLETREC));
   melt_assertmsg("iniobj checkdiscr dobj_423__NCONSB_NLETREC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_423__NCONSB_NLETREC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_423__NCONSB_NLETREC.obj_num = 3;
-  cdat->dobj_423__NCONSB_NLETREC.obj_hash = 939197733;
+  cdat->dobj_423__NCONSB_NLETREC.obj_hash = 529271208;
   cdat->dobj_423__NCONSB_NLETREC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_423__NCONSB_NLETREC));
  
@@ -79277,7 +30338,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_425__CLASS_NORMAL_CONSTRU
   melt_assertmsg("iniobj checkdiscr dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 1048065203;
+  cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_hash = 596816210;
   cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_427__CLASS_NORMAL_CONSTRUCTED_TUPLE_BINDING));
  
@@ -79313,7 +30374,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_431__NTUPB_COMP));
   melt_assertmsg("iniobj checkdiscr dobj_433__NTUPB_COMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_433__NTUPB_COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_433__NTUPB_COMP.obj_num = 4;
-  cdat->dobj_433__NTUPB_COMP.obj_hash = 812634390;
+  cdat->dobj_433__NTUPB_COMP.obj_hash = 952837197;
   cdat->dobj_433__NTUPB_COMP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_433__NTUPB_COMP));
  
@@ -79341,7 +30402,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_435__CLASS_NORMAL_CONSTRU
   melt_assertmsg("iniobj checkdiscr dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 80855739;
+  cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_hash = 876590238;
   cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_437__CLASS_NORMAL_CONSTRUCTED_PAIR_BINDING));
  
@@ -79377,7 +30438,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_441__NPAIRB_HEAD));
   melt_assertmsg("iniobj checkdiscr dobj_443__NPAIRB_HEAD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_443__NPAIRB_HEAD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_443__NPAIRB_HEAD.obj_num = 4;
-  cdat->dobj_443__NPAIRB_HEAD.obj_hash = 275456709;
+  cdat->dobj_443__NPAIRB_HEAD.obj_hash = 555103968;
   cdat->dobj_443__NPAIRB_HEAD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_443__NPAIRB_HEAD));
  
@@ -79405,7 +30466,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_445__NPAIRB_TAIL));
   melt_assertmsg("iniobj checkdiscr dobj_447__NPAIRB_TAIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_447__NPAIRB_TAIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_447__NPAIRB_TAIL.obj_num = 5;
-  cdat->dobj_447__NPAIRB_TAIL.obj_hash = 611303220;
+  cdat->dobj_447__NPAIRB_TAIL.obj_hash = 797183047;
   cdat->dobj_447__NPAIRB_TAIL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_447__NPAIRB_TAIL));
  
@@ -79433,7 +30494,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_449__CLASS_NORMAL_CONSTRU
   melt_assertmsg("iniobj checkdiscr dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 451721669;
+  cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_hash = 84395060;
   cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_451__CLASS_NORMAL_CONSTRUCTED_LIST_BINDING));
  
@@ -79469,7 +30530,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_455__NLISTB_FIRST));
   melt_assertmsg("iniobj checkdiscr dobj_457__NLISTB_FIRST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_457__NLISTB_FIRST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_457__NLISTB_FIRST.obj_num = 4;
-  cdat->dobj_457__NLISTB_FIRST.obj_hash = 524028403;
+  cdat->dobj_457__NLISTB_FIRST.obj_hash = 677095290;
   cdat->dobj_457__NLISTB_FIRST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_457__NLISTB_FIRST));
  
@@ -79497,7 +30558,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_459__NLISTB_LAST));
   melt_assertmsg("iniobj checkdiscr dobj_461__NLISTB_LAST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_461__NLISTB_LAST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_461__NLISTB_LAST.obj_num = 5;
-  cdat->dobj_461__NLISTB_LAST.obj_hash = 1045996588;
+  cdat->dobj_461__NLISTB_LAST.obj_hash = 924288651;
   cdat->dobj_461__NLISTB_LAST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_461__NLISTB_LAST));
  
@@ -79525,7 +30586,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_463__NLISTB_PAIRSB));
   melt_assertmsg("iniobj checkdiscr dobj_465__NLISTB_PAIRSB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_465__NLISTB_PAIRSB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_465__NLISTB_PAIRSB.obj_num = 6;
-  cdat->dobj_465__NLISTB_PAIRSB.obj_hash = 413302294;
+  cdat->dobj_465__NLISTB_PAIRSB.obj_hash = 56954125;
   cdat->dobj_465__NLISTB_PAIRSB.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_465__NLISTB_PAIRSB));
  
@@ -79553,7 +30614,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_467__CLASS_NORMAL_CONSTRU
   melt_assertmsg("iniobj checkdiscr dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 461722746;
+  cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_hash = 1026524445;
   cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_469__CLASS_NORMAL_CONSTRUCTED_LAMBDA_BINDING));
  
@@ -79589,7 +30650,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_473__NLAMBDAB_NCLOSED));
   melt_assertmsg("iniobj checkdiscr dobj_475__NLAMBDAB_NCLOSED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_475__NLAMBDAB_NCLOSED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_475__NLAMBDAB_NCLOSED.obj_num = 4;
-  cdat->dobj_475__NLAMBDAB_NCLOSED.obj_hash = 741505167;
+  cdat->dobj_475__NLAMBDAB_NCLOSED.obj_hash = 973523306;
   cdat->dobj_475__NLAMBDAB_NCLOSED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_475__NLAMBDAB_NCLOSED));
  
@@ -79617,7 +30678,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_477__NLAMBDAB_CONSTROUT))
   melt_assertmsg("iniobj checkdiscr dobj_479__NLAMBDAB_CONSTROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_num = 5;
-  cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_hash = 1059841784;
+  cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_hash = 76127947;
   cdat->dobj_479__NLAMBDAB_CONSTROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_479__NLAMBDAB_CONSTROUT));
  
@@ -79645,7 +30706,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_481__NLAMBDAB_DATAROUT));
   melt_assertmsg("iniobj checkdiscr dobj_483__NLAMBDAB_DATAROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_483__NLAMBDAB_DATAROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_483__NLAMBDAB_DATAROUT.obj_num = 6;
-  cdat->dobj_483__NLAMBDAB_DATAROUT.obj_hash = 199122879;
+  cdat->dobj_483__NLAMBDAB_DATAROUT.obj_hash = 865928010;
   cdat->dobj_483__NLAMBDAB_DATAROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_483__NLAMBDAB_DATAROUT));
  
@@ -79673,7 +30734,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_485__CLASS_NORMAL_CONSTRU
   melt_assertmsg("iniobj checkdiscr dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 899921318;
+  cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_hash = 118604525;
   cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_487__CLASS_NORMAL_CONSTRUCTED_INSTANCE_BINDING));
  
@@ -79709,7 +30770,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_491__NINSTB_SLOTS));
   melt_assertmsg("iniobj checkdiscr dobj_493__NINSTB_SLOTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_493__NINSTB_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_493__NINSTB_SLOTS.obj_num = 4;
-  cdat->dobj_493__NINSTB_SLOTS.obj_hash = 353662400;
+  cdat->dobj_493__NINSTB_SLOTS.obj_hash = 777825759;
   cdat->dobj_493__NINSTB_SLOTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_493__NINSTB_SLOTS));
  
@@ -79737,7 +30798,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_495__NINSTB_CLABIND));
   melt_assertmsg("iniobj checkdiscr dobj_497__NINSTB_CLABIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_497__NINSTB_CLABIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_497__NINSTB_CLABIND.obj_num = 5;
-  cdat->dobj_497__NINSTB_CLABIND.obj_hash = 631320925;
+  cdat->dobj_497__NINSTB_CLABIND.obj_hash = 772893716;
   cdat->dobj_497__NINSTB_CLABIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_497__NINSTB_CLABIND));
  
@@ -79765,7 +30826,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_499__CLASS_NREP_ANYPROC))
   melt_assertmsg("iniobj checkdiscr dobj_501__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_501__CLASS_NREP_ANYPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_501__CLASS_NREP_ANYPROC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_501__CLASS_NREP_ANYPROC.obj_hash = 968583180;
+  cdat->dobj_501__CLASS_NREP_ANYPROC.obj_hash = 70190959;
   cdat->dobj_501__CLASS_NREP_ANYPROC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_501__CLASS_NREP_ANYPROC));
  
@@ -79801,7 +30862,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_505__NPROC_BODY));
   melt_assertmsg("iniobj checkdiscr dobj_507__NPROC_BODY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_507__NPROC_BODY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_507__NPROC_BODY.obj_num = 1;
-  cdat->dobj_507__NPROC_BODY.obj_hash = 730860204;
+  cdat->dobj_507__NPROC_BODY.obj_hash = 441862215;
   cdat->dobj_507__NPROC_BODY.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_507__NPROC_BODY));
  
@@ -79829,7 +30890,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_509__CLASS_NREP_INITPROC)
   melt_assertmsg("iniobj checkdiscr dobj_511__CLASS_NREP_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_511__CLASS_NREP_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_511__CLASS_NREP_INITPROC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_511__CLASS_NREP_INITPROC.obj_hash = 755973442;
+  cdat->dobj_511__CLASS_NREP_INITPROC.obj_hash = 493975513;
   cdat->dobj_511__CLASS_NREP_INITPROC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_511__CLASS_NREP_INITPROC));
  
@@ -79865,7 +30926,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_515__NINIT_TOPL));
   melt_assertmsg("iniobj checkdiscr dobj_517__NINIT_TOPL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_517__NINIT_TOPL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_517__NINIT_TOPL.obj_num = 2;
-  cdat->dobj_517__NINIT_TOPL.obj_hash = 868735396;
+  cdat->dobj_517__NINIT_TOPL.obj_hash = 117163923;
   cdat->dobj_517__NINIT_TOPL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_517__NINIT_TOPL));
  
@@ -79893,7 +30954,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_519__CLASS_NREP_ROUTPROC)
   melt_assertmsg("iniobj checkdiscr dobj_521__CLASS_NREP_ROUTPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_hash = 607806115;
+  cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_hash = 947034270;
   cdat->dobj_521__CLASS_NREP_ROUTPROC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_521__CLASS_NREP_ROUTPROC));
  
@@ -79929,7 +30990,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_525__NRPRO_NAME));
   melt_assertmsg("iniobj checkdiscr dobj_527__NRPRO_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_527__NRPRO_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_527__NRPRO_NAME.obj_num = 2;
-  cdat->dobj_527__NRPRO_NAME.obj_hash = 656864929;
+  cdat->dobj_527__NRPRO_NAME.obj_hash = 510716052;
   cdat->dobj_527__NRPRO_NAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_527__NRPRO_NAME));
  
@@ -79957,7 +31018,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_529__NRPRO_ARGB));
   melt_assertmsg("iniobj checkdiscr dobj_531__NRPRO_ARGB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_531__NRPRO_ARGB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_531__NRPRO_ARGB.obj_num = 3;
-  cdat->dobj_531__NRPRO_ARGB.obj_hash = 1009549281;
+  cdat->dobj_531__NRPRO_ARGB.obj_hash = 605305484;
   cdat->dobj_531__NRPRO_ARGB.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_531__NRPRO_ARGB));
  
@@ -79985,7 +31046,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_533__NRPRO_CLOSEDB));
   melt_assertmsg("iniobj checkdiscr dobj_535__NRPRO_CLOSEDB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_535__NRPRO_CLOSEDB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_535__NRPRO_CLOSEDB.obj_num = 4;
-  cdat->dobj_535__NRPRO_CLOSEDB.obj_hash = 828801005;
+  cdat->dobj_535__NRPRO_CLOSEDB.obj_hash = 417119760;
   cdat->dobj_535__NRPRO_CLOSEDB.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_535__NRPRO_CLOSEDB));
  
@@ -80013,7 +31074,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_537__NRPRO_CONST));
   melt_assertmsg("iniobj checkdiscr dobj_539__NRPRO_CONST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_539__NRPRO_CONST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_539__NRPRO_CONST.obj_num = 5;
-  cdat->dobj_539__NRPRO_CONST.obj_hash = 482622252;
+  cdat->dobj_539__NRPRO_CONST.obj_hash = 332469639;
   cdat->dobj_539__NRPRO_CONST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_539__NRPRO_CONST));
  
@@ -80041,7 +31102,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_541__NRPRO_DATAROUT));
   melt_assertmsg("iniobj checkdiscr dobj_543__NRPRO_DATAROUT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_543__NRPRO_DATAROUT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_543__NRPRO_DATAROUT.obj_num = 6;
-  cdat->dobj_543__NRPRO_DATAROUT.obj_hash = 578764515;
+  cdat->dobj_543__NRPRO_DATAROUT.obj_hash = 359423030;
   cdat->dobj_543__NRPRO_DATAROUT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_543__NRPRO_DATAROUT));
  
@@ -80069,7 +31130,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_545__NRPRO_DATACLOS));
   melt_assertmsg("iniobj checkdiscr dobj_547__NRPRO_DATACLOS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_547__NRPRO_DATACLOS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_547__NRPRO_DATACLOS.obj_num = 7;
-  cdat->dobj_547__NRPRO_DATACLOS.obj_hash = 504524619;
+  cdat->dobj_547__NRPRO_DATACLOS.obj_hash = 530101334;
   cdat->dobj_547__NRPRO_DATACLOS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_547__NRPRO_DATACLOS));
  
@@ -80097,7 +31158,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_549__NRPRO_THUNKLIST));
   melt_assertmsg("iniobj checkdiscr dobj_551__NRPRO_THUNKLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_551__NRPRO_THUNKLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_551__NRPRO_THUNKLIST.obj_num = 8;
-  cdat->dobj_551__NRPRO_THUNKLIST.obj_hash = 392792419;
+  cdat->dobj_551__NRPRO_THUNKLIST.obj_hash = 374229222;
   cdat->dobj_551__NRPRO_THUNKLIST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_551__NRPRO_THUNKLIST));
  
@@ -80125,7 +31186,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_553__CLASS_NREP_LAMBDAROU
   melt_assertmsg("iniobj checkdiscr dobj_555__CLASS_NREP_LAMBDAROUTPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 716548273;
+  cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_hash = 925850704;
   cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_555__CLASS_NREP_LAMBDAROUTPROC));
  
@@ -80161,7 +31222,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_559__CLASS_NREP_DEFUNROUT
   melt_assertmsg("iniobj checkdiscr dobj_561__CLASS_NREP_DEFUNROUTPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_hash = 473846191;
+  cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_hash = 50728218;
   cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_561__CLASS_NREP_DEFUNROUTPROC));
  
@@ -80197,7 +31258,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_565__CLASS_NREP_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_567__CLASS_NREP_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_567__CLASS_NREP_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_567__CLASS_NREP_PREDEF.obj_num = OBMAG_OBJECT;
-  cdat->dobj_567__CLASS_NREP_PREDEF.obj_hash = 508245433;
+  cdat->dobj_567__CLASS_NREP_PREDEF.obj_hash = 103720032;
   cdat->dobj_567__CLASS_NREP_PREDEF.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_567__CLASS_NREP_PREDEF));
  
@@ -80233,7 +31294,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_571__NRPREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_573__NRPREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_573__NRPREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_573__NRPREDEF.obj_num = 1;
-  cdat->dobj_573__NRPREDEF.obj_hash = 339759073;
+  cdat->dobj_573__NRPREDEF.obj_hash = 1031485536;
   cdat->dobj_573__NRPREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_573__NRPREDEF));
  
@@ -80261,7 +31322,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_575__CLASS_NREP_NIL));
   melt_assertmsg("iniobj checkdiscr dobj_577__CLASS_NREP_NIL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_577__CLASS_NREP_NIL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_577__CLASS_NREP_NIL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_577__CLASS_NREP_NIL.obj_hash = 162517760;
+  cdat->dobj_577__CLASS_NREP_NIL.obj_hash = 575500491;
   cdat->dobj_577__CLASS_NREP_NIL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_577__CLASS_NREP_NIL));
  
@@ -80297,7 +31358,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_581__CLASS_NREP_QUASIDATA
   melt_assertmsg("iniobj checkdiscr dobj_583__CLASS_NREP_QUASIDATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_num = OBMAG_OBJECT;
-  cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_hash = 673101185;
+  cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_hash = 88912392;
   cdat->dobj_583__CLASS_NREP_QUASIDATA.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_583__CLASS_NREP_QUASIDATA));
  
@@ -80333,7 +31394,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_587__CLASS_NREP_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_589__CLASS_NREP_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_589__CLASS_NREP_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_589__CLASS_NREP_DATA.obj_num = OBMAG_OBJECT;
-  cdat->dobj_589__CLASS_NREP_DATA.obj_hash = 602641825;
+  cdat->dobj_589__CLASS_NREP_DATA.obj_hash = 51150100;
   cdat->dobj_589__CLASS_NREP_DATA.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_589__CLASS_NREP_DATA));
  
@@ -80369,7 +31430,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_593__NDATA_NAME));
   melt_assertmsg("iniobj checkdiscr dobj_595__NDATA_NAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_595__NDATA_NAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_595__NDATA_NAME.obj_num = 1;
-  cdat->dobj_595__NDATA_NAME.obj_hash = 387171681;
+  cdat->dobj_595__NDATA_NAME.obj_hash = 196948364;
   cdat->dobj_595__NDATA_NAME.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_595__NDATA_NAME));
  
@@ -80397,7 +31458,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_597__NDATA_DISCRX));
   melt_assertmsg("iniobj checkdiscr dobj_599__NDATA_DISCRX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_599__NDATA_DISCRX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_599__NDATA_DISCRX.obj_num = 2;
-  cdat->dobj_599__NDATA_DISCRX.obj_hash = 13240111;
+  cdat->dobj_599__NDATA_DISCRX.obj_hash = 77664978;
   cdat->dobj_599__NDATA_DISCRX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_599__NDATA_DISCRX));
  
@@ -80425,7 +31486,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_601__NDATA_RANK));
   melt_assertmsg("iniobj checkdiscr dobj_603__NDATA_RANK", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_603__NDATA_RANK.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_603__NDATA_RANK.obj_num = 3;
-  cdat->dobj_603__NDATA_RANK.obj_hash = 349618487;
+  cdat->dobj_603__NDATA_RANK.obj_hash = 127853842;
   cdat->dobj_603__NDATA_RANK.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_603__NDATA_RANK));
  
@@ -80453,7 +31514,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_605__NDATA_LOCBIND));
   melt_assertmsg("iniobj checkdiscr dobj_607__NDATA_LOCBIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_607__NDATA_LOCBIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_607__NDATA_LOCBIND.obj_num = 4;
-  cdat->dobj_607__NDATA_LOCBIND.obj_hash = 259003150;
+  cdat->dobj_607__NDATA_LOCBIND.obj_hash = 588076513;
   cdat->dobj_607__NDATA_LOCBIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_607__NDATA_LOCBIND));
  
@@ -80481,7 +31542,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_609__CLASS_NREP_DATAINSTA
   melt_assertmsg("iniobj checkdiscr dobj_611__CLASS_NREP_DATAINSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_hash = 130059757;
+  cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_hash = 811096348;
   cdat->dobj_611__CLASS_NREP_DATAINSTANCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_611__CLASS_NREP_DATAINSTANCE));
  
@@ -80517,7 +31578,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_615__NINST_OBJNUM));
   melt_assertmsg("iniobj checkdiscr dobj_617__NINST_OBJNUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_617__NINST_OBJNUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_617__NINST_OBJNUM.obj_num = 5;
-  cdat->dobj_617__NINST_OBJNUM.obj_hash = 228311345;
+  cdat->dobj_617__NINST_OBJNUM.obj_hash = 527297912;
   cdat->dobj_617__NINST_OBJNUM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_617__NINST_OBJNUM));
  
@@ -80545,7 +31606,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_619__NINST_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_621__NINST_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_621__NINST_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_621__NINST_PREDEF.obj_num = 6;
-  cdat->dobj_621__NINST_PREDEF.obj_hash = 209951419;
+  cdat->dobj_621__NINST_PREDEF.obj_hash = 403868122;
   cdat->dobj_621__NINST_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_621__NINST_PREDEF));
  
@@ -80573,7 +31634,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_623__NINST_HASH));
   melt_assertmsg("iniobj checkdiscr dobj_625__NINST_HASH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_625__NINST_HASH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_625__NINST_HASH.obj_num = 7;
-  cdat->dobj_625__NINST_HASH.obj_hash = 190219435;
+  cdat->dobj_625__NINST_HASH.obj_hash = 367906402;
   cdat->dobj_625__NINST_HASH.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_625__NINST_HASH));
  
@@ -80601,7 +31662,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_627__NINST_SLOTS));
   melt_assertmsg("iniobj checkdiscr dobj_629__NINST_SLOTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_629__NINST_SLOTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_629__NINST_SLOTS.obj_num = 8;
-  cdat->dobj_629__NINST_SLOTS.obj_hash = 359213218;
+  cdat->dobj_629__NINST_SLOTS.obj_hash = 653757105;
   cdat->dobj_629__NINST_SLOTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_629__NINST_SLOTS));
  
@@ -80629,7 +31690,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_631__CLASS_NREP_DATASTRIN
   melt_assertmsg("iniobj checkdiscr dobj_633__CLASS_NREP_DATASTRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_633__CLASS_NREP_DATASTRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_633__CLASS_NREP_DATASTRING.obj_num = OBMAG_OBJECT;
-  cdat->dobj_633__CLASS_NREP_DATASTRING.obj_hash = 598160516;
+  cdat->dobj_633__CLASS_NREP_DATASTRING.obj_hash = 939263263;
   cdat->dobj_633__CLASS_NREP_DATASTRING.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_633__CLASS_NREP_DATASTRING));
  
@@ -80665,7 +31726,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_637__NSTR_STRING));
   melt_assertmsg("iniobj checkdiscr dobj_639__NSTR_STRING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_639__NSTR_STRING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_639__NSTR_STRING.obj_num = 5;
-  cdat->dobj_639__NSTR_STRING.obj_hash = 46542362;
+  cdat->dobj_639__NSTR_STRING.obj_hash = 534105005;
   cdat->dobj_639__NSTR_STRING.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_639__NSTR_STRING));
  
@@ -80693,7 +31754,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_641__CLASS_NREP_DATABOXED
   melt_assertmsg("iniobj checkdiscr dobj_643__CLASS_NREP_DATABOXEDINTEGER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 430172122;
+  cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_hash = 152100041;
   cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_643__CLASS_NREP_DATABOXEDINTEGER));
  
@@ -80729,7 +31790,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_647__NBOXINT_NUM));
   melt_assertmsg("iniobj checkdiscr dobj_649__NBOXINT_NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_649__NBOXINT_NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_649__NBOXINT_NUM.obj_num = 5;
-  cdat->dobj_649__NBOXINT_NUM.obj_hash = 34743951;
+  cdat->dobj_649__NBOXINT_NUM.obj_hash = 485749398;
   cdat->dobj_649__NBOXINT_NUM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_649__NBOXINT_NUM));
  
@@ -80757,7 +31818,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_651__CLASS_NREP_DATATUPLE
   melt_assertmsg("iniobj checkdiscr dobj_653__CLASS_NREP_DATATUPLE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_hash = 966297131;
+  cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_hash = 1052320542;
   cdat->dobj_653__CLASS_NREP_DATATUPLE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_653__CLASS_NREP_DATATUPLE));
  
@@ -80793,7 +31854,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_657__NTUP_COMP));
   melt_assertmsg("iniobj checkdiscr dobj_659__NTUP_COMP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_659__NTUP_COMP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_659__NTUP_COMP.obj_num = 5;
-  cdat->dobj_659__NTUP_COMP.obj_hash = 305589047;
+  cdat->dobj_659__NTUP_COMP.obj_hash = 702073058;
   cdat->dobj_659__NTUP_COMP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_659__NTUP_COMP));
  
@@ -80821,7 +31882,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_661__CLASS_NREP_DATASYMBO
   melt_assertmsg("iniobj checkdiscr dobj_663__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_hash = 99485073;
+  cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_hash = 281324408;
   cdat->dobj_663__CLASS_NREP_DATASYMBOL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_663__CLASS_NREP_DATASYMBOL));
  
@@ -80857,7 +31918,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_667__NDSY_NAMESTR));
   melt_assertmsg("iniobj checkdiscr dobj_669__NDSY_NAMESTR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_669__NDSY_NAMESTR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_669__NDSY_NAMESTR.obj_num = 9;
-  cdat->dobj_669__NDSY_NAMESTR.obj_hash = 782613219;
+  cdat->dobj_669__NDSY_NAMESTR.obj_hash = 634047650;
   cdat->dobj_669__NDSY_NAMESTR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_669__NDSY_NAMESTR));
  
@@ -80885,7 +31946,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_671__CLASS_NREP_DATAKEYWO
   melt_assertmsg("iniobj checkdiscr dobj_673__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_num = OBMAG_OBJECT;
-  cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_hash = 165897568;
+  cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_hash = 488975723;
   cdat->dobj_673__CLASS_NREP_DATAKEYWORD.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_673__CLASS_NREP_DATAKEYWORD));
  
@@ -80921,7 +31982,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_677__CLASS_NREP_DATAROUTI
   melt_assertmsg("iniobj checkdiscr dobj_679__CLASS_NREP_DATAROUTINE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_hash = 451343342;
+  cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_hash = 83873717;
   cdat->dobj_679__CLASS_NREP_DATAROUTINE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_679__CLASS_NREP_DATAROUTINE));
  
@@ -80957,7 +32018,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_683__NDROU_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_685__NDROU_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_685__NDROU_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_685__NDROU_PROC.obj_num = 5;
-  cdat->dobj_685__NDROU_PROC.obj_hash = 951632657;
+  cdat->dobj_685__NDROU_PROC.obj_hash = 203468208;
   cdat->dobj_685__NDROU_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_685__NDROU_PROC));
  
@@ -80985,7 +32046,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_687__CLASS_NREP_DATACLOSU
   melt_assertmsg("iniobj checkdiscr dobj_689__CLASS_NREP_DATACLOSURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_hash = 865697164;
+  cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_hash = 149560311;
   cdat->dobj_689__CLASS_NREP_DATACLOSURE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_689__CLASS_NREP_DATACLOSURE));
  
@@ -81021,7 +32082,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_693__NDCLO_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_695__NDCLO_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_695__NDCLO_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_695__NDCLO_PROC.obj_num = 5;
-  cdat->dobj_695__NDCLO_PROC.obj_hash = 43804606;
+  cdat->dobj_695__NDCLO_PROC.obj_hash = 184389537;
   cdat->dobj_695__NDCLO_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_695__NDCLO_PROC));
  
@@ -81049,7 +32110,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_697__NDCLO_CLOSV));
   melt_assertmsg("iniobj checkdiscr dobj_699__NDCLO_CLOSV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__NDCLO_CLOSV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_699__NDCLO_CLOSV.obj_num = 6;
-  cdat->dobj_699__NDCLO_CLOSV.obj_hash = 748209277;
+  cdat->dobj_699__NDCLO_CLOSV.obj_hash = 958463640;
   cdat->dobj_699__NDCLO_CLOSV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_699__NDCLO_CLOSV));
  
@@ -81077,7 +32138,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_701__CLASS_NREP_IMPORTEDV
   melt_assertmsg("iniobj checkdiscr dobj_703__CLASS_NREP_IMPORTEDVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_num = OBMAG_OBJECT;
-  cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_hash = 858280247;
+  cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_hash = 268702286;
   cdat->dobj_703__CLASS_NREP_IMPORTEDVAL.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_703__CLASS_NREP_IMPORTEDVAL));
  
@@ -81113,7 +32174,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_707__NIMPORT_SYMB));
   melt_assertmsg("iniobj checkdiscr dobj_709__NIMPORT_SYMB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_709__NIMPORT_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_709__NIMPORT_SYMB.obj_num = 1;
-  cdat->dobj_709__NIMPORT_SYMB.obj_hash = 583560728;
+  cdat->dobj_709__NIMPORT_SYMB.obj_hash = 588613255;
   cdat->dobj_709__NIMPORT_SYMB.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_709__NIMPORT_SYMB));
  
@@ -81141,7 +32202,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_711__NIMPORT_SYDATA));
   melt_assertmsg("iniobj checkdiscr dobj_713__NIMPORT_SYDATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_713__NIMPORT_SYDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_713__NIMPORT_SYDATA.obj_num = 2;
-  cdat->dobj_713__NIMPORT_SYDATA.obj_hash = 1044476222;
+  cdat->dobj_713__NIMPORT_SYDATA.obj_hash = 376753349;
   cdat->dobj_713__NIMPORT_SYDATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_713__NIMPORT_SYDATA));
  
@@ -81169,7 +32230,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_715__CLASS_NREP_SYMOCC));
   melt_assertmsg("iniobj checkdiscr dobj_717__CLASS_NREP_SYMOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_717__CLASS_NREP_SYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_717__CLASS_NREP_SYMOCC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_717__CLASS_NREP_SYMOCC.obj_hash = 616288868;
+  cdat->dobj_717__CLASS_NREP_SYMOCC.obj_hash = 291824855;
   cdat->dobj_717__CLASS_NREP_SYMOCC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_717__CLASS_NREP_SYMOCC));
  
@@ -81205,7 +32266,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_721__NOCC_SYMB));
   melt_assertmsg("iniobj checkdiscr dobj_723__NOCC_SYMB", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_723__NOCC_SYMB.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_723__NOCC_SYMB.obj_num = 1;
-  cdat->dobj_723__NOCC_SYMB.obj_hash = 767394344;
+  cdat->dobj_723__NOCC_SYMB.obj_hash = 552505683;
   cdat->dobj_723__NOCC_SYMB.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_723__NOCC_SYMB));
  
@@ -81233,7 +32294,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_725__NOCC_CTYP));
   melt_assertmsg("iniobj checkdiscr dobj_727__NOCC_CTYP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_727__NOCC_CTYP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_727__NOCC_CTYP.obj_num = 2;
-  cdat->dobj_727__NOCC_CTYP.obj_hash = 601572530;
+  cdat->dobj_727__NOCC_CTYP.obj_hash = 967977813;
   cdat->dobj_727__NOCC_CTYP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_727__NOCC_CTYP));
  
@@ -81261,7 +32322,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_729__NOCC_BIND));
   melt_assertmsg("iniobj checkdiscr dobj_731__NOCC_BIND", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_731__NOCC_BIND.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_731__NOCC_BIND.obj_num = 3;
-  cdat->dobj_731__NOCC_BIND.obj_hash = 261621162;
+  cdat->dobj_731__NOCC_BIND.obj_hash = 48168069;
   cdat->dobj_731__NOCC_BIND.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_731__NOCC_BIND));
  
@@ -81289,7 +32350,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_733__CLASS_NREP_LOCSYMOCC
   melt_assertmsg("iniobj checkdiscr dobj_735__CLASS_NREP_LOCSYMOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_hash = 537084750;
+  cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_hash = 163412005;
   cdat->dobj_735__CLASS_NREP_LOCSYMOCC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_735__CLASS_NREP_LOCSYMOCC));
  
@@ -81325,7 +32386,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_739__CLASS_NREP_CLOSEDOCC
   melt_assertmsg("iniobj checkdiscr dobj_741__CLASS_NREP_CLOSEDOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_hash = 764457506;
+  cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_hash = 168995365;
   cdat->dobj_741__CLASS_NREP_CLOSEDOCC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_741__CLASS_NREP_CLOSEDOCC));
  
@@ -81361,7 +32422,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_745__NCLOC_PROCS));
   melt_assertmsg("iniobj checkdiscr dobj_747__NCLOC_PROCS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_747__NCLOC_PROCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_747__NCLOC_PROCS.obj_num = 4;
-  cdat->dobj_747__NCLOC_PROCS.obj_hash = 35559544;
+  cdat->dobj_747__NCLOC_PROCS.obj_hash = 608006067;
   cdat->dobj_747__NCLOC_PROCS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_747__NCLOC_PROCS));
  
@@ -81389,7 +32450,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_749__CLASS_NREP_CONSTOCC)
   melt_assertmsg("iniobj checkdiscr dobj_751__CLASS_NREP_CONSTOCC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_hash = 592022828;
+  cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_hash = 388949475;
   cdat->dobj_751__CLASS_NREP_CONSTOCC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_751__CLASS_NREP_CONSTOCC));
  
@@ -81425,7 +32486,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_755__CLASS_NREP_QUASICONS
   melt_assertmsg("iniobj checkdiscr dobj_757__CLASS_NREP_QUASICONSTANT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_hash = 537991901;
+  cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_hash = 994766912;
   cdat->dobj_757__CLASS_NREP_QUASICONSTANT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_757__CLASS_NREP_QUASICONSTANT));
  
@@ -81461,7 +32522,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_761__NCONST_SVAL));
   melt_assertmsg("iniobj checkdiscr dobj_763__NCONST_SVAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_763__NCONST_SVAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_763__NCONST_SVAL.obj_num = 1;
-  cdat->dobj_763__NCONST_SVAL.obj_hash = 857498415;
+  cdat->dobj_763__NCONST_SVAL.obj_hash = 21677770;
   cdat->dobj_763__NCONST_SVAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_763__NCONST_SVAL));
  
@@ -81489,7 +32550,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_765__NCONST_PROC));
   melt_assertmsg("iniobj checkdiscr dobj_767__NCONST_PROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_767__NCONST_PROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_767__NCONST_PROC.obj_num = 2;
-  cdat->dobj_767__NCONST_PROC.obj_hash = 871091825;
+  cdat->dobj_767__NCONST_PROC.obj_hash = 720811780;
   cdat->dobj_767__NCONST_PROC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_767__NCONST_PROC));
  
@@ -81517,7 +32578,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_769__NCONST_DATA));
   melt_assertmsg("iniobj checkdiscr dobj_771__NCONST_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_771__NCONST_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_771__NCONST_DATA.obj_num = 3;
-  cdat->dobj_771__NCONST_DATA.obj_hash = 809297526;
+  cdat->dobj_771__NCONST_DATA.obj_hash = 65800385;
   cdat->dobj_771__NCONST_DATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_771__NCONST_DATA));
  
@@ -81545,7 +32606,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_773__CLASS_NREP_CONSTANT)
   melt_assertmsg("iniobj checkdiscr dobj_775__CLASS_NREP_CONSTANT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_775__CLASS_NREP_CONSTANT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_775__CLASS_NREP_CONSTANT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_775__CLASS_NREP_CONSTANT.obj_hash = 1035185057;
+  cdat->dobj_775__CLASS_NREP_CONSTANT.obj_hash = 884364968;
   cdat->dobj_775__CLASS_NREP_CONSTANT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_775__CLASS_NREP_CONSTANT));
  
@@ -81581,7 +32642,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_779__CLASS_NREP_QUASICONS
   melt_assertmsg("iniobj checkdiscr dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 218588785;
+  cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 371306084;
   cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_781__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
  
@@ -81617,7 +32678,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_785__NQCMEC_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_787__NQCMEC_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_787__NQCMEC_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_787__NQCMEC_COMMENT.obj_num = 4;
-  cdat->dobj_787__NQCMEC_COMMENT.obj_hash = 39505143;
+  cdat->dobj_787__NQCMEC_COMMENT.obj_hash = 470928802;
   cdat->dobj_787__NQCMEC_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_787__NQCMEC_COMMENT));
  
@@ -81645,7 +32706,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_789__CLASS_NREP_QUASIDATA
   melt_assertmsg("iniobj checkdiscr dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 329276838;
+  cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 607437453;
   cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_791__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
  
@@ -81681,7 +32742,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_795__CLASS_NREP_QUASICONS
   melt_assertmsg("iniobj checkdiscr dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 376404342;
+  cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 681684169;
   cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_797__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT));
  
@@ -81717,7 +32778,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_801__CLASS_NREP_QUASIDATA
   melt_assertmsg("iniobj checkdiscr dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 910911147;
+  cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 190004314;
   cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_803__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT));
  
@@ -81753,7 +32814,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_807__CLASS_NREP_FIELDACC)
   melt_assertmsg("iniobj checkdiscr dobj_809__CLASS_NREP_FIELDACC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_809__CLASS_NREP_FIELDACC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_809__CLASS_NREP_FIELDACC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_809__CLASS_NREP_FIELDACC.obj_hash = 770926651;
+  cdat->dobj_809__CLASS_NREP_FIELDACC.obj_hash = 401438966;
   cdat->dobj_809__CLASS_NREP_FIELDACC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_809__CLASS_NREP_FIELDACC));
  
@@ -81789,7 +32850,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_813__NACCF_OBJ));
   melt_assertmsg("iniobj checkdiscr dobj_815__NACCF_OBJ", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_815__NACCF_OBJ.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_815__NACCF_OBJ.obj_num = 1;
-  cdat->dobj_815__NACCF_OBJ.obj_hash = 389135357;
+  cdat->dobj_815__NACCF_OBJ.obj_hash = 361359024;
   cdat->dobj_815__NACCF_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_815__NACCF_OBJ));
  
@@ -81817,7 +32878,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_817__NACCF_FLD));
   melt_assertmsg("iniobj checkdiscr dobj_819__NACCF_FLD", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_819__NACCF_FLD.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_819__NACCF_FLD.obj_num = 2;
-  cdat->dobj_819__NACCF_FLD.obj_hash = 838536283;
+  cdat->dobj_819__NACCF_FLD.obj_hash = 351243718;
   cdat->dobj_819__NACCF_FLD.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_819__NACCF_FLD));
  
@@ -81845,7 +32906,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_821__CLASS_NREP_MULTACC))
   melt_assertmsg("iniobj checkdiscr dobj_823__CLASS_NREP_MULTACC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_823__CLASS_NREP_MULTACC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_823__CLASS_NREP_MULTACC.obj_num = OBMAG_OBJECT;
-  cdat->dobj_823__CLASS_NREP_MULTACC.obj_hash = 102224579;
+  cdat->dobj_823__CLASS_NREP_MULTACC.obj_hash = 1027293034;
   cdat->dobj_823__CLASS_NREP_MULTACC.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_823__CLASS_NREP_MULTACC));
  
@@ -81881,7 +32942,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_827__NACCM_MUL));
   melt_assertmsg("iniobj checkdiscr dobj_829__NACCM_MUL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_829__NACCM_MUL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_829__NACCM_MUL.obj_num = 1;
-  cdat->dobj_829__NACCM_MUL.obj_hash = 390860631;
+  cdat->dobj_829__NACCM_MUL.obj_hash = 28452310;
   cdat->dobj_829__NACCM_MUL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_829__NACCM_MUL));
  
@@ -81909,7 +32970,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_831__NACCM_IX));
   melt_assertmsg("iniobj checkdiscr dobj_833__NACCM_IX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_833__NACCM_IX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_833__NACCM_IX.obj_num = 2;
-  cdat->dobj_833__NACCM_IX.obj_hash = 683941203;
+  cdat->dobj_833__NACCM_IX.obj_hash = 86265194;
   cdat->dobj_833__NACCM_IX.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_833__NACCM_IX));
  
@@ -81937,7 +32998,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_835__CLASS_NREP_STORE_PRE
   melt_assertmsg("iniobj checkdiscr dobj_837__CLASS_NREP_STORE_PREDEFINED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_num = OBMAG_OBJECT;
-  cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_hash = 939978895;
+  cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_hash = 146836690;
   cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_837__CLASS_NREP_STORE_PREDEFINED));
  
@@ -81973,7 +33034,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_841__NSTPD_PREDEF));
   melt_assertmsg("iniobj checkdiscr dobj_843__NSTPD_PREDEF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_843__NSTPD_PREDEF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_843__NSTPD_PREDEF.obj_num = 1;
-  cdat->dobj_843__NSTPD_PREDEF.obj_hash = 985886566;
+  cdat->dobj_843__NSTPD_PREDEF.obj_hash = 203367649;
   cdat->dobj_843__NSTPD_PREDEF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_843__NSTPD_PREDEF));
  
@@ -82001,7 +33062,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_845__NSTPD_VALUE));
   melt_assertmsg("iniobj checkdiscr dobj_847__NSTPD_VALUE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_847__NSTPD_VALUE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_847__NSTPD_VALUE.obj_num = 2;
-  cdat->dobj_847__NSTPD_VALUE.obj_hash = 518656116;
+  cdat->dobj_847__NSTPD_VALUE.obj_hash = 482233831;
   cdat->dobj_847__NSTPD_VALUE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_847__NSTPD_VALUE));
  
@@ -82029,7 +33090,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_849__CLASS_NREP_UPDATE_CU
   melt_assertmsg("iniobj checkdiscr dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 39343367;
+  cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 99734358;
   cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_851__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
  
@@ -82065,7 +33126,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_855__NUCMEB_EXPR));
   melt_assertmsg("iniobj checkdiscr dobj_857__NUCMEB_EXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_857__NUCMEB_EXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_857__NUCMEB_EXPR.obj_num = 1;
-  cdat->dobj_857__NUCMEB_EXPR.obj_hash = 761719089;
+  cdat->dobj_857__NUCMEB_EXPR.obj_hash = 267046296;
   cdat->dobj_857__NUCMEB_EXPR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_857__NUCMEB_EXPR));
  
@@ -82093,7 +33154,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_859__NCUMEB_COMMENT));
   melt_assertmsg("iniobj checkdiscr dobj_861__NCUMEB_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_861__NCUMEB_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_861__NCUMEB_COMMENT.obj_num = 2;
-  cdat->dobj_861__NCUMEB_COMMENT.obj_hash = 980554947;
+  cdat->dobj_861__NCUMEB_COMMENT.obj_hash = 471255298;
   cdat->dobj_861__NCUMEB_COMMENT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_861__NCUMEB_COMMENT));
  
@@ -82120,7 +33181,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_863__HAS_EXTRA_WARNINGS))
  if (!/*_.VALDATA___V1029*/ curfptr[1028]) /*_.VALDATA___V1029*/ curfptr[1028] = (void*)&cdat->dobj_865__HAS_EXTRA_WARNINGS;
   melt_assertmsg("iniobj checkdiscr dobj_865__HAS_EXTRA_WARNINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
   cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_hash = 283468096;
+  cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_hash = 234707095;
   cdat->dobj_865__HAS_EXTRA_WARNINGS.obj_len = 5;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_865__HAS_EXTRA_WARNINGS));
  
@@ -83159,7 +34220,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1024__LAST_GLOBPREDEF_IND
  if (!/*_.VALDATA___V1190*/ curfptr[1189]) /*_.VALDATA___V1190*/ curfptr[1189] = (void*)&cdat->dobj_1026__LAST_GLOBPREDEF_INDEX;
   melt_assertmsg("iniobj checkdiscr dobj_1026__LAST_GLOBPREDEF_INDEX", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
   cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_hash = 239815201;
+  cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_hash = 625291156;
   cdat->dobj_1026__LAST_GLOBPREDEF_INDEX.obj_len = 5;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1026__LAST_GLOBPREDEF_INDEX));
  
@@ -83237,7 +34298,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1037__NORMAL_EXP));
  if (!/*_.VALDATA___V1203*/ curfptr[1202]) /*_.VALDATA___V1203*/ curfptr[1202] = (void*)&cdat->dobj_1039__NORMAL_EXP;
   melt_assertmsg("iniobj checkdiscr dobj_1039__NORMAL_EXP", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
   cdat->dobj_1039__NORMAL_EXP.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
-  cdat->dobj_1039__NORMAL_EXP.obj_hash = 168260370;
+  cdat->dobj_1039__NORMAL_EXP.obj_hash = 208122189;
   cdat->dobj_1039__NORMAL_EXP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1039__NORMAL_EXP));
  
@@ -83339,7 +34400,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1053__GET_CTYPE));
  if (!/*_.VALDATA___V1219*/ curfptr[1218]) /*_.VALDATA___V1219*/ curfptr[1218] = (void*)&cdat->dobj_1055__GET_CTYPE;
   melt_assertmsg("iniobj checkdiscr dobj_1055__GET_CTYPE", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
   cdat->dobj_1055__GET_CTYPE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
-  cdat->dobj_1055__GET_CTYPE.obj_hash = 247468695;
+  cdat->dobj_1055__GET_CTYPE.obj_hash = 226272526;
   cdat->dobj_1055__GET_CTYPE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1055__GET_CTYPE));
  
@@ -83366,7 +34427,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1057__COMPILE_OBJ));
  if (!/*_.VALDATA___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*)&cdat->dobj_1059__COMPILE_OBJ;
   melt_assertmsg("iniobj checkdiscr dobj_1059__COMPILE_OBJ", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
   cdat->dobj_1059__COMPILE_OBJ.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
-  cdat->dobj_1059__COMPILE_OBJ.obj_hash = 1055167319;
+  cdat->dobj_1059__COMPILE_OBJ.obj_hash = 140402094;
   cdat->dobj_1059__COMPILE_OBJ.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1059__COMPILE_OBJ));
  
@@ -85146,7 +36207,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1333__RECV));
   melt_assertmsg("iniobj checkdiscr dobj_1335", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1335.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1335.obj_num = 0;
-  cdat->dobj_1335.obj_hash = 384222866;
+  cdat->dobj_1335.obj_hash = 1041860057;
   cdat->dobj_1335.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1335));
  
@@ -85169,7 +36230,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1336__SYMB));
   melt_assertmsg("iniobj checkdiscr dobj_1338", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1338.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1338.obj_num = 1;
-  cdat->dobj_1338.obj_hash = 526032577;
+  cdat->dobj_1338.obj_hash = 804610024;
   cdat->dobj_1338.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1338));
  
@@ -85192,7 +36253,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1339__NCX));
   melt_assertmsg("iniobj checkdiscr dobj_1341", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1341.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1341.obj_num = 2;
-  cdat->dobj_1341.obj_hash = 412503122;
+  cdat->dobj_1341.obj_hash = 1042508633;
   cdat->dobj_1341.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1341));
  
@@ -85215,7 +36276,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1342__SLOC));
   melt_assertmsg("iniobj checkdiscr dobj_1344", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1344.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1344.obj_num = 3;
-  cdat->dobj_1344.obj_hash = 784432765;
+  cdat->dobj_1344.obj_hash = 20633444;
   cdat->dobj_1344.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1344));
  
@@ -85228,7 +36289,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1344));
  if (!/*_.VALDATA___V1514*/ curfptr[1513]) /*_.VALDATA___V1514*/ curfptr[1513] = (void*)&cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING;
   melt_assertmsg("iniobj checkdiscr dobj_1346__PREPARE_CONSTRUCTOR_BINDING", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
   cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
-  cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 193085908;
+  cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_hash = 729846695;
   cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1346__PREPARE_CONSTRUCTOR_BINDING));
  
@@ -85281,7 +36342,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1352__CEXPR));
   melt_assertmsg("iniobj checkdiscr dobj_1354", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1354.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1354.obj_num = 0;
-  cdat->dobj_1354.obj_hash = 18833123;
+  cdat->dobj_1354.obj_hash = 38448710;
   cdat->dobj_1354.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1354));
  
@@ -85291,7 +36352,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1354));
   melt_assertmsg("iniobj checkdiscr dobj_1355", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1355.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1355.obj_num = 1;
-  cdat->dobj_1355.obj_hash = 263757665;
+  cdat->dobj_1355.obj_hash = 317413412;
   cdat->dobj_1355.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1355));
  
@@ -85314,7 +36375,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1356__CBIND));
   melt_assertmsg("iniobj checkdiscr dobj_1358", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1358.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1358.obj_num = 2;
-  cdat->dobj_1358.obj_hash = 451025016;
+  cdat->dobj_1358.obj_hash = 173324907;
   cdat->dobj_1358.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1358));
  
@@ -85337,7 +36398,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_1359__ENV));
   melt_assertmsg("iniobj checkdiscr dobj_1361", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1361.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1361.obj_num = 3;
-  cdat->dobj_1361.obj_hash = 339258910;
+  cdat->dobj_1361.obj_hash = 968129393;
   cdat->dobj_1361.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1361));
  
@@ -85347,7 +36408,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1361));
   melt_assertmsg("iniobj checkdiscr dobj_1362", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1362.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1362.obj_num = 4;
-  cdat->dobj_1362.obj_hash = 425603493;
+  cdat->dobj_1362.obj_hash = 215561816;
   cdat->dobj_1362.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1362));
  
@@ -85357,7 +36418,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1362));
   melt_assertmsg("iniobj checkdiscr dobj_1363", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1363.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
   cdat->dobj_1363.obj_num = 5;
-  cdat->dobj_1363.obj_hash = 658232738;
+  cdat->dobj_1363.obj_hash = 1021940357;
   cdat->dobj_1363.obj_len = 2;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1363));
  
@@ -85370,7 +36431,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1363));
  if (!/*_.VALDATA___V1533*/ curfptr[1532]) /*_.VALDATA___V1533*/ curfptr[1532] = (void*)&cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE;
   melt_assertmsg("iniobj checkdiscr dobj_1365__NORMAL_LETREC_CONSTRUCTIVE", NULL != (void*)/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
   cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V16*/ curfptr[15]);
-  cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 341322568;
+  cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_hash = 797037415;
   cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_1365__NORMAL_LETREC_CONSTRUCTIVE));
  
@@ -118940,4 +70001,4 @@ const int meltclasslen__CLASS_NREP_UNSAFE_PUT_FIELDS = 3;
 const int meltclasslen__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3;
 
 
-/**** end of warmelt-normal.3.c ****/
+/**** end of warmelt-normal.0.c ****/
diff --git a/gcc/melt/warmelt-normatch.0.c b/gcc/melt/warmelt-normatch.0.c
index 5ad69b1389f..3f7a01b3ea9 100644
--- a/gcc/melt/warmelt-normatch.0.c
+++ b/gcc/melt/warmelt-normatch.0.c
@@ -1,14 +1,14 @@
-/* GCC MELT GENERATED FILE warmelt-normatch.3.c - DO NOT EDIT */
+/* GCC MELT GENERATED FILE warmelt-normatch.0.c - DO NOT EDIT */
 
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.5.0 20091124 (experimental) [melt-branch revision 154669]";
+ "4.5.0 20091130 (experimental) [melt-branch revision 154718]";
 #endif
 
 #include "run-melt.h"
 
-/**** warmelt-normatch.3.c declarations ****/
+/**** warmelt-normatch.0.c declarations ****/
 #define MELT_HAS_INITIAL_ENVIRONMENT 1
 
 /**!!** ***
@@ -233,7 +233,7 @@ void mark_module_melt(void*);
 void* initial_frame_melt;
 
 
-/**** warmelt-normatch.3.c implementations ****/
+/**** warmelt-normatch.0.c implementations ****/
 
 
 
@@ -24666,7 +24666,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_3__CLASS_ROOT));
   melt_assertmsg("iniobj checkdiscr dobj_5__CLASS_PATTERNCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_5__CLASS_PATTERNCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_5__CLASS_PATTERNCONTEXT.obj_num = OBMAG_OBJECT;
-  cdat->dobj_5__CLASS_PATTERNCONTEXT.obj_hash = 862038676;
+  cdat->dobj_5__CLASS_PATTERNCONTEXT.obj_hash = 1039584989;
   cdat->dobj_5__CLASS_PATTERNCONTEXT.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_5__CLASS_PATTERNCONTEXT));
  
@@ -24702,7 +24702,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_9__PCTN_NORMCTXT));
   melt_assertmsg("iniobj checkdiscr dobj_11__PCTN_NORMCTXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_11__PCTN_NORMCTXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_11__PCTN_NORMCTXT.obj_num = 0;
-  cdat->dobj_11__PCTN_NORMCTXT.obj_hash = 190835377;
+  cdat->dobj_11__PCTN_NORMCTXT.obj_hash = 1065790423;
   cdat->dobj_11__PCTN_NORMCTXT.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_11__PCTN_NORMCTXT));
  
@@ -24730,7 +24730,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_13__PCTN_SRC));
   melt_assertmsg("iniobj checkdiscr dobj_15__PCTN_SRC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_15__PCTN_SRC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_15__PCTN_SRC.obj_num = 1;
-  cdat->dobj_15__PCTN_SRC.obj_hash = 284061688;
+  cdat->dobj_15__PCTN_SRC.obj_hash = 74391385;
   cdat->dobj_15__PCTN_SRC.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_15__PCTN_SRC));
  
@@ -24758,7 +24758,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_17__PCTN_ENV));
   melt_assertmsg("iniobj checkdiscr dobj_19__PCTN_ENV", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_19__PCTN_ENV.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_19__PCTN_ENV.obj_num = 2;
-  cdat->dobj_19__PCTN_ENV.obj_hash = 138633604;
+  cdat->dobj_19__PCTN_ENV.obj_hash = 24452994;
   cdat->dobj_19__PCTN_ENV.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_19__PCTN_ENV));
  
@@ -24786,7 +24786,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_21__PCTN_MAPATVAR));
   melt_assertmsg("iniobj checkdiscr dobj_23__PCTN_MAPATVAR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_23__PCTN_MAPATVAR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_23__PCTN_MAPATVAR.obj_num = 3;
-  cdat->dobj_23__PCTN_MAPATVAR.obj_hash = 923728507;
+  cdat->dobj_23__PCTN_MAPATVAR.obj_hash = 452054645;
   cdat->dobj_23__PCTN_MAPATVAR.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_23__PCTN_MAPATVAR));
  
@@ -24814,7 +24814,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_25__PCTN_MAPATCST));
   melt_assertmsg("iniobj checkdiscr dobj_27__PCTN_MAPATCST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_27__PCTN_MAPATCST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_27__PCTN_MAPATCST.obj_num = 4;
-  cdat->dobj_27__PCTN_MAPATCST.obj_hash = 747489474;
+  cdat->dobj_27__PCTN_MAPATCST.obj_hash = 745437463;
   cdat->dobj_27__PCTN_MAPATCST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_27__PCTN_MAPATCST));
  
@@ -24842,7 +24842,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_29__PCTN_BINDLIST));
   melt_assertmsg("iniobj checkdiscr dobj_31__PCTN_BINDLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_31__PCTN_BINDLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_31__PCTN_BINDLIST.obj_num = 5;
-  cdat->dobj_31__PCTN_BINDLIST.obj_hash = 690849662;
+  cdat->dobj_31__PCTN_BINDLIST.obj_hash = 558444943;
   cdat->dobj_31__PCTN_BINDLIST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_31__PCTN_BINDLIST));
  
@@ -24870,7 +24870,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_33__PCTN_STUFFMAP));
   melt_assertmsg("iniobj checkdiscr dobj_35__PCTN_STUFFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_35__PCTN_STUFFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_35__PCTN_STUFFMAP.obj_num = 6;
-  cdat->dobj_35__PCTN_STUFFMAP.obj_hash = 22661284;
+  cdat->dobj_35__PCTN_STUFFMAP.obj_hash = 770128082;
   cdat->dobj_35__PCTN_STUFFMAP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_35__PCTN_STUFFMAP));
  
@@ -24898,7 +24898,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_37__PCTN_PVARLOCMAP));
   melt_assertmsg("iniobj checkdiscr dobj_39__PCTN_PVARLOCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_39__PCTN_PVARLOCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_39__PCTN_PVARLOCMAP.obj_num = 7;
-  cdat->dobj_39__PCTN_PVARLOCMAP.obj_hash = 690166910;
+  cdat->dobj_39__PCTN_PVARLOCMAP.obj_hash = 77063720;
   cdat->dobj_39__PCTN_PVARLOCMAP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_39__PCTN_PVARLOCMAP));
  
@@ -24926,7 +24926,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_41__PCTN_TESTS));
   melt_assertmsg("iniobj checkdiscr dobj_43__PCTN_TESTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_43__PCTN_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_43__PCTN_TESTS.obj_num = 8;
-  cdat->dobj_43__PCTN_TESTS.obj_hash = 123689631;
+  cdat->dobj_43__PCTN_TESTS.obj_hash = 666284068;
   cdat->dobj_43__PCTN_TESTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_43__PCTN_TESTS));
  
@@ -24966,7 +24966,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_47__CLASS_SELECTOR));
  if (!/*_.VALDATA___V111*/ curfptr[110]) /*_.VALDATA___V111*/ curfptr[110] = (void*)&cdat->dobj_49__SCAN_PATTERN;
   melt_assertmsg("iniobj checkdiscr dobj_49__SCAN_PATTERN", NULL != (void*)/*_.CLASS_SELECTOR__V8*/ curfptr[7]);
   cdat->dobj_49__SCAN_PATTERN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ curfptr[7]);
-  cdat->dobj_49__SCAN_PATTERN.obj_hash = 357984572;
+  cdat->dobj_49__SCAN_PATTERN.obj_hash = 33068164;
   cdat->dobj_49__SCAN_PATTERN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_49__SCAN_PATTERN));
  
@@ -25425,7 +25425,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_119__NORMAL_PATTERN));
  if (!/*_.VALDATA___V183*/ curfptr[182]) /*_.VALDATA___V183*/ curfptr[182] = (void*)&cdat->dobj_121__NORMAL_PATTERN;
   melt_assertmsg("iniobj checkdiscr dobj_121__NORMAL_PATTERN", NULL != (void*)/*_.CLASS_SELECTOR__V8*/ curfptr[7]);
   cdat->dobj_121__NORMAL_PATTERN.obj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V8*/ curfptr[7]);
-  cdat->dobj_121__NORMAL_PATTERN.obj_hash = 51714030;
+  cdat->dobj_121__NORMAL_PATTERN.obj_hash = 428979242;
   cdat->dobj_121__NORMAL_PATTERN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_121__NORMAL_PATTERN));
  
@@ -25466,7 +25466,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_125__CLASS_NREP_EXPRESSIO
   melt_assertmsg("iniobj checkdiscr dobj_127__CLASS_NORMTESTER_ANY", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_127__CLASS_NORMTESTER_ANY.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_127__CLASS_NORMTESTER_ANY.obj_num = OBMAG_OBJECT;
-  cdat->dobj_127__CLASS_NORMTESTER_ANY.obj_hash = 336908533;
+  cdat->dobj_127__CLASS_NORMTESTER_ANY.obj_hash = 36382919;
   cdat->dobj_127__CLASS_NORMTESTER_ANY.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_127__CLASS_NORMTESTER_ANY));
  
@@ -25502,7 +25502,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_131__NTEST_MATCHED));
   melt_assertmsg("iniobj checkdiscr dobj_133__NTEST_MATCHED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_133__NTEST_MATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_133__NTEST_MATCHED.obj_num = 1;
-  cdat->dobj_133__NTEST_MATCHED.obj_hash = 1067575873;
+  cdat->dobj_133__NTEST_MATCHED.obj_hash = 46800431;
   cdat->dobj_133__NTEST_MATCHED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_133__NTEST_MATCHED));
  
@@ -25530,7 +25530,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_135__NTEST_THEN));
   melt_assertmsg("iniobj checkdiscr dobj_137__NTEST_THEN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_137__NTEST_THEN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_137__NTEST_THEN.obj_num = 2;
-  cdat->dobj_137__NTEST_THEN.obj_hash = 921980388;
+  cdat->dobj_137__NTEST_THEN.obj_hash = 193519949;
   cdat->dobj_137__NTEST_THEN.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_137__NTEST_THEN));
  
@@ -25558,7 +25558,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_139__NTEST_ELSE));
   melt_assertmsg("iniobj checkdiscr dobj_141__NTEST_ELSE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_141__NTEST_ELSE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_141__NTEST_ELSE.obj_num = 3;
-  cdat->dobj_141__NTEST_ELSE.obj_hash = 525749202;
+  cdat->dobj_141__NTEST_ELSE.obj_hash = 328786199;
   cdat->dobj_141__NTEST_ELSE.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_141__NTEST_ELSE));
  
@@ -25586,7 +25586,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_143__NTEST_NORMATCH));
   melt_assertmsg("iniobj checkdiscr dobj_145__NTEST_NORMATCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_145__NTEST_NORMATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_145__NTEST_NORMATCH.obj_num = 4;
-  cdat->dobj_145__NTEST_NORMATCH.obj_hash = 59102918;
+  cdat->dobj_145__NTEST_NORMATCH.obj_hash = 616154951;
   cdat->dobj_145__NTEST_NORMATCH.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_145__NTEST_NORMATCH));
  
@@ -25614,7 +25614,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_147__NTEST_LOCCLIST));
   melt_assertmsg("iniobj checkdiscr dobj_149__NTEST_LOCCLIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_149__NTEST_LOCCLIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_149__NTEST_LOCCLIST.obj_num = 5;
-  cdat->dobj_149__NTEST_LOCCLIST.obj_hash = 24128221;
+  cdat->dobj_149__NTEST_LOCCLIST.obj_hash = 632479482;
   cdat->dobj_149__NTEST_LOCCLIST.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_149__NTEST_LOCCLIST));
  
@@ -25642,7 +25642,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_151__NTEST_COMEFROM));
   melt_assertmsg("iniobj checkdiscr dobj_153__NTEST_COMEFROM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_153__NTEST_COMEFROM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_153__NTEST_COMEFROM.obj_num = 6;
-  cdat->dobj_153__NTEST_COMEFROM.obj_hash = 327230000;
+  cdat->dobj_153__NTEST_COMEFROM.obj_hash = 385231177;
   cdat->dobj_153__NTEST_COMEFROM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_153__NTEST_COMEFROM));
  
@@ -25670,7 +25670,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_155__CLASS_NORMTESTER_SUC
   melt_assertmsg("iniobj checkdiscr dobj_157__CLASS_NORMTESTER_SUCCESS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_157__CLASS_NORMTESTER_SUCCESS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_157__CLASS_NORMTESTER_SUCCESS.obj_num = OBMAG_OBJECT;
-  cdat->dobj_157__CLASS_NORMTESTER_SUCCESS.obj_hash = 563100235;
+  cdat->dobj_157__CLASS_NORMTESTER_SUCCESS.obj_hash = 121423187;
   cdat->dobj_157__CLASS_NORMTESTER_SUCCESS.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_157__CLASS_NORMTESTER_SUCCESS));
  
@@ -25706,7 +25706,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_161__NTSUCCESS_DO));
   melt_assertmsg("iniobj checkdiscr dobj_163__NTSUCCESS_DO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_163__NTSUCCESS_DO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_163__NTSUCCESS_DO.obj_num = 7;
-  cdat->dobj_163__NTSUCCESS_DO.obj_hash = 113557323;
+  cdat->dobj_163__NTSUCCESS_DO.obj_hash = 549982303;
   cdat->dobj_163__NTSUCCESS_DO.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_163__NTSUCCESS_DO));
  
@@ -25734,7 +25734,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_165__CLASS_NORMTESTER_ANY
   melt_assertmsg("iniobj checkdiscr dobj_167__CLASS_NORMTESTER_ANYTESTER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_167__CLASS_NORMTESTER_ANYTESTER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_167__CLASS_NORMTESTER_ANYTESTER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_167__CLASS_NORMTESTER_ANYTESTER.obj_hash = 725463872;
+  cdat->dobj_167__CLASS_NORMTESTER_ANYTESTER.obj_hash = 703329289;
   cdat->dobj_167__CLASS_NORMTESTER_ANYTESTER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_167__CLASS_NORMTESTER_ANYTESTER));
  
@@ -25770,7 +25770,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_171__CLASS_NORMTESTER_DIS
   melt_assertmsg("iniobj checkdiscr dobj_173__CLASS_NORMTESTER_DISJUNCTION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_173__CLASS_NORMTESTER_DISJUNCTION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_173__CLASS_NORMTESTER_DISJUNCTION.obj_num = OBMAG_OBJECT;
-  cdat->dobj_173__CLASS_NORMTESTER_DISJUNCTION.obj_hash = 753141783;
+  cdat->dobj_173__CLASS_NORMTESTER_DISJUNCTION.obj_hash = 856759439;
   cdat->dobj_173__CLASS_NORMTESTER_DISJUNCTION.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_173__CLASS_NORMTESTER_DISJUNCTION));
  
@@ -25806,7 +25806,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__NTDISJUNCTS));
   melt_assertmsg("iniobj checkdiscr dobj_179__NTDISJUNCTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_179__NTDISJUNCTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_179__NTDISJUNCTS.obj_num = 7;
-  cdat->dobj_179__NTDISJUNCTS.obj_hash = 103900284;
+  cdat->dobj_179__NTDISJUNCTS.obj_hash = 72053888;
   cdat->dobj_179__NTDISJUNCTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_179__NTDISJUNCTS));
  
@@ -25834,7 +25834,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_181__CLASS_NORMTESTER_SAM
   melt_assertmsg("iniobj checkdiscr dobj_183__CLASS_NORMTESTER_SAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_183__CLASS_NORMTESTER_SAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_183__CLASS_NORMTESTER_SAME.obj_num = OBMAG_OBJECT;
-  cdat->dobj_183__CLASS_NORMTESTER_SAME.obj_hash = 338143109;
+  cdat->dobj_183__CLASS_NORMTESTER_SAME.obj_hash = 645572606;
   cdat->dobj_183__CLASS_NORMTESTER_SAME.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_183__CLASS_NORMTESTER_SAME));
  
@@ -25870,7 +25870,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_187__NTSAME_IDENTICAL));
   melt_assertmsg("iniobj checkdiscr dobj_189__NTSAME_IDENTICAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_189__NTSAME_IDENTICAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_189__NTSAME_IDENTICAL.obj_num = 7;
-  cdat->dobj_189__NTSAME_IDENTICAL.obj_hash = 253605728;
+  cdat->dobj_189__NTSAME_IDENTICAL.obj_hash = 750626869;
   cdat->dobj_189__NTSAME_IDENTICAL.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_189__NTSAME_IDENTICAL));
  
@@ -25898,7 +25898,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_191__CLASS_NORMTESTER_MAT
   melt_assertmsg("iniobj checkdiscr dobj_193__CLASS_NORMTESTER_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_193__CLASS_NORMTESTER_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_193__CLASS_NORMTESTER_MATCHER.obj_num = OBMAG_OBJECT;
-  cdat->dobj_193__CLASS_NORMTESTER_MATCHER.obj_hash = 416269488;
+  cdat->dobj_193__CLASS_NORMTESTER_MATCHER.obj_hash = 119505315;
   cdat->dobj_193__CLASS_NORMTESTER_MATCHER.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_193__CLASS_NORMTESTER_MATCHER));
  
@@ -25934,7 +25934,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_197__NTMATCH_MATCHER));
   melt_assertmsg("iniobj checkdiscr dobj_199__NTMATCH_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_199__NTMATCH_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_199__NTMATCH_MATCHER.obj_num = 7;
-  cdat->dobj_199__NTMATCH_MATCHER.obj_hash = 1059661392;
+  cdat->dobj_199__NTMATCH_MATCHER.obj_hash = 747579695;
   cdat->dobj_199__NTMATCH_MATCHER.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_199__NTMATCH_MATCHER));
  
@@ -25962,7 +25962,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_201__NTMATCH_MATNDATA));
   melt_assertmsg("iniobj checkdiscr dobj_203__NTMATCH_MATNDATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_203__NTMATCH_MATNDATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_203__NTMATCH_MATNDATA.obj_num = 8;
-  cdat->dobj_203__NTMATCH_MATNDATA.obj_hash = 249774508;
+  cdat->dobj_203__NTMATCH_MATNDATA.obj_hash = 598157912;
   cdat->dobj_203__NTMATCH_MATNDATA.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_203__NTMATCH_MATNDATA));
  
@@ -25990,7 +25990,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_205__NTMATCH_INARGS));
   melt_assertmsg("iniobj checkdiscr dobj_207__NTMATCH_INARGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_207__NTMATCH_INARGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_207__NTMATCH_INARGS.obj_num = 9;
-  cdat->dobj_207__NTMATCH_INARGS.obj_hash = 220708928;
+  cdat->dobj_207__NTMATCH_INARGS.obj_hash = 250143128;
   cdat->dobj_207__NTMATCH_INARGS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_207__NTMATCH_INARGS));
  
@@ -26018,7 +26018,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_209__NTMATCH_OUTLOCS));
   melt_assertmsg("iniobj checkdiscr dobj_211__NTMATCH_OUTLOCS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_211__NTMATCH_OUTLOCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_211__NTMATCH_OUTLOCS.obj_num = 10;
-  cdat->dobj_211__NTMATCH_OUTLOCS.obj_hash = 681550843;
+  cdat->dobj_211__NTMATCH_OUTLOCS.obj_hash = 854834143;
   cdat->dobj_211__NTMATCH_OUTLOCS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_211__NTMATCH_OUTLOCS));
  
@@ -26046,7 +26046,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_213__CLASS_NORMTESTER_INS
   melt_assertmsg("iniobj checkdiscr dobj_215__CLASS_NORMTESTER_INSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_215__CLASS_NORMTESTER_INSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_215__CLASS_NORMTESTER_INSTANCE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_215__CLASS_NORMTESTER_INSTANCE.obj_hash = 588607314;
+  cdat->dobj_215__CLASS_NORMTESTER_INSTANCE.obj_hash = 926384427;
   cdat->dobj_215__CLASS_NORMTESTER_INSTANCE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_215__CLASS_NORMTESTER_INSTANCE));
  
@@ -26082,7 +26082,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_219__NTINST_CLASS));
   melt_assertmsg("iniobj checkdiscr dobj_221__NTINST_CLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_221__NTINST_CLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_221__NTINST_CLASS.obj_num = 7;
-  cdat->dobj_221__NTINST_CLASS.obj_hash = 685185473;
+  cdat->dobj_221__NTINST_CLASS.obj_hash = 521333494;
   cdat->dobj_221__NTINST_CLASS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_221__NTINST_CLASS));
  
@@ -26110,7 +26110,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_223__NTINST_FIELDLOCS));
   melt_assertmsg("iniobj checkdiscr dobj_225__NTINST_FIELDLOCS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_225__NTINST_FIELDLOCS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_225__NTINST_FIELDLOCS.obj_num = 8;
-  cdat->dobj_225__NTINST_FIELDLOCS.obj_hash = 458486248;
+  cdat->dobj_225__NTINST_FIELDLOCS.obj_hash = 35182553;
   cdat->dobj_225__NTINST_FIELDLOCS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_225__NTINST_FIELDLOCS));
  
@@ -26151,7 +26151,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_229__CLASS_NREP_TYPED_EXP
   melt_assertmsg("iniobj checkdiscr dobj_231__CLASS_NREP_MATCH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_231__CLASS_NREP_MATCH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_231__CLASS_NREP_MATCH.obj_num = OBMAG_OBJECT;
-  cdat->dobj_231__CLASS_NREP_MATCH.obj_hash = 732536699;
+  cdat->dobj_231__CLASS_NREP_MATCH.obj_hash = 467409210;
   cdat->dobj_231__CLASS_NREP_MATCH.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_231__CLASS_NREP_MATCH));
  
@@ -26187,7 +26187,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_235__NMATCH_TESTS));
   melt_assertmsg("iniobj checkdiscr dobj_237__NMATCH_TESTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_237__NMATCH_TESTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_237__NMATCH_TESTS.obj_num = 2;
-  cdat->dobj_237__NMATCH_TESTS.obj_hash = 970707325;
+  cdat->dobj_237__NMATCH_TESTS.obj_hash = 86064137;
   cdat->dobj_237__NMATCH_TESTS.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_237__NMATCH_TESTS));
  
@@ -26215,7 +26215,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_239__NMATCH_STUFFMAP));
   melt_assertmsg("iniobj checkdiscr dobj_241__NMATCH_STUFFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_241__NMATCH_STUFFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_241__NMATCH_STUFFMAP.obj_num = 3;
-  cdat->dobj_241__NMATCH_STUFFMAP.obj_hash = 410749350;
+  cdat->dobj_241__NMATCH_STUFFMAP.obj_hash = 946712542;
   cdat->dobj_241__NMATCH_STUFFMAP.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_241__NMATCH_STUFFMAP));
  
@@ -26243,7 +26243,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_243__NMATCH_MATCHED));
   melt_assertmsg("iniobj checkdiscr dobj_245__NMATCH_MATCHED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_245__NMATCH_MATCHED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_245__NMATCH_MATCHED.obj_num = 4;
-  cdat->dobj_245__NMATCH_MATCHED.obj_hash = 453908038;
+  cdat->dobj_245__NMATCH_MATCHED.obj_hash = 95284746;
   cdat->dobj_245__NMATCH_MATCHED.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_245__NMATCH_MATCHED));
  
@@ -33857,4 +33857,4 @@ const int meltclasslen__CLASS_NREP_MATCH = 5;
 const int meltclasslen__CLASS_PATTERNCONTEXT = 9;
 
 
-/**** end of warmelt-normatch.3.c ****/
+/**** end of warmelt-normatch.0.c ****/
diff --git a/gcc/melt/warmelt-outobj.0+1.c b/gcc/melt/warmelt-outobj.0+1.c
new file mode 100644
index 00000000000..bd6e5eea833
--- /dev/null
+++ b/gcc/melt/warmelt-outobj.0+1.c
@@ -0,0 +1,18877 @@
+/* GCC MELT GENERATED FILE warmelt-outobj.0+1.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #1 */
+#include "run-melt.h"
+
+/**** warmelt-outobj.0+1.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_outobj_OUTDECLINIT_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_outobj_OUTPUCOD_OBJINIELEM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_outobj_OUTCINITFILL_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_outobj_OUTCINITPREDEF_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_outobj_OUTPUT_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_outobj_OUTPUCOD_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_outobj_OUTPUCOD_NIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_outobj_OUTDECLINIT_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_outobj_OUTCINITFILL_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_outobj_OUTCINITPREDEF_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_outobj_OUTDECLINIT_OBJINITMULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_outobj_OUTCINITFILL_OBJINITMULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_outobj_OUTDECLINIT_OBJINITCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_outobj_OUTCINITFILL_OBJINITCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_outobj_OUTDECLINIT_OBJINITROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_outobj_OUTCINITFILL_OBJINITROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_outobj_OUTDECLINIT_OBJINITSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_outobj_OUTCINITFILL_OBJINITSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_outobj_OUTDECLINIT_OBJINITBOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_outobj_OUTCINITFILL_OBJINITBOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_outobj_OUTPUCOD_ANYDISCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_outobj_OUTPUCOD_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_outobj_OUTPUCOD_CATCHALL_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_outobj_OUTPUT_RAW_LOCATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_outobj_OUTPUT_LOCATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_outobj_OUTPUCOD_MARKER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_outobj_OUTPUCOD_PROCROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_outobj_OUTPUCOD_GETARG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_outobj_OUTPUCOD_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_outobj_INSTALL_MELT_MODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_outobj_RUNFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_outobj_MAKEDOC_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-outobj.0+1.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_37_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_37_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ getarg");
+ /*_.CURPDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1025:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:1027:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1027:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]);
+  /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_INITPREDEF*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:1025:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ clear");
+ /*clear*/ /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_37_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_38_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_38_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ getarg");
+ /*_.CURFIL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1034:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1036:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1037:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1037:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]);
+  /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURFIL__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_INITFILL*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:1034:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ clear");
+ /*clear*/ /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_38_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 27
+  void* varptr[27];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<27; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 27;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_INITIALROUTINE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ getarg");
+ /*_.PINI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1052:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1053:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1053:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1053:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1053:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1053:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1053:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1053:/ locexp");
+      melt_assert_failed(( "check pini"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1053)?(1053):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1053:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1053:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1053:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1054:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1055:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 9, "OIROUT_DATA");/*_.IDATUP__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1056:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 11, "OIROUT_FILL");/*_.IRFILL__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1057:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 10, "OIROUT_PROLOG");/*_.IPROLOG__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1058:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 7, "OBROUT_RETVAL");/*_.ORETVAL__V10*/ curfptr[9] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1060:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1061:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1062:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* start_module_melt(void*);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1063:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1064:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void mark_module_melt(void*);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1065:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1066:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* initial_frame_melt;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1067:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1068:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1069:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1070:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "typedef "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1071:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1071:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1072:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " initial_frame_st;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1073:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1074:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1075:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1076:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "static void initialize_module_cdata(initial_frame_st *iniframp__, char predefinited[])"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1077:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1078:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1079:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1080:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define curfram__  (*iniframp__)"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1081:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1082:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1082:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_STRUCT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.IDATUP__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1083:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " *cdat = NULL;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1084:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1086:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1086:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_FILL*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.IDATUP__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1087:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1088:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef curfram__"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1089:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1090:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end initialize_module_cdata*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1091:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1092:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1093:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1094:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void* start_module_melt(void* modargp_) {"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1095:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1100:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1101:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "char predefinited[MELTGLOB__LASTGLOB+8];"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1102:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1105:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1105:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V15*/ curfptr[14] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (0));
+   ;
+   /*_.LAMBDA___V14*/ curfptr[13] = /*_.LAMBDA___V15*/ curfptr[14];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1104:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1104:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PINI__V2*/ curfptr[1];
+   MELT_LOCATION("warmelt-outobj.melt:1104:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1112:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine prologue**/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1113:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1114:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_melt = (void*) &curfram__;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1115:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1118:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1118:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1118:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1118:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1116:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1116:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
+   /*_.LIST_EVERY__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.IPROLOG__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1125:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine cdata initializer**/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1126:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1128:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1129:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(predefinited, 0, sizeof(predefinited));"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1130:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1131:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initialize_module_cdata(&curfram__, predefinited);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1132:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1135:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine body**/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1136:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1137:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1137:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.IBODY__V21*/ curfptr[20] = slot; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1142:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1142:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (2));
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1142:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1142:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+    ;
+    /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1140:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1140:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
+    /*_.LIST_EVERY__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.IBODY__V21*/ curfptr[20]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LET___V20*/ curfptr[19] = /*_.LIST_EVERY__V24*/ curfptr[23];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1137:/ clear");
+   /*clear*/ /*_.IBODY__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1137:/ clear");
+   /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1137:/ clear");
+   /*clear*/ /*_.LIST_EVERY__V24*/ curfptr[23] = 0 ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1150:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1151:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1152:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1153:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1154:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout:  melt_topframe = (struct callframe_melt_st *) curfram__.prev;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1155:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1156:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_melt = (void*)0;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1157:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1158:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1159:/ cond");
+  /*cond*/ if (/*_.ORETVAL__V10*/ curfptr[9]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1159:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1159:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1160:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1160:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1160:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1160:/ ojbmsend.arg");
+     argtab[2].bp_long = 1;
+     /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFELSE___V25*/ curfptr[20] = /*_.OUTPUT_C_CODE__V26*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1159:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1159:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:1159:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1161:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL"));}
+     ;
+     /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1162:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1163:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1164:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1165:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1166:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1167:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1168:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1169:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1170:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1171:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end start_module_melt */"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1172:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1173:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1174:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void mark_module_melt(void*fp)"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1175:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1176:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1177:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1178:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1179:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1180:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_st* framptr_= (initial_frame_st*)fp;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1181:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1182:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1182:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUCOD_MARKER*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1183:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1184:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end mark_module_melt */"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1185:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1186:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.IDATUP__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.IRFILL__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.IPROLOG__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.ORETVAL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.LAMBDA___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1054:/ clear");
+  /*clear*/ /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_INITIALROUTINE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_40_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_40_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1105:/ getarg");
+ /*_.ROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1105:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DSBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1105:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1106:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1107:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "initial_frame_st "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_40_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_41_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_41_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1118:/ getarg");
+ /*_.CURPROL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1118:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:1120:/ cond");
+ /*cond*/ if (/*_.CURPROL__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:1120:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:1120:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURPROL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
+   /*_#NOT__L3*/ curfnum[2] = 
+    (!(/*_#IS_A__L2*/ curfnum[1]));;
+   /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1120:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1120:/ clear");
+   /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:1120:/ cond.else");
+ 
+  /*_#IF___L1*/ curfnum[0] = 0;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1120:/ cond");
+ /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:1120:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:1120:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1122:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1122:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+    MELT_LOCATION("warmelt-outobj.melt:1122:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+    MELT_LOCATION("warmelt-outobj.melt:1122:/ ojbmsend.arg");
+    argtab[2].bp_long = 1;
+    /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURPROL__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1123:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0);}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1121:/ block");
+   /*block*/{}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1120:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1118:/ clear");
+ /*clear*/ /*_#IF___L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_41_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_42_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_42_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1142:/ getarg");
+ /*_.CURBODY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1142:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:1144:/ cond");
+ /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:1144:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:1144:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
+   /*_#NOT__L3*/ curfnum[2] = 
+    (!(/*_#IS_A__L2*/ curfnum[1]));;
+   /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1144:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1144:/ clear");
+   /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:1144:/ cond.else");
+ 
+  /*_#IF___L1*/ curfnum[0] = 0;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1144:/ cond");
+ /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:1144:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:1144:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1146:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1146:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+    MELT_LOCATION("warmelt-outobj.melt:1146:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+    MELT_LOCATION("warmelt-outobj.melt:1146:/ ojbmsend.arg");
+    argtab[2].bp_long = 1;
+    /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1147:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0);}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1145:/ block");
+   /*block*/{}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1144:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1142:/ clear");
+ /*clear*/ /*_#IF___L1*/ curfnum[0] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_42_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_43_warmelt_outobj_OUTPUCOD_GETARG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_43_warmelt_outobj_OUTPUCOD_GETARG_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 26
+  void* varptr[26];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<26; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 26;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_GETARG", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ getarg");
+ /*_.GARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1192:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1193:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1193:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETARG*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1193:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1193:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1193:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1193:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1193:/ locexp");
+      melt_assert_failed(( "check garg"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1193)?(1193):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1193:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1193:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1193:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1195:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 1, "OBARG_OBLOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1196:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.NLOC__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1197:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 2, "OBARG_BIND");/*_.OBIND__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#RKBIND__L3*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.OBIND__V9*/ curfptr[8])));;
+  MELT_LOCATION("warmelt-outobj.melt:1199:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBIND__V9*/ curfptr[8]), 1, "FBIND_TYPE");/*_.CTYBIND__V10*/ curfptr[9] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1201:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1201:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OBIND__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-outobj.melt:1201:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1201:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1201:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1201:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1201:/ locexp");
+       melt_assert_failed(( "check obind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1201)?(1201):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1201:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1201:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1201:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1202:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1202:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1202:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1202:/ apply.arg");
+   argtab[2].bp_cstring =  "getarg";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1203:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1203:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:1203:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1203:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1203:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1203:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1203:/ locexp");
+       melt_assert_failed(( "check oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1203)?(1203):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1203:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1203:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1203:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1204:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1204:/ block");
+   /*block*/{
+    /*_#IS_A__L6*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:1204:/ cond");
+    /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1204:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1204:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1204:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1204:/ locexp");
+       melt_assert_failed(( "check ctybind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1204)?(1204):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1204:/ clear");
+    /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1204:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1204:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#I__L7*/ curfnum[3] = 
+   ((/*_#RKBIND__L3*/ curfnum[1]) == (0));;
+  MELT_LOCATION("warmelt-outobj.melt:1205:/ cond");
+  /*cond*/ if (/*_#I__L7*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1205:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1205:/ block");
+   /*block*/{
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:1207:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:1207:/ block");
+     /*block*/{
+      /*_#__L8*/ curfnum[7] = 
+       ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));;
+      MELT_LOCATION("warmelt-outobj.melt:1207:/ cond");
+      /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:1207:/ cond.then");
+      /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:1207:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:1207:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:1207:/ locexp");
+         melt_assert_failed(( "check ctybind first"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1207)?(1207):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1207:/ clear");
+      /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1207:/ clear");
+      /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:1207:/ cppif.else");
+    /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-outobj.melt:1208:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1208:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1208:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1208:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1209:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (melt_ptr_t) firstargp_;"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1210:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1206:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1205:/ clear");
+    /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1205:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1205:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:1205:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1212:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1214:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 4, "CTYPE_PARCHAR");/*_.PARC__V21*/ curfptr[16] = slot; };
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1215:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 6, "CTYPE_ARGFIELD");/*_.ARGF__V22*/ curfptr[18] = slot; };
+     ;
+     /*_#IS_STRING__L9*/ curfnum[7] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.PARC__V21*/ curfptr[16])) == OBMAG_STRING);;
+     /*_#NOT__L10*/ curfnum[9] = 
+      (!(/*_#IS_STRING__L9*/ curfnum[7]));;
+     MELT_LOCATION("warmelt-outobj.melt:1217:/ cond");
+     /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:1217:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:1217:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-outobj.melt:1219:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1218:/ locexp");
+       melt_error_str((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), ( "impossible argument ctype"), (melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22]));}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:1217:/ clear");
+       /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;}
+      ;
+     } /*noelse*/
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1220:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xargdescr_["));}
+     ;
+     /*_#I__L11*/ curfnum[10] = 
+      ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1221:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1222:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != "));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1223:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.PARC__V21*/ curfptr[16])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1224:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto lab_endgetargs;"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1225:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+     ;
+     /*_#__L12*/ curfnum[11] = 
+      ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));;
+     MELT_LOCATION("warmelt-outobj.melt:1226:/ cond");
+     /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:1226:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:1226:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-outobj.melt:1228:/ msend");
+       /*msend*/{
+        union meltparam_un argtab[3];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:1228:/ ojbmsend.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-outobj.melt:1228:/ ojbmsend.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+        MELT_LOCATION("warmelt-outobj.melt:1228:/ ojbmsend.arg");
+        argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+        /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1229:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (xargtab_["));}
+       ;
+       /*_#I__L13*/ curfnum[12] = 
+        ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1230:/ locexp");
+       meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1231:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr) ? (*(xargtab_["));}
+       ;
+       /*_#I__L14*/ curfnum[13] = 
+        ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1232:/ locexp");
+       meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[13]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1233:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr)) : NULL;"));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1234:/ locexp");
+       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1235:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "gcc_assert(melt_discr((melt_ptr_t)("));}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:1236:/ msend");
+       /*msend*/{
+        union meltparam_un argtab[3];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:1236:/ ojbmsend.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-outobj.melt:1236:/ ojbmsend.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+        MELT_LOCATION("warmelt-outobj.melt:1236:/ ojbmsend.arg");
+        argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+        /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1237:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) != NULL);"));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1238:/ locexp");
+       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:1227:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:1226:/ clear");
+       /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:1226:/ clear");
+       /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:1226:/ clear");
+       /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:1226:/ clear");
+       /*clear*/ /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:1226:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:1226:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-outobj.melt:1241:/ msend");
+       /*msend*/{
+        union meltparam_un argtab[3];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:1241:/ ojbmsend.arg");
+        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+        MELT_LOCATION("warmelt-outobj.melt:1241:/ ojbmsend.arg");
+        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+        MELT_LOCATION("warmelt-outobj.melt:1241:/ ojbmsend.arg");
+        argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+        /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1242:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = xargtab_["));}
+       ;
+       /*_#I__L15*/ curfnum[12] = 
+        ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1243:/ locexp");
+       meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[12]));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1244:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1245:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ARGF__V22*/ curfptr[18])));}
+       ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1246:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:1240:/ block");
+       /*block*/{}
+       ;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:1226:/ clear");
+       /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:1226:/ clear");
+       /*clear*/ /*_#I__L15*/ curfnum[12] = 0 ;}
+      ;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:1249:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
+     /*clear*/ /*_.PARC__V21*/ curfptr[16] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
+     /*clear*/ /*_.ARGF__V22*/ curfptr[18] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
+     /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
+     /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
+     /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
+     /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.NLOC__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.OBIND__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_#RKBIND__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.CTYBIND__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1195:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[3] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_GETARG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_43_warmelt_outobj_OUTPUCOD_GETARG*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJLOCV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ getarg");
+ /*_.LOCV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1258:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1259:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1259:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1259:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1259:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1259:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1259:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1259:/ locexp");
+      melt_assert_failed(( "check locv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1259)?(1259):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1259:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1259:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1259:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1261:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1262:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.LTYP__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1263:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 1, "OBL_OFF");/*_.LOFF__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1264:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.LCNAM__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#__L3*/ curfnum[1] = 
+   ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:1267:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1267:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1267:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1268:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_."));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1269:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.LCNAM__V9*/ curfptr[8])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1270:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfptr["));}
+    ;
+    /*_#GET_INT__L4*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1271:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[3]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1272:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1267:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1267:/ clear");
+    /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1267:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:1267:/ block");
+   /*block*/{
+    /*_#__L5*/ curfnum[3] = 
+     ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_LONG*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1273:/ cond");
+    /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1273:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:1273:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1274:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_#"));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1275:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.LCNAM__V9*/ curfptr[8])));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1276:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfnum["));}
+      ;
+      /*_#GET_INT__L6*/ curfnum[5] = 
+       (melt_get_int((melt_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1277:/ locexp");
+      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5]));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1278:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1273:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1273:/ clear");
+      /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1273:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1273:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1280:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_?*/ curfram__."));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1281:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.LCNAM__V9*/ curfptr[8])));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1279:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1267:/ clear");
+    /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1261:/ clear");
+  /*clear*/ /*_.LTYP__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1261:/ clear");
+  /*clear*/ /*_.LOFF__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1261:/ clear");
+  /*clear*/ /*_.LCNAM__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1261:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJLOCV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCLOCCV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ getarg");
+ /*_.OCCV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1288:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1289:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1289:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLOCCV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1289:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1289:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1289:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1289:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1289:/ locexp");
+      melt_assert_failed(( "check occv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1289)?(1289):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1289:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1289:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1289:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1290:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1290:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 1, "OBC_OFF");/*_.OOFF__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1291:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 3, "OBC_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1292:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1292:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1293:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V10*/ curfptr[9] = slot; };
+    ;
+    /*_#__L3*/ curfnum[1] = 
+     ((/*_.OBV_TYPE__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-outobj.melt:1292:/ cond");
+    /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1292:/ cond.then");
+    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1292:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1292:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1292:/ locexp");
+       melt_assert_failed(( "check valueness of closed occurrence"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1292)?(1292):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1292:/ clear");
+    /*clear*/ /*_.OBV_TYPE__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1292:/ clear");
+    /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1292:/ clear");
+    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1292:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1294:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*~"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1295:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1296:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfclos->tabval["));}
+  ;
+  /*_#GET_INT__L4*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.OOFF__V7*/ curfptr[5])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1297:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1298:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1290:/ clear");
+  /*clear*/ /*_.OOFF__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1290:/ clear");
+  /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1290:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1290:/ clear");
+  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCLOCCV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCONSTV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ getarg");
+ /*_.OCNSTV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1305:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1306:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1306:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1306:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1306:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1306:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1306:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1306:/ locexp");
+      melt_assert_failed(( "check ocnstv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1306)?(1306):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1306:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1306:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1306:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1307:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1307:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1307:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1307:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objconstv ocnstv";
+    MELT_LOCATION("warmelt-outobj.melt:1307:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1307:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1307:/ apply.arg");
+    argtab[3].bp_long = 1307;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1307:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1307:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1307:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1308:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1308:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 1, "OBC_OFF");/*_.OOFF__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1309:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 3, "OBC_NAME");/*_.ONAM__V10*/ curfptr[9] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1310:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1310:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1311:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V12*/ curfptr[11] = slot; };
+    ;
+    /*_#__L4*/ curfnum[1] = 
+     ((/*_.OBV_TYPE__V12*/ curfptr[11]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1310:/ cond");
+    /*cond*/ if (/*_#__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1310:/ cond.then");
+    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1310:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1310:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1310:/ locexp");
+       melt_assert_failed(( "check valueness of const occurrence"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1310)?(1310):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1310:/ clear");
+    /*clear*/ /*_.OBV_TYPE__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1310:/ clear");
+    /*clear*/ /*_#__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1310:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1310:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1312:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*!"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1313:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ONAM__V10*/ curfptr[9])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1315:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfrout->tabval["));}
+  ;
+  /*_#GET_INT__L5*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.OOFF__V9*/ curfptr[7])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1316:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1317:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1308:/ clear");
+  /*clear*/ /*_.OOFF__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1308:/ clear");
+  /*clear*/ /*_.ONAM__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1308:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1308:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCONSTV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUT_CODE_INSTRUCTIONS_LIST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ getarg");
+ /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ getarg");
+ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
+ /*_.BOXEDDEPTH__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1323:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1324:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1324:/ block");
+  /*block*/{
+   /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 
+    ((/*_.LIS__V2*/ curfptr[1]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST));;
+   MELT_LOCATION("warmelt-outobj.melt:1324:/ cond");
+   /*cond*/ if (/*_#IS_LIST_OR_NULL__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1324:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1324:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1324:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1324:/ locexp");
+      melt_assert_failed(( "check lis"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1324)?(1324):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1324:/ clear");
+   /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1324:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1324:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1325:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1325:/ block");
+  /*block*/{
+   /*_#IS_INTEGERBOX__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) == OBMAG_INT);;
+   MELT_LOCATION("warmelt-outobj.melt:1325:/ cond");
+   /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1325:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1325:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1325:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1325:/ locexp");
+      melt_assert_failed(( "check boxeddepth"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1325)?(1325):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1325:/ clear");
+   /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1325:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1325:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1328:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1328:/ newclosure");
+   /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
+   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (3));
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1328:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[0] = (melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4]);
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1328:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1328:/ putclosedv");
+  /*putclosv*/
+  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
+  melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
+  ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[2] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+  ;
+  /*_.LAMBDA___V10*/ curfptr[8] = /*_.LAMBDA___V11*/ curfptr[10];;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1326:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1326:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[8];
+  /*_.LIST_EVERY__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LIS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST_EVERY__V12*/ curfptr[11];;
+  MELT_LOCATION("warmelt-outobj.melt:1323:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ clear");
+ /*clear*/ /*_.LAMBDA___V10*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ clear");
+ /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUT_CODE_INSTRUCTIONS_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_48_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1328:/ getarg");
+ /*_.CUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1328:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:1329:/ block");
+ /*block*/{
+  /*_#DEPTH__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXEDDEPTH*/ curfclos->tabval[0]))));;
+  MELT_LOCATION("warmelt-outobj.melt:1330:/ cond");
+  /*cond*/ if (/*_.CUR__V2*/ curfptr[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1330:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1330:/ block");
+   /*block*/{
+    /*_#IS_NOT_A__L3*/ curfnum[2] = 
+     !melt_is_instance_of((melt_ptr_t)(/*_.CUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
+    /*_#IF___L2*/ curfnum[1] = /*_#IS_NOT_A__L3*/ curfnum[2];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1330:/ clear");
+    /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1330:/ cond.else");
+  
+   /*_#IF___L2*/ curfnum[1] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1330:/ cond");
+  /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1330:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1330:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1332:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1333:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1333:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-outobj.melt:1333:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-outobj.melt:1333:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1334:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1331:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1330:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1329:/ clear");
+  /*clear*/ /*_#DEPTH__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1329:/ clear");
+  /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_48_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJBLOCK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ getarg");
+ /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1340:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1341:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1341:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1341:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1341:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1341:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1341:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1341:/ locexp");
+      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1341)?(1341):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1341:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1341:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1341:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1342:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1342:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1342:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1342:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objblock oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1342:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1342:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1342:/ apply.arg");
+    argtab[3].bp_long = 1342;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1342:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1342:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1342:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1343:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; };
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1343:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1343:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+  MELT_LOCATION("warmelt-outobj.melt:1343:/ apply.arg");
+  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+  MELT_LOCATION("warmelt-outobj.melt:1343:/ apply.arg");
+  argtab[2].bp_cstring =  "block";
+  /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1344:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1345:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V13*/ curfptr[12] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L4*/ curfnum[1])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1348:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*block*/{"));}
+  ;
+  /*_#IS_LIST__L5*/ curfnum[4] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1349:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1349:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1349:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1350:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1350:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1350:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1350:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
+     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V14*/ curfptr[13] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1349:/ clear");
+    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1349:/ cond.else");
+  
+   /*_.IF___V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  /*_#IS_LIST__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1351:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1351:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1351:/ block");
+   /*block*/{
+    /*_#GET_INT__L7*/ curfnum[6] = 
+     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1353:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1354:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*epilog*/"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1355:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1355:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1355:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1355:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
+     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1352:/ block");
+    /*block*/{
+     /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16];;}
+    ;
+    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
+    /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
+    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
+    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1351:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[14] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1356:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1357:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1344:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1359:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1359:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1359:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1359:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objblock done oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1359:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+    MELT_LOCATION("warmelt-outobj.melt:1359:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1359:/ apply.arg");
+    argtab[3].bp_long = 1359;
+    /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V19*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1359:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1359:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1359:/ cppif.else");
+ /*_.IFCPP___V19*/ curfptr[16] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V19*/ curfptr[16];;
+  MELT_LOCATION("warmelt-outobj.melt:1340:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
+ /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
+ /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
+ /*clear*/ /*_.IFCPP___V19*/ curfptr[16] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJMULTIALLOCBLOCK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ getarg");
+ /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1364:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1365:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1365:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1365:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1365:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objmultiallocblock oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1365:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1365:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1365:/ apply.arg");
+    argtab[3].bp_long = 1365;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1365:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1365:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1365:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1366:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1366:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIALLOCBLOCK*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:1366:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1366:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1366:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1366:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1366:/ locexp");
+      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1366)?(1366):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1366:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1366:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1366:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1368:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1368:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1368:/ cond");
+   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1368:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1368:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1368:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1368:/ locexp");
+      melt_assert_failed(( "@$@unimplemented outpucod_objmultiallocblock"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1368)?(1368):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1368:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1368:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-outobj.melt:1364:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJMULTIALLOCBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 35
+  void* varptr[35];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<35; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 35;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCITERBLOCK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ getarg");
+ /*_.OBCIT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1373:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1374:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1374:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1374:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1374:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1374:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1374:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1374:/ locexp");
+      melt_assert_failed(( "check obcit"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1374)?(1374):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1374:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1374:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1374:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1375:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1375:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1375:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1375:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objciterblock obcit";
+    MELT_LOCATION("warmelt-outobj.melt:1375:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1375:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1375:/ apply.arg");
+    argtab[3].bp_long = 1375;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1375:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1375:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1375:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1376:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1377:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1378:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V11*/ curfptr[10] = slot; };
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V12*/ curfptr[11] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:1380:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 4, "OBCITER_BEFORE");/*_.OBEFORE__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1381:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 5, "OBCITER_AFTER");/*_.OAFTER__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1382:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 3, "OBCITER_CITER");/*_.CITER__V15*/ curfptr[14] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1384:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1384:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CITER__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:1384:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1384:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1384:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1384:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1384:/ locexp");
+       melt_assert_failed(( "check citer"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1384)?(1384):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1384:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1384:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1384:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1385:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1385:/ apply.arg");
+   argtab[0].bp_cstring =  "citerblock";
+   /*_.OUTPUT_LOCATION__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1386:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerblock "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1387:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1387:/ locexp");
+  meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1388:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ {"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1389:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1390:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1390:/ apply.arg");
+   argtab[0].bp_cstring =  "citerbefore";
+   /*_.OUTPUT_LOCATION__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1393:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1393:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1393:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1393:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1393:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11]);
+   ;
+   /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1391:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1391:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20];
+   /*_.MULTIPLE_EVERY__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OBEFORE__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1396:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1397:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1397:/ apply.arg");
+   argtab[0].bp_cstring =  "citerbody";
+   /*_.OUTPUT_LOCATION__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_LIST__L6*/ curfnum[4] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V10*/ curfptr[9])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1398:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1398:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1398:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1399:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1399:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1399:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1399:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ curfptr[11];
+     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.BODYL__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V25*/ curfptr[24] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1398:/ clear");
+    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1398:/ cond.else");
+  
+   /*_.IF___V25*/ curfptr[24] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1400:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1401:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1401:/ apply.arg");
+   argtab[0].bp_cstring =  "citerafter";
+   /*_.OUTPUT_LOCATION__V27*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1404:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1404:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11]);
+   ;
+   /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1402:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1402:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27];
+   /*_.MULTIPLE_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OAFTER__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1407:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1408:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1408:/ apply.arg");
+   argtab[0].bp_cstring =  "citerepil";
+   /*_.OUTPUT_LOCATION__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_LIST__L7*/ curfnum[6] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V11*/ curfptr[10])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1409:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1409:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1409:/ block");
+   /*block*/{
+    /*_#GET_INT__L8*/ curfnum[7] = 
+     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1411:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L8*/ curfnum[7]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1412:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerepilog*/"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1413:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1413:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1413:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1413:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ curfptr[11];
+     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.EPIL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1410:/ block");
+    /*block*/{
+     /*_.PROGN___V34*/ curfptr[33] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32];;}
+    ;
+    /*_.IF___V32*/ curfptr[31] = /*_.PROGN___V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1409:/ clear");
+    /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1409:/ clear");
+    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1409:/ clear");
+    /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1409:/ cond.else");
+  
+   /*_.IF___V32*/ curfptr[31] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1414:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*endciterblock "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1415:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[32] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1415:/ locexp");
+  meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[32])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1416:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1417:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.BODYL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.EPIL__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OBEFORE__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OAFTER__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.CITER__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V31*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[32] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCITERBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_52_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ getarg");
+ /*_.OBEF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1393:/ block");
+/*block*/{
+ /*_#GET_INT__L2*/ curfnum[1] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:1394:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1394:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:1394:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:1394:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.OBEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:1393:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ clear");
+ /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_52_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_53_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ getarg");
+ /*_.OAFT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1404:/ block");
+/*block*/{
+ /*_#GET_INT__L2*/ curfnum[1] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:1405:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1405:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:1405:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:1405:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.OAFT__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:1404:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ clear");
+ /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_53_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCOMMENTINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ getarg");
+ /*_.OBCI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1423:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1424:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1424:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1424:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1424:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1424:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1424:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1424:/ locexp");
+      melt_assert_failed(( "check obci"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1424)?(1424):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1424:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1424:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1424:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1425:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1425:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1426:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), 1, "OBCI_COMMENT");/*_.COMS__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1427:/ block");
+  /*block*/{
+   /*_.SBU__V10*/ curfptr[9] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[1])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1428:/ locexp");
+   meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBU__V10*/ curfptr[9]), melt_string_str((melt_ptr_t)(/*_.COMS__V8*/ curfptr[7])));}
+   ;
+   /*_.STRBUF2STRING__V11*/ curfptr[10] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[2])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V10*/ curfptr[9]))));;
+   /*_.LET___V9*/ curfptr[8] = /*_.STRBUF2STRING__V11*/ curfptr[10];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1427:/ clear");
+   /*clear*/ /*_.SBU__V10*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1427:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V11*/ curfptr[10] = 0 ;}
+  ;
+  /*_.COMSTR__V12*/ curfptr[9] = /*_.LET___V9*/ curfptr[8];;
+  MELT_LOCATION("warmelt-outobj.melt:1432:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1432:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1432:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1432:/ apply.arg");
+   argtab[2].bp_cstring =  "comment";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1433:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**COMMENT: "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1434:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V12*/ curfptr[9])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1435:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " **/;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1436:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1425:/ clear");
+  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1425:/ clear");
+  /*clear*/ /*_.COMS__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1425:/ clear");
+  /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1425:/ clear");
+  /*clear*/ /*_.COMSTR__V12*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1425:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[10] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCOMMENTINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 25
+  void* varptr[25];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<25; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 25;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCOMMENTEDBLOCK", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ getarg");
+ /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1442:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1443:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1443:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1443:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1443:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1443:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1443:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1443:/ locexp");
+      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1443)?(1443):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1443:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1443:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1443:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1444:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1444:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1444:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1444:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objblock oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1444:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1444:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1444:/ apply.arg");
+    argtab[3].bp_long = 1444;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1444:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1444:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1444:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1445:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; };
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1445:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1445:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+  MELT_LOCATION("warmelt-outobj.melt:1445:/ apply.arg");
+  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+  MELT_LOCATION("warmelt-outobj.melt:1445:/ apply.arg");
+  argtab[2].bp_cstring =  "block";
+  /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1446:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1447:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V13*/ curfptr[12] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L4*/ curfnum[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:1449:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 3, "OCOMBLO_COMMENT");/*_.COMS__V14*/ curfptr[13] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1450:/ block");
+  /*block*/{
+   /*_.SBU__V16*/ curfptr[15] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1451:/ locexp");
+   meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBU__V16*/ curfptr[15]), melt_string_str((melt_ptr_t)(/*_.COMS__V14*/ curfptr[13])));}
+   ;
+   /*_.STRBUF2STRING__V17*/ curfptr[16] = 
+    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V16*/ curfptr[15]))));;
+   /*_.LET___V15*/ curfptr[14] = /*_.STRBUF2STRING__V17*/ curfptr[16];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1450:/ clear");
+   /*clear*/ /*_.SBU__V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1450:/ clear");
+   /*clear*/ /*_.STRBUF2STRING__V17*/ curfptr[16] = 0 ;}
+  ;
+  /*_.COMSTR__V18*/ curfptr[15] = /*_.LET___V15*/ curfptr[14];;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1455:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.block:"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1456:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ curfptr[15])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1457:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/{"));}
+  ;
+  /*_#IS_LIST__L5*/ curfnum[4] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1458:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1458:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1458:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1459:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1459:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1459:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1459:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
+     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V19*/ curfptr[16] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1458:/ clear");
+    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1458:/ cond.else");
+  
+   /*_.IF___V19*/ curfptr[16] = NULL;;
+   }
+  ;
+  /*_#IS_LIST__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1460:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1460:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1460:/ block");
+   /*block*/{
+    /*_#GET_INT__L7*/ curfnum[6] = 
+     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1462:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1463:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*comp.epilog:"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1464:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ curfptr[15])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1465:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1466:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1466:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1466:/ apply.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1466:/ apply.arg");
+     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
+     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1461:/ block");
+    /*block*/{
+     /*_.PROGN___V23*/ curfptr[22] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21];;}
+    ;
+    /*_.IF___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1460:/ clear");
+    /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1460:/ clear");
+    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1460:/ clear");
+    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1460:/ cond.else");
+  
+   /*_.IF___V21*/ curfptr[19] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1467:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1468:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.end block:"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1469:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ curfptr[15])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1470:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1471:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.COMS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.COMSTR__V18*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.IF___V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1446:/ clear");
+  /*clear*/ /*_.IF___V21*/ curfptr[19] = 0 ;}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1473:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1473:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1473:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1473:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objcommentedblock done oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1473:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+    MELT_LOCATION("warmelt-outobj.melt:1473:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1473:/ apply.arg");
+    argtab[3].bp_long = 1473;
+    /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V24*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[22];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1473:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1473:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1473:/ cppif.else");
+ /*_.IFCPP___V24*/ curfptr[21] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V24*/ curfptr[21];;
+  MELT_LOCATION("warmelt-outobj.melt:1442:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ clear");
+ /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ clear");
+ /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ clear");
+ /*clear*/ /*_.IFCPP___V24*/ curfptr[21] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCOMMENTEDBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJLABELINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ getarg");
+ /*_.OBLAB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1480:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1481:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1481:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1481:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1481:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1481:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1481:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1481:/ locexp");
+      melt_assert_failed(( "check oblab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1481)?(1481):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1481:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1481:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1481:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1482:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1482:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1482:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1482:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objlabelinstr oblab";
+    MELT_LOCATION("warmelt-outobj.melt:1482:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1482:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1482:/ apply.arg");
+    argtab[3].bp_long = 1482;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1482:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1482:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1482:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1483:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1484:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*objlabel*/ "));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1485:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 1, "OBLAB_PREFIX");/*_.OBLAB_PREFIX__V9*/ curfptr[7] = slot; };
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1485:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OBLAB_PREFIX__V9*/ curfptr[7])));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1486:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1486:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 2, "OBLAB_RANK");/*_.OBRANK__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1487:/ cond");
+  /*cond*/ if (/*_.OBRANK__V10*/ curfptr[9]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1487:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1487:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1488:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 2, "OBLAB_RANK");/*_.OBLAB_RANK__V11*/ curfptr[10] = slot; };
+    ;
+    /*_#GET_INT__L4*/ curfnum[1] = 
+     (melt_get_int((melt_ptr_t)(/*_.OBLAB_RANK__V11*/ curfptr[10])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1488:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1487:/ clear");
+    /*clear*/ /*_.OBLAB_RANK__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1487:/ clear");
+    /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1486:/ clear");
+  /*clear*/ /*_.OBRANK__V10*/ curfptr[9] = 0 ;}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1489:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1490:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1491:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V12*/ curfptr[10] = slot; };
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1491:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1491:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+  MELT_LOCATION("warmelt-outobj.melt:1491:/ apply.arg");
+  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+  MELT_LOCATION("warmelt-outobj.melt:1491:/ apply.arg");
+  argtab[2].bp_cstring =  "objlabel";
+  /*_.OUTPUT_LOCATION__V13*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V12*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_LOCATION__V13*/ curfptr[9];;
+  MELT_LOCATION("warmelt-outobj.melt:1480:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ clear");
+ /*clear*/ /*_.OBLAB_PREFIX__V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ clear");
+ /*clear*/ /*_.OBI_LOC__V12*/ curfptr[10] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ clear");
+ /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJLABELINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJGOTOINSTR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ getarg");
+ /*_.OBGOTO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1498:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1499:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1499:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1499:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1499:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1499:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1499:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1499:/ locexp");
+      melt_assert_failed(( "check obgoto"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1499)?(1499):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1499:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1499:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1499:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1500:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1500:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1500:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1500:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objgotoinstr";
+    MELT_LOCATION("warmelt-outobj.melt:1500:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1500:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1500:/ apply.arg");
+    argtab[3].bp_long = 1500;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1500:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1500:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1500:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1501:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; };
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1501:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1501:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+  MELT_LOCATION("warmelt-outobj.melt:1501:/ apply.arg");
+  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+  MELT_LOCATION("warmelt-outobj.melt:1501:/ apply.arg");
+  argtab[2].bp_cstring =  "objgoto";
+  /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1502:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*objgoto*/ goto "));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1503:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 1, "OBGOTO_PREFIX");/*_.OBGOTO_PREFIX__V11*/ curfptr[10] = slot; };
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1503:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OBGOTO_PREFIX__V11*/ curfptr[10])));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1504:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1504:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 2, "OBGOTO_RANK");/*_.OBRANK__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1505:/ cond");
+  /*cond*/ if (/*_.OBRANK__V12*/ curfptr[11]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1505:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1505:/ block");
+   /*block*/{
+    /*_#GET_INT__L4*/ curfnum[1] = 
+     (melt_get_int((melt_ptr_t)(/*_.OBRANK__V12*/ curfptr[11])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1506:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1]));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1505:/ clear");
+    /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1504:/ clear");
+  /*clear*/ /*_.OBRANK__V12*/ curfptr[11] = 0 ;}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1507:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1508:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
+ /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
+ /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
+ /*clear*/ /*_.OBGOTO_PREFIX__V11*/ curfptr[10] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJGOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 9
+  void* varptr[9];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<9; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 9;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("ADD2SBUF_CLONSYM", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1514:/ getarg");
+ /*_.SBUF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1514:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CSY__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CSY__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1514:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1515:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1515:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:1515:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1515:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1515:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1515:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1515:/ locexp");
+      melt_assert_failed(( "check sbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1515)?(1515):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1515:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1515:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1515:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1516:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1516:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CSY__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1516:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1516:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1516:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1516:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1516:/ locexp");
+      melt_assert_failed(( "check csy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1516)?(1516):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1516:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1516:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1516:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1517:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1517:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CSY__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1518:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CSY__V3*/ curfptr[2]), 3, "CSYM_URANK");/*_.CSYM_URANK__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#RK__L3*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V9*/ curfptr[8])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1519:/ locexp");
+  meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1]),
+  melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1520:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), ( "_"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1521:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), (/*_#RK__L3*/ curfnum[0]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1517:/ clear");
+  /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1517:/ clear");
+  /*clear*/ /*_.CSYM_URANK__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1517:/ clear");
+  /*clear*/ /*_#RK__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1514:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1514:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("ADD2SBUF_CLONSYM", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJLOOP", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ getarg");
+ /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1525:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1526:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1526:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1526:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1526:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1526:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1526:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1526:/ locexp");
+      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1526)?(1526):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1526:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1526:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1526:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1527:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1527:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1527:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1527:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objloop oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1527:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1527:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1527:/ apply.arg");
+    argtab[3].bp_long = 1527;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1527:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1527:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1527:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1528:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1529:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1530:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 3, "OBLOOP_LABEL");/*_.LAB__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1531:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V13*/ curfptr[12] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1534:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1534:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.LAB__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:1534:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1534:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1534:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1534:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1534:/ locexp");
+       melt_assert_failed(( "check lab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1534)?(1534):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1534:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1534:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1534:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1535:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1535:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1535:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1535:/ apply.arg");
+   argtab[2].bp_cstring =  "loop";
+   /*_.OUTPUT_LOCATION__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1536:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loop*/{ labloop_"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1537:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1537:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ curfptr[10];
+   /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1538:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":;"));}
+  ;
+  /*_#IS_LIST__L6*/ curfnum[4] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V9*/ curfptr[7])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1539:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1539:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1539:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1541:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1541:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1541:/ apply.arg");
+     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:1541:/ apply.arg");
+     argtab[2].bp_cstring =  "loopbody";
+     /*_.OUTPUT_LOCATION__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#I__L7*/ curfnum[6] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1542:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1545:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1545:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1545:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1545:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1545:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1543:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1543:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
+     /*_.LIST_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V9*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1540:/ block");
+    /*block*/{
+     /*_.PROGN___V23*/ curfptr[22] = /*_.LIST_EVERY__V22*/ curfptr[21];;}
+    ;
+    /*_.IF___V18*/ curfptr[17] = /*_.PROGN___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
+    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
+    /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
+    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1539:/ cond.else");
+  
+   /*_.IF___V18*/ curfptr[17] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1551:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+  ;
+  /*_#I__L8*/ curfnum[6] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1552:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[6]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1553:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labloop_"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1554:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1554:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ curfptr[10];
+   /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1555:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+  ;
+  /*_#I__L9*/ curfnum[8] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1556:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1557:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " labexit_"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1558:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1558:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ curfptr[10];
+   /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1559:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":;"));}
+  ;
+  /*_#IS_LIST__L10*/ curfnum[9] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V10*/ curfptr[9])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1560:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[9]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1560:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1560:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1562:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1562:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1562:/ apply.arg");
+     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:1562:/ apply.arg");
+     argtab[2].bp_cstring =  "loopepilog";
+     /*_.OUTPUT_LOCATION__V27*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1563:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loopepilog*/"));}
+    ;
+    /*_#I__L11*/ curfnum[10] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1564:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1567:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1567:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1567:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1567:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1567:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1565:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1565:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27];
+     /*_.LIST_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1561:/ block");
+    /*block*/{
+     /*_.PROGN___V31*/ curfptr[30] = /*_.LIST_EVERY__V30*/ curfptr[29];;}
+    ;
+    /*_.IF___V26*/ curfptr[21] = /*_.PROGN___V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1560:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1560:/ clear");
+    /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1560:/ clear");
+    /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1560:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1560:/ clear");
+    /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1560:/ cond.else");
+  
+   /*_.IF___V26*/ curfptr[21] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1573:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1574:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.BODYL__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.EPIL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.LAB__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.OLOC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_#IS_LIST__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
+  /*clear*/ /*_.IF___V26*/ curfptr[21] = 0 ;}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1576:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1576:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1576:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1576:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objloop done oblo";
+    MELT_LOCATION("warmelt-outobj.melt:1576:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
+    MELT_LOCATION("warmelt-outobj.melt:1576:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1576:/ apply.arg");
+    argtab[3].bp_long = 1576;
+    /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V32*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[27];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1576:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1576:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1576:/ cppif.else");
+ /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V32*/ curfptr[22];;
+  MELT_LOCATION("warmelt-outobj.melt:1525:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ clear");
+ /*clear*/ /*_.IFCPP___V32*/ curfptr[22] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJLOOP", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_60_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1545:/ getarg");
+ /*_.CURBODY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1545:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:1546:/ block");
+ /*block*/{
+  /*_#DEPTHP1__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));;
+  MELT_LOCATION("warmelt-outobj.melt:1547:/ cond");
+  /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1547:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1547:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[2] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
+    /*_#NOT__L4*/ curfnum[3] = 
+     (!(/*_#IS_A__L3*/ curfnum[2]));;
+    /*_#IF___L2*/ curfnum[1] = /*_#NOT__L4*/ curfnum[3];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1547:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1547:/ clear");
+    /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1547:/ cond.else");
+  
+   /*_#IF___L2*/ curfnum[1] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1547:/ cond");
+  /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1547:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1547:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1548:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1548:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-outobj.melt:1548:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-outobj.melt:1548:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTHP1__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V3*/ curfptr[2] = /*_.OUTPUT_C_CODE__V4*/ curfptr[3];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1547:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1547:/ cond.else");
+  
+   /*_.IF___V3*/ curfptr[2] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1549:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1550:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1546:/ clear");
+  /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1546:/ clear");
+  /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1546:/ clear");
+  /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_60_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_61_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1567:/ getarg");
+ /*_.CUREPIL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1567:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:1568:/ block");
+ /*block*/{
+  /*_#DEPTHP1__L1*/ curfnum[0] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));;
+  MELT_LOCATION("warmelt-outobj.melt:1569:/ cond");
+  /*cond*/ if (/*_.CUREPIL__V2*/ curfptr[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1569:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1569:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[2] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CUREPIL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
+    /*_#NOT__L4*/ curfnum[3] = 
+     (!(/*_#IS_A__L3*/ curfnum[2]));;
+    /*_#IF___L2*/ curfnum[1] = /*_#NOT__L4*/ curfnum[3];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1569:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1569:/ clear");
+    /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1569:/ cond.else");
+  
+   /*_#IF___L2*/ curfnum[1] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1569:/ cond");
+  /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1569:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1569:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1570:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1570:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-outobj.melt:1570:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]);
+     MELT_LOCATION("warmelt-outobj.melt:1570:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTHP1__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CUREPIL__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V3*/ curfptr[2] = /*_.OUTPUT_C_CODE__V4*/ curfptr[3];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1569:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1569:/ cond.else");
+  
+   /*_.IF___V3*/ curfptr[2] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1571:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1572:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1568:/ clear");
+  /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1568:/ clear");
+  /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1568:/ clear");
+  /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_61_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJEXIT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ getarg");
+ /*_.OBXI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1582:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1583:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1583:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1583:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1583:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1583:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1583:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1583:/ locexp");
+      melt_assert_failed(( "check obxi"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1583)?(1583):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1583:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1583:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1583:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1584:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1584:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1584:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1584:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objexit obxi";
+    MELT_LOCATION("warmelt-outobj.melt:1584:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1584:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1584:/ apply.arg");
+    argtab[3].bp_long = 1584;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1584:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1584:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1584:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1585:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1585:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), 1, "OBEXIT_LABEL");/*_.OLAB__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1586:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.LOC__V10*/ curfptr[9] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1588:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1588:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OLAB__V9*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1588:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1588:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1588:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1588:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1588:/ locexp");
+       melt_assert_failed(( "check olab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1588)?(1588):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1588:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1588:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1588:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1589:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1589:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1589:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1589:/ apply.arg");
+   argtab[2].bp_cstring =  "exit";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LOC__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1590:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*exit*/{"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1591:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1592:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labexit_"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1593:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1593:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ curfptr[7];
+   /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1594:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1595:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1585:/ clear");
+  /*clear*/ /*_.OLAB__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1585:/ clear");
+  /*clear*/ /*_.LOC__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1585:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1585:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1585:/ clear");
+  /*clear*/ /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJEXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 29
+  void* varptr[29];
+#define CURFRAM_NBVARNUM 14
+  long varnum[14];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<29; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 29;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCOMPUTE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ getarg");
+ /*_.OBCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1600:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1601:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1601:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1601:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1601:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1601:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1601:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1601:/ locexp");
+      melt_assert_failed(( "check obcomp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1601)?(1601):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1601:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1601:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1601:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1602:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.CDEST__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1603:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1604:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 2, "OBCPT_EXPR");/*_.CEXP__V9*/ curfptr[8] = slot; };
+  ;
+  /*_#I__L3*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V10*/ curfptr[9] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1607:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1607:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:1607:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1607:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objcompute obcomp";
+     MELT_LOCATION("warmelt-outobj.melt:1607:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+     MELT_LOCATION("warmelt-outobj.melt:1607:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:1607:/ apply.arg");
+     argtab[3].bp_long = 1607;
+     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1607:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1607:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1607:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1608:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1608:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1608:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1608:/ apply.arg");
+   argtab[2].bp_cstring =  "compute";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#IS_LIST__L5*/ curfnum[3] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CDEST__V7*/ curfptr[5])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1609:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1609:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1609:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1612:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1612:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1612:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1612:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1612:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]);
+     ;
+     /*_.LAMBDA___V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1610:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1610:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V15*/ curfptr[14];
+     /*_.LIST_EVERY__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CDEST__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IF___V14*/ curfptr[13] = /*_.LIST_EVERY__V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1609:/ clear");
+    /*clear*/ /*_.LAMBDA___V15*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1609:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1609:/ cond.else");
+  
+   /*_.IF___V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  /*_#IS_LIST__L6*/ curfnum[5] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_LIST);;
+  MELT_LOCATION("warmelt-outobj.melt:1616:/ cond");
+  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1616:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1616:/ block");
+   /*block*/{
+    /*_#LIST_LENGTH__L7*/ curfnum[6] = 
+     (melt_list_length((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])));;
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#LIST_LENGTH__L7*/ curfnum[6]) > (2));;
+    MELT_LOCATION("warmelt-outobj.melt:1617:/ cond");
+    /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1617:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:1617:/ block");
+     /*block*/{
+      /*_#I__L9*/ curfnum[8] = 
+       ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1618:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1617:/ clear");
+      /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1621:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1621:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1621:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1621:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1621:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]);
+     ;
+     /*_.LAMBDA___V19*/ curfptr[16] = /*_.LAMBDA___V20*/ curfptr[19];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1619:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1619:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[16];
+     /*_.LIST_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ block");
+    /*block*/{
+     /*_.PROGN___V22*/ curfptr[21] = /*_.LIST_EVERY__V21*/ curfptr[20];;}
+    ;
+    /*_.IFELSE___V18*/ curfptr[14] = /*_.PROGN___V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_#LIST_LENGTH__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_.LAMBDA___V19*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1616:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:1616:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE__L10*/ curfnum[8] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_MULTIPLE);;
+    MELT_LOCATION("warmelt-outobj.melt:1623:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1623:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
+     /*block*/{
+      /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = 
+       (melt_multiple_length((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])));;
+      /*_#I__L12*/ curfnum[7] = 
+       ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[6]) > (2));;
+      MELT_LOCATION("warmelt-outobj.melt:1624:/ cond");
+      /*cond*/ if (/*_#I__L12*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:1624:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:1624:/ block");
+       /*block*/{
+        /*_#I__L13*/ curfnum[12] = 
+         ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:1625:/ locexp");
+        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0);}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:1624:/ clear");
+        /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;}
+       ;
+      } /*noelse*/
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1628:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-outobj.melt:1628:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[21] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3));
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:1628:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:1628:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:1628:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]);
+       ;
+       /*_.LAMBDA___V24*/ curfptr[20] = /*_.LAMBDA___V25*/ curfptr[21];;}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1626:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:1626:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[20];
+       /*_.MULTIPLE_EVERY__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
+      /*block*/{
+       /*_.PROGN___V27*/ curfptr[26] = /*_.MULTIPLE_EVERY__V26*/ curfptr[25];;}
+      ;
+      /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V27*/ curfptr[26];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_#I__L12*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_.LAMBDA___V24*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1623:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
+     /*block*/{
+      /*_#I__L14*/ curfnum[12] = 
+       ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+      MELT_LOCATION("warmelt-outobj.melt:1631:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:1631:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+       MELT_LOCATION("warmelt-outobj.melt:1631:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+       MELT_LOCATION("warmelt-outobj.melt:1631:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#I__L14*/ curfnum[12];
+       /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1630:/ block");
+      /*block*/{
+       /*_.PROGN___V29*/ curfptr[25] = /*_.OUTPUT_C_CODE__V28*/ curfptr[20];;}
+      ;
+      /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V29*/ curfptr[25];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
+      /*clear*/ /*_.PROGN___V29*/ curfptr[25] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V18*/ curfptr[14] = /*_.IFELSE___V23*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1616:/ clear");
+    /*clear*/ /*_.IFELSE___V23*/ curfptr[16] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1633:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.CDEST__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.CLOC__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.CEXP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_#IS_LIST__L5*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1602:/ clear");
+  /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCOMPUTE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_64_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1612:/ getarg");
+ /*_.DESTCUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1612:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:1613:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1613:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:1613:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:1613:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DESTCUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1614:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1612:/ block");
+ /*block*/{
+  /*_.RETVAL___V4*/ curfptr[3] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:1612:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETVAL___V4*/ curfptr[3];;
+   MELT_LOCATION("warmelt-outobj.melt:1612:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1612:/ clear");
+  /*clear*/ /*_.RETVAL___V4*/ curfptr[3] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1612:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1612:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_64_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_65_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1621:/ getarg");
+ /*_.EXPCUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1621:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:1622:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1622:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:1622:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:1622:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1621:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:1621:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1621:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1621:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_65_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_66_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1628:/ getarg");
+ /*_.EXPCUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1628:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:1629:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1629:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:1629:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:1629:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:1628:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:1628:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1628:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1628:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_66_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 16
+  long varnum[16];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCOND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ getarg");
+ /*_.OCOND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1639:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1640:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1640:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1640:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1640:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1640:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1640:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1640:/ locexp");
+      melt_assert_failed(( "check ocond"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1640)?(1640):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1640:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1640:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1640:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1641:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1641:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1641:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1641:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objcond ocond";
+    MELT_LOCATION("warmelt-outobj.melt:1641:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1641:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1641:/ apply.arg");
+    argtab[3].bp_long = 1641;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1641:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1641:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1641:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1642:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1643:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 1, "OBCOND_TEST");/*_.CTEST__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1644:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 2, "OBCOND_THEN");/*_.CTHEN__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1645:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 3, "OBCOND_ELSE");/*_.CELSE__V12*/ curfptr[11] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1647:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1647:/ block");
+   /*block*/{
+    /*_#NOTNULL__L4*/ curfnum[1] = 
+     ((/*_.CTEST__V10*/ curfptr[9]) != NULL);;
+    MELT_LOCATION("warmelt-outobj.melt:1647:/ cond");
+    /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1647:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1647:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1647:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1647:/ locexp");
+       melt_assert_failed(( "check ctest"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1647)?(1647):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1647:/ clear");
+    /*clear*/ /*_#NOTNULL__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1647:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1647:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1648:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1648:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1648:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1648:/ apply.arg");
+   argtab[2].bp_cstring =  "cond";
+   /*_.OUTPUT_LOCATION__V15*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1649:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*cond*/ if ("));}
+  ;
+  /*_#I__L5*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  MELT_LOCATION("warmelt-outobj.melt:1650:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1650:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:1650:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1650:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L5*/ curfnum[1];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.CTEST__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1651:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") /*then*/ {"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1652:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1653:/ cond");
+  /*cond*/ if (/*_.CTHEN__V11*/ curfptr[10]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1653:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1653:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[6] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[4])));;
+    /*_#NOT__L8*/ curfnum[7] = 
+     (!(/*_#IS_A__L7*/ curfnum[6]));;
+    /*_#IF___L6*/ curfnum[5] = /*_#NOT__L8*/ curfnum[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
+    /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1653:/ cond.else");
+  
+   /*_#IF___L6*/ curfnum[5] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1653:/ cond");
+  /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1653:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1653:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1655:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1655:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1655:/ apply.arg");
+     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:1655:/ apply.arg");
+     argtab[2].bp_cstring =  "cond.then";
+     /*_.OUTPUT_LOCATION__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#I__L9*/ curfnum[6] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-outobj.melt:1656:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1656:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1656:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1656:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#I__L9*/ curfnum[6];
+     /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1657:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1658:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1654:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
+    /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1661:/ cond");
+  /*cond*/ if (/*_.CELSE__V12*/ curfptr[11]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1661:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1661:/ block");
+   /*block*/{
+    /*_#IS_A__L11*/ curfnum[6] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[4])));;
+    /*_#NOT__L12*/ curfnum[11] = 
+     (!(/*_#IS_A__L11*/ curfnum[6]));;
+    /*_#IF___L10*/ curfnum[7] = /*_#NOT__L12*/ curfnum[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_#NOT__L12*/ curfnum[11] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1661:/ cond.else");
+  
+   /*_#IF___L10*/ curfnum[7] = 0;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1661:/ cond");
+  /*cond*/ if (/*_#IF___L10*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1661:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1661:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1663:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} else {"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1664:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1664:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1664:/ apply.arg");
+     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:1664:/ apply.arg");
+     argtab[2].bp_cstring =  "cond.else";
+     /*_.OUTPUT_LOCATION__V19*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#I__L13*/ curfnum[6] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1665:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[6]), 0);}
+    ;
+    /*_#I__L14*/ curfnum[11] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    MELT_LOCATION("warmelt-outobj.melt:1666:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1666:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:1666:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:1666:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#I__L14*/ curfnum[11];
+     /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1667:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+    ;
+    /*_#I__L15*/ curfnum[14] = 
+     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1668:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1669:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1662:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_#I__L13*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1661:/ clear");
+    /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1661:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:1661:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1671:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*noelse*/"));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1673:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.CTEST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1642:/ clear");
+  /*clear*/ /*_#IF___L10*/ curfnum[7] = 0 ;}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1675:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1675:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L16*/ curfnum[6] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1675:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objcond end ocond";
+    MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[6];
+    MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
+    argtab[3].bp_long = 1675;
+    /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V21*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[17];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1675:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1675:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1675:/ cppif.else");
+ /*_.IFCPP___V21*/ curfptr[16] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V21*/ curfptr[16];;
+  MELT_LOCATION("warmelt-outobj.melt:1639:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ clear");
+ /*clear*/ /*_.IFCPP___V21*/ curfptr[16] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCOND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCPPIF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ getarg");
+ /*_.OPIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1681:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1682:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1682:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1682:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1682:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1682:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1682:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1682:/ locexp");
+      melt_assert_failed(( "check opif"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1682)?(1682):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1682:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1682:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1682:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1683:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1683:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1683:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1683:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objcppif opif";
+    MELT_LOCATION("warmelt-outobj.melt:1683:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1683:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1683:/ apply.arg");
+    argtab[3].bp_long = 1683;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1683:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1683:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1683:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1684:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1685:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 1, "OBIFP_COND");/*_.CCOND__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1686:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 2, "OBIFP_THEN");/*_.CTHEN__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1687:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 3, "OBIFP_ELSE");/*_.CELSE__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#DEPTHP1__L4*/ curfnum[1] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1690:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1690:/ block");
+   /*block*/{
+    /*_#IS_STRING__L5*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-outobj.melt:1690:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1690:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1690:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1690:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1690:/ locexp");
+       melt_assert_failed(( "check ccond"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1690)?(1690):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1690:/ clear");
+    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1690:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1690:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1691:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1691:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1691:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1691:/ apply.arg");
+   argtab[2].bp_cstring =  "cppif";
+   /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1692:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1693:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1694:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1695:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1695:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1695:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1695:/ apply.arg");
+   argtab[2].bp_cstring =  "cppif.then";
+   /*_.OUTPUT_LOCATION__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1696:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1696:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:1696:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1696:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTHP1__L4*/ curfnum[1];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1697:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1698:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else /*"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1699:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1700:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1701:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1702:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1702:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1702:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1702:/ apply.arg");
+   argtab[2].bp_cstring =  "cppif.else";
+   /*_.OUTPUT_LOCATION__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1703:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1703:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:1703:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1703:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTHP1__L4*/ curfnum[1];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1704:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1705:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif /*"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1706:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1707:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1708:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.CCOND__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_#DEPTHP1__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1684:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJINTERNSYMBOL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ getarg");
+ /*_.OISY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1713:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1714:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1714:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINTERNSYMBOL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1714:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1714:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1714:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1714:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1714:/ locexp");
+      melt_assert_failed(( "check oisy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1714)?(1714):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1714:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1714:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1714:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1715:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1715:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1715:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1715:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objinternsymbol oisy";
+    MELT_LOCATION("warmelt-outobj.melt:1715:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1715:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1715:/ apply.arg");
+    argtab[3].bp_long = 1715;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1715:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1715:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1715:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1716:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1717:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), 1, "OBINTERN_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1718:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OIDAT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1719:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1721:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1721:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1721:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1721:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1721:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1721:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1721:/ locexp");
+       melt_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1721)?(1721):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1721:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1721:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1721:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1722:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1722:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:1722:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1722:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1722:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1722:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1722:/ locexp");
+       melt_assert_failed(( "check oidat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1722)?(1722):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1722:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1722:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1722:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1723:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1723:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V17*/ curfptr[15] = slot; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1724:/ cond");
+   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1724:/ cond.then");
+   /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1724:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1724:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1724:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; };
+     ;
+     /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:1724:/ clear");
+     /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1724:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1724:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1724:/ apply.arg");
+    argtab[1].bp_long = 1;
+    MELT_LOCATION("warmelt-outobj.melt:1724:/ apply.arg");
+    argtab[2].bp_cstring =  "internsymbol";
+    /*_.OUTPUT_LOCATION__V20*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1725:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internsym:"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1726:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1727:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1728:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1729:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) meltgc_intern_symbol((melt_ptr_t)("));}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1730:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1730:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1730:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1730:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1731:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1732:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1723:/ clear");
+   /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1723:/ clear");
+   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1723:/ clear");
+   /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1723:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ clear");
+  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ clear");
+  /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ clear");
+  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1716:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJINTERNSYMBOL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJINTERNKEYWORD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ getarg");
+ /*_.OIKW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1737:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1738:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1738:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINTERNKEYWORD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1738:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1738:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1738:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1738:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1738:/ locexp");
+      melt_assert_failed(( "check oikw"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1738)?(1738):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1738:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1738:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1738:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1739:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1739:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1739:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1739:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objinternkeyword oikw";
+    MELT_LOCATION("warmelt-outobj.melt:1739:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1739:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1739:/ apply.arg");
+    argtab[3].bp_long = 1739;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1739:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1739:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1739:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1740:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1740:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1741:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), 1, "OBINTERN_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1742:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OIDAT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1743:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1745:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1745:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1745:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1745:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1745:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1745:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1745:/ locexp");
+       melt_assert_failed(( "check oidat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1745)?(1745):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1745:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1745:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1745:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1746:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1746:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V15*/ curfptr[13] = slot; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1747:/ cond");
+   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1747:/ cond.then");
+   /*_.IFELSE___V16*/ curfptr[15] = /*_.CLOC__V9*/ curfptr[7];;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1747:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1747:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1747:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V17*/ curfptr[16] = slot; };
+     ;
+     /*_.IFELSE___V16*/ curfptr[15] = /*_.NREP_LOC__V17*/ curfptr[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:1747:/ clear");
+     /*clear*/ /*_.NREP_LOC__V17*/ curfptr[16] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1747:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1747:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1747:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:1747:/ apply.arg");
+    argtab[2].bp_cstring =  "internkeyword";
+    /*_.OUTPUT_LOCATION__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.IFELSE___V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1748:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internkeyw:"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1749:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V15*/ curfptr[13])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1750:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1751:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1752:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) meltgc_intern_keyword((melt_ptr_t)("));}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1753:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1753:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1753:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1753:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1754:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1755:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1746:/ clear");
+   /*clear*/ /*_.NSY__V15*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1746:/ clear");
+   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1746:/ clear");
+   /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1746:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1740:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1740:/ clear");
+  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1740:/ clear");
+  /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1740:/ clear");
+  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1740:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJINTERNKEYWORD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJGETNAMEDSYMBOL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ getarg");
+ /*_.OGSY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1760:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1761:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1761:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETNAMEDSYMBOL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1761:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1761:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1761:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1761:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1761:/ locexp");
+      melt_assert_failed(( "check ogsy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1761)?(1761):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1761:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1761:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1761:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1762:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1762:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1762:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1762:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objgetnamedsymbol ogsy";
+    MELT_LOCATION("warmelt-outobj.melt:1762:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1762:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1762:/ apply.arg");
+    argtab[3].bp_long = 1762;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1762:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1762:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1762:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1763:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1764:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), 1, "OBGNAMED_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1765:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OGDAT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1766:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1768:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1768:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1768:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1768:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1768:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1768:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1768:/ locexp");
+       melt_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1768)?(1768):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1768:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1768:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1768:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1769:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1769:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:1769:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1769:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1769:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1769:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1769:/ locexp");
+       melt_assert_failed(( "check ogdat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1769)?(1769):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1769:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1769:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1769:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1770:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V17*/ curfptr[15] = slot; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1772:/ cond");
+   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1772:/ cond.then");
+   /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1772:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1772:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1772:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; };
+     ;
+     /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:1772:/ clear");
+     /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1772:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1772:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1772:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:1772:/ apply.arg");
+    argtab[2].bp_cstring =  "getnamedsymbol";
+    /*_.OUTPUT_LOCATION__V20*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1773:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedsym:"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1774:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1775:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1776:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1777:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1778:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1779:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = meltgc_named_symbol(\""));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1780:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1781:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", MELT_GET);"));}
+   ;
+   /*_#I__L6*/ curfnum[1] = 
+    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1782:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1783:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (sy_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1784:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1785:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " && NULL == "));}
+   ;
+   /*_#I__L7*/ curfnum[6] = 
+    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+   MELT_LOCATION("warmelt-outobj.melt:1786:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1786:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1786:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1786:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#I__L7*/ curfnum[6];
+    /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1787:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")"));}
+   ;
+   /*_#I__L8*/ curfnum[7] = 
+    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1788:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0);}
+   ;
+   /*_#I__L9*/ curfnum[8] = 
+    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+   MELT_LOCATION("warmelt-outobj.melt:1789:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1789:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1789:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1789:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#I__L9*/ curfnum[8];
+    /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1790:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) sy_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1791:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1792:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1793:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1770:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ clear");
+  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ clear");
+  /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ clear");
+  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1763:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJGETNAMEDSYMBOL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJGETNAMEDKEYWORD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ getarg");
+ /*_.OGKW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1798:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1799:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1799:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETNAMEDKEYWORD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1799:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1799:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1799:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1799:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1799:/ locexp");
+      melt_assert_failed(( "check ogkw"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1799)?(1799):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1799:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1799:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1799:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1800:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1800:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1800:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1800:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objgetnamedkeyword ogkw";
+    MELT_LOCATION("warmelt-outobj.melt:1800:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1800:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1800:/ apply.arg");
+    argtab[3].bp_long = 1800;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1800:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1800:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1800:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1801:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1802:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), 1, "OBGNAMED_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1803:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OGDAT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1804:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1806:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1806:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:1806:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1806:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1806:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1806:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1806:/ locexp");
+       melt_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1806)?(1806):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1806:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1806:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1806:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1807:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1807:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:1807:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1807:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1807:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1807:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1807:/ locexp");
+       melt_assert_failed(( "check ogdat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1807)?(1807):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1807:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1807:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1807:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:1808:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NKW__V17*/ curfptr[15] = slot; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1809:/ cond");
+   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1809:/ cond.then");
+   /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1809:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1809:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1809:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; };
+     ;
+     /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:1809:/ clear");
+     /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1809:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1809:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1809:/ apply.arg");
+    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:1809:/ apply.arg");
+    argtab[2].bp_cstring =  "getnamedkeyword";
+    /*_.OUTPUT_LOCATION__V20*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1810:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedkeyw:"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1811:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1812:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1813:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1814:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1815:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1816:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = meltgc_named_keyword(\""));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1817:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1818:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", MELT_GET);"));}
+   ;
+   /*_#I__L6*/ curfnum[1] = 
+    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1819:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1820:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (kw_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1821:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1822:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") "));}
+   ;
+   /*_#I__L7*/ curfnum[6] = 
+    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+   MELT_LOCATION("warmelt-outobj.melt:1823:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1823:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1823:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1823:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#I__L7*/ curfnum[6];
+    /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1824:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) kw_"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1825:/ locexp");
+   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1826:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1827:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ clear");
+   /*clear*/ /*_.NKW__V17*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ clear");
+   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ clear");
+   /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ clear");
+   /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ clear");
+   /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1808:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ clear");
+  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ clear");
+  /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ clear");
+  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1801:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJGETNAMEDKEYWORD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 30
+  void* varptr[30];
+#define CURFRAM_NBVARNUM 14
+  long varnum[14];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<30; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 30;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJAPPLY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ getarg");
+ /*_.OAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1833:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1834:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1834:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:1834:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1834:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1834:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1834:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1834:/ locexp");
+      melt_assert_failed(( "check oapp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1834)?(1834):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1834:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1834:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1834:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1835:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1835:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1835:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1835:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objapply oapp";
+    MELT_LOCATION("warmelt-outobj.melt:1835:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1835:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1835:/ apply.arg");
+    argtab[3].bp_long = 1835;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1835:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1835:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1835:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1836:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1837:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ALOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1838:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ADEST__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1839:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 2, "OBAPP_CLOS");/*_.OCLOS__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1840:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 3, "OBAPP_ARGS");/*_.OARGS__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#NBARG__L4*/ curfnum[1] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11])));;
+  /*_.PARAMDESCLIST__V13*/ curfptr[12] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_#I__L5*/ curfnum[4] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  /*_.BOXDEPTHP1__V14*/ curfptr[13] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L5*/ curfnum[4])));;
+  MELT_LOCATION("warmelt-outobj.melt:1845:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1845:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1845:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1845:/ apply.arg");
+   argtab[2].bp_cstring =  "apply";
+   /*_.OUTPUT_LOCATION__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1846:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*apply*/{"));}
+  ;
+  /*_#I__L6*/ curfnum[5] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1847:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0);}
+  ;
+  /*_#I__L7*/ curfnum[6] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
+  MELT_LOCATION("warmelt-outobj.melt:1848:/ cond");
+  /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1848:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1848:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1850:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
+    ;
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#NBARG__L4*/ curfnum[1]) - (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1851:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1852:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
+    ;
+    /*_#I__L9*/ curfnum[8] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1853:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1854:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
+    ;
+    /*_#I__L10*/ curfnum[9] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1855:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L10*/ curfnum[9]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1859:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:1859:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1859:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1859:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1859:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1859:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[3] = (melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ curfptr[12]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:1859:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[4] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1857:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1857:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
+     /*_.MULTIPLE_EVERY__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1849:/ block");
+    /*block*/{
+     /*_.PROGN___V20*/ curfptr[19] = /*_.MULTIPLE_EVERY__V19*/ curfptr[18];;}
+    ;
+    /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1848:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1848:/ clear");
+    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1848:/ clear");
+    /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1848:/ clear");
+    /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1848:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1848:/ clear");
+    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1848:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1891:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1891:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[18] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1891:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1891:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1891:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
+   ;
+   /*_.LAMBDA___V21*/ curfptr[16] = /*_.LAMBDA___V22*/ curfptr[18];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1889:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1889:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[16];
+   /*_.LIST_EVERY__V23*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.ADEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1895:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " melt_apply ((meltclosure_ptr_t)("));}
+  ;
+  /*_#I__L11*/ curfnum[7] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-outobj.melt:1896:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1896:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:1896:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1896:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L11*/ curfnum[7];
+   /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1897:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1899:/ block");
+  /*block*/{
+   /*_.FIRSTARG__V26*/ curfptr[25] = 
+    (melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (0)));;
+   /*_#I__L12*/ curfnum[8] = 
+    ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+   MELT_LOCATION("warmelt-outobj.melt:1900:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1900:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1900:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1900:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#I__L12*/ curfnum[8];
+    /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V26*/ curfptr[25]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LET___V25*/ curfptr[24] = /*_.OUTPUT_C_CODE__V27*/ curfptr[26];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1899:/ clear");
+   /*clear*/ /*_.FIRSTARG__V26*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1899:/ clear");
+   /*clear*/ /*_#I__L12*/ curfnum[8] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1899:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = 0 ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1902:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1906:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1906:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[26] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:1906:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[26])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[26])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V28*/ curfptr[25] = /*_.LAMBDA___V29*/ curfptr[26];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1904:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1904:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[25];
+   /*_.LIST_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1909:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
+  ;
+  /*_#I__L13*/ curfnum[9] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
+  MELT_LOCATION("warmelt-outobj.melt:1911:/ cond");
+  /*cond*/ if (/*_#I__L13*/ curfnum[9]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1911:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1911:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1912:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:1911:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:1911:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1913:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0,"));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1915:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union meltparam_un*)0"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1916:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  /*_#I__L14*/ curfnum[8] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1917:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[8]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1918:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1919:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.PARAMDESCLIST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.LAMBDA___V21*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V23*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.LAMBDA___V28*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#I__L13*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1836:/ clear");
+  /*clear*/ /*_#I__L14*/ curfnum[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJAPPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_74_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 15
+  long varnum[15];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ getarg");
+ /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1859:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1860:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1860:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1860:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1860:/ apply.arg");
+    argtab[0].bp_cstring =  "outputcod_objapply curarg";
+    MELT_LOCATION("warmelt-outobj.melt:1860:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1860:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1860:/ apply.arg");
+    argtab[3].bp_long = 1860;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1860:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1860:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1860:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1861:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1861:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[1])));;
+   /*_#NOT__L4*/ curfnum[3] = 
+    (!(/*_#IS_A__L3*/ curfnum[1]));;
+   MELT_LOCATION("warmelt-outobj.melt:1861:/ cond");
+   /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1861:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1861:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1861:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1861:/ locexp");
+      melt_assert_failed(( "outputcod_objapply check curarg not objinstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1861)?(1861):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1861:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1861:/ clear");
+   /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1861:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1861:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L5*/ curfnum[1] = 
+  ((/*_#CURANK__L1*/ curfnum[0]) > (0));;
+ MELT_LOCATION("warmelt-outobj.melt:1862:/ cond");
+ /*cond*/ if (/*_#I__L5*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:1862:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:1862:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:1863:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1863:/ ojbmsend.arg");
+     argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+     /*_.CURCTYP__V7*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:1864:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:1864:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 
+       callcount;;
+      MELT_LOCATION("warmelt-outobj.melt:1864:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:1864:/ apply.arg");
+       argtab[0].bp_cstring =  "outputcod_objapply curctyp";
+       MELT_LOCATION("warmelt-outobj.melt:1864:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3];
+       MELT_LOCATION("warmelt-outobj.melt:1864:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-outobj.melt";
+       MELT_LOCATION("warmelt-outobj.melt:1864:/ apply.arg");
+       argtab[3].bp_long = 1864;
+       /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1864:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1864:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:1864:/ cppif.else");
+    /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:1865:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:1865:/ block");
+     /*block*/{
+      /*_#IS_A__L7*/ curfnum[3] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
+      MELT_LOCATION("warmelt-outobj.melt:1865:/ cond");
+      /*cond*/ if (/*_#IS_A__L7*/ curfnum[3]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:1865:/ cond.then");
+      /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:1865:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:1865:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:1865:/ locexp");
+         melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1865)?(1865):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1865:/ clear");
+      /*clear*/ /*_#IS_A__L7*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1865:/ clear");
+      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:1865:/ cppif.else");
+    /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_#GET_INT__L8*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+    MELT_LOCATION("warmelt-outobj.melt:1866:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1866:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-outobj.melt:1866:/ apply.arg");
+     argtab[1].bp_long = /*_#GET_INT__L8*/ curfnum[3];
+     MELT_LOCATION("warmelt-outobj.melt:1866:/ apply.arg");
+     argtab[2].bp_cstring =  "apply.arg";
+     /*_.OUTPUT_LOCATION__V12*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1867:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab["));}
+    ;
+    /*_#I__L9*/ curfnum[8] = 
+     ((/*_#CURANK__L1*/ curfnum[0]) - (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1868:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L9*/ curfnum[8]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1869:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1870:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V13*/ curfptr[12] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1870:/ locexp");
+    meltgc_append_list((melt_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V13*/ curfptr[12]));}
+    ;
+    /*_#NULL__L10*/ curfnum[9] = 
+     ((/*_.CURARG__V2*/ curfptr[1]) == NULL);;
+    MELT_LOCATION("warmelt-outobj.melt:1871:/ cond");
+    /*cond*/ if (/*_#NULL__L10*/ curfnum[9]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1871:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:1871:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1872:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
+       ;
+       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1871:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1871:/ block");
+     /*block*/{
+      /*_#IS_A__L11*/ curfnum[10] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[5])));;
+      MELT_LOCATION("warmelt-outobj.melt:1873:/ cond");
+      /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:1873:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:1873:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:1874:/ locexp");
+         meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = /*nil*/(melt_ptr_t*)NULL"));}
+         ;
+         /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:1873:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:1873:/ block");
+       /*block*/{
+        /*_#__L12*/ curfnum[11] = 
+         ((/*_.CURCTYP__V7*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[6])));;
+        MELT_LOCATION("warmelt-outobj.melt:1875:/ cond");
+        /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:1875:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:1875:/ block");
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-outobj.melt:1876:/ locexp");
+          meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
+          ;
+          /*_#GET_INT__L13*/ curfnum[12] = 
+           (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+          MELT_LOCATION("warmelt-outobj.melt:1877:/ msend");
+          /*msend*/{
+           union meltparam_un argtab[3];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-outobj.melt:1877:/ ojbmsend.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
+           MELT_LOCATION("warmelt-outobj.melt:1877:/ ojbmsend.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+           MELT_LOCATION("warmelt-outobj.melt:1877:/ ojbmsend.arg");
+           argtab[2].bp_long = /*_#GET_INT__L13*/ curfnum[12];
+           /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ block");
+          /*block*/{
+           /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_C_CODE__V17*/ curfptr[16];;}
+          ;
+          /*_.IFELSE___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:1875:/ cond.else");
+        
+         MELT_LOCATION("warmelt-outobj.melt:1875:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-outobj.melt:1880:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V19*/ curfptr[16] = slot; };
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-outobj.melt:1880:/ locexp");
+          meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V19*/ curfptr[16])));}
+          ;
+          
+          {
+          MELT_LOCATION("warmelt-outobj.melt:1881:/ locexp");
+          meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+          ;
+          /*_#GET_INT__L14*/ curfnum[12] = 
+           (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+          MELT_LOCATION("warmelt-outobj.melt:1882:/ msend");
+          /*msend*/{
+           union meltparam_un argtab[3];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-outobj.melt:1882:/ ojbmsend.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
+           MELT_LOCATION("warmelt-outobj.melt:1882:/ ojbmsend.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+           MELT_LOCATION("warmelt-outobj.melt:1882:/ ojbmsend.arg");
+           argtab[2].bp_long = /*_#GET_INT__L14*/ curfnum[12];
+           /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          MELT_LOCATION("warmelt-outobj.melt:1879:/ block");
+          /*block*/{
+           /*_.PROGN___V21*/ curfptr[20] = /*_.OUTPUT_C_CODE__V20*/ curfptr[17];;}
+          ;
+          /*_.IFELSE___V16*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_.CTYPE_ARGFIELD__V19*/ curfptr[16] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_#GET_INT__L14*/ curfnum[12] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
+          /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
+         ;
+         }
+        ;
+        /*_.IFELSE___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:1873:/ clear");
+        /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:1873:/ clear");
+        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1871:/ clear");
+      /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1871:/ clear");
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     ;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1884:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
+    ;
+    /*_#GET_INT__L15*/ curfnum[12] = 
+     (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1885:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L15*/ curfnum[12]), 0);}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_.CURCTYP__V7*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_#GET_INT__L8*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_.CTYPE_PARSTRING__V13*/ curfptr[12] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_#NULL__L10*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1863:/ clear");
+    /*clear*/ /*_#GET_INT__L15*/ curfnum[12] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
+ /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_74_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_75_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1891:/ getarg");
+ /*_.CURDEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1891:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:1892:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:1892:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:1892:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:1892:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1893:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1891:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1891:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_75_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_76_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1906:/ getarg");
+ /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1906:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1907:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:1908:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_76_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 50
+  void* varptr[50];
+#define CURFRAM_NBVARNUM 30
+  long varnum[30];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<50; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 50;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJMSEND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ getarg");
+ /*_.OMSEND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:1926:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1927:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1927:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:1927:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1927:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objmsend omsend";
+    MELT_LOCATION("warmelt-outobj.melt:1927:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:1927:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:1927:/ apply.arg");
+    argtab[3].bp_long = 1927;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1927:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1927:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1927:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:1928:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:1928:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMSEND*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:1928:/ cond");
+   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:1928:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:1928:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:1928:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1928:/ locexp");
+      melt_assert_failed(( "check omsend"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1928)?(1928):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1928:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1928:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:1928:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:1929:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1930:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ODEST__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1931:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 2, "OBMSND_SEL");/*_.OSEL__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1932:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 3, "OBMSND_RECV");/*_.ORECV__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:1933:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 4, "OBMSND_ARGS");/*_.OARGS__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#NBARG__L4*/ curfnum[1] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12])));;
+  /*_.PARAMDESCLIST__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_#I__L5*/ curfnum[4] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  /*_.BOXDEPTHP1__V15*/ curfptr[14] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L5*/ curfnum[4])));;
+  MELT_LOCATION("warmelt-outobj.melt:1938:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
+   argtab[2].bp_cstring =  "msend";
+   /*_.OUTPUT_LOCATION__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1939:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*msend*/{"));}
+  ;
+  /*_#I__L6*/ curfnum[5] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1940:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0);}
+  ;
+  /*_#I__L7*/ curfnum[6] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:1941:/ cond");
+  /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:1941:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:1941:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1946:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1947:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1948:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
+    ;
+    /*_#I__L8*/ curfnum[7] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1949:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1950:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
+    ;
+    /*_#I__L9*/ curfnum[8] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:1951:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OARGS__V13*/ curfptr[12]);
+   for (/*_#CURANK__L10*/ curfnum[9] = 0;  
+	(/*_#CURANK__L10*/ curfnum[9] >= 0) && (/*_#CURANK__L10*/ curfnum[9] <  cit1__EACHTUP_ln);  
+	/*_#CURANK__L10*/ curfnum[9]++) {
+   /*_.CURARG__V17*/ curfptr[16] = melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12]),  /*_#CURANK__L10*/ curfnum[9]);
+   
+    
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:1956:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:1956:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+        callcount;;
+       MELT_LOCATION("warmelt-outobj.melt:1956:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:1956:/ apply.arg");
+        argtab[0].bp_cstring =  "outputcod_objmsend curarg";
+        MELT_LOCATION("warmelt-outobj.melt:1956:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+        MELT_LOCATION("warmelt-outobj.melt:1956:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-outobj.melt";
+        MELT_LOCATION("warmelt-outobj.melt:1956:/ apply.arg");
+        argtab[3].bp_long = 1956;
+        /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:1956:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:1956:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:1956:/ cppif.else");
+     /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-outobj.melt:1957:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:1957:/ ojbmsend.arg");
+       argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+       /*_.CURCTYP__V20*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:1958:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:1958:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
+         callcount;;
+        MELT_LOCATION("warmelt-outobj.melt:1958:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:1958:/ apply.arg");
+         argtab[0].bp_cstring =  "outputcod_objmsend curctyp";
+         MELT_LOCATION("warmelt-outobj.melt:1958:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
+         MELT_LOCATION("warmelt-outobj.melt:1958:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-outobj.melt";
+         MELT_LOCATION("warmelt-outobj.melt:1958:/ apply.arg");
+         argtab[3].bp_long = 1958;
+         /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:1958:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:1958:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:1958:/ cppif.else");
+      /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:1959:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:1959:/ block");
+       /*block*/{
+        /*_#IS_A__L13*/ curfnum[10] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
+        MELT_LOCATION("warmelt-outobj.melt:1959:/ cond");
+        /*cond*/ if (/*_#IS_A__L13*/ curfnum[10]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:1959:/ cond.then");
+        /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-outobj.melt:1959:/ cond.else");
+        
+         MELT_LOCATION("warmelt-outobj.melt:1959:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-outobj.melt:1959:/ locexp");
+           melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1959)?(1959):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:1959:/ clear");
+        /*clear*/ /*_#IS_A__L13*/ curfnum[10] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:1959:/ clear");
+        /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:1959:/ cppif.else");
+      /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_#GET_INT__L14*/ curfnum[10] = 
+       (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
+      MELT_LOCATION("warmelt-outobj.melt:1960:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:1960:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+       MELT_LOCATION("warmelt-outobj.melt:1960:/ apply.arg");
+       argtab[1].bp_long = /*_#GET_INT__L14*/ curfnum[10];
+       MELT_LOCATION("warmelt-outobj.melt:1960:/ apply.arg");
+       argtab[2].bp_cstring =  "ojbmsend.arg";
+       /*_.OUTPUT_LOCATION__V25*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1961:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab["));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1962:/ locexp");
+      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#CURANK__L10*/ curfnum[9]));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1963:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:1964:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V26*/ curfptr[25] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1964:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V26*/ curfptr[25]));}
+      ;
+      /*_#NULL__L15*/ curfnum[14] = 
+       ((/*_.CURARG__V17*/ curfptr[16]) == NULL);;
+      MELT_LOCATION("warmelt-outobj.melt:1965:/ cond");
+      /*cond*/ if (/*_#NULL__L15*/ curfnum[14]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:1965:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:1965:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:1966:/ locexp");
+         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "bp_aptr = (melt_ptr_t*)NULL"));}
+         ;
+         /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:1965:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:1965:/ block");
+       /*block*/{
+        /*_#IS_A__L16*/ curfnum[15] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[7])));;
+        MELT_LOCATION("warmelt-outobj.melt:1968:/ cond");
+        /*cond*/ if (/*_#IS_A__L16*/ curfnum[15]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:1968:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:1968:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-outobj.melt:1969:/ locexp");
+           meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "bp_aptr = /*nil*/(melt_ptr_t*)NULL"));}
+           ;
+           /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:1968:/ cond.else");
+        
+         MELT_LOCATION("warmelt-outobj.melt:1968:/ block");
+         /*block*/{
+          /*_#__L17*/ curfnum[16] = 
+           ((/*_.CURCTYP__V20*/ curfptr[18]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[8])));;
+          MELT_LOCATION("warmelt-outobj.melt:1971:/ cond");
+          /*cond*/ if (/*_#__L17*/ curfnum[16]) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:1971:/ cond.then");
+          MELT_LOCATION("warmelt-outobj.melt:1971:/ block");
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-outobj.melt:1972:/ locexp");
+            meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "bp_aptr = (melt_ptr_t*) &"));}
+            ;
+            /*_#GET_INT__L18*/ curfnum[17] = 
+             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
+            MELT_LOCATION("warmelt-outobj.melt:1973:/ msend");
+            /*msend*/{
+             union meltparam_un argtab[3];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-outobj.melt:1973:/ ojbmsend.arg");
+             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+             MELT_LOCATION("warmelt-outobj.melt:1973:/ ojbmsend.arg");
+             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+             MELT_LOCATION("warmelt-outobj.melt:1973:/ ojbmsend.arg");
+             argtab[2].bp_long = /*_#GET_INT__L18*/ curfnum[17];
+             /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ block");
+            /*block*/{
+             /*_.PROGN___V31*/ curfptr[30] = /*_.OUTPUT_C_CODE__V30*/ curfptr[29];;}
+            ;
+            /*_.IFELSE___V29*/ curfptr[28] = /*_.PROGN___V31*/ curfptr[30];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_#GET_INT__L18*/ curfnum[17] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;}
+           ;
+          } else {MELT_LOCATION("warmelt-outobj.melt:1971:/ cond.else");
+          
+           MELT_LOCATION("warmelt-outobj.melt:1971:/ block");
+           /*block*/{
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-outobj.melt:1976:/ cppif.then");
+            MELT_LOCATION("warmelt-outobj.melt:1976:/ block");
+             /*block*/{
+              /*_#IS_MULTIPLE__L19*/ curfnum[17] = 
+               (melt_magic_discr((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16])) == OBMAG_MULTIPLE);;
+              /*_#NOT__L20*/ curfnum[19] = 
+               (!(/*_#IS_MULTIPLE__L19*/ curfnum[17]));;
+              MELT_LOCATION("warmelt-outobj.melt:1976:/ cond");
+              /*cond*/ if (/*_#NOT__L20*/ curfnum[19]) /*then*/ {
+              MELT_LOCATION("warmelt-outobj.melt:1976:/ cond.then");
+              /*_.IFELSE___V33*/ curfptr[30] = (/*nil*/NULL);;
+              } else {MELT_LOCATION("warmelt-outobj.melt:1976:/ cond.else");
+              
+               MELT_LOCATION("warmelt-outobj.melt:1976:/ block");
+               /*block*/{
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-outobj.melt:1976:/ locexp");
+                 melt_assert_failed(( "check curarg is not multiple"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1976)?(1976):__LINE__, __FUNCTION__);
+;}
+                 ;
+                 /*clear*/ /*_.IFELSE___V33*/ curfptr[30] = 0 ;}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFCPP___V32*/ curfptr[29] = /*_.IFELSE___V33*/ curfptr[30];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-outobj.melt:1976:/ clear");
+              /*clear*/ /*_#IS_MULTIPLE__L19*/ curfnum[17] = 0 ;
+              MELT_LOCATION("warmelt-outobj.melt:1976:/ clear");
+              /*clear*/ /*_#NOT__L20*/ curfnum[19] = 0 ;
+              MELT_LOCATION("warmelt-outobj.melt:1976:/ clear");
+              /*clear*/ /*_.IFELSE___V33*/ curfptr[30] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-outobj.melt:1976:/ cppif.else");
+            /*_.IFCPP___V32*/ curfptr[29] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            MELT_LOCATION("warmelt-outobj.melt:1977:/ getslot");
+            { melt_ptr_t slot=0;
+             melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V34*/ curfptr[30] = slot; };
+            ;
+            
+            {
+            MELT_LOCATION("warmelt-outobj.melt:1977:/ locexp");
+            meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V34*/ curfptr[30])));}
+            ;
+            
+            {
+            MELT_LOCATION("warmelt-outobj.melt:1978:/ locexp");
+            meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = "));}
+            ;
+            /*_#GET_INT__L21*/ curfnum[17] = 
+             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
+            MELT_LOCATION("warmelt-outobj.melt:1979:/ msend");
+            /*msend*/{
+             union meltparam_un argtab[3];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-outobj.melt:1979:/ ojbmsend.arg");
+             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+             MELT_LOCATION("warmelt-outobj.melt:1979:/ ojbmsend.arg");
+             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+             MELT_LOCATION("warmelt-outobj.melt:1979:/ ojbmsend.arg");
+             argtab[2].bp_long = /*_#GET_INT__L21*/ curfnum[17];
+             /*_.OUTPUT_C_CODE__V35*/ curfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            MELT_LOCATION("warmelt-outobj.melt:1975:/ block");
+            /*block*/{
+             /*_.PROGN___V36*/ curfptr[35] = /*_.OUTPUT_C_CODE__V35*/ curfptr[34];;}
+            ;
+            /*_.IFELSE___V29*/ curfptr[28] = /*_.PROGN___V36*/ curfptr[35];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_.IFCPP___V32*/ curfptr[29] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_.CTYPE_ARGFIELD__V34*/ curfptr[30] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_#GET_INT__L21*/ curfnum[17] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_.OUTPUT_C_CODE__V35*/ curfptr[34] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:1971:/ clear");
+            /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
+           ;
+           }
+          ;
+          /*_.IFELSE___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
+          /*clear*/ /*_#__L17*/ curfnum[16] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
+          /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
+         ;
+         }
+        ;
+        /*_.IFELSE___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:1965:/ clear");
+        /*clear*/ /*_#IS_A__L16*/ curfnum[15] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:1965:/ clear");
+        /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
+       ;
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1981:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+      ;
+      /*_#GET_INT__L22*/ curfnum[19] = 
+       (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:1982:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L22*/ curfnum[19]), 0);}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_.CURCTYP__V20*/ curfptr[18] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_#GET_INT__L14*/ curfnum[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_.OUTPUT_LOCATION__V25*/ curfptr[23] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_.CTYPE_PARSTRING__V26*/ curfptr[25] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_#NULL__L15*/ curfnum[14] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:1957:/ clear");
+      /*clear*/ /*_#GET_INT__L22*/ curfnum[19] = 0 ;}
+     ;
+     if (/*_#CURANK__L10*/ curfnum[9]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-outobj.melt:1953:/ clear");
+     /*clear*/ /*_.CURARG__V17*/ curfptr[16] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1953:/ clear");
+     /*clear*/ /*_#CURANK__L10*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:1953:/ clear");
+     /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:1945:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1941:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1941:/ clear");
+    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*citerblock FOREACH_IN_LIST*/ {
+  /* start cit2__EACHLIST */
+   for (/*_.CURPAIR__V37*/ curfptr[29] = melt_list_first(/*_.ODEST__V10*/ curfptr[9]);
+	melt_magic_discr(/*_.CURPAIR__V37*/ curfptr[29]) == OBMAG_PAIR;
+        /*_.CURPAIR__V37*/ curfptr[29] = melt_pair_tail(/*_.CURPAIR__V37*/ curfptr[29])) {
+	/*_.CURDEST__V38*/ curfptr[30] = melt_pair_head(/*_.CURPAIR__V37*/ curfptr[29]); 
+  
+   /*_#GET_INT__L23*/ curfnum[17] = 
+    (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
+   MELT_LOCATION("warmelt-outobj.melt:1989:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:1989:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:1989:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:1989:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#GET_INT__L23*/ curfnum[17];
+    /*_.OUTPUT_C_CODE__V39*/ curfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V38*/ curfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:1990:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = "));}
+   ;
+   } /* end cit2__EACHLIST */
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:1986:/ clear");
+   /*clear*/ /*_.CURPAIR__V37*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1986:/ clear");
+   /*clear*/ /*_.CURDEST__V38*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1986:/ clear");
+   /*clear*/ /*_#GET_INT__L23*/ curfnum[17] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:1986:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V39*/ curfptr[34] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1992:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1992:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:1992:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1992:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objmsend orecv";
+     MELT_LOCATION("warmelt-outobj.melt:1992:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[16];
+     MELT_LOCATION("warmelt-outobj.melt:1992:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:1992:/ apply.arg");
+     argtab[3].bp_long = 1992;
+     /*_.DEBUG_MSG_FUN__V41*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V40*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[28];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1992:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1992:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[28] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1992:/ cppif.else");
+  /*_.IFCPP___V40*/ curfptr[35] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1993:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1993:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:1993:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:1993:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objmsend oloc";
+     MELT_LOCATION("warmelt-outobj.melt:1993:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[15];
+     MELT_LOCATION("warmelt-outobj.melt:1993:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:1993:/ apply.arg");
+     argtab[3].bp_long = 1993;
+     /*_.DEBUG_MSG_FUN__V43*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V42*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1993:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1993:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1993:/ cppif.else");
+  /*_.IFCPP___V42*/ curfptr[27] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:1994:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:1994:/ block");
+   /*block*/{
+    /*_#IS_OBJECT__L26*/ curfnum[10] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11])) == OBMAG_OBJECT);;
+    MELT_LOCATION("warmelt-outobj.melt:1994:/ cond");
+    /*cond*/ if (/*_#IS_OBJECT__L26*/ curfnum[10]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:1994:/ cond.then");
+    /*_.IFELSE___V45*/ curfptr[21] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:1994:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:1994:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:1994:/ locexp");
+       melt_assert_failed(( "check orecv object"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (1994)?(1994):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V45*/ curfptr[21] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V44*/ curfptr[20] = /*_.IFELSE___V45*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:1994:/ clear");
+    /*clear*/ /*_#IS_OBJECT__L26*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:1994:/ clear");
+    /*clear*/ /*_.IFELSE___V45*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:1994:/ cppif.else");
+  /*_.IFCPP___V44*/ curfptr[20] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1996:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "meltgc_send((melt_ptr_t)("));}
+  ;
+  /*_#I__L27*/ curfnum[14] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  MELT_LOCATION("warmelt-outobj.melt:1997:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1997:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:1997:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1997:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L27*/ curfnum[14];
+   /*_.OUTPUT_C_CODE__V46*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:1998:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (melt_ptr_t)("));}
+  ;
+  /*_#I__L28*/ curfnum[19] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  MELT_LOCATION("warmelt-outobj.melt:1999:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:1999:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:1999:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:1999:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L28*/ curfnum[19];
+   /*_.OUTPUT_C_CODE__V47*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2000:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2004:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2004:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V49*/ curfptr[28] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2004:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ curfptr[28])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ curfptr[28])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V48*/ curfptr[26] = /*_.LAMBDA___V49*/ curfptr[28];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2002:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2002:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ curfptr[26];
+   /*_.LIST_EVERY__V50*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2007:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
+  ;
+  /*_#I__L29*/ curfnum[7] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2008:/ cond");
+  /*cond*/ if (/*_#I__L29*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2008:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2008:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2009:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2008:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2008:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2010:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0,"));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2012:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union meltparam_un*)0"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2013:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  /*_#I__L30*/ curfnum[8] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2014:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L30*/ curfnum[8]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2015:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2016:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.IFCPP___V40*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.IFCPP___V42*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.IFCPP___V44*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L27*/ curfnum[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V46*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L28*/ curfnum[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V47*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.LAMBDA___V48*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V50*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L29*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:1929:/ clear");
+  /*clear*/ /*_#I__L30*/ curfnum[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJMSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_78_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2004:/ getarg");
+ /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2004:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2005:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2006:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_78_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 48
+  void* varptr[48];
+#define CURFRAM_NBVARNUM 27
+  long varnum[27];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<48; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 48;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJMULTIAPPLY", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ getarg");
+ /*_.OAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2023:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2024:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2024:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2024:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2024:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2024:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2024:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2024:/ locexp");
+      melt_assert_failed(( "check oapp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2024)?(2024):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2024:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2024:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2024:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2025:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2025:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2025:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2025:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objmultiapply oapp";
+    MELT_LOCATION("warmelt-outobj.melt:2025:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2025:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2025:/ apply.arg");
+    argtab[3].bp_long = 2025;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2025:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2025:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2025:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2026:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2027:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ALOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2028:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ADEST__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2029:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 2, "OBAPP_CLOS");/*_.OCLOS__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2030:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 3, "OBAPP_ARGS");/*_.OARGS__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2031:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 4, "OBMULTAPP_XRES");/*_.OXRES__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#NBARG__L4*/ curfnum[1] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11])));;
+  /*_#NBXRES__L5*/ curfnum[4] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12])));;
+  /*_.PARAMDESCLIST__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_.RESDESCLIST__V15*/ curfptr[14] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_#I__L6*/ curfnum[5] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  /*_.BOXDEPTHP1__V16*/ curfptr[15] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L6*/ curfnum[5])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2038:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2038:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = 
+     ((/*_.OARGS__V12*/ curfptr[11]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11])) == OBMAG_MULTIPLE));;
+    MELT_LOCATION("warmelt-outobj.melt:2038:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2038:/ cond.then");
+    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2038:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2038:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2038:/ locexp");
+       melt_assert_failed(( "check oargs"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2038)?(2038):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2038:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2038:/ clear");
+    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2038:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2039:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2039:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = 
+     ((/*_.OXRES__V13*/ curfptr[12]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12])) == OBMAG_MULTIPLE));;
+    MELT_LOCATION("warmelt-outobj.melt:2039:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2039:/ cond.then");
+    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2039:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2039:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2039:/ locexp");
+       melt_assert_failed(( "check oxres"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2039)?(2039):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2039:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2039:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2039:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:2040:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2040:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2040:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2040:/ apply.arg");
+   argtab[2].bp_cstring =  "multiapply";
+   /*_.OUTPUT_LOCATION__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2041:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multiapply "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2042:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2043:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "args, "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2044:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2045:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "x.res*/ "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2046:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
+  ;
+  /*_#I__L9*/ curfnum[6] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2047:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[6]), 0);}
+  ;
+  /*_#I__L10*/ curfnum[9] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
+  MELT_LOCATION("warmelt-outobj.melt:2048:/ cond");
+  /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2048:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2048:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2050:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
+    ;
+    /*_#I__L11*/ curfnum[10] = 
+     ((/*_#NBARG__L4*/ curfnum[1]) - (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2051:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2052:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
+    ;
+    /*_#I__L12*/ curfnum[11] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2053:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L12*/ curfnum[11]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2049:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2048:/ clear");
+    /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2048:/ clear");
+    /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L13*/ curfnum[10] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2055:/ cond");
+  /*cond*/ if (/*_#I__L13*/ curfnum[10]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2055:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2055:/ block");
+   /*block*/{
+    /*_#I__L14*/ curfnum[11] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2057:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[11]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2058:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un restab["));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2059:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2060:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
+    ;
+    /*_#I__L15*/ curfnum[14] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2061:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2056:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2055:/ clear");
+    /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2055:/ clear");
+    /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L16*/ curfnum[11] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2063:/ cond");
+  /*cond*/ if (/*_#I__L16*/ curfnum[11]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2063:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2063:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2065:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));"));}
+    ;
+    /*_#I__L17*/ curfnum[14] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2066:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L17*/ curfnum[14]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2070:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:2070:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2070:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.RESDESCLIST__V15*/ curfptr[14]);
+     ;
+     /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2068:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2068:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[22];
+     /*_.MULTIPLE_EVERY__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2064:/ block");
+    /*block*/{
+     /*_.PROGN___V26*/ curfptr[25] = /*_.MULTIPLE_EVERY__V25*/ curfptr[24];;}
+    ;
+    /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V26*/ curfptr[25];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2063:/ clear");
+    /*clear*/ /*_#I__L17*/ curfnum[14] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2063:/ clear");
+    /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2063:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2063:/ clear");
+    /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2063:/ cond.else");
+  
+   /*_.IF___V22*/ curfptr[21] = NULL;;
+   }
+  ;
+  /*_#I__L18*/ curfnum[14] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
+  MELT_LOCATION("warmelt-outobj.melt:2073:/ cond");
+  /*cond*/ if (/*_#I__L18*/ curfnum[14]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2073:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2073:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2075:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
+    ;
+    /*_#I__L19*/ curfnum[18] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2076:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L19*/ curfnum[18]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2080:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:2080:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[24] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2080:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2080:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2080:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2080:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[3] = (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2080:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[4] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     /*_.LAMBDA___V27*/ curfptr[22] = /*_.LAMBDA___V28*/ curfptr[24];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2078:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2078:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[22];
+     /*_.MULTIPLE_EVERY__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#GET_INT__L20*/ curfnum[19] = 
+     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2105:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L20*/ curfnum[19]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2074:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2073:/ clear");
+    /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2073:/ clear");
+    /*clear*/ /*_.LAMBDA___V27*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2073:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2073:/ clear");
+    /*clear*/ /*_#GET_INT__L20*/ curfnum[19] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L21*/ curfnum[18] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2108:/ cond");
+  /*cond*/ if (/*_#I__L21*/ curfnum[18]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2108:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2108:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2112:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:2112:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[31] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2112:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[0] = (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2112:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2112:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2112:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[3] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     /*_.LAMBDA___V31*/ curfptr[25] = /*_.LAMBDA___V32*/ curfptr[31];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2110:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2110:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[25];
+     /*_.MULTIPLE_EVERY__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2109:/ block");
+    /*block*/{
+     /*_.PROGN___V34*/ curfptr[33] = /*_.MULTIPLE_EVERY__V33*/ curfptr[32];;}
+    ;
+    /*_.IF___V30*/ curfptr[22] = /*_.PROGN___V34*/ curfptr[33];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2108:/ clear");
+    /*clear*/ /*_.LAMBDA___V31*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2108:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V33*/ curfptr[32] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2108:/ clear");
+    /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2108:/ cond.else");
+  
+   /*_.IF___V30*/ curfptr[22] = NULL;;
+   }
+  ;
+  /*_#GET_INT__L22*/ curfnum[19] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15])));;
+  MELT_LOCATION("warmelt-outobj.melt:2137:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2137:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2137:/ apply.arg");
+   argtab[1].bp_long = /*_#GET_INT__L22*/ curfnum[19];
+   MELT_LOCATION("warmelt-outobj.melt:2137:/ apply.arg");
+   argtab[2].bp_cstring =  "multiapply.appl";
+   /*_.OUTPUT_LOCATION__V35*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2141:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2141:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[33] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2141:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2141:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2141:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]);
+   ;
+   /*_.LAMBDA___V36*/ curfptr[32] = /*_.LAMBDA___V37*/ curfptr[33];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2139:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2139:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[32];
+   /*_.LIST_EVERY__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.ADEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2145:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " melt_apply ((meltclosure_ptr_t)("));}
+  ;
+  /*_#I__L23*/ curfnum[22] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-outobj.melt:2146:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2146:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2146:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2146:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L23*/ curfnum[22];
+   /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2147:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2149:/ block");
+  /*block*/{
+   /*_.FIRSTARG__V41*/ curfptr[40] = 
+    (melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (0)));;
+   /*_#I__L24*/ curfnum[23] = 
+    ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+   MELT_LOCATION("warmelt-outobj.melt:2150:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2150:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:2150:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:2150:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#I__L24*/ curfnum[23];
+    /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V41*/ curfptr[40]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LET___V40*/ curfptr[39] = /*_.OUTPUT_C_CODE__V42*/ curfptr[41];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2149:/ clear");
+   /*clear*/ /*_.FIRSTARG__V41*/ curfptr[40] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2149:/ clear");
+   /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2149:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = 0 ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2152:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2156:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2156:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[41] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2156:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[41])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[41])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V43*/ curfptr[40] = /*_.LAMBDA___V44*/ curfptr[41];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2154:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2154:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[40];
+   /*_.LIST_EVERY__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2159:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
+  ;
+  /*_#I__L25*/ curfnum[23] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
+  MELT_LOCATION("warmelt-outobj.melt:2161:/ cond");
+  /*cond*/ if (/*_#I__L25*/ curfnum[23]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2161:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2161:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2162:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, ("));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2161:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2161:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2163:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0, ("));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2167:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2167:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2167:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2165:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2165:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45];
+   /*_.LIST_EVERY__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2170:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
+  ;
+  /*_#I__L26*/ curfnum[25] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2172:/ cond");
+  /*cond*/ if (/*_#I__L26*/ curfnum[25]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2172:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2172:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2173:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2172:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2172:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2174:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0"));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2175:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  /*_#I__L27*/ curfnum[26] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2176:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L27*/ curfnum[26]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2177:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2178:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.OXRES__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.RESDESCLIST__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L13*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L16*/ curfnum[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L18*/ curfnum[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L21*/ curfnum[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.IF___V30*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#GET_INT__L22*/ curfnum[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V35*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LAMBDA___V36*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LAMBDA___V43*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V45*/ curfptr[44] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L25*/ curfnum[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V48*/ curfptr[47] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L26*/ curfnum[25] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2026:/ clear");
+  /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJMULTIAPPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_80_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2070:/ getarg");
+ /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2070:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2070:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:2071:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2071:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2071:/ ojbmsend.arg");
+   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+   /*_.CURCTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2072:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V3*/ curfptr[2]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V4*/ curfptr[3] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2072:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~RESDESCLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V4*/ curfptr[3]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2071:/ clear");
+  /*clear*/ /*_.CURCTYP__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2071:/ clear");
+  /*clear*/ /*_.CTYPE_PARSTRING__V4*/ curfptr[3] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_80_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_81_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ getarg");
+ /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2080:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2081:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2081:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2081:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2081:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objmultiapply curarg";
+    MELT_LOCATION("warmelt-outobj.melt:2081:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2081:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2081:/ apply.arg");
+    argtab[3].bp_long = 2081;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2081:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2081:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2081:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#I__L3*/ curfnum[1] = 
+  ((/*_#CURANK__L1*/ curfnum[0]) > (0));;
+ MELT_LOCATION("warmelt-outobj.melt:2082:/ cond");
+ /*cond*/ if (/*_#I__L3*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:2082:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:2082:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2083:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2083:/ ojbmsend.arg");
+     argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+     /*_.CURCTYP__V5*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:2084:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:2084:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
+       callcount;;
+      MELT_LOCATION("warmelt-outobj.melt:2084:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2084:/ apply.arg");
+       argtab[0].bp_cstring =  "outpucod_objmultiapply curctyp";
+       MELT_LOCATION("warmelt-outobj.melt:2084:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
+       MELT_LOCATION("warmelt-outobj.melt:2084:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-outobj.melt";
+       MELT_LOCATION("warmelt-outobj.melt:2084:/ apply.arg");
+       argtab[3].bp_long = 2084;
+       /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2084:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2084:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:2084:/ cppif.else");
+    /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:2085:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:2085:/ block");
+     /*block*/{
+      /*_#IS_A__L5*/ curfnum[3] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
+      MELT_LOCATION("warmelt-outobj.melt:2085:/ cond");
+      /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:2085:/ cond.then");
+      /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:2085:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:2085:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:2085:/ locexp");
+         melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2085)?(2085):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2085:/ clear");
+      /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2085:/ clear");
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:2085:/ cppif.else");
+    /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    /*_#GET_INT__L6*/ curfnum[3] = 
+     (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+    MELT_LOCATION("warmelt-outobj.melt:2086:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2086:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+     MELT_LOCATION("warmelt-outobj.melt:2086:/ apply.arg");
+     argtab[1].bp_long = /*_#GET_INT__L6*/ curfnum[3];
+     MELT_LOCATION("warmelt-outobj.melt:2086:/ apply.arg");
+     argtab[2].bp_cstring =  "multiapply.arg";
+     /*_.OUTPUT_LOCATION__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2087:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab["));}
+    ;
+    /*_#I__L7*/ curfnum[6] = 
+     ((/*_#CURANK__L1*/ curfnum[0]) - (1));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2088:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L7*/ curfnum[6]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2089:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2090:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V11*/ curfptr[10] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2090:/ locexp");
+    meltgc_append_list((melt_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V11*/ curfptr[10]));}
+    ;
+    /*_#NULL__L8*/ curfnum[7] = 
+     ((/*_.CURARG__V2*/ curfptr[1]) == NULL);;
+    MELT_LOCATION("warmelt-outobj.melt:2092:/ cond");
+    /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2092:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2092:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2093:/ locexp");
+       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2092:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2092:/ block");
+     /*block*/{
+      /*_#__L9*/ curfnum[8] = 
+       ((/*_.CURCTYP__V5*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
+      MELT_LOCATION("warmelt-outobj.melt:2094:/ cond");
+      /*cond*/ if (/*_#__L9*/ curfnum[8]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:2094:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:2094:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:2095:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
+        ;
+        /*_#GET_INT__L10*/ curfnum[9] = 
+         (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+        MELT_LOCATION("warmelt-outobj.melt:2096:/ msend");
+        /*msend*/{
+         union meltparam_un argtab[3];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:2096:/ ojbmsend.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
+         MELT_LOCATION("warmelt-outobj.melt:2096:/ ojbmsend.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+         MELT_LOCATION("warmelt-outobj.melt:2096:/ ojbmsend.arg");
+         argtab[2].bp_long = /*_#GET_INT__L10*/ curfnum[9];
+         /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ block");
+        /*block*/{
+         /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[13];;}
+        ;
+        /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V15*/ curfptr[14];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:2094:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:2094:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-outobj.melt:2099:/ getslot");
+        { melt_ptr_t slot=0;
+         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = slot; };
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:2099:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V16*/ curfptr[13])));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:2100:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+        ;
+        /*_#GET_INT__L11*/ curfnum[9] = 
+         (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+        MELT_LOCATION("warmelt-outobj.melt:2101:/ msend");
+        /*msend*/{
+         union meltparam_un argtab[3];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:2101:/ ojbmsend.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
+         MELT_LOCATION("warmelt-outobj.melt:2101:/ ojbmsend.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+         MELT_LOCATION("warmelt-outobj.melt:2101:/ ojbmsend.arg");
+         argtab[2].bp_long = /*_#GET_INT__L11*/ curfnum[9];
+         /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:2098:/ block");
+        /*block*/{
+         /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_C_CODE__V17*/ curfptr[14];;}
+        ;
+        /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_#GET_INT__L11*/ curfnum[9] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
+        /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2092:/ clear");
+      /*clear*/ /*_#__L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2092:/ clear");
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2103:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_.CURCTYP__V5*/ curfptr[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_.CTYPE_PARSTRING__V11*/ curfptr[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2083:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ clear");
+ /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_81_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_82_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ getarg");
+ /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2112:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:2113:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2113:/ ojbmsend.arg");
+   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+   /*_.CURESTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2114:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2114:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:2114:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2114:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objmultiapply curestyp";
+     MELT_LOCATION("warmelt-outobj.melt:2114:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+     MELT_LOCATION("warmelt-outobj.melt:2114:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:2114:/ apply.arg");
+     argtab[3].bp_long = 2114;
+     /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2114:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2114:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2114:/ cppif.else");
+  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2115:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2115:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:2115:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2115:/ cond.then");
+    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2115:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2115:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2115:/ locexp");
+       melt_assert_failed(( "check curestyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2115)?(2115):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2115:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2115:/ clear");
+    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2115:/ cppif.else");
+  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#GET_INT__L4*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+  MELT_LOCATION("warmelt-outobj.melt:2116:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2116:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-outobj.melt:2116:/ apply.arg");
+   argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1];
+   MELT_LOCATION("warmelt-outobj.melt:2116:/ apply.arg");
+   argtab[2].bp_cstring =  "multiapply.xres";
+   /*_.OUTPUT_LOCATION__V8*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2117:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab["));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2118:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2119:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
+  ;
+  /*_#NULL__L5*/ curfnum[4] = 
+   ((/*_.CURES__V2*/ curfptr[1]) == NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:2121:/ cond");
+  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2121:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2121:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:2122:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
+     ;
+     /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2121:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2121:/ block");
+   /*block*/{
+    /*_#__L6*/ curfnum[5] = 
+     ((/*_.CURESTYP__V3*/ curfptr[2]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:2123:/ cond");
+    /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2123:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2123:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2124:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
+      ;
+      /*_#GET_INT__L7*/ curfnum[6] = 
+       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+      MELT_LOCATION("warmelt-outobj.melt:2125:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2125:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
+       MELT_LOCATION("warmelt-outobj.melt:2125:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-outobj.melt:2125:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
+       /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ block");
+      /*block*/{
+       /*_.PROGN___V12*/ curfptr[11] = /*_.OUTPUT_C_CODE__V11*/ curfptr[10];;}
+      ;
+      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V12*/ curfptr[11];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2123:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2123:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:2128:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V13*/ curfptr[10] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2128:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V13*/ curfptr[10])));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2129:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " =  & "));}
+      ;
+      /*_#GET_INT__L8*/ curfnum[6] = 
+       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+      MELT_LOCATION("warmelt-outobj.melt:2130:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2130:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
+       MELT_LOCATION("warmelt-outobj.melt:2130:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-outobj.melt:2130:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[6];
+       /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2127:/ block");
+      /*block*/{
+       /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[11];;}
+      ;
+      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_.CTYPE_RESFIELD__V13*/ curfptr[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2123:/ clear");
+      /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2121:/ clear");
+    /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2121:/ clear");
+    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2132:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
+  ;
+  /*_#GET_INT__L9*/ curfnum[6] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2133:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L9*/ curfnum[6]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_.CURESTYP__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2113:/ clear");
+  /*clear*/ /*_#GET_INT__L9*/ curfnum[6] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_82_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_83_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2141:/ getarg");
+ /*_.CURDEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2141:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:2142:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:2142:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:2142:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:2142:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2143:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2141:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2141:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_83_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_84_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2156:/ getarg");
+ /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2156:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2157:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2158:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_84_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_85_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2167:/ getarg");
+ /*_.RESD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2167:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2168:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.RESD__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2169:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_85_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 43
+  void* varptr[43];
+#define CURFRAM_NBVARNUM 24
+  long varnum[24];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<43; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 43;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJMULTIMSEND", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ getarg");
+ /*_.OMSND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2187:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2188:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2188:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2188:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2188:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2188:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2188:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2188:/ locexp");
+      melt_assert_failed(( "check omsnd"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2188)?(2188):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2188:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2188:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2188:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2189:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2189:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2189:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2189:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objmultimsend omsnd";
+    MELT_LOCATION("warmelt-outobj.melt:2189:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2189:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2189:/ apply.arg");
+    argtab[3].bp_long = 2189;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2189:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2189:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2189:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2190:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2191:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ODEST__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2192:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 2, "OBMSND_SEL");/*_.OSEL__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2193:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 3, "OBMSND_RECV");/*_.ORECV__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2194:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 4, "OBMSND_ARGS");/*_.OARGS__V13*/ curfptr[12] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2195:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 5, "OBMULTSND_XRES");/*_.OXRES__V14*/ curfptr[13] = slot; };
+  ;
+  /*_#NBARG__L4*/ curfnum[1] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12])));;
+  /*_#NBXRES__L5*/ curfnum[4] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.OXRES__V14*/ curfptr[13])));;
+  /*_.PARAMDESCLIST__V15*/ curfptr[14] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_.RESDESCLIST__V16*/ curfptr[15] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_#I__L6*/ curfnum[5] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  /*_.BOXDEPTHP1__V17*/ curfptr[16] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L6*/ curfnum[5])));;
+  MELT_LOCATION("warmelt-outobj.melt:2202:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2202:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2202:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2202:/ apply.arg");
+   argtab[2].bp_cstring =  "multimsend";
+   /*_.OUTPUT_LOCATION__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2203:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multimsend*/{"));}
+  ;
+  /*_#I__L7*/ curfnum[6] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2204:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0);}
+  ;
+  /*_#I__L8*/ curfnum[7] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2205:/ cond");
+  /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2205:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2205:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2207:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2208:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2209:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
+    ;
+    /*_#I__L9*/ curfnum[8] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2210:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2206:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2205:/ clear");
+    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L10*/ curfnum[8] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2212:/ cond");
+  /*cond*/ if (/*_#I__L10*/ curfnum[8]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2212:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2212:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2214:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un restab["));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2215:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2216:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
+    ;
+    /*_#I__L11*/ curfnum[10] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2217:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2221:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:2221:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2221:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.RESDESCLIST__V16*/ curfptr[15]);
+     ;
+     /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2219:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2219:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
+     /*_.MULTIPLE_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2213:/ block");
+    /*block*/{
+     /*_.PROGN___V23*/ curfptr[22] = /*_.MULTIPLE_EVERY__V22*/ curfptr[21];;}
+    ;
+    /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V23*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2212:/ clear");
+    /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2212:/ clear");
+    /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2212:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2212:/ clear");
+    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2212:/ cond.else");
+  
+   /*_.IF___V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  /*_#I__L12*/ curfnum[10] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2225:/ cond");
+  /*cond*/ if (/*_#I__L12*/ curfnum[10]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2225:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2225:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2227:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
+    ;
+    /*_#I__L13*/ curfnum[12] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2228:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2226:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2225:/ clear");
+    /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L14*/ curfnum[12] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2229:/ cond");
+  /*cond*/ if (/*_#I__L14*/ curfnum[12]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2229:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2229:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2231:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));"));}
+    ;
+    /*_#I__L15*/ curfnum[14] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2232:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2230:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2229:/ clear");
+    /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L16*/ curfnum[14] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2234:/ cond");
+  /*cond*/ if (/*_#I__L16*/ curfnum[14]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2234:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2234:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2239:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:2239:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[21] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2239:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2239:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2239:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2239:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[3] = (melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ curfptr[14]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2239:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[4] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     /*_.LAMBDA___V24*/ curfptr[19] = /*_.LAMBDA___V25*/ curfptr[21];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2237:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2237:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[19];
+     /*_.MULTIPLE_EVERY__V26*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_#GET_INT__L17*/ curfnum[16] = 
+     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16])));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2263:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L17*/ curfnum[16]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2235:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2234:/ clear");
+    /*clear*/ /*_.LAMBDA___V24*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2234:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2234:/ clear");
+    /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L18*/ curfnum[16] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2266:/ cond");
+  /*cond*/ if (/*_#I__L18*/ curfnum[16]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2266:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2266:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2270:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:2270:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2270:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2270:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2270:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:2270:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[3] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+     ;
+     /*_.LAMBDA___V28*/ curfptr[22] = /*_.LAMBDA___V29*/ curfptr[28];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2268:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2268:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[22];
+     /*_.MULTIPLE_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2267:/ block");
+    /*block*/{
+     /*_.PROGN___V31*/ curfptr[30] = /*_.MULTIPLE_EVERY__V30*/ curfptr[29];;}
+    ;
+    /*_.IF___V27*/ curfptr[19] = /*_.PROGN___V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2266:/ clear");
+    /*clear*/ /*_.LAMBDA___V28*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2266:/ clear");
+    /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2266:/ clear");
+    /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2266:/ cond.else");
+  
+   /*_.IF___V27*/ curfptr[19] = NULL;;
+   }
+  ;
+  /*_#GET_INT__L19*/ curfnum[18] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16])));;
+  MELT_LOCATION("warmelt-outobj.melt:2295:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2295:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2295:/ apply.arg");
+   argtab[1].bp_long = /*_#GET_INT__L19*/ curfnum[18];
+   MELT_LOCATION("warmelt-outobj.melt:2295:/ apply.arg");
+   argtab[2].bp_cstring =  "multimsend.send";
+   /*_.OUTPUT_LOCATION__V32*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2299:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2299:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[30] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2299:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2299:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2299:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]);
+   ;
+   /*_.LAMBDA___V33*/ curfptr[29] = /*_.LAMBDA___V34*/ curfptr[30];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2297:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2297:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[29];
+   /*_.LIST_EVERY__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.ODEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2303:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " meltgc_send ((melt_ptr_t)("));}
+  ;
+  /*_#I__L20*/ curfnum[19] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-outobj.melt:2304:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2304:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2304:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2304:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L20*/ curfnum[19];
+   /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2305:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ((melt_ptr_t)("));}
+  ;
+  /*_#I__L21*/ curfnum[20] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  MELT_LOCATION("warmelt-outobj.melt:2307:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2307:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2307:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2307:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L21*/ curfnum[20];
+   /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2308:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")), ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2312:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2312:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V39*/ curfptr[38] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2312:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ curfptr[38])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ curfptr[38])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ curfptr[38])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V38*/ curfptr[37] = /*_.LAMBDA___V39*/ curfptr[38];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2310:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2310:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ curfptr[37];
+   /*_.LIST_EVERY__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2315:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
+  ;
+  /*_#I__L22*/ curfnum[21] = 
+   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2317:/ cond");
+  /*cond*/ if (/*_#I__L22*/ curfnum[21]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2317:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2317:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2318:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, ("));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2317:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2317:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2319:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0, ("));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2323:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2323:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2323:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V41*/ curfptr[40] = /*_.LAMBDA___V42*/ curfptr[41];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2321:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2321:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[40];
+   /*_.LIST_EVERY__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2326:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
+  ;
+  /*_#I__L23*/ curfnum[22] = 
+   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2328:/ cond");
+  /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2328:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2328:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2329:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab"));}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2328:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2328:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2330:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0"));}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2331:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  /*_#I__L24*/ curfnum[23] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2332:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L24*/ curfnum[23]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2333:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2334:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OXRES__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.PARAMDESCLIST__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.RESDESCLIST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L12*/ curfnum[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.IF___V27*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#GET_INT__L19*/ curfnum[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V32*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.LAMBDA___V33*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V35*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.LAMBDA___V38*/ curfptr[37] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V40*/ curfptr[39] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.LAMBDA___V41*/ curfptr[40] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V43*/ curfptr[42] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2190:/ clear");
+  /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJMULTIMSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_87_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 4
+  void* varptr[4];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<4; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 4;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2221:/ getarg");
+ /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2221:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2221:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:2222:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2222:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2222:/ ojbmsend.arg");
+   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+   /*_.CURESTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2223:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V4*/ curfptr[3] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2223:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~RESDESCLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V4*/ curfptr[3]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2222:/ clear");
+  /*clear*/ /*_.CURESTYP__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2222:/ clear");
+  /*clear*/ /*_.CTYPE_PARSTRING__V4*/ curfptr[3] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_87_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_88_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ getarg");
+ /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2239:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2240:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2240:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2240:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2240:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objmultimsend curarg";
+    MELT_LOCATION("warmelt-outobj.melt:2240:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2240:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2240:/ apply.arg");
+    argtab[3].bp_long = 2240;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2240:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2240:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2240:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2241:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2241:/ ojbmsend.arg");
+   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+   /*_.CURCTYP__V5*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2242:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2242:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:2242:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2242:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objmultimsend curctyp";
+     MELT_LOCATION("warmelt-outobj.melt:2242:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+     MELT_LOCATION("warmelt-outobj.melt:2242:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:2242:/ apply.arg");
+     argtab[3].bp_long = 2242;
+     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2242:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2242:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2242:/ cppif.else");
+  /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2243:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2243:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:2243:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2243:/ cond.then");
+    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2243:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2243:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2243:/ locexp");
+       melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2243)?(2243):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2243:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2243:/ clear");
+    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2243:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#GET_INT__L5*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+  MELT_LOCATION("warmelt-outobj.melt:2244:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2244:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-outobj.melt:2244:/ apply.arg");
+   argtab[1].bp_long = /*_#GET_INT__L5*/ curfnum[1];
+   MELT_LOCATION("warmelt-outobj.melt:2244:/ apply.arg");
+   argtab[2].bp_cstring =  "multimsend.arg";
+   /*_.OUTPUT_LOCATION__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2245:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab["));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2246:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2247:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2248:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V11*/ curfptr[10] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2248:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V11*/ curfptr[10]));}
+  ;
+  /*_#NULL__L6*/ curfnum[5] = 
+   ((/*_.CURARG__V2*/ curfptr[1]) == NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:2250:/ cond");
+  /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2250:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2250:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:2251:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
+     ;
+     /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2250:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2250:/ block");
+   /*block*/{
+    /*_#__L7*/ curfnum[6] = 
+     ((/*_.CURCTYP__V5*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:2252:/ cond");
+    /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2252:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2252:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2253:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
+      ;
+      /*_#GET_INT__L8*/ curfnum[7] = 
+       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+      MELT_LOCATION("warmelt-outobj.melt:2254:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2254:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
+       MELT_LOCATION("warmelt-outobj.melt:2254:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-outobj.melt:2254:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7];
+       /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ block");
+      /*block*/{
+       /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[13];;}
+      ;
+      /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2252:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2252:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:2257:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2257:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V16*/ curfptr[13])));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2258:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+      ;
+      /*_#GET_INT__L9*/ curfnum[7] = 
+       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+      MELT_LOCATION("warmelt-outobj.melt:2259:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2259:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
+       MELT_LOCATION("warmelt-outobj.melt:2259:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-outobj.melt:2259:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#GET_INT__L9*/ curfnum[7];
+       /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2256:/ block");
+      /*block*/{
+       /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_C_CODE__V17*/ curfptr[14];;}
+      ;
+      /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
+      /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2250:/ clear");
+    /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2250:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2261:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_.CURCTYP__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_.CTYPE_PARSTRING__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2241:/ clear");
+  /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_88_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_89_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 15
+  void* varptr[15];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<15; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 15;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ getarg");
+ /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2270:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:2271:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2271:/ ojbmsend.arg");
+   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+   /*_.CURESTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2272:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2272:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:2272:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2272:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objmultimsend curestyp";
+     MELT_LOCATION("warmelt-outobj.melt:2272:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+     MELT_LOCATION("warmelt-outobj.melt:2272:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:2272:/ apply.arg");
+     argtab[3].bp_long = 2272;
+     /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2272:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2272:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2272:/ cppif.else");
+  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2273:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2273:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:2273:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2273:/ cond.then");
+    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2273:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2273:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2273:/ locexp");
+       melt_assert_failed(( "check curestyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2273)?(2273):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2273:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2273:/ clear");
+    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2273:/ cppif.else");
+  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#GET_INT__L4*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+  MELT_LOCATION("warmelt-outobj.melt:2274:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2274:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-outobj.melt:2274:/ apply.arg");
+   argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1];
+   MELT_LOCATION("warmelt-outobj.melt:2274:/ apply.arg");
+   argtab[2].bp_cstring =  "multimsend.xres";
+   /*_.OUTPUT_LOCATION__V8*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2275:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab["));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2276:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2277:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
+  ;
+  /*_#NULL__L5*/ curfnum[4] = 
+   ((/*_.CURES__V2*/ curfptr[1]) == NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:2279:/ cond");
+  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2279:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2279:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:2280:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
+     ;
+     /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2279:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2279:/ block");
+   /*block*/{
+    /*_#__L6*/ curfnum[5] = 
+     ((/*_.CURESTYP__V3*/ curfptr[2]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:2282:/ cond");
+    /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2282:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2282:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2283:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
+      ;
+      /*_#GET_INT__L7*/ curfnum[6] = 
+       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+      MELT_LOCATION("warmelt-outobj.melt:2284:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2284:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
+       MELT_LOCATION("warmelt-outobj.melt:2284:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-outobj.melt:2284:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
+       /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ block");
+      /*block*/{
+       /*_.PROGN___V12*/ curfptr[11] = /*_.OUTPUT_C_CODE__V11*/ curfptr[10];;}
+      ;
+      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V12*/ curfptr[11];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2282:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2282:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:2287:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V13*/ curfptr[10] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2287:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V13*/ curfptr[10])));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2288:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+      ;
+      /*_#GET_INT__L8*/ curfnum[6] = 
+       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+      MELT_LOCATION("warmelt-outobj.melt:2289:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2289:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
+       MELT_LOCATION("warmelt-outobj.melt:2289:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+       MELT_LOCATION("warmelt-outobj.melt:2289:/ ojbmsend.arg");
+       argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[6];
+       /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2286:/ block");
+      /*block*/{
+       /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[11];;}
+      ;
+      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_.CTYPE_RESFIELD__V13*/ curfptr[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
+      /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2279:/ clear");
+    /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2279:/ clear");
+    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2291:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_.CURESTYP__V3*/ curfptr[2] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2271:/ clear");
+  /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_89_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_90_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2299:/ getarg");
+ /*_.CURDEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2299:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:2300:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:2300:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:2300:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:2300:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2301:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2299:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2299:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_90_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_91_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2312:/ getarg");
+ /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2312:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2313:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2314:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_91_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_92_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 2
+  void* varptr[2];
+/*no varnum*/
+#define CURFRAM_NBVARNUM /*none*/0
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<2; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 2;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2323:/ getarg");
+ /*_.RESD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2323:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2324:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.RESD__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2325:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
+ ;
+ /*epilog*/}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_92_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJCLEAR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ getarg");
+ /*_.OCLEAR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2341:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2342:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2342:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2342:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2342:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2342:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2342:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2342:/ locexp");
+      melt_assert_failed(( "check oclear"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2342)?(2342):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2342:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2342:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2342:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2343:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2343:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2343:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2343:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objclear oclear";
+    MELT_LOCATION("warmelt-outobj.melt:2343:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2343:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2343:/ apply.arg");
+    argtab[3].bp_long = 2343;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2343:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2343:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2343:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2344:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2344:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2345:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), 1, "OCLR_VLOC");/*_.CVL__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2347:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2347:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2347:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2347:/ apply.arg");
+   argtab[2].bp_cstring =  "clear";
+   /*_.OUTPUT_LOCATION__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2348:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*clear*/ "));}
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  MELT_LOCATION("warmelt-outobj.melt:2349:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2349:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2349:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2349:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#I__L4*/ curfnum[1];
+   /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.CVL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2350:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = 0 "));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2344:/ clear");
+  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2344:/ clear");
+  /*clear*/ /*_.CVL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2344:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2344:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2344:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJCLEAR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJRAWALLOCOBJ", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ getarg");
+ /*_.ORALOB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2356:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2357:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2357:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJRAWALLOCOBJ*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2357:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2357:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2357:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2357:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2357:/ locexp");
+      melt_assert_failed(( "check oralob"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2357)?(2357):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2357:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2357:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2357:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2358:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2358:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2358:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objrawallocobj oralob";
+    MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
+    argtab[3].bp_long = 2358;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2358:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2358:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2358:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2359:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2360:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 2, "OBRALLOBJ_CLASS");/*_.ICLASS__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2361:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 4, "OBRALLOBJ_CLASSNAME");/*_.ICLANAME__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2362:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 3, "OBRALLOBJ_LEN");/*_.ILEN__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2363:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V14*/ curfptr[13] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2366:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2366:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[4] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.ICLASS__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:2366:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2366:/ cond.then");
+    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2366:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2366:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2366:/ locexp");
+       melt_assert_failed(( "outpucod_objrawallocobj check iclass"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2366)?(2366):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2366:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2366:/ clear");
+    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2366:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:2367:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2367:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2367:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2367:/ apply.arg");
+   argtab[2].bp_cstring =  "rawallocobj";
+   /*_.OUTPUT_LOCATION__V17*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2368:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*rawallocobj*/ { melt_ptr_t newobj = 0;"));}
+  ;
+  /*_#I__L6*/ curfnum[4] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2369:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[4]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2370:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_raw_object_create(newobj,(melt_ptr_t)("));}
+  ;
+  /*_#GET_INT__L7*/ curfnum[6] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-outobj.melt:2371:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2371:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2371:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2371:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
+   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.ICLASS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2372:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+  ;
+  /*_#GET_INT__L8*/ curfnum[7] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-outobj.melt:2373:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2373:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2373:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2373:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.ILEN__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2374:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \""));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2375:/ locexp");
+  meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ICLANAME__V11*/ curfptr[10])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2376:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2379:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2379:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2379:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2379:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2379:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
+   ;
+   /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2377:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2377:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
+   /*_.LIST_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.DESTLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#I__L9*/ curfnum[8] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2382:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2383:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "newobj; };"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2384:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.ICLASS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.ICLANAME__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.ILEN__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2359:/ clear");
+  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJRAWALLOCOBJ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_95_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2379:/ getarg");
+ /*_.DST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2379:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:2380:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:2380:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:2380:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:2380:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2381:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " ="));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2379:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2379:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_95_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJNEWCLOSURE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ getarg");
+ /*_.OBNCLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2390:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2391:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2391:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJNEWCLOSURE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2391:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2391:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2391:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2391:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2391:/ locexp");
+      melt_assert_failed(( "check oralob"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2391)?(2391):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2391:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2391:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2391:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2392:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2392:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2392:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2392:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objnewclosure obnclo";
+    MELT_LOCATION("warmelt-outobj.melt:2392:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2392:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2392:/ apply.arg");
+    argtab[3].bp_long = 2392;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2392:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2392:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2392:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2393:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2394:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 2, "OBNCLO_DISCR");/*_.ODISCR__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2395:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 3, "OBNCLO_ROUT");/*_.OROUT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2396:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 4, "OBNCLO_LEN");/*_.OLEN__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2397:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V13*/ curfptr[12] = slot; };
+  ;
+  /*_#I__L4*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V14*/ curfptr[13] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:2400:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2400:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2400:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2400:/ apply.arg");
+   argtab[2].bp_cstring =  "newclosure";
+   /*_.OUTPUT_LOCATION__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2401:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " /*newclosure*/ "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2404:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2404:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2402:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2402:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.LIST_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.DESTLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#I__L5*/ curfnum[4] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2407:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L5*/ curfnum[4]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2408:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "meltgc_new_closure((meltobject_ptr_t)("));}
+  ;
+  /*_#GET_INT__L6*/ curfnum[5] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-outobj.melt:2409:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2409:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2409:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2409:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#GET_INT__L6*/ curfnum[5];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.ODISCR__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2410:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (meltroutine_ptr_t)("));}
+  ;
+  /*_#GET_INT__L7*/ curfnum[6] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-outobj.melt:2411:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2411:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2411:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2411:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
+   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2412:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+  ;
+  /*_#GET_INT__L8*/ curfnum[7] = 
+   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-outobj.melt:2413:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2413:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2413:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2413:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7];
+   /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OLEN__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2414:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2415:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.ODISCR__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.OLEN__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2393:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJNEWCLOSURE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_97_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2404:/ getarg");
+ /*_.DST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2404:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:2405:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:2405:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:2405:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:2405:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2406:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " ="));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_97_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJTOUCH", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ getarg");
+ /*_.OTOUCH__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2420:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2421:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2421:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2421:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2421:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2421:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2421:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2421:/ locexp");
+      melt_assert_failed(( "check oclear"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2421)?(2421):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2421:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2421:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2421:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2422:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2422:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2423:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 1, "OTOUCH_VAL");/*_.TOUCHED__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2424:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 2, "OTOUCH_COMMENT");/*_.COMM__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2426:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2426:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2426:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2426:/ apply.arg");
+   argtab[2].bp_cstring =  "touch";
+   /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ILOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2427:/ cond");
+  /*cond*/ if (/*_.COMM__V9*/ curfptr[8]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2427:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2427:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2429:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*touch:"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2430:/ locexp");
+    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.COMM__V9*/ curfptr[8])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2431:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2432:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2428:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2434:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "meltgc_touch("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2435:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2435:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2435:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2435:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.TOUCHED__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2436:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2437:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2422:/ clear");
+  /*clear*/ /*_.ILOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2422:/ clear");
+  /*clear*/ /*_.TOUCHED__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2422:/ clear");
+  /*clear*/ /*_.COMM__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2422:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2422:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJTOUCH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ getarg");
+ /*_.OPTUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2445:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2446:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2446:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTUPLE*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2446:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2446:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2446:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2446:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2446:/ locexp");
+      melt_assert_failed(( "check optyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2446)?(2446):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2446:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2446:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2446:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2447:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2447:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2447:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2447:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objputuple optup";
+    MELT_LOCATION("warmelt-outobj.melt:2447:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2447:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2447:/ apply.arg");
+    argtab[3].bp_long = 2447;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2447:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2447:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2447:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2448:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2449:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 1, "OPUTU_TUPLED");/*_.OTUP__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2450:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 2, "OPUTU_OFFSET");/*_.OOFF__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2451:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 3, "OPUTU_VALUE");/*_.OVAL__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2452:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2452:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2452:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2452:/ apply.arg");
+   argtab[2].bp_cstring =  "putuple";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2453:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putupl*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2454:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2455:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putupl checktup\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2456:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2456:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2456:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2456:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2457:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))== OBMAG_MULTIPLE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2458:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2459:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putupl checkoff\", ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2460:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2460:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2460:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2460:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2461:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2462:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2462:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2462:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2462:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2463:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_multiple_length((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2464:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2464:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2464:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2464:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2465:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2466:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2467:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltmultiple_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2468:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2468:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2468:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2468:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2469:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->tabval["));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2470:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2470:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2470:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2470:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2471:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2472:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2472:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2472:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2472:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2473:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2474:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OTUP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OVAL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2448:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE*/
+
+
+
+/**** end of warmelt-outobj.0+1.c ****/
diff --git a/gcc/melt/warmelt-outobj.0+2.c b/gcc/melt/warmelt-outobj.0+2.c
new file mode 100644
index 00000000000..9992de24a57
--- /dev/null
+++ b/gcc/melt/warmelt-outobj.0+2.c
@@ -0,0 +1,19812 @@
+/* GCC MELT GENERATED FILE warmelt-outobj.0+2.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #2 */
+#include "run-melt.h"
+
+/**** warmelt-outobj.0+2.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_outobj_OUTDECLINIT_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_outobj_OUTPUCOD_OBJINIELEM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_outobj_OUTCINITFILL_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_outobj_OUTCINITPREDEF_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_outobj_OUTPUT_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_outobj_OUTPUCOD_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_outobj_OUTPUCOD_NIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_outobj_OUTDECLINIT_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_outobj_OUTCINITFILL_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_outobj_OUTCINITPREDEF_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_outobj_OUTDECLINIT_OBJINITMULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_outobj_OUTCINITFILL_OBJINITMULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_outobj_OUTDECLINIT_OBJINITCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_outobj_OUTCINITFILL_OBJINITCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_outobj_OUTDECLINIT_OBJINITROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_outobj_OUTCINITFILL_OBJINITROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_outobj_OUTDECLINIT_OBJINITSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_outobj_OUTCINITFILL_OBJINITSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_outobj_OUTDECLINIT_OBJINITBOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_outobj_OUTCINITFILL_OBJINITBOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_outobj_OUTPUCOD_ANYDISCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_outobj_OUTPUCOD_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_outobj_OUTPUCOD_CATCHALL_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_outobj_OUTPUT_RAW_LOCATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_outobj_OUTPUT_LOCATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_outobj_OUTPUCOD_MARKER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_outobj_OUTPUCOD_PROCROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_outobj_OUTPUCOD_GETARG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_outobj_OUTPUCOD_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_outobj_INSTALL_MELT_MODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_outobj_RUNFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_outobj_MAKEDOC_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-outobj.0+2.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJGETSLOT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ getarg");
+ /*_.OGSL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2480:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2481:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2481:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2481:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2481:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2481:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2481:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2481:/ locexp");
+      melt_assert_failed(( "check ogsl"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2481)?(2481):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2481:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2481:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2481:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2482:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2483:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2484:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 2, "OGETSL_OBJ");/*_.OOBJ__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2485:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 3, "OGETSL_FIELD");/*_.OFIELD__V10*/ curfptr[9] = slot; };
+  ;
+  /*_#I__L3*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V11*/ curfptr[10] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2488:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2488:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));;
+    MELT_LOCATION("warmelt-outobj.melt:2488:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2488:/ cond.then");
+    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2488:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2488:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2488:/ locexp");
+       melt_assert_failed(( "check ofield"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2488)?(2488):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2488:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2488:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2488:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2489:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2489:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:2489:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2489:/ apply.arg");
+     argtab[0].bp_cstring =  "outpucod_objgetslot ogsl";
+     MELT_LOCATION("warmelt-outobj.melt:2489:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
+     MELT_LOCATION("warmelt-outobj.melt:2489:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:2489:/ apply.arg");
+     argtab[3].bp_long = 2489;
+     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2489:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2489:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2489:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:2490:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2490:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2490:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2490:/ apply.arg");
+   argtab[2].bp_cstring =  "getslot";
+   /*_.OUTPUT_LOCATION__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2491:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{ melt_ptr_t slot=0;"));}
+  ;
+  /*_#I__L6*/ curfnum[3] = 
+   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2492:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[3]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2493:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_object_get_field(slot,(melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2494:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2494:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2494:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2494:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOBJ__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2495:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), "));}
+  ;
+  /*_#GET_INT__L7*/ curfnum[6] = 
+   (melt_get_int((melt_ptr_t)(/*_.OFIELD__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2496:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2497:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ", \""));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2498:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2498:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2499:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2502:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2502:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2502:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2502:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2502:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V11*/ curfptr[10]);
+   ;
+   /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2500:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2500:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18];
+   /*_.LIST_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.DESTLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2505:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "slot; };"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2506:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.DESTLIST__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.OOBJ__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.OFIELD__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_#I__L6*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2482:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJGETSLOT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_101_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 3
+  void* varptr[3];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<3; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 3;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2502:/ getarg");
+ /*_.DST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2502:/ block");
+/*block*/{
+ /*_#GET_INT__L1*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
+ MELT_LOCATION("warmelt-outobj.melt:2503:/ msend");
+ /*msend*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:2503:/ ojbmsend.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
+  MELT_LOCATION("warmelt-outobj.melt:2503:/ ojbmsend.arg");
+  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
+  MELT_LOCATION("warmelt-outobj.melt:2503:/ ojbmsend.arg");
+  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
+  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2504:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2502:/ clear");
+ /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2502:/ clear");
+ /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_101_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 31
+  void* varptr[31];
+#define CURFRAM_NBVARNUM 13
+  long varnum[13];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<31; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 31;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTSLOT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ getarg");
+ /*_.OPSLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2513:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2514:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2514:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2514:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2514:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2514:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2514:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2514:/ locexp");
+      melt_assert_failed(( "check opslo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2514)?(2514):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2514:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2514:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2514:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2515:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2515:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2515:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2515:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objputslot opslo";
+    MELT_LOCATION("warmelt-outobj.melt:2515:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2515:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2515:/ apply.arg");
+    argtab[3].bp_long = 2515;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2515:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2515:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2515:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2516:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2517:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 1, "OSLOT_ODATA");/*_.ODATA__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2518:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 2, "OSLOT_OFFSET");/*_.OOFF__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2519:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 3, "OSLOT_FIELD");/*_.OFIELD__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2520:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 4, "OSLOT_VALUE");/*_.OVAL__V13*/ curfptr[12] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2522:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2522:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
+    /*_#NOT__L5*/ curfnum[4] = 
+     (!(/*_#IS_A__L4*/ curfnum[1]));;
+    MELT_LOCATION("warmelt-outobj.melt:2522:/ cond");
+    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2522:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2522:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2522:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2522:/ locexp");
+       melt_assert_failed(( "outpucod_objputslot check oval not nrep"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2522)?(2522):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2522:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2522:/ clear");
+    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2522:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2522:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:2523:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2523:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2523:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2523:/ apply.arg");
+   argtab[2].bp_cstring =  "putslot";
+   /*_.OUTPUT_LOCATION__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2524:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putslot*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2525:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2526:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putslot checkobj"));}
+  ;
+  /*_#IS_A__L6*/ curfnum[1] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-outobj.melt:2527:/ cond");
+  /*cond*/ if (/*_#IS_A__L6*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2527:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2527:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2529:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " "));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2530:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2530:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V17*/ curfptr[16])));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2528:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  /*_#IS_A__L7*/ curfnum[4] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-outobj.melt:2531:/ cond");
+  /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2531:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2531:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2533:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " @"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2534:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[16] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2534:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[16])));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2532:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2531:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[16] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2535:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2536:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2536:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2536:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2536:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2537:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_OBJECT);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2538:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*_#IS_A__L8*/ curfnum[7] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[6])));;
+  MELT_LOCATION("warmelt-outobj.melt:2539:/ cond");
+  /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2539:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2539:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2541:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_putfield_object(("));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2542:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2542:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2542:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2542:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2543:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2544:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2544:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2544:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2544:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2545:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
+    ;
+    /*_#I__L9*/ curfnum[8] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    MELT_LOCATION("warmelt-outobj.melt:2546:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2546:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2546:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2546:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#I__L9*/ curfnum[8];
+     /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2547:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \""));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2548:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2548:/ locexp");
+    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2549:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2540:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2539:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2539:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2553:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2554:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putslot checkoff"));}
+    ;
+    /*_#IS_A__L10*/ curfnum[8] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:2555:/ cond");
+    /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2555:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2555:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2557:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " "));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2558:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[19] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2558:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[19])));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2556:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2555:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[19] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    /*_#IS_A__L11*/ curfnum[10] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:2559:/ cond");
+    /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2559:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2559:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2561:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " @"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2562:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[20] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2562:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[20])));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:2560:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2559:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[20] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2563:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", ("));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2564:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2564:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2564:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2564:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2565:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && "));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2566:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2566:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2566:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2566:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2567:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_object_length((melt_ptr_t)("));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2568:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2568:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2568:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2568:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V28*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2569:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2570:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2571:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltobject_ptr_t)("));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2572:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2572:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2572:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2572:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V29*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2573:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->obj_vartab["));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2574:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2574:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2574:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2574:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2575:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
+    ;
+    /*_#I__L12*/ curfnum[11] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2576:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L12*/ curfnum[11]), 0);}
+    ;
+    /*_#I__L13*/ curfnum[12] = 
+     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
+    MELT_LOCATION("warmelt-outobj.melt:2577:/ msend");
+    /*msend*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2577:/ ojbmsend.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+     MELT_LOCATION("warmelt-outobj.melt:2577:/ ojbmsend.arg");
+     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2577:/ ojbmsend.arg");
+     argtab[2].bp_long = /*_#I__L13*/ curfnum[12];
+     /*_.OUTPUT_C_CODE__V31*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2578:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2551:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V29*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2539:/ clear");
+    /*clear*/ /*_.OUTPUT_C_CODE__V31*/ curfptr[30] = 0 ;}
+   ;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2581:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.ODATA__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.OFIELD__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.OVAL__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_#IS_A__L6*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2516:/ clear");
+  /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTSLOT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTCLOSUROUT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ getarg");
+ /*_.OPCLOR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2587:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2588:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2588:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2588:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2588:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2588:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2588:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2588:/ locexp");
+      melt_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2588)?(2588):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2588:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2588:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2588:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2589:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2589:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2589:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2589:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objputclosurout opclor";
+    MELT_LOCATION("warmelt-outobj.melt:2589:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2589:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2589:/ apply.arg");
+    argtab[3].bp_long = 2589;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2589:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2589:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2589:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2590:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2591:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 1, "OPCLOR_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2592:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 2, "OPCLOR_ROUT");/*_.OROUT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2593:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2593:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2593:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2593:/ apply.arg");
+   argtab[2].bp_cstring =  "putclosurout";
+   /*_.OUTPUT_LOCATION__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2594:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosurout*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2595:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2596:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosrout checkclo\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2597:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2597:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2597:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2597:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2598:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2599:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2600:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosrout checkrout\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2601:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2601:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2601:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2601:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2602:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2603:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2604:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltclosure_ptr_t)"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2605:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2605:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2605:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2605:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2606:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->rout = (meltroutine_ptr_t) ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2607:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2607:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2607:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2607:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2608:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2609:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2590:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTCLOSUROUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTCLOSEDV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ getarg");
+ /*_.OPCLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2615:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2616:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2616:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2616:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2616:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2616:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2616:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2616:/ locexp");
+      melt_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2616)?(2616):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2616:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2616:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2616:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2617:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2617:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2617:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2617:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objputclosedv";
+    MELT_LOCATION("warmelt-outobj.melt:2617:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2617:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2617:/ apply.arg");
+    argtab[3].bp_long = 2617;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2617:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2617:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2617:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2618:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2619:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 1, "OPCLOV_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2620:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 2, "OPCLOV_OFF");/*_.OOFF__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2621:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 3, "OPCLOV_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2622:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2622:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2622:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2622:/ apply.arg");
+   argtab[2].bp_cstring =  "putclosedv";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2623:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosv*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2624:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2625:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosv checkclo\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2626:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2626:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2626:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2626:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2627:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2628:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2629:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosv checkoff\", "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2630:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2630:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2630:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2630:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2631:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2632:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2632:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2632:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2632:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2633:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_closure_size((melt_ptr_t) ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2634:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2634:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2634:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2634:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2635:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2636:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2637:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltclosure_ptr_t)"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2638:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2638:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2638:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2638:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2639:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2640:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2640:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2640:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2640:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2641:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2642:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2642:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2642:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2642:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2643:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2644:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2618:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTCLOSEDV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTCLOSEDNOTNULLV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ getarg");
+ /*_.OPCLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2650:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2651:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2651:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDNOTNULLV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2651:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2651:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2651:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2651:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2651:/ locexp");
+      melt_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2651)?(2651):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2651:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2651:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2651:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2652:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2652:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2652:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2652:/ apply.arg");
+    argtab[0].bp_cstring =  "outpucod_objputclosednotnullv";
+    MELT_LOCATION("warmelt-outobj.melt:2652:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:2652:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2652:/ apply.arg");
+    argtab[3].bp_long = 2652;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2652:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2652:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2652:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2653:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2654:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 1, "OPCLOV_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2655:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 2, "OPCLOV_OFF");/*_.OOFF__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2656:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 3, "OPCLOV_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2657:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2657:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2657:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2657:/ apply.arg");
+   argtab[2].bp_cstring =  "putclosednotnullv";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2658:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosvnotnull*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2659:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2660:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosvnotnull checkclo\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2661:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2661:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2661:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2661:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2662:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2663:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2664:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosvnotnull checknotnullval\", NULL != "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2665:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2665:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2665:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2665:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2666:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2667:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2668:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosvnotnull checkoff\", "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2669:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2669:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2669:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2669:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2670:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2671:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2671:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2671:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2671:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2672:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_closure_size((melt_ptr_t) ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2673:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2673:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2673:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2673:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2674:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2675:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2676:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltclosure_ptr_t)"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2677:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2677:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2677:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2677:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2678:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2679:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2679:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2679:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2679:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2680:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2681:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2681:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2681:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2681:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2682:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2683:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2653:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTCLOSEDNOTNULLV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTROUTCONST", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ getarg");
+ /*_.OPRCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2689:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2690:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2690:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2690:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2690:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2690:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2690:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2690:/ locexp");
+      melt_assert_failed(( "check oprconst"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2690)?(2690):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2690:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2690:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2690:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2691:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2692:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 1, "OPRCONST_ROUT");/*_.OROUT__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#IS_A__L3*/ curfnum[1] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:2693:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2693:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2693:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2693:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), 1, "OIE_CNAME");/*_.OIE_CNAME__V10*/ curfptr[9] = slot; };
+    ;
+    /*_.OROUTNAM__V9*/ curfptr[8] = /*_.OIE_CNAME__V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2693:/ clear");
+    /*clear*/ /*_.OIE_CNAME__V10*/ curfptr[9] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2693:/ cond.else");
+  
+   /*_.OROUTNAM__V9*/ curfptr[8] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2694:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 2, "OPRCONST_OFF");/*_.OOFF__V11*/ curfptr[9] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2695:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 3, "OPRCONST_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2696:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2696:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2696:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2696:/ apply.arg");
+   argtab[2].bp_cstring =  "putroutconst";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2697:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconst*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2698:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2699:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putroutconst checkrout\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2700:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2700:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2700:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2700:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2701:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2702:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2704:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg(\"putroutconst constnull."));}
+  ;
+  /*_#IS_STRING__L4*/ curfnum[3] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-outobj.melt:2705:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2705:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2705:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2705:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8])));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2706:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2707:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2707:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2707:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2707:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2708:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", NULL != ("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2709:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2709:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2709:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2709:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2710:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2711:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2713:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltroutine_ptr_t)"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2714:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2714:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2714:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2714:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2715:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2716:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2716:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2716:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2716:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2717:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2718:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2719:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2720:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OROUTNAM__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OOFF__V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2691:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTROUTCONST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTROUTCONSTNOTNULL", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ getarg");
+ /*_.OPRCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2726:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2727:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2727:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2727:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2727:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2727:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2727:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2727:/ locexp");
+      melt_assert_failed(( "check oprconst"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2727)?(2727):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2727:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2727:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2727:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2728:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2729:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 1, "OPRCONST_ROUT");/*_.OROUT__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2730:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 2, "OPRCONST_OFF");/*_.OOFF__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2731:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 3, "OPRCONST_CVAL");/*_.OCVAL__V10*/ curfptr[9] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2732:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2732:/ block");
+   /*block*/{
+    /*_#NOTNULL__L3*/ curfnum[1] = 
+     ((/*_.OCVAL__V10*/ curfptr[9]) != NULL);;
+    MELT_LOCATION("warmelt-outobj.melt:2732:/ cond");
+    /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2732:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2732:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2732:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2732:/ locexp");
+       melt_assert_failed(( "check notnull ocval"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2732)?(2732):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2732:/ clear");
+    /*clear*/ /*_#NOTNULL__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2732:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2732:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:2733:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2733:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2733:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2733:/ apply.arg");
+   argtab[2].bp_cstring =  "putroutconstnotnull";
+   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2734:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconstnotnull*/"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2735:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2736:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putroutconstnotnull checkrout\", melt_magic_discr((melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2737:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2737:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2737:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2737:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2738:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2739:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2740:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putroutconstnotnull notnullconst\", NULL != "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2741:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2741:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2741:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2741:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2742:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2743:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2744:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltroutine_ptr_t)"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2745:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2745:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2745:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2745:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2746:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2747:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2747:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2747:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2747:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOFF__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2748:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2749:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2749:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2749:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2749:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2750:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2751:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OOFF__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OCVAL__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2728:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTROUTCONSTNOTNULL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJPUTXTRARESULT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ getarg");
+ /*_.OPUTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2759:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2760:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2760:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTXTRARESULT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2760:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2760:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2760:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2760:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2760:/ locexp");
+      melt_assert_failed(( "check oputx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2760)?(2760):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2760:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2760:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2760:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2761:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2762:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 1, "OBXRES_RANK");/*_.ORANK__V8*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2763:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 2, "OBXRES_OBLOC");/*_.OVLOC__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2764:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2764:/ ojbmsend.arg");
+   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
+   /*_.OCTYP__V10*/ curfptr[9] = meltgc_send((melt_ptr_t)(/*_.OVLOC__V9*/ curfptr[8]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2766:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2766:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2766:/ apply.arg");
+   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   MELT_LOCATION("warmelt-outobj.melt:2766:/ apply.arg");
+   argtab[2].bp_cstring =  "putxtraresult";
+   /*_.OUTPUT_LOCATION__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2767:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2767:/ block");
+   /*block*/{
+    /*_#IS_A__L3*/ curfnum[1] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:2767:/ cond");
+    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2767:/ cond.then");
+    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2767:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2767:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2767:/ locexp");
+       melt_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2767)?(2767):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2767:/ clear");
+    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2767:/ clear");
+    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2767:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2768:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2768:/ block");
+   /*block*/{
+    /*_#IS_INTEGERBOX__L4*/ curfnum[1] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])) == OBMAG_INT);;
+    MELT_LOCATION("warmelt-outobj.melt:2768:/ cond");
+    /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ curfnum[1]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2768:/ cond.then");
+    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2768:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2768:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2768:/ locexp");
+       melt_assert_failed(( "check orank"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2768)?(2768):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2768:/ clear");
+    /*clear*/ /*_#IS_INTEGERBOX__L4*/ curfnum[1] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2768:/ clear");
+    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2768:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2769:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (!xrestab_ || !xresdescr_) goto labend_rout;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2770:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2771:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xresdescr_["));}
+  ;
+  /*_#GET_INT__L5*/ curfnum[1] = 
+   (melt_get_int((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2772:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2773:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2774:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), 4, "CTYPE_PARCHAR");/*_.CTYPE_PARCHAR__V16*/ curfptr[14] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2774:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_PARCHAR__V16*/ curfptr[14])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2775:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto labend_rout;"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2776:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2777:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xrestab_["));}
+  ;
+  /*_#GET_INT__L6*/ curfnum[5] = 
+   (melt_get_int((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2778:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2779:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2780:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V17*/ curfptr[16] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2780:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V17*/ curfptr[16])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2781:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") *(xrestab_["));}
+  ;
+  /*_#GET_INT__L7*/ curfnum[6] = 
+   (melt_get_int((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2782:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2783:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2784:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V18*/ curfptr[17] = slot; };
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2784:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V18*/ curfptr[17])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2785:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") = ("));}
+  ;
+  /*_#__L8*/ curfnum[7] = 
+   ((/*_.OCTYP__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
+  MELT_LOCATION("warmelt-outobj.melt:2786:/ cond");
+  /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2786:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2786:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2786:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_ptr_t) ("));}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2787:/ msend");
+  /*msend*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2787:/ ojbmsend.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+   MELT_LOCATION("warmelt-outobj.melt:2787:/ ojbmsend.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:2787:/ ojbmsend.arg");
+   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OVLOC__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2788:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2789:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.ORANK__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.OVLOC__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.OCTYP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.CTYPE_PARCHAR__V16*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.CTYPE_RESFIELD__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.CTYPE_RESFIELD__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2761:/ clear");
+  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJPUTXTRARESULT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 12
+  void* varptr[12];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<12; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 12;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJEXPV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ getarg");
+ /*_.OEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2794:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2795:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2795:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2795:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2795:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2795:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2795:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2795:/ locexp");
+      melt_assert_failed(( "check oexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2795)?(2795):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2795:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2795:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2795:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2796:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2796:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 1, "OBX_CONT");/*_.CONT__V7*/ curfptr[5] = slot; };
+  ;
+  /*_#I__L3*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V8*/ curfptr[7] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2799:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2799:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE__L4*/ curfnum[3] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5])) == OBMAG_MULTIPLE);;
+    MELT_LOCATION("warmelt-outobj.melt:2799:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2799:/ cond.then");
+    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2799:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2799:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2799:/ locexp");
+       melt_assert_failed(( "check cont"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2799)?(2799):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2799:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2799:/ clear");
+    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2799:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CONT__V7*/ curfptr[5]);
+   for (/*_#IX__L5*/ curfnum[3] = 0;  
+	(/*_#IX__L5*/ curfnum[3] >= 0) && (/*_#IX__L5*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#IX__L5*/ curfnum[3]++) {
+   /*_.COMP__V11*/ curfptr[9] = melt_multiple_nth((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5]),  /*_#IX__L5*/ curfnum[3]);
+   
+  
+   /*_#GET_INT__L6*/ curfnum[5] = 
+    (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V8*/ curfptr[7])));;
+   MELT_LOCATION("warmelt-outobj.melt:2803:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2803:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:2803:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:2803:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#GET_INT__L6*/ curfnum[5];
+    /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.COMP__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   if (/*_#IX__L5*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2800:/ clear");
+   /*clear*/ /*_.COMP__V11*/ curfptr[9] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2800:/ clear");
+   /*clear*/ /*_#IX__L5*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2800:/ clear");
+   /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2800:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2796:/ clear");
+  /*clear*/ /*_.CONT__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2796:/ clear");
+  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2796:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2796:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJEXPV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 19
+  void* varptr[19];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<19; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 19;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_OBJLOCATEDEXPV", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ getarg");
+ /*_.OEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2807:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2808:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2808:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2808:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2808:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2808:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2808:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2808:/ locexp");
+      melt_assert_failed(( "check oexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2808)?(2808):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2808:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2808:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2808:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2809:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 1, "OBX_CONT");/*_.CONT__V7*/ curfptr[5] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2810:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 2, "OBCX_LOC");/*_.OLOC__V8*/ curfptr[7] = slot; };
+  ;
+  /*_#I__L3*/ curfnum[1] = 
+   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
+  /*_.BOXDEPTHP1__V9*/ curfptr[8] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:2812:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OTYP__V10*/ curfptr[9] = slot; };
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:2815:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:2815:/ block");
+   /*block*/{
+    /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[3] = 
+     ((/*_.CONT__V7*/ curfptr[5]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5])) == OBMAG_MULTIPLE));;
+    MELT_LOCATION("warmelt-outobj.melt:2815:/ cond");
+    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2815:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2815:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:2815:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:2815:/ locexp");
+       melt_assert_failed(( "check cont"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2815)?(2815):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2815:/ clear");
+    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2815:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:2815:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  /*_#__L5*/ curfnum[3] = 
+   ((/*_.OTYP__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-outobj.melt:2816:/ cond");
+  /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2816:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2816:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2818:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2819:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2820:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2821:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[3];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:2821:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+     MELT_LOCATION("warmelt-outobj.melt:2821:/ apply.arg");
+     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:2821:/ apply.arg");
+     argtab[2].bp_cstring =  "locexp";
+     /*_.OUTPUT_LOCATION__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2817:/ block");
+    /*block*/{
+     /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_LOCATION__V14*/ curfptr[13];;}
+    ;
+    /*_.IFELSE___V13*/ curfptr[11] = /*_.PROGN___V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2816:/ clear");
+    /*clear*/ /*_.OUTPUT_LOCATION__V14*/ curfptr[13] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:2816:/ clear");
+    /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2816:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:2816:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2823:/ cond");
+    /*cond*/ if (/*_.OLOC__V8*/ curfptr[7]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:2823:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:2823:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:2824:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:2824:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+       MELT_LOCATION("warmelt-outobj.melt:2824:/ apply.arg");
+       argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+       MELT_LOCATION("warmelt-outobj.melt:2824:/ apply.arg");
+       argtab[2].bp_cstring =  "expr";
+       /*_.OUTPUT_RAW_LOCATION__V17*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IF___V16*/ curfptr[13] = /*_.OUTPUT_RAW_LOCATION__V17*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:2823:/ clear");
+      /*clear*/ /*_.OUTPUT_RAW_LOCATION__V17*/ curfptr[14] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:2823:/ cond.else");
+    
+     /*_.IF___V16*/ curfptr[13] = NULL;;
+     }
+    ;
+    /*_.IFELSE___V13*/ curfptr[11] = /*_.IF___V16*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2816:/ clear");
+    /*clear*/ /*_.IF___V16*/ curfptr[13] = 0 ;}
+   ;
+   }
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CONT__V7*/ curfptr[5]);
+   for (/*_#IX__L6*/ curfnum[5] = 0;  
+	(/*_#IX__L6*/ curfnum[5] >= 0) && (/*_#IX__L6*/ curfnum[5] <  cit1__EACHTUP_ln);  
+	/*_#IX__L6*/ curfnum[5]++) {
+   /*_.COMP__V18*/ curfptr[14] = melt_multiple_nth((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5]),  /*_#IX__L6*/ curfnum[5]);
+   
+  
+   /*_#GET_INT__L7*/ curfnum[6] = 
+    (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V9*/ curfptr[8])));;
+   MELT_LOCATION("warmelt-outobj.melt:2831:/ msend");
+   /*msend*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2831:/ ojbmsend.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:2831:/ ojbmsend.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+    MELT_LOCATION("warmelt-outobj.melt:2831:/ ojbmsend.arg");
+    argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
+    /*_.OUTPUT_C_CODE__V19*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.COMP__V18*/ curfptr[14]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   if (/*_#IX__L6*/ curfnum[5]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2828:/ clear");
+   /*clear*/ /*_.COMP__V18*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2828:/ clear");
+   /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2828:/ clear");
+   /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2828:/ clear");
+   /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[13] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*_#__L8*/ curfnum[7] = 
+   ((/*_.OTYP__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-outobj.melt:2832:/ cond");
+  /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2832:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2832:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2834:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";}"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:2835:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2833:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_.CONT__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_.OLOC__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_.BOXDEPTHP1__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_.OTYP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_.IFELSE___V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2809:/ clear");
+  /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_OBJLOCATEDEXPV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_VERBATIMSTRING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ getarg");
+ /*_.VSTR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2841:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2842:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2842:/ block");
+  /*block*/{
+   /*_.DISCRIM__V6*/ curfptr[5] = 
+    (melt_discr((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));;
+   /*_#__L2*/ curfnum[1] = 
+    ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2842:/ cond");
+   /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2842:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2842:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2842:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2842:/ locexp");
+      melt_assert_failed(( "check vstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2842)?(2842):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2842:/ clear");
+   /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2842:/ clear");
+   /*clear*/ /*_#__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2842:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2842:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2843:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_VERBATIMSTRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_112_warmelt_outobj_OUTPUCOD_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_outobj_OUTPUCOD_STRING_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 7
+  void* varptr[7];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<7; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 7;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_STRING", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
+ /*_.VSTR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2852:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2853:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2853:/ block");
+  /*block*/{
+   /*_.DISCRIM__V6*/ curfptr[5] = 
+    (melt_discr((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));;
+   /*_#__L2*/ curfnum[1] = 
+    ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!DISCR_STRING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2853:/ cond");
+   /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2853:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2853:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2853:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2853:/ locexp");
+      melt_assert_failed(( "check vstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2853)?(2853):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2853:/ clear");
+   /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2853:/ clear");
+   /*clear*/ /*_#__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2853:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2853:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2854:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \""));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2855:/ locexp");
+ meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2856:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\""));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_STRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_112_warmelt_outobj_OUTPUCOD_STRING*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_INTEGER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2864:/ getarg");
+ /*_.VINT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2864:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2864:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2864:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2864:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2865:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2865:/ block");
+  /*block*/{
+   /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.VINT__V2*/ curfptr[1])) == OBMAG_INT);;
+   MELT_LOCATION("warmelt-outobj.melt:2865:/ cond");
+   /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2865:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2865:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2865:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2865:/ locexp");
+      melt_assert_failed(( "check vint"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2865)?(2865):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2865:/ clear");
+   /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2865:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2865:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#GET_INT__L3*/ curfnum[1] = 
+  (melt_get_int((melt_ptr_t)(/*_.VINT__V2*/ curfptr[1])));;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2866:/ locexp");
+ meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L3*/ curfnum[1]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2864:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2864:/ clear");
+ /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_INTEGER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUCOD_FINALRETURN", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ getarg");
+ /*_.FRET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2871:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2872:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2872:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FRET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2872:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2872:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2872:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2872:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2872:/ locexp");
+      melt_assert_failed(( "check fret"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2872)?(2872):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2872:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2872:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2872:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2873:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.FRET__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V7*/ curfptr[5] = slot; };
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2873:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[3];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:2873:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
+  MELT_LOCATION("warmelt-outobj.melt:2873:/ apply.arg");
+  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
+  MELT_LOCATION("warmelt-outobj.melt:2873:/ apply.arg");
+  argtab[2].bp_cstring =  "finalreturn";
+  /*_.OUTPUT_LOCATION__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBI_LOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2874:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2875:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2876:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*finalret*/ goto labend_rout "));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ clear");
+ /*clear*/ /*_.OBI_LOC__V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ clear");
+ /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUCOD_FINALRETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("SORTED_NAMED_DICT_TUPLE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ getarg");
+ /*_.DIC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2882:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:2883:/ block");
+ /*block*/{
+  /*_#DICNT__L1*/ curfnum[0] = 
+   (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.DIC__V2*/ curfptr[1])));;
+  /*_.ENTLIST__V4*/ curfptr[3] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
+  MELT_LOCATION("warmelt-outobj.melt:2887:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2887:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2887:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (melt_ptr_t)(/*_.ENTLIST__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V5*/ curfptr[4] = /*_.LAMBDA___V6*/ curfptr[5];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2886:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2886:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[4];
+   /*_.MAPSTRING_EVERY__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MAPSTRING_EVERY*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DIC__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2890:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2890:/ apply");
+   /*apply*/{
+    /*_.RAWTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENTLIST__V4*/ curfptr[3]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.MULTIPLE_SORT__V10*/ curfptr[9] = 
+    meltgc_sort_multiple((melt_ptr_t)(/*_.RAWTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[5])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])));;
+   /*_.LET___V8*/ curfptr[7] = /*_.MULTIPLE_SORT__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2890:/ clear");
+   /*clear*/ /*_.RAWTUP__V9*/ curfptr[8] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2890:/ clear");
+   /*clear*/ /*_.MULTIPLE_SORT__V10*/ curfptr[9] = 0 ;}
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.LET___V8*/ curfptr[7];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
+  /*clear*/ /*_#DICNT__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
+  /*clear*/ /*_.ENTLIST__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
+  /*clear*/ /*_.LAMBDA___V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
+  /*clear*/ /*_.MAPSTRING_EVERY__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
+  /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:2882:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("SORTED_NAMED_DICT_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_116_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2887:/ getarg");
+ /*_.NAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2887:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ENT__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ENT__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2887:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2888:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2888:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.ENT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2888:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2888:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2888:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2888:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2888:/ locexp");
+      melt_assert_failed(( "check ent named"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2888)?(2888):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2888:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2888:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2888:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2889:/ locexp");
+ meltgc_append_list((melt_ptr_t)((/*~ENTLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.ENT__V3*/ curfptr[2]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2887:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_116_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("OUTPUT_EXPORTED_OFFSETS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ getarg");
+ /*_.MODCTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2896:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2897:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2897:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2897:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2897:/ apply.arg");
+    argtab[0].bp_cstring =  "output_exported_offsets modctx";
+    MELT_LOCATION("warmelt-outobj.melt:2897:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:2897:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2897:/ apply.arg");
+    argtab[3].bp_long = 2897;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2897:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2897:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2897:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2898:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2898:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:2898:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2898:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2898:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2898:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2898:/ locexp");
+      melt_assert_failed(( "check modctx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2898)?(2898):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2898:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2898:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2898:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2899:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2900:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ apply");
+  /*apply*/{
+   /*_.SORTEDFIELDS__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!SORTED_NAMED_DICT_TUPLE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MOCX_EXPFIELDICT__V9*/ curfptr[7]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2902:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2901:/ apply");
+  /*apply*/{
+   /*_.SORTEDCLASSES__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!SORTED_NAMED_DICT_TUPLE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2904:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2905:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported field offsets */"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2908:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2908:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2908:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2906:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2906:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
+   /*_.MULTIPLE_EVERY__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SORTEDFIELDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2917:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2918:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2919:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported class lengths */"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2922:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2922:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2922:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
+   ;
+   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2920:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:2920:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
+   /*_.MULTIPLE_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SORTEDCLASSES__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:2932:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.SORTEDFIELDS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.SORTEDCLASSES__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
+  /*clear*/ /*_.MULTIPLE_EVERY__V18*/ curfptr[17] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("OUTPUT_EXPORTED_OFFSETS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_118_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_118_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 5
+  void* varptr[5];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<5; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 5;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ getarg");
+ /*_.FLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2908:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2909:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2909:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2909:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2909:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2909:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2909:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2909:/ locexp");
+      melt_assert_failed(( "check fld"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2909)?(2909):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2909:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2909:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2909:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2910:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2911:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int meltfieldoff__"));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2912:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; };
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2912:/ locexp");
+ meltgc_add_strbuf_cident((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2913:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = "));}
+ ;
+ /*_#GET_INT__L3*/ curfnum[1] = 
+  (melt_get_int((melt_ptr_t)(/*_.FLD__V2*/ curfptr[1])));;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2914:/ locexp");
+ meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#GET_INT__L3*/ curfnum[1]));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2915:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";"));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ clear");
+ /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_118_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_119_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_119_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ getarg");
+ /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2922:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2923:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2923:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2923:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2923:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2923:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2923:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2923:/ locexp");
+      melt_assert_failed(( "check cla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2923)?(2923):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2923:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2923:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2923:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2924:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2925:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int meltclasslen__"));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2926:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; };
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2926:/ locexp");
+ meltgc_add_strbuf_cident((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])),
+  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3])));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2927:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = "));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2929:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V6*/ curfptr[5] = slot; };
+ ;
+ /*_#MULTIPLE_LENGTH__L3*/ curfnum[1] = 
+  (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V6*/ curfptr[5])));;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2928:/ locexp");
+ meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[1]));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2930:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";"));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ clear");
+ /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ clear");
+ /*clear*/ /*_.CLASS_FIELDS__V6*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ clear");
+ /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[1] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_119_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 27
+  void* varptr[27];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<27; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 27;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("NTH_SECUNDARY_FILE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ getarg");
+ /*_.MODCTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODNAMSTR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DECLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2956:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2957:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2957:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:2957:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2957:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2957:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2957:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2957:/ locexp");
+      melt_assert_failed(( "check modctx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2957)?(2957):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2957:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2957:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2957:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2958:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2958:/ block");
+  /*block*/{
+   /*_#IS_STRING__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ curfptr[2])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:2958:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2958:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2958:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2958:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2958:/ locexp");
+      melt_assert_failed(( "check modnamstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2958)?(2958):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2958:/ clear");
+   /*clear*/ /*_#IS_STRING__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2958:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2958:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2959:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2959:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L4*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ curfptr[3])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:2959:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2959:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2959:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2959:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2959:/ locexp");
+      melt_assert_failed(( "check declbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2959)?(2959):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2959:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2959:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2959:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#WANTS_SINGLE_C_FILE__L5*/ curfnum[1] = 
+   melt_wants_single_c_file () ;;
+ MELT_LOCATION("warmelt-outobj.melt:2960:/ cond");
+ /*cond*/ if (/*_#WANTS_SINGLE_C_FILE__L5*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:2960:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:2960:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2960:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+    MELT_LOCATION("warmelt-outobj.melt:2960:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.IF___V11*/ curfptr[9] = /*_.RETURN___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2960:/ clear");
+   /*clear*/ /*_.RETURN___V12*/ curfptr[11] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:2960:/ cond.else");
+ 
+  /*_.IF___V11*/ curfptr[9] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2961:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 5, "MOCX_FILETUPLE");/*_.MOFILES__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2961:/ cond.else");
+  
+   /*_.MOFILES__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  /*_#NBFILES__L6*/ curfnum[5] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.MOFILES__V14*/ curfptr[13])));;
+  /*_.NTHFILE__V15*/ curfptr[14] = 
+   (melt_multiple_nth((melt_ptr_t)(/*_.MOFILES__V14*/ curfptr[13]), (/*_#IX__L1*/ curfnum[0])));;
+  MELT_LOCATION("warmelt-outobj.melt:2965:/ cond");
+  /*cond*/ if (/*_.NTHFILE__V15*/ curfptr[14]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2965:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2965:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2965:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = /*_.NTHFILE__V15*/ curfptr[14];;
+     MELT_LOCATION("warmelt-outobj.melt:2965:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IF___V16*/ curfptr[15] = /*_.RETURN___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2965:/ clear");
+    /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2965:/ cond.else");
+  
+   /*_.IF___V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  /*_#I__L7*/ curfnum[6] = 
+   ((/*_#IX__L1*/ curfnum[0]) <= (0));;
+  MELT_LOCATION("warmelt-outobj.melt:2966:/ cond");
+  /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2966:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2966:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2966:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-outobj.melt:2966:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IF___V18*/ curfptr[16] = /*_.RETURN___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2966:/ clear");
+    /*clear*/ /*_.RETURN___V19*/ curfptr[18] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2966:/ cond.else");
+  
+   /*_.IF___V18*/ curfptr[16] = NULL;;
+   }
+  ;
+  /*_#I__L8*/ curfnum[7] = 
+   ((/*_#IX__L1*/ curfnum[0]) >= (/*_#NBFILES__L6*/ curfnum[5]));;
+  MELT_LOCATION("warmelt-outobj.melt:2967:/ cond");
+  /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:2967:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:2967:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2967:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-outobj.melt:2967:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IF___V20*/ curfptr[18] = /*_.RETURN___V21*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:2967:/ clear");
+    /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:2967:/ cond.else");
+  
+   /*_.IF___V20*/ curfptr[18] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:2969:/ block");
+  /*block*/{
+   /*_.PATH__V23*/ curfptr[22] = 
+    meltgc_new_string_generated_c_filename
+     ((meltobject_ptr_t) ((/*!DISCR_STRING*/ curfrout->tabval[1])),
+      melt_string_str((/*_.MODNAMSTR__V3*/ curfptr[2])), melt_string_str(((/*nil*/NULL))), (/*_#IX__L1*/ curfnum[0]));;
+   /*_.IMPLBUF__V24*/ curfptr[23] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[2])), (char*)0);;
+   MELT_LOCATION("warmelt-outobj.melt:2975:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:2975:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[3])), (4), "CLASS_SECONDARY_C_FILE");/*_.INST__V26*/ curfptr[25] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2975:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SECFIL_MODNAM", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (0), (/*_.MODNAMSTR__V3*/ curfptr[2]), "SECFIL_MODNAM");
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2975:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SECFIL_PATH", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (1), (/*_.PATH__V23*/ curfptr[22]), "SECFIL_PATH");
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2975:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SECFIL_DECLBUF", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (2), (/*_.DECLBUF__V4*/ curfptr[3]), "SECFIL_DECLBUF");
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:2975:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SECFIL_IMPLBUF", melt_magic_discr((melt_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V26*/ curfptr[25]), (3), (/*_.IMPLBUF__V24*/ curfptr[23]), "SECFIL_IMPLBUF");
+    ;
+    /*_.NEWFILE__V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:2981:/ locexp");
+   melt_put_int((melt_ptr_t)(/*_.NEWFILE__V25*/ curfptr[24]), (/*_#IX__L1*/ curfnum[0]));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:2982:/ locexp");
+   meltgc_multiple_put_nth((melt_ptr_t)(/*_.MOFILES__V14*/ curfptr[13]), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NEWFILE__V25*/ curfptr[24]));}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2983:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = /*_.NEWFILE__V25*/ curfptr[24];;
+    MELT_LOCATION("warmelt-outobj.melt:2983:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.LET___V22*/ curfptr[20] = /*_.RETURN___V27*/ curfptr[26];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
+   /*clear*/ /*_.PATH__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
+   /*clear*/ /*_.IMPLBUF__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
+   /*clear*/ /*_.NEWFILE__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
+   /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;}
+  ;
+  /*_.LET___V13*/ curfptr[11] = /*_.LET___V22*/ curfptr[20];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_.MOFILES__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_#NBFILES__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_.NTHFILE__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_.IF___V18*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_.IF___V20*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
+  /*clear*/ /*_.LET___V22*/ curfptr[20] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];;
+  MELT_LOCATION("warmelt-outobj.melt:2956:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ clear");
+ /*clear*/ /*_#WANTS_SINGLE_C_FILE__L5*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ clear");
+ /*clear*/ /*_.IF___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ clear");
+ /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("NTH_SECUNDARY_FILE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 104
+  void* varptr[104];
+#define CURFRAM_NBVARNUM 39
+  long varnum[39];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<104; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 104;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILE_LIST_SEXPR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ getarg");
+ /*_.LSEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.INIENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODNAMSTR__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:2988:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:2989:/ locexp");
+ debugeputs(( "starting  compile_list_sexpr"));}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2990:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2990:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2990:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2990:/ apply.arg");
+    argtab[0].bp_cstring =  "\n\n\n*%*%* compile_list_sexpr lsexp";
+    MELT_LOCATION("warmelt-outobj.melt:2990:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:2990:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2990:/ apply.arg");
+    argtab[3].bp_long = 2990;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LSEXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2990:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2990:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2990:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2991:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2991:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2991:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2991:/ apply.arg");
+    argtab[0].bp_cstring =  "compile_list_sexpr inienv";
+    MELT_LOCATION("warmelt-outobj.melt:2991:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:2991:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2991:/ apply.arg");
+    argtab[3].bp_long = 2991;
+    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2991:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2991:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2991:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2992:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2992:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:2992:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:2992:/ apply.arg");
+    argtab[0].bp_cstring =  "compile_list_sexpr modnamstr";
+    MELT_LOCATION("warmelt-outobj.melt:2992:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:2992:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:2992:/ apply.arg");
+    argtab[3].bp_long = 2992;
+    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2992:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2992:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2992:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2993:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2993:/ block");
+  /*block*/{
+   /*_#IS_LIST__L4*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.LSEXP__V2*/ curfptr[1])) == OBMAG_LIST);;
+   MELT_LOCATION("warmelt-outobj.melt:2993:/ cond");
+   /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2993:/ cond.then");
+   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2993:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2993:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2993:/ locexp");
+      melt_assert_failed(( "check lsexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2993)?(2993):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
+   /*clear*/ /*_#IS_LIST__L4*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
+   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2993:/ cppif.else");
+ /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2994:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2994:/ block");
+  /*block*/{
+   /*_#IS_STRING__L5*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:2994:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2994:/ cond.then");
+   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2994:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2994:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2994:/ locexp");
+      melt_assert_failed(( "check modnamstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2994)?(2994):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2994:/ clear");
+   /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2994:/ clear");
+   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2994:/ cppif.else");
+ /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:2995:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:2995:/ block");
+  /*block*/{
+   /*_#IS_A__L6*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:2995:/ cond");
+   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:2995:/ cond.then");
+   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:2995:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:2995:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:2995:/ locexp");
+      melt_assert_failed(( "check inienv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (2995)?(2995):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:2995:/ clear");
+   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:2995:/ clear");
+   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:2995:/ cppif.else");
+ /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:2996:/ block");
+ /*block*/{
+  /*_.MAKE_STRING_NAKEDBASENAME__V17*/ curfptr[15] = 
+   (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]))));;
+  /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = 
+   (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[4])), (90)));;
+  /*_.MAKE_MAPSTRING__V19*/ curfptr[18] = 
+   (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[4])), (40)));;
+  /*_.MAKE_INTEGERBOX__V20*/ curfptr[19] = 
+   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));;
+  MELT_LOCATION("warmelt-outobj.melt:2997:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[2])), (6), "CLASS_MODULE_CONTEXT");/*_.INST__V22*/ curfptr[21] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MOCX_MODULENAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.MAKE_STRING_NAKEDBASENAME__V17*/ curfptr[15]), "MOCX_MODULENAME");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MOCX_EXPFIELDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.MAKE_MAPSTRING__V18*/ curfptr[17]), "MOCX_EXPFIELDICT");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MOCX_EXPCLASSDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), (/*_.MAKE_MAPSTRING__V19*/ curfptr[18]), "MOCX_EXPCLASSDICT");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MOCX_INITIALENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.INIENV__V3*/ curfptr[2]), "MOCX_INITIALENV");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MOCX_FUNCOUNT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (4), (/*_.MAKE_INTEGERBOX__V20*/ curfptr[19]), "MOCX_FUNCOUNT");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:2997:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MOCX_FILETUPLE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (5), ((/*nil*/NULL)), "MOCX_FILETUPLE");
+   ;
+   /*_.MODCTX__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3005:/ apply");
+  /*apply*/{
+   /*_.NCX__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!CREATE_NORMCONTEXT*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3006:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3006:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3006:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3006:/ apply.arg");
+     argtab[0].bp_cstring =  "compile_list_sexpr initial ncx";
+     MELT_LOCATION("warmelt-outobj.melt:3006:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3006:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3006:/ apply.arg");
+     argtab[3].bp_long = 3006;
+     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3006:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3006:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3006:/ cppif.else");
+  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3007:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3007:/ block");
+   /*block*/{
+    /*_#IS_A__L8*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[7])));;
+    MELT_LOCATION("warmelt-outobj.melt:3007:/ cond");
+    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3007:/ cond.then");
+    /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3007:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3007:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3007:/ locexp");
+       melt_assert_failed(( "check ncx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3007)?(3007):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3007:/ clear");
+    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3007:/ clear");
+    /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3007:/ cppif.else");
+  /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:3008:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3008:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INIENV__V3*/ curfptr[2];
+    /*_.XLIST__V28*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.LSEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LIST_FIRST__V29*/ curfptr[28] = 
+    (melt_list_first((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26])));;
+   /*_.FIRSTX__V30*/ curfptr[29] = 
+    (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V29*/ curfptr[28])));;
+   /*_#IS_A__L9*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FIRSTX__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE*/ curfrout->tabval[9])));;
+   MELT_LOCATION("warmelt-outobj.melt:3010:/ cond");
+   /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3010:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3010:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3010:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FIRSTX__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V32*/ curfptr[31] = slot; };
+     ;
+     /*_.FIRSTLOC__V31*/ curfptr[30] = /*_.LOCA_LOCATION__V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3010:/ clear");
+     /*clear*/ /*_.LOCA_LOCATION__V32*/ curfptr[31] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3010:/ cond.else");
+   
+    /*_.FIRSTLOC__V31*/ curfptr[30] = NULL;;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3011:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 0, "NCTX_INITPROC");/*_.INIPROC__V33*/ curfptr[31] = slot; };
+   ;
+   /*_.DECLBUF__V34*/ curfptr[33] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[10])), (char*)0);;
+   /*_.IMPLBUF__V35*/ curfptr[34] = 
+    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[10])), (char*)0);;
+   MELT_LOCATION("warmelt-outobj.melt:3015:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3015:/ rawallocobj");
+    /*rawallocobj*/ { melt_ptr_t newobj = 0;
+     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[11])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V37*/ curfptr[36] =
+     newobj; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3015:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.FIRSTLOC__V31*/ curfptr[30]), "LOCA_LOCATION");
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3015:/ putslot");
+    /*putslot*/
+    melt_assertmsg("putslot checkobj @SUCME_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
+    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), ((/*!konst_12*/ curfrout->tabval[12])), "SUCME_COMMENT");
+    ;
+    /*_.UCMEB1__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
+   ;
+   /*_#__L10*/ curfnum[9] = 
+    ((/*_.INIENV__V3*/ curfptr[2]) == ((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[13])));;
+   MELT_LOCATION("warmelt-outobj.melt:3020:/ cond");
+   /*cond*/ if (/*_#__L10*/ curfnum[9]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3020:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3020:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3021:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]), ( "#define MELT_HAS_INITIAL_ENVIRONMENT 0"));}
+     ;
+     /*epilog*/}
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3020:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3020:/ block");
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3022:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]), ( "#define MELT_HAS_INITIAL_ENVIRONMENT 1"));}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3024:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]), (0), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3025:/ locexp");
+   meltgc_prepend_list((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26]), (melt_ptr_t)(/*_.UCMEB1__V36*/ curfptr[35]));}
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3026:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3026:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3026:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3026:/ apply.arg");
+      argtab[0].bp_cstring =  "after macroexpansion compile_list_sexpr seq";
+      MELT_LOCATION("warmelt-outobj.melt:3026:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
+      MELT_LOCATION("warmelt-outobj.melt:3026:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3026:/ apply.arg");
+      argtab[3].bp_long = 3026;
+      /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3026:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3026:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3026:/ cppif.else");
+   /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3027:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3027:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3027:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3027:/ apply.arg");
+      argtab[0].bp_cstring =  "after macroexpansion compile_list_sexpr inienv";
+      MELT_LOCATION("warmelt-outobj.melt:3027:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
+      MELT_LOCATION("warmelt-outobj.melt:3027:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3027:/ apply.arg");
+      argtab[3].bp_long = 3027;
+      /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3027:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3027:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3027:/ cppif.else");
+   /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3028:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3028:/ block");
+    /*block*/{
+     /*_#IS_A__L13*/ curfnum[10] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.INIPROC__V33*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[14])));;
+     MELT_LOCATION("warmelt-outobj.melt:3028:/ cond");
+     /*cond*/ if (/*_#IS_A__L13*/ curfnum[10]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3028:/ cond.then");
+     /*_.IFELSE___V43*/ curfptr[42] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3028:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3028:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3028:/ locexp");
+        melt_assert_failed(( "check iniproc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3028)?(3028):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V43*/ curfptr[42] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V42*/ curfptr[40] = /*_.IFELSE___V43*/ curfptr[42];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3028:/ clear");
+     /*clear*/ /*_#IS_A__L13*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3028:/ clear");
+     /*clear*/ /*_.IFELSE___V43*/ curfptr[42] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3028:/ cppif.else");
+   /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3029:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3029:/ block");
+    /*block*/{
+     /*_#IS_LIST__L14*/ curfnum[10] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26])) == OBMAG_LIST);;
+     MELT_LOCATION("warmelt-outobj.melt:3029:/ cond");
+     /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[10]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3029:/ cond.then");
+     /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3029:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3029:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3029:/ locexp");
+        melt_assert_failed(( "check xlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3029)?(3029):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V44*/ curfptr[42] = /*_.IFELSE___V45*/ curfptr[44];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3029:/ clear");
+     /*clear*/ /*_#IS_LIST__L14*/ curfnum[10] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3029:/ clear");
+     /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3029:/ cppif.else");
+   /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:3032:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3032:/ newclosure");
+     /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
+     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (4));
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3032:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]);
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3032:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]);
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3032:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[2] = (melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]);
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3032:/ putclosedv");
+    /*putclosv*/
+    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
+    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
+    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[3] = (melt_ptr_t)(/*_.INIPROC__V33*/ curfptr[31]);
+    ;
+    /*_.LAMBDA___V46*/ curfptr[44] = /*_.LAMBDA___V47*/ curfptr[46];;}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3030:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3030:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[44];
+    /*_.LIST_EVERY__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3062:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 1, "NCTX_PROCLIST");/*_.PROLIST__V49*/ curfptr[48] = slot; };
+    ;
+    /*_.OBJLIST__V50*/ curfptr[49] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[24]))));;
+    /*_#LIST_LENGTH__L15*/ curfnum[10] = 
+     (melt_list_length((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26])));;
+    /*_#I__L16*/ curfnum[15] = 
+     ((20) * (/*_#LIST_LENGTH__L15*/ curfnum[10]));;
+    /*_#I__L17*/ curfnum[16] = 
+     ((10) + (/*_#I__L16*/ curfnum[15]));;
+    /*_.COMPICACHE__V51*/ curfptr[50] = 
+     (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[25])), (/*_#I__L17*/ curfnum[16])));;
+    /*_.COUNTBOX__V52*/ curfptr[51] = 
+     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3067:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3067:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 
+       callcount;;
+      MELT_LOCATION("warmelt-outobj.melt:3067:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3067:/ apply.arg");
+       argtab[0].bp_cstring =  "compile_list_sexpr prolist";
+       MELT_LOCATION("warmelt-outobj.melt:3067:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17];
+       MELT_LOCATION("warmelt-outobj.melt:3067:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-outobj.melt";
+       MELT_LOCATION("warmelt-outobj.melt:3067:/ apply.arg");
+       argtab[3].bp_long = 3067;
+       /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PROLIST__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V53*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3067:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3067:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3067:/ cppif.else");
+    /*_.IFCPP___V53*/ curfptr[52] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3068:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3068:/ block");
+     /*block*/{
+      /*_#IS_LIST__L19*/ curfnum[17] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.PROLIST__V49*/ curfptr[48])) == OBMAG_LIST);;
+      MELT_LOCATION("warmelt-outobj.melt:3068:/ cond");
+      /*cond*/ if (/*_#IS_LIST__L19*/ curfnum[17]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3068:/ cond.then");
+      /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3068:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3068:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:3068:/ locexp");
+         melt_assert_failed(( "check prolist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3068)?(3068):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V55*/ curfptr[53] = /*_.IFELSE___V56*/ curfptr[55];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3068:/ clear");
+      /*clear*/ /*_#IS_LIST__L19*/ curfnum[17] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3068:/ clear");
+      /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3068:/ cppif.else");
+    /*_.IFCPP___V55*/ curfptr[53] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-outobj.melt:3071:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3071:/ newclosure");
+      /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] =
+      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ curfrout->tabval[29])), (4));
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3071:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V52*/ curfptr[51]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3071:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[1] = (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3071:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[2] = (melt_ptr_t)(/*_.COMPICACHE__V51*/ curfptr[50]);
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3071:/ putclosedv");
+     /*putclosv*/
+     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
+     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
+     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[3] = (melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49]);
+     ;
+     /*_.LAMBDA___V57*/ curfptr[55] = /*_.LAMBDA___V58*/ curfptr[57];;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3069:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3069:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[55];
+     /*_.LIST_EVERY__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.PROLIST__V49*/ curfptr[48]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3081:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3081:/ block");
+     /*block*/{
+      /*_#THE_CALLCOUNT__L20*/ curfnum[17] = 
+       callcount;;
+      MELT_LOCATION("warmelt-outobj.melt:3081:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[4];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3081:/ apply.arg");
+       argtab[0].bp_cstring =  "compile_list_sexpr objlist";
+       MELT_LOCATION("warmelt-outobj.melt:3081:/ apply.arg");
+       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[17];
+       MELT_LOCATION("warmelt-outobj.melt:3081:/ apply.arg");
+       argtab[2].bp_cstring =  "warmelt-outobj.melt";
+       MELT_LOCATION("warmelt-outobj.melt:3081:/ apply.arg");
+       argtab[3].bp_long = 3081;
+       /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3081:/ clear");
+      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[17] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3081:/ clear");
+      /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3081:/ cppif.else");
+    /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3082:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3082:/ block");
+     /*block*/{
+      /*_#IS_LIST__L21*/ curfnum[17] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49])) == OBMAG_LIST);;
+      MELT_LOCATION("warmelt-outobj.melt:3082:/ cond");
+      /*cond*/ if (/*_#IS_LIST__L21*/ curfnum[17]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3082:/ cond.then");
+      /*_.IFELSE___V63*/ curfptr[62] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3082:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3082:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:3082:/ locexp");
+         melt_assert_failed(( "check objlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3082)?(3082):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V63*/ curfptr[62] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V62*/ curfptr[60] = /*_.IFELSE___V63*/ curfptr[62];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3082:/ clear");
+      /*clear*/ /*_#IS_LIST__L21*/ curfnum[17] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3082:/ clear");
+      /*clear*/ /*_.IFELSE___V63*/ curfptr[62] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3082:/ cppif.else");
+    /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    MELT_LOCATION("warmelt-outobj.melt:3083:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 0, "NCTX_INITPROC");/*_.INIPRO__V64*/ curfptr[62] = slot; };
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3084:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 2, "NCTX_DATALIST");/*_.INIDATA__V65*/ curfptr[64] = slot; };
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3085:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 3, "NCTX_VALUELIST");/*_.IMPORTVALUES__V66*/ curfptr[65] = slot; };
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3086:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 14, "NCTX_PROCURMODENVLIST");/*_.PROCURMODENVLIST__V67*/ curfptr[66] = slot; };
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3088:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3088:/ block");
+      /*block*/{
+       /*_#IS_A__L22*/ curfnum[17] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.INIPRO__V64*/ curfptr[62]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[14])));;
+       MELT_LOCATION("warmelt-outobj.melt:3088:/ cond");
+       /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ {
+       MELT_LOCATION("warmelt-outobj.melt:3088:/ cond.then");
+       /*_.IFELSE___V69*/ curfptr[68] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-outobj.melt:3088:/ cond.else");
+       
+        MELT_LOCATION("warmelt-outobj.melt:3088:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-outobj.melt:3088:/ locexp");
+          melt_assert_failed(( "check inipro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3088)?(3088):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V68*/ curfptr[67] = /*_.IFELSE___V69*/ curfptr[68];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3088:/ clear");
+       /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3088:/ clear");
+       /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3088:/ cppif.else");
+     /*_.IFCPP___V68*/ curfptr[67] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3089:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3089:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L23*/ curfnum[17] = 
+        callcount;;
+       MELT_LOCATION("warmelt-outobj.melt:3089:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:3089:/ apply.arg");
+        argtab[0].bp_cstring =  "compile_list_sexpr procurmodenvlist";
+        MELT_LOCATION("warmelt-outobj.melt:3089:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[17];
+        MELT_LOCATION("warmelt-outobj.melt:3089:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-outobj.melt";
+        MELT_LOCATION("warmelt-outobj.melt:3089:/ apply.arg");
+        argtab[3].bp_long = 3089;
+        /*_.DEBUG_MSG_FUN__V71*/ curfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PROCURMODENVLIST__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V70*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[70];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3089:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[17] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3089:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[70] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3089:/ cppif.else");
+     /*_.IFCPP___V70*/ curfptr[68] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     MELT_LOCATION("warmelt-outobj.melt:3090:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[5];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3090:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MODCTX__V21*/ curfptr[20];
+       MELT_LOCATION("warmelt-outobj.melt:3090:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.INIDATA__V65*/ curfptr[64];
+       MELT_LOCATION("warmelt-outobj.melt:3090:/ apply.arg");
+       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V51*/ curfptr[50];
+       MELT_LOCATION("warmelt-outobj.melt:3090:/ apply.arg");
+       argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PROCURMODENVLIST__V67*/ curfptr[66];
+       MELT_LOCATION("warmelt-outobj.melt:3090:/ apply.arg");
+       argtab[4].bp_aptr = (melt_ptr_t*) &/*_.IMPORTVALUES__V66*/ curfptr[65];
+       /*_.INIOBJ__V72*/ curfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_INITPROC*/ curfrout->tabval[30])), (melt_ptr_t)(/*_.INIPRO__V64*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:3091:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:3091:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L24*/ curfnum[17] = 
+         callcount;;
+        MELT_LOCATION("warmelt-outobj.melt:3091:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3091:/ apply.arg");
+         argtab[0].bp_cstring =  "compile_list_sexpr iniobj";
+         MELT_LOCATION("warmelt-outobj.melt:3091:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[17];
+         MELT_LOCATION("warmelt-outobj.melt:3091:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-outobj.melt";
+         MELT_LOCATION("warmelt-outobj.melt:3091:/ apply.arg");
+         argtab[3].bp_long = 3091;
+         /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIOBJ__V72*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V73*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3091:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[17] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3091:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:3091:/ cppif.else");
+      /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_#LIST_LENGTH__L25*/ curfnum[17] = 
+       (melt_list_length((melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49])));;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3092:/ locexp");
+      melt_putnum(stderr,( "** warmelt generated "), (/*_#LIST_LENGTH__L25*/ curfnum[17]), ( " routines into "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3093:/ locexp");
+      melt_putstr(stderr, (melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3094:/ locexp");
+      melt_newlineflush(stderr);}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3095:/ locexp");
+      melt_puts(stderr,( "** from "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3096:/ locexp");
+      melt_puts(stderr,melt_compiled_timestamp);}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3097:/ locexp");
+      melt_newlineflush(stderr);}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3098:/ locexp");
+      melt_puts(stderr,( "** of checksum "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3099:/ locexp");
+      melt_puts(stderr,melt_md5);}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3100:/ locexp");
+      melt_newlineflush(stderr);}
+      ;
+      /*citerblock FOREACH_IN_LIST*/ {
+      /* start cit1__EACHLIST */
+   for (/*_.PAIREL__V75*/ curfptr[73] = melt_list_first(/*_.OBJLIST__V50*/ curfptr[49]);
+	melt_magic_discr(/*_.PAIREL__V75*/ curfptr[73]) == OBMAG_PAIR;
+        /*_.PAIREL__V75*/ curfptr[73] = melt_pair_tail(/*_.PAIREL__V75*/ curfptr[73])) {
+	/*_.OBEL__V76*/ curfptr[75] = melt_pair_head(/*_.PAIREL__V75*/ curfptr[73]); 
+      
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-outobj.melt:3105:/ cppif.then");
+       MELT_LOCATION("warmelt-outobj.melt:3105:/ block");
+        /*block*/{
+         /*_#THE_CALLCOUNT__L26*/ curfnum[25] = 
+          callcount;;
+         MELT_LOCATION("warmelt-outobj.melt:3105:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[4];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-outobj.melt:3105:/ apply.arg");
+          argtab[0].bp_cstring =  "compile_list_sexpr obel";
+          MELT_LOCATION("warmelt-outobj.melt:3105:/ apply.arg");
+          argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[25];
+          MELT_LOCATION("warmelt-outobj.melt:3105:/ apply.arg");
+          argtab[2].bp_cstring =  "warmelt-outobj.melt";
+          MELT_LOCATION("warmelt-outobj.melt:3105:/ apply.arg");
+          argtab[3].bp_long = 3105;
+          /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-outobj.melt:3105:/ clear");
+         /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[25] = 0 ;
+         MELT_LOCATION("warmelt-outobj.melt:3105:/ clear");
+         /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-outobj.melt:3105:/ cppif.else");
+       /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       MELT_LOCATION("warmelt-outobj.melt:3108:/ block");
+       /*block*/{
+        /*_#IS_A__L27*/ curfnum[25] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[31])));;
+        MELT_LOCATION("warmelt-outobj.melt:3109:/ cond");
+        /*cond*/ if (/*_#IS_A__L27*/ curfnum[25]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3109:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3109:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-outobj.melt:3110:/ cond");
+          /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[31])))) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:3110:/ cond.then");
+          MELT_LOCATION("warmelt-outobj.melt:3110:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), 12, "OPROUT_FILENUM");/*_.OPROUT_FILENUM__V80*/ curfptr[79] = slot; };
+           ;
+          } else {MELT_LOCATION("warmelt-outobj.melt:3110:/ cond.else");
+          
+           /*_.OPROUT_FILENUM__V80*/ curfptr[79] = NULL;;
+           }
+          ;
+          /*_#GET_INT__L29*/ curfnum[28] = 
+           (melt_get_int((melt_ptr_t)(/*_.OPROUT_FILENUM__V80*/ curfptr[79])));;
+          /*_#FILNUM__L28*/ curfnum[27] = /*_#GET_INT__L29*/ curfnum[28];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3109:/ clear");
+          /*clear*/ /*_.OPROUT_FILENUM__V80*/ curfptr[79] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:3109:/ clear");
+          /*clear*/ /*_#GET_INT__L29*/ curfnum[28] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3109:/ cond.else");
+        
+         /*_#FILNUM__L28*/ curfnum[27] = 0;;
+         }
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3112:/ cond");
+        /*cond*/ if (/*_#FILNUM__L28*/ curfnum[27]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3112:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3112:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-outobj.melt:3112:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[3];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-outobj.melt:3112:/ apply.arg");
+           argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MODNAMSTR__V4*/ curfptr[3];
+           MELT_LOCATION("warmelt-outobj.melt:3112:/ apply.arg");
+           argtab[1].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
+           MELT_LOCATION("warmelt-outobj.melt:3112:/ apply.arg");
+           argtab[2].bp_long = /*_#FILNUM__L28*/ curfnum[27];
+           /*_.NTH_SECUNDARY_FILE__V82*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!NTH_SECUNDARY_FILE*/ curfrout->tabval[32])), (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.SECFIL__V81*/ curfptr[79] = /*_.NTH_SECUNDARY_FILE__V82*/ curfptr[81];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3112:/ clear");
+          /*clear*/ /*_.NTH_SECUNDARY_FILE__V82*/ curfptr[81] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3112:/ cond.else");
+        
+         /*_.SECFIL__V81*/ curfptr[79] = NULL;;
+         }
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3114:/ cond");
+        /*cond*/ if (/*_.SECFIL__V81*/ curfptr[79]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3114:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3114:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-outobj.melt:3114:/ cond");
+          /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SECFIL__V81*/ curfptr[79]), (melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[33])))) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:3114:/ cond.then");
+          MELT_LOCATION("warmelt-outobj.melt:3114:/ getslot");
+           { melt_ptr_t slot=0;
+            melt_object_get_field(slot,(melt_ptr_t)(/*_.SECFIL__V81*/ curfptr[79]), 3, "SECFIL_IMPLBUF");/*_.SECFIL_IMPLBUF__V84*/ curfptr[83] = slot; };
+           ;
+          } else {MELT_LOCATION("warmelt-outobj.melt:3114:/ cond.else");
+          
+           /*_.SECFIL_IMPLBUF__V84*/ curfptr[83] = NULL;;
+           }
+          ;
+          /*_.OUTIMPLBUF__V83*/ curfptr[81] = /*_.SECFIL_IMPLBUF__V84*/ curfptr[83];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3114:/ clear");
+          /*clear*/ /*_.SECFIL_IMPLBUF__V84*/ curfptr[83] = 0 ;}
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3114:/ cond.else");
+        
+         /*_.OUTIMPLBUF__V83*/ curfptr[81] = /*_.IMPLBUF__V35*/ curfptr[34];;
+         }
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3116:/ msend");
+        /*msend*/{
+         union meltparam_un argtab[3];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3116:/ ojbmsend.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
+         MELT_LOCATION("warmelt-outobj.melt:3116:/ ojbmsend.arg");
+         argtab[1].bp_aptr = (melt_ptr_t*) &/*_.OUTIMPLBUF__V83*/ curfptr[81];
+         MELT_LOCATION("warmelt-outobj.melt:3116:/ ojbmsend.arg");
+         argtab[2].bp_long = 0;
+         /*_.OUTPUT_C_CODE__V85*/ curfptr[83] = meltgc_send((melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[34])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.LET___V79*/ curfptr[77] = /*_.OUTPUT_C_CODE__V85*/ curfptr[83];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
+        /*clear*/ /*_#IS_A__L27*/ curfnum[25] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
+        /*clear*/ /*_#FILNUM__L28*/ curfnum[27] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
+        /*clear*/ /*_.SECFIL__V81*/ curfptr[79] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
+        /*clear*/ /*_.OUTIMPLBUF__V83*/ curfptr[81] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
+        /*clear*/ /*_.OUTPUT_C_CODE__V85*/ curfptr[83] = 0 ;}
+       ;
+       } /* end cit1__EACHLIST */
+      
+       /*citerepilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3102:/ clear");
+       /*clear*/ /*_.PAIREL__V75*/ curfptr[73] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3102:/ clear");
+       /*clear*/ /*_.OBEL__V76*/ curfptr[75] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3102:/ clear");
+       /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3102:/ clear");
+       /*clear*/ /*_.LET___V79*/ curfptr[77] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+      ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:3118:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:3118:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L30*/ curfnum[28] = 
+         callcount;;
+        MELT_LOCATION("warmelt-outobj.melt:3118:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3118:/ apply.arg");
+         argtab[0].bp_cstring =  "compile_list_sexpr final modnamstr";
+         MELT_LOCATION("warmelt-outobj.melt:3118:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[28];
+         MELT_LOCATION("warmelt-outobj.melt:3118:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-outobj.melt";
+         MELT_LOCATION("warmelt-outobj.melt:3118:/ apply.arg");
+         argtab[3].bp_long = 3118;
+         /*_.DEBUG_MSG_FUN__V87*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V86*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V87*/ curfptr[81];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3118:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[28] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3118:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[81] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:3118:/ cppif.else");
+      /*_.IFCPP___V86*/ curfptr[79] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:3119:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:3119:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L31*/ curfnum[25] = 
+         callcount;;
+        MELT_LOCATION("warmelt-outobj.melt:3119:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3119:/ apply.arg");
+         argtab[0].bp_cstring =  "compile_list_sexpr outputting iniobj";
+         MELT_LOCATION("warmelt-outobj.melt:3119:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[25];
+         MELT_LOCATION("warmelt-outobj.melt:3119:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-outobj.melt";
+         MELT_LOCATION("warmelt-outobj.melt:3119:/ apply.arg");
+         argtab[3].bp_long = 3119;
+         /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIOBJ__V72*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V88*/ curfptr[83] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[81];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3119:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[25] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3119:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[81] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:3119:/ cppif.else");
+      /*_.IFCPP___V88*/ curfptr[83] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-outobj.melt:3120:/ msend");
+      /*msend*/{
+       union meltparam_un argtab[3];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3120:/ ojbmsend.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
+       MELT_LOCATION("warmelt-outobj.melt:3120:/ ojbmsend.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V35*/ curfptr[34];
+       MELT_LOCATION("warmelt-outobj.melt:3120:/ ojbmsend.arg");
+       argtab[2].bp_long = 0;
+       /*_.OUTPUT_C_CODE__V90*/ curfptr[81] = meltgc_send((melt_ptr_t)(/*_.INIOBJ__V72*/ curfptr[70]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[34])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3121:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[2];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3121:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
+       MELT_LOCATION("warmelt-outobj.melt:3121:/ apply.arg");
+       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V35*/ curfptr[34];
+       /*_.OUTPUT_EXPORTED_OFFSETS__V91*/ curfptr[90] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_EXPORTED_OFFSETS*/ curfrout->tabval[35])), (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3123:/ locexp");
+       /* OUTPUTCFILE__1: */
+			melt_output_cfile_decl_impl((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]),
+						    (melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]),
+						    (melt_ptr_t)(/*_.IMPLBUF__V35*/ curfptr[34])) ;
+			;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3128:/ locexp");
+      inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "warmelt generated module C file"), 
+			     melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])));}
+      ;
+      /*_#WANTS_SINGLE_C_FILE__L32*/ curfnum[27] = 
+        melt_wants_single_c_file () ;;
+      /*_#NOT__L33*/ curfnum[28] = 
+       (!(/*_#WANTS_SINGLE_C_FILE__L32*/ curfnum[27]));;
+      MELT_LOCATION("warmelt-outobj.melt:3129:/ cond");
+      /*cond*/ if (/*_#NOT__L33*/ curfnum[28]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3129:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3129:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-outobj.melt:3130:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-outobj.melt:3130:/ cond");
+         /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[2])))) /*then*/ {
+         MELT_LOCATION("warmelt-outobj.melt:3130:/ cond.then");
+         MELT_LOCATION("warmelt-outobj.melt:3130:/ getslot");
+          { melt_ptr_t slot=0;
+           melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), 5, "MOCX_FILETUPLE");/*_.SECFILES__V92*/ curfptr[91] = slot; };
+          ;
+         } else {MELT_LOCATION("warmelt-outobj.melt:3130:/ cond.else");
+         
+          /*_.SECFILES__V92*/ curfptr[91] = NULL;;
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-outobj.melt:3131:/ cppif.then");
+         MELT_LOCATION("warmelt-outobj.melt:3131:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L34*/ curfnum[25] = 
+            callcount;;
+           MELT_LOCATION("warmelt-outobj.melt:3131:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-outobj.melt:3131:/ apply.arg");
+            argtab[0].bp_cstring =  "compile_list_sexpr secfiles";
+            MELT_LOCATION("warmelt-outobj.melt:3131:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[25];
+            MELT_LOCATION("warmelt-outobj.melt:3131:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-outobj.melt";
+            MELT_LOCATION("warmelt-outobj.melt:3131:/ apply.arg");
+            argtab[3].bp_long = 3131;
+            /*_.DEBUG_MSG_FUN__V94*/ curfptr[93] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SECFILES__V92*/ curfptr[91]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V93*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V94*/ curfptr[93];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-outobj.melt:3131:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[25] = 0 ;
+           MELT_LOCATION("warmelt-outobj.melt:3131:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V94*/ curfptr[93] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-outobj.melt:3131:/ cppif.else");
+         /*_.IFCPP___V93*/ curfptr[92] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         /*citerblock FOREACH_IN_MULTIPLE*/ {
+          /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SECFILES__V92*/ curfptr[91]);
+   for (/*_#FILIX__L35*/ curfnum[25] = 0;  
+	(/*_#FILIX__L35*/ curfnum[25] >= 0) && (/*_#FILIX__L35*/ curfnum[25] <  cit2__EACHTUP_ln);  
+	/*_#FILIX__L35*/ curfnum[25]++) {
+   /*_.CURFIL__V95*/ curfptr[93] = melt_multiple_nth((melt_ptr_t)(/*_.SECFILES__V92*/ curfptr[91]),  /*_#FILIX__L35*/ curfnum[25]);
+   
+         
+          
+          #if ENABLE_CHECKING
+           MELT_LOCATION("warmelt-outobj.melt:3135:/ cppif.then");
+          MELT_LOCATION("warmelt-outobj.melt:3135:/ block");
+           /*block*/{
+            /*_#THE_CALLCOUNT__L36*/ curfnum[35] = 
+             callcount;;
+            MELT_LOCATION("warmelt-outobj.melt:3135:/ apply");
+            /*apply*/{
+             union meltparam_un argtab[4];
+             memset(&argtab, 0, sizeof(argtab));
+             MELT_LOCATION("warmelt-outobj.melt:3135:/ apply.arg");
+             argtab[0].bp_cstring =  "compile_list_sexpr curfil";
+             MELT_LOCATION("warmelt-outobj.melt:3135:/ apply.arg");
+             argtab[1].bp_long = /*_#THE_CALLCOUNT__L36*/ curfnum[35];
+             MELT_LOCATION("warmelt-outobj.melt:3135:/ apply.arg");
+             argtab[2].bp_cstring =  "warmelt-outobj.melt";
+             MELT_LOCATION("warmelt-outobj.melt:3135:/ apply.arg");
+             argtab[3].bp_long = 3135;
+             /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+             }
+            ;
+            /*_.IFCPP___V96*/ curfptr[95] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[96];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-outobj.melt:3135:/ clear");
+            /*clear*/ /*_#THE_CALLCOUNT__L36*/ curfnum[35] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:3135:/ clear");
+            /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[96] = 0 ;}
+           
+           #else /*ENABLE_CHECKING*/
+           MELT_LOCATION("warmelt-outobj.melt:3135:/ cppif.else");
+          /*_.IFCPP___V96*/ curfptr[95] = (/*nil*/NULL);
+           #endif /*ENABLE_CHECKING*/
+           ;
+          MELT_LOCATION("warmelt-outobj.melt:3136:/ cond");
+          /*cond*/ if (/*_.CURFIL__V95*/ curfptr[93]) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:3136:/ cond.then");
+          MELT_LOCATION("warmelt-outobj.melt:3136:/ block");
+           /*block*/{
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-outobj.melt:3138:/ cppif.then");
+            MELT_LOCATION("warmelt-outobj.melt:3138:/ block");
+             /*block*/{
+              /*_#IS_A__L37*/ curfnum[35] = 
+               melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), (melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[33])));;
+              MELT_LOCATION("warmelt-outobj.melt:3138:/ cond");
+              /*cond*/ if (/*_#IS_A__L37*/ curfnum[35]) /*then*/ {
+              MELT_LOCATION("warmelt-outobj.melt:3138:/ cond.then");
+              /*_.IFELSE___V99*/ curfptr[98] = (/*nil*/NULL);;
+              } else {MELT_LOCATION("warmelt-outobj.melt:3138:/ cond.else");
+              
+               MELT_LOCATION("warmelt-outobj.melt:3138:/ block");
+               /*block*/{
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-outobj.melt:3138:/ locexp");
+                 melt_assert_failed(( "check curfil"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3138)?(3138):__LINE__, __FUNCTION__);
+;}
+                 ;
+                 /*clear*/ /*_.IFELSE___V99*/ curfptr[98] = 0 ;}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFCPP___V98*/ curfptr[96] = /*_.IFELSE___V99*/ curfptr[98];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-outobj.melt:3138:/ clear");
+              /*clear*/ /*_#IS_A__L37*/ curfnum[35] = 0 ;
+              MELT_LOCATION("warmelt-outobj.melt:3138:/ clear");
+              /*clear*/ /*_.IFELSE___V99*/ curfptr[98] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-outobj.melt:3138:/ cppif.else");
+            /*_.IFCPP___V98*/ curfptr[96] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-outobj.melt:3140:/ cppif.then");
+            MELT_LOCATION("warmelt-outobj.melt:3140:/ block");
+             /*block*/{
+              /*_#GET_INT__L38*/ curfnum[35] = 
+               (melt_get_int((melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93])));;
+              /*_#I__L39*/ curfnum[38] = 
+               ((/*_#GET_INT__L38*/ curfnum[35]) == (/*_#FILIX__L35*/ curfnum[25]));;
+              MELT_LOCATION("warmelt-outobj.melt:3140:/ cond");
+              /*cond*/ if (/*_#I__L39*/ curfnum[38]) /*then*/ {
+              MELT_LOCATION("warmelt-outobj.melt:3140:/ cond.then");
+              /*_.IFELSE___V101*/ curfptr[100] = (/*nil*/NULL);;
+              } else {MELT_LOCATION("warmelt-outobj.melt:3140:/ cond.else");
+              
+               MELT_LOCATION("warmelt-outobj.melt:3140:/ block");
+               /*block*/{
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-outobj.melt:3140:/ locexp");
+                 melt_assert_failed(( "check curfil index"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3140)?(3140):__LINE__, __FUNCTION__);
+;}
+                 ;
+                 /*clear*/ /*_.IFELSE___V101*/ curfptr[100] = 0 ;}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFCPP___V100*/ curfptr[98] = /*_.IFELSE___V101*/ curfptr[100];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-outobj.melt:3140:/ clear");
+              /*clear*/ /*_#GET_INT__L38*/ curfnum[35] = 0 ;
+              MELT_LOCATION("warmelt-outobj.melt:3140:/ clear");
+              /*clear*/ /*_#I__L39*/ curfnum[38] = 0 ;
+              MELT_LOCATION("warmelt-outobj.melt:3140:/ clear");
+              /*clear*/ /*_.IFELSE___V101*/ curfptr[100] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-outobj.melt:3140:/ cppif.else");
+            /*_.IFCPP___V100*/ curfptr[98] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            MELT_LOCATION("warmelt-outobj.melt:3142:/ block");
+            /*block*/{
+             MELT_LOCATION("warmelt-outobj.melt:3142:/ cond");
+             /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), (melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[33])))) /*then*/ {
+             MELT_LOCATION("warmelt-outobj.melt:3142:/ cond.then");
+             MELT_LOCATION("warmelt-outobj.melt:3142:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), 1, "SECFIL_PATH");/*_.SECFILPATH__V102*/ curfptr[100] = slot; };
+              ;
+             } else {MELT_LOCATION("warmelt-outobj.melt:3142:/ cond.else");
+             
+              /*_.SECFILPATH__V102*/ curfptr[100] = NULL;;
+              }
+             ;
+             MELT_LOCATION("warmelt-outobj.melt:3143:/ cond");
+             /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), (melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[33])))) /*then*/ {
+             MELT_LOCATION("warmelt-outobj.melt:3143:/ cond.then");
+             MELT_LOCATION("warmelt-outobj.melt:3143:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), 2, "SECFIL_DECLBUF");/*_.SECDECLBUF__V103*/ curfptr[102] = slot; };
+              ;
+             } else {MELT_LOCATION("warmelt-outobj.melt:3143:/ cond.else");
+             
+              /*_.SECDECLBUF__V103*/ curfptr[102] = NULL;;
+              }
+             ;
+             MELT_LOCATION("warmelt-outobj.melt:3144:/ cond");
+             /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), (melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[33])))) /*then*/ {
+             MELT_LOCATION("warmelt-outobj.melt:3144:/ cond.then");
+             MELT_LOCATION("warmelt-outobj.melt:3144:/ getslot");
+              { melt_ptr_t slot=0;
+               melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFIL__V95*/ curfptr[93]), 3, "SECFIL_IMPLBUF");/*_.SECIMPLBUF__V104*/ curfptr[103] = slot; };
+              ;
+             } else {MELT_LOCATION("warmelt-outobj.melt:3144:/ cond.else");
+             
+              /*_.SECIMPLBUF__V104*/ curfptr[103] = NULL;;
+              }
+             ;
+             
+             {
+             MELT_LOCATION("warmelt-outobj.melt:3148:/ locexp");
+              /* SECFILOUT__1 */
+			    melt_output_cfile_decl_impl_secondary((melt_ptr_t)(/*_.SECFILPATH__V102*/ curfptr[100]),
+							(melt_ptr_t)(/*_.SECDECLBUF__V103*/ curfptr[102]),
+							(melt_ptr_t)(/*_.SECIMPLBUF__V104*/ curfptr[103]),
+							/*_#FILIX__L35*/ curfnum[25]) ;
+			    ;}
+             ;
+             
+             {
+             MELT_LOCATION("warmelt-outobj.melt:3154:/ locexp");
+             inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "warmelt generated secondary C file"), 
+			     melt_string_str((melt_ptr_t)(/*_.SECFILPATH__V102*/ curfptr[100])));}
+             ;
+             /*epilog*/
+             MELT_LOCATION("warmelt-outobj.melt:3142:/ clear");
+             /*clear*/ /*_.SECFILPATH__V102*/ curfptr[100] = 0 ;
+             MELT_LOCATION("warmelt-outobj.melt:3142:/ clear");
+             /*clear*/ /*_.SECDECLBUF__V103*/ curfptr[102] = 0 ;
+             MELT_LOCATION("warmelt-outobj.melt:3142:/ clear");
+             /*clear*/ /*_.SECIMPLBUF__V104*/ curfptr[103] = 0 ;}
+            ;
+            MELT_LOCATION("warmelt-outobj.melt:3137:/ block");
+            /*block*/{}
+            ;
+            /*epilog*/
+            MELT_LOCATION("warmelt-outobj.melt:3136:/ clear");
+            /*clear*/ /*_.IFCPP___V98*/ curfptr[96] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:3136:/ clear");
+            /*clear*/ /*_.IFCPP___V100*/ curfptr[98] = 0 ;}
+           ;
+          } /*noelse*/
+          ;
+          if (/*_#FILIX__L35*/ curfnum[25]<0) break;
+   } /* end cit2__EACHTUP */ 
+         
+          /*citerepilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3132:/ clear");
+          /*clear*/ /*_.CURFIL__V95*/ curfptr[93] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:3132:/ clear");
+          /*clear*/ /*_#FILIX__L35*/ curfnum[25] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:3132:/ clear");
+          /*clear*/ /*_.IFCPP___V96*/ curfptr[95] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-outobj.melt:3130:/ clear");
+         /*clear*/ /*_.SECFILES__V92*/ curfptr[91] = 0 ;
+         MELT_LOCATION("warmelt-outobj.melt:3130:/ clear");
+         /*clear*/ /*_.IFCPP___V93*/ curfptr[92] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_.INIOBJ__V72*/ curfptr[70] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_.IFCPP___V73*/ curfptr[72] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_#LIST_LENGTH__L25*/ curfnum[17] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_.IFCPP___V86*/ curfptr[79] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_.IFCPP___V88*/ curfptr[83] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_.OUTPUT_C_CODE__V90*/ curfptr[81] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_.OUTPUT_EXPORTED_OFFSETS__V91*/ curfptr[90] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_#WANTS_SINGLE_C_FILE__L32*/ curfnum[27] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3090:/ clear");
+      /*clear*/ /*_#NOT__L33*/ curfnum[28] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ clear");
+     /*clear*/ /*_.INIPRO__V64*/ curfptr[62] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ clear");
+     /*clear*/ /*_.INIDATA__V65*/ curfptr[64] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ clear");
+     /*clear*/ /*_.IMPORTVALUES__V66*/ curfptr[65] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ clear");
+     /*clear*/ /*_.PROCURMODENVLIST__V67*/ curfptr[66] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ clear");
+     /*clear*/ /*_.IFCPP___V68*/ curfptr[67] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3083:/ clear");
+     /*clear*/ /*_.IFCPP___V70*/ curfptr[68] = 0 ;}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.PROLIST__V49*/ curfptr[48] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.OBJLIST__V50*/ curfptr[49] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_#LIST_LENGTH__L15*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.COMPICACHE__V51*/ curfptr[50] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.COUNTBOX__V52*/ curfptr[51] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.IFCPP___V53*/ curfptr[52] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.IFCPP___V55*/ curfptr[53] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.LAMBDA___V57*/ curfptr[55] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.LIST_EVERY__V59*/ curfptr[58] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3062:/ clear");
+    /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.XLIST__V28*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.LIST_FIRST__V29*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.FIRSTX__V30*/ curfptr[29] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.FIRSTLOC__V31*/ curfptr[30] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.INIPROC__V33*/ curfptr[31] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.DECLBUF__V34*/ curfptr[33] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.IMPLBUF__V35*/ curfptr[34] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.UCMEB1__V36*/ curfptr[35] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_#__L10*/ curfnum[9] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.LAMBDA___V46*/ curfptr[44] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3008:/ clear");
+   /*clear*/ /*_.LIST_EVERY__V48*/ curfptr[47] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V17*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.MAKE_MAPSTRING__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.MAKE_INTEGERBOX__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.MODCTX__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.NCX__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:2996:/ clear");
+  /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3157:/ locexp");
+ debugeputs(( "ended compile_list_sexpr"));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
+ /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILE_LIST_SEXPR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_122_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_122_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 11
+  long varnum[11];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ getarg");
+ /*_.SEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ getarg");
+ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
+ /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3032:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3033:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3033:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3033:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3033:/ apply.arg");
+    argtab[0].bp_cstring =  "compile_list_sexpr sexp";
+    MELT_LOCATION("warmelt-outobj.melt:3033:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
+    MELT_LOCATION("warmelt-outobj.melt:3033:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3033:/ apply.arg");
+    argtab[3].bp_long = 3033;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3033:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3033:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3033:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3034:/ block");
+ /*block*/{
+  /*_#IS_A__L3*/ curfnum[1] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:3035:/ cond");
+  /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3035:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3035:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3035:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V6*/ curfptr[5] = slot; };
+    ;
+    /*_.PSLOC__V5*/ curfptr[3] = /*_.LOCA_LOCATION__V6*/ curfptr[5];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3035:/ clear");
+    /*clear*/ /*_.LOCA_LOCATION__V6*/ curfptr[5] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3035:/ cond.else");
+  
+   /*_.PSLOC__V5*/ curfptr[3] = NULL;;
+   }
+  ;
+  /*_#IS_A__L4*/ curfnum[3] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[2])));;
+  MELT_LOCATION("warmelt-outobj.melt:3039:/ cond");
+  /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3039:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3039:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3040:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3040:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V7*/ curfptr[5] = slot; };
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3041:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 2, "SCOMM_STR");/*_.SCOMM__V8*/ curfptr[7] = slot; };
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3043:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0);}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3044:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), ( "/**!!** "));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3045:/ locexp");
+     meltgc_add_strbuf_ccomment((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.SCOMM__V8*/ curfptr[7])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3046:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), ( "**!!**/"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3047:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0);}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3040:/ clear");
+     /*clear*/ /*_.SLOC__V7*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3040:/ clear");
+     /*clear*/ /*_.SCOMM__V8*/ curfptr[7] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3039:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3039:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3050:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3050:/ multimsend");
+     /*multimsend*/{
+      union meltparam_un argtab[3];
+      union meltparam_un restab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      memset(&restab, 0, sizeof(restab));
+      MELT_LOCATION("warmelt-outobj.melt:3050:/ multimsend.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*~INIENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-outobj.melt:3050:/ multimsend.arg");
+      argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-outobj.melt:3050:/ multimsend.arg");
+      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3];
+      MELT_LOCATION("warmelt-outobj.melt:3050:/ multimsend.xres");
+      restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V10*/ curfptr[7];MELT_LOCATION("warmelt-outobj.melt:3050:/ multimsend.send");
+      /*_.NEXP__V9*/ curfptr[5] =  meltgc_send ((melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
+      }
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3050:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:3053:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:3053:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+         callcount;;
+        MELT_LOCATION("warmelt-outobj.melt:3053:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3053:/ apply.arg");
+         argtab[0].bp_cstring =  "compile_list_sexpr nexp";
+         MELT_LOCATION("warmelt-outobj.melt:3053:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+         MELT_LOCATION("warmelt-outobj.melt:3053:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-outobj.melt";
+         MELT_LOCATION("warmelt-outobj.melt:3053:/ apply.arg");
+         argtab[3].bp_long = 3053;
+         /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3053:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3053:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:3053:/ cppif.else");
+      /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:3054:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:3054:/ block");
+       /*block*/{
+        /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
+         callcount;;
+        MELT_LOCATION("warmelt-outobj.melt:3054:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[4];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3054:/ apply.arg");
+         argtab[0].bp_cstring =  "compile_list_sexpr nbind";
+         MELT_LOCATION("warmelt-outobj.melt:3054:/ apply.arg");
+         argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
+         MELT_LOCATION("warmelt-outobj.melt:3054:/ apply.arg");
+         argtab[2].bp_cstring =  "warmelt-outobj.melt";
+         MELT_LOCATION("warmelt-outobj.melt:3054:/ apply.arg");
+         argtab[3].bp_long = 3054;
+         /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBIND__V10*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3054:/ clear");
+        /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3054:/ clear");
+        /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:3054:/ cppif.else");
+      /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      /*_#IS_A__L7*/ curfnum[4] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[4])));;
+      MELT_LOCATION("warmelt-outobj.melt:3055:/ cond");
+      /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3055:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3055:/ block");
+       /*block*/{
+        /*_#IS_A__L9*/ curfnum[8] = 
+         melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));;
+        /*_#NOT__L10*/ curfnum[9] = 
+         (!(/*_#IS_A__L9*/ curfnum[8]));;
+        /*_#IF___L8*/ curfnum[7] = /*_#NOT__L10*/ curfnum[9];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3055:/ clear");
+        /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3055:/ clear");
+        /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3055:/ cond.else");
+      
+       /*_#IF___L8*/ curfnum[7] = 0;;
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3055:/ cond");
+      /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3055:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3055:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-outobj.melt:3057:/ block");
+        /*block*/{
+         MELT_LOCATION("warmelt-outobj.melt:3057:/ apply");
+         /*apply*/{
+          union meltparam_un argtab[2];
+          memset(&argtab, 0, sizeof(argtab));
+          MELT_LOCATION("warmelt-outobj.melt:3057:/ apply.arg");
+          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V10*/ curfptr[7];
+          MELT_LOCATION("warmelt-outobj.melt:3057:/ apply.arg");
+          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3];
+          /*_.WNEXP__V15*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+          }
+         ;
+         
+         #if ENABLE_CHECKING
+          MELT_LOCATION("warmelt-outobj.melt:3058:/ cppif.then");
+         MELT_LOCATION("warmelt-outobj.melt:3058:/ block");
+          /*block*/{
+           /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
+            callcount;;
+           MELT_LOCATION("warmelt-outobj.melt:3058:/ apply");
+           /*apply*/{
+            union meltparam_un argtab[4];
+            memset(&argtab, 0, sizeof(argtab));
+            MELT_LOCATION("warmelt-outobj.melt:3058:/ apply.arg");
+            argtab[0].bp_cstring =  "compile_list_sexpr wnexp";
+            MELT_LOCATION("warmelt-outobj.melt:3058:/ apply.arg");
+            argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
+            MELT_LOCATION("warmelt-outobj.melt:3058:/ apply.arg");
+            argtab[2].bp_cstring =  "warmelt-outobj.melt";
+            MELT_LOCATION("warmelt-outobj.melt:3058:/ apply.arg");
+            argtab[3].bp_long = 3058;
+            /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.WNEXP__V15*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+            }
+           ;
+           /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+           /*epilog*/
+           MELT_LOCATION("warmelt-outobj.melt:3058:/ clear");
+           /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
+           MELT_LOCATION("warmelt-outobj.melt:3058:/ clear");
+           /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+          
+          #else /*ENABLE_CHECKING*/
+          MELT_LOCATION("warmelt-outobj.melt:3058:/ cppif.else");
+         /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+          #endif /*ENABLE_CHECKING*/
+          ;
+         MELT_LOCATION("warmelt-outobj.melt:3059:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)((/*~INIPROC*/ curfclos->tabval[3])), 2, "NINIT_TOPL");/*_.NINIT_TOPL__V18*/ curfptr[16] = slot; };
+         ;
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:3059:/ locexp");
+         meltgc_append_list((melt_ptr_t)(/*_.NINIT_TOPL__V18*/ curfptr[16]), (melt_ptr_t)(/*_.WNEXP__V15*/ curfptr[13]));}
+         ;
+         /*epilog*/
+         MELT_LOCATION("warmelt-outobj.melt:3057:/ clear");
+         /*clear*/ /*_.WNEXP__V15*/ curfptr[13] = 0 ;
+         MELT_LOCATION("warmelt-outobj.melt:3057:/ clear");
+         /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+         MELT_LOCATION("warmelt-outobj.melt:3057:/ clear");
+         /*clear*/ /*_.NINIT_TOPL__V18*/ curfptr[16] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
+      /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
+      /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
+      /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
+      /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
+     /*clear*/ /*_.NBIND__V10*/ curfptr[7] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+   }
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3034:/ clear");
+  /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3034:/ clear");
+  /*clear*/ /*_.PSLOC__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3034:/ clear");
+  /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_122_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_123_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_123_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ getarg");
+ /*_.PRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3071:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3072:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3072:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3072:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3072:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3072:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3072:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3072:/ locexp");
+      melt_assert_failed(( "check pro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3072)?(3072):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3072:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3072:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3072:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3073:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3073:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3073:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
+    argtab[0].bp_cstring =  "compile_list_sexpr pro";
+    MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
+    argtab[3].bp_long = 3073;
+    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3073:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3073:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3073:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#GET_INT__L3*/ curfnum[0] = 
+  (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
+ /*_#I__L4*/ curfnum[3] = 
+  ((/*_#GET_INT__L3*/ curfnum[0]) + (1));;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3074:/ locexp");
+ melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L4*/ curfnum[3]));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3075:/ block");
+ /*block*/{
+  /*_#GET_INT__L5*/ curfnum[4] = 
+   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
+  MELT_LOCATION("warmelt-outobj.melt:3075:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[3];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3075:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~MODCTX*/ curfclos->tabval[1]);
+   MELT_LOCATION("warmelt-outobj.melt:3075:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~COMPICACHE*/ curfclos->tabval[2]);
+   MELT_LOCATION("warmelt-outobj.melt:3075:/ apply.arg");
+   argtab[2].bp_long = /*_#GET_INT__L5*/ curfnum[4];
+   /*_.OBJPRO__V7*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_PROCEDURE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3076:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3076:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3076:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3076:/ apply.arg");
+     argtab[0].bp_cstring =  "compile_list_sexpr objpro";
+     MELT_LOCATION("warmelt-outobj.melt:3076:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
+     MELT_LOCATION("warmelt-outobj.melt:3076:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3076:/ apply.arg");
+     argtab[3].bp_long = 3076;
+     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBJPRO__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3076:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3076:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3076:/ cppif.else");
+  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3077:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3077:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3077:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3077:/ apply.arg");
+     argtab[0].bp_cstring =  "compile_list_sexpr done pro";
+     MELT_LOCATION("warmelt-outobj.melt:3077:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
+     MELT_LOCATION("warmelt-outobj.melt:3077:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3077:/ apply.arg");
+     argtab[3].bp_long = 3077;
+     /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3077:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3077:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3077:/ cppif.else");
+  /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3078:/ locexp");
+  meltgc_append_list((melt_ptr_t)((/*~OBJLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OBJPRO__V7*/ curfptr[5]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3075:/ clear");
+  /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3075:/ clear");
+  /*clear*/ /*_.OBJPRO__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3075:/ clear");
+  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3075:/ clear");
+  /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ clear");
+ /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ clear");
+ /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_123_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_124_warmelt_outobj_INSTALL_MELT_MODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_124_warmelt_outobj_INSTALL_MELT_MODE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 8
+  void* varptr[8];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<8; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 8;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("INSTALL_MELT_MODE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ getarg");
+ /*_.MODE__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3165:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3167:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3167:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3167:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
+    argtab[0].bp_cstring =  "install_melt_mode mode";
+    MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
+    argtab[3].bp_long = 3167;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3167:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3167:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3167:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3168:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3168:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MELT_MODE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:3168:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3168:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3168:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3168:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3168:/ locexp");
+      melt_assert_failed(( "check mode"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3168)?(3168):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3168:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3168:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3168:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3169:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3169:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[2])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3169:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3169:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[2])), 2, "SYSDATA_MODE_DICT");/*_.CMDICT__V7*/ curfptr[5] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3169:/ cond.else");
+  
+   /*_.CMDICT__V7*/ curfptr[5] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3170:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3170:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3170:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.CNAM__V8*/ curfptr[7] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3170:/ cond.else");
+  
+   /*_.CNAM__V8*/ curfptr[7] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3172:/ locexp");
+  meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.CMDICT__V7*/ curfptr[5]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[7])), (melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3169:/ clear");
+  /*clear*/ /*_.CMDICT__V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3169:/ clear");
+  /*clear*/ /*_.CNAM__V8*/ curfptr[7] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("INSTALL_MELT_MODE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_124_warmelt_outobj_INSTALL_MELT_MODE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 10
+  long varnum[10];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("COMPILE_ONE_OR_MORE_FILES", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ getarg");
+ /*_.FILES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODSRCNAME__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODSRCNAME__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CURENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CURENV__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3183:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3184:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3184:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3184:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3184:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3184:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3184:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3184:/ locexp");
+      melt_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3184)?(3184):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3184:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3184:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3184:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3185:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3185:/ block");
+  /*block*/{
+   /*_#IS_STRING__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.MODSRCNAME__V3*/ curfptr[2])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:3185:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3185:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3185:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3185:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3185:/ locexp");
+      melt_assert_failed(( "check modsrcname"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3185)?(3185):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3185:/ clear");
+   /*clear*/ /*_#IS_STRING__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3185:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3185:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3186:/ block");
+ /*block*/{
+  /*_.RLIST__V10*/ curfptr[9] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));;
+  /*_#IS_STRING__L3*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.FILES__V2*/ curfptr[1])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-outobj.melt:3189:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3189:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3189:/ block");
+   /*block*/{
+    /*_.READ_FILE__V12*/ curfptr[11] = 
+     (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.FILES__V2*/ curfptr[1])), (char*)0));;
+    MELT_LOCATION("warmelt-outobj.melt:3190:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3190:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.READ_FILE__V12*/ curfptr[11];
+     /*_.LIST_APPEND2LIST__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFELSE___V11*/ curfptr[10] = /*_.LIST_APPEND2LIST__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
+    /*clear*/ /*_.READ_FILE__V12*/ curfptr[11] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V13*/ curfptr[12] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3189:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3189:/ block");
+   /*block*/{
+    /*_#IS_LIST__L4*/ curfnum[3] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.FILES__V2*/ curfptr[1])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-outobj.melt:3191:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3191:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3191:/ block");
+     /*block*/{
+      /*citerblock FOREACH_IN_LIST*/ {
+      /* start cit1__EACHLIST */
+   for (/*_.CURPAIR__V15*/ curfptr[12] = melt_list_first(/*_.FILES__V2*/ curfptr[1]);
+	melt_magic_discr(/*_.CURPAIR__V15*/ curfptr[12]) == OBMAG_PAIR;
+        /*_.CURPAIR__V15*/ curfptr[12] = melt_pair_tail(/*_.CURPAIR__V15*/ curfptr[12])) {
+	/*_.CURFILE__V16*/ curfptr[15] = melt_pair_head(/*_.CURPAIR__V15*/ curfptr[12]); 
+      
+       
+       #if ENABLE_CHECKING
+        MELT_LOCATION("warmelt-outobj.melt:3195:/ cppif.then");
+       MELT_LOCATION("warmelt-outobj.melt:3195:/ block");
+        /*block*/{
+         /*_#IS_STRING__L5*/ curfnum[4] = 
+          (melt_magic_discr((melt_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])) == OBMAG_STRING);;
+         MELT_LOCATION("warmelt-outobj.melt:3195:/ cond");
+         /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
+         MELT_LOCATION("warmelt-outobj.melt:3195:/ cond.then");
+         /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
+         } else {MELT_LOCATION("warmelt-outobj.melt:3195:/ cond.else");
+         
+          MELT_LOCATION("warmelt-outobj.melt:3195:/ block");
+          /*block*/{
+           /*block*/{
+            
+            {
+            MELT_LOCATION("warmelt-outobj.melt:3195:/ locexp");
+            melt_assert_failed(( "check curfile"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3195)?(3195):__LINE__, __FUNCTION__);
+;}
+            ;
+            /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+           ;
+           /*epilog*/}
+          ;
+          }
+         ;
+         /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
+         /*epilog*/
+         MELT_LOCATION("warmelt-outobj.melt:3195:/ clear");
+         /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
+         MELT_LOCATION("warmelt-outobj.melt:3195:/ clear");
+         /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
+        
+        #else /*ENABLE_CHECKING*/
+        MELT_LOCATION("warmelt-outobj.melt:3195:/ cppif.else");
+       /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+        #endif /*ENABLE_CHECKING*/
+        ;
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3196:/ locexp");
+       inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "reading from file"), 
+			     melt_string_str((melt_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])));}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:3197:/ block");
+       /*block*/{
+        /*_.CUREAD__V20*/ curfptr[19] = 
+         (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])), (char*)0));;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-outobj.melt:3199:/ cppif.then");
+        MELT_LOCATION("warmelt-outobj.melt:3199:/ block");
+         /*block*/{
+          /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
+           callcount;;
+          MELT_LOCATION("warmelt-outobj.melt:3199:/ apply");
+          /*apply*/{
+           union meltparam_un argtab[4];
+           memset(&argtab, 0, sizeof(argtab));
+           MELT_LOCATION("warmelt-outobj.melt:3199:/ apply.arg");
+           argtab[0].bp_cstring =  "compilefile_mode curead";
+           MELT_LOCATION("warmelt-outobj.melt:3199:/ apply.arg");
+           argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
+           MELT_LOCATION("warmelt-outobj.melt:3199:/ apply.arg");
+           argtab[2].bp_cstring =  "warmelt-outobj.melt";
+           MELT_LOCATION("warmelt-outobj.melt:3199:/ apply.arg");
+           argtab[3].bp_long = 3199;
+           /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREAD__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+           }
+          ;
+          /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3199:/ clear");
+          /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:3199:/ clear");
+          /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-outobj.melt:3199:/ cppif.else");
+        /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-outobj.melt:3200:/ cppif.then");
+        MELT_LOCATION("warmelt-outobj.melt:3200:/ block");
+         /*block*/{
+          /*_#IS_LIST_OR_NULL__L7*/ curfnum[4] = 
+           ((/*_.CUREAD__V20*/ curfptr[19]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V20*/ curfptr[19])) == OBMAG_LIST));;
+          MELT_LOCATION("warmelt-outobj.melt:3200:/ cond");
+          /*cond*/ if (/*_#IS_LIST_OR_NULL__L7*/ curfnum[4]) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:3200:/ cond.then");
+          /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
+          } else {MELT_LOCATION("warmelt-outobj.melt:3200:/ cond.else");
+          
+           MELT_LOCATION("warmelt-outobj.melt:3200:/ block");
+           /*block*/{
+            /*block*/{
+             
+             {
+             MELT_LOCATION("warmelt-outobj.melt:3200:/ locexp");
+             melt_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3200)?(3200):__LINE__, __FUNCTION__);
+;}
+             ;
+             /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+            ;
+            /*epilog*/}
+           ;
+           }
+          ;
+          /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3200:/ clear");
+          /*clear*/ /*_#IS_LIST_OR_NULL__L7*/ curfnum[4] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:3200:/ clear");
+          /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-outobj.melt:3200:/ cppif.else");
+        /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-outobj.melt:3201:/ apply");
+        /*apply*/{
+         union meltparam_un argtab[1];
+         memset(&argtab, 0, sizeof(argtab));
+         MELT_LOCATION("warmelt-outobj.melt:3201:/ apply.arg");
+         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREAD__V20*/ curfptr[19];
+         /*_.LIST_APPEND2LIST__V25*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+         }
+        ;
+        /*_.LET___V19*/ curfptr[17] = /*_.LIST_APPEND2LIST__V25*/ curfptr[23];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3197:/ clear");
+        /*clear*/ /*_.CUREAD__V20*/ curfptr[19] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3197:/ clear");
+        /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3197:/ clear");
+        /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3197:/ clear");
+        /*clear*/ /*_.LIST_APPEND2LIST__V25*/ curfptr[23] = 0 ;}
+       ;
+       /*_.IFELSE___V14*/ curfptr[11] = /*_.LET___V19*/ curfptr[17];;
+       } /* end cit1__EACHLIST */
+      
+       /*citerepilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3192:/ clear");
+       /*clear*/ /*_.CURPAIR__V15*/ curfptr[12] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3192:/ clear");
+       /*clear*/ /*_.CURFILE__V16*/ curfptr[15] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3192:/ clear");
+       /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3192:/ clear");
+       /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+      ;
+      /*epilog*/}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3191:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3191:/ block");
+     /*block*/{
+      
+      #if ENABLE_CHECKING
+       MELT_LOCATION("warmelt-outobj.melt:3203:/ cppif.then");
+      MELT_LOCATION("warmelt-outobj.melt:3203:/ block");
+       /*block*/{
+        MELT_LOCATION("warmelt-outobj.melt:3203:/ cond");
+        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3203:/ cond.then");
+        /*_.IFELSE___V27*/ curfptr[20] = (/*nil*/NULL);;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3203:/ cond.else");
+        
+         MELT_LOCATION("warmelt-outobj.melt:3203:/ block");
+         /*block*/{
+          /*block*/{
+           
+           {
+           MELT_LOCATION("warmelt-outobj.melt:3203:/ locexp");
+           melt_assert_failed(( "bad files - should be a list of filenames or a filename"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3203)?(3203):__LINE__, __FUNCTION__);
+;}
+           ;
+           /*clear*/ /*_.IFELSE___V27*/ curfptr[20] = 0 ;}
+          ;
+          /*epilog*/}
+         ;
+         }
+        ;
+        /*_.IFCPP___V26*/ curfptr[19] = /*_.IFELSE___V27*/ curfptr[20];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3203:/ clear");
+        /*clear*/ /*_.IFELSE___V27*/ curfptr[20] = 0 ;}
+       
+       #else /*ENABLE_CHECKING*/
+       MELT_LOCATION("warmelt-outobj.melt:3203:/ cppif.else");
+      /*_.IFCPP___V26*/ curfptr[19] = (/*nil*/NULL);
+       #endif /*ENABLE_CHECKING*/
+       ;
+      MELT_LOCATION("warmelt-outobj.melt:3202:/ block");
+      /*block*/{
+       /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[19];;}
+      ;
+      /*_.IFELSE___V14*/ curfptr[11] = /*_.PROGN___V28*/ curfptr[21];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3191:/ clear");
+      /*clear*/ /*_.IFCPP___V26*/ curfptr[19] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3191:/ clear");
+      /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
+    /*clear*/ /*_#IS_LIST__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3205:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3205:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3205:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3205:/ apply.arg");
+     argtab[0].bp_cstring =  "after read compile_one_or_more_files rlist";
+     MELT_LOCATION("warmelt-outobj.melt:3205:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4];
+     MELT_LOCATION("warmelt-outobj.melt:3205:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3205:/ apply.arg");
+     argtab[3].bp_long = 3205;
+     /*_.DEBUG_MSG_FUN__V30*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V29*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[20];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3205:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3205:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[20] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3205:/ cppif.else");
+  /*_.IFCPP___V29*/ curfptr[23] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3206:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3206:/ block");
+   /*block*/{
+    /*_#LIST_LENGTH__L9*/ curfnum[3] = 
+     (melt_list_length((melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9])));;
+    /*_#I__L10*/ curfnum[4] = 
+     ((/*_#LIST_LENGTH__L9*/ curfnum[3]) > (0));;
+    MELT_LOCATION("warmelt-outobj.melt:3206:/ cond");
+    /*cond*/ if (/*_#I__L10*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3206:/ cond.then");
+    /*_.IFELSE___V32*/ curfptr[21] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3206:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3206:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3206:/ locexp");
+       melt_assert_failed(( "check non empty rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3206)?(3206):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V32*/ curfptr[21] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V31*/ curfptr[19] = /*_.IFELSE___V32*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3206:/ clear");
+    /*clear*/ /*_#LIST_LENGTH__L9*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3206:/ clear");
+    /*clear*/ /*_#I__L10*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3206:/ clear");
+    /*clear*/ /*_.IFELSE___V32*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3206:/ cppif.else");
+  /*_.IFCPP___V31*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:3207:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3207:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:3207:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MODSRCNAME__V3*/ curfptr[2];
+   /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V9*/ curfptr[7] = /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[11];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
+  /*clear*/ /*_.RLIST__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
+  /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
+  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
+  /*clear*/ /*_.IFCPP___V29*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
+  /*clear*/ /*_.IFCPP___V31*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
+  /*clear*/ /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[11] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
+  MELT_LOCATION("warmelt-outobj.melt:3183:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ clear");
+ /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("COMPILE_ONE_OR_MORE_FILES", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 29
+  void* varptr[29];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+const char* loc_CSTRING__o0;
+const char* loc_CSTRING__o1;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<29; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 29;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("TRANSLATEFILE_DOCMD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ getarg");
+ /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3212:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3213:/ locexp");
+ debugeputs(( "starting translatefile_docmd"));}
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3214:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3214:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3214:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
+    argtab[0].bp_cstring =  "start translatefile_docmd cmd";
+    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
+    argtab[3].bp_long = 3214;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3214:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3214:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3214:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3215:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3215:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3215:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3215:/ apply.arg");
+    argtab[0].bp_cstring =  "start translatefile_docmd moduldata";
+    MELT_LOCATION("warmelt-outobj.melt:3215:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3215:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3215:/ apply.arg");
+    argtab[3].bp_long = 3215;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3215:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3216:/ block");
+ /*block*/{
+  /*_.PARMODENV__V9*/ curfptr[8] = (/*!konst_1*/ curfrout->tabval[1]);;
+  MELT_LOCATION("warmelt-outobj.melt:3218:/ cond");
+  /*cond*/ if (/*_.MODULDATA__V3*/ curfptr[2]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3218:/ cond.then");
+  /*_.CURENV__V10*/ curfptr[9] = /*_.MODULDATA__V3*/ curfptr[2];;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3218:/ cond.else");
+  
+   /*_.CURENV__V10*/ curfptr[9] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);;
+   }
+  ;
+  /*_?*/ curfram__.loc_CSTRING__o0 = 
+   melt_argument( "arg");;
+  /*_.INARG__V11*/ curfptr[10] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
+  /*_?*/ curfram__.loc_CSTRING__o1 = 
+   melt_argument( "output");;
+  /*_.OUTARG__V12*/ curfptr[11] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o1)));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3222:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3222:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3222:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
+     argtab[0].bp_cstring =  "translatefile_docmd inarg";
+     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
+     argtab[3].bp_long = 3222;
+     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INARG__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3222:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3222:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3222:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3223:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3223:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3223:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3223:/ apply.arg");
+     argtab[0].bp_cstring =  "translatefile_docmd outarg";
+     MELT_LOCATION("warmelt-outobj.melt:3223:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3223:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3223:/ apply.arg");
+     argtab[3].bp_long = 3223;
+     /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OUTARG__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3223:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3223:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3223:/ cppif.else");
+  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3224:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3224:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3224:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3224:/ apply.arg");
+     argtab[0].bp_cstring =  "before read translatefile_docmd parmodenv";
+     MELT_LOCATION("warmelt-outobj.melt:3224:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3224:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3224:/ apply.arg");
+     argtab[3].bp_long = 3224;
+     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PARMODENV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3224:/ cppif.else");
+  /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3225:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3225:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3225:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3225:/ apply.arg");
+     argtab[0].bp_cstring =  "before read translatefile_docmd initial_environment";
+     MELT_LOCATION("warmelt-outobj.melt:3225:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3225:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3225:/ apply.arg");
+     argtab[3].bp_long = 3225;
+     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3225:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3225:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3225:/ cppif.else");
+  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3226:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3226:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:3226:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3226:/ cond.then");
+    /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3226:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3226:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3226:/ locexp");
+       melt_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3226)?(3226):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3226:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3226:/ clear");
+    /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3226:/ cppif.else");
+  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:3227:/ block");
+  /*block*/{
+   /*_#IS_STRING__L8*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V12*/ curfptr[11])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:3228:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L8*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3228:/ cond.then");
+   /*_.BASNAM__V24*/ curfptr[23] = /*_.OUTARG__V12*/ curfptr[11];;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3228:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3228:/ block");
+    /*block*/{
+     /*_#IS_STRING__L9*/ curfnum[8] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.INARG__V11*/ curfptr[10])) == OBMAG_STRING);;
+     MELT_LOCATION("warmelt-outobj.melt:3229:/ cond");
+     /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[8]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3229:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3229:/ block");
+      /*block*/{
+       /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[25] = 
+        (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V11*/ curfptr[10]))));;
+       /*_.IFELSE___V25*/ curfptr[24] = /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[25];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3229:/ clear");
+       /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[25] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3229:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3229:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3231:/ locexp");
+       error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid translatefile mode"));}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:3232:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+        MELT_LOCATION("warmelt-outobj.melt:3232:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:3230:/ block");
+       /*block*/{
+        /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[25];;}
+       ;
+       /*_.IFELSE___V25*/ curfptr[24] = /*_.PROGN___V28*/ curfptr[27];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3229:/ clear");
+       /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3229:/ clear");
+       /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
+      ;
+      }
+     ;
+     /*_.BASNAM__V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3228:/ clear");
+     /*clear*/ /*_#IS_STRING__L9*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3228:/ clear");
+     /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3235:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3235:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BASNAM__V24*/ curfptr[23];
+    MELT_LOCATION("warmelt-outobj.melt:3235:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V10*/ curfptr[9];
+    /*_.COMPILE_ONE_OR_MORE_FILES__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_ONE_OR_MORE_FILES*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LET___V23*/ curfptr[21] = /*_.COMPILE_ONE_OR_MORE_FILES__V29*/ curfptr[25];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
+   /*clear*/ /*_#IS_STRING__L8*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
+   /*clear*/ /*_.BASNAM__V24*/ curfptr[23] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
+   /*clear*/ /*_.COMPILE_ONE_OR_MORE_FILES__V29*/ curfptr[25] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V23*/ curfptr[21];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.PARMODENV__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.CURENV__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.INARG__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.OUTARG__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3216:/ clear");
+  /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-outobj.melt:3212:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("TRANSLATEFILE_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_127_warmelt_outobj_RUNFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_127_warmelt_outobj_RUNFILE_DOCMD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 35
+  void* varptr[35];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+const char* loc_CSTRING__o0;
+const char* loc_CSTRING__o1;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<35; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 35;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("RUNFILE_DOCMD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ getarg");
+ /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3250:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3251:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3251:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3251:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3251:/ apply.arg");
+    argtab[0].bp_cstring =  "start runfile_docmd cmd";
+    MELT_LOCATION("warmelt-outobj.melt:3251:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3251:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3251:/ apply.arg");
+    argtab[3].bp_long = 3251;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3251:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3251:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3251:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3252:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3252:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3252:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3252:/ apply.arg");
+    argtab[0].bp_cstring =  "start runfile_docmd moduldata";
+    MELT_LOCATION("warmelt-outobj.melt:3252:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3252:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3252:/ apply.arg");
+    argtab[3].bp_long = 3252;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3252:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3252:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3252:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3253:/ block");
+ /*block*/{
+  /*_.PARMODENV__V8*/ curfptr[6] = (/*!konst_1*/ curfrout->tabval[1]);;
+  MELT_LOCATION("warmelt-outobj.melt:3255:/ cond");
+  /*cond*/ if (/*_.MODULDATA__V3*/ curfptr[2]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3255:/ cond.then");
+  /*_.CURENV__V9*/ curfptr[8] = /*_.MODULDATA__V3*/ curfptr[2];;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3255:/ cond.else");
+  
+   /*_.CURENV__V9*/ curfptr[8] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);;
+   }
+  ;
+  /*_?*/ curfram__.loc_CSTRING__o0 = 
+   melt_argument( "arg");;
+  /*_.INARG__V10*/ curfptr[9] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
+  /*_?*/ curfram__.loc_CSTRING__o1 = 
+   melt_argument( "output");;
+  /*_.OUTARG__V11*/ curfptr[10] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o1)));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3259:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3259:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3259:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3259:/ apply.arg");
+     argtab[0].bp_cstring =  "before read runfile_mode parmodenv";
+     MELT_LOCATION("warmelt-outobj.melt:3259:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3259:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3259:/ apply.arg");
+     argtab[3].bp_long = 3259;
+     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PARMODENV__V8*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3259:/ cppif.else");
+  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3260:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3260:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3260:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3260:/ apply.arg");
+     argtab[0].bp_cstring =  "before read runfile_mode initial_environment";
+     MELT_LOCATION("warmelt-outobj.melt:3260:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3260:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3260:/ apply.arg");
+     argtab[3].bp_long = 3260;
+     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3260:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3260:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3260:/ cppif.else");
+  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3261:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3261:/ block");
+   /*block*/{
+    /*_#IS_A__L5*/ curfnum[0] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[4])));;
+    MELT_LOCATION("warmelt-outobj.melt:3261:/ cond");
+    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3261:/ cond.then");
+    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3261:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3261:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3261:/ locexp");
+       melt_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3261)?(3261):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3261:/ clear");
+    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3261:/ clear");
+    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3261:/ cppif.else");
+  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:3262:/ block");
+  /*block*/{
+   /*_.MODULNAM__V18*/ curfptr[16] = (/*nil*/NULL);;
+   /*_#IS_STRING__L6*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V11*/ curfptr[10])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:3265:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3265:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3265:/ block");
+    /*block*/{
+     /*_.MAKE_STRING_NAKEDBASENAME__V20*/ curfptr[19] = 
+      (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.OUTARG__V11*/ curfptr[10]))));;
+     MELT_LOCATION("warmelt-outobj.melt:3266:/ compute");
+     /*_.MODULNAM__V18*/ curfptr[16] = /*_.SETQ___V21*/ curfptr[20] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ curfptr[19];;
+     MELT_LOCATION("warmelt-outobj.melt:3265:/ block");
+     /*block*/{
+      /*_.PROGN___V22*/ curfptr[21] = /*_.OUTARG__V11*/ curfptr[10];;}
+     ;
+     /*_.MODSRCNAME__V19*/ curfptr[18] = /*_.PROGN___V22*/ curfptr[21];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3265:/ clear");
+     /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/ curfptr[19] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3265:/ clear");
+     /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3265:/ clear");
+     /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3265:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3265:/ block");
+    /*block*/{
+     /*_#IS_STRING__L7*/ curfnum[6] = 
+      (melt_magic_discr((melt_ptr_t)(/*_.INARG__V10*/ curfptr[9])) == OBMAG_STRING);;
+     MELT_LOCATION("warmelt-outobj.melt:3268:/ cond");
+     /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3268:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3268:/ block");
+      /*block*/{
+       /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[20] = 
+        (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V10*/ curfptr[9]))));;
+       MELT_LOCATION("warmelt-outobj.melt:3269:/ compute");
+       /*_.MODULNAM__V18*/ curfptr[16] = /*_.SETQ___V25*/ curfptr[21] = /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[20];;
+       /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V26*/ curfptr[25] = 
+        (meltgc_new_string_tempname_suffixed((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), 
+					 melt_string_str((melt_ptr_t)(/*_.INARG__V10*/ curfptr[9])), 
+					 ( ".c")));;
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ block");
+       /*block*/{
+        /*_.PROGN___V27*/ curfptr[26] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V26*/ curfptr[25];;}
+       ;
+       /*_.IFELSE___V23*/ curfptr[19] = /*_.PROGN___V27*/ curfptr[26];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ clear");
+       /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[20] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ clear");
+       /*clear*/ /*_.SETQ___V25*/ curfptr[21] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ clear");
+       /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V26*/ curfptr[25] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ clear");
+       /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3268:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3268:/ block");
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3272:/ locexp");
+       error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid runfile mode"));}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:3273:/ block");
+       /*block*/{
+        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+        MELT_LOCATION("warmelt-outobj.melt:3273:/ finalreturn");
+        ;
+        /*finalret*/ goto labend_rout ;}
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:3271:/ block");
+       /*block*/{
+        /*_.PROGN___V29*/ curfptr[21] = /*_.RETURN___V28*/ curfptr[20];;}
+       ;
+       /*_.IFELSE___V23*/ curfptr[19] = /*_.PROGN___V29*/ curfptr[21];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ clear");
+       /*clear*/ /*_.RETURN___V28*/ curfptr[20] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3268:/ clear");
+       /*clear*/ /*_.PROGN___V29*/ curfptr[21] = 0 ;}
+      ;
+      }
+     ;
+     /*_.MODSRCNAME__V19*/ curfptr[18] = /*_.IFELSE___V23*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3265:/ clear");
+     /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3265:/ clear");
+     /*clear*/ /*_.IFELSE___V23*/ curfptr[19] = 0 ;}
+    ;
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3276:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3276:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MODSRCNAME__V19*/ curfptr[18];
+    MELT_LOCATION("warmelt-outobj.melt:3276:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V9*/ curfptr[8];
+    /*_.COMPILE_ONE_OR_MORE_FILES__V30*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_ONE_OR_MORE_FILES*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3277:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3277:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3277:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3277:/ apply.arg");
+      argtab[0].bp_cstring =  "after compilation runfile_mode modsrcname";
+      MELT_LOCATION("warmelt-outobj.melt:3277:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+      MELT_LOCATION("warmelt-outobj.melt:3277:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3277:/ apply.arg");
+      argtab[3].bp_long = 3277;
+      /*_.DEBUG_MSG_FUN__V32*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODSRCNAME__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V31*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[20];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3277:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3277:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[20] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3277:/ cppif.else");
+   /*_.IFCPP___V31*/ curfptr[26] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3278:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3278:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3278:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3278:/ apply.arg");
+      argtab[0].bp_cstring =  "after compilation runfile_mode modulnam";
+      MELT_LOCATION("warmelt-outobj.melt:3278:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
+      MELT_LOCATION("warmelt-outobj.melt:3278:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3278:/ apply.arg");
+      argtab[3].bp_long = 3278;
+      /*_.DEBUG_MSG_FUN__V34*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULNAM__V18*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V33*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3278:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3278:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[19] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3278:/ cppif.else");
+   /*_.IFCPP___V33*/ curfptr[21] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   /*_.LOAD_MELT_MODULE__V35*/ curfptr[20] = 
+    (meltgc_load_melt_module((melt_ptr_t)(/*_.CURENV__V9*/ curfptr[8]),
+  melt_string_str((melt_ptr_t)(/*_.MODULNAM__V18*/ curfptr[16]))));;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3280:/ locexp");
+   /*ignore*/(void)(/*_.LOAD_MELT_MODULE__V35*/ curfptr[20]);}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_.MODULNAM__V18*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_#IS_STRING__L6*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_.MODSRCNAME__V19*/ curfptr[18] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_.COMPILE_ONE_OR_MORE_FILES__V30*/ curfptr[25] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_.IFCPP___V31*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_.IFCPP___V33*/ curfptr[21] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
+   /*clear*/ /*_.LOAD_MELT_MODULE__V35*/ curfptr[20] = 0 ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.PARMODENV__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.CURENV__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.INARG__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.OUTARG__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3253:/ clear");
+  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("RUNFILE_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_127_warmelt_outobj_RUNFILE_DOCMD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 8
+  long varnum[8];
+/*others*/
+const char* loc_CSTRING__o0;
+const char* loc_CSTRING__o1;
+const char* loc_CSTRING__o2;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("TRANSLATEINIT_DOCMD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ getarg");
+ /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3293:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3294:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3294:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3294:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3294:/ apply.arg");
+    argtab[0].bp_cstring =  "start translateinit_mode arg";
+    MELT_LOCATION("warmelt-outobj.melt:3294:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3294:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3294:/ apply.arg");
+    argtab[3].bp_long = 3294;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3294:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3294:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3294:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3295:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3295:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3295:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3295:/ apply.arg");
+    argtab[0].bp_cstring =  "start translateinit_mode moduldata";
+    MELT_LOCATION("warmelt-outobj.melt:3295:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3295:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3295:/ apply.arg");
+    argtab[3].bp_long = 3295;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3295:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3295:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3295:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3296:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3296:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3296:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3296:/ apply.arg");
+    argtab[0].bp_cstring =  "before read translateinit_mode initial_environment";
+    MELT_LOCATION("warmelt-outobj.melt:3296:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3296:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3296:/ apply.arg");
+    argtab[3].bp_long = 3296;
+    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3296:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3296:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3296:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3297:/ block");
+ /*block*/{
+  /*_.RLIST__V11*/ curfptr[10] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
+  /*_?*/ curfram__.loc_CSTRING__o0 = 
+   melt_argument( "arg");;
+  /*_?*/ curfram__.loc_CSTRING__o1 = 
+   melt_argument( "arglist");;
+  MELT_LOCATION("warmelt-outobj.melt:3300:/ cond");
+  /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o0) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3300:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3300:/ block");
+   /*block*/{
+    /*_.MAKE_STRINGCONST__V13*/ curfptr[12] = 
+     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
+    /*_.INARG__V12*/ curfptr[11] = /*_.MAKE_STRINGCONST__V13*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3300:/ clear");
+    /*clear*/ /*_.MAKE_STRINGCONST__V13*/ curfptr[12] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3300:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3300:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3302:/ cond");
+    /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o1) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3302:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3302:/ block");
+     /*block*/{
+      /*_.SPLIT_STRING_COMMA__V15*/ curfptr[14] = 
+       meltgc_new_split_string(/*_?*/ curfram__.loc_CSTRING__o1, ',', (melt_ptr_t) (/*!DISCR_STRING*/ curfrout->tabval[3]));;
+      /*_.IFELSE___V14*/ curfptr[12] = /*_.SPLIT_STRING_COMMA__V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3302:/ clear");
+      /*clear*/ /*_.SPLIT_STRING_COMMA__V15*/ curfptr[14] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3302:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3302:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3306:/ locexp");
+      error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid arg or arglist to translateinit mode"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3307:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+       MELT_LOCATION("warmelt-outobj.melt:3307:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3305:/ block");
+      /*block*/{
+       /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[14];;}
+      ;
+      /*_.IFELSE___V14*/ curfptr[12] = /*_.PROGN___V17*/ curfptr[16];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3302:/ clear");
+      /*clear*/ /*_.RETURN___V16*/ curfptr[14] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3302:/ clear");
+      /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
+     ;
+     }
+    ;
+    /*_.INARG__V12*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3300:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;}
+   ;
+   }
+  ;
+  /*_?*/ curfram__.loc_CSTRING__o2 = 
+   melt_argument( "output");;
+  /*_.OUTARG__V18*/ curfptr[14] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o2)));;
+  /*_#IS_STRING__L4*/ curfnum[0] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V18*/ curfptr[14])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-outobj.melt:3310:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3310:/ cond.then");
+  /*_.BASNAM__V19*/ curfptr[16] = /*_.OUTARG__V18*/ curfptr[14];;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3310:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3310:/ block");
+   /*block*/{
+    /*_#IS_STRING__L5*/ curfnum[4] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])) == OBMAG_STRING);;
+    MELT_LOCATION("warmelt-outobj.melt:3311:/ cond");
+    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3311:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3311:/ block");
+     /*block*/{
+      /*_.MAKE_STRING_NAKEDBASENAME__V21*/ curfptr[20] = 
+       (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11]))));;
+      /*_.IFELSE___V20*/ curfptr[12] = /*_.MAKE_STRING_NAKEDBASENAME__V21*/ curfptr[20];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3311:/ clear");
+      /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V21*/ curfptr[20] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3311:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3311:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3313:/ locexp");
+      error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid translateinit mode"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3314:/ block");
+      /*block*/{
+       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+       MELT_LOCATION("warmelt-outobj.melt:3314:/ finalreturn");
+       ;
+       /*finalret*/ goto labend_rout ;}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3312:/ block");
+      /*block*/{
+       /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[20];;}
+      ;
+      /*_.IFELSE___V20*/ curfptr[12] = /*_.PROGN___V23*/ curfptr[22];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3311:/ clear");
+      /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3311:/ clear");
+      /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
+     ;
+     }
+    ;
+    /*_.BASNAM__V19*/ curfptr[16] = /*_.IFELSE___V20*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3310:/ clear");
+    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3310:/ clear");
+    /*clear*/ /*_.IFELSE___V20*/ curfptr[12] = 0 ;}
+   ;
+   }
+  ;
+  /*_#IS_STRING__L6*/ curfnum[4] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-outobj.melt:3318:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3318:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3318:/ block");
+   /*block*/{
+    /*_.READ_FILE__V25*/ curfptr[22] = 
+     (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])), (char*)0));;
+    MELT_LOCATION("warmelt-outobj.melt:3319:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3319:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.READ_FILE__V25*/ curfptr[22];
+     /*_.LIST_APPEND2LIST__V26*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFELSE___V24*/ curfptr[20] = /*_.LIST_APPEND2LIST__V26*/ curfptr[12];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3318:/ clear");
+    /*clear*/ /*_.READ_FILE__V25*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3318:/ clear");
+    /*clear*/ /*_.LIST_APPEND2LIST__V26*/ curfptr[12] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3318:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3318:/ block");
+   /*block*/{
+    /*_#IS_LIST__L7*/ curfnum[6] = 
+     (melt_magic_discr((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-outobj.melt:3320:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3320:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3320:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:3322:/ block");
+      /*block*/{
+       MELT_LOCATION("warmelt-outobj.melt:3322:/ newclosure");
+        /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
+        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (1));
+       ;
+       MELT_LOCATION("warmelt-outobj.melt:3322:/ putclosedv");
+       /*putclosv*/
+       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
+       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
+       ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]);
+       ;
+       /*_.LAMBDA___V28*/ curfptr[12] = /*_.LAMBDA___V29*/ curfptr[28];;}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3321:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3321:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[12];
+       /*_.LIST_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      /*_.IFELSE___V27*/ curfptr[22] = /*_.LIST_EVERY__V30*/ curfptr[29];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3320:/ clear");
+      /*clear*/ /*_.LAMBDA___V28*/ curfptr[12] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3320:/ clear");
+      /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3320:/ cond.else");
+    
+     /*_.IFELSE___V27*/ curfptr[22] = NULL;;
+     }
+    ;
+    /*_.IFELSE___V24*/ curfptr[20] = /*_.IFELSE___V27*/ curfptr[22];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3318:/ clear");
+    /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3318:/ clear");
+    /*clear*/ /*_.IFELSE___V27*/ curfptr[22] = 0 ;}
+   ;
+   }
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3331:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3331:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3331:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3331:/ apply.arg");
+     argtab[0].bp_cstring =  "after read translateinit_mode rlist";
+     MELT_LOCATION("warmelt-outobj.melt:3331:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
+     MELT_LOCATION("warmelt-outobj.melt:3331:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3331:/ apply.arg");
+     argtab[3].bp_long = 3331;
+     /*_.DEBUG_MSG_FUN__V32*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V31*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[29];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3331:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3331:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[29] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3331:/ cppif.else");
+  /*_.IFCPP___V31*/ curfptr[12] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:3332:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3332:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[1]);
+   MELT_LOCATION("warmelt-outobj.melt:3332:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.BASNAM__V19*/ curfptr[16];
+   /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3333:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+   MELT_LOCATION("warmelt-outobj.melt:3333:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V34*/ curfptr[29];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.RLIST__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.INARG__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o2 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.OUTARG__V18*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.BASNAM__V19*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_#IS_STRING__L6*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.IFELSE___V24*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.IFCPP___V31*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3297:/ clear");
+  /*clear*/ /*_.RETURN___V34*/ curfptr[29] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
+  MELT_LOCATION("warmelt-outobj.melt:3293:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ clear");
+ /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("TRANSLATEINIT_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_129_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_129_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3322:/ getarg");
+ /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3322:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3323:/ locexp");
+ inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "reading from file"), 
+			     melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3324:/ block");
+ /*block*/{
+  /*_.CUREAD__V4*/ curfptr[3] = 
+   (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])), (char*)0));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3326:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3326:/ block");
+   /*block*/{
+    /*_#IS_LIST__L1*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-outobj.melt:3326:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3326:/ cond.then");
+    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3326:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3326:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3326:/ locexp");
+       melt_assert_failed(( "check rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3326)?(3326):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3326:/ clear");
+    /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3326:/ clear");
+    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3326:/ cppif.else");
+  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3327:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3327:/ block");
+   /*block*/{
+    /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 
+     ((/*_.CUREAD__V4*/ curfptr[3]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3])) == OBMAG_LIST));;
+    MELT_LOCATION("warmelt-outobj.melt:3327:/ cond");
+    /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3327:/ cond.then");
+    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3327:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3327:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3327:/ locexp");
+       melt_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3327)?(3327):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3327:/ clear");
+    /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3327:/ clear");
+    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3327:/ cppif.else");
+  /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3328:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3328:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:3328:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3328:/ apply.arg");
+     argtab[0].bp_cstring =  "translateinit_mode curead";
+     MELT_LOCATION("warmelt-outobj.melt:3328:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:3328:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:3328:/ apply.arg");
+     argtab[3].bp_long = 3328;
+     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3328:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3328:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3328:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:3329:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3329:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREAD__V4*/ curfptr[3];
+   /*_.LIST_APPEND2LIST__V11*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[1])), (melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.LIST_APPEND2LIST__V11*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3324:/ clear");
+  /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3324:/ clear");
+  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3324:/ clear");
+  /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3324:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3324:/ clear");
+  /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3322:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:3322:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3322:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_129_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_SCANINPUT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.ARGLIST__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.ARGLIST__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.XLIST__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.XLIST__V4*/ curfptr[3])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3374:/ block");
+/*block*/{
+ MELT_LOCATION("warmelt-outobj.melt:3375:/ block");
+ /*block*/{
+  /*_#NBFIL__L1*/ curfnum[0] = 
+   (melt_list_length((melt_ptr_t)(/*_.ARGLIST__V3*/ curfptr[2])));;
+  /*_#XLISTLEN__L2*/ curfnum[1] = 
+   (melt_list_length((melt_ptr_t)(/*_.XLIST__V4*/ curfptr[3])));;
+  MELT_LOCATION("warmelt-outobj.melt:3378:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3378:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3378:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 13, "MKDOC_DOCSYMAP");/*_.DOCSYMAP__V6*/ curfptr[5] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3378:/ cond.else");
+  
+   /*_.DOCSYMAP__V6*/ curfptr[5] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3379:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3379:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3379:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 11, "MKDOC_FORMALOCCMAP");/*_.FORMALOCCMAP__V7*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3379:/ cond.else");
+  
+   /*_.FORMALOCCMAP__V7*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3381:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3381:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3381:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[0] = (melt_ptr_t)(/*_.DOCSYMAP__V6*/ curfptr[5]);
+   ;
+   /*_.ADD_DOCSYM__V8*/ curfptr[7] = /*_.LAMBDA___V9*/ curfptr[8];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3394:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3394:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3394:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[0] = (melt_ptr_t)(/*_.DOCSYMAP__V6*/ curfptr[5]);
+   ;
+   /*_.FETCH_DOCSYM__V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3404:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3404:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3404:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[0] = (melt_ptr_t)(/*_.FORMALOCCMAP__V7*/ curfptr[6]);
+   ;
+   /*_.ADD_FORMAL_OCC__V12*/ curfptr[11] = /*_.LAMBDA___V13*/ curfptr[12];;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3420:/ locexp");
+   inform (UNKNOWN_LOCATION,
+		"MELT makedoc [#%ld]: read and expanded %ld expressions from %ld files",
+		melt_dbgcounter, /*_#XLISTLEN__L2*/ curfnum[1], /*_#NBFIL__L1*/ curfnum[0]); ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3426:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3426:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V15*/ curfptr[14] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3426:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V15*/ curfptr[14])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V15*/ curfptr[14])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V15*/ curfptr[14])->tabval[0] = (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3426:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V15*/ curfptr[14])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V15*/ curfptr[14])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V15*/ curfptr[14])->tabval[1] = (melt_ptr_t)(/*_.ADD_DOCSYM__V8*/ curfptr[7]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3426:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V15*/ curfptr[14])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V15*/ curfptr[14])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V15*/ curfptr[14])->tabval[2] = (melt_ptr_t)(/*_.ADD_FORMAL_OCC__V12*/ curfptr[11]);
+   ;
+   /*_.LAMBDA___V14*/ curfptr[13] = /*_.LAMBDA___V15*/ curfptr[14];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3424:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3424:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V14*/ curfptr[13];
+   /*_.LIST_EVERY__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.XLIST__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V5*/ curfptr[4] = /*_.LIST_EVERY__V16*/ curfptr[15];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_#NBFIL__L1*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_#XLISTLEN__L2*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.DOCSYMAP__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.FORMALOCCMAP__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.ADD_DOCSYM__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.FETCH_DOCSYM__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.ADD_FORMAL_OCC__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.LAMBDA___V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3375:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V16*/ curfptr[15] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];;
+  MELT_LOCATION("warmelt-outobj.melt:3374:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ clear");
+ /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_SCANINPUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_131_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_131_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ getarg");
+ /*_.NAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DATA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3381:/ block");
+/*block*/{
+ /*_.DISCRIM__V4*/ curfptr[3] = 
+  (melt_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])));;
+ /*_#__L1*/ curfnum[0] = 
+  ((/*_.DISCRIM__V4*/ curfptr[3]) != ((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-outobj.melt:3383:/ cond");
+ /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3383:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3383:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[2] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
+   /*_#IF___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3383:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3383:/ cond.else");
+ 
+  /*_#IF___L2*/ curfnum[1] = 0;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3383:/ cond");
+ /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3383:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3383:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3385:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3385:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3385:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3385:/ cond.else");
+   
+    /*_.NAMED_NAME__V6*/ curfptr[5] = NULL;;
+    }
+   ;
+   /*_.GET_SYMBOLSTR__V7*/ curfptr[6] = 
+    meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5])), MELT_GET);;
+   MELT_LOCATION("warmelt-outobj.melt:3385:/ compute");
+   /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V8*/ curfptr[7] = /*_.GET_SYMBOLSTR__V7*/ curfptr[6];;
+   /*_.IFELSE___V5*/ curfptr[4] = /*_.SETQ___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3383:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3383:/ clear");
+   /*clear*/ /*_.GET_SYMBOLSTR__V7*/ curfptr[6] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3383:/ clear");
+   /*clear*/ /*_.SETQ___V8*/ curfptr[7] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3383:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-outobj.melt:3383:/ block");
+  /*block*/{
+   /*_#IS_STRING__L4*/ curfnum[2] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:3386:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3386:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3386:/ block");
+    /*block*/{
+     /*_.GET_SYMBOLSTR__V10*/ curfptr[6] = 
+      meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])), MELT_GET);;
+     MELT_LOCATION("warmelt-outobj.melt:3387:/ compute");
+     /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V11*/ curfptr[7] = /*_.GET_SYMBOLSTR__V10*/ curfptr[6];;
+     /*_.IFELSE___V9*/ curfptr[5] = /*_.SETQ___V11*/ curfptr[7];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3386:/ clear");
+     /*clear*/ /*_.GET_SYMBOLSTR__V10*/ curfptr[6] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3386:/ clear");
+     /*clear*/ /*_.SETQ___V11*/ curfptr[7] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3386:/ cond.else");
+   
+    /*_.IFELSE___V9*/ curfptr[5] = NULL;;
+    }
+   ;
+   /*_.IFELSE___V5*/ curfptr[4] = /*_.IFELSE___V9*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3383:/ clear");
+   /*clear*/ /*_#IS_STRING__L4*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3383:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[5] = 0 ;}
+  ;
+  }
+ ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3389:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3389:/ block");
+  /*block*/{
+   /*_#IS_A__L5*/ curfnum[2] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3389:/ cond");
+   /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3389:/ cond.then");
+   /*_.IFELSE___V13*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3389:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3389:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3389:/ locexp");
+      melt_assert_failed(( "check nam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3389)?(3389):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V12*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3389:/ clear");
+   /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3389:/ clear");
+   /*clear*/ /*_.IFELSE___V13*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3389:/ cppif.else");
+ /*_.IFCPP___V12*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3390:/ locexp");
+ meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~DOCSYMAP*/ curfclos->tabval[0])), 
+			   (meltobject_ptr_t) (/*_.NAM__V2*/ curfptr[1]), 
+			   (melt_ptr_t)(/*_.DATA__V3*/ curfptr[2]));}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ clear");
+ /*clear*/ /*_.DISCRIM__V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ clear");
+ /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ clear");
+ /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ clear");
+ /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ clear");
+ /*clear*/ /*_.IFCPP___V12*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_131_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_132_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_132_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ getarg");
+ /*_.NAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3394:/ block");
+/*block*/{
+ /*_.DISCRIM__V3*/ curfptr[2] = 
+  (melt_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])));;
+ /*_#__L1*/ curfnum[0] = 
+  ((/*_.DISCRIM__V3*/ curfptr[2]) != ((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-outobj.melt:3396:/ cond");
+ /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3396:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3396:/ block");
+  /*block*/{
+   /*_#IS_A__L3*/ curfnum[2] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
+   /*_#IF___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3396:/ clear");
+   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3396:/ cond.else");
+ 
+  /*_#IF___L2*/ curfnum[1] = 0;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3396:/ cond");
+ /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3396:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3396:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3398:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3398:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3398:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[4] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3398:/ cond.else");
+   
+    /*_.NAMED_NAME__V5*/ curfptr[4] = NULL;;
+    }
+   ;
+   /*_.GET_SYMBOLSTR__V6*/ curfptr[5] = 
+    meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[4])), MELT_GET);;
+   MELT_LOCATION("warmelt-outobj.melt:3398:/ compute");
+   /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V7*/ curfptr[6] = /*_.GET_SYMBOLSTR__V6*/ curfptr[5];;
+   /*_.IFELSE___V4*/ curfptr[3] = /*_.SETQ___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3396:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[4] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3396:/ clear");
+   /*clear*/ /*_.GET_SYMBOLSTR__V6*/ curfptr[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3396:/ clear");
+   /*clear*/ /*_.SETQ___V7*/ curfptr[6] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3396:/ cond.else");
+ 
+  MELT_LOCATION("warmelt-outobj.melt:3396:/ block");
+  /*block*/{
+   /*_#IS_STRING__L4*/ curfnum[2] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:3399:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[2]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3399:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3399:/ block");
+    /*block*/{
+     /*_.GET_SYMBOLSTR__V9*/ curfptr[5] = 
+      meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])), MELT_GET);;
+     MELT_LOCATION("warmelt-outobj.melt:3400:/ compute");
+     /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V10*/ curfptr[6] = /*_.GET_SYMBOLSTR__V9*/ curfptr[5];;
+     /*_.IFELSE___V8*/ curfptr[4] = /*_.SETQ___V10*/ curfptr[6];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3399:/ clear");
+     /*clear*/ /*_.GET_SYMBOLSTR__V9*/ curfptr[5] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3399:/ clear");
+     /*clear*/ /*_.SETQ___V10*/ curfptr[6] = 0 ;}
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3399:/ cond.else");
+   
+    /*_.IFELSE___V8*/ curfptr[4] = NULL;;
+    }
+   ;
+   /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V8*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3396:/ clear");
+   /*clear*/ /*_#IS_STRING__L4*/ curfnum[2] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3396:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[4] = 0 ;}
+  ;
+  }
+ ;
+ /*_.MAPOBJECT_GET__V11*/ curfptr[5] = 
+  melt_get_mapobjects((meltmapobjects_ptr_t)((/*~DOCSYMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.NAM__V2*/ curfptr[1]));;
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.MAPOBJECT_GET__V11*/ curfptr[5];;
+  MELT_LOCATION("warmelt-outobj.melt:3394:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
+ /*clear*/ /*_.DISCRIM__V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
+ /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
+ /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
+ /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
+ /*clear*/ /*_.MAPOBJECT_GET__V11*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_132_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_133_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_133_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ getarg");
+ /*_.FORMBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DEF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3404:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3405:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3405:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FORMBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3405:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3405:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3405:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3405:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3405:/ locexp");
+      melt_assert_failed(( "check formbind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3405)?(3405):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3405:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3405:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3405:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3406:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3406:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:3406:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3406:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3406:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3406:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3406:/ locexp");
+      melt_assert_failed(( "check def"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3406)?(3406):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3406:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3406:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3406:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3407:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3407:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3407:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3407:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.FORMSYM__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3407:/ cond.else");
+  
+   /*_.FORMSYM__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  /*_.FORMOCCLIST__V9*/ curfptr[8] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)((/*~FORMALOCCMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.FORMSYM__V8*/ curfptr[6]));;
+  /*_#NULL__L3*/ curfnum[0] = 
+   ((/*_.FORMOCCLIST__V9*/ curfptr[8]) == NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:3410:/ cond");
+  /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3410:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3410:/ block");
+   /*block*/{
+    /*_.MAKE_LIST__V10*/ curfptr[9] = 
+     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
+    MELT_LOCATION("warmelt-outobj.melt:3412:/ compute");
+    /*_.FORMOCCLIST__V9*/ curfptr[8] = /*_.SETQ___V11*/ curfptr[10] = /*_.MAKE_LIST__V10*/ curfptr[9];;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3413:/ locexp");
+    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~FORMALOCCMAP*/ curfclos->tabval[0])), 
+			   (meltobject_ptr_t) (/*_.FORMSYM__V8*/ curfptr[6]), 
+			   (melt_ptr_t)(/*_.FORMOCCLIST__V9*/ curfptr[8]));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3411:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3410:/ clear");
+    /*clear*/ /*_.MAKE_LIST__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3410:/ clear");
+    /*clear*/ /*_.SETQ___V11*/ curfptr[10] = 0 ;}
+   ;
+  } /*noelse*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3414:/ locexp");
+  meltgc_append_list((melt_ptr_t)(/*_.FORMOCCLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]));}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3407:/ clear");
+  /*clear*/ /*_.FORMSYM__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3407:/ clear");
+  /*clear*/ /*_.FORMOCCLIST__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3407:/ clear");
+  /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_133_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_134_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_134_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 154
+  void* varptr[154];
+#define CURFRAM_NBVARNUM 13
+  long varnum[13];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<154; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 154;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ getarg");
+ /*_.CUREXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3426:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3427:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3427:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:3427:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3427:/ apply.arg");
+    argtab[0].bp_cstring =  "makedoc_docmd curexp";
+    MELT_LOCATION("warmelt-outobj.melt:3427:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:3427:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:3427:/ apply.arg");
+    argtab[3].bp_long = 3427;
+    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3427:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3427:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3427:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3428:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3428:/ objgoto");
+  /*objgoto*/ goto mtch1_0;
+  ;
+  
+  /*objlabel*/ mtch1_0:
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V5*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V6*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+  /*clear*/ /*_.SOBJ_PREDEF__V7*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+  /*clear*/ /*_.SCLASS_CLABIND__V8*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[1]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3432:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V5*/ curfptr[3] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3432:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V6*/ curfptr[5] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3432:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SOBJ_PREDEF__V7*/ curfptr[6] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3432:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLASS_CLABIND__V8*/ curfptr[7] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3436:/ objgoto");
+    /*objgoto*/ goto mtch1_1;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3432:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ objgoto");
+    /*objgoto*/ goto mtch1_4;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_1:
+  MELT_LOCATION("warmelt-outobj.melt:3436:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3436:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3436:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3436:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V6*/ curfptr[5]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3436:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3436:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3436:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V6*/ curfptr[5]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V9*/ curfptr[8] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3436:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V6*/ curfptr[5]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V10*/ curfptr[9] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3440:/ objgoto");
+    /*objgoto*/ goto mtch1_2;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3436:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3436:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ objgoto");
+    /*objgoto*/ goto mtch1_4;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_2:
+  MELT_LOCATION("warmelt-outobj.melt:3440:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3440:/ clear");
+  /*clear*/ /*_.CBIND_CLASS__V11*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3440:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SCLASS_CLABIND__V8*/ curfptr[7]), ((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3440:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3440:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3440:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS_CLABIND__V8*/ curfptr[7]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V11*/ curfptr[5] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3432:/ objgoto");
+    /*objgoto*/ goto mtch1_3;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3440:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3440:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ objgoto");
+    /*objgoto*/ goto mtch1_4;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_3:
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ block");
+  /*block*/{
+   /*_.CLAS__V12*/ curfptr[7] = /*_.CBIND_CLASS__V11*/ curfptr[5];;
+   /*_.DNAM__V13*/ curfptr[12] = /*_.SDEF_NAME__V5*/ curfptr[3];;
+   /*_.DOCLOC__V14*/ curfptr[13] = /*_.LOCA_LOCATION__V9*/ curfptr[8];;
+   /*_.DOCONT__V15*/ curfptr[14] = /*_.SEXP_CONTENTS__V10*/ curfptr[9];;
+   /*_.PREDEF__V16*/ curfptr[15] = /*_.SOBJ_PREDEF__V7*/ curfptr[6];;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3442:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3442:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3442:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3442:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_docmd defclass clas";
+      MELT_LOCATION("warmelt-outobj.melt:3442:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+      MELT_LOCATION("warmelt-outobj.melt:3442:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3442:/ apply.arg");
+      argtab[3].bp_long = 3442;
+      /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3442:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3442:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3442:/ cppif.else");
+   /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3443:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3443:/ block");
+    /*block*/{
+     /*_#IS_A__L3*/ curfnum[0] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));;
+     MELT_LOCATION("warmelt-outobj.melt:3443:/ cond");
+     /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3443:/ cond.then");
+     /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3443:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3443:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3443:/ locexp");
+        melt_assert_failed(( "check clas"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3443)?(3443):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3443:/ clear");
+     /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3443:/ clear");
+     /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3443:/ cppif.else");
+   /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:3444:/ cond");
+   /*cond*/ if (/*_.PREDEF__V16*/ curfptr[15]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3444:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3444:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3445:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3445:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3445:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 12, "MKDOC_PREDEFMAP");/*_.MKDOC_PREDEFMAP__V21*/ curfptr[19] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3445:/ cond.else");
+     
+      /*_.MKDOC_PREDEFMAP__V21*/ curfptr[19] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3445:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V21*/ curfptr[19]), 
+			   (meltobject_ptr_t) (/*_.PREDEF__V16*/ curfptr[15]), 
+			   (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3444:/ clear");
+     /*clear*/ /*_.MKDOC_PREDEFMAP__V21*/ curfptr[19] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3446:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3446:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V22*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3447:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3447:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3447:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 7, "MKDOC_CLASSES");/*_.MKDOC_CLASSES__V23*/ curfptr[22] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3447:/ cond.else");
+   
+    /*_.MKDOC_CLASSES__V23*/ curfptr[22] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3447:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CLASSES__V23*/ curfptr[22]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3450:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3450:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3450:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V24*/ curfptr[23] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3450:/ cond.else");
+   
+    /*_.CLASS_FIELDS__V24*/ curfptr[23] = NULL;;
+    }
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLASS_FIELDS__V24*/ curfptr[23]);
+   for (/*_#FLDIX__L4*/ curfnum[0] = 0;  
+	(/*_#FLDIX__L4*/ curfnum[0] >= 0) && (/*_#FLDIX__L4*/ curfnum[0] <  cit1__EACHTUP_ln);  
+	/*_#FLDIX__L4*/ curfnum[0]++) {
+   /*_.CURFLD__V25*/ curfptr[24] = melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V24*/ curfptr[23]),  /*_#FLDIX__L4*/ curfnum[0]);
+   
+   
+    MELT_LOCATION("warmelt-outobj.melt:3452:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3452:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3452:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), 2, "FLD_OWNCLASS");/*_.FLD_OWNCLASS__V26*/ curfptr[25] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3452:/ cond.else");
+    
+     /*_.FLD_OWNCLASS__V26*/ curfptr[25] = NULL;;
+     }
+    ;
+    /*_#__L5*/ curfnum[4] = 
+     ((/*_.FLD_OWNCLASS__V26*/ curfptr[25]) == (/*_.CLAS__V12*/ curfptr[7]));;
+    MELT_LOCATION("warmelt-outobj.melt:3452:/ cond");
+    /*cond*/ if (/*_#__L5*/ curfnum[4]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3452:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3452:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:3454:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3454:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3454:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3454:/ cond.else");
+      
+       /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;;
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3454:/ apply");
+      /*apply*/{
+       union meltparam_un argtab[1];
+       memset(&argtab, 0, sizeof(argtab));
+       MELT_LOCATION("warmelt-outobj.melt:3454:/ apply.arg");
+       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURFLD__V25*/ curfptr[24];
+       /*_.ADD_DOCSYM__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+       }
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3455:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3455:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3455:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 6, "MKDOC_FIELDS");/*_.MKDOC_FIELDS__V29*/ curfptr[28] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3455:/ cond.else");
+      
+       /*_.MKDOC_FIELDS__V29*/ curfptr[28] = NULL;;
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3455:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.MKDOC_FIELDS__V29*/ curfptr[28]), (melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3453:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3452:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3452:/ clear");
+      /*clear*/ /*_.ADD_DOCSYM__V28*/ curfptr[27] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3452:/ clear");
+      /*clear*/ /*_.MKDOC_FIELDS__V29*/ curfptr[28] = 0 ;}
+     ;
+    } /*noelse*/
+    ;
+    if (/*_#FLDIX__L4*/ curfnum[0]<0) break;
+   } /* end cit1__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3449:/ clear");
+    /*clear*/ /*_.CURFLD__V25*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3449:/ clear");
+    /*clear*/ /*_#FLDIX__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3449:/ clear");
+    /*clear*/ /*_.FLD_OWNCLASS__V26*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3449:/ clear");
+    /*clear*/ /*_#__L5*/ curfnum[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3459:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3459:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3459:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3459:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 14, "MKDOC_SUBCLASSMAP");/*_.SUBCLMAP__V30*/ curfptr[26] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3459:/ cond.else");
+    
+     /*_.SUBCLMAP__V30*/ curfptr[26] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3461:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3461:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3461:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), 5, "CLASS_ANCESTORS");/*_.CLASS_ANCESTORS__V31*/ curfptr[27] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3461:/ cond.else");
+    
+     /*_.CLASS_ANCESTORS__V31*/ curfptr[27] = NULL;;
+     }
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLASS_ANCESTORS__V31*/ curfptr[27]);
+   for (/*_#ANCIX__L6*/ curfnum[5] = 0;  
+	(/*_#ANCIX__L6*/ curfnum[5] >= 0) && (/*_#ANCIX__L6*/ curfnum[5] <  cit2__EACHTUP_ln);  
+	/*_#ANCIX__L6*/ curfnum[5]++) {
+   /*_.CURANC__V32*/ curfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.CLASS_ANCESTORS__V31*/ curfptr[27]),  /*_#ANCIX__L6*/ curfnum[5]);
+   
+    
+     MELT_LOCATION("warmelt-outobj.melt:3463:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:3463:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3463:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3463:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 14, "MKDOC_SUBCLASSMAP");/*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3463:/ cond.else");
+      
+       /*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32] = NULL;;
+       }
+      ;
+      /*_.CURANCSUBCL__V34*/ curfptr[33] = 
+       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32]), (meltobject_ptr_t)(/*_.CURANC__V32*/ curfptr[28]));;
+      /*_#NULL__L7*/ curfnum[6] = 
+       ((/*_.CURANCSUBCL__V34*/ curfptr[33]) == NULL);;
+      MELT_LOCATION("warmelt-outobj.melt:3464:/ cond");
+      /*cond*/ if (/*_#NULL__L7*/ curfnum[6]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3464:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3464:/ block");
+       /*block*/{
+        /*_.MAKE_LIST__V35*/ curfptr[34] = 
+         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
+        MELT_LOCATION("warmelt-outobj.melt:3466:/ compute");
+        /*_.CURANCSUBCL__V34*/ curfptr[33] = /*_.SETQ___V36*/ curfptr[35] = /*_.MAKE_LIST__V35*/ curfptr[34];;
+        MELT_LOCATION("warmelt-outobj.melt:3468:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3468:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3468:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 14, "MKDOC_SUBCLASSMAP");/*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3468:/ cond.else");
+        
+         /*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3467:/ locexp");
+        meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36]), 
+			   (meltobject_ptr_t) (/*_.CURANC__V32*/ curfptr[28]), 
+			   (melt_ptr_t)(/*_.CURANCSUBCL__V34*/ curfptr[33]));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3465:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3464:/ clear");
+        /*clear*/ /*_.MAKE_LIST__V35*/ curfptr[34] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3464:/ clear");
+        /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3464:/ clear");
+        /*clear*/ /*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36] = 0 ;}
+       ;
+      } /*noelse*/
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3470:/ locexp");
+      meltgc_append_list((melt_ptr_t)(/*_.CURANCSUBCL__V34*/ curfptr[33]), (melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]));}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3463:/ clear");
+      /*clear*/ /*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3463:/ clear");
+      /*clear*/ /*_.CURANCSUBCL__V34*/ curfptr[33] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3463:/ clear");
+      /*clear*/ /*_#NULL__L7*/ curfnum[6] = 0 ;}
+     ;
+     if (/*_#ANCIX__L6*/ curfnum[5]<0) break;
+   } /* end cit2__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3460:/ clear");
+     /*clear*/ /*_.CURANC__V32*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3460:/ clear");
+     /*clear*/ /*_#ANCIX__L6*/ curfnum[5] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3459:/ clear");
+    /*clear*/ /*_.SUBCLMAP__V30*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3459:/ clear");
+    /*clear*/ /*_.CLASS_ANCESTORS__V31*/ curfptr[27] = 0 ;}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.CLAS__V12*/ curfptr[7] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.DNAM__V13*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.DOCLOC__V14*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.DOCONT__V15*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.PREDEF__V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V22*/ curfptr[19] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.MKDOC_CLASSES__V23*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3432:/ clear");
+   /*clear*/ /*_.CLASS_FIELDS__V24*/ curfptr[23] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3432:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_4:
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V38*/ curfptr[34] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V39*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+  /*clear*/ /*_.SOBJ_PREDEF__V40*/ curfptr[36] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+  /*clear*/ /*_.SINST_CLASS__V41*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[9]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V38*/ curfptr[34] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V39*/ curfptr[35] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SOBJ_PREDEF__V40*/ curfptr[36] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINST_CLASS__V41*/ curfptr[32] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3479:/ objgoto");
+    /*objgoto*/ goto mtch1_5;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3475:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ objgoto");
+    /*objgoto*/ goto mtch1_7;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_5:
+  MELT_LOCATION("warmelt-outobj.melt:3479:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3479:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V42*/ curfptr[33] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3479:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V43*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3479:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V39*/ curfptr[35]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3479:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3479:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3479:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V39*/ curfptr[35]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ curfptr[33] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3479:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V39*/ curfptr[35]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V43*/ curfptr[26] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3475:/ objgoto");
+    /*objgoto*/ goto mtch1_6;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3479:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3479:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ objgoto");
+    /*objgoto*/ goto mtch1_7;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_6:
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ block");
+  /*block*/{
+   /*_.DNAM__V44*/ curfptr[27] = /*_.SDEF_NAME__V38*/ curfptr[34];;
+   /*_.DOCLOC__V45*/ curfptr[7] = /*_.LOCA_LOCATION__V42*/ curfptr[33];;
+   /*_.DOCONT__V46*/ curfptr[12] = /*_.SEXP_CONTENTS__V43*/ curfptr[26];;
+   /*_.ICLA__V47*/ curfptr[13] = /*_.SINST_CLASS__V41*/ curfptr[32];;
+   /*_.PREDEF__V48*/ curfptr[14] = /*_.SOBJ_PREDEF__V40*/ curfptr[36];;
+   MELT_LOCATION("warmelt-outobj.melt:3485:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3485:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3485:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 5, "MKDOC_SELECTORS");/*_.MKDOC_SELECTORS__V49*/ curfptr[15] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3485:/ cond.else");
+   
+    /*_.MKDOC_SELECTORS__V49*/ curfptr[15] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3485:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_SELECTORS__V49*/ curfptr[15]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3486:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3486:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V50*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V44*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3487:/ cond");
+   /*cond*/ if (/*_.PREDEF__V48*/ curfptr[14]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3487:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3487:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3488:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3488:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3488:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 12, "MKDOC_PREDEFMAP");/*_.MKDOC_PREDEFMAP__V51*/ curfptr[17] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3488:/ cond.else");
+     
+      /*_.MKDOC_PREDEFMAP__V51*/ curfptr[17] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3488:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V51*/ curfptr[17]), 
+			   (meltobject_ptr_t) (/*_.PREDEF__V48*/ curfptr[14]), 
+			   (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3487:/ clear");
+     /*clear*/ /*_.MKDOC_PREDEFMAP__V51*/ curfptr[17] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.DNAM__V44*/ curfptr[27] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.DOCLOC__V45*/ curfptr[7] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.DOCONT__V46*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.ICLA__V47*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.PREDEF__V48*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.MKDOC_SELECTORS__V49*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3475:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V50*/ curfptr[16] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3475:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_7:
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V52*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V53*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+  /*clear*/ /*_.SOBJ_PREDEF__V54*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+  /*clear*/ /*_.SINST_CLASS__V55*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFINSTANCE*/ curfrout->tabval[10]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V52*/ curfptr[19] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V53*/ curfptr[22] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SOBJ_PREDEF__V54*/ curfptr[23] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINST_CLASS__V55*/ curfptr[35] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3495:/ objgoto");
+    /*objgoto*/ goto mtch1_8;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3491:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3508:/ objgoto");
+    /*objgoto*/ goto mtch1_10;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_8:
+  MELT_LOCATION("warmelt-outobj.melt:3495:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3495:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V56*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3495:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V57*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3495:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V53*/ curfptr[22]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3495:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3495:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3495:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V53*/ curfptr[22]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V56*/ curfptr[17] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3495:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V53*/ curfptr[22]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V57*/ curfptr[27] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3491:/ objgoto");
+    /*objgoto*/ goto mtch1_9;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3495:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3495:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3508:/ objgoto");
+    /*objgoto*/ goto mtch1_10;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_9:
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ block");
+  /*block*/{
+   /*_.DNAM__V58*/ curfptr[7] = /*_.SDEF_NAME__V52*/ curfptr[19];;
+   /*_.DOCLOC__V59*/ curfptr[12] = /*_.LOCA_LOCATION__V56*/ curfptr[17];;
+   /*_.DOCONT__V60*/ curfptr[13] = /*_.SEXP_CONTENTS__V57*/ curfptr[27];;
+   /*_.ICLA__V61*/ curfptr[14] = /*_.SINST_CLASS__V55*/ curfptr[35];;
+   /*_.PREDEF__V62*/ curfptr[15] = /*_.SOBJ_PREDEF__V54*/ curfptr[23];;
+   MELT_LOCATION("warmelt-outobj.melt:3501:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3501:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V63*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V58*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3502:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3502:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3502:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 8, "MKDOC_INSTANCES");/*_.MKDOC_INSTANCES__V64*/ curfptr[22] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3502:/ cond.else");
+   
+    /*_.MKDOC_INSTANCES__V64*/ curfptr[22] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3502:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_INSTANCES__V64*/ curfptr[22]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3503:/ cond");
+   /*cond*/ if (/*_.PREDEF__V62*/ curfptr[15]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3503:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3503:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3504:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3504:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3504:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 12, "MKDOC_PREDEFMAP");/*_.MKDOC_PREDEFMAP__V65*/ curfptr[64] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3504:/ cond.else");
+     
+      /*_.MKDOC_PREDEFMAP__V65*/ curfptr[64] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3504:/ locexp");
+     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V65*/ curfptr[64]), 
+			   (meltobject_ptr_t) (/*_.PREDEF__V62*/ curfptr[15]), 
+			   (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3503:/ clear");
+     /*clear*/ /*_.MKDOC_PREDEFMAP__V65*/ curfptr[64] = 0 ;}
+    ;
+   } /*noelse*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.DNAM__V58*/ curfptr[7] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.DOCLOC__V59*/ curfptr[12] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.DOCONT__V60*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.ICLA__V61*/ curfptr[14] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.PREDEF__V62*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V63*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3491:/ clear");
+   /*clear*/ /*_.MKDOC_INSTANCES__V64*/ curfptr[22] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3491:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_10:
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V66*/ curfptr[64] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V67*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+  /*clear*/ /*_.SFORMAL_ARGS__V68*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[11]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3508:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V66*/ curfptr[64] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3508:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V67*/ curfptr[7] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3508:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V68*/ curfptr[12] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3512:/ objgoto");
+    /*objgoto*/ goto mtch1_11;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3508:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3526:/ objgoto");
+    /*objgoto*/ goto mtch1_13;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_11:
+  MELT_LOCATION("warmelt-outobj.melt:3512:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3512:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V69*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3512:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V70*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3512:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V67*/ curfptr[7]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3512:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3512:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3512:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V67*/ curfptr[7]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V69*/ curfptr[13] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3512:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V67*/ curfptr[7]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V70*/ curfptr[14] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3508:/ objgoto");
+    /*objgoto*/ goto mtch1_12;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3512:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3512:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3526:/ objgoto");
+    /*objgoto*/ goto mtch1_13;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_12:
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ block");
+  /*block*/{
+   /*_.DNAM__V71*/ curfptr[15] = /*_.SDEF_NAME__V66*/ curfptr[64];;
+   /*_.DOCLOC__V72*/ curfptr[16] = /*_.LOCA_LOCATION__V69*/ curfptr[13];;
+   /*_.DOCONT__V73*/ curfptr[22] = /*_.SEXP_CONTENTS__V70*/ curfptr[14];;
+   /*_.FORMARGS__V74*/ curfptr[7] = /*_.SFORMAL_ARGS__V68*/ curfptr[12];;
+   MELT_LOCATION("warmelt-outobj.melt:3517:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3517:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V75*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V71*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3518:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3518:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3518:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 1, "MKDOC_PRIMITIVES");/*_.MKDOC_PRIMITIVES__V76*/ curfptr[75] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3518:/ cond.else");
+   
+    /*_.MKDOC_PRIMITIVES__V76*/ curfptr[75] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3518:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_PRIMITIVES__V76*/ curfptr[75]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit3__EACHTUP: */
+   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V74*/ curfptr[7]);
+   for (/*_#FORMIX__L8*/ curfnum[6] = 0;  
+	(/*_#FORMIX__L8*/ curfnum[6] >= 0) && (/*_#FORMIX__L8*/ curfnum[6] <  cit3__EACHTUP_ln);  
+	/*_#FORMIX__L8*/ curfnum[6]++) {
+   /*_.CURFORMB__V77*/ curfptr[76] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V74*/ curfptr[7]),  /*_#FORMIX__L8*/ curfnum[6]);
+   
+   
+    MELT_LOCATION("warmelt-outobj.melt:3522:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3522:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+     /*_.ADD_FORMAL_OCC__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V77*/ curfptr[76]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    if (/*_#FORMIX__L8*/ curfnum[6]<0) break;
+   } /* end cit3__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3519:/ clear");
+    /*clear*/ /*_.CURFORMB__V77*/ curfptr[76] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3519:/ clear");
+    /*clear*/ /*_#FORMIX__L8*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3519:/ clear");
+    /*clear*/ /*_.ADD_FORMAL_OCC__V78*/ curfptr[77] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+   /*clear*/ /*_.DNAM__V71*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+   /*clear*/ /*_.DOCLOC__V72*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+   /*clear*/ /*_.DOCONT__V73*/ curfptr[22] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+   /*clear*/ /*_.FORMARGS__V74*/ curfptr[7] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V75*/ curfptr[74] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3508:/ clear");
+   /*clear*/ /*_.MKDOC_PRIMITIVES__V76*/ curfptr[75] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3508:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_13:
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V79*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V80*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+  /*clear*/ /*_.SFORMAL_ARGS__V81*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[12]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3526:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V79*/ curfptr[15] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3526:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V80*/ curfptr[16] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3526:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V81*/ curfptr[22] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3530:/ objgoto");
+    /*objgoto*/ goto mtch1_14;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3526:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3544:/ objgoto");
+    /*objgoto*/ goto mtch1_16;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_14:
+  MELT_LOCATION("warmelt-outobj.melt:3530:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3530:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V82*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3530:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V83*/ curfptr[74] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3530:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V80*/ curfptr[16]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3530:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3530:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3530:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V80*/ curfptr[16]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V82*/ curfptr[7] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3530:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V80*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V83*/ curfptr[74] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3526:/ objgoto");
+    /*objgoto*/ goto mtch1_15;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3530:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3530:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3544:/ objgoto");
+    /*objgoto*/ goto mtch1_16;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_15:
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ block");
+  /*block*/{
+   /*_.DNAM__V84*/ curfptr[75] = /*_.SDEF_NAME__V79*/ curfptr[15];;
+   /*_.DOCLOC__V85*/ curfptr[16] = /*_.LOCA_LOCATION__V82*/ curfptr[7];;
+   /*_.DOCONT__V86*/ curfptr[85] = /*_.SEXP_CONTENTS__V83*/ curfptr[74];;
+   /*_.FORMARGS__V87*/ curfptr[86] = /*_.SFORMAL_ARGS__V81*/ curfptr[22];;
+   MELT_LOCATION("warmelt-outobj.melt:3535:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3535:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V84*/ curfptr[75]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3536:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3536:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3536:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 2, "MKDOC_FUNCTIONS");/*_.MKDOC_FUNCTIONS__V89*/ curfptr[88] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3536:/ cond.else");
+   
+    /*_.MKDOC_FUNCTIONS__V89*/ curfptr[88] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3536:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_FUNCTIONS__V89*/ curfptr[88]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit4__EACHTUP: */
+   long  cit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V87*/ curfptr[86]);
+   for (/*_#FORMIX__L9*/ curfnum[8] = 0;  
+	(/*_#FORMIX__L9*/ curfnum[8] >= 0) && (/*_#FORMIX__L9*/ curfnum[8] <  cit4__EACHTUP_ln);  
+	/*_#FORMIX__L9*/ curfnum[8]++) {
+   /*_.CURFORMB__V90*/ curfptr[89] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V87*/ curfptr[86]),  /*_#FORMIX__L9*/ curfnum[8]);
+   
+   
+    MELT_LOCATION("warmelt-outobj.melt:3540:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3540:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+     /*_.ADD_FORMAL_OCC__V91*/ curfptr[90] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V90*/ curfptr[89]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    if (/*_#FORMIX__L9*/ curfnum[8]<0) break;
+   } /* end cit4__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3537:/ clear");
+    /*clear*/ /*_.CURFORMB__V90*/ curfptr[89] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3537:/ clear");
+    /*clear*/ /*_#FORMIX__L9*/ curfnum[8] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3537:/ clear");
+    /*clear*/ /*_.ADD_FORMAL_OCC__V91*/ curfptr[90] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+   /*clear*/ /*_.DNAM__V84*/ curfptr[75] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+   /*clear*/ /*_.DOCLOC__V85*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+   /*clear*/ /*_.DOCONT__V86*/ curfptr[85] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+   /*clear*/ /*_.FORMARGS__V87*/ curfptr[86] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V88*/ curfptr[87] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3526:/ clear");
+   /*clear*/ /*_.MKDOC_FUNCTIONS__V89*/ curfptr[88] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3526:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_16:
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V92*/ curfptr[75] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V93*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+  /*clear*/ /*_.SFORMAL_ARGS__V94*/ curfptr[85] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[13]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3544:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V92*/ curfptr[75] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3544:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V93*/ curfptr[16] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3544:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V94*/ curfptr[85] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3548:/ objgoto");
+    /*objgoto*/ goto mtch1_17;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3544:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3562:/ objgoto");
+    /*objgoto*/ goto mtch1_19;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_17:
+  MELT_LOCATION("warmelt-outobj.melt:3548:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3548:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V95*/ curfptr[86] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3548:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V96*/ curfptr[87] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3548:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V93*/ curfptr[16]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3548:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3548:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3548:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V93*/ curfptr[16]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V95*/ curfptr[86] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3548:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V93*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V96*/ curfptr[87] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3544:/ objgoto");
+    /*objgoto*/ goto mtch1_18;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3548:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3548:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3562:/ objgoto");
+    /*objgoto*/ goto mtch1_19;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_18:
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ block");
+  /*block*/{
+   /*_.DNAM__V97*/ curfptr[88] = /*_.SDEF_NAME__V92*/ curfptr[75];;
+   /*_.DOCLOC__V98*/ curfptr[16] = /*_.LOCA_LOCATION__V95*/ curfptr[86];;
+   /*_.DOCONT__V99*/ curfptr[98] = /*_.SEXP_CONTENTS__V96*/ curfptr[87];;
+   /*_.FORMARGS__V100*/ curfptr[99] = /*_.SFORMAL_ARGS__V94*/ curfptr[85];;
+   MELT_LOCATION("warmelt-outobj.melt:3553:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3553:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V101*/ curfptr[100] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V97*/ curfptr[88]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3554:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3554:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3554:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 3, "MKDOC_CITERATORS");/*_.MKDOC_CITERATORS__V102*/ curfptr[101] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3554:/ cond.else");
+   
+    /*_.MKDOC_CITERATORS__V102*/ curfptr[101] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3554:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CITERATORS__V102*/ curfptr[101]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit5__EACHTUP: */
+   long  cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V100*/ curfptr[99]);
+   for (/*_#FORMIX__L10*/ curfnum[9] = 0;  
+	(/*_#FORMIX__L10*/ curfnum[9] >= 0) && (/*_#FORMIX__L10*/ curfnum[9] <  cit5__EACHTUP_ln);  
+	/*_#FORMIX__L10*/ curfnum[9]++) {
+   /*_.CURFORMB__V103*/ curfptr[102] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V100*/ curfptr[99]),  /*_#FORMIX__L10*/ curfnum[9]);
+   
+   
+    MELT_LOCATION("warmelt-outobj.melt:3558:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3558:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+     /*_.ADD_FORMAL_OCC__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V103*/ curfptr[102]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    if (/*_#FORMIX__L10*/ curfnum[9]<0) break;
+   } /* end cit5__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3555:/ clear");
+    /*clear*/ /*_.CURFORMB__V103*/ curfptr[102] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3555:/ clear");
+    /*clear*/ /*_#FORMIX__L10*/ curfnum[9] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3555:/ clear");
+    /*clear*/ /*_.ADD_FORMAL_OCC__V104*/ curfptr[103] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+   /*clear*/ /*_.DNAM__V97*/ curfptr[88] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+   /*clear*/ /*_.DOCLOC__V98*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+   /*clear*/ /*_.DOCONT__V99*/ curfptr[98] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+   /*clear*/ /*_.FORMARGS__V100*/ curfptr[99] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V101*/ curfptr[100] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3544:/ clear");
+   /*clear*/ /*_.MKDOC_CITERATORS__V102*/ curfptr[101] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3544:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_19:
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V105*/ curfptr[88] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V106*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+  /*clear*/ /*_.SFORMAL_ARGS__V107*/ curfptr[98] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[14]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3562:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V105*/ curfptr[88] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3562:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V106*/ curfptr[16] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3562:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V107*/ curfptr[98] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3566:/ objgoto");
+    /*objgoto*/ goto mtch1_20;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3562:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3580:/ objgoto");
+    /*objgoto*/ goto mtch1_22;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_20:
+  MELT_LOCATION("warmelt-outobj.melt:3566:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3566:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V108*/ curfptr[99] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3566:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V109*/ curfptr[100] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3566:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V106*/ curfptr[16]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3566:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3566:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3566:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V106*/ curfptr[16]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V108*/ curfptr[99] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3566:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V106*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V109*/ curfptr[100] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3562:/ objgoto");
+    /*objgoto*/ goto mtch1_21;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3566:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3566:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3580:/ objgoto");
+    /*objgoto*/ goto mtch1_22;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_21:
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ block");
+  /*block*/{
+   /*_.DNAM__V110*/ curfptr[101] = /*_.SDEF_NAME__V105*/ curfptr[88];;
+   /*_.DOCLOC__V111*/ curfptr[16] = /*_.LOCA_LOCATION__V108*/ curfptr[99];;
+   /*_.DOCONT__V112*/ curfptr[111] = /*_.SEXP_CONTENTS__V109*/ curfptr[100];;
+   /*_.FORMARGS__V113*/ curfptr[112] = /*_.SFORMAL_ARGS__V107*/ curfptr[98];;
+   MELT_LOCATION("warmelt-outobj.melt:3571:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3571:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V114*/ curfptr[113] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V110*/ curfptr[101]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3572:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3572:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3572:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 4, "MKDOC_CMATCHERS");/*_.MKDOC_CMATCHERS__V115*/ curfptr[114] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3572:/ cond.else");
+   
+    /*_.MKDOC_CMATCHERS__V115*/ curfptr[114] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3572:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CMATCHERS__V115*/ curfptr[114]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit6__EACHTUP: */
+   long  cit6__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V113*/ curfptr[112]);
+   for (/*_#FORMIX__L11*/ curfnum[10] = 0;  
+	(/*_#FORMIX__L11*/ curfnum[10] >= 0) && (/*_#FORMIX__L11*/ curfnum[10] <  cit6__EACHTUP_ln);  
+	/*_#FORMIX__L11*/ curfnum[10]++) {
+   /*_.CURFORMB__V116*/ curfptr[115] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V113*/ curfptr[112]),  /*_#FORMIX__L11*/ curfnum[10]);
+   
+   
+    MELT_LOCATION("warmelt-outobj.melt:3576:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[1];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3576:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+     /*_.ADD_FORMAL_OCC__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V116*/ curfptr[115]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    if (/*_#FORMIX__L11*/ curfnum[10]<0) break;
+   } /* end cit6__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3573:/ clear");
+    /*clear*/ /*_.CURFORMB__V116*/ curfptr[115] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3573:/ clear");
+    /*clear*/ /*_#FORMIX__L11*/ curfnum[10] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3573:/ clear");
+    /*clear*/ /*_.ADD_FORMAL_OCC__V117*/ curfptr[116] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+   /*clear*/ /*_.DNAM__V110*/ curfptr[101] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+   /*clear*/ /*_.DOCLOC__V111*/ curfptr[16] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+   /*clear*/ /*_.DOCONT__V112*/ curfptr[111] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+   /*clear*/ /*_.FORMARGS__V113*/ curfptr[112] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V114*/ curfptr[113] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3562:/ clear");
+   /*clear*/ /*_.MKDOC_CMATCHERS__V115*/ curfptr[114] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3562:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_22:
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V118*/ curfptr[101] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+  /*clear*/ /*_.SEXPMAC_MNAME__V119*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+  /*clear*/ /*_.SEXPMAC_DOC__V120*/ curfptr[111] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[15]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3580:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V118*/ curfptr[101] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3580:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V119*/ curfptr[16] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3580:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SEXPMAC_DOC");/*_.SEXPMAC_DOC__V120*/ curfptr[111] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3585:/ objgoto");
+    /*objgoto*/ goto mtch1_23;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3580:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3594:/ objgoto");
+    /*objgoto*/ goto mtch1_25;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_23:
+  MELT_LOCATION("warmelt-outobj.melt:3585:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3585:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V121*/ curfptr[112] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3585:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V122*/ curfptr[113] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3585:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SEXPMAC_DOC__V120*/ curfptr[111]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3585:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3585:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3585:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V120*/ curfptr[111]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V121*/ curfptr[112] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3585:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V120*/ curfptr[111]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V122*/ curfptr[113] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3580:/ objgoto");
+    /*objgoto*/ goto mtch1_24;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3585:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3585:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3594:/ objgoto");
+    /*objgoto*/ goto mtch1_25;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_24:
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ block");
+  /*block*/{
+   /*_.DOCLOC__V123*/ curfptr[114] = /*_.LOCA_LOCATION__V121*/ curfptr[112];;
+   /*_.DOCONT__V124*/ curfptr[111] = /*_.SEXP_CONTENTS__V122*/ curfptr[113];;
+   /*_.LOC__V125*/ curfptr[124] = /*_.LOCA_LOCATION__V118*/ curfptr[101];;
+   /*_.MNAME__V126*/ curfptr[125] = /*_.SEXPMAC_MNAME__V119*/ curfptr[16];;
+   MELT_LOCATION("warmelt-outobj.melt:3589:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3589:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V127*/ curfptr[126] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.MNAME__V126*/ curfptr[125]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3590:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3590:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3590:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 10, "MKDOC_PATMACROS");/*_.MKDOC_PATMACROS__V128*/ curfptr[127] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3590:/ cond.else");
+   
+    /*_.MKDOC_PATMACROS__V128*/ curfptr[127] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3590:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_PATMACROS__V128*/ curfptr[127]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+   /*clear*/ /*_.DOCLOC__V123*/ curfptr[114] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+   /*clear*/ /*_.DOCONT__V124*/ curfptr[111] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+   /*clear*/ /*_.LOC__V125*/ curfptr[124] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+   /*clear*/ /*_.MNAME__V126*/ curfptr[125] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V127*/ curfptr[126] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3580:/ clear");
+   /*clear*/ /*_.MKDOC_PATMACROS__V128*/ curfptr[127] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3580:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_25:
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V129*/ curfptr[114] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+  /*clear*/ /*_.SEXPMAC_MNAME__V130*/ curfptr[111] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+  /*clear*/ /*_.SEXPMAC_DOC__V131*/ curfptr[124] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[16]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3594:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V129*/ curfptr[114] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3594:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V130*/ curfptr[111] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3594:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SEXPMAC_DOC");/*_.SEXPMAC_DOC__V131*/ curfptr[124] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3599:/ objgoto");
+    /*objgoto*/ goto mtch1_26;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3594:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3608:/ objgoto");
+    /*objgoto*/ goto mtch1_28;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_26:
+  MELT_LOCATION("warmelt-outobj.melt:3599:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3599:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V132*/ curfptr[125] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3599:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V133*/ curfptr[126] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3599:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SEXPMAC_DOC__V131*/ curfptr[124]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3599:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3599:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3599:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V131*/ curfptr[124]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V132*/ curfptr[125] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3599:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V131*/ curfptr[124]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V133*/ curfptr[126] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3594:/ objgoto");
+    /*objgoto*/ goto mtch1_27;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3599:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3599:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3608:/ objgoto");
+    /*objgoto*/ goto mtch1_28;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_27:
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ block");
+  /*block*/{
+   /*_.DOCLOC__V134*/ curfptr[127] = /*_.LOCA_LOCATION__V132*/ curfptr[125];;
+   /*_.DOCONT__V135*/ curfptr[124] = /*_.SEXP_CONTENTS__V133*/ curfptr[126];;
+   /*_.LOC__V136*/ curfptr[135] = /*_.LOCA_LOCATION__V129*/ curfptr[114];;
+   /*_.MNAME__V137*/ curfptr[136] = /*_.SEXPMAC_MNAME__V130*/ curfptr[111];;
+   MELT_LOCATION("warmelt-outobj.melt:3603:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:3603:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
+    /*_.ADD_DOCSYM__V138*/ curfptr[137] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.MNAME__V137*/ curfptr[136]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3604:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3604:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3604:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 9, "MKDOC_MACROS");/*_.MKDOC_MACROS__V139*/ curfptr[138] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3604:/ cond.else");
+   
+    /*_.MKDOC_MACROS__V139*/ curfptr[138] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3604:/ locexp");
+   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_MACROS__V139*/ curfptr[138]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+   /*clear*/ /*_.DOCLOC__V134*/ curfptr[127] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+   /*clear*/ /*_.DOCONT__V135*/ curfptr[124] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+   /*clear*/ /*_.LOC__V136*/ curfptr[135] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+   /*clear*/ /*_.MNAME__V137*/ curfptr[136] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+   /*clear*/ /*_.ADD_DOCSYM__V138*/ curfptr[137] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3594:/ clear");
+   /*clear*/ /*_.MKDOC_MACROS__V139*/ curfptr[138] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3594:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1_28:
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+  /*clear*/ /*_.SDEF_NAME__V140*/ curfptr[127] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+  /*clear*/ /*_.SDEF_DOC__V141*/ curfptr[124] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[17]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3608:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V140*/ curfptr[127] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3608:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V141*/ curfptr[124] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3612:/ objgoto");
+    /*objgoto*/ goto mtch1_29;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3608:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3608:/ objgoto");
+    /*objgoto*/ goto mtch1__end /*endmatch*/;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_29:
+  MELT_LOCATION("warmelt-outobj.melt:3612:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3612:/ clear");
+  /*clear*/ /*_.LOCA_LOCATION__V142*/ curfptr[135] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3612:/ clear");
+  /*clear*/ /*_.SEXP_CONTENTS__V143*/ curfptr[136] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3612:/ cond");
+  /*cond*/ if (
+   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V141*/ curfptr[124]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3612:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3612:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3612:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V141*/ curfptr[124]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V142*/ curfptr[135] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3612:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V141*/ curfptr[124]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V143*/ curfptr[136] = slot; };
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3608:/ objgoto");
+    /*objgoto*/ goto mtch1_30;
+    ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3612:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3612:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3612:/ objgoto");
+    /*objgoto*/ goto mtch1__end /*endmatch*/;
+    ;}
+   ;
+   }
+  ;
+  
+  /*objlabel*/ mtch1_30:
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ objlabel");
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ block");
+  /*block*/{
+   /*_.DNAM__V144*/ curfptr[137] = /*_.SDEF_NAME__V140*/ curfptr[127];;
+   /*_.DOC__V145*/ curfptr[138] = /*_.SDEF_DOC__V141*/ curfptr[124];;
+   /*_.DOCL__V146*/ curfptr[124] = /*_.SEXP_CONTENTS__V143*/ curfptr[136];;
+   /*_.LOC__V147*/ curfptr[146] = /*_.LOCA_LOCATION__V142*/ curfptr[135];;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3613:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3613:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3613:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3613:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_docmd dnam";
+      MELT_LOCATION("warmelt-outobj.melt:3613:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
+      MELT_LOCATION("warmelt-outobj.melt:3613:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3613:/ apply.arg");
+      argtab[3].bp_long = 3613;
+      /*_.DEBUG_MSG_FUN__V149*/ curfptr[148] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.DNAM__V144*/ curfptr[137]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V148*/ curfptr[147] = /*_.DEBUG_MSG_FUN__V149*/ curfptr[148];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3613:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3613:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V149*/ curfptr[148] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3613:/ cppif.else");
+   /*_.IFCPP___V148*/ curfptr[147] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3614:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3614:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3614:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3614:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_docmd doc";
+      MELT_LOCATION("warmelt-outobj.melt:3614:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
+      MELT_LOCATION("warmelt-outobj.melt:3614:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3614:/ apply.arg");
+      argtab[3].bp_long = 3614;
+      /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.DOC__V145*/ curfptr[138]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V150*/ curfptr[148] = /*_.DEBUG_MSG_FUN__V151*/ curfptr[150];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3614:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3614:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3614:/ cppif.else");
+   /*_.IFCPP___V150*/ curfptr[148] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:3615:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DNAM__V144*/ curfptr[137]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3615:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3615:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DNAM__V144*/ curfptr[137]), 1, "NAMED_NAME");/*_.NAMED_NAME__V152*/ curfptr[150] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3615:/ cond.else");
+   
+    /*_.NAMED_NAME__V152*/ curfptr[150] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3615:/ locexp");
+   melt_inform_str((melt_ptr_t)(/*_.LOC__V147*/ curfptr[146]), ( "makedoc: got documented "), (melt_ptr_t)(/*_.NAMED_NAME__V152*/ curfptr[150]));}
+   ;
+   /*_.DISCRIM__V153*/ curfptr[152] = 
+    (melt_discr((melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:3616:/ cond");
+   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V153*/ curfptr[152]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3616:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:3616:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V153*/ curfptr[152]), 1, "NAMED_NAME");/*_.NAMED_NAME__V154*/ curfptr[153] = slot; };
+    ;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3616:/ cond.else");
+   
+    /*_.NAMED_NAME__V154*/ curfptr[153] = NULL;;
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3616:/ locexp");
+   melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V147*/ curfptr[146]), ( "makedoc: unimplemented for class "), (melt_ptr_t)(/*_.NAMED_NAME__V154*/ curfptr[153]));}
+   ;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.DNAM__V144*/ curfptr[137] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.DOC__V145*/ curfptr[138] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.DOCL__V146*/ curfptr[124] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.LOC__V147*/ curfptr[146] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.IFCPP___V148*/ curfptr[147] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.IFCPP___V150*/ curfptr[148] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V152*/ curfptr[150] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.DISCRIM__V153*/ curfptr[152] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3608:/ clear");
+   /*clear*/ /*_.NAMED_NAME__V154*/ curfptr[153] = 0 ;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3608:/ objgoto");
+  /*objgoto*/ goto mtch1__end /*endmatch*/;
+  ;
+  
+  /*objlabel*/ mtch1__end:
+  MELT_LOCATION("warmelt-outobj.melt:3428:/ objlabel");
+  ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_134_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+const char* loc_CSTRING__o0;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_OUTDEFLOC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ getarg");
+ /*_.OUTB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DEF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ getarg");
+ if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
+ /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3625:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3626:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3626:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3626:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3626:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3626:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3626:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3626:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3626)?(3626):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3626:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3626:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3626:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3627:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3627:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3627:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3627:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3627:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3627:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3627:/ locexp");
+      melt_assert_failed(( "check def"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3627)?(3627):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3627:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3627:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3627:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3628:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3628:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[1])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3628:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3628:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), 1, "LOCA_LOCATION");/*_.LOC__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3628:/ cond.else");
+  
+   /*_.LOC__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  /*_#NULL__L3*/ curfnum[0] = 
+   ((/*_.LOC__V8*/ curfptr[6]) == NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:3630:/ cond");
+  /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3630:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3630:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3630:/ block");
+    /*block*/{
+     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+     MELT_LOCATION("warmelt-outobj.melt:3630:/ finalreturn");
+     ;
+     /*finalret*/ goto labend_rout ;}
+    ;
+    /*_.IF___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3630:/ clear");
+    /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3630:/ cond.else");
+  
+   /*_.IF___V9*/ curfptr[8] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3631:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_?*/ curfram__.loc_CSTRING__o0));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3632:/ locexp");
+  /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOC__V8*/ curfptr[6])) == OBMAG_MIXLOC) 
+  meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), "file @file{%s}, line %d", 
+		       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.LOC__V8*/ curfptr[6]))), 
+		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.LOC__V8*/ curfptr[6]))); ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3633:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3634:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3628:/ clear");
+  /*clear*/ /*_.LOC__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3628:/ clear");
+  /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3628:/ clear");
+  /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_OUTDEFLOC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 13
+  void* varptr[13];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+const char* loc_CSTRING__o0;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<13; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 13;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_OUTFORMALS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ getarg");
+ /*_.OUTB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FARGS__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FARGS__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ getarg");
+ if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
+ /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3639:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3640:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3640:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3640:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3640:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3640:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3640:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3640:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3640)?(3640):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3640:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3640:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3640:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#MULTIPLE_LENGTH__L2*/ curfnum[0] = 
+  (melt_multiple_length((melt_ptr_t)(/*_.FARGS__V3*/ curfptr[2])));;
+ /*_#I__L3*/ curfnum[2] = 
+  ((/*_#MULTIPLE_LENGTH__L2*/ curfnum[0]) > (0));;
+ MELT_LOCATION("warmelt-outobj.melt:3641:/ cond");
+ /*cond*/ if (/*_#I__L3*/ curfnum[2]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3641:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3641:/ block");
+  /*block*/{
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3643:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3644:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_?*/ curfram__.loc_CSTRING__o0));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3645:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3646:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@multitable @columnfractions 0.05 0.15 0.4"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3647:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3648:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@headitem index @tab type @tab name"));}
+   ;
+   /*citerblock FOREACH_IN_MULTIPLE*/ {
+    /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FARGS__V3*/ curfptr[2]);
+   for (/*_#FIX__L4*/ curfnum[3] = 0;  
+	(/*_#FIX__L4*/ curfnum[3] >= 0) && (/*_#FIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#FIX__L4*/ curfnum[3]++) {
+   /*_.CURFBIND__V6*/ curfptr[4] = melt_multiple_nth((melt_ptr_t)(/*_.FARGS__V3*/ curfptr[2]),  /*_#FIX__L4*/ curfnum[3]);
+   
+   
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3652:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3652:/ block");
+     /*block*/{
+      /*_#IS_A__L5*/ curfnum[4] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
+      MELT_LOCATION("warmelt-outobj.melt:3652:/ cond");
+      /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3652:/ cond.then");
+      /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3652:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3652:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:3652:/ locexp");
+         melt_assert_failed(( "check curfbind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3652)?(3652):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3652:/ clear");
+      /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3652:/ clear");
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3652:/ cppif.else");
+    /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3653:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3654:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@item @i{"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3655:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_#FIX__L4*/ curfnum[3]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3656:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "} @tab @slanted{"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3661:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3661:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3661:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V9*/ curfptr[7] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3661:/ cond.else");
+    
+     /*_.FBIND_TYPE__V9*/ curfptr[7] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3660:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V9*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3660:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3660:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.FBIND_TYPE__V9*/ curfptr[7]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V10*/ curfptr[9] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3660:/ cond.else");
+    
+     /*_.CTYPE_KEYWORD__V10*/ curfptr[9] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3659:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3659:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3659:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V11*/ curfptr[10] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3659:/ cond.else");
+    
+     /*_.NAMED_NAME__V11*/ curfptr[10] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3657:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V11*/ curfptr[10])));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3662:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), 0, "BINDER");/*_.BINDER__V12*/ curfptr[11] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3662:/ cond.else");
+     
+      /*_.BINDER__V12*/ curfptr[11] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.ARGNAM__V13*/ curfptr[12] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3662:/ cond.else");
+     
+      /*_.ARGNAM__V13*/ curfptr[12] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3663:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "} @tab @code{"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3664:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.ARGNAM__V13*/ curfptr[12])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3665:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "}"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3666:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3667:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@vindex "));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3668:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.ARGNAM__V13*/ curfptr[12])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3669:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ clear");
+     /*clear*/ /*_.BINDER__V12*/ curfptr[11] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3662:/ clear");
+     /*clear*/ /*_.ARGNAM__V13*/ curfptr[12] = 0 ;}
+    ;
+    if (/*_#FIX__L4*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+   
+    /*citerepilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
+    /*clear*/ /*_.CURFBIND__V6*/ curfptr[4] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
+    /*clear*/ /*_#FIX__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
+    /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
+    /*clear*/ /*_.FBIND_TYPE__V9*/ curfptr[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
+    /*clear*/ /*_.CTYPE_KEYWORD__V10*/ curfptr[9] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3649:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V11*/ curfptr[10] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3672:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3673:/ locexp");
+   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@end multitable"));}
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3674:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3642:/ block");
+   /*block*/{}
+   ;
+   /*epilog*/}
+  ;
+ } /*noelse*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ clear");
+ /*clear*/ /*_#MULTIPLE_LENGTH__L2*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ clear");
+ /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_OUTFORMALS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+const char* loc_CSTRING__o0;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_OUTDOC", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ getarg");
+ /*_.OUTB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.DOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.DOC__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ getarg");
+ if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
+ /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3679:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3680:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3680:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L1*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3680:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3680:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3680:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3680:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3680:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3680)?(3680):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3680:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3680:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3680:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ /*_#IS_NOT_A__L2*/ curfnum[0] = 
+  !melt_is_instance_of((melt_ptr_t)(/*_.DOC__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
+ MELT_LOCATION("warmelt-outobj.melt:3681:/ cond");
+ /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3681:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3681:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3681:/ block");
+   /*block*/{
+    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
+    MELT_LOCATION("warmelt-outobj.melt:3681:/ finalreturn");
+    ;
+    /*finalret*/ goto labend_rout ;}
+   ;
+   /*_.IF___V6*/ curfptr[4] = /*_.RETURN___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
+   /*clear*/ /*_.RETURN___V7*/ curfptr[6] = 0 ;}
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3681:/ cond.else");
+ 
+  /*_.IF___V6*/ curfptr[4] = NULL;;
+  }
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3682:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3683:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_?*/ curfram__.loc_CSTRING__o0));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3686:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.DOC__V3*/ curfptr[2]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ curfptr[6] = slot; };
+ ;
+ /*citerblock FOREACH_IN_LIST*/ {
+ /* start cit1__EACHLIST */
+   for (/*_.CURPAIR__V9*/ curfptr[8] = melt_list_first(/*_.SEXP_CONTENTS__V8*/ curfptr[6]);
+	melt_magic_discr(/*_.CURPAIR__V9*/ curfptr[8]) == OBMAG_PAIR;
+        /*_.CURPAIR__V9*/ curfptr[8] = melt_pair_tail(/*_.CURPAIR__V9*/ curfptr[8])) {
+	/*_.CURELEM__V10*/ curfptr[9] = melt_pair_head(/*_.CURPAIR__V9*/ curfptr[8]); 
+ 
+  /*_#IS_STRING__L3*/ curfnum[2] = 
+   (melt_magic_discr((melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9])) == OBMAG_STRING);;
+  MELT_LOCATION("warmelt-outobj.melt:3689:/ cond");
+  /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3689:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3689:/ block");
+   /*block*/{
+    /*block*/{
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3690:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9])));}
+     ;
+     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3689:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3689:/ block");
+   /*block*/{
+    /*_#IS_A__L4*/ curfnum[3] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
+    MELT_LOCATION("warmelt-outobj.melt:3691:/ cond");
+    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3691:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3691:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3692:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@code{"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3693:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3693:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12])));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3694:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "}"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3691:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3691:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3691:/ cond.else");
+    
+     /*_.IFELSE___V12*/ curfptr[11] = NULL;;
+     }
+    ;
+    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3689:/ clear");
+    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3689:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   ;
+   }
+  ;
+  } /* end cit1__EACHLIST */
+ 
+  /*citerepilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3685:/ clear");
+  /*clear*/ /*_.CURPAIR__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3685:/ clear");
+  /*clear*/ /*_.CURELEM__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3685:/ clear");
+  /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3685:/ clear");
+  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3698:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3701:/ getslot");
+ { melt_ptr_t slot=0;
+  melt_object_get_field(slot,(melt_ptr_t)(/*_.DOC__V3*/ curfptr[2]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V14*/ curfptr[12] = slot; };
+ ;
+ /*citerblock FOREACH_IN_LIST*/ {
+ /* start cit2__EACHLIST */
+   for (/*_.CURPAIR__V15*/ curfptr[11] = melt_list_first(/*_.SEXP_CONTENTS__V14*/ curfptr[12]);
+	melt_magic_discr(/*_.CURPAIR__V15*/ curfptr[11]) == OBMAG_PAIR;
+        /*_.CURPAIR__V15*/ curfptr[11] = melt_pair_tail(/*_.CURPAIR__V15*/ curfptr[11])) {
+	/*_.CURELEM__V16*/ curfptr[15] = melt_pair_head(/*_.CURPAIR__V15*/ curfptr[11]); 
+ 
+  /*_#IS_A__L5*/ curfnum[3] = 
+   melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
+  MELT_LOCATION("warmelt-outobj.melt:3704:/ cond");
+  /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3704:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3704:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3705:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@vindex "));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3706:/ getslot");
+    { melt_ptr_t slot=0;
+     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURELEM__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3706:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3707:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3704:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3704:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;}
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3704:/ cond.else");
+  
+   /*_.IFELSE___V17*/ curfptr[16] = NULL;;
+   }
+  ;
+  } /* end cit2__EACHLIST */
+ 
+  /*citerepilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3700:/ clear");
+  /*clear*/ /*_.CURPAIR__V15*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3700:/ clear");
+  /*clear*/ /*_.CURELEM__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3700:/ clear");
+  /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3700:/ clear");
+  /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
+ /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
+ /*clear*/ /*_.IF___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
+ /*clear*/ /*_.SEXP_CONTENTS__V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
+ /*clear*/ /*_.SEXP_CONTENTS__V14*/ curfptr[12] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_OUTDOC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 46
+  void* varptr[46];
+#define CURFRAM_NBVARNUM 20
+  long varnum[20];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<46; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 46;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_OUTCLASSDEF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CLADEF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#CLAIX__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3715:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3716:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3716:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3716:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3716:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3716:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3716:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3716:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3716)?(3716):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3716:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3716:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3716:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3717:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3717:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3717:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3717:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3717:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3717:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3717:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3717)?(3717):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3717:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3717:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3717:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3718:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3718:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:3718:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3718:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3718:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3718:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3718:/ locexp");
+      melt_assert_failed(( "check cladef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3718)?(3718):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3718:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3718:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3718:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3719:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[1])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), 5, "SCLASS_CLABIND");/*_.SCLASS_CLABIND__V11*/ curfptr[9] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3719:/ cond.else");
+  
+   /*_.SCLASS_CLABIND__V11*/ curfptr[9] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS_CLABIND__V11*/ curfptr[9]), 3, "CBIND_CLASS");/*_.CLA__V12*/ curfptr[11] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3719:/ cond.else");
+  
+   /*_.CLA__V12*/ curfptr[11] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3720:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3720:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3720:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 5, "CLASS_ANCESTORS");/*_.CLANCS__V13*/ curfptr[12] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3720:/ cond.else");
+  
+   /*_.CLANCS__V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3721:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3721:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3721:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 6, "CLASS_FIELDS");/*_.CLFLDS__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3721:/ cond.else");
+  
+   /*_.CLFLDS__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  /*_#NBCLANC__L5*/ curfnum[1] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CLANCS__V13*/ curfptr[12])));;
+  /*_#NBCLFLDS__L6*/ curfnum[5] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CLFLDS__V14*/ curfptr[13])));;
+  MELT_LOCATION("warmelt-outobj.melt:3724:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3724:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3724:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), 3, "SDEF_DOC");/*_.DOC__V15*/ curfptr[14] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3724:/ cond.else");
+  
+   /*_.DOC__V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3725:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3725:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3725:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 14, "MKDOC_SUBCLASSMAP");/*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3725:/ cond.else");
+  
+   /*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  /*_.SUBCLALIST__V17*/ curfptr[16] = 
+   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15]), (meltobject_ptr_t)(/*_.CLA__V12*/ curfptr[11]));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:3727:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:3727:/ block");
+   /*block*/{
+    /*_#IS_A__L7*/ curfnum[6] = 
+     melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));;
+    MELT_LOCATION("warmelt-outobj.melt:3727:/ cond");
+    /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3727:/ cond.then");
+    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3727:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3727:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:3727:/ locexp");
+       melt_assert_failed(( "check cla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3727)?(3727):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3727:/ clear");
+    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3727:/ clear");
+    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:3727:/ cppif.else");
+  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3728:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3729:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3730:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3730:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3730:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[18] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3730:/ cond.else");
+  
+   /*_.NAMED_NAME__V20*/ curfptr[18] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3730:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[18])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3731:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3732:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3733:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3734:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3734:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3734:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[20] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3734:/ cond.else");
+  
+   /*_.NAMED_NAME__V21*/ curfptr[20] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3734:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[20])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3735:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3736:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3736:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLADEF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:3736:/ apply.arg");
+   argtab[1].bp_cstring =  "Class defined at ";
+   /*_.MAKEDOC_OUTDEFLOC__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_#I__L8*/ curfnum[6] = 
+   ((/*_#NBCLANC__L5*/ curfnum[1]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:3738:/ cond");
+  /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3738:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3738:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3740:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3741:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3742:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#NBCLANC__L5*/ curfnum[1]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3743:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " ancestors:}"));}
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLANCS__V13*/ curfptr[12]);
+   for (/*_#ANCIX__L9*/ curfnum[8] = 0;  
+	(/*_#ANCIX__L9*/ curfnum[8] >= 0) && (/*_#ANCIX__L9*/ curfnum[8] <  cit1__EACHTUP_ln);  
+	/*_#ANCIX__L9*/ curfnum[8]++) {
+   /*_.CURANC__V23*/ curfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.CLANCS__V13*/ curfptr[12]),  /*_#ANCIX__L9*/ curfnum[8]);
+   
+    
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3747:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3747:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
+        callcount;;
+       MELT_LOCATION("warmelt-outobj.melt:3747:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:3747:/ apply.arg");
+        argtab[0].bp_cstring =  "makedoc_outclassdef curanc";
+        MELT_LOCATION("warmelt-outobj.melt:3747:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
+        MELT_LOCATION("warmelt-outobj.melt:3747:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-outobj.melt";
+        MELT_LOCATION("warmelt-outobj.melt:3747:/ apply.arg");
+        argtab[3].bp_long = 3747;
+        /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3747:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3747:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3747:/ cppif.else");
+     /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3748:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3748:/ block");
+      /*block*/{
+       /*_#IS_A__L11*/ curfnum[9] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));;
+       MELT_LOCATION("warmelt-outobj.melt:3748:/ cond");
+       /*cond*/ if (/*_#IS_A__L11*/ curfnum[9]) /*then*/ {
+       MELT_LOCATION("warmelt-outobj.melt:3748:/ cond.then");
+       /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-outobj.melt:3748:/ cond.else");
+       
+        MELT_LOCATION("warmelt-outobj.melt:3748:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-outobj.melt:3748:/ locexp");
+          melt_assert_failed(( "check curanc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3748)?(3748):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3748:/ clear");
+       /*clear*/ /*_#IS_A__L11*/ curfnum[9] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3748:/ clear");
+       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3748:/ cppif.else");
+     /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3749:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @code{"));}
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3750:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3750:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:3750:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[26] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3750:/ cond.else");
+     
+      /*_.NAMED_NAME__V28*/ curfptr[26] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3750:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[26])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3751:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+     ;
+     if (/*_#ANCIX__L9*/ curfnum[8]<0) break;
+   } /* end cit1__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3744:/ clear");
+     /*clear*/ /*_.CURANC__V23*/ curfptr[22] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3744:/ clear");
+     /*clear*/ /*_#ANCIX__L9*/ curfnum[8] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3744:/ clear");
+     /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3744:/ clear");
+     /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3744:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[26] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3753:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3754:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3739:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  /*_#I__L12*/ curfnum[9] = 
+   ((/*_#NBCLFLDS__L6*/ curfnum[5]) > (0));;
+  MELT_LOCATION("warmelt-outobj.melt:3757:/ cond");
+  /*cond*/ if (/*_#I__L12*/ curfnum[9]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3757:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3757:/ block");
+   /*block*/{
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3759:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3760:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3761:/ locexp");
+    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#NBCLFLDS__L6*/ curfnum[5]));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3762:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " fields:}"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3763:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3764:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@multitable @columnfractions 0.08 0.4 0.4"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3765:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3766:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@headitem offset @tab name @tab class"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3767:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    /*citerblock FOREACH_IN_MULTIPLE*/ {
+     /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLFLDS__V14*/ curfptr[13]);
+   for (/*_#FLDIX__L13*/ curfnum[12] = 0;  
+	(/*_#FLDIX__L13*/ curfnum[12] >= 0) && (/*_#FLDIX__L13*/ curfnum[12] <  cit2__EACHTUP_ln);  
+	/*_#FLDIX__L13*/ curfnum[12]++) {
+   /*_.CURFLD__V29*/ curfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.CLFLDS__V14*/ curfptr[13]),  /*_#FLDIX__L13*/ curfnum[12]);
+   
+    
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3771:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3771:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
+        callcount;;
+       MELT_LOCATION("warmelt-outobj.melt:3771:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:3771:/ apply.arg");
+        argtab[0].bp_cstring =  "makedoc_outclassdef curfld";
+        MELT_LOCATION("warmelt-outobj.melt:3771:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
+        MELT_LOCATION("warmelt-outobj.melt:3771:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-outobj.melt";
+        MELT_LOCATION("warmelt-outobj.melt:3771:/ apply.arg");
+        argtab[3].bp_long = 3771;
+        /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3771:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3771:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3771:/ cppif.else");
+     /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3772:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3772:/ block");
+      /*block*/{
+       /*_#IS_A__L15*/ curfnum[13] = 
+        melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[8])));;
+       MELT_LOCATION("warmelt-outobj.melt:3772:/ cond");
+       /*cond*/ if (/*_#IS_A__L15*/ curfnum[13]) /*then*/ {
+       MELT_LOCATION("warmelt-outobj.melt:3772:/ cond.then");
+       /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);;
+       } else {MELT_LOCATION("warmelt-outobj.melt:3772:/ cond.else");
+       
+        MELT_LOCATION("warmelt-outobj.melt:3772:/ block");
+        /*block*/{
+         /*block*/{
+          
+          {
+          MELT_LOCATION("warmelt-outobj.melt:3772:/ locexp");
+          melt_assert_failed(( "check curfld"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3772)?(3772):__LINE__, __FUNCTION__);
+;}
+          ;
+          /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
+         ;
+         /*epilog*/}
+        ;
+        }
+       ;
+       /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3772:/ clear");
+       /*clear*/ /*_#IS_A__L15*/ curfnum[13] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3772:/ clear");
+       /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3772:/ cppif.else");
+     /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3773:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3774:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@item "));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3775:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#FLDIX__L13*/ curfnum[12]));}
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:3776:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:3776:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[8])))) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3776:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3776:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 2, "FLD_OWNCLASS");/*_.FLDCLA__V34*/ curfptr[32] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3776:/ cond.else");
+      
+       /*_.FLDCLA__V34*/ curfptr[32] = NULL;;
+       }
+      ;
+      /*_#__L16*/ curfnum[13] = 
+       ((/*_.FLDCLA__V34*/ curfptr[32]) == (/*_.CLA__V12*/ curfptr[11]));;
+      MELT_LOCATION("warmelt-outobj.melt:3777:/ cond");
+      /*cond*/ if (/*_#__L16*/ curfnum[13]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3777:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3777:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3779:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @tab @strong{"));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3780:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3780:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3780:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3780:/ cond.else");
+        
+         /*_.NAMED_NAME__V35*/ curfptr[34] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3780:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34])));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3781:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "} @tab @emph{@code{"));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3782:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3782:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3782:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3782:/ cond.else");
+        
+         /*_.NAMED_NAME__V36*/ curfptr[35] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3782:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35])));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3783:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}}"));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3784:/ locexp");
+        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3785:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3786:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3786:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3786:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[36] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3786:/ cond.else");
+        
+         /*_.NAMED_NAME__V37*/ curfptr[36] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3786:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[36])));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3787:/ locexp");
+        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3778:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3777:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3777:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3777:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[36] = 0 ;}
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3777:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3777:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3790:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @tab @emph{"));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3791:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3791:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3791:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[34] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3791:/ cond.else");
+        
+         /*_.NAMED_NAME__V38*/ curfptr[34] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3791:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[34])));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3792:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3793:/ locexp");
+        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3794:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@tab @code{"));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3795:/ cond");
+        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3795:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:3795:/ getslot");
+         { melt_ptr_t slot=0;
+          melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[35] = slot; };
+         ;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3795:/ cond.else");
+        
+         /*_.NAMED_NAME__V39*/ curfptr[35] = NULL;;
+         }
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3795:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[35])));}
+        ;
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3796:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "} "));}
+        ;
+        MELT_LOCATION("warmelt-outobj.melt:3789:/ block");
+        /*block*/{}
+        ;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3777:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[34] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3777:/ clear");
+        /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[35] = 0 ;}
+       ;
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3798:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3776:/ clear");
+      /*clear*/ /*_.FLDCLA__V34*/ curfptr[32] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3776:/ clear");
+      /*clear*/ /*_#__L16*/ curfnum[13] = 0 ;}
+     ;
+     if (/*_#FLDIX__L13*/ curfnum[12]<0) break;
+   } /* end cit2__EACHTUP */ 
+    
+     /*citerepilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3768:/ clear");
+     /*clear*/ /*_.CURFLD__V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3768:/ clear");
+     /*clear*/ /*_#FLDIX__L13*/ curfnum[12] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3768:/ clear");
+     /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3768:/ clear");
+     /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3801:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@end multitable"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3802:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3758:/ block");
+    /*block*/{}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3806:/ cond");
+  /*cond*/ if (/*_.SUBCLALIST__V17*/ curfptr[16]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3806:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3806:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3807:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:3807:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[1];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3807:/ apply.arg");
+      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[10]);
+      /*_.RAWSUBCLATUP__V40*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SUBCLALIST__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.SORTEDSUBCLATUP__V41*/ curfptr[34] = 
+      meltgc_sort_multiple((melt_ptr_t)(/*_.RAWSUBCLATUP__V40*/ curfptr[36]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])));;
+     /*_#NBSUBCLA__L17*/ curfnum[13] = 
+      (melt_multiple_length((melt_ptr_t)(/*_.SORTEDSUBCLATUP__V41*/ curfptr[34])));;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3813:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+     ;
+     
+     #if ENABLE_CHECKING
+      MELT_LOCATION("warmelt-outobj.melt:3814:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:3814:/ block");
+      /*block*/{
+       /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 
+        callcount;;
+       MELT_LOCATION("warmelt-outobj.melt:3814:/ apply");
+       /*apply*/{
+        union meltparam_un argtab[4];
+        memset(&argtab, 0, sizeof(argtab));
+        MELT_LOCATION("warmelt-outobj.melt:3814:/ apply.arg");
+        argtab[0].bp_cstring =  "makedoc_outclassdef sortedsubclatup";
+        MELT_LOCATION("warmelt-outobj.melt:3814:/ apply.arg");
+        argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17];
+        MELT_LOCATION("warmelt-outobj.melt:3814:/ apply.arg");
+        argtab[2].bp_cstring =  "warmelt-outobj.melt";
+        MELT_LOCATION("warmelt-outobj.melt:3814:/ apply.arg");
+        argtab[3].bp_long = 3814;
+        /*_.DEBUG_MSG_FUN__V43*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SORTEDSUBCLATUP__V41*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+        }
+       ;
+       /*_.IFCPP___V42*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[32];;
+       /*epilog*/
+       MELT_LOCATION("warmelt-outobj.melt:3814:/ clear");
+       /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ;
+       MELT_LOCATION("warmelt-outobj.melt:3814:/ clear");
+       /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[32] = 0 ;}
+      
+      #else /*ENABLE_CHECKING*/
+      MELT_LOCATION("warmelt-outobj.melt:3814:/ cppif.else");
+     /*_.IFCPP___V42*/ curfptr[35] = (/*nil*/NULL);
+      #endif /*ENABLE_CHECKING*/
+      ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3815:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3816:/ locexp");
+     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#NBSUBCLA__L17*/ curfnum[13]));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3817:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " sub-classes:}"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3818:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+     ;
+     /*citerblock FOREACH_IN_MULTIPLE*/ {
+      /* start cit3__EACHTUP: */
+   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDSUBCLATUP__V41*/ curfptr[34]);
+   for (/*_#SCLIX__L19*/ curfnum[17] = 0;  
+	(/*_#SCLIX__L19*/ curfnum[17] >= 0) && (/*_#SCLIX__L19*/ curfnum[17] <  cit3__EACHTUP_ln);  
+	/*_#SCLIX__L19*/ curfnum[17]++) {
+   /*_.SUBCLA__V44*/ curfptr[32] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDSUBCLATUP__V41*/ curfptr[34]),  /*_#SCLIX__L19*/ curfnum[17]);
+   
+     
+      /*_#I__L20*/ curfnum[19] = 
+       ((/*_#SCLIX__L19*/ curfnum[17]) > (0));;
+      MELT_LOCATION("warmelt-outobj.melt:3822:/ cond");
+      /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3822:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3822:/ block");
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3823:/ locexp");
+        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( ","));}
+        ;
+        /*epilog*/}
+       ;
+      } /*noelse*/
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3824:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @code{"));}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3825:/ cond");
+      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SUBCLA__V44*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3825:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:3825:/ getslot");
+       { melt_ptr_t slot=0;
+        melt_object_get_field(slot,(melt_ptr_t)(/*_.SUBCLA__V44*/ curfptr[32]), 1, "NAMED_NAME");/*_.NAMED_NAME__V45*/ curfptr[44] = slot; };
+       ;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3825:/ cond.else");
+      
+       /*_.NAMED_NAME__V45*/ curfptr[44] = NULL;;
+       }
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3825:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V45*/ curfptr[44])));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3826:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+      ;
+      if (/*_#SCLIX__L19*/ curfnum[17]<0) break;
+   } /* end cit3__EACHTUP */ 
+     
+      /*citerepilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3819:/ clear");
+      /*clear*/ /*_.SUBCLA__V44*/ curfptr[32] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3819:/ clear");
+      /*clear*/ /*_#SCLIX__L19*/ curfnum[17] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3819:/ clear");
+      /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3819:/ clear");
+      /*clear*/ /*_.NAMED_NAME__V45*/ curfptr[44] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3828:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:3829:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3807:/ clear");
+     /*clear*/ /*_.RAWSUBCLATUP__V40*/ curfptr[36] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3807:/ clear");
+     /*clear*/ /*_.SORTEDSUBCLATUP__V41*/ curfptr[34] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3807:/ clear");
+     /*clear*/ /*_#NBSUBCLA__L17*/ curfnum[13] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3807:/ clear");
+     /*clear*/ /*_.IFCPP___V42*/ curfptr[35] = 0 ;}
+    ;
+    /*epilog*/}
+   ;
+  } /*noelse*/
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3833:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3833:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOC__V15*/ curfptr[14];
+   MELT_LOCATION("warmelt-outobj.melt:3833:/ apply.arg");
+   argtab[1].bp_cstring =  "@strong{class description:} ";
+   /*_.MAKEDOC_OUTDOC__V46*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3834:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.SCLASS_CLABIND__V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.CLA__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.CLANCS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.CLFLDS__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_#NBCLANC__L5*/ curfnum[1] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_#NBCLFLDS__L6*/ curfnum[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.DOC__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.SUBCLALIST__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_#I__L12*/ curfnum[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3719:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTDOC__V46*/ curfptr[36] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_OUTCLASSDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENMACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3840:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3841:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3841:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3841:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3841:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3841:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3841:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3841:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3841)?(3841):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3841:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3841:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3841:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3842:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3842:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3842:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3842:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3842:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3842:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3842:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3842)?(3842):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3842:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3842:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3842:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3843:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT macros"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3844:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3845:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT macros"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3846:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3847:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3848:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 9, "MKDOC_MACROS");/*_.MACLIST__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3848:/ cond.else");
+  
+   /*_.MACLIST__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3849:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3849:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   /*_.UNSORTEDMACTUPLE__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.MACLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SORTEDMACTUPLE__V10*/ curfptr[9] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.UNSORTEDMACTUPLE__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3854:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
+  ;
+  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDMACTUPLE__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3855:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3856:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " documented macros."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3857:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3858:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDMACTUPLE__V10*/ curfptr[9]);
+   for (/*_#MACIX__L4*/ curfnum[3] = 0;  
+	(/*_#MACIX__L4*/ curfnum[3] >= 0) && (/*_#MACIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#MACIX__L4*/ curfnum[3]++) {
+   /*_.CURMAC__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDMACTUPLE__V10*/ curfptr[9]),  /*_#MACIX__L4*/ curfnum[3]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3862:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3862:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3862:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3862:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_genmacro curmac";
+      MELT_LOCATION("warmelt-outobj.melt:3862:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+      MELT_LOCATION("warmelt-outobj.melt:3862:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3862:/ apply.arg");
+      argtab[3].bp_long = 3862;
+      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3862:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3862:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3862:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3863:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3863:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[4] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[5])));;
+     MELT_LOCATION("warmelt-outobj.melt:3863:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3863:/ cond.then");
+     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3863:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3863:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3863:/ locexp");
+        melt_assert_failed(( "check curmac"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3863)?(3863):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3863:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3863:/ clear");
+     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3863:/ cppif.else");
+   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:3864:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[5])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V16*/ curfptr[14] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3864:/ cond.else");
+    
+     /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.MNAM__V17*/ curfptr[16] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3864:/ cond.else");
+    
+     /*_.MNAM__V17*/ curfptr[16] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3865:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3865:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3865:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), 1, "LOCA_LOCATION");/*_.MLOC__V18*/ curfptr[17] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3865:/ cond.else");
+    
+     /*_.MLOC__V18*/ curfptr[17] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3866:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[5])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3866:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3866:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), 4, "SEXPMAC_DOC");/*_.MDOC__V19*/ curfptr[18] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3866:/ cond.else");
+    
+     /*_.MDOC__V19*/ curfptr[18] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3868:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3868:/ block");
+     /*block*/{
+      /*_#IS_STRING__L7*/ curfnum[4] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])) == OBMAG_STRING);;
+      MELT_LOCATION("warmelt-outobj.melt:3868:/ cond");
+      /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3868:/ cond.then");
+      /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3868:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3868:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:3868:/ locexp");
+         melt_assert_failed(( "check mnam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3868)?(3868):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3868:/ clear");
+      /*clear*/ /*_#IS_STRING__L7*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3868:/ clear");
+      /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3868:/ cppif.else");
+    /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3869:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3870:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3871:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3872:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3873:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3874:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3875:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3876:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3878:/ cond");
+    /*cond*/ if (/*_.MLOC__V18*/ curfptr[17]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3878:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3878:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3880:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "Macro defined at "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3881:/ locexp");
+      /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.MLOC__V18*/ curfptr[17])) == OBMAG_MIXLOC) 
+  meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), "file @file{%s}, line %d", 
+		       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))), 
+		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))); ;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3882:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3883:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3879:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3885:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3885:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDOC__V19*/ curfptr[18];
+     MELT_LOCATION("warmelt-outobj.melt:3885:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{macro description:} ";
+     /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3886:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
+    /*clear*/ /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
+    /*clear*/ /*_.MNAM__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
+    /*clear*/ /*_.MLOC__V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
+    /*clear*/ /*_.MDOC__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
+    /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] = 0 ;}
+   ;
+   if (/*_#MACIX__L4*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3859:/ clear");
+   /*clear*/ /*_.CURMAC__V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3859:/ clear");
+   /*clear*/ /*_#MACIX__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3859:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3859:/ clear");
+   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ clear");
+  /*clear*/ /*_.MACLIST__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ clear");
+  /*clear*/ /*_.UNSORTEDMACTUPLE__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ clear");
+  /*clear*/ /*_.SORTEDMACTUPLE__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3848:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 22
+  void* varptr[22];
+#define CURFRAM_NBVARNUM 7
+  long varnum[7];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<22; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 22;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENPATMACRO", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3894:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3895:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3895:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3895:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3895:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3895:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3895:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3895:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3895)?(3895):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3895:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3895:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3895:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3896:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3896:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3896:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3896:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3896:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3896:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3896:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3896)?(3896):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3896:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3896:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3896:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3897:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT patterns"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3898:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3899:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT pattern macros"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3900:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3901:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3902:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 10, "MKDOC_PATMACROS");/*_.PATMACLIST__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3902:/ cond.else");
+  
+   /*_.PATMACLIST__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3903:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3903:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   /*_.UNSORTEDPATMACTUPLE__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PATMACLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SORTEDPATMACTUPLE__V10*/ curfptr[9] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.UNSORTEDPATMACTUPLE__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3908:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
+  ;
+  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDPATMACTUPLE__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3909:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3910:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " documented pattern-macros."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:3911:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDPATMACTUPLE__V10*/ curfptr[9]);
+   for (/*_#PMACIX__L4*/ curfnum[3] = 0;  
+	(/*_#PMACIX__L4*/ curfnum[3] >= 0) && (/*_#PMACIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#PMACIX__L4*/ curfnum[3]++) {
+   /*_.PATMAC__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDPATMACTUPLE__V10*/ curfptr[9]),  /*_#PMACIX__L4*/ curfnum[3]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3915:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3915:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:3915:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:3915:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_genpatmacro patmac";
+      MELT_LOCATION("warmelt-outobj.melt:3915:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+      MELT_LOCATION("warmelt-outobj.melt:3915:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:3915:/ apply.arg");
+      argtab[3].bp_long = 3915;
+      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3915:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3915:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3915:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:3916:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:3916:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[4] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[5])));;
+     MELT_LOCATION("warmelt-outobj.melt:3916:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:3916:/ cond.then");
+     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:3916:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:3916:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:3916:/ locexp");
+        melt_assert_failed(( "check patmac"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3916)?(3916):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:3916:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:3916:/ clear");
+     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:3916:/ cppif.else");
+   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:3917:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3918:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V16*/ curfptr[14] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3918:/ cond.else");
+    
+     /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.MNAM__V17*/ curfptr[16] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3918:/ cond.else");
+    
+     /*_.MNAM__V17*/ curfptr[16] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3919:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3919:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3919:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), 1, "LOCA_LOCATION");/*_.MLOC__V18*/ curfptr[17] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3919:/ cond.else");
+    
+     /*_.MLOC__V18*/ curfptr[17] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3920:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3920:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3920:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), 4, "SEXPMAC_DOC");/*_.MDOC__V19*/ curfptr[18] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3920:/ cond.else");
+    
+     /*_.MDOC__V19*/ curfptr[18] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:3922:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:3922:/ block");
+     /*block*/{
+      /*_#IS_STRING__L7*/ curfnum[4] = 
+       (melt_magic_discr((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])) == OBMAG_STRING);;
+      MELT_LOCATION("warmelt-outobj.melt:3922:/ cond");
+      /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3922:/ cond.then");
+      /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3922:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3922:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:3922:/ locexp");
+         melt_assert_failed(( "check mnam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3922)?(3922):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3922:/ clear");
+      /*clear*/ /*_#IS_STRING__L7*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3922:/ clear");
+      /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:3922:/ cppif.else");
+    /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3923:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3924:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3925:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3926:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3927:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3928:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3929:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3930:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3932:/ cond");
+    /*cond*/ if (/*_.MLOC__V18*/ curfptr[17]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3932:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:3932:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3934:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "Pattern macro defined at "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3935:/ locexp");
+      /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.MLOC__V18*/ curfptr[17])) == OBMAG_MIXLOC) 
+  meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), "file @file{%s}, line %d", 
+		       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))), 
+		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))); ;}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3936:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3937:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:3933:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/}
+     ;
+    } /*noelse*/
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:3939:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:3939:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDOC__V19*/ curfptr[18];
+     MELT_LOCATION("warmelt-outobj.melt:3939:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{pattern macro description:} ";
+     /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:3940:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ clear");
+    /*clear*/ /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ clear");
+    /*clear*/ /*_.MNAM__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ clear");
+    /*clear*/ /*_.MLOC__V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ clear");
+    /*clear*/ /*_.MDOC__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ clear");
+    /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3918:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] = 0 ;}
+   ;
+   if (/*_#PMACIX__L4*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
+   /*clear*/ /*_.PATMAC__V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
+   /*clear*/ /*_#PMACIX__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
+   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ clear");
+  /*clear*/ /*_.PATMACLIST__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ clear");
+  /*clear*/ /*_.UNSORTEDPATMACTUPLE__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ clear");
+  /*clear*/ /*_.SORTEDPATMACTUPLE__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3902:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENPATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 12
+  long varnum[12];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENCLASS", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3949:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3950:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3950:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3950:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3950:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3950:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3950:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3950:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3950)?(3950):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3950:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3950:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3950:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3951:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3951:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:3951:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3951:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3951:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3951:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3951:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3951)?(3951):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3951:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3951:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3951:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3952:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT classes"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3953:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3954:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT classes"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3955:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:3956:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3957:/ block");
+ /*block*/{
+  /*_.QUOTEDONE__V8*/ curfptr[6] = (/*!konst_1*/ curfrout->tabval[1]);;
+  /*_.QUOTEDZERO__V9*/ curfptr[8] = (/*!konst_2*/ curfrout->tabval[2]);;
+  /*_.QUOTEDMINUSONE__V10*/ curfptr[9] = (/*!konst_3*/ curfrout->tabval[3]);;
+  MELT_LOCATION("warmelt-outobj.melt:3963:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3963:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:3963:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 7, "MKDOC_CLASSES");/*_.MKDOC_CLASSES__V11*/ curfptr[10] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3963:/ cond.else");
+  
+   /*_.MKDOC_CLASSES__V11*/ curfptr[10] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3965:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3965:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (0));
+   ;
+   /*_.LAMBDA___V12*/ curfptr[11] = /*_.LAMBDA___V13*/ curfptr[12];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3962:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:3962:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
+   MELT_LOCATION("warmelt-outobj.melt:3962:/ apply.arg");
+   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ curfptr[11];
+   /*_.UNSORTEDCLASSESTUPLE__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MKDOC_CLASSES__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3970:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:3970:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3970:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (melt_ptr_t)(/*_.QUOTEDZERO__V9*/ curfptr[8]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3970:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (melt_ptr_t)(/*_.QUOTEDMINUSONE__V10*/ curfptr[9]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:3970:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[2] = (melt_ptr_t)(/*_.QUOTEDONE__V8*/ curfptr[6]);
+   ;
+   /*_.CMPCLASSDEPTHNAME__V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4000:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:4000:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4000:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.QUOTEDZERO__V9*/ curfptr[8]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4000:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.QUOTEDMINUSONE__V10*/ curfptr[9]);
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4000:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[2] = (melt_ptr_t)(/*_.QUOTEDONE__V8*/ curfptr[6]);
+   ;
+   /*_.CMPCLASSNAME__V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
+  ;
+  /*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.UNSORTEDCLASSESTUPLE__V14*/ curfptr[13]), (melt_ptr_t)(/*_.CMPCLASSDEPTHNAME__V15*/ curfptr[14]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])));;
+  MELT_LOCATION("warmelt-outobj.melt:4023:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:4023:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (0));
+   ;
+   /*_.CMPCLASSDEF__V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4030:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4030:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4030:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 7, "MKDOC_CLASSES");/*_.MKDOC_CLASSES__V22*/ curfptr[21] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4030:/ cond.else");
+  
+   /*_.MKDOC_CLASSES__V22*/ curfptr[21] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4030:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4030:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
+   /*_.LIST_TO_MULTIPLE__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MKDOC_CLASSES__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V23*/ curfptr[22]), (melt_ptr_t)(/*_.CMPCLASSDEF__V20*/ curfptr[19]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])));;
+  /*_#DEPTHIX__L3*/ curfnum[0] = -1;;
+  /*_#PREVCLAIX__L4*/ curfnum[3] = -1;;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4037:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "Table of classes sorted by inheritance depth."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4038:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4039:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@table @strong"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4040:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18]);
+   for (/*_#CLAIX__L5*/ curfnum[4] = 0;  
+	(/*_#CLAIX__L5*/ curfnum[4] >= 0) && (/*_#CLAIX__L5*/ curfnum[4] <  cit1__EACHTUP_ln);  
+	/*_#CLAIX__L5*/ curfnum[4]++) {
+   /*_.CURCLA__V25*/ curfptr[24] = melt_multiple_nth((melt_ptr_t)(/*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18]),  /*_#CLAIX__L5*/ curfnum[4]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4044:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4044:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[5] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[17])));;
+     MELT_LOCATION("warmelt-outobj.melt:4044:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4044:/ cond.then");
+     /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4044:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:4044:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:4044:/ locexp");
+        melt_assert_failed(( "check curcla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4044)?(4044):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4044:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4044:/ clear");
+     /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4044:/ cppif.else");
+   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:4045:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[17])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), 5, "CLASS_ANCESTORS");/*_.CLASS_ANCESTORS__V28*/ curfptr[26] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4045:/ cond.else");
+    
+     /*_.CLASS_ANCESTORS__V28*/ curfptr[26] = NULL;;
+     }
+    ;
+    /*_#NBANC__L7*/ curfnum[5] = 
+     (melt_multiple_length((melt_ptr_t)(/*_.CLASS_ANCESTORS__V28*/ curfptr[26])));;
+    /*_#I__L8*/ curfnum[7] = 
+     ((/*_#DEPTHIX__L3*/ curfnum[0]) < (/*_#NBANC__L7*/ curfnum[5]));;
+    MELT_LOCATION("warmelt-outobj.melt:4046:/ cond");
+    /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4046:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4046:/ block");
+     /*block*/{
+      MELT_LOCATION("warmelt-outobj.melt:4048:/ compute");
+      /*_#DEPTHIX__L3*/ curfnum[0] = /*_#SETQ___L9*/ curfnum[8] = /*_#NBANC__L7*/ curfnum[5];;
+      MELT_LOCATION("warmelt-outobj.melt:4049:/ compute");
+      /*_#PREVCLAIX__L4*/ curfnum[3] = /*_#SETQ___L10*/ curfnum[9] = /*_#CLAIX__L5*/ curfnum[4];;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4050:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4051:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@item "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4052:/ locexp");
+      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#DEPTHIX__L3*/ curfnum[0]));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4053:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( ": "));}
+      ;
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4054:/ locexp");
+      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+      ;
+      MELT_LOCATION("warmelt-outobj.melt:4047:/ block");
+      /*block*/{}
+      ;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:4046:/ clear");
+      /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:4046:/ clear");
+      /*clear*/ /*_#SETQ___L10*/ curfnum[9] = 0 ;}
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4046:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:4046:/ block");
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4055:/ locexp");
+      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( ","));}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4057:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @code{"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4058:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[18])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4058:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4058:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4058:/ cond.else");
+    
+     /*_.NAMED_NAME__V29*/ curfptr[28] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4058:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4059:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ clear");
+    /*clear*/ /*_.CLASS_ANCESTORS__V28*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ clear");
+    /*clear*/ /*_#NBANC__L7*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ clear");
+    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4045:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;}
+   ;
+   if (/*_#CLAIX__L5*/ curfnum[4]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4041:/ clear");
+   /*clear*/ /*_.CURCLA__V25*/ curfptr[24] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4041:/ clear");
+   /*clear*/ /*_#CLAIX__L5*/ curfnum[4] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4041:/ clear");
+   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4062:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4063:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@end table"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4064:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit2__EACHTUP: */
+   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23]);
+   for (/*_#CLAIX__L11*/ curfnum[8] = 0;  
+	(/*_#CLAIX__L11*/ curfnum[8] >= 0) && (/*_#CLAIX__L11*/ curfnum[8] <  cit2__EACHTUP_ln);  
+	/*_#CLAIX__L11*/ curfnum[8]++) {
+   /*_.CURCLADEF__V30*/ curfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23]),  /*_#CLAIX__L11*/ curfnum[8]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4068:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4068:/ block");
+    /*block*/{
+     /*_#IS_A__L12*/ curfnum[9] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURCLADEF__V30*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[19])));;
+     MELT_LOCATION("warmelt-outobj.melt:4068:/ cond");
+     /*cond*/ if (/*_#IS_A__L12*/ curfnum[9]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4068:/ cond.then");
+     /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4068:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:4068:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:4068:/ locexp");
+        melt_assert_failed(( "check curcladef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4068)?(4068):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V31*/ curfptr[28] = /*_.IFELSE___V32*/ curfptr[31];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4068:/ clear");
+     /*clear*/ /*_#IS_A__L12*/ curfnum[9] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4068:/ clear");
+     /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4068:/ cppif.else");
+   /*_.IFCPP___V31*/ curfptr[28] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:4069:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4069:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:4069:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURCLADEF__V30*/ curfptr[26];
+    MELT_LOCATION("warmelt-outobj.melt:4069:/ apply.arg");
+    argtab[2].bp_long = /*_#CLAIX__L11*/ curfnum[8];
+    /*_.MAKEDOC_OUTCLASSDEF__V33*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTCLASSDEF*/ curfrout->tabval[20])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   if (/*_#CLAIX__L11*/ curfnum[8]<0) break;
+   } /* end cit2__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4065:/ clear");
+   /*clear*/ /*_.CURCLADEF__V30*/ curfptr[26] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4065:/ clear");
+   /*clear*/ /*_#CLAIX__L11*/ curfnum[8] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4065:/ clear");
+   /*clear*/ /*_.IFCPP___V31*/ curfptr[28] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4065:/ clear");
+   /*clear*/ /*_.MAKEDOC_OUTCLASSDEF__V33*/ curfptr[31] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.QUOTEDONE__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.QUOTEDZERO__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.QUOTEDMINUSONE__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.MKDOC_CLASSES__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.LAMBDA___V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.UNSORTEDCLASSESTUPLE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.CMPCLASSDEPTHNAME__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.CMPCLASSNAME__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.CMPCLASSDEF__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.MKDOC_CLASSES__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.LIST_TO_MULTIPLE__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_#DEPTHIX__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3957:/ clear");
+  /*clear*/ /*_#PREVCLAIX__L4*/ curfnum[3] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENCLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_142_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_142_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 6
+  void* varptr[6];
+#define CURFRAM_NBVARNUM 1
+  long varnum[1];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<6; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 6;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ getarg");
+ /*_.CLDEF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3965:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3966:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3966:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CLDEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3966:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3966:/ cond.then");
+   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3966:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3966:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3966:/ locexp");
+      melt_assert_failed(( "check cldef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3966)?(3966):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3966:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3966:/ clear");
+   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3966:/ cppif.else");
+ /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3967:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLDEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])))) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3967:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3967:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLDEF__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLASS_CLABIND__V5*/ curfptr[3] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3967:/ cond.else");
+ 
+  /*_.SCLASS_CLABIND__V5*/ curfptr[3] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3967:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[1])))) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:3967:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:3967:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS_CLABIND__V5*/ curfptr[3]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V6*/ curfptr[5] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:3967:/ cond.else");
+ 
+  /*_.CBIND_CLASS__V6*/ curfptr[5] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.CBIND_CLASS__V6*/ curfptr[5];;
+  MELT_LOCATION("warmelt-outobj.melt:3965:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
+ /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
+ /*clear*/ /*_.SCLASS_CLABIND__V5*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
+ /*clear*/ /*_.CBIND_CLASS__V6*/ curfptr[5] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_142_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_143_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_143_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 20
+  void* varptr[20];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<20; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 20;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ getarg");
+ /*_.CL0__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CL1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:3970:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3971:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3971:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3971:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3971:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3971:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3971:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3971:/ locexp");
+      melt_assert_failed(( "check cl0"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3971)?(3971):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3971:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3971:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3971:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:3972:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:3972:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:3972:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:3972:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:3972:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:3972:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:3972:/ locexp");
+      melt_assert_failed(( "check cl1"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3972)?(3972):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:3972:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:3972:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:3972:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:3973:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), 5, "CLASS_ANCESTORS");/*_.CL0ANC__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3974:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), 5, "CLASS_ANCESTORS");/*_.CL1ANC__V10*/ curfptr[9] = slot; };
+  ;
+  /*_#NBCL0ANC__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CL0ANC__V9*/ curfptr[8])));;
+  /*_#NBCL1ANC__L4*/ curfnum[3] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.CL1ANC__V10*/ curfptr[9])));;
+  MELT_LOCATION("warmelt-outobj.melt:3977:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.CL0NAM__V11*/ curfptr[10] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:3978:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CL1NAM__V12*/ curfptr[11] = slot; };
+  ;
+  /*_#__L5*/ curfnum[4] = 
+   ((/*_.CL0__V2*/ curfptr[1]) == (/*_.CL1__V3*/ curfptr[2]));;
+  MELT_LOCATION("warmelt-outobj.melt:3981:/ cond");
+  /*cond*/ if (/*_#__L5*/ curfnum[4]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:3981:/ cond.then");
+  /*_.IFELSE___V13*/ curfptr[12] = (/*~QUOTEDZERO*/ curfclos->tabval[0]);;
+  } else {MELT_LOCATION("warmelt-outobj.melt:3981:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:3981:/ block");
+   /*block*/{
+    /*_#I__L6*/ curfnum[5] = 
+     ((/*_#NBCL0ANC__L3*/ curfnum[0]) < (/*_#NBCL1ANC__L4*/ curfnum[3]));;
+    MELT_LOCATION("warmelt-outobj.melt:3983:/ cond");
+    /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:3983:/ cond.then");
+    /*_.IFELSE___V14*/ curfptr[13] = (/*~QUOTEDMINUSONE*/ curfclos->tabval[1]);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:3983:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:3983:/ block");
+     /*block*/{
+      /*_#I__L7*/ curfnum[6] = 
+       ((/*_#NBCL0ANC__L3*/ curfnum[0]) > (/*_#NBCL1ANC__L4*/ curfnum[3]));;
+      MELT_LOCATION("warmelt-outobj.melt:3985:/ cond");
+      /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:3985:/ cond.then");
+      /*_.IFELSE___V15*/ curfptr[14] = (/*~QUOTEDONE*/ curfclos->tabval[2]);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:3985:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:3985:/ block");
+       /*block*/{
+        /*_#STRING___L8*/ curfnum[7] = 
+         melt_string_less((melt_ptr_t)(/*_.CL0NAM__V11*/ curfptr[10]), (melt_ptr_t)(/*_.CL1NAM__V12*/ curfptr[11]));;
+        MELT_LOCATION("warmelt-outobj.melt:3987:/ cond");
+        /*cond*/ if (/*_#STRING___L8*/ curfnum[7]) /*then*/ {
+        MELT_LOCATION("warmelt-outobj.melt:3987:/ cond.then");
+        /*_.IFELSE___V16*/ curfptr[15] = (/*~QUOTEDMINUSONE*/ curfclos->tabval[1]);;
+        } else {MELT_LOCATION("warmelt-outobj.melt:3987:/ cond.else");
+        
+         MELT_LOCATION("warmelt-outobj.melt:3987:/ block");
+         /*block*/{
+          /*_#STRING___L9*/ curfnum[8] = 
+           melt_string_less((melt_ptr_t)(/*_.CL1NAM__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CL0NAM__V11*/ curfptr[10]));;
+          MELT_LOCATION("warmelt-outobj.melt:3989:/ cond");
+          /*cond*/ if (/*_#STRING___L9*/ curfnum[8]) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:3989:/ cond.then");
+          /*_.IFELSE___V17*/ curfptr[16] = (/*~QUOTEDONE*/ curfclos->tabval[2]);;
+          } else {MELT_LOCATION("warmelt-outobj.melt:3989:/ cond.else");
+          
+           MELT_LOCATION("warmelt-outobj.melt:3989:/ block");
+           /*block*/{
+            
+            #if ENABLE_CHECKING
+             MELT_LOCATION("warmelt-outobj.melt:3993:/ cppif.then");
+            MELT_LOCATION("warmelt-outobj.melt:3993:/ block");
+             /*block*/{
+              MELT_LOCATION("warmelt-outobj.melt:3993:/ cond");
+              /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+              MELT_LOCATION("warmelt-outobj.melt:3993:/ cond.then");
+              /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+              } else {MELT_LOCATION("warmelt-outobj.melt:3993:/ cond.else");
+              
+               MELT_LOCATION("warmelt-outobj.melt:3993:/ block");
+               /*block*/{
+                /*block*/{
+                 
+                 {
+                 MELT_LOCATION("warmelt-outobj.melt:3993:/ locexp");
+                 melt_assert_failed(( "cmpclassdepthname same name different classes!"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (3993)?(3993):__LINE__, __FUNCTION__);
+;}
+                 ;
+                 /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+                ;
+                /*epilog*/}
+               ;
+               }
+              ;
+              /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
+              /*epilog*/
+              MELT_LOCATION("warmelt-outobj.melt:3993:/ clear");
+              /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+             
+             #else /*ENABLE_CHECKING*/
+             MELT_LOCATION("warmelt-outobj.melt:3993:/ cppif.else");
+            /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
+             #endif /*ENABLE_CHECKING*/
+             ;
+            MELT_LOCATION("warmelt-outobj.melt:3991:/ block");
+            /*block*/{
+             /*_.PROGN___V20*/ curfptr[18] = (/*nil*/NULL);;}
+            ;
+            /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V20*/ curfptr[18];;
+            /*epilog*/
+            MELT_LOCATION("warmelt-outobj.melt:3989:/ clear");
+            /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
+            MELT_LOCATION("warmelt-outobj.melt:3989:/ clear");
+            /*clear*/ /*_.PROGN___V20*/ curfptr[18] = 0 ;}
+           ;
+           }
+          ;
+          /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:3987:/ clear");
+          /*clear*/ /*_#STRING___L9*/ curfnum[8] = 0 ;
+          MELT_LOCATION("warmelt-outobj.melt:3987:/ clear");
+          /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
+         ;
+         }
+        ;
+        /*_.IFELSE___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
+        /*clear*/ /*_#STRING___L8*/ curfnum[7] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
+        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:3983:/ clear");
+      /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:3983:/ clear");
+      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:3981:/ clear");
+    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:3981:/ clear");
+    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[12];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_.CL0ANC__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_.CL1ANC__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_#NBCL0ANC__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_#NBCL1ANC__L4*/ curfnum[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_.CL0NAM__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_.CL1NAM__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_#__L5*/ curfnum[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
+  /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-outobj.melt:3970:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_143_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_144_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_144_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 16
+  void* varptr[16];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<16; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 16;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ getarg");
+ /*_.CL0__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CL1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4000:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4001:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4001:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4001:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4001:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4001:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4001:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4001:/ locexp");
+      melt_assert_failed(( "check cl0"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4001)?(4001):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4001:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4001:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4001:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4002:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4002:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4002:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4002:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4002:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4002:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4002:/ locexp");
+      melt_assert_failed(( "check cl1"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4002)?(4002):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4002:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4002:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4002:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:4003:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4003:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.CL0NAM__V9*/ curfptr[8] = slot; };
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4004:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CL1NAM__V10*/ curfptr[9] = slot; };
+  ;
+  /*_#__L3*/ curfnum[0] = 
+   ((/*_.CL0__V2*/ curfptr[1]) == (/*_.CL1__V3*/ curfptr[2]));;
+  MELT_LOCATION("warmelt-outobj.melt:4007:/ cond");
+  /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4007:/ cond.then");
+  /*_.IFELSE___V11*/ curfptr[10] = (/*~QUOTEDZERO*/ curfclos->tabval[0]);;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4007:/ cond.else");
+  
+   MELT_LOCATION("warmelt-outobj.melt:4007:/ block");
+   /*block*/{
+    /*_#STRING___L4*/ curfnum[3] = 
+     melt_string_less((melt_ptr_t)(/*_.CL0NAM__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CL1NAM__V10*/ curfptr[9]));;
+    MELT_LOCATION("warmelt-outobj.melt:4009:/ cond");
+    /*cond*/ if (/*_#STRING___L4*/ curfnum[3]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4009:/ cond.then");
+    /*_.IFELSE___V12*/ curfptr[11] = (/*~QUOTEDMINUSONE*/ curfclos->tabval[1]);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4009:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:4009:/ block");
+     /*block*/{
+      /*_#STRING___L5*/ curfnum[4] = 
+       melt_string_less((melt_ptr_t)(/*_.CL1NAM__V10*/ curfptr[9]), (melt_ptr_t)(/*_.CL0NAM__V9*/ curfptr[8]));;
+      MELT_LOCATION("warmelt-outobj.melt:4011:/ cond");
+      /*cond*/ if (/*_#STRING___L5*/ curfnum[4]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:4011:/ cond.then");
+      /*_.IFELSE___V13*/ curfptr[12] = (/*~QUOTEDONE*/ curfclos->tabval[2]);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:4011:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:4011:/ block");
+       /*block*/{
+        
+        #if ENABLE_CHECKING
+         MELT_LOCATION("warmelt-outobj.melt:4015:/ cppif.then");
+        MELT_LOCATION("warmelt-outobj.melt:4015:/ block");
+         /*block*/{
+          MELT_LOCATION("warmelt-outobj.melt:4015:/ cond");
+          /*cond*/ if ((/*nil*/NULL)) /*then*/ {
+          MELT_LOCATION("warmelt-outobj.melt:4015:/ cond.then");
+          /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+          } else {MELT_LOCATION("warmelt-outobj.melt:4015:/ cond.else");
+          
+           MELT_LOCATION("warmelt-outobj.melt:4015:/ block");
+           /*block*/{
+            /*block*/{
+             
+             {
+             MELT_LOCATION("warmelt-outobj.melt:4015:/ locexp");
+             melt_assert_failed(( "cmpclassname same name different classes!"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4015)?(4015):__LINE__, __FUNCTION__);
+;}
+             ;
+             /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+            ;
+            /*epilog*/}
+           ;
+           }
+          ;
+          /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
+          /*epilog*/
+          MELT_LOCATION("warmelt-outobj.melt:4015:/ clear");
+          /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+         
+         #else /*ENABLE_CHECKING*/
+         MELT_LOCATION("warmelt-outobj.melt:4015:/ cppif.else");
+        /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
+         #endif /*ENABLE_CHECKING*/
+         ;
+        MELT_LOCATION("warmelt-outobj.melt:4013:/ block");
+        /*block*/{
+         /*_.PROGN___V16*/ curfptr[14] = (/*nil*/NULL);;}
+        ;
+        /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V16*/ curfptr[14];;
+        /*epilog*/
+        MELT_LOCATION("warmelt-outobj.melt:4011:/ clear");
+        /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
+        MELT_LOCATION("warmelt-outobj.melt:4011:/ clear");
+        /*clear*/ /*_.PROGN___V16*/ curfptr[14] = 0 ;}
+       ;
+       }
+      ;
+      /*_.IFELSE___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:4009:/ clear");
+      /*clear*/ /*_#STRING___L5*/ curfnum[4] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:4009:/ clear");
+      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+     ;
+     }
+    ;
+    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4007:/ clear");
+    /*clear*/ /*_#STRING___L4*/ curfnum[3] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4007:/ clear");
+    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
+   ;
+   }
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[10];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
+  /*clear*/ /*_.CL0NAM__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
+  /*clear*/ /*_.CL1NAM__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
+  /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
+  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-outobj.melt:4000:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_144_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_145_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_145_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 10
+  void* varptr[10];
+#define CURFRAM_NBVARNUM 2
+  long varnum[2];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<10; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 10;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ getarg");
+ /*_.CDF0__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.CDF1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4023:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4024:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4024:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CDF0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4024:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4024:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4024:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4024:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4024:/ locexp");
+      melt_assert_failed(( "check cdf0"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4024)?(4024):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4024:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4024:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4024:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4025:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4025:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4025:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4025:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4025:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4025:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4025:/ locexp");
+      melt_assert_failed(( "check cdf1"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4025)?(4025):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4025:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4025:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4025:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CDF0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CDF0__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V8*/ curfptr[6] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:4026:/ cond.else");
+ 
+  /*_.SDEF_NAME__V8*/ curfptr[6] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ cond");
+ /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ getslot");
+  { melt_ptr_t slot=0;
+   melt_object_get_field(slot,(melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2]), 2, "SDEF_NAME");/*_.SDEF_NAME__V9*/ curfptr[8] = slot; };
+  ;
+ } else {MELT_LOCATION("warmelt-outobj.melt:4026:/ cond.else");
+ 
+  /*_.SDEF_NAME__V9*/ curfptr[8] = NULL;;
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4026:/ apply");
+ /*apply*/{
+  union meltparam_un argtab[1];
+  memset(&argtab, 0, sizeof(argtab));
+  MELT_LOCATION("warmelt-outobj.melt:4026:/ apply.arg");
+  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V9*/ curfptr[8];
+  /*_.COMPARE_NAMED_ALPHA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SDEF_NAME__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+  }
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPARE_NAMED_ALPHA__V10*/ curfptr[9];;
+  MELT_LOCATION("warmelt-outobj.melt:4023:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ clear");
+ /*clear*/ /*_.SDEF_NAME__V8*/ curfptr[6] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ clear");
+ /*clear*/ /*_.SDEF_NAME__V9*/ curfptr[8] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ clear");
+ /*clear*/ /*_.COMPARE_NAMED_ALPHA__V10*/ curfptr[9] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_145_warmelt_outobj_LAMBDA_*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 21
+  void* varptr[21];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<21; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 21;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_OUTPRIMITIVEDEF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.PRIMDEF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#PRIMIX__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4076:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4077:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4077:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4077:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4077:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4077:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4077:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4077:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4077)?(4077):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4077:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4077:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4077:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4078:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4078:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:4078:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4078:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4078:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4078:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4078:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4078)?(4078):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4078:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4078:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4078:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4079:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4079:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:4079:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4079:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4079:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4079:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4079:/ locexp");
+      melt_assert_failed(( "check primdef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4079)?(4079):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4079:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4079:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4079:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:4080:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 2, "SDEF_NAME");/*_.PNAM__V11*/ curfptr[9] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4080:/ cond.else");
+  
+   /*_.PNAM__V11*/ curfptr[9] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4081:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4081:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4081:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 4, "SFORMAL_ARGS");/*_.ARGS__V12*/ curfptr[11] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4081:/ cond.else");
+  
+   /*_.ARGS__V12*/ curfptr[11] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4082:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[1])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4082:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4082:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 5, "SPRIM_TYPE");/*_.TYPE__V13*/ curfptr[12] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4082:/ cond.else");
+  
+   /*_.TYPE__V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4083:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4083:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4083:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 3, "SDEF_DOC");/*_.DOC__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4083:/ cond.else");
+  
+   /*_.DOC__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4085:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4086:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4087:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4087:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4087:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4087:/ cond.else");
+  
+   /*_.NAMED_NAME__V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4087:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4088:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4089:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4090:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4091:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4091:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4091:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4091:/ cond.else");
+  
+   /*_.NAMED_NAME__V16*/ curfptr[15] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4091:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4092:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4093:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4093:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PRIMDEF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:4093:/ apply.arg");
+   argtab[1].bp_cstring =  "Primitive defined at ";
+   /*_.MAKEDOC_OUTDEFLOC__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4094:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4095:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{result type:} @code{"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TYPE__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.TYPE__V13*/ curfptr[12]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V18*/ curfptr[17] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4096:/ cond.else");
+  
+   /*_.CTYPE_KEYWORD__V18*/ curfptr[17] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4096:/ cond.else");
+  
+   /*_.NAMED_NAME__V19*/ curfptr[18] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4096:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4097:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4098:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4099:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4099:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ARGS__V12*/ curfptr[11];
+   MELT_LOCATION("warmelt-outobj.melt:4099:/ apply.arg");
+   argtab[1].bp_cstring =  "@strong{primitive formals:}";
+   /*_.MAKEDOC_OUTFORMALS__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4101:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4101:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOC__V14*/ curfptr[13];
+   MELT_LOCATION("warmelt-outobj.melt:4101:/ apply.arg");
+   argtab[1].bp_cstring =  "@strong{primitive description:} ";
+   /*_.MAKEDOC_OUTDOC__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4102:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.PNAM__V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.ARGS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.TYPE__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.DOC__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.CTYPE_KEYWORD__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTFORMALS__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4080:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTDOC__V21*/ curfptr[20] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_OUTPRIMITIVEDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF*/
+
+
+
+/**** end of warmelt-outobj.0+2.c ****/
diff --git a/gcc/melt/warmelt-outobj.0+3.c b/gcc/melt/warmelt-outobj.0+3.c
new file mode 100644
index 00000000000..0776aca6ccd
--- /dev/null
+++ b/gcc/melt/warmelt-outobj.0+3.c
@@ -0,0 +1,4370 @@
+/* GCC MELT GENERATED FILE warmelt-outobj.0+3.c - DO NOT EDIT */
+/* secondary MELT generated C file of rank #3 */
+#include "run-melt.h"
+
+/**** warmelt-outobj.0+3.c declarations ****/
+#define MELT_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/>.
+*****!!**/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_outobj_OUTDECLINIT_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_outobj_OUTPUCOD_OBJINIELEM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_outobj_OUTCINITFILL_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_outobj_OUTCINITPREDEF_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_outobj_OUTPUT_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_outobj_OUTPUCOD_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_outobj_OUTPUCOD_NIL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_outobj_OUTDECLINIT_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_outobj_OUTCINITFILL_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_outobj_OUTCINITPREDEF_OBJINITOBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_outobj_OUTDECLINIT_OBJINITMULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_outobj_OUTCINITFILL_OBJINITMULTIPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_outobj_OUTDECLINIT_OBJINITCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_outobj_OUTCINITFILL_OBJINITCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_outobj_OUTDECLINIT_OBJINITROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_outobj_OUTCINITFILL_OBJINITROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_outobj_OUTDECLINIT_OBJINITSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_outobj_OUTCINITFILL_OBJINITSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_outobj_OUTDECLINIT_OBJINITBOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_outobj_OUTCINITFILL_OBJINITBOXEDINTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_outobj_OUTPUCOD_ANYDISCR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_outobj_OUTPUCOD_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_outobj_OUTPUCOD_CATCHALL_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_outobj_OUTPUT_RAW_LOCATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_outobj_OUTPUT_LOCATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_outobj_OUTPUCOD_MARKER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_outobj_OUTPUCOD_PROCROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_outobj_OUTPUCOD_GETARG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_outobj_OUTPUCOD_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_outobj_INSTALL_MELT_MODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_outobj_RUNFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_outobj_MAKEDOC_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_);
+
+
+void* start_module_melt(void*);
+void mark_module_melt(void*);
+void* initial_frame_melt;
+
+
+/**** warmelt-outobj.0+3.c implementations ****/
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENPRIMITIVE", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4106:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4107:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4107:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4107:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4107:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4107:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4107:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4107:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4107)?(4107):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4107:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4107:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4107:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4108:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4108:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:4108:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4108:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4108:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4108:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4108:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4108)?(4108):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4108:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4108:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4108:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4109:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT primitives"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4110:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4111:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT primitives"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4112:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4113:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4114:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 1, "MKDOC_PRIMITIVES");/*_.RAWPRIMLIST__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4114:/ cond.else");
+  
+   /*_.RAWPRIMLIST__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4115:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4115:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   /*_.RAWPRIMTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWPRIMLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SORTEDPRIMTUP__V10*/ curfptr[9] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWPRIMTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4118:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
+  ;
+  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDPRIMTUP__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4119:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4120:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " primitives."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4121:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDPRIMTUP__V10*/ curfptr[9]);
+   for (/*_#PRIMIX__L4*/ curfnum[3] = 0;  
+	(/*_#PRIMIX__L4*/ curfnum[3] >= 0) && (/*_#PRIMIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#PRIMIX__L4*/ curfnum[3]++) {
+   /*_.CURPRIMDEF__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDPRIMTUP__V10*/ curfptr[9]),  /*_#PRIMIX__L4*/ curfnum[3]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4125:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4125:/ block");
+    /*block*/{
+     /*_#IS_A__L5*/ curfnum[4] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURPRIMDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[4])));;
+     MELT_LOCATION("warmelt-outobj.melt:4125:/ cond");
+     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4125:/ cond.then");
+     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4125:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:4125:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:4125:/ locexp");
+        melt_assert_failed(( "check curprim"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4125)?(4125):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4125:/ clear");
+     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4125:/ clear");
+     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4125:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:4126:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4126:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:4126:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURPRIMDEF__V11*/ curfptr[10];
+    MELT_LOCATION("warmelt-outobj.melt:4126:/ apply.arg");
+    argtab[2].bp_long = /*_#PRIMIX__L4*/ curfnum[3];
+    /*_.MAKEDOC_OUTPRIMITIVEDEF__V14*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTPRIMITIVEDEF*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:4127:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+   ;
+   if (/*_#PRIMIX__L4*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4122:/ clear");
+   /*clear*/ /*_.CURPRIMDEF__V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4122:/ clear");
+   /*clear*/ /*_#PRIMIX__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4122:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4122:/ clear");
+   /*clear*/ /*_.MAKEDOC_OUTPRIMITIVEDEF__V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ clear");
+  /*clear*/ /*_.RAWPRIMLIST__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ clear");
+  /*clear*/ /*_.RAWPRIMTUP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ clear");
+  /*clear*/ /*_.SORTEDPRIMTUP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4114:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENPRIMITIVE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 18
+  void* varptr[18];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<18; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 18;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_OUTFUNCTIONDEF", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ 
+ /*getarg#2*/
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ getarg");
+ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
+ /*_.FUNDEF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3])) != NULL);
+ 
+ 
+ /*getarg#3*/
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ getarg");
+ if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
+ /*_#PRIMIX__L1*/ curfnum[0] = xargtab_[2].bp_long;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4135:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4136:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4136:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4136:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4136:/ cond.then");
+   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4136:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4136:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4136:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4136)?(4136):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4136:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4136:/ clear");
+   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4136:/ cppif.else");
+ /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4137:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4137:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L3*/ curfnum[1] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:4137:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L3*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4137:/ cond.then");
+   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4137:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4137:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4137:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4137)?(4137):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4137:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L3*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4137:/ clear");
+   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4137:/ cppif.else");
+ /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4138:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4138:/ block");
+  /*block*/{
+   /*_#IS_A__L4*/ curfnum[1] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:4138:/ cond");
+   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4138:/ cond.then");
+   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4138:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4138:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4138:/ locexp");
+      melt_assert_failed(( "check fundef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4138)?(4138):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
+   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
+   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4138:/ cppif.else");
+ /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:4139:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), 2, "SDEF_NAME");/*_.FNAM__V11*/ curfptr[9] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4139:/ cond.else");
+  
+   /*_.FNAM__V11*/ curfptr[9] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4140:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[3])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4140:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4140:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), 4, "SFORMAL_ARGS");/*_.ARGS__V12*/ curfptr[11] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4140:/ cond.else");
+  
+   /*_.ARGS__V12*/ curfptr[11] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4141:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4141:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4141:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), 3, "SDEF_DOC");/*_.DOC__V13*/ curfptr[12] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4141:/ cond.else");
+  
+   /*_.DOC__V13*/ curfptr[12] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4143:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4144:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4145:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4145:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4145:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4145:/ cond.else");
+  
+   /*_.NAMED_NAME__V14*/ curfptr[13] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4145:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4146:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4147:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4148:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4149:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4149:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4149:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4149:/ cond.else");
+  
+   /*_.NAMED_NAME__V15*/ curfptr[14] = NULL;;
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4149:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4150:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4151:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4151:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FUNDEF__V4*/ curfptr[3];
+   MELT_LOCATION("warmelt-outobj.melt:4151:/ apply.arg");
+   argtab[1].bp_cstring =  "Function defined at ";
+   /*_.MAKEDOC_OUTDEFLOC__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4152:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4153:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4153:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ARGS__V12*/ curfptr[11];
+   MELT_LOCATION("warmelt-outobj.melt:4153:/ apply.arg");
+   argtab[1].bp_cstring =  "@strong{Function formals:}";
+   /*_.MAKEDOC_OUTFORMALS__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4155:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[2];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4155:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOC__V13*/ curfptr[12];
+   MELT_LOCATION("warmelt-outobj.melt:4155:/ apply.arg");
+   argtab[1].bp_cstring =  "@strong{Function description:} ";
+   /*_.MAKEDOC_OUTDOC__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4156:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.FNAM__V11*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.ARGS__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.DOC__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTFORMALS__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4139:/ clear");
+  /*clear*/ /*_.MAKEDOC_OUTDOC__V18*/ curfptr[17] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ clear");
+ /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ clear");
+ /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ clear");
+ /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_OUTFUNCTIONDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 14
+  void* varptr[14];
+#define CURFRAM_NBVARNUM 5
+  long varnum[5];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<14; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 14;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENFUNCTION", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4160:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4161:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4161:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4161:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4161:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4161:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4161:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4161:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4161)?(4161):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4161:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4161:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4161:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4162:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4162:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:4162:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4162:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4162:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4162:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4162:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4162)?(4162):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4162:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4162:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4162:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4163:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT functions"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4164:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4165:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT functions"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4166:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4167:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4168:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 2, "MKDOC_FUNCTIONS");/*_.RAWFUNLIST__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4168:/ cond.else");
+  
+   /*_.RAWFUNLIST__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4169:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4169:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   /*_.RAWFUNTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWFUNLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SORTEDFUNTUP__V10*/ curfptr[9] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWFUNTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4172:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
+  ;
+  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDFUNTUP__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4173:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4174:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " functions."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4175:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDFUNTUP__V10*/ curfptr[9]);
+   for (/*_#FUNIX__L4*/ curfnum[3] = 0;  
+	(/*_#FUNIX__L4*/ curfnum[3] >= 0) && (/*_#FUNIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#FUNIX__L4*/ curfnum[3]++) {
+   /*_.CURFUNDEF__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDFUNTUP__V10*/ curfptr[9]),  /*_#FUNIX__L4*/ curfnum[3]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4179:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4179:/ block");
+    /*block*/{
+     /*_#IS_A__L5*/ curfnum[4] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURFUNDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[4])));;
+     MELT_LOCATION("warmelt-outobj.melt:4179:/ cond");
+     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4179:/ cond.then");
+     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4179:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:4179:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:4179:/ locexp");
+        melt_assert_failed(( "check curfun"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4179)?(4179):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4179:/ clear");
+     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4179:/ clear");
+     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4179:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:4180:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[3];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4180:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ curfptr[2];
+    MELT_LOCATION("warmelt-outobj.melt:4180:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFUNDEF__V11*/ curfptr[10];
+    MELT_LOCATION("warmelt-outobj.melt:4180:/ apply.arg");
+    argtab[2].bp_long = /*_#FUNIX__L4*/ curfnum[3];
+    /*_.MAKEDOC_OUTFUNCTIONDEF__V14*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFUNCTIONDEF*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   
+   {
+   MELT_LOCATION("warmelt-outobj.melt:4181:/ locexp");
+   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+   ;
+   if (/*_#FUNIX__L4*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4176:/ clear");
+   /*clear*/ /*_.CURFUNDEF__V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4176:/ clear");
+   /*clear*/ /*_#FUNIX__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4176:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4176:/ clear");
+   /*clear*/ /*_.MAKEDOC_OUTFUNCTIONDEF__V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ clear");
+  /*clear*/ /*_.RAWFUNLIST__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ clear");
+  /*clear*/ /*_.RAWFUNTUP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ clear");
+  /*clear*/ /*_.SORTEDFUNTUP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4168:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENFUNCTION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 34
+  void* varptr[34];
+#define CURFRAM_NBVARNUM 9
+  long varnum[9];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<34; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 34;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENCITERATOR", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4189:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4190:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4190:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4190:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4190:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4190:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4190:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4190:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4190)?(4190):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4190:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4190:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4190:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4191:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4191:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:4191:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4191:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4191:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4191:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4191:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4191)?(4191):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4191:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4191:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4191:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4192:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT c-iterators"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4193:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4194:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT c-iterators"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4195:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4196:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4197:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 3, "MKDOC_CITERATORS");/*_.RAWCITERLIST__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4197:/ cond.else");
+  
+   /*_.RAWCITERLIST__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4198:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4198:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   /*_.RAWCITERTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWCITERLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SORTEDCITERTUP__V10*/ curfptr[9] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWCITERTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4201:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4201:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:4201:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4201:/ apply.arg");
+     argtab[0].bp_cstring =  "makedoc_genciterator rawciterlist";
+     MELT_LOCATION("warmelt-outobj.melt:4201:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:4201:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:4201:/ apply.arg");
+     argtab[3].bp_long = 4201;
+     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RAWCITERLIST__V8*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4201:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4201:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4201:/ cppif.else");
+  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4202:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4202:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:4202:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4202:/ apply.arg");
+     argtab[0].bp_cstring =  "makedoc_genciterator sortedcitertup";
+     MELT_LOCATION("warmelt-outobj.melt:4202:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:4202:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:4202:/ apply.arg");
+     argtab[3].bp_long = 4202;
+     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SORTEDCITERTUP__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4202:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4202:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4202:/ cppif.else");
+  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4203:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
+  ;
+  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCITERTUP__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4204:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4205:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " c-iterators."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4206:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCITERTUP__V10*/ curfptr[9]);
+   for (/*_#CITIX__L6*/ curfnum[5] = 0;  
+	(/*_#CITIX__L6*/ curfnum[5] >= 0) && (/*_#CITIX__L6*/ curfnum[5] <  cit1__EACHTUP_ln);  
+	/*_#CITIX__L6*/ curfnum[5]++) {
+   /*_.CURCITERDEF__V15*/ curfptr[13] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCITERTUP__V10*/ curfptr[9]),  /*_#CITIX__L6*/ curfnum[5]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4210:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4210:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:4210:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:4210:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_genciterator curciter";
+      MELT_LOCATION("warmelt-outobj.melt:4210:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
+      MELT_LOCATION("warmelt-outobj.melt:4210:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:4210:/ apply.arg");
+      argtab[3].bp_long = 4210;
+      /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4210:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4210:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4210:/ cppif.else");
+   /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4211:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4211:/ block");
+    /*block*/{
+     /*_#IS_A__L8*/ curfnum[6] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[5])));;
+     MELT_LOCATION("warmelt-outobj.melt:4211:/ cond");
+     /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4211:/ cond.then");
+     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4211:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:4211:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:4211:/ locexp");
+        melt_assert_failed(( "check curciterdef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4211)?(4211):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4211:/ clear");
+     /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4211:/ clear");
+     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4211:/ cppif.else");
+   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:4212:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 1, "LOCA_LOCATION");/*_.SLOC__V20*/ curfptr[18] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4212:/ cond.else");
+    
+     /*_.SLOC__V20*/ curfptr[18] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4213:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4213:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4213:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 2, "SDEF_NAME");/*_.SNAM__V21*/ curfptr[20] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4213:/ cond.else");
+    
+     /*_.SNAM__V21*/ curfptr[20] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4214:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4214:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4214:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 3, "SDEF_DOC");/*_.SDOC__V22*/ curfptr[21] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4214:/ cond.else");
+    
+     /*_.SDOC__V22*/ curfptr[21] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4215:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[5])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4215:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4215:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 5, "SCITERDEF_CITERATOR");/*_.CITER__V23*/ curfptr[22] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4215:/ cond.else");
+    
+     /*_.CITER__V23*/ curfptr[22] = NULL;;
+     }
+    ;
+    
+    #if ENABLE_CHECKING
+     MELT_LOCATION("warmelt-outobj.melt:4217:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:4217:/ block");
+     /*block*/{
+      /*_#IS_A__L9*/ curfnum[6] = 
+       melt_is_instance_of((melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])));;
+      MELT_LOCATION("warmelt-outobj.melt:4217:/ cond");
+      /*cond*/ if (/*_#IS_A__L9*/ curfnum[6]) /*then*/ {
+      MELT_LOCATION("warmelt-outobj.melt:4217:/ cond.then");
+      /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
+      } else {MELT_LOCATION("warmelt-outobj.melt:4217:/ cond.else");
+      
+       MELT_LOCATION("warmelt-outobj.melt:4217:/ block");
+       /*block*/{
+        /*block*/{
+         
+         {
+         MELT_LOCATION("warmelt-outobj.melt:4217:/ locexp");
+         melt_assert_failed(( "check citer"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4217)?(4217):__LINE__, __FUNCTION__);
+;}
+         ;
+         /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+        ;
+        /*epilog*/}
+       ;
+       }
+      ;
+      /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
+      /*epilog*/
+      MELT_LOCATION("warmelt-outobj.melt:4217:/ clear");
+      /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ;
+      MELT_LOCATION("warmelt-outobj.melt:4217:/ clear");
+      /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
+     
+     #else /*ENABLE_CHECKING*/
+     MELT_LOCATION("warmelt-outobj.melt:4217:/ cppif.else");
+    /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
+     #endif /*ENABLE_CHECKING*/
+     ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4218:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4219:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4220:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4220:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4220:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[24] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4220:/ cond.else");
+    
+     /*_.NAMED_NAME__V26*/ curfptr[24] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4220:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ curfptr[24])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4221:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4222:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4223:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4224:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4224:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4224:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4224:/ cond.else");
+    
+     /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4224:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4225:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4226:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4226:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCITERDEF__V15*/ curfptr[13];
+     MELT_LOCATION("warmelt-outobj.melt:4226:/ apply.arg");
+     argtab[1].bp_cstring =  "C-iterator defined at ";
+     /*_.MAKEDOC_OUTDEFLOC__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4227:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4228:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4228:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4228:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), 2, "CITER_START_FORMALS");/*_.CITER_START_FORMALS__V29*/ curfptr[28] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4228:/ cond.else");
+    
+     /*_.CITER_START_FORMALS__V29*/ curfptr[28] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4228:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4228:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITER_START_FORMALS__V29*/ curfptr[28];
+     MELT_LOCATION("warmelt-outobj.melt:4228:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{c-iterator start formals:}";
+     /*_.MAKEDOC_OUTFORMALS__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4229:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4230:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4230:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4230:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), 4, "CITER_BODY_FORMALS");/*_.CITER_BODY_FORMALS__V31*/ curfptr[30] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4230:/ cond.else");
+    
+     /*_.CITER_BODY_FORMALS__V31*/ curfptr[30] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4230:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4230:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITER_BODY_FORMALS__V31*/ curfptr[30];
+     MELT_LOCATION("warmelt-outobj.melt:4230:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{c-iterator body formals:}";
+     /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4232:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4232:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SDOC__V22*/ curfptr[21];
+     MELT_LOCATION("warmelt-outobj.melt:4232:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{C-iterator description:} ";
+     /*_.MAKEDOC_OUTDOC__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4233:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.SLOC__V20*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.SNAM__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.SDOC__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.CITER__V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V28*/ curfptr[27] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.CITER_START_FORMALS__V29*/ curfptr[28] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V30*/ curfptr[29] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.CITER_BODY_FORMALS__V31*/ curfptr[30] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[31] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4212:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTDOC__V33*/ curfptr[32] = 0 ;}
+   ;
+   if (/*_#CITIX__L6*/ curfnum[5]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4207:/ clear");
+   /*clear*/ /*_.CURCITERDEF__V15*/ curfptr[13] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4207:/ clear");
+   /*clear*/ /*_#CITIX__L6*/ curfnum[5] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4207:/ clear");
+   /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4207:/ clear");
+   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ clear");
+  /*clear*/ /*_.RAWCITERLIST__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ clear");
+  /*clear*/ /*_.RAWCITERTUP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ clear");
+  /*clear*/ /*_.SORTEDCITERTUP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ clear");
+  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ clear");
+  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4197:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4237:/ block");
+ /*block*/{
+  /*_.RETVAL___V34*/ curfptr[18] = (/*nil*/NULL);;
+  MELT_LOCATION("warmelt-outobj.melt:4237:/ block");
+  /*block*/{
+   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETVAL___V34*/ curfptr[18];;
+   MELT_LOCATION("warmelt-outobj.melt:4237:/ finalreturn");
+   ;
+   /*finalret*/ goto labend_rout ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4237:/ clear");
+  /*clear*/ /*_.RETVAL___V34*/ curfptr[18] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENCITERATOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 33
+  void* varptr[33];
+#define CURFRAM_NBVARNUM 6
+  long varnum[6];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<33; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 33;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENCMATCHER", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4243:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4244:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4244:/ block");
+  /*block*/{
+   /*_#IS_A__L1*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
+   MELT_LOCATION("warmelt-outobj.melt:4244:/ cond");
+   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4244:/ cond.then");
+   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4244:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4244:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4244:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4244)?(4244):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4244:/ clear");
+   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4244:/ clear");
+   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4244:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4245:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4245:/ block");
+  /*block*/{
+   /*_#IS_STRBUF__L2*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
+   MELT_LOCATION("warmelt-outobj.melt:4245:/ cond");
+   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4245:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4245:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4245:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4245:/ locexp");
+      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4245)?(4245):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
+   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4245:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4246:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT c-matchers"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4247:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4248:/ locexp");
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT c-matchers"));}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4249:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4250:/ locexp");
+ meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4251:/ block");
+ /*block*/{
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ cond");
+  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ getslot");
+   { melt_ptr_t slot=0;
+    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 4, "MKDOC_CMATCHERS");/*_.RAWCMATCHLIST__V8*/ curfptr[6] = slot; };
+   ;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4251:/ cond.else");
+  
+   /*_.RAWCMATCHLIST__V8*/ curfptr[6] = NULL;;
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4252:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4252:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
+   /*_.RAWCMATCHTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWCMATCHLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.SORTEDCMATCHTUP__V10*/ curfptr[9] = 
+   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWCMATCHTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4255:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
+  ;
+  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
+   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCMATCHTUP__V10*/ curfptr[9])));;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4256:/ locexp");
+  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4257:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " c-matchers."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4258:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+  ;
+  /*citerblock FOREACH_IN_MULTIPLE*/ {
+   /* start cit1__EACHTUP: */
+   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCMATCHTUP__V10*/ curfptr[9]);
+   for (/*_#CITIX__L4*/ curfnum[3] = 0;  
+	(/*_#CITIX__L4*/ curfnum[3] >= 0) && (/*_#CITIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
+	/*_#CITIX__L4*/ curfnum[3]++) {
+   /*_.CURCMATCHDEF__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCMATCHTUP__V10*/ curfptr[9]),  /*_#CITIX__L4*/ curfnum[3]);
+   
+  
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4262:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4262:/ block");
+    /*block*/{
+     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
+      callcount;;
+     MELT_LOCATION("warmelt-outobj.melt:4262:/ apply");
+     /*apply*/{
+      union meltparam_un argtab[4];
+      memset(&argtab, 0, sizeof(argtab));
+      MELT_LOCATION("warmelt-outobj.melt:4262:/ apply.arg");
+      argtab[0].bp_cstring =  "makedoc_gencmatcher curcmatch";
+      MELT_LOCATION("warmelt-outobj.melt:4262:/ apply.arg");
+      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
+      MELT_LOCATION("warmelt-outobj.melt:4262:/ apply.arg");
+      argtab[2].bp_cstring =  "warmelt-outobj.melt";
+      MELT_LOCATION("warmelt-outobj.melt:4262:/ apply.arg");
+      argtab[3].bp_long = 4262;
+      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+      }
+     ;
+     /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4262:/ clear");
+     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4262:/ clear");
+     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4262:/ cppif.else");
+   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   
+   #if ENABLE_CHECKING
+    MELT_LOCATION("warmelt-outobj.melt:4263:/ cppif.then");
+   MELT_LOCATION("warmelt-outobj.melt:4263:/ block");
+    /*block*/{
+     /*_#IS_A__L6*/ curfnum[4] = 
+      melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[5])));;
+     MELT_LOCATION("warmelt-outobj.melt:4263:/ cond");
+     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4263:/ cond.then");
+     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4263:/ cond.else");
+     
+      MELT_LOCATION("warmelt-outobj.melt:4263:/ block");
+      /*block*/{
+       /*block*/{
+        
+        {
+        MELT_LOCATION("warmelt-outobj.melt:4263:/ locexp");
+        melt_assert_failed(( "check curcmatchdef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4263)?(4263):__LINE__, __FUNCTION__);
+;}
+        ;
+        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+       ;
+       /*epilog*/}
+      ;
+      }
+     ;
+     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4263:/ clear");
+     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4263:/ clear");
+     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
+    
+    #else /*ENABLE_CHECKING*/
+    MELT_LOCATION("warmelt-outobj.melt:4263:/ cppif.else");
+   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
+    #endif /*ENABLE_CHECKING*/
+    ;
+   MELT_LOCATION("warmelt-outobj.melt:4264:/ block");
+   /*block*/{
+    MELT_LOCATION("warmelt-outobj.melt:4265:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4265:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4265:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), 2, "SDEF_NAME");/*_.SNAM__V16*/ curfptr[14] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4265:/ cond.else");
+    
+     /*_.SNAM__V16*/ curfptr[14] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4266:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[6])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4266:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4266:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), 3, "SDEF_DOC");/*_.SDOC__V17*/ curfptr[16] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4266:/ cond.else");
+    
+     /*_.SDOC__V17*/ curfptr[16] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4267:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[5])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4267:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4267:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), 5, "SCMATDEF_CMATCHER");/*_.CMATCH__V18*/ curfptr[17] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4267:/ cond.else");
+    
+     /*_.CMATCH__V18*/ curfptr[17] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4268:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4268:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4268:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), 2, "AMATCH_IN");/*_.CMIN__V19*/ curfptr[18] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4268:/ cond.else");
+    
+     /*_.CMIN__V19*/ curfptr[18] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4269:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4269:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4269:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), 3, "AMATCH_MATCHBIND");/*_.CMABIND__V20*/ curfptr[19] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4269:/ cond.else");
+    
+     /*_.CMABIND__V20*/ curfptr[19] = NULL;;
+     }
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4270:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ curfrout->tabval[7])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4270:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4270:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), 4, "AMATCH_OUT");/*_.CMOUT__V21*/ curfptr[20] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4270:/ cond.else");
+    
+     /*_.CMOUT__V21*/ curfptr[20] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4272:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4273:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4274:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4274:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4274:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[21] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4274:/ cond.else");
+    
+     /*_.NAMED_NAME__V22*/ curfptr[21] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4274:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V22*/ curfptr[21])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4275:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4276:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4277:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4278:/ cond");
+    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4278:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:4278:/ getslot");
+     { melt_ptr_t slot=0;
+      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
+     ;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4278:/ cond.else");
+    
+     /*_.NAMED_NAME__V23*/ curfptr[22] = NULL;;
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4278:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22])));}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4279:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4280:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4280:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCMATCHDEF__V11*/ curfptr[10];
+     MELT_LOCATION("warmelt-outobj.melt:4280:/ apply.arg");
+     argtab[1].bp_cstring =  "C-matcher defined at ";
+     /*_.MAKEDOC_OUTDEFLOC__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4281:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4282:/ locexp");
+    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{c-matcher matching formal:} @var{"));}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4283:/ block");
+    /*block*/{
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[10])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), 0, "BINDER");/*_.MANAMB__V25*/ curfptr[24] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4283:/ cond.else");
+     
+      /*_.MANAMB__V25*/ curfptr[24] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:4284:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4284:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:4284:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[25] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4284:/ cond.else");
+     
+      /*_.NAMED_NAME__V26*/ curfptr[25] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4284:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ curfptr[25])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4285:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "} - @slanted{"));}
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:4289:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[11])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4289:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:4289:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V27*/ curfptr[26] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4289:/ cond.else");
+     
+      /*_.FBIND_TYPE__V27*/ curfptr[26] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:4288:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[12])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4288:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:4288:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.FBIND_TYPE__V27*/ curfptr[26]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V28*/ curfptr[27] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4288:/ cond.else");
+     
+      /*_.CTYPE_KEYWORD__V28*/ curfptr[27] = NULL;;
+      }
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:4287:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4287:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:4287:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V28*/ curfptr[27]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4287:/ cond.else");
+     
+      /*_.NAMED_NAME__V29*/ curfptr[28] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4286:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4290:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4291:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4292:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
+     ;
+     MELT_LOCATION("warmelt-outobj.melt:4293:/ cond");
+     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
+     MELT_LOCATION("warmelt-outobj.melt:4293:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:4293:/ getslot");
+      { melt_ptr_t slot=0;
+       melt_object_get_field(slot,(melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V30*/ curfptr[29] = slot; };
+      ;
+     } else {MELT_LOCATION("warmelt-outobj.melt:4293:/ cond.else");
+     
+      /*_.NAMED_NAME__V30*/ curfptr[29] = NULL;;
+      }
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4293:/ locexp");
+     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V30*/ curfptr[29])));}
+     ;
+     
+     {
+     MELT_LOCATION("warmelt-outobj.melt:4294:/ locexp");
+     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+     ;
+     /*epilog*/
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ clear");
+     /*clear*/ /*_.MANAMB__V25*/ curfptr[24] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[25] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ clear");
+     /*clear*/ /*_.FBIND_TYPE__V27*/ curfptr[26] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ clear");
+     /*clear*/ /*_.CTYPE_KEYWORD__V28*/ curfptr[27] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;
+     MELT_LOCATION("warmelt-outobj.melt:4283:/ clear");
+     /*clear*/ /*_.NAMED_NAME__V30*/ curfptr[29] = 0 ;}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4296:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4296:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMIN__V19*/ curfptr[18];
+     MELT_LOCATION("warmelt-outobj.melt:4296:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{c-matcher input formals:}";
+     /*_.MAKEDOC_OUTFORMALS__V31*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4297:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4298:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4298:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMOUT__V21*/ curfptr[20];
+     MELT_LOCATION("warmelt-outobj.melt:4298:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{c-matcher output formals:}";
+     /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4299:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    MELT_LOCATION("warmelt-outobj.melt:4300:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[2];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4300:/ apply.arg");
+     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SDOC__V17*/ curfptr[16];
+     MELT_LOCATION("warmelt-outobj.melt:4300:/ apply.arg");
+     argtab[1].bp_cstring =  "@strong{C-matcher description:} ";
+     /*_.MAKEDOC_OUTDOC__V33*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    
+    {
+    MELT_LOCATION("warmelt-outobj.melt:4301:/ locexp");
+    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
+    ;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.SNAM__V16*/ curfptr[14] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.SDOC__V17*/ curfptr[16] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.CMATCH__V18*/ curfptr[17] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.CMIN__V19*/ curfptr[18] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.CMABIND__V20*/ curfptr[19] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.CMOUT__V21*/ curfptr[20] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[21] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V24*/ curfptr[23] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V31*/ curfptr[24] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[25] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4264:/ clear");
+    /*clear*/ /*_.MAKEDOC_OUTDOC__V33*/ curfptr[26] = 0 ;}
+   ;
+   if (/*_#CITIX__L4*/ curfnum[3]<0) break;
+   } /* end cit1__EACHTUP */ 
+  
+   /*citerepilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4259:/ clear");
+   /*clear*/ /*_.CURCMATCHDEF__V11*/ curfptr[10] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4259:/ clear");
+   /*clear*/ /*_#CITIX__L4*/ curfnum[3] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4259:/ clear");
+   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4259:/ clear");
+   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ clear");
+  /*clear*/ /*_.RAWCMATCHLIST__V8*/ curfptr[6] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ clear");
+  /*clear*/ /*_.RAWCMATCHTUP__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ clear");
+  /*clear*/ /*_.SORTEDCMATCHTUP__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4251:/ clear");
+  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENCMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 17
+  void* varptr[17];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<17; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 17;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_GENOUTPUT", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ getarg");
+ /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.OUTARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4311:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4312:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4312:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:4312:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4312:/ apply.arg");
+    argtab[0].bp_cstring =  "makedoc_genoutput mdinfo";
+    MELT_LOCATION("warmelt-outobj.melt:4312:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:4312:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:4312:/ apply.arg");
+    argtab[3].bp_long = 4312;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4312:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4312:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4312:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4313:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4313:/ block");
+  /*block*/{
+   /*_#IS_A__L2*/ curfnum[0] = 
+    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[1])));;
+   MELT_LOCATION("warmelt-outobj.melt:4313:/ cond");
+   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4313:/ cond.then");
+   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4313:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4313:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4313:/ locexp");
+      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4313)?(4313):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4313:/ clear");
+   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4313:/ clear");
+   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4313:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4314:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4314:/ block");
+  /*block*/{
+   /*_#IS_STRING__L3*/ curfnum[0] = 
+    (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])) == OBMAG_STRING);;
+   MELT_LOCATION("warmelt-outobj.melt:4314:/ cond");
+   /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ {
+   MELT_LOCATION("warmelt-outobj.melt:4314:/ cond.then");
+   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
+   } else {MELT_LOCATION("warmelt-outobj.melt:4314:/ cond.else");
+   
+    MELT_LOCATION("warmelt-outobj.melt:4314:/ block");
+    /*block*/{
+     /*block*/{
+      
+      {
+      MELT_LOCATION("warmelt-outobj.melt:4314:/ locexp");
+      melt_assert_failed(( "check outarg"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4314)?(4314):__LINE__, __FUNCTION__);
+;}
+      ;
+      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+     ;
+     /*epilog*/}
+    ;
+    }
+   ;
+   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4314:/ clear");
+   /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4314:/ clear");
+   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4314:/ cppif.else");
+ /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:4315:/ block");
+ /*block*/{
+  /*_.OUTB__V10*/ curfptr[8] = 
+   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[2])), (char*)0);;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4317:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@c **** makedoc generated file "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4318:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4319:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4322:/ locexp");
+  time_t now = 0;
+	  time (&now);
+	  meltgc_add_out_raw (/*_.OUTB__V10*/ curfptr[8], "@c **** generated ");
+	  meltgc_add_out_raw (/*_.OUTB__V10*/ curfptr[8], ctime (&now));
+	  ;}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4328:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@node MELT Programming Reference"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4329:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4330:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@chapter MELT Programming Reference"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4331:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4332:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@menu"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4333:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4334:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT macros:: The MELT macros."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4335:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4336:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT patterns:: The MELT pattern macros."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4337:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4338:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT classes:: The MELT classes."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4339:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4340:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT primitives:: The MELT primitives."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4341:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4342:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT functions:: The MELT functions."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4343:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4344:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT c-iterators:: The MELT c-iterators."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4345:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4346:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT c-matchers:: The MELT c-matchers."));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4347:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4348:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@end menu"));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4349:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4351:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4351:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENMACRO__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENMACRO*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4353:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4353:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENPATMACRO__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENPATMACRO*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4355:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4355:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENCLASS__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCLASS*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4357:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4357:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENPRIMITIVE__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENPRIMITIVE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4359:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4359:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENFUNCTION__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENFUNCTION*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4361:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4361:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENCITERATOR__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCITERATOR*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4363:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4363:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
+   /*_.MAKEDOC_GENCMATCHER__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCMATCHER*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4364:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4365:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@c **** end of makedoc generated file "));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4366:/ locexp");
+  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])));}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4367:/ locexp");
+  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
+  ;
+  
+  {
+  MELT_LOCATION("warmelt-outobj.melt:4368:/ locexp");
+   melt_output_strbuf_to_file((/*_.OUTB__V10*/ curfptr[8]), melt_string_str(/*_.OUTARG__V3*/ curfptr[2])) ;}
+  ;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.OUTB__V10*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENMACRO__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENPATMACRO__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENCLASS__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENPRIMITIVE__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENFUNCTION__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENCITERATOR__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4315:/ clear");
+  /*clear*/ /*_.MAKEDOC_GENCMATCHER__V17*/ curfptr[16] = 0 ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ clear");
+ /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_GENOUTPUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*noretval*/ NULL);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_153_warmelt_outobj_MAKEDOC_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_153_warmelt_outobj_MAKEDOC_DOCMD_st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 40
+  void* varptr[40];
+#define CURFRAM_NBVARNUM 4
+  long varnum[4];
+/*others*/
+const char* loc_CSTRING__o0;
+const char* loc_CSTRING__o1;
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<40; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 40;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("MAKEDOC_DOCMD", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ getarg");
+ /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ 
+ /*getarg#1*/
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ getarg");
+ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
+ /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
+ gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
+ 
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4374:/ block");
+/*block*/{
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4375:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4375:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:4375:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4375:/ apply.arg");
+    argtab[0].bp_cstring =  "start makedoc_docmd cmd";
+    MELT_LOCATION("warmelt-outobj.melt:4375:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:4375:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:4375:/ apply.arg");
+    argtab[3].bp_long = 4375;
+    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4375:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4375:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4375:/ cppif.else");
+ /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ 
+ #if ENABLE_CHECKING
+  MELT_LOCATION("warmelt-outobj.melt:4376:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:4376:/ block");
+  /*block*/{
+   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
+    callcount;;
+   MELT_LOCATION("warmelt-outobj.melt:4376:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[4];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4376:/ apply.arg");
+    argtab[0].bp_cstring =  "start makedoc_docmd moduldata";
+    MELT_LOCATION("warmelt-outobj.melt:4376:/ apply.arg");
+    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
+    MELT_LOCATION("warmelt-outobj.melt:4376:/ apply.arg");
+    argtab[2].bp_cstring =  "warmelt-outobj.melt";
+    MELT_LOCATION("warmelt-outobj.melt:4376:/ apply.arg");
+    argtab[3].bp_long = 4376;
+    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4376:/ clear");
+   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4376:/ clear");
+   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
+  
+  #else /*ENABLE_CHECKING*/
+  MELT_LOCATION("warmelt-outobj.melt:4376:/ cppif.else");
+ /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
+  #endif /*ENABLE_CHECKING*/
+  ;
+ MELT_LOCATION("warmelt-outobj.melt:4377:/ block");
+ /*block*/{
+  /*_.PARMODENV__V9*/ curfptr[8] = (/*!konst_1*/ curfrout->tabval[1]);;
+  MELT_LOCATION("warmelt-outobj.melt:4379:/ cond");
+  /*cond*/ if (/*_.MODULDATA__V3*/ curfptr[2]) /*then*/ {
+  MELT_LOCATION("warmelt-outobj.melt:4379:/ cond.then");
+  /*_.CURENV__V10*/ curfptr[9] = /*_.MODULDATA__V3*/ curfptr[2];;
+  } else {MELT_LOCATION("warmelt-outobj.melt:4379:/ cond.else");
+  
+   /*_.CURENV__V10*/ curfptr[9] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);;
+   }
+  ;
+  /*_?*/ curfram__.loc_CSTRING__o0 = 
+   melt_argument( "arglist");;
+  /*_.ARGLIST__V11*/ curfptr[10] = 
+   meltgc_new_split_string(/*_?*/ curfram__.loc_CSTRING__o0, ',', (melt_ptr_t) (/*!DISCR_STRING*/ curfrout->tabval[3]));;
+  /*_?*/ curfram__.loc_CSTRING__o1 = 
+   melt_argument( "output");;
+  /*_.OUTARG__V12*/ curfptr[11] = 
+   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o1)));;
+  /*_.RLIST__V13*/ curfptr[12] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V14*/ curfptr[13] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V15*/ curfptr[14] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V16*/ curfptr[15] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V17*/ curfptr[16] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V18*/ curfptr[17] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V19*/ curfptr[18] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V20*/ curfptr[19] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V21*/ curfptr[20] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V22*/ curfptr[21] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_LIST__V23*/ curfptr[22] = 
+   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
+  /*_.MAKE_MAPOBJECT__V24*/ curfptr[23] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (1000)));;
+  /*_.MAKE_MAPOBJECT__V25*/ curfptr[24] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (200)));;
+  /*_.MAKE_MAPOBJECT__V26*/ curfptr[25] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (400)));;
+  /*_.MAKE_MAPOBJECT__V27*/ curfptr[26] = 
+   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (400)));;
+  MELT_LOCATION("warmelt-outobj.melt:4384:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ rawallocobj");
+   /*rawallocobj*/ { melt_ptr_t newobj = 0;
+    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])), (15), "CLASS_MAKEDOC_INFO");/*_.INST__V29*/ curfptr[28] =
+    newobj; };
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_PRIMITIVES", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.MAKE_LIST__V14*/ curfptr[13]), "MKDOC_PRIMITIVES");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_FUNCTIONS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.MAKE_LIST__V15*/ curfptr[14]), "MKDOC_FUNCTIONS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_CITERATORS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.MAKE_LIST__V16*/ curfptr[15]), "MKDOC_CITERATORS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_CMATCHERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (4), (/*_.MAKE_LIST__V17*/ curfptr[16]), "MKDOC_CMATCHERS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_SELECTORS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (5), (/*_.MAKE_LIST__V18*/ curfptr[17]), "MKDOC_SELECTORS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (6), (/*_.MAKE_LIST__V19*/ curfptr[18]), "MKDOC_FIELDS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_CLASSES", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (7), (/*_.MAKE_LIST__V20*/ curfptr[19]), "MKDOC_CLASSES");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_INSTANCES", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (8), (/*_.MAKE_LIST__V21*/ curfptr[20]), "MKDOC_INSTANCES");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_MACROS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (9), (/*_.MAKE_LIST__V22*/ curfptr[21]), "MKDOC_MACROS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_PATMACROS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (10), (/*_.MAKE_LIST__V23*/ curfptr[22]), "MKDOC_PATMACROS");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_FORMALOCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (11), (/*_.MAKE_MAPOBJECT__V24*/ curfptr[23]), "MKDOC_FORMALOCCMAP");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_PREDEFMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (12), (/*_.MAKE_MAPOBJECT__V25*/ curfptr[24]), "MKDOC_PREDEFMAP");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_DOCSYMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (13), (/*_.MAKE_MAPOBJECT__V26*/ curfptr[25]), "MKDOC_DOCSYMAP");
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4384:/ putslot");
+   /*putslot*/
+   melt_assertmsg("putslot checkobj @MKDOC_SUBCLASSMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
+   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (14), (/*_.MAKE_MAPOBJECT__V27*/ curfptr[26]), "MKDOC_SUBCLASSMAP");
+   ;
+   /*_.MDINFO__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
+  ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4401:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4401:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:4401:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4401:/ apply.arg");
+     argtab[0].bp_cstring =  "makedoc_docmd arglist";
+     MELT_LOCATION("warmelt-outobj.melt:4401:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:4401:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:4401:/ apply.arg");
+     argtab[3].bp_long = 4401;
+     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ARGLIST__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4401:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4401:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4401:/ cppif.else");
+  /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4402:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4402:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:4402:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4402:/ apply.arg");
+     argtab[0].bp_cstring =  "makedoc_docmd outarg";
+     MELT_LOCATION("warmelt-outobj.melt:4402:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:4402:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:4402:/ apply.arg");
+     argtab[3].bp_long = 4402;
+     /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OUTARG__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4402:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4402:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4402:/ cppif.else");
+  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:4406:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:4406:/ newclosure");
+    /*newclosure*/ /*_.LAMBDA___V35*/ curfptr[34] =
+    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (1));
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4406:/ putclosedv");
+   /*putclosv*/
+   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE);
+   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34])));
+   ((meltclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[0] = (melt_ptr_t)(/*_.RLIST__V13*/ curfptr[12]);
+   ;
+   /*_.LAMBDA___V34*/ curfptr[32] = /*_.LAMBDA___V35*/ curfptr[34];;}
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4404:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4404:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V34*/ curfptr[32];
+   /*_.LIST_EVERY__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ARGLIST__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  MELT_LOCATION("warmelt-outobj.melt:4415:/ block");
+  /*block*/{
+   MELT_LOCATION("warmelt-outobj.melt:4415:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4415:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V10*/ curfptr[9];
+    /*_.XLIST__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.RLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4418:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[2];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4418:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V11*/ curfptr[10];
+    MELT_LOCATION("warmelt-outobj.melt:4418:/ apply.arg");
+    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.XLIST__V38*/ curfptr[37];
+    /*_.MAKEDOC_SCANINPUT__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_SCANINPUT*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.MDINFO__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   MELT_LOCATION("warmelt-outobj.melt:4420:/ apply");
+   /*apply*/{
+    union meltparam_un argtab[1];
+    memset(&argtab, 0, sizeof(argtab));
+    MELT_LOCATION("warmelt-outobj.melt:4420:/ apply.arg");
+    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTARG__V12*/ curfptr[11];
+    /*_.MAKEDOC_GENOUTPUT__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENOUTPUT*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.MDINFO__V28*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    }
+   ;
+   /*_.LET___V37*/ curfptr[36] = /*_.MAKEDOC_GENOUTPUT__V40*/ curfptr[39];;
+   /*epilog*/
+   MELT_LOCATION("warmelt-outobj.melt:4415:/ clear");
+   /*clear*/ /*_.XLIST__V38*/ curfptr[37] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4415:/ clear");
+   /*clear*/ /*_.MAKEDOC_SCANINPUT__V39*/ curfptr[38] = 0 ;
+   MELT_LOCATION("warmelt-outobj.melt:4415:/ clear");
+   /*clear*/ /*_.MAKEDOC_GENOUTPUT__V40*/ curfptr[39] = 0 ;}
+  ;
+  /*_.LET___V8*/ curfptr[6] = /*_.LET___V37*/ curfptr[36];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.PARMODENV__V9*/ curfptr[8] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.CURENV__V10*/ curfptr[9] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.ARGLIST__V11*/ curfptr[10] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.OUTARG__V12*/ curfptr[11] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.RLIST__V13*/ curfptr[12] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V14*/ curfptr[13] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V15*/ curfptr[14] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V16*/ curfptr[15] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V17*/ curfptr[16] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V18*/ curfptr[17] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V19*/ curfptr[18] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V20*/ curfptr[19] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V21*/ curfptr[20] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V22*/ curfptr[21] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_LIST__V23*/ curfptr[22] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_MAPOBJECT__V24*/ curfptr[23] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_MAPOBJECT__V25*/ curfptr[24] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_MAPOBJECT__V26*/ curfptr[25] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MAKE_MAPOBJECT__V27*/ curfptr[26] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.MDINFO__V28*/ curfptr[27] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.LAMBDA___V34*/ curfptr[32] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.LIST_EVERY__V36*/ curfptr[35] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
+  /*clear*/ /*_.LET___V37*/ curfptr[36] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
+  MELT_LOCATION("warmelt-outobj.melt:4374:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ clear");
+ /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ clear");
+ /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ clear");
+ /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("MAKEDOC_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_153_warmelt_outobj_MAKEDOC_DOCMD*/
+
+
+
+
+
+melt_ptr_t MELT_MODULE_VISIBILITY 
+meltrout_154_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
+      const char xresdescr_[], union meltparam_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_meltrout_154_warmelt_outobj_LAMBDA__st { unsigned nbvar;
+#if ENABLE_CHECKING
+  const char* flocs;
+#endif
+  struct meltclosure_st *clos;
+  struct excepth_melt_st *exh;
+  struct callframe_melt_st *prev;
+#define CURFRAM_NBVARPTR 11
+  void* varptr[11];
+#define CURFRAM_NBVARNUM 3
+  long varnum[3];
+/*others*/
+  long _spare_; }
+    *framptr_=0,    curfram__;
+  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
+   int ix=0;
+   framptr_ = (void*)firstargp_;
+   gt_ggc_mx_melt_un (framptr_->clos);
+   for(ix=0; ix<11; ix++)
+    if (framptr_->varptr[ix])
+     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
+   return NULL;
+  }/*end markggc*/;
+  memset(&curfram__, 0, sizeof(curfram__));
+ curfram__.nbvar = 11;
+  curfram__.clos = closp_;
+ curfram__.prev = (struct callframe_melt_st *) melt_topframe;
+ melt_topframe = (struct callframe_melt_st *) &curfram__;
+melt_trace_start("LAMBDA_", callcount);
+/*getargs*/
+
+ /*getarg#0*/
+ MELT_LOCATION("warmelt-outobj.melt:4406:/ getarg");
+ /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
+ ;
+ goto lab_endgetargs;
+lab_endgetargs:;
+/*body*/
+MELT_LOCATION("warmelt-outobj.melt:4406:/ block");
+/*block*/{
+ 
+ {
+ MELT_LOCATION("warmelt-outobj.melt:4407:/ locexp");
+ inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "reading from file"), 
+			     melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])));}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4408:/ block");
+ /*block*/{
+  /*_.CUREAD__V4*/ curfptr[3] = 
+   (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])), (char*)0));;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4410:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4410:/ block");
+   /*block*/{
+    /*_#IS_LIST__L1*/ curfnum[0] = 
+     (melt_magic_discr((melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);;
+    MELT_LOCATION("warmelt-outobj.melt:4410:/ cond");
+    /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4410:/ cond.then");
+    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4410:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:4410:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:4410:/ locexp");
+       melt_assert_failed(( "check rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4410)?(4410):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4410:/ clear");
+    /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4410:/ clear");
+    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4410:/ cppif.else");
+  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4411:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4411:/ block");
+   /*block*/{
+    /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 
+     ((/*_.CUREAD__V4*/ curfptr[3]) == NULL 
+     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3])) == OBMAG_LIST));;
+    MELT_LOCATION("warmelt-outobj.melt:4411:/ cond");
+    /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ {
+    MELT_LOCATION("warmelt-outobj.melt:4411:/ cond.then");
+    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
+    } else {MELT_LOCATION("warmelt-outobj.melt:4411:/ cond.else");
+    
+     MELT_LOCATION("warmelt-outobj.melt:4411:/ block");
+     /*block*/{
+      /*block*/{
+       
+       {
+       MELT_LOCATION("warmelt-outobj.melt:4411:/ locexp");
+       melt_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
+  (4411)?(4411):__LINE__, __FUNCTION__);
+;}
+       ;
+       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+      ;
+      /*epilog*/}
+     ;
+     }
+    ;
+    /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4411:/ clear");
+    /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4411:/ clear");
+    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4411:/ cppif.else");
+  /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  
+  #if ENABLE_CHECKING
+   MELT_LOCATION("warmelt-outobj.melt:4412:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:4412:/ block");
+   /*block*/{
+    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
+     callcount;;
+    MELT_LOCATION("warmelt-outobj.melt:4412:/ apply");
+    /*apply*/{
+     union meltparam_un argtab[4];
+     memset(&argtab, 0, sizeof(argtab));
+     MELT_LOCATION("warmelt-outobj.melt:4412:/ apply.arg");
+     argtab[0].bp_cstring =  "makedoc_docmd curead";
+     MELT_LOCATION("warmelt-outobj.melt:4412:/ apply.arg");
+     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
+     MELT_LOCATION("warmelt-outobj.melt:4412:/ apply.arg");
+     argtab[2].bp_cstring =  "warmelt-outobj.melt";
+     MELT_LOCATION("warmelt-outobj.melt:4412:/ apply.arg");
+     argtab[3].bp_long = 4412;
+     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     }
+    ;
+    /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
+    /*epilog*/
+    MELT_LOCATION("warmelt-outobj.melt:4412:/ clear");
+    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
+    MELT_LOCATION("warmelt-outobj.melt:4412:/ clear");
+    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
+   
+   #else /*ENABLE_CHECKING*/
+   MELT_LOCATION("warmelt-outobj.melt:4412:/ cppif.else");
+  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
+   #endif /*ENABLE_CHECKING*/
+   ;
+  MELT_LOCATION("warmelt-outobj.melt:4413:/ apply");
+  /*apply*/{
+   union meltparam_un argtab[1];
+   memset(&argtab, 0, sizeof(argtab));
+   MELT_LOCATION("warmelt-outobj.melt:4413:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREAD__V4*/ curfptr[3];
+   /*_.LIST_APPEND2LIST__V11*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[1])), (melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   }
+  ;
+  /*_.LET___V3*/ curfptr[2] = /*_.LIST_APPEND2LIST__V11*/ curfptr[9];;
+  /*epilog*/
+  MELT_LOCATION("warmelt-outobj.melt:4408:/ clear");
+  /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4408:/ clear");
+  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4408:/ clear");
+  /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4408:/ clear");
+  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
+  MELT_LOCATION("warmelt-outobj.melt:4408:/ clear");
+  /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;}
+ ;
+ MELT_LOCATION("warmelt-outobj.melt:4406:/ block");
+ /*block*/{
+  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
+  MELT_LOCATION("warmelt-outobj.melt:4406:/ finalreturn");
+  ;
+  /*finalret*/ goto labend_rout ;}
+ ;
+ /*epilog*/
+ MELT_LOCATION("warmelt-outobj.melt:4406:/ clear");
+ /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
+
+;
+ goto labend_rout;
+labend_rout:
+melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
+ return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
+#undef callcount
+#undef CURFRAM_NBVARNUM
+#undef CURFRAM_NBVARPTR
+} /*end meltrout_154_warmelt_outobj_LAMBDA_*/
+
+
+
+/**** end of warmelt-outobj.0+3.c ****/
diff --git a/gcc/melt/warmelt-outobj.0.c b/gcc/melt/warmelt-outobj.0.c
index 235a8495fd8..d6ac370713d 100644
--- a/gcc/melt/warmelt-outobj.0.c
+++ b/gcc/melt/warmelt-outobj.0.c
@@ -1,14 +1,14 @@
-/* GCC MELT GENERATED FILE warmelt-outobj.3.c - DO NOT EDIT */
+/* GCC MELT GENERATED FILE warmelt-outobj.0.c - DO NOT EDIT */
 
 #ifndef MELTGCC_DYNAMIC_OBJSTRUCT
 /* version string of the gcc executable generating this file: */
 const char genversionstr_melt[]=
- "4.5.0 20091124 (experimental) [melt-branch revision 154669]";
+ "4.5.0 20091130 (experimental) [melt-branch revision 154718]";
 #endif
 
 #include "run-melt.h"
 
-/**** warmelt-outobj.3.c declarations ****/
+/**** warmelt-outobj.0.c declarations ****/
 #define MELT_HAS_INITIAL_ENVIRONMENT 1
 
 /**!!** ***
@@ -808,7 +808,7 @@ void mark_module_melt(void*);
 void* initial_frame_melt;
 
 
-/**** warmelt-outobj.3.c implementations ****/
+/**** warmelt-outobj.0.c implementations ****/
 
 
 
@@ -2433,8 +2433,6 @@ MELT_LOCATION("warmelt-outobj.melt:111:/ block");
    
    {
    MELT_LOCATION("warmelt-outobj.melt:128:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ curfptr[9])));}
    ;
    
@@ -3009,22 +3007,22 @@ MELT_LOCATION("warmelt-outobj.melt:111:/ block");
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:218:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:207:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "melt_object_set_serial((meltobject_ptr_t) (&cdat->"));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:219:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:208:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.ONAME__V10*/ curfptr[9])));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:220:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:209:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "));"));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:221:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:210:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
    ;
    /*epilog*/
@@ -3125,11 +3123,11 @@ melt_trace_start("OUTCINITPREDEF_OBJINITOBJECT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:231:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:231:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -3138,29 +3136,29 @@ melt_trace_start("OUTCINITPREDEF_OBJINITOBJECT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:231:/ block");
+MELT_LOCATION("warmelt-outobj.melt:220:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:232:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:232:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:221:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:221:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:232:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:221:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:232:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:221:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:232:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:221:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:232:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:221:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:232:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:221:/ locexp");
       melt_assert_failed(( "outcinitpredef_objinitobject check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (232)?(232):__LINE__, __FUNCTION__);
+  (221)?(221):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -3171,37 +3169,37 @@ MELT_LOCATION("warmelt-outobj.melt:231:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:232:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:221:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:232:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:221:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:232:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:221:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:233:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:233:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:222:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:222:/ block");
   /*block*/{
    /*_#IS_STRBUF__L2*/ curfnum[0] = 
     (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:233:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:222:/ cond");
    /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:233:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:222:/ cond.then");
    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:233:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:222:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:233:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:222:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:233:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:222:/ locexp");
       melt_assert_failed(( "outcinitpredef_objinitobject check sbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (233)?(233):__LINE__, __FUNCTION__);
+  (222)?(222):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
@@ -3212,93 +3210,93 @@ MELT_LOCATION("warmelt-outobj.melt:231:/ block");
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:233:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:222:/ clear");
    /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:233:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:222:/ clear");
    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:233:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:222:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:234:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:234:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:223:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:223:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:234:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:223:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:234:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:223:/ apply.arg");
     argtab[0].bp_cstring =  "outcinitpredef_objinitobject recv";
-    MELT_LOCATION("warmelt-outobj.melt:234:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:223:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:234:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:223:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:234:/ apply.arg");
-    argtab[3].bp_long = 234;
+    MELT_LOCATION("warmelt-outobj.melt:223:/ apply.arg");
+    argtab[3].bp_long = 223;
     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:234:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:223:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:234:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:223:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:234:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:223:/ cppif.else");
  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:235:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:224:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:235:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODATA__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:236:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:225:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.ODISCR__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:237:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:226:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.ONAME__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:238:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:227:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V14*/ curfptr[13] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:239:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:228:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "OIO_PREDEF");/*_.OIOPREDEF__V15*/ curfptr[14] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:241:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:241:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:230:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:230:/ block");
    /*block*/{
     /*_#IS_A__L4*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.ODATA__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:241:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:230:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:241:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:230:/ cond.then");
     /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:241:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:230:/ cond.else");
     
-     MELT_LOCATION("warmelt-outobj.melt:241:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:230:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:241:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:230:/ locexp");
        melt_assert_failed(( "check odata"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (241)?(241):__LINE__, __FUNCTION__);
+  (230)?(230):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
@@ -3309,487 +3307,485 @@ MELT_LOCATION("warmelt-outobj.melt:231:/ block");
     ;
     /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:241:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:230:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:241:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:230:/ clear");
     /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:241:/ cppif.else");
+   MELT_LOCATION("warmelt-outobj.melt:230:/ cppif.else");
   /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:242:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:242:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:231:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:231:/ block");
    /*block*/{
     /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
      callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:242:/ apply");
+    MELT_LOCATION("warmelt-outobj.melt:231:/ apply");
     /*apply*/{
      union meltparam_un argtab[4];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:242:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:231:/ apply.arg");
      argtab[0].bp_cstring =  "outcinitpredef_objinitobject oiopredef";
-     MELT_LOCATION("warmelt-outobj.melt:242:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:231:/ apply.arg");
      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:242:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:231:/ apply.arg");
      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:242:/ apply.arg");
-     argtab[3].bp_long = 242;
+     MELT_LOCATION("warmelt-outobj.melt:231:/ apply.arg");
+     argtab[3].bp_long = 231;
      /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:242:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:231:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:242:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:231:/ clear");
     /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:242:/ cppif.else");
+   MELT_LOCATION("warmelt-outobj.melt:231:/ cppif.else");
   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_#NULL__L6*/ curfnum[0] = 
    ((/*_.OIOPREDEF__V15*/ curfptr[14]) == NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:243:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:232:/ cond");
   /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:243:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:243:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:232:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:232:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:243:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:232:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-outobj.melt:243:/ finalreturn");
+     MELT_LOCATION("warmelt-outobj.melt:232:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
     /*_.IF___V20*/ curfptr[18] = /*_.RETURN___V21*/ curfptr[20];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:232:/ clear");
     /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:243:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:232:/ cond.else");
   
    /*_.IF___V20*/ curfptr[18] = NULL;;
    }
   ;
   /*_#IS_A__L7*/ curfnum[6] = 
    melt_is_instance_of((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-outobj.melt:244:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:233:/ cond");
   /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:244:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:244:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:233:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:233:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:244:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:233:/ block");
     /*block*/{
      /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-     MELT_LOCATION("warmelt-outobj.melt:244:/ finalreturn");
+     MELT_LOCATION("warmelt-outobj.melt:233:/ finalreturn");
      ;
      /*finalret*/ goto labend_rout ;}
     ;
     /*_.IF___V22*/ curfptr[20] = /*_.RETURN___V23*/ curfptr[22];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:244:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:233:/ clear");
     /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:244:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:233:/ cond.else");
   
    /*_.IF___V22*/ curfptr[20] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:245:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:234:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:245:/ getslot");
+   MELT_LOCATION("warmelt-outobj.melt:234:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATA__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.ODLOC__V25*/ curfptr[24] = slot; };
    ;
-   MELT_LOCATION("warmelt-outobj.melt:247:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:236:/ apply");
    /*apply*/{
     union meltparam_un argtab[3];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:247:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:236:/ apply.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:247:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:236:/ apply.arg");
     argtab[1].bp_long = 1;
-    MELT_LOCATION("warmelt-outobj.melt:247:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:236:/ apply.arg");
     argtab[2].bp_cstring =  "inipredef";
     /*_.OUTPUT_LOCATION__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ODLOC__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:248:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:237:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inipredef "));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:249:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+   MELT_LOCATION("warmelt-outobj.melt:238:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.ONAME__V13*/ curfptr[12])));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:250:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:239:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/"));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:251:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:240:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
    ;
    /*_#IS_A__L8*/ curfnum[7] = 
     melt_is_instance_of((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[5])));;
-   MELT_LOCATION("warmelt-outobj.melt:254:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:243:/ cond");
    /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:254:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:254:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:243:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:243:/ block");
     /*block*/{
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:255:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:244:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!MELT_PREDEF("));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:256:/ getslot");
+     MELT_LOCATION("warmelt-outobj.melt:245:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[27] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:256:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:245:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[27])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:257:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:246:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ")) MELT_STORE_PREDEF("));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:258:/ getslot");
+     MELT_LOCATION("warmelt-outobj.melt:247:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:258:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:247:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:259:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:248:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ", (melt_ptr_t)&cdat->"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:260:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:249:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.ONAME__V13*/ curfptr[12])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:261:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:250:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:262:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:251:/ locexp");
      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:263:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:252:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "else {"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:264:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:253:/ locexp");
      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0);}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:265:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:254:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "MELTPREDEFIX(predefinited,"));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:266:/ getslot");
+     MELT_LOCATION("warmelt-outobj.melt:255:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V30*/ curfptr[29] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:266:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:255:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V30*/ curfptr[29])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:267:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:256:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") = 1;"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:268:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:257:/ locexp");
      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0);}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:269:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:258:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "fnotice(stderr, \"MELT: predefined %s already defined <%s:%d>\\n\", \""));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:270:/ getslot");
+     MELT_LOCATION("warmelt-outobj.melt:259:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; };
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:270:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:259:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:271:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:260:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", __FILE__, __LINE__);"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:272:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:261:/ locexp");
      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0);}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:273:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:262:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "};"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:274:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:263:/ locexp");
      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:254:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ block");
      /*block*/{}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:254:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
      /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:254:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
      /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:254:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
      /*clear*/ /*_.NAMED_NAME__V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:254:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
      /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:254:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:243:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:254:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:243:/ block");
     /*block*/{
      /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 
       (melt_magic_discr((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])) == OBMAG_INT);;
-     MELT_LOCATION("warmelt-outobj.melt:276:/ cond");
+     MELT_LOCATION("warmelt-outobj.melt:265:/ cond");
      /*cond*/ if (/*_#IS_INTEGERBOX__L9*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:276:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:276:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:265:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:265:/ block");
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:277:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:266:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!melt_fetch_predefined("));}
        ;
        /*_#GET_INT__L10*/ curfnum[9] = 
         (melt_get_int((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:278:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:267:/ locexp");
        meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L10*/ curfnum[9]));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:279:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:268:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ")) melt_store_predefined("));}
        ;
        /*_#GET_INT__L11*/ curfnum[10] = 
         (melt_get_int((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:280:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:269:/ locexp");
        meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L11*/ curfnum[10]));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:281:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:270:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ", (melt_ptr_t)&cdat->"));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:282:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:271:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.ONAME__V13*/ curfptr[12])));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:283:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:272:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:284:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:273:/ locexp");
        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:285:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:274:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "else {"));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:286:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:275:/ locexp");
        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0);}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:287:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:276:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "predefinited["));}
        ;
        /*_#GET_INT__L12*/ curfnum[11] = 
         (melt_get_int((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:288:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:277:/ locexp");
        meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L12*/ curfnum[11]));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:289:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:278:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "] = 1;"));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:290:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:279:/ locexp");
        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0);}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:291:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:280:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "fnotice(\"MELT: predefined #%d already defined <%s:%d>\\n\", "));}
        ;
        /*_#GET_INT__L13*/ curfnum[12] = 
         (melt_get_int((melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:292:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:281:/ locexp");
        meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L13*/ curfnum[12]));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:293:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:282:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ", __FILE__, __LINE__);"));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:294:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:283:/ locexp");
        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (2), 0);}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:295:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:284:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "};"));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:296:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:285:/ locexp");
        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
        ;
-       MELT_LOCATION("warmelt-outobj.melt:276:/ block");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ block");
        /*block*/{}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:276:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ clear");
        /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:276:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ clear");
        /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:276:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ clear");
        /*clear*/ /*_#GET_INT__L12*/ curfnum[11] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:276:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ clear");
        /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ;}
       ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:276:/ cond.else");
+     } else {MELT_LOCATION("warmelt-outobj.melt:265:/ cond.else");
      
-      MELT_LOCATION("warmelt-outobj.melt:276:/ block");
+      MELT_LOCATION("warmelt-outobj.melt:265:/ block");
       /*block*/{
        /*_#NULL__L14*/ curfnum[9] = 
         ((/*_.OIOPREDEF__V15*/ curfptr[14]) == NULL);;
-       MELT_LOCATION("warmelt-outobj.melt:298:/ cond");
+       MELT_LOCATION("warmelt-outobj.melt:287:/ cond");
        /*cond*/ if (/*_#NULL__L14*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-outobj.melt:298:/ cond.then");
-       MELT_LOCATION("warmelt-outobj.melt:298:/ block");
+       MELT_LOCATION("warmelt-outobj.melt:287:/ cond.then");
+       MELT_LOCATION("warmelt-outobj.melt:287:/ block");
         /*block*/{
-         MELT_LOCATION("warmelt-outobj.melt:299:/ block");
+         MELT_LOCATION("warmelt-outobj.melt:288:/ block");
          /*block*/{
           /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);;
-          MELT_LOCATION("warmelt-outobj.melt:299:/ finalreturn");
+          MELT_LOCATION("warmelt-outobj.melt:288:/ finalreturn");
           ;
           /*finalret*/ goto labend_rout ;}
          ;
          /*_.IFELSE___V33*/ curfptr[28] = /*_.RETURN___V34*/ curfptr[29];;
          /*epilog*/
-         MELT_LOCATION("warmelt-outobj.melt:298:/ clear");
+         MELT_LOCATION("warmelt-outobj.melt:287:/ clear");
          /*clear*/ /*_.RETURN___V34*/ curfptr[29] = 0 ;}
         ;
-       } else {MELT_LOCATION("warmelt-outobj.melt:298:/ cond.else");
+       } else {MELT_LOCATION("warmelt-outobj.melt:287:/ cond.else");
        
-        MELT_LOCATION("warmelt-outobj.melt:298:/ block");
+        MELT_LOCATION("warmelt-outobj.melt:287:/ block");
         /*block*/{
          
          #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-outobj.melt:301:/ cppif.then");
-         MELT_LOCATION("warmelt-outobj.melt:301:/ block");
+          MELT_LOCATION("warmelt-outobj.melt:290:/ cppif.then");
+         MELT_LOCATION("warmelt-outobj.melt:290:/ block");
           /*block*/{
            /*_#THE_CALLCOUNT__L15*/ curfnum[10] = 
             callcount;;
-           MELT_LOCATION("warmelt-outobj.melt:301:/ apply");
+           MELT_LOCATION("warmelt-outobj.melt:290:/ apply");
            /*apply*/{
             union meltparam_un argtab[4];
             memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-outobj.melt:301:/ apply.arg");
+            MELT_LOCATION("warmelt-outobj.melt:290:/ apply.arg");
             argtab[0].bp_cstring =  "outcinitpredef_objinitobject unexpected oiopredef";
-            MELT_LOCATION("warmelt-outobj.melt:301:/ apply.arg");
+            MELT_LOCATION("warmelt-outobj.melt:290:/ apply.arg");
             argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[10];
-            MELT_LOCATION("warmelt-outobj.melt:301:/ apply.arg");
+            MELT_LOCATION("warmelt-outobj.melt:290:/ apply.arg");
             argtab[2].bp_cstring =  "warmelt-outobj.melt";
-            MELT_LOCATION("warmelt-outobj.melt:301:/ apply.arg");
-            argtab[3].bp_long = 301;
+            MELT_LOCATION("warmelt-outobj.melt:290:/ apply.arg");
+            argtab[3].bp_long = 290;
             /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
             }
            ;
            /*_.IFCPP___V35*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[29];;
            /*epilog*/
-           MELT_LOCATION("warmelt-outobj.melt:301:/ clear");
+           MELT_LOCATION("warmelt-outobj.melt:290:/ clear");
            /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = 0 ;
-           MELT_LOCATION("warmelt-outobj.melt:301:/ clear");
+           MELT_LOCATION("warmelt-outobj.melt:290:/ clear");
            /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[29] = 0 ;}
           
           #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-outobj.melt:301:/ cppif.else");
+          MELT_LOCATION("warmelt-outobj.melt:290:/ cppif.else");
          /*_.IFCPP___V35*/ curfptr[30] = (/*nil*/NULL);
           #endif /*ENABLE_CHECKING*/
           ;
          
          #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-outobj.melt:302:/ cppif.then");
-         MELT_LOCATION("warmelt-outobj.melt:302:/ block");
+          MELT_LOCATION("warmelt-outobj.melt:291:/ cppif.then");
+         MELT_LOCATION("warmelt-outobj.melt:291:/ block");
           /*block*/{
-           MELT_LOCATION("warmelt-outobj.melt:302:/ cond");
+           MELT_LOCATION("warmelt-outobj.melt:291:/ cond");
            /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-           MELT_LOCATION("warmelt-outobj.melt:302:/ cond.then");
+           MELT_LOCATION("warmelt-outobj.melt:291:/ cond.then");
            /*_.IFELSE___V38*/ curfptr[37] = (/*nil*/NULL);;
-           } else {MELT_LOCATION("warmelt-outobj.melt:302:/ cond.else");
+           } else {MELT_LOCATION("warmelt-outobj.melt:291:/ cond.else");
            
-            MELT_LOCATION("warmelt-outobj.melt:302:/ block");
+            MELT_LOCATION("warmelt-outobj.melt:291:/ block");
             /*block*/{
              /*block*/{
               
               {
-              MELT_LOCATION("warmelt-outobj.melt:302:/ locexp");
+              MELT_LOCATION("warmelt-outobj.melt:291:/ locexp");
               melt_assert_failed(( "outcinitpredef_objinitobject unexpected oiopredef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (302)?(302):__LINE__, __FUNCTION__);
+  (291)?(291):__LINE__, __FUNCTION__);
 ;}
               ;
               /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
@@ -3800,100 +3796,100 @@ MELT_LOCATION("warmelt-outobj.melt:231:/ block");
            ;
            /*_.IFCPP___V37*/ curfptr[29] = /*_.IFELSE___V38*/ curfptr[37];;
            /*epilog*/
-           MELT_LOCATION("warmelt-outobj.melt:302:/ clear");
+           MELT_LOCATION("warmelt-outobj.melt:291:/ clear");
            /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;}
           
           #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-outobj.melt:302:/ cppif.else");
+          MELT_LOCATION("warmelt-outobj.melt:291:/ cppif.else");
          /*_.IFCPP___V37*/ curfptr[29] = (/*nil*/NULL);
           #endif /*ENABLE_CHECKING*/
           ;
-         MELT_LOCATION("warmelt-outobj.melt:300:/ block");
+         MELT_LOCATION("warmelt-outobj.melt:289:/ block");
          /*block*/{
           /*_.PROGN___V39*/ curfptr[37] = /*_.IFCPP___V37*/ curfptr[29];;}
          ;
          /*_.IFELSE___V33*/ curfptr[28] = /*_.PROGN___V39*/ curfptr[37];;
          /*epilog*/
-         MELT_LOCATION("warmelt-outobj.melt:298:/ clear");
+         MELT_LOCATION("warmelt-outobj.melt:287:/ clear");
          /*clear*/ /*_.IFCPP___V35*/ curfptr[30] = 0 ;
-         MELT_LOCATION("warmelt-outobj.melt:298:/ clear");
+         MELT_LOCATION("warmelt-outobj.melt:287:/ clear");
          /*clear*/ /*_.IFCPP___V37*/ curfptr[29] = 0 ;
-         MELT_LOCATION("warmelt-outobj.melt:298:/ clear");
+         MELT_LOCATION("warmelt-outobj.melt:287:/ clear");
          /*clear*/ /*_.PROGN___V39*/ curfptr[37] = 0 ;}
         ;
         }
        ;
        /*_.IFELSE___V32*/ curfptr[27] = /*_.IFELSE___V33*/ curfptr[28];;
        /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:276:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ clear");
        /*clear*/ /*_#NULL__L14*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:276:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:265:/ clear");
        /*clear*/ /*_.IFELSE___V33*/ curfptr[28] = 0 ;}
       ;
       }
      ;
      /*_.IFELSE___V27*/ curfptr[26] = /*_.IFELSE___V32*/ curfptr[27];;
      /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:254:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
      /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:254:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:243:/ clear");
      /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;}
     ;
     }
    ;
    /*_.LET___V24*/ curfptr[22] = /*_.IFELSE___V27*/ curfptr[26];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:245:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:234:/ clear");
    /*clear*/ /*_.ODLOC__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:245:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:234:/ clear");
    /*clear*/ /*_.OUTPUT_LOCATION__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:245:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:234:/ clear");
    /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:245:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:234:/ clear");
    /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
   ;
   /*_.LET___V10*/ curfptr[8] = /*_.LET___V24*/ curfptr[22];;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.ODATA__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.ODISCR__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.ONAME__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.OLOCVAR__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.OIOPREDEF__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.IF___V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:235:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:224:/ clear");
   /*clear*/ /*_.LET___V24*/ curfptr[22] = 0 ;}
  ;
- MELT_LOCATION("warmelt-outobj.melt:231:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-outobj.melt:231:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:220:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:231:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:231:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:231:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ clear");
  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:231:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ clear");
  /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
 
 ;
@@ -3954,11 +3950,11 @@ melt_trace_start("OUTDECLINIT_OBJINITMULTIPLE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:311:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:300:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:311:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:300:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -3967,43 +3963,43 @@ melt_trace_start("OUTDECLINIT_OBJINITMULTIPLE", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:311:/ block");
+MELT_LOCATION("warmelt-outobj.melt:300:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:312:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:301:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " struct MELT_MULTIPLE_STRUCT("));}
  ;
  /*_#GET_INT__L1*/ curfnum[0] = 
   (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:313:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:302:/ locexp");
  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0]));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:314:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:303:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:315:/ getslot");
+ MELT_LOCATION("warmelt-outobj.melt:304:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V4*/ curfptr[3] = slot; };
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:315:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:304:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3])));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:316:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:305:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:311:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:300:/ clear");
  /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:311:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:300:/ clear");
  /*clear*/ /*_.NAMED_NAME__V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -4064,11 +4060,11 @@ melt_trace_start("OUTCINITFILL_OBJINITMULTIPLE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:321:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:321:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -4077,29 +4073,29 @@ melt_trace_start("OUTCINITFILL_OBJINITMULTIPLE", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:321:/ block");
+MELT_LOCATION("warmelt-outobj.melt:310:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:322:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:322:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:311:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:311:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:322:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:311:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:322:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:311:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:322:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:311:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:322:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:311:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:322:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:311:/ locexp");
       melt_assert_failed(( "outcinitfill_objinitmultiple check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (322)?(322):__LINE__, __FUNCTION__);
+  (311)?(311):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -4110,214 +4106,212 @@ MELT_LOCATION("warmelt-outobj.melt:321:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:322:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:311:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:322:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:311:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:322:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:311:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:323:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:323:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:312:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:312:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:323:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:312:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:323:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:312:/ apply.arg");
     argtab[0].bp_cstring =  "outcinitfill_objinitmultiple recv";
-    MELT_LOCATION("warmelt-outobj.melt:323:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:312:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:323:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:312:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:323:/ apply.arg");
-    argtab[3].bp_long = 323;
+    MELT_LOCATION("warmelt-outobj.melt:312:/ apply.arg");
+    argtab[3].bp_long = 312;
     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:323:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:312:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:323:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:312:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:323:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:312:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:324:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:313:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:324:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:313:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:325:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:314:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:327:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:316:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inimult "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:328:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-outobj.melt:317:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:329:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:318:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:330:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:319:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:331:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:320:/ cond");
   /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:331:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:331:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:320:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:320:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:333:/ msend");
+    MELT_LOCATION("warmelt-outobj.melt:322:/ msend");
     /*msend*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:333:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:322:/ ojbmsend.arg");
      argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     MELT_LOCATION("warmelt-outobj.melt:333:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:322:/ ojbmsend.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:333:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:322:/ ojbmsend.arg");
      argtab[2].bp_long = 1;
      /*_.OUTPUT_C_CODE__V10*/ curfptr[9] = meltgc_send((melt_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:334:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:323:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:335:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:324:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:336:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:325:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:337:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:326:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:332:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:321:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:331:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:320:/ clear");
     /*clear*/ /*_.OUTPUT_C_CODE__V10*/ curfptr[9] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:339:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:328:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:340:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:329:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:341:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:330:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (meltobject_ptr_t)("));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:342:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:331:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V11*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:342:/ msend");
+  MELT_LOCATION("warmelt-outobj.melt:331:/ msend");
   /*msend*/{
    union meltparam_un argtab[3];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:342:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:331:/ ojbmsend.arg");
    argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   MELT_LOCATION("warmelt-outobj.melt:342:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:331:/ ojbmsend.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:342:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:331:/ ojbmsend.arg");
    argtab[2].bp_long = 1;
    /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OIE_DISCR__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:343:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:332:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:344:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:333:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:345:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:334:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:346:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:335:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:347:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:336:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = "));}
   ;
   /*_#GET_INT__L3*/ curfnum[0] = 
    (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:348:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:337:/ locexp");
   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:349:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:338:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:324:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:313:/ clear");
   /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:324:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:313:/ clear");
   /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:324:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:313:/ clear");
   /*clear*/ /*_.OIE_DISCR__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:324:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:313:/ clear");
   /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:324:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:313:/ clear");
   /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:321:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:321:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -4378,11 +4372,11 @@ melt_trace_start("OUTDECLINIT_OBJINITCLOSURE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:353:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:342:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:353:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:342:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -4391,43 +4385,43 @@ melt_trace_start("OUTDECLINIT_OBJINITCLOSURE", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:353:/ block");
+MELT_LOCATION("warmelt-outobj.melt:342:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:354:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:343:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " struct MELT_CLOSURE_STRUCT("));}
  ;
  /*_#GET_INT__L1*/ curfnum[0] = 
   (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:355:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:344:/ locexp");
  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0]));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:356:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:345:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:357:/ getslot");
+ MELT_LOCATION("warmelt-outobj.melt:346:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.OIE_CNAME__V4*/ curfptr[3] = slot; };
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:357:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:346:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.OIE_CNAME__V4*/ curfptr[3])));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:358:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:347:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:353:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:342:/ clear");
  /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:353:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:342:/ clear");
  /*clear*/ /*_.OIE_CNAME__V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -4488,11 +4482,11 @@ melt_trace_start("OUTCINITFILL_OBJINITCLOSURE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:362:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:362:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -4501,29 +4495,29 @@ melt_trace_start("OUTCINITFILL_OBJINITCLOSURE", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:362:/ block");
+MELT_LOCATION("warmelt-outobj.melt:351:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:363:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:363:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:352:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:352:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:363:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:352:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:363:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:352:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:363:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:352:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:363:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:352:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:363:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:352:/ locexp");
       melt_assert_failed(( "outcinitfill_objinitclosure check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (363)?(363):__LINE__, __FUNCTION__);
+  (352)?(352):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -4534,219 +4528,217 @@ MELT_LOCATION("warmelt-outobj.melt:362:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:363:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:352:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:363:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:352:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:363:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:352:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:364:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:364:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:353:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:353:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:364:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:353:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:364:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:353:/ apply.arg");
     argtab[0].bp_cstring =  "outcinitfill_objinitclosure recv";
-    MELT_LOCATION("warmelt-outobj.melt:364:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:353:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:364:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:353:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:364:/ apply.arg");
-    argtab[3].bp_long = 364;
+    MELT_LOCATION("warmelt-outobj.melt:353:/ apply.arg");
+    argtab[3].bp_long = 353;
     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:364:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:353:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:364:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:353:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:364:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:353:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:365:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:354:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:365:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:354:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:366:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:355:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:368:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:357:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*iniclos "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:369:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-outobj.melt:358:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:370:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:359:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:371:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:360:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:372:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:361:/ cond");
   /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:372:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:372:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:361:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:361:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:375:/ msend");
+    MELT_LOCATION("warmelt-outobj.melt:364:/ msend");
     /*msend*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:375:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:364:/ ojbmsend.arg");
      argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     MELT_LOCATION("warmelt-outobj.melt:375:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:364:/ ojbmsend.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:375:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:364:/ ojbmsend.arg");
      argtab[2].bp_long = 1;
      /*_.OUTPUT_C_CODE__V10*/ curfptr[9] = meltgc_send((melt_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:376:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:365:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:377:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:366:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:378:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:367:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:379:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:368:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:373:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:362:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:372:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:361:/ clear");
     /*clear*/ /*_.OUTPUT_C_CODE__V10*/ curfptr[9] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:381:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:370:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:382:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:371:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:383:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:372:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (meltobject_ptr_t)("));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:384:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:373:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V11*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:384:/ msend");
+  MELT_LOCATION("warmelt-outobj.melt:373:/ msend");
   /*msend*/{
    union meltparam_un argtab[3];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:384:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:373:/ ojbmsend.arg");
    argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   MELT_LOCATION("warmelt-outobj.melt:384:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:373:/ ojbmsend.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:384:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:373:/ ojbmsend.arg");
    argtab[2].bp_long = 1;
    /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OIE_DISCR__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:385:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:374:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:386:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:375:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:387:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:376:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:388:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:377:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:389:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:378:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = "));}
   ;
   /*_#GET_INT__L3*/ curfnum[0] = 
    (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:390:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:379:/ locexp");
   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:391:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:380:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:392:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:381:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:365:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:354:/ clear");
   /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:365:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:354:/ clear");
   /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:365:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:354:/ clear");
   /*clear*/ /*_.OIE_DISCR__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:365:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:354:/ clear");
   /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:365:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:354:/ clear");
   /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:362:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:362:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -4807,11 +4799,11 @@ melt_trace_start("OUTDECLINIT_OBJINITROUTINE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:397:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:386:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:397:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:386:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -4820,43 +4812,43 @@ melt_trace_start("OUTDECLINIT_OBJINITROUTINE", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:397:/ block");
+MELT_LOCATION("warmelt-outobj.melt:386:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:398:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:387:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " struct MELT_ROUTINE_STRUCT("));}
  ;
  /*_#GET_INT__L1*/ curfnum[0] = 
   (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:399:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:388:/ locexp");
  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0]));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:400:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:389:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:401:/ getslot");
+ MELT_LOCATION("warmelt-outobj.melt:390:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.OIE_CNAME__V4*/ curfptr[3] = slot; };
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:401:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:390:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.OIE_CNAME__V4*/ curfptr[3])));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:402:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:391:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:397:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:386:/ clear");
  /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:397:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:386:/ clear");
  /*clear*/ /*_.OIE_CNAME__V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -4917,11 +4909,11 @@ melt_trace_start("OUTCINITFILL_OBJINITROUTINE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:407:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:407:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -4930,29 +4922,29 @@ melt_trace_start("OUTCINITFILL_OBJINITROUTINE", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:407:/ block");
+MELT_LOCATION("warmelt-outobj.melt:396:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:408:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:408:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:397:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:397:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:408:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:397:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:408:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:397:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:408:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:397:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:408:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:397:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:408:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:397:/ locexp");
       melt_assert_failed(( "outcinitfill_objinitroutine check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (408)?(408):__LINE__, __FUNCTION__);
+  (397)?(397):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -4963,363 +4955,361 @@ MELT_LOCATION("warmelt-outobj.melt:407:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:408:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:397:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:408:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:397:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:408:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:397:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:409:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:409:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:398:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:398:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:409:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:398:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:409:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:398:/ apply.arg");
     argtab[0].bp_cstring =  "outcinitfill_objinitroutine recv";
-    MELT_LOCATION("warmelt-outobj.melt:409:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:398:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:409:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:398:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:409:/ apply.arg");
-    argtab[3].bp_long = 409;
+    MELT_LOCATION("warmelt-outobj.melt:398:/ apply.arg");
+    argtab[3].bp_long = 398;
     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:409:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:398:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:409:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:398:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:409:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:398:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:410:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:399:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:410:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:411:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:400:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "OIR_PROCROUTINE");/*_.IPRO__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:412:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:401:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V10*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:413:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:402:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.NDATR__V11*/ curfptr[10] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:415:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:404:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inirout "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:416:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-outobj.melt:405:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:417:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:406:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:418:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:407:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:419:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:408:/ cond");
   /*cond*/ if (/*_.OLOCVAR__V10*/ curfptr[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:419:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:419:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:408:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:408:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:422:/ msend");
+    MELT_LOCATION("warmelt-outobj.melt:411:/ msend");
     /*msend*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:422:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:411:/ ojbmsend.arg");
      argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     MELT_LOCATION("warmelt-outobj.melt:422:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:411:/ ojbmsend.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:422:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:411:/ ojbmsend.arg");
      argtab[2].bp_long = 1;
      /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OLOCVAR__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:423:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:412:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:424:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:413:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:425:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:414:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:426:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:415:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:420:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:409:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:419:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:408:/ clear");
     /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:428:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:417:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:429:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:418:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:430:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:419:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (meltobject_ptr_t)("));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:431:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:420:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V13*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:431:/ msend");
+  MELT_LOCATION("warmelt-outobj.melt:420:/ msend");
   /*msend*/{
    union meltparam_un argtab[3];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:431:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:420:/ ojbmsend.arg");
    argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   MELT_LOCATION("warmelt-outobj.melt:431:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:420:/ ojbmsend.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:431:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:420:/ ojbmsend.arg");
    argtab[2].bp_long = 1;
    /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OIE_DISCR__V13*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:432:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:421:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:433:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:422:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:434:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:423:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " strncpy(cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:435:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:424:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:436:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:425:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".routdescr, \""));}
   ;
   /*_#IS_A__L3*/ curfnum[0] = 
    melt_is_instance_of((melt_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[3])));;
-  MELT_LOCATION("warmelt-outobj.melt:437:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:426:/ cond");
   /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:437:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:437:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:426:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:426:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:438:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:427:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:438:/ getslot");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), 1, "NDATA_NAME");/*_.DNAM__V15*/ curfptr[14] = slot; };
      ;
-     MELT_LOCATION("warmelt-outobj.melt:439:/ getslot");
+     MELT_LOCATION("warmelt-outobj.melt:428:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), 5, "NDROU_PROC");/*_.DPRO__V16*/ curfptr[15] = slot; };
      ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:441:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:441:/ block");
+      MELT_LOCATION("warmelt-outobj.melt:430:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:430:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
         callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:441:/ apply");
+       MELT_LOCATION("warmelt-outobj.melt:430:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:441:/ apply.arg");
+        MELT_LOCATION("warmelt-outobj.melt:430:/ apply.arg");
         argtab[0].bp_cstring =  "outcinitfill_objinitroutine ndatr";
-        MELT_LOCATION("warmelt-outobj.melt:441:/ apply.arg");
+        MELT_LOCATION("warmelt-outobj.melt:430:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-        MELT_LOCATION("warmelt-outobj.melt:441:/ apply.arg");
+        MELT_LOCATION("warmelt-outobj.melt:430:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:441:/ apply.arg");
-        argtab[3].bp_long = 441;
+        MELT_LOCATION("warmelt-outobj.melt:430:/ apply.arg");
+        argtab[3].bp_long = 430;
         /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
        /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:441:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:430:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:441:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:430:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:441:/ cppif.else");
+      MELT_LOCATION("warmelt-outobj.melt:430:/ cppif.else");
      /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      
      #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:442:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:442:/ block");
+      MELT_LOCATION("warmelt-outobj.melt:431:/ cppif.then");
+     MELT_LOCATION("warmelt-outobj.melt:431:/ block");
       /*block*/{
        /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
         callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:442:/ apply");
+       MELT_LOCATION("warmelt-outobj.melt:431:/ apply");
        /*apply*/{
         union meltparam_un argtab[4];
         memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:442:/ apply.arg");
+        MELT_LOCATION("warmelt-outobj.melt:431:/ apply.arg");
         argtab[0].bp_cstring =  "outcinitfill_objinitroutine dpro";
-        MELT_LOCATION("warmelt-outobj.melt:442:/ apply.arg");
+        MELT_LOCATION("warmelt-outobj.melt:431:/ apply.arg");
         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
-        MELT_LOCATION("warmelt-outobj.melt:442:/ apply.arg");
+        MELT_LOCATION("warmelt-outobj.melt:431:/ apply.arg");
         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:442:/ apply.arg");
-        argtab[3].bp_long = 442;
+        MELT_LOCATION("warmelt-outobj.melt:431:/ apply.arg");
+        argtab[3].bp_long = 431;
         /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DPRO__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
         }
        ;
        /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
        /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:442:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:431:/ clear");
        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:442:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:431:/ clear");
        /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
       
       #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:442:/ cppif.else");
+      MELT_LOCATION("warmelt-outobj.melt:431:/ cppif.else");
      /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
       #endif /*ENABLE_CHECKING*/
       ;
      /*_#IS_A__L6*/ curfnum[3] = 
       melt_is_instance_of((melt_ptr_t)(/*_.DNAM__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-outobj.melt:443:/ cond");
+     MELT_LOCATION("warmelt-outobj.melt:432:/ cond");
      /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:443:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:443:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:432:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:432:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:444:/ getslot");
+       MELT_LOCATION("warmelt-outobj.melt:433:/ getslot");
        { melt_ptr_t slot=0;
         melt_object_get_field(slot,(melt_ptr_t)(/*_.DNAM__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[19] = slot; };
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:444:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:433:/ locexp");
        meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[19])));}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:443:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:432:/ clear");
        /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[19] = 0 ;}
       ;
      } /*noelse*/
      ;
      /*_#IS_A__L7*/ curfnum[6] = 
       melt_is_instance_of((melt_ptr_t)(/*_.DPRO__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-outobj.melt:445:/ cond");
+     MELT_LOCATION("warmelt-outobj.melt:434:/ cond");
      /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:445:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:445:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:434:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:434:/ block");
       /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:446:/ block");
+       MELT_LOCATION("warmelt-outobj.melt:435:/ block");
        /*block*/{
-        MELT_LOCATION("warmelt-outobj.melt:446:/ getslot");
+        MELT_LOCATION("warmelt-outobj.melt:435:/ getslot");
         { melt_ptr_t slot=0;
          melt_object_get_field(slot,(melt_ptr_t)(/*_.DPRO__V16*/ curfptr[15]), 0, "NREP_LOC");/*_.DLOC__V22*/ curfptr[19] = slot; };
         ;
         /*_.MIXINT_VAL__V23*/ curfptr[22] = 
          (melt_val_mixint((melt_ptr_t)(/*_.DLOC__V22*/ curfptr[19])));;
-        MELT_LOCATION("warmelt-outobj.melt:447:/ cond");
+        MELT_LOCATION("warmelt-outobj.melt:436:/ cond");
         /*cond*/ if (/*_.MIXINT_VAL__V23*/ curfptr[22]) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:447:/ cond.then");
+        MELT_LOCATION("warmelt-outobj.melt:436:/ cond.then");
         /*_.LOCFIL__V24*/ curfptr[23] = /*_.MIXINT_VAL__V23*/ curfptr[22];;
-        } else {MELT_LOCATION("warmelt-outobj.melt:447:/ cond.else");
+        } else {MELT_LOCATION("warmelt-outobj.melt:436:/ cond.else");
         
-         MELT_LOCATION("warmelt-outobj.melt:447:/ block");
+         MELT_LOCATION("warmelt-outobj.melt:436:/ block");
          /*block*/{
           /*_.MIXLOC_VAL__V25*/ curfptr[24] = 
            (melt_val_mixloc((melt_ptr_t)(/*_.DLOC__V22*/ curfptr[19])));;
           /*_.LOCFIL__V24*/ curfptr[23] = /*_.MIXLOC_VAL__V25*/ curfptr[24];;
           /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:447:/ clear");
+          MELT_LOCATION("warmelt-outobj.melt:436:/ clear");
           /*clear*/ /*_.MIXLOC_VAL__V25*/ curfptr[24] = 0 ;}
          ;
          }
         ;
         
         {
-        MELT_LOCATION("warmelt-outobj.melt:449:/ locexp");
+        MELT_LOCATION("warmelt-outobj.melt:438:/ locexp");
         meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " @"));}
         ;
         
         {
-        MELT_LOCATION("warmelt-outobj.melt:450:/ locexp");
+        MELT_LOCATION("warmelt-outobj.melt:439:/ locexp");
         meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.LOCFIL__V24*/ curfptr[23])));}
         ;
         
         {
-        MELT_LOCATION("warmelt-outobj.melt:451:/ locexp");
+        MELT_LOCATION("warmelt-outobj.melt:440:/ locexp");
         meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ":"));}
         ;
         /*_#GET_INT__L8*/ curfnum[7] = 
          (melt_get_int((melt_ptr_t)(/*_.DLOC__V22*/ curfptr[19])));;
         
         {
-        MELT_LOCATION("warmelt-outobj.melt:452:/ locexp");
+        MELT_LOCATION("warmelt-outobj.melt:441:/ locexp");
         meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L8*/ curfnum[7]));}
         ;
         /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:446:/ clear");
+        MELT_LOCATION("warmelt-outobj.melt:435:/ clear");
         /*clear*/ /*_.DLOC__V22*/ curfptr[19] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:446:/ clear");
+        MELT_LOCATION("warmelt-outobj.melt:435:/ clear");
         /*clear*/ /*_.MIXINT_VAL__V23*/ curfptr[22] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:446:/ clear");
+        MELT_LOCATION("warmelt-outobj.melt:435:/ clear");
         /*clear*/ /*_.LOCFIL__V24*/ curfptr[23] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:446:/ clear");
+        MELT_LOCATION("warmelt-outobj.melt:435:/ clear");
         /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;}
        ;
        /*epilog*/}
@@ -5327,28 +5317,28 @@ MELT_LOCATION("warmelt-outobj.melt:407:/ block");
      } /*noelse*/
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:438:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ clear");
      /*clear*/ /*_.DNAM__V15*/ curfptr[14] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:438:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ clear");
      /*clear*/ /*_.DPRO__V16*/ curfptr[15] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:438:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ clear");
      /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:438:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ clear");
      /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:438:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ clear");
      /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:438:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:427:/ clear");
      /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;}
     ;
     /*epilog*/}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:437:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:426:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:437:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:426:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:456:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:445:/ locexp");
     meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     /*epilog*/}
@@ -5357,106 +5347,106 @@ MELT_LOCATION("warmelt-outobj.melt:407:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:457:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:446:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\",  MELT_ROUTDESCR_LEN - 1);"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:458:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:447:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:459:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:448:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:460:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:449:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:461:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:450:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = "));}
   ;
   /*_#GET_INT__L9*/ curfnum[7] = 
    (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:462:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:451:/ locexp");
   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L9*/ curfnum[7]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:463:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:452:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:464:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:453:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:465:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:454:/ cond");
   /*cond*/ if (/*_.IPRO__V9*/ curfptr[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:465:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:465:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:454:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:454:/ block");
    /*block*/{
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:467:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:467:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:456:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:456:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L10*/ curfnum[3] = 
        callcount;;
-      MELT_LOCATION("warmelt-outobj.melt:467:/ apply");
+      MELT_LOCATION("warmelt-outobj.melt:456:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:467:/ apply.arg");
+       MELT_LOCATION("warmelt-outobj.melt:456:/ apply.arg");
        argtab[0].bp_cstring =  "outcinitfill_objinitroutine ipro";
-       MELT_LOCATION("warmelt-outobj.melt:467:/ apply.arg");
+       MELT_LOCATION("warmelt-outobj.melt:456:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[3];
-       MELT_LOCATION("warmelt-outobj.melt:467:/ apply.arg");
+       MELT_LOCATION("warmelt-outobj.melt:456:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-       MELT_LOCATION("warmelt-outobj.melt:467:/ apply.arg");
-       argtab[3].bp_long = 467;
+       MELT_LOCATION("warmelt-outobj.melt:456:/ apply.arg");
+       argtab[3].bp_long = 456;
        /*_.DEBUG_MSG_FUN__V27*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.IPRO__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[19];;
       /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:467:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:456:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:467:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:456:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[19] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:467:/ cppif.else");
+     MELT_LOCATION("warmelt-outobj.melt:456:/ cppif.else");
     /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:468:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:468:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:457:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:457:/ block");
      /*block*/{
       /*_#IS_A__L11*/ curfnum[6] = 
        melt_is_instance_of((melt_ptr_t)(/*_.IPRO__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-outobj.melt:468:/ cond");
+      MELT_LOCATION("warmelt-outobj.melt:457:/ cond");
       /*cond*/ if (/*_#IS_A__L11*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:468:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:457:/ cond.then");
       /*_.IFELSE___V29*/ curfptr[23] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:468:/ cond.else");
+      } else {MELT_LOCATION("warmelt-outobj.melt:457:/ cond.else");
       
-       MELT_LOCATION("warmelt-outobj.melt:468:/ block");
+       MELT_LOCATION("warmelt-outobj.melt:457:/ block");
        /*block*/{
         /*block*/{
          
          {
-         MELT_LOCATION("warmelt-outobj.melt:468:/ locexp");
+         MELT_LOCATION("warmelt-outobj.melt:457:/ locexp");
          melt_assert_failed(( "check ipro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (468)?(468):__LINE__, __FUNCTION__);
+  (457)?(457):__LINE__, __FUNCTION__);
 ;}
          ;
          /*clear*/ /*_.IFELSE___V29*/ curfptr[23] = 0 ;}
@@ -5467,145 +5457,145 @@ MELT_LOCATION("warmelt-outobj.melt:407:/ block");
       ;
       /*_.IFCPP___V28*/ curfptr[22] = /*_.IFELSE___V29*/ curfptr[23];;
       /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:468:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:457:/ clear");
       /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:468:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:457:/ clear");
       /*clear*/ /*_.IFELSE___V29*/ curfptr[23] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:468:/ cppif.else");
+     MELT_LOCATION("warmelt-outobj.melt:457:/ cppif.else");
     /*_.IFCPP___V28*/ curfptr[22] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:469:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:458:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "MELT_ROUTINE_SET_ROUTCODE(&cdat->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:470:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:459:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:471:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:460:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ", "));}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:472:/ getslot");
+    MELT_LOCATION("warmelt-outobj.melt:461:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.IPRO__V9*/ curfptr[8]), 1, "NAMED_NAME");/*_.NAMED_NAME__V30*/ curfptr[14] = slot; };
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:472:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:461:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V30*/ curfptr[14])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:473:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:462:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:474:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:463:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:466:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:455:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:465:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:454:/ clear");
     /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:465:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:454:/ clear");
     /*clear*/ /*_.IFCPP___V28*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:465:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:454:/ clear");
     /*clear*/ /*_.NAMED_NAME__V30*/ curfptr[14] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:465:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:454:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:465:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:454:/ block");
    /*block*/{
     
     #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:477:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:477:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:466:/ cppif.then");
+    MELT_LOCATION("warmelt-outobj.melt:466:/ block");
      /*block*/{
       /*_#THE_CALLCOUNT__L12*/ curfnum[3] = 
        callcount;;
-      MELT_LOCATION("warmelt-outobj.melt:477:/ apply");
+      MELT_LOCATION("warmelt-outobj.melt:466:/ apply");
       /*apply*/{
        union meltparam_un argtab[4];
        memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:477:/ apply.arg");
+       MELT_LOCATION("warmelt-outobj.melt:466:/ apply.arg");
        argtab[0].bp_cstring =  "outcinitfill_objinitroutine (noipro) recv";
-       MELT_LOCATION("warmelt-outobj.melt:477:/ apply.arg");
+       MELT_LOCATION("warmelt-outobj.melt:466:/ apply.arg");
        argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[3];
-       MELT_LOCATION("warmelt-outobj.melt:477:/ apply.arg");
+       MELT_LOCATION("warmelt-outobj.melt:466:/ apply.arg");
        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-       MELT_LOCATION("warmelt-outobj.melt:477:/ apply.arg");
-       argtab[3].bp_long = 477;
+       MELT_LOCATION("warmelt-outobj.melt:466:/ apply.arg");
+       argtab[3].bp_long = 466;
        /*_.DEBUG_MSG_FUN__V32*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
        }
       ;
       /*_.IFCPP___V31*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[16];;
       /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:477:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:466:/ clear");
       /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:477:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:466:/ clear");
       /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[16] = 0 ;}
      
      #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:477:/ cppif.else");
+     MELT_LOCATION("warmelt-outobj.melt:466:/ cppif.else");
     /*_.IFCPP___V31*/ curfptr[15] = (/*nil*/NULL);
      #endif /*ENABLE_CHECKING*/
      ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:478:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:467:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "#warning no procedure in objinitroutine "));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:479:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:468:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:480:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:469:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:476:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:465:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:465:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:454:/ clear");
     /*clear*/ /*_.IFCPP___V31*/ curfptr[15] = 0 ;}
    ;
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_.IPRO__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_.OLOCVAR__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_.NDATR__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_.OIE_DISCR__V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:410:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:399:/ clear");
   /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:407:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:407:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -5666,11 +5656,11 @@ melt_trace_start("OUTDECLINIT_OBJINITSTRING", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:488:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:477:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:488:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:477:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -5679,43 +5669,43 @@ melt_trace_start("OUTDECLINIT_OBJINITSTRING", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:488:/ block");
+MELT_LOCATION("warmelt-outobj.melt:477:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:489:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:478:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " struct MELT_STRING_STRUCT("));}
  ;
  /*_#GET_INT__L1*/ curfnum[0] = 
   (melt_get_int((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1])));;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:490:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:479:/ locexp");
  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0]));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:491:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:480:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ") "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:492:/ getslot");
+ MELT_LOCATION("warmelt-outobj.melt:481:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V4*/ curfptr[3] = slot; };
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:492:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:481:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3])));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:493:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:482:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:488:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:477:/ clear");
  /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:488:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:477:/ clear");
  /*clear*/ /*_.NAMED_NAME__V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -5776,11 +5766,11 @@ melt_trace_start("OUTCINITFILL_OBJINITSTRING", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:498:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:498:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -5789,29 +5779,29 @@ melt_trace_start("OUTCINITFILL_OBJINITSTRING", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:498:/ block");
+MELT_LOCATION("warmelt-outobj.melt:487:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:499:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:499:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:488:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:488:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITSTRING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:499:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:488:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:499:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:488:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:499:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:488:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:499:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:488:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:499:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:488:/ locexp");
       melt_assert_failed(( "outcinitfill_objinitstring check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (499)?(499):__LINE__, __FUNCTION__);
+  (488)?(488):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -5822,231 +5812,229 @@ MELT_LOCATION("warmelt-outobj.melt:498:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:499:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:488:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:499:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:488:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:499:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:488:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:500:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:500:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:489:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:489:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:500:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:489:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:500:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:489:/ apply.arg");
     argtab[0].bp_cstring =  "outcinitfill_objinitstring recv";
-    MELT_LOCATION("warmelt-outobj.melt:500:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:489:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:500:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:489:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:500:/ apply.arg");
-    argtab[3].bp_long = 500;
+    MELT_LOCATION("warmelt-outobj.melt:489:/ apply.arg");
+    argtab[3].bp_long = 489;
     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:500:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:489:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:500:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:489:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:500:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:489:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:501:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:490:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:501:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:490:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:502:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:491:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:504:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:493:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inistring "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:505:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-outobj.melt:494:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:506:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:495:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:507:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:496:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:508:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:497:/ cond");
   /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:508:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:508:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:497:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:497:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:510:/ msend");
+    MELT_LOCATION("warmelt-outobj.melt:499:/ msend");
     /*msend*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:510:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:499:/ ojbmsend.arg");
      argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     MELT_LOCATION("warmelt-outobj.melt:510:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:499:/ ojbmsend.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:510:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:499:/ ojbmsend.arg");
      argtab[2].bp_long = 1;
      /*_.OUTPUT_C_CODE__V10*/ curfptr[9] = meltgc_send((melt_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:511:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:500:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:512:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:501:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:513:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:502:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:514:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:503:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:509:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:498:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:508:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:497:/ clear");
     /*clear*/ /*_.OUTPUT_C_CODE__V10*/ curfptr[9] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:516:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:505:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:517:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:506:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:518:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:507:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (meltobject_ptr_t)("));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:519:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:508:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V11*/ curfptr[9] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:519:/ msend");
+  MELT_LOCATION("warmelt-outobj.melt:508:/ msend");
   /*msend*/{
    union meltparam_un argtab[3];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:519:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:508:/ ojbmsend.arg");
    argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   MELT_LOCATION("warmelt-outobj.melt:519:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:508:/ ojbmsend.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:519:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:508:/ ojbmsend.arg");
    argtab[2].bp_long = 1;
    /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.OIE_DISCR__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:520:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:509:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:521:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:510:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:522:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:511:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " strncpy(cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:523:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:512:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:524:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:513:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".val, \""));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:525:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:514:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.OIE_DATA__V13*/ curfptr[12] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:525:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:514:/ locexp");
   meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.OIE_DATA__V13*/ curfptr[12])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:526:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:515:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "\", sizeof(cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:527:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:516:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:528:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:517:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".val)-1);"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:529:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:518:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:501:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:490:/ clear");
   /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:501:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:490:/ clear");
   /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:501:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:490:/ clear");
   /*clear*/ /*_.OIE_DISCR__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:501:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:490:/ clear");
   /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:501:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:490:/ clear");
   /*clear*/ /*_.OIE_DATA__V13*/ curfptr[12] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:498:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:498:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -6107,11 +6095,11 @@ melt_trace_start("OUTDECLINIT_OBJINITBOXEDINTEGER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:535:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:524:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:535:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:524:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -6120,29 +6108,29 @@ melt_trace_start("OUTDECLINIT_OBJINITBOXEDINTEGER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:535:/ block");
+MELT_LOCATION("warmelt-outobj.melt:524:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:536:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:525:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " struct meltint_st "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:537:/ getslot");
+ MELT_LOCATION("warmelt-outobj.melt:526:/ getslot");
  { melt_ptr_t slot=0;
   melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V4*/ curfptr[3] = slot; };
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:537:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:526:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3])));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:538:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:527:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:524:/ clear");
  /*clear*/ /*_.NAMED_NAME__V4*/ curfptr[3] = 0 ;}
 
 ;
@@ -6203,11 +6191,11 @@ melt_trace_start("OUTCINITFILL_OBJINITBOXEDINTEGER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:543:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ getarg");
  /*_.RECV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:543:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL);
@@ -6216,29 +6204,29 @@ melt_trace_start("OUTCINITFILL_OBJINITBOXEDINTEGER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:543:/ block");
+MELT_LOCATION("warmelt-outobj.melt:532:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:544:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:544:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:533:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:533:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINITBOXINTEGER*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:544:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:533:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:544:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:533:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:544:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:533:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:544:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:533:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:544:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:533:/ locexp");
       melt_assert_failed(( "outcinitfill_objinitboxedinteger check recv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (544)?(544):__LINE__, __FUNCTION__);
+  (533)?(533):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -6249,225 +6237,223 @@ MELT_LOCATION("warmelt-outobj.melt:543:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:544:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:533:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:544:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:533:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:544:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:533:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:545:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:545:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:534:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:534:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:545:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:534:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:545:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:534:/ apply.arg");
     argtab[0].bp_cstring =  "outcinitfill_objinitboxedinteger recv";
-    MELT_LOCATION("warmelt-outobj.melt:545:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:534:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:545:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:534:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:545:/ apply.arg");
-    argtab[3].bp_long = 545;
+    MELT_LOCATION("warmelt-outobj.melt:534:/ apply.arg");
+    argtab[3].bp_long = 534;
     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:545:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:534:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:545:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:534:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:545:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:534:/ cppif.else");
  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:546:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:535:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:546:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:547:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:536:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:548:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:537:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODATA__V10*/ curfptr[9] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:550:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:539:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "/*iniboxint "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:551:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-outobj.melt:540:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:552:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:541:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( "*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:553:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:542:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:554:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:543:/ cond");
   /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:554:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:554:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:543:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:543:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:556:/ msend");
+    MELT_LOCATION("warmelt-outobj.melt:545:/ msend");
     /*msend*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:556:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:545:/ ojbmsend.arg");
      argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     MELT_LOCATION("warmelt-outobj.melt:556:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:545:/ ojbmsend.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:556:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:545:/ ojbmsend.arg");
      argtab[2].bp_long = 1;
      /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:557:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:546:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:558:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:547:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:559:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:548:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:560:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:549:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:555:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:544:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:554:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:543:/ clear");
     /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:562:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:551:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:563:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:552:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:564:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:553:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (meltobject_ptr_t)("));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:565:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:554:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V12*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:565:/ msend");
+  MELT_LOCATION("warmelt-outobj.melt:554:/ msend");
   /*msend*/{
    union meltparam_un argtab[3];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:565:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:554:/ ojbmsend.arg");
    argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   MELT_LOCATION("warmelt-outobj.melt:565:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:554:/ ojbmsend.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:565:/ ojbmsend.arg");
+   MELT_LOCATION("warmelt-outobj.melt:554:/ ojbmsend.arg");
    argtab[2].bp_long = 1;
    /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OIE_DISCR__V12*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:566:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:555:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ");"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:567:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:556:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:568:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:557:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:569:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:558:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:570:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:559:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ".val = "));}
   ;
   /*_#GET_INT__L3*/ curfnum[0] = 
    (melt_get_int((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9])));;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:571:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:560:/ locexp");
   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:572:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:561:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:573:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:562:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V3*/ curfptr[2]), (1), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:546:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
   /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:546:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
   /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:546:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
   /*clear*/ /*_.ODATA__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:546:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
   /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:546:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
   /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:546:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:535:/ clear");
   /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:543:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:543:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ clear");
  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -6528,81 +6514,81 @@ melt_trace_start("OUTPUCOD_ANYDISCR", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:582:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:571:/ getarg");
  /*_.ANY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:582:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:571:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:582:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:571:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
  
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:582:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:571:/ getarg");
  if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
  /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:582:/ block");
+MELT_LOCATION("warmelt-outobj.melt:571:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:584:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:573:/ locexp");
  melt_puts(stderr,( "* output_c_code unimplemented reciever discriminator "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:585:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:574:/ block");
  /*block*/{
   /*_.DISCR__V5*/ curfptr[4] = 
    (melt_discr((melt_ptr_t)(/*_.ANY__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:585:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:574:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V5*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:585:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:574:/ locexp");
   melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]));}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:585:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:574:/ clear");
   /*clear*/ /*_.DISCR__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:585:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:574:/ clear");
   /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:586:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:575:/ locexp");
  melt_newlineflush(stderr);}
  ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:587:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:587:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:576:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:576:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:587:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:576:/ cond");
    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:587:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:576:/ cond.then");
    /*_.IFELSE___V8*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:587:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:576:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:587:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:576:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:587:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:576:/ locexp");
       melt_assert_failed(( "@@ outpucod_anydiscr not able to output"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (587)?(587):__LINE__, __FUNCTION__);
+  (576)?(576):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;}
@@ -6613,23 +6599,23 @@ MELT_LOCATION("warmelt-outobj.melt:582:/ block");
    ;
    /*_.IFCPP___V7*/ curfptr[4] = /*_.IFELSE___V8*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:587:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:576:/ clear");
    /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:587:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:576:/ cppif.else");
  /*_.IFCPP___V7*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:582:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:571:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V7*/ curfptr[4];;
-  MELT_LOCATION("warmelt-outobj.melt:582:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:571:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:582:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:571:/ clear");
  /*clear*/ /*_.IFCPP___V7*/ curfptr[4] = 0 ;}
 
 ;
@@ -6690,36 +6676,36 @@ melt_trace_start("OUTPUCOD_NULL", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:591:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:580:/ getarg");
  /*_.NUL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:591:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:580:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:591:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:580:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
  
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:591:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:580:/ getarg");
  if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
  /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:591:/ block");
+MELT_LOCATION("warmelt-outobj.melt:580:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:592:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:581:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "NULL"));}
  ;
  /*epilog*/}
@@ -6782,124 +6768,124 @@ melt_trace_start("OUTPUCOD_CATCHALL_ROOT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:597:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ getarg");
  /*_.ANYR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:597:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:597:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
  
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:597:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ getarg");
  if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
  /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:597:/ block");
+MELT_LOCATION("warmelt-outobj.melt:586:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:598:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:598:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:587:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:587:/ block");
   /*block*/{
    /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
     callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:598:/ apply");
+   MELT_LOCATION("warmelt-outobj.melt:587:/ apply");
    /*apply*/{
     union meltparam_un argtab[4];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:598:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:587:/ apply.arg");
     argtab[0].bp_cstring =  "outpucod_catchall_root anyr";
-    MELT_LOCATION("warmelt-outobj.melt:598:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:587:/ apply.arg");
     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:598:/ apply.arg");
+    MELT_LOCATION("warmelt-outobj.melt:587:/ apply.arg");
     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:598:/ apply.arg");
-    argtab[3].bp_long = 598;
+    MELT_LOCATION("warmelt-outobj.melt:587:/ apply.arg");
+    argtab[3].bp_long = 587;
     /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ANYR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:598:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:587:/ clear");
    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:598:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:587:/ clear");
    /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:598:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:587:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:599:/ apply");
+ MELT_LOCATION("warmelt-outobj.melt:588:/ apply");
  /*apply*/{
   union meltparam_un argtab[1];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:599:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:588:/ apply.arg");
   argtab[0].bp_cstring =  "outpucod_catchall_root anyr";
   /*_.DISPLAY_DEBUG_MESSAGE__V7*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DISPLAY_DEBUG_MESSAGE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ANYR__V2*/ curfptr[1]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:600:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:589:/ locexp");
  melt_puts(stderr,( "* output_c_code unimplemented reciever class "));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:601:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:590:/ block");
  /*block*/{
   /*_.DISCR__V8*/ curfptr[7] = 
    (melt_discr((melt_ptr_t)(/*_.ANYR__V2*/ curfptr[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:601:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:590:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCR__V8*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:601:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:590:/ locexp");
   melt_putstr(stderr, (melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8]));}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:601:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:590:/ clear");
   /*clear*/ /*_.DISCR__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:601:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:590:/ clear");
   /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:602:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:591:/ locexp");
  melt_newlineflush(stderr);}
  ;
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:603:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:603:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:592:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:592:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:603:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:592:/ cond");
    /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:603:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:592:/ cond.then");
    /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:603:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:592:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:603:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:592:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:603:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:592:/ locexp");
       melt_assert_failed(( "@@ outpucod_catchall_root not able to output"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (603)?(603):__LINE__, __FUNCTION__);
+  (592)?(592):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;}
@@ -6910,27 +6896,27 @@ MELT_LOCATION("warmelt-outobj.melt:597:/ block");
    ;
    /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:603:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:592:/ clear");
    /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:603:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:592:/ cppif.else");
  /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:597:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[7];;
-  MELT_LOCATION("warmelt-outobj.melt:597:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:586:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:597:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:597:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ clear");
  /*clear*/ /*_.DISPLAY_DEBUG_MESSAGE__V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:597:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ clear");
  /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ;}
 
 ;
@@ -6993,182 +6979,180 @@ melt_trace_start("OUTPUT_RAW_LOCATION", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:610:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:599:/ getarg");
  /*_.LOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:610:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:599:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:610:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:599:/ getarg");
  if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
  /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:610:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:599:/ getarg");
  if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[2].bp_cstring;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:610:/ block");
+MELT_LOCATION("warmelt-outobj.melt:599:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-outobj.melt:611:/ cond");
+ MELT_LOCATION("warmelt-outobj.melt:600:/ cond");
  /*cond*/ if (/*_.LOC__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:611:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:611:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:600:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:600:/ block");
   /*block*/{
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:613:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:602:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:614:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:603:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#ifndef MELTGCC_NOLINENUMBERING"));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:615:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:604:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
    ;
    /*_#IS_MIXINT__L2*/ curfnum[1] = 
     (melt_magic_discr((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXINT);;
-   MELT_LOCATION("warmelt-outobj.melt:616:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:605:/ cond");
    /*cond*/ if (/*_#IS_MIXINT__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:616:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:616:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:605:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:605:/ block");
     /*block*/{
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:617:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:606:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#line "));}
      ;
      /*_#GET_INT__L3*/ curfnum[2] = 
       (melt_get_int((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])));;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:618:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:607:/ locexp");
      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2]));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:619:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:608:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " \""));}
      ;
      /*_.MIXINT_VAL__V5*/ curfptr[4] = 
       (melt_val_mixint((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])));;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:620:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:609:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MIXINT_VAL__V5*/ curfptr[4])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:621:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:610:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\""));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:616:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:605:/ block");
      /*block*/{}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:616:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:605:/ clear");
      /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:616:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:605:/ clear");
      /*clear*/ /*_.MIXINT_VAL__V5*/ curfptr[4] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:616:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:605:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:616:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:605:/ block");
     /*block*/{
      /*_#IS_MIXLOC__L4*/ curfnum[2] = 
       (melt_magic_discr((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXLOC);;
-     MELT_LOCATION("warmelt-outobj.melt:622:/ cond");
+     MELT_LOCATION("warmelt-outobj.melt:611:/ cond");
      /*cond*/ if (/*_#IS_MIXLOC__L4*/ curfnum[2]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:622:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:622:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:611:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:611:/ block");
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:623:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:612:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#line "));}
        ;
        /*_#MIXLOC_LOCLINE__L5*/ curfnum[4] = 
         (LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.LOC__V2*/ curfptr[1])));;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:624:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:613:/ locexp");
        meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#MIXLOC_LOCLINE__L5*/ curfnum[4]));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:625:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:614:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " \""));}
        ;
        /*_?*/ curfram__.loc_CSTRING__o1 = 
         (LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.LOC__V2*/ curfptr[1])));;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:626:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:615:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o1));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:627:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:616:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\""));}
        ;
-       MELT_LOCATION("warmelt-outobj.melt:622:/ block");
+       MELT_LOCATION("warmelt-outobj.melt:611:/ block");
        /*block*/{}
        ;
        /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:622:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:611:/ clear");
        /*clear*/ /*_#MIXLOC_LOCLINE__L5*/ curfnum[4] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:622:/ clear");
+       MELT_LOCATION("warmelt-outobj.melt:611:/ clear");
        /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;}
       ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:622:/ cond.else");
+     } else {MELT_LOCATION("warmelt-outobj.melt:611:/ cond.else");
      
       /*_.IFELSE___V6*/ curfptr[4] = NULL;;
       }
      ;
      /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[4];;
      /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:616:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:605:/ clear");
      /*clear*/ /*_#IS_MIXLOC__L4*/ curfnum[2] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:616:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:605:/ clear");
      /*clear*/ /*_.IFELSE___V6*/ curfptr[4] = 0 ;}
     ;
     }
    ;
-   MELT_LOCATION("warmelt-outobj.melt:629:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:618:/ cond");
    /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o0) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:629:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:629:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:618:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:618:/ block");
     /*block*/{
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:631:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:620:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " /**::"));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:632:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+     MELT_LOCATION("warmelt-outobj.melt:621:/ locexp");
      meltgc_add_strbuf_ccomment((/*_.IMPLBUF__V3*/ curfptr[2]), /*_?*/ curfram__.loc_CSTRING__o0);}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:633:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:622:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "::**/"));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:630:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:619:/ block");
      /*block*/{}
      ;
      /*epilog*/}
@@ -7177,26 +7161,26 @@ MELT_LOCATION("warmelt-outobj.melt:610:/ block");
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:635:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:624:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:636:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:625:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#endif /*MELTGCC_NOLINENUMBERING*/"));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:637:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:626:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
    ;
-   MELT_LOCATION("warmelt-outobj.melt:612:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:601:/ block");
    /*block*/{}
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:611:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:600:/ clear");
    /*clear*/ /*_#IS_MIXINT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:611:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:600:/ clear");
    /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
   ;
  } /*noelse*/
@@ -7262,78 +7246,78 @@ melt_trace_start("OUTPUT_LOCATION", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:641:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ getarg");
  /*_.LOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:641:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:641:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ getarg");
  if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs;
  /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long;
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:641:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ getarg");
  if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs;
  /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[2].bp_cstring;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:641:/ block");
+MELT_LOCATION("warmelt-outobj.melt:630:/ block");
 /*block*/{
  /*_#IS_MIXINT__L2*/ curfnum[1] = 
   (melt_magic_discr((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXINT);;
- MELT_LOCATION("warmelt-outobj.melt:643:/ cond");
+ MELT_LOCATION("warmelt-outobj.melt:632:/ cond");
  /*cond*/ if (/*_#IS_MIXINT__L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:643:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:643:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:632:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:632:/ block");
   /*block*/{
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:644:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:633:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "MELT_LOCATION(\""));}
    ;
    /*_.MIXINT_VAL__V5*/ curfptr[4] = 
     (melt_val_mixint((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])));;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:645:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:634:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MIXINT_VAL__V5*/ curfptr[4])));}
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:646:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:635:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":"));}
    ;
    /*_#GET_INT__L3*/ curfnum[2] = 
     (melt_get_int((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])));;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:647:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:636:/ locexp");
    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2]));}
    ;
-   MELT_LOCATION("warmelt-outobj.melt:648:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:637:/ cond");
    /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o0) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:648:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:648:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:637:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:637:/ block");
     /*block*/{
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:649:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:638:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":/ "));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:650:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:639:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o0));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:648:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:637:/ block");
      /*block*/{}
      ;
      /*epilog*/}
@@ -7342,69 +7326,69 @@ MELT_LOCATION("warmelt-outobj.melt:641:/ block");
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:652:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:641:/ locexp");
    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\");"));}
    ;
-   MELT_LOCATION("warmelt-outobj.melt:643:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:632:/ block");
    /*block*/{}
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:643:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:632:/ clear");
    /*clear*/ /*_.MIXINT_VAL__V5*/ curfptr[4] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:643:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:632:/ clear");
    /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-outobj.melt:643:/ cond.else");
+ } else {MELT_LOCATION("warmelt-outobj.melt:632:/ cond.else");
  
-  MELT_LOCATION("warmelt-outobj.melt:643:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:632:/ block");
   /*block*/{
    /*_#IS_MIXLOC__L4*/ curfnum[2] = 
     (melt_magic_discr((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXLOC);;
-   MELT_LOCATION("warmelt-outobj.melt:654:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:643:/ cond");
    /*cond*/ if (/*_#IS_MIXLOC__L4*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:654:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:654:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:643:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:643:/ block");
     /*block*/{
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:655:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:644:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "MELT_LOCATION(\""));}
      ;
      /*_.MIXLOC_VAL__V7*/ curfptr[6] = 
       (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])));;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:656:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:645:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MIXLOC_VAL__V7*/ curfptr[6])));}
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:657:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:646:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":"));}
      ;
      /*_#GET_INT__L5*/ curfnum[4] = 
       (melt_get_int((melt_ptr_t)(/*_.LOC__V2*/ curfptr[1])));;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:658:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:647:/ locexp");
      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L5*/ curfnum[4]));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:659:/ cond");
+     MELT_LOCATION("warmelt-outobj.melt:648:/ cond");
      /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o0) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:659:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:659:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:648:/ cond.then");
+     MELT_LOCATION("warmelt-outobj.melt:648:/ block");
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:660:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:649:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":/ "));}
        ;
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:661:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:650:/ locexp");
        meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o0));}
        ;
-       MELT_LOCATION("warmelt-outobj.melt:659:/ block");
+       MELT_LOCATION("warmelt-outobj.melt:648:/ block");
        /*block*/{}
        ;
        /*epilog*/}
@@ -7413,58 +7397,58 @@ MELT_LOCATION("warmelt-outobj.melt:641:/ block");
      ;
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:663:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:652:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\");"));}
      ;
-     MELT_LOCATION("warmelt-outobj.melt:654:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:643:/ block");
      /*block*/{}
      ;
      /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:654:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:643:/ clear");
      /*clear*/ /*_.MIXLOC_VAL__V7*/ curfptr[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:654:/ clear");
+     MELT_LOCATION("warmelt-outobj.melt:643:/ clear");
      /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;}
     ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:654:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:643:/ cond.else");
    
     /*_.IFELSE___V6*/ curfptr[4] = NULL;;
     }
    ;
    /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:643:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:632:/ clear");
    /*clear*/ /*_#IS_MIXLOC__L4*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:643:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:632:/ clear");
    /*clear*/ /*_.IFELSE___V6*/ curfptr[4] = 0 ;}
   ;
   }
  ;
- MELT_LOCATION("warmelt-outobj.melt:666:/ apply");
+ MELT_LOCATION("warmelt-outobj.melt:655:/ apply");
  /*apply*/{
   union meltparam_un argtab[3];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:666:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:655:/ apply.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V3*/ curfptr[2];
-  MELT_LOCATION("warmelt-outobj.melt:666:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:655:/ apply.arg");
   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-  MELT_LOCATION("warmelt-outobj.melt:666:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:655:/ apply.arg");
   argtab[2].bp_cstring = /*_?*/ curfram__.loc_CSTRING__o0;
   /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LOC__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  ;
- MELT_LOCATION("warmelt-outobj.melt:641:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-outobj.melt:641:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:630:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:641:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ clear");
  /*clear*/ /*_#IS_MIXINT__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:641:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ clear");
  /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:641:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ clear");
  /*clear*/ /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6] = 0 ;}
 
 ;
@@ -7525,11 +7509,11 @@ melt_trace_start("OUTPUT_CURFRAME_DECLSTRUCT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:671:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ getarg");
  /*_.ROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:671:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.DSBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2])) != NULL);
@@ -7538,19 +7522,19 @@ melt_trace_start("OUTPUT_CURFRAME_DECLSTRUCT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:671:/ block");
+MELT_LOCATION("warmelt-outobj.melt:660:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-outobj.melt:672:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:661:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:673:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:662:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.OBODY__V4*/ curfptr[3] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:674:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:663:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 4, "OBROUT_NBVAL");/*_.ONBVAL__V5*/ curfptr[4] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:675:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:664:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 5, "OBROUT_NBLONG");/*_.ONBLONG__V6*/ curfptr[5] = slot; };
   ;
@@ -7560,114 +7544,114 @@ MELT_LOCATION("warmelt-outobj.melt:671:/ block");
    (melt_get_int((melt_ptr_t)(/*_.ONBLONG__V6*/ curfptr[5])));;
   /*_#ISINITIAL__L3*/ curfnum[2] = 
    melt_is_instance_of((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));;
-  MELT_LOCATION("warmelt-outobj.melt:679:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:668:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 6, "OBROUT_OTHERS");/*_.OTHERS__V7*/ curfptr[6] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:682:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:671:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:683:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:672:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct "));}
   ;
   /*_#IS_A__L4*/ curfnum[3] = 
    melt_is_instance_of((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:684:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:673:/ cond");
   /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:684:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:684:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:673:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:673:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:686:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:675:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "frame_"));}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:687:/ getslot");
+    MELT_LOCATION("warmelt-outobj.melt:676:/ getslot");
     { melt_ptr_t slot=0;
      melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; };
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:687:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:676:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:688:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:677:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "_st "));}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:685:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:674:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:684:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:673:/ clear");
     /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:689:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:678:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "{ unsigned nbvar;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:690:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:679:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:691:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:680:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#if ENABLE_CHECKING"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:692:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:681:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:693:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:682:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  const char* flocs;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:694:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:683:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:695:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:684:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#endif"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:696:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:685:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:699:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:688:/ cond");
   /*cond*/ if (/*_#ISINITIAL__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:699:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:699:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:688:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:688:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:700:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:689:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  struct meltclosure_st *noinitialclos;"));}
     ;
     /*epilog*/}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:699:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:688:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:699:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:688:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:701:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:690:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  struct meltclosure_st *clos;"));}
     ;
     /*epilog*/}
@@ -7676,101 +7660,101 @@ MELT_LOCATION("warmelt-outobj.melt:671:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:702:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:691:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:703:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:692:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  struct excepth_melt_st *exh;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:704:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:693:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:705:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:694:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  struct callframe_melt_st *prev;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:706:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:695:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   /*_#I__L5*/ curfnum[4] = 
    ((/*_#NBVAL__L1*/ curfnum[0]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:707:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:696:/ cond");
   /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:707:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:707:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:696:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:696:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:709:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:698:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARPTR "));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:710:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:699:/ locexp");
     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBVAL__L1*/ curfnum[0]));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:711:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:700:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:712:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:701:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  void* varptr["));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:713:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:702:/ locexp");
     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBVAL__L1*/ curfnum[0]));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:714:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:703:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "];"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:715:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:704:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:708:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:697:/ block");
     /*block*/{}
     ;
     /*epilog*/}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:707:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:696:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:707:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:696:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:717:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:706:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no varptr*/"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:718:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:707:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:719:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:708:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARPTR /*none*/0"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:720:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:709:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:716:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:705:/ block");
     /*block*/{}
     ;
     /*epilog*/}
@@ -7779,104 +7763,104 @@ MELT_LOCATION("warmelt-outobj.melt:671:/ block");
   ;
   /*_#I__L6*/ curfnum[5] = 
    ((/*_#NBLONG__L2*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:721:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:710:/ cond");
   /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:721:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:721:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:710:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:710:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:723:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:712:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARNUM "));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:724:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:713:/ locexp");
     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBLONG__L2*/ curfnum[1]));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:725:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:714:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:726:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:715:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  long varnum["));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:727:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:716:/ locexp");
     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBLONG__L2*/ curfnum[1]));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:728:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:717:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "];"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:729:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:718:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:722:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:711:/ block");
     /*block*/{}
     ;
     /*epilog*/}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:721:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:710:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:721:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:710:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:731:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:720:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no varnum*/"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:732:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:721:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:733:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:722:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARNUM /*none*/0"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:734:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:723:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:730:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:719:/ block");
     /*block*/{}
     ;
     /*epilog*/}
    ;
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:735:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:724:/ cond");
   /*cond*/ if (/*_.OTHERS__V7*/ curfptr[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:735:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:735:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:724:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:724:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:738:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:727:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*others*/"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:739:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:728:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:742:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:731:/ block");
     /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:742:/ newclosure");
+     MELT_LOCATION("warmelt-outobj.melt:731:/ newclosure");
       /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
       meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (1));
      ;
-     MELT_LOCATION("warmelt-outobj.melt:742:/ putclosedv");
+     MELT_LOCATION("warmelt-outobj.melt:731:/ putclosedv");
      /*putclosv*/
      melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
      melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
@@ -7884,43 +7868,43 @@ MELT_LOCATION("warmelt-outobj.melt:671:/ block");
      ;
      /*_.LAMBDA___V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:740:/ apply");
+    MELT_LOCATION("warmelt-outobj.melt:729:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:740:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:729:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[9];
      /*_.LIST_EVERY__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OTHERS__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    MELT_LOCATION("warmelt-outobj.melt:736:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:725:/ block");
     /*block*/{
      /*_.PROGN___V13*/ curfptr[12] = /*_.LIST_EVERY__V12*/ curfptr[11];;}
     ;
     /*_.IFELSE___V9*/ curfptr[7] = /*_.PROGN___V13*/ curfptr[12];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:735:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:724:/ clear");
     /*clear*/ /*_.LAMBDA___V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:735:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:724:/ clear");
     /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:735:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:724:/ clear");
     /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:735:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:724:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:735:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:724:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:756:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:745:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no others*/"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:757:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:746:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:755:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:744:/ block");
     /*block*/{}
     ;
     /*epilog*/}
@@ -7929,36 +7913,36 @@ MELT_LOCATION("warmelt-outobj.melt:671:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:759:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:748:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "  long _spare_; }"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:760:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:749:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_.OBODY__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_.ONBVAL__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_.ONBLONG__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_#NBVAL__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_#NBLONG__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_#ISINITIAL__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_.OTHERS__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:672:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:661:/ clear");
   /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;}
  ;
  /*epilog*/}
@@ -8021,35 +8005,35 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:742:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:731:/ getarg");
  /*_.OLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:742:/ block");
+MELT_LOCATION("warmelt-outobj.melt:731:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:743:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:743:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:732:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:732:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:743:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:732:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:743:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:732:/ cond.then");
    /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:743:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:732:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:743:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:732:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:743:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:732:/ locexp");
       melt_assert_failed(( "check other oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (743)?(743):__LINE__, __FUNCTION__);
+  (732)?(732):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
@@ -8060,47 +8044,47 @@ MELT_LOCATION("warmelt-outobj.melt:742:/ block");
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:743:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:732:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:743:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:732:/ clear");
    /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:743:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:732:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:744:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:733:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:744:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:733:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OCTYP__V5*/ curfptr[3] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:745:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:734:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.ONAME__V6*/ curfptr[5] = slot; };
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:747:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:747:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:736:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:736:/ block");
    /*block*/{
     /*_#IS_A__L2*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OCTYP__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-outobj.melt:747:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:736:/ cond");
     /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:747:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:736:/ cond.then");
     /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:747:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:736:/ cond.else");
     
-     MELT_LOCATION("warmelt-outobj.melt:747:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:736:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:747:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:736:/ locexp");
        melt_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (747)?(747):__LINE__, __FUNCTION__);
+  (736)?(736):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
@@ -8111,57 +8095,57 @@ MELT_LOCATION("warmelt-outobj.melt:742:/ block");
     ;
     /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:747:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:736:/ clear");
     /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:747:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:736:/ clear");
     /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:747:/ cppif.else");
+   MELT_LOCATION("warmelt-outobj.melt:736:/ cppif.else");
   /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-outobj.melt:748:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:737:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V5*/ curfptr[3]), 3, "CTYPE_CNAME");/*_.CTYPE_CNAME__V9*/ curfptr[7] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:748:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:737:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V9*/ curfptr[7])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:749:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:738:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), ( " "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:750:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:739:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.ONAME__V6*/ curfptr[5])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:751:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:740:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:752:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:741:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)((/*~DSBUF*/ curfclos->tabval[0])), (0), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:744:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:733:/ clear");
   /*clear*/ /*_.OCTYP__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:744:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:733:/ clear");
   /*clear*/ /*_.ONAME__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:744:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:733:/ clear");
   /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:744:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:733:/ clear");
   /*clear*/ /*_.CTYPE_CNAME__V9*/ curfptr[7] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:742:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:731:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -8222,11 +8206,11 @@ melt_trace_start("OUTPUCOD_MARKER", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:766:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ getarg");
  /*_.ROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:766:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL);
@@ -8235,29 +8219,29 @@ melt_trace_start("OUTPUCOD_MARKER", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:766:/ block");
+MELT_LOCATION("warmelt-outobj.melt:755:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:767:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:767:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:756:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:756:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:767:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:756:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:767:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:756:/ cond.then");
    /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:767:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:756:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:767:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:756:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:767:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:756:/ locexp");
       melt_assert_failed(( "check rou"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (767)?(767):__LINE__, __FUNCTION__);
+  (756)?(756):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
@@ -8268,38 +8252,38 @@ MELT_LOCATION("warmelt-outobj.melt:766:/ block");
    ;
    /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:767:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:756:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:767:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:756:/ clear");
    /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:767:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:756:/ cppif.else");
  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:768:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:757:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:768:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:768:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:768:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 6, "OBROUT_OTHERS");/*_.OTHERS__V7*/ curfptr[6] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:768:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:757:/ cond.else");
   
    /*_.OTHERS__V7*/ curfptr[6] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:769:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:758:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:769:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:769:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:758:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:758:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 4, "OBROUT_NBVAL");/*_.OBROUT_NBVAL__V8*/ curfptr[7] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:769:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:758:/ cond.else");
   
    /*_.OBROUT_NBVAL__V8*/ curfptr[7] = NULL;;
    }
@@ -8308,111 +8292,111 @@ MELT_LOCATION("warmelt-outobj.melt:766:/ block");
    (melt_get_int((melt_ptr_t)(/*_.OBROUT_NBVAL__V8*/ curfptr[7])));;
   /*_#IS_NOT_A__L3*/ curfnum[2] = 
    !melt_is_instance_of((melt_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:771:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:760:/ cond");
   /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:771:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:771:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:760:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:760:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:773:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:762:/ cond");
     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:773:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:773:/ getslot");
+    MELT_LOCATION("warmelt-outobj.melt:762:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:762:/ getslot");
      { melt_ptr_t slot=0;
       melt_object_get_field(slot,(melt_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), 8, "CTYPE_MARKER");/*_.CTYPE_MARKER__V9*/ curfptr[8] = slot; };
      ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:773:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:762:/ cond.else");
     
      /*_.CTYPE_MARKER__V9*/ curfptr[8] = NULL;;
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:773:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:762:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CTYPE_MARKER__V9*/ curfptr[8])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:774:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:763:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " (framptr_->clos);"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:775:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:764:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (3), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:772:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:761:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:771:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:760:/ clear");
     /*clear*/ /*_.CTYPE_MARKER__V9*/ curfptr[8] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:776:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:765:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "for(ix=0; ix<"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:777:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:766:/ locexp");
   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#NBVAL__L2*/ curfnum[0]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:778:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:767:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "; ix++)"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:779:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:768:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (4), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:780:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:769:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "if (framptr_->varptr[ix])"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:781:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:770:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (5), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:782:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:771:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:782:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:782:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:771:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:771:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), 8, "CTYPE_MARKER");/*_.CTYPE_MARKER__V10*/ curfptr[8] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:782:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:771:/ cond.else");
   
    /*_.CTYPE_MARKER__V10*/ curfptr[8] = NULL;;
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:782:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:771:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.CTYPE_MARKER__V10*/ curfptr[8])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:783:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:772:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " (framptr_->varptr[ix]);"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:784:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:773:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (3), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:787:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:776:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:787:/ newclosure");
+   MELT_LOCATION("warmelt-outobj.melt:776:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V12*/ curfptr[11] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1));
    ;
-   MELT_LOCATION("warmelt-outobj.melt:787:/ putclosedv");
+   MELT_LOCATION("warmelt-outobj.melt:776:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11])));
@@ -8420,43 +8404,43 @@ MELT_LOCATION("warmelt-outobj.melt:766:/ block");
    ;
    /*_.LAMBDA___V11*/ curfptr[10] = /*_.LAMBDA___V12*/ curfptr[11];;}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:785:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:774:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:785:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:774:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V11*/ curfptr[10];
    /*_.LIST_EVERY__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OTHERS__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*_.LET___V6*/ curfptr[4] = /*_.LIST_EVERY__V13*/ curfptr[12];;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_.OTHERS__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_.OBROUT_NBVAL__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_#NBVAL__L2*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_.CTYPE_MARKER__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:768:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:757:/ clear");
   /*clear*/ /*_.LIST_EVERY__V13*/ curfptr[12] = 0 ;}
  ;
- MELT_LOCATION("warmelt-outobj.melt:766:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];;
-  MELT_LOCATION("warmelt-outobj.melt:766:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:755:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:766:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ clear");
  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:766:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ clear");
  /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;}
 
 ;
@@ -8517,35 +8501,35 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:787:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ getarg");
  /*_.OLOC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:787:/ block");
+MELT_LOCATION("warmelt-outobj.melt:776:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:788:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:788:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:777:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:777:/ block");
   /*block*/{
    /*_#IS_A__L1*/ curfnum[0] = 
     melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:788:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:777:/ cond");
    /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:788:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:777:/ cond.then");
    /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:788:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:777:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:788:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:777:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:788:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:777:/ locexp");
       melt_assert_failed(( "check other oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (788)?(788):__LINE__, __FUNCTION__);
+  (777)?(777):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
@@ -8556,75 +8540,75 @@ MELT_LOCATION("warmelt-outobj.melt:787:/ block");
    ;
    /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:788:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:777:/ clear");
    /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:788:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:777:/ clear");
    /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:788:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:777:/ cppif.else");
  /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:789:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:778:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:789:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:789:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:789:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OCTYP__V6*/ curfptr[5] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:789:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:778:/ cond.else");
   
    /*_.OCTYP__V6*/ curfptr[5] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:790:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:779:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:790:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:790:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:779:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:779:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.ONAME__V7*/ curfptr[6] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:790:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:779:/ cond.else");
   
    /*_.ONAME__V7*/ curfptr[6] = NULL;;
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:791:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:780:/ cond");
   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OCTYP__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:791:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:791:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:780:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:780:/ getslot");
    { melt_ptr_t slot=0;
     melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V6*/ curfptr[5]), 8, "CTYPE_MARKER");/*_.OMARKER__V8*/ curfptr[7] = slot; };
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:791:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:780:/ cond.else");
   
    /*_.OMARKER__V8*/ curfptr[7] = NULL;;
    }
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:793:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:793:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:782:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:782:/ block");
    /*block*/{
     /*_#IS_A__L2*/ curfnum[0] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OCTYP__V6*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:793:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:782:/ cond");
     /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:793:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:782:/ cond.then");
     /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:793:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:782:/ cond.else");
     
-     MELT_LOCATION("warmelt-outobj.melt:793:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:782:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:793:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:782:/ locexp");
        melt_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (793)?(793):__LINE__, __FUNCTION__);
+  (782)?(782):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
@@ -8635,178 +8619,178 @@ MELT_LOCATION("warmelt-outobj.melt:787:/ block");
     ;
     /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:793:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:782:/ clear");
     /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:793:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:782:/ clear");
     /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:793:/ cppif.else");
+   MELT_LOCATION("warmelt-outobj.melt:782:/ cppif.else");
   /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*_#IS_STRING__L3*/ curfnum[0] = 
    (melt_magic_discr((melt_ptr_t)(/*_.OMARKER__V8*/ curfptr[7])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-outobj.melt:795:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:784:/ cond");
   /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:795:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:795:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:784:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:784:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:796:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:785:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "if (framptr_->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:797:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:786:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.ONAME__V7*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:798:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:787:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ") "));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:799:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:788:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.OMARKER__V8*/ curfptr[7])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:800:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:789:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " (framptr_->"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:801:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:790:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.ONAME__V7*/ curfptr[6])));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:802:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:791:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ");"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:803:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:792:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (3), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:795:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:784:/ block");
     /*block*/{}
     ;
     /*epilog*/}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:795:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:784:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:795:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:784:/ block");
    /*block*/{
     /*_#IS_A__L4*/ curfnum[3] = 
      melt_is_instance_of((melt_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:805:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:794:/ cond");
     /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:805:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:805:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:794:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:794:/ block");
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:806:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:795:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "if (framptr_->"));}
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:807:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:796:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.ONAME__V7*/ curfptr[6])));}
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:808:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:797:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ") "));}
       ;
-      MELT_LOCATION("warmelt-outobj.melt:809:/ cond");
+      MELT_LOCATION("warmelt-outobj.melt:798:/ cond");
       /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[3])))) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:809:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:809:/ getslot");
+      MELT_LOCATION("warmelt-outobj.melt:798:/ cond.then");
+      MELT_LOCATION("warmelt-outobj.melt:798:/ getslot");
        { melt_ptr_t slot=0;
         melt_object_get_field(slot,(melt_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
        ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:809:/ cond.else");
+      } else {MELT_LOCATION("warmelt-outobj.melt:798:/ cond.else");
       
        /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;;
        }
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:809:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:798:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12])));}
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:810:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:799:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " (framptr_->"));}
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:811:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:800:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.ONAME__V7*/ curfptr[6])));}
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:812:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:801:/ locexp");
       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ");"));}
       ;
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:813:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:802:/ locexp");
       meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (3), 0);}
       ;
-      MELT_LOCATION("warmelt-outobj.melt:805:/ block");
+      MELT_LOCATION("warmelt-outobj.melt:794:/ block");
       /*block*/{}
       ;
       /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:805:/ clear");
+      MELT_LOCATION("warmelt-outobj.melt:794:/ clear");
       /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;}
      ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:805:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:794:/ cond.else");
     
      /*_.IFELSE___V12*/ curfptr[11] = NULL;;
      }
     ;
     /*_.IFELSE___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:795:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:784:/ clear");
     /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:795:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:784:/ clear");
     /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
    ;
    }
   ;
   /*_.LET___V5*/ curfptr[3] = /*_.IFELSE___V11*/ curfptr[9];;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:789:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ clear");
   /*clear*/ /*_.OCTYP__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:789:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ clear");
   /*clear*/ /*_.ONAME__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:789:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ clear");
   /*clear*/ /*_.OMARKER__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:789:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ clear");
   /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:789:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ clear");
   /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:789:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:778:/ clear");
   /*clear*/ /*_.IFELSE___V11*/ curfptr[9] = 0 ;}
  ;
- MELT_LOCATION("warmelt-outobj.melt:787:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];;
-  MELT_LOCATION("warmelt-outobj.melt:787:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:776:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:787:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ clear");
  /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:787:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ clear");
  /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;}
 
 ;
@@ -8867,18 +8851,18 @@ melt_trace_start("OUTPUT_CURFRAME_DECLSTRUCT_INIT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:820:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:809:/ getarg");
  /*_.DECLSTRUCT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:820:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:809:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.ROU__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.ROU__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:820:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:809:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
@@ -8887,19 +8871,19 @@ melt_trace_start("OUTPUT_CURFRAME_DECLSTRUCT_INIT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:820:/ block");
+MELT_LOCATION("warmelt-outobj.melt:809:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-outobj.melt:822:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:811:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:823:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:812:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 3, "OBROUT_BODY");/*_.OBODY__V5*/ curfptr[4] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:824:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:813:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 4, "OBROUT_NBVAL");/*_.ONBVAL__V6*/ curfptr[5] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:825:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:814:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 5, "OBROUT_NBLONG");/*_.ONBLONG__V7*/ curfptr[6] = slot; };
   ;
@@ -8909,104 +8893,104 @@ MELT_LOCATION("warmelt-outobj.melt:820:/ block");
    (melt_get_int((melt_ptr_t)(/*_.ONBLONG__V7*/ curfptr[6])));;
   /*_#ISINITIAL__L3*/ curfnum[2] = 
    melt_is_instance_of((melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));;
-  MELT_LOCATION("warmelt-outobj.melt:829:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:818:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 6, "OBROUT_OTHERS");/*_.OTHERS__V8*/ curfptr[7] = slot; };
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:832:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:821:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:833:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:822:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if ENABLE_CHECKING"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:834:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:823:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:835:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:824:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " static long call_counter__;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:836:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:825:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:837:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:826:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:838:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:827:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:839:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:828:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define callcount thiscallcounter__"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:840:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:829:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:841:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:830:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:842:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:831:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:843:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:832:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define callcount 0L"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:844:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:833:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:845:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:834:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:846:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:835:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:847:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:836:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:847:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:836:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
    /*_.DECLSTRUCT__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)(/*_.DECLSTRUCT__V2*/ curfptr[1]), (melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*_#NOT__L4*/ curfnum[3] = 
    (!(/*_#ISINITIAL__L3*/ curfnum[2]));;
-  MELT_LOCATION("warmelt-outobj.melt:848:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:837:/ cond");
   /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:848:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:848:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:837:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:837:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:849:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:838:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "    *framptr_=0,"));}
     ;
     /*epilog*/}
@@ -9015,137 +8999,137 @@ MELT_LOCATION("warmelt-outobj.melt:820:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:850:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:839:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "    curfram__;"));}
   ;
   /*_#NOT__L5*/ curfnum[4] = 
    (!(/*_#ISINITIAL__L3*/ curfnum[2]));;
-  MELT_LOCATION("warmelt-outobj.melt:851:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:840:/ cond");
   /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:851:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:851:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:840:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:840:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:853:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:842:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (2), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:854:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:843:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:855:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:844:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:856:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:845:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:857:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:846:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:858:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:847:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "framptr_ = (void*)firstargp_;"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:859:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:848:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:860:/ apply");
+    MELT_LOCATION("warmelt-outobj.melt:849:/ apply");
     /*apply*/{
      union meltparam_un argtab[1];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:860:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:849:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
      /*_.OUTPUCOD_MARKER__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUCOD_MARKER*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ROU__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:861:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:850:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "return NULL;"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:862:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:851:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (2), 0);}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:863:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:852:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}/*end markggc*/;"));}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:852:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:841:/ block");
     /*block*/{}
     ;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:851:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:840:/ clear");
     /*clear*/ /*_.OUTPUCOD_MARKER__V10*/ curfptr[9] = 0 ;}
    ;
   } /*noelse*/
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:866:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:855:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:867:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:856:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "  memset(&curfram__, 0, sizeof(curfram__));"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:868:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:857:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:869:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:858:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.nbvar = "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:870:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:859:/ locexp");
   meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBVAL__L1*/ curfnum[0]));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:871:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:860:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:872:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:861:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   /*_#NOT__L6*/ curfnum[5] = 
    (!(/*_#ISINITIAL__L3*/ curfnum[2]));;
-  MELT_LOCATION("warmelt-outobj.melt:873:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:862:/ cond");
   /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:873:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:873:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:862:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:862:/ block");
    /*block*/{
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:875:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:864:/ locexp");
     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "  curfram__.clos = closp_;"));}
     ;
     
     {
-    MELT_LOCATION("warmelt-outobj.melt:876:/ locexp");
+    MELT_LOCATION("warmelt-outobj.melt:865:/ locexp");
     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
     ;
-    MELT_LOCATION("warmelt-outobj.melt:874:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:863:/ block");
     /*block*/{}
     ;
     /*epilog*/}
@@ -9154,46 +9138,46 @@ MELT_LOCATION("warmelt-outobj.melt:820:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:877:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:866:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.prev = (struct callframe_melt_st *) melt_topframe;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:878:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:867:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:879:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:868:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " melt_topframe = (struct callframe_melt_st *) &curfram__;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:880:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:869:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_.OBODY__V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_.ONBVAL__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_.ONBLONG__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_#NBVAL__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_#NBLONG__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_#ISINITIAL__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_.OTHERS__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_.DECLSTRUCT__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:822:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:811:/ clear");
   /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ;}
  ;
  /*epilog*/}
@@ -9256,54 +9240,54 @@ melt_trace_start("OUTPUCOD_PROCROUTINE", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:884:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ getarg");
  /*_.PROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:884:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
  
  
  /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:884:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ getarg");
  if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
  
  
  /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:884:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ getarg");
  if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
  /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:884:/ block");
+MELT_LOCATION("warmelt-outobj.melt:873:/ block");
 /*block*/{
  
  #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:885:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:885:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:874:/ cppif.then");
+ MELT_LOCATION("warmelt-outobj.melt:874:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[1] = 
     melt_is_instance_of((melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:885:/ cond");
+   MELT_LOCATION("warmelt-outobj.melt:874:/ cond");
    /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:885:/ cond.then");
+   MELT_LOCATION("warmelt-outobj.melt:874:/ cond.then");
    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:885:/ cond.else");
+   } else {MELT_LOCATION("warmelt-outobj.melt:874:/ cond.else");
    
-    MELT_LOCATION("warmelt-outobj.melt:885:/ block");
+    MELT_LOCATION("warmelt-outobj.melt:874:/ block");
     /*block*/{
      /*block*/{
       
       {
-      MELT_LOCATION("warmelt-outobj.melt:885:/ locexp");
+      MELT_LOCATION("warmelt-outobj.melt:874:/ locexp");
       melt_assert_failed(( "check prou"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (885)?(885):__LINE__, __FUNCTION__);
+  (874)?(874):__LINE__, __FUNCTION__);
 ;}
       ;
       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
@@ -9314,31 +9298,31 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
    ;
    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:885:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:874:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:885:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:874:/ clear");
    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
   
   #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:885:/ cppif.else");
+  MELT_LOCATION("warmelt-outobj.melt:874:/ cppif.else");
  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
   #endif /*ENABLE_CHECKING*/
   ;
- MELT_LOCATION("warmelt-outobj.melt:886:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:875:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:886:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V7*/ curfptr[5] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:887:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:876:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.OBODY__V8*/ curfptr[7] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:888:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:877:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 4, "OBROUT_NBVAL");/*_.ONBVAL__V9*/ curfptr[8] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:889:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:878:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 5, "OBROUT_NBLONG");/*_.ONBLONG__V10*/ curfptr[9] = slot; };
   ;
@@ -9346,23 +9330,23 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
    (melt_get_int((melt_ptr_t)(/*_.ONBVAL__V9*/ curfptr[8])));;
   /*_#NBLONG__L4*/ curfnum[3] = 
    (melt_get_int((melt_ptr_t)(/*_.ONBLONG__V10*/ curfptr[9])));;
-  MELT_LOCATION("warmelt-outobj.melt:892:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:881:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 6, "OBROUT_OTHERS");/*_.OTHERS__V11*/ curfptr[10] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:893:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:882:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 9, "OPROUT_GETARGS");/*_.OGARGS__V12*/ curfptr[11] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:894:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:883:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 7, "OBROUT_RETVAL");/*_.ORETVAL__V13*/ curfptr[12] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:895:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:884:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 10, "OPROUT_LOC");/*_.ORLOC__V14*/ curfptr[13] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:896:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:885:/ getslot");
   { melt_ptr_t slot=0;
    melt_object_get_field(slot,(melt_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 11, "OPROUT_FUNAM");/*_.OFUNAM__V15*/ curfptr[14] = slot; };
   ;
@@ -9370,280 +9354,280 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
    (melt_magic_discr((melt_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14])) == OBMAG_STRING);;
   /*_#NOT__L6*/ curfnum[5] = 
    (!(/*_#IS_STRING__L5*/ curfnum[4]));;
-  MELT_LOCATION("warmelt-outobj.melt:899:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:888:/ cond");
   /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:899:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:899:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:888:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:888:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:900:/ compute");
+    MELT_LOCATION("warmelt-outobj.melt:889:/ compute");
     /*_.OFUNAM__V15*/ curfptr[14] = /*_.SETQ___V17*/ curfptr[16] = (/*!konst_1*/ curfrout->tabval[1]);;
     /*_.IF___V16*/ curfptr[15] = /*_.SETQ___V17*/ curfptr[16];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:899:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:888:/ clear");
     /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:899:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:888:/ cond.else");
   
    /*_.IF___V16*/ curfptr[15] = NULL;;
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:902:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:891:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:903:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:892:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:904:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:893:/ apply");
   /*apply*/{
    union meltparam_un argtab[3];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:904:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:893:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:904:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:893:/ apply.arg");
    argtab[1].bp_long = 0;
-   MELT_LOCATION("warmelt-outobj.melt:904:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:893:/ apply.arg");
    argtab[2].bp_cstring =  "proc";
    /*_.OUTPUT_RAW_LOCATION__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ORLOC__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:905:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:894:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   /*_#IS_MIXINT__L7*/ curfnum[6] = 
    (melt_magic_discr((melt_ptr_t)(/*_.ORLOC__V14*/ curfptr[13])) == OBMAG_MIXINT);;
-  MELT_LOCATION("warmelt-outobj.melt:906:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:895:/ cond");
   /*cond*/ if (/*_#IS_MIXINT__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:906:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:895:/ cond.then");
   /*_#OR___L8*/ curfnum[7] = /*_#IS_MIXINT__L7*/ curfnum[6];;
-  } else {MELT_LOCATION("warmelt-outobj.melt:906:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:895:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:906:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:895:/ block");
    /*block*/{
     /*_#IS_MIXLOC__L9*/ curfnum[8] = 
      (melt_magic_discr((melt_ptr_t)(/*_.ORLOC__V14*/ curfptr[13])) == OBMAG_MIXLOC);;
     /*_#OR___L8*/ curfnum[7] = /*_#IS_MIXLOC__L9*/ curfnum[8];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:906:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:895:/ clear");
     /*clear*/ /*_#IS_MIXLOC__L9*/ curfnum[8] = 0 ;}
    ;
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:906:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:895:/ cond");
   /*cond*/ if (/*_#OR___L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:906:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:906:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:895:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:895:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:907:/ apply");
+    MELT_LOCATION("warmelt-outobj.melt:896:/ apply");
     /*apply*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:907:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:896:/ apply.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:907:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:896:/ apply.arg");
      argtab[1].bp_long = 0;
-     MELT_LOCATION("warmelt-outobj.melt:907:/ apply.arg");
+     MELT_LOCATION("warmelt-outobj.melt:896:/ apply.arg");
      argtab[2].bp_cstring =  "procdecl";
      /*_.OUTPUT_RAW_LOCATION__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ORLOC__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IF___V19*/ curfptr[18] = /*_.OUTPUT_RAW_LOCATION__V20*/ curfptr[19];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:906:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:895:/ clear");
     /*clear*/ /*_.OUTPUT_RAW_LOCATION__V20*/ curfptr[19] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:906:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:895:/ cond.else");
   
    /*_.IF___V19*/ curfptr[18] = NULL;;
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:909:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:898:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "melt_ptr_t MELT_MODULE_VISIBILITY "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:910:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:899:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ curfptr[5])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:911:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:900:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "(meltclosure_ptr_t closp_,"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:912:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:901:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " melt_ptr_t firstargp_,"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:913:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:902:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " const char xargdescr_[],"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:914:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:903:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " union meltparam_un *xargtab_,"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:915:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:904:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " const char xresdescr_[],"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:916:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:905:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( " union meltparam_un *xrestab_);"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:917:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:906:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:919:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:908:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:920:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:909:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:921:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:910:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:922:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:911:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_ptr_t MELT_MODULE_VISIBILITY "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:923:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:912:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:924:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:913:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ curfptr[5])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:925:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:914:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(meltclosure_ptr_t closp_,"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:926:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:915:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " melt_ptr_t firstargp_,"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:927:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:916:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " const char xargdescr_[],"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:928:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:917:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " union meltparam_un *xargtab_,"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:929:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:918:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (5), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:930:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:919:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " const char xresdescr_[],"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:931:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:920:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " union meltparam_un *xrestab_)"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:932:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:921:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:933:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:922:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:934:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:923:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:934:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:923:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PROU__V2*/ curfptr[1];
-   MELT_LOCATION("warmelt-outobj.melt:934:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:923:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
    /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ curfrout->tabval[3])), (melt_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:935:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:924:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_trace_start(\""));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:936:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:925:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:937:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:926:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", callcount);"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:938:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:927:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:940:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:929:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getargs*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:941:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:930:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:943:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:943:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:932:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:932:/ block");
    /*block*/{
     /*_#IS_MULTIPLE__L10*/ curfnum[8] = 
      (melt_magic_discr((melt_ptr_t)(/*_.OGARGS__V12*/ curfptr[11])) == OBMAG_MULTIPLE);;
-    MELT_LOCATION("warmelt-outobj.melt:943:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:932:/ cond");
     /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:943:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:932:/ cond.then");
     /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:943:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:932:/ cond.else");
     
-     MELT_LOCATION("warmelt-outobj.melt:943:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:932:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:943:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:932:/ locexp");
        melt_assert_failed(( "check ogargs"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (943)?(943):__LINE__, __FUNCTION__);
+  (932)?(932):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
@@ -9654,29 +9638,29 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
     ;
     /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:943:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:932:/ clear");
     /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:943:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:932:/ clear");
     /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:943:/ cppif.else");
+   MELT_LOCATION("warmelt-outobj.melt:932:/ cppif.else");
   /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
-  MELT_LOCATION("warmelt-outobj.melt:946:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:935:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:946:/ newclosure");
+   MELT_LOCATION("warmelt-outobj.melt:935:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2));
    ;
-   MELT_LOCATION("warmelt-outobj.melt:946:/ putclosedv");
+   MELT_LOCATION("warmelt-outobj.melt:935:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
    ;
-   MELT_LOCATION("warmelt-outobj.melt:946:/ putclosedv");
+   MELT_LOCATION("warmelt-outobj.melt:935:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24])));
@@ -9684,66 +9668,66 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
    ;
    /*_.LAMBDA___V24*/ curfptr[22] = /*_.LAMBDA___V25*/ curfptr[24];;}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:944:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:933:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:944:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:933:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[22];
    /*_.MULTIPLE_EVERY__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OGARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:954:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:943:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:955:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:944:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:956:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:945:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto lab_endgetargs;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:957:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:946:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:958:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:947:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "lab_endgetargs:;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:959:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:948:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:962:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:962:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:951:/ cppif.then");
+  MELT_LOCATION("warmelt-outobj.melt:951:/ block");
    /*block*/{
     /*_#IS_LIST__L11*/ curfnum[8] = 
      (melt_magic_discr((melt_ptr_t)(/*_.OBODY__V8*/ curfptr[7])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-outobj.melt:962:/ cond");
+    MELT_LOCATION("warmelt-outobj.melt:951:/ cond");
     /*cond*/ if (/*_#IS_LIST__L11*/ curfnum[8]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:962:/ cond.then");
+    MELT_LOCATION("warmelt-outobj.melt:951:/ cond.then");
     /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:962:/ cond.else");
+    } else {MELT_LOCATION("warmelt-outobj.melt:951:/ cond.else");
     
-     MELT_LOCATION("warmelt-outobj.melt:962:/ block");
+     MELT_LOCATION("warmelt-outobj.melt:951:/ block");
      /*block*/{
       /*block*/{
        
        {
-       MELT_LOCATION("warmelt-outobj.melt:962:/ locexp");
+       MELT_LOCATION("warmelt-outobj.melt:951:/ locexp");
        melt_assert_failed(( "check obody"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (962)?(962):__LINE__, __FUNCTION__);
+  (951)?(951):__LINE__, __FUNCTION__);
 ;}
        ;
        /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
@@ -9754,39 +9738,39 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
     ;
     /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:962:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:951:/ clear");
     /*clear*/ /*_#IS_LIST__L11*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:962:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:951:/ clear");
     /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:962:/ cppif.else");
+   MELT_LOCATION("warmelt-outobj.melt:951:/ cppif.else");
   /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:963:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:952:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*body*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:964:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:953:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:967:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:956:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:967:/ newclosure");
+   MELT_LOCATION("warmelt-outobj.melt:956:/ newclosure");
     /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] =
     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (2));
    ;
-   MELT_LOCATION("warmelt-outobj.melt:967:/ putclosedv");
+   MELT_LOCATION("warmelt-outobj.melt:956:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
    ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
    ;
-   MELT_LOCATION("warmelt-outobj.melt:967:/ putclosedv");
+   MELT_LOCATION("warmelt-outobj.melt:956:/ putclosedv");
    /*putclosv*/
    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE);
    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29])));
@@ -9794,106 +9778,106 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
    ;
    /*_.LAMBDA___V29*/ curfptr[27] = /*_.LAMBDA___V30*/ curfptr[29];;}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:965:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:954:/ apply");
   /*apply*/{
    union meltparam_un argtab[1];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:965:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:954:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[27];
    /*_.LIST_EVERY__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.OBODY__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:973:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:962:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:974:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:963:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:975:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:964:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:976:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:965:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:977:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:966:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout:"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:978:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:967:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:979:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:968:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_trace_end(\""));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:980:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:969:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:981:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:970:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", callcount);"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:982:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:971:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "  melt_topframe = (struct callframe_melt_st*) curfram__.prev;"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:983:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:972:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:984:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:973:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return (melt_ptr_t)("));}
   ;
-  MELT_LOCATION("warmelt-outobj.melt:985:/ cond");
+  MELT_LOCATION("warmelt-outobj.melt:974:/ cond");
   /*cond*/ if (/*_.ORETVAL__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:985:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:985:/ block");
+  MELT_LOCATION("warmelt-outobj.melt:974:/ cond.then");
+  MELT_LOCATION("warmelt-outobj.melt:974:/ block");
    /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:986:/ msend");
+    MELT_LOCATION("warmelt-outobj.melt:975:/ msend");
     /*msend*/{
      union meltparam_un argtab[3];
      memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:986:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:975:/ ojbmsend.arg");
      argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:986:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:975:/ ojbmsend.arg");
      argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:986:/ ojbmsend.arg");
+     MELT_LOCATION("warmelt-outobj.melt:975:/ ojbmsend.arg");
      argtab[2].bp_long = 1;
      /*_.OUTPUT_C_CODE__V33*/ curfptr[32] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
     /*_.IFELSE___V32*/ curfptr[31] = /*_.OUTPUT_C_CODE__V33*/ curfptr[32];;
     /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:985:/ clear");
+    MELT_LOCATION("warmelt-outobj.melt:974:/ clear");
     /*clear*/ /*_.OUTPUT_C_CODE__V33*/ curfptr[32] = 0 ;}
    ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:985:/ cond.else");
+  } else {MELT_LOCATION("warmelt-outobj.melt:974:/ cond.else");
   
-   MELT_LOCATION("warmelt-outobj.melt:985:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:974:/ block");
    /*block*/{
     /*block*/{
      
      {
-     MELT_LOCATION("warmelt-outobj.melt:987:/ locexp");
+     MELT_LOCATION("warmelt-outobj.melt:976:/ locexp");
      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL"));}
      ;
      /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
@@ -9904,127 +9888,125 @@ MELT_LOCATION("warmelt-outobj.melt:884:/ block");
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:988:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:977:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:989:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:978:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:990:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:979:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:991:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:980:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:992:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:981:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:993:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:982:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:994:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:983:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:995:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:984:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:996:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:985:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end "));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:997:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+  MELT_LOCATION("warmelt-outobj.melt:986:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ curfptr[5])));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:998:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:987:/ locexp");
   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:999:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:988:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   
   {
-  MELT_LOCATION("warmelt-outobj.melt:1000:/ locexp");
+  MELT_LOCATION("warmelt-outobj.melt:989:/ locexp");
   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.ONAM__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.OBODY__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.ONBVAL__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.ONBLONG__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_#NBVAL__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_#NBLONG__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.OTHERS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.OGARGS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.ORETVAL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.ORLOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.OFUNAM__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.OUTPUT_RAW_LOCATION__V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_#IS_MIXINT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.LAMBDA___V24*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.LAMBDA___V29*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.LIST_EVERY__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:886:/ clear");
+  MELT_LOCATION("warmelt-outobj.melt:875:/ clear");
   /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:884:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ clear");
  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
 
 ;
@@ -10085,68 +10067,66 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:946:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:935:/ getarg");
  /*_.CURGET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:946:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:935:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:946:/ block");
+MELT_LOCATION("warmelt-outobj.melt:935:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:947:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:936:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:948:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:937:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "/*getarg#"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:949:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
+ MELT_LOCATION("warmelt-outobj.melt:938:/ locexp");
  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#CURANK__L1*/ curfnum[0]));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:950:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:939:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "*/"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:951:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:940:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0);}
  ;
- MELT_LOCATION("warmelt-outobj.melt:952:/ msend");
+ MELT_LOCATION("warmelt-outobj.melt:941:/ msend");
  /*msend*/{
   union meltparam_un argtab[3];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:952:/ ojbmsend.arg");
+  MELT_LOCATION("warmelt-outobj.melt:941:/ ojbmsend.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:952:/ ojbmsend.arg");
+  MELT_LOCATION("warmelt-outobj.melt:941:/ ojbmsend.arg");
   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:952:/ ojbmsend.arg");
+  MELT_LOCATION("warmelt-outobj.melt:941:/ ojbmsend.arg");
   argtab[2].bp_long = 1;
   /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURGET__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
   }
  ;
- MELT_LOCATION("warmelt-outobj.melt:946:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:935:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:946:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:935:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:946:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:935:/ clear");
  /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -10207,18 +10187,18 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:967:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:956:/ getarg");
  /*_.CURBODY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:967:/ block");
+MELT_LOCATION("warmelt-outobj.melt:956:/ block");
 /*block*/{
- MELT_LOCATION("warmelt-outobj.melt:968:/ cond");
+ MELT_LOCATION("warmelt-outobj.melt:957:/ cond");
  /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:968:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:968:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:957:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:957:/ block");
   /*block*/{
    /*_#IS_A__L2*/ curfnum[1] = 
     melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
@@ -10226,50 +10206,50 @@ MELT_LOCATION("warmelt-outobj.melt:967:/ block");
     (!(/*_#IS_A__L2*/ curfnum[1]));;
    /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:968:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:957:/ clear");
    /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:968:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:957:/ clear");
    /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;}
   ;
- } else {MELT_LOCATION("warmelt-outobj.melt:968:/ cond.else");
+ } else {MELT_LOCATION("warmelt-outobj.melt:957:/ cond.else");
  
   /*_#IF___L1*/ curfnum[0] = 0;;
   }
  ;
- MELT_LOCATION("warmelt-outobj.melt:968:/ cond");
+ MELT_LOCATION("warmelt-outobj.melt:957:/ cond");
  /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:968:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:968:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:957:/ cond.then");
+ MELT_LOCATION("warmelt-outobj.melt:957:/ block");
   /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:970:/ msend");
+   MELT_LOCATION("warmelt-outobj.melt:959:/ msend");
    /*msend*/{
     union meltparam_un argtab[3];
     memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:970:/ ojbmsend.arg");
+    MELT_LOCATION("warmelt-outobj.melt:959:/ ojbmsend.arg");
     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-    MELT_LOCATION("warmelt-outobj.melt:970:/ ojbmsend.arg");
+    MELT_LOCATION("warmelt-outobj.melt:959:/ ojbmsend.arg");
     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-    MELT_LOCATION("warmelt-outobj.melt:970:/ ojbmsend.arg");
+    MELT_LOCATION("warmelt-outobj.melt:959:/ ojbmsend.arg");
     argtab[2].bp_long = 0;
     /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
     }
    ;
    
    {
-   MELT_LOCATION("warmelt-outobj.melt:971:/ locexp");
+   MELT_LOCATION("warmelt-outobj.melt:960:/ locexp");
    meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (0), 0);}
    ;
-   MELT_LOCATION("warmelt-outobj.melt:969:/ block");
+   MELT_LOCATION("warmelt-outobj.melt:958:/ block");
    /*block*/{}
    ;
    /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:968:/ clear");
+   MELT_LOCATION("warmelt-outobj.melt:957:/ clear");
    /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
   ;
  } /*noelse*/
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:967:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:956:/ clear");
  /*clear*/ /*_#IF___L1*/ curfnum[0] = 0 ;}
 
 ;
@@ -10330,11 +10310,11 @@ melt_trace_start("OUTPUT_CURFRAME_CDAT_STRUCT", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1008:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ getarg");
  /*_.IDATUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1008:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL);
@@ -10343,25 +10323,25 @@ melt_trace_start("OUTPUT_CURFRAME_CDAT_STRUCT", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:1008:/ block");
+MELT_LOCATION("warmelt-outobj.melt:997:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1009:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:998:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1010:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:999:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "struct cdata_st {"));}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1013:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1013:/ newclosure");
+  MELT_LOCATION("warmelt-outobj.melt:1002:/ newclosure");
    /*newclosure*/ /*_.LAMBDA___V5*/ curfptr[4] =
    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_2*/ curfrout->tabval[2])), (1));
   ;
-  MELT_LOCATION("warmelt-outobj.melt:1013:/ putclosedv");
+  MELT_LOCATION("warmelt-outobj.melt:1002:/ putclosedv");
   /*putclosv*/
   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V5*/ curfptr[4])) == OBMAG_CLOSURE);
   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V5*/ curfptr[4])));
@@ -10369,39 +10349,39 @@ MELT_LOCATION("warmelt-outobj.melt:1008:/ block");
   ;
   /*_.LAMBDA___V4*/ curfptr[3] = /*_.LAMBDA___V5*/ curfptr[4];;}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1011:/ apply");
+ MELT_LOCATION("warmelt-outobj.melt:1000:/ apply");
  /*apply*/{
   union meltparam_un argtab[1];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1011:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:1000:/ apply.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V4*/ curfptr[3];
   /*_.MULTIPLE_EVERY__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.IDATUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
   }
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1017:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1006:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1018:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1007:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " long spare_;"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1019:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1008:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1020:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1009:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "}"));}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1008:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ clear");
  /*clear*/ /*_.LAMBDA___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1008:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ clear");
  /*clear*/ /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = 0 ;}
 
 ;
@@ -10462,42 +10442,42 @@ melt_trace_start("LAMBDA_", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1013:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ getarg");
  /*_.CURDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1013:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ getarg");
  if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
  /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
  ;
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:1013:/ block");
+MELT_LOCATION("warmelt-outobj.melt:1002:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1015:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1004:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0);}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1016:/ msend");
+ MELT_LOCATION("warmelt-outobj.melt:1005:/ msend");
  /*msend*/{
   union meltparam_un argtab[1];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1016:/ ojbmsend.arg");
+  MELT_LOCATION("warmelt-outobj.melt:1005:/ ojbmsend.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]);
   /*_.OUTPUT_C_DECLINIT__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_DECLINIT*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
   }
  ;
- MELT_LOCATION("warmelt-outobj.melt:1013:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ block");
  /*block*/{
   /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_DECLINIT__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1013:/ finalreturn");
+  MELT_LOCATION("warmelt-outobj.melt:1002:/ finalreturn");
   ;
   /*finalret*/ goto labend_rout ;}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1013:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ clear");
  /*clear*/ /*_.OUTPUT_C_DECLINIT__V3*/ curfptr[2] = 0 ;}
 
 ;
@@ -10558,11 +10538,11 @@ melt_trace_start("OUTPUT_CURFRAME_CDAT_FILL", callcount);
 /*getargs*/
 
  /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1024:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ getarg");
  /*_.IDATUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
  
  /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1024:/ getarg");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ getarg");
  if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
  /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
  gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL);
@@ -10571,45 +10551,45 @@ melt_trace_start("OUTPUT_CURFRAME_CDAT_FILL", callcount);
  goto lab_endgetargs;
 lab_endgetargs:;
 /*body*/
-MELT_LOCATION("warmelt-outobj.melt:1024:/ block");
+MELT_LOCATION("warmelt-outobj.melt:1013:/ block");
 /*block*/{
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1026:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1015:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0);"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1027:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1016:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1028:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1017:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " melt_prohibit_garbcoll = TRUE;"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1029:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1018:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1032:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1021:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "/*initial routine predef*/"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1033:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1022:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0);}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1036:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1036:/ newclosure");
+  MELT_LOCATION("warmelt-outobj.melt:1025:/ newclosure");
    /*newclosure*/ /*_.LAMBDA___V5*/ curfptr[4] =
    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_2*/ curfrout->tabval[2])), (1));
   ;
-  MELT_LOCATION("warmelt-outobj.melt:1036:/ putclosedv");
+  MELT_LOCATION("warmelt-outobj.melt:1025:/ putclosedv");
   /*putclosv*/
   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V5*/ curfptr[4])) == OBMAG_CLOSURE);
   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V5*/ curfptr[4])));
@@ -10617,32 +10597,32 @@ MELT_LOCATION("warmelt-outobj.melt:1024:/ block");
   ;
   /*_.LAMBDA___V4*/ curfptr[3] = /*_.LAMBDA___V5*/ curfptr[4];;}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1034:/ apply");
+ MELT_LOCATION("warmelt-outobj.melt:1023:/ apply");
  /*apply*/{
   union meltparam_un argtab[1];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1034:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:1023:/ apply.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V4*/ curfptr[3];
   /*_.MULTIPLE_EVERY__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.IDATUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
   }
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1041:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1030:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "/*initial routine fill*/"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1042:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1031:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0);}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1045:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1045:/ newclosure");
+  MELT_LOCATION("warmelt-outobj.melt:1034:/ newclosure");
    /*newclosure*/ /*_.LAMBDA___V8*/ curfptr[7] =
    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1));
   ;
-  MELT_LOCATION("warmelt-outobj.melt:1045:/ putclosedv");
+  MELT_LOCATION("warmelt-outobj.melt:1034:/ putclosedv");
   /*putclosv*/
   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE);
   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7])));
@@ -10650,43 +10630,43 @@ MELT_LOCATION("warmelt-outobj.melt:1024:/ block");
   ;
   /*_.LAMBDA___V7*/ curfptr[6] = /*_.LAMBDA___V8*/ curfptr[7];;}
  ;
- MELT_LOCATION("warmelt-outobj.melt:1043:/ apply");
+ MELT_LOCATION("warmelt-outobj.melt:1032:/ apply");
  /*apply*/{
   union meltparam_un argtab[1];
   memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1043:/ apply.arg");
+  MELT_LOCATION("warmelt-outobj.melt:1032:/ apply.arg");
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V7*/ curfptr[6];
   /*_.MULTIPLE_EVERY__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.IDATUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
   }
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1053:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1042:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " cdat = NULL;"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1054:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1043:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1055:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1044:/ locexp");
  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " melt_prohibit_garbcoll = FALSE;"));}
  ;
  
  {
- MELT_LOCATION("warmelt-outobj.melt:1056:/ locexp");
+ MELT_LOCATION("warmelt-outobj.melt:1045:/ locexp");
  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0);}
  ;
  /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1024:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ clear");
  /*clear*/ /*_.LAMBDA___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1024:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ clear");
  /*clear*/ /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1024:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ clear");
  /*clear*/ /*_.LAMBDA___V7*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1024:/ clear");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ clear");
  /*clear*/ /*_.MULTIPLE_EVERY__V9*/ curfptr[8] = 0 ;}
 
 ;
@@ -10701,40257 +10681,6 @@ melt_trace_end("OUTPUT_CURFRAME_CDAT_FILL", callcount);  melt_topframe = (struct
 
 
 
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_37_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_37_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1036:/ getarg");
- /*_.CURPDAT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1036:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1036:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:1038:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1038:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]);
-  /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_INITPREDEF*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1036:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1036:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1036:/ clear");
- /*clear*/ /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_37_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_38_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_38_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1045:/ getarg");
- /*_.CURFIL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1045:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1045:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1047:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1048:/ msend");
- /*msend*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1048:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]);
-  /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURFIL__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_INITFILL*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1045:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1045:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1045:/ clear");
- /*clear*/ /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_38_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 27
-  void* varptr[27];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<27; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 27;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_INITIALROUTINE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1063:/ getarg");
- /*_.PINI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1063:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1063:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1063:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1063:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1064:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1064:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1064:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1064:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1064:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1064:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1064:/ locexp");
-      melt_assert_failed(( "check pini"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1064)?(1064):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1064:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1064:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1064:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1065:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1066:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 9, "OIROUT_DATA");/*_.IDATUP__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1067:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 11, "OIROUT_FILL");/*_.IRFILL__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1068:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 10, "OIROUT_PROLOG");/*_.IPROLOG__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1069:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 7, "OBROUT_RETVAL");/*_.ORETVAL__V10*/ curfptr[9] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1071:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1072:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1073:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* start_module_melt(void*);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1074:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1075:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void mark_module_melt(void*);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1076:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1077:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* initial_frame_melt;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1078:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1079:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1080:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1081:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "typedef "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1082:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1082:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1083:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " initial_frame_st;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1084:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1085:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1086:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1087:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "static void initialize_module_cdata(initial_frame_st *iniframp__, char predefinited[])"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1088:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1089:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1090:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1091:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define curfram__  (*iniframp__)"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1092:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1093:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1093:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_STRUCT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.IDATUP__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1094:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " *cdat = NULL;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1095:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1097:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1097:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_FILL*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.IDATUP__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1098:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1099:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef curfram__"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1100:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1101:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end initialize_module_cdata*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1102:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1103:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1104:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1105:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void* start_module_melt(void* modargp_) {"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1106:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1111:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1112:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "char predefinited[MELTGLOB__LASTGLOB+8];"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1113:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1116:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1116:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V15*/ curfptr[14] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (0));
-   ;
-   /*_.LAMBDA___V14*/ curfptr[13] = /*_.LAMBDA___V15*/ curfptr[14];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1115:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1115:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PINI__V2*/ curfptr[1];
-   MELT_LOCATION("warmelt-outobj.melt:1115:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1123:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine prologue**/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1124:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1125:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_melt = (void*) &curfram__;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1126:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1129:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1129:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1129:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1129:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1127:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1127:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
-   /*_.LIST_EVERY__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.IPROLOG__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1136:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine cdata initializer**/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1137:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1139:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1140:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(predefinited, 0, sizeof(predefinited));"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1141:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1142:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initialize_module_cdata(&curfram__, predefinited);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1143:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1146:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine body**/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1147:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1148:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1148:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.IBODY__V21*/ curfptr[20] = slot; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1153:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1153:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (2));
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1153:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1153:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-    ;
-    /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1151:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1151:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21];
-    /*_.LIST_EVERY__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.IBODY__V21*/ curfptr[20]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LET___V20*/ curfptr[19] = /*_.LIST_EVERY__V24*/ curfptr[23];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1148:/ clear");
-   /*clear*/ /*_.IBODY__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1148:/ clear");
-   /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1148:/ clear");
-   /*clear*/ /*_.LIST_EVERY__V24*/ curfptr[23] = 0 ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1161:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1162:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1163:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1164:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1165:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout:  melt_topframe = (struct callframe_melt_st *) curfram__.prev;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1166:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1167:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_melt = (void*)0;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1168:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1169:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1170:/ cond");
-  /*cond*/ if (/*_.ORETVAL__V10*/ curfptr[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1170:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1170:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1171:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1171:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1171:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1171:/ ojbmsend.arg");
-     argtab[2].bp_long = 1;
-     /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.ORETVAL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFELSE___V25*/ curfptr[20] = /*_.OUTPUT_C_CODE__V26*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1170:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1170:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:1170:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1172:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL"));}
-     ;
-     /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1173:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1174:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1175:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1176:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1177:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1178:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1179:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1180:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1181:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1182:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end start_module_melt */"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1183:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1184:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1185:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void mark_module_melt(void*fp)"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1186:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1187:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1188:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1189:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1190:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1191:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_st* framptr_= (initial_frame_st*)fp;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1192:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1193:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1193:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUCOD_MARKER*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1194:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1195:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end mark_module_melt */"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1196:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1197:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.IDATUP__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.IRFILL__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.IPROLOG__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.ORETVAL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.LAMBDA___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1065:/ clear");
-  /*clear*/ /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1063:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_INITIALROUTINE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_40_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_40_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1116:/ getarg");
- /*_.ROU__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1116:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DSBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1116:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1117:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1118:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.DSBUF__V3*/ curfptr[2]), ( "initial_frame_st "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_40_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_41_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_41_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1129:/ getarg");
- /*_.CURPROL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1129:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:1131:/ cond");
- /*cond*/ if (/*_.CURPROL__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:1131:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:1131:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURPROL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
-   /*_#NOT__L3*/ curfnum[2] = 
-    (!(/*_#IS_A__L2*/ curfnum[1]));;
-   /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1131:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1131:/ clear");
-   /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:1131:/ cond.else");
- 
-  /*_#IF___L1*/ curfnum[0] = 0;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1131:/ cond");
- /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:1131:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:1131:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1133:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1133:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-    MELT_LOCATION("warmelt-outobj.melt:1133:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-    MELT_LOCATION("warmelt-outobj.melt:1133:/ ojbmsend.arg");
-    argtab[2].bp_long = 1;
-    /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURPROL__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1134:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0);}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1132:/ block");
-   /*block*/{}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1131:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1129:/ clear");
- /*clear*/ /*_#IF___L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_41_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_42_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_42_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1153:/ getarg");
- /*_.CURBODY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1153:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:1155:/ cond");
- /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:1155:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:1155:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
-   /*_#NOT__L3*/ curfnum[2] = 
-    (!(/*_#IS_A__L2*/ curfnum[1]));;
-   /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1155:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1155:/ clear");
-   /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:1155:/ cond.else");
- 
-  /*_#IF___L1*/ curfnum[0] = 0;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1155:/ cond");
- /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:1155:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:1155:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1157:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1157:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-    MELT_LOCATION("warmelt-outobj.melt:1157:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-    MELT_LOCATION("warmelt-outobj.melt:1157:/ ojbmsend.arg");
-    argtab[2].bp_long = 1;
-    /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1158:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0);}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1156:/ block");
-   /*block*/{}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1155:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1153:/ clear");
- /*clear*/ /*_#IF___L1*/ curfnum[0] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_42_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_43_warmelt_outobj_OUTPUCOD_GETARG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_43_warmelt_outobj_OUTPUCOD_GETARG_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 26
-  void* varptr[26];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<26; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 26;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_GETARG", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1203:/ getarg");
- /*_.GARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1203:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1203:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1203:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1203:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1204:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1204:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETARG*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1204:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1204:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1204:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1204:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1204:/ locexp");
-      melt_assert_failed(( "check garg"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1204)?(1204):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1204:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1204:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1204:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1206:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 1, "OBARG_OBLOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1207:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.NLOC__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1208:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 2, "OBARG_BIND");/*_.OBIND__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#RKBIND__L3*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.OBIND__V9*/ curfptr[8])));;
-  MELT_LOCATION("warmelt-outobj.melt:1210:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBIND__V9*/ curfptr[8]), 1, "FBIND_TYPE");/*_.CTYBIND__V10*/ curfptr[9] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1212:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1212:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OBIND__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-outobj.melt:1212:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1212:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1212:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1212:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1212:/ locexp");
-       melt_assert_failed(( "check obind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1212)?(1212):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1212:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1212:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1213:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1213:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1213:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1213:/ apply.arg");
-   argtab[2].bp_cstring =  "getarg";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.NLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1214:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1214:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:1214:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1214:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1214:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1214:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1214:/ locexp");
-       melt_assert_failed(( "check oloc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1214)?(1214):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1214:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1214:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1214:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1215:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1215:/ block");
-   /*block*/{
-    /*_#IS_A__L6*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:1215:/ cond");
-    /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1215:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1215:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1215:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1215:/ locexp");
-       melt_assert_failed(( "check ctybind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1215)?(1215):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1215:/ clear");
-    /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1215:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1215:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#I__L7*/ curfnum[3] = 
-   ((/*_#RKBIND__L3*/ curfnum[1]) == (0));;
-  MELT_LOCATION("warmelt-outobj.melt:1216:/ cond");
-  /*cond*/ if (/*_#I__L7*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1216:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1216:/ block");
-   /*block*/{
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:1218:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:1218:/ block");
-     /*block*/{
-      /*_#__L8*/ curfnum[7] = 
-       ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));;
-      MELT_LOCATION("warmelt-outobj.melt:1218:/ cond");
-      /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:1218:/ cond.then");
-      /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:1218:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:1218:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:1218:/ locexp");
-         melt_assert_failed(( "check ctybind first"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1218)?(1218):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1218:/ clear");
-      /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1218:/ clear");
-      /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:1218:/ cppif.else");
-    /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-outobj.melt:1219:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1219:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1219:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1219:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1220:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (melt_ptr_t) firstargp_;"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1221:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1217:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1216:/ clear");
-    /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1216:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1216:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:1216:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1223:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1225:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 4, "CTYPE_PARCHAR");/*_.PARC__V21*/ curfptr[16] = slot; };
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1226:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 6, "CTYPE_ARGFIELD");/*_.ARGF__V22*/ curfptr[18] = slot; };
-     ;
-     /*_#IS_STRING__L9*/ curfnum[7] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.PARC__V21*/ curfptr[16])) == OBMAG_STRING);;
-     /*_#NOT__L10*/ curfnum[9] = 
-      (!(/*_#IS_STRING__L9*/ curfnum[7]));;
-     MELT_LOCATION("warmelt-outobj.melt:1228:/ cond");
-     /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:1228:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:1228:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:1230:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1229:/ locexp");
-       melt_error_str((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), ( "impossible argument ctype"), (melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22]));}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:1228:/ clear");
-       /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;}
-      ;
-     } /*noelse*/
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1231:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xargdescr_["));}
-     ;
-     /*_#I__L11*/ curfnum[10] = 
-      ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1232:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1233:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != "));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1234:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.PARC__V21*/ curfptr[16])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1235:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto lab_endgetargs;"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1236:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-     ;
-     /*_#__L12*/ curfnum[11] = 
-      ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-outobj.melt:1237:/ cond");
-     /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:1237:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:1237:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:1239:/ msend");
-       /*msend*/{
-        union meltparam_un argtab[3];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:1239:/ ojbmsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-outobj.melt:1239:/ ojbmsend.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-        MELT_LOCATION("warmelt-outobj.melt:1239:/ ojbmsend.arg");
-        argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-        /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1240:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (xargtab_["));}
-       ;
-       /*_#I__L13*/ curfnum[12] = 
-        ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1241:/ locexp");
-       meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1242:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr) ? (*(xargtab_["));}
-       ;
-       /*_#I__L14*/ curfnum[13] = 
-        ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1243:/ locexp");
-       meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[13]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1244:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr)) : NULL;"));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1245:/ locexp");
-       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1246:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "gcc_assert(melt_discr((melt_ptr_t)("));}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:1247:/ msend");
-       /*msend*/{
-        union meltparam_un argtab[3];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:1247:/ ojbmsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-outobj.melt:1247:/ ojbmsend.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-        MELT_LOCATION("warmelt-outobj.melt:1247:/ ojbmsend.arg");
-        argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-        /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1248:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) != NULL);"));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1249:/ locexp");
-       meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:1238:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:1237:/ clear");
-       /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:1237:/ clear");
-       /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:1237:/ clear");
-       /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:1237:/ clear");
-       /*clear*/ /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:1237:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:1237:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:1252:/ msend");
-       /*msend*/{
-        union meltparam_un argtab[3];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:1252:/ ojbmsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-        MELT_LOCATION("warmelt-outobj.melt:1252:/ ojbmsend.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-        MELT_LOCATION("warmelt-outobj.melt:1252:/ ojbmsend.arg");
-        argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-        /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1253:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = xargtab_["));}
-       ;
-       /*_#I__L15*/ curfnum[12] = 
-        ((/*_#RKBIND__L3*/ curfnum[1]) - (1));;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1254:/ locexp");
-       meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[12]));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1255:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1256:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ARGF__V22*/ curfptr[18])));}
-       ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1257:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:1251:/ block");
-       /*block*/{}
-       ;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:1237:/ clear");
-       /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:1237:/ clear");
-       /*clear*/ /*_#I__L15*/ curfnum[12] = 0 ;}
-      ;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:1260:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:1223:/ clear");
-     /*clear*/ /*_.PARC__V21*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1223:/ clear");
-     /*clear*/ /*_.ARGF__V22*/ curfptr[18] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1223:/ clear");
-     /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1223:/ clear");
-     /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1223:/ clear");
-     /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1223:/ clear");
-     /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.NLOC__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.OBIND__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_#RKBIND__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.CTYBIND__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1206:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[3] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1203:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_GETARG", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_43_warmelt_outobj_OUTPUCOD_GETARG*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJLOCV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1269:/ getarg");
- /*_.LOCV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1269:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1269:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1269:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1269:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1270:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1270:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1270:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1270:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1270:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1270:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1270:/ locexp");
-      melt_assert_failed(( "check locv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1270)?(1270):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1270:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1270:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1270:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1272:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1273:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.LTYP__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1274:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 1, "OBL_OFF");/*_.LOFF__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1275:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.LCNAM__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#__L3*/ curfnum[1] = 
-   ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:1278:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1278:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1278:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1279:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_."));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1280:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.LCNAM__V9*/ curfptr[8])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1281:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfptr["));}
-    ;
-    /*_#GET_INT__L4*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1282:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[3]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1283:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1278:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1278:/ clear");
-    /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1278:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:1278:/ block");
-   /*block*/{
-    /*_#__L5*/ curfnum[3] = 
-     ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_LONG*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1284:/ cond");
-    /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1284:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:1284:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1285:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_#"));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1286:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.LCNAM__V9*/ curfptr[8])));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1287:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfnum["));}
-      ;
-      /*_#GET_INT__L6*/ curfnum[5] = 
-       (melt_get_int((melt_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1288:/ locexp");
-      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5]));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1289:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1284:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1284:/ clear");
-      /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1284:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1284:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1291:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_?*/ curfram__."));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1292:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.LCNAM__V9*/ curfptr[8])));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1290:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1278:/ clear");
-    /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1272:/ clear");
-  /*clear*/ /*_.LTYP__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1272:/ clear");
-  /*clear*/ /*_.LOFF__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1272:/ clear");
-  /*clear*/ /*_.LCNAM__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1272:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1269:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJLOCV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCLOCCV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1299:/ getarg");
- /*_.OCCV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1299:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1299:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1299:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1299:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1300:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1300:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLOCCV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1300:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1300:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1300:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1300:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1300:/ locexp");
-      melt_assert_failed(( "check occv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1300)?(1300):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1300:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1300:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1300:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1301:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1301:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 1, "OBC_OFF");/*_.OOFF__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1302:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 3, "OBC_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1303:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1303:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1304:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V10*/ curfptr[9] = slot; };
-    ;
-    /*_#__L3*/ curfnum[1] = 
-     ((/*_.OBV_TYPE__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-outobj.melt:1303:/ cond");
-    /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1303:/ cond.then");
-    /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1303:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1303:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1303:/ locexp");
-       melt_assert_failed(( "check valueness of closed occurrence"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1303)?(1303):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1303:/ clear");
-    /*clear*/ /*_.OBV_TYPE__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1303:/ clear");
-    /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1303:/ clear");
-    /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1303:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1305:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*~"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1306:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1307:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfclos->tabval["));}
-  ;
-  /*_#GET_INT__L4*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.OOFF__V7*/ curfptr[5])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1308:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1309:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1301:/ clear");
-  /*clear*/ /*_.OOFF__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1301:/ clear");
-  /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1301:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1301:/ clear");
-  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1299:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCLOCCV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCONSTV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1316:/ getarg");
- /*_.OCNSTV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1316:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1316:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1316:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1316:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1317:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1317:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1317:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1317:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1317:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1317:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1317:/ locexp");
-      melt_assert_failed(( "check ocnstv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1317)?(1317):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1317:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1317:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1317:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1318:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1318:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1318:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1318:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objconstv ocnstv";
-    MELT_LOCATION("warmelt-outobj.melt:1318:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1318:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1318:/ apply.arg");
-    argtab[3].bp_long = 1318;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1318:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1318:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1318:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1319:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1319:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 1, "OBC_OFF");/*_.OOFF__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1320:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 3, "OBC_NAME");/*_.ONAM__V10*/ curfptr[9] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1321:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1321:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1322:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V12*/ curfptr[11] = slot; };
-    ;
-    /*_#__L4*/ curfnum[1] = 
-     ((/*_.OBV_TYPE__V12*/ curfptr[11]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1321:/ cond");
-    /*cond*/ if (/*_#__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1321:/ cond.then");
-    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1321:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1321:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1321:/ locexp");
-       melt_assert_failed(( "check valueness of const occurrence"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1321)?(1321):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1321:/ clear");
-    /*clear*/ /*_.OBV_TYPE__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1321:/ clear");
-    /*clear*/ /*_#__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1321:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1321:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1323:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*!"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1324:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ONAM__V10*/ curfptr[9])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1326:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfrout->tabval["));}
-  ;
-  /*_#GET_INT__L5*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.OOFF__V9*/ curfptr[7])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1327:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1328:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1319:/ clear");
-  /*clear*/ /*_.OOFF__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1319:/ clear");
-  /*clear*/ /*_.ONAM__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1319:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1319:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1316:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1316:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCONSTV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUT_CODE_INSTRUCTIONS_LIST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1334:/ getarg");
- /*_.LIS__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1334:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1334:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1334:/ getarg");
- if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs;
- /*_.BOXEDDEPTH__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1334:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1335:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1335:/ block");
-  /*block*/{
-   /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 
-    ((/*_.LIS__V2*/ curfptr[1]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST));;
-   MELT_LOCATION("warmelt-outobj.melt:1335:/ cond");
-   /*cond*/ if (/*_#IS_LIST_OR_NULL__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1335:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1335:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1335:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1335:/ locexp");
-      melt_assert_failed(( "check lis"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1335)?(1335):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1335:/ clear");
-   /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1335:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1335:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1336:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1336:/ block");
-  /*block*/{
-   /*_#IS_INTEGERBOX__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) == OBMAG_INT);;
-   MELT_LOCATION("warmelt-outobj.melt:1336:/ cond");
-   /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1336:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1336:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1336:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1336:/ locexp");
-      melt_assert_failed(( "check boxeddepth"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1336)?(1336):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1336:/ clear");
-   /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1336:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1336:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1339:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1339:/ newclosure");
-   /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
-   meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (3));
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1339:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[0] = (melt_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4]);
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1339:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1339:/ putclosedv");
-  /*putclosv*/
-  melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
-  melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
-  ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[2] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-  ;
-  /*_.LAMBDA___V10*/ curfptr[8] = /*_.LAMBDA___V11*/ curfptr[10];;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1337:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1337:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[8];
-  /*_.LIST_EVERY__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LIS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1334:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST_EVERY__V12*/ curfptr[11];;
-  MELT_LOCATION("warmelt-outobj.melt:1334:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1334:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1334:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1334:/ clear");
- /*clear*/ /*_.LAMBDA___V10*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1334:/ clear");
- /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUT_CODE_INSTRUCTIONS_LIST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_48_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_48_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1339:/ getarg");
- /*_.CUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1339:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:1340:/ block");
- /*block*/{
-  /*_#DEPTH__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXEDDEPTH*/ curfclos->tabval[0]))));;
-  MELT_LOCATION("warmelt-outobj.melt:1341:/ cond");
-  /*cond*/ if (/*_.CUR__V2*/ curfptr[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1341:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1341:/ block");
-   /*block*/{
-    /*_#IS_NOT_A__L3*/ curfnum[2] = 
-     !melt_is_instance_of((melt_ptr_t)(/*_.CUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
-    /*_#IF___L2*/ curfnum[1] = /*_#IS_NOT_A__L3*/ curfnum[2];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1341:/ clear");
-    /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1341:/ cond.else");
-  
-   /*_#IF___L2*/ curfnum[1] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1341:/ cond");
-  /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1341:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1341:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1343:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1344:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1344:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-outobj.melt:1344:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-outobj.melt:1344:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1345:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1342:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1341:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
-  /*clear*/ /*_#DEPTH__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1340:/ clear");
-  /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_48_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJBLOCK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1351:/ getarg");
- /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1351:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1351:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1351:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1351:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1352:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1352:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1352:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1352:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1352:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1352:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1352:/ locexp");
-      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1352)?(1352):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1352:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1352:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1352:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1353:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1353:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1353:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1353:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objblock oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1353:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1353:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1353:/ apply.arg");
-    argtab[3].bp_long = 1353;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1353:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1353:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1353:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1354:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; };
- ;
- MELT_LOCATION("warmelt-outobj.melt:1354:/ apply");
- /*apply*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1354:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-  MELT_LOCATION("warmelt-outobj.melt:1354:/ apply.arg");
-  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-  MELT_LOCATION("warmelt-outobj.melt:1354:/ apply.arg");
-  argtab[2].bp_cstring =  "block";
-  /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1355:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1356:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V13*/ curfptr[12] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L4*/ curfnum[1])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1359:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*block*/{"));}
-  ;
-  /*_#IS_LIST__L5*/ curfnum[4] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1360:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1360:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1360:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1361:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1361:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1361:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1361:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
-     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V14*/ curfptr[13] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1360:/ clear");
-    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1360:/ cond.else");
-  
-   /*_.IF___V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  /*_#IS_LIST__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1362:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1362:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1362:/ block");
-   /*block*/{
-    /*_#GET_INT__L7*/ curfnum[6] = 
-     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1364:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1365:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*epilog*/"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1366:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1366:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1366:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1366:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
-     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1363:/ block");
-    /*block*/{
-     /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16];;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1362:/ clear");
-    /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1362:/ clear");
-    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1362:/ clear");
-    /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1362:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1367:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1368:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1355:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1370:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1370:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1370:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1370:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objblock done oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1370:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-    MELT_LOCATION("warmelt-outobj.melt:1370:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1370:/ apply.arg");
-    argtab[3].bp_long = 1370;
-    /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V19*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1370:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1370:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1370:/ cppif.else");
- /*_.IFCPP___V19*/ curfptr[16] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1351:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V19*/ curfptr[16];;
-  MELT_LOCATION("warmelt-outobj.melt:1351:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
- /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
- /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1351:/ clear");
- /*clear*/ /*_.IFCPP___V19*/ curfptr[16] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJMULTIALLOCBLOCK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1375:/ getarg");
- /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1375:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1375:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1375:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1375:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1376:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1376:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1376:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1376:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objmultiallocblock oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1376:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1376:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1376:/ apply.arg");
-    argtab[3].bp_long = 1376;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1376:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1376:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1377:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1377:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIALLOCBLOCK*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:1377:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1377:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1377:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1377:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1377:/ locexp");
-      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1377)?(1377):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1377:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1377:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1377:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1379:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1379:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1379:/ cond");
-   /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1379:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1379:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1379:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1379:/ locexp");
-      melt_assert_failed(( "@$@unimplemented outpucod_objmultiallocblock"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1379)?(1379):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1379:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1379:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1375:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-outobj.melt:1375:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1375:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1375:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1375:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJMULTIALLOCBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 35
-  void* varptr[35];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<35; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 35;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCITERBLOCK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1384:/ getarg");
- /*_.OBCIT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1384:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1384:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1384:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1384:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1385:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1385:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1385:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1385:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1385:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1385:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1385:/ locexp");
-      melt_assert_failed(( "check obcit"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1385)?(1385):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1385:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1385:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1385:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1386:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1386:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1386:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1386:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objciterblock obcit";
-    MELT_LOCATION("warmelt-outobj.melt:1386:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1386:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1386:/ apply.arg");
-    argtab[3].bp_long = 1386;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1386:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1386:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1386:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1387:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1388:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1389:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V11*/ curfptr[10] = slot; };
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V12*/ curfptr[11] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:1391:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 4, "OBCITER_BEFORE");/*_.OBEFORE__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1392:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 5, "OBCITER_AFTER");/*_.OAFTER__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1393:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 3, "OBCITER_CITER");/*_.CITER__V15*/ curfptr[14] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1395:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1395:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CITER__V15*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:1395:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1395:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1395:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1395:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1395:/ locexp");
-       melt_assert_failed(( "check citer"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1395)?(1395):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1395:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1395:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1395:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1396:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1396:/ apply.arg");
-   argtab[0].bp_cstring =  "citerblock";
-   /*_.OUTPUT_LOCATION__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1397:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerblock "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1398:/ getslot");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1398:/ locexp");
-  meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1399:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ {"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1400:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1401:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1401:/ apply.arg");
-   argtab[0].bp_cstring =  "citerbefore";
-   /*_.OUTPUT_LOCATION__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1404:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1404:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1404:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1404:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1404:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11]);
-   ;
-   /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1402:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1402:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20];
-   /*_.MULTIPLE_EVERY__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OBEFORE__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1407:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1408:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1408:/ apply.arg");
-   argtab[0].bp_cstring =  "citerbody";
-   /*_.OUTPUT_LOCATION__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_LIST__L6*/ curfnum[4] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V10*/ curfptr[9])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1409:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1409:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1409:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1410:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1410:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1410:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1410:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ curfptr[11];
-     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.BODYL__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V25*/ curfptr[24] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1409:/ clear");
-    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1409:/ cond.else");
-  
-   /*_.IF___V25*/ curfptr[24] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1411:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1412:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1412:/ apply.arg");
-   argtab[0].bp_cstring =  "citerafter";
-   /*_.OUTPUT_LOCATION__V27*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1415:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1415:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1415:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1415:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1415:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11]);
-   ;
-   /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1413:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1413:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27];
-   /*_.MULTIPLE_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OAFTER__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1418:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1419:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1419:/ apply.arg");
-   argtab[0].bp_cstring =  "citerepil";
-   /*_.OUTPUT_LOCATION__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_LIST__L7*/ curfnum[6] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V11*/ curfptr[10])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1420:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1420:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1420:/ block");
-   /*block*/{
-    /*_#GET_INT__L8*/ curfnum[7] = 
-     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1422:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L8*/ curfnum[7]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1423:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerepilog*/"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1424:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1424:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1424:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1424:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ curfptr[11];
-     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.EPIL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1421:/ block");
-    /*block*/{
-     /*_.PROGN___V34*/ curfptr[33] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32];;}
-    ;
-    /*_.IF___V32*/ curfptr[31] = /*_.PROGN___V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1420:/ clear");
-    /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1420:/ clear");
-    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1420:/ clear");
-    /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1420:/ cond.else");
-  
-   /*_.IF___V32*/ curfptr[31] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1425:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*endciterblock "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1426:/ getslot");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[32] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1426:/ locexp");
-  meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[32])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1427:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1428:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.BODYL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.EPIL__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OBEFORE__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OAFTER__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.CITER__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V31*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1387:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[32] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1384:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1384:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCITERBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_52_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_52_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1404:/ getarg");
- /*_.OBEF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1404:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1404:/ block");
-/*block*/{
- /*_#GET_INT__L2*/ curfnum[1] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:1405:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1405:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:1405:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:1405:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.OBEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1404:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1404:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1404:/ clear");
- /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1404:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_52_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_53_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_53_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1415:/ getarg");
- /*_.OAFT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1415:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1415:/ block");
-/*block*/{
- /*_#GET_INT__L2*/ curfnum[1] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:1416:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1416:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:1416:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:1416:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.OAFT__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1415:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1415:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1415:/ clear");
- /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1415:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_53_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCOMMENTINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1434:/ getarg");
- /*_.OBCI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1434:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1434:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1434:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1434:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1435:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1435:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1435:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1435:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1435:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1435:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1435:/ locexp");
-      melt_assert_failed(( "check obci"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1435)?(1435):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1435:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1435:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1435:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1436:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1436:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1437:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), 1, "OBCI_COMMENT");/*_.COMS__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1438:/ block");
-  /*block*/{
-   /*_.SBU__V10*/ curfptr[9] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[1])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1439:/ locexp");
-   meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBU__V10*/ curfptr[9]), melt_string_str((melt_ptr_t)(/*_.COMS__V8*/ curfptr[7])));}
-   ;
-   /*_.STRBUF2STRING__V11*/ curfptr[10] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[2])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V10*/ curfptr[9]))));;
-   /*_.LET___V9*/ curfptr[8] = /*_.STRBUF2STRING__V11*/ curfptr[10];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1438:/ clear");
-   /*clear*/ /*_.SBU__V10*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1438:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V11*/ curfptr[10] = 0 ;}
-  ;
-  /*_.COMSTR__V12*/ curfptr[9] = /*_.LET___V9*/ curfptr[8];;
-  MELT_LOCATION("warmelt-outobj.melt:1443:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1443:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1443:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1443:/ apply.arg");
-   argtab[2].bp_cstring =  "comment";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1444:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**COMMENT: "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1445:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V12*/ curfptr[9])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1446:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " **/;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1447:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1436:/ clear");
-  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1436:/ clear");
-  /*clear*/ /*_.COMS__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1436:/ clear");
-  /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1436:/ clear");
-  /*clear*/ /*_.COMSTR__V12*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1436:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[10] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1434:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCOMMENTINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCOMMENTEDBLOCK", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1453:/ getarg");
- /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1453:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1453:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1453:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1453:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1454:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1454:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1454:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1454:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1454:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1454:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1454:/ locexp");
-      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1454)?(1454):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1454:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1454:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1454:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1455:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1455:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1455:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1455:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objblock oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1455:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1455:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1455:/ apply.arg");
-    argtab[3].bp_long = 1455;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1455:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1455:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1455:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1456:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; };
- ;
- MELT_LOCATION("warmelt-outobj.melt:1456:/ apply");
- /*apply*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1456:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-  MELT_LOCATION("warmelt-outobj.melt:1456:/ apply.arg");
-  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-  MELT_LOCATION("warmelt-outobj.melt:1456:/ apply.arg");
-  argtab[2].bp_cstring =  "block";
-  /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1457:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1458:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V13*/ curfptr[12] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L4*/ curfnum[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:1460:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 3, "OCOMBLO_COMMENT");/*_.COMS__V14*/ curfptr[13] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1461:/ block");
-  /*block*/{
-   /*_.SBU__V16*/ curfptr[15] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1462:/ locexp");
-   meltgc_add_strbuf_ccomment((melt_ptr_t)(/*_.SBU__V16*/ curfptr[15]), melt_string_str((melt_ptr_t)(/*_.COMS__V14*/ curfptr[13])));}
-   ;
-   /*_.STRBUF2STRING__V17*/ curfptr[16] = 
-    (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), melt_strbuf_str((melt_ptr_t)(/*_.SBU__V16*/ curfptr[15]))));;
-   /*_.LET___V15*/ curfptr[14] = /*_.STRBUF2STRING__V17*/ curfptr[16];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1461:/ clear");
-   /*clear*/ /*_.SBU__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1461:/ clear");
-   /*clear*/ /*_.STRBUF2STRING__V17*/ curfptr[16] = 0 ;}
-  ;
-  /*_.COMSTR__V18*/ curfptr[15] = /*_.LET___V15*/ curfptr[14];;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1466:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.block:"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1467:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ curfptr[15])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1468:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/{"));}
-  ;
-  /*_#IS_LIST__L5*/ curfnum[4] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1469:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1469:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1469:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1470:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1470:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1470:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1470:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
-     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V19*/ curfptr[16] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1469:/ clear");
-    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1469:/ cond.else");
-  
-   /*_.IF___V19*/ curfptr[16] = NULL;;
-   }
-  ;
-  /*_#IS_LIST__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1471:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1471:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1471:/ block");
-   /*block*/{
-    /*_#GET_INT__L7*/ curfnum[6] = 
-     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1473:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1474:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*comp.epilog:"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1475:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ curfptr[15])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1476:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1477:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1477:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1477:/ apply.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1477:/ apply.arg");
-     argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12];
-     /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1472:/ block");
-    /*block*/{
-     /*_.PROGN___V23*/ curfptr[22] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21];;}
-    ;
-    /*_.IF___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1471:/ clear");
-    /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1471:/ clear");
-    /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1471:/ clear");
-    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1471:/ cond.else");
-  
-   /*_.IF___V21*/ curfptr[19] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1478:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1479:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.end block:"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1480:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.COMSTR__V18*/ curfptr[15])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1481:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1482:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.COMS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.COMSTR__V18*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.IF___V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1457:/ clear");
-  /*clear*/ /*_.IF___V21*/ curfptr[19] = 0 ;}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1484:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1484:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1484:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1484:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objcommentedblock done oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1484:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-    MELT_LOCATION("warmelt-outobj.melt:1484:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1484:/ apply.arg");
-    argtab[3].bp_long = 1484;
-    /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V24*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[22];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1484:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1484:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1484:/ cppif.else");
- /*_.IFCPP___V24*/ curfptr[21] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1453:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V24*/ curfptr[21];;
-  MELT_LOCATION("warmelt-outobj.melt:1453:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1453:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1453:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1453:/ clear");
- /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1453:/ clear");
- /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1453:/ clear");
- /*clear*/ /*_.IFCPP___V24*/ curfptr[21] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCOMMENTEDBLOCK", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJLABELINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1491:/ getarg");
- /*_.OBLAB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1491:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1491:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1491:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1491:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1492:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1492:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLABELINSTR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1492:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1492:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1492:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1492:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1492:/ locexp");
-      melt_assert_failed(( "check oblab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1492)?(1492):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1492:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1492:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1492:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1493:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1493:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1493:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1493:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objlabelinstr oblab";
-    MELT_LOCATION("warmelt-outobj.melt:1493:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1493:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1493:/ apply.arg");
-    argtab[3].bp_long = 1493;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1493:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1493:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1493:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1494:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1495:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*objlabel*/ "));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1496:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 1, "OBLAB_PREFIX");/*_.OBLAB_PREFIX__V9*/ curfptr[7] = slot; };
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1496:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OBLAB_PREFIX__V9*/ curfptr[7])));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1497:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1497:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 2, "OBLAB_RANK");/*_.OBRANK__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1498:/ cond");
-  /*cond*/ if (/*_.OBRANK__V10*/ curfptr[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1498:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1498:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1499:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 2, "OBLAB_RANK");/*_.OBLAB_RANK__V11*/ curfptr[10] = slot; };
-    ;
-    /*_#GET_INT__L4*/ curfnum[1] = 
-     (melt_get_int((melt_ptr_t)(/*_.OBLAB_RANK__V11*/ curfptr[10])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1499:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
-    /*clear*/ /*_.OBLAB_RANK__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1498:/ clear");
-    /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1497:/ clear");
-  /*clear*/ /*_.OBRANK__V10*/ curfptr[9] = 0 ;}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1500:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1501:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1502:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLAB__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V12*/ curfptr[10] = slot; };
- ;
- MELT_LOCATION("warmelt-outobj.melt:1502:/ apply");
- /*apply*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1502:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-  MELT_LOCATION("warmelt-outobj.melt:1502:/ apply.arg");
-  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-  MELT_LOCATION("warmelt-outobj.melt:1502:/ apply.arg");
-  argtab[2].bp_cstring =  "objlabel";
-  /*_.OUTPUT_LOCATION__V13*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V12*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1491:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_LOCATION__V13*/ curfptr[9];;
-  MELT_LOCATION("warmelt-outobj.melt:1491:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1491:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1491:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1491:/ clear");
- /*clear*/ /*_.OBLAB_PREFIX__V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1491:/ clear");
- /*clear*/ /*_.OBI_LOC__V12*/ curfptr[10] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1491:/ clear");
- /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJLABELINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJGOTOINSTR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1509:/ getarg");
- /*_.OBGOTO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1509:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1509:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1509:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1509:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1510:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1510:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGOTOINSTR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1510:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1510:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1510:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1510:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1510:/ locexp");
-      melt_assert_failed(( "check obgoto"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1510)?(1510):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1510:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1510:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1510:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1511:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1511:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1511:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1511:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objgotoinstr";
-    MELT_LOCATION("warmelt-outobj.melt:1511:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1511:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1511:/ apply.arg");
-    argtab[3].bp_long = 1511;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1511:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1511:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1511:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1512:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; };
- ;
- MELT_LOCATION("warmelt-outobj.melt:1512:/ apply");
- /*apply*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1512:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-  MELT_LOCATION("warmelt-outobj.melt:1512:/ apply.arg");
-  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-  MELT_LOCATION("warmelt-outobj.melt:1512:/ apply.arg");
-  argtab[2].bp_cstring =  "objgoto";
-  /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1513:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*objgoto*/ goto "));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1514:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 1, "OBGOTO_PREFIX");/*_.OBGOTO_PREFIX__V11*/ curfptr[10] = slot; };
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1514:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OBGOTO_PREFIX__V11*/ curfptr[10])));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1515:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1515:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBGOTO__V2*/ curfptr[1]), 2, "OBGOTO_RANK");/*_.OBRANK__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1516:/ cond");
-  /*cond*/ if (/*_.OBRANK__V12*/ curfptr[11]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1516:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1516:/ block");
-   /*block*/{
-    /*_#GET_INT__L4*/ curfnum[1] = 
-     (melt_get_int((melt_ptr_t)(/*_.OBRANK__V12*/ curfptr[11])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1517:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1]));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1516:/ clear");
-    /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1515:/ clear");
-  /*clear*/ /*_.OBRANK__V12*/ curfptr[11] = 0 ;}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1518:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1519:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1509:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1509:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1509:/ clear");
- /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1509:/ clear");
- /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1509:/ clear");
- /*clear*/ /*_.OBGOTO_PREFIX__V11*/ curfptr[10] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJGOTOINSTR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 9
-  void* varptr[9];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<9; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 9;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("ADD2SBUF_CLONSYM", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1525:/ getarg");
- /*_.SBUF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1525:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CSY__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CSY__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1525:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1526:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1526:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:1526:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1526:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1526:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1526:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1526:/ locexp");
-      melt_assert_failed(( "check sbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1526)?(1526):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1526:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1526:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1526:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1527:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1527:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CSY__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1527:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1527:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1527:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1527:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1527:/ locexp");
-      melt_assert_failed(( "check csy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1527)?(1527):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1527:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1527:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1527:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1528:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1528:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CSY__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CNAM__V8*/ curfptr[6] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1529:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CSY__V3*/ curfptr[2]), 3, "CSYM_URANK");/*_.CSYM_URANK__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#RK__L3*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)(/*_.CSYM_URANK__V9*/ curfptr[8])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1530:/ locexp");
-  meltgc_add_strbuf_cident((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1]),
-  melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[6])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1531:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), ( "_"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1532:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V2*/ curfptr[1]), (/*_#RK__L3*/ curfnum[0]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
-  /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
-  /*clear*/ /*_.CSYM_URANK__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1528:/ clear");
-  /*clear*/ /*_#RK__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1525:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1525:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("ADD2SBUF_CLONSYM", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJLOOP", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1536:/ getarg");
- /*_.OBLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1536:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1536:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1536:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1536:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1537:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1537:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1537:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1537:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1537:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1537:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1537:/ locexp");
-      melt_assert_failed(( "check oblo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1537)?(1537):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1537:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1537:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1537:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1538:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1538:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1538:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1538:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objloop oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1538:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1538:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1538:/ apply.arg");
-    argtab[3].bp_long = 1538;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1538:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1538:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1538:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1539:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1540:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1541:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 3, "OBLOOP_LABEL");/*_.LAB__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1542:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V13*/ curfptr[12] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1545:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1545:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.LAB__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:1545:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1545:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1545:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1545:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1545:/ locexp");
-       melt_assert_failed(( "check lab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1545)?(1545):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1545:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1545:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1545:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1546:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1546:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1546:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1546:/ apply.arg");
-   argtab[2].bp_cstring =  "loop";
-   /*_.OUTPUT_LOCATION__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1547:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loop*/{ labloop_"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1548:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1548:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ curfptr[10];
-   /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1549:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":;"));}
-  ;
-  /*_#IS_LIST__L6*/ curfnum[4] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.BODYL__V9*/ curfptr[7])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1550:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1550:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1550:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1552:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1552:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1552:/ apply.arg");
-     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:1552:/ apply.arg");
-     argtab[2].bp_cstring =  "loopbody";
-     /*_.OUTPUT_LOCATION__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#I__L7*/ curfnum[6] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1553:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1556:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1556:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1556:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1556:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1556:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1554:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1554:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
-     /*_.LIST_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V9*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1551:/ block");
-    /*block*/{
-     /*_.PROGN___V23*/ curfptr[22] = /*_.LIST_EVERY__V22*/ curfptr[21];;}
-    ;
-    /*_.IF___V18*/ curfptr[17] = /*_.PROGN___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1550:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1550:/ clear");
-    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1550:/ clear");
-    /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1550:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1550:/ clear");
-    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1550:/ cond.else");
-  
-   /*_.IF___V18*/ curfptr[17] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1562:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-  ;
-  /*_#I__L8*/ curfnum[6] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1563:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[6]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1564:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labloop_"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1565:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1565:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ curfptr[10];
-   /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1566:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-  ;
-  /*_#I__L9*/ curfnum[8] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1567:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1568:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " labexit_"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1569:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1569:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ curfptr[10];
-   /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1570:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":;"));}
-  ;
-  /*_#IS_LIST__L10*/ curfnum[9] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.EPIL__V10*/ curfptr[9])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1571:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1571:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1571:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1573:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1573:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1573:/ apply.arg");
-     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:1573:/ apply.arg");
-     argtab[2].bp_cstring =  "loopepilog";
-     /*_.OUTPUT_LOCATION__V27*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1574:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loopepilog*/"));}
-    ;
-    /*_#I__L11*/ curfnum[10] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1575:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1578:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1578:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1578:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1578:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1578:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1576:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1576:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27];
-     /*_.LIST_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1572:/ block");
-    /*block*/{
-     /*_.PROGN___V31*/ curfptr[30] = /*_.LIST_EVERY__V30*/ curfptr[29];;}
-    ;
-    /*_.IF___V26*/ curfptr[21] = /*_.PROGN___V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1571:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1571:/ clear");
-    /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1571:/ clear");
-    /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1571:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1571:/ clear");
-    /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1571:/ cond.else");
-  
-   /*_.IF___V26*/ curfptr[21] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1584:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1585:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.BODYL__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.EPIL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.LAB__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.OLOC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_#IS_LIST__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1539:/ clear");
-  /*clear*/ /*_.IF___V26*/ curfptr[21] = 0 ;}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1587:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1587:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1587:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1587:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objloop done oblo";
-    MELT_LOCATION("warmelt-outobj.melt:1587:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
-    MELT_LOCATION("warmelt-outobj.melt:1587:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1587:/ apply.arg");
-    argtab[3].bp_long = 1587;
-    /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V32*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[27];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1587:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1587:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1587:/ cppif.else");
- /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1536:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V32*/ curfptr[22];;
-  MELT_LOCATION("warmelt-outobj.melt:1536:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1536:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1536:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1536:/ clear");
- /*clear*/ /*_.IFCPP___V32*/ curfptr[22] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJLOOP", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_60_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_60_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1556:/ getarg");
- /*_.CURBODY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1556:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:1557:/ block");
- /*block*/{
-  /*_#DEPTHP1__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));;
-  MELT_LOCATION("warmelt-outobj.melt:1558:/ cond");
-  /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1558:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1558:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[2] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
-    /*_#NOT__L4*/ curfnum[3] = 
-     (!(/*_#IS_A__L3*/ curfnum[2]));;
-    /*_#IF___L2*/ curfnum[1] = /*_#NOT__L4*/ curfnum[3];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1558:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1558:/ clear");
-    /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1558:/ cond.else");
-  
-   /*_#IF___L2*/ curfnum[1] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1558:/ cond");
-  /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1558:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1558:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1559:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1559:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-outobj.melt:1559:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-outobj.melt:1559:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTHP1__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V3*/ curfptr[2] = /*_.OUTPUT_C_CODE__V4*/ curfptr[3];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1558:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1558:/ cond.else");
-  
-   /*_.IF___V3*/ curfptr[2] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1560:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1561:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1557:/ clear");
-  /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1557:/ clear");
-  /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1557:/ clear");
-  /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_60_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_61_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_61_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1578:/ getarg");
- /*_.CUREPIL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1578:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:1579:/ block");
- /*block*/{
-  /*_#DEPTHP1__L1*/ curfnum[0] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));;
-  MELT_LOCATION("warmelt-outobj.melt:1580:/ cond");
-  /*cond*/ if (/*_.CUREPIL__V2*/ curfptr[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1580:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1580:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[2] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CUREPIL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));;
-    /*_#NOT__L4*/ curfnum[3] = 
-     (!(/*_#IS_A__L3*/ curfnum[2]));;
-    /*_#IF___L2*/ curfnum[1] = /*_#NOT__L4*/ curfnum[3];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1580:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1580:/ clear");
-    /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1580:/ cond.else");
-  
-   /*_#IF___L2*/ curfnum[1] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1580:/ cond");
-  /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1580:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1580:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1581:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1581:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-outobj.melt:1581:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]);
-     MELT_LOCATION("warmelt-outobj.melt:1581:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTHP1__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CUREPIL__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V3*/ curfptr[2] = /*_.OUTPUT_C_CODE__V4*/ curfptr[3];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1580:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1580:/ cond.else");
-  
-   /*_.IF___V3*/ curfptr[2] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1582:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1583:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1579:/ clear");
-  /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1579:/ clear");
-  /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1579:/ clear");
-  /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_61_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJEXIT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1593:/ getarg");
- /*_.OBXI__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1593:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1593:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1593:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1593:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1594:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1594:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1594:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1594:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1594:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1594:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1594:/ locexp");
-      melt_assert_failed(( "check obxi"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1594)?(1594):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1594:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1594:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1594:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1595:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1595:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1595:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1595:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objexit obxi";
-    MELT_LOCATION("warmelt-outobj.melt:1595:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1595:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1595:/ apply.arg");
-    argtab[3].bp_long = 1595;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1595:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1595:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1595:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1596:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1596:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), 1, "OBEXIT_LABEL");/*_.OLAB__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1597:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.LOC__V10*/ curfptr[9] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1599:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1599:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OLAB__V9*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1599:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1599:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1599:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1599:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1599:/ locexp");
-       melt_assert_failed(( "check olab"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1599)?(1599):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1599:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1599:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1599:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1600:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1600:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1600:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1600:/ apply.arg");
-   argtab[2].bp_cstring =  "exit";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.LOC__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1601:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*exit*/{"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1602:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1603:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labexit_"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1604:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1604:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ curfptr[7];
-   /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1605:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1606:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1596:/ clear");
-  /*clear*/ /*_.OLAB__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1596:/ clear");
-  /*clear*/ /*_.LOC__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1596:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1596:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1596:/ clear");
-  /*clear*/ /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1593:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1593:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJEXIT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 29
-  void* varptr[29];
-#define CURFRAM_NBVARNUM 14
-  long varnum[14];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<29; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 29;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCOMPUTE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1611:/ getarg");
- /*_.OBCOMP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1611:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1611:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1611:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1611:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1612:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1612:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1612:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1612:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1612:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1612:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1612:/ locexp");
-      melt_assert_failed(( "check obcomp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1612)?(1612):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1612:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1612:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1612:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1613:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.CDEST__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1614:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1615:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 2, "OBCPT_EXPR");/*_.CEXP__V9*/ curfptr[8] = slot; };
-  ;
-  /*_#I__L3*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V10*/ curfptr[9] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1618:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1618:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:1618:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1618:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objcompute obcomp";
-     MELT_LOCATION("warmelt-outobj.melt:1618:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-     MELT_LOCATION("warmelt-outobj.melt:1618:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:1618:/ apply.arg");
-     argtab[3].bp_long = 1618;
-     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1618:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1618:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1618:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1619:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1619:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1619:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1619:/ apply.arg");
-   argtab[2].bp_cstring =  "compute";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#IS_LIST__L5*/ curfnum[3] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CDEST__V7*/ curfptr[5])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1620:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1620:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1620:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1623:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1623:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1623:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1623:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]);
-     ;
-     /*_.LAMBDA___V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1621:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1621:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V15*/ curfptr[14];
-     /*_.LIST_EVERY__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CDEST__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IF___V14*/ curfptr[13] = /*_.LIST_EVERY__V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1620:/ clear");
-    /*clear*/ /*_.LAMBDA___V15*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1620:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1620:/ cond.else");
-  
-   /*_.IF___V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  /*_#IS_LIST__L6*/ curfnum[5] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_LIST);;
-  MELT_LOCATION("warmelt-outobj.melt:1627:/ cond");
-  /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1627:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1627:/ block");
-   /*block*/{
-    /*_#LIST_LENGTH__L7*/ curfnum[6] = 
-     (melt_list_length((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])));;
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#LIST_LENGTH__L7*/ curfnum[6]) > (2));;
-    MELT_LOCATION("warmelt-outobj.melt:1628:/ cond");
-    /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1628:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:1628:/ block");
-     /*block*/{
-      /*_#I__L9*/ curfnum[8] = 
-       ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1629:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1628:/ clear");
-      /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1632:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1632:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1632:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1632:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1632:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]);
-     ;
-     /*_.LAMBDA___V19*/ curfptr[16] = /*_.LAMBDA___V20*/ curfptr[19];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1630:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1630:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[16];
-     /*_.LIST_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ block");
-    /*block*/{
-     /*_.PROGN___V22*/ curfptr[21] = /*_.LIST_EVERY__V21*/ curfptr[20];;}
-    ;
-    /*_.IFELSE___V18*/ curfptr[14] = /*_.PROGN___V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_#LIST_LENGTH__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_.LAMBDA___V19*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1627:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:1627:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE__L10*/ curfnum[8] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_MULTIPLE);;
-    MELT_LOCATION("warmelt-outobj.melt:1634:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1634:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:1634:/ block");
-     /*block*/{
-      /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = 
-       (melt_multiple_length((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8])));;
-      /*_#I__L12*/ curfnum[7] = 
-       ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[6]) > (2));;
-      MELT_LOCATION("warmelt-outobj.melt:1635:/ cond");
-      /*cond*/ if (/*_#I__L12*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:1635:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:1635:/ block");
-       /*block*/{
-        /*_#I__L13*/ curfnum[12] = 
-         ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:1636:/ locexp");
-        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0);}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:1635:/ clear");
-        /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;}
-       ;
-      } /*noelse*/
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1639:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:1639:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[21] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3));
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:1639:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:1639:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:1639:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]);
-       ;
-       /*_.LAMBDA___V24*/ curfptr[20] = /*_.LAMBDA___V25*/ curfptr[21];;}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1637:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:1637:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[20];
-       /*_.MULTIPLE_EVERY__V26*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ block");
-      /*block*/{
-       /*_.PROGN___V27*/ curfptr[26] = /*_.MULTIPLE_EVERY__V26*/ curfptr[25];;}
-      ;
-      /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V27*/ curfptr[26];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_#I__L12*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_.LAMBDA___V24*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1634:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1634:/ block");
-     /*block*/{
-      /*_#I__L14*/ curfnum[12] = 
-       ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-      MELT_LOCATION("warmelt-outobj.melt:1642:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:1642:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-       MELT_LOCATION("warmelt-outobj.melt:1642:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-       MELT_LOCATION("warmelt-outobj.melt:1642:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#I__L14*/ curfnum[12];
-       /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1641:/ block");
-      /*block*/{
-       /*_.PROGN___V29*/ curfptr[25] = /*_.OUTPUT_C_CODE__V28*/ curfptr[20];;}
-      ;
-      /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V29*/ curfptr[25];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1634:/ clear");
-      /*clear*/ /*_.PROGN___V29*/ curfptr[25] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V18*/ curfptr[14] = /*_.IFELSE___V23*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1627:/ clear");
-    /*clear*/ /*_.IFELSE___V23*/ curfptr[16] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1644:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.CDEST__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.CLOC__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.CEXP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_#IS_LIST__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1613:/ clear");
-  /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1611:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCOMPUTE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_64_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_64_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1623:/ getarg");
- /*_.DESTCUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:1624:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1624:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:1624:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:1624:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DESTCUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1625:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
- /*block*/{
-  /*_.RETVAL___V4*/ curfptr[3] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:1623:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETVAL___V4*/ curfptr[3];;
-   MELT_LOCATION("warmelt-outobj.melt:1623:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
-  /*clear*/ /*_.RETVAL___V4*/ curfptr[3] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1623:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_64_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_65_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_65_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1632:/ getarg");
- /*_.EXPCUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1632:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:1633:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1633:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:1633:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:1633:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1632:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1632:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1632:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1632:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_65_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_66_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_66_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1639:/ getarg");
- /*_.EXPCUR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1639:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:1640:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1640:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:1640:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:1640:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:1639:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:1639:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1639:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1639:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_66_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 16
-  long varnum[16];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCOND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1650:/ getarg");
- /*_.OCOND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1650:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1650:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1650:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1650:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1651:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1651:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1651:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1651:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1651:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1651:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1651:/ locexp");
-      melt_assert_failed(( "check ocond"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1651)?(1651):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1651:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1651:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1651:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1652:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1652:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1652:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1652:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objcond ocond";
-    MELT_LOCATION("warmelt-outobj.melt:1652:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1652:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1652:/ apply.arg");
-    argtab[3].bp_long = 1652;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1652:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1652:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1652:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1653:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1654:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 1, "OBCOND_TEST");/*_.CTEST__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1655:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 2, "OBCOND_THEN");/*_.CTHEN__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1656:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 3, "OBCOND_ELSE");/*_.CELSE__V12*/ curfptr[11] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1658:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1658:/ block");
-   /*block*/{
-    /*_#NOTNULL__L4*/ curfnum[1] = 
-     ((/*_.CTEST__V10*/ curfptr[9]) != NULL);;
-    MELT_LOCATION("warmelt-outobj.melt:1658:/ cond");
-    /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1658:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1658:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1658:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1658:/ locexp");
-       melt_assert_failed(( "check ctest"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1658)?(1658):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1658:/ clear");
-    /*clear*/ /*_#NOTNULL__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1658:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1658:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1659:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1659:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1659:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1659:/ apply.arg");
-   argtab[2].bp_cstring =  "cond";
-   /*_.OUTPUT_LOCATION__V15*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1660:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*cond*/ if ("));}
-  ;
-  /*_#I__L5*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  MELT_LOCATION("warmelt-outobj.melt:1661:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1661:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:1661:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1661:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L5*/ curfnum[1];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.CTEST__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1662:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") /*then*/ {"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1663:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1664:/ cond");
-  /*cond*/ if (/*_.CTHEN__V11*/ curfptr[10]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1664:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1664:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[6] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[4])));;
-    /*_#NOT__L8*/ curfnum[7] = 
-     (!(/*_#IS_A__L7*/ curfnum[6]));;
-    /*_#IF___L6*/ curfnum[5] = /*_#NOT__L8*/ curfnum[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1664:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1664:/ clear");
-    /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1664:/ cond.else");
-  
-   /*_#IF___L6*/ curfnum[5] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1664:/ cond");
-  /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1664:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1664:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1666:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1666:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1666:/ apply.arg");
-     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:1666:/ apply.arg");
-     argtab[2].bp_cstring =  "cond.then";
-     /*_.OUTPUT_LOCATION__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#I__L9*/ curfnum[6] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-outobj.melt:1667:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1667:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1667:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1667:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#I__L9*/ curfnum[6];
-     /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1668:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1669:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1665:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1664:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1664:/ clear");
-    /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1664:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1672:/ cond");
-  /*cond*/ if (/*_.CELSE__V12*/ curfptr[11]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1672:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1672:/ block");
-   /*block*/{
-    /*_#IS_A__L11*/ curfnum[6] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[4])));;
-    /*_#NOT__L12*/ curfnum[11] = 
-     (!(/*_#IS_A__L11*/ curfnum[6]));;
-    /*_#IF___L10*/ curfnum[7] = /*_#NOT__L12*/ curfnum[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_#NOT__L12*/ curfnum[11] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1672:/ cond.else");
-  
-   /*_#IF___L10*/ curfnum[7] = 0;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1672:/ cond");
-  /*cond*/ if (/*_#IF___L10*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1672:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1672:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1674:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} else {"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1675:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
-     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:1675:/ apply.arg");
-     argtab[2].bp_cstring =  "cond.else";
-     /*_.OUTPUT_LOCATION__V19*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#I__L13*/ curfnum[6] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1676:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[6]), 0);}
-    ;
-    /*_#I__L14*/ curfnum[11] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    MELT_LOCATION("warmelt-outobj.melt:1677:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1677:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:1677:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:1677:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#I__L14*/ curfnum[11];
-     /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1678:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-    ;
-    /*_#I__L15*/ curfnum[14] = 
-     ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1679:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1680:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1673:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_#I__L13*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1672:/ clear");
-    /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1672:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:1672:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1682:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*noelse*/"));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1684:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.CTEST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1653:/ clear");
-  /*clear*/ /*_#IF___L10*/ curfnum[7] = 0 ;}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1686:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1686:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L16*/ curfnum[6] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1686:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1686:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objcond end ocond";
-    MELT_LOCATION("warmelt-outobj.melt:1686:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[6];
-    MELT_LOCATION("warmelt-outobj.melt:1686:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1686:/ apply.arg");
-    argtab[3].bp_long = 1686;
-    /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V21*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[17];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1686:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1686:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1686:/ cppif.else");
- /*_.IFCPP___V21*/ curfptr[16] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1650:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V21*/ curfptr[16];;
-  MELT_LOCATION("warmelt-outobj.melt:1650:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1650:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1650:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1650:/ clear");
- /*clear*/ /*_.IFCPP___V21*/ curfptr[16] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCOND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCPPIF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1692:/ getarg");
- /*_.OPIF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1692:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1692:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1692:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1692:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1693:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1693:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1693:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1693:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1693:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1693:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1693:/ locexp");
-      melt_assert_failed(( "check opif"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1693)?(1693):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1693:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1693:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1693:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1694:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1694:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1694:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1694:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objcppif opif";
-    MELT_LOCATION("warmelt-outobj.melt:1694:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1694:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1694:/ apply.arg");
-    argtab[3].bp_long = 1694;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1694:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1694:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1694:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1695:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1696:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 1, "OBIFP_COND");/*_.CCOND__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1697:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 2, "OBIFP_THEN");/*_.CTHEN__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1698:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 3, "OBIFP_ELSE");/*_.CELSE__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#DEPTHP1__L4*/ curfnum[1] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1701:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1701:/ block");
-   /*block*/{
-    /*_#IS_STRING__L5*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-outobj.melt:1701:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1701:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1701:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1701:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1701:/ locexp");
-       melt_assert_failed(( "check ccond"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1701)?(1701):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1701:/ clear");
-    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1701:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1701:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1702:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1702:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1702:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1702:/ apply.arg");
-   argtab[2].bp_cstring =  "cppif";
-   /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1703:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1704:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1705:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1706:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1706:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1706:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1706:/ apply.arg");
-   argtab[2].bp_cstring =  "cppif.then";
-   /*_.OUTPUT_LOCATION__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1707:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1707:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:1707:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1707:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTHP1__L4*/ curfnum[1];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1708:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1709:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else /*"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1710:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1711:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1712:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1713:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1713:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1713:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1713:/ apply.arg");
-   argtab[2].bp_cstring =  "cppif.else";
-   /*_.OUTPUT_LOCATION__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1714:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1714:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:1714:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1714:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTHP1__L4*/ curfnum[1];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1715:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1716:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif /*"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1717:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CCOND__V10*/ curfptr[9])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1718:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1719:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.CCOND__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_#DEPTHP1__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1695:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1692:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1692:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCPPIF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJINTERNSYMBOL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1724:/ getarg");
- /*_.OISY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1724:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1724:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1724:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1724:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1725:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1725:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINTERNSYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1725:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1725:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1725:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1725:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1725:/ locexp");
-      melt_assert_failed(( "check oisy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1725)?(1725):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1725:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1725:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1725:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1726:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1726:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1726:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1726:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objinternsymbol oisy";
-    MELT_LOCATION("warmelt-outobj.melt:1726:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1726:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1726:/ apply.arg");
-    argtab[3].bp_long = 1726;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1726:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1726:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1726:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1727:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1728:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OISY__V2*/ curfptr[1]), 1, "OBINTERN_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1729:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OIDAT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1730:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1732:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1732:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1732:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1732:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1732:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1732:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1732:/ locexp");
-       melt_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1732)?(1732):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1732:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1732:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1732:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1733:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1733:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:1733:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1733:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1733:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1733:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1733:/ locexp");
-       melt_assert_failed(( "check oidat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1733)?(1733):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1733:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1733:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1733:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1734:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1734:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V17*/ curfptr[15] = slot; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1735:/ cond");
-   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1735:/ cond.then");
-   /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1735:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1735:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1735:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; };
-     ;
-     /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:1735:/ clear");
-     /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1735:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1735:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1735:/ apply.arg");
-    argtab[1].bp_long = 1;
-    MELT_LOCATION("warmelt-outobj.melt:1735:/ apply.arg");
-    argtab[2].bp_cstring =  "internsymbol";
-    /*_.OUTPUT_LOCATION__V20*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1736:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internsym:"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1737:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1738:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1739:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1740:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) meltgc_intern_symbol((melt_ptr_t)("));}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1741:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1741:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:1741:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1741:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1742:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1743:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1734:/ clear");
-   /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1734:/ clear");
-   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1734:/ clear");
-   /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1734:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ clear");
-  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ clear");
-  /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ clear");
-  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1727:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1724:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1724:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJINTERNSYMBOL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJINTERNKEYWORD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1748:/ getarg");
- /*_.OIKW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1748:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1748:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1748:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1748:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1749:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1749:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINTERNKEYWORD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1749:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1749:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1749:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1749:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1749:/ locexp");
-      melt_assert_failed(( "check oikw"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1749)?(1749):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1749:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1749:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1749:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1750:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1750:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1750:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1750:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objinternkeyword oikw";
-    MELT_LOCATION("warmelt-outobj.melt:1750:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1750:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1750:/ apply.arg");
-    argtab[3].bp_long = 1750;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1750:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1750:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1750:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1751:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1751:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1752:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), 1, "OBINTERN_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1753:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OIDAT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1754:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1756:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1756:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1756:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1756:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1756:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1756:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1756:/ locexp");
-       melt_assert_failed(( "check oidat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1756)?(1756):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1756:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1756:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1756:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1757:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1757:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V15*/ curfptr[13] = slot; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1758:/ cond");
-   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1758:/ cond.then");
-   /*_.IFELSE___V16*/ curfptr[15] = /*_.CLOC__V9*/ curfptr[7];;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1758:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1758:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1758:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V17*/ curfptr[16] = slot; };
-     ;
-     /*_.IFELSE___V16*/ curfptr[15] = /*_.NREP_LOC__V17*/ curfptr[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:1758:/ clear");
-     /*clear*/ /*_.NREP_LOC__V17*/ curfptr[16] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1758:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1758:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1758:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:1758:/ apply.arg");
-    argtab[2].bp_cstring =  "internkeyword";
-    /*_.OUTPUT_LOCATION__V18*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.IFELSE___V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1759:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internkeyw:"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1760:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V15*/ curfptr[13])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1761:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1762:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1763:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) meltgc_intern_keyword((melt_ptr_t)("));}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1764:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1764:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:1764:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1764:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1765:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1766:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1757:/ clear");
-   /*clear*/ /*_.NSY__V15*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1757:/ clear");
-   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1757:/ clear");
-   /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1757:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1751:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1751:/ clear");
-  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1751:/ clear");
-  /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1751:/ clear");
-  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1751:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1748:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1748:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJINTERNKEYWORD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJGETNAMEDSYMBOL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1771:/ getarg");
- /*_.OGSY__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1771:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1771:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1771:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1771:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1772:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1772:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETNAMEDSYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1772:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1772:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1772:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1772:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1772:/ locexp");
-      melt_assert_failed(( "check ogsy"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1772)?(1772):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1772:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1772:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1772:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1773:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1773:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1773:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1773:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objgetnamedsymbol ogsy";
-    MELT_LOCATION("warmelt-outobj.melt:1773:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1773:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1773:/ apply.arg");
-    argtab[3].bp_long = 1773;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1773:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1773:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1773:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1774:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1775:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), 1, "OBGNAMED_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1776:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OGDAT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1777:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1779:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1779:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1779:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1779:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1779:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1779:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1779:/ locexp");
-       melt_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1779)?(1779):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1779:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1779:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1779:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1780:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1780:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:1780:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1780:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1780:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1780:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1780:/ locexp");
-       melt_assert_failed(( "check ogdat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1780)?(1780):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1780:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1780:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1780:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1781:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V17*/ curfptr[15] = slot; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1783:/ cond");
-   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1783:/ cond.then");
-   /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1783:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1783:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1783:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; };
-     ;
-     /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:1783:/ clear");
-     /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1783:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1783:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1783:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:1783:/ apply.arg");
-    argtab[2].bp_cstring =  "getnamedsymbol";
-    /*_.OUTPUT_LOCATION__V20*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1784:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedsym:"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1785:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1786:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1787:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1788:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1789:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1790:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = meltgc_named_symbol(\""));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1791:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1792:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", MELT_GET);"));}
-   ;
-   /*_#I__L6*/ curfnum[1] = 
-    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1793:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1794:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (sy_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1795:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1796:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " && NULL == "));}
-   ;
-   /*_#I__L7*/ curfnum[6] = 
-    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-   MELT_LOCATION("warmelt-outobj.melt:1797:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1797:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:1797:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1797:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#I__L7*/ curfnum[6];
-    /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1798:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")"));}
-   ;
-   /*_#I__L8*/ curfnum[7] = 
-    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1799:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0);}
-   ;
-   /*_#I__L9*/ curfnum[8] = 
-    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-   MELT_LOCATION("warmelt-outobj.melt:1800:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1800:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:1800:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1800:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#I__L9*/ curfnum[8];
-    /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1801:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) sy_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1802:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NSY__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1803:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1804:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1781:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ clear");
-  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ clear");
-  /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ clear");
-  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1774:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1771:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1771:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJGETNAMEDSYMBOL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJGETNAMEDKEYWORD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1809:/ getarg");
- /*_.OGKW__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1809:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1809:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1809:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1809:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1810:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1810:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETNAMEDKEYWORD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1810:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1810:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1810:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1810:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1810:/ locexp");
-      melt_assert_failed(( "check ogkw"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1810)?(1810):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1810:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1810:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1810:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1811:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1811:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1811:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1811:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objgetnamedkeyword ogkw";
-    MELT_LOCATION("warmelt-outobj.melt:1811:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1811:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1811:/ apply.arg");
-    argtab[3].bp_long = 1811;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1811:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1811:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1811:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1812:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1813:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), 1, "OBGNAMED_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1814:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OGDAT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1815:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1817:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1817:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:1817:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1817:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1817:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1817:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1817:/ locexp");
-       melt_assert_failed(( "check oiobj"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1817)?(1817):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1817:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1817:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1817:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:1818:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:1818:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:1818:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1818:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1818:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1818:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1818:/ locexp");
-       melt_assert_failed(( "check ogdat"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1818)?(1818):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1818:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1818:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:1818:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:1819:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NKW__V17*/ curfptr[15] = slot; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1820:/ cond");
-   /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1820:/ cond.then");
-   /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1820:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1820:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1820:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; };
-     ;
-     /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:1820:/ clear");
-     /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1820:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1820:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1820:/ apply.arg");
-    argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:1820:/ apply.arg");
-    argtab[2].bp_cstring =  "getnamedkeyword";
-    /*_.OUTPUT_LOCATION__V20*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1821:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedkeyw:"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1822:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1823:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1824:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1825:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t kw_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1826:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1827:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = meltgc_named_keyword(\""));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1828:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1829:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", MELT_GET);"));}
-   ;
-   /*_#I__L6*/ curfnum[1] = 
-    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1830:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1831:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (kw_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1832:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1833:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") "));}
-   ;
-   /*_#I__L7*/ curfnum[6] = 
-    ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-   MELT_LOCATION("warmelt-outobj.melt:1834:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1834:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:1834:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1834:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#I__L7*/ curfnum[6];
-    /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1835:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) kw_"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1836:/ locexp");
-   meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NKW__V17*/ curfptr[15])));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1837:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:1838:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ clear");
-   /*clear*/ /*_.NKW__V17*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ clear");
-   /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ clear");
-   /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ clear");
-   /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ clear");
-   /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1819:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ clear");
-  /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ clear");
-  /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ clear");
-  /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1812:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1809:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1809:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJGETNAMEDKEYWORD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 30
-  void* varptr[30];
-#define CURFRAM_NBVARNUM 14
-  long varnum[14];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<30; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 30;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJAPPLY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1844:/ getarg");
- /*_.OAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1844:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1844:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1844:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1844:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1845:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1845:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:1845:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1845:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1845:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1845:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1845:/ locexp");
-      melt_assert_failed(( "check oapp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1845)?(1845):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1845:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1845:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1845:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1846:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1846:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1846:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1846:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objapply oapp";
-    MELT_LOCATION("warmelt-outobj.melt:1846:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1846:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1846:/ apply.arg");
-    argtab[3].bp_long = 1846;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1846:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1846:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1846:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1847:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1848:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ALOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1849:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ADEST__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1850:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 2, "OBAPP_CLOS");/*_.OCLOS__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1851:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 3, "OBAPP_ARGS");/*_.OARGS__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#NBARG__L4*/ curfnum[1] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11])));;
-  /*_.PARAMDESCLIST__V13*/ curfptr[12] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_#I__L5*/ curfnum[4] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  /*_.BOXDEPTHP1__V14*/ curfptr[13] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L5*/ curfnum[4])));;
-  MELT_LOCATION("warmelt-outobj.melt:1856:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1856:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1856:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1856:/ apply.arg");
-   argtab[2].bp_cstring =  "apply";
-   /*_.OUTPUT_LOCATION__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1857:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*apply*/{"));}
-  ;
-  /*_#I__L6*/ curfnum[5] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1858:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0);}
-  ;
-  /*_#I__L7*/ curfnum[6] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
-  MELT_LOCATION("warmelt-outobj.melt:1859:/ cond");
-  /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1859:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1859:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1861:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
-    ;
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#NBARG__L4*/ curfnum[1]) - (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1862:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1863:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
-    ;
-    /*_#I__L9*/ curfnum[8] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1864:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1865:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
-    ;
-    /*_#I__L10*/ curfnum[9] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1866:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L10*/ curfnum[9]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1870:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:1870:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1870:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1870:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1870:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1870:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[3] = (melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ curfptr[12]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:1870:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[4] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1868:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1868:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16];
-     /*_.MULTIPLE_EVERY__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1860:/ block");
-    /*block*/{
-     /*_.PROGN___V20*/ curfptr[19] = /*_.MULTIPLE_EVERY__V19*/ curfptr[18];;}
-    ;
-    /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
-    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
-    /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
-    /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1859:/ clear");
-    /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1859:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[15] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1902:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1902:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[18] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1902:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1902:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1902:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
-   ;
-   /*_.LAMBDA___V21*/ curfptr[16] = /*_.LAMBDA___V22*/ curfptr[18];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1900:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1900:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[16];
-   /*_.LIST_EVERY__V23*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.ADEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1906:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " melt_apply ((meltclosure_ptr_t)("));}
-  ;
-  /*_#I__L11*/ curfnum[7] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-outobj.melt:1907:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1907:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:1907:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1907:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L11*/ curfnum[7];
-   /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1908:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1910:/ block");
-  /*block*/{
-   /*_.FIRSTARG__V26*/ curfptr[25] = 
-    (melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (0)));;
-   /*_#I__L12*/ curfnum[8] = 
-    ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-   MELT_LOCATION("warmelt-outobj.melt:1911:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1911:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:1911:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:1911:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#I__L12*/ curfnum[8];
-    /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V26*/ curfptr[25]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LET___V25*/ curfptr[24] = /*_.OUTPUT_C_CODE__V27*/ curfptr[26];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1910:/ clear");
-   /*clear*/ /*_.FIRSTARG__V26*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1910:/ clear");
-   /*clear*/ /*_#I__L12*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1910:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = 0 ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1913:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1917:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1917:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[26] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:1917:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[26])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[26])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[26])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V28*/ curfptr[25] = /*_.LAMBDA___V29*/ curfptr[26];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1915:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1915:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[25];
-   /*_.LIST_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1920:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
-  ;
-  /*_#I__L13*/ curfnum[9] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
-  MELT_LOCATION("warmelt-outobj.melt:1922:/ cond");
-  /*cond*/ if (/*_#I__L13*/ curfnum[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1922:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1922:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1923:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:1922:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:1922:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1924:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0,"));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1926:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union meltparam_un*)0"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1927:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  /*_#I__L14*/ curfnum[8] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1928:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[8]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1929:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1930:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.PARAMDESCLIST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.LAMBDA___V21*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V23*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.LAMBDA___V28*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#I__L13*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1847:/ clear");
-  /*clear*/ /*_#I__L14*/ curfnum[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1844:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1844:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJAPPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_74_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_74_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 15
-  long varnum[15];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1870:/ getarg");
- /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1870:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1870:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1871:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1871:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1871:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1871:/ apply.arg");
-    argtab[0].bp_cstring =  "outputcod_objapply curarg";
-    MELT_LOCATION("warmelt-outobj.melt:1871:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1871:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1871:/ apply.arg");
-    argtab[3].bp_long = 1871;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1871:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1871:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1871:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1872:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1872:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[1])));;
-   /*_#NOT__L4*/ curfnum[3] = 
-    (!(/*_#IS_A__L3*/ curfnum[1]));;
-   MELT_LOCATION("warmelt-outobj.melt:1872:/ cond");
-   /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1872:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1872:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1872:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1872:/ locexp");
-      melt_assert_failed(( "outputcod_objapply check curarg not objinstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1872)?(1872):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1872:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1872:/ clear");
-   /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1872:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1872:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L5*/ curfnum[1] = 
-  ((/*_#CURANK__L1*/ curfnum[0]) > (0));;
- MELT_LOCATION("warmelt-outobj.melt:1873:/ cond");
- /*cond*/ if (/*_#I__L5*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:1873:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:1873:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:1874:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1874:/ ojbmsend.arg");
-     argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     /*_.CURCTYP__V7*/ curfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:1875:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:1875:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 
-       callcount;;
-      MELT_LOCATION("warmelt-outobj.melt:1875:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:1875:/ apply.arg");
-       argtab[0].bp_cstring =  "outputcod_objapply curctyp";
-       MELT_LOCATION("warmelt-outobj.melt:1875:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3];
-       MELT_LOCATION("warmelt-outobj.melt:1875:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-outobj.melt";
-       MELT_LOCATION("warmelt-outobj.melt:1875:/ apply.arg");
-       argtab[3].bp_long = 1875;
-       /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1875:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:1875:/ cppif.else");
-    /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:1876:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:1876:/ block");
-     /*block*/{
-      /*_#IS_A__L7*/ curfnum[3] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-      MELT_LOCATION("warmelt-outobj.melt:1876:/ cond");
-      /*cond*/ if (/*_#IS_A__L7*/ curfnum[3]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:1876:/ cond.then");
-      /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:1876:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:1876:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:1876:/ locexp");
-         melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1876)?(1876):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1876:/ clear");
-      /*clear*/ /*_#IS_A__L7*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1876:/ clear");
-      /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:1876:/ cppif.else");
-    /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_#GET_INT__L8*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-    MELT_LOCATION("warmelt-outobj.melt:1877:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:1877:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-outobj.melt:1877:/ apply.arg");
-     argtab[1].bp_long = /*_#GET_INT__L8*/ curfnum[3];
-     MELT_LOCATION("warmelt-outobj.melt:1877:/ apply.arg");
-     argtab[2].bp_cstring =  "apply.arg";
-     /*_.OUTPUT_LOCATION__V12*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1878:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab["));}
-    ;
-    /*_#I__L9*/ curfnum[8] = 
-     ((/*_#CURANK__L1*/ curfnum[0]) - (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1879:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L9*/ curfnum[8]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1880:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1881:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V13*/ curfptr[12] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1881:/ locexp");
-    meltgc_append_list((melt_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V13*/ curfptr[12]));}
-    ;
-    /*_#NULL__L10*/ curfnum[9] = 
-     ((/*_.CURARG__V2*/ curfptr[1]) == NULL);;
-    MELT_LOCATION("warmelt-outobj.melt:1882:/ cond");
-    /*cond*/ if (/*_#NULL__L10*/ curfnum[9]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:1882:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:1882:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:1883:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
-       ;
-       /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:1882:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:1882:/ block");
-     /*block*/{
-      /*_#IS_A__L11*/ curfnum[10] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[5])));;
-      MELT_LOCATION("warmelt-outobj.melt:1884:/ cond");
-      /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:1884:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:1884:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:1885:/ locexp");
-         meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = /*nil*/(melt_ptr_t*)NULL"));}
-         ;
-         /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:1884:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:1884:/ block");
-       /*block*/{
-        /*_#__L12*/ curfnum[11] = 
-         ((/*_.CURCTYP__V7*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[6])));;
-        MELT_LOCATION("warmelt-outobj.melt:1886:/ cond");
-        /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:1886:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:1886:/ block");
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-outobj.melt:1887:/ locexp");
-          meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
-          ;
-          /*_#GET_INT__L13*/ curfnum[12] = 
-           (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-          MELT_LOCATION("warmelt-outobj.melt:1888:/ msend");
-          /*msend*/{
-           union meltparam_un argtab[3];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-outobj.melt:1888:/ ojbmsend.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
-           MELT_LOCATION("warmelt-outobj.melt:1888:/ ojbmsend.arg");
-           argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-           MELT_LOCATION("warmelt-outobj.melt:1888:/ ojbmsend.arg");
-           argtab[2].bp_long = /*_#GET_INT__L13*/ curfnum[12];
-           /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ block");
-          /*block*/{
-           /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_C_CODE__V17*/ curfptr[16];;}
-          ;
-          /*_.IFELSE___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:1886:/ cond.else");
-        
-         MELT_LOCATION("warmelt-outobj.melt:1886:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-outobj.melt:1891:/ getslot");
-          { melt_ptr_t slot=0;
-           melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V7*/ curfptr[5]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V19*/ curfptr[16] = slot; };
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-outobj.melt:1891:/ locexp");
-          meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V19*/ curfptr[16])));}
-          ;
-          
-          {
-          MELT_LOCATION("warmelt-outobj.melt:1892:/ locexp");
-          meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
-          ;
-          /*_#GET_INT__L14*/ curfnum[12] = 
-           (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-          MELT_LOCATION("warmelt-outobj.melt:1893:/ msend");
-          /*msend*/{
-           union meltparam_un argtab[3];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-outobj.melt:1893:/ ojbmsend.arg");
-           argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
-           MELT_LOCATION("warmelt-outobj.melt:1893:/ ojbmsend.arg");
-           argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-           MELT_LOCATION("warmelt-outobj.melt:1893:/ ojbmsend.arg");
-           argtab[2].bp_long = /*_#GET_INT__L14*/ curfnum[12];
-           /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          MELT_LOCATION("warmelt-outobj.melt:1890:/ block");
-          /*block*/{
-           /*_.PROGN___V21*/ curfptr[20] = /*_.OUTPUT_C_CODE__V20*/ curfptr[17];;}
-          ;
-          /*_.IFELSE___V16*/ curfptr[15] = /*_.PROGN___V21*/ curfptr[20];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_.CTYPE_ARGFIELD__V19*/ curfptr[16] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_#GET_INT__L14*/ curfnum[12] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:1886:/ clear");
-          /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;}
-         ;
-         }
-        ;
-        /*_.IFELSE___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:1884:/ clear");
-        /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:1884:/ clear");
-        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1882:/ clear");
-      /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1882:/ clear");
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     ;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1895:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
-    ;
-    /*_#GET_INT__L15*/ curfnum[12] = 
-     (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1896:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L15*/ curfnum[12]), 0);}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_.CURCTYP__V7*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_#GET_INT__L8*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_.CTYPE_PARSTRING__V13*/ curfptr[12] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_#NULL__L10*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1874:/ clear");
-    /*clear*/ /*_#GET_INT__L15*/ curfnum[12] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1870:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1870:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1870:/ clear");
- /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_74_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_75_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_75_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1902:/ getarg");
- /*_.CURDEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1902:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:1903:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:1903:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:1903:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:1903:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1904:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1902:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1902:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_75_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_76_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_76_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1917:/ getarg");
- /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1917:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1918:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:1919:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_76_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 50
-  void* varptr[50];
-#define CURFRAM_NBVARNUM 30
-  long varnum[30];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<50; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 50;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJMSEND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:1937:/ getarg");
- /*_.OMSEND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:1937:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:1937:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:1937:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:1937:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1938:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1938:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:1938:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objmsend omsend";
-    MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:1938:/ apply.arg");
-    argtab[3].bp_long = 1938;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1938:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1938:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1938:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:1939:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:1939:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMSEND*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:1939:/ cond");
-   /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:1939:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:1939:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:1939:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1939:/ locexp");
-      melt_assert_failed(( "check omsend"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1939)?(1939):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1939:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1939:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:1939:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:1940:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1941:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ODEST__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1942:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 2, "OBMSND_SEL");/*_.OSEL__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1943:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 3, "OBMSND_RECV");/*_.ORECV__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:1944:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 4, "OBMSND_ARGS");/*_.OARGS__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#NBARG__L4*/ curfnum[1] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12])));;
-  /*_.PARAMDESCLIST__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_#I__L5*/ curfnum[4] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  /*_.BOXDEPTHP1__V15*/ curfptr[14] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L5*/ curfnum[4])));;
-  MELT_LOCATION("warmelt-outobj.melt:1949:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1949:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:1949:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:1949:/ apply.arg");
-   argtab[2].bp_cstring =  "msend";
-   /*_.OUTPUT_LOCATION__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1950:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*msend*/{"));}
-  ;
-  /*_#I__L6*/ curfnum[5] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:1951:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0);}
-  ;
-  /*_#I__L7*/ curfnum[6] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:1952:/ cond");
-  /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:1952:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:1952:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1957:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1958:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1959:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
-    ;
-    /*_#I__L8*/ curfnum[7] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1960:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1961:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
-    ;
-    /*_#I__L9*/ curfnum[8] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:1962:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.OARGS__V13*/ curfptr[12]);
-   for (/*_#CURANK__L10*/ curfnum[9] = 0;  
-	(/*_#CURANK__L10*/ curfnum[9] >= 0) && (/*_#CURANK__L10*/ curfnum[9] <  cit1__EACHTUP_ln);  
-	/*_#CURANK__L10*/ curfnum[9]++) {
-   /*_.CURARG__V17*/ curfptr[16] = melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12]),  /*_#CURANK__L10*/ curfnum[9]);
-   
-    
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:1967:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:1967:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-        callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:1967:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:1967:/ apply.arg");
-        argtab[0].bp_cstring =  "outputcod_objmsend curarg";
-        MELT_LOCATION("warmelt-outobj.melt:1967:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-        MELT_LOCATION("warmelt-outobj.melt:1967:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:1967:/ apply.arg");
-        argtab[3].bp_long = 1967;
-        /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:1967:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:1967:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:1967:/ cppif.else");
-     /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-outobj.melt:1968:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:1968:/ ojbmsend.arg");
-       argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-       /*_.CURCTYP__V20*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:1969:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:1969:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
-         callcount;;
-        MELT_LOCATION("warmelt-outobj.melt:1969:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:1969:/ apply.arg");
-         argtab[0].bp_cstring =  "outputcod_objmsend curctyp";
-         MELT_LOCATION("warmelt-outobj.melt:1969:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
-         MELT_LOCATION("warmelt-outobj.melt:1969:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-         MELT_LOCATION("warmelt-outobj.melt:1969:/ apply.arg");
-         argtab[3].bp_long = 1969;
-         /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:1969:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:1969:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:1969:/ cppif.else");
-      /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:1970:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:1970:/ block");
-       /*block*/{
-        /*_#IS_A__L13*/ curfnum[10] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));;
-        MELT_LOCATION("warmelt-outobj.melt:1970:/ cond");
-        /*cond*/ if (/*_#IS_A__L13*/ curfnum[10]) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:1970:/ cond.then");
-        /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-outobj.melt:1970:/ cond.else");
-        
-         MELT_LOCATION("warmelt-outobj.melt:1970:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-outobj.melt:1970:/ locexp");
-           melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1970)?(1970):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:1970:/ clear");
-        /*clear*/ /*_#IS_A__L13*/ curfnum[10] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:1970:/ clear");
-        /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:1970:/ cppif.else");
-      /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_#GET_INT__L14*/ curfnum[10] = 
-       (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
-      MELT_LOCATION("warmelt-outobj.melt:1971:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:1971:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-       MELT_LOCATION("warmelt-outobj.melt:1971:/ apply.arg");
-       argtab[1].bp_long = /*_#GET_INT__L14*/ curfnum[10];
-       MELT_LOCATION("warmelt-outobj.melt:1971:/ apply.arg");
-       argtab[2].bp_cstring =  "ojbmsend.arg";
-       /*_.OUTPUT_LOCATION__V25*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1972:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab["));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1973:/ locexp");
-      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#CURANK__L10*/ curfnum[9]));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1974:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:1975:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V26*/ curfptr[25] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1975:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V26*/ curfptr[25]));}
-      ;
-      /*_#NULL__L15*/ curfnum[14] = 
-       ((/*_.CURARG__V17*/ curfptr[16]) == NULL);;
-      MELT_LOCATION("warmelt-outobj.melt:1976:/ cond");
-      /*cond*/ if (/*_#NULL__L15*/ curfnum[14]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:1976:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:1976:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:1977:/ locexp");
-         meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "bp_aptr = (melt_ptr_t*)NULL"));}
-         ;
-         /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:1976:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:1976:/ block");
-       /*block*/{
-        /*_#IS_A__L16*/ curfnum[15] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[7])));;
-        MELT_LOCATION("warmelt-outobj.melt:1979:/ cond");
-        /*cond*/ if (/*_#IS_A__L16*/ curfnum[15]) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:1979:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:1979:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-outobj.melt:1980:/ locexp");
-           meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "bp_aptr = /*nil*/(melt_ptr_t*)NULL"));}
-           ;
-           /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:1979:/ cond.else");
-        
-         MELT_LOCATION("warmelt-outobj.melt:1979:/ block");
-         /*block*/{
-          /*_#__L17*/ curfnum[16] = 
-           ((/*_.CURCTYP__V20*/ curfptr[18]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[8])));;
-          MELT_LOCATION("warmelt-outobj.melt:1982:/ cond");
-          /*cond*/ if (/*_#__L17*/ curfnum[16]) /*then*/ {
-          MELT_LOCATION("warmelt-outobj.melt:1982:/ cond.then");
-          MELT_LOCATION("warmelt-outobj.melt:1982:/ block");
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-outobj.melt:1983:/ locexp");
-            meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "bp_aptr = (melt_ptr_t*) &"));}
-            ;
-            /*_#GET_INT__L18*/ curfnum[17] = 
-             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
-            MELT_LOCATION("warmelt-outobj.melt:1984:/ msend");
-            /*msend*/{
-             union meltparam_un argtab[3];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-outobj.melt:1984:/ ojbmsend.arg");
-             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-             MELT_LOCATION("warmelt-outobj.melt:1984:/ ojbmsend.arg");
-             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-             MELT_LOCATION("warmelt-outobj.melt:1984:/ ojbmsend.arg");
-             argtab[2].bp_long = /*_#GET_INT__L18*/ curfnum[17];
-             /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ block");
-            /*block*/{
-             /*_.PROGN___V31*/ curfptr[30] = /*_.OUTPUT_C_CODE__V30*/ curfptr[29];;}
-            ;
-            /*_.IFELSE___V29*/ curfptr[28] = /*_.PROGN___V31*/ curfptr[30];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_#GET_INT__L18*/ curfnum[17] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;}
-           ;
-          } else {MELT_LOCATION("warmelt-outobj.melt:1982:/ cond.else");
-          
-           MELT_LOCATION("warmelt-outobj.melt:1982:/ block");
-           /*block*/{
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-outobj.melt:1987:/ cppif.then");
-            MELT_LOCATION("warmelt-outobj.melt:1987:/ block");
-             /*block*/{
-              /*_#IS_MULTIPLE__L19*/ curfnum[17] = 
-               (melt_magic_discr((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16])) == OBMAG_MULTIPLE);;
-              /*_#NOT__L20*/ curfnum[19] = 
-               (!(/*_#IS_MULTIPLE__L19*/ curfnum[17]));;
-              MELT_LOCATION("warmelt-outobj.melt:1987:/ cond");
-              /*cond*/ if (/*_#NOT__L20*/ curfnum[19]) /*then*/ {
-              MELT_LOCATION("warmelt-outobj.melt:1987:/ cond.then");
-              /*_.IFELSE___V33*/ curfptr[30] = (/*nil*/NULL);;
-              } else {MELT_LOCATION("warmelt-outobj.melt:1987:/ cond.else");
-              
-               MELT_LOCATION("warmelt-outobj.melt:1987:/ block");
-               /*block*/{
-                /*block*/{
-                 
-                 {
-                 MELT_LOCATION("warmelt-outobj.melt:1987:/ locexp");
-                 melt_assert_failed(( "check curarg is not multiple"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (1987)?(1987):__LINE__, __FUNCTION__);
-;}
-                 ;
-                 /*clear*/ /*_.IFELSE___V33*/ curfptr[30] = 0 ;}
-                ;
-                /*epilog*/}
-               ;
-               }
-              ;
-              /*_.IFCPP___V32*/ curfptr[29] = /*_.IFELSE___V33*/ curfptr[30];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-outobj.melt:1987:/ clear");
-              /*clear*/ /*_#IS_MULTIPLE__L19*/ curfnum[17] = 0 ;
-              MELT_LOCATION("warmelt-outobj.melt:1987:/ clear");
-              /*clear*/ /*_#NOT__L20*/ curfnum[19] = 0 ;
-              MELT_LOCATION("warmelt-outobj.melt:1987:/ clear");
-              /*clear*/ /*_.IFELSE___V33*/ curfptr[30] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-outobj.melt:1987:/ cppif.else");
-            /*_.IFCPP___V32*/ curfptr[29] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            MELT_LOCATION("warmelt-outobj.melt:1988:/ getslot");
-            { melt_ptr_t slot=0;
-             melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V20*/ curfptr[18]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V34*/ curfptr[30] = slot; };
-            ;
-            
-            {
-            MELT_LOCATION("warmelt-outobj.melt:1988:/ locexp");
-            meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V34*/ curfptr[30])));}
-            ;
-            
-            {
-            MELT_LOCATION("warmelt-outobj.melt:1989:/ locexp");
-            meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = "));}
-            ;
-            /*_#GET_INT__L21*/ curfnum[17] = 
-             (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
-            MELT_LOCATION("warmelt-outobj.melt:1990:/ msend");
-            /*msend*/{
-             union meltparam_un argtab[3];
-             memset(&argtab, 0, sizeof(argtab));
-             MELT_LOCATION("warmelt-outobj.melt:1990:/ ojbmsend.arg");
-             argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-             MELT_LOCATION("warmelt-outobj.melt:1990:/ ojbmsend.arg");
-             argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-             MELT_LOCATION("warmelt-outobj.melt:1990:/ ojbmsend.arg");
-             argtab[2].bp_long = /*_#GET_INT__L21*/ curfnum[17];
-             /*_.OUTPUT_C_CODE__V35*/ curfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ curfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-             }
-            ;
-            MELT_LOCATION("warmelt-outobj.melt:1986:/ block");
-            /*block*/{
-             /*_.PROGN___V36*/ curfptr[35] = /*_.OUTPUT_C_CODE__V35*/ curfptr[34];;}
-            ;
-            /*_.IFELSE___V29*/ curfptr[28] = /*_.PROGN___V36*/ curfptr[35];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_.IFCPP___V32*/ curfptr[29] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_.CTYPE_ARGFIELD__V34*/ curfptr[30] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_#GET_INT__L21*/ curfnum[17] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_.OUTPUT_C_CODE__V35*/ curfptr[34] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:1982:/ clear");
-            /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;}
-           ;
-           }
-          ;
-          /*_.IFELSE___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:1979:/ clear");
-          /*clear*/ /*_#__L17*/ curfnum[16] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:1979:/ clear");
-          /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;}
-         ;
-         }
-        ;
-        /*_.IFELSE___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:1976:/ clear");
-        /*clear*/ /*_#IS_A__L16*/ curfnum[15] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:1976:/ clear");
-        /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;}
-       ;
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1992:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
-      ;
-      /*_#GET_INT__L22*/ curfnum[19] = 
-       (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:1993:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L22*/ curfnum[19]), 0);}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_.CURCTYP__V20*/ curfptr[18] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_#GET_INT__L14*/ curfnum[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_.OUTPUT_LOCATION__V25*/ curfptr[23] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_.CTYPE_PARSTRING__V26*/ curfptr[25] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_#NULL__L15*/ curfnum[14] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:1968:/ clear");
-      /*clear*/ /*_#GET_INT__L22*/ curfnum[19] = 0 ;}
-     ;
-     if (/*_#CURANK__L10*/ curfnum[9]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-outobj.melt:1964:/ clear");
-     /*clear*/ /*_.CURARG__V17*/ curfptr[16] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1964:/ clear");
-     /*clear*/ /*_#CURANK__L10*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:1964:/ clear");
-     /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:1956:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:1952:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:1952:/ clear");
-    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*citerblock FOREACH_IN_LIST*/ {
-  /* start cit2__EACHLIST */
-   for (/*_.CURPAIR__V37*/ curfptr[29] = melt_list_first(/*_.ODEST__V10*/ curfptr[9]);
-	melt_magic_discr(/*_.CURPAIR__V37*/ curfptr[29]) == OBMAG_PAIR;
-        /*_.CURPAIR__V37*/ curfptr[29] = melt_pair_tail(/*_.CURPAIR__V37*/ curfptr[29])) {
-	/*_.CURDEST__V38*/ curfptr[30] = melt_pair_head(/*_.CURPAIR__V37*/ curfptr[29]); 
-  
-   /*_#GET_INT__L23*/ curfnum[17] = 
-    (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14])));;
-   MELT_LOCATION("warmelt-outobj.melt:2000:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2000:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:2000:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:2000:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#GET_INT__L23*/ curfnum[17];
-    /*_.OUTPUT_C_CODE__V39*/ curfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V38*/ curfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:2001:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = "));}
-   ;
-   } /* end cit2__EACHLIST */
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:1997:/ clear");
-   /*clear*/ /*_.CURPAIR__V37*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1997:/ clear");
-   /*clear*/ /*_.CURDEST__V38*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1997:/ clear");
-   /*clear*/ /*_#GET_INT__L23*/ curfnum[17] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:1997:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V39*/ curfptr[34] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2003:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2003:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:2003:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2003:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objmsend orecv";
-     MELT_LOCATION("warmelt-outobj.melt:2003:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[16];
-     MELT_LOCATION("warmelt-outobj.melt:2003:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:2003:/ apply.arg");
-     argtab[3].bp_long = 2003;
-     /*_.DEBUG_MSG_FUN__V41*/ curfptr[28] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V40*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[28];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2003:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2003:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[28] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2003:/ cppif.else");
-  /*_.IFCPP___V40*/ curfptr[35] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2004:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2004:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:2004:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2004:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objmsend oloc";
-     MELT_LOCATION("warmelt-outobj.melt:2004:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[15];
-     MELT_LOCATION("warmelt-outobj.melt:2004:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:2004:/ apply.arg");
-     argtab[3].bp_long = 2004;
-     /*_.DEBUG_MSG_FUN__V43*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V42*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2004:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[15] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2004:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2004:/ cppif.else");
-  /*_.IFCPP___V42*/ curfptr[27] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2005:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2005:/ block");
-   /*block*/{
-    /*_#IS_OBJECT__L26*/ curfnum[10] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11])) == OBMAG_OBJECT);;
-    MELT_LOCATION("warmelt-outobj.melt:2005:/ cond");
-    /*cond*/ if (/*_#IS_OBJECT__L26*/ curfnum[10]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2005:/ cond.then");
-    /*_.IFELSE___V45*/ curfptr[21] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2005:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2005:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2005:/ locexp");
-       melt_assert_failed(( "check orecv object"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2005)?(2005):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V45*/ curfptr[21] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V44*/ curfptr[20] = /*_.IFELSE___V45*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2005:/ clear");
-    /*clear*/ /*_#IS_OBJECT__L26*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2005:/ clear");
-    /*clear*/ /*_.IFELSE___V45*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2005:/ cppif.else");
-  /*_.IFCPP___V44*/ curfptr[20] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2007:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "meltgc_send((melt_ptr_t)("));}
-  ;
-  /*_#I__L27*/ curfnum[14] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  MELT_LOCATION("warmelt-outobj.melt:2008:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2008:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2008:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2008:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L27*/ curfnum[14];
-   /*_.OUTPUT_C_CODE__V46*/ curfptr[23] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2009:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (melt_ptr_t)("));}
-  ;
-  /*_#I__L28*/ curfnum[19] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  MELT_LOCATION("warmelt-outobj.melt:2010:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2010:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2010:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2010:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L28*/ curfnum[19];
-   /*_.OUTPUT_C_CODE__V47*/ curfptr[25] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2011:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2015:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2015:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V49*/ curfptr[28] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2015:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V49*/ curfptr[28])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V49*/ curfptr[28])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V49*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V48*/ curfptr[26] = /*_.LAMBDA___V49*/ curfptr[28];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2013:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2013:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ curfptr[26];
-   /*_.LIST_EVERY__V50*/ curfptr[18] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2018:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
-  ;
-  /*_#I__L29*/ curfnum[7] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2019:/ cond");
-  /*cond*/ if (/*_#I__L29*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2019:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2019:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2020:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2019:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2019:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2021:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0,"));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2023:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union meltparam_un*)0"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2024:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  /*_#I__L30*/ curfnum[8] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2025:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L30*/ curfnum[8]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2026:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2027:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.IFCPP___V40*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.IFCPP___V42*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.IFCPP___V44*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L27*/ curfnum[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V46*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L28*/ curfnum[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V47*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.LAMBDA___V48*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V50*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L29*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:1940:/ clear");
-  /*clear*/ /*_#I__L30*/ curfnum[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:1937:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:1937:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJMSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_78_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_78_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2015:/ getarg");
- /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2015:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2016:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2017:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_78_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 48
-  void* varptr[48];
-#define CURFRAM_NBVARNUM 27
-  long varnum[27];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<48; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 48;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJMULTIAPPLY", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2034:/ getarg");
- /*_.OAPP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2034:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2034:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2034:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2034:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2035:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2035:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2035:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2035:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2035:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2035:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2035:/ locexp");
-      melt_assert_failed(( "check oapp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2035)?(2035):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2035:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2035:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2035:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2036:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2036:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2036:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2036:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objmultiapply oapp";
-    MELT_LOCATION("warmelt-outobj.melt:2036:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2036:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2036:/ apply.arg");
-    argtab[3].bp_long = 2036;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2036:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2036:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2036:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2037:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2038:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ALOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2039:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ADEST__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2040:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 2, "OBAPP_CLOS");/*_.OCLOS__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2041:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 3, "OBAPP_ARGS");/*_.OARGS__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2042:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 4, "OBMULTAPP_XRES");/*_.OXRES__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#NBARG__L4*/ curfnum[1] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11])));;
-  /*_#NBXRES__L5*/ curfnum[4] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12])));;
-  /*_.PARAMDESCLIST__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_.RESDESCLIST__V15*/ curfptr[14] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_#I__L6*/ curfnum[5] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  /*_.BOXDEPTHP1__V16*/ curfptr[15] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L6*/ curfnum[5])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2049:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2049:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = 
-     ((/*_.OARGS__V12*/ curfptr[11]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-outobj.melt:2049:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2049:/ cond.then");
-    /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2049:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2049:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2049:/ locexp");
-       melt_assert_failed(( "check oargs"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2049)?(2049):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2049:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2049:/ clear");
-    /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2049:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2050:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2050:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = 
-     ((/*_.OXRES__V13*/ curfptr[12]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-outobj.melt:2050:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2050:/ cond.then");
-    /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2050:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2050:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2050:/ locexp");
-       melt_assert_failed(( "check oxres"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2050)?(2050):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2050:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2050:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2050:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:2051:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2051:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2051:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2051:/ apply.arg");
-   argtab[2].bp_cstring =  "multiapply";
-   /*_.OUTPUT_LOCATION__V21*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2052:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multiapply "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2053:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2054:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "args, "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2055:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2056:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "x.res*/ "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2057:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
-  ;
-  /*_#I__L9*/ curfnum[6] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2058:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[6]), 0);}
-  ;
-  /*_#I__L10*/ curfnum[9] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
-  MELT_LOCATION("warmelt-outobj.melt:2059:/ cond");
-  /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2059:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2059:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2061:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
-    ;
-    /*_#I__L11*/ curfnum[10] = 
-     ((/*_#NBARG__L4*/ curfnum[1]) - (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2062:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2063:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
-    ;
-    /*_#I__L12*/ curfnum[11] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2064:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L12*/ curfnum[11]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2060:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2059:/ clear");
-    /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2059:/ clear");
-    /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L13*/ curfnum[10] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2066:/ cond");
-  /*cond*/ if (/*_#I__L13*/ curfnum[10]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2066:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2066:/ block");
-   /*block*/{
-    /*_#I__L14*/ curfnum[11] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2068:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[11]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2069:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un restab["));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2070:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2071:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
-    ;
-    /*_#I__L15*/ curfnum[14] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2072:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2067:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2066:/ clear");
-    /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2066:/ clear");
-    /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L16*/ curfnum[11] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2074:/ cond");
-  /*cond*/ if (/*_#I__L16*/ curfnum[11]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2074:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2074:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2076:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));"));}
-    ;
-    /*_#I__L17*/ curfnum[14] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2077:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L17*/ curfnum[14]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2081:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:2081:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2081:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (melt_ptr_t)(/*_.RESDESCLIST__V15*/ curfptr[14]);
-     ;
-     /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2079:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2079:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[22];
-     /*_.MULTIPLE_EVERY__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2075:/ block");
-    /*block*/{
-     /*_.PROGN___V26*/ curfptr[25] = /*_.MULTIPLE_EVERY__V25*/ curfptr[24];;}
-    ;
-    /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V26*/ curfptr[25];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2074:/ clear");
-    /*clear*/ /*_#I__L17*/ curfnum[14] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2074:/ clear");
-    /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2074:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2074:/ clear");
-    /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2074:/ cond.else");
-  
-   /*_.IF___V22*/ curfptr[21] = NULL;;
-   }
-  ;
-  /*_#I__L18*/ curfnum[14] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
-  MELT_LOCATION("warmelt-outobj.melt:2084:/ cond");
-  /*cond*/ if (/*_#I__L18*/ curfnum[14]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2084:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2084:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2086:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
-    ;
-    /*_#I__L19*/ curfnum[18] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2087:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L19*/ curfnum[18]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2091:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:2091:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[24] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2091:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2091:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2091:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2091:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[3] = (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2091:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[4] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     /*_.LAMBDA___V27*/ curfptr[22] = /*_.LAMBDA___V28*/ curfptr[24];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2089:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2089:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[22];
-     /*_.MULTIPLE_EVERY__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#GET_INT__L20*/ curfnum[19] = 
-     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2116:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L20*/ curfnum[19]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2085:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2084:/ clear");
-    /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2084:/ clear");
-    /*clear*/ /*_.LAMBDA___V27*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2084:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2084:/ clear");
-    /*clear*/ /*_#GET_INT__L20*/ curfnum[19] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L21*/ curfnum[18] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2119:/ cond");
-  /*cond*/ if (/*_#I__L21*/ curfnum[18]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2119:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2119:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2123:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:2123:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[31] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2123:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[0] = (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2123:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2123:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2123:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[3] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     /*_.LAMBDA___V31*/ curfptr[25] = /*_.LAMBDA___V32*/ curfptr[31];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2121:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2121:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[25];
-     /*_.MULTIPLE_EVERY__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2120:/ block");
-    /*block*/{
-     /*_.PROGN___V34*/ curfptr[33] = /*_.MULTIPLE_EVERY__V33*/ curfptr[32];;}
-    ;
-    /*_.IF___V30*/ curfptr[22] = /*_.PROGN___V34*/ curfptr[33];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2119:/ clear");
-    /*clear*/ /*_.LAMBDA___V31*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2119:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V33*/ curfptr[32] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2119:/ clear");
-    /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2119:/ cond.else");
-  
-   /*_.IF___V30*/ curfptr[22] = NULL;;
-   }
-  ;
-  /*_#GET_INT__L22*/ curfnum[19] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15])));;
-  MELT_LOCATION("warmelt-outobj.melt:2148:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2148:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2148:/ apply.arg");
-   argtab[1].bp_long = /*_#GET_INT__L22*/ curfnum[19];
-   MELT_LOCATION("warmelt-outobj.melt:2148:/ apply.arg");
-   argtab[2].bp_cstring =  "multiapply.appl";
-   /*_.OUTPUT_LOCATION__V35*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2152:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2152:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[33] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2152:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2152:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2152:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]);
-   ;
-   /*_.LAMBDA___V36*/ curfptr[32] = /*_.LAMBDA___V37*/ curfptr[33];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2150:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2150:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[32];
-   /*_.LIST_EVERY__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.ADEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2156:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " melt_apply ((meltclosure_ptr_t)("));}
-  ;
-  /*_#I__L23*/ curfnum[22] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-outobj.melt:2157:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2157:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2157:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2157:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L23*/ curfnum[22];
-   /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2158:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2160:/ block");
-  /*block*/{
-   /*_.FIRSTARG__V41*/ curfptr[40] = 
-    (melt_multiple_nth((melt_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (0)));;
-   /*_#I__L24*/ curfnum[23] = 
-    ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-   MELT_LOCATION("warmelt-outobj.melt:2161:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2161:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:2161:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:2161:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#I__L24*/ curfnum[23];
-    /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V41*/ curfptr[40]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LET___V40*/ curfptr[39] = /*_.OUTPUT_C_CODE__V42*/ curfptr[41];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2160:/ clear");
-   /*clear*/ /*_.FIRSTARG__V41*/ curfptr[40] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2160:/ clear");
-   /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2160:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = 0 ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2163:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2167:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2167:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[41] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2167:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V44*/ curfptr[41])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V44*/ curfptr[41])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V43*/ curfptr[40] = /*_.LAMBDA___V44*/ curfptr[41];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2165:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2165:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[40];
-   /*_.LIST_EVERY__V45*/ curfptr[44] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2170:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
-  ;
-  /*_#I__L25*/ curfnum[23] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (1));;
-  MELT_LOCATION("warmelt-outobj.melt:2172:/ cond");
-  /*cond*/ if (/*_#I__L25*/ curfnum[23]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2172:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2172:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2173:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, ("));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2172:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2172:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2174:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0, ("));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2178:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2178:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2178:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2176:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2176:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45];
-   /*_.LIST_EVERY__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2181:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
-  ;
-  /*_#I__L26*/ curfnum[25] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2183:/ cond");
-  /*cond*/ if (/*_#I__L26*/ curfnum[25]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2183:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2183:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2184:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2183:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2183:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2185:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0"));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2186:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  /*_#I__L27*/ curfnum[26] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2187:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L27*/ curfnum[26]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2188:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2189:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.OXRES__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.RESDESCLIST__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L13*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L16*/ curfnum[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L18*/ curfnum[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L21*/ curfnum[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.IF___V30*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#GET_INT__L22*/ curfnum[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V35*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LAMBDA___V36*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LAMBDA___V43*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V45*/ curfptr[44] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L25*/ curfnum[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V48*/ curfptr[47] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L26*/ curfnum[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2037:/ clear");
-  /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2034:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2034:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJMULTIAPPLY", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_80_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_80_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2081:/ getarg");
- /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2081:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2081:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:2082:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2082:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2082:/ ojbmsend.arg");
-   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   /*_.CURCTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2083:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V3*/ curfptr[2]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V4*/ curfptr[3] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2083:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~RESDESCLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V4*/ curfptr[3]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2082:/ clear");
-  /*clear*/ /*_.CURCTYP__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2082:/ clear");
-  /*clear*/ /*_.CTYPE_PARSTRING__V4*/ curfptr[3] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_80_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_81_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_81_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2091:/ getarg");
- /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2091:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2091:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2092:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2092:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2092:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2092:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objmultiapply curarg";
-    MELT_LOCATION("warmelt-outobj.melt:2092:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2092:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2092:/ apply.arg");
-    argtab[3].bp_long = 2092;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2092:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2092:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2092:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#I__L3*/ curfnum[1] = 
-  ((/*_#CURANK__L1*/ curfnum[0]) > (0));;
- MELT_LOCATION("warmelt-outobj.melt:2093:/ cond");
- /*cond*/ if (/*_#I__L3*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:2093:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:2093:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2094:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2094:/ ojbmsend.arg");
-     argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-     /*_.CURCTYP__V5*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:2095:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:2095:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 
-       callcount;;
-      MELT_LOCATION("warmelt-outobj.melt:2095:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2095:/ apply.arg");
-       argtab[0].bp_cstring =  "outpucod_objmultiapply curctyp";
-       MELT_LOCATION("warmelt-outobj.melt:2095:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3];
-       MELT_LOCATION("warmelt-outobj.melt:2095:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-outobj.melt";
-       MELT_LOCATION("warmelt-outobj.melt:2095:/ apply.arg");
-       argtab[3].bp_long = 2095;
-       /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2095:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2095:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:2095:/ cppif.else");
-    /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:2096:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:2096:/ block");
-     /*block*/{
-      /*_#IS_A__L5*/ curfnum[3] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
-      MELT_LOCATION("warmelt-outobj.melt:2096:/ cond");
-      /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:2096:/ cond.then");
-      /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:2096:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:2096:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:2096:/ locexp");
-         melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2096)?(2096):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2096:/ clear");
-      /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2096:/ clear");
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:2096:/ cppif.else");
-    /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    /*_#GET_INT__L6*/ curfnum[3] = 
-     (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-    MELT_LOCATION("warmelt-outobj.melt:2097:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2097:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-     MELT_LOCATION("warmelt-outobj.melt:2097:/ apply.arg");
-     argtab[1].bp_long = /*_#GET_INT__L6*/ curfnum[3];
-     MELT_LOCATION("warmelt-outobj.melt:2097:/ apply.arg");
-     argtab[2].bp_cstring =  "multiapply.arg";
-     /*_.OUTPUT_LOCATION__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2098:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab["));}
-    ;
-    /*_#I__L7*/ curfnum[6] = 
-     ((/*_#CURANK__L1*/ curfnum[0]) - (1));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2099:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L7*/ curfnum[6]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2100:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2101:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V11*/ curfptr[10] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2101:/ locexp");
-    meltgc_append_list((melt_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V11*/ curfptr[10]));}
-    ;
-    /*_#NULL__L8*/ curfnum[7] = 
-     ((/*_.CURARG__V2*/ curfptr[1]) == NULL);;
-    MELT_LOCATION("warmelt-outobj.melt:2103:/ cond");
-    /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2103:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2103:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2104:/ locexp");
-       meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2103:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2103:/ block");
-     /*block*/{
-      /*_#__L9*/ curfnum[8] = 
-       ((/*_.CURCTYP__V5*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-outobj.melt:2105:/ cond");
-      /*cond*/ if (/*_#__L9*/ curfnum[8]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:2105:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:2105:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:2106:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
-        ;
-        /*_#GET_INT__L10*/ curfnum[9] = 
-         (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-        MELT_LOCATION("warmelt-outobj.melt:2107:/ msend");
-        /*msend*/{
-         union meltparam_un argtab[3];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:2107:/ ojbmsend.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
-         MELT_LOCATION("warmelt-outobj.melt:2107:/ ojbmsend.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-         MELT_LOCATION("warmelt-outobj.melt:2107:/ ojbmsend.arg");
-         argtab[2].bp_long = /*_#GET_INT__L10*/ curfnum[9];
-         /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ block");
-        /*block*/{
-         /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[13];;}
-        ;
-        /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V15*/ curfptr[14];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:2105:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:2105:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-outobj.melt:2110:/ getslot");
-        { melt_ptr_t slot=0;
-         melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = slot; };
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:2110:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V16*/ curfptr[13])));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:2111:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
-        ;
-        /*_#GET_INT__L11*/ curfnum[9] = 
-         (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-        MELT_LOCATION("warmelt-outobj.melt:2112:/ msend");
-        /*msend*/{
-         union meltparam_un argtab[3];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:2112:/ ojbmsend.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
-         MELT_LOCATION("warmelt-outobj.melt:2112:/ ojbmsend.arg");
-         argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-         MELT_LOCATION("warmelt-outobj.melt:2112:/ ojbmsend.arg");
-         argtab[2].bp_long = /*_#GET_INT__L11*/ curfnum[9];
-         /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:2109:/ block");
-        /*block*/{
-         /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_C_CODE__V17*/ curfptr[14];;}
-        ;
-        /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_#GET_INT__L11*/ curfnum[9] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:2105:/ clear");
-        /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2103:/ clear");
-      /*clear*/ /*_#__L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2103:/ clear");
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2114:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_.CURCTYP__V5*/ curfptr[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_.CTYPE_PARSTRING__V11*/ curfptr[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2094:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2091:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2091:/ clear");
- /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_81_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_82_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_82_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2123:/ getarg");
- /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2123:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2123:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:2124:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2124:/ ojbmsend.arg");
-   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   /*_.CURESTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2125:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2125:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:2125:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2125:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objmultiapply curestyp";
-     MELT_LOCATION("warmelt-outobj.melt:2125:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-     MELT_LOCATION("warmelt-outobj.melt:2125:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:2125:/ apply.arg");
-     argtab[3].bp_long = 2125;
-     /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2125:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2125:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2125:/ cppif.else");
-  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2126:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2126:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:2126:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2126:/ cond.then");
-    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2126:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2126:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2126:/ locexp");
-       melt_assert_failed(( "check curestyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2126)?(2126):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2126:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2126:/ clear");
-    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2126:/ cppif.else");
-  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#GET_INT__L4*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-  MELT_LOCATION("warmelt-outobj.melt:2127:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2127:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-outobj.melt:2127:/ apply.arg");
-   argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1];
-   MELT_LOCATION("warmelt-outobj.melt:2127:/ apply.arg");
-   argtab[2].bp_cstring =  "multiapply.xres";
-   /*_.OUTPUT_LOCATION__V8*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2128:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab["));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2129:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2130:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
-  ;
-  /*_#NULL__L5*/ curfnum[4] = 
-   ((/*_.CURES__V2*/ curfptr[1]) == NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:2132:/ cond");
-  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2132:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2132:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:2133:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
-     ;
-     /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2132:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2132:/ block");
-   /*block*/{
-    /*_#__L6*/ curfnum[5] = 
-     ((/*_.CURESTYP__V3*/ curfptr[2]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:2134:/ cond");
-    /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2134:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2134:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2135:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
-      ;
-      /*_#GET_INT__L7*/ curfnum[6] = 
-       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-      MELT_LOCATION("warmelt-outobj.melt:2136:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2136:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
-       MELT_LOCATION("warmelt-outobj.melt:2136:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-outobj.melt:2136:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
-       /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ block");
-      /*block*/{
-       /*_.PROGN___V12*/ curfptr[11] = /*_.OUTPUT_C_CODE__V11*/ curfptr[10];;}
-      ;
-      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V12*/ curfptr[11];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2134:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2134:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:2139:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V13*/ curfptr[10] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2139:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V13*/ curfptr[10])));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2140:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " =  & "));}
-      ;
-      /*_#GET_INT__L8*/ curfnum[6] = 
-       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-      MELT_LOCATION("warmelt-outobj.melt:2141:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2141:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
-       MELT_LOCATION("warmelt-outobj.melt:2141:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-outobj.melt:2141:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[6];
-       /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2138:/ block");
-      /*block*/{
-       /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[11];;}
-      ;
-      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_.CTYPE_RESFIELD__V13*/ curfptr[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2134:/ clear");
-      /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2132:/ clear");
-    /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2132:/ clear");
-    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2143:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
-  ;
-  /*_#GET_INT__L9*/ curfnum[6] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2144:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L9*/ curfnum[6]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_.CURESTYP__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2124:/ clear");
-  /*clear*/ /*_#GET_INT__L9*/ curfnum[6] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_82_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_83_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_83_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2152:/ getarg");
- /*_.CURDEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2152:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:2153:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:2153:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:2153:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:2153:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2154:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2152:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2152:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_83_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_84_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_84_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2167:/ getarg");
- /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2167:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2168:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2169:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_84_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_85_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_85_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2178:/ getarg");
- /*_.RESD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2178:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2179:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.RESD__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2180:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_85_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 43
-  void* varptr[43];
-#define CURFRAM_NBVARNUM 24
-  long varnum[24];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<43; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 43;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJMULTIMSEND", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2198:/ getarg");
- /*_.OMSND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2198:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2198:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2198:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2198:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2199:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2199:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2199:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2199:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2199:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2199:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2199:/ locexp");
-      melt_assert_failed(( "check omsnd"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2199)?(2199):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2199:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2199:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2199:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2200:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2200:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2200:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2200:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objmultimsend omsnd";
-    MELT_LOCATION("warmelt-outobj.melt:2200:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2200:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2200:/ apply.arg");
-    argtab[3].bp_long = 2200;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2200:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2200:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2200:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2201:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2202:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ODEST__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2203:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 2, "OBMSND_SEL");/*_.OSEL__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2204:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 3, "OBMSND_RECV");/*_.ORECV__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2205:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 4, "OBMSND_ARGS");/*_.OARGS__V13*/ curfptr[12] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2206:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 5, "OBMULTSND_XRES");/*_.OXRES__V14*/ curfptr[13] = slot; };
-  ;
-  /*_#NBARG__L4*/ curfnum[1] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12])));;
-  /*_#NBXRES__L5*/ curfnum[4] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.OXRES__V14*/ curfptr[13])));;
-  /*_.PARAMDESCLIST__V15*/ curfptr[14] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_.RESDESCLIST__V16*/ curfptr[15] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_#I__L6*/ curfnum[5] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  /*_.BOXDEPTHP1__V17*/ curfptr[16] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L6*/ curfnum[5])));;
-  MELT_LOCATION("warmelt-outobj.melt:2213:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2213:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2213:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2213:/ apply.arg");
-   argtab[2].bp_cstring =  "multimsend";
-   /*_.OUTPUT_LOCATION__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2214:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multimsend*/{"));}
-  ;
-  /*_#I__L7*/ curfnum[6] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2215:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0);}
-  ;
-  /*_#I__L8*/ curfnum[7] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2216:/ cond");
-  /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2216:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2216:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2218:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un argtab["));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2219:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2220:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
-    ;
-    /*_#I__L9*/ curfnum[8] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2221:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2217:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2216:/ clear");
-    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L10*/ curfnum[8] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2223:/ cond");
-  /*cond*/ if (/*_#I__L10*/ curfnum[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2223:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2223:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2225:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union meltparam_un restab["));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2226:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2227:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];"));}
-    ;
-    /*_#I__L11*/ curfnum[10] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2228:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2232:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:2232:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2232:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.RESDESCLIST__V16*/ curfptr[15]);
-     ;
-     /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2230:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2230:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
-     /*_.MULTIPLE_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2224:/ block");
-    /*block*/{
-     /*_.PROGN___V23*/ curfptr[22] = /*_.MULTIPLE_EVERY__V22*/ curfptr[21];;}
-    ;
-    /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V23*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2223:/ clear");
-    /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2223:/ clear");
-    /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2223:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2223:/ clear");
-    /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2223:/ cond.else");
-  
-   /*_.IF___V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  /*_#I__L12*/ curfnum[10] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2236:/ cond");
-  /*cond*/ if (/*_#I__L12*/ curfnum[10]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2236:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2236:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2238:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));"));}
-    ;
-    /*_#I__L13*/ curfnum[12] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2239:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2237:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2236:/ clear");
-    /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L14*/ curfnum[12] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2240:/ cond");
-  /*cond*/ if (/*_#I__L14*/ curfnum[12]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2240:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2240:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2242:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));"));}
-    ;
-    /*_#I__L15*/ curfnum[14] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2243:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2241:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2240:/ clear");
-    /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L16*/ curfnum[14] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2245:/ cond");
-  /*cond*/ if (/*_#I__L16*/ curfnum[14]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2245:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2245:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2250:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:2250:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[21] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2250:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[0] = (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2250:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2250:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2250:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[3] = (melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ curfptr[14]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2250:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[4] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     /*_.LAMBDA___V24*/ curfptr[19] = /*_.LAMBDA___V25*/ curfptr[21];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2248:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2248:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[19];
-     /*_.MULTIPLE_EVERY__V26*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_#GET_INT__L17*/ curfnum[16] = 
-     (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16])));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2274:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L17*/ curfnum[16]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2246:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2245:/ clear");
-    /*clear*/ /*_.LAMBDA___V24*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2245:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2245:/ clear");
-    /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L18*/ curfnum[16] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2277:/ cond");
-  /*cond*/ if (/*_#I__L18*/ curfnum[16]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2277:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2277:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2281:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:2281:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2281:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2281:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2281:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:2281:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[3] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-     ;
-     /*_.LAMBDA___V28*/ curfptr[22] = /*_.LAMBDA___V29*/ curfptr[28];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2279:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2279:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[22];
-     /*_.MULTIPLE_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2278:/ block");
-    /*block*/{
-     /*_.PROGN___V31*/ curfptr[30] = /*_.MULTIPLE_EVERY__V30*/ curfptr[29];;}
-    ;
-    /*_.IF___V27*/ curfptr[19] = /*_.PROGN___V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2277:/ clear");
-    /*clear*/ /*_.LAMBDA___V28*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2277:/ clear");
-    /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2277:/ clear");
-    /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2277:/ cond.else");
-  
-   /*_.IF___V27*/ curfptr[19] = NULL;;
-   }
-  ;
-  /*_#GET_INT__L19*/ curfnum[18] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16])));;
-  MELT_LOCATION("warmelt-outobj.melt:2306:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2306:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2306:/ apply.arg");
-   argtab[1].bp_long = /*_#GET_INT__L19*/ curfnum[18];
-   MELT_LOCATION("warmelt-outobj.melt:2306:/ apply.arg");
-   argtab[2].bp_cstring =  "multimsend.send";
-   /*_.OUTPUT_LOCATION__V32*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2310:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2310:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[30] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2310:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2310:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2310:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]);
-   ;
-   /*_.LAMBDA___V33*/ curfptr[29] = /*_.LAMBDA___V34*/ curfptr[30];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2308:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2308:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[29];
-   /*_.LIST_EVERY__V35*/ curfptr[34] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.ODEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2314:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " meltgc_send ((melt_ptr_t)("));}
-  ;
-  /*_#I__L20*/ curfnum[19] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-outobj.melt:2315:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2315:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2315:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2315:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L20*/ curfnum[19];
-   /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2316:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ((melt_ptr_t)("));}
-  ;
-  /*_#I__L21*/ curfnum[20] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  MELT_LOCATION("warmelt-outobj.melt:2318:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2318:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2318:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2318:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L21*/ curfnum[20];
-   /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2319:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")), ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2323:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2323:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V39*/ curfptr[38] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2323:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ curfptr[38])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ curfptr[38])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ curfptr[38])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V38*/ curfptr[37] = /*_.LAMBDA___V39*/ curfptr[38];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2321:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2321:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ curfptr[37];
-   /*_.LIST_EVERY__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2326:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
-  ;
-  /*_#I__L22*/ curfnum[21] = 
-   ((/*_#NBARG__L4*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2328:/ cond");
-  /*cond*/ if (/*_#I__L22*/ curfnum[21]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2328:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2328:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2329:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, ("));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2328:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2328:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2330:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0, ("));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2334:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2334:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2334:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V42*/ curfptr[41])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V42*/ curfptr[41])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V42*/ curfptr[41])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V41*/ curfptr[40] = /*_.LAMBDA___V42*/ curfptr[41];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2332:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2332:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[40];
-   /*_.LIST_EVERY__V43*/ curfptr[42] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2337:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), "));}
-  ;
-  /*_#I__L23*/ curfnum[22] = 
-   ((/*_#NBXRES__L5*/ curfnum[4]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2339:/ cond");
-  /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2339:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2339:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2340:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab"));}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2339:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2339:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2341:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union meltparam_un*)0"));}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2342:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  /*_#I__L24*/ curfnum[23] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2343:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L24*/ curfnum[23]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2344:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2345:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OXRES__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.PARAMDESCLIST__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.RESDESCLIST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L12*/ curfnum[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.IF___V27*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#GET_INT__L19*/ curfnum[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V32*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.LAMBDA___V33*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V35*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.LAMBDA___V38*/ curfptr[37] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V40*/ curfptr[39] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.LAMBDA___V41*/ curfptr[40] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V43*/ curfptr[42] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2201:/ clear");
-  /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2198:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2198:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJMULTIMSEND", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_87_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_87_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 4
-  void* varptr[4];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<4; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 4;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2232:/ getarg");
- /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2232:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2232:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:2233:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2233:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2233:/ ojbmsend.arg");
-   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   /*_.CURESTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2234:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V4*/ curfptr[3] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2234:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~RESDESCLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V4*/ curfptr[3]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2233:/ clear");
-  /*clear*/ /*_.CURESTYP__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2233:/ clear");
-  /*clear*/ /*_.CTYPE_PARSTRING__V4*/ curfptr[3] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_87_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_88_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_88_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2250:/ getarg");
- /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2250:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2250:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2251:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2251:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2251:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2251:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objmultimsend curarg";
-    MELT_LOCATION("warmelt-outobj.melt:2251:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2251:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2251:/ apply.arg");
-    argtab[3].bp_long = 2251;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2251:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2251:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2251:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2252:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2252:/ ojbmsend.arg");
-   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   /*_.CURCTYP__V5*/ curfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2253:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2253:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:2253:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2253:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objmultimsend curctyp";
-     MELT_LOCATION("warmelt-outobj.melt:2253:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-     MELT_LOCATION("warmelt-outobj.melt:2253:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:2253:/ apply.arg");
-     argtab[3].bp_long = 2253;
-     /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2253:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2253:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2253:/ cppif.else");
-  /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2254:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2254:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:2254:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2254:/ cond.then");
-    /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2254:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2254:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2254:/ locexp");
-       melt_assert_failed(( "check curctyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2254)?(2254):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2254:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2254:/ clear");
-    /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2254:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#GET_INT__L5*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-  MELT_LOCATION("warmelt-outobj.melt:2255:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2255:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-outobj.melt:2255:/ apply.arg");
-   argtab[1].bp_long = /*_#GET_INT__L5*/ curfnum[1];
-   MELT_LOCATION("warmelt-outobj.melt:2255:/ apply.arg");
-   argtab[2].bp_cstring =  "multimsend.arg";
-   /*_.OUTPUT_LOCATION__V10*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2256:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab["));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2257:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2258:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2259:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V11*/ curfptr[10] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2259:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.CTYPE_PARSTRING__V11*/ curfptr[10]));}
-  ;
-  /*_#NULL__L6*/ curfnum[5] = 
-   ((/*_.CURARG__V2*/ curfptr[1]) == NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:2261:/ cond");
-  /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2261:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2261:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:2262:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
-     ;
-     /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2261:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2261:/ block");
-   /*block*/{
-    /*_#__L7*/ curfnum[6] = 
-     ((/*_.CURCTYP__V5*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:2263:/ cond");
-    /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2263:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2263:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2264:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
-      ;
-      /*_#GET_INT__L8*/ curfnum[7] = 
-       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-      MELT_LOCATION("warmelt-outobj.melt:2265:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2265:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
-       MELT_LOCATION("warmelt-outobj.melt:2265:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-outobj.melt:2265:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7];
-       /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ block");
-      /*block*/{
-       /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[13];;}
-      ;
-      /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2263:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2263:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:2268:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCTYP__V5*/ curfptr[3]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2268:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_ARGFIELD__V16*/ curfptr[13])));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2269:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
-      ;
-      /*_#GET_INT__L9*/ curfnum[7] = 
-       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-      MELT_LOCATION("warmelt-outobj.melt:2270:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2270:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]);
-       MELT_LOCATION("warmelt-outobj.melt:2270:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-outobj.melt:2270:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#GET_INT__L9*/ curfnum[7];
-       /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2267:/ block");
-      /*block*/{
-       /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_C_CODE__V17*/ curfptr[14];;}
-      ;
-      /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V18*/ curfptr[17];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_.CTYPE_ARGFIELD__V16*/ curfptr[13] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[14] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2263:/ clear");
-      /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2261:/ clear");
-    /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2261:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2272:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_.CURCTYP__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_.CTYPE_PARSTRING__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2252:/ clear");
-  /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2250:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_88_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_89_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_89_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 15
-  void* varptr[15];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<15; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 15;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2281:/ getarg");
- /*_.CURES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2281:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2281:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:2282:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2282:/ ojbmsend.arg");
-   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   /*_.CURESTYP__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2283:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2283:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:2283:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2283:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objmultimsend curestyp";
-     MELT_LOCATION("warmelt-outobj.melt:2283:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-     MELT_LOCATION("warmelt-outobj.melt:2283:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:2283:/ apply.arg");
-     argtab[3].bp_long = 2283;
-     /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2283:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2283:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2283:/ cppif.else");
-  /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2284:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2284:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:2284:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2284:/ cond.then");
-    /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2284:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2284:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2284:/ locexp");
-       melt_assert_failed(( "check curestyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2284)?(2284):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2284:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2284:/ clear");
-    /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2284:/ cppif.else");
-  /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#GET_INT__L4*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-  MELT_LOCATION("warmelt-outobj.melt:2285:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2285:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-outobj.melt:2285:/ apply.arg");
-   argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1];
-   MELT_LOCATION("warmelt-outobj.melt:2285:/ apply.arg");
-   argtab[2].bp_cstring =  "multimsend.xres";
-   /*_.OUTPUT_LOCATION__V8*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2286:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab["));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2287:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2288:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "]."));}
-  ;
-  /*_#NULL__L5*/ curfnum[4] = 
-   ((/*_.CURES__V2*/ curfptr[1]) == NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:2290:/ cond");
-  /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2290:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2290:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:2291:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));}
-     ;
-     /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2290:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2290:/ block");
-   /*block*/{
-    /*_#__L6*/ curfnum[5] = 
-     ((/*_.CURESTYP__V3*/ curfptr[2]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:2293:/ cond");
-    /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2293:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2293:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2294:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));}
-      ;
-      /*_#GET_INT__L7*/ curfnum[6] = 
-       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-      MELT_LOCATION("warmelt-outobj.melt:2295:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2295:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
-       MELT_LOCATION("warmelt-outobj.melt:2295:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-outobj.melt:2295:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
-       /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ block");
-      /*block*/{
-       /*_.PROGN___V12*/ curfptr[11] = /*_.OUTPUT_C_CODE__V11*/ curfptr[10];;}
-      ;
-      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V12*/ curfptr[11];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_.PROGN___V12*/ curfptr[11] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2293:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2293:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:2298:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURESTYP__V3*/ curfptr[2]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V13*/ curfptr[10] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2298:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V13*/ curfptr[10])));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2299:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
-      ;
-      /*_#GET_INT__L8*/ curfnum[6] = 
-       (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
-      MELT_LOCATION("warmelt-outobj.melt:2300:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2300:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]);
-       MELT_LOCATION("warmelt-outobj.melt:2300:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-       MELT_LOCATION("warmelt-outobj.melt:2300:/ ojbmsend.arg");
-       argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[6];
-       /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2297:/ block");
-      /*block*/{
-       /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_C_CODE__V14*/ curfptr[11];;}
-      ;
-      /*_.IFELSE___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_.CTYPE_RESFIELD__V13*/ curfptr[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[11] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:2293:/ clear");
-      /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2290:/ clear");
-    /*clear*/ /*_#__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2290:/ clear");
-    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2302:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";"));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_.CURESTYP__V3*/ curfptr[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2282:/ clear");
-  /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_89_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_90_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_90_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2310:/ getarg");
- /*_.CURDEST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2310:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:2311:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:2311:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:2311:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:2311:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2312:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2310:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2310:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_90_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_91_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_91_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2323:/ getarg");
- /*_.PARD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2323:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2324:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.PARD__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2325:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_91_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_92_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_92_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 2
-  void* varptr[2];
-/*no varnum*/
-#define CURFRAM_NBVARNUM /*none*/0
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<2; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 2;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2334:/ getarg");
- /*_.RESD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2334:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2335:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.RESD__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2336:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " "));}
- ;
- /*epilog*/}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_92_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJCLEAR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2352:/ getarg");
- /*_.OCLEAR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2352:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2352:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2352:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2352:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2353:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2353:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2353:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2353:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2353:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2353:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2353:/ locexp");
-      melt_assert_failed(( "check oclear"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2353)?(2353):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2353:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2353:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2353:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2354:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2354:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2354:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2354:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objclear oclear";
-    MELT_LOCATION("warmelt-outobj.melt:2354:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2354:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2354:/ apply.arg");
-    argtab[3].bp_long = 2354;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2354:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2354:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2354:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2355:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2355:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2356:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), 1, "OCLR_VLOC");/*_.CVL__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2358:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2358:/ apply.arg");
-   argtab[2].bp_cstring =  "clear";
-   /*_.OUTPUT_LOCATION__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2359:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*clear*/ "));}
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  MELT_LOCATION("warmelt-outobj.melt:2360:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2360:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2360:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2360:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#I__L4*/ curfnum[1];
-   /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.CVL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2361:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = 0 "));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2355:/ clear");
-  /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2355:/ clear");
-  /*clear*/ /*_.CVL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2355:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2355:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2355:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2352:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2352:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJCLEAR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJRAWALLOCOBJ", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2367:/ getarg");
- /*_.ORALOB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2367:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2367:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2367:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2367:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2368:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2368:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJRAWALLOCOBJ*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2368:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2368:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2368:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2368:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2368:/ locexp");
-      melt_assert_failed(( "check oralob"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2368)?(2368):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2368:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2368:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2368:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2369:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2369:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2369:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2369:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objrawallocobj oralob";
-    MELT_LOCATION("warmelt-outobj.melt:2369:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2369:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2369:/ apply.arg");
-    argtab[3].bp_long = 2369;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2369:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2369:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2369:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2370:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2371:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 2, "OBRALLOBJ_CLASS");/*_.ICLASS__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2372:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 4, "OBRALLOBJ_CLASSNAME");/*_.ICLANAME__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2373:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 3, "OBRALLOBJ_LEN");/*_.ILEN__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2374:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V14*/ curfptr[13] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2377:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2377:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[4] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.ICLASS__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:2377:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2377:/ cond.then");
-    /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2377:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2377:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2377:/ locexp");
-       melt_assert_failed(( "outpucod_objrawallocobj check iclass"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2377)?(2377):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2377:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2377:/ clear");
-    /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2377:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:2378:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2378:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2378:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2378:/ apply.arg");
-   argtab[2].bp_cstring =  "rawallocobj";
-   /*_.OUTPUT_LOCATION__V17*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2379:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*rawallocobj*/ { melt_ptr_t newobj = 0;"));}
-  ;
-  /*_#I__L6*/ curfnum[4] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2380:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[4]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2381:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_raw_object_create(newobj,(melt_ptr_t)("));}
-  ;
-  /*_#GET_INT__L7*/ curfnum[6] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-outobj.melt:2382:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2382:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2382:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2382:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
-   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.ICLASS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2383:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-  ;
-  /*_#GET_INT__L8*/ curfnum[7] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-outobj.melt:2384:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2384:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2384:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2384:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.ILEN__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2385:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \""));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2386:/ locexp");
-  meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.ICLANAME__V11*/ curfptr[10])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2387:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2390:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2390:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2390:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2390:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2390:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
-   ;
-   /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2388:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2388:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19];
-   /*_.LIST_EVERY__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.DESTLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#I__L9*/ curfnum[8] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2393:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2394:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "newobj; };"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2395:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.ICLASS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.ICLANAME__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.ILEN__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2370:/ clear");
-  /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2367:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2367:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJRAWALLOCOBJ", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_95_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_95_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2390:/ getarg");
- /*_.DST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2390:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:2391:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:2391:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:2391:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:2391:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2392:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " ="));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2390:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2390:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_95_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJNEWCLOSURE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2401:/ getarg");
- /*_.OBNCLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2401:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2401:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2401:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2401:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2402:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2402:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJNEWCLOSURE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2402:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2402:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2402:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2402:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2402:/ locexp");
-      melt_assert_failed(( "check oralob"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2402)?(2402):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2402:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2402:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2402:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2403:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2403:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2403:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2403:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objnewclosure obnclo";
-    MELT_LOCATION("warmelt-outobj.melt:2403:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2403:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2403:/ apply.arg");
-    argtab[3].bp_long = 2403;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2403:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2403:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2403:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2404:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2405:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 2, "OBNCLO_DISCR");/*_.ODISCR__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2406:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 3, "OBNCLO_ROUT");/*_.OROUT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2407:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 4, "OBNCLO_LEN");/*_.OLEN__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2408:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V13*/ curfptr[12] = slot; };
-  ;
-  /*_#I__L4*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V14*/ curfptr[13] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:2411:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2411:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2411:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2411:/ apply.arg");
-   argtab[2].bp_cstring =  "newclosure";
-   /*_.OUTPUT_LOCATION__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2412:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " /*newclosure*/ "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2415:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2415:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2415:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2415:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2415:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2413:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2413:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.LIST_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.DESTLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#I__L5*/ curfnum[4] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2418:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L5*/ curfnum[4]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2419:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "meltgc_new_closure((meltobject_ptr_t)("));}
-  ;
-  /*_#GET_INT__L6*/ curfnum[5] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-outobj.melt:2420:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2420:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2420:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2420:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#GET_INT__L6*/ curfnum[5];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.ODISCR__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2421:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (meltroutine_ptr_t)("));}
-  ;
-  /*_#GET_INT__L7*/ curfnum[6] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-outobj.melt:2422:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2422:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2422:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2422:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
-   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2423:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-  ;
-  /*_#GET_INT__L8*/ curfnum[7] = 
-   (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-outobj.melt:2424:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2424:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2424:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2424:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7];
-   /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OLEN__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2425:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2426:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.ODISCR__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.OLEN__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2404:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2401:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2401:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJNEWCLOSURE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_97_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_97_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2415:/ getarg");
- /*_.DST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2415:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:2416:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:2416:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:2416:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:2416:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2417:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " ="));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2415:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2415:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_97_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJTOUCH", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2431:/ getarg");
- /*_.OTOUCH__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2431:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2431:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2431:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2431:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2432:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2432:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2432:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2432:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2432:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2432:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2432:/ locexp");
-      melt_assert_failed(( "check oclear"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2432)?(2432):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2432:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2432:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2432:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2433:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2433:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2434:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 1, "OTOUCH_VAL");/*_.TOUCHED__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2435:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 2, "OTOUCH_COMMENT");/*_.COMM__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2437:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2437:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2437:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2437:/ apply.arg");
-   argtab[2].bp_cstring =  "touch";
-   /*_.OUTPUT_LOCATION__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ILOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2438:/ cond");
-  /*cond*/ if (/*_.COMM__V9*/ curfptr[8]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2438:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2438:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2440:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*touch:"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2441:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.COMM__V9*/ curfptr[8])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2442:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2443:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2439:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2445:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "meltgc_touch("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2446:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2446:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2446:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2446:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = meltgc_send((melt_ptr_t)(/*_.TOUCHED__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2447:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2448:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2433:/ clear");
-  /*clear*/ /*_.ILOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2433:/ clear");
-  /*clear*/ /*_.TOUCHED__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2433:/ clear");
-  /*clear*/ /*_.COMM__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2433:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2433:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2431:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJTOUCH", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2456:/ getarg");
- /*_.OPTUP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2456:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2456:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2456:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2456:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2457:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2457:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTUPLE*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2457:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2457:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2457:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2457:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2457:/ locexp");
-      melt_assert_failed(( "check optyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2457)?(2457):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2457:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2457:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2457:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2458:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2458:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2458:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2458:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objputuple optup";
-    MELT_LOCATION("warmelt-outobj.melt:2458:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2458:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2458:/ apply.arg");
-    argtab[3].bp_long = 2458;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2458:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2458:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2458:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2459:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2460:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 1, "OPUTU_TUPLED");/*_.OTUP__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2461:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 2, "OPUTU_OFFSET");/*_.OOFF__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2462:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 3, "OPUTU_VALUE");/*_.OVAL__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2463:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2463:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2463:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2463:/ apply.arg");
-   argtab[2].bp_cstring =  "putuple";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2464:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putupl*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2465:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2466:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putupl checktup\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2467:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2467:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2467:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2467:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2468:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))== OBMAG_MULTIPLE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2469:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2470:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putupl checkoff\", ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2471:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2471:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2471:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2471:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2472:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2473:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2473:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2473:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2473:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2474:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_multiple_length((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2475:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2475:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2475:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2475:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2476:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2477:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2478:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltmultiple_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2479:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2479:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2479:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2479:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2480:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->tabval["));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2481:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2481:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2481:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2481:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2482:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2483:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2483:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2483:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2483:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2484:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2485:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OTUP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OVAL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2459:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2456:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2456:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJGETSLOT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2491:/ getarg");
- /*_.OGSL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2491:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2491:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2491:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2491:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2492:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2492:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2492:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2492:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2492:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2492:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2492:/ locexp");
-      melt_assert_failed(( "check ogsl"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2492)?(2492):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2492:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2492:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2492:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2493:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2494:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2495:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 2, "OGETSL_OBJ");/*_.OOBJ__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2496:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 3, "OGETSL_FIELD");/*_.OFIELD__V10*/ curfptr[9] = slot; };
-  ;
-  /*_#I__L3*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V11*/ curfptr[10] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2499:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2499:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));;
-    MELT_LOCATION("warmelt-outobj.melt:2499:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2499:/ cond.then");
-    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2499:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2499:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2499:/ locexp");
-       melt_assert_failed(( "check ofield"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2499)?(2499):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2499:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2499:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2499:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2500:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2500:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:2500:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2500:/ apply.arg");
-     argtab[0].bp_cstring =  "outpucod_objgetslot ogsl";
-     MELT_LOCATION("warmelt-outobj.melt:2500:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3];
-     MELT_LOCATION("warmelt-outobj.melt:2500:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:2500:/ apply.arg");
-     argtab[3].bp_long = 2500;
-     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2500:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2500:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2500:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:2501:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2501:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2501:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2501:/ apply.arg");
-   argtab[2].bp_cstring =  "getslot";
-   /*_.OUTPUT_LOCATION__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2502:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{ melt_ptr_t slot=0;"));}
-  ;
-  /*_#I__L6*/ curfnum[3] = 
-   ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2503:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[3]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2504:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_object_get_field(slot,(melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2505:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2505:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2505:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2505:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOBJ__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2506:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), "));}
-  ;
-  /*_#GET_INT__L7*/ curfnum[6] = 
-   (melt_get_int((melt_ptr_t)(/*_.OFIELD__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2507:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2508:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ", \""));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2509:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2509:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2510:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2513:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2513:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2513:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2513:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2513:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (melt_ptr_t)(/*_.BOXDEPTHP1__V11*/ curfptr[10]);
-   ;
-   /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2511:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2511:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18];
-   /*_.LIST_EVERY__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.DESTLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2516:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "slot; };"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2517:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.DESTLIST__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.OOBJ__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.OFIELD__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2493:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2491:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJGETSLOT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_101_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_101_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 3
-  void* varptr[3];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<3; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 3;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2513:/ getarg");
- /*_.DST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2513:/ block");
-/*block*/{
- /*_#GET_INT__L1*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));;
- MELT_LOCATION("warmelt-outobj.melt:2514:/ msend");
- /*msend*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:2514:/ ojbmsend.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]);
-  MELT_LOCATION("warmelt-outobj.melt:2514:/ ojbmsend.arg");
-  argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]);
-  MELT_LOCATION("warmelt-outobj.melt:2514:/ ojbmsend.arg");
-  argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0];
-  /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ curfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2515:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = "));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2513:/ clear");
- /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2513:/ clear");
- /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_101_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 31
-  void* varptr[31];
-#define CURFRAM_NBVARNUM 13
-  long varnum[13];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<31; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 31;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTSLOT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2524:/ getarg");
- /*_.OPSLO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2524:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2524:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2524:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2524:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2525:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2525:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2525:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2525:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2525:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2525:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2525:/ locexp");
-      melt_assert_failed(( "check opslo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2525)?(2525):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2525:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2525:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2525:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2526:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2526:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2526:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2526:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objputslot opslo";
-    MELT_LOCATION("warmelt-outobj.melt:2526:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2526:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2526:/ apply.arg");
-    argtab[3].bp_long = 2526;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2526:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2526:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2526:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2527:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2528:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 1, "OSLOT_ODATA");/*_.ODATA__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2529:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 2, "OSLOT_OFFSET");/*_.OOFF__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2530:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 3, "OSLOT_FIELD");/*_.OFIELD__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2531:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 4, "OSLOT_VALUE");/*_.OVAL__V13*/ curfptr[12] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2533:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2533:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));;
-    /*_#NOT__L5*/ curfnum[4] = 
-     (!(/*_#IS_A__L4*/ curfnum[1]));;
-    MELT_LOCATION("warmelt-outobj.melt:2533:/ cond");
-    /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2533:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2533:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2533:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2533:/ locexp");
-       melt_assert_failed(( "outpucod_objputslot check oval not nrep"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2533)?(2533):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2533:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2533:/ clear");
-    /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2533:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2533:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:2534:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2534:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2534:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2534:/ apply.arg");
-   argtab[2].bp_cstring =  "putslot";
-   /*_.OUTPUT_LOCATION__V16*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2535:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putslot*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2536:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2537:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putslot checkobj"));}
-  ;
-  /*_#IS_A__L6*/ curfnum[1] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-outobj.melt:2538:/ cond");
-  /*cond*/ if (/*_#IS_A__L6*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2538:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2538:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2540:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " "));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2541:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2541:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V17*/ curfptr[16])));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2539:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2538:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  /*_#IS_A__L7*/ curfnum[4] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-outobj.melt:2542:/ cond");
-  /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2542:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2542:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2544:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " @"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2545:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[16] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2545:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[16])));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2543:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2542:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[16] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2546:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2547:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2547:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2547:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2547:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2548:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_OBJECT);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2549:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*_#IS_A__L8*/ curfnum[7] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[6])));;
-  MELT_LOCATION("warmelt-outobj.melt:2550:/ cond");
-  /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2550:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2550:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2552:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_putfield_object(("));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2553:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2553:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2553:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2553:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2554:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2555:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2555:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2555:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2555:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2556:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ("));}
-    ;
-    /*_#I__L9*/ curfnum[8] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    MELT_LOCATION("warmelt-outobj.melt:2557:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2557:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2557:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2557:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#I__L9*/ curfnum[8];
-     /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2558:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \""));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2559:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2559:/ locexp");
-    meltgc_add_strbuf_cident((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2560:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2551:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2550:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2550:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2564:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2565:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putslot checkoff"));}
-    ;
-    /*_#IS_A__L10*/ curfnum[8] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:2566:/ cond");
-    /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2566:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2566:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2568:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " "));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2569:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[19] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2569:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[19])));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2567:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2566:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[19] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    /*_#IS_A__L11*/ curfnum[10] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:2570:/ cond");
-    /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2570:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2570:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2572:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " @"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2573:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[20] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2573:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[20])));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:2571:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2570:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[20] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2574:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", ("));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2575:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2575:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2575:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2575:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2576:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && "));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2577:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2577:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2577:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2577:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2578:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_object_length((melt_ptr_t)("));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2579:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2579:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2579:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2579:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V28*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2580:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2581:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2582:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltobject_ptr_t)("));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2583:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2583:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2583:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2583:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V29*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2584:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->obj_vartab["));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2585:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2585:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2585:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2585:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2586:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
-    ;
-    /*_#I__L12*/ curfnum[11] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2587:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L12*/ curfnum[11]), 0);}
-    ;
-    /*_#I__L13*/ curfnum[12] = 
-     ((1) + (/*_#DEPTH__L1*/ curfnum[0]));;
-    MELT_LOCATION("warmelt-outobj.melt:2588:/ msend");
-    /*msend*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2588:/ ojbmsend.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-     MELT_LOCATION("warmelt-outobj.melt:2588:/ ojbmsend.arg");
-     argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2588:/ ojbmsend.arg");
-     argtab[2].bp_long = /*_#I__L13*/ curfnum[12];
-     /*_.OUTPUT_C_CODE__V31*/ curfptr[30] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2589:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2562:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V29*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2550:/ clear");
-    /*clear*/ /*_.OUTPUT_C_CODE__V31*/ curfptr[30] = 0 ;}
-   ;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2592:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.ODATA__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.OFIELD__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.OVAL__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_#IS_A__L6*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2527:/ clear");
-  /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2524:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2524:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTSLOT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTCLOSUROUT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2598:/ getarg");
- /*_.OPCLOR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2598:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2598:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2598:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2598:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2599:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2599:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2599:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2599:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2599:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2599:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2599:/ locexp");
-      melt_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2599)?(2599):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2599:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2599:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2599:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2600:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2600:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2600:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2600:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objputclosurout opclor";
-    MELT_LOCATION("warmelt-outobj.melt:2600:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2600:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2600:/ apply.arg");
-    argtab[3].bp_long = 2600;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2600:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2600:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2600:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2601:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2602:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 1, "OPCLOR_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2603:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 2, "OPCLOR_ROUT");/*_.OROUT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2604:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2604:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2604:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2604:/ apply.arg");
-   argtab[2].bp_cstring =  "putclosurout";
-   /*_.OUTPUT_LOCATION__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2605:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosurout*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2606:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2607:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosrout checkclo\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2608:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2608:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2608:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2608:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2609:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2610:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2611:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosrout checkrout\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2612:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2612:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2612:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2612:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2613:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2614:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2615:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltclosure_ptr_t)"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2616:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2616:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2616:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2616:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2617:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->rout = (meltroutine_ptr_t) ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2618:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2618:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2618:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2618:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2619:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2620:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2601:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2598:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2598:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTCLOSUROUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTCLOSEDV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2626:/ getarg");
- /*_.OPCLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2626:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2626:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2626:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2626:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2627:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2627:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2627:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2627:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2627:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2627:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2627:/ locexp");
-      melt_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2627)?(2627):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2627:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2627:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2627:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2628:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2628:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2628:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2628:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objputclosedv";
-    MELT_LOCATION("warmelt-outobj.melt:2628:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2628:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2628:/ apply.arg");
-    argtab[3].bp_long = 2628;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2628:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2628:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2628:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2629:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2630:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 1, "OPCLOV_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2631:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 2, "OPCLOV_OFF");/*_.OOFF__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2632:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 3, "OPCLOV_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2633:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2633:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2633:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2633:/ apply.arg");
-   argtab[2].bp_cstring =  "putclosedv";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2634:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosv*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2635:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2636:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosv checkclo\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2637:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2637:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2637:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2637:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2638:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2639:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2640:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosv checkoff\", "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2641:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2641:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2641:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2641:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2642:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2643:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2643:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2643:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2643:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2644:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_closure_size((melt_ptr_t) ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2645:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2645:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2645:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2645:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2646:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2647:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2648:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltclosure_ptr_t)"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2649:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2649:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2649:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2649:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2650:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2651:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2651:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2651:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2651:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2652:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2653:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2653:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2653:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2653:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2654:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2655:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2629:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2626:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2626:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTCLOSEDV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTCLOSEDNOTNULLV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2661:/ getarg");
- /*_.OPCLOV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2661:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2661:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2661:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2661:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2662:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2662:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTCLOSEDNOTNULLV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2662:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2662:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2662:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2662:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2662:/ locexp");
-      melt_assert_failed(( "check opclor"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2662)?(2662):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2662:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2662:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2662:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2663:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2663:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2663:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2663:/ apply.arg");
-    argtab[0].bp_cstring =  "outpucod_objputclosednotnullv";
-    MELT_LOCATION("warmelt-outobj.melt:2663:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:2663:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2663:/ apply.arg");
-    argtab[3].bp_long = 2663;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2663:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2663:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2663:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2664:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2665:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 1, "OPCLOV_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2666:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 2, "OPCLOV_OFF");/*_.OOFF__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2667:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 3, "OPCLOV_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2668:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2668:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2668:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2668:/ apply.arg");
-   argtab[2].bp_cstring =  "putclosednotnullv";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2669:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosvnotnull*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2670:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2671:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosvnotnull checkclo\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2672:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2672:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2672:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2672:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2673:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2674:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2675:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosvnotnull checknotnullval\", NULL != "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2676:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2676:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2676:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2676:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2677:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2678:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2679:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putclosvnotnull checkoff\", "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2680:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2680:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2680:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2680:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2681:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2682:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2682:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2682:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2682:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2683:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< melt_closure_size((melt_ptr_t) ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2684:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2684:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2684:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2684:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2685:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2686:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2687:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltclosure_ptr_t)"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2688:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2688:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2688:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2688:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2689:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2690:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2690:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2690:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2690:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2691:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2692:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2692:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2692:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2692:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2693:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2694:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2664:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2661:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2661:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTCLOSEDNOTNULLV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTROUTCONST", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2700:/ getarg");
- /*_.OPRCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2700:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2700:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2700:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2700:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2701:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2701:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2701:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2701:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2701:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2701:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2701:/ locexp");
-      melt_assert_failed(( "check oprconst"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2701)?(2701):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2701:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2701:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2701:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2702:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2703:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 1, "OPRCONST_ROUT");/*_.OROUT__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#IS_A__L3*/ curfnum[1] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:2704:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2704:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2704:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2704:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), 1, "OIE_CNAME");/*_.OIE_CNAME__V10*/ curfptr[9] = slot; };
-    ;
-    /*_.OROUTNAM__V9*/ curfptr[8] = /*_.OIE_CNAME__V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2704:/ clear");
-    /*clear*/ /*_.OIE_CNAME__V10*/ curfptr[9] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2704:/ cond.else");
-  
-   /*_.OROUTNAM__V9*/ curfptr[8] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2705:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 2, "OPRCONST_OFF");/*_.OOFF__V11*/ curfptr[9] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2706:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 3, "OPRCONST_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2707:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2707:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2707:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2707:/ apply.arg");
-   argtab[2].bp_cstring =  "putroutconst";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2708:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconst*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2709:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2710:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putroutconst checkrout\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2711:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2711:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2711:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2711:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2712:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2713:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2715:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg(\"putroutconst constnull."));}
-  ;
-  /*_#IS_STRING__L4*/ curfnum[3] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-outobj.melt:2716:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2716:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2716:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2716:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8])));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2717:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2718:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2718:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2719:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", NULL != ("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2720:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2720:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2720:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2720:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2721:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2722:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2724:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltroutine_ptr_t)"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2725:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2725:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2725:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2725:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2726:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2727:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2727:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2727:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2727:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2728:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2729:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2729:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2729:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2729:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2730:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2731:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OROUTNAM__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OOFF__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2702:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2700:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTROUTCONST", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTROUTCONSTNOTNULL", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2737:/ getarg");
- /*_.OPRCONST__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2737:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2737:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2737:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2737:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2738:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2738:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2738:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2738:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2738:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2738:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2738:/ locexp");
-      melt_assert_failed(( "check oprconst"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2738)?(2738):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2738:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2738:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2738:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2739:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2740:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 1, "OPRCONST_ROUT");/*_.OROUT__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2741:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 2, "OPRCONST_OFF");/*_.OOFF__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2742:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 3, "OPRCONST_CVAL");/*_.OCVAL__V10*/ curfptr[9] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2743:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2743:/ block");
-   /*block*/{
-    /*_#NOTNULL__L3*/ curfnum[1] = 
-     ((/*_.OCVAL__V10*/ curfptr[9]) != NULL);;
-    MELT_LOCATION("warmelt-outobj.melt:2743:/ cond");
-    /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2743:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2743:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2743:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2743:/ locexp");
-       melt_assert_failed(( "check notnull ocval"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2743)?(2743):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2743:/ clear");
-    /*clear*/ /*_#NOTNULL__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2743:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2743:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:2744:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2744:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2744:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2744:/ apply.arg");
-   argtab[2].bp_cstring =  "putroutconstnotnull";
-   /*_.OUTPUT_LOCATION__V13*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2745:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconstnotnull*/"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2746:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2747:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putroutconstnotnull checkrout\", melt_magic_discr((melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2748:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2748:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2748:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2748:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2749:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2750:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2751:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_assertmsg(\"putroutconstnotnull notnullconst\", NULL != "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2752:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2752:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2752:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2752:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2753:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2754:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2755:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((meltroutine_ptr_t)"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2756:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2756:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2756:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2756:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = meltgc_send((melt_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2757:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval["));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2758:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2758:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2758:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2758:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOFF__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2759:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (melt_ptr_t)("));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2760:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2760:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2760:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2760:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V10*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2761:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2762:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OOFF__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OCVAL__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2739:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2737:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTROUTCONSTNOTNULL", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJPUTXTRARESULT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2770:/ getarg");
- /*_.OPUTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2770:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2770:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2770:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2770:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2771:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2771:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJPUTXTRARESULT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2771:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2771:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2771:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2771:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2771:/ locexp");
-      melt_assert_failed(( "check oputx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2771)?(2771):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2771:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2771:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2771:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2772:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2773:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 1, "OBXRES_RANK");/*_.ORANK__V8*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2774:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 2, "OBXRES_OBLOC");/*_.OVLOC__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2775:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2775:/ ojbmsend.arg");
-   argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL;
-   /*_.OCTYP__V10*/ curfptr[9] = meltgc_send((melt_ptr_t)(/*_.OVLOC__V9*/ curfptr[8]), (melt_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2777:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2777:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2777:/ apply.arg");
-   argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   MELT_LOCATION("warmelt-outobj.melt:2777:/ apply.arg");
-   argtab[2].bp_cstring =  "putxtraresult";
-   /*_.OUTPUT_LOCATION__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2778:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2778:/ block");
-   /*block*/{
-    /*_#IS_A__L3*/ curfnum[1] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:2778:/ cond");
-    /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2778:/ cond.then");
-    /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2778:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2778:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2778:/ locexp");
-       melt_assert_failed(( "check octyp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2778)?(2778):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2778:/ clear");
-    /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2778:/ clear");
-    /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2778:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2779:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2779:/ block");
-   /*block*/{
-    /*_#IS_INTEGERBOX__L4*/ curfnum[1] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])) == OBMAG_INT);;
-    MELT_LOCATION("warmelt-outobj.melt:2779:/ cond");
-    /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ curfnum[1]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2779:/ cond.then");
-    /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2779:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2779:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2779:/ locexp");
-       melt_assert_failed(( "check orank"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2779)?(2779):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2779:/ clear");
-    /*clear*/ /*_#IS_INTEGERBOX__L4*/ curfnum[1] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2779:/ clear");
-    /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2779:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2780:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (!xrestab_ || !xresdescr_) goto labend_rout;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2781:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2782:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xresdescr_["));}
-  ;
-  /*_#GET_INT__L5*/ curfnum[1] = 
-   (melt_get_int((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2783:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2784:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2785:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), 4, "CTYPE_PARCHAR");/*_.CTYPE_PARCHAR__V16*/ curfptr[14] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2785:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_PARCHAR__V16*/ curfptr[14])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2786:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto labend_rout;"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2787:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2788:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xrestab_["));}
-  ;
-  /*_#GET_INT__L6*/ curfnum[5] = 
-   (melt_get_int((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2789:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2790:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2791:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V17*/ curfptr[16] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2791:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V17*/ curfptr[16])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2792:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") *(xrestab_["));}
-  ;
-  /*_#GET_INT__L7*/ curfnum[6] = 
-   (melt_get_int((melt_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2793:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2794:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]."));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2795:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OCTYP__V10*/ curfptr[9]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V18*/ curfptr[17] = slot; };
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2795:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.CTYPE_RESFIELD__V18*/ curfptr[17])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2796:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") = ("));}
-  ;
-  /*_#__L8*/ curfnum[7] = 
-   ((/*_.OCTYP__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));;
-  MELT_LOCATION("warmelt-outobj.melt:2797:/ cond");
-  /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2797:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2797:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2797:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "melt_ptr_t) ("));}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2798:/ msend");
-  /*msend*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2798:/ ojbmsend.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-   MELT_LOCATION("warmelt-outobj.melt:2798:/ ojbmsend.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:2798:/ ojbmsend.arg");
-   argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-   /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = meltgc_send((melt_ptr_t)(/*_.OVLOC__V9*/ curfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2799:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2800:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.ORANK__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.OVLOC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.OCTYP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.CTYPE_PARCHAR__V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.CTYPE_RESFIELD__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.CTYPE_RESFIELD__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2772:/ clear");
-  /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2770:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJPUTXTRARESULT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 12
-  void* varptr[12];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<12; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 12;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJEXPV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2805:/ getarg");
- /*_.OEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2805:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2805:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2805:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2805:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2806:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2806:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2806:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2806:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2806:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2806:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2806:/ locexp");
-      melt_assert_failed(( "check oexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2806)?(2806):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2806:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2806:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2806:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2807:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2807:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 1, "OBX_CONT");/*_.CONT__V7*/ curfptr[5] = slot; };
-  ;
-  /*_#I__L3*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V8*/ curfptr[7] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2810:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2810:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE__L4*/ curfnum[3] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5])) == OBMAG_MULTIPLE);;
-    MELT_LOCATION("warmelt-outobj.melt:2810:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2810:/ cond.then");
-    /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2810:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2810:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2810:/ locexp");
-       melt_assert_failed(( "check cont"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2810)?(2810):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2810:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2810:/ clear");
-    /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2810:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CONT__V7*/ curfptr[5]);
-   for (/*_#IX__L5*/ curfnum[3] = 0;  
-	(/*_#IX__L5*/ curfnum[3] >= 0) && (/*_#IX__L5*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#IX__L5*/ curfnum[3]++) {
-   /*_.COMP__V11*/ curfptr[9] = melt_multiple_nth((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5]),  /*_#IX__L5*/ curfnum[3]);
-   
-  
-   /*_#GET_INT__L6*/ curfnum[5] = 
-    (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V8*/ curfptr[7])));;
-   MELT_LOCATION("warmelt-outobj.melt:2814:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2814:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:2814:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:2814:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#GET_INT__L6*/ curfnum[5];
-    /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.COMP__V11*/ curfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   if (/*_#IX__L5*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2811:/ clear");
-   /*clear*/ /*_.COMP__V11*/ curfptr[9] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2811:/ clear");
-   /*clear*/ /*_#IX__L5*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2811:/ clear");
-   /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2811:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2807:/ clear");
-  /*clear*/ /*_.CONT__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2807:/ clear");
-  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2807:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2807:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2805:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJEXPV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 19
-  void* varptr[19];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<19; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 19;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_OBJLOCATEDEXPV", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2818:/ getarg");
- /*_.OEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2818:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2818:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2818:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2818:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2819:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2819:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2819:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2819:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2819:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2819:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2819:/ locexp");
-      melt_assert_failed(( "check oexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2819)?(2819):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2819:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2819:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2819:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2820:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 1, "OBX_CONT");/*_.CONT__V7*/ curfptr[5] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2821:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 2, "OBCX_LOC");/*_.OLOC__V8*/ curfptr[7] = slot; };
-  ;
-  /*_#I__L3*/ curfnum[1] = 
-   ((/*_#DEPTH__L1*/ curfnum[0]) + (1));;
-  /*_.BOXDEPTHP1__V9*/ curfptr[8] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:2823:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OTYP__V10*/ curfptr[9] = slot; };
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:2826:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:2826:/ block");
-   /*block*/{
-    /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[3] = 
-     ((/*_.CONT__V7*/ curfptr[5]) == NULL || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5])) == OBMAG_MULTIPLE));;
-    MELT_LOCATION("warmelt-outobj.melt:2826:/ cond");
-    /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2826:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2826:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:2826:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:2826:/ locexp");
-       melt_assert_failed(( "check cont"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2826)?(2826):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2826:/ clear");
-    /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2826:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:2826:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  /*_#__L5*/ curfnum[3] = 
-   ((/*_.OTYP__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-outobj.melt:2827:/ cond");
-  /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2827:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2827:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2829:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2830:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2831:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2832:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[3];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:2832:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-     MELT_LOCATION("warmelt-outobj.melt:2832:/ apply.arg");
-     argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:2832:/ apply.arg");
-     argtab[2].bp_cstring =  "locexp";
-     /*_.OUTPUT_LOCATION__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2828:/ block");
-    /*block*/{
-     /*_.PROGN___V15*/ curfptr[14] = /*_.OUTPUT_LOCATION__V14*/ curfptr[13];;}
-    ;
-    /*_.IFELSE___V13*/ curfptr[11] = /*_.PROGN___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2827:/ clear");
-    /*clear*/ /*_.OUTPUT_LOCATION__V14*/ curfptr[13] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:2827:/ clear");
-    /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2827:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:2827:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2834:/ cond");
-    /*cond*/ if (/*_.OLOC__V8*/ curfptr[7]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:2834:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:2834:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:2835:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:2835:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-       MELT_LOCATION("warmelt-outobj.melt:2835:/ apply.arg");
-       argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-       MELT_LOCATION("warmelt-outobj.melt:2835:/ apply.arg");
-       argtab[2].bp_cstring =  "expr";
-       /*_.OUTPUT_RAW_LOCATION__V17*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IF___V16*/ curfptr[13] = /*_.OUTPUT_RAW_LOCATION__V17*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:2834:/ clear");
-      /*clear*/ /*_.OUTPUT_RAW_LOCATION__V17*/ curfptr[14] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:2834:/ cond.else");
-    
-     /*_.IF___V16*/ curfptr[13] = NULL;;
-     }
-    ;
-    /*_.IFELSE___V13*/ curfptr[11] = /*_.IF___V16*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2827:/ clear");
-    /*clear*/ /*_.IF___V16*/ curfptr[13] = 0 ;}
-   ;
-   }
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CONT__V7*/ curfptr[5]);
-   for (/*_#IX__L6*/ curfnum[5] = 0;  
-	(/*_#IX__L6*/ curfnum[5] >= 0) && (/*_#IX__L6*/ curfnum[5] <  cit1__EACHTUP_ln);  
-	/*_#IX__L6*/ curfnum[5]++) {
-   /*_.COMP__V18*/ curfptr[14] = melt_multiple_nth((melt_ptr_t)(/*_.CONT__V7*/ curfptr[5]),  /*_#IX__L6*/ curfnum[5]);
-   
-  
-   /*_#GET_INT__L7*/ curfnum[6] = 
-    (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V9*/ curfptr[8])));;
-   MELT_LOCATION("warmelt-outobj.melt:2842:/ msend");
-   /*msend*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2842:/ ojbmsend.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:2842:/ ojbmsend.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-    MELT_LOCATION("warmelt-outobj.melt:2842:/ ojbmsend.arg");
-    argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6];
-    /*_.OUTPUT_C_CODE__V19*/ curfptr[13] = meltgc_send((melt_ptr_t)(/*_.COMP__V18*/ curfptr[14]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   if (/*_#IX__L6*/ curfnum[5]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2839:/ clear");
-   /*clear*/ /*_.COMP__V18*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2839:/ clear");
-   /*clear*/ /*_#IX__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2839:/ clear");
-   /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2839:/ clear");
-   /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[13] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*_#__L8*/ curfnum[7] = 
-   ((/*_.OTYP__V10*/ curfptr[9]) == ((/*!CTYPE_VOID*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-outobj.melt:2843:/ cond");
-  /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2843:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2843:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2845:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";}"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:2846:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2844:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_.CONT__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_.OLOC__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_.BOXDEPTHP1__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_.OTYP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_.IFELSE___V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2820:/ clear");
-  /*clear*/ /*_#__L8*/ curfnum[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2818:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_OBJLOCATEDEXPV", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_VERBATIMSTRING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
- /*_.VSTR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2852:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2852:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2853:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2853:/ block");
-  /*block*/{
-   /*_.DISCRIM__V6*/ curfptr[5] = 
-    (melt_discr((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));;
-   /*_#__L2*/ curfnum[1] = 
-    ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!DISCR_VERBATIM_STRING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2853:/ cond");
-   /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2853:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2853:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2853:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2853:/ locexp");
-      melt_assert_failed(( "check vstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2853)?(2853):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2853:/ clear");
-   /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2853:/ clear");
-   /*clear*/ /*_#__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2853:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2853:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2854:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2852:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_VERBATIMSTRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_112_warmelt_outobj_OUTPUCOD_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_112_warmelt_outobj_OUTPUCOD_STRING_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 7
-  void* varptr[7];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<7; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 7;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_STRING", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2863:/ getarg");
- /*_.VSTR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2863:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2863:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2863:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2863:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2864:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2864:/ block");
-  /*block*/{
-   /*_.DISCRIM__V6*/ curfptr[5] = 
-    (melt_discr((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));;
-   /*_#__L2*/ curfnum[1] = 
-    ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!DISCR_STRING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2864:/ cond");
-   /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2864:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2864:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2864:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2864:/ locexp");
-      melt_assert_failed(( "check vstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2864)?(2864):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2864:/ clear");
-   /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2864:/ clear");
-   /*clear*/ /*_#__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2864:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2864:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2865:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \""));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2866:/ locexp");
- meltgc_add_strbuf_cstr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), melt_string_str((melt_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2867:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\""));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2863:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_STRING", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_112_warmelt_outobj_OUTPUCOD_STRING*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_INTEGER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2875:/ getarg");
- /*_.VINT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2875:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2875:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2875:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2875:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2876:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2876:/ block");
-  /*block*/{
-   /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.VINT__V2*/ curfptr[1])) == OBMAG_INT);;
-   MELT_LOCATION("warmelt-outobj.melt:2876:/ cond");
-   /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2876:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2876:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2876:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2876:/ locexp");
-      melt_assert_failed(( "check vint"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2876)?(2876):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2876:/ clear");
-   /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2876:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2876:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#GET_INT__L3*/ curfnum[1] = 
-  (melt_get_int((melt_ptr_t)(/*_.VINT__V2*/ curfptr[1])));;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2877:/ locexp");
- meltgc_add_strbuf_dec((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L3*/ curfnum[1]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2875:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2875:/ clear");
- /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_INTEGER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUCOD_FINALRETURN", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2882:/ getarg");
- /*_.FRET__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2882:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2882:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2882:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2882:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2883:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2883:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FRET__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2883:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2883:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2883:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2883:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2883:/ locexp");
-      melt_assert_failed(( "check fret"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2883)?(2883):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2883:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2883:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2884:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.FRET__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V7*/ curfptr[5] = slot; };
- ;
- MELT_LOCATION("warmelt-outobj.melt:2884:/ apply");
- /*apply*/{
-  union meltparam_un argtab[3];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:2884:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3];
-  MELT_LOCATION("warmelt-outobj.melt:2884:/ apply.arg");
-  argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0];
-  MELT_LOCATION("warmelt-outobj.melt:2884:/ apply.arg");
-  argtab[2].bp_cstring =  "finalreturn";
-  /*_.OUTPUT_LOCATION__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBI_LOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2885:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2886:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2887:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*finalret*/ goto labend_rout "));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2882:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2882:/ clear");
- /*clear*/ /*_.OBI_LOC__V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2882:/ clear");
- /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUCOD_FINALRETURN", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("SORTED_NAMED_DICT_TUPLE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2893:/ getarg");
- /*_.DIC__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2893:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:2894:/ block");
- /*block*/{
-  /*_#DICNT__L1*/ curfnum[0] = 
-   (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.DIC__V2*/ curfptr[1])));;
-  /*_.ENTLIST__V4*/ curfptr[3] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));;
-  MELT_LOCATION("warmelt-outobj.melt:2898:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2898:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2898:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (melt_ptr_t)(/*_.ENTLIST__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V5*/ curfptr[4] = /*_.LAMBDA___V6*/ curfptr[5];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2897:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2897:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[4];
-   /*_.MAPSTRING_EVERY__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!MAPSTRING_EVERY*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.DIC__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2901:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2901:/ apply");
-   /*apply*/{
-    /*_.RAWTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.ENTLIST__V4*/ curfptr[3]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.MULTIPLE_SORT__V10*/ curfptr[9] = 
-    meltgc_sort_multiple((melt_ptr_t)(/*_.RAWTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[5])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])));;
-   /*_.LET___V8*/ curfptr[7] = /*_.MULTIPLE_SORT__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2901:/ clear");
-   /*clear*/ /*_.RAWTUP__V9*/ curfptr[8] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2901:/ clear");
-   /*clear*/ /*_.MULTIPLE_SORT__V10*/ curfptr[9] = 0 ;}
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.LET___V8*/ curfptr[7];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2894:/ clear");
-  /*clear*/ /*_#DICNT__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2894:/ clear");
-  /*clear*/ /*_.ENTLIST__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2894:/ clear");
-  /*clear*/ /*_.LAMBDA___V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2894:/ clear");
-  /*clear*/ /*_.MAPSTRING_EVERY__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2894:/ clear");
-  /*clear*/ /*_.LET___V8*/ curfptr[7] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:2893:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:2893:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2893:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("SORTED_NAMED_DICT_TUPLE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_116_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_116_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2898:/ getarg");
- /*_.NAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2898:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ENT__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ENT__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2898:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2899:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2899:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.ENT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2899:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2899:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2899:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2899:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2899:/ locexp");
-      melt_assert_failed(( "check ent named"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2899)?(2899):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2899:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2899:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2900:/ locexp");
- meltgc_append_list((melt_ptr_t)((/*~ENTLIST*/ curfclos->tabval[0])), (melt_ptr_t)(/*_.ENT__V3*/ curfptr[2]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2898:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_116_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("OUTPUT_EXPORTED_OFFSETS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2907:/ getarg");
- /*_.MODCTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2907:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2907:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2907:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2908:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2908:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2908:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2908:/ apply.arg");
-    argtab[0].bp_cstring =  "output_exported_offsets modctx";
-    MELT_LOCATION("warmelt-outobj.melt:2908:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:2908:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2908:/ apply.arg");
-    argtab[3].bp_long = 2908;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2908:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2908:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2908:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2909:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2909:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:2909:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2909:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2909:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2909:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2909:/ locexp");
-      melt_assert_failed(( "check modctx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2909)?(2909):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2909:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2909:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2909:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2910:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2911:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ apply");
-  /*apply*/{
-   /*_.SORTEDFIELDS__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!SORTED_NAMED_DICT_TUPLE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MOCX_EXPFIELDICT__V9*/ curfptr[7]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2913:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2912:/ apply");
-  /*apply*/{
-   /*_.SORTEDCLASSES__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!SORTED_NAMED_DICT_TUPLE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2915:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2916:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported field offsets */"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2919:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2919:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2919:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2917:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2917:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12];
-   /*_.MULTIPLE_EVERY__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SORTEDFIELDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2928:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2929:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2930:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported class lengths */"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2933:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2933:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2933:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]);
-   ;
-   /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2931:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2931:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15];
-   /*_.MULTIPLE_EVERY__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SORTEDCLASSES__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:2943:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.SORTEDFIELDS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.SORTEDCLASSES__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2910:/ clear");
-  /*clear*/ /*_.MULTIPLE_EVERY__V18*/ curfptr[17] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2907:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2907:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("OUTPUT_EXPORTED_OFFSETS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_118_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_118_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 5
-  void* varptr[5];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<5; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 5;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2919:/ getarg");
- /*_.FLD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2919:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2919:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2920:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2920:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FLD__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2920:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2920:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2920:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2920:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2920:/ locexp");
-      melt_assert_failed(( "check fld"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2920)?(2920):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2920:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2920:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2920:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2921:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2922:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int meltfieldoff__"));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:2923:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.FLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; };
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2923:/ locexp");
- meltgc_add_strbuf_cident((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2924:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = "));}
- ;
- /*_#GET_INT__L3*/ curfnum[1] = 
-  (melt_get_int((melt_ptr_t)(/*_.FLD__V2*/ curfptr[1])));;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2925:/ locexp");
- meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#GET_INT__L3*/ curfnum[1]));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2926:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";"));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2919:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2919:/ clear");
- /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2919:/ clear");
- /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_118_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_119_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_119_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2933:/ getarg");
- /*_.CLA__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2933:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2933:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2934:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2934:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2934:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2934:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2934:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2934:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2934:/ locexp");
-      melt_assert_failed(( "check cla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2934)?(2934):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2934:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2934:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2934:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2935:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2936:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int meltclasslen__"));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:2937:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; };
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2937:/ locexp");
- meltgc_add_strbuf_cident((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])),
-  melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3])));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2938:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = "));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:2940:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V6*/ curfptr[5] = slot; };
- ;
- /*_#MULTIPLE_LENGTH__L3*/ curfnum[1] = 
-  (melt_multiple_length((melt_ptr_t)(/*_.CLASS_FIELDS__V6*/ curfptr[5])));;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2939:/ locexp");
- meltgc_add_strbuf_dec((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[1]));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2941:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";"));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2933:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2933:/ clear");
- /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2933:/ clear");
- /*clear*/ /*_.CLASS_FIELDS__V6*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2933:/ clear");
- /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[1] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_119_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 25
-  void* varptr[25];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<25; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 25;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("NTH_SECUNDARY_FILE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2957:/ getarg");
- /*_.MODCTX__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2957:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODNAMSTR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2957:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.DECLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:2957:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2957:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2958:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2958:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:2958:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2958:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2958:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2958:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2958:/ locexp");
-      melt_assert_failed(( "check modctx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2958)?(2958):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2958:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2958:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2958:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2959:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2959:/ block");
-  /*block*/{
-   /*_#IS_STRING__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V3*/ curfptr[2])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:2959:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2959:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2959:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2959:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2959:/ locexp");
-      melt_assert_failed(( "check modnamstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2959)?(2959):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2959:/ clear");
-   /*clear*/ /*_#IS_STRING__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2959:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2959:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2960:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2960:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L4*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ curfptr[3])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:2960:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2960:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2960:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2960:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2960:/ locexp");
-      melt_assert_failed(( "check declbuf"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2960)?(2960):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2960:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2960:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2960:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2961:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 5, "MOCX_FILETUPLE");/*_.MOFILES__V12*/ curfptr[11] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2961:/ cond.else");
-  
-   /*_.MOFILES__V12*/ curfptr[11] = NULL;;
-   }
-  ;
-  /*_#NBFILES__L5*/ curfnum[1] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.MOFILES__V12*/ curfptr[11])));;
-  /*_.NTHFILE__V13*/ curfptr[12] = 
-   (melt_multiple_nth((melt_ptr_t)(/*_.MOFILES__V12*/ curfptr[11]), (/*_#IX__L1*/ curfnum[0])));;
-  MELT_LOCATION("warmelt-outobj.melt:2965:/ cond");
-  /*cond*/ if (/*_.NTHFILE__V13*/ curfptr[12]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2965:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2965:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2965:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = /*_.NTHFILE__V13*/ curfptr[12];;
-     MELT_LOCATION("warmelt-outobj.melt:2965:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IF___V14*/ curfptr[13] = /*_.RETURN___V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2965:/ clear");
-    /*clear*/ /*_.RETURN___V15*/ curfptr[14] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2965:/ cond.else");
-  
-   /*_.IF___V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  /*_#I__L6*/ curfnum[5] = 
-   ((/*_#IX__L1*/ curfnum[0]) <= (0));;
-  MELT_LOCATION("warmelt-outobj.melt:2966:/ cond");
-  /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2966:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2966:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2966:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-outobj.melt:2966:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IF___V16*/ curfptr[14] = /*_.RETURN___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2966:/ clear");
-    /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2966:/ cond.else");
-  
-   /*_.IF___V16*/ curfptr[14] = NULL;;
-   }
-  ;
-  /*_#I__L7*/ curfnum[6] = 
-   ((/*_#IX__L1*/ curfnum[0]) >= (/*_#NBFILES__L5*/ curfnum[1]));;
-  MELT_LOCATION("warmelt-outobj.melt:2967:/ cond");
-  /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:2967:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:2967:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2967:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-outobj.melt:2967:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IF___V18*/ curfptr[16] = /*_.RETURN___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:2967:/ clear");
-    /*clear*/ /*_.RETURN___V19*/ curfptr[18] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:2967:/ cond.else");
-  
-   /*_.IF___V18*/ curfptr[16] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:2969:/ block");
-  /*block*/{
-   /*_.PATHBUF__V21*/ curfptr[20] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[1])), (char*)0);;
-   /*_.IMPLBUF__V22*/ curfptr[21] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[1])), (char*)0);;
-   MELT_LOCATION("warmelt-outobj.melt:2972:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:2972:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SECONDARY_C_FILE*/ curfrout->tabval[2])), (4), "CLASS_SECONDARY_C_FILE");/*_.INST__V24*/ curfptr[23] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2972:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SECFIL_MODNAM", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.MODNAMSTR__V3*/ curfptr[2]), "SECFIL_MODNAM");
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2972:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SECFIL_PATH", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), ((/*nil*/NULL)), "SECFIL_PATH");
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2972:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SECFIL_DECLBUF", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (2), (/*_.DECLBUF__V4*/ curfptr[3]), "SECFIL_DECLBUF");
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:2972:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SECFIL_IMPLBUF", melt_magic_discr((melt_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V24*/ curfptr[23]), (3), (/*_.IMPLBUF__V22*/ curfptr[21]), "SECFIL_IMPLBUF");
-    ;
-    /*_.NEWFILE__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:2978:/ locexp");
-   melt_put_int((melt_ptr_t)(/*_.NEWFILE__V23*/ curfptr[22]), (/*_#IX__L1*/ curfnum[0]));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:2979:/ locexp");
-   meltgc_multiple_put_nth((melt_ptr_t)(/*_.MOFILES__V12*/ curfptr[11]), (/*_#IX__L1*/ curfnum[0]), (melt_ptr_t)(/*_.NEWFILE__V23*/ curfptr[22]));}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2980:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = /*_.NEWFILE__V23*/ curfptr[22];;
-    MELT_LOCATION("warmelt-outobj.melt:2980:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.LET___V20*/ curfptr[18] = /*_.RETURN___V25*/ curfptr[24];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
-   /*clear*/ /*_.PATHBUF__V21*/ curfptr[20] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
-   /*clear*/ /*_.IMPLBUF__V22*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
-   /*clear*/ /*_.NEWFILE__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2969:/ clear");
-   /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;}
-  ;
-  /*_.LET___V11*/ curfptr[9] = /*_.LET___V20*/ curfptr[18];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_.MOFILES__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_#NBFILES__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_.NTHFILE__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_.IF___V18*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2961:/ clear");
-  /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:2957:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];;
-  MELT_LOCATION("warmelt-outobj.melt:2957:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2957:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2957:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2957:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2957:/ clear");
- /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("NTH_SECUNDARY_FILE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 85
-  void* varptr[85];
-#define CURFRAM_NBVARNUM 28
-  long varnum[28];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<85; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 85;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILE_LIST_SEXPR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:2985:/ getarg");
- /*_.LSEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:2985:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.INIENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:2985:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODNAMSTR__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:2985:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:2986:/ locexp");
- debugeputs(( "starting  compile_list_sexpr"));}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2987:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2987:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2987:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2987:/ apply.arg");
-    argtab[0].bp_cstring =  "\n\n\n*%*%* compile_list_sexpr lsexp";
-    MELT_LOCATION("warmelt-outobj.melt:2987:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:2987:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2987:/ apply.arg");
-    argtab[3].bp_long = 2987;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.LSEXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2987:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2987:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2987:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2988:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2988:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2988:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2988:/ apply.arg");
-    argtab[0].bp_cstring =  "compile_list_sexpr inienv";
-    MELT_LOCATION("warmelt-outobj.melt:2988:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:2988:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2988:/ apply.arg");
-    argtab[3].bp_long = 2988;
-    /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2988:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2988:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2989:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2989:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:2989:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:2989:/ apply.arg");
-    argtab[0].bp_cstring =  "compile_list_sexpr modnamstr";
-    MELT_LOCATION("warmelt-outobj.melt:2989:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:2989:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:2989:/ apply.arg");
-    argtab[3].bp_long = 2989;
-    /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2989:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2989:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2989:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2990:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2990:/ block");
-  /*block*/{
-   /*_#IS_LIST__L4*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.LSEXP__V2*/ curfptr[1])) == OBMAG_LIST);;
-   MELT_LOCATION("warmelt-outobj.melt:2990:/ cond");
-   /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2990:/ cond.then");
-   /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2990:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2990:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2990:/ locexp");
-      melt_assert_failed(( "check lsexp"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2990)?(2990):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2990:/ clear");
-   /*clear*/ /*_#IS_LIST__L4*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2990:/ clear");
-   /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2990:/ cppif.else");
- /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2991:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2991:/ block");
-  /*block*/{
-   /*_#IS_STRING__L5*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:2991:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2991:/ cond.then");
-   /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2991:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2991:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2991:/ locexp");
-      melt_assert_failed(( "check modnamstr"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2991)?(2991):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2991:/ clear");
-   /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2991:/ clear");
-   /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2991:/ cppif.else");
- /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:2992:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:2992:/ block");
-  /*block*/{
-   /*_#IS_A__L6*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:2992:/ cond");
-   /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:2992:/ cond.then");
-   /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:2992:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:2992:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:2992:/ locexp");
-      melt_assert_failed(( "check inienv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (2992)?(2992):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:2992:/ clear");
-   /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:2992:/ clear");
-   /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:2992:/ cppif.else");
- /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:2993:/ block");
- /*block*/{
-  /*_.MAKE_STRING_NAKEDBASENAME__V17*/ curfptr[15] = 
-   (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]))));;
-  /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = 
-   (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[4])), (90)));;
-  /*_.MAKE_MAPSTRING__V19*/ curfptr[18] = 
-   (meltgc_new_mapstrings( (meltobject_ptr_t) ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[4])), (40)));;
-  /*_.MAKE_INTEGERBOX__V20*/ curfptr[19] = 
-   (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));;
-  MELT_LOCATION("warmelt-outobj.melt:2994:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ curfrout->tabval[2])), (6), "CLASS_MODULE_CONTEXT");/*_.INST__V22*/ curfptr[21] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MOCX_MODULENAME", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (0), (/*_.MAKE_STRING_NAKEDBASENAME__V17*/ curfptr[15]), "MOCX_MODULENAME");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MOCX_EXPFIELDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (1), (/*_.MAKE_MAPSTRING__V18*/ curfptr[17]), "MOCX_EXPFIELDICT");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MOCX_EXPCLASSDICT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), (/*_.MAKE_MAPSTRING__V19*/ curfptr[18]), "MOCX_EXPCLASSDICT");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MOCX_INITIALENV", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (3), (/*_.INIENV__V3*/ curfptr[2]), "MOCX_INITIALENV");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MOCX_FUNCOUNT", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (4), (/*_.MAKE_INTEGERBOX__V20*/ curfptr[19]), "MOCX_FUNCOUNT");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:2994:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MOCX_FILETUPLE", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V22*/ curfptr[21]), (5), ((/*nil*/NULL)), "MOCX_FILETUPLE");
-   ;
-   /*_.MODCTX__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3002:/ apply");
-  /*apply*/{
-   /*_.NCX__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!CREATE_NORMCONTEXT*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3003:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3003:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3003:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3003:/ apply.arg");
-     argtab[0].bp_cstring =  "compile_list_sexpr initial ncx";
-     MELT_LOCATION("warmelt-outobj.melt:3003:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3003:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3003:/ apply.arg");
-     argtab[3].bp_long = 3003;
-     /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3003:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3003:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3003:/ cppif.else");
-  /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3004:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3004:/ block");
-   /*block*/{
-    /*_#IS_A__L8*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ curfrout->tabval[7])));;
-    MELT_LOCATION("warmelt-outobj.melt:3004:/ cond");
-    /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3004:/ cond.then");
-    /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3004:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3004:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3004:/ locexp");
-       melt_assert_failed(( "check ncx"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3004)?(3004):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3004:/ clear");
-    /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3004:/ clear");
-    /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3004:/ cppif.else");
-  /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:3005:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3005:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.INIENV__V3*/ curfptr[2];
-    /*_.XLIST__V28*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.LSEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LIST_FIRST__V29*/ curfptr[28] = 
-    (melt_list_first((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26])));;
-   /*_.FIRSTX__V30*/ curfptr[29] = 
-    (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V29*/ curfptr[28])));;
-   /*_#IS_A__L9*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FIRSTX__V30*/ curfptr[29]), (melt_ptr_t)((/*!CLASS_SOURCE*/ curfrout->tabval[9])));;
-   MELT_LOCATION("warmelt-outobj.melt:3007:/ cond");
-   /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3007:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3007:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3007:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FIRSTX__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V32*/ curfptr[31] = slot; };
-     ;
-     /*_.FIRSTLOC__V31*/ curfptr[30] = /*_.LOCA_LOCATION__V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3007:/ clear");
-     /*clear*/ /*_.LOCA_LOCATION__V32*/ curfptr[31] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3007:/ cond.else");
-   
-    /*_.FIRSTLOC__V31*/ curfptr[30] = NULL;;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3008:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 0, "NCTX_INITPROC");/*_.INIPROC__V33*/ curfptr[31] = slot; };
-   ;
-   /*_.DECLBUF__V34*/ curfptr[33] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[10])), (char*)0);;
-   /*_.IMPLBUF__V35*/ curfptr[34] = 
-    meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[10])), (char*)0);;
-   MELT_LOCATION("warmelt-outobj.melt:3012:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3012:/ rawallocobj");
-    /*rawallocobj*/ { melt_ptr_t newobj = 0;
-     melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[11])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V37*/ curfptr[36] =
-     newobj; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3012:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.FIRSTLOC__V31*/ curfptr[30]), "LOCA_LOCATION");
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3012:/ putslot");
-    /*putslot*/
-    melt_assertmsg("putslot checkobj @SUCME_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT);
-    melt_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), ((/*!konst_12*/ curfrout->tabval[12])), "SUCME_COMMENT");
-    ;
-    /*_.UCMEB1__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;}
-   ;
-   /*_#__L10*/ curfnum[9] = 
-    ((/*_.INIENV__V3*/ curfptr[2]) == ((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[13])));;
-   MELT_LOCATION("warmelt-outobj.melt:3017:/ cond");
-   /*cond*/ if (/*_#__L10*/ curfnum[9]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3017:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3017:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3018:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]), ( "#define MELT_HAS_INITIAL_ENVIRONMENT 0"));}
-     ;
-     /*epilog*/}
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3017:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3017:/ block");
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3019:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]), ( "#define MELT_HAS_INITIAL_ENVIRONMENT 1"));}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3021:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]), (0), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3022:/ locexp");
-   meltgc_prepend_list((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26]), (melt_ptr_t)(/*_.UCMEB1__V36*/ curfptr[35]));}
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3023:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3023:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3023:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3023:/ apply.arg");
-      argtab[0].bp_cstring =  "after macroexpansion compile_list_sexpr seq";
-      MELT_LOCATION("warmelt-outobj.melt:3023:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10];
-      MELT_LOCATION("warmelt-outobj.melt:3023:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3023:/ apply.arg");
-      argtab[3].bp_long = 3023;
-      /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3023:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3023:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3023:/ cppif.else");
-   /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3024:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3024:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3024:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3024:/ apply.arg");
-      argtab[0].bp_cstring =  "after macroexpansion compile_list_sexpr inienv";
-      MELT_LOCATION("warmelt-outobj.melt:3024:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10];
-      MELT_LOCATION("warmelt-outobj.melt:3024:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3024:/ apply.arg");
-      argtab[3].bp_long = 3024;
-      /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3024:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3024:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3024:/ cppif.else");
-   /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3025:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3025:/ block");
-    /*block*/{
-     /*_#IS_A__L13*/ curfnum[10] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.INIPROC__V33*/ curfptr[31]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[14])));;
-     MELT_LOCATION("warmelt-outobj.melt:3025:/ cond");
-     /*cond*/ if (/*_#IS_A__L13*/ curfnum[10]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3025:/ cond.then");
-     /*_.IFELSE___V43*/ curfptr[42] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3025:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3025:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3025:/ locexp");
-        melt_assert_failed(( "check iniproc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3025)?(3025):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V43*/ curfptr[42] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V42*/ curfptr[40] = /*_.IFELSE___V43*/ curfptr[42];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3025:/ clear");
-     /*clear*/ /*_#IS_A__L13*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3025:/ clear");
-     /*clear*/ /*_.IFELSE___V43*/ curfptr[42] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3025:/ cppif.else");
-   /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3026:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3026:/ block");
-    /*block*/{
-     /*_#IS_LIST__L14*/ curfnum[10] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26])) == OBMAG_LIST);;
-     MELT_LOCATION("warmelt-outobj.melt:3026:/ cond");
-     /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[10]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3026:/ cond.then");
-     /*_.IFELSE___V45*/ curfptr[44] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3026:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3026:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3026:/ locexp");
-        melt_assert_failed(( "check xlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3026)?(3026):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V44*/ curfptr[42] = /*_.IFELSE___V45*/ curfptr[44];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3026:/ clear");
-     /*clear*/ /*_#IS_LIST__L14*/ curfnum[10] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3026:/ clear");
-     /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3026:/ cppif.else");
-   /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:3029:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3029:/ newclosure");
-     /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] =
-     meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (4));
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3029:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]);
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3029:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[1] = (melt_ptr_t)(/*_.INIENV__V3*/ curfptr[2]);
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3029:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[2] = (melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]);
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3029:/ putclosedv");
-    /*putclosv*/
-    melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE);
-    melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46])));
-    ((meltclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[3] = (melt_ptr_t)(/*_.INIPROC__V33*/ curfptr[31]);
-    ;
-    /*_.LAMBDA___V46*/ curfptr[44] = /*_.LAMBDA___V47*/ curfptr[46];;}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3027:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3027:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[44];
-    /*_.LIST_EVERY__V48*/ curfptr[47] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3059:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 1, "NCTX_PROCLIST");/*_.PROLIST__V49*/ curfptr[48] = slot; };
-    ;
-    /*_.OBJLIST__V50*/ curfptr[49] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[24]))));;
-    /*_#LIST_LENGTH__L15*/ curfnum[10] = 
-     (melt_list_length((melt_ptr_t)(/*_.XLIST__V28*/ curfptr[26])));;
-    /*_#I__L16*/ curfnum[15] = 
-     ((20) * (/*_#LIST_LENGTH__L15*/ curfnum[10]));;
-    /*_#I__L17*/ curfnum[16] = 
-     ((10) + (/*_#I__L16*/ curfnum[15]));;
-    /*_.COMPICACHE__V51*/ curfptr[50] = 
-     (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[25])), (/*_#I__L17*/ curfnum[16])));;
-    /*_.COUNTBOX__V52*/ curfptr[51] = 
-     (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[5])), (0)));;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3064:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3064:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 
-       callcount;;
-      MELT_LOCATION("warmelt-outobj.melt:3064:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3064:/ apply.arg");
-       argtab[0].bp_cstring =  "compile_list_sexpr prolist";
-       MELT_LOCATION("warmelt-outobj.melt:3064:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17];
-       MELT_LOCATION("warmelt-outobj.melt:3064:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-outobj.melt";
-       MELT_LOCATION("warmelt-outobj.melt:3064:/ apply.arg");
-       argtab[3].bp_long = 3064;
-       /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PROLIST__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V53*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3064:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3064:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3064:/ cppif.else");
-    /*_.IFCPP___V53*/ curfptr[52] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3065:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3065:/ block");
-     /*block*/{
-      /*_#IS_LIST__L19*/ curfnum[17] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.PROLIST__V49*/ curfptr[48])) == OBMAG_LIST);;
-      MELT_LOCATION("warmelt-outobj.melt:3065:/ cond");
-      /*cond*/ if (/*_#IS_LIST__L19*/ curfnum[17]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3065:/ cond.then");
-      /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3065:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3065:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:3065:/ locexp");
-         melt_assert_failed(( "check prolist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3065)?(3065):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V55*/ curfptr[53] = /*_.IFELSE___V56*/ curfptr[55];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3065:/ clear");
-      /*clear*/ /*_#IS_LIST__L19*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3065:/ clear");
-      /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3065:/ cppif.else");
-    /*_.IFCPP___V55*/ curfptr[53] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-outobj.melt:3068:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3068:/ newclosure");
-      /*newclosure*/ /*_.LAMBDA___V58*/ curfptr[57] =
-      meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_29*/ curfrout->tabval[29])), (4));
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3068:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V52*/ curfptr[51]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3068:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[1] = (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3068:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[2] = (melt_ptr_t)(/*_.COMPICACHE__V51*/ curfptr[50]);
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3068:/ putclosedv");
-     /*putclosv*/
-     melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V58*/ curfptr[57])) == OBMAG_CLOSURE);
-     melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V58*/ curfptr[57])));
-     ((meltclosure_ptr_t)/*_.LAMBDA___V58*/ curfptr[57])->tabval[3] = (melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49]);
-     ;
-     /*_.LAMBDA___V57*/ curfptr[55] = /*_.LAMBDA___V58*/ curfptr[57];;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3066:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3066:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V57*/ curfptr[55];
-     /*_.LIST_EVERY__V59*/ curfptr[58] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (melt_ptr_t)(/*_.PROLIST__V49*/ curfptr[48]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3078:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3078:/ block");
-     /*block*/{
-      /*_#THE_CALLCOUNT__L20*/ curfnum[17] = 
-       callcount;;
-      MELT_LOCATION("warmelt-outobj.melt:3078:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[4];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3078:/ apply.arg");
-       argtab[0].bp_cstring =  "compile_list_sexpr objlist";
-       MELT_LOCATION("warmelt-outobj.melt:3078:/ apply.arg");
-       argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[17];
-       MELT_LOCATION("warmelt-outobj.melt:3078:/ apply.arg");
-       argtab[2].bp_cstring =  "warmelt-outobj.melt";
-       MELT_LOCATION("warmelt-outobj.melt:3078:/ apply.arg");
-       argtab[3].bp_long = 3078;
-       /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3078:/ clear");
-      /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3078:/ clear");
-      /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3078:/ cppif.else");
-    /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3079:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3079:/ block");
-     /*block*/{
-      /*_#IS_LIST__L21*/ curfnum[17] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49])) == OBMAG_LIST);;
-      MELT_LOCATION("warmelt-outobj.melt:3079:/ cond");
-      /*cond*/ if (/*_#IS_LIST__L21*/ curfnum[17]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3079:/ cond.then");
-      /*_.IFELSE___V63*/ curfptr[62] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3079:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3079:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:3079:/ locexp");
-         melt_assert_failed(( "check objlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3079)?(3079):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V63*/ curfptr[62] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V62*/ curfptr[60] = /*_.IFELSE___V63*/ curfptr[62];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3079:/ clear");
-      /*clear*/ /*_#IS_LIST__L21*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3079:/ clear");
-      /*clear*/ /*_.IFELSE___V63*/ curfptr[62] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3079:/ cppif.else");
-    /*_.IFCPP___V62*/ curfptr[60] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    MELT_LOCATION("warmelt-outobj.melt:3080:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 0, "NCTX_INITPROC");/*_.INIPRO__V64*/ curfptr[62] = slot; };
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3081:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 2, "NCTX_DATALIST");/*_.INIDATA__V65*/ curfptr[64] = slot; };
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3082:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 3, "NCTX_VALUELIST");/*_.IMPORTVALUES__V66*/ curfptr[65] = slot; };
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3083:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V23*/ curfptr[22]), 14, "NCTX_PROCURMODENVLIST");/*_.PROCURMODENVLIST__V67*/ curfptr[66] = slot; };
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3085:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3085:/ block");
-      /*block*/{
-       /*_#IS_A__L22*/ curfnum[17] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.INIPRO__V64*/ curfptr[62]), (melt_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[14])));;
-       MELT_LOCATION("warmelt-outobj.melt:3085:/ cond");
-       /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ {
-       MELT_LOCATION("warmelt-outobj.melt:3085:/ cond.then");
-       /*_.IFELSE___V69*/ curfptr[68] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-outobj.melt:3085:/ cond.else");
-       
-        MELT_LOCATION("warmelt-outobj.melt:3085:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-outobj.melt:3085:/ locexp");
-          melt_assert_failed(( "check inipro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3085)?(3085):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V68*/ curfptr[67] = /*_.IFELSE___V69*/ curfptr[68];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3085:/ clear");
-       /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3085:/ clear");
-       /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3085:/ cppif.else");
-     /*_.IFCPP___V68*/ curfptr[67] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3086:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3086:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L23*/ curfnum[17] = 
-        callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:3086:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:3086:/ apply.arg");
-        argtab[0].bp_cstring =  "compile_list_sexpr procurmodenvlist";
-        MELT_LOCATION("warmelt-outobj.melt:3086:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[17];
-        MELT_LOCATION("warmelt-outobj.melt:3086:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:3086:/ apply.arg");
-        argtab[3].bp_long = 3086;
-        /*_.DEBUG_MSG_FUN__V71*/ curfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PROCURMODENVLIST__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V70*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V71*/ curfptr[70];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3086:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[17] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3086:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V71*/ curfptr[70] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3086:/ cppif.else");
-     /*_.IFCPP___V70*/ curfptr[68] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     MELT_LOCATION("warmelt-outobj.melt:3087:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[5];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3087:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MODCTX__V21*/ curfptr[20];
-       MELT_LOCATION("warmelt-outobj.melt:3087:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.INIDATA__V65*/ curfptr[64];
-       MELT_LOCATION("warmelt-outobj.melt:3087:/ apply.arg");
-       argtab[2].bp_aptr = (melt_ptr_t*) &/*_.COMPICACHE__V51*/ curfptr[50];
-       MELT_LOCATION("warmelt-outobj.melt:3087:/ apply.arg");
-       argtab[3].bp_aptr = (melt_ptr_t*) &/*_.PROCURMODENVLIST__V67*/ curfptr[66];
-       MELT_LOCATION("warmelt-outobj.melt:3087:/ apply.arg");
-       argtab[4].bp_aptr = (melt_ptr_t*) &/*_.IMPORTVALUES__V66*/ curfptr[65];
-       /*_.INIOBJ__V72*/ curfptr[70] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_INITPROC*/ curfrout->tabval[30])), (melt_ptr_t)(/*_.INIPRO__V64*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:3088:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:3088:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L24*/ curfnum[17] = 
-         callcount;;
-        MELT_LOCATION("warmelt-outobj.melt:3088:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:3088:/ apply.arg");
-         argtab[0].bp_cstring =  "compile_list_sexpr iniobj";
-         MELT_LOCATION("warmelt-outobj.melt:3088:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[17];
-         MELT_LOCATION("warmelt-outobj.melt:3088:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-         MELT_LOCATION("warmelt-outobj.melt:3088:/ apply.arg");
-         argtab[3].bp_long = 3088;
-         /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIOBJ__V72*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V73*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3088:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[17] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3088:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:3088:/ cppif.else");
-      /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_#LIST_LENGTH__L25*/ curfnum[17] = 
-       (melt_list_length((melt_ptr_t)(/*_.OBJLIST__V50*/ curfptr[49])));;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3089:/ locexp");
-      melt_putnum(stderr,( "** warmelt generated "), (/*_#LIST_LENGTH__L25*/ curfnum[17]), ( " routines into "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3090:/ locexp");
-      melt_putstr(stderr, (melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3091:/ locexp");
-      melt_newlineflush(stderr);}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3092:/ locexp");
-      melt_puts(stderr,( "** from "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3093:/ locexp");
-      melt_puts(stderr,melt_compiled_timestamp);}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3094:/ locexp");
-      melt_newlineflush(stderr);}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3095:/ locexp");
-      melt_puts(stderr,( "** of checksum "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3096:/ locexp");
-      melt_puts(stderr,melt_md5);}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3097:/ locexp");
-      melt_newlineflush(stderr);}
-      ;
-      /*citerblock FOREACH_IN_LIST*/ {
-      /* start cit1__EACHLIST */
-   for (/*_.PAIREL__V75*/ curfptr[73] = melt_list_first(/*_.OBJLIST__V50*/ curfptr[49]);
-	melt_magic_discr(/*_.PAIREL__V75*/ curfptr[73]) == OBMAG_PAIR;
-        /*_.PAIREL__V75*/ curfptr[73] = melt_pair_tail(/*_.PAIREL__V75*/ curfptr[73])) {
-	/*_.OBEL__V76*/ curfptr[75] = melt_pair_head(/*_.PAIREL__V75*/ curfptr[73]); 
-      
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-outobj.melt:3102:/ cppif.then");
-       MELT_LOCATION("warmelt-outobj.melt:3102:/ block");
-        /*block*/{
-         /*_#THE_CALLCOUNT__L26*/ curfnum[25] = 
-          callcount;;
-         MELT_LOCATION("warmelt-outobj.melt:3102:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[4];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-outobj.melt:3102:/ apply.arg");
-          argtab[0].bp_cstring =  "compile_list_sexpr obel";
-          MELT_LOCATION("warmelt-outobj.melt:3102:/ apply.arg");
-          argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[25];
-          MELT_LOCATION("warmelt-outobj.melt:3102:/ apply.arg");
-          argtab[2].bp_cstring =  "warmelt-outobj.melt";
-          MELT_LOCATION("warmelt-outobj.melt:3102:/ apply.arg");
-          argtab[3].bp_long = 3102;
-          /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-outobj.melt:3102:/ clear");
-         /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[25] = 0 ;
-         MELT_LOCATION("warmelt-outobj.melt:3102:/ clear");
-         /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-outobj.melt:3102:/ cppif.else");
-       /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       MELT_LOCATION("warmelt-outobj.melt:3105:/ msend");
-       /*msend*/{
-        union meltparam_un argtab[3];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:3105:/ ojbmsend.arg");
-        argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
-        MELT_LOCATION("warmelt-outobj.melt:3105:/ ojbmsend.arg");
-        argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V35*/ curfptr[34];
-        MELT_LOCATION("warmelt-outobj.melt:3105:/ ojbmsend.arg");
-        argtab[2].bp_long = 0;
-        /*_.OUTPUT_C_CODE__V79*/ curfptr[77] = meltgc_send((melt_ptr_t)(/*_.OBEL__V76*/ curfptr[75]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[31])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       } /* end cit1__EACHLIST */
-      
-       /*citerepilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3099:/ clear");
-       /*clear*/ /*_.PAIREL__V75*/ curfptr[73] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3099:/ clear");
-       /*clear*/ /*_.OBEL__V76*/ curfptr[75] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3099:/ clear");
-       /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3099:/ clear");
-       /*clear*/ /*_.OUTPUT_C_CODE__V79*/ curfptr[77] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-      ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:3107:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:3107:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L27*/ curfnum[25] = 
-         callcount;;
-        MELT_LOCATION("warmelt-outobj.melt:3107:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:3107:/ apply.arg");
-         argtab[0].bp_cstring =  "compile_list_sexpr final modnamstr";
-         MELT_LOCATION("warmelt-outobj.melt:3107:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[25];
-         MELT_LOCATION("warmelt-outobj.melt:3107:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-         MELT_LOCATION("warmelt-outobj.melt:3107:/ apply.arg");
-         argtab[3].bp_long = 3107;
-         /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V80*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[80];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3107:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[25] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3107:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[80] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:3107:/ cppif.else");
-      /*_.IFCPP___V80*/ curfptr[79] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:3108:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:3108:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L28*/ curfnum[25] = 
-         callcount;;
-        MELT_LOCATION("warmelt-outobj.melt:3108:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:3108:/ apply.arg");
-         argtab[0].bp_cstring =  "compile_list_sexpr outputting iniobj";
-         MELT_LOCATION("warmelt-outobj.melt:3108:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[25];
-         MELT_LOCATION("warmelt-outobj.melt:3108:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-         MELT_LOCATION("warmelt-outobj.melt:3108:/ apply.arg");
-         argtab[3].bp_long = 3108;
-         /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INIOBJ__V72*/ curfptr[70]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V82*/ curfptr[80] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[82];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[25] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3108:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[82] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:3108:/ cppif.else");
-      /*_.IFCPP___V82*/ curfptr[80] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-outobj.melt:3109:/ msend");
-      /*msend*/{
-       union meltparam_un argtab[3];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3109:/ ojbmsend.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
-       MELT_LOCATION("warmelt-outobj.melt:3109:/ ojbmsend.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V35*/ curfptr[34];
-       MELT_LOCATION("warmelt-outobj.melt:3109:/ ojbmsend.arg");
-       argtab[2].bp_long = 0;
-       /*_.OUTPUT_C_CODE__V84*/ curfptr[82] = meltgc_send((melt_ptr_t)(/*_.INIOBJ__V72*/ curfptr[70]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[31])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3110:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[2];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3110:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V34*/ curfptr[33];
-       MELT_LOCATION("warmelt-outobj.melt:3110:/ apply.arg");
-       argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V35*/ curfptr[34];
-       /*_.OUTPUT_EXPORTED_OFFSETS__V85*/ curfptr[84] =  melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_EXPORTED_OFFSETS*/ curfrout->tabval[32])), (melt_ptr_t)(/*_.MODCTX__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3112:/ locexp");
-       /* OUTPUTCFILE__1: */
-			   melt_output_cfile_decl_impl((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]),
-						       (melt_ptr_t)(/*_.DECLBUF__V34*/ curfptr[33]),
-						       (melt_ptr_t)(/*_.IMPLBUF__V35*/ curfptr[34]));
-			;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3117:/ locexp");
-      inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "warmelt generated module C file"), 
-			     melt_string_str((melt_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_.INIOBJ__V72*/ curfptr[70] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_.IFCPP___V73*/ curfptr[72] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_#LIST_LENGTH__L25*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_.IFCPP___V80*/ curfptr[79] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_.IFCPP___V82*/ curfptr[80] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_.OUTPUT_C_CODE__V84*/ curfptr[82] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3087:/ clear");
-      /*clear*/ /*_.OUTPUT_EXPORTED_OFFSETS__V85*/ curfptr[84] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ clear");
-     /*clear*/ /*_.INIPRO__V64*/ curfptr[62] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ clear");
-     /*clear*/ /*_.INIDATA__V65*/ curfptr[64] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ clear");
-     /*clear*/ /*_.IMPORTVALUES__V66*/ curfptr[65] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ clear");
-     /*clear*/ /*_.PROCURMODENVLIST__V67*/ curfptr[66] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ clear");
-     /*clear*/ /*_.IFCPP___V68*/ curfptr[67] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3080:/ clear");
-     /*clear*/ /*_.IFCPP___V70*/ curfptr[68] = 0 ;}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.PROLIST__V49*/ curfptr[48] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.OBJLIST__V50*/ curfptr[49] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_#LIST_LENGTH__L15*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.COMPICACHE__V51*/ curfptr[50] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.COUNTBOX__V52*/ curfptr[51] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.IFCPP___V53*/ curfptr[52] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.IFCPP___V55*/ curfptr[53] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.LAMBDA___V57*/ curfptr[55] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.LIST_EVERY__V59*/ curfptr[58] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3059:/ clear");
-    /*clear*/ /*_.IFCPP___V62*/ curfptr[60] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.XLIST__V28*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.LIST_FIRST__V29*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.FIRSTX__V30*/ curfptr[29] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.FIRSTLOC__V31*/ curfptr[30] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.INIPROC__V33*/ curfptr[31] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.DECLBUF__V34*/ curfptr[33] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.IMPLBUF__V35*/ curfptr[34] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.UCMEB1__V36*/ curfptr[35] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_#__L10*/ curfnum[9] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.LAMBDA___V46*/ curfptr[44] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3005:/ clear");
-   /*clear*/ /*_.LIST_EVERY__V48*/ curfptr[47] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.MAKE_MAPSTRING__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.MAKE_INTEGERBOX__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.MODCTX__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.NCX__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:2993:/ clear");
-  /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3119:/ locexp");
- debugeputs(( "ended compile_list_sexpr"));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:2985:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2985:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2985:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2985:/ clear");
- /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2985:/ clear");
- /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:2985:/ clear");
- /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILE_LIST_SEXPR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_122_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_122_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 11
-  long varnum[11];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3029:/ getarg");
- /*_.SEXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3029:/ getarg");
- if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs;
- /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3029:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3030:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3030:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3030:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3030:/ apply.arg");
-    argtab[0].bp_cstring =  "compile_list_sexpr sexp";
-    MELT_LOCATION("warmelt-outobj.melt:3030:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1];
-    MELT_LOCATION("warmelt-outobj.melt:3030:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3030:/ apply.arg");
-    argtab[3].bp_long = 3030;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3030:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3030:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3030:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3031:/ block");
- /*block*/{
-  /*_#IS_A__L3*/ curfnum[1] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:3032:/ cond");
-  /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3032:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3032:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3032:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V6*/ curfptr[5] = slot; };
-    ;
-    /*_.PSLOC__V5*/ curfptr[3] = /*_.LOCA_LOCATION__V6*/ curfptr[5];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3032:/ clear");
-    /*clear*/ /*_.LOCA_LOCATION__V6*/ curfptr[5] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3032:/ cond.else");
-  
-   /*_.PSLOC__V5*/ curfptr[3] = NULL;;
-   }
-  ;
-  /*_#IS_A__L4*/ curfnum[3] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_COMMENT*/ curfrout->tabval[2])));;
-  MELT_LOCATION("warmelt-outobj.melt:3036:/ cond");
-  /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3036:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3036:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3037:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3037:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V7*/ curfptr[5] = slot; };
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3038:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 2, "SCOMM_STR");/*_.SCOMM__V8*/ curfptr[7] = slot; };
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3040:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0);}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3041:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), ( "/**!!** "));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3042:/ locexp");
-#ifndef MELTGCC_NOLINENUMBERING
-#endif /*MELTGCC_NOLINENUMBERING*/
-     meltgc_add_strbuf_ccomment((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.SCOMM__V8*/ curfptr[7])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3043:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), ( "**!!**/"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3044:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0);}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3037:/ clear");
-     /*clear*/ /*_.SLOC__V7*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3037:/ clear");
-     /*clear*/ /*_.SCOMM__V8*/ curfptr[7] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3036:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3036:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3047:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3047:/ multimsend");
-     /*multimsend*/{
-      union meltparam_un argtab[3];
-      union meltparam_un restab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      memset(&restab, 0, sizeof(restab));
-      MELT_LOCATION("warmelt-outobj.melt:3047:/ multimsend.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*~INIENV*/ curfclos->tabval[1]);MELT_LOCATION("warmelt-outobj.melt:3047:/ multimsend.arg");
-      argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);MELT_LOCATION("warmelt-outobj.melt:3047:/ multimsend.arg");
-      argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3];
-      MELT_LOCATION("warmelt-outobj.melt:3047:/ multimsend.xres");
-      restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V10*/ curfptr[7];MELT_LOCATION("warmelt-outobj.melt:3047:/ multimsend.send");
-      /*_.NEXP__V9*/ curfptr[5] =  meltgc_send ((melt_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab);
-      }
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3047:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:3050:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:3050:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-         callcount;;
-        MELT_LOCATION("warmelt-outobj.melt:3050:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:3050:/ apply.arg");
-         argtab[0].bp_cstring =  "compile_list_sexpr nexp";
-         MELT_LOCATION("warmelt-outobj.melt:3050:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-         MELT_LOCATION("warmelt-outobj.melt:3050:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-         MELT_LOCATION("warmelt-outobj.melt:3050:/ apply.arg");
-         argtab[3].bp_long = 3050;
-         /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3050:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:3050:/ cppif.else");
-      /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:3051:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:3051:/ block");
-       /*block*/{
-        /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
-         callcount;;
-        MELT_LOCATION("warmelt-outobj.melt:3051:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[4];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:3051:/ apply.arg");
-         argtab[0].bp_cstring =  "compile_list_sexpr nbind";
-         MELT_LOCATION("warmelt-outobj.melt:3051:/ apply.arg");
-         argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
-         MELT_LOCATION("warmelt-outobj.melt:3051:/ apply.arg");
-         argtab[2].bp_cstring =  "warmelt-outobj.melt";
-         MELT_LOCATION("warmelt-outobj.melt:3051:/ apply.arg");
-         argtab[3].bp_long = 3051;
-         /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.NBIND__V10*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3051:/ clear");
-        /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3051:/ clear");
-        /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:3051:/ cppif.else");
-      /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      /*_#IS_A__L7*/ curfnum[4] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[4])));;
-      MELT_LOCATION("warmelt-outobj.melt:3052:/ cond");
-      /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3052:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3052:/ block");
-       /*block*/{
-        /*_#IS_A__L9*/ curfnum[8] = 
-         melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));;
-        /*_#NOT__L10*/ curfnum[9] = 
-         (!(/*_#IS_A__L9*/ curfnum[8]));;
-        /*_#IF___L8*/ curfnum[7] = /*_#NOT__L10*/ curfnum[9];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3052:/ clear");
-        /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3052:/ clear");
-        /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3052:/ cond.else");
-      
-       /*_#IF___L8*/ curfnum[7] = 0;;
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3052:/ cond");
-      /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3052:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3052:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-outobj.melt:3054:/ block");
-        /*block*/{
-         MELT_LOCATION("warmelt-outobj.melt:3054:/ apply");
-         /*apply*/{
-          union meltparam_un argtab[2];
-          memset(&argtab, 0, sizeof(argtab));
-          MELT_LOCATION("warmelt-outobj.melt:3054:/ apply.arg");
-          argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBIND__V10*/ curfptr[7];
-          MELT_LOCATION("warmelt-outobj.melt:3054:/ apply.arg");
-          argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3];
-          /*_.WNEXP__V15*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-          }
-         ;
-         
-         #if ENABLE_CHECKING
-          MELT_LOCATION("warmelt-outobj.melt:3055:/ cppif.then");
-         MELT_LOCATION("warmelt-outobj.melt:3055:/ block");
-          /*block*/{
-           /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 
-            callcount;;
-           MELT_LOCATION("warmelt-outobj.melt:3055:/ apply");
-           /*apply*/{
-            union meltparam_un argtab[4];
-            memset(&argtab, 0, sizeof(argtab));
-            MELT_LOCATION("warmelt-outobj.melt:3055:/ apply.arg");
-            argtab[0].bp_cstring =  "compile_list_sexpr wnexp";
-            MELT_LOCATION("warmelt-outobj.melt:3055:/ apply.arg");
-            argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8];
-            MELT_LOCATION("warmelt-outobj.melt:3055:/ apply.arg");
-            argtab[2].bp_cstring =  "warmelt-outobj.melt";
-            MELT_LOCATION("warmelt-outobj.melt:3055:/ apply.arg");
-            argtab[3].bp_long = 3055;
-            /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.WNEXP__V15*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-            }
-           ;
-           /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-           /*epilog*/
-           MELT_LOCATION("warmelt-outobj.melt:3055:/ clear");
-           /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ;
-           MELT_LOCATION("warmelt-outobj.melt:3055:/ clear");
-           /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-          
-          #else /*ENABLE_CHECKING*/
-          MELT_LOCATION("warmelt-outobj.melt:3055:/ cppif.else");
-         /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-          #endif /*ENABLE_CHECKING*/
-          ;
-         MELT_LOCATION("warmelt-outobj.melt:3056:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)((/*~INIPROC*/ curfclos->tabval[3])), 2, "NINIT_TOPL");/*_.NINIT_TOPL__V18*/ curfptr[16] = slot; };
-         ;
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:3056:/ locexp");
-         meltgc_append_list((melt_ptr_t)(/*_.NINIT_TOPL__V18*/ curfptr[16]), (melt_ptr_t)(/*_.WNEXP__V15*/ curfptr[13]));}
-         ;
-         /*epilog*/
-         MELT_LOCATION("warmelt-outobj.melt:3054:/ clear");
-         /*clear*/ /*_.WNEXP__V15*/ curfptr[13] = 0 ;
-         MELT_LOCATION("warmelt-outobj.melt:3054:/ clear");
-         /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-         MELT_LOCATION("warmelt-outobj.melt:3054:/ clear");
-         /*clear*/ /*_.NINIT_TOPL__V18*/ curfptr[16] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3047:/ clear");
-      /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3047:/ clear");
-      /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3047:/ clear");
-      /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3047:/ clear");
-      /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3047:/ clear");
-     /*clear*/ /*_.NBIND__V10*/ curfptr[7] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-   }
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3031:/ clear");
-  /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3031:/ clear");
-  /*clear*/ /*_.PSLOC__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3031:/ clear");
-  /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3029:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_122_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_123_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_123_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3068:/ getarg");
- /*_.PRO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3068:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3069:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3069:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3069:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3069:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3069:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3069:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3069:/ locexp");
-      melt_assert_failed(( "check pro"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3069)?(3069):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3069:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3069:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3069:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3070:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3070:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3070:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3070:/ apply.arg");
-    argtab[0].bp_cstring =  "compile_list_sexpr pro";
-    MELT_LOCATION("warmelt-outobj.melt:3070:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3070:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3070:/ apply.arg");
-    argtab[3].bp_long = 3070;
-    /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3070:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3070:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3070:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#GET_INT__L3*/ curfnum[0] = 
-  (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
- /*_#I__L4*/ curfnum[3] = 
-  ((/*_#GET_INT__L3*/ curfnum[0]) + (1));;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3071:/ locexp");
- melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L4*/ curfnum[3]));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3072:/ block");
- /*block*/{
-  /*_#GET_INT__L5*/ curfnum[4] = 
-   (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));;
-  MELT_LOCATION("warmelt-outobj.melt:3072:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[3];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3072:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*~MODCTX*/ curfclos->tabval[1]);
-   MELT_LOCATION("warmelt-outobj.melt:3072:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &(/*~COMPICACHE*/ curfclos->tabval[2]);
-   MELT_LOCATION("warmelt-outobj.melt:3072:/ apply.arg");
-   argtab[2].bp_long = /*_#GET_INT__L5*/ curfnum[4];
-   /*_.OBJPRO__V7*/ curfptr[5] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE2OBJ_PROCEDURE*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3073:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3073:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3073:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
-     argtab[0].bp_cstring =  "compile_list_sexpr objpro";
-     MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5];
-     MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3073:/ apply.arg");
-     argtab[3].bp_long = 3073;
-     /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OBJPRO__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3073:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3073:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3073:/ cppif.else");
-  /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3074:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3074:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3074:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3074:/ apply.arg");
-     argtab[0].bp_cstring =  "compile_list_sexpr done pro";
-     MELT_LOCATION("warmelt-outobj.melt:3074:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5];
-     MELT_LOCATION("warmelt-outobj.melt:3074:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3074:/ apply.arg");
-     argtab[3].bp_long = 3074;
-     /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3074:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3074:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3074:/ cppif.else");
-  /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3075:/ locexp");
-  meltgc_append_list((melt_ptr_t)((/*~OBJLIST*/ curfclos->tabval[3])), (melt_ptr_t)(/*_.OBJPRO__V7*/ curfptr[5]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3072:/ clear");
-  /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3072:/ clear");
-  /*clear*/ /*_.OBJPRO__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3072:/ clear");
-  /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3072:/ clear");
-  /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3068:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3068:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3068:/ clear");
- /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3068:/ clear");
- /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_123_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_124_warmelt_outobj_INSTALL_MELT_MODE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_124_warmelt_outobj_INSTALL_MELT_MODE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 8
-  void* varptr[8];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<8; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 8;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("INSTALL_MELT_MODE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3127:/ getarg");
- /*_.MODE__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3127:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3129:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3129:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3129:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3129:/ apply.arg");
-    argtab[0].bp_cstring =  "install_melt_mode mode";
-    MELT_LOCATION("warmelt-outobj.melt:3129:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3129:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3129:/ apply.arg");
-    argtab[3].bp_long = 3129;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3129:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3129:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3129:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3130:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3130:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MELT_MODE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:3130:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3130:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3130:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3130:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3130:/ locexp");
-      melt_assert_failed(( "check mode"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3130)?(3130):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3130:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3130:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3130:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3131:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3131:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[2])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3131:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3131:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[2])), 2, "SYSDATA_MODE_DICT");/*_.CMDICT__V7*/ curfptr[5] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3131:/ cond.else");
-  
-   /*_.CMDICT__V7*/ curfptr[5] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3132:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3132:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3132:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.CNAM__V8*/ curfptr[7] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3132:/ cond.else");
-  
-   /*_.CNAM__V8*/ curfptr[7] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3134:/ locexp");
-  meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.CMDICT__V7*/ curfptr[5]), melt_string_str((melt_ptr_t)(/*_.CNAM__V8*/ curfptr[7])), (melt_ptr_t)(/*_.MODE__V2*/ curfptr[1]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3131:/ clear");
-  /*clear*/ /*_.CMDICT__V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3131:/ clear");
-  /*clear*/ /*_.CNAM__V8*/ curfptr[7] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3127:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3127:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("INSTALL_MELT_MODE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_124_warmelt_outobj_INSTALL_MELT_MODE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 10
-  long varnum[10];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("COMPILE_ONE_OR_MORE_FILES", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3145:/ getarg");
- /*_.FILES__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3145:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODSRCNAME__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODSRCNAME__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:3145:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CURENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CURENV__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3145:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3146:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3146:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3146:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3146:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3146:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3146:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3146:/ locexp");
-      melt_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3146)?(3146):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3146:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3146:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3146:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3147:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3147:/ block");
-  /*block*/{
-   /*_#IS_STRING__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.MODSRCNAME__V3*/ curfptr[2])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:3147:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3147:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3147:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3147:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3147:/ locexp");
-      melt_assert_failed(( "check modsrcname"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3147)?(3147):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3147:/ clear");
-   /*clear*/ /*_#IS_STRING__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3147:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3147:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3148:/ block");
- /*block*/{
-  /*_.RLIST__V10*/ curfptr[9] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));;
-  /*_#IS_STRING__L3*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.FILES__V2*/ curfptr[1])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-outobj.melt:3151:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3151:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3151:/ block");
-   /*block*/{
-    /*_.READ_FILE__V12*/ curfptr[11] = 
-     (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.FILES__V2*/ curfptr[1])), (char*)0));;
-    MELT_LOCATION("warmelt-outobj.melt:3152:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3152:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.READ_FILE__V12*/ curfptr[11];
-     /*_.LIST_APPEND2LIST__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFELSE___V11*/ curfptr[10] = /*_.LIST_APPEND2LIST__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3151:/ clear");
-    /*clear*/ /*_.READ_FILE__V12*/ curfptr[11] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3151:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V13*/ curfptr[12] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3151:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3151:/ block");
-   /*block*/{
-    /*_#IS_LIST__L4*/ curfnum[3] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.FILES__V2*/ curfptr[1])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-outobj.melt:3153:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3153:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3153:/ block");
-     /*block*/{
-      /*citerblock FOREACH_IN_LIST*/ {
-      /* start cit1__EACHLIST */
-   for (/*_.CURPAIR__V15*/ curfptr[12] = melt_list_first(/*_.FILES__V2*/ curfptr[1]);
-	melt_magic_discr(/*_.CURPAIR__V15*/ curfptr[12]) == OBMAG_PAIR;
-        /*_.CURPAIR__V15*/ curfptr[12] = melt_pair_tail(/*_.CURPAIR__V15*/ curfptr[12])) {
-	/*_.CURFILE__V16*/ curfptr[15] = melt_pair_head(/*_.CURPAIR__V15*/ curfptr[12]); 
-      
-       
-       #if ENABLE_CHECKING
-        MELT_LOCATION("warmelt-outobj.melt:3157:/ cppif.then");
-       MELT_LOCATION("warmelt-outobj.melt:3157:/ block");
-        /*block*/{
-         /*_#IS_STRING__L5*/ curfnum[4] = 
-          (melt_magic_discr((melt_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])) == OBMAG_STRING);;
-         MELT_LOCATION("warmelt-outobj.melt:3157:/ cond");
-         /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
-         MELT_LOCATION("warmelt-outobj.melt:3157:/ cond.then");
-         /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);;
-         } else {MELT_LOCATION("warmelt-outobj.melt:3157:/ cond.else");
-         
-          MELT_LOCATION("warmelt-outobj.melt:3157:/ block");
-          /*block*/{
-           /*block*/{
-            
-            {
-            MELT_LOCATION("warmelt-outobj.melt:3157:/ locexp");
-            melt_assert_failed(( "check curfile"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3157)?(3157):__LINE__, __FUNCTION__);
-;}
-            ;
-            /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-           ;
-           /*epilog*/}
-          ;
-          }
-         ;
-         /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];;
-         /*epilog*/
-         MELT_LOCATION("warmelt-outobj.melt:3157:/ clear");
-         /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
-         MELT_LOCATION("warmelt-outobj.melt:3157:/ clear");
-         /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;}
-        
-        #else /*ENABLE_CHECKING*/
-        MELT_LOCATION("warmelt-outobj.melt:3157:/ cppif.else");
-       /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-        #endif /*ENABLE_CHECKING*/
-        ;
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3158:/ locexp");
-       inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "reading from file"), 
-			     melt_string_str((melt_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])));}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:3159:/ block");
-       /*block*/{
-        /*_.CUREAD__V20*/ curfptr[19] = 
-         (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURFILE__V16*/ curfptr[15])), (char*)0));;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-outobj.melt:3161:/ cppif.then");
-        MELT_LOCATION("warmelt-outobj.melt:3161:/ block");
-         /*block*/{
-          /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 
-           callcount;;
-          MELT_LOCATION("warmelt-outobj.melt:3161:/ apply");
-          /*apply*/{
-           union meltparam_un argtab[4];
-           memset(&argtab, 0, sizeof(argtab));
-           MELT_LOCATION("warmelt-outobj.melt:3161:/ apply.arg");
-           argtab[0].bp_cstring =  "compilefile_mode curead";
-           MELT_LOCATION("warmelt-outobj.melt:3161:/ apply.arg");
-           argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4];
-           MELT_LOCATION("warmelt-outobj.melt:3161:/ apply.arg");
-           argtab[2].bp_cstring =  "warmelt-outobj.melt";
-           MELT_LOCATION("warmelt-outobj.melt:3161:/ apply.arg");
-           argtab[3].bp_long = 3161;
-           /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.CUREAD__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-           }
-          ;
-          /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:3161:/ clear");
-          /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:3161:/ clear");
-          /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-outobj.melt:3161:/ cppif.else");
-        /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-outobj.melt:3162:/ cppif.then");
-        MELT_LOCATION("warmelt-outobj.melt:3162:/ block");
-         /*block*/{
-          /*_#IS_LIST_OR_NULL__L7*/ curfnum[4] = 
-           ((/*_.CUREAD__V20*/ curfptr[19]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V20*/ curfptr[19])) == OBMAG_LIST));;
-          MELT_LOCATION("warmelt-outobj.melt:3162:/ cond");
-          /*cond*/ if (/*_#IS_LIST_OR_NULL__L7*/ curfnum[4]) /*then*/ {
-          MELT_LOCATION("warmelt-outobj.melt:3162:/ cond.then");
-          /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-outobj.melt:3162:/ cond.else");
-          
-           MELT_LOCATION("warmelt-outobj.melt:3162:/ block");
-           /*block*/{
-            /*block*/{
-             
-             {
-             MELT_LOCATION("warmelt-outobj.melt:3162:/ locexp");
-             melt_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3162)?(3162):__LINE__, __FUNCTION__);
-;}
-             ;
-             /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-            ;
-            /*epilog*/}
-           ;
-           }
-          ;
-          /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:3162:/ clear");
-          /*clear*/ /*_#IS_LIST_OR_NULL__L7*/ curfnum[4] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:3162:/ clear");
-          /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-outobj.melt:3162:/ cppif.else");
-        /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-outobj.melt:3163:/ apply");
-        /*apply*/{
-         union meltparam_un argtab[1];
-         memset(&argtab, 0, sizeof(argtab));
-         MELT_LOCATION("warmelt-outobj.melt:3163:/ apply.arg");
-         argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREAD__V20*/ curfptr[19];
-         /*_.LIST_APPEND2LIST__V25*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-         }
-        ;
-        /*_.LET___V19*/ curfptr[17] = /*_.LIST_APPEND2LIST__V25*/ curfptr[23];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3159:/ clear");
-        /*clear*/ /*_.CUREAD__V20*/ curfptr[19] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3159:/ clear");
-        /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3159:/ clear");
-        /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3159:/ clear");
-        /*clear*/ /*_.LIST_APPEND2LIST__V25*/ curfptr[23] = 0 ;}
-       ;
-       /*_.IFELSE___V14*/ curfptr[11] = /*_.LET___V19*/ curfptr[17];;
-       } /* end cit1__EACHLIST */
-      
-       /*citerepilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3154:/ clear");
-       /*clear*/ /*_.CURPAIR__V15*/ curfptr[12] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3154:/ clear");
-       /*clear*/ /*_.CURFILE__V16*/ curfptr[15] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3154:/ clear");
-       /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3154:/ clear");
-       /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
-      ;
-      /*epilog*/}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3153:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3153:/ block");
-     /*block*/{
-      
-      #if ENABLE_CHECKING
-       MELT_LOCATION("warmelt-outobj.melt:3165:/ cppif.then");
-      MELT_LOCATION("warmelt-outobj.melt:3165:/ block");
-       /*block*/{
-        MELT_LOCATION("warmelt-outobj.melt:3165:/ cond");
-        /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3165:/ cond.then");
-        /*_.IFELSE___V27*/ curfptr[20] = (/*nil*/NULL);;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3165:/ cond.else");
-        
-         MELT_LOCATION("warmelt-outobj.melt:3165:/ block");
-         /*block*/{
-          /*block*/{
-           
-           {
-           MELT_LOCATION("warmelt-outobj.melt:3165:/ locexp");
-           melt_assert_failed(( "bad files - should be a list of filenames or a filename"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3165)?(3165):__LINE__, __FUNCTION__);
-;}
-           ;
-           /*clear*/ /*_.IFELSE___V27*/ curfptr[20] = 0 ;}
-          ;
-          /*epilog*/}
-         ;
-         }
-        ;
-        /*_.IFCPP___V26*/ curfptr[19] = /*_.IFELSE___V27*/ curfptr[20];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3165:/ clear");
-        /*clear*/ /*_.IFELSE___V27*/ curfptr[20] = 0 ;}
-       
-       #else /*ENABLE_CHECKING*/
-       MELT_LOCATION("warmelt-outobj.melt:3165:/ cppif.else");
-      /*_.IFCPP___V26*/ curfptr[19] = (/*nil*/NULL);
-       #endif /*ENABLE_CHECKING*/
-       ;
-      MELT_LOCATION("warmelt-outobj.melt:3164:/ block");
-      /*block*/{
-       /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[19];;}
-      ;
-      /*_.IFELSE___V14*/ curfptr[11] = /*_.PROGN___V28*/ curfptr[21];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3153:/ clear");
-      /*clear*/ /*_.IFCPP___V26*/ curfptr[19] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3153:/ clear");
-      /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3151:/ clear");
-    /*clear*/ /*_#IS_LIST__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3151:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[11] = 0 ;}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3167:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3167:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3167:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
-     argtab[0].bp_cstring =  "after read compile_one_or_more_files rlist";
-     MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4];
-     MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3167:/ apply.arg");
-     argtab[3].bp_long = 3167;
-     /*_.DEBUG_MSG_FUN__V30*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V29*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[20];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3167:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3167:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[20] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3167:/ cppif.else");
-  /*_.IFCPP___V29*/ curfptr[23] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3168:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3168:/ block");
-   /*block*/{
-    /*_#LIST_LENGTH__L9*/ curfnum[3] = 
-     (melt_list_length((melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9])));;
-    /*_#I__L10*/ curfnum[4] = 
-     ((/*_#LIST_LENGTH__L9*/ curfnum[3]) > (0));;
-    MELT_LOCATION("warmelt-outobj.melt:3168:/ cond");
-    /*cond*/ if (/*_#I__L10*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3168:/ cond.then");
-    /*_.IFELSE___V32*/ curfptr[21] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3168:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3168:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3168:/ locexp");
-       melt_assert_failed(( "check non empty rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3168)?(3168):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V32*/ curfptr[21] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V31*/ curfptr[19] = /*_.IFELSE___V32*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3168:/ clear");
-    /*clear*/ /*_#LIST_LENGTH__L9*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3168:/ clear");
-    /*clear*/ /*_#I__L10*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3168:/ clear");
-    /*clear*/ /*_.IFELSE___V32*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3168:/ cppif.else");
-  /*_.IFCPP___V31*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:3169:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3169:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:3169:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.MODSRCNAME__V3*/ curfptr[2];
-   /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RLIST__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V9*/ curfptr[7] = /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[11];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3148:/ clear");
-  /*clear*/ /*_.RLIST__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3148:/ clear");
-  /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3148:/ clear");
-  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3148:/ clear");
-  /*clear*/ /*_.IFCPP___V29*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3148:/ clear");
-  /*clear*/ /*_.IFCPP___V31*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3148:/ clear");
-  /*clear*/ /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[11] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3145:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];;
-  MELT_LOCATION("warmelt-outobj.melt:3145:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3145:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3145:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3145:/ clear");
- /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("COMPILE_ONE_OR_MORE_FILES", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 29
-  void* varptr[29];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-const char* loc_CSTRING__o0;
-const char* loc_CSTRING__o1;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<29; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 29;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("TRANSLATEFILE_DOCMD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3174:/ getarg");
- /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3174:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3174:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3175:/ locexp");
- debugeputs(( "starting translatefile_docmd"));}
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3176:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3176:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3176:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3176:/ apply.arg");
-    argtab[0].bp_cstring =  "start translatefile_docmd cmd";
-    MELT_LOCATION("warmelt-outobj.melt:3176:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3176:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3176:/ apply.arg");
-    argtab[3].bp_long = 3176;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3176:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3176:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3176:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3177:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3177:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3177:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3177:/ apply.arg");
-    argtab[0].bp_cstring =  "start translatefile_docmd moduldata";
-    MELT_LOCATION("warmelt-outobj.melt:3177:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3177:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3177:/ apply.arg");
-    argtab[3].bp_long = 3177;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3177:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3177:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3177:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3178:/ block");
- /*block*/{
-  /*_.PARMODENV__V9*/ curfptr[8] = (/*!konst_1*/ curfrout->tabval[1]);;
-  MELT_LOCATION("warmelt-outobj.melt:3180:/ cond");
-  /*cond*/ if (/*_.MODULDATA__V3*/ curfptr[2]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3180:/ cond.then");
-  /*_.CURENV__V10*/ curfptr[9] = /*_.MODULDATA__V3*/ curfptr[2];;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3180:/ cond.else");
-  
-   /*_.CURENV__V10*/ curfptr[9] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);;
-   }
-  ;
-  /*_?*/ curfram__.loc_CSTRING__o0 = 
-   melt_argument( "arg");;
-  /*_.INARG__V11*/ curfptr[10] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
-  /*_?*/ curfram__.loc_CSTRING__o1 = 
-   melt_argument( "output");;
-  /*_.OUTARG__V12*/ curfptr[11] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o1)));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3184:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3184:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3184:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3184:/ apply.arg");
-     argtab[0].bp_cstring =  "translatefile_docmd inarg";
-     MELT_LOCATION("warmelt-outobj.melt:3184:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3184:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3184:/ apply.arg");
-     argtab[3].bp_long = 3184;
-     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.INARG__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3184:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3184:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3184:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3185:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3185:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3185:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3185:/ apply.arg");
-     argtab[0].bp_cstring =  "translatefile_docmd outarg";
-     MELT_LOCATION("warmelt-outobj.melt:3185:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3185:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3185:/ apply.arg");
-     argtab[3].bp_long = 3185;
-     /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OUTARG__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3185:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3185:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3185:/ cppif.else");
-  /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3186:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3186:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3186:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3186:/ apply.arg");
-     argtab[0].bp_cstring =  "before read translatefile_docmd parmodenv";
-     MELT_LOCATION("warmelt-outobj.melt:3186:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3186:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3186:/ apply.arg");
-     argtab[3].bp_long = 3186;
-     /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PARMODENV__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3186:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3186:/ cppif.else");
-  /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3187:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3187:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3187:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3187:/ apply.arg");
-     argtab[0].bp_cstring =  "before read translatefile_docmd initial_environment";
-     MELT_LOCATION("warmelt-outobj.melt:3187:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3187:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3187:/ apply.arg");
-     argtab[3].bp_long = 3187;
-     /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3187:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3187:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3187:/ cppif.else");
-  /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3188:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3188:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:3188:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3188:/ cond.then");
-    /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3188:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3188:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3188:/ locexp");
-       melt_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3188)?(3188):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3188:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3188:/ clear");
-    /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3188:/ cppif.else");
-  /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:3189:/ block");
-  /*block*/{
-   /*_#IS_STRING__L8*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V12*/ curfptr[11])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:3190:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L8*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3190:/ cond.then");
-   /*_.BASNAM__V24*/ curfptr[23] = /*_.OUTARG__V12*/ curfptr[11];;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3190:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3190:/ block");
-    /*block*/{
-     /*_#IS_STRING__L9*/ curfnum[8] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.INARG__V11*/ curfptr[10])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-outobj.melt:3191:/ cond");
-     /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[8]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3191:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3191:/ block");
-      /*block*/{
-       /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[25] = 
-        (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V11*/ curfptr[10]))));;
-       /*_.IFELSE___V25*/ curfptr[24] = /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[25];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3191:/ clear");
-       /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V26*/ curfptr[25] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3191:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3191:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3193:/ locexp");
-       error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid translatefile mode"));}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:3194:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-        MELT_LOCATION("warmelt-outobj.melt:3194:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:3192:/ block");
-       /*block*/{
-        /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[25];;}
-       ;
-       /*_.IFELSE___V25*/ curfptr[24] = /*_.PROGN___V28*/ curfptr[27];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3191:/ clear");
-       /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3191:/ clear");
-       /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;}
-      ;
-      }
-     ;
-     /*_.BASNAM__V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3190:/ clear");
-     /*clear*/ /*_#IS_STRING__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3190:/ clear");
-     /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3197:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3197:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BASNAM__V24*/ curfptr[23];
-    MELT_LOCATION("warmelt-outobj.melt:3197:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V10*/ curfptr[9];
-    /*_.COMPILE_ONE_OR_MORE_FILES__V29*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_ONE_OR_MORE_FILES*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LET___V23*/ curfptr[21] = /*_.COMPILE_ONE_OR_MORE_FILES__V29*/ curfptr[25];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
-   /*clear*/ /*_#IS_STRING__L8*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
-   /*clear*/ /*_.BASNAM__V24*/ curfptr[23] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3189:/ clear");
-   /*clear*/ /*_.COMPILE_ONE_OR_MORE_FILES__V29*/ curfptr[25] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V23*/ curfptr[21];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.PARMODENV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.CURENV__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.INARG__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.OUTARG__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3178:/ clear");
-  /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3174:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-outobj.melt:3174:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3174:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3174:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3174:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("TRANSLATEFILE_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_127_warmelt_outobj_RUNFILE_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_127_warmelt_outobj_RUNFILE_DOCMD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 35
-  void* varptr[35];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-const char* loc_CSTRING__o0;
-const char* loc_CSTRING__o1;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<35; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 35;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("RUNFILE_DOCMD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3212:/ getarg");
- /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3212:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3212:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3213:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3213:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3213:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3213:/ apply.arg");
-    argtab[0].bp_cstring =  "start runfile_docmd cmd";
-    MELT_LOCATION("warmelt-outobj.melt:3213:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3213:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3213:/ apply.arg");
-    argtab[3].bp_long = 3213;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3213:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3213:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3213:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3214:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3214:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3214:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
-    argtab[0].bp_cstring =  "start runfile_docmd moduldata";
-    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3214:/ apply.arg");
-    argtab[3].bp_long = 3214;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3214:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3214:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3214:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3215:/ block");
- /*block*/{
-  /*_.PARMODENV__V8*/ curfptr[6] = (/*!konst_1*/ curfrout->tabval[1]);;
-  MELT_LOCATION("warmelt-outobj.melt:3217:/ cond");
-  /*cond*/ if (/*_.MODULDATA__V3*/ curfptr[2]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3217:/ cond.then");
-  /*_.CURENV__V9*/ curfptr[8] = /*_.MODULDATA__V3*/ curfptr[2];;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3217:/ cond.else");
-  
-   /*_.CURENV__V9*/ curfptr[8] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);;
-   }
-  ;
-  /*_?*/ curfram__.loc_CSTRING__o0 = 
-   melt_argument( "arg");;
-  /*_.INARG__V10*/ curfptr[9] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
-  /*_?*/ curfram__.loc_CSTRING__o1 = 
-   melt_argument( "output");;
-  /*_.OUTARG__V11*/ curfptr[10] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o1)));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3221:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3221:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3221:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3221:/ apply.arg");
-     argtab[0].bp_cstring =  "before read runfile_mode parmodenv";
-     MELT_LOCATION("warmelt-outobj.melt:3221:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3221:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3221:/ apply.arg");
-     argtab[3].bp_long = 3221;
-     /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.PARMODENV__V8*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3221:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3221:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3221:/ cppif.else");
-  /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3222:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3222:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3222:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
-     argtab[0].bp_cstring =  "before read runfile_mode initial_environment";
-     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3222:/ apply.arg");
-     argtab[3].bp_long = 3222;
-     /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3222:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3222:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3222:/ cppif.else");
-  /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3223:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3223:/ block");
-   /*block*/{
-    /*_#IS_A__L5*/ curfnum[0] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V9*/ curfptr[8]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[4])));;
-    MELT_LOCATION("warmelt-outobj.melt:3223:/ cond");
-    /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3223:/ cond.then");
-    /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3223:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3223:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3223:/ locexp");
-       melt_assert_failed(( "check curenv"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3223)?(3223):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3223:/ clear");
-    /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3223:/ clear");
-    /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3223:/ cppif.else");
-  /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:3224:/ block");
-  /*block*/{
-   /*_.MODULNAM__V18*/ curfptr[16] = (/*nil*/NULL);;
-   /*_#IS_STRING__L6*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V11*/ curfptr[10])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:3227:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3227:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3227:/ block");
-    /*block*/{
-     /*_.MAKE_STRING_NAKEDBASENAME__V20*/ curfptr[19] = 
-      (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.OUTARG__V11*/ curfptr[10]))));;
-     MELT_LOCATION("warmelt-outobj.melt:3228:/ compute");
-     /*_.MODULNAM__V18*/ curfptr[16] = /*_.SETQ___V21*/ curfptr[20] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ curfptr[19];;
-     MELT_LOCATION("warmelt-outobj.melt:3227:/ block");
-     /*block*/{
-      /*_.PROGN___V22*/ curfptr[21] = /*_.OUTARG__V11*/ curfptr[10];;}
-     ;
-     /*_.MODSRCNAME__V19*/ curfptr[18] = /*_.PROGN___V22*/ curfptr[21];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
-     /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/ curfptr[19] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
-     /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
-     /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3227:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3227:/ block");
-    /*block*/{
-     /*_#IS_STRING__L7*/ curfnum[6] = 
-      (melt_magic_discr((melt_ptr_t)(/*_.INARG__V10*/ curfptr[9])) == OBMAG_STRING);;
-     MELT_LOCATION("warmelt-outobj.melt:3230:/ cond");
-     /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3230:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3230:/ block");
-      /*block*/{
-       /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[20] = 
-        (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V10*/ curfptr[9]))));;
-       MELT_LOCATION("warmelt-outobj.melt:3231:/ compute");
-       /*_.MODULNAM__V18*/ curfptr[16] = /*_.SETQ___V25*/ curfptr[21] = /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[20];;
-       /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V26*/ curfptr[25] = 
-        (meltgc_new_string_tempname_suffixed((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), 
-					 melt_string_str((melt_ptr_t)(/*_.INARG__V10*/ curfptr[9])), 
-					 ( ".c")));;
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ block");
-       /*block*/{
-        /*_.PROGN___V27*/ curfptr[26] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V26*/ curfptr[25];;}
-       ;
-       /*_.IFELSE___V23*/ curfptr[19] = /*_.PROGN___V27*/ curfptr[26];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ clear");
-       /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V24*/ curfptr[20] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ clear");
-       /*clear*/ /*_.SETQ___V25*/ curfptr[21] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ clear");
-       /*clear*/ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V26*/ curfptr[25] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ clear");
-       /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;}
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3230:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3230:/ block");
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3234:/ locexp");
-       error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid runfile mode"));}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:3235:/ block");
-       /*block*/{
-        /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-        MELT_LOCATION("warmelt-outobj.melt:3235:/ finalreturn");
-        ;
-        /*finalret*/ goto labend_rout ;}
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:3233:/ block");
-       /*block*/{
-        /*_.PROGN___V29*/ curfptr[21] = /*_.RETURN___V28*/ curfptr[20];;}
-       ;
-       /*_.IFELSE___V23*/ curfptr[19] = /*_.PROGN___V29*/ curfptr[21];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ clear");
-       /*clear*/ /*_.RETURN___V28*/ curfptr[20] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3230:/ clear");
-       /*clear*/ /*_.PROGN___V29*/ curfptr[21] = 0 ;}
-      ;
-      }
-     ;
-     /*_.MODSRCNAME__V19*/ curfptr[18] = /*_.IFELSE___V23*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
-     /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3227:/ clear");
-     /*clear*/ /*_.IFELSE___V23*/ curfptr[19] = 0 ;}
-    ;
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3238:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3238:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MODSRCNAME__V19*/ curfptr[18];
-    MELT_LOCATION("warmelt-outobj.melt:3238:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V9*/ curfptr[8];
-    /*_.COMPILE_ONE_OR_MORE_FILES__V30*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_ONE_OR_MORE_FILES*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3239:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3239:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3239:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3239:/ apply.arg");
-      argtab[0].bp_cstring =  "after compilation runfile_mode modsrcname";
-      MELT_LOCATION("warmelt-outobj.melt:3239:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-      MELT_LOCATION("warmelt-outobj.melt:3239:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3239:/ apply.arg");
-      argtab[3].bp_long = 3239;
-      /*_.DEBUG_MSG_FUN__V32*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODSRCNAME__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V31*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[20];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3239:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3239:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[20] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3239:/ cppif.else");
-   /*_.IFCPP___V31*/ curfptr[26] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3240:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3240:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3240:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3240:/ apply.arg");
-      argtab[0].bp_cstring =  "after compilation runfile_mode modulnam";
-      MELT_LOCATION("warmelt-outobj.melt:3240:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6];
-      MELT_LOCATION("warmelt-outobj.melt:3240:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3240:/ apply.arg");
-      argtab[3].bp_long = 3240;
-      /*_.DEBUG_MSG_FUN__V34*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULNAM__V18*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V33*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3240:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3240:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[19] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3240:/ cppif.else");
-   /*_.IFCPP___V33*/ curfptr[21] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   /*_.LOAD_MELT_MODULE__V35*/ curfptr[20] = 
-    (meltgc_load_melt_module((melt_ptr_t)(/*_.CURENV__V9*/ curfptr[8]),
-  melt_string_str((melt_ptr_t)(/*_.MODULNAM__V18*/ curfptr[16]))));;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3242:/ locexp");
-   /*ignore*/(void)(/*_.LOAD_MELT_MODULE__V35*/ curfptr[20]);}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_.MODULNAM__V18*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_#IS_STRING__L6*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_.MODSRCNAME__V19*/ curfptr[18] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_.COMPILE_ONE_OR_MORE_FILES__V30*/ curfptr[25] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_.IFCPP___V31*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_.IFCPP___V33*/ curfptr[21] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3224:/ clear");
-   /*clear*/ /*_.LOAD_MELT_MODULE__V35*/ curfptr[20] = 0 ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.PARMODENV__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.CURENV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.INARG__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.OUTARG__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3215:/ clear");
-  /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3212:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3212:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("RUNFILE_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_127_warmelt_outobj_RUNFILE_DOCMD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 8
-  long varnum[8];
-/*others*/
-const char* loc_CSTRING__o0;
-const char* loc_CSTRING__o1;
-const char* loc_CSTRING__o2;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("TRANSLATEINIT_DOCMD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3255:/ getarg");
- /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3255:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3255:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3256:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3256:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3256:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3256:/ apply.arg");
-    argtab[0].bp_cstring =  "start translateinit_mode arg";
-    MELT_LOCATION("warmelt-outobj.melt:3256:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3256:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3256:/ apply.arg");
-    argtab[3].bp_long = 3256;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3256:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3256:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3256:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3257:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3257:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3257:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3257:/ apply.arg");
-    argtab[0].bp_cstring =  "start translateinit_mode moduldata";
-    MELT_LOCATION("warmelt-outobj.melt:3257:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3257:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3257:/ apply.arg");
-    argtab[3].bp_long = 3257;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3257:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3257:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3257:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3258:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3258:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3258:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3258:/ apply.arg");
-    argtab[0].bp_cstring =  "before read translateinit_mode initial_environment";
-    MELT_LOCATION("warmelt-outobj.melt:3258:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3258:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3258:/ apply.arg");
-    argtab[3].bp_long = 3258;
-    /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3258:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3258:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3258:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3259:/ block");
- /*block*/{
-  /*_.RLIST__V11*/ curfptr[10] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));;
-  /*_?*/ curfram__.loc_CSTRING__o0 = 
-   melt_argument( "arg");;
-  /*_?*/ curfram__.loc_CSTRING__o1 = 
-   melt_argument( "arglist");;
-  MELT_LOCATION("warmelt-outobj.melt:3262:/ cond");
-  /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o0) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3262:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3262:/ block");
-   /*block*/{
-    /*_.MAKE_STRINGCONST__V13*/ curfptr[12] = 
-     (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o0)));;
-    /*_.INARG__V12*/ curfptr[11] = /*_.MAKE_STRINGCONST__V13*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
-    /*clear*/ /*_.MAKE_STRINGCONST__V13*/ curfptr[12] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3262:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3262:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3264:/ cond");
-    /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o1) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3264:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3264:/ block");
-     /*block*/{
-      /*_.SPLIT_STRING_COMMA__V15*/ curfptr[14] = 
-       meltgc_new_split_string(/*_?*/ curfram__.loc_CSTRING__o1, ',', (melt_ptr_t) (/*!DISCR_STRING*/ curfrout->tabval[3]));;
-      /*_.IFELSE___V14*/ curfptr[12] = /*_.SPLIT_STRING_COMMA__V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3264:/ clear");
-      /*clear*/ /*_.SPLIT_STRING_COMMA__V15*/ curfptr[14] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3264:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3264:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3268:/ locexp");
-      error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid arg or arglist to translateinit mode"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3269:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-       MELT_LOCATION("warmelt-outobj.melt:3269:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3267:/ block");
-      /*block*/{
-       /*_.PROGN___V17*/ curfptr[16] = /*_.RETURN___V16*/ curfptr[14];;}
-      ;
-      /*_.IFELSE___V14*/ curfptr[12] = /*_.PROGN___V17*/ curfptr[16];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3264:/ clear");
-      /*clear*/ /*_.RETURN___V16*/ curfptr[14] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3264:/ clear");
-      /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;}
-     ;
-     }
-    ;
-    /*_.INARG__V12*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3262:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;}
-   ;
-   }
-  ;
-  /*_?*/ curfram__.loc_CSTRING__o2 = 
-   melt_argument( "output");;
-  /*_.OUTARG__V18*/ curfptr[14] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o2)));;
-  /*_#IS_STRING__L4*/ curfnum[0] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V18*/ curfptr[14])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-outobj.melt:3272:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3272:/ cond.then");
-  /*_.BASNAM__V19*/ curfptr[16] = /*_.OUTARG__V18*/ curfptr[14];;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3272:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3272:/ block");
-   /*block*/{
-    /*_#IS_STRING__L5*/ curfnum[4] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])) == OBMAG_STRING);;
-    MELT_LOCATION("warmelt-outobj.melt:3273:/ cond");
-    /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3273:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3273:/ block");
-     /*block*/{
-      /*_.MAKE_STRING_NAKEDBASENAME__V21*/ curfptr[20] = 
-       (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11]))));;
-      /*_.IFELSE___V20*/ curfptr[12] = /*_.MAKE_STRING_NAKEDBASENAME__V21*/ curfptr[20];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3273:/ clear");
-      /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V21*/ curfptr[20] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3273:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3273:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3275:/ locexp");
-      error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ( "invalid translateinit mode"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3276:/ block");
-      /*block*/{
-       /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-       MELT_LOCATION("warmelt-outobj.melt:3276:/ finalreturn");
-       ;
-       /*finalret*/ goto labend_rout ;}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3274:/ block");
-      /*block*/{
-       /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[20];;}
-      ;
-      /*_.IFELSE___V20*/ curfptr[12] = /*_.PROGN___V23*/ curfptr[22];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3273:/ clear");
-      /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3273:/ clear");
-      /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;}
-     ;
-     }
-    ;
-    /*_.BASNAM__V19*/ curfptr[16] = /*_.IFELSE___V20*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3272:/ clear");
-    /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3272:/ clear");
-    /*clear*/ /*_.IFELSE___V20*/ curfptr[12] = 0 ;}
-   ;
-   }
-  ;
-  /*_#IS_STRING__L6*/ curfnum[4] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-outobj.melt:3280:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3280:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3280:/ block");
-   /*block*/{
-    /*_.READ_FILE__V25*/ curfptr[22] = 
-     (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])), (char*)0));;
-    MELT_LOCATION("warmelt-outobj.melt:3281:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3281:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.READ_FILE__V25*/ curfptr[22];
-     /*_.LIST_APPEND2LIST__V26*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFELSE___V24*/ curfptr[20] = /*_.LIST_APPEND2LIST__V26*/ curfptr[12];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3280:/ clear");
-    /*clear*/ /*_.READ_FILE__V25*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3280:/ clear");
-    /*clear*/ /*_.LIST_APPEND2LIST__V26*/ curfptr[12] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3280:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3280:/ block");
-   /*block*/{
-    /*_#IS_LIST__L7*/ curfnum[6] = 
-     (melt_magic_discr((melt_ptr_t)(/*_.INARG__V12*/ curfptr[11])) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-outobj.melt:3282:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3282:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3282:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:3284:/ block");
-      /*block*/{
-       MELT_LOCATION("warmelt-outobj.melt:3284:/ newclosure");
-        /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] =
-        meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (1));
-       ;
-       MELT_LOCATION("warmelt-outobj.melt:3284:/ putclosedv");
-       /*putclosv*/
-       melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE);
-       melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28])));
-       ((meltclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]);
-       ;
-       /*_.LAMBDA___V28*/ curfptr[12] = /*_.LAMBDA___V29*/ curfptr[28];;}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3283:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3283:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[12];
-       /*_.LIST_EVERY__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      /*_.IFELSE___V27*/ curfptr[22] = /*_.LIST_EVERY__V30*/ curfptr[29];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3282:/ clear");
-      /*clear*/ /*_.LAMBDA___V28*/ curfptr[12] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3282:/ clear");
-      /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3282:/ cond.else");
-    
-     /*_.IFELSE___V27*/ curfptr[22] = NULL;;
-     }
-    ;
-    /*_.IFELSE___V24*/ curfptr[20] = /*_.IFELSE___V27*/ curfptr[22];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3280:/ clear");
-    /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3280:/ clear");
-    /*clear*/ /*_.IFELSE___V27*/ curfptr[22] = 0 ;}
-   ;
-   }
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3293:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3293:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3293:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3293:/ apply.arg");
-     argtab[0].bp_cstring =  "after read translateinit_mode rlist";
-     MELT_LOCATION("warmelt-outobj.melt:3293:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6];
-     MELT_LOCATION("warmelt-outobj.melt:3293:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3293:/ apply.arg");
-     argtab[3].bp_long = 3293;
-     /*_.DEBUG_MSG_FUN__V32*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V31*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[29];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3293:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3293:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[29] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3293:/ cppif.else");
-  /*_.IFCPP___V31*/ curfptr[12] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:3294:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3294:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[1]);
-   MELT_LOCATION("warmelt-outobj.melt:3294:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.BASNAM__V19*/ curfptr[16];
-   /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.RLIST__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3295:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-   MELT_LOCATION("warmelt-outobj.melt:3295:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*_.LET___V10*/ curfptr[8] = /*_.RETURN___V34*/ curfptr[29];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.RLIST__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.INARG__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o2 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.OUTARG__V18*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.BASNAM__V19*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_#IS_STRING__L6*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.IFELSE___V24*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.IFCPP___V31*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.COMPILE_LIST_SEXPR__V33*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3259:/ clear");
-  /*clear*/ /*_.RETURN___V34*/ curfptr[29] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3255:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];;
-  MELT_LOCATION("warmelt-outobj.melt:3255:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3255:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3255:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3255:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3255:/ clear");
- /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("TRANSLATEINIT_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_129_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_129_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3284:/ getarg");
- /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3284:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3285:/ locexp");
- inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "reading from file"), 
-			     melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3286:/ block");
- /*block*/{
-  /*_.CUREAD__V4*/ curfptr[3] = 
-   (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])), (char*)0));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3288:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3288:/ block");
-   /*block*/{
-    /*_#IS_LIST__L1*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-outobj.melt:3288:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3288:/ cond.then");
-    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3288:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3288:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3288:/ locexp");
-       melt_assert_failed(( "check rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3288)?(3288):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3288:/ clear");
-    /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3288:/ clear");
-    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3288:/ cppif.else");
-  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3289:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3289:/ block");
-   /*block*/{
-    /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 
-     ((/*_.CUREAD__V4*/ curfptr[3]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3])) == OBMAG_LIST));;
-    MELT_LOCATION("warmelt-outobj.melt:3289:/ cond");
-    /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3289:/ cond.then");
-    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3289:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3289:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3289:/ locexp");
-       melt_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3289)?(3289):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3289:/ clear");
-    /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3289:/ clear");
-    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3289:/ cppif.else");
-  /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3290:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3290:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:3290:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3290:/ apply.arg");
-     argtab[0].bp_cstring =  "translateinit_mode curead";
-     MELT_LOCATION("warmelt-outobj.melt:3290:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:3290:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:3290:/ apply.arg");
-     argtab[3].bp_long = 3290;
-     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3290:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3290:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3290:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:3291:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3291:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREAD__V4*/ curfptr[3];
-   /*_.LIST_APPEND2LIST__V11*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[1])), (melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.LIST_APPEND2LIST__V11*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3286:/ clear");
-  /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3286:/ clear");
-  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3286:/ clear");
-  /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3286:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3286:/ clear");
-  /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3284:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:3284:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3284:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_129_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_SCANINPUT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3336:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3336:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.ARGLIST__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.ARGLIST__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:3336:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.XLIST__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.XLIST__V4*/ curfptr[3])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3336:/ block");
-/*block*/{
- MELT_LOCATION("warmelt-outobj.melt:3337:/ block");
- /*block*/{
-  /*_#NBFIL__L1*/ curfnum[0] = 
-   (melt_list_length((melt_ptr_t)(/*_.ARGLIST__V3*/ curfptr[2])));;
-  /*_#XLISTLEN__L2*/ curfnum[1] = 
-   (melt_list_length((melt_ptr_t)(/*_.XLIST__V4*/ curfptr[3])));;
-  MELT_LOCATION("warmelt-outobj.melt:3340:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3340:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3340:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 13, "MKDOC_DOCSYMAP");/*_.DOCSYMAP__V6*/ curfptr[5] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3340:/ cond.else");
-  
-   /*_.DOCSYMAP__V6*/ curfptr[5] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3341:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3341:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3341:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 11, "MKDOC_FORMALOCCMAP");/*_.FORMALOCCMAP__V7*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3341:/ cond.else");
-  
-   /*_.FORMALOCCMAP__V7*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3343:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3343:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3343:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[0] = (melt_ptr_t)(/*_.DOCSYMAP__V6*/ curfptr[5]);
-   ;
-   /*_.ADD_DOCSYM__V8*/ curfptr[7] = /*_.LAMBDA___V9*/ curfptr[8];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3356:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3356:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3356:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[0] = (melt_ptr_t)(/*_.DOCSYMAP__V6*/ curfptr[5]);
-   ;
-   /*_.FETCH_DOCSYM__V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3366:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3366:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3366:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[0] = (melt_ptr_t)(/*_.FORMALOCCMAP__V7*/ curfptr[6]);
-   ;
-   /*_.ADD_FORMAL_OCC__V12*/ curfptr[11] = /*_.LAMBDA___V13*/ curfptr[12];;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3382:/ locexp");
-   inform (UNKNOWN_LOCATION,
-		"MELT makedoc [#%ld]: read and expanded %ld expressions from %ld files",
-		melt_dbgcounter, /*_#XLISTLEN__L2*/ curfnum[1], /*_#NBFIL__L1*/ curfnum[0]); ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3388:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3388:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V15*/ curfptr[14] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3388:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V15*/ curfptr[14])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V15*/ curfptr[14])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V15*/ curfptr[14])->tabval[0] = (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3388:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V15*/ curfptr[14])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V15*/ curfptr[14])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V15*/ curfptr[14])->tabval[1] = (melt_ptr_t)(/*_.ADD_DOCSYM__V8*/ curfptr[7]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3388:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V15*/ curfptr[14])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V15*/ curfptr[14])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V15*/ curfptr[14])->tabval[2] = (melt_ptr_t)(/*_.ADD_FORMAL_OCC__V12*/ curfptr[11]);
-   ;
-   /*_.LAMBDA___V14*/ curfptr[13] = /*_.LAMBDA___V15*/ curfptr[14];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3386:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3386:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V14*/ curfptr[13];
-   /*_.LIST_EVERY__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.XLIST__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V5*/ curfptr[4] = /*_.LIST_EVERY__V16*/ curfptr[15];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_#NBFIL__L1*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_#XLISTLEN__L2*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.DOCSYMAP__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.FORMALOCCMAP__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.ADD_DOCSYM__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.FETCH_DOCSYM__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.ADD_FORMAL_OCC__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.LAMBDA___V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3337:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V16*/ curfptr[15] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3336:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];;
-  MELT_LOCATION("warmelt-outobj.melt:3336:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3336:/ clear");
- /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_SCANINPUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_131_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_131_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3343:/ getarg");
- /*_.NAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3343:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DATA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3343:/ block");
-/*block*/{
- /*_.DISCRIM__V4*/ curfptr[3] = 
-  (melt_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])));;
- /*_#__L1*/ curfnum[0] = 
-  ((/*_.DISCRIM__V4*/ curfptr[3]) != ((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-outobj.melt:3345:/ cond");
- /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3345:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3345:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[2] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-   /*_#IF___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3345:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3345:/ cond.else");
- 
-  /*_#IF___L2*/ curfnum[1] = 0;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3345:/ cond");
- /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3345:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3345:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3347:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3347:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3347:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3347:/ cond.else");
-   
-    /*_.NAMED_NAME__V6*/ curfptr[5] = NULL;;
-    }
-   ;
-   /*_.GET_SYMBOLSTR__V7*/ curfptr[6] = 
-    meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5])), MELT_GET);;
-   MELT_LOCATION("warmelt-outobj.melt:3347:/ compute");
-   /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V8*/ curfptr[7] = /*_.GET_SYMBOLSTR__V7*/ curfptr[6];;
-   /*_.IFELSE___V5*/ curfptr[4] = /*_.SETQ___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3345:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3345:/ clear");
-   /*clear*/ /*_.GET_SYMBOLSTR__V7*/ curfptr[6] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3345:/ clear");
-   /*clear*/ /*_.SETQ___V8*/ curfptr[7] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3345:/ cond.else");
- 
-  MELT_LOCATION("warmelt-outobj.melt:3345:/ block");
-  /*block*/{
-   /*_#IS_STRING__L4*/ curfnum[2] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:3348:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3348:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3348:/ block");
-    /*block*/{
-     /*_.GET_SYMBOLSTR__V10*/ curfptr[6] = 
-      meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])), MELT_GET);;
-     MELT_LOCATION("warmelt-outobj.melt:3349:/ compute");
-     /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V11*/ curfptr[7] = /*_.GET_SYMBOLSTR__V10*/ curfptr[6];;
-     /*_.IFELSE___V9*/ curfptr[5] = /*_.SETQ___V11*/ curfptr[7];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3348:/ clear");
-     /*clear*/ /*_.GET_SYMBOLSTR__V10*/ curfptr[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3348:/ clear");
-     /*clear*/ /*_.SETQ___V11*/ curfptr[7] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3348:/ cond.else");
-   
-    /*_.IFELSE___V9*/ curfptr[5] = NULL;;
-    }
-   ;
-   /*_.IFELSE___V5*/ curfptr[4] = /*_.IFELSE___V9*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3345:/ clear");
-   /*clear*/ /*_#IS_STRING__L4*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3345:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[5] = 0 ;}
-  ;
-  }
- ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3351:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3351:/ block");
-  /*block*/{
-   /*_#IS_A__L5*/ curfnum[2] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3351:/ cond");
-   /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3351:/ cond.then");
-   /*_.IFELSE___V13*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3351:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3351:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3351:/ locexp");
-      melt_assert_failed(( "check nam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3351)?(3351):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V12*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3351:/ clear");
-   /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3351:/ clear");
-   /*clear*/ /*_.IFELSE___V13*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3351:/ cppif.else");
- /*_.IFCPP___V12*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3352:/ locexp");
- meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~DOCSYMAP*/ curfclos->tabval[0])), 
-			   (meltobject_ptr_t) (/*_.NAM__V2*/ curfptr[1]), 
-			   (melt_ptr_t)(/*_.DATA__V3*/ curfptr[2]));}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3343:/ clear");
- /*clear*/ /*_.DISCRIM__V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3343:/ clear");
- /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3343:/ clear");
- /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3343:/ clear");
- /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3343:/ clear");
- /*clear*/ /*_.IFCPP___V12*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_131_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_132_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_132_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3356:/ getarg");
- /*_.NAM__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3356:/ block");
-/*block*/{
- /*_.DISCRIM__V3*/ curfptr[2] = 
-  (melt_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])));;
- /*_#__L1*/ curfnum[0] = 
-  ((/*_.DISCRIM__V3*/ curfptr[2]) != ((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-outobj.melt:3358:/ cond");
- /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3358:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3358:/ block");
-  /*block*/{
-   /*_#IS_A__L3*/ curfnum[2] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-   /*_#IF___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3358:/ clear");
-   /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3358:/ cond.else");
- 
-  /*_#IF___L2*/ curfnum[1] = 0;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3358:/ cond");
- /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3358:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3358:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3360:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3360:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3360:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.NAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[4] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3360:/ cond.else");
-   
-    /*_.NAMED_NAME__V5*/ curfptr[4] = NULL;;
-    }
-   ;
-   /*_.GET_SYMBOLSTR__V6*/ curfptr[5] = 
-    meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[4])), MELT_GET);;
-   MELT_LOCATION("warmelt-outobj.melt:3360:/ compute");
-   /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V7*/ curfptr[6] = /*_.GET_SYMBOLSTR__V6*/ curfptr[5];;
-   /*_.IFELSE___V4*/ curfptr[3] = /*_.SETQ___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3358:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[4] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3358:/ clear");
-   /*clear*/ /*_.GET_SYMBOLSTR__V6*/ curfptr[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3358:/ clear");
-   /*clear*/ /*_.SETQ___V7*/ curfptr[6] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3358:/ cond.else");
- 
-  MELT_LOCATION("warmelt-outobj.melt:3358:/ block");
-  /*block*/{
-   /*_#IS_STRING__L4*/ curfnum[2] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:3361:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[2]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3361:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3361:/ block");
-    /*block*/{
-     /*_.GET_SYMBOLSTR__V9*/ curfptr[5] = 
-      meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ curfptr[1])), MELT_GET);;
-     MELT_LOCATION("warmelt-outobj.melt:3362:/ compute");
-     /*_.NAM__V2*/ curfptr[1] = /*_.SETQ___V10*/ curfptr[6] = /*_.GET_SYMBOLSTR__V9*/ curfptr[5];;
-     /*_.IFELSE___V8*/ curfptr[4] = /*_.SETQ___V10*/ curfptr[6];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3361:/ clear");
-     /*clear*/ /*_.GET_SYMBOLSTR__V9*/ curfptr[5] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3361:/ clear");
-     /*clear*/ /*_.SETQ___V10*/ curfptr[6] = 0 ;}
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3361:/ cond.else");
-   
-    /*_.IFELSE___V8*/ curfptr[4] = NULL;;
-    }
-   ;
-   /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V8*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3358:/ clear");
-   /*clear*/ /*_#IS_STRING__L4*/ curfnum[2] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3358:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[4] = 0 ;}
-  ;
-  }
- ;
- /*_.MAPOBJECT_GET__V11*/ curfptr[5] = 
-  melt_get_mapobjects((meltmapobjects_ptr_t)((/*~DOCSYMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.NAM__V2*/ curfptr[1]));;
- MELT_LOCATION("warmelt-outobj.melt:3356:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.MAPOBJECT_GET__V11*/ curfptr[5];;
-  MELT_LOCATION("warmelt-outobj.melt:3356:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3356:/ clear");
- /*clear*/ /*_.DISCRIM__V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3356:/ clear");
- /*clear*/ /*_#__L1*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3356:/ clear");
- /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3356:/ clear");
- /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3356:/ clear");
- /*clear*/ /*_.MAPOBJECT_GET__V11*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_132_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_133_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_133_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3366:/ getarg");
- /*_.FORMBIND__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3366:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DEF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3366:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3367:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3367:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FORMBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3367:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3367:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3367:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3367:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3367:/ locexp");
-      melt_assert_failed(( "check formbind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3367)?(3367):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3367:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3367:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3367:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3368:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3368:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:3368:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3368:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3368:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3368:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3368:/ locexp");
-      melt_assert_failed(( "check def"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3368)?(3368):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3368:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3368:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3368:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3369:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3369:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FORMBIND__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3369:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3369:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FORMBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.FORMSYM__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3369:/ cond.else");
-  
-   /*_.FORMSYM__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  /*_.FORMOCCLIST__V9*/ curfptr[8] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)((/*~FORMALOCCMAP*/ curfclos->tabval[0])), (meltobject_ptr_t)(/*_.FORMSYM__V8*/ curfptr[6]));;
-  /*_#NULL__L3*/ curfnum[0] = 
-   ((/*_.FORMOCCLIST__V9*/ curfptr[8]) == NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:3372:/ cond");
-  /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3372:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3372:/ block");
-   /*block*/{
-    /*_.MAKE_LIST__V10*/ curfptr[9] = 
-     (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));;
-    MELT_LOCATION("warmelt-outobj.melt:3374:/ compute");
-    /*_.FORMOCCLIST__V9*/ curfptr[8] = /*_.SETQ___V11*/ curfptr[10] = /*_.MAKE_LIST__V10*/ curfptr[9];;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3375:/ locexp");
-    meltgc_put_mapobjects( (meltmapobjects_ptr_t) ((/*~FORMALOCCMAP*/ curfclos->tabval[0])), 
-			   (meltobject_ptr_t) (/*_.FORMSYM__V8*/ curfptr[6]), 
-			   (melt_ptr_t)(/*_.FORMOCCLIST__V9*/ curfptr[8]));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3373:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3372:/ clear");
-    /*clear*/ /*_.MAKE_LIST__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3372:/ clear");
-    /*clear*/ /*_.SETQ___V11*/ curfptr[10] = 0 ;}
-   ;
-  } /*noelse*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3376:/ locexp");
-  meltgc_append_list((melt_ptr_t)(/*_.FORMOCCLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]));}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3369:/ clear");
-  /*clear*/ /*_.FORMSYM__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3369:/ clear");
-  /*clear*/ /*_.FORMOCCLIST__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3369:/ clear");
-  /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3366:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3366:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_133_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_134_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_134_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 154
-  void* varptr[154];
-#define CURFRAM_NBVARNUM 13
-  long varnum[13];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<154; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 154;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3388:/ getarg");
- /*_.CUREXP__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3388:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3389:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3389:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:3389:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3389:/ apply.arg");
-    argtab[0].bp_cstring =  "makedoc_docmd curexp";
-    MELT_LOCATION("warmelt-outobj.melt:3389:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:3389:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:3389:/ apply.arg");
-    argtab[3].bp_long = 3389;
-    /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3389:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3389:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3389:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3390:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3390:/ objgoto");
-  /*objgoto*/ goto mtch1_0;
-  ;
-  
-  /*objlabel*/ mtch1_0:
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V5*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V6*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-  /*clear*/ /*_.SOBJ_PREDEF__V7*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-  /*clear*/ /*_.SCLASS_CLABIND__V8*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[1]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3394:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V5*/ curfptr[3] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3394:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V6*/ curfptr[5] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3394:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SOBJ_PREDEF__V7*/ curfptr[6] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3394:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLASS_CLABIND__V8*/ curfptr[7] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3398:/ objgoto");
-    /*objgoto*/ goto mtch1_1;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3394:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ objgoto");
-    /*objgoto*/ goto mtch1_4;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_1:
-  MELT_LOCATION("warmelt-outobj.melt:3398:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3398:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3398:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3398:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V6*/ curfptr[5]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3398:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3398:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3398:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V6*/ curfptr[5]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V9*/ curfptr[8] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3398:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V6*/ curfptr[5]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V10*/ curfptr[9] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3402:/ objgoto");
-    /*objgoto*/ goto mtch1_2;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3398:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3398:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ objgoto");
-    /*objgoto*/ goto mtch1_4;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_2:
-  MELT_LOCATION("warmelt-outobj.melt:3402:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3402:/ clear");
-  /*clear*/ /*_.CBIND_CLASS__V11*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3402:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SCLASS_CLABIND__V8*/ curfptr[7]), ((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3402:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3402:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3402:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS_CLABIND__V8*/ curfptr[7]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V11*/ curfptr[5] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3394:/ objgoto");
-    /*objgoto*/ goto mtch1_3;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3402:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3402:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ objgoto");
-    /*objgoto*/ goto mtch1_4;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_3:
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ block");
-  /*block*/{
-   /*_.CLAS__V12*/ curfptr[7] = /*_.CBIND_CLASS__V11*/ curfptr[5];;
-   /*_.DNAM__V13*/ curfptr[12] = /*_.SDEF_NAME__V5*/ curfptr[3];;
-   /*_.DOCLOC__V14*/ curfptr[13] = /*_.LOCA_LOCATION__V9*/ curfptr[8];;
-   /*_.DOCONT__V15*/ curfptr[14] = /*_.SEXP_CONTENTS__V10*/ curfptr[9];;
-   /*_.PREDEF__V16*/ curfptr[15] = /*_.SOBJ_PREDEF__V7*/ curfptr[6];;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3404:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3404:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3404:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3404:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_docmd defclass clas";
-      MELT_LOCATION("warmelt-outobj.melt:3404:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-      MELT_LOCATION("warmelt-outobj.melt:3404:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3404:/ apply.arg");
-      argtab[3].bp_long = 3404;
-      /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3404:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3404:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3404:/ cppif.else");
-   /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3405:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3405:/ block");
-    /*block*/{
-     /*_#IS_A__L3*/ curfnum[0] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-outobj.melt:3405:/ cond");
-     /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3405:/ cond.then");
-     /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3405:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3405:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3405:/ locexp");
-        melt_assert_failed(( "check clas"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3405)?(3405):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3405:/ clear");
-     /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3405:/ clear");
-     /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3405:/ cppif.else");
-   /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:3406:/ cond");
-   /*cond*/ if (/*_.PREDEF__V16*/ curfptr[15]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3406:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3406:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3407:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3407:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3407:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 12, "MKDOC_PREDEFMAP");/*_.MKDOC_PREDEFMAP__V21*/ curfptr[19] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3407:/ cond.else");
-     
-      /*_.MKDOC_PREDEFMAP__V21*/ curfptr[19] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3407:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V21*/ curfptr[19]), 
-			   (meltobject_ptr_t) (/*_.PREDEF__V16*/ curfptr[15]), 
-			   (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3406:/ clear");
-     /*clear*/ /*_.MKDOC_PREDEFMAP__V21*/ curfptr[19] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3408:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3408:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V22*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3409:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3409:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3409:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 7, "MKDOC_CLASSES");/*_.MKDOC_CLASSES__V23*/ curfptr[22] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3409:/ cond.else");
-   
-    /*_.MKDOC_CLASSES__V23*/ curfptr[22] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3409:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CLASSES__V23*/ curfptr[22]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3412:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3412:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3412:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V24*/ curfptr[23] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3412:/ cond.else");
-   
-    /*_.CLASS_FIELDS__V24*/ curfptr[23] = NULL;;
-    }
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLASS_FIELDS__V24*/ curfptr[23]);
-   for (/*_#FLDIX__L4*/ curfnum[0] = 0;  
-	(/*_#FLDIX__L4*/ curfnum[0] >= 0) && (/*_#FLDIX__L4*/ curfnum[0] <  cit1__EACHTUP_ln);  
-	/*_#FLDIX__L4*/ curfnum[0]++) {
-   /*_.CURFLD__V25*/ curfptr[24] = melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V24*/ curfptr[23]),  /*_#FLDIX__L4*/ curfnum[0]);
-   
-   
-    MELT_LOCATION("warmelt-outobj.melt:3414:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3414:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3414:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), 2, "FLD_OWNCLASS");/*_.FLD_OWNCLASS__V26*/ curfptr[25] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3414:/ cond.else");
-    
-     /*_.FLD_OWNCLASS__V26*/ curfptr[25] = NULL;;
-     }
-    ;
-    /*_#__L5*/ curfnum[4] = 
-     ((/*_.FLD_OWNCLASS__V26*/ curfptr[25]) == (/*_.CLAS__V12*/ curfptr[7]));;
-    MELT_LOCATION("warmelt-outobj.melt:3414:/ cond");
-    /*cond*/ if (/*_#__L5*/ curfnum[4]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3414:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3414:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:3416:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3416:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3416:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3416:/ cond.else");
-      
-       /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;;
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3416:/ apply");
-      /*apply*/{
-       union meltparam_un argtab[1];
-       memset(&argtab, 0, sizeof(argtab));
-       MELT_LOCATION("warmelt-outobj.melt:3416:/ apply.arg");
-       argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURFLD__V25*/ curfptr[24];
-       /*_.ADD_DOCSYM__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-       }
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3417:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3417:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3417:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 6, "MKDOC_FIELDS");/*_.MKDOC_FIELDS__V29*/ curfptr[28] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3417:/ cond.else");
-      
-       /*_.MKDOC_FIELDS__V29*/ curfptr[28] = NULL;;
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3417:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.MKDOC_FIELDS__V29*/ curfptr[28]), (melt_ptr_t)(/*_.CURFLD__V25*/ curfptr[24]));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3415:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3414:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3414:/ clear");
-      /*clear*/ /*_.ADD_DOCSYM__V28*/ curfptr[27] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3414:/ clear");
-      /*clear*/ /*_.MKDOC_FIELDS__V29*/ curfptr[28] = 0 ;}
-     ;
-    } /*noelse*/
-    ;
-    if (/*_#FLDIX__L4*/ curfnum[0]<0) break;
-   } /* end cit1__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3411:/ clear");
-    /*clear*/ /*_.CURFLD__V25*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3411:/ clear");
-    /*clear*/ /*_#FLDIX__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3411:/ clear");
-    /*clear*/ /*_.FLD_OWNCLASS__V26*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3411:/ clear");
-    /*clear*/ /*_#__L5*/ curfnum[4] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3421:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3421:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3421:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3421:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 14, "MKDOC_SUBCLASSMAP");/*_.SUBCLMAP__V30*/ curfptr[26] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3421:/ cond.else");
-    
-     /*_.SUBCLMAP__V30*/ curfptr[26] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3423:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3423:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3423:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]), 5, "CLASS_ANCESTORS");/*_.CLASS_ANCESTORS__V31*/ curfptr[27] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3423:/ cond.else");
-    
-     /*_.CLASS_ANCESTORS__V31*/ curfptr[27] = NULL;;
-     }
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLASS_ANCESTORS__V31*/ curfptr[27]);
-   for (/*_#ANCIX__L6*/ curfnum[5] = 0;  
-	(/*_#ANCIX__L6*/ curfnum[5] >= 0) && (/*_#ANCIX__L6*/ curfnum[5] <  cit2__EACHTUP_ln);  
-	/*_#ANCIX__L6*/ curfnum[5]++) {
-   /*_.CURANC__V32*/ curfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.CLASS_ANCESTORS__V31*/ curfptr[27]),  /*_#ANCIX__L6*/ curfnum[5]);
-   
-    
-     MELT_LOCATION("warmelt-outobj.melt:3425:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:3425:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3425:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3425:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 14, "MKDOC_SUBCLASSMAP");/*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3425:/ cond.else");
-      
-       /*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32] = NULL;;
-       }
-      ;
-      /*_.CURANCSUBCL__V34*/ curfptr[33] = 
-       melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32]), (meltobject_ptr_t)(/*_.CURANC__V32*/ curfptr[28]));;
-      /*_#NULL__L7*/ curfnum[6] = 
-       ((/*_.CURANCSUBCL__V34*/ curfptr[33]) == NULL);;
-      MELT_LOCATION("warmelt-outobj.melt:3426:/ cond");
-      /*cond*/ if (/*_#NULL__L7*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3426:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3426:/ block");
-       /*block*/{
-        /*_.MAKE_LIST__V35*/ curfptr[34] = 
-         (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));;
-        MELT_LOCATION("warmelt-outobj.melt:3428:/ compute");
-        /*_.CURANCSUBCL__V34*/ curfptr[33] = /*_.SETQ___V36*/ curfptr[35] = /*_.MAKE_LIST__V35*/ curfptr[34];;
-        MELT_LOCATION("warmelt-outobj.melt:3430:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3430:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:3430:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 14, "MKDOC_SUBCLASSMAP");/*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3430:/ cond.else");
-        
-         /*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3429:/ locexp");
-        meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36]), 
-			   (meltobject_ptr_t) (/*_.CURANC__V32*/ curfptr[28]), 
-			   (melt_ptr_t)(/*_.CURANCSUBCL__V34*/ curfptr[33]));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3427:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3426:/ clear");
-        /*clear*/ /*_.MAKE_LIST__V35*/ curfptr[34] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3426:/ clear");
-        /*clear*/ /*_.SETQ___V36*/ curfptr[35] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3426:/ clear");
-        /*clear*/ /*_.MKDOC_SUBCLASSMAP__V37*/ curfptr[36] = 0 ;}
-       ;
-      } /*noelse*/
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3432:/ locexp");
-      meltgc_append_list((melt_ptr_t)(/*_.CURANCSUBCL__V34*/ curfptr[33]), (melt_ptr_t)(/*_.CLAS__V12*/ curfptr[7]));}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3425:/ clear");
-      /*clear*/ /*_.MKDOC_SUBCLASSMAP__V33*/ curfptr[32] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3425:/ clear");
-      /*clear*/ /*_.CURANCSUBCL__V34*/ curfptr[33] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3425:/ clear");
-      /*clear*/ /*_#NULL__L7*/ curfnum[6] = 0 ;}
-     ;
-     if (/*_#ANCIX__L6*/ curfnum[5]<0) break;
-   } /* end cit2__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3422:/ clear");
-     /*clear*/ /*_.CURANC__V32*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3422:/ clear");
-     /*clear*/ /*_#ANCIX__L6*/ curfnum[5] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3421:/ clear");
-    /*clear*/ /*_.SUBCLMAP__V30*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3421:/ clear");
-    /*clear*/ /*_.CLASS_ANCESTORS__V31*/ curfptr[27] = 0 ;}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.CLAS__V12*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.DNAM__V13*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.DOCLOC__V14*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.DOCONT__V15*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.PREDEF__V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V22*/ curfptr[19] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.MKDOC_CLASSES__V23*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3394:/ clear");
-   /*clear*/ /*_.CLASS_FIELDS__V24*/ curfptr[23] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3394:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_4:
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V38*/ curfptr[34] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V39*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-  /*clear*/ /*_.SOBJ_PREDEF__V40*/ curfptr[36] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-  /*clear*/ /*_.SINST_CLASS__V41*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFSELECTOR*/ curfrout->tabval[9]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V38*/ curfptr[34] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V39*/ curfptr[35] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SOBJ_PREDEF__V40*/ curfptr[36] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINST_CLASS__V41*/ curfptr[32] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3441:/ objgoto");
-    /*objgoto*/ goto mtch1_5;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3437:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ objgoto");
-    /*objgoto*/ goto mtch1_7;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_5:
-  MELT_LOCATION("warmelt-outobj.melt:3441:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3441:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V42*/ curfptr[33] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3441:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V43*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3441:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V39*/ curfptr[35]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3441:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3441:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3441:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V39*/ curfptr[35]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ curfptr[33] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3441:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V39*/ curfptr[35]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V43*/ curfptr[26] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3437:/ objgoto");
-    /*objgoto*/ goto mtch1_6;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3441:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3441:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ objgoto");
-    /*objgoto*/ goto mtch1_7;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_6:
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ block");
-  /*block*/{
-   /*_.DNAM__V44*/ curfptr[27] = /*_.SDEF_NAME__V38*/ curfptr[34];;
-   /*_.DOCLOC__V45*/ curfptr[7] = /*_.LOCA_LOCATION__V42*/ curfptr[33];;
-   /*_.DOCONT__V46*/ curfptr[12] = /*_.SEXP_CONTENTS__V43*/ curfptr[26];;
-   /*_.ICLA__V47*/ curfptr[13] = /*_.SINST_CLASS__V41*/ curfptr[32];;
-   /*_.PREDEF__V48*/ curfptr[14] = /*_.SOBJ_PREDEF__V40*/ curfptr[36];;
-   MELT_LOCATION("warmelt-outobj.melt:3447:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3447:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3447:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 5, "MKDOC_SELECTORS");/*_.MKDOC_SELECTORS__V49*/ curfptr[15] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3447:/ cond.else");
-   
-    /*_.MKDOC_SELECTORS__V49*/ curfptr[15] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3447:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_SELECTORS__V49*/ curfptr[15]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3448:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3448:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V50*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V44*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3449:/ cond");
-   /*cond*/ if (/*_.PREDEF__V48*/ curfptr[14]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3449:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3449:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3450:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3450:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3450:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 12, "MKDOC_PREDEFMAP");/*_.MKDOC_PREDEFMAP__V51*/ curfptr[17] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3450:/ cond.else");
-     
-      /*_.MKDOC_PREDEFMAP__V51*/ curfptr[17] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3450:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V51*/ curfptr[17]), 
-			   (meltobject_ptr_t) (/*_.PREDEF__V48*/ curfptr[14]), 
-			   (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3449:/ clear");
-     /*clear*/ /*_.MKDOC_PREDEFMAP__V51*/ curfptr[17] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.DNAM__V44*/ curfptr[27] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.DOCLOC__V45*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.DOCONT__V46*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.ICLA__V47*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.PREDEF__V48*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.MKDOC_SELECTORS__V49*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3437:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V50*/ curfptr[16] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3437:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_7:
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V52*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V53*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-  /*clear*/ /*_.SOBJ_PREDEF__V54*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-  /*clear*/ /*_.SINST_CLASS__V55*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFINSTANCE*/ curfrout->tabval[10]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V52*/ curfptr[19] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V53*/ curfptr[22] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SOBJ_PREDEF");/*_.SOBJ_PREDEF__V54*/ curfptr[23] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 5, "SINST_CLASS");/*_.SINST_CLASS__V55*/ curfptr[35] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3457:/ objgoto");
-    /*objgoto*/ goto mtch1_8;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3453:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3470:/ objgoto");
-    /*objgoto*/ goto mtch1_10;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_8:
-  MELT_LOCATION("warmelt-outobj.melt:3457:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3457:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V56*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3457:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V57*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3457:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V53*/ curfptr[22]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3457:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3457:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3457:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V53*/ curfptr[22]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V56*/ curfptr[17] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3457:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V53*/ curfptr[22]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V57*/ curfptr[27] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3453:/ objgoto");
-    /*objgoto*/ goto mtch1_9;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3457:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3457:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3470:/ objgoto");
-    /*objgoto*/ goto mtch1_10;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_9:
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ block");
-  /*block*/{
-   /*_.DNAM__V58*/ curfptr[7] = /*_.SDEF_NAME__V52*/ curfptr[19];;
-   /*_.DOCLOC__V59*/ curfptr[12] = /*_.LOCA_LOCATION__V56*/ curfptr[17];;
-   /*_.DOCONT__V60*/ curfptr[13] = /*_.SEXP_CONTENTS__V57*/ curfptr[27];;
-   /*_.ICLA__V61*/ curfptr[14] = /*_.SINST_CLASS__V55*/ curfptr[35];;
-   /*_.PREDEF__V62*/ curfptr[15] = /*_.SOBJ_PREDEF__V54*/ curfptr[23];;
-   MELT_LOCATION("warmelt-outobj.melt:3463:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3463:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V63*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V58*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3464:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3464:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3464:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 8, "MKDOC_INSTANCES");/*_.MKDOC_INSTANCES__V64*/ curfptr[22] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3464:/ cond.else");
-   
-    /*_.MKDOC_INSTANCES__V64*/ curfptr[22] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3464:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_INSTANCES__V64*/ curfptr[22]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3465:/ cond");
-   /*cond*/ if (/*_.PREDEF__V62*/ curfptr[15]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3465:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3465:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3466:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3466:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3466:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 12, "MKDOC_PREDEFMAP");/*_.MKDOC_PREDEFMAP__V65*/ curfptr[64] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3466:/ cond.else");
-     
-      /*_.MKDOC_PREDEFMAP__V65*/ curfptr[64] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3466:/ locexp");
-     meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.MKDOC_PREDEFMAP__V65*/ curfptr[64]), 
-			   (meltobject_ptr_t) (/*_.PREDEF__V62*/ curfptr[15]), 
-			   (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3465:/ clear");
-     /*clear*/ /*_.MKDOC_PREDEFMAP__V65*/ curfptr[64] = 0 ;}
-    ;
-   } /*noelse*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.DNAM__V58*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.DOCLOC__V59*/ curfptr[12] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.DOCONT__V60*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.ICLA__V61*/ curfptr[14] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.PREDEF__V62*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V63*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3453:/ clear");
-   /*clear*/ /*_.MKDOC_INSTANCES__V64*/ curfptr[22] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3453:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_10:
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V66*/ curfptr[64] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V67*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-  /*clear*/ /*_.SFORMAL_ARGS__V68*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[11]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3470:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V66*/ curfptr[64] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3470:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V67*/ curfptr[7] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3470:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V68*/ curfptr[12] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3474:/ objgoto");
-    /*objgoto*/ goto mtch1_11;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3470:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3488:/ objgoto");
-    /*objgoto*/ goto mtch1_13;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_11:
-  MELT_LOCATION("warmelt-outobj.melt:3474:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3474:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V69*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3474:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V70*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3474:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V67*/ curfptr[7]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3474:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3474:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3474:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V67*/ curfptr[7]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V69*/ curfptr[13] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3474:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V67*/ curfptr[7]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V70*/ curfptr[14] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3470:/ objgoto");
-    /*objgoto*/ goto mtch1_12;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3474:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3474:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3488:/ objgoto");
-    /*objgoto*/ goto mtch1_13;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_12:
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ block");
-  /*block*/{
-   /*_.DNAM__V71*/ curfptr[15] = /*_.SDEF_NAME__V66*/ curfptr[64];;
-   /*_.DOCLOC__V72*/ curfptr[16] = /*_.LOCA_LOCATION__V69*/ curfptr[13];;
-   /*_.DOCONT__V73*/ curfptr[22] = /*_.SEXP_CONTENTS__V70*/ curfptr[14];;
-   /*_.FORMARGS__V74*/ curfptr[7] = /*_.SFORMAL_ARGS__V68*/ curfptr[12];;
-   MELT_LOCATION("warmelt-outobj.melt:3479:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3479:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V75*/ curfptr[74] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V71*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3480:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3480:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3480:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 1, "MKDOC_PRIMITIVES");/*_.MKDOC_PRIMITIVES__V76*/ curfptr[75] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3480:/ cond.else");
-   
-    /*_.MKDOC_PRIMITIVES__V76*/ curfptr[75] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3480:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_PRIMITIVES__V76*/ curfptr[75]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit3__EACHTUP: */
-   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V74*/ curfptr[7]);
-   for (/*_#FORMIX__L8*/ curfnum[6] = 0;  
-	(/*_#FORMIX__L8*/ curfnum[6] >= 0) && (/*_#FORMIX__L8*/ curfnum[6] <  cit3__EACHTUP_ln);  
-	/*_#FORMIX__L8*/ curfnum[6]++) {
-   /*_.CURFORMB__V77*/ curfptr[76] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V74*/ curfptr[7]),  /*_#FORMIX__L8*/ curfnum[6]);
-   
-   
-    MELT_LOCATION("warmelt-outobj.melt:3484:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3484:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-     /*_.ADD_FORMAL_OCC__V78*/ curfptr[77] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V77*/ curfptr[76]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    if (/*_#FORMIX__L8*/ curfnum[6]<0) break;
-   } /* end cit3__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3481:/ clear");
-    /*clear*/ /*_.CURFORMB__V77*/ curfptr[76] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3481:/ clear");
-    /*clear*/ /*_#FORMIX__L8*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3481:/ clear");
-    /*clear*/ /*_.ADD_FORMAL_OCC__V78*/ curfptr[77] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-   /*clear*/ /*_.DNAM__V71*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-   /*clear*/ /*_.DOCLOC__V72*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-   /*clear*/ /*_.DOCONT__V73*/ curfptr[22] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-   /*clear*/ /*_.FORMARGS__V74*/ curfptr[7] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V75*/ curfptr[74] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3470:/ clear");
-   /*clear*/ /*_.MKDOC_PRIMITIVES__V76*/ curfptr[75] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3470:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_13:
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V79*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V80*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-  /*clear*/ /*_.SFORMAL_ARGS__V81*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[12]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3488:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V79*/ curfptr[15] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3488:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V80*/ curfptr[16] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3488:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V81*/ curfptr[22] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3492:/ objgoto");
-    /*objgoto*/ goto mtch1_14;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3488:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3506:/ objgoto");
-    /*objgoto*/ goto mtch1_16;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_14:
-  MELT_LOCATION("warmelt-outobj.melt:3492:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3492:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V82*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3492:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V83*/ curfptr[74] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3492:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V80*/ curfptr[16]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3492:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3492:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3492:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V80*/ curfptr[16]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V82*/ curfptr[7] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3492:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V80*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V83*/ curfptr[74] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3488:/ objgoto");
-    /*objgoto*/ goto mtch1_15;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3492:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3492:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3506:/ objgoto");
-    /*objgoto*/ goto mtch1_16;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_15:
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ block");
-  /*block*/{
-   /*_.DNAM__V84*/ curfptr[75] = /*_.SDEF_NAME__V79*/ curfptr[15];;
-   /*_.DOCLOC__V85*/ curfptr[16] = /*_.LOCA_LOCATION__V82*/ curfptr[7];;
-   /*_.DOCONT__V86*/ curfptr[85] = /*_.SEXP_CONTENTS__V83*/ curfptr[74];;
-   /*_.FORMARGS__V87*/ curfptr[86] = /*_.SFORMAL_ARGS__V81*/ curfptr[22];;
-   MELT_LOCATION("warmelt-outobj.melt:3497:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3497:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V88*/ curfptr[87] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V84*/ curfptr[75]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3498:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3498:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3498:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 2, "MKDOC_FUNCTIONS");/*_.MKDOC_FUNCTIONS__V89*/ curfptr[88] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3498:/ cond.else");
-   
-    /*_.MKDOC_FUNCTIONS__V89*/ curfptr[88] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3498:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_FUNCTIONS__V89*/ curfptr[88]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit4__EACHTUP: */
-   long  cit4__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V87*/ curfptr[86]);
-   for (/*_#FORMIX__L9*/ curfnum[8] = 0;  
-	(/*_#FORMIX__L9*/ curfnum[8] >= 0) && (/*_#FORMIX__L9*/ curfnum[8] <  cit4__EACHTUP_ln);  
-	/*_#FORMIX__L9*/ curfnum[8]++) {
-   /*_.CURFORMB__V90*/ curfptr[89] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V87*/ curfptr[86]),  /*_#FORMIX__L9*/ curfnum[8]);
-   
-   
-    MELT_LOCATION("warmelt-outobj.melt:3502:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3502:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-     /*_.ADD_FORMAL_OCC__V91*/ curfptr[90] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V90*/ curfptr[89]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    if (/*_#FORMIX__L9*/ curfnum[8]<0) break;
-   } /* end cit4__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3499:/ clear");
-    /*clear*/ /*_.CURFORMB__V90*/ curfptr[89] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3499:/ clear");
-    /*clear*/ /*_#FORMIX__L9*/ curfnum[8] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3499:/ clear");
-    /*clear*/ /*_.ADD_FORMAL_OCC__V91*/ curfptr[90] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-   /*clear*/ /*_.DNAM__V84*/ curfptr[75] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-   /*clear*/ /*_.DOCLOC__V85*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-   /*clear*/ /*_.DOCONT__V86*/ curfptr[85] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-   /*clear*/ /*_.FORMARGS__V87*/ curfptr[86] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V88*/ curfptr[87] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3488:/ clear");
-   /*clear*/ /*_.MKDOC_FUNCTIONS__V89*/ curfptr[88] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3488:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_16:
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V92*/ curfptr[75] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V93*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-  /*clear*/ /*_.SFORMAL_ARGS__V94*/ curfptr[85] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[13]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3506:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V92*/ curfptr[75] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3506:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V93*/ curfptr[16] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3506:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V94*/ curfptr[85] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3510:/ objgoto");
-    /*objgoto*/ goto mtch1_17;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3506:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3524:/ objgoto");
-    /*objgoto*/ goto mtch1_19;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_17:
-  MELT_LOCATION("warmelt-outobj.melt:3510:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3510:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V95*/ curfptr[86] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3510:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V96*/ curfptr[87] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3510:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V93*/ curfptr[16]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3510:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3510:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3510:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V93*/ curfptr[16]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V95*/ curfptr[86] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3510:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V93*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V96*/ curfptr[87] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3506:/ objgoto");
-    /*objgoto*/ goto mtch1_18;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3510:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3510:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3524:/ objgoto");
-    /*objgoto*/ goto mtch1_19;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_18:
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ block");
-  /*block*/{
-   /*_.DNAM__V97*/ curfptr[88] = /*_.SDEF_NAME__V92*/ curfptr[75];;
-   /*_.DOCLOC__V98*/ curfptr[16] = /*_.LOCA_LOCATION__V95*/ curfptr[86];;
-   /*_.DOCONT__V99*/ curfptr[98] = /*_.SEXP_CONTENTS__V96*/ curfptr[87];;
-   /*_.FORMARGS__V100*/ curfptr[99] = /*_.SFORMAL_ARGS__V94*/ curfptr[85];;
-   MELT_LOCATION("warmelt-outobj.melt:3515:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3515:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V101*/ curfptr[100] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V97*/ curfptr[88]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3516:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3516:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3516:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 3, "MKDOC_CITERATORS");/*_.MKDOC_CITERATORS__V102*/ curfptr[101] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3516:/ cond.else");
-   
-    /*_.MKDOC_CITERATORS__V102*/ curfptr[101] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3516:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CITERATORS__V102*/ curfptr[101]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit5__EACHTUP: */
-   long  cit5__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V100*/ curfptr[99]);
-   for (/*_#FORMIX__L10*/ curfnum[9] = 0;  
-	(/*_#FORMIX__L10*/ curfnum[9] >= 0) && (/*_#FORMIX__L10*/ curfnum[9] <  cit5__EACHTUP_ln);  
-	/*_#FORMIX__L10*/ curfnum[9]++) {
-   /*_.CURFORMB__V103*/ curfptr[102] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V100*/ curfptr[99]),  /*_#FORMIX__L10*/ curfnum[9]);
-   
-   
-    MELT_LOCATION("warmelt-outobj.melt:3520:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3520:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-     /*_.ADD_FORMAL_OCC__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V103*/ curfptr[102]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    if (/*_#FORMIX__L10*/ curfnum[9]<0) break;
-   } /* end cit5__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3517:/ clear");
-    /*clear*/ /*_.CURFORMB__V103*/ curfptr[102] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3517:/ clear");
-    /*clear*/ /*_#FORMIX__L10*/ curfnum[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3517:/ clear");
-    /*clear*/ /*_.ADD_FORMAL_OCC__V104*/ curfptr[103] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-   /*clear*/ /*_.DNAM__V97*/ curfptr[88] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-   /*clear*/ /*_.DOCLOC__V98*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-   /*clear*/ /*_.DOCONT__V99*/ curfptr[98] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-   /*clear*/ /*_.FORMARGS__V100*/ curfptr[99] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V101*/ curfptr[100] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3506:/ clear");
-   /*clear*/ /*_.MKDOC_CITERATORS__V102*/ curfptr[101] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3506:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_19:
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V105*/ curfptr[88] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V106*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-  /*clear*/ /*_.SFORMAL_ARGS__V107*/ curfptr[98] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[14]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3524:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V105*/ curfptr[88] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3524:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V106*/ curfptr[16] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3524:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SFORMAL_ARGS");/*_.SFORMAL_ARGS__V107*/ curfptr[98] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3528:/ objgoto");
-    /*objgoto*/ goto mtch1_20;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3524:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3542:/ objgoto");
-    /*objgoto*/ goto mtch1_22;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_20:
-  MELT_LOCATION("warmelt-outobj.melt:3528:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3528:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V108*/ curfptr[99] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3528:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V109*/ curfptr[100] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3528:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V106*/ curfptr[16]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3528:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3528:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3528:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V106*/ curfptr[16]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V108*/ curfptr[99] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3528:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V106*/ curfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V109*/ curfptr[100] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3524:/ objgoto");
-    /*objgoto*/ goto mtch1_21;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3528:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3528:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3542:/ objgoto");
-    /*objgoto*/ goto mtch1_22;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_21:
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ block");
-  /*block*/{
-   /*_.DNAM__V110*/ curfptr[101] = /*_.SDEF_NAME__V105*/ curfptr[88];;
-   /*_.DOCLOC__V111*/ curfptr[16] = /*_.LOCA_LOCATION__V108*/ curfptr[99];;
-   /*_.DOCONT__V112*/ curfptr[111] = /*_.SEXP_CONTENTS__V109*/ curfptr[100];;
-   /*_.FORMARGS__V113*/ curfptr[112] = /*_.SFORMAL_ARGS__V107*/ curfptr[98];;
-   MELT_LOCATION("warmelt-outobj.melt:3533:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3533:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V114*/ curfptr[113] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.DNAM__V110*/ curfptr[101]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3534:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3534:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3534:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 4, "MKDOC_CMATCHERS");/*_.MKDOC_CMATCHERS__V115*/ curfptr[114] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3534:/ cond.else");
-   
-    /*_.MKDOC_CMATCHERS__V115*/ curfptr[114] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3534:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_CMATCHERS__V115*/ curfptr[114]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit6__EACHTUP: */
-   long  cit6__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FORMARGS__V113*/ curfptr[112]);
-   for (/*_#FORMIX__L11*/ curfnum[10] = 0;  
-	(/*_#FORMIX__L11*/ curfnum[10] >= 0) && (/*_#FORMIX__L11*/ curfnum[10] <  cit6__EACHTUP_ln);  
-	/*_#FORMIX__L11*/ curfnum[10]++) {
-   /*_.CURFORMB__V116*/ curfptr[115] = melt_multiple_nth((melt_ptr_t)(/*_.FORMARGS__V113*/ curfptr[112]),  /*_#FORMIX__L11*/ curfnum[10]);
-   
-   
-    MELT_LOCATION("warmelt-outobj.melt:3538:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[1];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3538:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-     /*_.ADD_FORMAL_OCC__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_FORMAL_OCC*/ curfclos->tabval[2])), (melt_ptr_t)(/*_.CURFORMB__V116*/ curfptr[115]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    if (/*_#FORMIX__L11*/ curfnum[10]<0) break;
-   } /* end cit6__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3535:/ clear");
-    /*clear*/ /*_.CURFORMB__V116*/ curfptr[115] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3535:/ clear");
-    /*clear*/ /*_#FORMIX__L11*/ curfnum[10] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3535:/ clear");
-    /*clear*/ /*_.ADD_FORMAL_OCC__V117*/ curfptr[116] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-   /*clear*/ /*_.DNAM__V110*/ curfptr[101] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-   /*clear*/ /*_.DOCLOC__V111*/ curfptr[16] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-   /*clear*/ /*_.DOCONT__V112*/ curfptr[111] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-   /*clear*/ /*_.FORMARGS__V113*/ curfptr[112] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V114*/ curfptr[113] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3524:/ clear");
-   /*clear*/ /*_.MKDOC_CMATCHERS__V115*/ curfptr[114] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3524:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_22:
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V118*/ curfptr[101] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-  /*clear*/ /*_.SEXPMAC_MNAME__V119*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-  /*clear*/ /*_.SEXPMAC_DOC__V120*/ curfptr[111] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[15]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3542:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V118*/ curfptr[101] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3542:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V119*/ curfptr[16] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3542:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SEXPMAC_DOC");/*_.SEXPMAC_DOC__V120*/ curfptr[111] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3547:/ objgoto");
-    /*objgoto*/ goto mtch1_23;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3542:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3556:/ objgoto");
-    /*objgoto*/ goto mtch1_25;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_23:
-  MELT_LOCATION("warmelt-outobj.melt:3547:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3547:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V121*/ curfptr[112] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3547:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V122*/ curfptr[113] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3547:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SEXPMAC_DOC__V120*/ curfptr[111]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3547:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3547:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3547:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V120*/ curfptr[111]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V121*/ curfptr[112] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3547:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V120*/ curfptr[111]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V122*/ curfptr[113] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3542:/ objgoto");
-    /*objgoto*/ goto mtch1_24;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3547:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3547:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3556:/ objgoto");
-    /*objgoto*/ goto mtch1_25;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_24:
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ block");
-  /*block*/{
-   /*_.DOCLOC__V123*/ curfptr[114] = /*_.LOCA_LOCATION__V121*/ curfptr[112];;
-   /*_.DOCONT__V124*/ curfptr[111] = /*_.SEXP_CONTENTS__V122*/ curfptr[113];;
-   /*_.LOC__V125*/ curfptr[124] = /*_.LOCA_LOCATION__V118*/ curfptr[101];;
-   /*_.MNAME__V126*/ curfptr[125] = /*_.SEXPMAC_MNAME__V119*/ curfptr[16];;
-   MELT_LOCATION("warmelt-outobj.melt:3551:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3551:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V127*/ curfptr[126] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.MNAME__V126*/ curfptr[125]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3552:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3552:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3552:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 10, "MKDOC_PATMACROS");/*_.MKDOC_PATMACROS__V128*/ curfptr[127] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3552:/ cond.else");
-   
-    /*_.MKDOC_PATMACROS__V128*/ curfptr[127] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3552:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_PATMACROS__V128*/ curfptr[127]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-   /*clear*/ /*_.DOCLOC__V123*/ curfptr[114] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-   /*clear*/ /*_.DOCONT__V124*/ curfptr[111] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-   /*clear*/ /*_.LOC__V125*/ curfptr[124] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-   /*clear*/ /*_.MNAME__V126*/ curfptr[125] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V127*/ curfptr[126] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3542:/ clear");
-   /*clear*/ /*_.MKDOC_PATMACROS__V128*/ curfptr[127] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3542:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_25:
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V129*/ curfptr[114] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-  /*clear*/ /*_.SEXPMAC_MNAME__V130*/ curfptr[111] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-  /*clear*/ /*_.SEXPMAC_DOC__V131*/ curfptr[124] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[16]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3556:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V129*/ curfptr[114] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3556:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V130*/ curfptr[111] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3556:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 4, "SEXPMAC_DOC");/*_.SEXPMAC_DOC__V131*/ curfptr[124] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3561:/ objgoto");
-    /*objgoto*/ goto mtch1_26;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3556:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3570:/ objgoto");
-    /*objgoto*/ goto mtch1_28;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_26:
-  MELT_LOCATION("warmelt-outobj.melt:3561:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3561:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V132*/ curfptr[125] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3561:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V133*/ curfptr[126] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3561:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SEXPMAC_DOC__V131*/ curfptr[124]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3561:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3561:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3561:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V131*/ curfptr[124]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V132*/ curfptr[125] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3561:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_DOC__V131*/ curfptr[124]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V133*/ curfptr[126] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3556:/ objgoto");
-    /*objgoto*/ goto mtch1_27;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3561:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3561:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3570:/ objgoto");
-    /*objgoto*/ goto mtch1_28;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_27:
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ block");
-  /*block*/{
-   /*_.DOCLOC__V134*/ curfptr[127] = /*_.LOCA_LOCATION__V132*/ curfptr[125];;
-   /*_.DOCONT__V135*/ curfptr[124] = /*_.SEXP_CONTENTS__V133*/ curfptr[126];;
-   /*_.LOC__V136*/ curfptr[135] = /*_.LOCA_LOCATION__V129*/ curfptr[114];;
-   /*_.MNAME__V137*/ curfptr[136] = /*_.SEXPMAC_MNAME__V130*/ curfptr[111];;
-   MELT_LOCATION("warmelt-outobj.melt:3565:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:3565:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREXP__V2*/ curfptr[1];
-    /*_.ADD_DOCSYM__V138*/ curfptr[137] =  melt_apply ((meltclosure_ptr_t)((/*~ADD_DOCSYM*/ curfclos->tabval[1])), (melt_ptr_t)(/*_.MNAME__V137*/ curfptr[136]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3566:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3566:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3566:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)((/*~MDINFO*/ curfclos->tabval[0])), 9, "MKDOC_MACROS");/*_.MKDOC_MACROS__V139*/ curfptr[138] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3566:/ cond.else");
-   
-    /*_.MKDOC_MACROS__V139*/ curfptr[138] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3566:/ locexp");
-   meltgc_append_list((melt_ptr_t)(/*_.MKDOC_MACROS__V139*/ curfptr[138]), (melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-   /*clear*/ /*_.DOCLOC__V134*/ curfptr[127] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-   /*clear*/ /*_.DOCONT__V135*/ curfptr[124] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-   /*clear*/ /*_.LOC__V136*/ curfptr[135] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-   /*clear*/ /*_.MNAME__V137*/ curfptr[136] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-   /*clear*/ /*_.ADD_DOCSYM__V138*/ curfptr[137] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3556:/ clear");
-   /*clear*/ /*_.MKDOC_MACROS__V139*/ curfptr[138] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3556:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1_28:
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-  /*clear*/ /*_.SDEF_NAME__V140*/ curfptr[127] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-  /*clear*/ /*_.SDEF_DOC__V141*/ curfptr[124] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.CUREXP__V2*/ curfptr[1]), ((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[17]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3570:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V140*/ curfptr[127] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3570:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1]), 3, "SDEF_DOC");/*_.SDEF_DOC__V141*/ curfptr[124] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3574:/ objgoto");
-    /*objgoto*/ goto mtch1_29;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3570:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3570:/ objgoto");
-    /*objgoto*/ goto mtch1__end /*endmatch*/;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_29:
-  MELT_LOCATION("warmelt-outobj.melt:3574:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3574:/ clear");
-  /*clear*/ /*_.LOCA_LOCATION__V142*/ curfptr[135] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3574:/ clear");
-  /*clear*/ /*_.SEXP_CONTENTS__V143*/ curfptr[136] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3574:/ cond");
-  /*cond*/ if (
-   /*normtesterinst*/ (melt_is_instance_of((/*_.SDEF_DOC__V141*/ curfptr[124]), ((/*!CLASS_SEXPR*/ curfrout->tabval[2]))))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3574:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3574:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3574:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V141*/ curfptr[124]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V142*/ curfptr[135] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3574:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.SDEF_DOC__V141*/ curfptr[124]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V143*/ curfptr[136] = slot; };
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3570:/ objgoto");
-    /*objgoto*/ goto mtch1_30;
-    ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3574:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3574:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3574:/ objgoto");
-    /*objgoto*/ goto mtch1__end /*endmatch*/;
-    ;}
-   ;
-   }
-  ;
-  
-  /*objlabel*/ mtch1_30:
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ objlabel");
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ block");
-  /*block*/{
-   /*_.DNAM__V144*/ curfptr[137] = /*_.SDEF_NAME__V140*/ curfptr[127];;
-   /*_.DOC__V145*/ curfptr[138] = /*_.SDEF_DOC__V141*/ curfptr[124];;
-   /*_.DOCL__V146*/ curfptr[124] = /*_.SEXP_CONTENTS__V143*/ curfptr[136];;
-   /*_.LOC__V147*/ curfptr[146] = /*_.LOCA_LOCATION__V142*/ curfptr[135];;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3575:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3575:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3575:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3575:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_docmd dnam";
-      MELT_LOCATION("warmelt-outobj.melt:3575:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11];
-      MELT_LOCATION("warmelt-outobj.melt:3575:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3575:/ apply.arg");
-      argtab[3].bp_long = 3575;
-      /*_.DEBUG_MSG_FUN__V149*/ curfptr[148] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.DNAM__V144*/ curfptr[137]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V148*/ curfptr[147] = /*_.DEBUG_MSG_FUN__V149*/ curfptr[148];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3575:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3575:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V149*/ curfptr[148] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3575:/ cppif.else");
-   /*_.IFCPP___V148*/ curfptr[147] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3576:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3576:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3576:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3576:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_docmd doc";
-      MELT_LOCATION("warmelt-outobj.melt:3576:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11];
-      MELT_LOCATION("warmelt-outobj.melt:3576:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3576:/ apply.arg");
-      argtab[3].bp_long = 3576;
-      /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.DOC__V145*/ curfptr[138]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V150*/ curfptr[148] = /*_.DEBUG_MSG_FUN__V151*/ curfptr[150];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3576:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3576:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V151*/ curfptr[150] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3576:/ cppif.else");
-   /*_.IFCPP___V150*/ curfptr[148] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:3577:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DNAM__V144*/ curfptr[137]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3577:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3577:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DNAM__V144*/ curfptr[137]), 1, "NAMED_NAME");/*_.NAMED_NAME__V152*/ curfptr[150] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3577:/ cond.else");
-   
-    /*_.NAMED_NAME__V152*/ curfptr[150] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3577:/ locexp");
-   melt_inform_str((melt_ptr_t)(/*_.LOC__V147*/ curfptr[146]), ( "makedoc: got documented "), (melt_ptr_t)(/*_.NAMED_NAME__V152*/ curfptr[150]));}
-   ;
-   /*_.DISCRIM__V153*/ curfptr[152] = 
-    (melt_discr((melt_ptr_t)(/*_.CUREXP__V2*/ curfptr[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:3578:/ cond");
-   /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V153*/ curfptr[152]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3578:/ cond.then");
-   MELT_LOCATION("warmelt-outobj.melt:3578:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V153*/ curfptr[152]), 1, "NAMED_NAME");/*_.NAMED_NAME__V154*/ curfptr[153] = slot; };
-    ;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3578:/ cond.else");
-   
-    /*_.NAMED_NAME__V154*/ curfptr[153] = NULL;;
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3578:/ locexp");
-   melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V147*/ curfptr[146]), ( "makedoc: unimplemented for class "), (melt_ptr_t)(/*_.NAMED_NAME__V154*/ curfptr[153]));}
-   ;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.DNAM__V144*/ curfptr[137] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.DOC__V145*/ curfptr[138] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.DOCL__V146*/ curfptr[124] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.LOC__V147*/ curfptr[146] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.IFCPP___V148*/ curfptr[147] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.IFCPP___V150*/ curfptr[148] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V152*/ curfptr[150] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.DISCRIM__V153*/ curfptr[152] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3570:/ clear");
-   /*clear*/ /*_.NAMED_NAME__V154*/ curfptr[153] = 0 ;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3570:/ objgoto");
-  /*objgoto*/ goto mtch1__end /*endmatch*/;
-  ;
-  
-  /*objlabel*/ mtch1__end:
-  MELT_LOCATION("warmelt-outobj.melt:3390:/ objlabel");
-  ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3388:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_134_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-const char* loc_CSTRING__o0;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_OUTDEFLOC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3587:/ getarg");
- /*_.OUTB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3587:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DEF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:3587:/ getarg");
- if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
- /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3587:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3588:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3588:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3588:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3588:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3588:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3588:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3588:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3588)?(3588):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3588:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3588:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3588:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3589:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3589:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3589:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3589:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3589:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3589:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3589:/ locexp");
-      melt_assert_failed(( "check def"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3589)?(3589):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3589:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3589:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3589:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3590:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3590:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3590:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3590:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.DEF__V3*/ curfptr[2]), 1, "LOCA_LOCATION");/*_.LOC__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3590:/ cond.else");
-  
-   /*_.LOC__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  /*_#NULL__L3*/ curfnum[0] = 
-   ((/*_.LOC__V8*/ curfptr[6]) == NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:3592:/ cond");
-  /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3592:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3592:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3592:/ block");
-    /*block*/{
-     /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-     MELT_LOCATION("warmelt-outobj.melt:3592:/ finalreturn");
-     ;
-     /*finalret*/ goto labend_rout ;}
-    ;
-    /*_.IF___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3592:/ clear");
-    /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3592:/ cond.else");
-  
-   /*_.IF___V9*/ curfptr[8] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3593:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_?*/ curfram__.loc_CSTRING__o0));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3594:/ locexp");
-  /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.LOC__V8*/ curfptr[6])) == OBMAG_MIXLOC) 
-  meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), "file @file{%s}, line %d", 
-		       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.LOC__V8*/ curfptr[6]))), 
-		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.LOC__V8*/ curfptr[6]))); ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3595:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3596:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3590:/ clear");
-  /*clear*/ /*_.LOC__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3590:/ clear");
-  /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3590:/ clear");
-  /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3587:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3587:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_OUTDEFLOC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 13
-  void* varptr[13];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-const char* loc_CSTRING__o0;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<13; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 13;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_OUTFORMALS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3601:/ getarg");
- /*_.OUTB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3601:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.FARGS__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FARGS__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:3601:/ getarg");
- if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
- /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3601:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3602:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3602:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3602:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3602:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3602:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3602:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3602:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3602)?(3602):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3602:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3602:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3602:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#MULTIPLE_LENGTH__L2*/ curfnum[0] = 
-  (melt_multiple_length((melt_ptr_t)(/*_.FARGS__V3*/ curfptr[2])));;
- /*_#I__L3*/ curfnum[2] = 
-  ((/*_#MULTIPLE_LENGTH__L2*/ curfnum[0]) > (0));;
- MELT_LOCATION("warmelt-outobj.melt:3603:/ cond");
- /*cond*/ if (/*_#I__L3*/ curfnum[2]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3603:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3603:/ block");
-  /*block*/{
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3605:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3606:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_?*/ curfram__.loc_CSTRING__o0));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3607:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3608:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@multitable @columnfractions 0.05 0.15 0.4"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3609:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3610:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@headitem index @tab type @tab name"));}
-   ;
-   /*citerblock FOREACH_IN_MULTIPLE*/ {
-    /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.FARGS__V3*/ curfptr[2]);
-   for (/*_#FIX__L4*/ curfnum[3] = 0;  
-	(/*_#FIX__L4*/ curfnum[3] >= 0) && (/*_#FIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#FIX__L4*/ curfnum[3]++) {
-   /*_.CURFBIND__V6*/ curfptr[4] = melt_multiple_nth((melt_ptr_t)(/*_.FARGS__V3*/ curfptr[2]),  /*_#FIX__L4*/ curfnum[3]);
-   
-   
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3614:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3614:/ block");
-     /*block*/{
-      /*_#IS_A__L5*/ curfnum[4] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));;
-      MELT_LOCATION("warmelt-outobj.melt:3614:/ cond");
-      /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3614:/ cond.then");
-      /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3614:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3614:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:3614:/ locexp");
-         melt_assert_failed(( "check curfbind"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3614)?(3614):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3614:/ clear");
-      /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3614:/ clear");
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3614:/ cppif.else");
-    /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3615:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3616:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@item @i{"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3617:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_#FIX__L4*/ curfnum[3]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3618:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "} @tab @slanted{"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3623:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3623:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3623:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V9*/ curfptr[7] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3623:/ cond.else");
-    
-     /*_.FBIND_TYPE__V9*/ curfptr[7] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3622:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V9*/ curfptr[7]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3622:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3622:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.FBIND_TYPE__V9*/ curfptr[7]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V10*/ curfptr[9] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3622:/ cond.else");
-    
-     /*_.CTYPE_KEYWORD__V10*/ curfptr[9] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3621:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3621:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3621:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V11*/ curfptr[10] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3621:/ cond.else");
-    
-     /*_.NAMED_NAME__V11*/ curfptr[10] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3619:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V11*/ curfptr[10])));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3624:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[3])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFBIND__V6*/ curfptr[4]), 0, "BINDER");/*_.BINDER__V12*/ curfptr[11] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3624:/ cond.else");
-     
-      /*_.BINDER__V12*/ curfptr[11] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDER__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.ARGNAM__V13*/ curfptr[12] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3624:/ cond.else");
-     
-      /*_.ARGNAM__V13*/ curfptr[12] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3625:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "} @tab @code{"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3626:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.ARGNAM__V13*/ curfptr[12])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3627:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "}"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3628:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3629:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@vindex "));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3630:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.ARGNAM__V13*/ curfptr[12])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3631:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ clear");
-     /*clear*/ /*_.BINDER__V12*/ curfptr[11] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3624:/ clear");
-     /*clear*/ /*_.ARGNAM__V13*/ curfptr[12] = 0 ;}
-    ;
-    if (/*_#FIX__L4*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-   
-    /*citerepilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3611:/ clear");
-    /*clear*/ /*_.CURFBIND__V6*/ curfptr[4] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3611:/ clear");
-    /*clear*/ /*_#FIX__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3611:/ clear");
-    /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3611:/ clear");
-    /*clear*/ /*_.FBIND_TYPE__V9*/ curfptr[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3611:/ clear");
-    /*clear*/ /*_.CTYPE_KEYWORD__V10*/ curfptr[9] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3611:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V11*/ curfptr[10] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3634:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3635:/ locexp");
-   meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@end multitable"));}
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3636:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3604:/ block");
-   /*block*/{}
-   ;
-   /*epilog*/}
-  ;
- } /*noelse*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3601:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3601:/ clear");
- /*clear*/ /*_#MULTIPLE_LENGTH__L2*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3601:/ clear");
- /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_OUTFORMALS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-const char* loc_CSTRING__o0;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_OUTDOC", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3641:/ getarg");
- /*_.OUTB__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3641:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.DOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.DOC__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:3641:/ getarg");
- if (xargdescr_[1] != BPAR_CSTRING) goto lab_endgetargs;
- /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[1].bp_cstring;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3641:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3642:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3642:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L1*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3642:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3642:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3642:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3642:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3642:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3642)?(3642):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3642:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3642:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3642:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- /*_#IS_NOT_A__L2*/ curfnum[0] = 
-  !melt_is_instance_of((melt_ptr_t)(/*_.DOC__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));;
- MELT_LOCATION("warmelt-outobj.melt:3643:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3643:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3643:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3643:/ block");
-   /*block*/{
-    /*_.RETVAL___V1*/ curfptr[0] = NULL;;
-    MELT_LOCATION("warmelt-outobj.melt:3643:/ finalreturn");
-    ;
-    /*finalret*/ goto labend_rout ;}
-   ;
-   /*_.IF___V6*/ curfptr[4] = /*_.RETURN___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3643:/ clear");
-   /*clear*/ /*_.RETURN___V7*/ curfptr[6] = 0 ;}
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3643:/ cond.else");
- 
-  /*_.IF___V6*/ curfptr[4] = NULL;;
-  }
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3644:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3645:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (/*_?*/ curfram__.loc_CSTRING__o0));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3648:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.DOC__V3*/ curfptr[2]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ curfptr[6] = slot; };
- ;
- /*citerblock FOREACH_IN_LIST*/ {
- /* start cit1__EACHLIST */
-   for (/*_.CURPAIR__V9*/ curfptr[8] = melt_list_first(/*_.SEXP_CONTENTS__V8*/ curfptr[6]);
-	melt_magic_discr(/*_.CURPAIR__V9*/ curfptr[8]) == OBMAG_PAIR;
-        /*_.CURPAIR__V9*/ curfptr[8] = melt_pair_tail(/*_.CURPAIR__V9*/ curfptr[8])) {
-	/*_.CURELEM__V10*/ curfptr[9] = melt_pair_head(/*_.CURPAIR__V9*/ curfptr[8]); 
- 
-  /*_#IS_STRING__L3*/ curfnum[2] = 
-   (melt_magic_discr((melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9])) == OBMAG_STRING);;
-  MELT_LOCATION("warmelt-outobj.melt:3651:/ cond");
-  /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3651:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3651:/ block");
-   /*block*/{
-    /*block*/{
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3652:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9])));}
-     ;
-     /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3651:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3651:/ block");
-   /*block*/{
-    /*_#IS_A__L4*/ curfnum[3] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-    MELT_LOCATION("warmelt-outobj.melt:3653:/ cond");
-    /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3653:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3653:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3654:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@code{"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3655:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURELEM__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; };
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3655:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12])));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3656:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "}"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3653:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3653:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3653:/ cond.else");
-    
-     /*_.IFELSE___V12*/ curfptr[11] = NULL;;
-     }
-    ;
-    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3651:/ clear");
-    /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3651:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   ;
-   }
-  ;
-  } /* end cit1__EACHLIST */
- 
-  /*citerepilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3647:/ clear");
-  /*clear*/ /*_.CURPAIR__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3647:/ clear");
-  /*clear*/ /*_.CURELEM__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3647:/ clear");
-  /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3647:/ clear");
-  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3660:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3663:/ getslot");
- { melt_ptr_t slot=0;
-  melt_object_get_field(slot,(melt_ptr_t)(/*_.DOC__V3*/ curfptr[2]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V14*/ curfptr[12] = slot; };
- ;
- /*citerblock FOREACH_IN_LIST*/ {
- /* start cit2__EACHLIST */
-   for (/*_.CURPAIR__V15*/ curfptr[11] = melt_list_first(/*_.SEXP_CONTENTS__V14*/ curfptr[12]);
-	melt_magic_discr(/*_.CURPAIR__V15*/ curfptr[11]) == OBMAG_PAIR;
-        /*_.CURPAIR__V15*/ curfptr[11] = melt_pair_tail(/*_.CURPAIR__V15*/ curfptr[11])) {
-	/*_.CURELEM__V16*/ curfptr[15] = melt_pair_head(/*_.CURPAIR__V15*/ curfptr[11]); 
- 
-  /*_#IS_A__L5*/ curfnum[3] = 
-   melt_is_instance_of((melt_ptr_t)(/*_.CURELEM__V16*/ curfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));;
-  MELT_LOCATION("warmelt-outobj.melt:3666:/ cond");
-  /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3666:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3666:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3667:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), ( "@vindex "));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3668:/ getslot");
-    { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(/*_.CURELEM__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; };
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3668:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3669:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V2*/ curfptr[1]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3666:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3666:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ;}
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3666:/ cond.else");
-  
-   /*_.IFELSE___V17*/ curfptr[16] = NULL;;
-   }
-  ;
-  } /* end cit2__EACHLIST */
- 
-  /*citerepilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3662:/ clear");
-  /*clear*/ /*_.CURPAIR__V15*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3662:/ clear");
-  /*clear*/ /*_.CURELEM__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3662:/ clear");
-  /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3662:/ clear");
-  /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} /*endciterblock FOREACH_IN_LIST*/
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3641:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3641:/ clear");
- /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3641:/ clear");
- /*clear*/ /*_.IF___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3641:/ clear");
- /*clear*/ /*_.SEXP_CONTENTS__V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3641:/ clear");
- /*clear*/ /*_.SEXP_CONTENTS__V14*/ curfptr[12] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_OUTDOC", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 46
-  void* varptr[46];
-#define CURFRAM_NBVARNUM 20
-  long varnum[20];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<46; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 46;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_OUTCLASSDEF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3677:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3677:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:3677:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.CLADEF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:3677:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#CLAIX__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3677:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3678:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3678:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3678:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3678:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3678:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3678:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3678:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3678)?(3678):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3678:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3678:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3678:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3679:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3679:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3679:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3679:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3679:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3679:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3679:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3679)?(3679):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3679:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3679:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3680:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3680:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:3680:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3680:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3680:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3680:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3680:/ locexp");
-      melt_assert_failed(( "check cladef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3680)?(3680):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3680:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3680:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3680:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3681:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), 5, "SCLASS_CLABIND");/*_.SCLASS_CLABIND__V11*/ curfptr[9] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3681:/ cond.else");
-  
-   /*_.SCLASS_CLABIND__V11*/ curfptr[9] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS_CLABIND__V11*/ curfptr[9]), 3, "CBIND_CLASS");/*_.CLA__V12*/ curfptr[11] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3681:/ cond.else");
-  
-   /*_.CLA__V12*/ curfptr[11] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3682:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3682:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3682:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 5, "CLASS_ANCESTORS");/*_.CLANCS__V13*/ curfptr[12] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3682:/ cond.else");
-  
-   /*_.CLANCS__V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3683:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3683:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3683:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 6, "CLASS_FIELDS");/*_.CLFLDS__V14*/ curfptr[13] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3683:/ cond.else");
-  
-   /*_.CLFLDS__V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  /*_#NBCLANC__L5*/ curfnum[1] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CLANCS__V13*/ curfptr[12])));;
-  /*_#NBCLFLDS__L6*/ curfnum[5] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CLFLDS__V14*/ curfptr[13])));;
-  MELT_LOCATION("warmelt-outobj.melt:3686:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3686:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3686:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLADEF__V4*/ curfptr[3]), 3, "SDEF_DOC");/*_.DOC__V15*/ curfptr[14] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3686:/ cond.else");
-  
-   /*_.DOC__V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3687:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3687:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3687:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 14, "MKDOC_SUBCLASSMAP");/*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3687:/ cond.else");
-  
-   /*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15] = NULL;;
-   }
-  ;
-  /*_.SUBCLALIST__V17*/ curfptr[16] = 
-   melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15]), (meltobject_ptr_t)(/*_.CLA__V12*/ curfptr[11]));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:3689:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:3689:/ block");
-   /*block*/{
-    /*_#IS_A__L7*/ curfnum[6] = 
-     melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));;
-    MELT_LOCATION("warmelt-outobj.melt:3689:/ cond");
-    /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3689:/ cond.then");
-    /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3689:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3689:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:3689:/ locexp");
-       melt_assert_failed(( "check cla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3689)?(3689):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3689:/ clear");
-    /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3689:/ clear");
-    /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:3689:/ cppif.else");
-  /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3690:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3691:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3692:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3692:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3692:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[18] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3692:/ cond.else");
-  
-   /*_.NAMED_NAME__V20*/ curfptr[18] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3692:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[18])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3693:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3694:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3695:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3696:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3696:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3696:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CLA__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[20] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3696:/ cond.else");
-  
-   /*_.NAMED_NAME__V21*/ curfptr[20] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3696:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[20])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3697:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3698:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3698:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CLADEF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:3698:/ apply.arg");
-   argtab[1].bp_cstring =  "Class defined at ";
-   /*_.MAKEDOC_OUTDEFLOC__V22*/ curfptr[21] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_#I__L8*/ curfnum[6] = 
-   ((/*_#NBCLANC__L5*/ curfnum[1]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:3700:/ cond");
-  /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3700:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3700:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3702:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3703:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3704:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#NBCLANC__L5*/ curfnum[1]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3705:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " ancestors:}"));}
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLANCS__V13*/ curfptr[12]);
-   for (/*_#ANCIX__L9*/ curfnum[8] = 0;  
-	(/*_#ANCIX__L9*/ curfnum[8] >= 0) && (/*_#ANCIX__L9*/ curfnum[8] <  cit1__EACHTUP_ln);  
-	/*_#ANCIX__L9*/ curfnum[8]++) {
-   /*_.CURANC__V23*/ curfptr[22] = melt_multiple_nth((melt_ptr_t)(/*_.CLANCS__V13*/ curfptr[12]),  /*_#ANCIX__L9*/ curfnum[8]);
-   
-    
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3709:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3709:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 
-        callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:3709:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:3709:/ apply.arg");
-        argtab[0].bp_cstring =  "makedoc_outclassdef curanc";
-        MELT_LOCATION("warmelt-outobj.melt:3709:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9];
-        MELT_LOCATION("warmelt-outobj.melt:3709:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:3709:/ apply.arg");
-        argtab[3].bp_long = 3709;
-        /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3709:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3709:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3709:/ cppif.else");
-     /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3710:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3710:/ block");
-      /*block*/{
-       /*_#IS_A__L11*/ curfnum[9] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));;
-       MELT_LOCATION("warmelt-outobj.melt:3710:/ cond");
-       /*cond*/ if (/*_#IS_A__L11*/ curfnum[9]) /*then*/ {
-       MELT_LOCATION("warmelt-outobj.melt:3710:/ cond.then");
-       /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-outobj.melt:3710:/ cond.else");
-       
-        MELT_LOCATION("warmelt-outobj.melt:3710:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-outobj.melt:3710:/ locexp");
-          melt_assert_failed(( "check curanc"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3710)?(3710):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3710:/ clear");
-       /*clear*/ /*_#IS_A__L11*/ curfnum[9] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3710:/ clear");
-       /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3710:/ cppif.else");
-     /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3711:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @code{"));}
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3712:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3712:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:3712:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CURANC__V23*/ curfptr[22]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[26] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3712:/ cond.else");
-     
-      /*_.NAMED_NAME__V28*/ curfptr[26] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3712:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[26])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3713:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-     ;
-     if (/*_#ANCIX__L9*/ curfnum[8]<0) break;
-   } /* end cit1__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3706:/ clear");
-     /*clear*/ /*_.CURANC__V23*/ curfptr[22] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3706:/ clear");
-     /*clear*/ /*_#ANCIX__L9*/ curfnum[8] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3706:/ clear");
-     /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3706:/ clear");
-     /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3706:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[26] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3715:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3716:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3701:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  /*_#I__L12*/ curfnum[9] = 
-   ((/*_#NBCLFLDS__L6*/ curfnum[5]) > (0));;
-  MELT_LOCATION("warmelt-outobj.melt:3719:/ cond");
-  /*cond*/ if (/*_#I__L12*/ curfnum[9]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3719:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3719:/ block");
-   /*block*/{
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3721:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3722:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3723:/ locexp");
-    meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#NBCLFLDS__L6*/ curfnum[5]));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3724:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " fields:}"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3725:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3726:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@multitable @columnfractions 0.08 0.4 0.4"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3727:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3728:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@headitem offset @tab name @tab class"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3729:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    /*citerblock FOREACH_IN_MULTIPLE*/ {
-     /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.CLFLDS__V14*/ curfptr[13]);
-   for (/*_#FLDIX__L13*/ curfnum[12] = 0;  
-	(/*_#FLDIX__L13*/ curfnum[12] >= 0) && (/*_#FLDIX__L13*/ curfnum[12] <  cit2__EACHTUP_ln);  
-	/*_#FLDIX__L13*/ curfnum[12]++) {
-   /*_.CURFLD__V29*/ curfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.CLFLDS__V14*/ curfptr[13]),  /*_#FLDIX__L13*/ curfnum[12]);
-   
-    
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3733:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3733:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 
-        callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:3733:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:3733:/ apply.arg");
-        argtab[0].bp_cstring =  "makedoc_outclassdef curfld";
-        MELT_LOCATION("warmelt-outobj.melt:3733:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13];
-        MELT_LOCATION("warmelt-outobj.melt:3733:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:3733:/ apply.arg");
-        argtab[3].bp_long = 3733;
-        /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3733:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3733:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3733:/ cppif.else");
-     /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3734:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3734:/ block");
-      /*block*/{
-       /*_#IS_A__L15*/ curfnum[13] = 
-        melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[8])));;
-       MELT_LOCATION("warmelt-outobj.melt:3734:/ cond");
-       /*cond*/ if (/*_#IS_A__L15*/ curfnum[13]) /*then*/ {
-       MELT_LOCATION("warmelt-outobj.melt:3734:/ cond.then");
-       /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);;
-       } else {MELT_LOCATION("warmelt-outobj.melt:3734:/ cond.else");
-       
-        MELT_LOCATION("warmelt-outobj.melt:3734:/ block");
-        /*block*/{
-         /*block*/{
-          
-          {
-          MELT_LOCATION("warmelt-outobj.melt:3734:/ locexp");
-          melt_assert_failed(( "check curfld"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3734)?(3734):__LINE__, __FUNCTION__);
-;}
-          ;
-          /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
-         ;
-         /*epilog*/}
-        ;
-        }
-       ;
-       /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3734:/ clear");
-       /*clear*/ /*_#IS_A__L15*/ curfnum[13] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3734:/ clear");
-       /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3734:/ cppif.else");
-     /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3735:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3736:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@item "));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3737:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#FLDIX__L13*/ curfnum[12]));}
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:3738:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:3738:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[8])))) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3738:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3738:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 2, "FLD_OWNCLASS");/*_.FLDCLA__V34*/ curfptr[32] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3738:/ cond.else");
-      
-       /*_.FLDCLA__V34*/ curfptr[32] = NULL;;
-       }
-      ;
-      /*_#__L16*/ curfnum[13] = 
-       ((/*_.FLDCLA__V34*/ curfptr[32]) == (/*_.CLA__V12*/ curfptr[11]));;
-      MELT_LOCATION("warmelt-outobj.melt:3739:/ cond");
-      /*cond*/ if (/*_#__L16*/ curfnum[13]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3739:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3739:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3741:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @tab @strong{"));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3742:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3742:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:3742:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[34] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3742:/ cond.else");
-        
-         /*_.NAMED_NAME__V35*/ curfptr[34] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3742:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[34])));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3743:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "} @tab @emph{@code{"));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3744:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3744:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:3744:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3744:/ cond.else");
-        
-         /*_.NAMED_NAME__V36*/ curfptr[35] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3744:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35])));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3745:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}}"));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3746:/ locexp");
-        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3747:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3748:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3748:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:3748:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[36] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3748:/ cond.else");
-        
-         /*_.NAMED_NAME__V37*/ curfptr[36] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3748:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[36])));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3749:/ locexp");
-        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3740:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3739:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[34] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3739:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3739:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[36] = 0 ;}
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3739:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3739:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3752:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @tab @emph{"));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3753:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3753:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:3753:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V29*/ curfptr[28]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[34] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3753:/ cond.else");
-        
-         /*_.NAMED_NAME__V38*/ curfptr[34] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3753:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[34])));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3754:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3755:/ locexp");
-        meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3756:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@tab @code{"));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3757:/ cond");
-        /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3757:/ cond.then");
-        MELT_LOCATION("warmelt-outobj.melt:3757:/ getslot");
-         { melt_ptr_t slot=0;
-          melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDCLA__V34*/ curfptr[32]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[35] = slot; };
-         ;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3757:/ cond.else");
-        
-         /*_.NAMED_NAME__V39*/ curfptr[35] = NULL;;
-         }
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3757:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[35])));}
-        ;
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3758:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "} "));}
-        ;
-        MELT_LOCATION("warmelt-outobj.melt:3751:/ block");
-        /*block*/{}
-        ;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3739:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[34] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3739:/ clear");
-        /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[35] = 0 ;}
-       ;
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3760:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3738:/ clear");
-      /*clear*/ /*_.FLDCLA__V34*/ curfptr[32] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3738:/ clear");
-      /*clear*/ /*_#__L16*/ curfnum[13] = 0 ;}
-     ;
-     if (/*_#FLDIX__L13*/ curfnum[12]<0) break;
-   } /* end cit2__EACHTUP */ 
-    
-     /*citerepilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3730:/ clear");
-     /*clear*/ /*_.CURFLD__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3730:/ clear");
-     /*clear*/ /*_#FLDIX__L13*/ curfnum[12] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3730:/ clear");
-     /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3730:/ clear");
-     /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3763:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@end multitable"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3764:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3720:/ block");
-    /*block*/{}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3768:/ cond");
-  /*cond*/ if (/*_.SUBCLALIST__V17*/ curfptr[16]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3768:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3768:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3769:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:3769:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[1];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3769:/ apply.arg");
-      argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[10]);
-      /*_.RAWSUBCLATUP__V40*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.SUBCLALIST__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.SORTEDSUBCLATUP__V41*/ curfptr[34] = 
-      meltgc_sort_multiple((melt_ptr_t)(/*_.RAWSUBCLATUP__V40*/ curfptr[36]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])));;
-     /*_#NBSUBCLA__L17*/ curfnum[13] = 
-      (melt_multiple_length((melt_ptr_t)(/*_.SORTEDSUBCLATUP__V41*/ curfptr[34])));;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3775:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-     ;
-     
-     #if ENABLE_CHECKING
-      MELT_LOCATION("warmelt-outobj.melt:3776:/ cppif.then");
-     MELT_LOCATION("warmelt-outobj.melt:3776:/ block");
-      /*block*/{
-       /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 
-        callcount;;
-       MELT_LOCATION("warmelt-outobj.melt:3776:/ apply");
-       /*apply*/{
-        union meltparam_un argtab[4];
-        memset(&argtab, 0, sizeof(argtab));
-        MELT_LOCATION("warmelt-outobj.melt:3776:/ apply.arg");
-        argtab[0].bp_cstring =  "makedoc_outclassdef sortedsubclatup";
-        MELT_LOCATION("warmelt-outobj.melt:3776:/ apply.arg");
-        argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[17];
-        MELT_LOCATION("warmelt-outobj.melt:3776:/ apply.arg");
-        argtab[2].bp_cstring =  "warmelt-outobj.melt";
-        MELT_LOCATION("warmelt-outobj.melt:3776:/ apply.arg");
-        argtab[3].bp_long = 3776;
-        /*_.DEBUG_MSG_FUN__V43*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.SORTEDSUBCLATUP__V41*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-        }
-       ;
-       /*_.IFCPP___V42*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[32];;
-       /*epilog*/
-       MELT_LOCATION("warmelt-outobj.melt:3776:/ clear");
-       /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[17] = 0 ;
-       MELT_LOCATION("warmelt-outobj.melt:3776:/ clear");
-       /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[32] = 0 ;}
-      
-      #else /*ENABLE_CHECKING*/
-      MELT_LOCATION("warmelt-outobj.melt:3776:/ cppif.else");
-     /*_.IFCPP___V42*/ curfptr[35] = (/*nil*/NULL);
-      #endif /*ENABLE_CHECKING*/
-      ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3777:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3778:/ locexp");
-     meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#NBSUBCLA__L17*/ curfnum[13]));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3779:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " sub-classes:}"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3780:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-     ;
-     /*citerblock FOREACH_IN_MULTIPLE*/ {
-      /* start cit3__EACHTUP: */
-   long  cit3__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDSUBCLATUP__V41*/ curfptr[34]);
-   for (/*_#SCLIX__L19*/ curfnum[17] = 0;  
-	(/*_#SCLIX__L19*/ curfnum[17] >= 0) && (/*_#SCLIX__L19*/ curfnum[17] <  cit3__EACHTUP_ln);  
-	/*_#SCLIX__L19*/ curfnum[17]++) {
-   /*_.SUBCLA__V44*/ curfptr[32] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDSUBCLATUP__V41*/ curfptr[34]),  /*_#SCLIX__L19*/ curfnum[17]);
-   
-     
-      /*_#I__L20*/ curfnum[19] = 
-       ((/*_#SCLIX__L19*/ curfnum[17]) > (0));;
-      MELT_LOCATION("warmelt-outobj.melt:3784:/ cond");
-      /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3784:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3784:/ block");
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3785:/ locexp");
-        meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( ","));}
-        ;
-        /*epilog*/}
-       ;
-      } /*noelse*/
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3786:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @code{"));}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3787:/ cond");
-      /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SUBCLA__V44*/ curfptr[32]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3787:/ cond.then");
-      MELT_LOCATION("warmelt-outobj.melt:3787:/ getslot");
-       { melt_ptr_t slot=0;
-        melt_object_get_field(slot,(melt_ptr_t)(/*_.SUBCLA__V44*/ curfptr[32]), 1, "NAMED_NAME");/*_.NAMED_NAME__V45*/ curfptr[44] = slot; };
-       ;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3787:/ cond.else");
-      
-       /*_.NAMED_NAME__V45*/ curfptr[44] = NULL;;
-       }
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3787:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V45*/ curfptr[44])));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3788:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-      ;
-      if (/*_#SCLIX__L19*/ curfnum[17]<0) break;
-   } /* end cit3__EACHTUP */ 
-     
-      /*citerepilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3781:/ clear");
-      /*clear*/ /*_.SUBCLA__V44*/ curfptr[32] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3781:/ clear");
-      /*clear*/ /*_#SCLIX__L19*/ curfnum[17] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3781:/ clear");
-      /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3781:/ clear");
-      /*clear*/ /*_.NAMED_NAME__V45*/ curfptr[44] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3790:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:3791:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3769:/ clear");
-     /*clear*/ /*_.RAWSUBCLATUP__V40*/ curfptr[36] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3769:/ clear");
-     /*clear*/ /*_.SORTEDSUBCLATUP__V41*/ curfptr[34] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3769:/ clear");
-     /*clear*/ /*_#NBSUBCLA__L17*/ curfnum[13] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3769:/ clear");
-     /*clear*/ /*_.IFCPP___V42*/ curfptr[35] = 0 ;}
-    ;
-    /*epilog*/}
-   ;
-  } /*noelse*/
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3795:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3795:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOC__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-outobj.melt:3795:/ apply.arg");
-   argtab[1].bp_cstring =  "@strong{class description:} ";
-   /*_.MAKEDOC_OUTDOC__V46*/ curfptr[36] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3796:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.SCLASS_CLABIND__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.CLA__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.CLANCS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.CLFLDS__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_#NBCLANC__L5*/ curfnum[1] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_#NBCLFLDS__L6*/ curfnum[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.DOC__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.MKDOC_SUBCLASSMAP__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.SUBCLALIST__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_#I__L12*/ curfnum[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3681:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTDOC__V46*/ curfptr[36] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3677:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3677:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3677:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_OUTCLASSDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENMACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3802:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3802:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3802:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3803:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3803:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3803:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3803:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3803:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3803:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3803:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3803)?(3803):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3803:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3803:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3803:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3804:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3804:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3804:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3804:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3804:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3804:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3804:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3804)?(3804):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3804:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3804:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3804:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3805:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT macros"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3806:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3807:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT macros"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3808:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3809:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3810:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 9, "MKDOC_MACROS");/*_.MACLIST__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3810:/ cond.else");
-  
-   /*_.MACLIST__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3811:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3811:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   /*_.UNSORTEDMACTUPLE__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.MACLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SORTEDMACTUPLE__V10*/ curfptr[9] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.UNSORTEDMACTUPLE__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3816:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
-  ;
-  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDMACTUPLE__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3817:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3818:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " documented macros."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3819:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3820:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDMACTUPLE__V10*/ curfptr[9]);
-   for (/*_#MACIX__L4*/ curfnum[3] = 0;  
-	(/*_#MACIX__L4*/ curfnum[3] >= 0) && (/*_#MACIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#MACIX__L4*/ curfnum[3]++) {
-   /*_.CURMAC__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDMACTUPLE__V10*/ curfptr[9]),  /*_#MACIX__L4*/ curfnum[3]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3824:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3824:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3824:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3824:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_genmacro curmac";
-      MELT_LOCATION("warmelt-outobj.melt:3824:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-      MELT_LOCATION("warmelt-outobj.melt:3824:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3824:/ apply.arg");
-      argtab[3].bp_long = 3824;
-      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3824:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3824:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3824:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3825:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3825:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[4] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-outobj.melt:3825:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3825:/ cond.then");
-     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3825:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3825:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3825:/ locexp");
-        melt_assert_failed(( "check curmac"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3825)?(3825):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3825:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3825:/ clear");
-     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3825:/ cppif.else");
-   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:3826:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[5])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V16*/ curfptr[14] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3826:/ cond.else");
-    
-     /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.MNAM__V17*/ curfptr[16] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3826:/ cond.else");
-    
-     /*_.MNAM__V17*/ curfptr[16] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3827:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3827:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3827:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), 1, "LOCA_LOCATION");/*_.MLOC__V18*/ curfptr[17] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3827:/ cond.else");
-    
-     /*_.MLOC__V18*/ curfptr[17] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3828:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[5])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3828:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3828:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMAC__V11*/ curfptr[10]), 4, "SEXPMAC_DOC");/*_.MDOC__V19*/ curfptr[18] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3828:/ cond.else");
-    
-     /*_.MDOC__V19*/ curfptr[18] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3830:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3830:/ block");
-     /*block*/{
-      /*_#IS_STRING__L7*/ curfnum[4] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])) == OBMAG_STRING);;
-      MELT_LOCATION("warmelt-outobj.melt:3830:/ cond");
-      /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3830:/ cond.then");
-      /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3830:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3830:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:3830:/ locexp");
-         melt_assert_failed(( "check mnam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3830)?(3830):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3830:/ clear");
-      /*clear*/ /*_#IS_STRING__L7*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3830:/ clear");
-      /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3830:/ cppif.else");
-    /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3831:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3832:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3833:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3834:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3835:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3836:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3837:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3838:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3840:/ cond");
-    /*cond*/ if (/*_.MLOC__V18*/ curfptr[17]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3840:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3840:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3842:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "Macro defined at "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3843:/ locexp");
-      /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.MLOC__V18*/ curfptr[17])) == OBMAG_MIXLOC) 
-  meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), "file @file{%s}, line %d", 
-		       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))), 
-		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))); ;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3844:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3845:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3841:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3847:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3847:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDOC__V19*/ curfptr[18];
-     MELT_LOCATION("warmelt-outobj.melt:3847:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{macro description:} ";
-     /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3848:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ clear");
-    /*clear*/ /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ clear");
-    /*clear*/ /*_.MNAM__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ clear");
-    /*clear*/ /*_.MLOC__V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ clear");
-    /*clear*/ /*_.MDOC__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ clear");
-    /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3826:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] = 0 ;}
-   ;
-   if (/*_#MACIX__L4*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3821:/ clear");
-   /*clear*/ /*_.CURMAC__V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3821:/ clear");
-   /*clear*/ /*_#MACIX__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3821:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3821:/ clear");
-   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ clear");
-  /*clear*/ /*_.MACLIST__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ clear");
-  /*clear*/ /*_.UNSORTEDMACTUPLE__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ clear");
-  /*clear*/ /*_.SORTEDMACTUPLE__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3810:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3802:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3802:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 22
-  void* varptr[22];
-#define CURFRAM_NBVARNUM 7
-  long varnum[7];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<22; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 22;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENPATMACRO", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3856:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3856:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3856:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3857:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3857:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3857:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3857:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3857:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3857:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3857:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3857)?(3857):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3857:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3857:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3857:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3858:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3858:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3858:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3858:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3858:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3858:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3858:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3858)?(3858):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3858:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3858:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3858:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3859:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT patterns"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3860:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3861:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT pattern macros"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3862:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3863:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3864:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 10, "MKDOC_PATMACROS");/*_.PATMACLIST__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3864:/ cond.else");
-  
-   /*_.PATMACLIST__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3865:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3865:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   /*_.UNSORTEDPATMACTUPLE__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.PATMACLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SORTEDPATMACTUPLE__V10*/ curfptr[9] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.UNSORTEDPATMACTUPLE__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3870:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
-  ;
-  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDPATMACTUPLE__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3871:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3872:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " documented pattern-macros."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3873:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDPATMACTUPLE__V10*/ curfptr[9]);
-   for (/*_#PMACIX__L4*/ curfnum[3] = 0;  
-	(/*_#PMACIX__L4*/ curfnum[3] >= 0) && (/*_#PMACIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#PMACIX__L4*/ curfnum[3]++) {
-   /*_.PATMAC__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDPATMACTUPLE__V10*/ curfptr[9]),  /*_#PMACIX__L4*/ curfnum[3]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3877:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3877:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:3877:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:3877:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_genpatmacro patmac";
-      MELT_LOCATION("warmelt-outobj.melt:3877:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-      MELT_LOCATION("warmelt-outobj.melt:3877:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:3877:/ apply.arg");
-      argtab[3].bp_long = 3877;
-      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3877:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3877:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3877:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:3878:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:3878:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[4] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-outobj.melt:3878:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:3878:/ cond.then");
-     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:3878:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:3878:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:3878:/ locexp");
-        melt_assert_failed(( "check patmac"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3878)?(3878):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:3878:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:3878:/ clear");
-     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:3878:/ cppif.else");
-   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:3879:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3880:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), 2, "SEXPMAC_MNAME");/*_.SEXPMAC_MNAME__V16*/ curfptr[14] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3880:/ cond.else");
-    
-     /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPMAC_MNAME__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.MNAM__V17*/ curfptr[16] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3880:/ cond.else");
-    
-     /*_.MNAM__V17*/ curfptr[16] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3881:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3881:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3881:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), 1, "LOCA_LOCATION");/*_.MLOC__V18*/ curfptr[17] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3881:/ cond.else");
-    
-     /*_.MLOC__V18*/ curfptr[17] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3882:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3882:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3882:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.PATMAC__V11*/ curfptr[10]), 4, "SEXPMAC_DOC");/*_.MDOC__V19*/ curfptr[18] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3882:/ cond.else");
-    
-     /*_.MDOC__V19*/ curfptr[18] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:3884:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:3884:/ block");
-     /*block*/{
-      /*_#IS_STRING__L7*/ curfnum[4] = 
-       (melt_magic_discr((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])) == OBMAG_STRING);;
-      MELT_LOCATION("warmelt-outobj.melt:3884:/ cond");
-      /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3884:/ cond.then");
-      /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3884:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3884:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:3884:/ locexp");
-         melt_assert_failed(( "check mnam"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3884)?(3884):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3884:/ clear");
-      /*clear*/ /*_#IS_STRING__L7*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3884:/ clear");
-      /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:3884:/ cppif.else");
-    /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3885:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3886:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3887:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3888:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3889:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3890:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3891:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.MNAM__V17*/ curfptr[16])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3892:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3894:/ cond");
-    /*cond*/ if (/*_.MLOC__V18*/ curfptr[17]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3894:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:3894:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3896:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "Pattern macro defined at "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3897:/ locexp");
-      /*add2sbufteximixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.MLOC__V18*/ curfptr[17])) == OBMAG_MIXLOC) 
-  meltgc_strbuf_printf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), "file @file{%s}, line %d", 
-		       lbasename(LOCATION_FILE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))), 
-		       LOCATION_LINE(melt_location_mixloc((melt_ptr_t)/*_.MLOC__V18*/ curfptr[17]))); ;}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3898:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "."));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3899:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:3895:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/}
-     ;
-    } /*noelse*/
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:3901:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:3901:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.MDOC__V19*/ curfptr[18];
-     MELT_LOCATION("warmelt-outobj.melt:3901:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{pattern macro description:} ";
-     /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:3902:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ clear");
-    /*clear*/ /*_.SEXPMAC_MNAME__V16*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ clear");
-    /*clear*/ /*_.MNAM__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ clear");
-    /*clear*/ /*_.MLOC__V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ clear");
-    /*clear*/ /*_.MDOC__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ clear");
-    /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3880:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTDOC__V22*/ curfptr[20] = 0 ;}
-   ;
-   if (/*_#PMACIX__L4*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3874:/ clear");
-   /*clear*/ /*_.PATMAC__V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3874:/ clear");
-   /*clear*/ /*_#PMACIX__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3874:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3874:/ clear");
-   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
-  /*clear*/ /*_.PATMACLIST__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
-  /*clear*/ /*_.UNSORTEDPATMACTUPLE__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
-  /*clear*/ /*_.SORTEDPATMACTUPLE__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3864:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3856:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3856:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENPATMACRO", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 12
-  long varnum[12];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENCLASS", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3911:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3911:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3911:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3912:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3912:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3912:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3912:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3912:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3912:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3912:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3912)?(3912):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3912:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3912:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3913:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3913:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:3913:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3913:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3913:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3913:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3913:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3913)?(3913):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3913:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3913:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3913:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3914:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT classes"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3915:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3916:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT classes"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3917:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:3918:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3919:/ block");
- /*block*/{
-  /*_.QUOTEDONE__V8*/ curfptr[6] = (/*!konst_1*/ curfrout->tabval[1]);;
-  /*_.QUOTEDZERO__V9*/ curfptr[8] = (/*!konst_2*/ curfrout->tabval[2]);;
-  /*_.QUOTEDMINUSONE__V10*/ curfptr[9] = (/*!konst_3*/ curfrout->tabval[3]);;
-  MELT_LOCATION("warmelt-outobj.melt:3925:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3925:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3925:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 7, "MKDOC_CLASSES");/*_.MKDOC_CLASSES__V11*/ curfptr[10] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3925:/ cond.else");
-  
-   /*_.MKDOC_CLASSES__V11*/ curfptr[10] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3927:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3927:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (0));
-   ;
-   /*_.LAMBDA___V12*/ curfptr[11] = /*_.LAMBDA___V13*/ curfptr[12];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3924:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3924:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
-   MELT_LOCATION("warmelt-outobj.melt:3924:/ apply.arg");
-   argtab[1].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V12*/ curfptr[11];
-   /*_.UNSORTEDCLASSESTUPLE__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MKDOC_CLASSES__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3932:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3932:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3932:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (melt_ptr_t)(/*_.QUOTEDZERO__V9*/ curfptr[8]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3932:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (melt_ptr_t)(/*_.QUOTEDMINUSONE__V10*/ curfptr[9]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3932:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[2] = (melt_ptr_t)(/*_.QUOTEDONE__V8*/ curfptr[6]);
-   ;
-   /*_.CMPCLASSDEPTHNAME__V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3962:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3962:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3962:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (melt_ptr_t)(/*_.QUOTEDZERO__V9*/ curfptr[8]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3962:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (melt_ptr_t)(/*_.QUOTEDMINUSONE__V10*/ curfptr[9]);
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:3962:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[2] = (melt_ptr_t)(/*_.QUOTEDONE__V8*/ curfptr[6]);
-   ;
-   /*_.CMPCLASSNAME__V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;}
-  ;
-  /*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.UNSORTEDCLASSESTUPLE__V14*/ curfptr[13]), (melt_ptr_t)(/*_.CMPCLASSDEPTHNAME__V15*/ curfptr[14]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])));;
-  MELT_LOCATION("warmelt-outobj.melt:3985:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:3985:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (0));
-   ;
-   /*_.CMPCLASSDEF__V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3992:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3992:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:3992:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 7, "MKDOC_CLASSES");/*_.MKDOC_CLASSES__V22*/ curfptr[21] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3992:/ cond.else");
-  
-   /*_.MKDOC_CLASSES__V22*/ curfptr[21] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3992:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:3992:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]);
-   /*_.LIST_TO_MULTIPLE__V23*/ curfptr[22] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MKDOC_CLASSES__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V23*/ curfptr[22]), (melt_ptr_t)(/*_.CMPCLASSDEF__V20*/ curfptr[19]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])));;
-  /*_#DEPTHIX__L3*/ curfnum[0] = -1;;
-  /*_#PREVCLAIX__L4*/ curfnum[3] = -1;;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:3999:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "Table of classes sorted by inheritance depth."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4000:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4001:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@table @strong"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4002:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18]);
-   for (/*_#CLAIX__L5*/ curfnum[4] = 0;  
-	(/*_#CLAIX__L5*/ curfnum[4] >= 0) && (/*_#CLAIX__L5*/ curfnum[4] <  cit1__EACHTUP_ln);  
-	/*_#CLAIX__L5*/ curfnum[4]++) {
-   /*_.CURCLA__V25*/ curfptr[24] = melt_multiple_nth((melt_ptr_t)(/*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18]),  /*_#CLAIX__L5*/ curfnum[4]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4006:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4006:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[5] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[17])));;
-     MELT_LOCATION("warmelt-outobj.melt:4006:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4006:/ cond.then");
-     /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4006:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:4006:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:4006:/ locexp");
-        melt_assert_failed(( "check curcla"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4006)?(4006):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4006:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4006:/ clear");
-     /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4006:/ cppif.else");
-   /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:4007:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[17])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), 5, "CLASS_ANCESTORS");/*_.CLASS_ANCESTORS__V28*/ curfptr[26] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4007:/ cond.else");
-    
-     /*_.CLASS_ANCESTORS__V28*/ curfptr[26] = NULL;;
-     }
-    ;
-    /*_#NBANC__L7*/ curfnum[5] = 
-     (melt_multiple_length((melt_ptr_t)(/*_.CLASS_ANCESTORS__V28*/ curfptr[26])));;
-    /*_#I__L8*/ curfnum[7] = 
-     ((/*_#DEPTHIX__L3*/ curfnum[0]) < (/*_#NBANC__L7*/ curfnum[5]));;
-    MELT_LOCATION("warmelt-outobj.melt:4008:/ cond");
-    /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4008:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4008:/ block");
-     /*block*/{
-      MELT_LOCATION("warmelt-outobj.melt:4010:/ compute");
-      /*_#DEPTHIX__L3*/ curfnum[0] = /*_#SETQ___L9*/ curfnum[8] = /*_#NBANC__L7*/ curfnum[5];;
-      MELT_LOCATION("warmelt-outobj.melt:4011:/ compute");
-      /*_#PREVCLAIX__L4*/ curfnum[3] = /*_#SETQ___L10*/ curfnum[9] = /*_#CLAIX__L5*/ curfnum[4];;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4012:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4013:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@item "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4014:/ locexp");
-      meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#DEPTHIX__L3*/ curfnum[0]));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4015:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( ": "));}
-      ;
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4016:/ locexp");
-      meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-      ;
-      MELT_LOCATION("warmelt-outobj.melt:4009:/ block");
-      /*block*/{}
-      ;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:4008:/ clear");
-      /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:4008:/ clear");
-      /*clear*/ /*_#SETQ___L10*/ curfnum[9] = 0 ;}
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4008:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:4008:/ block");
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4017:/ locexp");
-      meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( ","));}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4019:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " @code{"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4020:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[18])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4020:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4020:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCLA__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4020:/ cond.else");
-    
-     /*_.NAMED_NAME__V29*/ curfptr[28] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4020:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4021:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ clear");
-    /*clear*/ /*_.CLASS_ANCESTORS__V28*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ clear");
-    /*clear*/ /*_#NBANC__L7*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ clear");
-    /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4007:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;}
-   ;
-   if (/*_#CLAIX__L5*/ curfnum[4]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
-   /*clear*/ /*_.CURCLA__V25*/ curfptr[24] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
-   /*clear*/ /*_#CLAIX__L5*/ curfnum[4] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4003:/ clear");
-   /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4024:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4025:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@end table"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4026:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit2__EACHTUP: */
-   long  cit2__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23]);
-   for (/*_#CLAIX__L11*/ curfnum[8] = 0;  
-	(/*_#CLAIX__L11*/ curfnum[8] >= 0) && (/*_#CLAIX__L11*/ curfnum[8] <  cit2__EACHTUP_ln);  
-	/*_#CLAIX__L11*/ curfnum[8]++) {
-   /*_.CURCLADEF__V30*/ curfptr[26] = melt_multiple_nth((melt_ptr_t)(/*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23]),  /*_#CLAIX__L11*/ curfnum[8]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4030:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4030:/ block");
-    /*block*/{
-     /*_#IS_A__L12*/ curfnum[9] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURCLADEF__V30*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[19])));;
-     MELT_LOCATION("warmelt-outobj.melt:4030:/ cond");
-     /*cond*/ if (/*_#IS_A__L12*/ curfnum[9]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4030:/ cond.then");
-     /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4030:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:4030:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:4030:/ locexp");
-        melt_assert_failed(( "check curcladef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4030)?(4030):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V31*/ curfptr[28] = /*_.IFELSE___V32*/ curfptr[31];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4030:/ clear");
-     /*clear*/ /*_#IS_A__L12*/ curfnum[9] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4030:/ clear");
-     /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4030:/ cppif.else");
-   /*_.IFCPP___V31*/ curfptr[28] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:4031:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4031:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:4031:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURCLADEF__V30*/ curfptr[26];
-    MELT_LOCATION("warmelt-outobj.melt:4031:/ apply.arg");
-    argtab[2].bp_long = /*_#CLAIX__L11*/ curfnum[8];
-    /*_.MAKEDOC_OUTCLASSDEF__V33*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTCLASSDEF*/ curfrout->tabval[20])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   if (/*_#CLAIX__L11*/ curfnum[8]<0) break;
-   } /* end cit2__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4027:/ clear");
-   /*clear*/ /*_.CURCLADEF__V30*/ curfptr[26] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4027:/ clear");
-   /*clear*/ /*_#CLAIX__L11*/ curfnum[8] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4027:/ clear");
-   /*clear*/ /*_.IFCPP___V31*/ curfptr[28] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4027:/ clear");
-   /*clear*/ /*_.MAKEDOC_OUTCLASSDEF__V33*/ curfptr[31] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.QUOTEDONE__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.QUOTEDZERO__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.QUOTEDMINUSONE__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.MKDOC_CLASSES__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.LAMBDA___V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.UNSORTEDCLASSESTUPLE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.CMPCLASSDEPTHNAME__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.CMPCLASSNAME__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.DEPTHSORTEDCLASSESTUPLE__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.CMPCLASSDEF__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.MKDOC_CLASSES__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.LIST_TO_MULTIPLE__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_.ALPHASORTEDCLASSDEFTUPLE__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_#DEPTHIX__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3919:/ clear");
-  /*clear*/ /*_#PREVCLAIX__L4*/ curfnum[3] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3911:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3911:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENCLASS", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_142_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_142_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 6
-  void* varptr[6];
-#define CURFRAM_NBVARNUM 1
-  long varnum[1];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<6; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 6;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3927:/ getarg");
- /*_.CLDEF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3927:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3928:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3928:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CLDEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3928:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3928:/ cond.then");
-   /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3928:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3928:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3928:/ locexp");
-      melt_assert_failed(( "check cldef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3928)?(3928):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3928:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3928:/ clear");
-   /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3928:/ cppif.else");
- /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3929:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CLDEF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])))) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3929:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3929:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CLDEF__V2*/ curfptr[1]), 5, "SCLASS_CLABIND");/*_.SCLASS_CLABIND__V5*/ curfptr[3] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3929:/ cond.else");
- 
-  /*_.SCLASS_CLABIND__V5*/ curfptr[3] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3929:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SCLASS_CLABIND__V5*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[1])))) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3929:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3929:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.SCLASS_CLABIND__V5*/ curfptr[3]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V6*/ curfptr[5] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3929:/ cond.else");
- 
-  /*_.CBIND_CLASS__V6*/ curfptr[5] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3927:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.CBIND_CLASS__V6*/ curfptr[5];;
-  MELT_LOCATION("warmelt-outobj.melt:3927:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3927:/ clear");
- /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3927:/ clear");
- /*clear*/ /*_.SCLASS_CLABIND__V5*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3927:/ clear");
- /*clear*/ /*_.CBIND_CLASS__V6*/ curfptr[5] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_142_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_143_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_143_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 20
-  void* varptr[20];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<20; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 20;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3932:/ getarg");
- /*_.CL0__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3932:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CL1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3932:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3933:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3933:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3933:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3933:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3933:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3933:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3933:/ locexp");
-      melt_assert_failed(( "check cl0"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3933)?(3933):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3933:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3933:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3933:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3934:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3934:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3934:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3934:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3934:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3934:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3934:/ locexp");
-      melt_assert_failed(( "check cl1"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3934)?(3934):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3934:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3934:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3934:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3935:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), 5, "CLASS_ANCESTORS");/*_.CL0ANC__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3936:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), 5, "CLASS_ANCESTORS");/*_.CL1ANC__V10*/ curfptr[9] = slot; };
-  ;
-  /*_#NBCL0ANC__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CL0ANC__V9*/ curfptr[8])));;
-  /*_#NBCL1ANC__L4*/ curfnum[3] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.CL1ANC__V10*/ curfptr[9])));;
-  MELT_LOCATION("warmelt-outobj.melt:3939:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.CL0NAM__V11*/ curfptr[10] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3940:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CL1NAM__V12*/ curfptr[11] = slot; };
-  ;
-  /*_#__L5*/ curfnum[4] = 
-   ((/*_.CL0__V2*/ curfptr[1]) == (/*_.CL1__V3*/ curfptr[2]));;
-  MELT_LOCATION("warmelt-outobj.melt:3943:/ cond");
-  /*cond*/ if (/*_#__L5*/ curfnum[4]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3943:/ cond.then");
-  /*_.IFELSE___V13*/ curfptr[12] = (/*~QUOTEDZERO*/ curfclos->tabval[0]);;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3943:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3943:/ block");
-   /*block*/{
-    /*_#I__L6*/ curfnum[5] = 
-     ((/*_#NBCL0ANC__L3*/ curfnum[0]) < (/*_#NBCL1ANC__L4*/ curfnum[3]));;
-    MELT_LOCATION("warmelt-outobj.melt:3945:/ cond");
-    /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3945:/ cond.then");
-    /*_.IFELSE___V14*/ curfptr[13] = (/*~QUOTEDMINUSONE*/ curfclos->tabval[1]);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3945:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3945:/ block");
-     /*block*/{
-      /*_#I__L7*/ curfnum[6] = 
-       ((/*_#NBCL0ANC__L3*/ curfnum[0]) > (/*_#NBCL1ANC__L4*/ curfnum[3]));;
-      MELT_LOCATION("warmelt-outobj.melt:3947:/ cond");
-      /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3947:/ cond.then");
-      /*_.IFELSE___V15*/ curfptr[14] = (/*~QUOTEDONE*/ curfclos->tabval[2]);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3947:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3947:/ block");
-       /*block*/{
-        /*_#STRING___L8*/ curfnum[7] = 
-         melt_string_less((melt_ptr_t)(/*_.CL0NAM__V11*/ curfptr[10]), (melt_ptr_t)(/*_.CL1NAM__V12*/ curfptr[11]));;
-        MELT_LOCATION("warmelt-outobj.melt:3949:/ cond");
-        /*cond*/ if (/*_#STRING___L8*/ curfnum[7]) /*then*/ {
-        MELT_LOCATION("warmelt-outobj.melt:3949:/ cond.then");
-        /*_.IFELSE___V16*/ curfptr[15] = (/*~QUOTEDMINUSONE*/ curfclos->tabval[1]);;
-        } else {MELT_LOCATION("warmelt-outobj.melt:3949:/ cond.else");
-        
-         MELT_LOCATION("warmelt-outobj.melt:3949:/ block");
-         /*block*/{
-          /*_#STRING___L9*/ curfnum[8] = 
-           melt_string_less((melt_ptr_t)(/*_.CL1NAM__V12*/ curfptr[11]), (melt_ptr_t)(/*_.CL0NAM__V11*/ curfptr[10]));;
-          MELT_LOCATION("warmelt-outobj.melt:3951:/ cond");
-          /*cond*/ if (/*_#STRING___L9*/ curfnum[8]) /*then*/ {
-          MELT_LOCATION("warmelt-outobj.melt:3951:/ cond.then");
-          /*_.IFELSE___V17*/ curfptr[16] = (/*~QUOTEDONE*/ curfclos->tabval[2]);;
-          } else {MELT_LOCATION("warmelt-outobj.melt:3951:/ cond.else");
-          
-           MELT_LOCATION("warmelt-outobj.melt:3951:/ block");
-           /*block*/{
-            
-            #if ENABLE_CHECKING
-             MELT_LOCATION("warmelt-outobj.melt:3955:/ cppif.then");
-            MELT_LOCATION("warmelt-outobj.melt:3955:/ block");
-             /*block*/{
-              MELT_LOCATION("warmelt-outobj.melt:3955:/ cond");
-              /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-              MELT_LOCATION("warmelt-outobj.melt:3955:/ cond.then");
-              /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-              } else {MELT_LOCATION("warmelt-outobj.melt:3955:/ cond.else");
-              
-               MELT_LOCATION("warmelt-outobj.melt:3955:/ block");
-               /*block*/{
-                /*block*/{
-                 
-                 {
-                 MELT_LOCATION("warmelt-outobj.melt:3955:/ locexp");
-                 melt_assert_failed(( "cmpclassdepthname same name different classes!"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3955)?(3955):__LINE__, __FUNCTION__);
-;}
-                 ;
-                 /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-                ;
-                /*epilog*/}
-               ;
-               }
-              ;
-              /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];;
-              /*epilog*/
-              MELT_LOCATION("warmelt-outobj.melt:3955:/ clear");
-              /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-             
-             #else /*ENABLE_CHECKING*/
-             MELT_LOCATION("warmelt-outobj.melt:3955:/ cppif.else");
-            /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL);
-             #endif /*ENABLE_CHECKING*/
-             ;
-            MELT_LOCATION("warmelt-outobj.melt:3953:/ block");
-            /*block*/{
-             /*_.PROGN___V20*/ curfptr[18] = (/*nil*/NULL);;}
-            ;
-            /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V20*/ curfptr[18];;
-            /*epilog*/
-            MELT_LOCATION("warmelt-outobj.melt:3951:/ clear");
-            /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;
-            MELT_LOCATION("warmelt-outobj.melt:3951:/ clear");
-            /*clear*/ /*_.PROGN___V20*/ curfptr[18] = 0 ;}
-           ;
-           }
-          ;
-          /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:3949:/ clear");
-          /*clear*/ /*_#STRING___L9*/ curfnum[8] = 0 ;
-          MELT_LOCATION("warmelt-outobj.melt:3949:/ clear");
-          /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;}
-         ;
-         }
-        ;
-        /*_.IFELSE___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3947:/ clear");
-        /*clear*/ /*_#STRING___L8*/ curfnum[7] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3947:/ clear");
-        /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3945:/ clear");
-      /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3945:/ clear");
-      /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3943:/ clear");
-    /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3943:/ clear");
-    /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[12];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_.CL0ANC__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_.CL1ANC__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_#NBCL0ANC__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_#NBCL1ANC__L4*/ curfnum[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_.CL0NAM__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_.CL1NAM__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_#__L5*/ curfnum[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3935:/ clear");
-  /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3932:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-outobj.melt:3932:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3932:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3932:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3932:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_143_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_144_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_144_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 16
-  void* varptr[16];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<16; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 16;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3962:/ getarg");
- /*_.CL0__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3962:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CL1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3962:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3963:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3963:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3963:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3963:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3963:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3963:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3963:/ locexp");
-      melt_assert_failed(( "check cl0"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3963)?(3963):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3963:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3963:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3963:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3964:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3964:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3964:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3964:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3964:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3964:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3964:/ locexp");
-      melt_assert_failed(( "check cl1"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3964)?(3964):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3964:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3964:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3964:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3965:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3965:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL0__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.CL0NAM__V9*/ curfptr[8] = slot; };
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:3966:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CL1__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CL1NAM__V10*/ curfptr[9] = slot; };
-  ;
-  /*_#__L3*/ curfnum[0] = 
-   ((/*_.CL0__V2*/ curfptr[1]) == (/*_.CL1__V3*/ curfptr[2]));;
-  MELT_LOCATION("warmelt-outobj.melt:3969:/ cond");
-  /*cond*/ if (/*_#__L3*/ curfnum[0]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:3969:/ cond.then");
-  /*_.IFELSE___V11*/ curfptr[10] = (/*~QUOTEDZERO*/ curfclos->tabval[0]);;
-  } else {MELT_LOCATION("warmelt-outobj.melt:3969:/ cond.else");
-  
-   MELT_LOCATION("warmelt-outobj.melt:3969:/ block");
-   /*block*/{
-    /*_#STRING___L4*/ curfnum[3] = 
-     melt_string_less((melt_ptr_t)(/*_.CL0NAM__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CL1NAM__V10*/ curfptr[9]));;
-    MELT_LOCATION("warmelt-outobj.melt:3971:/ cond");
-    /*cond*/ if (/*_#STRING___L4*/ curfnum[3]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:3971:/ cond.then");
-    /*_.IFELSE___V12*/ curfptr[11] = (/*~QUOTEDMINUSONE*/ curfclos->tabval[1]);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:3971:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:3971:/ block");
-     /*block*/{
-      /*_#STRING___L5*/ curfnum[4] = 
-       melt_string_less((melt_ptr_t)(/*_.CL1NAM__V10*/ curfptr[9]), (melt_ptr_t)(/*_.CL0NAM__V9*/ curfptr[8]));;
-      MELT_LOCATION("warmelt-outobj.melt:3973:/ cond");
-      /*cond*/ if (/*_#STRING___L5*/ curfnum[4]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:3973:/ cond.then");
-      /*_.IFELSE___V13*/ curfptr[12] = (/*~QUOTEDONE*/ curfclos->tabval[2]);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:3973:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:3973:/ block");
-       /*block*/{
-        
-        #if ENABLE_CHECKING
-         MELT_LOCATION("warmelt-outobj.melt:3977:/ cppif.then");
-        MELT_LOCATION("warmelt-outobj.melt:3977:/ block");
-         /*block*/{
-          MELT_LOCATION("warmelt-outobj.melt:3977:/ cond");
-          /*cond*/ if ((/*nil*/NULL)) /*then*/ {
-          MELT_LOCATION("warmelt-outobj.melt:3977:/ cond.then");
-          /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-          } else {MELT_LOCATION("warmelt-outobj.melt:3977:/ cond.else");
-          
-           MELT_LOCATION("warmelt-outobj.melt:3977:/ block");
-           /*block*/{
-            /*block*/{
-             
-             {
-             MELT_LOCATION("warmelt-outobj.melt:3977:/ locexp");
-             melt_assert_failed(( "cmpclassname same name different classes!"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3977)?(3977):__LINE__, __FUNCTION__);
-;}
-             ;
-             /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-            ;
-            /*epilog*/}
-           ;
-           }
-          ;
-          /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];;
-          /*epilog*/
-          MELT_LOCATION("warmelt-outobj.melt:3977:/ clear");
-          /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-         
-         #else /*ENABLE_CHECKING*/
-         MELT_LOCATION("warmelt-outobj.melt:3977:/ cppif.else");
-        /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL);
-         #endif /*ENABLE_CHECKING*/
-         ;
-        MELT_LOCATION("warmelt-outobj.melt:3975:/ block");
-        /*block*/{
-         /*_.PROGN___V16*/ curfptr[14] = (/*nil*/NULL);;}
-        ;
-        /*_.IFELSE___V13*/ curfptr[12] = /*_.PROGN___V16*/ curfptr[14];;
-        /*epilog*/
-        MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
-        /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;
-        MELT_LOCATION("warmelt-outobj.melt:3973:/ clear");
-        /*clear*/ /*_.PROGN___V16*/ curfptr[14] = 0 ;}
-       ;
-       }
-      ;
-      /*_.IFELSE___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:3971:/ clear");
-      /*clear*/ /*_#STRING___L5*/ curfnum[4] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:3971:/ clear");
-      /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-     ;
-     }
-    ;
-    /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:3969:/ clear");
-    /*clear*/ /*_#STRING___L4*/ curfnum[3] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:3969:/ clear");
-    /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;}
-   ;
-   }
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.IFELSE___V11*/ curfptr[10];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
-  /*clear*/ /*_.CL0NAM__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
-  /*clear*/ /*_.CL1NAM__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
-  /*clear*/ /*_#__L3*/ curfnum[0] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:3965:/ clear");
-  /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:3962:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-outobj.melt:3962:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3962:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3962:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3962:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_144_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_145_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_145_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 10
-  void* varptr[10];
-#define CURFRAM_NBVARNUM 2
-  long varnum[2];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<10; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 10;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:3985:/ getarg");
- /*_.CDF0__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:3985:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.CDF1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:3985:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3986:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3986:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CDF0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3986:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3986:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3986:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3986:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3986:/ locexp");
-      melt_assert_failed(( "check cdf0"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3986)?(3986):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3986:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3986:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3986:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:3987:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:3987:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCLASS*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:3987:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:3987:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:3987:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:3987:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:3987:/ locexp");
-      melt_assert_failed(( "check cdf1"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (3987)?(3987):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:3987:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:3987:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:3987:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:3988:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CDF0__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3988:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3988:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CDF0__V2*/ curfptr[1]), 2, "SDEF_NAME");/*_.SDEF_NAME__V8*/ curfptr[6] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3988:/ cond.else");
- 
-  /*_.SDEF_NAME__V8*/ curfptr[6] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3988:/ cond");
- /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
- MELT_LOCATION("warmelt-outobj.melt:3988:/ cond.then");
- MELT_LOCATION("warmelt-outobj.melt:3988:/ getslot");
-  { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(/*_.CDF1__V3*/ curfptr[2]), 2, "SDEF_NAME");/*_.SDEF_NAME__V9*/ curfptr[8] = slot; };
-  ;
- } else {MELT_LOCATION("warmelt-outobj.melt:3988:/ cond.else");
- 
-  /*_.SDEF_NAME__V9*/ curfptr[8] = NULL;;
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3988:/ apply");
- /*apply*/{
-  union meltparam_un argtab[1];
-  memset(&argtab, 0, sizeof(argtab));
-  MELT_LOCATION("warmelt-outobj.melt:3988:/ apply.arg");
-  argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SDEF_NAME__V9*/ curfptr[8];
-  /*_.COMPARE_NAMED_ALPHA__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SDEF_NAME__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-  }
- ;
- MELT_LOCATION("warmelt-outobj.melt:3985:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPARE_NAMED_ALPHA__V10*/ curfptr[9];;
-  MELT_LOCATION("warmelt-outobj.melt:3985:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
- /*clear*/ /*_.SDEF_NAME__V8*/ curfptr[6] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
- /*clear*/ /*_.SDEF_NAME__V9*/ curfptr[8] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:3985:/ clear");
- /*clear*/ /*_.COMPARE_NAMED_ALPHA__V10*/ curfptr[9] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_145_warmelt_outobj_LAMBDA_*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 21
-  void* varptr[21];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<21; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 21;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_OUTPRIMITIVEDEF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4038:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4038:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:4038:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.PRIMDEF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:4038:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#PRIMIX__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4038:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4039:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4039:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:4039:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4039:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4039:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4039:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4039:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4039)?(4039):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4039:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4039:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4039:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4040:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4040:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:4040:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4040:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4040:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4040:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4040:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4040)?(4040):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4040:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4040:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4040:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4041:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4041:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:4041:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4041:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4041:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4041:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4041:/ locexp");
-      melt_assert_failed(( "check primdef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4041)?(4041):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4041:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4041:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4041:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:4042:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 2, "SDEF_NAME");/*_.PNAM__V11*/ curfptr[9] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4042:/ cond.else");
-  
-   /*_.PNAM__V11*/ curfptr[9] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4043:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4043:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4043:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 4, "SFORMAL_ARGS");/*_.ARGS__V12*/ curfptr[11] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4043:/ cond.else");
-  
-   /*_.ARGS__V12*/ curfptr[11] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4044:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[1])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4044:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4044:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 5, "SPRIM_TYPE");/*_.TYPE__V13*/ curfptr[12] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4044:/ cond.else");
-  
-   /*_.TYPE__V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4045:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4045:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4045:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PRIMDEF__V4*/ curfptr[3]), 3, "SDEF_DOC");/*_.DOC__V14*/ curfptr[13] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4045:/ cond.else");
-  
-   /*_.DOC__V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4047:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4048:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4049:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4049:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4049:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4049:/ cond.else");
-  
-   /*_.NAMED_NAME__V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4049:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4050:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4051:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4052:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4053:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4053:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4053:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.PNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4053:/ cond.else");
-  
-   /*_.NAMED_NAME__V16*/ curfptr[15] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4053:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4054:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4055:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4055:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PRIMDEF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:4055:/ apply.arg");
-   argtab[1].bp_cstring =  "Primitive defined at ";
-   /*_.MAKEDOC_OUTDEFLOC__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4056:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4057:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{result type:} @code{"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.TYPE__V13*/ curfptr[12]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.TYPE__V13*/ curfptr[12]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V18*/ curfptr[17] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4058:/ cond.else");
-  
-   /*_.CTYPE_KEYWORD__V18*/ curfptr[17] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4058:/ cond.else");
-  
-   /*_.NAMED_NAME__V19*/ curfptr[18] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4058:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4059:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4060:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4061:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4061:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ARGS__V12*/ curfptr[11];
-   MELT_LOCATION("warmelt-outobj.melt:4061:/ apply.arg");
-   argtab[1].bp_cstring =  "@strong{primitive formals:}";
-   /*_.MAKEDOC_OUTFORMALS__V20*/ curfptr[19] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4063:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4063:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOC__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:4063:/ apply.arg");
-   argtab[1].bp_cstring =  "@strong{primitive description:} ";
-   /*_.MAKEDOC_OUTDOC__V21*/ curfptr[20] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4064:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.PNAM__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.ARGS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.TYPE__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.DOC__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.CTYPE_KEYWORD__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTFORMALS__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4042:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTDOC__V21*/ curfptr[20] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4038:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4038:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4038:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_OUTPRIMITIVEDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENPRIMITIVE", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4068:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4068:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4068:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4069:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4069:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:4069:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4069:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4069:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4069:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4069:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4069)?(4069):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4069:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4069:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4069:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4070:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4070:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:4070:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4070:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4070:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4070:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4070:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4070)?(4070):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4070:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4070:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4070:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4071:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT primitives"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4072:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4073:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT primitives"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4074:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4075:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4076:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 1, "MKDOC_PRIMITIVES");/*_.RAWPRIMLIST__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4076:/ cond.else");
-  
-   /*_.RAWPRIMLIST__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4077:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4077:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   /*_.RAWPRIMTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWPRIMLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SORTEDPRIMTUP__V10*/ curfptr[9] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWPRIMTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4080:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
-  ;
-  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDPRIMTUP__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4081:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4082:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " primitives."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4083:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDPRIMTUP__V10*/ curfptr[9]);
-   for (/*_#PRIMIX__L4*/ curfnum[3] = 0;  
-	(/*_#PRIMIX__L4*/ curfnum[3] >= 0) && (/*_#PRIMIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#PRIMIX__L4*/ curfnum[3]++) {
-   /*_.CURPRIMDEF__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDPRIMTUP__V10*/ curfptr[9]),  /*_#PRIMIX__L4*/ curfnum[3]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4087:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4087:/ block");
-    /*block*/{
-     /*_#IS_A__L5*/ curfnum[4] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURPRIMDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFPRIMITIVE*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-outobj.melt:4087:/ cond");
-     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4087:/ cond.then");
-     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4087:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:4087:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:4087:/ locexp");
-        melt_assert_failed(( "check curprim"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4087)?(4087):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4087:/ clear");
-     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4087:/ clear");
-     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4087:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:4088:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4088:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:4088:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURPRIMDEF__V11*/ curfptr[10];
-    MELT_LOCATION("warmelt-outobj.melt:4088:/ apply.arg");
-    argtab[2].bp_long = /*_#PRIMIX__L4*/ curfnum[3];
-    /*_.MAKEDOC_OUTPRIMITIVEDEF__V14*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTPRIMITIVEDEF*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:4089:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-   ;
-   if (/*_#PRIMIX__L4*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4084:/ clear");
-   /*clear*/ /*_.CURPRIMDEF__V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4084:/ clear");
-   /*clear*/ /*_#PRIMIX__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4084:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4084:/ clear");
-   /*clear*/ /*_.MAKEDOC_OUTPRIMITIVEDEF__V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
-  /*clear*/ /*_.RAWPRIMLIST__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
-  /*clear*/ /*_.RAWPRIMTUP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
-  /*clear*/ /*_.SORTEDPRIMTUP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4076:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4068:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4068:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENPRIMITIVE", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 18
-  void* varptr[18];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<18; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 18;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_OUTFUNCTIONDEF", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4097:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4097:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- 
- /*getarg#2*/
- MELT_LOCATION("warmelt-outobj.melt:4097:/ getarg");
- if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs;
- /*_.FUNDEF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3])) != NULL);
- 
- 
- /*getarg#3*/
- MELT_LOCATION("warmelt-outobj.melt:4097:/ getarg");
- if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs;
- /*_#PRIMIX__L1*/ curfnum[0] = xargtab_[2].bp_long;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4097:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4098:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4098:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:4098:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4098:/ cond.then");
-   /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4098:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4098:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4098:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4098)?(4098):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4098:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4098:/ clear");
-   /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4098:/ cppif.else");
- /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4099:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4099:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L3*/ curfnum[1] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:4099:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L3*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4099:/ cond.then");
-   /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4099:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4099:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4099:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4099)?(4099):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4099:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L3*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4099:/ clear");
-   /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4099:/ cppif.else");
- /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4100:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4100:/ block");
-  /*block*/{
-   /*_#IS_A__L4*/ curfnum[1] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:4100:/ cond");
-   /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4100:/ cond.then");
-   /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4100:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4100:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4100:/ locexp");
-      melt_assert_failed(( "check fundef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4100)?(4100):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4100:/ clear");
-   /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4100:/ clear");
-   /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4100:/ cppif.else");
- /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:4101:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), 2, "SDEF_NAME");/*_.FNAM__V11*/ curfptr[9] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4101:/ cond.else");
-  
-   /*_.FNAM__V11*/ curfptr[9] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4102:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION_FORMAL*/ curfrout->tabval[3])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4102:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4102:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), 4, "SFORMAL_ARGS");/*_.ARGS__V12*/ curfptr[11] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4102:/ cond.else");
-  
-   /*_.ARGS__V12*/ curfptr[11] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4103:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[2])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4103:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4103:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FUNDEF__V4*/ curfptr[3]), 3, "SDEF_DOC");/*_.DOC__V13*/ curfptr[12] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4103:/ cond.else");
-  
-   /*_.DOC__V13*/ curfptr[12] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4105:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4106:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4107:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4107:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4107:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4107:/ cond.else");
-  
-   /*_.NAMED_NAME__V14*/ curfptr[13] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4107:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4108:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4109:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4110:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4111:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4111:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4111:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.FNAM__V11*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4111:/ cond.else");
-  
-   /*_.NAMED_NAME__V15*/ curfptr[14] = NULL;;
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4111:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4112:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4113:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4113:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FUNDEF__V4*/ curfptr[3];
-   MELT_LOCATION("warmelt-outobj.melt:4113:/ apply.arg");
-   argtab[1].bp_cstring =  "Function defined at ";
-   /*_.MAKEDOC_OUTDEFLOC__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4114:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4115:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4115:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ARGS__V12*/ curfptr[11];
-   MELT_LOCATION("warmelt-outobj.melt:4115:/ apply.arg");
-   argtab[1].bp_cstring =  "@strong{Function formals:}";
-   /*_.MAKEDOC_OUTFORMALS__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4117:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[2];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4117:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DOC__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:4117:/ apply.arg");
-   argtab[1].bp_cstring =  "@strong{Function description:} ";
-   /*_.MAKEDOC_OUTDOC__V18*/ curfptr[17] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4118:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.FNAM__V11*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.ARGS__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.DOC__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTFORMALS__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4101:/ clear");
-  /*clear*/ /*_.MAKEDOC_OUTDOC__V18*/ curfptr[17] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4097:/ clear");
- /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4097:/ clear");
- /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4097:/ clear");
- /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_OUTFUNCTIONDEF", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 14
-  void* varptr[14];
-#define CURFRAM_NBVARNUM 5
-  long varnum[5];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<14; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 14;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENFUNCTION", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4122:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4122:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4122:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4123:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4123:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:4123:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4123:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4123:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4123:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4123:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4123)?(4123):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4123:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4123:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4123:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4124:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4124:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:4124:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4124:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4124:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4124:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4124:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4124)?(4124):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4124:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4124:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4124:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4125:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT functions"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4126:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4127:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT functions"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4128:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4129:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4130:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 2, "MKDOC_FUNCTIONS");/*_.RAWFUNLIST__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4130:/ cond.else");
-  
-   /*_.RAWFUNLIST__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4131:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4131:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   /*_.RAWFUNTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWFUNLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SORTEDFUNTUP__V10*/ curfptr[9] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWFUNTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4134:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
-  ;
-  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDFUNTUP__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4135:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4136:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " functions."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4137:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDFUNTUP__V10*/ curfptr[9]);
-   for (/*_#FUNIX__L4*/ curfnum[3] = 0;  
-	(/*_#FUNIX__L4*/ curfnum[3] >= 0) && (/*_#FUNIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#FUNIX__L4*/ curfnum[3]++) {
-   /*_.CURFUNDEF__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDFUNTUP__V10*/ curfptr[9]),  /*_#FUNIX__L4*/ curfnum[3]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4141:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4141:/ block");
-    /*block*/{
-     /*_#IS_A__L5*/ curfnum[4] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURFUNDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFUN*/ curfrout->tabval[4])));;
-     MELT_LOCATION("warmelt-outobj.melt:4141:/ cond");
-     /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4141:/ cond.then");
-     /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4141:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:4141:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:4141:/ locexp");
-        melt_assert_failed(( "check curfun"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4141)?(4141):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4141:/ clear");
-     /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4141:/ clear");
-     /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4141:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:4142:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[3];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4142:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V3*/ curfptr[2];
-    MELT_LOCATION("warmelt-outobj.melt:4142:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.CURFUNDEF__V11*/ curfptr[10];
-    MELT_LOCATION("warmelt-outobj.melt:4142:/ apply.arg");
-    argtab[2].bp_long = /*_#FUNIX__L4*/ curfnum[3];
-    /*_.MAKEDOC_OUTFUNCTIONDEF__V14*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFUNCTIONDEF*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   
-   {
-   MELT_LOCATION("warmelt-outobj.melt:4143:/ locexp");
-   meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-   ;
-   if (/*_#FUNIX__L4*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
-   /*clear*/ /*_.CURFUNDEF__V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
-   /*clear*/ /*_#FUNIX__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4138:/ clear");
-   /*clear*/ /*_.MAKEDOC_OUTFUNCTIONDEF__V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ clear");
-  /*clear*/ /*_.RAWFUNLIST__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ clear");
-  /*clear*/ /*_.RAWFUNTUP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ clear");
-  /*clear*/ /*_.SORTEDFUNTUP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4130:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4122:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4122:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENFUNCTION", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 34
-  void* varptr[34];
-#define CURFRAM_NBVARNUM 9
-  long varnum[9];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<34; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 34;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENCITERATOR", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4151:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4151:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4151:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4152:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4152:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:4152:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4152:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4152:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4152:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4152:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4152)?(4152):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4152:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4152:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4152:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4153:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4153:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:4153:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4153:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4153:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4153:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4153:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4153)?(4153):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4153:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4153:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4153:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4154:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT c-iterators"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4155:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4156:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT c-iterators"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4157:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4158:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4159:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 3, "MKDOC_CITERATORS");/*_.RAWCITERLIST__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4159:/ cond.else");
-  
-   /*_.RAWCITERLIST__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4160:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4160:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   /*_.RAWCITERTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWCITERLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SORTEDCITERTUP__V10*/ curfptr[9] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWCITERTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4163:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4163:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:4163:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4163:/ apply.arg");
-     argtab[0].bp_cstring =  "makedoc_genciterator rawciterlist";
-     MELT_LOCATION("warmelt-outobj.melt:4163:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:4163:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:4163:/ apply.arg");
-     argtab[3].bp_long = 4163;
-     /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.RAWCITERLIST__V8*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4163:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4163:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4163:/ cppif.else");
-  /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4164:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4164:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:4164:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4164:/ apply.arg");
-     argtab[0].bp_cstring =  "makedoc_genciterator sortedcitertup";
-     MELT_LOCATION("warmelt-outobj.melt:4164:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:4164:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:4164:/ apply.arg");
-     argtab[3].bp_long = 4164;
-     /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SORTEDCITERTUP__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4164:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4164:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4164:/ cppif.else");
-  /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4165:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
-  ;
-  /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCITERTUP__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4166:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4167:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " c-iterators."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4168:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCITERTUP__V10*/ curfptr[9]);
-   for (/*_#CITIX__L6*/ curfnum[5] = 0;  
-	(/*_#CITIX__L6*/ curfnum[5] >= 0) && (/*_#CITIX__L6*/ curfnum[5] <  cit1__EACHTUP_ln);  
-	/*_#CITIX__L6*/ curfnum[5]++) {
-   /*_.CURCITERDEF__V15*/ curfptr[13] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCITERTUP__V10*/ curfptr[9]),  /*_#CITIX__L6*/ curfnum[5]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4172:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4172:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:4172:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:4172:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_genciterator curciter";
-      MELT_LOCATION("warmelt-outobj.melt:4172:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6];
-      MELT_LOCATION("warmelt-outobj.melt:4172:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:4172:/ apply.arg");
-      argtab[3].bp_long = 4172;
-      /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4172:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4172:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4172:/ cppif.else");
-   /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4173:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4173:/ block");
-    /*block*/{
-     /*_#IS_A__L8*/ curfnum[6] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-outobj.melt:4173:/ cond");
-     /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4173:/ cond.then");
-     /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4173:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:4173:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:4173:/ locexp");
-        melt_assert_failed(( "check curciterdef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4173)?(4173):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4173:/ clear");
-     /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4173:/ clear");
-     /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4173:/ cppif.else");
-   /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:4174:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 1, "LOCA_LOCATION");/*_.SLOC__V20*/ curfptr[18] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4174:/ cond.else");
-    
-     /*_.SLOC__V20*/ curfptr[18] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4175:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4175:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4175:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 2, "SDEF_NAME");/*_.SNAM__V21*/ curfptr[20] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4175:/ cond.else");
-    
-     /*_.SNAM__V21*/ curfptr[20] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4176:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4176:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4176:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 3, "SDEF_DOC");/*_.SDOC__V22*/ curfptr[21] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4176:/ cond.else");
-    
-     /*_.SDOC__V22*/ curfptr[21] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4177:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCITERATOR*/ curfrout->tabval[5])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4177:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4177:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCITERDEF__V15*/ curfptr[13]), 5, "SCITERDEF_CITERATOR");/*_.CITER__V23*/ curfptr[22] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4177:/ cond.else");
-    
-     /*_.CITER__V23*/ curfptr[22] = NULL;;
-     }
-    ;
-    
-    #if ENABLE_CHECKING
-     MELT_LOCATION("warmelt-outobj.melt:4179:/ cppif.then");
-    MELT_LOCATION("warmelt-outobj.melt:4179:/ block");
-     /*block*/{
-      /*_#IS_A__L9*/ curfnum[6] = 
-       melt_is_instance_of((melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])));;
-      MELT_LOCATION("warmelt-outobj.melt:4179:/ cond");
-      /*cond*/ if (/*_#IS_A__L9*/ curfnum[6]) /*then*/ {
-      MELT_LOCATION("warmelt-outobj.melt:4179:/ cond.then");
-      /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);;
-      } else {MELT_LOCATION("warmelt-outobj.melt:4179:/ cond.else");
-      
-       MELT_LOCATION("warmelt-outobj.melt:4179:/ block");
-       /*block*/{
-        /*block*/{
-         
-         {
-         MELT_LOCATION("warmelt-outobj.melt:4179:/ locexp");
-         melt_assert_failed(( "check citer"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4179)?(4179):__LINE__, __FUNCTION__);
-;}
-         ;
-         /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-        ;
-        /*epilog*/}
-       ;
-       }
-      ;
-      /*_.IFCPP___V24*/ curfptr[23] = /*_.IFELSE___V25*/ curfptr[24];;
-      /*epilog*/
-      MELT_LOCATION("warmelt-outobj.melt:4179:/ clear");
-      /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ;
-      MELT_LOCATION("warmelt-outobj.melt:4179:/ clear");
-      /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;}
-     
-     #else /*ENABLE_CHECKING*/
-     MELT_LOCATION("warmelt-outobj.melt:4179:/ cppif.else");
-    /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL);
-     #endif /*ENABLE_CHECKING*/
-     ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4180:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4181:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4182:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4182:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4182:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[24] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4182:/ cond.else");
-    
-     /*_.NAMED_NAME__V26*/ curfptr[24] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4182:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ curfptr[24])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4183:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4184:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4185:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4186:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[9])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4186:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4186:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V21*/ curfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[26] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4186:/ cond.else");
-    
-     /*_.NAMED_NAME__V27*/ curfptr[26] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4186:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[26])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4187:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4188:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4188:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCITERDEF__V15*/ curfptr[13];
-     MELT_LOCATION("warmelt-outobj.melt:4188:/ apply.arg");
-     argtab[1].bp_cstring =  "C-iterator defined at ";
-     /*_.MAKEDOC_OUTDEFLOC__V28*/ curfptr[27] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4189:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4190:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4190:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4190:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), 2, "CITER_START_FORMALS");/*_.CITER_START_FORMALS__V29*/ curfptr[28] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4190:/ cond.else");
-    
-     /*_.CITER_START_FORMALS__V29*/ curfptr[28] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4190:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4190:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITER_START_FORMALS__V29*/ curfptr[28];
-     MELT_LOCATION("warmelt-outobj.melt:4190:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{c-iterator start formals:}";
-     /*_.MAKEDOC_OUTFORMALS__V30*/ curfptr[29] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4191:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4192:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), (melt_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4192:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4192:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CITER__V23*/ curfptr[22]), 4, "CITER_BODY_FORMALS");/*_.CITER_BODY_FORMALS__V31*/ curfptr[30] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4192:/ cond.else");
-    
-     /*_.CITER_BODY_FORMALS__V31*/ curfptr[30] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4192:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4192:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CITER_BODY_FORMALS__V31*/ curfptr[30];
-     MELT_LOCATION("warmelt-outobj.melt:4192:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{c-iterator body formals:}";
-     /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[31] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4194:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4194:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SDOC__V22*/ curfptr[21];
-     MELT_LOCATION("warmelt-outobj.melt:4194:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{C-iterator description:} ";
-     /*_.MAKEDOC_OUTDOC__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4195:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.SLOC__V20*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.SNAM__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.SDOC__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.CITER__V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[26] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V28*/ curfptr[27] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.CITER_START_FORMALS__V29*/ curfptr[28] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V30*/ curfptr[29] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.CITER_BODY_FORMALS__V31*/ curfptr[30] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[31] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4174:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTDOC__V33*/ curfptr[32] = 0 ;}
-   ;
-   if (/*_#CITIX__L6*/ curfnum[5]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4169:/ clear");
-   /*clear*/ /*_.CURCITERDEF__V15*/ curfptr[13] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4169:/ clear");
-   /*clear*/ /*_#CITIX__L6*/ curfnum[5] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4169:/ clear");
-   /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4169:/ clear");
-   /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
-  /*clear*/ /*_.RAWCITERLIST__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
-  /*clear*/ /*_.RAWCITERTUP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
-  /*clear*/ /*_.SORTEDCITERTUP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
-  /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
-  /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4159:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4199:/ block");
- /*block*/{
-  /*_.RETVAL___V34*/ curfptr[18] = (/*nil*/NULL);;
-  MELT_LOCATION("warmelt-outobj.melt:4199:/ block");
-  /*block*/{
-   /*_.RETVAL___V1*/ curfptr[0] = /*_.RETVAL___V34*/ curfptr[18];;
-   MELT_LOCATION("warmelt-outobj.melt:4199:/ finalreturn");
-   ;
-   /*finalret*/ goto labend_rout ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4199:/ clear");
-  /*clear*/ /*_.RETVAL___V34*/ curfptr[18] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4151:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4151:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENCITERATOR", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 33
-  void* varptr[33];
-#define CURFRAM_NBVARNUM 6
-  long varnum[6];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<33; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 33;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENCMATCHER", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4205:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4205:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4205:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4206:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4206:/ block");
-  /*block*/{
-   /*_#IS_A__L1*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])));;
-   MELT_LOCATION("warmelt-outobj.melt:4206:/ cond");
-   /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4206:/ cond.then");
-   /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4206:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4206:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4206:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4206)?(4206):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4206:/ clear");
-   /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4206:/ clear");
-   /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4206:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4207:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4207:/ block");
-  /*block*/{
-   /*_#IS_STRBUF__L2*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2])) == OBMAG_STRBUF);;
-   MELT_LOCATION("warmelt-outobj.melt:4207:/ cond");
-   /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4207:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4207:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4207:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4207:/ locexp");
-      melt_assert_failed(( "check outb"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4207)?(4207):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4207:/ clear");
-   /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4207:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4207:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4208:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@node MELT c-matchers"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4209:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4210:/ locexp");
- meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@section MELT c-matchers"));}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4211:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4212:/ locexp");
- meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4213:/ block");
- /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ cond");
-  /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[0])))) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ cond.then");
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ getslot");
-   { melt_ptr_t slot=0;
-    melt_object_get_field(slot,(melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), 4, "MKDOC_CMATCHERS");/*_.RAWCMATCHLIST__V8*/ curfptr[6] = slot; };
-   ;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4213:/ cond.else");
-  
-   /*_.RAWCMATCHLIST__V8*/ curfptr[6] = NULL;;
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4214:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4214:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]);
-   /*_.RAWCMATCHTUP__V9*/ curfptr[8] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.RAWCMATCHLIST__V8*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.SORTEDCMATCHTUP__V10*/ curfptr[9] = 
-   meltgc_sort_multiple((melt_ptr_t)(/*_.RAWCMATCHTUP__V9*/ curfptr[8]), (melt_ptr_t)((/*!COMPARE_NAMED_ALPHA*/ curfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4217:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "There are "));}
-  ;
-  /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 
-   (melt_multiple_length((melt_ptr_t)(/*_.SORTEDCMATCHTUP__V10*/ curfptr[9])));;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4218:/ locexp");
-  meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0]));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4219:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( " c-matchers."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4220:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-  ;
-  /*citerblock FOREACH_IN_MULTIPLE*/ {
-   /* start cit1__EACHTUP: */
-   long  cit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTEDCMATCHTUP__V10*/ curfptr[9]);
-   for (/*_#CITIX__L4*/ curfnum[3] = 0;  
-	(/*_#CITIX__L4*/ curfnum[3] >= 0) && (/*_#CITIX__L4*/ curfnum[3] <  cit1__EACHTUP_ln);  
-	/*_#CITIX__L4*/ curfnum[3]++) {
-   /*_.CURCMATCHDEF__V11*/ curfptr[10] = melt_multiple_nth((melt_ptr_t)(/*_.SORTEDCMATCHTUP__V10*/ curfptr[9]),  /*_#CITIX__L4*/ curfnum[3]);
-   
-  
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4224:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4224:/ block");
-    /*block*/{
-     /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 
-      callcount;;
-     MELT_LOCATION("warmelt-outobj.melt:4224:/ apply");
-     /*apply*/{
-      union meltparam_un argtab[4];
-      memset(&argtab, 0, sizeof(argtab));
-      MELT_LOCATION("warmelt-outobj.melt:4224:/ apply.arg");
-      argtab[0].bp_cstring =  "makedoc_gencmatcher curcmatch";
-      MELT_LOCATION("warmelt-outobj.melt:4224:/ apply.arg");
-      argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4];
-      MELT_LOCATION("warmelt-outobj.melt:4224:/ apply.arg");
-      argtab[2].bp_cstring =  "warmelt-outobj.melt";
-      MELT_LOCATION("warmelt-outobj.melt:4224:/ apply.arg");
-      argtab[3].bp_long = 4224;
-      /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-      }
-     ;
-     /*_.IFCPP___V12*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4224:/ clear");
-     /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4224:/ clear");
-     /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4224:/ cppif.else");
-   /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   
-   #if ENABLE_CHECKING
-    MELT_LOCATION("warmelt-outobj.melt:4225:/ cppif.then");
-   MELT_LOCATION("warmelt-outobj.melt:4225:/ block");
-    /*block*/{
-     /*_#IS_A__L6*/ curfnum[4] = 
-      melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[5])));;
-     MELT_LOCATION("warmelt-outobj.melt:4225:/ cond");
-     /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4225:/ cond.then");
-     /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4225:/ cond.else");
-     
-      MELT_LOCATION("warmelt-outobj.melt:4225:/ block");
-      /*block*/{
-       /*block*/{
-        
-        {
-        MELT_LOCATION("warmelt-outobj.melt:4225:/ locexp");
-        melt_assert_failed(( "check curcmatchdef"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4225)?(4225):__LINE__, __FUNCTION__);
-;}
-        ;
-        /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-       ;
-       /*epilog*/}
-      ;
-      }
-     ;
-     /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4225:/ clear");
-     /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4225:/ clear");
-     /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;}
-    
-    #else /*ENABLE_CHECKING*/
-    MELT_LOCATION("warmelt-outobj.melt:4225:/ cppif.else");
-   /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL);
-    #endif /*ENABLE_CHECKING*/
-    ;
-   MELT_LOCATION("warmelt-outobj.melt:4226:/ block");
-   /*block*/{
-    MELT_LOCATION("warmelt-outobj.melt:4227:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4227:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4227:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), 2, "SDEF_NAME");/*_.SNAM__V16*/ curfptr[14] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4227:/ cond.else");
-    
-     /*_.SNAM__V16*/ curfptr[14] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4228:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFINITION*/ curfrout->tabval[6])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4228:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4228:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), 3, "SDEF_DOC");/*_.SDOC__V17*/ curfptr[16] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4228:/ cond.else");
-    
-     /*_.SDOC__V17*/ curfptr[16] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4229:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), (melt_ptr_t)((/*!CLASS_SOURCE_DEFCMATCHER*/ curfrout->tabval[5])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4229:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4229:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCMATCHDEF__V11*/ curfptr[10]), 5, "SCMATDEF_CMATCHER");/*_.CMATCH__V18*/ curfptr[17] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4229:/ cond.else");
-    
-     /*_.CMATCH__V18*/ curfptr[17] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4230:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4230:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4230:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), 2, "AMATCH_IN");/*_.CMIN__V19*/ curfptr[18] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4230:/ cond.else");
-    
-     /*_.CMIN__V19*/ curfptr[18] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4231:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4231:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4231:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), 3, "AMATCH_MATCHBIND");/*_.CMABIND__V20*/ curfptr[19] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4231:/ cond.else");
-    
-     /*_.CMABIND__V20*/ curfptr[19] = NULL;;
-     }
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4232:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), (melt_ptr_t)((/*!CLASS_ANY_MATCHER*/ curfrout->tabval[7])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4232:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4232:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.CMATCH__V18*/ curfptr[17]), 4, "AMATCH_OUT");/*_.CMOUT__V21*/ curfptr[20] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4232:/ cond.else");
-    
-     /*_.CMOUT__V21*/ curfptr[20] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4234:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4235:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@subsection @var{"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4236:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4236:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4236:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[21] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4236:/ cond.else");
-    
-     /*_.NAMED_NAME__V22*/ curfptr[21] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4236:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V22*/ curfptr[21])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4237:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4238:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4239:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4240:/ cond");
-    /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4240:/ cond.then");
-    MELT_LOCATION("warmelt-outobj.melt:4240:/ getslot");
-     { melt_ptr_t slot=0;
-      melt_object_get_field(slot,(melt_ptr_t)(/*_.SNAM__V16*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; };
-     ;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4240:/ cond.else");
-    
-     /*_.NAMED_NAME__V23*/ curfptr[22] = NULL;;
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4240:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22])));}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4241:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4242:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4242:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURCMATCHDEF__V11*/ curfptr[10];
-     MELT_LOCATION("warmelt-outobj.melt:4242:/ apply.arg");
-     argtab[1].bp_cstring =  "C-matcher defined at ";
-     /*_.MAKEDOC_OUTDEFLOC__V24*/ curfptr[23] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDEFLOC*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4243:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4244:/ locexp");
-    meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@strong{c-matcher matching formal:} @var{"));}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4245:/ block");
-    /*block*/{
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[10])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), 0, "BINDER");/*_.MANAMB__V25*/ curfptr[24] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4245:/ cond.else");
-     
-      /*_.MANAMB__V25*/ curfptr[24] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:4246:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4246:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:4246:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[25] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4246:/ cond.else");
-     
-      /*_.NAMED_NAME__V26*/ curfptr[25] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4246:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V26*/ curfptr[25])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4247:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "} - @slanted{"));}
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:4251:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[11])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4251:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:4251:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CMABIND__V20*/ curfptr[19]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V27*/ curfptr[26] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4251:/ cond.else");
-     
-      /*_.FBIND_TYPE__V27*/ curfptr[26] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:4250:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V27*/ curfptr[26]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[12])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4250:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:4250:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.FBIND_TYPE__V27*/ curfptr[26]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V28*/ curfptr[27] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4250:/ cond.else");
-     
-      /*_.CTYPE_KEYWORD__V28*/ curfptr[27] = NULL;;
-      }
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:4249:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V28*/ curfptr[27]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4249:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:4249:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.CTYPE_KEYWORD__V28*/ curfptr[27]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[28] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4249:/ cond.else");
-     
-      /*_.NAMED_NAME__V29*/ curfptr[28] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4248:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[28])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4252:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "}"));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4253:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4254:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), ( "@vindex "));}
-     ;
-     MELT_LOCATION("warmelt-outobj.melt:4255:/ cond");
-     /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[8])))) /*then*/ {
-     MELT_LOCATION("warmelt-outobj.melt:4255:/ cond.then");
-     MELT_LOCATION("warmelt-outobj.melt:4255:/ getslot");
-      { melt_ptr_t slot=0;
-       melt_object_get_field(slot,(melt_ptr_t)(/*_.MANAMB__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V30*/ curfptr[29] = slot; };
-      ;
-     } else {MELT_LOCATION("warmelt-outobj.melt:4255:/ cond.else");
-     
-      /*_.NAMED_NAME__V30*/ curfptr[29] = NULL;;
-      }
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4255:/ locexp");
-     meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V30*/ curfptr[29])));}
-     ;
-     
-     {
-     MELT_LOCATION("warmelt-outobj.melt:4256:/ locexp");
-     meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-     ;
-     /*epilog*/
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
-     /*clear*/ /*_.MANAMB__V25*/ curfptr[24] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[25] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
-     /*clear*/ /*_.FBIND_TYPE__V27*/ curfptr[26] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
-     /*clear*/ /*_.CTYPE_KEYWORD__V28*/ curfptr[27] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[28] = 0 ;
-     MELT_LOCATION("warmelt-outobj.melt:4245:/ clear");
-     /*clear*/ /*_.NAMED_NAME__V30*/ curfptr[29] = 0 ;}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4258:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4258:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMIN__V19*/ curfptr[18];
-     MELT_LOCATION("warmelt-outobj.melt:4258:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{c-matcher input formals:}";
-     /*_.MAKEDOC_OUTFORMALS__V31*/ curfptr[24] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4259:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4260:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4260:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CMOUT__V21*/ curfptr[20];
-     MELT_LOCATION("warmelt-outobj.melt:4260:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{c-matcher output formals:}";
-     /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[25] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTFORMALS*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4261:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    MELT_LOCATION("warmelt-outobj.melt:4262:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[2];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4262:/ apply.arg");
-     argtab[0].bp_aptr = (melt_ptr_t*) &/*_.SDOC__V17*/ curfptr[16];
-     MELT_LOCATION("warmelt-outobj.melt:4262:/ apply.arg");
-     argtab[1].bp_cstring =  "@strong{C-matcher description:} ";
-     /*_.MAKEDOC_OUTDOC__V33*/ curfptr[26] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_OUTDOC*/ curfrout->tabval[14])), (melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    
-    {
-    MELT_LOCATION("warmelt-outobj.melt:4263:/ locexp");
-    meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V3*/ curfptr[2]), (0), 0);}
-    ;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.SNAM__V16*/ curfptr[14] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.SDOC__V17*/ curfptr[16] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.CMATCH__V18*/ curfptr[17] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.CMIN__V19*/ curfptr[18] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.CMABIND__V20*/ curfptr[19] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.CMOUT__V21*/ curfptr[20] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[21] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTDEFLOC__V24*/ curfptr[23] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V31*/ curfptr[24] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTFORMALS__V32*/ curfptr[25] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4226:/ clear");
-    /*clear*/ /*_.MAKEDOC_OUTDOC__V33*/ curfptr[26] = 0 ;}
-   ;
-   if (/*_#CITIX__L4*/ curfnum[3]<0) break;
-   } /* end cit1__EACHTUP */ 
-  
-   /*citerepilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4221:/ clear");
-   /*clear*/ /*_.CURCMATCHDEF__V11*/ curfptr[10] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4221:/ clear");
-   /*clear*/ /*_#CITIX__L4*/ curfnum[3] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4221:/ clear");
-   /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4221:/ clear");
-   /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ clear");
-  /*clear*/ /*_.RAWCMATCHLIST__V8*/ curfptr[6] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ clear");
-  /*clear*/ /*_.RAWCMATCHTUP__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ clear");
-  /*clear*/ /*_.SORTEDCMATCHTUP__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4213:/ clear");
-  /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4205:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4205:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENCMATCHER", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 17
-  void* varptr[17];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<17; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 17;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_GENOUTPUT", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4273:/ getarg");
- /*_.MDINFO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4273:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.OUTARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4273:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4274:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4274:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:4274:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4274:/ apply.arg");
-    argtab[0].bp_cstring =  "makedoc_genoutput mdinfo";
-    MELT_LOCATION("warmelt-outobj.melt:4274:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:4274:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:4274:/ apply.arg");
-    argtab[3].bp_long = 4274;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4274:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4274:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4274:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4275:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4275:/ block");
-  /*block*/{
-   /*_#IS_A__L2*/ curfnum[0] = 
-    melt_is_instance_of((melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[1])));;
-   MELT_LOCATION("warmelt-outobj.melt:4275:/ cond");
-   /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4275:/ cond.then");
-   /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4275:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4275:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4275:/ locexp");
-      melt_assert_failed(( "check mdinfo"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4275)?(4275):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4275:/ clear");
-   /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4275:/ clear");
-   /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4275:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4276:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4276:/ block");
-  /*block*/{
-   /*_#IS_STRING__L3*/ curfnum[0] = 
-    (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])) == OBMAG_STRING);;
-   MELT_LOCATION("warmelt-outobj.melt:4276:/ cond");
-   /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ {
-   MELT_LOCATION("warmelt-outobj.melt:4276:/ cond.then");
-   /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);;
-   } else {MELT_LOCATION("warmelt-outobj.melt:4276:/ cond.else");
-   
-    MELT_LOCATION("warmelt-outobj.melt:4276:/ block");
-    /*block*/{
-     /*block*/{
-      
-      {
-      MELT_LOCATION("warmelt-outobj.melt:4276:/ locexp");
-      melt_assert_failed(( "check outarg"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4276)?(4276):__LINE__, __FUNCTION__);
-;}
-      ;
-      /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-     ;
-     /*epilog*/}
-    ;
-    }
-   ;
-   /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4276:/ clear");
-   /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4276:/ clear");
-   /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4276:/ cppif.else");
- /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:4277:/ block");
- /*block*/{
-  /*_.OUTB__V10*/ curfptr[8] = 
-   meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[2])), (char*)0);;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4279:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@c **** makedoc generated file "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4280:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4281:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4284:/ locexp");
-  time_t now = 0;
-	  time (&now);
-	  meltgc_add_out_raw (/*_.OUTB__V10*/ curfptr[8], "@c **** generated ");
-	  meltgc_add_out_raw (/*_.OUTB__V10*/ curfptr[8], ctime (&now));
-	  ;}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4290:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@node MELT Programming Reference"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4291:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4292:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@chapter MELT Programming Reference"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4293:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4294:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@menu"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4295:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4296:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT macros:: The MELT macros."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4297:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4298:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT patterns:: The MELT pattern macros."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4299:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4300:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT classes:: The MELT classes."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4301:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4302:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT primitives:: The MELT primitives."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4303:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4304:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT functions:: The MELT functions."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4305:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4306:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT c-iterators:: The MELT c-iterators."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4307:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4308:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "* MELT c-matchers:: The MELT c-matchers."));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4309:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4310:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@end menu"));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4311:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4313:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4313:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENMACRO__V11*/ curfptr[10] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENMACRO*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4315:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4315:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENPATMACRO__V12*/ curfptr[11] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENPATMACRO*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4317:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4317:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENCLASS__V13*/ curfptr[12] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCLASS*/ curfrout->tabval[5])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4319:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4319:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENPRIMITIVE__V14*/ curfptr[13] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENPRIMITIVE*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4321:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4321:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENFUNCTION__V15*/ curfptr[14] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENFUNCTION*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4323:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4323:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENCITERATOR__V16*/ curfptr[15] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCITERATOR*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4325:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4325:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTB__V10*/ curfptr[8];
-   /*_.MAKEDOC_GENCMATCHER__V17*/ curfptr[16] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENCMATCHER*/ curfrout->tabval[9])), (melt_ptr_t)(/*_.MDINFO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4326:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4327:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), ( "@c **** end of makedoc generated file "));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4328:/ locexp");
-  meltgc_add_strbuf((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.OUTARG__V3*/ curfptr[2])));}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4329:/ locexp");
-  meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTB__V10*/ curfptr[8]), (0), 0);}
-  ;
-  
-  {
-  MELT_LOCATION("warmelt-outobj.melt:4330:/ locexp");
-   melt_output_strbuf_to_file((/*_.OUTB__V10*/ curfptr[8]), melt_string_str(/*_.OUTARG__V3*/ curfptr[2])) ;}
-  ;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.OUTB__V10*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENMACRO__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENPATMACRO__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENCLASS__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENPRIMITIVE__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENFUNCTION__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENCITERATOR__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4277:/ clear");
-  /*clear*/ /*_.MAKEDOC_GENCMATCHER__V17*/ curfptr[16] = 0 ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4273:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4273:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4273:/ clear");
- /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_GENOUTPUT", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*noretval*/ NULL);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_153_warmelt_outobj_MAKEDOC_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_153_warmelt_outobj_MAKEDOC_DOCMD_st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 40
-  void* varptr[40];
-#define CURFRAM_NBVARNUM 4
-  long varnum[4];
-/*others*/
-const char* loc_CSTRING__o0;
-const char* loc_CSTRING__o1;
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<40; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 40;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("MAKEDOC_DOCMD", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4336:/ getarg");
- /*_.CMD__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- 
- /*getarg#1*/
- MELT_LOCATION("warmelt-outobj.melt:4336:/ getarg");
- if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs;
- /*_.MODULDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL;
- gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2])) != NULL);
- 
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4336:/ block");
-/*block*/{
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4337:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4337:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:4337:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4337:/ apply.arg");
-    argtab[0].bp_cstring =  "start makedoc_docmd cmd";
-    MELT_LOCATION("warmelt-outobj.melt:4337:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:4337:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:4337:/ apply.arg");
-    argtab[3].bp_long = 4337;
-    /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CMD__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4337:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4337:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4337:/ cppif.else");
- /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- 
- #if ENABLE_CHECKING
-  MELT_LOCATION("warmelt-outobj.melt:4338:/ cppif.then");
- MELT_LOCATION("warmelt-outobj.melt:4338:/ block");
-  /*block*/{
-   /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 
-    callcount;;
-   MELT_LOCATION("warmelt-outobj.melt:4338:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[4];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4338:/ apply.arg");
-    argtab[0].bp_cstring =  "start makedoc_docmd moduldata";
-    MELT_LOCATION("warmelt-outobj.melt:4338:/ apply.arg");
-    argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0];
-    MELT_LOCATION("warmelt-outobj.melt:4338:/ apply.arg");
-    argtab[2].bp_cstring =  "warmelt-outobj.melt";
-    MELT_LOCATION("warmelt-outobj.melt:4338:/ apply.arg");
-    argtab[3].bp_long = 4338;
-    /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.MODULDATA__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4338:/ clear");
-   /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4338:/ clear");
-   /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;}
-  
-  #else /*ENABLE_CHECKING*/
-  MELT_LOCATION("warmelt-outobj.melt:4338:/ cppif.else");
- /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL);
-  #endif /*ENABLE_CHECKING*/
-  ;
- MELT_LOCATION("warmelt-outobj.melt:4339:/ block");
- /*block*/{
-  /*_.PARMODENV__V9*/ curfptr[8] = (/*!konst_1*/ curfrout->tabval[1]);;
-  MELT_LOCATION("warmelt-outobj.melt:4341:/ cond");
-  /*cond*/ if (/*_.MODULDATA__V3*/ curfptr[2]) /*then*/ {
-  MELT_LOCATION("warmelt-outobj.melt:4341:/ cond.then");
-  /*_.CURENV__V10*/ curfptr[9] = /*_.MODULDATA__V3*/ curfptr[2];;
-  } else {MELT_LOCATION("warmelt-outobj.melt:4341:/ cond.else");
-  
-   /*_.CURENV__V10*/ curfptr[9] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);;
-   }
-  ;
-  /*_?*/ curfram__.loc_CSTRING__o0 = 
-   melt_argument( "arglist");;
-  /*_.ARGLIST__V11*/ curfptr[10] = 
-   meltgc_new_split_string(/*_?*/ curfram__.loc_CSTRING__o0, ',', (melt_ptr_t) (/*!DISCR_STRING*/ curfrout->tabval[3]));;
-  /*_?*/ curfram__.loc_CSTRING__o1 = 
-   melt_argument( "output");;
-  /*_.OUTARG__V12*/ curfptr[11] = 
-   (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), (/*_?*/ curfram__.loc_CSTRING__o1)));;
-  /*_.RLIST__V13*/ curfptr[12] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V14*/ curfptr[13] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V15*/ curfptr[14] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V16*/ curfptr[15] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V17*/ curfptr[16] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V18*/ curfptr[17] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V19*/ curfptr[18] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V20*/ curfptr[19] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V21*/ curfptr[20] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V22*/ curfptr[21] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_LIST__V23*/ curfptr[22] = 
-   (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));;
-  /*_.MAKE_MAPOBJECT__V24*/ curfptr[23] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (1000)));;
-  /*_.MAKE_MAPOBJECT__V25*/ curfptr[24] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (200)));;
-  /*_.MAKE_MAPOBJECT__V26*/ curfptr[25] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (400)));;
-  /*_.MAKE_MAPOBJECT__V27*/ curfptr[26] = 
-   (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[6])), (400)));;
-  MELT_LOCATION("warmelt-outobj.melt:4346:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ rawallocobj");
-   /*rawallocobj*/ { melt_ptr_t newobj = 0;
-    melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_MAKEDOC_INFO*/ curfrout->tabval[5])), (15), "CLASS_MAKEDOC_INFO");/*_.INST__V29*/ curfptr[28] =
-    newobj; };
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_PRIMITIVES", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.MAKE_LIST__V14*/ curfptr[13]), "MKDOC_PRIMITIVES");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_FUNCTIONS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.MAKE_LIST__V15*/ curfptr[14]), "MKDOC_FUNCTIONS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_CITERATORS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (3), (/*_.MAKE_LIST__V16*/ curfptr[15]), "MKDOC_CITERATORS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_CMATCHERS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (4), (/*_.MAKE_LIST__V17*/ curfptr[16]), "MKDOC_CMATCHERS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_SELECTORS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (5), (/*_.MAKE_LIST__V18*/ curfptr[17]), "MKDOC_SELECTORS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_FIELDS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (6), (/*_.MAKE_LIST__V19*/ curfptr[18]), "MKDOC_FIELDS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_CLASSES", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (7), (/*_.MAKE_LIST__V20*/ curfptr[19]), "MKDOC_CLASSES");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_INSTANCES", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (8), (/*_.MAKE_LIST__V21*/ curfptr[20]), "MKDOC_INSTANCES");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_MACROS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (9), (/*_.MAKE_LIST__V22*/ curfptr[21]), "MKDOC_MACROS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_PATMACROS", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (10), (/*_.MAKE_LIST__V23*/ curfptr[22]), "MKDOC_PATMACROS");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_FORMALOCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (11), (/*_.MAKE_MAPOBJECT__V24*/ curfptr[23]), "MKDOC_FORMALOCCMAP");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_PREDEFMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (12), (/*_.MAKE_MAPOBJECT__V25*/ curfptr[24]), "MKDOC_PREDEFMAP");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_DOCSYMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (13), (/*_.MAKE_MAPOBJECT__V26*/ curfptr[25]), "MKDOC_DOCSYMAP");
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4346:/ putslot");
-   /*putslot*/
-   melt_assertmsg("putslot checkobj @MKDOC_SUBCLASSMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT);
-   melt_putfield_object((/*_.INST__V29*/ curfptr[28]), (14), (/*_.MAKE_MAPOBJECT__V27*/ curfptr[26]), "MKDOC_SUBCLASSMAP");
-   ;
-   /*_.MDINFO__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;}
-  ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4363:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4363:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:4363:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4363:/ apply.arg");
-     argtab[0].bp_cstring =  "makedoc_docmd arglist";
-     MELT_LOCATION("warmelt-outobj.melt:4363:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:4363:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:4363:/ apply.arg");
-     argtab[3].bp_long = 4363;
-     /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ARGLIST__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4363:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4363:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4363:/ cppif.else");
-  /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4364:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4364:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:4364:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4364:/ apply.arg");
-     argtab[0].bp_cstring =  "makedoc_docmd outarg";
-     MELT_LOCATION("warmelt-outobj.melt:4364:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:4364:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:4364:/ apply.arg");
-     argtab[3].bp_long = 4364;
-     /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.OUTARG__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4364:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4364:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4364:/ cppif.else");
-  /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:4368:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:4368:/ newclosure");
-    /*newclosure*/ /*_.LAMBDA___V35*/ curfptr[34] =
-    meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (1));
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4368:/ putclosedv");
-   /*putclosv*/
-   melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE);
-   melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34])));
-   ((meltclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[0] = (melt_ptr_t)(/*_.RLIST__V13*/ curfptr[12]);
-   ;
-   /*_.LAMBDA___V34*/ curfptr[32] = /*_.LAMBDA___V35*/ curfptr[34];;}
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4366:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4366:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V34*/ curfptr[32];
-   /*_.LIST_EVERY__V36*/ curfptr[35] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (melt_ptr_t)(/*_.ARGLIST__V11*/ curfptr[10]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  MELT_LOCATION("warmelt-outobj.melt:4377:/ block");
-  /*block*/{
-   MELT_LOCATION("warmelt-outobj.melt:4377:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4377:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENV__V10*/ curfptr[9];
-    /*_.XLIST__V38*/ curfptr[37] =  melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[11])), (melt_ptr_t)(/*_.RLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4380:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[2];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4380:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ARGLIST__V11*/ curfptr[10];
-    MELT_LOCATION("warmelt-outobj.melt:4380:/ apply.arg");
-    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.XLIST__V38*/ curfptr[37];
-    /*_.MAKEDOC_SCANINPUT__V39*/ curfptr[38] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_SCANINPUT*/ curfrout->tabval[12])), (melt_ptr_t)(/*_.MDINFO__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   MELT_LOCATION("warmelt-outobj.melt:4382:/ apply");
-   /*apply*/{
-    union meltparam_un argtab[1];
-    memset(&argtab, 0, sizeof(argtab));
-    MELT_LOCATION("warmelt-outobj.melt:4382:/ apply.arg");
-    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTARG__V12*/ curfptr[11];
-    /*_.MAKEDOC_GENOUTPUT__V40*/ curfptr[39] =  melt_apply ((meltclosure_ptr_t)((/*!MAKEDOC_GENOUTPUT*/ curfrout->tabval[13])), (melt_ptr_t)(/*_.MDINFO__V28*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-    }
-   ;
-   /*_.LET___V37*/ curfptr[36] = /*_.MAKEDOC_GENOUTPUT__V40*/ curfptr[39];;
-   /*epilog*/
-   MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
-   /*clear*/ /*_.XLIST__V38*/ curfptr[37] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
-   /*clear*/ /*_.MAKEDOC_SCANINPUT__V39*/ curfptr[38] = 0 ;
-   MELT_LOCATION("warmelt-outobj.melt:4377:/ clear");
-   /*clear*/ /*_.MAKEDOC_GENOUTPUT__V40*/ curfptr[39] = 0 ;}
-  ;
-  /*_.LET___V8*/ curfptr[6] = /*_.LET___V37*/ curfptr[36];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.PARMODENV__V9*/ curfptr[8] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.CURENV__V10*/ curfptr[9] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o0 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.ARGLIST__V11*/ curfptr[10] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_?*/ curfram__.loc_CSTRING__o1 = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.OUTARG__V12*/ curfptr[11] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.RLIST__V13*/ curfptr[12] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V14*/ curfptr[13] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V15*/ curfptr[14] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V16*/ curfptr[15] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V17*/ curfptr[16] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V18*/ curfptr[17] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V19*/ curfptr[18] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V20*/ curfptr[19] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V21*/ curfptr[20] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V22*/ curfptr[21] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_LIST__V23*/ curfptr[22] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_MAPOBJECT__V24*/ curfptr[23] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_MAPOBJECT__V25*/ curfptr[24] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_MAPOBJECT__V26*/ curfptr[25] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MAKE_MAPOBJECT__V27*/ curfptr[26] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.MDINFO__V28*/ curfptr[27] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.LAMBDA___V34*/ curfptr[32] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.LIST_EVERY__V36*/ curfptr[35] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4339:/ clear");
-  /*clear*/ /*_.LET___V37*/ curfptr[36] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4336:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];;
-  MELT_LOCATION("warmelt-outobj.melt:4336:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4336:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4336:/ clear");
- /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;
- MELT_LOCATION("warmelt-outobj.melt:4336:/ clear");
- /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("MAKEDOC_DOCMD", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_153_warmelt_outobj_MAKEDOC_DOCMD*/
-
-
-
-
-
-melt_ptr_t MELT_MODULE_VISIBILITY 
-meltrout_154_warmelt_outobj_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_,
-      const char xresdescr_[], union meltparam_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_meltrout_154_warmelt_outobj_LAMBDA__st { unsigned nbvar;
-#if ENABLE_CHECKING
-  const char* flocs;
-#endif
-  struct meltclosure_st *clos;
-  struct excepth_melt_st *exh;
-  struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 11
-  void* varptr[11];
-#define CURFRAM_NBVARNUM 3
-  long varnum[3];
-/*others*/
-  long _spare_; }
-    *framptr_=0,    curfram__;
-  if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/
-   int ix=0;
-   framptr_ = (void*)firstargp_;
-   gt_ggc_mx_melt_un (framptr_->clos);
-   for(ix=0; ix<11; ix++)
-    if (framptr_->varptr[ix])
-     gt_ggc_mx_melt_un (framptr_->varptr[ix]);
-   return NULL;
-  }/*end markggc*/;
-  memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 11;
-  curfram__.clos = closp_;
- curfram__.prev = (struct callframe_melt_st *) melt_topframe;
- melt_topframe = (struct callframe_melt_st *) &curfram__;
-melt_trace_start("LAMBDA_", callcount);
-/*getargs*/
-
- /*getarg#0*/
- MELT_LOCATION("warmelt-outobj.melt:4368:/ getarg");
- /*_.CURARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_;
- ;
- goto lab_endgetargs;
-lab_endgetargs:;
-/*body*/
-MELT_LOCATION("warmelt-outobj.melt:4368:/ block");
-/*block*/{
- 
- {
- MELT_LOCATION("warmelt-outobj.melt:4369:/ locexp");
- inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "reading from file"), 
-			     melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])));}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4370:/ block");
- /*block*/{
-  /*_.CUREAD__V4*/ curfptr[3] = 
-   (meltgc_read_file (melt_string_str((melt_ptr_t)(/*_.CURARG__V2*/ curfptr[1])), (char*)0));;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4372:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4372:/ block");
-   /*block*/{
-    /*_#IS_LIST__L1*/ curfnum[0] = 
-     (melt_magic_discr((melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);;
-    MELT_LOCATION("warmelt-outobj.melt:4372:/ cond");
-    /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4372:/ cond.then");
-    /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4372:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:4372:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:4372:/ locexp");
-       melt_assert_failed(( "check rlist"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4372)?(4372):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4372:/ clear");
-    /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4372:/ clear");
-    /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4372:/ cppif.else");
-  /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4373:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4373:/ block");
-   /*block*/{
-    /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 
-     ((/*_.CUREAD__V4*/ curfptr[3]) == NULL 
-     || (melt_unsafe_magic_discr((melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3])) == OBMAG_LIST));;
-    MELT_LOCATION("warmelt-outobj.melt:4373:/ cond");
-    /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ {
-    MELT_LOCATION("warmelt-outobj.melt:4373:/ cond.then");
-    /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);;
-    } else {MELT_LOCATION("warmelt-outobj.melt:4373:/ cond.else");
-    
-     MELT_LOCATION("warmelt-outobj.melt:4373:/ block");
-     /*block*/{
-      /*block*/{
-       
-       {
-       MELT_LOCATION("warmelt-outobj.melt:4373:/ locexp");
-       melt_assert_failed(( "check curead"),( "warmelt-outobj.melt")?( "warmelt-outobj.melt"):__FILE__,
-  (4373)?(4373):__LINE__, __FUNCTION__);
-;}
-       ;
-       /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-      ;
-      /*epilog*/}
-     ;
-     }
-    ;
-    /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4373:/ clear");
-    /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4373:/ clear");
-    /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4373:/ cppif.else");
-  /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  
-  #if ENABLE_CHECKING
-   MELT_LOCATION("warmelt-outobj.melt:4374:/ cppif.then");
-  MELT_LOCATION("warmelt-outobj.melt:4374:/ block");
-   /*block*/{
-    /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 
-     callcount;;
-    MELT_LOCATION("warmelt-outobj.melt:4374:/ apply");
-    /*apply*/{
-     union meltparam_un argtab[4];
-     memset(&argtab, 0, sizeof(argtab));
-     MELT_LOCATION("warmelt-outobj.melt:4374:/ apply.arg");
-     argtab[0].bp_cstring =  "makedoc_docmd curead";
-     MELT_LOCATION("warmelt-outobj.melt:4374:/ apply.arg");
-     argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0];
-     MELT_LOCATION("warmelt-outobj.melt:4374:/ apply.arg");
-     argtab[2].bp_cstring =  "warmelt-outobj.melt";
-     MELT_LOCATION("warmelt-outobj.melt:4374:/ apply.arg");
-     argtab[3].bp_long = 4374;
-     /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CUREAD__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
-     }
-    ;
-    /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];;
-    /*epilog*/
-    MELT_LOCATION("warmelt-outobj.melt:4374:/ clear");
-    /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ;
-    MELT_LOCATION("warmelt-outobj.melt:4374:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;}
-   
-   #else /*ENABLE_CHECKING*/
-   MELT_LOCATION("warmelt-outobj.melt:4374:/ cppif.else");
-  /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL);
-   #endif /*ENABLE_CHECKING*/
-   ;
-  MELT_LOCATION("warmelt-outobj.melt:4375:/ apply");
-  /*apply*/{
-   union meltparam_un argtab[1];
-   memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4375:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CUREAD__V4*/ curfptr[3];
-   /*_.LIST_APPEND2LIST__V11*/ curfptr[9] =  melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[1])), (melt_ptr_t)((/*~RLIST*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
-   }
-  ;
-  /*_.LET___V3*/ curfptr[2] = /*_.LIST_APPEND2LIST__V11*/ curfptr[9];;
-  /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4370:/ clear");
-  /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4370:/ clear");
-  /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4370:/ clear");
-  /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4370:/ clear");
-  /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;
-  MELT_LOCATION("warmelt-outobj.melt:4370:/ clear");
-  /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;}
- ;
- MELT_LOCATION("warmelt-outobj.melt:4368:/ block");
- /*block*/{
-  /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];;
-  MELT_LOCATION("warmelt-outobj.melt:4368:/ finalreturn");
-  ;
-  /*finalret*/ goto labend_rout ;}
- ;
- /*epilog*/
- MELT_LOCATION("warmelt-outobj.melt:4368:/ clear");
- /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;}
-
-;
- goto labend_rout;
-labend_rout:
-melt_trace_end("LAMBDA_", callcount);  melt_topframe = (struct callframe_melt_st*) curfram__.prev;
- return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]);
-#undef callcount
-#undef CURFRAM_NBVARNUM
-#undef CURFRAM_NBVARPTR
-} /*end meltrout_154_warmelt_outobj_LAMBDA_*/
-
-
-
 typedef 
  struct frame_start_module_melt_st { unsigned nbvar;
 #if ENABLE_CHECKING
@@ -50960,8 +10689,8 @@ typedef
   struct meltclosure_st *noinitialclos;
   struct excepth_melt_st *exh;
   struct callframe_melt_st *prev;
-#define CURFRAM_NBVARPTR 867
-  void* varptr[867];
+#define CURFRAM_NBVARPTR 897
+  void* varptr[897];
 #define CURFRAM_NBVARNUM 2
   long varnum[2];
 /*others*/
@@ -51389,239 +11118,269 @@ static void initialize_module_cdata(initial_frame_st *iniframp__, char predefini
   struct MELT_STRING_STRUCT(14) dstr_413__SECFIL_IMPLBUF;
   struct MELT_OBJECT_STRUCT(4) dobj_414__SECFIL_IMPLBUF;
   struct MELT_STRING_STRUCT(14) dstr_415__SECFIL_IMPLBUF;
-  struct MELT_ROUTINE_STRUCT(3) drout_416__NTH_SECUNDARY_FILE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_417__NTH_SECUNDARY_FILE;
-  struct MELT_ROUTINE_STRUCT(33) drout_418__COMPILE_LIST_SEXPR;
-  struct MELT_CLOSURE_STRUCT(0) dclo_419__COMPILE_LIST_SEXPR;
-  struct MELT_OBJECT_STRUCT(3) dsym_420__CLASS_ENVIRONMENT;
-  struct MELT_STRING_STRUCT(17) dstr_421__CLASS_ENVIRONMEN;
-  struct MELT_OBJECT_STRUCT(3) dsym_422__DISCR_MAP_STRINGS;
-  struct MELT_STRING_STRUCT(17) dstr_423__DISCR_MAP_STRING;
-  struct MELT_OBJECT_STRUCT(3) dsym_424__CREATE_NORMCONTEXT;
-  struct MELT_STRING_STRUCT(18) dstr_425__CREATE_NORMCONTE;
-  struct MELT_OBJECT_STRUCT(3) dsym_426__CLASS_NORMALIZATION_CONTEXT;
-  struct MELT_STRING_STRUCT(27) dstr_427__CLASS_NORMALIZAT;
-  struct MELT_OBJECT_STRUCT(3) dsym_428__MACROEXPAND_TOPLEVEL_LIST;
-  struct MELT_STRING_STRUCT(25) dstr_429__MACROEXPAND_TOPL;
-  struct MELT_OBJECT_STRUCT(3) dsym_430__CLASS_SOURCE;
-  struct MELT_STRING_STRUCT(12) dstr_431__CLASS_SOURCE;
-  struct MELT_OBJECT_STRUCT(3) dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
-  struct MELT_STRING_STRUCT(56) dstr_433__CLASS_SOURCE_UPD;
-  struct MELT_STRING_STRUCT(13) dstr_434__at_very_start;
-  struct MELT_OBJECT_STRUCT(3) dsym_435__INITIAL_ENVIRONMENT;
-  struct MELT_STRING_STRUCT(19) dstr_436__INITIAL_ENVIRONM;
-  struct MELT_OBJECT_STRUCT(3) dsym_437__CLASS_NREP_INITPROC;
-  struct MELT_STRING_STRUCT(19) dstr_438__CLASS_NREP_INITP;
-  struct MELT_ROUTINE_STRUCT(7) drout_439__LAMBDA_;
-  struct MELT_OBJECT_STRUCT(3) dsym_440__CLASS_LOCATED;
-  struct MELT_STRING_STRUCT(13) dstr_441__CLASS_LOCATED;
-  struct MELT_OBJECT_STRUCT(3) dsym_442__CLASS_SOURCE_COMMENT;
-  struct MELT_STRING_STRUCT(20) dstr_443__CLASS_SOURCE_COM;
-  struct MELT_OBJECT_STRUCT(3) dsym_444__NORMAL_EXP;
-  struct MELT_STRING_STRUCT(10) dstr_445__NORMAL_EXP;
-  struct MELT_OBJECT_STRUCT(3) dsym_446__CLASS_NREP_ANYPROC;
-  struct MELT_STRING_STRUCT(18) dstr_447__CLASS_NREP_ANYPR;
-  struct MELT_OBJECT_STRUCT(3) dsym_448__WRAP_NORMAL_LET1;
-  struct MELT_STRING_STRUCT(16) dstr_449__WRAP_NORMAL_LET1;
-  struct MELT_OBJECT_STRUCT(3) dsym_450__DISCR_MAP_OBJECTS;
-  struct MELT_STRING_STRUCT(17) dstr_451__DISCR_MAP_OBJECT;
-  struct MELT_ROUTINE_STRUCT(3) drout_452__LAMBDA_;
-  struct MELT_OBJECT_STRUCT(3) dsym_453__COMPILE2OBJ_PROCEDURE;
-  struct MELT_STRING_STRUCT(21) dstr_454__COMPILE2OBJ_PROC;
-  struct MELT_OBJECT_STRUCT(3) dsym_455__COMPILE2OBJ_INITPROC;
-  struct MELT_STRING_STRUCT(20) dstr_456__COMPILE2OBJ_INIT;
-  struct MELT_OBJECT_STRUCT(3) dsym_457__MELT_ARGUMENT;
-  struct MELT_STRING_STRUCT(13) dstr_458__MELT_ARGUMENT;
-  struct MELT_OBJECT_STRUCT(5) dobj_459__MELT_ARGUMENT;
-  struct MELT_MULTIPLE_STRUCT(3) dtup_460__MELT_ARGUMENT;
-  struct MELT_MULTIPLE_STRUCT(1) dtup_461__MELT_ARGUMENT;
-  struct MELT_OBJECT_STRUCT(3) dsym_462__NAM;
-  struct MELT_STRING_STRUCT(3) dstr_463__NAM;
-  struct MELT_OBJECT_STRUCT(2) dobj_464;
-  struct MELT_STRING_STRUCT(14) dstr_465__melt_argument_;
-  struct MELT_STRING_STRUCT(1) dstr_466__;
-  struct MELT_STRING_STRUCT(13) dstr_467__MELT_ARGUMENT;
-  struct MELT_ROUTINE_STRUCT(5) drout_468__INSTALL_MELT_MODE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_469__INSTALL_MELT_MODE;
-  struct MELT_OBJECT_STRUCT(3) dsym_470__CLASS_MELT_MODE;
-  struct MELT_STRING_STRUCT(15) dstr_471__CLASS_MELT_MODE;
-  struct MELT_OBJECT_STRUCT(3) dsym_472__INITIAL_SYSTEM_DATA;
-  struct MELT_STRING_STRUCT(19) dstr_473__INITIAL_SYSTEM_D;
-  struct MELT_OBJECT_STRUCT(3) dsym_474__CLASS_SYSTEM_DATA;
-  struct MELT_STRING_STRUCT(17) dstr_475__CLASS_SYSTEM_DAT;
-  struct MELT_ROUTINE_STRUCT(5) drout_476__COMPILE_ONE_OR_MORE_FILES;
-  struct MELT_CLOSURE_STRUCT(0) dclo_477__COMPILE_ONE_OR_MORE_FILES;
-  struct MELT_OBJECT_STRUCT(3) dsym_478__LIST_APPEND2LIST;
-  struct MELT_STRING_STRUCT(16) dstr_479__LIST_APPEND2LIST;
-  struct MELT_ROUTINE_STRUCT(6) drout_480__TRANSLATEFILE_DOCMD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_481__TRANSLATEFILE_DOCMD;
-  struct MELT_OBJECT_STRUCT(3) dsym_482__TRANSLATEFILE_MODE;
-  struct MELT_STRING_STRUCT(18) dstr_483__TRANSLATEFILE_MO;
-  struct MELT_OBJECT_STRUCT(5) dobj_484__TRANSLATEFILE_MODE;
-  struct MELT_STRING_STRUCT(13) dstr_485__translatefile;
-  struct MELT_STRING_STRUCT(71) dstr_486__MELT_translatef;
-  struct MELT_ROUTINE_STRUCT(6) drout_487__RUNFILE_DOCMD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_488__RUNFILE_DOCMD;
-  struct MELT_OBJECT_STRUCT(3) dsym_489__RUNFILE_MODE;
-  struct MELT_STRING_STRUCT(12) dstr_490__RUNFILE_MODE;
-  struct MELT_OBJECT_STRUCT(5) dobj_491__RUNFILE_MODE;
-  struct MELT_STRING_STRUCT(7) dstr_492__runfile;
-  struct MELT_STRING_STRUCT(63) dstr_493__MELT_runfile_m;
-  struct MELT_ROUTINE_STRUCT(10) drout_494__TRANSLATEINIT_DOCMD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_495__TRANSLATEINIT_DOCMD;
-  struct MELT_ROUTINE_STRUCT(2) drout_496__LAMBDA_;
-  struct MELT_OBJECT_STRUCT(3) dsym_497__TRANSLATEINIT_MODE;
-  struct MELT_STRING_STRUCT(18) dstr_498__TRANSLATEINIT_MO;
-  struct MELT_OBJECT_STRUCT(5) dobj_499__TRANSLATEINIT_MODE;
-  struct MELT_STRING_STRUCT(13) dstr_500__translateinit;
-  struct MELT_STRING_STRUCT(71) dstr_501__MELT_translatei;
-  struct MELT_OBJECT_STRUCT(3) dsym_502__CLASS_MAKEDOC_INFO;
-  struct MELT_STRING_STRUCT(18) dstr_503__CLASS_MAKEDOC_IN;
-  struct MELT_OBJECT_STRUCT(3) dsym_504__CLASS_PROPED;
-  struct MELT_STRING_STRUCT(12) dstr_505__CLASS_PROPED;
-  struct MELT_OBJECT_STRUCT(8) dobj_506__CLASS_MAKEDOC_INFO;
-  struct MELT_STRING_STRUCT(18) dstr_507__CLASS_MAKEDOC_IN;
-  struct MELT_MULTIPLE_STRUCT(2) dtup_508__CLASS_MAKEDOC_INFO;
-  struct MELT_MULTIPLE_STRUCT(15) dtup_509__CLASS_MAKEDOC_INFO;
-  struct MELT_OBJECT_STRUCT(3) dsym_510__MKDOC_PRIMITIVES;
-  struct MELT_STRING_STRUCT(16) dstr_511__MKDOC_PRIMITIVES;
-  struct MELT_OBJECT_STRUCT(4) dobj_512__MKDOC_PRIMITIVES;
-  struct MELT_STRING_STRUCT(16) dstr_513__MKDOC_PRIMITIVES;
-  struct MELT_OBJECT_STRUCT(3) dsym_514__MKDOC_FUNCTIONS;
-  struct MELT_STRING_STRUCT(15) dstr_515__MKDOC_FUNCTIONS;
-  struct MELT_OBJECT_STRUCT(4) dobj_516__MKDOC_FUNCTIONS;
-  struct MELT_STRING_STRUCT(15) dstr_517__MKDOC_FUNCTIONS;
-  struct MELT_OBJECT_STRUCT(3) dsym_518__MKDOC_CITERATORS;
-  struct MELT_STRING_STRUCT(16) dstr_519__MKDOC_CITERATORS;
-  struct MELT_OBJECT_STRUCT(4) dobj_520__MKDOC_CITERATORS;
-  struct MELT_STRING_STRUCT(16) dstr_521__MKDOC_CITERATORS;
-  struct MELT_OBJECT_STRUCT(3) dsym_522__MKDOC_CMATCHERS;
-  struct MELT_STRING_STRUCT(15) dstr_523__MKDOC_CMATCHERS;
-  struct MELT_OBJECT_STRUCT(4) dobj_524__MKDOC_CMATCHERS;
-  struct MELT_STRING_STRUCT(15) dstr_525__MKDOC_CMATCHERS;
-  struct MELT_OBJECT_STRUCT(3) dsym_526__MKDOC_SELECTORS;
-  struct MELT_STRING_STRUCT(15) dstr_527__MKDOC_SELECTORS;
-  struct MELT_OBJECT_STRUCT(4) dobj_528__MKDOC_SELECTORS;
-  struct MELT_STRING_STRUCT(15) dstr_529__MKDOC_SELECTORS;
-  struct MELT_OBJECT_STRUCT(3) dsym_530__MKDOC_FIELDS;
-  struct MELT_STRING_STRUCT(12) dstr_531__MKDOC_FIELDS;
-  struct MELT_OBJECT_STRUCT(4) dobj_532__MKDOC_FIELDS;
-  struct MELT_STRING_STRUCT(12) dstr_533__MKDOC_FIELDS;
-  struct MELT_OBJECT_STRUCT(3) dsym_534__MKDOC_CLASSES;
-  struct MELT_STRING_STRUCT(13) dstr_535__MKDOC_CLASSES;
-  struct MELT_OBJECT_STRUCT(4) dobj_536__MKDOC_CLASSES;
-  struct MELT_STRING_STRUCT(13) dstr_537__MKDOC_CLASSES;
-  struct MELT_OBJECT_STRUCT(3) dsym_538__MKDOC_INSTANCES;
-  struct MELT_STRING_STRUCT(15) dstr_539__MKDOC_INSTANCES;
-  struct MELT_OBJECT_STRUCT(4) dobj_540__MKDOC_INSTANCES;
-  struct MELT_STRING_STRUCT(15) dstr_541__MKDOC_INSTANCES;
-  struct MELT_OBJECT_STRUCT(3) dsym_542__MKDOC_MACROS;
-  struct MELT_STRING_STRUCT(12) dstr_543__MKDOC_MACROS;
-  struct MELT_OBJECT_STRUCT(4) dobj_544__MKDOC_MACROS;
-  struct MELT_STRING_STRUCT(12) dstr_545__MKDOC_MACROS;
-  struct MELT_OBJECT_STRUCT(3) dsym_546__MKDOC_PATMACROS;
-  struct MELT_STRING_STRUCT(15) dstr_547__MKDOC_PATMACROS;
-  struct MELT_OBJECT_STRUCT(4) dobj_548__MKDOC_PATMACROS;
-  struct MELT_STRING_STRUCT(15) dstr_549__MKDOC_PATMACROS;
-  struct MELT_OBJECT_STRUCT(3) dsym_550__MKDOC_FORMALOCCMAP;
-  struct MELT_STRING_STRUCT(18) dstr_551__MKDOC_FORMALOCCM;
-  struct MELT_OBJECT_STRUCT(4) dobj_552__MKDOC_FORMALOCCMAP;
-  struct MELT_STRING_STRUCT(18) dstr_553__MKDOC_FORMALOCCM;
-  struct MELT_OBJECT_STRUCT(3) dsym_554__MKDOC_PREDEFMAP;
-  struct MELT_STRING_STRUCT(15) dstr_555__MKDOC_PREDEFMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_556__MKDOC_PREDEFMAP;
-  struct MELT_STRING_STRUCT(15) dstr_557__MKDOC_PREDEFMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_558__MKDOC_DOCSYMAP;
-  struct MELT_STRING_STRUCT(14) dstr_559__MKDOC_DOCSYMAP;
-  struct MELT_OBJECT_STRUCT(4) dobj_560__MKDOC_DOCSYMAP;
-  struct MELT_STRING_STRUCT(14) dstr_561__MKDOC_DOCSYMAP;
-  struct MELT_OBJECT_STRUCT(3) dsym_562__MKDOC_SUBCLASSMAP;
-  struct MELT_STRING_STRUCT(17) dstr_563__MKDOC_SUBCLASSMA;
-  struct MELT_OBJECT_STRUCT(4) dobj_564__MKDOC_SUBCLASSMAP;
-  struct MELT_STRING_STRUCT(17) dstr_565__MKDOC_SUBCLASSMA;
-  struct MELT_ROUTINE_STRUCT(32) drout_566__MAKEDOC_SCANINPUT;
-  struct MELT_CLOSURE_STRUCT(0) dclo_567__MAKEDOC_SCANINPUT;
-  struct MELT_ROUTINE_STRUCT(2) drout_568__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(2) drout_569__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(4) drout_570__LAMBDA_;
-  struct MELT_OBJECT_STRUCT(3) dsym_571__CLASS_SOURCE_DEFINITION;
-  struct MELT_STRING_STRUCT(23) dstr_572__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_573__CLASS_ANY_BINDING;
-  struct MELT_STRING_STRUCT(17) dstr_574__CLASS_ANY_BINDIN;
-  struct MELT_ROUTINE_STRUCT(18) drout_575__LAMBDA_;
-  struct MELT_OBJECT_STRUCT(3) dsym_576__CLASS_SOURCE_DEFCLASS;
-  struct MELT_STRING_STRUCT(21) dstr_577__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_578__CLASS_SEXPR;
-  struct MELT_STRING_STRUCT(11) dstr_579__CLASS_SEXPR;
-  struct MELT_OBJECT_STRUCT(3) dsym_580__CLASS_CLASS_BINDING;
-  struct MELT_STRING_STRUCT(19) dstr_581__CLASS_CLASS_BIND;
-  struct MELT_OBJECT_STRUCT(3) dsym_582__CLASS_SOURCE_DEFSELECTOR;
-  struct MELT_STRING_STRUCT(24) dstr_583__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_584__CLASS_SOURCE_DEFINSTANCE;
-  struct MELT_STRING_STRUCT(24) dstr_585__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_586__CLASS_SOURCE_DEFPRIMITIVE;
-  struct MELT_STRING_STRUCT(25) dstr_587__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_588__CLASS_SOURCE_DEFUN;
-  struct MELT_STRING_STRUCT(18) dstr_589__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_590__CLASS_SOURCE_DEFCITERATOR;
-  struct MELT_STRING_STRUCT(25) dstr_591__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_592__CLASS_SOURCE_DEFCMATCHER;
-  struct MELT_STRING_STRUCT(24) dstr_593__CLASS_SOURCE_DEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_594__CLASS_SOURCE_EXPORT_PATMACRO;
-  struct MELT_STRING_STRUCT(28) dstr_595__CLASS_SOURCE_EXP;
-  struct MELT_OBJECT_STRUCT(3) dsym_596__CLASS_SOURCE_EXPORT_MACRO;
-  struct MELT_STRING_STRUCT(25) dstr_597__CLASS_SOURCE_EXP;
-  struct MELT_ROUTINE_STRUCT(2) drout_598__MAKEDOC_OUTDEFLOC;
-  struct MELT_CLOSURE_STRUCT(0) dclo_599__MAKEDOC_OUTDEFLOC;
-  struct MELT_ROUTINE_STRUCT(4) drout_600__MAKEDOC_OUTFORMALS;
-  struct MELT_CLOSURE_STRUCT(0) dclo_601__MAKEDOC_OUTFORMALS;
-  struct MELT_ROUTINE_STRUCT(2) drout_602__MAKEDOC_OUTDOC;
-  struct MELT_CLOSURE_STRUCT(0) dclo_603__MAKEDOC_OUTDOC;
-  struct MELT_ROUTINE_STRUCT(13) drout_604__MAKEDOC_OUTCLASSDEF;
-  struct MELT_CLOSURE_STRUCT(0) dclo_605__MAKEDOC_OUTCLASSDEF;
-  struct MELT_ROUTINE_STRUCT(9) drout_606__MAKEDOC_GENMACRO;
-  struct MELT_CLOSURE_STRUCT(0) dclo_607__MAKEDOC_GENMACRO;
-  struct MELT_ROUTINE_STRUCT(10) drout_608__MAKEDOC_GENPATMACRO;
-  struct MELT_CLOSURE_STRUCT(0) dclo_609__MAKEDOC_GENPATMACRO;
-  struct MELT_ROUTINE_STRUCT(21) drout_610__MAKEDOC_GENCLASS;
-  struct MELT_CLOSURE_STRUCT(0) dclo_611__MAKEDOC_GENCLASS;
-  struct meltint_st dint_612__;
-  struct meltint_st dint_613__;
-  struct meltint_st dint_614__;
-  struct MELT_ROUTINE_STRUCT(2) drout_615__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_616__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(1) drout_617__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(3) drout_618__LAMBDA_;
-  struct MELT_ROUTINE_STRUCT(9) drout_619__MAKEDOC_OUTPRIMITIVEDEF;
-  struct MELT_CLOSURE_STRUCT(0) dclo_620__MAKEDOC_OUTPRIMITIVEDEF;
-  struct MELT_OBJECT_STRUCT(3) dsym_621__CLASS_SOURCE_DEFINITION_FORMAL;
-  struct MELT_STRING_STRUCT(30) dstr_622__CLASS_SOURCE_DEF;
-  struct MELT_ROUTINE_STRUCT(6) drout_623__MAKEDOC_GENPRIMITIVE;
-  struct MELT_CLOSURE_STRUCT(0) dclo_624__MAKEDOC_GENPRIMITIVE;
-  struct MELT_ROUTINE_STRUCT(8) drout_625__MAKEDOC_OUTFUNCTIONDEF;
-  struct MELT_CLOSURE_STRUCT(0) dclo_626__MAKEDOC_OUTFUNCTIONDEF;
-  struct MELT_ROUTINE_STRUCT(6) drout_627__MAKEDOC_GENFUNCTION;
-  struct MELT_CLOSURE_STRUCT(0) dclo_628__MAKEDOC_GENFUNCTION;
-  struct MELT_ROUTINE_STRUCT(13) drout_629__MAKEDOC_GENCITERATOR;
-  struct MELT_CLOSURE_STRUCT(0) dclo_630__MAKEDOC_GENCITERATOR;
-  struct MELT_ROUTINE_STRUCT(15) drout_631__MAKEDOC_GENCMATCHER;
-  struct MELT_CLOSURE_STRUCT(0) dclo_632__MAKEDOC_GENCMATCHER;
-  struct MELT_OBJECT_STRUCT(3) dsym_633__CLASS_ANY_MATCHER;
-  struct MELT_STRING_STRUCT(17) dstr_634__CLASS_ANY_MATCHE;
-  struct MELT_ROUTINE_STRUCT(10) drout_635__MAKEDOC_GENOUTPUT;
-  struct MELT_CLOSURE_STRUCT(0) dclo_636__MAKEDOC_GENOUTPUT;
-  struct MELT_ROUTINE_STRUCT(14) drout_637__MAKEDOC_DOCMD;
-  struct MELT_CLOSURE_STRUCT(0) dclo_638__MAKEDOC_DOCMD;
-  struct MELT_ROUTINE_STRUCT(2) drout_639__LAMBDA_;
-  struct MELT_OBJECT_STRUCT(3) dsym_640__MAKEDOC_MODE;
-  struct MELT_STRING_STRUCT(12) dstr_641__MAKEDOC_MODE;
-  struct MELT_OBJECT_STRUCT(5) dobj_642__MAKEDOC_MODE;
-  struct MELT_STRING_STRUCT(7) dstr_643__makedoc;
-  struct MELT_STRING_STRUCT(69) dstr_644__MELT_makedoc_m;
-  struct MELT_OBJECT_STRUCT(3) dsym_645__COMPILE_LIST_SEXPR;
-  struct MELT_STRING_STRUCT(18) dstr_646__COMPILE_LIST_SEX;
-  struct MELT_OBJECT_STRUCT(3) dsym_647__INSTALL_MELT_MODE;
-  struct MELT_STRING_STRUCT(17) dstr_648__INSTALL_MELT_MOD;
+  struct MELT_OBJECT_STRUCT(3) dsym_416__GENERATED_C_FILENAME;
+  struct MELT_STRING_STRUCT(20) dstr_417__GENERATED_C_FILE;
+  struct MELT_OBJECT_STRUCT(5) dobj_418__GENERATED_C_FILENAME;
+  struct MELT_MULTIPLE_STRUCT(9) dtup_419__GENERATED_C_FILENAME;
+  struct MELT_MULTIPLE_STRUCT(4) dtup_420__GENERATED_C_FILENAME;
+  struct MELT_OBJECT_STRUCT(3) dsym_421__DISCR;
+  struct MELT_STRING_STRUCT(5) dstr_422__DISCR;
+  struct MELT_OBJECT_STRUCT(2) dobj_423;
+  struct MELT_OBJECT_STRUCT(3) dsym_424__BASE;
+  struct MELT_STRING_STRUCT(4) dstr_425__BASE;
+  struct MELT_OBJECT_STRUCT(2) dobj_426;
+  struct MELT_OBJECT_STRUCT(3) dsym_427__DIR;
+  struct MELT_STRING_STRUCT(3) dstr_428__DIR;
+  struct MELT_OBJECT_STRUCT(2) dobj_429;
+  struct MELT_OBJECT_STRUCT(3) dsym_430__NUM;
+  struct MELT_STRING_STRUCT(3) dstr_431__NUM;
+  struct MELT_OBJECT_STRUCT(2) dobj_432;
+  struct MELT_STRING_STRUCT(65) dstr_433__meltgc_new_strin;
+  struct MELT_STRING_STRUCT(26) dstr_434__melt_st;
+  struct MELT_STRING_STRUCT(21) dstr_435__melt_string_;
+  struct MELT_STRING_STRUCT(5) dstr_436__;
+  struct MELT_STRING_STRUCT(2) dstr_437__;
+  struct MELT_STRING_STRUCT(20) dstr_438__GENERATED_C_FILE;
+  struct MELT_OBJECT_STRUCT(3) dsym_439__WANTS_SINGLE_C_FILE;
+  struct MELT_STRING_STRUCT(19) dstr_440__WANTS_SINGLE_C_F;
+  struct MELT_OBJECT_STRUCT(5) dobj_441__WANTS_SINGLE_C_FILE;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_442__WANTS_SINGLE_C_FILE;
+  struct MELT_MULTIPLE_STRUCT(0) dtup_443__WANTS_SINGLE_C_FILE;
+  struct MELT_STRING_STRUCT(29) dstr_444__melt_wants_sing;
+  struct MELT_STRING_STRUCT(19) dstr_445__WANTS_SINGLE_C_F;
+  struct MELT_ROUTINE_STRUCT(4) drout_446__NTH_SECUNDARY_FILE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_447__NTH_SECUNDARY_FILE;
+  struct MELT_ROUTINE_STRUCT(36) drout_448__COMPILE_LIST_SEXPR;
+  struct MELT_CLOSURE_STRUCT(0) dclo_449__COMPILE_LIST_SEXPR;
+  struct MELT_OBJECT_STRUCT(3) dsym_450__CLASS_ENVIRONMENT;
+  struct MELT_STRING_STRUCT(17) dstr_451__CLASS_ENVIRONMEN;
+  struct MELT_OBJECT_STRUCT(3) dsym_452__DISCR_MAP_STRINGS;
+  struct MELT_STRING_STRUCT(17) dstr_453__DISCR_MAP_STRING;
+  struct MELT_OBJECT_STRUCT(3) dsym_454__CREATE_NORMCONTEXT;
+  struct MELT_STRING_STRUCT(18) dstr_455__CREATE_NORMCONTE;
+  struct MELT_OBJECT_STRUCT(3) dsym_456__CLASS_NORMALIZATION_CONTEXT;
+  struct MELT_STRING_STRUCT(27) dstr_457__CLASS_NORMALIZAT;
+  struct MELT_OBJECT_STRUCT(3) dsym_458__MACROEXPAND_TOPLEVEL_LIST;
+  struct MELT_STRING_STRUCT(25) dstr_459__MACROEXPAND_TOPL;
+  struct MELT_OBJECT_STRUCT(3) dsym_460__CLASS_SOURCE;
+  struct MELT_STRING_STRUCT(12) dstr_461__CLASS_SOURCE;
+  struct MELT_OBJECT_STRUCT(3) dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
+  struct MELT_STRING_STRUCT(56) dstr_463__CLASS_SOURCE_UPD;
+  struct MELT_STRING_STRUCT(13) dstr_464__at_very_start;
+  struct MELT_OBJECT_STRUCT(3) dsym_465__INITIAL_ENVIRONMENT;
+  struct MELT_STRING_STRUCT(19) dstr_466__INITIAL_ENVIRONM;
+  struct MELT_OBJECT_STRUCT(3) dsym_467__CLASS_NREP_INITPROC;
+  struct MELT_STRING_STRUCT(19) dstr_468__CLASS_NREP_INITP;
+  struct MELT_ROUTINE_STRUCT(7) drout_469__LAMBDA_;
+  struct MELT_OBJECT_STRUCT(3) dsym_470__CLASS_LOCATED;
+  struct MELT_STRING_STRUCT(13) dstr_471__CLASS_LOCATED;
+  struct MELT_OBJECT_STRUCT(3) dsym_472__CLASS_SOURCE_COMMENT;
+  struct MELT_STRING_STRUCT(20) dstr_473__CLASS_SOURCE_COM;
+  struct MELT_OBJECT_STRUCT(3) dsym_474__NORMAL_EXP;
+  struct MELT_STRING_STRUCT(10) dstr_475__NORMAL_EXP;
+  struct MELT_OBJECT_STRUCT(3) dsym_476__CLASS_NREP_ANYPROC;
+  struct MELT_STRING_STRUCT(18) dstr_477__CLASS_NREP_ANYPR;
+  struct MELT_OBJECT_STRUCT(3) dsym_478__WRAP_NORMAL_LET1;
+  struct MELT_STRING_STRUCT(16) dstr_479__WRAP_NORMAL_LET1;
+  struct MELT_OBJECT_STRUCT(3) dsym_480__DISCR_MAP_OBJECTS;
+  struct MELT_STRING_STRUCT(17) dstr_481__DISCR_MAP_OBJECT;
+  struct MELT_ROUTINE_STRUCT(3) drout_482__LAMBDA_;
+  struct MELT_OBJECT_STRUCT(3) dsym_483__COMPILE2OBJ_PROCEDURE;
+  struct MELT_STRING_STRUCT(21) dstr_484__COMPILE2OBJ_PROC;
+  struct MELT_OBJECT_STRUCT(3) dsym_485__COMPILE2OBJ_INITPROC;
+  struct MELT_STRING_STRUCT(20) dstr_486__COMPILE2OBJ_INIT;
+  struct MELT_OBJECT_STRUCT(3) dsym_487__MELT_ARGUMENT;
+  struct MELT_STRING_STRUCT(13) dstr_488__MELT_ARGUMENT;
+  struct MELT_OBJECT_STRUCT(5) dobj_489__MELT_ARGUMENT;
+  struct MELT_MULTIPLE_STRUCT(3) dtup_490__MELT_ARGUMENT;
+  struct MELT_MULTIPLE_STRUCT(1) dtup_491__MELT_ARGUMENT;
+  struct MELT_OBJECT_STRUCT(3) dsym_492__NAM;
+  struct MELT_STRING_STRUCT(3) dstr_493__NAM;
+  struct MELT_OBJECT_STRUCT(2) dobj_494;
+  struct MELT_STRING_STRUCT(14) dstr_495__melt_argument_;
+  struct MELT_STRING_STRUCT(1) dstr_496__;
+  struct MELT_STRING_STRUCT(13) dstr_497__MELT_ARGUMENT;
+  struct MELT_ROUTINE_STRUCT(5) drout_498__INSTALL_MELT_MODE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_499__INSTALL_MELT_MODE;
+  struct MELT_OBJECT_STRUCT(3) dsym_500__CLASS_MELT_MODE;
+  struct MELT_STRING_STRUCT(15) dstr_501__CLASS_MELT_MODE;
+  struct MELT_OBJECT_STRUCT(3) dsym_502__INITIAL_SYSTEM_DATA;
+  struct MELT_STRING_STRUCT(19) dstr_503__INITIAL_SYSTEM_D;
+  struct MELT_OBJECT_STRUCT(3) dsym_504__CLASS_SYSTEM_DATA;
+  struct MELT_STRING_STRUCT(17) dstr_505__CLASS_SYSTEM_DAT;
+  struct MELT_ROUTINE_STRUCT(5) drout_506__COMPILE_ONE_OR_MORE_FILES;
+  struct MELT_CLOSURE_STRUCT(0) dclo_507__COMPILE_ONE_OR_MORE_FILES;
+  struct MELT_OBJECT_STRUCT(3) dsym_508__LIST_APPEND2LIST;
+  struct MELT_STRING_STRUCT(16) dstr_509__LIST_APPEND2LIST;
+  struct MELT_ROUTINE_STRUCT(6) drout_510__TRANSLATEFILE_DOCMD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_511__TRANSLATEFILE_DOCMD;
+  struct MELT_OBJECT_STRUCT(3) dsym_512__TRANSLATEFILE_MODE;
+  struct MELT_STRING_STRUCT(18) dstr_513__TRANSLATEFILE_MO;
+  struct MELT_OBJECT_STRUCT(5) dobj_514__TRANSLATEFILE_MODE;
+  struct MELT_STRING_STRUCT(13) dstr_515__translatefile;
+  struct MELT_STRING_STRUCT(71) dstr_516__MELT_translatef;
+  struct MELT_ROUTINE_STRUCT(6) drout_517__RUNFILE_DOCMD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_518__RUNFILE_DOCMD;
+  struct MELT_OBJECT_STRUCT(3) dsym_519__RUNFILE_MODE;
+  struct MELT_STRING_STRUCT(12) dstr_520__RUNFILE_MODE;
+  struct MELT_OBJECT_STRUCT(5) dobj_521__RUNFILE_MODE;
+  struct MELT_STRING_STRUCT(7) dstr_522__runfile;
+  struct MELT_STRING_STRUCT(63) dstr_523__MELT_runfile_m;
+  struct MELT_ROUTINE_STRUCT(10) drout_524__TRANSLATEINIT_DOCMD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_525__TRANSLATEINIT_DOCMD;
+  struct MELT_ROUTINE_STRUCT(2) drout_526__LAMBDA_;
+  struct MELT_OBJECT_STRUCT(3) dsym_527__TRANSLATEINIT_MODE;
+  struct MELT_STRING_STRUCT(18) dstr_528__TRANSLATEINIT_MO;
+  struct MELT_OBJECT_STRUCT(5) dobj_529__TRANSLATEINIT_MODE;
+  struct MELT_STRING_STRUCT(13) dstr_530__translateinit;
+  struct MELT_STRING_STRUCT(71) dstr_531__MELT_translatei;
+  struct MELT_OBJECT_STRUCT(3) dsym_532__CLASS_MAKEDOC_INFO;
+  struct MELT_STRING_STRUCT(18) dstr_533__CLASS_MAKEDOC_IN;
+  struct MELT_OBJECT_STRUCT(3) dsym_534__CLASS_PROPED;
+  struct MELT_STRING_STRUCT(12) dstr_535__CLASS_PROPED;
+  struct MELT_OBJECT_STRUCT(8) dobj_536__CLASS_MAKEDOC_INFO;
+  struct MELT_STRING_STRUCT(18) dstr_537__CLASS_MAKEDOC_IN;
+  struct MELT_MULTIPLE_STRUCT(2) dtup_538__CLASS_MAKEDOC_INFO;
+  struct MELT_MULTIPLE_STRUCT(15) dtup_539__CLASS_MAKEDOC_INFO;
+  struct MELT_OBJECT_STRUCT(3) dsym_540__MKDOC_PRIMITIVES;
+  struct MELT_STRING_STRUCT(16) dstr_541__MKDOC_PRIMITIVES;
+  struct MELT_OBJECT_STRUCT(4) dobj_542__MKDOC_PRIMITIVES;
+  struct MELT_STRING_STRUCT(16) dstr_543__MKDOC_PRIMITIVES;
+  struct MELT_OBJECT_STRUCT(3) dsym_544__MKDOC_FUNCTIONS;
+  struct MELT_STRING_STRUCT(15) dstr_545__MKDOC_FUNCTIONS;
+  struct MELT_OBJECT_STRUCT(4) dobj_546__MKDOC_FUNCTIONS;
+  struct MELT_STRING_STRUCT(15) dstr_547__MKDOC_FUNCTIONS;
+  struct MELT_OBJECT_STRUCT(3) dsym_548__MKDOC_CITERATORS;
+  struct MELT_STRING_STRUCT(16) dstr_549__MKDOC_CITERATORS;
+  struct MELT_OBJECT_STRUCT(4) dobj_550__MKDOC_CITERATORS;
+  struct MELT_STRING_STRUCT(16) dstr_551__MKDOC_CITERATORS;
+  struct MELT_OBJECT_STRUCT(3) dsym_552__MKDOC_CMATCHERS;
+  struct MELT_STRING_STRUCT(15) dstr_553__MKDOC_CMATCHERS;
+  struct MELT_OBJECT_STRUCT(4) dobj_554__MKDOC_CMATCHERS;
+  struct MELT_STRING_STRUCT(15) dstr_555__MKDOC_CMATCHERS;
+  struct MELT_OBJECT_STRUCT(3) dsym_556__MKDOC_SELECTORS;
+  struct MELT_STRING_STRUCT(15) dstr_557__MKDOC_SELECTORS;
+  struct MELT_OBJECT_STRUCT(4) dobj_558__MKDOC_SELECTORS;
+  struct MELT_STRING_STRUCT(15) dstr_559__MKDOC_SELECTORS;
+  struct MELT_OBJECT_STRUCT(3) dsym_560__MKDOC_FIELDS;
+  struct MELT_STRING_STRUCT(12) dstr_561__MKDOC_FIELDS;
+  struct MELT_OBJECT_STRUCT(4) dobj_562__MKDOC_FIELDS;
+  struct MELT_STRING_STRUCT(12) dstr_563__MKDOC_FIELDS;
+  struct MELT_OBJECT_STRUCT(3) dsym_564__MKDOC_CLASSES;
+  struct MELT_STRING_STRUCT(13) dstr_565__MKDOC_CLASSES;
+  struct MELT_OBJECT_STRUCT(4) dobj_566__MKDOC_CLASSES;
+  struct MELT_STRING_STRUCT(13) dstr_567__MKDOC_CLASSES;
+  struct MELT_OBJECT_STRUCT(3) dsym_568__MKDOC_INSTANCES;
+  struct MELT_STRING_STRUCT(15) dstr_569__MKDOC_INSTANCES;
+  struct MELT_OBJECT_STRUCT(4) dobj_570__MKDOC_INSTANCES;
+  struct MELT_STRING_STRUCT(15) dstr_571__MKDOC_INSTANCES;
+  struct MELT_OBJECT_STRUCT(3) dsym_572__MKDOC_MACROS;
+  struct MELT_STRING_STRUCT(12) dstr_573__MKDOC_MACROS;
+  struct MELT_OBJECT_STRUCT(4) dobj_574__MKDOC_MACROS;
+  struct MELT_STRING_STRUCT(12) dstr_575__MKDOC_MACROS;
+  struct MELT_OBJECT_STRUCT(3) dsym_576__MKDOC_PATMACROS;
+  struct MELT_STRING_STRUCT(15) dstr_577__MKDOC_PATMACROS;
+  struct MELT_OBJECT_STRUCT(4) dobj_578__MKDOC_PATMACROS;
+  struct MELT_STRING_STRUCT(15) dstr_579__MKDOC_PATMACROS;
+  struct MELT_OBJECT_STRUCT(3) dsym_580__MKDOC_FORMALOCCMAP;
+  struct MELT_STRING_STRUCT(18) dstr_581__MKDOC_FORMALOCCM;
+  struct MELT_OBJECT_STRUCT(4) dobj_582__MKDOC_FORMALOCCMAP;
+  struct MELT_STRING_STRUCT(18) dstr_583__MKDOC_FORMALOCCM;
+  struct MELT_OBJECT_STRUCT(3) dsym_584__MKDOC_PREDEFMAP;
+  struct MELT_STRING_STRUCT(15) dstr_585__MKDOC_PREDEFMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_586__MKDOC_PREDEFMAP;
+  struct MELT_STRING_STRUCT(15) dstr_587__MKDOC_PREDEFMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_588__MKDOC_DOCSYMAP;
+  struct MELT_STRING_STRUCT(14) dstr_589__MKDOC_DOCSYMAP;
+  struct MELT_OBJECT_STRUCT(4) dobj_590__MKDOC_DOCSYMAP;
+  struct MELT_STRING_STRUCT(14) dstr_591__MKDOC_DOCSYMAP;
+  struct MELT_OBJECT_STRUCT(3) dsym_592__MKDOC_SUBCLASSMAP;
+  struct MELT_STRING_STRUCT(17) dstr_593__MKDOC_SUBCLASSMA;
+  struct MELT_OBJECT_STRUCT(4) dobj_594__MKDOC_SUBCLASSMAP;
+  struct MELT_STRING_STRUCT(17) dstr_595__MKDOC_SUBCLASSMA;
+  struct MELT_ROUTINE_STRUCT(32) drout_596__MAKEDOC_SCANINPUT;
+  struct MELT_CLOSURE_STRUCT(0) dclo_597__MAKEDOC_SCANINPUT;
+  struct MELT_ROUTINE_STRUCT(2) drout_598__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(2) drout_599__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(4) drout_600__LAMBDA_;
+  struct MELT_OBJECT_STRUCT(3) dsym_601__CLASS_SOURCE_DEFINITION;
+  struct MELT_STRING_STRUCT(23) dstr_602__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_603__CLASS_ANY_BINDING;
+  struct MELT_STRING_STRUCT(17) dstr_604__CLASS_ANY_BINDIN;
+  struct MELT_ROUTINE_STRUCT(18) drout_605__LAMBDA_;
+  struct MELT_OBJECT_STRUCT(3) dsym_606__CLASS_SOURCE_DEFCLASS;
+  struct MELT_STRING_STRUCT(21) dstr_607__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_608__CLASS_SEXPR;
+  struct MELT_STRING_STRUCT(11) dstr_609__CLASS_SEXPR;
+  struct MELT_OBJECT_STRUCT(3) dsym_610__CLASS_CLASS_BINDING;
+  struct MELT_STRING_STRUCT(19) dstr_611__CLASS_CLASS_BIND;
+  struct MELT_OBJECT_STRUCT(3) dsym_612__CLASS_SOURCE_DEFSELECTOR;
+  struct MELT_STRING_STRUCT(24) dstr_613__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_614__CLASS_SOURCE_DEFINSTANCE;
+  struct MELT_STRING_STRUCT(24) dstr_615__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_616__CLASS_SOURCE_DEFPRIMITIVE;
+  struct MELT_STRING_STRUCT(25) dstr_617__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_618__CLASS_SOURCE_DEFUN;
+  struct MELT_STRING_STRUCT(18) dstr_619__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_620__CLASS_SOURCE_DEFCITERATOR;
+  struct MELT_STRING_STRUCT(25) dstr_621__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_622__CLASS_SOURCE_DEFCMATCHER;
+  struct MELT_STRING_STRUCT(24) dstr_623__CLASS_SOURCE_DEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_624__CLASS_SOURCE_EXPORT_PATMACRO;
+  struct MELT_STRING_STRUCT(28) dstr_625__CLASS_SOURCE_EXP;
+  struct MELT_OBJECT_STRUCT(3) dsym_626__CLASS_SOURCE_EXPORT_MACRO;
+  struct MELT_STRING_STRUCT(25) dstr_627__CLASS_SOURCE_EXP;
+  struct MELT_ROUTINE_STRUCT(2) drout_628__MAKEDOC_OUTDEFLOC;
+  struct MELT_CLOSURE_STRUCT(0) dclo_629__MAKEDOC_OUTDEFLOC;
+  struct MELT_ROUTINE_STRUCT(4) drout_630__MAKEDOC_OUTFORMALS;
+  struct MELT_CLOSURE_STRUCT(0) dclo_631__MAKEDOC_OUTFORMALS;
+  struct MELT_ROUTINE_STRUCT(2) drout_632__MAKEDOC_OUTDOC;
+  struct MELT_CLOSURE_STRUCT(0) dclo_633__MAKEDOC_OUTDOC;
+  struct MELT_ROUTINE_STRUCT(13) drout_634__MAKEDOC_OUTCLASSDEF;
+  struct MELT_CLOSURE_STRUCT(0) dclo_635__MAKEDOC_OUTCLASSDEF;
+  struct MELT_ROUTINE_STRUCT(9) drout_636__MAKEDOC_GENMACRO;
+  struct MELT_CLOSURE_STRUCT(0) dclo_637__MAKEDOC_GENMACRO;
+  struct MELT_ROUTINE_STRUCT(10) drout_638__MAKEDOC_GENPATMACRO;
+  struct MELT_CLOSURE_STRUCT(0) dclo_639__MAKEDOC_GENPATMACRO;
+  struct MELT_ROUTINE_STRUCT(21) drout_640__MAKEDOC_GENCLASS;
+  struct MELT_CLOSURE_STRUCT(0) dclo_641__MAKEDOC_GENCLASS;
+  struct meltint_st dint_642__;
+  struct meltint_st dint_643__;
+  struct meltint_st dint_644__;
+  struct MELT_ROUTINE_STRUCT(2) drout_645__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_646__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(1) drout_647__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(3) drout_648__LAMBDA_;
+  struct MELT_ROUTINE_STRUCT(9) drout_649__MAKEDOC_OUTPRIMITIVEDEF;
+  struct MELT_CLOSURE_STRUCT(0) dclo_650__MAKEDOC_OUTPRIMITIVEDEF;
+  struct MELT_OBJECT_STRUCT(3) dsym_651__CLASS_SOURCE_DEFINITION_FORMAL;
+  struct MELT_STRING_STRUCT(30) dstr_652__CLASS_SOURCE_DEF;
+  struct MELT_ROUTINE_STRUCT(6) drout_653__MAKEDOC_GENPRIMITIVE;
+  struct MELT_CLOSURE_STRUCT(0) dclo_654__MAKEDOC_GENPRIMITIVE;
+  struct MELT_ROUTINE_STRUCT(8) drout_655__MAKEDOC_OUTFUNCTIONDEF;
+  struct MELT_CLOSURE_STRUCT(0) dclo_656__MAKEDOC_OUTFUNCTIONDEF;
+  struct MELT_ROUTINE_STRUCT(6) drout_657__MAKEDOC_GENFUNCTION;
+  struct MELT_CLOSURE_STRUCT(0) dclo_658__MAKEDOC_GENFUNCTION;
+  struct MELT_ROUTINE_STRUCT(13) drout_659__MAKEDOC_GENCITERATOR;
+  struct MELT_CLOSURE_STRUCT(0) dclo_660__MAKEDOC_GENCITERATOR;
+  struct MELT_ROUTINE_STRUCT(15) drout_661__MAKEDOC_GENCMATCHER;
+  struct MELT_CLOSURE_STRUCT(0) dclo_662__MAKEDOC_GENCMATCHER;
+  struct MELT_OBJECT_STRUCT(3) dsym_663__CLASS_ANY_MATCHER;
+  struct MELT_STRING_STRUCT(17) dstr_664__CLASS_ANY_MATCHE;
+  struct MELT_ROUTINE_STRUCT(10) drout_665__MAKEDOC_GENOUTPUT;
+  struct MELT_CLOSURE_STRUCT(0) dclo_666__MAKEDOC_GENOUTPUT;
+  struct MELT_ROUTINE_STRUCT(14) drout_667__MAKEDOC_DOCMD;
+  struct MELT_CLOSURE_STRUCT(0) dclo_668__MAKEDOC_DOCMD;
+  struct MELT_ROUTINE_STRUCT(2) drout_669__LAMBDA_;
+  struct MELT_OBJECT_STRUCT(3) dsym_670__MAKEDOC_MODE;
+  struct MELT_STRING_STRUCT(12) dstr_671__MAKEDOC_MODE;
+  struct MELT_OBJECT_STRUCT(5) dobj_672__MAKEDOC_MODE;
+  struct MELT_STRING_STRUCT(7) dstr_673__makedoc;
+  struct MELT_STRING_STRUCT(69) dstr_674__MELT_makedoc_m;
+  struct MELT_OBJECT_STRUCT(3) dsym_675__COMPILE_LIST_SEXPR;
+  struct MELT_STRING_STRUCT(18) dstr_676__COMPILE_LIST_SEX;
+  struct MELT_OBJECT_STRUCT(3) dsym_677__INSTALL_MELT_MODE;
+  struct MELT_STRING_STRUCT(17) dstr_678__INSTALL_MELT_MOD;
  long spare_;
 } *cdat = NULL;
  cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0);
@@ -51922,7 +11681,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_45__CLASS_NREP_DATAINSTAN
  /*inirout drout_47__OUTCINITPREDEF_OBJINITOBJECT*/
  /*_.VALROUT___V191*/ curfptr[190] = (void*)&cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT;
   cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.routdescr, "OUTCINITPREDEF_OBJINITOBJECT @warmelt-outobj.melt:231",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.routdescr, "OUTCINITPREDEF_OBJINITOBJECT @warmelt-outobj.melt:220",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT, meltrout_10_warmelt_outobj_OUTCINITPREDEF_OBJINITOBJECT);
  
@@ -51947,7 +11706,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_49__CLASS_NREP_NIL));
  /*inirout drout_51__OUTDECLINIT_OBJINITMULTIPLE*/
  /*_.VALROUT___V195*/ curfptr[194] = (void*)&cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE;
   cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.routdescr, "OUTDECLINIT_OBJINITMULTIPLE @warmelt-outobj.melt:311",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.routdescr, "OUTDECLINIT_OBJINITMULTIPLE @warmelt-outobj.melt:300",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE, meltrout_11_warmelt_outobj_OUTDECLINIT_OBJINITMULTIPLE);
  
@@ -51972,7 +11731,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_53__CLASS_OBJINITMULTIPLE
  /*inirout drout_55__OUTCINITFILL_OBJINITMULTIPLE*/
  /*_.VALROUT___V199*/ curfptr[198] = (void*)&cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE;
   cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.routdescr, "OUTCINITFILL_OBJINITMULTIPLE @warmelt-outobj.melt:321",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.routdescr, "OUTCINITFILL_OBJINITMULTIPLE @warmelt-outobj.melt:310",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE, meltrout_12_warmelt_outobj_OUTCINITFILL_OBJINITMULTIPLE);
  
@@ -51984,7 +11743,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_53__CLASS_OBJINITMULTIPLE
  /*inirout drout_57__OUTDECLINIT_OBJINITCLOSURE*/
  /*_.VALROUT___V201*/ curfptr[200] = (void*)&cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE;
   cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.routdescr, "OUTDECLINIT_OBJINITCLOSURE @warmelt-outobj.melt:353",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.routdescr, "OUTDECLINIT_OBJINITCLOSURE @warmelt-outobj.melt:342",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE, meltrout_13_warmelt_outobj_OUTDECLINIT_OBJINITCLOSURE);
  
@@ -52009,7 +11768,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_59__CLASS_OBJINITCLOSURE)
  /*inirout drout_61__OUTCINITFILL_OBJINITCLOSURE*/
  /*_.VALROUT___V205*/ curfptr[204] = (void*)&cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE;
   cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.routdescr, "OUTCINITFILL_OBJINITCLOSURE @warmelt-outobj.melt:362",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.routdescr, "OUTCINITFILL_OBJINITCLOSURE @warmelt-outobj.melt:351",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE, meltrout_14_warmelt_outobj_OUTCINITFILL_OBJINITCLOSURE);
  
@@ -52021,7 +11780,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_59__CLASS_OBJINITCLOSURE)
  /*inirout drout_63__OUTDECLINIT_OBJINITROUTINE*/
  /*_.VALROUT___V207*/ curfptr[206] = (void*)&cdat->drout_63__OUTDECLINIT_OBJINITROUTINE;
   cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.routdescr, "OUTDECLINIT_OBJINITROUTINE @warmelt-outobj.melt:397",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.routdescr, "OUTDECLINIT_OBJINITROUTINE @warmelt-outobj.melt:386",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_63__OUTDECLINIT_OBJINITROUTINE, meltrout_15_warmelt_outobj_OUTDECLINIT_OBJINITROUTINE);
  
@@ -52046,7 +11805,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_65__CLASS_OBJINITROUTINE)
  /*inirout drout_67__OUTCINITFILL_OBJINITROUTINE*/
  /*_.VALROUT___V211*/ curfptr[210] = (void*)&cdat->drout_67__OUTCINITFILL_OBJINITROUTINE;
   cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.routdescr, "OUTCINITFILL_OBJINITROUTINE @warmelt-outobj.melt:407",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.routdescr, "OUTCINITFILL_OBJINITROUTINE @warmelt-outobj.melt:396",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_67__OUTCINITFILL_OBJINITROUTINE, meltrout_16_warmelt_outobj_OUTCINITFILL_OBJINITROUTINE);
  
@@ -52097,7 +11856,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_73__CLASS_NREP_ROUTPROC))
  /*inirout drout_75__OUTDECLINIT_OBJINITSTRING*/
  /*_.VALROUT___V219*/ curfptr[218] = (void*)&cdat->drout_75__OUTDECLINIT_OBJINITSTRING;
   cdat->drout_75__OUTDECLINIT_OBJINITSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_75__OUTDECLINIT_OBJINITSTRING.routdescr, "OUTDECLINIT_OBJINITSTRING @warmelt-outobj.melt:488",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_75__OUTDECLINIT_OBJINITSTRING.routdescr, "OUTDECLINIT_OBJINITSTRING @warmelt-outobj.melt:477",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_75__OUTDECLINIT_OBJINITSTRING.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_75__OUTDECLINIT_OBJINITSTRING, meltrout_17_warmelt_outobj_OUTDECLINIT_OBJINITSTRING);
  
@@ -52122,7 +11881,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_77__CLASS_OBJINITSTRING))
  /*inirout drout_79__OUTCINITFILL_OBJINITSTRING*/
  /*_.VALROUT___V223*/ curfptr[222] = (void*)&cdat->drout_79__OUTCINITFILL_OBJINITSTRING;
   cdat->drout_79__OUTCINITFILL_OBJINITSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_79__OUTCINITFILL_OBJINITSTRING.routdescr, "OUTCINITFILL_OBJINITSTRING @warmelt-outobj.melt:498",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_79__OUTCINITFILL_OBJINITSTRING.routdescr, "OUTCINITFILL_OBJINITSTRING @warmelt-outobj.melt:487",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_79__OUTCINITFILL_OBJINITSTRING.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_79__OUTCINITFILL_OBJINITSTRING, meltrout_18_warmelt_outobj_OUTCINITFILL_OBJINITSTRING);
  
@@ -52134,7 +11893,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_77__CLASS_OBJINITSTRING))
  /*inirout drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER*/
  /*_.VALROUT___V225*/ curfptr[224] = (void*)&cdat->drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER;
   cdat->drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER.routdescr, "OUTDECLINIT_OBJINITBOXEDINTEGER @warmelt-outobj.melt:535",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER.routdescr, "OUTDECLINIT_OBJINITBOXEDINTEGER @warmelt-outobj.melt:524",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_81__OUTDECLINIT_OBJINITBOXEDINTEGER, meltrout_19_warmelt_outobj_OUTDECLINIT_OBJINITBOXEDINTEGER);
  
@@ -52159,7 +11918,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_83__CLASS_OBJINITBOXINTEG
  /*inirout drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER*/
  /*_.VALROUT___V229*/ curfptr[228] = (void*)&cdat->drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER;
   cdat->drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER.routdescr, "OUTCINITFILL_OBJINITBOXEDINTEGER @warmelt-outobj.melt:543",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER.routdescr, "OUTCINITFILL_OBJINITBOXEDINTEGER @warmelt-outobj.melt:532",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER, meltrout_20_warmelt_outobj_OUTCINITFILL_OBJINITBOXEDINTEGER);
  
@@ -52171,7 +11930,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_83__CLASS_OBJINITBOXINTEG
  /*inirout drout_87__OUTPUCOD_ANYDISCR*/
  /*_.VALROUT___V231*/ curfptr[230] = (void*)&cdat->drout_87__OUTPUCOD_ANYDISCR;
   cdat->drout_87__OUTPUCOD_ANYDISCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_87__OUTPUCOD_ANYDISCR.routdescr, "OUTPUCOD_ANYDISCR @warmelt-outobj.melt:582",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_87__OUTPUCOD_ANYDISCR.routdescr, "OUTPUCOD_ANYDISCR @warmelt-outobj.melt:571",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_87__OUTPUCOD_ANYDISCR.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_87__OUTPUCOD_ANYDISCR, meltrout_21_warmelt_outobj_OUTPUCOD_ANYDISCR);
  
@@ -52196,7 +11955,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_89__DISCR_ANY_RECEIVER));
  /*inirout drout_91__OUTPUCOD_NULL*/
  /*_.VALROUT___V235*/ curfptr[234] = (void*)&cdat->drout_91__OUTPUCOD_NULL;
   cdat->drout_91__OUTPUCOD_NULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_91__OUTPUCOD_NULL.routdescr, "OUTPUCOD_NULL @warmelt-outobj.melt:591",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_91__OUTPUCOD_NULL.routdescr, "OUTPUCOD_NULL @warmelt-outobj.melt:580",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_91__OUTPUCOD_NULL.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_91__OUTPUCOD_NULL, meltrout_22_warmelt_outobj_OUTPUCOD_NULL);
  
@@ -52221,7 +11980,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_93__DISCR_NULL_RECEIVER))
  /*inirout drout_95__OUTPUCOD_CATCHALL_ROOT*/
  /*_.VALROUT___V239*/ curfptr[238] = (void*)&cdat->drout_95__OUTPUCOD_CATCHALL_ROOT;
   cdat->drout_95__OUTPUCOD_CATCHALL_ROOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_95__OUTPUCOD_CATCHALL_ROOT.routdescr, "OUTPUCOD_CATCHALL_ROOT @warmelt-outobj.melt:597",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_95__OUTPUCOD_CATCHALL_ROOT.routdescr, "OUTPUCOD_CATCHALL_ROOT @warmelt-outobj.melt:586",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_95__OUTPUCOD_CATCHALL_ROOT.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_95__OUTPUCOD_CATCHALL_ROOT, meltrout_23_warmelt_outobj_OUTPUCOD_CATCHALL_ROOT);
  
@@ -52246,7 +12005,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_97__DISPLAY_DEBUG_MESSAGE
  /*inirout drout_99__OUTPUT_RAW_LOCATION*/
  /*_.VALROUT___V187*/ curfptr[186] = (void*)&cdat->drout_99__OUTPUT_RAW_LOCATION;
   cdat->drout_99__OUTPUT_RAW_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_99__OUTPUT_RAW_LOCATION.routdescr, "OUTPUT_RAW_LOCATION @warmelt-outobj.melt:610",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_99__OUTPUT_RAW_LOCATION.routdescr, "OUTPUT_RAW_LOCATION @warmelt-outobj.melt:599",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_99__OUTPUT_RAW_LOCATION.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_99__OUTPUT_RAW_LOCATION, meltrout_24_warmelt_outobj_OUTPUT_RAW_LOCATION);
  
@@ -52258,7 +12017,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_97__DISPLAY_DEBUG_MESSAGE
  /*inirout drout_101__OUTPUT_LOCATION*/
  /*_.VALROUT___V185*/ curfptr[184] = (void*)&cdat->drout_101__OUTPUT_LOCATION;
   cdat->drout_101__OUTPUT_LOCATION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_101__OUTPUT_LOCATION.routdescr, "OUTPUT_LOCATION @warmelt-outobj.melt:641",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_101__OUTPUT_LOCATION.routdescr, "OUTPUT_LOCATION @warmelt-outobj.melt:630",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_101__OUTPUT_LOCATION.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_101__OUTPUT_LOCATION, meltrout_25_warmelt_outobj_OUTPUT_LOCATION);
  
@@ -52270,7 +12029,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_97__DISPLAY_DEBUG_MESSAGE
  /*inirout drout_103__OUTPUT_CURFRAME_DECLSTRUCT*/
  /*_.VALROUT___V243*/ curfptr[242] = (void*)&cdat->drout_103__OUTPUT_CURFRAME_DECLSTRUCT;
   cdat->drout_103__OUTPUT_CURFRAME_DECLSTRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_103__OUTPUT_CURFRAME_DECLSTRUCT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:671",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_103__OUTPUT_CURFRAME_DECLSTRUCT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:660",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_103__OUTPUT_CURFRAME_DECLSTRUCT.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_103__OUTPUT_CURFRAME_DECLSTRUCT, meltrout_26_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT);
  
@@ -52308,7 +12067,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_107__LIST_EVERY));
  /*inirout drout_109__LAMBDA_*/
  /*_.VALROUT___V244*/ curfptr[243] = (void*)&cdat->drout_109__LAMBDA_;
   cdat->drout_109__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_109__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:742",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_109__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:731",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_109__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_109__LAMBDA_, meltrout_27_warmelt_outobj_LAMBDA_);
  
@@ -52341,7 +12100,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_112__CLASS_CTYPE));
  /*inirout drout_114__OUTPUCOD_MARKER*/
  /*_.VALROUT___V254*/ curfptr[253] = (void*)&cdat->drout_114__OUTPUCOD_MARKER;
   cdat->drout_114__OUTPUCOD_MARKER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_114__OUTPUCOD_MARKER.routdescr, "OUTPUCOD_MARKER @warmelt-outobj.melt:766",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_114__OUTPUCOD_MARKER.routdescr, "OUTPUCOD_MARKER @warmelt-outobj.melt:755",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_114__OUTPUCOD_MARKER.nbval = 10;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_114__OUTPUCOD_MARKER, meltrout_28_warmelt_outobj_OUTPUCOD_MARKER);
  
@@ -52379,7 +12138,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_118__CTYPE_VALUE));
  /*inirout drout_120__LAMBDA_*/
  /*_.VALROUT___V255*/ curfptr[254] = (void*)&cdat->drout_120__LAMBDA_;
   cdat->drout_120__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_120__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:787",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_120__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:776",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_120__LAMBDA_.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_120__LAMBDA_, meltrout_29_warmelt_outobj_LAMBDA_);
  
@@ -52399,7 +12158,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_121__CLASS_OBJVALUE));
  /*inirout drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/
  /*_.VALROUT___V263*/ curfptr[262] = (void*)&cdat->drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT;
   cdat->drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT_INIT @warmelt-outobj.melt:820",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT_INIT @warmelt-outobj.melt:809",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT, meltrout_30_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT);
  
@@ -52411,7 +12170,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_121__CLASS_OBJVALUE));
  /*inirout drout_125__OUTPUCOD_PROCROUTINE*/
  /*_.VALROUT___V265*/ curfptr[264] = (void*)&cdat->drout_125__OUTPUCOD_PROCROUTINE;
   cdat->drout_125__OUTPUCOD_PROCROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_125__OUTPUCOD_PROCROUTINE.routdescr, "OUTPUCOD_PROCROUTINE @warmelt-outobj.melt:884",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_125__OUTPUCOD_PROCROUTINE.routdescr, "OUTPUCOD_PROCROUTINE @warmelt-outobj.melt:873",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_125__OUTPUCOD_PROCROUTINE.nbval = 13;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_125__OUTPUCOD_PROCROUTINE, meltrout_31_warmelt_outobj_OUTPUCOD_PROCROUTINE);
  
@@ -52454,14 +12213,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_130__MULTIPLE_EVERY));
  /*inirout drout_132__LAMBDA_*/
  /*_.VALROUT___V267*/ curfptr[266] = (void*)&cdat->drout_132__LAMBDA_;
   cdat->drout_132__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_132__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:946",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_132__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:935",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_132__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_132__LAMBDA_, meltrout_32_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_133__LAMBDA_*/
  /*_.VALROUT___V268*/ curfptr[267] = (void*)&cdat->drout_133__LAMBDA_;
   cdat->drout_133__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_133__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:967",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_133__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:956",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_133__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_133__LAMBDA_, meltrout_33_warmelt_outobj_LAMBDA_);
  
@@ -52481,7 +12240,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_134__CLASS_OBJPUREVALUE))
  /*inirout drout_136__OUTPUT_CURFRAME_CDAT_STRUCT*/
  /*_.VALROUT___V276*/ curfptr[275] = (void*)&cdat->drout_136__OUTPUT_CURFRAME_CDAT_STRUCT;
   cdat->drout_136__OUTPUT_CURFRAME_CDAT_STRUCT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_136__OUTPUT_CURFRAME_CDAT_STRUCT.routdescr, "OUTPUT_CURFRAME_CDAT_STRUCT @warmelt-outobj.melt:1008",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_136__OUTPUT_CURFRAME_CDAT_STRUCT.routdescr, "OUTPUT_CURFRAME_CDAT_STRUCT @warmelt-outobj.melt:997",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_136__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_136__OUTPUT_CURFRAME_CDAT_STRUCT, meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT);
  
@@ -52493,14 +12252,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_134__CLASS_OBJPUREVALUE))
  /*inirout drout_138__LAMBDA_*/
  /*_.VALROUT___V277*/ curfptr[276] = (void*)&cdat->drout_138__LAMBDA_;
   cdat->drout_138__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_138__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1013",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_138__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1002",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_138__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_138__LAMBDA_, meltrout_35_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_139__OUTPUT_CURFRAME_CDAT_FILL*/
  /*_.VALROUT___V279*/ curfptr[278] = (void*)&cdat->drout_139__OUTPUT_CURFRAME_CDAT_FILL;
   cdat->drout_139__OUTPUT_CURFRAME_CDAT_FILL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_139__OUTPUT_CURFRAME_CDAT_FILL.routdescr, "OUTPUT_CURFRAME_CDAT_FILL @warmelt-outobj.melt:1024",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_139__OUTPUT_CURFRAME_CDAT_FILL.routdescr, "OUTPUT_CURFRAME_CDAT_FILL @warmelt-outobj.melt:1013",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_139__OUTPUT_CURFRAME_CDAT_FILL.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_139__OUTPUT_CURFRAME_CDAT_FILL, meltrout_36_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL);
  
@@ -52512,21 +12271,21 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_134__CLASS_OBJPUREVALUE))
  /*inirout drout_141__LAMBDA_*/
  /*_.VALROUT___V280*/ curfptr[279] = (void*)&cdat->drout_141__LAMBDA_;
   cdat->drout_141__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_141__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1036",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_141__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1025",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_141__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_141__LAMBDA_, meltrout_37_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_142__LAMBDA_*/
  /*_.VALROUT___V281*/ curfptr[280] = (void*)&cdat->drout_142__LAMBDA_;
   cdat->drout_142__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_142__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1045",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_142__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1034",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_142__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_142__LAMBDA_, meltrout_38_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_143__OUTPUCOD_INITIALROUTINE*/
  /*_.VALROUT___V283*/ curfptr[282] = (void*)&cdat->drout_143__OUTPUCOD_INITIALROUTINE;
   cdat->drout_143__OUTPUCOD_INITIALROUTINE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_143__OUTPUCOD_INITIALROUTINE.routdescr, "OUTPUCOD_INITIALROUTINE @warmelt-outobj.melt:1063",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_143__OUTPUCOD_INITIALROUTINE.routdescr, "OUTPUCOD_INITIALROUTINE @warmelt-outobj.melt:1052",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_143__OUTPUCOD_INITIALROUTINE.nbval = 15;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_143__OUTPUCOD_INITIALROUTINE, meltrout_39_warmelt_outobj_OUTPUCOD_INITIALROUTINE);
  
@@ -52538,28 +12297,28 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_134__CLASS_OBJPUREVALUE))
  /*inirout drout_145__LAMBDA_*/
  /*_.VALROUT___V284*/ curfptr[283] = (void*)&cdat->drout_145__LAMBDA_;
   cdat->drout_145__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_145__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1116",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_145__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1105",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_145__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_145__LAMBDA_, meltrout_40_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_146__LAMBDA_*/
  /*_.VALROUT___V285*/ curfptr[284] = (void*)&cdat->drout_146__LAMBDA_;
   cdat->drout_146__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_146__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1129",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_146__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1118",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_146__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_146__LAMBDA_, meltrout_41_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_147__LAMBDA_*/
  /*_.VALROUT___V286*/ curfptr[285] = (void*)&cdat->drout_147__LAMBDA_;
   cdat->drout_147__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_147__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1153",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_147__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1142",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_147__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_147__LAMBDA_, meltrout_42_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_148__OUTPUCOD_GETARG*/
  /*_.VALROUT___V288*/ curfptr[287] = (void*)&cdat->drout_148__OUTPUCOD_GETARG;
   cdat->drout_148__OUTPUCOD_GETARG.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_148__OUTPUCOD_GETARG.routdescr, "OUTPUCOD_GETARG @warmelt-outobj.melt:1203",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_148__OUTPUCOD_GETARG.routdescr, "OUTPUCOD_GETARG @warmelt-outobj.melt:1192",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_148__OUTPUCOD_GETARG.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_148__OUTPUCOD_GETARG, meltrout_43_warmelt_outobj_OUTPUCOD_GETARG);
  
@@ -52597,7 +12356,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_152__CLASS_FORMAL_BINDING
  /*inirout drout_154__OUTPUCOD_OBJLOCV*/
  /*_.VALROUT___V294*/ curfptr[293] = (void*)&cdat->drout_154__OUTPUCOD_OBJLOCV;
   cdat->drout_154__OUTPUCOD_OBJLOCV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_154__OUTPUCOD_OBJLOCV.routdescr, "OUTPUCOD_OBJLOCV @warmelt-outobj.melt:1269",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_154__OUTPUCOD_OBJLOCV.routdescr, "OUTPUCOD_OBJLOCV @warmelt-outobj.melt:1258",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_154__OUTPUCOD_OBJLOCV.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_154__OUTPUCOD_OBJLOCV, meltrout_44_warmelt_outobj_OUTPUCOD_OBJLOCV);
  
@@ -52622,7 +12381,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_156__CTYPE_LONG));
  /*inirout drout_158__OUTPUCOD_OBJCLOCCV*/
  /*_.VALROUT___V298*/ curfptr[297] = (void*)&cdat->drout_158__OUTPUCOD_OBJCLOCCV;
   cdat->drout_158__OUTPUCOD_OBJCLOCCV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_158__OUTPUCOD_OBJCLOCCV.routdescr, "OUTPUCOD_OBJCLOCCV @warmelt-outobj.melt:1299",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_158__OUTPUCOD_OBJCLOCCV.routdescr, "OUTPUCOD_OBJCLOCCV @warmelt-outobj.melt:1288",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_158__OUTPUCOD_OBJCLOCCV.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_158__OUTPUCOD_OBJCLOCCV, meltrout_45_warmelt_outobj_OUTPUCOD_OBJCLOCCV);
  
@@ -52647,7 +12406,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_160__CLASS_OBJCLOCCV));
  /*inirout drout_162__OUTPUCOD_OBJCONSTV*/
  /*_.VALROUT___V302*/ curfptr[301] = (void*)&cdat->drout_162__OUTPUCOD_OBJCONSTV;
   cdat->drout_162__OUTPUCOD_OBJCONSTV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_162__OUTPUCOD_OBJCONSTV.routdescr, "OUTPUCOD_OBJCONSTV @warmelt-outobj.melt:1316",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_162__OUTPUCOD_OBJCONSTV.routdescr, "OUTPUCOD_OBJCONSTV @warmelt-outobj.melt:1305",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_162__OUTPUCOD_OBJCONSTV.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_162__OUTPUCOD_OBJCONSTV, meltrout_46_warmelt_outobj_OUTPUCOD_OBJCONSTV);
  
@@ -52672,7 +12431,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_164__CLASS_OBJCONSTV));
  /*inirout drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST*/
  /*_.VALROUT___V306*/ curfptr[305] = (void*)&cdat->drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST;
   cdat->drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST.routdescr, "OUTPUT_CODE_INSTRUCTIONS_LIST @warmelt-outobj.melt:1334",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST.routdescr, "OUTPUT_CODE_INSTRUCTIONS_LIST @warmelt-outobj.melt:1323",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST, meltrout_47_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST);
  
@@ -52684,14 +12443,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_164__CLASS_OBJCONSTV));
  /*inirout drout_168__LAMBDA_*/
  /*_.VALROUT___V307*/ curfptr[306] = (void*)&cdat->drout_168__LAMBDA_;
   cdat->drout_168__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_168__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1339",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_168__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1328",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_168__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_168__LAMBDA_, meltrout_48_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_169__OUTPUCOD_OBJBLOCK*/
  /*_.VALROUT___V309*/ curfptr[308] = (void*)&cdat->drout_169__OUTPUCOD_OBJBLOCK;
   cdat->drout_169__OUTPUCOD_OBJBLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_169__OUTPUCOD_OBJBLOCK.routdescr, "OUTPUCOD_OBJBLOCK @warmelt-outobj.melt:1351",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_169__OUTPUCOD_OBJBLOCK.routdescr, "OUTPUCOD_OBJBLOCK @warmelt-outobj.melt:1340",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_169__OUTPUCOD_OBJBLOCK.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_169__OUTPUCOD_OBJBLOCK, meltrout_49_warmelt_outobj_OUTPUCOD_OBJBLOCK);
  
@@ -52729,7 +12488,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_173__DISCR_INTEGER));
  /*inirout drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK*/
  /*_.VALROUT___V315*/ curfptr[314] = (void*)&cdat->drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK;
   cdat->drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK.routdescr, "OUTPUCOD_OBJMULTIALLOCBLOCK @warmelt-outobj.melt:1375",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK.routdescr, "OUTPUCOD_OBJMULTIALLOCBLOCK @warmelt-outobj.melt:1364",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK, meltrout_50_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK);
  
@@ -52754,7 +12513,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_177__CLASS_OBJMULTIALLOCB
  /*inirout drout_179__OUTPUCOD_OBJCITERBLOCK*/
  /*_.VALROUT___V319*/ curfptr[318] = (void*)&cdat->drout_179__OUTPUCOD_OBJCITERBLOCK;
   cdat->drout_179__OUTPUCOD_OBJCITERBLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_179__OUTPUCOD_OBJCITERBLOCK.routdescr, "OUTPUCOD_OBJCITERBLOCK @warmelt-outobj.melt:1384",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_179__OUTPUCOD_OBJCITERBLOCK.routdescr, "OUTPUCOD_OBJCITERBLOCK @warmelt-outobj.melt:1373",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_179__OUTPUCOD_OBJCITERBLOCK.nbval = 11;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_179__OUTPUCOD_OBJCITERBLOCK, meltrout_51_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK);
  
@@ -52792,21 +12551,21 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_183__CLASS_CITERATOR));
  /*inirout drout_185__LAMBDA_*/
  /*_.VALROUT___V320*/ curfptr[319] = (void*)&cdat->drout_185__LAMBDA_;
   cdat->drout_185__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_185__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1404",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_185__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1393",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_185__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_185__LAMBDA_, meltrout_52_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_186__LAMBDA_*/
  /*_.VALROUT___V321*/ curfptr[320] = (void*)&cdat->drout_186__LAMBDA_;
   cdat->drout_186__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_186__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1415",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_186__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1404",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_186__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_186__LAMBDA_, meltrout_53_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_187__OUTPUCOD_OBJCOMMENTINSTR*/
  /*_.VALROUT___V327*/ curfptr[326] = (void*)&cdat->drout_187__OUTPUCOD_OBJCOMMENTINSTR;
   cdat->drout_187__OUTPUCOD_OBJCOMMENTINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_187__OUTPUCOD_OBJCOMMENTINSTR.routdescr, "OUTPUCOD_OBJCOMMENTINSTR @warmelt-outobj.melt:1434",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_187__OUTPUCOD_OBJCOMMENTINSTR.routdescr, "OUTPUCOD_OBJCOMMENTINSTR @warmelt-outobj.melt:1423",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_187__OUTPUCOD_OBJCOMMENTINSTR.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_187__OUTPUCOD_OBJCOMMENTINSTR, meltrout_54_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR);
  
@@ -52857,7 +12616,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_193__DISCR_STRING));
  /*inirout drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK*/
  /*_.VALROUT___V335*/ curfptr[334] = (void*)&cdat->drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK;
   cdat->drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK.routdescr, "OUTPUCOD_OBJCOMMENTEDBLOCK @warmelt-outobj.melt:1453",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK.routdescr, "OUTPUCOD_OBJCOMMENTEDBLOCK @warmelt-outobj.melt:1442",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK, meltrout_55_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK);
  
@@ -52882,7 +12641,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_197__CLASS_OBJCOMMENTEDBL
  /*inirout drout_199__OUTPUCOD_OBJLABELINSTR*/
  /*_.VALROUT___V339*/ curfptr[338] = (void*)&cdat->drout_199__OUTPUCOD_OBJLABELINSTR;
   cdat->drout_199__OUTPUCOD_OBJLABELINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_199__OUTPUCOD_OBJLABELINSTR.routdescr, "OUTPUCOD_OBJLABELINSTR @warmelt-outobj.melt:1491",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_199__OUTPUCOD_OBJLABELINSTR.routdescr, "OUTPUCOD_OBJLABELINSTR @warmelt-outobj.melt:1480",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_199__OUTPUCOD_OBJLABELINSTR.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_199__OUTPUCOD_OBJLABELINSTR, meltrout_56_warmelt_outobj_OUTPUCOD_OBJLABELINSTR);
  
@@ -52907,7 +12666,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_201__CLASS_OBJLABELINSTR)
  /*inirout drout_203__OUTPUCOD_OBJGOTOINSTR*/
  /*_.VALROUT___V343*/ curfptr[342] = (void*)&cdat->drout_203__OUTPUCOD_OBJGOTOINSTR;
   cdat->drout_203__OUTPUCOD_OBJGOTOINSTR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_203__OUTPUCOD_OBJGOTOINSTR.routdescr, "OUTPUCOD_OBJGOTOINSTR @warmelt-outobj.melt:1509",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_203__OUTPUCOD_OBJGOTOINSTR.routdescr, "OUTPUCOD_OBJGOTOINSTR @warmelt-outobj.melt:1498",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_203__OUTPUCOD_OBJGOTOINSTR.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_203__OUTPUCOD_OBJGOTOINSTR, meltrout_57_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR);
  
@@ -52932,7 +12691,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_205__CLASS_OBJGOTOINSTR))
  /*inirout drout_207__ADD2SBUF_CLONSYM*/
  /*_.VALROUT___V347*/ curfptr[346] = (void*)&cdat->drout_207__ADD2SBUF_CLONSYM;
   cdat->drout_207__ADD2SBUF_CLONSYM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_207__ADD2SBUF_CLONSYM.routdescr, "ADD2SBUF_CLONSYM @warmelt-outobj.melt:1525",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_207__ADD2SBUF_CLONSYM.routdescr, "ADD2SBUF_CLONSYM @warmelt-outobj.melt:1514",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_207__ADD2SBUF_CLONSYM.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_207__ADD2SBUF_CLONSYM, meltrout_58_warmelt_outobj_ADD2SBUF_CLONSYM);
  
@@ -52957,7 +12716,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_209__CLASS_CLONED_SYMBOL)
  /*inirout drout_211__OUTPUCOD_OBJLOOP*/
  /*_.VALROUT___V351*/ curfptr[350] = (void*)&cdat->drout_211__OUTPUCOD_OBJLOOP;
   cdat->drout_211__OUTPUCOD_OBJLOOP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_211__OUTPUCOD_OBJLOOP.routdescr, "OUTPUCOD_OBJLOOP @warmelt-outobj.melt:1536",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_211__OUTPUCOD_OBJLOOP.routdescr, "OUTPUCOD_OBJLOOP @warmelt-outobj.melt:1525",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_211__OUTPUCOD_OBJLOOP.nbval = 13;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_211__OUTPUCOD_OBJLOOP, meltrout_59_warmelt_outobj_OUTPUCOD_OBJLOOP);
  
@@ -52982,21 +12741,21 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_213__CLASS_OBJLOOP));
  /*inirout drout_215__LAMBDA_*/
  /*_.VALROUT___V352*/ curfptr[351] = (void*)&cdat->drout_215__LAMBDA_;
   cdat->drout_215__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_215__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1556",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_215__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1545",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_215__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_215__LAMBDA_, meltrout_60_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_216__LAMBDA_*/
  /*_.VALROUT___V353*/ curfptr[352] = (void*)&cdat->drout_216__LAMBDA_;
   cdat->drout_216__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_216__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1578",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_216__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1567",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_216__LAMBDA_.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_216__LAMBDA_, meltrout_61_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_217__OUTPUCOD_OBJEXIT*/
  /*_.VALROUT___V357*/ curfptr[356] = (void*)&cdat->drout_217__OUTPUCOD_OBJEXIT;
   cdat->drout_217__OUTPUCOD_OBJEXIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_217__OUTPUCOD_OBJEXIT.routdescr, "OUTPUCOD_OBJEXIT @warmelt-outobj.melt:1593",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_217__OUTPUCOD_OBJEXIT.routdescr, "OUTPUCOD_OBJEXIT @warmelt-outobj.melt:1582",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_217__OUTPUCOD_OBJEXIT.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_217__OUTPUCOD_OBJEXIT, meltrout_62_warmelt_outobj_OUTPUCOD_OBJEXIT);
  
@@ -53021,7 +12780,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_219__CLASS_OBJEXIT));
  /*inirout drout_221__OUTPUCOD_OBJCOMPUTE*/
  /*_.VALROUT___V361*/ curfptr[360] = (void*)&cdat->drout_221__OUTPUCOD_OBJCOMPUTE;
   cdat->drout_221__OUTPUCOD_OBJCOMPUTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_221__OUTPUCOD_OBJCOMPUTE.routdescr, "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.melt:1611",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_221__OUTPUCOD_OBJCOMPUTE.routdescr, "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.melt:1600",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_221__OUTPUCOD_OBJCOMPUTE.nbval = 13;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_221__OUTPUCOD_OBJCOMPUTE, meltrout_63_warmelt_outobj_OUTPUCOD_OBJCOMPUTE);
  
@@ -53046,28 +12805,28 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_223__CLASS_OBJCOMPUTE));
  /*inirout drout_225__LAMBDA_*/
  /*_.VALROUT___V362*/ curfptr[361] = (void*)&cdat->drout_225__LAMBDA_;
   cdat->drout_225__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_225__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1623",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_225__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1612",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_225__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_225__LAMBDA_, meltrout_64_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_226__LAMBDA_*/
  /*_.VALROUT___V363*/ curfptr[362] = (void*)&cdat->drout_226__LAMBDA_;
   cdat->drout_226__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_226__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1632",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_226__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1621",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_226__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_226__LAMBDA_, meltrout_65_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_227__LAMBDA_*/
  /*_.VALROUT___V364*/ curfptr[363] = (void*)&cdat->drout_227__LAMBDA_;
   cdat->drout_227__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_227__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1639",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_227__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1628",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_227__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_227__LAMBDA_, meltrout_66_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_228__OUTPUCOD_OBJCOND*/
  /*_.VALROUT___V368*/ curfptr[367] = (void*)&cdat->drout_228__OUTPUCOD_OBJCOND;
   cdat->drout_228__OUTPUCOD_OBJCOND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_228__OUTPUCOD_OBJCOND.routdescr, "OUTPUCOD_OBJCOND @warmelt-outobj.melt:1650",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_228__OUTPUCOD_OBJCOND.routdescr, "OUTPUCOD_OBJCOND @warmelt-outobj.melt:1639",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_228__OUTPUCOD_OBJCOND.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_228__OUTPUCOD_OBJCOND, meltrout_67_warmelt_outobj_OUTPUCOD_OBJCOND);
  
@@ -53092,7 +12851,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_230__CLASS_OBJCOND));
  /*inirout drout_232__OUTPUCOD_OBJCPPIF*/
  /*_.VALROUT___V372*/ curfptr[371] = (void*)&cdat->drout_232__OUTPUCOD_OBJCPPIF;
   cdat->drout_232__OUTPUCOD_OBJCPPIF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_232__OUTPUCOD_OBJCPPIF.routdescr, "OUTPUCOD_OBJCPPIF @warmelt-outobj.melt:1692",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_232__OUTPUCOD_OBJCPPIF.routdescr, "OUTPUCOD_OBJCPPIF @warmelt-outobj.melt:1681",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_232__OUTPUCOD_OBJCPPIF.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_232__OUTPUCOD_OBJCPPIF, meltrout_68_warmelt_outobj_OUTPUCOD_OBJCPPIF);
  
@@ -53117,7 +12876,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_234__CLASS_OBJCPPIF));
  /*inirout drout_236__OUTPUCOD_OBJINTERNSYMBOL*/
  /*_.VALROUT___V376*/ curfptr[375] = (void*)&cdat->drout_236__OUTPUCOD_OBJINTERNSYMBOL;
   cdat->drout_236__OUTPUCOD_OBJINTERNSYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_236__OUTPUCOD_OBJINTERNSYMBOL.routdescr, "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.melt:1724",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_236__OUTPUCOD_OBJINTERNSYMBOL.routdescr, "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.melt:1713",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_236__OUTPUCOD_OBJINTERNSYMBOL.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_236__OUTPUCOD_OBJINTERNSYMBOL, meltrout_69_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL);
  
@@ -53155,7 +12914,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_240__CLASS_NREP_DATASYMBO
  /*inirout drout_242__OUTPUCOD_OBJINTERNKEYWORD*/
  /*_.VALROUT___V382*/ curfptr[381] = (void*)&cdat->drout_242__OUTPUCOD_OBJINTERNKEYWORD;
   cdat->drout_242__OUTPUCOD_OBJINTERNKEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_242__OUTPUCOD_OBJINTERNKEYWORD.routdescr, "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.melt:1748",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_242__OUTPUCOD_OBJINTERNKEYWORD.routdescr, "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.melt:1737",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_242__OUTPUCOD_OBJINTERNKEYWORD.nbval = 5;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_242__OUTPUCOD_OBJINTERNKEYWORD, meltrout_70_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD);
  
@@ -53193,7 +12952,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_246__CLASS_NREP_DATAKEYWO
  /*inirout drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL*/
  /*_.VALROUT___V388*/ curfptr[387] = (void*)&cdat->drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL;
   cdat->drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL.routdescr, "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.melt:1771",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL.routdescr, "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.melt:1760",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL, meltrout_71_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL);
  
@@ -53218,7 +12977,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_250__CLASS_OBJGETNAMEDSYM
  /*inirout drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD*/
  /*_.VALROUT___V392*/ curfptr[391] = (void*)&cdat->drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD;
   cdat->drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD.routdescr, "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.melt:1809",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD.routdescr, "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.melt:1798",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD, meltrout_72_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD);
  
@@ -53243,7 +13002,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_254__CLASS_OBJGETNAMEDKEY
  /*inirout drout_256__OUTPUCOD_OBJAPPLY*/
  /*_.VALROUT___V396*/ curfptr[395] = (void*)&cdat->drout_256__OUTPUCOD_OBJAPPLY;
   cdat->drout_256__OUTPUCOD_OBJAPPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_256__OUTPUCOD_OBJAPPLY.routdescr, "OUTPUCOD_OBJAPPLY @warmelt-outobj.melt:1844",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_256__OUTPUCOD_OBJAPPLY.routdescr, "OUTPUCOD_OBJAPPLY @warmelt-outobj.melt:1833",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_256__OUTPUCOD_OBJAPPLY.nbval = 20;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_256__OUTPUCOD_OBJAPPLY, meltrout_73_warmelt_outobj_OUTPUCOD_OBJAPPLY);
  
@@ -53281,7 +13040,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_260__DISCR_LIST));
  /*inirout drout_262__LAMBDA_*/
  /*_.VALROUT___V397*/ curfptr[396] = (void*)&cdat->drout_262__LAMBDA_;
   cdat->drout_262__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_262__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1870",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_262__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1859",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_262__LAMBDA_.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_262__LAMBDA_, meltrout_74_warmelt_outobj_LAMBDA_);
  
@@ -53314,21 +13073,21 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_265__GET_CTYPE));
  /*inirout drout_267__LAMBDA_*/
  /*_.VALROUT___V398*/ curfptr[397] = (void*)&cdat->drout_267__LAMBDA_;
   cdat->drout_267__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_267__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1902",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_267__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1891",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_267__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_267__LAMBDA_, meltrout_75_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_268__LAMBDA_*/
  /*_.VALROUT___V399*/ curfptr[398] = (void*)&cdat->drout_268__LAMBDA_;
   cdat->drout_268__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_268__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1917",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_268__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:1906",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_268__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_268__LAMBDA_, meltrout_76_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_269__OUTPUCOD_OBJMSEND*/
  /*_.VALROUT___V409*/ curfptr[408] = (void*)&cdat->drout_269__OUTPUCOD_OBJMSEND;
   cdat->drout_269__OUTPUCOD_OBJMSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_269__OUTPUCOD_OBJMSEND.routdescr, "OUTPUCOD_OBJMSEND @warmelt-outobj.melt:1937",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_269__OUTPUCOD_OBJMSEND.routdescr, "OUTPUCOD_OBJMSEND @warmelt-outobj.melt:1926",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_269__OUTPUCOD_OBJMSEND.nbval = 12;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_269__OUTPUCOD_OBJMSEND, meltrout_77_warmelt_outobj_OUTPUCOD_OBJMSEND);
  
@@ -53353,14 +13112,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_271__CLASS_OBJMSEND));
  /*inirout drout_273__LAMBDA_*/
  /*_.VALROUT___V410*/ curfptr[409] = (void*)&cdat->drout_273__LAMBDA_;
   cdat->drout_273__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_273__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2015",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_273__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2004",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_273__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_273__LAMBDA_, meltrout_78_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_274__OUTPUCOD_OBJMULTIAPPLY*/
  /*_.VALROUT___V414*/ curfptr[413] = (void*)&cdat->drout_274__OUTPUCOD_OBJMULTIAPPLY;
   cdat->drout_274__OUTPUCOD_OBJMULTIAPPLY.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_274__OUTPUCOD_OBJMULTIAPPLY.routdescr, "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.melt:2034",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_274__OUTPUCOD_OBJMULTIAPPLY.routdescr, "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.melt:2023",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_274__OUTPUCOD_OBJMULTIAPPLY.nbval = 28;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_274__OUTPUCOD_OBJMULTIAPPLY, meltrout_79_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY);
  
@@ -53385,49 +13144,49 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_276__CLASS_OBJMULTIAPPLY)
  /*inirout drout_278__LAMBDA_*/
  /*_.VALROUT___V415*/ curfptr[414] = (void*)&cdat->drout_278__LAMBDA_;
   cdat->drout_278__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_278__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2081",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_278__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2070",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_278__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_278__LAMBDA_, meltrout_80_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_279__LAMBDA_*/
  /*_.VALROUT___V416*/ curfptr[415] = (void*)&cdat->drout_279__LAMBDA_;
   cdat->drout_279__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_279__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2091",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_279__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2080",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_279__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_279__LAMBDA_, meltrout_81_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_280__LAMBDA_*/
  /*_.VALROUT___V417*/ curfptr[416] = (void*)&cdat->drout_280__LAMBDA_;
   cdat->drout_280__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_280__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2123",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_280__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2112",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_280__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_280__LAMBDA_, meltrout_82_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_281__LAMBDA_*/
  /*_.VALROUT___V418*/ curfptr[417] = (void*)&cdat->drout_281__LAMBDA_;
   cdat->drout_281__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_281__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2152",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_281__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2141",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_281__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_281__LAMBDA_, meltrout_83_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_282__LAMBDA_*/
  /*_.VALROUT___V419*/ curfptr[418] = (void*)&cdat->drout_282__LAMBDA_;
   cdat->drout_282__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_282__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2167",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_282__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2156",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_282__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_282__LAMBDA_, meltrout_84_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_283__LAMBDA_*/
  /*_.VALROUT___V420*/ curfptr[419] = (void*)&cdat->drout_283__LAMBDA_;
   cdat->drout_283__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_283__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2178",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_283__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2167",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_283__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_283__LAMBDA_, meltrout_85_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_284__OUTPUCOD_OBJMULTIMSEND*/
  /*_.VALROUT___V424*/ curfptr[423] = (void*)&cdat->drout_284__OUTPUCOD_OBJMULTIMSEND;
   cdat->drout_284__OUTPUCOD_OBJMULTIMSEND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_284__OUTPUCOD_OBJMULTIMSEND.routdescr, "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.melt:2198",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_284__OUTPUCOD_OBJMULTIMSEND.routdescr, "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.melt:2187",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_284__OUTPUCOD_OBJMULTIMSEND.nbval = 28;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_284__OUTPUCOD_OBJMULTIMSEND, meltrout_86_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND);
  
@@ -53452,49 +13211,49 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_286__CLASS_OBJMULTIMSEND)
  /*inirout drout_288__LAMBDA_*/
  /*_.VALROUT___V425*/ curfptr[424] = (void*)&cdat->drout_288__LAMBDA_;
   cdat->drout_288__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_288__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2232",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_288__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2221",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_288__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_288__LAMBDA_, meltrout_87_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_289__LAMBDA_*/
  /*_.VALROUT___V426*/ curfptr[425] = (void*)&cdat->drout_289__LAMBDA_;
   cdat->drout_289__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_289__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2250",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_289__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2239",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_289__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_289__LAMBDA_, meltrout_88_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_290__LAMBDA_*/
  /*_.VALROUT___V427*/ curfptr[426] = (void*)&cdat->drout_290__LAMBDA_;
   cdat->drout_290__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_290__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2281",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_290__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2270",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_290__LAMBDA_.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_290__LAMBDA_, meltrout_89_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_291__LAMBDA_*/
  /*_.VALROUT___V428*/ curfptr[427] = (void*)&cdat->drout_291__LAMBDA_;
   cdat->drout_291__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_291__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2310",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_291__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2299",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_291__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_291__LAMBDA_, meltrout_90_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_292__LAMBDA_*/
  /*_.VALROUT___V429*/ curfptr[428] = (void*)&cdat->drout_292__LAMBDA_;
   cdat->drout_292__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_292__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2323",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_292__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2312",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_292__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_292__LAMBDA_, meltrout_91_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_293__LAMBDA_*/
  /*_.VALROUT___V430*/ curfptr[429] = (void*)&cdat->drout_293__LAMBDA_;
   cdat->drout_293__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_293__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2334",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_293__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2323",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_293__LAMBDA_.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_293__LAMBDA_, meltrout_92_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_294__OUTPUCOD_OBJCLEAR*/
  /*_.VALROUT___V434*/ curfptr[433] = (void*)&cdat->drout_294__OUTPUCOD_OBJCLEAR;
   cdat->drout_294__OUTPUCOD_OBJCLEAR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_294__OUTPUCOD_OBJCLEAR.routdescr, "OUTPUCOD_OBJCLEAR @warmelt-outobj.melt:2352",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_294__OUTPUCOD_OBJCLEAR.routdescr, "OUTPUCOD_OBJCLEAR @warmelt-outobj.melt:2341",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_294__OUTPUCOD_OBJCLEAR.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_294__OUTPUCOD_OBJCLEAR, meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR);
  
@@ -53519,7 +13278,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_296__CLASS_OBJCLEAR));
  /*inirout drout_298__OUTPUCOD_OBJRAWALLOCOBJ*/
  /*_.VALROUT___V438*/ curfptr[437] = (void*)&cdat->drout_298__OUTPUCOD_OBJRAWALLOCOBJ;
   cdat->drout_298__OUTPUCOD_OBJRAWALLOCOBJ.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_298__OUTPUCOD_OBJRAWALLOCOBJ.routdescr, "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.melt:2367",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_298__OUTPUCOD_OBJRAWALLOCOBJ.routdescr, "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.melt:2356",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_298__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_298__OUTPUCOD_OBJRAWALLOCOBJ, meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ);
  
@@ -53544,14 +13303,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_300__CLASS_OBJRAWALLOCOBJ
  /*inirout drout_302__LAMBDA_*/
  /*_.VALROUT___V439*/ curfptr[438] = (void*)&cdat->drout_302__LAMBDA_;
   cdat->drout_302__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_302__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2390",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_302__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2379",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_302__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_302__LAMBDA_, meltrout_95_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_303__OUTPUCOD_OBJNEWCLOSURE*/
  /*_.VALROUT___V443*/ curfptr[442] = (void*)&cdat->drout_303__OUTPUCOD_OBJNEWCLOSURE;
   cdat->drout_303__OUTPUCOD_OBJNEWCLOSURE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_303__OUTPUCOD_OBJNEWCLOSURE.routdescr, "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.melt:2401",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_303__OUTPUCOD_OBJNEWCLOSURE.routdescr, "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.melt:2390",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_303__OUTPUCOD_OBJNEWCLOSURE.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_303__OUTPUCOD_OBJNEWCLOSURE, meltrout_96_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE);
  
@@ -53576,14 +13335,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_305__CLASS_OBJNEWCLOSURE)
  /*inirout drout_307__LAMBDA_*/
  /*_.VALROUT___V444*/ curfptr[443] = (void*)&cdat->drout_307__LAMBDA_;
   cdat->drout_307__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_307__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2415",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_307__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2404",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_307__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_307__LAMBDA_, meltrout_97_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_308__OUTPUCOD_OBJTOUCH*/
  /*_.VALROUT___V448*/ curfptr[447] = (void*)&cdat->drout_308__OUTPUCOD_OBJTOUCH;
   cdat->drout_308__OUTPUCOD_OBJTOUCH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_308__OUTPUCOD_OBJTOUCH.routdescr, "OUTPUCOD_OBJTOUCH @warmelt-outobj.melt:2431",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_308__OUTPUCOD_OBJTOUCH.routdescr, "OUTPUCOD_OBJTOUCH @warmelt-outobj.melt:2420",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_308__OUTPUCOD_OBJTOUCH.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_308__OUTPUCOD_OBJTOUCH, meltrout_98_warmelt_outobj_OUTPUCOD_OBJTOUCH);
  
@@ -53608,7 +13367,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_310__CLASS_OBJTOUCH));
  /*inirout drout_312__OUTPUCOD_OBJPUTUPLE*/
  /*_.VALROUT___V452*/ curfptr[451] = (void*)&cdat->drout_312__OUTPUCOD_OBJPUTUPLE;
   cdat->drout_312__OUTPUCOD_OBJPUTUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_312__OUTPUCOD_OBJPUTUPLE.routdescr, "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.melt:2456",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_312__OUTPUCOD_OBJPUTUPLE.routdescr, "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.melt:2445",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_312__OUTPUCOD_OBJPUTUPLE.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_312__OUTPUCOD_OBJPUTUPLE, meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTUPLE);
  
@@ -53633,7 +13392,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_314__CLASS_OBJPUTUPLE));
  /*inirout drout_316__OUTPUCOD_OBJGETSLOT*/
  /*_.VALROUT___V456*/ curfptr[455] = (void*)&cdat->drout_316__OUTPUCOD_OBJGETSLOT;
   cdat->drout_316__OUTPUCOD_OBJGETSLOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_316__OUTPUCOD_OBJGETSLOT.routdescr, "OUTPUCOD_OBJGETSLOT @warmelt-outobj.melt:2491",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_316__OUTPUCOD_OBJGETSLOT.routdescr, "OUTPUCOD_OBJGETSLOT @warmelt-outobj.melt:2480",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_316__OUTPUCOD_OBJGETSLOT.nbval = 9;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_316__OUTPUCOD_OBJGETSLOT, meltrout_100_warmelt_outobj_OUTPUCOD_OBJGETSLOT);
  
@@ -53671,14 +13430,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_320__CLASS_FIELD));
  /*inirout drout_322__LAMBDA_*/
  /*_.VALROUT___V457*/ curfptr[456] = (void*)&cdat->drout_322__LAMBDA_;
   cdat->drout_322__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_322__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2513",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_322__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2502",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_322__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_322__LAMBDA_, meltrout_101_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_323__OUTPUCOD_OBJPUTSLOT*/
  /*_.VALROUT___V463*/ curfptr[462] = (void*)&cdat->drout_323__OUTPUCOD_OBJPUTSLOT;
   cdat->drout_323__OUTPUCOD_OBJPUTSLOT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_323__OUTPUCOD_OBJPUTSLOT.routdescr, "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.melt:2524",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_323__OUTPUCOD_OBJPUTSLOT.routdescr, "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.melt:2513",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_323__OUTPUCOD_OBJPUTSLOT.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_323__OUTPUCOD_OBJPUTSLOT, meltrout_102_warmelt_outobj_OUTPUCOD_OBJPUTSLOT);
  
@@ -53716,7 +13475,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_327__CLASS_NREP));
  /*inirout drout_329__OUTPUCOD_OBJPUTCLOSUROUT*/
  /*_.VALROUT___V469*/ curfptr[468] = (void*)&cdat->drout_329__OUTPUCOD_OBJPUTCLOSUROUT;
   cdat->drout_329__OUTPUCOD_OBJPUTCLOSUROUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_329__OUTPUCOD_OBJPUTCLOSUROUT.routdescr, "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.melt:2598",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_329__OUTPUCOD_OBJPUTCLOSUROUT.routdescr, "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.melt:2587",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_329__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_329__OUTPUCOD_OBJPUTCLOSUROUT, meltrout_103_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT);
  
@@ -53741,7 +13500,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_331__CLASS_OBJPUTCLOSUROU
  /*inirout drout_333__OUTPUCOD_OBJPUTCLOSEDV*/
  /*_.VALROUT___V473*/ curfptr[472] = (void*)&cdat->drout_333__OUTPUCOD_OBJPUTCLOSEDV;
   cdat->drout_333__OUTPUCOD_OBJPUTCLOSEDV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_333__OUTPUCOD_OBJPUTCLOSEDV.routdescr, "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.melt:2626",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_333__OUTPUCOD_OBJPUTCLOSEDV.routdescr, "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.melt:2615",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_333__OUTPUCOD_OBJPUTCLOSEDV.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_333__OUTPUCOD_OBJPUTCLOSEDV, meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV);
  
@@ -53766,7 +13525,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_335__CLASS_OBJPUTCLOSEDV)
  /*inirout drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/
  /*_.VALROUT___V477*/ curfptr[476] = (void*)&cdat->drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV;
   cdat->drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routdescr, "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.melt:2661",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routdescr, "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.melt:2650",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV, meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV);
  
@@ -53791,7 +13550,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_339__CLASS_OBJPUTCLOSEDNO
  /*inirout drout_341__OUTPUCOD_OBJPUTROUTCONST*/
  /*_.VALROUT___V481*/ curfptr[480] = (void*)&cdat->drout_341__OUTPUCOD_OBJPUTROUTCONST;
   cdat->drout_341__OUTPUCOD_OBJPUTROUTCONST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_341__OUTPUCOD_OBJPUTROUTCONST.routdescr, "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.melt:2700",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_341__OUTPUCOD_OBJPUTROUTCONST.routdescr, "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.melt:2689",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_341__OUTPUCOD_OBJPUTROUTCONST.nbval = 4;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_341__OUTPUCOD_OBJPUTROUTCONST, meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST);
  
@@ -53816,7 +13575,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_343__CLASS_OBJPUTROUTCONS
  /*inirout drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/
  /*_.VALROUT___V485*/ curfptr[484] = (void*)&cdat->drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL;
   cdat->drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routdescr, "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.melt:2737",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routdescr, "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.melt:2726",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL, meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL);
  
@@ -53841,7 +13600,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_347__CLASS_OBJPUTROUTCONS
  /*inirout drout_349__OUTPUCOD_OBJPUTXTRARESULT*/
  /*_.VALROUT___V489*/ curfptr[488] = (void*)&cdat->drout_349__OUTPUCOD_OBJPUTXTRARESULT;
   cdat->drout_349__OUTPUCOD_OBJPUTXTRARESULT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_349__OUTPUCOD_OBJPUTXTRARESULT.routdescr, "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.melt:2770",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_349__OUTPUCOD_OBJPUTXTRARESULT.routdescr, "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.melt:2759",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_349__OUTPUCOD_OBJPUTXTRARESULT.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_349__OUTPUCOD_OBJPUTXTRARESULT, meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT);
  
@@ -53866,7 +13625,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_351__CLASS_OBJPUTXTRARESU
  /*inirout drout_353__OUTPUCOD_OBJEXPV*/
  /*_.VALROUT___V493*/ curfptr[492] = (void*)&cdat->drout_353__OUTPUCOD_OBJEXPV;
   cdat->drout_353__OUTPUCOD_OBJEXPV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_353__OUTPUCOD_OBJEXPV.routdescr, "OUTPUCOD_OBJEXPV @warmelt-outobj.melt:2805",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_353__OUTPUCOD_OBJEXPV.routdescr, "OUTPUCOD_OBJEXPV @warmelt-outobj.melt:2794",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_353__OUTPUCOD_OBJEXPV.nbval = 3;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_353__OUTPUCOD_OBJEXPV, meltrout_109_warmelt_outobj_OUTPUCOD_OBJEXPV);
  
@@ -53891,7 +13650,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_355__CLASS_OBJEXPV));
  /*inirout drout_357__OUTPUCOD_OBJLOCATEDEXPV*/
  /*_.VALROUT___V497*/ curfptr[496] = (void*)&cdat->drout_357__OUTPUCOD_OBJLOCATEDEXPV;
   cdat->drout_357__OUTPUCOD_OBJLOCATEDEXPV.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_357__OUTPUCOD_OBJLOCATEDEXPV.routdescr, "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.melt:2818",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_357__OUTPUCOD_OBJLOCATEDEXPV.routdescr, "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.melt:2807",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_357__OUTPUCOD_OBJLOCATEDEXPV.nbval = 6;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_357__OUTPUCOD_OBJLOCATEDEXPV, meltrout_110_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV);
  
@@ -53929,7 +13688,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_361__CTYPE_VOID));
  /*inirout drout_363__OUTPUCOD_VERBATIMSTRING*/
  /*_.VALROUT___V503*/ curfptr[502] = (void*)&cdat->drout_363__OUTPUCOD_VERBATIMSTRING;
   cdat->drout_363__OUTPUCOD_VERBATIMSTRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_363__OUTPUCOD_VERBATIMSTRING.routdescr, "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.melt:2852",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_363__OUTPUCOD_VERBATIMSTRING.routdescr, "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.melt:2841",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_363__OUTPUCOD_VERBATIMSTRING.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_363__OUTPUCOD_VERBATIMSTRING, meltrout_111_warmelt_outobj_OUTPUCOD_VERBATIMSTRING);
  
@@ -53954,7 +13713,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_365__DISCR_VERBATIM_STRIN
  /*inirout drout_367__OUTPUCOD_STRING*/
  /*_.VALROUT___V507*/ curfptr[506] = (void*)&cdat->drout_367__OUTPUCOD_STRING;
   cdat->drout_367__OUTPUCOD_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_367__OUTPUCOD_STRING.routdescr, "OUTPUCOD_STRING @warmelt-outobj.melt:2863",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_367__OUTPUCOD_STRING.routdescr, "OUTPUCOD_STRING @warmelt-outobj.melt:2852",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_367__OUTPUCOD_STRING.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_367__OUTPUCOD_STRING, meltrout_112_warmelt_outobj_OUTPUCOD_STRING);
  
@@ -53966,7 +13725,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_365__DISCR_VERBATIM_STRIN
  /*inirout drout_369__OUTPUCOD_INTEGER*/
  /*_.VALROUT___V509*/ curfptr[508] = (void*)&cdat->drout_369__OUTPUCOD_INTEGER;
   cdat->drout_369__OUTPUCOD_INTEGER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_369__OUTPUCOD_INTEGER.routdescr, "OUTPUCOD_INTEGER @warmelt-outobj.melt:2875",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_369__OUTPUCOD_INTEGER.routdescr, "OUTPUCOD_INTEGER @warmelt-outobj.melt:2864",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_369__OUTPUCOD_INTEGER.nbval = 0;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_369__OUTPUCOD_INTEGER, meltrout_113_warmelt_outobj_OUTPUCOD_INTEGER);
  
@@ -53978,7 +13737,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_365__DISCR_VERBATIM_STRIN
  /*inirout drout_371__OUTPUCOD_FINALRETURN*/
  /*_.VALROUT___V511*/ curfptr[510] = (void*)&cdat->drout_371__OUTPUCOD_FINALRETURN;
   cdat->drout_371__OUTPUCOD_FINALRETURN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_371__OUTPUCOD_FINALRETURN.routdescr, "OUTPUCOD_FINALRETURN @warmelt-outobj.melt:2882",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_371__OUTPUCOD_FINALRETURN.routdescr, "OUTPUCOD_FINALRETURN @warmelt-outobj.melt:2871",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_371__OUTPUCOD_FINALRETURN.nbval = 2;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_371__OUTPUCOD_FINALRETURN, meltrout_114_warmelt_outobj_OUTPUCOD_FINALRETURN);
  
@@ -54003,7 +13762,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_373__CLASS_OBJFINALRETURN
  /*inirout drout_375__SORTED_NAMED_DICT_TUPLE*/
  /*_.VALROUT___V515*/ curfptr[514] = (void*)&cdat->drout_375__SORTED_NAMED_DICT_TUPLE;
   cdat->drout_375__SORTED_NAMED_DICT_TUPLE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_375__SORTED_NAMED_DICT_TUPLE.routdescr, "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.melt:2893",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_375__SORTED_NAMED_DICT_TUPLE.routdescr, "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.melt:2882",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_375__SORTED_NAMED_DICT_TUPLE.nbval = 7;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_375__SORTED_NAMED_DICT_TUPLE, meltrout_115_warmelt_outobj_SORTED_NAMED_DICT_TUPLE);
  
@@ -54028,7 +13787,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_377__MAPSTRING_EVERY));
  /*inirout drout_379__LAMBDA_*/
  /*_.VALROUT___V516*/ curfptr[515] = (void*)&cdat->drout_379__LAMBDA_;
   cdat->drout_379__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_379__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2898",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_379__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2887",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_379__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_379__LAMBDA_, meltrout_116_warmelt_outobj_LAMBDA_);
  
@@ -54074,7 +13833,7 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_384__DISCR_MULTIPLE));
  /*inirout drout_386__OUTPUT_EXPORTED_OFFSETS*/
  /*_.VALROUT___V526*/ curfptr[525] = (void*)&cdat->drout_386__OUTPUT_EXPORTED_OFFSETS;
   cdat->drout_386__OUTPUT_EXPORTED_OFFSETS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_386__OUTPUT_EXPORTED_OFFSETS.routdescr, "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.melt:2907",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_386__OUTPUT_EXPORTED_OFFSETS.routdescr, "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.melt:2896",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_386__OUTPUT_EXPORTED_OFFSETS.nbval = 8;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_386__OUTPUT_EXPORTED_OFFSETS, meltrout_117_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS);
  
@@ -54099,14 +13858,14 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_388__CLASS_MODULE_CONTEXT
  /*inirout drout_390__LAMBDA_*/
  /*_.VALROUT___V527*/ curfptr[526] = (void*)&cdat->drout_390__LAMBDA_;
   cdat->drout_390__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_390__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2919",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_390__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2908",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_390__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_390__LAMBDA_, meltrout_118_warmelt_outobj_LAMBDA_);
  
  /*inirout drout_391__LAMBDA_*/
  /*_.VALROUT___V528*/ curfptr[527] = (void*)&cdat->drout_391__LAMBDA_;
   cdat->drout_391__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_391__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2933",  MELT_ROUTDESCR_LEN - 1);
+  strncpy(cdat->drout_391__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2922",  MELT_ROUTDESCR_LEN - 1);
   cdat->drout_391__LAMBDA_.nbval = 1;
  MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_391__LAMBDA_, meltrout_119_warmelt_outobj_LAMBDA_);
  
@@ -54136,13 +13895,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_394__CLASS_SECONDARY_C_FI
   cdat->dstr_395__CLASS_SECONDARY_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_395__CLASS_SECONDARY_.val, "CLASS_SECONDARY_C_FILE", sizeof(cdat->dstr_395__CLASS_SECONDARY_.val)-1);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ iniobj");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ iniobj");
  /*iniobj dobj_396__CLASS_SECONDARY_C_FILE*/
  if (!/*_.VALDATA___V536*/ curfptr[535]) /*_.VALDATA___V536*/ curfptr[535] = (void*)&cdat->dobj_396__CLASS_SECONDARY_C_FILE;
   melt_assertmsg("iniobj checkdiscr dobj_396__CLASS_SECONDARY_C_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_396__CLASS_SECONDARY_C_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
   cdat->dobj_396__CLASS_SECONDARY_C_FILE.obj_num = OBMAG_OBJECT;
-  cdat->dobj_396__CLASS_SECONDARY_C_FILE.obj_hash = 928584494;
+  cdat->dobj_396__CLASS_SECONDARY_C_FILE.obj_hash = 274385695;
   cdat->dobj_396__CLASS_SECONDARY_C_FILE.obj_len = 8;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_396__CLASS_SECONDARY_C_FILE));
  
@@ -54172,13 +13931,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_400__SECFIL_MODNAM));
   cdat->dstr_401__SECFIL_MODNAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_401__SECFIL_MODNAM.val, "SECFIL_MODNAM", sizeof(cdat->dstr_401__SECFIL_MODNAM.val)-1);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ iniobj");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ iniobj");
  /*iniobj dobj_402__SECFIL_MODNAM*/
  if (!/*_.VALDATA___V539*/ curfptr[538]) /*_.VALDATA___V539*/ curfptr[538] = (void*)&cdat->dobj_402__SECFIL_MODNAM;
   melt_assertmsg("iniobj checkdiscr dobj_402__SECFIL_MODNAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_402__SECFIL_MODNAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_402__SECFIL_MODNAM.obj_num = 0;
-  cdat->dobj_402__SECFIL_MODNAM.obj_hash = 230934079;
+  cdat->dobj_402__SECFIL_MODNAM.obj_hash = 499947857;
   cdat->dobj_402__SECFIL_MODNAM.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_402__SECFIL_MODNAM));
  
@@ -54200,13 +13959,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_404__SECFIL_PATH));
   cdat->dstr_405__SECFIL_PATH.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_405__SECFIL_PATH.val, "SECFIL_PATH", sizeof(cdat->dstr_405__SECFIL_PATH.val)-1);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ iniobj");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ iniobj");
  /*iniobj dobj_406__SECFIL_PATH*/
  if (!/*_.VALDATA___V541*/ curfptr[540]) /*_.VALDATA___V541*/ curfptr[540] = (void*)&cdat->dobj_406__SECFIL_PATH;
   melt_assertmsg("iniobj checkdiscr dobj_406__SECFIL_PATH", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_406__SECFIL_PATH.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_406__SECFIL_PATH.obj_num = 1;
-  cdat->dobj_406__SECFIL_PATH.obj_hash = 66192122;
+  cdat->dobj_406__SECFIL_PATH.obj_hash = 726058710;
   cdat->dobj_406__SECFIL_PATH.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_406__SECFIL_PATH));
  
@@ -54228,13 +13987,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_408__SECFIL_DECLBUF));
   cdat->dstr_409__SECFIL_DECLBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_409__SECFIL_DECLBUF.val, "SECFIL_DECLBUF", sizeof(cdat->dstr_409__SECFIL_DECLBUF.val)-1);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ iniobj");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ iniobj");
  /*iniobj dobj_410__SECFIL_DECLBUF*/
  if (!/*_.VALDATA___V543*/ curfptr[542]) /*_.VALDATA___V543*/ curfptr[542] = (void*)&cdat->dobj_410__SECFIL_DECLBUF;
   melt_assertmsg("iniobj checkdiscr dobj_410__SECFIL_DECLBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_410__SECFIL_DECLBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_410__SECFIL_DECLBUF.obj_num = 2;
-  cdat->dobj_410__SECFIL_DECLBUF.obj_hash = 364616267;
+  cdat->dobj_410__SECFIL_DECLBUF.obj_hash = 1004656228;
   cdat->dobj_410__SECFIL_DECLBUF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_410__SECFIL_DECLBUF));
  
@@ -54256,13 +14015,13 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_412__SECFIL_IMPLBUF));
   cdat->dstr_413__SECFIL_IMPLBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_413__SECFIL_IMPLBUF.val, "SECFIL_IMPLBUF", sizeof(cdat->dstr_413__SECFIL_IMPLBUF.val)-1);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ iniobj");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ iniobj");
  /*iniobj dobj_414__SECFIL_IMPLBUF*/
  if (!/*_.VALDATA___V545*/ curfptr[544]) /*_.VALDATA___V545*/ curfptr[544] = (void*)&cdat->dobj_414__SECFIL_IMPLBUF;
   melt_assertmsg("iniobj checkdiscr dobj_414__SECFIL_IMPLBUF", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_414__SECFIL_IMPLBUF.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
   cdat->dobj_414__SECFIL_IMPLBUF.obj_num = 3;
-  cdat->dobj_414__SECFIL_IMPLBUF.obj_hash = 277435536;
+  cdat->dobj_414__SECFIL_IMPLBUF.obj_hash = 1009579456;
   cdat->dobj_414__SECFIL_IMPLBUF.obj_len = 4;
 melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_414__SECFIL_IMPLBUF));
  
@@ -54271,1516 +14030,1708 @@ melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_414__SECFIL_IMPLBUF));
   cdat->dstr_415__SECFIL_IMPLBUF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
   strncpy(cdat->dstr_415__SECFIL_IMPLBUF.val, "SECFIL_IMPLBUF", sizeof(cdat->dstr_415__SECFIL_IMPLBUF.val)-1);
  
- /*inirout drout_416__NTH_SECUNDARY_FILE*/
- /*_.VALROUT___V556*/ curfptr[555] = (void*)&cdat->drout_416__NTH_SECUNDARY_FILE;
-  cdat->drout_416__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_416__NTH_SECUNDARY_FILE.routdescr, "NTH_SECUNDARY_FILE @warmelt-outobj.melt:2957",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_416__NTH_SECUNDARY_FILE.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_416__NTH_SECUNDARY_FILE, meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE);
- 
- /*iniclos dclo_417__NTH_SECUNDARY_FILE*/
- /*_.VALCLO___V557*/ curfptr[556] = (void*)&cdat->dclo_417__NTH_SECUNDARY_FILE;
-  cdat->dclo_417__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_417__NTH_SECUNDARY_FILE.nbval = 0;
- 
- /*inirout drout_418__COMPILE_LIST_SEXPR*/
- /*_.VALROUT___V558*/ curfptr[557] = (void*)&cdat->drout_418__COMPILE_LIST_SEXPR;
-  cdat->drout_418__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_418__COMPILE_LIST_SEXPR.routdescr, "COMPILE_LIST_SEXPR @warmelt-outobj.melt:2985",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_418__COMPILE_LIST_SEXPR.nbval = 33;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_418__COMPILE_LIST_SEXPR, meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR);
- 
- /*iniclos dclo_419__COMPILE_LIST_SEXPR*/
- /*_.VALCLO___V562*/ curfptr[561] = (void*)&cdat->dclo_419__COMPILE_LIST_SEXPR;
-  cdat->dclo_419__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_419__COMPILE_LIST_SEXPR.nbval = 0;
- 
- /*iniobj dsym_420__CLASS_ENVIRONMENT*/
- if (!/*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*)&cdat->dsym_420__CLASS_ENVIRONMENT;
-  melt_assertmsg("iniobj checkdiscr dsym_420__CLASS_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_420__CLASS_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_420__CLASS_ENVIRONMENT.obj_hash = 59212821;
-  cdat->dsym_420__CLASS_ENVIRONMENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_420__CLASS_ENVIRONMENT));
- 
- /*inistring dstr_421__CLASS_ENVIRONMEN*/
- /*_.VALSTR___V564*/ curfptr[563] = (void*)&cdat->dstr_421__CLASS_ENVIRONMEN;
-  cdat->dstr_421__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_421__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof(cdat->dstr_421__CLASS_ENVIRONMEN.val)-1);
- 
- /*iniobj dsym_422__DISCR_MAP_STRINGS*/
- if (!/*_.VALDATA___V565*/ curfptr[564]) /*_.VALDATA___V565*/ curfptr[564] = (void*)&cdat->dsym_422__DISCR_MAP_STRINGS;
-  melt_assertmsg("iniobj checkdiscr dsym_422__DISCR_MAP_STRINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_422__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_422__DISCR_MAP_STRINGS.obj_hash = 344609662;
-  cdat->dsym_422__DISCR_MAP_STRINGS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_422__DISCR_MAP_STRINGS));
- 
- /*inistring dstr_423__DISCR_MAP_STRING*/
- /*_.VALSTR___V566*/ curfptr[565] = (void*)&cdat->dstr_423__DISCR_MAP_STRING;
-  cdat->dstr_423__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_423__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof(cdat->dstr_423__DISCR_MAP_STRING.val)-1);
- 
- /*iniobj dsym_424__CREATE_NORMCONTEXT*/
- if (!/*_.VALDATA___V567*/ curfptr[566]) /*_.VALDATA___V567*/ curfptr[566] = (void*)&cdat->dsym_424__CREATE_NORMCONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_424__CREATE_NORMCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_424__CREATE_NORMCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_424__CREATE_NORMCONTEXT.obj_hash = 127778273;
-  cdat->dsym_424__CREATE_NORMCONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_424__CREATE_NORMCONTEXT));
- 
- /*inistring dstr_425__CREATE_NORMCONTE*/
- /*_.VALSTR___V568*/ curfptr[567] = (void*)&cdat->dstr_425__CREATE_NORMCONTE;
-  cdat->dstr_425__CREATE_NORMCONTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_425__CREATE_NORMCONTE.val, "CREATE_NORMCONTEXT", sizeof(cdat->dstr_425__CREATE_NORMCONTE.val)-1);
- 
- /*iniobj dsym_426__CLASS_NORMALIZATION_CONTEXT*/
- if (!/*_.VALDATA___V569*/ curfptr[568]) /*_.VALDATA___V569*/ curfptr[568] = (void*)&cdat->dsym_426__CLASS_NORMALIZATION_CONTEXT;
-  melt_assertmsg("iniobj checkdiscr dsym_426__CLASS_NORMALIZATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_426__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_426__CLASS_NORMALIZATION_CONTEXT.obj_hash = 429657178;
-  cdat->dsym_426__CLASS_NORMALIZATION_CONTEXT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_426__CLASS_NORMALIZATION_CONTEXT));
- 
- /*inistring dstr_427__CLASS_NORMALIZAT*/
- /*_.VALSTR___V570*/ curfptr[569] = (void*)&cdat->dstr_427__CLASS_NORMALIZAT;
-  cdat->dstr_427__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_427__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof(cdat->dstr_427__CLASS_NORMALIZAT.val)-1);
- 
- /*iniobj dsym_428__MACROEXPAND_TOPLEVEL_LIST*/
- if (!/*_.VALDATA___V571*/ curfptr[570]) /*_.VALDATA___V571*/ curfptr[570] = (void*)&cdat->dsym_428__MACROEXPAND_TOPLEVEL_LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_428__MACROEXPAND_TOPLEVEL_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_428__MACROEXPAND_TOPLEVEL_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_428__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411;
-  cdat->dsym_428__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_428__MACROEXPAND_TOPLEVEL_LIST));
- 
- /*inistring dstr_429__MACROEXPAND_TOPL*/
- /*_.VALSTR___V572*/ curfptr[571] = (void*)&cdat->dstr_429__MACROEXPAND_TOPL;
-  cdat->dstr_429__MACROEXPAND_TOPL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_429__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof(cdat->dstr_429__MACROEXPAND_TOPL.val)-1);
- 
- /*iniobj dsym_430__CLASS_SOURCE*/
- if (!/*_.VALDATA___V573*/ curfptr[572]) /*_.VALDATA___V573*/ curfptr[572] = (void*)&cdat->dsym_430__CLASS_SOURCE;
-  melt_assertmsg("iniobj checkdiscr dsym_430__CLASS_SOURCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_430__CLASS_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_430__CLASS_SOURCE.obj_hash = 656628255;
-  cdat->dsym_430__CLASS_SOURCE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_430__CLASS_SOURCE));
- 
- /*inistring dstr_431__CLASS_SOURCE*/
- /*_.VALSTR___V574*/ curfptr[573] = (void*)&cdat->dstr_431__CLASS_SOURCE;
-  cdat->dstr_431__CLASS_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_431__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof(cdat->dstr_431__CLASS_SOURCE.val)-1);
- 
- /*iniobj dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
- if (!/*_.VALDATA___V575*/ curfptr[574]) /*_.VALDATA___V575*/ curfptr[574] = (void*)&cdat->dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
-  melt_assertmsg("iniobj checkdiscr dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 670629834;
-  cdat->dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_432__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
- 
- /*inistring dstr_433__CLASS_SOURCE_UPD*/
- /*_.VALSTR___V576*/ curfptr[575] = (void*)&cdat->dstr_433__CLASS_SOURCE_UPD;
-  cdat->dstr_433__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_433__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof(cdat->dstr_433__CLASS_SOURCE_UPD.val)-1);
- 
- /*inistring dstr_434__at_very_start*/
- /*_.VALSTR___V559*/ curfptr[558] = (void*)&cdat->dstr_434__at_very_start;
-  cdat->dstr_434__at_very_start.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_434__at_very_start.val, "at very start", sizeof(cdat->dstr_434__at_very_start.val)-1);
- 
- /*iniobj dsym_435__INITIAL_ENVIRONMENT*/
- if (!/*_.VALDATA___V577*/ curfptr[576]) /*_.VALDATA___V577*/ curfptr[576] = (void*)&cdat->dsym_435__INITIAL_ENVIRONMENT;
-  melt_assertmsg("iniobj checkdiscr dsym_435__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_435__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_435__INITIAL_ENVIRONMENT.obj_hash = 756729242;
-  cdat->dsym_435__INITIAL_ENVIRONMENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_435__INITIAL_ENVIRONMENT));
- 
- /*inistring dstr_436__INITIAL_ENVIRONM*/
- /*_.VALSTR___V578*/ curfptr[577] = (void*)&cdat->dstr_436__INITIAL_ENVIRONM;
-  cdat->dstr_436__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_436__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof(cdat->dstr_436__INITIAL_ENVIRONM.val)-1);
- 
- /*iniobj dsym_437__CLASS_NREP_INITPROC*/
- if (!/*_.VALDATA___V579*/ curfptr[578]) /*_.VALDATA___V579*/ curfptr[578] = (void*)&cdat->dsym_437__CLASS_NREP_INITPROC;
-  melt_assertmsg("iniobj checkdiscr dsym_437__CLASS_NREP_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_437__CLASS_NREP_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_437__CLASS_NREP_INITPROC.obj_hash = 915122709;
-  cdat->dsym_437__CLASS_NREP_INITPROC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_437__CLASS_NREP_INITPROC));
- 
- /*inistring dstr_438__CLASS_NREP_INITP*/
- /*_.VALSTR___V580*/ curfptr[579] = (void*)&cdat->dstr_438__CLASS_NREP_INITP;
-  cdat->dstr_438__CLASS_NREP_INITP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_438__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC", sizeof(cdat->dstr_438__CLASS_NREP_INITP.val)-1);
- 
- /*inirout drout_439__LAMBDA_*/
- /*_.VALROUT___V560*/ curfptr[559] = (void*)&cdat->drout_439__LAMBDA_;
-  cdat->drout_439__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_439__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3029",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_439__LAMBDA_.nbval = 7;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_439__LAMBDA_, meltrout_122_warmelt_outobj_LAMBDA_);
- 
- /*iniobj dsym_440__CLASS_LOCATED*/
- if (!/*_.VALDATA___V581*/ curfptr[580]) /*_.VALDATA___V581*/ curfptr[580] = (void*)&cdat->dsym_440__CLASS_LOCATED;
-  melt_assertmsg("iniobj checkdiscr dsym_440__CLASS_LOCATED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_440__CLASS_LOCATED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_440__CLASS_LOCATED.obj_hash = 979003;
-  cdat->dsym_440__CLASS_LOCATED.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_440__CLASS_LOCATED));
- 
- /*inistring dstr_441__CLASS_LOCATED*/
- /*_.VALSTR___V582*/ curfptr[581] = (void*)&cdat->dstr_441__CLASS_LOCATED;
-  cdat->dstr_441__CLASS_LOCATED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_441__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof(cdat->dstr_441__CLASS_LOCATED.val)-1);
- 
- /*iniobj dsym_442__CLASS_SOURCE_COMMENT*/
- if (!/*_.VALDATA___V583*/ curfptr[582]) /*_.VALDATA___V583*/ curfptr[582] = (void*)&cdat->dsym_442__CLASS_SOURCE_COMMENT;
-  melt_assertmsg("iniobj checkdiscr dsym_442__CLASS_SOURCE_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_442__CLASS_SOURCE_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_442__CLASS_SOURCE_COMMENT.obj_hash = 156677751;
-  cdat->dsym_442__CLASS_SOURCE_COMMENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_442__CLASS_SOURCE_COMMENT));
- 
- /*inistring dstr_443__CLASS_SOURCE_COM*/
- /*_.VALSTR___V584*/ curfptr[583] = (void*)&cdat->dstr_443__CLASS_SOURCE_COM;
-  cdat->dstr_443__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_443__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof(cdat->dstr_443__CLASS_SOURCE_COM.val)-1);
- 
- /*iniobj dsym_444__NORMAL_EXP*/
- if (!/*_.VALDATA___V585*/ curfptr[584]) /*_.VALDATA___V585*/ curfptr[584] = (void*)&cdat->dsym_444__NORMAL_EXP;
-  melt_assertmsg("iniobj checkdiscr dsym_444__NORMAL_EXP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_444__NORMAL_EXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_444__NORMAL_EXP.obj_hash = 420282450;
-  cdat->dsym_444__NORMAL_EXP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_444__NORMAL_EXP));
- 
- /*inistring dstr_445__NORMAL_EXP*/
- /*_.VALSTR___V586*/ curfptr[585] = (void*)&cdat->dstr_445__NORMAL_EXP;
-  cdat->dstr_445__NORMAL_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_445__NORMAL_EXP.val, "NORMAL_EXP", sizeof(cdat->dstr_445__NORMAL_EXP.val)-1);
- 
- /*iniobj dsym_446__CLASS_NREP_ANYPROC*/
- if (!/*_.VALDATA___V587*/ curfptr[586]) /*_.VALDATA___V587*/ curfptr[586] = (void*)&cdat->dsym_446__CLASS_NREP_ANYPROC;
-  melt_assertmsg("iniobj checkdiscr dsym_446__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_446__CLASS_NREP_ANYPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_446__CLASS_NREP_ANYPROC.obj_hash = 605230702;
-  cdat->dsym_446__CLASS_NREP_ANYPROC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_446__CLASS_NREP_ANYPROC));
- 
- /*inistring dstr_447__CLASS_NREP_ANYPR*/
- /*_.VALSTR___V588*/ curfptr[587] = (void*)&cdat->dstr_447__CLASS_NREP_ANYPR;
-  cdat->dstr_447__CLASS_NREP_ANYPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_447__CLASS_NREP_ANYPR.val, "CLASS_NREP_ANYPROC", sizeof(cdat->dstr_447__CLASS_NREP_ANYPR.val)-1);
- 
- /*iniobj dsym_448__WRAP_NORMAL_LET1*/
- if (!/*_.VALDATA___V589*/ curfptr[588]) /*_.VALDATA___V589*/ curfptr[588] = (void*)&cdat->dsym_448__WRAP_NORMAL_LET1;
-  melt_assertmsg("iniobj checkdiscr dsym_448__WRAP_NORMAL_LET1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_448__WRAP_NORMAL_LET1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_448__WRAP_NORMAL_LET1.obj_hash = 891908866;
-  cdat->dsym_448__WRAP_NORMAL_LET1.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_448__WRAP_NORMAL_LET1));
- 
- /*inistring dstr_449__WRAP_NORMAL_LET1*/
- /*_.VALSTR___V590*/ curfptr[589] = (void*)&cdat->dstr_449__WRAP_NORMAL_LET1;
-  cdat->dstr_449__WRAP_NORMAL_LET1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_449__WRAP_NORMAL_LET1.val, "WRAP_NORMAL_LET1", sizeof(cdat->dstr_449__WRAP_NORMAL_LET1.val)-1);
- 
- /*iniobj dsym_450__DISCR_MAP_OBJECTS*/
- if (!/*_.VALDATA___V591*/ curfptr[590]) /*_.VALDATA___V591*/ curfptr[590] = (void*)&cdat->dsym_450__DISCR_MAP_OBJECTS;
-  melt_assertmsg("iniobj checkdiscr dsym_450__DISCR_MAP_OBJECTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_450__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_450__DISCR_MAP_OBJECTS.obj_hash = 217147088;
-  cdat->dsym_450__DISCR_MAP_OBJECTS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_450__DISCR_MAP_OBJECTS));
- 
- /*inistring dstr_451__DISCR_MAP_OBJECT*/
- /*_.VALSTR___V592*/ curfptr[591] = (void*)&cdat->dstr_451__DISCR_MAP_OBJECT;
-  cdat->dstr_451__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_451__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof(cdat->dstr_451__DISCR_MAP_OBJECT.val)-1);
- 
- /*inirout drout_452__LAMBDA_*/
- /*_.VALROUT___V561*/ curfptr[560] = (void*)&cdat->drout_452__LAMBDA_;
-  cdat->drout_452__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_452__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3068",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_452__LAMBDA_.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_452__LAMBDA_, meltrout_123_warmelt_outobj_LAMBDA_);
- 
- /*iniobj dsym_453__COMPILE2OBJ_PROCEDURE*/
- if (!/*_.VALDATA___V593*/ curfptr[592]) /*_.VALDATA___V593*/ curfptr[592] = (void*)&cdat->dsym_453__COMPILE2OBJ_PROCEDURE;
-  melt_assertmsg("iniobj checkdiscr dsym_453__COMPILE2OBJ_PROCEDURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_453__COMPILE2OBJ_PROCEDURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_453__COMPILE2OBJ_PROCEDURE.obj_hash = 315972622;
-  cdat->dsym_453__COMPILE2OBJ_PROCEDURE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_453__COMPILE2OBJ_PROCEDURE));
- 
- /*inistring dstr_454__COMPILE2OBJ_PROC*/
- /*_.VALSTR___V594*/ curfptr[593] = (void*)&cdat->dstr_454__COMPILE2OBJ_PROC;
-  cdat->dstr_454__COMPILE2OBJ_PROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_454__COMPILE2OBJ_PROC.val, "COMPILE2OBJ_PROCEDURE", sizeof(cdat->dstr_454__COMPILE2OBJ_PROC.val)-1);
- 
- /*iniobj dsym_455__COMPILE2OBJ_INITPROC*/
- if (!/*_.VALDATA___V595*/ curfptr[594]) /*_.VALDATA___V595*/ curfptr[594] = (void*)&cdat->dsym_455__COMPILE2OBJ_INITPROC;
-  melt_assertmsg("iniobj checkdiscr dsym_455__COMPILE2OBJ_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_455__COMPILE2OBJ_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_455__COMPILE2OBJ_INITPROC.obj_hash = 795051323;
-  cdat->dsym_455__COMPILE2OBJ_INITPROC.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_455__COMPILE2OBJ_INITPROC));
- 
- /*inistring dstr_456__COMPILE2OBJ_INIT*/
- /*_.VALSTR___V596*/ curfptr[595] = (void*)&cdat->dstr_456__COMPILE2OBJ_INIT;
-  cdat->dstr_456__COMPILE2OBJ_INIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_456__COMPILE2OBJ_INIT.val, "COMPILE2OBJ_INITPROC", sizeof(cdat->dstr_456__COMPILE2OBJ_INIT.val)-1);
- 
- /*iniobj dsym_457__MELT_ARGUMENT*/
- if (!/*_.VALDATA___V597*/ curfptr[596]) /*_.VALDATA___V597*/ curfptr[596] = (void*)&cdat->dsym_457__MELT_ARGUMENT;
-  melt_assertmsg("iniobj checkdiscr dsym_457__MELT_ARGUMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_457__MELT_ARGUMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_457__MELT_ARGUMENT.obj_hash = 794513475;
-  cdat->dsym_457__MELT_ARGUMENT.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_457__MELT_ARGUMENT));
- 
- /*inistring dstr_458__MELT_ARGUMENT*/
- /*_.VALSTR___V598*/ curfptr[597] = (void*)&cdat->dstr_458__MELT_ARGUMENT;
-  cdat->dstr_458__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_458__MELT_ARGUMENT.val, "MELT_ARGUMENT", sizeof(cdat->dstr_458__MELT_ARGUMENT.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3123:/ iniobj");
- /*iniobj dobj_459__MELT_ARGUMENT*/
- if (!/*_.VALDATA___V599*/ curfptr[598]) /*_.VALDATA___V599*/ curfptr[598] = (void*)&cdat->dobj_459__MELT_ARGUMENT;
-  melt_assertmsg("iniobj checkdiscr dobj_459__MELT_ARGUMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_459__MELT_ARGUMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
-  cdat->dobj_459__MELT_ARGUMENT.obj_hash = 919126861;
-  cdat->dobj_459__MELT_ARGUMENT.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_459__MELT_ARGUMENT));
- 
- /*inimult dtup_460__MELT_ARGUMENT*/
- /*_.VALTUP___V607*/ curfptr[606] = (void*)&cdat->dtup_460__MELT_ARGUMENT;
-  cdat->dtup_460__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_460__MELT_ARGUMENT.nbval = 3;
- /*inimult dtup_461__MELT_ARGUMENT*/
- /*_.VALTUP___V604*/ curfptr[603] = (void*)&cdat->dtup_461__MELT_ARGUMENT;
-  cdat->dtup_461__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
-  cdat->dtup_461__MELT_ARGUMENT.nbval = 1;
- /*iniobj dsym_462__NAM*/
- if (!/*_.VALDATA___V602*/ curfptr[601]) /*_.VALDATA___V602*/ curfptr[601] = (void*)&cdat->dsym_462__NAM;
-  melt_assertmsg("iniobj checkdiscr dsym_462__NAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_462__NAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_462__NAM.obj_hash = 707406315;
-  cdat->dsym_462__NAM.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_462__NAM));
- 
- /*inistring dstr_463__NAM*/
- /*_.VALSTR___V603*/ curfptr[602] = (void*)&cdat->dstr_463__NAM;
-  cdat->dstr_463__NAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_463__NAM.val, "NAM", sizeof(cdat->dstr_463__NAM.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3123:/ iniobj");
- /*iniobj dobj_464*/
- if (!/*_.VALDATA___V601*/ curfptr[600]) /*_.VALDATA___V601*/ curfptr[600] = (void*)&cdat->dobj_464;
-  melt_assertmsg("iniobj checkdiscr dobj_464", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_464.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
-  cdat->dobj_464.obj_num = 0;
-  cdat->dobj_464.obj_hash = 667786869;
-  cdat->dobj_464.obj_len = 2;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_464));
- 
- /*inistring dstr_465__melt_argument_*/
- /*_.VALSTR___V605*/ curfptr[604] = (void*)&cdat->dstr_465__melt_argument_;
-  cdat->dstr_465__melt_argument_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_465__melt_argument_.val, "melt_argument(", sizeof(cdat->dstr_465__melt_argument_.val)-1);
- 
- /*inistring dstr_466__*/
- /*_.VALSTR___V606*/ curfptr[605] = (void*)&cdat->dstr_466__;
-  cdat->dstr_466__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
-  strncpy(cdat->dstr_466__.val, ")", sizeof(cdat->dstr_466__.val)-1);
- 
- /*inistring dstr_467__MELT_ARGUMENT*/
- /*_.VALSTR___V600*/ curfptr[599] = (void*)&cdat->dstr_467__MELT_ARGUMENT;
-  cdat->dstr_467__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_467__MELT_ARGUMENT.val, "MELT_ARGUMENT", sizeof(cdat->dstr_467__MELT_ARGUMENT.val)-1);
- 
- /*inirout drout_468__INSTALL_MELT_MODE*/
- /*_.VALROUT___V608*/ curfptr[607] = (void*)&cdat->drout_468__INSTALL_MELT_MODE;
-  cdat->drout_468__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_468__INSTALL_MELT_MODE.routdescr, "INSTALL_MELT_MODE @warmelt-outobj.melt:3127",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_468__INSTALL_MELT_MODE.nbval = 5;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_468__INSTALL_MELT_MODE, meltrout_124_warmelt_outobj_INSTALL_MELT_MODE);
- 
- /*iniclos dclo_469__INSTALL_MELT_MODE*/
- /*_.VALCLO___V609*/ curfptr[608] = (void*)&cdat->dclo_469__INSTALL_MELT_MODE;
-  cdat->dclo_469__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_469__INSTALL_MELT_MODE.nbval = 0;
- 
- /*iniobj dsym_470__CLASS_MELT_MODE*/
- if (!/*_.VALDATA___V610*/ curfptr[609]) /*_.VALDATA___V610*/ curfptr[609] = (void*)&cdat->dsym_470__CLASS_MELT_MODE;
-  melt_assertmsg("iniobj checkdiscr dsym_470__CLASS_MELT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_470__CLASS_MELT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_470__CLASS_MELT_MODE.obj_hash = 78749621;
-  cdat->dsym_470__CLASS_MELT_MODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_470__CLASS_MELT_MODE));
- 
- /*inistring dstr_471__CLASS_MELT_MODE*/
- /*_.VALSTR___V611*/ curfptr[610] = (void*)&cdat->dstr_471__CLASS_MELT_MODE;
-  cdat->dstr_471__CLASS_MELT_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_471__CLASS_MELT_MODE.val, "CLASS_MELT_MODE", sizeof(cdat->dstr_471__CLASS_MELT_MODE.val)-1);
- 
- /*iniobj dsym_472__INITIAL_SYSTEM_DATA*/
- if (!/*_.VALDATA___V612*/ curfptr[611]) /*_.VALDATA___V612*/ curfptr[611] = (void*)&cdat->dsym_472__INITIAL_SYSTEM_DATA;
-  melt_assertmsg("iniobj checkdiscr dsym_472__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_472__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_472__INITIAL_SYSTEM_DATA.obj_hash = 771349808;
-  cdat->dsym_472__INITIAL_SYSTEM_DATA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_472__INITIAL_SYSTEM_DATA));
- 
- /*inistring dstr_473__INITIAL_SYSTEM_D*/
- /*_.VALSTR___V613*/ curfptr[612] = (void*)&cdat->dstr_473__INITIAL_SYSTEM_D;
-  cdat->dstr_473__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_473__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_473__INITIAL_SYSTEM_D.val)-1);
- 
- /*iniobj dsym_474__CLASS_SYSTEM_DATA*/
- if (!/*_.VALDATA___V614*/ curfptr[613]) /*_.VALDATA___V614*/ curfptr[613] = (void*)&cdat->dsym_474__CLASS_SYSTEM_DATA;
-  melt_assertmsg("iniobj checkdiscr dsym_474__CLASS_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_474__CLASS_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_474__CLASS_SYSTEM_DATA.obj_hash = 648451867;
-  cdat->dsym_474__CLASS_SYSTEM_DATA.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_474__CLASS_SYSTEM_DATA));
- 
- /*inistring dstr_475__CLASS_SYSTEM_DAT*/
- /*_.VALSTR___V615*/ curfptr[614] = (void*)&cdat->dstr_475__CLASS_SYSTEM_DAT;
-  cdat->dstr_475__CLASS_SYSTEM_DAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_475__CLASS_SYSTEM_DAT.val, "CLASS_SYSTEM_DATA", sizeof(cdat->dstr_475__CLASS_SYSTEM_DAT.val)-1);
- 
- /*inirout drout_476__COMPILE_ONE_OR_MORE_FILES*/
- /*_.VALROUT___V616*/ curfptr[615] = (void*)&cdat->drout_476__COMPILE_ONE_OR_MORE_FILES;
-  cdat->drout_476__COMPILE_ONE_OR_MORE_FILES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_476__COMPILE_ONE_OR_MORE_FILES.routdescr, "COMPILE_ONE_OR_MORE_FILES @warmelt-outobj.melt:3145",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_476__COMPILE_ONE_OR_MORE_FILES.nbval = 5;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_476__COMPILE_ONE_OR_MORE_FILES, meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES);
- 
- /*iniclos dclo_477__COMPILE_ONE_OR_MORE_FILES*/
- /*_.VALCLO___V617*/ curfptr[616] = (void*)&cdat->dclo_477__COMPILE_ONE_OR_MORE_FILES;
-  cdat->dclo_477__COMPILE_ONE_OR_MORE_FILES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_477__COMPILE_ONE_OR_MORE_FILES.nbval = 0;
- 
- /*iniobj dsym_478__LIST_APPEND2LIST*/
- if (!/*_.VALDATA___V618*/ curfptr[617]) /*_.VALDATA___V618*/ curfptr[617] = (void*)&cdat->dsym_478__LIST_APPEND2LIST;
-  melt_assertmsg("iniobj checkdiscr dsym_478__LIST_APPEND2LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_478__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_478__LIST_APPEND2LIST.obj_hash = 744841630;
-  cdat->dsym_478__LIST_APPEND2LIST.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_478__LIST_APPEND2LIST));
- 
- /*inistring dstr_479__LIST_APPEND2LIST*/
- /*_.VALSTR___V619*/ curfptr[618] = (void*)&cdat->dstr_479__LIST_APPEND2LIST;
-  cdat->dstr_479__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_479__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof(cdat->dstr_479__LIST_APPEND2LIST.val)-1);
- 
- /*inirout drout_480__TRANSLATEFILE_DOCMD*/
- /*_.VALROUT___V620*/ curfptr[619] = (void*)&cdat->drout_480__TRANSLATEFILE_DOCMD;
-  cdat->drout_480__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_480__TRANSLATEFILE_DOCMD.routdescr, "TRANSLATEFILE_DOCMD @warmelt-outobj.melt:3174",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_480__TRANSLATEFILE_DOCMD.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_480__TRANSLATEFILE_DOCMD, meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD);
- 
- /*iniclos dclo_481__TRANSLATEFILE_DOCMD*/
- /*_.VALCLO___V621*/ curfptr[620] = (void*)&cdat->dclo_481__TRANSLATEFILE_DOCMD;
-  cdat->dclo_481__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_481__TRANSLATEFILE_DOCMD.nbval = 0;
- 
- /*iniobj dsym_482__TRANSLATEFILE_MODE*/
- if (!/*_.VALDATA___V622*/ curfptr[621]) /*_.VALDATA___V622*/ curfptr[621] = (void*)&cdat->dsym_482__TRANSLATEFILE_MODE;
-  melt_assertmsg("iniobj checkdiscr dsym_482__TRANSLATEFILE_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_482__TRANSLATEFILE_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_482__TRANSLATEFILE_MODE.obj_hash = 798309888;
-  cdat->dsym_482__TRANSLATEFILE_MODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_482__TRANSLATEFILE_MODE));
- 
- /*inistring dstr_483__TRANSLATEFILE_MO*/
- /*_.VALSTR___V623*/ curfptr[622] = (void*)&cdat->dstr_483__TRANSLATEFILE_MO;
-  cdat->dstr_483__TRANSLATEFILE_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_483__TRANSLATEFILE_MO.val, "TRANSLATEFILE_MODE", sizeof(cdat->dstr_483__TRANSLATEFILE_MO.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3200:/ iniobj");
- /*iniobj dobj_484__TRANSLATEFILE_MODE*/
- if (!/*_.VALDATA___V624*/ curfptr[623]) /*_.VALDATA___V624*/ curfptr[623] = (void*)&cdat->dobj_484__TRANSLATEFILE_MODE;
-  melt_assertmsg("iniobj checkdiscr dobj_484__TRANSLATEFILE_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_484__TRANSLATEFILE_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_484__TRANSLATEFILE_MODE.obj_hash = 268585108;
-  cdat->dobj_484__TRANSLATEFILE_MODE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_484__TRANSLATEFILE_MODE));
- 
- /*inistring dstr_485__translatefile*/
- /*_.VALSTR___V625*/ curfptr[624] = (void*)&cdat->dstr_485__translatefile;
-  cdat->dstr_485__translatefile.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_485__translatefile.val, "translatefile", sizeof(cdat->dstr_485__translatefile.val)-1);
- 
- /*inistring dstr_486__MELT_translatef*/
- /*_.VALSTR___V626*/ curfptr[625] = (void*)&cdat->dstr_486__MELT_translatef;
-  cdat->dstr_486__MELT_translatef.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_486__MELT_translatef.val, "MELT \'translatefile\' mode: ARGUMENT= input file; OUTPUT= generated file", sizeof(cdat->dstr_486__MELT_translatef.val)-1);
- 
- /*inirout drout_487__RUNFILE_DOCMD*/
- /*_.VALROUT___V627*/ curfptr[626] = (void*)&cdat->drout_487__RUNFILE_DOCMD;
-  cdat->drout_487__RUNFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_487__RUNFILE_DOCMD.routdescr, "RUNFILE_DOCMD @warmelt-outobj.melt:3212",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_487__RUNFILE_DOCMD.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_487__RUNFILE_DOCMD, meltrout_127_warmelt_outobj_RUNFILE_DOCMD);
- 
- /*iniclos dclo_488__RUNFILE_DOCMD*/
- /*_.VALCLO___V628*/ curfptr[627] = (void*)&cdat->dclo_488__RUNFILE_DOCMD;
-  cdat->dclo_488__RUNFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_488__RUNFILE_DOCMD.nbval = 0;
- 
- /*iniobj dsym_489__RUNFILE_MODE*/
- if (!/*_.VALDATA___V629*/ curfptr[628]) /*_.VALDATA___V629*/ curfptr[628] = (void*)&cdat->dsym_489__RUNFILE_MODE;
-  melt_assertmsg("iniobj checkdiscr dsym_489__RUNFILE_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_489__RUNFILE_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_489__RUNFILE_MODE.obj_hash = 57008406;
-  cdat->dsym_489__RUNFILE_MODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_489__RUNFILE_MODE));
- 
- /*inistring dstr_490__RUNFILE_MODE*/
- /*_.VALSTR___V630*/ curfptr[629] = (void*)&cdat->dstr_490__RUNFILE_MODE;
-  cdat->dstr_490__RUNFILE_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_490__RUNFILE_MODE.val, "RUNFILE_MODE", sizeof(cdat->dstr_490__RUNFILE_MODE.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3245:/ iniobj");
- /*iniobj dobj_491__RUNFILE_MODE*/
- if (!/*_.VALDATA___V631*/ curfptr[630]) /*_.VALDATA___V631*/ curfptr[630] = (void*)&cdat->dobj_491__RUNFILE_MODE;
-  melt_assertmsg("iniobj checkdiscr dobj_491__RUNFILE_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_491__RUNFILE_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_491__RUNFILE_MODE.obj_hash = 753911205;
-  cdat->dobj_491__RUNFILE_MODE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_491__RUNFILE_MODE));
- 
- /*inistring dstr_492__runfile*/
- /*_.VALSTR___V632*/ curfptr[631] = (void*)&cdat->dstr_492__runfile;
-  cdat->dstr_492__runfile.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_492__runfile.val, "runfile", sizeof(cdat->dstr_492__runfile.val)-1);
- 
- /*inistring dstr_493__MELT_runfile_m*/
- /*_.VALSTR___V633*/ curfptr[632] = (void*)&cdat->dstr_493__MELT_runfile_m;
-  cdat->dstr_493__MELT_runfile_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_493__MELT_runfile_m.val, "MELT \'runfile\' mode: ARGUMENT= input file; [OUTPUT=generated C]", sizeof(cdat->dstr_493__MELT_runfile_m.val)-1);
- 
- /*inirout drout_494__TRANSLATEINIT_DOCMD*/
- /*_.VALROUT___V634*/ curfptr[633] = (void*)&cdat->drout_494__TRANSLATEINIT_DOCMD;
-  cdat->drout_494__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_494__TRANSLATEINIT_DOCMD.routdescr, "TRANSLATEINIT_DOCMD @warmelt-outobj.melt:3255",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_494__TRANSLATEINIT_DOCMD.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_494__TRANSLATEINIT_DOCMD, meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD);
- 
- /*iniclos dclo_495__TRANSLATEINIT_DOCMD*/
- /*_.VALCLO___V636*/ curfptr[635] = (void*)&cdat->dclo_495__TRANSLATEINIT_DOCMD;
-  cdat->dclo_495__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_495__TRANSLATEINIT_DOCMD.nbval = 0;
- 
- /*inirout drout_496__LAMBDA_*/
- /*_.VALROUT___V635*/ curfptr[634] = (void*)&cdat->drout_496__LAMBDA_;
-  cdat->drout_496__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_496__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3284",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_496__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_496__LAMBDA_, meltrout_129_warmelt_outobj_LAMBDA_);
- 
- /*iniobj dsym_497__TRANSLATEINIT_MODE*/
- if (!/*_.VALDATA___V637*/ curfptr[636]) /*_.VALDATA___V637*/ curfptr[636] = (void*)&cdat->dsym_497__TRANSLATEINIT_MODE;
-  melt_assertmsg("iniobj checkdiscr dsym_497__TRANSLATEINIT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_497__TRANSLATEINIT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_497__TRANSLATEINIT_MODE.obj_hash = 941353815;
-  cdat->dsym_497__TRANSLATEINIT_MODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_497__TRANSLATEINIT_MODE));
- 
- /*inistring dstr_498__TRANSLATEINIT_MO*/
- /*_.VALSTR___V638*/ curfptr[637] = (void*)&cdat->dstr_498__TRANSLATEINIT_MO;
-  cdat->dstr_498__TRANSLATEINIT_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_498__TRANSLATEINIT_MO.val, "TRANSLATEINIT_MODE", sizeof(cdat->dstr_498__TRANSLATEINIT_MO.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3299:/ iniobj");
- /*iniobj dobj_499__TRANSLATEINIT_MODE*/
- if (!/*_.VALDATA___V639*/ curfptr[638]) /*_.VALDATA___V639*/ curfptr[638] = (void*)&cdat->dobj_499__TRANSLATEINIT_MODE;
-  melt_assertmsg("iniobj checkdiscr dobj_499__TRANSLATEINIT_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_499__TRANSLATEINIT_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_499__TRANSLATEINIT_MODE.obj_hash = 1045207186;
-  cdat->dobj_499__TRANSLATEINIT_MODE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_499__TRANSLATEINIT_MODE));
- 
- /*inistring dstr_500__translateinit*/
- /*_.VALSTR___V640*/ curfptr[639] = (void*)&cdat->dstr_500__translateinit;
-  cdat->dstr_500__translateinit.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_500__translateinit.val, "translateinit", sizeof(cdat->dstr_500__translateinit.val)-1);
- 
- /*inistring dstr_501__MELT_translatei*/
- /*_.VALSTR___V641*/ curfptr[640] = (void*)&cdat->dstr_501__MELT_translatei;
-  cdat->dstr_501__MELT_translatei.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_501__MELT_translatei.val, "MELT \'translateinit\' mode: ARGUMENT= input file; OUTPUT= generated file", sizeof(cdat->dstr_501__MELT_translatei.val)-1);
- 
- /*iniobj dsym_502__CLASS_MAKEDOC_INFO*/
- if (!/*_.VALDATA___V642*/ curfptr[641]) /*_.VALDATA___V642*/ curfptr[641] = (void*)&cdat->dsym_502__CLASS_MAKEDOC_INFO;
-  melt_assertmsg("iniobj checkdiscr dsym_502__CLASS_MAKEDOC_INFO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_502__CLASS_MAKEDOC_INFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_502__CLASS_MAKEDOC_INFO.obj_hash = 888483056;
-  cdat->dsym_502__CLASS_MAKEDOC_INFO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_502__CLASS_MAKEDOC_INFO));
- 
- /*inistring dstr_503__CLASS_MAKEDOC_IN*/
- /*_.VALSTR___V643*/ curfptr[642] = (void*)&cdat->dstr_503__CLASS_MAKEDOC_IN;
-  cdat->dstr_503__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_503__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof(cdat->dstr_503__CLASS_MAKEDOC_IN.val)-1);
- 
- /*iniobj dsym_504__CLASS_PROPED*/
- if (!/*_.VALDATA___V644*/ curfptr[643]) /*_.VALDATA___V644*/ curfptr[643] = (void*)&cdat->dsym_504__CLASS_PROPED;
-  melt_assertmsg("iniobj checkdiscr dsym_504__CLASS_PROPED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_504__CLASS_PROPED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_504__CLASS_PROPED.obj_hash = 96765023;
-  cdat->dsym_504__CLASS_PROPED.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_504__CLASS_PROPED));
- 
- /*inistring dstr_505__CLASS_PROPED*/
- /*_.VALSTR___V645*/ curfptr[644] = (void*)&cdat->dstr_505__CLASS_PROPED;
-  cdat->dstr_505__CLASS_PROPED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_505__CLASS_PROPED.val, "CLASS_PROPED", sizeof(cdat->dstr_505__CLASS_PROPED.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_506__CLASS_MAKEDOC_INFO*/
- if (!/*_.VALDATA___V646*/ curfptr[645]) /*_.VALDATA___V646*/ curfptr[645] = (void*)&cdat->dobj_506__CLASS_MAKEDOC_INFO;
-  melt_assertmsg("iniobj checkdiscr dobj_506__CLASS_MAKEDOC_INFO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_506__CLASS_MAKEDOC_INFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
-  cdat->dobj_506__CLASS_MAKEDOC_INFO.obj_num = OBMAG_OBJECT;
-  cdat->dobj_506__CLASS_MAKEDOC_INFO.obj_hash = 250181210;
-  cdat->dobj_506__CLASS_MAKEDOC_INFO.obj_len = 8;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_506__CLASS_MAKEDOC_INFO));
- 
- /*inistring dstr_507__CLASS_MAKEDOC_IN*/
- /*_.VALSTR___V647*/ curfptr[646] = (void*)&cdat->dstr_507__CLASS_MAKEDOC_IN;
-  cdat->dstr_507__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_507__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof(cdat->dstr_507__CLASS_MAKEDOC_IN.val)-1);
- 
- /*inimult dtup_508__CLASS_MAKEDOC_INFO*/
- /*_.VALTUP___V648*/ curfptr[647] = (void*)&cdat->dtup_508__CLASS_MAKEDOC_INFO;
-  cdat->dtup_508__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
-  cdat->dtup_508__CLASS_MAKEDOC_INFO.nbval = 2;
- /*inimult dtup_509__CLASS_MAKEDOC_INFO*/
- /*_.VALTUP___V677*/ curfptr[676] = (void*)&cdat->dtup_509__CLASS_MAKEDOC_INFO;
-  cdat->dtup_509__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
-  cdat->dtup_509__CLASS_MAKEDOC_INFO.nbval = 15;
- /*iniobj dsym_510__MKDOC_PRIMITIVES*/
- if (!/*_.VALDATA___V678*/ curfptr[677]) /*_.VALDATA___V678*/ curfptr[677] = (void*)&cdat->dsym_510__MKDOC_PRIMITIVES;
-  melt_assertmsg("iniobj checkdiscr dsym_510__MKDOC_PRIMITIVES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_510__MKDOC_PRIMITIVES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_510__MKDOC_PRIMITIVES.obj_hash = 233088980;
-  cdat->dsym_510__MKDOC_PRIMITIVES.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_510__MKDOC_PRIMITIVES));
- 
- /*inistring dstr_511__MKDOC_PRIMITIVES*/
- /*_.VALSTR___V679*/ curfptr[678] = (void*)&cdat->dstr_511__MKDOC_PRIMITIVES;
-  cdat->dstr_511__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_511__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof(cdat->dstr_511__MKDOC_PRIMITIVES.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_512__MKDOC_PRIMITIVES*/
- if (!/*_.VALDATA___V649*/ curfptr[648]) /*_.VALDATA___V649*/ curfptr[648] = (void*)&cdat->dobj_512__MKDOC_PRIMITIVES;
-  melt_assertmsg("iniobj checkdiscr dobj_512__MKDOC_PRIMITIVES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_512__MKDOC_PRIMITIVES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_512__MKDOC_PRIMITIVES.obj_num = 1;
-  cdat->dobj_512__MKDOC_PRIMITIVES.obj_hash = 630662371;
-  cdat->dobj_512__MKDOC_PRIMITIVES.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_512__MKDOC_PRIMITIVES));
- 
- /*inistring dstr_513__MKDOC_PRIMITIVES*/
- /*_.VALSTR___V650*/ curfptr[649] = (void*)&cdat->dstr_513__MKDOC_PRIMITIVES;
-  cdat->dstr_513__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_513__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof(cdat->dstr_513__MKDOC_PRIMITIVES.val)-1);
- 
- /*iniobj dsym_514__MKDOC_FUNCTIONS*/
- if (!/*_.VALDATA___V680*/ curfptr[679]) /*_.VALDATA___V680*/ curfptr[679] = (void*)&cdat->dsym_514__MKDOC_FUNCTIONS;
-  melt_assertmsg("iniobj checkdiscr dsym_514__MKDOC_FUNCTIONS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_514__MKDOC_FUNCTIONS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_514__MKDOC_FUNCTIONS.obj_hash = 654520228;
-  cdat->dsym_514__MKDOC_FUNCTIONS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_514__MKDOC_FUNCTIONS));
- 
- /*inistring dstr_515__MKDOC_FUNCTIONS*/
- /*_.VALSTR___V681*/ curfptr[680] = (void*)&cdat->dstr_515__MKDOC_FUNCTIONS;
-  cdat->dstr_515__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_515__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof(cdat->dstr_515__MKDOC_FUNCTIONS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_516__MKDOC_FUNCTIONS*/
- if (!/*_.VALDATA___V651*/ curfptr[650]) /*_.VALDATA___V651*/ curfptr[650] = (void*)&cdat->dobj_516__MKDOC_FUNCTIONS;
-  melt_assertmsg("iniobj checkdiscr dobj_516__MKDOC_FUNCTIONS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_516__MKDOC_FUNCTIONS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_516__MKDOC_FUNCTIONS.obj_num = 2;
-  cdat->dobj_516__MKDOC_FUNCTIONS.obj_hash = 680411930;
-  cdat->dobj_516__MKDOC_FUNCTIONS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_516__MKDOC_FUNCTIONS));
- 
- /*inistring dstr_517__MKDOC_FUNCTIONS*/
- /*_.VALSTR___V652*/ curfptr[651] = (void*)&cdat->dstr_517__MKDOC_FUNCTIONS;
-  cdat->dstr_517__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_517__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof(cdat->dstr_517__MKDOC_FUNCTIONS.val)-1);
- 
- /*iniobj dsym_518__MKDOC_CITERATORS*/
- if (!/*_.VALDATA___V682*/ curfptr[681]) /*_.VALDATA___V682*/ curfptr[681] = (void*)&cdat->dsym_518__MKDOC_CITERATORS;
-  melt_assertmsg("iniobj checkdiscr dsym_518__MKDOC_CITERATORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_518__MKDOC_CITERATORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_518__MKDOC_CITERATORS.obj_hash = 809871209;
-  cdat->dsym_518__MKDOC_CITERATORS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_518__MKDOC_CITERATORS));
- 
- /*inistring dstr_519__MKDOC_CITERATORS*/
- /*_.VALSTR___V683*/ curfptr[682] = (void*)&cdat->dstr_519__MKDOC_CITERATORS;
-  cdat->dstr_519__MKDOC_CITERATORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_519__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof(cdat->dstr_519__MKDOC_CITERATORS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_520__MKDOC_CITERATORS*/
- if (!/*_.VALDATA___V653*/ curfptr[652]) /*_.VALDATA___V653*/ curfptr[652] = (void*)&cdat->dobj_520__MKDOC_CITERATORS;
-  melt_assertmsg("iniobj checkdiscr dobj_520__MKDOC_CITERATORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_520__MKDOC_CITERATORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_520__MKDOC_CITERATORS.obj_num = 3;
-  cdat->dobj_520__MKDOC_CITERATORS.obj_hash = 43724645;
-  cdat->dobj_520__MKDOC_CITERATORS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_520__MKDOC_CITERATORS));
- 
- /*inistring dstr_521__MKDOC_CITERATORS*/
- /*_.VALSTR___V654*/ curfptr[653] = (void*)&cdat->dstr_521__MKDOC_CITERATORS;
-  cdat->dstr_521__MKDOC_CITERATORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_521__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof(cdat->dstr_521__MKDOC_CITERATORS.val)-1);
- 
- /*iniobj dsym_522__MKDOC_CMATCHERS*/
- if (!/*_.VALDATA___V684*/ curfptr[683]) /*_.VALDATA___V684*/ curfptr[683] = (void*)&cdat->dsym_522__MKDOC_CMATCHERS;
-  melt_assertmsg("iniobj checkdiscr dsym_522__MKDOC_CMATCHERS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_522__MKDOC_CMATCHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_522__MKDOC_CMATCHERS.obj_hash = 622562832;
-  cdat->dsym_522__MKDOC_CMATCHERS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_522__MKDOC_CMATCHERS));
- 
- /*inistring dstr_523__MKDOC_CMATCHERS*/
- /*_.VALSTR___V685*/ curfptr[684] = (void*)&cdat->dstr_523__MKDOC_CMATCHERS;
-  cdat->dstr_523__MKDOC_CMATCHERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_523__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof(cdat->dstr_523__MKDOC_CMATCHERS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_524__MKDOC_CMATCHERS*/
- if (!/*_.VALDATA___V655*/ curfptr[654]) /*_.VALDATA___V655*/ curfptr[654] = (void*)&cdat->dobj_524__MKDOC_CMATCHERS;
-  melt_assertmsg("iniobj checkdiscr dobj_524__MKDOC_CMATCHERS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_524__MKDOC_CMATCHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_524__MKDOC_CMATCHERS.obj_num = 4;
-  cdat->dobj_524__MKDOC_CMATCHERS.obj_hash = 300112417;
-  cdat->dobj_524__MKDOC_CMATCHERS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_524__MKDOC_CMATCHERS));
- 
- /*inistring dstr_525__MKDOC_CMATCHERS*/
- /*_.VALSTR___V656*/ curfptr[655] = (void*)&cdat->dstr_525__MKDOC_CMATCHERS;
-  cdat->dstr_525__MKDOC_CMATCHERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_525__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof(cdat->dstr_525__MKDOC_CMATCHERS.val)-1);
- 
- /*iniobj dsym_526__MKDOC_SELECTORS*/
- if (!/*_.VALDATA___V686*/ curfptr[685]) /*_.VALDATA___V686*/ curfptr[685] = (void*)&cdat->dsym_526__MKDOC_SELECTORS;
-  melt_assertmsg("iniobj checkdiscr dsym_526__MKDOC_SELECTORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_526__MKDOC_SELECTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_526__MKDOC_SELECTORS.obj_hash = 111275095;
-  cdat->dsym_526__MKDOC_SELECTORS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_526__MKDOC_SELECTORS));
- 
- /*inistring dstr_527__MKDOC_SELECTORS*/
- /*_.VALSTR___V687*/ curfptr[686] = (void*)&cdat->dstr_527__MKDOC_SELECTORS;
-  cdat->dstr_527__MKDOC_SELECTORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_527__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof(cdat->dstr_527__MKDOC_SELECTORS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_528__MKDOC_SELECTORS*/
- if (!/*_.VALDATA___V657*/ curfptr[656]) /*_.VALDATA___V657*/ curfptr[656] = (void*)&cdat->dobj_528__MKDOC_SELECTORS;
-  melt_assertmsg("iniobj checkdiscr dobj_528__MKDOC_SELECTORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_528__MKDOC_SELECTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_528__MKDOC_SELECTORS.obj_num = 5;
-  cdat->dobj_528__MKDOC_SELECTORS.obj_hash = 1007872612;
-  cdat->dobj_528__MKDOC_SELECTORS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_528__MKDOC_SELECTORS));
- 
- /*inistring dstr_529__MKDOC_SELECTORS*/
- /*_.VALSTR___V658*/ curfptr[657] = (void*)&cdat->dstr_529__MKDOC_SELECTORS;
-  cdat->dstr_529__MKDOC_SELECTORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_529__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof(cdat->dstr_529__MKDOC_SELECTORS.val)-1);
- 
- /*iniobj dsym_530__MKDOC_FIELDS*/
- if (!/*_.VALDATA___V688*/ curfptr[687]) /*_.VALDATA___V688*/ curfptr[687] = (void*)&cdat->dsym_530__MKDOC_FIELDS;
-  melt_assertmsg("iniobj checkdiscr dsym_530__MKDOC_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_530__MKDOC_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_530__MKDOC_FIELDS.obj_hash = 113024229;
-  cdat->dsym_530__MKDOC_FIELDS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_530__MKDOC_FIELDS));
- 
- /*inistring dstr_531__MKDOC_FIELDS*/
- /*_.VALSTR___V689*/ curfptr[688] = (void*)&cdat->dstr_531__MKDOC_FIELDS;
-  cdat->dstr_531__MKDOC_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_531__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof(cdat->dstr_531__MKDOC_FIELDS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_532__MKDOC_FIELDS*/
- if (!/*_.VALDATA___V659*/ curfptr[658]) /*_.VALDATA___V659*/ curfptr[658] = (void*)&cdat->dobj_532__MKDOC_FIELDS;
-  melt_assertmsg("iniobj checkdiscr dobj_532__MKDOC_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_532__MKDOC_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_532__MKDOC_FIELDS.obj_num = 6;
-  cdat->dobj_532__MKDOC_FIELDS.obj_hash = 258145699;
-  cdat->dobj_532__MKDOC_FIELDS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_532__MKDOC_FIELDS));
- 
- /*inistring dstr_533__MKDOC_FIELDS*/
- /*_.VALSTR___V660*/ curfptr[659] = (void*)&cdat->dstr_533__MKDOC_FIELDS;
-  cdat->dstr_533__MKDOC_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_533__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof(cdat->dstr_533__MKDOC_FIELDS.val)-1);
- 
- /*iniobj dsym_534__MKDOC_CLASSES*/
- if (!/*_.VALDATA___V690*/ curfptr[689]) /*_.VALDATA___V690*/ curfptr[689] = (void*)&cdat->dsym_534__MKDOC_CLASSES;
-  melt_assertmsg("iniobj checkdiscr dsym_534__MKDOC_CLASSES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_534__MKDOC_CLASSES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_534__MKDOC_CLASSES.obj_hash = 491567800;
-  cdat->dsym_534__MKDOC_CLASSES.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_534__MKDOC_CLASSES));
- 
- /*inistring dstr_535__MKDOC_CLASSES*/
- /*_.VALSTR___V691*/ curfptr[690] = (void*)&cdat->dstr_535__MKDOC_CLASSES;
-  cdat->dstr_535__MKDOC_CLASSES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_535__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof(cdat->dstr_535__MKDOC_CLASSES.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_536__MKDOC_CLASSES*/
- if (!/*_.VALDATA___V661*/ curfptr[660]) /*_.VALDATA___V661*/ curfptr[660] = (void*)&cdat->dobj_536__MKDOC_CLASSES;
-  melt_assertmsg("iniobj checkdiscr dobj_536__MKDOC_CLASSES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_536__MKDOC_CLASSES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_536__MKDOC_CLASSES.obj_num = 7;
-  cdat->dobj_536__MKDOC_CLASSES.obj_hash = 213135978;
-  cdat->dobj_536__MKDOC_CLASSES.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_536__MKDOC_CLASSES));
- 
- /*inistring dstr_537__MKDOC_CLASSES*/
- /*_.VALSTR___V662*/ curfptr[661] = (void*)&cdat->dstr_537__MKDOC_CLASSES;
-  cdat->dstr_537__MKDOC_CLASSES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_537__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof(cdat->dstr_537__MKDOC_CLASSES.val)-1);
- 
- /*iniobj dsym_538__MKDOC_INSTANCES*/
- if (!/*_.VALDATA___V692*/ curfptr[691]) /*_.VALDATA___V692*/ curfptr[691] = (void*)&cdat->dsym_538__MKDOC_INSTANCES;
-  melt_assertmsg("iniobj checkdiscr dsym_538__MKDOC_INSTANCES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_538__MKDOC_INSTANCES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_538__MKDOC_INSTANCES.obj_hash = 100156077;
-  cdat->dsym_538__MKDOC_INSTANCES.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_538__MKDOC_INSTANCES));
- 
- /*inistring dstr_539__MKDOC_INSTANCES*/
- /*_.VALSTR___V693*/ curfptr[692] = (void*)&cdat->dstr_539__MKDOC_INSTANCES;
-  cdat->dstr_539__MKDOC_INSTANCES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_539__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof(cdat->dstr_539__MKDOC_INSTANCES.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_540__MKDOC_INSTANCES*/
- if (!/*_.VALDATA___V663*/ curfptr[662]) /*_.VALDATA___V663*/ curfptr[662] = (void*)&cdat->dobj_540__MKDOC_INSTANCES;
-  melt_assertmsg("iniobj checkdiscr dobj_540__MKDOC_INSTANCES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_540__MKDOC_INSTANCES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_540__MKDOC_INSTANCES.obj_num = 8;
-  cdat->dobj_540__MKDOC_INSTANCES.obj_hash = 664456065;
-  cdat->dobj_540__MKDOC_INSTANCES.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_540__MKDOC_INSTANCES));
- 
- /*inistring dstr_541__MKDOC_INSTANCES*/
- /*_.VALSTR___V664*/ curfptr[663] = (void*)&cdat->dstr_541__MKDOC_INSTANCES;
-  cdat->dstr_541__MKDOC_INSTANCES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_541__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof(cdat->dstr_541__MKDOC_INSTANCES.val)-1);
- 
- /*iniobj dsym_542__MKDOC_MACROS*/
- if (!/*_.VALDATA___V694*/ curfptr[693]) /*_.VALDATA___V694*/ curfptr[693] = (void*)&cdat->dsym_542__MKDOC_MACROS;
-  melt_assertmsg("iniobj checkdiscr dsym_542__MKDOC_MACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_542__MKDOC_MACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_542__MKDOC_MACROS.obj_hash = 312599283;
-  cdat->dsym_542__MKDOC_MACROS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_542__MKDOC_MACROS));
- 
- /*inistring dstr_543__MKDOC_MACROS*/
- /*_.VALSTR___V695*/ curfptr[694] = (void*)&cdat->dstr_543__MKDOC_MACROS;
-  cdat->dstr_543__MKDOC_MACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_543__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof(cdat->dstr_543__MKDOC_MACROS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_544__MKDOC_MACROS*/
- if (!/*_.VALDATA___V665*/ curfptr[664]) /*_.VALDATA___V665*/ curfptr[664] = (void*)&cdat->dobj_544__MKDOC_MACROS;
-  melt_assertmsg("iniobj checkdiscr dobj_544__MKDOC_MACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_544__MKDOC_MACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_544__MKDOC_MACROS.obj_num = 9;
-  cdat->dobj_544__MKDOC_MACROS.obj_hash = 933653223;
-  cdat->dobj_544__MKDOC_MACROS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_544__MKDOC_MACROS));
- 
- /*inistring dstr_545__MKDOC_MACROS*/
- /*_.VALSTR___V666*/ curfptr[665] = (void*)&cdat->dstr_545__MKDOC_MACROS;
-  cdat->dstr_545__MKDOC_MACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_545__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof(cdat->dstr_545__MKDOC_MACROS.val)-1);
- 
- /*iniobj dsym_546__MKDOC_PATMACROS*/
- if (!/*_.VALDATA___V696*/ curfptr[695]) /*_.VALDATA___V696*/ curfptr[695] = (void*)&cdat->dsym_546__MKDOC_PATMACROS;
-  melt_assertmsg("iniobj checkdiscr dsym_546__MKDOC_PATMACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_546__MKDOC_PATMACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_546__MKDOC_PATMACROS.obj_hash = 315727057;
-  cdat->dsym_546__MKDOC_PATMACROS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_546__MKDOC_PATMACROS));
- 
- /*inistring dstr_547__MKDOC_PATMACROS*/
- /*_.VALSTR___V697*/ curfptr[696] = (void*)&cdat->dstr_547__MKDOC_PATMACROS;
-  cdat->dstr_547__MKDOC_PATMACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_547__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof(cdat->dstr_547__MKDOC_PATMACROS.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_548__MKDOC_PATMACROS*/
- if (!/*_.VALDATA___V667*/ curfptr[666]) /*_.VALDATA___V667*/ curfptr[666] = (void*)&cdat->dobj_548__MKDOC_PATMACROS;
-  melt_assertmsg("iniobj checkdiscr dobj_548__MKDOC_PATMACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_548__MKDOC_PATMACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_548__MKDOC_PATMACROS.obj_num = 10;
-  cdat->dobj_548__MKDOC_PATMACROS.obj_hash = 733590339;
-  cdat->dobj_548__MKDOC_PATMACROS.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_548__MKDOC_PATMACROS));
- 
- /*inistring dstr_549__MKDOC_PATMACROS*/
- /*_.VALSTR___V668*/ curfptr[667] = (void*)&cdat->dstr_549__MKDOC_PATMACROS;
-  cdat->dstr_549__MKDOC_PATMACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_549__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof(cdat->dstr_549__MKDOC_PATMACROS.val)-1);
- 
- /*iniobj dsym_550__MKDOC_FORMALOCCMAP*/
- if (!/*_.VALDATA___V698*/ curfptr[697]) /*_.VALDATA___V698*/ curfptr[697] = (void*)&cdat->dsym_550__MKDOC_FORMALOCCMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_550__MKDOC_FORMALOCCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_550__MKDOC_FORMALOCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_550__MKDOC_FORMALOCCMAP.obj_hash = 59239994;
-  cdat->dsym_550__MKDOC_FORMALOCCMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_550__MKDOC_FORMALOCCMAP));
- 
- /*inistring dstr_551__MKDOC_FORMALOCCM*/
- /*_.VALSTR___V699*/ curfptr[698] = (void*)&cdat->dstr_551__MKDOC_FORMALOCCM;
-  cdat->dstr_551__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_551__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof(cdat->dstr_551__MKDOC_FORMALOCCM.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_552__MKDOC_FORMALOCCMAP*/
- if (!/*_.VALDATA___V669*/ curfptr[668]) /*_.VALDATA___V669*/ curfptr[668] = (void*)&cdat->dobj_552__MKDOC_FORMALOCCMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_552__MKDOC_FORMALOCCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_552__MKDOC_FORMALOCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_552__MKDOC_FORMALOCCMAP.obj_num = 11;
-  cdat->dobj_552__MKDOC_FORMALOCCMAP.obj_hash = 957862517;
-  cdat->dobj_552__MKDOC_FORMALOCCMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_552__MKDOC_FORMALOCCMAP));
- 
- /*inistring dstr_553__MKDOC_FORMALOCCM*/
- /*_.VALSTR___V670*/ curfptr[669] = (void*)&cdat->dstr_553__MKDOC_FORMALOCCM;
-  cdat->dstr_553__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_553__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof(cdat->dstr_553__MKDOC_FORMALOCCM.val)-1);
- 
- /*iniobj dsym_554__MKDOC_PREDEFMAP*/
- if (!/*_.VALDATA___V700*/ curfptr[699]) /*_.VALDATA___V700*/ curfptr[699] = (void*)&cdat->dsym_554__MKDOC_PREDEFMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_554__MKDOC_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_554__MKDOC_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_554__MKDOC_PREDEFMAP.obj_hash = 1068524972;
-  cdat->dsym_554__MKDOC_PREDEFMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_554__MKDOC_PREDEFMAP));
- 
- /*inistring dstr_555__MKDOC_PREDEFMAP*/
- /*_.VALSTR___V701*/ curfptr[700] = (void*)&cdat->dstr_555__MKDOC_PREDEFMAP;
-  cdat->dstr_555__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_555__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof(cdat->dstr_555__MKDOC_PREDEFMAP.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_556__MKDOC_PREDEFMAP*/
- if (!/*_.VALDATA___V671*/ curfptr[670]) /*_.VALDATA___V671*/ curfptr[670] = (void*)&cdat->dobj_556__MKDOC_PREDEFMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_556__MKDOC_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_556__MKDOC_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_556__MKDOC_PREDEFMAP.obj_num = 12;
-  cdat->dobj_556__MKDOC_PREDEFMAP.obj_hash = 987371813;
-  cdat->dobj_556__MKDOC_PREDEFMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_556__MKDOC_PREDEFMAP));
- 
- /*inistring dstr_557__MKDOC_PREDEFMAP*/
- /*_.VALSTR___V672*/ curfptr[671] = (void*)&cdat->dstr_557__MKDOC_PREDEFMAP;
-  cdat->dstr_557__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_557__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof(cdat->dstr_557__MKDOC_PREDEFMAP.val)-1);
- 
- /*iniobj dsym_558__MKDOC_DOCSYMAP*/
- if (!/*_.VALDATA___V702*/ curfptr[701]) /*_.VALDATA___V702*/ curfptr[701] = (void*)&cdat->dsym_558__MKDOC_DOCSYMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_558__MKDOC_DOCSYMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_558__MKDOC_DOCSYMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_558__MKDOC_DOCSYMAP.obj_hash = 789377254;
-  cdat->dsym_558__MKDOC_DOCSYMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_558__MKDOC_DOCSYMAP));
- 
- /*inistring dstr_559__MKDOC_DOCSYMAP*/
- /*_.VALSTR___V703*/ curfptr[702] = (void*)&cdat->dstr_559__MKDOC_DOCSYMAP;
-  cdat->dstr_559__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_559__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof(cdat->dstr_559__MKDOC_DOCSYMAP.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_560__MKDOC_DOCSYMAP*/
- if (!/*_.VALDATA___V673*/ curfptr[672]) /*_.VALDATA___V673*/ curfptr[672] = (void*)&cdat->dobj_560__MKDOC_DOCSYMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_560__MKDOC_DOCSYMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_560__MKDOC_DOCSYMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_560__MKDOC_DOCSYMAP.obj_num = 13;
-  cdat->dobj_560__MKDOC_DOCSYMAP.obj_hash = 331651383;
-  cdat->dobj_560__MKDOC_DOCSYMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_560__MKDOC_DOCSYMAP));
- 
- /*inistring dstr_561__MKDOC_DOCSYMAP*/
- /*_.VALSTR___V674*/ curfptr[673] = (void*)&cdat->dstr_561__MKDOC_DOCSYMAP;
-  cdat->dstr_561__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_561__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof(cdat->dstr_561__MKDOC_DOCSYMAP.val)-1);
- 
- /*iniobj dsym_562__MKDOC_SUBCLASSMAP*/
- if (!/*_.VALDATA___V704*/ curfptr[703]) /*_.VALDATA___V704*/ curfptr[703] = (void*)&cdat->dsym_562__MKDOC_SUBCLASSMAP;
-  melt_assertmsg("iniobj checkdiscr dsym_562__MKDOC_SUBCLASSMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_562__MKDOC_SUBCLASSMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_562__MKDOC_SUBCLASSMAP.obj_hash = 157862502;
-  cdat->dsym_562__MKDOC_SUBCLASSMAP.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_562__MKDOC_SUBCLASSMAP));
- 
- /*inistring dstr_563__MKDOC_SUBCLASSMA*/
- /*_.VALSTR___V705*/ curfptr[704] = (void*)&cdat->dstr_563__MKDOC_SUBCLASSMA;
-  cdat->dstr_563__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_563__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof(cdat->dstr_563__MKDOC_SUBCLASSMA.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:3310:/ iniobj");
- /*iniobj dobj_564__MKDOC_SUBCLASSMAP*/
- if (!/*_.VALDATA___V675*/ curfptr[674]) /*_.VALDATA___V675*/ curfptr[674] = (void*)&cdat->dobj_564__MKDOC_SUBCLASSMAP;
-  melt_assertmsg("iniobj checkdiscr dobj_564__MKDOC_SUBCLASSMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_564__MKDOC_SUBCLASSMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
-  cdat->dobj_564__MKDOC_SUBCLASSMAP.obj_num = 14;
-  cdat->dobj_564__MKDOC_SUBCLASSMAP.obj_hash = 571070536;
-  cdat->dobj_564__MKDOC_SUBCLASSMAP.obj_len = 4;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_564__MKDOC_SUBCLASSMAP));
- 
- /*inistring dstr_565__MKDOC_SUBCLASSMA*/
- /*_.VALSTR___V676*/ curfptr[675] = (void*)&cdat->dstr_565__MKDOC_SUBCLASSMA;
-  cdat->dstr_565__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_565__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof(cdat->dstr_565__MKDOC_SUBCLASSMA.val)-1);
- 
- /*inirout drout_566__MAKEDOC_SCANINPUT*/
- /*_.VALROUT___V706*/ curfptr[705] = (void*)&cdat->drout_566__MAKEDOC_SCANINPUT;
-  cdat->drout_566__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_566__MAKEDOC_SCANINPUT.routdescr, "MAKEDOC_SCANINPUT @warmelt-outobj.melt:3336",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_566__MAKEDOC_SCANINPUT.nbval = 32;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_566__MAKEDOC_SCANINPUT, meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT);
- 
- /*iniclos dclo_567__MAKEDOC_SCANINPUT*/
- /*_.VALCLO___V711*/ curfptr[710] = (void*)&cdat->dclo_567__MAKEDOC_SCANINPUT;
-  cdat->dclo_567__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_567__MAKEDOC_SCANINPUT.nbval = 0;
- 
- /*inirout drout_568__LAMBDA_*/
- /*_.VALROUT___V707*/ curfptr[706] = (void*)&cdat->drout_568__LAMBDA_;
-  cdat->drout_568__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_568__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3343",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_568__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_568__LAMBDA_, meltrout_131_warmelt_outobj_LAMBDA_);
- 
- /*inirout drout_569__LAMBDA_*/
- /*_.VALROUT___V708*/ curfptr[707] = (void*)&cdat->drout_569__LAMBDA_;
-  cdat->drout_569__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_569__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3356",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_569__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_569__LAMBDA_, meltrout_132_warmelt_outobj_LAMBDA_);
- 
- /*inirout drout_570__LAMBDA_*/
- /*_.VALROUT___V709*/ curfptr[708] = (void*)&cdat->drout_570__LAMBDA_;
-  cdat->drout_570__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_570__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3366",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_570__LAMBDA_.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_570__LAMBDA_, meltrout_133_warmelt_outobj_LAMBDA_);
- 
- /*iniobj dsym_571__CLASS_SOURCE_DEFINITION*/
- if (!/*_.VALDATA___V712*/ curfptr[711]) /*_.VALDATA___V712*/ curfptr[711] = (void*)&cdat->dsym_571__CLASS_SOURCE_DEFINITION;
-  melt_assertmsg("iniobj checkdiscr dsym_571__CLASS_SOURCE_DEFINITION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_571__CLASS_SOURCE_DEFINITION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_571__CLASS_SOURCE_DEFINITION.obj_hash = 208176225;
-  cdat->dsym_571__CLASS_SOURCE_DEFINITION.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_571__CLASS_SOURCE_DEFINITION));
- 
- /*inistring dstr_572__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V713*/ curfptr[712] = (void*)&cdat->dstr_572__CLASS_SOURCE_DEF;
-  cdat->dstr_572__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_572__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof(cdat->dstr_572__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_573__CLASS_ANY_BINDING*/
- if (!/*_.VALDATA___V714*/ curfptr[713]) /*_.VALDATA___V714*/ curfptr[713] = (void*)&cdat->dsym_573__CLASS_ANY_BINDING;
-  melt_assertmsg("iniobj checkdiscr dsym_573__CLASS_ANY_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_573__CLASS_ANY_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_573__CLASS_ANY_BINDING.obj_hash = 935770;
-  cdat->dsym_573__CLASS_ANY_BINDING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_573__CLASS_ANY_BINDING));
- 
- /*inistring dstr_574__CLASS_ANY_BINDIN*/
- /*_.VALSTR___V715*/ curfptr[714] = (void*)&cdat->dstr_574__CLASS_ANY_BINDIN;
-  cdat->dstr_574__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_574__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof(cdat->dstr_574__CLASS_ANY_BINDIN.val)-1);
- 
- /*inirout drout_575__LAMBDA_*/
- /*_.VALROUT___V710*/ curfptr[709] = (void*)&cdat->drout_575__LAMBDA_;
-  cdat->drout_575__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_575__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3388",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_575__LAMBDA_.nbval = 18;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_575__LAMBDA_, meltrout_134_warmelt_outobj_LAMBDA_);
- 
- /*iniobj dsym_576__CLASS_SOURCE_DEFCLASS*/
- if (!/*_.VALDATA___V716*/ curfptr[715]) /*_.VALDATA___V716*/ curfptr[715] = (void*)&cdat->dsym_576__CLASS_SOURCE_DEFCLASS;
-  melt_assertmsg("iniobj checkdiscr dsym_576__CLASS_SOURCE_DEFCLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_576__CLASS_SOURCE_DEFCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_576__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067;
-  cdat->dsym_576__CLASS_SOURCE_DEFCLASS.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_576__CLASS_SOURCE_DEFCLASS));
- 
- /*inistring dstr_577__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V717*/ curfptr[716] = (void*)&cdat->dstr_577__CLASS_SOURCE_DEF;
-  cdat->dstr_577__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_577__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof(cdat->dstr_577__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_578__CLASS_SEXPR*/
- if (!/*_.VALDATA___V718*/ curfptr[717]) /*_.VALDATA___V718*/ curfptr[717] = (void*)&cdat->dsym_578__CLASS_SEXPR;
-  melt_assertmsg("iniobj checkdiscr dsym_578__CLASS_SEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_578__CLASS_SEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_578__CLASS_SEXPR.obj_hash = 53411612;
-  cdat->dsym_578__CLASS_SEXPR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_578__CLASS_SEXPR));
- 
- /*inistring dstr_579__CLASS_SEXPR*/
- /*_.VALSTR___V719*/ curfptr[718] = (void*)&cdat->dstr_579__CLASS_SEXPR;
-  cdat->dstr_579__CLASS_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_579__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof(cdat->dstr_579__CLASS_SEXPR.val)-1);
- 
- /*iniobj dsym_580__CLASS_CLASS_BINDING*/
- if (!/*_.VALDATA___V720*/ curfptr[719]) /*_.VALDATA___V720*/ curfptr[719] = (void*)&cdat->dsym_580__CLASS_CLASS_BINDING;
-  melt_assertmsg("iniobj checkdiscr dsym_580__CLASS_CLASS_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_580__CLASS_CLASS_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_580__CLASS_CLASS_BINDING.obj_hash = 848133131;
-  cdat->dsym_580__CLASS_CLASS_BINDING.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_580__CLASS_CLASS_BINDING));
- 
- /*inistring dstr_581__CLASS_CLASS_BIND*/
- /*_.VALSTR___V721*/ curfptr[720] = (void*)&cdat->dstr_581__CLASS_CLASS_BIND;
-  cdat->dstr_581__CLASS_CLASS_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_581__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof(cdat->dstr_581__CLASS_CLASS_BIND.val)-1);
- 
- /*iniobj dsym_582__CLASS_SOURCE_DEFSELECTOR*/
- if (!/*_.VALDATA___V722*/ curfptr[721]) /*_.VALDATA___V722*/ curfptr[721] = (void*)&cdat->dsym_582__CLASS_SOURCE_DEFSELECTOR;
-  melt_assertmsg("iniobj checkdiscr dsym_582__CLASS_SOURCE_DEFSELECTOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_582__CLASS_SOURCE_DEFSELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_582__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050;
-  cdat->dsym_582__CLASS_SOURCE_DEFSELECTOR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_582__CLASS_SOURCE_DEFSELECTOR));
- 
- /*inistring dstr_583__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V723*/ curfptr[722] = (void*)&cdat->dstr_583__CLASS_SOURCE_DEF;
-  cdat->dstr_583__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_583__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof(cdat->dstr_583__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_584__CLASS_SOURCE_DEFINSTANCE*/
- if (!/*_.VALDATA___V724*/ curfptr[723]) /*_.VALDATA___V724*/ curfptr[723] = (void*)&cdat->dsym_584__CLASS_SOURCE_DEFINSTANCE;
-  melt_assertmsg("iniobj checkdiscr dsym_584__CLASS_SOURCE_DEFINSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_584__CLASS_SOURCE_DEFINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_584__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906;
-  cdat->dsym_584__CLASS_SOURCE_DEFINSTANCE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_584__CLASS_SOURCE_DEFINSTANCE));
- 
- /*inistring dstr_585__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V725*/ curfptr[724] = (void*)&cdat->dstr_585__CLASS_SOURCE_DEF;
-  cdat->dstr_585__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_585__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof(cdat->dstr_585__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_586__CLASS_SOURCE_DEFPRIMITIVE*/
- if (!/*_.VALDATA___V726*/ curfptr[725]) /*_.VALDATA___V726*/ curfptr[725] = (void*)&cdat->dsym_586__CLASS_SOURCE_DEFPRIMITIVE;
-  melt_assertmsg("iniobj checkdiscr dsym_586__CLASS_SOURCE_DEFPRIMITIVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_586__CLASS_SOURCE_DEFPRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_586__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180;
-  cdat->dsym_586__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_586__CLASS_SOURCE_DEFPRIMITIVE));
- 
- /*inistring dstr_587__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V727*/ curfptr[726] = (void*)&cdat->dstr_587__CLASS_SOURCE_DEF;
-  cdat->dstr_587__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_587__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof(cdat->dstr_587__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_588__CLASS_SOURCE_DEFUN*/
- if (!/*_.VALDATA___V728*/ curfptr[727]) /*_.VALDATA___V728*/ curfptr[727] = (void*)&cdat->dsym_588__CLASS_SOURCE_DEFUN;
-  melt_assertmsg("iniobj checkdiscr dsym_588__CLASS_SOURCE_DEFUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_588__CLASS_SOURCE_DEFUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_588__CLASS_SOURCE_DEFUN.obj_hash = 872711296;
-  cdat->dsym_588__CLASS_SOURCE_DEFUN.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_588__CLASS_SOURCE_DEFUN));
- 
- /*inistring dstr_589__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V729*/ curfptr[728] = (void*)&cdat->dstr_589__CLASS_SOURCE_DEF;
-  cdat->dstr_589__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_589__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof(cdat->dstr_589__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_590__CLASS_SOURCE_DEFCITERATOR*/
- if (!/*_.VALDATA___V730*/ curfptr[729]) /*_.VALDATA___V730*/ curfptr[729] = (void*)&cdat->dsym_590__CLASS_SOURCE_DEFCITERATOR;
-  melt_assertmsg("iniobj checkdiscr dsym_590__CLASS_SOURCE_DEFCITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_590__CLASS_SOURCE_DEFCITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_590__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495;
-  cdat->dsym_590__CLASS_SOURCE_DEFCITERATOR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_590__CLASS_SOURCE_DEFCITERATOR));
- 
- /*inistring dstr_591__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V731*/ curfptr[730] = (void*)&cdat->dstr_591__CLASS_SOURCE_DEF;
-  cdat->dstr_591__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_591__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof(cdat->dstr_591__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_592__CLASS_SOURCE_DEFCMATCHER*/
- if (!/*_.VALDATA___V732*/ curfptr[731]) /*_.VALDATA___V732*/ curfptr[731] = (void*)&cdat->dsym_592__CLASS_SOURCE_DEFCMATCHER;
-  melt_assertmsg("iniobj checkdiscr dsym_592__CLASS_SOURCE_DEFCMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_592__CLASS_SOURCE_DEFCMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_592__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266;
-  cdat->dsym_592__CLASS_SOURCE_DEFCMATCHER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_592__CLASS_SOURCE_DEFCMATCHER));
- 
- /*inistring dstr_593__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V733*/ curfptr[732] = (void*)&cdat->dstr_593__CLASS_SOURCE_DEF;
-  cdat->dstr_593__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_593__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof(cdat->dstr_593__CLASS_SOURCE_DEF.val)-1);
- 
- /*iniobj dsym_594__CLASS_SOURCE_EXPORT_PATMACRO*/
- if (!/*_.VALDATA___V734*/ curfptr[733]) /*_.VALDATA___V734*/ curfptr[733] = (void*)&cdat->dsym_594__CLASS_SOURCE_EXPORT_PATMACRO;
-  melt_assertmsg("iniobj checkdiscr dsym_594__CLASS_SOURCE_EXPORT_PATMACRO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_594__CLASS_SOURCE_EXPORT_PATMACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_594__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453;
-  cdat->dsym_594__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_594__CLASS_SOURCE_EXPORT_PATMACRO));
- 
- /*inistring dstr_595__CLASS_SOURCE_EXP*/
- /*_.VALSTR___V735*/ curfptr[734] = (void*)&cdat->dstr_595__CLASS_SOURCE_EXP;
-  cdat->dstr_595__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_595__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof(cdat->dstr_595__CLASS_SOURCE_EXP.val)-1);
- 
- /*iniobj dsym_596__CLASS_SOURCE_EXPORT_MACRO*/
- if (!/*_.VALDATA___V736*/ curfptr[735]) /*_.VALDATA___V736*/ curfptr[735] = (void*)&cdat->dsym_596__CLASS_SOURCE_EXPORT_MACRO;
-  melt_assertmsg("iniobj checkdiscr dsym_596__CLASS_SOURCE_EXPORT_MACRO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_596__CLASS_SOURCE_EXPORT_MACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_596__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420;
-  cdat->dsym_596__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_596__CLASS_SOURCE_EXPORT_MACRO));
- 
- /*inistring dstr_597__CLASS_SOURCE_EXP*/
- /*_.VALSTR___V737*/ curfptr[736] = (void*)&cdat->dstr_597__CLASS_SOURCE_EXP;
-  cdat->dstr_597__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_597__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof(cdat->dstr_597__CLASS_SOURCE_EXP.val)-1);
- 
- /*inirout drout_598__MAKEDOC_OUTDEFLOC*/
- /*_.VALROUT___V738*/ curfptr[737] = (void*)&cdat->drout_598__MAKEDOC_OUTDEFLOC;
-  cdat->drout_598__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_598__MAKEDOC_OUTDEFLOC.routdescr, "MAKEDOC_OUTDEFLOC @warmelt-outobj.melt:3587",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_598__MAKEDOC_OUTDEFLOC.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_598__MAKEDOC_OUTDEFLOC, meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC);
- 
- /*iniclos dclo_599__MAKEDOC_OUTDEFLOC*/
- /*_.VALCLO___V739*/ curfptr[738] = (void*)&cdat->dclo_599__MAKEDOC_OUTDEFLOC;
-  cdat->dclo_599__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_599__MAKEDOC_OUTDEFLOC.nbval = 0;
- 
- /*inirout drout_600__MAKEDOC_OUTFORMALS*/
- /*_.VALROUT___V740*/ curfptr[739] = (void*)&cdat->drout_600__MAKEDOC_OUTFORMALS;
-  cdat->drout_600__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_600__MAKEDOC_OUTFORMALS.routdescr, "MAKEDOC_OUTFORMALS @warmelt-outobj.melt:3601",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_600__MAKEDOC_OUTFORMALS.nbval = 4;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_600__MAKEDOC_OUTFORMALS, meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS);
- 
- /*iniclos dclo_601__MAKEDOC_OUTFORMALS*/
- /*_.VALCLO___V741*/ curfptr[740] = (void*)&cdat->dclo_601__MAKEDOC_OUTFORMALS;
-  cdat->dclo_601__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_601__MAKEDOC_OUTFORMALS.nbval = 0;
- 
- /*inirout drout_602__MAKEDOC_OUTDOC*/
- /*_.VALROUT___V742*/ curfptr[741] = (void*)&cdat->drout_602__MAKEDOC_OUTDOC;
-  cdat->drout_602__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_602__MAKEDOC_OUTDOC.routdescr, "MAKEDOC_OUTDOC @warmelt-outobj.melt:3641",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_602__MAKEDOC_OUTDOC.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_602__MAKEDOC_OUTDOC, meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC);
- 
- /*iniclos dclo_603__MAKEDOC_OUTDOC*/
- /*_.VALCLO___V743*/ curfptr[742] = (void*)&cdat->dclo_603__MAKEDOC_OUTDOC;
-  cdat->dclo_603__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_603__MAKEDOC_OUTDOC.nbval = 0;
- 
- /*inirout drout_604__MAKEDOC_OUTCLASSDEF*/
- /*_.VALROUT___V744*/ curfptr[743] = (void*)&cdat->drout_604__MAKEDOC_OUTCLASSDEF;
-  cdat->drout_604__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_604__MAKEDOC_OUTCLASSDEF.routdescr, "MAKEDOC_OUTCLASSDEF @warmelt-outobj.melt:3677",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_604__MAKEDOC_OUTCLASSDEF.nbval = 13;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_604__MAKEDOC_OUTCLASSDEF, meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF);
- 
- /*iniclos dclo_605__MAKEDOC_OUTCLASSDEF*/
- /*_.VALCLO___V745*/ curfptr[744] = (void*)&cdat->dclo_605__MAKEDOC_OUTCLASSDEF;
-  cdat->dclo_605__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_605__MAKEDOC_OUTCLASSDEF.nbval = 0;
- 
- /*inirout drout_606__MAKEDOC_GENMACRO*/
- /*_.VALROUT___V746*/ curfptr[745] = (void*)&cdat->drout_606__MAKEDOC_GENMACRO;
-  cdat->drout_606__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_606__MAKEDOC_GENMACRO.routdescr, "MAKEDOC_GENMACRO @warmelt-outobj.melt:3802",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_606__MAKEDOC_GENMACRO.nbval = 9;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_606__MAKEDOC_GENMACRO, meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO);
- 
- /*iniclos dclo_607__MAKEDOC_GENMACRO*/
- /*_.VALCLO___V747*/ curfptr[746] = (void*)&cdat->dclo_607__MAKEDOC_GENMACRO;
-  cdat->dclo_607__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_607__MAKEDOC_GENMACRO.nbval = 0;
- 
- /*inirout drout_608__MAKEDOC_GENPATMACRO*/
- /*_.VALROUT___V748*/ curfptr[747] = (void*)&cdat->drout_608__MAKEDOC_GENPATMACRO;
-  cdat->drout_608__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_608__MAKEDOC_GENPATMACRO.routdescr, "MAKEDOC_GENPATMACRO @warmelt-outobj.melt:3856",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_608__MAKEDOC_GENPATMACRO.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_608__MAKEDOC_GENPATMACRO, meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO);
- 
- /*iniclos dclo_609__MAKEDOC_GENPATMACRO*/
- /*_.VALCLO___V749*/ curfptr[748] = (void*)&cdat->dclo_609__MAKEDOC_GENPATMACRO;
-  cdat->dclo_609__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_609__MAKEDOC_GENPATMACRO.nbval = 0;
- 
- /*inirout drout_610__MAKEDOC_GENCLASS*/
- /*_.VALROUT___V750*/ curfptr[749] = (void*)&cdat->drout_610__MAKEDOC_GENCLASS;
-  cdat->drout_610__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_610__MAKEDOC_GENCLASS.routdescr, "MAKEDOC_GENCLASS @warmelt-outobj.melt:3911",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_610__MAKEDOC_GENCLASS.nbval = 21;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_610__MAKEDOC_GENCLASS, meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS);
- 
- /*iniclos dclo_611__MAKEDOC_GENCLASS*/
- /*_.VALCLO___V758*/ curfptr[757] = (void*)&cdat->dclo_611__MAKEDOC_GENCLASS;
-  cdat->dclo_611__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_611__MAKEDOC_GENCLASS.nbval = 0;
- 
- /*iniboxint dint_612__*/
- /*_.VALBXINT___V751*/ curfptr[750] = (void*)&cdat->dint_612__;
-  cdat->dint_612__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_612__.val = 1;
- 
- /*iniboxint dint_613__*/
- /*_.VALBXINT___V752*/ curfptr[751] = (void*)&cdat->dint_613__;
-  cdat->dint_613__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_613__.val = 0;
- 
- /*iniboxint dint_614__*/
- /*_.VALBXINT___V753*/ curfptr[752] = (void*)&cdat->dint_614__;
-  cdat->dint_614__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
-  cdat->dint_614__.val = -1;
- 
- /*inirout drout_615__LAMBDA_*/
- /*_.VALROUT___V754*/ curfptr[753] = (void*)&cdat->drout_615__LAMBDA_;
-  cdat->drout_615__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_615__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3927",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_615__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_615__LAMBDA_, meltrout_142_warmelt_outobj_LAMBDA_);
- 
- /*inirout drout_616__LAMBDA_*/
- /*_.VALROUT___V755*/ curfptr[754] = (void*)&cdat->drout_616__LAMBDA_;
-  cdat->drout_616__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_616__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3932",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_616__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_616__LAMBDA_, meltrout_143_warmelt_outobj_LAMBDA_);
- 
- /*inirout drout_617__LAMBDA_*/
- /*_.VALROUT___V756*/ curfptr[755] = (void*)&cdat->drout_617__LAMBDA_;
-  cdat->drout_617__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_617__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3962",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_617__LAMBDA_.nbval = 1;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_617__LAMBDA_, meltrout_144_warmelt_outobj_LAMBDA_);
- 
- /*inirout drout_618__LAMBDA_*/
- /*_.VALROUT___V757*/ curfptr[756] = (void*)&cdat->drout_618__LAMBDA_;
-  cdat->drout_618__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_618__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3985",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_618__LAMBDA_.nbval = 3;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_618__LAMBDA_, meltrout_145_warmelt_outobj_LAMBDA_);
- 
- /*inirout drout_619__MAKEDOC_OUTPRIMITIVEDEF*/
- /*_.VALROUT___V759*/ curfptr[758] = (void*)&cdat->drout_619__MAKEDOC_OUTPRIMITIVEDEF;
-  cdat->drout_619__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_619__MAKEDOC_OUTPRIMITIVEDEF.routdescr, "MAKEDOC_OUTPRIMITIVEDEF @warmelt-outobj.melt:4038",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_619__MAKEDOC_OUTPRIMITIVEDEF.nbval = 9;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_619__MAKEDOC_OUTPRIMITIVEDEF, meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF);
- 
- /*iniclos dclo_620__MAKEDOC_OUTPRIMITIVEDEF*/
- /*_.VALCLO___V760*/ curfptr[759] = (void*)&cdat->dclo_620__MAKEDOC_OUTPRIMITIVEDEF;
-  cdat->dclo_620__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_620__MAKEDOC_OUTPRIMITIVEDEF.nbval = 0;
- 
- /*iniobj dsym_621__CLASS_SOURCE_DEFINITION_FORMAL*/
- if (!/*_.VALDATA___V761*/ curfptr[760]) /*_.VALDATA___V761*/ curfptr[760] = (void*)&cdat->dsym_621__CLASS_SOURCE_DEFINITION_FORMAL;
-  melt_assertmsg("iniobj checkdiscr dsym_621__CLASS_SOURCE_DEFINITION_FORMAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_621__CLASS_SOURCE_DEFINITION_FORMAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_621__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028;
-  cdat->dsym_621__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_621__CLASS_SOURCE_DEFINITION_FORMAL));
- 
- /*inistring dstr_622__CLASS_SOURCE_DEF*/
- /*_.VALSTR___V762*/ curfptr[761] = (void*)&cdat->dstr_622__CLASS_SOURCE_DEF;
-  cdat->dstr_622__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_622__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof(cdat->dstr_622__CLASS_SOURCE_DEF.val)-1);
- 
- /*inirout drout_623__MAKEDOC_GENPRIMITIVE*/
- /*_.VALROUT___V763*/ curfptr[762] = (void*)&cdat->drout_623__MAKEDOC_GENPRIMITIVE;
-  cdat->drout_623__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_623__MAKEDOC_GENPRIMITIVE.routdescr, "MAKEDOC_GENPRIMITIVE @warmelt-outobj.melt:4068",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_623__MAKEDOC_GENPRIMITIVE.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_623__MAKEDOC_GENPRIMITIVE, meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE);
- 
- /*iniclos dclo_624__MAKEDOC_GENPRIMITIVE*/
- /*_.VALCLO___V764*/ curfptr[763] = (void*)&cdat->dclo_624__MAKEDOC_GENPRIMITIVE;
-  cdat->dclo_624__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_624__MAKEDOC_GENPRIMITIVE.nbval = 0;
- 
- /*inirout drout_625__MAKEDOC_OUTFUNCTIONDEF*/
- /*_.VALROUT___V765*/ curfptr[764] = (void*)&cdat->drout_625__MAKEDOC_OUTFUNCTIONDEF;
-  cdat->drout_625__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_625__MAKEDOC_OUTFUNCTIONDEF.routdescr, "MAKEDOC_OUTFUNCTIONDEF @warmelt-outobj.melt:4097",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_625__MAKEDOC_OUTFUNCTIONDEF.nbval = 8;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_625__MAKEDOC_OUTFUNCTIONDEF, meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF);
- 
- /*iniclos dclo_626__MAKEDOC_OUTFUNCTIONDEF*/
- /*_.VALCLO___V766*/ curfptr[765] = (void*)&cdat->dclo_626__MAKEDOC_OUTFUNCTIONDEF;
-  cdat->dclo_626__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_626__MAKEDOC_OUTFUNCTIONDEF.nbval = 0;
- 
- /*inirout drout_627__MAKEDOC_GENFUNCTION*/
- /*_.VALROUT___V767*/ curfptr[766] = (void*)&cdat->drout_627__MAKEDOC_GENFUNCTION;
-  cdat->drout_627__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_627__MAKEDOC_GENFUNCTION.routdescr, "MAKEDOC_GENFUNCTION @warmelt-outobj.melt:4122",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_627__MAKEDOC_GENFUNCTION.nbval = 6;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_627__MAKEDOC_GENFUNCTION, meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION);
- 
- /*iniclos dclo_628__MAKEDOC_GENFUNCTION*/
- /*_.VALCLO___V768*/ curfptr[767] = (void*)&cdat->dclo_628__MAKEDOC_GENFUNCTION;
-  cdat->dclo_628__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_628__MAKEDOC_GENFUNCTION.nbval = 0;
- 
- /*inirout drout_629__MAKEDOC_GENCITERATOR*/
- /*_.VALROUT___V769*/ curfptr[768] = (void*)&cdat->drout_629__MAKEDOC_GENCITERATOR;
-  cdat->drout_629__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_629__MAKEDOC_GENCITERATOR.routdescr, "MAKEDOC_GENCITERATOR @warmelt-outobj.melt:4151",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_629__MAKEDOC_GENCITERATOR.nbval = 13;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_629__MAKEDOC_GENCITERATOR, meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR);
- 
- /*iniclos dclo_630__MAKEDOC_GENCITERATOR*/
- /*_.VALCLO___V770*/ curfptr[769] = (void*)&cdat->dclo_630__MAKEDOC_GENCITERATOR;
-  cdat->dclo_630__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_630__MAKEDOC_GENCITERATOR.nbval = 0;
- 
- /*inirout drout_631__MAKEDOC_GENCMATCHER*/
- /*_.VALROUT___V771*/ curfptr[770] = (void*)&cdat->drout_631__MAKEDOC_GENCMATCHER;
-  cdat->drout_631__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_631__MAKEDOC_GENCMATCHER.routdescr, "MAKEDOC_GENCMATCHER @warmelt-outobj.melt:4205",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_631__MAKEDOC_GENCMATCHER.nbval = 15;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_631__MAKEDOC_GENCMATCHER, meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER);
- 
- /*iniclos dclo_632__MAKEDOC_GENCMATCHER*/
- /*_.VALCLO___V772*/ curfptr[771] = (void*)&cdat->dclo_632__MAKEDOC_GENCMATCHER;
-  cdat->dclo_632__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_632__MAKEDOC_GENCMATCHER.nbval = 0;
- 
- /*iniobj dsym_633__CLASS_ANY_MATCHER*/
- if (!/*_.VALDATA___V773*/ curfptr[772]) /*_.VALDATA___V773*/ curfptr[772] = (void*)&cdat->dsym_633__CLASS_ANY_MATCHER;
-  melt_assertmsg("iniobj checkdiscr dsym_633__CLASS_ANY_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_633__CLASS_ANY_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_633__CLASS_ANY_MATCHER.obj_hash = 781265508;
-  cdat->dsym_633__CLASS_ANY_MATCHER.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_633__CLASS_ANY_MATCHER));
- 
- /*inistring dstr_634__CLASS_ANY_MATCHE*/
- /*_.VALSTR___V774*/ curfptr[773] = (void*)&cdat->dstr_634__CLASS_ANY_MATCHE;
-  cdat->dstr_634__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_634__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof(cdat->dstr_634__CLASS_ANY_MATCHE.val)-1);
- 
- /*inirout drout_635__MAKEDOC_GENOUTPUT*/
- /*_.VALROUT___V775*/ curfptr[774] = (void*)&cdat->drout_635__MAKEDOC_GENOUTPUT;
-  cdat->drout_635__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_635__MAKEDOC_GENOUTPUT.routdescr, "MAKEDOC_GENOUTPUT @warmelt-outobj.melt:4273",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_635__MAKEDOC_GENOUTPUT.nbval = 10;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_635__MAKEDOC_GENOUTPUT, meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT);
- 
- /*iniclos dclo_636__MAKEDOC_GENOUTPUT*/
- /*_.VALCLO___V776*/ curfptr[775] = (void*)&cdat->dclo_636__MAKEDOC_GENOUTPUT;
-  cdat->dclo_636__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_636__MAKEDOC_GENOUTPUT.nbval = 0;
- 
- /*inirout drout_637__MAKEDOC_DOCMD*/
- /*_.VALROUT___V777*/ curfptr[776] = (void*)&cdat->drout_637__MAKEDOC_DOCMD;
-  cdat->drout_637__MAKEDOC_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_637__MAKEDOC_DOCMD.routdescr, "MAKEDOC_DOCMD @warmelt-outobj.melt:4336",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_637__MAKEDOC_DOCMD.nbval = 14;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_637__MAKEDOC_DOCMD, meltrout_153_warmelt_outobj_MAKEDOC_DOCMD);
- 
- /*iniclos dclo_638__MAKEDOC_DOCMD*/
- /*_.VALCLO___V779*/ curfptr[778] = (void*)&cdat->dclo_638__MAKEDOC_DOCMD;
-  cdat->dclo_638__MAKEDOC_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
-  cdat->dclo_638__MAKEDOC_DOCMD.nbval = 0;
- 
- /*inirout drout_639__LAMBDA_*/
- /*_.VALROUT___V778*/ curfptr[777] = (void*)&cdat->drout_639__LAMBDA_;
-  cdat->drout_639__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
-  strncpy(cdat->drout_639__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:4368",  MELT_ROUTDESCR_LEN - 1);
-  cdat->drout_639__LAMBDA_.nbval = 2;
- MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_639__LAMBDA_, meltrout_154_warmelt_outobj_LAMBDA_);
- 
- /*iniobj dsym_640__MAKEDOC_MODE*/
- if (!/*_.VALDATA___V780*/ curfptr[779]) /*_.VALDATA___V780*/ curfptr[779] = (void*)&cdat->dsym_640__MAKEDOC_MODE;
-  melt_assertmsg("iniobj checkdiscr dsym_640__MAKEDOC_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_640__MAKEDOC_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_640__MAKEDOC_MODE.obj_hash = 10698116;
-  cdat->dsym_640__MAKEDOC_MODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_640__MAKEDOC_MODE));
- 
- /*inistring dstr_641__MAKEDOC_MODE*/
- /*_.VALSTR___V781*/ curfptr[780] = (void*)&cdat->dstr_641__MAKEDOC_MODE;
-  cdat->dstr_641__MAKEDOC_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_641__MAKEDOC_MODE.val, "MAKEDOC_MODE", sizeof(cdat->dstr_641__MAKEDOC_MODE.val)-1);
- 
- MELT_LOCATION("warmelt-outobj.melt:4387:/ iniobj");
- /*iniobj dobj_642__MAKEDOC_MODE*/
- if (!/*_.VALDATA___V782*/ curfptr[781]) /*_.VALDATA___V782*/ curfptr[781] = (void*)&cdat->dobj_642__MAKEDOC_MODE;
-  melt_assertmsg("iniobj checkdiscr dobj_642__MAKEDOC_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_642__MAKEDOC_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
-  cdat->dobj_642__MAKEDOC_MODE.obj_hash = 970708453;
-  cdat->dobj_642__MAKEDOC_MODE.obj_len = 5;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_642__MAKEDOC_MODE));
- 
- /*inistring dstr_643__makedoc*/
- /*_.VALSTR___V783*/ curfptr[782] = (void*)&cdat->dstr_643__makedoc;
-  cdat->dstr_643__makedoc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_643__makedoc.val, "makedoc", sizeof(cdat->dstr_643__makedoc.val)-1);
- 
- /*inistring dstr_644__MELT_makedoc_m*/
- /*_.VALSTR___V784*/ curfptr[783] = (void*)&cdat->dstr_644__MELT_makedoc_m;
-  cdat->dstr_644__MELT_makedoc_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_644__MELT_makedoc_m.val, "MELT \'makedoc\' mode: ARGLIST= input file, ...; OUTPUT= generated file", sizeof(cdat->dstr_644__MELT_makedoc_m.val)-1);
- 
- /*iniobj dsym_645__COMPILE_LIST_SEXPR*/
- if (!/*_.VALDATA___V785*/ curfptr[784]) /*_.VALDATA___V785*/ curfptr[784] = (void*)&cdat->dsym_645__COMPILE_LIST_SEXPR;
-  melt_assertmsg("iniobj checkdiscr dsym_645__COMPILE_LIST_SEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_645__COMPILE_LIST_SEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_645__COMPILE_LIST_SEXPR.obj_hash = 346985953;
-  cdat->dsym_645__COMPILE_LIST_SEXPR.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_645__COMPILE_LIST_SEXPR));
- 
- /*inistring dstr_646__COMPILE_LIST_SEX*/
- /*_.VALSTR___V786*/ curfptr[785] = (void*)&cdat->dstr_646__COMPILE_LIST_SEX;
-  cdat->dstr_646__COMPILE_LIST_SEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_646__COMPILE_LIST_SEX.val, "COMPILE_LIST_SEXPR", sizeof(cdat->dstr_646__COMPILE_LIST_SEX.val)-1);
- 
- /*iniobj dsym_647__INSTALL_MELT_MODE*/
- if (!/*_.VALDATA___V787*/ curfptr[786]) /*_.VALDATA___V787*/ curfptr[786] = (void*)&cdat->dsym_647__INSTALL_MELT_MODE;
-  melt_assertmsg("iniobj checkdiscr dsym_647__INSTALL_MELT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_647__INSTALL_MELT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
-  cdat->dsym_647__INSTALL_MELT_MODE.obj_hash = 537139430;
-  cdat->dsym_647__INSTALL_MELT_MODE.obj_len = 3;
-melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_647__INSTALL_MELT_MODE));
- 
- /*inistring dstr_648__INSTALL_MELT_MOD*/
- /*_.VALSTR___V788*/ curfptr[787] = (void*)&cdat->dstr_648__INSTALL_MELT_MOD;
-  cdat->dstr_648__INSTALL_MELT_MOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
-  strncpy(cdat->dstr_648__INSTALL_MELT_MOD.val, "INSTALL_MELT_MODE", sizeof(cdat->dstr_648__INSTALL_MELT_MOD.val)-1);
+ /*iniobj dsym_416__GENERATED_C_FILENAME*/
+ if (!/*_.VALDATA___V556*/ curfptr[555]) /*_.VALDATA___V556*/ curfptr[555] = (void*)&cdat->dsym_416__GENERATED_C_FILENAME;
+  melt_assertmsg("iniobj checkdiscr dsym_416__GENERATED_C_FILENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_416__GENERATED_C_FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_416__GENERATED_C_FILENAME.obj_hash = 560876936;
+  cdat->dsym_416__GENERATED_C_FILENAME.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_416__GENERATED_C_FILENAME));
+ 
+ /*inistring dstr_417__GENERATED_C_FILE*/
+ /*_.VALSTR___V557*/ curfptr[556] = (void*)&cdat->dstr_417__GENERATED_C_FILE;
+  cdat->dstr_417__GENERATED_C_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_417__GENERATED_C_FILE.val, "GENERATED_C_FILENAME", sizeof(cdat->dstr_417__GENERATED_C_FILE.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ iniobj");
+ /*iniobj dobj_418__GENERATED_C_FILENAME*/
+ if (!/*_.VALDATA___V558*/ curfptr[557]) /*_.VALDATA___V558*/ curfptr[557] = (void*)&cdat->dobj_418__GENERATED_C_FILENAME;
+  melt_assertmsg("iniobj checkdiscr dobj_418__GENERATED_C_FILENAME", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_418__GENERATED_C_FILENAME.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_418__GENERATED_C_FILENAME.obj_hash = 301965718;
+  cdat->dobj_418__GENERATED_C_FILENAME.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_418__GENERATED_C_FILENAME));
+ 
+ /*inimult dtup_419__GENERATED_C_FILENAME*/
+ /*_.VALTUP___V578*/ curfptr[577] = (void*)&cdat->dtup_419__GENERATED_C_FILENAME;
+  cdat->dtup_419__GENERATED_C_FILENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_419__GENERATED_C_FILENAME.nbval = 9;
+ /*inimult dtup_420__GENERATED_C_FILENAME*/
+ /*_.VALTUP___V572*/ curfptr[571] = (void*)&cdat->dtup_420__GENERATED_C_FILENAME;
+  cdat->dtup_420__GENERATED_C_FILENAME.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_420__GENERATED_C_FILENAME.nbval = 4;
+ /*iniobj dsym_421__DISCR*/
+ if (!/*_.VALDATA___V561*/ curfptr[560]) /*_.VALDATA___V561*/ curfptr[560] = (void*)&cdat->dsym_421__DISCR;
+  melt_assertmsg("iniobj checkdiscr dsym_421__DISCR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_421__DISCR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_421__DISCR.obj_hash = 95458406;
+  cdat->dsym_421__DISCR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_421__DISCR));
+ 
+ /*inistring dstr_422__DISCR*/
+ /*_.VALSTR___V562*/ curfptr[561] = (void*)&cdat->dstr_422__DISCR;
+  cdat->dstr_422__DISCR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_422__DISCR.val, "DISCR", sizeof(cdat->dstr_422__DISCR.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ iniobj");
+ /*iniobj dobj_423*/
+ if (!/*_.VALDATA___V560*/ curfptr[559]) /*_.VALDATA___V560*/ curfptr[559] = (void*)&cdat->dobj_423;
+  melt_assertmsg("iniobj checkdiscr dobj_423", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_423.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_423.obj_num = 0;
+  cdat->dobj_423.obj_hash = 263350183;
+  cdat->dobj_423.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_423));
+ 
+ /*iniobj dsym_424__BASE*/
+ if (!/*_.VALDATA___V564*/ curfptr[563]) /*_.VALDATA___V564*/ curfptr[563] = (void*)&cdat->dsym_424__BASE;
+  melt_assertmsg("iniobj checkdiscr dsym_424__BASE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_424__BASE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_424__BASE.obj_hash = 609649580;
+  cdat->dsym_424__BASE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_424__BASE));
+ 
+ /*inistring dstr_425__BASE*/
+ /*_.VALSTR___V565*/ curfptr[564] = (void*)&cdat->dstr_425__BASE;
+  cdat->dstr_425__BASE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_425__BASE.val, "BASE", sizeof(cdat->dstr_425__BASE.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ iniobj");
+ /*iniobj dobj_426*/
+ if (!/*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*)&cdat->dobj_426;
+  melt_assertmsg("iniobj checkdiscr dobj_426", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_426.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_426.obj_num = 1;
+  cdat->dobj_426.obj_hash = 974059092;
+  cdat->dobj_426.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_426));
+ 
+ /*iniobj dsym_427__DIR*/
+ if (!/*_.VALDATA___V567*/ curfptr[566]) /*_.VALDATA___V567*/ curfptr[566] = (void*)&cdat->dsym_427__DIR;
+  melt_assertmsg("iniobj checkdiscr dsym_427__DIR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_427__DIR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_427__DIR.obj_hash = 922498881;
+  cdat->dsym_427__DIR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_427__DIR));
+ 
+ /*inistring dstr_428__DIR*/
+ /*_.VALSTR___V568*/ curfptr[567] = (void*)&cdat->dstr_428__DIR;
+  cdat->dstr_428__DIR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_428__DIR.val, "DIR", sizeof(cdat->dstr_428__DIR.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ iniobj");
+ /*iniobj dobj_429*/
+ if (!/*_.VALDATA___V566*/ curfptr[565]) /*_.VALDATA___V566*/ curfptr[565] = (void*)&cdat->dobj_429;
+  melt_assertmsg("iniobj checkdiscr dobj_429", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_429.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_429.obj_num = 2;
+  cdat->dobj_429.obj_hash = 1026764205;
+  cdat->dobj_429.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_429));
+ 
+ /*iniobj dsym_430__NUM*/
+ if (!/*_.VALDATA___V570*/ curfptr[569]) /*_.VALDATA___V570*/ curfptr[569] = (void*)&cdat->dsym_430__NUM;
+  melt_assertmsg("iniobj checkdiscr dsym_430__NUM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_430__NUM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_430__NUM.obj_hash = 129664091;
+  cdat->dsym_430__NUM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_430__NUM));
+ 
+ /*inistring dstr_431__NUM*/
+ /*_.VALSTR___V571*/ curfptr[570] = (void*)&cdat->dstr_431__NUM;
+  cdat->dstr_431__NUM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_431__NUM.val, "NUM", sizeof(cdat->dstr_431__NUM.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ iniobj");
+ /*iniobj dobj_432*/
+ if (!/*_.VALDATA___V569*/ curfptr[568]) /*_.VALDATA___V569*/ curfptr[568] = (void*)&cdat->dobj_432;
+  melt_assertmsg("iniobj checkdiscr dobj_432", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_432.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_432.obj_num = 3;
+  cdat->dobj_432.obj_hash = 568470238;
+  cdat->dobj_432.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_432));
+ 
+ /*inistring dstr_433__meltgc_new_strin*/
+ /*_.VALSTR___V573*/ curfptr[572] = (void*)&cdat->dstr_433__meltgc_new_strin;
+  cdat->dstr_433__meltgc_new_strin.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_433__meltgc_new_strin.val, "meltgc_new_string_generated_c_filename\n     ((meltobject_ptr_t) (", sizeof(cdat->dstr_433__meltgc_new_strin.val)-1);
+ 
+ /*inistring dstr_434__melt_st*/
+ /*_.VALSTR___V574*/ curfptr[573] = (void*)&cdat->dstr_434__melt_st;
+  cdat->dstr_434__melt_st.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_434__melt_st.val, "),\n      melt_string_str((", sizeof(cdat->dstr_434__melt_st.val)-1);
+ 
+ /*inistring dstr_435__melt_string_*/
+ /*_.VALSTR___V575*/ curfptr[574] = (void*)&cdat->dstr_435__melt_string_;
+  cdat->dstr_435__melt_string_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_435__melt_string_.val, ")), melt_string_str((", sizeof(cdat->dstr_435__melt_string_.val)-1);
+ 
+ /*inistring dstr_436__*/
+ /*_.VALSTR___V576*/ curfptr[575] = (void*)&cdat->dstr_436__;
+  cdat->dstr_436__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_436__.val, ")), (", sizeof(cdat->dstr_436__.val)-1);
+ 
+ /*inistring dstr_437__*/
+ /*_.VALSTR___V577*/ curfptr[576] = (void*)&cdat->dstr_437__;
+  cdat->dstr_437__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_437__.val, "))", sizeof(cdat->dstr_437__.val)-1);
+ 
+ /*inistring dstr_438__GENERATED_C_FILE*/
+ /*_.VALSTR___V559*/ curfptr[558] = (void*)&cdat->dstr_438__GENERATED_C_FILE;
+  cdat->dstr_438__GENERATED_C_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_438__GENERATED_C_FILE.val, "GENERATED_C_FILENAME", sizeof(cdat->dstr_438__GENERATED_C_FILE.val)-1);
+ 
+ /*iniobj dsym_439__WANTS_SINGLE_C_FILE*/
+ if (!/*_.VALDATA___V579*/ curfptr[578]) /*_.VALDATA___V579*/ curfptr[578] = (void*)&cdat->dsym_439__WANTS_SINGLE_C_FILE;
+  melt_assertmsg("iniobj checkdiscr dsym_439__WANTS_SINGLE_C_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_439__WANTS_SINGLE_C_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_439__WANTS_SINGLE_C_FILE.obj_hash = 94910078;
+  cdat->dsym_439__WANTS_SINGLE_C_FILE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_439__WANTS_SINGLE_C_FILE));
+ 
+ /*inistring dstr_440__WANTS_SINGLE_C_F*/
+ /*_.VALSTR___V580*/ curfptr[579] = (void*)&cdat->dstr_440__WANTS_SINGLE_C_F;
+  cdat->dstr_440__WANTS_SINGLE_C_F.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_440__WANTS_SINGLE_C_F.val, "WANTS_SINGLE_C_FILE", sizeof(cdat->dstr_440__WANTS_SINGLE_C_F.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2952:/ iniobj");
+ /*iniobj dobj_441__WANTS_SINGLE_C_FILE*/
+ if (!/*_.VALDATA___V581*/ curfptr[580]) /*_.VALDATA___V581*/ curfptr[580] = (void*)&cdat->dobj_441__WANTS_SINGLE_C_FILE;
+  melt_assertmsg("iniobj checkdiscr dobj_441__WANTS_SINGLE_C_FILE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_441__WANTS_SINGLE_C_FILE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_441__WANTS_SINGLE_C_FILE.obj_hash = 1060099733;
+  cdat->dobj_441__WANTS_SINGLE_C_FILE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_441__WANTS_SINGLE_C_FILE));
+ 
+ /*inimult dtup_442__WANTS_SINGLE_C_FILE*/
+ /*_.VALTUP___V585*/ curfptr[584] = (void*)&cdat->dtup_442__WANTS_SINGLE_C_FILE;
+  cdat->dtup_442__WANTS_SINGLE_C_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_442__WANTS_SINGLE_C_FILE.nbval = 1;
+ /*inimult dtup_443__WANTS_SINGLE_C_FILE*/
+ /*_.VALTUP___V583*/ curfptr[582] = (void*)&cdat->dtup_443__WANTS_SINGLE_C_FILE;
+  cdat->dtup_443__WANTS_SINGLE_C_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_443__WANTS_SINGLE_C_FILE.nbval = 0;
+ /*inistring dstr_444__melt_wants_sing*/
+ /*_.VALSTR___V584*/ curfptr[583] = (void*)&cdat->dstr_444__melt_wants_sing;
+  cdat->dstr_444__melt_wants_sing.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_444__melt_wants_sing.val, " melt_wants_single_c_file () ", sizeof(cdat->dstr_444__melt_wants_sing.val)-1);
+ 
+ /*inistring dstr_445__WANTS_SINGLE_C_F*/
+ /*_.VALSTR___V582*/ curfptr[581] = (void*)&cdat->dstr_445__WANTS_SINGLE_C_F;
+  cdat->dstr_445__WANTS_SINGLE_C_F.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_445__WANTS_SINGLE_C_F.val, "WANTS_SINGLE_C_FILE", sizeof(cdat->dstr_445__WANTS_SINGLE_C_F.val)-1);
+ 
+ /*inirout drout_446__NTH_SECUNDARY_FILE*/
+ /*_.VALROUT___V586*/ curfptr[585] = (void*)&cdat->drout_446__NTH_SECUNDARY_FILE;
+  cdat->drout_446__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_446__NTH_SECUNDARY_FILE.routdescr, "NTH_SECUNDARY_FILE @warmelt-outobj.melt:2956",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_446__NTH_SECUNDARY_FILE.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_446__NTH_SECUNDARY_FILE, meltrout_120_warmelt_outobj_NTH_SECUNDARY_FILE);
+ 
+ /*iniclos dclo_447__NTH_SECUNDARY_FILE*/
+ /*_.VALCLO___V587*/ curfptr[586] = (void*)&cdat->dclo_447__NTH_SECUNDARY_FILE;
+  cdat->dclo_447__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_447__NTH_SECUNDARY_FILE.nbval = 0;
+ 
+ /*inirout drout_448__COMPILE_LIST_SEXPR*/
+ /*_.VALROUT___V588*/ curfptr[587] = (void*)&cdat->drout_448__COMPILE_LIST_SEXPR;
+  cdat->drout_448__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_448__COMPILE_LIST_SEXPR.routdescr, "COMPILE_LIST_SEXPR @warmelt-outobj.melt:2988",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_448__COMPILE_LIST_SEXPR.nbval = 36;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_448__COMPILE_LIST_SEXPR, meltrout_121_warmelt_outobj_COMPILE_LIST_SEXPR);
+ 
+ /*iniclos dclo_449__COMPILE_LIST_SEXPR*/
+ /*_.VALCLO___V592*/ curfptr[591] = (void*)&cdat->dclo_449__COMPILE_LIST_SEXPR;
+  cdat->dclo_449__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_449__COMPILE_LIST_SEXPR.nbval = 0;
+ 
+ /*iniobj dsym_450__CLASS_ENVIRONMENT*/
+ if (!/*_.VALDATA___V593*/ curfptr[592]) /*_.VALDATA___V593*/ curfptr[592] = (void*)&cdat->dsym_450__CLASS_ENVIRONMENT;
+  melt_assertmsg("iniobj checkdiscr dsym_450__CLASS_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_450__CLASS_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_450__CLASS_ENVIRONMENT.obj_hash = 59212821;
+  cdat->dsym_450__CLASS_ENVIRONMENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_450__CLASS_ENVIRONMENT));
+ 
+ /*inistring dstr_451__CLASS_ENVIRONMEN*/
+ /*_.VALSTR___V594*/ curfptr[593] = (void*)&cdat->dstr_451__CLASS_ENVIRONMEN;
+  cdat->dstr_451__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_451__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof(cdat->dstr_451__CLASS_ENVIRONMEN.val)-1);
+ 
+ /*iniobj dsym_452__DISCR_MAP_STRINGS*/
+ if (!/*_.VALDATA___V595*/ curfptr[594]) /*_.VALDATA___V595*/ curfptr[594] = (void*)&cdat->dsym_452__DISCR_MAP_STRINGS;
+  melt_assertmsg("iniobj checkdiscr dsym_452__DISCR_MAP_STRINGS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_452__DISCR_MAP_STRINGS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_452__DISCR_MAP_STRINGS.obj_hash = 344609662;
+  cdat->dsym_452__DISCR_MAP_STRINGS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_452__DISCR_MAP_STRINGS));
+ 
+ /*inistring dstr_453__DISCR_MAP_STRING*/
+ /*_.VALSTR___V596*/ curfptr[595] = (void*)&cdat->dstr_453__DISCR_MAP_STRING;
+  cdat->dstr_453__DISCR_MAP_STRING.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_453__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof(cdat->dstr_453__DISCR_MAP_STRING.val)-1);
+ 
+ /*iniobj dsym_454__CREATE_NORMCONTEXT*/
+ if (!/*_.VALDATA___V597*/ curfptr[596]) /*_.VALDATA___V597*/ curfptr[596] = (void*)&cdat->dsym_454__CREATE_NORMCONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_454__CREATE_NORMCONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_454__CREATE_NORMCONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_454__CREATE_NORMCONTEXT.obj_hash = 127778273;
+  cdat->dsym_454__CREATE_NORMCONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_454__CREATE_NORMCONTEXT));
+ 
+ /*inistring dstr_455__CREATE_NORMCONTE*/
+ /*_.VALSTR___V598*/ curfptr[597] = (void*)&cdat->dstr_455__CREATE_NORMCONTE;
+  cdat->dstr_455__CREATE_NORMCONTE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_455__CREATE_NORMCONTE.val, "CREATE_NORMCONTEXT", sizeof(cdat->dstr_455__CREATE_NORMCONTE.val)-1);
+ 
+ /*iniobj dsym_456__CLASS_NORMALIZATION_CONTEXT*/
+ if (!/*_.VALDATA___V599*/ curfptr[598]) /*_.VALDATA___V599*/ curfptr[598] = (void*)&cdat->dsym_456__CLASS_NORMALIZATION_CONTEXT;
+  melt_assertmsg("iniobj checkdiscr dsym_456__CLASS_NORMALIZATION_CONTEXT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_456__CLASS_NORMALIZATION_CONTEXT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_456__CLASS_NORMALIZATION_CONTEXT.obj_hash = 429657178;
+  cdat->dsym_456__CLASS_NORMALIZATION_CONTEXT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_456__CLASS_NORMALIZATION_CONTEXT));
+ 
+ /*inistring dstr_457__CLASS_NORMALIZAT*/
+ /*_.VALSTR___V600*/ curfptr[599] = (void*)&cdat->dstr_457__CLASS_NORMALIZAT;
+  cdat->dstr_457__CLASS_NORMALIZAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_457__CLASS_NORMALIZAT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof(cdat->dstr_457__CLASS_NORMALIZAT.val)-1);
+ 
+ /*iniobj dsym_458__MACROEXPAND_TOPLEVEL_LIST*/
+ if (!/*_.VALDATA___V601*/ curfptr[600]) /*_.VALDATA___V601*/ curfptr[600] = (void*)&cdat->dsym_458__MACROEXPAND_TOPLEVEL_LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_458__MACROEXPAND_TOPLEVEL_LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_458__MACROEXPAND_TOPLEVEL_LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_458__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411;
+  cdat->dsym_458__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_458__MACROEXPAND_TOPLEVEL_LIST));
+ 
+ /*inistring dstr_459__MACROEXPAND_TOPL*/
+ /*_.VALSTR___V602*/ curfptr[601] = (void*)&cdat->dstr_459__MACROEXPAND_TOPL;
+  cdat->dstr_459__MACROEXPAND_TOPL.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_459__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof(cdat->dstr_459__MACROEXPAND_TOPL.val)-1);
+ 
+ /*iniobj dsym_460__CLASS_SOURCE*/
+ if (!/*_.VALDATA___V603*/ curfptr[602]) /*_.VALDATA___V603*/ curfptr[602] = (void*)&cdat->dsym_460__CLASS_SOURCE;
+  melt_assertmsg("iniobj checkdiscr dsym_460__CLASS_SOURCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_460__CLASS_SOURCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_460__CLASS_SOURCE.obj_hash = 656628255;
+  cdat->dsym_460__CLASS_SOURCE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_460__CLASS_SOURCE));
+ 
+ /*inistring dstr_461__CLASS_SOURCE*/
+ /*_.VALSTR___V604*/ curfptr[603] = (void*)&cdat->dstr_461__CLASS_SOURCE;
+  cdat->dstr_461__CLASS_SOURCE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_461__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof(cdat->dstr_461__CLASS_SOURCE.val)-1);
+ 
+ /*iniobj dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
+ if (!/*_.VALDATA___V605*/ curfptr[604]) /*_.VALDATA___V605*/ curfptr[604] = (void*)&cdat->dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER;
+  melt_assertmsg("iniobj checkdiscr dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 670629834;
+  cdat->dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_462__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER));
+ 
+ /*inistring dstr_463__CLASS_SOURCE_UPD*/
+ /*_.VALSTR___V606*/ curfptr[605] = (void*)&cdat->dstr_463__CLASS_SOURCE_UPD;
+  cdat->dstr_463__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_463__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof(cdat->dstr_463__CLASS_SOURCE_UPD.val)-1);
+ 
+ /*inistring dstr_464__at_very_start*/
+ /*_.VALSTR___V589*/ curfptr[588] = (void*)&cdat->dstr_464__at_very_start;
+  cdat->dstr_464__at_very_start.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_464__at_very_start.val, "at very start", sizeof(cdat->dstr_464__at_very_start.val)-1);
+ 
+ /*iniobj dsym_465__INITIAL_ENVIRONMENT*/
+ if (!/*_.VALDATA___V607*/ curfptr[606]) /*_.VALDATA___V607*/ curfptr[606] = (void*)&cdat->dsym_465__INITIAL_ENVIRONMENT;
+  melt_assertmsg("iniobj checkdiscr dsym_465__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_465__INITIAL_ENVIRONMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_465__INITIAL_ENVIRONMENT.obj_hash = 756729242;
+  cdat->dsym_465__INITIAL_ENVIRONMENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_465__INITIAL_ENVIRONMENT));
+ 
+ /*inistring dstr_466__INITIAL_ENVIRONM*/
+ /*_.VALSTR___V608*/ curfptr[607] = (void*)&cdat->dstr_466__INITIAL_ENVIRONM;
+  cdat->dstr_466__INITIAL_ENVIRONM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_466__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof(cdat->dstr_466__INITIAL_ENVIRONM.val)-1);
+ 
+ /*iniobj dsym_467__CLASS_NREP_INITPROC*/
+ if (!/*_.VALDATA___V609*/ curfptr[608]) /*_.VALDATA___V609*/ curfptr[608] = (void*)&cdat->dsym_467__CLASS_NREP_INITPROC;
+  melt_assertmsg("iniobj checkdiscr dsym_467__CLASS_NREP_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_467__CLASS_NREP_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_467__CLASS_NREP_INITPROC.obj_hash = 915122709;
+  cdat->dsym_467__CLASS_NREP_INITPROC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_467__CLASS_NREP_INITPROC));
+ 
+ /*inistring dstr_468__CLASS_NREP_INITP*/
+ /*_.VALSTR___V610*/ curfptr[609] = (void*)&cdat->dstr_468__CLASS_NREP_INITP;
+  cdat->dstr_468__CLASS_NREP_INITP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_468__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC", sizeof(cdat->dstr_468__CLASS_NREP_INITP.val)-1);
+ 
+ /*inirout drout_469__LAMBDA_*/
+ /*_.VALROUT___V590*/ curfptr[589] = (void*)&cdat->drout_469__LAMBDA_;
+  cdat->drout_469__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_469__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3032",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_469__LAMBDA_.nbval = 7;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_469__LAMBDA_, meltrout_122_warmelt_outobj_LAMBDA_);
+ 
+ /*iniobj dsym_470__CLASS_LOCATED*/
+ if (!/*_.VALDATA___V611*/ curfptr[610]) /*_.VALDATA___V611*/ curfptr[610] = (void*)&cdat->dsym_470__CLASS_LOCATED;
+  melt_assertmsg("iniobj checkdiscr dsym_470__CLASS_LOCATED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_470__CLASS_LOCATED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_470__CLASS_LOCATED.obj_hash = 979003;
+  cdat->dsym_470__CLASS_LOCATED.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_470__CLASS_LOCATED));
+ 
+ /*inistring dstr_471__CLASS_LOCATED*/
+ /*_.VALSTR___V612*/ curfptr[611] = (void*)&cdat->dstr_471__CLASS_LOCATED;
+  cdat->dstr_471__CLASS_LOCATED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_471__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof(cdat->dstr_471__CLASS_LOCATED.val)-1);
+ 
+ /*iniobj dsym_472__CLASS_SOURCE_COMMENT*/
+ if (!/*_.VALDATA___V613*/ curfptr[612]) /*_.VALDATA___V613*/ curfptr[612] = (void*)&cdat->dsym_472__CLASS_SOURCE_COMMENT;
+  melt_assertmsg("iniobj checkdiscr dsym_472__CLASS_SOURCE_COMMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_472__CLASS_SOURCE_COMMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_472__CLASS_SOURCE_COMMENT.obj_hash = 156677751;
+  cdat->dsym_472__CLASS_SOURCE_COMMENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_472__CLASS_SOURCE_COMMENT));
+ 
+ /*inistring dstr_473__CLASS_SOURCE_COM*/
+ /*_.VALSTR___V614*/ curfptr[613] = (void*)&cdat->dstr_473__CLASS_SOURCE_COM;
+  cdat->dstr_473__CLASS_SOURCE_COM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_473__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof(cdat->dstr_473__CLASS_SOURCE_COM.val)-1);
+ 
+ /*iniobj dsym_474__NORMAL_EXP*/
+ if (!/*_.VALDATA___V615*/ curfptr[614]) /*_.VALDATA___V615*/ curfptr[614] = (void*)&cdat->dsym_474__NORMAL_EXP;
+  melt_assertmsg("iniobj checkdiscr dsym_474__NORMAL_EXP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_474__NORMAL_EXP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_474__NORMAL_EXP.obj_hash = 420282450;
+  cdat->dsym_474__NORMAL_EXP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_474__NORMAL_EXP));
+ 
+ /*inistring dstr_475__NORMAL_EXP*/
+ /*_.VALSTR___V616*/ curfptr[615] = (void*)&cdat->dstr_475__NORMAL_EXP;
+  cdat->dstr_475__NORMAL_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_475__NORMAL_EXP.val, "NORMAL_EXP", sizeof(cdat->dstr_475__NORMAL_EXP.val)-1);
+ 
+ /*iniobj dsym_476__CLASS_NREP_ANYPROC*/
+ if (!/*_.VALDATA___V617*/ curfptr[616]) /*_.VALDATA___V617*/ curfptr[616] = (void*)&cdat->dsym_476__CLASS_NREP_ANYPROC;
+  melt_assertmsg("iniobj checkdiscr dsym_476__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_476__CLASS_NREP_ANYPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_476__CLASS_NREP_ANYPROC.obj_hash = 605230702;
+  cdat->dsym_476__CLASS_NREP_ANYPROC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_476__CLASS_NREP_ANYPROC));
+ 
+ /*inistring dstr_477__CLASS_NREP_ANYPR*/
+ /*_.VALSTR___V618*/ curfptr[617] = (void*)&cdat->dstr_477__CLASS_NREP_ANYPR;
+  cdat->dstr_477__CLASS_NREP_ANYPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_477__CLASS_NREP_ANYPR.val, "CLASS_NREP_ANYPROC", sizeof(cdat->dstr_477__CLASS_NREP_ANYPR.val)-1);
+ 
+ /*iniobj dsym_478__WRAP_NORMAL_LET1*/
+ if (!/*_.VALDATA___V619*/ curfptr[618]) /*_.VALDATA___V619*/ curfptr[618] = (void*)&cdat->dsym_478__WRAP_NORMAL_LET1;
+  melt_assertmsg("iniobj checkdiscr dsym_478__WRAP_NORMAL_LET1", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_478__WRAP_NORMAL_LET1.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_478__WRAP_NORMAL_LET1.obj_hash = 891908866;
+  cdat->dsym_478__WRAP_NORMAL_LET1.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_478__WRAP_NORMAL_LET1));
+ 
+ /*inistring dstr_479__WRAP_NORMAL_LET1*/
+ /*_.VALSTR___V620*/ curfptr[619] = (void*)&cdat->dstr_479__WRAP_NORMAL_LET1;
+  cdat->dstr_479__WRAP_NORMAL_LET1.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_479__WRAP_NORMAL_LET1.val, "WRAP_NORMAL_LET1", sizeof(cdat->dstr_479__WRAP_NORMAL_LET1.val)-1);
+ 
+ /*iniobj dsym_480__DISCR_MAP_OBJECTS*/
+ if (!/*_.VALDATA___V621*/ curfptr[620]) /*_.VALDATA___V621*/ curfptr[620] = (void*)&cdat->dsym_480__DISCR_MAP_OBJECTS;
+  melt_assertmsg("iniobj checkdiscr dsym_480__DISCR_MAP_OBJECTS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_480__DISCR_MAP_OBJECTS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_480__DISCR_MAP_OBJECTS.obj_hash = 217147088;
+  cdat->dsym_480__DISCR_MAP_OBJECTS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_480__DISCR_MAP_OBJECTS));
+ 
+ /*inistring dstr_481__DISCR_MAP_OBJECT*/
+ /*_.VALSTR___V622*/ curfptr[621] = (void*)&cdat->dstr_481__DISCR_MAP_OBJECT;
+  cdat->dstr_481__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_481__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof(cdat->dstr_481__DISCR_MAP_OBJECT.val)-1);
+ 
+ /*inirout drout_482__LAMBDA_*/
+ /*_.VALROUT___V591*/ curfptr[590] = (void*)&cdat->drout_482__LAMBDA_;
+  cdat->drout_482__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_482__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3071",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_482__LAMBDA_.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_482__LAMBDA_, meltrout_123_warmelt_outobj_LAMBDA_);
+ 
+ /*iniobj dsym_483__COMPILE2OBJ_PROCEDURE*/
+ if (!/*_.VALDATA___V623*/ curfptr[622]) /*_.VALDATA___V623*/ curfptr[622] = (void*)&cdat->dsym_483__COMPILE2OBJ_PROCEDURE;
+  melt_assertmsg("iniobj checkdiscr dsym_483__COMPILE2OBJ_PROCEDURE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_483__COMPILE2OBJ_PROCEDURE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_483__COMPILE2OBJ_PROCEDURE.obj_hash = 315972622;
+  cdat->dsym_483__COMPILE2OBJ_PROCEDURE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_483__COMPILE2OBJ_PROCEDURE));
+ 
+ /*inistring dstr_484__COMPILE2OBJ_PROC*/
+ /*_.VALSTR___V624*/ curfptr[623] = (void*)&cdat->dstr_484__COMPILE2OBJ_PROC;
+  cdat->dstr_484__COMPILE2OBJ_PROC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_484__COMPILE2OBJ_PROC.val, "COMPILE2OBJ_PROCEDURE", sizeof(cdat->dstr_484__COMPILE2OBJ_PROC.val)-1);
+ 
+ /*iniobj dsym_485__COMPILE2OBJ_INITPROC*/
+ if (!/*_.VALDATA___V625*/ curfptr[624]) /*_.VALDATA___V625*/ curfptr[624] = (void*)&cdat->dsym_485__COMPILE2OBJ_INITPROC;
+  melt_assertmsg("iniobj checkdiscr dsym_485__COMPILE2OBJ_INITPROC", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_485__COMPILE2OBJ_INITPROC.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_485__COMPILE2OBJ_INITPROC.obj_hash = 795051323;
+  cdat->dsym_485__COMPILE2OBJ_INITPROC.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_485__COMPILE2OBJ_INITPROC));
+ 
+ /*inistring dstr_486__COMPILE2OBJ_INIT*/
+ /*_.VALSTR___V626*/ curfptr[625] = (void*)&cdat->dstr_486__COMPILE2OBJ_INIT;
+  cdat->dstr_486__COMPILE2OBJ_INIT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_486__COMPILE2OBJ_INIT.val, "COMPILE2OBJ_INITPROC", sizeof(cdat->dstr_486__COMPILE2OBJ_INIT.val)-1);
+ 
+ /*iniobj dsym_487__MELT_ARGUMENT*/
+ if (!/*_.VALDATA___V627*/ curfptr[626]) /*_.VALDATA___V627*/ curfptr[626] = (void*)&cdat->dsym_487__MELT_ARGUMENT;
+  melt_assertmsg("iniobj checkdiscr dsym_487__MELT_ARGUMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_487__MELT_ARGUMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_487__MELT_ARGUMENT.obj_hash = 794513475;
+  cdat->dsym_487__MELT_ARGUMENT.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_487__MELT_ARGUMENT));
+ 
+ /*inistring dstr_488__MELT_ARGUMENT*/
+ /*_.VALSTR___V628*/ curfptr[627] = (void*)&cdat->dstr_488__MELT_ARGUMENT;
+  cdat->dstr_488__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_488__MELT_ARGUMENT.val, "MELT_ARGUMENT", sizeof(cdat->dstr_488__MELT_ARGUMENT.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ iniobj");
+ /*iniobj dobj_489__MELT_ARGUMENT*/
+ if (!/*_.VALDATA___V629*/ curfptr[628]) /*_.VALDATA___V629*/ curfptr[628] = (void*)&cdat->dobj_489__MELT_ARGUMENT;
+  melt_assertmsg("iniobj checkdiscr dobj_489__MELT_ARGUMENT", NULL != (void*)((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_489__MELT_ARGUMENT.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_PRIMITIVE))));
+  cdat->dobj_489__MELT_ARGUMENT.obj_hash = 269598026;
+  cdat->dobj_489__MELT_ARGUMENT.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_489__MELT_ARGUMENT));
+ 
+ /*inimult dtup_490__MELT_ARGUMENT*/
+ /*_.VALTUP___V637*/ curfptr[636] = (void*)&cdat->dtup_490__MELT_ARGUMENT;
+  cdat->dtup_490__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_490__MELT_ARGUMENT.nbval = 3;
+ /*inimult dtup_491__MELT_ARGUMENT*/
+ /*_.VALTUP___V634*/ curfptr[633] = (void*)&cdat->dtup_491__MELT_ARGUMENT;
+  cdat->dtup_491__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE))));
+  cdat->dtup_491__MELT_ARGUMENT.nbval = 1;
+ /*iniobj dsym_492__NAM*/
+ if (!/*_.VALDATA___V632*/ curfptr[631]) /*_.VALDATA___V632*/ curfptr[631] = (void*)&cdat->dsym_492__NAM;
+  melt_assertmsg("iniobj checkdiscr dsym_492__NAM", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_492__NAM.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_492__NAM.obj_hash = 707406315;
+  cdat->dsym_492__NAM.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_492__NAM));
+ 
+ /*inistring dstr_493__NAM*/
+ /*_.VALSTR___V633*/ curfptr[632] = (void*)&cdat->dstr_493__NAM;
+  cdat->dstr_493__NAM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_493__NAM.val, "NAM", sizeof(cdat->dstr_493__NAM.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ iniobj");
+ /*iniobj dobj_494*/
+ if (!/*_.VALDATA___V631*/ curfptr[630]) /*_.VALDATA___V631*/ curfptr[630] = (void*)&cdat->dobj_494;
+  melt_assertmsg("iniobj checkdiscr dobj_494", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_494.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FORMAL_BINDING))));
+  cdat->dobj_494.obj_num = 0;
+  cdat->dobj_494.obj_hash = 317160320;
+  cdat->dobj_494.obj_len = 2;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_494));
+ 
+ /*inistring dstr_495__melt_argument_*/
+ /*_.VALSTR___V635*/ curfptr[634] = (void*)&cdat->dstr_495__melt_argument_;
+  cdat->dstr_495__melt_argument_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_495__melt_argument_.val, "melt_argument(", sizeof(cdat->dstr_495__melt_argument_.val)-1);
+ 
+ /*inistring dstr_496__*/
+ /*_.VALSTR___V636*/ curfptr[635] = (void*)&cdat->dstr_496__;
+  cdat->dstr_496__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_VERBATIM_STRING))));
+  strncpy(cdat->dstr_496__.val, ")", sizeof(cdat->dstr_496__.val)-1);
+ 
+ /*inistring dstr_497__MELT_ARGUMENT*/
+ /*_.VALSTR___V630*/ curfptr[629] = (void*)&cdat->dstr_497__MELT_ARGUMENT;
+  cdat->dstr_497__MELT_ARGUMENT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_497__MELT_ARGUMENT.val, "MELT_ARGUMENT", sizeof(cdat->dstr_497__MELT_ARGUMENT.val)-1);
+ 
+ /*inirout drout_498__INSTALL_MELT_MODE*/
+ /*_.VALROUT___V638*/ curfptr[637] = (void*)&cdat->drout_498__INSTALL_MELT_MODE;
+  cdat->drout_498__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_498__INSTALL_MELT_MODE.routdescr, "INSTALL_MELT_MODE @warmelt-outobj.melt:3165",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_498__INSTALL_MELT_MODE.nbval = 5;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_498__INSTALL_MELT_MODE, meltrout_124_warmelt_outobj_INSTALL_MELT_MODE);
+ 
+ /*iniclos dclo_499__INSTALL_MELT_MODE*/
+ /*_.VALCLO___V639*/ curfptr[638] = (void*)&cdat->dclo_499__INSTALL_MELT_MODE;
+  cdat->dclo_499__INSTALL_MELT_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_499__INSTALL_MELT_MODE.nbval = 0;
+ 
+ /*iniobj dsym_500__CLASS_MELT_MODE*/
+ if (!/*_.VALDATA___V640*/ curfptr[639]) /*_.VALDATA___V640*/ curfptr[639] = (void*)&cdat->dsym_500__CLASS_MELT_MODE;
+  melt_assertmsg("iniobj checkdiscr dsym_500__CLASS_MELT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_500__CLASS_MELT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_500__CLASS_MELT_MODE.obj_hash = 78749621;
+  cdat->dsym_500__CLASS_MELT_MODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_500__CLASS_MELT_MODE));
+ 
+ /*inistring dstr_501__CLASS_MELT_MODE*/
+ /*_.VALSTR___V641*/ curfptr[640] = (void*)&cdat->dstr_501__CLASS_MELT_MODE;
+  cdat->dstr_501__CLASS_MELT_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_501__CLASS_MELT_MODE.val, "CLASS_MELT_MODE", sizeof(cdat->dstr_501__CLASS_MELT_MODE.val)-1);
+ 
+ /*iniobj dsym_502__INITIAL_SYSTEM_DATA*/
+ if (!/*_.VALDATA___V642*/ curfptr[641]) /*_.VALDATA___V642*/ curfptr[641] = (void*)&cdat->dsym_502__INITIAL_SYSTEM_DATA;
+  melt_assertmsg("iniobj checkdiscr dsym_502__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_502__INITIAL_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_502__INITIAL_SYSTEM_DATA.obj_hash = 771349808;
+  cdat->dsym_502__INITIAL_SYSTEM_DATA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_502__INITIAL_SYSTEM_DATA));
+ 
+ /*inistring dstr_503__INITIAL_SYSTEM_D*/
+ /*_.VALSTR___V643*/ curfptr[642] = (void*)&cdat->dstr_503__INITIAL_SYSTEM_D;
+  cdat->dstr_503__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_503__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof(cdat->dstr_503__INITIAL_SYSTEM_D.val)-1);
+ 
+ /*iniobj dsym_504__CLASS_SYSTEM_DATA*/
+ if (!/*_.VALDATA___V644*/ curfptr[643]) /*_.VALDATA___V644*/ curfptr[643] = (void*)&cdat->dsym_504__CLASS_SYSTEM_DATA;
+  melt_assertmsg("iniobj checkdiscr dsym_504__CLASS_SYSTEM_DATA", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_504__CLASS_SYSTEM_DATA.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_504__CLASS_SYSTEM_DATA.obj_hash = 648451867;
+  cdat->dsym_504__CLASS_SYSTEM_DATA.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_504__CLASS_SYSTEM_DATA));
+ 
+ /*inistring dstr_505__CLASS_SYSTEM_DAT*/
+ /*_.VALSTR___V645*/ curfptr[644] = (void*)&cdat->dstr_505__CLASS_SYSTEM_DAT;
+  cdat->dstr_505__CLASS_SYSTEM_DAT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_505__CLASS_SYSTEM_DAT.val, "CLASS_SYSTEM_DATA", sizeof(cdat->dstr_505__CLASS_SYSTEM_DAT.val)-1);
+ 
+ /*inirout drout_506__COMPILE_ONE_OR_MORE_FILES*/
+ /*_.VALROUT___V646*/ curfptr[645] = (void*)&cdat->drout_506__COMPILE_ONE_OR_MORE_FILES;
+  cdat->drout_506__COMPILE_ONE_OR_MORE_FILES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_506__COMPILE_ONE_OR_MORE_FILES.routdescr, "COMPILE_ONE_OR_MORE_FILES @warmelt-outobj.melt:3183",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_506__COMPILE_ONE_OR_MORE_FILES.nbval = 5;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_506__COMPILE_ONE_OR_MORE_FILES, meltrout_125_warmelt_outobj_COMPILE_ONE_OR_MORE_FILES);
+ 
+ /*iniclos dclo_507__COMPILE_ONE_OR_MORE_FILES*/
+ /*_.VALCLO___V647*/ curfptr[646] = (void*)&cdat->dclo_507__COMPILE_ONE_OR_MORE_FILES;
+  cdat->dclo_507__COMPILE_ONE_OR_MORE_FILES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_507__COMPILE_ONE_OR_MORE_FILES.nbval = 0;
+ 
+ /*iniobj dsym_508__LIST_APPEND2LIST*/
+ if (!/*_.VALDATA___V648*/ curfptr[647]) /*_.VALDATA___V648*/ curfptr[647] = (void*)&cdat->dsym_508__LIST_APPEND2LIST;
+  melt_assertmsg("iniobj checkdiscr dsym_508__LIST_APPEND2LIST", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_508__LIST_APPEND2LIST.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_508__LIST_APPEND2LIST.obj_hash = 744841630;
+  cdat->dsym_508__LIST_APPEND2LIST.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_508__LIST_APPEND2LIST));
+ 
+ /*inistring dstr_509__LIST_APPEND2LIST*/
+ /*_.VALSTR___V649*/ curfptr[648] = (void*)&cdat->dstr_509__LIST_APPEND2LIST;
+  cdat->dstr_509__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_509__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof(cdat->dstr_509__LIST_APPEND2LIST.val)-1);
+ 
+ /*inirout drout_510__TRANSLATEFILE_DOCMD*/
+ /*_.VALROUT___V650*/ curfptr[649] = (void*)&cdat->drout_510__TRANSLATEFILE_DOCMD;
+  cdat->drout_510__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_510__TRANSLATEFILE_DOCMD.routdescr, "TRANSLATEFILE_DOCMD @warmelt-outobj.melt:3212",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_510__TRANSLATEFILE_DOCMD.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_510__TRANSLATEFILE_DOCMD, meltrout_126_warmelt_outobj_TRANSLATEFILE_DOCMD);
+ 
+ /*iniclos dclo_511__TRANSLATEFILE_DOCMD*/
+ /*_.VALCLO___V651*/ curfptr[650] = (void*)&cdat->dclo_511__TRANSLATEFILE_DOCMD;
+  cdat->dclo_511__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_511__TRANSLATEFILE_DOCMD.nbval = 0;
+ 
+ /*iniobj dsym_512__TRANSLATEFILE_MODE*/
+ if (!/*_.VALDATA___V652*/ curfptr[651]) /*_.VALDATA___V652*/ curfptr[651] = (void*)&cdat->dsym_512__TRANSLATEFILE_MODE;
+  melt_assertmsg("iniobj checkdiscr dsym_512__TRANSLATEFILE_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_512__TRANSLATEFILE_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_512__TRANSLATEFILE_MODE.obj_hash = 798309888;
+  cdat->dsym_512__TRANSLATEFILE_MODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_512__TRANSLATEFILE_MODE));
+ 
+ /*inistring dstr_513__TRANSLATEFILE_MO*/
+ /*_.VALSTR___V653*/ curfptr[652] = (void*)&cdat->dstr_513__TRANSLATEFILE_MO;
+  cdat->dstr_513__TRANSLATEFILE_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_513__TRANSLATEFILE_MO.val, "TRANSLATEFILE_MODE", sizeof(cdat->dstr_513__TRANSLATEFILE_MO.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3238:/ iniobj");
+ /*iniobj dobj_514__TRANSLATEFILE_MODE*/
+ if (!/*_.VALDATA___V654*/ curfptr[653]) /*_.VALDATA___V654*/ curfptr[653] = (void*)&cdat->dobj_514__TRANSLATEFILE_MODE;
+  melt_assertmsg("iniobj checkdiscr dobj_514__TRANSLATEFILE_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_514__TRANSLATEFILE_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_514__TRANSLATEFILE_MODE.obj_hash = 543317255;
+  cdat->dobj_514__TRANSLATEFILE_MODE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_514__TRANSLATEFILE_MODE));
+ 
+ /*inistring dstr_515__translatefile*/
+ /*_.VALSTR___V655*/ curfptr[654] = (void*)&cdat->dstr_515__translatefile;
+  cdat->dstr_515__translatefile.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_515__translatefile.val, "translatefile", sizeof(cdat->dstr_515__translatefile.val)-1);
+ 
+ /*inistring dstr_516__MELT_translatef*/
+ /*_.VALSTR___V656*/ curfptr[655] = (void*)&cdat->dstr_516__MELT_translatef;
+  cdat->dstr_516__MELT_translatef.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_516__MELT_translatef.val, "MELT \'translatefile\' mode: ARGUMENT= input file; OUTPUT= generated file", sizeof(cdat->dstr_516__MELT_translatef.val)-1);
+ 
+ /*inirout drout_517__RUNFILE_DOCMD*/
+ /*_.VALROUT___V657*/ curfptr[656] = (void*)&cdat->drout_517__RUNFILE_DOCMD;
+  cdat->drout_517__RUNFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_517__RUNFILE_DOCMD.routdescr, "RUNFILE_DOCMD @warmelt-outobj.melt:3250",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_517__RUNFILE_DOCMD.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_517__RUNFILE_DOCMD, meltrout_127_warmelt_outobj_RUNFILE_DOCMD);
+ 
+ /*iniclos dclo_518__RUNFILE_DOCMD*/
+ /*_.VALCLO___V658*/ curfptr[657] = (void*)&cdat->dclo_518__RUNFILE_DOCMD;
+  cdat->dclo_518__RUNFILE_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_518__RUNFILE_DOCMD.nbval = 0;
+ 
+ /*iniobj dsym_519__RUNFILE_MODE*/
+ if (!/*_.VALDATA___V659*/ curfptr[658]) /*_.VALDATA___V659*/ curfptr[658] = (void*)&cdat->dsym_519__RUNFILE_MODE;
+  melt_assertmsg("iniobj checkdiscr dsym_519__RUNFILE_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_519__RUNFILE_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_519__RUNFILE_MODE.obj_hash = 57008406;
+  cdat->dsym_519__RUNFILE_MODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_519__RUNFILE_MODE));
+ 
+ /*inistring dstr_520__RUNFILE_MODE*/
+ /*_.VALSTR___V660*/ curfptr[659] = (void*)&cdat->dstr_520__RUNFILE_MODE;
+  cdat->dstr_520__RUNFILE_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_520__RUNFILE_MODE.val, "RUNFILE_MODE", sizeof(cdat->dstr_520__RUNFILE_MODE.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3283:/ iniobj");
+ /*iniobj dobj_521__RUNFILE_MODE*/
+ if (!/*_.VALDATA___V661*/ curfptr[660]) /*_.VALDATA___V661*/ curfptr[660] = (void*)&cdat->dobj_521__RUNFILE_MODE;
+  melt_assertmsg("iniobj checkdiscr dobj_521__RUNFILE_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_521__RUNFILE_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_521__RUNFILE_MODE.obj_hash = 737089892;
+  cdat->dobj_521__RUNFILE_MODE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_521__RUNFILE_MODE));
+ 
+ /*inistring dstr_522__runfile*/
+ /*_.VALSTR___V662*/ curfptr[661] = (void*)&cdat->dstr_522__runfile;
+  cdat->dstr_522__runfile.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_522__runfile.val, "runfile", sizeof(cdat->dstr_522__runfile.val)-1);
+ 
+ /*inistring dstr_523__MELT_runfile_m*/
+ /*_.VALSTR___V663*/ curfptr[662] = (void*)&cdat->dstr_523__MELT_runfile_m;
+  cdat->dstr_523__MELT_runfile_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_523__MELT_runfile_m.val, "MELT \'runfile\' mode: ARGUMENT= input file; [OUTPUT=generated C]", sizeof(cdat->dstr_523__MELT_runfile_m.val)-1);
+ 
+ /*inirout drout_524__TRANSLATEINIT_DOCMD*/
+ /*_.VALROUT___V664*/ curfptr[663] = (void*)&cdat->drout_524__TRANSLATEINIT_DOCMD;
+  cdat->drout_524__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_524__TRANSLATEINIT_DOCMD.routdescr, "TRANSLATEINIT_DOCMD @warmelt-outobj.melt:3293",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_524__TRANSLATEINIT_DOCMD.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_524__TRANSLATEINIT_DOCMD, meltrout_128_warmelt_outobj_TRANSLATEINIT_DOCMD);
+ 
+ /*iniclos dclo_525__TRANSLATEINIT_DOCMD*/
+ /*_.VALCLO___V666*/ curfptr[665] = (void*)&cdat->dclo_525__TRANSLATEINIT_DOCMD;
+  cdat->dclo_525__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_525__TRANSLATEINIT_DOCMD.nbval = 0;
+ 
+ /*inirout drout_526__LAMBDA_*/
+ /*_.VALROUT___V665*/ curfptr[664] = (void*)&cdat->drout_526__LAMBDA_;
+  cdat->drout_526__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_526__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3322",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_526__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_526__LAMBDA_, meltrout_129_warmelt_outobj_LAMBDA_);
+ 
+ /*iniobj dsym_527__TRANSLATEINIT_MODE*/
+ if (!/*_.VALDATA___V667*/ curfptr[666]) /*_.VALDATA___V667*/ curfptr[666] = (void*)&cdat->dsym_527__TRANSLATEINIT_MODE;
+  melt_assertmsg("iniobj checkdiscr dsym_527__TRANSLATEINIT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_527__TRANSLATEINIT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_527__TRANSLATEINIT_MODE.obj_hash = 941353815;
+  cdat->dsym_527__TRANSLATEINIT_MODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_527__TRANSLATEINIT_MODE));
+ 
+ /*inistring dstr_528__TRANSLATEINIT_MO*/
+ /*_.VALSTR___V668*/ curfptr[667] = (void*)&cdat->dstr_528__TRANSLATEINIT_MO;
+  cdat->dstr_528__TRANSLATEINIT_MO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_528__TRANSLATEINIT_MO.val, "TRANSLATEINIT_MODE", sizeof(cdat->dstr_528__TRANSLATEINIT_MO.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3337:/ iniobj");
+ /*iniobj dobj_529__TRANSLATEINIT_MODE*/
+ if (!/*_.VALDATA___V669*/ curfptr[668]) /*_.VALDATA___V669*/ curfptr[668] = (void*)&cdat->dobj_529__TRANSLATEINIT_MODE;
+  melt_assertmsg("iniobj checkdiscr dobj_529__TRANSLATEINIT_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_529__TRANSLATEINIT_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_529__TRANSLATEINIT_MODE.obj_hash = 434431312;
+  cdat->dobj_529__TRANSLATEINIT_MODE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_529__TRANSLATEINIT_MODE));
+ 
+ /*inistring dstr_530__translateinit*/
+ /*_.VALSTR___V670*/ curfptr[669] = (void*)&cdat->dstr_530__translateinit;
+  cdat->dstr_530__translateinit.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_530__translateinit.val, "translateinit", sizeof(cdat->dstr_530__translateinit.val)-1);
+ 
+ /*inistring dstr_531__MELT_translatei*/
+ /*_.VALSTR___V671*/ curfptr[670] = (void*)&cdat->dstr_531__MELT_translatei;
+  cdat->dstr_531__MELT_translatei.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_531__MELT_translatei.val, "MELT \'translateinit\' mode: ARGUMENT= input file; OUTPUT= generated file", sizeof(cdat->dstr_531__MELT_translatei.val)-1);
+ 
+ /*iniobj dsym_532__CLASS_MAKEDOC_INFO*/
+ if (!/*_.VALDATA___V672*/ curfptr[671]) /*_.VALDATA___V672*/ curfptr[671] = (void*)&cdat->dsym_532__CLASS_MAKEDOC_INFO;
+  melt_assertmsg("iniobj checkdiscr dsym_532__CLASS_MAKEDOC_INFO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_532__CLASS_MAKEDOC_INFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_532__CLASS_MAKEDOC_INFO.obj_hash = 888483056;
+  cdat->dsym_532__CLASS_MAKEDOC_INFO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_532__CLASS_MAKEDOC_INFO));
+ 
+ /*inistring dstr_533__CLASS_MAKEDOC_IN*/
+ /*_.VALSTR___V673*/ curfptr[672] = (void*)&cdat->dstr_533__CLASS_MAKEDOC_IN;
+  cdat->dstr_533__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_533__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof(cdat->dstr_533__CLASS_MAKEDOC_IN.val)-1);
+ 
+ /*iniobj dsym_534__CLASS_PROPED*/
+ if (!/*_.VALDATA___V674*/ curfptr[673]) /*_.VALDATA___V674*/ curfptr[673] = (void*)&cdat->dsym_534__CLASS_PROPED;
+  melt_assertmsg("iniobj checkdiscr dsym_534__CLASS_PROPED", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_534__CLASS_PROPED.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_534__CLASS_PROPED.obj_hash = 96765023;
+  cdat->dsym_534__CLASS_PROPED.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_534__CLASS_PROPED));
+ 
+ /*inistring dstr_535__CLASS_PROPED*/
+ /*_.VALSTR___V675*/ curfptr[674] = (void*)&cdat->dstr_535__CLASS_PROPED;
+  cdat->dstr_535__CLASS_PROPED.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_535__CLASS_PROPED.val, "CLASS_PROPED", sizeof(cdat->dstr_535__CLASS_PROPED.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_536__CLASS_MAKEDOC_INFO*/
+ if (!/*_.VALDATA___V676*/ curfptr[675]) /*_.VALDATA___V676*/ curfptr[675] = (void*)&cdat->dobj_536__CLASS_MAKEDOC_INFO;
+  melt_assertmsg("iniobj checkdiscr dobj_536__CLASS_MAKEDOC_INFO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_536__CLASS_MAKEDOC_INFO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_CLASS))));
+  cdat->dobj_536__CLASS_MAKEDOC_INFO.obj_num = OBMAG_OBJECT;
+  cdat->dobj_536__CLASS_MAKEDOC_INFO.obj_hash = 311047874;
+  cdat->dobj_536__CLASS_MAKEDOC_INFO.obj_len = 8;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_536__CLASS_MAKEDOC_INFO));
+ 
+ /*inistring dstr_537__CLASS_MAKEDOC_IN*/
+ /*_.VALSTR___V677*/ curfptr[676] = (void*)&cdat->dstr_537__CLASS_MAKEDOC_IN;
+  cdat->dstr_537__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_537__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof(cdat->dstr_537__CLASS_MAKEDOC_IN.val)-1);
+ 
+ /*inimult dtup_538__CLASS_MAKEDOC_INFO*/
+ /*_.VALTUP___V678*/ curfptr[677] = (void*)&cdat->dtup_538__CLASS_MAKEDOC_INFO;
+  cdat->dtup_538__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLASS_SEQUENCE))));
+  cdat->dtup_538__CLASS_MAKEDOC_INFO.nbval = 2;
+ /*inimult dtup_539__CLASS_MAKEDOC_INFO*/
+ /*_.VALTUP___V707*/ curfptr[706] = (void*)&cdat->dtup_539__CLASS_MAKEDOC_INFO;
+  cdat->dtup_539__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_FIELD_SEQUENCE))));
+  cdat->dtup_539__CLASS_MAKEDOC_INFO.nbval = 15;
+ /*iniobj dsym_540__MKDOC_PRIMITIVES*/
+ if (!/*_.VALDATA___V708*/ curfptr[707]) /*_.VALDATA___V708*/ curfptr[707] = (void*)&cdat->dsym_540__MKDOC_PRIMITIVES;
+  melt_assertmsg("iniobj checkdiscr dsym_540__MKDOC_PRIMITIVES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_540__MKDOC_PRIMITIVES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_540__MKDOC_PRIMITIVES.obj_hash = 233088980;
+  cdat->dsym_540__MKDOC_PRIMITIVES.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_540__MKDOC_PRIMITIVES));
+ 
+ /*inistring dstr_541__MKDOC_PRIMITIVES*/
+ /*_.VALSTR___V709*/ curfptr[708] = (void*)&cdat->dstr_541__MKDOC_PRIMITIVES;
+  cdat->dstr_541__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_541__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof(cdat->dstr_541__MKDOC_PRIMITIVES.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_542__MKDOC_PRIMITIVES*/
+ if (!/*_.VALDATA___V679*/ curfptr[678]) /*_.VALDATA___V679*/ curfptr[678] = (void*)&cdat->dobj_542__MKDOC_PRIMITIVES;
+  melt_assertmsg("iniobj checkdiscr dobj_542__MKDOC_PRIMITIVES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_542__MKDOC_PRIMITIVES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_542__MKDOC_PRIMITIVES.obj_num = 1;
+  cdat->dobj_542__MKDOC_PRIMITIVES.obj_hash = 526457778;
+  cdat->dobj_542__MKDOC_PRIMITIVES.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_542__MKDOC_PRIMITIVES));
+ 
+ /*inistring dstr_543__MKDOC_PRIMITIVES*/
+ /*_.VALSTR___V680*/ curfptr[679] = (void*)&cdat->dstr_543__MKDOC_PRIMITIVES;
+  cdat->dstr_543__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_543__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof(cdat->dstr_543__MKDOC_PRIMITIVES.val)-1);
+ 
+ /*iniobj dsym_544__MKDOC_FUNCTIONS*/
+ if (!/*_.VALDATA___V710*/ curfptr[709]) /*_.VALDATA___V710*/ curfptr[709] = (void*)&cdat->dsym_544__MKDOC_FUNCTIONS;
+  melt_assertmsg("iniobj checkdiscr dsym_544__MKDOC_FUNCTIONS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_544__MKDOC_FUNCTIONS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_544__MKDOC_FUNCTIONS.obj_hash = 654520228;
+  cdat->dsym_544__MKDOC_FUNCTIONS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_544__MKDOC_FUNCTIONS));
+ 
+ /*inistring dstr_545__MKDOC_FUNCTIONS*/
+ /*_.VALSTR___V711*/ curfptr[710] = (void*)&cdat->dstr_545__MKDOC_FUNCTIONS;
+  cdat->dstr_545__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_545__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof(cdat->dstr_545__MKDOC_FUNCTIONS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_546__MKDOC_FUNCTIONS*/
+ if (!/*_.VALDATA___V681*/ curfptr[680]) /*_.VALDATA___V681*/ curfptr[680] = (void*)&cdat->dobj_546__MKDOC_FUNCTIONS;
+  melt_assertmsg("iniobj checkdiscr dobj_546__MKDOC_FUNCTIONS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_546__MKDOC_FUNCTIONS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_546__MKDOC_FUNCTIONS.obj_num = 2;
+  cdat->dobj_546__MKDOC_FUNCTIONS.obj_hash = 275988745;
+  cdat->dobj_546__MKDOC_FUNCTIONS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_546__MKDOC_FUNCTIONS));
+ 
+ /*inistring dstr_547__MKDOC_FUNCTIONS*/
+ /*_.VALSTR___V682*/ curfptr[681] = (void*)&cdat->dstr_547__MKDOC_FUNCTIONS;
+  cdat->dstr_547__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_547__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof(cdat->dstr_547__MKDOC_FUNCTIONS.val)-1);
+ 
+ /*iniobj dsym_548__MKDOC_CITERATORS*/
+ if (!/*_.VALDATA___V712*/ curfptr[711]) /*_.VALDATA___V712*/ curfptr[711] = (void*)&cdat->dsym_548__MKDOC_CITERATORS;
+  melt_assertmsg("iniobj checkdiscr dsym_548__MKDOC_CITERATORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_548__MKDOC_CITERATORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_548__MKDOC_CITERATORS.obj_hash = 809871209;
+  cdat->dsym_548__MKDOC_CITERATORS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_548__MKDOC_CITERATORS));
+ 
+ /*inistring dstr_549__MKDOC_CITERATORS*/
+ /*_.VALSTR___V713*/ curfptr[712] = (void*)&cdat->dstr_549__MKDOC_CITERATORS;
+  cdat->dstr_549__MKDOC_CITERATORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_549__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof(cdat->dstr_549__MKDOC_CITERATORS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_550__MKDOC_CITERATORS*/
+ if (!/*_.VALDATA___V683*/ curfptr[682]) /*_.VALDATA___V683*/ curfptr[682] = (void*)&cdat->dobj_550__MKDOC_CITERATORS;
+  melt_assertmsg("iniobj checkdiscr dobj_550__MKDOC_CITERATORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_550__MKDOC_CITERATORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_550__MKDOC_CITERATORS.obj_num = 3;
+  cdat->dobj_550__MKDOC_CITERATORS.obj_hash = 302632491;
+  cdat->dobj_550__MKDOC_CITERATORS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_550__MKDOC_CITERATORS));
+ 
+ /*inistring dstr_551__MKDOC_CITERATORS*/
+ /*_.VALSTR___V684*/ curfptr[683] = (void*)&cdat->dstr_551__MKDOC_CITERATORS;
+  cdat->dstr_551__MKDOC_CITERATORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_551__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof(cdat->dstr_551__MKDOC_CITERATORS.val)-1);
+ 
+ /*iniobj dsym_552__MKDOC_CMATCHERS*/
+ if (!/*_.VALDATA___V714*/ curfptr[713]) /*_.VALDATA___V714*/ curfptr[713] = (void*)&cdat->dsym_552__MKDOC_CMATCHERS;
+  melt_assertmsg("iniobj checkdiscr dsym_552__MKDOC_CMATCHERS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_552__MKDOC_CMATCHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_552__MKDOC_CMATCHERS.obj_hash = 622562832;
+  cdat->dsym_552__MKDOC_CMATCHERS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_552__MKDOC_CMATCHERS));
+ 
+ /*inistring dstr_553__MKDOC_CMATCHERS*/
+ /*_.VALSTR___V715*/ curfptr[714] = (void*)&cdat->dstr_553__MKDOC_CMATCHERS;
+  cdat->dstr_553__MKDOC_CMATCHERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_553__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof(cdat->dstr_553__MKDOC_CMATCHERS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_554__MKDOC_CMATCHERS*/
+ if (!/*_.VALDATA___V685*/ curfptr[684]) /*_.VALDATA___V685*/ curfptr[684] = (void*)&cdat->dobj_554__MKDOC_CMATCHERS;
+  melt_assertmsg("iniobj checkdiscr dobj_554__MKDOC_CMATCHERS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_554__MKDOC_CMATCHERS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_554__MKDOC_CMATCHERS.obj_num = 4;
+  cdat->dobj_554__MKDOC_CMATCHERS.obj_hash = 129425423;
+  cdat->dobj_554__MKDOC_CMATCHERS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_554__MKDOC_CMATCHERS));
+ 
+ /*inistring dstr_555__MKDOC_CMATCHERS*/
+ /*_.VALSTR___V686*/ curfptr[685] = (void*)&cdat->dstr_555__MKDOC_CMATCHERS;
+  cdat->dstr_555__MKDOC_CMATCHERS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_555__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof(cdat->dstr_555__MKDOC_CMATCHERS.val)-1);
+ 
+ /*iniobj dsym_556__MKDOC_SELECTORS*/
+ if (!/*_.VALDATA___V716*/ curfptr[715]) /*_.VALDATA___V716*/ curfptr[715] = (void*)&cdat->dsym_556__MKDOC_SELECTORS;
+  melt_assertmsg("iniobj checkdiscr dsym_556__MKDOC_SELECTORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_556__MKDOC_SELECTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_556__MKDOC_SELECTORS.obj_hash = 111275095;
+  cdat->dsym_556__MKDOC_SELECTORS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_556__MKDOC_SELECTORS));
+ 
+ /*inistring dstr_557__MKDOC_SELECTORS*/
+ /*_.VALSTR___V717*/ curfptr[716] = (void*)&cdat->dstr_557__MKDOC_SELECTORS;
+  cdat->dstr_557__MKDOC_SELECTORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_557__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof(cdat->dstr_557__MKDOC_SELECTORS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_558__MKDOC_SELECTORS*/
+ if (!/*_.VALDATA___V687*/ curfptr[686]) /*_.VALDATA___V687*/ curfptr[686] = (void*)&cdat->dobj_558__MKDOC_SELECTORS;
+  melt_assertmsg("iniobj checkdiscr dobj_558__MKDOC_SELECTORS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_558__MKDOC_SELECTORS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_558__MKDOC_SELECTORS.obj_num = 5;
+  cdat->dobj_558__MKDOC_SELECTORS.obj_hash = 358798958;
+  cdat->dobj_558__MKDOC_SELECTORS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_558__MKDOC_SELECTORS));
+ 
+ /*inistring dstr_559__MKDOC_SELECTORS*/
+ /*_.VALSTR___V688*/ curfptr[687] = (void*)&cdat->dstr_559__MKDOC_SELECTORS;
+  cdat->dstr_559__MKDOC_SELECTORS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_559__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof(cdat->dstr_559__MKDOC_SELECTORS.val)-1);
+ 
+ /*iniobj dsym_560__MKDOC_FIELDS*/
+ if (!/*_.VALDATA___V718*/ curfptr[717]) /*_.VALDATA___V718*/ curfptr[717] = (void*)&cdat->dsym_560__MKDOC_FIELDS;
+  melt_assertmsg("iniobj checkdiscr dsym_560__MKDOC_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_560__MKDOC_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_560__MKDOC_FIELDS.obj_hash = 113024229;
+  cdat->dsym_560__MKDOC_FIELDS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_560__MKDOC_FIELDS));
+ 
+ /*inistring dstr_561__MKDOC_FIELDS*/
+ /*_.VALSTR___V719*/ curfptr[718] = (void*)&cdat->dstr_561__MKDOC_FIELDS;
+  cdat->dstr_561__MKDOC_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_561__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof(cdat->dstr_561__MKDOC_FIELDS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_562__MKDOC_FIELDS*/
+ if (!/*_.VALDATA___V689*/ curfptr[688]) /*_.VALDATA___V689*/ curfptr[688] = (void*)&cdat->dobj_562__MKDOC_FIELDS;
+  melt_assertmsg("iniobj checkdiscr dobj_562__MKDOC_FIELDS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_562__MKDOC_FIELDS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_562__MKDOC_FIELDS.obj_num = 6;
+  cdat->dobj_562__MKDOC_FIELDS.obj_hash = 159042942;
+  cdat->dobj_562__MKDOC_FIELDS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_562__MKDOC_FIELDS));
+ 
+ /*inistring dstr_563__MKDOC_FIELDS*/
+ /*_.VALSTR___V690*/ curfptr[689] = (void*)&cdat->dstr_563__MKDOC_FIELDS;
+  cdat->dstr_563__MKDOC_FIELDS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_563__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof(cdat->dstr_563__MKDOC_FIELDS.val)-1);
+ 
+ /*iniobj dsym_564__MKDOC_CLASSES*/
+ if (!/*_.VALDATA___V720*/ curfptr[719]) /*_.VALDATA___V720*/ curfptr[719] = (void*)&cdat->dsym_564__MKDOC_CLASSES;
+  melt_assertmsg("iniobj checkdiscr dsym_564__MKDOC_CLASSES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_564__MKDOC_CLASSES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_564__MKDOC_CLASSES.obj_hash = 491567800;
+  cdat->dsym_564__MKDOC_CLASSES.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_564__MKDOC_CLASSES));
+ 
+ /*inistring dstr_565__MKDOC_CLASSES*/
+ /*_.VALSTR___V721*/ curfptr[720] = (void*)&cdat->dstr_565__MKDOC_CLASSES;
+  cdat->dstr_565__MKDOC_CLASSES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_565__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof(cdat->dstr_565__MKDOC_CLASSES.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_566__MKDOC_CLASSES*/
+ if (!/*_.VALDATA___V691*/ curfptr[690]) /*_.VALDATA___V691*/ curfptr[690] = (void*)&cdat->dobj_566__MKDOC_CLASSES;
+  melt_assertmsg("iniobj checkdiscr dobj_566__MKDOC_CLASSES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_566__MKDOC_CLASSES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_566__MKDOC_CLASSES.obj_num = 7;
+  cdat->dobj_566__MKDOC_CLASSES.obj_hash = 1063765368;
+  cdat->dobj_566__MKDOC_CLASSES.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_566__MKDOC_CLASSES));
+ 
+ /*inistring dstr_567__MKDOC_CLASSES*/
+ /*_.VALSTR___V692*/ curfptr[691] = (void*)&cdat->dstr_567__MKDOC_CLASSES;
+  cdat->dstr_567__MKDOC_CLASSES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_567__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof(cdat->dstr_567__MKDOC_CLASSES.val)-1);
+ 
+ /*iniobj dsym_568__MKDOC_INSTANCES*/
+ if (!/*_.VALDATA___V722*/ curfptr[721]) /*_.VALDATA___V722*/ curfptr[721] = (void*)&cdat->dsym_568__MKDOC_INSTANCES;
+  melt_assertmsg("iniobj checkdiscr dsym_568__MKDOC_INSTANCES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_568__MKDOC_INSTANCES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_568__MKDOC_INSTANCES.obj_hash = 100156077;
+  cdat->dsym_568__MKDOC_INSTANCES.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_568__MKDOC_INSTANCES));
+ 
+ /*inistring dstr_569__MKDOC_INSTANCES*/
+ /*_.VALSTR___V723*/ curfptr[722] = (void*)&cdat->dstr_569__MKDOC_INSTANCES;
+  cdat->dstr_569__MKDOC_INSTANCES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_569__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof(cdat->dstr_569__MKDOC_INSTANCES.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_570__MKDOC_INSTANCES*/
+ if (!/*_.VALDATA___V693*/ curfptr[692]) /*_.VALDATA___V693*/ curfptr[692] = (void*)&cdat->dobj_570__MKDOC_INSTANCES;
+  melt_assertmsg("iniobj checkdiscr dobj_570__MKDOC_INSTANCES", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_570__MKDOC_INSTANCES.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_570__MKDOC_INSTANCES.obj_num = 8;
+  cdat->dobj_570__MKDOC_INSTANCES.obj_hash = 235873490;
+  cdat->dobj_570__MKDOC_INSTANCES.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_570__MKDOC_INSTANCES));
+ 
+ /*inistring dstr_571__MKDOC_INSTANCES*/
+ /*_.VALSTR___V694*/ curfptr[693] = (void*)&cdat->dstr_571__MKDOC_INSTANCES;
+  cdat->dstr_571__MKDOC_INSTANCES.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_571__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof(cdat->dstr_571__MKDOC_INSTANCES.val)-1);
+ 
+ /*iniobj dsym_572__MKDOC_MACROS*/
+ if (!/*_.VALDATA___V724*/ curfptr[723]) /*_.VALDATA___V724*/ curfptr[723] = (void*)&cdat->dsym_572__MKDOC_MACROS;
+  melt_assertmsg("iniobj checkdiscr dsym_572__MKDOC_MACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_572__MKDOC_MACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_572__MKDOC_MACROS.obj_hash = 312599283;
+  cdat->dsym_572__MKDOC_MACROS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_572__MKDOC_MACROS));
+ 
+ /*inistring dstr_573__MKDOC_MACROS*/
+ /*_.VALSTR___V725*/ curfptr[724] = (void*)&cdat->dstr_573__MKDOC_MACROS;
+  cdat->dstr_573__MKDOC_MACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_573__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof(cdat->dstr_573__MKDOC_MACROS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_574__MKDOC_MACROS*/
+ if (!/*_.VALDATA___V695*/ curfptr[694]) /*_.VALDATA___V695*/ curfptr[694] = (void*)&cdat->dobj_574__MKDOC_MACROS;
+  melt_assertmsg("iniobj checkdiscr dobj_574__MKDOC_MACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_574__MKDOC_MACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_574__MKDOC_MACROS.obj_num = 9;
+  cdat->dobj_574__MKDOC_MACROS.obj_hash = 144991919;
+  cdat->dobj_574__MKDOC_MACROS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_574__MKDOC_MACROS));
+ 
+ /*inistring dstr_575__MKDOC_MACROS*/
+ /*_.VALSTR___V696*/ curfptr[695] = (void*)&cdat->dstr_575__MKDOC_MACROS;
+  cdat->dstr_575__MKDOC_MACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_575__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof(cdat->dstr_575__MKDOC_MACROS.val)-1);
+ 
+ /*iniobj dsym_576__MKDOC_PATMACROS*/
+ if (!/*_.VALDATA___V726*/ curfptr[725]) /*_.VALDATA___V726*/ curfptr[725] = (void*)&cdat->dsym_576__MKDOC_PATMACROS;
+  melt_assertmsg("iniobj checkdiscr dsym_576__MKDOC_PATMACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_576__MKDOC_PATMACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_576__MKDOC_PATMACROS.obj_hash = 315727057;
+  cdat->dsym_576__MKDOC_PATMACROS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_576__MKDOC_PATMACROS));
+ 
+ /*inistring dstr_577__MKDOC_PATMACROS*/
+ /*_.VALSTR___V727*/ curfptr[726] = (void*)&cdat->dstr_577__MKDOC_PATMACROS;
+  cdat->dstr_577__MKDOC_PATMACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_577__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof(cdat->dstr_577__MKDOC_PATMACROS.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_578__MKDOC_PATMACROS*/
+ if (!/*_.VALDATA___V697*/ curfptr[696]) /*_.VALDATA___V697*/ curfptr[696] = (void*)&cdat->dobj_578__MKDOC_PATMACROS;
+  melt_assertmsg("iniobj checkdiscr dobj_578__MKDOC_PATMACROS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_578__MKDOC_PATMACROS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_578__MKDOC_PATMACROS.obj_num = 10;
+  cdat->dobj_578__MKDOC_PATMACROS.obj_hash = 351276205;
+  cdat->dobj_578__MKDOC_PATMACROS.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_578__MKDOC_PATMACROS));
+ 
+ /*inistring dstr_579__MKDOC_PATMACROS*/
+ /*_.VALSTR___V698*/ curfptr[697] = (void*)&cdat->dstr_579__MKDOC_PATMACROS;
+  cdat->dstr_579__MKDOC_PATMACROS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_579__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof(cdat->dstr_579__MKDOC_PATMACROS.val)-1);
+ 
+ /*iniobj dsym_580__MKDOC_FORMALOCCMAP*/
+ if (!/*_.VALDATA___V728*/ curfptr[727]) /*_.VALDATA___V728*/ curfptr[727] = (void*)&cdat->dsym_580__MKDOC_FORMALOCCMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_580__MKDOC_FORMALOCCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_580__MKDOC_FORMALOCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_580__MKDOC_FORMALOCCMAP.obj_hash = 59239994;
+  cdat->dsym_580__MKDOC_FORMALOCCMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_580__MKDOC_FORMALOCCMAP));
+ 
+ /*inistring dstr_581__MKDOC_FORMALOCCM*/
+ /*_.VALSTR___V729*/ curfptr[728] = (void*)&cdat->dstr_581__MKDOC_FORMALOCCM;
+  cdat->dstr_581__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_581__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof(cdat->dstr_581__MKDOC_FORMALOCCM.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_582__MKDOC_FORMALOCCMAP*/
+ if (!/*_.VALDATA___V699*/ curfptr[698]) /*_.VALDATA___V699*/ curfptr[698] = (void*)&cdat->dobj_582__MKDOC_FORMALOCCMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_582__MKDOC_FORMALOCCMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_582__MKDOC_FORMALOCCMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_582__MKDOC_FORMALOCCMAP.obj_num = 11;
+  cdat->dobj_582__MKDOC_FORMALOCCMAP.obj_hash = 121682379;
+  cdat->dobj_582__MKDOC_FORMALOCCMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_582__MKDOC_FORMALOCCMAP));
+ 
+ /*inistring dstr_583__MKDOC_FORMALOCCM*/
+ /*_.VALSTR___V700*/ curfptr[699] = (void*)&cdat->dstr_583__MKDOC_FORMALOCCM;
+  cdat->dstr_583__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_583__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof(cdat->dstr_583__MKDOC_FORMALOCCM.val)-1);
+ 
+ /*iniobj dsym_584__MKDOC_PREDEFMAP*/
+ if (!/*_.VALDATA___V730*/ curfptr[729]) /*_.VALDATA___V730*/ curfptr[729] = (void*)&cdat->dsym_584__MKDOC_PREDEFMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_584__MKDOC_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_584__MKDOC_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_584__MKDOC_PREDEFMAP.obj_hash = 1068524972;
+  cdat->dsym_584__MKDOC_PREDEFMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_584__MKDOC_PREDEFMAP));
+ 
+ /*inistring dstr_585__MKDOC_PREDEFMAP*/
+ /*_.VALSTR___V731*/ curfptr[730] = (void*)&cdat->dstr_585__MKDOC_PREDEFMAP;
+  cdat->dstr_585__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_585__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof(cdat->dstr_585__MKDOC_PREDEFMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_586__MKDOC_PREDEFMAP*/
+ if (!/*_.VALDATA___V701*/ curfptr[700]) /*_.VALDATA___V701*/ curfptr[700] = (void*)&cdat->dobj_586__MKDOC_PREDEFMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_586__MKDOC_PREDEFMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_586__MKDOC_PREDEFMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_586__MKDOC_PREDEFMAP.obj_num = 12;
+  cdat->dobj_586__MKDOC_PREDEFMAP.obj_hash = 338844631;
+  cdat->dobj_586__MKDOC_PREDEFMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_586__MKDOC_PREDEFMAP));
+ 
+ /*inistring dstr_587__MKDOC_PREDEFMAP*/
+ /*_.VALSTR___V702*/ curfptr[701] = (void*)&cdat->dstr_587__MKDOC_PREDEFMAP;
+  cdat->dstr_587__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_587__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof(cdat->dstr_587__MKDOC_PREDEFMAP.val)-1);
+ 
+ /*iniobj dsym_588__MKDOC_DOCSYMAP*/
+ if (!/*_.VALDATA___V732*/ curfptr[731]) /*_.VALDATA___V732*/ curfptr[731] = (void*)&cdat->dsym_588__MKDOC_DOCSYMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_588__MKDOC_DOCSYMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_588__MKDOC_DOCSYMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_588__MKDOC_DOCSYMAP.obj_hash = 789377254;
+  cdat->dsym_588__MKDOC_DOCSYMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_588__MKDOC_DOCSYMAP));
+ 
+ /*inistring dstr_589__MKDOC_DOCSYMAP*/
+ /*_.VALSTR___V733*/ curfptr[732] = (void*)&cdat->dstr_589__MKDOC_DOCSYMAP;
+  cdat->dstr_589__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_589__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof(cdat->dstr_589__MKDOC_DOCSYMAP.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_590__MKDOC_DOCSYMAP*/
+ if (!/*_.VALDATA___V703*/ curfptr[702]) /*_.VALDATA___V703*/ curfptr[702] = (void*)&cdat->dobj_590__MKDOC_DOCSYMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_590__MKDOC_DOCSYMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_590__MKDOC_DOCSYMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_590__MKDOC_DOCSYMAP.obj_num = 13;
+  cdat->dobj_590__MKDOC_DOCSYMAP.obj_hash = 113402209;
+  cdat->dobj_590__MKDOC_DOCSYMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_590__MKDOC_DOCSYMAP));
+ 
+ /*inistring dstr_591__MKDOC_DOCSYMAP*/
+ /*_.VALSTR___V704*/ curfptr[703] = (void*)&cdat->dstr_591__MKDOC_DOCSYMAP;
+  cdat->dstr_591__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_591__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof(cdat->dstr_591__MKDOC_DOCSYMAP.val)-1);
+ 
+ /*iniobj dsym_592__MKDOC_SUBCLASSMAP*/
+ if (!/*_.VALDATA___V734*/ curfptr[733]) /*_.VALDATA___V734*/ curfptr[733] = (void*)&cdat->dsym_592__MKDOC_SUBCLASSMAP;
+  melt_assertmsg("iniobj checkdiscr dsym_592__MKDOC_SUBCLASSMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_592__MKDOC_SUBCLASSMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_592__MKDOC_SUBCLASSMAP.obj_hash = 157862502;
+  cdat->dsym_592__MKDOC_SUBCLASSMAP.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_592__MKDOC_SUBCLASSMAP));
+ 
+ /*inistring dstr_593__MKDOC_SUBCLASSMA*/
+ /*_.VALSTR___V735*/ curfptr[734] = (void*)&cdat->dstr_593__MKDOC_SUBCLASSMA;
+  cdat->dstr_593__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_593__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof(cdat->dstr_593__MKDOC_SUBCLASSMA.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ iniobj");
+ /*iniobj dobj_594__MKDOC_SUBCLASSMAP*/
+ if (!/*_.VALDATA___V705*/ curfptr[704]) /*_.VALDATA___V705*/ curfptr[704] = (void*)&cdat->dobj_594__MKDOC_SUBCLASSMAP;
+  melt_assertmsg("iniobj checkdiscr dobj_594__MKDOC_SUBCLASSMAP", NULL != (void*)((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_594__MKDOC_SUBCLASSMAP.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_FIELD))));
+  cdat->dobj_594__MKDOC_SUBCLASSMAP.obj_num = 14;
+  cdat->dobj_594__MKDOC_SUBCLASSMAP.obj_hash = 15422422;
+  cdat->dobj_594__MKDOC_SUBCLASSMAP.obj_len = 4;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_594__MKDOC_SUBCLASSMAP));
+ 
+ /*inistring dstr_595__MKDOC_SUBCLASSMA*/
+ /*_.VALSTR___V706*/ curfptr[705] = (void*)&cdat->dstr_595__MKDOC_SUBCLASSMA;
+  cdat->dstr_595__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_595__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof(cdat->dstr_595__MKDOC_SUBCLASSMA.val)-1);
+ 
+ /*inirout drout_596__MAKEDOC_SCANINPUT*/
+ /*_.VALROUT___V736*/ curfptr[735] = (void*)&cdat->drout_596__MAKEDOC_SCANINPUT;
+  cdat->drout_596__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_596__MAKEDOC_SCANINPUT.routdescr, "MAKEDOC_SCANINPUT @warmelt-outobj.melt:3374",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_596__MAKEDOC_SCANINPUT.nbval = 32;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_596__MAKEDOC_SCANINPUT, meltrout_130_warmelt_outobj_MAKEDOC_SCANINPUT);
+ 
+ /*iniclos dclo_597__MAKEDOC_SCANINPUT*/
+ /*_.VALCLO___V741*/ curfptr[740] = (void*)&cdat->dclo_597__MAKEDOC_SCANINPUT;
+  cdat->dclo_597__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_597__MAKEDOC_SCANINPUT.nbval = 0;
+ 
+ /*inirout drout_598__LAMBDA_*/
+ /*_.VALROUT___V737*/ curfptr[736] = (void*)&cdat->drout_598__LAMBDA_;
+  cdat->drout_598__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_598__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3381",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_598__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_598__LAMBDA_, meltrout_131_warmelt_outobj_LAMBDA_);
+ 
+ /*inirout drout_599__LAMBDA_*/
+ /*_.VALROUT___V738*/ curfptr[737] = (void*)&cdat->drout_599__LAMBDA_;
+  cdat->drout_599__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_599__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3394",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_599__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_599__LAMBDA_, meltrout_132_warmelt_outobj_LAMBDA_);
+ 
+ /*inirout drout_600__LAMBDA_*/
+ /*_.VALROUT___V739*/ curfptr[738] = (void*)&cdat->drout_600__LAMBDA_;
+  cdat->drout_600__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_600__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3404",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_600__LAMBDA_.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_600__LAMBDA_, meltrout_133_warmelt_outobj_LAMBDA_);
+ 
+ /*iniobj dsym_601__CLASS_SOURCE_DEFINITION*/
+ if (!/*_.VALDATA___V742*/ curfptr[741]) /*_.VALDATA___V742*/ curfptr[741] = (void*)&cdat->dsym_601__CLASS_SOURCE_DEFINITION;
+  melt_assertmsg("iniobj checkdiscr dsym_601__CLASS_SOURCE_DEFINITION", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_601__CLASS_SOURCE_DEFINITION.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_601__CLASS_SOURCE_DEFINITION.obj_hash = 208176225;
+  cdat->dsym_601__CLASS_SOURCE_DEFINITION.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_601__CLASS_SOURCE_DEFINITION));
+ 
+ /*inistring dstr_602__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V743*/ curfptr[742] = (void*)&cdat->dstr_602__CLASS_SOURCE_DEF;
+  cdat->dstr_602__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_602__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof(cdat->dstr_602__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_603__CLASS_ANY_BINDING*/
+ if (!/*_.VALDATA___V744*/ curfptr[743]) /*_.VALDATA___V744*/ curfptr[743] = (void*)&cdat->dsym_603__CLASS_ANY_BINDING;
+  melt_assertmsg("iniobj checkdiscr dsym_603__CLASS_ANY_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_603__CLASS_ANY_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_603__CLASS_ANY_BINDING.obj_hash = 935770;
+  cdat->dsym_603__CLASS_ANY_BINDING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_603__CLASS_ANY_BINDING));
+ 
+ /*inistring dstr_604__CLASS_ANY_BINDIN*/
+ /*_.VALSTR___V745*/ curfptr[744] = (void*)&cdat->dstr_604__CLASS_ANY_BINDIN;
+  cdat->dstr_604__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_604__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof(cdat->dstr_604__CLASS_ANY_BINDIN.val)-1);
+ 
+ /*inirout drout_605__LAMBDA_*/
+ /*_.VALROUT___V740*/ curfptr[739] = (void*)&cdat->drout_605__LAMBDA_;
+  cdat->drout_605__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_605__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3426",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_605__LAMBDA_.nbval = 18;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_605__LAMBDA_, meltrout_134_warmelt_outobj_LAMBDA_);
+ 
+ /*iniobj dsym_606__CLASS_SOURCE_DEFCLASS*/
+ if (!/*_.VALDATA___V746*/ curfptr[745]) /*_.VALDATA___V746*/ curfptr[745] = (void*)&cdat->dsym_606__CLASS_SOURCE_DEFCLASS;
+  melt_assertmsg("iniobj checkdiscr dsym_606__CLASS_SOURCE_DEFCLASS", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_606__CLASS_SOURCE_DEFCLASS.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_606__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067;
+  cdat->dsym_606__CLASS_SOURCE_DEFCLASS.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_606__CLASS_SOURCE_DEFCLASS));
+ 
+ /*inistring dstr_607__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V747*/ curfptr[746] = (void*)&cdat->dstr_607__CLASS_SOURCE_DEF;
+  cdat->dstr_607__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_607__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof(cdat->dstr_607__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_608__CLASS_SEXPR*/
+ if (!/*_.VALDATA___V748*/ curfptr[747]) /*_.VALDATA___V748*/ curfptr[747] = (void*)&cdat->dsym_608__CLASS_SEXPR;
+  melt_assertmsg("iniobj checkdiscr dsym_608__CLASS_SEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_608__CLASS_SEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_608__CLASS_SEXPR.obj_hash = 53411612;
+  cdat->dsym_608__CLASS_SEXPR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_608__CLASS_SEXPR));
+ 
+ /*inistring dstr_609__CLASS_SEXPR*/
+ /*_.VALSTR___V749*/ curfptr[748] = (void*)&cdat->dstr_609__CLASS_SEXPR;
+  cdat->dstr_609__CLASS_SEXPR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_609__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof(cdat->dstr_609__CLASS_SEXPR.val)-1);
+ 
+ /*iniobj dsym_610__CLASS_CLASS_BINDING*/
+ if (!/*_.VALDATA___V750*/ curfptr[749]) /*_.VALDATA___V750*/ curfptr[749] = (void*)&cdat->dsym_610__CLASS_CLASS_BINDING;
+  melt_assertmsg("iniobj checkdiscr dsym_610__CLASS_CLASS_BINDING", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_610__CLASS_CLASS_BINDING.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_610__CLASS_CLASS_BINDING.obj_hash = 848133131;
+  cdat->dsym_610__CLASS_CLASS_BINDING.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_610__CLASS_CLASS_BINDING));
+ 
+ /*inistring dstr_611__CLASS_CLASS_BIND*/
+ /*_.VALSTR___V751*/ curfptr[750] = (void*)&cdat->dstr_611__CLASS_CLASS_BIND;
+  cdat->dstr_611__CLASS_CLASS_BIND.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_611__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof(cdat->dstr_611__CLASS_CLASS_BIND.val)-1);
+ 
+ /*iniobj dsym_612__CLASS_SOURCE_DEFSELECTOR*/
+ if (!/*_.VALDATA___V752*/ curfptr[751]) /*_.VALDATA___V752*/ curfptr[751] = (void*)&cdat->dsym_612__CLASS_SOURCE_DEFSELECTOR;
+  melt_assertmsg("iniobj checkdiscr dsym_612__CLASS_SOURCE_DEFSELECTOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_612__CLASS_SOURCE_DEFSELECTOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_612__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050;
+  cdat->dsym_612__CLASS_SOURCE_DEFSELECTOR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_612__CLASS_SOURCE_DEFSELECTOR));
+ 
+ /*inistring dstr_613__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V753*/ curfptr[752] = (void*)&cdat->dstr_613__CLASS_SOURCE_DEF;
+  cdat->dstr_613__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_613__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof(cdat->dstr_613__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_614__CLASS_SOURCE_DEFINSTANCE*/
+ if (!/*_.VALDATA___V754*/ curfptr[753]) /*_.VALDATA___V754*/ curfptr[753] = (void*)&cdat->dsym_614__CLASS_SOURCE_DEFINSTANCE;
+  melt_assertmsg("iniobj checkdiscr dsym_614__CLASS_SOURCE_DEFINSTANCE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_614__CLASS_SOURCE_DEFINSTANCE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_614__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906;
+  cdat->dsym_614__CLASS_SOURCE_DEFINSTANCE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_614__CLASS_SOURCE_DEFINSTANCE));
+ 
+ /*inistring dstr_615__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V755*/ curfptr[754] = (void*)&cdat->dstr_615__CLASS_SOURCE_DEF;
+  cdat->dstr_615__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_615__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof(cdat->dstr_615__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_616__CLASS_SOURCE_DEFPRIMITIVE*/
+ if (!/*_.VALDATA___V756*/ curfptr[755]) /*_.VALDATA___V756*/ curfptr[755] = (void*)&cdat->dsym_616__CLASS_SOURCE_DEFPRIMITIVE;
+  melt_assertmsg("iniobj checkdiscr dsym_616__CLASS_SOURCE_DEFPRIMITIVE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_616__CLASS_SOURCE_DEFPRIMITIVE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_616__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180;
+  cdat->dsym_616__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_616__CLASS_SOURCE_DEFPRIMITIVE));
+ 
+ /*inistring dstr_617__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V757*/ curfptr[756] = (void*)&cdat->dstr_617__CLASS_SOURCE_DEF;
+  cdat->dstr_617__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_617__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof(cdat->dstr_617__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_618__CLASS_SOURCE_DEFUN*/
+ if (!/*_.VALDATA___V758*/ curfptr[757]) /*_.VALDATA___V758*/ curfptr[757] = (void*)&cdat->dsym_618__CLASS_SOURCE_DEFUN;
+  melt_assertmsg("iniobj checkdiscr dsym_618__CLASS_SOURCE_DEFUN", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_618__CLASS_SOURCE_DEFUN.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_618__CLASS_SOURCE_DEFUN.obj_hash = 872711296;
+  cdat->dsym_618__CLASS_SOURCE_DEFUN.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_618__CLASS_SOURCE_DEFUN));
+ 
+ /*inistring dstr_619__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V759*/ curfptr[758] = (void*)&cdat->dstr_619__CLASS_SOURCE_DEF;
+  cdat->dstr_619__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_619__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof(cdat->dstr_619__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_620__CLASS_SOURCE_DEFCITERATOR*/
+ if (!/*_.VALDATA___V760*/ curfptr[759]) /*_.VALDATA___V760*/ curfptr[759] = (void*)&cdat->dsym_620__CLASS_SOURCE_DEFCITERATOR;
+  melt_assertmsg("iniobj checkdiscr dsym_620__CLASS_SOURCE_DEFCITERATOR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_620__CLASS_SOURCE_DEFCITERATOR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_620__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495;
+  cdat->dsym_620__CLASS_SOURCE_DEFCITERATOR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_620__CLASS_SOURCE_DEFCITERATOR));
+ 
+ /*inistring dstr_621__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V761*/ curfptr[760] = (void*)&cdat->dstr_621__CLASS_SOURCE_DEF;
+  cdat->dstr_621__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_621__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof(cdat->dstr_621__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_622__CLASS_SOURCE_DEFCMATCHER*/
+ if (!/*_.VALDATA___V762*/ curfptr[761]) /*_.VALDATA___V762*/ curfptr[761] = (void*)&cdat->dsym_622__CLASS_SOURCE_DEFCMATCHER;
+  melt_assertmsg("iniobj checkdiscr dsym_622__CLASS_SOURCE_DEFCMATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_622__CLASS_SOURCE_DEFCMATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_622__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266;
+  cdat->dsym_622__CLASS_SOURCE_DEFCMATCHER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_622__CLASS_SOURCE_DEFCMATCHER));
+ 
+ /*inistring dstr_623__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V763*/ curfptr[762] = (void*)&cdat->dstr_623__CLASS_SOURCE_DEF;
+  cdat->dstr_623__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_623__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof(cdat->dstr_623__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*iniobj dsym_624__CLASS_SOURCE_EXPORT_PATMACRO*/
+ if (!/*_.VALDATA___V764*/ curfptr[763]) /*_.VALDATA___V764*/ curfptr[763] = (void*)&cdat->dsym_624__CLASS_SOURCE_EXPORT_PATMACRO;
+  melt_assertmsg("iniobj checkdiscr dsym_624__CLASS_SOURCE_EXPORT_PATMACRO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_624__CLASS_SOURCE_EXPORT_PATMACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_624__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453;
+  cdat->dsym_624__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_624__CLASS_SOURCE_EXPORT_PATMACRO));
+ 
+ /*inistring dstr_625__CLASS_SOURCE_EXP*/
+ /*_.VALSTR___V765*/ curfptr[764] = (void*)&cdat->dstr_625__CLASS_SOURCE_EXP;
+  cdat->dstr_625__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_625__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof(cdat->dstr_625__CLASS_SOURCE_EXP.val)-1);
+ 
+ /*iniobj dsym_626__CLASS_SOURCE_EXPORT_MACRO*/
+ if (!/*_.VALDATA___V766*/ curfptr[765]) /*_.VALDATA___V766*/ curfptr[765] = (void*)&cdat->dsym_626__CLASS_SOURCE_EXPORT_MACRO;
+  melt_assertmsg("iniobj checkdiscr dsym_626__CLASS_SOURCE_EXPORT_MACRO", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_626__CLASS_SOURCE_EXPORT_MACRO.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_626__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420;
+  cdat->dsym_626__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_626__CLASS_SOURCE_EXPORT_MACRO));
+ 
+ /*inistring dstr_627__CLASS_SOURCE_EXP*/
+ /*_.VALSTR___V767*/ curfptr[766] = (void*)&cdat->dstr_627__CLASS_SOURCE_EXP;
+  cdat->dstr_627__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_627__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof(cdat->dstr_627__CLASS_SOURCE_EXP.val)-1);
+ 
+ /*inirout drout_628__MAKEDOC_OUTDEFLOC*/
+ /*_.VALROUT___V768*/ curfptr[767] = (void*)&cdat->drout_628__MAKEDOC_OUTDEFLOC;
+  cdat->drout_628__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_628__MAKEDOC_OUTDEFLOC.routdescr, "MAKEDOC_OUTDEFLOC @warmelt-outobj.melt:3625",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_628__MAKEDOC_OUTDEFLOC.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_628__MAKEDOC_OUTDEFLOC, meltrout_135_warmelt_outobj_MAKEDOC_OUTDEFLOC);
+ 
+ /*iniclos dclo_629__MAKEDOC_OUTDEFLOC*/
+ /*_.VALCLO___V769*/ curfptr[768] = (void*)&cdat->dclo_629__MAKEDOC_OUTDEFLOC;
+  cdat->dclo_629__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_629__MAKEDOC_OUTDEFLOC.nbval = 0;
+ 
+ /*inirout drout_630__MAKEDOC_OUTFORMALS*/
+ /*_.VALROUT___V770*/ curfptr[769] = (void*)&cdat->drout_630__MAKEDOC_OUTFORMALS;
+  cdat->drout_630__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_630__MAKEDOC_OUTFORMALS.routdescr, "MAKEDOC_OUTFORMALS @warmelt-outobj.melt:3639",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_630__MAKEDOC_OUTFORMALS.nbval = 4;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_630__MAKEDOC_OUTFORMALS, meltrout_136_warmelt_outobj_MAKEDOC_OUTFORMALS);
+ 
+ /*iniclos dclo_631__MAKEDOC_OUTFORMALS*/
+ /*_.VALCLO___V771*/ curfptr[770] = (void*)&cdat->dclo_631__MAKEDOC_OUTFORMALS;
+  cdat->dclo_631__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_631__MAKEDOC_OUTFORMALS.nbval = 0;
+ 
+ /*inirout drout_632__MAKEDOC_OUTDOC*/
+ /*_.VALROUT___V772*/ curfptr[771] = (void*)&cdat->drout_632__MAKEDOC_OUTDOC;
+  cdat->drout_632__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_632__MAKEDOC_OUTDOC.routdescr, "MAKEDOC_OUTDOC @warmelt-outobj.melt:3679",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_632__MAKEDOC_OUTDOC.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_632__MAKEDOC_OUTDOC, meltrout_137_warmelt_outobj_MAKEDOC_OUTDOC);
+ 
+ /*iniclos dclo_633__MAKEDOC_OUTDOC*/
+ /*_.VALCLO___V773*/ curfptr[772] = (void*)&cdat->dclo_633__MAKEDOC_OUTDOC;
+  cdat->dclo_633__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_633__MAKEDOC_OUTDOC.nbval = 0;
+ 
+ /*inirout drout_634__MAKEDOC_OUTCLASSDEF*/
+ /*_.VALROUT___V774*/ curfptr[773] = (void*)&cdat->drout_634__MAKEDOC_OUTCLASSDEF;
+  cdat->drout_634__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_634__MAKEDOC_OUTCLASSDEF.routdescr, "MAKEDOC_OUTCLASSDEF @warmelt-outobj.melt:3715",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_634__MAKEDOC_OUTCLASSDEF.nbval = 13;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_634__MAKEDOC_OUTCLASSDEF, meltrout_138_warmelt_outobj_MAKEDOC_OUTCLASSDEF);
+ 
+ /*iniclos dclo_635__MAKEDOC_OUTCLASSDEF*/
+ /*_.VALCLO___V775*/ curfptr[774] = (void*)&cdat->dclo_635__MAKEDOC_OUTCLASSDEF;
+  cdat->dclo_635__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_635__MAKEDOC_OUTCLASSDEF.nbval = 0;
+ 
+ /*inirout drout_636__MAKEDOC_GENMACRO*/
+ /*_.VALROUT___V776*/ curfptr[775] = (void*)&cdat->drout_636__MAKEDOC_GENMACRO;
+  cdat->drout_636__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_636__MAKEDOC_GENMACRO.routdescr, "MAKEDOC_GENMACRO @warmelt-outobj.melt:3840",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_636__MAKEDOC_GENMACRO.nbval = 9;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_636__MAKEDOC_GENMACRO, meltrout_139_warmelt_outobj_MAKEDOC_GENMACRO);
+ 
+ /*iniclos dclo_637__MAKEDOC_GENMACRO*/
+ /*_.VALCLO___V777*/ curfptr[776] = (void*)&cdat->dclo_637__MAKEDOC_GENMACRO;
+  cdat->dclo_637__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_637__MAKEDOC_GENMACRO.nbval = 0;
+ 
+ /*inirout drout_638__MAKEDOC_GENPATMACRO*/
+ /*_.VALROUT___V778*/ curfptr[777] = (void*)&cdat->drout_638__MAKEDOC_GENPATMACRO;
+  cdat->drout_638__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_638__MAKEDOC_GENPATMACRO.routdescr, "MAKEDOC_GENPATMACRO @warmelt-outobj.melt:3894",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_638__MAKEDOC_GENPATMACRO.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_638__MAKEDOC_GENPATMACRO, meltrout_140_warmelt_outobj_MAKEDOC_GENPATMACRO);
+ 
+ /*iniclos dclo_639__MAKEDOC_GENPATMACRO*/
+ /*_.VALCLO___V779*/ curfptr[778] = (void*)&cdat->dclo_639__MAKEDOC_GENPATMACRO;
+  cdat->dclo_639__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_639__MAKEDOC_GENPATMACRO.nbval = 0;
+ 
+ /*inirout drout_640__MAKEDOC_GENCLASS*/
+ /*_.VALROUT___V780*/ curfptr[779] = (void*)&cdat->drout_640__MAKEDOC_GENCLASS;
+  cdat->drout_640__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_640__MAKEDOC_GENCLASS.routdescr, "MAKEDOC_GENCLASS @warmelt-outobj.melt:3949",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_640__MAKEDOC_GENCLASS.nbval = 21;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_640__MAKEDOC_GENCLASS, meltrout_141_warmelt_outobj_MAKEDOC_GENCLASS);
+ 
+ /*iniclos dclo_641__MAKEDOC_GENCLASS*/
+ /*_.VALCLO___V788*/ curfptr[787] = (void*)&cdat->dclo_641__MAKEDOC_GENCLASS;
+  cdat->dclo_641__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_641__MAKEDOC_GENCLASS.nbval = 0;
+ 
+ /*iniboxint dint_642__*/
+ /*_.VALBXINT___V781*/ curfptr[780] = (void*)&cdat->dint_642__;
+  cdat->dint_642__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_642__.val = 1;
+ 
+ /*iniboxint dint_643__*/
+ /*_.VALBXINT___V782*/ curfptr[781] = (void*)&cdat->dint_643__;
+  cdat->dint_643__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_643__.val = 0;
+ 
+ /*iniboxint dint_644__*/
+ /*_.VALBXINT___V783*/ curfptr[782] = (void*)&cdat->dint_644__;
+  cdat->dint_644__.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CONSTANT_INTEGER))));
+  cdat->dint_644__.val = -1;
+ 
+ /*inirout drout_645__LAMBDA_*/
+ /*_.VALROUT___V784*/ curfptr[783] = (void*)&cdat->drout_645__LAMBDA_;
+  cdat->drout_645__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_645__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3965",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_645__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_645__LAMBDA_, meltrout_142_warmelt_outobj_LAMBDA_);
+ 
+ /*inirout drout_646__LAMBDA_*/
+ /*_.VALROUT___V785*/ curfptr[784] = (void*)&cdat->drout_646__LAMBDA_;
+  cdat->drout_646__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_646__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:3970",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_646__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_646__LAMBDA_, meltrout_143_warmelt_outobj_LAMBDA_);
+ 
+ /*inirout drout_647__LAMBDA_*/
+ /*_.VALROUT___V786*/ curfptr[785] = (void*)&cdat->drout_647__LAMBDA_;
+  cdat->drout_647__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_647__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:4000",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_647__LAMBDA_.nbval = 1;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_647__LAMBDA_, meltrout_144_warmelt_outobj_LAMBDA_);
+ 
+ /*inirout drout_648__LAMBDA_*/
+ /*_.VALROUT___V787*/ curfptr[786] = (void*)&cdat->drout_648__LAMBDA_;
+  cdat->drout_648__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_648__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:4023",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_648__LAMBDA_.nbval = 3;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_648__LAMBDA_, meltrout_145_warmelt_outobj_LAMBDA_);
+ 
+ /*inirout drout_649__MAKEDOC_OUTPRIMITIVEDEF*/
+ /*_.VALROUT___V789*/ curfptr[788] = (void*)&cdat->drout_649__MAKEDOC_OUTPRIMITIVEDEF;
+  cdat->drout_649__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_649__MAKEDOC_OUTPRIMITIVEDEF.routdescr, "MAKEDOC_OUTPRIMITIVEDEF @warmelt-outobj.melt:4076",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_649__MAKEDOC_OUTPRIMITIVEDEF.nbval = 9;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_649__MAKEDOC_OUTPRIMITIVEDEF, meltrout_146_warmelt_outobj_MAKEDOC_OUTPRIMITIVEDEF);
+ 
+ /*iniclos dclo_650__MAKEDOC_OUTPRIMITIVEDEF*/
+ /*_.VALCLO___V790*/ curfptr[789] = (void*)&cdat->dclo_650__MAKEDOC_OUTPRIMITIVEDEF;
+  cdat->dclo_650__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_650__MAKEDOC_OUTPRIMITIVEDEF.nbval = 0;
+ 
+ /*iniobj dsym_651__CLASS_SOURCE_DEFINITION_FORMAL*/
+ if (!/*_.VALDATA___V791*/ curfptr[790]) /*_.VALDATA___V791*/ curfptr[790] = (void*)&cdat->dsym_651__CLASS_SOURCE_DEFINITION_FORMAL;
+  melt_assertmsg("iniobj checkdiscr dsym_651__CLASS_SOURCE_DEFINITION_FORMAL", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_651__CLASS_SOURCE_DEFINITION_FORMAL.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_651__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028;
+  cdat->dsym_651__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_651__CLASS_SOURCE_DEFINITION_FORMAL));
+ 
+ /*inistring dstr_652__CLASS_SOURCE_DEF*/
+ /*_.VALSTR___V792*/ curfptr[791] = (void*)&cdat->dstr_652__CLASS_SOURCE_DEF;
+  cdat->dstr_652__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_652__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof(cdat->dstr_652__CLASS_SOURCE_DEF.val)-1);
+ 
+ /*inirout drout_653__MAKEDOC_GENPRIMITIVE*/
+ /*_.VALROUT___V793*/ curfptr[792] = (void*)&cdat->drout_653__MAKEDOC_GENPRIMITIVE;
+  cdat->drout_653__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_653__MAKEDOC_GENPRIMITIVE.routdescr, "MAKEDOC_GENPRIMITIVE @warmelt-outobj.melt:4106",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_653__MAKEDOC_GENPRIMITIVE.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_653__MAKEDOC_GENPRIMITIVE, meltrout_147_warmelt_outobj_MAKEDOC_GENPRIMITIVE);
+ 
+ /*iniclos dclo_654__MAKEDOC_GENPRIMITIVE*/
+ /*_.VALCLO___V794*/ curfptr[793] = (void*)&cdat->dclo_654__MAKEDOC_GENPRIMITIVE;
+  cdat->dclo_654__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_654__MAKEDOC_GENPRIMITIVE.nbval = 0;
+ 
+ /*inirout drout_655__MAKEDOC_OUTFUNCTIONDEF*/
+ /*_.VALROUT___V795*/ curfptr[794] = (void*)&cdat->drout_655__MAKEDOC_OUTFUNCTIONDEF;
+  cdat->drout_655__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_655__MAKEDOC_OUTFUNCTIONDEF.routdescr, "MAKEDOC_OUTFUNCTIONDEF @warmelt-outobj.melt:4135",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_655__MAKEDOC_OUTFUNCTIONDEF.nbval = 8;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_655__MAKEDOC_OUTFUNCTIONDEF, meltrout_148_warmelt_outobj_MAKEDOC_OUTFUNCTIONDEF);
+ 
+ /*iniclos dclo_656__MAKEDOC_OUTFUNCTIONDEF*/
+ /*_.VALCLO___V796*/ curfptr[795] = (void*)&cdat->dclo_656__MAKEDOC_OUTFUNCTIONDEF;
+  cdat->dclo_656__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_656__MAKEDOC_OUTFUNCTIONDEF.nbval = 0;
+ 
+ /*inirout drout_657__MAKEDOC_GENFUNCTION*/
+ /*_.VALROUT___V797*/ curfptr[796] = (void*)&cdat->drout_657__MAKEDOC_GENFUNCTION;
+  cdat->drout_657__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_657__MAKEDOC_GENFUNCTION.routdescr, "MAKEDOC_GENFUNCTION @warmelt-outobj.melt:4160",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_657__MAKEDOC_GENFUNCTION.nbval = 6;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_657__MAKEDOC_GENFUNCTION, meltrout_149_warmelt_outobj_MAKEDOC_GENFUNCTION);
+ 
+ /*iniclos dclo_658__MAKEDOC_GENFUNCTION*/
+ /*_.VALCLO___V798*/ curfptr[797] = (void*)&cdat->dclo_658__MAKEDOC_GENFUNCTION;
+  cdat->dclo_658__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_658__MAKEDOC_GENFUNCTION.nbval = 0;
+ 
+ /*inirout drout_659__MAKEDOC_GENCITERATOR*/
+ /*_.VALROUT___V799*/ curfptr[798] = (void*)&cdat->drout_659__MAKEDOC_GENCITERATOR;
+  cdat->drout_659__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_659__MAKEDOC_GENCITERATOR.routdescr, "MAKEDOC_GENCITERATOR @warmelt-outobj.melt:4189",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_659__MAKEDOC_GENCITERATOR.nbval = 13;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_659__MAKEDOC_GENCITERATOR, meltrout_150_warmelt_outobj_MAKEDOC_GENCITERATOR);
+ 
+ /*iniclos dclo_660__MAKEDOC_GENCITERATOR*/
+ /*_.VALCLO___V800*/ curfptr[799] = (void*)&cdat->dclo_660__MAKEDOC_GENCITERATOR;
+  cdat->dclo_660__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_660__MAKEDOC_GENCITERATOR.nbval = 0;
+ 
+ /*inirout drout_661__MAKEDOC_GENCMATCHER*/
+ /*_.VALROUT___V801*/ curfptr[800] = (void*)&cdat->drout_661__MAKEDOC_GENCMATCHER;
+  cdat->drout_661__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_661__MAKEDOC_GENCMATCHER.routdescr, "MAKEDOC_GENCMATCHER @warmelt-outobj.melt:4243",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_661__MAKEDOC_GENCMATCHER.nbval = 15;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_661__MAKEDOC_GENCMATCHER, meltrout_151_warmelt_outobj_MAKEDOC_GENCMATCHER);
+ 
+ /*iniclos dclo_662__MAKEDOC_GENCMATCHER*/
+ /*_.VALCLO___V802*/ curfptr[801] = (void*)&cdat->dclo_662__MAKEDOC_GENCMATCHER;
+  cdat->dclo_662__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_662__MAKEDOC_GENCMATCHER.nbval = 0;
+ 
+ /*iniobj dsym_663__CLASS_ANY_MATCHER*/
+ if (!/*_.VALDATA___V803*/ curfptr[802]) /*_.VALDATA___V803*/ curfptr[802] = (void*)&cdat->dsym_663__CLASS_ANY_MATCHER;
+  melt_assertmsg("iniobj checkdiscr dsym_663__CLASS_ANY_MATCHER", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_663__CLASS_ANY_MATCHER.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_663__CLASS_ANY_MATCHER.obj_hash = 781265508;
+  cdat->dsym_663__CLASS_ANY_MATCHER.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_663__CLASS_ANY_MATCHER));
+ 
+ /*inistring dstr_664__CLASS_ANY_MATCHE*/
+ /*_.VALSTR___V804*/ curfptr[803] = (void*)&cdat->dstr_664__CLASS_ANY_MATCHE;
+  cdat->dstr_664__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_664__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof(cdat->dstr_664__CLASS_ANY_MATCHE.val)-1);
+ 
+ /*inirout drout_665__MAKEDOC_GENOUTPUT*/
+ /*_.VALROUT___V805*/ curfptr[804] = (void*)&cdat->drout_665__MAKEDOC_GENOUTPUT;
+  cdat->drout_665__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_665__MAKEDOC_GENOUTPUT.routdescr, "MAKEDOC_GENOUTPUT @warmelt-outobj.melt:4311",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_665__MAKEDOC_GENOUTPUT.nbval = 10;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_665__MAKEDOC_GENOUTPUT, meltrout_152_warmelt_outobj_MAKEDOC_GENOUTPUT);
+ 
+ /*iniclos dclo_666__MAKEDOC_GENOUTPUT*/
+ /*_.VALCLO___V806*/ curfptr[805] = (void*)&cdat->dclo_666__MAKEDOC_GENOUTPUT;
+  cdat->dclo_666__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_666__MAKEDOC_GENOUTPUT.nbval = 0;
+ 
+ /*inirout drout_667__MAKEDOC_DOCMD*/
+ /*_.VALROUT___V807*/ curfptr[806] = (void*)&cdat->drout_667__MAKEDOC_DOCMD;
+  cdat->drout_667__MAKEDOC_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_667__MAKEDOC_DOCMD.routdescr, "MAKEDOC_DOCMD @warmelt-outobj.melt:4374",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_667__MAKEDOC_DOCMD.nbval = 14;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_667__MAKEDOC_DOCMD, meltrout_153_warmelt_outobj_MAKEDOC_DOCMD);
+ 
+ /*iniclos dclo_668__MAKEDOC_DOCMD*/
+ /*_.VALCLO___V809*/ curfptr[808] = (void*)&cdat->dclo_668__MAKEDOC_DOCMD;
+  cdat->dclo_668__MAKEDOC_DOCMD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE))));
+  cdat->dclo_668__MAKEDOC_DOCMD.nbval = 0;
+ 
+ /*inirout drout_669__LAMBDA_*/
+ /*_.VALROUT___V808*/ curfptr[807] = (void*)&cdat->drout_669__LAMBDA_;
+  cdat->drout_669__LAMBDA_.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_ROUTINE))));
+  strncpy(cdat->drout_669__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:4406",  MELT_ROUTDESCR_LEN - 1);
+  cdat->drout_669__LAMBDA_.nbval = 2;
+ MELT_ROUTINE_SET_ROUTCODE(&cdat->drout_669__LAMBDA_, meltrout_154_warmelt_outobj_LAMBDA_);
+ 
+ /*iniobj dsym_670__MAKEDOC_MODE*/
+ if (!/*_.VALDATA___V810*/ curfptr[809]) /*_.VALDATA___V810*/ curfptr[809] = (void*)&cdat->dsym_670__MAKEDOC_MODE;
+  melt_assertmsg("iniobj checkdiscr dsym_670__MAKEDOC_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_670__MAKEDOC_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_670__MAKEDOC_MODE.obj_hash = 10698116;
+  cdat->dsym_670__MAKEDOC_MODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_670__MAKEDOC_MODE));
+ 
+ /*inistring dstr_671__MAKEDOC_MODE*/
+ /*_.VALSTR___V811*/ curfptr[810] = (void*)&cdat->dstr_671__MAKEDOC_MODE;
+  cdat->dstr_671__MAKEDOC_MODE.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_671__MAKEDOC_MODE.val, "MAKEDOC_MODE", sizeof(cdat->dstr_671__MAKEDOC_MODE.val)-1);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:4425:/ iniobj");
+ /*iniobj dobj_672__MAKEDOC_MODE*/
+ if (!/*_.VALDATA___V812*/ curfptr[811]) /*_.VALDATA___V812*/ curfptr[811] = (void*)&cdat->dobj_672__MAKEDOC_MODE;
+  melt_assertmsg("iniobj checkdiscr dobj_672__MAKEDOC_MODE", NULL != (void*)/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_672__MAKEDOC_MODE.obj_class = (meltobject_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+  cdat->dobj_672__MAKEDOC_MODE.obj_hash = 81992748;
+  cdat->dobj_672__MAKEDOC_MODE.obj_len = 5;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dobj_672__MAKEDOC_MODE));
+ 
+ /*inistring dstr_673__makedoc*/
+ /*_.VALSTR___V813*/ curfptr[812] = (void*)&cdat->dstr_673__makedoc;
+  cdat->dstr_673__makedoc.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_673__makedoc.val, "makedoc", sizeof(cdat->dstr_673__makedoc.val)-1);
+ 
+ /*inistring dstr_674__MELT_makedoc_m*/
+ /*_.VALSTR___V814*/ curfptr[813] = (void*)&cdat->dstr_674__MELT_makedoc_m;
+  cdat->dstr_674__MELT_makedoc_m.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_674__MELT_makedoc_m.val, "MELT \'makedoc\' mode: ARGLIST= input file, ...; OUTPUT= generated file", sizeof(cdat->dstr_674__MELT_makedoc_m.val)-1);
+ 
+ /*iniobj dsym_675__COMPILE_LIST_SEXPR*/
+ if (!/*_.VALDATA___V815*/ curfptr[814]) /*_.VALDATA___V815*/ curfptr[814] = (void*)&cdat->dsym_675__COMPILE_LIST_SEXPR;
+  melt_assertmsg("iniobj checkdiscr dsym_675__COMPILE_LIST_SEXPR", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_675__COMPILE_LIST_SEXPR.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_675__COMPILE_LIST_SEXPR.obj_hash = 346985953;
+  cdat->dsym_675__COMPILE_LIST_SEXPR.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_675__COMPILE_LIST_SEXPR));
+ 
+ /*inistring dstr_676__COMPILE_LIST_SEX*/
+ /*_.VALSTR___V816*/ curfptr[815] = (void*)&cdat->dstr_676__COMPILE_LIST_SEX;
+  cdat->dstr_676__COMPILE_LIST_SEX.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_676__COMPILE_LIST_SEX.val, "COMPILE_LIST_SEXPR", sizeof(cdat->dstr_676__COMPILE_LIST_SEX.val)-1);
+ 
+ /*iniobj dsym_677__INSTALL_MELT_MODE*/
+ if (!/*_.VALDATA___V817*/ curfptr[816]) /*_.VALDATA___V817*/ curfptr[816] = (void*)&cdat->dsym_677__INSTALL_MELT_MODE;
+  melt_assertmsg("iniobj checkdiscr dsym_677__INSTALL_MELT_MODE", NULL != (void*)((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_677__INSTALL_MELT_MODE.obj_class = (meltobject_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL))));
+  cdat->dsym_677__INSTALL_MELT_MODE.obj_hash = 537139430;
+  cdat->dsym_677__INSTALL_MELT_MODE.obj_len = 3;
+melt_object_set_serial((meltobject_ptr_t) (&cdat->dsym_677__INSTALL_MELT_MODE));
+ 
+ /*inistring dstr_678__INSTALL_MELT_MOD*/
+ /*_.VALSTR___V818*/ curfptr[817] = (void*)&cdat->dstr_678__INSTALL_MELT_MOD;
+  cdat->dstr_678__INSTALL_MELT_MOD.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_STRING))));
+  strncpy(cdat->dstr_678__INSTALL_MELT_MOD.val, "INSTALL_MELT_MODE", sizeof(cdat->dstr_678__INSTALL_MELT_MOD.val)-1);
   cdat = NULL;
  melt_prohibit_garbcoll = FALSE;
 
@@ -55802,7 +15753,7 @@ void* start_module_melt(void* modargp_) {
 
 initial_frame_st     curfram__;
   memset(&curfram__, 0, sizeof(curfram__));
- curfram__.nbvar = 867;
+ curfram__.nbvar = 897;
  curfram__.prev = (struct callframe_melt_st *) melt_topframe;
  melt_topframe = (struct callframe_melt_st *) &curfram__;
 /**initial routine prologue**/
@@ -56341,305 +16292,335 @@ initial_frame_st     curfram__;
   if (sy_SECFIL_IMPLBUF && NULL == /*_.VALDATA___V554*/ curfptr[553])
   /*_.VALDATA___V554*/ curfptr[553] = (void*) sy_SECFIL_IMPLBUF; }
  
+ /*getnamedsym:GENERATED_C_FILENAME*/
+ if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_GENERATED_C_FILENAME = meltgc_named_symbol("GENERATED_C_FILENAME", MELT_GET);
+  if (sy_GENERATED_C_FILENAME && NULL == /*_.VALDATA___V556*/ curfptr[555])
+  /*_.VALDATA___V556*/ curfptr[555] = (void*) sy_GENERATED_C_FILENAME; }
+ 
+ /*getnamedsym:DISCR*/
+ if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR = meltgc_named_symbol("DISCR", MELT_GET);
+  if (sy_DISCR && NULL == /*_.VALDATA___V561*/ curfptr[560])
+  /*_.VALDATA___V561*/ curfptr[560] = (void*) sy_DISCR; }
+ 
+ /*getnamedsym:BASE*/
+ if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_BASE = meltgc_named_symbol("BASE", MELT_GET);
+  if (sy_BASE && NULL == /*_.VALDATA___V564*/ curfptr[563])
+  /*_.VALDATA___V564*/ curfptr[563] = (void*) sy_BASE; }
+ 
+ /*getnamedsym:DIR*/
+ if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DIR = meltgc_named_symbol("DIR", MELT_GET);
+  if (sy_DIR && NULL == /*_.VALDATA___V567*/ curfptr[566])
+  /*_.VALDATA___V567*/ curfptr[566] = (void*) sy_DIR; }
+ 
+ /*getnamedsym:NUM*/
+ if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NUM = meltgc_named_symbol("NUM", MELT_GET);
+  if (sy_NUM && NULL == /*_.VALDATA___V570*/ curfptr[569])
+  /*_.VALDATA___V570*/ curfptr[569] = (void*) sy_NUM; }
+ 
+ /*getnamedsym:WANTS_SINGLE_C_FILE*/
+ if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_WANTS_SINGLE_C_FILE = meltgc_named_symbol("WANTS_SINGLE_C_FILE", MELT_GET);
+  if (sy_WANTS_SINGLE_C_FILE && NULL == /*_.VALDATA___V579*/ curfptr[578])
+  /*_.VALDATA___V579*/ curfptr[578] = (void*) sy_WANTS_SINGLE_C_FILE; }
+ 
  /*getnamedsym:CLASS_ENVIRONMENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_ENVIRONMENT = meltgc_named_symbol("CLASS_ENVIRONMENT", MELT_GET);
-  if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V563*/ curfptr[562])
-  /*_.VALDATA___V563*/ curfptr[562] = (void*) sy_CLASS_ENVIRONMENT; }
+  if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V593*/ curfptr[592])
+  /*_.VALDATA___V593*/ curfptr[592] = (void*) sy_CLASS_ENVIRONMENT; }
  
  /*getnamedsym:DISCR_MAP_STRINGS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_STRINGS = meltgc_named_symbol("DISCR_MAP_STRINGS", MELT_GET);
-  if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V565*/ curfptr[564])
-  /*_.VALDATA___V565*/ curfptr[564] = (void*) sy_DISCR_MAP_STRINGS; }
+  if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V595*/ curfptr[594])
+  /*_.VALDATA___V595*/ curfptr[594] = (void*) sy_DISCR_MAP_STRINGS; }
  
  /*getnamedsym:CREATE_NORMCONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CREATE_NORMCONTEXT = meltgc_named_symbol("CREATE_NORMCONTEXT", MELT_GET);
-  if (sy_CREATE_NORMCONTEXT && NULL == /*_.VALDATA___V567*/ curfptr[566])
-  /*_.VALDATA___V567*/ curfptr[566] = (void*) sy_CREATE_NORMCONTEXT; }
+  if (sy_CREATE_NORMCONTEXT && NULL == /*_.VALDATA___V597*/ curfptr[596])
+  /*_.VALDATA___V597*/ curfptr[596] = (void*) sy_CREATE_NORMCONTEXT; }
  
  /*getnamedsym:CLASS_NORMALIZATION_CONTEXT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_NORMALIZATION_CONTEXT = meltgc_named_symbol("CLASS_NORMALIZATION_CONTEXT", MELT_GET);
-  if (sy_CLASS_NORMALIZATION_CONTEXT && NULL == /*_.VALDATA___V569*/ curfptr[568])
-  /*_.VALDATA___V569*/ curfptr[568] = (void*) sy_CLASS_NORMALIZATION_CONTEXT; }
+  if (sy_CLASS_NORMALIZATION_CONTEXT && NULL == /*_.VALDATA___V599*/ curfptr[598])
+  /*_.VALDATA___V599*/ curfptr[598] = (void*) sy_CLASS_NORMALIZATION_CONTEXT; }
  
  /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MACROEXPAND_TOPLEVEL_LIST = meltgc_named_symbol("MACROEXPAND_TOPLEVEL_LIST", MELT_GET);
-  if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V571*/ curfptr[570])
-  /*_.VALDATA___V571*/ curfptr[570] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; }
+  if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V601*/ curfptr[600])
+  /*_.VALDATA___V601*/ curfptr[600] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; }
  
  /*getnamedsym:CLASS_SOURCE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE = meltgc_named_symbol("CLASS_SOURCE", MELT_GET);
-  if (sy_CLASS_SOURCE && NULL == /*_.VALDATA___V573*/ curfptr[572])
-  /*_.VALDATA___V573*/ curfptr[572] = (void*) sy_CLASS_SOURCE; }
+  if (sy_CLASS_SOURCE && NULL == /*_.VALDATA___V603*/ curfptr[602])
+  /*_.VALDATA___V603*/ curfptr[602] = (void*) sy_CLASS_SOURCE; }
  
  /*getnamedsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET);
-  if (sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V575*/ curfptr[574])
-  /*_.VALDATA___V575*/ curfptr[574] = (void*) sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; }
+  if (sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V605*/ curfptr[604])
+  /*_.VALDATA___V605*/ curfptr[604] = (void*) sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; }
  
  /*getnamedsym:INITIAL_ENVIRONMENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INITIAL_ENVIRONMENT = meltgc_named_symbol("INITIAL_ENVIRONMENT", MELT_GET);
-  if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V577*/ curfptr[576])
-  /*_.VALDATA___V577*/ curfptr[576] = (void*) sy_INITIAL_ENVIRONMENT; }
+  if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V607*/ curfptr[606])
+  /*_.VALDATA___V607*/ curfptr[606] = (void*) sy_INITIAL_ENVIRONMENT; }
  
  /*getnamedsym:CLASS_NREP_INITPROC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_NREP_INITPROC = meltgc_named_symbol("CLASS_NREP_INITPROC", MELT_GET);
-  if (sy_CLASS_NREP_INITPROC && NULL == /*_.VALDATA___V579*/ curfptr[578])
-  /*_.VALDATA___V579*/ curfptr[578] = (void*) sy_CLASS_NREP_INITPROC; }
+  if (sy_CLASS_NREP_INITPROC && NULL == /*_.VALDATA___V609*/ curfptr[608])
+  /*_.VALDATA___V609*/ curfptr[608] = (void*) sy_CLASS_NREP_INITPROC; }
  
  /*getnamedsym:CLASS_LOCATED*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_LOCATED = meltgc_named_symbol("CLASS_LOCATED", MELT_GET);
-  if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V581*/ curfptr[580])
-  /*_.VALDATA___V581*/ curfptr[580] = (void*) sy_CLASS_LOCATED; }
+  if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V611*/ curfptr[610])
+  /*_.VALDATA___V611*/ curfptr[610] = (void*) sy_CLASS_LOCATED; }
  
  /*getnamedsym:CLASS_SOURCE_COMMENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_COMMENT = meltgc_named_symbol("CLASS_SOURCE_COMMENT", MELT_GET);
-  if (sy_CLASS_SOURCE_COMMENT && NULL == /*_.VALDATA___V583*/ curfptr[582])
-  /*_.VALDATA___V583*/ curfptr[582] = (void*) sy_CLASS_SOURCE_COMMENT; }
+  if (sy_CLASS_SOURCE_COMMENT && NULL == /*_.VALDATA___V613*/ curfptr[612])
+  /*_.VALDATA___V613*/ curfptr[612] = (void*) sy_CLASS_SOURCE_COMMENT; }
  
  /*getnamedsym:NORMAL_EXP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NORMAL_EXP = meltgc_named_symbol("NORMAL_EXP", MELT_GET);
-  if (sy_NORMAL_EXP && NULL == /*_.VALDATA___V585*/ curfptr[584])
-  /*_.VALDATA___V585*/ curfptr[584] = (void*) sy_NORMAL_EXP; }
+  if (sy_NORMAL_EXP && NULL == /*_.VALDATA___V615*/ curfptr[614])
+  /*_.VALDATA___V615*/ curfptr[614] = (void*) sy_NORMAL_EXP; }
  
  /*getnamedsym:CLASS_NREP_ANYPROC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_NREP_ANYPROC = meltgc_named_symbol("CLASS_NREP_ANYPROC", MELT_GET);
-  if (sy_CLASS_NREP_ANYPROC && NULL == /*_.VALDATA___V587*/ curfptr[586])
-  /*_.VALDATA___V587*/ curfptr[586] = (void*) sy_CLASS_NREP_ANYPROC; }
+  if (sy_CLASS_NREP_ANYPROC && NULL == /*_.VALDATA___V617*/ curfptr[616])
+  /*_.VALDATA___V617*/ curfptr[616] = (void*) sy_CLASS_NREP_ANYPROC; }
  
  /*getnamedsym:WRAP_NORMAL_LET1*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_WRAP_NORMAL_LET1 = meltgc_named_symbol("WRAP_NORMAL_LET1", MELT_GET);
-  if (sy_WRAP_NORMAL_LET1 && NULL == /*_.VALDATA___V589*/ curfptr[588])
-  /*_.VALDATA___V589*/ curfptr[588] = (void*) sy_WRAP_NORMAL_LET1; }
+  if (sy_WRAP_NORMAL_LET1 && NULL == /*_.VALDATA___V619*/ curfptr[618])
+  /*_.VALDATA___V619*/ curfptr[618] = (void*) sy_WRAP_NORMAL_LET1; }
  
  /*getnamedsym:DISCR_MAP_OBJECTS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol("DISCR_MAP_OBJECTS", MELT_GET);
-  if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V591*/ curfptr[590])
-  /*_.VALDATA___V591*/ curfptr[590] = (void*) sy_DISCR_MAP_OBJECTS; }
+  if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V621*/ curfptr[620])
+  /*_.VALDATA___V621*/ curfptr[620] = (void*) sy_DISCR_MAP_OBJECTS; }
  
  /*getnamedsym:COMPILE2OBJ_PROCEDURE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_COMPILE2OBJ_PROCEDURE = meltgc_named_symbol("COMPILE2OBJ_PROCEDURE", MELT_GET);
-  if (sy_COMPILE2OBJ_PROCEDURE && NULL == /*_.VALDATA___V593*/ curfptr[592])
-  /*_.VALDATA___V593*/ curfptr[592] = (void*) sy_COMPILE2OBJ_PROCEDURE; }
+  if (sy_COMPILE2OBJ_PROCEDURE && NULL == /*_.VALDATA___V623*/ curfptr[622])
+  /*_.VALDATA___V623*/ curfptr[622] = (void*) sy_COMPILE2OBJ_PROCEDURE; }
  
  /*getnamedsym:COMPILE2OBJ_INITPROC*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_COMPILE2OBJ_INITPROC = meltgc_named_symbol("COMPILE2OBJ_INITPROC", MELT_GET);
-  if (sy_COMPILE2OBJ_INITPROC && NULL == /*_.VALDATA___V595*/ curfptr[594])
-  /*_.VALDATA___V595*/ curfptr[594] = (void*) sy_COMPILE2OBJ_INITPROC; }
+  if (sy_COMPILE2OBJ_INITPROC && NULL == /*_.VALDATA___V625*/ curfptr[624])
+  /*_.VALDATA___V625*/ curfptr[624] = (void*) sy_COMPILE2OBJ_INITPROC; }
  
  /*getnamedsym:MELT_ARGUMENT*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MELT_ARGUMENT = meltgc_named_symbol("MELT_ARGUMENT", MELT_GET);
-  if (sy_MELT_ARGUMENT && NULL == /*_.VALDATA___V597*/ curfptr[596])
-  /*_.VALDATA___V597*/ curfptr[596] = (void*) sy_MELT_ARGUMENT; }
+  if (sy_MELT_ARGUMENT && NULL == /*_.VALDATA___V627*/ curfptr[626])
+  /*_.VALDATA___V627*/ curfptr[626] = (void*) sy_MELT_ARGUMENT; }
  
  /*getnamedsym:NAM*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_NAM = meltgc_named_symbol("NAM", MELT_GET);
-  if (sy_NAM && NULL == /*_.VALDATA___V602*/ curfptr[601])
-  /*_.VALDATA___V602*/ curfptr[601] = (void*) sy_NAM; }
+  if (sy_NAM && NULL == /*_.VALDATA___V632*/ curfptr[631])
+  /*_.VALDATA___V632*/ curfptr[631] = (void*) sy_NAM; }
  
  /*getnamedsym:CLASS_MELT_MODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_MELT_MODE = meltgc_named_symbol("CLASS_MELT_MODE", MELT_GET);
-  if (sy_CLASS_MELT_MODE && NULL == /*_.VALDATA___V610*/ curfptr[609])
-  /*_.VALDATA___V610*/ curfptr[609] = (void*) sy_CLASS_MELT_MODE; }
+  if (sy_CLASS_MELT_MODE && NULL == /*_.VALDATA___V640*/ curfptr[639])
+  /*_.VALDATA___V640*/ curfptr[639] = (void*) sy_CLASS_MELT_MODE; }
  
  /*getnamedsym:INITIAL_SYSTEM_DATA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INITIAL_SYSTEM_DATA = meltgc_named_symbol("INITIAL_SYSTEM_DATA", MELT_GET);
-  if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V612*/ curfptr[611])
-  /*_.VALDATA___V612*/ curfptr[611] = (void*) sy_INITIAL_SYSTEM_DATA; }
+  if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V642*/ curfptr[641])
+  /*_.VALDATA___V642*/ curfptr[641] = (void*) sy_INITIAL_SYSTEM_DATA; }
  
  /*getnamedsym:CLASS_SYSTEM_DATA*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SYSTEM_DATA = meltgc_named_symbol("CLASS_SYSTEM_DATA", MELT_GET);
-  if (sy_CLASS_SYSTEM_DATA && NULL == /*_.VALDATA___V614*/ curfptr[613])
-  /*_.VALDATA___V614*/ curfptr[613] = (void*) sy_CLASS_SYSTEM_DATA; }
+  if (sy_CLASS_SYSTEM_DATA && NULL == /*_.VALDATA___V644*/ curfptr[643])
+  /*_.VALDATA___V644*/ curfptr[643] = (void*) sy_CLASS_SYSTEM_DATA; }
  
  /*getnamedsym:LIST_APPEND2LIST*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_LIST_APPEND2LIST = meltgc_named_symbol("LIST_APPEND2LIST", MELT_GET);
-  if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V618*/ curfptr[617])
-  /*_.VALDATA___V618*/ curfptr[617] = (void*) sy_LIST_APPEND2LIST; }
+  if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V648*/ curfptr[647])
+  /*_.VALDATA___V648*/ curfptr[647] = (void*) sy_LIST_APPEND2LIST; }
  
  /*getnamedsym:TRANSLATEFILE_MODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TRANSLATEFILE_MODE = meltgc_named_symbol("TRANSLATEFILE_MODE", MELT_GET);
-  if (sy_TRANSLATEFILE_MODE && NULL == /*_.VALDATA___V622*/ curfptr[621])
-  /*_.VALDATA___V622*/ curfptr[621] = (void*) sy_TRANSLATEFILE_MODE; }
+  if (sy_TRANSLATEFILE_MODE && NULL == /*_.VALDATA___V652*/ curfptr[651])
+  /*_.VALDATA___V652*/ curfptr[651] = (void*) sy_TRANSLATEFILE_MODE; }
  
  /*getnamedsym:RUNFILE_MODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_RUNFILE_MODE = meltgc_named_symbol("RUNFILE_MODE", MELT_GET);
-  if (sy_RUNFILE_MODE && NULL == /*_.VALDATA___V629*/ curfptr[628])
-  /*_.VALDATA___V629*/ curfptr[628] = (void*) sy_RUNFILE_MODE; }
+  if (sy_RUNFILE_MODE && NULL == /*_.VALDATA___V659*/ curfptr[658])
+  /*_.VALDATA___V659*/ curfptr[658] = (void*) sy_RUNFILE_MODE; }
  
  /*getnamedsym:TRANSLATEINIT_MODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_TRANSLATEINIT_MODE = meltgc_named_symbol("TRANSLATEINIT_MODE", MELT_GET);
-  if (sy_TRANSLATEINIT_MODE && NULL == /*_.VALDATA___V637*/ curfptr[636])
-  /*_.VALDATA___V637*/ curfptr[636] = (void*) sy_TRANSLATEINIT_MODE; }
+  if (sy_TRANSLATEINIT_MODE && NULL == /*_.VALDATA___V667*/ curfptr[666])
+  /*_.VALDATA___V667*/ curfptr[666] = (void*) sy_TRANSLATEINIT_MODE; }
  
  /*getnamedsym:CLASS_MAKEDOC_INFO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_MAKEDOC_INFO = meltgc_named_symbol("CLASS_MAKEDOC_INFO", MELT_GET);
-  if (sy_CLASS_MAKEDOC_INFO && NULL == /*_.VALDATA___V642*/ curfptr[641])
-  /*_.VALDATA___V642*/ curfptr[641] = (void*) sy_CLASS_MAKEDOC_INFO; }
+  if (sy_CLASS_MAKEDOC_INFO && NULL == /*_.VALDATA___V672*/ curfptr[671])
+  /*_.VALDATA___V672*/ curfptr[671] = (void*) sy_CLASS_MAKEDOC_INFO; }
  
  /*getnamedsym:CLASS_PROPED*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_PROPED = meltgc_named_symbol("CLASS_PROPED", MELT_GET);
-  if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V644*/ curfptr[643])
-  /*_.VALDATA___V644*/ curfptr[643] = (void*) sy_CLASS_PROPED; }
+  if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V674*/ curfptr[673])
+  /*_.VALDATA___V674*/ curfptr[673] = (void*) sy_CLASS_PROPED; }
  
  /*getnamedsym:MKDOC_PRIMITIVES*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_PRIMITIVES = meltgc_named_symbol("MKDOC_PRIMITIVES", MELT_GET);
-  if (sy_MKDOC_PRIMITIVES && NULL == /*_.VALDATA___V678*/ curfptr[677])
-  /*_.VALDATA___V678*/ curfptr[677] = (void*) sy_MKDOC_PRIMITIVES; }
+  if (sy_MKDOC_PRIMITIVES && NULL == /*_.VALDATA___V708*/ curfptr[707])
+  /*_.VALDATA___V708*/ curfptr[707] = (void*) sy_MKDOC_PRIMITIVES; }
  
  /*getnamedsym:MKDOC_FUNCTIONS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_FUNCTIONS = meltgc_named_symbol("MKDOC_FUNCTIONS", MELT_GET);
-  if (sy_MKDOC_FUNCTIONS && NULL == /*_.VALDATA___V680*/ curfptr[679])
-  /*_.VALDATA___V680*/ curfptr[679] = (void*) sy_MKDOC_FUNCTIONS; }
+  if (sy_MKDOC_FUNCTIONS && NULL == /*_.VALDATA___V710*/ curfptr[709])
+  /*_.VALDATA___V710*/ curfptr[709] = (void*) sy_MKDOC_FUNCTIONS; }
  
  /*getnamedsym:MKDOC_CITERATORS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_CITERATORS = meltgc_named_symbol("MKDOC_CITERATORS", MELT_GET);
-  if (sy_MKDOC_CITERATORS && NULL == /*_.VALDATA___V682*/ curfptr[681])
-  /*_.VALDATA___V682*/ curfptr[681] = (void*) sy_MKDOC_CITERATORS; }
+  if (sy_MKDOC_CITERATORS && NULL == /*_.VALDATA___V712*/ curfptr[711])
+  /*_.VALDATA___V712*/ curfptr[711] = (void*) sy_MKDOC_CITERATORS; }
  
  /*getnamedsym:MKDOC_CMATCHERS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_CMATCHERS = meltgc_named_symbol("MKDOC_CMATCHERS", MELT_GET);
-  if (sy_MKDOC_CMATCHERS && NULL == /*_.VALDATA___V684*/ curfptr[683])
-  /*_.VALDATA___V684*/ curfptr[683] = (void*) sy_MKDOC_CMATCHERS; }
+  if (sy_MKDOC_CMATCHERS && NULL == /*_.VALDATA___V714*/ curfptr[713])
+  /*_.VALDATA___V714*/ curfptr[713] = (void*) sy_MKDOC_CMATCHERS; }
  
  /*getnamedsym:MKDOC_SELECTORS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_SELECTORS = meltgc_named_symbol("MKDOC_SELECTORS", MELT_GET);
-  if (sy_MKDOC_SELECTORS && NULL == /*_.VALDATA___V686*/ curfptr[685])
-  /*_.VALDATA___V686*/ curfptr[685] = (void*) sy_MKDOC_SELECTORS; }
+  if (sy_MKDOC_SELECTORS && NULL == /*_.VALDATA___V716*/ curfptr[715])
+  /*_.VALDATA___V716*/ curfptr[715] = (void*) sy_MKDOC_SELECTORS; }
  
  /*getnamedsym:MKDOC_FIELDS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_FIELDS = meltgc_named_symbol("MKDOC_FIELDS", MELT_GET);
-  if (sy_MKDOC_FIELDS && NULL == /*_.VALDATA___V688*/ curfptr[687])
-  /*_.VALDATA___V688*/ curfptr[687] = (void*) sy_MKDOC_FIELDS; }
+  if (sy_MKDOC_FIELDS && NULL == /*_.VALDATA___V718*/ curfptr[717])
+  /*_.VALDATA___V718*/ curfptr[717] = (void*) sy_MKDOC_FIELDS; }
  
  /*getnamedsym:MKDOC_CLASSES*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_CLASSES = meltgc_named_symbol("MKDOC_CLASSES", MELT_GET);
-  if (sy_MKDOC_CLASSES && NULL == /*_.VALDATA___V690*/ curfptr[689])
-  /*_.VALDATA___V690*/ curfptr[689] = (void*) sy_MKDOC_CLASSES; }
+  if (sy_MKDOC_CLASSES && NULL == /*_.VALDATA___V720*/ curfptr[719])
+  /*_.VALDATA___V720*/ curfptr[719] = (void*) sy_MKDOC_CLASSES; }
  
  /*getnamedsym:MKDOC_INSTANCES*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_INSTANCES = meltgc_named_symbol("MKDOC_INSTANCES", MELT_GET);
-  if (sy_MKDOC_INSTANCES && NULL == /*_.VALDATA___V692*/ curfptr[691])
-  /*_.VALDATA___V692*/ curfptr[691] = (void*) sy_MKDOC_INSTANCES; }
+  if (sy_MKDOC_INSTANCES && NULL == /*_.VALDATA___V722*/ curfptr[721])
+  /*_.VALDATA___V722*/ curfptr[721] = (void*) sy_MKDOC_INSTANCES; }
  
  /*getnamedsym:MKDOC_MACROS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_MACROS = meltgc_named_symbol("MKDOC_MACROS", MELT_GET);
-  if (sy_MKDOC_MACROS && NULL == /*_.VALDATA___V694*/ curfptr[693])
-  /*_.VALDATA___V694*/ curfptr[693] = (void*) sy_MKDOC_MACROS; }
+  if (sy_MKDOC_MACROS && NULL == /*_.VALDATA___V724*/ curfptr[723])
+  /*_.VALDATA___V724*/ curfptr[723] = (void*) sy_MKDOC_MACROS; }
  
  /*getnamedsym:MKDOC_PATMACROS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_PATMACROS = meltgc_named_symbol("MKDOC_PATMACROS", MELT_GET);
-  if (sy_MKDOC_PATMACROS && NULL == /*_.VALDATA___V696*/ curfptr[695])
-  /*_.VALDATA___V696*/ curfptr[695] = (void*) sy_MKDOC_PATMACROS; }
+  if (sy_MKDOC_PATMACROS && NULL == /*_.VALDATA___V726*/ curfptr[725])
+  /*_.VALDATA___V726*/ curfptr[725] = (void*) sy_MKDOC_PATMACROS; }
  
  /*getnamedsym:MKDOC_FORMALOCCMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_FORMALOCCMAP = meltgc_named_symbol("MKDOC_FORMALOCCMAP", MELT_GET);
-  if (sy_MKDOC_FORMALOCCMAP && NULL == /*_.VALDATA___V698*/ curfptr[697])
-  /*_.VALDATA___V698*/ curfptr[697] = (void*) sy_MKDOC_FORMALOCCMAP; }
+  if (sy_MKDOC_FORMALOCCMAP && NULL == /*_.VALDATA___V728*/ curfptr[727])
+  /*_.VALDATA___V728*/ curfptr[727] = (void*) sy_MKDOC_FORMALOCCMAP; }
  
  /*getnamedsym:MKDOC_PREDEFMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_PREDEFMAP = meltgc_named_symbol("MKDOC_PREDEFMAP", MELT_GET);
-  if (sy_MKDOC_PREDEFMAP && NULL == /*_.VALDATA___V700*/ curfptr[699])
-  /*_.VALDATA___V700*/ curfptr[699] = (void*) sy_MKDOC_PREDEFMAP; }
+  if (sy_MKDOC_PREDEFMAP && NULL == /*_.VALDATA___V730*/ curfptr[729])
+  /*_.VALDATA___V730*/ curfptr[729] = (void*) sy_MKDOC_PREDEFMAP; }
  
  /*getnamedsym:MKDOC_DOCSYMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_DOCSYMAP = meltgc_named_symbol("MKDOC_DOCSYMAP", MELT_GET);
-  if (sy_MKDOC_DOCSYMAP && NULL == /*_.VALDATA___V702*/ curfptr[701])
-  /*_.VALDATA___V702*/ curfptr[701] = (void*) sy_MKDOC_DOCSYMAP; }
+  if (sy_MKDOC_DOCSYMAP && NULL == /*_.VALDATA___V732*/ curfptr[731])
+  /*_.VALDATA___V732*/ curfptr[731] = (void*) sy_MKDOC_DOCSYMAP; }
  
  /*getnamedsym:MKDOC_SUBCLASSMAP*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MKDOC_SUBCLASSMAP = meltgc_named_symbol("MKDOC_SUBCLASSMAP", MELT_GET);
-  if (sy_MKDOC_SUBCLASSMAP && NULL == /*_.VALDATA___V704*/ curfptr[703])
-  /*_.VALDATA___V704*/ curfptr[703] = (void*) sy_MKDOC_SUBCLASSMAP; }
+  if (sy_MKDOC_SUBCLASSMAP && NULL == /*_.VALDATA___V734*/ curfptr[733])
+  /*_.VALDATA___V734*/ curfptr[733] = (void*) sy_MKDOC_SUBCLASSMAP; }
  
  /*getnamedsym:CLASS_SOURCE_DEFINITION*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFINITION = meltgc_named_symbol("CLASS_SOURCE_DEFINITION", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFINITION && NULL == /*_.VALDATA___V712*/ curfptr[711])
-  /*_.VALDATA___V712*/ curfptr[711] = (void*) sy_CLASS_SOURCE_DEFINITION; }
+  if (sy_CLASS_SOURCE_DEFINITION && NULL == /*_.VALDATA___V742*/ curfptr[741])
+  /*_.VALDATA___V742*/ curfptr[741] = (void*) sy_CLASS_SOURCE_DEFINITION; }
  
  /*getnamedsym:CLASS_ANY_BINDING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_ANY_BINDING = meltgc_named_symbol("CLASS_ANY_BINDING", MELT_GET);
-  if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V714*/ curfptr[713])
-  /*_.VALDATA___V714*/ curfptr[713] = (void*) sy_CLASS_ANY_BINDING; }
+  if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V744*/ curfptr[743])
+  /*_.VALDATA___V744*/ curfptr[743] = (void*) sy_CLASS_ANY_BINDING; }
  
  /*getnamedsym:CLASS_SOURCE_DEFCLASS*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFCLASS = meltgc_named_symbol("CLASS_SOURCE_DEFCLASS", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFCLASS && NULL == /*_.VALDATA___V716*/ curfptr[715])
-  /*_.VALDATA___V716*/ curfptr[715] = (void*) sy_CLASS_SOURCE_DEFCLASS; }
+  if (sy_CLASS_SOURCE_DEFCLASS && NULL == /*_.VALDATA___V746*/ curfptr[745])
+  /*_.VALDATA___V746*/ curfptr[745] = (void*) sy_CLASS_SOURCE_DEFCLASS; }
  
  /*getnamedsym:CLASS_SEXPR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SEXPR = meltgc_named_symbol("CLASS_SEXPR", MELT_GET);
-  if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V718*/ curfptr[717])
-  /*_.VALDATA___V718*/ curfptr[717] = (void*) sy_CLASS_SEXPR; }
+  if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V748*/ curfptr[747])
+  /*_.VALDATA___V748*/ curfptr[747] = (void*) sy_CLASS_SEXPR; }
  
  /*getnamedsym:CLASS_CLASS_BINDING*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_CLASS_BINDING = meltgc_named_symbol("CLASS_CLASS_BINDING", MELT_GET);
-  if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V720*/ curfptr[719])
-  /*_.VALDATA___V720*/ curfptr[719] = (void*) sy_CLASS_CLASS_BINDING; }
+  if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V750*/ curfptr[749])
+  /*_.VALDATA___V750*/ curfptr[749] = (void*) sy_CLASS_CLASS_BINDING; }
  
  /*getnamedsym:CLASS_SOURCE_DEFSELECTOR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFSELECTOR = meltgc_named_symbol("CLASS_SOURCE_DEFSELECTOR", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFSELECTOR && NULL == /*_.VALDATA___V722*/ curfptr[721])
-  /*_.VALDATA___V722*/ curfptr[721] = (void*) sy_CLASS_SOURCE_DEFSELECTOR; }
+  if (sy_CLASS_SOURCE_DEFSELECTOR && NULL == /*_.VALDATA___V752*/ curfptr[751])
+  /*_.VALDATA___V752*/ curfptr[751] = (void*) sy_CLASS_SOURCE_DEFSELECTOR; }
  
  /*getnamedsym:CLASS_SOURCE_DEFINSTANCE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFINSTANCE = meltgc_named_symbol("CLASS_SOURCE_DEFINSTANCE", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFINSTANCE && NULL == /*_.VALDATA___V724*/ curfptr[723])
-  /*_.VALDATA___V724*/ curfptr[723] = (void*) sy_CLASS_SOURCE_DEFINSTANCE; }
+  if (sy_CLASS_SOURCE_DEFINSTANCE && NULL == /*_.VALDATA___V754*/ curfptr[753])
+  /*_.VALDATA___V754*/ curfptr[753] = (void*) sy_CLASS_SOURCE_DEFINSTANCE; }
  
  /*getnamedsym:CLASS_SOURCE_DEFPRIMITIVE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFPRIMITIVE = meltgc_named_symbol("CLASS_SOURCE_DEFPRIMITIVE", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFPRIMITIVE && NULL == /*_.VALDATA___V726*/ curfptr[725])
-  /*_.VALDATA___V726*/ curfptr[725] = (void*) sy_CLASS_SOURCE_DEFPRIMITIVE; }
+  if (sy_CLASS_SOURCE_DEFPRIMITIVE && NULL == /*_.VALDATA___V756*/ curfptr[755])
+  /*_.VALDATA___V756*/ curfptr[755] = (void*) sy_CLASS_SOURCE_DEFPRIMITIVE; }
  
  /*getnamedsym:CLASS_SOURCE_DEFUN*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFUN = meltgc_named_symbol("CLASS_SOURCE_DEFUN", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFUN && NULL == /*_.VALDATA___V728*/ curfptr[727])
-  /*_.VALDATA___V728*/ curfptr[727] = (void*) sy_CLASS_SOURCE_DEFUN; }
+  if (sy_CLASS_SOURCE_DEFUN && NULL == /*_.VALDATA___V758*/ curfptr[757])
+  /*_.VALDATA___V758*/ curfptr[757] = (void*) sy_CLASS_SOURCE_DEFUN; }
  
  /*getnamedsym:CLASS_SOURCE_DEFCITERATOR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFCITERATOR = meltgc_named_symbol("CLASS_SOURCE_DEFCITERATOR", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFCITERATOR && NULL == /*_.VALDATA___V730*/ curfptr[729])
-  /*_.VALDATA___V730*/ curfptr[729] = (void*) sy_CLASS_SOURCE_DEFCITERATOR; }
+  if (sy_CLASS_SOURCE_DEFCITERATOR && NULL == /*_.VALDATA___V760*/ curfptr[759])
+  /*_.VALDATA___V760*/ curfptr[759] = (void*) sy_CLASS_SOURCE_DEFCITERATOR; }
  
  /*getnamedsym:CLASS_SOURCE_DEFCMATCHER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFCMATCHER = meltgc_named_symbol("CLASS_SOURCE_DEFCMATCHER", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFCMATCHER && NULL == /*_.VALDATA___V732*/ curfptr[731])
-  /*_.VALDATA___V732*/ curfptr[731] = (void*) sy_CLASS_SOURCE_DEFCMATCHER; }
+  if (sy_CLASS_SOURCE_DEFCMATCHER && NULL == /*_.VALDATA___V762*/ curfptr[761])
+  /*_.VALDATA___V762*/ curfptr[761] = (void*) sy_CLASS_SOURCE_DEFCMATCHER; }
  
  /*getnamedsym:CLASS_SOURCE_EXPORT_PATMACRO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_EXPORT_PATMACRO = meltgc_named_symbol("CLASS_SOURCE_EXPORT_PATMACRO", MELT_GET);
-  if (sy_CLASS_SOURCE_EXPORT_PATMACRO && NULL == /*_.VALDATA___V734*/ curfptr[733])
-  /*_.VALDATA___V734*/ curfptr[733] = (void*) sy_CLASS_SOURCE_EXPORT_PATMACRO; }
+  if (sy_CLASS_SOURCE_EXPORT_PATMACRO && NULL == /*_.VALDATA___V764*/ curfptr[763])
+  /*_.VALDATA___V764*/ curfptr[763] = (void*) sy_CLASS_SOURCE_EXPORT_PATMACRO; }
  
  /*getnamedsym:CLASS_SOURCE_EXPORT_MACRO*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_EXPORT_MACRO = meltgc_named_symbol("CLASS_SOURCE_EXPORT_MACRO", MELT_GET);
-  if (sy_CLASS_SOURCE_EXPORT_MACRO && NULL == /*_.VALDATA___V736*/ curfptr[735])
-  /*_.VALDATA___V736*/ curfptr[735] = (void*) sy_CLASS_SOURCE_EXPORT_MACRO; }
+  if (sy_CLASS_SOURCE_EXPORT_MACRO && NULL == /*_.VALDATA___V766*/ curfptr[765])
+  /*_.VALDATA___V766*/ curfptr[765] = (void*) sy_CLASS_SOURCE_EXPORT_MACRO; }
  
  /*getnamedsym:CLASS_SOURCE_DEFINITION_FORMAL*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_SOURCE_DEFINITION_FORMAL = meltgc_named_symbol("CLASS_SOURCE_DEFINITION_FORMAL", MELT_GET);
-  if (sy_CLASS_SOURCE_DEFINITION_FORMAL && NULL == /*_.VALDATA___V761*/ curfptr[760])
-  /*_.VALDATA___V761*/ curfptr[760] = (void*) sy_CLASS_SOURCE_DEFINITION_FORMAL; }
+  if (sy_CLASS_SOURCE_DEFINITION_FORMAL && NULL == /*_.VALDATA___V791*/ curfptr[790])
+  /*_.VALDATA___V791*/ curfptr[790] = (void*) sy_CLASS_SOURCE_DEFINITION_FORMAL; }
  
  /*getnamedsym:CLASS_ANY_MATCHER*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_CLASS_ANY_MATCHER = meltgc_named_symbol("CLASS_ANY_MATCHER", MELT_GET);
-  if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V773*/ curfptr[772])
-  /*_.VALDATA___V773*/ curfptr[772] = (void*) sy_CLASS_ANY_MATCHER; }
+  if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V803*/ curfptr[802])
+  /*_.VALDATA___V803*/ curfptr[802] = (void*) sy_CLASS_ANY_MATCHER; }
  
  /*getnamedsym:MAKEDOC_MODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_MAKEDOC_MODE = meltgc_named_symbol("MAKEDOC_MODE", MELT_GET);
-  if (sy_MAKEDOC_MODE && NULL == /*_.VALDATA___V780*/ curfptr[779])
-  /*_.VALDATA___V780*/ curfptr[779] = (void*) sy_MAKEDOC_MODE; }
+  if (sy_MAKEDOC_MODE && NULL == /*_.VALDATA___V810*/ curfptr[809])
+  /*_.VALDATA___V810*/ curfptr[809] = (void*) sy_MAKEDOC_MODE; }
  
  /*getnamedsym:COMPILE_LIST_SEXPR*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_COMPILE_LIST_SEXPR = meltgc_named_symbol("COMPILE_LIST_SEXPR", MELT_GET);
-  if (sy_COMPILE_LIST_SEXPR && NULL == /*_.VALDATA___V785*/ curfptr[784])
-  /*_.VALDATA___V785*/ curfptr[784] = (void*) sy_COMPILE_LIST_SEXPR; }
+  if (sy_COMPILE_LIST_SEXPR && NULL == /*_.VALDATA___V815*/ curfptr[814])
+  /*_.VALDATA___V815*/ curfptr[814] = (void*) sy_COMPILE_LIST_SEXPR; }
  
  /*getnamedsym:INSTALL_MELT_MODE*/
  if (MELT_PREDEF(INITIAL_SYSTEM_DATA)) { melt_ptr_t sy_INSTALL_MELT_MODE = meltgc_named_symbol("INSTALL_MELT_MODE", MELT_GET);
-  if (sy_INSTALL_MELT_MODE && NULL == /*_.VALDATA___V787*/ curfptr[786])
-  /*_.VALDATA___V787*/ curfptr[786] = (void*) sy_INSTALL_MELT_MODE; }
+  if (sy_INSTALL_MELT_MODE && NULL == /*_.VALDATA___V817*/ curfptr[816])
+  /*_.VALDATA___V817*/ curfptr[816] = (void*) sy_INSTALL_MELT_MODE; }
  
  /**COMMENT: get the value importer **/;
  
@@ -57527,7 +17508,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_ENVIRONMENT";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_ENVIRONMENT__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_ENVIRONMENT__V104*/ curfptr[103] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57536,7 +17517,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "DISCR_MAP_STRINGS";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.DISCR_MAP_STRINGS__V105*/ curfptr[104] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.DISCR_MAP_STRINGS__V105*/ curfptr[104] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57545,7 +17526,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CREATE_NORMCONTEXT";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CREATE_NORMCONTEXT__V106*/ curfptr[105] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CREATE_NORMCONTEXT__V106*/ curfptr[105] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57554,7 +17535,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_NORMALIZATION_CONTEXT";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_NORMALIZATION_CONTEXT__V107*/ curfptr[106] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_NORMALIZATION_CONTEXT__V107*/ curfptr[106] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57563,7 +17544,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "MACROEXPAND_TOPLEVEL_LIST";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V571*/ curfptr[570]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57572,7 +17553,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE__V109*/ curfptr[108] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE__V109*/ curfptr[108] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57581,7 +17562,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V110*/ curfptr[109] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V110*/ curfptr[109] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57590,7 +17571,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "INITIAL_ENVIRONMENT";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57599,7 +17580,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_NREP_INITPROC";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_NREP_INITPROC__V112*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_NREP_INITPROC__V112*/ curfptr[111] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57608,7 +17589,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_LOCATED";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_LOCATED__V113*/ curfptr[112] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_LOCATED__V113*/ curfptr[112] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57617,7 +17598,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_COMMENT";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57626,7 +17607,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "NORMAL_EXP";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.NORMAL_EXP__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V585*/ curfptr[584]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.NORMAL_EXP__V115*/ curfptr[114] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V615*/ curfptr[614]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57635,7 +17616,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_NREP_ANYPROC";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V617*/ curfptr[616]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57644,7 +17625,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "WRAP_NORMAL_LET1";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.WRAP_NORMAL_LET1__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.WRAP_NORMAL_LET1__V117*/ curfptr[116] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57653,7 +17634,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "DISCR_MAP_OBJECTS";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57662,7 +17643,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "COMPILE2OBJ_PROCEDURE";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57671,7 +17652,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "COMPILE2OBJ_INITPROC";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.COMPILE2OBJ_INITPROC__V120*/ curfptr[119] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.COMPILE2OBJ_INITPROC__V120*/ curfptr[119] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57680,7 +17661,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_MELT_MODE";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_MELT_MODE__V121*/ curfptr[120] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_MELT_MODE__V121*/ curfptr[120] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V640*/ curfptr[639]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57689,7 +17670,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "INITIAL_SYSTEM_DATA";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.INITIAL_SYSTEM_DATA__V122*/ curfptr[121] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.INITIAL_SYSTEM_DATA__V122*/ curfptr[121] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57698,7 +17679,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SYSTEM_DATA";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SYSTEM_DATA__V123*/ curfptr[122] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SYSTEM_DATA__V123*/ curfptr[122] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57707,7 +17688,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "LIST_APPEND2LIST";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.LIST_APPEND2LIST__V124*/ curfptr[123] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.LIST_APPEND2LIST__V124*/ curfptr[123] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57716,7 +17697,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_PROPED";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_PROPED__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_PROPED__V125*/ curfptr[124] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57725,7 +17706,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFINITION";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57734,7 +17715,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_ANY_BINDING";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_ANY_BINDING__V127*/ curfptr[126] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_ANY_BINDING__V127*/ curfptr[126] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57743,7 +17724,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFCLASS";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V746*/ curfptr[745]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57752,7 +17733,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SEXPR";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SEXPR__V129*/ curfptr[128] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SEXPR__V129*/ curfptr[128] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57761,7 +17742,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_CLASS_BINDING";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_CLASS_BINDING__V130*/ curfptr[129] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_CLASS_BINDING__V130*/ curfptr[129] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57770,7 +17751,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFSELECTOR";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57779,7 +17760,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFINSTANCE";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57788,7 +17769,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFPRIMITIVE";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V756*/ curfptr[755]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57797,7 +17778,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFUN";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57806,7 +17787,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFCITERATOR";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57815,7 +17796,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFCMATCHER";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57824,7 +17805,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_EXPORT_PATMACRO";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57833,7 +17814,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_EXPORT_MACRO";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V736*/ curfptr[735]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57842,7 +17823,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_SOURCE_DEFINITION_FORMAL";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /*apply*/{
@@ -57851,7 +17832,7 @@ initial_frame_st     curfram__;
   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3];
   argtab[1].bp_cstring =  "CLASS_ANY_MATCHER";
   argtab[2].bp_cstring =  "warmelt-outobj";
-  /*_.CLASS_ANY_MATCHER__V140*/ curfptr[139] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+  /*_.CLASS_ANY_MATCHER__V140*/ curfptr[139] =  melt_apply ((meltclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (melt_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]), (BPARSTR_PTR BPARSTR_CSTRING BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
   }
  
  /**COMMENT: after getting imported values **/;
@@ -58177,13 +18158,13 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V186*/ curfptr[185]);
  
- MELT_LOCATION("warmelt-outobj.melt:641:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V185*/ curfptr[184])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V186*/ curfptr[185]);
  ((meltroutine_ptr_t)/*_.VALROUT___V185*/ curfptr[184])->tabval[0] = (melt_ptr_t)(/*_.VALCLO___V186*/ curfptr[185]);
  
- MELT_LOCATION("warmelt-outobj.melt:641:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:630:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V185*/ curfptr[184]);
  
@@ -58241,43 +18222,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V189*/ curfptr[188]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#0", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]));
  ((meltroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#2", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19]));
  ((meltroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#3", NULL != (/*_.CLASS_NREP_NIL__V21*/ curfptr[20]));
  ((meltroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_NIL__V21*/ curfptr[20]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V191*/ curfptr[190])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#5", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
  ((meltroutine_ptr_t)/*_.VALROUT___V191*/ curfptr[190])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-outobj.melt:231:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:220:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V191*/ curfptr[190]);
  
@@ -58317,25 +18298,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V197*/ curfptr[196]);
  
- MELT_LOCATION("warmelt-outobj.melt:321:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V199*/ curfptr[198])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#0", NULL != (/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]));
  ((meltroutine_ptr_t)/*_.VALROUT___V199*/ curfptr[198])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]);
  
- MELT_LOCATION("warmelt-outobj.melt:321:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V199*/ curfptr[198])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V199*/ curfptr[198])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:321:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V199*/ curfptr[198])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V199*/ curfptr[198])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:321:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:310:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V199*/ curfptr[198]);
  
@@ -58365,25 +18346,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V203*/ curfptr[202]);
  
- MELT_LOCATION("warmelt-outobj.melt:362:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V205*/ curfptr[204])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#0", NULL != (/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]));
  ((meltroutine_ptr_t)/*_.VALROUT___V205*/ curfptr[204])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]);
  
- MELT_LOCATION("warmelt-outobj.melt:362:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V205*/ curfptr[204])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V205*/ curfptr[204])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:362:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V205*/ curfptr[204])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V205*/ curfptr[204])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:362:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:351:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V205*/ curfptr[204]);
  
@@ -58413,43 +18394,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V209*/ curfptr[208]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#0", NULL != (/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]));
  ((meltroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#3", NULL != (/*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24]));
  ((meltroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#5", NULL != (/*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26]));
  ((meltroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26]);
  
- MELT_LOCATION("warmelt-outobj.melt:407:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:396:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V211*/ curfptr[210]);
  
@@ -58509,25 +18490,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V221*/ curfptr[220]);
  
- MELT_LOCATION("warmelt-outobj.melt:498:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V223*/ curfptr[222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#0", NULL != (/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]));
  ((meltroutine_ptr_t)/*_.VALROUT___V223*/ curfptr[222])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]);
  
- MELT_LOCATION("warmelt-outobj.melt:498:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V223*/ curfptr[222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V223*/ curfptr[222])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:498:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V223*/ curfptr[222])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V223*/ curfptr[222])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:498:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:487:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V223*/ curfptr[222]);
  
@@ -58557,25 +18538,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V227*/ curfptr[226]);
  
- MELT_LOCATION("warmelt-outobj.melt:543:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER#0", NULL != (/*_.CLASS_OBJINITBOXINTEGER__V29*/ curfptr[28]));
  ((meltroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V29*/ curfptr[28]);
  
- MELT_LOCATION("warmelt-outobj.melt:543:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:543:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V229*/ curfptr[228])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_85__OUTCINITFILL_OBJINITBOXEDINTEGER#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V229*/ curfptr[228])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:543:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:532:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V229*/ curfptr[228]);
  
@@ -58623,19 +18604,19 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V237*/ curfptr[236]);
  
- MELT_LOCATION("warmelt-outobj.melt:597:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_95__OUTPUCOD_CATCHALL_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:597:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_95__OUTPUCOD_CATCHALL_ROOT#1", NULL != (/*_.DISPLAY_DEBUG_MESSAGE__V32*/ curfptr[31]));
  ((meltroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[1] = (melt_ptr_t)(/*_.DISPLAY_DEBUG_MESSAGE__V32*/ curfptr[31]);
  
- MELT_LOCATION("warmelt-outobj.melt:597:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:586:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V239*/ curfptr[238]);
  
@@ -58657,59 +18638,59 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V241*/ curfptr[240]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V243*/ curfptr[242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_103__OUTPUT_CURFRAME_DECLSTRUCT#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V243*/ curfptr[242])->tabval[0] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V243*/ curfptr[242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_103__OUTPUT_CURFRAME_DECLSTRUCT#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V243*/ curfptr[242])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V243*/ curfptr[242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_103__OUTPUT_CURFRAME_DECLSTRUCT#2", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V243*/ curfptr[242])->tabval[2] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V243*/ curfptr[242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_103__OUTPUT_CURFRAME_DECLSTRUCT#3", NULL != (/*_.CLASS_OBJLOCV__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V243*/ curfptr[242])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V243*/ curfptr[242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_103__OUTPUT_CURFRAME_DECLSTRUCT#4", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V243*/ curfptr[242])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:742:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:731:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V244*/ curfptr[243])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_109__LAMBDA_#0", NULL != (/*_.CLASS_OBJLOCV__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V244*/ curfptr[243])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-outobj.melt:742:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:731:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V244*/ curfptr[243])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_109__LAMBDA_#1", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V244*/ curfptr[243])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:742:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:731:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V244*/ curfptr[243]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V243*/ curfptr[242])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_103__OUTPUT_CURFRAME_DECLSTRUCT#5", NULL != (/*_.VALROUT___V244*/ curfptr[243]));
  ((meltroutine_ptr_t)/*_.VALROUT___V243*/ curfptr[242])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V244*/ curfptr[243]);
  
- MELT_LOCATION("warmelt-outobj.melt:671:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:660:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V243*/ curfptr[242]);
  
@@ -58761,95 +18742,95 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V252*/ curfptr[251]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#0", NULL != (/*_.CLASS_ROUTINEOBJ__V37*/ curfptr[36]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V37*/ curfptr[36]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#1", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#2", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#3", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#4", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[4] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#5", NULL != (/*_.CLASS_OBJLOCV__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[5] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#6", NULL != (/*_.CLASS_OBJVALUE__V39*/ curfptr[38]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V39*/ curfptr[38]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#7", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#8", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:787:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V255*/ curfptr[254])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_120__LAMBDA_#0", NULL != (/*_.CLASS_OBJLOCV__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V255*/ curfptr[254])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-outobj.melt:787:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V255*/ curfptr[254])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_120__LAMBDA_#1", NULL != (/*_.CLASS_OBJVALUE__V39*/ curfptr[38]));
  ((meltroutine_ptr_t)/*_.VALROUT___V255*/ curfptr[254])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V39*/ curfptr[38]);
  
- MELT_LOCATION("warmelt-outobj.melt:787:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V255*/ curfptr[254])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_120__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V255*/ curfptr[254])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:787:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V255*/ curfptr[254])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_120__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V255*/ curfptr[254])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:787:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:776:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V255*/ curfptr[254]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_114__OUTPUCOD_MARKER#9", NULL != (/*_.VALROUT___V255*/ curfptr[254]));
  ((meltroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V255*/ curfptr[254]);
  
- MELT_LOCATION("warmelt-outobj.melt:766:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:755:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V254*/ curfptr[253]);
  
@@ -58891,19 +18872,19 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V261*/ curfptr[260]);
  
- MELT_LOCATION("warmelt-outobj.melt:820:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:809:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTPUT_CURFRAME_DECLSTRUCT_INIT#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[0] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-outobj.melt:820:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:809:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V263*/ curfptr[262])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V256*/ curfptr[255]);
  ((meltroutine_ptr_t)/*_.VALROUT___V263*/ curfptr[262])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V256*/ curfptr[255]);
  
- MELT_LOCATION("warmelt-outobj.melt:820:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:809:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V263*/ curfptr[262]);
  
@@ -58915,111 +18896,111 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V264*/ curfptr[263]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#0", NULL != (/*_.CLASS_PROCROUTINEOBJ__V40*/ curfptr[39]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[0] = (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#1", NULL != (/*_.VALSTR___V266*/ curfptr[265]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[1] = (melt_ptr_t)(/*_.VALSTR___V266*/ curfptr[265]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V186*/ curfptr[185]);
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V186*/ curfptr[185]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V264*/ curfptr[263]);
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V264*/ curfptr[263]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V245*/ curfptr[244]);
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V245*/ curfptr[244]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[6] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:946:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:935:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V267*/ curfptr[266])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_132__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V267*/ curfptr[266])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:946:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:935:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V267*/ curfptr[266]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#7", NULL != (/*_.VALROUT___V267*/ curfptr[266]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V267*/ curfptr[266]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#8", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[8] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#9", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[9] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#10", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[10] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:967:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:956:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V268*/ curfptr[267])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_133__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V268*/ curfptr[267])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:967:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:956:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V268*/ curfptr[267])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_133__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V268*/ curfptr[267])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:967:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:956:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V268*/ curfptr[267]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#11", NULL != (/*_.VALROUT___V268*/ curfptr[267]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V268*/ curfptr[267]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V265*/ curfptr[264])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_125__OUTPUCOD_PROCROUTINE#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V265*/ curfptr[264])->tabval[12] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:884:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:873:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V265*/ curfptr[264]);
  
@@ -59061,35 +19042,35 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V274*/ curfptr[273]);
  
- MELT_LOCATION("warmelt-outobj.melt:1008:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V276*/ curfptr[275])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_136__OUTPUT_CURFRAME_CDAT_STRUCT#0", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V276*/ curfptr[275])->tabval[0] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:1008:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V276*/ curfptr[275])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_136__OUTPUT_CURFRAME_CDAT_STRUCT#1", NULL != (/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]));
  ((meltroutine_ptr_t)/*_.VALROUT___V276*/ curfptr[275])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]);
  
- MELT_LOCATION("warmelt-outobj.melt:1013:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V277*/ curfptr[276])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_138__LAMBDA_#0", NULL != (/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]));
  ((meltroutine_ptr_t)/*_.VALROUT___V277*/ curfptr[276])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]);
  
- MELT_LOCATION("warmelt-outobj.melt:1013:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1002:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V277*/ curfptr[276]);
  
- MELT_LOCATION("warmelt-outobj.melt:1008:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V276*/ curfptr[275])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_136__OUTPUT_CURFRAME_CDAT_STRUCT#2", NULL != (/*_.VALROUT___V277*/ curfptr[276]));
  ((meltroutine_ptr_t)/*_.VALROUT___V276*/ curfptr[275])->tabval[2] = (melt_ptr_t)(/*_.VALROUT___V277*/ curfptr[276]);
  
- MELT_LOCATION("warmelt-outobj.melt:1008:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:997:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V276*/ curfptr[275]);
  
@@ -59101,57 +19082,57 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V278*/ curfptr[277]);
  
- MELT_LOCATION("warmelt-outobj.melt:1024:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_139__OUTPUT_CURFRAME_CDAT_FILL#0", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[0] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:1024:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_139__OUTPUT_CURFRAME_CDAT_FILL#1", NULL != (/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]));
  ((meltroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]);
  
- MELT_LOCATION("warmelt-outobj.melt:1036:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V280*/ curfptr[279])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_141__LAMBDA_#0", NULL != (/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]));
  ((meltroutine_ptr_t)/*_.VALROUT___V280*/ curfptr[279])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]);
  
- MELT_LOCATION("warmelt-outobj.melt:1036:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1025:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V280*/ curfptr[279]);
  
- MELT_LOCATION("warmelt-outobj.melt:1024:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_139__OUTPUT_CURFRAME_CDAT_FILL#2", NULL != (/*_.VALROUT___V280*/ curfptr[279]));
  ((meltroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[2] = (melt_ptr_t)(/*_.VALROUT___V280*/ curfptr[279]);
  
- MELT_LOCATION("warmelt-outobj.melt:1024:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_139__OUTPUT_CURFRAME_CDAT_FILL#3", NULL != (/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-outobj.melt:1045:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V281*/ curfptr[280])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_142__LAMBDA_#0", NULL != (/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]));
  ((meltroutine_ptr_t)/*_.VALROUT___V281*/ curfptr[280])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]);
  
- MELT_LOCATION("warmelt-outobj.melt:1045:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1034:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V281*/ curfptr[280]);
  
- MELT_LOCATION("warmelt-outobj.melt:1024:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_139__OUTPUT_CURFRAME_CDAT_FILL#4", NULL != (/*_.VALROUT___V281*/ curfptr[280]));
  ((meltroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[4] = (melt_ptr_t)(/*_.VALROUT___V281*/ curfptr[280]);
  
- MELT_LOCATION("warmelt-outobj.melt:1024:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1013:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V279*/ curfptr[278]);
  
@@ -59163,129 +19144,129 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V282*/ curfptr[281]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[0] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V245*/ curfptr[244]);
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V245*/ curfptr[244]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V278*/ curfptr[277]);
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V278*/ curfptr[277]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V282*/ curfptr[281]);
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V282*/ curfptr[281]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V264*/ curfptr[263]);
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V264*/ curfptr[263]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#5", NULL != (/*_.VALROUT___V284*/ curfptr[283]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V284*/ curfptr[283]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#6", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[6] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#7", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#8", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[8] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1129:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1118:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V285*/ curfptr[284])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_146__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V285*/ curfptr[284])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1129:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1118:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V285*/ curfptr[284])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_146__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V285*/ curfptr[284])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1129:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1118:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#9", NULL != (/*_.VALROUT___V285*/ curfptr[284]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V285*/ curfptr[284]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#10", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[10] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#11", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[11] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1153:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1142:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V286*/ curfptr[285])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_147__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V286*/ curfptr[285])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1153:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1142:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V286*/ curfptr[285])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_147__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V286*/ curfptr[285])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1153:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1142:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V286*/ curfptr[285]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#12", NULL != (/*_.VALROUT___V286*/ curfptr[285]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V286*/ curfptr[285]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_INITIALROUTINE#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[13] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V283*/ curfptr[282])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V256*/ curfptr[255]);
  ((meltroutine_ptr_t)/*_.VALROUT___V283*/ curfptr[282])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V256*/ curfptr[255]);
  
- MELT_LOCATION("warmelt-outobj.melt:1063:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1052:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V283*/ curfptr[282]);
  
@@ -59297,49 +19278,49 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V287*/ curfptr[286]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_148__OUTPUCOD_GETARG#0", NULL != (/*_.CLASS_OBJGETARG__V43*/ curfptr[42]));
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETARG__V43*/ curfptr[42]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_148__OUTPUCOD_GETARG#1", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[1] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_148__OUTPUCOD_GETARG#3", NULL != (/*_.CLASS_OBJLOCV__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_148__OUTPUCOD_GETARG#4", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_148__OUTPUCOD_GETARG#5", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[5] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_148__OUTPUCOD_GETARG#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[6] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1203:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1192:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V288*/ curfptr[287]);
  
@@ -59371,25 +19352,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V292*/ curfptr[291]);
  
- MELT_LOCATION("warmelt-outobj.melt:1269:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V294*/ curfptr[293])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_154__OUTPUCOD_OBJLOCV#0", NULL != (/*_.CLASS_OBJLOCV__V35*/ curfptr[34]));
  ((meltroutine_ptr_t)/*_.VALROUT___V294*/ curfptr[293])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]);
  
- MELT_LOCATION("warmelt-outobj.melt:1269:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V294*/ curfptr[293])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_154__OUTPUCOD_OBJLOCV#1", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V294*/ curfptr[293])->tabval[1] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1269:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V294*/ curfptr[293])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_154__OUTPUCOD_OBJLOCV#2", NULL != (/*_.CTYPE_LONG__V45*/ curfptr[44]));
  ((meltroutine_ptr_t)/*_.VALROUT___V294*/ curfptr[293])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_LONG__V45*/ curfptr[44]);
  
- MELT_LOCATION("warmelt-outobj.melt:1269:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1258:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V294*/ curfptr[293]);
  
@@ -59411,19 +19392,19 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V296*/ curfptr[295]);
  
- MELT_LOCATION("warmelt-outobj.melt:1299:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_158__OUTPUCOD_OBJCLOCCV#0", NULL != (/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]));
  ((meltroutine_ptr_t)/*_.VALROUT___V298*/ curfptr[297])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]);
  
- MELT_LOCATION("warmelt-outobj.melt:1299:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V298*/ curfptr[297])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_158__OUTPUCOD_OBJCLOCCV#1", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V298*/ curfptr[297])->tabval[1] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1299:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1288:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V298*/ curfptr[297]);
  
@@ -59445,25 +19426,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V300*/ curfptr[299]);
  
- MELT_LOCATION("warmelt-outobj.melt:1316:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_162__OUTPUCOD_OBJCONSTV#0", NULL != (/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]));
  ((meltroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]);
  
- MELT_LOCATION("warmelt-outobj.melt:1316:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_162__OUTPUCOD_OBJCONSTV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1316:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_162__OUTPUCOD_OBJCONSTV#2", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1316:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1305:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V302*/ curfptr[301]);
  
@@ -59485,47 +19466,47 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V304*/ curfptr[303]);
  
- MELT_LOCATION("warmelt-outobj.melt:1334:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V306*/ curfptr[305])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST#0", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V306*/ curfptr[305])->tabval[0] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:1334:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V306*/ curfptr[305])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST#1", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V306*/ curfptr[305])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1334:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V306*/ curfptr[305])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V306*/ curfptr[305])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1339:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1328:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V307*/ curfptr[306])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_168__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V307*/ curfptr[306])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1339:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1328:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V307*/ curfptr[306])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_168__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V307*/ curfptr[306])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1339:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1328:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V307*/ curfptr[306]);
  
- MELT_LOCATION("warmelt-outobj.melt:1334:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V306*/ curfptr[305])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_166__OUTPUT_CODE_INSTRUCTIONS_LIST#3", NULL != (/*_.VALROUT___V307*/ curfptr[306]));
  ((meltroutine_ptr_t)/*_.VALROUT___V306*/ curfptr[305])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V307*/ curfptr[306]);
  
- MELT_LOCATION("warmelt-outobj.melt:1334:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1323:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V306*/ curfptr[305]);
  
@@ -59537,37 +19518,37 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V308*/ curfptr[307]);
  
- MELT_LOCATION("warmelt-outobj.melt:1351:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V309*/ curfptr[308])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_169__OUTPUCOD_OBJBLOCK#0", NULL != (/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]));
  ((meltroutine_ptr_t)/*_.VALROUT___V309*/ curfptr[308])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]);
  
- MELT_LOCATION("warmelt-outobj.melt:1351:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V309*/ curfptr[308])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_169__OUTPUCOD_OBJBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V309*/ curfptr[308])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1351:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V309*/ curfptr[308])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V309*/ curfptr[308])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1351:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V309*/ curfptr[308])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_169__OUTPUCOD_OBJBLOCK#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V309*/ curfptr[308])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1351:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V309*/ curfptr[308])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V308*/ curfptr[307]);
  ((meltroutine_ptr_t)/*_.VALROUT___V309*/ curfptr[308])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V308*/ curfptr[307]);
  
- MELT_LOCATION("warmelt-outobj.melt:1351:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1340:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V309*/ curfptr[308]);
  
@@ -59599,19 +19580,19 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V313*/ curfptr[312]);
  
- MELT_LOCATION("warmelt-outobj.melt:1375:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V315*/ curfptr[314])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V315*/ curfptr[314])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1375:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V315*/ curfptr[314])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_175__OUTPUCOD_OBJMULTIALLOCBLOCK#1", NULL != (/*_.CLASS_OBJMULTIALLOCBLOCK__V50*/ curfptr[49]));
  ((meltroutine_ptr_t)/*_.VALROUT___V315*/ curfptr[314])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJMULTIALLOCBLOCK__V50*/ curfptr[49]);
  
- MELT_LOCATION("warmelt-outobj.melt:1375:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1364:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V315*/ curfptr[314]);
  
@@ -59633,93 +19614,93 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V317*/ curfptr[316]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#0", NULL != (/*_.CLASS_OBJCITERBLOCK__V51*/ curfptr[50]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V51*/ curfptr[50]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#3", NULL != (/*_.CLASS_CITERATOR__V52*/ curfptr[51]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V52*/ curfptr[51]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[6] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1404:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_185__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1404:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1393:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V320*/ curfptr[319]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#7", NULL != (/*_.VALROUT___V320*/ curfptr[319]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V320*/ curfptr[319]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V308*/ curfptr[307]);
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V308*/ curfptr[307]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#9", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1415:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V321*/ curfptr[320])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_186__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V321*/ curfptr[320])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1415:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1404:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V321*/ curfptr[320]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V319*/ curfptr[318])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTPUCOD_OBJCITERBLOCK#10", NULL != (/*_.VALROUT___V321*/ curfptr[320]));
  ((meltroutine_ptr_t)/*_.VALROUT___V319*/ curfptr[318])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V321*/ curfptr[320]);
  
- MELT_LOCATION("warmelt-outobj.melt:1384:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1373:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V319*/ curfptr[318]);
  
@@ -59751,31 +19732,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V325*/ curfptr[324]);
  
- MELT_LOCATION("warmelt-outobj.melt:1434:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_187__OUTPUCOD_OBJCOMMENTINSTR#0", NULL != (/*_.CLASS_OBJCOMMENTINSTR__V53*/ curfptr[52]));
  ((meltroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V53*/ curfptr[52]);
  
- MELT_LOCATION("warmelt-outobj.melt:1434:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_187__OUTPUCOD_OBJCOMMENTINSTR#1", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
  ((meltroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-outobj.melt:1434:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_187__OUTPUCOD_OBJCOMMENTINSTR#2", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
  ((meltroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:1434:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1434:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1423:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V327*/ curfptr[326]);
  
@@ -59817,49 +19798,49 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V333*/ curfptr[332]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK#0", NULL != (/*_.CLASS_OBJCOMMENTEDBLOCK__V56*/ curfptr[55]));
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V56*/ curfptr[55]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK#4", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_195__OUTPUCOD_OBJCOMMENTEDBLOCK#5", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V308*/ curfptr[307]);
  ((meltroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V308*/ curfptr[307]);
  
- MELT_LOCATION("warmelt-outobj.melt:1453:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1442:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V335*/ curfptr[334]);
  
@@ -59881,25 +19862,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V337*/ curfptr[336]);
  
- MELT_LOCATION("warmelt-outobj.melt:1491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V339*/ curfptr[338])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__OUTPUCOD_OBJLABELINSTR#0", NULL != (/*_.CLASS_OBJLABELINSTR__V57*/ curfptr[56]));
  ((meltroutine_ptr_t)/*_.VALROUT___V339*/ curfptr[338])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLABELINSTR__V57*/ curfptr[56]);
  
- MELT_LOCATION("warmelt-outobj.melt:1491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V339*/ curfptr[338])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_199__OUTPUCOD_OBJLABELINSTR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V339*/ curfptr[338])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1491:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V339*/ curfptr[338])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V339*/ curfptr[338])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1491:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1480:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V339*/ curfptr[338]);
  
@@ -59921,25 +19902,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V341*/ curfptr[340]);
  
- MELT_LOCATION("warmelt-outobj.melt:1509:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V343*/ curfptr[342])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_203__OUTPUCOD_OBJGOTOINSTR#0", NULL != (/*_.CLASS_OBJGOTOINSTR__V58*/ curfptr[57]));
  ((meltroutine_ptr_t)/*_.VALROUT___V343*/ curfptr[342])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V58*/ curfptr[57]);
  
- MELT_LOCATION("warmelt-outobj.melt:1509:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V343*/ curfptr[342])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_203__OUTPUCOD_OBJGOTOINSTR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V343*/ curfptr[342])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1509:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V343*/ curfptr[342])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V343*/ curfptr[342])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1509:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1498:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V343*/ curfptr[342]);
  
@@ -59961,13 +19942,13 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V345*/ curfptr[344]);
  
- MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1514:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_207__ADD2SBUF_CLONSYM#0", NULL != (/*_.CLASS_CLONED_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[0] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-outobj.melt:1525:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1514:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V347*/ curfptr[346]);
  
@@ -59989,117 +19970,117 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V349*/ curfptr[348]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#0", NULL != (/*_.CLASS_OBJLOOP__V60*/ curfptr[59]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOOP__V60*/ curfptr[59]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#3", NULL != (/*_.CLASS_CLONED_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V348*/ curfptr[347]);
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V348*/ curfptr[347]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#6", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[6] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#7", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#8", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[8] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1556:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1545:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V352*/ curfptr[351])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V352*/ curfptr[351])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1556:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1545:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V352*/ curfptr[351])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_215__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V352*/ curfptr[351])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1556:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1545:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V352*/ curfptr[351]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#9", NULL != (/*_.VALROUT___V352*/ curfptr[351]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[9] = (melt_ptr_t)(/*_.VALROUT___V352*/ curfptr[351]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#10", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[10] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#11", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[11] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1578:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1567:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V353*/ curfptr[352])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_216__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V353*/ curfptr[352])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1578:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1567:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V353*/ curfptr[352])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_216__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V353*/ curfptr[352])->tabval[1] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1578:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1567:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V353*/ curfptr[352]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_211__OUTPUCOD_OBJLOOP#12", NULL != (/*_.VALROUT___V353*/ curfptr[352]));
  ((meltroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V353*/ curfptr[352]);
  
- MELT_LOCATION("warmelt-outobj.melt:1536:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1525:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V351*/ curfptr[350]);
  
@@ -60121,37 +20102,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V355*/ curfptr[354]);
  
- MELT_LOCATION("warmelt-outobj.melt:1593:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJEXIT#0", NULL != (/*_.CLASS_OBJEXIT__V61*/ curfptr[60]));
  ((meltroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJEXIT__V61*/ curfptr[60]);
  
- MELT_LOCATION("warmelt-outobj.melt:1593:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJEXIT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1593:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJEXIT#2", NULL != (/*_.CLASS_CLONED_SYMBOL__V59*/ curfptr[58]));
  ((meltroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V59*/ curfptr[58]);
  
- MELT_LOCATION("warmelt-outobj.melt:1593:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1593:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V348*/ curfptr[347]);
  ((meltroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V348*/ curfptr[347]);
  
- MELT_LOCATION("warmelt-outobj.melt:1593:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1582:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V357*/ curfptr[356]);
  
@@ -60173,115 +20154,115 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V359*/ curfptr[358]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#0", NULL != (/*_.CLASS_OBJCOMPUTE__V62*/ curfptr[61]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOMPUTE__V62*/ curfptr[61]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[1] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#2", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[2] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#4", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[4] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1623:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1612:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V362*/ curfptr[361])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_225__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V362*/ curfptr[361])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1623:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1612:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V362*/ curfptr[361]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#6", NULL != (/*_.VALROUT___V362*/ curfptr[361]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V362*/ curfptr[361]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1632:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1621:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V363*/ curfptr[362])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_226__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V363*/ curfptr[362])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1632:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1621:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V363*/ curfptr[362]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#8", NULL != (/*_.VALROUT___V363*/ curfptr[362]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V363*/ curfptr[362]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#9", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[9] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#10", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[10] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1639:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1628:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V364*/ curfptr[363])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_227__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V364*/ curfptr[363])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1639:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1628:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V364*/ curfptr[363]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#11", NULL != (/*_.VALROUT___V364*/ curfptr[363]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V364*/ curfptr[363]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V361*/ curfptr[360])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUCOD_OBJCOMPUTE#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V361*/ curfptr[360])->tabval[12] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1611:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1600:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V361*/ curfptr[360]);
  
@@ -60303,37 +20284,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V366*/ curfptr[365]);
  
- MELT_LOCATION("warmelt-outobj.melt:1650:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_228__OUTPUCOD_OBJCOND#0", NULL != (/*_.CLASS_OBJCOND__V63*/ curfptr[62]));
  ((meltroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOND__V63*/ curfptr[62]);
  
- MELT_LOCATION("warmelt-outobj.melt:1650:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_228__OUTPUCOD_OBJCOND#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1650:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1650:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_228__OUTPUCOD_OBJCOND#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1650:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_228__OUTPUCOD_OBJCOND#4", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]));
  ((meltroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]);
  
- MELT_LOCATION("warmelt-outobj.melt:1650:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1639:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V368*/ curfptr[367]);
  
@@ -60355,37 +20336,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V370*/ curfptr[369]);
  
- MELT_LOCATION("warmelt-outobj.melt:1692:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V372*/ curfptr[371])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_232__OUTPUCOD_OBJCPPIF#0", NULL != (/*_.CLASS_OBJCPPIF__V64*/ curfptr[63]));
  ((meltroutine_ptr_t)/*_.VALROUT___V372*/ curfptr[371])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCPPIF__V64*/ curfptr[63]);
  
- MELT_LOCATION("warmelt-outobj.melt:1692:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V372*/ curfptr[371])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_232__OUTPUCOD_OBJCPPIF#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V372*/ curfptr[371])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1692:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V372*/ curfptr[371])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V186*/ curfptr[185]);
  ((meltroutine_ptr_t)/*_.VALROUT___V372*/ curfptr[371])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V186*/ curfptr[185]);
  
- MELT_LOCATION("warmelt-outobj.melt:1692:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V372*/ curfptr[371])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V372*/ curfptr[371])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1692:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V372*/ curfptr[371])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_232__OUTPUCOD_OBJCPPIF#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V372*/ curfptr[371])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1692:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1681:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V372*/ curfptr[371]);
  
@@ -60407,43 +20388,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V374*/ curfptr[373]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_236__OUTPUCOD_OBJINTERNSYMBOL#0", NULL != (/*_.CLASS_OBJINTERNSYMBOL__V65*/ curfptr[64]));
  ((meltroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V65*/ curfptr[64]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_236__OUTPUCOD_OBJINTERNSYMBOL#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_236__OUTPUCOD_OBJINTERNSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]));
  ((meltroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_236__OUTPUCOD_OBJINTERNSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V66*/ curfptr[65]));
  ((meltroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V66*/ curfptr[65]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_236__OUTPUCOD_OBJINTERNSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1724:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1713:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V376*/ curfptr[375]);
  
@@ -60475,37 +20456,37 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V380*/ curfptr[379]);
  
- MELT_LOCATION("warmelt-outobj.melt:1748:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V382*/ curfptr[381])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_242__OUTPUCOD_OBJINTERNKEYWORD#0", NULL != (/*_.CLASS_OBJINTERNKEYWORD__V67*/ curfptr[66]));
  ((meltroutine_ptr_t)/*_.VALROUT___V382*/ curfptr[381])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V67*/ curfptr[66]);
  
- MELT_LOCATION("warmelt-outobj.melt:1748:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V382*/ curfptr[381])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_242__OUTPUCOD_OBJINTERNKEYWORD#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V382*/ curfptr[381])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1748:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V382*/ curfptr[381])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_242__OUTPUCOD_OBJINTERNKEYWORD#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V68*/ curfptr[67]));
  ((meltroutine_ptr_t)/*_.VALROUT___V382*/ curfptr[381])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V68*/ curfptr[67]);
  
- MELT_LOCATION("warmelt-outobj.melt:1748:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V382*/ curfptr[381])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V382*/ curfptr[381])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1748:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V382*/ curfptr[381])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_242__OUTPUCOD_OBJINTERNKEYWORD#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V382*/ curfptr[381])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1748:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1737:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V382*/ curfptr[381]);
  
@@ -60537,43 +20518,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V386*/ curfptr[385]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL#0", NULL != (/*_.CLASS_OBJGETNAMEDSYMBOL__V69*/ curfptr[68]));
  ((meltroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V69*/ curfptr[68]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]));
  ((meltroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V66*/ curfptr[65]));
  ((meltroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V66*/ curfptr[65]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_248__OUTPUCOD_OBJGETNAMEDSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1771:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1760:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V388*/ curfptr[387]);
  
@@ -60595,43 +20576,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V390*/ curfptr[389]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ curfptr[391])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD#0", NULL != (/*_.CLASS_OBJGETNAMEDKEYWORD__V70*/ curfptr[69]));
  ((meltroutine_ptr_t)/*_.VALROUT___V392*/ curfptr[391])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V70*/ curfptr[69]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ curfptr[391])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V392*/ curfptr[391])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ curfptr[391])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]));
  ((meltroutine_ptr_t)/*_.VALROUT___V392*/ curfptr[391])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ curfptr[391])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD#3", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V68*/ curfptr[67]));
  ((meltroutine_ptr_t)/*_.VALROUT___V392*/ curfptr[391])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V68*/ curfptr[67]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ curfptr[391])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V392*/ curfptr[391])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V392*/ curfptr[391])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_252__OUTPUCOD_OBJGETNAMEDKEYWORD#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V392*/ curfptr[391])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1809:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1798:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V392*/ curfptr[391]);
  
@@ -60653,189 +20634,189 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V394*/ curfptr[393]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#0", NULL != (/*_.CLASS_OBJAPPLY__V71*/ curfptr[70]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJAPPLY__V71*/ curfptr[70]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#2", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#7", NULL != (/*_.CLASS_OBJINSTR__V73*/ curfptr[72]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V73*/ curfptr[72]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#8", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[8] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#9", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#11", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[11] = (melt_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#12", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[12] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[13] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#1", NULL != (/*_.CLASS_OBJINSTR__V73*/ curfptr[72]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V73*/ curfptr[72]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#2", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[2] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#5", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[5] = (melt_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#6", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[6] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_262__LAMBDA_#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V397*/ curfptr[396])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1870:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1859:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V397*/ curfptr[396]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#14", NULL != (/*_.VALROUT___V397*/ curfptr[396]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V397*/ curfptr[396]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#15", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[15] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#16", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[16] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1902:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1891:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V398*/ curfptr[397])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_267__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V398*/ curfptr[397])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1902:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1891:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V398*/ curfptr[397]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#17", NULL != (/*_.VALROUT___V398*/ curfptr[397]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[17] = (melt_ptr_t)(/*_.VALROUT___V398*/ curfptr[397]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#18", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[18] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V396*/ curfptr[395])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_256__OUTPUCOD_OBJAPPLY#19", NULL != (/*_.VALROUT___V399*/ curfptr[398]));
  ((meltroutine_ptr_t)/*_.VALROUT___V396*/ curfptr[395])->tabval[19] = (melt_ptr_t)(/*_.VALROUT___V399*/ curfptr[398]);
  
- MELT_LOCATION("warmelt-outobj.melt:1844:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1833:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V396*/ curfptr[395]);
  
@@ -60887,79 +20868,79 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V407*/ curfptr[406]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#1", NULL != (/*_.CLASS_OBJMSEND__V75*/ curfptr[74]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJMSEND__V75*/ curfptr[74]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#2", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#5", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[5] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#6", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#7", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#8", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#9", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#10", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[10] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUCOD_OBJMSEND#11", NULL != (/*_.VALROUT___V410*/ curfptr[409]));
  ((meltroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V410*/ curfptr[409]);
  
- MELT_LOCATION("warmelt-outobj.melt:1937:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:1926:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V409*/ curfptr[408]);
  
@@ -60981,275 +20962,275 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V412*/ curfptr[411]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#0", NULL != (/*_.CLASS_OBJMULTIAPPLY__V76*/ curfptr[75]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V76*/ curfptr[75]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#2", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#6", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[6] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2081:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2070:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V415*/ curfptr[414])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_278__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V415*/ curfptr[414])->tabval[0] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2081:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2070:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V415*/ curfptr[414]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#7", NULL != (/*_.VALROUT___V415*/ curfptr[414]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V415*/ curfptr[414]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[8] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#9", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[9] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#10", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[10] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#12", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[12] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[13] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_279__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V416*/ curfptr[415])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_279__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V416*/ curfptr[415])->tabval[1] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_279__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V416*/ curfptr[415])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V416*/ curfptr[415])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_279__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V416*/ curfptr[415])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_279__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V416*/ curfptr[415])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2091:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2080:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V416*/ curfptr[415]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#14", NULL != (/*_.VALROUT___V416*/ curfptr[415]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V416*/ curfptr[415]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#15", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[15] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[16] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#17", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#19", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[19] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#20", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[20] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[0] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2123:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2112:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V417*/ curfptr[416]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#21", NULL != (/*_.VALROUT___V417*/ curfptr[416]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V417*/ curfptr[416]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#22", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[22] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#23", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[23] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2152:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2141:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V418*/ curfptr[417])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_281__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V418*/ curfptr[417])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2152:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2141:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V418*/ curfptr[417]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#24", NULL != (/*_.VALROUT___V418*/ curfptr[417]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[24] = (melt_ptr_t)(/*_.VALROUT___V418*/ curfptr[417]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#25", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[25] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#26", NULL != (/*_.VALROUT___V419*/ curfptr[418]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[26] = (melt_ptr_t)(/*_.VALROUT___V419*/ curfptr[418]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V414*/ curfptr[413])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_274__OUTPUCOD_OBJMULTIAPPLY#27", NULL != (/*_.VALROUT___V420*/ curfptr[419]));
  ((meltroutine_ptr_t)/*_.VALROUT___V414*/ curfptr[413])->tabval[27] = (melt_ptr_t)(/*_.VALROUT___V420*/ curfptr[419]);
  
- MELT_LOCATION("warmelt-outobj.melt:2034:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2023:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V414*/ curfptr[413]);
  
@@ -61271,275 +21252,275 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V422*/ curfptr[421]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#0", NULL != (/*_.CLASS_OBJMULTIMSEND__V77*/ curfptr[76]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V77*/ curfptr[76]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#2", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#6", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[6] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2232:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2221:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V425*/ curfptr[424])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_288__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V425*/ curfptr[424])->tabval[0] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2232:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2221:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V425*/ curfptr[424]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#7", NULL != (/*_.VALROUT___V425*/ curfptr[424]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V425*/ curfptr[424]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[8] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#9", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[9] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#10", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[10] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#12", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[12] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[13] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_289__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V426*/ curfptr[425])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_289__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V426*/ curfptr[425])->tabval[1] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_289__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V426*/ curfptr[425])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V426*/ curfptr[425])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_289__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V426*/ curfptr[425])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_289__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V426*/ curfptr[425])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2250:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2239:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V426*/ curfptr[425]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#14", NULL != (/*_.VALROUT___V426*/ curfptr[425]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[14] = (melt_ptr_t)(/*_.VALROUT___V426*/ curfptr[425]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#15", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[15] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[16] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#17", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[18] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#19", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[19] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#20", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[20] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[0] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V427*/ curfptr[426])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2281:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2270:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V427*/ curfptr[426]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#21", NULL != (/*_.VALROUT___V427*/ curfptr[426]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[21] = (melt_ptr_t)(/*_.VALROUT___V427*/ curfptr[426]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#22", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[22] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#23", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[23] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2310:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2299:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V428*/ curfptr[427])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_291__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V428*/ curfptr[427])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2299:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V428*/ curfptr[427]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#24", NULL != (/*_.VALROUT___V428*/ curfptr[427]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[24] = (melt_ptr_t)(/*_.VALROUT___V428*/ curfptr[427]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#25", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[25] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#26", NULL != (/*_.VALROUT___V429*/ curfptr[428]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[26] = (melt_ptr_t)(/*_.VALROUT___V429*/ curfptr[428]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_284__OUTPUCOD_OBJMULTIMSEND#27", NULL != (/*_.VALROUT___V430*/ curfptr[429]));
  ((meltroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[27] = (melt_ptr_t)(/*_.VALROUT___V430*/ curfptr[429]);
  
- MELT_LOCATION("warmelt-outobj.melt:2198:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2187:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V424*/ curfptr[423]);
  
@@ -61561,31 +21542,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V432*/ curfptr[431]);
  
- MELT_LOCATION("warmelt-outobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJCLEAR#0", NULL != (/*_.CLASS_OBJCLEAR__V78*/ curfptr[77]));
  ((meltroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCLEAR__V78*/ curfptr[77]);
  
- MELT_LOCATION("warmelt-outobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJCLEAR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2352:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2352:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_294__OUTPUCOD_OBJCLEAR#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2352:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2341:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V434*/ curfptr[433]);
  
@@ -61607,71 +21588,71 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V436*/ curfptr[435]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#0", NULL != (/*_.CLASS_OBJRAWALLOCOBJ__V79*/ curfptr[78]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V79*/ curfptr[78]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#3", NULL != (/*_.CLASS_OBJVALUE__V39*/ curfptr[38]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V39*/ curfptr[38]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#6", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[6] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2379:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V439*/ curfptr[438])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_302__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V439*/ curfptr[438])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2390:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2379:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V439*/ curfptr[438]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_298__OUTPUCOD_OBJRAWALLOCOBJ#8", NULL != (/*_.VALROUT___V439*/ curfptr[438]));
  ((meltroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V439*/ curfptr[438]);
  
- MELT_LOCATION("warmelt-outobj.melt:2367:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2356:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V438*/ curfptr[437]);
  
@@ -61693,65 +21674,65 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V441*/ curfptr[440]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#0", NULL != (/*_.CLASS_OBJNEWCLOSURE__V80*/ curfptr[79]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V80*/ curfptr[79]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#4", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[4] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2415:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2404:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V444*/ curfptr[443])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_307__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V444*/ curfptr[443])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2415:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2404:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V444*/ curfptr[443]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#6", NULL != (/*_.VALROUT___V444*/ curfptr[443]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V444*/ curfptr[443]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V443*/ curfptr[442])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_303__OUTPUCOD_OBJNEWCLOSURE#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V443*/ curfptr[442])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2401:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2390:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V443*/ curfptr[442]);
  
@@ -61773,25 +21754,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V446*/ curfptr[445]);
  
- MELT_LOCATION("warmelt-outobj.melt:2431:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__OUTPUCOD_OBJTOUCH#0", NULL != (/*_.CLASS_OBJTOUCH__V81*/ curfptr[80]));
  ((meltroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJTOUCH__V81*/ curfptr[80]);
  
- MELT_LOCATION("warmelt-outobj.melt:2431:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2431:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V448*/ curfptr[447])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__OUTPUCOD_OBJTOUCH#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V448*/ curfptr[447])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2431:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2420:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V448*/ curfptr[447]);
  
@@ -61813,31 +21794,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V450*/ curfptr[449]);
  
- MELT_LOCATION("warmelt-outobj.melt:2456:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJPUTUPLE#0", NULL != (/*_.CLASS_OBJPUTUPLE__V82*/ curfptr[81]));
  ((meltroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTUPLE__V82*/ curfptr[81]);
  
- MELT_LOCATION("warmelt-outobj.melt:2456:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJPUTUPLE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2456:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2456:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V452*/ curfptr[451])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJPUTUPLE#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V452*/ curfptr[451])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2456:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2445:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V452*/ curfptr[451]);
  
@@ -61859,71 +21840,71 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V454*/ curfptr[453]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#0", NULL != (/*_.CLASS_OBJGETSLOT__V83*/ curfptr[82]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETSLOT__V83*/ curfptr[82]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[1] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#2", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#3", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#6", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[6] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2502:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V457*/ curfptr[456])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_322__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V457*/ curfptr[456])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2513:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2502:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V457*/ curfptr[456]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V456*/ curfptr[455])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJGETSLOT#8", NULL != (/*_.VALROUT___V457*/ curfptr[456]));
  ((meltroutine_ptr_t)/*_.VALROUT___V456*/ curfptr[455])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V457*/ curfptr[456]);
  
- MELT_LOCATION("warmelt-outobj.melt:2491:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2480:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V456*/ curfptr[455]);
  
@@ -61955,49 +21936,49 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V461*/ curfptr[460]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_323__OUTPUCOD_OBJPUTSLOT#0", NULL != (/*_.CLASS_OBJPUTSLOT__V85*/ curfptr[84]));
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTSLOT__V85*/ curfptr[84]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_323__OUTPUCOD_OBJPUTSLOT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_323__OUTPUCOD_OBJPUTSLOT#2", NULL != (/*_.CLASS_NREP__V86*/ curfptr[85]));
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP__V86*/ curfptr[85]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_323__OUTPUCOD_OBJPUTSLOT#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_323__OUTPUCOD_OBJPUTSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V463*/ curfptr[462])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_323__OUTPUCOD_OBJPUTSLOT#6", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
  ((meltroutine_ptr_t)/*_.VALROUT___V463*/ curfptr[462])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:2524:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2513:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V463*/ curfptr[462]);
  
@@ -62029,31 +22010,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V467*/ curfptr[466]);
  
- MELT_LOCATION("warmelt-outobj.melt:2598:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_329__OUTPUCOD_OBJPUTCLOSUROUT#0", NULL != (/*_.CLASS_OBJPUTCLOSUROUT__V87*/ curfptr[86]));
  ((meltroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V87*/ curfptr[86]);
  
- MELT_LOCATION("warmelt-outobj.melt:2598:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_329__OUTPUCOD_OBJPUTCLOSUROUT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2598:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2598:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V469*/ curfptr[468])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_329__OUTPUCOD_OBJPUTCLOSUROUT#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V469*/ curfptr[468])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2598:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2587:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V469*/ curfptr[468]);
  
@@ -62075,31 +22056,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V471*/ curfptr[470]);
  
- MELT_LOCATION("warmelt-outobj.melt:2626:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V473*/ curfptr[472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_333__OUTPUCOD_OBJPUTCLOSEDV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDV__V88*/ curfptr[87]));
  ((meltroutine_ptr_t)/*_.VALROUT___V473*/ curfptr[472])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V88*/ curfptr[87]);
  
- MELT_LOCATION("warmelt-outobj.melt:2626:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V473*/ curfptr[472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_333__OUTPUCOD_OBJPUTCLOSEDV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V473*/ curfptr[472])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2626:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V473*/ curfptr[472])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V473*/ curfptr[472])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2626:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V473*/ curfptr[472])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_333__OUTPUCOD_OBJPUTCLOSEDV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V473*/ curfptr[472])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2626:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2615:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V473*/ curfptr[472]);
  
@@ -62121,31 +22102,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V475*/ curfptr[474]);
  
- MELT_LOCATION("warmelt-outobj.melt:2661:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ curfptr[476])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V89*/ curfptr[88]));
  ((meltroutine_ptr_t)/*_.VALROUT___V477*/ curfptr[476])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V89*/ curfptr[88]);
  
- MELT_LOCATION("warmelt-outobj.melt:2661:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ curfptr[476])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V477*/ curfptr[476])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2661:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ curfptr[476])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V477*/ curfptr[476])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2661:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V477*/ curfptr[476])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_337__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V477*/ curfptr[476])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2661:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2650:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V477*/ curfptr[476]);
  
@@ -62167,31 +22148,31 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V479*/ curfptr[478]);
  
- MELT_LOCATION("warmelt-outobj.melt:2700:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V481*/ curfptr[480])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJPUTROUTCONST#0", NULL != (/*_.CLASS_OBJPUTROUTCONST__V90*/ curfptr[89]));
  ((meltroutine_ptr_t)/*_.VALROUT___V481*/ curfptr[480])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V90*/ curfptr[89]);
  
- MELT_LOCATION("warmelt-outobj.melt:2700:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V481*/ curfptr[480])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJPUTROUTCONST#1", NULL != (/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]));
  ((meltroutine_ptr_t)/*_.VALROUT___V481*/ curfptr[480])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]);
  
- MELT_LOCATION("warmelt-outobj.melt:2700:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V481*/ curfptr[480])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V481*/ curfptr[480])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2700:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V481*/ curfptr[480])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJPUTROUTCONST#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V481*/ curfptr[480])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2700:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2689:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V481*/ curfptr[480]);
  
@@ -62213,25 +22194,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V483*/ curfptr[482]);
  
- MELT_LOCATION("warmelt-outobj.melt:2737:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V485*/ curfptr[484])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#0", NULL != (/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V91*/ curfptr[90]));
  ((meltroutine_ptr_t)/*_.VALROUT___V485*/ curfptr[484])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V91*/ curfptr[90]);
  
- MELT_LOCATION("warmelt-outobj.melt:2737:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V485*/ curfptr[484])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V485*/ curfptr[484])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2737:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V485*/ curfptr[484])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_345__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V485*/ curfptr[484])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2737:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2726:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V485*/ curfptr[484]);
  
@@ -62253,43 +22234,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V487*/ curfptr[486]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V489*/ curfptr[488])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJPUTXTRARESULT#0", NULL != (/*_.CLASS_OBJPUTXTRARESULT__V92*/ curfptr[91]));
  ((meltroutine_ptr_t)/*_.VALROUT___V489*/ curfptr[488])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V92*/ curfptr[91]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V489*/ curfptr[488])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJPUTXTRARESULT#1", NULL != (/*_.GET_CTYPE__V74*/ curfptr[73]));
  ((meltroutine_ptr_t)/*_.VALROUT___V489*/ curfptr[488])->tabval[1] = (melt_ptr_t)(/*_.GET_CTYPE__V74*/ curfptr[73]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V489*/ curfptr[488])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V489*/ curfptr[488])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V489*/ curfptr[488])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJPUTXTRARESULT#3", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
  ((meltroutine_ptr_t)/*_.VALROUT___V489*/ curfptr[488])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V489*/ curfptr[488])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJPUTXTRARESULT#4", NULL != (/*_.CTYPE_VALUE__V38*/ curfptr[37]));
  ((meltroutine_ptr_t)/*_.VALROUT___V489*/ curfptr[488])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V38*/ curfptr[37]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V489*/ curfptr[488])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_349__OUTPUCOD_OBJPUTXTRARESULT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V489*/ curfptr[488])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2770:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2759:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V489*/ curfptr[488]);
  
@@ -62311,25 +22292,25 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V491*/ curfptr[490]);
  
- MELT_LOCATION("warmelt-outobj.melt:2805:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V493*/ curfptr[492])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_353__OUTPUCOD_OBJEXPV#0", NULL != (/*_.CLASS_OBJEXPV__V93*/ curfptr[92]));
  ((meltroutine_ptr_t)/*_.VALROUT___V493*/ curfptr[492])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJEXPV__V93*/ curfptr[92]);
  
- MELT_LOCATION("warmelt-outobj.melt:2805:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V493*/ curfptr[492])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_353__OUTPUCOD_OBJEXPV#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V493*/ curfptr[492])->tabval[1] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2805:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V493*/ curfptr[492])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_353__OUTPUCOD_OBJEXPV#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V493*/ curfptr[492])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2805:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2794:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V493*/ curfptr[492]);
  
@@ -62351,43 +22332,43 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V495*/ curfptr[494]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_357__OUTPUCOD_OBJLOCATEDEXPV#0", NULL != (/*_.CLASS_OBJLOCATEDEXPV__V94*/ curfptr[93]));
  ((meltroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V94*/ curfptr[93]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_357__OUTPUCOD_OBJLOCATEDEXPV#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
  ((meltroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[1] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_357__OUTPUCOD_OBJLOCATEDEXPV#2", NULL != (/*_.CTYPE_VOID__V95*/ curfptr[94]));
  ((meltroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VOID__V95*/ curfptr[94]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V186*/ curfptr[185]);
  ((meltroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V186*/ curfptr[185]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_357__OUTPUCOD_OBJLOCATEDEXPV#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
  ((meltroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
  
- MELT_LOCATION("warmelt-outobj.melt:2818:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2807:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V497*/ curfptr[496]);
  
@@ -62419,13 +22400,13 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V501*/ curfptr[500]);
  
- MELT_LOCATION("warmelt-outobj.melt:2852:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V503*/ curfptr[502])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_363__OUTPUCOD_VERBATIMSTRING#0", NULL != (/*_.DISCR_VERBATIM_STRING__V96*/ curfptr[95]));
  ((meltroutine_ptr_t)/*_.VALROUT___V503*/ curfptr[502])->tabval[0] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V96*/ curfptr[95]);
  
- MELT_LOCATION("warmelt-outobj.melt:2852:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2841:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V503*/ curfptr[502]);
  
@@ -62447,13 +22428,13 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V505*/ curfptr[504]);
  
- MELT_LOCATION("warmelt-outobj.melt:2863:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V507*/ curfptr[506])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_367__OUTPUCOD_STRING#0", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
  ((meltroutine_ptr_t)/*_.VALROUT___V507*/ curfptr[506])->tabval[0] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:2863:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2852:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V507*/ curfptr[506]);
  
@@ -62473,19 +22454,19 @@ initial_frame_st     curfram__;
  /*touch:DATACLOSURE_*/
  meltgc_touch(/*_.VALCLO___V510*/ curfptr[509]);
  
- MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V511*/ curfptr[510])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_371__OUTPUCOD_FINALRETURN#0", NULL != (/*_.CLASS_OBJFINALRETURN__V97*/ curfptr[96]));
  ((meltroutine_ptr_t)/*_.VALROUT___V511*/ curfptr[510])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJFINALRETURN__V97*/ curfptr[96]);
  
- MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V511*/ curfptr[510])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V184*/ curfptr[183]);
  ((meltroutine_ptr_t)/*_.VALROUT___V511*/ curfptr[510])->tabval[1] = (melt_ptr_t)(/*_.VALCLO___V184*/ curfptr[183]);
  
- MELT_LOCATION("warmelt-outobj.melt:2882:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2871:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V511*/ curfptr[510]);
  
@@ -62507,59 +22488,59 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V513*/ curfptr[512]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#0", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[0] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#1", NULL != (/*_.MAPSTRING_EVERY__V98*/ curfptr[97]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[1] = (melt_ptr_t)(/*_.MAPSTRING_EVERY__V98*/ curfptr[97]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#2", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:2898:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2887:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V516*/ curfptr[515])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_379__LAMBDA_#0", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
  ((meltroutine_ptr_t)/*_.VALROUT___V516*/ curfptr[515])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:2898:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2887:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V516*/ curfptr[515]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#3", NULL != (/*_.VALROUT___V516*/ curfptr[515]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V516*/ curfptr[515]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#4", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#5", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[5] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V515*/ curfptr[514])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_375__SORTED_NAMED_DICT_TUPLE#6", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
  ((meltroutine_ptr_t)/*_.VALROUT___V515*/ curfptr[514])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:2893:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2882:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V515*/ curfptr[514]);
  
@@ -62611,75 +22592,75 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V524*/ curfptr[523]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#1", NULL != (/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[1] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconstnotnull");
  /*putroutconstnotnull*/
  melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V517*/ curfptr[516]);
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[2] = (melt_ptr_t)(/*_.VALCLO___V517*/ curfptr[516]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#3", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[3] = (melt_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#4", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[4] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:2919:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V527*/ curfptr[526])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_390__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
  ((meltroutine_ptr_t)/*_.VALROUT___V527*/ curfptr[526])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:2919:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2908:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V527*/ curfptr[526]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#5", NULL != (/*_.VALROUT___V527*/ curfptr[526]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[5] = (melt_ptr_t)(/*_.VALROUT___V527*/ curfptr[526]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#6", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:2933:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V528*/ curfptr[527])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_391__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
  ((meltroutine_ptr_t)/*_.VALROUT___V528*/ curfptr[527])->tabval[0] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:2933:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2922:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V528*/ curfptr[527]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ putroutconst");
  /*putroutconst*/
  melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V526*/ curfptr[525])) == OBMAG_ROUTINE);
  if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUT_EXPORTED_OFFSETS#7", NULL != (/*_.VALROUT___V528*/ curfptr[527]));
  ((meltroutine_ptr_t)/*_.VALROUT___V526*/ curfptr[525])->tabval[7] = (melt_ptr_t)(/*_.VALROUT___V528*/ curfptr[527]);
  
- MELT_LOCATION("warmelt-outobj.melt:2907:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2896:/ touch");
  /*touch:IROUTVAL_*/
  meltgc_touch(/*_.VALROUT___V526*/ curfptr[525]);
  
@@ -62721,7 +22702,7 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V534*/ curfptr[533]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT);
  
@@ -62729,7 +22710,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V537*/ curfptr[536]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT);
  
@@ -62745,7 +22726,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V538*/ curfptr[537]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT);
  
@@ -62753,7 +22734,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[5] = (melt_ptr_t)(
   /*_.VALTUP___V538*/ curfptr[537]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])) == OBMAG_OBJECT);
  
@@ -62761,7 +22742,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V540*/ curfptr[539]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])) == OBMAG_OBJECT);
  
@@ -62769,11 +22750,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V536*/ curfptr[535]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V539*/ curfptr[538]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])) == OBMAG_OBJECT);
  
@@ -62781,7 +22762,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V542*/ curfptr[541]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])) == OBMAG_OBJECT);
  
@@ -62789,11 +22770,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V536*/ curfptr[535]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V541*/ curfptr[540]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V543*/ curfptr[542])) == OBMAG_OBJECT);
  
@@ -62801,7 +22782,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V543*/ curfptr[542]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V544*/ curfptr[543]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V543*/ curfptr[542])) == OBMAG_OBJECT);
  
@@ -62809,11 +22790,11 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V543*/ curfptr[542]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V536*/ curfptr[535]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V543*/ curfptr[542]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])) == OBMAG_OBJECT);
  
@@ -62821,7 +22802,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]))->obj_vartab[1] = (melt_ptr_t)(
   /*_.VALSTR___V546*/ curfptr[545]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])) == OBMAG_OBJECT);
  
@@ -62829,7 +22810,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]))->obj_vartab[2] = (melt_ptr_t)(
   /*_.VALDATA___V536*/ curfptr[535]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V545*/ curfptr[544]);
  
@@ -62856,7 +22837,7 @@ initial_frame_st     curfram__;
  /*touch:INITUP_*/
  meltgc_touch(/*_.VALTUP___V547*/ curfptr[546]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ putslot");
  /*putslot*/
  melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535])) == OBMAG_OBJECT);
  
@@ -62864,7 +22845,7 @@ initial_frame_st     curfram__;
  ((meltobject_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]))->obj_vartab[6] = (melt_ptr_t)(
   /*_.VALTUP___V547*/ curfptr[546]);
  
- MELT_LOCATION("warmelt-outobj.melt:2948:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2937:/ touch");
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V536*/ curfptr[535]);
  
@@ -62908,3264 +22889,3582 @@ initial_frame_st     curfram__;
  /*touch:VALUEDATA_*/
  meltgc_touch(/*_.VALDATA___V554*/ curfptr[553]);
  
- MELT_LOCATION("warmelt-outobj.melt:2957:/ putroutconst");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V556*/ curfptr[555])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V557*/ curfptr[556]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V556*/ curfptr[555]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V559*/ curfptr[558]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V562*/ curfptr[561]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V561*/ curfptr[560]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V561*/ curfptr[560]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V560*/ curfptr[559])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V560*/ curfptr[559]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V564*/ curfptr[563])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V565*/ curfptr[564]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V564*/ curfptr[563]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V564*/ curfptr[563]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V563*/ curfptr[562]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V568*/ curfptr[567]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V567*/ curfptr[566]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V567*/ curfptr[566]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V566*/ curfptr[565])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V566*/ curfptr[565]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V570*/ curfptr[569])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V571*/ curfptr[570]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V570*/ curfptr[569]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V570*/ curfptr[569]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[1] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V569*/ curfptr[568]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V572*/ curfptr[571]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V572*/ curfptr[571]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V572*/ curfptr[571]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))->obj_vartab[3] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_VALUE))));
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V573*/ curfptr[572]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V574*/ curfptr[573]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[4] = (melt_ptr_t)(/*_.VALSTR___V575*/ curfptr[574]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[6] = (melt_ptr_t)(/*_.VALSTR___V576*/ curfptr[575]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]);
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V578*/ curfptr[577]))->tabval[8] = (melt_ptr_t)(/*_.VALSTR___V577*/ curfptr[576]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V578*/ curfptr[577]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V558*/ curfptr[557]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V578*/ curfptr[577]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2946:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V558*/ curfptr[557]);
+ 
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V580*/ curfptr[579]);
+ 
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V579*/ curfptr[578]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2952:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V582*/ curfptr[581]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V583*/ curfptr[582]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2952:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V583*/ curfptr[582]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2952:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[3] = (melt_ptr_t)(
+  ((void*)(MELT_PREDEF(CTYPE_LONG))));
+ 
+ /*putupl*/
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V585*/ curfptr[584]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V584*/ curfptr[583]);
+ 
+ /*touch:INITUP_*/
+ meltgc_touch(/*_.VALTUP___V585*/ curfptr[584]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2952:/ putslot");
+ /*putslot*/
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT);
+ 
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V585*/ curfptr[584]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2952:/ touch");
+ /*touch:VALUEDATA_*/
+ meltgc_touch(/*_.VALDATA___V581*/ curfptr[580]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V556*/ curfptr[555])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_416__NTH_SECUNDARY_FILE#0", NULL != (/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]));
- ((meltroutine_ptr_t)/*_.VALROUT___V556*/ curfptr[555])->tabval[0] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V586*/ curfptr[585])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_446__NTH_SECUNDARY_FILE#0", NULL != (/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V586*/ curfptr[585])->tabval[0] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]);
  
- MELT_LOCATION("warmelt-outobj.melt:2957:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V556*/ curfptr[555])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_416__NTH_SECUNDARY_FILE#1", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
- ((meltroutine_ptr_t)/*_.VALROUT___V556*/ curfptr[555])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V586*/ curfptr[585])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_446__NTH_SECUNDARY_FILE#1", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V586*/ curfptr[585])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:2957:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ putroutconst");
+ /*putroutconst*/
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V586*/ curfptr[585])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_446__NTH_SECUNDARY_FILE#2", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V586*/ curfptr[585])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V556*/ curfptr[555])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V586*/ curfptr[585])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V536*/ curfptr[535]);
- ((meltroutine_ptr_t)/*_.VALROUT___V556*/ curfptr[555])->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V586*/ curfptr[585])->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]);
  
- MELT_LOCATION("warmelt-outobj.melt:2957:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2956:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V556*/ curfptr[555]);
+ meltgc_touch(/*_.VALROUT___V586*/ curfptr[585]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V557*/ curfptr[556])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V556*/ curfptr[555])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V557*/ curfptr[556])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V556*/ curfptr[555]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V587*/ curfptr[586])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V586*/ curfptr[585])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V587*/ curfptr[586])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V586*/ curfptr[585]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V557*/ curfptr[556]);
+ meltgc_touch(/*_.VALCLO___V587*/ curfptr[586]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#2", NULL != (/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[2] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#2", NULL != (/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[2] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V102*/ curfptr[101]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#4", NULL != (/*_.DISCR_MAP_STRINGS__V105*/ curfptr[104]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V105*/ curfptr[104]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#4", NULL != (/*_.DISCR_MAP_STRINGS__V105*/ curfptr[104]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[4] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V105*/ curfptr[104]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#5", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[5] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#5", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[5] = (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#6", NULL != (/*_.CREATE_NORMCONTEXT__V106*/ curfptr[105]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[6] = (melt_ptr_t)(/*_.CREATE_NORMCONTEXT__V106*/ curfptr[105]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#6", NULL != (/*_.CREATE_NORMCONTEXT__V106*/ curfptr[105]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[6] = (melt_ptr_t)(/*_.CREATE_NORMCONTEXT__V106*/ curfptr[105]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#7", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V107*/ curfptr[106]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V107*/ curfptr[106]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#7", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V107*/ curfptr[106]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V107*/ curfptr[106]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#8", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[8] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#8", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[8] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#9", NULL != (/*_.CLASS_SOURCE__V109*/ curfptr[108]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE__V109*/ curfptr[108]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#9", NULL != (/*_.CLASS_SOURCE__V109*/ curfptr[108]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE__V109*/ curfptr[108]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#10", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[10] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#10", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[10] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#11", NULL != (/*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V110*/ curfptr[109]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V110*/ curfptr[109]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#11", NULL != (/*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V110*/ curfptr[109]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V110*/ curfptr[109]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#12", NULL != (/*_.VALSTR___V559*/ curfptr[558]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V559*/ curfptr[558]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#12", NULL != (/*_.VALSTR___V589*/ curfptr[588]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[12] = (melt_ptr_t)(/*_.VALSTR___V589*/ curfptr[588]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#13", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[13] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#13", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[13] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#14", NULL != (/*_.CLASS_NREP_INITPROC__V112*/ curfptr[111]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[14] = (melt_ptr_t)(/*_.CLASS_NREP_INITPROC__V112*/ curfptr[111]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#14", NULL != (/*_.CLASS_NREP_INITPROC__V112*/ curfptr[111]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[14] = (melt_ptr_t)(/*_.CLASS_NREP_INITPROC__V112*/ curfptr[111]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#15", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[15] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#15", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[15] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[16] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[16] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#17", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[17] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#17", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[17] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#18", NULL != (/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[18] = (melt_ptr_t)(/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#18", NULL != (/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[18] = (melt_ptr_t)(/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#19", NULL != (/*_.NORMAL_EXP__V115*/ curfptr[114]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[19] = (melt_ptr_t)(/*_.NORMAL_EXP__V115*/ curfptr[114]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#19", NULL != (/*_.NORMAL_EXP__V115*/ curfptr[114]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[19] = (melt_ptr_t)(/*_.NORMAL_EXP__V115*/ curfptr[114]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#20", NULL != (/*_.CLASS_NREP__V86*/ curfptr[85]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[20] = (melt_ptr_t)(/*_.CLASS_NREP__V86*/ curfptr[85]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#20", NULL != (/*_.CLASS_NREP__V86*/ curfptr[85]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[20] = (melt_ptr_t)(/*_.CLASS_NREP__V86*/ curfptr[85]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#21", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[21] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#21", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[21] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#22", NULL != (/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[22] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#22", NULL != (/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[22] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#1", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#1", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#2", NULL != (/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#2", NULL != (/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_COMMENT__V114*/ curfptr[113]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#3", NULL != (/*_.NORMAL_EXP__V115*/ curfptr[114]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[3] = (melt_ptr_t)(/*_.NORMAL_EXP__V115*/ curfptr[114]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#3", NULL != (/*_.NORMAL_EXP__V115*/ curfptr[114]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[3] = (melt_ptr_t)(/*_.NORMAL_EXP__V115*/ curfptr[114]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#4", NULL != (/*_.CLASS_NREP__V86*/ curfptr[85]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP__V86*/ curfptr[85]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#4", NULL != (/*_.CLASS_NREP__V86*/ curfptr[85]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP__V86*/ curfptr[85]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#5", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#5", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__LAMBDA_#6", NULL != (/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]));
- ((meltroutine_ptr_t)/*_.VALROUT___V560*/ curfptr[559])->tabval[6] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_469__LAMBDA_#6", NULL != (/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V590*/ curfptr[589])->tabval[6] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V117*/ curfptr[116]);
  
- MELT_LOCATION("warmelt-outobj.melt:3029:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3032:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V560*/ curfptr[559]);
+ meltgc_touch(/*_.VALROUT___V590*/ curfptr[589]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#23", NULL != (/*_.VALROUT___V560*/ curfptr[559]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V560*/ curfptr[559]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#23", NULL != (/*_.VALROUT___V590*/ curfptr[589]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[23] = (melt_ptr_t)(/*_.VALROUT___V590*/ curfptr[589]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#24", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[24] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#24", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[24] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#25", NULL != (/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[25] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#25", NULL != (/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[25] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#26", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[26] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#26", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[26] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#27", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[27] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#27", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[27] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#28", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[28] = (melt_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#28", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[28] = (melt_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]);
  
- MELT_LOCATION("warmelt-outobj.melt:3068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V561*/ curfptr[560])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__LAMBDA_#0", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
- ((meltroutine_ptr_t)/*_.VALROUT___V561*/ curfptr[560])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V591*/ curfptr[590])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_482__LAMBDA_#0", NULL != (/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V591*/ curfptr[590])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V116*/ curfptr[115]);
  
- MELT_LOCATION("warmelt-outobj.melt:3068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V561*/ curfptr[560])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V561*/ curfptr[560])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V591*/ curfptr[590])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_482__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V591*/ curfptr[590])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V561*/ curfptr[560])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_452__LAMBDA_#2", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]));
- ((meltroutine_ptr_t)/*_.VALROUT___V561*/ curfptr[560])->tabval[2] = (melt_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V591*/ curfptr[590])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_482__LAMBDA_#2", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V591*/ curfptr[590])->tabval[2] = (melt_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V119*/ curfptr[118]);
  
- MELT_LOCATION("warmelt-outobj.melt:3068:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3071:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V561*/ curfptr[560]);
+ meltgc_touch(/*_.VALROUT___V591*/ curfptr[590]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#29", NULL != (/*_.VALROUT___V561*/ curfptr[560]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[29] = (melt_ptr_t)(/*_.VALROUT___V561*/ curfptr[560]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#29", NULL != (/*_.VALROUT___V591*/ curfptr[590]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[29] = (melt_ptr_t)(/*_.VALROUT___V591*/ curfptr[590]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#30", NULL != (/*_.COMPILE2OBJ_INITPROC__V120*/ curfptr[119]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[30] = (melt_ptr_t)(/*_.COMPILE2OBJ_INITPROC__V120*/ curfptr[119]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#30", NULL != (/*_.COMPILE2OBJ_INITPROC__V120*/ curfptr[119]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[30] = (melt_ptr_t)(/*_.COMPILE2OBJ_INITPROC__V120*/ curfptr[119]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__COMPILE_LIST_SEXPR#31", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[31] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#31", NULL != (/*_.CLASS_PROCROUTINEOBJ__V40*/ curfptr[39]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[31] = (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V40*/ curfptr[39]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V587*/ curfptr[586]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[32] = (melt_ptr_t)(/*_.VALCLO___V587*/ curfptr[586]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconstnotnull");
+ /*putroutconstnotnull*/
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V536*/ curfptr[535]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[33] = (melt_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconst");
+ /*putroutconst*/
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_448__COMPILE_LIST_SEXPR#34", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[34] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]);
+ 
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ putroutconstnotnull");
+ /*putroutconstnotnull*/
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
  melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V529*/ curfptr[528]);
- ((meltroutine_ptr_t)/*_.VALROUT___V558*/ curfptr[557])->tabval[32] = (melt_ptr_t)(/*_.VALCLO___V529*/ curfptr[528]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V588*/ curfptr[587])->tabval[35] = (melt_ptr_t)(/*_.VALCLO___V529*/ curfptr[528]);
  
- MELT_LOCATION("warmelt-outobj.melt:2985:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:2988:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V558*/ curfptr[557]);
+ meltgc_touch(/*_.VALROUT___V588*/ curfptr[587]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V562*/ curfptr[561])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V558*/ curfptr[557])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V562*/ curfptr[561])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V558*/ curfptr[557]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V592*/ curfptr[591])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V588*/ curfptr[587])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V592*/ curfptr[591])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V588*/ curfptr[587]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V562*/ curfptr[561]);
+ meltgc_touch(/*_.VALCLO___V592*/ curfptr[591]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V564*/ curfptr[563]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V594*/ curfptr[593]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V563*/ curfptr[562]);
+ meltgc_touch(/*_.VALDATA___V593*/ curfptr[592]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V565*/ curfptr[564])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V566*/ curfptr[565]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V596*/ curfptr[595]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V565*/ curfptr[564]);
+ meltgc_touch(/*_.VALDATA___V595*/ curfptr[594]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V568*/ curfptr[567]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V598*/ curfptr[597]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V567*/ curfptr[566]);
+ meltgc_touch(/*_.VALDATA___V597*/ curfptr[596]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V570*/ curfptr[569]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V600*/ curfptr[599]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V569*/ curfptr[568]);
+ meltgc_touch(/*_.VALDATA___V599*/ curfptr[598]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V571*/ curfptr[570])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V571*/ curfptr[570]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V571*/ curfptr[570]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V572*/ curfptr[571]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V602*/ curfptr[601]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V571*/ curfptr[570]);
+ meltgc_touch(/*_.VALDATA___V601*/ curfptr[600]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V574*/ curfptr[573]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V604*/ curfptr[603]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V573*/ curfptr[572]);
+ meltgc_touch(/*_.VALDATA___V603*/ curfptr[602]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V575*/ curfptr[574])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V576*/ curfptr[575]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V606*/ curfptr[605]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V575*/ curfptr[574]);
+ meltgc_touch(/*_.VALDATA___V605*/ curfptr[604]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V577*/ curfptr[576])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V578*/ curfptr[577]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V608*/ curfptr[607]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V577*/ curfptr[576]);
+ meltgc_touch(/*_.VALDATA___V607*/ curfptr[606]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V580*/ curfptr[579]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V610*/ curfptr[609]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V579*/ curfptr[578]);
+ meltgc_touch(/*_.VALDATA___V609*/ curfptr[608]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V582*/ curfptr[581]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V612*/ curfptr[611]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V581*/ curfptr[580]);
+ meltgc_touch(/*_.VALDATA___V611*/ curfptr[610]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V584*/ curfptr[583]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V614*/ curfptr[613]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V583*/ curfptr[582]);
+ meltgc_touch(/*_.VALDATA___V613*/ curfptr[612]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V585*/ curfptr[584])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V615*/ curfptr[614])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V585*/ curfptr[584]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V585*/ curfptr[584]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V586*/ curfptr[585]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V615*/ curfptr[614]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V615*/ curfptr[614]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V616*/ curfptr[615]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V585*/ curfptr[584]);
+ meltgc_touch(/*_.VALDATA___V615*/ curfptr[614]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V617*/ curfptr[616])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V588*/ curfptr[587]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V617*/ curfptr[616]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V617*/ curfptr[616]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V618*/ curfptr[617]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V587*/ curfptr[586]);
+ meltgc_touch(/*_.VALDATA___V617*/ curfptr[616]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V590*/ curfptr[589]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V620*/ curfptr[619]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V589*/ curfptr[588]);
+ meltgc_touch(/*_.VALDATA___V619*/ curfptr[618]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V592*/ curfptr[591]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V622*/ curfptr[621]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V591*/ curfptr[590]);
+ meltgc_touch(/*_.VALDATA___V621*/ curfptr[620]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V594*/ curfptr[593]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V624*/ curfptr[623]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V593*/ curfptr[592]);
+ meltgc_touch(/*_.VALDATA___V623*/ curfptr[622]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V596*/ curfptr[595]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V626*/ curfptr[625]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V595*/ curfptr[594]);
+ meltgc_touch(/*_.VALDATA___V625*/ curfptr[624]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V627*/ curfptr[626])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V598*/ curfptr[597]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V628*/ curfptr[627]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V597*/ curfptr[596]);
+ meltgc_touch(/*_.VALDATA___V627*/ curfptr[626]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V600*/ curfptr[599]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V630*/ curfptr[629]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V602*/ curfptr[601])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V632*/ curfptr[631])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V603*/ curfptr[602]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V633*/ curfptr[632]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V602*/ curfptr[601]);
+ meltgc_touch(/*_.VALDATA___V632*/ curfptr[631]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))->obj_vartab[0] = (melt_ptr_t)(
-  /*_.VALDATA___V602*/ curfptr[601]);
+ melt_assertmsg("putslot checkoff", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[0] = (melt_ptr_t)(
+  /*_.VALDATA___V632*/ curfptr[631]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]))->obj_vartab[1] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[1] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V601*/ curfptr[600]);
+ meltgc_touch(/*_.VALDATA___V631*/ curfptr[630]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V604*/ curfptr[603]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V604*/ curfptr[603]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V604*/ curfptr[603]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V634*/ curfptr[633]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V634*/ curfptr[633]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V634*/ curfptr[633]))->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V604*/ curfptr[603]);
+ meltgc_touch(/*_.VALTUP___V634*/ curfptr[633]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALTUP___V604*/ curfptr[603]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALTUP___V634*/ curfptr[633]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))->obj_vartab[3] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))->obj_vartab[3] = (melt_ptr_t)(
   ((void*)(MELT_PREDEF(CTYPE_CSTRING))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V605*/ curfptr[604]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))->tabval[0] = (melt_ptr_t)(/*_.VALSTR___V635*/ curfptr[634]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V607*/ curfptr[606]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V606*/ curfptr[605]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V637*/ curfptr[636]))->tabval[2] = (melt_ptr_t)(/*_.VALSTR___V636*/ curfptr[635]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V607*/ curfptr[606]);
+ meltgc_touch(/*_.VALTUP___V637*/ curfptr[636]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]))->obj_vartab[4] = (melt_ptr_t)(
-  /*_.VALTUP___V607*/ curfptr[606]);
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))->obj_vartab[4] = (melt_ptr_t)(
+  /*_.VALTUP___V637*/ curfptr[636]);
  
- MELT_LOCATION("warmelt-outobj.melt:3123:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3161:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V599*/ curfptr[598]);
+ meltgc_touch(/*_.VALDATA___V629*/ curfptr[628]);
  
- MELT_LOCATION("warmelt-outobj.melt:3127:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V608*/ curfptr[607])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_468__INSTALL_MELT_MODE#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V608*/ curfptr[607])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V638*/ curfptr[637])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_498__INSTALL_MELT_MODE#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V638*/ curfptr[637])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3127:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V608*/ curfptr[607])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_468__INSTALL_MELT_MODE#1", NULL != (/*_.CLASS_MELT_MODE__V121*/ curfptr[120]));
- ((meltroutine_ptr_t)/*_.VALROUT___V608*/ curfptr[607])->tabval[1] = (melt_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V638*/ curfptr[637])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_498__INSTALL_MELT_MODE#1", NULL != (/*_.CLASS_MELT_MODE__V121*/ curfptr[120]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V638*/ curfptr[637])->tabval[1] = (melt_ptr_t)(/*_.CLASS_MELT_MODE__V121*/ curfptr[120]);
  
- MELT_LOCATION("warmelt-outobj.melt:3127:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V608*/ curfptr[607])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_468__INSTALL_MELT_MODE#2", NULL != (/*_.INITIAL_SYSTEM_DATA__V122*/ curfptr[121]));
- ((meltroutine_ptr_t)/*_.VALROUT___V608*/ curfptr[607])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V122*/ curfptr[121]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V638*/ curfptr[637])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_498__INSTALL_MELT_MODE#2", NULL != (/*_.INITIAL_SYSTEM_DATA__V122*/ curfptr[121]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V638*/ curfptr[637])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V122*/ curfptr[121]);
  
- MELT_LOCATION("warmelt-outobj.melt:3127:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V608*/ curfptr[607])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_468__INSTALL_MELT_MODE#3", NULL != (/*_.CLASS_SYSTEM_DATA__V123*/ curfptr[122]));
- ((meltroutine_ptr_t)/*_.VALROUT___V608*/ curfptr[607])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYSTEM_DATA__V123*/ curfptr[122]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V638*/ curfptr[637])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_498__INSTALL_MELT_MODE#3", NULL != (/*_.CLASS_SYSTEM_DATA__V123*/ curfptr[122]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V638*/ curfptr[637])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SYSTEM_DATA__V123*/ curfptr[122]);
  
- MELT_LOCATION("warmelt-outobj.melt:3127:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V608*/ curfptr[607])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_468__INSTALL_MELT_MODE#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V608*/ curfptr[607])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V638*/ curfptr[637])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_498__INSTALL_MELT_MODE#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V638*/ curfptr[637])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3127:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3165:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V608*/ curfptr[607]);
+ meltgc_touch(/*_.VALROUT___V638*/ curfptr[637]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V609*/ curfptr[608])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V608*/ curfptr[607])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V609*/ curfptr[608])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V608*/ curfptr[607]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V639*/ curfptr[638])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V638*/ curfptr[637])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V639*/ curfptr[638])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V638*/ curfptr[637]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V609*/ curfptr[608]);
+ meltgc_touch(/*_.VALCLO___V639*/ curfptr[638]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V610*/ curfptr[609])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V640*/ curfptr[639])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V611*/ curfptr[610]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V640*/ curfptr[639]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V640*/ curfptr[639]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V641*/ curfptr[640]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V610*/ curfptr[609]);
+ meltgc_touch(/*_.VALDATA___V640*/ curfptr[639]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V612*/ curfptr[611])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V613*/ curfptr[612]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V643*/ curfptr[642]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V612*/ curfptr[611]);
+ meltgc_touch(/*_.VALDATA___V642*/ curfptr[641]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V614*/ curfptr[613])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V615*/ curfptr[614]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V645*/ curfptr[644]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V614*/ curfptr[613]);
+ meltgc_touch(/*_.VALDATA___V644*/ curfptr[643]);
  
- MELT_LOCATION("warmelt-outobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V616*/ curfptr[615])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_476__COMPILE_ONE_OR_MORE_FILES#0", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
- ((meltroutine_ptr_t)/*_.VALROUT___V616*/ curfptr[615])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V646*/ curfptr[645])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_506__COMPILE_ONE_OR_MORE_FILES#0", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V646*/ curfptr[645])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
  
- MELT_LOCATION("warmelt-outobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V616*/ curfptr[615])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_476__COMPILE_ONE_OR_MORE_FILES#1", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V616*/ curfptr[615])->tabval[1] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V646*/ curfptr[645])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_506__COMPILE_ONE_OR_MORE_FILES#1", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V646*/ curfptr[645])->tabval[1] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V616*/ curfptr[615])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_476__COMPILE_ONE_OR_MORE_FILES#2", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
- ((meltroutine_ptr_t)/*_.VALROUT___V616*/ curfptr[615])->tabval[2] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V646*/ curfptr[645])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_506__COMPILE_ONE_OR_MORE_FILES#2", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V646*/ curfptr[645])->tabval[2] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-outobj.melt:3145:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V616*/ curfptr[615])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_476__COMPILE_ONE_OR_MORE_FILES#3", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V616*/ curfptr[615])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V646*/ curfptr[645])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_506__COMPILE_ONE_OR_MORE_FILES#3", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V646*/ curfptr[645])->tabval[3] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3145:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V616*/ curfptr[615])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V562*/ curfptr[561]);
- ((meltroutine_ptr_t)/*_.VALROUT___V616*/ curfptr[615])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V562*/ curfptr[561]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V646*/ curfptr[645])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V592*/ curfptr[591]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V646*/ curfptr[645])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V592*/ curfptr[591]);
  
- MELT_LOCATION("warmelt-outobj.melt:3145:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3183:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V616*/ curfptr[615]);
+ meltgc_touch(/*_.VALROUT___V646*/ curfptr[645]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V617*/ curfptr[616])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V616*/ curfptr[615])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V617*/ curfptr[616])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V616*/ curfptr[615]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V647*/ curfptr[646])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V646*/ curfptr[645])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V647*/ curfptr[646])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V646*/ curfptr[645]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V617*/ curfptr[616]);
+ meltgc_touch(/*_.VALCLO___V647*/ curfptr[646]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V618*/ curfptr[617])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V648*/ curfptr[647])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V619*/ curfptr[618]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V649*/ curfptr[648]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V618*/ curfptr[617]);
+ meltgc_touch(/*_.VALDATA___V648*/ curfptr[647]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_480__TRANSLATEFILE_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V620*/ curfptr[619])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_510__TRANSLATEFILE_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V650*/ curfptr[649])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_480__TRANSLATEFILE_DOCMD#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
- ((meltroutine_ptr_t)/*_.VALROUT___V620*/ curfptr[619])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_510__TRANSLATEFILE_DOCMD#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V650*/ curfptr[649])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_480__TRANSLATEFILE_DOCMD#2", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
- ((meltroutine_ptr_t)/*_.VALROUT___V620*/ curfptr[619])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_510__TRANSLATEFILE_DOCMD#2", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V650*/ curfptr[649])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_480__TRANSLATEFILE_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
- ((meltroutine_ptr_t)/*_.VALROUT___V620*/ curfptr[619])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_510__TRANSLATEFILE_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V650*/ curfptr[649])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_480__TRANSLATEFILE_DOCMD#4", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
- ((meltroutine_ptr_t)/*_.VALROUT___V620*/ curfptr[619])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_510__TRANSLATEFILE_DOCMD#4", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V650*/ curfptr[649])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V617*/ curfptr[616]);
- ((meltroutine_ptr_t)/*_.VALROUT___V620*/ curfptr[619])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V617*/ curfptr[616]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V647*/ curfptr[646]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V650*/ curfptr[649])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V647*/ curfptr[646]);
  
- MELT_LOCATION("warmelt-outobj.melt:3174:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3212:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V620*/ curfptr[619]);
+ meltgc_touch(/*_.VALROUT___V650*/ curfptr[649]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V621*/ curfptr[620])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V620*/ curfptr[619])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V621*/ curfptr[620])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V620*/ curfptr[619]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V651*/ curfptr[650])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V650*/ curfptr[649])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V651*/ curfptr[650])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V650*/ curfptr[649]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V621*/ curfptr[620]);
+ meltgc_touch(/*_.VALCLO___V651*/ curfptr[650]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V622*/ curfptr[621])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V622*/ curfptr[621]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V622*/ curfptr[621]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V623*/ curfptr[622]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V653*/ curfptr[652]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V622*/ curfptr[621]);
+ meltgc_touch(/*_.VALDATA___V652*/ curfptr[651]);
  
- MELT_LOCATION("warmelt-outobj.melt:3200:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3238:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V625*/ curfptr[624]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V655*/ curfptr[654]);
  
- MELT_LOCATION("warmelt-outobj.melt:3200:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3238:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALSTR___V626*/ curfptr[625]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALSTR___V656*/ curfptr[655]);
  
- MELT_LOCATION("warmelt-outobj.melt:3200:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3238:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALCLO___V621*/ curfptr[620]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALCLO___V651*/ curfptr[650]);
  
- MELT_LOCATION("warmelt-outobj.melt:3200:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3238:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V624*/ curfptr[623]);
+ meltgc_touch(/*_.VALDATA___V654*/ curfptr[653]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__RUNFILE_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V627*/ curfptr[626])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__RUNFILE_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V657*/ curfptr[656])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__RUNFILE_DOCMD#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
- ((meltroutine_ptr_t)/*_.VALROUT___V627*/ curfptr[626])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__RUNFILE_DOCMD#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V657*/ curfptr[656])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__RUNFILE_DOCMD#2", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
- ((meltroutine_ptr_t)/*_.VALROUT___V627*/ curfptr[626])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__RUNFILE_DOCMD#2", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V657*/ curfptr[656])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__RUNFILE_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
- ((meltroutine_ptr_t)/*_.VALROUT___V627*/ curfptr[626])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__RUNFILE_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V657*/ curfptr[656])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__RUNFILE_DOCMD#4", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
- ((meltroutine_ptr_t)/*_.VALROUT___V627*/ curfptr[626])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__RUNFILE_DOCMD#4", NULL != (/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V657*/ curfptr[656])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V104*/ curfptr[103]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V617*/ curfptr[616]);
- ((meltroutine_ptr_t)/*_.VALROUT___V627*/ curfptr[626])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V617*/ curfptr[616]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V647*/ curfptr[646]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V657*/ curfptr[656])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V647*/ curfptr[646]);
  
- MELT_LOCATION("warmelt-outobj.melt:3212:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3250:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V627*/ curfptr[626]);
+ meltgc_touch(/*_.VALROUT___V657*/ curfptr[656]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V628*/ curfptr[627])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V627*/ curfptr[626])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V628*/ curfptr[627])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V627*/ curfptr[626]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V658*/ curfptr[657])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V657*/ curfptr[656])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V658*/ curfptr[657])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V657*/ curfptr[656]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V628*/ curfptr[627]);
+ meltgc_touch(/*_.VALCLO___V658*/ curfptr[657]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V630*/ curfptr[629]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V660*/ curfptr[659]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V629*/ curfptr[628]);
+ meltgc_touch(/*_.VALDATA___V659*/ curfptr[658]);
  
- MELT_LOCATION("warmelt-outobj.melt:3245:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3283:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V632*/ curfptr[631]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V662*/ curfptr[661]);
  
- MELT_LOCATION("warmelt-outobj.melt:3245:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3283:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALSTR___V633*/ curfptr[632]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALSTR___V663*/ curfptr[662]);
  
- MELT_LOCATION("warmelt-outobj.melt:3245:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3283:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALCLO___V628*/ curfptr[627]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALCLO___V658*/ curfptr[657]);
  
- MELT_LOCATION("warmelt-outobj.melt:3245:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3283:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V631*/ curfptr[630]);
+ meltgc_touch(/*_.VALDATA___V661*/ curfptr[660]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#1", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[1] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#1", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[1] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#2", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#2", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#4", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[4] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#4", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[4] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#5", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[5] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#5", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[5] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[6] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#7", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[7] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#7", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[7] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-outobj.melt:3284:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3322:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V635*/ curfptr[634])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_496__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V635*/ curfptr[634])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V665*/ curfptr[664])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_526__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V665*/ curfptr[664])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3284:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3322:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V635*/ curfptr[634])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_496__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
- ((meltroutine_ptr_t)/*_.VALROUT___V635*/ curfptr[634])->tabval[1] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V665*/ curfptr[664])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_526__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V665*/ curfptr[664])->tabval[1] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-outobj.melt:3284:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3322:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V635*/ curfptr[634]);
+ meltgc_touch(/*_.VALROUT___V665*/ curfptr[664]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_494__TRANSLATEINIT_DOCMD#8", NULL != (/*_.VALROUT___V635*/ curfptr[634]));
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V635*/ curfptr[634]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_524__TRANSLATEINIT_DOCMD#8", NULL != (/*_.VALROUT___V665*/ curfptr[664]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V665*/ curfptr[664]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V562*/ curfptr[561]);
- ((meltroutine_ptr_t)/*_.VALROUT___V634*/ curfptr[633])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V562*/ curfptr[561]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V592*/ curfptr[591]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V664*/ curfptr[663])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V592*/ curfptr[591]);
  
- MELT_LOCATION("warmelt-outobj.melt:3255:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3293:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V634*/ curfptr[633]);
+ meltgc_touch(/*_.VALROUT___V664*/ curfptr[663]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V636*/ curfptr[635])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V634*/ curfptr[633])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V636*/ curfptr[635])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V634*/ curfptr[633]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V666*/ curfptr[665])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V664*/ curfptr[663])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V666*/ curfptr[665])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V664*/ curfptr[663]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V636*/ curfptr[635]);
+ meltgc_touch(/*_.VALCLO___V666*/ curfptr[665]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V637*/ curfptr[636])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V638*/ curfptr[637]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V668*/ curfptr[667]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V637*/ curfptr[636]);
+ meltgc_touch(/*_.VALDATA___V667*/ curfptr[666]);
  
- MELT_LOCATION("warmelt-outobj.melt:3299:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V640*/ curfptr[639]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V670*/ curfptr[669]);
  
- MELT_LOCATION("warmelt-outobj.melt:3299:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALSTR___V641*/ curfptr[640]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALSTR___V671*/ curfptr[670]);
  
- MELT_LOCATION("warmelt-outobj.melt:3299:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3337:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALCLO___V636*/ curfptr[635]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALCLO___V666*/ curfptr[665]);
  
- MELT_LOCATION("warmelt-outobj.melt:3299:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3337:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V639*/ curfptr[638]);
+ meltgc_touch(/*_.VALDATA___V669*/ curfptr[668]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V672*/ curfptr[671])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V643*/ curfptr[642]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V673*/ curfptr[672]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V642*/ curfptr[641]);
+ meltgc_touch(/*_.VALDATA___V672*/ curfptr[671]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V674*/ curfptr[673])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V645*/ curfptr[644]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V675*/ curfptr[674]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V644*/ curfptr[643]);
+ meltgc_touch(/*_.VALDATA___V674*/ curfptr[673]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V647*/ curfptr[646]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V677*/ curfptr[676]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))->obj_vartab[4] = (melt_ptr_t)(
+ melt_assertmsg("putslot checkoff", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[4] = (melt_ptr_t)(
   /*_.CLASS_PROPED__V125*/ curfptr[124]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ curfptr[647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ curfptr[647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ curfptr[647]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V125*/ curfptr[124]),5))), (0))));
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V678*/ curfptr[677]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V678*/ curfptr[677]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V678*/ curfptr[677]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V125*/ curfptr[124]),5))), (0))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V648*/ curfptr[647]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V648*/ curfptr[647]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V648*/ curfptr[647]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V125*/ curfptr[124]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V678*/ curfptr[677]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V678*/ curfptr[677]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V678*/ curfptr[677]))->tabval[1] = (melt_ptr_t)(/*_.CLASS_PROPED__V125*/ curfptr[124]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V648*/ curfptr[647]);
+ meltgc_touch(/*_.VALTUP___V678*/ curfptr[677]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))->obj_vartab[5] = (melt_ptr_t)(
-  /*_.VALTUP___V648*/ curfptr[647]);
+ melt_assertmsg("putslot checkoff", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[5] = (melt_ptr_t)(
+  /*_.VALTUP___V678*/ curfptr[677]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V650*/ curfptr[649]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V680*/ curfptr[679]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V649*/ curfptr[648]);
+ meltgc_touch(/*_.VALDATA___V679*/ curfptr[678]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ curfptr[650])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V681*/ curfptr[680])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V652*/ curfptr[651]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V682*/ curfptr[681]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V651*/ curfptr[650])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V681*/ curfptr[680])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V651*/ curfptr[650]);
+ meltgc_touch(/*_.VALDATA___V681*/ curfptr[680]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V653*/ curfptr[652])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V654*/ curfptr[653]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V684*/ curfptr[683]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V653*/ curfptr[652])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V653*/ curfptr[652]);
+ meltgc_touch(/*_.VALDATA___V683*/ curfptr[682]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V656*/ curfptr[655]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V686*/ curfptr[685]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V655*/ curfptr[654]);
+ meltgc_touch(/*_.VALDATA___V685*/ curfptr[684]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V658*/ curfptr[657]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V688*/ curfptr[687]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V657*/ curfptr[656]);
+ meltgc_touch(/*_.VALDATA___V687*/ curfptr[686]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V689*/ curfptr[688])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V660*/ curfptr[659]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V689*/ curfptr[688]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V689*/ curfptr[688]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V690*/ curfptr[689]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V689*/ curfptr[688])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V689*/ curfptr[688]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V689*/ curfptr[688]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V659*/ curfptr[658]);
+ meltgc_touch(/*_.VALDATA___V689*/ curfptr[688]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V662*/ curfptr[661]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V692*/ curfptr[691]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V691*/ curfptr[690])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V661*/ curfptr[660]);
+ meltgc_touch(/*_.VALDATA___V691*/ curfptr[690]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V663*/ curfptr[662])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V664*/ curfptr[663]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V694*/ curfptr[693]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V663*/ curfptr[662])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V693*/ curfptr[692])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V663*/ curfptr[662]);
+ meltgc_touch(/*_.VALDATA___V693*/ curfptr[692]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ curfptr[664])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V666*/ curfptr[665]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V696*/ curfptr[695]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V665*/ curfptr[664])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V665*/ curfptr[664]);
+ meltgc_touch(/*_.VALDATA___V695*/ curfptr[694]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V668*/ curfptr[667]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V698*/ curfptr[697]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V667*/ curfptr[666]);
+ meltgc_touch(/*_.VALDATA___V697*/ curfptr[696]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V670*/ curfptr[669]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V700*/ curfptr[699]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V669*/ curfptr[668]);
+ meltgc_touch(/*_.VALDATA___V699*/ curfptr[698]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V672*/ curfptr[671]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V702*/ curfptr[701]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V671*/ curfptr[670]);
+ meltgc_touch(/*_.VALDATA___V701*/ curfptr[700]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V674*/ curfptr[673]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V704*/ curfptr[703]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V673*/ curfptr[672]);
+ meltgc_touch(/*_.VALDATA___V703*/ curfptr[702]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V675*/ curfptr[674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V676*/ curfptr[675]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V706*/ curfptr[705]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V675*/ curfptr[674])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V675*/ curfptr[674]);
+ meltgc_touch(/*_.VALDATA___V705*/ curfptr[704]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V125*/ curfptr[124]),6))), (0))));
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_PROPED__V125*/ curfptr[124]),6))), (0))));
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V679*/ curfptr[678]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V651*/ curfptr[650]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[2] = (melt_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V653*/ curfptr[652]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[3] = (melt_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[4] = (melt_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[6] = (melt_ptr_t)(/*_.VALDATA___V689*/ curfptr[688]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[7] = (melt_ptr_t)(/*_.VALDATA___V691*/ curfptr[690]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V663*/ curfptr[662]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[8] = (melt_ptr_t)(/*_.VALDATA___V693*/ curfptr[692]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V665*/ curfptr[664]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[9] = (melt_ptr_t)(/*_.VALDATA___V695*/ curfptr[694]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[10] = (melt_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[11] = (melt_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[12] = (melt_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[13] = (melt_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]);
  
  /*putupl*/
- melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))== OBMAG_MULTIPLE);
- melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))));
- ((meltmultiple_ptr_t)(/*_.VALTUP___V677*/ curfptr[676]))->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V675*/ curfptr[674]);
+ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE);
+ melt_assertmsg("putupl checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))));
+ ((meltmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[14] = (melt_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]);
  
  /*touch:INITUP_*/
- meltgc_touch(/*_.VALTUP___V677*/ curfptr[676]);
+ meltgc_touch(/*_.VALTUP___V707*/ curfptr[706]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]))->obj_vartab[6] = (melt_ptr_t)(
-  /*_.VALTUP___V677*/ curfptr[676]);
+ melt_assertmsg("putslot checkoff", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[6] = (melt_ptr_t)(
+  /*_.VALTUP___V707*/ curfptr[706]);
  
- MELT_LOCATION("warmelt-outobj.melt:3310:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3348:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V646*/ curfptr[645]);
+ meltgc_touch(/*_.VALDATA___V676*/ curfptr[675]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V708*/ curfptr[707])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V679*/ curfptr[678]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V709*/ curfptr[708]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V678*/ curfptr[677]);
+ meltgc_touch(/*_.VALDATA___V708*/ curfptr[707]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V680*/ curfptr[679])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V710*/ curfptr[709])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V680*/ curfptr[679]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V680*/ curfptr[679]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V681*/ curfptr[680]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V711*/ curfptr[710]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V680*/ curfptr[679]);
+ meltgc_touch(/*_.VALDATA___V710*/ curfptr[709]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V682*/ curfptr[681])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V683*/ curfptr[682]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V713*/ curfptr[712]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V682*/ curfptr[681]);
+ meltgc_touch(/*_.VALDATA___V712*/ curfptr[711]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V684*/ curfptr[683])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V685*/ curfptr[684]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V715*/ curfptr[714]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V684*/ curfptr[683]);
+ meltgc_touch(/*_.VALDATA___V714*/ curfptr[713]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V686*/ curfptr[685])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V686*/ curfptr[685]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V686*/ curfptr[685]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V687*/ curfptr[686]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V717*/ curfptr[716]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V686*/ curfptr[685]);
+ meltgc_touch(/*_.VALDATA___V716*/ curfptr[715]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V688*/ curfptr[687])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V689*/ curfptr[688]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V719*/ curfptr[718]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V688*/ curfptr[687]);
+ meltgc_touch(/*_.VALDATA___V718*/ curfptr[717]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V691*/ curfptr[690]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V721*/ curfptr[720]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V690*/ curfptr[689]);
+ meltgc_touch(/*_.VALDATA___V720*/ curfptr[719]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V693*/ curfptr[692]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V723*/ curfptr[722]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V692*/ curfptr[691]);
+ meltgc_touch(/*_.VALDATA___V722*/ curfptr[721]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V695*/ curfptr[694]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V725*/ curfptr[724]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V694*/ curfptr[693]);
+ meltgc_touch(/*_.VALDATA___V724*/ curfptr[723]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V696*/ curfptr[695])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V696*/ curfptr[695]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V696*/ curfptr[695]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V697*/ curfptr[696]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V727*/ curfptr[726]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V696*/ curfptr[695]);
+ meltgc_touch(/*_.VALDATA___V726*/ curfptr[725]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V698*/ curfptr[697])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V699*/ curfptr[698]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V729*/ curfptr[728]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V698*/ curfptr[697]);
+ meltgc_touch(/*_.VALDATA___V728*/ curfptr[727]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V700*/ curfptr[699])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V701*/ curfptr[700]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V731*/ curfptr[730]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V700*/ curfptr[699]);
+ meltgc_touch(/*_.VALDATA___V730*/ curfptr[729]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V702*/ curfptr[701])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V703*/ curfptr[702]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V733*/ curfptr[732]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V702*/ curfptr[701]);
+ meltgc_touch(/*_.VALDATA___V732*/ curfptr[731]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V704*/ curfptr[703])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V705*/ curfptr[704]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V735*/ curfptr[734]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V704*/ curfptr[703]);
+ meltgc_touch(/*_.VALDATA___V734*/ curfptr[733]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#2", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#2", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3343:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V707*/ curfptr[706])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_568__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
- ((meltroutine_ptr_t)/*_.VALROUT___V707*/ curfptr[706])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V737*/ curfptr[736])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V737*/ curfptr[736])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-outobj.melt:3343:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V707*/ curfptr[706])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_568__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V707*/ curfptr[706])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V737*/ curfptr[736])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V737*/ curfptr[736])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3343:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3381:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V707*/ curfptr[706]);
+ meltgc_touch(/*_.VALROUT___V737*/ curfptr[736]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#3", NULL != (/*_.VALROUT___V707*/ curfptr[706]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V707*/ curfptr[706]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#3", NULL != (/*_.VALROUT___V737*/ curfptr[736]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[3] = (melt_ptr_t)(/*_.VALROUT___V737*/ curfptr[736]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#5", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#5", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3356:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V708*/ curfptr[707])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_569__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
- ((meltroutine_ptr_t)/*_.VALROUT___V708*/ curfptr[707])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V738*/ curfptr[737])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_599__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V738*/ curfptr[737])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]);
  
- MELT_LOCATION("warmelt-outobj.melt:3356:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V708*/ curfptr[707])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_569__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V708*/ curfptr[707])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V738*/ curfptr[737])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_599__LAMBDA_#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V738*/ curfptr[737])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3356:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3394:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V708*/ curfptr[707]);
+ meltgc_touch(/*_.VALROUT___V738*/ curfptr[737]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#6", NULL != (/*_.VALROUT___V708*/ curfptr[707]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V708*/ curfptr[707]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#6", NULL != (/*_.VALROUT___V738*/ curfptr[737]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[6] = (melt_ptr_t)(/*_.VALROUT___V738*/ curfptr[737]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#7", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[7] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#7", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[7] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#8", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#8", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#9", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[9] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#9", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[9] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#10", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[10] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#10", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[10] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:3366:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V709*/ curfptr[708])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_570__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
- ((meltroutine_ptr_t)/*_.VALROUT___V709*/ curfptr[708])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V739*/ curfptr[738])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V739*/ curfptr[738])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-outobj.melt:3366:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V709*/ curfptr[708])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_570__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V709*/ curfptr[708])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V739*/ curfptr[738])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V739*/ curfptr[738])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3366:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V709*/ curfptr[708])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_570__LAMBDA_#2", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
- ((meltroutine_ptr_t)/*_.VALROUT___V709*/ curfptr[708])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V739*/ curfptr[738])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__LAMBDA_#2", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V739*/ curfptr[738])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
  
- MELT_LOCATION("warmelt-outobj.melt:3366:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V709*/ curfptr[708])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_570__LAMBDA_#3", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V709*/ curfptr[708])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V739*/ curfptr[738])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__LAMBDA_#3", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V739*/ curfptr[738])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:3366:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3404:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V709*/ curfptr[708]);
+ meltgc_touch(/*_.VALROUT___V739*/ curfptr[738]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#11", NULL != (/*_.VALROUT___V709*/ curfptr[708]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V709*/ curfptr[708]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#11", NULL != (/*_.VALROUT___V739*/ curfptr[738]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[11] = (melt_ptr_t)(/*_.VALROUT___V739*/ curfptr[738]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#12", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[12] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#12", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[12] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#13", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[13] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#13", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[13] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#14", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#14", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#15", NULL != (/*_.CLASS_SEXPR__V129*/ curfptr[128]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[15] = (melt_ptr_t)(/*_.CLASS_SEXPR__V129*/ curfptr[128]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#15", NULL != (/*_.CLASS_SEXPR__V129*/ curfptr[128]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[15] = (melt_ptr_t)(/*_.CLASS_SEXPR__V129*/ curfptr[128]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#16", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[16] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#16", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[16] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#17", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#17", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[18] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#19", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#19", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[19] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#20", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[20] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#20", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[20] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#21", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[21] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#21", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[21] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#22", NULL != (/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[22] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#22", NULL != (/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[22] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#23", NULL != (/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[23] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#23", NULL != (/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[23] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#24", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[24] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#24", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[24] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#25", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[25] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#25", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[25] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#26", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[26] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#26", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[26] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#27", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[27] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#27", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[27] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#28", NULL != (/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[28] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#28", NULL != (/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[28] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#29", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[29] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#29", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[29] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#30", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[30] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#30", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[30] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#1", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#2", NULL != (/*_.CLASS_SEXPR__V129*/ curfptr[128]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V129*/ curfptr[128]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#2", NULL != (/*_.CLASS_SEXPR__V129*/ curfptr[128]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SEXPR__V129*/ curfptr[128]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#3", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#3", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#4", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#4", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#6", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#6", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[6] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#7", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#7", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#8", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#8", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[8] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#9", NULL != (/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#9", NULL != (/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFSELECTOR__V131*/ curfptr[130]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#10", NULL != (/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[10] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#10", NULL != (/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[10] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINSTANCE__V132*/ curfptr[131]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#11", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#11", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#12", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[12] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#12", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[12] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#13", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#13", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#14", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#14", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[14] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#15", NULL != (/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[15] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#15", NULL != (/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[15] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#16", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#16", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_575__LAMBDA_#17", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V710*/ curfptr[709])->tabval[17] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_605__LAMBDA_#17", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[17] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3388:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3426:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V710*/ curfptr[709]);
+ meltgc_touch(/*_.VALROUT___V740*/ curfptr[739]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_566__MAKEDOC_SCANINPUT#31", NULL != (/*_.VALROUT___V710*/ curfptr[709]));
- ((meltroutine_ptr_t)/*_.VALROUT___V706*/ curfptr[705])->tabval[31] = (melt_ptr_t)(/*_.VALROUT___V710*/ curfptr[709]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__MAKEDOC_SCANINPUT#31", NULL != (/*_.VALROUT___V740*/ curfptr[739]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V736*/ curfptr[735])->tabval[31] = (melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739]);
  
- MELT_LOCATION("warmelt-outobj.melt:3336:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3374:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V706*/ curfptr[705]);
+ meltgc_touch(/*_.VALROUT___V736*/ curfptr[735]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V711*/ curfptr[710])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V706*/ curfptr[705])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V711*/ curfptr[710])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V706*/ curfptr[705]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V736*/ curfptr[735])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V741*/ curfptr[740])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V736*/ curfptr[735]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V711*/ curfptr[710]);
+ meltgc_touch(/*_.VALCLO___V741*/ curfptr[740]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V742*/ curfptr[741])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V713*/ curfptr[712]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V743*/ curfptr[742]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V712*/ curfptr[711]);
+ meltgc_touch(/*_.VALDATA___V742*/ curfptr[741]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V744*/ curfptr[743])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V715*/ curfptr[714]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V745*/ curfptr[744]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V714*/ curfptr[713]);
+ meltgc_touch(/*_.VALDATA___V744*/ curfptr[743]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V746*/ curfptr[745])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V717*/ curfptr[716]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V746*/ curfptr[745]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V746*/ curfptr[745]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V747*/ curfptr[746]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V716*/ curfptr[715]);
+ meltgc_touch(/*_.VALDATA___V746*/ curfptr[745]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V748*/ curfptr[747])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V719*/ curfptr[718]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V749*/ curfptr[748]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V718*/ curfptr[717]);
+ meltgc_touch(/*_.VALDATA___V748*/ curfptr[747]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V750*/ curfptr[749])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V721*/ curfptr[720]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V751*/ curfptr[750]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V720*/ curfptr[719]);
+ meltgc_touch(/*_.VALDATA___V750*/ curfptr[749]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V752*/ curfptr[751])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V723*/ curfptr[722]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V753*/ curfptr[752]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V722*/ curfptr[721]);
+ meltgc_touch(/*_.VALDATA___V752*/ curfptr[751]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V725*/ curfptr[724]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V755*/ curfptr[754]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V724*/ curfptr[723]);
+ meltgc_touch(/*_.VALDATA___V754*/ curfptr[753]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V756*/ curfptr[755])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V727*/ curfptr[726]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V756*/ curfptr[755]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V756*/ curfptr[755]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V757*/ curfptr[756]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V726*/ curfptr[725]);
+ meltgc_touch(/*_.VALDATA___V756*/ curfptr[755]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V758*/ curfptr[757])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V729*/ curfptr[728]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V759*/ curfptr[758]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V728*/ curfptr[727]);
+ meltgc_touch(/*_.VALDATA___V758*/ curfptr[757]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V760*/ curfptr[759])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V731*/ curfptr[730]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V761*/ curfptr[760]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V730*/ curfptr[729]);
+ meltgc_touch(/*_.VALDATA___V760*/ curfptr[759]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V762*/ curfptr[761])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V733*/ curfptr[732]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V763*/ curfptr[762]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V732*/ curfptr[731]);
+ meltgc_touch(/*_.VALDATA___V762*/ curfptr[761]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V764*/ curfptr[763])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V735*/ curfptr[734]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V765*/ curfptr[764]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V734*/ curfptr[733]);
+ meltgc_touch(/*_.VALDATA___V764*/ curfptr[763]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V736*/ curfptr[735])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V736*/ curfptr[735]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V736*/ curfptr[735]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V737*/ curfptr[736]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V767*/ curfptr[766]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V736*/ curfptr[735]);
+ meltgc_touch(/*_.VALDATA___V766*/ curfptr[765]);
  
- MELT_LOCATION("warmelt-outobj.melt:3587:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V738*/ curfptr[737])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__MAKEDOC_OUTDEFLOC#0", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V738*/ curfptr[737])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V768*/ curfptr[767])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_628__MAKEDOC_OUTDEFLOC#0", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V768*/ curfptr[767])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3587:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V738*/ curfptr[737])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__MAKEDOC_OUTDEFLOC#1", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
- ((meltroutine_ptr_t)/*_.VALROUT___V738*/ curfptr[737])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V768*/ curfptr[767])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_628__MAKEDOC_OUTDEFLOC#1", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V768*/ curfptr[767])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-outobj.melt:3587:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3625:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V738*/ curfptr[737]);
+ meltgc_touch(/*_.VALROUT___V768*/ curfptr[767]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V739*/ curfptr[738])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V738*/ curfptr[737])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V739*/ curfptr[738])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V738*/ curfptr[737]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V769*/ curfptr[768])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V768*/ curfptr[767])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V769*/ curfptr[768])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V768*/ curfptr[767]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V739*/ curfptr[738]);
+ meltgc_touch(/*_.VALCLO___V769*/ curfptr[768]);
  
- MELT_LOCATION("warmelt-outobj.melt:3601:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__MAKEDOC_OUTFORMALS#0", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
- ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V770*/ curfptr[769])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__MAKEDOC_OUTFORMALS#0", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V770*/ curfptr[769])->tabval[0] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-outobj.melt:3601:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__MAKEDOC_OUTFORMALS#1", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
- ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V770*/ curfptr[769])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__MAKEDOC_OUTFORMALS#1", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V770*/ curfptr[769])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:3601:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__MAKEDOC_OUTFORMALS#2", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V770*/ curfptr[769])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__MAKEDOC_OUTFORMALS#2", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V770*/ curfptr[769])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3601:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_600__MAKEDOC_OUTFORMALS#3", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
- ((meltroutine_ptr_t)/*_.VALROUT___V740*/ curfptr[739])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V770*/ curfptr[769])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__MAKEDOC_OUTFORMALS#3", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V770*/ curfptr[769])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
  
- MELT_LOCATION("warmelt-outobj.melt:3601:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3639:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V740*/ curfptr[739]);
+ meltgc_touch(/*_.VALROUT___V770*/ curfptr[769]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V740*/ curfptr[739])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V741*/ curfptr[740])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V740*/ curfptr[739]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V771*/ curfptr[770])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V770*/ curfptr[769])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V771*/ curfptr[770])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V770*/ curfptr[769]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V741*/ curfptr[740]);
+ meltgc_touch(/*_.VALCLO___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-outobj.melt:3641:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V742*/ curfptr[741])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_602__MAKEDOC_OUTDOC#0", NULL != (/*_.CLASS_SEXPR__V129*/ curfptr[128]));
- ((meltroutine_ptr_t)/*_.VALROUT___V742*/ curfptr[741])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V129*/ curfptr[128]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V772*/ curfptr[771])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_632__MAKEDOC_OUTDOC#0", NULL != (/*_.CLASS_SEXPR__V129*/ curfptr[128]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V772*/ curfptr[771])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V129*/ curfptr[128]);
  
- MELT_LOCATION("warmelt-outobj.melt:3641:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V742*/ curfptr[741])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_602__MAKEDOC_OUTDOC#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V742*/ curfptr[741])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V772*/ curfptr[771])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_632__MAKEDOC_OUTDOC#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V772*/ curfptr[771])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3641:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3679:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V742*/ curfptr[741]);
+ meltgc_touch(/*_.VALROUT___V772*/ curfptr[771]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V742*/ curfptr[741])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V743*/ curfptr[742])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V742*/ curfptr[741]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V772*/ curfptr[771])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V773*/ curfptr[772])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V772*/ curfptr[771]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V743*/ curfptr[742]);
+ meltgc_touch(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#1", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#1", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#2", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#2", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#3", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#3", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#4", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#4", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#5", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#5", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V739*/ curfptr[738]);
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V739*/ curfptr[738]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V769*/ curfptr[768]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V769*/ curfptr[768]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#7", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#7", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[7] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#8", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#8", NULL != (/*_.CLASS_FIELD__V84*/ curfptr[83]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[8] = (melt_ptr_t)(/*_.CLASS_FIELD__V84*/ curfptr[83]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#9", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[9] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#9", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[9] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#10", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#10", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[10] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_604__MAKEDOC_OUTCLASSDEF#11", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[11] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__MAKEDOC_OUTCLASSDEF#11", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[11] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V744*/ curfptr[743])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V774*/ curfptr[773])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:3677:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3715:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V744*/ curfptr[743]);
+ meltgc_touch(/*_.VALROUT___V774*/ curfptr[773]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V745*/ curfptr[744])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V744*/ curfptr[743])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V745*/ curfptr[744])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V744*/ curfptr[743]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V775*/ curfptr[774])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V774*/ curfptr[773])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V775*/ curfptr[774])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V774*/ curfptr[773]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V745*/ curfptr[744]);
+ meltgc_touch(/*_.VALCLO___V775*/ curfptr[774]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#5", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#5", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#6", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#6", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_606__MAKEDOC_GENMACRO#7", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[7] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__MAKEDOC_GENMACRO#7", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[7] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V746*/ curfptr[745])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V776*/ curfptr[775])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:3802:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3840:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V746*/ curfptr[745]);
+ meltgc_touch(/*_.VALROUT___V776*/ curfptr[775]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V747*/ curfptr[746])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V746*/ curfptr[745])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V747*/ curfptr[746])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V746*/ curfptr[745]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V777*/ curfptr[776])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V776*/ curfptr[775])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V777*/ curfptr[776])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V776*/ curfptr[775]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V747*/ curfptr[746]);
+ meltgc_touch(/*_.VALCLO___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#5", NULL != (/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#5", NULL != (/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_PATMACRO__V137*/ curfptr[136]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#6", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#6", NULL != (/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_EXPORT_MACRO__V138*/ curfptr[137]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#7", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#7", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_608__MAKEDOC_GENPATMACRO#8", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[8] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__MAKEDOC_GENPATMACRO#8", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[8] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V748*/ curfptr[747])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:3856:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3894:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V748*/ curfptr[747]);
+ meltgc_touch(/*_.VALROUT___V778*/ curfptr[777]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V749*/ curfptr[748])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V748*/ curfptr[747])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V749*/ curfptr[748])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V748*/ curfptr[747]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V779*/ curfptr[778])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V779*/ curfptr[778])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V778*/ curfptr[777]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V749*/ curfptr[748]);
+ meltgc_touch(/*_.VALCLO___V779*/ curfptr[778]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#1", NULL != (/*_.VALBXINT___V751*/ curfptr[750]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[1] = (melt_ptr_t)(/*_.VALBXINT___V751*/ curfptr[750]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#1", NULL != (/*_.VALBXINT___V781*/ curfptr[780]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[1] = (melt_ptr_t)(/*_.VALBXINT___V781*/ curfptr[780]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#2", NULL != (/*_.VALBXINT___V752*/ curfptr[751]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V752*/ curfptr[751]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#2", NULL != (/*_.VALBXINT___V782*/ curfptr[781]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[2] = (melt_ptr_t)(/*_.VALBXINT___V782*/ curfptr[781]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#3", NULL != (/*_.VALBXINT___V753*/ curfptr[752]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[3] = (melt_ptr_t)(/*_.VALBXINT___V753*/ curfptr[752]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#3", NULL != (/*_.VALBXINT___V783*/ curfptr[782]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[3] = (melt_ptr_t)(/*_.VALBXINT___V783*/ curfptr[782]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#4", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#4", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[4] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#5", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#5", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[5] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#6", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#6", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#7", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#7", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
  
- MELT_LOCATION("warmelt-outobj.melt:3927:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V754*/ curfptr[753])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_615__LAMBDA_#0", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V754*/ curfptr[753])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V784*/ curfptr[783])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_645__LAMBDA_#0", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V784*/ curfptr[783])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3927:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V754*/ curfptr[753])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_615__LAMBDA_#1", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
- ((meltroutine_ptr_t)/*_.VALROUT___V754*/ curfptr[753])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V784*/ curfptr[783])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_645__LAMBDA_#1", NULL != (/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V784*/ curfptr[783])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CLASS_BINDING__V130*/ curfptr[129]);
  
- MELT_LOCATION("warmelt-outobj.melt:3927:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3965:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V754*/ curfptr[753]);
+ meltgc_touch(/*_.VALROUT___V784*/ curfptr[783]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#8", NULL != (/*_.VALROUT___V754*/ curfptr[753]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V754*/ curfptr[753]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#8", NULL != (/*_.VALROUT___V784*/ curfptr[783]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[8] = (melt_ptr_t)(/*_.VALROUT___V784*/ curfptr[783]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#9", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#9", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[9] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3932:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V755*/ curfptr[754])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_616__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V755*/ curfptr[754])->tabval[0] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V785*/ curfptr[784])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V785*/ curfptr[784])->tabval[0] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3932:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3970:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V755*/ curfptr[754]);
+ meltgc_touch(/*_.VALROUT___V785*/ curfptr[784]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#10", NULL != (/*_.VALROUT___V755*/ curfptr[754]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V755*/ curfptr[754]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#10", NULL != (/*_.VALROUT___V785*/ curfptr[784]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V785*/ curfptr[784]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#11", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#11", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3962:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V756*/ curfptr[755])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_617__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V756*/ curfptr[755])->tabval[0] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V786*/ curfptr[785])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_647__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V786*/ curfptr[785])->tabval[0] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3962:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4000:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V756*/ curfptr[755]);
+ meltgc_touch(/*_.VALROUT___V786*/ curfptr[785]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#12", NULL != (/*_.VALROUT___V756*/ curfptr[755]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V756*/ curfptr[755]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#12", NULL != (/*_.VALROUT___V786*/ curfptr[785]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[12] = (melt_ptr_t)(/*_.VALROUT___V786*/ curfptr[785]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#13", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#13", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[13] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#14", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[14] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#14", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[14] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#15", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[15] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#15", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[15] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V757*/ curfptr[756])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_618__LAMBDA_#0", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V757*/ curfptr[756])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V787*/ curfptr[786])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_648__LAMBDA_#0", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V787*/ curfptr[786])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V757*/ curfptr[756])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_618__LAMBDA_#1", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V757*/ curfptr[756])->tabval[1] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V787*/ curfptr[786])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_648__LAMBDA_#1", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V787*/ curfptr[786])->tabval[1] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:3985:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V757*/ curfptr[756])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_618__LAMBDA_#2", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V757*/ curfptr[756])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V787*/ curfptr[786])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_648__LAMBDA_#2", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V787*/ curfptr[786])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:3985:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4023:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V757*/ curfptr[756]);
+ meltgc_touch(/*_.VALROUT___V787*/ curfptr[786]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#16", NULL != (/*_.VALROUT___V757*/ curfptr[756]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V757*/ curfptr[756]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#16", NULL != (/*_.VALROUT___V787*/ curfptr[786]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[16] = (melt_ptr_t)(/*_.VALROUT___V787*/ curfptr[786]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#17", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#17", NULL != (/*_.CLASS_CLASS__V103*/ curfptr[102]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[17] = (melt_ptr_t)(/*_.CLASS_CLASS__V103*/ curfptr[102]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#18", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#18", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[18] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_610__MAKEDOC_GENCLASS#19", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[19] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_640__MAKEDOC_GENCLASS#19", NULL != (/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[19] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCLASS__V128*/ curfptr[127]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V745*/ curfptr[744]);
- ((meltroutine_ptr_t)/*_.VALROUT___V750*/ curfptr[749])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V745*/ curfptr[744]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V775*/ curfptr[774]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V780*/ curfptr[779])->tabval[20] = (melt_ptr_t)(/*_.VALCLO___V775*/ curfptr[774]);
  
- MELT_LOCATION("warmelt-outobj.melt:3911:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:3949:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V750*/ curfptr[749]);
+ meltgc_touch(/*_.VALROUT___V780*/ curfptr[779]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V758*/ curfptr[757])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V750*/ curfptr[749])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V758*/ curfptr[757])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V750*/ curfptr[749]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V788*/ curfptr[787])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V780*/ curfptr[779])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V788*/ curfptr[787])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V780*/ curfptr[779]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V758*/ curfptr[757]);
+ meltgc_touch(/*_.VALCLO___V788*/ curfptr[787]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_619__MAKEDOC_OUTPRIMITIVEDEF#1", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_649__MAKEDOC_OUTPRIMITIVEDEF#1", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_619__MAKEDOC_OUTPRIMITIVEDEF#2", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_649__MAKEDOC_OUTPRIMITIVEDEF#2", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_619__MAKEDOC_OUTPRIMITIVEDEF#3", NULL != (/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]));
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_649__MAKEDOC_OUTPRIMITIVEDEF#3", NULL != (/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_619__MAKEDOC_OUTPRIMITIVEDEF#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_649__MAKEDOC_OUTPRIMITIVEDEF#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V739*/ curfptr[738]);
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V739*/ curfptr[738]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V769*/ curfptr[768]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V769*/ curfptr[768]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_619__MAKEDOC_OUTPRIMITIVEDEF#6", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_649__MAKEDOC_OUTPRIMITIVEDEF#6", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V741*/ curfptr[740]);
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V771*/ curfptr[770]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V759*/ curfptr[758])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V789*/ curfptr[788])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:4038:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4076:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V759*/ curfptr[758]);
+ meltgc_touch(/*_.VALROUT___V789*/ curfptr[788]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V760*/ curfptr[759])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V759*/ curfptr[758])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V760*/ curfptr[759])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V759*/ curfptr[758]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V790*/ curfptr[789])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V789*/ curfptr[788])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V790*/ curfptr[789])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V789*/ curfptr[788]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V760*/ curfptr[759]);
+ meltgc_touch(/*_.VALCLO___V790*/ curfptr[789]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V791*/ curfptr[790])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V762*/ curfptr[761]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V792*/ curfptr[791]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V761*/ curfptr[760]);
+ meltgc_touch(/*_.VALDATA___V791*/ curfptr[790]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V763*/ curfptr[762])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V793*/ curfptr[792])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_623__MAKEDOC_GENPRIMITIVE#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V763*/ curfptr[762])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_653__MAKEDOC_GENPRIMITIVE#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V793*/ curfptr[792])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_623__MAKEDOC_GENPRIMITIVE#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V763*/ curfptr[762])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_653__MAKEDOC_GENPRIMITIVE#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V793*/ curfptr[792])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_623__MAKEDOC_GENPRIMITIVE#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V763*/ curfptr[762])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_653__MAKEDOC_GENPRIMITIVE#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V793*/ curfptr[792])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_623__MAKEDOC_GENPRIMITIVE#4", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
- ((meltroutine_ptr_t)/*_.VALROUT___V763*/ curfptr[762])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_653__MAKEDOC_GENPRIMITIVE#4", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V793*/ curfptr[792])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V133*/ curfptr[132]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V760*/ curfptr[759]);
- ((meltroutine_ptr_t)/*_.VALROUT___V763*/ curfptr[762])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V760*/ curfptr[759]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V790*/ curfptr[789]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V793*/ curfptr[792])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V790*/ curfptr[789]);
  
- MELT_LOCATION("warmelt-outobj.melt:4068:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4106:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V763*/ curfptr[762]);
+ meltgc_touch(/*_.VALROUT___V793*/ curfptr[792]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V764*/ curfptr[763])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V763*/ curfptr[762])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V764*/ curfptr[763])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V763*/ curfptr[762]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V794*/ curfptr[793])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V793*/ curfptr[792])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V794*/ curfptr[793])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V793*/ curfptr[792]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V764*/ curfptr[763]);
+ meltgc_touch(/*_.VALCLO___V794*/ curfptr[793]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_625__MAKEDOC_OUTFUNCTIONDEF#1", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_655__MAKEDOC_OUTFUNCTIONDEF#1", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_625__MAKEDOC_OUTFUNCTIONDEF#2", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_655__MAKEDOC_OUTFUNCTIONDEF#2", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[2] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_625__MAKEDOC_OUTFUNCTIONDEF#3", NULL != (/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]));
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_655__MAKEDOC_OUTFUNCTIONDEF#3", NULL != (/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION_FORMAL__V139*/ curfptr[138]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_625__MAKEDOC_OUTFUNCTIONDEF#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_655__MAKEDOC_OUTFUNCTIONDEF#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V739*/ curfptr[738]);
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V739*/ curfptr[738]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V769*/ curfptr[768]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V769*/ curfptr[768]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V741*/ curfptr[740]);
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V771*/ curfptr[770]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V765*/ curfptr[764])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V795*/ curfptr[794])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:4097:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4135:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V765*/ curfptr[764]);
+ meltgc_touch(/*_.VALROUT___V795*/ curfptr[794]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V766*/ curfptr[765])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V765*/ curfptr[764])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V766*/ curfptr[765])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V765*/ curfptr[764]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V796*/ curfptr[795])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V795*/ curfptr[794])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V796*/ curfptr[795])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V795*/ curfptr[794]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V766*/ curfptr[765]);
+ meltgc_touch(/*_.VALCLO___V796*/ curfptr[795]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V767*/ curfptr[766])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V797*/ curfptr[796])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_627__MAKEDOC_GENFUNCTION#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V767*/ curfptr[766])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_657__MAKEDOC_GENFUNCTION#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V797*/ curfptr[796])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_627__MAKEDOC_GENFUNCTION#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V767*/ curfptr[766])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_657__MAKEDOC_GENFUNCTION#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V797*/ curfptr[796])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_627__MAKEDOC_GENFUNCTION#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V767*/ curfptr[766])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_657__MAKEDOC_GENFUNCTION#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V797*/ curfptr[796])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_627__MAKEDOC_GENFUNCTION#4", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
- ((meltroutine_ptr_t)/*_.VALROUT___V767*/ curfptr[766])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_657__MAKEDOC_GENFUNCTION#4", NULL != (/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V797*/ curfptr[796])->tabval[4] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFUN__V134*/ curfptr[133]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V766*/ curfptr[765]);
- ((meltroutine_ptr_t)/*_.VALROUT___V767*/ curfptr[766])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V766*/ curfptr[765]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V796*/ curfptr[795]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V797*/ curfptr[796])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V796*/ curfptr[795]);
  
- MELT_LOCATION("warmelt-outobj.melt:4122:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4160:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V767*/ curfptr[766]);
+ meltgc_touch(/*_.VALROUT___V797*/ curfptr[796]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V768*/ curfptr[767])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V767*/ curfptr[766])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V768*/ curfptr[767])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V767*/ curfptr[766]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V798*/ curfptr[797])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V797*/ curfptr[796])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V798*/ curfptr[797])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V797*/ curfptr[796]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V768*/ curfptr[767]);
+ meltgc_touch(/*_.VALCLO___V798*/ curfptr[797]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#5", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#5", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V135*/ curfptr[134]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#6", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[6] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#6", NULL != (/*_.CLASS_LOCATED__V113*/ curfptr[112]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[6] = (melt_ptr_t)(/*_.CLASS_LOCATED__V113*/ curfptr[112]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#7", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#7", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#8", NULL != (/*_.CLASS_CITERATOR__V52*/ curfptr[51]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V52*/ curfptr[51]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#8", NULL != (/*_.CLASS_CITERATOR__V52*/ curfptr[51]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V52*/ curfptr[51]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_629__MAKEDOC_GENCITERATOR#9", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_659__MAKEDOC_GENCITERATOR#9", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V739*/ curfptr[738]);
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V739*/ curfptr[738]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V769*/ curfptr[768]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[10] = (melt_ptr_t)(/*_.VALCLO___V769*/ curfptr[768]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V741*/ curfptr[740]);
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V771*/ curfptr[770]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[11] = (melt_ptr_t)(/*_.VALCLO___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V769*/ curfptr[768])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V799*/ curfptr[798])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:4151:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4189:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V769*/ curfptr[768]);
+ meltgc_touch(/*_.VALROUT___V799*/ curfptr[798]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V770*/ curfptr[769])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V769*/ curfptr[768])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V770*/ curfptr[769])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V769*/ curfptr[768]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V800*/ curfptr[799])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V799*/ curfptr[798])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V800*/ curfptr[799])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V799*/ curfptr[798]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V770*/ curfptr[769]);
+ meltgc_touch(/*_.VALCLO___V800*/ curfptr[799]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[0] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#1", NULL != (/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[1] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V99*/ curfptr[98]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#2", NULL != (/*_.DISCR_MULTIPLE__V101*/ curfptr[100]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[2] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V101*/ curfptr[100]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#3", NULL != (/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[3] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V100*/ curfptr[99]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#4", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[4] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#5", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#5", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V136*/ curfptr[135]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#6", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#6", NULL != (/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFINITION__V126*/ curfptr[125]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#7", NULL != (/*_.CLASS_ANY_MATCHER__V140*/ curfptr[139]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[7] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V140*/ curfptr[139]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#7", NULL != (/*_.CLASS_ANY_MATCHER__V140*/ curfptr[139]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[7] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V140*/ curfptr[139]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#8", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#8", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V739*/ curfptr[738]);
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V739*/ curfptr[738]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V769*/ curfptr[768]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V769*/ curfptr[768]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#10", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[10] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#10", NULL != (/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[10] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V127*/ curfptr[126]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#11", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#11", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[11] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_631__MAKEDOC_GENCMATCHER#12", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_661__MAKEDOC_GENCMATCHER#12", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V741*/ curfptr[740]);
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V771*/ curfptr[770]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V771*/ curfptr[770]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V743*/ curfptr[742]);
- ((meltroutine_ptr_t)/*_.VALROUT___V771*/ curfptr[770])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V743*/ curfptr[742]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V773*/ curfptr[772]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V801*/ curfptr[800])->tabval[14] = (melt_ptr_t)(/*_.VALCLO___V773*/ curfptr[772]);
  
- MELT_LOCATION("warmelt-outobj.melt:4205:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4243:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V771*/ curfptr[770]);
+ meltgc_touch(/*_.VALROUT___V801*/ curfptr[800]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V772*/ curfptr[771])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V771*/ curfptr[770])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V772*/ curfptr[771])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V771*/ curfptr[770]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V802*/ curfptr[801])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V801*/ curfptr[800])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V802*/ curfptr[801])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V801*/ curfptr[800]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V772*/ curfptr[771]);
+ meltgc_touch(/*_.VALCLO___V802*/ curfptr[801]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V774*/ curfptr[773]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V804*/ curfptr[803]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V773*/ curfptr[772]);
+ meltgc_touch(/*_.VALDATA___V803*/ curfptr[802]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_635__MAKEDOC_GENOUTPUT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_665__MAKEDOC_GENOUTPUT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[1] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_635__MAKEDOC_GENOUTPUT#2", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_665__MAKEDOC_GENOUTPUT#2", NULL != (/*_.DISCR_STRBUF__V54*/ curfptr[53]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V54*/ curfptr[53]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V747*/ curfptr[746]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V747*/ curfptr[746]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V777*/ curfptr[776]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[3] = (melt_ptr_t)(/*_.VALCLO___V777*/ curfptr[776]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V749*/ curfptr[748]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V749*/ curfptr[748]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V779*/ curfptr[778]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[4] = (melt_ptr_t)(/*_.VALCLO___V779*/ curfptr[778]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V758*/ curfptr[757]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V758*/ curfptr[757]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V788*/ curfptr[787]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[5] = (melt_ptr_t)(/*_.VALCLO___V788*/ curfptr[787]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V764*/ curfptr[763]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V764*/ curfptr[763]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V794*/ curfptr[793]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[6] = (melt_ptr_t)(/*_.VALCLO___V794*/ curfptr[793]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V768*/ curfptr[767]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V768*/ curfptr[767]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V798*/ curfptr[797]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[7] = (melt_ptr_t)(/*_.VALCLO___V798*/ curfptr[797]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V770*/ curfptr[769]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V770*/ curfptr[769]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V800*/ curfptr[799]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[8] = (melt_ptr_t)(/*_.VALCLO___V800*/ curfptr[799]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V772*/ curfptr[771]);
- ((meltroutine_ptr_t)/*_.VALROUT___V775*/ curfptr[774])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V772*/ curfptr[771]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V802*/ curfptr[801]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V805*/ curfptr[804])->tabval[9] = (melt_ptr_t)(/*_.VALCLO___V802*/ curfptr[801]);
  
- MELT_LOCATION("warmelt-outobj.melt:4273:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4311:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V775*/ curfptr[774]);
+ meltgc_touch(/*_.VALROUT___V805*/ curfptr[804]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V776*/ curfptr[775])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V775*/ curfptr[774])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V776*/ curfptr[775])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V775*/ curfptr[774]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V806*/ curfptr[805])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V805*/ curfptr[804])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V806*/ curfptr[805])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V805*/ curfptr[804]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V776*/ curfptr[775]);
+ meltgc_touch(/*_.VALCLO___V806*/ curfptr[805]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#1", NULL != (/*_.PREVENV___V4*/ curfptr[3]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[1] = (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#2", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#2", NULL != (/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[2] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V111*/ curfptr[110]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#3", NULL != (/*_.DISCR_STRING__V55*/ curfptr[54]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#4", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#4", NULL != (/*_.DISCR_LIST__V72*/ curfptr[71]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V72*/ curfptr[71]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V646*/ curfptr[645]);
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V676*/ curfptr[675]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[5] = (melt_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#6", NULL != (/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#6", NULL != (/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V118*/ curfptr[117]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#7", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[7] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#7", NULL != (/*_.LIST_EVERY__V34*/ curfptr[33]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[7] = (melt_ptr_t)(/*_.LIST_EVERY__V34*/ curfptr[33]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[8] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[8] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#9", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[9] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#9", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[9] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-outobj.melt:4368:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4406:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_639__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
- ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V808*/ curfptr[807])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_669__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V808*/ curfptr[807])->tabval[0] = (melt_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]);
  
- MELT_LOCATION("warmelt-outobj.melt:4368:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4406:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_639__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
- ((meltroutine_ptr_t)/*_.VALROUT___V778*/ curfptr[777])->tabval[1] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V808*/ curfptr[807])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_669__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V124*/ curfptr[123]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V808*/ curfptr[807])->tabval[1] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V124*/ curfptr[123]);
  
- MELT_LOCATION("warmelt-outobj.melt:4368:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4406:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V778*/ curfptr[777]);
+ meltgc_touch(/*_.VALROUT___V808*/ curfptr[807]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#10", NULL != (/*_.VALROUT___V778*/ curfptr[777]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V778*/ curfptr[777]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#10", NULL != (/*_.VALROUT___V808*/ curfptr[807]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[10] = (melt_ptr_t)(/*_.VALROUT___V808*/ curfptr[807]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconst");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconst");
  /*putroutconst*/
- melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_637__MAKEDOC_DOCMD#11", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]));
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[11] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]);
+ melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_667__MAKEDOC_DOCMD#11", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]));
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[11] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V108*/ curfptr[107]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V711*/ curfptr[710]);
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V711*/ curfptr[710]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V741*/ curfptr[740]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[12] = (melt_ptr_t)(/*_.VALCLO___V741*/ curfptr[740]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ putroutconstnotnull");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ putroutconstnotnull");
  /*putroutconstnotnull*/
- melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V776*/ curfptr[775]);
- ((meltroutine_ptr_t)/*_.VALROUT___V777*/ curfptr[776])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V776*/ curfptr[775]);
+ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V806*/ curfptr[805]);
+ ((meltroutine_ptr_t)/*_.VALROUT___V807*/ curfptr[806])->tabval[13] = (melt_ptr_t)(/*_.VALCLO___V806*/ curfptr[805]);
  
- MELT_LOCATION("warmelt-outobj.melt:4336:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4374:/ touch");
  /*touch:IROUTVAL_*/
- meltgc_touch(/*_.VALROUT___V777*/ curfptr[776]);
+ meltgc_touch(/*_.VALROUT___V807*/ curfptr[806]);
  
  /*putclosurout*/
- melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V779*/ curfptr[778])) == OBMAG_CLOSURE);
- melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V777*/ curfptr[776])) == OBMAG_ROUTINE);
- ((meltclosure_ptr_t)/*_.VALCLO___V779*/ curfptr[778])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V777*/ curfptr[776]);
+ melt_assertmsg("putclosrout checkclo", melt_magic_discr((melt_ptr_t)(/*_.VALCLO___V809*/ curfptr[808])) == OBMAG_CLOSURE);
+ melt_assertmsg("putclosrout checkrout", melt_magic_discr((melt_ptr_t)(/*_.VALROUT___V807*/ curfptr[806])) == OBMAG_ROUTINE);
+ ((meltclosure_ptr_t)/*_.VALCLO___V809*/ curfptr[808])->rout = (meltroutine_ptr_t) (/*_.VALROUT___V807*/ curfptr[806]);
  
  /*touch:DATACLOSURE_*/
- meltgc_touch(/*_.VALCLO___V779*/ curfptr[778]);
+ meltgc_touch(/*_.VALCLO___V809*/ curfptr[808]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V781*/ curfptr[780]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V811*/ curfptr[810]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V780*/ curfptr[779]);
+ meltgc_touch(/*_.VALDATA___V810*/ curfptr[809]);
  
- MELT_LOCATION("warmelt-outobj.melt:4387:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:4425:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V783*/ curfptr[782]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V813*/ curfptr[812]);
  
- MELT_LOCATION("warmelt-outobj.melt:4387:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:4425:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[2] = (melt_ptr_t)(
-  /*_.VALSTR___V784*/ curfptr[783]);
+ melt_assertmsg("putslot checkoff", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[2] = (melt_ptr_t)(
+  /*_.VALSTR___V814*/ curfptr[813]);
  
- MELT_LOCATION("warmelt-outobj.melt:4387:/ putslot");
+ MELT_LOCATION("warmelt-outobj.melt:4425:/ putslot");
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[3] = (melt_ptr_t)(
-  /*_.VALCLO___V779*/ curfptr[778]);
+ melt_assertmsg("putslot checkoff", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[3] = (melt_ptr_t)(
+  /*_.VALCLO___V809*/ curfptr[808]);
  
- MELT_LOCATION("warmelt-outobj.melt:4387:/ touch");
+ MELT_LOCATION("warmelt-outobj.melt:4425:/ touch");
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V782*/ curfptr[781]);
+ meltgc_touch(/*_.VALDATA___V812*/ curfptr[811]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V786*/ curfptr[785]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V816*/ curfptr[815]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V785*/ curfptr[784]);
+ meltgc_touch(/*_.VALDATA___V815*/ curfptr[814]);
  
  /*putslot*/
- melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])) == OBMAG_OBJECT);
+ melt_assertmsg("putslot checkobj", melt_magic_discr((melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])) == OBMAG_OBJECT);
  
- melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]))));
- ((meltobject_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]))->obj_vartab[1] = (melt_ptr_t)(
-  /*_.VALSTR___V788*/ curfptr[787]);
+ melt_assertmsg("putslot checkoff", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))));
+ ((meltobject_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]))->obj_vartab[1] = (melt_ptr_t)(
+  /*_.VALSTR___V818*/ curfptr[817]);
  
  /*touch:VALUEDATA_*/
- meltgc_touch(/*_.VALDATA___V787*/ curfptr[786]);
+ meltgc_touch(/*_.VALDATA___V817*/ curfptr[816]);
  
  /**COMMENT: before toplevel body **/;
  
@@ -66176,7 +26475,7 @@ initial_frame_st     curfram__;
    /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/
 /*_.CONTENV___V2*/ curfptr[1]) /*then*/ {
   MELT_LOCATION("warmelt-outobj.melt:3:/ cond.then");
-  /*_.OR___V789*/ curfptr[788] = 
+  /*_.OR___V819*/ curfptr[818] = 
     /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start*/
 /*_.CONTENV___V2*/ curfptr[1];;
   } else {MELT_LOCATION("warmelt-outobj.melt:3:/ cond.else");
@@ -66185,7 +26484,7 @@ initial_frame_st     curfram__;
    /*block*/{
     MELT_LOCATION("warmelt-outobj.melt:3:/ getslot");
     { melt_ptr_t slot=0;
-     melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V790*/ curfptr[789] = slot; };
+     melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 3, "SYSDATA_CONT_FRESH_ENV");/*_.SYSDATA_CONT_FRESH_ENV__V820*/ curfptr[819] = slot; };
     ;
     MELT_LOCATION("warmelt-outobj.melt:3:/ apply");
     /*apply*/{
@@ -66193,15 +26492,15 @@ initial_frame_st     curfram__;
      memset(&argtab, 0, sizeof(argtab));
      MELT_LOCATION("warmelt-outobj.melt:3:/ apply.arg");
      argtab[0].bp_cstring =  "warmelt-outobj";
-     /*_.FUN___V791*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V790*/ curfptr[789]), (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+     /*_.FUN___V821*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V820*/ curfptr[819]), (melt_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    /*_.OR___V789*/ curfptr[788] = /*_.FUN___V791*/ curfptr[790];;
+    /*_.OR___V819*/ curfptr[818] = /*_.FUN___V821*/ curfptr[820];;
     /*epilog*/
     MELT_LOCATION("warmelt-outobj.melt:3:/ clear");
-    /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V790*/ curfptr[789] = 0 ;
+    /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V820*/ curfptr[819] = 0 ;
     MELT_LOCATION("warmelt-outobj.melt:3:/ clear");
-    /*clear*/ /*_.FUN___V791*/ curfptr[790] = 0 ;}
+    /*clear*/ /*_.FUN___V821*/ curfptr[820] = 0 ;}
    ;
    }
   ;
@@ -66210,7 +26509,7 @@ initial_frame_st     curfram__;
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:3:/ clear");
-  /*clear*/ /*_.OR___V789*/ curfptr[788] = 0 ;}
+  /*clear*/ /*_.OR___V819*/ curfptr[818] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:33:/ block");
  /*block*/{
@@ -66233,24 +26532,24 @@ initial_frame_st     curfram__;
      argtab[2].bp_cstring =  "warmelt-outobj.melt";
      MELT_LOCATION("warmelt-outobj.melt:33:/ apply.arg");
      argtab[3].bp_long = 33;
-     /*_.DEBUG_MSG_FUN__V793*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     /*_.DEBUG_MSG_FUN__V823*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (melt_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    /*_.IFCPP___V792*/ curfptr[789] = /*_.DEBUG_MSG_FUN__V793*/ curfptr[790];;
+    /*_.IFCPP___V822*/ curfptr[819] = /*_.DEBUG_MSG_FUN__V823*/ curfptr[820];;
     /*epilog*/
     MELT_LOCATION("warmelt-outobj.melt:33:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ;
     MELT_LOCATION("warmelt-outobj.melt:33:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V793*/ curfptr[790] = 0 ;}
+    /*clear*/ /*_.DEBUG_MSG_FUN__V823*/ curfptr[820] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
    MELT_LOCATION("warmelt-outobj.melt:33:/ cppif.else");
-  /*_.IFCPP___V792*/ curfptr[789] = (/*nil*/NULL);
+  /*_.IFCPP___V822*/ curfptr[819] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:33:/ clear");
-  /*clear*/ /*_.IFCPP___V792*/ curfptr[789] = 0 ;}
+  /*clear*/ /*_.IFCPP___V822*/ curfptr[819] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:34:/ block");
  /*block*/{
@@ -66273,24 +26572,24 @@ initial_frame_st     curfram__;
      argtab[2].bp_cstring =  "warmelt-outobj.melt";
      MELT_LOCATION("warmelt-outobj.melt:34:/ apply.arg");
      argtab[3].bp_long = 34;
-     /*_.DEBUG_MSG_FUN__V795*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (melt_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+     /*_.DEBUG_MSG_FUN__V825*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (melt_ptr_t)(((void*)(MELT_PREDEF(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
      }
     ;
-    /*_.IFCPP___V794*/ curfptr[788] = /*_.DEBUG_MSG_FUN__V795*/ curfptr[790];;
+    /*_.IFCPP___V824*/ curfptr[818] = /*_.DEBUG_MSG_FUN__V825*/ curfptr[820];;
     /*epilog*/
     MELT_LOCATION("warmelt-outobj.melt:34:/ clear");
     /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ;
     MELT_LOCATION("warmelt-outobj.melt:34:/ clear");
-    /*clear*/ /*_.DEBUG_MSG_FUN__V795*/ curfptr[790] = 0 ;}
+    /*clear*/ /*_.DEBUG_MSG_FUN__V825*/ curfptr[820] = 0 ;}
    
    #else /*ENABLE_CHECKING*/
    MELT_LOCATION("warmelt-outobj.melt:34:/ cppif.else");
-  /*_.IFCPP___V794*/ curfptr[788] = (/*nil*/NULL);
+  /*_.IFCPP___V824*/ curfptr[818] = (/*nil*/NULL);
    #endif /*ENABLE_CHECKING*/
    ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:34:/ clear");
-  /*clear*/ /*_.IFCPP___V794*/ curfptr[788] = 0 ;}
+  /*clear*/ /*_.IFCPP___V824*/ curfptr[818] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:40:/ block");
  /*block*/{
@@ -66302,12 +26601,12 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
    MELT_LOCATION("warmelt-outobj.melt:40:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V146*/ curfptr[145];
-   /*_.INSTALL_METHOD__V796*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V826*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:40:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V796*/ curfptr[789] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V826*/ curfptr[819] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:52:/ block");
  /*block*/{
@@ -66319,12 +26618,12 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
    MELT_LOCATION("warmelt-outobj.melt:52:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V154*/ curfptr[153];
-   /*_.INSTALL_METHOD__V797*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V827*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:52:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V797*/ curfptr[790] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V827*/ curfptr[820] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:58:/ block");
  /*block*/{
@@ -66336,12 +26635,12 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
    MELT_LOCATION("warmelt-outobj.melt:58:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V160*/ curfptr[159];
-   /*_.INSTALL_METHOD__V798*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V828*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:58:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V798*/ curfptr[788] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V828*/ curfptr[818] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:66:/ block");
  /*block*/{
@@ -66353,12 +26652,12 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14];
    MELT_LOCATION("warmelt-outobj.melt:66:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V164*/ curfptr[163];
-   /*_.INSTALL_METHOD__V799*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V829*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:66:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V799*/ curfptr[789] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V829*/ curfptr[819] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:92:/ block");
  /*block*/{
@@ -66370,12 +26669,12 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
    MELT_LOCATION("warmelt-outobj.melt:92:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V172*/ curfptr[171];
-   /*_.INSTALL_METHOD__V800*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPREDEF__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V830*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPREDEF__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:92:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V800*/ curfptr[790] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V830*/ curfptr[820] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:98:/ block");
  /*block*/{
@@ -66387,12 +26686,12 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
    MELT_LOCATION("warmelt-outobj.melt:98:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V176*/ curfptr[175];
-   /*_.INSTALL_METHOD__V801*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V831*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:98:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V801*/ curfptr[788] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V831*/ curfptr[818] = 0 ;}
  
  MELT_LOCATION("warmelt-outobj.melt:108:/ block");
  /*block*/{
@@ -66404,1125 +26703,1125 @@ initial_frame_st     curfram__;
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
    MELT_LOCATION("warmelt-outobj.melt:108:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V180*/ curfptr[179];
-   /*_.INSTALL_METHOD__V802*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V832*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
   MELT_LOCATION("warmelt-outobj.melt:108:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V802*/ curfptr[789] = 0 ;}
+  /*clear*/ /*_.INSTALL_METHOD__V832*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:226:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:215:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:226:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:215:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:226:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:215:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:226:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:215:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V188*/ curfptr[187];
-   /*_.INSTALL_METHOD__V803*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V833*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:226:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V803*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:215:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V833*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:307:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:296:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:307:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:296:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:307:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:296:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14];
-   MELT_LOCATION("warmelt-outobj.melt:307:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:296:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V192*/ curfptr[191];
-   /*_.INSTALL_METHOD__V804*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V834*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:307:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V804*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:296:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V834*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:318:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:307:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:318:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:307:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:318:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:307:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
-   MELT_LOCATION("warmelt-outobj.melt:318:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:307:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V196*/ curfptr[195];
-   /*_.INSTALL_METHOD__V805*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V835*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:318:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V805*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:307:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V835*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:351:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:340:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:351:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:340:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:351:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:340:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:351:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:340:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V200*/ curfptr[199];
-   /*_.INSTALL_METHOD__V806*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V836*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:351:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V806*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:340:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V836*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:360:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:349:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:360:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:349:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:360:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:349:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
-   MELT_LOCATION("warmelt-outobj.melt:360:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:349:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V202*/ curfptr[201];
-   /*_.INSTALL_METHOD__V807*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V837*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:360:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V807*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:349:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V837*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:394:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:383:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:394:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:383:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:394:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:383:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:394:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:383:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V206*/ curfptr[205];
-   /*_.INSTALL_METHOD__V808*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V838*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:394:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V808*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:383:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V838*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:404:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:393:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:404:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:393:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:404:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:393:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
-   MELT_LOCATION("warmelt-outobj.melt:404:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:393:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V208*/ curfptr[207];
-   /*_.INSTALL_METHOD__V809*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V839*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:404:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V809*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:393:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V839*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:484:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:473:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:484:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:473:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:484:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:473:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:484:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:473:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V212*/ curfptr[211];
-   /*_.INSTALL_METHOD__V810*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V840*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:484:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V810*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:473:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V840*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:495:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:484:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:495:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:484:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:495:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:484:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
-   MELT_LOCATION("warmelt-outobj.melt:495:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:484:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V220*/ curfptr[219];
-   /*_.INSTALL_METHOD__V811*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V841*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:495:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V811*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:484:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V841*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:531:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:520:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:531:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:520:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:531:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:520:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:531:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:520:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V224*/ curfptr[223];
-   /*_.INSTALL_METHOD__V812*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V842*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:531:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V812*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:520:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V842*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:540:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:529:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:540:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:529:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:540:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:529:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10];
-   MELT_LOCATION("warmelt-outobj.melt:540:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:529:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V226*/ curfptr[225];
-   /*_.INSTALL_METHOD__V813*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V843*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:540:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V813*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:529:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V843*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:575:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:564:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:575:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:564:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:575:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:564:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13];
-   MELT_LOCATION("warmelt-outobj.melt:575:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:564:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V230*/ curfptr[229];
-   /*_.INSTALL_METHOD__V814*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V844*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:575:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V814*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:564:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V844*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:589:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:578:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:589:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:578:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:589:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:578:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:589:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:578:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V232*/ curfptr[231];
-   /*_.INSTALL_METHOD__V815*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V845*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:589:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V815*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:578:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V845*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:594:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:583:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:594:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:583:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:594:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:583:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:594:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:583:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V236*/ curfptr[235];
-   /*_.INSTALL_METHOD__V816*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_NULL_RECEIVER__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V846*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_NULL_RECEIVER__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:594:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V816*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:583:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V846*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:605:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:594:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:605:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:594:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:605:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:594:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:605:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:594:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V240*/ curfptr[239];
-   /*_.INSTALL_METHOD__V817*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V847*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:605:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V817*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:594:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V847*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1002:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:991:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1002:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:991:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1002:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:991:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1002:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:991:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V269*/ curfptr[268];
-   /*_.INSTALL_METHOD__V818*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V848*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1002:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V818*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:991:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V848*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1199:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1188:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1199:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1188:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1199:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1188:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1199:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1188:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V287*/ curfptr[286];
-   /*_.INSTALL_METHOD__V819*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V849*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1199:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V819*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1188:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V849*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1264:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1253:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1264:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1253:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1264:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1253:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1264:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1253:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V289*/ curfptr[288];
-   /*_.INSTALL_METHOD__V820*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETARG__V43*/ curfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V850*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETARG__V43*/ curfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1264:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V820*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1253:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V850*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1295:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1284:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1295:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1284:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1295:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1284:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1295:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1284:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V295*/ curfptr[294];
-   /*_.INSTALL_METHOD__V821*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V851*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLOCV__V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1295:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V821*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1284:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V851*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1311:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1300:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1311:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1300:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1311:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1300:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1311:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1300:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V299*/ curfptr[298];
-   /*_.INSTALL_METHOD__V822*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V852*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1311:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V822*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1300:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V852*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1330:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1319:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1330:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1319:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1330:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1319:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1330:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1319:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V303*/ curfptr[302];
-   /*_.INSTALL_METHOD__V823*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V853*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1330:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V823*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1319:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V853*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1372:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1361:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1372:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1361:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1372:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1361:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1372:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1361:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V310*/ curfptr[309];
-   /*_.INSTALL_METHOD__V824*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V854*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1372:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V824*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1361:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V854*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1381:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1370:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1381:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1370:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1381:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1370:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1381:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1370:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V316*/ curfptr[315];
-   /*_.INSTALL_METHOD__V825*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMULTIALLOCBLOCK__V50*/ curfptr[49]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V855*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMULTIALLOCBLOCK__V50*/ curfptr[49]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1381:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V825*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1370:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V855*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1431:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1420:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1431:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1420:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1431:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1420:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1431:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1420:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V322*/ curfptr[321];
-   /*_.INSTALL_METHOD__V826*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V51*/ curfptr[50]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V856*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V51*/ curfptr[50]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1431:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V826*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1420:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V856*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1449:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1438:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1449:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1438:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1449:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1438:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1449:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1438:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V328*/ curfptr[327];
-   /*_.INSTALL_METHOD__V827*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V53*/ curfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V857*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V53*/ curfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1449:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V827*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1438:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V857*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1486:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1475:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1486:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1475:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1486:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1475:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1486:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1475:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V336*/ curfptr[335];
-   /*_.INSTALL_METHOD__V828*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V858*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1486:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V828*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1475:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V858*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1504:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1493:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1504:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1493:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1504:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1493:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1504:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1493:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V340*/ curfptr[339];
-   /*_.INSTALL_METHOD__V829*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLABELINSTR__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V859*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLABELINSTR__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1504:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V829*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1493:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V859*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1521:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1510:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1521:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1510:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1521:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1510:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1521:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1510:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V344*/ curfptr[343];
-   /*_.INSTALL_METHOD__V830*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V860*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1521:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V830*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1510:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V860*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1589:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1578:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1589:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1578:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1589:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1578:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1589:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1578:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V354*/ curfptr[353];
-   /*_.INSTALL_METHOD__V831*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLOOP__V60*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V861*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLOOP__V60*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1589:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V831*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1578:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V861*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1608:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1597:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1608:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1597:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1608:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1597:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1608:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1597:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V358*/ curfptr[357];
-   /*_.INSTALL_METHOD__V832*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJEXIT__V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V862*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJEXIT__V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1608:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V832*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1597:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V862*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1646:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1635:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1646:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1635:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1646:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1635:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1646:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1635:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V365*/ curfptr[364];
-   /*_.INSTALL_METHOD__V833*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOMPUTE__V62*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V863*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOMPUTE__V62*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1646:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V833*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1635:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V863*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1688:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1677:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1688:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1677:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1688:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1677:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1688:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1677:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V369*/ curfptr[368];
-   /*_.INSTALL_METHOD__V834*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOND__V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V864*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCOND__V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1688:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V834*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1677:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V864*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1721:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1710:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1721:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1710:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1721:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1710:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1721:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1710:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V373*/ curfptr[372];
-   /*_.INSTALL_METHOD__V835*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCPPIF__V64*/ curfptr[63]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V865*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCPPIF__V64*/ curfptr[63]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1721:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V835*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1710:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V865*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1745:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1734:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1745:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1734:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1745:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1734:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1745:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1734:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V377*/ curfptr[376];
-   /*_.INSTALL_METHOD__V836*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V65*/ curfptr[64]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V866*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V65*/ curfptr[64]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1745:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V836*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1734:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V866*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1768:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1757:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1768:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1757:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1768:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1757:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1768:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1757:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V383*/ curfptr[382];
-   /*_.INSTALL_METHOD__V837*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V67*/ curfptr[66]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V867*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V67*/ curfptr[66]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1768:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V837*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1757:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V867*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1806:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1795:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1806:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1795:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1806:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1795:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1806:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1795:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V389*/ curfptr[388];
-   /*_.INSTALL_METHOD__V838*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V69*/ curfptr[68]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V868*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V69*/ curfptr[68]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1806:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V838*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1795:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V868*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1840:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1829:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1840:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1829:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1840:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1829:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1840:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1829:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V393*/ curfptr[392];
-   /*_.INSTALL_METHOD__V839*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V70*/ curfptr[69]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V869*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V70*/ curfptr[69]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1840:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V839*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1829:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V869*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:1933:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:1922:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:1933:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:1922:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:1933:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1922:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:1933:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:1922:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V400*/ curfptr[399];
-   /*_.INSTALL_METHOD__V840*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJAPPLY__V71*/ curfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V870*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJAPPLY__V71*/ curfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:1933:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V840*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:1922:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V870*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2029:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2018:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2029:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2018:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2029:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2018:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2029:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2018:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V411*/ curfptr[410];
-   /*_.INSTALL_METHOD__V841*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMSEND__V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V871*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMSEND__V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2029:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V841*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2018:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V871*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2192:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2181:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2192:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2181:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2192:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2181:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2192:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2181:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V421*/ curfptr[420];
-   /*_.INSTALL_METHOD__V842*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V872*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2192:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V842*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2181:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V872*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2347:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2336:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2347:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2336:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2347:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2336:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2347:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2336:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V431*/ curfptr[430];
-   /*_.INSTALL_METHOD__V843*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V873*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2347:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V843*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2336:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V873*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2364:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2353:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2364:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2353:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2364:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2353:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2364:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2353:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V435*/ curfptr[434];
-   /*_.INSTALL_METHOD__V844*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCLEAR__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V874*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJCLEAR__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2364:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V844*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2353:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V874*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2397:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2386:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2397:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2386:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2397:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2386:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2397:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2386:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V440*/ curfptr[439];
-   /*_.INSTALL_METHOD__V845*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V875*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2397:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V845*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2386:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V875*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2428:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2417:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2428:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2417:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2428:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2417:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2428:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2417:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V445*/ curfptr[444];
-   /*_.INSTALL_METHOD__V846*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V876*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2428:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V846*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2417:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V876*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2451:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2440:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2451:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2440:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2451:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2440:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2451:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2440:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V449*/ curfptr[448];
-   /*_.INSTALL_METHOD__V847*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJTOUCH__V81*/ curfptr[80]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V877*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJTOUCH__V81*/ curfptr[80]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2451:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V847*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2440:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V877*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2488:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2477:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2488:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2477:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2488:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2477:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2488:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2477:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V453*/ curfptr[452];
-   /*_.INSTALL_METHOD__V848*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTUPLE__V82*/ curfptr[81]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V878*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTUPLE__V82*/ curfptr[81]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2488:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V848*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2477:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V878*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2519:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2508:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2519:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2508:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2519:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2508:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2519:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2508:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V458*/ curfptr[457];
-   /*_.INSTALL_METHOD__V849*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETSLOT__V83*/ curfptr[82]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V879*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJGETSLOT__V83*/ curfptr[82]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2519:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V849*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2508:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V879*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2594:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2583:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2594:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2583:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2594:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2583:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2594:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2583:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V464*/ curfptr[463];
-   /*_.INSTALL_METHOD__V850*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTSLOT__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V880*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTSLOT__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2594:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V850*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2583:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V880*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2623:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2612:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2623:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2612:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2623:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2612:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2623:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2612:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V470*/ curfptr[469];
-   /*_.INSTALL_METHOD__V851*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V87*/ curfptr[86]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V881*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V87*/ curfptr[86]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2623:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V851*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2612:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V881*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2657:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2646:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2657:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2646:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2657:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2646:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2657:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2646:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V474*/ curfptr[473];
-   /*_.INSTALL_METHOD__V852*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V882*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2657:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V852*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2646:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V882*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2696:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2685:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2696:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2685:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2696:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2685:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2696:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2685:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V478*/ curfptr[477];
-   /*_.INSTALL_METHOD__V853*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V883*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2696:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V853*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2685:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V883*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2734:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2723:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2734:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2723:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2734:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2723:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2734:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2723:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V482*/ curfptr[481];
-   /*_.INSTALL_METHOD__V854*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V884*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2734:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V854*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2723:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V884*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2765:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2754:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2765:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2754:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2765:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2754:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2765:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2754:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V486*/ curfptr[485];
-   /*_.INSTALL_METHOD__V855*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V885*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2765:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V855*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2754:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V885*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2802:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2791:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2802:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2791:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2802:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2791:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2802:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2791:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V490*/ curfptr[489];
-   /*_.INSTALL_METHOD__V856*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V886*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2802:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V856*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2791:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V886*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2815:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2804:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2815:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2804:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2815:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2804:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2815:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2804:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V494*/ curfptr[493];
-   /*_.INSTALL_METHOD__V857*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJEXPV__V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V887*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJEXPV__V93*/ curfptr[92]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2815:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V857*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2804:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V887*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2849:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2838:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2849:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2838:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2849:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2838:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2849:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2838:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V498*/ curfptr[497];
-   /*_.INSTALL_METHOD__V858*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V888*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2849:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V858*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2838:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V888*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2858:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2847:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2858:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2847:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2858:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2847:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2858:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2847:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V504*/ curfptr[503];
-   /*_.INSTALL_METHOD__V859*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V96*/ curfptr[95]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V889*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V96*/ curfptr[95]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2858:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V859*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2847:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V889*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2869:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2858:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2869:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2858:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2869:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2858:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2869:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2858:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V508*/ curfptr[507];
-   /*_.INSTALL_METHOD__V860*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V890*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_STRING__V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2869:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V860*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2858:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V890*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2879:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2868:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2879:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2868:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2879:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2868:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2879:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2868:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V510*/ curfptr[509];
-   /*_.INSTALL_METHOD__V861*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V891*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2879:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V861*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2868:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V891*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:2889:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:2878:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:2889:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:2878:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:2889:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2878:/ apply.arg");
    argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12];
-   MELT_LOCATION("warmelt-outobj.melt:2889:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:2878:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V512*/ curfptr[511];
-   /*_.INSTALL_METHOD__V862*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJFINALRETURN__V97*/ curfptr[96]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+   /*_.INSTALL_METHOD__V892*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (melt_ptr_t)(/*_.CLASS_OBJFINALRETURN__V97*/ curfptr[96]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:2889:/ clear");
-  /*clear*/ /*_.INSTALL_METHOD__V862*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:2878:/ clear");
+  /*clear*/ /*_.INSTALL_METHOD__V892*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:3206:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:3244:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3206:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:3244:/ apply");
   /*apply*/{
-   /*_.INSTALL_MELT_MODE__V863*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V609*/ curfptr[608]), (melt_ptr_t)(/*_.VALDATA___V624*/ curfptr[623]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   /*_.INSTALL_MELT_MODE__V893*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V639*/ curfptr[638]), (melt_ptr_t)(/*_.VALDATA___V654*/ curfptr[653]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3206:/ clear");
-  /*clear*/ /*_.INSTALL_MELT_MODE__V863*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:3244:/ clear");
+  /*clear*/ /*_.INSTALL_MELT_MODE__V893*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:3251:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:3289:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3251:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:3289:/ apply");
   /*apply*/{
-   /*_.INSTALL_MELT_MODE__V864*/ curfptr[788] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V609*/ curfptr[608]), (melt_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   /*_.INSTALL_MELT_MODE__V894*/ curfptr[818] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V639*/ curfptr[638]), (melt_ptr_t)(/*_.VALDATA___V661*/ curfptr[660]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3251:/ clear");
-  /*clear*/ /*_.INSTALL_MELT_MODE__V864*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:3289:/ clear");
+  /*clear*/ /*_.INSTALL_MELT_MODE__V894*/ curfptr[818] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:3305:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:3343:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:3305:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:3343:/ apply");
   /*apply*/{
-   /*_.INSTALL_MELT_MODE__V865*/ curfptr[789] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V609*/ curfptr[608]), (melt_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   /*_.INSTALL_MELT_MODE__V895*/ curfptr[819] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V639*/ curfptr[638]), (melt_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:3305:/ clear");
-  /*clear*/ /*_.INSTALL_MELT_MODE__V865*/ curfptr[789] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:3343:/ clear");
+  /*clear*/ /*_.INSTALL_MELT_MODE__V895*/ curfptr[819] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:4393:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:4431:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4393:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:4431:/ apply");
   /*apply*/{
-   /*_.INSTALL_MELT_MODE__V866*/ curfptr[790] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V609*/ curfptr[608]), (melt_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
+   /*_.INSTALL_MELT_MODE__V896*/ curfptr[820] =  melt_apply ((meltclosure_ptr_t)(/*_.VALCLO___V639*/ curfptr[638]), (melt_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4393:/ clear");
-  /*clear*/ /*_.INSTALL_MELT_MODE__V866*/ curfptr[790] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:4431:/ clear");
+  /*clear*/ /*_.INSTALL_MELT_MODE__V896*/ curfptr[820] = 0 ;}
  
- MELT_LOCATION("warmelt-outobj.melt:4396:/ block");
+ MELT_LOCATION("warmelt-outobj.melt:4434:/ block");
  /*block*/{
-  MELT_LOCATION("warmelt-outobj.melt:4396:/ getslot");
+  MELT_LOCATION("warmelt-outobj.melt:4434:/ getslot");
   { melt_ptr_t slot=0;
-   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V867*/ curfptr[788] = slot; };
+   melt_object_get_field(slot,(melt_ptr_t)(((void*)(MELT_PREDEF(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V897*/ curfptr[818] = slot; };
   ;
-  MELT_LOCATION("warmelt-outobj.melt:4396:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:4434:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4396:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V562*/ curfptr[561];
-   MELT_LOCATION("warmelt-outobj.melt:4396:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:4434:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V592*/ curfptr[591];
+   MELT_LOCATION("warmelt-outobj.melt:4434:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_LIST_SEXPR*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V867*/ curfptr[788]), (melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V897*/ curfptr[818]), (melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:4396:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:4434:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4396:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V609*/ curfptr[608];
-   MELT_LOCATION("warmelt-outobj.melt:4396:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:4434:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALCLO___V639*/ curfptr[638];
+   MELT_LOCATION("warmelt-outobj.melt:4434:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_MELT_MODE*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V867*/ curfptr[788]), (melt_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V897*/ curfptr[818]), (melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
-  MELT_LOCATION("warmelt-outobj.melt:4396:/ apply");
+  MELT_LOCATION("warmelt-outobj.melt:4434:/ apply");
   /*apply*/{
    union meltparam_un argtab[2];
    memset(&argtab, 0, sizeof(argtab));
-   MELT_LOCATION("warmelt-outobj.melt:4396:/ apply.arg");
-   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V599*/ curfptr[598];
-   MELT_LOCATION("warmelt-outobj.melt:4396:/ apply.arg");
+   MELT_LOCATION("warmelt-outobj.melt:4434:/ apply.arg");
+   argtab[0].bp_aptr = (melt_ptr_t*) &/*_.VALDATA___V629*/ curfptr[628];
+   MELT_LOCATION("warmelt-outobj.melt:4434:/ apply.arg");
    argtab[1].bp_aptr = (melt_ptr_t*) &
    /*quasi.cur.mod.env.cont norm.exp.val : MELT_ARGUMENT*/
 /*_.CONTENV___V2*/ curfptr[1];
-    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V867*/ curfptr[788]), (melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+    melt_apply ((meltclosure_ptr_t)(/*_.VALUEXPORTER___V897*/ curfptr[818]), (melt_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
    }
   ;
   /*epilog*/
-  MELT_LOCATION("warmelt-outobj.melt:4396:/ clear");
-  /*clear*/ /*_.VALUEXPORTER___V867*/ curfptr[788] = 0 ;}
+  MELT_LOCATION("warmelt-outobj.melt:4434:/ clear");
+  /*clear*/ /*_.VALUEXPORTER___V897*/ curfptr[818] = 0 ;}
  
  /**COMMENT: after toplevel body **/;
  
@@ -67853,185 +28152,203 @@ initial_frame_st     curfram__;
  /*internsym:SECFIL_IMPLBUF*/
  (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V554*/ curfptr[553]));
  
+ /*internsym:GENERATED_C_FILENAME*/
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V556*/ curfptr[555]));
+ 
+ /*internsym:DISCR*/
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]));
+ 
+ /*internsym:BASE*/
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]));
+ 
+ /*internsym:DIR*/
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]));
+ 
+ /*internsym:NUM*/
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V570*/ curfptr[569]));
+ 
+ /*internsym:WANTS_SINGLE_C_FILE*/
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]));
+ 
  /*internsym:CLASS_ENVIRONMENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]));
  
  /*internsym:DISCR_MAP_STRINGS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V565*/ curfptr[564]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]));
  
  /*internsym:CREATE_NORMCONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]));
  
  /*internsym:CLASS_NORMALIZATION_CONTEXT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V599*/ curfptr[598]));
  
  /*internsym:MACROEXPAND_TOPLEVEL_LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V571*/ curfptr[570]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V601*/ curfptr[600]));
  
  /*internsym:CLASS_SOURCE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V573*/ curfptr[572]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]));
  
  /*internsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V575*/ curfptr[574]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]));
  
  /*internsym:INITIAL_ENVIRONMENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V577*/ curfptr[576]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]));
  
  /*internsym:CLASS_NREP_INITPROC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V579*/ curfptr[578]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]));
  
  /*internsym:CLASS_LOCATED*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]));
  
  /*internsym:CLASS_SOURCE_COMMENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]));
  
  /*internsym:NORMAL_EXP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V585*/ curfptr[584]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V615*/ curfptr[614]));
  
  /*internsym:CLASS_NREP_ANYPROC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V617*/ curfptr[616]));
  
  /*internsym:WRAP_NORMAL_LET1*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]));
  
  /*internsym:DISCR_MAP_OBJECTS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]));
  
  /*internsym:COMPILE2OBJ_PROCEDURE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V593*/ curfptr[592]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]));
  
  /*internsym:COMPILE2OBJ_INITPROC*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V595*/ curfptr[594]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V625*/ curfptr[624]));
  
  /*internsym:MELT_ARGUMENT*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V597*/ curfptr[596]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V627*/ curfptr[626]));
  
  /*internsym:NAM*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]));
  
  /*internsym:CLASS_MELT_MODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V610*/ curfptr[609]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V640*/ curfptr[639]));
  
  /*internsym:INITIAL_SYSTEM_DATA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V612*/ curfptr[611]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]));
  
  /*internsym:CLASS_SYSTEM_DATA*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V614*/ curfptr[613]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]));
  
  /*internsym:LIST_APPEND2LIST*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]));
  
  /*internsym:TRANSLATEFILE_MODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V622*/ curfptr[621]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]));
  
  /*internsym:RUNFILE_MODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]));
  
  /*internsym:TRANSLATEINIT_MODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V637*/ curfptr[636]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]));
  
  /*internsym:CLASS_MAKEDOC_INFO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V642*/ curfptr[641]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V672*/ curfptr[671]));
  
  /*internsym:CLASS_PROPED*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V644*/ curfptr[643]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V674*/ curfptr[673]));
  
  /*internsym:MKDOC_PRIMITIVES*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]));
  
  /*internsym:MKDOC_FUNCTIONS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V680*/ curfptr[679]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]));
  
  /*internsym:MKDOC_CITERATORS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]));
  
  /*internsym:MKDOC_CMATCHERS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]));
  
  /*internsym:MKDOC_SELECTORS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V686*/ curfptr[685]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]));
  
  /*internsym:MKDOC_FIELDS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V688*/ curfptr[687]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]));
  
  /*internsym:MKDOC_CLASSES*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]));
  
  /*internsym:MKDOC_INSTANCES*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]));
  
  /*internsym:MKDOC_MACROS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]));
  
  /*internsym:MKDOC_PATMACROS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V696*/ curfptr[695]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]));
  
  /*internsym:MKDOC_FORMALOCCMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]));
  
  /*internsym:MKDOC_PREDEFMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]));
  
  /*internsym:MKDOC_DOCSYMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V702*/ curfptr[701]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]));
  
  /*internsym:MKDOC_SUBCLASSMAP*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V704*/ curfptr[703]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]));
  
  /*internsym:CLASS_SOURCE_DEFINITION*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V712*/ curfptr[711]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]));
  
  /*internsym:CLASS_ANY_BINDING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]));
  
  /*internsym:CLASS_SOURCE_DEFCLASS*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V746*/ curfptr[745]));
  
  /*internsym:CLASS_SEXPR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V748*/ curfptr[747]));
  
  /*internsym:CLASS_CLASS_BINDING*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V750*/ curfptr[749]));
  
  /*internsym:CLASS_SOURCE_DEFSELECTOR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V722*/ curfptr[721]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]));
  
  /*internsym:CLASS_SOURCE_DEFINSTANCE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V724*/ curfptr[723]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]));
  
  /*internsym:CLASS_SOURCE_DEFPRIMITIVE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V726*/ curfptr[725]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V756*/ curfptr[755]));
  
  /*internsym:CLASS_SOURCE_DEFUN*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V758*/ curfptr[757]));
  
  /*internsym:CLASS_SOURCE_DEFCITERATOR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]));
  
  /*internsym:CLASS_SOURCE_DEFCMATCHER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]));
  
  /*internsym:CLASS_SOURCE_EXPORT_PATMACRO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]));
  
  /*internsym:CLASS_SOURCE_EXPORT_MACRO*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V736*/ curfptr[735]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V766*/ curfptr[765]));
  
  /*internsym:CLASS_SOURCE_DEFINITION_FORMAL*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]));
  
  /*internsym:CLASS_ANY_MATCHER*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]));
  
  /*internsym:MAKEDOC_MODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V780*/ curfptr[779]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]));
  
  /*internsym:COMPILE_LIST_SEXPR*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V785*/ curfptr[784]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]));
  
  /*internsym:INSTALL_MELT_MODE*/
- (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]));
+ (void) meltgc_intern_symbol((melt_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]));
  
  /**COMMENT: set retinit from boxloc **/;
  
@@ -68054,7 +28371,7 @@ void mark_module_melt(void*fp)
 {
  int ix=0;
  initial_frame_st* framptr_= (initial_frame_st*)fp;
- for(ix=0; ix<867; ix++)
+ for(ix=0; ix<897; ix++)
     if (framptr_->varptr[ix])
      gt_ggc_mx_melt_un (framptr_->varptr[ix]);
    
@@ -68066,4 +28383,4 @@ void mark_module_melt(void*fp)
 /* exported class lengths */
 
 
-/**** end of warmelt-outobj.3.c ****/
+/**** end of warmelt-outobj.0.c ****/